(24999-13538 REV: 6000 MT1600 CUP-BIN VOL. 2 OF 2 20007 Rev.5270 <911219.0034> 2FST 5311141631 Dfile 2255000 15702 Dfile  ZFST HP_COMMENT_FILE.MT02::CUP_BIN_6000:4:384:37 644 0 0 225000 5311125422 40305 HP_COMMENT_FILE.MT02::CUP_BIN_6000:4:384:37 ++$* )4%HP_COMMENT_FILE MT02+$+$+$S ^FST HPHPHP::HP1000_INFO:4:94:36 644 0 0 57000 5310713464 34522 HPHPHP::HP1000_INFO_RTE6:4:94:36  $^^$HPHPHP +#+$uA+#4^. FST COMMUNICATOR60.LST::HP1000_INFO:4:3409:47 644 0 0 3250400 5310706631 40157 COMMUNICATOR60.LST::HP1000_INFO_RTE6:4:3409:47 ).$ Q< Q/COMMUNICATOR60 LST +#+#+# Q{M FST %DVM72::RTE_6:5:10:60 644 0 0 5000 5310706633 32422 %DVM72::RTE_6:5:10:60 $  <%DVM72 +#+#+# >FST %DSCHD::RTE_6:5:1:32 644 0 0 400 5310706635 32414 %DSCHD::RTE_6:5:1:32 $t %DSCHD +#+#+#]JFST %PVM00::RTE_6:5:2:60 644 0 0 1000 5310706636 32621 %PVM00::RTE_6:5:2:60 $x<%PVM00 +#+#+#NFST %DVM00::RTE_6:5:30:60 644 0 0 17000 5310706640 33170 %DVM00::RTE_6:5:30:60 $|<%DVM00 +#+#+#XRFST %DDV05::RTE_6:5:15:60 644 0 0 7400 5310706642 32601 %DDV05::RTE_6:5:15:60 $<%DDV05 +#+#+#&+rFST %DDV12::RTE_6:5:4:60 644 0 0 2000 5310706643 32621 %DDV12::RTE_6:5:4:60 $<%DDV12 +#+#+# FST %$DVTB::RTE_6:5:1:34 644 0 0 400 5310706645 32537 %$DVTB::RTE_6:5:1:34 $"%$DVTB +#+#+#JFST %DVN00::RTE_6:5:28:60 644 0 0 16000 5310706647 33427 %DVN00::RTE_6:5:28:60 $<%DVN00 +#+#+# RFST %$DVTN::RTE_6:5:1:34 644 0 0 400 5310706651 32716 %$DVTN::RTE_6:5:1:34 $"%$DVTN +#+#+#JFST %DVT00::RTE_6:5:30:60 644 0 0 17000 5310706652 33401 %DVT00::RTE_6:5:30:60 $<%DVT00 +#+#+#VFST %DDT05::RTE_6:5:6:60 644 0 0 3000 5310706654 33150 %DDT05::RTE_6:5:6:60 $<%DDT05 +#+#+#FST $VLB6A::RTE_6:5:36:60 644 0 0 22000 5310706656 33645 $VLB6A::RTE_6:5:36:60 $$$<$VLB6A +#+#+#$FST $VLB6B::RTE_6:5:152:127 644 0 0 114000 5310706660 34506 $VLB6B::RTE_6:5:152:127 $ $VLB6B +#+#+#K|FST %DECAR::RTE_6:5:144:60 644 0 0 110000 5310706662 34543 %DECAR::RTE_6:5:144:60 $<%DECAR +#+#+#GoFST %EXER::RTE_6:5:308:128 644 0 0 232000 5310706664 33775 %EXER::RTE_6:5:308:128 $4H4%EXER +#+#+#4Z*FST ((%EXER1::RTE_6:5:245:128 644 0 0 172400 5310706665 35167 %EXER1::RTE_6:5:245:128 $|%EXER1 +#+#+#z}m`FST #EXER1::RTE_6:3:2:27 644 0 0 1000 5310706667 32657 #EXER1::RTE_6:3:2:27 $t#EXER1 +#+#+# XFST #EXER::RTE_6:3:2:32 644 0 0 1000 5310706670 32611 #EXER::RTE_6:3:2:32 $x #EXER +#+#+# \FST $FDSLB::RTE_6:5:44:60 644 0 0 26000 5310706672 33605 $FDSLB::RTE_6:5:44:60 $,|,<$FDSLB +#+#+#,`FST $FNDLB::RTE_6:5:2:43 644 0 0 1000 5310706673 33053 $FNDLB::RTE_6:5:2:43 $+$FNDLB +#+#+#FST $MATH::RTE_6:5:421:60 644 0 0 322400 5310706675 34272 $MATH::RTE_6:5:421:60 $<$MATH +#+#+# FST $FLIB::RTE_6:5:117:60 644 0 0 72400 5310706677 33667 $FLIB::RTE_6:5:117:60 $uTu<$FLIB +#+#+#u::FST $FOLDF::RTE_6:5:56:60 644 0 0 34000 5310706700 34223 $FOLDF::RTE_6:5:56:60 $88<$FOLDF +#+#+#8FST $FNEWF::RTE_6:5:69:128 644 0 0 42400 5310706702 34010 $FNEWF::RTE_6:5:69:128 $EE$FNEWF +#+#+#E"FST %SRQ*P::RTE_6:5:2:58 644 0 0 1000 5310706704 32714 %SRQ*P::RTE_6:5:2:58 $L:%SRQ*P +#+#+#4FST %DVA13::RTE_6:5:3:60 644 0 0 1400 5310706706 32501 %DVA13::RTE_6:5:3:60 $P<%DVA13 +#+#+#v 8FST %TVLIB::RTE_6:5:16:60 644 0 0 10000 5310706710 33425 %TVLIB::RTE_6:5:16:60 $T<%TVLIB +#+#+#<>FST %TVVER::RTE_6:5:39:60 644 0 0 23400 5310706711 33576 %TVVER::RTE_6:5:39:60 $'d'<%TVVER +#+#+#'MpPFST %DVA12::RTE_6:5:9:60 644 0 0 4400 5310706713 32614 %DVA12::RTE_6:5:9:60 $  <%DVA12 +#+#+# zFST %0DV05::RTE_6:5:17:60 644 0 0 10400 5310706715 33014 %0DV05::RTE_6:5:17:60 $<%0DV05 +#+#+#)1FST %ATRAN::RTE_6:5:12:60 644 0 0 6000 5310706717 33537 %ATRAN::RTE_6:5:12:60 $  <%ATRAN +#+#+# 8FST %MACRO::RTE_6:5:50:128 644 0 0 31000 5310706720 34340 %MACRO::RTE_6:5:50:128 $22%MACRO +#+#+#2{FST %MACR0::RTE_6:5:40:128 644 0 0 24000 5310706721 34125 %MACR0::RTE_6:5:40:128 $((%MACR0 +#+#+#(7FST %MACR1::RTE_6:5:218:128 644 0 0 155000 5310706722 34776 %MACR1::RTE_6:5:218:128 $%MACR1 +#+#+#l FST %MACR2::RTE_6:5:164:128 644 0 0 122000 5310706723 35335 %MACR2::RTE_6:5:164:128 $%MACR2 +#+#+#Qc FST ((%MACR3::RTE_6:5:236:128 644 0 0 166000 5310706724 35236 %MACR3::RTE_6:5:236:128 $%MACR3 +#+#+#u!FST %MACR4::RTE_6:5:15:128 644 0 0 7400 5310706725 33426 %MACR4::RTE_6:5:15:128 $%MACR4 +#+#+#r)"vFST %MACR5::RTE_6:5:14:128 644 0 0 7000 5310706726 33611 %MACR5::RTE_6:5:14:128 $%MACR5 +#+#+# "FST %MACR6::RTE_6:5:66:128 644 0 0 41000 5310706727 34315 %MACR6::RTE_6:5:66:128 $BB%MACR6 +#+#+#B "FST %MACR7::RTE_6:5:11:128 644 0 0 5400 5310706730 33710 %MACR7::RTE_6:5:11:128 $  %MACR7 +#+#+# {"FST %OLDRE::RTE_6:5:27:128 644 0 0 15400 5310706730 34240 %OLDRE::RTE_6:5:27:128 $%OLDRE +#+#+# z%"FST %MACRL::RTE_6:5:93:128 644 0 0 56400 5310706731 33634 %MACRL::RTE_6:5:93:128 $]]%MACRL +#+#+#].~#FST %MACRE::RTE_6:5:62:128 644 0 0 37000 5310706732 34212 %MACRE::RTE_6:5:62:128 $>t>%MACRE +#+#+#>@#hFST #OLDRE::RTE_6:4:1:18 644 0 0 400 5310706734 33146 #OLDRE::RTE_6:4:1:18 $#OLDRE +#+#+#&#FST #MACRO::RTE_6:4:2:31 644 0 0 1000 5310706736 33432 #MACRO::RTE_6:4:2:31 $#MACRO +#+#+##FST &CDSONOFF::RTE_6:4:216:39 644 0 0 154000 5310706737 36371 &CDSONOFF::RTE_6:4:216:39 $'&CDSONOFF +#+#+#k#FST "MACLB::RTE_6:4:131:39 644 0 0 101400 5310706741 34435 "MACLB::RTE_6:4:131:39 $'"MACLB +#+#+#A$FST %LP31::RTE_6:5:10:60 644 0 0 5000 5310706743 32642 %LP31::RTE_6:5:10:60 $ $ <%LP31 +#+#+# $%FST %DVB12::RTE_6:5:17:60 644 0 0 10400 5310706745 32753 %DVB12::RTE_6:5:17:60 $0<%DVB12 +#+#+#[2%FST %MSAFD::RTE_6:5:29:60 644 0 0 16400 5310706747 33277 %MSAFD::RTE_6:5:29:60 $D<%MSAFD +#+#+#"U%0FST %4PVMP::RTE_6:5:2:60 644 0 0 1000 5310706751 33276 %4PVMP::RTE_6:5:2:60 $d<%4PVMP +#+#+#%PFST %4AUTR::RTE_6:5:6:60 644 0 0 3000 5310706753 33406 %4AUTR::RTE_6:5:6:60 $h<%4AUTR +#+#+#%TFST %ACCTS::RTE_6:5:55:60 644 0 0 33400 5310706754 33512 %ACCTS::RTE_6:5:55:60 $7p7<%ACCTS +#+#+#7/ %\FST !MTLDR::RTE_6:7:2:120 644 0 0 1000 5310706756 33627 !MTLDR::RTE_6:7:2:120 $x!MTLDR +#+#+#%FST %FORMT::RTE_6:5:49:60 644 0 0 30400 5310706757 34276 %FORMT::RTE_6:5:49:60 $11<%FORMT +#+#+#1b%FST ((&4AUTR::RTE_6:4:33:37 644 0 0 20400 5310706761 34273 &4AUTR::RTE_6:4:33:37 $!!%&4AUTR +#+#+#!U%FST $RSLIB::RTE_6:5:23:60 644 0 0 13400 5310706763 33642 $RSLIB::RTE_6:5:23:60 $<$RSLIB +#+#+# L]%FST $ACCLB::RTE_6:5:360:60 644 0 0 264000 5310706764 34500 $ACCLB::RTE_6:5:360:60 $hh<$ACCLB +#+#+#h& FST %SAVER::RTE_6:5:140:60 644 0 0 106000 5310706765 35226 %SAVER::RTE_6:5:140:60 $„<%SAVER +#+#+#E'vFST %READR::RTE_6:5:108:60 644 0 0 66000 5310706767 34177 %READR::RTE_6:5:108:60 $ll<%READR +#+#+#l5(FST %DVC12::RTE_6:5:20:60 644 0 0 12000 5310706771 33451 %DVC12::RTE_6:5:20:60 $Ä<%DVC12 +#+#+# 9(rFST %DVD12::RTE_6:5:20:60 644 0 0 12000 5310706772 33533 %DVD12::RTE_6:5:20:60 $Ø<%DVD12 +#+#+# 9(FST $ED1K6::RTE_6:5:78:128 644 0 0 47000 5310706773 34536 $ED1K6::RTE_6:5:78:128 $NìN$ED1K6 +#+#+#N&(FST %EDIT::RTE_6:5:571:128 644 0 0 435400 5310706774 34532 %EDIT::RTE_6:5:571:128 $;;%EDIT +#+#+#;(FST %ED000::RTE_6:5:36:128 644 0 0 22000 5310706776 33310 %ED000::RTE_6:5:36:128 $$8$%ED000 +#+#+#$6+,FST #ED1K6::RTE_6:4:2:34 644 0 0 1000 5310706776 33075 #ED1K6::RTE_6:4:2:34 $\"#ED1K6 +#+#+#+RFST "EDIT::RTE_6:4:165:45 644 0 0 122400 5310706777 34425 "EDIT::RTE_6:4:165:45 $`-"EDIT +#+#+#R"+VFST XFMP.LIB::RTE_6:5:224:128 644 0 0 160000 5310707002 34754 XFMP.LIB::RTE_6:5:224:128 $XFMP LIB +#+#+#o+FST %LINDX::RTE_6:5:170:128 644 0 0 125000 5310707003 34524 %LINDX::RTE_6:5:170:128 $%LINDX +#+#+#T,FST MONITOR6.REL::RTE_6:5:233:128 644 0 0 164400 5310707005 35677 MONITOR6.REL::RTE_6:5:233:128 $ȔMONITOR6 REL +#+#+#t(z-FST CALLS.REL::RTE_6:5:62:128 644 0 0 37000 5310707007 34010 CALLS.REL::RTE_6:5:62:128 $>ɀ>CALLS REL +#+#+#>.xFST %PRINT::RTE_6:5:51:128 644 0 0 31400 5310707011 33316 %PRINT::RTE_6:5:51:128 $33%PRINT +#+# +# 3~.FST %PRIN0::RTE_6:5:76:128 644 0 0 46000 5310707012 33723 %PRIN0::RTE_6:5:76:128 $LL%PRIN0 +# +# +# L%.FST %FFL::RTE_6:5:4:58 644 0 0 2000 5310707014 31427 %FFL::RTE_6:5:4:58 $@:%FFL +# +# +# /<FST %MODEM::RTE_6:5:19:127 644 0 0 11400 5310707015 32355 %MODEM::RTE_6:5:19:127 $D%MODEM +# +# +#  zB/BFST ((MERGE.REL::RTE_6:5:40:128 644 0 0 24000 5310707017 33600 MERGE.REL::RTE_6:5:40:128 $(X(MERGE REL +#+#+#(\/XFST %CI::RTE_6:5:150:128 644 0 0 113000 5310707021 33407 %CI::RTE_6:5:150:128 $ʀ%CI +#+#+#J/FST FREES.REL::RTE_6:5:32:128 644 0 0 20000 5310707023 33240 FREES.REL::RTE_6:5:32:128 $  FREES REL +#+#+# 00FST %FSCON::RTE_6:5:101:128 644 0 0 62400 5310707025 33154 %FSCON::RTE_6:5:101:128 $e8e%FSCON +#+#+#e20<FST %TRFAS::RTE_6:5:41:128 644 0 0 24400 5310707027 33110 %TRFAS::RTE_6:5:41:128 $)ˠ)%TRFAS +#+#+#)Qq0FST %LIF::RTE_6:5:237:128 644 0 0 166400 5310707032 34374 %LIF::RTE_6:5:237:128 $%LIF +#+#+#v_0FST LI.REL::RTE_6:5:153:128 644 0 0 114400 5310707034 34035 LI.REL::RTE_6:5:153:128 $̼LI REL +#+#+#L1h1FST %PR000::RTE_6:5:15:128 644 0 0 7400 5310707036 32110 %PR000::RTE_6:5:15:128 $X%PR000 +#+#+#z2\FST %IS::RTE_6:5:20:128 644 0 0 12000 5310707037 32013 %IS::RTE_6:5:20:128 $h%IS +#+#+# +2nFST %CKTRM::RTE_6:5:6:128 644 0 0 3000 5310707041 32472 %CKTRM::RTE_6:5:6:128 $|%CKTRM +# +#!+#! 2FST FREES.C000::RTE_6:5:9:128 644 0 0 4400 5310707043 32766 FREES.C000::RTE_6:5:9:128 $ ̈́ FREES C000+#"+##+## # 2FST %FORMC::RTE_6:5:149:128 644 0 0 112400 5310707045 33556 %FORMC::RTE_6:5:149:128 $͐%FORMC +#$+#%+#%J2FST %FC000::RTE_6:5:34:128 644 0 0 21000 5310707047 32101 %FC000::RTE_6:5:34:128 $"("%FC000 +#&+#'+#'"$30FST SPORT.REL::RTE_6:5:7:128 644 0 0 3400 5310707051 33177 SPORT.REL::RTE_6:5:7:128 $LSPORT REL +#(+#)+#) 3TFST ASK.REL::RTE_6:5:5:126 644 0 0 2400 5310707052 32557 ASK.REL::RTE_6:5:5:126 $\~ASK REL +#*+#*+#*p 3^FST LI.R000::RTE_6:5:17:128 644 0 0 10400 5310707055 32323 LI.R000::RTE_6:5:17:128 $dLI R000+#,+#-+#-+3fFST MERGE.R000::RTE_6:5:4:128 644 0 0 2000 5310707056 33205 MERGE.R000::RTE_6:5:4:128 $xMERGE R000+#-+#.+#.3zFST SCOM.REL::RTE_6:5:146:128 644 0 0 111000 5310707060 34512 SCOM.REL::RTE_6:5:146:128 $|SCOM REL +#0+#0+#0H3FST SCOM.C000::RTE_6:1:8:128 644 0 0 4000 5310707062 32226 SCOM.C000::RTE_6:1:8:128 $SCOM C000+#1+#2+#24FST LI_VMA.REL::RTE_6:5:22:128 644 0 0 13000 5310707064 33702 LI_VMA.REL::RTE_6:5:22:128 $LI_VMA REL +#3+#4+#4 E4FST ((FREES.LOD::RTE_6:3:2:28 644 0 0 1000 5310707066 32704 FREES.LOD::RTE_6:3:2:28 $0FREES LOD +#5+#6+#6 46FST #FSCON::RTE_6:3:1:28 644 0 0 400 5310707067 32031 #FSCON::RTE_6:3:1:28 $4#FSCON +#6+#7+#7w 4:FST MERGE.LOD::RTE_6:3:2:39 644 0 0 1000 5310707071 33035 MERGE.LOD::RTE_6:3:2:39 $8'MERGE LOD +#8+#9+#94>FST #LIF::RTE_6:3:1:22 644 0 0 400 5310707072 31264 #LIF::RTE_6:3:1:22 $<#LIF +#:+#:+#:24BFST #FORMC::RTE_6:3:2:30 644 0 0 1000 5310707074 32251 #FORMC::RTE_6:3:2:30 $@#FORMC +#;+#<+#<4FFST LI.LOD::RTE_6:4:5:39 644 0 0 2400 5310707140 32407 LI.LOD::RTE_6:4:5:39 $X'LI LOD +#_+#`+#`e&4JFST #IS::RTE_6:3:1:28 644 0 0 400 5310707141 31466 #IS::RTE_6:3:1:28 $`#IS +#a+#a+#aX4RFST #CIX6::RTE_6:4:2:29 644 0 0 1000 5310707152 32401 #CIX6::RTE_6:4:2:29 $Ј#CIX6 +#j+#j+#j4VFST MONITOR.LOD::RTE_6:4:3:34 644 0 0 1400 5310707154 33743 MONITOR.LOD::RTE_6:4:3:34 $Ќ"MONITOR LOD +#k+#l+#l$4ZFST SPORT.LOD::RTE_6:3:2:34 644 0 0 1000 5310707156 33565 SPORT.LOD::RTE_6:3:2:34 $Р"SPORT LOD +#n+#n+#n4`FST CALLS.LOD::RTE_6:4:1:23 644 0 0 400 5310707165 32751 CALLS.LOD::RTE_6:4:1:23 $CALLS LOD +#t+#u+#u04dFST &FFL::RTE_6:4:9:39 644 0 0 4400 5310707172 32104 &FFL::RTE_6:4:9:39 $  '&FFL +#y+#z+#z j>4hFST %PATH::RTE_6:5:27:128 644 0 0 15400 5310707174 32760 %PATH::RTE_6:5:27:128 $%PATH +#|+#|+#| ~(4tFST $SYLB6::RTE_6:5:235:128 644 0 0 165400 5310707177 34634 $SYLB6::RTE_6:5:235:128 $P$SYLB6 +#+#+#u<;4FST $EMCLB::RTE_6:5:20:128 644 0 0 12000 5310707202 33210 $EMCLB::RTE_6:5:20:128 $<$EMCLB +#+#+# _5FST %BMPG1::RTE_6:5:385:128 644 0 0 300400 5310707203 34134 %BMPG1::RTE_6:5:385:128 $P%BMPG1 +#+#+#_5FST %BMPG3::RTE_6:5:345:128 644 0 0 254400 5310707204 34237 %BMPG3::RTE_6:5:345:128 $YY%BMPG3 +#+#+#Y>7FST %INDXR::RTE_6:5:55:128 644 0 0 33400 5310707206 33435 %INDXR::RTE_6:5:55:128 $707%INDXR +#+#+#7u8vFST %RT6GN::RTE_6:5:343:128 644 0 0 253400 5310707207 34233 %RT6GN::RTE_6:5:343:128 $WhW%RT6GN +#+#+#W8FST %SSTCH::RTE_6:5:121:128 644 0 0 74400 5310707210 34276 %SSTCH::RTE_6:5:121:128 $yy%SSTCH +#+#+#yFST $VCLIB::RTE_6:5:20:128 644 0 0 12000 5310707224 33764 $VCLIB::RTE_6:5:20:128 $۴$VCLIB +#+#+# ^>FST %SXREF::RTE_6:5:64:128 644 0 0 40000 5310707225 34326 %SXREF::RTE_6:5:64:128 $@@%SXREF +#+#+#@?FST $RBLIB::RTE_6:5:275:128 644 0 0 211400 5310707227 33241 $RBLIB::RTE_6:5:275:128 $$RBLIB +#+#+#(?VFST %DBUGR::RTE_6:5:114:128 644 0 0 71000 5310707230 34230 %DBUGR::RTE_6:5:114:128 $rr%DBUGR +#+#+#r8@lFST %SMON1::RTE_6:5:115:128 644 0 0 71400 5310707231 34407 %SMON1::RTE_6:5:115:128 $sݐs%SMON1 +#+#+#s9@FST %SMON2::RTE_6:5:15:128 644 0 0 7400 5310707233 33031 %SMON2::RTE_6:5:15:128 $%SMON2 +#+#+#<.AVFST %NSESN::RTE_6:5:4:127 644 0 0 2000 5310707234 33265 %NSESN::RTE_6:5:4:127 $%NSESN +#+#+#AhFST %CR6S1::RTE_6:5:110:128 644 0 0 67000 5310707236 34212 %CR6S1::RTE_6:5:110:128 $nn%CR6S1 +#+#+#n6AnFST %CR6S2::RTE_6:5:104:128 644 0 0 64000 5310707237 34463 %CR6S2::RTE_6:5:104:128 $hވh%CR6S2 +#+#+#h3AFST %CR6S3::RTE_6:5:155:128 644 0 0 115400 5310707241 34647 %CR6S3::RTE_6:5:155:128 $%CR6S3 +#+#+#MeBHFST %SPOL1::RTE_6:5:120:128 644 0 0 74000 5310707242 34532 %SPOL1::RTE_6:5:120:128 $xߌx%SPOL1 +#+#+#x;JBFST %SPOL2::RTE_6:5:91:128 644 0 0 55400 5310707243 33652 %SPOL2::RTE_6:5:91:128 $[[%SPOL2 +#+#+#[-C`FST %6MTM::RTE_6:5:11:128 644 0 0 5400 5310707245 33155 %6MTM::RTE_6:5:11:128 $ ` %6MTM +#+#+# [CFST %HELP::RTE_6:5:7:126 644 0 0 3400 5310707247 33051 %HELP::RTE_6:5:7:126 $l~%HELP +#+#+#CFST (($UTLIB::RTE_6:5:12:128 644 0 0 6000 5310707250 33747 $UTLIB::RTE_6:5:12:128 $ t $UTLIB +#+#+# :CFST %SGMTR::RTE_6:5:43:128 644 0 0 25400 5310707252 34145 %SGMTR::RTE_6:5:43:128 $++%SGMTR +#+#+#+(CFST $6FCLB::RTE_6:5:37:128 644 0 0 22400 5310707254 33176 $6FCLB::RTE_6:5:37:128 $%%$6FCLB +#+#+#%7DFST $IB6A::RTE_6:5:19:60 644 0 0 11400 5310707256 32763 $IB6A::RTE_6:5:19:60 $<$IB6A +#+#+# AFD:FST $LDRLN::RTE_6:5:117:128 644 0 0 72400 5310707260 34704 $LDRLN::RTE_6:5:117:128 $uu$LDRLN +#+#+#u:ADPFST BCKUP.LIB::RTE_6:5:405:128 644 0 0 312400 5310707261 36113 BCKUP.LIB::RTE_6:5:405:128 $`BCKUP LIB +#+#+#DFST BEGGT.LIB::RTE_6:5:46:128 644 0 0 27000 5310707262 34777 BEGGT.LIB::RTE_6:5:46:128 $..BEGGT LIB +#+#+#.F`FST $DTCLB::RTE_6:5:84:60 644 0 0 52000 5310707263 34016 $DTCLB::RTE_6:5:84:60 $T(T<$DTCLB +#+#+#T)jFFST %CSERR::RTE_6:5:6:126 644 0 0 3000 5310707265 33717 %CSERR::RTE_6:5:6:126 $|~%CSERR +#+#+#FFST %FCM6::RTE_6:5:36:128 644 0 0 22000 5310707266 34056 %FCM6::RTE_6:5:36:128 $$$%FCM6 +#+#+#$|FFST ONLIN.LIB::RTE_6:5:6:64 644 0 0 3000 5310707270 34035 ONLIN.LIB::RTE_6:5:6:64 $@ONLIN LIB +#+#+#GFST $DSCLB::RTE_6:5:60:60 644 0 0 36000 5310707271 33614 $DSCLB::RTE_6:5:60:60 $<<<$DSCLB +#+#+#<3GFST %MLLDB::RTE_6:5:72:128 644 0 0 44000 5310707272 34405 %MLLDB::RTE_6:5:72:128 $HH%MLLDB +#+#+#H#vGZFST %MLLDA::RTE_6:5:39:128 644 0 0 23400 5310707273 33660 %MLLDA::RTE_6:5:39:128 $'4'%MLLDA +#+#+#'y:GFST %LINKA::RTE_6:5:233:128 644 0 0 164400 5310707275 35635 %LINKA::RTE_6:5:233:128 $d%LINKA +#+#+#t]GFST $FMP6::RTE_6:5:1484:128 644 0 0 1346000 5310707277 35441 $FMP6::RTE_6:5:1484:128 $P$FMP6 +#+#+#HFST $R6GNL::RTE_6:5:160:128 644 0 0 120000 5310707301 34777 $R6GNL::RTE_6:5:160:128 $$R6GNL +#+#+#ONFST $PRINT::RTE_6:5:58:128 644 0 0 35000 5310707302 34406 $PRINT::RTE_6:5:58:128 $::$PRINT +#+#+#:O*FST $SGMLB::RTE_6:5:242:128 644 0 0 171000 5310707304 35517 $SGMLB::RTE_6:5:242:128 $$SGMLB +#+#+#xOfFST $FCL1::RTE_6:5:380:128 644 0 0 276000 5310707306 34652 $FCL1::RTE_6:5:380:128 $||$FCL1 +#+#+#||PZFST (($FCL2::RTE_6:5:170:128 644 0 0 125000 5310707310 34673 $FCL2::RTE_6:5:170:128 $h$FCL2 +#+#+#T}QFST $FST6::RTE_6:5:8:126 644 0 0 4000 5310707312 33140 $FST6::RTE_6:5:8:126 $~$FST6 +#+#+#RFST %DVR12::RTE_6:5:7:60 644 0 0 3400 5310707314 32734 %DVR12::RTE_6:5:7:60 $<%DVR12 +#+#+#$RFST %FC0::RTE_6:5:122:128 644 0 0 75000 5310707316 34122 %FC0::RTE_6:5:122:128 $z$z%FC0 +#+#+#z<RFST %FC1::RTE_6:5:11:128 644 0 0 5400 5310707317 32561 %FC1::RTE_6:5:11:128 $  %FC1 +#+#+# SFST %FC2::RTE_6:5:32:128 644 0 0 20000 5310707321 33256 %FC2::RTE_6:5:32:128 $  %FC2 +#+#+# YS"FST %FC3::RTE_6:5:46:128 644 0 0 27000 5310707323 33543 %FC3::RTE_6:5:46:128 $..%FC3 +#+#+#.{SDFST %FC4::RTE_6:5:8:128 644 0 0 4000 5310707324 33241 %FC4::RTE_6:5:8:128 $%FC4 +#+#+#StFST %FC5::RTE_6:5:43:128 644 0 0 25400 5310707326 33170 %FC5::RTE_6:5:43:128 $++%FC5 +#+#+#+?mS~FST %FC6::RTE_6:5:5:80 644 0 0 2400 5310707327 32455 %FC6::RTE_6:5:5:80 $0P%FC6 +#+#+#SFST %DVS23::RTE_6:5:23:60 644 0 0 13400 5310707330 33432 %DVS23::RTE_6:5:23:60 $8<%DVS23 +#+#+# ]BSFST %6DP43::RTE_6:5:6:60 644 0 0 3000 5310707332 33267 %6DP43::RTE_6:5:6:60 $P<%6DP43 +#+#+#SFST %LUPRN::RTE_6:5:117:128 644 0 0 72400 5310707333 35143 %LUPRN::RTE_6:5:117:128 $uXu%LUPRN +#+#+#u:.SFST CMD.REL::RTE_6:5:72:128 644 0 0 44000 5310707335 35043 CMD.REL::RTE_6:5:72:128 $HHCMD REL +#+#+#H#TNFST GENIX.REL::RTE_6:5:59:128 644 0 0 35400 5310707336 35132 GENIX.REL::RTE_6:5:59:128 $;;GENIX REL +#+#+#;rtTFST KEYS.REL::RTE_6:5:68:128 644 0 0 42000 5310707340 35475 KEYS.REL::RTE_6:5:68:128 $DTDKEYS REL +#+#+#D!TFST KYDMP.REL::RTE_6:5:7:128 644 0 0 3400 5310707341 34420 KYDMP.REL::RTE_6:5:7:128 $KYDMP REL +#+#+#c UFST DV800_0.REL::RTE_6:5:35:128 644 0 0 21400 5310707342 34721 DV800_0.REL::RTE_6:5:35:128 $##DV800_0 REL +#+#+##AKU&FST DV800_1.REL::RTE_6:5:43:128 644 0 0 25400 5310707343 35160 DV800_1.REL::RTE_6:5:43:128 $++DV800_1 REL +#+#+#+iSULFST DVC00.REL::RTE_6:5:15:128 644 0 0 7400 5310707345 34434 DVC00.REL::RTE_6:5:15:128 $DVC00 REL +#+#+#=UzFST ((WHOSD.REL::RTE_6:5:49:128 644 0 0 30400 5310707346 34760 WHOSD.REL::RTE_6:5:49:128 $11WHOSD REL +#+#+#13^UFST %LGTAT::RTE_6:5:18:128 644 0 0 11000 5310707347 34255 %LGTAT::RTE_6:5:18:128 $4%LGTAT +#+#+#UFST %MLLDR::RTE_6:5:52:128 644 0 0 32000 5310707350 34443 %MLLDR::RTE_6:5:52:128 $4H4%MLLDR +#+#+#48UFST %M*LIB::RTE_6:5:53:128 644 0 0 32400 5310707352 33734 %M*LIB::RTE_6:5:53:128 $5|5%M*LIB +#+#+#5}8V FST %COMPL::RTE_6:5:28:128 644 0 0 16000 5310707353 34176 %COMPL::RTE_6:5:28:128 $%COMPL +#+#+# VBFST %CLOAD::RTE_6:5:33:128 644 0 0 20400 5310707354 34113 %CLOAD::RTE_6:5:33:128 $!!%CLOAD +#+#+#!P'V`FST %WHZAT::RTE_6:5:50:128 644 0 0 31000 5310707356 34714 %WHZAT::RTE_6:5:50:128 $22%WHZAT +#+#+#26VFST %T5IDM::RTE_6:5:36:128 644 0 0 22000 5310707360 34220 %T5IDM::RTE_6:5:36:128 $$0$%T5IDM +#+#+#$(VFST %READT::RTE_6:5:43:128 644 0 0 25400 5310707361 34273 %READT::RTE_6:5:43:128 $+T+%READT +#+#+#+GHVFST %WRITT::RTE_6:5:35:128 644 0 0 21400 5310707362 34230 %WRITT::RTE_6:5:35:128 $##%WRITT +#+#+##gFW FST %6DV37::RTE_6:5:28:60 644 0 0 16000 5310707363 33554 %6DV37::RTE_6:5:28:60 $<%6DV37 +#+#+# QW2FST %6DA37::RTE_6:5:20:60 644 0 0 12000 5310707364 33551 %6DA37::RTE_6:5:20:60 $<%6DA37 +#+#+# ;WPFST %$TA32::RTE_6:5:1:34 644 0 0 400 5310707365 33066 %$TA32::RTE_6:5:1:34 $"%$TA32 +#+#+#SWfFST %$TB32::RTE_6:5:1:35 644 0 0 400 5310707366 33111 %$TB32::RTE_6:5:1:35 $#%$TB32 +#+#+#TWjFST %DVA05::RTE_6:5:29:60 644 0 0 16400 5310707367 33757 %DVA05::RTE_6:5:29:60 $<%DVA05 +#+#+#fTWnFST %DVR00::RTE_6:5:11:60 644 0 0 5400 5310707372 33702 %DVR00::RTE_6:5:11:60 $  <%DVR00 +#+#+# g!WFST %DVM33::RTE_6:5:32:60 644 0 0 20000 5310707373 33710 %DVM33::RTE_6:5:32:60 $  <%DVM33 +#+#+# [WFST %DVN33::RTE_6:5:32:60 644 0 0 20000 5310707374 34022 %DVN33::RTE_6:5:32:60 $ ( <%DVN33 +#+#+# [WFST %$TM33::RTE_6:5:2:59 644 0 0 1000 5310707375 33316 %$TM33::RTE_6:5:2:59 $H;%$TM33 +#+#+#WFST PCOPY.REL::RTE_6:5:4:128 644 0 0 2000 5310707377 35204 PCOPY.REL::RTE_6:5:4:128 $LPCOPY REL +#+#+#WFST ((PSAVE.REL::RTE_6:5:10:128 644 0 0 5000 5310707400 34121 PSAVE.REL::RTE_6:5:10:128 $ P PSAVE REL +#+#+# WFST PRSTR.REL::RTE_6:5:9:128 644 0 0 4400 5310707401 33436 PRSTR.REL::RTE_6:5:9:128 $ \ PRSTR REL +#+#+# WFST PSPAR.REL::RTE_6:5:3:112 644 0 0 1400 5310707403 32753 PSPAR.REL::RTE_6:5:3:112 $hpPSPAR REL +#+#+#TXFST %DVA32::RTE_6:5:22:60 644 0 0 13000 5310707405 32113 %DVA32::RTE_6:5:22:60 $l<%DVA32 +#+#+# >XFST %DVC32::RTE_6:5:22:60 644 0 0 13000 5310707407 32211 %DVC32::RTE_6:5:22:60 $<%DVC32 +#+#+# >X FST %DVP32::RTE_6:5:22:60 644 0 0 13000 5310707410 32257 %DVP32::RTE_6:5:22:60 $<%DVP32 +#+#+# >X8FST %DVR32::RTE_6:5:22:60 644 0 0 13000 5310707412 32354 %DVR32::RTE_6:5:22:60 $<%DVR32 +# +# +#  >XPFST %DVR31::RTE_6:5:12:60 644 0 0 6000 5310707414 32320 %DVR31::RTE_6:5:12:60 $  <%DVR31 +# +# +# !XhFST %DVR33::RTE_6:5:11:60 644 0 0 5400 5310707416 32220 %DVR33::RTE_6:5:11:60 $  <%DVR33 +# +#+# !XvFST !BCKO1::RTE_6:7:247:128 644 0 0 173400 5310707417 34670 !BCKO1::RTE_6:7:247:128 $!BCKO1 +#+#+#{YXFST !BCKO2::RTE_6:7:17:128 644 0 0 10400 5310707420 32541 !BCKO2::RTE_6:7:17:128 $!BCKO2 +#+#+#[Y~FST !BCKO3::RTE_6:7:17:128 644 0 0 10400 5310707421 32620 !BCKO3::RTE_6:7:17:128 $!BCKO3 +#+#+#[YFST !BCKO4::RTE_6:7:17:128 644 0 0 10400 5310707422 32300 !BCKO4::RTE_6:7:17:128 $!BCKO4 +#+#+#[YFST !BCKO5::RTE_6:7:17:128 644 0 0 10400 5310707423 32357 !BCKO5::RTE_6:7:17:128 $!BCKO5 +#+#+#[YFST !BCKO6::RTE_6:7:17:128 644 0 0 10400 5310707425 32455 !BCKO6::RTE_6:7:17:128 $4!BCKO6 +#+#+#^YFST !BCKO7::RTE_6:7:17:128 644 0 0 10400 5310707426 32530 !BCKO7::RTE_6:7:17:128 $H!BCKO7 +#+#+#[YFST !BCKO8::RTE_6:7:17:128 644 0 0 10400 5310707427 32607 !BCKO8::RTE_6:7:17:128 $\!BCKO8 +#+#+#[YFST !BCKO9::RTE_6:7:17:128 644 0 0 10400 5310707430 32261 !BCKO9::RTE_6:7:17:128 $p!BCKO9 +#+#+#[Z FST !BCK10::RTE_6:7:17:128 644 0 0 10400 5310707431 32150 !BCK10::RTE_6:7:17:128 $!BCK10 +#+#+#[ZFST !BCK11::RTE_6:7:17:128 644 0 0 10400 5310707432 32227 !BCK11::RTE_6:7:17:128 $!BCK11 +#+#+#[Z2FST ((!BCK12::RTE_6:7:9:128 644 0 0 4400 5310707433 32115 !BCK12::RTE_6:7:9:128 $  !BCK12 +#+#+# 3 ZFFST !BCK13::RTE_6:7:10:128 644 0 0 5000 5310707434 32353 !BCK13::RTE_6:7:10:128 $  !BCK13 +#+#+#  ZRFST !BCK14::RTE_6:7:1:4 644 0 0 400 5310707436 31512 !BCK14::RTE_6:7:1:4 $!BCK14 +#+#+#Z^FST FORMT::RTE_6:6:61:128 644 0 0 36400 5310707437 33364 FORMT::RTE_6:6:61:128 $==FORMT +#+#+#==ZbFST PSPAR::RTE_6:6:99:128 644 0 0 61400 5310707440 33453 PSPAR::RTE_6:6:99:128 $ccPSPAR +#+# +# c1cZFST PRSTR::RTE_6:6:159:128 644 0 0 117400 5310707441 34165 PRSTR::RTE_6:6:159:128 $lPRSTR +# +#!+#!O[FST PCOPY::RTE_6:6:105:128 644 0 0 64400 5310707442 33571 PCOPY::RTE_6:6:105:128 $i iPCOPY +#"+#"+#"i4i[FST PSAVE::RTE_6:6:155:128 644 0 0 115400 5310707443 34052 PSAVE::RTE_6:6:155:128 $xPSAVE +##+##+##M\FST COMM.REL::RTE_6:5:4:60 644 0 0 2000 5310707445 33144 COMM.REL::RTE_6:5:4:60 $+#?+#?3bFST #FORMT::RTE_6:4:1:22 644 0 0 400 5310707501 32325 #FORMT::RTE_6:4:1:22 $#FORMT +#@+#A+#A1bFST SCOM.LOD::RTE_6:3:1:23 644 0 0 400 5310707502 32726 SCOM.LOD::RTE_6:3:1:23 $ SCOM LOD +#B+#B+#B2bFST #SWTCH::RTE_6:3:1:20 644 0 0 400 5310707504 32412 #SWTCH::RTE_6:3:1:20 $$#SWTCH +#C+#D+#DNbFST *STIME::RTE_6:4:7:36 644 0 0 3400 5310707506 32620 *STIME::RTE_6:4:7:36 $($*STIME +#F+#F+#F/GbFST #SGMTR::RTE_6:4:1:18 644 0 0 400 5310707510 32476 #SGMTR::RTE_6:4:1:18 $0#SGMTR +#H+#H+#H@ bFST "FCHLP::RTE_6:4:66:39 644 0 0 41000 5310707512 33551 "FCHLP::RTE_6:4:66:39 $B4B'"FCHLP +#J+#J+#JB bFST #FC6::RTE_6:3:5:33 644 0 0 2400 5310707514 31620 #FC6::RTE_6:3:5:33 $x!#FC6 +#K+#L+#LY$c"FST PCOPY.LOD::RTE_6:3:1:23 644 0 0 400 5310707515 33273 PCOPY.LOD::RTE_6:3:1:23 $PCOPY LOD +#M+#M+#Mzc*FST PSAVE.LOD::RTE_6:4:1:23 644 0 0 400 5310707517 33237 PSAVE.LOD::RTE_6:4:1:23 $PSAVE LOD +#N+#O+#Opc.FST PRSTR.LOD::RTE_6:4:1:23 644 0 0 400 5310707520 33365 PRSTR.LOD::RTE_6:4:1:23 $PRSTR LOD +#P+#P+#Pmc2FST PSPAR.LOD::RTE_6:3:1:23 644 0 0 400 5310707522 33313 PSPAR.LOD::RTE_6:3:1:23 $PSPAR LOD +#Q+#R+#Rvc6FST *BCKMT::RTE_6:4:4:31 644 0 0 2000 5310707523 32660 *BCKMT::RTE_6:4:4:31 $*BCKMT +#S+#S+#S#c:FST *PBULD::RTE_6:4:7:37 644 0 0 3400 5310707525 32606 *PBULD::RTE_6:4:7:37 $%*PBULD +#U+#U+#UJ5c@FST *BCKCT::RTE_6:4:5:32 644 0 0 2400 5310707527 32521 *BCKCT::RTE_6:4:5:32 $ *BCKCT +#V+#W+#WS)cJFST #MLLD6::RTE_6:3:2:35 644 0 0 1000 5310707530 32636 #MLLD6::RTE_6:3:2:35 $##MLLD6 +#X+#X+#XcRFST SEP.6::RTE_6:4:7:35 644 0 0 3400 5310707532 32426 SEP.6::RTE_6:4:7:35 $#SEP 6 +#Y+#Z+#ZycVFST ((#CI6::RTE_6:4:2:35 644 0 0 1000 5310707533 32263 #CI6::RTE_6:4:2:35 $##CI6 +#[+#[+#[c`FST #LINDX::RTE_6:4:1:22 644 0 0 400 5310707535 32523 #LINDX::RTE_6:4:1:22 $#LINDX +#]+#]+#]4cdFST #LINK::RTE_6:3:1:22 644 0 0 400 5310707537 32417 #LINK::RTE_6:3:1:22 $#LINK +#^+#_+#_qchFST #DSRTR::RTE_6:3:2:35 644 0 0 1000 5310707540 33103 #DSRTR::RTE_6:3:2:35 $##DSRTR +#_+#`+#`clFST #TRFAS::RTE_6:3:2:36 644 0 0 1000 5310707611 32431 #TRFAS::RTE_6:3:2:36 $$#TRFAS +#+#+#cpFST INCI.CMD::RTE_6:4:57:39 644 0 0 34400 5310707612 33312 INCI.CMD::RTE_6:4:57:39 $99'INCI CMD +#+#+#9 ctFST #SXREF::RTE_6:4:1:22 644 0 0 400 5310707614 32412 #SXREF::RTE_6:4:1:22 $D#SXREF +#+#+#d cFST #PRIN0::RTE_6:3:1:24 644 0 0 400 5310707616 32266 #PRIN0::RTE_6:3:1:24 $H#PRIN0 +#+#+#Y cFST #PRINT::RTE_6:4:1:24 644 0 0 400 5310707620 32452 #PRINT::RTE_6:4:1:24 $L#PRINT +#+#+#V cFST #RT6GN::RTE_6:3:1:19 644 0 0 400 5310707623 32344 #RT6GN::RTE_6:3:1:19 $d#RT6GN +#+#+#=cFST #PATH::RTE_6:4:1:21 644 0 0 400 5310707625 32227 #PATH::RTE_6:4:1:21 $h#PATH +#+#+#V cFST ]RT6OS::RTE_6:4:4:36 644 0 0 2000 5310707627 33330 ]RT6OS::RTE_6:4:4:36 $l$]RT6OS +#+#+#cFST ]RT6VM::RTE_6:4:4:36 644 0 0 2000 5310707631 33221 ]RT6VM::RTE_6:4:4:36 $p$]RT6VM +#+#+#cFST ]M^FFP::RTE_6:4:9:34 644 0 0 4400 5310707633 33244 ]M^FFP::RTE_6:4:9:34 $ t "]M^FFP +#+#+# ]/cFST ]E^FFP::RTE_6:4:10:37 644 0 0 5000 5310707635 33552 ]E^FFP::RTE_6:4:10:37 $  %]E^FFP +#+#+# 1cFST ]F^FFP::RTE_6:4:8:38 644 0 0 4000 5310707637 33542 ]F^FFP::RTE_6:4:8:38 $&]F^FFP +#+#+#)cFST ]F^FPB::RTE_6:4:11:38 644 0 0 5400 5310707641 33440 ]F^FPB::RTE_6:4:11:38 $  &]F^FPB +#+#+# q6cFST ]F^SIS::RTE_6:4:6:38 644 0 0 3000 5310707642 33254 ]F^SIS::RTE_6:4:6:38 $&]F^SIS +#+#+# dFST ]F^VIS::RTE_6:4:9:37 644 0 0 4400 5310707644 33177 ]F^VIS::RTE_6:4:9:37 $  %]F^VIS +#+#+# v)dFST LOAD6.CMD::RTE_6:4:58:39 644 0 0 35000 5310707646 34112 LOAD6.CMD::RTE_6:4:58:39 $::'LOAD6 CMD +#+#+#:dFST ((*MLLD6::RTE_6:4:3:33 644 0 0 1400 5310707647 32623 *MLLD6::RTE_6:4:3:33 $!*MLLD6 +#+#+#idPFST *DOSNP::RTE_6:4:22:38 644 0 0 13000 5310707650 33542 *DOSNP::RTE_6:4:22:38 $&*DOSNP +#+#+# dVFST #DRREL::RTE_6:3:1:15 644 0 0 400 5310707652 32202 #DRREL::RTE_6:3:1:15 $#DRREL +#+#+#(dnFST #DRRPL::RTE_6:3:1:15 644 0 0 400 5310707654 32253 #DRRPL::RTE_6:3:1:15 $#DRRPL +#+#+#!drFST "LUPRN::RTE_6:4:15:36 644 0 0 7400 5310707656 33060 "LUPRN::RTE_6:4:15:36 $$"LUPRN +#+#+#ZdvFST GENIX.LOD::RTE_6:4:1:24 644 0 0 400 5310707657 33210 GENIX.LOD::RTE_6:4:1:24 $,GENIX LOD +#+#+#<dFST M92084::RTE_6:3:16:38 644 0 0 10000 5310707661 32576 M92084::RTE_6:3:16:38 $0&M92084 +#+#+#=dFST A92084::RTE_6:4:119:39 644 0 0 73400 5310707663 33464 A92084::RTE_6:4:119:39 $w@w'A92084 +#+#+#w;adFST &C*TAB::RTE_6:4:26:34 644 0 0 15000 5310707665 33153 &C*TAB::RTE_6:4:26:34 $"&C*TAB +#+#+# eFST &$CMND::RTE_6:4:17:35 644 0 0 10400 5310707666 32757 &$CMND::RTE_6:4:17:35 $#&$CMND +#+#+#7e4FST &$TA32::RTE_6:4:8:33 644 0 0 4000 5310707670 32505 &$TA32::RTE_6:4:8:33 $!&$TA32 +#+#+#8eHFST &$TB32::RTE_6:4:8:33 644 0 0 4000 5310707671 32512 &$TB32::RTE_6:4:8:33 $!&$TB32 +#+#+#8eRFST &$TM33::RTE_6:4:14:37 644 0 0 7000 5310707672 33014 &$TM33::RTE_6:4:14:37 $%&$TM33 +#+#+#Je\FST %DVR23::RTE_6:5:12:60 644 0 0 6000 5310707674 32607 %DVR23::RTE_6:5:12:60 $  <%DVR23 +#+#+# $elFST FST.REL::RTE_6:5:90:128 644 0 0 55000 5310707676 34344 FST.REL::RTE_6:5:90:128 $ZZFST REL +#+#+#Z,ezFST FSTLIB.LIB::RTE_6:5:843:128 644 0 0 645400 5310707701 35247 FSTLIB.LIB::RTE_6:5:843:128 $KpKFSTLIB LIB +#+#+#KueFST $CRLIB::RTE_6:5:106:128 644 0 0 65000 5310707704 34320 $CRLIB::RTE_6:5:106:128 $jj$CRLIB +#+#+#j4i$FST TFLIB.LIB::RTE_6:5:522:128 644 0 0 405000 5310707706 34356 TFLIB.LIB::RTE_6:5:522:128 $ ( TFLIB LIB +#+#+# iFST DL.REL::RTE_6:5:102:128 644 0 0 63000 5310707711 34430 DL.REL::RTE_6:5:102:128 $f 4fDL REL +#+#+#f2kFST %FS000::RTE_6:5:2:71 644 0 0 1000 5310707713 32346 %FS000::RTE_6:5:2:71 $ G%FS000 +#+#+#lFST ((>FS000::RTE_6:1:86:128 644 0 0 53000 5310707715 33314 >FS000::RTE_6:1:86:128 $V V>FS000 +#+#+#V+VlFST FSTP.REL::RTE_6:5:131:128 644 0 0 101400 5310707720 35313 FSTP.REL::RTE_6:5:131:128 $ FSTP REL +#+#+#Aztl`FST %DL000::RTE_6:5:4:128 644 0 0 2000 5310707722 33123 %DL000::RTE_6:5:4:128 $ |%DL000 +#+#+#lFST CLOSE.REL::RTE_6:5:4:127 644 0 0 2000 5310707724 34450 CLOSE.REL::RTE_6:5:4:127 $ CLOSE REL +#+#+#lFST %CL000::RTE_6:5:2:114 644 0 0 1000 5310707726 33120 %CL000::RTE_6:5:2:114 $ r%CL000 +#+#+#lFST %CR000::RTE_6:5:10:128 644 0 0 5000 5310707731 33404 %CR000::RTE_6:5:10:128 $  %CR000 +#+#+# lFST %CI000::RTE_6:5:8:128 644 0 0 4000 5310707733 32662 %CI000::RTE_6:5:8:128 $ %CI000 +#+#+# mFST %CIX::RTE_6:5:13:127 644 0 0 6400 5310707735 32635 %CIX::RTE_6:5:13:127 $  %CIX +#+#+# Fm FST MPACK.REL::RTE_6:5:222:128 644 0 0 157000 5310707740 35777 MPACK.REL::RTE_6:5:222:128 $ MPACK REL +#+#+#nBmFST MPACK.R000::RTE_6:5:22:128 644 0 0 13000 5310707742 34524 MPACK.R000::RTE_6:5:22:128 $ MPACK R000+#+#+# mFST FVERI.REL::RTE_6:5:106:128 644 0 0 65000 5310707744 35220 FVERI.REL::RTE_6:5:106:128 $j jFVERI REL +#+#+#j4nFST %FV000::RTE_6:5:18:128 644 0 0 11000 5310707747 33146 %FV000::RTE_6:5:18:128 $ %FV000 +#+#+#nFST FPACK.REL::RTE_6:5:49:128 644 0 0 30400 5310707751 34440 FPACK.REL::RTE_6:5:49:128 $1 ,1FPACK REL +#+#+#1)nFST %FP000::RTE_6:5:2:72 644 0 0 1000 5310707753 32736 %FP000::RTE_6:5:2:72 $ `H%FP000 +#+#+#nFST TF.REL::RTE_6:5:33:128 644 0 0 20400 5310707756 34071 TF.REL::RTE_6:5:33:128 $! d!TF REL +#+#+#!1nFST >TF000::RTE_6:1:29:128 644 0 0 16400 5310707760 33610 >TF000::RTE_6:1:29:128 $ >TF000 +#+#+#nFST %CX000::RTE_6:5:2:104 644 0 0 1000 5310707762 32762 %CX000::RTE_6:5:2:104 $ h%CX000 +#+#+#oFST FOWN.REL::RTE_6:5:33:128 644 0 0 20400 5310707764 34227 FOWN.REL::RTE_6:5:33:128 $! !FOWN REL +#+#+#!MoFST FOWN.R000::RTE_6:5:3:128 644 0 0 1400 5310707766 33642 FOWN.R000::RTE_6:5:3:128 $ FOWN R000+#+#+#!o8FST %DSRTR::RTE_6:5:128:128 644 0 0 100000 5310707771 35162 %DSRTR::RTE_6:5:128:128 $ %DSRTR +#+#+#?o>FST ((CALLM.REL::RTE_6:5:22:128 644 0 0 13000 5310707773 34547 CALLM.REL::RTE_6:5:22:128 $ TCALLM REL +#+#+# oFST DL.LOD::RTE_6:3:2:33 644 0 0 1000 5310707775 33420 DL.LOD::RTE_6:3:2:33 $ l!DL LOD +#+#+#oFST FST.LOD::RTE_6:4:4:38 644 0 0 2000 5310710003 32520 FST.LOD::RTE_6:4:4:38 $ &FST LOD +#+#+#oFST FSTP.LOD::RTE_6:4:1:23 644 0 0 400 5310710005 32423 FSTP.LOD::RTE_6:4:1:23 $ FSTP LOD +#+#+#0oFST CLOSE.LOD::RTE_6:3:1:23 644 0 0 400 5310710007 32563 CLOSE.LOD::RTE_6:3:1:23 $ CLOSE LOD +#+#+#6oFST #CIX::RTE_6:4:3:31 644 0 0 1400 5310710013 31445 #CIX::RTE_6:4:3:31 $ #CIX +# +# +# ,oFST MPACK.LOD::RTE_6:4:1:23 644 0 0 400 5310710016 32617 MPACK.LOD::RTE_6:4:1:23 $ MPACK LOD +# +#+#?oFST FVERI.LOD::RTE_6:3:1:33 644 0 0 400 5310710020 33006 FVERI.LOD::RTE_6:3:1:33 $ !FVERI LOD +#+#+#r oFST FPACK.LOD::RTE_6:3:1:33 644 0 0 400 5310710022 32734 FPACK.LOD::RTE_6:3:1:33 $ !FPACK LOD +#+#+#{ oFST TF.LOD::RTE_6:3:4:33 644 0 0 2000 5310710024 32425 TF.LOD::RTE_6:3:4:33 $ !TF LOD +#+#+#oFST WHOSD.LOD::RTE_6:4:1:23 644 0 0 400 5310710027 32506 WHOSD.LOD::RTE_6:4:1:23 $ WHOSD LOD +#+#+#i pFST FOWN.LOD::RTE_6:3:1:33 644 0 0 400 5310710032 32374 FOWN.LOD::RTE_6:3:1:33 $ !FOWN LOD +#+#+#{ pFST PASCAL_FMGR.LIB::RTE_6:5:583:128 644 0 0 443400 5310710040 34632 PASCAL_FMGR.LIB::RTE_6:5:583:128 $G8GPASCAL_FMGR LIB +#+# +# G#9p FST PASCAL.LIB::RTE_6:5:586:128 644 0 0 445000 5310710043 34022 PASCAL.LIB::RTE_6:5:586:128 $JJPASCAL LIB +#"+##+##J$LrTFST PASCAL_ERR.REL::RTE_6:5:9:128 644 0 0 4400 5310710045 34501 PASCAL_ERR.REL::RTE_6:5:9:128 $  PASCAL_ERR REL +#%+#%+#% 'tFST PASCAL_FMGR_ALT.LIB::RTE_6:5:468:126 644 0 0 352000 5310710050 40273 PASCAL_FMGR_ALT.LIB::RTE_6:5:468:126 $$$~PASCAL_FMGR_ALT LIB +#'+#(+#(tFST SHSLB.LIB::RTE_6:5:18:126 644 0 0 11000 5310710052 33417 SHSLB.LIB::RTE_6:5:18:126 $~SHSLB LIB +#)+#*+#*<vFST SHSLB_ALT.LIB::RTE_6:5:14:126 644 0 0 7000 5310710054 34551 SHSLB_ALT.LIB::RTE_6:5:14:126 $~SHSLB_ALT LIB +#++#,+#,?vFST PASCAL_ERR_ALT.REL::RTE_6:5:9:60 644 0 0 4400 5310710056 35452 PASCAL_ERR_ALT.REL::RTE_6:5:9:60 $  +#?+#?$vFST /RTE_6/HELP/CL.HELP:::4:2:39 644 0 0 1000 5310707100 33636 /RTE_6/HELP/CL.HELP:::4:2:39 $T'CL HELP+#@+#@+#@vFST /RTE_6/HELP/CO.HELP:::4:25:39 644 0 0 14400 5310707102 34053 /RTE_6/HELP/CO.HELP:::4:25:39 $X'CO HELP+#B+#B+#B zvFST /RTE_6/HELP/CR.HELP:::4:8:39 644 0 0 4000 5310707104 34220 /RTE_6/HELP/CR.HELP:::4:8:39 $t'CR HELP+#D+#D+#D.vFST /RTE_6/HELP/CRDIR.HELP:::4:11:39 644 0 0 5400 5310707106 34637 /RTE_6/HELP/CRDIR.HELP:::4:11:39 $ | 'CRDIR HELP+#E+#F+#F >-vFST /RTE_6/HELP/DC.HELP:::4:4:39 644 0 0 2000 5310707110 33436 /RTE_6/HELP/DC.HELP:::4:4:39 $ψ'DC HELP+#G+#H+#HwFST /RTE_6/HELP/FREES.HELP:::4:25:39 644 0 0 14400 5310707112 34472 /RTE_6/HELP/FREES.HELP:::4:25:39 $ό'FREES HELP+#I+#J+#J {w FST /RTE_6/HELP/FVERI.HELP:::4:12:39 644 0 0 6000 5310707114 34745 /RTE_6/HELP/FVERI.HELP:::4:12:39 $ Ϩ 'FVERI HELP+#K+#L+#L ?w(FST /RTE_6/HELP/LI.HELP:::4:41:39 644 0 0 24400 5310707116 34413 /RTE_6/HELP/LI.HELP:::4:41:39 $)ϴ)'LI HELP+#M+#N+#N)iw6FST /RTE_6/HELP/MERGE.HELP:::4:19:39 644 0 0 11400 5310707117 34675 /RTE_6/HELP/MERGE.HELP:::4:19:39 $'MERGE HELP+#O+#O+#O _wbFST /RTE_6/HELP/MO.HELP:::4:9:39 644 0 0 4400 5310707121 34077 /RTE_6/HELP/MO.HELP:::4:9:39 $  'MO HELP+#Q+#Q+#Q O.wxFST /RTE_6/HELP/OWNER.HELP:::4:16:39 644 0 0 10000 5310707123 34646 /RTE_6/HELP/OWNER.HELP:::4:16:39 $'OWNER HELP+#S+#S+#SDwFST /RTE_6/HELP/PU.HELP:::3:10:39 644 0 0 5000 5310707124 34055 /RTE_6/HELP/PU.HELP:::3:10:39 $  'PU HELP+#T+#T+#T 4wFST /RTE_6/HELP/RN.HELP:::3:5:39 644 0 0 2400 5310707125 33626 /RTE_6/HELP/RN.HELP:::3:5:39 $'RN HELP+#U+#U+#UewFST /RTE_6/HELP/TR.HELP:::3:17:39 644 0 0 10400 5310707126 34015 /RTE_6/HELP/TR.HELP:::3:17:39 $$'TR HELP+#V+#V+#VTwFST /RTE_6/HELP/UNPU.HELP:::4:6:39 644 0 0 3000 5310707130 34474 /RTE_6/HELP/UNPU.HELP:::4:6:39 $8'UNPU HELP+#X+#X+#XwFST /RTE_6/HELP/VS.HELP:::4:4:39 644 0 0 2000 5310707132 34176 /RTE_6/HELP/VS.HELP:::4:4:39 $@'VS HELP+#Y+#Z+#ZwFST /RTE_6/HELP/WD.HELP:::3:10:39 644 0 0 5000 5310707133 34116 /RTE_6/HELP/WD.HELP:::3:10:39 $ D 'WD HELP+#[+#[+#[ ,wFST /RTE_6/HELP/XQ.HELP:::4:4:39 644 0 0 2000 5310707135 34266 /RTE_6/HELP/XQ.HELP:::4:4:39 $P'XQ HELP+#\+#]+#]wFST ((/RTE_6/HELP/??.HELP:::3:4:39 644 0 0 2000 5310707136 34011 /RTE_6/HELP/??.HELP:::3:4:39 $T'?? HELP+#]+#^+#^wFST /RTE_6/HELP/ECHO.HELP:::4:3:39 644 0 0 1400 5310707143 34415 /RTE_6/HELP/ECHO.HELP:::4:3:39 $d'ECHO HELP+#c+#c+#c{wFST /RTE_6/HELP/IF.HELP:::3:5:39 644 0 0 2400 5310707144 34100 /RTE_6/HELP/IF.HELP:::3:5:39 $h'IF HELP+#d+#d+#dz!wFST /RTE_6/HELP/IS.HELP:::3:6:39 644 0 0 3000 5310707145 34363 /RTE_6/HELP/IS.HELP:::3:6:39 $p'IS HELP+#e+#e+#e(wFST /RTE_6/HELP/SET.HELP:::3:4:39 644 0 0 2000 5310707146 34464 /RTE_6/HELP/SET.HELP:::3:4:39 $x'SET HELP+#f+#f+#fwFST /RTE_6/HELP/UNSET.HELP:::3:2:39 644 0 0 1000 5310707147 34522 /RTE_6/HELP/UNSET.HELP:::3:2:39 $|'UNSET HELP+#g+#g+#gxFST /RTE_6/HELP/WHILE.HELP:::3:7:39 644 0 0 3400 5310707150 34443 /RTE_6/HELP/WHILE.HELP:::3:7:39 $Ѐ'WHILE HELP+#h+#h+#hk'xFST /RTE_6/HELP/ASK.HELP:::3:14:39 644 0 0 7000 5310707155 34431 /RTE_6/HELP/ASK.HELP:::3:14:39 $А'ASK HELP+#l+#m+#mExFST /RTE_6/HELP/SCOM.HELP:::4:26:39 644 0 0 15000 5310707157 35131 /RTE_6/HELP/SCOM.HELP:::4:26:39 $Ф'SCOM HELP+#o+#o+#o xFST /RTE_6/HELP/MPACK.HELP:::4:27:39 644 0 0 15400 5310707162 35210 /RTE_6/HELP/MPACK.HELP:::4:27:39 $'MPACK HELP+#q+#r+#r bx:FST /RTE_6/HELP/STACK.HELP:::4:26:39 644 0 0 15000 5310707163 35447 /RTE_6/HELP/STACK.HELP:::4:26:39 $'STACK HELP+#r+#s+#s xXFST /RTE_6/HELP/POLL.HELP:::4:8:39 644 0 0 4000 5310707167 34403 /RTE_6/HELP/POLL.HELP:::4:8:39 $'POLL HELP+#v+#w+#w(xtFST /RTE_6/HELP/PWD.HELP:::4:1:39 644 0 0 400 5310707171 34035 /RTE_6/HELP/PWD.HELP:::4:1:39 $ 'PWD HELP+#x+#y+#yhx~FST /RTE_6/HELP/PATH.HELP:::3:22:39 644 0 0 13000 5310707176 35035 /RTE_6/HELP/PATH.HELP:::3:22:39 $8'PATH HELP+#}+#~+#~ |xFST /RTE_6/HELP/AG.HELP:::3:5:39 644 0 0 2400 5310707541 33777 /RTE_6/HELP/AG.HELP:::3:5:39 $'AG HELP+#`+#a+#a&xFST /RTE_6/HELP/AS.HELP:::3:4:39 644 0 0 2000 5310707542 34272 /RTE_6/HELP/AS.HELP:::3:4:39 $'AS HELP+#a+#b+#bxFST /RTE_6/HELP/BL.HELP:::3:6:39 644 0 0 3000 5310707543 34425 /RTE_6/HELP/BL.HELP:::3:6:39 $'BL HELP+#b+#c+#c#xFST /RTE_6/HELP/BR.HELP:::3:4:39 644 0 0 2000 5310707544 34310 /RTE_6/HELP/BR.HELP:::3:4:39 $'BR HELP+#d+#d+#dxFST /RTE_6/HELP/CN.HELP:::3:6:39 644 0 0 3000 5310707545 34337 /RTE_6/HELP/CN.HELP:::3:6:39 $'CN HELP+#e+#e+#exFST /RTE_6/HELP/CU.HELP:::3:4:39 644 0 0 2000 5310707546 34434 /RTE_6/HELP/CU.HELP:::3:4:39 $'CU HELP+#f+#f+#fxFST ((/RTE_6/HELP/DN.HELP:::3:5:39 644 0 0 2400 5310707547 34223 /RTE_6/HELP/DN.HELP:::3:5:39 $'DN HELP+#g+#g+#g2xFST /RTE_6/HELP/EQ.HELP:::3:6:39 644 0 0 3000 5310707550 34553 /RTE_6/HELP/EQ.HELP:::3:6:39 $'EQ HELP+#h+#h+#h/xFST /RTE_6/HELP/EX.HELP:::3:3:39 644 0 0 1400 5310707551 34413 /RTE_6/HELP/EX.HELP:::3:3:39 $'EX HELP+#i+#i+#iyxFST /RTE_6/HELP/FPACK.HELP:::4:33:39 644 0 0 20400 5310707552 35536 /RTE_6/HELP/FPACK.HELP:::4:33:39 $!!'FPACK HELP+#j+#j+#j!IxFST /RTE_6/HELP/GO.HELP:::3:5:39 644 0 0 2400 5310707553 33355 /RTE_6/HELP/GO.HELP:::3:5:39 $'GO HELP+#k+#k+#kxFST /RTE_6/HELP/HE.HELP:::3:6:39 644 0 0 3000 5310707555 33161 /RTE_6/HELP/HE.HELP:::3:6:39 $$'HE HELP+#l+#m+#myFST /RTE_6/HELP/IN.HELP:::4:7:39 644 0 0 3400 5310707556 33164 /RTE_6/HELP/IN.HELP:::4:7:39 $,'IN HELP+#m+#n+#nA%yFST /RTE_6/HELP/IT.HELP:::3:9:39 644 0 0 4400 5310707557 33324 /RTE_6/HELP/IT.HELP:::3:9:39 $ 4 'IT HELP+#n+#o+#o f/yFST /RTE_6/HELP/LINDX.HELP:::3:15:39 644 0 0 7400 5310707560 34146 /RTE_6/HELP/LINDX.HELP:::3:15:39 $@'LINDX HELP+#o+#p+#pNy$FST /RTE_6/HELP/LINK.HELP:::3:15:39 644 0 0 7400 5310707561 34136 /RTE_6/HELP/LINK.HELP:::3:15:39 $P'LINK HELP+#p+#q+#qjOy6FST /RTE_6/HELP/LU.HELP:::3:7:39 644 0 0 3400 5310707562 33465 /RTE_6/HELP/LU.HELP:::3:7:39 $`'LU HELP+#q+#r+#rd1yHFST /RTE_6/HELP/MC.HELP:::4:7:39 644 0 0 3400 5310707562 33336 /RTE_6/HELP/MC.HELP:::4:7:39 $h'MC HELP+#r+#r+#r9"yRFST /RTE_6/HELP/OF.HELP:::3:4:39 644 0 0 2000 5310707563 33630 /RTE_6/HELP/OF.HELP:::3:4:39 $p'OF HELP+#s+#s+#sy\FST /RTE_6/HELP/ON.HELP:::3:6:39 644 0 0 3000 5310707564 33621 /RTE_6/HELP/ON.HELP:::3:6:39 $t'ON HELP+#t+#t+#tybFST /RTE_6/HELP/PR.HELP:::3:4:39 644 0 0 2000 5310707566 33671 /RTE_6/HELP/PR.HELP:::3:4:39 $|'PR HELP+#u+#v+#vyjFST /RTE_6/HELP/PROT.HELP:::3:16:39 644 0 0 10000 5310707567 34601 /RTE_6/HELP/PROT.HELP:::3:16:39 $'PROT HELP+#v+#w+#wUypFST /RTE_6/HELP/QU.HELP:::3:7:39 644 0 0 3400 5310707570 33643 /RTE_6/HELP/QU.HELP:::3:7:39 $'QU HELP+#w+#x+#xI0yFST /RTE_6/HELP/RP.HELP:::3:5:39 644 0 0 2400 5310707571 33541 /RTE_6/HELP/RP.HELP:::3:5:39 $'RP HELP+#x+#y+#y"yFST /RTE_6/HELP/RU.HELP:::3:14:39 644 0 0 7000 5310707572 34245 /RTE_6/HELP/RU.HELP:::3:14:39 $'RU HELP+#y+#z+#zFyFST /RTE_6/HELP/SL.HELP:::3:7:39 644 0 0 3400 5310707573 33773 /RTE_6/HELP/SL.HELP:::3:7:39 $'SL HELP+#{+#{+#{c,yFST ((/RTE_6/HELP/SS.HELP:::3:4:39 644 0 0 2000 5310707574 34173 /RTE_6/HELP/SS.HELP:::3:4:39 $'SS HELP+#|+#|+#|yFST /RTE_6/HELP/ST.HELP:::3:8:39 644 0 0 4000 5310707576 34347 /RTE_6/HELP/ST.HELP:::3:8:39 $'ST HELP+#}+#~+#~?yFST /RTE_6/HELP/SZ.HELP:::3:5:39 644 0 0 2400 5310707577 34002 /RTE_6/HELP/SZ.HELP:::3:5:39 $'SZ HELP+#~+#+#$yFST /RTE_6/HELP/TI.HELP:::3:3:39 644 0 0 1400 5310707600 33747 /RTE_6/HELP/TI.HELP:::3:3:39 $'TI HELP+#+#+#AyFST /RTE_6/HELP/TM.HELP:::3:5:39 644 0 0 2400 5310707601 33745 /RTE_6/HELP/TM.HELP:::3:5:39 $'TM HELP+#+#+#yFST /RTE_6/HELP/TO.HELP:::4:8:39 644 0 0 4000 5310707602 34406 /RTE_6/HELP/TO.HELP:::4:8:39 $'TO HELP+#+#+#(yFST /RTE_6/HELP/UL.HELP:::3:2:39 644 0 0 1000 5310707603 34316 /RTE_6/HELP/UL.HELP:::3:2:39 $'UL HELP+#+#+#yFST /RTE_6/HELP/UP.HELP:::3:3:39 644 0 0 1400 5310707604 34041 /RTE_6/HELP/UP.HELP:::3:3:39 $'UP HELP+#+#+#%yFST /RTE_6/HELP/UR.HELP:::3:3:39 644 0 0 1400 5310707605 34173 /RTE_6/HELP/UR.HELP:::3:3:39 $'UR HELP+#+#+#hyFST /RTE_6/HELP/WH.HELP:::3:6:39 644 0 0 3000 5310707607 34335 /RTE_6/HELP/WH.HELP:::3:6:39 $'WH HELP+#+#+#yFST /RTE_6/HELP/WS.HELP:::3:5:39 644 0 0 2400 5310707610 34114 /RTE_6/HELP/WS.HELP:::3:5:39 $'WS HELP+#+#+#yFST /RTE_6/HELP/PRINT.HELP:::3:19:39 644 0 0 11400 5310707622 35036 /RTE_6/HELP/PRINT.HELP:::3:19:39 $P'PRINT HELP+#+#+# `yFST /RTE_6/HELP/DL.HELP:::4:34:39 644 0 0 21000 5310707777 35040 /RTE_6/HELP/DL.HELP:::4:34:39 $" p"'DL HELP+#+#+#"zFST /RTE_6/HELP/MASK.HELP:::4:43:39 644 0 0 25400 5310710000 33750 /RTE_6/HELP/MASK.HELP:::4:43:39 $+ +'MASK HELP+#+#+#+ z8FST /RTE_6/HELP/CLOSE.HELP:::4:4:39 644 0 0 2000 5310710011 33750 /RTE_6/HELP/CLOSE.HELP:::4:4:39 $ 'CLOSE HELP+#+# +# zfFST /RTE_6/HELP/WHOSD.HELP:::4:14:38 644 0 0 7000 5310710030 34463 /RTE_6/HELP/WHOSD.HELP:::4:14:38 $ &WHOSD HELP+#+#+#SzlFST /RTE_6/HELP/FOWN.HELP:::4:7:39 644 0 0 3400 5310710033 33655 /RTE_6/HELP/FOWN.HELP:::4:7:39 $ 'FOWN HELP+#+#+# z|FST /RTE_6/HELP/CALLS.HELP:::4:36:39 644 0 0 22000 5310710034 34437 /RTE_6/HELP/CALLS.HELP:::4:36:39 $$$'CALLS HELP+#+#+#$zFST /RTE_6/HELP/CALLM.HELP:::4:14:39 644 0 0 7000 5310710036 34234 /RTE_6/HELP/CALLM.HELP:::4:14:39 $('CALLM HELP+#+#+#\zFST HPHPHP::DS1000:4:24:34 644 0 0 14400 5302765453 31531 HPHPHP::DS1000:4:24:34 $ G"@3HPHPHP + +$s;+ +0 2vzFST (($DSLB1::DS1000:5:46:128 644 0 0 27000 5302722230 33623 $DSLB1::DS1000:5:46:128 $. G.$DSLB1 + + + .zFST $DSLB2::DS1000:5:69:128 644 0 0 42400 5302722231 32700 $DSLB2::DS1000:5:69:128 $E H(E$DSLB2 + + + E" {FST $DSLB3::DS1000:5:8:60 644 0 0 4000 5302722233 32356 $DSLB3::DS1000:5:8:60 $ Hp<$DSLB3 + + + {PFST $DSMA::DS1000:5:31:60 644 0 0 17400 5302722235 32436 $DSMA::DS1000:5:31:60 $ Hx<$DSMA + + + 4\{ZFST $DSNMA::DS1000:5:2:38 644 0 0 1000 5302722236 32511 $DSNMA::DS1000:5:2:38 $ H&$DSNMA + + + {|FST $DSNRR::DS1000:5:2:43 644 0 0 1000 5302722240 32577 $DSNRR::DS1000:5:2:43 $ H+$DSNRR + + + {FST $DSNSM::DS1000:5:2:38 644 0 0 1000 5302722242 32747 $DSNSM::DS1000:5:2:38 $ H&$DSNSM + + +  {FST $DSRR::DS1000:5:29:60 644 0 0 16400 5302722244 32712 $DSRR::DS1000:5:29:60 $ H<$DSRR + + + v{FST $DSSM::DS1000:5:85:128 644 0 0 52400 5302722245 33643 $DSSM::DS1000:5:85:128 $U HU$DSSM + + + U*X{FST $DSLSM::DS1000:5:66:128 644 0 0 41000 5302722246 33404 $DSLSM::DS1000:5:66:128 $B IB$DSLSM + + + B x|FST $D3KL2::DS1000:5:2:43 644 0 0 1000 5302722250 32247 $D3KL2::DS1000:5:2:43 $ I`+$D3KL2 + + +  |DFST $D3KLB::DS1000:5:102:128 644 0 0 63000 5302722251 33632 $D3KLB::DS1000:5:102:128 $f Idf$D3KLB + + + f2|HFST $D3KRB::DS1000:5:3:42 644 0 0 1400 5302722253 32512 $D3KRB::DS1000:5:3:42 $ I*$D3KRB + + + N|FST $D3KBB::DS1000:5:3:42 644 0 0 1400 5302722255 32453 $D3KBB::DS1000:5:3:42 $ I*$D3KBB + + + N|FST $D3KMB::DS1000:5:3:42 644 0 0 1400 5302722257 32536 $D3KMB::DS1000:5:3:42 $ I*$D3KMB + + + N|FST $DSMX6::DS1000:5:32:128 644 0 0 20000 5302722260 33576 $DSMX6::DS1000:5:32:128 $ I $DSMX6 + + + ^|FST $DSAL::DS1000:5:32:128 644 0 0 20000 5302722261 33543 $DSAL::DS1000:5:32:128 $ I $DSAL + + + p|FST $D3X25::DS1000:5:13:60 644 0 0 6400 5302722263 32066 $D3X25::DS1000:5:13:60 $ J <$D3X25 + + + `1}FST $D3N25::DS1000:5:2:36 644 0 0 1000 5302722265 31772 $D3N25::DS1000:5:2:36 $ J($$D3N25 + + + }FST %APLDL::DS1000:5:4:127 644 0 0 2000 5302722266 32574 %APLDL::DS1000:5:4:127 $ J,%APLDL + + + }FST ((%CNSLM::DS1000:5:4:60 644 0 0 2000 5302722270 32461 %CNSLM::DS1000:5:4:60 $ J0<%CNSLM + + +  } FST %COMND::DS1000:5:5:60 644 0 0 2400 5302722272 32315 %COMND::DS1000:5:5:60 $ J4<%COMND + + + T}&FST %DINIT::DS1000:5:46:128 644 0 0 27000 5302722273 33334 %DINIT::DS1000:5:46:128 $. J<.%DINIT + + + .K}.FST %DINIS::DS1000:5:52:128 644 0 0 32000 5302722274 33602 %DINIS::DS1000:5:52:128 $4 Jl4%DINIS + + + 4S}^FST %DLIS1::DS1000:5:13:60 644 0 0 6400 5302722275 32571 %DLIS1::DS1000:5:13:60 $ J <%DLIS1 + + + }FST %DLIS2::DS1000:5:12:60 644 0 0 6000 5302722277 33101 %DLIS2::DS1000:5:12:60 $ J <%DLIS2 + + + }FST %DSINF::DS1000:5:74:128 644 0 0 45000 5302722300 34142 %DSINF::DS1000:5:74:128 $J JJ%DSINF + + + J$Z}FST %DSIN2::DS1000:5:66:128 644 0 0 41000 5302722301 33553 %DSIN2::DS1000:5:66:128 $B KB%DSIN2 + + + B P}FST %DSINL::DS1000:5:69:128 644 0 0 42400 5302722302 33472 %DSINL::DS1000:5:69:128 $E KLE%DSINL + + + E"T~BFST %DSMOD::DS1000:5:38:128 644 0 0 23000 5302722303 33505 %DSMOD::DS1000:5:38:128 $& K&%DSMOD + + + &.~FST %DSTES::DS1000:5:2:60 644 0 0 1000 5302722305 33200 %DSTES::DS1000:5:2:60 $ K<%DSTES + + + ~FST %DSVCP::DS1000:5:16:128 644 0 0 10000 5302722306 33617 %DSVCP::DS1000:5:16:128 $ K%DSVCP + + + &~FST %DVA65::DS1000:5:15:60 644 0 0 7400 5302722310 32740 %DVA65::DS1000:5:15:60 $ K<%DVA65 + + + *~FST %DVA66::DS1000:5:27:60 644 0 0 15400 5302722312 33325 %DVA66::DS1000:5:27:60 $ K<%DVA66 + + +  zO~FST %DVG67::DS1000:5:26:60 644 0 0 15000 5302722314 33162 %DVG67::DS1000:5:26:60 $ L<%DVG67 + + +  :~FST %MDV00::DS1000:5:11:60 644 0 0 5400 5302722316 32201 %MDV00::DS1000:5:11:60 $ L <%MDV00 + + + .FST %EXECM::DS1000:5:17:128 644 0 0 10400 5302722317 32617 %EXECM::DS1000:5:17:128 $ L,%EXECM + + + "FST %EXECW::DS1000:5:6:60 644 0 0 3000 5302722320 32745 %EXECW::DS1000:5:6:60 $ L@<%EXECW + + + 6FST %GRPM::DS1000:5:15:128 644 0 0 7400 5302722322 32547 %GRPM::DS1000:5:15:128 $ LH%GRPM + + +  >FST %ID*66::DS1000:5:27:60 644 0 0 15400 5302722323 32457 %ID*66::DS1000:5:27:60 $ LX<%ID*66 + + +  :PPFST ((%INCNV::DS1000:5:10:60 644 0 0 5000 5302722325 33073 %INCNV::DS1000:5:10:60 $ Lt <%INCNV + + + nFST %IOMAP::DS1000:5:6:128 644 0 0 3000 5302722326 33240 %IOMAP::DS1000:5:6:128 $ L%IOMAP + + +  zFST %LOG3K::DS1000:5:16:60 644 0 0 10000 5302722330 33106 %LOG3K::DS1000:5:16:60 $ L<%LOG3K + + + ,FST %LUMAP::DS1000:5:10:60 644 0 0 5000 5302722332 33276 %LUMAP::DS1000:5:10:60 $ L <%LUMAP + + + FST %LUQUE::DS1000:5:3:60 644 0 0 1400 5302722334 33164 %LUQUE::DS1000:5:3:60 $ L<%LUQUE + + + i FST %MATIC::DS1000:5:5:60 644 0 0 2400 5302722335 33113 %MATIC::DS1000:5:5:60 $ L<%MATIC + + + yFST %OPERL::DS1000:5:6:60 644 0 0 3000 5302722337 33326 %OPERL::DS1000:5:6:60 $ L<%OPERL + + + FST %OPERM::DS1000:5:3:60 644 0 0 1400 5302722341 33066 %OPERM::DS1000:5:3:60 $ L<%OPERM + + + FST %OTCNV::DS1000:5:7:60 644 0 0 3400 5302722343 33322 %OTCNV::DS1000:5:7:60 $ L<%OTCNV + + + `FST %PLOG::DS1000:5:18:128 644 0 0 11000 5302722344 33521 %PLOG::DS1000:5:18:128 $ L%PLOG + + + FST %PROGL::DS1000:5:14:128 644 0 0 7000 5302722345 34100 %PROGL::DS1000:5:14:128 $ L%PROGL + + + FST %PTOPM::DS1000:5:8:60 644 0 0 4000 5302722347 33705 %PTOPM::DS1000:5:8:60 $ L<%PTOPM + + + FST %QCLM::DS1000:5:18:128 644 0 0 11000 5302722350 33603 %QCLM::DS1000:5:18:128 $ L%QCLM + + + FST %QUEUE::DS1000:5:4:60 644 0 0 2000 5302722352 32612 %QUEUE::DS1000:5:4:60 $ M<%QUEUE + + +  FST %QUEX::DS1000:5:21:60 644 0 0 12400 5302722354 32537 %QUEX::DS1000:5:21:60 $ M<%QUEX + + +  %<FST %QUEX1::DS1000:5:13:128 644 0 0 6400 5302722355 33047 %QUEX1::DS1000:5:13:128 $ M %QUEX1 + + + f&FST %QUEZ::DS1000:5:2:59 644 0 0 1000 5302722357 32667 %QUEZ::DS1000:5:2:59 $ M0;%QUEZ + + + 6FST %QUEZ1::DS1000:5:2:60 644 0 0 1000 5302722361 33031 %QUEZ1::DS1000:5:2:60 $ M4<%QUEZ1 + + + :FST %REMAN::DS1000:5:42:128 644 0 0 25000 5302722362 33631 %REMAN::DS1000:5:42:128 $* M8*%REMAN + + + *:>FST %RESM::DS1000:5:12:60 644 0 0 6000 5302722364 33216 %RESM::DS1000:5:12:60 $ Ml <%RESM + + + %jFST ((%RESSM::DS1000:5:13:60 644 0 0 6400 5302722366 33360 %RESSM::DS1000:5:13:60 $ Mx <%RESSM + + + })xFST %RFAM1::DS1000:5:10:60 644 0 0 5000 5302722371 33152 %RFAM1::DS1000:5:10:60 $ M <%RFAM1 + + + FST %RFAM2::DS1000:5:29:60 644 0 0 16400 5302722373 33310 %RFAM2::DS1000:5:29:60 $ M<%RFAM2 + + + (QFST %RMOTE::DS1000:5:22:128 644 0 0 13000 5302722374 34031 %RMOTE::DS1000:5:22:128 $ M%RMOTE + + +  FST %RMOT1::DS1000:5:40:128 644 0 0 24000 5302722375 34240 %RMOT1::DS1000:5:40:128 $( M(%RMOT1 + + + (:FST %RMTIO::DS1000:5:12:60 644 0 0 6000 5302722377 34074 %RMTIO::DS1000:5:12:60 $ M <%RMTIO + + + "FST %RPCNV::DS1000:5:12:128 644 0 0 6000 5302722400 32156 %RPCNV::DS1000:5:12:128 $ N %RPCNV + + + FST %RQCNV::DS1000:5:20:128 644 0 0 12000 5302722401 32007 %RQCNV::DS1000:5:20:128 $ N %RQCNV + + +  FST %RSM::DS1000:5:14:128 644 0 0 7000 5302722402 31420 %RSM::DS1000:5:14:128 $ N %RSM + + + (FST %RTRY::DS1000:5:4:60 644 0 0 2000 5302722404 31352 %RTRY::DS1000:5:4:60 $ N0<%RTRY + + +  8FST %SLCIN::DS1000:5:19:60 644 0 0 11400 5302722406 31437 %SLCIN::DS1000:5:19:60 $ N4<%SLCIN + + +  )>FST %TLOG::DS1000:5:49:128 644 0 0 30400 5302722410 31775 %TLOG::DS1000:5:49:128 $1 NH1%TLOG + + + 1MTFST %TRC3K::DS1000:5:51:128 644 0 0 31400 5302722411 32247 %TRC3K::DS1000:5:51:128 $3 N|3%TRC3K + + + 3:=FST %UPLIN::DS1000:5:12:128 644 0 0 6000 5302722412 32555 %UPLIN::DS1000:5:12:128 $ N %UPLIN + + + FST %VCPMN::DS1000:5:3:60 644 0 0 1400 5302722414 32057 %VCPMN::DS1000:5:3:60 $ N<%VCPMN + + + ^ FST %SYSAT::DS1000:5:3:128 644 0 0 1400 5302722415 32254 %SYSAT::DS1000:5:3:128 $ N%SYSAT + + + 4FST %#SEND::DS1000:5:5:60 644 0 0 2400 5302722417 31544 %#SEND::DS1000:5:5:60 $ N<%#SEND + + +  FST %MVCP3::DS1000:5:13:127 644 0 0 6400 5302722421 32215 %MVCP3::DS1000:5:13:127 $ N %MVCP3 + + +   'FST !COPY3::DS1000:1:48:128 644 0 0 30000 5302722422 32500 !COPY3::DS1000:1:48:128 $0 N0!COPY3 + + + 00FST %#SPLU::DS1000:5:1:40 644 0 0 400 5302722424 31077 %#SPLU::DS1000:5:1:40 $ O (%#SPLU + + + A"FST ((%PROGZ::DS1000:5:15:128 644 0 0 7400 5302722425 32031 %PROGZ::DS1000:5:15:128 $ O%PROGZ + + + }&FST %SGXL::DS1000:5:6:60 644 0 0 3000 5302722427 31356 %SGXL::DS1000:5:6:60 $ O <%SGXL + + + 8FST %EDI6D::DS1000:5:41:60 644 0 0 24400 5302722431 31630 %EDI6D::DS1000:5:41:60 $) O()<%EDI6D + + + )[X@FST %DVS64::DS1000:5:25:60 644 0 0 14400 5302722433 31601 %DVS64::DS1000:5:25:60 $ OT<%DVS64 + + +  :lFST %IDS64::DS1000:5:24:60 644 0 0 14000 5302722435 32010 %IDS64::DS1000:5:24:60 $ Op<%IDS64 + + +  DFST %FCL7::DS1000:5:7:60 644 0 0 3400 5302722440 31413 %FCL7::DS1000:5:7:60 $ O<%FCL7 + + + AFST %DSLIN::DS1000:5:81:128 644 0 0 50400 5302722441 33117 %DSLIN::DS1000:5:81:128 $Q OQ%DSLIN + + !+ !Q(MFST %CSV66::DS1000:5:16:128 644 0 0 10000 5302722442 32301 %CSV66::DS1000:5:16:128 $ O%CSV66 + !+ "+ "FST %CXL66::DS1000:5:17:128 644 0 0 10400 5302722443 32065 %CXL66::DS1000:5:17:128 $ O%CXL66 + "+ #+ #JFST %RESA::DS1000:5:15:128 644 0 0 7400 5302722445 31505 %RESA::DS1000:5:15:128 $ P%RESA + $+ %+ %R&FST %ADV00::DS1000:5:13:128 644 0 0 6400 5302722446 31424 %ADV00::DS1000:5:13:128 $ P %ADV00 + &+ &+ & 48FST %DDA66::DS1000:5:18:60 644 0 0 11000 5302722450 31532 %DDA66::DS1000:5:18:60 $ P0<%DDA66 + (+ (+ (4HFST %MDFCL::DS1000:5:42:128 644 0 0 25000 5302722452 32347 %MDFCL::DS1000:5:42:128 $* PD*%MDFCL + *+ *+ **1\FST %DVB65::DS1000:5:15:60 644 0 0 7400 5302722454 31652 %DVB65::DS1000:5:15:60 $ Pp<%DVB65 + ++ ,+ ,A,FST %WHZ6D::DS1000:5:51:128 644 0 0 31400 5302722456 32612 %WHZ6D::DS1000:5:51:128 $3 P3%WHZ6D + -+ .+ .3m7FST #RMOTM::DS1000:4:8:36 644 0 0 4000 5302722457 32572 #RMOTM::DS1000:4:8:36 $ P$#RMOTM + /+ /+ /.FST #RMOTA::DS1000:4:8:35 644 0 0 4000 5302722461 32514 #RMOTA::DS1000:4:8:35 $ P##RMOTA + 0+ 1+ 1-FST #LKDS::DS1000:4:1:23 644 0 0 400 5302722463 31710 #LKDS::DS1000:4:1:23 $ P#LKDS + 2+ 3+ 3N FST *LDDS::DS1000:4:30:39 644 0 0 17000 5302722464 33014 *LDDS::DS1000:4:30:39 $ P'*LDDS + 3+ 4+ 4FST LINK2::DS1000:4:7:39 644 0 0 3400 5302722466 31610 LINK2::DS1000:4:7:39 $ P'LINK2 + 5+ 6+ 6&FST ((Y.CMD::DS1000:4:36:52 644 0 0 22000 5302722467 32602 Y.CMD::DS1000:4:36:52 $$ P$4Y CMD + 6+ 7+ 7$FST YES::DS1000:4:36:52 644 0 0 22000 5302722470 32124 YES::DS1000:4:36:52 $$ Q$4YES + 7+ 8+ 8$8FST NO::DS1000:4:3:39 644 0 0 1400 5302722471 30702 NO::DS1000:4:3:39 $ Q8'NO + 9+ 9+ 9 ^FST N.CMD::DS1000:4:3:39 644 0 0 1400 5302722473 31304 N.CMD::DS1000:4:3:39 $ Q<'N CMD + :+ ;+ ; dFST README::DS1000:4:16:39 644 0 0 10000 5302722475 32321 README::DS1000:4:16:39 $ Q@'README + <+ =+ =?jFST A91750.MNF::DS1000:4:9:39 644 0 0 4400 5302722476 32262 A91750.MNF::DS1000:4:9:39 $ QP 'A91750 MNF + =+ >+ > H%|FST A91750::DS1000:4:36:39 644 0 0 22000 5302722477 32217 A91750::DS1000:4:36:39 $$ Q\$'A91750 + >+ ?+ ?${FST /X25/ADM/HPHPHP:::4:15:34 644 0 0 10000 5303117317 32121 /X25/ADM/HPHPHP:::4:15:34 $ A"HPHPHP + P+$w2+ IFST /X25/ADM/M91751:::4:6:39 644 0 0 3000 5302751242 32757 /X25/ADM/M91751:::4:6:39 $ T 'M91751 + ҡ+ Ң+ ҢFST /X25/ADM/A91751:::4:22:39 644 0 0 13000 5302751243 33227 /X25/ADM/A91751:::4:22:39 $ T('A91751 + Ң+ ң+ ң [FST /X25/CMD/X25.CMD:::4:13:39 644 0 0 6400 5302751170 33302 /X25/CMD/X25.CMD:::4:13:39 $ S4 'X25 CMD + w+ x+ x q;FST /X25/CMD/XLOEF.X25:::3:10:37 644 0 0 5000 5302751171 34200 /X25/CMD/XLOEF.X25:::3:10:37 $ SD %XLOEF X25 + y+ y+ y `FST /X25/CMD/DLOEF.X25:::3:11:38 644 0 0 5400 5302751172 34024 /X25/CMD/DLOEF.X25:::3:11:38 $ SP &DLOEF X25 + z+ z+ z `iFST /X25/CMD/XLOOA.X25:::3:10:38 644 0 0 5000 5302751173 33670 /X25/CMD/XLOOA.X25:::3:10:38 $ S\ &XLOOA X25 + {+ {+ { ^ FST /X25/CMD/DLOOA.X25:::3:11:38 644 0 0 5400 5302751175 33534 /X25/CMD/DLOOA.X25:::3:11:38 $ Sh &DLOOA X25 + |+ }+ } [iFST /X25/CMD/INSTALL_X25A.CMD:::4:34:39 644 0 0 21000 5302751176 36116 /X25/CMD/INSTALL_X25A.CMD:::4:34:39 ##$" St"'INSTALL_X25A CMD + }+ ~+ ~"$FST /X25/CMD/Y.CMD:::4:2:39 644 0 0 1000 5302751177 32754 /X25/CMD/Y.CMD:::4:2:39 $ S'Y CMD + + + HFST /X25/CMD/YES.CMD:::4:2:39 644 0 0 1000 5302751201 33371 /X25/CMD/YES.CMD:::4:2:39 $ S'YES CMD + Ҁ+ ҁ+ ҁLFST /X25/CMD/N.CMD:::4:3:39 644 0 0 1400 5302751202 32505 /X25/CMD/N.CMD:::4:3:39 $ S'N CMD + ҂+ ҂+ ҂ PFST /X25/CMD/NO.CMD:::4:3:39 644 0 0 1400 5302751204 32744 /X25/CMD/NO.CMD:::4:3:39 $ S'NO CMD + ҃+ ҄+ ҄ VFST ((/X25/CMD/TESTERROR.CMD:::4:11:39 644 0 0 5400 5302751205 35112 /X25/CMD/TESTERROR.CMD:::4:11:39 $ S 'TESTERROR CMD + ҅+ ҅+ ҅ )\FST /X25/CMD/X25.LOD:::4:15:39 644 0 0 7400 5302751207 33453 /X25/CMD/X25.LOD:::4:15:39 $ S'X25 LOD + ҆+ ҇+ ҇Q^jFST /X25/CMD/XINIT.LOD:::4:2:38 644 0 0 1000 5302751210 34221 /X25/CMD/XINIT.LOD:::4:2:38 $ S&XINIT LOD + ҈+ ҈+ ҈|FST /X25/CMD/XPLOG.LOD:::4:1:38 644 0 0 400 5302751212 34124 /X25/CMD/XPLOG.LOD:::4:1:38 $ S&XPLOG LOD + ҉+ Ҋ+ Ҋp FST /X25/CMD/XTLOG.LOD:::4:1:39 644 0 0 400 5302751213 34166 /X25/CMD/XTLOG.LOD:::4:1:39 $ S'XTLOG LOD + Ҋ+ ҋ+ ҋw FST /X25/CMD/XINFO.LOD:::4:2:34 644 0 0 1000 5302751214 34226 /X25/CMD/XINFO.LOD:::4:2:34 $ S"XINFO LOD + Ҍ+ Ҍ+ ҌFST /X25/CMD/XMOD.LOD:::4:1:33 644 0 0 400 5302751216 33742 /X25/CMD/XMOD.LOD:::4:1:33 $ S!XMOD LOD + ҍ+ Ҏ+ Ҏ} FST /X25/CMD/GENPK.LOD:::4:1:34 644 0 0 400 5302751217 34105 /X25/CMD/GENPK.LOD:::4:1:34 $ S"GENPK LOD + ҏ+ ҏ+ ҏx FST /X25/CMD/LAPBV.LOD:::4:2:37 644 0 0 1000 5302751221 34162 /X25/CMD/LAPBV.LOD:::4:2:37 $ S%LAPBV LOD + Ґ+ ґ+ ґ FST /X25/CMD/XNET.LOD:::4:2:33 644 0 0 1000 5302751222 34131 /X25/CMD/XNET.LOD:::4:2:33 $ S!XNET LOD + Ғ+ Ғ+ ҒFST /X25/CMD/XREAD.LOD:::4:1:39 644 0 0 400 5302751223 34136 /X25/CMD/XREAD.LOD:::4:1:39 $ S'XREAD LOD + ғ+ ғ+ ғe FST /X25/CMD/XWRIT.LOD:::4:1:38 644 0 0 400 5302751225 34310 /X25/CMD/XWRIT.LOD:::4:1:38 $ S&XWRIT LOD + Ҕ+ ҕ+ ҕHFST /X25/CMD/SRVEY.LOD:::4:2:33 644 0 0 1000 5302751226 34432 /X25/CMD/SRVEY.LOD:::4:2:33 $ S!SRVEY LOD + Җ+ Җ+ Җ FST /X25/CMD/?XINIT.HLP:::4:13:39 644 0 0 6400 5302751230 34641 /X25/CMD/?XINIT.HLP:::4:13:39 $ S '?XINIT HLP + Ҙ+ Ҙ+ Ҙ *DFST /X25/CMD/?XPLOG.HLP:::4:9:39 644 0 0 4400 5302751233 34173 /X25/CMD/?XPLOG.HLP:::4:9:39 $ T '?XPLOG HLP + Қ+ қ+ қ "(FST /X25/CMD/?XTLOG.HLP:::4:9:39 644 0 0 4400 5302751235 34366 /X25/CMD/?XTLOG.HLP:::4:9:39 $ T '?XTLOG HLP + Ҝ+ ҝ+ ҝ g2FST /X25/CMD/?XINFO.HLP:::3:2:39 644 0 0 1000 5302751237 34441 /X25/CMD/?XINFO.HLP:::3:2:39 $ T'?XINFO HLP + Ҟ+ ҟ+ ҟ FST /X25/CMD/?XMOD.HLP:::4:2:39 644 0 0 1000 5302751241 34236 /X25/CMD/?XMOD.HLP:::4:2:39 $ T'?XMOD HLP + Ҡ+ ҡ+ ҡ FST /X25/REL/X25LB.LIB:::5:81:128 644 0 0 50400 5302751121 34522 /X25/REL/X25LB.LIB:::5:81:128 $Q AQX25LB LIB + Q+ Q+ QQ(FST /X25/REL/X25DS.LIB:::5:38:128 644 0 0 23000 5302751122 34374 /X25/REL/X25DS.LIB:::5:38:128 $& A&X25DS LIB + R+ R+ R&m,FST ((/X25/REL/DVX00.REL:::5:36:128 644 0 0 22000 5302751124 34015 /X25/REL/DVX00.REL:::5:36:128 $$ B$DVX00 REL + S+ T+ T$/TFST /X25/REL/DDX60.REL:::5:13:128 644 0 0 6400 5302751125 33503 /X25/REL/DDX60.REL:::5:13:128 $ B< DDX60 REL + T+ U+ U RzFST /X25/REL/#X25T.REL:::5:3:62 644 0 0 1400 5302751127 33101 /X25/REL/#X25T.REL:::5:3:62 $ BL>#X25T REL + W+ W+ WFST /X25/REL/DDX00.REL:::5:47:128 644 0 0 27400 5302751130 33717 /X25/REL/DDX00.REL:::5:47:128 $/ BP/DDX00 REL + W+ X+ X/7FST /X25/REL/DD*60.REL:::5:15:128 644 0 0 7400 5302751131 33530 /X25/REL/DD*60.REL:::5:15:128 $ BDD*60 REL + Y+ Y+ YJFST /X25/REL/CSTB.REL:::5:1:60 644 0 0 400 5302751133 33504 /X25/REL/CSTB.REL:::5:1:60 $ B2FST /X25/REL/GENPK.REL:::5:53:128 644 0 0 32400 5302751162 34437 /X25/REL/GENPK.REL:::5:53:128 $5 Gl5GENPK REL + q+ r+ r5CXZFST /X25/REL/SRVEY.REL:::5:46:128 644 0 0 27000 5302751163 35214 /X25/REL/SRVEY.REL:::5:46:128 $. G.SRVEY REL + r+ s+ s.NFST /X25/REL/CSPAD.REL:::5:10:128 644 0 0 5000 5302751164 34257 /X25/REL/CSPAD.REL:::5:10:128 $ S CSPAD REL + s+ t+ t FST /X25/REL/CVPAD.REL:::5:10:128 644 0 0 5000 5302751165 34372 /X25/REL/CVPAD.REL:::5:10:128 $ S( CVPAD REL + t+ u+ u FST /X25/REL/X25NONCDS.REL:::5:1:69 644 0 0 400 5302751166 35060 /X25/REL/X25NONCDS.REL:::5:1:69 $ GEX25NONCDS REL + v+ v+ v[FST /X25/TXT/CSTB.MAC:::3:11:35 644 0 0 5400 5302751245 34042 /X25/TXT/CSTB.MAC:::3:11:35 $ T@ #CSTB MAC + Ҥ+ ҥ+ ҥ >FST HPHPHP::RJE:4:9:34 644 0 0 4400 5300434145 32300 HPHPHP::RJE:4:9:34 $ @ "HPHPHP +0+$v+8e S.FST RJELB.LIB::RJE:5:60:128 644 0 0 36000 5300430347 33771 RJELB.LIB::RJE:5:60:128 $< L<RJELB LIB +0+0+0<FST RJE.REL::RJE:5:66:128 644 0 0 41000 5300430350 33431 RJE.REL::RJE:5:66:128 $B BRJE REL +0+0+0B 6FST RINIT.REL::RJE:5:107:128 644 0 0 65400 5300430352 34131 RINIT.REL::RJE:5:107:128 $k kRINIT REL +0+0+0k5-zFST RJEXX.REL::RJE:5:153:128 644 0 0 114400 5300430353 34645 RJEXX.REL::RJE:5:153:128 $ 8RJEXX REL +0+0+0L*FST CON.REL::RJE:5:32:128 644 0 0 20000 5300430355 33276 CON.REL::RJE:5:32:128 $  CON REL +0+0+0 WFST RJTAB.REL::RJE:5:1:65 644 0 0 400 5300430356 33130 RJTAB.REL::RJE:5:1:65 $ ARJTAB REL +0+0+0jFST FMT.REL::RJE:5:13:127 644 0 0 6400 5300430360 33074 FMT.REL::RJE:5:13:127 $  FMT REL +0+0+0 SFST ROUTE.REL::RJE:5:40:128 644 0 0 24000 5300430362 33572 ROUTE.REL::RJE:5:40:128 $( (ROUTE REL +0+0+0(RFST DDD63.REL::RJE:5:4:128 644 0 0 2000 5300430363 32737 DDD63.REL::RJE:5:4:128 $ 0DDD63 REL +0+0+0FST AMERI.REL::RJE:5:4:127 644 0 0 2000 5300430365 33263 AMERI.REL::RJE:5:4:127 $ 4AMERI REL +0+0+0FST CANAD.REL::RJE:5:4:127 644 0 0 2000 5300430367 33204 CANAD.REL::RJE:5:4:127 $ 8CANAD REL +0+0+0FST DANIS.REL::RJE:5:4:127 644 0 0 2000 5300430370 33317 DANIS.REL::RJE:5:4:127 $ <DANIS REL +0+0+0FST ((DUTCH.REL::RJE:5:4:127 644 0 0 2000 5300430372 33373 DUTCH.REL::RJE:5:4:127 $ @DUTCH REL +0+0+0FST ENGLI.REL::RJE:5:4:127 644 0 0 2000 5300430374 32764 ENGLI.REL::RJE:5:4:127 $ DENGLI REL +0+0+0FST FINNI.REL::RJE:5:4:127 644 0 0 2000 5300430376 33025 FINNI.REL::RJE:5:4:127 $ HFINNI REL +0+0+0FST FRENC.REL::RJE:5:4:127 644 0 0 2000 5300430407 31437 FRENC.REL::RJE:5:4:127 $ LFRENC REL +1+1+1FST GERMA.REL::RJE:5:4:127 644 0 0 2000 5300430411 31452 GERMA.REL::RJE:5:4:127 $ PGERMA REL +1+1 +1 FST ITALI.REL::RJE:5:4:127 644 0 0 2000 5300430413 31522 ITALI.REL::RJE:5:4:127 $ TITALI REL +1 +1 +1 FST NORWE.REL::RJE:5:4:127 644 0 0 2000 5300430415 31655 NORWE.REL::RJE:5:4:127 $ XNORWE REL +1 +1 +1  FST PORTU.REL::RJE:5:4:127 644 0 0 2000 5300430417 31754 PORTU.REL::RJE:5:4:127 $ \PORTU REL +1+1+1&FST SPANI.REL::RJE:5:4:127 644 0 0 2000 5300430421 31631 SPANI.REL::RJE:5:4:127 $ `SPANI REL +1+1+1,FST SWEDI.REL::RJE:5:4:127 644 0 0 2000 5300430422 31653 SWEDI.REL::RJE:5:4:127 $ dSWEDI REL +1+1+12FST KATAK.REL::RJE:5:4:127 644 0 0 2000 5300430424 31615 KATAK.REL::RJE:5:4:127 $ hKATAK REL +1+1+18FST NATIV.REL::RJE:5:4:127 644 0 0 2000 5300430426 31742 NATIV.REL::RJE:5:4:127 $ lNATIV REL +1+1+1>FST DDV63.REL::RJE:5:2:95 644 0 0 1000 5300430430 31353 DDV63.REL::RJE:5:2:95 $ p_DDV63 REL +1+1+1DFST RJE.HELP::RJE:4:5:39 644 0 0 2400 5300430432 31204 RJE.HELP::RJE:4:5:39 $ t'RJE HELP+1+1+1VHFST RJE.CMD::RJE:4:5:39 644 0 0 2400 5300430443 31051 RJE.CMD::RJE:4:5:39 $ |'RJE CMD +1!+1#+1#c$PFST STD3780.TXT::RJE:4:8:38 644 0 0 4000 5300430445 32075 STD3780.TXT::RJE:4:8:38 $ &STD3780 TXT +1$+1%+1%XFST RJE.LOD::RJE:4:1:25 644 0 0 400 5300430446 31025 RJE.LOD::RJE:4:1:25 $ RJE LOD +1%+1&+1&Y bFST CON.PAS::RJE:4:40:38 644 0 0 24000 5300430451 31714 CON.PAS::RJE:4:40:38 $( (&CON PAS +1(+1)+1)(fFST FMT.FTN::RJE:4:43:39 644 0 0 25400 5300430453 32142 FMT.FTN::RJE:4:43:39 $+ +'FMT FTN +1*+1++1++FST STAT.FTN::RJE:4:20:36 644 0 0 12000 5300430455 32341 STAT.FTN::RJE:4:20:36 $ $STAT FTN +1,+1-+1- vFST ((ROUTE.PAS::RJE:4:90:34 644 0 0 55000 5300430456 33053 ROUTE.PAS::RJE:4:90:34 $Z Z"ROUTE PAS +1.+1.+1.Z,FST RJE.DAT::RJE:4:137:36 644 0 0 104400 5300430460 32112 RJE.DAT::RJE:4:137:36 $ \$RJE DAT +1/+10+10D h0FST A91781::RJE:4:14:39 644 0 0 7000 5300430462 31373 A91781::RJE:4:14:39 $ 'A91781 +11+4r+123FST /PCIF/AB/HPHPHP:::4:8:34 644 0 0 4000 5303165641 33245 /PCIF_AB/AB/HPHPHP:::4:8:34 $ ["HPHPHP + +$v+ *FST /PCIF/AB/$ABLIB:::5:47:128 644 0 0 27400 5303156022 33101 /PCIF_AB/AB/$ABLIB:::5:47:128 $/ [/$ABLIB + + + /FST /PCIF/AB/$ABLBC:::5:51:128 644 0 0 31400 5303156023 32646 /PCIF_AB/AB/$ABLBC:::5:51:128 $3 [83$ABLBC + + + 3FST /PCIF/AB/%PCPAB:::5:89:128 644 0 0 54400 5303156025 33465 /PCIF_AB/AB/%PCPAB:::5:89:128 $Y [lY%PCPAB + + + Y,^x>FST /PCIF/AB/%PCHAB:::5:47:128 644 0 0 27400 5303156034 33345 /PCIF_AB/AB/%PCHAB:::5:47:128 $/ [/%PCHAB + + + /,JFST /PCIF/AB/!PCFAB:::4:47:36 644 0 0 27400 5303156036 33427 /PCIF_AB/AB/!PCFAB:::4:47:36 $/ [/$!PCFAB + + + /1FST /PCIF/AB/%ABUP:::5:29:127 644 0 0 16400 5303156037 33062 /PCIF_AB/AB/%ABUP:::5:29:127 $ \(%ABUP + + + 9:FST /PCIF/AB/%ABDN:::5:32:127 644 0 0 20000 5303156040 32572 /PCIF_AB/AB/%ABDN:::5:32:127 $ \H %ABDN + + + @FST /PCIF/AB/%ABTST:::5:12:128 644 0 0 6000 5303156042 33145 /PCIF_AB/AB/%ABTST:::5:12:128 $ \h %ABTST + !+ "+ " "@FST /PCIF/AB/%PCPAC:::5:116:128 644 0 0 72000 5303156044 34234 /PCIF_AB/AB/%PCPAC:::5:116:128 $t \tt%PCPAC + #+ $+ $t9NFST /PCIF/AB/%PCHAC:::5:59:128 644 0 0 35400 5303156045 33677 /PCIF_AB/AB/%PCHAC:::5:59:128 $; \;%PCHAC + %+ %+ %;WWFST /PCIF/AB/%PCCHA:::5:15:128 644 0 0 7400 5303156046 32542 /PCIF_AB/AB/%PCCHA:::5:15:128 $ ]$%PCCHA + &+ &+ &uFST /PCIF/AB/%PCP2B:::5:54:128 644 0 0 33000 5303156050 33114 /PCIF_AB/AB/%PCP2B:::5:54:128 $6 ]46%PCP2B + '+ (+ (6QFST /PCIF/AB/%PCP2C:::5:67:128 644 0 0 41400 5303156051 33211 /PCIF_AB/AB/%PCP2C:::5:67:128 $C ]lC%PCP2C + )+ )+ )C!^LFST /PCIF/AB/*AB:::4:12:45 644 0 0 6000 5303156052 32302 /PCIF_AB/AB/*AB:::4:12:45 $ ] -*AB + *+ *+ * 5FST /PCIF/AB/#ABUP:::4:2:26 644 0 0 1000 5303156053 32663 /PCIF_AB/AB/#ABUP:::4:2:26 $ ]#ABUP + ++ ++ + FST /PCIF/AB/#ABDN:::4:2:26 644 0 0 1000 5303156054 32610 /PCIF_AB/AB/#ABDN:::4:2:26 $ ]#ABDN + ,+ ,+ , FST ((/PCIF/AB/#ABTST:::4:2:28 644 0 0 1000 5303156056 33236 /PCIF_AB/AB/#ABTST:::4:2:28 $ ]#ABTST + -+ .+ .FST /PCIF/AB/!PCCA6:::3:12:107 644 0 0 6000 5303156057 33226 /PCIF_AB/AB/!PCCA6:::3:12:107 $ ] k!PCCA6 + .+ /+ / )FST /PCIF/AB/"PCCA6:::4:6:39 644 0 0 3000 5303156070 33004 /PCIF_AB/AB/"PCCA6:::4:6:39 $ ]'"PCCA6 + 7+ 8+ 8FST /PCIF/AB/A94202:::4:13:39 644 0 0 6400 5303156071 32552 /PCIF_AB/AB/A94202:::4:13:39 $ ] 'A94202 + 9+ 9+ 9 .FST /PCIF/AB/[PCPAB:::4:3:33 644 0 0 1400 5303156073 33312 /PCIF_AB/AB/[PCPAB:::4:3:33 $ ]![PCPAB + :+ ;+ ;>FST /PCIF/AB/[PCHAB:::4:3:36 644 0 0 1400 5303156073 33346 /PCIF_AB/AB/[PCHAB:::4:3:36 $ ]$[PCHAB + ;+ ;+ ;^FST /PCIF/AB/&ABUP:::4:104:39 644 0 0 64000 5303156075 34132 /PCIF_AB/AB/&ABUP:::4:104:39 $h ]h'&ABUP + <+ =+ =h32FST /PCIF/AB/&ABDN:::4:108:39 644 0 0 66000 5303156076 33434 /PCIF_AB/AB/&ABDN:::4:108:39 $l ^\l'&ABDN + =+ >+ >l5XHFST /PCIF/AB/&ABTST:::4:33:39 644 0 0 20400 5303156100 33554 /PCIF_AB/AB/&ABTST:::4:33:39 $! ^!'&ABTST + ?+ @+ @!FST /PCIF/AB/&ABLIB:::4:151:39 644 0 0 113400 5303156102 34454 /PCIF_AB/AB/&ABLIB:::4:151:39 $ ^'&ABLIB + A+ B+ BKKFST /PCIF/AB/[PCPAC:::4:3:33 644 0 0 1400 5303156102 33032 /PCIF_AB/AB/[PCPAC:::4:3:33 $ _![PCPAC + B+ B+ B>tFST /PCIF/AB/[PCHAC:::4:3:36 644 0 0 1400 5303156103 33071 /PCIF_AB/AB/[PCHAC:::4:3:36 $ _$[PCHAC + C+ C+ C^zFST /PCIF/AB/&ABLBC:::4:151:39 644 0 0 113400 5303156104 34151 /PCIF_AB/AB/&ABLBC:::4:151:39 $ _'&ABLBC + D+ D+ DKIFST /PCIF/AB/[PCP2B:::4:3:33 644 0 0 1400 5303156105 32536 /PCIF_AB/AB/[PCP2B:::4:3:33 $ `,![PCP2B + E+ E+ EVFST /PCIF/AB/[PCP2C:::4:3:33 644 0 0 1400 5303156106 32557 /PCIF_AB/AB/[PCP2C:::4:3:33 $ `0![PCP2C + F+ F+ FV FST /PCIF/GM/HPHPHP:::4:7:34 644 0 0 3400 5303174330 33105 /PCIF_GM/GM/HPHPHP:::4:7:34 $ `D"HPHPHP + +$v+ S#&FST /PCIF/GM/GMLBC.LIB:::5:44:127 644 0 0 26000 5303173435 34147 /PCIF_GM/GM/GMLBC.LIB:::5:44:127  $, `L,GMLBC LIB + + + ,O0FST /PCIF/GM/GMUP.REL:::5:160:128 644 0 0 120000 5303173436 35266 /PCIF_GM/GM/GMUP.REL:::5:160:128  $ `xGMUP REL + + + OW^FST /PCIF/GM/GMDN.REL:::5:208:128 644 0 0 150000 5303173437 35336 /PCIF_GM/GM/GMDN.REL:::5:208:128  $ aGMDN REL + + + gFST /PCIF/GM/GMUP0.REL:::5:28:127 644 0 0 16000 5303173440 34630 /PCIF_GM/GM/GMUP0.REL:::5:28:127  $ aGMUP0 REL + + +  1FST ((/PCIF/GM/GMDN0.REL:::5:38:127 644 0 0 23000 5303173442 34366 /PCIF_GM/GM/GMDN0.REL:::5:38:127  $& b&GMDN0 REL + !+ "+ "&@FST /PCIF/GM/PCPGC.REL:::5:180:128 644 0 0 132000 5303173443 35470 /PCIF_GM/GM/PCPGC.REL:::5:180:128 !$ b,PCPGC REL + "+ #+ #YFST /PCIF/GM/PCHGC.REL:::5:179:128 644 0 0 131400 5303173444 36132 /PCIF_GM/GM/PCHGC.REL:::5:179:128 !$ bPCHGC REL + $+ $+ $YAFST /PCIF/GM/PCC06.REL:::5:22:128 644 0 0 13000 5303173445 34143 /PCIF_GM/GM/PCC06.REL:::5:22:128  $ cPCC06 REL + %+ %+ % FST /PCIF/GM/PCC10.REL:::5:10:128 644 0 0 5000 5303173447 34071 /PCIF_GM/GM/PCC10.REL:::5:10:128  $ c PCC10 REL + &+ '+ ' FST /PCIF/GM/GMUP.LOD:::4:2:28 644 0 0 1000 5303173450 34046 /PCIF_GM/GM/GMUP.LOD:::4:2:28 $ cGMUP LOD + '+ (+ ( FST /PCIF/GM/GMDN.LOD:::4:2:27 644 0 0 1000 5303173451 33740 /PCIF_GM/GM/GMDN.LOD:::4:2:27 $ cGMDN LOD + )+ )+ ) FST /PCIF/GM/GM.CMD:::4:11:45 644 0 0 5400 5303173453 33326 /PCIF_GM/GM/GM.CMD:::4:11:45 $ c -GM CMD + *+ ++ + O4FST /PCIF/GM/PCC06.FRM:::3:13:75 644 0 0 6400 5303173454 34003 /PCIF_GM/GM/PCC06.FRM:::3:13:75 $ c KPCC06 FRM + ++ ,+ , )+FST /PCIF/GM/PCC06.HLP:::4:5:39 644 0 0 2400 5303173455 33736 /PCIF_GM/GM/PCC06.HLP:::4:5:39 $ c'PCC06 HLP + ,+ -+ -YFST /PCIF/GM/PCC10.FRM:::3:8:75 644 0 0 4000 5303173456 34222 /PCIF_GM/GM/PCC10.FRM:::3:8:75 $ cKPCC10 FRM + .+ .+ ."FST /PCIF/GM/PCC10.HLP:::4:5:39 644 0 0 2400 5303173460 33770 /PCIF_GM/GM/PCC10.HLP:::4:5:39 $ c'PCC10 HLP + /+ 0+ 0ZFST /PCIF/GM/A94203.SNF:::4:11:39 644 0 0 5400 5303173461 33734 /PCIF_GM/GM/A94203.SNF:::4:11:39  $ c 'A94203 SNF + 0+ 1+ 1 (FST /PCIF/GM/GMUP.PAS:::4:266:39 644 0 0 205000 5303173462 34526 /PCIF_GM/GM/GMUP.PAS:::4:266:39 $ d 'GMUP PAS + 1+ 2+ 2 sFST /PCIF/GM/GMDN.PAS:::4:320:39 644 0 0 240000 5303173464 34562 /PCIF_GM/GM/GMDN.PAS:::4:320:39 $@ e @'GMDN PAS + 3+ 4+ 4@FST /PCIF/GM/GMLBC.FTN:::4:52:39 644 0 0 32000 5303173465 34254 /PCIF_GM/GM/GMLBC.FTN:::4:52:39 $4 fL4'GMLBC FTN + 4+ 5+ 544DFST /PCIF/GM/GMUP0.PAS:::4:35:39 644 0 0 21400 5303173466 34501 /PCIF_GM/GM/GMUP0.PAS:::4:35:39 $# f#'GMUP0 PAS + 5+ 6+ 6#^zFST /PCIF/GM/GMDN0.PAS:::4:50:39 644 0 0 31000 5303173467 34400 /PCIF_GM/GM/GMDN0.PAS:::4:50:39 $2 f2'GMDN0 PAS + 7+ 7+ 72%FST /PCIF/GM/[PCHGC:::4:2:22 644 0 0 1000 5303173471 33715 /PCIF_GM/GM/[PCHGC:::4:2:22 $ f[PCHGC + 8+ 9+ 9 FST /PCIF/GM/[PCPGC:::4:3:22 644 0 0 1400 5303173472 33517 /PCIF_GM/GM/[PCPGC:::4:3:22 $ f[PCPGC + 9+ :+ :0FST ((/PCIF/F1000/HPHPHP:::4:28:34 644 0 0 16000 5303666171 34206 /PCIF_GEN/F1000/HPHPHP:::4:28:34  $ "HPHPHP +iW+$vb+ly sFST /PCIF/F1000/FLULB.LIB:::5:277:128 644 0 0 212400 5303664744 35315 /PCIF_GEN/F1000/FLULB.LIB:::5:277:128 !%$ 8FLULB LIB +i+i+iiFST /PCIF/F1000/FOFLL.LIB:::5:100:128 644 0 0 62000 5303664745 35211 /PCIF_GEN/F1000/FOFLL.LIB:::5:100:128 !%$d PdFOFLL LIB +i+i+id1FST /PCIF/F1000/FOPRL.LIB:::5:109:128 644 0 0 66400 5303664747 35664 /PCIF_GEN/F1000/FOPRL.LIB:::5:109:128 !%$m mFOPRL LIB +i+i+im6zFST /PCIF/F1000/FRULB.LIB:::5:26:128 644 0 0 15000 5303664750 35150 /PCIF_GEN/F1000/FRULB.LIB:::5:26:128 $$ $FRULB LIB +i+i+i EFST /PCIF/F1000/FOBLK.REL:::5:6:65 644 0 0 3000 5303664752 34257 /PCIF_GEN/F1000/FOBLK.REL:::5:6:65 "$ @AFOBLK REL +i+i+i FST /PCIF/F1000/FOCLO.REL:::5:53:128 644 0 0 32400 5303664753 35222 /PCIF_GEN/F1000/FOCLO.REL:::5:53:128 $$5 H5FOCLO REL +i+i+i5EFST /PCIF/F1000/FUSE9.REL:::5:2:48 644 0 0 1000 5303664754 34527 /PCIF_GEN/F1000/FUSE9.REL:::5:2:48 "$ 0FUSE9 REL +i+i+iFFST /PCIF/F1000/FCOMM.REL:::5:1:61 644 0 0 400 5303664756 34357 /PCIF_GEN/F1000/FCOMM.REL:::5:1:61 "$ =FCOMM REL +i+i+i{JFST /PCIF/F1000/FOLCL.TXT:::4:28:39 644 0 0 16000 5303664760 35322 /PCIF_GEN/F1000/FOLCL.TXT:::4:28:39 #$ 'FOLCL TXT +i+i+i NFST /PCIF/PCIFGEN/"CDSLB:::4:31:39 644 0 0 17400 5303664531 33613 /PCIF_GEN/PCIFGEN/"CDSLB:::4:31:39 "$ '"CDSLB +iY+iY+iY lFST /PCIF/PCIFGEN/PCGEN.LIB:::5:235:128 644 0 0 165400 5303664535 36603 /PCIF_GEN/PCIFGEN/PCGEN.LIB:::5:235:128 #'$ PCGEN LIB +i\+i]+i]uWFST /PCIF/PCIFGEN/PCCON.REL:::5:21:128 644 0 0 12400 5303664540 34620 /PCIF_GEN/PCIFGEN/PCCON.REL:::5:21:128 "&$ PPCCON REL +i_+i`+i` S#|FST /PCIF/PCIFGEN/PCCLI.REL:::5:49:128 644 0 0 30400 5303664541 35103 /PCIF_GEN/PCIFGEN/PCCLI.REL:::5:49:128 "&$1 h1PCCLI REL +ia+ia+ia1_7FST /PCIF/PCIFGEN/PCCT1.REL:::5:27:128 644 0 0 15400 5303664543 35007 /PCIF_GEN/PCIFGEN/PCCT1.REL:::5:27:128 "&$ PCCT1 REL +ib+ic+ic J#FST /PCIF/PCIFGEN/PCCT2.REL:::5:21:128 644 0 0 12400 5303664544 35070 /PCIF_GEN/PCIFGEN/PCCT2.REL:::5:21:128 "&$ PCCT2 REL +id+id+id cFST /PCIF/PCIFGEN/PCCT3.REL:::5:27:128 644 0 0 15400 5303664546 35127 /PCIF_GEN/PCIFGEN/PCCT3.REL:::5:27:128 "&$ PCCT3 REL +ie+if+if "FST /PCIF/PCIFGEN/PCCT4.REL:::5:18:128 644 0 0 11000 5303664547 35067 /PCIF_GEN/PCIFGEN/PCCT4.REL:::5:18:128 "&$ PCCT4 REL +ig+ig+igFST /PCIF/PCIFGEN/PCCT5.REL:::5:33:128 644 0 0 20400 5303664551 34331 /PCIF_GEN/PCIFGEN/PCCT5.REL:::5:33:128 "&$! !PCCT5 REL +ih+ii+ii!!(0FST /PCIF/PCIFGEN/PCCT7.REL:::5:25:128 644 0 0 14400 5303664553 34452 /PCIF_GEN/PCIFGEN/PCCT7.REL:::5:25:128 "&$ $PCCT7 REL +ij+ik+ik :!TFST ((/PCIF/PCIFGEN/PCCT8.REL:::5:18:128 644 0 0 11000 5303664554 34770 /PCIF_GEN/PCIFGEN/PCCT8.REL:::5:18:128 "&$ @PCCT8 REL +ik+il+ilpFST /PCIF/PCIFGEN/PCCT9.REL:::5:48:128 644 0 0 30000 5303664556 35235 /PCIF_GEN/PCIFGEN/PCCT9.REL:::5:48:128 "&$0 T0PCCT9 REL +im+in+in0:FST /PCIF/PCIFGEN/PCC11.REL:::5:38:128 644 0 0 23000 5303664557 35074 /PCIF_GEN/PCIFGEN/PCC11.REL:::5:38:128 "&$& &PCC11 REL +in+io+io&/FST /PCIF/PCIFGEN/PCCCP.REL:::5:39:128 644 0 0 23400 5303664561 35342 /PCIF_GEN/PCIFGEN/PCCCP.REL:::5:39:128 "&$' 'PCCCP REL +ip+iq+iq'p-FST /PCIF/PCIFGEN/PCFOI.REL:::5:40:128 644 0 0 24000 5303664562 35414 /PCIF_GEN/PCIFGEN/PCFOI.REL:::5:40:128 "&$( (PCFOI REL +iq+ir+ir(FST /PCIF/PCIFGEN/PCCUT.REL:::5:13:128 644 0 0 6400 5303664564 34743 /PCIF_GEN/PCIFGEN/PCCUT.REL:::5:13:128 "&$  PCCUT REL +is+it+it 2FST /PCIF/PCIFGEN/PCMUX.REL:::5:5:127 644 0 0 2400 5303664565 34411 /PCIF_GEN/PCIFGEN/PCMUX.REL:::5:5:127 !%$  PCMUX REL +it+iu+iu1BFST /PCIF/PCIFGEN/PCS0C.REL:::5:8:128 644 0 0 4000 5303664567 34503 /PCIF_GEN/PCIFGEN/PCS0C.REL:::5:8:128 !%$ PCS0C REL +iv+iw+iwJFST /PCIF/PCIFGEN/PCS1C.REL:::5:4:128 644 0 0 2000 5303664570 34504 /PCIF_GEN/PCIFGEN/PCS1C.REL:::5:4:128 !%$ PCS1C REL +ix+ix+ix TFST /PCIF/PCIFGEN/AUTOR.REL:::5:4:127 644 0 0 2000 5303664572 34652 /PCIF_GEN/PCIFGEN/AUTOR.REL:::5:4:127 !%$  AUTOR REL +iy+iz+iz ZFST /PCIF/PCIFGEN/PCMN0.REL:::5:5:128 644 0 0 2400 5303664573 34332 /PCIF_GEN/PCIFGEN/PCMN0.REL:::5:5:128 !%$ $PCMN0 REL +i{+i{+i{H `FST /PCIF/PCIFGEN/PCMN1.REL:::5:33:128 644 0 0 20400 5303664575 34665 /PCIF_GEN/PCIFGEN/PCMN1.REL:::5:33:128 "&$! ,!PCMN1 REL +i|+i}+i}!ghFST /PCIF/PCIFGEN/PCMN2.REL:::5:11:128 644 0 0 5400 5303664576 34576 /PCIF_GEN/PCIFGEN/PCMN2.REL:::5:11:128 "&$ P PCMN2 REL +i}+i~+i~ ;FST /PCIF/PCIFGEN/PCMN3.REL:::5:206:128 644 0 0 147000 5303664577 36567 /PCIF_GEN/PCIFGEN/PCMN3.REL:::5:206:128 #'$ \PCMN3 REL +i+i+ifFST /PCIF/PCIFGEN/PCMN4.REL:::5:46:128 644 0 0 27000 5303664601 35314 /PCIF_GEN/PCIFGEN/PCMN4.REL:::5:46:128 "&$. ,.PCMN4 REL +i+i+i.tjFST /PCIF/PCIFGEN/PCMN5.REL:::5:103:128 644 0 0 63400 5303664602 35757 /PCIF_GEN/PCIFGEN/PCMN5.REL:::5:103:128 #'$g \gPCMN5 REL +i+i+ig3cFST /PCIF/PCIFGEN/PCMN6.REL:::5:79:128 644 0 0 47400 5303664603 35440 /PCIF_GEN/PCIFGEN/PCMN6.REL:::5:79:128 "&$O OPCMN6 REL +i+i+iO'{^FST /PCIF/PCIFGEN/PCMN7.REL:::5:16:128 644 0 0 10000 5303664605 34713 /PCIF_GEN/PCIFGEN/PCMN7.REL:::5:16:128 "&$ PCMN7 REL +i+i+iVFST /PCIF/PCIFGEN/PCS0.REL:::5:7:127 644 0 0 3400 5303664606 34135 /PCIF_GEN/PCIFGEN/PCS0.REL:::5:7:127 $$ $PCS0 REL +i+i+i hFST /PCIF/PCIFGEN/PCS1.REL:::5:4:128 644 0 0 2000 5303664610 34352 /PCIF_GEN/PCIFGEN/PCS1.REL:::5:4:128 $$ ,PCS1 REL +i+i+i rFST ((/PCIF/PCIFGEN/PCDMX.REL:::5:48:128 644 0 0 30000 5303664611 35561 /PCIF_GEN/PCIFGEN/PCDMX.REL:::5:48:128 "&$0 80PCDMX REL +i+i+i0|xFST /PCIF/PCIFGEN/PCOPN.REL:::5:3:115 644 0 0 1400 5303664613 34722 /PCIF_GEN/PCIFGEN/PCOPN.REL:::5:3:115 !%$ hsPCOPN REL +i+i+iBFST /PCIF/PCIFGEN/PCTMO.REL:::5:14:128 644 0 0 7000 5303664614 35350 /PCIF_GEN/PCIFGEN/PCTMO.REL:::5:14:128 "&$ lPCTMO REL +i+i+i*FST /PCIF/PCIFGEN/PCHLT.REL:::5:12:128 644 0 0 6000 5303664616 35305 /PCIF_GEN/PCIFGEN/PCHLT.REL:::5:12:128 "&$ | PCHLT REL +i+i+i #FST /PCIF/PCIFGEN/DDP61.REL:::5:3:116 644 0 0 1400 5303664617 34465 /PCIF_GEN/PCIFGEN/DDP61.REL:::5:3:116 !%$ tDDP61 REL +i+i+iFST /PCIF/PCIFGEN/PCTST.REL:::5:143:128 644 0 0 107400 5303664621 36300 /PCIF_GEN/PCIFGEN/PCTST.REL:::5:143:128 #'$ PCTST REL +i+i+iG(FST /PCIF/PCIFGEN/PCMC0.REL:::5:5:127 644 0 0 2400 5303664623 34457 /PCIF_GEN/PCIFGEN/PCMC0.REL:::5:5:127 !%$ PCMC0 REL +i+i+iy fFST /PCIF/PCIFGEN/PCMC1.REL:::5:37:128 644 0 0 22400 5303664624 35046 /PCIF_GEN/PCIFGEN/PCMC1.REL:::5:37:128 "&$% $%PCMC1 REL +i+i+i%LgnFST /PCIF/PCIFGEN/PCMC2.REL:::5:12:128 644 0 0 6000 5303664626 35014 /PCIF_GEN/PCIFGEN/PCMC2.REL:::5:12:128 "&$ L PCMC2 REL +i+i+i FST /PCIF/PCIFGEN/PCMC3.REL:::5:243:128 644 0 0 171400 5303664627 36755 /PCIF_GEN/PCIFGEN/PCMC3.REL:::5:243:128 #'$ XPCMC3 REL +i+i+iy FST /PCIF/PCIFGEN/PCMC4.REL:::5:50:128 644 0 0 31000 5303664631 35545 /PCIF_GEN/PCIFGEN/PCMC4.REL:::5:50:128 "&$2 L2PCMC4 REL +i+i+i2tFST /PCIF/PCIFGEN/PCMC5.REL:::5:139:128 644 0 0 105400 5303664632 36011 /PCIF_GEN/PCIFGEN/PCMC5.REL:::5:139:128 #'$ PCMC5 REL +i+i+iE FST /PCIF/PCIFGEN/PCMC6.REL:::5:113:128 644 0 0 70400 5303664633 35576 /PCIF_GEN/PCIFGEN/PCMC6.REL:::5:113:128 #'$q  qPCMC6 REL +i+i+iq8?\FST /PCIF/PCIFGEN/PCMC7.REL:::5:20:128 644 0 0 12000 5303664634 35310 /PCIF_GEN/PCIFGEN/PCMC7.REL:::5:20:128 "&$ PCMC7 REL +i+i+i !FST /PCIF/PCIFGEN/PCIF_BUILD.CMD:::4:20:45 644 0 0 12000 5303664636 36744 /PCIF_GEN/PCIFGEN/PCIF_BUILD.CMD:::4:20:45 &*$ -PCIF_BUILD CMD +i+i+i lFST /PCIF/PCIFGEN/PCLGE.LOD:::4:2:30 644 0 0 1000 5303664637 35151 /PCIF_GEN/PCIFGEN/PCLGE.LOD:::4:2:30 $$ PCLGE LOD +i+i+i FST /PCIF/PCIFGEN/PCFOC.LOD:::4:3:38 644 0 0 1400 5303664641 34312 /PCIF_GEN/PCIFGEN/PCFOC.LOD:::4:3:38 $$ &PCFOC LOD +i+i+iFST /PCIF/PCIFGEN/PCP01.FRM:::3:8:75 644 0 0 4000 5303664644 34613 /PCIF_GEN/PCIFGEN/PCP01.FRM:::3:8:75 $$ KPCP01 FRM +i+i+iFST /PCIF/PCIFGEN/PCP01.HLP:::4:5:39 644 0 0 2400 5303664646 34446 /PCIF_GEN/PCIFGEN/PCP01.HLP:::4:5:39 $$ 'PCP01 HLP +i+i+iVFST /PCIF/PCIFGEN/PCP02.FRM:::3:25:104 644 0 0 14400 5303664647 35021 /PCIF_GEN/PCIFGEN/PCP02.FRM:::3:25:104 "&$ hPCP02 FRM +i+i+i 'FFST ((/PCIF/PCIFGEN/PCP02.HLP:::4:4:39 644 0 0 2000 5303664651 34405 /PCIF_GEN/PCIFGEN/PCP02.HLP:::4:4:39 $$ 'PCP02 HLP +i+i+i4FST /PCIF/PCIFGEN/PCP03.FRM:::3:10:75 644 0 0 5000 5303664652 34426 /PCIF_GEN/PCIFGEN/PCP03.FRM:::3:10:75 !%$  KPCP03 FRM +i+i+i $:FST /PCIF/PCIFGEN/PCP03.HLP:::4:4:39 644 0 0 2000 5303664653 34457 /PCIF_GEN/PCIFGEN/PCP03.HLP:::4:4:39 $$ 'PCP03 HLP +i+i+iFFST /PCIF/PCIFGEN/PCLDM.LOD:::4:2:30 644 0 0 1000 5303664720 34770 /PCIF_GEN/PCIFGEN/PCLDM.LOD:::4:2:30 $$ PPCLDM LOD +i+i+i LFST /PCIF/PCIFGEN/PCLOP.LOD:::4:2:29 644 0 0 1000 5303664722 35002 /PCIF_GEN/PCIFGEN/PCLOP.LOD:::4:2:29 $$ TPCLOP LOD +i+i+i PFST /PCIF/PCIFGEN/PCLTM.LOD:::4:2:30 644 0 0 1000 5303664723 35075 /PCIF_GEN/PCIFGEN/PCLTM.LOD:::4:2:30 $$ XPCLTM LOD +i+i+i TFST /PCIF/PCIFGEN/PCLHL.LOD:::4:2:30 644 0 0 1000 5303664724 35036 /PCIF_GEN/PCIFGEN/PCLHL.LOD:::4:2:30 $$ \PCLHL LOD +i+i+i XFST /PCIF/PCIFGEN/AUTOR.LOD:::4:2:29 644 0 0 1000 5303664726 35143 /PCIF_GEN/PCIFGEN/AUTOR.LOD:::4:2:29 $$ `AUTOR LOD +i+i+i \FST /PCIF/PCIFGEN/PCTST.LOD:::4:2:29 644 0 0 1000 5303664727 35207 /PCIF_GEN/PCIFGEN/PCTST.LOD:::4:2:29 $$ dPCTST LOD +i+i+i `FST /PCIF/PCIFGEN/M94200.MNF:::4:8:39 644 0 0 4000 5303664730 34650 /PCIF_GEN/PCIFGEN/M94200.MNF:::4:8:39 !%$ h'M94200 MNF +i+i+idFST /PCIF/PCIFGEN/B94200:::4:44:39 644 0 0 26000 5303664731 34326 /PCIF_GEN/PCIFGEN/B94200:::4:44:39 "$, x,'B94200 +i+9T+i,nFST /PCIF/PCIFGEN/PCPGE.DAT:::4:21:39 644 0 0 12400 5303664733 35527 /PCIF_GEN/PCIFGEN/PCPGE.DAT:::4:21:39 !%$ 'PCPGE DAT +i+i+i *FST /PCIF/PCIFGEN/AUTOR.FTN:::4:12:34 644 0 0 6000 5303664735 35742 /PCIF_GEN/PCIFGEN/AUTOR.FTN:::4:12:34 !%$  "AUTOR FTN +i+i+i `FST /PCIF/PCIFGEN/[PCPHL:::4:22:34 644 0 0 13000 5303664736 35553 /PCIF_GEN/PCIFGEN/[PCPHL:::4:22:34 "$ "[PCPHL +i+i+i FST /PCIF/PCIFGEN/[PCHHL:::4:21:34 644 0 0 12400 5303664740 35274 /PCIF_GEN/PCIFGEN/[PCHHL:::4:21:34 "$ "[PCHHL +i+i+i 7{FST /PCIF/PCIFGEN/PCTST.PAS:::3:287:39 644 0 0 217400 5303664742 36607 /PCIF_GEN/PCIFGEN/PCTST.PAS:::3:287:39 "&$ 'PCTST PAS +i+i+iOFST /PCIF/PCIFGEN/PCPGF.DAT:::4:30:39 644 0 0 17000 5303664743 35415 /PCIF_GEN/PCIFGEN/PCPGF.DAT:::4:30:39 !%$ 'PCPGF DAT +i+i+iFST /PCIF/RUNTIME/PCLIB.LIB:::5:144:128 644 0 0 110000 5303664533 35752 /PCIF_GEN/RUNTIME/PCLIB.LIB:::5:144:128 #'$ 0PCLIB LIB +iZ+i[+i[G4FST /PCIF/RUNTIME/PCLBC.LIB:::5:162:128 644 0 0 121000 5303664536 36446 /PCIF_GEN/RUNTIME/PCLBC.LIB:::5:162:128 #'$ PCLBC LIB +i]+i^+i^PFST /PCIF/RUNTIME/PCERR.ERR:::4:40:39 644 0 0 24000 5303664642 35770 /PCIF_GEN/RUNTIME/PCERR.ERR:::4:40:39 !%$( ('PCERR ERR +i+i+i(jFST ((/PCIF/RUNTIME/PCC01.FRM:::3:8:75 644 0 0 4000 5303664655 34641 /PCIF_GEN/RUNTIME/PCC01.FRM:::3:8:75 $$ KPCC01 FRM +i+i+iFST /PCIF/RUNTIME/PCC01.HLP:::4:5:39 644 0 0 2400 5303664656 34427 /PCIF_GEN/RUNTIME/PCC01.HLP:::4:5:39 $$  'PCC01 HLP +i+i+i4FST /PCIF/RUNTIME/PCC02.FRM:::3:10:75 644 0 0 5000 5303664660 34743 /PCIF_GEN/RUNTIME/PCC02.FRM:::3:10:75 !%$ ( KPCC02 FRM +i+i+i #FST /PCIF/RUNTIME/PCC02.HLP:::4:5:39 644 0 0 2400 5303664661 34546 /PCIF_GEN/RUNTIME/PCC02.HLP:::4:5:39 $$ 4'PCC02 HLP +i+i+iQFST /PCIF/RUNTIME/PCC03.FRM:::3:8:75 644 0 0 4000 5303664663 35135 /PCIF_GEN/RUNTIME/PCC03.FRM:::3:8:75 $$ <KPCC03 FRM +i+i+i"FST /PCIF/RUNTIME/PCC03.HLP:::4:6:39 644 0 0 3000 5303664664 34773 /PCIF_GEN/RUNTIME/PCC03.HLP:::4:6:39 $$ D'PCC03 HLP +i+i+iFST /PCIF/RUNTIME/PCC04.FRM:::3:19:113 644 0 0 11400 5303664666 35303 /PCIF_GEN/RUNTIME/PCC04.FRM:::3:19:113 "&$ LqPCC04 FRM +i+i+i r=FST /PCIF/RUNTIME/PCC04.HLP:::4:5:39 644 0 0 2400 5303664667 34714 /PCIF_GEN/RUNTIME/PCC04.HLP:::4:5:39 $$ `'PCC04 HLP +i+i+i>FST /PCIF/RUNTIME/PCC05.FRM:::3:9:75 644 0 0 4400 5303664671 35142 /PCIF_GEN/RUNTIME/PCC05.FRM:::3:9:75 $$ h KPCC05 FRM +i+i+i w$FST /PCIF/RUNTIME/PCC05.HLP:::4:6:39 644 0 0 3000 5303664672 35225 /PCIF_GEN/RUNTIME/PCC05.HLP:::4:6:39 $$ t'PCC05 HLP +i+i+iFST /PCIF/RUNTIME/PCCB5.FRM:::3:10:75 644 0 0 5000 5303664673 35461 /PCIF_GEN/RUNTIME/PCCB5.FRM:::3:10:75 !%$ | KPCCB5 FRM +i+i+i %FST /PCIF/RUNTIME/PCCB5.HLP:::4:6:39 644 0 0 3000 5303664675 35017 /PCIF_GEN/RUNTIME/PCCB5.HLP:::4:6:39 $$ 'PCCB5 HLP +i+i+i FST /PCIF/RUNTIME/PCC07.FRM:::3:8:75 644 0 0 4000 5303664676 35071 /PCIF_GEN/RUNTIME/PCC07.FRM:::3:8:75 $$ KPCC07 FRM +i+i+i"FST /PCIF/RUNTIME/PCC07.HLP:::4:6:39 644 0 0 3000 5303664700 34645 /PCIF_GEN/RUNTIME/PCC07.HLP:::4:6:39 $$ 'PCC07 HLP +i+i+iFST /PCIF/RUNTIME/PCC08.FRM:::3:19:113 644 0 0 11400 5303664702 35225 /PCIF_GEN/RUNTIME/PCC08.FRM:::3:19:113 "&$ qPCC08 FRM +i+i+i p=$FST /PCIF/RUNTIME/PCC08.HLP:::4:5:39 644 0 0 2400 5303664703 34627 /PCIF_GEN/RUNTIME/PCC08.HLP:::4:5:39 $$ 'PCC08 HLP +i+i+i5:FST /PCIF/RUNTIME/PCC09.FRM:::3:13:75 644 0 0 6400 5303664705 35155 /PCIF_GEN/RUNTIME/PCC09.FRM:::3:13:75 !%$  KPCC09 FRM +i+i+i y*BFST /PCIF/RUNTIME/PCC09.HLP:::4:6:39 644 0 0 3000 5303664706 35163 /PCIF_GEN/RUNTIME/PCC09.HLP:::4:6:39 $$ 'PCC09 HLP +i+i+iRFST /PCIF/RUNTIME/PCCB9.FRM:::3:14:75 644 0 0 7000 5303664707 35444 /PCIF_GEN/RUNTIME/PCCB9.FRM:::3:14:75 !%$ KPCCB9 FRM +i+i+i+ZFST /PCIF/RUNTIME/PCCB9.HLP:::4:6:39 644 0 0 3000 5303664710 35317 /PCIF_GEN/RUNTIME/PCCB9.HLP:::4:6:39 $$ 'PCCB9 HLP +i+i+ijFST ((/PCIF/RUNTIME/PCC11.FRM:::3:11:75 644 0 0 5400 5303664712 35101 /PCIF_GEN/RUNTIME/PCC11.FRM:::3:11:75 !%$  KPCC11 FRM +i+i+i $rFST /PCIF/RUNTIME/PCC11.HLP:::4:7:39 644 0 0 3400 5303664714 35016 /PCIF_GEN/RUNTIME/PCC11.HLP:::4:7:39 $$ 'PCC11 HLP +i+i+i FST /PCIF/RUNTIME/PCMSG.ERR:::4:45:34 644 0 0 26400 5303664715 35332 /PCIF_GEN/RUNTIME/PCMSG.ERR:::4:45:34 !%$- -"PCMSG ERR +i+i+i-3FST /PCIF/RUNTIME/PCMER.ERR:::4:31:33 644 0 0 17400 5303664717 35546 /PCIF_GEN/RUNTIME/PCMER.ERR:::4:31:33 !%$ 0!PCMER ERR +i+i+iFST /PCIF/GS/HPHPHP:::4:18:34 644 0 0 11000 5303671205 34042 /PCIF_GS/GS/HPHPHP:::4:18:34 $ "HPHPHP +n3+$v+rNFST /PCIF/GS/FLIB1.LIB:::5:97:128 644 0 0 60400 5303667065 34326 /PCIF_GS/GS/FLIB1.LIB:::5:97:128  $a aFLIB1 LIB +n4+n5+n5a0%FST /PCIF/GS/FLIB2.LIB:::5:267:128 644 0 0 205400 5303667066 33640 /PCIF_GS/GS/FLIB2.LIB:::5:267:128 !$ 4 FLIB2 LIB +n6+n6+n6 E`TFST /PCIF/GS/ZMNTL.LIB:::5:31:127 644 0 0 17400 5303667070 33676 /PCIF_GS/GS/ZMNTL.LIB:::5:31:127  $ @ZMNTL LIB +n7+n8+n8_bFST /PCIF/GS/SCRNS.REL:::5:10:127 644 0 0 5000 5303667072 33765 /PCIF_GS/GS/SCRNS.REL:::5:10:127  $ ` SCRNS REL +n9+n:+n: FST /PCIF/GS/TEACHME.REL:::5:7:128 644 0 0 3400 5303667073 34006 /PCIF_GS/GS/TEACHME.REL:::5:7:128 !$ lTEACHME REL +n:+n;+n;'FST /PCIF/GS/COURSE1.REL:::5:177:128 644 0 0 130400 5303667077 35736 /PCIF_GS/GS/COURSE1.REL:::5:177:128 #$ COURSE1 REL +n>+n?+n?X2wFST /PCIF/GS/COURSE2.REL:::5:77:128 644 0 0 46400 5303667101 34743 /PCIF_GS/GS/COURSE2.REL:::5:77:128 "$M MCOURSE2 REL +n@+nA+nAM&UNFST /PCIF/GS/COURSE3.REL:::5:21:128 644 0 0 12400 5303667103 34541 /PCIF_GS/GS/COURSE3.REL:::5:21:128 "$ COURSE3 REL +nB+nC+nC I?FST /PCIF/GS/FDBLK.REL:::5:5:50 644 0 0 2400 5303667105 33515 /PCIF_GS/GS/FDBLK.REL:::5:5:50 $ 2FDBLK REL +nD+nE+nE& FST /PCIF/GS/FOUSE.REL:::5:2:48 644 0 0 1000 5303667106 34151 /PCIF_GS/GS/FOUSE.REL:::5:2:48 $ 0FOUSE REL +nE+nF+nFFST /PCIF/GS/XFER.CMD:::3:6:37 644 0 0 3000 5303667132 33405 /PCIF_GS/GS/XFER.CMD:::3:6:37 $ %XFER CMD +nY+nZ+nZFST /PCIF/GS/GMLADLOG.TXT:::3:7:39 644 0 0 3400 5303667134 34367 /PCIF_GS/GS/GMLADLOG.TXT:::3:7:39 !$ 'GMLADLOG TXT +n[+n\+n\F&FST /PCIF/GS/SCRNS.LOD:::4:2:38 644 0 0 1000 5303667135 33623 /PCIF_GS/GS/SCRNS.LOD:::4:2:38 $  &SCRNS LOD +n]+n]+n] FST /PCIF/GS/TEACHME.LOD:::4:1:38 644 0 0 400 5303667137 34012 /PCIF_GS/GS/TEACHME.LOD:::4:1:38  $ $&TEACHME LOD +n^+n_+n_|FST /PCIF/GS/PSCR01.TXT:::3:5:75 644 0 0 2400 5303667146 34017 /PCIF_GS/GS/PSCR01.TXT:::3:5:75 $ 8KPSCR01 TXT +ne+nf+nfLFST ((/PCIF/GS/PSCR02.TXT:::3:22:104 644 0 0 13000 5303667150 34616 /PCIF_GS/GS/PSCR02.TXT:::3:22:104 !$ @hPSCR02 TXT +ng+nh+nh BFST /PCIF/GS/PSCR03.TXT:::3:7:75 644 0 0 3400 5303667152 34211 /PCIF_GS/GS/PSCR03.TXT:::3:7:75 $ XKPSCR03 TXT +ni+nj+njf FST /PCIF/GS/CSCR01.TXT:::3:5:75 644 0 0 2400 5303667153 33505 /PCIF_GS/GS/CSCR01.TXT:::3:5:75 $ `KCSCR01 TXT +nj+nk+nkIFST /PCIF/GS/CSCR02.TXT:::3:7:75 644 0 0 3400 5303667155 33543 /PCIF_GS/GS/CSCR02.TXT:::3:7:75 $ hKCSCR02 TXT +nl+nm+nm<FST /PCIF/GS/CSCR03.TXT:::3:6:75 644 0 0 3000 5303667157 33766 /PCIF_GS/GS/CSCR03.TXT:::3:6:75 $ pKCSCR03 TXT +nn+no+noFST /PCIF/GS/CSCR04.TXT:::3:17:113 644 0 0 10400 5303667160 34074 /PCIF_GS/GS/CSCR04.TXT:::3:17:113 !$ xqCSCR04 TXT +np+np+np>9 FST /PCIF/GS/CSCR05.TXT:::3:7:75 644 0 0 3400 5303667162 33713 /PCIF_GS/GS/CSCR05.TXT:::3:7:75 $ KCSCR05 TXT +nq+nr+nrC 4FST /PCIF/GS/CSCR07.TXT:::3:6:75 644 0 0 3000 5303667164 34126 /PCIF_GS/GS/CSCR07.TXT:::3:6:75 $ KCSCR07 TXT +ns+nt+nt>FST /PCIF/GS/CSCR08.TXT:::3:17:113 644 0 0 10400 5303667166 34247 /PCIF_GS/GS/CSCR08.TXT:::3:17:113 !$ qCSCR08 TXT +nu+nv+nv<9FFST /PCIF/GS/CSCR09.TXT:::3:11:75 644 0 0 5400 5303667167 34145 /PCIF_GS/GS/CSCR09.TXT:::3:11:75  $  KCSCR09 TXT +nv+nw+nw E&ZFST /PCIF/GS/CSCR11.TXT:::3:8:75 644 0 0 4000 5303667171 34265 /PCIF_GS/GS/CSCR11.TXT:::3:8:75 $ KCSCR11 TXT +nx+ny+ny hFST /PCIF/GS/COURSE.LOD:::3:2:38 644 0 0 1000 5303667173 34274 /PCIF_GS/GS/COURSE.LOD:::3:2:38 $ &COURSE LOD +nz+n{+n{ rFST /PCIF/GS/ABLADLOG.TXT:::4:23:39 644 0 0 13400 5303667174 35107 /PCIF_GS/GS/ABLADLOG.TXT:::4:23:39 "$ 'ABLADLOG TXT +n{+n|+n| UovFST /PCIF/GS/Z94200:::4:21:39 644 0 0 12400 5303667217 33043 /PCIF_GS/GS/Z94200:::4:21:39 $ ƈ'Z94200 +n+n+n 'KFST /PCIF/GS/GMSODA.FTN:::3:45:36 644 0 0 26400 5303667221 34526 /PCIF_GS/GS/GMSODA.FTN:::3:45:36  $- ƨ-$GMSODA FTN +n+n+n--FST /PCIF/GS/ABSODA.FTN:::4:58:36 644 0 0 35000 5303667222 35415 /PCIF_GS/GS/ABSODA.FTN:::4:58:36  $: :$ABSODA FTN +n+n+n:FST /PCIF/GSWPCIF/COURSE0.REL:::5:88:128 644 0 0 54000 5303667075 36025 /PCIF_GS/GSWPCIF/COURSE0.REL:::5:88:128 $'$X tXCOURSE0 REL +n=+n=+n=X+FST /PCIF/GSWPCIF/GMOD1.CRS:::1:50:128 644 0 0 31000 5303667107 34760 /PCIF_GS/GSWPCIF/GMOD1.CRS:::1:50:128 "%$2 2GMOD1 CRS +nG+nG+nG22nFST /PCIF/GSWPCIF/GMOD2.CRS:::1:100:128 644 0 0 62000 5303667111 35133 /PCIF_GS/GSWPCIF/GMOD2.CRS:::1:100:128 #&$d (dGMOD2 CRS +nH+nI+nId2dFST /PCIF/GSWPCIF/GMOD3.CRS:::1:100:128 644 0 0 62000 5303667112 35055 /PCIF_GS/GSWPCIF/GMOD3.CRS:::1:100:128 #&$d dGMOD3 CRS +nI+nJ+nJd2dFST ((/PCIF/GSWPCIF/GMOD4.CRS:::1:150:128 644 0 0 113000 5303667113 35766 /PCIF_GS/GSWPCIF/GMOD4.CRS:::1:150:128 #&$ GMOD4 CRS +nJ+nK+nKKnFST /PCIF/GSWPCIF/GMOD5.CRS:::1:100:128 644 0 0 62000 5303667114 35067 /PCIF_GS/GSWPCIF/GMOD5.CRS:::1:100:128 #&$d dGMOD5 CRS +nK+nL+nLd2dFST /PCIF/GSWPCIF/ABMOD1.CRS:::1:50:128 644 0 0 31000 5303667115 35120 /PCIF_GS/GSWPCIF/ABMOD1.CRS:::1:50:128 #&$2 2ABMOD1 CRS +nL+nM+nM22lFST /PCIF/GSWPCIF/ABMOD2.CRS:::1:100:128 644 0 0 62000 5303667116 35300 /PCIF_GS/GSWPCIF/ABMOD2.CRS:::1:100:128 $'$d  dABMOD2 CRS +nN+nN+nNd2dFST /PCIF/GSWPCIF/ABMOD3.CRS:::1:100:128 644 0 0 62000 5303667117 35222 /PCIF_GS/GSWPCIF/ABMOD3.CRS:::1:100:128 $'$d dABMOD3 CRS +nO+nO+nOd2dFST /PCIF/GSWPCIF/ABMOD4.CRS:::1:150:128 644 0 0 113000 5303667120 36124 /PCIF_GS/GSWPCIF/ABMOD4.CRS:::1:150:128 $'$ ABMOD4 CRS +nP+nP+nPKlFST /PCIF/GSWPCIF/ABMOD5.CRS:::1:100:128 644 0 0 62000 5303667122 35230 /PCIF_GS/GSWPCIF/ABMOD5.CRS:::1:100:128 $'$d dABMOD5 CRS +nQ+nR+nRd2dFST /PCIF/GSWPCIF/MAINMENU.CRS:::1:50:128 644 0 0 31000 5303667123 35761 /PCIF_GS/GSWPCIF/MAINMENU.CRS:::1:50:128 %($2 2MAINMENU CRS +nR+nS+nS22jFST /PCIF/GSWPCIF/GEMOD1.CRS:::1:50:128 644 0 0 31000 5303667124 34743 /PCIF_GS/GSWPCIF/GEMOD1.CRS:::1:50:128 #&$2 2GEMOD1 CRS +nS+nT+nT22FST /PCIF/GSWPCIF/GEMOD2.CRS:::1:100:128 644 0 0 62000 5303667125 35521 /PCIF_GS/GSWPCIF/GEMOD2.CRS:::1:100:128 $'$d LdGEMOD2 CRS +nT+nU+nUd2dFST /PCIF/GSWPCIF/GEMOD3.CRS:::1:100:128 644 0 0 62000 5303667126 35443 /PCIF_GS/GSWPCIF/GEMOD3.CRS:::1:100:128 $'$d dGEMOD3 CRS +nU+nV+nVd2d8FST /PCIF/GSWPCIF/GEMOD4.CRS:::1:150:128 644 0 0 113000 5303667127 35756 /PCIF_GS/GSWPCIF/GEMOD4.CRS:::1:150:128 $'$ GEMOD4 CRS +nW+nW+nWKFST /PCIF/GSWPCIF/GEMOD5.CRS:::1:100:128 644 0 0 62000 5303667130 35447 /PCIF_GS/GSWPCIF/GEMOD5.CRS:::1:100:128 $'$d dGEMOD5 CRS +nX+nX+nXd2d6FST /PCIF/GSWPCIF/PCHAB.TXT:::4:3:36 644 0 0 1400 5303667141 34265 /PCIF_GS/GSWPCIF/PCHAB.TXT:::4:3:36 #$ ($PCHAB TXT +n`+na+na) FST /PCIF/GSWPCIF/PCPAB.TXT:::4:3:34 644 0 0 1400 5303667142 34430 /PCIF_GS/GSWPCIF/PCPAB.TXT:::4:3:34 #$ ,"PCPAB TXT +na+nb+nbiFST /PCIF/GSWPCIF/PCHGM.TXT:::4:2:22 644 0 0 1000 5303667143 34550 /PCIF_GS/GSWPCIF/PCHGM.TXT:::4:2:22 #$ 0PCHGM TXT +nb+nc+nc FST /PCIF/GSWPCIF/PCPGM.TXT:::4:2:22 644 0 0 1000 5303667144 34655 /PCIF_GS/GSWPCIF/PCPGM.TXT:::4:2:22 #$ 4PCPGM TXT +nd+nd+nd FST /PCIF/GSWPCIF/CSCR06.TXT:::3:11:92 644 0 0 5400 5303667176 35370 /PCIF_GS/GSWPCIF/CSCR06.TXT:::3:11:92 "%$  \CSCR06 TXT +n}+n~+n~ r(FST /PCIF/GSWPCIF/GELADLOG.TXT:::3:14:38 644 0 0 7000 5303667177 36217 /PCIF_GS/GSWPCIF/GELADLOG.TXT:::3:14:38 $'$ &GELADLOG TXT +n+n+nFFST /PCIF/GSWPCIF/CSCR16.TXT:::3:11:75 644 0 0 5400 5303667201 35403 /PCIF_GS/GSWPCIF/CSCR16.TXT:::3:11:75 "%$  KCSCR16 TXT +n+n+n R'FST ((/PCIF/GSWPCIF/PCHGE.TXT:::4:2:22 644 0 0 1000 5303667202 34665 /PCIF_GS/GSWPCIF/PCHGE.TXT:::4:2:22 #$ PCHGE TXT +n+n+n FST /PCIF/GSWPCIF/PCPGE.TXT:::4:2:22 644 0 0 1000 5303667203 34773 /PCIF_GS/GSWPCIF/PCPGE.TXT:::4:2:22 #$  PCPGE TXT +n+n+n FST /PCIF/GSWPCIF/APPA:::4:194:40 644 0 0 141000 5303667205 35456 /PCIF_GS/GSWPCIF/APPA:::4:194:40  $ (APPA +n+n+n`FST /PCIF/GSWPCIF/APPB:::4:185:40 644 0 0 134400 5303667206 35435 /PCIF_GS/GSWPCIF/APPB:::4:185:40  $ (APPB +n+n+n\ieFST /PCIF/GSWPCIF/APPC:::4:37:40 644 0 0 22400 5303667206 34261 /PCIF_GS/GSWPCIF/APPC:::4:37:40 $% %(APPC +n+n+n%mdFST /PCIF/GSWPCIF/APPD:::4:459:37 644 0 0 345400 5303667210 35730 /PCIF_GS/GSWPCIF/APPD:::4:459:37  $ %APPD +n+n+nR FST /PCIF/GSWPCIF/APPE:::4:50:40 644 0 0 31000 5303667211 34211 /PCIF_GS/GSWPCIF/APPE:::4:50:40 $2 Œ2(APPE +n+n+n2AZFST /PCIF/GSWPCIF/APPF:::4:162:40 644 0 0 121000 5303667212 35440 /PCIF_GS/GSWPCIF/APPF:::4:162:40  $ (APPF +n+n+nPHFST /PCIF/GSWPCIF/APPG:::4:138:40 644 0 0 105000 5303667213 35165 /PCIF_GS/GSWPCIF/APPG:::4:138:40  $ d(APPG +n+n+nD2FST /PCIF/GSWPCIF/APPH:::4:297:40 644 0 0 224400 5303667214 35022 /PCIF_GS/GSWPCIF/APPH:::4:297:40  $) )(APPH +n+n+n)YvFST /PCIF/GSWPCIF/APPI:::4:362:41 644 0 0 265000 5303667216 35447 /PCIF_GS/GSWPCIF/APPI:::4:362:41  $j j)APPI +n+n+njFST /PCIF/GSWPCIF/GESODA.FTN:::4:48:36 644 0 0 30000 5303667224 35333 /PCIF_GS/GSWPCIF/GESODA.FTN:::4:48:36 "%$0 0$GESODA FTN +n+n+n0CVFST HPHPHP::FORMS:4:16:34 644 0 0 10400 5303657170 31501 HPHPHP::FORMS:4:16:34 $ th".HPHPHP +I?+$sr+^x RFST %FBILD::FORMS:5:301:128 644 0 0 226400 5303444502 33275 %FBILD::FORMS:5:301:128 $- tx-%FBILD +IA+IB+IB-bFST $FBUTI::FORMS:5:50:128 644 0 0 31000 5303444504 33220 $FBUTI::FORMS:5:50:128 $2 u2$FBUTI +IC+ID+ID2FST $FOFLL::FORMS:5:68:127 644 0 0 42000 5303444505 33141 $FOFLL::FORMS:5:68:127 $D uD$FOFLL +IE+IE+IED!FST $FLULB::FORMS:5:254:128 644 0 0 177000 5303444507 34063 $FLULB::FORMS:5:254:128 $ v $FLULB +IF+IG+IG~2FFST $FOPLL::FORMS:5:97:127 644 0 0 60400 5303444510 32577 $FOPLL::FORMS:5:97:127 $a w a$FOPLL +IH+IH+IHa0=FFST $FOFRL::FORMS:5:49:127 644 0 0 30400 5303444512 32771 $FOFRL::FORMS:5:49:127 $1 w1$FOFRL +II+IJ+IJ1êFST $FRULB::FORMS:5:24:127 644 0 0 14000 5303444514 33041 $FRULB::FORMS:5:24:127 $ w$FRULB +IK+IL+IL @FST (($FOPRL::FORMS:5:77:127 644 0 0 46400 5303444516 33253 $FOPRL::FORMS:5:77:127 $M wM$FOPRL +IM+IN+INM&$FST %FOBLK::FORMS:5:5:50 644 0 0 2400 5303444520 31562 %FOBLK::FORMS:5:5:50 $ x 2%FOBLK +IO+IP+IP& HFST %FUSE1::FORMS:5:2:48 644 0 0 1000 5303444522 32027 %FUSE1::FORMS:5:2:48 $ x(0%FUSE1 +IQ+IR+IRPFST %FUSE2::FORMS:5:2:48 644 0 0 1000 5303444524 32052 %FUSE2::FORMS:5:2:48 $ x,0%FUSE2 +IS+IT+ITTFST %FUSE3::FORMS:5:2:48 644 0 0 1000 5303444526 32075 %FUSE3::FORMS:5:2:48 $ x00%FUSE3 +IU+IV+IVXFST %FUSE4::FORMS:5:2:48 644 0 0 1000 5303444530 32111 %FUSE4::FORMS:5:2:48 $ x40%FUSE4 +IW+IX+IX\FST %FUSE5::FORMS:5:2:48 644 0 0 1000 5303444532 32134 %FUSE5::FORMS:5:2:48 $ x80%FUSE5 +IY+IZ+IZ`FST %FUSE6::FORMS:5:2:48 644 0 0 1000 5303444533 32153 %FUSE6::FORMS:5:2:48 $ x<0%FUSE6 +IZ+I[+I[dFST %FUSE7::FORMS:5:2:48 644 0 0 1000 5303444535 32176 %FUSE7::FORMS:5:2:48 $ x@0%FUSE7 +I\+I]+I]hFST %FUSE8::FORMS:5:2:48 644 0 0 1000 5303444537 32222 %FUSE8::FORMS:5:2:48 $ xD0%FUSE8 +I_+I_+I_lFST %FUSE9::FORMS:5:2:48 644 0 0 1000 5303444541 32235 %FUSE9::FORMS:5:2:48 $ xH0%FUSE9 +I`+Ia+IapFST %FOCLO::FORMS:5:40:128 644 0 0 24000 5303444543 33131 %FOCLO::FORMS:5:40:128 $( xL(%FOCLO +Ib+Ic+Ic(tFST %FCOMM::FORMS:5:1:56 644 0 0 400 5303444545 32202 %FCOMM::FORMS:5:1:56 $ xt8%FCOMM +Id+Ie+IekĞFST *LFBEF::FORMS:4:2:35 644 0 0 1000 5303444546 32225 *LFBEF::FORMS:4:2:35 $ xx#*LFBEF +If+If+If ĢFST #LFBEF::FORMS:4:2:33 644 0 0 1000 5303444550 32161 #LFBEF::FORMS:4:2:33 $ x|!#LFBEF +Ig+Ih+Ih ĦFST *LFBAS::FORMS:4:2:35 644 0 0 1000 5303444552 32345 *LFBAS::FORMS:4:2:35 $ x#*LFBAS +Ii+Ij+Ij ĪFST #LFBAS::FORMS:4:2:33 644 0 0 1000 5303444553 32315 #LFBAS::FORMS:4:2:33 $ x!#LFBAS +Ik+Ik+IkĮFST *LFOEF::FORMS:4:2:35 644 0 0 1000 5303444555 32354 *LFOEF::FORMS:4:2:35 $ x#*LFOEF +Il+Im+Im IJFST #LFOEF::FORMS:4:2:34 644 0 0 1000 5303444557 32340 #LFOEF::FORMS:4:2:34 $ x"#LFOEF +In+Io+Io ĶFST *LFOAS::FORMS:4:2:35 644 0 0 1000 5303444561 32474 *LFOAS::FORMS:4:2:35 $ x#*LFOAS +Ip+Iq+Iq ĺFST ((#LFOAS::FORMS:4:2:34 644 0 0 1000 5303444563 32464 #LFOAS::FORMS:4:2:34 $ x"#LFOAS +Ir+Is+IsľFST *LFIEF::FORMS:4:2:35 644 0 0 1000 5303444565 32546 *LFIEF::FORMS:4:2:35 $ x#*LFIEF +It+Iu+Iu FST #LFIEF::FORMS:4:2:35 644 0 0 1000 5303444567 32444 #LFIEF::FORMS:4:2:35 $ x##LFIEF +Iv+Iw+Iw FST *LFIAS::FORMS:4:3:35 644 0 0 1400 5303444571 32311 *LFIAS::FORMS:4:3:35 $ x#*LFIAS +Ix+Iy+Iy FST #LFIAS::FORMS:4:2:35 644 0 0 1000 5303444573 32572 #LFIAS::FORMS:4:2:35 $ x##LFIAS +Iz+I{+I{ FST *LFNEF::FORMS:4:2:35 644 0 0 1000 5303444574 32670 *LFNEF::FORMS:4:2:35 $ x#*LFNEF +I|+I|+I| FST #LFNEF::FORMS:4:2:35 644 0 0 1000 5303444576 32541 #LFNEF::FORMS:4:2:35 $ x##LFNEF +I~+I~+I~ FST *LFNAS::FORMS:4:3:35 644 0 0 1400 5303444600 32414 *LFNAS::FORMS:4:3:35 $ x#*LFNAS +I+I+I FST #LFNAS::FORMS:4:2:35 644 0 0 1000 5303444602 32660 #LFNAS::FORMS:4:2:35 $ x##LFNAS +I+I+I FST *LPIEF::FORMS:4:2:35 644 0 0 1000 5303444604 32770 *LPIEF::FORMS:4:2:35 $ x#*LPIEF +I+I+I FST #LPIEF::FORMS:4:2:35 644 0 0 1000 5303444606 32665 #LPIEF::FORMS:4:2:35 $ x##LPIEF +I+I+I FST *LPIAS::FORMS:4:3:35 644 0 0 1400 5303444610 32523 *LPIAS::FORMS:4:3:35 $ x#*LPIAS +I+I+I FST #LPIAS::FORMS:4:2:35 644 0 0 1000 5303444612 33006 #LPIAS::FORMS:4:2:35 $ x##LPIAS +I+I+I FST *LPNEF::FORMS:4:2:35 644 0 0 1000 5303444614 33105 *LPNEF::FORMS:4:2:35 $ x#*LPNEF +I+I+I FST #LPNEF::FORMS:4:2:35 644 0 0 1000 5303444616 32764 #LPNEF::FORMS:4:2:35 $ x##LPNEF +I+I+I FST *LPNAS::FORMS:4:3:35 644 0 0 1400 5303444620 32240 *LPNAS::FORMS:4:3:35 $ x#*LPNAS +I+I+I FST #LPNAS::FORMS:4:2:35 644 0 0 1000 5303444622 32506 #LPNAS::FORMS:4:2:35 $ x##LPNAS +I+I+I FST *LFDEF::FORMS:4:2:35 644 0 0 1000 5303444624 32443 *LFDEF::FORMS:4:2:35 $ x#*LFDEF +I+I+I FST #LFDEF::FORMS:4:2:34 644 0 0 1000 5303444626 32316 #LFDEF::FORMS:4:2:34 $ x"#LFDEF +I+I+I FST *LFDAS::FORMS:4:2:35 644 0 0 1000 5303444630 32564 *LFDAS::FORMS:4:2:35 $ x#*LFDAS +I+I+I FST ((#LFDAS::FORMS:4:2:34 644 0 0 1000 5303444632 32441 #LFDAS::FORMS:4:2:34 $ x"#LFDAS +I+I+I FST "FBD01::FORMS:4:6:42 644 0 0 3000 5303444634 32363 "FBD01::FORMS:4:6:42 $ x*"FBD01 +I+I+IFST "FBD02::FORMS:4:6:62 644 0 0 3000 5303444635 32450 "FBD02::FORMS:4:6:62 $ x>"FBD02 +I+I+I"FST "FBD03::FORMS:4:7:60 644 0 0 3400 5303444637 31563 "FBD03::FORMS:4:7:60 $ y<"FBD03 +I+I+I$*FST "FBD04::FORMS:4:6:54 644 0 0 3000 5303444641 32062 "FBD04::FORMS:4:6:54 $ y6"FBD04 +I+I+I4FST "FBD05::FORMS:4:6:41 644 0 0 3000 5303444643 32022 "FBD05::FORMS:4:6:41 $ y)"FBD05 +I+I+I<FST "FBD06::FORMS:4:6:45 644 0 0 3000 5303444645 32125 "FBD06::FORMS:4:6:45 $ y-"FBD06 +I+I+IDFST "FBD07::FORMS:4:7:71 644 0 0 3400 5303444647 32033 "FBD07::FORMS:4:7:71 $ y G"FBD07 +I+I+IWLFST "FBD08::FORMS:4:7:46 644 0 0 3400 5303444651 31723 "FBD08::FORMS:4:7:46 $ y(."FBD08 +I+I+IVFST "FDEM1::FORMS:4:5:44 644 0 0 2400 5303444653 32216 "FDEM1::FORMS:4:5:44 $ y0,"FDEM1 +I+I+It`FST !FBD01::FORMS:3:5:75 644 0 0 2400 5303444655 32144 !FBD01::FORMS:3:5:75 $ y8K!FBD01 +I+I+IphFST !FBD02::FORMS:3:6:75 644 0 0 3000 5303444657 32331 !FBD02::FORMS:3:6:75 $ y@K!FBD02 +I+I+IpFST !FBD03::FORMS:3:14:140 644 0 0 7000 5303444661 32623 !FBD03::FORMS:3:14:140 $ yP!FBD03 +I+I+I2xFST !FBD04::FORMS:3:9:75 644 0 0 4400 5303444662 32355 !FBD04::FORMS:3:9:75 $ y` K!FBD04 +I+I+I {#ňFST !FBD06::FORMS:3:13:75 644 0 0 6400 5303444664 32454 !FBD06::FORMS:3:13:75 $ yl K!FBD06 +I+I+I g)ŔFST !FBD07::FORMS:3:11:77 644 0 0 5400 5303444666 32406 !FBD07::FORMS:3:11:77 $ y| M!FBD07 +I+I+I (ŤFST !FBD08::FORMS:3:7:75 644 0 0 3400 5303444670 32427 !FBD08::FORMS:3:7:75 $ yK!FBD08 +I+I+IF ŲFST !FDEM1::FORMS:3:10:75 644 0 0 5000 5303444672 33072 !FDEM1::FORMS:3:10:75 $ y K!FDEM1 +I+I+I &żFST !FDEM2::FORMS:3:10:75 644 0 0 5000 5303444674 33027 !FDEM2::FORMS:3:10:75 $ y K!FDEM2 +I+I+I 'FST !FDEM3::FORMS:3:15:75 644 0 0 7400 5303444676 33066 !FDEM3::FORMS:3:15:75 $ yK!FDEM3 +I+I+Io+FST ((!FDEM4::FORMS:3:15:75 644 0 0 7400 5303444700 33125 !FDEM4::FORMS:3:15:75 $ yK!FDEM4 +I+I+Io+FST "FOLCL::FORMS:4:28:39 644 0 0 16000 5303444702 33707 "FOLCL::FORMS:4:28:39 $ y'"FOLCL +I+I+I FST A94250.SNF::FORMS:4:25:38 644 0 0 14400 5303444703 33542 A94250.SNF::FORMS:4:25:38 $ y&A94250 SNF +I+a+I [WFST &FUSEX::FORMS:4:12:39 644 0 0 6000 5303444705 32770 &FUSEX::FORMS:4:12:39 $ z '&FUSEX +I+I+I M2FST &FDEMO::FORMS:4:121:40 644 0 0 74400 5303444707 33703 &FDEMO::FORMS:4:121:40 $y z y(&FDEMO +I+I+Iy  ,>DBMON REL +l+l+l>FST DBRBR.REL::IMAGE2:5:162:128 644 0 0 121000 5300466326 35314 DBRBR.REL::IMAGE2_6000:5:162:128  $ lDBRBR REL +l+l+lPFFST DBRFR.REL::IMAGE2:5:135:128 644 0 0 103400 5300466327 35004 DBRFR.REL::IMAGE2_6000:5:135:128  $ DBRFR REL +l+l+lCFST DBUTL.REL::IMAGE2:5:234:128 644 0 0 165000 5300466331 35747 DBUTL.REL::IMAGE2_6000:5:234:128  $ DBUTL REL +l+l+lt&tFST QUERY.REL::IMAGE2:5:303:128 644 0 0 227400 5300466332 35117 QUERY.REL::IMAGE2_6000:5:303:128  $/ /QUERY REL +l+l+l/'`FST RDBAP.REL::IMAGE2:5:18:128 644 0 0 11000 5300466334 34236 RDBAP.REL::IMAGE2_6000:5:18:128 $ RDBAP REL +l+l+l(ԒFST SAMAI.REL::IMAGE2:5:13:128 644 0 0 6400 5300466336 34221 SAMAI.REL::IMAGE2_6000:5:13:128 $  SAMAI REL +l+l+l sԦFST SAM6I.REL::IMAGE2:5:13:128 644 0 0 6400 5300466340 34135 SAM6I.REL::IMAGE2_6000:5:13:128 $  SAM6I REL +l+l+l >ԶFST DBUPGRADE.REL::IMAGE2:5:57:128 644 0 0 34400 5300466342 35756 DBUPGRADE.REL::IMAGE2_6000:5:57:128 #$9 9DBUPGRADE REL +l+l+l9~tFST %AR000::IMAGE2:5:3:128 644 0 0 1400 5300466343 32155 %AR000::IMAGE2_6000:5:3:128 $ $%AR000 +l+l+lYFST %BL000::IMAGE2:5:8:128 644 0 0 4000 5300466345 32442 %BL000::IMAGE2_6000:5:8:128 $ (%BL000 +l+l+lFST %DB000::IMAGE2:5:17:128 644 0 0 10400 5300466347 32441 %DB000::IMAGE2_6000:5:17:128 $ 8%DB000 +l+l+lzFST %EM000::IMAGE2:5:3:128 644 0 0 1400 5300466351 32325 %EM000::IMAGE2_6000:5:3:128 $ L%EM000 +l+l+lg&FST %LB000::IMAGE2:5:58:128 644 0 0 35000 5300466353 33106 %LB000::IMAGE2_6000:5:58:128 $: P:%LB000 +l+l+l:A,FST %LO000::IMAGE2:5:3:68 644 0 0 1400 5300466355 32326 %LO000::IMAGE2_6000:5:3:68 $ D%LO000 +l+l+lhFST %QY000::IMAGE2:5:70:128 644 0 0 43000 5300466356 33703 %QY000::IMAGE2_6000:5:70:128 $F F%QY000 +l+l+lF"nFST ((%RB000::IMAGE2:5:20:128 644 0 0 12000 5300466360 33264 %RB000::IMAGE2_6000:5:20:128 $ %RB000 +l+l+l ,նFST %RF000::IMAGE2:5:14:128 644 0 0 7000 5300466361 33436 %RF000::IMAGE2_6000:5:14:128 $ %RF000 +l+l+lFST %SA000::IMAGE2:5:4:128 644 0 0 2000 5300466362 33326 %SA000::IMAGE2_6000:5:4:128 $ %SA000 +l+l+lFST %ST000::IMAGE2:5:2:68 644 0 0 1000 5300466364 32546 %ST000::IMAGE2_6000:5:2:68 $ D%ST000 +l+l+lFST %UT000::IMAGE2:5:32:128 644 0 0 20000 5300466366 33436 %UT000::IMAGE2_6000:5:32:128 $  %UT000 +l+l+l [FST SHORT_DBOPN.REL::IMAGE2:5:1:62 644 0 0 400 5300466370 35147 SHORT_DBOPN.REL::IMAGE2_6000:5:1:62 #$ $>SHORT_DBOPN REL +l+l+lnFST RDTB.REL::IMAGE2:5:3:127 644 0 0 1400 5300466371 33251 RDTB.REL::IMAGE2_6000:5:3:127 $ (RDTB REL +l+l+l1 FST DBRFR.LIB::IMAGE2:5:49:128 644 0 0 30400 5300466373 34035 DBRFR.LIB::IMAGE2_6000:5:49:128 $1 ,1DBRFR LIB +l+l+l1bFST USNUM.REL::IMAGE2:5:3:72 644 0 0 1400 5300466374 33772 USNUM.REL::IMAGE2_6000:5:3:72 $ `HUSNUM REL +l+l+loFFST DBARC.REL::IMAGE2:5:44:128 644 0 0 26000 5300466376 34346 DBARC.REL::IMAGE2_6000:5:44:128 $, d,DBARC REL +l+l+l,GLFST DBLOD.REL::IMAGE2:5:47:128 644 0 0 27400 5300466377 34647 DBLOD.REL::IMAGE2_6000:5:47:128 $/ /DBLOD REL +l+l+l/}zFST DBRST.REL::IMAGE2:5:21:128 644 0 0 12400 5300466400 33064 DBRST.REL::IMAGE2_6000:5:21:128 $ DBRST REL +m+m+m !E֬FST DBSTR.REL::IMAGE2:5:45:128 644 0 0 26400 5300466402 33440 DBSTR.REL::IMAGE2_6000:5:45:128 $- -DBSTR REL +m+m+m-2FST DBSPA.REL::IMAGE2:5:34:128 644 0 0 21000 5300466403 33225 DBSPA.REL::IMAGE2_6000:5:34:128 $" "DBSPA REL +m+m+m"AFST DBSPL.REL::IMAGE2:5:60:128 644 0 0 36000 5300466404 33120 DBSPL.REL::IMAGE2_6000:5:60:128 $< ,<DBSPL REL +m+m+m<FST DBULD.REL::IMAGE2:5:29:128 644 0 0 16400 5300466405 32661 DBULD.REL::IMAGE2_6000:5:29:128 $ hDBULD REL +m+m+m"eVFST DBCLN.REL::IMAGE2:5:17:128 644 0 0 10400 5300466407 32544 DBCLN.REL::IMAGE2_6000:5:17:128 $ DBCLN REL +m+m+m*vFST RDBAM.REL::IMAGE2:5:11:128 644 0 0 5400 5300466410 32651 RDBAM.REL::IMAGE2_6000:5:11:128 $  RDBAM REL +m+m+m t׊FST IMAGE6.CMD::IMAGE2:4:19:36 644 0 0 11400 5300466411 32776 IMAGE6.CMD::IMAGE2_6000:4:19:36 $ $IMAGE6 CMD +m +m +m  ]טFST IMAGEA.CMD::IMAGE2:4:21:35 644 0 0 12400 5300466413 33131 IMAGEA.CMD::IMAGE2_6000:4:21:35 $ #IMAGEA CMD +m +m +m  W׮FST ((DBARC.LOD::IMAGE2:4:3:34 644 0 0 1400 5300466414 32445 DBARC.LOD::IMAGE2_6000:4:3:34 $ "DBARC LOD +m +m +m YFST DBBLD.LOD::IMAGE2:4:3:34 644 0 0 1400 5300466416 32362 DBBLD.LOD::IMAGE2_6000:4:3:34 $ "DBBLD LOD +m +m+m"FST DBDS.LOD::IMAGE2:4:2:27 644 0 0 1000 5300466417 32460 DBDS.LOD::IMAGE2_6000:4:2:27 $ DBDS LOD +m+m+mFST DBLOD.LOD::IMAGE2:4:3:36 644 0 0 1400 5300466420 32547 DBLOD.LOD::IMAGE2_6000:4:3:36 $ $DBLOD LOD +m+m+mVFST DBMON.LOD::IMAGE2:4:6:34 644 0 0 3000 5300466421 33125 DBMON.LOD::IMAGE2_6000:4:6:34 $ "DBMON LOD +m+m+m)FST DBRBR.LOD::IMAGE2:4:3:37 644 0 0 1400 5300466423 32717 DBRBR.LOD::IMAGE2_6000:4:3:37 $ %DBRBR LOD +m+m+mvFST DBRFR.LOD::IMAGE2:4:3:34 644 0 0 1400 5300466424 32752 DBRFR.LOD::IMAGE2_6000:4:3:34 $ "DBRFR LOD +m+m+mFST DBRST.LOD::IMAGE2:4:3:34 644 0 0 1400 5300466425 32654 DBRST.LOD::IMAGE2_6000:4:3:34 $ "DBRST LOD +m+m+m FST DBSPA.LOD::IMAGE2:4:3:35 644 0 0 1400 5300466427 32361 DBSPA.LOD::IMAGE2_6000:4:3:35 $ #DBSPA LOD +m+m+mvFST DBSPL.LOD::IMAGE2:4:3:34 644 0 0 1400 5300466430 32247 DBSPL.LOD::IMAGE2_6000:4:3:34 $ "DBSPL LOD +m+m+m FST DBSTR.LOD::IMAGE2:4:3:34 644 0 0 1400 5300466431 32034 DBSTR.LOD::IMAGE2_6000:4:3:34 $ "DBSTR LOD +m+m+mOFST DBULD.LOD::IMAGE2:4:3:34 644 0 0 1400 5300466432 31647 DBULD.LOD::IMAGE2_6000:4:3:34 $  "DBULD LOD +m+m+m FST DBUTL.LOD::IMAGE2:4:2:24 644 0 0 1000 5300466434 32172 DBUTL.LOD::IMAGE2_6000:4:2:24 $ DBUTL LOD +m+m+mFST DBCLN.LOD::IMAGE2:4:3:34 644 0 0 1400 5300466435 31636 DBCLN.LOD::IMAGE2_6000:4:3:34 $ "DBCLN LOD +m+m+mFST QUERY.LOD::IMAGE2:4:3:34 644 0 0 1400 5300466436 32260 QUERY.LOD::IMAGE2_6000:4:3:34 $ "QUERY LOD +m+m+mcFST DBMS1.CMD::IMAGE2:4:1:34 644 0 0 400 5300466440 31705 DBMS1.CMD::IMAGE2_6000:4:1:34 $ "DBMS1 CMD +m +m +m xFST DBMS2.CMD::IMAGE2:4:1:24 644 0 0 400 5300466442 31647 DBMS2.CMD::IMAGE2_6000:4:1:24 $  DBMS2 CMD +m"+m"+m"T"FST DBMS3.CMD::IMAGE2:4:1:24 644 0 0 400 5300466444 31672 DBMS3.CMD::IMAGE2_6000:4:1:24 $ $DBMS3 CMD +m#+m$+m$U&FST >QY000::IMAGE2:1:77:128 644 0 0 46400 5300466445 32262 >QY000::IMAGE2_6000:1:77:128 $M (M>QY000 +m%+m%+m%M&M*FST DBUTL.HLP::IMAGE2:4:335:39 644 0 0 247400 5300466447 33633 DBUTL.HLP::IMAGE2_6000:4:335:39 $O xO'DBUTL HLP +m&+m'+m'O\KzFST ((DB6S1.CMD::IMAGE2:4:2:30 644 0 0 1000 5300466451 32535 DB6S1.CMD::IMAGE2_6000:4:2:30 $ DB6S1 CMD +m(+m)+m) FST DB6S2.CMD::IMAGE2:4:2:30 644 0 0 1000 5300466453 32574 DB6S2.CMD::IMAGE2_6000:4:2:30 $ DB6S2 CMD +m*+m++m+FST DB6S3.CMD::IMAGE2:4:2:30 644 0 0 1000 5300466455 32620 DB6S3.CMD::IMAGE2_6000:4:2:30 $ DB6S3 CMD +m,+m-+m-FST RDBAMA.LOD::IMAGE2:4:2:24 644 0 0 1000 5300466456 33123 RDBAMA.LOD::IMAGE2_6000:4:2:24 $ RDBAMA LOD +m.+m.+m.FST CDS_DBMS1.CMD::IMAGE2:4:1:26 644 0 0 400 5300466460 33570 CDS_DBMS1.CMD::IMAGE2_6000:4:1:26 !$ CDS_DBMS1 CMD +m/+m0+m0SFST CDS_DBMS2.CMD::IMAGE2:4:1:26 644 0 0 400 5300466462 33625 CDS_DBMS2.CMD::IMAGE2_6000:4:1:26 !$ CDS_DBMS2 CMD +m1+m2+m2\FST CDS_DBMS3.CMD::IMAGE2:4:1:26 644 0 0 400 5300466463 33646 CDS_DBMS3.CMD::IMAGE2_6000:4:1:26 !$ CDS_DBMS3 CMD +m3+m3+m3]FST RDBCLN.LOD::IMAGE2:4:3:34 644 0 0 1400 5300466465 33064 RDBCLN.LOD::IMAGE2_6000:4:3:34 $ "RDBCLN LOD +m4+m5+m5 FST RDBAM6.LOD::IMAGE2:4:1:24 644 0 0 400 5300466466 33072 RDBAM6.LOD::IMAGE2_6000:4:1:24 $ RDBAM6 LOD +m5+m6+m6} FST RDBAP6.LOD::IMAGE2:4:2:25 644 0 0 1000 5300466470 33160 RDBAP6.LOD::IMAGE2_6000:4:2:25 $ RDBAP6 LOD +m7+m8+m8FST RDBAPA.LOD::IMAGE2:4:2:25 644 0 0 1000 5300466472 33315 RDBAPA.LOD::IMAGE2_6000:4:2:25 $ RDBAPA LOD +m9+m:+m:FST DBUPGRADE.LOD::IMAGE2:4:2:26 644 0 0 1000 5300466473 34073 DBUPGRADE.LOD::IMAGE2_6000:4:2:26 !$ DBUPGRADE LOD +m:+m;+m; FST CREATE_ZOO.CMD::IMAGE2:4:3:31 644 0 0 1400 5300466475 34424 CREATE_ZOO.CMD::IMAGE2_6000:4:3:31 "$ CREATE_ZOO CMD +m<+m=+m=@FST INIT_IMAGE.UTL::IMAGE2:4:11:36 644 0 0 5400 5300466477 34373 INIT_IMAGE.UTL::IMAGE2_6000:4:11:36 #$  $INIT_IMAGE UTL +m>+m?+m? iRFST BACKUP_ZOO.UTL::IMAGE2:4:2:33 644 0 0 1000 5300466500 34021 BACKUP_ZOO.UTL::IMAGE2_6000:4:2:33 "$ !BACKUP_ZOO UTL +m@+m@+m@ FST NEW_LOGSET.CMD::IMAGE2:4:4:34 644 0 0 2000 5300466503 33746 NEW_LOGSET.CMD::IMAGE2_6000:4:4:34 "$ "NEW_LOGSET CMD +mB+mC+mCFST NEW_LOGSET.UTL::IMAGE2:4:6:38 644 0 0 3000 5300466504 34225 NEW_LOGSET.UTL::IMAGE2_6000:4:6:38 "$ &NEW_LOGSET UTL +mD+mD+mD,FST STARTUP.UTL::IMAGE2:4:1:29 644 0 0 400 5300466506 33173 STARTUP.UTL::IMAGE2_6000:4:1:29 $  STARTUP UTL +mE+mF+mFl $FST SHUTDOWN.UTL::IMAGE2:4:1:26 644 0 0 400 5300466510 33304 SHUTDOWN.UTL::IMAGE2_6000:4:1:26  $ $SHUTDOWN UTL +mG+mH+mH=(FST AC_ZOO.UTL::IMAGE2:4:9:39 644 0 0 4400 5300466512 33014 AC_ZOO.UTL::IMAGE2_6000:4:9:39 $ ( 'AC_ZOO UTL +mI+mJ+mJ 0,FST ((BK_ZOO.UTL::IMAGE2:4:2:33 644 0 0 1000 5300466514 33153 BK_ZOO.UTL::IMAGE2_6000:4:2:33 $ 4!BK_ZOO UTL +mK+mL+mL8FST BACKUP_TF.CMD::IMAGE2:4:5:36 644 0 0 2400 5300466516 33430 BACKUP_TF.CMD::IMAGE2_6000:4:5:36 !$ 8$BACKUP_TF CMD +mM+mN+mN-<FST RECOVER_RB.CMD::IMAGE2:4:3:32 644 0 0 1400 5300466517 34004 RECOVER_RB.CMD::IMAGE2_6000:4:3:32 "$ @ RECOVER_RB CMD +mO+mO+mOrDFST RECOVER_RB.UTL::IMAGE2:4:2:34 644 0 0 1000 5300466521 34311 RECOVER_RB.UTL::IMAGE2_6000:4:2:34 "$ D"RECOVER_RB UTL +mQ+mQ+mQ JFST RECOVER_RF.CMD::IMAGE2:4:3:33 644 0 0 1400 5300466523 34052 RECOVER_RF.CMD::IMAGE2_6000:4:3:33 "$ H!RECOVER_RF CMD +mS+mS+mSoNFST RECOVER_RF.UTL::IMAGE2:4:14:36 644 0 0 7000 5300466525 34646 RECOVER_RF.UTL::IMAGE2_6000:4:14:36 #$ L$RECOVER_RF UTL +mT+mU+mULTFST OHNO_GOTTA_GO.UTL::IMAGE2:4:4:32 644 0 0 2000 5300466527 35413 OHNO_GOTTA_GO.UTL::IMAGE2_6000:4:4:32 %$ \ OHNO_GOTTA_GO UTL +mW+mW+mWdFST &ADD::IMAGE2:4:16:35 644 0 0 10000 5300466531 32023 &ADD::IMAGE2_6000:4:16:35 $ `#&ADD +mX+mY+mYjFST &SLOB::IMAGE2:4:15:35 644 0 0 7400 5300466533 32175 &SLOB::IMAGE2_6000:4:15:35 $ p#&SLOB +mZ+m[+m[]~|FST &CCRSH::IMAGE2:4:10:36 644 0 0 5000 5300466535 32513 &CCRSH::IMAGE2_6000:4:10:36 $  $&CCRSH +m\+m]+m] TڎFST &TRADE::IMAGE2:4:12:35 644 0 0 6000 5300466537 32455 &TRADE::IMAGE2_6000:4:12:35 $  #&TRADE +m^+m_+m_ oښFST &LOGGR::IMAGE2:4:18:35 644 0 0 11000 5300466541 33025 &LOGGR::IMAGE2_6000:4:18:35 $ #&LOGGR +m`+ma+maڨFST &CRASH::IMAGE2:4:19:35 644 0 0 11400 5300466543 32701 &CRASH::IMAGE2_6000:4:19:35 $ #&CRASH +mb+mc+mc `ڼFST CMDZOO::IMAGE2:4:1:21 644 0 0 400 5300466545 32451 CMDZOO::IMAGE2_6000:4:1:21 $ CMDZOO +md+me+meCFST ZOOBLD::IMAGE2:4:2:30 644 0 0 1000 5300466546 32712 ZOOBLD::IMAGE2_6000:4:2:30 $ ZOOBLD +mf+mf+mf FST ZOORT::IMAGE2:4:9:36 644 0 0 4400 5300466550 32706 ZOORT::IMAGE2_6000:4:9:36 $  $ZOORT +mh+mh+mh l4FST A92081::IMAGE2:4:37:39 644 0 0 22400 5300466552 32653 A92081::IMAGE2_6000:4:37:39 $% %'A92081 +mi+u+mj%N~FST HPHPHP::PASCAL:4:44:37 644 0 0 26400 5300503611 32056 HPHPHP::PASCAL:4:44:37 $, L,%_HPHPHP ++$u+X-FST CONFIG_GUIDE.DOC::PASCAL:3:563:41 644 0 0 431400 5300501766 36117 CONFIG_GUIDE.DOC::PASCAL:3:563:41 !!$3 >X3)CONFIG_GUIDE DOC +++3 ,>FST A92833::PASCAL:4:54:39 644 0 0 33000 5300502014 32374 A92833::PASCAL:4:54:39 $6 A6'A92833 + +s+ 6tFST ((/PASCAL/CMP/ALB.REL:::5:28:128 644 0 0 16000 5300501412 33606 /PASCAL/CMP/ALB.REL:::5:28:128 $ xALB REL + + +  6ݬFST /PASCAL/CMP/CDSOF.REL:::5:1:57 644 0 0 400 5300501415 33370 /PASCAL/CMP/CDSOF.REL:::5:1:57 $ 9CDSOF REL + + + LFST /PASCAL/CMP/CDSON.REL:::5:1:56 644 0 0 400 5300501417 33433 /PASCAL/CMP/CDSON.REL:::5:1:56 $ 8CDSON REL +++KFST /PASCAL/CMP/DCT.REL:::5:1:56 644 0 0 400 5300501424 32741 /PASCAL/CMP/DCT.REL:::5:1:56 $ D8DCT REL +++mFST /PASCAL/CMP/PASCAL.ERR:::4:35:37 644 0 0 21400 5300501725 35551 /PASCAL/CMP/PASCAL.ERR:::4:35:37 $# =#%PASCAL ERR +++#3FST /PASCAL/CMP/CDS/CAT.REL:::5:4:128 644 0 0 2000 5300501607 34511 /PASCAL/CMP/CDS/CAT.REL:::5:4:128 !!$ ,CAT REL +++ FST /PASCAL/CMP/CDS/DBG.REL:::5:26:127 644 0 0 15000 5300501611 34464 /PASCAL/CMP/CDS/DBG.REL:::5:26:127 ""$ , DBG REL +++ LFST /PASCAL/CMP/CDS/DCL.REL:::5:178:128 644 0 0 131000 5300501612 35651 /PASCAL/CMP/CDS/DCL.REL:::5:178:128 ##$ ,<DCL REL +++X?FST /PASCAL/CMP/CDS/DLB.REL:::5:116:128 644 0 0 72000 5300501614 35753 /PASCAL/CMP/CDS/DLB.REL:::5:116:128 ##$t ,tDLB REL +++t9FST /PASCAL/CMP/CDS/ELB.REL:::5:121:128 644 0 0 74400 5300501615 35335 /PASCAL/CMP/CDS/ELB.REL:::5:121:128 ##$y -dyELB REL +++y<&HFST /PASCAL/CMP/CDS/ERW.REL:::5:41:128 644 0 0 24400 5300501617 35165 /PASCAL/CMP/CDS/ERW.REL:::5:41:128 ""$) -)ERW REL +++) HFST /PASCAL/CMP/CDS/EV1.REL:::5:129:128 644 0 0 100400 5300501621 35615 /PASCAL/CMP/CDS/EV1.REL:::5:129:128 ##$ . EV1 REL +++@ FST /PASCAL/CMP/CDS/EV2.REL:::5:116:128 644 0 0 72000 5300501622 35770 /PASCAL/CMP/CDS/EV2.REL:::5:116:128 ##$t .tEV2 REL +++t9tFST /PASCAL/CMP/CDS/EV3.REL:::5:81:128 644 0 0 50400 5300501624 35273 /PASCAL/CMP/CDS/EV3.REL:::5:81:128 ""$Q /QEV3 REL +++Q(}FST /PASCAL/CMP/CDS/EV4.REL:::5:39:128 644 0 0 23400 5300501625 34526 /PASCAL/CMP/CDS/EV4.REL:::5:39:128 ""$' /X'EV4 REL +++'>F>FST /PASCAL/CMP/CDS/EV5.REL:::5:47:128 644 0 0 27400 5300501627 34675 /PASCAL/CMP/CDS/EV5.REL:::5:47:128 ""$/ //EV5 REL +++/YhFST /PASCAL/CMP/CDS/EXP.REL:::5:153:128 644 0 0 114400 5300501631 36062 /PASCAL/CMP/CDS/EXP.REL:::5:153:128 ##$ /EXP REL +++LtFST /PASCAL/CMP/CDS/FLD.REL:::5:45:128 644 0 0 26400 5300501632 34671 /PASCAL/CMP/CDS/FLD.REL:::5:45:128 ""$- 0L-FLD REL +++-wN6FST /PASCAL/CMP/CDS/INT.REL:::5:105:128 644 0 0 64400 5300501634 35551 /PASCAL/CMP/CDS/INT.REL:::5:105:128 ##$i 0|iINT REL +++i47fFST /PASCAL/CMP/CDS/MAN.REL:::5:4:102 644 0 0 2000 5300501636 35041 /PASCAL/CMP/CDS/MAN.REL:::5:4:102 !!$ 0fMAN REL +++ FST ((/PASCAL/CMP/CDS/MEX.REL:::5:66:128 644 0 0 41000 5300501637 36041 /PASCAL/CMP/CDS/MEX.REL:::5:66:128 ""$B 0BMEX REL +++B FST /PASCAL/CMP/CDS/MIM.REL:::5:65:128 644 0 0 40400 5300501641 35066 /PASCAL/CMP/CDS/MIM.REL:::5:65:128 ""$A 10AMIM REL +++A fFST /PASCAL/CMP/CDS/MNU.REL:::5:78:128 644 0 0 47000 5300501642 36021 /PASCAL/CMP/CDS/MNU.REL:::5:78:128 ""$N 1tNMNU REL +++N&`FST /PASCAL/CMP/CDS/NFS.REL:::5:27:128 644 0 0 15400 5300501644 35240 /PASCAL/CMP/CDS/NFS.REL:::5:27:128 ""$ 1NFS REL +++ XNFST /PASCAL/CMP/CDS/OPT.REL:::5:71:128 644 0 0 43400 5300501645 35643 /PASCAL/CMP/CDS/OPT.REL:::5:71:128 ""$G 1GOPT REL +++G#:sFST /PASCAL/CMP/CDS/PASCAL.REL:::5:168:128 644 0 0 124000 5300501647 36533 /PASCAL/CMP/CDS/PASCAL.REL:::5:168:128 &&$ 2(PASCAL REL +++S{FST /PASCAL/CMP/CDS/PRG.REL:::5:158:128 644 0 0 117000 5300501651 36700 /PASCAL/CMP/CDS/PRG.REL:::5:158:128 ##$ 2PRG REL +++NFST /PASCAL/CMP/CDS/SCN.REL:::5:71:128 644 0 0 43400 5300501652 35212 /PASCAL/CMP/CDS/SCN.REL:::5:71:128 ""$G 3pGSCN REL +++G#bFST /PASCAL/CMP/CDS/SG00P.REL:::5:42:128 644 0 0 25000 5300501654 35662 /PASCAL/CMP/CDS/SG00P.REL:::5:42:128 $$$* 3*SG00P REL +++*jFST /PASCAL/CMP/CDS/SG01P.REL:::5:18:128 644 0 0 11000 5300501656 35567 /PASCAL/CMP/CDS/SG01P.REL:::5:18:128 $$$ 3SG01P REL +++/FST /PASCAL/CMP/CDS/SLB.REL:::5:103:128 644 0 0 63400 5300501657 35742 /PASCAL/CMP/CDS/SLB.REL:::5:103:128 ##$g 3gSLB REL +++g35FST /PASCAL/CMP/CDS/SSL.REL:::5:163:128 644 0 0 121400 5300501661 36253 /PASCAL/CMP/CDS/SSL.REL:::5:163:128 ##$ 4`SSL REL +++QXVFST /PASCAL/CMP/CDS/STF.REL:::5:45:128 644 0 0 26400 5300501662 35245 /PASCAL/CMP/CDS/STF.REL:::5:45:128 ""$- 5-STF REL +++->\FST /PASCAL/CMP/CDS/STM.REL:::5:64:128 644 0 0 40000 5300501664 35327 /PASCAL/CMP/CDS/STM.REL:::5:64:128 ""$@ 54@STM REL +++@,FST /PASCAL/CMP/CDS/STP.REL:::5:103:128 644 0 0 63400 5300501666 35770 /PASCAL/CMP/CDS/STP.REL:::5:103:128 ##$g 5tgSTP REL +++g3=nFST /PASCAL/CMP/CDS/TLM.REL:::5:134:128 644 0 0 103000 5300501667 36461 /PASCAL/CMP/CDS/TLM.REL:::5:134:128 ##$ 5TLM REL +++B!FST /PASCAL/CMP/CDS/ULB.REL:::5:286:128 644 0 0 217000 5300501671 35422 /PASCAL/CMP/CDS/ULB.REL:::5:286:128 ##$ 6lULB REL +++`FST /PASCAL/CMP/CDS/UNT.REL:::5:198:128 644 0 0 143000 5300501673 36761 /PASCAL/CMP/CDS/UNT.REL:::5:198:128 ##$ 7UNT REL +++bFST /PASCAL/CMP/CDS/UTL.REL:::5:91:128 644 0 0 55400 5300501675 35637 /PASCAL/CMP/CDS/UTL.REL:::5:91:128 ""$[ 8T[UTL REL +++[-XHFST /PASCAL/CMP/CDS/XFM.REL:::5:237:128 644 0 0 166400 5300501676 37154 /PASCAL/CMP/CDS/XFM.REL:::5:237:128 ##$ 8XFM REL +++vOFST ((/PASCAL/CMP/CDS/SAMER.REL:::5:3:66 644 0 0 1400 5300501700 35215 /PASCAL/CMP/CDS/SAMER.REL:::5:3:66 ""$ 9BSAMER REL +++e FST /PASCAL/CMP/CDS/DATE.REL:::5:3:64 644 0 0 1400 5300501705 34761 /PASCAL/CMP/CDS/DATE.REL:::5:3:64 !!$ ;@DATE REL +++- FST /PASCAL/CMP/CDS/SUM.REL:::5:45:128 644 0 0 26400 5300501720 35504 /PASCAL/CMP/CDS/SUM.REL:::5:45:128 ""$- =T-SUM REL +++-yPFST /PASCAL/CMP/CDS/PASCOMP_C.LOD:::3:6:34 644 0 0 3000 5300501733 37053 /PASCAL/CMP/CDS/PASCOMP_C.LOD:::3:6:34 &&$ ="PASCOMP_C LOD +++9FST /PASCAL/CMP/CDS/PASCAL_C.LOD:::4:1:21 644 0 0 400 5300501740 36154 /PASCAL/CMP/CDS/PASCAL_C.LOD:::4:1:21 %%$ =PASCAL_C LOD +++DFST /PASCAL/CMP/STD/CAT.REL:::5:4:122 644 0 0 2000 5300501414 34017 /PASCAL/CMP/STD/CAT.REL:::5:4:122 !!$ zCAT REL + + +  FST /PASCAL/CMP/STD/DBG.REL:::5:21:128 644 0 0 12400 5300501420 34063 /PASCAL/CMP/STD/DBG.REL:::5:21:128 ""$ DBG REL +++ MFST /PASCAL/CMP/STD/DCL.REL:::5:137:128 644 0 0 104400 5300501422 35503 /PASCAL/CMP/STD/DCL.REL:::5:137:128 ##$ DCL REL +++DGFST /PASCAL/CMP/STD/FDUBL.REL:::5:1:59 644 0 0 400 5300501425 33741 /PASCAL/CMP/STD/FDUBL.REL:::5:1:59 ""$ H;FDUBL REL +++bFST /PASCAL/CMP/STD/ERW.REL:::5:32:128 644 0 0 20000 5300501427 34404 /PASCAL/CMP/STD/ERW.REL:::5:32:128 ""$ L ERW REL +++ ;FST /PASCAL/CMP/STD/EV1.REL:::5:86:128 644 0 0 53000 5300501430 35066 /PASCAL/CMP/STD/EV1.REL:::5:86:128 ""$V lVEV1 REL +++V*FST /PASCAL/CMP/STD/EV2.REL:::5:82:128 644 0 0 51000 5300501432 34624 /PASCAL/CMP/STD/EV2.REL:::5:82:128 ""$R REV2 REL +++R(FST /PASCAL/CMP/STD/EV3.REL:::5:56:128 644 0 0 34000 5300501433 34211 /PASCAL/CMP/STD/EV3.REL:::5:56:128 ""$8 8EV3 REL +++8zZFST /PASCAL/CMP/STD/EV4.REL:::5:31:128 644 0 0 17400 5300501435 34042 /PASCAL/CMP/STD/EV4.REL:::5:31:128 ""$ PEV4 REL +++F5FST /PASCAL/CMP/STD/EV5.REL:::5:35:128 644 0 0 21400 5300501437 34257 /PASCAL/CMP/STD/EV5.REL:::5:35:128 ""$# p#EV5 REL +++#eFFST /PASCAL/CMP/STD/EXP.REL:::5:139:128 644 0 0 105400 5300501440 35341 /PASCAL/CMP/STD/EXP.REL:::5:139:128 ##$ EXP REL + + + E9YFST /PASCAL/CMP/STD/FLD.REL:::5:34:128 644 0 0 21000 5300501442 34242 /PASCAL/CMP/STD/FLD.REL:::5:34:128 ""$"  "FLD REL +!+"+""DjFST /PASCAL/CMP/STD/INT.REL:::5:88:128 644 0 0 54000 5300501443 34756 /PASCAL/CMP/STD/INT.REL:::5:88:128 ""$X DXINT REL +#+#+#X+yFST /PASCAL/CMP/STD/MAN.REL:::5:5:126 644 0 0 2400 5300501445 33775 /PASCAL/CMP/STD/MAN.REL:::5:5:126 !!$ ~MAN REL +$+%+% FST /PASCAL/CMP/STD/MEX.REL:::5:54:128 644 0 0 33000 5300501446 35134 /PASCAL/CMP/STD/MEX.REL:::5:54:128 ""$6 6MEX REL +&+&+&6vFST ((/PASCAL/CMP/STD/MIM.REL:::5:53:128 644 0 0 32400 5300501450 34447 /PASCAL/CMP/STD/MIM.REL:::5:53:128 ""$5 5MIM REL +'+(+(5=u(FST /PASCAL/CMP/STD/OPT.REL:::5:58:128 644 0 0 35000 5300501452 34441 /PASCAL/CMP/STD/OPT.REL:::5:58:128 ""$: :OPT REL +)+*+*:_`FST /PASCAL/CMP/STD/PRG.REL:::5:141:128 644 0 0 106400 5300501453 35304 /PASCAL/CMP/STD/PRG.REL:::5:141:128 ##$ PPRG REL ++++++FPFST /PASCAL/CMP/STD/SCN.REL:::5:61:128 644 0 0 36400 5300501455 34646 /PASCAL/CMP/STD/SCN.REL:::5:61:128 ""$= =SCN REL +,+-+-=yy,FST /PASCAL/CMP/STD/SG00P.REL:::5:38:128 644 0 0 23000 5300501456 34662 /PASCAL/CMP/STD/SG00P.REL:::5:38:128 $$$&  &SG00P REL +.+.+.&llFST /PASCAL/CMP/STD/SG01P.REL:::5:16:128 644 0 0 10000 5300501460 34546 /PASCAL/CMP/STD/SG01P.REL:::5:16:128 $$$ HSG01P REL +/+0+0-FST /PASCAL/CMP/STD/STF.REL:::5:36:128 644 0 0 22000 5300501462 34612 /PASCAL/CMP/STD/STF.REL:::5:36:128 ""$$ X$STF REL +1+2+2$OFST /PASCAL/CMP/STD/STM.REL:::5:56:128 644 0 0 34000 5300501463 35204 /PASCAL/CMP/STD/STM.REL:::5:56:128 ""$8 |8STM REL +3+3+38uFST /PASCAL/CMP/STD/STP.REL:::5:72:128 644 0 0 44000 5300501465 35103 /PASCAL/CMP/STD/STP.REL:::5:72:128 ""$H HSTP REL +4+5+5H#FST /PASCAL/CMP/STD/TLM.REL:::5:110:128 644 0 0 67000 5300501467 35752 /PASCAL/CMP/STD/TLM.REL:::5:110:128 ##$n nTLM REL +6+7+7n6PFST /PASCAL/CMP/STD/UNT.REL:::5:152:128 644 0 0 114000 5300501470 35560 /PASCAL/CMP/STD/UNT.REL:::5:152:128 ##$ lUNT REL +7+8+8K,FST /PASCAL/CMP/STD/UTL.REL:::5:81:128 644 0 0 50400 5300501472 34661 /PASCAL/CMP/STD/UTL.REL:::5:81:128 ""$Q QUTL REL +9+:+:Q(pZFST /PASCAL/CMP/STD/XFM.REL:::5:172:128 644 0 0 126000 5300501474 35776 /PASCAL/CMP/STD/XFM.REL:::5:172:128 ##$ XXFM REL +;+<+<UUFST /PASCAL/CMP/STD/PASCAL.REL:::5:140:128 644 0 0 106000 5300501475 36052 /PASCAL/CMP/STD/PASCAL.REL:::5:140:128 &&$  PASCAL REL +<+=+=EZ\FST /PASCAL/CMP/STD/FORCE.REL:::5:27:128 644 0 0 15400 5300501510 35253 /PASCAL/CMP/STD/FORCE.REL:::5:27:128 $$$ 'FORCE REL +H+H+H K[FST /PASCAL/CMP/STD/GO.REL:::5:2:59 644 0 0 1000 5300501512 33721 /PASCAL/CMP/STD/GO.REL:::5:2:59 $ ';GO REL +J+J+J FST /PASCAL/CMP/STD/MEU.REL:::5:11:127 644 0 0 5400 5300501514 34300 /PASCAL/CMP/STD/MEU.REL:::5:11:127 ""$ ' MEU REL +K+L+L  FST /PASCAL/CMP/STD/MSC.LIB:::5:641:128 644 0 0 500400 5300501516 35104 /PASCAL/CMP/STD/MSC.LIB:::5:641:128 ##$ 'MSC LIB +L+N+N@(FST /PASCAL/CMP/STD/NOTEL.REL:::5:1:58 644 0 0 400 5300501520 34423 /PASCAL/CMP/STD/NOTEL.REL:::5:1:58 ""$ *d:NOTEL REL +O+P+P^FST /PASCAL/CMP/STD/NUM.REL:::5:4:84 644 0 0 2000 5300501521 34243 /PASCAL/CMP/STD/NUM.REL:::5:4:84 $ *hTNUM REL +Q+Q+Q FST ((/PASCAL/CMP/STD/FCB.REL:::5:3:107 644 0 0 1400 5300501523 34111 /PASCAL/CMP/STD/FCB.REL:::5:3:107 !!$ *lkFCB REL +R+S+St FST /PASCAL/CMP/STD/PASS.LIB:::5:47:127 644 0 0 27400 5300501524 35126 /PASCAL/CMP/STD/PASS.LIB:::5:47:127 ##$/ *p/PASS LIB +T+T+T/FST /PASCAL/CMP/STD/PCIOR.REL:::5:16:128 644 0 0 10000 5300501526 35317 /PASCAL/CMP/STD/PCIOR.REL:::5:16:128 $$$ *PCIOR REL +V+V+VFST /PASCAL/CMP/STD/PCIOF.REL:::5:7:67 644 0 0 3400 5300501530 34621 /PASCAL/CMP/STD/PCIOF.REL:::5:7:67 ""$ *CPCIOF REL +W+X+XFST /PASCAL/CMP/STD/PICK.LIB:::5:131:128 644 0 0 101400 5300501531 35644 /PASCAL/CMP/STD/PICK.LIB:::5:131:128 $$$ *PICK LIB +Y+Y+YAOFST /PASCAL/CMP/STD/SAM6.REL:::5:14:128 644 0 0 7000 5300501533 34515 /PASCAL/CMP/STD/SAM6.REL:::5:14:128 ##$ +<SAM6 REL +[+[+[FST /PASCAL/CMP/STD/SAMA.REL:::5:14:128 644 0 0 7000 5300501535 34710 /PASCAL/CMP/STD/SAMA.REL:::5:14:128 ##$ +LSAMA REL +\+]+]FST /PASCAL/CMP/STD/SEGTB.REL:::5:3:127 644 0 0 1400 5300501536 34636 /PASCAL/CMP/STD/SEGTB.REL:::5:3:127 ##$ +\SEGTB REL +^+^+^bFST /PASCAL/CMP/STD/SG02P.REL:::5:3:128 644 0 0 1400 5300501540 34317 /PASCAL/CMP/STD/SG02P.REL:::5:3:128 ##$ +`SG02P REL +_+`+`FST /PASCAL/CMP/STD/SG03P.REL:::5:2:118 644 0 0 1000 5300501541 34645 /PASCAL/CMP/STD/SG03P.REL:::5:2:118 ##$ +dvSG03P REL +a+a+aFST /PASCAL/CMP/STD/SG04P.REL:::5:2:118 644 0 0 1000 5300501543 34672 /PASCAL/CMP/STD/SG04P.REL:::5:2:118 ##$ +hvSG04P REL +c+c+cFST /PASCAL/CMP/STD/SG05P.REL:::5:2:118 644 0 0 1000 5300501545 34716 /PASCAL/CMP/STD/SG05P.REL:::5:2:118 ##$ +lvSG05P REL +d+e+eFST /PASCAL/CMP/STD/SG06P.REL:::5:3:128 644 0 0 1400 5300501546 34565 /PASCAL/CMP/STD/SG06P.REL:::5:3:128 ##$ +pSG06P REL +f+f+f_FST /PASCAL/CMP/STD/SG07P.REL:::5:3:128 644 0 0 1400 5300501550 34506 /PASCAL/CMP/STD/SG07P.REL:::5:3:128 ##$ +tSG07P REL +g+h+h#FST /PASCAL/CMP/STD/SG08P.REL:::5:2:120 644 0 0 1000 5300501552 34776 /PASCAL/CMP/STD/SG08P.REL:::5:2:120 ##$ +xxSG08P REL +i+j+jFST /PASCAL/CMP/STD/SG09P.REL:::5:2:122 644 0 0 1000 5300501553 35034 /PASCAL/CMP/STD/SG09P.REL:::5:2:122 ##$ +|zSG09P REL +k+k+kFST /PASCAL/CMP/STD/SG10P.REL:::5:2:120 644 0 0 1000 5300501555 35002 /PASCAL/CMP/STD/SG10P.REL:::5:2:120 ##$ +xSG10P REL +l+m+mFST /PASCAL/CMP/STD/SG11P.REL:::5:2:118 644 0 0 1000 5300501556 35022 /PASCAL/CMP/STD/SG11P.REL:::5:2:118 ##$ +vSG11P REL +n+n+nFST /PASCAL/CMP/STD/SG12P.REL:::5:2:122 644 0 0 1000 5300501560 35054 /PASCAL/CMP/STD/SG12P.REL:::5:2:122 ##$ +zSG12P REL +p+p+pFST /PASCAL/CMP/STD/SG13P.REL:::5:2:118 644 0 0 1000 5300501562 35060 /PASCAL/CMP/STD/SG13P.REL:::5:2:118 ##$ +vSG13P REL +q+r+rFST ((/PASCAL/CMP/STD/SG14P.REL:::5:2:118 644 0 0 1000 5300501563 35100 /PASCAL/CMP/STD/SG14P.REL:::5:2:118 ##$ +vSG14P REL +s+s+sFST /PASCAL/CMP/STD/SG15P.REL:::5:2:118 644 0 0 1000 5300501565 35123 /PASCAL/CMP/STD/SG15P.REL:::5:2:118 ##$ +vSG15P REL +u+u+uFST /PASCAL/CMP/STD/SG16P.REL:::5:4:128 644 0 0 2000 5300501567 35064 /PASCAL/CMP/STD/SG16P.REL:::5:4:128 ##$ +SG16P REL +v+w+wFST /PASCAL/CMP/STD/SG17P.REL:::5:2:120 644 0 0 1000 5300501570 35165 /PASCAL/CMP/STD/SG17P.REL:::5:2:120 ##$ +xSG17P REL +x+x+xFST /PASCAL/CMP/STD/SG18P.REL:::5:3:128 644 0 0 1400 5300501572 34771 /PASCAL/CMP/STD/SG18P.REL:::5:3:128 ##$ +SG18P REL +y+z+z:FST /PASCAL/CMP/STD/SSC.REL:::5:26:128 644 0 0 15000 5300501574 35301 /PASCAL/CMP/STD/SSC.REL:::5:26:128 ""$ +SSC REL +{+|+| :FST /PASCAL/CMP/STD/TRACE.REL:::5:11:128 644 0 0 5400 5300501575 35033 /PASCAL/CMP/STD/TRACE.REL:::5:11:128 $$$ + TRACE REL +}+}+} eFST /PASCAL/CMP/STD/TRACE1.REL:::5:2:66 644 0 0 1000 5300501577 35101 /PASCAL/CMP/STD/TRACE1.REL:::5:2:66 ##$ +BTRACE1 REL +++ FST /PASCAL/CMP/STD/ETC.LIB:::5:282:128 644 0 0 215000 5300501714 35230 /PASCAL/CMP/STD/ETC.LIB:::5:282:128 ##$ < ETC LIB +++7$FST /PASCAL/CMP/STD/SG19P.REL:::5:3:128 644 0 0 1400 5300501715 34734 /PASCAL/CMP/STD/SG19P.REL:::5:3:128 ##$ =(SG19P REL +++5@FST /PASCAL/CMP/STD/SUM.REL:::5:40:128 644 0 0 24000 5300501717 35406 /PASCAL/CMP/STD/SUM.REL:::5:40:128 ""$( =,(SUM REL +++(;FFST /PASCAL/CMP/STD/DCV.REL:::5:6:128 644 0 0 3000 5300501722 35061 /PASCAL/CMP/STD/DCV.REL:::5:6:128 !!$ =DCV REL +++pFST /PASCAL/CMP/STD/DATE.REL:::5:3:64 644 0 0 1400 5300501724 34672 /PASCAL/CMP/STD/DATE.REL:::5:3:64 !!$ =@DATE REL +++ xFST /PASCAL/CMP/STD/PASCOMP_A.LOD:::3:15:34 644 0 0 7400 5300501727 36663 /PASCAL/CMP/STD/PASCOMP_A.LOD:::3:15:34 ''$ ="PASCOMP_A LOD +++~FST /PASCAL/CMP/STD/PASCOMP_6.LOD:::3:15:34 644 0 0 7400 5300501731 36672 /PASCAL/CMP/STD/PASCOMP_6.LOD:::3:15:34 ''$ ="PASCOMP_6 LOD +++#FST /PASCAL/CMP/STD/PASCAL_A.LOD:::4:1:29 644 0 0 400 5300501734 36145 /PASCAL/CMP/STD/PASCAL_A.LOD:::4:1:29 %%$ =PASCAL_A LOD +++DFST /PASCAL/CMP/STD/PASCAL_6.LOD:::4:1:29 644 0 0 400 5300501736 36123 /PASCAL/CMP/STD/PASCAL_6.LOD:::4:1:29 %%$ =PASCAL_6 LOD +++DFST /PASCAL/ETC/ALTER/ALTER.REL:::5:94:128 644 0 0 57000 5300501702 37172 /PASCAL/ETC/ALTER/ALTER.REL:::5:94:128 &&$^ 9^ALTER REL +++^.FST /PASCAL/ETC/ALTER/ALTER.DAT:::4:54:32 644 0 0 33000 5300501741 36405 /PASCAL/ETC/ALTER/ALTER.DAT:::4:54:32 %%$6 =6 ALTER DAT +++6q FST /PASCAL/ETC/ALTER/ALTER.LOD:::4:1:29 644 0 0 400 5300501743 35201 /PASCAL/ETC/ALTER/ALTER.LOD:::4:1:29 $$$ > ALTER LOD +++IBFST ((/PASCAL/ETC/ALTER/ALTER.DOC:::3:61:40 644 0 0 36400 5300502013 34772 /PASCAL/ETC/ALTER/ALTER.DOC:::3:61:40 %%$= @=(ALTER DOC + + + =FFST /PASCAL/INSTALL/SAMPLE.PAS:::4:3:33 644 0 0 1400 5300501744 35420 /PASCAL/INSTALL/SAMPLE.PAS:::4:3:33 ##$ >$!SAMPLE PAS +++1FST /PASCAL/INSTALL/INSTALL:::4:9:38 644 0 0 4400 5300501746 35170 /PASCAL/INSTALL/INSTALL:::4:9:38 $ >( &INSTALL +++ K1FST /PASCAL/INSTALL/INSTALL_LIBS:::3:2:33 644 0 0 1000 5300501750 36634 /PASCAL/INSTALL/INSTALL_LIBS:::3:2:33 %%$ >4!INSTALL_LIBS +++FST /PASCAL/INSTALL/CONFIG_CMP:::4:4:35 644 0 0 2000 5300501751 36116 /PASCAL/INSTALL/CONFIG_CMP:::4:4:35 ##$ >8#CONFIG_CMP +++FST /PASCAL/INSTALL/INSTALL_CMP:::4:2:37 644 0 0 1000 5300501752 36461 /PASCAL/INSTALL/INSTALL_CMP:::4:2:37 $$$ ><%INSTALL_CMP +++ FST /PASCAL/INSTALL/TEST_STD:::4:3:38 644 0 0 1400 5300501754 35542 /PASCAL/INSTALL/TEST_STD:::4:3:38 !!$ >@&TEST_STD +++7FST /PASCAL/INSTALL/TEST_CDS:::4:3:37 644 0 0 1400 5300501755 35434 /PASCAL/INSTALL/TEST_CDS:::4:3:37 !!$ >D%TEST_CDS +++FST /PASCAL/INSTALL/INSTALL_C:::4:3:36 644 0 0 1400 5300501757 35606 /PASCAL/INSTALL/INSTALL_C:::4:3:36 ""$ >H$INSTALL_C +++FST /PASCAL/INSTALL/INSTALL_A:::4:3:36 644 0 0 1400 5300501760 35612 /PASCAL/INSTALL/INSTALL_A:::4:3:36 ""$ >L$INSTALL_A +++FST /PASCAL/INSTALL/INSTALL_6:::4:4:36 644 0 0 2000 5300501762 36014 /PASCAL/INSTALL/INSTALL_6:::4:4:36 ""$ >P$INSTALL_6 +++FST /PASCAL/INSTALL/INSTALL_ALTER:::4:2:33 644 0 0 1000 5300501763 37106 /PASCAL/INSTALL/INSTALL_ALTER:::4:2:33 &&$ >T!INSTALL_ALTER +++ FST /PASCAL/INSTALL/INSTALL_STD_LIBS:::4:3:35 644 0 0 1400 5300501767 40026 /PASCAL/INSTALL/INSTALL_STD_LIBS:::4:3:35 ))$ @#INSTALL_STD_LIBS +++5FST /PASCAL/INSTALL/INSTALL_CDS_LIBS:::4:2:35 644 0 0 1000 5300501771 40212 /PASCAL/INSTALL/INSTALL_CDS_LIBS:::4:2:35 ))$ @#INSTALL_CDS_LIBS +++ FST /PASCAL/INSTALL/INSTALL_FMGR_LIB:::4:3:35 644 0 0 1400 5300501772 37710 /PASCAL/INSTALL/INSTALL_FMGR_LIB:::4:3:35 ))$ @#INSTALL_FMGR_LIB +++ FST /PASCAL/INSTALL/INSTALL_ALT_LIBS:::4:2:35 644 0 0 1000 5300501774 40267 /PASCAL/INSTALL/INSTALL_ALT_LIBS:::4:2:35 ))$ @#INSTALL_ALT_LIBS +++ FST /PASCAL/INSTALL/INSTALL_ERR_FILE:::4:2:35 644 0 0 1000 5300501775 40202 /PASCAL/INSTALL/INSTALL_ERR_FILE:::4:2:35 ))$ @#INSTALL_ERR_FILE +++ FST /PASCAL/INSTALL/RESTORE_LIBS:::4:2:33 644 0 0 1000 5300501777 37135 /PASCAL/INSTALL/RESTORE_LIBS:::4:2:33 %%$ @!RESTORE_LIBS +++ FST /PASCAL/INSTALL/RESTORE_STD_CMP:::4:2:34 644 0 0 1000 5300502001 36616 /PASCAL/INSTALL/RESTORE_STD_CMP:::4:2:34 (($ @"RESTORE_STD_CMP +++FST /PASCAL/INSTALL/RESTORE_CDS_CMP:::4:2:34 644 0 0 1000 5300502002 36550 /PASCAL/INSTALL/RESTORE_CDS_CMP:::4:2:34 (($ @"RESTORE_CDS_CMP +++FST ((/PASCAL/INSTALL/RESTORE_ALTER:::4:2:35 644 0 0 1000 5300502004 36044 /PASCAL/INSTALL/RESTORE_ALTER:::4:2:35 &&$ @#RESTORE_ALTER +++ FST /PASCAL/INSTALL/SIZE_UP_LINK_C:::4:2:37 644 0 0 1000 5300502005 36451 /PASCAL/INSTALL/SIZE_UP_LINK_C:::4:2:37 ''$ @%SIZE_UP_LINK_C +++FST /PASCAL/INSTALL/SIZE_UP_LINK_A:::4:2:37 644 0 0 1000 5300502006 36457 /PASCAL/INSTALL/SIZE_UP_LINK_A:::4:2:37 ''$ @%SIZE_UP_LINK_A +++FST /PASCAL/INSTALL/SIZE_UP_LINK_6:::4:3:37 644 0 0 1400 5300502010 36310 /PASCAL/INSTALL/SIZE_UP_LINK_6:::4:3:37 ''$ @%SIZE_UP_LINK_6 +++AFST /PASCAL/INSTALL/LINKSZ.LOD:::4:1:32 644 0 0 400 5300502012 34634 /PASCAL/INSTALL/LINKSZ.LOD:::4:1:32 ##$ @ LINKSZ LOD + + + 7FST /PASCAL/LIB/CDS/PASCAL_CDS.LIB:::5:621:128 644 0 0 466400 5300501477 36364 /PASCAL/LIB/CDS/PASCAL_CDS.LIB:::5:621:128 **$m  mPASCAL_CDS LIB +>+?+?m6NFST /PASCAL/LIB/CDS/PASCAL_CTRA.REL:::5:5:128 644 0 0 2400 5300501504 36030 /PASCAL/LIB/CDS/PASCAL_CTRA.REL:::5:5:128 ))$ 'PASCAL_CTRA REL +C+D+D rFST /PASCAL/LIB/CDS/PASCAL_CERR.REL:::5:11:128 644 0 0 5400 5300501601 36537 /PASCAL/LIB/CDS/PASCAL_CERR.REL:::5:11:128 **$ + PASCAL_CERR REL +++ "zFST /PASCAL/LIB/STD/PASCAL_FMGR.LIB:::5:583:128 644 0 0 443400 5300501501 36422 /PASCAL/LIB/STD/PASCAL_FMGR.LIB:::5:583:128 ++$G #GPASCAL_FMGR LIB +@+A+AG#9FST /PASCAL/LIB/STD/PASCAL.LIB:::5:586:128 644 0 0 445000 5300501502 35602 /PASCAL/LIB/STD/PASCAL.LIB:::5:586:128 &&$J %HJPASCAL LIB +A+B+BJ$LFST /PASCAL/LIB/STD/PASCAL_LH2.REL:::5:2:61 644 0 0 1000 5300501505 35042 /PASCAL/LIB/STD/PASCAL_LH2.REL:::5:2:61 ''$ '=PASCAL_LH2 REL +E+E+EFST /PASCAL/LIB/STD/PASCAL_ERR.REL:::5:9:128 644 0 0 4400 5300501507 35307 /PASCAL/LIB/STD/PASCAL_ERR.REL:::5:9:128 (($ ' PASCAL_ERR REL +G+G+G '"FST /PASCAL/LIB/STD/PASCAL_TRA.REL:::5:6:128 644 0 0 3000 5300501602 36200 /PASCAL/LIB/STD/PASCAL_TRA.REL:::5:6:128 (($ +PASCAL_TRA REL +++.FST /PASCAL/LIB/STD/PASCAL_TRB.REL:::5:21:128 644 0 0 12400 5300501604 36122 /PASCAL/LIB/STD/PASCAL_TRB.REL:::5:21:128 ))$ +PASCAL_TRB REL +++ %96FST /PASCAL/LIB/STD/PASCAL_TRC.REL:::5:21:128 644 0 0 12400 5300501605 35613 /PASCAL/LIB/STD/PASCAL_TRC.REL:::5:21:128 ))$ ,PASCAL_TRC REL +++ %9NFST /PASCAL/LIB/STD/PASCAL_FMGR_ALT.LIB:::5:468:126 644 0 0 352000 5300501704 41525 /PASCAL/LIB/STD/PASCAL_FMGR_ALT.LIB:::5:468:126 //$ :~PASCAL_FMGR_ALT LIB +++fFST /PASCAL/LIB/STD/SHSLB.LIB:::5:18:126 644 0 0 11000 5300501707 35260 /PASCAL/LIB/STD/SHSLB.LIB:::5:18:126 $$$ ;~SHSLB LIB +++<<FST /PASCAL/LIB/STD/SHSLB_ALT.LIB:::5:14:126 644 0 0 7000 5300501710 36400 /PASCAL/LIB/STD/SHSLB_ALT.LIB:::5:14:126 (($ ;~SHSLB_ALT LIB +++?PFST /PASCAL/LIB/STD/PASCAL_ERR_ALT.REL:::5:9:60 644 0 0 4400 5300501712 36701 /PASCAL/LIB/STD/PASCAL_ERR_ALT.REL:::5:9:60 ++$ < FS000:::1:86 92570-16113 6000 01 01 5 /RTE_6/FSTP.REL:::5:13192570-16152 6000 01 01 5 /RTE_6/%DL000:::5:492570-16154 6000 01 01 5 /RTE_6/CLOSE.REL:::5:4 92570-16155 6000 01 01 5 /RTE_6/%CL000:::5:292570-16159 6000 01 01 5 /RTE_6/%CR000:::5:10 92570-16161 6000 01 01 5 /RTE_6/%CI000:::5:892570-16164 6000 01 01 5 /RTE_6/%CIX:::5:13 92570-16165 6000 01 01 5 /RTE_6/MPACK.REL:::5:222 92570-16166 6000 01 01 5 /RTE_6/MPACK.R000:::5:22 92570-16173 6000 01 01 5 /RTE_6/FVERI.REL:::5:106 92570-16174 6000 01 01 5 /RTE_6/%FV000:::5:18 92570-16176 6000 01 01 5 /RTE_6/FPACK.REL:::5:4992570-16178 6000 01 01 5 /RTE_6/%FP000:::5:292570-16192 6000 01 01 5 /RTE_6/TF.REL:::5:33 92570-16194 6000 01 01 1 /RTE_6/>TF000:::1:29 92570-16232 6000 01 01 5 /RTE_6/%CX000:::5:292570-16237 6000 01 01 5 /RTE_6/FOWN.REL:::5:33 92570-16239 6000 01 01 5 /RTE_6/FOWN.R000:::5:3 92570-16257 6000 01 01 5 /RTE_6/%DSRTR:::5:12892570-16262 6000 01 01 5 /RTE_6/CALLM.REL:::5:2292570-17012 6000 01 01 3 /RTE_6/DL.LOD:::3:292570-17021 6000 01 01 4 /RTE_6/HELP/DL.HELP:::4:34 92570-17022 6000 01 01 4 /RTE_6/HELP/MASK.HELP:::4:43 92570-17023 6000 01 01 4 /RTE_6/FST.LOD:::4:4 92570-17024 6000 01 01 4 /RTE_6/FSTP.LOD:::4:192570-17028 6000 01 01 3 /RTE_6/CLOSE.LOD:::3:1 92570-17029 6000 01 01 4 /RTE_6/HELP/CLOSE.HELP:::4:4 92570-17032 6000 01 01 4 /RTE_6/#CIX:::4:392570-17034 6000 01 01 4 /RTE_6/MPACK.LOD:::4:1 92570-17035 6000 01 01 3 /RTE_6/FVERI.LOD:::3:1 92570-17036 6000 01 01 3 /RTE_6/FPACK.LOD:::3:1 92570-17043 6000 01 01 3 /RTE_6/TF.LOD:::3:492570-17066 6000 01 01 4 /RTE_6/WHOSD.LOD:::4:1 92570-17067 6000 01 01 4 /RTE_6/HELP/WHOSD.HELP:::4:1492570-17069 6000 01 01 3 /RTE_6/FOWN.LOD:::3:192570-17070 6000 01 01 4 /RTE_6/HELP/FOWN.HELP:::4:792570-17077 6000 01 01 4 /RTE_6/HELP/CALLS.HELP:::4:3692570-17078 6000 01 01 4 /RTE_6/HELP/CALLM.HELP:::4:1492833-16107 6000 01 01 5 /RTE_6/PASCAL_FMGR.LIB:::5:583 92833-16113 6000 01 01 5 /RTE_6/PASCAL.LIB:::5:58692833-16125 5000 01 01 5 /RTE_6/PASCAL_ERR.REL:::5:9 92833-16210 5000 01 01 5 /RTE_6/PASCAL_FMGR_ALT.LIB:::5:468 92833-16220 5000 01 01 5 /RTE_6/SHSLB.LIB:::5:1892833-16221 5000 01 01 5 /RTE_6/SHSLB_ALT.LIB:::5:1492833-16222 5000 01 01 5 /RTE_6/PASCAL_ERR_ALT.REL:::5:9* * END MATERIAL LIST * * "* MATERIAL LIST: 91750-13310 REV: 6000 CT-DS/1000 2204"* * (SAME AS MATERIAL LIST: 91750-13502 REV: 6000 ) * (SAME AS MATERIAL LIST: 91750-13600 REV: 6000 ) * * Directory: /DS1000/ * 91750-12001 6000 01 01 5 /DS1000/$DSLB1:::5:4691750-12002 5020 01 01 5 /DS1000/$DSLB2:::5:6991750-12003 2540 01 01 5 /DS1000/$DSLB3:::5:8 91750-12008 2440 01 01 5 /DS1000/$DSMA:::5:31 91750-12010 2440 01 01 5 /DS1000/$DSNMA:::5:2 91750-12011 2013 01 01 5 /DS1000/$DSNRR:::5:2 91750-12012 2340 01 01 5 /DS1000/$DSNSM:::5:2 91750-12013 2226 01 01 5 /DS1000/$DSRR:::5:29 91750-12014 5020 01 01 5 /DS1000/$DSSM:::5:85 91750-12015 5020 01 01 5 /DS1000/$DSLSM:::5:6691750-12016 2201 01 01 5 /DS1000/$D3KL2:::5:2 91750-12017 5020 01 01 5 /DS1000/$D3KLB:::5:102 91750-12018 2201 01 01 5 /DS1000/$D3KRB:::5:3 91750-12019 2201 01 01 5 /DS1000/$D3KBB:::5:3 91750-12021 2201 01 01 5 /DS1000/$D3KMB:::5:3 91750-12023 5020 01 01 5 /DS1000/$DSMX6:::5:3291750-12027 5020 01 01 5 /DS1000/$DSAL:::5:32 91750-12028 2440 01 01 5 /DS1000/$D3X25:::5:1391750-12029 2401 01 01 5 /DS1000/$D3N25:::5:2 91750-16040 6000 01 01 5 /DS1000/%APLDL:::5:4 91750-16048 2340 01 01 5 /DS1000/%CNSLM:::5:4 91750-16049 2013 01 01 5 /DS1000/%COMND:::5:5 91750-16068 5020 01 01 5 /DS1000/%DINIT:::5:4691750-16069 5020 01 01 5 /DS1000/%DINIS:::5:5291750-16072 5000 01 01 5 /DS1000/%DLIS1:::5:1391750-16073 5000 01 01 5 /DS1000/%DLIS2:::5:1291750-16077 5020 01 01 5 /DS1000/%DSINF:::5:7491750-16078 5020 01 01 5 /DS1000/%DSIN2:::5:6691750-16079 5020 01 01 5 /DS1000/%DSINL:::5:6991750-16092 5020 01 01 5 /DS1000/%DSMOD:::5:3891750-16100 2013 01 01 5 /DS1000/%DSTES:::5:2 91750-16102 5020 01 01 5 /DS1000/%DSVCP:::5:1691750-16105 4010 01 01 5 /DS1000/%DVA65:::5:1591750-16107 2326 01 01 5 /DS1000/%DVA66:::5:2791750-16108 2201 01 01 5 /DS1000/%DVG67:::5:2691750-16109 2201 01 01 5 /DS1000/%MDV00:::5:1191750-16111 5020 01 01 5 /DS1000/%EXECM:::5:1791750-16112 5000 01 01 5 /DS1000/%EXECW:::5:6 91750-16124 5020 01 01 5 /DS1000/%GRPM:::5:15 91750-16126 5010 01 01 5 /DS1000/%ID*66:::5:2791750-16129 2340 01 01 5 /DS1000/%INCNV:::5:1091750-16130 5020 01 01 5 /DS1000/%IOMAP:::5:6 91750-16132 2540 01 01 5 /DS1000/%LOG3K:::5:1691750-16133 5000 01 01 5 /DS1000/%LUMAP:::5:1091750-16134 2201 01 01 5 /DS1000/%LUQUE:::5:3 91750-16136 5010 01 01 5 /DS1000/%MATIC:::5:5 91750-16142 2440 01 01 5 /DS1000/%OPERL:::5:6 91750-16143 2140 01 01 5 /DS1000/%OPERM:::5:3 91750-16144 2440 01 01 5 /DS1000/%OTCNV:::5:7 91750-16147 5020 01 01 5 /DS1000/%PLOG:::5:18 91750-16150 5240 01 01 5 /DS1000/%PROGL:::5:1491750-16151 2340 01 01 5 /DS1000/%PTOPM:::5:8 91750-16152 5020 01 01 5 /DS1000/%QCLM:::5:18 91750-16153 2401 01 01 5 /DS1000/%QUEUE:::5:4 91750-16154 2340 01 01 5 /DS1000/%QUEX:::5:21 91750-16155 5020 01 01 5 /DS1000/%QUEX1:::5:1391750-16156 2201 01 01 5 /DS1000/%QUEZ:::5:291750-16157 2401 01 01 5 /DS1000/%QUEZ1:::5:2 91750-16159 6000 01 01 5 /DS1000/%REMAN:::5:4291750-16162 2440 01 01 5 /DS1000/%RESM:::5:12 91750-16163 2440 01 01 5 /DS1000/%RESSM:::5:1391750-16164 2440 01 01 5 /DS1000/%RFAM1:::5:1091750-16165 2440 01 01 5 /DS1000/%RFAM2:::5:2991750-16167 5020 01 01 5 /DS1000/%RMOTE:::5:2291750-16168 5020 01 01 5 /DS1000/%RMOT1:::5:4091750-16169 2013 01 01 5 /DS1000/%RMTIO:::5:1291750-16170 5020 01 01 5 /DS1000/%RPCNV:::5:1291750-16171 5020 01 01 5 /DS1000/%RQCNV:::5:2091750-16172 5020 01 01 5 /DS1000/%RSM:::5:1491750-16173 2301 01 01 5 /DS1000/%RTRY:::5:491750-16176 2113 01 01 5 /DS1000/%SLCIN:::5:1991750-16177 5020 01 01 5 /DS1000/%TLOG:::5:49 91750-16178 5020 01 01 5 /DS1000/%TRC3K:::5:5191750-16179 5020 01 01 5 /DS1000/%UPLIN:::5:1291750-16180 2226 01(( 01 5 /DS1000/%VCPMN:::5:3 91750-16202 5020 01 01 5 /DS1000/%SYSAT:::5:3 91750-16208 2140 01 01 5 /DS1000/%#SEND:::5:5 91750-16212 5020 01 01 5 /DS1000/%MVCP3:::5:1391750-16213 5000 01 01 1 /DS1000/!COPY3:::1:4891750-16221 2013 01 01 5 /DS1000/%#SPLU:::5:1 91750-16226 5240 01 01 5 /DS1000/%PROGZ:::5:1591750-16234 2201 01 01 5 /DS1000/%SGXL:::5:691750-16240 2140 01 01 5 /DS1000/%EDI6D:::5:4191750-16241 2140 01 01 5 /DS1000/%DVS64:::5:2591750-16242 2326 01 01 5 /DS1000/%IDS64:::5:2491750-16243 2140 01 01 5 /DS1000/%FCL7:::5:791750-16263 5020 01 01 5 /DS1000/%DSLIN:::5:8191750-16268 6000 01 01 5 /DS1000/%CSV66:::5:1691750-16269 6000 01 01 5 /DS1000/%CXL66:::5:1791750-16283 2540 01 01 5 /DS1000/%RESA:::5:15 91750-16286 5270 01 01 5 /DS1000/%ADV00:::5:1391750-16292 2340 01 01 5 /DS1000/%DDA66:::5:1891750-16293 2340 01 01 5 /DS1000/%MDFCL:::5:4291750-16300 2401 01 01 5 /DS1000/%DVB65:::5:1591750-16527 5000 01 01 5 /DS1000/%WHZ6D:::5:5191750-17004 5010 01 01 4 /DS1000/#RMOTM:::4:8 91750-17005 2540 01 01 4 /DS1000/#RMOTA:::4:8 91750-17007 5010 01 01 4 /DS1000/#LKDS:::4:191750-17008 6000 01 01 4 /DS1000/*LDDS:::4:30 91750-17009 5010 01 01 4 /DS1000/LINK2:::4:791750-17010 6000 01 01 4 /DS1000/Y.CMD:::4:36 91750-17011 6000 01 01 4 /DS1000/YES:::4:36 91750-17012 5010 01 01 4 /DS1000/NO:::4:3 91750-17013 5010 01 01 4 /DS1000/N.CMD:::4:391750-17014 5010 01 01 4 /DS1000/README:::4:1691750-17999 6000 01 01 4 /DS1000/A91750.MNF:::4:9 91750-18999 6000 01 01 4 /DS1000/A91750:::4:36* * END MATERIAL LIST * * "* MATERIAL LIST: 91751-13308 REV: 6000 CT X.25 2204"* * (SAME AS MATERIAL LIST: 91751-13502 REV: 6000 ) * (SAME AS MATERIAL LIST: 91751-13600 REV: 6000 ) * * Directory: /X25/ADM/ * Directory: /X25/CMD/ * Directory: /X25/REL/ * Directory: /X25/TXT/ * 91751-12001 6000 01 01 5 /X25/REL/X25LB.LIB:::5:8191751-12002 6000 01 01 5 /X25/REL/X25DS.LIB:::5:3891751-16001 5020 01 01 5 /X25/REL/DVX00.REL:::5:3691751-16002 5000 01 01 5 /X25/REL/DDX60.REL:::5:1391751-16003 2440 01 01 5 /X25/REL/#X25T.REL:::5:3 91751-16004 5020 01 01 5 /X25/REL/DDX00.REL:::5:4791751-16005 6000 01 01 5 /X25/REL/DD*60.REL:::5:1591751-16006 2440 01 01 5 /X25/REL/CSTB.REL:::5:191751-16007 2440 01 01 5 /X25/REL/#XCOM.REL:::5:1 91751-16008 2440 01 01 5 /X25/REL/XINEF.REL:::5:4 91751-16010 5000 01 01 5 /X25/REL/XFOEF.REL:::5:3 91751-16012 2440 01 01 5 /X25/REL/XINXA.REL:::5:5 91751-16013 2440 01 01 5 /X25/REL/XNFOA.REL:::5:4 91751-16020 6000 01 01 5 /X25/REL/XNET.REL:::5:45391751-16040 6000 01 01 5 /X25/REL/XINIT.REL:::5:321 91751-16060 6000 01 01 5 /X25/REL/XMOD.REL:::5:15491751-16081 6000 01 01 5 /X25/REL/XPLOG.REL:::5:2991751-16100 5020 01 01 5 /X25/REL/XTLOG.REL:::5:184 91751-16120 6000 01 01 5 /X25/REL/XNFEF.REL:::5:199 91751-16122 6000 01 01 5 /X25/REL/XINFA.REL:::5:212 91751-16140 5000 01 01 5 /X25/REL/XREAD.REL:::5:1191751-16160 5010 01 01 5 /X25/REL/XWRIT.REL:::5:1091751-16180 6000 01 01 5 /X25/REL/LAPBV.REL:::5:3891751-16200 6000 01 01 5 /X25/REL/GENPK.REL:::5:5391751-16220 5020 01 01 5 /X25/REL/SRVEY.REL:::5:4691751-16230 5020 01 01 5 /X25/REL/CSPAD.REL:::5:1091751-16231 5020 01 01 5 /X25/REL/CVPAD.REL:::5:1091751-16309 5000 01 01 5 /X25/REL/X25NONCDS.REL:::5:1 91751-17015 2440 01 01 4 /X25/CMD/X25.CMD:::4:1391751-17024 5000 01 01 3 /X25/CMD/XLOEF.X25:::3:1091751-17025 5000 01 01 3 /X25/CMD/DLOEF.X25:::3:1191751-17026 5000 01 01 3 /X25/CMD/XLOOA.X25:::3:1091751-17027 5000 01 01 3 /X25/CMD/DLOOA.X25:::3:1191751-17030 5010 01 01 4 /X25/CMD/INSTALL_X25A.CMD:::4:34 91751-17035 5010 01 01 4 /X25/CMD/Y.CMD:::4:2 91751-17036 5010 01 01 4 /X25/CMD/YES.CMD:::4:2 91751-17037 5010 01 01 4 /X25/CMD/N.CMD:::4:3 91751-17038 5010 01 01 4 /X25/CMD/NO.CMD:::4:391751-17039 5010 01 01 4 /X25/CMD/TESTERROR.CMD:::4:1191751-17200 4010 01 01 4 /X25/CMD/X25.LOD:::4:1591751-17215 5010 01 01 4 /X25/CMD/XINIT.LOD:::4:2 91751-17220 5010 01 01 4 /X25/CMD/XPLOG.LOD:::4:1 91751-17225 5010 01 01 4 /X25/CMD/XTLOG.LOD:::4:1 91751-17230 5010 01 01 4 /X25/CMD/XINFO.LOD:::4:2 91751-17235 5010 01 01 4 /X25/CMD/XMOD.LOD:::4:191751-17240 5010 01 01 4 /X25/CMD/GENPK.LOD:::4:1 91751-17245 5010 01 01 4 /X25/CMD/LAPBV.LOD:::4:2 91751-17250 6000 01 01 4 /X25/CMD/XNET.LOD:::4:291751-17255 5010 01 01 4 /X25/CMD/XREAD.LOD:::4:1 91751-17260 5010 01 01 4 /X25/CMD/XWRIT.LOD:::4:1 91751-17265 5010 01 01 4 /X25/CMD/SRVEY.LOD:::4:2 91751-17315 2440 01 01 4 /X25/CMD/?XINIT.HLP:::4:13 91751-17320 2440 01 01 4 /X25/CMD/?XPLOG.HLP:::4:991751-17325 2440 01 01 4 /X25/CMD/?XTLOG.HLP:::4:991751-17330 2440 01 01 3 /X25/CMD/?XINFO.HLP:::3:291751-17335 2440 01 01 4 /X25/CMD/?XMOD.HLP:::4:2 91751-17997 6000 01 01 4 /X25/ADM/M91751:::4:691751-17999 6000 01 01 4 /X25/ADM/A91751:::4:22 91751-18006 2440 01 01 3 /X25/TXT/CSTB.MAC:::3:11 * * END MATERIAL LIST * * "* MATERIAL LIST: 91781-13502 REV: 6000 MT1600-RJE 5104"* * (SAME AS MATERIAL LIST: 91781-13301 REV: 6000 ) * (SAME AS MATERIAL LIST: 91781-13600 REV: 6000 ) * * Directory: /RJE/ * 91781-12001 4010 01 01 5 /RJE/RJELB.LIB:::5:6091781-16001 2540 01 01 5 /RJE/RJE.REL:::5:6691781-16002 5000 01 01 5 /RJE/RINIT.REL:::5:107 91781-16003 5000 01 01 5 /RJE/RJEXX.REL:::5:153 91781-16004 2427 01 01 5 /RJE/CON.REL:::5:3291781-16005 2427 01 01 5 /RJE/RJTAB.REL:::5:1 91781-16021 2427 01 01 5 /RJE/FMT.REL:::5:1391781-16023 2540 01 01 5 /RJE/ROUTE.REL:::5:4091781-16030 4010 01 01 5 /RJE/DDD63.REL:::5:4 91781-16200 2427 01 01 5 /RJE/AMERI.REL:::5:4 91781-16201 2427 01 01 5 /RJE/CANAD.REL:::5:4 91781-16202 2427 01 01 5 /RJE/DANIS.REL:::5:4 91781-16203 2427 01 01 5 /RJE/DUTCH.REL:::5:4 91781-16204 2427 01 01 5 /RJE/ENGLI.REL:::5:4 91781-16205 2427 01 01 5 /RJE/FINNI.REL:::5:4 91781-16206 2427 01 01 5 /RJE/FRENC.REL:::5:4 91781-16207 2427 01 01 5 /RJE/GERMA.REL:::5:4 91781-16208 2427 01 01 5 /RJE/ITALI.REL:::5:4 91781-16209 2427 01 01 5 /RJE/NORWE.REL:::5:4 91781-16210 2427 01 01 5 /RJE/PORTU.REL:::5:4 91781-16211 2427 01 01 5 /RJE/SPANI.REL:::5:4 91781-16212 2427 01 01 5 /RJE/SWEDI.REL:::5:4 91781-16213 2427 01 01 5 /RJE/KATAK.REL:::5:4 91781-16214 2427 01 01 5 /RJE/NATIV.REL:::5:4 91781-16777 2427 01 01 5 /RJE/DDV63.REL:::5:2 91781-17000 2427 01 01 4 /RJE/RJE.HELP:::4:591781-17001 5000 01 01 4 /RJE/RJE.CMD:::4:5 91781-17002 2427 01 01 4 /RJE/STD3780.TXT:::4:8 91781-17003 5000 01 01 4 /RJE/RJE.LOD:::4:1 91781-18004 2427 01 01 4 /RJE/CON.PAS:::4:4091781-18021 2427 01 01 4 /RJE/FMT.FTN:::4:4391781-18022 2427 01 01 4 /RJE/STAT.FTN:::4:20 91781-18023 2540 01 01 4 /RJE/ROUTE.PAS:::4:9091781-18100 5010 01 01 4 /RJE/RJE.DAT:::4:137 91781-18999 6000 01 01 4 /RJE/A91781:::4:14 * * END MATERIAL LIST * * "* MATERIAL LIST: 94202-13301 REV: 6000 CT-94202A 2204"* * (SAME AS MATERIAL LIST: 94202-13502 REV: 6000 ) * (SAME AS MATERIAL LIST: 94202-13601 REV: 6000 ) * * Directory: /PCIF/AB/ * 94202-12001 5005 01 01 5 /PCIF/AB/$ABLIB:::5:47 94202-12002 5005 01 01 5 /PCIF/AB/$ABLBC:::5:51 94202-16001 6000 01 01 5 /PCIF/AB/%PCPAB:::5:89 94202-16002 6000 01 01 5 /PCIF/AB/%PCHAB:::5:47 94202-16003 6000 01 01 4 /PCIF/AB/!PCFAB:::4:47 94202-16006 5005 01 01 5 /PCIF/AB/%ABUP:::5:2994202-16007 5005 01 01 5 /PCIF/AB/%ABDN:::5:3294202-16008 2435 01 01 5 /PCIF/AB/%ABTST:::5:12 94202-16012 6000 01 01 5 /PCIF/AB/%PCPAC:::5:11694202-16013 6000 01 01 5 /PCIF/AB/%PCHAC:::5:59 94202-16016 5005 01 01 5 /PCIF/AB/%PCCHA:::5:15 94202-16019 5005 01 01 5 /PCIF/AB/%PCP2B:::5:54 94202-16020 5005 01 01 5 /PCIF/AB/%PCP2C:::5:67 94202-17001 5005 01 01 4 /PCIF/AB/*AB:::4:1294202-17002 5005 01 01 4 /PCIF/AB/#ABUP:::4:2 94202-17003 5005 01 01 4 /PCIF/AB/#ABDN:::4:2 94202-17004 5005 01 01 4 /PCIF/AB/#ABTST:::4:294202-17009 5005 01 01 3 /PCIF/AB/!PCCA6:::3:12 94202-17010 2606 01 01 4 /PCIF/AB/"PCCA6:::4:694202-17999 6000 01 01 4 /PCIF/AB/A94202:::4:13 94202-18004 5005 01 01 4 /PCIF/AB/[PCPAB:::4:394202-18005 5005 01 01 4 /PCIF/AB/[PCHAB:::4:394202-18006 5005 01 01 4 /PCIF/AB/&ABUP:::4:104 94202-18007 5005 01 01 4 /PCIF/AB/&ABDN:::4:108 94202-18008 2435 01 01 4 /PCIF/AB/&ABTST:::4:33 94202-18009 5005 01 01 4 /PCIF/AB/&ABLIB:::4:15194202-18010 5005 01 01 4 /PCIF/AB/[PCPAC:::4:394202-18011 5005 01 01 4 /PCIF/AB/[PCHAC:::4:394202-18018 5005 01 01 4 /PCIF/AB/&ABLBC:::4:15194202-18021 5005 01 01 4 /PCIF/AB/[PCP2B:::4:394202-18022 5005 01 01 4 /PCIF/AB/[PCP2C:::4:3* * END MATERIAL LIST * * "* MATERIAL LIST: 94203-13301 REV: 6000 CT-94203A 2204"* * (SAME AS MATERIAL LIST: 94203-13502 REV: 6000 ) * (SAME AS MATERIAL LIST: 94203-13601 REV: 6000 ) * * Directory: /PCIF/GM/ * 9420((3-12001 5000 01 01 5 /PCIF/GM/GMLBC.LIB:::5:4494203-16007 5000 01 01 5 /PCIF/GM/GMUP.REL:::5:16094203-16008 5000 01 01 5 /PCIF/GM/GMDN.REL:::5:20894203-16011 5000 01 01 5 /PCIF/GM/GMUP0.REL:::5:2894203-16012 5000 01 01 5 /PCIF/GM/GMDN0.REL:::5:3894203-16014 5000 01 01 5 /PCIF/GM/PCPGC.REL:::5:180 94203-16015 6000 01 01 5 /PCIF/GM/PCHGC.REL:::5:179 94203-16018 5005 01 01 5 /PCIF/GM/PCC06.REL:::5:2294203-16019 5000 01 01 5 /PCIF/GM/PCC10.REL:::5:1094203-17001 5000 01 01 4 /PCIF/GM/GMUP.LOD:::4:294203-17002 5000 01 01 4 /PCIF/GM/GMDN.LOD:::4:294203-17005 5000 01 01 4 /PCIF/GM/GM.CMD:::4:11 94203-17007 5005 01 01 3 /PCIF/GM/PCC06.FRM:::3:1394203-17008 5000 01 01 4 /PCIF/GM/PCC06.HLP:::4:5 94203-17009 5000 01 01 3 /PCIF/GM/PCC10.FRM:::3:8 94203-17010 5000 01 01 4 /PCIF/GM/PCC10.HLP:::4:5 94203-17999 6000 01 01 4 /PCIF/GM/A94203.SNF:::4:11 94203-18007 5000 01 01 4 /PCIF/GM/GMUP.PAS:::4:26694203-18008 5000 01 01 4 /PCIF/GM/GMDN.PAS:::4:32094203-18010 5000 01 01 4 /PCIF/GM/GMLBC.FTN:::4:5294203-18011 5000 01 01 4 /PCIF/GM/GMUP0.PAS:::4:3594203-18012 5000 01 01 4 /PCIF/GM/GMDN0.PAS:::4:5094203-18016 5000 01 01 4 /PCIF/GM/[PCHGC:::4:294203-18017 5000 01 01 4 /PCIF/GM/[PCPGC:::4:3* * END MATERIAL LIST * * "* MATERIAL LIST: 94200-13302 REV: 6000 CT-94200B 2204"* * (SAME AS MATERIAL LIST: 94200-13503 REV: 6000 ) * * Directory: /PCIF/F1000/* Directory: /PCIF/PCIFGEN/* Directory: /PCIF/RUNTIME/* 92059-18027 2326 01 01 4 /PCIF/PCIFGEN/"CDSLB:::4:3194200-12001 4010 01 01 5 /PCIF/RUNTIME/PCLIB.LIB:::5:14494200-12002 4010 01 01 5 /PCIF/PCIFGEN/PCGEN.LIB:::5:23594200-12003 4010 01 01 5 /PCIF/RUNTIME/PCLBC.LIB:::5:16294200-16031 4010 01 01 5 /PCIF/PCIFGEN/PCCON.REL:::5:21 94200-16032 4010 01 01 5 /PCIF/PCIFGEN/PCCLI.REL:::5:49 94200-16033 4010 01 01 5 /PCIF/PCIFGEN/PCCT1.REL:::5:27 94200-16034 4010 01 01 5 /PCIF/PCIFGEN/PCCT2.REL:::5:21 94200-16035 4010 01 01 5 /PCIF/PCIFGEN/PCCT3.REL:::5:27 94200-16036 4010 01 01 5 /PCIF/PCIFGEN/PCCT4.REL:::5:18 94200-16037 4010 01 01 5 /PCIF/PCIFGEN/PCCT5.REL:::5:33 94200-16038 4010 01 01 5 /PCIF/PCIFGEN/PCCT7.REL:::5:25 94200-16039 4010 01 01 5 /PCIF/PCIFGEN/PCCT8.REL:::5:18 94200-16040 4010 01 01 5 /PCIF/PCIFGEN/PCCT9.REL:::5:48 94200-16041 4010 01 01 5 /PCIF/PCIFGEN/PCC11.REL:::5:38 94200-16042 4010 01 01 5 /PCIF/PCIFGEN/PCCCP.REL:::5:39 94200-16045 4010 01 01 5 /PCIF/PCIFGEN/PCFOI.REL:::5:40 94200-16046 4010 01 01 5 /PCIF/PCIFGEN/PCCUT.REL:::5:13 94200-16047 4010 01 01 5 /PCIF/PCIFGEN/PCMUX.REL:::5:594200-16107 4010 01 01 5 /PCIF/PCIFGEN/PCS0C.REL:::5:894200-16108 4010 01 01 5 /PCIF/PCIFGEN/PCS1C.REL:::5:494200-16109 4010 01 01 5 /PCIF/PCIFGEN/AUTOR.REL:::5:494200-16201 4010 01 01 5 /PCIF/PCIFGEN/PCMN0.REL:::5:594200-16202 4010 01 01 5 /PCIF/PCIFGEN/PCMN1.REL:::5:33 94200-16203 4010 01 01 5 /PCIF/PCIFGEN/PCMN2.REL:::5:11 94200-16204 5005 01 01 5 /PCIF/PCIFGEN/PCMN3.REL:::5:20694200-16205 4010 01 01 5 /PCIF/PCIFGEN/PCMN4.REL:::5:46 94200-16206 5005 01 01 5 /PCIF/PCIFGEN/PCMN5.REL:::5:10394200-16207 5005 01 01 5 /PCIF/PCIFGEN/PCMN6.REL:::5:79 94200-16208 4010 01 01 5 /PCIF/PCIFGEN/PCMN7.REL:::5:16 94200-16209 4010 01 01 5 /PCIF/PCIFGEN/PCS0.REL:::5:7 94200-16210 4010 01 01 5 /PCIF/PCIFGEN/PCS1.REL:::5:4 94200-16220 4010 01 01 5 /PCIF/PCIFGEN/PCDMX.REL:::5:48 94200-16221 4010 01 01 5 /PCIF/PCIFGEN/PCOPN.REL:::5:394200-16222 4010 01 01 5 /PCIF/PCIFGEN/PCTMO.REL:::5:14 94200-16223 4010 01 01 5 /PCIF/PCIFGEN/PCHLT.REL:::5:12 94200-16359 4010 01 01 5 /PCIF/PCIFGEN/DDP61.REL:::5:394200-16404 4010 01 01 5 /PCIF/PCIFGEN/PCTST.REL:::5:14394200-16412 4010 01 01 5 /PCIF/PCIFGEN/PCMC0.REL:::5:594200-16413 4010 01 01 5 /PCIF/PCIFGEN/PCMC1.REL:::5:37 94200-16414 4010 01 01 5 /PCIF/PCIFGEN/PCMC2.REL:::5:12 94200-16415 5005 01 01 5 /PCIF/PCIFGEN/PCMC3.REL:::5:24394200-16416 4010 01 01 5 /PCIF/PCIFGEN/PCMC4.REL:::5:50 94200-16417 5005 01 01 5 /PCIF/PCIFGEN/PCMC5.REL:::5:13994200-16418 5005 01 01 5 /PCIF/PCIFGEN/PCMC6.REL:::5:11394200-16419 4010 01 01 5 /PCIF/PCIFGEN/PCMC7.REL:::5:20 !94200-17001 4010 01 01 4 /PCIF/PCIFGEN/PCIF_BUILD.CMD:::4:20!94200-17002 5000 01 01 4 /PCIF/PCIFGEN/PCLGE.LOD:::4:294200-17004 5000 01 01 4 /PCIF/PCIFGEN/PCFOC.LOD:::4:394200-17005 4010 01 01 4 /PCIF/RUNTIME/PCERR.ERR:::4:40 94200-17011 4010 01 01 3 /PCIF/PCIFGEN/PCP01.FRM:::3:894200-17012 4010 01 01 4 /PCIF/PCIFGEN/PCP01.HLP:::4:594200-17013 4010 01 01 3 /PCIF/PCIFGEN/PCP02.FRM:::3:25 94200-17014 4010 01 01 4 /PCIF/PCIFGEN/PCP02.HLP:::4:494200-17015 4010 01 01 3 /PCIF/PCIFGEN/PCP03.FRM:::3:10 94200-17016 4010 01 01 4 /PCIF/PCIFGEN/PCP03.HLP:::4:494200-17017 4010 01 01 3 /PCIF/RUNTIME/PCC01.FRM:::3:894200-17018 4010 01 01 4 /PCIF/RUNTIME/PCC01.HLP:::4:594200-17019 4010 01 01 3 /PCIF/RUNTIME/PCC02.FRM:::3:10 94200-17020 4010 01 01 4 /PCIF/RUNTIME/PCC02.HLP:::4:594200-17021 4010 01 01 3 /PCIF/RUNTIME/PCC03.FRM:::3:894200-17022 4010 01 01 4 /PCIF/RUNTIME/PCC03.HLP:::4:694200-17023 4010 01 01 3 /PCIF/RUNTIME/PCC04.FRM:::3:19 94200-17024 4010 01 01 4 /PCIF/RUNTIME/PCC04.HLP:::4:594200-17025 4010 01 01 3 /PCIF/RUNTIME/PCC05.FRM:::3:994200-17026 4010 01 01 4 /PCIF/RUNTIME/PCC05.HLP:::4:694200-17027 4010 01 01 3 /PCIF/RUNTIME/PCCB5.FRM:::3:10 94200-17028 4010 01 01 4 /PCIF/RUNTIME/PCCB5.HLP:::4:694200-17029 4010 01 01 3 /PCIF/RUNTIME/PCC07.FRM:::3:894200-17030 4010 01 01 4 /PCIF/RUNTIME/PCC07.HLP:::4:694200-17031 4010 01 01 3 /PCIF/RUNTIME/PCC08.FRM:::3:19 94200-17032 4010 01 01 4 /PCIF/RUNTIME/PCC08.HLP:::4:594200-17033 4010 01 01 3 /PCIF/RUNTIME/PCC09.FRM:::3:13 94200-17034 4010 01 01 4 /PCIF/RUNTIME/PCC09.HLP:::4:694200-17035 4010 01 01 3 /PCIF/RUNTIME/PCCB9.FRM:::3:14 94200-17036 4010 01 01 4 /PCIF/RUNTIME/PCCB9.HLP:::4:694200-17037 4010 01 01 3 /PCIF/RUNTIME/PCC11.FRM:::3:11 94200-17038 4010 01 01 4 /PCIF/RUNTIME/PCC11.HLP:::4:794200-17101 4010 01 01 4 /PCIF/RUNTIME/PCMSG.ERR:::4:45 94200-17102 4010 01 01 4 /PCIF/RUNTIME/PCMER.ERR:::4:31 94200-17103 5000 01 01 4 /PCIF/PCIFGEN/PCLDM.LOD:::4:294200-17104 5000 01 01 4 /PCIF/PCIFGEN/PCLOP.LOD:::4:294200-17105 5000 01 01 4 /PCIF/PCIFGEN/PCLTM.LOD:::4:294200-17106 5000 01 01 4 /PCIF/PCIFGEN/PCLHL.LOD:::4:294200-17108 5000 01 01 4 /PCIF/PCIFGEN/AUTOR.LOD:::4:294200-17404 5000 01 01 4 /PCIF/PCIFGEN/PCTST.LOD:::4:294200-17995 6000 01 01 4 /PCIF/PCIFGEN/M94200.MNF:::4:8 94200-17999 6000 01 01 4 /PCIF/PCIFGEN/B94200:::4:4494200-18010 5000 01 01 4 /PCIF/PCIFGEN/PCPGE.DAT:::4:21 94200-18109 4010 01 01 4 /PCIF/PCIFGEN/AUTOR.FTN:::4:12 94200-18301 2525 01 01 4 /PCIF/PCIFGEN/[PCPHL:::4:2294200-18302 2618 01 01 4 /PCIF/PCIFGEN/[PCHHL:::4:2194200-18404 4010 01 01 3 /PCIF/PCIFGEN/PCTST.PAS:::3:28794200-18407 5000 01 01 4 /PCIF/PCIFGEN/PCPGF.DAT:::4:30 94250-12523 6000 01 01 5 /PCIF/F1000/FLULB.LIB:::5:27794250-12528 6000 01 01 5 /PCIF/F1000/FOFLL.LIB:::5:10094250-12538 6000 01 01 5 /PCIF/F1000/FOPRL.LIB:::5:10994250-12546 2520 01 01 5 /PCIF/F1000/FRULB.LIB:::5:26 94250-16504 5010 01 01 5 /PCIF/F1000/FOBLK.REL:::5:694250-16505 6000 01 01 5 /PCIF/F1000/FOCLO.REL:::5:53 94250-16514 2520 01 01 5 /PCIF/F1000/FUSE9.REL:::5:294250-16613 5010 01 01 5 /PCIF/F1000/FCOMM.REL:::5:194250-17542 2520 01 01 4 /PCIF/F1000/FOLCL.TXT:::4:28 * * END MATERIAL LIST * * "* MATERIAL LIST: 94200-13303 REV: 6000 CT-GET_STRT 2204"* * (SAME AS MATERIAL LIST: 94200-13504 REV: 6000 ) * * Directory: /PCIF/GS/ * Directory: /PCIF/GSWPCIF/* 94200-12100 6000 01 01 5 /PCIF/GS/FLIB1.LIB:::5:9794200-12101 6000 01 01 5 /PCIF/GS/FLIB2.LIB:::5:267 94200-12500 2525 01 01 5 /PCIF/GS/ZMNTL.LIB:::5:3194200-16500 2525 01 01 5 /PCIF/GS/SCRNS.REL:::5:1094200-16501 2525 01 01 5 /PCIF/GS/TEACHME.REL:::5:7 94200-16502 2606 01 01 5 /PCIF/GSWPCIF/COURSE0.REL:::5:88 94200-16503 2525 01 01 5 /PCIF/GS/COURSE1.REL:::5:177 94200-16504 2525 01 01 5 /PCIF/GS/COURSE2.REL:::5:7794200-16505 2525 01 01 5 /PCIF/GS/COURSE3.REL:::5:2194200-16507 2525 01 01 5 /PCIF/GS/FDBLK.REL:::5:5 94200-16508 2525 01 01 5 /PCIF/GS/FOUSE.REL:::5:2 94200-16511 5000 01 01 1 /PCIF/GSWPCIF/GMOD1.CRS:::1:50 94200-16512 5000 01 01 1 /PCIF/GSWPCIF/GMOD2.CRS:::1:10094200-16513 5000 01 01 1 /PCIF/GSWPCIF/GMOD3.CRS:::1:10094200-16514 5000 01 01 1 /PCIF/GSWPCIF/GMOD4.CRS:::1:15094200-16515 5000 01 01 1 /PCIF/GSWPCIF/GMOD5.CRS:::1:10094200-16518 5000 01 01 1 /PCIF/GSWPCIF/ABMOD1.CRS:::1:5094200-16519 5000 01 01 1 /PCIF/GSWPCIF/ABMOD2.CRS:::1:100 94200-16520 5000 01 01 1 /PCIF/GSWPCIF/ABMOD3.CRS:::1:100 94200-16521 5000 01 01 1 /PCIF/GSWPCIF/ABMOD4.CRS:::1:150 94200-16522 5000 01 01 1 /PCIF/GSWPCIF/ABMOD5.CRS:::1:100  94200-16523 5000 01 01 1 /PCIF/GSWPCIF/MAINMENU.CRS:::1:50 94200-16530 5000 01 01 1 /PCIF/GSWPCIF/GEMOD1.CRS:::1:5094200-16531 5000 01 01 1 /PCIF/GSWPCIF/GEMOD2.CRS:::1:100 94200-16532 5000 01 01 1 /PCIF/G((SWPCIF/GEMOD3.CRS:::1:100 94200-16533 5000 01 01 1 /PCIF/GSWPCIF/GEMOD4.CRS:::1:150 94200-16534 5000 01 01 1 /PCIF/GSWPCIF/GEMOD5.CRS:::1:100 94200-17200 2525 01 01 3 /PCIF/GS/XFER.CMD:::3:694200-17206 2525 01 01 3 /PCIF/GS/GMLADLOG.TXT:::3:794200-17208 2525 01 01 4 /PCIF/GS/SCRNS.LOD:::4:2 94200-17209 2525 01 01 4 /PCIF/GS/TEACHME.LOD:::4:1 94200-17211 5000 01 01 4 /PCIF/GSWPCIF/PCHAB.TXT:::4:394200-17212 5000 01 01 4 /PCIF/GSWPCIF/PCPAB.TXT:::4:394200-17213 5000 01 01 4 /PCIF/GSWPCIF/PCHGM.TXT:::4:294200-17214 5000 01 01 4 /PCIF/GSWPCIF/PCPGM.TXT:::4:294200-17215 2525 01 01 3 /PCIF/GS/PSCR01.TXT:::3:594200-17216 2525 01 01 3 /PCIF/GS/PSCR02.TXT:::3:22 94200-17217 2525 01 01 3 /PCIF/GS/PSCR03.TXT:::3:794200-17218 2525 01 01 3 /PCIF/GS/CSCR01.TXT:::3:594200-17219 2525 01 01 3 /PCIF/GS/CSCR02.TXT:::3:794200-17220 2525 01 01 3 /PCIF/GS/CSCR03.TXT:::3:694200-17221 2525 01 01 3 /PCIF/GS/CSCR04.TXT:::3:17 94200-17222 2525 01 01 3 /PCIF/GS/CSCR05.TXT:::3:794200-17223 2525 01 01 3 /PCIF/GS/CSCR07.TXT:::3:694200-17224 2525 01 01 3 /PCIF/GS/CSCR08.TXT:::3:17 94200-17225 2525 01 01 3 /PCIF/GS/CSCR09.TXT:::3:11 94200-17226 2525 01 01 3 /PCIF/GS/CSCR11.TXT:::3:894200-17232 2525 01 01 3 /PCIF/GS/COURSE.LOD:::3:294200-17233 2525 01 01 4 /PCIF/GS/ABLADLOG.TXT:::4:23 94200-17234 2618 01 01 3 /PCIF/GSWPCIF/CSCR06.TXT:::3:11 94200-17235 2618 01 01 3 /PCIF/GSWPCIF/GELADLOG.TXT:::3:14 94200-17236 2618 01 01 3 /PCIF/GSWPCIF/CSCR16.TXT:::3:1194200-17501 5000 01 01 4 /PCIF/GSWPCIF/PCHGE.TXT:::4:294200-17502 5000 01 01 4 /PCIF/GSWPCIF/PCPGE.TXT:::4:294200-17503 5005 01 01 4 /PCIF/GSWPCIF/APPA:::4:194 94200-17504 5005 01 01 4 /PCIF/GSWPCIF/APPB:::4:185 94200-17505 5005 01 01 4 /PCIF/GSWPCIF/APPC:::4:3794200-17506 5005 01 01 4 /PCIF/GSWPCIF/APPD:::4:459 94200-17507 5005 01 01 4 /PCIF/GSWPCIF/APPE:::4:5094200-17508 5005 01 01 4 /PCIF/GSWPCIF/APPF:::4:162 94200-17509 5005 01 01 4 /PCIF/GSWPCIF/APPG:::4:138 94200-17510 5005 01 01 4 /PCIF/GSWPCIF/APPH:::4:297 94200-17511 5005 01 01 4 /PCIF/GSWPCIF/APPI:::4:362 94200-17997 6000 01 01 4 /PCIF/GS/Z94200:::4:21 94200-18509 2525 01 01 3 /PCIF/GS/GMSODA.FTN:::3:45 94200-18510 2525 01 01 4 /PCIF/GS/ABSODA.FTN:::4:58 94200-18535 2618 01 01 4 /PCIF/GSWPCIF/GESODA.FTN:::4:48* * END MATERIAL LIST * * "* MATERIAL LIST: 94250-13301 REV: 6000 CT-94250A 2204"* * (SAME AS MATERIAL LIST: 94250-13502 REV:6000 )* * Directory: /FORMS/ * 94250-12001 5000 01 01 5 /FORMS/%FBILD:::5:30194250-12002 2340 01 01 5 /FORMS/$FBUTI:::5:50 94250-12003 2505 01 01 5 /FORMS/$FOFLL:::5:68 94250-12004 6000 01 01 5 /FORMS/$FLULB:::5:25494250-12005 2505 01 01 5 /FORMS/$FOPLL:::5:97 94250-12006 2340 01 01 5 /FORMS/$FOFRL:::5:49 94250-12007 2340 01 01 5 /FORMS/$FRULB:::5:24 94250-12008 2340 01 01 5 /FORMS/$FOPRL:::5:77 94250-16171 2340 01 01 5 /FORMS/%FOBLK:::5:594250-16172 2340 01 01 5 /FORMS/%FUSE1:::5:294250-16173 2340 01 01 5 /FORMS/%FUSE2:::5:294250-16174 2340 01 01 5 /FORMS/%FUSE3:::5:294250-16175 2340 01 01 5 /FORMS/%FUSE4:::5:294250-16176 2340 01 01 5 /FORMS/%FUSE5:::5:294250-16177 2340 01 01 5 /FORMS/%FUSE6:::5:294250-16178 2505 01 01 5 /FORMS/%FUSE7:::5:294250-16179 2505 01 01 5 /FORMS/%FUSE8:::5:294250-16180 2340 01 01 5 /FORMS/%FUSE9:::5:294250-16391 2340 01 01 5 /FORMS/%FOCLO:::5:40 94250-16393 5000 01 01 5 /FORMS/%FCOMM:::5:194250-17001 2340 01 01 4 /FORMS/*LFBEF:::4:294250-17002 2340 01 01 4 /FORMS/#LFBEF:::4:294250-17003 2340 01 01 4 /FORMS/*LFBAS:::4:294250-17004 6000 01 01 4 /FORMS/#LFBAS:::4:294250-17011 2340 01 01 4 /FORMS/*LFOEF:::4:294250-17012 2340 01 01 4 /FORMS/#LFOEF:::4:294250-17013 2340 01 01 4 /FORMS/*LFOAS:::4:294250-17014 2340 01 01 4 /FORMS/#LFOAS:::4:294250-17021 2340 01 01 4 /FORMS/*LFIEF:::4:294250-17022 2340 01 01 4 /FORMS/#LFIEF:::4:294250-17023 2340 01 01 4 /FORMS/*LFIAS:::4:394250-17024 2340 01 01 4 /FORMS/#LFIAS:::4:294250-17031 2340 01 01 4 /FORMS/*LFNEF:::4:294250-17032 2340 01 01 4 /FORMS/#LFNEF:::4:294250-17033 2340 01 01 4 /FORMS/*LFNAS:::4:394250-17034 2340 01 01 4 /FORMS/#LFNAS:::4:294250-17041 2340 01 01 4 /FORMS/*LPIEF:::4:294250-17042 2340 01 01 4 /FORMS/#LPIEF:::4:294250-17043 2340 01 01 4 /FORMS/*LPIAS:::4:394250-17044 2340 01 01 4 /FORMS/#LPIAS:::4:294250-17051 2340 01 01 4 /FORMS/*LPNEF:::4:294250-17052 2340 01 01 4 /FORMS/#LPNEF:::4:294250-17053 2340 01 01 4 /FORMS/*LPNAS:::4:394250-17054 2340 01 01 4 /FORMS/#LPNAS:::4:294250-17061 2340 01 01 4 /FORMS/*LFDEF:::4:294250-17062 2340 01 01 4 /FORMS/#LFDEF:::4:294250-17063 2340 01 01 4 /FORMS/*LFDAS:::4:294250-17064 2340 01 01 4 /FORMS/#LFDAS:::4:294250-17071 2340 01 01 4 /FORMS/"FBD01:::4:694250-17072 2340 01 01 4 /FORMS/"FBD02:::4:694250-17073 2340 01 01 4 /FORMS/"FBD03:::4:794250-17074 2340 01 01 4 /FORMS/"FBD04:::4:694250-17075 2340 01 01 4 /FORMS/"FBD05:::4:694250-17076 2340 01 01 4 /FORMS/"FBD06:::4:694250-17077 2340 01 01 4 /FORMS/"FBD07:::4:794250-17078 2340 01 01 4 /FORMS/"FBD08:::4:794250-17081 2340 01 01 4 /FORMS/"FDEM1:::4:594250-17091 2340 01 01 3 /FORMS/!FBD01:::3:594250-17092 2340 01 01 3 /FORMS/!FBD02:::3:694250-17093 2340 01 01 3 /FORMS/!FBD03:::3:14 94250-17094 2340 01 01 3 /FORMS/!FBD04:::3:994250-17096 2340 01 01 3 /FORMS/!FBD06:::3:13 94250-17097 2340 01 01 3 /FORMS/!FBD07:::3:11 94250-17098 2340 01 01 3 /FORMS/!FBD08:::3:794250-17101 2340 01 01 3 /FORMS/!FDEM1:::3:10 94250-17102 2340 01 01 3 /FORMS/!FDEM2:::3:10 94250-17103 2340 01 01 3 /FORMS/!FDEM3:::3:15 94250-17104 2340 01 01 3 /FORMS/!FDEM4:::3:15 94250-17899 5000 01 01 4 /FORMS/"FOLCL:::4:28 94250-17999 6000 01 01 4 /FORMS/A94250.SNF:::4:25 94250-18195 2505 01 01 4 /FORMS/&FUSEX:::4:12 94250-18500 2340 01 01 4 /FORMS/&FDEMO:::4:121* * END MATERIAL LIST * * "* MATERIAL LIST: 92081-13502 REV: 6000 MT1600-IMAGEII 5104"* * (SAME AS MATERIAL LIST: 92081-13301 REV: 6000 ) * (SAME AS MATERIAL LIST: 92081-13601 REV: 6000 ) * * Directory: /IMAGE2/ * 92081-12001 5010 01 01 5 /IMAGE2/DBMS.REL:::5:597 92081-12002 2440 01 01 5 /IMAGE2/LOCAL.REL:::5:492081-12003 5010 01 01 5 /IMAGE2/RDBA.REL:::5:103 92081-12004 5010 01 01 5 /IMAGE2/REMOT.REL:::5:43 92081-12005 2440 01 01 5 /IMAGE2/NO_DS.REL:::5:392081-12006 2540 01 01 5 /IMAGE2/DSDB.LIB:::5:9 92081-12007 5000 01 01 5 /IMAGE2/DBBLD.LIB:::5:17 92081-12008 5000 01 01 5 /IMAGE2/DBDS.LIB:::5:5992081-12009 5000 01 01 5 /IMAGE2/DBMON.LIB:::5:13692081-12010 5010 01 01 5 /IMAGE2/DBEMA.LIB:::5:34392081-12011 5000 01 01 5 /IMAGE2/DBUTL.LIB:::5:99 92081-12012 5010 01 01 5 /IMAGE2/QUERY.LIB:::5:11692081-12023 5010 01 01 5 /IMAGE2/CDS_DBMS.REL:::5:388 92081-12024 2440 01 01 5 /IMAGE2/CDS_LOCAL.REL:::5:492081-12025 5010 01 01 5 /IMAGE2/CDS_RDBA.REL:::5:112 92081-12026 5010 01 01 5 /IMAGE2/CDS_REMOT.REL:::5:46 92081-16013 5000 01 01 5 /IMAGE2/DBBLD.REL:::5:35 92081-16014 5000 01 01 5 /IMAGE2/DBDS.REL:::5:188 92081-16015 5010 01 01 5 /IMAGE2/DBMON.REL:::5:31892081-16016 5000 01 01 5 /IMAGE2/DBRBR.REL:::5:16292081-16017 5000 01 01 5 /IMAGE2/DBRFR.REL:::5:13592081-16018 5010 01 01 5 /IMAGE2/DBUTL.REL:::5:23492081-16019 5010 01 01 5 /IMAGE2/QUERY.REL:::5:30392081-16020 2540 01 01 5 /IMAGE2/RDBAP.REL:::5:18 92081-16021 2440 01 01 5 /IMAGE2/SAMAI.REL:::5:13 92081-16022 2440 01 01 5 /IMAGE2/SAM6I.REL:::5:13 92081-16060 2540 01 01 5 /IMAGE2/DBUPGRADE.REL:::5:57 92081-16067 2540 01 01 5 /IMAGE2/%AR000:::5:3 92081-16068 2540 01 01 5 /IMAGE2/%BL000:::5:8 92081-16069 2540 01 01 5 /IMAGE2/%DB000:::5:1792081-16070 2540 01 01 5 /IMAGE2/%EM000:::5:3 92081-16071 2540 01 01 5 /IMAGE2/%LB000:::5:5892081-16072 2540 01 01 5 /IMAGE2/%LO000:::5:3 92081-16073 5010 01 01 5 /IMAGE2/%QY000:::5:7092081-16074 2540 01 01 5 /IMAGE2/%RB000:::5:2092081-16075 5000 01 01 5 /IMAGE2/%RF000:::5:1492081-16076 5000 01 01 5 /IMAGE2/%SA000:::5:4 92081-16077 2540 01 01 5 /IMAGE2/%ST000:::5:2 92081-16078 5000 01 01 5 /IMAGE2/%UT000:::5:3292081-16281 2540 01 01 5 /IMAGE2/SHORT_DBOPN.REL:::5:192081-16410 2440 01 01 5 /IMAGE2/RDTB.REL:::5:3 92081-16560 5000 01 01 5 /IMAGE2/DBRFR.LIB:::5:49 92081-16577 2440 01 01 5 /IMAGE2/USNUM.REL:::5:392081-16630 5000 01 01 5 /IMAGE2/DBARC.REL:::5:44 92081-16670 5000 01 01 5 /IMAGE2/DBLOD.REL:::5:47 92081-16760 5000 01 01 5 /IMAGE2/DBRST.REL:::5:21 92081-16765 5000 01 01 5 /IMAGE2/DBSTR.REL:::5:45 92081-16770 5000 01 01 5 /IMAGE2/DBSPA.REL:::5:34 92081-16775 5000 01 01 5 /IMAGE2/DBSPL.REL:::5:60 92081-16780 5000 01 01 5 /IMAGE2/DBULD.REL:::5:29 92081-16830 5000 01 01 5 /IMAGE2/DBCLN.REL:::5:17 92081-16880 5000 01 01 5 /IMAGE2/RDBAM.REL:::5:11 92081-17001 5010 01 01 4 /IMAGE2/IMAGE6.CMD:::4:1992081-17002 5010 01 01 4 /IMAGE2/I((MAGEA.CMD:::4:2192081-17004 5000 01 01 4 /IMAGE2/DBARC.LOD:::4:392081-17005 5000 01 01 4 /IMAGE2/DBBLD.LOD:::4:392081-17006 5000 01 01 4 /IMAGE2/DBDS.LOD:::4:2 92081-17007 5000 01 01 4 /IMAGE2/DBLOD.LOD:::4:392081-17008 5000 01 01 4 /IMAGE2/DBMON.LOD:::4:692081-17009 5000 01 01 4 /IMAGE2/DBRBR.LOD:::4:392081-17010 5000 01 01 4 /IMAGE2/DBRFR.LOD:::4:392081-17011 5000 01 01 4 /IMAGE2/DBRST.LOD:::4:392081-17012 5000 01 01 4 /IMAGE2/DBSPA.LOD:::4:392081-17013 5000 01 01 4 /IMAGE2/DBSPL.LOD:::4:392081-17014 5000 01 01 4 /IMAGE2/DBSTR.LOD:::4:392081-17015 5000 01 01 4 /IMAGE2/DBULD.LOD:::4:392081-17016 5000 01 01 4 /IMAGE2/DBUTL.LOD:::4:292081-17017 5000 01 01 4 /IMAGE2/DBCLN.LOD:::4:392081-17018 5000 01 01 4 /IMAGE2/QUERY.LOD:::4:392081-17021 2540 01 01 4 /IMAGE2/DBMS1.CMD:::4:192081-17022 2540 01 01 4 /IMAGE2/DBMS2.CMD:::4:192081-17023 2540 01 01 4 /IMAGE2/DBMS3.CMD:::4:192081-17024 5010 01 01 1 /IMAGE2/>QY000:::1:7792081-17025 5000 01 01 4 /IMAGE2/DBUTL.HLP:::4:33592081-17027 2540 01 01 4 /IMAGE2/DB6S1.CMD:::4:292081-17028 2540 01 01 4 /IMAGE2/DB6S2.CMD:::4:292081-17029 2540 01 01 4 /IMAGE2/DB6S3.CMD:::4:292081-17174 5010 01 01 4 /IMAGE2/RDBAMA.LOD:::4:2 92081-17175 2440 01 01 4 /IMAGE2/CDS_DBMS1.CMD:::4:192081-17176 2440 01 01 4 /IMAGE2/CDS_DBMS2.CMD:::4:192081-17177 2440 01 01 4 /IMAGE2/CDS_DBMS3.CMD:::4:192081-17178 5000 01 01 4 /IMAGE2/RDBCLN.LOD:::4:3 92081-17179 5000 01 01 4 /IMAGE2/RDBAM6.LOD:::4:1 92081-17180 2540 01 01 4 /IMAGE2/RDBAP6.LOD:::4:2 92081-17181 5010 01 01 4 /IMAGE2/RDBAPA.LOD:::4:2 92081-17182 5000 01 01 4 /IMAGE2/DBUPGRADE.LOD:::4:292081-17183 2540 01 01 4 /IMAGE2/CREATE_ZOO.CMD:::4:3 92081-17184 2540 01 01 4 /IMAGE2/INIT_IMAGE.UTL:::4:1192081-17185 2540 01 01 4 /IMAGE2/BACKUP_ZOO.UTL:::4:2 92081-17186 2540 01 01 4 /IMAGE2/NEW_LOGSET.CMD:::4:4 92081-17187 2540 01 01 4 /IMAGE2/NEW_LOGSET.UTL:::4:6 92081-17188 2540 01 01 4 /IMAGE2/STARTUP.UTL:::4:192081-17189 2540 01 01 4 /IMAGE2/SHUTDOWN.UTL:::4:1 92081-17190 2540 01 01 4 /IMAGE2/AC_ZOO.UTL:::4:9 92081-17191 2540 01 01 4 /IMAGE2/BK_ZOO.UTL:::4:2 92081-17192 2540 01 01 4 /IMAGE2/BACKUP_TF.CMD:::4:592081-17193 5000 01 01 4 /IMAGE2/RECOVER_RB.CMD:::4:3 92081-17194 2540 01 01 4 /IMAGE2/RECOVER_RB.UTL:::4:2 92081-17195 2540 01 01 4 /IMAGE2/RECOVER_RF.CMD:::4:3 92081-17196 2540 01 01 4 /IMAGE2/RECOVER_RF.UTL:::4:1492081-17197 2540 01 01 4 /IMAGE2/OHNO_GOTTA_GO.UTL:::4:492081-18831 2540 01 01 4 /IMAGE2/&ADD:::4:1692081-18832 2540 01 01 4 /IMAGE2/&SLOB:::4:15 92081-18833 2540 01 01 4 /IMAGE2/&CCRSH:::4:1092081-18834 2540 01 01 4 /IMAGE2/&TRADE:::4:1292081-18835 2540 01 01 4 /IMAGE2/&LOGGR:::4:1892081-18836 2540 01 01 4 /IMAGE2/&CRASH:::4:1992081-18837 2540 01 01 4 /IMAGE2/CMDZOO:::4:1 92081-18838 2540 01 01 4 /IMAGE2/ZOOBLD:::4:2 92081-18839 2540 01 01 4 /IMAGE2/ZOORT:::4:992081-18999 6000 01 01 4 /IMAGE2/A92081:::4:37* * END MATERIAL LIST * * "* MATERIAL LIST: 92833-13512 REV: 6000 MT1600-PASCAL_1000 5104"* * (SAME AS MATERIAL LIST: 92833-13320 REV: 6000 ) * (SAME AS MATERIAL LIST: 92833-13601 REV: 6000 ) * * Directory: /PASCAL/ * Directory: /PASCAL/CMP/* Directory: /PASCAL/CMP/CDS/* Directory: /PASCAL/CMP/STD/* Directory: /PASCAL/ETC/ALTER/* Directory: /PASCAL/INSTALL/* Directory: /PASCAL/LIB/CDS/* Directory: /PASCAL/LIB/STD/* 92833-16061 5000 01 01 5 /PASCAL/CMP/ALB.REL:::5:28 92833-16062 5000 01 01 5 /PASCAL/CMP/STD/CAT.REL:::5:492833-16063 5000 01 01 5 /PASCAL/CMP/CDSOF.REL:::5:192833-16064 5000 01 01 5 /PASCAL/CMP/CDSON.REL:::5:192833-16065 5000 01 01 5 /PASCAL/CMP/STD/DBG.REL:::5:21 92833-16066 5010 01 01 5 /PASCAL/CMP/STD/DCL.REL:::5:13792833-16067 5000 01 01 5 /PASCAL/CMP/DCT.REL:::5:192833-16069 5000 01 01 5 /PASCAL/CMP/STD/FDUBL.REL:::5:192833-16071 5000 01 01 5 /PASCAL/CMP/STD/ERW.REL:::5:32 92833-16072 5000 01 01 5 /PASCAL/CMP/STD/EV1.REL:::5:86 92833-16073 5000 01 01 5 /PASCAL/CMP/STD/EV2.REL:::5:82 92833-16074 5000 01 01 5 /PASCAL/CMP/STD/EV3.REL:::5:56 92833-16075 5000 01 01 5 /PASCAL/CMP/STD/EV4.REL:::5:31 92833-16076 5000 01 01 5 /PASCAL/CMP/STD/EV5.REL:::5:35 92833-16077 5000 01 01 5 /PASCAL/CMP/STD/EXP.REL:::5:13992833-16078 5000 01 01 5 /PASCAL/CMP/STD/FLD.REL:::5:34 92833-16079 5000 01 01 5 /PASCAL/CMP/STD/INT.REL:::5:88 92833-16080 5000 01 01 5 /PASCAL/CMP/STD/MAN.REL:::5:592833-16081 5010 01 01 5 /PASCAL/CMP/STD/MEX.REL:::5:54 92833-16082 5000 01 01 5 /PASCAL/CMP/STD/MIM.REL:::5:53 92833-16085 5000 01 01 5 /PASCAL/CMP/STD/OPT.REL:::5:58 92833-16086 5000 01 01 5 /PASCAL/CMP/STD/PRG.REL:::5:14192833-16087 5000 01 01 5 /PASCAL/CMP/STD/SCN.REL:::5:61 92833-16088 5000 01 01 5 /PASCAL/CMP/STD/SG00P.REL:::5:38 92833-16089 5000 01 01 5 /PASCAL/CMP/STD/SG01P.REL:::5:16 92833-16092 5000 01 01 5 /PASCAL/CMP/STD/STF.REL:::5:36 92833-16093 5000 01 01 5 /PASCAL/CMP/STD/STM.REL:::5:56 92833-16094 5000 01 01 5 /PASCAL/CMP/STD/STP.REL:::5:72 92833-16095 5010 01 01 5 /PASCAL/CMP/STD/TLM.REL:::5:11092833-16097 5000 01 01 5 /PASCAL/CMP/STD/UNT.REL:::5:15292833-16098 5000 01 01 5 /PASCAL/CMP/STD/UTL.REL:::5:81 92833-16099 5000 01 01 5 /PASCAL/CMP/STD/XFM.REL:::5:172 92833-16103 5000 01 01 5 /PASCAL/CMP/STD/PASCAL.REL:::5:140 "92833-16104 6000 01 01 5 /PASCAL/LIB/CDS/PASCAL_CDS.LIB:::5:621 "#92833-16107 6000 01 01 5 /PASCAL/LIB/STD/PASCAL_FMGR.LIB:::5:583# 92833-16113 6000 01 01 5 /PASCAL/LIB/STD/PASCAL.LIB:::5:586 "92833-16116 5000 01 01 5 /PASCAL/LIB/CDS/PASCAL_CTRA.REL:::5:5"!92833-16117 5000 01 01 5 /PASCAL/LIB/STD/PASCAL_LH2.REL:::5:2 !!92833-16125 5000 01 01 5 /PASCAL/LIB/STD/PASCAL_ERR.REL:::5:9 !92833-16131 5000 01 01 5 /PASCAL/CMP/STD/FORCE.REL:::5:27 92833-16132 5000 01 01 5 /PASCAL/CMP/STD/GO.REL:::5:2 92833-16133 5000 01 01 5 /PASCAL/CMP/STD/MEU.REL:::5:11 92833-16134 5010 01 01 5 /PASCAL/CMP/STD/MSC.LIB:::5:64192833-16135 5000 01 01 5 /PASCAL/CMP/STD/NOTEL.REL:::5:192833-16136 5000 01 01 5 /PASCAL/CMP/STD/NUM.REL:::5:492833-16137 5000 01 01 5 /PASCAL/CMP/STD/FCB.REL:::5:392833-16138 5000 01 01 5 /PASCAL/CMP/STD/PASS.LIB:::5:4792833-16139 5000 01 01 5 /PASCAL/CMP/STD/PCIOR.REL:::5:16 92833-16140 5000 01 01 5 /PASCAL/CMP/STD/PCIOF.REL:::5:792833-16141 5000 01 01 5 /PASCAL/CMP/STD/PICK.LIB:::5:131 92833-16142 5000 01 01 5 /PASCAL/CMP/STD/SAM6.REL:::5:1492833-16143 5000 01 01 5 /PASCAL/CMP/STD/SAMA.REL:::5:1492833-16144 5000 01 01 5 /PASCAL/CMP/STD/SEGTB.REL:::5:392833-16145 5000 01 01 5 /PASCAL/CMP/STD/SG02P.REL:::5:392833-16146 5000 01 01 5 /PASCAL/CMP/STD/SG03P.REL:::5:292833-16147 5000 01 01 5 /PASCAL/CMP/STD/SG04P.REL:::5:292833-16148 5000 01 01 5 /PASCAL/CMP/STD/SG05P.REL:::5:292833-16149 5000 01 01 5 /PASCAL/CMP/STD/SG06P.REL:::5:392833-16150 5000 01 01 5 /PASCAL/CMP/STD/SG07P.REL:::5:392833-16151 5000 01 01 5 /PASCAL/CMP/STD/SG08P.REL:::5:292833-16152 5000 01 01 5 /PASCAL/CMP/STD/SG09P.REL:::5:292833-16153 5000 01 01 5 /PASCAL/CMP/STD/SG10P.REL:::5:292833-16154 5000 01 01 5 /PASCAL/CMP/STD/SG11P.REL:::5:292833-16155 5000 01 01 5 /PASCAL/CMP/STD/SG12P.REL:::5:292833-16156 5000 01 01 5 /PASCAL/CMP/STD/SG13P.REL:::5:292833-16157 5000 01 01 5 /PASCAL/CMP/STD/SG14P.REL:::5:292833-16158 5000 01 01 5 /PASCAL/CMP/STD/SG15P.REL:::5:292833-16159 5000 01 01 5 /PASCAL/CMP/STD/SG16P.REL:::5:492833-16160 5000 01 01 5 /PASCAL/CMP/STD/SG17P.REL:::5:292833-16161 5000 01 01 5 /PASCAL/CMP/STD/SG18P.REL:::5:392833-16163 5000 01 01 5 /PASCAL/CMP/STD/SSC.REL:::5:26 92833-16164 5000 01 01 5 /PASCAL/CMP/STD/TRACE.REL:::5:11 92833-16165 5000 01 01 5 /PASCAL/CMP/STD/TRACE1.REL:::5:2 "92833-16167 5000 01 01 5 /PASCAL/LIB/CDS/PASCAL_CERR.REL:::5:11 "!92833-16168 5000 01 01 5 /PASCAL/LIB/STD/PASCAL_TRA.REL:::5:6 !"92833-16169 5000 01 01 5 /PASCAL/LIB/STD/PASCAL_TRB.REL:::5:21""92833-16170 5000 01 01 5 /PASCAL/LIB/STD/PASCAL_TRC.REL:::5:21"92833-16171 5000 01 01 5 /PASCAL/CMP/CDS/CAT.REL:::5:492833-16172 5000 01 01 5 /PASCAL/CMP/CDS/DBG.REL:::5:26 92833-16173 5010 01 01 5 /PASCAL/CMP/CDS/DCL.REL:::5:17892833-16174 5010 01 01 5 /PASCAL/CMP/CDS/DLB.REL:::5:11692833-16175 5000 01 01 5 /PASCAL/CMP/CDS/ELB.REL:::5:12192833-16176 5000 01 01 5 /PASCAL/CMP/CDS/ERW.REL:::5:41 92833-16177 5000 01 01 5 /PASCAL/CMP/CDS/EV1.REL:::5:12992833-16178 5000 01 01 5 /PASCAL/CMP/CDS/EV2.REL:::5:11692833-16179 5000 01 01 5 /PASCAL/CMP/CDS/EV3.REL:::5:81 92833-16180 5000 01 01 5 /PASCAL/CMP/CDS/EV4.REL:::5:39 92833-16181 5000 01 01 5 /PASCAL/CMP/CDS/EV5.REL:::5:47 92833-16182 5000 01 01 5 /PASCAL/CMP/CDS/EXP.REL:::5:15392833-16183 5000 01 01 5 /PASCAL/CMP/CDS/FLD.REL:::5:45 92833-16184 5000 01 01 5 /PASCAL/CMP/CDS/INT.REL:::5:10592833-16185 5000 01 01 5 /PASCAL/CMP/CDS/MAN.REL:::5:492833-16186 5010 01 01 5 /PASCAL/CMP/CDS/MEX.REL:::5:66 92833-16187 5000 01 01 5 /PASCAL/CMP/CDS/MIM.REL:::5:65 92833-16188 5000 01 01 5 /PASCAL/CMP/CDS/MNU.REL:::5:78 ((92833-16189 5000 01 01 5 /PASCAL/CMP/CDS/NFS.REL:::5:27 92833-16190 5000 01 01 5 /PASCAL/CMP/CDS/OPT.REL:::5:71  92833-16191 5000 01 01 5 /PASCAL/CMP/CDS/PASCAL.REL:::5:168 92833-16192 5000 01 01 5 /PASCAL/CMP/CDS/PRG.REL:::5:15892833-16193 5000 01 01 5 /PASCAL/CMP/CDS/SCN.REL:::5:71 92833-16194 5000 01 01 5 /PASCAL/CMP/CDS/SG00P.REL:::5:42 92833-16195 5000 01 01 5 /PASCAL/CMP/CDS/SG01P.REL:::5:18 92833-16196 5000 01 01 5 /PASCAL/CMP/CDS/SLB.REL:::5:10392833-16197 5000 01 01 5 /PASCAL/CMP/CDS/SSL.REL:::5:16392833-16198 5000 01 01 5 /PASCAL/CMP/CDS/STF.REL:::5:45 92833-16199 5000 01 01 5 /PASCAL/CMP/CDS/STM.REL:::5:64 92833-16200 5000 01 01 5 /PASCAL/CMP/CDS/STP.REL:::5:10392833-16201 5010 01 01 5 /PASCAL/CMP/CDS/TLM.REL:::5:13492833-16202 5000 01 01 5 /PASCAL/CMP/CDS/ULB.REL:::5:28692833-16203 5000 01 01 5 /PASCAL/CMP/CDS/UNT.REL:::5:19892833-16204 5000 01 01 5 /PASCAL/CMP/CDS/UTL.REL:::5:91 92833-16205 5000 01 01 5 /PASCAL/CMP/CDS/XFM.REL:::5:23792833-16208 5000 01 01 5 /PASCAL/CMP/CDS/SAMER.REL:::5:3 92833-16209 5000 01 01 5 /PASCAL/ETC/ALTER/ALTER.REL:::5:94 %92833-16210 5000 01 01 5 /PASCAL/LIB/STD/PASCAL_FMGR_ALT.LIB:::5:468%92833-16219 5010 01 01 5 /PASCAL/CMP/CDS/DATE.REL:::5:3 92833-16220 5000 01 01 5 /PASCAL/LIB/STD/SHSLB.LIB:::5:18 !92833-16221 5000 01 01 5 /PASCAL/LIB/STD/SHSLB_ALT.LIB:::5:14 !#92833-16222 5000 01 01 5 /PASCAL/LIB/STD/PASCAL_ERR_ALT.REL:::5:9 #92833-16223 5000 01 01 5 /PASCAL/CMP/STD/ETC.LIB:::5:28292833-16224 5000 01 01 5 /PASCAL/CMP/STD/SG19P.REL:::5:392833-16225 5000 01 01 5 /PASCAL/CMP/STD/SUM.REL:::5:40 92833-16226 5000 01 01 5 /PASCAL/CMP/CDS/SUM.REL:::5:45 92833-16227 5000 01 01 5 /PASCAL/CMP/STD/DCV.REL:::5:692833-16229 5010 01 01 5 /PASCAL/CMP/STD/DATE.REL:::5:3 92833-17021 5000 01 01 4 /PASCAL/CMP/PASCAL.ERR:::4:35!92833-17032 5000 01 01 3 /PASCAL/CMP/STD/PASCOMP_A.LOD:::3:15 !!92833-17033 5000 01 01 3 /PASCAL/CMP/STD/PASCOMP_6.LOD:::3:15 !!92833-17045 5000 01 01 3 /PASCAL/CMP/CDS/PASCOMP_C.LOD:::3:6! 92833-17046 5000 01 01 4 /PASCAL/CMP/STD/PASCAL_A.LOD:::4:1 92833-17047 5000 01 01 4 /PASCAL/CMP/STD/PASCAL_6.LOD:::4:1 92833-17048 5000 01 01 4 /PASCAL/CMP/CDS/PASCAL_C.LOD:::4:1 92833-17049 5000 01 01 4 /PASCAL/ETC/ALTER/ALTER.DAT:::4:54 92833-17050 5000 01 01 4 /PASCAL/ETC/ALTER/ALTER.LOD:::4:1 92833-17062 5000 01 01 4 /PASCAL/INSTALL/SAMPLE.PAS:::4:3 92833-17071 5000 01 01 4 /PASCAL/INSTALL/INSTALL:::4:9 92833-17072 5000 01 01 3 /PASCAL/INSTALL/INSTALL_LIBS:::3:2 92833-17073 5000 01 01 4 /PASCAL/INSTALL/CONFIG_CMP:::4:4  92833-17074 5000 01 01 4 /PASCAL/INSTALL/INSTALL_CMP:::4:2 92833-17075 5000 01 01 4 /PASCAL/INSTALL/TEST_STD:::4:3 92833-17076 5000 01 01 4 /PASCAL/INSTALL/TEST_CDS:::4:3 92833-17077 5000 01 01 4 /PASCAL/INSTALL/INSTALL_C:::4:392833-17078 5000 01 01 4 /PASCAL/INSTALL/INSTALL_A:::4:392833-17079 5000 01 01 4 /PASCAL/INSTALL/INSTALL_6:::4:4!92833-17083 5000 01 01 4 /PASCAL/INSTALL/INSTALL_ALTER:::4:2!92833-17085 5000 01 01 3 /PASCAL/CONFIG_GUIDE.DOC:::3:563 "92833-17086 5000 01 01 4 /PASCAL/INSTALL/INSTALL_STD_LIBS:::4:3 ""92833-17087 5000 01 01 4 /PASCAL/INSTALL/INSTALL_CDS_LIBS:::4:2 ""92833-17088 5000 01 01 4 /PASCAL/INSTALL/INSTALL_FMGR_LIB:::4:3 ""92833-17089 5000 01 01 4 /PASCAL/INSTALL/INSTALL_ALT_LIBS:::4:2 ""92833-17090 5000 01 01 4 /PASCAL/INSTALL/INSTALL_ERR_FILE:::4:2 " 92833-17091 5000 01 01 4 /PASCAL/INSTALL/RESTORE_LIBS:::4:2 "92833-17092 5000 01 01 4 /PASCAL/INSTALL/RESTORE_STD_CMP:::4:2""92833-17093 5000 01 01 4 /PASCAL/INSTALL/RESTORE_CDS_CMP:::4:2"!92833-17094 5000 01 01 4 /PASCAL/INSTALL/RESTORE_ALTER:::4:2!!92833-17095 5000 01 01 4 /PASCAL/INSTALL/SIZE_UP_LINK_C:::4:2 !!92833-17096 5000 01 01 4 /PASCAL/INSTALL/SIZE_UP_LINK_A:::4:2 !!92833-17097 5000 01 01 4 /PASCAL/INSTALL/SIZE_UP_LINK_6:::4:3 !92833-17098 5000 01 01 4 /PASCAL/INSTALL/LINKSZ.LOD:::4:1  92833-17100 5000 01 01 3 /PASCAL/ETC/ALTER/ALTER.DOC:::3:61 92833-17998 6000 01 01 4 /PASCAL/A92833:::4:54* * END MATERIAL LIST * 01 01 5 /PASCAL/CMP/STD/TRACE.REL:::5:11 9283HPHPHP::HP1000_INFO:4:94:36 644 0 0 57000 5310713464 34522 HPHPHP::HP1000_INFO_RTE6:4:94:36  $^^$HPHPHP +#+$uA+#4^. FST * !* MATERIAL LIST: 92084-13307 REV: 6000 CT-RTE6 S/W 2215 !* * (SAME AS MATERIAL LIST: 92084-13528 REV: 6000 ) * * Directory: /HP1000_INFO/  * Directory: /RTE_6/ * Directory: /RTE_6/HELP/* #05961-06201 6000 01 01 4 /HP1000_INFO/COMMUNICATOR60.LST:::4:3409 #09580-16079 5010 01 01 5 /RTE_6/%DVM72:::5:10 09580-16126 2540 01 01 5 /RTE_6/%DSCHD:::5:112792-16001 2034 01 01 5 /RTE_6/%PVM00:::5:212792-16002 5000 01 01 5 /RTE_6/%DVM00:::5:30 12792-16003 2540 01 01 5 /RTE_6/%DDV05:::5:15 12792-16004 2141 01 01 5 /RTE_6/%DDV12:::5:412792-16005 2341 01 01 5 /RTE_6/%$DVTB:::5:112792-16008 2540 01 01 5 /RTE_6/%DVN00:::5:28 12792-16009 2341 01 01 5 /RTE_6/%$DVTN:::5:112792-16010 5000 01 01 5 /RTE_6/%DVT00:::5:30 12792-16011 2540 01 01 5 /RTE_6/%DDT05:::5:612829-12001 2226 01 01 5 /RTE_6/$VLB6A:::5:36 12829-12002 2214 01 01 5 /RTE_6/$VLB6B:::5:15224306-16001 2540 01 01 5 /RTE_6/%DECAR:::5:14424398-16062 5020 01 01 5 /RTE_6/%EXER:::5:308 24398-16066 6000 01 01 5 /RTE_6/%EXER1:::5:24524398-17015 5010 01 01 3 /RTE_6/#EXER1:::3:224398-17016 5010 01 01 3 /RTE_6/#EXER:::3:2 24998-12004 5000 01 01 5 /RTE_6/$FDSLB:::5:44 24998-12005 2227 01 01 5 /RTE_6/$FNDLB:::5:224998-12007 5010 01 01 5 /RTE_6/$MATH:::5:421 24998-12008 5010 01 01 5 /RTE_6/$FLIB:::5:117 24998-12009 5000 01 01 5 /RTE_6/$FOLDF:::5:56 24998-12010 5020 01 01 5 /RTE_6/$FNEWF:::5:69 59310-16005 1806 01 01 5 /RTE_6/%SRQ*P:::5:291200-16001 1649 01 01 5 /RTE_6/%DVA13:::5:391200-16002 1649 01 01 5 /RTE_6/%TVLIB:::5:16 91200-16004 1649 01 01 5 /RTE_6/%TVVER:::5:39 92001-16020 1827 01 01 5 /RTE_6/%DVA12:::5:992001-16028 2141 01 01 5 /RTE_6/%0DV05:::5:17 92059-16013 2540 01 01 5 /RTE_6/%ATRAN:::5:12 92059-16014 6000 01 01 5 /RTE_6/%MACRO:::5:50 92059-16015 6000 01 01 5 /RTE_6/%MACR0:::5:40 92059-16016 6000 01 01 5 /RTE_6/%MACR1:::5:21892059-16017 6000 01 01 5 /RTE_6/%MACR2:::5:16492059-16018 6000 01 01 5 /RTE_6/%MACR3:::5:23692059-16019 5000 01 01 5 /RTE_6/%MACR4:::5:15 92059-16020 6000 01 01 5 /RTE_6/%MACR5:::5:14 92059-16021 6000 01 01 5 /RTE_6/%MACR6:::5:66 92059-16022 6000 01 01 5 /RTE_6/%MACR7:::5:11 92059-16023 6000 01 01 5 /RTE_6/%OLDRE:::5:27 92059-16029 6000 01 01 5 /RTE_6/%MACRL:::5:93 92059-16030 6000 01 01 5 /RTE_6/%MACRE:::5:62 92059-17002 2213 01 01 4 /RTE_6/#OLDRE:::4:192059-17003 5020 01 01 3 /RTE_6/HELP/MACRO.HELP:::3:1092059-17004 6000 01 01 4 /RTE_6/#MACRO:::4:292059-18024 6000 01 01 4 /RTE_6/&CDSONOFF:::4:216 92059-18026 2326 01 01 4 /RTE_6/"MACLB:::4:13192062-16003 2441 01 01 5 /RTE_6/%LP31:::5:1092062-16004 2540 01 01 5 /RTE_6/%DVB12:::5:17 92064-16086 2002 01 01 5 /RTE_6/%MSAFD:::5:29 92067-16001 1806 01 01 5 /RTE_6/%4PVMP:::5:292067-16118 2441 01 01 5 /RTE_6/%4AUTR:::5:692067-16361 6000 01 01 5 /RTE_6/%ACCTS:::5:55 92067-16512 2126 01 01 7 /RTE_6/!MTLDR:::7:292067-16554 6000 01 01 5 /RTE_6/%FORMT:::5:49 92067-18456 2441 01 01 4 /RTE_6/&4AUTR:::4:33 92068-12006 2540 01 01 5 /RTE_6/$RSLIB:::5:23 92068-12018 6000 01 01 5 /RTE_6/$ACCLB:::5:36092068-16053 5010 01 01 5 /RTE_6/%SAVER:::5:14092068-16054 2241 01 01 5 /RTE_6/%READR:::5:10892068-16110 5010 01 01 5 /RTE_6/%DVC12:::5:20 92068-16129 5010 01 01 5 /RTE_6/%DVD12:::5:20 92074-12005 6000 01 01 5 /RTE_6/$ED1K6:::5:78 92074-12008 6000 01 01 5 /RTE_6/%EDIT:::5:571 92074-16055 5020 01 01 5 /RTE_6/%ED000:::5:36 92074-17003 6000 01 01 4 /RTE_6/#ED1K6:::4:292074-17004 6000 01 01 4 /RTE_6/"EDIT:::4:165 92077-12010 6000 01 01 5 /RTE_6/XFMP.LIB:::5:22492077-12026 5000 01 01 5 /RTE_6/%LINDX:::5:17092077-12034 5020 01 01 5 /RTE_6/MONITOR6.REL:::5:23392077-12044 6000 01 01 5 /RTE_6/CALLS.REL:::5:6292077-16009 5020 01 01 5 /RTE_6/%PRINT:::5:51 92077-16054 5020 01 01 5 /RTE_6/%PRIN0:::5:76 92077-16067 5000 01 01 5 /RTE_6/%FFL:::5:492077-16391 2540 01 01 5 /RTE_6/%MODEM:::5:19 92077-16431 6000 01 01 5 /RTE_6/MERGE.REL:::5:4092077-16445 6000 01 01 5 /RTE_6/%CI:::5:150 92077-16450 6000 01 01 5 /RTE_6/FREES.REL:::5:3292077-16453 6000 01 01 5 /RTE_6/%FSCON:::5:10192077-16461 6000 01 01 5 /RTE_6/%TRFAS:::5:41 92077-16638 6000 01 01 5 /RTE_6/%LIF:::5:23792077-16646 6000 01 01 5 /RTE_6/LI.REL:::5:15392077-16714 5020 01 01 5 /RTE_6/%PR000:::5:15 92077-16724 5010 01 01 5 /RTE_6/%IS:::5:2092077-16748 2441 01 01 5 /RTE_6/%CKTRM:::5:692077-16((770 6000 01 01 5 /RTE_6/FREES.C000:::5:992077-16786 6000 01 01 5 /RTE_6/%FORMC:::5:14992077-16787 6000 01 01 5 /RTE_6/%FC000:::5:34 92077-16963 5020 01 01 5 /RTE_6/SPORT.REL:::5:7 92077-16964 5000 01 01 5 /RTE_6/ASK.REL:::5:5 92077-16977 6000 01 01 5 /RTE_6/LI.R000:::5:1792077-16980 5010 01 01 5 /RTE_6/MERGE.R000:::5:492077-16983 6000 01 01 5 /RTE_6/SCOM.REL:::5:14692077-16985 5010 01 01 1 /RTE_6/SCOM.C000:::1:8 92077-16986 6000 01 01 5 /RTE_6/LI_VMA.REL:::5:22 92077-17011 5020 01 01 3 /RTE_6/FREES.LOD:::3:2 92077-17014 5000 01 01 3 /RTE_6/#FSCON:::3:192077-17023 5010 01 01 3 /RTE_6/MERGE.LOD:::3:2 92077-17033 5000 01 01 3 /RTE_6/#LIF:::3:192077-17034 5000 01 01 3 /RTE_6/#FORMC:::3:292077-17045 5020 01 01 3 /RTE_6/HELP/CI.HELP:::3:592077-17051 6000 01 01 4 /RTE_6/HELP/CD.HELP:::4:592077-17052 6000 01 01 4 /RTE_6/HELP/CL.HELP:::4:292077-17054 6000 01 01 4 /RTE_6/HELP/CO.HELP:::4:25 92077-17055 6000 01 01 4 /RTE_6/HELP/CR.HELP:::4:892077-17056 6000 01 01 4 /RTE_6/HELP/CRDIR.HELP:::4:1192077-17057 6000 01 01 4 /RTE_6/HELP/DC.HELP:::4:492077-17062 6000 01 01 4 /RTE_6/HELP/FREES.HELP:::4:2592077-17064 6000 01 01 4 /RTE_6/HELP/FVERI.HELP:::4:1292077-17069 6000 01 01 4 /RTE_6/HELP/LI.HELP:::4:41 92077-17073 6000 01 01 4 /RTE_6/HELP/MERGE.HELP:::4:1992077-17074 6000 01 01 4 /RTE_6/HELP/MO.HELP:::4:992077-17076 6000 01 01 4 /RTE_6/HELP/OWNER.HELP:::4:1692077-17081 5020 01 01 3 /RTE_6/HELP/PU.HELP:::3:10 92077-17082 5020 01 01 3 /RTE_6/HELP/RN.HELP:::3:592077-17090 5020 01 01 3 /RTE_6/HELP/TR.HELP:::3:17 92077-17092 6000 01 01 4 /RTE_6/HELP/UNPU.HELP:::4:692077-17094 6000 01 01 4 /RTE_6/HELP/VS.HELP:::4:492077-17095 5020 01 01 3 /RTE_6/HELP/WD.HELP:::3:10 92077-17098 6000 01 01 4 /RTE_6/HELP/XQ.HELP:::4:492077-17099 5020 01 01 3 /RTE_6/HELP/??.HELP:::3:492077-17108 6000 01 01 4 /RTE_6/LI.LOD:::4:592077-17112 5000 01 01 3 /RTE_6/#IS:::3:1 92077-17117 6000 01 01 4 /RTE_6/HELP/ECHO.HELP:::4:392077-17118 5020 01 01 3 /RTE_6/HELP/IF.HELP:::3:592077-17119 5020 01 01 3 /RTE_6/HELP/IS.HELP:::3:692077-17123 5020 01 01 3 /RTE_6/HELP/SET.HELP:::3:4 92077-17125 5020 01 01 3 /RTE_6/HELP/UNSET.HELP:::3:2 92077-17126 5020 01 01 3 /RTE_6/HELP/WHILE.HELP:::3:7 92077-17247 2540 01 01 4 /RTE_6/#CIX6:::4:2 92077-17257 5010 01 01 4 /RTE_6/MONITOR.LOD:::4:3 92077-17301 5020 01 01 3 /RTE_6/HELP/ASK.HELP:::3:1492077-17303 5010 01 01 3 /RTE_6/SPORT.LOD:::3:2 92077-17307 5020 01 01 4 /RTE_6/HELP/SCOM.HELP:::4:26 92077-17310 6000 01 01 4 /RTE_6/HELP/MPACK.HELP:::4:2792077-17311 5020 01 01 4 /RTE_6/HELP/STACK.HELP:::4:2692077-17317 5020 01 01 4 /RTE_6/CALLS.LOD:::4:1 92077-17324 6000 01 01 4 /RTE_6/HELP/POLL.HELP:::4:892077-17329 6000 01 01 4 /RTE_6/HELP/PWD.HELP:::4:1 92077-18067 5000 01 01 4 /RTE_6/&FFL:::4:992078-16026 6000 01 01 5 /RTE_6/%PATH:::5:2792078-17022 5020 01 01 3 /RTE_6/HELP/PATH.HELP:::3:22 92084-12001 6000 01 01 5 /RTE_6/$SYLB6:::5:23592084-12002 2540 01 01 5 /RTE_6/$EMCLB:::5:20 92084-12003 6000 01 01 5 /RTE_6/%BMPG1:::5:38592084-12004 5020 01 01 5 /RTE_6/%BMPG3:::5:34592084-12006 5020 01 01 5 /RTE_6/%INDXR:::5:55 92084-12007 6000 01 01 5 /RTE_6/%RT6GN:::5:34392084-12008 6000 01 01 5 /RTE_6/%SSTCH:::5:12192084-12009 5000 01 01 5 /RTE_6/%DRREL:::5:10292084-12010 2540 01 01 5 /RTE_6/%DRRPL:::5:18092084-12011 6000 01 01 5 /RTE_6/%$CNFG:::5:96 92084-12013 2540 01 01 5 /RTE_6/%$LDR:::5:167 92084-12014 6000 01 01 5 /RTE_6/%BMPG2:::5:57392084-12015 2122 01 01 5 /RTE_6/$MLSLB:::5:12 92084-12016 2227 01 01 5 /RTE_6/$VCLIB:::5:20 92084-12017 6000 01 01 5 /RTE_6/%SXREF:::5:64 92084-12018 5020 01 01 5 /RTE_6/$RBLIB:::5:27592084-12019 2441 01 01 5 /RTE_6/%DBUGR:::5:11492084-12021 6000 01 01 5 /RTE_6/%SMON1:::5:11592084-12022 5000 01 01 5 /RTE_6/%SMON2:::5:15 92084-12023 5020 01 01 5 /RTE_6/%NSESN:::5:492084-12024 5010 01 01 5 /RTE_6/%CR6S1:::5:11092084-12025 6000 01 01 5 /RTE_6/%CR6S2:::5:10492084-12026 5020 01 01 5 /RTE_6/%CR6S3:::5:15592084-12027 6000 01 01 5 /RTE_6/%SPOL1:::5:12092084-12028 5000 01 01 5 /RTE_6/%SPOL2:::5:91 92084-12029 2122 01 01 5 /RTE_6/%6MTM:::5:1192084-12032 5010 01 01 5 /RTE_6/%HELP:::5:7 92084-12033 5010 01 01 5 /RTE_6/$UTLIB:::5:12 92084-12034 5000 01 01 5 /RTE_6/%SGMTR:::5:43 92084-12035 2540 01 01 5 /RTE_6/$6FCLB:::5:37 92084-12036 2540 01 01 5 /RTE_6/$IB6A:::5:1992084-12038 5020 01 01 5 /RTE_6/$LDRLN:::5:11792084-12050 6000 01 01 5 /RTE_6/BCKUP.LIB:::5:405 92084-12051 6000 01 01 5 /RTE_6/BEGGT.LIB:::5:4692084-12053 6000 01 01 5 /RTE_6/$DTCLB:::5:84 92084-12054 2122 01 01 5 /RTE_6/%CSERR:::5:692084-12055 5000 01 01 5 /RTE_6/%FCM6:::5:3692084-12061 5020 01 01 5 /RTE_6/ONLIN.LIB:::5:6 92084-12062 5020 01 01 5 /RTE_6/$DSCLB:::5:60 92084-12063 5020 01 01 5 /RTE_6/%MLLDB:::5:72 92084-12064 5020 01 01 5 /RTE_6/%MLLDA:::5:39 92084-12070 6000 01 01 5 /RTE_6/%LINKA:::5:23392084-12071 6000 01 01 5 /RTE_6/$FMP6:::5:148492084-12076 6000 01 01 5 /RTE_6/$R6GNL:::5:16092084-12077 5010 01 01 5 /RTE_6/$PRINT:::5:58 92084-12084 5020 01 01 5 /RTE_6/$SGMLB:::5:24292084-12085 2540 01 01 5 /RTE_6/$FCL1:::5:380 92084-12086 2540 01 01 5 /RTE_6/$FCL2:::5:170 92084-12088 4010 01 01 5 /RTE_6/$FST6:::5:8 92084-15028 1806 01 01 5 /RTE_6/%DVR12:::5:792084-15042 2540 01 01 5 /RTE_6/%FC0:::5:12292084-15043 2540 01 01 5 /RTE_6/%FC1:::5:11 92084-15044 2540 01 01 5 /RTE_6/%FC2:::5:32 92084-15045 2540 01 01 5 /RTE_6/%FC3:::5:46 92084-15046 5000 01 01 5 /RTE_6/%FC4:::5:892084-15047 2540 01 01 5 /RTE_6/%FC5:::5:43 92084-15048 2540 01 01 5 /RTE_6/%FC6:::5:592084-15050 6000 01 01 5 /RTE_6/%DVS23:::5:23 92084-15056 5000 01 01 5 /RTE_6/%6DP43:::5:692084-15061 6000 01 01 5 /RTE_6/%LUPRN:::5:11792084-15063 5010 01 01 5 /RTE_6/CMD.REL:::5:7292084-15064 5010 01 01 5 /RTE_6/GENIX.REL:::5:5992084-15065 5010 01 01 5 /RTE_6/KEYS.REL:::5:68 92084-15067 5010 01 01 5 /RTE_6/KYDMP.REL:::5:7 92084-15068 6000 01 01 5 /RTE_6/DV800_0.REL:::5:3592084-15070 6000 01 01 5 /RTE_6/DV800_1.REL:::5:4392084-15073 5010 01 01 5 /RTE_6/DVC00.REL:::5:1592084-15076 6000 01 01 5 /RTE_6/WHOSD.REL:::5:4992084-16166 6000 01 01 5 /RTE_6/%LGTAT:::5:18 92084-16361 5020 01 01 5 /RTE_6/%MLLDR:::5:52 92084-16362 5020 01 01 5 /RTE_6/%M*LIB:::5:53 92084-16524 6000 01 01 5 /RTE_6/%COMPL:::5:28 92084-16525 6000 01 01 5 /RTE_6/%CLOAD:::5:33 92084-16526 5000 01 01 5 /RTE_6/%WHZAT:::5:50 92084-16528 2209 01 01 5 /RTE_6/%T5IDM:::5:36 92084-16568 6000 01 01 5 /RTE_6/%READT:::5:43 92084-16569 6000 01 01 5 /RTE_6/%WRITT:::5:35 92084-16592 6000 01 01 5 /RTE_6/%6DV37:::5:28 92084-16593 6000 01 01 5 /RTE_6/%6DA37:::5:20 92084-16604 6000 01 01 5 /RTE_6/%$TA32:::5:192084-16605 6000 01 01 5 /RTE_6/%$TB32:::5:192084-16607 5020 01 01 5 /RTE_6/%DVA05:::5:29 92084-16637 2441 01 01 5 /RTE_6/%DVR00:::5:11 92084-16650 5020 01 01 5 /RTE_6/%DVM33:::5:32 92084-16651 5020 01 01 5 /RTE_6/%DVN33:::5:32 92084-16652 6000 01 01 5 /RTE_6/%$TM33:::5:292084-16655 5020 01 01 5 /RTE_6/PCOPY.REL:::5:4 92084-16656 5020 01 01 5 /RTE_6/PSAVE.REL:::5:1092084-16657 5020 01 01 5 /RTE_6/PRSTR.REL:::5:9 92084-16700 5020 01 01 5 /RTE_6/PSPAR.REL:::5:3 92084-16708 2540 01 01 5 /RTE_6/%DVA32:::5:22 92084-16709 2540 01 01 5 /RTE_6/%DVC32:::5:22 92084-16710 5000 01 01 5 /RTE_6/%DVP32:::5:22 92084-16711 5000 01 01 5 /RTE_6/%DVR32:::5:22 92084-16712 2540 01 01 5 /RTE_6/%DVR31:::5:12 92084-16713 2122 01 01 5 /RTE_6/%DVR33:::5:11 92084-16736 6000 01 14 7 /RTE_6/!BCKO1:::7:24792084-16736 6000 02 14 7 /RTE_6/!BCKO2:::7:17 92084-16736 6000 03 14 7 /RTE_6/!BCKO3:::7:17 92084-16736 6000 04 14 7 /RTE_6/!BCKO4:::7:17 92084-16736 6000 05 14 7 /RTE_6/!BCKO5:::7:17 92084-16736 6000 06 14 7 /RTE_6/!BCKO6:::7:17 92084-16736 6000 07 14 7 /RTE_6/!BCKO7:::7:17 92084-16736 6000 08 14 7 /RTE_6/!BCKO8:::7:17 92084-16736 6000 09 14 7 /RTE_6/!BCKO9:::7:17 92084-16736 6000 10 14 7 /RTE_6/!BCK10:::7:17 92084-16736 6000 11 14 7 /RTE_6/!BCK11:::7:17 92084-16736 6000 12 14 7 /RTE_6/!BCK12:::7:992084-16736 6000 13 14 7 /RTE_6/!BCK13:::7:10 92084-16736 6000 14 14 7 /RTE_6/!BCK14:::7:192084-16737 6000 01 01 6 /RTE_6/FORMT:::6:6192084-16738 6000 01 01 6 /RTE_6/PSPAR:::6:9992084-16739 6000 01 01 6 /RTE_6/PRSTR:::6:159 92084-16740 6000 01 01 6 /RTE_6/PCOPY:::6:105 92084-16741 6000 01 01 6 /RTE_6/PSAVE:::6:155 92084-16915 5020 01 01 5 /RTE_6/COMM.REL:::5:492084-16941 2540 01 01 5 /RTE_6/=EXT:::5:10492084-16942 2540 01 01 5 /RTE_6/=FLAG:::5:111 92084-16943 2341 01 01 5 /RTE_6/=AVL2:::5:7 92084-16944 2341 01 01 5 /RTE_6/=FPORT:::5:65 92084-16945 5020 01 01 5 /RTE_6/%CISU6:::5:42 92084-16946 6000 01 01 5 /RTE_6/%LINKB:::5:19692084-16947 6000 01 01 5 /RTE_6/((%LINKC:::5:11492084-16948 5000 01 01 5 /RTE_6/%LINKD:::5:49 92084-16949 5000 01 01 5 /RTE_6/%LINKE:::5:18192084-16956 2341 01 01 5 /RTE_6/%RT6VM:::5:192084-16958 5000 01 01 5 /RTE_6/%MDMLB:::5:792084-17001 6000 01 01 3 /RTE_6/"HELP:::3:407 92084-17004 6000 01 01 4 /RTE_6/"CMD:::4:21992084-17005 2340 01 01 4 /RTE_6/#READR:::4:192084-17006 2340 01 01 4 /RTE_6/#SAVER:::4:192084-17029 2340 01 01 4 /RTE_6/#FORMT:::4:192084-17036 5010 01 01 3 /RTE_6/SCOM.LOD:::3:192084-17039 5000 01 01 3 /RTE_6/#SWTCH:::3:192084-17100 2440 01 01 4 /RTE_6/*STIME:::4:792084-17106 2540 01 01 4 /RTE_6/#SGMTR:::4:192084-17150 2226 01 01 4 /RTE_6/"FCHLP:::4:66 92084-17151 5000 01 01 3 /RTE_6/#FC6:::3:592084-17152 5020 01 01 3 /RTE_6/PCOPY.LOD:::3:1 92084-17153 5020 01 01 4 /RTE_6/PSAVE.LOD:::4:1 92084-17154 5020 01 01 4 /RTE_6/PRSTR.LOD:::4:1 92084-17155 5020 01 01 3 /RTE_6/PSPAR.LOD:::3:1 92084-17156 5010 01 01 4 /RTE_6/*BCKMT:::4:492084-17157 2121 01 01 4 /RTE_6/*PBULD:::4:792084-17158 2212 01 01 4 /RTE_6/*BCKCT:::4:592084-17189 5020 01 01 3 /RTE_6/#MLLD6:::3:292084-17205 2340 01 01 4 /RTE_6/SEP.6:::4:7 92084-17207 6000 01 01 4 /RTE_6/#CI6:::4:292084-17209 2440 01 01 4 /RTE_6/#LINDX:::4:192084-17210 6000 01 01 3 /RTE_6/#LINK:::3:1 92084-17212 6000 01 01 3 /RTE_6/#DSRTR:::3:292084-17213 5020 01 01 3 /RTE_6/HELP/AG.HELP:::3:592084-17214 5020 01 01 3 /RTE_6/HELP/AS.HELP:::3:492084-17215 5020 01 01 3 /RTE_6/HELP/BL.HELP:::3:692084-17216 5020 01 01 3 /RTE_6/HELP/BR.HELP:::3:492084-17217 5020 01 01 3 /RTE_6/HELP/CN.HELP:::3:692084-17218 5020 01 01 3 /RTE_6/HELP/CU.HELP:::3:492084-17219 5020 01 01 3 /RTE_6/HELP/DN.HELP:::3:592084-17220 6000 01 01 3 /RTE_6/HELP/EQ.HELP:::3:692084-17222 5020 01 01 3 /RTE_6/HELP/EX.HELP:::3:392084-17223 6000 01 01 4 /RTE_6/HELP/FPACK.HELP:::4:3392084-17224 5020 01 01 3 /RTE_6/HELP/GO.HELP:::3:592084-17225 5020 01 01 3 /RTE_6/HELP/HE.HELP:::3:692084-17226 6000 01 01 4 /RTE_6/HELP/IN.HELP:::4:792084-17227 5020 01 01 3 /RTE_6/HELP/IT.HELP:::3:992084-17228 5020 01 01 3 /RTE_6/HELP/LINDX.HELP:::3:1592084-17229 5020 01 01 3 /RTE_6/HELP/LINK.HELP:::3:15 92084-17230 6000 01 01 3 /RTE_6/HELP/LU.HELP:::3:792084-17232 6000 01 01 4 /RTE_6/HELP/MC.HELP:::4:792084-17233 6000 01 01 3 /RTE_6/HELP/OF.HELP:::3:492084-17234 5020 01 01 3 /RTE_6/HELP/ON.HELP:::3:692084-17236 5020 01 01 3 /RTE_6/HELP/PR.HELP:::3:492084-17237 5020 01 01 3 /RTE_6/HELP/PROT.HELP:::3:16 92084-17238 5020 01 01 3 /RTE_6/HELP/QU.HELP:::3:792084-17239 5020 01 01 3 /RTE_6/HELP/RP.HELP:::3:592084-17240 6000 01 01 3 /RTE_6/HELP/RU.HELP:::3:14 92084-17241 5020 01 01 3 /RTE_6/HELP/SL.HELP:::3:792084-17242 5020 01 01 3 /RTE_6/HELP/SS.HELP:::3:492084-17243 5020 01 01 3 /RTE_6/HELP/ST.HELP:::3:892084-17244 5020 01 01 3 /RTE_6/HELP/SZ.HELP:::3:592084-17245 5020 01 01 3 /RTE_6/HELP/TI.HELP:::3:392084-17246 5020 01 01 3 /RTE_6/HELP/TM.HELP:::3:592084-17247 6000 01 01 4 /RTE_6/HELP/TO.HELP:::4:892084-17248 5020 01 01 3 /RTE_6/HELP/UL.HELP:::3:292084-17249 5020 01 01 3 /RTE_6/HELP/UP.HELP:::3:392084-17250 5020 01 01 3 /RTE_6/HELP/UR.HELP:::3:392084-17251 5020 01 01 3 /RTE_6/HELP/WH.HELP:::3:692084-17252 5020 01 01 3 /RTE_6/HELP/WS.HELP:::3:592084-17253 5020 01 01 3 /RTE_6/#TRFAS:::3:292084-17262 6000 01 01 4 /RTE_6/INCI.CMD:::4:57 92084-17264 2440 01 01 4 /RTE_6/#SXREF:::4:192084-17265 6000 01 01 3 /RTE_6/#PRIN0:::3:192084-17266 2440 01 01 4 /RTE_6/#PRINT:::4:192084-17267 5020 01 01 3 /RTE_6/HELP/PRINT.HELP:::3:1992084-17268 5000 01 01 3 /RTE_6/#RT6GN:::3:192084-17270 2440 01 01 4 /RTE_6/#PATH:::4:1 92084-17271 5010 01 01 4 /RTE_6/]RT6OS:::4:492084-17272 2440 01 01 4 /RTE_6/]RT6VM:::4:492084-17273 2440 01 01 4 /RTE_6/]M^FFP:::4:992084-17274 2440 01 01 4 /RTE_6/]E^FFP:::4:10 92084-17275 5000 01 01 4 /RTE_6/]F^FFP:::4:892084-17276 5000 01 01 4 /RTE_6/]F^FPB:::4:11 92084-17277 5000 01 01 4 /RTE_6/]F^SIS:::4:692084-17278 2440 01 01 4 /RTE_6/]F^VIS:::4:992084-17279 6000 01 01 4 /RTE_6/LOAD6.CMD:::4:5892084-17359 5000 01 01 4 /RTE_6/*MLLD6:::4:392084-17360 6000 01 01 4 /RTE_6/*DOSNP:::4:22 92084-17361 5000 01 01 3 /RTE_6/#DRREL:::3:192084-17362 5000 01 01 3 /RTE_6/#DRRPL:::3:192084-17363 5010 01 01 4 /RTE_6/"LUPRN:::4:15 92084-17370 5010 01 01 4 /RTE_6/GENIX.LOD:::4:1 92084-17998 5270 01 01 3 /RTE_6/M92084:::3:16 92084-17999 6000 01 01 4 /RTE_6/A92084:::4:11992084-18135 2340 01 01 4 /RTE_6/&C*TAB:::4:26 92084-18463 5000 01 01 4 /RTE_6/&$CMND:::4:17 92084-18604 6000 01 01 4 /RTE_6/&$TA32:::4:892084-18605 6000 01 01 4 /RTE_6/&$TB32:::4:892084-18652 6000 01 01 4 /RTE_6/&$TM33:::4:14 92202-16001 5020 01 01 5 /RTE_6/%DVR23:::5:12 92570-12014 6000 01 01 5 /RTE_6/FST.REL:::5:9092570-12015 6000 01 01 5 /RTE_6/FSTLIB.LIB:::5:84392570-12017 6000 01 01 5 /RTE_6/$CRLIB:::5:10692570-12021 6000 01 01 5 /RTE_6/TFLIB.LIB:::5:522 92570-16074 6000 01 01 5 /RTE_6/DL.REL:::5:10292570-16111 6000 01 01 5 /RTE_6/%FS000:::5:292570-16112 6000 01 01 1 /RTE_6/>FS000:::1:86 92570-16113 6000 01 01 5 /RTE_6/FSTP.REL:::5:13192570-16152 6000 01 01 5 /RTE_6/%DL000:::5:492570-16154 6000 01 01 5 /RTE_6/CLOSE.REL:::5:4 92570-16155 6000 01 01 5 /RTE_6/%CL000:::5:292570-16159 6000 01 01 5 /RTE_6/%CR000:::5:10 92570-16161 6000 01 01 5 /RTE_6/%CI000:::5:892570-16164 6000 01 01 5 /RTE_6/%CIX:::5:13 92570-16165 6000 01 01 5 /RTE_6/MPACK.REL:::5:222 92570-16166 6000 01 01 5 /RTE_6/MPACK.R000:::5:22 92570-16173 6000 01 01 5 /RTE_6/FVERI.REL:::5:106 92570-16174 6000 01 01 5 /RTE_6/%FV000:::5:18 92570-16176 6000 01 01 5 /RTE_6/FPACK.REL:::5:4992570-16178 6000 01 01 5 /RTE_6/%FP000:::5:292570-16192 6000 01 01 5 /RTE_6/TF.REL:::5:33 92570-16194 6000 01 01 1 /RTE_6/>TF000:::1:29 92570-16232 6000 01 01 5 /RTE_6/%CX000:::5:292570-16237 6000 01 01 5 /RTE_6/FOWN.REL:::5:33 92570-16239 6000 01 01 5 /RTE_6/FOWN.R000:::5:3 92570-16257 6000 01 01 5 /RTE_6/%DSRTR:::5:12892570-16262 6000 01 01 5 /RTE_6/CALLM.REL:::5:2292570-17012 6000 01 01 3 /RTE_6/DL.LOD:::3:292570-17021 6000 01 01 4 /RTE_6/HELP/DL.HELP:::4:34 92570-17022 6000 01 01 4 /RTE_6/HELP/MASK.HELP:::4:43 92570-17023 6000 01 01 4 /RTE_6/FST.LOD:::4:4 92570-17024 6000 01 01 4 /RTE_6/FSTP.LOD:::4:192570-17028 6000 01 01 3 /RTE_6/CLOSE.LOD:::3:1 92570-17029 6000 01 01 4 /RTE_6/HELP/CLOSE.HELP:::4:4 92570-17032 6000 01 01 4 /RTE_6/#CIX:::4:392570-17034 6000 01 01 4 /RTE_6/MPACK.LOD:::4:1 92570-17035 6000 01 01 3 /RTE_6/FVERI.LOD:::3:1 92570-17036 6000 01 01 3 /RTE_6/FPACK.LOD:::3:1 92570-17043 6000 01 01 3 /RTE_6/TF.LOD:::3:492570-17066 6000 01 01 4 /RTE_6/WHOSD.LOD:::4:1 92570-17067 6000 01 01 4 /RTE_6/HELP/WHOSD.HELP:::4:1492570-17069 6000 01 01 3 /RTE_6/FOWN.LOD:::3:192570-17070 6000 01 01 4 /RTE_6/HELP/FOWN.HELP:::4:792570-17077 6000 01 01 4 /RTE_6/HELP/CALLS.HELP:::4:3692570-17078 6000 01 01 4 /RTE_6/HELP/CALLM.HELP:::4:1492833-16107 6000 01 01 5 /RTE_6/PASCAL_FMGR.LIB:::5:583 92833-16113 6000 01 01 5 /RTE_6/PASCAL.LIB:::5:58692833-16125 5000 01 01 5 /RTE_6/PASCAL_ERR.REL:::5:9 92833-16210 5000 01 01 5 /RTE_6/PASCAL_FMGR_ALT.LIB:::5:468 92833-16220 5000 01 01 5 /RTE_6/SHSLB.LIB:::5:1892833-16221 5000 01 01 5 /RTE_6/SHSLB_ALT.LIB:::5:1492833-16222 5000 01 01 5 /RTE_6/PASCAL_ERR_ALT.REL:::5:9* * END MATERIAL LIST * :492084-17215 5020 01 01 3 /RTE_6/HELP/BL.HELP:::3:692084-17216 5020 01 01 3 /RTE_6/HELP/BR.HELP:::3:4COMMUNICATOR60.LST::HP1000_INFO:4:3409:47 644 0 0 3250400 5310706631 40157 COMMUNICATOR60.LST::HP1000_INFO_RTE6:4:3409:47 ).$ Q< Q/COMMUNICATOR60 LST +#+#+# Q{M FST                                                      1      READER COMMENT SHEET  6.0 Communicator/1000  5961-6201    & We welcome your evaluation of this reference document. Your comments && and suggestions help us improve our publication. Please answer the && following questions, using additional pages if necessary. Thank you. &   1. Are you satisfied with this update? YES____ NO____ Comments:   "(( 2. Please check the products you implemented in this update. " ! ___ (24612B) Diagnostics ___ (91750A) DS/1000 !# ___ (91751A) DSN/X.25 1000 ___ (91781A) RJE/1000-II #$ ___ (91790A) NS-ARPA/1000 ___ (92050A) Datapair/1000 $ ___ (92077A) RTE-A ___ (92078A) VC+ " ___ (92084A) RTE-6/VM ___ (92131A) QDM/1000 "# ___ (92833A) Pascal/1000 ___ (92836A) Fortran-77 #' ___ (92857A) Basic/1000-C ___ (92860A) Symbolic Debug/1000 '' ___ (92861A) Graphics/1000 (DGL) ___ (92862A) Graphics/1000 (AGP) ') ___ (94200B) PCIF/1000 ___ (94202A) PCIF/1000 Allen-Bradley )$ ___ (94203A) PCIF/1000 Gould-Mod. ___ (94250A) FORMS/1000-A $" ___ (94250B) FORMS/1000-B ___ (98170A) ARPA/1000 "   3. How could we make this document more useful?       Optional information:   Name  Company  Address    What HP support office serves you?          * 6.0 Communicator/1000 *  1    )SELECT CHARSET=0,14    )SELECT CHARSET=14,1  Table of Contents  )SELECT CHARSET=0,14    ( 1 Introduction . . . . . . . . . . . . . . . . . . . . . . . . . . . 1-1 (( 1.1 Purpose of the Communicator/1000 and how to use it. . . . . 1-1 (( 1.2 Naming and Revision Code Convention . . . . . . . . . . . . 1-3 (( 1.3 Revision Code History . . . . . . . . . . . . . . . . . . . 1-4 ( ( 2 Description of Software Changes . . . . . . . . . . . . . . . . . 2-1 (( 2.1 (24612B) A-Series System and Peripheral Diagnostics . . . . 2-1 (( 2.1.1 SCSI . . . . . . . . . . . . . . . . . . . . . . . . . 2-1 (( 2.1.2 VSCSI . . . . . . . . . . . . . . . . . . . . . . . . 2-2 (( 2.2 (91750A) DS/1000-IV . . . . . . . . . . . . . . . . . . . . 2-2 (( 2.2.1 INSTALLATION . . . . . . . . . . . . . . . . . . . . . 2-2 (( 2.2.2 PROGL . . . . . . . . . . . . . . . . . . . . . . . . 2-3 (( 2.2.3 REMAT . . . . . . . . . . . . . . . . . . . . . . . . 2-3 (( 2.2.4 X.25 . . . . . . . . . . . . . . . . . . . . . . . . . 2-3 (( 2.3 (91751A) DSN/X.25 1000 . . . . . . . . . . . . . . . . . . . 2-4 (( 2.3.1 DSN/X.25 . . . . . . . . . . . . . . . . . . . . . . . 2-4 (( 2.4 (91781A) RJE/1000-II . . . . . . . . . . . . . . . . . . . . 2-5 (( 2.4.1 Structure Changes . . . . . . . . . . . . . . . . . . 2-5 (( 2.5 (91790A) NS-ARPA/1000 . . . . . . . . . . . . . . . . . . . 2-5 (( 2.5.1 BSD IPC . . . . . . . . . . . . . . . . . . . . . . . 2-5 (( 2.5.2 DSCOPY . . . . . . . . . . . . . . . . . . . . . . . . 2-6 (( 2.5.3 DSMOD . . . . . . . . . . . . . . . . . . . . . . . . 2-7 (( 2.5.4 FMTRC . . . . . . . . . . . . . . . . . . . . . . . . 2-7 (( 2.5.5 FTP . . . . . . . . . . . . . . . . . . . . . . . . . 2-7 (( 2.5.6 INETD . . . . . . . . . . . . . . . . . . . . . . . . 2-9 (( 2.5.7 INITIALIZATION . . . . . . . . . . . . . . . . . . . . 2-9 (( 2.5.8 INPRO . . . . . . . . . . . . . . . . . . . . . . . 2-10 (( 2.5.9 INSTALLATION . . . . . . . . . . . . . . . . . . . . 2-11 (( 2.5.10 IPCLookup . . . . . . . . . . . . . . . . . . . . . 2-11 (( 2.5.11 PING . . . . . . . . . . . . . . . . . . . . . . . 2-11 (( 2.5.12 REMAT . . . . . . . . . . . . . . . . . . . . . . . 2-12 (( 2.5.13 TCP . . . . . . . . . . . . . . . . . . . . . . . . 2-12 (( 2.5.14 TELNET . . . . . . . . . . . . . . . . . . . . . . 2-12 (( 2.6 (92050A) Datapair/1000 . . . . . . . . . . . . . . . . . . 2-13 (( 2.6.1 SCSI Support . . . . . . . . . . . . . . . . . . . . 2-13 (( 2.7 (92077A) RTE-A Operating System . . . . . . . . . . . . . 2-14 (( 2.7.1 APLDR . . . . . . . . . . . . . . . . . . . . . . . 2-14 (( 2.7.2 BOOTEX . . . . . . . . . . . . . . . . . . . . . . . 2-14 (( 2.7.3 CALLS UTILITY . . . . . . . . . . . . . . . . . . . 2-15 (( 2.7.4 CI . . . . . . . . . . . . . . . . . . . . . . . . . 2-16 (( 2.7.5 CI UTILITIES . . . . . . . . . . . . . . . . . . . . 2-17 (( 2.7.6 CS/80 . . . . . . . . . . . . . . . . . . . . . . . 2-17 (( 2.7.7 CSYS . . . . . . . . . . . . . . . . . . . . . . . . 2-18 (( 2.7.8 D.RTR . . . . . . . . . . . . . . . . . . . . . . . 2-18 ()MOVE ABS=90,1750  * 6.0 Communicator/1000 *  )SELECT CHARSET=13,1 $ iii $1    )SELECT CHARSET=0,14   ( 2.7.9 DD*24 . . . . . . . . . . . . . . . . . . . . . . . 2-19 (( 2.7.10 DRIVERS . . . . . . . . . . . . . . . . . . . . . . 2-19 (( 2.7.11 EDIT . . . . . . . . . . . . . . . . . . . . . . . 2-20 (( 2.7.12 FMGR . . . . . . . . . . . . . . . . . . . . . . . 2-21 (( 2.7.13 FMP . . . . . . . . . . . . . . . . . . . . . . . . 2-21 (( 2.7.14 FMP LIBRARIES . . . . . . . . . . . . . . . . . . . 2-23 (( 2.7.15 FORMC . . . . . . . . . . . . . . . . . . . . . . . 2-24 (( 2.7.16 FREES . . . . . . . . . . . . . . . . . . . . . . . 2-24 (( 2.7.17 FST . . . . . . . . . . . . . . . . . . . . . . . . 2-24 (( 2.7.18 GENERATOR . . . . . . . . . . . . . . . . . . . . . 2-28 (( 2.7.19 HPCRT . . . . . . . . . . . . . . . . . . . . . . . 2-30 (( 2.7.20 HPMDM . . . . . . . . . . . . . . . . . . . . . . . 2-32 (( 2.7.21 I/O . . . . . . . . . . . . . . . . . . . . . . . . 2-33 (( 2.7.22 ID*52 . . . . . . . . . . . . . . . . . . . . . . . 2-33 (( 2.7.23 INSTALLATION . . . . . . . . . . . . . . . . . . . 2-33 (( 2.7.24 INSTL . . . . . . . . . . . . . . . . . . . . . . . 2-34 (( 2.7.25 LI . . . . . . . . . . . . . . . . . . . . . . . . 2-35 (( 2.7.26 LIF . . . . . . . . . . . . . . . . . . . . . . . . 2-36 (( 2.7.27 LINK . . . . . . . . . . . . . . . . . . . . . . . 2-36 (( 2.7.28 MACRO . . . . . . . . . . . . . . . . . . . . . . . 2-37 (( 2.7.29 MERGE . . . . . . . . . . . . . . . . . . . . . . . 2-39 (( 2.7.30 MPACK . . . . . . . . . . . . . . . . . . . . . . . 2-40 (( 2.7.31 MUX . . . . . . . . . . . . . . . . . . . . . . . . 2-40 (( 2.7.32 Mail/1000 . . . . . . . . . . . . . . . . . . . . . 2-41 (( 2.7.33 OPERATING SYSTEM . . . . . . . . . . . . . . . . . 2-42 (( 2.7.34 PRIMARY . . . . . . . . . . . . . . . . . . . . . . 2-44 (( 2.7.35 SAM . . . . . . . . . . . . . . . . . . . . . . . . 2-44 (( 2.7.36 SCOM . . . . . . . . . . . . . . . . . . . . . . . 2-44 (( 2.7.37 SCSI . . . . . . . . . . . . . . . . . . . . . . . 2-45 (( 2.7.38 SIGNALS . . . . . . . . . . . . . . . . . . . . . . 2-49 (( 2.7.39 SPOOLING . . . . . . . . . . . . . . . . . . . . . 2-49 (( 2.7.40 SYSTEM LIBRARY . . . . . . . . . . . . . . . . . . 2-50 (( 2.7.41 Structure Changes . . . . . . . . . . . . . . . . . 2-50 (( 2.7.42 TF . . . . . . . . . . . . . . . . . . . . . . . . 2-51 (( 2.7.43 VSCSI . . . . . . . . . . . . . . . . . . . . . . . 2-51 (( 2.7.44 WH . . . . . . . . . . . . . . . . . . . . . . . . 2-52 (( 2.7.45 WHZAT . . . . . . . . . . . . . . . . . . . . . . . 2-53 (( 2.8 (92078A) RTE-A Virtual Code+ . . . . . . . . . . . . . . . 2-53 (( 2.8.1 CI . . . . . . . . . . . . . . . . . . . . . . . . . 2-53 (( 2.8.2 CI UTILITIES . . . . . . . . . . . . . . . . . . . . 2-55 (( 2.8.3 D.RTR . . . . . . . . . . . . . . . . . . . . . . . 2-55 (( 2.8.4 FMP . . . . . . . . . . . . . . . . . . . . . . . . 2-56 (( 2.8.5 FMP LIBRARIES . . . . . . . . . . . . . . . . . . . 2-58 (( 2.8.6 GENERATOR . . . . . . . . . . . . . . . . . . . . . 2-58 (( 2.8.7 LANVCP . . . . . . . . . . . . . . . . . . . . . . . 2-58 (( 2.8.8 MACRO . . . . . . . . . . . . . . . . . . . . . . . 2-59 (( 2.8.9 MULTIUSER/SESSION . . . . . . . . . . . . . . . . . 2-59 (( 2.9 (92081A) Image/1000-II . . . . . . . . . . . . . . . . . . 2-60 ()MOVE ABS=90,1750  * 6.0 Communicator/1000 *  )SELECT CHARSET=13,1  iv 1    )SELECT CHARSET=0,14   ( 2.9.1 Structure Changes . . . . . . . . . . . . . . . . . 2-60 (( 2.10 (92084A) RTE-6/VM Operating System . . . . . . . . . . . 2-61 (( 2.10.1 CALLS . . . . . . . . . . . . . . . . . . . . . . . 2-61 (( 2.10.2 CI . . . . . . . . . . . . . . . . . . . . . . . . 2-61 (( 2.10.3 CI UTILITIES . . . . . . . . . . . . . . . . . . .(( 2-62 (( 2.10.4 DVA37 . . . . . . . . . . . . . . . . . . . . . . . 2-62 (( 2.10.5 DVS23 . . . . . . . . . . . . . . . . . . . . . . . 2-62 (( 2.10.6 EDIT . . . . . . . . . . . . . . . . . . . . . . . 2-63 (( 2.10.7 FMP . . . . . . . . . . . . . . . . . . . . . . . . 2-63 (( 2.10.8 FMP LIBRARIES . . . . . . . . . . . . . . . . . . . 2-64 (( 2.10.9 FORMC . . . . . . . . . . . . . . . . . . . . . . . 2-65 (( 2.10.10 FREES . . . . . . . . . . . . . . . . . . . . . . 2-65 (( 2.10.11 FST . . . . . . . . . . . . . . . . . . . . . . . 2-65 (( 2.10.12 GENERATOR . . . . . . . . . . . . . . . . . . . . 2-69 (( 2.10.13 HPCRT . . . . . . . . . . . . . . . . . . . . . . 2-70 (( 2.10.14 INSTALLATION . . . . . . . . . . . . . . . . . . . 2-71 (( 2.10.15 LI . . . . . . . . . . . . . . . . . . . . . . . . 2-72 (( 2.10.16 LIF . . . . . . . . . . . . . . . . . . . . . . . 2-73 (( 2.10.17 LINK . . . . . . . . . . . . . . . . . . . . . . . 2-73 (( 2.10.18 LUPRN . . . . . . . . . . . . . . . . . . . . . . 2-73 (( 2.10.19 MACRO . . . . . . . . . . . . . . . . . . . . . . 2-74 (( 2.10.20 MERGE . . . . . . . . . . . . . . . . . . . . . . 2-76 (( 2.10.21 MPACK . . . . . . . . . . . . . . . . . . . . . . 2-77 (( 2.10.22 MUX . . . . . . . . . . . . . . . . . . . . . . . 2-77 (( 2.10.23 Miscellaneous . . . . . . . . . . . . . . . . . . 2-78 (( 2.10.24 PRINT . . . . . . . . . . . . . . . . . . . . . . 2-78 (( 2.10.25 SCOM . . . . . . . . . . . . . . . . . . . . . . . 2-78 (( 2.10.26 Structure Changes . . . . . . . . . . . . . . . . 2-79 (( 2.10.27 TF . . . . . . . . . . . . . . . . . . . . . . . . 2-79 (( 2.10.28 WHOSD . . . . . . . . . . . . . . . . . . . . . . 2-80 (( 2.11 (92833A) Pascal/1000 (RTE-6/VM . . . . . . . . . . . . . 2-80 (( 2.11.1 Structure Changes . . . . . . . . . . . . . . . . . 2-80 (( 2.12 (92836A) Fortran-77 Compiler . . . . . . . . . . . . . . 2-81 (( 2.12.1 DEBUG . . . . . . . . . . . . . . . . . . . . . . . 2-81 (( 2.12.2 FORTRAN . . . . . . . . . . . . . . . . . . . . . . 2-81 (( 2.13 (92857A) Basic/1000C . . . . . . . . . . . . . . . . . . 2-83 (( 2.13.1 BBMG . . . . . . . . . . . . . . . . . . . . . . . 2-83 (( 2.13.2 COMPILER . . . . . . . . . . . . . . . . . . . . . 2-83 (( 2.13.3 DEBUG . . . . . . . . . . . . . . . . . . . . . . . 2-85 (( 2.13.4 I/O . . . . . . . . . . . . . . . . . . . . . . . . 2-86 (( 2.13.5 INTERPRETER . . . . . . . . . . . . . . . . . . . . 2-87 (( 2.13.6 LINK . . . . . . . . . . . . . . . . . . . . . . . 2-88 (( 2.13.7 Miscellaneous . . . . . . . . . . . . . . . . . . . 2-88 (( 2.13.8 RBEX . . . . . . . . . . . . . . . . . . . . . . . 2-88 (( 2.14 (92860A) Symbolic Debug/1000 . . . . . . . . . . . . . . 2-89 (( 2.14.1 CALLS . . . . . . . . . . . . . . . . . . . . . . . 2-89 (( 2.14.2 CALLS UTILITY . . . . . . . . . . . . . . . . . . . 2-89 (( 2.14.3 Miscellaneous . . . . . . . . . . . . . . . . . . . 2-90 ()MOVE ABS=90,1750  * 6.0 Communicator/1000 *  )SELECT CHARSET=13,1 $ v $1    )SELECT CHARSET=0,14   ( 2.14.4 XDB . . . . . . . . . . . . . . . . . . . . . . . . 2-90 (( 2.15 (92861A) Graphics/1000-II DGL Version 2.0 . . . . . . . . 2-90 (( 2.15.1 CRT . . . . . . . . . . . . . . . . . . . . . . . . 2-90 (( 2.15.2 DIDD . . . . . . . . . . . . . . . . . . . . . . . 2-91 (( 2.15.3 PLOTTERS . . . . . . . . . . . . . . . . . . . . . 2-92 (( 2.15.4 PRINTERS . . . . . . . . . . . . . . . . . . . . . 2-92 (( 2.15.5 TERMINALS . . . . . . . . . . . . . . . . . . . . . 2-94 (( 2.16 (92862A) Graphics/1000-II AGP Version 2.0 . . . . . . . . 2-95 (( 2.16.1 DIDD . . . . . . . . . . . . . . . . . . . . . . . 2-95 (( 2.16.2 JDINT . . . . . . . . . . . . . . . . . . . . . . . 2-95 (( 2.17 (94202A) PCIF/1000 Allen-Bradley Handlers . . . . . . . . 2-95 (( 2.17.1 SUBREQUEST MESSAGES . . . . . . . . . . . . . . . . 2-95 (( 2.18 (94203A) PCIF/1000 Gould-Modicon Handlers . . . . . . . . 2-97 (( 2.18.1 BIT WRITES . . . . . . . . . . . . . . . . . . . . 2-97 (( 2.18.2 MODBUS ADDRESSING . . . . . . . . . . . . . . . . . 2-97 (( 2.19 (94250A) Forms/1000-A . . . . . . . . . . . . . . . . . . 2-97 (( 2.19.1 FORMS . . . . . . . . . . . . . . . . . . . . . . . 2-97 (( 2.20 (94250B) Forms/1000-B . . . . . . . . . . . . . . . . . . 2-98 (( 2.20.1 BUFFER READS . . . . . . . . . . . . . . . . . . . 2-98 (( 2.20.2 FORMS . . . . . . . . . . . . . . . . . . . . . . . 2-98 (( 2.20.3 PROGRAM SCHEDULING . . . . . . . . . . . . . . . . 2-99 (( 2.20.4 REAL FIELDS . . . . . . . . . . . . . . . . . . . . 2-99 (( 2.21 (98170A) ARPA/1000 . . . . . . . . . . . . . . . . . . . 2-100 (( 2.21.1 FMTRC . . . . . . . . . . . . . . . . . . . . . . . 2-100 (( 2.21.2 FTP . . . . . . . . . . . . . . . . . . . . . . . . 2-100 (( 2.21.3 INETD . . . . . . . . . . . . . . . . . . . . . . . 2-101 (( 2.21.4 INITIALIZATION . . . . . . . . . . . . . . . . . . 2-102 (( 2.21.5 INPRO . . . . . . . . . . . . . . . . . . . . . . . 2-102 (( 2.21.6 INSTALLATION . . . . . . . . . . . . . . . . . . . 2-102 (( 2.21.7 PING . . . . . . . . . . . . . . . . . . . . . . . 2-103 (( 2.21.8 RTE-A FILES . . . . . . . . . . . . . . . . . . . . 2-103 (( 2.21.9 TELNET . . . . . . . . . . . . . . . . . . . . . . 2-103 ( ( 3 Current Revisions & Changes . . . . . . . . . . . . . . . . . . . 3-1 (( 3.1 + (24612B) A-Series System and Peripheral Diagnosti . . . 3-2 (( 3.2 + (91750A) DS/1000-IV . . . . . . . . . . . . . . . . . . 3-3 (( 3.3 + (91751A) DSN/X.25 1000 . . . . . . . . . . . . . . . . . 3-6 (( 3.4 + (91781A) RJE/1000-II . . . . . . . . . . . . . . . . . . 3-8 (( 3.5 (91782A) DSN/MRJE 1000 . . . . . . . . . . . . . . . . 3-10 (( 3.6 (91784A) PMF/1000 . . . . . . . . . . . . . . . . . . 3-10 (( 3.7 + (91790A) NS-ARPA/1000 . . . . . . . . . . . . . . . . 3-12 (( 3.8 (92049A) A900 Microprogramming Package . . . . . . . . 3-18 (( 3.9 + (92050A) Datapair/1000 . . . . . . . . . . . . . . . . 3-18 (( 3.10 (92069A) Image/1000 (A, E, F-Series) . . . . . . . . 3-19 (( 3.11 + (92077A) RTE-A Operating System . . . . . . . . . . . 3-20 (( 3.12 + (92078A) RTE-A Virtual Code+ (VC+) . . . . . . . . . 3-34 (( 3.13 + (92081A) Image/1000-II . . . . . . . . . . . . . . . 3-40 (( 3.14 (92083A) Profile Monitor . . . . . . . . . . . . . . 3-42 ()MOVE ABS=90,1750  * 6.0 Communicator/1000 *  )SELECT CHARSET=13,1  vi 1    )SELECT CHARSET=0,14   ( 3.15 + (92084A) RTE-6/VM Operating System . . . . . . . . . 3-43 (( 3.16 (92101A) Basic/1000D . . . . . . . . . . . . . . . . 3-53 (( 3.17 + (92131A) QDM/1000 . . . . . . . . . . . . . . . . . . 3-54 (( 3.18 (92571A) C/1000 . . . . . . . . . . . . . . . . . . . 3-69 (( 3.19 + (92833A) Pascal/1000 (RTE-6/VM, RTE-A) . . . . . . . 3-72 (( 3.20 + (92836A) Fortran-77 Compiler . . . . . . . . . . . . 3-76 (( 3.21 + (92857A) Basic/1000C . . . . . . . . . . . . . . . . 3-77 (( 3.22 + (92860A) Symbolic Debug/1000 . . . . . . . . . . . . 3-79 (( 3.23 + (92861A) Graphics/1000-II DGL Version 2.0 . . . . . . 3-80 (( 3.24 + (92862A) Graphics/1000-II AGP Version 2.0 . . . . . . 3-85 (( 3.25 + (94200B) PCIF/1000 . . . . . . . . . . . . . . . . . 3-87 (( 3.26 + (94202A) PCIF/1000 Allen-Bradley Handlers . . . . . . 3-90 (( 3.27 + (94203A) PCIF/1000 Gould-Modicon Handlers . . . . . . 3-92 (( 3.28 (94204A) PCIF/1000 Siemens Handlers . . . . . . . . . 3-93 (( 3.29 (94206A) PCIF/1000 General Electric Handlers . . . . 3-93 (( 3.30 + (94250A) Forms/1000-A . . . . . . . . . . . . . . . . 3-94 (( 3.31 + (94250B) Forms/1000-B . . . . . . . . . . . . . . . . 3-96 (( 3.32 + (98170A) ARPA/1000 . . . . . . . . . . . . . . . . . 3-99 (( 3.33 Current Firmware Revisions . . . . . . . . . . . . . . . 3-103 (( 3.33.1 A400 Base Set Firmware . . . . . . . . . . . . . . 3-103 (( 3.33.2 A400 OBIO Firmware . . . . . . . . . . . . . . . . 3-103 (( 3.33.3 A400 VCP Firmware . . . . . . . . . . . . . . . . . 3-104 (( 3.33.4 A600 Minifloppy Controller . . . . . . . . . . . . 3-105 (( 3.33.5 A600 Base Set Firmware History . . . . . . . . . . 3-105 (((( 3.33.6 A600+ Base Set Firmware . . . . . . . . . . . . . . 3-108 (( 3.33.7 A600/A600+ VCP Firmware History . . . . . . . . . . 3-109 (( 3.33.8 A700 Base Set Firmware History . . . . . . . . . . 3-111 (( 3.33.9 A700 Floating Point History . . . . . . . . . . . . 3-112 (( 3.33.10 A700 VCP HISTORY . . . . . . . . . . . . . . . . . 3-113 (( 3.33.11 A900 Firmware History . . . . . . . . . . . . . . 3-115 (( 3.33.12 A900 VCP Firmware History . . . . . . . . . . . . 3-122 (( 3.33.13 A990 Firmware History . . . . . . . . . . . . . . 3-125 (( 3.33.14 M/E/F-Series ROM History . . . . . . . . . . . . . 3-126 (( 3.33.15 PSI Firmware History . . . . . . . . . . . . . . . 3-130 (( 3.33.16 12040 MUX Firmware History . . . . . . . . . . . . 3-132 (( 3.33.17 12076A LAN/1000 Card Firmware . . . . . . . . . . 3-134 (( 3.33.18 12016A SCSI Firmware History . . . . . . . . . . . 3-135 ( ( 4 Usage Considerations . . . . . . . . . . . . . . . . . . . . . . . 4-1 (( 4.1 Structure Changes . . . . . . . . . . . . . . . . . . . . . 4-1 (( 4.1.1 Pascal Libraries . . . . . . . . . . . . . . . . . . . 4-1 (( 4.1.2 Disc to Disk . . . . . . . . . . . . . . . . . . . . . 4-1 (( 4.2 (12016A) SCSI . . . . . . . . . . . . . . . . . . . . . . . 4-1 (( 4.2.1 Software Updates . . . . . . . . . . . . . . . . . . . 4-2 (( 4.3 (91751A) X.25/1000 . . . . . . . . . . . . . . . . . . . . . 4-2 (( 4.3.1 Generation Considerations . . . . . . . . . . . . . . 4-2 (( 4.4 (91790A) NS-ARPA/1000 . . . . . . . . . . . . . . . . . . . 4-2 (( 4.4.1 INETD . . . . . . . . . . . . . . . . . . . . . . . . 4-2 ()MOVE ABS=90,1750  * 6.0 Communicator/1000 *  )SELECT CHARSET=13,1 $ vii $1    )SELECT CHARSET=0,14   ( 4.4.1.1 Description . . . . . . . . . . . . . . . . . . 4-2 (( 4.4.1.2 Installation . . . . . . . . . . . . . . . . . . 4-3 (( 4.4.1.3 Important Notes . . . . . . . . . . . . . . . . 4-3 (( 4.4.2 Generation Considerations . . . . . . . . . . . . . . 4-3 (( 4.5 (92077A) RTE-A Operating System . . . . . . . . . . . . . . 4-4 (( 4.5.1 Peripheral Support Changes . . . . . . . . . . . . . . 4-4 (( 4.5.2 A990 Firmware . . . . . . . . . . . . . . . . . . . . 4-4 (( 4.5.3 Primary System Software . . . . . . . . . . . . . . . 4-7 (( 4.5.4 Generation Considerations . . . . . . . . . . . . . . 4-7 (( 4.5.4.1 New Module . . . . . . . . . . . . . . . . . . . 4-7 (( 4.5.5 6.0 Software Needed for Generation . . . . . . . . . . 4-7 (( 4.5.5.1 RTAGN . . . . . . . . . . . . . . . . . . . . . 4-7 (( 4.5.5.2 MACRO . . . . . . . . . . . . . . . . . . . . . 4-8 (( 4.5.5.3 LINK . . . . . . . . . . . . . . . . . . . . . . 4-8 (( 4.5.5.4 LINDX . . . . . . . . . . . . . . . . . . . . . 4-8 (( 4.5.5.5 BUILD . . . . . . . . . . . . . . . . . . . . . 4-8 (( 4.5.6 CI Enhancements . . . . . . . . . . . . . . . . . . . 4-9 (( 4.5.6.1 New CI Variables . . . . . . . . . . . . . . . . 4-9 (( 4.5.7 PWD . . . . . . . . . . . . . . . . . . . . . . . . . 4-9 (( 4.5.7.1 Path Working Directory . . . . . . . . . . . . . 4-9 (( 4.5.8 CD . . . . . . . . . . . . . . . . . . . . . . . . . . 4-9 (( 4.5.8.1 Change Directory . . . . . . . . . . . . . . . . 4-9 (( 4.5.9 File System Enhancements . . . . . . . . . . . . . . . 4-9 (( 4.5.9.1 grep . . . . . . . . . . . . . . . . . . . . . . 4-9 (( 4.5.9.2 ls . . . . . . . . . . . . . . . . . . . . . . 4-10 (( 4.5.10 Mail/1000 . . . . . . . . . . . . . . . . . . . . . 4-10 (( 4.5.10.1 User Interface . . . . . . . . . . . . . . . 4-10 (( 4.5.10.2 DNS Client Support . . . . . . . . . . . . . 4-10 (( 4.5.10.3 Other Mail Standards . . . . . . . . . . . . 4-10 (( 4.5.10.4 Host Routing . . . . . . . . . . . . . . . . 4-10 (( 4.5.10.5 New Mail Notification . . . . . . . . . . . . 4-11 (( 4.5.10.6 Installation Process . . . . . . . . . . . . 4-11 (( 4.5.10.7 uuencode/uudecode . . . . . . . . . . . . . . 4-11 (( 4.5.11 Size Changes . . . . . . . . . . . . . . . . . . . 4-13 (( 4.5.11.1 Operating System Size Differences . . . . . . 4-13 (( 4.5.11.2 Driver Size Differences . . . . . . . . . . . 4-14 (( 4.5.11.3 BIGLB Size Differences (5.27 -> 6.0) . . . . 4-15 (( 4.5.11.4 BIGLB Size Differences (6.0 <-> 6.0) . . . . 4-20 (( 4.5.11.5 BGCDS Data Size Differences (5.27 -> 6.0) . . 4-21 (( 4.5.11.6 BGCDS Code Size Differences (5.27 -> 6.0) . . 4-23 (( 4.5.11.7 BGCDS Data Size Differences (6.0 <-> 6.0) . . 4-27 (( 4.5.11.8 BGCDS Code Size Differences (6.0 <-> 6.0) . . 4-27 (( 4.6 (92078A) VC+ . . . . . . . . . . . . . . . . . . . . . . . 4-29 (( 4.6.1 CI Enhancements . . . . . . . . . . . . . . . . . . 4-29 (( 4.6.1.1 Load File Name Changes . . . . . . . . . . . . 4-29 (( 4.6.1.2 Command Aliases . . . . . . . . . . . . . . . 4-29 (( 4.6.1.3 Functions . . . . . . . . . . . . . . . . . . 4-29 (( 4.6.1.4 Exporting Variables, Aliases, and Functions . 4-29 ()MOVE ABS=90,1750  * 6.0 Communicator/1000 *  )SELECT CHARSET=13,1  viii 1    )SELECT CHARSET=0,14   ( 4.6.1.5 New CI Variables . . . . . . . . . . . . . . . 4-29 (( 4.6.1.6 CZ . . . . . . . . . . . . . . . . . . . . . . 4-30 (( 4.6.1.7 Tilde Expansion . . . . . . . . . . . . . . . 4-30 (( 4.6.1.8 Command Line Editing . . . . . . . . . . . . . 4-30 (( 4.6.1.9 Command Editing Performance Considerations . . 4-31 (( 4.6.1.10 File Name and Command Name Completion . . . . 4-31 (( 4.6.2 Symbolic Links . . . . . . . . . . . . . . . . . . . 4-32 (( 4.7 (92084A) RTE-6/VM Operating System . . . . . . . . . . . . 4-32 (( 4.7.1 CI Enhancements . . . . . . . . . . . . . . . . . . 4-32 (( 4.7.1.1 New CI Variables . . . . . . . . . . . . . . . 4-32 (( 4.7.2 PWD . . . . . . . . . . . . . . . . . . . . . . . . 4-32 (( 4.7.2.1 Path Working Directory . . . . . . . . . . . . 4-32 (( 4.7.3 CD . . . . . . . . . . . . . . . . . . . . . . . . . 4-32 (( 4.7.3.1 Change Directory . . . . . . . . . . . . . . . 4-33 (( 4.7.4 WHOSD . . . . . . . . . . . . . . . . . . . . . . . 4-33 (( 4.7.4.1 Report Users of Directory . . . . . . . . . . 4-33 (( 4.7.5 CALLS . . . . . . . . . . . . . . . . . . . . . . . 4-33 (( 4.7.5.1 Online Help Facility . . . . . . . . . . . . . 4-33 (( 4.7.6 Manual Updates . . . . . . . . . . . . . . . . . . . 4-35 (( 4.7.7 Size Changes . . . . . . . . . . . . . . . . . . . . 4-36 (( 4.7.7.1 Operating System Size Differences . . . . . . 4-36 (( 4.7.7.2 Driver Size Differences . . . . . . . . . . . 4-36 (( 4.7.7.3 System and Relocatable Library Size Differences 4-37 (( 4.8 (92131A) QDM/1000 . . . . . . . . . . . . . . . . . . . . 4-40 (( 4.8.1 FORMS/1000 Libraries . . . . . . . . . . . . . . . . 4-40 (( 4.9 (92860A) Debug/1000 . . . . . . . . . . . . . . . . . . . 4-40 (( 4.9.0.1 xdb Compatibility Mode . . . . . . . . . . . . 4-40 (( 4.10 (92861A/92862A) AGP/DGL . . . . . . . . . . . . . . . . . 4-41 (( 4.10.0.1 LUs > 63 . . . . . . . . . . . . . . . . . . 4-41 (( 4.10.0.2 HP-GL/2 Handler . . . . . . . . . . . . . . . 4-41 (( 4.10.0.3 PaintJet Support . . . . . . . . . . . . . . 4-41 (( 4.11 (98170A) ARPA/1000 . . . . . . . . . . . . . . . . . . . 4-41 (( 4.12 (91790A) NS-ARPA/1000 . . . . . . . . . . . . . . . . . . 4-41 (( 4.12.1 INETD . . . . . . . . . . . . . . . . . . . . . . . 4-41 (( 4.12.1.1 Description . . . . . . . . . . . . . . . . . 4-41 (( 4.12.1.2 Installation . . . . . . . . . . . . . . . . 4-42 (( 4.12.1.3 Important Notes . . . . . . . . . . . . . . . 4-42 (( 4.12.2 Generation Considerations . . . . . . . . . . . . . 4-43 ( ( 5 Media Installation and Update Procedures . . . . . . . . . . . . . 5-1 (( 5.1 General Information for Update Customers . . . . . . . . . . 5-1 (( 5.2 Media Installation Procedures . . . . . . . . . . . . . . . 5-2 (( 5.3 'FST' Format for Restoring TF or FST Format Tapes . . . . . 5-3 (( 5.4 'TF' Format for Restoring TF Format Tapes . . . . . . . . . 5-3 (( (( 5.5 VCP Bootable Format for CS/80 CTD . . . . . . . . . . . . . 5-4 (( 5.6 Customized Tapes . . . . . . . . . . . . . . . . . . . . . . 5-4 (( 5.7 Additional Formats . . . . . . . . . . . . . . . . . . . . . 5-7 ()MOVE ABS=90,1750  * 6.0 Communicator/1000 *  )SELECT CHARSET=13,1 $ ix $1    )SELECT CHARSET=0,14   ( A RTE-A 6.0 Installation Cookbook . . . . . . . . . . . . . . . . . A-1 ( ( B RTE-6/VM 6.0 Installation Cookbook . . . . . . . . . . . . . . . . B-1 ( ( C RTE-A Primary Answer File . . . . . . . . . . . . . . . . . . . . C-1 ()MOVE ABS=90,1750  * 6.0 Communicator/1000 *  )SELECT CHARSET=13,1  x 1  & Introduction &   Chapter 1 Introduction   ( This introductory chapter is a brief explanation of the content and format (( of the Communicator/1000. At the 6.0 release, a version of the (( Communicator/1000 has also been provided online in directory (( /HP1000_INFO/COMMUNICATOR60.LST. The new grep utility can be used to search (( the Communicator/1000 for keywords. It can also be printed to any line ( printer.     1.1 Purpose of the Communicator/1000 and how to use it.   ( The Communicator/1000 accompanies software and/or manual updates. It is (( designed to be a reference document to describe product changes and to give (' general considerations on how to incorporate these changes in the system. '  The Communicator/1000 performs basically three functions:  - 1) Reports the changes that have occurred within a product for both - maintenance and enhancements (Chapter 2).  ( If the change is in response to a Service Request, this is noted. The (( descriptions are meant to be a quick overview to give the user a (( condensed look at the changes. More specific information must be (! obtained from the particular product's updated manuals. ! ( When changes made to a product affect the generation, loading, or (( installation of that product, mention is made in Chapter 4. Major (( usage changes are also mentioned in Chapter 4. Again, for specific (" instructions you should refer to the appropriate manual. "  , 2) Lists the Current Revision Codes, Updated Media and Manual Part ,' Numbers for current products (Chapter 3). This chapter indicates: ' # - the current revision codes for the software modules and # firmware belonging to a product,  " - the software media part numbers that are being shipped "! in this update cycle; these media will contain the ! updated software for a particular product,  # - the part numbers of the manuals that are being updated # in this update cycle.     * 6.0 Communicator/1000 * $ 1-1 $1  & Introduction &  ( Chapter 3 is not intended to replace the Software Numbering Catalog or (( Software Numbering File for each product, but rather it is intended to (( be a quick reference source for revision codes and a help in (( determining what media and manuals will be received by a customer for ( a particular product.   + 3) Characterizes the different media formats sent to a customer, along ++ with a brief explanation of the Software Update Procedures associated + with each media (Chapter 5).  ( All software media can be read by HP-supported utilities which are (( described in various manuals. The user is directed to the appropriate ( reference manual for more specific instructions.     How to use the Communicator/1000:  ( The following are some suggestions to help you use the Communicator/1000 as ( a reference:   ( - When you receive the Communicator/1000, check Chapter 1 for any changes (( that might have occurred in the Communicator/1000 format and could affect ( how you will use it.  ( - Depending on the products for which you have a subscription service and (( the media you have chosen, you will receive a set of software and/or and (( manuals. If you are unfamiliar with the media you have received, check (( Chapter 5 for a description of the media format and suggestions for update ( procedures.  ( - Before you regenerate your system or load any software on-line, be sure to (( look through Chapter 4 to see if there have been any changes to load or ( generation procedures.  ( - Chapter 3 can be used to resolve any confusion concerning what software or (( manuals you should have received. Any software files or manuals that have (& been deleted from or added to the product will be highlighted there. & ( - Chapter 2, along with the updates you receive for your manuals, describes (! the corrections and enhancements made in this update cycle. ! ( - Appendix A is provided to assist you in upgrading your current 5.2 or 5.27 ( RTE-A system to a new 6.0 system.  ( - Appendix B is provided to assist you in upgrading your current 5.2 or 5.27 ( RTE-6/VM system to a new 6.0 system.    * 6.0 Communicator/1000 *  1-2 1  & Introduction &  ( - Appendix C is a copy of the RTE-A primary answer file, PRIMARY.ANS. It is ( provided for reference purposes only.      N  # The Communicator/1000 is only a quick reference document ## for an update cycle and is not intended to supersede the ## product manuals. Refer to the product manuals for the # precise information on how to use the product.       1.2 Naming and Revision Code Convention   ( The 5.24 release of NS-ARPA/1000 introduced a new revision numbering scheme. (( In the past, a revision 5.2 module contained the four-digit code of 5020, (( where the zero between the 5 and the 2 acted as a placeholder for the (( period. The next interim release based on the 5.2 minor release would ( contain the revision code 5021, and so forth.  ( For the purpose of coordinating the revision numbers of released code (( and patched code, the numbering scheme now uses all four digits of the ( revision code. The naming convention is as follows:  % W.XYZ where: W corresponds to a major operating system release %" X corresponds to a minor operating system or " subsystem release  Y corresponds to an interim release  Z corresponds to a patch release   ( This naming convention will be used in all references to a particular cycle. ( ( This current update cycle is 6.0, that is, a major operating system release. ( ( Note that in certain literature, such as the Software Status Bulletin (SSB), (( the '.' is omitted, and the naming convention looks like 'revision 6000'. ( The zero is no longer a place holder for the period.  ( As in the past, the software in an update shipment may be of different (( revision codes. The revision code of a software module or product indicates (( the update cycle in which that software module or product was last updated. (( For example, a 6.0 update shipment may contain Graphics software with (( revision code 6000, Image software with revision code 5000, RTE-A modules (  * 6.0 Communicator/1000 * $ 1-3 $1  & Introduction &   with revision code 6000 and revision 5270, etc.      1.3 Revision Code History   ( The following is a history of the releases of RTE-A and their corresponding (( revision codes. In addition, there is a description included for the ( interim releases since 5.2.   RTE-A Release Revision Code Comments  ------------- ------------- --------  C.83 2340  A.84 2401  A.85 2440  4.0 2540  4.1 4010  5.0 5000  5.1 5010  5.2 5020 ! 5.21 5021 Original SCSI Release ! 5.22 5022 SCSI Update  5.23 5023 SCSI Update  5.24 5240 NS((-ARPA/1000 Release  5.25 5250 SCSI Boot Release % 5.26 5260 C/1000 Release with Debug/1000 %& 5.27 5270 A990 Support, Misc. Enhancements & 6.0 6000 HP 1000 Release                       * 6.0 Communicator/1000 *  1-4 1  & SOFTWARE CHANGES &   Chapter 2 Description of Software Changes  ( This chapter describes the reasons behind the software changes in this (( update. Changes that were initiated by Service Requests filed are listed ( with their SR numbers.  ( The entries are categorized into three types: Problem/Solution, Enhancement, (( and Note. A Problem/Solution entry describes a problem along with the (( actions taken by Hewlett-Packard to fix it. An Enhancement entry similarly (( describes a modification to software that improves its utility or simplicity (( of usage. Finally, a Note contains useful information about a change that (( may impact the user but is not directly related to a software fix or ( enhancement.  ( The products are sorted by their part numbers. For each product, the (( entries are grouped by their affected functional area (if applicable). For (( example, RTE-A has "Bootex" entries first, followed by those of "Build". (( Under each functional area, the entries are further grouped by (( Problem/Solution, Enhancements, then Notes, where the SR numbers are sorted (( numerically. Please see the SR Index for a numerical list of ALL the SR (( numbers. We hope that this format will make the Communicator much easier to ( use.  ( For more information on individual filenames that have changed, please refer ( to chapter 3.       2.1 (24612B) A-Series System and Peripheral Diagnostics      2.1.1 SCSI    SR# 5003078972  ( PROBLEM: The install_diags.cmd command file does not work to create a ( bootable 24612A SCSI DDS diagnostic tape.  & The tape is built successfully, but when booted, it hangs. & ! SOLUTION: This problem has been fixed at the 6.0 release. !    - 6.0 Communicator - $ 2-1 $1  & SOFTWARE CHANGES (24612B) &      2.1.2 VSCSI    SR# 1653006395  ( ENHANCEMENT: A SCSI diagnostic has been added to the 92077A/24398B products, (( !VSCSI. It includes functions similar to those available for ( testing CS/80 devices using EXER.  ( This is needed so mass storage devices can be tested and can (( have the ability to spare bad blocks when connected to the HP ( 1000 via the 12016A SCSI interface.          2.2 (91750A) DS/1000-IV      2.2.1 INSTALLATION    SR# 5003004440  ( PROBLEM: The file *LDDS used /DS as root directory for DS/1000-IV (( relocatables. However, the product tape puts DS/1000-IV ( relocatables on /DS1000.  ( SOLUTION: The file *LDDS was changed so the default root directory for ( DS/1000-IV relocatables is /DS1000.    SR# NONE  ( ENHANCEMENT: DSVCP has been added to DS/1000-IV program loads. Also, DSRTR (! and TRFAS have been changed to load with SZ:+1. !       - 6.0 Communicator -  2-2 1  & SOFTWARE CHANGES (91750A) &   2.2.2 PROGL    SR# 5000179465  ( PROBLEM: PROGL leaves files open. If PROGL is linked with a (( user-written version of the subroutine #DNFL and it is (( servicing multiple download requests with the same file number (( and different system files, it will only close the last file. ( ( SOLUTION: PROGL has been modified to check file names instead of file (( numbers to determine if the system file should be closed on ( completion of a download.      2.2.3 REMAT    SR# NONE  ( PROBLEM: The IO and PL commands in REMAT would send output to the system (( console instead of the terminal REMAT was being executed from. ( ( SOLUTION: REMAT has been modified to check the LU of the terminal where (% REMAT was executing and send this information to APLDR. %     2.2.4 X.25    SR# NONE  ( PROBLEM: The mask used by the DS customizing subroutine, CSV66/CXL66, to (( clear the device type in the EQT/DVT was incorrect. The device (% type is cleared so that it can be set to 66b for DS use. %  SOLUTION: The mask value has been corrected.            - 6.0 Communicator - $ 2-3 $1  & SOFTWARE CHANGES (91751A) &   2.3 (91751A) DSN/X.25 1000      2.3.1 DSN/X.25    SR# NONE  ( PROBLEM: Due to the faster speed of the A990, the LAP-B Card (( configuration read-back completes with a device status error (( (card needs configuration data) when executed just after the ( downloading of configuration data.  ( SOLUTION: The DD*60 driver has been fixed to provide a 20 ms delay; this (( allows the downloading of the card configuration to complete ( properly.    SR# NONE  ( PROBLEM: PAD terminal status bits are not always set properly at linkup ( time.  ( SOLUTION: At 6.0, all PAD terminal status bits are set upon linkup ( indication.    SR# NONE  ( PROBLEM: If X.25/1000 is configured with more VC numbers than the (( network port, the recovery procedure fails. If XNET sends a (( Call on a VC not configured on the network, the DS connect (( request times out before the recovery procedure completes. (( Then DS sends a second connect request which causes a second VC (( table to be allocated to this EQT table, ending up with two VC (( tables linked to the same EQT table. The first VC is still (( waiting for a Clear Conf. The Clear on this VC is retried and, (( after a total of 6 minutes (2 X 3 minutes), a LinkDown (( indication is sent on this LU, causing the activities on the ( second VC to be disrupted.  ( SOLUTION: At 6.0, VC allocation is allowed only if the VC is in state P1. (   SR# NONE  ( ENHANCEMENT: Program portability has been improved. The three words of the (( #X25A table have been moved into VCTR, and #X25A.REL is no (  - 6.0 Communicator -  2-4 1  & SOFTWARE CHANGES (91751A) &  ( longer relocated during the generation. Also, module (( /X25/REL/#X25A.REL,which is no longer used, has been deleted. (       2.4 (91781A) RJE/1000-II      2.4.1 Structure Changes    SR# NONE  ( NOTE: Routine Pas.A1SharedSize has been modified to reflect ID (( segment changes at 6.0. Libraries PASCAL.LIB, PASCAL_CDS.LIB, (! and PASCAL_FMGR.LIB are affected by this change. ! ( PLEASE NOTE that although IMAGE-II (92081A) and RJE-II (91781A) (( have been updated to have the Pascal libraries deleted from (( their product, updates for RJE-II and IMAGE-II will not be sent (( out at 6.0. Since the only change to these products is this (( deletion and the correct version of these libraries is sent out (( (and installed by) the Operating System, we felt that sending ( an "update" would just cause confusion.         2.5 (91790A) NS-ARPA/1000      2.5.1 BSD IPC    SR# 4701113423  (( ( PROBLEM: INPRO aborts with an SR violation error when more than three (( connection requests are queued for a BSD IPC server program. (( This will cause the NS-ARPA subsystem to lock up. If the LAN (( card continues to receive packets, SAM can fill up as well. (  - 6.0 Communicator - $ 2-5 $1  & SOFTWARE CHANGES (91790A) &   The system must be rebooted to recover.  ( When a connection request is received and there are already (( three connection requests queued on a BSD IPC call socket, the (( call socket does not have sufficient memory to store the (( information from the fourth connection request. When this (( happens, Sigmod.IPCConnInd returns without calling (( DS_LeaveCritical. The next call to DS_EnterCritical causes the ( SR violation error.  ( SOLUTION: If three connect requests are already queued on a BSD IPC call (( socket, then new connect requests are ignored. The remote TCP (( will reissue the connect request when no acknowledgement is ( received.    SR# 5003030312  ( PROBLEM: The Fortran, C, and Pascal versions of the BSD IPC example (( programs use different methods to pass data back and forth. (( The C server example does not match the example in the BSD IPC ( manual.  ( SOLUTION: The examples have been rewritten to ensure all three versions (( (C, Pascal, Fortran) are using the same logic to accomplish one ( common goal.      2.5.2 DSCOPY    SR# 5003008466  ( PROBLEM: When a programmatic DSCOPY is run in the system session and a (( user session is logged onto the system console, DSCOPY may (( become buffer limit suspended on LU 1. This occurs even though (( the LL option is set to a file and the SI option is specified. ( ( SOLUTION: DSCOPY will now close the output file only if the output device ( is non-interactive.    SR# NONE  ( PROBLEM: DSCOPY of a multiple file mask produces the wrong filenames if ( the destination files exist. ' SOLUTION: DSCOPY has beenmodified to use the correct filedescriptors. '   - 6.0 Communicator -  2-6 1  & SOFTWARE CHANGES (91790A) &    SR# NONE  ( ENHANCEMENT: Symbolic links are a new feature at the 6.0 release. DSCOPY ( will now support symbolic links.      2.5.3 DSMOD    SR# 1653033076  ( PROBLEM: DSMOD's CN command does not work when used in a transfer file. (' The error message displayed is "/DSMOD: NODE SPEC. ERROR!". ' ( SOLUTION: The error has been corrected. This fix will be included in the ( 6.0 release.      2.5.4 FMTRC    SR# 2200047969  ( ENHANCEMENT: Presently, tracing is only available in octal output. FMTRC (( has been enhanced to output the trace records in octal, (( hexadecimal, or NICE format. The NICE format will parse some (( of the protocols such as TCP and IP into the component fields. (     2.5.5 FTP    SR# 1650165365  ( PROBLEM: An FTP to a VAX running FUSION hangs with both client and (( server in receive state when verbose is off and an open is ( done.  & SOLUTION: FTP has been modified to correctly parse multiple replies. &   SR# 4701067074    - 6.0 Communicator - $ 2-7 $1  & SOFTWARE CHANGES (91790A) &  ( PROBLEM: FTP binary get of a FMGR type 1 file does not transfer extents. ( ( SOLUTION: FTPSV and FTP have been modified to call FmpSize for FMGR ( files.    SR# 4701162040  ( PROBLEM: BINARY type 6 file transfers do not work between 6.0 and ( non-6.0 or non-RTE systems.  ( SOLUTION: Both the source and destination files are now forced to be type (( 1, thus removing the extents. *De-extent the file by using (' force-type-1 on both the source and the *destination files. '   SR# NONE  & PROBLEM: FTP.HELP does not include the -T option in the runstring. &  SOLUTION: This has been fixed in the 6.0 release.    SR# 4701053660  ( ENHANCEMENT: The HP 1000 FTP server reports the file descriptor of the file (% being transferred in the 150 server reply to mget/mput. %   SR# 4701062877  ( ENHANCEMENT: The 5.24 FTP does not calculate the file length for a type 2 (( file and requires that it be specified in the file descriptor. (( FTP will now calculate the size of type 1, 2, or 6 files from (( the number of bytes transferred. 6.0 to 6.0 file transfers ( will also transfer the size.    SR# 5000640045  ( ENHANCEMENT: FTP has been modified to recognize when the FTP server is an HP (( 1000. When FTP knows that the server is an HP 1000, it will (( set the transfer mode to BINARY and transfer the file type, (( size, and record length along with the file. A new user and (( server command, SYSTEM, has been implemented. The server will (% respond with its system type when this command is used. %      - 6.0 Communicator -  2-8 1  & SOFTWARE CHANGES (91790A) &   2.5.6 INETD    SR# 5000621011  ( ENHANCEMENT: INETD has been added to NS-ARPA/1000 and ARPA/1000 to replace (( FTPMN and TNMON. Examples are provided for the configuration (( file, /etc/inetd.conf, and the file that maps service names to (( TCP ports, /etc/services. Usage and features are described in ( the on-line help file.      2.5.7 INITIALIZATION    SR# 4701072702  ( PROBLEM: The command file NSSTART_EZ.CMD incorrectly uses its positional ( variables.  ( NSSTART_EZ.CMD was created by combining the functions that (( previously were in UPNS.CMD, LANSTART.CMD, and RPDEFAULTS.CMD. (( The order for the parameters was changed to put the LAN LU (( first, since it is the only parameter that is never optional. (( The necessary change was not made to the EDIT command on line ( 102 and the CN command on line 111.  ( SOLUTION: The code has been changed to reflect the correct order as ( follows: # nsstart_ez.cmd lan_lu [node_name] [ip_address] #   SR# 4701072710  ( PROBLEM: The command file NSSTART_EZ.CMD does not work correctly. It (( may run EDIT interactively or display the message "No such file ( USAGE" or "No such file START".  ( SOLUTION: There is an error in the IF command on line 81. An "IS" is ( missing.   Line 81 has been changed, from:  "IF $NS_TEMP = EDIT"  to:  "IF IS $NS_TEMP = EDIT".     - 6.0 Communicator - $ 2-9 $1  & SOFTWARE CHANGES (91790A) &   SR# 4701072736  ( PROBLEM: The command file NSSTART_EZ.CMD fails when attempting to edit (( the file /system/nsfile.nsin. The edit command on line 102 of (( NSSTART_EZ.CMD is incorrect. The comma should be a vertical ( bar, "|".  ( In addition, when the edit command is executed, the file (( nsfile.nsin does not exist; therefore, the edit command must (( perform an exit and create (ec) instead of exit and replace ( (er).  ( SOLUTION: The file has been changed to modify the example default file (( and edit the node_name, ip_address, lan_lu, then exit and ((( create the nsfile.nsin.    SR# 4701050328 SR# 5000637967  ( PROBLEM: NSINIT/NETINIT will not accept responses which begin with /D or ( /E for questions which require a filename.  ( SOLUTION: NSINIT/NETINIT has been modified to accept responses beginning (( with /D or /E that contain more than 2 characters when ( prompting for a filename.    SR# 1653001230  ( ENHANCEMENT: The default number of networking programs and sockets has been (( increased from 13 and 38 to 23 and 68, respectively. The (( default is adjusted to be higher if NFT is used in an NS-ARPA (( system. This will allow more TELNET and FTP connections in an ( ARPA/1000 system.      2.5.8 INPRO    SR# 4701116749  ( PROBLEM: A bug in the A900 microcode (SR #4701-115980) can cause (( unpredictable behavior in INPRO. In one case, INPRO aborted (( due to an UI error. The A900 microcode bug causes instructions (( to be fetched from data space when CDS is on and interrupts are (( off. INPRO turns off interrupts while reading and updating its (( timer counter, NS_OS3. The effect depends on what is in the (  - 6.0 Communicator -  2-10 1  & SOFTWARE CHANGES (91790A) &   data space.  ( SOLUTION: INPRO has been modified so that the section which turns (( interrupts off (CLC 4 ... STC 4) is now non-CDS. This will ( avoid the bug in the A900 microcode.      2.5.9 INSTALLATION    SR# 4701109009  ( ENHANCEMENT: NS-ARPA and ARPA programs are now transportable between systems (( running the same version of RTE-A and networking software. (( This was accomplished by eliminating the use of (( non-transportable system entry points by the networking (( software. As part of this change, the networking modules that (( are generated into the system have been modified. NSPEC is no (( longer needed. NSABP is now partitionable. It is no longer (( necessary to search NSLIB for the DSGLO module during RTAGN's ( system relocation phase.      2.5.10 IPCLookup    SR# 1653025221  ( PROBLEM: IPCLookup ignores the retry count variable and hangs when the (( destination node doesn't exist. The retry count was not (( checked against the maximum value; instead, the maximum timeout ( was checked.  ( SOLUTION: The retry count is now checked and, if it is exceeded, an error ( will be returned.      2.5.11 PING    SR# 1653001461  ( PROBLEM: PING does not return all socket resources if the user issues (( the BREAK command before PING has a chance to report that the (  - 6.0 Communicator - $ 2-11 $1  & SOFTWARE CHANGES (91790A) &  ( given host is unreachable. In this case, only one socket out (( of the required two sockets will be freed. The other one will ( never be freed.  ( SOLUTION: PING will now reset the state of the socket before it (% terminates. This will allow the socket to be released. %     2.5.12 REMAT    SR# NONE  ( PROBLEM: IO and PL commands in REMAT would send output to the system (( console instead of the terminal REMAT was being executed from. ( ( SOLUTION: REMAT was modified to check the LU of the terminal where REMAT (" was executing, and send this information to APLDR. "     2.5.13 TCP    SR# 4701126581  ( PROBLEM: Sockets created by programs using BSD IPC sometimes do not get (% cleaned up after the program calls shutdown and aborts. % ( SOLUTION: A timer is now set when a connection is in the FIN WAIT-2 state ( and the user's program has terminated.      2.5.14 TELNET    SR# 5000603407  ( PROBLEM: TELNET does not act correctly following a close command. If (( TELNET is given a hostname in its runstring, it should (( terminate after a close command, but it doesn't. If an invalid (( command is entered following the close, TELNET will display the (( Unknown Command message twice and then terminate. When this (( happens, the terminal port configuration does not get restored. (   - 6.0 Communicator -  2-12 1  & SOFTWARE CHANGES (91790A) &  ( SOLUTION: TELNET's close command processing has been fixed. If a (( hostname is given in the runstring, the close command will (( terminate TELNET. When no hostname is specified in the (( runstring, TELNET will remain in command mode following a close (( command. Subsequent commands, valid and invalid, are now ( processed correctly.    SR# 5003030858  ( PROBLEM: The port protocol on a TELNET pseudo terminal LU cannot be set (( to HP-XON/XOFF. A CN,LU,34b,3 command will cause the following ( error message:  ! I/O device error on LU xx The reason is: ! I/O request error  Request has been flushed  ( SOLUTION: TNSRV no longer rejects any control requests with function code (( 34b. TNSRV only needs to know whether it should send the DC1 (( on a read request, so it just checks bit 1 of the protocol word (( to determine if HP protocol is being used. It is left up to (# the drivers to determine if any request is illegal. #       2.6 (92050A) Datapair/1000      2.6.1 SCSI Support    SR# NONE  ' NOTE: SCSI disk type (30B) is now supported on a Datapair system. '            - 6.0 Communicator - $ 2-13 $1  & SOFTWARE CHANGES (92077A) &   2.7 (92077A) RTE-A Operating System      2.7.1 APLDR    SR# 4701009985  ( PROBLEM: APLDR loads CDS programs with multiple code segments; however, ($ when the program executes, it gets CS06 or MP errors. $  SOLUTION: This has been fixed for the 6.0 release.     SR# 4700926014  ( ENHANCEMENT: As of the 6.0 release, APLDR can now write to LUs greater than ( 63.        2.7.2 BOOTEX    SR# 4701094318  ( PROBLEM: The BOOTEX command "SA", which sets the size of SAM and/or XSAM (( during a "slow boot", does not properly check for memory (( overflow when SAM and XSAM are distinct (as opposed to when SAM (( and XSAM are allocated from the same memory pool). BOOTEX (( neglects to add the size of XSAM to the total size of the (( system so far and therefore can incorrectly allow a command to ($ allocate more memory than is available in the system. $ $ SOLUTION: BOOTEX properly computes the SAM and XSAM size at 6.0. $    SR# 5000493106  ( PROBLEM: If a user attempts to build the SWAP file on a cartridge (( without enough continuous free space, an infinite loop of error (( messages will begin. The error message is "Ran out of disc (( space, reducing SW file size by half". The problem occurs on a (  - 6.0 Communicator -  2-14 1  & SOFTWARE CHANGES (92077A) &   system using the 5.1 version of BOOTEX.   SOLUTION: This has been fixed for the 6.0 release.     SR# 5000611590  ( PROBLEM: When booting a Datapair system and the Info files are (! inconsistent, BOOTEX asks, "C((ontinue with which?" ! ( The answer to this question is not intuitively obvious, unless ( the user has the manual.   SOLUTION: At 6.0, the message will be now displayed as:  # Continue with which (0-exit,1-primary,2-secondary)? #      2.7.3 CALLS UTILITY    SR# NONE  ( PROBLEM: The Calls utility doesn't send some output and prompts to the (( redirected LU when the "-L" runstring option is used. (( Debug/1000 uses this feature when its "+L:lu" runstring option ( is used.  ( SOLUTION: If the Calls "-L" option argument names an interactive LU or a (( symbolic link to an interactive LU, all menus and prompts will (( be redirected to that LU. Otherwise, these prompts are issued ( to the scheduling terminal.     SR# NONE  ( NOTE: The Calls utility, which performs online text display by (( keywords, is fully supported at 6.0. This utility was provided (( at 5.2 for use by Mail/1000 online help, but was not fully (( documented. At 6.0, online help and manual information is (( furnished. The CallM utility, which can be used to generate (( compressed input files for Calls, is also provided. These (( utilities are the RTE-A equivalents of the GENIX/CMD/HELP ( utilities on RTE-6/VM.    - 6.0 Communicator - $ 2-15 $1  & SOFTWARE CHANGES (92077A) &      2.7.4 CI    SR# 5000616581  ( PROBLEM: CI is interpreting WHILE in an echo command as if it were the (( beginning of a WHILE-DO-DONE control. For example, an error is ( produced by including:   echo `error while creating file`   in a command file within a WHILE structure.  ( SOLUTION: As of 6.0, CI once again correctly handles the quoted `while`. (    SR# 5003008094  ( PROBLEM: CN,1,20b and CN,1,21b enable and disable the local terminal, ( not the system console.  ( SOLUTION: The system console can now be enabled or disabled by using the ( commands CN,100001b,20b or CN,100001b,21b.     SR# 4700979310  ( ENHANCEMENT: When a program is RPed with the 'C' (clone) option, it is not (( obvious from documentation whether a permanent or temporary ID ( segment will be created.  ( Actually, if an RP is done without any options, it defaults to (( 'P', a permanent ID segment. However, if any option is given, (( the default becomes 'T', a temporary ID segment. To get a ($ clone with a permanent ID segment, the command must be: $  CI> RP,io.run,bla,cp  ( Both the RTE-A User's Manual (92077-90002) and the on-line help (& file (RP.HELP) will be changed to clarify this situation. &     SR# 5000651034   - 6.0 Communicator -  2-16 1  & SOFTWARE CHANGES (92077A) &   ' ENHANCEMENT: An online help file is now provided for the CI POLL command. '      2.7.5 CI UTILITIES    SR# 5003050799  ( ENHANCEMENT: For revision 6.0, CI will have a new, internal variable $DATC. (( This variable will provide the user with a quick answer to the (( question, "Which revision of RTE am I running?". CI will set ( it at start-up.        2.7.6 CS/80    SR# 1650009308  ( PROBLEM: XUTIL does not pass a negative number for the message buffer ( length.   SOLUTION: This has been fixed in the 6.0 release.      SR# 1650120865  ( PROBLEM: There is a problem setting the device timeout value for DD*33. (( If the user attempts to use the CN lu 26b command with a ($ timeout value of 500, the system reports the following: $  CI> cn 22 26b 500 -1 " I/O device error on lu 22 The reason is: " I/O request error  Request has been flushed  Bad parameter  ( If a timeout value of 502 is used, then the call works as it ( should.    - 6.0 Communicator - $ 2-17 $1  & SOFTWARE CHANGES (92077A) &   SOLUTION: This has been fixed for the 6.0 release.     SR# 2200047894  ( ENHANCEMENT: An enhancement has been made to the CN commands so users can (( change the track map information in the DVT for a disk device. ( ( The 'CN lu 76b' command can be used to change the track map ( information in the DVT.     SR# 5003065771  ( ENHANCEMENT: The CS/80 error parameter area is now displayed in decimal ( representation.       2.7.7 CSYS    SR# 1650038414  ( ENHANCEMENT: At revision 6.0, CSYS will work with CTD LUs greater than 63. (     SR# 1650098244  ( ENHANCEMENT: At revision 6.0, CSYS will write larger records to the CTD. ($ This results in a substantial performance improvement. $       2.7.8 D.RTR    SR# 4700921650  ( ENHANCEMENT: At revision 6.0, the CDS version of D.RTR can be configured at (( link time to issue a 40b request to the SCSI driver every time (  - 6.0 Communicator -  2-18 1  & SOFTWARE CHANGES (92077A) &  ( a SCSI disk LU is mounted. D.RTR will also send a 41b request (' to the SCSI driver every time a SCSI disk LU is dismounted. '    SR# 4701069450  ( ENHANCEMENT: At revision 6.0, the CDS version of D.RTR will compare the (( number of blocks/bit in the volume header against the (( blocks/bit calculated for the size of the disk being mounted. (( D.RTR will not mount volumes which do not have the correct ( information in the volume header.     SR# 5000581496  ( ENHANCEMENT: With revision 6.0 of the RTE-A product, the user may use the (( CDS version of D.RTR. The CDS version of D.RTR doubles the (' capacity of the open file table and global directory table. '      2.7.9 DD*24    SR# 1650149104  ( ENHANCEMENT: DD*24 now permits a maximum buffer length of 32 KBytes on read (( requests, instead of the 16 KByte limit which is imposed by the ( 5.2 driver.        2.7.10 DRIVERS    SR# 5003012401  ( PROBLEM: When using FST to backup large files (6-30 Mbytes) to a 9145 (( 32-track tape drive, the tape drive LU intermittently times out (( if a timeout value of 500 tics is set (the default). Setting (( the timeout to 12000 tics (2 minutes) appears to eliminate the ( problem.    - 6.0 Communicator - $ 2-19 $1  & SOFTWARE CHANGES (92077A) &  ( The default timeout for the 32 track tape should be changed (( from 500 to some greater value that will keep FST from ( timing-out when backing up large data files.  ( SOLUTION: The default timeout value for the 9145 drive is now 20 seconds. (    SR# NONE  ( NOTE: Gen records for the 650/A magneto-optical (MO) disk drives have (( been added to define the entire surface as a single disk LU. (( The two new gen records, M650A_1 and M650A_3, are described ( below: & Driver Entry TX DX QU BL PR TO DT & point  ' DDQ30 DDQ30 20(( 8 FI UN 0 2500 30B '+ --------------------------------------------------------------------- + Model DP  650/A with 92279A media (512 byte sectors) + --------------------------------------------------------------------- +& M650A_1 2:0 0 0 0 17925 64 100001b & + --------------------------------------------------------------------- + 650/A with 92280A media (1024 byte sectors) + --------------------------------------------------------------------- +& M650A_3 2:0 0 0 0 19660 64 100003b &      2.7.11 EDIT    SR# 1650173021  ( PROBLEM: Edit/1000 revision 5.2 disables an RTE-A terminal's secondary (( program scheduling after screen-mode is used, if it was enabled (( before the screen mode and the secondary program is not (& "HPMDM". This happens only with the D MUX serial drivers. &  SOLUTION: This has been fixed for the 6.0 release.     SR# 1653022194    - 6.0 Communicator -  2-20 1  & SOFTWARE CHANGES (92077A) &  ( PROBLEM: Edit/1000 displays a password at the bottom of the screen in ( screen mode if DS file transparency is used.  ( SOLUTION: Edit now removes the password and file security code when it (( displays the source file name on the screen mode bottom line, (( in response to the SH (show) and ?? (one line status) (( commands, and it the "closed file" message. It will display (( the password during the "Opened file" message, and "Created (( file" message if the create is deferred to the "ER" or first (( "WR" command, and on any source file read or write error ( message.  ( Edit will continue to display the password in messages for ( files other than the source file.       2.7.12 FMGR    SR# 5003032201  ( PROBLEM: Adding a trailing comma to the TM command from FMGR sets the ( system clock to an incorrect value.   SOLUTION: This has been fixed for the 6.0 release.       2.7.13 FMP    SR# 1650171009  ( PROBLEM: The UDSP search does not work correctly if one of the search ( paths is a read-protected directory.  ( SOLUTION: At revision 6.0, the UDSP search for a file will skip any ( directories that are read-protected.     SR# 4700977256  ( PROBLEM: FmpCopy can create illegal filenames when the 'D' option is (( used. When the 'D' option is used, FmpCopy creates a 13 (  - 6.0 Communicator - $ 2-21 $1  & SOFTWARE CHANGES (92077A) &  ( character temporary filename to use for the copy function. (( After a successful copy, the original dest file is purged and (( the temp copy is renamed to the dest name. If the original (( name is less than 13 characters and the full path is long, (( using the 13 character filename may cause the length of the ( full path to exceed 63 characters.  ( SOLUTION: At revison 6.0, FmpCopy will attempt to create temporary (( filenames at the same length as the orignal destination ( filename.     SR# 4701112342  ( PROBLEM: FmpRunProgram can fail with a false error condition when the (( calling program's ID segment address happens to be the same as (( the value of ASCII characters in the 19th and 20th characters ( of a runstring.  ( SOLUTION: FmpRpProgram will now clear word 10 of the dcb before calling ( FmpOpen.     SR# 5000036608  ( PROBLEM: FMPCOPY fails when the buffer length is 16416 words or more. (( For large files (1000 blocks or more), only one block is copied (( with a bad EOF. Small files usually work OK. All copy (( operations work correctly if the buffer size is less than 16416 ( words.  ( SOLUTION: At revision 6.0, FmpCopy will cap the transfer length at 16k ( words.     SR# 5000126987  ( PROBLEM: The CLOSE utility is loaded with a load command file named (( #CLSDS, and its relocatable is %CLSDS. This is not documented ( anywhere.  ( SOLUTION: At revision 6.0, the relocatable for the close utility is in (( the file "close.rel". The link command file is named ( "close.lod".      - 6.0 Communicator -  2-22 1  & SOFTWARE CHANGES (92077A) &    SR# 1650029629  ( ENHANCEMENT: At revision 6.0, FmpOwner will use the 'Q' option when it opens ( a directory to determine ownership.     SR# 2200027656  ( ENHANCEMENT: The WD command will now accept a trailing slash on the ( directory name.     SR# 4701149682  ( ENHANCEMENT: At revision 6.0, FmpCopy has been enhanced to make better use (( of the buffer that is passed to it when performing I/O to or (( from a device. Prior to this revision, FmpCopy truncated (( records to or from devices at 256 bytes. When copying from a (( device to a device or from a device to a type 1 file, the (( maximum record size will be dependent on the size of the buffer ( passed to FmpCopy.  ( Also at revision 6.0, the CDS version FmpCopy has been enhanced (( to set the streaming bit when the destination device is a (( streaming tape drive. After writing the EOF, a dynamic status ($ request is sent to the device to check for any errors. $      2.7.14 FMP LIBRARIES    SR# 4701103234  ( PROBLEM: The RexBuildPattern routine incorrectly rejects some valid (( regular expressions. When an end of a class ']' is the last (( character of the expression, RexBuildPattern rejects the ( expression as illegal.   SOLUTION: This has been fixed for the 6.0 release.        - 6.0 Communicator - $ 2-23 $1  & SOFTWARE CHANGES (92077A) &   2.7.15 FORMC    SR# 5000588889  ( ENHANCEMENT: At the 6.0 release, FORMC will no longer check a user's (( capability level if the 'FO' command is used to format ( floppies.        2.7.16 FREES    SR# 4700983270  ( PROBLEM: The FREES command gives an incorrect output with the +M option ( (output in MB).   SOLUTION: This has been fixed in the 6.0 release.      SR# NONE  ( NOTE: The +Q option has been added at 6.0 to return status from the ( FREES program to the father program.       2.7.17 FST    SR# 1650121053  ( PROBLEM: When running FST from a read-protected command file, FST aborts ( but does not set the $RETURN1 variable.   SOLUTION: This has been fixed at the 6.0 release.     SR# 2200039222    - 6.0 Communicator -  2-24 1  & SOFTWARE CHANGES (92077A) &  ( PROBLEM: If the scratch file is created in the default style and placed (( in /SCRATCH/, and the working directory is /SCRATCH/, then a (% backup file mask of '@' will include FST's scratch file. % ( SOLUTION: FST will now check the directory address of the scratch file so ( it will not select its own scratch file.     SR# 4701041053  ( PROBLEM: When restoring a TAR file with FST, FST tries to restore the ($ './' and '../' entries ((when they exist on a TAR tape. $  SOLUTION: This has been fixed at the 6.0 release.     SR# 4701042705  ( PROBLEM: To restore any files from a FST backup, FST must first be able (( to restore the entire directory file from the archive. For (( large FST backups on a DAT tape, this can easily require more ( than 100,000 free disk blocks.  ( SOLUTION: For revision 6.0, the MinDir option has been added to FST. (( This allows FST to create a minimum-sized directory file (' containing information for only those files being restored. '    SR# 4701147256  ( PROBLEM: FST can create and verify tapes which cannot be read by FST (( after the backup. The problem only occurs when FST crosses a (( tape boundary, the YES option is not used, and the tape being (( overwritten was not previously written by FST or TF. Also, ( this does not happen with CTD tapes.   SOLUTION: This has been fixed for the 6.0 release.     SR# 4701148379  ( PROBLEM: FST does not restore a file that crosses a tape boundary when (( the DUP and VERIFY options are set and the file being restored ( already exists.   SOLUTION: This has been fixed for the 6.0 release.   - 6.0 Communicator - $ 2-25 $1  & SOFTWARE CHANGES (92077A) &    SR# 5000563726  ( PROBLEM: The error "Clearing selections for TF restore" is produced when (( attempting to unselect files that were previously selected for (( FST backup. The error occurs if the tape that is loaded is a (( TF format tape and the tape header has been read prior to (( selecting the files for backup. When the message is output, (" the UN command fails to clear the selected files. "  SOLUTION: This has been fixed in the 6.0 release.     SR# 5000579656  ( PROBLEM: FST builds an incorrect destination filename for FMGR files ( when the destination mask is a FMGR LU.   SOLUTION: This has been fixed for the 6.0 release.     SR# 1650069294  ( ENHANCEMENT: At revision 6.0 of RTE-A, the 'RwndOff' option was added to (( FST. This will cause FST to take the media offline upon exit. ( (This will cause CTD tapes to unload.)     SR# 1650170860  ( ENHANCEMENT: At 6.0, FST will abort non-interactive executions when a single ($ 'BA' command yields mulitple files with the same name. $    SR# 1653010611  ( ENHANCEMENT: At revision 6.0, FST will backup remote files which are already (( open in shared mode. FST is not able to backup remote files ( which are open in exclusive mode.     SR# 2200040766  ( ENHANCEMENT: At revision 6.0 when restoring an FST tape, FST will create the (" FST directory file to be the exact size required. "  - 6.0 Communicator -  2-26 1  & SOFTWARE CHANGES (92077A) &    SR# 2200040774  ( ENHANCEMENT: When FST restores a binary file from a tar archive, the final ( block will be padded with nulls.     SR# 2200041558  ( ENHANCEMENT: At 6.0, FST will check the break flag between forward file ( commands.     SR# 4701036509  ( ENHANCEMENT: At revision 6.0, FST will only require the node to be specified (( when selecting files to be restored from a backup. Prior to (' 6.0, FST required both the node and the account information. '    SR# 4701043992  ( ENHANCEMENT: At revision 6.0, FST was enhanced to read a start-up command (( file. This can be used to set up defaults for many of FST's ( commands.     SR# 5000158444  ( ENHANCEMENT: At revision 6.0, FST will allow the FST directory file to be (" located on a remote system using DS transparency. "    SR# 5000159152  ( ENHANCEMENT: At revision 6.0, FST has an "Inhibit" option that will cause (( FST to inhibit the rewind between backup operations. FST will ( still rewind the tape upon exit.      SR# 5000181719  ( ENHANCEMENT: The Z option was added to FST at revision 6.0. This option (  - 6.0 Communicator - $ 2-27 $1  & SOFTWARE CHANGES (92077A) &  ( will cause FST to pause when disk-full errors are encountered. (    SR# 5000212670  ( ENHANCEMENT: At revision 6.0, FST will allow the "Verify" option to be (( disabled after the "Clear" backup bit option has been set. (( This will cause FST to clear the backup bit of every file which (% was backed-up, without verifying the archive's contents. %       2.7.18 GENERATOR    SR# 1650021733  ( PROBLEM: RTAGN ignores the size specified for the snap file, eg. (% snp::::120. This means that extents are always created. %  SOLUTION: This has been fixed at the 6.0 release.     SR# 1650140574  ( PROBLEM: The generator does not allow the maximum buffer limits to be (( specified, and this causes an error during the DVT definition (( phase. For example, the following statement will cause an ( error:  % Dvt,/Rte_A/ddc00.rel,MHP_Printer:4,lu:24,BL:BU:4080:6112 %  SOLUTION: This has been fixed for the 6.0 release.     SR# 2200032466  ( PROBLEM: Generating X.25 into an A-series can cause the generation to (( fail. DDX00.rel contains a "PS" indicating pseudo driver. (( This works fine for the IFT statement but causes the DVT (( statement to return an error. Since the same relocatable is (( used for the IFT and DVT statement, the generator needs to ( ignore the "PS" for the DVT.    - 6.0 Communicator -  2-28 1  & SOFTWARE CHANGES (92077A) &   SOLUTION: This has been fixed for the 6.0 release.     SR# 2200033845  ( PROBLEM: If there is a comma at the end of the line in the IFT (( specification statement when using RTAGN, the generator may (( either parse the line correctly, or it may report a parameter (( error, depending on whether the line has an even or odd number ( of characters.   SOLUTION: This has been fixed for the 6.0 release.     SR# 2200045070  ( PROBLEM: RTAGN puts a default device type of 70 in the low order bits ( (0-5) of DVT6 instead of in bits 8-13.  ( SOLUTION: Because some software was depending on a device type of 0b, (( RTAGN now uses 0b as the default and puts it in bits 8-13 of (( DVT6. The RTE-A System Generation and Installation Manual now ( says the default device type is 0b.     SR# 5000084723  ( PROBLEM: RTAGN gives the wrong error count if a 'DI' command is placed ( in the wrong spot in the answer file.   SOLUTION: This has been fixed for the 6.0 release.     SR# 5000141796  ( PROBLEM: RTAGN only overlays the list, snap, and system file if the file (( descriptor, as opposed to the file name, begins with an (( apostrophe (') or caret (^). Thus, you can only overlay an (( existing file if the file is in your current working directory (( or in a global directory. Note that /GLOBAL/^FILE works (& because RTAGN manipulates it internally as ^FILE::GLOBAL. &  SOLUTION: This has been fixed for the 6.0 release.      - 6.0 Communicator - $ 2-29 $1  & SOFTWARE CHANGES (92077A) &   SR# 2200047563  ( (( ENHANCEMENT: RTAGN has been enhanced to treat 0 words of XSAM the same way ( it treats a null specification for XSAM.      SR# 4701112995  ( ENHANCEMENT: The default size for the system file was too small. It has now ( been increased to 1024 blocks.     SR# 5000264465  ( ENHANCEMENT: At 6.0, the generator will now report the number of available ( words in the system area that were not used.       2.7.19 HPCRT    SR# 4700970830  ( PROBLEM: The HpCrtStatus routine does not work properly. Either it MPs (( or else the status buffer contents are incorrect. The problem (' was that a temporary buffer was not being passed correctly. '  SOLUTION: This has been fixed in the 6.0 release.     SR# 4701148296  ( PROBLEM: All the HpZ input routines work on the principle of parsing (( information from the previously declared input buffer at the (( 'current position', which is maintained in a global variable (( called HpZIbufPos. As each routine executes, it is supposed to (( update 'current position' upon exit so that a succeeding (( routine can parse the next piece of information from the ( buffer.  ( HpZHexI does not do this correctly in all cases. The problem (( is that the position varies depending upon how the routine (( terminated. For example, given the call 'HpZHexI(number,4)' to (  - 6.0 Communicator -  2-30 1  & SOFTWARE CHANGES (92077A) &  ( parse up to four hex characters, if the current position in an (( input line of 'ru,foo, 00FF,AB' points to the blank, it will be (( left pointing to the following comma upon return. This is (( correct behavior. If we give it an input line of 'ru,foo, (( FF,AB' instead, with the current position again at the blank, (( upon exit the pointer will be pointing to the 'A'. This is (( incorrect behavior resulting from the parse terminating on (( condition rather than on count. HpZHexI is defined as (( returning 'true' if no number was parsed. This also does not (( work in all cases. The input buffer 'ru,foo, X' with an (( initial position pointing to the blank should return 'true' (' because 'X' is not a legal hexadecimal digit. It does not. '  SOLUTION: This has been fixed in the 6.0 release.     SR# 5000527044  ( PROBLEM: The HpCrtReadChar routine does not set BIT 15 in the variable (( STATUS after a successful call, as indicated in the ( Relocatables Manual.   The same defect exists in HpCrtXReadChar.  ( SOLUTION: HpCrtReadChar and HpCrtXReadChar have both been fixed to set (# the sign bit of the status word on a normal return. #    SR# 5003039347  ( PROBLEM: On an RTE-A 5.2 system, the return from an HPCrtQTDPort7 call (( is lu=0. On RTE-A 5.16, the value was 32767. Both of these ( are incorrect.  ( There are really two problems. The first is that there was a (( defect in the code when it was calculating an IFT offset. The (( second problem is that it wasn't documented that the (( Port_0_to_6_LU had to be configured as a modem port (bit 13 set (( when it was initialized with CN 30B) in order for the function ( to work. ' SOLUTION: The code and the manual have been fixed for the 6.0 release. '         - 6.0 Communicator - $ 2-31 $1  & SOFTWARE CHANGES (92077A) &   2.7.20 HPMDM    SR# 1650157107  ( PROBLEM: Both the documentation on HPMDM in the RTE-A Driver Reference (( Manual and HPMDM's on-line help specify the command to select (( XON/XOFF protocol for a port as "HA=XX". However, the source (" file HPMDM.FTN as supplied actually uses "HA=XO". " SOLUTION: This has been fixed for the 6.0 release.      SR# 4701066613  ( PROBLEM: RTEA2.CMD says that the documentation for HPMDM is in the (( Utilities Manual. This is not correct; the documentation is in ( the Driver Reference Manual.   SOLUTION: This has been fixed for the 6.0 release.      SR# 5000479840  ( PROBLEM: HPMDM can hang in the HpMdmKill subroutine trying to "OF" a (% program which has locked the session LU passed to HPMDM. %  SOLUTION: This has been fixed for the 6.0 release.      SR# 5003007906  " PROBLEM: HPMDM prints excess characters to the log device. "  SOLUTION: This has been fixed for the 6.0 release.      SR# 5000398511  ( ENHANCEMENT: At revision 6.0, HPMDM will not display a message for LUs which ( are not in the HPMDM control block.     - 6.0 Communicator -  2-32 1  & SOFTWARE CHANGES (92077A) &    SR# 5003054148  ( ENHANCEMENT: At revision 6.0, the source for callb.ftn will include ( instructions for linking the program.        2.7.21 I/O    SR# 4701160457  ( PROBLEM: Powerfail on revision 5270 is not robust enough for repeated (( powerfails. This can be duplicated easily on systems with SCSI (! disks. Symptoms vary, from UI errors to halts. !   SOLUTION: This has been fixed at the 6.0 release.       2.7.22 ID*52    SR# 4701067108  ( PROBLEM: A-Series CPU-CPU communications using ID*52 and the 12006A PIC (( card, as shipped, do not work. The problem is that ID*52 (( forces DVCMD to be pulsed at ~227 nsec; however, the filter on ( the PIC card filters out signals<525 nsec.  ( SOLUTION: This problem has been fixed at 6.0 by adding control requests (( to ID*52. This gives users the option to use either pulse mode ( or level mode DVCMD.        2.7.23 INSTALLATION    SR# 5003014449   - 6.0 Communicator - $ 2-33 $1  & SOFTWARE CHANGES (92077A) &   & PROBLEM: FPUT to floppies requires a timeout greater than 500 tics. & ( SOLUTION: The default timeout value for floppy drives is now changed to 7 ( seconds.     SR# 5003064311  ( PROBLEM: The file IMAGE6.CMD does not copy the library SHSLB.LIB to the (( libraries directory before it attempts linking the IMAGE (( programs. Some of the programs reference this library (( explicitly in order to resolve some undefined externals. These (( undefined externals can also be satisfied from other libraries, ( however the size of the programs increases.  ( SOLUTION: Both rtea1.cmd (for RTE-A) and inci.cmd (for RTE-6) have been (( updated to copy the SHSLB.LIB file to the proper destination ( library.        2.7.24 INSTL    SR# 4701076653  ( PROBLEM: At revision 5.27, INSTL option 'N' doesn't set the consoleless ( flag in BOOTEX.   SOLUTION: This has been fixed for the 6.0 release.      SR# 5003017830  ( ENHANCEMENT: INSTL can now enable CS/80 timeout retry by setting option = ( 'E'.          - 6.0 Communicator -  2-34 1  & SOFTWARE CHANGES (92077A) &   2.7.25 LI    SR# 4700983098  ( PROBLEM: If the 5.2 LI is loaded as a non-EMA/VMA program, as per the ( instructions in the .LOD file, then the message ' (( LI: Insufficient free memory for record buffer; size LI up '  is always reported.  ( SOLUTION: LI now reports this message only if there really is ( insufficient free memory.      SR# 4700983502  ( PROBLEM: If the directory information specifying the number of records (( for a file being listed by LI is incorrect or not up-to-date, (( LI quits listing the file at the number of records given by the (( out-of-date directory entry instead of continuing onward. A (( record count of zero is properly ignored, but there remains a (( problem for files which are kept open and appended to without (( updating the directory info, such as /SYSTEM/NS_EVENT.LOG of (( NS-ARPA/1000. Files updated by programs which did not properly (( close the file (e.g., were aborted) may also exhibit this (( behavior. LI should not blindly trust the directory but (( instead verify that there are no more records past the ( advertised limit.  ( SOLUTION: LI now uses the directory's notion of the end-of-file up until (( that EOF point is reached, at which time LI checks to see if an (( EOF mark is actually read. If not, LI stops claiming that it (( knows the EOF position and will read through the file to find (% the true EOF mark if necessary (as for the "$" command). %     SR# 4700984773  ( PROBLEM: The LI program should check the BReak flag while performing (! "find-all" pattern searches via the "@" command. ! ( SOLUTION: LI now checks the BReak flag and exits the pattern search if ( set.    - 6.0 Communicator - $ 2-35 $1  & SOFTWARE CHANGES (92077A) &      2.7.26 LIF    SR# 4701013235  # PROBLEM: LIF hangs in an infinite loop in the IADDR routine. #  SOLUTION: This has been fixed at the 6.0 release.        2.7.27 LINK    SR# 5000593343  ( PROBLEM: The Link NA command no longer works at 5.2. It may cause an MP ( violation or other unpredictable results.   SOLUTION: The NA command now works as expected.     SR# 1650135145  ( ENHANCEMENT: Link will no longer generate the "Warning: File not indexed" (( message when the MS (Multiple Search) command is used, as the ( warning is inappropriate in this case.     SR# 2200041780  ( ENHANCEMENT: At 6.0, Link will recognize NLS relocatable catalog file names (( in the runstring as files to be relocated. The type extension (( must contain "R" as the first character, followed by 3 digits, ( i.e., TEAL.R000.     SR# 5000220517  ( ENHANCEMENT: At 6.0, LINK will include the sharable EMA label, if any, in (% the summary of information at the end of the .map file. %  - 6.0 Communicator -  2-36 1  & SOFTWARE CHANGES (92077A) &      2.7.28 MACRO    SR# 1650101089  ( PROBLEM: The macro &CDSONOFF incorrectly generates a PCAL type 1 calling ( sequence; it should generate type 0.  ( SOLUTION: At 6.0, the &CDSONOFF library was changed to use pcal 0 calls. (    SR# 2200040956  ( PROBLEM: When MACRO is run to build a MACRO library and a 'table' is (( requested, the table lines are 1 character too short if the (( MACRO name is an odd number of characters. (The control ( statement used here is MACRO,M,T.)   SOLUTION: This has been fixed in ¯6 at revision 6.0.      SR# 2200040972  ( PROBLEM: If a MACRO library is built with a macro by the name of 'DATA', (( MACRO will fail when the library is referenced with a "DCB not ( open" error on the source file.  ( SOLUTION: This problem is fixed at 6.0. The MACRO opcode tables now all (( come from the same table source code so they will always be (( consistent. Further, an internel revision flag is kept with (( the table and is put in each MACRO library. If they mismatch, ( an error is generated.  ( The error is cleared by reprocessing the MACRO library with a ( special new option in MACRO.      SR# 2200047845  ( PROBLEM: If the file /libraries/$maclb.mlb is corrupted, running MACRO (( on prog.mac will result in the error message, "Illegal file (( position PROG.MAC" instead of any message pointing to the (  - 6.0 Communicator - $ 2-37 $1  & SOFTWARE CHANGES (92077A) &   library.   SOLUTION: This has been fixed for the 6.0 release.      SR# 5000125724  ( PROBLEM: The MACRO/1000 Manual does not document the limit on the number (( of labels in a MACRO program. However, the real problem is (( that MACRO mismanages its symbol table space and, as a result, ( fails to handle as many symbols as it should.   SOLUTION: This has been corrected for the 6.0 release.      SR# 5000151662  ( PROBLEM: MACRO emits line number information for include files. DEBUG (& thinks these are main file line numbers and gets confused. & ( SOLUTION: At 6.0, Macro will process include files such that each (( module's DEBUG information will be complete if all code in that (( module comes from the same file as the Nam record. As a (( result, entire modules may be in include files without losing (( debug information. The DEBUG interface does not allow (( switching files within a module, so DEBUG information that (( would come from a file other than the Nam record will not be ( generated.      SR# 5000275271  ( PROBLEM: When compiling MACRO source which compiled correctly on (( revision 2540, error 217 (Incomplete expression in operand (( files) or error 290 (Not enough parameters in microcode call) ( occur.   SOLUTION: This has been fixed for the 6.0 release.      SR# NONE    - 6.0 Communicator -  2-38 1  & SOFTWARE CHANGES (92077A) &   ENHANCEMENT: The SEXT opcode was added to MACRO.   Soft EXT op code: SEXT foo  % foo may be defined locally but if not %& is external. CALL can make the routine &% external while still allowing it to be % defined locally.     SR# NONE  ( NOTE: MACRO was changed to allow the symbol table to be put in ( EMA/VMA.       2.7.29 MERGE    SR# 4701012120  ( PROBLEM: The MERGE utility does not always return the proper number of (% errors in $RETURN1, returning zero when errors occurred. % ( SOLUTION: At 6.0, MERGE will return non-zero in $RETURN1 for any errors ( which occur.      SR# 5000534800  ( PROBLEM: MERGE cannot accept an LU as the destination file; an "Illegal (( name" FMP error is reported. For example, "merge a b 1" ( reports this error.  ( SOLUTION: MERGE now builds a file descriptor without file type and main (( size fields for destination descriptors which specify an LU ( number.      SR# 4700974295  ( ENHANCEMENT: MERGE previously allowed up to 128 characters of source file (  - 6.0 Communicator - $ 2-39 $1  & SOFTWARE CHANGES (9207((7A) &  ( names to be entered in the runstring. This limit has been ( increased to 256.      SR# NONE  ( NOTE: At 6.0, MERGE will not allow relocatables to be MERGE command (( files. Files of type 5 will be treated as files to be merged, (( rather than as command files, even if only one file to merge ( appears in the runstring.       2.7.30 MPACK    SR# 1650115683  ( ENHANCEMENT: At revision 6.0, MPACK will set the $RETURN1 variable to (( indicate successful completion. $RETURN1 will be zero if MPACK ( completes without any errors.      SR# 2200045229  ( ENHANCEMENT: At revision 6.0, when removing extents and truncating a file, (( MPACK will only require the contiguous free space on disk to be (( large enough to contain the final truncated version of the (( file. Prior to revision 6.0, MPACK required the free space to (( be at least as large as the total allocated size of the ( original file.        2.7.31 MUX    SR# 1653024646  ( PROBLEM: Ports configured for Half HP+XON/XOFF (203b) should not use the (( HP ENQ/ACK handshake. The MUX, however, still uses the ENQ/ACK (  - 6.0 Communicator -  2-40 1  & SOFTWARE CHANGES (92077A) &  ( handshake when a port configured for protocol 203b issues a CN ( 11 (formfeed) command.   SOLUTION: This has been fixed for the 6.0 release.     SR# 4701078576  ( PROBLEM: During initialization, D-MUXes may time-out or get ( driver-defined error 29 on A990 CPUs.   SOLUTION: This has been fixed for the 6.0 release.     SR# 4701115220  ( PROBLEM: Due to the faster speed of the A990, some of the timing loops (( within ID800 were executing too quickly. This caused the ( driver to time-out in some cases.   SOLUTION: This has been fixed for the 6.0 release.       2.7.32 Mail/1000    SR# 2200047910  ( PROBLEM: The visual mode message menu shows only the first two digits of (( each message number, which is not helpful for folders which ( contain more than 99 messages.  ( SOLUTION: The visual mode menu now displays 3 digits of the message ( number, right-justified.      SR# 2200048108  ( PROBLEM: When RMAIL detects an invalid address in the (( /mail/admin/addressbook.mail file, the error message reports (( garbage instead of the offending address. RMAIL then shuts (& down rather than continuing on with that address ignored. &   - 6.0 Communicator - $ 2-41 $1  & SOFTWARE CHANGES (92077A) &  ( SOLUTION: RMAIL now reports the proper address and continues onward with ( the next entry in the addressbook file.      SR# 4700948315  ( PROBLEM: RMAIL will append a dot (.) to single-label domain names found (( in a message if the local host has a single-label domain name. (( A single-label domain name is a hostname in which no (( ".DOMAIN.ORGANIZATION" appears, to use NS/ARPA terminology. (( Basically, it refers to hostnames which do not contain (( upper-level network information separated by dots. For (( example, if mail.cf specifies "domain localhost" and a message (( comes through which is "To: software_samantha@DSD", then RMAIL (( will pass this message on to host DSD with the modified header (( "To: software_samantha@DSD." with a trailing dot after "DSD". (( This is illegal RFC-822 standard syntax and may confuse host ( DSD if the dot is unexpected.  ( SOLUTION: RMAIL now properly handles qualifying domain names when the (( local domain contains no upper-level network information. ( Fixed in the 6.0 release.      SR# NONE  ( NOTE: Mail/1000 supports the Domain Name System (DNS) at 6.0. DNS (( client versions of Mail/1000 programs Sendmail and SMTP may be (( loaded at Mail installation time. Optionally, a caching-only (( server may be installed that locally caches information (( retrieved from full-service nameservers elsewhere on the ( network.    SR# NONE  ( NOTE: At 6.0, Mail/1000 provides the utilities uuencode and uudecode (( for mailing binary files. These utilities are compatible with ( their UN*X namesakes.      2.7.33 OPERATING SYSTEM     - 6.0 Communicator -  2-42 1  & SOFTWARE CHANGES (92077A) &   SR# 4701093559  ( PROBLEM: When an ID segment for a CDS program is created by cloning an (( existing ID segment, the "current code segment" field is not (( initialized to the "initial code segment" field. This causes (( the dispatcher to set the maps incorrectly when the program is (( run. This is a problem only for programs which have the AL bit (( set, indicating that all segments must be in memory (as is the ( case for shared programs).  ( SOLUTION: At 6.0, the $IDRPL module sets the current code segment field (% to the initial code segment value, avoiding the problem. %    SR# 4701093906  ( PROBLEM: The routine called by many RTE modules to verify that a buffer (( supplied by the user is "legal" can fail to detect the use of (( an invalid page. The routine is $VBUF of IOMOD, and it is (( called to check the validity of buffers used in EXEC read and (( write calls, among other uses. This routine may not catch a (( buffer which spans a user map register containing 177777b, that (( is, a page of the user's logical address space which has been (( set invalid, as by the RTE dispatcher or by EMA/VMA mapping (( instructions. An error such as IO04 should be generated in ( this situation, but no error is detected.  ( SOLUTION: $VBUF properly rejects buffers which span user map registers (( that contain either 177777b or 77777b, in addition to the other ( validity checks performed at 6.0.     SR# 5000590919  ( PROBLEM: A HALT 5 may occur when using the dummy version of the OPMSG ( RTE-A module from $SYSA.  ( The PRMSG entry point needs to be coded for a JSB calling ( sequence, rather than a JMP.    SOLUTION: The correct calling sequence is now coded.         - 6.0 Communicator - $ 2-43 $1  & SOFTWARE CHANGES (92077A) &   2.7.34 PRIMARY    SR# 1650141333  ( PROBLEM: The example answer file which is supplied with RTE-A contains a (( misleading comment in the section which defines the system (( libraries. The specification of user libraries in the location (( suggested by the comment can result in errors when linking (# programs which use entry points in these libraries. #  SOLUTION: This has been fixed for the 6.0 release.      SR# 4701090407  ( PROBLEM: At 5.27, a SCSI primary system cannot be generated using the ( second half of the primary.ans file.  ' SOLUTION: The second half of the primary.ans file has been corrected. '       2.7.35 SAM    SR# NONE  ( PROBLEM: The SAM utility reports an unknown block when an unassigned LU (( is spooled. This problem was introduced at 5.2, when spooling ( of unassigned LUs was introduced.  ( SOLUTION: The S((AM program now checks the spool node list off the dummy (( DVT for LU 0. Entry point $D$DV, which points to that DVT, has (' been moved into $VCTR to keep the SAM program transportable. '     2.7.36 SCOM    SR# 5000562751  ( PROBLEM: Whenever Scom is run on a FMGR file with a negative security (  - 6.0 Communicator -  2-44 1  & SOFTWARE CHANGES (92077A) &  ( code, Scom reports "Incorrect security code" even if the (# security code is entered properly in the runstring. # ( SOLUTION: Scom no longer calls FmpFileName but instead uses the file (( descriptor as entered in the runstring. This corrects the ( problem.        2.7.37 SCSI    SR# 1653022913  ( PROBLEM: ASAVE and FST will fail verify if the 2GB SCSI DAT is on the ( same interface as the SCSI disk.    SOLUTION: This has been fixed for the 6.0 release.      SR# 1653030338  ( PROBLEM: Powerfail doesn't work if disks are SCSI. When doing a (( power-up cycle, the SCSI disk seems to take a long time (( compared to the CPU. If an I/O request has been pending on the (( SCSI disk, a special driver error 43 or the message "device not ( ready" is displayed on the console.  ! SOLUTION: This problem has been fixed for the 6.0 release. !     SR# 4701148650  ( PROBLEM: SCSI boot doesn't work from a C1716M multifunctional 5.25" ( Optical Disk or from a C2247 hard disk.  ( SOLUTION: The SCSI firmware has been changed to fix this problem. Use (( the VSCSI 'TS' function to verify the new SCSI firmware, which ( is '921030.0006'.      - 6.0 Communicator - $ 2-45 $1  & SOFTWARE CHANGES (92077A) &    SR# 5003018234  ( PROBLEM: The cartridge list is not updated when switching between FMGR ( and CI media on a 650A drive.   SOLUTION: This has been fixed for the 6.0 release.      SR# 5003022053  ( PROBLEM: The SCSI drivers contain a list of addresses to their (( extensions. The tape driver DDQ24 overwrites the last three (( internal addresses with data. The driver should be changed to ( use a store indirect instead of a store.   SOLUTION: This has been fixed for the 6.0 release.      SR# 5003022269  ( PROBLEM: When calling the routine NodeListBits in DDQ30, a flag for (( set/clear is passed from the E-register. In NodeListBits, the (( E-register is used to clear bit 15 of the address. This causes (( the routine to lose the original definition of the E-register. (  SOLUTION: This has been fixed for the 6.0 release.      SR# 5003023671  ( PROBLEM: DDQ24 should return a 0 transfer log for a dynamic status (( request. Currently, it returns the length of the last SCSI (( data phase, which happens to be the length of the request sense ( data transfer.   SOLUTION: This has been fixed for the 6.0 release.      SR# 5003023689  ( PROBLEM: DDQ24 does not update status words upon exit when no error is (  - 6.0 Communicator -  2-46 1  & SOFTWARE CHANGES (92077A) &  ( encountered. This can lead to programs thinking that errors (( occurred due to bits set during driver communication between ( the device driver and the interface driver.   SOLUTION: This has been fixed for the 6.0 release.      SR# 5003031229  ( PROBLEM: TF is unable to append to a SCSI DDS tape, part of the C2212A ( subsystem. The following error occurs:   TF: co @ 5 a  Append option selected.   Current contents of tape:   Tape format: TF  Title: TF: co @ 5 v  Date: Tue Dec 10, 1991 11:28:36 am   Do you want to append to this tape (Y/N) ? y ! Positioning tape beyond files previously written. ! I/O device error on LU 5 The reason is:  Special driver defined error= 26  Request has been flushed  Tape i/o error. Status is 1.  Can't append.  Command terminated.  TF:   SOLUTION: This has been fixed for the 6.0 release.      SR# 1653000380  % ENHANCEMENT: SCSI drivers should return the recovered error in DVT6. % ( At 6.0, both DDQ30 and DDQ24 device drivers now return the ( "Recovered Error" in DVT6.      SR# 1653000406    - 6.0 Communicator - $ 2-47 $1  & SOFTWARE CHANGES (92077A) &  ( ENHANCEMENT: Control request 16B has been implemented to enable/disable the (( DDQ24 driver to issue the request-sense command if the check ( condition occurred and the UE bit is set.   Example: % 1. CALL EXEC(3,lu+16b,1) disable the driver to issue %' request-sense if UE bit is set. ' ' 2. CALL EXEC(1,20000b+lu,..) if the check condition occurred '& ($dv6 error bit is set), $dv18 &* indicates SCSI check condition error. * * A request sense Z-buffer call can get *# the request sense data. # or ' Call EXEC(1,lu,..) if the check condition occurred '& ($dv6 error bit is set), $dv16 &# indicates driver error. #     SR# 4701103580  ( ENHANCEMENT: Previously, the SCSI interface driver IDQ35 enabled the (( pass-through mode if the transfer length was greater than 5120 (( words, which was hard-coded. At 6.0, users can set the ( pass-through fence.  ( DDQ30's dvp03 contains the RTE block number which is the (( pass-through fence. If driver parameter 3 is defaulted to a (( value of 0, IDQ35 will use a value of 24 RTE blocks (3072 (( words) for the pass-through fence. If the transfer length is (( greater than or equal to the pass-through fence, then the ( pass-through mode is enabled.      SR# 5003022079  ( ENHANCEMENT: The SCSI interface driver IDQ35 does a request sense when a (( check condition is issued by a device. Each device has a (( different amount of sense data that is valid and/or useful. In (( the past, IDQ35 always got 20 bytes. However, some devices go (( beyond this count for important information. If the device (( conforms strictly to the SCSI specification, the missed (( information cannot be retrieved on a subsequent call to get (  - 6.0 Communicator -  2-48 1  & SOFTWARE CHANGES (92077A) &   sense data.  ( At 6.0, IDQ35 can get more than 20 bytes of data on a check (( condition request sense. If the UE bit is set, check condition (( will return to the user program, which can then check the (( condition and use a Z-buffer call to request any size of the ( sense data.        2.7.38 SIGNALS    SR# 4701126623  ( PROBLEM: Signals are delivered in the wrong order. On page 13-2 of the (( Programmer's Reference Manual, the order that signals will be (( (( delivered is from 1 to 32. Currently, the order that the (( signals are being delivered is from 17 to 32 and then 1 to 16. (( When the two words that contain the bits that indicate that (( signals are pending are examined, they are in the opposite ( order of the correct order.  ( SOLUTION: The code has been fixed to implement the correct order at ( revision 6.0.     SR# 5003066845  ( PROBLEM: The class number and the request type in the SglIO signal ( dependent data are sometimes invalid.  ( In the past, changes were made to handle class I/O requests (( being flushed. These changes broke the existing code under ( certain circumstances.  ( SOLUTION: The code and documentation have been fixed in the 6.0 release ( of RTE-A.       2.7.39 SPOOLING     - 6.0 Communicator - $ 2-49 $1  & SOFTWARE CHANGES (92077A) &   SR# 4701091942  ( PROBLEM: If session accounting is not turned on ("AC,ON" in BOOT.CMD) (( then a session's spooling is not automatically terminated when ( the session logs off.  ( SOLUTION: At 6.0, the O/S spool cleanup procedures are executed at logoff (# time regardless of the state of session accounting. #      2.7.40 SYSTEM LIBRARY    SR# 1653027680  ( PROBLEM: IFTTY returns -1 (TRUE) for unassigned LUs at 5.27. In (( previous versions of RTE-A, it returned 0 for unassigned LUs. ( ( SOLUTION: This problem has been fixed for 6.0. IFTTY for RTE-A now (( checks the LUT to determine if an LU is unassigned and thus not ( interactive.       2.7.41 Structure Changes    SR# NONE  ( NOTE: Routine Pas.A1SharedSize has been modified to reflect ID (( segment changes at 6.0. Libraries PASCAL.LIB, PASCAL_CDS.LIB, (! and PASCAL_FMGR.LIB are affected by this change. ! ( PLEASE NOTE that although IMAGE-II (92081A) and RJE-II (91781A) (( have been updated to have the Pascal libraries deleted from (( their product, updates for RJE-II and IMAGE-II will not be sent (( out at 6.0. Since the only change to these products is this (( deletion and the correct version of these libraries is sent out (( (and installed by) the Operating System, we felt that sending ( an "update" would just cause confusion.        - 6.0 Communicator -  2-50 1  & SOFTWARE CHANGES (92077A) &   2.7.42 TF    SR# 1650116459  ( PROBLEM: TF does not correctly restore group and other protection bits. (  SOLUTION: This has been fixed for the 6.0 release.     SR# 4701154088  ( PROBLEM: TF can memory protect when using a very large group of copy ( commands.   SOLUTION: This has been fixed for the 6.0 release.       2.7.43 VSCSI    SR# 5003065763  ( PROBLEM: VSCSI with the -ALL option to a DAT DDS tape does not ( gracefully handle the FMP test.  # If a tape is loaded in the DAT drive, VSCSI reports: #  "Illegal LU "   If no tape is loaded, VSCSI reports:  "Driver Error: Wrong media; No disk in drive"  along with FMP test failed.   SOLUTION: This has been fixed for the 6.0 release.      SR# 5003068007  ( PROBLEM: When !VSCSI is booted and run for the first time, it will (( report SCSI address 7 for HP-IB LUs 6 through 9, 15 through 19, (( and 24. When run a second time, a 'LU 02 abort' is reported. (  - 6.0 Communicator - $ 2-51 $1  & SOFTWARE CHANGES (92077A) &   SOLUTION: This has been fixed for the 6.0 release.     SR# 1653006395  ( ENHANCEMENT: A SCSI diagnostic has been added to the 92077A/24398B products, (( !VSCSI. It includes functions similar to those available for ( testing CS/80 devices using EXER.  ( This is needed so mass storage devices can be tested and can (( have the ability to spare bad blocks when connected to the HP ( 1000 via the 12016A SCSI interface.      SR# 4701080945  ( ENHANCEMENT: VSCSI has been enhanced to support SCSI function 25h: Query a ( disk unit and read back the total volume size.  ( Also, the VSCSI command UNITSIZE has been implemented at 6.0 to (# report the total number of blocks on the disk unit. #       2.7.44 WH    SR# 5000490177  ( ENHANCEMENT: WH can now be instructed to issue "More..." prompts for any (( execution by including the "-p" flag in the runstring before (( the 2-character report style option (if specified). For (( example, "wh -p al" requests "More..." prompting for the AL (( report. "More..." prompting will not occur unless this option (( is specified. Note that use of prompting for program status (( listings is likely to introduce inaccuracies into the (( information reported, since the listing is not based on a (( snapshot of the system at some instant, reflecting instead the ( state of the system as each line is printed.        - 6.0 Communicator -  2-52 1  & SOFTWARE CHANGES (92077A) &   2.7.45 WHZAT    SR# 5000535922  ( ENHANCEMENT: If the WH listing is sent to a printer, a form feed will be ( issued at the end of the listing.         2.8 (92078A) RTE-A Virtual Code+      2.8.1 CI    SR# 1650058875  ( ENHANCEMENT: As of release 6.0, CI has "environment" variables. They can be (( accessed programmatically from applications in the same (( session. This capability exists only in the VC+ (92078A) ( version of CI.     SR# 1650097485  ( ENHANCEMENT: In the past, the SET command in CI displayed the variables in a (( random fashion. As of revision 6.0, CI displays all variables (( in a sorted order. This is available only in the VC+ (92078A) ( version of CI.     SR# 4701087478  ( ENHANCEMENT: CI has been enhanced to allow ksh-style command editing (emacs, (" gmacs, and vi) and csh-style filename completion. "    SR# 5000430470  ( ENHANCEMENT: In the VC+ (92078A) version of CI only, the current working (  - 6.0 Communicator - $ 2-53 $1  & SOFTWARE CHANGES (92078A) &  ( directory can be the prompt string. The maximum length of the (( prompt string has been increased to 78 characters to allow this (( to work. In addition, the WD command itself can be "redefined" ($ to do this, using an alias and a function, as follows: $  alias wd my_wd   function my_wd {  \WD $1 $2  set prompt $WD` >`  }    SR# 5000541086  ( ENHANCEMENT: As of revision 6.0, $PROMPT can be up to 78 characters long. (' This is available only with the VC+ (92078A) version of CI. '    SR# 5000541953  ( ENHANCEMENT: CI now has two different areas for user-defined variables, (( local space and the Environment Variable Block (EVB). Both are (( configu((rable. The local space for variables can be set at load (( time via the LINK em command. This would then be the size for ( all users on the system.   The EVB is set for each user by GRUMP.  & This is only available in the VC+ (92078A) version of CI. &    SR# 5000593491  ( ENHANCEMENT: At 6.0, users now have the concept of a session environment. (( CI can "export" variables to the Environment Variable Block (( (EVB). Subsequent copies of CI can access these variables. (( Any program running in the specific session can also access (( these variables via the new EXEC(39) call. This is only ( available in VC+ (92078A).          - 6.0 Communicator -  2-54 1  & SOFTWARE CHANGES (92078A) &   2.8.2 CI UTILITIES    SR# 1650140723  ( PROBLEM: CLGON returns error -9 if the user's password contains a (( period. For example, if user TEST has password "ABC.DEF", (( calling CLGON with "TEST/ABC.DEF" results in the -9 error. (( Also, if the user tries to log on interactively, entering the (( password at the logon prompt ie: login: TEST/ABC.DEF (" LOGON returns: "No such directory TEST/ABC::users" " ( SOLUTION: CLGON has been modified to allow a "period" in the user's ( password.     SR# 5000482547  ( PROBLEM: The GRUMP command PA (password) is not listed when responding (( to the GRUMP> prompt with a "?". However, details for the PA (( command are listed when responding to the GRUMP> prompt with "? ( PA".   SOLUTION: This has been fixed in the 6.0 release.     SR# 1650022285  ( ENHANCEMENT: At revision 6.0, the touch utility will be shipped with VCPLUS. (( The runstring option +B will cause a file's backup bit to be ( set; -B will cause the bit to be cleared.     SR# 1653010579  ( ENHANCEMENT: At revision 6.0, the 'cp' utility will be shipped with VC+. cp (( allows a directory tree to be copied while preserving the ( directory attributes of all the files.       2.8.3 D.RTR    SR# 4700921668   - 6.0 Communicator - $ 2-55 $1  & SOFTWARE CHANGES (92078A) &   ( ENHANCEMENT: Symbolic links have been added to the RTE-A file system at ( revision 6.0.    SR# 5000581496  ( ENHANCEMENT: With revision 6.0 of the RTE-A product, the user may use the (( CDS version of D.RTR. The CDS version of D.RTR doubles the (' capacity of the open file table and global directory table. '      2.8.4 FMP    SR# 1650027201  ( PROBLEM: FmpCopy will not successfully copy type 2 files to magnetic (( tape if the record length is greater than 128 words. When (( attempted, all the records are truncated to 128 words on the ( tape.   ( SOLUTION: At revision 6.0, FmpCopy will use the record length of a type 2 (( file as the transfer length when performing IO to or from a (( device. (Note that the user-supplied buffer must be large (( enough to contain the transfer buffer and, at the minimum, an (( additional 160 words for the DCBs. A -223 error will be (( returned if a type 2 file cannot be transferred to or from a ( device without truncating the records.)     SR# 4700977256  ( PROBLEM: FmpCopy can create illegal filenames when the 'D' option is (( used. When the 'D' option is used, FmpCopy creates a 13 (( character temporary filename to use for the copy function. (( After a successful copy, the original dest file is purged and (( the temp copy is renamed to the dest name. If the original (( name is less than 13 characters and the full path is long, (( using the 13 character filename may cause the length of the ( full path to exceed 63 characters.  ( SOLUTION: At revison 6.0, FmpCopy will attempt to create temporary (( filenames at the same length as the orignal destination ( filename.   - 6.0 Communicator -  2-56 1  & SOFTWARE CHANGES (92078A) &    SR# 4701112342  ( PROBLEM: FmpRunProgram can fail with a false error condition when the (( calling program's ID segment address happens to be the same as (( the value of ASCII characters in the 19th and 20th characters ( of a runstring.  ( SOLUTION: FmpRpProgram will now clear word 10 of the dcb before calling ( FmpOpen.     SR# 5000036608  ( PROBLEM: FMPCOPY fails when the buffer length is 16416 words or more. (( For large files (1000 blocks or more), only one block is copied (( with a bad EOF. Small files usually work OK. All copy (( operations work correctly if the buffer size is less than 16416 ( words.  ( SOLUTION: At revision 6.0, FmpCopy will cap the transfer length at 16k ( words.     SR# 1650029629  ( ENHANCEMENT: At revision 6.0, FmpOwner will use the 'Q' option when it opens ( a directory to determine ownership.     SR# 4701149682  ( ENHANCEMENT: At revision 6.0, FmpCopy has been enhanced to make better use (( of the buffer that is passed to it when performing I/O to or (( from a device. Prior to this revision, FmpCopy truncated (( records to or from devices at 256 bytes. When copying from a (( device to a device or from a device to a type 1 file, the (( maximum record size will be dependent on the size of the buffer ( passed to FmpCopy.  ( Also at revision 6.0, the CDS version FmpCopy has been enhanced (( to set the streaming bit when the destination device is a (( streaming tape drive. After writing the EOF, a dynamic status ($ request is sent to the device to check for any errors. $     - 6.0 Communicator - $ 2-57 $1  & SOFTWARE CHANGES (92078A) &   2.8.5 FMP LIBRARIES    SR# 4701103234  ( PROBLEM: The RexBuildPattern routine incorrectly rejects some valid (( regular expressions. When an end of a class ']' is the last (( character of the expression, RexBuildPattern rejects the ( expression as illegal.   SOLUTION: This has been fixed for the 6.0 release.       2.8.6 GENERATOR    SR# 4701010736  ( PROBLEM: The lower bound of the class buffer limits must be <=4095 (( words. Values greater than this cause the bound to be treated ( as zero.  ( SOLUTION: At 6.0, the upper and lower bounds are stored in separate (( words, rather than squeezing both into one word. The limit of (( 8160 words for the upper bound is removed, as well as the limit (( of 4080 words difference between the upper and lower bounds. (( Entry points $SPBL and DSPBL have been replaced by (( $UpClassLimit, which contains the upper bound, and (( $NLowClassLimit, which contains the negated lower bound, both ( in words.       2.8.7 LANVCP    SR# 1650161489  ( PROBLEM: VCPMT sends messages to the scheduling terminal and not to the ( system console.   SOLUTION: This has been fixed for the 6.0 release.      - 6.0 Communicator -  2-58 1  & SOFTWARE CHANGES (92078A) &      2.8.8 MACRO    SR# 165010((1089  ( PROBLEM: The macro &CDSONOFF incorrectly generates a PCAL type 1 calling ( sequence; it should generate type 0.  ( SOLUTION: At 6.0, the &CDSONOFF library was changed to use pcal 0 calls. (      2.8.9 MULTIUSER/SESSION    SR# 1650097063  ( PROBLEM: Sometimes LOGON is unable to access the .GRP file when it ( should otherwise succeed.  ( SOLUTION: The file opening scheme for LOGON has been modified to further ( reduce the chances of this failure.     SR# 1653027888  ( PROBLEM: If a group has more than 448 users, the group table is (( corrupted after one of the higher-numbered users logs on and ( then off.  ( SOLUTION: As of 6.0, groups with more than 448 users will not have this ( problem.     SR# 4700923144  ( PROBLEM: Running VC1.CMD as part of installing VCPLUS onto a primary (( system for the first time produces error messages because the ( directory /USERS does not exist.  ( SOLUTION: VC1.CMD now checks for the existence of /USERS before ( attempting the copy.    - 6.0 Communicator - $ 2-59 $1  & SOFTWARE CHANGES (92078A) &    SR# 5003044636  ( PROBLEM: When accounting is turned off, telnet sessions are not released ( at logoff time.    SOLUTION: This has been fixed at the 6.0 release.     SR# 1650062364  ( ENHANCEMENT: A command stack was added to Grump at revision 6.0 of VCPLUS. (    SR# 1650161612  ( ENHANCEMENT: If a password entered with AL, US, or NU contains a space or (( comma, GRUMP terminates the password at that character. The (( user or System Manager would expect the password to be "MY ( CAT", and in reality it is "MY".  ( SOLUTION: In the case of changing the password via the NE or AL commands, (( an error message will always be issued in the interactive case. (( In the case of PA, the password command, the error checking ( will be done.         2.9 (92081A) Image/1000-II      2.9.1 Structure Changes    SR# NONE  ( NOTE: Routine Pas.A1SharedSize has been modified to reflect ID (( segment changes at 6.0. Libraries PASCAL.LIB, PASCAL_CDS.LIB, (! and PASCAL_FMGR.LIB are affected by this change. ! ( PLEASE NOTE that although IMAGE-II (92081A) and RJE-II (91781A) (  - 6.0 Communicator -  2-60 1  & SOFTWARE CHANGES (92081A) &  ( have been updated to have the Pascal libraries deleted from (( their product, updates for RJE-II and IMAGE-II will not be sent (( out at 6.0. Since the only change to these products is this (( deletion and the correct version of these libraries is sent out (( (and installed by) the Operating System, we felt that sending ( an "update" would just cause confusion.         2.10 (92084A) RTE-6/VM Operating System      2.10.1 CALLS    SR# NONE  ( NOTE: The Calls and CallM utilities are now shipped with the RTE-6/VM (( product, as well as with as RTE-A, since Calls is used by the ( online help facility of DEBUG/1000.      2.10.2 CI    SR# 5000616581  ( PROBLEM: CI is interpreting WHILE in an echo command as if it were the (( beginning of a WHILE-DO-DONE control. For example, an error is ( produced by including:   echo `error while creating file`   in a command file within a WHILE structure.  ( SOLUTION: As of 6.0, CI once again correctly handles the quoted `while`. (    SR# 5000651034  ' ENHANCEMENT: An online help file is now provided for the CI POLL command. '  - 6.0 Communicator - $ 2-61 $1  & SOFTWARE CHANGES (92084A) &      2.10.3 CI UTILITIES    SR# 5003050799  ( ENHANCEMENT: For revision 6.0, CI will have a new, internal variable $DATC. (( This variable will provide the user with a quick answer to the (( question, "Which revision of RTE am I running?". CI will set ( it at start-up.        2.10.4 DVA37    SR# 4701070607  ( PROBLEM: The HPIB driver DVA37 is erroneously inserting an ACG and UCG (( command into the HPIB command sequence. This can cause some (( devices to hang because they cannot interpret these commands. (  SOLUTION: This has been fixed for the 6.0 release.        2.10.5 DVS23    SR# 4700964262  ( PROBLEM: Under 5.2 RTE-6/VM, blank new tapes cannot be used on a DAT (( drive. The density is genned in at 1600. Nevertheless, the ( device times out when using a new blank tape.  ( SOLUTION: DVS23's set density control request has been modified. Using (( the control request 'CN lu 15b 1' or 'CN lu 15b 1600' to set (( the tape density will now allow a brand new DAT tape to be ( used.      - 6.0 Communicator -  2-62 1  & SOFTWARE CHANGES (92084A) &      2.10.6 EDIT    SR# 1653022194  ( PROBLEM: Edit/1000 displays a password at the bottom of the screen in ( screen mode if DS file transparency is used.  ( SOLUTION: Edit now removes the password and file security code when it (( displays the source file name on the screen mode bottom line, (( in response to the SH (show) and ?? (one line status) (( commands, and it the "closed file" message. It will display (( the password during the "Opened file" message, and "Created (( file" message if the create is deferred to the "ER" or first (( "WR" command, and on any source file read or write error ( message.  ( Edit will continue to display the password in messages for ( files other than the source file.       2.10.7 FMP    SR# 4700977256  ( PROBLEM: FmpCopy can create illegal filenames when the 'D' option is (( used. When the 'D' option is used, FmpCopy creates a 13 (( character temporary filename to use for the copy function. (( After a successful copy, the original dest file is purged and (( the temp copy is renamed to the dest name. If the original (( name is less than 13 characters and the full path is long, (( using the 13 character filename may cause the length of the ( full path to exceed 63 characters.  ( SOLUTION: At revison 6.0, FmpCopy will attempt to create temporary (( filenames at the same length as the orignal destination ( filename.     SR# 4701112342  ( PROBLEM: FmpRunProgram can fail with a false error condition when the (  - 6.0 Communicator - $ 2-63 $1  & SOFTWARE CHANGES (92084A) &  ( calling program's ID segment address happens to be the same as (( the value of ASCII characters in the 19th and 20th characters ( of a runstring.  ( SOLUTION: FmpRpProgram will now clear word 10 of the dcb before calling ( FmpOpen.     SR# 5000036608  ( PROBLEM: FMPCOPY fails when the buffer length is 16416 words or more. (( For large files (1000 blocks or more), only one block is copied (( with a bad EOF. Small files usually work OK. All copy (( ope((rations work correctly if the buffer size is less than 16416 ( words.  ( SOLUTION: At revision 6.0, FmpCopy will cap the transfer length at 16k ( words.     SR# 5000126987  ( PROBLEM: The CLOSE utility is loaded with a load command file named (( #CLSDS, and its relocatable is %CLSDS. This is not documented ( anywhere.  ( SOLUTION: At revision 6.0, the relocatable for the close utility is in (( the file "close.rel". The link command file is named ( "close.lod".      SR# 1650029629  ( ENHANCEMENT: At revision 6.0, FmpOwner will use the 'Q' option when it opens ( a directory to determine ownership.       2.10.8 FMP LIBRARIES    SR# 4701103234  ( PROBLEM: The RexBuildPattern routine incorrectly rejects some valid (  - 6.0 Communicator -  2-64 1  & SOFTWARE CHANGES (92084A) &  ( regular expressions. When an end of a class ']' is the last (( character of the expression, RexBuildPattern rejects the ( expression as illegal.   SOLUTION: This has been fixed for the 6.0 release.       2.10.9 FORMC    SR# 5000588889  ( ENHANCEMENT: At the 6.0 release, FORMC will no longer check a user's (( capability level if the 'FO' command is used to format ( floppies.        2.10.10 FREES    SR# 4700983270  ( PROBLEM: The FREES command gives an incorrect output with the +M option ( (output in MB).   SOLUTION: This has been fixed in the 6.0 release.      SR# NONE  ( NOTE: The +Q option has been added at 6.0 to return status from the ( FREES program to the father program.       2.10.11 FST    SR# 1650121053   - 6.0 Communicator - $ 2-65 $1  & SOFTWARE CHANGES (92084A) &   ( PROBLEM: When running FST from a read-protected command file, FST aborts ( but does not set the $RETURN1 variable.   SOLUTION: This has been fixed at the 6.0 release.     SR# 2200039222  ( PROBLEM: If the scratch file is created in the default style and placed (( in /SCRATCH/, and the working directory is /SCRATCH/, then a (% backup file mask of '@' will include FST's scratch file. % ( SOLUTION: FST will now check the directory address of the scratch file so ( it will not select its own scratch file.     SR# 4701041053  ( PROBLEM: When restoring a TAR file with FST, FST tries to restore the ($ './' and '../' entries when they exist on a TAR tape. $  SOLUTION: This has been fixed at the 6.0 release.     SR# 4701042705  ( PROBLEM: To restore any files from a FST backup, FST must first be able (( to restore the entire directory file from the archive. For (( large FST backups on a DAT tape, this can easily require more ( than 100,000 free disk blocks.  ( SOLUTION: For revision 6.0, the MinDir option has been added to FST. (( This allows FST to create a minimum-sized directory file (' containing information for only those files being restored. '    SR# 4701147256  ( PROBLEM: FST can create and verify tapes which cannot be read by FST (( after the backup. The problem only occurs when FST crosses a (( tape boundary, the YES option is not used, and the tape being (( overwritten was not previously written by FST or TF. Also, ( this does not happen with CTD tapes.   SOLUTION: This has been fixed for the 6.0 release.   - 6.0 Communicator -  2-66 1  & SOFTWARE CHANGES (92084A) &    SR# 4701148379  ( PROBLEM: FST does not restore a file that crosses a tape boundary when (( the DUP and VERIFY options are set and the file being restored ( already exists.   SOLUTION: This has been fixed for the 6.0 release.     SR# 5000563726  ( PROBLEM: The error "Clearing selections for TF restore" is produced when (( attempting to unselect files that were previously selected for (( FST backup. The error occurs if the tape that is loaded is a (( TF format tape and the tape header has been read prior to (( selecting the files for backup. When the message is output, (" the UN command fails to clear the selected files. "  SOLUTION: This has been fixed in the 6.0 release.     SR# 5000579656  ( PROBLEM: FST builds an incorrect destination filename for FMGR files ( when the destination mask is a FMGR LU.   SOLUTION: This has been fixed for the 6.0 release.     SR# 1650170860  ( ENHANCEMENT: At 6.0, FST will abort non-interactive executions when a single ($ 'BA' command yields mulitple files with the same name. $    SR# 1653010611  ( ENHANCEMENT: At revision 6.0, FST will backup remote files which are already (( open in shared mode. FST is not able to backup remote files ( which are open in exclusive mode.     SR# 2200040766    - 6.0 Communicator - $ 2-67 $1  & SOFTWARE CHANGES (92084A) &  ( ENHANCEMENT: At revision 6.0 when restoring an FST tape, FST will create the (" FST directory file to be the exact size required. "    SR# 2200040774  ( ENHANCEMENT: When FST restores a binary file from a tar archive, the final ( block will be padded with nulls.     SR# 2200041558  ( ENHANCEMENT: At 6.0, FST will check the break flag between forward file ( commands.     SR# 4701036509  ( ENHANCEMENT: At revision 6.0, FST will only require the node to be specified (( when selecting files to be restored from a backup. Prior to (' 6.0, FST required both the node and the account information. '    SR# 4701043992  ( ENHANCEMENT: At revision 6.0, FST was enhanced to read a start-up command (( file. This can be used to set up defaults for many of FST's ( commands.     SR# 5000158444  ( ENHANCEMENT: At revision 6.0, FST will allow the FST directory file to be (" located on a remote system using DS transparency. "    SR# 5000159152  ( ENHANCEMENT: At revision 6.0, FST has an "Inhibit" option that will cause (( FST to inhibit the rewind between backup operations. FST will ( still rewind the tape upon exit.      - 6.0 Communicator -  2-68 1  & SOFTWARE CHANGES (92084A) &    SR# 5000181719  ( ENHANCEMENT: The Z option was added to FST at revision 6.0. This option (( will cause FST to pause when disk-full errors are encountered. (    SR# 5000212670  ( ENHANCEMENT: At revision 6.0, FST will allow the "Verify" option to be (( disabled after the "Clear" backup bit option has been set. (( This will cause FST to clear the backup bit of every file which (% was backed-up, without verifying the archive's contents. %       2.10.12 GENERATOR    SR# 4701133462  ( PROBLEM: RT6GN accepts "CS80" as a disk model in response to the (( question, "SYSTEM DISC MODEL?". for the question However, for (( the questoin, "DEVICE (MODEL, HP-IB ADDRESS, UNIT,VOLUME)?", it (( will not accept models beginning with "C" other than "CTD". (( The generator will accept "XXX", but not "CS80" or "C2200" for ( this question. (( ( SOLUTION: This problem has been fixed for the 6.0 release. RT6GN will (( accept CS-80 disk models beginning with "C" for the question (( "DEVICE (MODEL,HP-IB ADDR,UNIT,VOLUME)?". Models such as (( "CS80" and "C2200A" will now be accepted and treated as unknown ( CS-80 disk models.      SR# 4701151381  ( PROBLEM: Under certain load situations, RT6GN can give the "FIXUPS NOT (( RESOLVED" error. When this error occurs, the program that the (( generator was loading will be corrupt. No error is given in ( the summary at the end of the generation.   SOLUTION: This has been fixed for the 6.0 release.    - 6.0 Communicator - $ 2-69 $1  & SOFTWARE CHANGES (92084A) &      2.10.13 HPCRT    SR# 4700970830  ( PROBLEM: The HpCrtStatus routine does not work properly. Either it MPs (( or else the status buffer contents are incorrect. The problem (' was that a temporary buffer was not being passed correctly. '  SOLUTION: This has been fixed in the 6.0 release.     SR# 4701148296  ( PROBLEM: All the HpZ input routines work on the principle of parsing (( information from the previously declared input buffer at the (( 'current position', which is maintained in a global variable (( called HpZIbufPos. As each routine executes, it is supposed to (( update 'current position' upon exit so that a succeeding (( routine can parse the next piece of information from the ( buffer.  ( HpZHexI does not do this correctly in all cases. The problem (( is that the position varies depending upon how the routine (( terminated. For example, given the call 'HpZHexI(number,4)' to (( parse up to four hex characters, if the current position in an (( input line of 'ru,foo, 00FF,AB' points to the blank, it will be (( left pointing to the following comma upon return. This is (( correct behavior. If we give it an input line of 'ru,foo, (( FF,AB' instead, with the current position again at the blank, (( upon exit the pointer will be pointing to the 'A'. This is (( incorrect behavior resulting from the parse terminating on (( condition rather than on count. HpZHexI is defined as (( returning 'true' if no number was parsed. This also does not (( work in all cases. The input buffer 'ru,foo, X' with an (( initial position pointing to the blank should return 'true' (' because 'X' is not a legal hexadecimal digit. It does not. '  SOLUTION: This has been fixed in the 6.0 release.     SR# 5000527044  ( PROBLEM: The HpCrtReadChar routine does not set BIT 15 in the variable (( STATUS after a successful call, as indicated in the (  - 6.0 Communicator -  2-70 1  & SOFTWARE CHANGES (92084A) &   Relocatables Manual.   The same defect exists in HpCrtXReadChar.  ( SOLUTION: HpCrtReadChar and HpCrtXReadChar have both been fixed to set (# the sign bit of the status word on a normal return. #      2.10.14 INSTALLATION    SR# 5000474064  ( PROBLEM: LOAD6.CMD does not work for type 6 files being targeted at FMGR ( cartridges.  ( SOLUTION: The LOAD6.CMD and INCI.CMD command files were updated to work (( with FMGR files. In addition, the security code parameter was (! ignored except for MLLDR. This has been fixed. !     SR# 5003064311  ( PROBLEM: The file IMAGE6.CMD does not copy the library SHSLB.LIB to the (( libraries directory before it attempts linking the IMAGE (( programs. Some of the programs reference this library (( explicitly in order to resolve some undefined externals. These (( undefined externals can also be satisfied from other libraries, ( however the size of the programs increases.  ( SOLUTION: Both rtea1.cmd (for RTE-A) and inci.cmd (for RTE-6) have been (( updated to copy the SHSLB.LIB file to the proper destination ( library.      SR# NONE  ( NOTE: Several of the link/load files for RTE-6/VM have changed their (( name to the newer style file names with type extensions. The (( installation files (LOAD6.CMD and INCI.CMD) have been updated ( to reflect this.     - 6.0 Communicator - $ 2-71 $1  & SOFTWARE CHANGES (92084A) &      2.10.15 LI    SR# 4700983098  ( PROBLEM: If the 5.2 LI is loaded as a non-EMA/VMA program, as per the ( instructions in the .LOD file, then the message ' LI: Insufficient free memory for record buffer; size LI up '  is always reported.  ( SOLUTION: LI now reports this message only if there really is ( insufficient free memory.      SR# 4700983502  ( PROBLEM: If the directory information specifying the number of records (( for a file being listed by LI is incorrect or not up-to-date, (( LI quits listing the file at the number of records given by the (( out-of-date directory entry instead of continuing onward. A (( record count of zero is properly ignored, but there remains a (( problem for files which are kept open and appended to without (( updating the directory info, such as /SYSTEM/NS_EVENT.LOG of (( NS-ARPA/1000. Files updated by programs which did not properly (( close the file (e.g., were aborted) may also exhibit this (( behavior. LI should not blindly trust the directory but (( instead verify that there are no more records past the ( advertised limit.  ( SOLUTION: LI now uses the directory's notion of the end-of-file up until (( that EOF point is reached, at which time LI checks to see if an (( EOF mark is actually read. If not, LI stops claiming that it (( knows the EOF position and will read through the file to find (% the true EOF mark if necessary (as for the "$" command). %     SR# 4700984773  ( PROBLEM: The LI program should check the BReak flag while performing (! "find-all" pattern searches via the "@" command. !   - 6.0 Communicator -  2-72 1  & SOFTWARE CHANGES (92084A) &  ( SOLUTION: LI now checks the BReak flag and exits the pattern search if ( set.       2.10.16 LIF    SR# 4701013235  # PROBLEM: LIF hangs in an infinite loop in the IADDR routine. #  SOLUTION: This has been fixed at the 6.0 release.        2.10.17 LINK    SR# NONE  ( PROBLEM: Revision codes in LINK were incorrect and inconsistent. The (( banner revision code was correct, but the help message revision ( code was incorrect.   SOLUTION: Both revision codes have been updated to 6000.        2.10.18 LUPRN    SR# 5000559732  ( PROBLEM: LUPRN will not execute properly if there is not a /SYSTEM (( directory. The message 'Cannot open "LUPRN driver name file; ( FMP error = -209' is displayed.  ( SOLUTION: LUPRN will now check for the absence of the file or the /SYSTEM ( directory.   Fixed in the 6.0 release of RTE-6/VM.   - 6.0 Communicator - $ 2-73 $1  & SOFTWARE CHANGES (92084A) &      2.10.19 MACRO    SR# 1650101089((  ( PROBLEM: The macro &CDSONOFF incorrectly generates a PCAL type 1 calling ( sequence; it should generate type 0.  ( SOLUTION: At 6.0, the &CDSONOFF library was changed to use pcal 0 calls. (    SR# 2200040956  ( PROBLEM: When MACRO is run to build a MACRO library and a 'table' is (( requested, the table lines are 1 character too short if the (( MACRO name is an odd number of characters. (The control ( statement used here is MACRO,M,T.)   SOLUTION: This has been fixed in ¯6 at revision 6.0.      SR# 2200040972  ( PROBLEM: If a MACRO library is built with a macro by the name of 'DATA', (( MACRO will fail when the library is referenced with a "DCB not ( open" error on the source file.  ( SOLUTION: This problem is fixed at 6.0. The MACRO opcode tables now all (( come from the same table source code so they will always be (( consistent. Further, an internel revision flag is kept with (( the table and is put in each MACRO library. If they mismatch, ( an error is generated.  ( The error is cleared by reprocessing the MACRO library with a ( special new option in MACRO.      SR# 2200047845  ( PROBLEM: If the file /libraries/$maclb.mlb is corrupted, running MACRO (( on prog.mac will result in the error message, "Illegal file (( position PROG.MAC" instead of any message pointing to the (  - 6.0 Communicator -  2-74 1  & SOFTWARE CHANGES (92084A) &   library.   SOLUTION: This has been fixed for the 6.0 release.      SR# 5000125724  ( PROBLEM: The MACRO/1000 Manual does not document the limit on the number (( of labels in a MACRO program. However, the real problem is (( that MACRO mismanages its symbol table space and, as a result, ( fails to handle as many symbols as it should.   SOLUTION: This has been corrected for the 6.0 release.      SR# 5000151662  ( PROBLEM: MACRO emits line number information for include files. DEBUG (& thinks these are main file line numbers and gets confused. & ( SOLUTION: At 6.0, Macro will process include files such that each (( module's DEBUG information will be complete if all code in that (( module comes from the same file as the Nam record. As a (( result, entire modules may be in include files without losing (( debug information. The DEBUG interface does not allow (( switching files within a module, so DEBUG information that (( would come from a file other than the Nam record will not be ( generated.      SR# 5000275271  ( PROBLEM: When compiling MACRO source which compiled correctly on (( revision 2540, error 217 (Incomplete expression in operand (( files) or error 290 (Not enough parameters in microcode call) ( occur.   SOLUTION: This has been fixed for the 6.0 release.      SR# NONE    - 6.0 Communicator - $ 2-75 $1  & SOFTWARE CHANGES (92084A) &   ENHANCEMENT: The SEXT opcode was added to MACRO.   Soft EXT op code: SEXT foo  % foo may be defined locally but if not %& is external. CALL can make the routine &% external while still allowing it to be % defined locally.     SR# NONE  ( NOTE: MACRO was changed to allow the symbol table to be put in ( EMA/VMA.       2.10.20 MERGE    SR# 4701012120  ( PROBLEM: The MERGE utility does not always return the proper number of (% errors in $RETURN1, returning zero when errors occurred. % ( SOLUTION: At 6.0, MERGE will return non-zero in $RETURN1 for any errors ( which occur.      SR# 5000534800  ( PROBLEM: MERGE cannot accept an LU as the destination file; an "Illegal (( name" FMP error is reported. For example, "merge a b 1" ( reports this error.  ( SOLUTION: MERGE now builds a file descriptor without file type and main (( size fields for destination descriptors which specify an LU ( number.      SR# 4700974295  ( ENHANCEMENT: MERGE previously allowed up to 128 characters of source file (  - 6.0 Communicator -  2-76 1  & SOFTWARE CHANGES (92084A) &  ( names to be entered in the runstring. This limit has been ( increased to 256.      SR# NONE  ( NOTE: At 6.0, MERGE will not allow relocatables to be MERGE command (( files. Files of type 5 will be treated as files to be merged, (( rather than as command files, even if only one file to merge ( appears in the runstring.       2.10.21 MPACK    SR# 1650115683  ( ENHANCEMENT: At revision 6.0, MPACK will set the $RETURN1 variable to (( indicate successful completion. $RETURN1 will be zero if MPACK ( completes without any errors.      SR# 2200045229  ( ENHANCEMENT: At revision 6.0, when removing extents and truncating a file, (( MPACK will only require the contiguous free space on disk to be (( large enough to contain the final truncated version of the (( file. Prior to revision 6.0, MPACK required the free space to (( be at least as large as the total allocated size of the ( original file.        2.10.22 MUX    SR# 4701161141  ( PROBLEM: If the WELCOM file contains only CN30 commands to initialize (( the MUX, the driver data structures are not completely (  - 6.0 Communicator - $ 2-77 $1  & SOFTWARE CHANGES (92084A) &  ( initialized. In this state, the MUX will function correctly as (( soon as a normal write or read is processed. If instead a (( BREAK is received before any other activity, the MUX will hang. ( ( SOLUTION: The driver code has been changed so that the CN30 command does (( not defeat the AutoGen code and leave the structures ( incompletely defined.        2.10.23 Miscellaneous    SR# NONE  ( NOTE: Throughout the RTE products, the word "disc" has been changed (( to reflect the new spelling, "disk". Please check and be sure (( you don't have any files that are looking for the old spelling. (( You can use the new 'grep' utility to search for "disc" in your ( files.       2.10.24 PRINT    SR# 4701108050  ( PROBLEM: PRINT0 fails to link in a minimum E-series configuration. Link ( reports "Program is too large" and terminates.  ( SOLUTION: The #prin0 link/loader command file has been changed to make ( the program EB (extended background).        2.10.25 SCOM    SR# 5000562751  ( PROBLEM: Whenever Scom is run on a FMGR file with a negative security (  - 6.0 Communicator -  2-78 1  & SOFTWARE CHANGES (92084A) &  ( code, Scom reports "Incorrect security code" even if the (# security code is entered properly in the runstring. # ( SOLUTION: Scom no longer calls FmpFileName but instead uses the file (( descriptor as entered in the runstring. This corrects the ( problem.      ((  2.10.26 Structure Changes    SR# NONE  ( NOTE: Routine Pas.A1SharedSize has been modified to reflect ID (( segment changes at 6.0. Libraries PASCAL.LIB, PASCAL_CDS.LIB, (! and PASCAL_FMGR.LIB are affected by this change. ! ( PLEASE NOTE that although IMAGE-II (92081A) and RJE-II (91781A) (( have been updated to have the Pascal libraries deleted from (( their product, updates for RJE-II and IMAGE-II will not be sent (( out at 6.0. Since the only change to these products is this (( deletion and the correct version of these libraries is sent out (( (and installed by) the Operating System, we felt that sending ( an "update" would just cause confusion.       2.10.27 TF    SR# 1650116459  ( PROBLEM: TF does not correctly restore group and other protection bits. (  SOLUTION: This has been fixed for the 6.0 release.     SR# 4701154088  ( PROBLEM: TF can memory protect when using a very large group of copy ( commands.   SOLUTION: This has been fixed for the 6.0 release.   - 6.0 Communicator - $ 2-79 $1  & SOFTWARE CHANGES (92084A) &      2.10.28 WHOSD    SR# 5000099606  ( ENHANCEMENT: At revision 6.0 of RTE, WHOSD will report all users of the (( specified LU, directory or file. WHOSD will now also report ( open files and active programs.         2.11 (92833A) Pascal/1000 (RTE-6/VM      2.11.1 Structure Changes    SR# NONE  ( NOTE: Routine Pas.A1SharedSize has been modified to reflect ID (( segment changes at 6.0. Libraries PASCAL.LIB, PASCAL_CDS.LIB, (! and PASCAL_FMGR.LIB are affected by this change. ! ( PLEASE NOTE that although IMAGE-II (92081A) and RJE-II (91781A) (( have been updated to have the Pascal libraries deleted from (( their product, updates for RJE-II and IMAGE-II will not be sent (( out at 6.0. Since the only change to these products is this (( deletion and the correct version of these libraries is sent out (( (and installed by) the Operating System, we felt that sending ( an "update" would just cause confusion.              - 6.0 Communicator -  2-80 1  & SOFTWARE CHANGES (92836A) &   2.12 (92836A) Fortran-77 Compiler      2.12.1 DEBUG    SR# 1650140616  ( PROBLEM: DEBUG cannot display the value of some PARAMETER variables ( (named constants).  ( SOLUTION: Since the Fortran connections to DEBUG were developed, DEBUG (( has been enhanced so that it can handle named constants. At (( revision 6.0, Fortran has been updated to take advantage of (( this. Some data types, such as CHARACTER, may not be supported (( by DEBUG as named constants yet. Also, note that the value (( displayed may not be the declared value of the named constant. (( If a constant is passed to a subroutine that clobbers it (in (( violation of the standard), the displayed value can be either ( the original value or the clobbering value.       2.12.2 FORTRAN    SR# 1653008573  ( PROBLEM: If you try to use the $INCLUDE '...' type of entry, the ( complier fails with a disaster.  ' The error is: "Problem with include file: no such directory". ' ( SOLUTION: The manual claims that include file names in $INCLUDE (( directives can be in quotes (as they can be in INCLUDE (( statements). This was not true and was never the intent. (( However, for HP-UX compatibility, the compiler will be enhanced (& at 6.0 to allow quoted file names in $INCLUDE directives. &    SR# 4701085191  ( PROBLEM: FTN7X revision 5270 can erroneously report 105 errors when (( specifying $SET variables in the runstring and within a ( $IF/$ENDIF section.   - 6.0 Communicator - $ 2-81 $1  & SOFTWARE CHANGES (92836A) &   SOLUTION: This has been fixed for the 6.0 release.     SR# 4701127480  ( PROBLEM: There were some major problems with the handling of $SET (( variables. The problems usually caused incorrect errors such (( as error 44 when a reference was made to a $SET variable. The (( problems were made worse when the cross-reference option (C) ( was used.  ( SOLUTION: The handling of $SET variables has been reworked for the 6.0 ( release.     SR# 4701147942  ( PROBLEM: The compiler incorrectly allowed a variable in an absolute (( common block to appear in a DATA statement. The resulting (' incorrect relocatable file caused an internal error in LINK. ' ( SOLUTION: It is not possible to initialize a variable in an absolute (( common block using a DATA statement. The compiler will be (( changed at 6.0 to issue an error for this case, and the manual (( will be changed to indicate that variables in absolute common ( blocks may not appear in DATA statements.     SR# 5003052332  ( PROBLEM: When an assignment expression had a substring of an array (( element on the left side, it was possible, especially if the (( right side was not just a simple variable name, that an ( incorrect warning 106 would be generated.  ( SOLUTION: Array elements were not supposed to be checked for overlap; (( this particular check has been removed. Since the compiler was (( warning about many cases of potential overlap which were really (( OK, the check has now been placed under a compiler option. (( Overlap checking is now done only when the "p" option is used. (         - 6.0 Communicator -  2-82 1  & SOFTWARE CHANGES (92857A) &   2.13 (92857A) Basic/1000C      2.13.1 BBMG    SR# NONE  ( PROBLEM: BBMG opened scratch files for read access only, but it also ( required write access to these files.   SOLUTION: This has been fixed in the 6.0 release.      2.13.2 COMPILER    SR# 1650025411  ( PROBLEM: Performing the BASIC/1000C function INT on a real variable and (( storing the value in an array of DOUBLE or INT either doesn't (" store the value or makes a program memory protect. "  SOLUTION: This has been fixed in the 6.0 release.    SR# 1650042242  ( PROBLEM: When a BASIC/1000C program opens a type 2 file using 'ASSIGN (( @Fi TO File$; WIDTH 48,FORMAT OFF', a warning 57 is issued. (( The file is closed again using 'ASSIGN @Fi TO *'. After a few (% opens,the program gets aborted with a runtime error 109. %  SOLUTION: This has been fixed in the 6.0 release.    SR# 1650141705  ( PROBLEM: The Basic compiler cannot be invoked from the CM prompt or XQed ( from the CI prompt.   SOLUTION: This has been fixed in the 6.0 release.     SR# 2200035865   - 6.0 Communicator - $ 2-83 $1  & SOFTWARE CHANGES (92857A) &   ( PROBLEM: A compiled Basic program with `IF..THEN..ELSE' memory-protects ( at run time.   SOLUTION: This has been fixed in the 6.0 release.    SR# 5000116095  ( PROBLEM: When the BASIC/1000C compiler returns a value from th((e POS (( function into an EMA variable, the variable does not receive ( the value.   SOLUTION: This has been fixed in the 6.0 release.    SR# 5000126540  ( PROBLEM: The call to TIMEDAY with a local variable works fine; however, (( with an EMA variable, a call to TIMEDAY causes an EMA error, ( and the program aborts.   SOLUTION: This has been fixed in the 6.0 release.    SR# 5000139923  ( PROBLEM: When a Basic/1000C program has CDS ON and single-line functions (( that forward reference other single-line functions, the (( compiler does not always patch the forward reference properly. (  SOLUTION: This has been fixed in the 6.0 release.    SR# 5000229104  ( PROBLEM: A compiled BASIC/1000C program which REDIMs a string array will ( abort with a runtime error.   SOLUTION: This has been fixed in the 6.0 release.    SR# 5000466789  ( PROBLEM: The function RPT$ in a compiled BASIC/1000C program doesn't (! work correctly if the count parameter is in EMA. !  SOLUTION: This has been fixed in the 6.0 release.     - 6.0 Communicator -  2-84 1  & SOFTWARE CHANGES (92857A) &   SR# 5000476499  ( PROBLEM: If a BASIC/1000C program opens and closes a file in shared mode (" a number of times, the program will get Error 109. "  SOLUTION: This has been fixed in the 6.0 release.    SR# NONE  ( PROBLEM: A compiled BASIC/1000C program could not perform output ( correctly if the Format string was in EMA.   SOLUTION: This has been fixed in the 6.0 release.    SR# 2200024026  ( ENHANCEMENT: The Basic/1000C compiler now has been enhanced to return values ( in the $RETURN variables as follows:   return1 = no. of errors  return2 = no. of source lines " return3 = no. of words in data segment (non-cds) " no. of words in code segment (cds)  return4 = 0 (non-cds)  no. of words in data segment (cds)  This is the same as Pascal.      2.13.3 DEBUG    SR# 1650121483  ( PROBLEM: Debug cannot display EMA variables for BASIC/1000C programs. (" Array elements also cannot be displayed correctly. "  SOLUTION: This has been fixed in the 6.0 release.           - 6.0 Communicator - $ 2-85 $1  & SOFTWARE CHANGES (92857A) &   2.13.4 I/O    SR# 1650016394  ( PROBLEM: If a string does not have its maximum length, the compiled (( Basic program (or Interpreter) will not output it with packed ( binary zero in case of binary I/O.    SOLUTION: This has been fixed in the 6.0 release.    SR# 2200027607  ( PROBLEM: The BASIC/1000C Interpreter does not report an error when a (( PRINT statement accesses a record greater than 32767. The ( Compiler reports an error message.  ( SOLUTION: This has been fixed in the 6.0 release. The compiler now does (( not report an error when a PRINT statement accesses a record ( greater than 32767.    SR# 2200036491  ' PROBLEM: BASIC/1000C does not suppress carriage control to printers. ' ( SOLUTION: It has been decided not to suppress carriage control to (( printers. Instead, it has been documented in the 6.0 release (( of the BASIC/1000C Reference Manual (part number 92857-90001). (   SR# 4700940460  ( PROBLEM: The HP-IB driver accepts a Secondary Address as optional (( parameter 1 of a read or write call. When the user attempts to (( address secondary address zero, this parameter is passed as 0. (( In any case, the driver looks at the parameter, and if it finds (( zero, assumes that no parameter was passed. The reason that (( BASIC was able to use secondary address zero in the interpreter (( but not in the compiler was that the interpreter treated (( secondary address zero as a special case and did the I/O ( 'manually' instead of using auto-addressing.  ! SOLUTION: The compiler has been fixed in the 6.0 release. !   SR# 4700956045    - 6.0 Communicator -  2-86 1  & SOFTWARE CHANGES (92857A) &  ( PROBLEM: If a compiled BASIC/1000C program is loaded to use VMA working (( space, the input operation from a file will not be performed ( correctly.   SOLUTION: This has been fixed in the 6.0 release.    SR# 5000184333  ( PROBLEM: BASIC/1000C (Compiler/Interpreter) cannot open a ( write-protected file even if only for a read.   SOLUTION: This has been fixed in the 6.0 release.    SR# NONE  ( PROBLEM: When a BASIC/1000C program accesses LU 1, the interpreter will (( access the session LU, but the compiler will access the system ( console.   SOLUTION: This has been fixed in the 6.0 release.      2.13.5 INTERPRETER    SR# 4701078816  ( PROBLEM: When calling an external routine from the interpreter, the user (( is allowed to pass up to 3070 words of parameters. However, an (# SC04 gets generated with much less than 3070 words. # SOLUTION: This has been fixed at the 6.0 release.     SR# 5000297564  ( PROBLEM: A RE_SAVE in the Basic Interpreter will fail with an FMP error. (  SOLUTION: This has been fixed in the 6.0 release.    SR# 5000466797  ( PROBLEM: The IF-THEN-ELSE statement containing the PRINT statement to (' print two arguments to a file produces the following errors: '   - 6.0 Communicator - $ 2-87 $1  & SOFTWARE CHANGES (92857A) &   BUG ***22 encountered in BASIC EXECUTOR  or: ) ERROR: (31) Exceeded width on PRINT when NOWRAP was in effect. )  SOLUTION: This has been fixed in the 6.0 release.      2.13.6 LINK    SR# 5000264036  ( PROBLEM: When using LINK_E.LOD (or LINK_V.LOD, LINK_E_CDS.LOD, (( LINK_V_CDS.LOD) to link a compiled BASIC/1000C program, LINK (( will generate warning 187. These warning messages are not ( documented in the manual.  ( SOLUTION: These warning messages have been documented in the 6.0 release (( of the BASIC/1000C Reference Manual (part number 92857-90001). (     2.13.7 Miscellaneous    SR# 5000129809  ( ENHANCEMENT: The compiler and the interpreter of BASIC/1000C used to be (( locked into memory for performance reasons. They are now ( enhanced to allow swapping.      2.13.8 RBEX    SR# NONE  $ PROBLEM: As of the 5.1 release, RBEX could not write to a file. $  SOLUTION: This has been fixed in the 6.0 release.        - 6.0 Communicator -  2-88 1  & SOFTWARE CHANGES (92860A) &   2.14 (92860A) Symbolic Debug/1000      2.14.1 CALLS    SR# NONE  ( NOTE: The Calls and CallM utilities are now shipped with the RTE-6/VM (( product, as well as with as RTE-A, since Calls is used by the ( online help facility of DEBUG/1000.      2.14.2 CALLS UTILITY    SR# NONE  ( PROBLEM: The Calls utility doesn't send some output and prompts to the (( redirected LU when the "-L" runstring option is used. (( (( Debug/1000 uses this feature when its "+L:lu" runstring option ( is used.  ( SOLUTION: If the Calls "-L" option argument names an interactive LU or a (( symbolic link to an interactive LU, all menus and prompts will (( be redirected to that LU. Otherwise, these prompts are issued ( to the scheduling terminal.     SR# NONE  ( NOTE: The Calls utility, which performs online text display by (( keywords, is fully supported at 6.0. This utility was provided (( at 5.2 for use by Mail/1000 online help, but was not fully (( documented. At 6.0, online help and manual information is (( furnished. The CallM utility, which can be used to generate (( compressed input files for Calls, is also provided. These (( utilities are the RTE-A equivalents of the GENIX/CMD/HELP ( utilities on RTE-6/VM.         - 6.0 Communicator - $ 2-89 $1  & SOFTWARE CHANGES (92860A) &   2.14.3 Miscellaneous    SR# NONE  ( NOTE: The two changes made to Debug at patch revision 5261 are (( included in the 6.0 release. The first change was to ship the (( correct CDS version of Debug, which was introduced at release (( 5.26 (revision 5260) but would not execute. The second change (( fixed a problem in the installation command file, INSTALL.CMD, (! which inhibited proper installation on RTE-6/VM. !       2.14.4 XDB    SR# NONE  ( NOTE: At 6.0, a version of Debug/1000 with an Xdb-like user interface (( is included with the Debug product. Xdb will execute only on ( RTE-A systems with VC+.        2.15 (92861A) Graphics/1000-II DGL Version 2.0      2.15.1 CRT    SR# 2200026377  ( PROBLEM: The buffer that is returned from the keyboard function ZKYBD (( with a 12065 card is incorrect. The first half of the returned (( buffer is correct, the second half is rubbish, and the rest is (( blank-filled. The returned length (ACTUAL) is correct. (( Similar symptoms are exhibited by doing an REIO request with (( the buffer length specified as a byte count. The transmission (( log that is returned in this case, however, reflects the number (( of words that were transferred instead of the number of bytes, ( as it should.   - 6.0 Communicator -  2-90 1  & SOFTWARE CHANGES (92861A) &  ( This is a result of the fact that ID*50 and the 12065A always (( return a word count even when the user specifies a byte count. (( SR 4700-943357 addresses this anomaly. Currently, DGL is coded (( to expect this to happen. The problem comes about because DGL (( is using REIO to make the request, and REIO does not expect ( this condition.  ( SOLUTION: K0025 has been modified to specify a word count in revision ( 6.0.      SR# 5000542993  ( PROBLEM: ZDINT on a 12065A (handler D0025) with bit 7 set in the control (( word prevents the screen from being cleared (as it should), but (( it also causes the screen to flash. The flash should not ( occur.  ( SOLUTION: The END_FRAME command was being sent to the card regardless of (( the setting of bit7. It should not be sent if bit7 is set. (( This change affects the Device Handler's Manual, in the 12065 (( section. The initialization sections of both the Graphics (( Display Device Handler (AGP Only) and the Graphics Display (( Device Handler (DGL Only) sections now has the first sentence (( of the "Graphics Memory" paragraph changed from: Screen cleared (( unless bit 7 is set... to: Screen cleared and graphics display ( turned on unless bit 7 is set...  ( Also, the last sentence of the paragraphs ("Graphics display is ( turned on.") has been removed.        2.15.2 DIDD    SR# 5000218404   PROBLEM: AGP/DGL should support LUs greater than 63.  ( SOLUTION: The AGP and DGL subroutines that take an LU parameter have been ( modified at 6.0 to allow LUs greater than 63.      - 6.0 Communicator - $ 2-91 $1  & SOFTWARE CHANGES (92861A) &      2.15.3 PLOTTERS    SR# 1650164459  ( ENHANCEMENT: An HP-GL/2 handler for DGL has been added to support all of the (( new peripherals that use it. It provides increased speed as (( well as a decrease in memory requirements for some situations. (    SR# 4700968859  ( ENHANCEMENT: The 7570 handlers (D0070 and D0071) now allow 7575A and 7576A ($ as valid device identifiers returned from the plotter. $       2.15.4 PRINTERS    SR# 1650170613  ( PROBLEM: Several problems in regards to paper handling exist when trying (( to use the 2235 Rugged Writer Printer: 1) If a ZDINT is done (( with bit 7 clear on the D0074 handler, the formfeed that is (( done is not a conditional formfeed as is documented in the (! manual; rather, it is an unconditional formfeed. ! ( 2) If the D0053 or D0054 handlers are used instead (as (( suggested in the 2235 section of the Device Handlers Manual), a (( formfeed is not performed when a ZDINT is done regardless of ( the setting of bit 7.  ( 3) The D0053 and D0054 handlers leave the paper at a position ( that is not top-of-form at the end of the job.  ( The cause of problems 1 and 2 is that the Rugged Writer doesn't (( support the vertical forms control escape sequence that the (( 293X printers did. When the 2235 handler was coded, an (( unconditional formfeed was sent to overcome this problem. A (( better solution is to send a reset escape sequence to the (( printer when a ZDINT is done without bit 7 set. Both the 239X (( and 2235 printers do a conditional formfeed when ZDINT is (  - 6.0 Communicator -  2-92 1  & SOFTWARE CHANGES (92861A) &  & received. This should be done in D0053, D0054 and D0074. & ( The cause of problem 3 is that neither of the D0053 and D0054 ( handlers sends a reset at the end of a job.   ( SOLUTION: The handlers have been fixed, as detailed above, in the 6.0 ( release.      SR# 4700950691  ( PROBLEM: The QuietJet and QuietJet Plus will produce half size plots ( when low density is used after high density.  ( The density change escape sequence is only sent on the high (( resolution plot, and reset printer is never sent. This means (( that even though high resolution was not specified on the (( second plot, the density is not reset back to low resolution on ( the printer, but DGL assumes that it is.  ( SOLUTION: D0075 and D0076 have been modified at revision 6.0 to always (( send a set density command in order to ensure that the (% printer's density matches what the handler thinks it is. %     SR# 5003011460  ( PROBLEM: D0077 leaves the LaserJet in a state that causes the next print ( to the device to be garbled.  ( SOLUTION: The handler now sends reset escape sequences instead of form ( feed characters at revision 6.0.      SR# 5000256099  ( ENHANCEMENT: A new handler to print color graphics on the PaintJet has been ( added at the 6.0 release.        (( - 6.0 Communicator - $ 2-93 $1  & SOFTWARE CHANGES (92861A) &   2.15.5 TERMINALS    SR# 4701014407  ( PROBLEM: The 2397 DGL handler (D0060) asks the terminal if it has a (( locator even when the spooling bit is set. This results in the (( program aborting with an IO11 error (Attempt to input to (( spooled LU). When the spool bit is set, the handler should (( assume that the terminal does not have a locator and should ( proceed without the inquiry.  ( The spool bit is not being checked before asking the terminal ( if it has a locator.  ( SOLUTION: The 6.0 version of D0060 has been modified to only inquire the ( terminal if the spool bit is not set.      SR# 4701038356  ( PROBLEM: The escape sequence "Ec *m1mm5Q" is output when a mark is (( displayed. The "m" immediately preceding the 5 is extraneous, (( and the action taken upon this by HP graphics terminals is (( undocumented. The terminals, however, appear to ignore it. (( The ZMARK code for this escape sequence should be changed to ( "Ec *m1m5Q" in order to minimize confusion.  ( SOLUTION: DIDD has had the extra character removed from the escape ( sequence at revision 6.0.      SR# 2200042424  ( ENHANCEMENT: The display handlers for the 2393A and 2397A terminals now (( recognize device IDs of 2393A and 2397A, respectively, in ($ addition to the currently required device ID of 2390A. $           - 6.0 Communicator -  2-94 1  & SOFTWARE CHANGES (92862A) &   2.16 (92862A) Graphics/1000-II AGP Version 2.0      2.16.1 DIDD    SR# 5000218404   PROBLEM: AGP/DGL should support LUs greater than 63.  ( SOLUTION: The AGP and DGL subroutines that take an LU parameter have been ( modified at 6.0 to allow LUs greater than 63.        2.16.2 JDINT    SR# 2200022442  ( ENHANCEMENT: The LU lock bit in the JDINT call was of questionable (( usefulness given the fact that AGP did not lock the LU until (( after the device was initialized. A disclaimer regarding this (( appeared in the paragraph describing the LU lock bit in the (( JDINT section of the "AGP Version 2.0 Supplement for HP 1000 (( Systems" (92862-90001). The code has been changed at 6.0 to (( lock the LU before the device is initialized, and the (# documentation of this restriction has been removed. #         2.17 (94202A) PCIF/1000 Allen-Bradley Handlers      2.17.1 SUBREQUEST MESSAGES    SR# 2200046144   - 6.0 Communicator - $ 2-95 $1  & SOFTWARE CHANGES (94202A) &   ( PROBLEM: Whenever an incoming message was NAK'd and retransmitted, the (( firmware would erroneously leave the bit set that tells the (( driver there is more data to this message. The driver would (( then come back and re-read the same data again, thinking that (( it was the rest of the message; this appended the message to (( itself. If the appended message was now longer that 250 bytes (( (the maximum for Allen-Bradley messages), the highway handler (( would throw this message away. PCIF would eventually time-out, ( returning an ERROR 38 to the caller.  ( SOLUTION: The firmware flag that tells the driver there is more data to (( the message is now cleared whenever a message is retransmitted ( after a NAK occurs.   SR# 2200046227  ( PROBLEM: Subrequest messages would get overwritten by subsequent (( incoming solicited messages that were retransmitted by the data (( highway. This was due to a buffer-full condition in the (( firmware buffers. A similar problem occurs for unsolicited ( messages.  ( SOLUTION: At 6.0, a separate buffer has been provided for each subrequest ( message so they don't overwrite other buffers.   SR# 2200045583 SR# 2200046359 SR# 2200046573 SR# 5000214007  ( PROBLEM: When a 'Cancel-first-buffer' command is sent to the card, the (( firmware replies by setting the flag but not clearing the (( backplane data buffer. When the driver picks up the data (( buffer from the backplane, it frequently contains garbage which (( sometimes translated into a command that meant that a powerfail ( occurred.   SOLUTION: This has been fixed for the 6.0 release.              - 6.0 Communicator -  2-96 1  & SOFTWARE CHANGES (94203A) &   2.18 (94203A) PCIF/1000 Gould-Modicon Handlers      2.18.1 BIT WRITES    SR# 2200045161  ( PROBLEM: On a GM 484 when there is an odd number of bytes, and the last (( byte contains less than 8 bits, PCIF swaps all bytes except the (( last one, which simply gets left-justified. When this takes (( place in procedure FMT_SWP_DATA_ARRAY, the last byte was being (( temporarily stored in a variable that wasn't being correctly ( restored.  & SOLUTION: The highway handler now correctly restores the last byte. &    2.18.2 MODBUS ADDRESSING    SR# 2200046219  ( PROBLEM: The variable that temporarly held the PC_Station_Number in (( procedure, VERIFY_BUFFER, was typed as a signed byte, hence, ( its maximum value was 127.  ( SOLUTION: The highway handler has been modified to hold the ($ PC_Station_Number in an unsigned byte (max value 255). $      2.19 (94250A) Forms/1000-A      2.19.1 FORMS    SR# 5000161125  ( PROBLEM: FORMS/1000 treats a timeout as if the enter key were pressed. (    - 6.0 Communicator - $ 2-97 $1  & SOFTWARE CHANGES (94250A) &  ( SOLUTION: FORMS/1000 now checks the driver bits correctly as specified in ( the RTE-6/VM Driver Reference Manual.        2.20 (94250B) Forms/1000-B      2.20.1 BUFFER READS    SR# 1650072983  ( PROBLEM: With F_GETBUFFER, data corruption can be caused by a mismatch (( between the buffer length variable and the actual length of the (( read in. This is because FORMS/1000 does not check the actual (( length of the receive buffer against the length passed to the ( routine.  ( SOLUTION: F_GETBUFFER will now validate the buffer length given by the ( user against the actual buffer length.       2.20.2 FORMS    SR# 1650028761  ( PROBLEM: When a form is displayed and the window line is on line 24, the (( form can jump (the window line causes the form to jump a line, ( and then it is scrolled down one).   ( SOLUTION: The terminal setting InhEOLWrp is set ON when the window line (' is displayed, and left OFF at all other times as per normal. '   SR# 5000400150  ( PROBLEM: At slower baud rates, F_ACTIVATERM will often cause an error 5. (( Any I/O outside of Forms/1000 before calling F_ACTIVATERM at (( slower speeds may not have completed when Forms tries to (  - 6.0 Communicator -  2-98 1  & SOFTWARE CHANGES (94250B) &   determine the status of the ter((minal.  ( SOLUTION: F_ACTIVATERM will try 3 times to check the status of a terminal (( before failing it. An interval of 1/10th of a second will ( separate each attempt.      2.20.3 PROGRAM SCHEDULING    SR# 1650044438  ( PROBLEM: FORMS/1000 always re-enables the primary program which can (( cause problems with other software scheduling FORMS/1000. The (( reason is that FORMS/1000 does not know whether the primary ( program was enabled before it started.  ( SOLUTION: An optional parameter has been added to the F_DEACTIVATERM to (( allow for the situation where the primary program does not want ( to be enabled on termination of FORMS/1000.    SR# 2200041228  ( PROBLEM: F_DEACTIVATERM only enables primary program scheduling, whereas (( F_ACTIVATERM disables both primary and secondary program ( scheduling.   ( SOLUTION: F_DEACTIVATERM now enables both primary and secondary program ( scheduling.      2.20.4 REAL FIELDS    SR# 1650119230  ( PROBLEM: FORMS/1000 does not check that a valid input to a real field (" will also be acceptable output to that same field. "  ( SOLUTION: FORMS/1000 will only accept a real input as valid if it is an (( acceptable real output to the same field, if it is not, an ( error 26 will be generated.    - 6.0 Communicator - $ 2-99 $1  & SOFTWARE CHANGES (94250B) &        2.21 (98170A) ARPA/1000      2.21.1 FMTRC    SR# 2200047969  ( ENHANCEMENT: Presently, tracing is only available in octal output. FMTRC (( has been enhanced to output the trace records in octal, (( hexadecimal, or NICE format. The NICE format will parse some (( of the protocols such as TCP and IP into the component fields. (     2.21.2 FTP    SR# 1650165365  ( PROBLEM: An FTP to a VAX running FUSION hangs with both client and (( server in receive state when verbose is off and an open is ( done.  & SOLUTION: FTP has been modified to correctly parse multiple replies. &   SR# 4701067074  ( PROBLEM: FTP binary get of a FMGR type 1 file does not transfer extents. ( ( SOLUTION: FTPSV and FTP have been modified to call FmpSize for FMGR ( files.    SR# 4701162040  ( PROBLEM: BINARY type 6 file transfers do not work between 6.0 and ( non-6.0 or non-RTE systems.  ( SOLUTION: Both the source and destination files are now forced to be type (( 1, thus removing the extents. *De-extent the file by using (  - 6.0 Communicator -  2-100 1  & SOFTWARE CHANGES (98170A) &  ' force-type-1 on both the source and the *destination files. '   SR# NONE  & PROBLEM: FTP.HELP does not include the -T option in the runstring. &  SOLUTION: This has been fixed in the 6.0 release.    SR# 4701053660  ( ENHANCEMENT: The HP 1000 FTP server reports the file descriptor of the file (% being transferred in the 150 server reply to mget/mput. %   SR# 4701062877  ( ENHANCEMENT: The 5.24 FTP does not calculate the file length for a type 2 (( file and requires that it be specified in the file descriptor. (( FTP will now calculate the size of type 1, 2, or 6 files from (( the number of bytes transferred. 6.0 to 6.0 file transfers ( will also transfer the size.    SR# 5000640045  ( ENHANCEMENT: FTP has been modified to recognize when the FTP server is an HP (( 1000. When FTP knows that the server is an HP 1000, it will (( set the transfer mode to BINARY and transfer the file type, (( size, and record length along with the file. A new user and (( server command, SYSTEM, has been implemented. The server will (% respond with its system type when this command is used. %     2.21.3 INETD    SR# 5000621011  ( ENHANCEMENT: INETD has been added to NS-ARPA/1000 and ARPA/1000 to replace (( FTPMN and TNMON. Examples are provided for the configuration (( file, /etc/inetd.conf, and the file that maps service names to (( TCP ports, /etc/services. Usage and features are described in ( the on-line help file.      - 6.0 Communicator - $ 2-101 $1  & SOFTWARE CHANGES (98170A) &   2.21.4 INITIALIZATION    SR# 4701050328 SR# 5000637967  ( PROBLEM: NSINIT/NETINIT will not accept responses which begin with /D or ( /E for questions which require a filename.  ( SOLUTION: NSINIT/NETINIT has been modified to accept responses beginning (( with /D or /E that contain more than 2 characters when ( prompting for a filename.    SR# 1653001230  ( ENHANCEMENT: The default number of networking programs and sockets has been (( increased from 13 and 38 to 23 and 68, respectively. The (( default is adjusted to be higher if NFT is used in an NS-ARPA (( system. This will allow more TELNET and FTP connections in an ( ARPA/1000 system.      2.21.5 INPRO    SR# 4701116749  ( PROBLEM: A bug in the A900 microcode (SR #4701-115980) can cause (( unpredictable behavior in INPRO. In one case, INPRO aborted (( due to an UI error. The A900 microcode bug causes instructions (( to be fetched from data space when CDS is on and interrupts are (( off. INPRO turns off interrupts while reading and updating its (( timer counter, NS_OS3. The effect depends on what is in the ( data space.  ( SOLUTION: INPRO has been modified so that the section which turns (( interrupts off (CLC 4 ... STC 4) is now non-CDS. This will ( avoid the bug in the A900 microcode.      2.21.6 INSTALLATION    SR# 4701109009    - 6.0 Communicator -  2-102 1  & SOFTWARE CHANGES (98170A) &  ( ENHANCEMENT: NS-ARPA and ARPA programs are now transportable between systems (( running the same version of RTE-A and networking software. (( This was accomplished by eliminating the use of (( non-transportable system entry points by the networking (( software. As part of this change, the networking modules that (( are generated into the system have been modified. NSPEC is no (( longer needed. NSABP is now partitionable. It is no longer (( necessary to search NSLIB for the DSGLO module during RTAGN's ( system relocation phase.      2.21.7 PING    SR# 1653001461  ( PROBLEM: PING does not return all socket resources if the user issues (( the BREAK command before PING has a chance to report that the (( given host is unreachable. In this case, only one socket out (( of the required two sockets will be freed. The other one will ( never be freed.  ( SOLUTION: PING will now reset the state of the socket before it (% terminates. This will allow the socket to be released. %     2.21.8 RTE-A FILES    SR# NONE  ( PROBLEM: The RTE-A files which were included in the 5.24 version of (( ARPA/1000 are included in the 5.27 and 6.0 releases of RTE-A. (! They no longer need to be included in ARPA/1000. ! ( SOLUTION: The RTE-A files will be removed from the 6.0 release of ( ARPA/1000.      2.21.9 TELNET    SR# 5000603407    (( - 6.0 Communicator - $ 2-103 $1  & SOFTWARE CHANGES (98170A) &  ( PROBLEM: TELNET does not act correctly following a close command. If (( TELNET is given a hostname in its runstring, it should (( terminate after a close command, but it doesn't. If an invalid (( command is entered following the close, TELNET will display the (( Unknown Command message twice and then terminate. When this (( happens, the terminal port configuration does not get restored. ( ( SOLUTION: TELNET's close command processing has been fixed. If a (( hostname is given in the runstring, the close command will (( terminate TELNET. When no hostname is specified in the (( runstring, TELNET will remain in command mode following a close (( command. Subsequent commands, valid and invalid, are now ( processed correctly.    SR# 5003030858  ( PROBLEM: The port protocol on a TELNET pseudo terminal LU cannot be set (( to HP-XON/XOFF. A CN,LU,34b,3 command will cause the following ( error message:  ! I/O device error on LU xx The reason is: ! I/O request error  Request has been flushed  ( SOLUTION: TNSRV no longer rejects any control requests with function code (( 34b. TNSRV only needs to know whether it should send the DC1 (( on a read request, so it just checks bit 1 of the protocol word (( to determine if HP protocol is being used. It is left up to (# the drivers to determine if any request is illegal. #                      - 6.0 Communicator -  2-104 1  & Current Revisions & Changes &   Chapter 3 Current Revisions & Changes    ( This chapter lists the current revision codes for each supported software (( product and notes any changes that have occurred to the product in this ( update cycle.  ( Those products that have been changed in this update cycle are marked with a (( '+' to the left of the product number. If a product has been updated, the ( listing will also include:   a) Manuals and   b) Software media  ( that have been updated (or added) in this update cycle and are being (! distributed with the subscription services for this product. ! ( If software has been updated for the product, then those modules that have (( been changed/added/deleted are marked with a '*' to the left of the file (( name, and the type of update is shown to the right of the current revision (( code: updated files show the new revision code; added or deleted files are ( marked as 'New' or 'Deleted' (respectively).  ( At the 6.0 release, several files have changed part numbers. This has (( occurred primarily for two reasons. First, as you probably know, all files (( in HP1000 software products are assigned part numbers when the part changes. (( As one series of part numbers runs out, a new series must be created. This (( is what happened to several of the 92077-1xyyy series parts for certain (( types of files. Second, we decided that significant changes to the software (( should (in most cases) get a new part number so that older products that use (( the same part would not have to be changed. You will notice these changes ( primarily in the 92077A, 92078A, and 92084A products.  ( Note that updated products may have only manual changes or only software (( changes. This is noted in the manual or media lists. The manual changes (( are listed in the format 'Edition#/Update#' and/or 'Print Date'. For (( example, '2/2' means edition 2, update 2 and '3/-' means edition 3, no () update. Also, E1292 means this manual edition was printed in December 1992. )$ and U1292 means this manual update was printed in December 1992. $ ( A history of the firmware for both the A and M/E/F Series machines and other (! miscellaneous interface cards are at the end of this chapter. !      - 6.0 Communicator - $ 3-1 $1  & Current Revisions & Changes &  ! 3.1 + (24612B) A-Series System and Peripheral Diagnostics !   Filename Part Number Rev Change  --------------------- ----------- ---- --------  * !A990D 24612-16064 New --> 5270  * !AIMXD 24613-16001 New --> 2301  * !AOUTD 24613-16002 New --> 2301  * !ASIC 24612-16035 New --> 2301  * !BCM 24612-16042 New --> 5270  * !CDSBI 24612-16048 New --> 5020  * !CDSPC 24612-16050 New --> 2326  * !CPU 24612-16015 New --> 2301  * !CSIC 24612-16051 New --> 2326  * !DCDVR 24612-16004 New --> 5270  * !DID 24612-16052 New --> 2401  * !DIGIO 24613-16003 New --> 5020  * !DSDVR 24612-16006 New --> 5270  * !EIG 24612-16027 New --> 5020  * !FDL 24612-16041 New --> 2213  * !FPD 24612-16025 New --> 4010  * !HPIB 24612-16036 New --> 5020  * !IOM 24612-16019 New --> 5270  * !LIS 24612-16029 New --> 5020  * !MAD 24612-16021 New --> 5270  * !MCD 24612-16023 New --> 5270  * !MCDXL 24612-16046 New --> 2326  * !MTDVR 24612-16054 New --> 5000  * !MUX 24612-16040 New --> 5020  * !OBIO 24612-16060 New --> 5020  * !PIC 24612-16037 New --> 5020  * !PROM 24612-16038 New --> 2301  * !PSI 24612-16039 New --> 5020  * !SCDVR 24612-16067 New --> 5270  * !SCSI 24612-16065 New --> 5270  * !SFD 24612-16017 New --> 5270  * !SIS 24612-16031 New --> 2301  * !STDVR 24612-16069 New --> 6000  * !VSCSI 92077-15031 New --> 6000  * !WCS 24612-16032 New --> 2213  * #AUTO 24612-18013 New --> 5270  * %A990D 24612-16063 New --> 5270  * %CDSBI 24612-16047 New --> 5270  * %CDSPC 24612-16049 New --> 5270  * %CPU 24612-16014 New --> 5270  * %DCDVR 24612-16003 New --> 5270  * %DDL 24612-16010 New --> 5020  * %DEBUG 24612-16011 New --> 2301  * %DSDVR 24612-16005 New --> 5270  * %EIG 24612-16026 New --> 5270   - 6.0 Communicator -  3-2 1  & Current Revisions(24612B) &   * %FPD 24612-16024 New --> 5270  * %IOM 24612-16018 New --> 5270  * %LIS 24612-16028 New --> 5270  * %LPDVR 24612-16012 New --> 2540  * %MAD 24612-16020 New --> 2340  * %MADMG 24612-16045 New --> 5270  * %MAPS 24612-16009 New --> 2301  * %MCD 24612-16022 New --> 5270  * %MSGS 24612-16033 New --> 2301  * %MTDVR 24612-16053 New --> 5000  * %OBIO 24612-16059 New --> 4010  * %PFCON 24612-16034 New --> 2401  * %SCDVR 24612-16066 New --> 5270  * %SFD 24612-16016 New --> 5270  * %SIS 24612-16030 New --> 5270  * %STDVR 24612-16068 New --> 6000  * B24612.SNF 24612-17998 New --> 6000  * BCMDC 24612-16044 New --> 5270  * BCMMT 24612-16058 New --> 5270  * BCMSC 24612-16070 New --> 5270  * BCMST 24612-16071 New --> 6000  * CINFDS 24998-16616 New --> 6000  * EXRTP 24398-16068 New --> 6000  * LANMEM 24398-16072 New --> 5270  * MTEXR 24398-16058 New --> 6000  * MTVER 24398-16017 New --> 6000  * OPER 24398-16032 New --> 6000  * TINFDS 24998-16618 New --> 6000   % Edition/ Print %% Manual Part# Title Upd((ate Date %% ------------+---------------------------------------+--------------- % (no manual changes)    Media Part# Media Option  -------------+---------------  (no media changes)     3.2 + (91750A) DS/1000-IV    Filename Part Number Rev Change  --------------------- ----------- ---- --------  !COPY3 91750-16213 5000  #LKDS 91750-17007 5010  #RMOTA 91750-17005 2540   - 6.0 Communicator - $ 3-3 $1  & Current Revisions(91750A) &   #RMOTM 91750-17004 5010  $D3KBB 91750-12019 2201  $D3KL2 91750-12016 2201  $D3KLB 91750-12017 5020  $D3KMB 91750-12021 2201  $D3KRB 91750-12018 2201  $D3N25 91750-12029 2401  $D3X25 91750-12028 2440  $DSAL 91750-12027 5020  * $DSLB1 91750-12001 5020 --> 6000  $DSLB2 91750-12002 5020  $DSLB3 91750-12003 2540  $DSLSM 91750-12015 5020  $DSMA 91750-12008 2440  $DSMX6 91750-12023 5020  $DSNMA 91750-12010 2440  $DSNRR 91750-12011 2013  $DSNSM 91750-12012 2340  $DSRR 91750-12013 2226  $DSSM 91750-12014 5020  %#SEND 91750-16208 2140  %#SPLU 91750-16221 2013  %ADV00 91750-16286 5270  * %APLDL 91750-16040 2113 --> 6000  %CNSLM 91750-16048 2340  %COMND 91750-16049 2013  * %CSV66 91750-16268 5010 --> 6000  * %CXL66 91750-16269 5010 --> 6000  %DDA66 91750-16292 2340  %DINIS 91750-16069 5020  %DINIT 91750-16068 5020  %DLIS1 91750-16072 5000  %DLIS2 91750-16073 5000  %DSIN2 91750-16078 5020  %DSINF 91750-16077 5020  %DSINL 91750-16079 5020  %DSLIN 91750-16263 5020  %DSMOD 91750-16092 5020  %DSTES 91750-16100 2013  %DSVCP 91750-16102 5020  %DVA65 91750-16105 4010  %DVA66 91750-16107 2326  %DVB65 91750-16300 2401  %DVG67 91750-16108 2201  %DVS64 91750-16241 2140  %EDI6D 91750-16240 2140  %EXECM 91750-16111 5020  %EXECW 91750-16112 5000  %FCL7 91750-16243 2140  %GRPM 91750-16124 5020   - 6.0 Communicator -  3-4 1  & Current Revisions(91750A) &   %ID*66 91750-16126 5010  %IDS64 91750-16242 2326  %INCNV 91750-16129 2340  %IOMAP 91750-16130 5020  %LOG3K 91750-16132 2540  %LUMAP 91750-16133 5000  %LUQUE 91750-16134 2201  %MATIC 91750-16136 5010  %MDFCL 91750-16293 2340  %MDV00 91750-16109 2201  %MVCP3 91750-16212 5020  %OPERL 91750-16142 2440  %OPERM 91750-16143 2140  %OTCNV 91750-16144 2440  %PLOG 91750-16147 5020  %PROGL 91750-16150 5240  %PROGZ 91750-16226 5240  %PTOPM 91750-16151 2340  %QCLM 91750-16152 5020  %QUEUE 91750-16153 2401  %QUEX 91750-16154 2340  %QUEX1 91750-16155 5020  %QUEZ 91750-16156 2201  %QUEZ1 91750-16157 2401  * %REMAN 91750-16159 5020 --> 6000  %RESA 91750-16283 2540  %RESM 91750-16162 2440  %RESSM 91750-16163 2440  %RFAM1 91750-16164 2440  %RFAM2 91750-16165 2440  %RMOT1 91750-16168 5020  %RMOTE 91750-16167 5020  %RMTIO 91750-16169 2013  %RPCNV 91750-16170 5020  %RQCNV 91750-16171 5020  %RSM 91750-16172 5020  %RTRY 91750-16173 2301  %SGXL 91750-16234 2201  %SLCIN 91750-16176 2113  %SYSAT 91750-16202 5020  %TLOG 91750-16177 5020  %TRC3K 91750-16178 5020  %UPLIN 91750-16179 5020  %VCPMN 91750-16180 2226  %WHZ6D 91750-16527 5000  * *LDDS 91750-17008 5010 --> 6000  * A91750 91750-18999 5020 --> 6000  * A91750.MNF 91750-17999 New --> 6000  LINK2 91750-17009 5010  N.CMD 91750-17013 5010   - 6.0 Communicator - $ 3-5 $1  & Current Revisions(91750A) &   NO 91750-17012 5010  README 91750-17014 5010  * Y.CMD 91750-17010 5020 --> 6000  * YES 91750-17011 5020 --> 6000   % Edition/ Print %% Manual Part# Title Update Date %% ------------+---------------------------------------+--------------- %% 91750-91001 DS/1000-IV Cover Letter -/- E1292 %% 91750-90012 DS/1000-IV User's Man. for RTE-A & RTE-6 2/- E1292 %% 91750-90013 DS/1000-IV Gen. and Initialization Manual 2/- E1292 %% 91750-90014 DS/1000-IV Theory of Op./Troubleshooting 1/- E0590 %% 91750-90015 DS/1000-IV Quick Ref. Guide RTE-A & RTE-6 2/- E1292 % ' The following two manuals have been deleted from the product and are in ' support life until January 1, 1998.   91750-90004 DS/1000-IV Getting Started With DS/1000-IV " 91750-90006 DS/1000-IV Communications Bootstrap Loader ROM " ' The following four manuals have been deleted from the product and are in ') support life until June 30, 1995. These manuals are in support life because ) they contain information on obsoleted products.   91750-90002 DS/1000-IV User's Manual  91750-90005 DS/1000-IV Quick Reference Guide ! 91750-90010 DS/1000-IV Network Manager's Manual, Volume I !" 91750-90011 DS/1000-IV Network Manager's Manual, Volume II "    Media Part# Media Option  -------------+---------------  91750-13310 022  91750-13501 050  91750-13502 051  91750-13600 AAH     3.3 + (91751A) DSN/X.25 1000    Filename Part Number Rev Change  --------------------- ----------- ---- --------   Directory: /X25/ADM/   * A91751 91751-17999 5020 --> 6000   - 6.0 Communicator -  3-6 1  & Current Revisions(91751A) &   * M91751 91751-17997 5020 --> 6000   Directory: /X25/CMD/   ?XINFO.HLP 91751-17330 2440  ?XINIT.HLP 91751-17315 2440  ?XMOD.HLP 91751-17335 2440  ?XPLOG.HLP 91751-17320 2440  ?XTLOG.HLP 91751-17325 2440  DLOEF.X25 91751-17025 5000  DLOOA.X25 91751-17027 5000  GENPK.LOD 91751-17240 5010  INSTALL_X25A.CMD 91751-17030 5010  LAPBV.LOD 91751-17245 5010  N.CMD 91751-17037 5010  NO.CMD 91751-17038 5010  SRVEY.LOD 91751-17265 5010  TESTERROR.CMD 91751-17039 5010  X25.CMD 91751-17015 2440  X25.LOD 91751-17200 4010  XINFO.LOD 91751-17230 5010  XINIT.LOD 91751-17215 5010  XLOEF.X25 91751-17024 5000  XLOOA.X25 91751-17026 5000  XMOD.LOD 91751-17235 5010  * XNET.LOD 91751-17250 5000 --> 6000  XPLOG.LOD 91751-17220 5010  XREAD.LOD 91751-17255 5010  XTLOG.LOD 91751-17225 5010  XWRIT.LOD 91751-17260 5010  Y.CMD 91751-17035 5((010  YES.CMD 91751-17036 5010   Directory: /X25/REL/   * #X25A.REL 91751-16014 2440 --> Deleted  #X25T.REL 91751-16003 2440  #XCOM.REL 91751-16007 2440  CSPAD.REL 91751-16230 5020  CSTB.REL 91751-16006 2440  CVPAD.REL 91751-16231 5020  * DD*60.REL 91751-16005 5000 --> 6000  DDX00.REL 91751-16004 5020  DDX60.REL 91751-16002 5000  DVX00.REL 91751-16001 5020  * GENPK.REL 91751-16200 5000 --> 6000  * LAPBV.REL 91751-16180 5000 --> 6000  SRVEY.REL 91751-16220 5020  * X25DS.LIB 91751-12002 5020 --> 6000  * X25LB.LIB 91751-12001 5020 --> 6000   - 6.0 Communicator - $ 3-7 $1  & Current Revisions(91751A) &   X25NONCDS.REL 91751-16309 5000  XFOEF.REL 91751-16010 5000  XINEF.REL 91751-16008 2440  * XINFA.REL 91751-16122 5020 --> 6000  * XINIT.REL 91751-16040 5020 --> 6000  XINXA.REL 91751-16012 2440  * XMOD.REL 91751-16060 5020 --> 6000  * XNET.REL 91751-16020 5020 --> 6000  * XNFEF.REL 91751-16120 5020 --> 6000  XNFOA.REL 91751-16013 2440  * XPLOG.REL 91751-16081 5000 --> 6000  XREAD.REL 91751-16140 5000  XTLOG.REL 91751-16100 5020  XWRIT.REL 91751-16160 5010   Directory: /X25/TXT/   CSTB.MAC 91751-18006 2440   % Edition/ Print %% Manual Part# Title Update Date %% ------------+---------------------------------------+--------------- %% 91751-90002 DSN/X.25/1000 Reference Manual 4/- E0490 %% 91751-90003 DSN/X.25/1000 Advanced Guide 3/- E0490 %% 5958-3402 X.25 : THE PSN CONNECTION 2/- E1085 %    Media Part# Media Option  -------------+---------------  91751-13308 022  91751-13501 050  91751-13502 051  91751-13600 AAH     3.4 + (91781A) RJE/1000-II    Filename Part Number Rev Change  --------------------- ----------- ---- --------   Directory: /RJE/   * A91781 91781-18999 5010 --> 6000  AMERI.REL 91781-16200 2427  CANAD.REL 91781-16201 2427  CON.PAS 91781-18004 2427   - 6.0 Communicator -  3-8 1  & Current Revisions(91781A) &   CON.REL 91781-16004 2427  DANIS.REL 91781-16202 2427  DDD63.REL 91781-16030 4010  DDV63.REL 91781-16777 2427  DUTCH.REL 91781-16203 2427  ENGLI.REL 91781-16204 2427  FINNI.REL 91781-16205 2427  FMT.FTN 91781-18021 2427  FMT.REL 91781-16021 2427  FRENC.REL 91781-16206 2427  GERMA.REL 91781-16207 2427  ITALI.REL 91781-16208 2427  KATAK.REL 91781-16213 2427  NATIV.REL 91781-16214 2427  NORWE.REL 91781-16209 2427  * PASCAL.LIB 92833-16113 5000 --> Deleted  PORTU.REL 91781-16210 2427  REFERENCE_MANUAL 91781-90001 2410  RINIT.REL 91781-16002 5000  RJE.CMD 91781-17001 5000  RJE.DAT 91781-18100 5010  RJE.HELP 91781-17000 2427  RJE.LOD 91781-17003 5000  RJE.REL 91781-16001 2540  RJELB.LIB 91781-12001 4010  RJEXX.REL 91781-16003 5000  RJTAB.REL 91781-16005 2427  ROUTE.PAS 91781-18023 2540  ROUTE.REL 91781-16023 2540  SPANI.REL 91781-16211 2427  STAT.FTN 91781-18022 2427  STD3780.TXT 91781-17002 2427  SWEDI.REL 91781-16212 2427   % Edition/ Print %% Manual Part# Title Update Date %% ------------+---------------------------------------+--------------- % (no manual changes)    Media Part# Media Option  -------------+---------------  91781-13301 022  91781-13501 050  91781-13502 051  91781-13600 AAH      - 6.0 Communicator - $ 3-9 $1  & Current Revisions(91782A) &   3.5 (91782A) DSN/MRJE 1000    Filename Part Number Rev  --------------------- ----------- ----   Directory: /MRJE/   %DVN00 12792-16008 2540  A91782 91782-17999 5010  DCCMD.REL 91782-16003 5000  DCTF1.REL 91782-16004 5000  DDD63.REL 91781-16030 4010  DDV63.REL 91781-16777 2427  FMTRA.REL 91782-16007 4010  MLB00.Z80 91782-17002 4010  MLTAB.REL 91782-16008 2501  MLTRA.REL 91782-16006 5000  MRFIL.REL 91782-16005 5010  MRJE.CMD 91782-17001 5000  MRJE.DAT 91782-17003 2501  MRJE.LOD 91782-17004 5000  MRJE.REL 91782-16001 5000  MRJL.LIB 91782-12003 4010  MRJL6.LIB 91782-12002 4010  MRJLB.LIB 91782-12001 5010  MRKIL.REL 91782-16206 5000  MRLOG.REL 91782-16202 2540  POI.REL 91782-16002 5000  STOPL.REL 91782-16207 5000     3.6 (91784A) PMF/1000    Filename Part Number Rev  --------------------- ----------- ----   Directory: /PMF/   "HPFOF 91784-17005 5000  #BENCH 91784-17751 5000  #PMF 91784-17015 5000  #PMFMG 91784-17757 5000  #PMFSH 91784-17767 5000  *FMGR 91784-17773 5000  *PMF 91784-17001 5000  A91784 91784-17999 5000  BENCH.LOD 91784-17769 5000   - 6.0 Communicator -  3-10 1  & Current Revisions(91784A) &   BENCH.REL 91784-12016 4010  DDD63.REL 91781-16030 4010  DDV63.REL 91781-16777 2427  ERCDE.DAT 91784-17006 2501  HDTER_IDX.DAT 91784-17003 4010  HGSL2.LIB 91784-12003 5000  HGSLB.LIB 91784-12002 5000  HITDA.PASI 91784-18802 2501  HITSH.PASI 91784-18801 2501  HITTY.PASI 91784-18803 2501  HMSLB.LIB 91784-12001 5000  HOHLP_IDX.DAT 91784-17004 2501  HOMFL.REL 91784-16023 4010  HOSLB.LIB 91784-12006 5000  HPMDP.REL 91784-16024 4010  HPMLP.REL 91784-16025 4010  HSDPW.DAT 91784-17007 2501  HSMPH.REL 91784-16026 4010  HSMTM.REL 91784-16020 2501  HTMPP.REL 91784-16022 5000  HTMTR.REL 91784-16021 4010  HUHLP_IDX.DAT 91784-17009 5000  HUSLB.LIB 91784-12018 5000  KATAK.REL 91784-16360 2501  NATIV.REL 91784-16365 2501  PASCAL_ERR.REL 92833-16125 5000  PASCAL_TRA.REL 92833-16168 5000  PMF.CMD 91784-17771 5000  PMF.LOD 91784-17014 5000  PMF6.LIB 91784-12007 5000  PMFA.LIB 91784-12019 5000  PMFA_CDS.LIB 91784-12021 5000  PMFLB.LIB 91784-12017 5000  PMFLB_CDS.LIB 91784-12020 5000  PMFLG.REL 91784-12015 5000  PMFMD.REL 91784-16402 2501  PMFMG.LOD 91784-17770 5000  PMFMG.REL 91784-12009 5000  PMFSH.LOD 91784-17768 5000  PMFVR.REL 91784-12010 4010  PMONA.REL 91784-12011 4010  PMONB.REL 91784-12012 2501  PMONC.REL 91784-12013 4010  PSIM.REL 91784-12014 5000 (( PSI_DOWNLOAD.DAT 91784-17008 5000  SAMPLE.CON 91784-17010 2501       - 6.0 Communicator - $ 3-11 $1  & Current Revisions(91790A) &   3.7 + (91790A) NS-ARPA/1000    Filename Part Number Rev Change  --------------------- ----------- ---- --------   Directory: /NS1000/   * A91790_EZ_INSTAL.TXT 91790-17091 New --> 6000  A91790_INSTALL.TXT 91790-17034 5270   Directory: /NS1000/CATALOGS/   * INETD.C000 91790-16310 New --> 6000   Directory: /NS1000/CMD/   * INSTALL_NS1000.CMD 91790-17033 5270 --> 6000  * NSSTART_EZ.CMD 91790-17089 5240 --> 6000  N_LINK.CMD 91790-17105 5240  * OF_NS.CMD 91790-17106 5240 --> 6000   Directory: /NS1000/DOC/   BREVL.HELP 91790-17094 5020  BRTRC.HELP 91790-17095 5020  DSCOPY.HELP 91790-17103 5020  DSCOPY.HLP 91790-17037 5016  EVMON.HELP 91790-17096 5020  FMTRC.HELP 91790-17097 5020  * FTP.HELP 91790-17102 5020 --> 6000  * FTP.HLP 98170-17014 5016 --> 6000  * INETD.HELP 91790-17107 New --> 6000  LOGCHG.HELP 91790-17098 5020  NRLIST.HELP 91790-17099 5020  NSTRC.HELP 91790-17100 5020  PING.HELP 91790-17101 5240  TELNET.HELP 91790-17104 5020  TELNET.HLP 91790-17079 5000   Directory: /NS1000/DSREL/   !COPY3 91750-16213 5000  %ADV00 91750-16286 5270  * %APLDL 91750-16040 2113 --> 6000  %CNSLM 91750-16048 2340  * %CXL66 91750-16269 5010 --> 6000  * %DDA66 91750-16292 --> 2340  %DLIS2 91750-16073 5000  %DSLIN 91750-16263 5020   - 6.0 Communicator -  3-12 1  & Current Revisions(91790A) &   %DSTES 91750-16100 2013  %DSVCP 91750-16102 5020  %EXECM 91750-16111 5020  %EXECW 91750-16112 5000  %ID*66 91750-16126 5010  %IOMAP 91750-16130 5020  %LOG3K 91750-16132 2540  %LUMAP 91750-16133 5000  %LUQUE 91750-16134 2201  * %MDFCL 91750-16293 --> 2340  %MVCP3 91750-16212 5020  %OPERL 91750-16142 2440  %POPN1 91750-16148 2540  %PROGL 91750-16150 5240  %PROGZ 91750-16226 5240  %PTOPM 91750-16151 2340  %QUEX1 91750-16155 5020  %QUEZ1 91750-16157 2401  %RESA 91750-16283 2540  %RFAM2 91750-16165 2440  %RMOT1 91750-16168 5020  %RPCNV 91750-16170 5020  %RQCNV 91750-16171 5020  %SGXL 91750-16234 2201  %SYSAT 91750-16202 5020  %TRC3K 91750-16178 5020  %VCPMN 91750-16180 2226   Directory: /NS1000/ETC/   * INETD.CONF 91790-17109 New --> 6000  * SERVICES 91790-18301 New --> 6000   Directory: /NS1000/EXAMPLES/   * #ANSNS 91790-17063 5270 --> 6000  ALL_NODES.NRIN 91790-17061 5240  * BSDCLIENT.C 91790-18295 5240 --> 6000  * BSDCLIENT.FTN 91790-18290 5240 --> 6000  * BSDCLIENT.LOD 91790-17110 New --> 6000  * BSDCLIENT.PAS 91790-18292 5240 --> 6000  * BSDSERVER.C 91790-18296 5240 --> 6000  * BSDSERVER.FTN 91790-18291 5240 --> 6000  * BSDSERVER.LOD 91790-17111 New --> 6000  * BSDSERVER.PAS 91790-18293 5240 --> 6000  CHILD.FTN 91790-18269 5010  CLIENT.FTN 91790-18265 5010  CLIENT.PAS 91790-18263 5010  COPY.FTN 91790-18240 5240  COPY.PAS 91790-18239 5240   - 6.0 Communicator - $ 3-13 $1  & Current Revisions(91790A) &   DATAFILE 91790-17084 5010  DEFAULT.NSIN 91790-17088 5240  EX_LAN_WORKSHEET.TXT 91790-17055 5240  EX_RTR_WORKSHEET.TXT 91790-17056 5240  HOSTS 91790-18298 5240  IPC1.PAS 91790-18236 5240  IPC2.PAS 91790-18241 5240  IPC3.FTN 91790-18237 5240  IPC4.FTN 91790-18238 5240  NETWORKS 91790-18299 5240  NODE1_LAN.NSIN 91790-17062 5240  NODE1_RTR.NSIN 91790-17050 5240  NODE2_LAN.NSIN 91790-17051 5240  NODE2_RTR.NSIN 91790-17068 5240  * NSSTART.CMD 91790-17054 5240 --> 6000  NS_WORKSHEET.TXT 91790-17045 5240  PARENT.FTN 91790-18270 5240  PROTOCOLS 91790-18300 5240  RPM1.PAS 91790-18267 5240  RPM2.PAS 91790-18268 5000  SERVER.FTN 91790-18266 5010  SERVER.PAS 91790-18264 5010  * SERVICES 91790-18301 5240 --> Deleted   Directory: /NS1000/INCLUDE/   ERRNO.H 91790-18302 5240  EXTCALLS.PASI 91790-18279 5240  FCNTL.H 91790-18285 5240  IN.H 91790-18283 5240  NETDB.H 91790-18282 5240  SOCKET.FTNI 91790-18288 5240  SOCKET.H 91790-18281 5240  SOCKET.PASI 91790-18278 5240  TYPES.H 91790-18280 5240   Directory: /NS1000/LIB/   $D3N25 91750-12029 2401  $D3X25 91750-12028 2440  * BSD_CDS.LIB 91790-12017 5270 --> 6000  DS3K.LIB 91790-12014 5240  * NSINFLB.LIB 91790-12015 5240 --> 6000  * NSLIB.LIB 91790-12003 5240 --> 6000  * NSLIB_CDS.LIB 91790-12004 5240 --> 6000  * NSSYS.LIB 91790-12012 5240 --> 6000  * NSSYS_CDS.LIB 91790-12013 5240 --> 6000      - 6.0 Communicator -  3-14 1  & Current Revisions(91790A) &   Directory: /NS1000/LOD/   #SEND.LOD 91790-17046 5240  BREVL.LOD 91790-17001 5240  BRTRC.LOD 91790-17002 5240  CONSM.LOD 91790-17003 5240  DSCOPY.LOD 91790-17004 5240  DSLIN.LOD 91790-17005 5240  DSMOD.LOD 91790-17006 5240  EVMON.LOD 91790-17007 5000  * FMTRC.LOD 91790-17008 5240 --> 6000  * FTP.LOD 98170-17002 5240 --> 6000  * FTPMN.LOD 98170-17001 5015 --> Deleted  * FTPSV.LOD 98170-17003 5240 --> 6000  GRPM.LOD 91790-17040 5000  IFPM.LOD 91790-17039 5000  * INETD.LOD 91790-17108 New --> 6000  * INPRO.LOD 91790-17009 5240 --> 6000  LOG3K.LOD 91790-17010 5240  LOGCHG.LOD 91790-17011 5240  MATIC.LOD 91790-17043 5000  MMINIT.LOD 91790-17012 5240  NFTMN.LOD 91790-17013 5240  NRINIT.LOD 91790-17014 5240  NRLIST.LOD 91790-17015 5240  * NSINF.LOD 91790-17017 5240 --> 6000  * NSINIT.LOD 91790-17018 2608 --> 6000  NSLINK.LOD 91790-17092 5005  * NSPARS.LOD 91790-17019 2608 --> 6000  * NSPR1.LOD 91790-17020 5020 --> 6000  * NSPR2.LOD 91790-17021 5020 --> 6000  * NSPR3.LOD 91790-17022 5240 --> 6000  NSTRC.LOD 91790-17026 5240  * OUTPRO.LOD 91790-17027 5240 --> 6000  PING.LOD 98170-17004 5240  PRDC1.LOD 91790-17028 5240  * PRODC.LOD 91790-17029 5240 --> 6000  QCLM.LOD 91790-17044 5000  QUEUE.LOD 91790-17038 5000  QUEX.LOD 91790-17041 5020  QUEZ.LOD 91790-17042 5000  RMOTE.LOD 91790-17030 5240  RMOTE_X25.LOD 91790-17065 5240  RPMMN.LOD 91790-17075 5240  RQCNV.LOD 91790-17067 5240  RQCNV_X25.LOD 91790-17066 5240  TELNET.LOD 91790-17078 5240  * TNMON.LOD 91790-17076 5000 --> Deleted (( TNSRV.LOD 91790-17077 5240  UPLIN.LOD 91790-17032 5240   - 6.0 Communicator - $ 3-15 $1  & Current Revisions(91790A) &   UPLIN_X25.LOD 91790-17064 5240   Directory: /NS1000/MISC/   * A91790.MNF 91790-17998 5270 --> 6000  * A91790.SNF 91790-17999 5270 --> 6000  * NSERRS.MSG 91790-17036 5016 --> 6000  NSINIT.MSG 91790-17035 5240   Directory: /NS1000/REL/   #SEND.REL 91790-16010 5240  * BREVL.REL 91790-16022 5240 --> 6000  * BRTRC.REL 91790-16023 5240 --> 6000  * CONSM.REL 91790-16024 5240 --> 6000  * DSCOPY.REL 91790-16032 5240 --> 6000  * DSMOD.REL 91790-16037 5240 --> 6000  * DS_CDSERRORCATCH.REL 91790-16039 5240 --> 6000  * DS_ERRORCATCHER.REL 91790-16041 5240 --> 6000  ERRNODEC.REL 91790-16287 5240  * EVMON.REL 91790-16045 5240 --> 6000  * FMTER.REL 91790-16056 5240 --> Deleted  * FMTGBL.REL 91790-16057 5240 --> Deleted  * FMTRC.REL 91790-16059 5240 --> 6000  * FMTUI.REL 91790-16061 5240 --> Deleted  * FMVIN.REL 91790-16062 5240 --> Deleted  * FTP.REL 98170-16046 5240 --> 6000  FTPLIB2.REL 98170-16004 5015  * FTPMN.REL 98170-16001 5240 --> Deleted  * FTPSLIB.REL 98170-16002 5240 --> 6000  * FTPSV.REL 98170-16047 5240 --> 6000  * FTPULIB.REL 98170-16003 5240 --> 6000  GRPM.REL 91790-16065 5240  * IFPM.REL 91790-16072 5240 --> 6000  * INDEC.REL 91790-16074 5240 --> 6000  INEHTAB.REL 91790-16075 5240  * INETD.REL 91790-12019 New --> 6000  * INPRO.REL 91790-16087 5240 --> 6000  * LOGCHG.REL 91790-16111 5240 --> 6000  MATIC.REL 91790-16113 5240  * MMINIT.REL 91790-16118 5240 --> 6000  * NFTMN.REL 91790-16132 5240 --> 6000  * NRERR.REL 91790-16235 5240 --> 6000  * NRINIT.REL 91790-16139 5240 --> 6000  * NRLIST.REL 91790-16140 5240 --> 6000  * NSABP.REL 91790-16031 5000 --> 6000  * NSINF.REL 91790-16145 5240 --> 6000  * NSINIT.LIB 91790-12002 5240 --> 6000  * NSPARS.LIB 91790-12005 5240 --> 6000  * NSPEC.REL 91790-16038 2608 --> Deleted   - 6.0 Communicator -  3-16 1  & Current Revisions(91790A) &   * NSPR1.LIB 91790-12006 5240 --> 6000  * NSPR2.LIB 91790-12007 5240 --> 6000  * NSPR3.LIB 91790-12008 5240 --> 6000  * NSTRC.REL 91790-16168 5240 --> 6000  OTEHTAB.REL 91790-16171 5240  * OUTDEC.REL 91790-16172 5240 --> 6000  * OUTPRO.REL 91790-16173 5240 --> 6000  * PING.REL 98170-16006 5240 --> 6000  * PRDC1.REL 91790-16178 5240 --> 6000  * PRODC.REL 91790-16181 5240 --> 6000  PROSW_CDS.REL 91790-16182 2608  QCLM.REL 91790-16187 5240  QUEUE.REL 91790-16188 2608  * REMAT.REL 91790-16189 5240 --> 6000  * RPMMN_CDS.REL 91790-16248 5240 --> 6000  * TELNET.REL 91790-16255 5240 --> 6000  * TNMON.REL 91790-16253 5240 --> Deleted  * TNSRV.REL 91790-16254 5240 --> 6000  * UPLIN.REL 91790-16229 5240 --> 6000  * UPLN2.REL 91790-16230 5240 --> 6000   % Edition/ Print %% Manual Part# Title Update Date %% ------------+---------------------------------------+--------------- %% 91790-91001 NS-ARPA/1000 Cover Letter -/- E1292 %% 91790-90020 NS-ARPA/1000 User/Prog. Ref. Manual 5/- E1292 %% 91790-90030 NS-ARPA/1000 Gen. and Init. Manual 7/- E1292 %% 91790-90031 NS-ARPA/1000 Maint. & Principles of Op. 5/- E1292 %% 91790-90040 NS-ARPA/1000 Quick Reference Guide 4/- E1292 %% 91790-90045 NS-ARPA/1000 Error Msg. and Recovery Man. 4/- E1292 %% 91790-90050 NS-ARPA/1000 DS/1000-IV Compat. Svcs. Man. 3/- E0891 %% 91790-90060 NS-ARPA/1000 BSD IPC Reference Manual 2/- E1292 %% 5958-8523 NS Message Formats Reference Manual 4/- E1292 %% 5958-8563 NS Cross System NFT Reference Manual 3/- E0891 %    Media Part# Media Option  -------------+---------------  91790-13301 022  91790-13502 051  91790-13600 AAH          - 6.0 Communicator - $ 3-17 $1  & Current Revisions(92049A) &   3.8 (92049A) A900 Microprogramming Package    Filename Part Number Rev  --------------------- ----------- ----   Directory: /A900_MICROPROG/   A92049 92049-17999 2540  ID*42.REL 92049-16003 2540  M92049 92049-17998 2540  MPARA.LIB 92049-12002 2540  MPARA.LOD 92049-17002 2540  MPARA.REL 92049-16001 2540  WLOAD.LOD 92049-17007 2540  WLOAD.REL 92049-16002 2540  WUTLS.LIB 92049-12001 2540     3.9 + (92050A) Datapair/1000    Filename Part Number Rev Change  --------------------- ----------- ---- --------   Directory: /DATAPAIR/   * A92050 92050-17999 5000 --> 6000  DDP31.REL 92050-16001 2622  DPAIR.LIB 92050-12001 5270  DPTRP.REL 92050-16003 5000  * IDP31.REL 92050-16002 5000 --> 6000  * M92050 92050-17998 2622 --> Deleted  * M92050.MNF 92050-17998 New --> 6000  MIMON.LOD 92050-17009 5000  * MIMON.REL 92050-16017 5000 --> 6000  PAIO.LOD 92050-17002 5000  * PAIO.REL 92050-16005 2622 --> 6000  PAIR.LOD 92050-17001 5000  PAIR.REL 92050-16004 5270  * PAIR_PAIO.LIB 92050-12002 2622 --> 6000  PINIT.LOD 92050-17008 5000  * PINIT.REL 92050-16016 2622 --> 6000  PREPAIR.LOD 92050-17011 5000  * PREPAIR.REL 92050-16009 5000 --> 6000       - 6.0 Communicator -  3-18 1  & Current Revisions(92050A) &    % Edition/ Print %% Manual Part# Title Update Date %% ------------+---------------------------------------+--------------- %% 92050-90001 DataPair/1000 Reference Manual 2/- E1292 %% 92050-90003 DataPair/1000 Quick Reference Insert 2/- E1292 %% 92050-90011 DataPair/1000 Self Study Course 1/1 U1086 %    Media Part# Media Option  -------------+---------------  92050-13301 022  92050-13502 051  92050-13601 AAH     3.10 (92069A) Image/1000 (A, E, F-Series)    Filename Part Number Rev  --------------------- ----------- ----  #DBBLD 92069-18309 2340  #DBDS 92069-18308 2340  #DBMS1 92069-18304 2340  #DBMS2 92069-18305 2340  #DBMS3 92069-18306 2340  #IMAGE 92069-18288 2540  #IMAGL 92069-18289 2540  #QUERY 92069-18307 2540  #RDBA 92069-17001 2540  $DBBLL 92069-12009 2540  $DBDSL 92069-12011 5000  $DSDB 92069-12007 2340  $QRYXL 92069-12008 5000  %BAIMX 92069-16255 2026  %DBBLX 92069-16001 2540  %DBCOP 92069-16256 2540  %DBDRT 92069-16310 2340  %DBDSX 92069-16015 2540  %DBLOX 92069-16311 5000  %DBMS 92069-12002 5010  %DBRED 92069-16160 2340  %DBRSX 92069-16126 2140  %DBSPX 92069-16133 2140  %DBSTX 92069-16125 2540  %DBULX 9206((9-16127 2540  %LOCAL 92069-12006 2540   - 6.0 Communicator - $ 3-19 $1  & Current Revisions(92069A) &   %NO_DS 92069-12005 2540  %QURYX 92069-16060 5010  %RD.TB 92069-16257 2340  %RDBA 92069-12003 2540  %RDBAM 92069-16312 5000  %RDBAP 92069-16259 5010  %RECVX 92069-16134 5010  %REMOT 92069-12004 2540  *DBUP 92069-12001 2540  *IMAGA 92069-18230 2540  *IMAGE 92069-18287 2540  *IMAGX 92069-18303 2540  A92069 92069-18998 5010  QSHELP 92069-16122 2540     3.11 + (92077A) RTE-A Operating System    Filename Part Number Rev Change  --------------------- ----------- ---- --------   Directory: /RTE_A/   * !ARSTR 92077-16639 5270 --> Deleted  * !FORMC 92570-16286 New --> 6000  * !PBV 92077-16416 5270 --> Deleted  * !RESTORE 92077-16639 New --> 6000  * !VSCSI 92077-15031 5270 --> 6000  "CDSLB 92059-18027 2326  * "EDIT 92074-17004 5020 --> 6000  "FCHLP 92084-17150 2226  "MACLB 92059-18026 2326  #AB2MI 92077-17030 5000  #APLDA 92077-17132 5000  #ARSTR 92077-17101 5000  #ASAVE 92077-17100 5000  #AUTOR 92077-17042 5020  #BUILD 92077-17036 5000  * #CIA 92077-17026 5010 --> Deleted  * #CIX 92077-17105 5000 --> Deleted  * #CIX 92570-17032 New --> 6000  * #CLSDS 92077-17019 5000 --> Deleted  #COMND 92077-17043 5000  #COPYL 92077-17038 5000  #CSYS 92077-17035 5000  * #DDERR 92077-17133 5000 --> Deleted  * #DDRTR 92077-17016 5000 --> Deleted  * #DL 92077-17028 5000 --> Deleted   - 6.0 Communicator -  3-20 1  & Current Revisions(92077A) &   #DRSTR 92077-17110 5000  #DSAVE 92077-17111 5000  * #DSRTR 92077-17018 5020 --> Deleted  * #DSRTR 92570-17075 New --> 6000  #ED1KA 92074-17005 2540  #ERTSH 92077-17214 5000  #EXER 24398-17016 5010  #EXER1 24398-17015 5010  #FCA 92077-17008 5000  #FMGR 92077-17032 5000  #FORMA 92077-17286 5010  #FORMC 92077-17034 5000  #FORMF 92077-17104 5000  #FORMT 92077-17041 5000  * #FOWN 92077-17029 5000 --> Deleted  * #FPACK 92077-17012 5000 --> Deleted  #FPUT 92077-17013 5000  #FSCON 92077-17014 5000  * #FST 92077-17273 5000 --> Deleted  * #FSTP 92077-17274 5000 --> Deleted  * #FVERI 92077-17015 5020 --> Deleted  #HPMDM 92077-17280 5000  #INSTL 92077-17039 5000  #IS 92077-17112 5000  #LIF 92077-17033 5000  * #LINDX 92077-17021 5000 --> Deleted  * #LINK 92077-17020 5010 --> Deleted  * #LINK2 92077-17134 5000 --> Deleted  * #MACRO 92059-17004 5000 --> 6000  #METER 92077-17130 5000  #MEXPL 92077-17287 5000  #MI2AB 92077-17031 5000  #MSGM 92089-17002 2440  #MTEXR 92077-17288 5000  #NLSID 92089-17013 2540  #OLDRE 92059-17002 2213  * #PBV 92077-17010 2540 --> Deleted  #PRIN0 92077-17025 5000  #PRINT 92077-17024 5000  #RMTERM 92077-17279 5000  #RS 92077-17115 5020  #RTAGN 92077-17040 5000  * #TF 92077-17102 5000 --> Deleted  #TRFAS 92077-17017 5020  * $BIGLB 92077-12006 5270 --> Deleted  * $CMDLB 92077-12004 5020 --> 6000  $COMPT 92077-12031 5000  * $CRLIB 92077-12025 5020 --> Deleted  * $CRLIB 92570-12017 New --> 6000  $DBULB 92077-12027 5020   - 6.0 Communicator - $ 3-21 $1  & Current Revisions(92077A) &   * $DDLIB 92077-12030 2441 --> Deleted  $DKLIB 92077-12024 5020  * $DSLDR 92077-12015 5270 --> Deleted  * $DSLDR 92570-12005 New --> 6000  * $DTCLB 92071-12015 5020 --> 6000  * $ED1KA 92074-12011 5020 --> 6000  $EMCLB 92077-12007 2214  $FCL1 92084-12085 2540  $FCL2 92084-12086 2540  $FDSLB 24998-12004 5000  $FLIB 24998-12008 5010  * $FMGR 92077-12005 5020 --> 6000  * $FMP 92077-12003 5270 --> Deleted  * $FMP 92570-12008 New --> 6000  * $FMP1 92077-12041 5270 --> Deleted  * $FMP2 92077-12042 5270 --> Deleted  * $FMPC 92077-12018 5270 --> Deleted  * $FMPC 92570-12027 New --> 6000  $FNDLB 24998-12005 2227  $FNEWF 24998-12010 5020  $FOLDF 24998-12009 5000  * $FST 92077-12036 5270 --> Deleted  * $FSTA 92077-12037 4010 --> 6000  $HPIB 92077-12021 5020  $LDRLN 92084-12038 5020  $MATH 24998-12007 5010  * $PBULB 92077-12019 5270 --> 6000  $PRINT 92077-12008 5020  * $SFMP 92570-12031 New --> 6000  * $SYSA 92077-12001 5020 --> Deleted  * $SYSA 92570-12003 New --> 6000  * $SYSLB 92077-12012 5270 --> Deleted  * $SYSLB 92570-12006 New --> 6000  * $TFLIB 92077-12020 5000 --> Deleted  $VLB6B 12829-12002 2214  * $VLBA1 92077-12014 5010 --> Deleted  * $VLBA1 92570-12004 New --> 6000  $WFCLB 92077-12022 2327  * %$IDRPL 92077-16994 5020 --> Deleted  * %$IDRPL 92570-16009 New --> 6000  * %$M000 92089-16002 5020 --> 6000  %$MWB1 92077-16097 2227  %AB2MI 92077-16433 2441  * %ABORT 92077-16826 5020 --> Deleted  * %ABORT 92570-16010 New --> 6000  %ALARM 92077-16870 5000  * %APLDA 92077-16098 2540 --> 6000  * %ARSTR 92077-16587 5270 --> 6000  * %ASAVE 92077-16586 5270 --> 6000  %ATRAN 92059-16013 2540   - 6.0 Communicator -  3-22 1  & Current Revisions(92077A) &   %AUTOR 92077-16385 5020  * %BIGLB 92570-16180 New --> 6000  * %BUILD 92077-16336 5270 --> Deleted  * %BUILD 92570-12012 New --> 6000  * %CA000 92077-16740 5020 --> Deleted  * %CI 92077-16445 5270 --> Deleted  * %CI000 92077-16737 5020 --> Deleted  * %CI000 92570-16161 New --> 6000  * %CISUB 92077-16535 5020 --> Deleted  * %CIX 92077-16651 5020 --> Deleted  * %CIX 92570-16164 New --> 6000  %CKTRM 92077-16748 2441  * %CL000 92077-16781 5010 --> Deleted  * %CL000 92570-16155 New --> 6000  * %CLASS 92077-16442 5020 --> Deleted  * %CLASS 92570-16022 New --> 6000  * %CLSDS 92077-16463 5010 --> Deleted  * %CMPBF 92077-16415 2303 --> Deleted  %COMND 92077-16076 2214  %COPYL 92070-16336 2327  * %CR000 92077-16739 5010 --> Deleted  * %CR000 92570-16159 New --> 6000  * %CSYS 92((077-16636 5020 --> 6000  * %CX000 92077-16738 5000 --> Deleted  * %CX000 92570-16232 New --> 6000  %DD*00 92077-16699 2540  %DD*12 92077-16758 2441  %DD*20 92077-16727 2441  %DD*23 92077-16730 2441  * %DD*24 92077-16648 5270 --> 6000  %DD*30 92077-16669 5000  * %DD*33 92077-16668 5020 --> 6000  %DD*36 92077-16732 2441  %DDC12 92077-16386 2402  * %DDERR 92077-16778 5010 --> Deleted  %DDM30 92077-16666 5000  * %DDRTR 92077-16455 5270 --> Deleted  * %DE000 92077-16779 5010 --> Deleted  * %DE000 92570-16190 New --> 6000  %DECAR 24306-16001 2540  * %DL 92077-16447 5020 --> Deleted  * %DL000 92077-16759 5010 --> Deleted  * %DL000 92570-16152 New --> 6000  %DRSTR 92077-16701 5000  * %DSAVE 92077-16702 5000 --> 6000  * %DSQ 92077-16721 5000 --> Deleted  * %DSQ 92570-16024 New --> 6000  * %DSRTR 92077-16462 5270 --> Deleted  * %DSRTR 92570-16257 New --> 6000  %ED000 92074-16055 5020   - 6.0 Communicator - $ 3-23 $1  & Current Revisions(92077A) &   * %EDIT 92074-12008 5020 --> 6000  * %ERLOG 92077-16147 5020 --> Deleted  * %ERLOG 92570-16030 New --> 6000  %ERTLB 92077-16816 2526  %ERTSH 92077-16815 2526  * %EXEC 92077-16136 5270 --> 6000  %EXER 24398-16062 5020  * %EXER1 24398-16066 5020 --> 6000  %FC0 92084-15042 2540  * %FC000 92077-16787 5010 --> 6000  %FC1 92084-15043 2540  %FC2 92084-15044 2540  %FC3 92084-15045 2540  %FC4 92084-15046 5000  %FC5 92084-15047 2540  %FC6 92084-15048 2540  %FCMA 92077-12016 5000  %FFL 92077-16067 5000  %FMGR 92077-16310 2540  * %FORMA 92077-16814 5000 --> 6000  * %FORMC 92077-16786 5010 --> 6000  * %FORMF 92077-16393 5000 --> 6000  %FORMT 92077-16697 5010  * %FOWN 92077-16449 5010 --> Deleted  * %FP000 92077-16768 5020 --> Deleted  * %FP000 92570-16178 New --> 6000  * %FPACK 92077-16451 5020 --> Deleted  * %FPUT 92077-16452 5270 --> 6000  * %FS000 92077-16904 5270 --> Deleted  * %FS000 92570-16111 New --> 6000  * %FSCON 92077-16453 5000 --> 6000  * %FST 92077-16906 5270 --> Deleted  * %FSTP 92077-16907 5270 --> Deleted  %FT000 92077-16773 5010  * %FV000 92077-16764 5020 --> Deleted  * %FV000 92570-16174 New --> 6000  * %FVERI 92077-16454 5020 --> Deleted  * %FW000 92077-16766 5010 --> Deleted  %GEN27 92077-16629 5020  %GEN67 91830-16002 2544  %ID*00 92077-16756 2540  %ID*01 92077-16390 2540  %ID*27 92077-16628 5020  %ID*36 92077-16722 2441  %ID*37 92077-16696 5020  %ID*43 92077-16096 5020  %ID*50 92077-16667 5010  * %ID*52 92077-16753 2441 --> 6000  %ID*67 91830-16001 5270  %ID000 92089-16059 2540   - 6.0 Communicator -  3-24 1  & Current Revisions(92077A) &   %IDM00 92077-16754 5020  %IDM37 92077-16700 2402  %IDS00 92077-16755 5000  * %INSTL 92077-16090 5270 --> 6000  * %IOMOD 92077-16471 5020 --> Deleted  * %IOMOD 92570-16020 New --> 6000  * %IORQ 92077-16827 5270 --> Deleted  * %IORQ 92570-16021 New --> 6000  %IS 92077-16724 5010  * %LIF 92077-16638 5020 --> 6000  * %LINDX 92077-12026 5000 --> Deleted  * %LINKA 92077-16464 5270 --> Deleted  * %LINKB 92077-16466 5270 --> Deleted  * %LK000 92077-16749 5270 --> Deleted  * %LOAD 92077-16156 5020 --> Deleted  * %LOAD 92570-16016 New --> 6000  * %LOCK 92077-16484 5270 --> Deleted  * %LOCK 92570-16023 New --> 6000  * %MACR0 92059-16015 5000 --> 6000  * %MACR1 92059-16016 5000 --> 6000  * %MACR2 92059-16017 5000 --> 6000  * %MACR3 92059-16018 5000 --> 6000  %MACR4 92059-16019 5000  * %MACR5 92059-16020 5000 --> 6000  * %MACR6 92059-16021 5000 --> 6000  * %MACR7 92059-16022 5000 --> 6000  * %MACRE 92059-16030 5000 --> 6000  * %MACRL 92059-16029 5020 --> 6000  * %MACRO 92059-16014 5020 --> 6000  %MAPOS 92077-16728 5000  * %MAPS 92077-16828 5020 --> Deleted  * %MAPS 92570-16011 New --> 6000  %MDMLB 92077-16392 5000  * %MEMRY 92077-16469 5010 --> Deleted  * %MEMRY 92570-16012 New --> 6000  %METER 92077-16733 5020  %MEXPL 92077-16663 2401  * %MI2AB 92077-16432 2540 --> 6000  %MODEM 92077-16391 2540  %MSGM 92089-12001 2440  * %MSGTB 92089-16001 5020 --> 6000  %MSOUT 92077-16776 2540  %MTEXR 92077-16649 5020  %MUXUP 92077-16660 5270  %NLSID 92089-16057 2540  * %OLDRE 92059-16023 5000 --> 6000  %OPMSG 92077-16151 5000  * %PBV 92077-16414 2441 --> Deleted  * %PERR 92077-16472 2540 --> Deleted  * %PERR 92570-16014 New --> 6000   - 6.0 Communicator - $ 3-25 $1  & Current Revisions(92077A) &   %PR000 92077-16714 5020  %PRIN0 92077-16054 5020  %PRINT 92077-16009 5020  * %PROGS 92077-16829 5020 --> Deleted  * %PROGS 92570-16013 New --> 6000  * %RPL40 92077-16949 5270 --> 6000  * %RPL41 92077-16948 5270 --> 6000  * %RPL42 92078-16103 5270 --> 6000  * %RPL43 92078-16104 5270 --> 6000  * %RPL60 92077-16475 5270 --> 6000  * %RPL61 92077-16476 5270 --> 6000  * %RPL70 92077-16477 5270 --> 6000  * %RPL71 92077-16478 5270 --> 6000  * %RPL90 92077-16479 5270 --> 6000  %RS 92077-16731 2540  %RS000 92077-16784 2540  * %RTAGN 92077-16077 5270 --> Deleted  * %RTAGN 92570-12022 New --> 6000  * %RTIOA 92077-16470 5270 --> 6000  * %SAM 92077-16443 5000 --> 6000  * %SAMON 92077-16736 5020 --> Deleted  * %SCHED 92077-16141 5000 --> Deleted  * %SCHED 92570-16025 New --> 6000  %SECON 92077-16783 5000  * %SIGNL 92077-16869 5270 --> Deleted  * %SIGNL 92570-16031 New --> 6000  %SPCOM 92077-16744 5000  %SPSLG 92077-16745 5010  %STAT 92077-16154 5020  %STRNG 92077-16444 5000  %SWAP 92077-16735 2540  * %SYCOM 92077-16149 5010 --> Deleted  * %SYCOM 92570-16026 New --> 6000  * %TF 92077-16598 5000 --> Deleted  %TIME 92077-16438 5010  * %TRFAS 92077-16461 5010 --> 6000  * %UTIL 92077-16830 5010 --> Deleted  * %UTIL 92570-16017 New --> 6000  * %VCTR 92077-16473 5270 --> Deleted  * %VCTR 92570-16018 New --> 6000  * %V((EMA 92077-16741 5010 --> Deleted  * %VEMA 92570-16019 New --> 6000  %VISOA 92077-16383 2302  * %XCMND 92077-16152 5020 --> Deleted  * %XCMND 92570-16015 New --> 6000  &AUTOR 92077-18385 5020  * &BIGLB 92077-18073 5270 --> Deleted  * &CDSONOFF 92059-18024 5020 --> 6000  &FFL 92077-18067 5000  &MUXUP 92077-18660 5270   - 6.0 Communicator -  3-26 1  & Current Revisions(92077A) &   * >FS000 92077-16905 5270 --> Deleted  * >FS000 92570-16112 New --> 6000  >LG000 92089-16028 2440  >LG001 92089-16029 2440  >LG002 92089-16030 2440  >LG003 92089-16031 2440  >LG004 92089-16032 2440  >LG005 92089-16033 2440  >LG006 92089-16034 2440  >LG007 92089-16035 2440  >LG008 92089-16036 2440  >LG009 92089-16037 2440  >LG010 92089-16038 2440  >LG011 92089-16039 2440  >LG012 92089-16040 2440  >LG013 92089-16041 2440  >LG041 92089-16042 2440  >LG291 92089-16043 2440  * >LK000 92077-16750 5270 --> Deleted  >MS000 92089-16008 2440  * >TF000 92077-16763 5000 --> Deleted  * >TF000 92570-16194 New --> 6000  * A92077 92077-18999 5020 --> 6000  * A990FWID.LOD 12990-17001 New --> 6000  * A990FWID.REL 12990-16020 New --> 6000  ASK.REL 92077-16964 5000  * BIGLB.MRG 92077-17239 5000 --> Deleted  * BIGLB.MRG 92570-17038 New --> 6000  * BIGLB_BLD.CMD 92077-17260 5020 --> Deleted  * BOOTEX 92077-16364 5270 --> Deleted  * BOOTEX 92570-16071 New --> 6000  * CALLB.FTN 92077-18941 5000 --> 6000  * CALLM.REL 92570-16262 New --> 6000  CALLS.LOD 92077-17317 5020  * CALLS.REL 92077-12044 5020 --> 6000  * CINC.LOD 92570-17030 New --> 6000  * CINC.REL 92570-16156 New --> 6000  * CINFO 24998-16620 5270 --> 6000  * CINFR 24998-16628 5270 --> 6000  * CISUB.R000 92570-16158 New --> 6000  * CISUBNC.REL 92570-15072 New --> 6000  CLOCK.LOD 92570-17080 5270  CLOCK.REL 92570-16267 5270  * CLOSE.LOD 92570-17028 New --> 6000  * CLOSE.REL 92570-16154 New --> 6000  * DDC00.REL 92077-16888 5270 --> 6000  * DDC01.REL 92077-16889 5270 --> 6000  * DDERR.LOD 92570-17042 New --> 6000  * DDERR.REL 92570-16189 New --> 6000  * DDLIB.REL 92570-16191 New --> 6000   - 6.0 Communicator - $ 3-27 $1  & Current Revisions(92077A) &   * DDQ24.REL 92077-15024 5270 --> 6000  * DDQ24_GEN.MAC 92077-19025 New --> 6000  * DDQ24_GEN.REL 92077-15025 5270 --> 6000  * DDQ30.MAC 92077-19020 New --> 6000  * DDQ30.REL 92077-15020 5270 --> 6000  * DDQ30_GEN.MAC 92077-19021 New --> 6000  * DDQ30_GEN.REL 92077-15021 5270 --> 6000  * DDRTR.LOD 92570-17037 New --> 6000  * DDRTR.REL 92570-12019 New --> 6000  * DL.LOD 92570-17012 New --> 6000  * DL.REL 92570-16074 New --> 6000  * DOWNLOAD.LOD 12990-17002 New --> 6000  * DOWNLOAD.REL 12990-16022 New --> 6000  * FCO 92077-16808 5270 --> Deleted  FMPSPLIT.MRG 92077-17306 5000  * FORMF 92077-16810 5270 --> Deleted  * FOWN.LOD 92570-17069 New --> 6000  * FOWN.R000 92570-16239 New --> 6000  * FOWN.REL 92570-16237 New --> 6000  * FPACK.LOD 92570-17036 New --> 6000  * FPACK.REL 92570-16176 New --> 6000  * FREES.C000 92077-16770 5020 --> 6000  FREES.LOD 92077-17011 5020  * FREES.REL 92077-16450 5020 --> 6000  * FST.LOD 92570-17023 New --> 6000  * FST.REL 92570-12014 New --> 6000  * FSTLIB.LIB 92570-12015 New --> 6000  * FSTP.LOD 92570-17024 New --> 6000  * FSTP.REL 92570-16113 New --> 6000  * FVERI.LOD 92570-17035 New --> 6000  * FVERI.REL 92570-16173 New --> 6000  * GETFWID.REL 12990-16021 New --> 6000  * GREP.LOD 92570-17020 New --> 6000  * GREP.REL 92570-12013 New --> 6000  * HPCRT.LIB 92077-12035 5270 --> 6000  HPC_NR.LIB 92571-16010 3200  HPC_NRE.LIB 92571-16013 3200  * HPMDM.FTN 92077-18938 5240 --> 6000  * HPMDM.REL 92077-16938 5240 --> 6000  HPMDM_LIB.MAC 92077-18939 5270  HPMDM_LIB.REL 92077-16939 5270  HPMDM_TABLE.MAC 92077-18940 4010  HPMDM_TABLE.REL 92077-16940 4010  ID100.REL 92077-16885 5270  ID101.REL 92077-16886 5270  ID200.REL 92077-16996 5270  ID400.REL 92077-16883 5270  * ID800.REL 92077-16887 5270 --> 6000  * ID801.REL 92077-16957 5270 --> 6000  * IDQ35.REL 92077-15019 5270 --> 6000   - 6.0 Communicator -  3-28 1  & Current Revisions(92077A) &   * IDR37.REL 92077-15008 5020 --> 6000  * IDZ00.REL 92077-16968 5270 --> 6000  IO.LOD 92077-17027 5010  * IO.R000 92077-16761 5270 --> 6000  * IO.REL 92077-16446 5270 --> 6000  LAN8023.CMD 91830-17018 5020  * LI.LOD 92077-17108 5020 --> 6000  * LI.R000 92077-16977 5010 --> 6000  * LI.REL 92077-16646 5020 --> 6000  * LINDX.LOD 92570-17087 New --> 6000  * LINDX.REL 92570-12029 New --> 6000  * LINK.C000 92570-16007 New --> 6000  * LINK.LOD 92570-17003 New --> 6000  * LINK.R000 92570-16008 New --> 6000  * LINKA.REL 92570-12001 New --> 6000  * LINKB.REL 92570-12002 New --> 6000  * LI_VMA.REL 92077-16986 5020 --> 6000  * LS.LOD 92570-17082 New --> 6000  * LS.REL 92570-16270 New --> 6000  * M92077 92077-18998 5270 --> 6000  MENU 91830-17009 5000  MERGE.LOD 92077-17023 5010  MERGE.R000 92077-16980 5010  * MERGE.REL 92077-16431 5020 --> 6000  MONITOR.LOD 92077-17257 5010  MONITOR.REL 92077-12033 5020  * MPACK.LOD 92077-17309 5020 --> Deleted  * MPACK.LOD 92570-17034 New --> 6000  * MPACK.R000 92570-16166 5270 --> 6000  * MPACK.REL 92570-16165 5270 --> 6000  MSG.M 92089-17005 2440  NM.LOD 91830-17024 5000  NM.REL 91830-16004 5000  NM2.LOD 91830-17015 5000  NM2.REL 91830-16005 5000  NMGR.LOD 91830-17016 5000  NMGR.REL 91830-16006 5000  NMSTK.LIB 91830-12001 5000  * PASCAL.LIB 92833-16113 5000 --> 6000  PASCAL_ERR.REL 92833-16125 5000  PASCAL_ERR_ALT.REL 92833-16222 5000  * PASCAL_FMGR.LIB 92833-16107 5000 --> 6000  PASCAL_FMGR_ALT.LIB 92833-16210 5000  * PRIMARY.ANS 92077-17326 5270 --> 6000  READR.LOD 91830-17003 5000  READR.REL 91830-16003 2544  * REV10UPGRADE.MIC 12990-16019 New --> 6000  RMTERM.FTN 92077-18942 5010  RMTERM.REL 92077-16942 5010  * RPL_A900_REV4.REL 92077-15018 5270 --> 6000   - 6.0 Communicator - $ 3-29 $1  & Current Revisions(92077A) &   * RPL_A990.REL 92077-15030 5270 --> 6000  * RTEA1.CMD 92077-17194 5270 --> 6000  * RTEA2.CMD 92077-17195 5020 --> 6000  * SAM.LOD 92077-17131 5010 --> Deleted  * SAM.LOD 92570-17009 New --> 6000  * SAMU.R000 (( 92077-16988 5020 --> Deleted  * SAMU.R000 92570-16067 New --> 6000  * SAMU.REL 92077-16734 5020 --> Deleted  * SAMU.REL 92570-16065 New --> 6000  * SBIGLB.MRG 92570-17090 New --> 6000  SCOM.C000 92077-16985 5010  SCOM.LOD 92084-17036 5010  * SCOM.REL 92077-16983 5020 --> 6000  * SEC1000.LIB 92078-12004 5020 --> Deleted  * SEC1000.LIB 92570-12011 New --> 6000  SETVCPSTRING.LOD 92570-17081 5270  SETVCPSTRING.REL 92570-16268 5270  SHSLB.LIB 92833-16220 5000  SHSLB_ALT.LIB 92833-16221 5000  SPORT.LOD 92077-17303 5010  SPORT.REL 92077-16963 5020  * TF.LOD 92570-17043 New --> 6000  * TF.REL 92570-16192 New --> 6000  * TFLIB.LIB 92570-12021 New --> 6000  * TINFO 24998-16622 5270 --> 6000  * TINFR 24998-16626 5270 --> 6000  * UPGRADE60.CMD 92570-17101 New --> 6000  * VSCSI.LOD 92077-17322 5270 --> 6000  * VSCSI.REL 92077-15022 5270 --> 6000  VSCSILIB.REL 92077-15023 5270  * WH.LOD 92077-17022 5010 --> Deleted  * WH.LOD 92570-17014 New --> 6000  * WH.R000 92077-16760 5020 --> Deleted  * WH.R000 92570-16079 New --> 6000  * WH.REL 92077-16110 5020 --> Deleted  * WH.REL 92570-16075 New --> 6000  * WHSUB.REL 92077-16111 5020 --> Deleted  * XFMP.LIB 92077-12010 5270 --> 6000  XMB.REL 92077-16864 5000  * ZLPBK.HEX 12016-16212 New --> 6000  * ZRAMTST.HEX 12016-16211 New --> 6000   Directory: /RTE_A/HELP/   ??.HELP 92077-17099 5020  ADVLINK.HELP 92077-17258 5020  AS.HELP 92077-17048 5020  ASK.HELP 92077-17301 5020  AT.HELP 92077-17049 5020  BR.HELP 92077-17050 5020   - 6.0 Communicator -  3-30 1  & Current Revisions(92077A) &   * CALLM.HELP 92570-17078 New --> 6000  * CALLS.HELP 92570-17077 New --> 6000  * CD.HELP 92077-17051 5020 --> 6000  CI.HELP 92077-17045 5020  * CL.HELP 92077-17052 5020 --> 6000  * CLOSE.HELP 92570-17029 New --> 6000  * CN.HELP 92077-17053 5020 --> 6000  * CO.HELP 92077-17054 5020 --> 6000  * CR.HELP 92077-17055 5020 --> 6000  * CRDIR.HELP 92077-17056 5020 --> 6000  * CZ.HELP 92078-17085 New --> 6000  * DC.HELP 92077-17057 5020 --> 6000  * DL.HELP 92077-17058 5020 --> Deleted  * DL.HELP 92570-17021 New --> 6000  * DT.HELP 92077-17059 5020 --> 6000  * ECHO.HELP 92077-17117 5020 --> 6000  EX.HELP 92077-17061 5020  * FOWN.HELP 92077-17063 5020 --> Deleted  * FOWN.HELP 92570-17070 New --> 6000  * FPACK.HELP 92077-17065 5020 --> 6000  * FREES.HELP 92077-17062 5020 --> 6000  * FVERI.HELP 92077-17064 5020 --> 6000  GO.HELP 92077-17066 5020  * GREP.HELP 92570-17019 New --> 6000  IF.HELP 92077-17118 5020  * IN.HELP 92077-17067 5020 --> 6000  * IO.HELP 92077-17068 5270 --> 6000  IS.HELP 92077-17119 5020  * LI.HELP 92077-17069 5020 --> 6000  LINDX.HELP 92077-17070 5020  * LINK.HELP 92077-17044 5020 --> 6000  * LS.HELP 92570-17083 New --> 6000  MACRO.HELP 92059-17003 5020  * MASK.HELP 92077-17071 5020 --> Deleted  * MASK.HELP 92570-17022 New --> 6000  * MC.HELP 92077-17072 5020 --> 6000  * MERGE.HELP 92077-17073 5020 --> 6000  METER.HELP 92077-17128 5020  * MO.HELP 92077-17074 5020 --> 6000  * MPACK.HELP 92077-17310 5020 --> 6000  * NOTIFY.HELP 92077-17319 5020 --> 6000  OF.HELP 92077-17075 5020  * OWNER.HELP 92077-17076 5020 --> 6000  * POLL.HELP 92077-17324 New --> 6000  PR.HELP 92077-17077 5020  * PRINT.HELP 92077-17079 5020 --> 6000  PROT.HELP 92077-17080 5020  * PS.HELP 92077-17120 5020 --> 6000  PU.HELP 92077-17081 5020  * PWD.HELP 92077-17329 New --> 6000   - 6.0 Communicator - $ 3-31 $1  & Current Revisions(92077A) &   RN.HELP 92077-17082 5020  * RP.HELP 92077-17083 5020 --> 6000  RS.HELP 92077-17121 5020  * RU.HELP 92077-17084 5020 --> 6000  SAM.HELP 92077-17129 5020  SCOM.HELP 92077-17307 5020  SET.HELP 92077-17123 5020  SS.HELP 92077-17086 5020  STACK.HELP 92077-17311 5020  * SZ.HELP 92077-17087 5020 --> 6000  TM.HELP 92077-17088 5020  * TO.HELP 92077-17089 5020 --> 6000  TR.HELP 92077-17090 5020  * UL.HELP 92077-17091 5020 --> 6000  * UNPU.HELP 92077-17092 5020 --> 6000  UNSET.HELP 92077-17125 5020  UP.HELP 92077-17093 5020  * VS.HELP 92077-17094 5020 --> 6000  WD.HELP 92077-17095 5020  * WH.HELP 92077-17096 5020 --> 6000  WHILE.HELP 92077-17126 5020  * WS.HELP 92077-17097 5020 --> 6000  * XQ.HELP 92077-17098 5020 --> 6000   Directory: /RTE_A/MAIL/   ADDRESSBOOK.MAIL 92511-17013 5020  * CDS_MAIL1K.LIB 92511-12006 5020 --> 6000  * DNS_RESOLVER.LIB 92511-12008 New --> 6000  * DNS_SENDMAIL.LOD 92511-17021 New --> 6000  * DNS_SENDMAIL.REL 92511-12009 New --> 6000  * DNS_SMTP.LOD 92511-17022 New --> 6000  * DNS_SMTP.REL 92511-12010 New --> 6000  DUMMYDS.REL 92077-15014 5020  * INETD.C000 92511-16040 5020 --> Deleted  * INETD.CONF 92511-17018 5020 --> Deleted  * INETD.HELP 92511-17019 5020 --> Deleted  * INETD.LOD 92511-17020 5020 --> Deleted  * INETD.REL 92511-12007 5020 --> Deleted  * INSTALLMAIL.CMD 92511-17014 5020 --> 6000  M1KSS.LOD 92077-17320 5020  * M1KSS.REL 92077-15015 5020 --> 6000  * MAIL.C000 92511-17006 5020 --> 6000  * MAIL.CALL 92511-16029 5020 --> 6000  MAIL.CF 92511-17015 5020  * MAIL.HELP 92511-17012 5020 --> 6000  MAIL.LOD 92511-17001 5020  * MAIL.REL 92511-12001 5020 --> 6000  * MAIL1K.LIB 92511-12005 5020 --> 6000  * MAILSUBS.LIB 92511-12002 5020 --> 6000   - 6.0 Communicator -  3-32 1  & Current Revisions(92077A) &   * NAMED.BOOT 92511-17026 New --> 6000  * NAMED.REL 92511-12013 New --> 6000  NEWMAIL.LOD 92511-17008 5020  NEWMAIL.R000 92511-16023 5020  * NEWMAIL.REL 92511-16020 5020 --> 6000  NOTIFY.LOD 92077-17318 5020  * NOTIFY.REL 92077-15017 5020 --> 6000  RDMSG.LOD 92511-17010 5020  * RDMSG.REL 92511-16021 5020 --> 6000  * RESOLV.CONF 92511-17024 New --> 6000  * RESOLVER.FTNI 92511-18044 New --> 6000  * RMAIL.LIB 92511-12004 5020 --> 6000  RMAIL.LOD 92511-17003 5020  * RMAIL.REL 92511-12003 5020 --> 6000  SENDMAIL.LOD 92511-17007 5020  * SENDMAIL.REL 92511-16018 5020 --> 6000  * SERVICES 92511-17017 5020 --> Deleted  * SIG_NAMED.HELP 92511-17027 New --> 6000  * SIG_NAMED.REL 92511-16054 New --> 6000  SMTP.LOD 92511-17016 5020  * SMTP.REL 92511-16033 5020 --> 6000  * UUDECODE.REL 92511-12011 New --> 6000  * UUENCODE.HELP 92511-17025 New --> 6000  * UUENCODE.REL 92511-12012 New --> 6000   % Edition/ Print %% Manual Part# Title Update Date %% ------------+---------------------------------------+-((-------------- %% 59310-90064 HP-IB In HP 1000 Comp. Syst. Users Man. 8/- E1292 %% 92059-90001 MACRO/1000 Reference Manual 3/- E1292 %% 92074-90001 EDIT/1000 User's Manual 3/- E1292 %% 92077-90002 RTE-A User's Manual 6/- E1292 %% 92077-90004 RTE-A Utilities Manual 5/- E1292 %% 92077-90007 RTE-A Programmer's Reference Manual 6/- E1292 %% 92077-90011 RTE-A Driver Reference Manual 6/- E1292 %% 92077-90013 RTE-A System Design Manual 5/- E1292 %% 92077-90019 RTE-A Driver Designer's Manual 3/1 E0790 %% 92077-90020 RTE-A Quick Reference Guide 7/- E1292 %% 92077-90034 RTE-A System Gen. and Install. Manual 6/- E1292 %% 92077-90035 RTE-A LINK User's Manual 4/- E1292 %% 92077-90036 RTE-A Index and Glossary 5/- E1292 %% 92077-90037 Relocatable Libraries Reference Manual 5/- E1292 % RTE-A/RTE-6/VM % 92077-90038 RTE-A Primary System Software Install. 10/- E1292 %% 92077-90039 Getting Started With RTE-A 2/1 E0189 %% 92077-90050 RTE-A Software Entry Point Directory 7/- E1292 %% 92077-90056 RTE-A System Manager's Manual 3/- E1292 %% 92511-90001 RTE-A Mail/1000 User's Manual 2/- E1292 %   - 6.0 Communicator - $ 3-33 $1  & Current Revisions(92077A) &     Media Part# Media Option  -------------+---------------  92077-13305 022  24998-13328 022  92077-13312 022  24998-13327 022  92077-13311 022  92077-13511 050  92077-13512 051  92077-13520 061  24998-13540 061  92077-13512 061  24998-13539 061  92077-13519 061  92077-13605 AAH  92077-13601 AAH  92077-13603 AAH  24998-13613 AAH  24998-13614 AAH     3.12 + (92078A) RTE-A Virtual Code+ (VC+)    Filename Part Number Rev Change  --------------------- ----------- ---- --------   Directory: /VCPLUS/   * #CICDS 92078-17010 5010 --> Deleted  * #CIXC 92078-17013 5000 --> Deleted  * #LOGON 92078-17005 5000 --> Deleted  #OUTPT 92078-17003 5000  #PATH 92078-17020 5000  #PROMT 92078-17007 5000  #RESTR 92078-17030 5000  #RINFO 92078-17014 5000  #SINFO 92078-17016 5000  #SMP 92078-17004 5000  #SP 92078-17001 5000  #SPGET 92078-17002 5000  * #WHOSD 92078-17019 5000 --> Deleted  * $BGCDS 92078-12003 5270 --> Deleted  * $CDS 92078-12001 5270 --> Deleted  * $CDS 92570-12025 New --> 6000  * $CRCDS 92078-12002 5020 --> Deleted  * $FCDS 24998-12011 5270 --> 6000   - 6.0 Communicator -  3-34 1  & Current Revisions(92078A) &   $FNDLB 24998-12005 2227  * $LNLIB 92078-16029 2540 --> Deleted  * $SCDS 92570-12030 New --> 6000  * %BGCDS 92570-16252 New --> 6000  * %CDSFH 92078-16001 5020 --> Deleted  * %CDSFH 92570-16233 New --> 6000  * %CICDS 92078-16016 5270 --> Deleted  * %CIXC 92078-16033 5020 --> Deleted  * %CR000 92570-16159 New --> 6000  * %DL000 92570-16152 New --> 6000  * %ENVRN 92570-16279 New --> 6000  * %GR000 92078-16094 5010 --> Deleted  %KI000 92078-16098 5000  * %LN000 92078-16028 5010 --> Deleted  * %LOGON 92078-16013 5020 --> Deleted  %OUTPT 92078-16005 5010  * %PATH 92078-16026 5010 --> Deleted  * %PATH 92570-16282 New --> 6000  %PM000 92078-16027 5010  %PROMT 92078-16015 5020  %PT000 92078-16024 5010  %RE000 92078-16032 5000  %RESTR 92078-16031 5000  %RI000 92078-16096 5010  %RINFO 92078-16019 5010  * %RPL40 92077-16949 5270 --> 6000  * %RPL41 92077-16948 5270 --> 6000  * %RPL42 92078-16103 5270 --> 6000  * %RPL43 92078-16104 5270 --> 6000  * %RPL63 92078-16009 5270 --> 6000  * %RPL72 92078-16010 5270 --> 6000  * %RPL73 92078-16011 5270 --> 6000  * %RPL91 92078-16012 5270 --> 6000  %RT000 92078-16023 2540  %SI000 92078-16095 5010  %SINFO 92078-16020 5010  %SL000 92078-16100 5000  %SMP 92078-16007 2540  %SP 92078-16002 5020  %SP000 92078-16022 5020  %SPGET 92078-16004 5020  * %SPOOL 92078-16003 5020 --> Deleted  * %SPOOL 92570-16027 New --> 6000  %SPRT 92078-16006 5020  * %WHOSD 92078-16025 2441 --> Deleted  * &BGCDS 92078-18030 5270 --> Deleted  * &CDSHD 92078-18017 5270 --> Deleted  * &CDSHD 92570-18253 New --> 6000  * A92078 92078-17999 5270 --> 6000  * ALGRP.HLP 92078-17049 5000 --> Deleted   - 6.0 Communicator - $ 3-35 $1  & Current Revisions(92078A) &   * ALGRP.HLP 92570-17047 New --> 6000  * ALUSR.HLP 92078-17050 5000 --> Deleted  * ALUSR.HLP 92570-17048 New --> 6000  * BGCDS.MRG 92078-17033 2540 --> Deleted  * BGCDS.MRG 92570-17072 New --> 6000  * CHECK.REL 92078-16060 5000 --> Deleted  * CHECK.REL 92570-16033 New --> 6000  * CI.FTN 92570-18073 New --> 6000  * CI.LOD 92570-17013 New --> 6000  * CI.R000 92570-16157 New --> 6000  * CI.REL 92570-16073 New --> 6000  CIALOGOF.LOD 92078-17066 5000  CIALOGOF.REL 92078-16105 5020  * CIENV.REL 92078-16131 New --> 6000  * CIENVNC.REL 92570-16285 New --> 6000  * CISUB.REL 92570-16072 New --> 6000  * CIX.LOD 92570-17031 New --> 6000  * CIX.R000 92570-16160 New --> 6000  * CIX.REL 92570-16163 New --> 6000  * CMPLT.LOD 92570-17068 New --> 6000  * CMPLT.REL 92570-16235 New --> 6000  * CRLINKS.CMD 92570-17093 New --> 6000  * CROUT.LIB 92570-12010 New --> 6000  CVTUSR.REL 92078-16101 5000  * DDMAX.MAC 92570-18264 New --> 6000  * DDMAX.REL 92570-16264 New --> 6000  * DDRTR_CDS.LOD 92570-17039 New --> 6000  * DDRTR_CDS.REL 92570-12020 New --> 6000  * DL_CDS.LOD 92570-17033 New --> 6000  * DL_CDS.REL 92570-16153 New --> 6000  * GREP_CDS.LOD 92570-17085 New --> 6000  * GREP_CDS.REL 92570-12028 New --> 6000  GRLIB.LIB 92078-12006 5020  * GRUMP.LOD 92078-17039 5000 --> Deleted  * GRUMP.LOD 92570-17046 New --> 6000  * GRUMP.R000 92570-16230 New --> 6000  * GRUMP.REL 92078-16090 5020 --> Deleted  * GRUMP.REL 92570-12023 New --> 6000  * GRUMPAB.HLP 92078-17059 5000 --> Deleted  * GRUMPAB.HLP 92570-17049 New --> 6000  * GRUMPCMDS.HLP 92078-17064 5000 --> Deleted  * GRUMPCMDS.HLP 92570-17050 New --> 6000  * GRUMPEX.HLP 92078-17053 5000 --> Deleted  * GRUMPEX.HLP 92570-17051 New --> 6000  * GRUMPHE.HLP 92078-17063 5000 --> Deleted  * GRUMPHE.HLP 92570-17052 New --> 6000  GRUMPHLP.CMD 92078-17272 5020  * GRUMPKI.HLP 92078-17055 5000 --> Deleted  * GRUMPKI.HLP 92570-17053 New --> 6000  * GRUMPPA.HLP 92078-17056 5000 --> Deleted   - 6.0 Communicator -  3-36 1  & (( Current Revisions(92078A) &   * GRUMPPA.HLP 92570-17054 New --> 6000  * GRUMPRU.HLP 92078-17058 5000 --> Deleted  * GRUMPRU.HLP 92570-17055 New --> 6000  * GRUMPTR.HLP 92078-17057 5000 --> Deleted  * GRUMPTR.HLP 92570-17056 New --> 6000  HPC.LIB 92571-16009 3200  HPC_E.LIB 92571-16012 3200  KILLSES.LOD 92078-17061 5000  KILLSES.REL 92078-16097 5000  * LIGRP.HLP 92078-17043 5020 --> Deleted  * LIGRP.HLP 92570-17057 New --> 6000  * LIUSR.HLP 92078-17044 5020 --> Deleted  * LIUSR.HLP 92570-17058 New --> 6000  * LNS.LOD 92570-17097 New --> 6000  * LNS.REL 92570-16103 New --> 6000  * LOGON.LOD 92078-17005 New --> 6000  * LOGON.R000 92078-16028 New --> 6000  * LOGON.REL 92570-16076 New --> 6000  * LOGONNLS.LIB 92078-16029 New --> 6000  * LS_CDS.LOD 92570-17084 New --> 6000  * LS_CDS.REL 92570-16271 New --> 6000  * M92078.MNF 92078-17998 New --> 6000  * NEGRP.HLP 92078-17051 5010 --> Deleted  * NEGRP.HLP 92570-17059 New --> 6000  * NEUSR.HLP 92078-17052 5010 --> Deleted  * NEUSR.HLP 92570-17060 New --> 6000  * PASCAL_CDS.LIB 92833-16104 5000 --> 6000  * PUGRP.HLP 92078-17045 5000 --> Deleted  * PUGRP.HLP 92570-17061 New --> 6000  * PUUSR.HLP 92078-17046 5000 --> Deleted  * PUUSR.HLP 92570-17062 New --> 6000  * REGRP.HLP 92078-17047 5000 --> Deleted  * REGRP.HLP 92570-17063 New --> 6000  * RESIZE.REL 92570-16284 New --> 6000  * REUSR.HLP 92078-17048 5000 --> Deleted  * REUSR.HLP 92570-17064 New --> 6000  * RPL_A990_CDS.REL 92078-16130 5270 --> 6000  * SBGCDS.MRG 92570-17091 New --> 6000  SEC01.REL 92078-16039 5020  SEC02.REL 92078-16040 5000  * SEC1000.LIB 92570-12011 New --> 6000  SEC1000CDS.LIB 92078-12005 5020  SECCOMMAND.HLP 92078-17062 5010  * SECOS.REL 92078-16073 5010 --> Deleted  * SECOS.REL 92570-16032 New --> 6000  SECTL.LOD 92078-17035 5000  SECTL.REL 92078-16057 5000  SECTLMSG.CAT 92078-18085 5000  SECTLMSG.REL 92078-16085 5000  * SECURITY.REL 92078-16102 5000 --> 6000   - 6.0 Communicator - $ 3-37 $1  & Current Revisions(92078A) &   * SECURITY.TBL 92078-18102 5000 --> 6000  SESLU.LOD 92078-17060 5000  SESLU.REL 92078-16099 5000  STGEN.LOD 92078-17036 5000  * STGEN.REL 92078-16059 5000 --> 6000  STGENMSG.CAT 92078-18084 5000  STGENMSG.REL 92078-16084 5000  * TOUCH.REL 92570-16263 New --> 6000  * VC1.CMD 92078-17023 5270 --> 6000  * VC2.CMD 92078-17024 5010 --> 6000  * VCPTR.LOD 92078-17082 5020 --> Deleted  * VCPTRACE.REL 92078-16119 5020 --> Deleted  * WHOSD.LOD 92570-17066 New --> 6000  * WHOSD.REL 92570-16234 New --> 6000   Directory: /VCPLUS/HELP/   * ALIAS.HELP 92078-17088 New --> 6000  * CD.HELP 92570-17094 New --> 6000  * CI.HELP 92078-17092 New --> 6000  * CP.HELP 92570-17099 New --> 6000  * FUNCTION.HELP 92078-17090 New --> 6000  * FUNCTIONS.HELP 92078-17091 New --> 6000  * GRUMP.HELP 92078-17054 5020 --> Deleted  * GRUMP.HELP 92570-17065 New --> 6000  KILLSES.HELP 92078-17041 5020  * LNS.HELP 92570-17018 New --> 6000  * MV.HELP 92570-17098 New --> 6000  PATH.HELP 92078-17022 5020  * PWD.HELP 92570-17095 New --> 6000  * RESIZE.HELP 92570-17074 New --> 6000  RINFO.HELP 92078-17015 5020  * RM.HELP 92570-17100 New --> 6000  SESLU.HELP 92078-17042 5020  * SET.HELP 92078-17086 New --> 6000  SINFO.HELP 92078-17017 5020  SP.HELP 92078-17011 5020  * SYMLINK.HELP 92570-17017 New --> 6000  * TOUCH.HELP 92570-17079 New --> 6000  * UNALIAS.HELP 92078-17089 New --> 6000  * UNSET.HELP 92078-17087 New --> 6000  USERS.HELP 92078-17009 5020  * VISUAL.HELP 92570-17102 New --> 6000  * WHOSD.HELP 92078-17021 5020 --> Deleted  * WHOSD.HELP 92570-17067 New --> 6000   Directory: /VCPLUS/LANVCP/DOC/   CONFIG.READ 92078-17067 5020  INSTALL.READ 92078-17068 5020   - 6.0 Communicator -  3-38 1  & Current Revisions(92078A) &   IPL_BUILD.READ 92078-17069 5020   Directory: /VCPLUS/LANVCP/INSTALL/   BOOT_VCP.CMD 92078-17072 5270  INSTALL_VCP.CMD 92078-17073 5270   Directory: /VCPLUS/LANVCP/LOD/   DISPATCH.LOD 92078-17075 5020  IPL_BUILD.LOD 92078-17077 5020  IPL_EDIT.LOD 92078-17078 5020  RMVCP.LOD 92078-17076 5020  VCPMT.LOD 92078-17079 5270  VCPMT1_0.LOD 92078-17080 5270  VCPMT2_0.LOD 92078-17081 5270   Directory: /VCPLUS/LANVCP/REL/   BUILDTBUF.REL 92078-16108 5020  DISPATCH.REL 92078-16109 5020  IPL_BUILD.REL 92078-16111 5270  IPL_EDIT.REL 92078-16112 5270  RMVCP.REL 92078-16110 5020  TEST_PROCS.REL 92078-16126 5020  TRY_RECOVER.REL 92078-16114 5020  VCPMT_IPL_T.REL 92078-16115 5020  * VCPMT_MAIN.REL 92078-16116 5270 --> 6000  * VCPMT_MAIN1_0.REL 92078-16127 5270 --> 6000  * VCPMT_MAIN2_0.REL 92078-16128 5270 --> 6000  VCPMT_TRACE.REL 92078-16118 5020  VCP_DECLS.REL 92078-16120 5020  VCP_DECLS1_0.REL 92078-16121 5020  VCP_DECLS2_0.REL 92078-16122 5020  VTIMR_SUB.REL 92078-16124 5270   % Edition/ Print %% Manual Part# Title Update Date %% ------------+---------------------------------------+--------------- %% 92078-90001 RTE-A Virtual Code+ (VC+) Install. Guide 7/- E1292 %    Media Part# Media Option  -------------+---------------  92078-13301 022  92078-13501 050  92078-13502 051  92078-13601 AAH   - 6.0 Communicator - $ 3-39 $1  & Current Revisions(92081A) &   3.13 + (92081A) Image/1000-II    Filename Part Number Rev Change  --------------------- ----------- ---- --------   Directory: /IMAGE2/   %AR000 92081-16067 2540  %BL000 92081-16068 2540  %DB000 92081-16069 2540  %EM000 92081-16070 2540  %LB000 92081-16071 2540  %LO000 92081-16072 2540  %QY000 92081-16073 5010  %RB000 92081-16074 2540  %RF000 92081-16075 5000  %SA000 92081-16076 5000  %ST000 92081-16077 2540  %UT000 92081-16078 5000  &ADD 92081-18831 2540  &CCRSH 92081-18833 2540  &CRASH 92081-18836 2540  &LOGGR 92081-18835 2540  &SLOB 92081-18832 2540  &TRADE 92081-18834 2540  >QY000 92081-17024 5010  * A92081 92081-18999 5010 --> 6000  AC_ZOO.UTL 92081-17190 2540  BACKUP_TF.CMD 92081-17192 2540  BACKUP_ZOO.UTL 92081-17185 2540  BK_ZOO.UTL 92081-17191 2540  CDS_DBMS.REL 92081-12023 5010  CDS_DBMS1.CMD 92081-17175 2440  CDS_DBMS2.CMD 92081-17176 2440  CDS_DBMS3.CMD 92081-17177 2440  CDS_LOCAL.REL 92081-12024 2440  CDS_RDBA.REL 92081-12025 5010  CDS_REMOT.REL 92081-12026 5010  CMDZOO 92081-18837 2540  CREATE_ZOO.CMD(( 92081-17183 2540  DB6S1.CMD 92081-17027 2540  DB6S2.CMD 92081-17028 2540  DB6S3.CMD 92081-17029 2540  DBARC.LOD 92081-17004 5000  DBARC.REL 92081-16630 5000  DBBLD.LIB 92081-12007 5000  DBBLD.LOD 92081-17005 5000  DBBLD.REL 92081-16013 5000  DBCLN.LOD 92081-17017 5000   - 6.0 Communicator -  3-40 1  & Current Revisions(92081A) &   DBCLN.REL 92081-16830 5000  DBDS.LIB 92081-12008 5000  DBDS.LOD 92081-17006 5000  DBDS.REL 92081-16014 5000  DBEMA.LIB 92081-12010 5010  DBLOD.LOD 92081-17007 5000  DBLOD.REL 92081-16670 5000  DBMON.LIB 92081-12009 5000  DBMON.LOD 92081-17008 5000  DBMON.REL 92081-16015 5010  DBMS.REL 92081-12001 5010  DBMS1.CMD 92081-17021 2540  DBMS2.CMD 92081-17022 2540  DBMS3.CMD 92081-17023 2540  DBRBR.LOD 92081-17009 5000  DBRBR.REL 92081-16016 5000  DBRFR.LIB 92081-16560 5000  DBRFR.LOD 92081-17010 5000  DBRFR.REL 92081-16017 5000  DBRST.LOD 92081-17011 5000  DBRST.REL 92081-16760 5000  DBSPA.LOD 92081-17012 5000  DBSPA.REL 92081-16770 5000  DBSPL.LOD 92081-17013 5000  DBSPL.REL 92081-16775 5000  DBSTR.LOD 92081-17014 5000  DBSTR.REL 92081-16765 5000  DBULD.LOD 92081-17015 5000  DBULD.REL 92081-16780 5000  DBUPGRADE.LOD 92081-17182 5000  DBUPGRADE.REL 92081-16060 2540  DBUTL.HLP 92081-17025 5000  DBUTL.LIB 92081-12011 5000  DBUTL.LOD 92081-17016 5000  DBUTL.REL 92081-16018 5010  DSDB.LIB 92081-12006 2540  IMAGE6.CMD 92081-17001 5010  IMAGEA.CMD 92081-17002 5010  INIT_IMAGE.UTL 92081-17184 2540  LOCAL.REL 92081-12002 2440  NEW_LOGSET.CMD 92081-17186 2540  NEW_LOGSET.UTL 92081-17187 2540  NO_DS.REL 92081-12005 2440  OHNO_GOTTA_GO.UTL 92081-17197 2540  * PASCAL.LIB 92833-16113 5000 --> Deleted  * PASCAL_CDS.LIB 92833-16104 5000 --> Deleted  QUERY.LIB 92081-12012 5010  QUERY.LOD 92081-17018 5000  QUERY.REL 92081-16019 5010  RDBA.REL 92081-12003 5010   - 6.0 Communicator - $ 3-41 $1  & Current Revisions(92081A) &   RDBAM.REL 92081-16880 5000  RDBAM6.LOD 92081-17179 5000  RDBAMA.LOD 92081-17174 5010  RDBAP.REL 92081-16020 2540  RDBAP6.LOD 92081-17180 2540  RDBAPA.LOD 92081-17181 5010  RDBCLN.LOD 92081-17178 5000  RDTB.REL 92081-16410 2440  RECOVER_RB.CMD 92081-17193 5000  RECOVER_RB.UTL 92081-17194 2540  RECOVER_RF.CMD 92081-17195 2540  RECOVER_RF.UTL 92081-17196 2540  REMOT.REL 92081-12004 5010  SAM6I.REL 92081-16022 2440  SAMAI.REL 92081-16021 2440  SHORT_DBOPN.REL 92081-16281 2540  * SHSLB.LIB 92833-16220 5000 --> Deleted  SHUTDOWN.UTL 92081-17189 2540  STARTUP.UTL 92081-17188 2540  USNUM.REL 92081-16577 2440  ZOOBLD 92081-18838 2540  ZOORT 92081-18839 2540   % Edition/ Print %% Manual Part# Title Update Date %% ------------+---------------------------------------+--------------- % (no manual changes)    Media Part# Media Option  -------------+---------------  92081-13301 022  92081-13501 050  92081-13502 051  92081-13601 AAH     3.14 (92083A) Profile Monitor    Filename Part Number Rev  --------------------- ----------- ----   Directory: /PROFILER/   A92083.SNF 92083-18999 5000  CPLOT.REL 92083-16005 5000  CTRAC.LOD 92083-17003 5000   - 6.0 Communicator -  3-42 1  & Current Revisions(92083A) &   CTRAC.REL 92083-16003 5000  INSTALL.CMD 92083-17004 5000  PREPRO.REL 92083-16004 5000  PROFILELIB.LIB 92083-12002 5000     3.15 + (92084A) RTE-6/VM Operating System    Filename Part Number Rev Change  --------------------- ----------- ---- --------   Directory: /RTE_6/   * !BCK10 92084-16736 5020 --> 6000  * !BCK11 92084-16736 5020 --> 6000  * !BCK12 92084-16736 5020 --> 6000  * !BCK13 92084-16736 5020 --> 6000  * !BCK14 92084-16736 5020 --> 6000  * !BCKO1 92084-16736 5020 --> 6000  * !BCKO2 92084-16736 5020 --> 6000  * !BCKO3 92084-16736 5020 --> 6000  * !BCKO4 92084-16736 5020 --> 6000  * !BCKO5 92084-16736 5020 --> 6000  * !BCKO6 92084-16736 5020 --> 6000  * !BCKO7 92084-16736 5020 --> 6000  * !BCKO8 92084-16736 5020 --> 6000  * !BCKO9 92084-16736 5020 --> 6000  !MTLDR 92067-16512 2126  * "CMD 92084-17004 5010 --> 6000  * "EDIT 92074-17004 5020 --> 6000  "FCHLP 92084-17150 2226  * "HELP 92084-17001 2540 --> 6000  "LUPRN 92084-17363 5010  "MACLB 92059-18026 2326  * #CI6 92084-17207 5010 --> 6000  * #CIX 92077-17105 5000 --> Deleted  * #CIX 92570-17032 New --> 6000  #CIX6 92077-17247 2540  * #CLSDS 92084-17254 2440 --> Deleted  * #DL 92077-17028 5000 --> Deleted  #DRREL 92084-17361 5000  #DRRPL 92084-17362 5000  * #DSRTR 92084-17212 5020 --> 6000  * #ED1K6 92074-17003 5020 --> 6000  #EXER 24398-17016 5010  #EXER1 24398-17015 5010  #FC6 92084-17151 5000  #FORMC 92077-17034 5000   - 6.0 Communicator - $ 3-43 $1  & Current Revisions(92084A) &   #FORMT 92084-17029 2340  * #FOWN 92077-17029 5000 --> Deleted  * #FPACK 92077-17012 5000 --> Deleted  #FSCON 92077-17014 5000  * #FST 92077-17273 5000 --> Deleted  * #FSTP 92077-17274 5000 --> Deleted  * #FVERI 92077-17015 5020 --> Deleted  #IS 92077-17112 5000  #LIF 92077-17033 5000  #LINDX 92084-17209 2440  * #LINK 92084-17210 2440 --> 6000  * #MACRO 92059-17004 5000 --> 6000  #MLLD6 92084-17189 5020  #OLDRE 92059-17002 2213  #PATH 92084-17270 2440  * #PRIN0 92084-17265 2440 --> 6000  #PRINT 92084-17266 2440  #READR 92084-17005 2340  #RT6GN 92084-17268 5000  #SAVER 92084-17006 2340  #SGMTR 92084-17106 2540  #SWTCH 92084-17039 5000  #SXREF 92084-17264 2440  * #TF 92077-17102 5000 --> Deleted  #TRFAS 92084-17253 5020  * #WHOSD 92084-17269 2440 --> Deleted  $6FCLB 92084-12035 2540  * $ACCLB 92068-12018 5020 --> 6000  * $CRLIB 92077-12025 5020 --> Deleted  * $CRLIB 92570-12017 New --> 6000  $DSCLB 92084-12062 5020  * $DTCLB 92084-12053 5020 --> 6000  * $ED1K6 92074-12005 5020 --> 6000  $EMCLB 92084-12002 2540 (( $FCL1 92084-12085 2540  $FCL2 92084-12086 2540  $FDSLB 24998-12004 5000  $FLIB 24998-12008 5010  * $FMP6 92084-12071 5270 --> 6000  $FNDLB 24998-12005 2227  $FNEWF 24998-12010 5020  $FOLDF 24998-12009 5000  * $FST 92077-12036 5270 --> Deleted  $FST6 92084-12088 4010  $IB6A 92084-12036 2540  $LDRLN 92084-12038 5020  $MATH 24998-12007 5010  $MLSLB 92084-12015 2122  $PRINT 92084-12077 5010  * $R6GNL 92084-12076 5000 --> 6000   - 6.0 Communicator -  3-44 1  & Current Revisions(92084A) &   $RBLIB 92084-12018 5020  $RSLIB 92068-12006 2540  $SGMLB 92084-12084 5020  * $SYLB6 92084-12001 5020 --> 6000  * $TFLIB 92077-12020 5000 --> Deleted  $UTLIB 92084-12033 5010  $VCLIB 92084-12016 2227  $VLB6A 12829-12001 2226  $VLB6B 12829-12002 2214  * %$CNFG 92084-12011 5000 --> 6000  %$DVTB 12792-16005 2341  %$DVTN 12792-16009 2341  %$LDR 92084-12013 2540  * %$TA32 92084-16604 2540 --> 6000  * %$TB32 92084-16605 2441 --> 6000  * %$TM33 92084-16652 2441 --> 6000  %0DV05 92001-16028 2141  %4AUTR 92067-16118 2441  %4PVMP 92067-16001 1806  * %6DA37 92084-16593 2540 --> 6000  %6DP43 92084-15056 5000  * %6DV37 92084-16592 2540 --> 6000  %6MTM 92084-12029 2122  * %ACCTS 92067-16361 2540 --> 6000  %ATRAN 92059-16013 2540  * %BMPG1 92084-12003 2540 --> 6000  * %BMPG2 92084-12014 5270 --> 6000  %BMPG3 92084-12004 5020  * %CI 92077-16445 5270 --> 6000  * %CI000 92077-16737 5020 --> Deleted  * %CI000 92570-16161 New --> 6000  %CISU6 92084-16945 5020  * %CIX 92077-16651 5020 --> Deleted  * %CIX 92570-16164 New --> 6000  %CKTRM 92077-16748 2441  * %CL000 92077-16781 5010 --> Deleted  * %CL000 92570-16155 New --> 6000  * %CLOAD 92084-16525 5010 --> 6000  * %CLSDS 92077-16463 5010 --> Deleted  * %COMPL 92084-16524 5010 --> 6000  * %CR000 92077-16739 5010 --> Deleted  * %CR000 92570-16159 New --> 6000  %CR6S1 92084-12024 5010  * %CR6S2 92084-12025 5270 --> 6000  %CR6S3 92084-12026 5020  %CSERR 92084-12054 2122  * %CX000 92077-16738 5000 --> Deleted  * %CX000 92570-16232 New --> 6000  %DBUGR 92084-12019 2441  %DDT05 12792-16011 2540   - 6.0 Communicator - $ 3-45 $1  & Current Revisions(92084A) &   %DDV05 12792-16003 2540  %DDV12 12792-16004 2141  %DECAR 24306-16001 2540  * %DL 92077-16447 5020 --> Deleted  * %DL000 92077-16759 5010 --> Deleted  * %DL000 92570-16152 New --> 6000  %DRREL 92084-12009 5000  %DRRPL 92084-12010 2540  %DSCHD 09580-16126 2540  * %DSRTR 92077-16462 5270 --> Deleted  * %DSRTR 92570-16257 New --> 6000  %DVA05 92084-16607 5020  %DVA12 92001-16020 1827  %DVA13 91200-16001 1649  %DVA32 92084-16708 2540  %DVB12 92062-16004 2540  %DVC12 92068-16110 5010  %DVC32 92084-16709 2540  %DVD12 92068-16129 5010  %DVM00 12792-16002 5000  %DVM33 92084-16650 5020  %DVM72 09580-16079 5010  %DVN00 12792-16008 2540  %DVN33 92084-16651 5020  %DVP32 92084-16710 5000  %DVR00 92084-16637 2441  %DVR12 92084-15028 1806  %DVR23 92202-16001 5020  %DVR31 92084-16712 2540  %DVR32 92084-16711 5000  %DVR33 92084-16713 2122  * %DVS23 92084-15050 5020 --> 6000  %DVT00 12792-16010 5000  %ED000 92074-16055 5020  * %EDIT 92074-12008 5020 --> 6000  %EXER 24398-16062 5020  * %EXER1 24398-16066 5020 --> 6000  %FC0 92084-15042 2540  * %FC000 92077-16787 5010 --> 6000  %FC1 92084-15043 2540  %FC2 92084-15044 2540  %FC3 92084-15045 2540  %FC4 92084-15046 5000  %FC5 92084-15047 2540  %FC6 92084-15048 2540  %FCM6 92084-12055 5000  %FFL 92077-16067 5000  * %FORMC 92077-16786 5010 --> 6000  * %FORMT 92067-16554 5010 --> 6000  * %FOWN 92077-16449 5010 --> Deleted   - 6.0 Communicator -  3-46 1  & Current Revisions(92084A) &   * %FP000 92077-16768 5020 --> Deleted  * %FP000 92570-16178 New --> 6000  * %FPACK 92077-16451 5020 --> Deleted  * %FS000 92077-16904 5270 --> Deleted  * %FS000 92570-16111 New --> 6000  * %FSCON 92077-16453 5000 --> 6000  * %FST 92077-16906 5270 --> Deleted  * %FSTP 92077-16907 5270 --> Deleted  * %FV000 92077-16764 5020 --> Deleted  * %FV000 92570-16174 New --> 6000  * %FVERI 92077-16454 5020 --> Deleted  * %FW000 92077-16766 5010 --> Deleted  %HELP 92084-12032 5010  %INDXR 92084-12006 5020  %IS 92077-16724 5010  * %LGTAT 92084-16166 5000 --> 6000  * %LIF 92077-16638 5020 --> 6000  %LINDX 92077-12026 5000  * %LINKA 92084-12070 5010 --> 6000  * %LINKB 92084-16946 5010 --> 6000  * %LINKC 92084-16947 5010 --> 6000  %LINKD 92084-16948 5000  %LINKE 92084-16949 5000  %LP31 92062-16003 2441  * %LUPRN 92084-15061 5010 --> 6000  %M*LIB 92084-16362 5020  * %MACR0 92059-16015 5000 --> 6000  * %MACR1 92059-16016 5000 --> 6000  * %MACR2 92059-16017 5000 --> 6000  * %MACR3 92059-16018 5000 --> 6000  %MACR4 92059-16019 5000  * %MACR5 92059-16020 5000 --> 6000  * %MACR6 92059-16021 5000 --> 6000  * %MACR7 92059-16022 5000 --> 6000  * %MACRE 92059-16030 5000 --> 6000  * %MACRL 92059-16029 5020 --> 6000  * %MACRO 92059-16014 5020 --> 6000  %MDMLB 92084-16958 5000  %MLLDA 92084-12064 5020  %MLLDB 92084-12063 5020  %MLLDR 92084-16361 5020  %MODEM 92077-16391 2540  %MSAFD 92064-16086 2002  %NSESN 92084-12023 5020  * %OLDRE 92059-16023 5000 --> 6000  * %PATH 92078-16026 5010 --> 6000  %PR000 92077-16714 5020  %PRIN0 92077-16054 5020  %PRINT 92077-16009 5020  %PVM00 12792-16001 2034   - 6.0 Communicator - $ 3-47 $1  & Current Revisions(92084A) &   %READR 92068-16054 2241  * %READT 92084-16568 2441 --> 6000  * %RT6GN 92084-12007 5020 --> 6000  %RT6VM 92084-16956 2341  %SAVER 92068-16053 5010  %SGMTR (( 92084-12034 5000  * %SMON1 92084-12021 5010 --> 6000  %SMON2 92084-12022 5000  * %SPOL1 92084-12027 2122 --> 6000  %SPOL2 92084-12028 5000  %SRQ*P 59310-16005 1806  * %SSTCH 92084-12008 5010 --> 6000  * %SXREF 92084-12017 2441 --> 6000  %T5IDM 92084-16528 2209  * %TF 92077-16598 5000 --> Deleted  * %TRFAS 92077-16461 5010 --> 6000  %TVLIB 91200-16002 1649  %TVVER 91200-16004 1649  * %WHOSD 92078-16025 2441 --> Deleted  %WHZAT 92084-16526 5000  * %WRITT 92084-16569 2302 --> 6000  &$CMND 92084-18463 5000  * &$TA32 92084-18604 2540 --> 6000  * &$TB32 92084-18605 2441 --> 6000  * &$TM33 92084-18652 2441 --> 6000  &4AUTR 92067-18456 2441  &C*TAB 92084-18135 2340  * &CDSONOFF 92059-18024 5020 --> 6000  &FFL 92077-18067 5000  *BCKCT 92084-17158 2212  *BCKMT 92084-17156 5010  * *DOSNP 92084-17360 5010 --> 6000  *MLLD6 92084-17359 5000  *PBULD 92084-17157 2121  *STIME 92084-17100 2440  =AVL2 92084-16943 2341  =EXT 92084-16941 2540  =FLAG 92084-16942 2540  =FPORT 92084-16944 2341  * >FS000 92077-16905 5270 --> Deleted  * >FS000 92570-16112 New --> 6000  * >TF000 92077-16763 5000 --> Deleted  * >TF000 92570-16194 New --> 6000  * A92084 92084-17999 5020 --> 6000  ASK.REL 92077-16964 5000  * BCKUP.LIB 92084-12050 5020 --> 6000  * BEGGT.LIB 92084-12051 5020 --> 6000  * CALLM.REL 92570-16262 New --> 6000  * CALLS.LOD 92077-17317 New --> 5020  * CALLS.REL 92077-12044 New --> 6000   - 6.0 Communicator -  3-48 1  & Current Revisions(92084A) &   * CLOSE.LOD 92570-17028 New --> 6000  * CLOSE.REL 92570-16154 New --> 6000  CMD.REL 92084-15063 5010  COMM.REL 92084-16915 5020  * DL.LOD 92570-17012 New --> 6000  * DL.REL 92570-16074 New --> 6000  * DV800_0.REL 92084-15068 5270 --> 6000  * DV800_1.REL 92084-15070 5270 --> 6000  DVC00.REL 92084-15073 5010  * FORMT 92084-16737 5020 --> 6000  * FOWN.LOD 92570-17069 New --> 6000  * FOWN.R000 92570-16239 New --> 6000  * FOWN.REL 92570-16237 New --> 6000  * FPACK.LOD 92570-17036 New --> 6000  * FPACK.REL 92570-16176 New --> 6000  * FREES.C000 92077-16770 5020 --> 6000  FREES.LOD 92077-17011 5020  * FREES.REL 92077-16450 5020 --> 6000  * FST.LOD 92570-17023 New --> 6000  * FST.REL 92570-12014 New --> 6000  * FSTLIB.LIB 92570-12015 New --> 6000  * FSTP.LOD 92570-17024 New --> 6000  * FSTP.REL 92570-16113 New --> 6000  * FVERI.LOD 92570-17035 New --> 6000  * FVERI.REL 92570-16173 New --> 6000  GENIX.LOD 92084-17370 5010  GENIX.REL 92084-15064 5010  * INCI.CMD 92084-17262 5020 --> 6000  KEYS.REL 92084-15065 5010  KYDMP.REL 92084-15067 5010  * LI.LOD 92077-17108 5020 --> 6000  * LI.R000 92077-16977 5010 --> 6000  * LI.REL 92077-16646 5020 --> 6000  * LI_VMA.REL 92077-16986 5020 --> 6000  * LOAD6.CMD 92084-17279 5020 --> 6000  M92084 92084-17998 5270  MERGE.LOD 92077-17023 5010  MERGE.R000 92077-16980 5010  * MERGE.REL 92077-16431 5020 --> 6000  MONITOR.LOD 92077-17257 5010  MONITOR6.REL 92077-12034 5020  * MPACK.LOD 92077-17309 5020 --> Deleted  * MPACK.LOD 92570-17034 New --> 6000  * MPACK.R000 92570-16166 5270 --> 6000  * MPACK.REL 92570-16165 5270 --> 6000  ONLIN.LIB 92084-12061 5020  * PASCAL.LIB 92833-16113 5000 --> 6000  PASCAL_ERR.REL 92833-16125 5000  PASCAL_ERR_ALT.REL 92833-16222 5000  * PASCAL_FMGR.LIB 92833-16107 5000 --> 6000   - 6.0 Communicator - $ 3-49 $1  & Current Revisions(92084A) &   PASCAL_FMGR_ALT.LIB 92833-16210 5000  * PCOPY 92084-16740 5020 --> 6000  PCOPY.LOD 92084-17152 5020  PCOPY.REL 92084-16655 5020  * PRSTR 92084-16739 5020 --> 6000  PRSTR.LOD 92084-17154 5020  PRSTR.REL 92084-16657 5020  * PSAVE 92084-16741 5020 --> 6000  PSAVE.LOD 92084-17153 5020  PSAVE.REL 92084-16656 5020  * PSPAR 92084-16738 5020 --> 6000  PSPAR.LOD 92084-17155 5020  PSPAR.REL 92084-16700 5020  SCOM.C000 92077-16985 5010  SCOM.LOD 92084-17036 5010  * SCOM.REL 92077-16983 5020 --> 6000  SEP.6 92084-17205 2340  SHSLB.LIB 92833-16220 5000  SHSLB_ALT.LIB 92833-16221 5000  SPORT.LOD 92077-17303 5010  SPORT.REL 92077-16963 5020  * TF.LOD 92570-17043 New --> 6000  * TF.REL 92570-16192 New --> 6000  * TFLIB.LIB 92570-12021 New --> 6000  * WHOSD.LOD 92570-17066 New --> 6000  * WHOSD.REL 92084-15076 New --> 6000  * XFMP.LIB 92077-12010 5270 --> 6000  ]E^FFP 92084-17274 2440  ]F^FFP 92084-17275 5000  ]F^FPB 92084-17276 5000  ]F^SIS 92084-17277 5000  ]F^VIS 92084-17278 2440  ]M^FFP 92084-17273 2440  ]RT6OS 92084-17271 5010  ]RT6VM 92084-17272 2440   Directory: /RTE_6/HELP/   ??.HELP 92077-17099 5020  AG.HELP 92084-17213 5020  AS.HELP 92084-17214 5020  ASK.HELP 92077-17301 5020  BL.HELP 92084-17215 5020  BR.HELP 92084-17216 5020  * CALLM.HELP 92570-17078 New --> 6000  * CALLS.HELP 92570-17077 New --> 6000  * CD.HELP 92077-17051 New --> 6000  CI.HELP 92077-17045 5020  * CL.HELP 92077-17052 5020 --> 6000  * CLOSE.HELP 92570-17029 New --> 6000   - 6.0 Communicator -  3-50 1  & Current Revisions(92084A) &   CN.HELP 92084-17217 5020  * CO.HELP 92077-17054 5020 --> 6000  * CR.HELP 92077-17055 5020 --> 6000  * CRDIR.HELP 92077-17056 5020 --> 6000  CU.HELP 92084-17218 5020  * DC.HELP 92077-17057 5020 --> 6000  * DL.HELP 92077-17058 5020 --> Deleted  * DL.HELP 92570-17021 New --> 6000  DN.HELP 92084-17219 5020  * ECHO.HELP 92077-17117 5020 --> 6000  * EQ.HELP 92084-17220 5020 --> 6000  EX.HELP 92084-17222 5020  * FOWN.HELP 92077-17063 5020 --> Deleted  * FOWN.HELP 92570-17070 New --> 6000  * FPACK.HELP 92084-17223 5020 --> 6000  * FREES.HELP 92077-17062 5020 --> 6000  * FVERI.HELP 92077-17064 5020 --> 6000  GO.HELP 92084-17224 5020  HE.HELP 92084-17225 5020  IF.HELP 92077-17118 5020  * IN.HELP 92084-17226 5020 --> 6000  IS.HELP 92077-17119 5020  IT.HELP 92084-17227 5020  * LI.HELP 92077-17069 5020 --> 6000  LINDX.HELP 92084-17228 5020  LINK.HELP 92084-17229 5020  * LU.HELP 92084-17230 5020 --> 6000  MACRO.HELP 92059-17003 5020  * MASK.HELP 92077-17071 5020 --> Deleted  * MASK.HELP 92570-17022 New --> 6000  * MC.HELP 92084-17232 5020 -((-> 6000  * MERGE.HELP 92077-17073 5020 --> 6000  * MO.HELP 92077-17074 5020 --> 6000  * MPACK.HELP 92077-17310 5020 --> 6000  * OF.HELP 92084-17233 5020 --> 6000  ON.HELP 92084-17234 5020  * OWNER.HELP 92077-17076 5020 --> 6000  PATH.HELP 92078-17022 5020  * POLL.HELP 92077-17324 New --> 6000  PR.HELP 92084-17236 5020  PRINT.HELP 92084-17267 5020  PROT.HELP 92084-17237 5020  PU.HELP 92077-17081 5020  * PWD.HELP 92077-17329 New --> 6000  QU.HELP 92084-17238 5020  RN.HELP 92077-17082 5020  RP.HELP 92084-17239 5020  * RU.HELP 92084-17240 5020 --> 6000  SCOM.HELP 92077-17307 5020  SET.HELP 92077-17123 5020   - 6.0 Communicator - $ 3-51 $1  & Current Revisions(92084A) &   SL.HELP 92084-17241 5020  SS.HELP 92084-17242 5020  ST.HELP 92084-17243 5020  STACK.HELP 92077-17311 5020  SZ.HELP 92084-17244 5020  TI.HELP 92084-17245 5020  TM.HELP 92084-17246 5020  * TO.HELP 92084-17247 5020 --> 6000  TR.HELP 92077-17090 5020  UL.HELP 92084-17248 5020  * UNPU.HELP 92077-17092 5020 --> 6000  UNSET.HELP 92077-17125 5020  UP.HELP 92084-17249 5020  UR.HELP 92084-17250 5020  * VS.HELP 92077-17094 5020 --> 6000  WD.HELP 92077-17095 5020  WH.HELP 92084-17251 5020  WHILE.HELP 92077-17126 5020  * WHOSD.HELP 92078-17021 5020 --> Deleted  * WHOSD.HELP 92570-17067 New --> 6000  WS.HELP 92084-17252 5020  * XQ.HELP 92077-17098 5020 --> 6000   % Edition/ Print %% Manual Part# Title Update Date %% ------------+---------------------------------------+--------------- %% 92084-90001 RTE-6/VM Index to Operating Sys. Manuals 2/- E1283 %% 92084-90002 Getting Started With RTE-6/VM 1/- E1281 %% 92084-90003 RTE-6/VM Quick Reference Guide 4/- E0589 %% 92084-90004 RTE-6/VM TerminaUser's Reference Man. 1/6 U0887 %% 92084-90005 RTE-6/VM Programmer's Reference Manual 1/7 U0790 %% 92084-90006 RTE-6/VM Batch and Spooling Ref. Man. 1/2 U0186 %% 92084-90007 RTE-6/VM Utility Programs Reference Man. 4/1 U0790 %% 92084-90008 RTE-6/VM Loader Reference Manual 1/4 U0790 %% 92084-90009 RTE-6/VM System Manager's Reference Man. 4/2 U0790 %% 92084-90010 RTE-6/VM On-Line Generator Ref. Man. 3/- E0887 %% 92084-90011 RTE-6/VM Software Installation Manual 3/2 U0790 %% 92084-90014 RTE-6/VM Debug Subroutine Reference Man. 1/- E1281 %% 92084-90025 RTE-6/VM DVM33/DVN33 Reference Manual 1/5 U0887 %% 92084-90026 RTE Driver DVA37 for HP59310B Intf. Bus 2/2 U0186 %% 92084-90036 RTE-6/VM CI User's Manual 4/1 U0790 %% 92084-90038 RTE-6/VM LINK User's Manual 2/2 U0887 %% 92084-90039 RTE-6/VM Software Entry Point Directory 6/- E0790 %% 92084-90040 RTE Driver DVS23 for HP 7974A Mag. Tape 1/- E0186 %% 92084-90050 RTE-6/VM Serial Driver Reference Manual 1/1 U0790 %% 5955-8867 HP 12792B 8-Chan. Asynch. Mux. User Man 1/1 U0185 %% 5955-8868 HP 12792B 8-Chan. Asynch. Mux. Cnfg. Gd. 1/1 U0185 %% 09580-93027 RTE Drvr DVM72 RTE Universal Intf. Drv. 3/1 U1283 %% 12732-90001 RTE Drvr DVR33 For HP12732A/HP12733A Dsk. 3/- E1079 %  - 6.0 Communicator -  3-52 1  & Current Revisions(92084A) &  % 29029-95001 RTE Drvr DVR00 For Mult.-Dev. Sys. Cntrl. 3/1 U1081 %% 59310-90064 HP-IB In HP 1000 Comp. Sys. Users Man. 7/1 U1084 %% 91200-90005 RTE Drvr DVA13 (for HP 91200B) Prog.Man. 2/- E1179 %% 92001-90015 RTE Drvrs DVR05/DVA05 HP 263X/264X Trm. 8/1 U0790 %% 92059-90001 MACRO/1000 Reference Manual 2/- E0887 %% 92062-90003 2631A/2635A Printer Utility Subroutine 3/- E0884 %% 92062-90004 2608A Line Printer Driver DVB12 4/2 U0186 %% 92068-90012 RTE-IVB Drivers DVR32 and DVA32 1/4 U1084 %% 92068-90016 READR/SAVER Utility Reference Manual 2/- E0782 %% 92068-90022 DVC12 Line Printer Driver Ref. Man. 2/- E0186 %% 92074-90001 EDIT/1000 User's Manual 2/2 U0790 %% 92077-90037 Relocatable Libraries Reference Manual 4/1 U0790 %% 92200-93005 RTE Operating System Driver Writing Man. 7/- E0887 %% 92202-93001 RTE Drvr DVR23 For HP7970 Mag. Tape 5/- E1084 % & The above list of manuals was supplied with RTE-6/VM software for the &% RTE-6/VM release 5270. We will be distributing the manuals for the %& release 6000 software later and will provide an update sheet with the & correct manual information.     Media Part# Media Option  -------------+---------------  92084-13307 022  92084-13527 050  92084-13528 051     3.16 (92101A) Basic/1000D    Filename Part Number Rev  --------------------- ----------- ----  #BASIC 92101-17001 2140  #RTETG 92101-17002 2140  %694BS 29102-16003 C  %A2313 29102-60016 B  %ALARM 92413-16007 B  %BAIN1 92101-16001 2140  %BAIN2 92101-16005 2213  %BAIN3 92101-16007 2213  %BAMLB 92101-12002 2140  %BASLB 92101-12003 2213  %BATG3 92101-16024 2013  %BATG4 92101-16023 2013  %BATGN 92101-16008 2013  %BBUFF 92101-16034 2140  %DTRAP 92101-16035 2140   - 6.0 Communicator - $ 3-53 $1  & Current Revisions(92101A) &   %TSKSC 92101-16013 A  &BBUFF 92101-18034 2140     3.17 + (92131A) QDM/1000    Filename Part Number Rev Change  --------------------- ----------- ---- --------   Directory: /CATALOGS/   ARCHV.C000 92131-16442 5010  CHDB.C000 92131-16567 5010  CONSW.C000 92131-16564 5010  DATIN.C000 92131-16409 5010  DBMEN.C000 92131-16435 5010  DBSWT.C000 92131-16558 5010  DCTRY.C000 92131-16444 5010  FIX2.C000 92131-16437 5010  FIXER.C000 92131-16436 5010  GRPKG.C000 92131-16450 5010  MANRD.C000 92131-16410 5010  PDMON.C000 92131-16339 5010  PDSYS.C000 92131-16432 5010  PEDIT.C000 92131-16141 5010  PGPED.C000 92131-16439 5010  PULL.C000 92131-16448 5010  QCNFG.C000 92131-16438 5010  QDEDT.C000 92131-16446 5010  QDMDB.C000 92131-16447 5010  QDMPC.C000 92131-16467 5010  QDSUP.C000 92131-16440 5010  QERLB.C000 92131-16464 5010  RAWDT.C000 92131-16431 5010  RDB.C000 92131-16449 5010  RLIST.C000 92131-16445 5010  RMONT.C000 92131-16433 5010  RPGEN.C000 92131-16434 5010  SCHCR.C000 92131-16561 5010  SDOWN.C000 92131-16441 5010  VALID.C000 92131-16443 5010   Directory: /F1000/   FCOMM.REL 94250-16613 5010  * FLULB.LIB 94250-12523 5010 --> 6000  * FLULB_CDS.LIB 94250-12723 5010 --> 6000  FOBLK.REL 94250-16504 5010   - 6.0 Communicator -  3-54 1  & Current Revisions(92131A) &   * FOCLO_CDS.REL 94250-16705 5000 --> 6000  * FOFLL.LIB 94250-12528 5010 --> 6000  * FOFLL_CDS.LIB 94250-12728 5010 --> 6000  * FOFRL.LIB 94250-12531 2520 --> 6000  * FOFRL_CDS.LIB 94250-12731 2520 --> 6000  FOLCL.TXT 94250-17572 5010  * FOPLL_CDS.LIB 94250-12737 5010 --> 6000  * FO((PRL.LIB 94250-12538 2520 --> 6000  * FOPRL_CDS.LIB 94250-12738 2520 --> 6000  FRULB.LIB 94250-12546 2520  FRULB_CDS.LIB 94250-12746 2520  FUSE1.REL 94250-16506 2520  FUSE4.REL 94250-16509 2520  FUSE7.REL 94250-16512 2520  FUSE9.REL 94250-16514 2520  LFOAS_CDS.LOD 94250-17529 5000   Directory: /QDM_RELOCS/   !RXX 92130-17240 5010  #QDSS 92131-17019 5010  A92131 92131-17999 5020  ARC21.REL 92131-16092 5010  ARC22.REL 92131-16093 5010  ARC24.REL 92131-16095 5010  ARC25.REL 92131-16096 5010  ARC31.REL 92131-16100 5010  ARC32.REL 92131-16101 5010  ARC33.REL 92131-16102 5010  ARC34.REL 92131-16103 5010  ARC35.REL 92131-16104 5010  ARCH0.REL 92131-16098 5010  ARCH1.REL 92131-16099 5010  ARCHV.LOD 92131-17131 5000  ARCHV.REL 92131-16097 5010  ARCLB.LIB 92131-12020 5010  ARCUT.REL 92131-16106 5010  CHDB.LOD 92131-17192 5010  CHDB.REL 92131-16566 5010  CONSW.LOD 92131-17191 5010  CONSW.REL 92131-16563 5010  DAINI.REL 92131-16451 5010  DAT0A.REL 92131-16156 5010  DAT0B.REL 92131-16157 5010  DAT0C.REL 92131-16158 5020  DAT0E.REL 92131-16160 5020  DAT0F.REL 92131-16161 5020  DAT0H.REL 92131-16394 5010  DATIN.LOD 92131-17201 5000  DATIN.REL 92131-16155 5010   - 6.0 Communicator - $ 3-55 $1  & Current Revisions(92131A) &   DATLB.LIB 92131-12002 5020  DATUT.REL 92131-16154 5020  DBMEN.LOD 92131-17002 2518  DBMEN.REL 92131-16007 5010  DBMSR.LOD 92131-17003 2620  DBMSR.REL 92131-16008 5010  DBSWT.LOD 92131-17182 5010  DBSWT.REL 92131-16557 5010  DCT0A.REL 92131-16146 5010  DCT0B.REL 92131-16147 5010  DCT0C.REL 92131-16148 5010  DCT0D.REL 92131-16149 5020  DCT0E.REL 92131-16150 5010  DCTRY.LOD 92131-17037 2518  DCTRY.REL 92131-16115 5010  DCTUT.REL 92131-16151 5010  DIRCR.LOD 92131-17279 2518  DIRCR.REL 92131-16406 5010  FIX2.LOD 92131-17027 2518  FIX2.REL 92131-16021 5020  FIXER.LOD 92131-17102 5000  FIXER.REL 92131-16057 5010  GETV.CMD 92131-17318 5010  GP2225.LOD 92131-17179 5010  GP2225.REL 92131-16478 5010  GP239X.LOD 92131-17122 5010  GP2563.LOD 92131-17180 5010  GP2563.REL 92131-16480 5010  GP262X.LOD 92131-17066 5010  GP262X.REL 92131-16454 5010  GP264X.LOD 92131-17077 5010  GP264X.REL 92131-16455 5010  GP268X.LOD 92131-17181 5010  GP268X.REL 92131-16482 5010  GP7470.LOD 92131-17090 5010  GP7470.REL 92131-16457 5010  GP7475.LOD 92131-17091 5010  GP7475.REL 92131-16458 5010  GP7550.LOD 92131-17081 5010  GP7550.REL 92131-16456 5010  GP758X.LOD 92131-17093 5010  GP758X.REL 92131-16459 5010  GP9872.LOD 92131-17094 5010  GP9872.REL 92131-16460 5010  GP987X.LOD 92131-17095 5010  GP987X.REL 92131-16461 5010  GPLB4.LIB 92131-12007 5000  GRFMT.LIB 92131-12006 5000  GRLOC.LOD 92131-17063 5000  GRLOC.REL 92131-16453 5010   - 6.0 Communicator -  3-56 1  & Current Revisions(92131A) &   GRP0A.REL 92131-16281 5010  GRP0B.REL 92131-16282 5010  GRP0C.REL 92131-16283 5010  GRP0D.REL 92131-16289 5010  GRP0E.REL 92131-16290 5010  GRP0F.REL 92131-16296 5010  GRP0G.REL 92131-16298 5010  GRP0H.REL 92131-16304 5010  GRP0I.REL 92131-16305 5010  GRP0J.REL 92131-16311 5010  GRP0K.REL 92131-16312 5010  GRP0L.REL 92131-16555 5010  GRP0M.REL 92131-16513 5010  GRP10C.REL 92131-16500 5010  GRP10E.REL 92131-16511 5010  GRP10G.REL 92131-16553 5010  GRP10I.REL 92131-16494 5010  GRP10K.REL 92131-16488 5010  GRP10M.REL 92131-16526 5010  GRP1C.REL 92131-16284 5010  GRP1E.REL 92131-16291 5010  GRP1F.REL 92131-16297 5010  GRP1G.REL 92131-16299 5010  GRP1I.REL 92131-16306 5010  GRP1K.REL 92131-16313 5010  GRP1L.REL 92131-16507 5010  GRP1M.REL 92131-16546 5010  GRP2C.REL 92131-16285 5010  GRP2E.REL 92131-16292 5010  GRP2G.REL 92131-16300 5010  GRP2I.REL 92131-16307 5010  GRP2K.REL 92131-16314 5010  GRP2M.REL 92131-16533 5010  GRP3C.REL 92131-16286 5010  GRP3E.REL 92131-16293 5010  GRP3G.REL 92131-16301 5010  GRP3I.REL 92131-16308 5010  GRP3K.REL 92131-16315 5010  GRP3M.REL 92131-16517 5010  GRP4C.REL 92131-16287 5010  GRP4E.REL 92131-16294 5010  GRP4G.REL 92131-16302 5010  GRP4I.REL 92131-16309 5010  GRP4K.REL 92131-16316 5010  GRP4M.REL 92131-16538 5010  GRP5C.REL 92131-16288 5010  GRP5E.REL 92131-16295 5010  GRP5G.REL 92131-16303 5010  GRP5I.REL 92131-16310 5010  GRP5K.REL 92131-16317 5010   - 6.0 Communicator - $ 3-57 $1  & Current Revisions(92131A) &   GRP5M.REL 92131-16528 5010  GRP6C.REL 92131-16113 5010  GRP6E.REL 92131-16180 5010  GRP6G.REL 92131-16319 5010  GRP6I.REL 92131-16326 5010  GRP6K.REL 92131-16334 5010  GRP6M.REL 92131-16536 5010  GRP7C.REL 92131-16335 5010  GRP7E.REL 92131-16336 5010  GRP7G.REL 92131-16337 5010  GRP7I.REL 92131-16338 5010  GRP7K.REL 92131-16343 5010  GRP7M.REL 92131-16530 5010  GRP8C.REL 92131-16496 5010  GRP8E.REL 92131-16503 5010  GRP8G.REL 92131-16541 5010  GRP8I.REL 92131-16490 5010  GRP8K.REL 92131-16484 5010  GRP8M.REL 92131-16515 5010  GRP9C.REL 92131-16498 5010  GRP9E.REL 92131-16509 5010  GRP9G.REL 92131-16551 5010  GRP9I.REL 92131-16492 5010  GRP9K.REL 92131-16486 5010  GRP9M.REL 92131-16521 5010  GRPER.REL 92131-16280 5010  GRPIN.REL 92131-16469 5010  GRPKG.LOD 92131-17227 5000  GRPKG.REL 92131-16279 5010  GRPLB.LIB 92131-12013 5010  GS7470.LOD 92131-17166 5010  GS7475.LOD 92131-17178 5010  GS7550.LOD 92131-17157 5010  GS758X.LOD 92131-17165 5010  LINK_QDM.CMD 92131-17228 5010  LOGEA.REL 92131-16085 5010  MANRD.LOD 92131-17089 2518  MANRD.REL 92131-16181 5010  PDM01.REL 92131-16003 5010  PDM02.REL 92131-16004 5010  PDMON.LOD 92131-17001 5000  PDMON.REL 92131-16002 5010  PDMUT.REL 92131-16005 5010  PDSYS.LOD 92131-17004 5010  PDSYS.REL 92131-16010 5010  PED00.REL 92131-16032 5010  PED01.REL 92131-16037 5010  PED02.REL 92131-16344 5010  PED03.REL 92131-16345 5010  PED04.REL 92131-16038 5010 ((  - 6.0 Communicator -  3-58 1  & Current Revisions(92131A) &   PED05.REL 92131-16346 5010  PED06.REL 92131-16039 5010  PED07.REL 92131-16352 5010  PEDIT.LOD 92131-17026 2518  PEDIT.REL 92131-16044 5010  PEDIT_PASCLIB.REL 92131-16042 5010  PEDUT.REL 92131-16351 5010  PGPE1.REL 92131-16015 5010  PGPE2.REL 92131-16016 5020  PGPE3.REL 92131-16017 5010  PGPED.LOD 92131-17010 5000  PGPED.REL 92131-16014 5010  PRIME.REL 92131-16145 5000  PULL.LOD 92131-17132 2518  PULL.REL 92131-16081 5010  PULLX.LIB 92131-12019 5010  PULUT.REL 92131-16090 5010  Q1PANS 92131-17282 5000  QASCI.REL 92131-16191 5000  QCG00.REL 92131-16019 5010  QCG01.REL 92131-16020 5010  QCG02.REL 92131-16397 5010  QCG03.REL 92131-16022 5010  QCG04.REL 92131-16023 5010  QCG05.REL 92131-16024 5010  QCG07.REL 92131-16026 5010  QCG08.REL 92131-16027 5010  QCG09.REL 92131-16028 5010  QCG10.REL 92131-16029 5010  QCG11.REL 92131-16030 5010  QCG12.REL 92131-16031 5010  QCG14.REL 92131-16033 5010  QCG15.REL 92131-16034 5010  QCG16.REL 92131-16035 5010  QCG17.REL 92131-16036 5010  QCG18.REL 92131-16396 5010  QCG21.REL 92131-16040 5010  QCG22.REL 92131-16041 5010  QCHEK.LOD 92131-17158 2518  QCHEK.REL 92131-16123 5010  QCMSG.REL 92131-16329 5000  QCNFG.LOD 92131-17092 2518  QCNFG.REL 92131-16018 5010  QCNLB.LIB 92131-12010 5010  QDE01.REL 92131-16429 5010  QDE02.REL 92131-16430 5010  QDEDT.LOD 92131-17506 2620  QDEDT.REL 92131-16428 5010  QDMDB.LOD 92131-17208 5000  QDMDB.REL 92131-16140 5010   - 6.0 Communicator - $ 3-59 $1  & Current Revisions(92131A) &   QDMPC.LOD 92131-17127 5010  QDMPC.REL 92131-16466 5010  QDRET.REL 92131-16424 5010  QDSS0.REL 92131-16052 5010  QDSS1.REL 92131-16053 5010  QDSS2.REL 92131-16054 5010  QDSS3.REL 92131-16055 5010  QDSS4.REL 92131-16417 5010  QDSUP.LOD 92131-17104 5000  QDSUP.REL 92131-16051 5010  QERLB.LIB 92131-12011 5010  QERLC.LIB 92131-12014 5010  RAWDT.LOD 92131-17204 2518  RAWDT.REL 92131-16179 5020  RDB.LOD 92131-17159 5010  RDB.REL 92131-16110 5010  RDB00.REL 92131-16086 5010  RDB01.REL 92131-16111 5010  RDB02.REL 92131-16112 5010  RDB03.REL 92131-16114 5010  RDB04.REL 92131-16116 5010  RDB05.REL 92131-16118 5010  RDB06.REL 92131-16120 5010  RDB07.REL 92131-16122 5010  RDB08.REL 92131-16124 5010  RDB09.REL 92131-16184 5010  RDB10.REL 92131-16197 5010  RDB11.REL 92131-16117 5010  RDB12.REL 92131-16399 5010  RDB20.REL 92131-16452 5010  RDBLB.LIB 92131-12001 5010  RDLOG.REL 92131-16185 5010  RLASC.REL 92131-16395 5010  RLIST.LOD 92131-17176 2518  RLIST.REL 92131-16421 5010  RMONT.LOD 92131-17203 2603  RMONT.REL 92131-16174 5010  RMT0A.REL 92131-16175 5010  RMT0B.REL 92131-16176 5010  RMT0C.REL 92131-16177 5010  RMT0D.REL 92131-16178 5010  RMTLB.LIB 92131-12008 5010  RMTUT.REL 92131-16173 5010  ROLL.LOD 92131-17209 2620  ROLL.REL 92131-16142 5000  ROLLV.LOD 92131-17177 2518  ROLLV.REL 92131-16422 5010  ROLL_LU.LOD 92131-17500 2518  ROLL_LU.REL 92131-16425 5010  RPG0A.REL 92131-16165 5020   - 6.0 Communicator -  3-60 1  & Current Revisions(92131A) &   RPG0B.REL 92131-16166 5010  RPG0C.REL 92131-16167 5010  RPG0D.REL 92131-16168 5010  RPG0E.REL 92131-16169 5020  RPG0F.REL 92131-16170 5010  RPGEN.LOD 92131-17202 5010  RPGEN.REL 92131-16164 5010  RPGL1.LIB 92131-12012 5000  RPGLB.LIB 92131-12009 5020  RPGUT.REL 92131-16163 5010  SCHCR.LOD 92131-17190 5010  SCHCR.REL 92131-16560 5010  SDOWN.LOD 92131-17130 5000  SDOWN.REL 92131-16073 5010  SDWN0.REL 92131-16074 5010  SDWN1.REL 92131-16075 5010  SDWN2.REL 92131-16076 5010  SDWN3.REL 92131-16077 5010  VALID.LOD 92131-17175 2518  VALID.REL 92131-16423 5010  VERFY.CMD 92131-17317 5010  WELCOM 92131-17233 5000   Directory: /QDM_SCREEN&SYS/   "RPGER 92131-17214 5010  Deleted   Directory: /QDM_VERIFY/QDM_DESCRIPTOR/   SKASBG 92131-17468 2518  SKDESC 92131-17118 5000  SKEND 92131-17465 2518  SKFT01 92131-17119 5000  SKFTBG 92131-17471 2518  SKIC01 92131-17120 5000  SKQABG 92131-17464 2518  SKRWBG 92131-17477 2518  SKSA01 92131-17476 2518  SKWSBG 92131-17469 2518   Directory: /QDM_VERIFY/QDM_PARAMETERS/   CPFT01 92131-17472 5010  SPAUTO 92131-17308 5010  SPFT01 92131-17474 5010  SPQA01 92131-17467 5010  SPWS01 92131-17470 5010   Directory: /QDM_VERIFY/QDM_RELOCS/   AUTOT.LOD 92131-17240 5010  AUTOT.PAS 92131-18571 5010  AUTOT.REL 92131-16571 5010  QDM.BAT 92131-17234 5010  QDM.SLK 92131-17235 5010  QDM_CHART.CHA 92131-17236 5010   Directory: /QDM_VERIFY/QDM_REPORT_DEF/   ANBC01 92131-17492 5000  ANHG01 92131-17489 5000  ANPC01 92131-17494 5000  ANSG01 92131-17490 5000  ANXB01 92131-17491 5000  ERBC01 92131-17485 5000  ERHG01 92131-17482 5000  ERPC01 92131-17487 5000  ERSG01 92131-17483 5000  ERXB01 92131-17484 5000  RPABUT 92131-17462 5000  RPBARC 92131-17320 5010   - 6.0 Communicator -  3-68 1  & Current Revisions(92131A) &   RPCFIG 92131-17463 5000  RPCNTL 92131-17237 5000  RPDIF.REP 92131-17232 5010  RPFT01 92131-17456 5000  RPFT02 92131-17457 5000  RPFTAB 92131-17106 5000  RPHIST 92130-17234 5000  RPLOG 92131-17460 5000  RPPARM 92131-17461 5000  RPQA01 92131-17451 5000  RPQA02 92131-17452 5000  RPQDM 92131-17098 5000  RPRW01 92131-17458 5000  RPSCAT 92130-17236 5000  RPSY01 92131-17459 5000  RPTAB 92130-17235 5000  RPTRCK 92131-17239 5000  RPWS01 92131-17453 5000  RPWS02 92131-17454 5000  RPWS03 92131-17455 5000  RPWSXR 92131-17309 5010   Directory: /QDM_VERIFY/QDM_VALIDN_SET/   VAL01 92131-17479 2518  VAL02 92131-17480 2518  VAL03 92131-17481 2518   % Edition/ Print %% Manual Part# Title Update Date %% ------------+---------------------------------------+--------------- % (no manual changes)    Media Part# Media Option  -------------+---------------  92131-13301 022  92131-13502 051     3.18 (92571A) C/1000    Filename Part Number Rev  --------------------- ----------- ----      - 6.0 Communicator - $ 3-69 $1  & Current Revisions(92571A) &   Directory: /C1000/CMD/   CLEAN_.CMD 92571-17007 3200  INSTALL_CC.CMD 92571-17006 3200   Directory: /C1000/ETC/   C1000.SNF 92571-17999 3200  CCSC.MSGS 92571-17008 3200   Directory: /C1000/INCLUDE/   ASSERT.H 92571-18029 3200  CTYPE.H 92571-18014 3200  CTYPE.HE 92571-18030 3200  ERRNO.H 92571-18013 3200  FLOAT.H 92571-18028 3200  LIMITS.H 92571-18019 3200  LOCALE.H 92571-18016 3200  LOCALE.HE 92571-18031 3200  MATH.H 92571-18024 3200  NR_VARGS.H 92571-18025 3200  RTE.H 92571-18021 3200  RTE.HE 92571-18032 3200  SETJMP.H 92571-18018 3200  SETJMP.HE 92571-18033 3200  STDARG.H 92571-18020 3200  STDARG.HE 92571-18034 3200  STDDEF.H 92571-18012 3200  STDEFS.H 92571-18023 3200  STDIO.H 92571-18027 3200  STDIO.HE 92571-18035 3200  STDLIB.H 92571-18015 3200  STDLIB.HE 92571-18036 3200  STRING.H 92571-18022 3200  STRING.HE 92571-18037 3200  TIME.H 92571-18026 3200  TIME.HE 92571-18038 3200  VARARGS.H 92571-18017 3200   Directory: /C1000/LIB/   CC.LIB 92571-16004 320((0  CC2.LIB 92571-16006 3200  CC3.LIB 92571-16007 3200  CC4.LIB 92571-16008 3200  CCOMP1.LIB 92571-16001 3200  CCOMP2.LIB 92571-16002 3200  CCOMP3.LIB 92571-16003 3200  CCOMP4.LIB 92571-16036 3200   - 6.0 Communicator -  3-70 1  & Current Revisions(92571A) &   CC_E.LIB 92571-16005 3200  HPC.LIB 92571-16009 3200  HPC_E.LIB 92571-16012 3200  HPC_MEF.LIB 92571-16011 3200  HPC_MEFE.LIB 92571-16014 3200  HPC_NR.LIB 92571-16010 3200  HPC_NRE.LIB 92571-16013 3200   Directory: /C1000/LOD/   CC.LOD 92571-17001 3200  CC2.LOD 92571-17003 3200  CC3.LOD 92571-17004 3200  CC4.LOD 92571-17005 3200  CC_E.LOD 92571-17002 3200   Directory: /C1000/MRG/   LIB.MRG 92571-18040 3200  LIB_E.MRG 92571-18043 3200  LIB_MEF.MRG 92571-18042 3200  LIB_MEFE.MRG 92571-18045 3200  LIB_NR.MRG 92571-18041 3200  LIB_NRE.MRG 92571-18044 3200   Directory: /C1000/REL/   CC.REL 92571-16021 3200  CC2.REL 92571-16023 3200  CC3.REL 92571-16024 3200  CC4.REL 92571-16025 3200  CC_E.REL 92571-16022 3200  CONFIG.REL 92571-16027 3200  DEF_ALLOC.REL 92571-16030 3200  EDEF_ALLOC.REL 92571-16031 3200  EXIT.REL 92571-16032 3200  EXIT_E.REL 92571-16033 3200  EXIT_NR.REL 92571-16034 3200  EXIT_NRE.REL 92571-16035 3200  G_SYMTAB.REL 92571-16029 3200  INSTALL_HEAP.REL 92571-16028 3200  SISID.REL 92571-16026 3200   Directory: /C1000/SRC/   ARG_BUF.C 92571-18003 3200  CONFIG.C 92571-18011 3200  G_SYMTAB.C 92571-18001 3200  HEAP_LOCATION.C 92571-18004 3200  INSTALL_HEAP.C 92571-18002 3200   - 6.0 Communicator - $ 3-71 $1  & Current Revisions(92571A) &   LDATA.C 92571-18010 3200  MSSTMT.C 92571-18039 3200  UNIXIO.C 92571-18005 3200  _CPARSE.C 92571-18007 3200  _CUPARSE.C 92571-18008 3200  _STARTUP.C 92571-18006 3200  _UPARSE.C 92571-18009 3200     3.19 + (92833A) Pascal/1000 (RTE-6/VM, RTE-A)    Filename Part Number Rev Change  --------------------- ----------- ---- --------   Directory: /PASCAL/   * A92833 92833-17998 5010 --> 6000  CONFIG_GUIDE.DOC 92833-17085 5000   Directory: /PASCAL/CMP/   ALB.REL 92833-16061 5000  CDSOF.REL 92833-16063 5000  CDSON.REL 92833-16064 5000  DCT.REL 92833-16067 5000  PASCAL.ERR 92833-17021 5000   Directory: /PASCAL/CMP/CDS/   CAT.REL 92833-16171 5000  DATE.REL 92833-16219 5010  DBG.REL 92833-16172 5000  DCL.REL 92833-16173 5010  DLB.REL 92833-16174 5010  ELB.REL 92833-16175 5000  ERW.REL 92833-16176 5000  EV1.REL 92833-16177 5000  EV2.REL 92833-16178 5000  EV3.REL 92833-16179 5000  EV4.REL 92833-16180 5000  EV5.REL 92833-16181 5000  EXP.REL 92833-16182 5000  FLD.REL 92833-16183 5000  INT.REL 92833-16184 5000  MAN.REL 92833-16185 5000  MEX.REL 92833-16186 5010  MIM.REL 92833-16187 5000  MNU.REL 92833-16188 5000   - 6.0 Communicator -  3-72 1  & Current Revisions(92833A) &   NFS.REL 92833-16189 5000  OPT.REL 92833-16190 5000  PASCAL.REL 92833-16191 5000  PASCAL_C.LOD 92833-17048 5000  PASCOMP_C.LOD 92833-17045 5000  PRG.REL 92833-16192 5000  SAMER.REL 92833-16208 5000  SCN.REL 92833-16193 5000  SG00P.REL 92833-16194 5000  SG01P.REL 92833-16195 5000  SLB.REL 92833-16196 5000  SSL.REL 92833-16197 5000  STF.REL 92833-16198 5000  STM.REL 92833-16199 5000  STP.REL 92833-16200 5000  SUM.REL 92833-16226 5000  TLM.REL 92833-16201 5010  ULB.REL 92833-16202 5000  UNT.REL 92833-16203 5000  UTL.REL 92833-16204 5000  XFM.REL 92833-16205 5000   Directory: /PASCAL/CMP/STD/   CAT.REL 92833-16062 5000  DATE.REL 92833-16229 5010  DBG.REL 92833-16065 5000  DCL.REL 92833-16066 5010  DCV.REL 92833-16227 5000  ERW.REL 92833-16071 5000  ETC.LIB 92833-16223 5000  EV1.REL 92833-16072 5000  EV2.REL 92833-16073 5000  EV3.REL 92833-16074 5000  EV4.REL 92833-16075 5000  EV5.REL 92833-16076 5000  EXP.REL 92833-16077 5000  FCB.REL 92833-16137 5000  FDUBL.REL 92833-16069 5000  FLD.REL 92833-16078 5000  FORCE.REL 92833-16131 5000  GO.REL 92833-16132 5000  INT.REL 92833-16079 5000  MAN.REL 92833-16080 5000  MEU.REL 92833-16133 5000  MEX.REL 92833-16081 5010  MIM.REL 92833-16082 5000  MSC.LIB 92833-16134 5010  NOTEL.REL 92833-16135 5000  NUM.REL 92833-16136 5000   - 6.0 Communicator - $ 3-73 $1  & Current Revisions(92833A) &   OPT.REL 92833-16085 5000  PASCAL.REL 92833-16103 5000  PASCAL_6.LOD 92833-17047 5000  PASCAL_A.LOD 92833-17046 5000  PASCOMP_6.LOD 92833-17033 5000  PASCOMP_A.LOD 92833-17032 5000  PASS.LIB 92833-16138 5000  PCIOF.REL 92833-16140 5000  PCIOR.REL 92833-16139 5000  PICK.LIB 92833-16141 5000  PRG.REL 92833-16086 5000  SAM6.REL 92833-16142 5000  SAMA.REL 92833-16143 5000  SCN.REL 92833-16087 5000  SEGTB.REL 92833-16144 5000  SG00P.REL 92833-16088 5000  SG01P.REL 92833-16089 5000  SG02P.REL 92833-16145 5000  SG03P.REL 92833-16146 5000  SG04P.REL 92833-16147 5000  SG05P.REL 92833-16148 5000  SG06P.REL 92833-16149 5000  SG07P.REL 92833-16150 5000  SG08P.REL 92833-16151 5000  SG09P.REL 92833-16152 5000  SG10P.REL 92833-16153 5000  SG11P.REL 92833-16154 5000  SG12P.REL 92833-16155 5000  SG13P.REL 92833-16156 5000  SG14P.REL 92833-16157 5000  SG15P.REL 92833-16158 5000  SG16P.REL 92833-16159 5000  SG17P.REL 92833-16160 5000  SG18P.REL 92833-16161 5000  SG19P.REL 92833-16224 5000  SSC.REL 92833-16163 5000  STF.REL 92833-16092 5000  STM.REL 92833-16093 5000  STP.REL 92833-16094 5000  SUM.REL 92833-16225 5000  TLM.REL 92833-16095 5010  TRACE.REL 92833-16164 5000  TRACE1.REL 92833-16165 5000  UNT.REL 92833-16097 5000  UTL.REL 92833-16098 5000  XFM.REL 92833-16099 5000   Directory: /PASCAL/ETC/ALTER/   ALTER.DAT 92833-17049 5000   - 6.0 Communicator -  3((-74 1  & Current Revisions(92833A) &   ALTER.DOC 92833-17100 5000  ALTER.LOD 92833-17050 5000  ALTER.REL 92833-16209 5000   Directory: /PASCAL/INSTALL/   CONFIG_CMP 92833-17073 5000  INSTALL 92833-17071 5000  INSTALL_6 92833-17079 5000  INSTALL_A 92833-17078 5000  INSTALL_ALTER 92833-17083 5000  INSTALL_ALT_LIBS 92833-17089 5000  INSTALL_C 92833-17077 5000  INSTALL_CDS_LIBS 92833-17087 5000  INSTALL_CMP 92833-17074 5000  INSTALL_ERR_FILE 92833-17090 5000  INSTALL_FMGR_LIB 92833-17088 5000  INSTALL_LIBS 92833-17072 5000  INSTALL_STD_LIBS 92833-17086 5000  LINKSZ.LOD 92833-17098 5000  RESTORE_ALTER 92833-17094 5000  RESTORE_CDS_CMP 92833-17093 5000  RESTORE_LIBS 92833-17091 5000  RESTORE_STD_CMP 92833-17092 5000  SAMPLE.PAS 92833-17062 5000  SIZE_UP_LINK_6 92833-17097 5000  SIZE_UP_LINK_A 92833-17096 5000  SIZE_UP_LINK_C 92833-17095 5000  TEST_CDS 92833-17076 5000  TEST_STD 92833-17075 5000   Directory: /PASCAL/LIB/CDS/   * PASCAL_CDS.LIB 92833-16104 5000 --> 6000  PASCAL_CERR.REL 92833-16167 5000  PASCAL_CTRA.REL 92833-16116 5000   Directory: /PASCAL/LIB/STD/   * PASCAL.LIB 92833-16113 5000 --> 6000  PASCAL_ERR.REL 92833-16125 5000  PASCAL_ERR_ALT.REL 92833-16222 5000  * PASCAL_FMGR.LIB 92833-16107 5000 --> 6000  PASCAL_FMGR_ALT.LIB 92833-16210 5000  PASCAL_LH2.REL 92833-16117 5000  PASCAL_TRA.REL 92833-16168 5000  PASCAL_TRB.REL 92833-16169 5000  PASCAL_TRC.REL 92833-16170 5000  SHSLB.LIB 92833-16220 5000  SHSLB_ALT.LIB 92833-16221 5000   - 6.0 Communicator - $ 3-75 $1  & Current Revisions(92833A) &    % Edition/ Print %% Manual Part# Title Update Date %% ------------+---------------------------------------+--------------- % (no manual changes)    Media Part# Media Option  -------------+---------------  92833-13320 022  92833-13511 050  92833-13512 051  92833-13601 AAH     3.20 + (92836A) Fortran-77 Compiler    Filename Part Number Rev Change  --------------------- ----------- ---- --------   Directory: /FTN7X/   "FTN7X 92836-17001 5010  * #FTN7X 92836-17002 5020 --> 6000  * $F7XCS 92836-12001 5270 --> 6000  * $FCLBA 92836-12002 5010 --> 6000  * %F7X1 92836-16002 5270 --> 6000  * %F7X2 92836-16003 5270 --> 6000  %FRPLS 92836-16004 5010  * %FX000 92836-16006 5270 --> 6000  &FRPLS 92836-18004 5010  * A92836 92836-17999 5270 --> 6000  * M92836.MNF 92836-17998 New --> 6000   % Edition/ Print %% Manual Part# Title Update Date %% ------------+---------------------------------------+--------------- %% 92836-90001 FORTRAN 77 Programmer's Reference 3/- E1292 %    Media Part# Media Option  -------------+---------------  92836-13303 022  92836-13501 050  92836-13502 051   - 6.0 Communicator -  3-76 1  & Current Revisions(92836A) &   92836-13601 AAH     3.21 + (92857A) Basic/1000C    Filename Part Number Rev Change  --------------------- ----------- ---- --------   Directory: /BASIC/   "BERRS 92857-17009 2401  * A92857.SNF 92857-17999 5000 --> 6000  BASIC_ERRORS.SRC 92857-17010 2401  * M92857.MNF 92857-17998 2540 --> 6000   Directory: /BASIC/COMPILER/   BDAT.LOD 92857-17018 2540  BDAT.REL 92857-16239 2401  B_EIO.REL 92857-16291 2401  B_EMA.REL 92857-16249 2401  B_MLE.EDIT 92857-17022 2401  B_MLV.EDIT 92857-17023 2401  * B_VMA.REL 92857-16250 2401 --> 6000  * CBASIC1.REL 92857-12013 5000 --> 6000  * CBASIC2.REL 92857-12016 5000 --> 6000  * CBASIC_CDS1.REL 92857-12014 5000 --> 6000  * CBASIC_CDS2.REL 92857-12017 2540 --> 6000  CBASIC_CDS_LIB.MERG 92857-17029 2401  * CBASIC_CMP.LIB 92857-12012 5000 --> 6000  CBASIC_LIB.MERG 92857-17028 2401  * CBA_1.REL 92857-12010 5000 --> 6000  CBA_123.MERG 92857-17021 2401  * CBA_2.REL 92857-12011 5000 --> 6000  * CBA_3.REL 92857-12015 2430 --> 6000  CDSOF.REL 92857-16379 2401  CDSON.REL 92857-16378 2401  CDS_B_EIO.REL 92857-16380 2401  CDS_B_EMA.REL 92857-16381 2401  CDS_B_VMA.REL 92857-16382 2440  CDS_FMPSTUFF.REL 92857-16305 2401  CDS_IB_XX.MAC 92857-18302 2401  CDS_IB_XX.REL 92857-16302 2401  CDS_L_EMA.REL 92857-16383 2401  CDS_MMGT2.REL 92857-16303 2401  CDS_MMGT2_ENI.REL 92857-16347 2440  CDS_RT_AM.REL 92857-16304 2401  FMPSTUFF.REL 92857-16306 2401   - 6.0 Communicator - $ 3-77 $1  & Current Revisions(92857A) &   F_EMA.REL 92857-16240 2401  IB_XX.MAC 92857-18241 2401  IB_XX.REL 92857-16241 2401  INSTALL_6.CMD 92857-17019 5000  * INSTALL_6.LOD 92857-17013 2401 --> 6000  INSTALL_A.CMD 92857-17020 5000  INSTALL_A.LOD 92857-17014 2401  INSTALL_AC.CMD 92857-17025 5000  * LINK_E.LOD 92857-17015 2540 --> 6000  * LINK_ENI.LOD 92857-17030 2540 --> 6000  * LINK_ENI_CDS.LOD 92857-17031 5000 --> 6000  * LINK_E_CDS.LOD 92857-17027 5000 --> 6000  LINK_L.LOD 92857-17016 2401  LINK_L_CDS.LOD 92857-17026 5000  * LINK_V.LOD 92857-17017 2540 --> 6000  * LINK_V_CDS.LOD 92857-17024 5000 --> 6000  L_EMA.REL 92857-16242 2401  MMGT2.REL 92857-16243 2401  MMGT2_ENI.REL 92857-16346 2440  RT_6M.REL 92857-16244 2401  RT_AM.REL 92857-16245 2401  SAM6C.REL 92857-16248 2401  SAMAC.REL 92857-16247 2401  S_EMA.MAC 92857-18246 2401  S_EMA.REL 92857-16246 2401   Directory: /BASIC/INTERPRETER/   BAS_6.LOD 92857-17002 5000  BAS_A.LOD 92857-17001 2540  BBMG.LOD 92857-17003 2440  BCALL.LIB 92857-16132 2401  BCALL_CDS.LIB 92857-16221 5000  BEXEC.REL 92857-16215 2401  * BLIB1.LIB 92857-12006 5000 --> 6000  * BLIB2.LIB 92857-12007 2540 --> 6000  * BMSKL.REL 92857-12003 5000 --> 6000  * BSSKL.REL 92857-12004 5000 --> 6000  BXLUEX.REL 92857-16421 2540  B_T12.REL 92857-16131 2401  FOB_6.REL 92857-16387 2540  FOB_A.REL 92857-16386 2540  FOX_6.REL 92857-16144 2540  FOX_A.REL 92857-16145 2540  INSTALL_6_BAS.CMD 92857-17008 5000  INSTALL_A_BAS.CMD 92857-17007 5000  * LBMGL.LIB 92857-12002 5000 --> 6000  MRBAS.MER 92857-17011 2440  MRRBX.MER 92857-17012 2401  RBX_6.LOD 92857-17006 5000   - 6.0 Communicator -  3-78 1  & Current Revisions(92857A) &   RBX_A.LOD 92857-17005 2401  RINTR.LOD 92857-17004 5000  RINTR.REL 92857-16128 5000  * RLIB1.LIB 92857-12008 5000 --> 6000  * RLIB2.LIB 92857-12009 5000 --> 6000  * RLIB3.LIB 92857-12001 2540 -((-> 6000  * RLIB4.LIB 92857-12018 5000 --> 6000  RNSRQ.REL 92857-16296 5000  * RXSKL.REL 92857-12005 5000 --> 6000  SAM6.REL 92857-16411 2540  SAMA.REL 92857-16410 2540  SAM_6.REL 92857-16151 2401  SAM_A.REL 92857-16152 2401   % Edition/ Print %% Manual Part# Title Update Date %% ------------+---------------------------------------+--------------- %) 92857-90001 BASIC/1000C Reference manual 3/- E1292 )) 92857-90002 BASIC/1000C Installation and Configuration Guide 4/- E1292 ) ' The following manual was deleted from the product and is in support life ' until January 1, 1998.  ) 92857-90003 BASIC/1000C Quick Reference Guide 1 1 U0684 )   Media Part# Media Option  -------------+---------------  92857-13301 022  92857-13501 050  92857-13502 051  92857-13601 AAH     3.22 + (92860A) Symbolic Debug/1000    Filename Part Number Rev Change  --------------------- ----------- ---- --------   Directory: /DEBUG/   * CALLS.LOD 92077-17317 5020 --> Deleted  * CALLS.REL 92077-12044 5020 --> Deleted  CDS_DEBUG.LOD 92860-17015 5260  * CDS_DEBUG.REL 92860-12003 5261 --> 6000  * CDS_DEBUGA.LIB 92860-12004 5260 --> 6000  * DEBUG.C000 92860-17003 5261 --> 6000   - 6.0 Communicator - $ 3-79 $1  & Current Revisions(92860A) &   * DEBUG.CALL 92860-16167 5260 --> 6000  DEBUG.LOD 92860-17001 5260  * DEBUG.REL 92860-12001 5261 --> 6000  * DEBUG.SNF 92860-17999 5261 --> 6000  * DEBUG6.LIB 92860-12082 5260 --> 6000  * DEBUGA.LIB 92860-12081 5260 --> 6000  * INSTALL.CMD 92860-17008 5261 --> 6000  * M92860.MNF 92860-17998 New --> 6000  * README 92860-17019 5261 --> Deleted  * XDB.C000 92860-16168 New --> 6000  * XDB.CALL 92860-16173 New --> 6000  * XDB.HELP 92860-17023 New --> 6000  * XDB.LIB 92860-12006 New --> 6000  * XDB.LOD 92860-17022 New --> 6000  * XDB.REL 92860-12005 New --> 6000   % Edition/ Print %% Manual Part# Title Update Date %% ------------+---------------------------------------+--------------- %% 92860-90001 Symbolic Debug/1000 Reference Manual 6/- E1292 %    Media Part# Media Option  -------------+---------------  92860-13301 022  92860-13501 050  92860-13502 051  92860-13601 AAH     3.23 + (92861A) Graphics/1000-II DGL Version 2.0    Filename Part Number Rev Change  --------------------- ----------- ---- --------   Directory: /GRAPHICSV2/DGL/   * A0000.LIB 92861-12121 4010 --> 6000  * A0000_CDS.LIB 92861-12122 4010 --> 6000  * A0001.LIB 92861-12003 4010 --> 6000  * A0001_CDS.LIB 92861-12070 4010 --> 6000  * A0017.LIB 92861-12032 4010 --> 6000  * A0017_CDS.LIB 92861-12115 4010 --> 6000  * A0025.LIB 92861-12149 4010 --> 6000  * A0025_CDS.LIB 92861-12150 4010 --> 6000  * A0072.LIB 92861-12207 5000 --> 6000   - 6.0 Communicator -  3-80 1  & Current Revisions(92861A) &   * A0072_CDS.LIB 92861-12219 5020 --> 6000  * A0073.LIB 92861-12215 5020 --> 6000  * A0073_CDS.LIB 92861-12211 5020 --> 6000  * A92861 92861-18999 5020 --> 6000  * B0000.LIB 92861-12123 4010 --> 6000  * B0000_CDS.LIB 92861-12124 4010 --> 6000  * B0001.LIB 92861-12004 4010 --> 6000  * B0001_CDS.LIB 92861-12071 4010 --> 6000  * B0004.LIB 92861-12013 4010 --> 6000  * B0004_CDS.LIB 92861-12072 4010 --> 6000  * B0017.LIB 92861-12033 4010 --> 6000  * B0017_CDS.LIB 92861-12116 4010 --> 6000  * B0072.LIB 92861-12208 5000 --> 6000  * B0072_CDS.LIB 92861-12212 5000 --> 6000  * B0073.LIB 92861-12216 5020 --> 6000  * B0073_CDS.LIB 92861-12220 5020 --> 6000  CHART_DGL.FTN 24998-18579 2420  * COLDM.REL 92861-12145 2540 --> 6000  * COLDM_CDS.REL 92861-12146 2540 --> 6000  * D0001.LIB 92861-12002 4010 --> 6000  * D0001_CDS.LIB 92861-12073 4010 --> 6000  * D0002.LIB 92861-12009 4010 --> 6000  * D0002_CDS.LIB 92861-12074 4010 --> 6000  * D0003.LIB 92861-12012 4010 --> 6000  * D0003_CDS.LIB 92861-12075 4010 --> 6000  * D0006.LIB 92861-12019 4010 --> 6000  * D0006_CDS.LIB 92861-12076 4010 --> 6000  * D0007.LIB 92861-12022 4010 --> 6000  * D0007_CDS.LIB 92861-12077 4010 --> 6000  * D0008.LIB 92861-12023 4010 --> 6000  * D0008_CDS.LIB 92861-12078 4010 --> 6000  * D0009.LIB 92861-12024 4010 --> 6000  * D0009_CDS.LIB 92861-12079 4010 --> 6000  * D0010.LIB 92861-12025 4010 --> 6000  * D0010_CDS.LIB 92861-12080 4010 --> 6000  * D0015.LIB 92861-12026 4010 --> 6000  * D0015_CDS.LIB 92861-12081 4010 --> 6000  * D0016.LIB 92861-12027 4010 --> 6000  * D0016_CDS.LIB 92861-12082 4010 --> 6000  * D0018.LIB 92861-12044 4010 --> 6000  * D0018_CDS.LIB 92861-12083 4010 --> 6000  * D0019.LIB 92861-12028 4010 --> 6000  * D0019_CDS.LIB 92861-12084 4010 --> 6000  * D0020.LIB 92861-12127 4010 --> 6000  * D0020_CDS.LIB 92861-12128 4010 --> 6000  * D0021.LIB 92861-12045 4010 --> 6000  * D0021_CDS.LIB 92861-12085 4010 --> 6000  * D0025.LIB 92861-12147 4010 --> 6000  * D0025_CDS.LIB 92861-12148 4010 --> 6000  * D0026.LIB 92861-12137 5020 --> 6000   - 6.0 Communicator - $ 3-81 $1  & Current Revisions(92861A) &   * D0026_CDS.LIB 92861-12138 5020 --> 6000  * D0027.LIB 92861-12048 4010 --> 6000  * D0027_CDS.LIB 92861-12110 4010 --> 6000  * D0028.LIB 92861-12049 4010 --> 6000  * D0028_CDS.LIB 92861-12111 4010 --> 6000  * D0029.LIB 92861-12050 4010 --> 6000  * D0029_CDS.LIB 92861-12112 4010 --> 6000  * D0030.LIB 92861-12051 4010 --> 6000  * D0030_CDS.LIB 92861-12113 4010 --> 6000  * D0031.LIB 92861-12053 4010 --> 6000  * D0031_CDS.LIB 92861-12087 4010 --> 6000  * D0032.LIB 92861-12055 4010 --> 6000  * D0032_CDS.LIB 92861-12088 4010 --> 6000  * D0036.LIB 92861-12058 4010 --> 6000  * D0036_CDS.LIB 92861-12089 4010 --> 6000  * D0045.LIB 92861-12164 4010 --> 6000  * D0045_CDS.LIB 92861-12163 4010 --> 6000  * D0046.LIB 92861-12129 4010 --> 6000  * D0046_CDS.LIB 92861-12130 4010 --> 6000  * D0047.LIB 92861-12131 4010 --> 6000  * D0047_CDS.LIB 92861-12132 4010 --> 6000  * D0048.LIB 92861-12133 4010 --> 6000  * D0048_CDS.LIB 92861-12134 4010 --> 6000  * D0053.LIB 92861-12139 5020 --> 6000  * D0053_CDS.LIB 92861-12140 5020 --> 6000  * D0054.LIB 92861-12141 5020 --> 6000  * D0054_CDS.LIB 92861-12142 5020 --> 6000  * D0055.LIB 92861-12143 5020 --> 6000  * D0055_CDS.LIB 92861-12144 5020 --> 6000  * D0058.LIB 92861-12165 5020 --> 6000  * D0058_CDS.LIB 92861-12166 5020 --> 6000  * D0059.LIB 92861-12157 4010 --> 6000  * D0059_CDS.LIB 92861-12158 4010 --> 6000  * D0060.LIB 92861-12159 4010 --> 6000  * D0060_CDS.LIB 92861-12160 4010 --> 6000  * D0061.LIB 92861-12167 5000 --> 6000  * D0061_CDS.LIB 92861-12169 5000 --> 6000  * D0063.LIB 92861-12168 5020 --> 6000  * D0063_CDS.LIB 92861-12170 5020 --> 6000  * D0064.LIB 92861-12204 5020 (( --> 6000  * D0064_CDS.LIB 92861-12206 5020 --> 6000  * D0065.LIB 92861-12181 5020 --> 6000  * D0065_CDS.LIB 92861-12182 5020 --> 6000  * D0066.LIB 92861-12179 5020 --> 6000  * D0066_CDS.LIB 92861-12180 5020 --> 6000  * D0067.LIB 92861-12175 5020 --> 6000  * D0067_CDS.LIB 92861-12176 5020 --> 6000  * D0068.LIB 92861-12183 5020 --> 6000  * D0068_CDS.LIB 92861-12184 5020 --> 6000  * D0069.LIB 92861-12193 5020 --> 6000   - 6.0 Communicator -  3-82 1  & Current Revisions(92861A) &   * D0069_CDS.LIB 92861-12194 5020 --> 6000  * D0070.LIB 92861-12195 5000 --> 6000  * D0070_CDS.LIB 92861-12196 5000 --> 6000  * D0071.LIB 92861-12199 5020 --> 6000  * D0071_CDS.LIB 92861-12200 5020 --> 6000  * D0072.LIB 92861-12209 5000 --> 6000  * D0072_CDS.LIB 92861-12213 5000 --> 6000  * D0073.LIB 92861-12217 5020 --> 6000  * D0073_CDS.LIB 92861-12221 5020 --> 6000  * D0074.LIB 92861-12223 5020 --> 6000  * D0074_CDS.LIB 92861-12224 5020 --> 6000  * D0075.LIB 92861-12225 5020 --> 6000  * D0075_CDS.LIB 92861-12226 5020 --> 6000  * D0076.LIB 92861-12227 5020 --> 6000  * D0076_CDS.LIB 92861-12228 5020 --> 6000  * D0077.LIB 92861-12229 5020 --> 6000  * D0077_CDS.LIB 92861-12230 5020 --> 6000  * D0078.LIB 92861-12233 New --> 6000  * D0078_CDS.LIB 92861-12234 New --> 6000  * D0079.LIB 92861-12231 New --> 6000  * D0079_CDS.LIB 92861-12232 New --> 6000  DEMOS_DGL.TXT 24998-19009 2420  * DIDD.LIB 92861-12109 4010 --> 6000  * DIDD_CDS.LIB 92861-12069 4010 --> 6000  GRAPH_DGL.FTN 24998-18578 2420  * K0000.LIB 92861-12125 4010 --> 6000  * K0000_CDS.LIB 92861-12126 4010 --> 6000  * K0001.LIB 92861-12005 4010 --> 6000  * K0001_CDS.LIB 92861-12090 4010 --> 6000  * K0017.LIB 92861-12034 4010 --> 6000  * K0017_CDS.LIB 92861-12117 4010 --> 6000  * K0025.LIB 92861-12151 4010 --> 6000  * K0025_CDS.LIB 92861-12152 4010 --> 6000  * L0001.LIB 92861-12006 4010 --> 6000  * L0001_CDS.LIB 92861-12091 4010 --> 6000  * L0002.LIB 92861-12010 4010 --> 6000  * L0002_CDS.LIB 92861-12092 4010 --> 6000  * L0004.LIB 92861-12014 4010 --> 6000  * L0004_CDS.LIB 92861-12093 4010 --> 6000  * L0005.LIB 92861-12017 4010 --> 6000  * L0005_CDS.LIB 92861-12094 4010 --> 6000  * L0006.LIB 92861-12020 4010 --> 6000  * L0006_CDS.LIB 92861-12095 4010 --> 6000  * L0017.LIB 92861-12035 4010 --> 6000  * L0017_CDS.LIB 92861-12118 4010 --> 6000  * L0018.LIB 92861-12046 4010 --> 6000  * L0018_CDS.LIB 92861-12096 4010 --> 6000  * L0019.LIB 92861-12029 4010 --> 6000  * L0019_CDS.LIB 92861-12097 4010 --> 6000  * L0027.LIB 92861-12052 4010 --> 6000   - 6.0 Communicator - $ 3-83 $1  & Current Revisions(92861A) &   * L0027_CDS.LIB 92861-12114 4010 --> 6000  * L0031.LIB 92861-12054 4010 --> 6000  * L0031_CDS.LIB 92861-12098 4010 --> 6000  * L0032.LIB 92861-12056 4010 --> 6000  * L0032_CDS.LIB 92861-12099 4010 --> 6000  * L0046.LIB 92861-12135 4010 --> 6000  * L0046_CDS.LIB 92861-12136 4010 --> 6000  * L0059.LIB 92861-12153 4010 --> 6000  * L0059_CDS.LIB 92861-12154 4010 --> 6000  * L0060.LIB 92861-12188 4010 --> 6000  * L0060_CDS.LIB 92861-12187 4010 --> 6000  * L0061.LIB 92861-12171 5000 --> 6000  * L0061_CDS.LIB 92861-12173 5000 --> 6000  * L0063.LIB 92861-12172 5020 --> 6000  * L0063_CDS.LIB 92861-12174 5020 --> 6000  * L0067.LIB 92861-12177 5020 --> 6000  * L0067_CDS.LIB 92861-12178 5020 --> 6000  * L0068.LIB 92861-12185 5020 --> 6000  * L0068_CDS.LIB 92861-12186 5020 --> 6000  * L0070.LIB 92861-12197 5000 --> 6000  * L0070_CDS.LIB 92861-12198 5000 --> 6000  * L0071.LIB 92861-12201 5020 --> 6000  * L0071_CDS.LIB 92861-12202 5020 --> 6000  * L0072.LIB 92861-12210 5000 --> 6000  * L0072_CDS.LIB 92861-12214 5000 --> 6000  * L0073.LIB 92861-12218 5020 --> 6000  * L0073_CDS.LIB 92861-12222 5020 --> 6000  M0COM.REL 92861-16161 2420  * M92861.MNF 92861-17998 New --> 6000  * P0001.LIB 92861-12007 4010 --> 6000  * P0001_CDS.LIB 92861-12100 4010 --> 6000  * P0002.LIB 92861-12011 4010 --> 6000  * P0002_CDS.LIB 92861-12101 4010 --> 6000  * P0004.LIB 92861-12015 4010 --> 6000  * P0004_CDS.LIB 92861-12102 4010 --> 6000  * P0005.LIB 92861-12018 4010 --> 6000  * P0005_CDS.LIB 92861-12103 4010 --> 6000  * P0006.LIB 92861-12021 4010 --> 6000  * P0006_CDS.LIB 92861-12104 4010 --> 6000  * P0017.LIB 92861-12036 4010 --> 6000  * P0017_CDS.LIB 92861-12119 4010 --> 6000  * P0019.LIB 92861-12030 4010 --> 6000  * P0019_CDS.LIB 92861-12105 4010 --> 6000  * P0059.LIB 92861-12155 4010 --> 6000  * P0059_CDS.LIB 92861-12156 4010 --> 6000  * P0060.LIB 92861-12189 4010 --> 6000  * P0060_CDS.LIB 92861-12190 4010 --> 6000  PDGL1.PASI 92861-18344 2420  PDGL2.PASI 92861-18345 2420  PGNDM.REL 92861-16901 2420   - 6.0 Communicator -  3-84 1  & Current Revisions(92861A) &   PGNDM_CDS.REL 92861-16902 2420  T1INT.FTN 92861-18707 2420  * V0001.LIB 92861-12008 4010 --> 6000  * V0001_CDS.LIB 92861-12106 4010 --> 6000  * V0004.LIB 92861-12016 4010 --> 6000  * V0004_CDS.LIB 92861-12107 4010 --> 6000  * V0017.LIB 92861-12037 4010 --> 6000  * V0017_CDS.LIB 92861-12120 4010 --> 6000  * V0019.LIB 92861-12031 4010 --> 6000  * V0019_CDS.LIB 92861-12108 4010 --> 6000  * V0059.LIB 92861-12161 4010 --> 6000  * V0059_CDS.LIB 92861-12162 4010 --> 6000  * V0060.LIB 92861-12192 4010 --> 6000  * V0060_CDS.LIB 92861-12191 4010 --> 6000  Z0BFR.FTN 92861-18343 2420  Z1CTB.FTN 92861-18790 2420  Z1PTB.FTN 92861-18743 2420   % Edition/ Print %% Manual Part# Title Update Date %% ------------+---------------------------------------+--------------- %% 92861-90003 Device Handler Manual, Vol. 1 and 2 4/- E1292 %% 97084-90000 DGL Programmer's Reference Manual 2/- E1292 % ' The information contained in the following manuals was incorporated into '' the DGL Programmer's Reference Manual and, therefore, these manuals have ' been put into support life until January 1, 1998.   24998-90010 Letter explaining Instructional demo ! 92861-90001 DGL Programmer's Reference Manual Supplement !   Media Part# Media Option  -------------+---------------  92861-13301 022  92861-13501 050  92861-13502 051     3.24 + (92862A) Graphics/1000-II AGP Version 2.0    Filename Part Number Rev Change  --------------------- ----------- ---- --------   Directory: /GRAPHICSV2/AGP/   * A92862 92862-18999 5020 --> 6000   - 6.0 Communicator - $ 3-85 $1  & Current Revisions(92862A) &   CHART_AGP.FTN 24998-18580 2420  * COM.REL 92862-12020 2540 --> 6000  DEMOS_AGP.TXT 24998-19010 5000  FONT1.DAT 92862-16428 2420  FONT2.DAT 92862-16429 2420  FONT3.DAT 92862-16430 2420  FONT4.DAT 92862-16431 2420  FONT5.DAT 92862-16432 2420  FONT6.DAT 92862-16433 2420  HOUSE_AGP.FTN 24998-18582 2420  (( HOUSE_AGP.PAS 24998-18583 2440  K0NTB.FTN 92862-18454 2420  K0PAG.FTN 92862-18376 2420  K0SDF.FTN 92862-18377 2420  K1FIL.FTN 92862-18464 2420  * M92862.MNF 92862-17998 New --> 6000  PAGP1.PASI 92862-18447 2420  PAGP2.PASI 92862-18448 2420  PAGP3.PASI 92862-18449 2420  * SDUM.REL 92862-12021 2420 --> 6000  * SDUM_CDS.REL 92862-12022 2420 --> 6000  * UPLIB.LIB 92862-12016 4010 --> 6000  * UPLIB_CDS.LIB 92862-12017 4010 --> 6000  VIEW_AGP.FTN 24998-18581 2440  * WPGDM.REL 92862-12023 2540 --> 6000  * WPGDM_CDS.REL 92862-12024 2540 --> 6000  WSP.FTN 92862-18349 2540  WSP.REL 92862-16349 2540  * WSPLB.LIB 92862-12018 4010 --> 6000  * WSPLB_CDS.LIB 92862-12019 4010 --> 6000  WSP_CDS.REL 92862-16642 2540  * ZMNTL.REL 92862-12002 5020 --> 6000  * ZMNTR.REL 92862-12001 5000 --> 6000   % Edition/ Print %% Manual Part# Title Update Date %% ------------+---------------------------------------+--------------- %% 97085-90007 AGP Reference Manual 2/- E1292 %% 97085-90010 AGP User's Guide 2/- E1292 % ' The information contained in the following manuals was incorporated into '( the AGP Reference Manual and, therefore, these manuals have been put into ( support life until January 1, 1998.   24998-90010 Letter explaining Instructional demo  92862-90001 AGP Reference Manual Supplement      - 6.0 Communicator -  3-86 1  & Current Revisions(92862A) &     Media Part# Media Option  -------------+---------------  92862-13301 022  92862-13501 050  92862-13502 051  92862-13601 AAH     3.25 + (94200B) PCIF/1000    Filename Part Number Rev Change  --------------------- ----------- ---- --------   Directory: /PCIF/F1000/   FCOMM.REL 94250-16613 5010  * FLULB.LIB 94250-12523 5000 --> 6000  FOBLK.REL 94250-16504 5010  * FOCLO.REL 94250-16505 5000 --> 6000  * FOFLL.LIB 94250-12528 5000 --> 6000  FOLCL.TXT 94250-17542 2520  * FOPRL.LIB 94250-12538 2520 --> 6000  FRULB.LIB 94250-12546 2520  FUSE9.REL 94250-16514 2520   Directory: /PCIF/GSWPCIF/   ABMOD1.CRS 94200-16518 5000  ABMOD2.CRS 94200-16519 5000  ABMOD3.CRS 94200-16520 5000  ABMOD4.CRS 94200-16521 5000  ABMOD5.CRS 94200-16522 5000  APPA 94200-17503 5005  APPB 94200-17504 5005  APPC 94200-17505 5005  APPD 94200-17506 5005  APPE 94200-17507 5005  * APPF 94200-17508 5005 --> Deleted  APPF 94200-17509 5005  * APPG 94200-17509 5005 --> Deleted  APPG 94200-17510 5005  * APPH 94200-17510 5005 --> Deleted  APPH 94200-17511 5005  * APPI 94200-17511 5005 --> Deleted  APPI 94200-17512 5005  COURSE0.REL 94200-16502 2606   - 6.0 Communicator - $ 3-87 $1  & Current Revisions(94200B) &   CSCR06.TXT 94200-17234 2618  CSCR16.TXT 94200-17236 2618  GEMOD1.CRS 94200-16530 5000  GEMOD2.CRS 94200-16531 5000  GEMOD3.CRS 94200-16532 5000  GEMOD4.CRS 94200-16533 5000  GEMOD5.CRS 94200-16534 5000  GMOD1.CRS 94200-16511 5000  GMOD2.CRS 94200-16512 5000  GMOD3.CRS 94200-16513 5000  GMOD4.CRS 94200-16514 5000  GMOD5.CRS 94200-16515 5000  MAINMENU.CRS 94200-16523 5000  PCHAB.TXT 94200-17211 5000  PCHGE.TXT 94200-17501 5000  PCHGM.TXT 94200-17213 5000  PCPAB.TXT 94200-17212 5000  PCPGE.TXT 94200-17502 5000  PCPGM.TXT 94200-17214 5000   Directory: /PCIF/PCIFGEN/   "CDSLB 92059-18027 2326  AUTOR.FTN 94200-18109 4010  AUTOR.LOD 94200-17108 5000  AUTOR.REL 94200-16109 4010  * B94200 94200-17999 5000 --> 6000  DDP61.REL 94200-16359 4010  * M94200.MNF 94200-17995 New --> 6000  PCC11.REL 94200-16041 4010  PCCCP.REL 94200-16042 4010  PCCLI.REL 94200-16032 4010  PCCON.REL 94200-16031 4010  PCCT1.REL 94200-16033 4010  PCCT2.REL 94200-16034 4010  PCCT3.REL 94200-16035 4010  PCCT4.REL 94200-16036 4010  PCCT5.REL 94200-16037 4010  PCCT7.REL 94200-16038 4010  PCCT8.REL 94200-16039 4010  PCCT9.REL 94200-16040 4010  PCCUT.REL 94200-16046 4010  PCDMX.REL 94200-16220 4010  PCFOC.LOD 94200-17004 5000  PCFOI.REL 94200-16045 4010  PCGEN.LIB 94200-12002 4010  PCHLT.REL 94200-16223 4010  PCIF_BUILD.CMD 94200-17001 4010  PCLDM.LOD 94200-17103 5000  PCLGE.LOD 94200-17002 5000   - 6.0 Communicator -  3-88 1  & Current Revisions(94200B) &   PCLHL.LOD 94200-17106 5000  PCLOP.LOD 94200-17104 5000  PCLTM.LOD 94200-17105 5000  PCMC0.REL 94200-16412 4010  PCMC1.REL 94200-16413 4010  PCMC2.REL 94200-16414 4010  PCMC3.REL 94200-16415 5005  PCMC4.REL 94200-16416 4010  PCMC5.REL 94200-16417 5005  PCMC6.REL 94200-16418 5005  PCMC7.REL 94200-16419 4010  PCMN0.REL 94200-16201 4010  PCMN1.REL 94200-16202 4010  PCMN2.REL 94200-16203 4010  PCMN3.REL 94200-16204 5005  PCMN4.REL 94200-16205 4010  PCMN5.REL 94200-16206 5005  PCMN6.REL 94200-16207 5005  PCMN7.REL 94200-16208 4010  PCMUX.REL 94200-16047 4010  PCOPN.REL 94200-16221 4010  PCP01.FRM 94200-17011 4010  PCP01.HLP 94200-17012 4010  PCP02.FRM 94200-17013 4010  PCP02.HLP 94200-17014 4010  PCP03.FRM 94200-17015 4010  PCP03.HLP 94200-17016 4010  PCPGE.DAT 94200-18010 5000  PCPGF.DAT 94200-18407 5000  PCS0.REL 94200-16209 4010  PCS0C.REL 94200-16107 4010  PCS1.REL 94200-16210 4010  PCS1C.REL 94200-16108 4010  PCTMO.REL 94200-16222 4010  PCTST.LOD 94200-17404 5000  PCTST.PAS 94200-18404 4010  PCTST.REL 94200-16404 4010  [PCHHL 94200-18302 2618  [PCPHL 94200-18301 2525   Directory: /PCIF/RUNTIME/   PCC01.FRM 94200-17017 4010  PCC01.HLP 94200-17018 4010  PCC02.FRM 94200-17019 4010  PCC02.HLP 94200-17020 4010  PCC03.FRM 94200-17021 4010  PCC03.HLP 94200-17022 4010  PCC04.FRM 94200-17023 4010  PCC04.HLP 94200-17024 4010   - 6.0 Communicator - $ 3-89 $1  & Current Revisions(94200B) &   PCC05.FRM 94200-17025 4010  PCC05.HLP 94200-17026 4010  PCC07.FRM 94200-17029 4010  PCC07.HLP 94200-17030 4010  PCC08.FRM 94200-17031 4010  PCC08.HLP 94200-17032 4010  PCC09.FRM 94200-17033 4010  PCC09.HLP 94200-17034 4010  PCC11.FRM 94200-17037 4010  PCC1((1.HLP 94200-17038 4010  PCCB5.FRM 94200-17027 4010  PCCB5.HLP 94200-17028 4010  PCCB9.FRM 94200-17035 4010  PCCB9.HLP 94200-17036 4010  PCERR.ERR 94200-17005 4010  PCLBC.LIB 94200-12003 4010  PCLIB.LIB 94200-12001 4010  PCMER.ERR 94200-17102 4010  PCMSG.ERR 94200-17101 4010   % Edition/ Print %% Manual Part# Title Update Date %% ------------+---------------------------------------+--------------- %% 94200-90002 HP Programmable Controller Interface/1000 3/- E1186 %% 94200-90003 Getting Started with PCIF/1000 User Man. 1/- E0684 %    Media Part# Media Option  -------------+---------------  94200-13303 022  94200-13302 022  94200-13504 051  94200-13503 051  94200-13601 AAH     3.26 + (94202A) PCIF/1000 Allen-Bradley Handlers    Filename Part Number Rev Change  --------------------- ----------- ---- --------   Directory: /PCIF/AB/   !PCCA6 94202-17009 5005  * !PCFAB 94202-16003 4010 --> 6000  "PCCA6 94202-17010 2606   - 6.0 Communicator -  3-90 1  & Current Revisions(94202A) &   #ABDN 94202-17003 5005  #ABTST 94202-17004 5005  #ABUP 94202-17002 5005  $ABLBC 94202-12002 5005  $ABLIB 94202-12001 5005  %ABDN 94202-16007 5005  %ABTST 94202-16008 2435  %ABUP 94202-16006 5005  %PCCHA 94202-16016 5005  * %PCHAB 94202-16002 4010 --> 6000  * %PCHAC 94202-16013 4010 --> 6000  %PCP2B 94202-16019 5005  %PCP2C 94202-16020 5005  * %PCPAB 94202-16001 4010 --> 6000  * %PCPAC 94202-16012 4010 --> 6000  &ABDN 94202-18007 5005  &ABLBC 94202-18018 5005  &ABLIB 94202-18009 5005  &ABTST 94202-18008 2435  &ABUP 94202-18006 5005  *AB 94202-17001 5005  * A94202 94202-17999 5000 --> 6000  [PCHAB 94202-18005 5005  [PCHAC 94202-18011 5005  [PCP2B 94202-18021 5005  [PCP2C 94202-18022 5005  [PCPAB 94202-18004 5005  [PCPAC 94202-18010 5005   % Edition/ Print %% Manual Part# Title Update Date %% ------------+---------------------------------------+--------------- %% 94202-90001 Using PCIF/1000 with Allen Bradley 4/- E0388 % Programmable Controllers     Media Part# Media Option  -------------+---------------  94202-13301 022  94202-13502 051  94202-13601 AAH          - 6.0 Communicator - $ 3-91 $1  & Current Revisions(94203A) &   3.27 + (94203A) PCIF/1000 Gould-Modicon Handlers    Filename Part Number Rev Change  --------------------- ----------- ---- --------   Directory: /PCIF/GM/   * A94203.SNF 94203-17999 5000 --> 6000  GM.CMD 94203-17005 5000  GMDN.LOD 94203-17002 5000  GMDN.PAS 94203-18008 5000  GMDN.REL 94203-16008 5000  GMDN0.PAS 94203-18012 5000  GMDN0.REL 94203-16012 5000  GMLBC.FTN 94203-18010 5000  GMLBC.LIB 94203-12001 5000  GMUP.LOD 94203-17001 5000  GMUP.PAS 94203-18007 5000  GMUP.REL 94203-16007 5000  GMUP0.PAS 94203-18011 5000  GMUP0.REL 94203-16011 5000  PCC06.FRM 94203-17007 5005  PCC06.HLP 94203-17008 5000  PCC06.REL 94203-16018 5005  PCC10.FRM 94203-17009 5000  PCC10.HLP 94203-17010 5000  PCC10.REL 94203-16019 5000  * PCHGC.REL 94203-16015 5000 --> 6000  PCPGC.REL 94203-16014 5000  [PCHGC 94203-18016 5000  [PCPGC 94203-18017 5000   % Edition/ Print %% Manual Part# Title Update Date %% ------------+---------------------------------------+--------------- %% 94203-90001 Using PCIF/1000 w/ Gould Program. Cntrlrs. 5/- E0787 %    Media Part# Media Option  -------------+---------------  94203-13301 022  94203-13502 051  94203-13601 AAH       - 6.0 Communicator -  3-92 1  & Current Revisions(94204A) &   3.28 (94204A) PCIF/1000 Siemens Handlers    Filename Part Number Rev  --------------------- ----------- ----   Directory: /PCIF/SIEMENS/   !PCCS6 94204-17005 2525  !PCCSD 94204-17007 2525  !PCFSI 94204-16003 4010  "PCCS6 94204-17006 2525  "PCCSD 94204-17008 2525  #SIDN 94204-17003 2525  #SIUP 94204-17002 2525  $SILIB 94204-12001 2525  %PCCHS 94204-16015 2525  %PCCPS 94204-16014 2525  %PCHSC 94204-16013 2540  %PCHSI 94204-16002 2540  %PCPSC 94204-16012 2540  %PCPSI 94204-16001 2540  %SIDN 94204-16007 2540  %SIUP 94204-16006 2540  &SIDN 94204-18007 2540  &SILIB 94204-18009 2525  &SIUP 94204-18006 2540  *SI 94204-17001 2540  A94204 94204-17999 4010  [PCHSC 94204-18011 2540  [PCHSI 94204-18005 2540  [PCPSC 94204-18010 2540  [PCPSI 94204-18004 2540   % Edition/ Print %% Manual Part# Title Update Date %% ------------+---------------------------------------+--------------- %% 94204-90001 Using PCIF/1000 w/ SIEMENS Program. Cntrlr 1/- E0186 %     3.29 (94206A) PCIF/1000 General Electric Handlers    Filename Part Number Rev  --------------------- ----------- ----     - 6.0 Communicator - $ 3-93 $1  & Current Revisions(94206A) &   Directory: /PCIF/GE/   !PCCG6 94206-17001 2606  !PCFGE 94206-16007 2606  "PCCG6 94206-17002 2606  #GEDN 94206-17004 5000  #GEUP 94206-17003 5000  $GELIB 94206-12001 2606  %GEDN 94206-16013 2606  %GEDN0 94206-16015 2606  %GEUP 94206-16012 2606  %GEUP0 94206-16014 2606  %PCCHG 94206-16006 4010  %PCH6 94206-16002 5000  %PCH6C 94206-16004 5000  %PCP6 94206-16001 2606  %PCP6C 94206-16003 2606  &GEDN 94206-18013 2606  &GEDN0 94206-18015 2606  &GELIB 94206-18016 2606  &GEUP 94206-18012 2606  &GEUP0 94206-18014 2606  *GE 94206-17007 4010  A94206 94206-17999 5000  [PCH6 94206-18009 4010  [PCH6C 94206-18011 4010  [PCP6 94206-18008 4010  [PCP6C 94206-18010 4010  [PCP6C 94206-18010 4010   % Edition/ Print %% Manual Part# Title Update Dat((e %% ------------+---------------------------------------+--------------- %% 94206-90001 Using PCIF/1000 with General Electric 2/- E1186 % Programmable Controllers      3.30 + (94250A) Forms/1000-A    Filename Part Number Rev Change  --------------------- ----------- ---- --------   Directory: /FORMS/   !FBD01 94250-17091 2340  !FBD02 94250-17092 2340   - 6.0 Communicator -  3-94 1  & Current Revisions(94250A) &   !FBD03 94250-17093 2340  !FBD04 94250-17094 2340  !FBD06 94250-17096 2340  !FBD07 94250-17097 2340  !FBD08 94250-17098 2340  !FDEM1 94250-17101 2340  !FDEM2 94250-17102 2340  !FDEM3 94250-17103 2340  !FDEM4 94250-17104 2340  "FBD01 94250-17071 2340  "FBD02 94250-17072 2340  "FBD03 94250-17073 2340  "FBD04 94250-17074 2340  "FBD05 94250-17075 2340  "FBD06 94250-17076 2340  "FBD07 94250-17077 2340  "FBD08 94250-17078 2340  "FDEM1 94250-17081 2340  "FOLCL 94250-17899 5000  * #LFBAS 94250-17004 2340 --> 6000  #LFBEF 94250-17002 2340  #LFDAS 94250-17064 2340  #LFDEF 94250-17062 2340  #LFIAS 94250-17024 2340  #LFIEF 94250-17022 2340  #LFNAS 94250-17034 2340  #LFNEF 94250-17032 2340  #LFOAS 94250-17014 2340  #LFOEF 94250-17012 2340  #LPIAS 94250-17044 2340  #LPIEF 94250-17042 2340  #LPNAS 94250-17054 2340  #LPNEF 94250-17052 2340  $FBUTI 94250-12002 2340  * $FLULB 94250-12004 5000 --> 6000  $FOFLL 94250-12003 2505  $FOFRL 94250-12006 2340  $FOPLL 94250-12005 2505  $FOPRL 94250-12008 2340  $FRULB 94250-12007 2340  %FBILD 94250-12001 5000  %FCOMM 94250-16393 5000  %FDEMO 94250-16500 2340  %FOBLK 94250-16171 2340  %FOCLO 94250-16391 2340  %FUSE1 94250-16172 2340  %FUSE2 94250-16173 2340  %FUSE3 94250-16174 2340  %FUSE4 94250-16175 2340  %FUSE5 94250-16176 2340   - 6.0 Communicator - $ 3-95 $1  & Current Revisions(94250A) &   %FUSE6 94250-16177 2340  %FUSE7 94250-16178 2505  %FUSE8 94250-16179 2505  %FUSE9 94250-16180 2340  &FDEMO 94250-18500 2340  &FUSEX 94250-18195 2505  *LFBAS 94250-17003 2340  *LFBEF 94250-17001 2340  *LFDAS 94250-17063 2340  *LFDEF 94250-17061 2340  *LFIAS 94250-17023 2340  *LFIEF 94250-17021 2340  *LFNAS 94250-17033 2340  *LFNEF 94250-17031 2340  *LFOAS 94250-17013 2340  *LFOEF 94250-17011 2340  *LPIAS 94250-17043 2340  *LPIEF 94250-17041 2340  *LPNAS 94250-17053 2340  *LPNEF 94250-17051 2340  * A94250 94250-17999 5000 --> Deleted  * A94250.SNF 94250-17999 New --> 6000   % Edition/ Print %% Manual Part# Title Update Date %% ------------+---------------------------------------+--------------- % (no manual changes)    Media Part# Media Option  -------------+---------------  94250-13301 022  94250-13501 050  94250-13502 051     3.31 + (94250B) Forms/1000-B    Filename Part Number Rev Change  --------------------- ----------- ---- --------   Directory: /F1000/   * B94250.SNF 94250-17998 5010 --> 6000  F1000.CMD 94250-17546 2520  F1000_CDS.CMD 94250-17571 2520  FBD01.FRM 94250-17500 5010   - 6.0 Communicator -  3-96 1  & Current Revisions(94250B) &   FBD01.HLP 94250-17511 2520  FBD02.FRM 94250-17501 2520  FBD02.HLP 94250-17512 2520  FBD03.FRM 94250-17502 2520  FBD03.HLP 94250-17513 2520  FBD04.FRM 94250-17503 2520  FBD04.HLP 94250-17514 2520  FBD05.HLP 94250-17515 2520  FBD06.FRM 94250-17504 2520  FBD06.HLP 94250-17516 2520  FBD07.FRM 94250-17505 2520  FBD07.HLP 94250-17517 2520  FBD08.FRM 94250-17506 2520  FBD08.HLP 94250-17518 2520  FBEMA.LOD 94250-17834 5000  * FBEMA.REL 94250-16834 5000 --> 6000  FBILD.REL 94250-12501 5010  FBUTI.LIB 94250-12518 5010  FCEMA.CMD 94250-17801 5000  FCEMA_CDS.CMD 94250-17804 5000  FCOMM.REL 94250-16613 5010  FDEM1.FRM 94250-17507 2520  FDEM1.HLP 94250-17519 2520  FDEM2.FRM 94250-17508 2520  FDEM3.FRM 94250-17509 2520  FDEM4.FRM 94250-17510 2520  FDEMO.FTN 94250-18503 2520  FDEMO.REL 94250-16503 2520  FEMA1.REL 94250-16821 5000  FEMA2.REL 94250-16822 5000  FEMA3.REL 94250-16823 5000  FEMA4.REL 94250-16824 5000  FEMA5.REL 94250-16825 5000  FEMA6.REL 94250-16826 5000  FEMA7.REL 94250-16827 5000  FEMA8.REL 94250-16828 5000  FEMA9.REL 94250-16829 5000  FEMAX.FTN 94250-18830 5000  * FLULB.LIB 94250-12523 5010 --> 6000  * FLULB_CDS.LIB 94250-12723 5010 --> 6000  * FLULB_EMA.LIB 94250-12831 5010 --> 6000  * FLULB_EMA_CDS.LIB 94250-12832 5010 --> 6000  FOBLK.REL 94250-16504 5010  * FOCLO.REL 94250-16505 5000 --> 6000  * FOCLO_CDS.REL 94250-16705 5000 --> 6000  * FOFLL.LIB 94250-12528 5010 --> 6000  * FOFLL_CDS.LIB 94250-12728 5010 --> 6000  * FOFRL.LIB 94250-12531 2520 --> 6000  * FOFRL_CDS.LIB 94250-12731 2520 --> 6000  FOLCL.TXT 94250-17572 5010   - 6.0 Communicator - $ 3-97 $1  & Current Revisions(94250B) &   * FOPLL.LIB 94250-12537 5010 --> 6000  * FOPLL_CDS.LIB 94250-12737 5010 --> 6000  * FOPRL.LIB 94250-12538 2520 --> 6000  * FOPRL_CDS.LIB 94250-12738 2520 --> 6000  FRULB.LIB 94250-12546 2520  FRULB_CDS.LIB 94250-12746 2520  FUSE1.REL 94250-16506 2520  FUSE2.REL 94250-16507 2520  FUSE3.REL 94250-16508 2520  FUSE4.REL 94250-16509 2520  FUSE5.REL 94250-16510 2520  FUSE6.REL 94250-16511 2520  FUSE7.REL 94250-16512 2520  FUSE8.REL 94250-16513 2520  FUSE9.REL 94250-16514 2520  FUSEX.FTN 94250-18550 2520  LFBAS.LOD 94250-17520 2520  LFDAS.LOD 94250-17521 2520  LFIAS.LOD 94250-17522 2520  LFIAS_CDS.LOD 94250-17527 2520  * LFMAS.LOD 94250-17802 5000 --> 6000  * LFMAS_CDS.LOD 94250-17803 5000 --> 6000  LFNAS.LOD 94250-17523 2520  LFNAS_CDS.LOD 94250-17528 2520  LFOAS.LOD 94250-17524 5000  LFOAS_CDS.LOD 94250-17529 5000  LPIAS.LOD 94250-17525 2520  LPIAS_CDS.LOD 94250-17530 2520  LPNAS.LOD 94250-17526 2520  LPNAS_CDS.LOD 94250-17531 2520  * M94250.MNF 94250-17((996 New --> 6000  README.DOC 94250-17543 2520   % Edition/ Print %% Manual Part# Title Update Date %% ------------+---------------------------------------+--------------- %% 94250-90005 Forms/1000 Reference Manual 2/- E0887 %% 94250-90006 Getting Started with Forms/1000 1/- E0885 %   Media Part# Media Option  -------------+---------------  94250-13307 022  94250-13503 051  94250-13601 AAH       - 6.0 Communicator -  3-98 1  & Current Revisions(98170A) &   3.32 + (98170A) ARPA/1000    Filename Part Number Rev Change  --------------------- ----------- ---- --------   Directory: /ARPA1000/   * A98170_INSTALL.TXT 98170-17005 5240 --> 6000   Directory: /ARPA1000/CATALOGS/   * INETD.C000 91790-16310 New --> 6000   Directory: /ARPA1000/CMD/   * INSTALL_ARPA.CMD 98170-17006 5240 --> 6000  N_LINK.CMD 91790-17105 5240   Directory: /ARPA1000/DOC/   BREVL.HELP 91790-17094 5020  BRTRC.HELP 91790-17095 5020  EVMON.HELP 91790-17096 5020  FMTRC.HELP 91790-17097 5020  * FTP.HELP 91790-17102 5020 --> 6000  * FTP.HLP 98170-17014 5016 --> 6000  * INETD.HELP 91790-17107 New --> 6000  LOGCHG.HELP 91790-17098 5020  NRLIST.HELP 91790-17099 5020  NSTRC.HELP 91790-17100 5020  PING.HELP 91790-17101 5240  TELNET.HELP 91790-17104 5020  TELNET.HLP 91790-17079 5000   Directory: /ARPA1000/DSREL/   %RESA 91750-16283 2540   Directory: /ARPA1000/ETC/   * INETD.CONF 91790-17109 New --> 6000  * SERVICES 91790-18301 New --> 6000   Directory: /ARPA1000/EXAMPLES/   * #ANSARPA 98170-17016 5240 --> 6000  * ARPASTART.CMD 98170-17010 5240 --> 6000  NODE1.NETI 98170-17015 5240    - 6.0 Communicator - $ 3-99 $1  & Current Revisions(98170A) &   Directory: /ARPA1000/LIB/   $D3N25 91750-12029 2401  DS3K.LIB 91790-12014 5240  * NSINFLB.LIB 98170-12006 5240 --> 6000  * NSLIB.LIB 91790-12003 5240 --> 6000  * NSLIB_CDS.LIB 91790-12004 5240 --> 6000  * NSSYS.LIB 91790-12012 5240 --> 6000  * NSSYS_CDS.LIB 91790-12013 5240 --> 6000   Directory: /ARPA1000/LOD/   BREVL.LOD 91790-17001 5240  BRTRC.LOD 91790-17002 5240  EVMON.LOD 91790-17007 5000  * FMTRC.LOD 91790-17008 5240 --> 6000  * FTP.LOD 98170-17002 5240 --> 6000  * FTPMN.LOD 98170-17001 5015 --> Deleted  * FTPSV.LOD 98170-17003 5240 --> 6000  * INETD.LOD 91790-17108 New --> 6000  * INPRO.LOD 91790-17009 5240 --> 6000  LOGCHG.LOD 91790-17011 5240  MMINIT.LOD 91790-17012 5240  NRINIT.LOD 91790-17014 5240  NRLIST.LOD 91790-17015 5240  * NSINF.LOD 91790-17017 5240 --> 6000  * NSINIT.LOD 91790-17018 2608 --> 6000  NSLINK.LOD 91790-17092 5005  * NSPARS.LOD 91790-17019 2608 --> 6000  * NSPR1.LOD 91790-17020 5020 --> 6000  * NSPR2.LOD 91790-17021 5020 --> 6000  * NSPR3.LOD 91790-17022 5240 --> 6000  NSTRC.LOD 91790-17026 5240  * OUTPRO.LOD 91790-17027 5240 --> 6000  PING.LOD 98170-17004 5240  TELNET.LOD 91790-17078 5240  * TNMON.LOD 91790-17076 5000 --> Deleted  TNSRV.LOD 91790-17077 5240  UPLIN.LOD 91790-17032 5240   Directory: /ARPA1000/MISC/   * A98170.MNF 98170-17998 5240 --> 6000  * A98170.SNF 98170-17999 5240 --> 6000  NETINIT.MSG 98170-17017 5015  * NSERRS.MSG 91790-17036 5016 --> 6000   Directory: /ARPA1000/OSREL/   * $BIGLB 92077-12006 5240 --> Deleted   - 6.0 Communicator -  3-100 1  & Current Revisions(98170A) &   * %EXEC 92077-16136 5240 --> Deleted  * %VCTR 92077-16473 5240 --> Deleted  * &BIGLB 92077-18073 5240 --> Deleted  * DDC00.REL 92077-16888 5240 --> Deleted  * DDC01.REL 92077-16889 5240 --> Deleted  * HPCRT.LIB 92077-12035 5240 --> Deleted  * HPMDM.FTN 92077-18938 5240 --> Deleted  * HPMDM.REL 92077-16938 5240 --> Deleted  * ID400.REL 92077-16883 5240 --> Deleted  * ID800.REL 92077-16887 5240 --> Deleted  * ID801.REL 92077-16957 5240 --> Deleted  * IDZ00.REL 92077-16968 5240 --> Deleted   Directory: /ARPA1000/REL/   * BREVL.REL 91790-16022 5240 --> 6000  * BRTRC.REL 91790-16023 5240 --> 6000  * DS_CDSERRORCATCH.REL 91790-16039 5240 --> 6000  * DS_ERRORCATCHER.REL 91790-16041 5240 --> 6000  * EVMON.REL 98170-16048 5240 --> 6000  * FMTER.REL 91790-16056 5240 --> Deleted  * FMTGBL.REL 91790-16057 5240 --> Deleted  * FMTRC.REL 91790-16059 5240 --> 6000  * FMTUI.REL 91790-16061 5240 --> Deleted  * FMVIN.REL 91790-16062 5240 --> Deleted  * FTP.REL 98170-16046 5240 --> 6000  FTPLIB2.REL 98170-16004 5015  * FTPMN.REL 98170-16001 5240 --> Deleted  * FTPSLIB.REL 98170-16002 5240 --> 6000  * FTPSV.REL 98170-16047 5240 --> 6000  * FTPULIB.REL 98170-16003 5240 --> 6000  * INDEC.REL 91790-16074 5240 --> 6000  INEHTAB.REL 91790-16075 5240  * INETD.REL 91790-12019 New --> 6000  * INPRO.REL 91790-16087 5240 --> 6000  * LOGCHG.REL 91790-16111 5240 --> 6000  * MMINIT.REL 91790-16118 5240 --> 6000  * NRERR.REL 98170-16053 5240 --> 6000  * NRINIT.REL 98170-16050 5240 --> 6000  * NRLIST.REL 91790-16140 5240 --> 6000  * NSABP.REL 91790-16031 5000 --> 6000  * NSINF.REL 98170-16049 5240 --> 6000  * NSINIT.LIB 98170-12001 5240 --> 6000  * NSPARS.LIB 98170-12005 5240 --> 6000  * NSPEC.REL 91790-16038 2608 --> Deleted  * NSPR1.LIB 98170-12002 5240 --> 6000  * NSPR2.LIB 98170-12003 5240 --> 6000  * NSPR3.LIB 98170-12004 5240 --> 6000  * NSTRC.REL 91790-16168 5240 --> 6000  OTEHTAB.REL 91790-16171 5240   - 6.0 Communicator - $ 3-101 $1  & Current Revisions(98170A) &   * OUTDEC.REL 91790-16172 5240 --> 6000  * OUTPRO.REL 91790-16173 5240 --> 6000  * PING.REL 98170-16006 5240 --> 6000  PROSW_CDS.REL 91790-16182 2608  * TELNET.REL 91790-16255 5240 --> 6000  * TNMON.REL 91790-16253 5240 --> Deleted  * TNSRV.REL 91790-16254 5240 --> 6000  * UPLIN.REL 91790-16229 5240 --> 6000  * UPLN2.REL 91790-16230 5240 --> 6000   % Edition/ Print %% Manual Part# Title Update Date %% ------------+---------------------------------------+--------------- %% 98170-91001 ARPA/1000 Cover Letter -/- E1292 %% 98170-90001 ARPA/1000 Node Manager's Manual 4/- E1292 %% 98170-90002 ARPA/1000 User's Manual 4/- E1292 %    Media Part# Media Option  -------------+---------------  98170-13301 022  98170-13502 051  98170-13600 AAH  )SET SHIFT=OFF;SISO )PRINTTEXT 1,0 )SELECT CHARSET=0,1 )MOVE ABS=90,1800  - 6.0 Communicator -  3-102 1  ! CURRENT REVISIONS (FIRMWARE) !   )SELECT CHAR((SET=11,1  3.33 Current Firmware Revisions  )SELECT CHARSET=0,1     )SELECT CHARSET=10,1  3.33.1 A400 Base Set Firmware  )SELECT CHARSET=0,1   Q;;;;;;;;;;;;;;;;;;;;;;W  :12100-80010 (U1212)# : Revision 4000  :12100-80011 (U1312)#  : Original Release  :12100-80012 (U1412)#  : $ :12100-80013 (U1512)#  : # These parts are bundled in with $ A;;;;;;;;;;;;;;;;;;;;;;S the 12100-60001 A400 board.    Q;;;;;;;;;;;;;;;;;;;;;;W  :12100-80015 (U1212)# :  :12100-80016 (U1312)#  : See SN# 12100A-01  :12100-80017 (U1412)#  :  :12100-80018 (U1512)#  :  A;;;;;;;;;;;;;;;;;;;;;;S    Q;;;;;;;;;;;;;;;;;;;;;;W  :12100-80019 (U1212)# :  :12100-80020 (U1312)#  : See SN# 12100A-04  :12100-80021 (U1412)#  :  :12100-80022 (U1512)#  :  A;;;;;;;;;;;;;;;;;;;;;;S    Q;;;;;;;;;;;;;;;;;;;;;;W  :12100-80023 (U1212)# : $ :12100-80024 (U1312)#  : Supplier changed from Signetics to $! :12100-80025 (U1412)#  : Cypress (see SN# 12100A-09). ! :12100-80026 (U1412)#  :  A;;;;;;;;;;;;;;;;;;;;;;S      )SELECT CHARSET=10,1  3.33.2 A400 OBIO Firmware  )SELECT CHARSET=0,1   Q;;;;;;;;;;;;;;;;;;;;;;W  :12100-80002 (U304)# : Revision 4000  :12100-80002 (U504)#  : Original Release  :12100-80002 (U704)#  : $ :12100-80002 (U804)#  : # These parts are bundled in with $ A;;;;;;;;;;;;;;;;;;;;;;S the 12100-60001 A400 board.  )MOVE ABS=90,1800  - 6.0 Communicator - $ 3-103 $1  ! CURRENT REVISIONS (FIRMWARE) !   )SELECT CHARSET=10,1  3.33.3 A400 VCP Firmware  )SELECT CHARSET=0,1   Q;;;;;;;;;;;;;;;;;;;;;;W  :5180-4271 (U908)# : Revision 4020  :5180-4272 (U1108)#  : Original Release  A;;;;;;;;;;;;;;;;;;;;;;S  Required for D-MUX Console.  " # These parts are bundled in with " the 12100-60001 A400 board.   Q;;;;;;;;;;;;;;;;;;;;;;W  :5180-4286 (U908)# : Revision 4020  :5180-4287 (U1108)#  : # A;;;;;;;;;;;;;;;;;;;;;;S # Same as above but plastic ROMs. # (See S/N 2134A-12)    Q;;;;;;;;;;;;;;;;;;;;;;W  :5181-8604 (U908)# : Revision 4021  :5181-8605 (U1108)# : SCSI Boot Capability  A;;;;;;;;;;;;;;;;;;;;;;S   (See S/N 2134A-13)    Q;;;;;;;;;;;;;;;;;;;;;;W  :5181-8657 (U908)# : Vendor change.  :5181-8658 (U1108)# :  A;;;;;;;;;;;;;;;;;;;;;;S   (See S/N 2134A-16)    Q;;;;;;;;;;;;;;;;;;;;;;W  :5181-8667 (U908)# : Revision 4024  :5181-8668 (U1108)# :  A;;;;;;;;;;;;;;;;;;;;;;S $ # This firmware is included in upgrade $ kit 5181-8607.   (See S/N 2134A-17)   )MOVE ABS=90,1800  - 6.0 Communicator -  3-104 1  ! CURRENT REVISIONS (FIRMWARE) !   )SELECT CHARSET=10,1  3.33.4 A600 Minifloppy Controller  )SELECT CHARSET=0,1   Prom 1 U73 5180-0136  Prom 2 U63 5180-0137  Prom 3 U43 5180-0144  CPU U22 1820-2298  Cntlr U105 1820-2456  GPIB U12 1820-2549     )SELECT CHARSET=10,1  3.33.5 A600 Base Set Firmware History  )SELECT CHARSET=0,1   Q;;;;;;;;;;;;;;;;;;;;W  :12101-60001 :  :12101-80002 (U0706) : Revision 4000  :12101-80003 (U0806) : Original Release  :12101-80004 (U1006) :  :12101-80005 (U0506) :  :12101-80006 (U0606) : # :12101-80007 (U1106) : # These parts are bundled in with ## :12101-80008 (U0906) : the 12101-60001 processor board. #! :12101-80009 (U0305) : The 12101-60002 assembly no !! :12101-80010 (U0505) : longer includes these PROMs. ! :12101-80011 (U0605)#:  :12101-80012 (U0705)#:  :12101-80013 (U0805)#:  :12101-80014 (U1005)#:  A;;;;;;;;;;;;;;;;;;;;S  )MOVE ABS=90,1800  - 6.0 Communicator - $ 3-105 $1  ! CURRENT REVISIONS (FIRMWARE) !   Q;;;;;;;;;;;;;;;;;;;;W  :12101-60001 :  :12101-80002 (U0706) : Revision 4000  :12101-80003 (U0806) :  :12101-80021 (U1006)*: # :12101-80005 (U0506) : * Changed to fix bug. .FDIV with ## :12101-80006 (U0606) : E-register set returns incorrect # :12101-80007 (U1106) : results.  :12101-80008 (U0906) :  :12101-80009 (U0305) : (See S/N 12101A-01)  :12101-80010 (U0505) : # :12101-80011 (U0605)#:  # These parts are bundled in with ## :12101-80012 (U0705)#:  the 12101-60001 processor board. #! :12101-80013 (U0805)#:  The 12101-60002 assembly no !! :12101-80014 (U1005)#:  longer includes these PROMs. ! A;;;;;;;;;;;;;;;;;;;;S   Q;;;;;;;;;;;;;;;;;;;;W  :12101-60002 : Revision 401  :12101-80024 (U0706)*: $ :12101-80025 (U0806)*: * Update 12101-60001 to 12101-60002 $$ :12101-80027 (U1006)*: by removing four socketed mapping $$ :12101-80022 (U0506)*: PROMs (12101-80001, 80012, 80013, $# :12101-80023 (U0606)*: and 80014). Firmware adds Data2 # :12101-80028 (U1106)*: map instruction.  :12101-80026 (U0906)*:  :12101-80029 (U0305)*: (See S/N 2106AD-02)  :12101-80030 (U0505)*:  :12101-80031 (U0605)*:  :12101-80032 (U0705)*:  :12101-80033 (U0805)*: REQUIRED TO RUN RTE-A  :12101-80013 (U1005)*:  A;;;;;;;;;;;;;;;;;;;;S   Q;;;;;;;;;;;;;;;;;;;;W  :12101-60002 : Revision 401  :12101-80024 (U0706) :  :12101-80025 (U0806) :  :12101-80027 (U1006) : $ :12101-80022 (U0506) : * Changed to fix bug. .PWR2 causes $" :12101-80023 (U0606) : unimplemented instruction trap " :12101-80028 (U1106) : interrupt.  :12101-80026 (U0906) :  :12101-80034 (U0305)*: (See S/N 2106AK-01)  :12101-80035 (U0505)*:  :12101-80031 (U0605) :  :12101-80032 (U0705) :  :12101-80033 (U0805) :  :12101-80013 (U1005) :  A;;;;;;;;;;;;;;;;;;;;S )MOVE ABS=90,1800  - 6.0 Communicator -  3-106 1  ! CURRENT REVISIONS (FIRMWARE) !   Q;;;;;;;;;;;;;;;;;;;;W  :12101-60002 :  :12101-80037 (U0706)*: Revision 401  :12101-80025 (U0806) :  :12101-80027 (U1006) : ( :12101-80022 (U0506) : * Changed to fix bug. Power-Fail routine (# :12101-80036 (U0606)*: is not executed at power-fail. # :12101-80028 (U1106) :  :12101-80026 (U0906) : (See S/N 2106AK-01)  :12101-80034 (U0305) :  :12101-80035 (U0505) :  :12101-80031 (U0605) :  :12101-80032 (U0705) :  :12101-80033 (U0805) :  :12101-80013 (U1005) :  A;;;;;;;;;;;;;;;;;;;;S   Q;;;;;;;;;;;;;;;;;;;;W  :12101-60002 : Revision 1001  :12101-80040 (U0706)*:  :12101-80041 (U0806)*: $ :12101-80043 (U1006)*: * .FDV produces incorrect results $ :12101-80038 (U0506)*: for certain operands.  :12101-80039 (U0606)*:  :12101-80044 (U1106)*: (See S/N 2106AK-04)  :12101-80042 (U0906)*: & :12101-80034 (U0305) : This firmware is included in upgrade &% :12101-80035 (U0505) : kits 12101-60045 and 12101-60046. % :12101-80031 (U0605) :  :12101-80032 (U0705) :  :12101-80033 (U0805) :  :12101-80013 (U1005) :  A;;;;;;;;;;;;;;;;;;;;S )MOVE ABS=90,1800  - 6.0 Communicator - $ 3-107 $1  ! CURRENT REVISIONS (FIRMWARE) !   )SELECT CHARSET=10,1  3.33.6 A600+ Base Set Firmware  )SELECT CHARSET=0,1   Q;;;;;;;;;;;;;;;;;;;;W  :((12105-80002 (U0405) :  :12105-80003 (U0505) : Revision 3  :12105-80004 (U0605) : Original Release  :12105-80005 (U0705) :  :12105-80006 (U0805) :  :12105-80007 (U0905) :  :12105-80008 (U1005) :  :12105-80009 (U0308) :  :12105-80010 (U0808) :  A;;;;;;;;;;;;;;;;;;;;S   Q;;;;;;;;;;;;;;;;;;;;W  :12105-80024 (U0405)*: Revision 4  :12105-80025 (U0505)*: ' :12105-80026 (U0605)*: * Changed to fix bugs. .EXIT0, .EXIT1, '' :12105-80027 (U0705)*: and .EXIT2 changed to always read the '& :12105-80028 (U0805)*: CST from the code map. The JL, JLB, && :12105-80029 (U0905)*: and JLY instructions were altered to &$ :12105-80030 (U1005)*: execute one machine cycle faster $ :12105-80009 (U0308) : (227 ns).  :12105-80010 (U0808) :  A;;;;;;;;;;;;;;;;;;;;S (See S/N 2106BK-05) )MOVE ABS=90,1800  - 6.0 Communicator -  3-108 1  ! CURRENT REVISIONS (FIRMWARE) !   )SELECT CHARSET=10,1  3.33.7 A600/A600+ VCP Firmware History  )SELECT CHARSET=0,1   Q;;;;;;;;;;;;;;;;;;;;W  :5180-0173 (U606) : Revision 4  :5180-0174 (U706) : Original Release  A;;;;;;;;;;;;;;;;;;;;S   Q;;;;;;;;;;;;;;;;;;;;W Revision 6  :5180-0189 (U606)* : ' :5180-0190 (U706)* : * Changed to fix bugs. Two power-fails '% A;;;;;;;;;;;;;;;;;;;;S in quick succession may result in an %" incorrect auto-restart. Booting "# remotely over FDL causes system to #% hang. Erroneous parity error message %" if memory is lost. Also several " inconveniences are fixed and  enhancements added.   (See S/N 12102A-01)    Q;;;;;;;;;;;;;;;;;;;;W  Revision 4001  :12102-80003 (U606)* :  & :12102-80004 (U706)* :  Changed to run with VC+. Also adds &% A;;;;;;;;;;;;;;;;;;;;S  boot loaders for 1600 BPI Mag Tape, %# 3.5" Microfloppy, and 10 MB mini- #$ winchester disc. VCP size is 8K and $% resides in EPROM. Included in 12107A % A600+ Upgrade Kit.   (See S/N 2106AK-3)    Revision 4004  Q;;;;;;;;;;;;;;;;;;;;W & :5180-4253 (U606)* : * Changed to fix bug. If system disc &' :5180-4254 (U706)* : and CPU are powered up simultaneously '! A;;;;;;;;;;;;;;;;;;;;S the CPU will not auto boot. !  (See S/N 2106AK-6A)    Revision 4011  Q;;;;;;;;;;;;;;;;;;;;W ( :5180-4263 (U606)* : * Changed to fix bug. Fixed break disable (' :5180-4264 (U706)* : processing on the 12040B/C MUX. Added '' A;;;;;;;;;;;;;;;;;;;;S boot loader for the 55 Mbyte disc drive. ' % Included in 12107A A600+ Upgrade Kit. %% Included in ROM Upgrade Kit 5180-4267. %)MOVE ABS=90,1800  - 6.0 Communicator - $ 3-109 $1  ! CURRENT REVISIONS (FIRMWARE) !   Q;;;;;;;;;;;;;;;;;;;;W Revision 4020  :5180-4271 (U606)* : % :5180-4272 (U706)* : * A400 release, new I/O table in VCP %% A;;;;;;;;;;;;;;;;;;;;S power-up message. Supports the new %# serial I/O drivers introduced with # RTE-A revision 4.1.  % Included in upgrade kit p/n 5180-4274. %  Required for D-MUX console.    Q;;;;;;;;;;;;;;;;;;;;W $ :5181-4286 (U908)* : Vendor change from ceramic parts $ :5181-4287 (U1108)* : to plastic parts.  A;;;;;;;;;;;;;;;;;;;;S   (See S/N 2436H-02)    Q;;;;;;;;;;;;;;;;;;;;W  :5181-8604 (U908)* : Revision 4021  :5181-8605 (U1108)* : SCSI Boot Capability  A;;;;;;;;;;;;;;;;;;;;S   (See S/N 2436H-04)    Q;;;;;;;;;;;;;;;;;;;;;;W  :5181-8657 (U908)# : Vendor change.  :5181-8658 (U1108)# :  A;;;;;;;;;;;;;;;;;;;;;;S   (See S/N 2436H-05)    Q;;;;;;;;;;;;;;;;;;;;;;W  :5181-8667 (U908)# : Revision 4024  :5181-8668 (U1108)# :  A;;;;;;;;;;;;;;;;;;;;;;S $ # This firmware is included in upgrade $ kit 5181-8607.   (See S/N 2436H-06) )MOVE ABS=90,1800  - 6.0 Communicator -  3-110 1  ! CURRENT REVISIONS (FIRMWARE) !   )SELECT CHARSET=10,1  3.33.8 A700 Base Set Firmware History  )SELECT CHARSET=0,1   Q;;;;;;;;;;;;;;;;;;;;W  :12152-80011 (U91) :  :12152-80012 (U101) : Original Release  :12152-80013 (U111) :  :12152-80014 (U121) :  A;;;;;;;;;;;;;;;;;;;;S   Q;;;;;;;;;;;;;;;;;;;;W  :12152-80031 (U91)* : % :12152-80032 (U101)* : * Changed to fix bug. DDS will skip % :12152-80033 (U111)* : incorrectly.  :12152-80034 (U121)* :  A;;;;;;;;;;;;;;;;;;;;S   Q;;;;;;;;;;;;;;;;;;;;W ' :12152-80035 (U91)* : * Add Code and Data Separation Instruc- '' :12152-80036 (U101)* : tions. Also several bugs were fixed. '% :12152-80037 (U111)* : .LWD1 and .LWD2 are not privileged %' :12152-80038 (U121)* : instructions. Any instruction in the '# A;;;;;;;;;;;;;;;;;;;;S A/B-Registers which causes an MP #" violation freezes the computer. "  (See S/N 2107AK-01)  $ This firmware is included in upgrade $ kit 12152-60043.   REQUIRED TO RUN VC+    Q;;;;;;;;;;;;;;;;;;;;W Revision 2500 # :12152-80053 (U91)* : (currently supported Base Set) # :12152-80054 (U101)* : % :12152-80055 (U111)* : * Changed to be compatible with the % :12152-80056 (U121)* : I/O Extender.  A;;;;;;;;;;;;;;;;;;;;S  )MOVE ABS=90,1800  - 6.0 Communicator - $ 3-111 $1  ! CURRENT REVISIONS (FIRMWARE) !   )SELECT CHARSET=10,1  3.33.9 A700 Floating Point History  )SELECT CHARSET=0,1   Q;;;;;;;;;;;;;;;;;;;;W  :12156-80005 (U106) :  :12156-80006 (U105) :  :12156-80007 (U103) :  :12156-80008 (U102) :  A;;;;;;;;;;;;;;;;;;;;S   Q;;;;;;;;;;;;;;;;;;;;W  :12156-80013 (U106) :  :12156-80014 (U105) :  :12156-80015 (U103) :  :12156-80016 (U102) :  A;;;;;;;;;;;;;;;;;;;;S   Q;;;;;;;;;;;;;;;;;;;;W  :12156-80017 (U106) :  :12156-80018 (U105) :  :12156-80019 (U103) :  :12156-80020 (U102) :  A;;;;;;;;;;;;;;;;;;;;S   Q;;;;;;;;;;;;;;;;;;;;W  :12156-80025 (U106) :  :12156-80026 (U105) :  :12156-80027 (U103) :  :12156-80028 (U102) :  A;;;;;;;;;;;;;;;;;;;;S   Q;;;;;;;;;;;;;;;;;;;;W  :12156-80029 (U106) :  :12156-80030 (U105) :  :12156-80031 (U103) :  :12156-80032 (U102) :  A;;;;;;;;;;;;;;;;;;;;S  ! Q;;;;;;;;;;;;;;;;;;;;W Currently Supported FP Firmware ! :12156-80033 (U106) :  :12156-80034 (U105) :  (See S/N 2107AK-1)  :12156-80035 (U103) :  :12156-80036 (U102) :  A;;;;;;;;;;;;;;;;;;;;S  )MOVE ABS=90,1800  - 6.0 Communicator -  3-112 1  ! CURRENT REVISIONS (FIRMWARE) !   )SELECT CHARSET=10,1  3.33.10 A700 VCP HISTORY  )SELECT CHARSET=0,1   Q;;;;;;;;;;;;;;;;;;;;W  :5180-0173 (U1((5) : Revision 4  :5180-0174 (U35) : Original Release  A;;;;;;;;;;;;;;;;;;;;S   Revision 6  Q;;;;;;;;;;;;;;;;;;;;W ' :5180-0189 (U15)* : * Changed to fix bugs. Two power-fails '& :5180-0190 (U35)* : in quick succession may result in an &% A;;;;;;;;;;;;;;;;;;;;S incorrect auto-restart. Booting re- %% motely over FDL causes system to hang. %# Erroneous parity error message if #% memory is lost. Also several inconv- %$ eniences are fixed and enhancements $ added.   (See S/N 12102A-01)    Revision 4001  Q;;;;;;;;;;;;;;;;;;;W & :12152-80039 (U15)* :  * Changed to run with VC+. Also adds && :12152-80040 (U35)* :  boot loaders for 1600 BPI Map Tape, &% :12152-80041 (U55)* :  3.5" Micro Floppy, and 10 Mb mini- % :12152-80042 (U65)* :  winchester disc.  A;;;;;;;;;;;;;;;;;;;S    (See S/N 2107AK-01)    Revision 4004  Q;;;;;;;;;;;;;;;;;;;W ' :12152-80043 (U15)* : * Changed to fix bug. If system disc and '% :12152-80044 (U35)* : CPU are powered up simultaneously, %" :12152-80045 (U55)* : the CPU will not auto boot. " :12152-80046 (U65)* : % A;;;;;;;;;;;;;;;;;;;S  Included in Upgrade Kit 12152-60043. %  (See S/N 2107AK-2A)    Revision 4011  Q;;;;;;;;;;;;;;;;;;;W ( :12152-80058 (U15)* : * Changed to fix bug. Break disable did (& :12152-80059 (U35)* : work. Added boot loader for the 55 & :12152-80060 (U55)* : Mbyte disc drive.  :12152-80061 (U65)* : % A;;;;;;;;;;;;;;;;;;;S Included in Upgrade Kit 12152-60064. %)MOVE ABS=90,1800  - 6.0 Communicator - $ 3-113 $1  ! CURRENT REVISIONS (FIRMWARE) !      Q;;;;;;;;;;;;;;;;;;;;W Revision 4020  :12152-80065 (U15)* :  :12152-80066 (U35)* :  :12152-80067 (U55)* : & :12152-80068 (U65)* : * A400 release, new I/O table in VCP && A;;;;;;;;;;;;;;;;;;;;S power-up message. Supports the new &$ serial I/O drivers introduced with $ RTE-A revision 4.1.  ' Included in upgrade kit p/n 12152-64004. ' ! Required for D-MUX console. !   Q;;;;;;;;;;;;;;;;;;;;W Revision 4021  :12152-80069 (U15)* : SCSI Boot Capability  :12152-80070 (U35)* : # :12152-80071 (U55)* : * Firmware included in upgrade # :12152-80072 (U65)* : kit 12152-64005.  A;;;;;;;;;;;;;;;;;;;;S  (See S/N 2137B-05)   )MOVE ABS=90,1800  - 6.0 Communicator -  3-114 1  ! CURRENT REVISIONS (FIRMWARE) !   )SELECT CHARSET=10,1  3.33.11 A900 Firmware History  )SELECT CHARSET=0,1   Q;;;;;;;;;;;;;;;;;;;;W  :12201-80003 (U0803) :  :12201-80004 (U0802) :  :12201-80005 (U0801) :  :12201-80006 (U1103) :  :12201-80007 (U1102) :  :12201-80008 (U1101) :  :12201-80009 (U0703) : Original Release  :12201-80010 (U0702) :  :12201-80011 (U0701) :  :12201-80012 (U1003) :  :12201-80013 (U1002) :  :12201-80014 (U1001) :  :12201-80015 (U0603) :  :12201-80016 (U0602) :  :12201-80017 (U0601) :  :12201-80018 (U0903) :  :12201-80019 (U0902) :  :12201-80020 (U0901) :  :12201-80021 (U1407) :  :12201-80022 (U1607) :  A;;;;;;;;;;;;;;;;;;;;S   Q;;;;;;;;;;;;;;;;;;;;W  :12201-80024 (U0803)*:  :12201-80025 (U0802)*:  :12201-80026 (U0801)*:  :12201-80027 (U1103)*: & :12201-80028 (U1102)*: * Rewrite firmware to execute Code and &# :12201-80029 (U1101)*: Data Separation instructions. #& :12201-80030 (U0703)*: Firmware change must be accompanied &# :12201-80031 (U0702)*: by a new Cache Control Board: # :12201-80032 (U0701)*:  :12201-80033 (U1003)*: 12203-60004.  :12201-80034 (U1002)*:  :12201-80035 (U1001)*:  :12201-80036 (U0603)*:  :12201-80037 (U0602)*: $ :12201-80038 (U0601)*: This firmware is included in the $" :12201-80039 (U0903)*: 12203A Opt 001 Retrofit Kit. " :12201-80040 (U0902)*:  :12201-80041 (U0901)*: # :12201-80042 (U1407)*: REQUIRED TO RUN RTE-A AND VC+. # :12201-80043 (U1607)*:  A;;;;;;;;;;;;;;;;;;;;S  )MOVE ABS=90,1800  - 6.0 Communicator - $ 3-115 $1  ! CURRENT REVISIONS (FIRMWARE) !   Q;;;;;;;;;;;;;;;;;;;;W  :12201-80024 (U0803) :  :12201-80044 (U0802)*:  :12201-80026 (U0801) : % :12201-80027 (U1103) : * Computer does not Power-Fail Auto- %% :12201-80028 (U1102) : restart. When power is restored, %% :12201-80029 (U1101) : the computer comes up in VCP mode. % :12201-80030 (U0703) :  :12201-80031 (U0702) :  :12201-80032 (U0701) : (See S/N 2139A-01)  :12201-80033 (U1003) :  :12201-80034 (U1002) :  :12201-80035 (U1001) :  :12201-80036 (U0603) :  :12201-80037 (U0602) :  :12201-80038 (U0601) :  :12201-80039 (U0903) :  :12201-80040 (U0902) :  :12201-80041 (U0901) :  :12201-80042 (U1407) :  :12201-80043 (U1607) :  A;;;;;;;;;;;;;;;;;;;;S   Q;;;;;;;;;;;;;;;;;;;;W  :12201-80045 (U0803)*:  :12201-80046 (U0802)*:  :12201-80047 (U0801)*: % :12201-80048 (U1103)*:  * If negative indices for EMA arrays %% :12201-80049 (U1102)*:  are used, incorrect addresses are %$ :12201-80050 (U1101)*: generated. This may appear as a $ :12201-80030 (U0703) :  Memory Protect error.  :12201-80031 (U0702) :   :12201-80032 (U0701) : (See S/N 2139A-2)  :12201-80033 (U1003) :   :12201-80034 (U1002) :  :12201-80035 (U1001) :  :12201-80036 (U0603) :  :12201-80037 (U0602) :  :12201-80038 (U0601) :  :12201-80039 (U0903) :  :12201-80040 (U0902) :  :12201-80041 (U0901) :  :12201-80042 (U1407) :  :12201-80043 (U1607) :  A;;;;;;;;;;;;;;;;;;;;S )MOVE ABS=90,1800  - 6.0 Communicator -  3-116 1  ! CURRENT REVISIONS (FIRMWARE) !   Q;;;;;;;;;;;;;;;;;;;;W  :12201-80052 (U0803)*:  :12201-80053 (U0802)*:  :12201-80054 (U0801)*:  :12201-80055 (U1103)*: & :12201-80056 (U1102)*: * Changed to fix bug. Computers with &' :12201-80057 (U1101)*: battery backup will not auto-restart. '' :12201-80030 (U0703) : Also, a compare byte instruction (CBT) '% :12201-80031 (U0702) : incorrectly clears the X-Register. % :12201-80032 (U0701) :  :12201-80033 (U1003) : (See S/N 2139A-2)  :12201-80034 (U1002) :  :12201-80035 (U1001) :  :12201-80036 (U0603) :  :12201-80037 (U0602) :  :12201-80038 (U0601) :  :12201-80039 (U0903) :  :12201-80040 (U0902) :  :12201-80041 (U0901) :  :12201-80042 (U1407) :  :12201-80043 (U1607) :  A;;;;;;;;;;;;;;;;;;;;S   Q;;;;;;;;;;;;;;;;;;;;W  :12201-80060 (U0803)*: Revision 11  :12201-80053 (U0802) :  :12201-80054 (U0801) : % :12201-80055 (U1103) : * A900 TBG runs too slow. The TBG %& :12201-80061 (U1102)*: loses approximately 24 seconds per &" :12201-80062 (U1101)*: day due to a firmware bug. " :12201-80030 (U0703) :  :12201-80031 (U0702) :  (See S/N 2139A-4)  :12201-80032 (U0701) :  :12201-80033 (U1003) : ' :12201-80034 (U1002) : This firmware is included in Upgrade '(( :12201-80035 (U1001) : Kit 12201-60051.  :12201-80036 (U0603) :  :12201-80037 (U0602) :  :12201-80038 (U0601) :  :12201-80039 (U0903) :  :12201-80040 (U0902) :  :12201-80041 (U0901) :  :12201-80042 (U1407) :  :12201-80043 (U1607) :  A;;;;;;;;;;;;;;;;;;;;S )MOVE ABS=90,1800  - 6.0 Communicator - $ 3-117 $1  ! CURRENT REVISIONS (FIRMWARE) !    Q;;;;;;;;;;;;;;;;;;;;W  :12201-80060 (U0803) :  :12201-80053 (U0802) :  :12201-80054 (U0801) :  :12201-80055 (U1103) : * Changed to fix bug. " :12201-80061 (U1102) : Erroneous results returned "! :12201-80062 (U1101) : when .FPWR is followed by !! :12201-80063 (U0703)*: .FAD in MACRO code. This !! :12201-80064 (U0702)*: code is generated by the ! :12201-80065 (U0701)*: FORTRAN compiler in the :12201-80066 (U1003)*: expression: B=2*A**3  :12201-80067 (U1002)*:  :12201-80068 (U1001)*: (See S/N 2139A-6)  :12201-80036 (U0603) : # :12201-80037 (U0602) : This firmware is included in #! :12201-80038 (U0601) : Upgrade Kit 12201-60069. ! :12201-80039 (U0903) :  :12201-80040 (U0902) :  :12201-80041 (U0901) :  :12201-80042 (U1407) :  :12201-80043 (U1607) :  A;;;;;;;;;;;;;;;;;;;;S    Q;;;;;;;;;;;;;;;;;;;;W  :12201-80060 (U0803) :  :12201-80053 (U0802) :  :12201-80054 (U0801) : * Changed to fix bug. & :12201-80055 (U1103) : When using the .NGL instruction in && :12201-80061 (U1102) : MACRO to convert double precision && :12201-80062 (U1101) : floating point to single precision &( :12201-80063 (U0703) : floating point, incorrect results were () :12201-80064 (U0702) : obtained if the instruction immediately )( :12201-80065 (U0701) : following .NGL used address 000000 or ($ :12201-80066 (U1003) : 000001 to reference the A or B $ :12201-80067 (U1002) : registers.  :12201-80068 (U1001) :  :12201-80070 (U0603)*: (See S/N 2139A-8)  :12201-80071 (U0602)*:  :12201-80072 (U0601)*:  :12201-80073 (U0903)*:  :12201-80074 (U0902)*:  :12201-80075 (U0901)*:  :12201-80042 (U1407) :  :12201-80043 (U1607) :  A;;;;;;;;;;;;;;;;;;;;S )MOVE ABS=90,1800  - 6.0 Communicator -  3-118 1  ! CURRENT REVISIONS (FIRMWARE) !     Q;;;;;;;;;;;;;;;;;;;;W  :12201-80076 (U0803)*: ! :12201-80077 (U0802)*: * Changed to fix bug. !' :12201-80078 (U0801)*: Interim bank that contains SQRT '( :12201-80079 (U1103)*: fix but not I/O Extender changes. (' :12201-80080 (U1102)*: When taking the square root of '' :12201-80081 (U1101)*: floating point numbers that had '& :12201-80063 (U0703) : all ones in the mantissa and &( :12201-80064 (U0702) : exponent combinations of 4*16**n, (( :12201-80065 (U0701) : an incorrect result was obtained. ( :12201-80066 (U1003) :  :12201-80067 (U1002) :  :12201-80068 (U1001) :  :12201-80070 (U0603) :  :12201-80071 (U0602) :  :12201-80072 (U0601) :  :12201-80073 (U0903) :  :12201-80074 (U0902) :  :12201-80075 (U0901) :  :12201-80042 (U1407) :  :12201-80043 (U1607) :  A;;;;;;;;;;;;;;;;;;;;S    Q;;;;;;;;;;;;;;;;;;;;W  :12201-80084 (U0803)*:  :12201-80085 (U0802)*: ! :12201-80086 (U0801)*: * Changed to fix bug. !% :12201-80087 (U1103)*: This revision contains both %& :12201-80088 (U1102)*: the SQRT fix and changes for & :12201-80089 (U1101)*: the I/O Extender.  :12201-80063 (U0703) :  :12201-80064 (U0702) :  :12201-80065 (U0701) :  :12201-80066 (U1003) :  :12201-80067 (U1002) : (See S/N 2139A-9)  :12201-80068 (U1001) : & :12201-80070 (U0603) : This firmware is included in &$ :12201-80071 (U0602) : Upgrade Kit 12201-60083. $ :12201-80072 (U0601) :  :12201-80073 (U0903) :  :12201-80074 (U0902) :  :12201-80075 (U0901) :  :12201-80042 (U1407) :  :12201-80043 (U1607) :  A;;;;;;;;;;;;;;;;;;;;S  )MOVE ABS=90,1800  - 6.0 Communicator - $ 3-119 $1  ! CURRENT REVISIONS (FIRMWARE) !    Q;;;;;;;;;;;;;;;;;;;;W  :12201-80090 (U0803)*:  :12201-80091 (U0802)*: ! :12201-80092 (U0801)*: * Changed to fix bug. !% :12201-80093 (U1103)*: Fixed break disable problem %% :12201-80094 (U1102)*: (needed in conjunction with %! :12201-80095 (U1101)*: rev. 4011 of VCP). ! :12201-80063 (U0703) :  :12201-80064 (U0702) :  :12201-80065 (U0701) :  :12201-80066 (U1003) : ! :12201-80067 (U1002) : (See S/N 2139A-19) ! :12201-80068 (U1001) :  :12201-80070 (U0603) :  :12201-80071 (U0602) :  :12201-80072 (U0601) : & :12201-80073 (U0903) : This firmware is included in &$ :12201-80074 (U0902) : Upgrade Kit 12201-60090. $ :12201-80075 (U0901) :  :12201-80042 (U1407) :  :12201-80043 (U1607) :  A;;;;;;;;;;;;;;;;;;;;S    Q;;;;;;;;;;;;;;;;;;;;W  :12201-80096 (U0803)*:  :12201-80097 (U0802)*:  :12201-80098 (U0801)*: * Changed to fix  :12201-80099 (U1103)*: Machine Check Bug  :12201-80100 (U1102)*: ! :12201-80101 (U1101)*: (See S/N 2139A-23). ! :12201-80063 (U0703) :  :12201-80064 (U0702) :  :12201-80065 (U0701) :  :12201-80066 (U1003) :  :12201-80067 (U1002) :  :12201-80068 (U1001) :  :12201-80070 (U0603) :  :12201-80071 (U0602) :  :12201-80072 (U0601) : & :12201-80073 (U0903) : This firmware is included in &$ :12201-80074 (U0902) : Upgrade Kit 12201-60097. $ :12201-80075 (U0901) :  :12201-80042 (U1407) :  :12201-80043 (U1607) :  A;;;;;;;;;;;;;;;;;;;;S )MOVE ABS=90,1800  - 6.0 Communicator -  3-120 1  ! CURRENT REVISIONS (FIRMWARE) !    Q;;;;;;;;;;;;;;;;;;;;W  :12201-80103 (U0803)*:  :12201-80104 (U0802)*:  :12201-80105 (U0801)*: * Changed to fix:  :12201-80106 (U1103)*: & :12201-80107 (U1102)*: - self-test error after 50 or &' :12201-80108 (U1101)*: more power cycles (duplicated '$ :12201-80109 (U0703)*: only with 50 Hz power). $' :12201-80110 (U0702)*: - base relativity problem with '! :12201-80111 (U0701)*: VIS instructions. !& :12201-80112 (U1003)*: - Cross map move bytes (MBxx) &% :12201-80113 (U1002)*: instructions now work for % :12201-80114 (U1001)*: all cases. ( :12201-80115 (U0603)*: - Self-test diagnoses incorrectly (( :12201-80116 (U0602)*: with the first 1Mb bank in the (( :12201-80117 (U0601)*: 8 Mb memory board has a single ( :12201-80118 (U0903)*: bit error.  :12201-80119 (U0902)*:  :12201-80120 (U0901)*: (S/N 2139A-30)  :12201-80042 (U1407) : ' :12201-80043 (U1607) : * This firmware is included in ' A;;;;;;;;;;;;;;;;;;;;S kit 12201-60103.  )MOVE ABS=90,1800  - 6.0 Communicator - $ 3-121 $1  ! CURRENT REVISIONS (FIRMWARE) !   )SELECT CHARSET=10,1  3.33.12 A900 VCP Firmware History  )SELECT CHARSET=0,1    )SELECT CHARSET=5,1  N  )SELECT CHARSET=0,1  ( The old cache board, part no. 12203-60004, must have the old ROMs (prefix (' 12203-) and the new cache bo((ard must have the new ROMs (prefix 5180-). '  Q;;;;;;;;;;;;;;;;;;;;W  :12203-80002 (U0908) : Original Release  :12203-80003 (U1208) :  A;;;;;;;;;;;;;;;;;;;;S   Q;;;;;;;;;;;;;;;;;;;;W Revision 4001  :12203-80005 (U0908)*: # :12203-80006 (U1208)*: * REQUIRED TO RUN RTE-A AND VC+ #" A;;;;;;;;;;;;;;;;;;;;S  Included in the 12203A Opt. 001 " Retrofit Kit.    Q;;;;;;;;;;;;;;;;;;;;W Revision 4001 % :12203-80007 (U0908)*: * Add boot loaders for 1600 BPI Map %% :12203-80008 (U1208)*: Tape, 3.5" Microfloppy, and 10 Mb %$ A;;;;;;;;;;;;;;;;;;;;S  mini-winchester disc. VCP is now $ in 8K eproms.  (See S/N 2139A-3)   Q;;;;;;;;;;;;;;;;;;;;W Revision 4004 & :12203-80009 (U0908)*: * Changed to fix bug. If system disc &' :12203-80010 (U1208)*: and CPU are powered up simultaneously, '! A;;;;;;;;;;;;;;;;;;;;S the CPU will not auto boot. !  (See S/N 2139A-2)  )SELECT CHARSET=9,1 OR )SELECT CHARSET=0,1   ( Q;;;;;;;;;;;;;;;;;;;;W These are new VCP ROMs to be used in the (- : 5180-4253 (U0908)*: new A900 Cache board, part no. 12203-60011/17/18. -) : 5180-4254 (U1208)*: The new board was needed for I/O Extender )' A;;;;;;;;;;;;;;;;;;;;S compatibility, and also includes field ') improvements. This set of ROMs is identical ) to those in the A600+.   (See S/N 2139A-10)   )MOVE ABS=90,1800  - 6.0 Communicator -  3-122 1  ! CURRENT REVISIONS (FIRMWARE) !   Q;;;;;;;;;;;;;;;;;;;;W Revision 4011  :12203-80012 (U0908)*: % :12203-80013 (U1208)*: * Fixed Break Disable processing on % : OR : the 12040B/C MUX.  :5180-4263** (U0908)*: % :5180-4264** (U1208)*: ** These ROMS are used in newer A900 %' A;;;;;;;;;;;;;;;;;;;;S Cache board, part no. 12203-60011/17/18. '    Q;;;;;;;;;;;;;;;;;;;;W Revision 4020  :12203-80015#(U0908)*: % :12203-80016#(U1208)*: * A400 release, new I/O table in VCP %& : OR : power-up message. Supports the new &% :5180-4271** (U0908)*: serial I/O drivers introduced with %' :5180-4272** (U1208)*: RTE-A revision 4.1. Required for the ' A;;;;;;;;;;;;;;;;;;;;S D-MUX console.  & # This firmware is included in upgrade kit &% 12203-64001 for use in old A900 Cache %# board, part no. 12203-60001/60004. # # ** These ROMS are used in newer A900 #& Cache board, part no. 12203-60011/17/18. & % ROMs 5180-4271 and 5180-4272 are part % upgrade kit p/n 5180-4274.   ) Q;;;;;;;;;;;;;;;;;;;;W Vendor change for 5180-4271 and -4272 only. )% :5180-4286 (U0908)*: Same as above but plastic parts. % :5180-4287 (U1208)*:  A;;;;;;;;;;;;;;;;;;;;S  (See S/N 2139B-09)    Q;;;;;;;;;;;;;;;;;;;;W Revision 4021  :5181-8604 (U0908)*: SCSI Boot Capability  :5181-8605 (U1208)*:  A;;;;;;;;;;;;;;;;;;;;S   (See S/N 2139B-13)  )MOVE ABS=90,1800  - 6.0 Communicator - $ 3-123 $1  ! CURRENT REVISIONS (FIRMWARE) !   Q;;;;;;;;;;;;;;;;;;;;;;W  :5181-8657 (U908)# : Vendor change.  :5181-8658 (U1108)# :  A;;;;;;;;;;;;;;;;;;;;;;S   (See S/N 2139B-15)   Q;;;;;;;;;;;;;;;;;;;;;;W  :5181-8667 (U908)# : Revision 4024  :5181-8668 (U1108)# :  A;;;;;;;;;;;;;;;;;;;;;;S $ # This firmware is included in upgrade $ kit 5181-8607.   (See S/N 2139B-16) )MOVE ABS=90,1800  - 6.0 Communicator -  3-124 1  ! CURRENT REVISIONS (FIRMWARE) !   )SELECT CHARSET=10,1  3.33.13 A990 Firmware History  )SELECT CHARSET=0,1   " Q;;;;;;;;;;;;;;;;;;;;W Original Release (revision 8) " :12990-80106 (U1913)*: $ A;;;;;;;;;;;;;;;;;;;;S Firmware EPROM chip includes A990 $" base set microcode and VCP code. "  Q;;;;;;;;;;;;;;;;;;;;W Revision 9  :12990-80111 (U1913)*: $ A;;;;;;;;;;;;;;;;;;;;S Firmware EPROM chip includes A990 $" base set microcode and VCP code. " )MOVE ABS=90,1800  - 6.0 Communicator - $ 3-125 $1  ! CURRENT REVISIONS (FIRMWARE) !   )SELECT CHARSET=10,1  3.33.14 M/E/F-Series ROM History  )SELECT CHARSET=0,1   )MOVE ABS=90,1800  - 6.0 Communicator -  3-126 1  ! CURRENT REVISIONS (FIRMWARE) !   )MOVE ABS=90,1800  - 6.0 Communicator - $ 3-127 $1  ! CURRENT REVISIONS (FIRMWARE) !   )MOVE ABS=90,1800  - 6.0 Communicator -  3-128 1  ! CURRENT REVISIONS (FIRMWARE) !    )MOVE ABS=90,1800  - 6.0 Communicator - $ 3-129 $1  ! CURRENT REVISIONS (FIRMWARE) !   )SELECT CHARSET=10,1  3.33.15 PSI Firmware History  )SELECT CHARSET=0,1    )SELECT CHARSET=9,1  12007B 1000-1000 Modem Interface  12044A 1000-1000 Direct Connect Interface  )SELECT CHARSET=0,1   91750-80008/80009 Original HDLC firmware.   91750-80021 This EPROM replaced 91750-80009.  Refer to SN 12007B-04, 12044A-07.  ! 5180-7233 The two 4k byte EPROMs were replaced ! with one 8k EPROM. Refer to SN  12007B-05, 12044A-08.  ' 5181-6113 ROM from vendor changed. Refer to SN 12007B-09, ' 12044A-10.    )SELECT CHARSET=9,1  12043A MRJE (Download)  )SELECT CHARSET=0,1   5180-1966   5180-7290 Refer to SN 12043A-05   )SELECT CHARSET=9,1  12072A Data Link Slave Firmware  )SELECT CHARSET=0,1   5180-1957 Original Data Link slave firmware.   5180-1965 Refer to SN 12072A-01.   5180-1974 No service note written.      )SELECT CHARSET=9,1  12073A 1000-3000 Modem Interface  12082A 1000-3000 Direct Connect Interface  )SELECT CHARSET=0,1   91750-80010/80011 Original BISYNC firmware.   91750-80012/80013 Refer to SN 12073A-1, 12082A-1.   91750-80016/80017 Refer to SN 12073A-2, 12082A-2.   5180-7263/7264 Refer to SN 12082-05 7/87.   )MOVE ABS=90,1800  - 6.0 Communicator -  3-130 1  ! CURRENT REVISIONS (FIRMWARE) !   )SELECT CHARSET=9,1 12250A (MEF)  12075A X.25 (LAP-B) Modem Interface (A-Series)  )SELECT CHARSET=0,1  % 5180-1958/1959 Original - Rev 2144 for X.25/1000, PCO 2201. %  5180-1975/1976 LAP-B firmware Rev. 2323.   5180-7220/7221 Refer to SN 12075A-03. Rev. 2349.  ! 5180-7232 The two 4k byte EPROMs were replaced ! with one 8k EPROM. Refer to SN  12075A-05. Rev. 2538.  $ 5180-7260 Current Rev. 2648. Refer to SN 12075A-07. $    )SELECT CHARSET=9,1  12092A Multipoint Master Modem Interface  )SELECT CHAR((SET=0,1  ! 12092-80001/80002 Original Data Link/Multipoint Master ! firmware.   12092-80003/80004 Refer to SN 12092A-02.   12092-80005/80006 Refer to SN 12092A-05  )MOVE ABS=90,1800  - 6.0 Communicator - $ 3-131 $1  ! CURRENT REVISIONS (FIRMWARE) !   )SELECT CHARSET=10,1  3.33.16 12040 MUX Firmware History  )SELECT CHARSET=0,1    )SELECT CHARSET=9,1  ROM Part Number Changes  )SELECT CHARSET=0,1   12040-80001 Original 'A' version.  " 12040-80002 'A' version. Fixed port lockup due to " powering down terminal.  ! 5180-1970 'B' version of the product (12040B). ! Changes are:  - round-robin buffer handling % - no echo for control characters handled % correctly  - split baud rate groups added  - character count reset fixed " - cancel-all logic for parity fixed "! - ENQ/ACK handshake counter fixed !! - QTD modem box capability added ! - XON/XOFF added  ' 5180-7227 'almost-a-C' version. (Not a warranty upgrade) ' Changes are: # - ENQ/ACK timer changed to 10 seconds # - control request can force XON % - ports using parity now handle terminal % power-downs # - BREAK on odd parity ports no longer # hangs port % - KATAKANA (or character with hi-bit on) %$ no longer hangs port if = terminator $  )SELECT CHARSET=9,1  C MUX  )SELECT CHARSET=0,1  % 5180-7228 'C' version (12040C, not a warranty upgrade) %$ The only change was to set both BRG-0 and $$ BRG-1 to 9600 baud to simplify use of the $ MUX as a console.   5181-6125 Vendor change only.   5181-8662 Vendor change only.    )SELECT CHARSET=9,1  D MUX  )SELECT CHARSET=0,1   5180-7245 'D' version (12040D).   5180-7262 'D' version. Revision 4.11. )MOVE ABS=90,1800  - 6.0 Communicator -  3-132 1  ! CURRENT REVISIONS (FIRMWARE) !    5180-7268 'D' version. Revision 5.02.   5180-7289 'D' version. Revision 5.19.   5180-7300 'D' version. Revision 5.20.   5181-8663 Vendor change only.  )MOVE ABS=90,1800  - 6.0 Communicator - $ 3-133 $1  ! CURRENT REVISIONS (FIRMWARE) !   )SELECT CHARSET=10,1  3.33.17 12076A LAN/1000 Card Firmware  )SELECT CHARSET=0,1    U56 12076-81004 EPROM  U58 12076-81005 EPROM  U291 12076-81006 NOVRAM  )MOVE ABS=90,1800  - 6.0 Communicator -  3-134 1  ! CURRENT REVISIONS (FIRMWARE) !   )SELECT CHARSET=10,1  3.33.18 12016A SCSI Firmware History  )SELECT CHARSET=0,1    * 12016-80003 Original firmware (PC board part number 12016-60001). * ' 12016-80005 PC board upgraded for reliability (new PC board ' part number 12016-60101).   12016-80009 Added SCSI Boot capability.  Refer to S/N #12016A-03.  )SELECT CHARSET=0,1  )MOVE ABS=90,1800  )SELECT CHARSET=0,1  - 6.0 Communicator - $ 3-135 $1  ! CURRENT REVISIONS (FIRMWARE) ! )SELECT CHARSET=12,1    )SELECT CHARSET=12,1   Chapter 4  Usage Considerations )SELECT CHARSET=0,1   ( This chapter discusses any significant changes in generation, (( installation, and usage and their impact for the products that have (( changed in this revision. Operating system module and system library size ( changes are also included.  ( The headers include the product number for that page. This should make it ($ easier to find the usage considerations for a particular product. $     )SELECT CHARSET=11,1  4.1 Structure Changes  )SELECT CHARSET=0,1     )SELECT CHARSET=10,1  4.1.1 Pascal Libraries  )SELECT CHARSET=0,1  ( Routine Pas.A1SharedSize has been modified to reflect ID segment changes (( at 6.0. Libraries PASCAL.LIB, PASCAL_CDS.LIB, and PASCAL_FMGR.LIB are ( affected by this change.  ( Please note that although IMAGE-II (92081A) and RJE-II (91781A) have been (( updated to have the Pascal libraries deleted from their product, updates (( for RJE-II and IMAGE-II will not be sent out at 6.0. Since the only (( change to these products is this deletion and the correct version of these (( libraries are sent out (and installed by) the Operating System, we feel ( that sending an "update" would just cause confusion.    )SELECT CHARSET=10,1 4.1.2 Disc to Disk )SELECT CHARSET=0,1  ( Throughout the RTE products, the word "disc" has been changed to reflect (( the new spelling, "disk". Please check and be sure you don't have any (( files that are looking for the old spelling. You can use the new 'grep' ( utility to search for "disc" in your files.     )SELECT CHARSET=11,1 4.2 (12016A) SCSI )SELECT CHARSET=0,1  )MOVE ABS=90,1800  )SELECT CHARSET=0,1  - 6.0 Communicator - $ 4-1 $1   Usage Considerations  )SELECT CHARSET=10,1    )SELECT CHARSET=10,1  4.2.1 Software Updates  )SELECT CHARSET=0,1   ( The 12016A SCSI product includes the SCSI Reference Manual (part no. (( 12016-90001) and a tape of software necessary to use SCSI devices. This (( software is also shipped with the RTE-A operating system. Even after the (( 6.0 release, the tape included with the 12016A product will still contain (( software modules at revision 5270; this is for customers who run the SCSI (( product on a revision 5.2 or earlier RTE-A operating system. If you are (( updating your RTE-A operating system to 6.0, DO NOT use the software (( included with the SCSI product; use the software shipped with RTE-A. The ($ 5.27 SCSI software is not compatible with the 6.0 RTE-A software. $    )SELECT CHARSET=11,1  4.3 (91751A) X.25/1000  )SELECT CHARSET=0,1     )SELECT CHARSET=10,1  4.3.1 Generation Considerations  )SELECT CHARSET=0,1  ( The file /X25/REL/#X25A.REL no longer exists. The entry points it (( contained are now in VCTR. Delete the command RE /X25/REL/#X25A.REL from ( your answer file.     )SELECT CHARSET=11,1  4.4 (91790A) NS-ARPA/1000  )SELECT CHARSET=0,1     )SELECT CHARSET=10,1 4.4.1 INETD )SELECT CHARSET=0,1    )SELECT CHARSET=9,1  4.4.1.1 Description  )SELECT CHARSET=0,1   ( Inetd is a monitor for NS-ARPA/1000 or ARPA/1000 systems that listens for (( incoming connections and schedules the appropriate server to handle the (( connection. Inetd will listen on up to 30 TCP protocol addresses (or (( "ports") at once, requiring fewer system resources than if separate (( programs were to listen for these connections. Inetd must be running (( before other hosts can connect to the local host through mail, ftp, or (( telnet. Inetd can be started only by superusers with appropriate (( privileges. It is started at network initialization time. Inetd also (( offers an extra level of security by allowing you to specify which hosts (( may or may not use a service. A log of connections to services can (( optionally be kept in the file /etc/inetd.log, along with info about (( errors encountered and access denials. Currently, inetd supports the ( following services: )MOVE ABS=90,1800  - 6.0 Communica((tor -  4-2 1   Usage Considerations (91790A)    smtp : simple mail transfer protocol  ftp : file transfer protocol  telnet : TELNET virtual terminal    )SELECT CHARSET=9,1  4.4.1.2 Installation  )SELECT CHARSET=0,1   ( Prior to release 6.0, inetd was installed as part of the Mail/1000 product (( if SMTP service was installed (on RTE_A VC+ with NS-ARPA). The (( configuration file "inetd.conf" and the file "services", which maps (( service names to TCP ports, were both installed in the /SYSTEM directory; (% inetd was started with the command "xq inetd" in the Welcome file. % ( For release 6.0, inetd has been enhanced to support ftp and telnet and is (( installed as part of the NS-ARPA and ARPA products. It is no longer part (( of the RTE-A product. The installation script "install_ns1000" or (( "install_arpa" contains the appropriate commands for installing files ( needed by inetd, including the following files:   /programs/inetd.run : executable file for inetd monitor & /etc/inetd.conf : configuration file that specifies services to & listen for ) /etc/services : file that maps services to the TCP port services use ) ( Please refer to the on-line help file on inetd for how to set up the ( services in the "inetd.conf" and "services" files.    )SELECT CHARSET=9,1  4.4.1.3 Important Notes  )SELECT CHARSET=0,1   ( 1. The location of the files "inetd.conf" and "services" have been changed (' from the directory /SYSTEM to /ETC. In addition, inetd is started up ') at NS initialization (nsinit) or ARPA initialization (netinit); therefore )% the "xq inetd" command in the Welcome file can be removed at 6.0. % ( 2. Inetd replaces the ftp and telnet monitors, ftpmn and tnmon. Therefore ($ these monitors should be removed from the /PROGRAMS directory. $   )SELECT CHARSET=10,1  4.4.2 Generation Considerations  )SELECT CHARSET=0,1  ( At 6.0, NS-ARPA and ARPA programs are now transportable between systems (( running the same version of RTE-A and networking software. This was (( accomplished by eliminating the use of non-transportable system entry (( points by the networking software. As part of this change, the networking (( modules that are generated into the system have been modified. NSPEC.REL (( is no longer needed and has been removed from the networking products. (( The other networking system module, NSABP, is now partitionable. Also, it ()MOVE ABS=90,1800  - 6.0 Communicator - $ 4-3 $1   Usage Considerations (91790A)   ( is no longer necessary to search NSLIB for the DSGLO module during RTAGN's ( system relocation phase.  ( The following commands should be deleted from your RTAGN answer file. For (! ARPA/1000 systems, the global directory would be /ARPA1000. !  RE /NS1000/REL/NSPEC.REL  SE /NS1000/LIB/NSLIB.LIB DSGLO  ( If you move NSABP into an OS partition, you must include NSABP in a PA (( command. Otherwise, a dummy version of NSABP will be included from $SYSA. ( ( A few restrictions on program transportability should be noted. Some of (( the networking programs use labelled system common. These programs can (( only be moved to other systems with the same system common configuration. (( The networking software uses the cross map move byte instructions, MBxy, (( extensively. Older versions of the A900 microcode contain a bug in these (( instructions. So, programs linked with a snap file that includes an RPL (( file other than %rpl91 must not be run on an A900 without the latest (( firmware (Rev. 4). Chapter 3 contains a revision history of the A900 (! firmware and lists the part numbers for the each revision. !    )SELECT CHARSET=11,1  4.5 (92077A) RTE-A Operating System  )SELECT CHARSET=0,1     )SELECT CHARSET=10,1  4.5.1 Peripheral Support Changes  )SELECT CHARSET=0,1  ( Many new peripherals have been supported since the 5.2 release. Please (( refer to the RTE-A System Generation and Installation Manual for a ( complete list of supported peripherals.    )SELECT CHARSET=10,1  4.5.2 A990 Firmware  )SELECT CHARSET=0,1  ( The RTE-A 6.0 Release includes new capabilities for EMA/VMA. There are (( now three E/VMA "models": Normal, Large, and Extended. The Extended E/VMA (( model is only available on A990 computers. Furthermore, to use Extended (( E/VMA, the firmware revision of the EPROM must be 10 (decimal) or greater. (( This is because the VMA instruction set microcode was modified at revision (( 10 for the new capability. The revision 10 EPROM also contains a fix for (! a bug in the .DIVD instruction (see SR number 4701-162396). ! ( The A990 control store is a writeable control store, so it is possible to (( modify the instruction set microcode "on the fly", that is, while the (( computer is executing. If the firmware revision of the EPROM is 9 (( (decimal), then it is possible to upgrade the instruction set microcode (( programmatically. This is done with a program called DOWNLOAD. The ()MOVE ABS=90,1800  - 6.0 Communicator -  4-4 1   Usage Considerations (92077A)   ( DOWNLOAD program copies a microcode file (.mic) to control store and also (( copies the contents of the file to a SHEMA partition in main memory. The (( copy of microcode in main memory is used in case of power fail. The (( DOWNLOAD program sets a special flag in the RTE base page. The flag is (( two words, containing the physical page number of the SHEMA partition. (( When power returns after a power fail, the VCP looks at the flag and, if (( necessary, downloads the microcode from the main memory into control store ( before resuming execution.  ( The download program and the microcode upgrade file are included as part (( of the RTE-A 6.0 product. Also included is a program called A990FWID, (% which allows the user to determine the revision of the A990 EPROM. % ( To determine the revision of your EPROM, link and run the A990FWID ( program:   CI> wd /rte_a   CI> link a990fwid.lod /programs/a990fwid.run   CI> a990fwid  ( The A990 EPROM contains a directory. The directory contains an entry for (( the entire EPROM, as well as an entry for each separate piece (or product) ( in the EPROM.  ( The A990FWID program will read the entire EPROM directory. You need to (( look at the revision of product number zero, which is the product number (( of the entire EPROM. The output of A990FWID (for a revision 9 EPROM) ( looks like this:  ! Product Number Supercode/Revision Product Description ! (in octal) octal decimal ) -------------- ------------------ ---------------------------------- ) 000 000011 9 Entire EPROM  001 000024 20 VCP % 002 000002 2 STST0 (Self-test module 0) %! 005 000001 1 XILINX (memory/IO) !% 003 000003 3 STSTC (Self-test module C) %% 011 000002 2 STSTD (Self-test module D) %% 012 000003 3 STSTE (Self-test module E) %% 013 000004 4 STSTF (Self-test module F) %% 014 000002 2 STSTG (Self-test module G) %% 015 000005 5 STSTH (Self-test module H) %! 210 000002 2 Baseset Microcode ! ( 1. If the revision of the entire EPROM is less than 9 decimal, then you (& have an EPROM that cannot be upgraded with the DOWNLOAD program. &% Contact your HP Service Representative to upgrade your EPROM. % )MOVE ABS=90,1800  - 6.0 Communicator - $ 4-5 $1   Usage Considerations (92077A)   ' 2. If the revision of the entire EPROM is 9 decimal, you must use the '# DOWNLOAD program to download the revision 10 upgrade file. # ' 3. If the revision of the entire EPROM is 10 decimal or greater, then ' you do not need to use the DOWNLOAD program.  ) To download the revision 10 upgrade file, link and run the DOWNLOAD program. ) The new microcode is in the file rev10upgrade.mic:   CI> wd /rte_a   CI> link download.lod /programs/download.run   CI> download rev10upgrade.mic     )SELECT CHARSET=5,1  N (( )SELECT CHARSET=0,1   ( Since this download operation must be done whenever the machine loses (( memory, you should put the download command into the system welcome file. (( This will upgrade the control store contents every time the machine is (( booted. Just add the following line to the BEGINNING of the welcome file: (  download /rte_a/rev10upgrade.mic   ( The rev10upgrade.mic file can be copied to a different directory. (( Remember to change the above line in the welcome file to reflect the ( current location of the microcode file.  ( It is possible for the DOWNLOAD program to seriously hang the computer if (( bad microcode is downloaded. If this occurs, the machine can only be (( recovered by clearing memory, and cycling power. This is because if (( battery backup/auto restart is enabled, then the VCP keeps trying to ( reload the bad microcode every time power is cycled.  ( The DOWNLOAD program changes the name of the SHEMA partition containing (( the microcode to "A990 Firmware". This prevents the user from (( accidentally removing the SHEMA partition. Also, this prevents any (( subsequent execution of the DOWNLOAD program, since it will not be able to (( rename its SHEMA partition to that name. If the user wants to remove the (( microcode upgrade from control store (in effect, reverse the download (( process), then the machine must be made to lose memory power (that is, ( memory is cleared( and then be rebooted. )MOVE ABS=90,1800  )SELECT CHARSET=0,1  - 6.0 Communicator -  4-6 1   Usage Considerations (92077A)  )SELECT CHARSET=10,1    )SELECT CHARSET=10,1  4.5.3 Primary System Software  )SELECT CHARSET=0,1  ( The Primary System has changed format at 6.0. It is no longer in ASAVE (( format but is in FST format. Instead of using ARSTR to load the Primary, (( a bootable subsystem !RESTORE is used to restore the tape; !RESTORE is a (( memory-based system that contains the FST utility. The !RESTORE program (( will prompt the user for information regarding system configuration, then (( creates the necessary directories and restores the Primary System files to ( these directories.  ( For more information, please refer to the RTE-A Primary System Software ( Installation Manual, part number 92077-90038.    )SELECT CHARSET=10,1  4.5.4 Generation Considerations  )SELECT CHARSET=0,1    )SELECT CHARSET=9,1 4.5.4.1 New Module )SELECT CHARSET=0,1  ( A new module, %ENVRN, has been added at 6.0. This module allows the (( target system to perform EXEC(39) calls, which perform environment (( variable look-ups for various utilities (such as LI). This module must be (( relocated as /VCPLUS/%ENVRN in the "system relocation" section of the (( answer file. The module is partionable; use "PA,ENVRN" to do this before ( you relocate it.  ( Please note that if you use %RPL90 or %RPL91 in your system, you will need (( to relocate the modules mb10, mb12, and mb21 from xmb.rel (153 words) or (( all of xmb.rel (306 words). Otherwise, you will get undefined external ( errors.  ( If you have pre-4.0 RPL files, see the file PRIMARY.ANS in Appendix C for ( information on xmb modules.     )SELECT CHARSET=10,1  4.5.5 6.0 Software Needed for Generation  )SELECT CHARSET=0,1  ( The 6.0 revisions of the programs below must be used to upgrade to 6.0. A (( command file, upgrade60.cmd, is supplied with RTE-A to ease the loading of (( these programs. See the RTE-A COOKBOOK in Appendix B of the Communicator ( for details on the procedure.    )SELECT CHARSET=9,1 4.5.5.1 RTAGN )SELECT CHARSET=0,1   ( Because of various changes to system entry points and the ID segment (( format, the 6.0 version of RTAGN is required to generate your 6.0 system. ( If an earlier revision is used, an error similar to: )MOVE ABS=90,1800  - 6.0 Communicator - $ 4-7 $1   Usage Considerations (92077A)     Missing system entry point: $SHTB  ( will be issued. Check that RTAGN identifies itself as "Rev. 6000" in the ( banner line.   )SELECT CHARSET=9,1 4.5.5.2 MACRO )SELECT CHARSET=0,1  ( The 6.0 version of MACRO is necessary to create macro libraries which can (( be used by the new MACRO. The standard installation command files will (( install the proper versions of $MACLB.MLB, $CDSLB.MLB, and $CDSONOFF.MLB. (( If an existing macro library is not recompiled with the new MACRO, an (! error will be generated when the 6.0 MACRO tries to use it: !  21 >> Old macro library. Try: 'MACRO,-3,,'  ( Running MACRO with the suggested runstring will fix the problem. Any (( custom macro libraries present on your host may also be processed at this (( time. However, the pre-6.0 version of MACRO will no longer be able to use ( the library.    )SELECT CHARSET=9,1 4.5.5.3 LINK )SELECT CHARSET=0,1  ( The 6.0 revision of LINK must be used to load programs for 6.0 systems (( because the ID segment format has changed. If an earlier revision of LINK (( is used, the .RUN files produced will incur an "Illegal program file" ( error when a 6.0 host attempts to RP them.   )SELECT CHARSET=9,1 4.5.5.4 LINDX )SELECT CHARSET=0,1  ( The 6.0 revision of LINDX is required because the pre-6.0 LINDX cannot (( handle a library as large as $BIGLB has become. The installation files (( will merge together and index a version of $BIGLB. If the pre-6.0 LINDX ( is used for this purpose, it will report:   Not sized large enough    )SELECT CHARSET=9,1 4.5.5.5 BUILD )SELECT CHARSET=0,1    ( The new revision of the BUILD program must be used to build a memory-based (( system at 6.0 for the same reasons the new RTAGN and LINK are needed. If (( an earlier revision of BUILD is used for a 6.0 system, an error similar ( to:   *** Illegal file position - snap file  )MOVE ABS=90,1800  - 6.0 Communicator -  4-8 1   Usage Considerations (92077A)    will be generated.    )SELECT CHARSET=10,1  4.5.6 CI Enhancements  )SELECT CHARSET=0,1    )SELECT CHARSET=9,1  4.5.6.1 New CI Variables  )SELECT CHARSET=0,1  ( The following variables are now predefined by CI: $DATC, $HOME, and (# $OLDPWD. $PROMPT can now have a value of up to 78 characters. #   )SELECT CHARSET=10,1 4.5.7 PWD )SELECT CHARSET=0,1    )SELECT CHARSET=9,1  4.5.7.1 Path Working Directory  )SELECT CHARSET=0,1  ( A new command, PWD, has been added at 6.0. PWD displays the current ( working directory, similar to the pwd command in UN*X.    )SELECT CHARSET=10,1  4.5.8 CD  )SELECT CHARSET=0,1    )SELECT CHARSET=9,1  4.5.8.1 Change Directory  )SELECT CHARSET=0,1  ( The CD command can take either of two forms. In the first form, it (( changes the current directory to "argument". If "argument" is '-' the (( directory is changed to the previous directory ($OLDPWD). The default ( for "argument" is the value of the $HOME variable.  ( The second form of cd substitutes the string "new" for the string "old" (( in the current directory name, $WD, and tries to change to this new ( directory.    )SELECT CHARSET=10,1  4.5.9 File System Enhancements  )SELECT CHARSET=0,1    )SELECT CHARSET=9,1 4.5.9.1 grep )SELECT CHARSET=0,1  ( grep, along with the utility fgrep, is new for the 6.0 release. grep and (( fgrep search files for lines matching a certain pattern, much the way the (( UN*X version of grep works. The difference between the two utilities is (( that grep supports regular expression patterns (similar to EDIT/1000), (( while fgrep supports fixed strings (making it a fast and compact way of (( finding text strings). As matches are found, they are copied to the (( session LU. Both grep and fgrep are shipped with the RTE-A operating ( system. )MOVE ABS=90,1800  )SELECT CHARSET=0,1  - 6.0 Communicator - $ 4-9 $1   Usage Considerations (92077A)  )SELECT CHARSET=9,1    )SELECT CHARSET=9,1 4.5.9.2 ls )SELECT CHARSET=0,1  ( ls has been added to RTE-A for the 6.0 release. ls and its related (( commands list the contents of a directory. ls will report the name of any (( file m((atching the mask along with any other information requested. If no (( mask is supplied, the current working directory will be searched. The ( output is sorted in ascending collation order.    )SELECT CHARSET=10,1 4.5.10 Mail/1000 )SELECT CHARSET=0,1  ( Please refer to the MAIL/1000 Manual for details on using the enhancements ( to Mail/1000 at 6.0.   )SELECT CHARSET=9,1  4.5.10.1 User Interface  )SELECT CHARSET=0,1  ( Many changes have been made to allow more flexibility in file and folder (( handling, visual-mode presentation options, etc. For example, at 6.0, the ( "ignore" command arguments look like the following:   mask[:lines]  ( where is a pattern which matches header field names, and is (( the maximum number of lines to print of matching headers (from 0 to 255, (( default = 0). For example, "ignore to:3" prints up to 3 lines of "To:" ( header and suppresses any following lines.   )SELECT CHARSET=9,1  4.5.10.2 DNS Client Support  )SELECT CHARSET=0,1  ( Client support for the Domain Name Service (DNS) is provided at 6.0. If a (( customer's network is running a nameserver, then Mail/1000 may be (( configured to query that nameserver for mail routing and IP address info, ( in accordance with RFCs 1032-1035, 1123, etc.   )SELECT CHARSET=9,1  4.5.10.3 Other Mail Standards  )SELECT CHARSET=0,1  ( Sendmail replaces domains specified in message headers that are aliases (( for an official domain to the official name, as per the RFC-822 and ( RFC-1123 standards.   )SELECT CHARSET=9,1  4.5.10.4 Host Routing  )SELECT CHARSET=0,1  ( In addition to DNS client support, some other changes have been made to (( support unusual network setups and such. For example, at 6.0, the file (" /mail/admin/domainalias.cf may contain entries in the format: "  fully.qualified.domain : |runstring  ( Here, runstring is a string suitable for FmpRunProgram that will be used (( to forward mail bound for fully.qualified.domain. The name of the ()MOVE ABS=90,1800  - 6.0 Communicator -  4-10 1   Usage Considerations (92077A)   ( temporary file that contains the message will be appended to the (( runstring. The message file will contain the routing envelope information (( at the top; this file is suitable for copying directly into another host's (( /mail/queue/ directory with name QMSG_x.QIN for further Mail/1000 ( processing.   )SELECT CHARSET=9,1  4.5.10.5 New Mail Notification  )SELECT CHARSET=0,1  ( The 6.0 release contains many enhancements in the area of new mail (( notification, including the ability for individual users to select (( different notification means based on message subject, sender, etc. ( Additional features include the following:  & "notify off" turns off notifications for your session; "notify on" &# restores notifications. All notification messages sent while # notification is off will be thrown away.  ( Session numbers may be used in place of logon names to direct messages (' solely to a single session. For instance, "notify 90 `I'll be back`" ' sends the message only to session 90.  ' Special user name "all" sends the message to all logged-on sessions. '  )SELECT CHARSET=9,1  4.5.10.6 Installation Process  )SELECT CHARSET=0,1  ( The InstallMail.cmd file uses CI variables to determine the directories in (( which software will be installed, much like the NS-ARPA/1000 installation ( file.   )SELECT CHARSET=9,1  4.5.10.7 uuencode/uudecode  )SELECT CHARSET=0,1  ( The uuencode/uudecode utilities prepare a file for transmission via mail. ( Usage is as follows:   uuencode [-a] [-d remotedest] input output  uudecode [-a] filename [output]  ( Uuencode takes the named source file and produces an encoded version; this (( version is in ordinary text form and can be edited by EDIT/1000. The (( encoding uses only printable ASCII characters. The protections (or (( "mode") of the file and (for re-creation on the remote (( system) are included. The `-a' option causes RTE ASCII files to be (( translated to UNIX ASCII before the file is encoded (a newline character (( is inserted between each record). For files other than type 1 files or (( translated ASCII, the "remotedest" will include a full file descriptor ( including the file type and size.  ( Uudecode reads an encoded file, strips off any leading and trailing lines (( added by mailers and recreates the original file with the specified mode (( and name. The `-a' option causes uudecode to translate UNIX ASCII to RTE ()MOVE ABS=90,1800  - 6.0 Communicator - $ 4-11 $1   Usage Considerations (92077A)   ( ASCII. (Newline characters are stripped out and interpreted as record (( separators.) If the "remotedest" does not include a file type, uudecode (( will by default create a type 1 file. If the `-a' option is supplied, the (! data will be decoded and translated to a type 4 ASCII file. !)MOVE ABS=90,1800  - 6.0 Communicator -  4-12 1   Usage Considerations (92077A)    )SELECT CHARSET=10,1  4.5.11 Size Changes  )SELECT CHARSET=0,1  ( As an aid for your software development efforts, the size differences are (( listed here from the last update in the operating system modules and (( system libraries. Dots are place-holders, meaning that the module did not (( exist at that release. The percentage difference reported on the last row ((+ of the table is the average percentage change of those modules that have ( _____ ( been changed. There is a summary following the table. The (( "# of size differences =" is the number of modules that existed in the (( 5.27 release and have changed in size. The (( "# of unique names: Rev.5270 =" line is the number of modules that existed (( in the 5.27 release and have been deleted at 6.0 release. The (( "# of unique names: Rev.6000 =" line is the number of modules that are new ( for the 6.0 release.  ( In addition we have given the size differences for BIGLB and BGCDS (# comparing these 6.0 libraries with and without symbolic links. #     )SELECT CHARSET=9,1  4.5.11.1 Operating System Size Differences  )SELECT CHARSET=0,1   Operating System Modules Size Differences  # Rev.5270 Rev.6000 Difference #$ ----------------------- ----------------------- ----------- $$ Module Name Size Module Name Size Words % $$ ................: ..... --> ENVRN : 710 710 100 $$ $IDRPL : 1024 --> $IDRPL : 1131 107 10 $$ ABORT : 521 --> ABORT : 547 26 4 $$ CDSFH : 804 --> CDSFH : 806 2 0 $$ CHECK : 138 --> CHECK : 150 12 8 $$ CLASS : 1689 --> CLASS : 1701 12 0 $$ ERLOG : 1741 --> ERLOG : 1749 8 0 $$ EXEC : 1019 --> EXEC : 1023 4 0 $$ IOMOD : 1099 --> IOMOD : 1095 -4 0 $$ IORQ : 1165 --> IORQ : 1176 11 0 $$ LOAD : 1322 --> LOAD : 1344 22 1 $$ LOCK : 744 --> LOCK : 751 7 0 $$ MAPS : 800 --> MAPS : 849 49 6 $$ MEMRY : 1965 --> MEMRY : 1990 25 1 $$ MODULE0 : 3194 --> MODULE0 : 3257 63 1 $$ MSGTB : 317 --> MSGTB : 328 11 3 $$ PERR : 525 --> PERR : 551 26 4 $$ PROGS : 758 --> PROGS : 766 8 1 $$ RTIOA : 988 --> RTIOA : 992 4 0 $$ SAM : 248 --> SAM : 244 -4 -1 $$ SCHED : 217 --> SCHED : 218 1 0 $$ SECOS : 256 --> SECOS : 266 10 3 $)MOVE ABS=90,1800  - 6.0 Communicator - $ 4-13 $1   Usage Considerations (92077A)   $ SIGNL : 1279 --> SIGNL : 1318 39 3 $$ UTIL : 1028 --> UTIL : 1031 3 0 $$ VCTR : 415 --> VCTR : 360 -55 -13 $$ VEMA : 401 --> VEMA : 569 168 41 $$ XCMND(( : 859 --> XCMND : 988 129 15 $$ ----- ----- ----- ---- $$ 24516 25910 1394 5 $  # of size differences = 26  # of unique names: Rev.5270 = 0  Rev.6000 = 1  Total file size change = 1394  Total file % change = 4%    )SELECT CHARSET=9,1  4.5.11.2 Driver Size Differences  )SELECT CHARSET=0,1   Drivers Size Differences  # Rev.5270 Rev.6000 Difference #$ ----------------------- ----------------------- ----------- $$ Module Name Size Module Name Size Words % $$ DD.24 : 1112 --> DD.24 : 1111 -1 0 $$ DD.33 : 1981 --> DD.33 : 1984 3 0 $$ DDC00 : 1074 --> DDC00 : 1083 9 0 $$ DDC01 : 1849 --> DDC01 : 1858 9 0 $$ DDQ24 : 566 --> DDQ24 : 771 205 36 $$ DDQ30 : 529 --> DDQ30 : 610 81 15 $$ ID.52 : 445 --> ID.52 : 471 26 5 $$ ID800 : 1304 --> ID800 : 1317 13 0 $$ ID801 : 1422 --> ID801 : 1435 13 0 $$ IDQ35 : 1631 --> IDQ35 : 1701 70 4 $$ ----- ----- ----- ---- $$ 11913 12341 428 3 $  # of size differences = 10  # of unique names: Rev.5270 = 0  Rev.6000 = 0  Total file size change = 428  Total file % change = 1%  )MOVE ABS=90,1800  - 6.0 Communicator -  4-14 1   Usage Considerations (92077A)    )SELECT CHARSET=9,1  4.5.11.3 BIGLB Size Differences (5.27 -> 6.0)  )SELECT CHARSET=0,1   BIGLB Size Differences  # Rev.5270 Rev.6000 Difference #$ ----------------------- ----------------------- ----------- $$ Module Name Size Module Name Size Words % $$ ................: ..... --> $LEMAFH : 133 133 100 $$ ................: ..... --> $LEMAINIT : 183 183 100 $$ ................: ..... --> $LVMAFH : 1340 1340 100 $$ ................: ..... --> $LVMAINIT : 146 146 100 $$ ................: ..... --> $VMALINIT$ : 442 442 100 $$ ................: ..... --> $VMAXINIT$ : 452 452 100 $$ ................: ..... --> $XEMAFH : 92 92 100 $$ ................: ..... --> $XEMAINIT : 234 234 100 $$ ................: ..... --> $XVMAFH : 1273 1273 100 $$ ................: ..... --> $XVMAINIT : 129 129 100 $$ ................: ..... --> /G_AREA/ : 0 0 100 $$ ................: ..... --> /LASTBUF/ : 0 0 100 $$ ................: ..... --> /LINE_WINDOW/ : 0 0 100 $$ ................: ..... --> FASTSTRMATCH : 195 195 100 $$ ................: ..... --> FGETOPT : 431 431 100 $$ ................: ..... --> FMPABSFNAME : 20 20 100 $$ ................: ..... --> FMPABSNAME : 20 20 100 $$ ................: ..... --> FMPCOLUMNS : 51 51 100 $$ ................: ..... --> FMPDIRINFO : 70 70 100 $$ ................: ..... --> FMPLINES : 50 50 100 $$ ................: ..... --> FMPMAKESLINK : 15 15 100 $$ ................: ..... --> FMPREADLINK : 15 15 100 $$ ................: ..... --> FMPSYMLINK : 8 8 100 $$ ................: ..... --> FMPTEMPNAME : 115 115 100 $$ ................: ..... --> GETGID : 25 25 100 $$ ................: ..... --> GETREDIRECTION : 297 297 100 $$ ................: ..... --> GREAD : 2516 2516 100 $$ ................: ..... --> HPADD_NODE : 719 719 100 $$ ................: ..... --> HPBACKUPCURSOR : 68 68 100 $$ ................: ..... --> HPCOMPAREBUFFERS: 24 24 100 $$ ................: ..... --> HPCOMPARE_BYTES : 25 25 100 $$ ................: ..... --> HPCRTSCREENSIZE : 68 68 100 $$ ................: ..... --> HPDELETEBUF : 63 63 100 $$ ................: ..... --> HPDISPLAYBUF : 160 160 100 $$ ................: ..... --> HPERASECHARS : 68 68 100 $$ ................: ..... --> HPEXPANDNAME : 255 255 100 $$ ................: ..... --> HPFIXUPPROMPT : 787 787 100 $$ ................: ..... --> HPGETAPARM : 218 218 100 $$ ................: ..... --> HPGETCURMASK : 251 251 100 $$ ................: ..... --> HPGETLASTPARM : 128 128 100 $$ ................: ..... --> HPGETLINE : 86 86 100 $$ ................: ..... --> HPHIGHEST_VALUE : 64 64 100 $$ ................: ..... --> HPINIT_TREE : 55 55 100 $)MOVE ABS=90,1800  - 6.0 Communicator - $ 4-15 $1   Usage Considerations (92077A)   $ ................: ..... --> HPINSERTBUF : 72 72 100 $$ ................: ..... --> HPLOWEST_VALUE : 63 63 100 $$ ................: ..... --> HPMOVE_STR : 30 30 100 $$ ................: ..... --> HPNEXTWORD : 208 208 100 $$ ................: ..... --> HPNEXT_NODE : 108 108 100 $$ ................: ..... --> HPNEXT_PTR : 88 88 100 $$ ................: ..... --> HPPREVWORD : 211 211 100 $$ ................: ..... --> HPPREV_NODE : 102 102 100 $$ ................: ..... --> HPPREV_PTR : 87 87 100 $$ ................: ..... --> HPPROC_CMD : 97 97 100 $$ ................: ..... --> HPSEARCHHISTORY : 341 341 100 $$ ................: ..... --> HPSTRIPREDIR : 239 239 100 $$ ................: ..... --> HPTREE_PTR : 151 151 100 $$ ................: ..... --> HPZDPARSE : 225 225 100 $$ ................: ..... --> INITSTRMATCH : 320 320 100 $$ ................: ..... --> MASKGETDIRENT : 136 136 100 $$ ................: ..... --> MASKISDS : 41 41 100 $$ ................: ..... --> MASKWRITEOK : 61 61 100 $$ ................: ..... --> RTEALLOCSHEMA : 724 724 100 $$ ................: ..... --> RTEALLOCXSAM : 9 9 100 $$ ................: ..... --> RTEEXTENDEDEV : 23 23 100 $$ ................: ..... --> RTEMMPASS : 18 18 100 $$ ................: ..... --> RTEPRIMESHINFO : 60 60 100 $$ ................: ..... --> RTERENAMESHEMA : 134 134 100 $$ ................: ..... --> RTERETURNSHEMA : 319 319 100 $$ ................: ..... --> RTESHELLREAD : 210 210 100 $$ ................: ..... --> VI_EDIT : 2693 2693 100 $$ ................: ..... --> VMAPOST : 122 122 100 $$ $EMA$ : 99 --> $EMA$ : 98 -1 -1 $$ $INIT : 94 --> $INIT : 137 43 45 $$ $PALC : 102 --> $PALC : 120 18 17 $$ $PRTN : 177 --> $PRTN : 199 22 12 $$ $VMA$ : 1266 --> $VMA$ : 1269 3 0 $$ $VMAINIT$ : 443 --> $VMAINIT$ : 442 -1 0 $$ ADDITEM : 73 --> ADDITEM : 72 -1 -1 $$ ALLOCATEMEM : 60 --> ALLOCATEMEM : 59 -1 -1 $$ ATACH : 151 --> ATACH : 150 -1 0 $$ BUSYPROCESS : 24 --> BUSYPROCESS : 23 -1 -4 $$ BYTSTRINGADDRESS: 12 --> BYTSTRINGADDRESS: 11 -1 -8 $$ CALCBLOCKAD : 44 --> CALCBLOCKAD : 42 -2 -4 $$ CHECKBITS : 154 --> CHECKBITS : 153 -1 0 $$ CLGOF : 280 --> CLGOF : 269 -11 -3 $$ CLGON : 136 --> CLGON : 134 -2 -1 $$ CMNDSTACKSCREEN : 1080 --> CMNDSTACKSCREEN : 1096 16 1 $$ CN.. : 211 --> CN.. : 218 7 3 $$ COPYSPARSE : 232 --> COPYSPARSE : 231 -1 0 $$ COUNTRECORDS : 170 --> COUNTRECORDS : 169 -1 0 $$ COUNTWRITE : 170 --> COUNTWRITE : 169 -1 0 $$ CRNTOLU : 72 --> CRNTOLU : 71 -1 -1 $$ DEBUGADOPT : 203 --> DEBUGADOPT : 248 45 22 $)MOVE ABS=90,1800  - 6.0 Communicator -  4-16 1   Usage Considerations (92077A)   $ DEBUGEVMAPEEK : 376 --> DEBUGEVMAPEEK : 470 94 25 $$ DEBUGSTOP : 67 --> DEBUGSTOP : 65 -2 -2 $$ DELETEITEM : 85 --> DELETEITEM : 84 -1 -((1 $$ DIRECPOSITION : 227 --> DIRECPOSITION : 226 -1 0 $$ DIRENTMATCH : 66 --> DIRENTMATCH : 72 6 9 $$ DISCRW : 209 --> DISCRW : 206 -3 -1 $$ DSOPENCON1 : 25 --> DSOPENCON1 : 24 -1 -4 $$ DTACH : 120 --> DTACH : 119 -1 0 $$ EIOSZ : 17 --> EIOSZ : 16 -1 -5 $$ ELAPSEDTIME : 59 --> ELAPSEDTIME : 55 -4 -6 $$ EMACHECKBITS : 187 --> EMACHECKBITS : 186 -1 0 $$ EMAFINDBITS : 89 --> EMAFINDBITS : 87 -2 -2 $$ EMAST : 54 --> EMAST : 49 -5 -9 $$ EXEC11TOMS : 67 --> EXEC11TOMS : 65 -2 -2 $$ FATTENMASK : 260 --> FATTENMASK : 259 -1 0 $$ FINDBITS : 89 --> FINDBITS : 87 -2 -2 $$ FINDDIGIT : 56 --> FINDDIGIT : 55 -1 -1 $$ FINDITEM : 66 --> FINDITEM : 65 -1 -1 $$ FMPACCESSDISC : 184 --> FMPACCESSDISC : 185 1 0 $$ FMPACCESSTIME : 15 --> FMPACCESSTIME : 37 22 146 $$ FMPASKDDOT : 134 --> FMPASKDDOT : 142 8 5 $$ FMPBUILDPATH : 202 --> FMPBUILDPATH : 201 -1 0 $$ FMPCLOSE : 61 --> FMPCLOSE : 64 3 4 $$ FMPCOPY : 1502 --> FMPCOPY : 1639 137 9 $$ FMPCREATETIME : 15 --> FMPCREATETIME : 37 22 146 $$ FMPDISCSIZE : 122 --> FMPDISCSIZE : 120 -2 -1 $$ FMPENDMASK : 17 --> FMPENDMASK : 16 -1 -5 $$ FMPEOF : 15 --> FMPEOF : 37 22 146 $$ FMPGETVALUE : 47 --> FMPGETVALUE : 50 3 6 $$ FMPINITMASK : 708 --> FMPINITMASK : 728 20 2 $$ FMPLIST : 54 --> FMPLIST : 53 -1 -1 $$ FMPLISTX : 788 --> FMPLISTX : 787 -1 0 $$ FMPMASKHEADER : 53 --> FMPMASKHEADER : 65 12 22 $$ FMPMASKPROT : 142 --> FMPMASKPROT : 141 -1 0 $$ FMPOPENSCRATCH : 260 --> FMPOPENSCRATCH : 248 -12 -4 $$ FMPOWNER : 241 --> FMPOWNER : 240 -1 0 $$ FMPPAGEDDEVWRITE: 46 --> FMPPAGEDDEVWRITE: 45 -1 -2 $$ FMPPAGEDWRITE : 54 --> FMPPAGEDWRITE : 53 -1 -1 $$ FMPPAGINATOR : 330 --> FMPPAGINATOR : 331 1 0 $$ FMPPARSEPATH : 203 --> FMPPARSEPATH : 201 -2 0 $$ FMPRECORDCOUNT : 15 --> FMPRECORDCOUNT : 37 22 146 $$ FMPRECORDLEN : 19 --> FMPRECORDLEN : 41 22 115 $$ FMPREWINDMASK : 41 --> FMPREWINDMASK : 40 -1 -2 $$ FMPRPPROGRAM : 469 --> FMPRPPROGRAM : 470 1 0 $$ FMPRUNPROGRAM : 480 --> FMPRUNPROGRAM : 479 -1 0 $$ FMPSETOWNER : 41 --> FMPSETOWNER : 29 -12 -29 $$ FMPSHORTNAME : 131 --> FMPSHORTNAME : 61 -70 -53 $$ FMPSIZE : 15 --> FMPSIZE : 37 22 146 $$ FMPUPDATETIME : 15 --> FMPUPDATETIME : 37 22 146 $$ FMPWORKINGDIR : 50 --> FMPWORKINGDIR : 67 17 34 $)MOVE ABS=90,1800  - 6.0 Communicator - $ 4-17 $1   Usage Considerations (92077A)   $ FREADDIR : 135 --> FREADDIR : 145 10 7 $$ FROMSYSESSION : 21 --> FROMSYSESSION : 20 -1 -4 $$ GETMYSONS : 163 --> GETMYSONS : 162 -1 0 $$ GETNEXTENT : 42 --> GETNEXTENT : 41 -1 -2 $$ GETOWNERNUM : 24 --> GETOWNERNUM : 23 -1 -4 $$ GETSN : 69 --> GETSN : 68 -1 -1 $$ HASHITEM : 56 --> HASHITEM : 55 -1 -1 $$ HPCRTGETCURSOR : 30 --> HPCRTGETCURSOR : 46 16 53 $$ HPCRTGETCURSORXY: 61 --> HPCRTGETCURSORXY: 48 -13 -21 $$ HPCRTREADCHAR : 64 --> HPCRTREADCHAR : 66 2 3 $$ HPCRTSTATUS : 53 --> HPCRTSTATUS : 51 -2 -3 $$ HPCRTXREADCHAR : 64 --> HPCRTXREADCHAR : 66 2 3 $$ HPZDICV : 91 --> HPZDICV : 85 -6 -6 $$ HPZHEXI : 53 --> HPZHEXI : 59 6 11 $$ HPZOCTD : 29 --> HPZOCTD : 30 1 3 $$ IFTTY : 30 --> IFTTY : 35 5 16 $$ LEGALLU : 35 --> LEGALLU : 34 -1 -2 $$ LKEMA : 40 --> LKEMA : 50 10 25 $$ MASKDCBTOLUTAB : 98 --> MASKDCBTOLUTAB : 97 -1 -1 $$ MASKDISCBPT : 13 --> MASKDISCBPT : 12 -1 -7 $$ MASKDISCLU : 25 --> MASKDISCLU : 38 13 52 $$ MASKDISCREAD : 69 --> MASKDISCREAD : 73 4 5 $$ MASKFILLBUF : 39 --> MASKFILLBUF : 38 -1 -2 $$ MASKMATCHLEVEL : 28 --> MASKMATCHLEVEL : 27 -1 -3 $$ MASKOLDFILE : 17 --> MASKOLDFILE : 16 -1 -5 $$ MASKOPENID : 90 --> MASKOPENID : 89 -1 -1 $$ MASKREADOK : 62 --> MASKREADOK : 61 -1 -1 $$ MASKSECURITY : 34 --> MASKSECURITY : 33 -1 -2 $$ MASKSETERROR : 27 --> MASKSETERROR : 26 -1 -3 $$ MEMBER : 356 --> MEMBER : 355 -1 0 $$ MMAP : 88 --> MMAP : 93 5 5 $$ NEWDIRREAD : 112 --> NEWDIRREAD : 111 -1 0 $$ NEXTCLASS : 31 --> NEXTCLASS : 30 -1 -3 $$ NEXTINCHAIN : 45 --> NEXTINCHAIN : 44 -1 -2 $$ NEXTITEM : 61 --> NEXTITEM : 59 -2 -3 $$ NEXTNEWLU : 90 --> NEXTNEWLU : 89 -1 -1 $$ NEXTOLDLU : 115 --> NEXTOLDLU : 114 -1 0 $$ OKASCII : 57 --> OKASCII : 56 -1 -1 $$ OLDDIROPEN : 91 --> OLDDIROPEN : 90 -1 -1 $$ OLDDIRREAD : 223 --> OLDDIRREAD : 222 -1 0 $$ OLDLUINFO : 74 --> OLDLUINFO : 73 -1 -1 $$ OTHERMATCH : 198 --> OTHERMATCH : 203 5 2 $$ OWNERTOID : 364 --> OWNERTOID : 373 9 2 $$ PERMANENTIDSEG : 22 --> PERMANENTIDSEG : 21 -1 -4 $$ POPDIR : 194 --> POPDIR : 199 5 2 $$ PROCESS_STRING : 265 --> PROCESS_STRING : 279 14 5 $$ PROGISSUPER : 29 --> PROGISSUPER : 52 23 79 $$ PROGRAMSID : 128 --> PROGRAMSID : 127 -1 0 $$ PUSHDIR : 387 --> PUSHDIR : 423 36 9 $$ SAVINGRESOURCES : 22 --> SAVINGRESOURCES : 21 -1 -4 $)MOVE ABS=90,1800  - 6.0 Communicator -  4-18 1   Usage Considerations (92077A)   $ SCANDIR : 40 --> SCANDIR : 41 1 2 $$ SECONDS : 88 --> SECONDS : 86 -2 -2 $$ SESSNTOOWNERNAME: 75 --> SESSNTOOWNERNAME: 74 -1 -1 $$ SETOWNERMASK : 148 --> SETOWNERMASK : 147 -1 0 $$ SETTM : 97 --> SETTM : 109 12 12 $$ SUPERUSER : 77 --> SUPERUSER : 76 -1 -1 $$ SYSTEMPROCESS : 21 --> SYSTEMPROCESS : 20 -1 -4 $$ TIMENOW : 28 --> TIMENOW : 26 -2 -7 $$ TM.. : 54 --> TM.. : 61 7 12 $$ VFNAM : 363 --> VFNAM : 362 -1 0 $$ VMAIO : 135 --> VMAIO : 133 -2 -1 $$ VMAREAD : 196 --> VMAREAD : 193 -3 -1 $$ VMAST : 35 --> VMAST : 80 45 128 $$ WILDCARDMASK : 235 --> WILDCARDMASK : 234 -1 0 $$ PSTVM : 118 --> ................: ..... -118 -100 $$ ----- ----- ----- ---- $$ 20065 38741 18676 93 $  # of size differences = 136  # of unique names: Rev.5270 = 1  Rev.6000 = 71  Total file size change = 18676  Total file % change = 15%  )MOVE ABS=90,1800  - 6.0 Communicator - $ 4-19 $1   Usage Considerations (92077A)    )SELECT CHARSET=9,1  4.5.11.4 BIGLB Size Differences (6.0 <-> 6.0)  )SELECT CHARSET=0,1   BIGLB Size Differences   w/o Symbolic Links w/ Symbolic Links # Rev.6000 Rev.6000 Difference #$ ----------------------- ----------------------- ----------- $$ Module Name Size Module Name Size Words % $$ ................: ..... --> SFMP : 1 1 100 $$ DIRENTMATCH : 72 --> DIRENTMATCH : 111 39 54 $$ FMPABSFNAME : 20 --> FMPABSFNAME : 154 134 670 $$ FMPABSNAME : 20 --> FMPAB((SNAME : 126 106 530 $$ FMPASKDDOT : 142 --> FMPASKDDOT : 174 32 22 $$ FMPCOPY : 1639 --> FMPCOPY : 1692 53 3 $$ FMPINITMASK : 728 --> FMPINITMASK : 794 66 9 $$ FMPMAKESLINK : 15 --> FMPMAKESLINK : 165 150 1000 $$ FMPNEXTMASK : 184 --> FMPNEXTMASK : 197 13 7 $$ FMPOPEN : 90 --> FMPOPEN : 109 19 21 $$ FMPOWNER : 240 --> FMPOWNER : 247 7 2 $$ FMPREADLINK : 15 --> FMPREADLINK : 72 57 380 $$ FMPRPPROGRAM : 470 --> FMPRPPROGRAM : 478 8 1 $$ FMPSYMLINK : 8 --> FMPSYMLINK : 9 1 12 $$ FREADDIR : 145 --> FREADDIR : 183 38 26 $$ MASKMATCHLEVEL : 27 --> MASKMATCHLEVEL : 86 59 218 $$ OTHERMATCH : 203 --> OTHERMATCH : 218 15 7 $$ POPDIR : 199 --> POPDIR : 295 96 48 $$ PUSHDIR : 423 --> PUSHDIR : 600 177 41 $$ FMP : 1 --> ................: ..... -1 -100 $$ ----- ----- ----- ---- $$ 4641 5711 1070 23 $  # of size differences = 18  # of unique names: Rev.5270 = 1  Rev.6000 = 1  Total file size change = 1070  Total file % change = 0%  )MOVE ABS=90,1800  - 6.0 Communicator -  4-20 1   Usage Considerations (92077A)    )SELECT CHARSET=9,1  4.5.11.5 BGCDS Data Size Differences (5.27 -> 6.0)  )SELECT CHARSET=0,1   BGCDS: Data Size Differences  # Rev.5270 Rev.6000 Difference #$ ----------------------- ----------------------- ----------- $$ Module Name Size Module Name Size Words % $$ ................: ..... --> /G_AREA/ : 0 0 100 $$ ................: ..... --> /LASTBUF/ : 0 0 100 $$ ................: ..... --> /LINE_WINDOW/ : 0 0 100 $$ ................: ..... --> ADDITEM : 0 0 100 $$ ................: ..... --> ALLOCATEMEM : 0 0 100 $$ ................: ..... --> CHANGEBITS : 0 0 100 $$ ................: ..... --> CHECKBITS : 0 0 100 $$ ................: ..... --> CLEAREMA : 1 1 100 $$ ................: ..... --> DAYTIME : 79 79 100 $$ ................: ..... --> DAYTIMENOW : 63 63 100 $$ ................: ..... --> DELETEITEM : 0 0 100 $$ ................: ..... --> DISCSIZE : 0 0 100 $$ ................: ..... --> ELAPSEDTIME : 1 1 100 $$ ................: ..... --> EMACHANGEBITS : 0 0 100 $$ ................: ..... --> EMACHECKBITS : 0 0 100 $$ ................: ..... --> EMAFINDBITS : 0 0 100 $$ ................: ..... --> EXEC11TOMS : 5 5 100 $$ ................: ..... --> FGETOPT : 51 51 100 $$ ................: ..... --> FINDBITS : 0 0 100 $$ ................: ..... --> FINDITEM : 0 0 100 $$ ................: ..... --> FMPABSFNAME : 0 0 100 $$ ................: ..... --> FMPABSNAME : 0 0 100 $$ ................: ..... --> FMPCOLUMNS : 10 10 100 $$ ................: ..... --> FMPDIRINFO : 6 6 100 $$ ................: ..... --> FMPLINES : 9 9 100 $$ ................: ..... --> FMPMAKESLINK : 0 0 100 $$ ................: ..... --> FMPREADLINK : 0 0 100 $$ ................: ..... --> FMPSYMLINK : 0 0 100 $$ ................: ..... --> FMPTEMPNAME : 9 9 100 $$ ................: ..... --> FREEMEM : 0 0 100 $$ ................: ..... --> GETGID : 0 0 100 $$ ................: ..... --> GETREDIRECTION : 14 14 100 $$ ................: ..... --> GREAD : 77 77 100 $$ ................: ..... --> HASHITEM : 0 0 100 $$ ................: ..... --> HPADD_NODE : 0 0 100 $$ ................: ..... --> HPBACKUPCURSOR : 3 3 100 $$ ................: ..... --> HPDELETEBUF : 2 2 100 $$ ................: ..... --> HPDISPLAYBUF : 11 11 100 $$ ................: ..... --> HPERASECHARS : 3 3 100 $$ ................: ..... --> HPEXPANDNAME : 20 20 100 $$ ................: ..... --> HPFIXUPPROMPT : 4 4 100 $$ ................: ..... --> HPGETAPARM : 3 3 100 $$ ................: ..... --> HPGETCURMASK : 4 4 100 $)MOVE ABS=90,1800  - 6.0 Communicator - $ 4-21 $1   Usage Considerations (92077A)   $ ................: ..... --> HPGETLASTPARM : 5 5 100 $$ ................: ..... --> HPGETLINE : 0 0 100 $$ ................: ..... --> HPHIGHEST_VALUE : 0 0 100 $$ ................: ..... --> HPINIT_TREE : 1 1 100 $$ ................: ..... --> HPINSERTBUF : 1 1 100 $$ ................: ..... --> HPLOWEST_VALUE : 0 0 100 $$ ................: ..... --> HPNEXTWORD : 7 7 100 $$ ................: ..... --> HPNEXT_NODE : 0 0 100 $$ ................: ..... --> HPNEXT_PTR : 0 0 100 $$ ................: ..... --> HPPREVWORD : 7 7 100 $$ ................: ..... --> HPPREV_NODE : 0 0 100 $$ ................: ..... --> HPPREV_PTR : 0 0 100 $$ ................: ..... --> HPPROC_CMD : 2 2 100 $$ ................: ..... --> HPSEARCHHISTORY : 12 12 100 $$ ................: ..... --> HPSTRIPREDIR : 9 9 100 $$ ................: ..... --> HPTREE_PTR : 0 0 100 $$ ................: ..... --> INITMEM : 0 0 100 $$ ................: ..... --> MASKGETDIRENT : 12 12 100 $$ ................: ..... --> MASKISDS : 0 0 100 $$ ................: ..... --> MASKWRITEOK : 0 0 100 $$ ................: ..... --> MOVE2 : 0 0 100 $$ ................: ..... --> MOVEFROMEMA : 1 1 100 $$ ................: ..... --> NEXTCLASS : 0 0 100 $$ ................: ..... --> NEXTINCHAIN : 0 0 100 $$ ................: ..... --> NEXTITEM : 0 0 100 $$ ................: ..... --> NUMERICTIME : 33 33 100 $$ ................: ..... --> OKASCII : 1 1 100 $$ ................: ..... --> REXADDSET : 0 0 100 $$ ................: ..... --> REXALPHANBR : 6 6 100 $$ ................: ..... --> REXAMATCH : 0 0 100 $$ ................: ..... --> REXBREAKLINE : 0 0 100 $$ ................: ..... --> REXBUILDCLASS : 9 9 100 $$ ................: ..... --> REXBUILDCLOSURE : 2 2 100 $$ ................: ..... --> REXBUILDPATTERN : 17 17 100 $$ ................: ..... --> REXBUILDSUBST : 6 6 100 $$ ................: ..... --> REXCATNEWCHAR : 0 0 100 $$ ................: ..... --> REXCATNEWXCG : 5 5 100 $$ ................: ..... --> REXCLASSMEMBER : 0 0 100 $$ ................: ..... --> REXCTOI : 12 12 100 $$ ................: ..... --> REXESC : 3 3 100 $$ ................: ..... --> REXEXCHANGE : 2 2 100 $$ ................: ..... --> REXFILLCLASS : 12 12 100 $$ ................: ..... --> REXGETCHAR : 0 0 100 $$ ................: ..... --> REXMATCH : 2 2 100 $$ ................: ..... --> REXOMATCH : 0 0 100 $$ ................: ..... --> REXPATTERNSZ : 0 0 100 $$ ................: ..... --> REXSUFFIXOK : 0 0 100 $$ ................: ..... --> RTEALLOCSHEMA : 14 14 100 $$ ................: ..... --> RTEPRIMESHINFO : 0 0 100 $$ ................: ..... --> RTERENAMESHEMA : 13 13 100 $)MOVE ABS=90,1800  - 6.0 Communicator -  4-22 1   Usage Considerations (92077A)   $ ................: ..... --> RTERETURNSHEMA : 0 0 100 $$ ................: ..... --> RTESHELLREAD : 17 17 100 $$ ................: ..... --> SECONDS : 6 6 100 $$ ................: ..... --> TIMENOW : 1 1 100 $$ ................: ..... --> VI_EDIT : 48 48 100 $$ FMPACCESSTIME : 1 --> FMPACCESSTIME : 2 1 100 $$ FMPCOPY : 67 --> FMPCOPY : 81 14 20 $$ FMPCREATETIME : 1 --> FMPCREATE((TIME : 2 1 100 $$ FMPEOF : 1 --> FMPEOF : 2 1 100 $$ FMPRECORDCOUNT : 1 --> FMPRECORDCOUNT : 2 1 100 $$ FMPRECORDLEN : 1 --> FMPRECORDLEN : 2 1 100 $$ FMPSHORTNAME : 1 --> FMPSHORTNAME : 5 4 400 $$ FMPSIZE : 1 --> FMPSIZE : 2 1 100 $$ FMPUPDATETIME : 1 --> FMPUPDATETIME : 2 1 100 $$ FMPWORKINGDIR : 8 --> FMPWORKINGDIR : 7 -1 -12 $$ GETRESETINFO : 20 --> GETRESETINFO : 18 -2 -10 $$ GROUPTOID : 17 --> GROUPTOID : 18 1 5 $$ IDTOGROUP : 31 --> IDTOGROUP : 32 1 3 $$ IDTOOWNER : 26 --> IDTOOWNER : 27 1 3 $$ MUSECCHK : 54 --> MUSECCHK : 33 -21 -38 $$ OPEN_FILE : 40 --> OPEN_FILE : 39 -1 -2 $$ OWNERTOID : 38 --> OWNERTOID : 43 5 13 $$ PREENTMATCH : 16 --> PREENTMATCH : 17 1 6 $$ PROCESSGRPNAME : 13 --> PROCESSGRPNAME : 12 -1 -7 $$ ----- ----- ----- ---- $$ 338 987 649 192 $  # of size differences = 19  # of unique names: Rev.5270 = 0  Rev.6000 = 98  Total file size change = 649  Total file % change = 21%    )SELECT CHARSET=9,1  4.5.11.6 BGCDS Code Size Differences (5.27 -> 6.0)  )SELECT CHARSET=0,1   BGCDS: Code Size Differences  # Rev.5270 Rev.6000 Difference #$ ----------------------- ----------------------- ----------- $$ Module Name Size Module Name Size Words % $$ ................: ..... --> /G_AREA/ : 0 0 100 $$ ................: ..... --> /LASTBUF/ : 0 0 100 $$ ................: ..... --> /LINE_WINDOW/ : 0 0 100 $$ ................: ..... --> ADDITEM : 76 76 100 $$ ................: ..... --> ALLOCATEMEM : 63 63 100 $$ ................: ..... --> CHANGEBITS : 178 178 100 $$ ................: ..... --> CHECKBITS : 154 154 100 $$ ................: ..... --> CLEAREMA : 62 62 100 $$ ................: ..... --> DAYTIME : 242 242 100 $)MOVE ABS=90,1800  - 6.0 Communicator - $ 4-23 $1   Usage Considerations (92077A)   $ ................: ..... --> DAYTIMENOW : 191 191 100 $$ ................: ..... --> DELETEITEM : 85 85 100 $$ ................: ..... --> DISCSIZE : 22 22 100 $$ ................: ..... --> ELAPSEDTIME : 62 62 100 $$ ................: ..... --> EMACHANGEBITS : 217 217 100 $$ ................: ..... --> EMACHECKBITS : 189 189 100 $$ ................: ..... --> EMAFINDBITS : 86 86 100 $$ ................: ..... --> EXEC11TOMS : 63 63 100 $$ ................: ..... --> FGETOPT : 481 481 100 $$ ................: ..... --> FINDBITS : 84 84 100 $$ ................: ..... --> FINDITEM : 68 68 100 $$ ................: ..... --> FMPABSFNAME : 25 25 100 $$ ................: ..... --> FMPABSNAME : 24 24 100 $$ ................: ..... --> FMPCOLUMNS : 57 57 100 $$ ................: ..... --> FMPDIRINFO : 70 70 100 $$ ................: ..... --> FMPLINES : 56 56 100 $$ ................: ..... --> FMPMAKESLINK : 22 22 100 $$ ................: ..... --> FMPREADLINK : 22 22 100 $$ ................: ..... --> FMPSYMLINK : 19 19 100 $$ ................: ..... --> FMPTEMPNAME : 146 146 100 $$ ................: ..... --> FREEMEM : 95 95 100 $$ ................: ..... --> GETGID : 35 35 100 $$ ................: ..... --> GETREDIRECTION : 318 318 100 $$ ................: ..... --> GREAD : 2513 2513 100 $$ ................: ..... --> HASHITEM : 58 58 100 $$ ................: ..... --> HPADD_NODE : 699 699 100 $$ ................: ..... --> HPBACKUPCURSOR : 72 72 100 $$ ................: ..... --> HPDELETEBUF : 70 70 100 $$ ................: ..... --> HPDISPLAYBUF : 216 216 100 $$ ................: ..... --> HPERASECHARS : 71 71 100 $$ ................: ..... --> HPEXPANDNAME : 213 213 100 $$ ................: ..... --> HPFIXUPPROMPT : 792 792 100 $$ ................: ..... --> HPGETAPARM : 224 224 100 $$ ................: ..... --> HPGETCURMASK : 256 256 100 $$ ................: ..... --> HPGETLASTPARM : 132 132 100 $$ ................: ..... --> HPGETLINE : 89 89 100 $$ ................: ..... --> HPHIGHEST_VALUE : 64 64 100 $$ ................: ..... --> HPINIT_TREE : 57 57 100 $$ ................: ..... --> HPINSERTBUF : 76 76 100 $$ ................: ..... --> HPLOWEST_VALUE : 63 63 100 $$ ................: ..... --> HPNEXTWORD : 209 209 100 $$ ................: ..... --> HPNEXT_NODE : 106 106 100 $$ ................: ..... --> HPNEXT_PTR : 83 83 100 $$ ................: ..... --> HPPREVWORD : 210 210 100 $$ ................: ..... --> HPPREV_NODE : 100 100 100 $$ ................: ..... --> HPPREV_PTR : 83 83 100 $$ ................: ..... --> HPPROC_CMD : 102 102 100 $$ ................: ..... --> HPSEARCHHISTORY : 348 348 100 $$ ................: ..... --> HPSTRIPREDIR : 275 275 100 $$ ................: ..... --> HPTREE_PTR : 137 137 100 $)MOVE ABS=90,1800  - 6.0 Communicator -  4-24 1   Usage Considerations (92077A)   $ ................: ..... --> INITMEM : 27 27 100 $$ ................: ..... --> MASKGETDIRENT : 144 144 100 $$ ................: ..... --> MASKISDS : 45 45 100 $$ ................: ..... --> MASKWRITEOK : 59 59 100 $$ ................: ..... --> MOVE2 : 19 19 100 $$ ................: ..... --> MOVEFROMEMA : 110 110 100 $$ ................: ..... --> NEXTCLASS : 38 38 100 $$ ................: ..... --> NEXTINCHAIN : 49 49 100 $$ ................: ..... --> NEXTITEM : 65 65 100 $$ ................: ..... --> NUMERICTIME : 202 202 100 $$ ................: ..... --> OKASCII : 64 64 100 $$ ................: ..... --> REXADDSET : 37 37 100 $$ ................: ..... --> REXALPHANBR : 65 65 100 $$ ................: ..... --> REXAMATCH : 225 225 100 $$ ................: ..... --> REXBREAKLINE : 22 22 100 $$ ................: ..... --> REXBUILDCLASS : 128 128 100 $$ ................: ..... --> REXBUILDCLOSURE : 76 76 100 $$ ................: ..... --> REXBUILDPATTERN : 569 569 100 $$ ................: ..... --> REXBUILDSUBST : 227 227 100 $$ ................: ..... --> REXCATNEWCHAR : 63 63 100 $$ ................: ..... --> REXCATNEWXCG : 212 212 100 $$ ................: ..... --> REXCLASSMEMBER : 81 81 100 $$ ................: ..... --> REXCTOI : 158 158 100 $$ ................: ..... --> REXESC : 79 79 100 $$ ................: ..... --> REXEXCHANGE : 153 153 100 $$ ................: ..... --> REXFILLCLASS : 171 171 100 $$ ................: ..... --> REXGETCHAR : 51 51 100 $$ ................: ..... --> REXMATCH : 76 76 100 $$ ................: ..... --> REXOMATCH : 178 178 100 $$ ................: ..... --> REXPATTERNSZ : 102 102 100 $$ ................: ..... --> REXSUFFIXOK : 48 48 100 $$ ................: ..... --> RTEALLOCSHEMA : 683 683 100 $$ ................: ..... --> RTEPRIMESHINFO : 50 50 100 $$ ................: ..... --> RTERENAMESHEMA : 121 121 100 $$ ................: ..... --> RTERETURNSHEMA : 285 285 100 $$ ................: ..... --> RTESHELLREAD : 186 186 100 $$ ................: ..... --> SECONDS : 80 80 100 $$ ................: ..... --> TIMENOW : 30 30 100 $$ ................: ..... --> VI_EDIT : 2756 2756 100 $$ CLGOF : 237 --> CLGOF : 228 -9 -3 $$ CLGON : 121 --> CLGON : 118 -3 -2 $$ DIRENTMATCH : 72 --> DIRENTMATCH : 76 4 5 $$ DISCRW : 201 --> DISCRW : 198 -3 -1 $$ FMPACCESSDISC : 165 --> FMPACCESSDI((SC : 167 2 1 $$ FMPACCESSTIME : 26 --> FMPACCESSTIME : 40 14 53 $$ FMPASKDDOT : 119 --> FMPASKDDOT : 125 6 5 $$ FMPCLOSE : 64 --> FMPCLOSE : 67 3 4 $$ FMPCOPY : 1503 --> FMPCOPY : 1759 256 17 $$ FMPCREATETIME : 26 --> FMPCREATETIME : 40 14 53 $$ FMPDISCSIZE : 114 --> FMPDISCSIZE : 111 -3 -2 $)MOVE ABS=90,1800  - 6.0 Communicator - $ 4-25 $1   Usage Considerations (92077A)   $ FMPEOF : 22 --> FMPEOF : 36 14 63 $$ FMPGETVALUE : 55 --> FMPGETVALUE : 57 2 3 $$ FMPINITMASK : 750 --> FMPINITMASK : 781 31 4 $$ FMPMASKHEADER : 55 --> FMPMASKHEADER : 69 14 25 $$ FMPNEXTMASK : 198 --> FMPNEXTMASK : 199 1 0 $$ FMPOPENSCRATCH : 244 --> FMPOPENSCRATCH : 236 -8 -3 $$ FMPPAGINATOR : 315 --> FMPPAGINATOR : 318 3 0 $$ FMPRECORDCOUNT : 26 --> FMPRECORDCOUNT : 40 14 53 $$ FMPRECORDLEN : 27 --> FMPRECORDLEN : 41 14 51 $$ FMPRPPROGRAM : 483 --> FMPRPPROGRAM : 485 2 0 $$ FMPSETOWNER : 44 --> FMPSETOWNER : 36 -8 -18 $$ FMPSHORTNAME : 96 --> FMPSHORTNAME : 72 -24 -25 $$ FMPSIZE : 23 --> FMPSIZE : 37 14 60 $$ FMPUPDATETIME : 26 --> FMPUPDATETIME : 40 14 53 $$ FMPWORKINGDIR : 59 --> FMPWORKINGDIR : 72 13 22 $$ FREADDIR : 131 --> FREADDIR : 138 7 5 $$ MASKDISCLU : 30 --> MASKDISCLU : 43 13 43 $$ MASKDISCREAD : 75 --> MASKDISCREAD : 79 4 5 $$ MASKGETNEXTENT : 152 --> MASKGETNEXTENT : 153 1 0 $$ MUSECCHK : 232 --> MUSECCHK : 259 27 11 $$ OTHERMATCH : 189 --> OTHERMATCH : 194 5 2 $$ OWNERTOID : 349 --> OWNERTOID : 354 5 1 $$ POPDIR : 194 --> POPDIR : 196 2 1 $$ PROCESS_STRING : 230 --> PROCESS_STRING : 244 14 6 $$ PUSHDIR : 382 --> PUSHDIR : 416 34 8 $$ SCANDIR : 48 --> SCANDIR : 49 1 2 $$ VMAREAD : 171 --> VMAREAD : 169 -2 -1 $$ ----- ----- ----- ---- $$ 7254 26006 18752 258 $  # of size differences = 38  # of unique names: Rev.5270 = 0  Rev.6000 = 98  Total file size change = 18752  Total file % change = 49%  )MOVE ABS=90,1800  - 6.0 Communicator -  4-26 1   Usage Considerations (92077A)    )SELECT CHARSET=9,1  4.5.11.7 BGCDS Data Size Differences (6.0 <-> 6.0)  )SELECT CHARSET=0,1   BGCDS: Data Size Differences   w/o Symbolic Links w/ Symbolic Links # Rev.6000 Rev.6000 Difference #$ ----------------------- ----------------------- ----------- $$ Module Name Size Module Name Size Words % $$ FMPABSFNAME : 0 --> FMPABSFNAME : 1 1 100 $$ FMPABSNAME : 0 --> FMPABSNAME : 2 2 100 $$ FMPASKDDOT : 11 --> FMPASKDDOT : 12 1 9 $$ FMPINITMASK : 70 --> FMPINITMASK : 74 4 5 $$ FMPMAKESLINK : 0 --> FMPMAKESLINK : 11 11 100 $$ FMPOPEN : 7 --> FMPOPEN : 8 1 14 $$ FMPREADLINK : 0 --> FMPREADLINK : 6 6 100 $$ GETRESETINFO : 18 --> GETRESETINFO : 20 2 11 $$ GROUPTOID : 18 --> GROUPTOID : 17 -1 -5 $$ IDTOGROUP : 32 --> IDTOGROUP : 31 -1 -3 $$ IDTOOWNER : 27 --> IDTOOWNER : 26 -1 -3 $$ MUSECCHK : 33 --> MUSECCHK : 54 21 63 $$ OPEN_FILE : 39 --> OPEN_FILE : 40 1 2 $$ OWNERTOID : 43 --> OWNERTOID : 38 -5 -11 $$ PROCESSGRPNAME : 12 --> PROCESSGRPNAME : 13 1 8 $$ PUSHDIR : 8 --> PUSHDIR : 21 13 162 $$ GETGID : 0 --> ................: ..... 0 -100 $$ ----- ----- ----- ---- $$ 318 374 56 17 $  # of size differences = 16  # of unique names: Rev.5270 = 1  Rev.6000 = 0  Total file size change = 56  Total file % change = 1%    )SELECT CHARSET=9,1  4.5.11.8 BGCDS Code Size Differences (6.0 <-> 6.0)  )SELECT CHARSET=0,1   BGCDS: Code Size Differences   w/o Symbolic Links w/ Symbolic Links # Rev.6000 Rev.6000 Difference #$ ----------------------- ----------------------- ----------- $$ Module Name Size Module Name Size Words % $$ CLGOF : 228 --> CLGOF : 237 9 3 $$ CLGON : 118 --> CLGON : 121 3 2 $$ DIRENTMATCH : 76 --> DIRENTMATCH : 111 35 46 $$ FMPABSFNAME : 25 --> FMPABSFNAME : 149 124 496 $$ FMPABSNAME : 24 --> FMPABSNAME : 109 85 354 $$ FMPASKDDOT : 125 --> FMPASKDDOT : 156 31 24 $$ FMPCOPY : 1759 --> FMPCOPY : 1826 67 3 $)MOVE ABS=90,1800  - 6.0 Communicator - $ 4-27 $1   Usage Considerations (92077A)   $ FMPINITMASK : 781 --> FMPINITMASK : 851 70 8 $$ FMPMAKESLINK : 22 --> FMPMAKESLINK : 115 93 422 $$ FMPNEXTMASK : 199 --> FMPNEXTMASK : 211 12 6 $$ FMPOPEN : 95 --> FMPOPEN : 108 13 13 $$ FMPOWNER : 194 --> FMPOWNER : 201 7 3 $$ FMPREADLINK : 22 --> FMPREADLINK : 68 46 209 $$ FMPRPPROGRAM : 485 --> FMPRPPROGRAM : 493 8 1 $$ FREADDIR : 138 --> FREADDIR : 175 37 26 $$ MASKMATCHLEVEL : 35 --> MASKMATCHLEVEL : 86 51 145 $$ MUSECCHK : 259 --> MUSECCHK : 232 -27 -10 $$ OTHERMATCH : 194 --> OTHERMATCH : 209 15 7 $$ OWNERTOID : 354 --> OWNERTOID : 349 -5 -1 $$ POPDIR : 196 --> POPDIR : 292 96 48 $$ PUSHDIR : 416 --> PUSHDIR : 588 172 41 $$ GETGID : 35 --> ................: ..... -35 -100 $$ ----- ----- ----- ---- $$ 5780 6687 907 15 $  # of size differences = 21  # of unique names: Rev.5270 = 1  Rev.6000 = 0  Total file size change = 907  Total file % change = 1%  )MOVE ABS=90,1800  - 6.0 Communicator -  4-28 1   Usage Considerations (92077A)    )SELECT CHARSET=11,1 4.6 (92078A) VC+ )SELECT CHARSET=0,1     )SELECT CHARSET=10,1  4.6.1 CI Enhancements  )SELECT CHARSET=0,1  ( There have been many changes to the CDS version of CI at 6.0, summarized (( below. Please refer to the RTE-A User's Manual for details on the new ( functionality.   )SELECT CHARSET=9,1  4.6.1.1 Load File Name Changes  )SELECT CHARSET=0,1  ( Two load file names have changed at 6.0: #CI is now CINC.LOD, and #CIC is ( now CI.LOD.   )SELECT CHARSET=9,1  4.6.1.2 Command Aliases  )SELECT CHARSET=0,1  ( Command aliasing has been implemented in VC+ at the 6.0 release. This (( allows a user to create new commands or cause standard commands to perform (( differently by replacing the original command with a new command: an (( alias. The new command can be a letter or a short word that, when typed, (( will be expanded by CI into the alias value. Anything that followed the (! alias in the original line now follows the expanded value. !  )SELECT CHARSET=9,1 4.6.1.3 Functions )SELECT CHARSET=0,1  ( Functions are similar to aliases. They can be thought of as (( memory-resident command files. Functions can include positional (( parameters and IF-THEN-ELSE or WHILE-DO-DONE constructs. They can be ( entered interactively from CI or via a CI command file.   )SELECT CHARSET=9,1  4.6.1.4 Exporting Variables, Aliases, and Functions  )SELECT CHARSET=0,1  ( At 6.0, users will be able to use CI's user variables in other pro((grams, (( along with any defined aliases or functions, by exporting them to the (( Environment Variable Block (EVB). The syntax for SET has changed to allow (( for this capability. Individual exported variables can be accessed (( programmatically using the new EXEC(39) calls. (See the RTE-A (( Programmer's Reference Manual for more detail on these EXEC calls.) Note (( that the EVB uses dynamic memory and is non-swappable until the session ( logs off.   )SELECT CHARSET=9,1  4.6.1.5 New CI Variables  )SELECT CHARSET=0,1  ( The following variables are now predefined by CI: $COLUMNS, $DATC, (( $EVB_SIZE, $HOME, $KILLCHAR, $IFDVR, $LINES, and $OLDPWD. In addition, (( $KILLCHAR, $REPROMPT, and $VISUAL are initially undefined, but once (( defined have significance to CI. The following variables are (( automatically exported on start-up: $COLUMNS, $LINES, $HOME, $OLDPWD, and (( $WD. The last three variables must remain exported. $PROMPT can now have ()MOVE ABS=90,1800  - 6.0 Communicator - $ 4-29 $1   Usage Considerations (92078A)    a value of up to 78 characters.   )SELECT CHARSET=9,1 4.6.1.6 CZ )SELECT CHARSET=0,1   ( The previous VC+ command CD, used to display or modify CDS code partition (( size, has been renamed to CZ to accommodate users who need this ( functionality.   )SELECT CHARSET=9,1  4.6.1.7 Tilde Expansion  )SELECT CHARSET=0,1  ( Tilde substitution involves substituting values of certain variables for (( the character "~" in a file name. A "~" by itself is replaced with the (( value of $HOME. "~+" is replaced with the value of $WD. "~-" is replaced (( with the value of $OLDPWD. In order for a ~string to be expanded, it must (( occur at the beginning of a parameter; also, it must either be at the end ( of the parameter or be followed by a "/".   )SELECT CHARSET=9,1  4.6.1.8 Command Line Editing  )SELECT CHARSET=0,1  ( By setting the $VISUAL CI variable, you can select the desired command (( line editing mode. The supported modes are EMACS, GMACS, VI, and CSH. (( The EMACS, GMACS, and VI modes enable command editing functions much (( like the HP-UX ksh program. Setting $VISUAL to CSH enables a mode (( that provides some of the editing features of the HP-UX csh program. (( In the CSH mode, only the file name completion, command line directory (( lists, and command line control functions are available. The ( csh-style history substitutions are not available.  ( While editing the current line, the $VISUAL editing mode allows you to (( edit lines that are longer than your current screen width by scrolling (( through the line. For lines that are longer than the current screen (& width, the following symbols are displayed at the end of the line: &  > indicates that the line extends to the right.  < indicates that the line extends to the left.  * indicates that the line extends in both directions.  ( The current line is centered around the cursor as the cursor moves (( across the line. The default "viewing" width is 80 characters. Use ( the $COLUMNS variable to redefine the width.  ( Setting $VISUAL to EMACS, GMACS, VI, or CSH also has an effect on the (( functionality of the RTE command stack. By default, the RTE command (( stack routines do not insert duplicate lines in the stack. When (( setting $VISUAL, duplicate lines are allowed in the stack. To (( override this behavior, a ",NODUPES" can be added to the visual mode. (( For example, to use the VI editing mode without saving duplicate lines ( in the command stack, set $VISUAL to "VI,NODUPES". )MOVE ABS=90,1800  - 6.0 Communicator -  4-30 1   Usage Considerations (92078A)   ( The use of the $VISUAL editing modes is only supported when used with (( the HP 12040D 8-Channel MUX, the HP 12100A 4-Channel OBIO, or with a (( telnet psuedo terminal LU. FIFO mode is required when using the (( command editing features. When a port is not already in FIFO mode and (( command editing is enabled, the port will be reconfigured to enable (( FIFO mode after each prompt is issued. After the command line is (( terminated with the RETURN key, the previous state of the port is ( restored.    )SELECT CHARSET=9,1  4.6.1.9 Command Editing Performance Considerations  )SELECT CHARSET=0,1   ( For optimal performance when using command editing, the port should be (' configured to use FIFO mode and XON/XOFF handshaking. For example, ' ( CI> cn,$session,33b,100000b ! enable FIFO CI> (' cn,$session,34b,101b ! enable XON/XOFF Protocol (Force type 5) ' ( When using XON/XOFF, the port must be in FIFO mode and the terminal's (( "G" (inhibit handshake) and "H" (inhibit DC2) straps must be set to (( allow the use of the standard RTE command stack and also the Edit/1000 ( screen mode function.  ( The required monitor program CMPLT should also be RP'ed and executed ( without wait in your WELCOME file as follows:   rp,/programs/cmplt.run  xq,cmplt  ( The CMPLT program performs the file name/command completion and the (( command line directory lists for the various command line editing (( modes. When a file name completion is requested, CMPLT is scheduled (( by CI to complete the file name. If CMPLT is already busy with (( another request, the system clones a copy of CMPLT for your request. (( To disable cloning, CMPLT can be linked as a system utility. In this ($ case, when it is busy, the system will queue schedule CMPLT. $ ( It is preferable to RP CMPLT as a permanent ID segment rather than a (( proto-id segment. When CMPLT is RP'ed as a permanent program and (( executed, it detaches into the system session and terminates serially (( reusable. Performance on global directory name completions or global (( directory lists is enhanced because CMPLT keeps a cache of the global (( directory names. When CMPLT is not RP'ed as a permanent program, the ( benefits of this cache are lost.   )SELECT CHARSET=9,1  4.6.1.10 File Name and Command Name Completion  )SELECT CHARSET=0,1  ( In addition to command line editing, the new features at 6.0 allow file (( name and command name completion. The user types enough of the name to be ()MOVE ABS=90,1800  - 6.0 Communicator - $ 4-31 $1   Usage Considerations (92078A)   ( unique, and CI fills in the rest. If the amount typed is not unique, the (( file or command name will be completed up to the point where the names ( differ.  ( If a name is the first word typed in a CI command line, command name (" completion is used; otherwise, file name completion is used. "   )SELECT CHARSET=10,1  4.6.2 Symbolic Links  )SELECT CHARSET=0,1  ( The ability to use symbolic links is now part of the RTE-A/VC+ operating (( system. A symbolic link is a type of file that indirectly refers to a (( path name, which can be either a relative or an absolute path name. A (( symbolic link can refer to any FMP file, FMP directory, or logical unit. (( Symbolic links can also be used to refer to remote files by using the DS (( transparency syntax. At revision 6.0, WHOSD will report all users of the (( specified LU, directory, or file. WHOSD will now also report open files ( and active programs.     )SELECT CHARSET=11,1  4.7 (92084A) RTE-6/VM Operating System  )SELECT CHARSET=0,1  ( New functionality has been added to the RTE-6/VM product at the 6.0 ( release. A summary is below.    )SELECT CHARSET=10,1  4.7.1 CI Enhancements  )SELECT CHARSET=0,1    )SELECT CHARSET=9,1  4.7.1.1 New CI Variables  )SELECT CHARSET=0,1  ( The following variables are now predefined by CI: $DATC, $HOME, and (# $OLDPWD. $PROMPT can now have a value of up to 78 characters. #   )SELECT CHARSET=10,1 4.7.2 PWD )SELECT CHARSET=0,1    )SELECT CHARSET=9,1  4.7.2.1 Path Working Directory  )SELECT CHARSET=0,1  ( A new command, PWD, has been added at 6.0. PWD displays the current ( working directory, similar to the pwd command in UN*X.    )SELECT CHARSET=10,1  4.7.3 CD  )SELECT CHARSET=0,1  )MOVE ABS=90,1800  )SELECT CHARSET=0,1  - 6.0 Communicator -  (( 4-32 1   Usage Considerations (92084A)  )SELECT CHARSET=9,1    )SELECT CHARSET=9,1  4.7.3.1 Change Directory  )SELECT CHARSET=0,1  ( The CD command can take either of two forms. In the first form, it (( changes the current directory to "argument". If "argument" is '-' the (( directory is changed to the previous directory ($OLDPWD). The default ( for "argument" is the value of the $HOME variable.  ( The second form of cd substitutes the string "new" for the string "old" (( in the current directory name, $WD, and tries to change to this new ( directory.    )SELECT CHARSET=10,1 4.7.4 WHOSD )SELECT CHARSET=0,1    )SELECT CHARSET=9,1  4.7.4.1 Report Users of Directory  )SELECT CHARSET=0,1  ( At revision 6.0, WHOSD will report all users of the specified LU, (( directory, or file. WHOSD will now also report open files and active ( programs.    )SELECT CHARSET=10,1 4.7.5 CALLS )SELECT CHARSET=0,1    )SELECT CHARSET=9,1  4.7.5.1 Online Help Facility  )SELECT CHARSET=0,1  ( The Calls utility provides a general-purpose help facility, used either as (( a help subsystem for other programs or as the interface to a "database" of (( information grouped by keywords. Calls looks up keywords entered by the (( user in a catalog containing definitions of keywords and associated text, (( displaying that text. Additionally, the catalog can specify hierarchical (( groupings of keywords and can suggest related keywords that may be of ($ further interest after the text for a certain keyword is viewed. $  The runstring syntax is:   Calls [-flags] [keyword]   where  ' flags is a string of characters preceded by a dash (-). Where an '% argument is required, the next word in the runstring is %& consumed, delimited by blanks or a comma. The flags are: &  C catalog  $ The name of the Calls catalog to use. By default, $$ directory "/Catalogs/" and type extension ".call" $$ are added to the given name. The default catalog $)MOVE ABS=90,1800  - 6.0 Communicator - $ 4-33 $1   Usage Considerations (92084A)    is "/Catalogs/Calls.call".   L listfile  " Divert the text listing to the named file. By "! default the text is listed to the terminal. !  P pagesize  " Set the number of lines per page for "More..." "# prompting on the terminal. The default size is # 22 lines.   B  ! Build the index file and terminate. See the ! discussion below on index files.   & keyword is the keyword for which the associated text is to be &# listed. If not given, then the default keyword #$ ("[default]") for the selected catalog is listed. $ ( For example, "calls -c utils -p 5" and "calls -cp utils 5" both use ( catalog "/Catalogs/Utils.call" and five lines per page.  ( At certain times Calls may prompt you to select another topic to display ( with:  ! Put cursor on desired name or type new name, press return. ! ( This occurs when no topic keyword is given in the runstring, or when a (( mask is given. This also occurs when the topic selected has other topics ( associated with it, which you may want to also read.  ( When you press carriage return, Calls reads the line under the cursor from (( the screen, isolates the word under or to the left of the cursor, and uses (( that word as the new topic name. If there is no word to the left or under (( the cursor, Calls looks to the right of the cursor. If there is no word (( on the line at all, Calls terminates. Calls isolates the word by looking (( for blanks, commas or ')'s. To terminate Calls, type carriage return on a ( blank line.  ( If an unknown keyword is given, Calls lists the 16 keywords in (( ASCII-betical sequence around the given keyword, and then goes interactive ( as above.  ( The catalog is a text file, possibly compressed by the CallM utility, (( which acts as a data base containing keywords and explanatory text. The (( default catalog name is actually based on the name by which Calls is ()MOVE ABS=90,1800  - 6.0 Communicator -  4-34 1   Usage Considerations (92084A)   ( scheduled (that is, the second word in the received runstring). If Calls (( is RP'ed under a different name or the .RUN file is renamed, the new name (( becomes the default catalog name for that copy. For example, "rp calls (( utils" and then executing UTILS uses default file "/Catalogs/Utils.call". ( ( The first time Calls is run on a catalog and after subsequent updates of (( the catalog, Calls builds a file called the index file in the same (( directory and with the same name as the catalog, but with type extension (( ".indx". More specifically, if the index file is missing or has an update (( timestamp that is older than the corresponding catalog, Calls rebuilds the (( index file. Calls will also attempt to rebuild the index if it appears (( that the index is invalid for the catalog, even if the update timestamps (( are in order. The index contains FMP internal file position pointers into (( the catalog file for the various topics, plus the keyword list and (( associated topic groupings. This means that the first person to run Calls (( on a catalog after an update must have write access into the catalog (( directory for the index file to be successfully created. It is suggested (( that the system manager installing a new catalog immediately run Calls on ( the catalog with the "-b" option to build the index.  ( Calls catalog files may be plain text files in the format given below, but (( more commonly the final catalog is built by the CallM utility, which (( merges together plain text files and performs text compression on the (( result. Additionally, CallM can extract Calls catalogs from comments in (( source code. Enter "? callm" from CI for more information about the ( CallM utility.    )SELECT CHARSET=10,1  4.7.6 Manual Updates  )SELECT CHARSET=0,1  ( The manuals for the 6.0 update will be distributed at a later date. The (( manual numbering file, M92084, that is currently shipped with the product (( reflects the last manual update. A new manual numbering file with the (( correct manual information (along with an update sheet for Chapter 3 of ( the Communicator) will be provided with the 6.0 manuals. )MOVE ABS=90,1800  - 6.0 Communicator - $ 4-35 $1   Usage Considerations (92084A)    )SELECT CHARSET=10,1 4.7.7 Size Changes )SELECT CHARSET=0,1  ( As an aid for your software development efforts, the size differences are (( listed here from the last update in the operating system modules and (( system libraries. Dots are place-holders, meaning that the module did not (( exist at that release. The percentage difference reported on the last row ((+ of the table is the average percentage change of those modules that have ( _____ ( been changed. There is a summary following the table. The (( "# of size differences =" is the number of modules that existed in the (( 5.27 release and have changed in size. The (( "# of unique names: Rev.5270 =" line is the number of modules that existed (( in the 5.27 release and have been deleted at 6.0 release. The (( "# of unique names: Rev.6000 =" line is the number of modules that are new ( for the 6.0 release.    )SELECT CHARSET=9,1  4.7.7.1 Operating System Size Differences  )SELECT CHARSET=0,1   ' There are no size changes in the Operating System for the 6.0 release. '   )SELECT CHARSET=9,1  4.7.7.2 Driver Size Differences  )SELECT CHARSET=0,1   File: %DVS23  # Rev.5270 Rev.6000 Difference #$ ----------------------- ----------------------- ----------- $$ Module Name Size Module Name Size Words % $$ DVS23 : 1273 --> DVS23 : 1299 26 2 $$ ----- ----- ----- ---- $$ 1273 1299 26 2 $  ((# of size differences = 1  # of unique names: Rev.5270 = 0  Rev.6000 = 0  Total file size change = 26  Total file % change = 2  )MOVE ABS=90,1800  - 6.0 Communicator -  4-36 1   Usage Considerations (92084A)    )SELECT CHARSET=9,1 4.7.7.3 System and Relocatable Library Size Differences )SELECT CHARSET=0,1     File: $FMP6 (New or deleted modules only)  # Rev.5270 Rev.6000 Difference #$ ----------------------- ----------------------- ----------- $$ Module Name Size Module Name Size Words % $$ ................: ..... --> MASKGETDIRENT : 136 136 100 $$ ................: ..... --> MASKISDS : 41 41 100 $$ ................: ..... --> MASKWRITEOK : 61 61 100 $$ ................: ..... --> FMPTEMPNAME : 115 115 100 $$ ................: ..... --> FGETOPT : 431 431 100 $$ ................: ..... --> HPINIT_TREE : 55 55 100 $$ ................: ..... --> HPADD_NODE : 719 719 100 $$ ................: ..... --> HPNEXT_NODE : 108 108 100 $$ ................: ..... --> HPTREE_PTR : 151 151 100 $$ ................: ..... --> HPLOWEST_VALUE : 63 63 100 $$ ................: ..... --> HPNEXT_PTR : 88 88 100 $$ ................: ..... --> HPPREV_NODE : 102 102 100 $$ ................: ..... --> HPPREV_PTR : 87 87 100 $$ ................: ..... --> HPHIGHEST_VALUE : 64 64 100 $$ ................: ..... --> GETREDIRECTION : 297 297 100 $$ ................: ..... --> HPSTRIPREDIR : 239 239 100 $$ ................: ..... --> FMPSYMLINK : 8 8 100 $$ ................: ..... --> FMPMAKESLINK : 15 15 100 $$ ................: ..... --> FMPREADLINK : 15 15 100 $$ ................: ..... --> FMPDIRINFO : 70 70 100 $$ ................: ..... --> FMPABSNAME : 20 20 100 $$ ................: ..... --> FMPABSFNAME : 20 20 100 $$ ................: ..... --> HPCOMPAREBUFFERS: 24 24 100 $$ ................: ..... --> HPCOMPARE_BYTES : 25 25 100 $$ ................: ..... --> HPMOVE_STR : 30 30 100 $$ ................: ..... --> INITSTRMATCH : 320 320 100 $$ ................: ..... --> FASTSTRMATCH : 195 195 100 $$ ................: ..... --> FMPLINES : 9 9 100 $$ ................: ..... --> FMPCOLUMNS : 9 9 100 $$ ................: ..... --> HPCRTSCREENSIZE : 68 68 100 $$ ................: ..... --> HPZDPARSE : 225 225 100 $$ ----- ----- ----- ---- $$ 0 3810 3810 32767 $  # of size differences = 100  # of unique names: Rev.5270 = 0  Rev.6000 = 31  Total file size change = 4113  Total file % change = 7  )MOVE ABS=90,1800  - 6.0 Communicator - $ 4-37 $1   Usage Considerations (92084A)      File: $FMP6 (Existing modules only)  # Rev.5270 Rev.6000 Difference #$ ----------------------- ----------------------- ----------- $$ Module Name Size Module Name Size Words % $$ FMPRUNPROGRAM : 480 --> FMPRUNPROGRAM : 479 -1 0 $$ FMPLIST : 54 --> FMPLIST : 53 -1 -1 $$ FMPLISTX : 788 --> FMPLISTX : 787 -1 0 $$ FMPPAGEDWRITE : 54 --> FMPPAGEDWRITE : 53 -1 -1 $$ FMPPAGEDDEVWRITE: 46 --> FMPPAGEDDEVWRITE: 45 -1 -2 $$ FMPPAGINATOR : 330 --> FMPPAGINATOR : 331 1 0 $$ COUNTWRITE : 170 --> COUNTWRITE : 169 -1 0 $$ FMPOWNER : 241 --> FMPOWNER : 240 -1 0 $$ DIRENTMATCH : 66 --> DIRENTMATCH : 72 6 9 $$ OTHERMATCH : 198 --> OTHERMATCH : 203 5 2 $$ SETOWNERMASK : 148 --> SETOWNERMASK : 147 -1 0 $$ FINDDIGIT : 56 --> FINDDIGIT : 55 -1 -1 $$ FATTENMASK : 260 --> FATTENMASK : 259 -1 0 $$ CALCBLOCKAD : 44 --> CALCBLOCKAD : 42 -2 -4 $$ LEGALLU : 35 --> LEGALLU : 34 -1 -2 $$ NEXTNEWLU : 90 --> NEXTNEWLU : 89 -1 -1 $$ GETNEXTENT : 42 --> GETNEXTENT : 41 -1 -2 $$ FMPMASKHEADER : 53 --> FMPMASKHEADER : 65 12 22 $$ FMPMASKPROT : 142 --> FMPMASKPROT : 141 -1 0 $$ NEXTOLDLU : 115 --> NEXTOLDLU : 114 -1 0 $$ POPDIR : 194 --> POPDIR : 199 5 2 $$ PUSHDIR : 387 --> PUSHDIR : 423 36 9 $$ SCANDIR : 40 --> SCANDIR : 41 1 2 $$ FMPENDMASK : 17 --> FMPENDMASK : 16 -1 -5 $$ DIRECPOSITION : 227 --> DIRECPOSITION : 226 -1 0 $$ FREADDIR : 135 --> FREADDIR : 145 10 7 $$ OLDDIROPEN : 91 --> OLDDIROPEN : 90 -1 -1 $$ OLDDIRREAD : 223 --> OLDDIRREAD : 222 -1 0 $$ NEWDIRREAD : 112 --> NEWDIRREAD : 111 -1 0 $$ FMPINITMASK : 708 --> FMPINITMASK : 728 20 2 $$ MASKDCBTOLUTAB : 98 --> MASKDCBTOLUTAB : 97 -1 -1 $$ MASKFILLBUF : 39 --> MASKFILLBUF : 38 -1 -2 $$ CRNTOLU : 72 --> CRNTOLU : 71 -1 -1 $$ MASKOPENID : 90 --> MASKOPENID : 89 -1 -1 $$ MASKMATCHLEVEL : 28 --> MASKMATCHLEVEL : 27 -1 -3 $$ MASKSECURITY : 34 --> MASKSECURITY : 33 -1 -2 $$ MASKDISCLU : 25 --> MASKDISCLU : 38 13 52 $$ MASKDISCBPT : 13 --> MASKDISCBPT : 12 -1 -7 $$ MASKOLDFILE : 17 --> MASKOLDFILE : 16 -1 -5 $$ DSOPENCON1 : 25 --> DSOPENCON1 : 24 -1 -4 $$ MASKSETERROR : 27 --> MASKSETERROR : 26 -1 -3 $$ WILDCARDMASK : 235 --> WILDCARDMASK : 234 -1 0 $$ OLDLUINFO : 74 --> OLDLUINFO : 73 -1 -1 $)MOVE ABS=90,1800  - 6.0 Communicator -  4-38 1   Usage Considerations (92084A)   $ MASKREADOK : 62 --> MASKREADOK : 61 -1 -1 $$ FMPREWINDMASK : 41 --> FMPREWINDMASK : 40 -1 -2 $$ FMPCOPY : 1502 --> FMPCOPY : 1639 137 9 $$ COUNTRECORDS : 170 --> COUNTRECORDS : 169 -1 0 $$ COPYSPARSE : 232 --> COPYSPARSE : 231 -1 0 $$ FMPPARSEPATH : 203 --> FMPPARSEPATH : 201 -2 0 $$ FMPBUILDPATH : 202 --> FMPBUILDPATH : 201 -1 0 $$ BYTSTRINGADDRESS: 12 --> BYTSTRINGADDRESS: 11 -1 -8 $$ MASKDISCREAD : 69 --> MASKDISCREAD : 73 4 5 $$ DISCRW : 209 --> DISCRW : 206 -3 -1 $$ FMPDISCSIZE : 122 --> FMPDISCSIZE : 120 -2 -1 $$ PROCESS_STRING : 265 --> PROCESS_STRING : 279 14 5 $$ FMPSHORTNAME : 131 --> FMPSHORTNAME : 61 -70 -53 $$ FMPACCESSDISC : 184 --> FMPACCESSDISC : 185 1 0 $$ FMPSETOWNER : 41 --> FMPSETOWNER : 29 -12 -29 $$ FMPOPENSCRATCH : 260 --> FMPOPENSCRATCH : 248 -12 -4 $$ FMPCLOSE : 61 --> FMPCLOSE : 64 3 4 $$ FMPACCESSTIME : 15 --> FMPACCESSTIME : 37 22 146 $$ FMPCREATETIME : 15 --> FMPCREATETIME : 37 22 146 $$ FMPUPDATETIME : 15 --> FMPUPDATETIME : 37 22 146 $$ FMPEOF : 15 --> FMPEOF : 37 22 146 $$ FMPRECORDCOUNT : 15 --> FMPRECORDCOUNT : 37 22 146 $$ FMPRECORDLEN : 19 --> FMPRECORDLEN : 41 22 115 $$ FMPSIZE : 15 --> FMPSIZE : 37 22 146 $$ FMPWORKINGDIR : 50 --> FMPWORKINGDIR : 67 17 34 $$ FMPGETVALUE : 47 --> FMPGETVALUE : 50 3 6 $$ FMPASKDDOT : 134 --> FMPASKDDOT : 142 8 5 $$ OKASCII : 57 --> OKASCII : 56 -1 -1 $$ FINDBITS : 89 --> FINDBITS : 87 -2 -2 $$ CHECKBITS : 154 --> CHECKBITS : 153 -1 0 $$ EMAFINDBITS : 89 --> EMAFINDBITS : 87 -2 -2 $$ EMACHECKBITS : 187 --> EMACHECKBITS : 186 -1 0 $$ TIMENOW : 28 --> TIMENOW : 26 -2 -7 $$ SECONDS : 88 --> SECONDS : 86 -2 -2 $$ ELAPSEDTIME : 59 --> ELAPSEDTIME : 55 -4 -6 $$ EXEC11TOMS : 67 --> EXEC1((1TOMS : 65 -2 -2 $$ FINDITEM : 66 --> FINDITEM : 65 -1 -1 $$ ADDITEM : 73 --> ADDITEM : 72 -1 -1 $$ DELETEITEM : 85 --> DELETEITEM : 84 -1 -1 $$ NEXTITEM : 61 --> NEXTITEM : 59 -2 -3 $$ NEXTCLASS : 31 --> NEXTCLASS : 30 -1 -3 $$ NEXTINCHAIN : 45 --> NEXTINCHAIN : 44 -1 -2 $$ HASHITEM : 56 --> HASHITEM : 55 -1 -1 $$ ALLOCATEMEM : 60 --> ALLOCATEMEM : 59 -1 -1 $$ SYSTEMPROCESS : 10 --> SYSTEMPROCESS : 9 -1 -10 $$ BUSYPROCESS : 41 --> BUSYPROCESS : 40 -1 -2 $$ FMPRPPROGRAM : 659 --> FMPRPPROGRAM : 660 1 0 $$ PERMANENTIDSEG : 21 --> PERMANENTIDSEG : 20 -1 -4 $$ HPCRTXREADCHAR : 64 --> HPCRTXREADCHAR : 66 2 3 $$ HPCRTREADCHAR : 64 --> HPCRTREADCHAR : 66 2 3 $)MOVE ABS=90,1800  - 6.0 Communicator - $ 4-39 $1   Usage Considerations (92084A)   $ HPCRTSTATUS : 53 --> HPCRTSTATUS : 51 -2 -3 $$ HPCRTGETCURSOR : 30 --> HPCRTGETCURSOR : 46 16 53 $$ HPCRTGETCURSORXY: 61 --> HPCRTGETCURSORXY: 48 -13 -21 $$ HPZDICV : 91 --> HPZDICV : 85 -6 -6 $$ HPZOCTD : 29 --> HPZOCTD : 30 1 3 $$ HPZHEXI : 53 --> HPZHEXI : 59 6 11 $$ CMNDSTACKSCREEN : 1080 --> CMNDSTACKSCREEN : 1096 16 1 $$ ----- ----- ----- ---- $$ 13980 14283 303 2 $  # of size differences = 100  # of unique names: Rev.5270 = 0  Rev.6000 = 31  Total file size change = 4113  Total file % change = 7      )SELECT CHARSET=11,1  4.8 (92131A) QDM/1000  )SELECT CHARSET=0,1     )SELECT CHARSET=10,1  4.8.1 FORMS/1000 Libraries  )SELECT CHARSET=0,1  ( The FORMS/1000 libraries that are part of the QDM/1000 software changed at (( the 6.0 release. The QDM/1000 software will be sent to customers on (( support for QDM/1000 under separate cover. Only those modules in QDM/1000 (( that are changing will be shipped. Refer to Chapter 3 in this document (% for a list of the changing FORMS/1000 libraries in the QDM product. %    )SELECT CHARSET=11,1  4.9 (92860A) Debug/1000  )SELECT CHARSET=0,1    )SELECT CHARSET=9,1  4.9.0.1 xdb Compatibility Mode  )SELECT CHARSET=0,1  ( xdb provides an interface to Symbolic Debug/1000 that is similar to the (( xdb debugger for HP-UX. xdb provides a superset of Debug/1000 (( functionality; xdb contains all Debug/1000 functionality plus a new set of (( xdb-like commands. Any Debug/1000 command line may be entered by (( preceding it with a colon. Both xdb and Debug/1000 may be used on the (( same system. Note that in xdb mode, the term "current location" refers to (( the location currently listed on the screen rather than the point of ( suspension of execution.  ( Also note that the command stack saved in the .DBG file will contain (( either Debug/1000 commands, xdb commands, or both, depending on which ( utility has been used to debug the program in the past. )MOVE ABS=90,1800  - 6.0 Communicator -  4-40 1   Usage Considerations (92860A)   ( One useful feature of xdb is record/playback. This feature helps (( re-create program states and record all debugger output. It is ( particularly useful for bugs requiring a lengthy set-up.  ( Note: there is a significant difference between xdb/1000 and xdb for HP-UX (( in the area of record/playback. xdb/1000 does not implement separate (( files for "record" and "record-all". Turning on one of these features ( will close the file associated with the other, if any.     )SELECT CHARSET=11,1  4.10 (92861A/92862A) AGP/DGL  )SELECT CHARSET=0,1  ( See the AGP/DGL Device Handlers Manual for more information on the device ( handler changes to the Graphics software.   )SELECT CHARSET=9,1 4.10.0.1 LUs > 63 )SELECT CHARSET=0,1  ( The change to have AGP/DGL support LUs greater than 63 has been (" much-requested and has been implemented for the 6.0 release. "  )SELECT CHARSET=9,1  4.10.0.2 HP-GL/2 Handler  )SELECT CHARSET=0,1  ( A new handler is required to drive new plotters and printers that support (( HP-GL/2. This handler is supplied with 6.0 and will meet the needs of ( future graphics peripherals supported on the HP 1000.   )SELECT CHARSET=9,1  4.10.0.3 PaintJet Support  )SELECT CHARSET=0,1  ( A new handler has been added to support devices such as the HP PaintJet ( and DeskJet 500C.     )SELECT CHARSET=11,1  4.11 (98170A) ARPA/1000  )SELECT CHARSET=0,1      )SELECT CHARSET=11,1  4.12 (91790A) NS-ARPA/1000  )SELECT CHARSET=0,1     )SELECT CHARSET=10,1 4.12.1 INETD )SELECT CHARSET=0,1    )SELECT CHARSET=9,1  4.12.1.1 Description  )SELECT CHARSET=0,1   ( Inetd is a monitor for NS-ARPA/1000 or ARPA/1000 systems which listens for ()MOVE ABS=90,1800  - 6.0 Communicator - $ 4-41 $1   Usage Considerations (98170A)   ( incoming connections and schedules the appropriate server to handle the (( connection. Inetd will listen on up to 30 TCP protocol addresses (or (( "ports") at once, requiring fewer system resources than if separate (( programs were to listen for these connections. Inetd must be running (( before other hosts can connect to the local host through mail, ftp, or (( telnet. Inetd can be started only by superusers with appropriate (( privileges. It is started at network initialization time. Inetd also (( offers an extra level of security by allowing you to specify which hosts (( may or may not use a service. A log of connections to services can (( optionally be kept in the file /etc/inetd.log, along with info about (( errors encountered and access denials. Currently, inetd supports the ( following services:   smtp : simple mail transfer protocol  ftp : file transfer protocol  telnet : TELNET virtual terminal    )SELECT CHARSET=9,1  4.12.1.2 Installation  )SELECT CHARSET=0,1   ( Prior to release 6.0, inetd was installed as part of the Mail/1000 product (( if SMTP service was installed (on RTE_A VC+ with NS-ARPA). The (( configuration file "inetd.conf" and the file "services", which maps (( service names to TCP ports, were both installed in the /SYSTEM directory; (% inetd was started with the command "xq inetd" in the Welcome file. % ( For release 6.0, inetd has been enhanced to support ftp and telnet and is (( installed as part of the NS-ARPA and ARPA products. It is no longer part (( of the RTE-A product. The installation script "install_ns1000" or (( "install_arpa" contains the appropriate commands for installing files ( needed by inetd, including the following files:   /programs/inetd.run : executable file for inetd monitor & /etc/inetd.conf : configuration file that specifies services to & listen for ) /etc/services : file that maps services to the TCP port services use ) ( Please refer to the on-line help file on inetd for how to set up the ( services in the "inetd.conf" and "services" files.    )SELECT CHARSET=9,1  4.12.1.3 Important Notes  )SELECT CHARSET=0,1   ( 1. The location of the files "inetd.conf" and "services" have been changed (' from the directory /SYSTEM to /ETC. In addition, inetd is started up ') at NS initialization (nsinit) or ARPA initialization (netinit); therefore )% the "xq inetd" command in the Welcome file can be removed at 6.0. % )MOVE ABS=90,1800  - 6.0 Communicator -  4-42 1   Usage Considerations (98170A)   ( 2. Inetd replaces the ftp and telnet monitors, ftpmn and tnmon. Therefore ($ these monitors should be removed from the /PROGRAMS directory. $   )SELECT CHARSET=10,1  4.12.2 Generation Considerations  )SELECT CHARSET=0,1  ( At 6.0, NS-ARPA and ARPA programs are now transportable between systems (( running the same version of RTE-A and networking software. This was (( accomplished by eliminating the use of non-transportable system ent((ry (( points by the networking software. As part of this change, the networking (( modules that are generated into the system have been modified. NSPEC.REL (( is no longer needed and has been removed from the networking products. (( The other networking system module, NSABP, is now partitionable. Also, it (( is no longer necessary to search NSLIB for the DSGLO module during RTAGN's ( system relocation phase.  ( The following commands should be deleted from your RTAGN answer file. For (! ARPA/1000 systems, the global directory would be /ARPA1000. !  RE /NS1000/REL/NSPEC.REL  SE /NS1000/LIB/NSLIB.LIB DSGLO  ( If you move NSABP into an OS partition, you must include NSABP in a PA (( command. Otherwise, a dummy version of NSABP will be included from $SYSA. ( ( A few restrictions on program transportability should be noted. Some of (( the networking programs use labelled system common. These programs can (( only be moved to other systems with the same system common configuration. (( The networking software uses the cross map move byte instructions, MBxy, (( extensively. Older versions of the A900 microcode contain a bug in these (( instructions. So, programs linked with a snap file that includes an RPL (( file other than %rpl91 must not be run on an A900 without the latest (( firmware (Rev. 4). Chapter 3 contains a revision history of the A900 (! firmware and lists the part numbers for the each revision. !)MOVE ABS=90,1800  )SELECT CHARSET=0,1  - 6.0 Communicator - $ 4-43 $1   Update Procedures  )SELECT CHARSET=12,1    )SELECT CHARSET=12,1   Chapter 5  Media Installation and Update Procedures  )SELECT CHARSET=0,1      ( Customers on Update Media subscription services will receive updates to (( software on magnetic tapes, CTDs, or DDS tapes, depending on the option (( they have ordered. This chapter contains information concerning the (( format of update/new media and should be used in conjunction with product (( configuration/installation manuals when removing software from the media. (    # ********************************************************* ## * Look at the media label and determine what format * ## * is used. Then find the section in this chapter * ## * which corresponds to the media format (sections * ## * are organized by format). Follow the instructions * ## * in that section to restore the files from the * ## * media. * ## ********************************************************* #        )SELECT CHARSET=11,1  5.1 General Information for Update Customers  )SELECT CHARSET=0,1     1. BACK UP YOUR disk BEFORE PROCEEDING. ( This will insure that you can always return to your original system and ( start over.   2. VERIFY YOUR BACKUP COPY. $ It is suggested that you make two copies and verify them both. $ ( 3. The typical procedure for updating your system is to replace the (( existing files on your system with the files supplied on the media. (( When possible, you may want to store the new file to disk on a (( different CRN or volume. Then, when you're sure it has transferred (( correctly, purge your old copy. This is just to ensure that you get a (" good copy of the new file before you destroy your old one. ")MOVE ABS=90,1800  - 6.0 Communicator - $ 5-1 $1   Update Procedures    After you have installed your software:  ( 1. Generate your new system right away. If there have been any errors in the (! transfer process, they wiill probably be detected this way. ! ( 2. Check the revision codes of your software as they appear in the generation (( map against those listed in the software numbering catalog or file, and ( make sure you have not left out any modules.  ( 3. Boot, initialize and use your newly generated system to make sure that it ( works correctly.  ( 4. Make backup copies of your newly generated system. Use a new tape to (( backup your system. Keep the old copy until it is time to update once (( again, and then use it to backup the next 'new' system. This way you will (" keep at least two revisions backed-up by rotating your media. " ( 5. Keep the update media together with your old backup media. If you (( diskover problems later, you will always be able to get back to where you ( started and go through the installation procedure again.     NOTE  )SELECT CHARSET=0,1  # If Operating System software has not changed and there ## are no changes affecting your generation (e.g., ## generated-in libraries), then regeneration is not ## necessary and on-line reloading will be sufficient. ## Otherwise regeneration is necessary before reloading # on-line.     )SELECT CHARSET=11,1  5.2 Media Installation Procedures  )SELECT CHARSET=0,1  ( Software is stored on media in one of several formats. Note that each (( physical media carries a label identifying the part number of the media, a ( description, and a revision code.  ( On media with files to be restored to hard disk there is a file called (( "HPHPHP" which describes each of the software parts. Information provided ( for each part includes   Part number  Software revision code  Module number File type File name Directory path )MOVE ABS=90,1800  - 6.0 Communicator -  5-2 1   Update Procedures    ( All media (i.e., each tape), with a revision code after 2340 (all software (( updated at DSD4.0 is 2540 or greater) will have an HPHPHP file. The (( exception to this rule is diagnostics: they do not have the HPHPHP file. ( ( The information in HPHPHP is helpful if you want to know what files are on (( the medium. For example, if the medium was missing a software module that (( was listed in HPHPHP, you would call your support office and request the ( missing software.  ( On each tape HPHPHP is the first file. On floppies, HPHPHP is the first (( file appearing in the directory listing. The HPHPHP file has no part (' number. Diagnostics and primary systems do not require an HPHPHP file. '    )SELECT CHARSET=11,1  5.3 'FST' Format for Restoring TF or FST Format Tapes  )SELECT CHARSET=0,1   ) Please consult with the Utilities Reference Manual (92077-90004 or ) 92084-90007) on how to use the 'FST' utility.  ( A tape contains one or more products, each product being identified by a (( global directory. The HPHPHP file contains a list of all files on that ( tape. Here is an example on how to use 'FST':  + CI> fst  ___  + FST> mt, _______ + FST> verify ______ + FST> re  __ ' (NOTE: If tape is in FST format, FST will report the file count.) '+ FST> go  __ + FST> ex  __  ( This would copy all files from the tape LU to your disk under the ( directory names that the files are stored on the tape.     )SELECT CHARSET=11,1  5.4 'TF' Format for Restoring TF Format Tapes  )SELECT CHARSET=0,1   ( Please consult with the Utilities Reference Manual (92077-90004 or ( 92084-90007) on how to use the 'TF' utility.  ( A tape contains one or more products, each product being identified by a (( global directory. The HPHPHP file contains a list of all files on that ( tape. Here is an example on how to use 'TF': )MOVE ABS=90,1800  - 6.0 Communicator - $ 5-3 $1   Update Procedures    + CI> tf  __  + TF: co,,,v __________  ( This would copy all files from the tape LU to your disk under the ( directory names that the files are stored on the tape.  ( The above is the preferred and less complicated way. However, if you want (& to selectively restore certain products, follow the directions below. & + CI> tf  __ + TF: co,{/global1/},/global2/,v  _________________ __  ((  where = LU of the tape " global1 = Global directory identifying the "% files for a given product on the tape. %! global2 = Global directory on your system ! v = verify  ( This will copy all the files from the tape with global directory /GLOBAL1 (( onto the disk on directory /GLOBAL2 and will verify each transfer. Files (( with duplicate names will not be copied and duplicate file errors will ( occur. To replace duplicate files, use the 'D' option.        )SELECT CHARSET=11,1  5.5 VCP Bootable Format for CS/80 CTD  )SELECT CHARSET=0,1  ( 'VCP Bootable' means that these files are loaded directly from tape into (( memory, then executed by following the instructions in the appropriate (( diagnostic manual. The CTD media update in this format replaces the older (% version of the media. Refer to the appropriate diagnostic manual. %    )SELECT CHARSET=11,1  5.6 Customized Tapes  )SELECT CHARSET=0,1  ( All Update tapes for RTE-A and RTE-6/VM are in FST format. Subsystems are ( customized in TF format.  ( The following products are currently shipped out in various Customized ()MOVE ABS=90,1800  - 6.0 Communicator -  5-4 1   Update Procedures    Update tapes; not all are being sent out at this release:  % DIRECTORIES PROD.NAME PROD.NUMBER STANDARD FMT %% ----------- --------- ----------- ------------ % /DS1000/ DS/1000 91750A TF /X25/ X.25 91751A TF /RJE/ RJE/1000-II 91781A TF /MRJE/ MRJE/1000 91782A TF /LAN/ LAN/1000 12076A TF /NS1000/ NS-ARPA/1000 91790A TF /DATAPAIR/ Datapair/1000 92050A TF /RTE_A/ RTE-A 92077A FST /VCPLUS/ VCPlus 92078A TF /IMAGE2/ Image/1000-II 92081A TF /RTE_6/ RTE-6 VM/OS 92084A FST /Pascal/ Pascal/1000 92833A TF /FTN7X/ Fortran 77 92836A TF /BASIC/ Basic/1000-C 92857A TF /DEBUG/ Symbolic Debug 92860A TF /GRAPHICSV2/DGL/ DGL/1000 V2 92861A TF /GRAPHICSV2/AGP/ AGP/1000 V2 92862A TF /PCIF/ PCIF/1000 #1 94200B TF /PCIF/ PCIF/Get_Start #2 94200B TF /PCIF/AB/ PCIF/AB Handler 94202A TF /PCIF/GM/ PCIF/GM Handler 94203A TF /FORMS/ Forms/1000A 94250A TF /F1000/ Forms/1000B 94250B TF /ARPA/ ARPA/1000 98170A TF  ( There are two methods for restoring the contents of the customized update ( tape to the hard disk:  ( 1. The first method is to use TF to copy the entire tape to the CI (( directories. Then copy the products that have FC as a standard (( format to a FMGR cartridge and purge the CI directory that was (( associated with it. This method is used if your system has a CI (( volume with enough space to contain all the files on the customized ( update tape.   + CI> tf __ (+ TF: co ,, v (Copy tape to specified directories) ( ____________  + TF: ex __ )+ CI> co /Directory/ ::crn1 p (One CO command for each product whose ) _______________________ ! standard format is FC) ! ( For example, suppose Pascal, Fortran 77, and Image-II are all on a (( single customized update tape. You would enter the following ( command sequence:   + CI> tf __ )MOVE ABS=90,1800  - 6.0 Communicator - $ 5-5 $1   Update Procedures   &+ TF: co 9 ,, v (Copy the entire tape to a CI volume) & _________ + TF: ex __ )+ CI> co /ftn7x/ ::F7 p (Copy the contents of /FTN7X to cartridge F7 ) _________________ !+ CI> pu /ftn7x and purge directory /FTN7X) ! _________  ( In this example, LU 9 is the LU of the tape drive on which the (( customized update tape is mounted. Cartridge F7 must exist on your (( system. Also, by defaulting the destination parameter in the TF CO (( command, Pascal and Image-II are copied to directories /PASCAL and ( /IMAGE2 respectively.  ( 2. The second method is to enter TF and use the group copy command to (( copy all the products directly to the disk. This method is used if (( your system does not have a CI volume with enough space to contain ( all the files on the customized update tape.  ( Enter one TF CO command for each product in the customized update (( tape. All products whose standard format is FC are copied directly (( from the tape to a FMGR cartridge and all products whose standard ( format is TF are copied directly to a CI volume.   + CI> tf __ + TF: gr __ *+ TF: co {/Directory/} ::crn1 v (One TF CO command for each product * _____________________________ ' . whose standard format is FC) ' . . *+ TF: co {/Directory/} ,, v (One TF CO command for each product * _________________________ ' . whose standard format is TF) ' . . + TF: eg __ + TF: ex __  & For example, suppose Pascal, PCIF, Fortran 77, and Image-II are &) all on a single customized update tape. You would use the following ) command sequence:   + CI> tf __ + TF: gr __ '+ TF: co 9{/Pascal/},,v (Copy Pascal to directory /PASCAL) ' _________________ (+ TF: co 9{/Image2/},,v (Copy Image II to directory /Image2) ( _________________ &+ TF: co 9{/Ftn7x/},::F7,v (Copy Fortran 7X to cartridge F7) & ____________________ #+ TF: co 9{/PCIF/},::D2,v (Copy PCIF to cartridge D2) # ___________________  + TF: eg __ + TF: ex __  ( In this example, LU 9 is the LU of the tape drive on which the (( customized update tape is mounted. Cartridges F7 and D2 must exist ( on your system. )MOVE ABS=90,1800  - 6.0 Communicator -  5-6 1   Update Procedures   ( As you can see from method 2 above, you can copy down products selectively ( if you do not have enough disk space.     )SELECT CHARSET=11,1  5.7 Additional Formats  )SELECT CHARSET=0,1  ( For media in other formats such as ASAVE, PUSHBUTTON SAVE, LSAVE, and (( READT/WRITT, refer to the appropriate utilities manual and/or installation ( guide.  ( Note that some subsystem software may have a transfer file or other means (( of restoring files from media. See the appropriate configuration guide or ( reference manual for specific information.  )SET SHIFT=OFF;SISO )PRINTTEXT 1,0 )SELECT CHARSET=13,1 )ENVIRONMENT DSMARCOM )SELECT CHARSET=13,1 )MOVE ABS=90,1750  )SELECT CHARSET=13,1  - 6.0 Communicator - $ 5-7 $1   Update Procedures  )SELECT CHARSET=14,1    )SELECT CHARSET=14,1 ( Q;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;3;;;;;;;;;;;;;;;;;;W (( : : : (* : RTE-A 6.0 Installation Cookbook : APPENDIX A : *( : : : (( A;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;4;;;;;;;;;;;;;;;;;;S ( )SELECT CHARSET=13,1     ( This appendix is intended as a guide to assist you in updating your HP (( (( 1000 RTE-A system from version 5.2 or 5.27 to version 6.0. Before (( beginning, read the RTE-A (92077A) section in Chapter 4 of the (( Communicator. The RTE-A section explains any the changes and impacts and ( lists the names and sizes of each system library module. )SELECT CHARSET=0,14   1. Backup your system with ASAVE.  )SELECT CHARSET=0,21  ( Make sure you have a memory-based ARSTR system which you can use to () restore the ASAVE of your system. Refer to Chapter 3 of the RTE-A ) Utilities Manual for details on ASAVE and ARSTR.  )SELECT CHARSET=0,14  * 2. Copy the 6.0 version of the RTE-A and VC+ products from tape to /RTE_A * and /VCPLUS.   )SELECT CHARSET=0,21 ) A. Begin by clearing some room on a CI volume and creating the global )* directories /RTE_A and /VCPLUS. Create the sub-directory /GEN/REV60 *) to hold the answer, system, and snap files. If /RTE_A and /VCPLUS )' already exist, then purge everything in them before loading the ' 6.0 software onto the system.  ( /RTE_A will require about 40000 blocks, and /VCPLUS will require ( about 12000 blocks.  & B. Use FST to copy the software off the update tape to the newly &( created directories. For additional details on FST, consult the ( RTE-A Utilities Manual.   CI> crdir /rte_a  CI> crdir /vcplus  CI> crdir /gen/rev60  CI> FST mt|re @|ve|go   )SELECT CHARSET=0,14  3. Modify your answer file for the 6.0 changes.  )SELECT CHARSET=0,21  ( (Refer to the "Generation Considerations" section in Chapter 4 of ( the Communicator for more details.)  )MOVE ABS=90,1750  )SELECT CHARSET=13,1  - 6.0 Communicator/1000 - $ A-1 $1  RTE-A 6.0 Installation   )SELECT CHARSET=0,21    A. New modules: /vcplus/%ENVRN  % If the target system is to perform the EXEC(39) call, which %& performs environment variable look-ups for various utilities && such as LI, then this module must be relocated in the "System &# Generation" section of the answer file. This module is #& partionable; to partition, use the "PA,ENVRN" command in your &( answer file. See the RTE-A System Generation and Installation (% Manual for the number of words required in the tag area. %  B. SCSI disks:  ' The 6.0 revision of DDQ30_GEN.REL has two new model names, and ' two model names have been changed.  ( It is recommended that you use the new model names, below. Which (& model name you use depends on which media you use. These new &" model are used to configure the media as all one LU. "  model description  ----- -----------  M650A_1 use to make 92279A media all one LU M650A_3 use to make 92280A media all one LU  ) If you don't want to use these new models, you will have to change )( the DVT commands in your answer file to use the new names, below. (' These models are used to divide the 307MB on the 92280A media. ' ' The 6.0 revision of DDQ30_GEN.REL changed two model names to be '' consistent with the naming convention that ":A" is used for the '& large LU and ":B" is used for the small LU. The changes are: &  old model new model  --------- ---------  M19MB_3:A M19MB_3:B  M51MB_3:B M51MB_3:A   C. NS-ARPA/1000 and ARPA/1000 changes:  ' The 6.0 revisions of NS-ARPA/1000 or ARPA/1000 software MUST be '$ used in conjunction with the 6.0 RTE-A operating system. $ ' The file /NS1000/REL/NSPEC.REL no longer exists, and it should '. not be relocated. The library search command "SE /NS1000/LIB/NSLIB.LIB DSGLO .) is no longer needed and can be deleted. For ARPA/1000 systems, the ) global directory for these modules is /ARPA1000.  ' Module NSABP is now partitionable. File /NS1000/REL/NSABP.REL ')MOVE ABS=90,1750  )SELECT CHARSET=13,1  - 6.0 Communicator/1000 -  A-2 1  RTE-A 6.0 Installation   )SELECT CHARSET=0,21    may be relocated into an OS partition.   D. X.25 changes:  . The file /X25/REL/#X25A.REL no longer exists. The entry points it contained .* are now in VCTR. Delete the command "RE /X25/REL/#X25A.REL from your * answer file.   E. Miscellaneous:  $ These changes are unlikely to affect the answer file for $ most systems:  ( o Module SAM is no longer optional. %SAM must be relocated; module (& "SAM.." is no longer available in $SYSA. Very few systems are & currently generated without SAM.  & o Five words of XSAM (or SAM if no XSAM) will be consumed per ID &( segment. If there is insufficient XSAM/SAM for this purpose, then ( the system will not boot.  ( o The real VEMA module must be relocated (from %VEMA, as opposed to (* "VEM.." from $SYSA) if the system is to use the new Large or Extended *' models of EMA/VMA. This will not affect any host that currently '" runs D.RTR, since the real VEMA must already be used. " & o The required tag area size is slightly higher; see the RTE-A &( System Generation and Installation Manual for the number of words ( required for each partitioned module.  ) o Various restrictions on the values of class buffer limits (formerly )) known as spool buffer limits) have been removed. See Chapter 4 for ) more information.   )SELECT CHARSET=0,14  4. Generate your new 6.0 system.  )SELECT CHARSET=0,21  ( The 6.0 revisions of five programs must be used to upgrade to 6.0: (( RTAGN, MACRO, LINK, LINDX, and BUILD. These programs will run on (( your 5.2/5.27 system, and should be loaded using your existing (( 5.2/5.27 system libraries and snap file. The .RUN files should be (( placed in a temporary directory, where they can be used for (( installation purposes only -- don't put them in /PROGRAMS/, since (! the programs are incompatible with 5.2/5.27 systems. ! ! A. Use the upgrade60.cmd file to load these programs. ! & A command file, upgrade60.cmd, is supplied with RTE-A to ease && the loading of 6.0 versions of software needed for RTE-A 6.0 &)MOVE ABS=90,1750  )SELECT CHARSET=13,1  - 6.0 Communicator/1000 - $ A-3 $1  RTE-A 6.0 Installation   )SELECT CHARSET=0,21   ' installation. This command file is to be run with your working '( directory set to a temporary directory created for this purpose. ( The directory may safely be /SCRATCH, if desired.  ) The .RUN files created by this command file are named RTAGN60.RUN, )' MACRO60.RUN, LINK60.RUN, LINDX60.RUN, and BUILD60.RUN. Each is '% created in the temporary directory. Once this command file %) completes, these five programs may be RP'ed as RTAGN, MACRO, LINK, )& LINDX, and BUILD before generating the new system and before &# executing rtea1.cmd, vc1.cmd, install_ns1000.cmd or any # other software installation command files used.  ' See Chapter 4 for information on why this is necessary and for '" help with errors found during software installation. "  crdir /tempdir LU  wd /tempdir  tr /rte_a/upgrade60 [rte_a_dir]   where:  $ LU = the LU for your temporary directory. $ ' rte_a_dir = the directory where the RTE-A 6.0 software '" resides. The default is /RTE_A. " ' Now that the .RUN files have been created, they can be RP'ed as ' mentioned above, if desired:   rp /tempdir/rtagn60 rtagn  rp /tempdir/macro60 macro  rp /tempdir/link60 link  rp /tempdir/lindx60 lindx  rp /tempdir/build60 build  * Note: once the entire 6.0 software installation is complete, you will *" want to remove these five ID segments. For example: "  of rtagn id (( of macro id  of link id  of lindx id  of build id  ) When the temporary 6.0 programs are no longer needed, the contents ) of the temporary directory may be purged.  % B. Use the following CI commands to generate the system, where %)MOVE ABS=90,1750  )SELECT CHARSET=13,1  - 6.0 Communicator/1000 -  A-4 1  RTE-A 6.0 Installation   )SELECT CHARSET=0,21    rtea60.ans is a copy of your 6.0 answer file:   CI> wd /gen/rev60  CI> ru rtagn rtea60.ans - - -  ( The last line will cause the generator to create 'rtea60.LST', ( 'rtea60.SYS', and 'rtea60.SNP'.  ( Be sure that the 6.0 relocatables and libraries are used in the (( generation. If RTAGN complains that any of the following entry (( points are missing, this probably indicates that a pre-6.0 ( version of the module has been relocated:   Defining module New entry points   VCTR $SHEMATBL  $IDNBR  $IDEXT  $IDXSZ  $MMPASS  $RTNSHEMA   UTIL $UPCLASSLIMIT  $NLOWCLASSLIMIT   ABORT $ABORTSHEMA  $KILLSHTBL   VEMA $XSHEMAREL  ' The following entry points no longer exist at 6.0, so undefined '( externals to these probably indicate that the referencing module ( is pre-6.0:   Formerly in VCTR:   $SHTB $SH# $SHSZ $PENT $VMAS $CPLV $SGNL $IDNO   Formerly in other modules:   $SPBL )MOVE ABS=90,1750  )SELECT CHARSET=13,1  - 6.0 Communicator/1000 - $ A-5 $1  RTE-A 6.0 Installation   )SELECT CHARSET=0,21    DSPBL   )SELECT CHARSET=0,14 % 5. Create /TARGETPROGRAMS and transfer to the command files to % link up the essential RTE-A and VC+ programs:  )SELECT CHARSET=0,21  ( In the past, it was a requirement that the target software reside in (( a global directory. This is no longer the case. The software may ( exist in any directory or sub-directory.  ( Size requirements for an A-series system, with VC+, without ( subsystems:   /TARGETPROGRAMS uses about 15100 blocks  /LIBRARIES uses about 7000 blocks  /HELP uses about 1000 blocks  /CATALOGS uses about 510 blocks  ( Note that these sizes are for a basic 6.0 RTE-A system that does not (( include any application software or other subsystems. Sizes of (! directories on individual systems may be much larger. ! ! A. Create the directory using the following commands: !  CI> crdir /targetprograms  CI> wd /rte_a  $ B. To preserve your 5.2/5.27 libraries, rename the existing $' /libraries to /libs527. Create a new /libraries for RTEA1.CMD '' to use for the 6.0 libraries. Be sure to specify the 'UPDATE' ' option in RTEA1.CMD, below.  ( If you wish to retain your old software, you may wish to rename (( /libraries to /libs60 and rename /libs527 to /libraries if you ( wish to retain your old system.   C. Decide whether you want symbolic link support.  ( /RTE_A/$BIGLB and /VCPLUS/$BGCDS are no longer shipped at 6.0. (& The proper versions must be built by RTEA1.CMD and VC1.CMD. & ( At 6.0, you must choose between two possible versions of various (( libraries: the version containing support for file system (( symbolic links and the version that does not. There are four ( libraries shipped that are affected:   File without File with ! Description symbolic links symbolic links !! ----------- -------------- -------------- !)MOVE ABS=90,1750  )SELECT CHARSET=13,1  - 6.0 Communicator/1000 -  A-6 1  RTE-A 6.0 Installation   )SELECT CHARSET=0,21    Non-CDS FMP /RTE_A/$FMP /RTE_A/$SFMP CDS routines /VCPLUS/$CDS /VCPLUS/$SCDS  ( At RTE software installation time, you choose which version of (( the above libraries will be installed on your system. This is (( accomplished by setting CI variable $RTE_SLINK appropriately, as ( documented below.  ( The RTEA1.CMD and VC1.CMD files will build the proper version of (( $BIGLB.LIB and $BGCDS.LIB for your system if the "UPDATE" (( parameter is specified. The libraries built will contain the the (( desired versions of $[S]FMP and $[S]CDS, according to whether (% symbolic link support is requested in variable $RTE_SLINK. % " D. Set CI variables to configure the software installed. " ( There are now seven CI variables that may be set prior to (( transferring to the RTEA1/RTEA2/VC1/VC2 installation command ( files. A description of each appears below:   $RTE_CDS  ( If "T", this tells the RTEA1 and RTEA2 command files that CDS () versions of software will be installed via VC1.CMD and VC2.CMD. )$ This simply causes RTEA1.CMD and RTEA2.CMD not to load $( non-CDS versions of programs that will be loaded as CDS later, (' thereby saving time. The non-CDS programs that will not be ' loaded are as follows:   CI CIX D.RTR DL LS GREP  ( The default is to load the non-CDS versions of these programs. (  $RTE_HPMDM  ' If "T", the HPMDM modem controller utility will be loaded by '' RTEA2.CMD. This utility requires file hpmdm_table.rel to be '' relocated into the system common area of the target system. ' The default is to not load this utility.    $RTE_SLINK  ( If "T", the target system is to have the capability to create (( and access symbolic links in the file system. This causes the (( versions of $BIGLB and $BGCDS which can access symbolic links (( to be installed and the LNS utility to be loaded. The default (' is to install $BIGLB and $BGCDS versions that cannot access ')MOVE ABS=90,1750  )SELECT CHARSET=13,1  - 6.0 Communicator/1000 - $ A-7 $1  RTE-A 6.0 Installation   )SELECT CHARSET=0,21    symbolic links and to not load LNS.  ) Note that setting $RTE_SLINK = T does not make sense for non-VC+ )' systems or for systems where the CDS version of D.RTR is not ' loaded.   $RTE_A990  ( If "T", programs that are used only on A990 processors will be (# loaded: Clock, SetVcpString, Download, and A990fwid. #  $RTE_LIBS  & May be set to the directory name where libraries are to be && copied. The default is "/LIBRARIES". Note that this does &( not cause LINK to search this directory when loading programs; (& it only allows an alternate directory structure to be used & for the target system.   $RTE_CATS  ( May be set to the directory name where NLS catalogs are to be ( copied. The default is "/CATALOGS".   $RTE_HELP  ' May be set to the directory name where help files are to be ' copied. The default is "/HELP".  % For example, to load a CDS system that runs HPMDM and uses %$ symbolic links, using the default directories /LIBRARIES, $ /CATALOGS, and /HELP:   set rte_cds = T  set rte_hpmdm = T  set rte_slink = T  % Then follow the s((teps below to transfer to the installation % command files.  $ E. Transfer to RTEA1.CMD and RTEA2.CMD to link the programs. $    )SELECT CHARSET=5,1  N  )SELECT CHARSET=0,1 )SELECT CHARSET=0,14   ( If you use the 'UPDATE' option, be sure you have a backup of ()MOVE ABS=90,1750  )SELECT CHARSET=13,1  - 6.0 Communicator/1000 -  A-8 1  RTE-A 6.0 Installation   )SELECT CHARSET=0,14   ( /LIBRARIES, /CATALOGS, and /HELP because the command file RTEA1.CMD (( uses the 'd' option (replace and delete old version) during the ( update.    )SELECT CHARSET=5,1  N  )SELECT CHARSET=0,1 )SELECT CHARSET=0,14   ( The name of the LINK NLS catalog file has changed from >LK000 to (( LINK.C000. The new catalog file must be present in the /CATALOGS (( directory for the 6.0 revision of LINK to run. If the "UPDATE" (( option is given to RTEA1.CMD and the $RTE_CATS variable is set to (( the default of "/CATALOGS", then RTEA1.CMD will install the catalog (( for you. If you do not specify the "UPDATE" option or if $RTE_CATS (( is set to another directory, then you must copy file LINK.C000 from ( /RTE_A to /CATALOGS prior to running RTEA1.CMD.  % CI> rtea1,,/targetprograms,/rte_a,abort,update,rtea2 %  where: ( = new 6.0 snap file (following our convention, it (( would be /gen/rev60/rtea60.snp). The file must ( have the .SNP type extension.  & /targetprograms = directory to place newly-compiled programs. & * /rte_a = directory that contains new 6.0 RTE-A relocatables * (may be a sub-directory).  ' abort = will abort transfer file if an error occurs. '* If not specified, the transfer file will continue. * ' update = will update /LIBRARIES, /CATALOGS, and /HELP. '* If not specified, the directories won't be updated. * ( rtea2 = will transfer to RTEA2.CMD. If not specified, ( RTEA1.CMD will return to CI.     )SELECT CHARSET=5,1  N  )SELECT CHARSET=0,1 )SELECT CHARSET=0,14  ( If you want to save the NON-CDS versions of CI and CIX and you did (( not use the $RTE_CDS flag in step 5D, you must rename these files at (( this time. The following transfer files will overlay these programs ( with CDS versions.   )MOVE ABS=90,1750  )SELECT CHARSET=13,1  - 6.0 Communicator/1000 - $ A-9 $1  RTE-A 6.0 Installation   )SELECT CHARSET=0,14   ( F. If you have the VC+ product, use VC1.CMD and VC2.CMD to link the ( VC+ programs as follows:   CI> wd /VCPLUS ' CI> vc1,,/targetprograms,/rte_a,/vcplus,abort,update,vc2 '  where: ' = new 6.0 snap file (following our convention, '& /gen/rev60/rtea60.snp). The file must have & the .SNP type extension.  & /targetprograms = directory to place newly compiled programs. & # /rte_a = directory that contains new 6.0 RTE-A #$ relocatables (may be a sub-directory). $ " /vcplus = directory that contains new 6.0 VC+ "$ relocatables (may be a sub-directory). $ ' abort = will abort transfer file if an error occurs. '* If not specified, the transfer file will continue. * ' update = will update /LIBRARIES, /CATALOGS, and /HELP. '* If not specified, the directories won't be updated. * ' vc2 = will transfer to VC2.CMD. If not specified, ' VC1.CMD will return to CI.   )SELECT CHARSET=0,14  6. BUILD your 6.0 memory-based system (if needed).  )SELECT CHARSET=0,21  ' If you are running memory-based, you MUST use the 6.0 revision of '& BUILD to create your 6.0 memory-based system. The upgrade60.cmd &$ file should have already loaded a 6.0 BUILD on your pre-6.0 $ system for you.   )SELECT CHARSET=0,14 7. Copy new system and snap files to the bootable LU. )SELECT CHARSET=0,21  $ For a bootable LU 16 as a FMGR cartridge, use the following: $  CI> wd, /gen/rev60  CI> co rtea60.snp snp60::16  CI> co rtea60.sys sys60::16  ( If your bootable LU is a CI volume, or if you are booting from a CI (( volume but your bootex is on a FMGR cartridge, then you will need to (# copy the system and snap files to the /SYSTEM directory. # )SELECT CHARSET=0,14   8. Prepare to boot the 6.0 system. )MOVE ABS=90,1750  )SELECT CHARSET=13,1  - 6.0 Communicator/1000 -  A-10 1  RTE-A 6.0 Installation   )SELECT CHARSET=0,14     )SELECT CHARSET=0,21 ( A. Set up the boot command file (usually BOOT.CMD) and Welcome file (( (usually WELCOMEn.CMD where n is a number from 1-99). Copies of (( your 5.2/5.27 boot command and welcome files can be used. Place (& these files on your bootable LU and on /SYSTEM, respectively. && Be sure to specify your 6.0 system and snap files in the boot & command file. ( It is recommended you comment out any references to subsystem and (' application start-up at this time. After you have successfully '& booted your RTE-A/VC+ system, you can remove the comments and & bring up your subsystems and applications.  ( Note that as of 5.27, there is no longer a requirement to have an ( 'EX' at the end of the Welcome file.   B. Install the 6.0 BOOTEX on your bootable LU.  )SELECT CHARSET=0,21    )SELECT CHARSET=5,1  N  )SELECT CHARSET=0,1 )SELECT CHARSET=0,14    ( The 6.0 revision of BOOTEX is NOT backwards-compatible with your (( 5.2/5.27 system. If you still wish to access your old system, you ( will need a second copy of BOOTEX on your disk.    )SELECT CHARSET=0,21 ( The 6.0 revision of BOOTEX must be used to slow-boot a 6.0 (( system. A disk-based system must be slow-booted at least once ( this way.  ( The 6.0 revision of /RTE_A/BOOTEX must be used as the "source" (( file to the INSTL utility (INSTL may be Rev.5020, Rev.5270, or (( Rev.6000). If an earlier revision of BOOTEX is used, an error (( similar to "All snap entry points not found: $SHSZ" is given (( after the "SN" command in the BOOT.CMD file. The FPUT utility () may be run to put down your BOOTEX file. Refer to the RTE-A )) Utilities Manual for more information on how and when to use the ) INSTL and FPUT utilities.  ( The following is an example of how this could be done for a CI LU ( 16; your LU and file names may be different.  * CI> instl,/system/rtea60.snp,/system/rtea60.sys,/gen/rev60/bootex, * 16,/rte_a/bootex   CI> fput,/gen/rev60/bootex,16   )SELECT CHARSET=0,1 )MOVE ABS=90,1750  )SELECT CHARSET=13,1  - 6.0 Communicator/1000 - $ A-11 $1  RTE-A 6.0 Installation   )SELECT CHARSET=0,1    C. Set up the /programs directory :  ( After doing this, you will no longer be able to boot your old (( system. If you wish to have a way to boot the 5.2/5.27 system (( again in case your 6.0 system does not boot correctly, you need (( to make another boot.cmd file and another welcome file. You (( should use your existing 5.2/5.27 boot.cmd and welcome files for (( this step. In the boot.cmd file, you need to access all programs (( in the /old_progs directory. Be sure to RP CIX from the (( /old_progs directory in the boot command file. In the welcome (# file, the following two lines must be added at the top: #  rn /programs /targetprograms  rn /old_progs /pro((grams  & To set up the /programs directory for 6.0, use the following: &  CI> wd /programs  CI> rn /programs /old_progs  CI> rn /targetprograms /programs   )SELECT CHARSET=0,14 ( 9. If running DATAPAIR/1000, then run PREPAIR on the 6.0 system file. ( )SELECT CHARSET=0,21  ( As usual, systems running DataPair/1000 must be processed by the (( PREPAIR utility before booting. It is not necessary to run the 6.0 ( revision of PREPAIR.  )SELECT CHARSET=0,14   10. Boot your 6.0 system.  )SELECT CHARSET=0,21  ( If you placed your BOOTEX at sector 0, your boot string will look ( something like this:   VCP> %BDC27   )SELECT CHARSET=0,1  ) Q;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;W )* : : ** : Perform the following steps only if you are satisfied that : ** : your new 6.0 system is working. : ** : : *) A;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;S )   )SELECT CHARSET=5,1  N  )SELECT CHARSET=0,1 )SELECT CHARSET=0,14  ( If you want auto-boot after a power-up, you will need to have a 6.0 ( BOOTEX at sector 0 of the bootable LU.   )SELECT CHARSET=0,14 )MOVE ABS=90,1750  )SELECT CHARSET=13,1  - 6.0 Communicator/1000 -  A-12 1  RTE-A 6.0 Installation   )SELECT CHARSET=0,14    11. Optional installation steps.  )SELECT CHARSET=0,21   A. Create symbolic links (if desired).  * A new command file, crlinks.cmd, may be executed on a 6.0 VC+ system *' with symbolic link capability to create several useful symbolic ' links. The links created are:   /programs/fgrep.run -> /programs/grep.run  /programs/ll.run -> /programs/ls.run  /programs/lsf.run -> /programs/ls.run  /programs/lsx.run -> /programs/ls.run  /programs/ftpls.run -> /programs/ls.run  /programs/cp.run -> /programs/lns.run  /programs/rm.run -> /programs/lns.run  /programs/mv.run -> /programs/lns.run  /help/fgrep -> /help/grep  /help/ll -> /help/ls  /help/lsf -> /help/ls  /help/lsx -> /help/ls  /help/uudecode -> /help/uuencode   crlinks.cmd is shipped with VC+. The usage is:  " wd /vcplus (you must be in the vcplus directory) " crlinks [/programsdir] [/helpdir]   where programsdir defaults to /PROGRAMS   helpdir defaults to /HELP   B. Update MACRO libraries (if needed).   Macro libraries used by the 6.0 version of ' MACRO must be compiled by the new MACRO. If an existing macro ' library * has not already been recompiled with the new MACRO, an error will be *$ generated when the 6.0 MACRO tries to use it, as follows: $ $ 21 >> Old macro library. Try: 'MACRO,-3,,,' $ ( Running MACRO with the suggested runstring will fix the problem. (  )SELECT CHARSET=0,14  12. Load Security/1000.  )SELECT CHARSET=0,21  ( There are two programs that must be loaded, SECTL and STGEN, for (( Security/1000. If you used the VC+ transfer files VC1.CMD and (" VC2.CMD, then these programs should already be loaded. ")MOVE ABS=90,1750  )SELECT CHARSET=13,1  - 6.0 Communicator/1000 - $ A-13 $1  RTE-A 6.0 Installation   )SELECT CHARSET=0,21    )SELECT CHARSET=0,14  13. Initialize Security/1000.  )SELECT CHARSET=0,21  ( To initialize and turn on the security each time the system is (( booted, the following line MUST BE THE FIRST COMMAND in the Welcome ( file:   ru,sectl,+in[:],+on  ( If the snap file name is not supplied, /system/snap.snp will be the () default name used. For more details please refer to the RTE-A ) System Manager's Manual.  )SELECT CHARSET=0,14   14. Load other RTE subsystem software.  )SELECT CHARSET=0,21  ( Load any subsystems needed to for your RTE-A/VC+ system, such as ( languages, networking, DEBUG/1000, etc.  )SELECT CHARSET=0,14   15. Load your own application software.  )SELECT CHARSET=0,21  ( Due to the change in the ID segment size, all of your existing ( software will need to be reloaded.  )SELECT CHARSET=0,14   16. Backup your new system.  )SELECT CHARSET=0,21 ( A. Build a new memory based ARSTR system. Using the 6.0 BUILD, (( ARSTR, and the current 6.0 system and snap files, create the type 1 (( file holding the memory based system. Use CI's 'CO' command to copy (( that file to magnetic tape (or use CSYS to put it on Linus tape), (( and then put this tape in a safe place to be used for restore if you (( have a disk crash. You should check to see that you can boot the ( ARSTR system from the tape you just made.  ( B. Before this new 6.0 system is complete, make an ASAVE of your (! system that you can restore in case of a disk crash. ! ) See the RTE-A Utilities Manual for more details on the above ) utilities.     ) This completes the update. The new system is now generated, ) installed, verified, and backed up.  )SET SHIFT=OFF;SISO )PRINTTEXT 1,0 )SELECT CHARSET=13,1 )ENVIRONMENT DSMARCOM )SELECT CHARSET=13,1 )MOVE ABS=90,1750  )SELECT CHARSET=13,1  - 6.0 Communicator/1000 -  A-14 1  RTE-A 6.0 Installation   )SELECT CHARSET=14,1    )SELECT CHARSET=14,1 ( Q;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;3;;;;;;;;;;;;;;;;;;W (( : : : (* : RTE-6/VM 6.0 Installation Cookbook : APPENDIX B : *( : : : (( A;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;4;;;;;;;;;;;;;;;;;;S ( )SELECT CHARSET=13,1     ( This appendix is intended as a guide to assist you in updating your HP (" 1000 RTE-6/VM system from version 5.2 or 5.27 to version 6.0. " )SELECT CHARSET=0,14   1. BACK UP your system (LUs 2 and 3) with PSAVE.  ( Make sure you have an up-to-date copy of !BCKOF on mag tape or cassette (( tape (264x terminals). If you do not, then use the transfer files (& provided with RTE-6/VM (*BCKMT or *BCKCT) to make up a current copy. & ( You may wish to back up your old RTE-6/VM software using FST or another ( backup utility.  & 2. Copy the 6.0 version of RTE-6 from tape to the /RTE_6 directory. & ( Begin by clearing some room on a CI volume and creating the global (( directory /RTE_6. If this directory already exists, then purge ALL the (( files in it before restoring any files to the system. You can then use TF ( or FST to restore the new files to the /RTE_6 directory.  & 3. Modify your answer file to reflect the changes required for 6.0. & ( You may want to keep a separate copy of your answer file for 6.0 (eg. (( create a new directory /GENS/R60 and copy your old answer file into it). (( There are no changes to the answer file required for the operating system ( at 6.0.  )SELECT CHARSET=0,14   Other Subsystems  ( If you need to change anything in the answer file for any other ( subsystems, you should do that now.  % 4. Run the generator and repeat the above cycle until the gen is % to your satisfaction.    5. Switch in the new system.  ( Now is the time to run SWTCH to install the new system. You do not want (( to autoboot. You may want to save the current cartridge list so the ()MOVE ABS=90,1750  )SELECT CHARSET=13,1  * 6.0 Communicator/1000 * $ B-1 $1  RTE-6/VM Installation   )SELECT CHARSET=0,14    current cartridges don't have to be remounted.   6. Boot up the system. (( ( Typically at this point, the system will boot up but will output error (( messages according to which subsystems need to be reloaded. Ignore these (( for the time being. The system will create a new $SYENT file on LU 2 for (( you. Log onto a terminal as the system manager and set your working ( directory to /RTE_6.   7. Reload programs.  ( There are three files provided with the RTE-6/VM product which facilitate (! the loading of the RTE-6 software. These are the following: !  *DOSNP Creates the SNAP file for LINK  ' INCI.CMD Loads the core CI file system utilities and copies '( $FMP6 to /LIBRARIES. This file can also create a CI ( volume if you do not have one.   LOAD6.CMD Loads the remaining RTE-6 programs  ( The INCI.CMD and LOAD6.CMD files contain a considerable amount of (( documentation about the installation process. You may wish to read both (( of them carefully before executing them. In addition, some programs which (( are typically not used are commented out and therefore not linked; you may (( wish to review those choices and perhaps uncomment some lines or comment ( out others.  ( The *DOSNP command file must be run from FMGR and is provided to create (( the LINK SNAP file. If you want several libraries to be automatically ( searched by LINK, you may want to run LINDX yourself.  ( If you have Fortran programs containing $FILES m,n directives and you want (( those programs to have access to files on CI volumes (new file system), (( then you should include the library $FNEWF in your LINDX command AND you ( should copy it to the /LIBRARIES directory. For example: )SELECT CHARSET=0,21  ) LINDX,SYSTEM,SNAP.6::2,$FMP6.LIB::LIBRARIES,$FNEWF.LIB::LIBRARIES,+NL ) CO,$FNEWF::RTE_6,$FNEWF.LIB::LIBRARIES   )SELECT CHARSET=0,14  ( This will create the SNAP file on LU 2. It will be copied to /SYSTEM ( later in the installation process.  ( Many programs have attributes which are assigned at link time according to (( their LINK command files. Before proceeding with the linking process, you ()MOVE ABS=90,1750  )SELECT CHARSET=13,1  * 6.0 Communicator/1000 *  B-2 1  RTE-6/VM Installation   )SELECT CHARSET=0,14   ( may wish to modify some of these LINK command files to make the programs ( run better on your system:  ( Example 1: You can match the size of FST's SHEMA to the actual size you (( have assigned to the FST1 SHEMA partition in the generation. The file ( FST.LOD describes how to do this.  ( Example 2: The LI program can be made to run in an ordinary 32-page (( partition by inhibiting VMA/EMA usage according to the comments in LI.LOD. ( ( INCI.CMD will take a number of parameters. The only place they are (( documented is in the INCI.CMD file itself; they are included here for your ( reference.   PARAMETER USE  * 1 This can be INIT, LOAD, or BOTH. If you are upgrading, * you need to use LOAD.  * 2 This is where the RTE-6 software resides. In this case, * we are using /RTE_6.  ) 3 Disk LU to initialize a CI volume. Leave this blank. )  The following are optional parameters:  ( 4 If LOAD6 is here, the LOAD6.CMD command file will be ( automatically executed.   5 Security Code for parameter 6.  ( 6 This is where the programs will be put. If this is () blank, they will be put into /PROGRAMS. If this is a )* FMGR CRN, then parameter 5 is used as the security code. * * 7 If this is NOLIBS, the command file will copy only $FMP6 *) to /LIBRARIES. If it is blank, INCI.CMD will pause to )& allow you to copy other libraries to /LIBRARIES. & * 8 Path for LINK maps. If this is blank, LINK will output * a warning message:  " LINK: ignoring command /.map " ( This can be ignored. If you would like to save the (( maps, enter the appropriate path for the directory. (' (Note: this directory must exist. It will not be ' created.) )MOVE ABS=90,1750  )SELECT CHARSET=13,1  * 6.0 Communicator/1000 * $ B-3 $1  RTE-6/VM Installation   )SELECT CHARSET=0,14     Here is the command line we used with INCI.CMD:  )SELECT CHARSET=0,21   INCI.LOAD,/RTE_6,,LOAD6,,,,/MAPS  ( This will load both the file utilities and the system programs, putting (( them into the /PROGRAMS directory, putting LINK managers into the /MAPS (( directory, and getting the software from /RTE_6. During this process, (( INCI will pause so that libraries can be moved that were put into the SNAP (' file earlier. You have to type all the commands yourself; for example: '  CO /RTE_6/$PASCAL.LIB /LIBRARIES/PASCAL.LIB D   )SELECT CHARSET=0,14  8. Restore the CM prompt.  ( The CM breakmode prompt is available in RTE-6 if the CM program is RP'd in (( the WELCOM file. CM is an exact copy of CI. If you want to have CM, ( include this command in the WELCOM file:   :RP,CI::2,CM  ( If you have generated CI into the system rather than loading it after (( generation, you first need to create a copy of CI on LU 2 so that the ( WELCOM file can RP it. From a FMGR prompt:   :SP,CI::2   9. Load any subsystem software.  ( This includes such subsystems as DS/1000, FTN7X, DEBUG, IMAGE/1000-II, ( PASCAL, BASIC/1000-C, etc.   10. Reboot and verify that everything now works.  ( After all the subsystems have been reloaded, you should now reboot and (( check that everything is functional. If there are any problems, then you ( need to fix them before proceeding.   11. Backup your system.  ( Now is the time to make the backup of your system. If you have an LU 3, (( then you will need to make a PSAVE of both LU 2 and LU 3. Making an FST (! backup of your CI volumes is also a good idea at this time. ! ( This completes the update. The new system is now generated, installed, ( verified, and backed up.  )ENVIRONMENT DSMARCOM )SELECT CHARSET=0,14  )MOVE ABS=90,1750  )SELECT CHARSET=13,1  * 6.0 Communicator/1000 *  B-4 1  RTE-6/VM Installation   )SELECT CHARSET=14,1    )SELECT CHARSET=14,1 ( Q;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;3;;;;;;;;;;;;;;;;;;W (( : : : (* : RTE-A Primary Answer File : APPENDIX C : *( : : : (( A;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;4;;;;;;;;;;;;;;;;;;S ( )SELECT CHARSET=0,14     ( This appendix is a copy of the 6.0 RTE-A Primary System Generation Answer (( File. This is intended to be used as reference and is contained in the ( file PRIMARY.ANS under the RTE-A (92077A) product.    *  * Source: 92077-17326 REV.6000 <921123.1058>  * $ * Primary.ans- RTE-A Primary System Generation Answer File to make $' * primary.sys(#92077-16954), primary.snp (#92077-16955) and primary.lst ' * (#92077-17278).  * * * *********************************************************************** ** * * * ** * * This half of the primary answer file is used only for Primary * ** * * System generation. It is NOT to be used with a user system. * ** * * To use this answer file as a sample for generating another * ** * * system, delete the first half of this file, and continue with * ** * * the instructions on the second half. * ** * * * ** * *********************************************************************** * * ( * This answer file is to be used in a PRIMARY memory-based system. There (( * is nothing generated into LU 1. It is required that the startup program () * be LUCFG.RUN, which maps the I/O card which has VCP enabled to the correct )( * select code, and the correct interface driver to LU 1. This generation ( * requir((es: $ * LU 1: ID100 at select code 20B (double-mapped if VCP port) $$ * LU 110: ID400 at select code 77B (double-mapped if VCP port) $$ * LU 120: ID800 at select code 30B (double-mapped if VCP port) $$ * LU 130: IDM00 at select code 23B (double-mapped if VCP port) $ * ( * Note that if mapping occurs, do not use the previous LU. (If 12100A is (' * the VCP port, LU 110 should not be used, since there are now two LUs ' * pointing to the same hardware.)  * * *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$* ** * * ** * DISCLAIMER * *)MOVE ABS=90,1750  * 6.0 Communicator/1000 *  )SELECT CHARSET=13,1 $ C-1 $1  )SELECT CHARSET=0,14 RTE-A Primary Answer File    * * ========== * ** * * ** * The Primary System is designed to be extremely flexible and serves * ** * two main purposes. First, it is used as a verification tool for all * ** * supported peripherals on the A-Series. Second, it is used to generate * ** * a customized system for the particular needs of the customer. * ** * * ** * To provide maximum flexibility the Primary System is NOT necessarily * ** * the configuration that HP recommends for the final system generation. * ** * Depending on the mix and cabling of the peripherals connected, the * ** * possibility exists of configuring the system in an unsupported manner, * ** * which can adversely impact system operation and performance. It is the * ** * responsibility of the user to be aware of these limitations and not * ** * violate the maximum number or mix of devices on a given interface to * ** * avoid the possibility of data corruption or diminished system performance.* ** * * ** * For support and configuration information, contact your local sales * ** * representative or customer engineer for the information. * ** * * ** *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$* * *  * I/O D E F I N I T I O N S  * ' * LU DEVICE SELECT CODE ADDRESS '' * ---- -------- ------------- --------- ' * SCSI  * ===== % * 44 SCSI DAT tape 25B 3 %% * 35 SCSI 7980S 25B 3 %% * 20-21 SCSI hard disk 25B 6 %% * 22-23 SCSI 650A MO disk 25B 5 %% * 60 SCSI floppy single sided 25B 0 %% * 61 SCSI floppy doubled sided 25B 0 % * HP-IB  * ===== & * 25 HP-IB controller 26B 36B &% * 26-27 HP-IB disk 26B 2 %% * 40 HP-IB disk 20mb (overlay) 26B 2 %% * 41 CS-80 flexible disk single sided 26B 2 %% * 42 CS-80 flexible disk doubled sided 26B 2 %% * 54 CS-80 compatible cartridge tape cache 26B 2 %% * 28-29 2nd HP-IB disk 26B 0 %% * 39 9144/5 standalone CS-80 cartridge tape 26B 1 %% * 37 7974A/7978A streaming tape drive 26B 3 %% * 38 7970 HP-IB tape drive 26B 4 %% * 36 2932A line printer 26B 7 % * % * 85 2608S,2563A,2566A line printer 26B 7 %)MOVE ABS=90,1750  * 6.0 Communicator/1000 *  )SELECT CHARSET=13,1  C-2 1  )SELECT CHARSET=0,14 RTE-A Primary Answer File     *  * SCSI/HP-IB  * ========== % * 14 Reserved for SCSI DAT tape 27B 3 %% * 5 Reserved for SCSI 7980S 27B 3 %% * 10-11 Reserved for SCSI hard disk 27B 6 %% * 12-13 Reserved for SCSI MO 27B 5 %% * 50-51 Reserved for SCSI floppy 27B 0 % * & * 15 Reserved for HP-IB controller 27B 36B &% * 16-17 Reserved for HP-IB hard disk 27B 2 %% * 30 Reserved for HP-IB hard disk 27B 2 %% * 31 Reserved for single sided floppy 27B 2 %% * 32 Reserved for doubled sided floppy 27B 2 %% * 24 Reserved for CS/80 cartridge tape 27B 2 %% * 18-19 Reserved for 2nd HP-IB disk 27B 0 %% * 9 Reserved for 9144/45 cartridge tape 27B 1 %% * 7 Reserved for 7974/78 streaming tape 27B 3 %% * 8 Reserved for 7970 tape 27B 4 %% * 6 Reserved for 2932A line printer 27B 7 % *  * TERMINALS  * =========  * 100 12005 ASIC #1 20B  * 110-113 12100 A400 OBIO 4-channel MUX 77B  * 120-127 12040 Rev D 8-channel MUX 30B  * 130-137 12040 Rev A,B,C 8-channel MUX 23B  * ( * You can load the Primary system from either a SCSI or an HP-IB disk on (( * select code 27B. After the Primary system is loaded, the select codes ( * 25B through 27B look like:  *  * SC ADDR LU SCSI system HP-IB system  * --- ---- ----- ----------------- ----------------  * 25b 5 22-23 -- SCSI MO disk  * 3 44/35 -- SCSI DAT/7980S  * 6 20-21 -- SCSI hard disk  * 0 60-61 -- SCSI floppy  *  * 26b 2 26-27/40 HP-IB disk --  * 2 41 floppy (single) --  * 2 42 floppy (doubled) --  * 2 54 HP-IB cartridge --  * 0 18-19 HP-IB disk --  * 1 39 9144/45 cartridge--  * 3 37 7974/78 tape --  * 4 38 7970 tape --  * 7 36/85 printer -- )MOVE ABS=90,1750  * 6.0 Communicator/1000 *  )SELECT CHARSET=13,1 $ C-3 $1  )SELECT CHARSET=0,14 RTE-A Primary Answer File     * 36b 25 HP-IB controller --  *  * 27b 2 16-17/30 -- HP-IB disk  * 2 31 -- floppy (single)  * 2 32 -- floppy (doubled)  * 2 24 -- HP-IB cartridge  * 0 18-19 -- 2nd HP-IB disk  * 1 9 -- 9144 cartridge  * 3 7/14/5 DAT/7980S 7974/78 tape  * 4 8 -- 7970 tape/DAT  * 5 12-13 SCSI MO disk --  * 6 10-11 SCSI hard disk --  * 0 50-51 SCSI floppy --  * 7 6 -- 2392A printer  * 36b 15 -- HP-IB controller  * & ********************************************************************** & links,cp,, Use current page links  * =======================  * System Relocation Phase  * ======================= " le,off, Do not list the module entry points " er,, Echo errors to the terminal  re %vctr:92570,, Entry points  tg 700 Number of tags required  re %mapos:92077,, Partitioned OS tag routines % re %rpl60:92077,, No CDS no double precision floating point % re %exec:92077,, EXEC request processing  re %rtioa:92077,, Real-Time I/O control  re %maps:92570,, Dynamic mapping system routines  re %progs:92570,, Program state processing  re %util:92570,, System variables and utilities  re %sam:92077,, System available memory  re %sched:92570,, Programmatic program scheduling  re %strng:92077,, Runstring passing  re %erlog:92570,, Error Logging  re %opmsg:92077,, Operating system messages  re %sycom:92570,, (( Operator commands  re %iomod:92570,, I/O module  re %id*43:92077,, Power fail driver  re %signl:92570,, Signals module  re %$idrpl:92570,, System ID dup IDRPL # re $math:24998,.dmp, Required for A600 without CDS (RPL60) ## re $math:24998,.ddi, Required for A600 without CDS (RPL60) # *  se $syslb:92570,, Search the system library  *  * define partitionable modules )MOVE ABS=90,1750  * 6.0 Communicator/1000 *  )SELECT CHARSET=13,1  C-4 1  )SELECT CHARSET=0,14 RTE-A Primary Answer File     *  pa perr,xcmnd,stat,dsq,vema,lock,load,memry,iorq  pa time,class,abort,alarm  *  ms $sysa:92570,, Search the system dummy library  *  end, End system relocation phase  * ================================  * OS module/Driver partition Phase  * ================================  *  re %load:92570,, Program loading and swapping  end  *  re %memry:92570,, Memory management module  end  *  re %iorq:92570,, I/O request processing  end  *  re %lock:92570,, LU locking and resource numbers  re %time:92077,, Time scheduling of programs  end  *  re %class:92570,, Class I/O module  end  * ! re %xcmnd:92570,, Operator command extension module ! re %stat:92077,, Status command module  re %dsq:92570,, NS/1000 module  end  *  re %perr:92570,, Parity error handler  re %vema:92570,, Virtual memory module  end  *  re %alarm:92077,, Timer signal processing module  end  *  re %abort:92570,, Abort processing module  end  *  * Driver partitions  *  re ddq30.rel:92077,, Device driver for SCSI disks  re id100.rel:92077,, Interface driver for 12005 ASIC  end  * )MOVE ABS=90,1750  * 6.0 Communicator/1000 *  )SELECT CHARSET=13,1 $ C-5 $1  )SELECT CHARSET=0,14 RTE-A Primary Answer File     re ddq24.rel:92077,, Device driver for SCSI DAT tape $ re %dd*24:92077,, Device driver for 7974/78 straming tape $ end  *  re idq35.rel:92077,, SCSI interface drvier  end  *  re %dd*33:92077,, Device driver for CS/80 disks  end  *  re %id*37:92077,, Interface driver for CS/80 disks ! re,pri27.rel:92077,, Driver for the Primary system only ! end  *  re id400.rel:92077,, Interface driver for A400 OBIO  end  * " re %idm00:92077,, Interface driver for 12040 A/B/C MUX " re %dd*23:92077,, Device driver for magnetic tape  end  * $ re ddc00.rel:92077,, Device driver for 100 series interfaces $ end  * % re id800.rel:92077,, Interface driver for 12040D 8-channel MUX %" re %dd*12:92077,, Device driver for HP-IB line printer " end  * " re %ddc12:92077,, Device driver for HP-IB line printer " end  *  re %dd*00:92077,, Device driver for A/B/C MUX  end  * " end,, End OS module/Driver partition phase " * ======================  * Table Generation Phase  * ======================  * & * SCSI -- hard disk, MO and DAT tape Select Code = 25b & *  ift,idq35.rel:92077,SC:25B  * " * SCSI hard disk SCSI address 6, LU 20-21 " *  dvt,ddq30_gen.rel:92077, m64mb:0, lu:20 dp:1:6 dp:8:1  dvt,ddq30_gen.rel:92077, m64mb:1, lu:21 dp:1:6 dp:8:1  * )MOVE ABS=90,1750  * 6.0 Communicator/1000 *  )SELECT CHARSET=13,1  C-6 1  )SELECT CHARSET=0,14 RTE-A Primary Answer File    " * SCSI 650A MO disk SCSI address 5, LU 22-23 " *  dvt,ddq30_gen.rel:92077, m64mb:0, lu:22 dp:1:5 dp:8:3  dvt,ddq30_gen.rel:92077, m64mb:1, lu:23 dp:1:5 dp:8:3  * " * SCSI DAT/7980S SCSI address 3, LU 44/35 " *  dvt,ddq24_gen.rel:92077,,lu:44,dp:1:3  dvt,ddq24_gen.rel:92077,M7980,lu:35,dp:1:3  *  * SCSI floppy single sided LU 60  *  dvt,ddq30_gen.rel:92077,m16mb:0,lu:60,dp:1:0:0:0:0:0,-  dp:6:66:16:0  *  * SCSI floppy double sided LU 61  *  dvt,ddq30_gen.rel:92077,m16mb:0,lu:61,dp:1:0:0:0:0:0,-  dp:6:154:16:0  * & * HP-IB -- disks, magnetic tape and printer Select Code = 26b & *  ift,%id*37:92077,SC:26B  * ! * Bus Controller LU HP-IB address 36b, LU 25 ! *  dvt,,,LU:25,TO:2000,DT:77B,TX:0,DX:1,DP:1:36B,PR:0  * $ * HP-IB disk 64MB/20MB HP-IB address 2, LU 26-27/40 $ * % dvt,%dd*33:92077 m7908_cf:0 lu:26 dp:1:2 dp:2:0:0:00:0:4096 dp:7:64 %% dvt,%dd*33:92077 m7908_cf:0 lu:27 dp:1:2 dp:2:0:0:04:0:4096 dp:7:64 % % dvt,%dd*33:92077 m7908_cf:0 lu:40 dp:1:2 dp:2:0:0:00:0:1215 dp:7:64 % * & * Flexible disk single/doubled sided HP-IB address 2, LU 41/42 & *  dvt,%dd*33:92077 m_floppy_cf:1 lu:41 dp:1:2:400b:0:0:0,-  dp:6:66:16:0  dvt,%dd*33:92077,m_floppy_cf:1,lu:42,dp:1:2  *  * Cartridge tape with cache HP-IB address 2, LU 54  *  dvt,%dd*33:92077,mtape,lu:54,dp:1:2 dp:5:768  * " * 2nd HP-IB disk HP-IB address 0, LU 28-29 " * % dvt,%dd*33:92077 m7908_cf:0 lu:28 dp:1:2 dp:2:0:0:00:0:4096 dp:7:64 %)MOVE ABS=90,1750  * 6.0 Communicator/1000 *  )SELECT CHARSET=13,1 $ C-7 $1  )SELECT CHARSET=0,14 RTE-A Primary Answer File    % dvt,%dd*33:92077 m7908_cf:0 lu:29 dp:1:2 dp:2:0:0:04:0:4096 dp:7:64 % * ! * 9144/45 CS-80 cartridge tape HP-IB address 1, LU 39 ! *  dvt,%dd*33:92077,M9144:0,LU:39,DP:1:1  * ! * 7974/78 streaming tape drive HP-IB address 3, LU 37 ! *  dvt,%dd*24:92077,M7974:0,LU:37,DP:1:3  * ! * 7970 tape drive HP-IB address 4, LU 38 ! *  dvt,%dd*23:92077,M7970E:0,LU:38,DP:1:4,PR:1  * ! * 2932A Line Printer HP-IB address 7, LU 36 ! *  dvt,%dd*12:92077,M2932A,LU:36,DT:12B,DP:1:7  * & * 2608S,2563A,2566A line printer HP-IB address = 7 LU 85 & *  dvt,%ddc12:92077,,lu:85,dp:1:7  *  * & * Primary driver for HP-IB/SCSI Select Code = 27b & *  ift,%id*37:92077 sc:27b  dvt,pri27.rel:92077,,lu:15 dp:1:36b  dvt,pri27.rel:92077,,lu:16 dp:1:2 dt:33b  dvt,pri27.rel:92077,,lu:17 dp:1:2 dt:33b  dvt,pri27.rel:92077,,lu:30 dp:1:2 dt:33b  dvt,pri27.rel:92077,,lu:31 dp:1:2 dt:33b  dvt,pri27.rel:92077,,lu:32 dp:1:2 dt:33b  dvt,pri27.rel:92077,,lu:24 dp:1:2 dt:26b  dvt,pri27.rel:92077,,lu:9 dp:1:1 dt:26b  dvt,pri27.rel:92077,,lu:18 dp:1:0 dt:33b  dvt,pri27.rel:92077,,lu:19 dp:1:0 dt:33b  dvt,pri27.rel:92077,,lu:7 dp:1:3 dt:24b  dvt,pri27.rel:92077,,lu:8 dp:1:4 dt:23b   dvt,pri27.rel:92077,,lu:14 dp:1:3 dt:24b  dvt,pri27.rel:92077,,lu:5 dp:1:3 dt:24b  dvt,pri27.rel:92077,,lu:12 dp:1:5 dt:30b  dvt,pri27.rel:92077,,lu:13 dp:1:5 dt:30b  dvt,pri27.rel:92077,,lu:10 dp:1:6 dt:30b  dvt,pri27.rel:92077,,lu:11 dp:1:6 dt:30b  dvt,pri27.rel:92077,,lu:50 dp:1:0 dt:30b  dvt,pri27.rel:92077,,lu:51 dp:1:0 dt:30b  )MOVE ABS=90,1750  * 6.0 Communicator/1000 *  )SELECT CHARSET=13,1  C-8 1  )SELECT CHARSET=0,14 RTE-A Primary Answer File     dvt,pri27.rel:92077,,lu:6 dp:1:7  *  * Terminal LUs  * ' * NOTE: There is no LU defined as LU 1. This points to the bit bucket. ' * & * ASIC #1 Terminal Select Code = 20B &! * LU 100 ! ift,id100.rel:92077,sc:20B  dvt,ddc00.rel:92077,MHP_Term:A,lu:100  * & * 12100A A400 OBIO 4-channel MUX ports A-D Select Code = 77B &# * LU 110-113 # *  ift,id400.rel:92077  dvt,ddc00.rel:92077,MHP_Term:0,lu:110  dvt,ddc00.rel:92077,MHP_Term:1,lu:111  dvt,ddc00.rel:92077,MHP_Term:2,lu:112  dvt,ddc00.rel:92077,MHP_Term:3,lu:113  * & * 12040D Revision D 8-channel MUX port 0-7 Select Code = 30B &# * LU 120-127 # *  ift,id800.rel:92077,sc:30B  dvt,ddc00.rel:92077,MHP_Term:0,lu:120  dvt,ddc00.rel:92077,MHP_Term((:1,lu:121  dvt,ddc00.rel:92077,MHP_Term:2,lu:122  dvt,ddc00.rel:92077,MHP_Term:3,lu:123  dvt,ddc00.rel:92077,MHP_Term:4,lu:124  dvt,ddc00.rel:92077,MHP_Term:5,lu:125  dvt,ddc00.rel:92077,MHP_Term:6,lu:126  dvt,ddc00.rel:92077,MHP_Term:7,lu:127  *  * 12040 A-C 8-channel MUX port 0-7 select code = 23B  *  ift,%idm00:92077,sc:23B, tx:20  *  dvt,%dd*00:92077,m26xx,lu:130,dp:1:20004B,tx:57,-  dp:5:CI:20040B:20040B:0,dp:9:CM:20040B:20040B:CM  dvt,%dd*00:92077,m26xx,lu:131,dp:1:20004B,tx:57,-  dp:5:CI:20040B:20040B:0,dp:9:CM:20040B:20040B:CM  dvt,%dd*00:92077,m26xx,lu:132,dp:1:20004B,tx:57,-  dp:5:CI:20040B:20040B:0,dp:9:CM:20040B:20040B:CM  dvt,%dd*00:92077,m26xx,lu:133,dp:1:20004B,tx:57,-  dp:5:CI:20040B:20040B:0,dp:9:CM:20040B:20040B:CM  dvt,%dd*00:92077,m26xx,lu:134,dp:1:20004B,tx:57,-  dp:5:CI:20040B:20040B:0,dp:9:CM:20040B:20040B:CM  dvt,%dd*00:92077,m26xx,lu:135,dp:1:20004B,tx:57,- )MOVE ABS=90,1750  * 6.0 Communicator/1000 *  )SELECT CHARSET=13,1 $ C-9 $1  )SELECT CHARSET=0,14 RTE-A Primary Answer File     dp:5:CI:20040B:20040B:0,dp:9:CM:20040B:20040B:CM  dvt,%dd*00:92077,m26xx,lu:136,dp:1:20004B,tx:57,-  dp:5:CI:20040B:20040B:0,dp:9:CM:20040B:20040B:CM  dvt,%dd*00:92077,m26xx,lu:137,dp:1:20040B,tx:57,-  dp:5:CI:20040B:20040B:0,dp:9:CM:20040B:20040B:CM  *  end,, End of dvt generation phase  end,, End of ift generation phase  * ================= * Define Node Lists * =================  node,16,17,30,31,32,24  node,26,27,40,41,42,54  node,18,19  node,28,29  node,10,11  node,20,21  node,12,13  node,22,23  node,50,51  node,60,61  end, End node list  *  end, End table generation phase  * ================= * Memory Allocation * =================  clas 150, Class number allocation & resn 30,10 Resource number allocation/debug table spec. & id 150, ID segment allocation  rs -150, Memory descriptor allocation  sam 32767,4096 SAM allocation/XSAM  sl 200 1048, Spool limits " bg 30, Background swap priority allocation " qu 300 50, Quantum time slice value $ sp 30,10 Shared programs/extended schedule table $( mb 0, Number of memory blocks for NS/1000 (0 if no NS) ($ us 1, Number of concurrent users (1 if no VC+) $! lb,, LOGOF buffer limit (use defaults) ! * ================================  * Labeled System Common Relocation  * ================================  *  * Add the system common table for HpMdm.run  *  re hpmdm_table.rel:92077  *  * )MOVE ABS=90,1750  * 6.0 Communicator/1000 *  )SELECT CHARSET=13,1  C-10 1  )SELECT CHARSET=0,14 RTE-A Primary Answer File    " end, End labeled system common relocation " *  * Unlabeled (Blank) Common  *  com 1024, Number of words of memory to use * =============== * System Messages * ===============  re %msgtb:92089,, Message table  end  *  re %$m000:92089,, Message module  end  *  end, End system messages  * ================ * System Libraries * ================ lib sec1000.lib lib $biglb.lib  end, End system libraries  *  end  *  * * *%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%* *) * /| * )* * | * ** * FIRST HALF, HP PRIMARY ONLY! -------+ * ** * SECOND HALF, SAMPLE ANSWER FILE -------+ * ** * | * *) * |/ * )* *%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%* * *  *  * RTE-A Sample System Generation Answer File  * * * *********************************************************************** ** * * * ** * * This half of the Primary answer file is designed to be edited * ** * * and used for a system-specific generation. To use this file, * ** * * first delete the first half of this file, then uncomment the * ** * * required lines (marked with a "*!") and any specific system * ** * * modules required by removing the appropriate comment character. * ** * * * ** * * For further information, refer to the RTE-A System Generation * ** * * and Installation Manual, part no. 92077-90034. * ** * * * *)MOVE ABS=90,1750  * 6.0 Communicator/1000 *  )SELECT CHARSET=13,1 $ C-11 $1  )SELECT CHARSET=0,14 RTE-A Primary Answer File    * * * 1. Uncomment all required modules by removing the string * ** * * "*!REMOVE!". Refer to the EDIT/1000 User's Guide, part no. * ** * * 92074-90001, and the note at the bottom of these instructions * ** * * for information on how to use EDIT/1000 to edit this file. * ** * * * ** * * 2. To select your system disk, remove *!REMOVESCSI! for SCSI * ** * * disk, remove *!REMOVEHPIB! and *!REMOVEHPIB64! for 64MB HP-IB * ** * * disk, or remove *!REMOVEHPIB! and *!REMOVEHPIB20! for 20MB * ** * * HP-IB disk. * ** * * * ** * * 3. If you want VC+ in your system, uncomment all VC+ modules * ** * * by removing the string "*!YESVC+!"; otherwise uncomment * ** * * the non-VC+ modules by removing the string "*!NO_VC+!". * ** * * VC+ is supplied with the HP 92078A Virtual Code+ package, * ** * * a product which allows a multiuser environment and spooling. * ** * * * ** * * 4. If you have NS/1000 and LAN/1000 in your system, uncomment * ** * * all NS/1000 and LAN/1000 modules by removing the string * ** * * "*!YES_NS!"; otherwise, uncomment the non-NS modules by * ** * * removing the string "*!NO__NS!". If you have NS/1000 but not * ** * * LAN/1000 in your system, refer to the NS subsystems' answer * ** * * file. * ** * * * ** * * 5. If you have APRA/1000 in your system, rename the "NS1000" * ** * * directory to "APRA1000" and comment the %adv00 driver and LU * ** * * mapping (lu 81 - 82) out. * ** * * * ** * * 6. If you do not use an ASIC card as LU 1 (as generated in * ** * * this system) comment it out and change one of the * ** * * terminal LUs generated into the system (such as the * ** * * 8-channel multiplexer) as LU 1. * ** * * * ** * * 7. Uncomment the "*" before the RPL file you will be using * ** * * according to your hardware configuration. If you are using * ** * * the A600 (not the A600+), i.e., %RPL60, you will need to * ** * * remove the string "*!RPL60_!". If you are using the A900 and * ** * * NS/1000, choose %RPL91 then either rpl_a900_rev4.rel (rev.4 * ** * * firmware or later) or xmb.rel (pre rev.4 firmware). * ** * * * ** * * 8. If you don't have NS/1000 in your system and you want to use * ** * * the DDC00/DDC01 modem handler, HPMDM.RUN, uncomment the * ** * * "*!YES_NS!" before HPMDM_TABLE.REL. If you want to save * ** * * space, and not use terminal cassette tapes and slaved * **(( * * devices, use DDC00.REL wherever DDC01.REL is specified. * ** * * * ** * * 9. Run the RTE-A generator (RTAGN) on the answer file, * ** * * producing a new system and snap file. Place them on * ** * * the /SYSTEM directory (on the LU mounted by BOOTEX). * *)MOVE ABS=90,1750  * 6.0 Communicator/1000 *  )SELECT CHARSET=13,1  C-12 1  )SELECT CHARSET=0,14 RTE-A Primary Answer File    * * * * ** * * 10. Create a new welcome command file (or copy WELCOME1.CMD). * ** * * Modify it to copy your new snap file to /SYSTEM/SNAP.SNP. * ** * * * ** * * 11. Create a new boot command file (or copy BOOT.CMD). Modify * ** * * this boot command file to designate the system and snap * ** * * files just created. Also modify the startup program * ** * * (st,,nn) to indicate your new welcome file (welcomenn.cmd), * ** * * where nn is between 1 and 99. * ** * * * ** * * 12. Boot the new system as before, specifying the new boot * ** * * command file in the VCP> string. In this way, you can save * ** * * the Primary System as a backup system. * ** * * * ** * * NOTE: EDIT/1000 can perform the string removal with the * ** * * command ".,$x/*!REMOVE!//" (this edit command removes * ** * * all occurences of "*!REMOVE!" from the current line * ** * * until the end of the file. Be sure you are at the * ** * * first line you want to modify when you execute this * ** * * command. * ** * * * ** * *********************************************************************** * *  * * *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$* ** * * ** * DISCLAIMER * ** * ========== * ** * * ** * The Primary System is designed to be extremely flexible and serves * ** * two main purposes. First, it is used as a verification tool for all * ** * supported peripherals on the A-Series. Second, it is used to generate * ** * a customized system for the particular needs of the customer. * ** * * ** * To provide maximum flexibility the primary system is NOT necessarily * ** * the configuration that HP recommends for the final system generation. * ** * Depending on the mix and cabling of the peripherals connected, the * ** * possibility exists of configuring the system in an unsupported manner, * ** * which can adversely impact system operation and performance. It is the * ** * responsibility of the user to be aware of these limitations and not * ** * violate the maximum number or mix of devices on a given interface to * ** * avoid the possibility of data corruption or diminished system performance.* ** * * ** * For support and configuration information, contact your local sales * ** * representative or customer engineer for the information. * ** * * ** *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$* * * )MOVE ABS=90,1750  * 6.0 Communicator/1000 *  )SELECT CHARSET=13,1 $ C-13 $1  )SELECT CHARSET=0,14 RTE-A Primary Answer File     * I/O D E F I N I T I O N S  * ' * LU DEVICE SELECT CODE ADDRESS '' * ---- -------- ------------- --------- ' *  * SCSI #1  * ======== % * 5 SCSI 7980S 27B 4 %% * 14 DAT tape 27B 3 %% * 12-13 650A 27B 5 %% * 10-11 SCSI hard disk 27B 6 %% * 50 SCSI floppy(single sided) 27B 0 %% * 51 SCSI floppy(double sided) 27B 0 % *  * HP-IB #1  * ======== % * High-speed disk interface bus (load resistors installed), %$ * maximum cable length 12 meters, 1 meter per device-load. $ * ======== ' * Maximum of 4 devices (up to four disks, four 9144/45 cartridge '# * tape units, or three of the above and one 7974/79/80). # * ======== % * If a 7974/79/80 is on the bus, the maximum cable length is % * 8 meters.  * ======== % * If this interface is connected to the 12122A internal disk %' * in the 248X computer, no other device can be connected to this ' * interface.  * & * 15 HP-IB #1 controller 27B 36B & * % * 18-19 HP-IB disk 27B 0 %% * 9 9144/5 standalone CS-80 cartridge tape 27B 1 %% * 16-17 HP-IB disk 27B 2 %% * 30 HP-IB disk (20MB) 27B 2 %% * 24 CS-80 compatible cartridge tape cache 27B 2 %% * 53 3.5" single-sided disk (9153/4) 27B 2 %% * 54 3.5" double-sided disk (9153/4) 27B 2 %% * 7 7974A/7978A streaming tape drive 27B 3 %% * 44-47 9133XV/4XV 5.25" Winchester hard disk 27B 4 %% * 36-37 9122D double-sided floppy 27B 5 %% * 32-33 9121 flexible disk 27B 6 %% * 41-43 9133H/34H 5.25" Winchester fixed disk 27B 7 %% * 61 9133H 3.5" flexible disk 27B 7 % *  * HP-IB #2  * ======== $ * Low speed magnetic tape bus (load resistors installed), $)MOVE ABS=90,1750  * 6.0 Communicator/1000 *  )SELECT CHARSET=13,1  C-14 1  )SELECT CHARSET=0,14 RTE-A Primary Answer File     * a maximum of 2 7970 tape drives are supported.  * ========  * Maximum cable length is 20 meters.  * & * 40 HP-IB #2 controller 26B 36B &% * 8 7970 HP-IB tape drive 26B 4 %% * 28 7970 HP-IB tape drive 26B 6 % *  * HP-IB #3  * ======== $ * High speed magnetic tape bus (load resistors installed), $" * a maximum of 2 7974/79/80 tape drives are supported. " * ========  * Maximum cable length of 10 meters.  * & * 48 HI-IB #3 controller 31B 36B &% * 34 7974A/7980A streaming tape drive 31B 5 %% * 35 7974A/7980A streaming tape drive 31B 7 % *  * HP-IB #4  * ========  * Low speed peripheral / instrument bus.  * Maximum cable length of 2 meters per device.  * ======== ' * A maximum of two 256X printers are supported on one interface; ' * no other devices are supported with them  * & * 91 HP-IB #4 controller 25B 36B &% * 85 2608S,2563A,2566A line printer 25B 1 %% * 6 2932A line printer 25B 2 %% * 92 device #1 25B 3 %% * 93 device #2 25B 4 %% * 94 device #3 25B 5 %% * 95 device #4 25B 6 %(( * % * 248X INTEGRATED DISKS (Micro/1000 with 12022A controller) %% * ========================================================= % *  * 55,62 15MB hard disk 32B  * 59,60 20MB hard disk 32B  * 39 single-sided 3.5" flexible disk 32B  * 63 double-sided 3.5" flexible disk 32B  *  * NETWORK LINKS (NS/1000 and IEEE802.3 LAN) * ========================================  *  * 79,80 Telnet LU  * 81,82 NS/1000 LU mapping 37B )MOVE ABS=90,1750  * 6.0 Communicator/1000 *  )SELECT CHARSET=13,1 $ C-15 $1  )SELECT CHARSET=0,14 RTE-A Primary Answer File     * 96,97 12076A 802.3 LAN card 37B  *  * PARALLEL INTERFACE CARD  * =======================  * 84 Parallel Interface card 35B  *  * TERMINALS  * =========  * ) * Terminal configuration (NOTE: The 12005 is configured as system console )& * LU 1. LUs may be swapped to designate another device as the new &# * system console. You should have a system console device.) # *  * 1 12005 ASIC #1 20B  * 100 12005 ASIC #2 21B  * 110-113 12100 A400 OBIO 4-channel MUX 77B  * 211 slaved device(printer) port B  * 212 left CTU port B  * 213 right CTU port B  * 120-127 12040D 8-channel MUX 30B  * 221 slaved device(printer) port 1  * 222 left CTU port 1  * 223 right CTU port 1  * 130-137 12040A/B/C 8-channel MUX 23B  *  * Free lus:  * 2-4, 20-23, 25-27, 29, 31, 38, 49, 56-58, % * 64-69, 70-78, 83, 86-89, 90, 98, 99, 101-109, 114-119, 140-210, % * 214-219, 220, 224-255.  *  *!REMOVE!links,cp,, Use current page links  *  * System Relocation  * " *!REMOVE!er,, Echo errors to the terminal "& *!REMOVE!le,off, Do not list the module entry points & *!REMOVE!re /rte_a/%vctr,, Entry points  *!REMOVE!tg 950 Number of tags required " *!REMOVE!re /rte_a/%mapos,, Partitioned OS tag routines " * ( * ################################################################### (( * # # (( * # If you use an RPL file for a hardware configuration with # (( * # fewer features than yours, your system will not be performing # (( * # as well as it could. You may not use an RPL file for a # (( * # hardware configuration with more features than yours. # (( * # # (( * # Choose the correct RPL file for your system from the # ()MOVE ABS=90,1750  * 6.0 Communicator/1000 *  )SELECT CHARSET=13,1  C-16 1  )SELECT CHARSET=0,14 RTE-A Primary Answer File    ( * # choices below and remove the "*" in front of it. # (( * # # (( * ################################################################### ( * ' * DOUBLE PRECISION '& * RPL FILE PROCESSOR TYPE CDS FLOATING POINT &' * ---------- ---------------- ----- ------------------ '# *re /rte_a/%rpl40,, A400 NO NO ## *re /rte_a/%rpl41,, A400 NO YES ## *re /vcplus/%rpl42,, A400 YES NO ## *re /vcplus/%rpl43,, A400 YES YES ## *re /rte_a/%rpl60,, A600 NO NO ## *re /rte_a/%rpl61,, A600+ NO YES ## *re /vcplus/%rpl63,, A600+ YES YES ## *re /rte_a/%rpl70,, A700 NO NO ## *re /rte_a/%rpl71,, A700 NO YES ## *re /vcplus/%rpl72,, A700 YES NO ## *re /vcplus/%rpl73,, A700 YES YES ## *re /rte_a/%rpl90,, A900 NO YES ## *re /vcplus/%rpl91,, A900 YES YES ## *re /rte_a/rpl_a990.rel,, A990 NO YES ## *re /vcplus/rpl_a990_cds.rel,, A990 YES YES # * $ * ########################################################### $$ * # # $$ * # For A900 with either NS/1000 or %envrn, choose either # $$ * # rpl_a900_rev4.rel (rev.4 firmware or later) or # $$ * # xmb.rel (pre rev.4 firmware) # $$ * # # $$ * ########################################################### $ *  *re /rte_a/rpl_a900_rev4.rel * *re /rte_a/xmb.rel,mb02 For NS/1000 with A900 pre rev.4 firmware only *$ *re /rte_a/xmb.rel,mb12 For either NS/1000 or %envrn with $# * A900 pre rev.4 firmware only #) *re /rte_a/xmb.rel,mb01 For %envrn with A900 pre rev.4 firmware only )) *re /rte_a/xmb.rel,mb10 For %envrn with A900 pre rev.4 firmware only )) *re /rte_a/xmb.rel,mb21 For %envrn with A900 pre rev.4 firmware only ) *  *!REMOVE!re /rte_a/%exec,, EXEC request processing  *!REMOVE!re /rte_a/%rtioa,, Real-Time I/O control  *!REMOVE!re /rte_a/%iomod,, I/O module $ *!REMOVE!re /rte_a/%maps,, Dynamic mapping system routines $! *!REMOVE!re /rte_a/%progs,, Program state processing !$ *!REMOVE!re /rte_a/%util,, System variables and utilities $ *!REMOVE!re /rte_a/%sam,, System available memory $ *!REMOVE!re /rte_a/%sched,, Programmatic program scheduling $ *!REMOVE!re /rte_a/%strng,, Runstring passing )MOVE ABS=90,1750  * 6.0 Communicator/1000 *  )SELECT CHARSET=13,1 $ C-17 $1  )SELECT CHARSET=0,14 RTE-A Primary Answer File     *!REMOVE!re /rte_a/%erlog,, Error logging ! *!REMOVE!re /rte_a/%opmsg,, Operating system messages ! *!REMOVE!re /rte_a/%sycom,, Operator commands  *!REMOVE!re /rte_a/%id*43,, Power-fail driver  *!REMOVE!re /rte_a/%$IDRPL,, System ID dup IDRPL ! *!REMOVE!re /rte_a/%signl,, Signal processing module ! *!YESVC+!re /vcplus/secos.rel,, Security/1000 module  *!YESVC+!re /vcplus/check.rel,, Security/1000 module  *!YESVC+!re /vcplus/%spool,, Spooling module  *  * ' * ################################################################# '' * # # '' * # If you are using an A600 (not an A600+) WITHOUT CDS, then # '' * # the following paragraph applies. If you are using any # '' * # other type of A-Series processor, (A400 with or without # '' * # CDS, A600+, A700 or A900) then the following paragraph # '' * # does NOT apply. # '' * # # '' * # The two routines .DMP and .DDI must be relocated here # '' * # because they are required by code that is in the O.S. # '' * # partitions. You cannot do library searches for code in # '' * # O.S. partitions. This is required ONLY when using an # '' * # A600 (using %RPL60). If you are using any other RPL, # '' * # these modules will cause duplicate entry point errors # '' * # if included in the generation. # '' * # # '' * ################################################################# ' * ' *!RPL60_!re /rte_a/$math,.dmp Required for A600 (not A600+) (RPL60) '' *!RPL60_!re /rte_a/$math,.ddi Required for A600 (not A600+) (RPL60) ' * " *!REMOVE!se /rte_a/$syslb,, Search the system library " *  * define partitionable modules  *  *!REMOVE!pa perr,xcmnd,stat,dsq,vema,lock,load,memry,iorq  *!REMOVE!pa time,class,abort,alarm  *!YESVC+!pa cdsfh,envrn  *!YES_NS!pa nsabp  * & * ################################################################# && * # # && * # If you want to include the dummy version of a partitionable # &&(( * # module from $SYSA.LIB, remove the module from the PA module # && * # list above as well as from the OS partition relocation phase # && * # below. For example, if you do not want NS/1000, you can # && * # remove DSQ from the first PA command above and leave the # &)MOVE ABS=90,1750  * 6.0 Communicator/1000 *  )SELECT CHARSET=13,1  C-18 1  )SELECT CHARSET=0,14 RTE-A Primary Answer File    & * # relocation statement of DSQ commented out below. # && * # # && * ################################################################# & * " *!REMOVE!ms /rte_a/$sysa,, Search the system dummy library " * " *!REMOVE!end, End system relocation phase " *  * OS module/Driver partition phase  * # *!REMOVE!re /rte_a/%load,, Program loading and swapping # *!REMOVE!end  * ! *!REMOVE!re /rte_a/%memry,, Memory management module ! *!REMOVE!end  *  *!REMOVE!re /rte_a/%iorq,, I/O request processing *!REMOVE!end  * $ *!REMOVE!re /rte_a/%lock,, LU locking and resource numbers $" *!REMOVE!re /rte_a/%time,, Time scheduling of programs " *!REMOVE!end  *  *!REMOVE!re /rte_a/%class,, Class I/O module  *!REMOVE!end  * % *!REMOVE!re /rte_a/%xcmnd,, Operator command extension module % *!REMOVE!re /rte_a/%stat,, Status command module  *!REMOVE!re /rte_a/%dsq,, NS/1000 module  *!REMOVE!end  *  *!YESVC+!re /vcplus/%cdsfh,, For CDS systems only  *!REMOVE!al, Align next module  *!REMOVE!re /rte_a/%perr,, Parity error handler  *!REMOVE!re /rte_a/%vema,, Virtual memory module  *!REMOVE!end  * ( *!YESVC+!re /vcplus/%envrn,, EXEC interface to Environment Var Block ($ *!REMOVE!re /rte_a/%alarm,, Timer signal processing module $ *!REMOVE!end  *  *!REMOVE!re /rte_a/%abort,, Abort processing module *!YES_NS!re /ns1000/rel/nsabp.rel,,NS-ARPA abort processor *!REMOVE!end  *  * Driver partitions  * # *!REMOVE!re /rte_a/ddq30.rel,, Device driver for SCSI disks #)MOVE ABS=90,1750  * 6.0 Communicator/1000 *  )SELECT CHARSET=13,1 $ C-19 $1  )SELECT CHARSET=0,14 RTE-A Primary Answer File     *!REMOVE!end  * % *!REMOVE!re /rte_a/ddq24.rel,, Device driver for SCSI DAT tape % *!REMOVE!end  *  *!REMOVE!re /rte_a/idq35.rel,, SCSI interface drvier *!REMOVE!end  * # *!REMOVE!re /rte_a/%dd*33,, Device driver for CS/80 disks # *!REMOVE!end  *  *!YES_NS!re /rte_a/idz00.rel,, Telnet driver  *!YES_NS!end  * & *!YES_NS!re /rte_a/%id*67,, LAN: interface driver for IEEE802. & *!YES_NS!end  * % *!REMOVE!re /rte_a/%id*37,, Interface driver for CS/80 disks % *!REMOVE!end  * $ *!REMOVE!re /rte_a/id400.rel,, Interface driver for A400 OBIO $ *!REMOVE!end  * & *!REMOVE!re /rte_a/%idm00,, Interface driver for 12040 rev A-C &$ *!REMOVE!re /rte_a/%dd*23,, Device driver for magnetic tape $ *!REMOVE!end  * ! *!REMOVE!re /rte_a/%dd*00,, Device driver for %idm00 !# *!REMOVE!re /rte_a/%dd*30,, Device driver for disks (ICD) # *!REMOVE!end  * $ *!YES_NS!re /ns1000/dsrel/%adv00,, device driver for NS/1000 $ *!YES_NS!end  * ) *!REMOVE!re /rte_a/id800.rel,, Interface driver for 12040D 8-channel MUX )' *!REMOVE!re /rte_a/%dd*12,, Device driver for HP-IB line printer ' *!REMOVE!end  * ' * ################################################################### '' * # # '' * # If you want to use slaved devices (such as printers) or CTUs # '' * # connected to your terminal, use DDC01.REL instead of DDC00.REL.# '' * # Refer to the RTE-A System Generation and Installation manual, # '' * # part no. 92077-90034. # '' * # # '' * ################################################################### ' * ( *!REMOVE!re /rte_a/ddc01.rel,, Device driver for 100 series interfaces ()MOVE ABS=90,1750  * 6.0 Communicator/1000 *  )SELECT CHARSET=13,1  C-20 1  )SELECT CHARSET=0,14 RTE-A Primary Answer File     *!REMOVE!end  * ' *!REMOVE!re /rte_a/%ddc12,, Device driver for HP-IB line printer ' *!REMOVE!end  * ) *!REMOVE!re /rte_a/%id*27,, Interface driver for 248X integrated disk )* *!REMOVE!re /rte_a/%dd*24,, Device driver for 7974A/78A streaming tape * *!REMOVE!end  * ' *!REMOVE!re /rte_a/id100.rel,, Interface driver for 12005 ASIC card '& *!REMOVE!re /rte_a/%id*50,, Interface driver for parallel card & *!REMOVE!end  * ' *!REMOVE!end,, End OS module/Driver partition phase ' *  *  * Table Generation phase - configure LU tables  *  * & * HP-IB #1 -- High speed disk interface bus Select Code = 27b & * SCSI #1 -- SCSI disk/DAT tape interface bus  *  *!REMOVEHPIB!ift,/rte_a/%Id*37,SC:27B  *  *!REMOVESCSI!ift,/rte_a/idq35.rel,SC:27B  *  * SCSI DAT tape LU 14 * SCSI 7980S LU 5  *  *!REMOVESCSI!dvt,/rte_a/ddq24_gen.rel,,lu:14,dp:1:3  *!REMOVESCSI!dvt,/rte_a/ddq24_gen.rel,M7980,lu:5,dp:1:4  *  * SCSI hard disk  * $ *!REMOVESCSI!dvt,/rte_a/ddq30_gen.rel,m64mb:0,lu:10,dp:1:6 dp:8:1 $$ *!REMOVESCSI!dvt,/rte_a/ddq30_gen.rel,m64mb:1,lu:11,dp:1:6 dp:8:1 $ *  * SCSI 650A MO disk  * $ *!REMOVESCSI!dvt,/rte_a/ddq30_gen.rel,m64mb:0,lu:12,dp:1:5 dp:8:3 $$ *!REMOVESCSI!dvt,/rte_a/ddq30_gen.rel,m64mb:1,lu:13,dp:1:5 dp:8:3 $ *  * SCSI floppy single sided LU 50  * % *!REMOVESCSI!dvt,/rte_a/ddq30_gen.rel,m16mb:0,lu:50,dp:1:0:0:0:0:0,- % *!REMOVESCSI! dp:6:66:16:0  *  * SCSI floppy double sided LU 51 )MOVE ABS=90,1750  * 6.0 Communicator/1000 *  )SELECT CHARSET=13,1 $ C-21 $1  )SELECT CHARSET=0,14 RTE-A Primary Answer File     * % *!REMOVESCSI!dvt,/rte_a/ddq30_gen.rel,m16mb:0,lu:51,dp:1:0:0:0:0:0,- % *!REMOVESCSI! dp:6:154:16:0  *  * ' * ################################################################### '' * # # '' * # The bus controller dvt is needed only if Direct I/O to the # '' * # device is being done. # '' * # # '' * ################################################################### ' * & * Bus Controller LU HP-IB address 36b &! * LU 15 ! * # *!REMOVEHPIB!dvt,,,LU:15,TO:2000,DT:77B,TX:0,DX:1,DP:1:36B,PR:0 # * % * HP-IB disk HP-IB address 0 %" * LU 18-19 " *  *!REMOVEHPIB!dvt,/rte_a/%dd*33,M7908_CF:0,LU:18,DP:1:0,-  *!REMOVEHPIB! DP:2:0:0:00:0:4096 DP:7:64  *!REMOVEHPIB!dvt,/rte_a/%dd*33,M7908_CF:0,LU:19,DP:1:0,-  *!REMOVEHPIB! DP:2:0:0:04:0:4096 DP:7:64  *  * % * 9144/5 standalone CS-80 cartridge tape HP-IB address 1 % * LU 9  *  *!REMOVEHPIB!dvt,/rte_a/%dd*33,M9144:0,LU:9,DP:1:1  * % * HP-IB disk (20MB) HP-IB address 2 %! * LU 30 ! * * *!REMOVEHPIB20!dvt,/rte_a/%dd*33 m7908_cf:0 lu:30 dp:1:2 dp:2:0:0:00:0:1215,- * *!REMOVEHPIB20! dp:7:64  * % * Single-sided floppy HP-IB address 2 %! * LU 53 ! * ' *!REMOVEHPIB20!dvt,/rte_a/%dd*33,M_FLOPPY_CF:1,LU:53,DP:1:2:400b:0:0:0,- ' *!REMOVEHPIB20! DP:6:66:16:0  * % * Double-sided floppy HP-IB address 2 %! * LU 54 ! * ! *!REMOVEHPIB20!dvt,/rte_a/%dd*33,M_FLOPPY_CF:1,LU:54,DP:1:2 ! * )MOVE ABS=90,1750  * 6.0 Communicator/1000 *  )SELECT CHARSET=13,1  C-22 1  )SELECT CHARSET=0,14 RTE-A P((rimary Answer File    % * CS-80 compatible cartridge tape with cache HP-IB address 2 %! * size of disk cache is 256 physical blocks LU 24 ! * starting block address of disk cache is 77760  * # *!REMOVEHPIB20!dvt,/rte_a/%dd*33,mtape,lu:24,dp:1:2 dp:4:1:12224 # *  *  * % * HP-IB disk(64MB) HP-IB address 2 %" * LU 16-17 " *  *!REMOVEHPIB64!dvt,/rte_a/%dd*33,M7908_CF:0,LU:16,DP:1:2,-  *!REMOVEHPIB64! DP:2:0:0:00:0:4096 DP:7:64  *!REMOVEHPIB64!dvt,/rte_a/%dd*33,M7908_CF:0,LU:17,DP:1:2,-  *!REMOVEHPIB64! DP:2:0:0:04:0:4096 DP:7:64  * % * CS-80 compatible cartridge tape with cache HP-IB address 2 %! * size of disk cache is 256 physical blocks LU 24 ! * starting block address of disk cache is 262144  * ! *!REMOVEHPIB64!dvt,/rte_a/%dd*33,mtape,lu:24,dp:1:2 dp:4:4:0 ! *  * % * 7974A/7978A streaming tape drive HP-IB address 3 % * LU 7  *  *!REMOVEHPIB!dvt,/rte_a/%dd*24,M7974:0,LU:7,DP:1:3  * % * 5.25" Winchester fixed disk (9133/4 XV) HP-IB address 4 %" * LU 44-47 " *  *!REMOVEHPIB!dvt,/rte_a/%dd*30,M9134X:0,LU:44,DP:1:4  *!REMOVEHPIB!dvt,/rte_a/%dd*30,M9134X:1,LU:45,DP:1:4  *!REMOVEHPIB!dvt,/rte_a/%dd*30,M9134X:2,LU:46,DP:1:4  *!REMOVEHPIB!dvt,/rte_a/%dd*30,M9134X:3,LU:47,DP:1:4  * % * flexible disk (9122D) HP-IB address 5 %" * LU 36-37 " *  *!REMOVEHPIB!dvt,/rte_a/%dd*33,m_floppy_cf:0,lu:36,DP:1:5 *!REMOVEHPIB!dvt,/rte_a/%dd*33,m_floppy_cf:1,lu:37,DP:1:5  * % * 5.25" and 3.5" flexible disks (9121) HP-IB address 6 %" * LU 32-33 " * ! *!REMOVEHPIB!dvt,/rte_a/%dd*30,M9121:0,LU:32,DP:1:6,TO:3000 !! *!REMOVEHPIB!dvt,/rte_a/%dd*30,M9121:1,LU:33,DP:1:6,TO:3000 ! * )MOVE ABS=90,1750  * 6.0 Communicator/1000 *  )SELECT CHARSET=13,1 $ C-23 $1  )SELECT CHARSET=0,14 RTE-A Primary Answer File    % * 3.5" flexible disk (9133H) HP-IB address 7 %! * LU 61 ! *  *!REMOVEHPIB!dvt,/rte_a/%dd*33,M_FLOPPY_CF:1,LU:61,DP:1:7  * % * 5.25" Winchester fixed disk (9133H/9134H) HP-IB address 7 %" * LU 41-43 " *  *!REMOVEHPIB!dvt,/rte_a/%dd*33,M9133_CF:0,LU:41,DP:1:7  *!REMOVEHPIB!dvt,/rte_a/%dd*33,M9133_CF:1,LU:42,DP:1:7  *!REMOVEHPIB!dvt,/rte_a/%dd*33,M9133_CF:2,LU:43,DP:1:7  *  * & * HP-IB #2 -- Low speed mag tape bus Select Code = 26b & *  *  *!REMOVE!ift,/rte_a/%Id*37,SC:26B  * & * Bus Controller LU HP-IB address 36b &! * LU 40 ! * ! *!REMOVE!dvt,,,LU:40,TO:2000,DT:77B,TX:0,DX:1,DP:1:36B,PR:0 ! * % * 7970 tape drive HP-IB address 4 % * LU 8  *  *!REMOVE!dvt,/rte_a/%dd*23,M7970E:0,LU:8,DP:1:4,PR:1  * % * 7970 tape drive HP-IB address 6 %! * LU 28 ! *  *!REMOVE!dvt,/rte_a/%dd*23,M7970E:0,LU:28,DP:1:6,PR:1  * & * HP-IB #3 -- High speed mag tape bus Select Code = 31b & *  *  *!REMOVE!ift,/rte_a/%Id*37,SC:31B  * & * Bus Controller LU HP-IB address 36B &! * LU 48 ! * ! *!REMOVE!dvt,,,LU:48,TO:2000,DT:77B,TX:0,DX:1,DP:1:36B,PR:0 ! *  * % * 7974A/7978A streaming tape drive HP-IB address 5 %! * LU 34 ! *  *!REMOVE!dvt,/rte_a/%dd*24,M7974:0,LU:34,DP:1:5 )MOVE ABS=90,1750  * 6.0 Communicator/1000 *  )SELECT CHARSET=13,1  C-24 1  )SELECT CHARSET=0,14 RTE-A Primary Answer File     * % * 7974A/7978A streaming tape drive HP-IB address 7 %! * LU 35 ! *  *!REMOVE!dvt,/rte_a/%dd*24,M7974:0,LU:35,DP:1:7  *  * & * HP-IB #4 -- Low speed peripheral/instrument bus Select Code = 25b & *  *  *!REMOVE!ift,/rte_a/%Id*37,SC:25B  * & * Bus Controller LU HP-IB address 36b &! * LU 91 ! *  *!REMOVE!dvt,,,LU:91,TO:2000,DT:77B,TX:0,DX:1,DP:1:36B  * % * 2608S,2563A,2566A Line Printer HP-IB address 1 %! * LU 85 ! *  *!REMOVE!dvt,/rte_a/%ddC12,,LU:85,DP:1:1  * % * 2932A Line Printer HP-IB address 2 % * LU 6  *  *!REMOVE!dvt,/rte_a/%dd*12,M2932A,LU:6,DT:12B,DP:1:2  * & * Four devices HP-IB address 3-6 &" * LU 92-95 " *  *!REMOVE!dvt,,,LU:92,TO:500,DT:77B,DX:1,DP:1:3  *!REMOVE!dvt,,,LU:93,TO:500,DT:77B,DX:1,DP:1:4  *!REMOVE!dvt,,,LU:94,TO:500,DT:77B,DX:1,DP:1:5  *!REMOVE!dvt,,,LU:95,TO:500,DT:77B,DX:1,DP:1:6  *  * & * 248x INTEGRATED DISK INTERFACE (MICRO/1000) Select Code = 32b & *  *  *!REMOVE!ift,/rte_a/%Id*27,SC:32B  *  * Hard disk (15Mb)  *  *!REMOVE!dvt,/rte_a/%GEN27,M2480:15,LU:55  *!REMOVE!dvt,/rte_a/%GEN27,M2480:16,LU:62  *  * Hard disk (20Mb)  * )MOVE ABS=90,1750  * 6.0 Communicator/1000 *  )SELECT CHARSET=13,1 $ C-25 $1  )SELECT CHARSET=0,14 RTE-A Primary Answer File     *!REMOVE!dvt,/rte_a/%gen27,m2480:11,lu:59  *!REMOVE!dvt,/rte_a/%gen27,m2480:12,lu:60  *  * 3.5" flexible disk (singled-sided)  *  *!REMOVE!dvt,/rte_a/%GEN27,M2480:3,LU:39  *  * 3.5" flexible disk (double-sided)  *  *!REMOVE!dvt,/rte_a/%GEN27,M2480:14,LU:63  *  *  * & * IEEE 802.3 Local Area Network Select Code = 37b &" * LU 96,97 " * & * ################################################################# && * # # && * # The following are the table entries for ID*67, the LAN/1000 # && * # driver for the 12076A card. The IFT extension area # && * # defaults to 204 words, allowing 4 Multicast addresses to # && * # be used by the card. The formula to change this is: # && * # # && * # tx = 192 + (3 * max # of multicast addresses used by card) # && * # # && * ################################################################# & *  *!YES_NS!ift,/rte_a/%id*67,sc:37B  *  * DVT table entries for ID*67 (12076A 802.3 LAN card)  * The first DVT entry must have an even LU number.  *  *!YES_NS!dvt,/rte_a/%gen67,m67:1,lu:96  *!YES_NS!dvt,/rte_a/%gen67,m67:0,lu:97  * " * LU mapping LU 81-82 " *  *!YES_NS!ift,/ns1000/dsrel/%ADV00,EIDV00,QU:FI,TX:2,AL:DY  *  *!YES_NS!dvt,,,LU:81,EddV00,TX:0  *!YES_NS!dvt,,,LU:82,EddV00,TX:5  * " * Telnet pseudo terminal driver/LUs LU 79-80 " *  *!YES_NS!ift,/rte_a/idz00.rel  *!YES_NS!dvt,/rte_a/ddc01.rel,MHP_TELNET,lu:79  *!YES_NS!dvt,/rte_a/ddc01.rel,MHP_TELNET,lu:80  * )MOVE ABS=90,1750  * 6.0 Communicator/1000 *  )SELECT CHARSET=13,1  C-26 1  )SELECT CHARSET=0,14 RTE-A Primary Answer File     * & * Parallel Interface Card Select Code = 35b &! * LU 84 ! *  *!REMOVE!ift,/rte_a/%Id*50,SC:35B  *  *!REMOVE!dvt,,,LU:84,TO:5000,TX:2,DX:3,DP:1:0:0:0,DT:55B  *  *  * Terminal LUs  * % * ############################################################# %% * # # %% * # For systems with non-12005 ASIC system consoles: # %% * # change the 'lu:1' b((elow to 'lu:yy', where yy is an # %% * # unused LU, and change the desired LU:XX to LU:1. # %% * # # %% * ############################################################# % * & * ASIC #1 (default system console) Select Code = 20B & * LU 1  *  *!REMOVE!ift,/rte_a/id100.rel,sc:20B  *!REMOVE!dvt,/rte_a/ddc01.rel,MHP_Term:A,lu:1  * & * ASIC #2 Terminal, slaved device (printer), Select Code = 21B && * left CTU and right CTU. LU 100, 200-202 & *  *!REMOVE!ift,/rte_a/id100.rel,sc:21B  *  *!REMOVE!dvt,/rte_a/ddc01.rel,MHP_Term:A,lu:100  *!REMOVE!dvt,/rte_a/ddc01.rel,MHP_Slaved_Serial,lu:200  *!REMOVE!dvt,/rte_a/ddc01.rel,MHP_CTU:L,lu:201  *!REMOVE!dvt,/rte_a/ddc01.rel,MHP_CTU:R,lu:202  * & * 12100A A400 OBIO 4-MUX portA-D, portB's Select Code = 77B &' * slaved device (printer), left CTU, right CTU. LU 110-113,211-213 ' * & * ################################################################# && * # # && * # Do not specify a select code for ID400.REL. It is forced to # && * # select code 77B. # && * # # && * ################################################################# & *  *!REMOVE!ift,/rte_a/id400.rel  *  *!REMOVE!dvt,/rte_a/ddc01.rel,MHP_Term:0,lu:110 )MOVE ABS=90,1750  * 6.0 Communicator/1000 *  )SELECT CHARSET=13,1 $ C-27 $1  )SELECT CHARSET=0,14 RTE-A Primary Answer File     *!REMOVE!dvt,/rte_a/ddc01.rel,MHP_Term:1,lu:111  *!REMOVE!dvt,/rte_a/ddc01.rel,MHP_Slaved_Serial,lu:211  *!REMOVE!dvt,/rte_a/ddc01.rel,MHP_CTU:L,lu:212  *!REMOVE!dvt,/rte_a/ddc01.rel,MHP_CTU:R,lu:213  *!REMOVE!dvt,/rte_a/ddc01.rel,MHP_Term:2,lu:112  *!REMOVE!dvt,/rte_a/ddc01.rel,MHP_Term:3,lu:113  * & * 12040D 8-channel MUX, ports 0-7, port 1 is Select Code = 30B &' * slaved device (printer), left CTU, right CTU. LU 120-127,221-223 ' *  *!REMOVE!ift,/rte_a/id800.rel,sc:30B  *  *!REMOVE!dvt,/rte_a/ddc01.rel,MHP_Term:0,lu:120  *!REMOVE!dvt,/rte_a/ddc01.rel,MHP_Term:1,lu:121  *!REMOVE!dvt,/rte_a/ddc01.rel,MHP_Slaved_Serial,lu:221  *!REMOVE!dvt,/rte_a/ddc01.rel,MHP_CTU:L,lu:222  *!REMOVE!dvt,/rte_a/ddc01.rel,MHP_CTU:R,lu:223  *!REMOVE!dvt,/rte_a/ddc01.rel,MHP_Term:2,lu:122  *!REMOVE!dvt,/rte_a/ddc01.rel,MHP_Term:3,lu:123  *!REMOVE!dvt,/rte_a/ddc01.rel,MHP_Term:4,lu:124  *!REMOVE!dvt,/rte_a/ddc01.rel,MHP_Term:5,lu:125  *!REMOVE!dvt,/rte_a/ddc01.rel,MHP_Term:6,lu:126  *!REMOVE!dvt,/rte_a/ddc01.rel,MHP_Term:7,lu:127  * & * 12040A-C Pre-Revision D 8-MUX, port 0-7. Select Code = 23B &# * LU 130-137 # *  *!REMOVE!ift,/rte_a/%idm00,sc:23B,tx:20  * ! *!REMOVE!dvt,/rte_a/%dd*00,M26XX,LU:130,DP:1:20004B,TX:57,- !" *!REMOVE! DP:5:CI:20040B:20040B:0,DP:9:CM:20040B:20040B:CM "! *!REMOVE!dvt,/rte_a/%dd*00,M26XX,LU:131,DP:1:20004B,TX:57,- !" *!REMOVE! DP:5:CI:20040B:20040B:0,DP:9:CM:20040B:20040B:CM "! *!REMOVE!dvt,/rte_a/%dd*00,M26XX,LU:132,DP:1:20004B,TX:57,- !" *!REMOVE! DP:5:CI:20040B:20040B:0,DP:9:CM:20040B:20040B:CM "! *!REMOVE!dvt,/rte_a/%dd*00,M26XX,LU:133,DP:1:20004B,TX:57,- !" *!REMOVE! DP:5:CI:20040B:20040B:0,DP:9:CM:20040B:20040B:CM "! *!REMOVE!dvt,/rte_a/%dd*00,M26XX,LU:134,DP:1:20004B,TX:57,- !" *!REMOVE! DP:5:CI:20040B:20040B:0,DP:9:CM:20040B:20040B:CM "! *!REMOVE!dvt,/rte_a/%dd*00,M26XX,LU:135,DP:1:20004B,TX:57,- !" *!REMOVE! DP:5:CI:20040B:20040B:0,DP:9:CM:20040B:20040B:CM "! *!REMOVE!dvt,/rte_a/%dd*00,M26XX,LU:136,DP:1:20004B,TX:57,- !" *!REMOVE! DP:5:CI:20040B:20040B:0,DP:9:CM:20040B:20040B:CM "! *!REMOVE!dvt,/rte_a/%dd*00,M26XX,LU:137,DP:1:20004B,TX:57,- !" *!REMOVE! DP:5:CI:20040B:20040B:0,DP:9:CM:20040B:20040B:CM " * " *!REMOVE!end,, End of dvt generation phase " * )MOVE ABS=90,1750  * 6.0 Communicator/1000 *  )SELECT CHARSET=13,1  C-28 1  )SELECT CHARSET=0,14 RTE-A Primary Answer File    " *!REMOVE!end,, End of ift generation phase " *  *  * Define Node Lists  *  * SCSI disks  *  *!REMOVESCSI!node,10,11  *!REMOVESCSI!node,12,13  *  * HP-IB disk   *!REMOVEHPIB!node,18,19  *  * 5.25" and 3.5" Flexible disks (9121)  *  *!REMOVEHPIB!node,32,33  *  * 9122D 3.5" flexible disks  *  *!REMOVEHPIB!node,36,37  *  * HP-IB disk(64MB)  *  *!REMOVEHPIB64!node,16,17,24  *  * HP-IB disk(20MB)  *  *!REMOVEHPIB20!node,30,24,53,54  *  * 5.25" Winchester fixed disk LUs (9133/4XV)  *  *!REMOVEHPIB!node,44,45,46,47  * % * 5.25" Winchester fixed disk LUs (9133/4H) and 9133H flexible disk % *  *!REMOVEHPIB!node,41,42,43,61  *  * 248x Integrated disk LUs  *  *!REMOVE!node,55,62,59,60,39,63  * % * 4-channel MUX port B/Rev. D 8-channel MUX CTUs and slaved printer % *  *!REMOVE!node,111,211,212,213  *!REMOVE!node,121,221,222,223  *  *!REMOVE!end, End node list )MOVE ABS=90,1750  * 6.0 Communicator/1000 *  )SELECT CHARSET=13,1 $ C-29 $1  )SELECT CHARSET=0,14 RTE-A Primary Answer File     *  *!REMOVE!end, End interrupt table  *  *  * Memory Allocation  *  *  *!REMOVE!clas 150, Class number allocation * *!REMOVE!resn 30,0 Resource number allocation/debug table spec * *!REMOVE!id 80, ID segment allocation # *!REMOVE!rs -150, Memory descriptor allocation # *!REMOVE!sam 32767,4096 SAM allocation/XSAM  *!REMOVE!sl 200 1048, Spool limits & *!REMOVE!bg 30, Background swap priority allocation &! *!REMOVE!qu 300 50, Quantum time slice value !( *!REMOVE!sp 30,0 Shared programs/extended schedule table ( * & *!YES_NS!mb 512, Number of memory blocks for NS/1000 && *!NO__NS!mb 0, Number of memory blocks for NS/1000 & * ) *!YESVC+!us 15, Number of concurrent users (1 if no VC+) )) *!NO_VC+!us 1, Number of concurrent users (1 if no VC+) )% *!REMOVE!lb,, LOGOF buffer limit (use defaults) % *  *  * Labeled System Common Relocation  *  *  *!YES_NS!re /ns1000/dsrel/%resa  * & * ################################################################# && * # # && * # If you are using the serial modem handler HPMDM, uncomment # && * # the following line. # && * # # && * ################################################################# & *!YES_NS!re /rte_a/hpmdm_table.rel  *  *!YES_NS!se /ns1000/lib/nssys.lib  * ' *!REMOVE!end, End labeled system common relocation ' *  *  * Unlabeled (Blank) Common  * % *!REMOVE!com 1024, Number of words of memory to use % *  * )MOVE ABS=90,1750  * 6.0 Communicator/1000 *  )SELECT CHARSET=13,1  C-30 1  )SELECT CHARSET=0,14 RTE-A Primary Answer File     * System Messages  *  *!REMOVE!re /rte_a/%msgtb,, Message table  *!REMOVE!end  *!REMOVE!re /rte_a/%$m000,, Message module  *!REMOVE!end  *!YESVC+!re /vcplus/security.rel  *!YESVC+!end  *  *!REMOVE!end, End system messages  *  * System Libraries  * & * ################################################################# && * # # && * # add here any other library routines which you often use # && * # # && * ################################################################# & *  *!REMOVE!lib sec1000.lib,, Security/1000 library & *!YES_NS!lib bigns.lib Merged NS-ARPA/1000 user libraries &! *!YES_NS!lib $FNDLB Required for NS-ARPA/1000 !! *!YES_NS!lib pascal.lib Required for NS-ARPA/10((00 ! *!REMOVE!lib $biglb.lib,,  *!REMOVE!end, End system libraries  *  * CDS Libraries  * & * ################################################################# && * # # && * # add here any other CDS library routines which you often use # && * # # && * ################################################################# & * ! *!YESVC+!lib sec1000cds.lib,, Security/1000 CDS library !& *!YES_NS!lib bigns_cds.lib Merged NS-ARPA/1000 user libraries &! *!YES_NS!lib $FNDLB Required for NS-ARPA/1000 !! *!YES_NS!lib pascal_cds.lib Required for NS-ARPA/1000 ! *!YESVC+!lib $bgcds.lib,,  *!YESVC+!lib sec1000.lib,, Security/1000 library  *!YESVC+!lib $biglb.lib,,  *  *!REMOVE!end )MOVE ABS=90,1750  * 6.0 Communicator/1000 *  )SELECT CHARSET=13,1 $ C-31 $  )SELECT CHARSET=0,14 1 *!%DVM72::RTE_6:5:10:60 644 0 0 5000 5310706633 32422 %DVM72::RTE_6:5:10:60 $  <%DVM72 +#+#+# >FST "" r5DVM72  09580-16079 REV.5010 <880315.1055>" @{FCM72 FIM72 A$LIST<<`]p PPݶ(P(%`ݨh( Z (  (.<<<`]ڸ@Z@(Z@(ԴZ((P( ` pF< `C : ;;`^=P!(` (h (h(yZ (P (k((([Z (v(];;;`][Z`((n(](]8FF Z ((P(h; `Dx(@ <<`^|Z(ôZ(y(h` 8FX(@F``(<;;`Zh(ThP([(00pepp@phpp p; `C pyp ;;`\ pp0p.pppp Pp5Z 8è0ˢ (k;;;`\ HӶxH`H (A(kh`(@(/; `D@p <<`_H ( ( P@( (h (/(E`(Eh(IP<;;`[ (8`((("(`8F(h( `Pܴ(?P; `C\-(CP(K <<`\m0P(5P(:(IZ(GZ(G(G``(E`(E`<;;`]i3LZpԃpPԂZ(t (qHZ (l8Z (l8p; `CiP(n ;;`^-l8(M(Gh(GԂ (qHԀ (8Z (8ڃԀp;<<`[P(8(MЃԂ(GڃP(X(`(E`(``ppŴ@p< `C.'@p` <<`^Hj0p`0pɴZP((0!(`@<<<`bƴ P@P (Eh`(EP(P(۴8Ԩ < `Da< ((`^F@@@@@@  @D( INTEGER*4 FILE_SIZE  EQUIVALENCE(FILESIZE1,FILE_SIZE) *  * Flag to say if terminal has been initialized for screen mode. *  integer term_in%DSCHD::RTE_6:5:1:32 644 0 0 400 5310706635 32414 %DSCHD::RTE_6:5:1:32 $t %DSCHD +#+#+#]JFST  DSCHD 09580-16126 REV.2540 770315 @ DSCHD 9.ENTREXEC  `SL60p8 %PVM00::RTE_6:5:2:60 644 0 0 1000 5310706636 32621 %PVM00::RTE_6:5:2:60 $x<%PVM00 +#+#+#NFST !! jPVM00 J12792-16001 REV.2034 800605 V.03!@~PM00  -$CIC $YCIC ;;`^]@PۅDpA8(8(ƍЄ@`A0CphAHHG@E(0`A0B;<<`]qpFp@Z@@@p@@HIPA(.(0`@`p@p`A7P `(=< `C;0Dp  `L?&>p ( @@ ?>>%DVM00::RTE_6:5:30:60 644 0 0 17000 5310706640 33170 %DVM00::RTE_6:5:30:60 $|<%DVM00 +#+#+#XRFST $$ DVM00 12792-16002 REV.5000 860703.1100 V.45 $ @mCM00 IM00 + !! @!$DVTB$LIST$OPSY$UPIO.DIV .DLD .DST .XLA .XSA PM00 !;;`m~ @ @;;<<`^d*-p'Z(up`+Zp(mZ~~p`~@@  h< `BK`p{ ;;`ZM`pzh{HP~(_h{Hx{8z(P 0# (mH(V 0;<<`\LgH(VP((yZ+@PU(~p}p|< `CpPPw( <<`\  ( (Px(x` b*( 0 ( '<;;`[j ( 0% `p}(? Z((;Z&; `D ( ;;`[v0 (%(Ҡ` mχ( (#(0);;;`Zܶ( 0& ( ` ϶ & (8(x $(}(; `D)( <<`_Z`(8P(8A(8`*(h ( ( ȨhH ?<<<`_:0Z`(! h(CZ"(.x(F#hZH!< `C8HH <<`[Z;Z`(CP(Fx (x(U (<<<`\GV (`R( *((x$(oӶ` < `Cr ;;`Z&u  0 (8(^ (UZ$(b(^ .(;;;`[U 0 Z(^`Zа(  `b`; `Db <<`_5Jh0ZP (5p|<;;`^)͢ڨ  ڨh`(h`V"Z x ; `C ;;`[hZh 0h`b( (`';;;`]y Z 0&h`R ((8@ ?` @Q(E; `D'e&'(E <<`[*0( hQ `8`U889`(C̶hX0&(J`p<<<`[E`!`P  hR0 m  0%< `CC`(( ;;`^$Vch& `h]`~0*Ѕƍ `p;::`^Zxz @ ((@hz5@$lrvm$xsw: `D5(z <<``wXpz(6(4 8z((zm(zm (5@zh<;;`^O(@xZpz(PZ(@(8@(@; `FQ$ 8 ;;`^6$%,4x$A=mr`(7`Zb p|(8P(`@z(`) m;;;`\%(8 0 X0' (8 ( (8 (8; `Cp!x| <<`[$Z(8(*Ӷ(8(8x|(8`bp| 0# (8`<<<`]Ҽ?(7`pzhZ(Np{`0{ 8z(D(8pzhP H (?< `C\hHzH ::`Y_ (?Q0z  (?`bp|(8`b(8:<<`Z x`b 0 (8(0`Z(}< `D(0 <<`ev;`b(8  DEFZ h<::`^{Z'(Z0# 0$`Z @h`$u%$K55 : `COٴ % ;;`Zܶ( `p(?A(}P#(8(5 0P (((;<<``?|h` 0!0(`Z &p< `Fd\ ;;`Z A(}P$ (8(C:(5 0! P$(/(}`V(} ;;;`\Y6'(}(A(?8::A'8AڨAh 0 ; `DRP`)(m ::`Y%[V:(h((_`V(} 0 `P&(7`P(M 0:;;`Zo :(`V(5A(5.(5`(`P8P( ( ';`EZ( (x::`^:Zh(P( (@ ((`p  Z(:<<`[(XU( Z(( ( 0$ `(0'(< `DǴP  ;;`]˶0*p|p(8```(`(ܶp}88`}h| P(;<<`\ZA`((Ԣ8`(p}8`'` (< `DP (  <<`\d`) (`( h(<`~@@H0*H`<<<`\$`'Z ~~' #).(P(Jp}x|PU(O`}< `C@h 0* ;;`[YCp}(((0' (~0hV(\hZ ;<<`\8^0 hb m  (^Z`w(t8Z(om@8mm`x< `Cz`~@ <<`\?}@H(hZ`ZX( (P(hH(<;;`\.``p}($x0*Z(@h(@; `D1Pxz`( ;;`\Z( h0`(` 涀hH;;;`^bբ` 0* xh|z  P`U (6; `E2c5 <<``pZp{ (  `P`{@h{(P  @ph)<;;`Z(x|(8 (?P5(6 #(8`b`bZ ; `DPg2 (~C <<`\_6  `Zp~p}p|ppppP`h@  p`~ho]P<<<`\\wRڨ;h\xzh 8z(V;p{xz {]Zp{z ] {8z< `DL1n(gp  ""`Yr$ $otBCCA" ` `F?  8z(V;%DDV05::RTE_6:5:15:60 644 0 0 7400 5310706642 32601 %DDV05::RTE_6:5:15:60 $<%DDV05 +#+#+#&+rFST "" SDDV05 D12792-16003 REV.2540 <851217.1641>"@DDV05 <<`a (PC(<((<` 0<<<`\!(/P(,P(,PǠZ(o (3(N(;P(UP(>< `C=  ;;`\&@`(F(<(`p``;<<`[L\h`P(i8ж(W`Ѩ CA`< `DwP  ;;`]'{ZӂA0(<((hZHPHH;<<`]=`0h P( (0`(<`< `C#q(< ;;`f)@@ @@@@"?BP\(``;<<`Z޴ZP(<Z`P((<```P(<(< `FDT`^ <<`]3P`Z````ڨ`Zh(h`<;;`^P x 8hx h Z 8 (%h (0((% %`@[; `Cin9(,HB ;;`ecm<(,C\^$npprtv"h(`h;;;`^a (d`h(d ( ((dh(`h( {^~&; `Frp1^&p2^ <<`nl cb&p4u2C u-1p1C u-2p1C u0Cu-1p2Cu p2CdW dWs0Rc&p4u<<<`[d Zp1Ch00`h`h(d`< `Dt- <<`\ Ҷ6`h(dڂF(`h(`<;;`\n\6``Zh```P`; `D" (  ;;`[ `;P(`(7Z) .0``h;<<`\oR)(A`` (`P(7(`ĠPE(&Z (& (d`)< `C\EP ;;`]PH(7 $$$$`;<<`\e1(׀((<(s(,(x(P(}(,(< `C`h <<``(`h6`h(-00--<<<`f4  SAB 4PH  Z00Z``}< `CQ `h ;;`\Ͷ`($ڀ$` ;(;;;`\ аp P0 ЂH``h0`; `DV` ;;`[> ``h``;;<<`[Q$P(1(,```)`h1`h6``< `D?; `ACCCnCONCATINTNOS// 6.DDI.DNG.DCO.ENTR .CPM.SBST .NFEX DOUBSTRINGTRIMLEN /II\p%DDV12::RTE_6:5:4:60 644 0 0 2000 5310706643 32621 %DDV12::RTE_6:5:4:60 $<%DDV12 +#+#+# FST "" rDDV12 12792-16004 REV.2141 810821 V.09 "@ DDV12 ::`^W~(0 (2(` P((6`:<<`]EZ (/Z`qx('  `q(6Z(8xP(-(< `C; <<`[>ZppP(hP(KZP(j`0`qxP(Z<<<`]5zY(-`((P@x(-`(L`qx(M`< `C-vq ;;`cy`x` 8~hxh 8(~10- B  @?; `En  GHWAY = 94204 CAPABILITY = 00000 11111 11111 1 --PCIF END OF DESCRIPTION-- 0PPeZZZZZZ@ZZZZZZZyZZ/ZZSwZ W START DBUGR //%$DVTB::RTE_6:5:1:34 644 0 0 400 5310706645 32537 %$DVTB::RTE_6:5:1:34 $"%$DVTB +#+#+#JFST "" j5$DVTB 12792-16005 REV.2341 <850722.1440>"@$DVTB DDV05DDV12 `Cv %DVN00::RTE_6:5:28:60 644 0 0 16000 5310706647 33427 %DVN00::RTE_6:5:28:60 $<%DVN00 +#+#+# RFST !! nDVN00 %12792-16008 REV.2540 821007 V.38! @mCN00 IN00 ! <$DVTN$LIST$OPSY$UPIOPM00 ;;`i{ @ @p(k;;;`]X)p`!pĢ(c"چp`@ @  h`Pp`p; `CFhH <<`ZI$P(UhH!x8(F 0 (cH"Z(L 0*H#(L<<<`\jcP+((o!@FP(tZpp&Pm(~ ) < `DW ( ;;`[E((Pn(`  ( 0(Z( 0 ;<<`\Z`p(۶ ( (-(P'( '`< `CP`e <<`\F( ` Z (tZ 0 (<;;`Z@^ٶ(`"Z nn(Z ((0(s 0 (; `C `# <<`[8n  (Ԣ(( ȶ( `(P+( <<<`c; (` (kh (( ȨhH ?P0`Z( h< `CM4(O <<`\7(Rh"PHHH`(OP(R <<<`\ S((aZ (' (`e(  (< `C2o ;;`[;r(Z({`   0 (Դ(j;;;`[ (a(n(jڠ ( 0 (j`; `D- ;;`[JZ(  ``hʶ0;::`^\Ƕ (5p  h`(h: `DA嶀` ;;`]"  ׶h%h ׶(0h`;<<`\Y(' #(Z"`$Z 0h`e ((< `F"@? ;;`[ a(`' Z@c(W(W0dPd(\ (Bhc ;;;`Z%C`J`8Ĵ8ĨK`(UhX&0(\`&p,``b; `D] ;;`\pa he0 n 0(h& `h;<<`^} `0 ´ƍƢn`&pnx< `Cp @ <<``S @h5@$$n(p(ݠ(<<<`_gW ۉ 8(( n( (P5@h(@< `D6ݠ ;;`cbᶊp(P&(@(@(@$$")1{$>:ju;<<`Z8`(4`Z p(`@( 0 X&0 ( (< `D( <<`[K"('(Զ(x(Զ`p 0 (`<<<`]u=(4` ph((Kp`0 Ӷ8(A!(ph H (h< `CWZHH" ;;`Z ] (c0  (`p Xt (SU`;;;`Zw(` 0 ((`Z(|(0; `D` ;;`f(  DEF h(;::`^0 0` ׶%@h`$A$  (: `CRٶ ` <<`Z^ܶp( (I&P(( 0  (I&P((C( 0 <<<`\vP((IZ`ڶ(I (I( ( 8 < `C' ;;`Z0Z8  h 0 `(9(4Z(+`(I 0 `;::`Yn//b(`b(Y 0 (`( (Z(`: `D8H(`P8 <<`] LP( ( (a (x^`p_(0( <<<`\i%0 pp(`n``(|`({p88` h( < `C#U  ;;`\`(|Z(s8`(p8``P ( (;<<`\`Q`(|` ( h('<`@ @H0 H`< `DK`è <<`\-ĠՆڨ ʠ(FP%(pxP(`h 0 p<;;`[pඊ((|(0  (t0Zh(hn; `Dq ;;`[@`0 h n (Z`(8Z(  @8  ``@ @;<<`\(H()Zh`!nPX(> (5P(;hH(,< `C6` <<`]ø9Z`Ep(s0 (;'Z!@"h(Q@x`(X<<<`] V(o6 h0`(o` hH` < `Cps0 x ;;`_cvh  %P&`񴀨F (65;;;`_Шp Z(  ``@h (@Zph; `D(x( ;;`Z(&PѨZ (``  (tC;<<`\<Ҷ 0(ppppppp`h@ !p`h Ph< `Dxh$ <<`_M 8(pxZ$ p  8( $ <`T$ BCCA ` %$DVTN::RTE_6:5:1:34 644 0 0 400 5310706651 32716 %$DVTN::RTE_6:5:1:34 $"%$DVTN +#+#+#JFST "" z5$DVTN 12792-16009 REV.2341 <850722.1440>"@$DVTN DDV45DDV63 `Cv ((%DVT00::RTE_6:5:30:60 644 0 0 17000 5310706652 33401 %DVT00::RTE_6:5:30:60 $<%DVT00 +#+#+#VFST $$ DVT00 _12792-16010 REV.5000 860703.1100 V.45 $ @mCM00 IM00 + !! @!$DVTB$LIST$OPSY$UPIO.DIV .DLD .DST .XLA .XSA PM00 !;;`m~ @ @ ;<<`^c -pO'Z(upS`+Zp(mZNNpU`N@@  h< `BK`pK ;;`Z{M`pJhKHPN(_hKHxK8J(P 0# (mH(V 0;<<`\ΌgH(VP((yZ+@zP%(~pMpL< `CpPPw( <<`\,  ( (Px(H` 2*( 0 ( '<;;`[i( 0% `OpM( Z(( Z&; `D ( ;;`[u0 (%(Ҡ`X=( (#(0);;;`Z]ܶ( 0& ( `Y & ((H $(M(; `D)( <<`_Z`(P((`*(h ( ( ȨhH ?<<<`_:0Z`S( h(CZ"(.H(F#hZH!< `C8HH <<`[;Z`(CP(FH (H(U (<<<`\GV (`R( *((x$(oӶ` < `Cr ;;`Zޖu  0 ((^ (UZ$(b(^ (;;;`[U 0 Z(^`Zа(  `2`; `Dפ2 <<`_5h0ZP (5pL<;;`^͢ڨ  ڨh`(h`&"Z H ; `C ;;`[)hʴZh 0h`2( (`';;;`]y Z 0&h`R ((@ ?` @Q(E; `D'e&'(E <<`[Z*0( hQ `8`%889`O(C̶hX0&(J`pR<<<`[E`!`P  hR0Q= 0%< `CC`(( ;;`^#6ch& `h-`N0*ЅŅƍݶ`pR;::`^ZxJ @ @hJ5@$lrvm$xsw: `D5(z <<``vXpJ(6(4 8J((z=(z= (5@Jh<;;`^O (@HZpJ(PZ(@(@(@; `F!$  ;;`^$%,4x$A=mr`(7`Z2 pL(P^(`@J(`)=;;;`\( 0 X0' ( ( ( (; `CpR!xL <<`[ $Z((*Ӷ((xL(`2pL 0# (`<<<`]l?(7`pJhZ(NpK`0K 8J(D(pJhP H (< `C3\hHJH ::`Y_ (Q0J  (`2pL(`2(:<<`Zx]`2 0 ((0\`Z(}< `D(0 <<`eu{`2(  DEFZ h<::`^Z'(Z0# 0$`* @h`T$E$ : `COٴ % <<`ZF5ܶ( `p((MP(( 0 (MP((C <<<`[ؗ( 0! P$((M`&(MZ '(M((ȴ8  < `D P <<`['8ڨh 0 `T)(= (8((/`&(M <;;`Y]00 `TP&(`TP(M 0  (`&((; `D?I(`T( <<`\UM`P8P(Z ( '( (xwh(Pw(f (_@ <;;`^<iP((`px  (}(X%( (( [; `D-l <<`Z( 0$ `(0'( ׶0*pLpP(```O<;;`^(`R(pM88`MhL Z(`OZ((; `D"8`R <<`[ѦǶ(pM8`` ( (`)ٶ(`V( h<<<`^K!([<`N@@H0*H``U¨ NN< `C? #) ;;`Z7(zP(pMxLP%(`MhR 0*pM((;;;`[1(0' (~0Qh&(,h*ڨ0Q h2; `DT8=  ;;`\<(.`G(D8(?=@8=Z=`H`N@@H(]h`W;<<`\X*PX(r (iP(ohH(```ypM($< `CݥtH0* ::`^Cw(o[Z@h(@xJ`P(B(Z :;;`Zh0Z`O(`T hOPHP` 0* xPhLJ ; `DX P <<`a`%zP P (65pK (  ``K<::`^Z@hK(P @pTh)(xL( (P( : `CI#( <<`[`2`2  (~C  P`TpNpMpL<<<`\M{pRpOpSpPP`h@  pQ`Nh?-P h,xJhZ 8J(& < `D],pKxJ ;;`c-0 K-pKJ - K8J(7$@$?D;`HpSBCCA ` `D[? [[ 8J(& < `D],pKxJ ;;`c-0 K-pKJ - K8J(7$@$?D;`HpSBCCA ` %DDT05::RTE_6:5:6:60 644 0 0 3000 5310706654 33150 %DDT05::RTE_6:5:6:60 $<%DDT05 +#+#+#FST "" {0DDT05  12792-16011 REV.2540 <851217.1641>"@DDV05 <<`a (P(/((/` 0<;;`]$!Z(&(A(.P(HP(1  Z` ; `Co>(9(/ <<`ZA(v`p` `h`P(\8(J`<<<`]g[Ш CZA`P  ڂA0(/< `C@ux( ;;`^H{Z(hPHHH`0h  ( (Z0;<<`a`(/` (/@@ @@@@< `E>"? ;;`^ BP\(``P(/`;;;`^PݶP((/```P(/(ՄDT`^P`Z`; `Cw`` <<`]Z``Zh( h ` x Z8hx h  <`E p8 (h  ~}}) }HH (h/@A ((P$(((7((8P$((J&'(`P'p&0((($VLB6A::RTE_6:5:36:60 644 0 0 22000 5310706656 33645 $VLB6A::RTE_6:5:36:60 $$$<$VLB6A +#+#+#$FST  QVLB6A 12829-12001 REV.2226 820329 LVL vWADD 12829-1X004 REV.2140 810804 @WADD  0.WCOMVADD  `E  WSUB 12829-1X004 REV.2140 810804 @ WSUB   @.WCOMVSUB  `E  WMPY 12829-1X004 REV.2140 810804 @WMPY  Q.WCOMVMPY  `E  WDIV 12829-1X004 REV.2140 810804 @WDIV  E.WCOMVDIV  `E  ݈WSAD 12829-1X004 REV.2140 810804 @WSAD  B.WCOMVSAD  `E  WSSB 12829-1X004 REV.2140 810804 @ WSSB  @.WCOMVSSB  `E  WSMY 12829-1X004 REV.2140 810804 @WSMY  W.WCOMVSMY  `E  WSDV 12829-1X004 REV.2140 810804 @WSDV  T.WCOMVSDV  `E  WPIV 12829-1X004 REV.2140 810804 @WPIV  Q.WCOMVPIV  `E  ޅWABS 12829-1X004 REV.2140 810804 @WABS  ?.WCOMVABS  `E  WMOV 12829-1X004 REV.2140 810804 @WMOV  N.WCOMVMOV  `E  WSWP 12829-1X004 REV.2140 810804 @WSWP   N.WCOMVSWP  `E  ݖWMAX 12829-1X004 REV.2140 810804 @WMAX  P.WCOMVMAX  `EQ  WMIN 12829-1X004 REV.2140 810804 @WMIN  F.WCOMVMIN  `EQ  ݀WMAB 12829-1X004 REV.2140 810804 @WMAB  :.WCOMVMAB  `EQ  WMIB 12829-1X004 REV.2140 810804 @WMIB  :.WCOMVMIB  `EQ  WSUM 12829-1X004 REV.2140 810804 @ WSUM   K.WCOMVSUM  `EA  WNRM 12829-1X004 REV.2140 810804 @ WNRM  F.WCOMVNRM  `EA  WDOT 12829-1X004 REV.2140 810804 @WDOT  C.WCOMVDOT  `EA  VWMOV 12829-1X004 REV.2140 810804 @9VWMOV N.WCOMVMOV  ++`Vd!Z H88+ WVMOV .12829-1X004 REV.2140 810804 @:WVMOV .ENTR.WCOMVMOV  <<`js$$$4@h< `D4*H- ** DWADD 12829-1X004 REV.2140 810804 @ DWADD E.WCOMDVADD `E  DWSUB 12829-1X004 REV.2140 810804 @DWSUB V.WCOMDVSUB `E  DWMPY 12829-1X004 REV.2140 810804 @*DWMPY )Q.WCOMDVMPY `E  DWDIV 12829-1X004 REV.2140 810804 @DWDIV J.WCOMDVDIV `E  DWSAD 12829-1X004 REV.2140 810804 @DWSAD B.WCOMDVSAD `E  DWSSB 12829-1X004 REV.2140 810804 @DWSSB T.WCOMDVSSB `E  DWSMY 12829-1X004 REV.2140 810804 @0DWSMY /N.WCOMDVSMY `E  DWSDV 12829-1X004 REV.2140 810804 @-DWSDV ,E.WCOMDVSDV `E  DWPIV 12829-1X004 REV.2140 810804 @*DWPIV )J.WCOMDVPIV `E  DWABS 12829-1X004 REV.2140 810804 @DWABS C.WCOMDVABS `E  DWMOV 12829-1X004 REV.2140 810804 @'DWMOV &P.WCOMDVMOV `E  DWSWP 12829-1X004 REV.2140 810804 @'DWSWP &X.WCOMDVSWP `E  DWMAX 12829-1X004 REV.2140 810804 @)DWMAX (B.WCOMDVMAX `EP  DWMIN 12829-1X004 REV.2140 810804 @DWMIN J.WCOMDVMIN `EP  DWMAB 12829-1X004 REV.2140 810804 @DWMAB B.WCOMDVMAB `EP  DWMIB 12829-1X004 REV.2140 810804 @DWMIB J.WCOMDVMIB `EP  DWSUM 12829-1X004 REV.2140 810804 @$DWSUM #V.WCOMDVSUM `E@  DWNRM 12829-1X004 REV.2140 810804 @DWNRM S.WCOMDVNRM `E@  DWDOT 12829-1X004 REV.2140 810804 @DWDOT P.WCOMDVDOT `E@  DVWMV 12829-1X004 REV.2140 810804 @1DVWMV &P.WCOMDVMOV ++`Vc Z H88+ DWVMV .12829-1X004 REV.2140 810804 @0DWVMV .ENTR.WCOMDVMOV <<`j$$$4@h< `D4*H- ** .WCOM 12829-1X005 REV.2226 820329 @.WCOM .ESEG.NFEX.VSE6 `H`H `C `x$b;;`[.p`pO8pAZ8p@p8pB`@x;99``1HH>xPhaPZp=pmpCQ Z((H (`h 9<<`^[apx  ` (oPQ`P({Q(v@ mQ`@p`h 8m<<<`^)``>@@p`?p`Apppm@@ 0m88< `B ;;`^z8 88(h`H p`` pPxxmhA (Ep8B` ;;;`^*=4Bpp`>@@p`?p`Ap (@@(@@; `Cw۶88 ,,`V&޶888(``H p(, .VSEG 12829-1X005 REV.2140 810804 @.VSE6  1.ENTR.NFEX <<`_ ` (sԀ5p` ('p `(888 P(` pp<;;`[,p`(.p{088`Z& 8 8 h (B8; `D/G8h ;;`]UKZ(w@x`@|p8(-8 Z`(Vp`(l` p@;..`X}hP(q`(qh 8 `ʨ h~`} 8(L22VI.hh .VRPL 12829-1X003 REV.2140 810804 ;;@.DVCT0.VECT0DVABS2DVDOT5DVMAB7DVMAX6DVMIB9DVMIN8DVMOV:DVNRM4DVPIV1DVSUM3DVSWP;VABS 2;##@[VDOT 5VMAB 7VMAX 6VMIB 9VMIN 8VMOV :VNRM 4VPIV 1# @߻VSUM 3VSWP ; SVS .VSRP *12829-1X003 REV.2140 810804 ##@L7VADD VDIV VMPY VSAD VSDV VSMY VSSB VSUB #G.VECT;;`aA[  P0  0hH(`'($;`IOy!H)!! .VDRP *12829-1X003 REV.2140 810804 ##@@cDVADDDVDIV DVMPYDVSAD DVSDVDVSMYDVSSBDVSUB#X.DVCT;;`ak "P2    " 2hH(`'($;`IOy!H)!!DVDIV DVMPYDVSAD DVSDVDVSMYDVSSB$VLB6B::RTE_6:5:152:127 644 0 0 114000 5310706660 34506 $VLB6B::RTE_6:5:152:127 $ $VLB6B +#+#+#K|FST ((++X/VLB6B/ 12829-12002 REV.2214 820201 + AVLB6B @}7))X QVADD12829-1X002 REV.2140 810803 ) }' VADD  M.FAD.ENTR ~~0AAA`P@pO`P@pN`P@pM ( pppp (GpL`@@MhHHOpI`@@NpKAKI`p`p` p8~E8L()( P @,J))XQVSUB12829-1X002 REV.2140 810803 ) 7 VSUB  1K.FSB.ENTR ~~0AAA`P@pO`P@pN`P@pM ( pppp (GpL`@@MhHHOpI`@@NpKAKI`p`p` p8~E8L()( P @`~))X+QVMPY12829-1X002 REV.2140 810803 ) H VMPY  +Y.FMP.ENTR ~~0AAA`P@pO`P@pN`P@pM ( pppp (GpL`@@MhHHOpI`@@NpKAKI`p`p` p8~E8L()( P @PNo))XQVDIV12829-1X002 REV.2140 810803 ) < VDIV  "_.FDV.ENTR ~~0AAA`P@pO`P@pN`P@pM ( pppp (GpL`@@MhHHOpI`@@NpKAKI`p`p` p8~E8L()( P @9( ppp(9p=`@@>hHH?p;A;`p`p88=("(k @ @ P))X BVSSB12829-1X002 REV.2140 810803 ) 1 VSSB  1K.FSB.ENTR nnY99`A@p@`A@p?( ppp(:p>`@@?hHH@p("(n A @! ))X!AVSMY12829-1X002 REV.2140 810803 ) H VSMY  +Y.FMP.ENTR kk88`@@p?`@@p>( ppp(9p=`@@>hHH?p;A;`p`p88=("(k @ @1))XBVSDV12829-1X002 REV.2140 810803 ) }E VSDV  "_.FDV.ENTR nnY99`A@p@`A@p?( ppp(:p>`@@?hHH@p("(n A @]))X2XVPIV12829-1X002 REV.2140 810803 ) J VPIV  .FAD.FMP.ENTR ~~p3DD`W@pV`W@pU`W@ pT ( pppp (MpS`@@ThHHVpOPhHHUAPO`p`p` ~&9Hp88S(*( W @(;))X/cVDOT12829-1X002 REV.2140 810803 ) 8 VDOT  bK.TADD .TMPY .ENTR .CFER .BLESNGMN ~~dEE`b@p]`b@ p\ ( A^ppp (Kp[`@A@]pV1RV`@A@\pZ9AVZRARVR` p` p88[()~6LN("^@u5))X BVABS12829-1X002 REV.2140 810803 ) {.VABS  qU..FCM .ENTR jjF77A`A@p@`A@p?(ppp(8p>`@@?hHH@p:@:`p`p88>(!(j A @ճ))XGVSUM12829-1X002 REV.2140 810803 ) 8 VSUM }.TADD .ENTR .CFER .BLESNGMN aa55`F@pA ( Bpp (4p@`@@Ap?);?;`p88@(!7(aB@%))XMVNRM12829-1X002 REV.2140 810803 ) 3 VNRM O.TADD ..FCM .ENTR .CFER .BLESNGMN ff!E::`L@pG ( Hpp (9pF`@@GDA.@DA@`p88F(!<(f H@q))X&MVMAX12829-1X002 REV.2140 810803 ) z= VMAX .FSB.ENTR .IDLP wwAA`L@pI (  (((p`Jp K(EpH`@@IA(>``p88H(+(w J @a!))XSVMAB12829-1X002 REV.2140 810803 ) z' VMAB .FSB..FCM .ENTR .IDLP ||͚EE`R@pO (  (((@p`Pp Q(IpN`@@OA(B``p88N(-(| P @`))XMVMIN12829-1X002 REV.2140 810803 ) 3 VMIN .FSB.ENTR .IDLP wwAA`L@pI (  (((p`Jp K(EpH`@@IA(>``p88H(+(w J @M ))XSVMIB12829-1X002 REV.2140 810803 ) ' VMIB .FSB..FCM .ENTR .IDLP ||͚EE`R@pO (  (((@p`Pp Q(IpN`@@OA(B``p88N(-(| P @p̏))X>VMOV12829-1X002 REV.2140 810803 ) =VMOV  .ENTR hh555A`=@p<`=@p;(ppp(6p:`@@;hHH<p88`p`p88:(!(h = @'FB))X&OVSWP12829-1X002 REV.2140 810803 ) ? VSWP  .ENTR DDA`N@pM`N@pL ( ppp (GpK`@@M`@@MhHHLpII`@@LpII`p`p88K(#( N @S))X-tWADD12829-1X002 REV.2140 810804 ) ~9 WADD ~e.FAD.ENTR .IMAP .IRES .DLDE ~~5ESSAAAljslhfshApAnsp (. pppp (`prjAbfbbnxdbd`p`~*W p` p88r(;(-<f  4s @ꧪ))X>uWSUB12829-1X002 REV.2140 810804 ) I WSUB c.FSB.ENTR .IMAP .IRES .DLDE ~~SSAAAmktmigtiAqAotq (. pppp (apskAcgxecAecAoxece`p~ l.W `p` p88s(;(- =g  5t @Y))XNtWMPY12829-1X002 REV.2140 810804 ) Z WMPY q.FMP.ENTR .IMAP .IRES .DLDE ~~5ESSAAAljslhfshApAnsp (. pppp (`prjAbfbbnxdbd`p`~*W p` p88r(;(-<f  4s @8))XCuWDIV12829-1X002 ((REV.2140 810804 ) N WDIV w.FDV.ENTR .IMAP .IRES .DLDE ~~SSAAAmktmigtiAqAotq (. pppp (apskAcgxecAecAoxece`p~ l.W `p` p88s(;(- =g  5t @qw7))X$YWSAD12829-1X002 REV.2140 810804 ) {? WSAD ~e.FAD.ENTR .IMAP .IRES .DLDE uu8HHQOXAQAUSXU(# ppp(IpWOAKASxMKM`p`p88W(.("uO X @~ŝ))X#ZWSSB12829-1X002 REV.2140 810804 ) = WSSB c.FSB.ENTR .IMAP .IRES .DLDE xxhGIIRPYARAVTYV(# ppp(JpXPxLLLTxNLN`p`p88X(.("xP Y @C))X9YWSMY12829-1X002 REV.2140 810804 ) T WSMY q.FMP.ENTR .IMAP .IRES .DLDE uu8HHQOXAQAUSXU(# ppp(IpWOAKASxMKM`p`p88W(.("uO X @))X7ZWSDV12829-1X002 REV.2140 810804 ) ~Q WSDV w.FDV.ENTR .IMAP .IRES .DLDE xxhGIIRPYARAVTYV(# ppp(JpXPxLLLTxNLN`p`p88X(.("xP Y @))XQwWPIV12829-1X002 REV.2140 810804 ) \ WPIV .FAD.FMP.ENTR .IMAP .IRES .DLDE }}vTTomvoAkAivk sqvs (/ pppp (cpuAmeiAeAeqxgeg`}##ݹX p`p` p88u(<(.#?i  7v @nV))XBvWDOT12829-1X002 REV.2140 810804 ) D WDOT // o.TADD .TMPY .ENTR .CFER .BLE.IMAP .IRES .DLDE SNGMN /߬PPnluAn Ajhuj (' ppAqp A(WpplAxb=A^bhAxfEAbf^A^b^` p` p88p(5@W Z(&7h6q@qN))X XWABS12829-1X002 REV.2140 810804 ) |:WABS m..FCM .ENTR .IMAP .IRES .DLDE ttjGGAAPANWPTRWT("pppA(HpVN@JRxLJL`p`p88V(-(!tN W @f))X%QWSUM12829-1X002 REV.2140 810804 ) > WSUM  **.TADD .ENTR .CFER .BLE.IMAP .IRES .DLDE SNGMN *cc,;;IGPI ( pLp (:pKGxE/AEA`p88K('=(c G L@ M))X&VWNRM12829-1X002 REV.2140 810816 ) 9 WNRM  // <.TADD ..FCM .ENTR .CFER .BLE.IMAP .IRES .DLDE SNGMN /hh@@NLUN ( Qpp (?pPLAJ4AFJF`p88P(' B(h L Q@))X-TWMAX12829-1X002 REV.2140 810804 ) {C WMAX  %%.FSB.ENTR .IMAP .IRES .IDLP .LBPR .DLDE %~~nLLPNSP (  (!(#(p`Op AN(LpR`pNA(H`88R(2(~ S @))X\WMAB12829-1X002 REV.2140 810804 ) {- WMAB  **׆.FSB..FCM .ENTR .IMAP .IRES .IDLP .LBPR .DLDE *~~LLLXV[X (  (!(#(p@`WAp V(PpZ`pVA(L`88Z(4(~ V [ @|X))X#TWMIN12829-1X002 REV.2140 810804 ) 9 WMIN  %%.FSB.ENTR .IMAP .IRES .IDLP .LBPR .DLDE %~~+ LLPNSP (  (!(#(p`Op AN(LpR`pNA(H`88R(2(~ S @/Nc))X\WMIB12829-1X002 REV.2140 810804 ) - WMIB  **׆.FSB..FCM .ENTR .IMAP .IRES .IDLP .LBPR .DLDE *~~LLXV[X (  (!(#(@p`WAp V(PpZ`pVA(L`88Z(4(~ V [ @Po))X-VWMOV12829-1X002 REV.2140 810804 ) IWMOV .ENTR .IMAP .IRES .DLDE rr&EEAANALUNRPUR("pppA(FpTLHPxJHJ`p`p88T(-(!rL U @ఠ**XAGWVMOV 12829-1X002 REV.2140 810804 * fWVMOV  .ENTR .IMAP .IRES .DLDE jjth;;AAAA?FA`E@pD(ppp(A?>`p`p88C('(j ? E @ .***XEJVWMOV 12829-1X002 REV.2140 810804 * gVWMOV  .ENTR .IMAP .IRES .DLDE ll<<A`H@pGDBID(ppp(=pF`@@Gp?ABx@?@`p`p88F('(l B H @̺))X>gWSWP12829-1X002 REV.2140 810804 ) K WSWP .ENTR .IMAP .IRES .DLDE }}PPAAcAafc_]f_ ($ ppp A(Wpea]YAax[Y[A]xYY`p`p8}U8e(/(#,] 'f @әY**X=NDVADD 12829-1X002 REV.2140 810803 * ] DVADD  c|.TADD .ENTR AAA`M@pL`M@pK`M@pJ ( pppp (DpI`@Jh HLpF`@KF`p`p` p88I() #E( M @?7**XNNDVSUB 12829-1X002 REV.2140 810803 * n DVSUB  s.TSUB .ENTR AAA`M@pL`M@pK`M@pJ ( pppp (DpI`@Jh HLpF`@KF`p`p` p88I() #E( M @Irh2**XINDVMPY 12829-1X002 REV.2140 810803 * i DVMPY  .TMPY .ENTR AAA`M@pL`M@pK`M@pJ ( pppp (D((pI`@Jh HLpF`@KF`p`p` p88I() #E( M @|c#**XBNDVDIV 12829-1X002 REV.2140 810803 * b DVDIV  x.TDIV .ENTR AAA`M@pL`M@pK`M@pJ ( pppp (DpI`@Jh HLpF`@KF`p`p` p88I() #E( M @XNw**X*>DVSAD 12829-1X002 REV.2140 810803 * T DVSAD  c|.TADD .ENTR gg@Q55`=@p<`=@p;( ppp(6p:`@;h H<`p`p88:("(g = @&F**X<>DVSSB 12829-1X002 REV.2140 810803 * f DVSSB  s.TSUB .ENTR gg0R55`=@p<`=@p;( ppp(6p:`@;h H<`p`p88:("(g = @"|**X6>DVSMY 12829-1X002 REV.2140 810803 * ` DVSMY  .TMPY .ENTR gg@Q55`=@p<`=@p;( ppp(6p:`@;h H<`p`p88:("(g = @Rqj**X->DVSDV 12829-1X002 REV.2140 810803 * W DVSDV  x.TDIV .ENTR gg0R55`=@p<`=@p;( ppp(6p:`@;h H<`p`p88:("(g = @0OR**XIUDVPIV 12829-1X002 REV.2140 810803 * d DVPIV  8G.TADD .TMPY .ENTR mCC`T@pS`T@pR`T@ pQ ( pppp (HpP`@Qh HSAKh HRK`p`p` p88P G(*( T @ **XEKDVDOT 12829-1X002 REV.2140 810803 * b DVDOT  .TADD .TMPY .ENTR .CFER oo<<`J@pE`J@pD( AFppp(=pC`@Eh HDA?A?`p`p88C(%(oF@B**X,?DVABS 12829-1X002 REV.2140 810803 * SDVABS   W.ENTR .ABS jj66A`>@p=`>@p<(ppp(7p;`@ @$**X55DVSUM 12829-1X002 REV.2140 810803 * `DVSUM  *+.TADD .ENTR .CFER QQt++`4@p/(0pp(+p.`A@/`p88.((Q0@jf&**X:=DVNRM 12829-1X002 REV.2140 810803 * ]DVNRM  .TADD .ENTR .CFER .ABSXX}00`<@p7(8pp(0p6`@7p2%222`p886((X8@**X?SDVMAX 12829-1X002 REV.2140 810803 * TDVMAX  .TSUB .ENTR .CFER .IDLP wwQ @@ `Q@ pO (  ((!(  p`Rp  AP(HpN`@OpJAJJ`J(A`  A` p8 8N(.(w P @F0d**XAUDVMAB 12829-1X002 REV.2140 810803 * TDVMAB  m.TSUB .ENTR .CFER .ABS.IDLP zz BB `S@ pQ (  ((!(%  p`Tp  R(JpP`@QpL7LL`L(CA`  ` p8 8P(/(z R @**XGSDVMIN 12829-1X002 REV.2140 810803 * \DVMIN  .TSUB .ENTR .CFER .IDLP wwQ @@ `Q@ pO (  ((!(  p`Rp  AP(HpN`@OpJAJJ`J(A`  A` p8 8N(.(w P @2@Q**XIUDVMIB 12829-1X002 REV.2140 810803 * \DVMIB  m.TSUB .ENTR .CFER .ABS.IDLP zz BB `S@ pQ (  ((!(%  p`Tp  R(JpP`@QpL7LL`L(CA`  ` p8 8P(/(z R @+**X8>DVMOV 12829-1X002 REV.2140 810803 * `DVMOV  vl.ENTR .CFER ii55A`=@p<`=@p;(ppp(6p:`@;h H<E>(pAp(6p@<x8+888`p88@(#([ < A@ ^,**XJ]DWMAX 12829-1X002 REV.2140 810804 * [DWMAX  ++.TSUB .ENTR .CFER .IMAP .IRES .IDLP .LBPR .DLDE +||7 HH  XV\X (  (%('( xRARp `[p AV(PpZ`  p V xRARR`R(L` 88Z(6(| V [ @G**XP_DWMAB 12829-1X002 REV.2213 820201 * [DWMAB  // .TSUB .ENTR .CFER .ABS.IMAP .IRES .IDLP .LBPR .DLDE / JJ  ZX^Z (  (%('( xTA.Tp `]p X(Rp\`  p AX xTABTAT`T(N`  88\(7( "X !] @i)**XR]DWMIN 12829-1X002 REV.2140 810804 * cDWMIN  ++.TSUB .ENTR .CFER .IMAP .IRES .IDLP .LBPR .DLDE +||7 HH  XV\X (  (%('( xRARp `[p AV(PpZ`  p V xRARR`R(L` 88Z(6(| V [ @W**XT_DWMIB 12829-1X002 REV.2140 810804 * cDWMIB  // .TSUB .ENTR .CFER .ABS.IMAP .IRES .IDLP .LBPR .DLDE / JJ  ZX^Z (  (%('( xTA.Tp `]p X(Rp\`  p AX xTABTAT`T(N`  88\(7( "X !] @u5**XTYDWMOV 12829-1X002 REV.2140 810804 * mDWMOV  Մ.ENTR .CFER .IMAP .IRES .DLDE qqDDAAQAOXQUSXU("pppA(EpWOAxGGGSxKKG`p`p88W(-(!q"O X @b"**XDKDWVMV 12829-1X002 REV.2140 810804 * eDWVMV  Մ.ENTR .CFER .IMAP .IRES .DLDE kk;;AAEACJE`I@pH(ppp(ACx?A>?`p`p88G('(k C I @B.`**XCKDVWMV 12829-1X002 REV.2140 810804 * dDVWMV  Մ.ENTR .CFER .IMAP .IRES .DLDE kk;;A`I@pHECJE(ppp(ACx?A?>`p`p88G('(k C I @S,q**XnkDWSWP 12829-1X002 REV.2140 810804 * y DWSWP  Մ.ENTR .CFER .IMAP .IRES .DLDE VOOAAgAejg cajc (& ppp A(WpieAxYYaxYYYAex]A]YaxYY`p` p88i V(1(% 4a +j @R**X$SNGMN 12829-1X002 REV.2140 810803 * O SNGMN   vl.ENTR .CFER .. A A `p`#p!`"0!p . " @3O0 0h/ 0h. 0()p(+p`O.:}{*$^@ų33X9WCOPY92074-1X008 REV.2540 <850925.1358>&EDTU2::ED%DECAR::RTE_6:5:144:60 644 0 0 110000 5310706662 34543 %DECAR::RTE_6:5:144:60 $<%DECAR +#+#+#GoFST "" z!DECHD 24306-16001 REV.2540 <850919.0940>"EDE JSCOM T24306-1X007 REV.2540 830801 @JSCOM 9.ENTRSGET  <<`_xLHLxMLNZhNHR (hNHS (&(HhNHP (HhNHQ <;;`^f]%(H+M6OhOHR (4ZhOHS (<(HZhOHP (HhOHQ (H`O@N8LhL; `DCP  `E8G( hL `D^uP` PP SDIV 524306-1X010 REV.2540 791205 @SDIV !! ü.ENTRS.GETSA2DESD1D2 SD2D1 SDCARSDEA2SFILLSPUT SSIGN!::`^pZpp`p@@p'`@(`':;;`h؛%((.$`(7$Ѐ`( @&F$€ L$; `F<Mp!S! " ::`^66S`"(X(_@!(8!(N e$(`"p#`!@@(Zp$@!:<<`]q@(p%`@(p&h&Hp) p*`)@*#p+p,Z((`&p-`!p.< `EJ." ;;`^`h-Hp/`+Z"@/p/h-H`-p0P8-@.(8.($&0-`-;<<`](`-h&Hp+`,@p,(`,h$H8$`%@&(̶8&(v < `E$(` <<`hЀ p1`p((2$21-$-$ -4Z`p3p4<77`al$'3$4(Ш(& 7 SEDIT 24306-1X011 REV.2540 800317 @+SEDIT&.ENTRSFILLSGET SPUT SZONE<<`_fr`pp@(&`P(#`@ p@(&(p<;;`_%(3,&`ppp p p ppp>Z`h(EP(y; `DDP(P(N <<`\`QHh (y x (yP(\PP(Wp(\P(dpph (yhx `p(y<<<`_dP(ph Z(h (hx (P(` (p P(@( < `E <<`[`@ p`(`P(P (P(P( x `@ p`@ p@<<<`c((9` (`P(` p&($`(($< `C#@ <<``#ɶ((`P(鄒Ӏ`P(P(ٶ(@ $@$<++`Z(8`@ p@($$$+`Pd  0Z *$\9X,.-R  (( SMOVE 92068-1X106 REV.2226 820115 (.MBT version) (@'SMOVE ?.ENTR.MBT  ..`\p 5@B5H . ~SMPY 24306-1X017 REV.2540 791205 @SMPY  .ENTRS.GETSA2DESD1D2 SD2D1SDCARSDEA2SFILLSSIGN<<`cGpעpشZ@@pZ(((Ƅ!4X`($*<<<`f?*`(3$$9pB$pI4P`(N(n< `CpUP@(U <<`gIS8(D[$ـa$$gׄmـ6רt$؀@p@p<;;`a\z`@phHPp(P(`@(8(}$ $؀䠀`ڀ; `Dp ::`^n$ڀ([hH@@p`pݶhHp`ڀ@hH:33`[X^8@(8(X$рעШ(a3 ՞SD1D2 %24306-1X012 REV.2540 791205 @SD1D2 B.ENTRSPUT  99`^5`p"p$h$Hp#$"#@"p"@$p$Z@"( 9 ֞SD2D1 %24306-1X013 REV.2540 791205 @SD2D1 =.ENTRS.GET 88`^fp#  @ p"$ڀ#$`$h"H@#8#8"(8 SDCAR 224306-1X008 REV.2540 791205 @(SDCARN.ENTR;;`]XJp+p,h,Hp-`+@-1Ё/p+x. (H/x.@0p+`,@`,;!!`Q8!@0p,@( `+ !!! SSUB C24306-1X020 REV.2540 791205 @SSUB .ENTRSA2DESADD SDEA2SSIGN<<`l npB4XB`B(=$@A!0B*$00B6<`N3$€@A<$B(6`A`BBB 6SADD 24306-1X004 REV.2540 791205 @SADD [.ENTRS.GETSA2DESCARYSDEA2SFILLSPUT SSIGN<<`h p4X`(x$`($$$*`p<<<`c/pZ@(p?0D4`@pN68@<`BR(V<<`ihT8(:\$Ѐ`(e&k$€q$$w¨ <<<`d}$ЀX(k($(_$ڀ`@p6p < `D&` %%`SkF@p&@(8(`p(V%`Ba   SCARY 524306-1X006 REV.2540 791205 @-SCARY .ENTRS.GETSPUT  <<`bfp.p/&/0`.@0 42p.x1 (H2x1@3p.#/61`/@3p/<`O&@( `. &&(( SFILL "92068-1X104 REV.2226 820520 (.MBT version) (@(SFILL o.ENTR.MBT .SBT  99`b P5H PPp!5@p "!9 SSIGN (24306-1X019 REV.2540 791205 @*SSIGN .ENTRS.GETSPUT  ::`c2m'`'('((!X(!`'p'$&': SDEA2 G24306-1X009 REV.2540 791205 @ SDEA2f.ENTRS.GETSPUT SZONE;;`c`Cp@A`A(hDx@pA&؀ApB$!BA`A(0@E(0;..`YQw'`A0FpA/$ڀBA(2`BP@B(98B(?$@B. `D`C0 CC xS.GET 24306-1X022 REV.2540 791207 @.wS.GET 9.ENTRSGET  `S}0 6xH  SA2DE N24306-1X005 REV.2540 791206 @ SA2DE.ENTRSGET SPUT SZONE;;``ӓ $HDpEE6F`FPI(!@J(`F@K(#`E(+`LpF`F;99``$MpF+&EF@E(28E(`DPG(6;$ЀF`FpFC4F9 `G`G 0 GG SZONE 24306-1X021 REV.2540 791206 @'SZONE .ENTRSGET SPUT  <<``ӑ $ڀ{`{@sp|( @t(/`| ux|P((98|(9`{@v(/<<<`Zr$@p|@w(/`x`{P(R(9`y`{P~(YP(bP(h@z< `C >P(A(G <<`\zA`|(G`p{(Lhm@|p{Q6{P}(Vڨ`~p{(L`}Px<<<`b](_`p{(L`xPx(_(R`p|(9nAJR1 -< `EaP+/0 '' SPUT 92068-1X107 REV.2226 820115 (.SBT version) '@SPUT  E.ENTR.SBT  `N"5HP && `SGET 92068-1X105 REV.2226 820115 (.LBT version)&@SGET  >.ENTR.LBT  `Nn"5H // QENH (92084-1Y030 Rev.2540 831223 Move text with CRT enhancements /@QENH ~.ENTRQMOVEQPUT QCOM <<`dF&d@@p% 'p$ 4Z$((" "&<`B`o&&&00 ?QEN77 !92084-1Y030 Rev.2540 850723 Move string with CRT enhancements 0@QEN77.ENTRQMOVEQCH77QPUT QCOM 11`^&d@@p  4Z( $1`B`h-- MvQCH77 392084-1Y030 Rev.2540 831204 Move FTN7X string to QBUFFR -@}QCH77K.ENTR.CPM MIN0 MAX0 MVC77QCOM ;;`c@p12Xp0(00(`@p0$"0p0;`LF$$'20p$.(`A`t22222 KQDECI 92084-1Y030 Rev.2540 820502 Convert 1 word to decimal with commas 2@QDECI {G.ENTR.CPM MOD MIN0 QINTRQPUT QINT SFILL QCOM <<`c4BZp(!(!((Z(><<<`e%ڂp$-04 pل8p٤=(נB(( <;;`aJp Z0(v`Z@h pxڄbp٦'i6`@;::`akh px$spZ( (|`߶p(~`p(p:<<``0(`@h pٰxڴp'&`@h px$<66`\.p( (`p(`ߴpݠ  Hpx&6`Q0z&pݴp( `I{,,$$'// S0QSTMP 92084-1Y030 Rev.2540 820502 Timestamp YYMMDD.HHMM to QBUFFR /@5QSTMP'EXEC .ENTR.CPM MOD QINTRQPUT QCOM `La;;`b!$ $!(&`p((`pZpp`p`@@p;<<`av6(<(<88(.@pEI`P@hHxU6`<`A(W(Y;;`a*X([^4bf`Zh  0(uu `(y(};`Fy} (Z`K ..l // JQFMPR N92084-1Y030 Rev.2540 820502 FMP error information, file NAMR/@0QFMPR.ENTRQMOVEQSQSHQNAMRQINT QCOM `L " @ ((p?@p> `E@FMP error `Hq M$ H `G occured with 11`]o  $L$( K ,&DJ 04ZI`@Ip=7= ;$P@I1`N#@ call during  @@++ QJULI 92084-1Y030 Rev.2540 830114 Call JULIA for date/time+@/QJULI%-EXEC .ENTRMOD QINTRQMOVEKCVT QCOM <<`m<JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEBC $- <88`\l-00p6690p$?$Z(C(E%`$(I(M8;;`_I`@p(P`pT p\ 0(e`p(g`p`;33`X hp p `p ` @@ Zp ` (w({8 8(m` @@ p333`[S0p` @@@p$`@ p(D3`OY$ 00d // q=QMSGN 992084-1Y030 Rev.2540 850723 Move message ID value to QBUFFR /@2QMSGNn.ENTRQMOVEQINT QPUT QINITQCOM <<`a7B ( `3pP3($84 3P7((6($<`P!`p'45+2/43 `G2) (( 22// sQWRTE 692084-1Y030 Rev.2540 850728 Write QBUFFR to LUOUT and QERRLU/@(QWRTE .ENTPQWRITQCOM  <<`^RZ`p4`44p4`4p`(` [p(Zp` (( 5`<&&`Tz (&%(2P(*(.-(2$2&`A`v55500 bQNSCR o92084-1Y030 Rev.2540 820623 Move NAME, SCODE and CRN to QBUFFR0@6QNSCR.ENTR.CPM QINT QMOVEQNMCKQPUT SGET QCOM <<`_g"@pf((ڨp`ipe`nP(#<44`]:88e(P('(-+$Zgm(P  (:(=4;;`b<4l@(GFkZ(N(N#$Nj(bTl$ZW(^$]k(b;`Fk4^#bj(`Hugnull:: gg(( QOPSY 92084-1Y030 Rev.2540 850711 Move opsystem name(@:QOPSYD.ENTRQMOVESMOVE$OPSY.XLA QCOM <<``XA $Zp`($`ʶ@p&Z(@p(# <11`Y $#(P(((- ,&(`P(1(6 56(`P(:1<<`^Y9(? >ж(`P(C(H G(`P(L(Q $P(`޶P(U(Z Y<66`ZMW&(`P(^(c b6(`P(g(l kж(`P(p(u 6::`^վq$t(`ͶP(y(~ }&(`P(( 6(`P(( :88`^}(`P(( ( PX p`PZp`0h8))`V/ X 0h͠ X 0h̠ X 0Z(@p)--`bDOS RTE-??A A1L XL6E6 M24 M1M32 3 -)) 5:QFTIM z92084-1Y030 Rev.2540 820718 Move FTIME to QBUFFR)@2QFTIM.ENTR.CPM MIN0 SFILLQSQSHSMOVEFTIMEQCOM <<`cU 6 `ppr w0r(;`y@prr@px<..`Uv$ (*(*`wp(,p3 P`@@.<<`^z9Zp(g(?(R`v@pr&Fr@pQ6s(d`u@prY<))`T W4Pr@pds`@pj#)`GYk6pt `GMs 10 ss00 QNAMR 92084-1Y030 Rev.2540 850728 Move NAMR buffer decoded to QBUFFR0@$QNAMR$$ .ENTR.CPM MIN0 .IDLP SGET MOVTXINTCVSFILLSMOVEQNMCK QCOM $;;`^tB@pf((Z`u@fp ` p `P (D` (&#;11`Zv$kpup`up (.`p.pP `@pc7c p 1<<`]|8?p `@ p((d `s@(Z(ZT`<++`WRUZp((dagpt`t@p#hs(m+;;`a2l (PpZ(s(u(`~p}w&rywpc`} c;88`]t(`t@fpc'$Zc(`t@fpcc&pww(`t@fpc$Ёcwo 8<<`_#rZ((4wryZ`| (`s@fpc'Ác(`s@fpc<44`^s$ρcpw6w(`s@fpcفcwo #r((@4<<``G6u((Cwry`{ (`r@fpccw6o # Pr((<44`\QPu(C4wryZ`z (`q@fpcc&wo #"r4<<`a?C#Z('(4-wryZ`x (:`n@fpc:c&wo #> r(C(<11`W>ND@pc`cp hp m(_pe/6R `vP(Z` p(1`Ho[@ p 8e(Mp(%%`[ gfile null : 0 : $$LU%gg,, EMOVTX Y92084-1Y030 Rev.2540 850728 Variable length text mover,@;MOVTX/ .ENTR.CPM SPUT SGET QCOM <<``t)BZpT@pSZp((` p(KpR#4`W<66`Y:$P('(.`@@Up`Xp( `@(>(>:V`p6,,`TY=(`@@UpQGQ88R(`Xp`p(, `DU$$ UU// mINTCV `92084-1Y030 Rev.2540 850728 Integer to ASCII (part of QNAMR)/@3INTCV =[.ENTRSMOVESFILLSPUT SGET CNUMDQCOM `B` -;;`c  p p[ &[`(""_Zpp`^p\-;::`^,6`P(8`p8&88\Z(( (@(J @]p[4J [:$$`QgJ p[T$_[ @@]  $`C`]]].. QINT |92084-1Y030 Rev.2540 820502 Integer to decimal free-format.@QINT  w.ENTR.CPM MIN0 SMOVE SFILLSPUT SGET CNUMDQCOM <<`__B( ( pqqp `upr6 `xP<00`W(!()8 8r(`vp `{p(7@ pq4q"z@ 0;;`^6Zp ` @wp ?t@ Z@(P(P#Ly`pZ(o(T(a;--`UMT`@spq#6^qx`p` @wpq'l q-`Hwi6v`@ p( `Ics $$--00ss00 \DQINTR 92084-1Y030 Rev.2540 820502 Integer to decimal right-justified0@1QINTR w.ENTR.CPM MIN0 SMOVE SFILLSPUT SGET CNUMDQCOM <<`cMB pP0( p Zp&!p <33`WZ#`p* `P(.Z(68 8(%`p `p(D3;;`]nC:@ pA$Z@ p ` @p   (a(a`@ @pW;,,`UCW`@ p^6p( `@ (s(sn,<<`^El`pZ(  ((`@ @ @pZ(6`<**`T>Zp@ p `p((((*;;`]K(6`p` @p'&`P@ p(;`I00 --$$ // tQDINT I92084-1Y030 Rev.2540 820925 Convert 2-word integer to ASCII /@.QDINT.ENTR.CPM MAX0 SMOVESFILLD2AD QCOM ;;``ęB( (  6E@ @(&(&";//`V H`pZ(A(*(7`@DpC64CG`/`M56p>F `@ p(  `ED $$ DD11 -QDINR 92084-1Y030 Rev.2540 820925 DBL-int. to decimal right-justified 1@,QDINR m(.ENTR.CPM MIN0 MAX0 SMOVE SFILLSPUT D2AD QCOM <<`btB pP0( p    (7<00`X>"(7`@ @p-6`@ p&4p(; 0;;`]Z:  @(L(LG`p(` Z@ p p (l`@ ;))`TKWp^&(k#f`p ` p )88`Zk(v`@ @pv6`@ p'6  6`@ p(8 `Fn --00$$ .. QOCT q92084-1Y030 Rev.2540 820502 Convert integer to octal chars.@QOCT G.ENTR.CPM SMOVESFILLSGET CNUMOQCOM ;;`^B( ( `ppp `jph `mP(;//`VJZ('8 8h(`((kp `op` @lp H Hpf/<<`^_?4 f(EAn`p(d(I(V`@ipfSf<**`T R6m`p` @lpfafk`@ p( *`HMi $$00B ii// QOCTR 92084-1Y030 Rev.2540 820502 Integer to octal right-justified/@&QOCTR w.ENTR.CPM MIN0 SMOVE SFILLSGET CNUMOSPUT QCOM <<`bBZp ` Xp 0(P (('6"  <//`V"` p (+ `p p `p6  `P /<<`[F8(:(B8 8(1`p `p ` @p  (b(b` @ @pU  <--`WES&` @ h  px_&p ( ` @  (t(t-<<`^ 7j6o  ` p ( ((P` @ @ Zp ((@ p<,,`U1  (@ p  ` Zp ` @p',`K+4   ` @ p (`I00 $$ B 11 QQHEX }92084-1Y030 Rev.2540 820502 Convert 1-word to hexadecimal chars 1@QHEX .ENTR.CPM MAX0 .ISH SPUT SFILLQCOM ;;``|B( ( 6tp`@@s((( `v@@;11`W (2(2`@@spp-4p|`p( (6(D`1<<`^i7@spp@p{`@spp`rpq`pppzpy(Z<//`UU(Z`x@p(]`w@p`@v@ppgp88q/`Ffj(H`u@p( `Kr70  $$rr// QBITS 92084-1Y030 Rev.2540 820502 Convert 1 word to binary digits /@-QBITS.ENTR.CPM MOD .ISH SMOVESFILLSPUT QCOM <<`cBpP0(p `p `p` p<44`\#p((4` @p36(D` @p="P 4;;`]J?(A(D` p @ p 8( `([([V`p(;..`Vl\ (o(o`@pj`Xp(4 .;;`]Rr((` @@p` @p` @p#;`F`@ p(`K0$$1100-- 6QBLNK 192084-1Y030 Rev.2540 850719 Move blanks into QBUFFR +/- -@(QBLNKx.ENTRMIN0 MAX0 SFILLQCOM <<`_Z( (` p.0.p` p(#` p` p." <`ME!6.p) $/` p ( `B/ //++ "QWRIT ]92084-1Y030 Rev.2540 850728 Write QBUFFR onto an LU +@7QWRIT&EXEC .CPM .ENTPMIN0 SFILLSPUT QCOM <<`^Z`pX`XXpX`Xp ` (` [p (p Z ((p (<..`W/ p # Zp ` (-6,  \(0@ p ` pW9.<<``56[  W` (S` Z (S(SJ Z 4 Y` pWRW p ` p [<`B!U `DY __ YY** QMOVE 192084-1Y030 Rev.2540 820502 Move text into QBUFFR *@%QMOVEP.ENTR.CPM MIN0 SMOVEQCOM <<`bBZp/@p.Xp--(+`@p- &Ѐ-p<`K"$(0`@p`A`r00000 QMOV1 ;92084-1Y030 Rev.2540 820718 Move text into QBUFFR with offset 0@QMOV1P.ENTR.CPM MIN0 SMOVEQCOM <<`dF6p8@p7 X:p66(4`@p6% <&&`R< $66p@@9p6166`@p&`B`{999** QTAB #92084-1Y030 Rev.2540 820502 Tab to abs/incr column*@QTAB  ʫ.ENTRMIN0 QCOM  ;;`aHz((@ h  p!x"!6"p (` p!!p ;// QLUER 92084-1Y030 Rev.2540 850728 Set/read the error LU for QWRTE /@8QLUER  ..ENTPQCOM  77`Z(`p4Z`p`(` p`((p p(711 QFILL >92084-1Y030 Rev.2540 820502 Fill QBUFFR with a char (R1 format) 1@&QFILLQ.ENTR.CPM MIN0 SFILLQCOM ;;`_60p<(P0<(Z(`p(p;22`Wl(#`p(,`@=p<+6<p(1(:72`F 64P`p(`A`}===-- "QCNTR g92084-1Y030 Rev.2540 820502 Move text to QBUFFR centered-@1QCNTR z>.ENTR.CPM MIN0 MAX0 .IDLPSMOVESGET SFILLQCOM ::`c?2 0(p('('%d:22`Y#Zd(4-dephdf(Bpc#9`eP(=2;;`a/G<(D@p8c(4(`@h   @@pa Tadp\d`; `D&]P@p( `C`d dd.. JNQCN77 G92084-1Y030 Rev.2540 850723 Move string to QBUFFR centered.@}QCN77K.ENTR.CPM MIN0 MAX0 MVC77QCOM ;;`c"B@pE  0(p((((&;33`]l#( `@   @@pC8C6Fp?6Ѐ`3 `C'@p( `A`FFF// FQPUT 92084-1Y030 Rev.2540 820502 One char into QBUFFR (R1 format)/@QPUT 1.ENTR.CPM MIN0 SPUT QCOM 55`](8( ( ڨ4P`h px4Pp( 5// QLOGL C92084-1Y030 Rev.2540 820502 Convert a LOGICAL value to ASCII/@,QLOGL.ENTR.CPM .ARTNMIN0 QSHFTSMOVESPUT QCOM <<`crB( ( ($2Lf&Z( (%%<44`\y#B`h p(x)/&()p( P`A@(9(@8&;A4;;`^sI?Z(G#4GA`A@p( `=@Z(S(Z6;=(a;..`W]#a=`=Z@p( `:@(m(t@;6:.;;`^Tt({#{:`:@p( `=@(($4;=Z(#;11`[:4=`=@p( (&B$ 2((1<<``GE6?`Zh p(x)()p( `>@(($.;><//`XN=(#6>`>@p( `>@(($*;>/;;`^wZ(#4>`>@p( `=@Z((2;=(;..`W#=`=Z@p( `:@((<;6:.`NR(!#!:`:@pP( ( ""`Y *clear false off yes set truenoFFonTT"**00 lQSHFT Q92084-1Y030 Rev.2540 820502 Shift lowercase chars to UPPERCASE0@-QSHFTr.ENTR.CPM MIN0 MAX0 .IDLPSPUT SGET QCOM <<``HB Lp(((`p( `@MpJJp<00`Yf? `phL(HpK,RPX(1pJ6O(80%%`Qc9J(D`NpJ#D4ZJ88K('(% `EaL_za LL,, =#QTIME 92084-1Y030 Rev.2540 830208 Move time of day to QBUFFR,@QTIMEUEXEC .ENTR.CPM SMOVEKCVT SPUT QCOM ;;`b`Z@  ( ( 6R  Zh p`p`;44`Y"Z0(*`ٶ@ p (,` p (;2 p:&  (G4<<`^;> 0pѤGݶ  `@ p (UR  ` p X 0<--`ZYpa6  `@ p ؀p 0-<<`_s(v( `@  ((( `h 0(   <44`[Z0h pxҤݦ `@ p P`@  Z(h 4;;`_Үp`p`0( ((6  ($  ;`EU̶`@ p ( `NW PM AM  :: // QSQSH P92084-1Y030 Rev.2540 820718 Squish extra spaces from QBUFFR /@*QSQSH.ENTR.CPM .IDLPSPUT SGET QCOM <<`_??pp p (p  (p   ((` p @ <11`Vh pK` p hK6M(FpL-   `NP (1(8` 0(B`O1++`T6Zp(:p6?((   ` p 8 8L((` p (+`CM MM.. S,QTRAL (92084-1Y030 Rev.2540 820702 Reset QPOINT to last non-space.@/QTRAL .IDLPSGET QCOM  <<`]Cp@p#`#ph&6%(p$`'PP(`pШ@p<`FP8$( p(`C`% %%11 NQSPCL 92084-1Y030 Rev.2540 820531 Move special characters into QBUFFR 1@-QSPCL.ENTR.CPM .ARTNMIN0 SFILLSPUT SMOVEQCOM <<`cjUB( ( `$B$Bu(  `@h<33`\i # px*&p(0( 5`h px$?3::`^?p( G`p`p(T0(Z( `@:00`X](a(s$h`@p4p`P@p( 0<<`^4u(y(6~((`@pp`p#<`I`p`Pp( `J &d )) #rQPNAM 92084-1Y030 Rev.2540 820702 Move PNAME to QBUFFR)@,QPNAM.ENTR.CPM .ARTNSMOVESFILLSGET PNAMEQCOM ;;`]8"( ( ڨ`p `p  `P P(( @ ;00`Xp 8(`((Qn6(`@ @(:(:660<<`^A@54Z`p(O#A `@ p#K`@ @p( `@ <''`S`S(b(b^4Z`p(l#i'<<`]1f `@ p( `@ Z@((|`p(#<))`S{&`@p#6 `@ @p#)`LQ$6`@ @p( `K : $$: -- &"QSET 692084-1Y030 Rev.2540 820730 Set or return common params -@QSET  ..ENTRQCOM  ;;`\#B( ( p [`5((p `4((p ((` [;88`Z`3(!(#` `2('()` `1(-(/` 822 6QINIT '92084-1Y030 Rev.2540 850729 Initialize QBUFFR,QPOINT,QLSTLU,QERRL 2@3QINITY.CPM .ENTPSFILLQCOM <<`_dZ`p$`$$Zp$`$((p [`$6%((p  %  &< `DPp  `B`% %%// QCOM \92084-1Y030 Rev.2540 850712 QSUBS's common block declaration/@QCOM <<`n# <<<`n=. <..// X:D2AD 92084-1Y038 REV.2540 Double integer to ASCII<850823.1124> /@{D2AD "a.DIV .DLD .DST .ENTR<<``,EJ 4P6pA @ @p!`FZpB`ApCh5HA8B(((G<22`VK `FpB8HF8C((0GڰHF8C(`Dp`A52;;`c1D EHpppHڂ@ (f8P(\X(c @ H(f8;55`Z7'g6@I`(qIp8I8(h (h`h JhIJ5 `D` ,,`[0- P!p@ p`!xBh!`,`A` .. 7PMVC77 92084-1Y039 Rev.2540 850724 move FTN7X string<850827.0900>.@MVC77 ?.ENTR.MBT  ''`VfS8P5H Z'.. QNMCK %92084-1Y040 Rev.2540 810331 FTN callable NAM.<850919.0903>.@)QNMCK  .ENTRNAM.. ;;`^[B$`!pp p(8p8p $Z(`"(h#x; `G  $ %EXER::RTE_6:5:308:128 644 0 0 232000 5310706664 33775 %EXER::RTE_6:5:308:128 $4H4%EXER +#+#+#4Z*FST CCX/ +PAS.GLOBALINFO24398-16062 REV.5020 <900302.0 900305.1540/SRC_24398/R5020/EXER.PAS C@6/CCX +START_CHILD 24398-16062 REV.5020 <900302.0 900305.1540 /SRC_24398/R5020/EXER.PAS CJSTART_CHILD b ff@v.ENTR .LBT .MVW .SBTEXECPAS.1 PAS.2 PAS.200 PAS.3 PAS.APPEND_FILE PAS.BITMASK1PAS.CLOSEFILE PAS.NONCDSPAS.SETINIT PAS.SETINTERINITRMPAR f JJ@j j`@xh6p  ,HH@ (""h6H h6HH `ppwh6H@wH h6p`w@ĈHH` 8wA8(-I~}|{zyxQQRJ--L`prA]r`@xh@6p ,H@ (vA vQMM''Ap~A`h p}p|p{pzpypx(91@áexclus+M@]f|&BBX +CLEAR_OUTBUF24398-16062 REV.5020 <900302.0 900305.1540/SRC_24398/R5020/EXER.PAS BQCLEAR_OUTBUF// n.DIS.DLD.DST .SBTPAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDS/((AAA h6@DH` ((0 (= @%EEX$ +INVALID_COMMAND 24398-16062 REV.5020 <900302.0 900305.1540 /SRC_24398/R5020/EXER.PAS E8 INVALID_COMMAND 77JPAS.1 PAS.2 PAS.200 PAS.3 PAS.5 PAS.NONCDSPAS.WRITELINE PAS.WRITESTRING 7F JA ( $$.(&Command not supported for this device.$@5AAX! +INPUTERROR24398-16062 REV.5020 <900302.0 900305.1540/SRC_24398/R5020/EXER.PAS A INPUTERROR>> PAS.1 PAS.2 PAS.200 PAS.3 PAS.5 PAS.NONCDSPAS.PROMPTPAS.WRITELINE PAS.WRITESTRING >B JA  !!  (!Invalid input, please try again: !@BBX*7 +PRINT_BINARY24398-16062 REV.5020 <900302.0 900305.1540/SRC_24398/R5020/EXER.PAS Bk(PRINT_BINARY44F.SBTPAS.1 PAS.2 PAS.200 PAS.3 PAS.BITMASK1PAS.NONCDSPAS.WRITECHAR 4FFz##h56`%`6p&p#`# ,H5@(A2A3(438#8&((F!!)`((*p'8('p%(10$!@xC@@XP8 +WRITEHEX24398-16062 REV.5020 <900302.0 900305.1540/SRC_24398/R5020/EXER.PAS @ (WRITEHEX 99 .DIV.LBTPAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDSPAS.SINGLEMOD PAS.WRITECHAR 9DD%%A 23`% 7h6H6Hp&A &3%45h66Hp& $&3(D$$)`((*p'8('p%(  $@ @@X % +SPACE 24398-16062 REV.5020 <900302.0 900305.1540 /SRC_24398/R5020/EXER.PAS @ 9SPACE  ((PAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDSPAS.WRITECHAR (--g`p(p`p#$@p8( - `(p8p( @@@@Xy[) +TIME_MSG24398-16062 REV.5020 <900302.0 900305.1540/SRC_24398/R5020/EXER.PAS @ F TIME_MSG 77JPAS.1 PAS.2 PAS.200 PAS.3 PAS.5 PAS.NONCDSPAS.WRITELINE PAS.WRITESTRING 7@ JA  ++  (2This utility may take several minutes to complete.+@ղrBBXy +DEV_PRINT 24398-16062 REV.5020 <900302.0 900305.1540 /SRC_24398/R5020/EXER.PAS BzDEV_PRINT NTT )PAS.1 PAS.2 PAS.200 PAS.3 PAS.5 PAS.BITEXTRACT1 PAS.NONCDSPAS.WRITECHAR PAS.WRITEINTEGER PAS.WRITELINE PAS.WRITESTRING TBBp@p Y(`p(`hH (Axp`(.@pA'YpA -(>@p8Yp >88(`DB??0(`(v`(PP`(u`Z,㈈P(]P(eP(m(u d(u l(u t(u(`(~~((`(XX++`Z,P(P(PA(( A( A( (`( (J XMM^11`(p8p(A B / 7961B B / 7962B B / 7963B B / 7961B B / 7962B B / 7963B  M@]@@XI +PRNTADDR24398-16062 REV.5020 <900302.0 900305.1540/SRC_24398/R5020/EXER.PAS @ YPRNTADDR aaj.DST.LBT .MVWPAS.1 PAS.2 PAS.200 PAS.3 PAS.BITEXTRACT1 PAS.NONCDS PAS.WRITEDOUBLE PAS.WRITEINTEGER PAS.WRITELINE PAS.WRITESTRING SPACE a#HH`l( qfAfg Sg A(Qyhhg jRiiiAAU 'Ugk0llgho6 pW :Wg`J(A (QkJmH Amg OTg YIImZ..`Y([pX8Y`XhpA n( H SRBlock Address = Cylinder = Head = Sector = I@GeAAXR +PRNTSTATUS24398-16062 REV.5020 <900302.0 900305.1540/SRC_24398/R5020/EXER.PAS A{)APRNTSTATUS//.LBT.SBTPAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDSSTART_CHILD /t<<`(p=(p=`j(p<(`i(p<(`k(`Mp<(`Np<`Qp?p>h@6H>hL6H>8>8?( hL6HO`PA;IJl=<KA##AB`A(Cp@8A( c#@YxrAAXK +CHECKQSTAT24398-16062 REV.5020 <900302.0 900305.1540/SRC_24398/R5020/EXER.PAS A{ +CHECKQSTAT0>> FPAS.1 PAS.2 PAS.200 PAS.3 PAS.5 PAS.NONCDSPAS.WRITELINE PAS.WRITESTRING PRNTSTATUS>UUR((`(p)(&`PJh@PI0($`(`((J($ "97J78p)`)+U33K,`+(-p*8+*p(`Jp)(Error during Request Status 3 I @>]`AAX˜ +DASH_WRITE24398-16062 REV.5020 <900302.0 900305.1540/SRC_24398/R5020/EXER.PAS ADASH_WRITE11'PAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDSPAS.WRITECHAR PAS.WRITELINE 1%%7`ppA 88(J% (- @X@@Xk  +PUTILITY24398-16062 REV.5020 <900302.0 900305.1540/SRC_24398/R5020/EXER.PAS @ 7PUTILITYj RR ۬.LBT .SBTDASH_WRITEDEV_PRINT PAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDS PAS.WRITEINTEGER PAS.WRITELINE PAS.WRITESTRING R~~n8??J@ p`p@ph6@HP(p`P0(`p`ȆA@(<`pph6@Hh6p`@@H`H 88(*A C~Hu?CC=JA  L QA\ Xp  eA j`(`(w w`P({(A ##t`P((A  #MM55(@ =UTILITY LU is a Current unit = (fixed) (removable) (controller)  :AM@@@X" +ENDER 24398-16062 REV.5020 <900302.0 900305.1540 /SRC_24398/R5020/EXER.PAS @ 9ENDER [ SS 5.LBT .SBTCLEAR_OUTBUFDASH_WRITEPAS.1 PAS.2 PAS.200 PAS.3 PAS.INLINEERROR PAS.NONCDS PAS.WRITELINE PAS.WRITESTRING S>>J p`p@ph6H@HPɀ(p`P0(`p`P(%P(DP(c(`ˆA@(C`pph6H@Hh6p`@@HaM>@@` 88(1(`̆A@(b`pph6@Hh6p`@@H`H 88(P(`ʆA@(`pph6H@Hh6p`@@H` AAg~ 88(o(Dh  =J D`Ph@P0H((AJJ--`(p8p (@=COMPLETED FAILEDTERMINATED BY USER /8;AJ@EBBX& +DISPLAY_LOOP24398-16062 REV.5020 <900302.0 900305.1540/SRC_24398/R5020/EXER.PAS BaDISPLAY_LOOPAA PAS.1 PAS.2 PAS.200 PAS.3 PAS.5 PAS.NONCDSPAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRING A&&JA J&&& A`(p8p( Loop count = &@x 8??X6L +UPCASE24398-16062 REV.5020 <900302.0 900305.1540/SRC_24398/R5020/EXER.PAS ? \7UPCASE0 99FPAS.1 PAS.2 PAS.200 PAS.3 PAS.BITMASK1PAS.NONCDSPAS.SETINIT PAS.SETINTERINIT9AA,""@$FE $EDC`G@`"x5 ,H5@(`"@Kp#( `"p#`#7A%%8`7(9p6876p"`Jp#(za$% J @rAAX@ +MORE_LINES24398-16062 REV.5020 <900302.0 900305.1540/SRC_24398/R5020/EXER.PAS AMORE_LINES|0aaa .CBT .LBTEXECPAS.1 PAS.2 PAS.200 PAS.3 PAS.5 PAS.BLANKFILL PAS.NONCDS PAS.PROMPT PAS.WRITECHAR PAS.WRITELINE PAS.WRITESTRING UPCASEaSKKA ch6`6 ((p`A@v(](A - 2A 7 ?a DA I N11|K pvh6 pPpb(_pb`b122h?`pb(@A Jca1 More...('s' to stop listing)2 S @-,K>>X +READ24398-16062 REV.5020 <900302.0 900305.1540/SRC_24398/R5020/EXER.PAS > READ2 yy .CBT .LBT .MBT .SBTENDER PAS.1 PAS.2 PAS.200 PAS.3 PAS.4 PAS.5 PAS.BLANKFILL PAS.CLOSEFILE PAS.ENDOFFILE PAS.HALTPAS.NONCDSPAS.READLINEPAS.READSTRINGPAS.RESET_FILEySPAS.WRITELINE PAS.WRITESTRING UPCASE+zAAJ(A h6`6 A2J`px`xh6p@xHH P(7@xpx("`x(Spph6ZAKK@H ph6p@HH` 88(?h6JA p[^h6`6 (h(gpqӀh6`6A ({(zpAh6`6 (>>r(00(`J( A   (ڨ>IIw22(1E2 EXITEXProgram halted by user request!  I@Hg]AAXwa +READNUM 24398-16062 REV.5020 <900302.0 900305.1540 /SRC_24398/R5020/EXER.PAS A AREADNUM %0 xx_ .CBT .DAD .DCO.DLD.DMP.DNG.DST.LBT.SBTINPUTERROR PAS.1 PAS.2 PAS.200 PAS.3 PAS.5 PAS.BITMASK1PAS.BLANKFILL PAS.HALTPAS.NONCDSPAS.SETINIT PAS.SETINTERINITx--~PAS.WRITECHAR PAS.WRITEDOUBLE PAS.WRITELINE PAS.WRITESTRING READ-~~oIIpp pp A A `P_(Ah6`6 (%($p.h6A`6 (8(70(?p(Ap`(qh6H\`]@~$kICC` [P^(M(Qp`Zph6@HP]  (@i`@xh6p@@H ,H@(`p`p(p (Q` (FF  `p`[A@0( p ` (`p(p`p@ph6H@H@`h AA AAAA@p8(`.DDA(D ( (  (p p`  Yhp  (( ` @  ((( p `p(` (  &HHJ (W (!p ((0(Wp 6 7JA ? MD AK RP AU  ` (p@p::^!!d  h6A`6  (p(mp (u ` A(AA:?MM`(݈p8`(p8ۈ`(Ap8AAAp(90 ((!, .1@ Y 2 ALL INF Input was not a number. Input AAJ)..was not a valid CS/80 LU #. Number is out of bounds, it should be in therange of <= # <= AY  -@'FCCX + READPATTERN 24398-16062 REV.5020 <900302.0 900305.1540 /SRC_24398/R5020/EXER.PAS CREADPATTERN ;0cc(.DLD.DST .LBT .SBTINPUTERROR PAS.1 PAS.2 PAS.200 PAS.3 PAS.5 PAS.BITDEPOSIT1 PAS.NONCDSPAS.PROMPTPAS.WRITELINE PAS.WRITESTRING READchuFF p  AJ A  ph6H`H h6H@H P(fh6H@H pp`A@p`A@(C`@p`AFCC@p`A@(\`@pP (`(bp `p(@p`A@p`0(| p ` (`p`(h6@H]];g44H p`A@(`@p (`@p @p@p((` (¨]44@!!(5  2Input the hexadecimal pattern of up to 8 hex digits: 4{  /:@G@Ż{AAXy|X + GETADDR 24398-16062 REV.5020 <900302.0 900305.1540 /SRC_24398/R5020/EXER.PAS A $pGETADDR  zz .DIN.DLD.DSB.DST.MVW.SBTINPUTERROR PAS.1 PAS.2 PAS.200 PAS.3 PAS.5 PAS.BITDEPOSIT1 PAS.DOUBLEMOD PAS.NONCDSPAS.PROMPTPAS.WRITEDOUBLE PAS.WRITEINTEGERPAS.WRITELINE z PAS.WRITESTRING READREADNUM XCOMP =::` ((  J `WpJ` [PU(PV((p(p너(`PW(  `(/Jp `D `p 7 \ ] o `p lh7:BB`` l(pH  AM eT -J A eJ  sp r`  (oAg s sA s(w /| c~~f=|EEA 9  c r ;A b CJ h b AAxhJ6 ` 0  ( p t(~NNZ** E` (A H MAܡ  SJ Ax tN[[(6@H o  sDo you want block (B) or three vector (V) addressing? Input block address (0 - )? Input cylinder (0 - )? Input head (0 - )? Input physicalFL sector (0 - )? BVc@Sq@@XQ +!DESCRIBE24398-16062 REV.5020 <900302.0 900305.1540/SRC_24398/R5020/EXER.PAS @ >DESCRIBEa0 TT.DLD.DST .LBT .MVWCHECKQSTAT PAS.1 PAS.2 PAS.200 PAS.3 PAS.BITDEPOSIT1 PAS.BITEXTRACT1 PAS.NONCDSXCOMP XDESC TH::p` p o` P( p p` lp  \ ] o (` P(~Ah` # \ ] o (}. 'J ch6  p bh ) :BB ` + eh6 h J gh6  P p ih6  @p j` j(y`pp@pj p@pA v Y88(`p kBB%|p( J  cp bJ  `J  eJ  g p ip j p kp`B%%) `p(H o ( - % } @u5AAX +"LOG_HEADER24398-16062 REV.5020 <900302.0 900305.1540/SRC_24398/R5020/EXER.PAS AU LOG_HEADER''PAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDSSTART_CHILD '0 A  t ( @ ?AAX> +#PHYS_PRINT24398-16062 REV.5020 <900302.0 900305.1540/SRC_24398/R5020/EXER.PAS A$PHYS_PRINT22qPAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDSPAS.WRITELINE PAS.WRITESTRING 2IIs$$JA *&&'`z( Apz6(('(# Apz!:))'$I((F}%(Print physical address disabledenabled (@xEBBX*' +#ZREQUESTSTAT24398-16062 REV.5020 <900302.0 900305.1540/SRC_24398/R5020/EXER.PAS BlZREQUESTSTATFF CHECKQSTATENDER PAS.1 PAS.2 PAS.200 PAS.3 PAS.BLANKFILL PAS.NONCDSPRNTSTATUSPUTILITYXRQST F77[A   =A \ ]A o J( A(7B (@REQUEST STATUS@ΒRDDX +#PRNT_FAULT_ERROR24398-16062 REV.5020 <900302.0 900305.1540/SRC_24398/R5020/EXER.PAS D PRNT_FAULT_ERROR''PAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDSSTART_CHILD '0 A  u ( @tɓCCXC +$PRT_ERROR_INFO24398-16062 REV.5020 <900302.0 900305.1540/SRC_24398/R5020/EXER.PAS CPRT_ERROR_INFO''PAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDSSTART_CHILD '0 A   % `(p 8 p (  @S3??XVJ +$DOUTIL24398-16062 REV.5020 <900302.0 900305.1540/SRC_24398/R5020/EXER.PAS ? x DOUTIL0 //.SBTCHECKQSTATPAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDSXUTIL /==t`p`p`phE6``Ip"A\]AoDp` =WWY!%%` ("p8 ` ((p8 ` (.p8 ` (4p8 pppp`Hp(W H @gنDDX{ +'SET_DEVICE_FLAGS24398-16062 REV.5020 <900302.0 900305.1540/SRC_24398/R5020/EXER.PAS DjXSET_DEVICE_FLAGSXX {DEV_PRINT PAS.1 PAS.2 PAS.200 PAS.3 PAS.5 PAS.BITMASK1PAS.NONCDS PAS.SETINIT PAS.WRITEINTEGER PAS.WRITELINE PAS.WRITESTRING X?? pp pp pp pp pp@ =Cdebcd `k@`ZxT,z ,HT@p`YxU$zPrp`YxV(zPrVUE?99 (Op`xp`Z,zPr(K(O p`yp`Y$zPxp`YxT(zPvT(`YzPt (e(ip p`Z,zPvp`YxTzT~~pVxDD(}pp UCdefcg`k@`ZxT,z ,HTH@p`YxUzPqU( p`rp@ ZCcedh`k@`ZxT,z ,HHT@~AAp`YxUzPsU (p@`sp _Cceij`k@`ZxT,z ,HTH@p`YxUzPsU( p`up@ dCcehi`k@`YxTz~~77 ,HTH@(p`Z(z( p`vp`Z(zPq ((p`wp`00p|`00p}`B(? -lddfA 2\f 9~ 4 niifp@@ X::XY""`X(ZpW8XWpB(CLU is a  :@8AAX! +'YESNOINPUT24398-16062 REV.5020 <900302.0 900305.1540/SRC_24398/R5020/EXER.PAS AYESNOINPUT0**INPUTERRORPAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDSREAD*88 Jp`[P( P ( (p(p( p`(`8d`p( NY @>>X= +(RUIN24398-16062 REV.5020 <900302.0 900305.1540/SRC_24398/R5020/EXER.PAS > 'RUIN JJ YYENDER PAS.1 PAS.2 PAS.200 PAS.3 PAS.5 PAS.NONCDS PAS.PROMPT PAS.WRITELINE PAS.WRITESTRING YESNOINPUTJ//4A   2J@ (/55!R$$('This routine will destroy current data. Should it continue? 5@BBX0 +(PRESET_DRIVE24398-16062 REV.5020 <900302.0 900305.1540/SRC_24398/R5020/EXER.PAS BSPRESET_DRIVE0<< -DOUTILPAS.1 PAS.2 PAS.200 PAS.3 PAS.5 PAS.NONCDSPAS.WRITELINE PAS.WRITESTRING <33GJA "(( !!!(p(p`3!!@~`/p(Preset in progress... ! / @@@X[ +)ZAMCLEAR24398-16062 REV.5020 <900302.0 900305.1540/SRC_24398/R5020/EXER.PAS @ 'eZAMCLEAR ii w .SBTCHECKQSTATENDER FBUSINVALID_COMMAND PAS.1 PAS.2 PAS.200 PAS.3 PAS.5 PAS.BLANKFILL PAS.NONCDSPAS.WRITELINE PAS.WRITESTRING PUTILITYXAMCL isEE`  (bA gqh =ipd` (Q \hp6  A \(Qpd ( wjjgA/ kkg 8 llgA? hhg H ??7fEmmgO nJng AW \ ]A o gd(_Ag(ao(ce?f^^( @,2* AMIGO CLEAR No HPIB Bus Controller LU has been assigned to the interfacecard during system generation. On an RTE-A system, this LU is required to run the Amigo Clear | command to a CS80 drive.@:BYAAXqZ! +)ZCANCEL 24398-16062 REV.5020 <900302.0 900305.1540 /SRC_24398/R5020/EXER.PAS A |ZCANCEL  ?? pCHECKQSTATENDER PAS.1 PAS.2 PAS.200 PAS.3 PAS.BLANKFILL PAS.NONCDSPUTILITYXCNCL ?22jA  =A \ ]A o A((2g(@CANCEL@ѿ@@Xbp+ +*ZCHINCLR24398-16062 REV.5020 <900302.0 900305.1540/SRC_24398/R5020/EXER.PAS @ /ZCHINCLR ?? kCHECKQSTATENDER PAS.1 PAS.2 PAS.200 PAS.3 PAS.BLANKFILL PAS.NONCDSPUTILITYXCICL ?22jA  =A \ ]A o A((2Z{(@CHANNEL INDEPENDENT CLEAR @BBXG +*ZCLEARLOG 24398-16062 REV.5020 <900302.0 900305.1540 /SRC_24398/R5020/EXER.PAS BmZCLEARLOG @vvDOUTILENDER INPUTERROR PAS.1 PAS.2 PAS.200 PAS.3 PAS.5 PAS.BLANKFILL PAS.INLINEERROR PAS.NONCDSPAS.PROMPTPAS.WRITELINE PAS.WRITESTRING PRESET_DRIVEPUTILITYREADNUM vtXDDA  =JA    J A#  ` |(1A/  ` 0 0 A(?=  F DCCJ JA Q   x`PD(\(^A@(l j J `P@(xPA(PB(PC(PE((A (A  dd288( "„( ,„((hF`PE(S(A 2 (A 8 ΨdV``( @   CLEAR LOGSClear logs: 0 - all logs 1 - ERT log 2 - run-time log and fault log 3 - cache error log 4 - exitWhich log? Warning: preset failedAll ER77ֵ!&&T Run-time and fault Cache error logs clearedlogs not cleared7@hBBX0 ++ERROR_LOG 24398-16062 REV.5020 <900302.0 900305.1540 /SRC_24398/R5020/EXER.PAS BoERROR_LOG //.LBT.SBTPAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDSSTART_CHILD /::`/pph-6Hh.6H88()*++,:'' `(!p8p( '@kX@@XQ +,ZDATALOG24398-16062 REV.5020 <900302.0 900305.1540/SRC_24398/R5020/EXER.PAS @ gZDATALOG rrD.DST .SBTENDER PAS.1 PAS.2 PAS.200 PAS.3 PAS.5 PAS.BLANKFILL PAS.NONCDSPAS.PROMPTPAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRING PUTILITYREADNUM START_CHILD r*CC`cP(( A q}r =s(A qr =s Jp  A ttq$ bqA+ uuq h b dvdvxb`bP(<(Apb` bpa(C`bpa@@OCh|6` \ h|6 ` ]D Wx y cba z` P([(^Aq(`{g@QQYh33`g(ipf8gfpc( @  READ RUN LOGREAD ERT LOGInput the head (0 - ) or ALL? cQ@g'BBX +,ZDESCRIBE 24398-16062 REV.5020 <900302.0 900305.1540 /SRC_24398/R5020/EXER.PAS BcZDESCRIBE NqqlDESCRIBEDEV_PRINT ENDER PAS.1 PAS.2 PAS.200 PAS.3 PAS.BLANKFILL PAS.NONCDS PAS.WRITEDOUBLE PAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRING PUTILITYSET_DEVICE_FLAGSqXFF@(  D =  p` i(! (#* A /  8 ` i(DB J ` kFBB(PN J ` j(Z JA c  h J c Aq  v bJA   J ` J JJ&&A   eJA   J g ApA(JM``(@  DESCRIBEMODEL: (CTD) UNIT: TYPE: TAPECONTROLLERDISKMaximum cylinder address = Maximum head address = Maximum sector address = Maximum block address = Curren2| t interleave factor = @!zAAX# +-ZFLTLOG 24398-16062 REV.5020 <900302.0 900305.1540 /SRC_24398/R5020/EXER.PAS A ,ZFLTLOG Y ||.LBT.MPY.SBTDOUTILENDER MORE_LINES PAS.1 PAS.2 PAS.200 PAS.3 PAS.5 PAS.BLANKFILL PAS.NONCDSPAS.PROMPTPAS.WRITELINE PAS.WRITESTRING PRNT_FAULT_ERRORPUTILITY START_CHILD | YESNOINPUT KEEA =JA (h6p`("A  (` zp`pp Hp vp`(`A@p`ΆA@(Mh6`E>>H`@@҈p`p v(Wh6``@@p`hAH(` (txph6HHh6p`@HH`8(r8(b    p`@99p(*` }0 J( A(HA(A9BBW++( @   FAULT LOG No drive faults Display HFR values ? B@wu??X2$ +.ZFRMAT24398-16062 REV.5020 <900302.0 900305.1540/SRC_24398/R5020/EXER.PAS ? l ZFRMAT ~~-CHECKQSTATENDER INPUTERRORPAS.1 PAS.2 PAS.200 PAS.3 PAS.5 PAS.BLANKFILL PAS.NONCDSPAS.PROMPTPAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRING PUTILITYREADREADNUM RUINTIME_MSG~ XINMD gCCA$=JD)J`#p`(%"1J(<`0(30<J(<:NJAC_KC;;JALoWzJD`[P(P(yP (hP!(P"((`(wA`pt~(xH (` p`0)~>> (A`p(H (`0(`pAH( ( Ap( Ap(J `??P#(`0000(p(JAѡJJA!xJA@++g"A \]oA( A( # +``( @$"&30+ INIT MEDIADo you want to: N = retain no spares R = read/write header (destructive) M = initialize maintenance tracks P = retain only primary sparen``s A = retain all sparesOption? Retaining no spares Initializing maintenance tracks Read/write header (destructive) Retaining only primary spares Retaining primary and secondary sparesWarning:ssUcVV Interleave other than 1 on HP1000 systems, could result in serious performance degradation.Input interleave value (1 <= value <= 32)? Interleave value = AMNPRcs@ڮn@@X6 +/ZHELP 24398-16062 REV.5020 <900302.0 900305.1540 /SRC_24398/R5020/EXER.PAS @ 9 ZHELP  ((''PAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDSSTART_CHILD '6 A ~ r ( @bX??Xtr +0ZIDIAG24398-16062 REV.5020 <900302.0 900305.1540/SRC_24398/R5020/EXER.PAS ? ^ZIDIAG }}d-.DAD.DCO.DLD.DSB.DST.LBT.SBT CHECKQSTATDESCRIBEDISPLAY_LOOPENDER PAS.1 PAS.2 PAS.200 PAS.3 PAS.5 PAS.BLANKFILL PAS.NONCDSPAS.PROMPTPAS.WRITEINTEGERPAS.WRITELINE }RPAS.WRITESTRING PUTILITYREADNUM XDIAG AAA=JA()()x(+`p`Pe(HPf(?Pg(BPh(EPj(KPk(NPl(QPm(TPn(W(Z`jp~~bABB(Z`op(Z`qp(Z`hp(Zp(Z`ip(Zp(Zp(Zp(Zc2 A hoE J h AA xhJ6A~\>>G  h6pJ`hp`p`(OJA  xo^Ao(A`ppo ê\]ddf<00Ao ph6 (`ppoh6 Ap ݪ\]oA p`p(`(A((dg^^(@,% INTERNAL DIAGNOSTIC Input the loop count (1 <= count <= 65535)? Input the diagnostic # (0 <= diag <= )? Diagnostic # = Input unit number?(([X (0 - 15)? Unit number =  ((@qVAAXb +1ZPRESET 24398-16062 REV.5020 <900302.0 900305.1540 /SRC_24398/R5020/EXER.PAS A FZPRESET  ;; ENDER PAS.1 PAS.2 PAS.200 PAS.3 PAS.BLANKFILL PAS.NONCDSPRESET_DRIVEPUTILITY;""A =@(A("7 ( @PRESET DRIVE@~>CCXSV +1CACHE_STATS 24398-16062 REV.5020 <900302.0 900305.1540 /SRC_24398/R5020/EXER.PAS C8=CACHE_STATS ^^..DST .LBT.SBTCLEAR_OUTBUFDOUTILENDER INVALID_COMMAND PAS.1 PAS.2 PAS.200 PAS.3 PAS.BLANKFILL PAS.NONCDSPUTILITYSTART_CHILD ^rr#;;` 0 0 A(9 ?J@ =A JA &BC?D(6`Up<p;hH6H;H hI6H;H8;8<(A3E D  \FF GA?(8C(:=r** >(@  CACHE STATISTIC TABLE *@/AAX{ +2ZRDTBLS 24398-16062 REV.5020 <900302.0 900305.1540 /SRC_24398/R5020/EXER.PAS A &ZRDTBLS  {{Z.DST.LBT.SBTDOUTILENDER PAS.1 PAS.2 PAS.200 PAS.3 PAS.5 PAS.BLANKFILL PAS.NONCDSPAS.PROMPTPAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRING PUTILITYREADNUM START_CHILD { YESNOINPUT eBBA  = ppJ ` 0 0 0 (p(  '   JA ) 0    ` A(I5 8  > @J  AGNBDD I  ` 0 0 (YAU O    `p b W J hA Ax x _A }     N??(`pph6Hh6H88(   b (`Pp` 0 0 J( A d    w@ eeQ11   J@ (phH6`h6 ` ]` (p(pA   d b `A( e6sWW`(p8p(@   % 9   READ DRIVE TABLES Drive tables are: 1 = Spare track 2 = Head value 3 = Configuration 6 = Runout 7 = Cache tableIn__~XFFput table #? Table # = Do you want to see the spare sectors? (This takes approximately 16 minutes on an A-series 1000) ("y" or "n") _@@@X1{w +3ZSEEK 24398-16062 REV.5020 <900302.0 900305.1540 /SRC_24398/R5020/EXER.PAS @ =PZSEEK  bb.DSTDOUTILENDER PAS.1 PAS.2 PAS.200 PAS.3 PAS.5 PAS.NONCDS PAS.PROMPT PAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRING READNUM TIME_MSGbUFFJA   ^RRS  A bS fTTS h b NUNUxL`LPv(&()` bpL 2 kWJWS AXZUAxM\USL(C]@MpMF`M(:SP88WQ&&( Input head (0 - ) or ALL? Input loop (1 - 255)? 8@'??Xf +4ZSERVO24398-16062 REV.5020 <900302.0 900305.1540/SRC_24398/R5020/EXER.PAS ? y>ZSERVO ||.SBTDISPLAY_LOOPINVALID_COMMAND PAS.1 PAS.2 PAS.200 PAS.3 PAS.5 PAS.BLANKFILL PAS.NONCDSPAS.PROMPTPAS.WRITELINE PAS.WRITESTRING PUTILITYREADNUM START_CHILD TIME_MSGZSEEK |qq;;A@LA =B` 0 (H(:` |((:  QCC@JA DFDx;;hK6` \hK6 D ` ]:H I ;DD J>q;;b?''( @*  SERVO TESTInput the loop count (1 <= count <= 255)? ;@-@@XFpn +5ZSPAR 24398-16062 REV.5020 <900302.0 900305.1540 /SRC_24398/R5020/EXER.PAS @ 9ZSPAR  zzW0.CBT.LBTCHECKQSTATENDER GETADDR INPUTERROR LURQPAS.1 PAS.2 PAS.200 PAS.3 PAS.5 PAS.BITMASK1PAS.BLANKFILL PAS.NONCDSPAS.PROMPTPAS.WRITELINE PAS.WRITESTRING PRNTADDRz%%ͻPRNTSTATUSPUTILITYREAD XRQST XSPRE YESNOINPUT%5CCA=J`(J()"JA'>pp`(JA9M(xp @pRCCCKZJDUih6A`6(_(b(b`fp(wikh6A`6(s(v(v`gp(w J(y(`(0(J`(~~+S<<m(A( pp(pp`lpqppԠ`(p(`kpA \ \]o`(p~>>(p \]o`(p(`jp ѡA\(!`( `lp`cp` ,HH@(p8Ј8(`mp∀`hp` ,H@~~0@@(p88(`,bJ(A`( JA(#`Ո b0(Jh6HPb(<:J` b~'@BB(JHJ`(VTJh6Hc (JAitJ@(p`(`dp(`eFs??p(pԈ(`(JA& r`(h6HcPb((0Jh6HcPi((?J`( m AM(+A F[[( @;8490 +&D*2#SPARE BLOCK 795XB drives attempt to save the data of the target sector. WARNING: a spare retaining data does not retain the data ?`` of the target sector.Spare maintenance track? Logging or Scratch (LOG,SCR)? LOG SCR Do you want to retain the data on the target track? Do you want to retain the data on the rest of th``e track? Possible media wear. One or fewer spares remain.Data at target sector was saved.Data on the rest of the track was retained. Data at target track was not retained.The drive has determl``ined that the sector does not need to be spared.Do you want to force sparing? Spared address was: Sector sparing has completed. Track sparing has completed.Would you like to spare another loca&_tion?  4?@at@@XLJ +6SELECTDC24398-16062 REV.5020 <900302.0 900305.1540/SRC_24398/R5020/EXER.PAS @ -SELECTDC ii CHECKQSTATENDER INVALID_COMM((AND PAS.1 PAS.2 PAS.200 PAS.3 PAS.5 PAS.BLANKFILL PAS.NONCDSPAS.WRITELINE PAS.WRITESTRING PRESET_DRIVEPUTILITYXSDCL i\\--` 0 }0 (+ /40 =1D(JA  ?22/ ! \ ] o /((/(*A3(,-\++H.(@SELECTED DEVICE CLEAR Warning: preset failed+@9k??X_J +6ZSENSE24398-16062 REV.5020 <900302.0 900305.1540/SRC_24398/R5020/EXER.PAS ? k6ZSENSE RR ; .LBT .SBTDOUTILENDER INVALID_COMMAND PAS.1 PAS.2 PAS.200 PAS.3 PAS.BLANKFILL PAS.NONCDSPUTILITYSTART_CHILD Raa44` (2  8C9D =:;<==(/`Ip5p4hA6H4 hB6H4 8485(,> ? === @A8(1H<(36a$$A7( @   READ SENSORS$@X/>>X +7ZREV24398-16062 REV.5020 <900302.0 900305.1540/SRC_24398/R5020/EXER.PAS > ,ZREV rr~{DOUTILENDER INVALID_COMMAND PAS.1 PAS.2 PAS.200 PAS.3 PAS.BITEXTRACT1 PAS.BITINDEX1 PAS.BLANKFILL PAS.NONCDS PAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRING PUTILITYrCC` 0 (HA(  =J A( J A'  0  J ` ,(` (p` ,@@;ACKK(ppA L S A \  cp i Ap  y A Ap   88(G(` (ILL(ppA  A  p A   A Ap ա  88(DA(MMk77(@READ REVISION NUMBER Part Revisionnumber number ------ -------- - - M@Π`AAXw +8ZRFSECT 24398-16062 REV.5020 <900302.0 900305.1540 /SRC_24398/R5020/EXER.PAS A ,ZRFSECT : .DLD.DST.FSB.LBT.SBTCHECKQSTATDOUTILENDER GETADDR INVALID_COMMAND PAS.1 PAS.2 PAS.200 PAS.3 PAS.5 PAS.BITDEPOSIT1 PAS.BITEXTRACT1 PAS.BLANKFILL PAS.NONCDSPAS.WRITELINE %%&PAS.WRITESTRING PUTILITY START_CHILD XLCRD XUTIL %Z88`|( ( =J`0(p`0(-popx y '\]o(-`lpq`0(e`p`p̊8@@A`pArKhH6 hJ6 `tp `tp`p"pt a\]op((x~~Gx@@JAA(p`(`pphH6HhH6H8ˆ8(`pň`ph6`@Hh6H88( Ԫl~AȄ(˨~~VV(@HP>( srREAD FULL SECTORRead Full Sector was not implemented on firmware prior to 5.0 on 791X drives. Check firmware revision.,~@#4A@@XC +9ZUNIT 24398-16062 REV.5020 <900302.0 900305.1540 /SRC_24398/R5020/EXER.PAS @ CMZUNIT  hhăDESCRIBEENDER PAS.1 PAS.2 PAS.200 PAS.3 PAS.5 PAS.BLANKFILL PAS.NONCDS PAS.PROMPT PAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRING PUTILITYREADNUM haDDA O[P =QJ ` pLA cRRO  SUJSx  @(.& uWAWO + OJ (I A7 }XXO < OAC YYOSD `Lp ZOMRRN;;(@$SET UNIT NUMBER Input the unit # (0 <= unit <= 15)? Unit Selected = Unit was NOT selected.R@C??X5p +;ERT 24398-16062 REV.5020 <900302.0 900305.1540 /SRC_24398/R5020/EXER.PAS ? CERT  }}.DLD.DNG.DST.LBT.SBTCHECKQSTATDISPLAY_LOOPDOUTILENDER ERROR_LOG GETADDR INPUTERROR LOG_HEADERMORE_LINESPAS.1 PAS.2 PAS.200 PAS.3 PAS.5 PAS.BITMASK1!PAS.BLANKFILL }}}LPAS.NONCDS"PAS.PROMPT#PAS.SETINIT $PAS.WRITECHAR %PAS.WRITEDOUBLE &PAS.WRITEINTEGER'PAS.WRITELINE (PAS.WRITESTRING PRESET_DRIVEPRNTSTATUS PRT_ERROR_INFOPUTILITYREAD READNUM READPATTERN RUIN}͢TIME_MSGXUTIL YESNOINPUT<<`wp`qp`lp"`Sp`rPk( (hJ6`r(hJ6HhJ6 `phK6`t`w@m()hK6H `v`Tp`wPihw@Pf(G`PT(9(?hK6HR1o< `u(DhK6 `u`pHbIFF(`zA(W!V=A(^!^=`z(e'@(s'(qJJ''A(|"(A(J'A(~~)EE" xrAr`z('(J'A('(+JJ''A(4"pwJA'(ԡ@~??`[P^(P_((`fpwA$'(A`ipw$'H(`w((i'(HJA'(W'(eJ'`0@@((tJJ''A(&~"pwJJ''A(6`[P^(>P_(HP`(R(e`epw$EJ'(f`hpw$OJ'(f$:S==WJ'`0000(b(d`gHpw(f`w(`wPehw@Pf0D( '(JA'('`0}0(@(~7BBJ'A('(JA'('`kpv'(J"D'(`[PZ(P[(P`( Pa~~<<(Pc((A`Tpv$ݡ'(`0H((A`Spv$'(`0H((A`Rpv$'(pvA$'(Apv$~??'H(`vPk(`00|(pp`0('(,J"@(# }` @`Zx,X ,H@ p`YxXkMGGPQA(WA{`Z,XPTp`YxXPQA(kA{`(r{'({A%{(A%{$J@"sHHA{A {xp(pp`wPihw@Pf(CJA'('(J'A( '(JJ''A(""~~*<<`kpuJA'(/`[P\(P_(Pb( (pu$J'(`|(`Vpu(`Rpu$J'(pu$J'(`uPk~` ::(`uPQ((C`0}J(R #`np`Rpy`y @Մp#8y8(( `Yp"p p`jpAB\]AoA(Q(M8'(CgRFFJA'([L'`A((g'(pXJ'A(y]'(aJA'(e'(iJ'A(FFm'`A((q'(wJ'A(|'(JA'(͡'(J'A(;CFF'`A(#('(J'A('(JA'('(J'A(!''V$FF(,JA" xu'(<A&Au''(LJA'(U'(^J'JA'(i" $j==`kptJ'`[P](vP^((ptpqA('(ptA`Rpq('(H`((tPk(``(`fpp`Tph6Hh6 CCHh6Hh6  p"A\]Ao(`+Q('`wPihw@Pf0(`q(A(#'(A(5'@((@@GJ'A(`w@m(`lpqpo`Upvps`spsH\]o(h6Pth6pHPQh@Pq00*@@(W`o(8J'h6D `d po`oppxh6Hxh6Hx8x8(pA@p8(`EpA`?p@p8(A `Ep`?pff//@p8(`@>X  ,EXER24398-16062 REV.5020 <900302.0 900305.1540/SRC_24398/R5020/EXER.PAS ><<(EXER&PAS.1 PAS.2 PAS.200 7PAS.3  )PAS.4  PAS.5 PAS.STOP<}}a(.MBT).MVWCACHE_SIZECACHE_STATS $CLEAR_OUTBUF ERT *EXECGET_COMMAND 'IFBRK +PAS.BLANKFILL ,PAS.BOUNDINTEGER-PAS.CLOSEFILE &PAS.FILENAMR.PAS.INITFILE/PAS.INITIALIZE0PAS.INLINEERROR PAS.NONCDS}|| 4%PAS.PARAMETERS1PAS.PROMPT2PAS.RESET_FILE3PAS.RETURNPARMS 4PAS.REWRITE_FILE5PAS.SETINIT 6PAS.TRACECLOSE7PAS.WRITELINE 8PAS.WRITESTRING "PHYS_PRINT#READSELECTDCSET_CE_MODE ZAMCLEAR ZCACHE_CONTROL|||nZCANCEL ZCHANGE_LUZCHINCLRZCLEARLOG ZDATALOGZDESCRIBE ZFLTLOG ZFRMATZHELP ZIDIAGZINPUT ZLOGCACHE ZOUTPUT ZPRESET ZRDTBLS !ZREQUESTSTAT ZRESET_STATSZREVZRFSECT ZSENSE|tZSERVOZSPAR ZTERM ZUNIT (YY/-.5&.= .E )2M )4U ` p ` p %^  p &c )`6h6(A&n `6Ah6(4} 4&bVVDp $5 A8 8 AA7 +p̈Ah`)'0(+ A2 )p`pppA7 ` (8)AA  A1 (8  A1 p@#p@p ,)!(#@(.($(8(B(D(F(H(K(N(P(R(T(V(X(Z(\(^(a(c(e(g(i(k(m(r(o(u(w(y({(}II((((((((((((A8+ 7A (85  7 (A8? (7H ((HH ( (A ( H((HH((HH((HH((HA(р(^aKKHH((HH((((HH((HA"( ( (HH!( (HH((A (H((HH((HH((A( ( (A ( (h @0(-&A- ``A- )63*O@1  #)* INPUT OUTPUTREV.5020 <900301.1000>Rev. 5020 2-7-90 F sharedHP1000 CS/80 EXERCISER -- EXER1 1 CE EXE| ``R>EXER> Command requires CE CapabilitiesUnknown Command Partial Command is not Unique BAD COMMAND NEEDS CE MODE NOT UNIQUE CHANGE LU AMCLEAR \Nl`` CACHE LOG CACHEON CACHEOFF CACHE SIZE CACHE STATS CANCEL CE MODE CICLEAR CLEAR LOGS dN`` DESCRIBE DIAG ERT LOG FAULT LOG HELP INIT MEDIA INPUT OUTPUT PRESETb,`` PRINT PHYSICAL READCACHEOFF READCACHEON REQSTAT RESET STATS REV RF SECTOR RO ERT ``RUN LOG SDCLEAR SENSE SERVO SPARE TERM TABLES UNIT WRITECACHEOFF RR:: WRITECACHEON WTR ERT 0123456789ABCD EF/R  @ @_ (%EXER1::RTE_6:5:245:128 644 0 0 172400 5310706665 35167 %EXER1::RTE_6:5:245:128 $|%EXER1 +#+#+#z}m`FST CCXH2 8PAS.GLOBALINFO24398-16066 REV.6000 <920909.1 920910.0015/SRC_24398/R6000/EXER1.PASC@)H@@X8%2 8SPACE 24398-16066 REV.6000 <920909.1 920910.0015 /SRC_24398/R6000/EXER1.PAS@ 9SPACE  "" PAS.1 PAS.2 PAS.3 PAS.NONCDSPAS.WRITECHAR "--e`p(p`p#$@p8( - `(p8p( @n.??X)H2 8UPCASE24398-16066 REV.6000 <920909.1 920910.0015/SRC_24398/R6000/EXER1.PAS? \7UPCASE  88?.ENTR PAS.1 PAS.2 PAS.3 PAS.BITMASK1PAS.NONCDSPAS.SETINIT PAS.SETINTERINIT8AA4""@$BA $A@?`C@`"x5 ,H5@(`"@Gp#( `"p#`#7A8 A66p"`Fp#(za$ F @쮬AAX2 8MORE_LINES24398-16066 REV.6000 <920909.1 920910.0015/SRC_24398/R6000/EXER1.PASAbMORE_LINES NN j.ENTR .LBTEXECPAS.1 PAS.2 PAS.3 PAS.NONCDS PAS.PROMPT PAS.WRITECHAR PAS.WRITELINE PAS.WRITESTRING UPCASEN~~MqHHho6HPhpH6paPp`A@̈́a([JA  %rhhi *Aji /ki 4liJA <ik_mA Aji FAni K~22Hli phq6paVaPp`(]p```b2337cAb`p`(A J._More...('s' to stop listing)3 1S+@[z@@XiH83 8WRITEHEX24398-16066 REV.6000 <920909.1 920910.0015/SRC_24398/R6000/EXER1.PAS@ (WRITEHEX 33.DIV.LBTPAS.1 PAS.2 PAS.3 PAS.NONCDSPAS.SINGLEMOD PAS.WRITECHAR 3DD%%A23`% 7h6H6Hp&A&3%45h66Hp&$&3(D$$1)`((*p'8('p%(  $@BBX_"3 8INIT_COMP 24398-16066 REV.6000 <920909.1 920910.0015 /SRC_24398/R6000/EXER1.PASBINIT_COMP ++$.MVW.SBTPAS.1 PAS.2 PAS.3 PAS.BITDEPOSIT1 PAS.NONCDS+33Ah` pph!6  p3( H@2Qz@@Xb3 8PRNTADDR24398-16066 REV.6000 <920909.1 920910.0015/SRC_24398/R6000/EXER1.PAS@ jPRNTADDR [[ ؘ.DST.LBT.MVWPAS.1 PAS.2 PAS.3 PAS.BITEXTRACT1 PAS.NONCDS PAS.WRITEDOUBLE PAS.WRITEINTEGER PAS.WRITELINE PAS.WRITESTRING SPACE [~~=CGG`(  A c J(` A  "bAeA )e 2h6 pg <g`(CJ (` L~<<e_G`0aA(Y V& A(` ^d j<ZZ4k66`j(lph8j`j(rpi8jA`hhipa( H cbBlock Address = Cylinder = Head = Sector = Z@ (AAXV4 8PRINT_ADDR24398-16066 REV.6000 <920909.1 920910.0015/SRC_24398/R6000/EXER1.PASAfDPRINT_ADDRCC q.DST.LBTPAS.1 PAS.2 PAS.3 PAS.NONCDSPAS.SINGLEMOD PAS.WRITEDOUBLE PAS.WRITEINTEGERSPACE Coo+>>hS6@>Hp?hSH6H>p@A@NO @?hA AA !APPhS6`T@>HHAp? /?QRhS6`UH@>Hp?A =?RDo''1E`D(FpC8DCp>('@ˡAAX̗74 8WRT_BINARY24398-16066 REV.6000 <920909.1 920910.0015/SRC_24398/R6000/EXER1.PASA(WRT_BINARY..A*.SBTPAS.1 PAS.2 PAS.3 PAS.BITMASK1PAS.NONCDSPAS.WRITECHAR .FFz##h56`%`6p&p#`# ,H5@(A2A3(438#8&((F!!)`((*p'8('p%(10$!@%ODDX<5 8DISP_CACHE_STAT_24398-16066 REV.6000 <920909.1 920910.0015/SRC_24398/R6000/EXER1.PASDzDISP_CACHE_STAT_tt.DAD.DDI.DLD .DMP.DST .FLTD .LBT .SBTPAS.1 PAS.2 PAS.3 PAS.INLINEERROR PAS.NONCDSPAS.WRITEDOUBLE PAS.WRITEINTEGERPAS.WRITELINE PAS.WRITEREAL PAS.WRITESTRING tAA`p`pph6H h6H 88(JA#.+h6H P (:P (BP(JPA(R(ZA1}}vADD(]I5(]Q=(]YD(]h AdSiJArWh6 H P (P (P(P(P(PA((}HH]A(aA(iA(pA(A((hD Ah6 (h6c'II  hA @h6 A@AAJ(h6  pJA JJAAAA&A+6A;D A I TAYWFFJ"JJ (c(mJA  JD (q AAx~  ((   A ( A&EGG JJ ((JA"  JD ( AA    (΄(  A (  J  jW[[(   d.Cache Statistic Table Info--------------------------Read cache enabled disabled by hostnot installed disabled because of RAM error on LU ,W``Write cache enabled disabled by hostnot installed disabled because of RAM error unknown statusnot installed on LU Cache page size (bytes) = Cache page size (bytes) = number of pages = number}}O^^ of re((ads = number of read hits = number of writes = number of write hits = number of write cache hits = read hit % = write hit % = write cache hit % = read % = @K}@$xAAX6 8ZRDTBLS 24398-16066 REV.6000 <920909.1 920910.0015 /SRC_24398/R6000/EXER1.PASA &ZRDTBLS  ~~d .DAD .DDE .DMP.DST .LBT.MPY.SBTDISP_CACHE_STAT_ PAS.1 PAS.2 PAS.3 PAS.INLINEERROR PAS.NONCDSPAS.SINGLEMOD PAS.WRITEDOUBLE PAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRING SPACE ~  PWRITEHEX v,<<`ppRh(6HR h)6HR8R8(` ԊpM` pL`MP(%P(]P(zP(̈P(P(ֈP(#(H(K, * JJ  pQ`L(\ppR@ tc``s spared = CYL TYPE SCALAR===== ========= ======MAINT PRIMARY SECONDARY Head Alignment Offset table:Circumferential Skew table: band delta band delta band Head h`` 0 0-1 1 1-2 2 ==== === === === === === Current Cylinder Offset table: Head Offset ==== ====== Current Configuration Table:ONOFF 4#``ONTransfer length = Burst length =Retry time =Status mask = RPS Window =RPS Advance = Set release S bit = Set release T bit = OFF Option flag = Burst with EOI =ONOFF Return addressing mode =SIhhMMNGLETHREE vector modeTable not implemented Runout Table: Head Offset ==== ====== NWh@ ,??X1p7 8ZSENSE24398-16066 REV.6000 <920909.1 920910.0015/SRC_24398/R6000/EXER1.PAS? khZSENSE EE >.LBT.SBTPAS.1 PAS.2 PAS.3 PAS.NONCDSPAS.WRITEINTEGER PAS.WRITELINE PAS.WRITESTRING WRT_BINARYE\EE`pgpfhq6Hfhr6Hf8f8g(  sjjkhr6Hpg"Agl )mmk  2nnkhr6Hpg<glA Cmmk @@|`E!!A LookhrH6HpgAJg A \ppkhrH6HpgAJg h@uu.iTT(.Exhaust air temperature = (+/-3) degrees C Actuator coil temperature = (+/-3) degrees C Hardware fault register = R/W fault register = u@ϴAAXΛ*8 8PRNTSTATUS24398-16066 REV.6000 <920909.1 920910.0015/SRC_24398/R6000/EXER1.PASA{(bPRNTSTATUSQQ 0.LBT .SBTPAS.1 PAS.2 PAS.3 PAS.NONCDS PAS.WRITEINTEGER PAS.WRITELINE PAS.WRITESTRING PRNTADDRWRITEHEXWRT_BINARYQ88`p`(p( pp ppڨ`P(P(P((! p(! p(!pڀ(!pPhH6H"pQ`QP$(,(;`'p`pTh6HTh6HT h8@@8T8`(0  DddeJ `(p`pTh6HTpaa8T8`(JJ `(p`` pTh6HTpaa8T8`(ZJJ  A offe`A(z ygg (xFFe(`( gge(`(A hhe(A iie jje`V(A!p` `e h6 HP&( kkeh6 p` EEA`e ǡlle pU`W(τ(J  mJme `W-( iieJ `W*( iJie `W)( mme@  DD`W(A( iie `W'( A nne `W&A(. ,mme `W%(GGp` A`e !Zffe h@6 (C 0_qqeh6 p` :A`e Acffe `0(h6(eA Shsseh6p` \`[GGe ckqqeJ h6 (A rossehH6 p`A |`e rqqeJA  vmmeh6p`` pU`X#p`Xx`$p`Xxa%GG0a0`( tte`X%( nne`X$( mme`X#( lleA ooe `X!A( hhe DD`X(A hhe `Y((((  mJme `Y/( rreJ `Y.(! uJue `Y-(/ -vve-DDJ `Y,(= ;fJfe `Y+(K IwweJ `Y*(Y WwJwe `Y'(g exxeJ `Y&(`UA( v~~qDD yye  yJye A[PpU`Y$A( zze `Y#(A $wwe `Z((  +{J{e `Z/~RBB( 6rreJ `Z.( C|J|e `Z-( X}}eJ `Z,( x~J~e `Z-p`Zx`.p`Zxa/0a~~DD0`(`UA( xxeh6p`  J`e pU`Z+( mJe `Z((- +ppeJ `Z&(; 9pJpe ~) ;FF`Z%(Z`U(ZA Juue  SyyeJA [PpU`Z$(y`U(y i{J{e A ryye [PpU`Z"( QAArreJ `U0J( A {{e [P`(O`Ǫ000(pT h6HT@( ukkeh6HTp` `eA f4CCJfe h6HTP%h6HTp`P#0`A( ߡtte`TpTh6HTp`` qJqe J `TpT`TP((`0(%h6@(% LHH   eHh6p`AJ` A ffehH6 p`AJ` `(Oh@6 (O  7kkeh6HAp``JA  Fkkeh6 HAp``MJ bc^^(    )*/ .V[\^Status bytes returned (hex):Selected TapeDiskControllerUnknown device unit = Unit with pending status**REJECT ERROR8 ``S** Channel parityIllegal opcodeModule addressing Address boundsParameter boundsIllegal parameter Message sequenceMessage length**FAULT ERRORS**Cross unit err during COPY DATA Units which had !``errs are: UNIT = Controller faultUnit faultHardware failed diagnosticPART # = failed PART # = failed TERR = returned TERR = returned FRA # failed FRA # failed Failed subtest = Rele``ase required for OPERATOR REQUESTDIAGNOSTIC RESULT INTERNAL MAINTENANCE before command can be executed Power failRetransmit**ACCESS ERRORS** Illegal parallel operationUninitialized media No m``ore spares availableNot ready write protect No data found Unrecoverable data overflow Unrecoverable data Address follows:End of file End of volume **INFORMATION ERRORS**Operator requested rel5A``easeRelease requested for a diagnostic result Release requested for internal maintenanceLatency induced DERR Possible media wear, one or fewer spares remain Unit requesting release is Automa=k``tic sparing invoked Recoverable data overflow Marginal data error Address follows:Recoverable data error Address follows:Maintenance track overflowNew target address is: returned Hardware f;;))ault reg = binary Fault code =Status = P7 = P8 =  @c;@QBBXe: 8FAULT_HEADER24398-16066 REV.6000 <920909.1 920910.0015/SRC_24398/R6000/EXER1.PASBOTFAULT_HEADER,,l0PAS.1 PAS.2 PAS.3 PAS.NONCDSPAS.WRITELINE PAS.WRITESTRING ,#DDA_VVWpXXW`(*`A( YYW()A'ZZWA(>1[[W`0(<<\\WJAE]]''DW`00A(QQ^^WT'OU``(!7 ? Current Target Cyl Head Sect Cyl Head Sect Fault Code < P7 > < P8 > Subtest Status HFR Activity ================= ========##V========= ============ ======== ======== #@}=AAX: 8LOG_HEADER24398-16066 REV.6000 <920909.1 920910.0015/SRC_24398/R6000/EXER1.PASAU3LOG_HEADER00.LBTPAS.1 PAS.2 PAS.3 PAS.NONCDSPAS.WRITELINE PAS.WRITESTRING 0aa22h76 p2`2P( P((85J56(M556J(&b5J56A/w5563a{{4ZZ (*. Logical Error Occur Logical Error Loop Cyl Head Sect Type Count Error ================ ===== ===== ========Mc{@p@@Xt; 8HFR_BITS24398-16066 REV.6000 <920909.1 920910.0015/SRC_24398/R6000/EXER1.PAS@ #HFR_BITS ,,l0PAS.1 PAS.2 PAS.3 PAS.NONCDSPAS.WRITELINE PAS.WRITESTRING ,ADD`0(JA  `A(w&"7JA+A4OJA=X  Fh (DFFJ AOu  X  JJAc  lJAu`A(  pFFJA J A JA'`A(á1  AJAFFO\JAfuJAJ`(OJAPDD JA)2JA;+DFJAMa`0(\|ZGGAcn  JAw JAJAtGGJAJA 9JAڡQiJA22JAJ2;~``( ! ,."50 -621/3HFR values: XXXXXXX0 Destructive write fault XXXXXX1X AGC fault XXXXX0XX Power fail warning XXXX1XXX On track XXX0XXXX Offtrack dQb``uring write XX1XXXXX Spindle speed OK X1XXXXXX 7912 drive indicator 1XXXXXXX Speed indicator pulsesIf DERR 64 then an HFR value of 1 in any bitindicates that bit caused the error regardlessofrV`` the sense of the bit XXXXXXX1 spindle speed is down XXXXXX1X heads are off track XXXX1XXX track follower PLL error XXX1XXXX top door is open X1XXXXXX power failure XX1XXXXX emergency retr7"``act is set 1XXXXXXX r/w fault XXXXXXX1 spindle speed is down XXXXXX1X servo timing error XXXXX1XX heads off track XXXX1XXX AGC error XXX1XXXX sector timing error XX1XXXXX data overrun X1X``XXXXX unused 1XXXXXXX unused XXXXXXX1 Spindle not up to speed (ESDI) XXXXXX1X Power Fail or Data Path Fault (CTRL) XXXXX1XX Seek Fault or Lost Spindle Lock (ESDI) XT``XXX1XXX Write Protected (ESDI) and a (F) indicates a Fault. 1 = 1 seek XXX1XXXX Write Fault (ESDI) XX1XXXXX Interface, Command or Frame error B`` (ESDI) X1XXXXXX Port fault, Command or Frame error (CTRL) 1XXXXXXX Data Clock Fault (CTRL) An (E) after the fault code indicates an Event, Activity indicator values:  ``0 = no seeks 2 = 2 seeks 3 = 3 seeks 4 = 4 seeks 5 = 5 - 7 seeks (1 sec) 6 = 8 - 200 seeks (1-30 sec) 7 = 201 - 2,000 seeks (30 se{>``c - 5 min) 8 = 2,001 - 12,000 seeks (5 - 30 min)(( 9 = 12,001 - 25,000 seeks (30-60 min) 10 = 25,001 - 150,000 seeks (1-6 hrs) 11 = 150,001 - 600,000 seeks 4b`` (6-24 hrs) 12 = 600,001 - 4,000,000 seeks (1-7 days) 13 = 4,000,001 - 16,000,000 seeks (1-4 weeks) 14 = 16,000,001 - 100,000,000 seeks (1-6 months) 15 = > 100,000,000 seeks { ( > 6 months) @ CCXhmz 8ERT_RUN_ERRORS24398-16066 REV.6000 <920909.1 920910.0015/SRC_24398/R6000/EXER1.PASCAERT_RUN_ERRORS,,l0PAS.1 PAS.2 PAS.3 PAS.NONCDSPAS.WRITELINE PAS.WRITESTRING ,(BBJA iKKL`0(@lMJMLA|NNL(OOLJ`0A(@5NNL>PJPL`~BAA(UJQQLJASMML`0(b`RJRL`0(oAmSSL`({AyTTL`(AU'DDJUL`($RJRLJA5VVL`0(;WJWLAcXXLwSSLJAġSSLTDDRJRLAYYLZZLJAPPL[J[L`0(AXXL\\LJ`?Py6  DD(#`(ASMMLA(" (]]L(,A*1^^L3>MMLJA<NOOL`?APy(fH]ZZLQrOODDJOLAZOOLc__LJ(mOJOL`(|yQJQL(QQLJ`(``LJ( JBB]J]LARRL`(>`(UJUL`(UJULAaaLaaLJ`0(}}DDA!aaL`0((bbLJ(/bJbLA6ccLBddLJAOeeL`(ATVVL}OO&&`(&A$ZffL`(2A0cggL`(>A<ihhLAOmBZZ`A(Cp@8A@p?(!#"%( 0'&*-)$   TYPE: COR = ECC correctable error UNC = ECC uncorrectable error UNR = Unrecoverable error f`` CRC = Only CRC detected error F/S = Formatter/separator error REC = Recoverable error M-RE = Marginal data/retries UNR = Unrecoverable data error M-EC = Marginal data/ECC ``corrected FIFO = FIFO data lost or track offset T-OF = Track offset invoked UNC = Uncorrectable data errorERROR BYTE: XXXXXX00 ECC found correctable error (ERT only)XXXXXX1X Data undef7\``rrun detected XXXXXX01 ECC found uncorrectable error XXXXXX10 ECC did not detect an error XXXXX1XX Error is in header not body XXXX1XXX CRC did not detect errorXXX1XXXX First retry did no;``t get dataXX1XXXXX Extra offset was used (ERT only)X1XXXXXX Formatter/Separator error 1XXXXXXX Unrecoverable error (run-time only) XXXXXXX0 ECC detected correctable error XXXXXXX1 ECC detecH``ted uncorrectable error XXXXXX1X Not used XXXXXX10 No error detectedXXXXX1XX Error in sector header XXXX1XXX Error in sector body XXX1XXXX Data not recovered on first retryXX1XXXXX CRC byte(s)zB|`` in error X1XXXXXX ECC byte(s) in error 1XXXXXXX Unrecoverable errorXXX1XXXX Error in CRC byte(s) XX1XXXXX Framing byte error XX1XXXXX Parity bit enabled X1XXXXXX Data underrun/overrun faultX0Ȣ``XXXXXX Always 0 1XXXXXXX Error in ECC parity bytesXXXXXXX1 FIFO or track offsetXXXXXXX1 Track offset invokedXXXXXX1X REC XXXXX1XX M-REXXXX1XXX M-ECXXX1XXXX UNR XXX1XXXX UNC XX1XXXXX ErUU <>>ror in data X1XXXXXX Error in header 1XXXXXXX Other error Address mark errorNo data sync00000000 UNC error during writeU@ +@@XTz 8ZHELP 24398-16066 REV.6000 <920909.1 920910.0015 /SRC_24398/R6000/EXER1.PAS@ ~JZHELP  EE U.ENTR .MVWMORE_LINESPAS.1 PAS.2 PAS.3 PAS.BLANKFILL PAS.NONCDS PAS.WRITELINE PAS.WRITESTRING E11uZ`%(p%`%( LLMJ `pͨ;1Z]&L;xwII&`0(Mj\&L;&M{_&L;&MN&L;&`Ǫ00(M`&L;&`A(MW&L;&`00(M@PPW&L;&`0A(MP&L;&`(Ma&L;&Mb&L;&M]&L;&M)c&L;&`Ƞ0( M9b&L; &M((LN&L;&`A($!M^d&L;$&J("K``(EH$ ,(45-/7#*'+!)2&% 8AMCLEAR - amigo clear selected deviceCACHE LOG - display cache error logCACHEON - enables disk cache (read and write)CACHu``EOFF - disables disk cache (read and write) CACHE SIZE - set the read cache page size CACHE STATS - displays cache statistic table CHANGE LU - change the lu that you are work( ``ing on CANCEL - cancel transaction CICLEAR - channel independent clearCLEAR LOGS - erase logs DESCRIBE - describe selected unit DIAG - perform internal diagk``nostics ERT LOG - output error rate test log EXIT - exit program or commandFAULT LOG - output fault log HELP - output help informationINIT MEDIA - initializ ``e media INPUT - change input file or luOUTPUT - change output file or lu PRESET - update device logs READCACHEOFF - disables read cacheREADCACHEON - enables read ++``cache REQSTAT - request status REV - output firmware revision RESET STATS - clear cache statistics table RF SECTOR - read full sector RO ERT - perform read-onj``ly error rate testRUN LOG - output run log dataSDCLEAR - clear selected deviceSENSE - output sensor data SERVO - perform servo test SERVO - perform but.``terfly seek testSPARE - spare blockTABLES - output device tables TERM - input/output at terminal UNIT - set unit numberWRITECACHEOFF - disables write cachBBK//e WRITECACHEON - enables write cacheWTR ERT - perform write-then-read error rate testB@.AAX 8ZRFSECT 24398-16066 REV.6000 <920909.1 920910.0015 /SRC_24398/R6000/EXER1.PASA ,+ZRFSECT  ees.DAD.DST .LBT .SBTPAS.1 PAS.2 PAS.3 PAS.NONCDS PAS.SINGLEMOD PAS.WRITEDOUBLE PAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRING PRNTADDRWRITEHEXe~~C?<<`p'p&hA6H& hB6H& 8&8'(`݈p'`p&hAH6H& hC6p(`&@ڈHH`( 8&8'(`p֪`p&`0(XhB6H p$hD6  hB6H hE6 hD6  ~~~i>.(A??.(`%. hE6H p' P'p`%EEx'. րhE6 p(H P(0'(??.J(44.hE6  p' '.A55.`%.(A>>.A(ll99==.J`p'Ap& &5@PֈJ((A &0 00.hG6@&H p(((hG6@&H p((8&J8'(+l,VV(  .%Sector sync bit missing Physical spare = Physical sector = Head = Logical cylinder = Physical cylinder = Logicazz\\l spare = Sector has been spared (secondary) (primary) No sector sparing has occurredNo sector sparing has occurredSector has been spared(primary) (secondary) : q{z@BBX 8ERROR_LOG 24398-16066 REV.6000 <920909.1 920910.0015 /SRC_24398/R6000/EXER1.PASBoYERROR_LOG uu .DCO .LBT .MBT .SBTPAS.1 PAS.2 PAS.3 PAS.BLANKFILL PAS.INLINEERROR PAS.NONCDSPAS.SINGLEMOD PAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRING PRINT_ADDRSPACE WRT_BINARYu>DD`TPhT@P(`pWpRhr6HR hs6HR 8R8W(cdchs6HH ht6 `(`S((8hu6`v6 d`S((Ehu6A`w6 dUDCC`S)(Qhu6A`x6 d`S*A(] ]efUd`0p`SxW+W(n nefUd`0Ɉp`SxW,W(hu6`y6A d`S,(hu6~~LqEEA`z6 dUdde`0(hs6H pWWcghA hA((j(((dde(dde(h `0(:`S/(~~~$EEdde(:`S.(dde(:`S,(Adde(:hs6H pWWdlhA hA( (jA((mA('(o(/( (7`TP((~ttAAddAe(ddAe(:&ddAe(:.ddAe(:6dde(:hD qhsH6H pWAFWfchsH6H pWAJWYtqqBZKK`Y([pX8YXpT(GX.SU{}FIFOT-OFREC RET ECC UNR UNC COR UNC UNR F/S UNC CRC COR UNC CRC CRC  J^q@0]OAAX 8ZFLTLOG 24398-16066 REV.6000 <920909.1 920910.0015 /SRC_24398/R6000/EXER1.PASA ,wZFLTLOG  zz{ .DCO .LBT.MPY .SBTFAULT_HEADER PAS.1 PAS.2 PAS.3 PAS.INLINEERROR PAS.NONCDSPAS.SINGLEMOD PAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRING PRINT_ADDRSPACE WRITEHEXWRT_BINARYz;>>` ( p (p `pupth6Ht h6Ht 8t8u( ` ԈP((," yAyz' z  Hh6 @(opupt`pvpr`t@r>GGh6HH h6HrH 8r8v(:Hh6 @(e` (]Z {{zA|(dd yyz(i{|hH6H @(` (}z }}zA}( ~~z(EEAA}}` (h6HHA pvv` (h6HHA pvvA(h6HHA pvvAh6H pvv` 0 (j` 0 (h@6H ( EIIz(A zhH6H pvA vhH6H pvAv(jhH6H pvAv{h  (( (A(( Az( z(h@}IIh6H pv vh6H pv'v}h A (<(/A (<(3A (D(7A (D(;(LC }}z(OK }}z(OhA{h6H pvvh6--U\H h6H `p,Ȅpvj Jv{ 8t8u(6w-{{@CxWW(   .  p# faults logged = * Physical address * Physical addressTERR DERR DERR TERR (E) (F) {@WAAXrR 8CHECKQSTAT24398-16066 REV.6000 <920909.1 920910.0015/SRC_24398/R6000/EXER1.PASA{ /CHECKQSTAT077e.SBTPAS.1 PAS.2 PAS.3 PAS.NONCDSPAS.WRITELINE PAS.WRITESTRING PRNTSTATUS7[[u,,`(p-(*`POh@PN0((`(`,(h=6HQ`PD((&>;J;<p-`-/[66Z0`/(1p.8/.p,`Op-( .Error during Request Status 6 1N @ͤAAX! 8DASH_WRITE24398-16066 REV.6000 <920909.1 920910.0015/SRC_24398/R6000/EXER1.PASADASH_WRITE++!PAS.1 PAS.2 PAS.3 PAS.NONCDSPAS.WRITECHAR PAS.WRITELINE +%%3`ppA 88(J% (- @??X!J 8DOUTIL24398-16066 REV.6000 <920909.1 920910.0015/SRC_24398/R6000/EXER1.PAS? x DOUTIL0 ))%.SBTCHECKQSTATPAS.1 PAS.2 PAS.3 PAS.NONCDSXUTIL )==`p`p`phE6``IpAϪADp` =WWT!%%` ("p8 ` ((p8 ` (.p8 ` (4p8 pppp`Hp(W H @|›CCXxw 8ZCACHE_CONTROL24398-16066 REV.6000 <920909.1 920910.0015/SRC_24398/R6000/EXER1.PASC(pZCACHE_CONTROLMM _.LBTDASH_WRITEDOUTILINIT_COMP PAS.1 PAS.2 PAS.3 PAS.INLINEERROR PAS.NONCDS PAS.WRITELINE PAS.WRITESTRING M""JA  zz{ pm";;!!8(CACHE CONTROL UTILITY COMPLEJTED  A +4||{ pm1;~~2CC81("CACHE CONTROL UTILITY FAILEDpmh6Jph6 pJH `nP(_P(_P(iP(iP(sP(s(} f}}{J ( p~J~{ ( z~UuBB{ (Dh {(j`nPhn@P(h6HP(P׈(P(PوJ(( (  J{ 1(  |FFJ|{ 1(  }}{J 1ˀ`m(h@6 hn@PJ( A {  {A { 1`m(De@@`nPhn@P(Dh6 P(P(P()P(P()(7 J(D A ${ 1((DJA  2.{ 1J6(D A @==`=FF~~{ 1D`m(`nPhn@P0(h6@hn@P(mA hK{ l(A{{( {ZJ{ `nP((RHH(1`m(`nPhn@P0(h6@hn@P(A e{ |J{ 1`m(h6 @hn@P(A GGzz{ (A{( J{ (1`m(+`nPhn@P0(+h6 Phn@P(  J{ (+#GGA{{()  J{ `nP(&((((+1+`m(i`nPhn@P0(iHh6P((hn@PA(T Ozz{ AS(i{++ YA(g b{ f(i1i(l1lp+8^qWW`p(rpo8popn(B)!&*-  .READ CACHE CONTROL UTILITYWRITE CACHE CONTROL UTILITY CACHE CONTROL UTILITY Read Cache disabled because #``of RAM error. Read Cache is not installed.Unknown Read Cache Status.Write Cache is currently enabled. Write Cache must be disabled prior to disabling Read Cache. Write Cache disabled because o ;(``f RAM error.Write Cache is not installed. Unknown Write Cache status. Read Cache is already enabled.Read Cache is enabled.Read Cache must be enabled for Write Cache to be enabled.Write Cache ssWnVVis enabled. Write Cache is already enabled. Write Cache is already disabled.Write Cache is disabled.Read Cache is already disabled. Read Cache is disabled. @s@'??X5m 8ZSERVO24398-16066 REV.6000 <920909.1 920910.0015/SRC_24398/R6000/EXER1.PAS? yZSERVOv gg .DAD.DLD .DMP.DST .LBTDASH_WRITEDOUTILINIT_COMP PAS.1 PAS.2 PAS.3 PAS.INLINEERROR PAS.NONCDSPAS.WRITEDOUBLE PAS.WRITELINE PAS.WRITESTRING g:HH` ph6J p h6  p A(xhH6  h h6 h AAAA  AJ Hh6 P؈((< :KHJHG `> A=A 44 rB`bp>( H)RFEAGLE is for the C220X and EAGLEs only. 4 b, @BBX 8SPARESECS 24398-16066 REV.6000 <920909.1 920910.0015 /SRC_24398/R6000/EXER1.PASBdSPARESECS xx 9.DAD.DCO.DIN.DLD.DST.LBT.MBT.SBTCHECKQSTATDASH_WRITEDOUTIL IFBRK INIT_COMP LURQPAS.1 PAS.2 PAS.3 PAS.BITDEPOSIT1 PAS.NONCDSPAS.SINGLEMOD PAS.WRITECHAR x::sPAS.WRITEDOUBLE PAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRING RFEAGLE SPACE XLCRD :v>>Jh6p΀h6 p`ph `p pppp pp pp`(0 (<J `(:`p(<`pJ>CCAEPJAY+b:JJAnրh6 `D yΪ(j`(`FII(p̈(`p A(  Hxh6HHP((xAAHxh6HP((xpHxh6HHApAAڀhhKK6@H@(Hxh6Hph6H@HpA @hA Ԅ(Hxh6HhA A A AAHxhyAAH6HpA Hxh6HHAp0 `@(9`@p҈`@(@`@p`Ҁ@(G`҈@p`@(N`@p`Ph҂@PVJJ0(cAaK`Ph҂@P0(xvQJAD (p(p`00(p(pЀ`;ODD(p(A`p (i@p(phH6 h6h6HPh6pHP0(ۀ`ɂ.(ph 6` 6(p`ɂ.(h 6~~ULLA` 6(h 6A` 6`(cph 6@(h H6 pHh 6pA  @hA Ԉ(h 6 Hh $A)0f~{0GGh6 p:AAhh6pJh6HP(P(XAWj(ZAA a e(ip(lpЀ`p`P00(wDD(fApAD((00(f` p`0 J(Am`A({`Ѐ0(J y`(JH XX(!H5  @ y.W\aLocation of spared sectors: LOGICAL SPARE CYL HEAD SECT TYPE ========>``========== ========= ((PRIMARY SECONDARY PRIMARY PRIMARY SECONDARY * There are no spare sectors. READ SPARED SECTORS ABORTED READ SPARED SECTORS COMPLETED READ SPARED ##gSECTORS FAILED q{#@n1@@X$ ` 8EXER1 24398-16066 REV.6000 <920909.1 920910.0015 /SRC_24398/R6000/EXER1.PAS@''mEXER1 PAS.1 PAS.2  PAS.3 PAS.STOP'_.LBT.SBTCACHE_SIZEDISP_CACHE_STAT_ ERROR_LOG ERT_RUN_ERRORSEXECFAULT_HEADER HFR_BITSIFBRK LOG_HEADERPAS.APPEND_FILE PAS.BITMASK1PAS.CLOSEFILE PAS.INITFILEPAS.INITIALIZE PAS.INLINEERROR !PAS.NONCDSPAS.NUMERICPARMSPAS.PARAMETERS!PAS.RETURNPARMS "PAS.REWRITE_FILE#PAS.SETINIT $PAS.SETINTERINIT%PAS.TRACECLOSEPRNTSTATUSPRTNSPARESECS ZCACHE_CONTROLZDATALOGZFLTLOG ZHELP ZLOGCACHE 89ZRDTBLS ZRFSECT ZSENSEZSERVORMMpppppppppp`P Jp "=p` _p 6ph6`@ ]HHh6p 7kFF@H` 788 6(# 8A$ 8`@xh@6p 6 ,H 6@(0A"/(88`P I(PP J(SP K(VP L(YP M(\P N(_P O(bP P(e:I==P Q(hP R(kP S(n(qp(tp΀(tp(tp(tp(tpҀ(tp(tp(tp(tpր(tp(tHh ^ `Ԁ0(zp`(p`0͈0p `0Ѐ0::p `P J(P K(P L(P M(P N(P O(P P(P Q(P R(P T(P U(ÈP V(P W(ȈP X(P Y(̈P Z(P [(ЈP \(( ((( ( H((HH((Al;XX(( ( (HH((HH((HH((A"ApA%!O1l91@=  8REV.5020 <900301.1000>F CRT sharedsh}W``aredsharedsharedBAD COMMAND NEEDS CE MODE NOT UNIQUE CHANGE LU AMCLEAR CACHE LOG CACHEON CACHEOFF 3x``CACHE SIZE CACHE STATS CANCEL CE MODE CICLEAR CLEAR LOGS DESCRIBE DIAG ERT LOG `` FAULT LOG HELP INIT MEDIA INPUT OUTPUT PRESET PRINT PHYSICAL READCACHEOFF READCACHEO@D8``N REQSTAT RESET STATS REV RF SECTOR RO ERT RUN LOG SDCLEAR SENSE SERVa``O SPARE TERM TABLES UNIT WRITECACHEOFF WRITECACHEON WTR ERT &&X0123456789ABCDEF&$$  I +$@ #EXER1::RTE_6:3:2:27 644 0 0 1000 5310706667 32657 #EXER1::RTE_6:3:2:27 $t#EXER1 +#+#+# XFST * #exer1 24398-17015 rev.5010 <881111.0959> * Load command file for child disk exercizer program. * 101288 find pascal_err.rel from /librariesIF,A,PC,31,31 li $dtclb  * re pascal_err.rel re pascal_err.rel::librariesli pascal.lib re %exer1 en********************************************* ' ' Part Number Rev. Mods Ship Name F.type Update Time Part Org '' ----------- ---- ---- --------------------- ------ --------------- -------- '' 91747#EXER::RTE_6:3:2:32 644 0 0 1000 5310706670 32611 #EXER::RTE_6:3:2:32 $x #EXER +#+#+# \FST * #exer 24398-17016 rev.5010 <881110.1451> * Load command file for RTE-6 and RTE-A disk exercizer program. * 101288 find pascal_err.rel from /librariesIF,A,PC,31,31 li $dtclb if 6 li $dsclb * re pascal_err.rel re pascal_err.rel::librariesli pascal.lib re %exeren==========================(( == $END PDUMP - Rev. <880930.1652> S#08 (written by: Carl E. Davidson - AMSO)==(( ===============================================================================(1 $FDSLB::RTE_6:5:44:60 644 0 0 26000 5310706672 33605 $FDSLB::RTE_6:5:44:60 $,|,<$FDSLB +#+#+#,`FST "" $FDSLB 24998-12004 REV.5000 <870609.1040>"DFD DNODE 224998-1X365 REV.2326 830325 @DNODEo.ENTR.FMER.FMGB.UFMPDEXECDLUEX;;`_`( `@/p Z`0pp`pZ`P1(%#R;##`SjJ؀%&+1ZR.`. # `.DSRW ^24998-1X297 REV.2540 850812 Z @.DSRWX.DNRW.FMER.FMGB.OPN?DXREADXWRI::`^HZ`( (P8 ڈpVHXxWHXx0`\ (Q`@pSPhV (+:;;`aW(+h ((`ZWpS` (86UڀSTT`T(@?0UST;66`_?`Sp xTxUh]xhU (M`UX@[`Y6?? .DNRW =24998-1X299 REV.2326 830325 @.DNRW.FMB?.FMER.FMGB.FMO?.OPN?DEXECDLUEX::`^@ `(`hP(8Hx`P(4R%:44`]Y+&pxZ((2h" h) `:R4 `B;` ;; T*.DSOP 24998-1X301 REV.5000 870126 Z @.DSOP ** F.CSTR .DUFE .ENTP.FOP? .IOCL.MVW .OPN? .UFMP DOPENDXCREDXLOCLUTRUNAMR *::`c ` px` (cZ(e (eh :<<`cW#Z(4 (e`@<(/ z0(e P OLNESCUN=(c`  EXNOUP*(c< `DFx  ;;`cJ0 SEDIP:(c0H H([`(c ZENU7(c0h (i (o FOUN;::`^wmZ9(c0px`( ((hx$` (c (hx"`(ch&` (c: `E( ( <<`au6h` (ch  = H ((yH x<<<`a( x x `(c`h`xpx(8 .FTN01pu< `DPAhx$ <<``ֶ`X(c=xp$pl`oP(hlxh` (c`oӠ<<<`_S(`pP`p  ((yHHP(B(y $Ѐ < `Ec 4 <<`\*kPKE`o($`uP`p  ()(3(4x`  (3X(`(c` <;;`^*N6 (1 Z `'py@p 5x}xt`hyPp`qp ; `CsTphx$ <<``W X(hx Ӣ`r(ehx ӠZ` pr?Zhs(`x (` (`z}pz<<<`dw(g`{} PH}Hz @   (g(`ӂ@z lz$rpZ(`z( < `C& 0 ;;`[b<(P (Xhx Q QX((X8n`nZP(hnHxn`X(ZhyH;;;`d_i`n( @::0 `xShX00pہ~l$p(; `EoݢP(Xhx* ;;`c;ڂ.X(Z`(Z ?`x ~l$npqst"u(X`}Pu `(Z;<<`^px`h X'Z(c8 H' `(( `x Z`  H(2x8p9h'<`AZ#X'<<`_y$(2`'@' @h9@(cZhyH=<::`]ׄC@hx Z(L` (Z`(Z?ZPh' P`i(c@jp~H'x'h:x':`Lܦ` `~ `(c`k(c`Kbvvv R.DSCL 24998-1X306 REV.5000 860710 Z @ .DSCL** gi.CSTR .DCO .DDS .DUFE .ENTR.MVW .OPN? .UFMP DPURGDWINDDXAPO DXCLODXLOC*<<`ag"` ( KEZDEPO1(x ((`P  <;;`^Z! p px@p@ xxxhX(P` P(:8(>X`F (l; `E? G ;;`cD$`(l`h (T`@(_(_@6h`ɂ!@;<<`aLg HxpÄq@´Z`(`p`@p@ʴ< `D"@ <<`d]@`@@$$@ $@6<`Rcc  ;;`^C p HxpH H' QH x(88 (p``h;`Kx888(@'p'`  R.DSIN #24998-1X311 REV.2540 850811 Z @.DSIN--.DDI .ENTP.FOP?.MVW .OPN? .SBT .SST .UFMP DOPENDXCLODXLOCINAMR LUTRUNAMR -;;`c`p]v pvvvv###;<<`aI,#4# # # #`(``^ (pS`kh X% ((< `DDpSpV `KH$ZJ(Nv`kJ<<`bP]ш=xlpQ$pR oSQR`VP(h`_ Z(`VhWx` <<<`\ s(pQh3 H(PSZ( Pʢ( H8Q(`kp`(N(GH(<`Bd`V33`[SZh\xZ`kh(`kJ`Xp$SW"(v3;;``7 P@(4?`p綀xHZpSxpV`kJ(;;;`` xHpQ@px`QJˀ*.X(vPvvˠxQ; `DP?hQ ( <<`bT # hQ"4hQ#(## #8#(2# 6!<<<`b6z. !(8#####4P4# 4 # # ?pjP`v`< `B؄PJ <<`^3R`(fhjHP(`Z0 (d0H6`pR n$R@R<;;`_pp (ڨJpv8vv` v84 ;<<`b0h]H6x (8 (` Z8(p  $<<<`eW6`hPPx`6v  hB`@`< `B(Uh3 <<`lI `(YES NO SEQUENTIALDIRECT FORMATTED UNFORMATTED EXCLUSIVE NONEXCLUSI< `GVENULLZERO  TT.DSCN 24998-1X316 REV.2440 841127 Z @.DSCN!! k.DCO .ENTP.MPEN .OPN? DEXECDWINDDXAPODXLOCDXPOSDXWRI!<<`cOp` (* (,( Hxxh  &p<;;`_#$'Ш  ڈHxHxEh  (:`(* (R (IX([X(k; `EBxBG <<`d GP$EXE$ZPbE&HHH<<<`czkZHxpp (p~E$Z@(*`(*< `EՀ //`^g  $ E6`D" (/ C.DNOP 24998-1X304 REV.2140 801020 Z @ .DNOP .CSTR.DUFE.ENTR.IOCL.OPN?.UFMPLUTRUNAMR <<`dmBx`e (h`h ( UN(`c <::`cj)$PEXNO*(0SE(0PZENU7(X0h (B FOUN9(0p`: `D7G( <<`aեKP(ih&`e X( ([&Wh`f Z(h =嶀Hc <;;`^lZ(p(LHa d(| b  `g(ڈ Z=xp$p; `Eu ` <<`\cP(`(Ӷ`p`c(``~p (LHbHaP(i<<<``WT(LZpxʲ`hX(8 H ` Z` `  H`< `C` `Hn΢h `(Ӵ `Aa! S.DNCL !24998-1X309 REV.2140 810728 Z @.DNCLe.CSTR.DUFE.ENTR.OPN?99`ay"`  (KEZDEPO1(XZ9 J.DNIN U24998-1X314 REV.2140 810414 Z @ .DNIN 3.ENTP.MVW .OPN?.SBT .SST .UFMPINAMRLUTRUNAMR ;;`c`p] p^<7;;;`a~B#4: B 7 :O`(c`a (,pS`nh X%(; `DDpSpV `KH$ZJ(N`n<<`co]ш= xopQ$pRrSQ6R`V`P`(Zh`b (,`V`hWx^<;;`\.Z.`(pQh H(PPS( P^( H8Q(`np`^(N(G; `BH_( ;;`_t`(,xHpSx^pV`nPxQآhQ Ȩ R;<<`do 8 6 ĴP(, 4H : < `D4P7p <<`aZ`^`OZ`^(Z0O `^ (, Z=pQx pRQ<<<`^~ RHRH`p8` èh]Hx(#Z8(`< `C $ 8 <<`d'('pèP`^Z.h .`(,YES NO SEQUENTIAL FORMATTED UNFO<`JKRMATTED NULLZEROKK Q.DNCN 224998-1X319 REV.2440 841127 Z @ .DNCN`.ENTP.MPEN.OPN?DEXEC<<`c%Pp,Pp.`0 (* ( H/xx.h,  &p-<`OU#$'.1-Ш€##$FNDLB::RTE_6:5:2:43 644 0 0 1000 5310706673 33053 $FNDLB::RTE_6:5:2:43 $+$FNDLB +#+#+#FST "" 4FNDLB 24998-12005 REV.2227 <860205.0849>"NFN lj.FND1 24998-1X366 REV.2101 801020 ++@ T.DNCL.DNCN.DNIN.DNOP.DNRW.DSCL.DSCN.DSIN.DSOP.DSRW+D.DINSTL REV. 2440 <840825.1700> ("Enter snap file, system file, destination file, lu,"," and source file ") ("boot source file not type 1. ") ("illegal source file ")Warning - base page links may be overwritten by driver parameters destination lu is no$MATH::RTE_6:5:421:60 644 0 0 322400 5310706675 34272 $MATH::RTE_6:5:421:60 $<$MATH +#+#+# FST  PMATH 24998-12007 REV.5010 880603  @P.192PAS.N .P.&& IEEE 24998-1X632 REV.5010 880105 880603.2035&EIE&& "=FCHI o24998-1X632 REV.5010 880105 880603.2035&@FCHI F .DCO .DDI .DLD .DNG .DST .ENTR.LBT MOD PAS.N<<`_4D? Z? ( (`@!\pC`8Fm0CFp8`@[pC`8EZn0CEp8`@l<<<`\Fp@`@np@`?Z/[(2`?Z.[(.(,`=ep=(L`?Z.[(8(,`=0fp=< `EAp;?J(G <<`\@(A?6?(L`=g0cp=(P`=g0bZp=`?'\pC`=m0Cp=`?\pC`><<<`^i\Im0CIp>ZhW6 pC`>Ak0CAp>`>np>`8%[(`8&\pC`='_< `B\z@]@C ;;`^||apC`8Fj0CFp8h8ZHk`((h8xC&CLpC`=GZk0CGp=(((;<<`^X?;0?J((Z(`=/[P[((`;ep;`;0dp;`<([pC`>n0C< `Cqp>h8 <<`_`P`((`=gp=;0M;(h8ڂ`P_((ܶ`=gp=;O;`;h<<<`]&ڶp;(h8`P^((`=gp=;Q;`;hp;`;ip;((1`;'\pC< `C`=m0C <<`]Ep=`;\pC`>Im0CIp>ZhX6 pC`>Ak0CAp>Z(`8&\pC`='_@C<55`aZpC`=Gk0CGp=(# == BE A(5SA(5UAAF5`ReGD(@<`Tr&[??@[[&& $aFCIH 24998-1X632 REV.5010 880105 880603.2035&@FCIH i f?.DAD .DCO .DLD .DMP .DNG .DST .ENTR.SBT PAS.N<<`_׶}}}&(8}%(8}$P((80€}m}Z`}@<;;`]\%Z`}@ `}@~H`p|~FZ0|F~(y}&; `DV0ڀCp`0Cp(o6(6$({(v`; `C1p` <<`\UJE0Jp`&5p`?0p`2Zp`JD0Jp`&5p`?<;;`[0p`2p`JD0JZp`&5p`?0p`2p`JD0J; `Cp`A <<`\\ZphHC`(((hH4`(ϴP( h`(`00p(۶`Fp<<<`eۢ`#3p`AB0ApB(  $ 4(6(&4(< `D( `M#(*(,`N (!!`X0?@!00'' dkDFCHI {24998-1X632 REV.5010 880105 880603.2035 '@DFCHIR$$ -.CFER.DAD .DCO .DDE .DIN .DLD .DNG .DST .ENTR MOD PAS.N$<<``KPK (M ((2`NЂ!kpO`DCZw0OCpD`NvpN`NfpO`DB<;;`\+ Zz0OBpD`NzpN`K/f(7`K.f(3(-(6`GppG(q`K.f(>; `C<(-(q`G <<`ep?0qpGM (TK6W(M(N(N( BK K(qMW(_(ZM MK4W(f<;;`_[d(k(kY6K(qK K`N(hPh(w(x(`N(hPg(~Z(`N*jf; `C ((( <<`eܕ`NupNM[((0M](((WM(M_M( MK4Y(<<<`_/((W6K( (K K`D#k@lopO`DCr0OCpD`K*ipO`Gy< `Cnʶ0OpG`K <<`\,ͶmpO`HFt0OFpH`L*jpO`Hx0OpH`LmpO`IFt0OFpI`M*j<<<`[rpO`Ix0OpI`MmpO`JFZt0OFpJ`Nڂ*jpO`Jx0OpJ`D"fPf(< `C)(hD <<`^Hn`opO`DCr0OCpDhDxO&OapO`GDZs0ODpG(:`D#k@mo<22`_W%ZpO`DCr0O€CpD(bE(A G 0IQG EER2`Q{S P(`Ua7f?ff .ZTOZ 24998-1X356 REV.2140 810127 @.ZTOZ.ENTN.ZEXP.ZLOG.ZMPY##`V0 8# .ZTOJ %24998-1X422 REV.2101 800915 @ .ZTOJm.ENTM.ZTOIA.B E.P. 66`_`!pXppp@x"(&Ѐ"8# 6`B#52OF## .ZTOI o24998-1X420 REV.2101 800915 @ .ZTOIJ.ENTM.ZDIV.ZFER.ZMPYA.B E.P. <<`cJ`WpXppppX6`\hX  (#`( g(S6`c<<<`bw&`(S xb p(3xbp` (;4 X`@(EpXXXP(4`(S<`C}qHc`M{TK4X`b(S$8`B!`51UN`Lc@cc .CTOC 24998-1X357 REV.2140 810127 @.CTOCb.CMPY.ENTNCEXP CLOG ##`V0 8# .CTOJ 24998-1X259 REV.2101 800303 @ .CTOJK.CTOI33`\88px8Z@x`h814OR3 .CTOI `24998-1X035 REV.2013 791022 @ .CTOIw.CDIV.CFER.CMPY.ENTC.ZRNT;;`_ pWxXMpMpMp`WhXp`Zh (*`(% \;<<`b#8('`(h)14UNZ`(#pp` (;`@(Ep$(4< `DE`(# `N`I$ЀZ(#`8hXpY`WY(QM `FZ@ ZZ .TTOJ 24998-1X258 REV.2101 800303 @ .TTOJK.TTOI33`\88px8Z@x`h812OR3 .TTOI O24998-1X070 REV.2013 791019 @ .TTOId.4ZRO.CFER.TDIV.TPWR<<`^ZpCxD9p9p9pF`ChDFpFhA ()(.PL(2`F('<<<`_&gZ(#(,H8Z(6`G(/`%p xF(`MZhN`8hD< `C=pE`CE `CJ6@(=9 `H%G@12UNGG .TPWR 124998-1X130 REV.2001 781106 @.TPWRb.CFER.FLUN.TMPYFLOAT;;`c88x 8xp,X%p+"--4Z-`-h,("€ (%;`Hz#&ڀ-8+(A## .TTOR +24998-1X071 REV.2013 791022 @.TTORV.TTOT<<`]p$x%ppp&`$h%&p&`*p' p)&8Ш`8<`Gh%p&`$&( `E_k& && .RTOT -24998-1X065 REV.2013 791019 @.RTOTV.TTOT<<`]SJp)x*p8p+`)h*ڈ+p%`,p& p(p%P8`<`LQc8h*p+`)+(`A_m,,, .TTOD 24998-1X263 REV.2101 800303 @.TTOD %..DTBL.TTOT ++`XC88px8p @((8+ .DTOT 24998-1X262 REV.2101 800303 @.DTOT %..DTBL.TTOT ++`X_88px 8p@"8+ .TTOT D24998-1X132 REV.2013 791019 @.TTOT6.4ZRO.CFER.EXP .LOG .TMPY<<``3tp7x8-p-p -p$X 9($ >9(X`9(% >8 <00`W] 0 (*A(`BhC`8h8p=`7=(1-0`BB13UNBB .DTOJ 24998-1X257 REV.2101 800303 @ .DTOJK.DTOI33`\88px8Z@x`h812OR3 .DTOI c24998-1X048 REV.2001 750701 @ .DTOI .DFER.XDIV.XMPY.ZRNT<<`bB BYZ` h xp8p8p8&`h<::`c" ((  (W(N (P"^ `Zx p` (<4 `@(Fp: `CE(58 (L ..`[QH^`9Z`]`Jp8(Y`ahbZ@12UN.HH .DTOR 24998-1X049 REV.2001 750701 @.DTOR .DTODDBLE  00`ZHCp8p8p8$ڀ80 .RTOD 24998-1X062 REV.2001 750701 @.RTOD .DTODDBLE  00`ZHCp8p8p8$ڀ80 .DTOD A24998-1X123 REV.2001 750701 @.DTOD .DFER.ENTC.XMPY.ZRNTDEXP DLOG <<`h? 5pP(  (3(* (,(3"0(<,,`Y,((5(1`:`;p8(5`?h@7<@13UN,(( .RTOJ 24998-1X256 REV.2101 800303 @ .RTOJK.RTOI++`XXX88p@x`h806OR+ .RTOI K24998-1X063 REV.2013 791230 @ .RTOI >.FDV .FPWR <<`^H_pCxDx?`ChD?6A88p?`ChD?p@AhA (3(90Jp?`@<;;`amPE(0A8?Z(.(((6?G6?8AP("(< (.G(.`FhI; `FE06@UN EE .FPWR "24998-1X124 REV.2001 781106 @.FPWR .FLUN.FMP FLOAT 88`_Xp %p8 pp!` Xp `!!(8(A8 .RTOR ;24998-1X064 REV.2026 800509 @.RTOR .FMP ALOG EXP  <<`]p9x:p78`9h:7p5x6p78`9h:7p7Px8h5 (%(- ()`5<44`^Bh67(,(/()(/`1h2Aڨ`3h48(,04UN@4 .JTOI 24998-1X261 REV.2101 800303 @ .JTOIL.JTOJ""`SJ88p @08" .ITOJ 24998-1X260 REV.2101 800303 @ .ITOJL.JTOJ""`S88x @08" .JTOJ ]24998-1X264 REV.2101 800303 @ .JTOJ/J.DDE .DIN .DMP FLOAT;;`bR8ډT08(?4PV0(F4 TXXA(= (IhV (E`W ;<<`b1"(OPX(L pW  xV Tp\`WpW`\!(9T8V(.Є(O8< `DGD(Q   $$`TFHP(=`W (F6T(=hZh[`Y08OFUN$HH .ITOI O24998-1X055 REV.2013 791017 @ .ITOI<<`]pLpM`LMpJ8xLxMhLMxK8 (' PHP(.PI( P(. (-<<<`^?pNhK(0xK (8`N(. (-hF`Eڨ8(,xK`JNpN>hK(#`JJ< `B;pJ> `R=(  >hG(+08UNOF== IRANP A24998-1X455 REV.2101 800917 @IRANP .FSB .FMP ..FCM.ENTREXP .EXITURAN <<`f  Zp ((9H `(6p?4& `p<`N/Z(#`Zp(9@p`p` `B?@?? GRAN =24998-1X454 REV.5010 880301 @GRAN .FMP SQRT SIN COS ALOG .NFEXURAN `AA<<`h#  p `(*@;49p(4<`F716`;p  `DG49}  99 URAN _24998-1X456 REV.2101 800917  @{SSEEDAURAN  U..FCM.ENTR.FAD .FDV .FLUN.FMP .PACKFLOATIFIX ;;`bp8SXT2HX"X(+X `Z^ Z pZ\ ZpZ S]0Y;;;`^"PpYp@[(4X`Z@ SpZ5ډX(hYxR]xYhR`Z SZpZ55 X;`QIyA@pS@ pZ V4XA`LS~@ `r09SS EXPS2 U24998-1X388 REV.2101 800222  @TEXPSQ EXSB2 .BLE .ENTR.FAD .FMP .NGL .TMPY.TSUBEXP `J>Z pR(::`cʍ  pR@ $@@@8R(@@L`@pD`AT 6E`CSpG$@@D`E0G:`Qh /Pp`D(=0H8@0HH 4P  `FL@ `B`SSS 5DXPS2 24998-1X389 REV.2101 800222  @YDXPSQDXSB2 .4ZRO.CFER.ENTR.EXP .TADD.TMPY.TSUBDPOLY`LЉhxpz(<<`c,pzhpv ZpwpxH{pyr&vjv6v8z(=j&jnr<<<`l30nvnnrn(Invv$nrnn&rnMj6j(bU$n|{$€n&j<`B_$j`Iaf`O7{UUUUUUV@@{{ .AD2D 24998-1X542 REV.2226 811112 @y.AD2D(L.DMP .DNG .DSB .ENTR;;`_&|pppp~pwpxp @@p!`p}8}((#;<<``<8hx}׶pP(BPZ(I@(Op@(OA0w(aw(a8< `C?8((O <<`^ B`(O`p~8(>`(O`p~(>`@~(Uh(bh`(bA0wwh<11`W"`ڄhx8(iP`hx w``yp`zp`{p`1`Cy$|`Na-+  .D2AD F24998-1X543 REV.2226 811112 @.D2AD &.D2DD.ENTR <<``C0 4p? @@Zp!`Dp@`?pAh3H?8@(('E<--`T `Dp@8HD8AZ((/EHD8A(`Bp`?3- `DB C BB .D2DD a24998-1X544 REV.2226 811112 @.D2DDN.ENTR<<`blBp9p:p; Z@ (89P<(X=(P @B HB(8:>Љ@E@C<//`W0"Z`:()p:88;"@( ( Z`;h9 hD/ `D`~< ,,`[0B0- P@!p]@ `p^`]!`x_h^!@`_E,`A`` `` %ZSIN 24998-1X423 REV.2101 800829 @%ZSIN .ENTR.ZSINERR0  `I2Ѐ8 %ZCOS 24998-1X425 REV.2101 800829 @%ZCOS .ENTR.ZCOSERR0  `I2Ѐ8 %ZTAN 24998-1X427 REV.2101 800829 @%ZTAN ֿ.ENTR.ZTANERR0  `I2Ѐ8 %ZEXP 24998-1X429 REV.2101 800828 @%ZEXP .ENTR.ZEXPERR0  `I2Ѐ8 ޯ%ZLOG 24998-1X431 REV.2101 800828 @%ZLOG .ENTR.ZLOGERR0  `I2Ѐ8 ZSNCS j24998-1X424 REV.2101 801103  @l.ZCOS.ZSIN  ;.4ZRO.CFER.COS .DCSH .DSNH.ENTP.SIN .TMPY.TSUB''`XFg`h8$WWcV&[_WЈg8'<<`dg`h8$[[cV&W_V0V[6g8pT@ipUHixV B< `TsV@&WT8G$B[T L&cU8Q$Z_U888 `A`iii ].ZTAN 24998-1X428 REV.2101 800930 @.ZTAN!! R.CFER.COS .ENTP.EXP .SIN .TADD.TANH .TDIV.TMPY.TSUB!<<`eKÀ$($`@p`@p`X@(E$$<<<`k'`(;&2"0(?(] I$&< `DR$ <<`n0V$&0 eÀÄ$&0(( <,,`_&0É68@T , .ZEXP :24998-1X430 REV.2101 800827 @.ZEXPì.CFER.COS .ENTP.EXP .SIN .TMPY<<`g0* ,()`@9p8&08()0&,046؀8()`@9€4, 0*8<`Al)`A`~999 .ZLOG ,24998-1X432 REV.2101 800828 @.ZLOG'.ATN2.CFER.ENTP.LOG .ZABS66`a' #$##("`@+p)hH+x**)("#6'86`A`p+++ .ZSQR h24998-1X414 REV.2440 840315 @.ZSQR!! e..TCM .4ZRO.CFER .ENTP.SQRT.TADD.TDIV.TMPY.TSUB.ZABS!;;`c^hHWx]hHWx\```( # \#(T(7d&`dd;<<`l%0X*dd`]X\`d &€d(Td&`dd0XCddX](I 0d`]X`d<`C}Q \d`HT^@TT .ZABS N24998-1X413 REV.2101 800829 @.ZABS.ABS .CFER.ENTP.SQRT.TADD.TDIV.TMPY.TSUB<<`j&? B`@:pAF0AJBFhJ ("J0BBF&FJJB0FJJJJ<`S,&J;2J"JJ F?@,, .ZAIM 24998-1X446 REV.2101 800826 @.ZAIM &.CFER.ENTP `O2`@p Ѐ .ZCNG #24998-1X415 REV.2101 800826 @.ZCNG^.4ZRO.CFER.ENTP.TSUB))`X%&hH"x`p@"€ )`A`g""" .ZMPX +24998-1X445 REV.2140 810122 @.ZMPX .4ZRO.CFER.ENTP <<``p)( ( x*`p(%`@#p`$hX#`p%4)<`Btx### #SIN 24998-1X236 REV.2001 750701 @̤#SIN  .ENTRCSIN ERR0  `Ku7B  #COS 24998-1X233 REV.2001 750701 @ҙ#COS  .ENTRCCOS ERR0  `Ku7B  %CTAN 24998-1X392 REV.2101 800815 @%CTAN ֨.CTAN.ENTRERR0  `Io &P #EXP 24998-1X234 REV.2001 750701 @ۘ#EXP  .ENTRCEXP ERR0  `Ku7B  #LOG 24998-1X235 REV.2001 750701 @Җ#LOG  .ENTRCLOG ERR0  `Ku7B  CSNCS P24998-1X139 REV.2101 800825  @TCCOS CSIN  ..FCM.COSH.ENTR.FMP .SINHCOS SIN ''`WB`-JЉ880NL68'<<`dW`-L88N J8pII-JI-L8I8I<`L7B=PI- NI-8--== .CTAN 24998-1X393 REV.2101 801106 @.CTAN!! _h..FCM.ENTR.FAD .FDV .FMP .FSB COS EXP SIN TANH !<<`iX({({88X(B ~ (7<<<`i+({884(y({ (W0  < `EAT <<`j+Y00 880 Љ84@`<`C `BU41OR CEXP +24998-1X136 REV.2013 791018 @CEXP B.ENTP.FMP .ZRNTCOS EXP SIN `C`J::`dn(p((Љ882€((Љ882€((҉8: ۸CLOG +24998-1X137 REV.2013 791016 @CLOG ,.ENTP.ZRNTALOG ATAN2CABS `C`L 77`b 'p('`@*p`@*p$ 87  CSQRT X24998-1X090 REV.2013 791016 @(CSQRT 6..FCM.CFER.ENTP.FAD .FDV .ZRNTCABS SQRT `C`M <<`gF Np "(Q BpU0` @WphHWx<99`g1 h (N(D (N00" (N@911 CABS <24998-1X164 REV.2013 791016 @CABS ..FCM.ENTP.FAD .FDV .FMP .FSB .ZRNTSQRT `C`K<<`cx7pЉ88"Z((`hpx`hpx`(7<`Qj+:@++ ӏREAL 24998-1X111 REV.2001 750701 @REAL T.ZPRV`J8҈8 AIMAG 24998-1X084 REV.2001 750701 @AIMAGT.ZPRV`O  8`(@8 CONJG 24998-1X089 REV.2013 791017 @CONJG ..FCM.ENTP.ZPRV !!`T8888! %DSNH 24998-1X378 REV.2101 800815 @%DSNH ϶.DSNH.ENTRERR0  `Io &P ѡ%DCSH 24998-1X380 REV.2101 800815 @%DCSH .DCSH.ENTRERR0  `Io &P ס%DASN 24998-1X382 REV.2101 800815 @%DASN û.DASN.ENTRERR0  `Io &P ޑ%DACS 24998-1X384 REV.2101 800815 @%DACS ȫ.DACS.ENTRERR0  `Io &P %DAHY 24998-1X386 REV.2101 800815 @K%DACH %DASH%DATH,.DACH.DASH.DATH.ENTRERR0 `Ho &`I  &P  `I&P /SIN 24998-1X080 REV.2101 801007 @ؤ/SIN  ?.ENTR.SIN  `K8B  Ş/COS 24998-1X076 REV.2001 780424 @ޙ/COS  4.COS .ENTR `K8B  /TAN 24998-1X082 REV.2001 780424 @Х/TAN  @.ENTR.TAN  `K8B  ی/ATA2 24998-1X075 REV.2001 780424  @/ATA2/ATN2  .ATA2.ENTR `M~0 6 ϝ/EXP 24998-1X077 REV.2001 780424 @/EXP  3.ENTR.EXP  `K8B  ؛/LOG0 24998-1X079 REV.2001 780424  @,/LOG0/LOGT 1.ENTR.LOG0 `K8B  Ǜ/LOG 24998-1X078 REV.2001 780424 @ޖ/LOG  1.ENTR.LOG  `K8B  /SQRT 24998-1X081 REV.2001 780424 @/SQRT "C.ENTR.SQRT `K8B "" .DSNH }24998-1X379 REV.2540 <850802.1452>"@ .DSNH..TCM.CFER.ENTR.EXP .TDIV.TMPY.TSUBDPOLY;;`eR4Z`U(+z@{(;`R(RR&RVR6R((("RR t;<<`gn'(Px$€RR6$\[ZR(P?R((VR$ڀRh(PH[< `CN@|8 `AQ33`gV@V c^@tn rrAb+@Ӗ^\b+@ӖV*,Q]33OR3VV .DCSH m24998-1X381 REV.2101 800222 @.DCSH M.ABS .CFER.ENTR.EXP .TADD.TDIV.TMPY.TSUB DPOLY<<`hWA4Z`D(%j@k(-&AA AA0]AA("Ad(?hAE<))`W*&ba(?1&A("&]AA6ڀhHc@l8)44`hKEHI0h`[[[UUUUUUU@@V*,Q]34OR4EE .DASN b24998-1X383 REV.2101 800222 @.DASN.ATAN.CFER.ENTR.SQRT.TADD.TDIV.TMPY.TSUB;;`h,tG4Z`J(a(9K[0GO[GKKO`K(,!O6K(DKG0O*K;99`]*8`G(4S8W8Z`GP[(D`H0I(D`JP^(/_9`O*#SdQaxK@31UNSS .DACS M24998-1X385 REV.2101 800222 @.DACS.4ZRO.ATA2.CFER.ENTR.SQRT.TADD.TMPY.TSUB;;`fq:4Z`=(L('>F0:BF:>>B$B>(2$$B:(28`:;&&`RD(PF(2`;0<(2`=PI(5ˆJ#8& `G*F@32UN FF +.DAHY 24998-1X387 REV.2101 800717 @h.DACH.DASH.DATHX$$ ...TCM.4ZRO .CFER .ENTR.LOG .SQRT .TADD.TDIV((.TMPY.TSUBDPOLY$<<`h7 6hx~ (`(cX@(1$&n !"+0*<<<`l*X+`~65"+r0n$&0v< `DV 22`dUZz$؀(+l4l@X ㎰12<<`nQ`(<ۡIH#F6RhNfrQ ]Zj"1MlHRhR 5y̼)<((`^]+Q4z+; =! tMZMJޱt!c% )ִB tMZM(<<`f 0n`(L`(@( n$ &(Oh(?<<<`kQ& 6(O8ݨ$(O$r&n0$&v< `D.$ 66`dZ2$&z68ݨF$llۀ8ݠШ݈R݈4T36UN36OR6;;`fXV 4ZW`(`(n0n `h ( ($X($~V;;;`b~(hVHk@8XX$Vml8XX V/(X4X37UN37OR;~~ .TSCS y24998-1X131 REV.2001 790417  @u=.COS .SIN I..TCM.ENTR/CMRTDPOLY<<`bZ`hu(`hvp x( B `.5 (+H  `2 `3xp! .<`L"&448 `Ȱڨ  `whx <<`n2$=YQ|'" rr O;˯ pp"S_0$~ X*ErL\K PK2_E,tch<""`Y7`xL&NIJ*h&[ʱ0XNIJ*05OR"`` .TAN P24998-1X129 REV.2001 790417 @ϥ.TAN u.ENTR.TDIV/CMRTDPOLY55``9B *(x$8$ 2%%`$($ڀ&`NhO588`ku%Q|'" rr O;s~}5q* Odƿ08)88Z}E(Ӂ"`09OR8%% .TANH I24998-1X068 REV.2001 780424 @.TANH -.4ZRO.CFER.ENTR.TADD.TDIV/CMRT/EXTH;;`fB4<(" (+x8„("`840484@44D$ڀ48hh;`NG&x)ZhH(&`D4`MC$<\U @<< .ATA2 M24998-1X118 REV.2101 800421  @.ATA2.ATN2 *.4ZRO.ATAN.CFER.ENTR.TADD.TDIV.TSUB<<`fu0? `?(,(&Ѐ?(*`?(??(&&?C(*<//`Y&?C8(<(76G(*6G(*`KhL/`Jn.CdQadQa15UNCC .ATAN 24998-1X154 REV.2001 790417 @.ATAN..TCM.CFER.ENTR.FLUN.TDIV.TSUB/ATLGDPOLY<<`cBJ`M (0(1P`J@}Z(1`J(1pI(JhMP@(,<<<`c#((`J@~(,JhN(1$JUJhOxTJY&PP8T(<`I(D&Q< `C\F&Q <<`n32N`adQ@Qd|׵jRD\%QW.;f M{=&~Y)bT" | :S}ٴ \T͉Y)bT< `E|" || .EXP =24998-1X156 REV.2001 780921 @.EXP .4ZRO.CFER.ENTR/CMRT/EXTH<<`cyrB`<+1(#x/`+H9؀(#`/&++`.#('hx ZA8<`H"[#Zh0(`:h;A`M'0\U J࿅@07OF00 ԝ.LOG0 24998-1X125 REV.5010 880301  @,.LOG0.LOGT .ENTR.LOG .TMPY `T7B 8o-T: .LOG Z24998-1X158 REV.2001 790417 @ݖ.LOG .CFER.ENTR.FLUN.TADD.TMPY/ATLGDPOLYFLOAT<<`d)B0`0C(-8@Xh3!H8!@Yx3p4p5p6x7440R0 0<`L$$0:89$ڀ40`VhW--`bJ8I[ӵY gdW ZW @ { | Au X 02UN~-88 .SQRT :24998-1X128 REV.2226 820414 @.SQRT.CFER.ENTR.PWR2.TADD.TDIVSQRT <<`fRB-`-Z()h0p1p2p3x45&-11105--1h49x41<`G&6-84('`A`x999 .ABS 24998-1X030 REV.2001 781016 @З.ABS ^.4ZRO.CFER.ENTR.TSUB`RB ( "A .MXMN R24998-1X059 REV.2001 781021  @G.MAX1.MIN1 .4ZRO.CFER.TSUB <<`\$`phO(`hNx9x8 x@8(CpEp$`p#(;8#<<<`a$# (8F(7F#&J$`I@QpI`M@QpMF&FJhF`#p$8E(< `C=`$pA `E@`P(> `D{N  p NN ĭ.MOD !24998-1X058 REV.2001 781016 @ݕ.MOD [.4ZRO.CFER.ENTR.TDIV.TMPY.TSUB.YINT''`Z$X($&6' .SIGN 24998-1X066 REV.2001 781016 @.SIGN^.4ZRO.CFER.ENTR.TSUB`Q(6A ݛ.DDIM 24998-1X275 REV.2101 800303 @.DDIM^.4ZRO.CFER.ENTR.TSUB`Qc0 .TNNT =24998-1X399 REV.2101 801107  @J%TNNT.TNNT n.CFER.ENTR.TADD.YINT<<``64Z`9(P:(h8 (h7 (h9X2(;@<(6`,h6 <`T"`-66+6$.2@`Caj:\:: /ATLG 24998-1X173 REV.2001 780424 @ /ATLG .TADD.TDIV.TSUB `PѴ8" `D^@  U/CMRT 24998-1X174 REV.5000 860710 @/CMRT$$ .CFER.FAD .FLUN.FSB .PWR2.TADD.TMPY.TSUB.YINTFLOAT IFIX $<<`_wEp8x+8x8x `(hp@(F"`h<<<``N pZ pppx`(C(6@(Ch+(9 (8H< `C ?@@ ;;`[B(Gh8p`hHZH `p`p`php ;<<`b']ZppHp&8($o`hHx px < `E Bp  ::`dk6p`pX pp$&0`@+(C: `D` `Ja  /EXTH I24998-1X175 REV.2001 790417 @/EXTH .PWR2.TADDDPOLY <<`a7h8 (xHGx-8xPH($p,/&..C4 `,@p,-<`K<!6,-$/..%%`[o.^&sQPΊrU ^ӧHtNfD@ZS~"@%.. $TAN 24998-1X014 REV.2001 780424 @ť$TAN  @.ENTRDTAN  `K8B  $EXP 24998-1X244 REV.2001 750701 @ܘ$EXP  ¹.ENTRDEXP ERR0  `Ku7B  $LOGT 24998-1X246 REV.2001 770518  @,$LOG0$LOGT .ENTRDLOGTERR0  `Ku7B  $LOG 24998-1X245 REV.2001 750701 @Ӗ$LOG  .ENTRDLOG ERR0  `Ku7B  $SQRT 24998-1X247 REV.2001 750701 @ $SQRT .ENTRDSQRTERR0  `Ku7B  ծDCOS 24998-1X094 REV.2001 750701 @DCOS .ENTP.XADD.ZRNTDSIN ((`\0p$&dQ( 'DSIN 24998-1X144 REV.2001 750701 @DSIN !! A..DCM.DFER.ENTP.XADD.XDIV .XMPY .XSUB.ZRNTENTIXXPOLY!<<`hѐ (ND pp `(80 p`  <<<`e(&v` (2p8`(G &s` (a` (A  s` < `CQ]M(: <<`lDP&pV " 8 & p6  0k y& z  4(;;;`bx)(%8))p28)87(-&42))p18`8( (" *; ׯDMOD "24998-1X096 REV.2001 750701 @DMOD c.ENTP.XDIV.XMPY.XSUB.ZRNTDDINT//`b p$&4/ DSIGN #24998-1X143 REV.2101 801107 @DSIGNI..DCM.DFER.ENTP.ZRNT77`cP6pp"&`"( (( 7 ܯ.XDIM 24998-1X274 REV.2101 800303 @.XDIMc.4ZRO.DFER.ENTR.XSUB`Qc0 ߧ%SINH 24998-1X368 REV.2101 800815 @%SINH .ENTR.SINHERR0  `H ݝ%COSH 24998-1X370 REV.2101 800815 @%COSH ˺.COSH.ENTRERR0  `H %ASIN 24998-1X372 REV.2101 800815 @%ASIN ծ.ASIN.ENTRERR0  `H %ACOS 24998-1X374 REV.2101 800815 @%ACOS ʴ.ACOS.ENTRERR0  `H %AHYP 24998-1X376 REV.2101 800815 @r%ACSH %ASNH%ATNHS.ACSH.ASNH.ATNH.ENTRERR0 `GP`H  `H i%IN 24998-1X238 REV.2001 750701 @j%IN  ERR0 SIN  `IB88 p%OS 24998-1X241 REV.2001 750701 @p%OS  COS ERR0  `IB88 a%AN 24998-1X237 REV.2001 750701 @b%AN  ERR0 TAN  `IB88 %TAN 24998-1X242 REV.2001 750701 @ƣ%TAN  )ATAN ERR0  `IB88 %ANH 24998-1X017 REV.2001 750701 @ӊ%ANH BTANH `H-88 y%XP 24998-1X243 REV.2001 750701 @y%XP  ERR0 EXP  `IB88 %LOGT 24998-1X240 REV.2001 770518  @(%LOG0%LOGT ALOGTERR0  `IB88 %LOG 24998-1X239 REV.2001 750701 @Ԕ%LOG  ALOG ERR0  `IB88 %QRT 24998-1X255 REV.2001 750701 @צ%QRT  ,ERR0 SQRT  `IB88 _%BS 24998-1X018 REV.2001 750701 @c%BS 4dABS `H-88 %IGN 24998-1X020 REV.2001 750701 @̘%IGN :SIGN `L[8p8p  8 %ANNT 24998-1X402 REV.2101 800222 @%ANNT -.ANNT.ENTR `GN .SINH `24998-1X369 REV.2101 801103 @.SINH..FCM.FAD .FDV .FLUN.FMP .FSB EXP ;;`c#J(%(#^(:JZP( pN`J(`N6Z(`NX(H\;88`g#JJ0LVNTN0RLPJ(HJ( L0PLLH_88`POP@NYL V*23OR|PP .COSH O24998-1X371 REV.2101 800222 @.COSHVH..FCM.FAD .FDV .FMP .FSB EXP ;;`h;(`M(,H;2G(I(9K;? E=C=A; `Su"(0?G(92;(=G=6=HN8 `NAZ״ z @V*24ORAA .ASIN D24998-1X373 REV.2101 800222 @.ASING.FAD .FDV .FMP .FSB ATAN SQRT <<`f97( P`C(-0?79?7"9("(497298`7()<$$`Qg&6;8=8`7P?(4`8P@(%4A$`I);dx@21UN;; .ACOS 624998-1X375 REV.2101 800222 @.ACOS.FAD .FMP .FSB ATAN2SQRT ;;`d-( P`5(01-/1-2/(&//-8`-P1(&`.;`Ie$P2()3 8 `E(1@22UN 11 .AHYP 24998-1X377 REV.2101 800818 @.ACSHo.ASNH.ATNH..FCM.FAD .FDV .FMP .FSB ALOG SQRT <<`dZpXp\`XX(;( 8\V`P@($0VV]V؄m8\<;;`mx $VVZV_ XaZX(!XXZ kViVg VZe; `D\QVX `AU<<`g]@X ;W,qbVf (o6V`op`V"](Z(`@(V<<<`hY]Z2Z((ZV(8ooXZ8(AV0VZXV( _Xc< `DZX <<`fC8oooo26UN 26OR(ZZp\`Z(] X]ZZhX ( <<<`h֠(XZ(H8ZV0 V XV0XZ8Ш< `Cq6427 `PUN27ORM`Scx n .SNCS b24998-1X159 REV.2303 830112  @COS 20;09.84<`L"()p2x3`C 2`AhB()`PS5Q|'K:AtRR09OR55 TANH C24998-1X152 REV.2001 780424 @TANH i.FAD .FDV .FMP .FSB .ZPRVEXP ;;`a p4(`A(, `4H@p4x58p6x7`4h5846x504>;%%`S!p6x7`0_]pTxU `MC`PhQT8X(J(NW8V`AWd`NY@W'O2@YY EXP O24998-1X167 REV.2301 821012 @yEXP 9J.CMRR.FAD .FDV .FMP .FSB .PWR2.ZPRV<<`b.p=6@(0p;x`;<..`Yp"h<=IX8?(+ (76@8`=(7 A(-`LhMA(..`NA\U\UCvq@07OFAA ALOGT 24998-1X135 REV.5010 880301  @(ALOG0ALOGT ..FMP ALOG  `I!@Jx8p9x:`7h8=p;x<`7h8=;p7x8<((`WJ 7Ep;x<`ChD;A709?`GhH(2(`Nm$=@X Ri`c02UN~== SQRT B24998-1X181 REV.2001 780424 @SQRT .FAD .FDV .FLUN.FMP .PWR2.ZPRV<<`bp/(18(/p4@AH=p8Xx5`4 (0:;(0;:p6x7`4h56<##`Rwg"6p6x7`4h5H>6068`?h@(/#`H:Kk03UN:: cABS 24998-1X176 REV.2001 750701 @cABS  "..FCM.ZPRV `G .MXM1 ]24998-1X110 REV.2026 800303 @.JMN1.JMX1 AMAX1AMIN1 MAX1 MIN1  .FIXD.FSB IFIX  ;;`` @P@ DhZ x@@[pU`@\px;<<`c= (QpT`p1(B81P`V1(?0 V(@1 XBV XP(@`V(F< `D2C Ѐ1V8T $$`VWG()V8UJ8U $GG ӤAMOD 24998-1X085 REV.2001 750701 @AMOD .ENTP.FDV .FMP .FSB .ZPRVAINT ""`XB2 " ߦSIGN 24998-1X180 REV.2140 810806 @SIGN  "..FCM.ZPRV $$`Sqڀ8p ` 8$ yDIM 24998-1X095 REV.2001 750701 @kDIM  9.FSB .ZPRV $$`TBi888xR( $ ANINT &24998-1X396 REV.2101 800222 @.ANNT ,.FAD AINT  88`aRq!@Z(P#( X($@%(Ј!` B`!@8`Cac#,## .CMRR 24998-1X546 REV.2226 820420 @ .CMRRgr.FAD .FLUN.PACK.ZPRV;;`_Iyp5x8x p\@pu xH}xp` P!p H;<<`_x 88 HQ@p Q8`h@ (:!H8\(:xp`\< `DIn>(B(X ;;`cB@|(y@{pP@pK  Hxp8(x4;11`]PeZ H @Hx8Z H QH`8 @1ee .CMRS 424998-1X171 REV.2001 780424 @.CMRSC.XMPY.XSUB.ZPRVFLOATIFIX SNGL ;;`` +p-`3p. p/p80-0Zv8(+8p-`;`MZ 3p. p/$-0-+4-`A_t333 ڑ%JABS 24998-1X268 REV.2101 800303 @%JABS ).DNG .ENTR `Ii="P Ϡ%JMOD 24998-1X270 REV.2101 800303 @%JMOD 1.DMOD.ENTR `J,B %JSGN 24998-1X272 REV.2101 800303 @%JSGN /.ENTR.JSGN `IaB ݜ%NJNT 24998-1X401 REV.2101 800222 @%NJNT :.ENTR.NJNT `GN ڗ%JDNT 24998-1X404 REV.2101 800222 @%JDNT 6.ENTR.JDNT `Fi   %JSH 24998-1X295 REV.2101 800303 @ؕ%JSH  0.ENTR.JSH  `J,B ޙ%JSHC 24998-1X358 REV.2140 800320 @%JSHC 0.ENTR.JSHC `K0 У%JBTE 24998-1X359 REV.2140 800320 @%JBTE <.ENTR.JBTE `IaB ֣%JBST 24998-1X360 REV.2140 800320 @%JBST ;.ENTR.JBST `IaB ԍ%JBCL 24998-1X405 REV.2140 800320 @%JBCL  +.ENTR.JBCL `IaB ݠ%JBTS 24998-1X407 REV.2140 800320 @%JBTS <.ENTR.JBTS `K0 %JMBS 24998-1X409 REV.2140 800330 @%JMBS *.ENTR.JMBS `Q*$4 ɚ%DAND 24998-1X286 REV.2101 800303 @%DAND 0.DAND.ENTR `J,B %DOR 24998-1X288 REV.2101 800303 @ԙ%DOR  4.DOR .ENTR `J,B %DXOR 24998-1X287 REV.2101 800303 @%DXOR '1.DXOR.ENTR `J,B %DNOT 24998-1X289 REV.2101 800303 @%DNOTN.ENTR`I_+ P .DMOD 24998-1X269 REV.2101 800303 @.DMOD .DDI .DMP .DSBR `P)B8p`0Ѐ .JMXM 924998-1X290 REV.2101 800303 @"x.AMNJ .AMXJ.JMN0.JMX0 2.DCO .FLTD <<`_ @P  Z @ x5`6 `7p#` @8px(1p4`<..`ZQ4p%(*8%(, (,%84("85 . .JSGN 24998-1X271 REV.2101 800303 @.JSGN.DNG `ND88 P  ۞.JDIM 24998-1X273 REV.2101 800303 @.JDIM $.DSB .ENTR `N%BP  NJNT 24998-1X395 REV.2101 800222 @ .NJNT l.FAD .FIXD.FSB  `L( ( @ JDNT 24998-1X398 REV.2101 800222 @.JDNT .TADD.TFXD.TSUB ""`S08p  ( 6( 0" `D[@  .JSH 524998-1X294 REV.2101 800303 @.JSH <<``08@Z(- `4H2 ( H2 (-(`0p1p0( `1p0p1`4<((`U, X2(*H3 p' h0`1@0 0(  .JSHC t24998-1X411 REV.2140 810317 @.JSHC .2TOI.ENTN <<`h@ iki4xi"ڀ@sp8 D H(((&`m<<<`]H)(kpi kpk`lpj lplh H (dx @`@r@p HppZx[h< `C-EH` ;;`]H @@r@q HqpTxU hi`jxohipi`j0in0l@0om0k`i; `De@khjHl `Dc"p  pp .JBTE #24998-1X417 REV.2140 810317 @.JBTE .2TOI.ENTN ;;`c#Bp!x"p`!x!h"(%6P (@ !!h"; .JBST #24998-1X419 REV.2140 810317 @.JBST .2TOI.ENTN ;;`cYBp!x"p`!x!h"(%6Z @p `h!!@0!@; .JBCL $24998-1X421 REV.2140 810317 @.JBCL .2TOI.ENTN ;;`c1Bp"x#p`"x"h#(%6P @p`h"!@P!@;`A`d### .JBTS G24998-1X433 REV.2140 810317 @.JBTSJ.ENTN<<`e B(?x% (?B (? ( (?HHF x%hDx9<77`bʣ%@Dp:h H%hEZx;@Ep<B@@P  7%% .JMBS |24998-1X435 REV.2140 810330 @.JMBS .2TOI.ENTN ;;`f+px@z px@z px@@{z ;;;`^&ڨH`@H0zPh%hy@yxIpJPh%hx@xxKpLxb; `EDpcp ::`cMTI rp tHJ$@@{ (bhxvpws uw u@r: `Dl tv t `Dcx@@ xx Ξ.DAND 24998-1X282 REV.2101 800303 @.DAND`N 8 @ @ .DOR 24998-1X283 REV.2101 800303 @ݗ.DOR `N- 80 @0 @ .DXOR 24998-1X284 REV.2101 800303 @.DXOR`N 8 @ @ .DEQV 24998-1X285 REV.2101 800303 @ .DEQV`P/8 @ P@ %ABS 24998-1X015 REV.2001 750701 @Ǖ%ABS +IABS `G#$88 %SIGN 24998-1X026 REV.2001 750701 @%SIGN`ISIGN`L[8p8p  8 ۜ%NINT 24998-1X400 REV.2101 800222 @%NINT :.ENTR.NINT `GN ݘ%IDNT 24998-1X403 REV.2440 800222 @%IDNT 5.ENTR.IDNT `Fi   %ISH 24998-1X293 REV.2101 800303 @ؔ%ISH  /.ENTR.ISH  `IIaB ޖ%ISHC 24998-1X437 REV.2140 800320 @%ISHC /.ENTR.ISHC `K0 Ѡ%IBTE 24998-1X439 REV.2140 800320 @%IBTE ;.ENTR.IBTE `IaB ؠ%IBST 24998-1X441 REV.2140 800320 @%IBST :.ENTR.IBST `IaB Ґ%IBCL 24998-1X443 REV.2140 800320 @%IBCL  *.ENTR.IBCL `IaB ݣ%IBTS 24998-1X447 REV.2140 800320 @%IBTS ;.ENTR.IBTS `K0 %IMBS 24998-1X449 REV.2140 800330 @%IMBS ).ENTR.IMBS `P}$ %AND 24998-1X016 REV.2001 750701 @ӆ%AND `I888 n%OR 24998-1X024 REV.2001 750701 @p%OR `I888 l%OT 24998-1X025 REV.2001 750701 @p%OT `G88 іIABS 24998-1X147 REV.2001 750701 @IABS T.ZPRV`K3 A (   {MOD 24998-1X107 REV.2001 751101 @rMOD T.ZPRV++`XB8p8x8 @+ MXMNI H24998-1X109 REV.2001 750701 @.FAMAX0AMIN0MAX0 MIN0 iFLOAT<<``Ph@(h(hP(h @x3hDx=8=!pB`3P3@GpA(&<<<`\> `Cp@`3x3(/833p@@FpE838A(5P@8B33@F @E< `D<@(,(' `H@4@@"" qISIGN 24998-1X149 REV.2540 <850805.1337>"@ ISIGNT.ZPRV%%`S88 (A`% ԩIDIM %24998-1X103 REV.2001 760106 @IDIM T.ZPRV<<`a]Y888ZA(@(AP (P@A( (("< `DG0!(`$( !! NINT 24998-1X394 REV.2101 800222 @ .NINT c.FAD .FSB IFIX  `L( ( @ IDNT 24998-1X397 REV.2101 800222 @.IDNT .TADD.TFXS.TSUB ""`S08p  ( 6( 0" `D[@  .ISH 24998-1X292 REV.2101 801023 @.ISH 33`[px8P` ( PPH h HHx h03 .ISHC <24998-1X451 REV.2140 810317 @.ISHC .2TOI.ENTN <<`_ 6x6xh6xh6:`9p@hpp; p<88`]+G" H` Z(2`H@7H8p0x-hZx`00;h6 8 ܯ.IBTE 24998-1X453 REV.2140 810317 @.IBTE .2TOI.ENTN ))`W'Bxxh$ @h) .IBST 24998-1X500 REV.2140 810317 @.IBST .2TOI.ENTN ''`UwBxxh$ @0h' .IBCL 24998-1X501 REV.2140 810317 @.IBCL .2TOI.ENTN ((`VmBxxh$ Z@h( .IBTS -24998-1X502 REV.2140 810317 @.IBTS .2TOI.ENTN ;;`_J)6x)xh)Zx H*x$ h)('Z`+('HXH+  H,H;`NZp `h)(%  .IMBS A24998-1X503 REV.2140 810330 @.IMBS .2TOI.ENTN ;;`^ap<p`<p?`<p?`<p@@?;;;`]zH`@HZ0?`@>p0`@=p6`hHH@Ђ@0; `E; `A`@@@ ؁IAND 24998-1X102 REV.2001 750701 @IAND `H}88 kIOR 24998-1X105 REV.2001 750701 @pIOR `H88 ݧIXOR 24998-1X106 REV.2001 750701 @IXOR `I888 SPOLY B24998-1X391 REV.2101 800222 @;SPOLY c.ENTR.FAD .FDV .FMP <<``f%(8(8p`Ap=(8P8=p6(6ڀ888(8=<--`YA$>(+888()x@h?p?`>?;-`A`AAA (XPOLY .24998-1X168 REV.2001 750801  @V.XPLY XPOLY p".DFER.ENTP.XADD.XMPY.ZRNT;;`e +ppppZ((p 8((48 ;`I#%8 8 (4%% DPOLY w24998-1X188 REV.2001 790417  @t8x px  .TFTD 24998-1X185 REV.2001 780424 @.TFTDI.XPAK33`Yxh8 (x  `  x` 83`A`z .CTBL 24998-1X034 REV.2001 780424 @.CTBL.BLE `LUp 8p 8  .BLE 24998-1X170 REV.2001 780424 @ڊ.BLE N.ENTR''`TBڈ8`8  8' .DTBL 24998-1X266 REV.2326 830406 @.DTBLF.DFER**`UD88px Hp  * .YINT 24998-1X133 REV.2001 780424 @ .YINT .ENTR.TADD.TENT `Tf & @ .TENT L24998-1X160 REV.2001 780424 @.TENT .CFER.ENTR.FLUN <<``&r6ڀhHGxFP(0@K xE@IhPH Q QH5 @< @XF()<<<`]"8E (J8EڠhE=888=< `EU? `A`D `E_G7 GG ڛ.IDBL 24998-1X053 REV.2101 801008  @9.IDBL.XFTS DBLE FLOAT `PSI68p   ܾ.XFTD 24998-1X073 REV.2001 780424 @.XFTDI.XPAK''`S |xh8 (x  ` P`'`A`t ݈.CDBL 24998-1X031 REV.2001 750701 @.CDBL0DBLE `L1jp 8p 8 4  כDBLE 24998-1X178 REV.2001 750701 @DBLE T.ZPRV55`Z3 8Z`(p 88` 885 DDINT 24998-1X179 REV.2001 750701 @!DDINTƂ.ENTP.XADD.ZRNTENTIX++`]npX ($Ҁ@+ .TDBL 24998-1X265 REV.2326 830406 @.TDBL .DFER.FLUN.XPAK --`X (-3@5  .NGL 24998-1X126 REV.2001 780424 @՟.NGL  '.CFERSNGL  %%`Sp88p ` `h x% SNGL I24998-1X190 REV.2001 750701 @SNGL T.ZPRV<<`]$8hp (x>>8>>pG8>>ApH> `B q@GP?0H!("<<<`_0ZXE(2 XD(&@A `H0@P@A  @A("hC`H0@ZPB(:(/`EhF< `D<A($ `I@@@@ ң%FIXD 24998-1X277 REV.2101 800303 @%FIXD  <.ENTR.FIXD `Hu\2 д%XFXD 24998-1X278 REV.2101 800303 @%XFXD N.ENTR.XFXD `Gc4 Ѱ%TFXD 24998-1X279 REV.2101 800303 @%TFXD J.ENTR.TFXD `Gc4 ݺ.ZFXD 24998-1X452 REV.2101 800826 @.ZFXD8.TFXD`J`8(p"" j.XFXD 24998-1X074 REV.2540 <850807.2131>"@.XFXD 7.DTBL.TFXD `JY8p"   .TFXD 24998-1X186 REV.2001 780424 @.TFXDY.CFER.FIXD.FLUN.FXDE%%`RYep8p`h@0p`hx% ן.CFXD 24998-1X276 REV.2101 800303 @.CFXD;.FIXD`GH8 .FIXD E24998-1X193 REV.2001 780822  @e.FIXD.FXDE; H.FLUN<<`]Xp<p>x=(4@CZ(7p?C(.A0p @p"`?@Dh<`=!(P0>p>p?<<<`_Wڂ (+xh<P8=(* `=@ІAh<`= (+`>(& (,`BA < `Eb@ @@ %FIX 24998-1X019 REV.2001 750701 @Ο%FIX 2IFIX `H-88 l%NT 24998-1X023 REV.2001 750701 @o%NT =pINT `H-88 IDINT 24998-1X104 REV.2001 750701 @&IDINT .ZPRVIFIX SNGM  `N2 8xp  2  ҳ%TFXS 24998-1X280 REV.2101 801011  @R%TFXS/TINT J.ENTR.TFXS `Gc4 .ZINT 24998-1X450 REV.2101 800826 @ .ZINTG.TFXS`Ltx `8(ph  iINT 24998-1X148 REV.2001 750701 @oINT 2IFIX  `C2  .DINT 24998-1X043 REV.2001 780921  @D.DINT.XFXS .ZPRVIFIX SNGM((  `L p8 .TINT 24998-1X161 REV.2001 780921  @P.TFXS.TINT +.CFERIFIX  ##`Qp8p`` 0h `# .CINT 24998-1X033 REV.2001 750701 @ .CINT2IFIX `G8 .ZADD )24998-1X406 REV.2101 800825 @.ZADDw.CFER.ENTM.TADDA.B E.P. ::`a3`(pXppp$`@#phH#`@#$:`Al( (( .ZSUB )24998-1X408 REV.2101 800825 @.ZSUB,.CFER.ENTM.TSUBA.B E.P. ::`a3`(pXppp$`@#phH#`@#$:`Al( (( .ZMPY @24998-1X410 REV.2101 800827 @.ZMPY.CFER.ENTM.TADD.TMPY.TSUBA.B E.P. <<`e& `?pXppp3`@2;6€hH2733077`@2<`Kf(7;$Z3 `A? ?? .ZDIV y24998-1X412 REV.2101 801023 @.ZDIV F.CFER.ENTM.FLUN.TADD.TDIV.TMPY.TSUBA.B E.P. <<`^K#`xp p@cpdp@cpep@cpfhHb@YpwfhfHb<<<`e!ZY@wpw(0`hepex`hfpfxgf$ofgk&ooe0gooo< `DF&oks ))`ZJ&g`w(Tses(Xsse$€dsk"o#)`Ax xx }..ZCM 24998-1X416 REV.2101 800826 @s..ZCMq..TCM.ENTMA.B E.P. !!`R;`pph H! .ZFER 24998-1X418 REV.2226 820413 @.ZFER B.ENTN.MVW  `O98B؉`h `A`Z ЇCADD 24998-1X086 REV.2001 780921 @CADD  ,.CADD.RCNG `CD`  ܘCSUB 24998-1X091 REV.2001 780921 @CSUB  =.CSUB.RCNG `CD`  ިCMPY 24998-1X088 REV.2001 780921 @CMPY   8.CMPY.RCNG `CD`  ֜CDIV 24998-1X087 REV.2001 780921 @CDIV  1.CDIV.RCNG `CD`  ۜ.CADD !24998-1X119 REV.2001 750701 @.CADD .ENTC.FAD .ZRNT 44`a.!4p ڀ88888804 .CSUB !24998-1X122 REV.2001 750701 @.CSUB .ENTC.FSB .ZRNT 44`a.!4p ڀ88888804 .CMPY C24998-1X121 REV.2001 750701 @.CMPY.ENTC.FAD .FMP .FSB .ZRNT<<`g@ pZ` p` ppx6 p x <11`\q'6€ px  ` h px`h68 8 1'' .CDIV _24998-1X120 REV.2013 791227 @.CDIV..FCM.ENTC.FAD .FDV .FLUN.FMP .FSB .ZRNT`C`R::`cQS [6 p` @^p ` @^p `@^p Yp PY@:;;`cpz,(5` h p x `h p x0ڀ px px    ; `FOH    `JU 4 UU y..CCM 24998-1X028 REV.2001 750701 @r..CCM5|..DLC""`R`(p8868" y..TCM 24998-1X169 REV.2001 780424 @r..TCM 4.4ZRO.TSUB `K_p 8pR`   X.TMTH 24998-1X194 REV.2001 780424 @V.TADD.TDIV0.TMPY.TSUB[.CFER.FLUN.XFERFLOAT;;`\h@Zp( `(D`(`@p(-p`hpx`;;;`\ 5hpx`hpx`hpx`p`(D`@(D ` `QQ@9; `D8Ш:(O(> ::`Y<<(E(J`p`p`p(N`p`p(M`pxxx`(ix0:<<`aЍUp[p_pcpg"@x@x@x@x `@p``@p``@< `DOvpA`h ;;`]Kz ! @p(@` x P(`(`P(p`p`p`(`;<<`\eP(p`p`(`P(ppxxx p@@p` (@@< `C (Dh <<`]D Hx@p`p@88((DZ`(p`(p` pp<;;`]ƪӴp`Ax`p`p`p`@ppA hx8; `C  ;;`^8X((䠊A 88(h`H x6 "xp @;<<`^ ph Hx ((xh6xh xp`@p`(Dh@p< `CG/(D <<`]L+2`(t`(p`@ ``p`p8h` (`x h<<<`]SO `@ p@H 8(O8(^(8`X(c(fH`(r5P(r< `BBl8 <<`^zn`8(f(xAPHp (X(H`Z@ pZ@ (x<<<`_8((`(FAxp`hX( A`H @H @< `Cxh ;;`[ڛZH@H@Hpx(Fpx`@ppkҶphx;<<`\ɶp`hxp`8hp`(֨` p`(h< `D4Y嶀@p` ;;`cڨh@pڨ@px B5x5 u B5x5 u`;<<`a ZP@p`@p`@p`@p8  D`P`< `DV-A <<`] 1P(<Є`` ` p`Zh Q@p 8(_<<<`]6tN8(_8`P(ZP(W(_6 (\ pHx`P(e(s @0pA< `CMk` ##`Qpn hA @(x`Ah @x xx x(j#`Ab `F$  `Bgo@P`O@ .CFER "24998-1X196 REV.2001 790523 @.CFERT.ZPRV;;`]Hh8`8(Zp! ( !Z8! !8! !8! ! ; `EW`!D  XADD 24998-1X112 REV.2001 780921 @XADD  A.RCNG.XADD `CD`  XSUB 24998-1X115 REV.2001 780921 @ XSUB  R.RCNG.XSUB `CD`  XMPY 24998-1X114 REV.2001 780921 @XMPY   M.RCNG.XMPY `CD`  XDIV 24998-1X113 REV.2001 780921 @XDIV  F.RCNG.XDIV `CD`  ..DCM 24998-1X153 REV.2001 750701 @v..DCM Z.XSUB.ZRNT ''`Wi`hxp&8' ?XADSB 24998-1X191 REV.2001 750701  @`.XADD.XSUB J.XPAK.ZPRV <<`c6{}(6{` p}` h@Dx p` p`@(4<<<`Z#`hpx`hpx`hpx`hpx(p@(n`pp< `D=P Q qx <<`]rA`h(G9 `8(D8(Vp`xh(R@ `8(Px(apx8pP @x<<<`^^8x`hZ@ Dp`ZH D@pBx`h ` ` `< `C|" <<`\x hqhڨ}xxZ98Z8@88@8<$$`T%Z 0Шh (8$ u.XMPY 24998-1X187 REV.2001 750701 @.XMPY J.XPAK.ZPRV ::`c6e"[pxh^h^pppp`:<<`Z #pp p `h`h `h 88 8 `h `h88 `< `D=h`@ <<``A`p`  ` h (R(Rڸ88@@ 4x <<<`^(>ax xx8 8   P0 (8((< ((`D  ( <<`bQ8^h (8Px  (H @hH @hH @hPH @hH<;;`d  @hH @hPH @hH @ hH @hH @hH @hPH @hH @ hH @hH @hH @`A; `DՍɴ`  `E:ʹZ `  O.XDIV 24998-1X172 REV.2101 801107 @.XDIV F.XPAK.ZRNT ;;`e:2 (({6x`hxZxph;<<`] %Zh (.x Sxx([@p `phHZ``@p Z` `@p x ` h< `CjB p x <<`]Eh x (P` p` p` p `h px` p 8(2`@`p ` <;;`_b ` h  (n(nڸ8 8 P `@x x x ; `Dx  <<`_N88  8      P0!(и ((  ( 8 <`M=h (8  .XFER 24998-1X198 REV.2001 790523 @.XFER :.DFER.ZPRV `Jpx .DFER 24998-1X199 REV.2001 790523 @.DFERT.ZPRV;;`^̬h8`8(Zp ( Z8 8  `D; y..FCM 24998-1X182 REV.2001 750701 @r..FCM 9.FSB .ZPRV `Meo p x    .DADS H24998-1X036 REV.2001 780818 @D.DAD .DSB 2.DSBR <<`_pCxDpF`pGpE`CЈE8HDA(8G P(@C(Z(8G @C8F<;;`]yxC @xGxFhC@xDh xxEPhCpC( pCxD@pGpF`2p; `D<pE`CE `CS@@( @@ .DMP f24998-1X045 REV.2001 780818 @ە.DMP <<`_@p]x^@pc`h] ڄ8p_`]h^_p_ x`@(#!(U`]h_x]p_<::`^`^h`x^p``^Ѐ`pb``ZH^`^H`xaZ_ @apa `^H_`](K(Q: `Df=x]h_`` 55`\AAZF(F DXd(Q @apa H]`a`hb (Y`eA(Y`^@8c 5`B d@dd I.DDI 24998-1X040 REV.2001 781021  @U.DDI .DDIR9 iFLOAT;;``~Zp@p`( px8 0p(px@(C ;;;`bjB `(p `p`@ ZH8(px989; `CB9pp <<`^w\EZ` X(HxQxUxYx^Zh` hp phڂ hp`h xp<<<``cЄ(qh`Z(pZ`5(_0pxp`H` H`@@ < `CH Q( <<`_/4Z@ HxHxh(h`8(ZAp`` ` (qh<`OcZ 8(hP`P ( (`A( `Dc1!  ˌ.DNG 24998-1X046 REV.2001 780818 @܌.DNG `H) A8 .DCO )24998-1X037 REV.2001 790417 @є.DCO <<`_fp%x&Pp(p'`%' %( %@%(P@H&(Z %888`(<`F{ZAA`%h& ‘.DIN 24998-1X042 REV.2001 780818 @ד.DIN `F_A8 ċ.DDE 24998-1X039 REV.2001 780818 @Ҋ.DDE `J A8 ( Ĩ.DIS 24998-1X044 REV.2001 780818 @ט.DIS --`T`Wp`8p`(pp`ڨ8-`AW .DDS /24998-1X041 REV.2001 780818 @Ҙ.DDS ::`^!p)x*Pp-`8p+Z`)+( p+@.p,`)+ @.H. (8+p+:`K `-AA`+8,(&`)h*`A`n... ȡ.CPM 24998-1X505 REV.2140 810802 @ޑ.CPM 99`\DYp8p`p8p`P(P8A@8`9 INDEX n24998-1X252 REV.2001 750701  @ .INDA.INDR IND.EREIO  ;;`\X` j` h ZjpjjpkkplZ8jpmj(L8j8m;<<`_(hj`Dpm`KZpl`? ((`@77l8l8m(%3B EC 8j  < `E;P 7 ;;``.\@INDEX?  H8kpkp8kk8jj(p@H (8m(f;`NN`Zhl 8kk(58kk(N`` vIND.E 24998-1X251 REV.2001 750701 @}IND.E`A`G .PRAM H24998-1X061 REV.2001 750701 @ .PRAM;;`]¥`p<p=@CHB  x><G=p@@E(8=@F(<hDx?;<<`\h@x@> Z (.xAA(.=8=8AA=8=8>8@=8?( `Fp?8<< `D9<( `K=?== .SWCH 24998-1X067 REV.2001 750701 @ .SWCH`O8RZ( H@ ( `@ ENTIE !24998-1X098 REV.2001 750701  @F.RND ENTIE <<`aEpxP0@( p`89( ` h P < SNGM :24998-1X150 REV.2001 750701 @SNGM T.ZPRV;;`^#8hp (Zp7 D2 p8 4p9P`7h8pH5!;11`\("P6(%H9`903P3A 4p@(#1 .CHEB G24998-1X032 REV.2001 750701 @.CHEB!^.FAD .FMP .FSB .ZRNT;;`^6p>x?>p>x?h`x=`=(p@@ZpAxBpCpD8@8@@(/;<<`b5`ChDpExF`AhBpCxD>E@pAxB(`AhB0E98== ;@ < `E`@ `B`EEE .IENT !24998-1X054 REV.2001 750701 @.IENT.FLUN.ZPRVFLOATIFIX ;;`^h-pxZ@(8X`hp P(` h @(` X((;`C`a .MANT 24998-1X056 REV.2001 750701 @.MANTT.ZPRV`L)p ` p`  .4ZRO 24998-1X183 REV.2001 780424 @.4ZRO `D`D  ܷ.PWR2 24998-1X184 REV.2001 781106 @.PWR2T.ZPRV00`Yp`p 0Z0h`80"" ENTIX n24998-1X189 REV.2540 <850807.2111>" @C.XENTENTIX !J.ENTP.ZPRV ;;`aBX`c@l ; xgheH ` xhxikp>5HZ@pf f;<<`\r!pjhd`>@'ڨ+>>>.FFf m8hڠjpi88 .< `C U=(T <<`_/@88 >(T mZXg8h88 F `ihh$[<`O____ .XPAK t24998-1X195 REV.2001 750701 @ .XPAKT.ZPRV;;`aylpp`( ppp  ((j86 ;;;`_Q!P1(0(@Z @`@nZ !(E DZA E(E; `De@(8 <<`]HDsp`@@o(W@s([@oq@(j(gP`r <!!`Sa!`p!0sAA8!aa .FLUN 24998-1X197 REV.2001 750701 @.FLUNT.ZPRV`Nm `  H0  .XCOM (24998-1X072 REV.2001 750701 @.XCOMT.ZPRV<<``9#`(p%p&p''&(% FP(U(('%@%&<`HL  D8  {..DLC 24998-1X117 REV.2001 750701 @{..DLC 9.FSB .ZPRV `M 8Bp    24998-1X513 REV.2140 810630 @TRIM D.ENTRAVLM ENDM RETBFUNM2 UNMEM;;``3(5( 6ڀ(4@=p:Zp;;P(5: (5 (4H= ;//`Va"(4`:@00Xl$FLIB::RTE_6:5:117:60 644 0 0 72400 5310706677 33667 $FLIB::RTE_6:5:117:60 $uTu<$FLIB +#+#+#u::FST ## AFLIB 24998-12008 REV.5010 <880915.2228> #LFL LGBUF 24998-1X362 REV.2140 810505 @LGBUF  +.ENTR.FMGB `OzBZ`p6ppp ITLOG 24998-1X363 REV.2140 810505 @EOF ISTATITLOG=.FMGB66`Z`hx(`x8X p`P` 6 FFRCL 24998-1X575 REV.2326 830406 @$FFRCL  +.ENTR.FMGB `M Z@ pQ ӭCODE 24998-1X335 REV.2140 810519  @ACODECODE =.FMGB<<`^I8X`pxB`(p`p- <`B`| OLDIO 24998-1X334 REV.2140 810505  @*NEWIOOLDIO =.FMGB`J`Opp FPARM 24998-1X342 REV.2140 810730 @FPARMtRCPAR!!`Pp`@p $Z 8(! "RHPAR 24998-1X361 REV.5010 880804  @)$RCPARRHPAR 9.ENTREXEC  <<`dN6pf`6pgf"pY$\[h] xX`epThXxU<;;`]Ʋ$P (+HTP^8Upx(:(8Y(Q(5(F; `COAp(D <<`aD8(C(P_(8Y(QP_(Q(J`^(Q ,NOW<`A!ve..`UZhTxT8UP8hx8`Y(P_(. ERRLU 24998-1X390 REV.2101 800222 @,ERRLU  .ENTRER0.E `G-p CLRIO 24998-1X248 REV.2001 750701 @$CLRIO`G-pp`"" UFTRAP 24998-1X609 REV.2440 <841025.1554>"@(FTRAP  .DLD ER0.T `G#p`x"" VRTRAP 24998-1X609 REV.2440 <841025.1554>"@4RTRAP  .DLD ER0.T `Hp`x"" RT_ER ?24998-1X610 REV.2440 <841025.1552>"@CRT_ERJ.DLD .DST .ENTRER0.CER0.EER0.VEXEC PNAME;;`eBh9xh;hp;''`Z3 % / *RUNTIME ERROR* @ hp '%%## TIMER g24998-1X586 REV.2440 <<840925.1540>>#@ÞTIMEITIMEO TM.INTM.OU& $SETP$TIME.XLA  ;;`]Up8( p8P@Wp\p]p^ \Z ] ^ \;<<`^}(` p&8 (/pexfPpd&8&]hYXha^xa]\D<`Bz; D<<`b=Z@`` H_8aA(I@c` ZHb(A [[` ZZ`dZAA`ehf&Z<`H7*___## TIMEF 24998-1X586 REV.2440 <<840925.1540>>#@'TIMEF$$ $CVT1$CVT3.DDI .DDIR.DIV .DLD .DMP .DSBR.DST .ENTR.SST $;;`hp 0ڀpx`@  ~hHu (! r(' rx;<<`d`R(Ps(b 0wHPv`z  hpЂ@ oxp}`Z Pv`zp< `C4FL`xHPw <<`cO`y `tp e Y$Z~8Y8Z8Z8(X 4{(4g p~@<`Lr . ..0 0100.rr## óKBLNK C24998-1X577 REV.2340 <830923.1700> # @,KBCHRKBLNK o.ENTR.LBT .SBT  ;;``^N`Pp8( Zh 6x x? (p@pA(#;;;`\ȍ 8@(,PB( x>h?8?h>( `?h @p6@A(7Z`6p@`Bh?8@; `Ed<(:(4 `B`A AA .BIO. N24998-1X332 REV.2226 820108 @.BIO._.FMER.FMGB.FMIN.FMIO.FMO?.FMSU.MBT .MVW <<``rXL(xhx HLx.(+J+`Ѐ0p0` P@0@0pJ5<22`\ HpK` hP@)(/55K(2ZJ` @Jp `@Jp` @Jp `02""`Rph(X(F`(DZp (CH x <44`\\ZH x pp`6(x`5p6h5`3 (07  (v6(x64;;`^{xP`PP;P>(p`P(J`Xp/80+`@phZ (`2;::`^$X(0P9(P:PP<P=PBPAP@ZP>P;(@?8Ph P9: `CH(`8  ν.EIO. +24998-1X329 REV.2226 820503  @4.EIO..EIO2 .FMCN.FMFP.FMGB.FMIN.FMIO.FMO?.FMSU.IOER;;`^G X*(#xp@p.p/`8( P (6(@*p `p`;`M(!('('X('+(' Ư.FIO. !24998-1X330 REV.2140 810414 @.FIO. tM.FMCN.FMGB.FMIN.FMIO.FMLD.FMO?.FMOC.FMSU .IOER<<`aX(xZHx. x/hx p (+P ` +(+( < .IOI. G24998-1X364 REV.2140 810505 33@ .IAR.'.IOI..IOJ..IOL..IOM. .IOR. .JAR.*.LAR.6.MAR.9.RAR.-.TAR.3.XAR.03** ɗ.FMGB .IAY..IIO..JAY..JIO..LAY. .LIO..MAY. .MIO..RAY..RIO..TAY. .XAY. *;;`^k Z$`@&p4Z$`7 (!8;77`]D8$Z<<<#<'<+P</<7`L;3pBxA.ZIO.,7=.FMGB<<`b  "@x+8p@p8h+8+<`A`s"`D$.@S<<`Zߓ#ژژژ`.6#`(\ژ<<<`[=`@5`+8+(\ژZ`SH<`AX+<<`^Y8+(_(\p0 Z(a6x`PP(yPP(~P (~`@p@p`06<`Juwp0(~5 px.ww L.FMIN 24998-1X344 REV.5010 880304 @ .FMIN.FMB?.FMER.FMGB.FMO?.OPN?.UFMPEXEC Z$CWD;;`^&px88x(  (h8 (88(`Pp;55`ZDžPph Qx*6ڀ88p+x, hh" xH, (4p+x"5<<`]]8Z$p$%p%&p&`-p(Hp`p p-pSp*` (Ux' x (<**`SUJh` `((_`(aHpR` (i`p *<<``_h(pnR6(x`h  @ `p*Z0 h 0pSh (<55`]M0RpS`RpRZ`((?#?    p (h$` 577``DhZ!ThTX` `Z`p)p ppp @7 .FMCN 224998-1X345 REV.2226 820107 @ .FMCN.FMCV.FMGB.FMIO.FMO?.FMUI.FMUO.FMUP.FMWD<<``  p0`5p`0( (X($`#6#<#2#3#4#761#5hx! #<$$`RK ##5-#<#2#3#4#`0$  4.FMCV 24998-1X333 REV.5010 880301 @7#FMFC#FMLB.FMCV&.FMWD1.FMDG.FMER.FMGB.FMIC.FMOC.UFMP`A`B<<`j( * *+-.09@ DEde<'d Z%p@+,$y<88`]0"[` p`P5$`@phH@p2`Uh 1h<8;;`_MX 1@x41HpU1Zh (fh4H ZA(m@;::`Z:l(`p`(`&`hH Ө&1`Zh9`@p`Z(4HD (`(4h (SP(` `h (( h 9;;`]U(h` XX(`4Zh hHD @@@Zp4&hH k8h;;;`]rH khx2@8k` 00(EZ`5(p7Zp8(((P;<<`cMP(ph7- (7ZCH7(86&```<`Bb :.FMFP 24998-1X346 REV.2540 850927 @ .FMFP q.FMDG.FMER.FMGB.FMIC.FMO?.FMOC.LBT .SBT ^FMSA;;`d Z`/` Zppppp0`pS;44`Zn$P(`"88*`*p`)p/80X+`@pZ`p5p4::`^+>hX(ۨ=hBx/`F`FpBh` pب8 h  hP (T:::`^\Zh@@ @ S bxppo`o88p(hbS(PpS(A:`AiDzh;;`]9t{HHHH@ZhH(u`Ӗ`qH x 8phx;<<`dBppSh@ (@(Z@`PR STZ $!>E通 0N <<<`l$$_7FLN<ԁ |||$yc [ԀQ a-.(Pq(<;;`\ǹZ(qqpSP((`Xp(p(8 h  (S`(S ;<<`]PP(x(SP(/Zh HH xP(q@Z(0qpPH @<22`X!h DH h !x pH @ p x (`qZpH (6` P('2;;`[9Pp` @ (K`H H  ('@@ p Z` p `b(F(NSP(X;::`[TP(W  x(3*=9(~tP߶(aPt PhP (|:;;`^ot(o(\X`t8t`Z`hb` `(rxh;;;`[e 8(x ` xSp(3(*`p(*9`phH;`Ayx;;`\SZ( (`(xtX8(h x8(`h`(( (;<<`]wŴZH`x(`bhx8((3*=9hX(`(<`ASP<<`_1 (p0P(-C 8( (``ߴZhH (X  <;;`[(08((xp` pS((`P((((S`P(; `B` <<`[p (8($('`h@xHH` H `H (qp3(<66`X:`p9`@(R('hH(N`@ pH(0Hp (6<<`]RZ*`(FZpphxH(N*@p(pp3SP(o(v<33`WoPqhH (phx(pHx3SP((qph3<<`]X((pX(`pSP(Zqp((Z(`@@p<`LTD(*=`B( .FMLD h24998-1X347 REV.5010 880301 @.FMLD$$ c.FMDG.FMER.FMGB.FMIC.FMOC.LBT .MVW .SBT .SST .UFMP^FMSA$<<`_Z`/` Pp` (prP(`( p ( H(0p()<99`^hAHHHZH@(0(P(0`(2(vpiP>(?p 8(89;;`^`=Z( -ppZ`PPE(߶PF(PP(s`6 (d`5pPh5 (;;;`^B,[7 (b(dς8( `@(h6 (P`h(PP(x`i;<<`^Yy`@p@piiP(viXi`@p <77`\siP(v`@Zp`pP̶`p8( `PP(`7<<`_`5p5p`h`@p`h(8` "7 `Ϡp/<77`]Ң80+`@Zpxhٶx/hP PJ ĠPPI !(v xPH7::`^isPP(Zh5`Z8( `PPE((/.,P(P(:33`Xk Z`Hpppp`p`p (`@h (9`pQ3;;`\\%P(1PPH(1p(9hH 8`P($`+8P(B϶`PF(;22`XAZ(`(OQP(EPPH(EϢ( `Qph P (dh2<<`\M YXHPPH`Hڨ`PH(T` PiPH(ji`rp<11`Xn;uZih(PZ(u(~`Ph PH H x 1;;`\nH x h xh xhx hx `PPHPP(`;66`^\`(hxh` p ()*'"hX("XE6<<`]%Ƕ("XF(6XhZXhE H p pڈxL`pppPp`H`<66`ea((   P8`@p@6<<`^xn Zp``DٲX``@p`D``P@p`pP`p(¶`FL`Hh<55`]'H(. h5`I `J(¢`phx8(LhPx(;5;;``D FTh (VhQH  HQ(Xh HH H بLh`KX `Lp; `DU dP`H dd #.FMIO 24998-1X348 REV.5010 880915 @".DTA..FMIO.FMSUm.FMB?.FMER.FMGB.FMO?.SBT .UFMPXLUEXXREIO;;``ZmPh H  H H)x`(`)p(. xH;00`Z= ` h5 `*Z`jp"`#`ip#`$0&0<<`]l:Zp$` (@`l(NLR#$(UTRpx<00`[| W (.k(gh"P h) `%P@h (|0;;`]rX`)h*Dh (H@(J8 h'`)@p'`)Hx @p p p`;`L=Jm`8 8(m  .FMUI _24998-1X349 REV.2540 850820 @.FMUI.FMUO5.FMUP`|.ENTR.MVW .PACKIFIX ;;`[Chx]H'x^P(pY`&h%(h$pYxZ`Y@(P(pY`8h9Z(;<<`ge3@+("@*ҀZ:   .2Pd} N azh`݀PC :< `CUiB(; <<`]EpW(wh^X(r`Y@YZh[ @WpY8Z(k`)hh^8^ P@Y!(f<<<`[bbH(f(b`}pZpYh[`W DH~x[(H`Y@8[ڨD`ZP}D@*(W< `D`} <<`_8W(`) 8]`}pW`W@pS] S]d  pT8T8`<::`^d` @P((@p`  P(`S (`: `D]rP  66`Z´Z(` !@~ DP((x X(׀ x@p6;;`bPpSpVHxh^!(xT(`S6 UU THVT;<<`^rhTX]xUH~PxT(pS@pVHx`]pTpU@^ZpW($8TPHVP< `D6!PHVSpX <<`a%8UUS50XT8W( /pppp4ZPPpS`3hS<;;`\F4@O(Oڀ$@p([P/([@hpSR S=0p:h܂1p\; `CTlb( ;;`^e`ကpS`܀HSHZx\H/``^pS J`h @Q(`.h/;;;`[@\p\`@`p]@/p^`pW0@ pY@pX@/8/8X(; `Dq`Y(` ::`c/8/8Y(`\250Mi`p]p^`}pZ:;;`[1ŢppYp[pܶpppp(pXp\@D88X(D:`; `DK(`[@\ <<`b*Z`ᴒp&܁B`h+Z`pPPPpV<;;`\Dnh P+(;@~@pS5(.`0pU`Z@(Ah (%`0ߢ0U(%; `Ck"8(%  ;;`](%(,`݀ڄ(Ax(;hQ`p7SR h`S؄(B`h"V`;11`]1[Bpppp߶HOS 6S(;1BB .FMUR '24998-1X350 REV.2140 810408 @ .FMURN.ENTR;;`^MZh@&ڨ`%X(H#P$(;`Iڨ:0 .FMO? 224998-1X351 REV.2140 810415 @+.FMB?.FMDG'.FMIC.FMO?.FMOC,m.FMER.FMGB.LBT .SBT <<`_Sxh8Zhxh,8h  8 Z(`8 h P` (!<**`S9=`(%8 8 h pPhH 'H Ш'8'`'* .FMER 24998-1X352 REV.2440 841127 @ .FMERR.ERR0.FMGB.IOER.MPEN`Mِ"h" ʨX( ++ .MPEN 224998-1X611 REV.2440 841127 @ .MPEN<<`aɥPxPh0@Z  P/h+ZP.h, ((x h(@1ZH1 ((@*H* < `Q!(( @ @@`- LDSIO !! >.FMGB 24998-1X353 REV.2440 841115  @.FMGB^FMSA //`c$XzV/ `G`QH QQ .FPAU D24998-1X324 REV.2540 850930  @,.FPAU.FSTP W.EXIT.MVW EXEC PAU.EPNAMEXREIO::`h|PAUSE BSTOP  /PNAME-: PAUSE-12345- Z$ Ҁ#H>x # Ҁ#H>:..`\4(Zx +H?x`h=Ap6&<@C000  .(( .F6PA :24998-1X354 REV.2540 850927  @H.F6PA.F6ST NEXEC PAU.EPNAMEXREIO<<`fTa8+& & %(4& )&'P8+PNAME Suspended. <!!`Tb& +p*5x794& *+!&& PAUSE @24998-1X253 REV.2540 850930  @R.PAUS.STOP NEXEC PAU.EPNAMEXREIO::`htPAUSE ?STOP $> PNAME PAUSE 1234$ Z# Ҁ#HxbXd(O8^(O8`pfZ`xbHPxd`f@e("(Z(YX]([(O8g8g<`N[8gg [[ .SCO P24998-1X338 REV.2140 800903 @ѣ.SCO  <.CBT .LBT  ;;`] pMxJ8PpLxK@M(`M+(H( `M+`M@LhKHM5;;;`] [(H(F(G`L+`L@MhJHL5(H(G(FpN`JhKN+(G(FpN; `Ds:@O(@ &&`RDE>(D(C8N(8585855888 &>> .JNDX 24998-1X510 REV.2140 800325 @.JNDX +.ENTN.INDX `KfBh .INDX (24998-1X511 REV.2140 810325 @.INDX.CBT ::`^p&8ڈp#x"Z8p%x$Z@#(p'8&`$h"%Z( 8"8':`J8s(`& .SC #24998-1X340 REV.2140 810221 @t.SC .MBT ;;`]Q8 p x!Z8pZ8p"`h! " @" 8;`Fq( .SBST 24998-1X341 REV.2140 810427 @.SBSTJ.ENTN66`^X( (h H8`Y6 ڂERR0 24998-1X250 REV.2140 810506 @ERR0 0.ERR0 `F  .IOER m24998-1X321 REV.5000 850927 @].ERR0 .IOER.NFEXER0.CQER0.V>;.DIV .DST .SBT ER0.EER0.TEXEC PNAMEXREIO<<`a( 6€`gp> $hl>((`Whk[ 8 (p`h (##<<<`a+!$Z[`@`hbxQhd>hfxQ`[jP[(4hc> &7P=gOe xP <`BB4>pR<<`egDZHi`HPxP`R8Q(@8>> /*RUNTIME ERROR* @ < `D"i0OF ii ~ER0.T 24998-1X321 REV.2540 850927 @ ER0.T`A`A qPAU.E 24998-1X254 REV.2540 850927 @*pPAU.E`B`C ER0.E 24998-1X249 REV.2540 850927 @ER0.E`B`C tFMT.E 24998-1X232 REV.2001 781107 @|FMT.E`A`G ..MAP <24998-1X029 REV.2001 751101 @ p..MAP;;`^;ux,hH+x*P x'(  x'h,X-(p'X/X.@'*@ x(  (0;55`^x"x;("@&h;( Px) x" x8x;)Ѐ8@&( 5ent CDS code segment. 156 [156] Stack marker inconsistency detected.$ 157 [157] *Symbol table initialization error. 158 [158] Location is not a record. 159 [159] Subfield not found. 160 $FOLDF::RTE_6:5:56:60 644 0 0 34000 5310706700 34223 $FOLDF::RTE_6:5:56:60 $88<$FOLDF +#+#+#8FST "" &FOLDF 24998-12009 REV.5000 <870609.1039>"OFO FSYSU 24998-1X323 REV.2101 800731 @4FSYSU .ENTR.FSIU.FSOU `Js_Bpp ITYPE 24998-1X027 REV.2140 810724 @'ITYPE  ;.ENTR.OPN? $$`STP( ( HH$ FPOST 24998-1X141 REV.2140 810728 @)FPOST .ENTP.EXIT.IOCL &&`W% p &`h ,PO& FLOCF !24998-1X545 REV.2226 820414  @=FLOCFFPOSN .ENTP.IOCN.OPN? 99`a'hx `( `p Z(` ` $Ѐ 9"" .FFRW \24998-1X297 REV.2540 <850822.1446>"@ .FFRW.FMER.FMGB.OPN?EREADEWRIT::`^BxZ`((8 pTHVxUHVx.Z`Z(O`@pQhT P ()U:;;`az?()h P(&`XUXpQ` (6 4SQ6RT`R(>$=.SQT`Q;22`] ?p xTxUh[PxhS (K`S@Y`W2?? .IOOP 24998-1X300 REV.2101 800805 @ .IOOP;.DNOP.DSOP.FFOP.IOCL.IOCM.NFOP`G`  ;?.FFOP 24998-1X301 REV.5000 870126 N @.FFOP ** .CSTR .DUFE .ENTP.FOP? .IOCL.MVW .OPN? .UFMP ECREAELOCFLUTRUNAMR OPEN *::`cJ ` px` (vZ(x (xh :<<`cX,#Z(4 (x`@O(/ 0(x c OLNESCUN=(v`  EXNOUP*(v< `DFx  ;;`cJ0 SEDIP:(v0H H([`(v ZENU7(v0h (i (o FOUN;::`^wmZ9(v0p`( ((h$` (v (h"`(vh&` (v: `E( ( <<`au6h` (vh  = H ((yH <<<`a%(   `(v`h`p(8 .FTN01< `DPTh$ <<``Pֶ`X(v=xp$p`P(hxh` (v`Ӡ<<<`_T(`c`p  ((yHHP(B(y $Ѐ < `Ec 4 <<`\*PKE`($`c`p  ()(3(4x`  (3X(`(v` <;;`^*6 (1 Z `'p@p 5xx`hPp`p ; `Ct Tph$ <<``[W X(h Ӣ`(eh ӠZ` pRZh(` (` (`p<<<`dw(z` PHH @   (z(`ӂ@ $Z(`( < `C& 0 ;;`[b(P (kh Q QX((k8`ZP(hHx`X(mhH;;;`d``( @::0 `ShX00pہ$(; `EpݢP(kh* ;;`c<ڂ.X(Z`(m R` $"(k`P `(m;<<`^apx`h X'Z(v8 H' ` ` Z`  H(ExKpLh'<`AZ#X';;`]6$(Eh'xMHL`'Z@(E`'x'"@'%@' @ p Z@N@hL@OhK;;;``AH8'KZ `Q(vZhHP@h (_` (m`;<<`]a (mRch' c`|(v@}pH'x'hMx' ` `(v`~(v<`Ad~`Kb /.NFOP 24998-1X304 REV.2140 801020 N @.NFOP .CSTR.DUFE.ENTR.IOCL.OPN?.UFMPLUTRUNAMR <<`dmBx`e (h`h ( UN(`c <::`cj)$PEXNO*(0SE(0PZENU7(X0h (B FOUN9(0p`: `D7G( <<`aեKP(ih&`e X( ([&Wh`f Z(h =嶀Hc <;;`^lZ(p(LHa d(| b  `g(ڈ Z=xp$p; `Eu ` <<`\cP(`(Ӷ`p`c(((``~p (LHbHaP(i<<<``WT(LZpxʲ`hX(8 H ` Z` `  H`< `C` `Hn΢h `(Ӵ `Aa! .IOCL 24998-1X305 REV.5000 860619 @ .IOCLa.DNCL.DSCL.FFCL.IOCM.NFCL`G-F  9.FFCL 24998-1X306 REV.5000 860710 N @.FFCL** U.CSTR .DCO .DDS .DUFE .ENTR.MDCB.MVW .OPN? .UFMP ECLOSELOCFPOST PURGE*<<`a"` ( KEZDEPO1(x ((`P  <;;`^Y2! p px@p@ xxxhX(P` P(:8(>X`F (l; `E:? G ;;`c]D$`(l`h (T `@(_(_@6h`!@;<<`bg Hxpq@Z`(`p`@p@@< `D& %%`XШ@  %;;`] p Hxp@@+p+H H+ QH x(88 (p`;<<`_ʶhHHx@@p&ր@$`hZx888(@+p+<`Aa*``B  ?.NFCL !24998-1X309 REV.2140 810728 N @.NFCLe.CSTR.DUFE.ENTR.OPN?99`ay"`  (KEZDEPO1(XZ9 .IOIN 24998-1X310 REV.2101 800731 @ .IOINi.DNIN.DSIN.FFIN.IOCM.NFIN`G-G  9.FFIN #24998-1X311 REV.2540 850811 N @.FFIN--.DDI .ENTP.FOP?.MVW .OPN? .SBT .SST .UFMP ECLOSELOCFINAMR LUTRUNAMR OPEN -;;`c`p]v pvvvv###;<<`aI,#4# # # #`(``^ (pS`kh X% ((< `DDpSpV `KH$ZJ(Nv`kJ<<`bP]ш=xlpQ$pR oSQR`VP(h`_ Z(`VhWx` <<<`\ s(pQh3 H(PSZ( Pʢ( H8Q(`kp`(N(GH(<`Bd`V33`[SZh\xZ`kh(`kJ`Xp$SW"(v3;;``7 P@(4?`p綀xHZpSxpV`kJ(;;;`` xHpQ@px`QJˀ*.X(vPvvˠxQ; `DP?hQ ( <<`bT # hQ"4hQ#(## #8#(2# 6!<<<`b6z. !(8#####4P4# 4 # # ?pjP`v`< `B؄PJ <<`^3R`(fhjHP(`Z0 (d0H6`pR n$R@R<;;`_pp (ڨJpv8vv` v84 ;<<`b0h]H6x (8 (` Z8(p  $<<<`eW6`hPPx`6v  hB`@`< `B(Uh3 <<`lI `(YES NO SEQUENTIALDIRECT FORMATTED UNFORMATTED EXCLUSIVE NONEXCLUSI< `GVENULLZERO  7.NFIN U24998-1X314 REV.2140 810414 N @.NFIN 3.ENTP.MVW .OPN?.SBT .SST .UFMPINAMRLUTRUNAMR ;;`c`p] p^<7;;;`a~B#4: B 7 :O`(c`a (,pS`nh X%(; `DDpSpV `KH$ZJ(N`n<<`co]ш= xopQ$pRrSQ6R`V`P`(Zh`b (,`V`hWx^<;;`\.Z.`(pQh H(PPS( P^( H8Q(`np`^(N(G; `BH_( ;;`_t`(,xHpSx^pV`nPxQآhQ Ȩ R;<<`do 8 6 ĴP(, 4H : < `D4P7p <<`aZ`^`OZ`^(Z0O `^ (, Z=pQx pRQ<<<`^~ RHRH`p8` èh]Hx(#Z8(`< `C $ 8 <<`d'('pèP`^Z.h .`(,YES NO SEQUENTIAL FORMATTED UNFO<`JKRMATTED NULLZEROKK .IOCN 24998-1X315 REV.2101 800731 @ .IOCNi.DNCN.DSCN.FFCN.IOCM.NFCN`G-H  ;U.FFCN 24998-1X316 REV.2440 841127 N @.FFCN!! 4.DCO .ENTP.MPEN .OPN? EAPOSELOCFEPOSNEWRITEXEC RWNDF!<<`cGp` () (+( Hxxh  &p<<<`_#$&  ڀHxHxD h  (9P`() (Q (HX(ZX(j< `DjBF <<`dFO$DWD$ZPaD&HHH<<<`czjZHxpp (p}D$Z@()`()< `EՀ //`^X  $ D6`D" (/ =.NFCN 124998-1X319 REV.2440 841127 N @.NFCNq.ENTP.MPEN.OPN?EXEC <<`cPp+Pp-`/ () ( H.xx-h+  &p,<`N#$&0,€## .IOCM $24998-1X327 REV.2101 801007 @ .IOCM<<`^yp#hHx`8 PX(  (( hH<`FxZ` `# .OPN? 24998-1X325 REV.2101 800803 @.OPN?D.UFMP))`T;Zh(xh (H8(88) .FOP? g24998-1X326 REV.5000 860619 @+.CSTRC.DUFE..FOP?B.CMW .MVW .OPN?.UFMP;;`]p'x)`(#p(h ( x*H,P)Z(h'Z,(((@+H+;<<`b#(%h*H-8((8h*@ @p@ Z@p*`@-*< `C?. <<``4nBp*CPA 5Z HBp@hC (dP@(R`CH8CC(\8C8C< `E*b `*C  bb .FIOI ;24998-1X322 REV.2326 830406  @2.FIOINFIOB  Q.FRSF.FSIU.FSOU.MVW .UFMPER0.ELIMEM LOGLUPAU.E<<`b+Z`@9pppp8h6Z8p hZ xx h (%h <))`Wd"@p (3 *4' 7`%@7 'p9)"" .FION 24998-1X355 REV.2326 830406 @.FIONF .FRSF.FSIU.FSOU.UFMPER0.ELOGLUPAU.E''`Vp8pȢpp @ppp4' .UFMP 24998-1X296 REV.2326 830406 @x.FRSF.FSIU .FSOU .UFMP`O`W"" r.EXIT )24998-1X320 REV.2440 <841029.1814>" @H.EXITEXIT  S.ERR0.IOCL.UFMPER0.T<<`c `KE ( ( Hp`('p` pXp$`(%hHx<`F#$8(##$FNEWF::RTE_6:5:69:128 644 0 0 42400 5310706702 34010 $FNEWF::RTE_6:5:69:128 $EE$FNEWF +#+#+#E"FST A::X+,FNEWF 24998-12010 Rev.5020 <900328.0028>/SRC_24998/R5020/&FNEWF :@44X P # FSYSU 24998-1X323 REV.2101 800731 &FSYSU::SRC_24998 4 MFSYSU ]/.ENTR .FSIU .FSOU # HpHp@u44XP #ITYPE 24998-1X027 REV.2140 810724 &ITYPE::SRC_24998 4 JITYPE (( m.ENTR .OPN? ((A( ( HH(@֨h44X:P 2FPOST 24998-1X141 REV.2140 810728 &FPOST::SRC_24998 4 JFPOST R%.ENTP .EXIT .IOCL **$p `h@  ,PO*@~>44X1!P ;FLOCF 24998-1X545 REV.2226 820414 &FLOCF::SRC_24998 4FLOCF  FPOSN 74.ENTP .IOCN .OPN? >>X!!hx `( `p A(`A `  >@,J77X_q+4.FFRW 24998-1X559 Rev.5020 900327 /SRC_24998/R5020/&^FFRW 7 =.FFRW 448+.DLD.FMER .FMGB .OPN? FMPREAD FMPSETPOSITIONFMPSETREADPOS FMPWRITE4~~@@ H`(8 @pfHkxg xhHjxI`o(b`pdhf (D@gh(, ((`mg6pd`T0U(DA (98IeTi(??IeTi~^^x@11(^pTpU` (NMeAd(TTIedphpxhe (^h`e@n`l^@_44XP #'.IOOP 24998-1X300 REV.2101 800805 &*IOOP::SRC_24998 4 =.IOOP !!].DNOP .DSOP .FFOP .IOCL .IOCM .NFOP !Pf@/77X:.FFOP 24998-1X560 REV.5020 890727 /SRC_24998/R5020/&^FFOP 7 F .FFOP zz@$SCRN .CSTR .DCO.DFCB .DLD.DST.DUFE .ENTP .IOCL .MPY.MVW.OPN? .SBT.UFMP .XLA DECIMALTOINTFMPAPPEND FMPBUILDNAMEFMPCLOSEFMPFILENAME FMPOPEN FMPPARSENAMEzIDADDTONUMBER INTTODECIMAL LUTRU MYIDADD NLL` p@ x` (2(/ (/h (3  (/`@@@ (.AA 0(/OLNESCUN=(2`AEXNOUP*(2x 0ASEDILFFAPBL:(2xBH H(\`(2AZENU7(20h (jA (pFOUN9(20p`(((hʂ$` (2 (hʂ"`(2h(` (2A h` 11(2hʨ  (  ʈ `(21II&&=p@A@p@D0шp`@0Lp`ʈp`p(EIWTnn.01::SCRATCH HHT:@@Ԉ@ըhʂ$`X(2A Ỳh (p((HHP((Y{A `(2 $KE` P&KAA ("`p8  @p('(D(Ex@HHJx`0A50DDh0A(<<A0X1(Dh@P0( `B@(P `pˈ@Jp SW<<5x`h˄HHGp`&p-h*x``@%x`ʂ$p@ `&hBX`x``(PBh  `Gp(+`(h (h (`HHAp(1` HH @K  (1 (( pA7Y{pÁC7)͈P(P(҈P(P(PP(()(RhX()h`"(h_==X()8`NPO(hHMx`XP(+`p}(hX()hX&()X(h&xxx(J(p (8`(h` (+`hHH`Q( xwr fSC> &&R43/! o ctc o& ssu Vrx........&DHH o  .::0 h(`C(&` (z` XC(vhBX(vh7A($u7Y{@`@Pƨ `(&`BPA ($ ``(+~~vCCphNHPQ PQx h x@`ph x(hHHJ@X(A ǨhHGx8Ȉ(8p@x` h~`77@X(28 H ` ` `   H(x p hX(hH `@(`x"@%@ @J@ @Ih @ h H8 ee33`(2hˈHhBX("@h ( ` ` 8@5 @5 `(2`6 @re Y @ ={  @  @L @=\55XP $.NFOP 24998-1X304 REV.2140 801020 N &*NFOP::SRC_24998 5 N .NFOP **).CSTR .DUFE .ENTR .IOCL .OPN? .UFMP LUTRU NAMR*MKKx`e (h`h ( AUNA(`cEXNO*(A0SE(0ZENU7(0h (BAFOUN9(0p`(e KDD(ih&`e ( ([Wh`f (Ӏh =Hc (p(LHa d(| b  `g(=xp$p`'??cP(`(`p`c(``~p (LHbHaP(i(Lpx`h@X(8 H ` ` `ʀ  H`Sh `Ո(   @y944XP $ .IOCL 24998-1X305 REV.5000 860619 &*IOCL::SRC_24998 4 1.IOCL w.DNCL .DSCL .FFCL .IOCM .NFCL a@ 44XnP $.FFCL 24998-1X561 REV.5000 860620 &^FFCL::SRC_24998 4X3V.DFCB .FFCL 88 .CSTR .DLD .DUFE .ENTR .MVW.OPN? .UFMP FMPCLOSEFMPDCBPURGE FMPPOST 8tEEA`N (GAKEDEPO1(GxK((`KPQ  @ pMxLHOx2hKXQ(=P PQ(5A32C(:92ICVA2ICYE??C@R p(\(\VHQxp@T@pHUH Q@Hx(88 (p`hHT@SpJ`hJx88V 8(m@Hp` V@h55X!P $.NFCL 24998-1X309 REV.2140 810728 N &*NFCL::SRC_24998 5 9.NFCL  .CSTR .DUFE .ENTR .OPN? >>+=!!A` (AKEDEPO1(X@>@u44XwP $(.IOIN 24998-1X310 REV.2101 800731 &*IOIN::SRC_24998 4 7.IOIN ˏ.DNIN .DSIN .FFIN .IOCM .NFIN b@T44X|4P $3.FFIN 24998-1X562 REV.5000 870127 &^FFIN::SRC_24998 4 9.FFIN cc- .DCO .DDI.DLD.DST.ENTP .MVW.OPN? .SST .UFMP DECIMALTOINTFMPCLOSEFMPFILENAME FMPOPEN FMPPARSENAMEFMPPOSITION INTTODECIMAL LUTRU c9GG`pPA[[[[[(((( ( ( (`(T`S (((pQA ?(C[E`RWGIIArEMQE_Ac䀈h (ypQ@` (>(pNh xOO(hOHH@A ΀(hOHRxO8N(`A( p(ˆAh`@9DO[( ( wFF os x㈈HpQE(hOxHHxN*.X([[[hNDhN ((hN"9hN#($($DD( (8(r(7( 6 (8(((((9( ( ( DO8OpX`RArO Opp[8[r[`p[pdhII8drdpdhPH;x(}8(y` 8r(prAxOd h`刀X`p6[ h‚## ( @  @#JJ"55YES NO SE((QUENTIALDIRECT FORMATTED UNFORMATTED UNKNOWN EXCLUSIVE NONEXCLUSIVENULLZEROJ@v55X-UP %.NFIN 24998-1X314 REV.2140 810414 N &*NFIN::SRC_24998 5 A.NFIN ,, .ENTP .MVW.OPN? .SBT .SST.UFMP INAMR LUTRU NAMR,HH`p]Ap^<7: B 7 :O`(c`a (,pS`nh A%@(pSpVH J(N`nw{]AAш=xopQ$pRrSQR`V`P`(h`b (,`V`hWx^.@`(pQh H(PS( P^( H8Q(`np`^(N(GH_(.GG`(,xHpSx^pV`nxQhQ ȨR Ȉ8Ȁ 6 Ĉ(, H : 7pBB`^`O`^(0O `^ (,=pQx pRAQRÈHRH`p8`èh]Hx(#8(` 8NN@'..('pÈ`^.h .`(,YES NO SEQUENTIAL FORMATTED UNFORMATTED NULLZERON@&&*EXIT::SRC_24998 7I.EXIT EXIT.ERR0 .IOCL .UFMP ER0.T LLC)) KE( A( @p`('p` ppA`(%hHx$8(@L@O&m:::~~' .CSTR 88.DFCB T.DUFE 88.EXIT ?.FFCL T.FFCN 1'.FFIN "!.FFOP S.FFRW k.FIOI :sr.FION <jr.FOP? 88.FRSF > ~~~G .FSIU > .FSOU > .IOCL T*.IOCM 6 .IOCN 0'4.IOIN !!<.IOOP LE.NFCL .NFCN 4g.NFIN *@.NFOP 5.OPN? 76.UFMP > > ~~~@EXIT?FLOCF HFPOSN HFPOST @!FSYSU JITYPE ?NFIOB :sr.NFCL .NFCN 4g.NFIN *@.NFOP 5.OPN? 76.UFMP > > ~MSGSNLWRITERELSTR ,FMPCLOSEFMPREPORTERROR+FMPENDMASK)LISTTHEFILE (REMOVEFILE'MOVEFILENBR ~yyuCASEFOLD&SCIO$GETFILENAME #FMPINITMASK "WILDCARDMASK!CLEARBUFFER .LBPR LIMEM DECIMALTODINT TRIMLE%SRQ*P::RTE_6:5:2:58 644 0 0 1000 5310706704 32714 %SRQ*P::RTE_6:5:2:58 $L:%SRQ*P +#+#+#4FST SRQ.P '59310-16005 REV.1806 780110 WEXEC RMPARSRQ.TTRPNT::`]`@"&h 0p`p`%pP(88(#`P@$(: `E`"? "c :$ FMP returned has already been reported by FmpReportError and "$c :$ the cursor is left just after the file name. The stating period $ c :$ terminates the error report sentence from FmpReportError. c :#4 '. Cannot do accounting.' %DVA13::RTE_6:5:3:60 644 0 0 1400 5310706706 32501 %DVA13::RTE_6:5:3:60 $P<%DVA13 +#+#+#v 8FST !DVA13 91200-16001 REV.1649 -- 761124 @ouCA13 IA13 ;;`Z4py(m0{ZP(.`0}p p$p(0p'0@p* ;;;``p+ p#`y0zЅ0~p)… @ƍPXZ `y0~pj@; `DY7:pu0pl0 <<`_>pv pk poZ (o(R`)(R`p6 Q  (\0(_ <<<`ba]Z(b0!0 (j (h0 !0(j 0@`@а |0@< `Ea@ ..`XcD P ((Ш8.%TVLIB::RTE_6:5:16:60 644 0 0 10000 5310706710 33425 %TVLIB::RTE_6:5:16:60 $T<%TVLIB +#+#+#<>FST (( CHARS (91200-16002 REV.1649 -- 761124 @CHARS 8.ENTRCH#R  ;;`c%%%6p$&`p$%"ڀ`$`'pppp; `E#% ##!! *?PNTS 91200-16002 REV 1648 -- 761124 !@PNTS  .ENTRIFIX POINT <<`_1>Ep`p)`GpF`ApCpB5p@50@ZF8(#8C<<<`_Ʃ(#8F8B(8B*HBZ`(.(`=p`DpphH?x5 >< `F`G> `D%D EH DD!! TCHAR 91200-16002 REV 1648 -- 761124 ! @kFCH#R CHAR  s.ENTRDI[T VECTR[TAB ;;``p$6Jp`ppp(ZMppSp;<<`_ (*MpSp8`6p8P8`5!h P(/ @P< `Em ?P(/ <<``9DPQ(UPT8S(Y(? `S@OpS`Q @h L6pN<;;`^dZh@6pRhR8R5  xJp ӶxK@@Kp xK6pp; `C8(h8 66`_(/`p`ppppBp$$P6 *[TABL <91200-16002 REV 1603 -- 751222 @yDI[T [TAB D <<`n 0@P3` 000@0 @' +0- 990A`DpJ0Q`T`Z0`c`l`-#0r0u xPzp@p`@@00@<<<`n*.P0 00P<@``p0@@`@P@0 00@E<2 ;1 ;2: <2 < `DҔ\ <<`n2`"=9 A2*9A9 ;qQ<a;a#13:&b!=<<<`nP*Y;::4+b ;C:1 9 1< `DQ: = <<`n2s"D:,9!r9c$+!;3D!V!;3U!:44+<<<`n1|Y+c;"j:3$V<2":4:4< `D62:4 &&`\U $*1 9 *:1&   2VECTR >91200-16002 REV 1648 -- 761124 @VAREAVECTRVEND  <;.ENTRPOINT <<`bW$6p`pvP6!( P(O(עРp9 x <;;`]9"P(H Dx @:;@p8Z`9h (A@8p98(8p6500@p>`(":@6?`?3;;;`f!&5>,4@6`Q56>`=pAUBV`@09pa`54aV)KK%TVVER::RTE_6:5:39:60 644 0 0 23400 5310706711 33576 %TVVER::RTE_6:5:39:60 $'d'<%TVVER +#+#+#'MpPFST 1TVERF 91200-16004 REV.1649 -- 761203 @TVERFCHAR ERASEEXEC POINTVAREAVECTRVEND VIDLU<<`a?  pZ0ppp  -0 & `  Pٶ('P(`  NP( <<<`\Z!` P ('Z( `  PٴZ(6P( ` P (6( `  Npp` < `C=X(B <<`hx@؀@p$H JP 70V $Z  ` P P(^P (J xe &k <<<`cZ h$  ` P (sP (_ x`(p $G$  ` P (P (y< `D   <<`i&U`( 0 &`( "p$ $  ` <;;`YeQP (jP ( P( SP( :P( ¶P(P(LP(P( P( P(JP(P; `C-Ѷ(P( <<`jԢP(yn0 `($ z  d& d$z  d0$z  d<<<`m$ z  & d(*$  d& d$  d0!$  d*$   d`<`Byu+h <<`k\ -`p 8$   d d6B$   d d6L$   d d0P Y $  d d<<<`iX6c$   d d6m$   d d6w$   d d6` @p $  d< `C^& d` ;;`eg@p $  d d6`h `ݰp  $  ` @p $ d `;<<`hb@ p $ ] ` @p $ d 0 $  `@ p $ + < `Eф <<`i$+ $ + 6` @p $ d+& ` @p  $ $ d <::`h`@ p $   & $  `@ p $ & '$ d : `CEy'` @+p <<`i+*2 $ :$  4Z`+@ p F $ N$  6` @+p  Y<<<`i6S$ 0a $ `@ p m$ 0u $ `@ p  < `E%|$  ;;`akX $  h `p `!p`ph ȶ@ 88 ( e4` ;<<`ep@ p $    d6` @p $  $ d d` @p $ d` @p < `FBDŽ   <<`k$ d d$  $ d d$ + $ d d$ ; $ d d$ J $ d d<<<`i2 $]  d d  $p  d dX`(.$  $ d d$#   d< `DE!& d ;;`i%$-  $ d d(H$7  $ d d?$ d, N d0H$  d d`((X`;;;`_N(ypW$ ( `h @pȴZ`h `pŶ` p i& 8(i8Ƞ(]; `Dm(` ;;`_!qZ(vppn| 0 & `  Ph Ph PhPhPh̠P ;<<`ahx`@Zp X x`(`($ d d N N d68n8nn xn< `CC` @p <<`ih:ڨ(`  p 6 ( $ e ?  *-08<i<<<`n;kn{~3NO< `E YEGACRSEPO <<`nLOERFLINBALUMOTEEXENDERGBYMC"}}TV INTERFACE LU = _ IS CARD IN AME<<<`nr>RICAN SCAN MODE? _DO YOU KNOW THE COMMANDS? _ COMMANDS ARE ENTERED AS FOLLOWS: GA < `DVlGAIN PAT <<`n9pTERN FOR ADJUSTING MONITOR HEIGHT, WIDTH, POSITION, AND FOCUS. CR CROSSHATC<<<`nH PATTERN FOR ADJUSTING MONITOR LINEARITY AND PINCUSHION. SE RECTANGLES IN < `DTHE FOUR <<`n>: CORNERS OF THE SCREEN FOR CHECKING DISPLAY SETTLING TIME EFFECTS. PO WRITE<<<`nD+S ALL POINTS ON THE SCREEN TO CHECK FOR MISSING POINTS. LO WRITES HP LOGO O< `D;,N THE SC <<`nDx0REEN. DE DEMONSTRATES ALL FEATURES OF DISPLAY LIBRARY. ER ERASES THE SCREEN. <<<`nb^ IN INVERT THE VIDEO POLARITY ON THE SCREEN. FL FLASH ANY SPECIFIED PATTERN. BA < `DCOLOR OR <<`nq GRAY SCALE BARS. LU TO ENTER A NEW TV LU. MO TO ENTER A DIFFERENT SCAN MODE. <<<`n EX EXITS THIS PROGRAM. COMMAND? _TVERF: STOP 0077IS THIS A 1 CARD SYSTEM? _ WHAT COLOR?< `D?@[\]^ WRITES IN FOUR DIREC<<<`nTIONS MULTIPLE CHARACTER SIZE SIZE 1SIZE 2ETC.VECTORS IN 8 DIRECTIONS # THE PR< `DT ESENT SC <<`nāREEN SHOWS SOFTWARE CHARACTER AND VECTOR CAPABILITY. ALL OF THE CHARACTERS IN THESUPP<<<`n+>LIED LIBRARY ARE SHOWN. # CALLS ARE, ALSO, MADE DIRECTLY TO $VECTR, VAREA, POINT, ERASE, < `D}l& VIDLU. <<`nCp$ ALL PATTERNS ALLOW FOR SCAN MODES.$ THE SCAN MODE YOU ARE NOW USING IS$EITHER THE EUR<<<`noVOPEAN STANDARD SCAN ORTHE NON-STANDARD SCAN.%YOU ARE USING AMERICAN STANDARD SCAN. (YOU < `Dl5HAVE SEL <<`nECTED THE WRONG SCAN MODE!!!<<<`n < `Dt, <<`nS-0|| |8|P|h|||||} }8}P}h}}}}}} 88PPhh <;;`ccd^8PhhP8 &>>nmq `ph` `,Zp`* @ 9p`+ @ 9p; `Cl `p <<`\  x` ʶp` Op ` pɶ`gpf`iph`Ƕppfh@@ 988(<;;`[& (8f(` p8 ((`f@ pf8h(` Op 8((8f8h( x}; `E  x}` `J[RZp`((X;;`` n  & h`  ` p 4` ` Zp 5` ` p 6 `pp 0;<<`\}* 8 MP M( @( x  &h X N( X ( X ( X ( H e( H( H ( < `FJC pxwx <<`^ Z `pȢp 08ȶ NP N( ( x  !6h X M( 0X 5( ,X 6( .X 4( ,<;;`c5 *H 7( H 8( HZ( `((Xn =$ A  I$ d d N N d4Z`((X; `EL| M ;;`c} Rn V$ Z h` P ` Qp h` 9 ` Rp l x x  x xP`;<<`_ u ((X xZp h x @ wp @ wp  x x`  M׶p `  Np $ < `F 0 d <<`h${ $  $  0 $  x"(Z)_h O` 8( 8( <;;`m °n  &  $ 4  d d0 > /0 & -$ d  $ & , d &  %$ + d  ; `D+  % ) <<`nT $ d  $ $ ( d &   $$ ' d    $ % d$   $ d  0  "$ d   '<<<`n/W !$ # ! d 0 / 0 !$ d $ 7 d &  ? 2$  d  G *  $ d O$ +   < `D+ O W (  <<`nC S$  d$ _ )  &  g +$  d o  $ d w$ '  d0  , $ e d <<<`n~ $  d0  $ $ 2  &  .$   d  $  $  d < `D$;    <<`n) $  $   & d !$  d  $ d $ &  d0 3 $ e  <<<`n $ 2  d0 1 $ $ 3   e&  $    $  $   d < `C `( ;;`m (X$'(BMOUW[\]`fhjlmopqrtvwxz|TV INTERFACE CARD hm;<<`n ?hnhohphqhrhsflfmfnfofpfqdldmdndodpblbmbnbo`k`l`m`n`o^k^l^m^n\k\l\m\nYoXoWoivhvkza`_WyVyUy< `E,# m[}Z}Y}X}W} <<`n, rTqSqRqQqRrQrQsQhPhOhNhLgKgJgIg=d< `Dv((h  <<`\P(P?PZP<((8i(`+(Z _<<<`\'h@hCGPGZ(L P(L`5 ` hx< `C4(vhJ <<`b(7hK5_ _@A J 0A(\GPG(g`FPF<<<`ZY(ghH(ihh`  `(hIZ5'`phX< `Ccs(_ (_ <<`[\vh (`A(BPB(`PD(PE(+(A(`(`<<<`[ ((+`(.P(nP?(PE(P Z((53@< `D/( ;;``6L\P(( 0߶`p( `PP<((`5!ߠ;;;`[xж (`@P(ڸ(8(pRhO(n``E`7` ; `DEPh <<`aֲ'ϨZυOp=ZpυOp`ZϨ``hElP?@ 0<;;`^PP`&0` 0Z`0D`( (& Q @00Z'`h; `CY.HX@0 <<`_1` 0A` `?`BPPC+(: 1``^`P P8(V<;;`^yPHD H(N ԃԀ(P`_ڨ_'`E`F; `Cn`' <<`\q`Gpi 8i (s'``Z``h<`ILA(;;`a8&ucGCJ` 0ڨp` hh`;<<`^O`P;XpihE`(`(`i< `Cض`P <<`]۶ШH``E h` څhX(`(hXPh <<<`[877h2( `?`hiXp(h%+< `Ch5 <<`d)h(! Z @ 730%@b4@*<;;`Z:@0-p0p;pp 9p :pppp04pppp05p:pp&; `DuTpP2 ;;`[X@p p6ph8xih 8i(f2pP2(x(};<<`\HsZ ((}&(;`(}(;P(`< `D( `Te ((to * ''* * be dynamically configured during the boot process. Thus the * ''* * system console is not configured into this generation answer * %ATRAN::RTE_6:5:12:60 644 0 0 6000 5310706717 33537 %ATRAN::RTE_6:5:12:60 $  <%ATRAN +#+#+# 8FST "" ATRAN w92059-16013 REV.2540 <850827.1113>"@!ATRAN8.ENTRREIO EXT ENT NAM ;;`aZ@po@pnp `p@ovp`up `tp p ; `Nq2Z`(ipmZ` @osp`rP(@(H `IHNo Allocs allowed <<`d)@Fp6q`` (^P (O(VV &\$ p (ed  <`H̞dZp 8 8m(7` p(F `Gp? pp 7ENT 92059-16013 REV.2540@ENT 3l@.ENTR.CPM REIO OUT `OP@77`^/Z/@/pZp.p*`Pp+0@p))(](]`@)p*7""`YaOldre: Common block name truncated to 5 characters"<<`bMS26`0@p]24P)0@ڂ(x(`00`*@)pp,`<<<`^o(p`+@0PH`+Zp+008,8(q0@*0)((`p<`B4)(''`RO(`p`pp$10@(0`.3'`J   !NAM S92059-16013 REV.2540@iNAM  .ENTR.CPM OUT  <<``u4@pL@pKZ@LRpQ((`Qp`N@KhQHL<;;`]I!"Zp`(8pJ`Q@@KhQHPHL88J(+`M@KhMPHKpHP; `CO?0OH `FRtB$F `FM  MM HEXT 92059-16013 REV.2540@EXT 4l@.ENTR.CPM REIO OUT `OP;;``0Z0@0pp/`p-p,1@Pp*1@p++(c(c; `C(P`@+p, ""`YaOldre: Common block name truncated to 5 characters"<<`b6SY36`1@pc34P+1@ڂ(x(`11`,@+pp.`<<<`^vu(p`-@1PH`-Zp-118.8(w1@,1+((`p<`B4+(((`R؊(`p`0*p&2p/1@(1`/4(`K   )OUT 792059-16013 REV.2540@}OUT  3.ENTR.IDLP ::`^H"@p2`5@2p`6p4(!p1Z`@2@p881(`3:`N"P@2h(,p` `D`3 33 * 1KK94204-18013 2540 0101 &PCHSC FC0019 RW/R /B85_DATAFILES/A07531 * 1K%MACRO::RTE_6:5:50:128 644 0 0 31000 5310706720 34340 %MACRO::RTE_6:5:50:128 $22%MACRO +#+#+#2{FST ==XxBtZȘ MACRO 92059-16014 REV.6000 921031 Macro main /SRC_92059/R6000/&MACRO =NN0DNITM iDNITX EOP EOP.1 EOP.2 EOP.3 0EOP.A EOP.I 0EOP.P MERRRPASS# N``;#CHAR .MVWBLENBUF40 DNIT1 DNIT2 DNIT3 DNITA ERR.1 ERR.2 ERR.3 ERR.M EXECFMPOPEN LOGLU MDNIT SEGLD TRMLU XDNIT `fHrph`6@@3pu`h. As!$/A"g Bad segment: T.CC+ `L( 4MACR0 MACR1 MACR2 MACR3 MACR4 MACR5 MACR6 MACR7 Ip`@[0p`M8`[ b  `(q@b qi @+AAXFȘ GLOBM 92059-1X014 REV.6000 921031 Global variables /SRC_92059/R6000/&MACRO Aj#CHAR #DISTINCTLITS #LINE P$COLN$LINE .ERR?ASMB ?NAM?NEGABS.C ALCHD BATAB BLEN BROKN  BSE.C "BUF40 CDE.C COFC||OCOL  COM.C COUNT qDATEA RDEBUG DFALT SDID3DRECDEDCBEMA.C EMADA EMAPG  ERR.F ERRFN FATHR FFREE  FIRST |FMP?|}}FOUND FREEGATVI.LEN IDCBIFILE INEST IPOSITION IRECORD dITALU LFREE  LINELINE# LINKLITS LLENQLLINE LNODE }{{8xLRS1LRS2ULSTFG M1DCB M1LEN M2DCB M2LEN M3DCB M3LEN M4DCB M4LEN M5DCB M5LEN  MACREV2MACRODATECODE ~MMASK MNT {TMODCOUNTMSEGS MTYPE }NAMFD NEXTD NGATV NMDTNMNTNOREL NRSTK NSIZE NSTAK ]OPT.A ^OPT.C _OPT.F aOPT.I YOPT.L XOPT.M }}FVOPT.N bOPT.O [OPT.Q \OPT.R ZOPT.T `OPT.X WOPT.Z PAGE# PCPHEAD PPC PRG.C PTPC{PTYPE RCUBED? 4RDCBS.LEN zSBAD? }xx0SBHD? SDCBSFILE SSTRT SVE.C TDCBTPC fTRMLU UDERR UPONE XRFHD p^DATE ^FMPERRFN ^FMPIFILE ^FMPLSTFN g^FMPNMBUF x^FMPNSFILE^FMPRELFN ^FMPSFILE ^FMPTFILE ^FREE ^HEAD ^LIBD ^MDCB ^MLIB ^MNT!^NBUF ^NEXT ^NTAB c^OPTR ^PCS^RBUF ^RS1%%d^RS2^SBHD `^SHEADHDG^SNR^STBL %tt[WWt  GG33((Gq]] D @X @ @ KKC55 @$ K88&& @Macro.err::system  8 M O Q S P    &&6N \&ۋf^^@ @  @ Z 0s`` 7 PAGE# Head goes here, filled in by MACR0 6000 921031 : No errors total mmԈ$OO  (46 chars max. Symbol not referenced)  (30 chars. max.)  s'muy``'  88''   8@ IIXB-Ș! INTOA 92059-1X014 REV.6000 921031 Integer to ascii conversion routine/SRC_92059/R6000/&MACRO I M INTOA J.DIV.SBT   EEY !!(p`*`xh x )H+ 8 (h` @,p ` P (  -0E@n.KKX3Ș! "ALPHA 92059-1X014 REV.6000 921031 Sees if a character is A-Z, a-z, or . /SRC_92059/R6000/&MACRO K :ALPHA BATAB //Hp@@ 8`/@!@BBX8Ș" FMPER 92059-1X014 REV.6000 921031 FMP error reporter /SRC_92059/R6000/&MACRO BERMSBUF OFMPER SENDMS|| .CFER .ERR.LBT.MBTEXECFMP? FMPERRORGETERLN INEST INTOA LINE# OPT.A OPT.M SBAD? TRMLU ^FMPERRFN ^FMPIFILE ^FMPLSTFN ^FMPNMBUF ^FMPRELFN ^FMPSFILE ^FMPTFILE |kkONN"M.ERRMacro: ' kXP>>H8xNXx  xhIp|HD`NhHP@(c@h @ef(o(o(q((((((h|X(@X(}`H(}p (`(`ψ(h`(PhMH`@HM``GGh(POpGAKG    /GOO],, |hHP(HpH HP҈(`@MO Macro: O@ѝEEXeȘ" MAPUC 92059-1X014 REV.6000 921031 Maps strings to upper case /SRC_92059/R6000/&MACRO E EMAPUC n.LBT.SBTALPHA MMASK  { D @@F@dT@@dp`p ([Pc(TDxhHxh8(Oh`bhE .@@4IIX-Ș# !POLL92059-1X014 REV.6000 921031 Sees if a swap chunk is swapped in /SRC_92059/R6000/&MACRO IPOLLVMAFLAG ^CLOC  GTCLK ^STBL  UU''pp8Hh('P( ( @+P,(p@*ph (" H`8`hU@HCCXpKpȘ# SWAPO 92059-1X014 REV.6000 921031 Allocates a swap area /SRC_92059/R6000/&MACRO C Y SWAPO 22 }9.DLD .DSTDNITM DNITX FMPER FMPSETPOSITIONFMPWRITETDCB^STBL 2   CCH`p p  @m@A 8  (H  @m@A h (-@(7`A(FA  p (Fh (F@ @m (FP(F (F(-8 (`(e @o"Dx;;QpX hlA(ia n` hl(i`  D@;@u5DDXAȘ$ SWAPI 92059-1X014 REV.6000 921031 Swaps a chunk into memory/SRC_92059/R6000/&MACRO D Y SWAPI 99 0DNITM DNITX FMPER FMPREAD FMPSETPOSITION GTCLK SWAPO TDCB ^CLOC ^STBL 9 ?   ``33px @@"Dx p HAp h<(9'>`h<(9`@=p h H `X h<`?D`@ *+HHXR]{Ș$ FINDM 92059-1X014 REV.6000 921031 Finds a node in swappable memory /SRC_92059/R6000/&MACRO H < FINDM ;; ? .CBT .DLD .DSTFATHR FOUND MTYPE NSIZE POLLSSTRT SWAPI ^HEAD ^STBL ;V AA@px`D@  ( H@x HphHxX(l@p hHz x pP(N@(@`p`h  (;(=`yp(X`p`h  (K(K`y\\IL//p(Xh `A (e(W`y@p@ J(q (`@(#`pH` x p xH xhH`p \@v@JJXx?{Ș% !PUTIM 92059-1X014 REV.6000 921031 Reserves space for data nodes in SA. /SRC_92059/R6000/&MACRO J RPUTIM RR <.DLD.DSTDNITM DNITX DREC FFREE FMPER GTCLK LINK LNODE POLLSWAPI SWAPO TDCB ^FREE ^HEAD ^NEXT R     \\i--Hp@ p@("=` @pHA`hw`(1x@HxH (- (-=(1Hpx8HxH @u`@\uu]V>==DHh X (RHzx (Rx Dh X (Ph Hzx h ([@Hh xx  ([`yhurp hw@uHhHvh xh `w`=D@u@c#IIXbȘ% LINKU 92059-1X014 REV.6000 921031 Links up a new node to its father /SRC_92059/R6000/&MACRO I =LINKU .DLD.DSTFATHR LINKPOLLSWAPI ,,Ix@xHp@@pP,@p??XȘ% SDBIT 92059-1X014 REV.6000 921031 Sets dirty bit /SRC_92059/R6000/&MACRO ? 2SDBIT }GTCLK ^CLOC MD@` @\~{>88XȘ% GTCLK 92059-1X014 REV.6000 921031 /SRC_92059/R6000/&MACRO 8 GGTCLK ߺ^STBL 22F8`Hhx (H58( `5p2@be@@X4Ș& GETERLN 92059-1x014 REV.6000 921031 Get catalog line/SRC_92059/R6000/&MACRO @ "GETERLN 00 C.DFER .DLD.DST.MVW.SBTEDCB FMPREAD FMPSETPOSITIONINTOA 0  ߔAApp xW xH`(8f"`Hh|Ah (Qh|@(?H}(9  (L@hHf"HP(T`~P(Qp(8`h"Hx AWHW6``HHd_**H` 8""AAdo!cA(x w!e`!h8ff P >> lH@ST.MVW.SBTEDCB FMPREAD FMPSETPOSITIONINTOA 0  ߔAA%MACR0::RTE_6:5:40:128 644 0 0 24000 5310706721 34125 %MACR0::RTE_6:5:40:128 $((%MACR0 +#+#+#(7FST 77X]Tȗ MACR0 92059-16015 REV.6000 921027 /SRC_92059/R6000/&MACR0 7 8MACR0 ~~D#CHAR h#LINE i$COL$SCRN .CBTq.DIV|.DLDz.DST;.ERR.LBT.MBTn.MPY.MVW.SBTy.SFB(.SSTp.XLAj?ASMB -BATAB CBUF40 wBUILDFILENAME TCOUNT .DATEA )DAYS70<DEBUG {DECIMALTOINT~zz1DFALT =EDCB8EOP.I 9EOP.P ERCRIDsERMSBUF EROLDNAME EERR.F "ERRECSIZE !ERSIZE((EXECUFIRST FMPABSNAME FMPBUILDNAMEFMPBUILDPATHFMPCLOSEuFMPDEVICE +FMPER FMPINFO vFMPINTERACTIVEz~FMPIOOPTIONS FMPOPEN FMPOPENSCRATCHFMPPARSENAMEFMPPARSEPATHoFMPPURGE}FMPREAD FMPSETIOOPTIONS FMPSHORTNAMEFMPSTANDARDNAME rFMPWRITE FPARM ,FTIME tGETERLN II.LEN GIDCB IFTTY 0ITALU LIMEM ?LINE@LINE# >LLEN$LOCALMS LOGLU 3LRS14LRS2gLSTFG JM1DCB KM1LEN LM2DCB MM2LEN NM3DCB OM3LEN PM4DCB QM4LEN RM5DCB SM5LEN 'MACREV&MACRODATECODE *MAPUC NAMRfNOREL [OPT.A ^OPT.C {{$_OPT.F aOPT.I YOPT.L XOPT.M bOPT.N dOPT.O ]OPT.Q \OPT.R ZOPT.T `OPT.X cOPT.Z :PASS# /PHEAD ARDCB#RECADDS xRHPAR FS.LEN BSDCB%TDATE HTDCBTRIMLEN 2TRMLU WVMAFLAG kXRFHD {ii3j ^ERNAME ^EROLDNAME^FMPERRFN ^FMPIFILE ^FMPLSTFN ^FMPNMBUF ^FMPNSFILE^FMPRELFN ^FMPSFILE ^FMPTFILE V^NBUF e^OPTR 7^RBUF 5^RS16^RS2m^SHEADHDl^SNRiODD `$hDA G`$ 5xh<`$ xl6Dhll `$xmD6hmAm+!67`7@(hW (:@(B8T@(B8T@(DhFHxFHxI(/@m(:D>>Dh6xU`Tnm@6p9hx8@`'H`98888p988A8(M _hHPI(d(iAh$i5 DPo(Pz(`pXhPPPIH`PHpYh>>`Q(PxPy(p9 (J( Ao PJ(((Jp qF@@{DpoP(hEDp@(  =E>P(̀P==( =E>((h:X(xpA qF@@{p(h$`;p(pr=Ek8@`E(hA=E`Eh`9pp;;(<(`F qpFA  BEFhC`;p((%h=tApr!BEsH`EhCɈ8((p:JJ p`h.D%)B:Dp&`F@pFHD`I@pI`KD@pKpMpOD@pQpS`X(p`F qApF _BEFP(An"鈀h`Xo( """"(X p0y==AuB(vB@p0( BEF`0P!(P (P(P(P(BE`E(w ,"(h PIxf@xT99ClHHpDhH7`IHH`NӈӉ( GCDVPZ(Pd(PI(+PN(+PW(Pc( P[( Pf(P`()Pb(Pe(PY(P\(P^(P]( FDBBP_(%Pg('PX(?Pa(?(8<(?8[@`\((?D8\`[(8_HD``(8``_@(`dp]@HHpY(,8Z(?HH8^(?8a(?H8X(?`dpYp](,8b(?8c(?8d(?pgHPU(3H(?Pd(?P^(;P](;(!ZZ<--@Hp] pY8ۀ@`XH(Sh`epۀA8ۈ8(H`(8AA`[H(Q8\(QPIXPN(Y8XXPI(a8XXZ/jGGo~h7x`D@VpiDHVH7x`i(:`wy((:`JhG ((Hh8hۈ((H7xVA((hz{@Eh`E>>( Xh(8m(xhH(HPb(P](`p`nphHPI(Hx|`A(888܈((hx`@~@`7@HpVpQ8j((`Q@Vp`p(H@@8k(x5HJp3`>Hxh(x8lD(x6p4(p>@(PL( ((PI(PN(H8>8i(x@`7@pVH`>hH8>8i(#(@(PLH()(8>8i@(-(8X/CC(8PL(3(7H8>8i(#(8`0A(GrCBE# @`E A}MBE? (Sp5@p> ([`6H`I@`E D8@`>(:(hiH*x5`(t`hDPI(l~r>>(:(`(({(h5`((@(x8j `O@-`KH@-`R@-H`S@-`i@-`hH@-`j@-H`U@-`T@-`VH@-`L@-h8xh`hDX((#@@Pi(PM(!(((DC=S F=txA`hA((`AA(܈((pp)(p&(pp(((p`np€(Gh@x`pyӒ??H`x@A(ApD`@[@[hX p%w  ,%"@(hX (n`[(3A AE h(3A~%AE$hɈ`$0p$0AE/DD$hp`[A(NwB7 ,!JAE h8'`X@(nhW (hw]- )A!!eHE#>h `Xh!@hx:(8DpX wH}}os@@EBhhXA (HEh7HE?hɠ`?p7p7HE#>}NmDDhɈ(hP!(h8XhPP(QHh$8;(A@hH`Ah J,`hW`IA`?h@I`@(`I ADqpIw )!??AGE(Ih`@pS`0pVhh (h`>H`>(h`(`p`hj ` 8hxhHPP(,DDpYp]p^pZ@@pghX `^h[ `W(`>p@r~~K55ĀGER`E ɨ+AπBEAӀGEAGEAAEA=ED(9h$(h$8(h$(h$ (h$(h$(h$(h$(h$(~}}:AAh$8h$(h$ (h$ (h$ (h$ (h$(h$(h$(xA x 2$@h+ *IF@]_``- '%} 8 v  v E  QV W ASMB >MACRO  DB?[[n>>  X ^  r  @ [oSS @  MAC " SORW" .COW 6CROWX @RW COTZJRWCTXZTURWCTZ ^SW d"M.ERR ::0 r AB#}}WABCDFILMNOPQRSTXZ[\]d ,&.RS1=&.RS2=,=-1-2-300CSW OPT=PAGE= WORK=  /}@B 77Xpbrȗ TDATE 92059-1X015 REV.6000 921027 /SRC_92059/R6000/&MACR0 7 PTDATE .DIV.DST.MVWEXEC`GG dn 0:.0x(5p@A#ch`eY0 po`fY0 Ah Hm`h@YpjhgH`h H H H`A@  xchq@H @Y55I0 pk`c AY0 pl`ihAA @ @0 Y5.e j791231.23:59 &q @;;X*[ȗ DAYS7092059-16015 REV.2540 <921027.1139> /SRC_92059/R6000/&MACR0 ; JDAYS70 .DLD.ENTR .LBT.MPYCCAA@YU(5PU HZ7@W(5pA7BpB@S!(57pE`DApC`AVhA D Y @hT xHC8C8B()@XP@R .A.xERhEpE.@E7%%CE <m%@ȗ DAYS7092059-16015 REV.2540 <921027.1139> /SRC_92059/R6000/&MACR0 ; JDAYS70 .DLD.ENTR .LBT.MPYCCAA@YU(5PU %MACR1::RTE_6:5:218:128 644 0 0 155000 5310706722 34776 %MACR1::RTE_6:5:218:128 $%MACR1 +#+#+#l FST ((HHXs Ș MACR1 92059-16016 REV.6000 921030 Main module for Macros first pass/SRC_92059/R6000/&MACR1 H 8MACR1 RR7RBREAK CALLC COMMT COPYL DNIT1 DNITM DONE1 EOP.1 FULLSTR GETLN IFBRK INIT1 OPSCH PEOF ROUTE SCANR;;! H(H@(`( ( (((H ((`p `(@( (S;@CCXȘ INIT1 92059-1X016 REV.6000 921030 Pass 1 initialization /SRC_92059/R6000/&MACR1 C LINIT1 }}$ICOL .LBT.SBTCGLOB COL COUNT DRECERR.F FIRST GATVGLOBL ICOLL.LBL LRS1LRS2LSTFG MNT NGATV NMDTNMNTNRSTK OPT.L OPT.Q TDCB^DATE ^NTAB ^RS1} d^RS2 ^STBL   CC &&Dh`0pHx` p` @H(p ` 8 @p ((5&.ERROR 0 8&.DATEF&.DTIM E NC-0 Z &.RS1ac5GGH`p,`"p`p`,@H@p`/p@Hh`HHp4HH`&HHp`p`,D@p`phH`H`4HH`+p`Hp`,@pD`ph (tH`h3(v''`s@(n82h (~`h300S|(`s({`,pDpx`p '.S0@n%GGX<bȘ GLOB1 92059-1X016 REV.6000 921030 Global variables used in Pass 1/SRC_92059/R6000/&MACR1 GV$ICOL B$ILNE Q$OCOL .PCNT .QX?LIBHAIFS? ZARRFG \ASIZE aCALLEDBYDOOPF TCCOLUCOMMT [DIMEN FDONE1 PICOLILINE CINCL# DINCLV uu\KL.LBL JL.OPWLILNE LLSTREMACCL MNOOPR ROCOL_OCTIN SPCOL]PSFLG `SEVER ^STRPT ITTYPE YURDEF GVLABL N^OP O^OPRN u   B M !!PR!@t,GGXUMȘ DNIT1 92059-1X016 REV.6000 921030 Pass1 de-initialization routine/SRC_92059/R6000/&MACR1 G ]DNIT1 ~~g'$COL%$ICOL .ERR).SBT"AIFCT BROKN (COL #COPYL DNITM &DONE1 EOP.1 ERMSBUF $ERR.1 ERR.F FFREE FINDV FMP?FMPCLOSE FMPER FMPINTERACTIVEFMPIOOPTIONSFMPOPEN FMPPOSITION ~llrFMPREWIND FMPSETIOOPTIONS GETERLN IDCBM1DCB NEXTD PASS# S.LEN SBAD? SDCBSENDMSVTYPE ^FMPLSTFN ^FMPNMBUF ^FREE !^HEAD ^MDCB *^NEXT ^STBL l  .ERROR   (COWS a@@D`0@`"(+h%`$p&Dh'x()Dh%)`#A`p1A 8 (TphX(ExCA(1J `ApR `D(Xh  JWFF@( (jP(jP(j@(j`hH(UD88(V`Dp`!@`*@`(@pA HH`@p(uH` (H(hD`0@0(`@h `(5pA""d>  4S"@YxEEXFȘ MACR92059-1X016 REV.6000 921030 Processes a macro definition /SRC_92059/R6000/&MACR1 EGMACDF MACR~~$COL$.DLD%.DST!.LBT#.MVW".SBT'.SFBALPHA ALPHN BACKS COL COMMT COPYL &COPYM DNIT1 DONE1 EOP.1 ERR.1 FATHR FINDM FOUND GCOLGETLN ICOLL.OPLINK LINKU ~:: MLNODE MAPUC MTYPE OPSCH PAPRO PEOF POLL PUTIM SCAN SUB? SWAPI ^OP :   (DDp`up p ` @ ('hHsX(*`Dhp (-` @sp D&cp(<`D(-h`Hx(B`Dh`}(K`p@h!(T8(ZD!(T8(M(Z`Dh`}XYCC(K`5p @ p (fp`ppDh!Py(qPv(q`pDh!P~D(|xh"Dx(qPz(p(`(` @rp HDp`h x h (H`h`|H(Kh Dx pssGR<<@`0 h  00h 08h    `5A# Hr`Hrxh (h`#sxh D $%`h( ((D%(sFFpp@p p&HDc8D&`(Dh!P{(焈((Xw8Xx8`ވ@P(Khxh' H5Hs@@x H@rhHp`@Dp`5#`(>p`@H  @p @ vvf%>>J@tp$AA%%ڈ`0(爄hHrx$%(  @(` H @p$%%(`(^`0@(^` H @@ @up$%@p pv99Ad$$H(o`h@Hp`}DD((dc  &.LS\@9@2EEX2Ș PAPRO 92059-1X016 REV.6000 921030 Prepares formal parameters /SRC_92059/R6000/&MACR1 E r:PAPRO tt$COL$ICOL .DLD.DST.LBT.MBT.SBT ASTOI BACKS COL COPYL ERR.1 GETVGTOKN ICOLLILNE LINKLNODE LSTR MAPUC NUMER POLLPUTIM SWAPI TTYPE t   q  N;EEp8ppx7 (Q `8 x`p5`Dp6`p`Hp(^`7@(^`6pHp7`5p`8(^(DphxP((wP,(rDHhxP'(`P&(``/Dh(hDHx(QDhxHxph xnCC`(hHP)(xD@hx(P'(P&(P+(P*(P,(`-Dh(`(h7 p(̀`7(`1Dh(`(`h A h x(hDxxp`@Hp `)ۚFFD@x` (`.hH(`5@%h (h 5H @p`%Hp4`04844h4H$H$`  `( ` ` `@( `H@p4JPA4GG ))D`(JAA`(Q`7(`6ph5xA:`0Dh( &',;\G@nMMXȘ $REPET 92059-1X016 REV.6000 921030 Processes the REPEAT and AWHILE construct /SRC_92059/R6000/&MACR1 M.REPDAWHLE RCALL MREPET }}$COL$ICOL #.DLD$.DST%.LBT(.MVW&.SBT).SFB BACKS COL COMMT COPYL 'COPYM DONE1 EOF ERR.1 EXPAN EXPRFATHR GETLN ICOLL.LBL L.OPLINKLNODE !MACDF MAPUC }DD(:MRTRN OPSCH PEOF POLLPSCAN PSFLG PUTIM RCYCL ROUTE SCANSUB? SWAPI "VLABL ^OP D      r(=( ? E`DpM`p (TNDD`p pApp `(]`pBpp# $` (`=ph@%x@PD(t(x `p@(nh<&x<8>(~((n(`=@5pA(pDHp Hppx.EE (`h@ p`Dp"'p`Mp`p pppHp!DD8'`D(h`DHx(ɀ` (X8X8(ƈX8X8`P(.`(`hHHAxpAA# $@#FF$ $`@hh (鈄hH`?(@Ah@@) `H5xCHHHx`pAA# $JA#$ hHH`C@ `5(C`( p`@H  @ J@p#A$@DDA$(`@H  @J@p#AA$$(`P(np!p` (;`(np`  @ @h (RphH (n#$`(kHxAA@h?(AD`=p`Dp ( ;;Ha(n#$  H@ @8(;# ($ (P({(nX((n;XX..uu ` p`PA(h(`@p@( xx xhBxhX(Hx`A(Ą@`h H@p `HpMX8@`h `(99O##H`h@H p `D`hHH `(n @S\9@"CCX,jȘ EXPAN 92059-1X016 REV.6000 921030 Expands a macro call /SRC_92059/R6000/&MACR1 C@@+bARGH!COLFLG"EXPAN LATVH M.TOP MACL# MLINE )MRTRN TOS @}}!$ICOL $.DLD%.DST&.MVW.PCNT .Q.REP'.SBT CALL? CCOL COL COMMT COPYL DONE1 FATHR GETLN ICOL INTOA L.LBL L.OPLINKLNODE LOCAL MACCL "MCSTA OCOL OPSCH };; ÊPARAM PCOLPOLLPUTIM RCALL RCYCL ROUTE SCAN#SEVER SWAPI VLABL ^OP ;    ! ,P#GGp`(DAA$%D`chxAh`&$% %((8 D`@h @bppxp׀g5p@@dp$%p`(``(lp`@b$%(lpp5j==Hp`pHH`p `p h!(`@ @b@fx@xxH`"p `p(`@(`@(pHp( xp"`ih H `hp#hA ($@p((2 (pp(` &.REP h&.Q n&. PCOUNTx(eMM` (` @H@ A@ep$AA%$A%p Dp#p"pHp`!pDph (AA$%`bp`p!H`(`cpH`p!`h@H '`@@p  @`( `HHp`fp`Dp!`h '`p  `@p!{II@`(8HH(,(!8`(!HH ( (H (!(& HHx`i(p"Hp(h! H(5hxh HDxh x$(Z%(ZP (5X (5%h x@ hA&`Dp$%%inWA%p!pppp ?LS%@s3HHXt )Ș GETV92059-1X016 REV.6000 921030 Gets a variable starting with & /SRC_92059/R6000/&MACR1 H |"GETV ++ .LBT.SBTALPHN BACKU COL ERR.1 ICOLLSTR NIXERR+IIj%%xx`(pDDhx((hx8(@h `'DHh`&Hph`@pheI@BaZMMXqVȘ $PARAM 92059-1X016 REV.6000 921030 Evaluates macro actual parameters on call /SRC_92059/R6000/&MACR1 M a:PARAM ~~ $ICOL .DLD.DST.LBT.MBT.PCNT .SBTBACKS COL COPYL DECPT ERR.1 GTOKN ICOLL.LBL LILNE LINKLNODE NSTAK NUM POLLPUTIM SEVER SWAPI SWQ TOS TTYPE ~  q  8 ,;BB(?8::Ap Hppp:p98:(]p6`9  Hxx` p H`p(H8(p6`(>`@(` D@ h x Dx h XN(r(eXK(XJ(}XI(eXU(XO(~(}BB@p(D8` @ DDh x h XL(XK(XI(XJ(XN(XO(( ((p(p8(`Rh pp6p(`TDh p@(` H@p H (` p pˇBBh9 ( x9(p6H8 Q5@M@ p Qph  ` @A` p `5(` @ @Uh p5@KHHp`Lp JA JJh HJ`  ` CC`6(`H(h HUHp7h `H`(H`7x ` @Hp@p  pxp ('p` @Jp  `8(]@p8h HPP(9(]DDx h x (]`(C(F`S[DDDh `:,?@*LI CCX&8Ș SWQ 92059-1X016 REV.6000 921030 Surround string w/quotes /SRC_92059/R6000/&MACR1 C SWQ P.LBT.SBT 33Hf(pH`pHHp``p8( ``('3@,LLX^Ș $SQK 92059-1X016 REV.6000 921030 Prepares quoted strings for use in pass 2 /SRC_92059/R6000/&MACR1 L "-SQK ''h_.LBT.SBTCOL ERR.1 GTOKN ICOLLILNE TTYPE ' q YYW.00D`\hh (9`]hH`\(;(VphDx`[hHHxhxDHhxP[D(L(OhHx8(C`[DHhx-D`[hx(Q'PY@FGGXȘ BACKS 92059-1X016 REV.6000 921030 Processes the backslash token /SRC_92059/R6000/&MACR1 G 1BACKS 44 aD$ILNE .LBT .SBTCOL CONT? COPYL EOF GETLN ICOLPEOF SEVER 4%%D` pHDh P(P(Dxh Hx(%̀@D( @>mGGXNȘ EOF 92059-1X016 REV.6000 921030 Emergency end of file reporter /SRC_92059/R6000/&MACR1 G kEOF fjDNIT1 EOP.1 (@( @ղEEXLȘ ROUTE 92059-1X016 REV.6000 921030 Processes pass 1 opcodes /SRC_92059/R6000/&MACR1 ESCALLC $ROUTE gTYP29 oTYP30 -$ICOL *.CAX+.CXA..SBT AELIF AELSE AENDW AENIF AIF AWHLE #CALL? ,CCOLCGLOB CLOCA &COL COLUM COMFLGCOPYL CSET!DONE1 DOOPF ENDMC ENDRP ERR.1 "EXPAN (FULLSTR [[SGLOBL %ICOLIFN IFZ INCLU LISTLOCAL LST MACLB MACR'MNOTE NAM1)NIXERR NOOPR OCT REPET SET UNL XIF $^OP [c//;F_  hpx'* (H(4@`(4,,K/x:h`h:+p!$@p!@`8;;,MMF))`,(Y@@h-H%H (YxEHHh%`.8E@(THx%HHp!`8F@F(HHp!`8__8g; xghMVVup//8o;po8pp` (;8xxF(~DH8)(p!`H`h$@Hp!`H(7#("8 2SV@yn.FFXȘ BREAK 92059-1X016 REV.6000 921030 Processes the break condition/SRC_92059/R6000/&MACR1 F 8BREAK ,, .ERRBROKN DNIT1 DNITM ERMSBUF FMPER GETERLN SENDMS,!!I`h@( DDp8H(  !@̞BBXYȘ SET 92059-1X016 REV.6000 921030 process SET statement /SRC_92059/R6000/&MACR1 BwICSETFDARR SET 5SUBSC J$ICOL .DLD.DST.MBTARRFG CKAMP CKBKS COPYL DECPT DIMEN DONE1 ERR.1 EXPRFINDL FINDM FOUND GTLBL GTSTR L.LBL LSTRMACCL MTYPE POLLPSCAN PSFLG SDBIT  STRPT SWAPI ϛ??DpH88HHw(dA;PN( (o`((_.` hE (xFHMx:@(3`(u`;PM(-X(ohFHG`<(_X(o(^h (uXh;XN(E(o@hFHG`$? p5`K(d (c(o(< ICCHpH8`IHpw`pJDppHxL711(0p{xihxh@(Y`nD`@ph (e@h{ (8@A6`i*{(`h%D `p{(AA)hP(h{(=`u(Mc ,j 0n 2p |y I 77&& !&?@LP\fijklmnou{|~@7@g7'KKXuȘ #EXPR92059-1X016 REV.6000 921030 Processes expression in operand field /SRC_92059/R6000/&MACR1 KACDECPT +EXPRsGNXTK uu!.CBT.CMW.DIV.DLD.DST.LBT.MBT.MPY.MVW.SBT?NEG ARRFG BACKS COL DONE1 ERR.1 GTOKN ICOL LILNE LSTRNUM PSCAN PSFLG STRPT SWQ TTYPE u(>>(DhP(1D(5xh@xp>`)p(s+ (@h ('X(gX(gX(gX(gX(X(fX(?X( `@(X`@(|`@('`@('X8x V(>ee^f..(9C`(@P)(m())P(zP(u())Hp `@8++` (;@ V(>s+ ('X(X(X(X(X((@H8(ehh 44phxhHxHHh`xHhX(XH(hx(/hxP(f(/8@ʀp(/D(/hhX((/hHxP((/@H`phHx(fC(/h tL CCp`h`hD@xh (+h (+s+ ('X(X(D(9xhP(P(D(xhHx(s+ (/X()DX()hDHx8` Pʈ(2`P(0p(fD(.`h(:::U8(*(*`P(-(0 HxK(KhH (-hH (-8> `V(>(9:R::S(((((((((ш((((/((((K(P(x(hH (-hH (-pQK(xP(`QP(~P((/@Hhx(f@h(`ph(HxhQ HHRh`V(>(9(9AA@(h@((hJ(@`h(((`h(((`h(((`h(((`h(((P((HP(((@@H@0(h ( (8((@8((@h ( ( 8(( `8((@h ( (8((8((hJx(`>(5@p>K(5P((7x(K}};;(5P((5A`(x(h( Hp(f`(<`(<`(<`(<`(<`(<`(<`(<`(<`(<`hHs+j(>+D@p@HpCh(X)(SH8KK}VFFT`*@((bH`hVAAT(8(8(8VVX(pX(pjC8jjXD(~` H(t (t@h (` 8ss`hHs`@ hHD `hxDDxp hX(44$$  !+Py4@>DDX$Ș AIF 92059-1X016 REV.6000 921030 Processes the opcode AIF /SRC_92059/R6000/&MACR1 D gAIF .. jAIFCT AIFSK ASTAK COPYL DONE1 ERR.1 EXPRICOL SEVER .AA##Hp`P!D(p@ `#p H( ((`#H8(`#@Hp H`"h(:LA@y9FFX Ș AELSE 92059-1X016 REV.6000 921030 Processes the AELSE opcode /SRC_92059/R6000/&MACR1 F =AELSE %%tAIFCT AIFSK ASTAK COPYL DONE1 ERR.1 ICOL%66sf@p`H(`@X( 8H`h`H`(58S6@mFFX,Ș AENIF 92059-1X016 REV.6000 921030 Processes the opcode AENDIF /SRC_92059/R6000/&MACR1 F 3AENIF 7AIFCT ASTAK COPYL DONE1 ERR.1 ICOL %%ZO@p`H( @p8``Dh( 6L%@nHHXȘ AELIF 92059-1X016 REV.6000 921030 Processes the AELSEIF statement /SRC_92059/R6000/&MACR1 H 3AELIF )) AIFCT AIFSK ASTAK COPYL DONE1 ERR.1 EXPRICOL)44n{@p@`(@X(Dp8H`h(D`h794@e%IIXgȘ AIFSK 92059-1X016 REV.6000 921030 Skips past lines in AIF statement /SRC_92059/R6000/&MACR1 IoAIFCT AIFSK ASTAK II!AIFS? COMMT COPYL DNIT1 DONE1 EOP.1 ERR.1 EXPRGETLN ICOL MACDF OPSCH PEOFSCAN SUB?I   )AAp`p`@Dp Dzp pDp (C`H(C(CxX(k`(5X(bX(FhX(=`p(CX(C`@p`(`P(J(5Dp (W@p (5(ZH`h  (5HHX""Hp (C`@ (C(r`P(5`@ (r`P(5`@pp@Hp p `HH11{H(`h @H p `DD(({z`h H (5 347LS1@=\?GGX BȘ IFNZ92059-1X016 REV.6000 921030 Processes IFN and IFZ opcodes /SRC_92059/R6000/&MACR1 G"IFN IFNZ? IFZ BB o@ AIFS? COMMT COPYL DNIT1 DONE1 EOP.1 ERR.1 GETLN ICOLOPSCH OPT.N OPT.Z SCANB  ؕ@` (p((ee  99@`p` (p((Dp D(3p p H@(` (&(&X<(/X=(/X>(((8p p H`?hH(&`@h@Hp `AD@(;<Se@:4EEXȘ XIF 92059-1X016 REV.6000 921030 Processes the XIF statement /SRC_92059/R6000/&MACR1 E ~XIF COPYL DONE1 ERR.1 ICOLIFNZ? ''@p`H( p8``Dh`=LS'@e%@@XnȘ NAM192059-1X016 REV.6000 921030 Does nam on pass 1 /SRC_92059/R6000/&MACR1 @ FULLSTR NAM1IID .LBT.SBT BACKS COL COPYL DECPT DONE1 ERR.1 GTOKN ICOLLILNE NIXERR NOOPR NUM TTYPE IFF@` ( H8p`iH`lhH (`p`h xa8  ((KXc((KXbH((`@@@@@@p`hHX(ZH`D (Dh Pe(TPf(TPg(TPj(TDxhHxPhP (^((Hp DDG''H`a ((`@DDhxhKKXm(ZXd(G((`kDh (D(D&':;S\D@;FFXqȘ PSCAN 92059-1X016 REV.6000 921030 Helps SET, GLOBAL, and LOCAL /SRC_92059/R6000/&MACR1 F }DPSCAN )Y.LBT.SBTCOL GTOKN TTYPE  q rC ZZ+E,,hxa (^Xn(SXo(SXp(^ D(S(GhHHxhxXC(^(^H(ShxDhx`H@CxHhXm(baZ@CbqCCX[Ș COLUM 92059-1X016 REV.6000 921030 Process COL pseudo op /SRC_92059/R6000/&MACR1 C ICOLUM ))$OCOL COLFLGCOPYL DONE1 ERR.1 GCOLICOLMACCL )&&9`  (8HDp``Hp`hH(S&@;JJXLAȘ !RCYCL 92059-1X016 REV.6000 921030 Recycles nodes in swappable memory /SRC_92059/R6000/&MACR1 ((J 4 RCYCL ##%.DLD.DSTLFREE POLLSWAPI ^FREE ^NTAB #ffz 77A p@8 `Hp@p@A`hH?P@(4`(4DhX(,`D8`p@H@?x`HA@pAA f@1AAX`\Ș OPSCH 92059-1X016 REV.6000 921030 Pass 1 opcode table/SRC_92059/R6000/&MACR1 A 8OPSCH ,, 8 .CBT.LBTERR.1 HASH1 L.OPMACDF MAPUC URDEF ^OP ,1CC@h`pRpTHpPZ(PY(PV(88T( @`(`@W(KDHh`xQH(:XpSP(/(:`S@U5H("xP`Q   (>hP('`Rp 5` C (HP(:`P8@`[h rU  ,@}FEEX%QȘ SCAN92059-1X016 REV.6000 921030 Scans for label and opcode /SRC_92059/R6000/&MACR1 EQCOMFLGSCAN~~$COL$ICOL $.CBT%.CBX(.CXB#.LBT*.MBT&.SBT).SFB'.XBX"ACGLO ACLOC ACSET AIFS? !AIGLO AILOC AISET ARRFG ASIZE BATAB CCOLCOL COMMT DIMEN DONE1 ERR.1 EXPR~HH{GTOKN ICOL L.LBL L.OPLILNE LINEMACDF MAPUC NOOPR OCOLPCOL TTYPE URDEF ^OP ^OPRN HHH)$$pjDpp$ppHDpppp HDp pph@#(P;(P5(P>(P@(P=(%` PN(@`((H7%>>D`0(@#(mPA(3P;(JP5(J(%8$#(mPA(3PC(<(4`$@Pp$(4@#(mP;(IP5(I(,D8#(mPB(P;(JP5(J8HPHx`:h.Dp ` 8(OP1(b8hcIIx#(ΈP;(rP5(rP@(pDhx(hDx` h.Ax`$1(k(hD`$3H(l(`!hA$4(l(`h$1(k(HA` h$3(l(`"h$4@(l`DD@hp Dx` (GG(P2(P1D((h#P;(P5((`Hhx`@(]`DD@xh  (QX8(X/X9@p (OX1D((Qh#H@ @ܨQQQQ%Hh`x@`?&XppLAAD(M'#'P;(P5(Dx(HPx@ (`DD@hx(h (QHD8`7hx(88H`8DP@8`p(`LhD (#hH`;h)((@(KHDx4`h*D4px(pii[/555@h#D5h&8H8(65`D(R5`E(R5`F(R5`G(R`H(R`I(R`J(R`Mh (Z@h (Zh@HpJ`.h* Hx@ hHxh (ր(QiQkEED8jh#hDD&88`(w`6(D`6xp H` P1((?Dx` P;((B(BP2((E@DxhHx`j(H` P0(8P<((B` ((BP2((E`O@@(HxDDhx` P<((B#,DD(P;(P5(P@(PB((p(K`(˄HPxph`;&@8(xHHp(8(r`Kh (DDhh#(RP;(߈P5((HPHDx(h#(KP;(DP5(8hD&8((LL\''@@hH @(pHHh`;&8((`;hDD&xh#P;(P5(HPxhH#P;(P5D(xhD&x(L  44K.##<  !&*,;[\]fghv.*4@6UlJJXȘ !CALL? 92059-1X016 REV.6000 921030 Finds out if the opcode is a macro /SRC_92059/R6000/&MACR1 JCALL? LIBLN }}A$COL $ICOL .CBT.DLD.DST.MBT.SBT?LIB COL COMFLGERR.1 FINDM FOUND GETLN ICOLL.OPLLENMACCL MACRMAPUC MTYPE NEXTD OPSCH READM SCANSWAPO ^LIBD }a^MDCB ^MLIB ^OP $$`h DHh`xp `hDh (b8$ rQZ4 ~~%bAADHp`papp```P(p`hP(ypDh`@p\׈h\H Hx]p^P(@(A`h]^((`(`h]((`(h]`@~sLL((`p_@\((s(y`a@Hpap8`H(j`p[HA`hZ[`\@h 5@Dp`pDpp`p`[pDD`p ` p HAh`Z[D@@H( 2?@^}}GGXr|Ș GETLN 92059-1X016 REV.6000 921030 Gets next line of source code /SRC_92059/R6000/&MACR1 G 6GETLN }}/$COL$ICOL $ILNE $LINE !.DLD".DST#.MVW.SBT?LIBBREAK COL COMMT DNIT1 DNITM DONE1 ERR.F EXECFMPER FMPREAD FMPWRITEICOLIFBRK ILINE ITALU %LIBLN LINE}CC LINE# LLENMACCL MLINE POLLRCALL $READM SDCBSWAPI VLABL ^FMPNMBUF '^LIBD &^MLIB Ctt2uDD@Dpp@`(E`@(_`( tx @`(u!  z ('p5p @ (/`6@H`y @`(u8 DhxhDx` (p8@ @H` p (ptddE77@` @ h @xpD!" `D@xH{x Jh# @(5`%&P(hDh'$h&@H%xD!J"%(T@]_D@ d@QpuIIX|gȘ !PEOF92059-1X016 REV.6000 921030 Processes the end of file condition /SRC_92059/R6000/&MACR1 I PEOF gg(.DLD.DST.MBTCOPYN DNIT1 DNITM FMPCLOSEFMPER FMPOPEN FMPSETPOSITIONINCL# INEST ISTAT ITALU LINE# S.LEN SDCBTRIMLEN ^FMPNMBUF g      ORSW FF@` (8D@ p HDh Hx ! @(`` hfHh Hep @ p x h Hcx @A ` @cp@dp DHP ` (`A\&X (`D@  @@Ag`'GGXvȘ! INCLU 92059-1X016 REV.6000 921030 Processes the INCLUDE pseudo op/SRC_92059/R6000/&MACR1 GINCLU ISTAT ~~.DLD.DST.MBTBUILDFILENAME CNAMR COL COPYL COPYN DNIT1 DNITM DONE1 ERR.1 FMPCLOSE FMPER FMPINTERACTIVEFMPOPEN FMPPOSITION ICOL IFTTY INCL# INCLV INEST ITALU ~LINE# S.LEN SDCBTRIMLEN ^FMPNMBUF   @   ORSWqKK`HPp(` xA(ckkou (hA (h`tJ x `Ah shH`H ` xHmxˈHmx xAAAAH@`8Dp`K&@@Dpp`npA1p΀`(=`ŤhsD`  @@p(G`oP(U()``rh`rXl(aXm(aXp(aXqH(ap`ŤhsA]8ݨ`mhH`t x>fHD   @ @S@3QEEXAȘ! MACLB 92059-1X016 REV.6000 921030 Processes MACLIB pseudo op /SRC_92059/R6000/&MACR1 E g5MACLB {{:$OPREV1 .DLD.MBTBUILDFILENAME CNAMR COL COPYL DNIT1 DNITM DONE1 ERR.1 FMPCLOSE FMPER FMPOPEN HASHD1HSTBL1ICOLNEXTD READM SWAPO ^FMPNMBUF ^MDCB ^MLIB {66##@ 6 j( "0 dXORS3 !6EEH`P(x%p/`hA`/@(`@@ pHx`ˀp&x-X'0&p.`'(h8-(Ag(Q`.Pˈ(m`(Hph (hHHP(z`( 5{>>(hH (`p)H@`@)(p,@(`,x*@x+h* (H׀x*(5@@+p+(0Ո+`)@p)(8 H@x`H855`Dh(p-`h55"A`-D    A`p-'`-(  @S@5@bGLLX:Ș" #READM 92059-1X016 REV.6000 921030 Reads a library record from library file /SRC_92059/R6000/&MACR1 L 3READM 55~DNIT1 DNITM FMPER FMPREAD FMPSETPOSITIONFMPSHORTNAME^FMPNMBUF ^MLIB 5aa877x@7 "Apx8A(6p`(,A$+`+`D `P7H`@58a@Kj_BBXȘ" CNAMR 92059-1X016 REV.6000 921030 Sets up call to NAMR /SRC_92059/R6000/&MACR1 B RCNAMR 55 .LBT .MBT .SBTCOL ERR.1 GTOKN ICOLLILNE MAPUC NOOPR TTYPE 5  xxJ@@@p`(shxhH P}(.P~(.xP|(;P{(;(;DDh xhH 8( `Dh@Hpx`Py(;Pz(;(vHDh`| xHh`xH`|hR `RA `hR hRx`s @h &'?@HHXӷ((CȘ# GTOKN 92059-1X016 REV.6000 921030 Gets a token from the source line/SRC_92059/R6000/&MACR1 H GTOKN NIXERRWNUM SUB?QQ} .LBT.MBT.SBTASTOI BACKU BATAB COL ERR.1 FINDV GETVICOLINTOA LSTR MAPUC SBSTR TTYPE VTYPE Q  ` DDpxxp ph Dx hp :(` H@@!"h$h0`p ` Dx8h Hx p P3(LP7(L9@P"(D(X` h8(x(6h8('PHDxh Hx (XXDDH`@HpVhpWXB(c(e`Hp `Vh `p ` Dx8h Hx p 9@@xy$` h8(Hx(n`DHp h P.(x h8H(x,??((x HP.(hX((n`+(`,(`(`)(`*(`(Hp ` hx(Hp (h` Hx(P(hHHH`/D`@h (Hh X(ꀀpp))(hHx h  HHh x 8(`h )  u , a%@@H` p/`H(0`/p `Hp (hHp"(rhx pp#h (r@` (BH@x (Ph 5pWh@Hxhx `(`ph x h8(x8(U` P(P(6DDce H` PA(i(Hp ` p @#p h#x(P`(*XA(z`8h@Hp `-hxhx h"x(PD +-*/()<=>@@H` p` P0(h?x xhHP(88((hx`@p DHh x (͈P(P(܀P(h(HHx hxDHh x (̈́hx`#DDp h x P2(P1H(hxD`$p h ``<phP숈(?H8(8(C PH(Lhx `0hp  hx`(|LLĖR$$(w(((`0h8(HxhxP+(hP!(h(Z`0h8(x`@+p DHh x (Leew22pv`p (pv`DDp h x P-((h@(p"hx p@h (`v((`v@(` (`5(`4(`6h@x`p  ReHH##@` (HHp `p `p`p (Dh 5hH`@p`p (DD`>`(p` p`hpp`ͨ` (8 ` p`p `p `p p`h h  x`;h D (hp `p ` p` p` p`p h(AOO55  p(`=Dhp    !&'1:=>BCIUbpO@~UIIXGeȘ$ FINDV 92059-1X016 REV.6000 921030 Finds the value of an & variable /SRC_92059/R6000/&MACR1 I FINDV VTYPE uu .CBT .DLD.DST.LBT.SFBARGHASTOI COL ERR.1 FATHR FDARR FINDL FINDM FOUND GETVICOLLATVH LINK MACCL MAPUC MTYPE NUMER POLLSUBSC SWAPI uEBBpx` (`pP(`A (̄(  (a(+`(/p@xAp A`(>8(#(M`]P(#`@Zh (M(#(#`@Y ""FP @ @Yp xh   "EaDD`(W`h (HZp`(]5 H``(~p   pJ   A`Yp(`hYx @hh (p ( p(  x`5$$@ @[p h (@ p h$  AA .PARM p`(UHDhxxP^((ShHx`_(ވ(S`@Hph(戄(`hDphHx(p` p`phDxP\(@(Gh(Gh xp`p ` {BBph (G (Gh5DphHxP_((S`(`(Wp(AJ @H@ph @Z]5@@[h`(J (? xh `Y(F@  x xh `c99HDhhdx x`@Yhx(F`a(H`b(H``(H&?[]dwx}9@ DDX EUȘ% FINDL 92059-1X016 REV.6000 921030 Finds a local ATV node /SRC_92059/R6000/&MACR1 D < FINDL "".CBT.DLD.DSTFATHR M.TOP POLLSWAPI "yW DDJxpAJ A`(6@p@Rp @RppTP(,AA (`h(J('`@(PH@@Rp@A@`@SA(hO   ?@aGGXMȘ% SBSTR 92059-1X016 REV.6000 921030 Processes substring construct /SRC_92059/R6000/&MACR1 G l1SBSTR &&&.LBT.SBTCOL ERR.1 GTOKN ICOLNUM TTYPE & { q2CCxphxHhHx0HhhX(`hDhX(hx,HhhX(`hDhX(hx-HhhX(`hHHp/hX(h, (H/ (r (h- (u==H,HH/ (h- (x.hHH,Hxh8(Hxh8.H(`p`-h1`(`(`(`(`hHDh0xhDxh8H(xP(P((P(P))6(( Hxh1 !;P\)@{*MMX0#sȘ& %GCOL92059-1X016 REV.6000 921030 Gets column indicators from operand field /SRC_92059/R6000/&MACR1 M wGCOL HERR.1 GTOKN ICOLNUM TTYPE vvg::xpppI x@I@I`@rpPi(`nHph8('`ophH8(2D`oph@q(:D`pphh (``vADhxHhXj@(YNN7J))`lhxDxhXi(JXk(Y`8Ih (](``mDh``N@7]CCXmȘ& ERR.1 92059-1X016 REV.6000 921030 Pass 1 error reporter /SRC_92059/R6000/&MACR1 C &ERR.1 $ICOL .ERRINFO^INFO )) xhH 60hX( xHh x@Hh x)@fKKXDȘ' "COPYL 92059-1X016 REV.6000 921030 Copies a line to the intermediate file /SRC_92059/R6000/&MACR1 K::V$INFO CONT? wCOPYL gCOPYM mCOPYN INFOWMCSTA U^INFO : $COL$ICOL #.CBX%.CXB".LBT.MBT!.MVW .SBT$.XBXAIFS? CCOL COL COMMT DNIT1 DNITM DONE1 FINDV FMPER FMPWRITE ICOL IDCB ILINE INCL# LINE# LLINE LSTFG MACCL 99 3MACL# NOOPR OPSCH OPT.L OPT.Q SDBIT VLABL VTYPE ^FMPLSTFN ^FMPNMBUF 9  U %Y \ q`M cAA .ERROR`p6wp6gpvp`wpvmp`h (h`X(`(D`0P((X(PD((`0X(X(P(P(pa(pahU`H ` EEH` `v0W0000a00P(倀`v(  `v H`Av`H@ (`(`(`(`` @ xX`H@ pZ5p[HZxUhX5RR@A`5![`haD"( (@(`@(h "(h6Dh7p7  @((8`"(#( (H(:H:888:8:8888::::888:;:88(<;@@`p5hU#Dh "(DP($ HX]($P(UP(`P(P(P@((@"H($ X]($P(@@(UH" P(hP(h(@"PPP(rP(r(A$H X]($@"($I{??H X]($a(@(w87("P(H(A$ X]($(85(@(Hx H%xU`X@@p^@U(`hUH X^((HxUh "P(P((D@h "x H(hU xUX]((%xUhVJJHU 5xZDhU  H 8Z`ZpZ̀ _Z`_h(`(pbD`hf`(58b(݈@H`pp`\pUDw '+,-;=ALMRS\ar  @g'KKXzȘ( #LIST92059-1X016 REV.6000 921030 Processes LST, UNL, and LIST commands /SRC_92059/R6000/&MACR1 KS.LISTLST UNL AA(( D< .DLD .DSTCOPYL DONE1 ERR.1 GTOKN ICOL LILNE LSTFG MAPUC OPT.L OPT.Q TTYPE A S F Hp`p(H(`p(&&G`pHp`@pP( (`Hpp(&()ONOFSHMELO@/BB`.pDphx&`D@ xh&x&hX(K`Hpp`HH`p(4X({`&5p%h(P%(  P%(`P%(q`p' P%(h 8'(a({h @ p h Hp ( [[yq55`h p @Hh p hHx(`hHH`DH` 0 hP((X(AA  H`pp``p8` DA0 h LBA[@xʗMMXbyȘ( $BACKU 92059-1X016 REV.6000 921030 Moves source line column pointer back one /SRC_92059/R6000/&MACR1 M 1BACKU psCOL HHhHx@mt4IIX^Ș( !OCT 92059-1X016 REV.6000 921030 Processes the opcode OCT on pass 1 /SRC_92059/R6000/&MACR1 I OCT PCOPYL DONE1 DOOPF OCTIN F pDpp` 8S@YxBBX8rȘ) ALPHN 92059-1X016 REV.6000 921030 Sees if char is alpha/SRC_92059/R6000/&MACR1 B :ALPHN BATAB 11ziHp@@ 8`1@ ,EEX|Ș) ASTOI 92059-1X016 REV.6000 921030 Ascii to integer converter /SRC_92059/R6000/&MACR1 E NASTOI %%?.CBT.LBT.MPY?NEGCALLEDBYDOOPF ERRROCTIN % <L0@;LLX6oȘ* #DOOPF 92059-1X016 REV.6000 921030 Does string sub on type 0 and 1 opcodes /SRC_92059/R6000/&MACR1 L GDOOPF ccM.CAX.CXA.LBT.SBTBACKS CALLEDBYDOOPF COL DECPT DONE1 ERR.1 GNXTK GTOKN ICOLLILNE LSTR SQK STRPT TTYPE TYP29 TYP30 c EEpppDHhhP(Mx`DD@xp H`P((&`(&@D`@hDxxp @`(iP(0P(4PH(/( 8phX(>  A6`  5`(- A6` 5`(8(ᄈ`pxh(6 x`P(Vhx(@8`HX(IX(BX(R(h({V==`@(@A`h`(qpT6xUhx`X(hX(qX((`HX(qXD(x(hp(H`hUxU8T(h`X(X(` (`T(hU8TBB(xUhU 5x888H`h 8`0 0  `( ( `p P(`(H`0 h 0 0 h 0h 0  ` @Hh hHhhh??X(X(-X(X(ᄄ`hH pH`h(H``@H  >,-/01234 @`h@IIXZ) INIT2 92059-1X017 REV.6000 910607 Initialization routine for pass 2 /SRC_92059/R6000/&MACR2 I cINIT2 }}N$.CAX%.CBY&.DLD(.DST*.DSX).DSY'.ISX+.MVW?ASMB ?NAMBATAB DNITM DRECEND?!ERMSBUF ERR.F EXECFATHR FMPER FMPPOSITION FMPSETPOSITIONFMPWRITE GETERLN IDCBILINE }^^_IPOSITION IRECORD LINKLINKU LNODE OPT.C POLLPUTIM #SDBIT SENDMS SWAPI TDCB"TTRAV UPONE VMAFLAG ^HEAD ^NEXT ^STBL ^ P A A b==H`p `p88 ("88H`p `p88 (.88Hpp(;D@` (OD@ppAOAUh(9($$zZhgXf(aY ([Ẍ(8fYhh$kDD`hH (9p(Ux  @p䈈88hg( (HgͨH#`hH"hgxH$Xf(Hf% (A&@H('@(8SIIHH)(*(HfHHgpP(e`h"hg ('("px` (C  D+D`  @h A+(O`@ (I@ D hh Xf(U8((`@p@`~YAAH`@ph H`p(u 5(((qH (s8(g@`(`@h (hHx`p h`J+ &(`ppHh`+ h  ! YB @~L KKXD,Z)"GETL2 92059-1X017 REV.6000 910607 Gets a line from intermediate file /SRC_92059/R6000/&MACR2 K(BACK2 BACKS QEROUT GETL2 ll $ICOL .LBTDNIT2 DNITM EOP.2 ERR.F FMPER FMPPOSITION FMPREAD FMPSETPOSITIONFMPWRITE ICOL IDCB ILINE INCL# LABFD LINE# LLENSCAN2 VLABL lcDDA  ( 5Dp`({H`pxhH p Hp H(%(C(((2p~`(1(`~p 6DHx x `px@6p`(I8hVD H x Dx (ZZQ--X MO({@NpNpOpPf MO({`xApyq  y@`({@NQPh@Z<<3-p(Dph Hx P(P(P(HHDx (  \ <@gHHX%nZ)OPSC2 92059-1X017 REV.6000 910607 Opcode table searching routine /SRC_92059/R6000/&MACR2 H 9OPSC2 GG#WORD .CBT .LBT ERR.2 FADFDVFSBFMP HASH2 L.OPLIT? LSTOP LTYPE MAPUC OPDEF OPT.A ^OP GDDDh`pbp_DHpp  Pi(88_( DHh`xaH (1mHp lpcHP(&(1`c@g5H(x``aJ  (3h`((\ 5x^(@h (@H`eh hd44DHpxjp@(N`k(=׈hPf(U@8  Hx8^^x84-d ,?@@'FFFXVZ)LABFD 92059-1X017 REV.6000 910607 Called when label is found /SRC_92059/R6000/&MACR2 FաcCREFENT LABFD yy$ICOL $SYMB .DFER .DLD.DST.MBTCREF2 CREF3 ERR.2 FDREL FINDM FOUND ICOLINCL# L.LBL LINE# LINKU LNODE MAPUC MTYPE OPT.C PCPUTIM SDBIT TPC y  єFF@`@D(h`Hx` DHx hx@h (G`5@h @ h @p@pp`H0h HH6` 5 x= ` `HHhDp p xx NMFF (Q(` (`@ (` A( cSH(X`D(`hAHH@@@AD`ADpxDA`DHpxcD``(`(`hH1x@m錩EEXZ)CREF2 92059-1X017 REV.6000 910607 Does XREF on symbol table /SRC_92059/R6000/&MACR2 E =CREF2 5INCL# LINE# OPT.C **1h hHH` H` *@IIX1)Z)!BUMP92059-1X017 REV.6000 910607 Processes MR, ARG, ASG and DM group /SRC_92059/R6000/&MACR2 I p*BUMP 88 x#WORD .DAD .DLD .DST .LBT ?ASMB BACK2 ERR.2 ICOLLABFD LITER PC8TTb))p`P%(hH P&( (`P$((H(P'((` (H(`(hD  =\T@F>>Xn Z)MRG292059-1X017 REV.6000 910607 Mrgs on pass 2 /SRC_92059/R6000/&MACR2 > uMRG2 ȧBUMPMRG?RCUBED? TPC 6 @Hh hX D8p@<AAX[Z)JSB.2 92059-1X017 REV.6000 910607 Does JSB to rpls /SRC_92059/R6000/&MACR2 AZDLD.2 &JSB.2 }}ϸ #WORD .DAD.DLD .DST.LBT.MBT.MVW.SBT?ASMB ERR.2 FADFDVFSBFMPFINDM FOUND ICOLID# INCL# L.OPLABFD LINE# LINKU LITER LNODE MRG?MTYPE OPT.A OPT.C }OPT.I PCPUTIM RCUBED? TPC ^OP  . {     HHp`p&DHh Ph hX()8(pD`0(@`(3`H(` p@h xh HxhxHhx8(:p` h x H@xh (` @5@h @@Hp h@` 0]EEH0  HHA6`   5`p(`p` A`H(` ` hH` P(h HP((`P((@Dp  &  (`h @ qJ(`(`( =_3>@ @YWxDDXi Z)NAM 92059-1X017 REV.6000 910607 Processes NAM statement /SRC_92059/R6000/&MACR2 D {NAM ?NAMERR.2 ICOLu `(H8` hH@p0EEX{!Z)BSS 92059-1X017 REV.6000 910607 Processes the BSS pseudo op /SRC_92059/R6000/&MACR2 E uBSS 88 .DAD .DLD .DST ASTDI ERR.2 EXPR2 GTOKI ICOLLABFD PCTPC ^STRT 8==CD( (h@X  1( ( `(H` h=@֣cCCXZ)ASC 92059-1X017 REV.6000 910607 process ASC statement /SRC_92059/R6000/&MACR2 C dASC %%.DAD.DLD.DSTERR.2 EXPR2 ICOLLABFD PC%55H (@ (`hH`( 5@ƞ^CCXGZ)REP 92059-1X017 REV.6000 910607 process REP statement /SRC_92059/R6000/&MACR2 C REP LL$ICOL .DAD .DLD.DST.MPY DNIT2 EOP.2 ERR.2 EXPR2 GETL2 ICOLLABFD OPSC2 PCSCAN2 SHMIC L>><H (5@  (9 (7x(?(( ($XA(38(!>LLs!&&D`p((;8()(@`@  (`E(<`D(<`B(<`C(<`FhHD  (    L@~SCCX!Z)EQU 92059-1X017 REV.6000 910607 process EQU pseudo op /SRC_92059/R6000/&MACR2 C zEQU ww $ICOL $SYMB .CMW.DFER .MBT.MVW?INDCREF2 CREFENT ERR.2 EXPR2 FDREL FINDM FOUND ICOLL.LBL LINKU LNODE LRSUT MAPUC MTYPE OPT.C PUTIM SDBIT wPFF`p`D(h J@hp@h 5x@HH `Hx xH`hx@h (\@HpxH(Hp` (: (:SH(O`hhxA`h((Dx@JAAp@ (: (@(Hp(P(P(P(@0H0 h HH6` 5` `h ( xNNG##((`(kp(0(k(kh@`(H`h  `h(`Ȉ(`(`ʈ(`(N s^ l ?@ 1 @PCCX7Z) MIC 92059-1X017 REV.6000 910607 process MIC statement /SRC_92059/R6000/&MACR2 CUMIC {SHMIC ll} $ICOL .DAD.DLD.DST.LBT.MBT ERR.2 EXPR2 FINDM FOUND GTOK2 ICOLL.LBL L.OPLABFD LINKU LNODE MAPUC MTYPE PCPUTIM ^OP ^STRT lȩCC`(H`h  `@(QpjX((Wh@@hhDjh P((W8 Dmx_h P(#(W8 mxi`pH`hhjxl@h (Y`j5@p `pk`j@ k8kkhkHH6;;C`hj 5`_ `ihlH`h H `pj(`(\`(\H`h ; rh llm>> ([m`(\D@`h@Dhxh@h (@@@ xiJJhi8{{h` {,? *l@îDDX Z) COMN92059-1X017 REV.6000 910607 Process COM in pass2 /SRC_92059/R6000/&MACR2 D q COM ww$ICOL .DAD.DLD.DST.MBTCOM.C CREF2 ERRREXPR2 FATHR FINDM FOUND GTOK2 ICOLL.LBL LINKU LNODE MAPUC MTYPE OPT.C PCPUTIM SDBIT TPC ^STRT w q  BB`(` hD ` P(+P(+P('J`( JHhx `X(-X(6h ` D(phA`h Hp` hxp JAH`p(H` P(UJ ~~aS@@J  A(}  5@@  (j 5 @ X(hp @ (}JA H(`(`xX(X (X (X(XA((A(`~GGD(hx(X( (@ (`Hx`(`5@h @DHp`ph     6`  5`J x((AhHHh`0kk::AJ`h  h(` P( hX(+X(X (X(` hhH  6789 k@CCX#Z) EMA 92059-1X017 REV.6000 910607 process EMA statement /SRC_92059/R6000/&MACR2 C fEMA $ICOL .DLD.DST.MBTALEMA ASTDI CREF2 EMA.C EMADA EMAPG ERR.2 FINDM FOUND GTOK2 ICOLID# L.LBL LINK LINKU LNODE MAPUC MSEGS MTYPE ODEMA OPT.C PUTIM ^STRT m.HHDp`(dhH@ (jh (fh (hDH8hxH@hx@h (pz@HxX("(tzx@(rX(1X(1X(1(t`5@h @@Hp  p@`0  HH6||N H>>` 5`  D 8`@`h HDh   `(w`(w`(w`hHH`p( `(w`(w`(w`hH`HX((vDh(r(rz|C @{EEX]Z) ALLOC 92059-1X017 REV.6000 910607 process ALLOC statement /SRC_92059/R6000/&MACR2 E AALLOC }}w$ICOL .CBT .DLD!.DST.MBTALCHD ALEMA ASTDI ATOI2 CREF2 ERR.2 EXPR2 FINDM FOUND GTOK2 ICOLID# INFOL.LBL LINK LINKU LNODE MAPUC MSEGS MTYPE ODEMA }'',OPT.C PINFO POLLPUTIM SKIPBLANKS SWAPI ^STRT 'zCCpBpp3`(%Dh@hAJ`IHXH((#PG(PH()PI(2(#hHA`+G(%(#(#@`((=Dh`.H(?(#(# x3hHA`2I(?(#(#8B8XG(FXExDEED(?( ( !6`B(ZP6(W(!`7(!XE(ZXF(eXN(eXG((`B(l `x@`5@Lh  @@pD@Fh @Hp xH`Ahx8@` (@p4p5`@0 AAh 0P4h4 HFHF6`A 5`(`B(`3(`M(`K(`J  H 8`A x4 6A!4h4HF`5@h8 h ( !`BB xC@H hHCx5O@h @[@\@5 (@ (pCJA !C`B( D (  (`@Z(@`@@HxXG( XE(lXF(lXN(l(UU3 ''XE( XM((p(l`Y(&`U(&`W(&`X(&`R(&`S(&`Q(&`VD(&`Th EMA RSAVEXCOMMON^U wxAr %%RE ? %@ҧCCXb4Z)MSEG92059-1X017 REV.6000 910607 Process MSEG statement /SRC_92059/R6000/&MACR2 C sMSEG -- L:.DLD .LBTALEMA ERR.2 EXPR2 ICOLLABFD MSEGS ODEMA -^^44@`() (' ('`@3('@`@D@xh (%P.(%P-H(X/(%`2(*8`1D(*`0h ;^@FFX [Z)RPL 92059-1X017 REV.6000 910607 Processes the RPL pseudo op /SRC_92059/R6000/&MACR2 F RPL vv$ICOL $SYMB .DLD.DST.MBTCREF2 ERR.2 EXPR2 FDREL FINDM FOUND GTOK2 ICOL INFOL.LBL LINKU LNODE MAPUC MTYPE OPT.C PINFO PUTIM SDBIT ^STRT v q  ]DD@p`@(h@h H( @((A`p `X(2H(Z`XĈ(2X(W`Dp ( (A(``p `X(P(Z`HX(PXxUFFH(W( p`5h  @@h @@Hp x` Dhx h H (p(h((`(`  xH@p`H0 h 0̈0h cc,77HH6`  5`(`  x`@Hh h H`(`(`hD(`h   P c@3KR GGX>Z)GENLD 92059-1X017 REV.6000 910607 output a GEN or LOD record /SRC_92059/R6000/&MACR2 GaGEN LOD -- z.LBT .SBTERR.2 EXPR2 FMPER FMPWRITEICOLLABFD RDCB-??`pi `pi H (c  H (axHD xhhP(,h`p` 8('(D`6pꀄ`6px(?hH x8(=(Dh(3SS#?((H`h 8(A`h@p`ih耈 8(Kpjhh x逄`pg\hg`hH `(dH`h S k Ӥ  , @ՒRMMXtZ)$ENDP2 92059-1X017 REV.6000 910607 Processes the END statement after pass 2 /SRC_92059/R6000/&MACR2 M CENDP2 11 - .LBTDNIT2 END?EOP.2 GTOK2 ICOLLITFPTYPE PUTBK SETPC 122gDp@ DHph P(P((P(`DDp( ;2@RFFXZ)LITER 92059-1x028 REV.6000 910607 Processes literals on pass 2 /SRC_92059/R6000/&MACR2 F JLITER e$QBUF .CBX!.CXB.DFER ".DLD.DST.LBT#.MBT.SBT?INDATOI2 BICTR ERR.2 EXPR2 FATHR FINDM FOUND FPLIT GTOK2 ICOLLINKLINKU LNODE LTYPE MRG?MTYPE NSIZE **6OCTIN POLLPUTIM RCUBED? SWAPI TMULT TPC ^STRT * q   DBAFLSRJ~~,q<<pp 8 Dh x hpP(^P(ZP(P(P(P(P(MP(`(;`(;`(;`h H`(;`(;`h H`È(;`(C`ŀ(C(6h Dx `~tT@@p`p`p( (6p(6pp`HX(oX(j(:`p`(dpHh`(v8H`@pp (>`phx( (6Dhxh @x (hHDxh @x `htAAHx(`ʈp`p`p( `X((GpH(Gh@ ((6 #(8`p( H (8 A`p`p( @(8(`(K`((6@`(Bh@( h (Im<<(I,Hx `!p `P(((> p 0p`p`p`hP(P(P(P(PH(`0p( X(@P( ( `Xp88`@ pGDDH` xhHHx hx @hx h (ih 5@@@"A@  H @ p(DP(4(DxC`h (@HhX(=(@@h CCH@"(%`phpC`@h (WhUCC CC`C@`   @ @p " `5@@Hph @@h`#h JJ"`phpC`@h (hX((h CZZ66C`C@@` J @h5@Hx "   P_%;@AF Z@GGXZZ)EXPR2 92059-1x028 REV.6000 910607 expression processor in pass 2 /SRC_92059/R6000/&MACR2 G--'$SYMB BICTR EXPR2 FDREL LRSUT TMULT -$QBUF .CAX.CBY.CXA.DAD.DDI.DLD.DMP.DNG.DSB.DSBR .DST.DSY.LBT.MVW.XAX ?INDASTDI ERRRFINDM FOUND GTOK2 ICOLMAPUC MTYPE OPT.C PC TPC ^STRT >>DhPxpHp `pX(GpxՀ` h ` h hH#$(t(L(L(((R((ለ((((((((((((؈((((؈((?>99((@((L((((H(`p `HH(`@HpP(UP(U(x`҈P(Y(x(g X(mhXh@h@ (nhx`8`(`(`mmH5w<<(`(`(`(`(`(`(`(`(`(`(`(`D(`h  "+/?P ;@m~~<>(<`@h*X(X((℁(`(I@AA`pވhH 8((`*P(P((~hAA׈`888׈888׈((44hׄ(`҈8888׈88(Lj(4@@ xӀx88@h @p݀5@@h ( 5 @h ( 5 @pԀhHH݀`P҈( @phHxѨ `@h,,;AрhX(rhh Axр,o,<<x*,P(FP$(>P(>P#(>H(F`P(F  h*H` Ah*p+(dHHh+X(_Hx^ h*0*h*,(_;;0hh x׈Hx*`@P(x* (װ8ׄ8רh~; h x(`Ѩ?? xxh$ xHhHx8 (H ( H(8hxhHx@(hH(H@ ((0`@@P@pX"p`(@?      @g%'DDXjZ)RELOC 92059-1X028 REV.6000 910607 Does RELOC, ORG, ORG, ORR/SRC_92059/R6000/&MACR2 D##zAORB ORG ORR 2RELOC ASETPC #<$SYMB .CBT.CFER !.CMW".DLD#.DST.MBT .MVWATOI2 BSE.C CREF2 CREF3 ERR.2 EXPR2 FDREL FINDM FOUND GTOK2 ICOL LINKU LIT? LNODE MAPUC MTYPE OPT.A OPT.C PC((cPPC PTPCPUTBK PUTIM RCUBED? TPC ^PCS^STRT (337!! ALLOPROGBASECOMMCODEEMA SAVEDATASTATLOCA3{& ORB **ORG **ORR **RELOC ~~3<<`^`SXP(:(Sh`Px"`p$hx`5@NAp#`"O(]hHQx8$(BH`bh2`c(T`_(T`f(T`$Pi(iPh(iPg@(e(l`@(l(Y`(Y`#PR~__so//(vApp2`YHXO([HHp`YXP(([phH`h@h ([pD pPU(PV(PT(([XSJ([(q_99@`[`(`(@p`(H`NAH`ch`_(9~~4HHH`\(وh(ڈXx (`J(JpH`eh`c(  *** ----- ***@h haA AQ HxhW`~//'xh (`Zp  ph`` Z` h 8@H p/|EE`]`(=p`P(+(7D`P(/(7A`MhL!N(:(:(7JHp`dhHp@@"J #pA &),/Cd&@L1 >>X-eZ)PUTBK 92059-1X028 REV.6000 910607 Helps RELOC /SRC_92059/R6000/&MACR2 > F PUTBK XX$SYMB .CAX .CXB.DCO .DLD.DSBR .DSTALCHD ERR.2 FDREL ICOLOPT.A PCPOLLRCUBED? SDBIT SWAPI TPC ^PCSX~~C?f|`J` h (0Pa J x @@pp@\X('@\ D(  (. (3 (@H@ ph]`@h^` h^P_hbPchbP\(TxMA@ ~@@>xxxHpHthmsPo((8(`(hkxhPn(&xx8p@`(-pp`A (XHphx@rhXm(@Pk(PPl(PA@(XXk(HXXRF//(Xp8(/h  `phH(g3276 8 `Pt(\(gh`WAj(d(g(g`q  -BX@^}FFX{Z)!BRAK2 92059-1X017 REV.6000 910607 Processes break in pass 2 /SRC_92059/R6000/&MACR2 F BBRAK2 ,, .ERRBROKN DNIT2 DNITM ERMSBUF FMPER GETERLN SENDMS,%%n`h@( Dp8(  %@NJJX)Z)!!FPLIT 92059-1X017 REV.6000 910607 subroutine to process =F literal /SRC_92059/R6000/&MACR2 JFPLIT  ^FNUM ((h.DLD.LBTATOFP ERR.2 F.IDI GTOK2 ICOL^STRT (EE D`'`p X#(X$(X"(X%(X!(`(Dh@(8hHP&((E!.P@\JJX[Z)"!ATOFP 92059-1X017 REV.6000 910607 Ascii to floating point converter /SRC_92059/R6000/&MACR2 Ji[ATOFP F.DID F.IDI .DIV.DLD.DST.MPYEXN.F ICH.F jhFF` 0+-.,; E(&p;h((hp;x<`;@P(2p;`h<()@|(9@{@<px(rh X (m`@hLCC @xp8(f`zhyĈ h 8  @!(aH(]`pph`x =Hx(A`@8=`P=@{(R2Pd} N azh&JJ(A8A5 @A@ @A@p`A6pA A A pQQ@(((ʄ(`(x(`pppp`??0pph`ph`xp`߀h pU` h  @HU xUP(@(`h  (( x@ppUpXHxh !(*xVeDD@(%`U6 WW  VHXVhVX xWHxV(pU@pXHx`pVpW@ pY(J8VHXPHXSpZ8WWU50ZV8Y(A0~~Um\88p `p `pp`ވph 8(gpppp p p p(u8 8  (P(P(P(P(P(P(ӈP(P(((@8 8 ((8 8 ~@@h H Hhx (u8=(u@((((㈈p(tp (t(((8 (t((Ƅ(t (@8 (s (s(h DhH  $(@@(((㈈((((` [=h Hx `0(܈h 8HH(`h(6  0 ( A`pppp!(   (e @e%@@XZ)$ICH.F 92059-1X017 REV.6000 910607 part of ATOFP /SRC_92059/R6000/&MACR2 @EXN.F ICH.F  Ke.LBT^FNUM ..ǻDhxhH ( H (  D`ph(.@2PHHXZ<Z)$LDREC 92059-1X017 REV.6000 910607 Processes the LOADREC command /SRC_92059/R6000/&MACR2 H .LDREC %%.DAD.DLD.DSTERR.2 EXPR2 ICOLLABFD PC%**:LH (@JJ`Dh *@ѿ;;XZ)%BCOM2 Processes the Break command in pass2/SRC_92059/R6000/&MACR2 ; 5BCOM2  @.M;;X Z)%PCAL2 Processes the pcal command in pass2 /SRC_92059/R6000/&MACR2 ; 4PCAL2 &#WORD .DAD.DLD.DSTLABFD PCu JJJ@]/{))X,Z)%CDS /SRC_92059/R6000/&MACR2 ) vCDS A.LBTBSE.C ERR.2 ICOLRCUBED? TPC XX!++Dh)P(H(()P&P'((`P#(!`(P$((!`$pp`*HHhH+`%(3FNO_X@h(`c(  *** ----- ***%MACR3::RTE_6:5:236:128 644 0 0 166000 5310706724 35236 %MACR3::RTE_6:5:236:128 $%MACR3 +#+#+#u!FST DDXdZ$;MACR3 92059-16018 REV.6000 910607 Main routine for pass 3 /SRC_92059/R6000/&MACR3 DIGNOR3MACR3 88  BRAK3 DID3DNIT3 EOP.3 GETL3 IFBRK INIT3 LIST3 MIC3OPSC3 SCAN3 844ADp HH((A  H( ((@((@  4@ (FFXZ%GLOB3 92059-1X018 REV.6000 910607 Global variables for pass 3 /SRC_92059/R6000/&MACR3 F}}:4#CODE #DEFS #WORD W$ICOL b$REC_?ABS^?INDASGTP B4NAM BCOM? C.OKERR?FADFDVFSBFMPICOLILINE VINCL# L.LBL L.OP}rr L.OPC XLILNE \LIT?LREC]LTYPE `MRG?NAM?OCTIN OPDEF cRECRD [SUP!ZSUP?YVLABL ^NERR ^OP a^REC^RVAL r V fc    @\EEX@(*Z%INIT3 92059-1X018 REV.6000 910607 Initialization for pass 3 /SRC_92059/R6000/&MACR3 E GINIT3 @@4#LINE .DLD .DSTB4NAM COFCLPGE# NAM?OPT.A PCPTPC TPC ^HEAD ^NERR ^PCS@HH2''DppDp `@(  `ppp p p @p `(&`)p'` 8'J( p H ( @kDDDXAVZ%DNIT3 92059-1X018 REV.6000 910607 Cleans up after pass 3 /SRC_92059/R6000/&MACR3 D KDNIT3 ||;ALCHD BROKN DNITM EDUMP EMADA EMAPG FMP?GETL3 HED3IDCBL.OPLLENMAPUC MSEGS NAM3NAMFD OPSC3 OPT.A OPT.C PASS# PC SBAD? SCAN3 SKP3 SUBHEAD3TPC |TRMLU UPONE ^OP ^PCS  {CCD@`0 0 DKp`HPU('('HH('('XM(XN(XO(XP(D('pp@`(0`RH@p (2`($`(K`Sp (I`Q@Jp ppHpp`Tp`p 88(=Dppp @pp$$ދHpJ $@LLLX[Z%#EDUMP 92059-1X018 REV.6000 910607 Makes the end-of-listing error summary /SRC_92059/R6000/&MACR3 L ˙cEDUMP }}ׯ.CAX.CAY.DLD.DST.ERR.ISX.ISY.LBT.MBT.MVW.SBT.SFB.XAX DNIT3 EOP.3 ERMSBUF EXECFMPER FMPWRITEGETERLN IFBRK INTOA LPGE# PAGE? POLL SBAD? SDCB}ESWAPI TRMLU ^FMPLSTFN ^NERR // /11*tzn Error in line 1 $a >!dBBJA'@h cH`MhG(C@Yp45p3`JhR3H2HH4`Nx0`Ox1`PHp `Z`TH`Uh2 8 X0(?DX1(?(c`'(@H@(x!x%BBp$'`$@I"`JhR3`Pp `%((Sp%`!`#(`"(h-H/x6`-h 6(h0`"H(x5`N`2@5`% D @Fp  (HVx!1>>  (`Tp7`H`Xp6`Fp  (8 86(chFH x%(8%(pa`%hR(C`a(( Hx58  8 @`NH(p5#c``W&55H8 `5p)pb 1&7)`&(BhAPQ(>>H7b`WhL(CDhK (  %*17 %% l`@` FFX8sZ%ERR.3 92059-1X018 REV.6000 910607 Processes errors in pass 3 /SRC_92059/R6000/&MACR3 F ,ERR.3 GGs$ICOL .DLD.DST.ERRERR?ICOL ILINE LINE# LINKLNODE POLLPUTIM SWAPI ^HEAD ^NERR Gl?FFppx8`ohqxH@h`  `@0 HoH x` r@@n@oA@` (;` @ppJA J @ @xh H (XD` @ @oIIN%%p   @op@AJA D` @ @op I@JJX"+Z%!GETL3 92059-1X018 REV.6000 910607 Gets a line from intermediate file /SRC_92059/R6000/&MACR3 J BACKS GETL3 VNAMFL#THISREC zz}$ICOL .ERR.LBT.MBTBRAK3 C.OKDNITM ERR.3 ERR.F ERR?FMPER FMPPOSITION FMPREAD FMPWRITEICOLIDCBIFBRK ILINE INCL# LINE# LIST3 LLENVLABL ^FMPNSFILEz~~DDDp ( @5p `(D` PhppH p HpHp (ED`6xx(W(W`(W`(@` (WH` p6p ~BB;D(` p  H`h J `@V(`pV(c` (c8BKKd%%@`(om(`cpp`pp HH`` @Hp 88(ycKh@==V$$@ p hDxP(P(P(Hxp  \ 8=@FFXZ%LIST3 92059-1X018 REV.6000 910607 Generates the listing lines /SRC_92059/R6000/&MACR3 F&&2LIST3 LPGE# *PAGE? RLST? uSHEAD &q #CODE #LINE $ICOL $.DLD%.DST .LBT".MBT#.MVW!.SBTDNIT3 EDCB EOP.3 ERR?FMPER FMPWRITE&GETERLN HED?HEDBF HLENILINE INTOA ITOA8 LILNE LINE# PAGE# PCPHEAD << POLLRCUBED? SBHD? SDCBSWAPI THISREC TRMLU ^FMPLSTFN ^HEAD ^NERR ^SBHD <F   rs s4 !!)\J RBCPEVXSEV C Z dlCcesxresrC ! 1 <>pph Dx Jh pP(PP(LP(tP(P(P(P(?P(`;h8<(7h Dx `Hp `p `<p ((7p (7pp`@HX?(aX@(\(7\@@`p`@H(Vph `(h8HO`p @p (7`p hp ( (7(@`(7 `>(H(7(7h(Dh (7(7,Hx`Ep `P(((7 p 0p `<==p `p `hP?(P@(PA(PB(PC(` H0p (X(7P?((`AXp8 8 `@p` h (5hD8 xhKx h DxhGx h (7h 5@@?\\55A@H@p(*KP(.H>@(0L`h =H` x8   P_ \@C2GGXYZ% EXPR3 92059-1x028 REV.6000 910607 expression processor in pass 3 /SRC_92059/R6000/&MACR3 G--($SYMB BICTR EXPR3 FDREL LRSUT TMULT -}} $QBUF .CAX.CBY .CXA.DAD.DDI.DLD.DMP.DNG.DSB.DSBR .DST.DSY.LBT.MVW.XAX?ABS?IND ASTD3 CREF3 ERRRFINDM FOUND GTOK3 ICOLMAPUC MTYPE OPT.C }|ORGON PC TPC ^STRT ]>>Dh Px pHp`pX(Gpx׀` h ` h hH#$(t(L(L(((U((䈈((((((((((((ۈ((((ۈ((d>99((C((L((((H(`p`HH(` @Hp P(UP(U(x`ԈP(Y(x(g X(mhXh@h@ (nhx`8`(`(`ll[w<<(`(`(`(`(`(`(`(`(`(`(`(`@h h H "+?P ;@lځ==HHh x` p@`(P+(`P%(`p H(Oh,P*(((P((׈P&(P)(ׄ`p (O`Dpx (L(xP(㈈P((|D` h P((P&(焈Hx (I{{~J<<(P(P(hxp`$((` (I(P( P( (P'((pP(`h (]`hx(?  ;I\_{'l.)(((( ;(( a>==((((3`@(vp`p@@h5@(8ŀ(P@(Y`Dh   xp-(d` (IP(P(P(P(P'(}(xP(vP(v(|hHx h-H.{FFA(aAA(] ((A(aP(vP(vp-AD`-(d  ((((I ((!(!8(@(!8ň((ӈP(CC( h C( xŀ@A(@(0@0(!((8ň((8ň((!(A8((A8(A(A(A (~~^@@ xDx`h D@hh (zp`HZ8xhx ('8(YֈP(PY(P`h.h (?PZ(?@ (?((G`~ұD;;(I(BP'(EP([P(]p-(mP(P(h-X(l( h戈(j`(h`h `p(%h x@D`p`݈@88(yx>>(?`@h-X(X((䄁(`(I@AA`phH 8((`-P(P((~jAAو`888و888و((44jل(`Ԉ8888و88(Ɉ(43@@ xՀx88@h @p߀5@@h ( 5 @h ( 5 @pրhHH߀`PԈ( @phHxӨ`@h,,VAӀhX(rhh AxӀ,۴.<<x,.P(HP'(@P(@P&(@H(H`P(H  h,H` Ah,p-(fHHh-X(aHx` h,0,h,.(a;;Qjh xوHx,`@P(z, (ٰ8ل8٨j~; h x(`Ө?? xxh' xHhHx8 (H ( H(8hxhHx@(hH (H@  ((0`@@P@pX%p`(@?       @jDDXZ%RELOC392059-1X028 REV.6000 910607 Does RELOC, ORG, ORG, ORR/SRC_92059/R6000/&MACR3 D**_HORB3ORG3ORGON ORR32RELOC3SETPC *$SYMB .CBT.CFER .CMW.DLD.DST ATOI3 B4NAM BSE.C EXPR3 FDREL FINDM FOUND GTOK3 ICOLLIST3 MAPUC MTYPE NAM?OPT.A PCPPC PTPC PUTBK RCUBED? TPC ^PCS^STRT 337!! ALLOPROGBASECOMMCODEEMA SAVEDATASTATLOCA3{& ORB **ORG **ORR **RELOC hK3>>H`p XH(9(kh`H x"`p$hx`5@p#`"(ShHx8$(A(k`$P(_P (_P ([(b@`(b(k@`(k `#P(mpp2` XJJmTq##(kp` X(x(kpDh `hDh (kDppP(P (P((kXJ(k(gJ..M@`(`(pDp `(J `.FF!!@H`p 8H(h( x (`(J Jp xFuuo>>`(p `PD((`P((`hA(J((Hp @@Dp@p u@˴>>X*3Z%PUTBK 92059-1X028 REV.6000 910607 Helps RELOC /SRC_92059/R6000/&MACR3 > >PUTBK ;; BJ$SYMB .DCO .DLD .DSTALCHD FDREL ICOLPCPOLLSDBIT SWAPI TPC ^PCS;cc22J` h (P2J x@@pp@1X("@1 ( @ p  ()JA  H`c@ՌLEEX%Z%LIT392059-1X028 REV.6000 910607 Processes the LIT(F) command /SRC_92059/R6000/&MACR3 E4LIT3LITF3 LITF?  .LDMP3 LIST3 PUTBK SETPC TPC TTRAV GGt%%pH`pP#@( p@ h"p8HH`#hx`$(G@FFX^Z%SCAN3 92059-1X028 REV.6000 910607 Scans for label and opcode /SRC_92059/R6000/&MACR3 F 9SCAN3 00 [ .CBT.LBTBATAB ERR.3 GTOK3 ICOLL.LBL L.OP LIST3 ^OP 0 7OP: 7EE`YXW( XU(PpDhPZ( PX( H]xHp\H@@1PPPA+1PPPP1PZ(+PX(+@(H]`@p(PHPZ(8PXH(8H]x8HH]P[(F(P` V''FI(M(P(PDxx(    :'@KKXomZ%"TDMP3 92059-1X018 REV.6000 910607 Sees if symbol is an ENT or an EXT /SRC_92059/R6000/&MACR3 KNEXT? TDMP3 ''.DSTERR.3 ICOLPOLLPRPLPXENT PXEXT SWAPI '  c BBA@H@x @fp`  ` ip5ph x`@h (3x 5p@h (>p 5@(@ x (^p`(XPg(RPh(R88zM   D `kh `j(_`l(_ :8@BaEEXƑ7Z%ABSG3 92059-1X018 REV.6000 910607 Does absolute instructions /SRC_92059/R6000/&MACR3 E 2ABSG3 IIs#CODE #DEFS $ICOL .DAD.DLD.DST .LBT.SBTDEF3 ICOL ILINE LINE# LIST3 PCPXDBL SUP?I   ZZo22A Hh x@ ( H6@x  `(-@hx h D` ('hH4`5@`@HpJAJZ@CCXf1Z%XRRG3 92059-1X018 REV.6000 910607 Does extended RR group /SRC_92059/R6000/&MACR3 C AXRRG3 // 4[#CODE .DAD .DLD .DSTERR.3 EXPR3 ICOLLIST3 PCPXDBL /  RR--H( @(* @p (*@0(*`P.0Dp   `/hH(<R@yGGXs(Z%EQU392059-1X018 REV.6000 910607 Prints EQU statement in Pass 3 /SRC_92059/R6000/&MACR3 G {EQU3 %%U#CODE .DLD?ASMB ERR.3 EXPR3 LIST3 ^STRT %44p(@'pP# P$ P%  @Dx`@(` 4e Hh`&H C@FFXL!Z%MRG392059-1X018 REV.6000 910607 process memory reference group /SRC_92059/R6000/&MACR3 F uMRG3 ]]o#CODE .DAD.DLD.DST.LBT?IND ERR.3 EXPR3 GTOK3 ICOL LIST3 LIT?LITR3 MRG? OPT.A OPT.Q PCPXDBL RCUBED? TPC ]~~-pDDD xhHP((L@`(x@`(I`P ((IDp(@p pP (숈P (P(p@(8ph (90pp`00pAH (~EJ==H((N(ADh(\P(\P (\P(\`(h(pP (P (P(  (pP ({((p@(`P((`P((߄Dp`0p jCChX (p(`P (hx0p` (܈D`0p`(p`  HPh`0@HppJA J `H(`0p` @(`YY,,0p(pH x`0p(ƈ`(`p(`(興P(`(`(`(`(`(H`h (  Y  22""   ;=|2@gDDXͥlZ%ASG.92059-1X018 REV.6000 910607 process alter/skip group /SRC_92059/R6000/&MACR3 D iASG. AA#CODE .DAD .DLD.DST .LBTASGTP ERR.3 L.OPL.OPC LIST3 OPSC3 PCPXDBL ^OP AAA`p\`Dp[hH Pc( (B8H Pb( PaD( Hkx`D@p(Uh\H (WP_(#P`(#(WhXe(6Xf(#CODE .DAD.DLD.DST .LBT ASG.ASGTP ERR.3 L.OPL.OPC LIST3 OPSC3 PCPXDBL SRG3^OP ICC`pm`DpnhH Pv( (D8H Pu( PtD( H}x`D@p(iPq( Pr('Ps(9(g@W0npDp `m@(g`nu(70n|0Dp `n(3`m@H(g`0npnhxmNNC**(Jponp`n@p  o`yQQQp`Hz0ps0{W`x(j`whH (DNNo ,@HgANNX9Z%%JSB.O 92059-1X018 REV.6000 910607 Generates a JSB . for XMRG group /SRC_92059/R6000/&MACR3 N <JSB.O }}#CODE #DEFS #WORD $ICOL .DAD!.DLD .DST.LBT".SBT?ASMB CREF3 DEF3ERRRFADFDVFSBFMPFINDM FOUND ICOLILINE L.OP LINE# LIST3 LIT?LITR3 MRG?MTYPE OPT.A }''<OPT.C OPT.I PCPXDBL RCUBED? SUP?TPC ^OP 'O  .   II@`0(!`()@`()'('( (hHP3h hX(|`P+D(|p8(   x@A! hH) `0P.(Uh 060(X @p_*/)_HHp`p@ D8 8 `@(` Dp h"h `P.h x(` P)(Hh X*(Dh`P+ (h `2Hhx` p@`phHx4hH"x8(@`p5phHDp`hVV,** (p@@, (H)5@h0P-((H*A0p(+(`h-xH@hx@(H8x VTDD@` (hDx`(hH+`7@` @Dp ` HP)(` P*((pDAh"('(@`(p@ H8 8 DhP1(P.(H8xJP3(! AJ `)`5;;ۥ##@Hp(p @J! JJ    0=_;@!%HHXZ% DEF392059-1X018 REV.6000 910607 Generates code for the DEF command /SRC_92059/R6000/&MACR3 H k DEF3 __0& #CODE $ICOL .CBX.CXB.DAD.DLD.DST.LBT.SBT ?IND BICTR ERR.3 ERR?EXPR3 ICOLLIST3 LIT?LITR3 PCPXDBL TMULT _   8 @@p DHxhp HHhxP䄈((($Dx` (Hp (΄p hHP(8Pވ(8P(8(8H`p h P(VP߈(VP(V`(QP(K(`LAA@(V(`@(@(dh (ƀ(D,x ` ppPڈ(P(@(Hp 0 Hp pp` Apֈ(H@ Hp p` ҈@pP(@11s(P8AP8 `(`@@h 1uuWCCHDh`  H(p D0 p p(h`H(h`H(h`HJ(AJ (  ;=u@(GPIIXyZ% DDEF3 92059-1X018 REV.6000 910607 process double word DEF in pass 3 /SRC_92059/R6000/&MACR3 I 3DDEF3 bb #CODE $ICOL .CAX.CXA.DAD.DLD.DST.SBT ?INDASTD3 BICTR ERR.3 EXPR3 GTOKI ICOL LINE# LIST3 PCPXDBL TMULT ^STRT b  KKH(dAl x (@h (_(_,xDhXt(axOh (a@plAHj`@x(WhlHsph0pi6qriphj@x  n`hD`kp h x h @  :N@ 55 PJAnJ` xh0w0O(/`uD(b`vh pjpk(65n}n %@;BBXW Z%JRS392059-1X018 REV.6000 910607 Does JRS special case /SRC_92059/R6000/&MACR3 B ~ JRS3 JJSB.O OPT.A N&H`ppHH`p@[GGX&Z%XDEF92059-1X018 REV.6000 910607 Gens code for a DEF or =L to EXT./SRC_92059/R6000/&MACR3 G ~ XDEF  Y.DAD.DLD.DST?INDPCPXDBL   :: `H0p`pp`%pA`$pJAJ  :@"BBX Z%DBRL92059-1X018 REV.6000 910607 process DBR and DBL /SRC_92059/R6000/&MACR3 BwDBL3DBR3UUF #CODE .DAD.DLD.DST.LBT?INDBICTR ERR.3 EXPR3 GTOK3 ICOLLIST3 LITR3 OPT.A OPT.Q PCPXDBL TMULT U^ p p  AAD xh HP((Dx ((HA(Dh ((P((P((P(((` x (4h (@hxh@pP(P(P(P( P(E( p p @`{{aN??(Rp ` 60p @h (` 0p h` (l` GHx `h Hx `h!(q@ pxhP x}` @` p HX(X(X((@ {33MJA J  `(`(`(`(`D(`h  (3))  ;=?)@!FFXZ%ASC392059-1X018 REV.6000 910607 Processes the ASC pseudo op /SRC_92059/R6000/&MACR3 F e ASC3 DD#CODE $ICOL .DAD .DLD.DST .LBT.SBT ?ABSEXPR3 ICOL LINE# LIST3 PCPXDBL SUP?D   q  GG@pp x(z Hx (z  (z (zxhxDHh x`Dph x(GhDxh x(Khx=aJA J8(%(}`hx`hxU%%Qa `p8(O(}%;;pb!!`(kD@h` @a`p `ap@H` p a x a` p  ;@IIX%UZ% !BYT392059-1X018 REV.6000 910607 process BYT instruction in pass 3 /SRC_92059/R6000/&MACR3 I wBYT3 LL#CODE $ICOL .DAD.DLD.DST .SBTATOI3 ERR.3 GTOK3 LINE# LIST3 OCTIN PCPXDBL SUP?^STRT Lآ>>pLpJp 8L`HX|(X}(X{((q`Xz(X~(CXy(CXO(Cq(`( 8I`xKX{((qhK(DhpM(1`hH hI`M hL(?H0pPpI ~>(p((TD(k` p (>Xr(>~\\7F00 (>@ (>`HAxJJ  H`Pr(bJJ hXp(kXr( Xu(kXq(k   \@jFFX0Z%#IOG392059-1X018 REV.6000 910607 Generates code for input/output/SRC_92059/R6000/&MACR3 F qIOG3 AA= #CODE .DAD .DLD.DST .LBTERR.3 EXPR3 GTOK3 ICOL L.OPLIST3 PCPXDBL ^STRT A   {AAp x@xh (dP(dh (g((O (y@xX @p (`@(`hX(A`X(2(A`X(7(`PD(:(`h P(@(`D`00 p h (Opx@WWqI--NvA(UU @ JA J `Dh(Op(APD(k(dh H P(tP(t(d`(AW 9w ggqy668X(}(`xX@H @x xv((` P(H(h P(P((H P(P(P(@(`p pX(O ;C_c5g@*5HFFXu9Z%$REP392059-1X018 REV.6000 910607 Process REP statement in pass3 /SRC_92059/R6000/&MACR3 F REP3 >> $ICOL .DLD .LBT .SBTEXPR3 GETL3 ICOLLIST3 MIC3OPSC3 RLST? SCAN3 SUP?>QQ:5,,Dh p (/  (/x,0D(/(` p DH`p($H($ (-X8(6H`h 8,H(p Q8- H($@ 00@p0AAXJZ%%MIC392059-1X018 REV.6000 910607 Does MICs in pass 3 /SRC_92059/R6000/&MACR3 A qMIC3 ooy#CODE $ICOL .DAD.DLD.DST.LBT.SBT DEF3ERR.3 EXPR3 FINDM FOUND ICOLL.OPLINE# LIST3 MAPUC MTYPE PCPXDBL RLST? SUP?^OP ^STRT o  vBBD`hD@hxhH@p`(`@@@@xxkn`kD(b`0 @p ph HP(Q`H 88k(1H(hh P(>(V p p `p(V8(OD 8`  ׊@@p ` `  h  (k`p (l`p ` `p   p ` @ p p `p`     0??D`@@`p`($p(I` PP(k`h  PŨ` P(3(I` @p8@(I(IH`hx 88(=(k`8hH`@R==@8`hp x `p ` p  x xH` P(o (I` @ p@(I(Ih`x 8` p `p h( 5`H xx@@8`@p PĨ׈p`h HxhH€ 8(Hp@p` Ap  `(p`pphD  x~x@SraKKXǰZ%1#END392059-1X018 REV.6000 910607 Processes the END statement after pass 3 /SRC_92059/R6000/&MACR3 K jEND3 }}@$ICOL .DLD.ERR.LBT.SBTCOFCCRECDBDMP DEBUG DNIT3 EOP.3 ERR.3 EXPR3 ICOLLDMP3 LINE# LIST3 LITF? NAM? OLREC OPT.A PUTBK PXDBL PXEXT RECRD SETPC }/TTRAV ^OP ^RECANN@ASSEMBLY.ERROR @`(`D@h`(` (D `phD`H@p`h D(1h`@(<`(<H`Dp h h @(tP(t(t (Qp`Dh yy`qPFFD` 8 pP(P(j8 D 8 `@@ @(i`((t`@D 8 @8 DD8 hH(}h`@ H(`Dh (t ;;Ey@ޟFFXtZ%2ATOI3 92059-1X018 REV.6000 910607 Ascii to integer converter /SRC_92059/R6000/&MACR3 F IATOI3 I.CBT.LBT.MPYERR.3 OCTIN ==xxxHpHshkrPm((8(`(hixhPl(&xx8pp` (Sphx@qhXk(;Pi(KPj(KA@(SXi(C(Sp8WW_E//(*h  `ohH(e3276 8 `Ps(W(bh`RAh(_(b(b`p `nh -BW@BNNX'Z%3%ITOA8 92059-1X018 REV.6000 910607 Integer to octal ascii conversion routine /SRC_92059/R6000/&MACR3 N E ITOA8 J.DIV.SBT  <<3 xhx A$H% 8 h X ((h` @&Hp ` P( 0<@gFFX Z%3BRAK3 92059-1X018 REV.6000 910607 process break in pass 3 /SRC_92059/R6000/&MACR3 F BBRAK3 ,, .ERRBROKN DNIT3 DNITM ERMSBUF FMPER GETERLN SENDMS,##ʌ`h@( Dp8D #@ZyWKKXZ%4"PXENT 92059-1X018 REV.6000 910607 Makes an entry to the XENT record. /SRC_92059/R6000/&MACR3 K T PXENT AA $ICOL .DLD .DST .MBT.MVW .SBTCRECERR.3 ILINE LINE# LIST3 LRECRECRD ^RECA J  ;; p8 P(P(P((`@p(!pP((!0p`  (/XȈ(,(/`PĈ( p(;`5p(= x8  p5H0ww\E>>@pH`@@@(R`P(U`p8`D8  hH`H x8  8 A ` `D@ph` 5p`Ax w $h@  ``%55`ph`H 8(8  p8  8 hA `p`h`hDH x @    `@7UCCX'Z%5DEC392059-1X018 REV.6000 910607 process DEC in pass 3 /SRC_92059/R6000/&MACR3 CёDEC3DEC?nFPLIT ^FNUM YY #CODE $ICOL .DAD.DLD.DST.LBT.SBTATOFP ATOI3 ERR.3 F.IDI GTOK3 ICOLLINE# LIST3 PCPXDBL SUP?^STRT Y<<pppp`HX('pH`pX(*X(;X(MX(Y`h@`HX(X刈(^X(^X(^(`H( x`h xpxX(;X(MX(Yh(h Z<@@HP(Mh (I8HphHHDx`hH(hHx (aH``H(hP(M(apD`h`(l (`(U`D`pX∈(~X(~Xለ(~X(~X//vf|((@hHx (8npJnhHP(~(/ V ssDDH`h`(`(@@`pDh  p AD h p`(@`(Dph (@h p D`h JA J 8s@.EP_ @w7==XJiZ%6DEY392059-1X018 REV.6000 910607 Does DEY/DEX /SRC_92059/R6000/&MACR3 =BDEX3DEY3bb>pGpIpV`X()pJ`HpX(,X(,X(,XD(:`h `ThG  HW`X(X(?X(?XO(?H(`( `hG @DhHx H(`hGDW(hP(,6> (pG`Bp(wNPssVCCpU HxH`V(e @ WUDx mON O`I(spI(}`(x@p`@(h   N8U8H(e8VW.P s@˃CJJXqZ%8!ATOFP 92059-1X018 REV.6000 910607 Ascii to floating point converter /SRC_92059/R6000/&MACR3 Ji[ATOFP F.DID F.IDI .DIV.DLD.DST.MPYEXN.F ICH.F jhFF` 0+-.,; E(&p;h((hp;x<`;((@P(2p;`h<()@|(9@{@<px(rh X (m`@hLCC @xp8(f`zhyĈ h 8  @!(aH(]`pph`x =Hx(A`@8=`P=@{(R2Pd} N azh&JJ(A8A5 @A@ @A@p`A6pA A A pQQ@(((ʄ(`(x(`pppp`??0pph`ph`xp`߀h pU` h  @HU xUP(@(`h  (( x@ppUpXHxh !(*xVeDD@(%`U6 WW  VHXVhVX xWHxV(pU@pXHx`pVpW@ pY(J8VHXPHXSpZ8WWU50ZV8Y(A0~~Um\88p `p `pp`ވph 8(gpppp p p p(u8 8  (P(P(P(P(P(P(ӈP(P(((@8 8 ((8 8 ~@@h H Hhx (u8=(u@((((㈈p(tp (t(((8 (t((Ƅ(t (@8 (s (s(h DhH  $(@@(((㈈((((` [=h Hx `0(܈h 8HH(`h(6  0 ( A`pppp!(   (e @{;@@XZ%9ICH.F 92059-1X018 REV.6000 910607 part of ATOFP /SRC_92059/R6000/&MACR3 @EXN.F ICH.F  Ke.LBT^FNUM ..ǻDhxhH ( H (  D`ph(.@0NGGXZ%:DBDMP 92059-1X018 REV.6000 910607 Dumps symbols for debug record /SRC_92059/R6000/&MACR3 G = DBDMP 22 G$REC.DLD .DST .MVW .SBTCRECOPT.C POLLRECRD SWAPI ^REC2 >>@xH@p@pX̨ pǀp5ph (-@@hp5 xh HxDp@@hHH (:`P̈́(Epp`pp`@p`1SG@@@h @ψ@h`@@p`C([5@DpXh P(oP(Pˆ P(yPĈ(P((D8  8H8( xH0DA8!( ,JJJD 88p(H@ @(H @(pH8HH8`H08`Dh ` ( @H` `0 Jx8    *@aEEX-JAZ%;LOADREC392059-1X018 REV.6000 910607 Processes loadrec command/SRC_92059/R6000/&MACR3 E LOADREC3 22 .DAD .DLD .DST?ABSCRECEXPR3 GTOKI LIST3 PCRECRD ^REC2rr??`:pHp(- x @(- A `?X>(-X<(-X;(-X=((-(-@>XP 6TTRVX 92059-1X019 REV.5000 861110 Does symbol dump &MACR4::SRC_92059 > WTTRVX 00 (.DLD .DST .MVWLINKLNODE POLLPUTIM RDUMP SWAPI ^HEAD 0  ff2 11h7x8h8x9J1f`A(1f(@`8@H`fO`(0`8P7(,(`9P8(6(1f(@@6f 8;;/ ??2A 8`8@p8P9(:1D`hxAh`7 `9`9p9P:(M`7p811?33P`8P7(V@p8O`9P8O@p9@Hh7A `9p8O399}g p`8@ /@0@@`/A /`@p/ f9@8WG;;X~'P 7RDUMP 92059-1X019 REV.5000 861110 Helps XREF &MACR4::SRC_92059 ;p9LINEXR OUTMgRDUMP tt #LINE .DLD.DST.ERR.LBT.MBT.MVW.SBT DNITM ERMSBUF FMPER FMPWRITEGETERLN IFBRK INTOA LPGE# PAGE# PHEAD POLL SDCBSENDMSSWAPI XDNIT ^SNRt q @@-- @~3V'77E;%% Symbol not referenced (except as entry point) . . . . . . . . . . . 79g@@`@H@x`@pa``pb`pc@hHb`b@!p7`] (`7@&p7A`] 7`3p2`c@a@$x8x9pc`8h2l`@ `2x2Hh P~~n@@((H&`@H P((H&`H`c(h2D`A g`pp`(@88`pP((p`@%px8~~~}k>>x9h4H2 ( h3x2`8h2lHx2`P(( `g`h (X@"hH`X4( @g` @@ (5(H08`hD : `:A(W' :~ss%>>`:(W0 :^`:(Wp D8 8([h`H&(<H  xfAK :f`:(W`5`5Ah  hD  `h H(XH8(Ys ud \\%l00xc (s xehd`d@pk@#pdhc(`H8d(`dAk`9(``9``el`HH&l \++    '()*-.:O 1 +@ )CEEX:P 9XDNIT 92059-1X019 REV.5000 861110 Cleans up after XREF segment &MACR4::SRC_92059 E 2XDNIT FDNITM NAMFD OPT.A PASS# u,`(` p( ``p@m((%MACR5::RTE_6:5:14:128 644 0 0 7000 5310706726 33611 %MACR5::RTE_6:5:14:128 $%MACR5 +#+#+# "FST BBXZ)3MACR5 92059-16020 REV.6000 910607 Macro absolute pass /SRC_92059/R6000/&MACR5 B `(MACR5 }} .DLD.DST.ERR.LBT.SBTDNITA DNITM ERMSBUF EXECFMPER FMPREAD FMPWRITEGETERLN IFBRK INITA ITOA8 OPT.A PAGE# PC POST PUTARDCBSDCBSENDMS SETUP TRMLU } {o^FMPLSTFN [(BB pA.(3=(,(:`h(DD8 @AD"(:P(J5p`( h (:`"P(V(`#( xCX(_(@P(iP(g(8=(`!!jBB@p 8 p&`Hp  8 p`P(p`p@8(|= p8 p(|`倈8 ::8 8 8 8 8  H 8  8 p( H (̠ HP((H` 8 (`8( 8  8 ( ((kk{66h(8h H` `H  x x A `H(hP   hH(h(;``k ( #" $$AGHI  1|$@(AAX'Z)5ITOA8 92059-1X020 REV.6000 910607 Integer to octal /SRC_92059/R6000/&MACR5 A E ITOA8 J.DIV.SBT  <<3 xhx A$H% 8 h X ((h` @&Hp ` P( 0<@ūkEEXHOZ)5INITA 92059-1X020 REV.6000 910607 Initialize absolute pass /SRC_92059/R6000/&MACR5 EFINITA MDCBbb\.SBTDFALT DNITA EOP.A FMPCLOSEFMPER FMPIOOPTIONSFMPOPEN FMPPURGEFMPRENAME FMPREWIND FMPSETIOOPTIONS NOREL OPT.A RDCB ^FMPRELFN bhh99`(Dh `MI DKhLPH(7(A (IJhL(A`JA0NpJ 3IJhL(A(:`IA(A> I(AD ( COW h K0@ @MlCCXvZ)6DNITA 92059-1X020 REV.6000 910607 Absolute pass cleanup /SRC_92059/R6000/&MACR5 CDNITA POSTPUTASETUP WWDEBUG DNITM EOP.A FMPCLOSEFMPER FMPPOSITION FMPPURGEFMPTRUNCATE FMPWRITE MDCBPAGE# PC RDCB ^FMPRELFN ^FMPSFILE W c A eZ }}@@  (h`D  px A(@ `( `P(@Ph x`pԀ8}ttY)998 ` p`p@`ph 8(hHx`pA `(hHHxp`鈈@phH@|t@"AF(^X(^X(^(`H( x`h xpxX(;X(MX(%MACR6::RTE_6:5:66:128 644 0 0 41000 5310706727 34315 %MACR6::RTE_6:5:66:128 $BB%MACR6 +#+#+#B "FST EEX1/ȗ MACR6 92059-16021 REV.6000 921027 Macro library management /SRC_92059/R6000/&MACR6 E"ENDIT )FERRMACR6 JJBRAKM COMMT DNITM ENDINCL ERR.M FMPER GETLM IFBRK INCL? LISTM MDNIT MMNIT OPSCM SCANM JVV//H(D`( HA ( HP-((P.('((H( `,H@ (`D($  H((H( ("V@۶KKXֈȗ "MDNIT 92059-1X021 REV.6000 921027 Clean up for library management mode /SRC_92059/R6000/&MACR6 K e3MDNIT | #LINE $HSTB6$OPREV6 &.DLD'.DST.ERR.LBT(.MBT.MVW).SBTDNITM DREC$ERMSBUF EXECFMPCLOSEFMPER FMPPOSITION FMPSETPOSITIONFMPTRUNCATE FMPWRITE%GETERLN INTOA LDCBLINEWWQLINK#LISTM "LLENLNODE !LPGE# MACREVOPT.T POLLPUTIM REDEF SBAD? SWAPI TDCBTRMLU VMAFLAG ^FMPLSTFN ^STBL W   LL Macro/1000 Rev. : No errors total @B`h@`(p`(qH`p `p p `p`p `pp (kp p(_`  8 `]BB 8 `(k85@ p (U8 8 8 (N h` ` ` `` pp @ph (` P(8 ((p( @Ҁ"DDx1p2 1( `h( 8(`@(``(Ĉhx x!h/Hh`((ƀ`@p.`.pA Aߡ `h( MM((hP(A A.  (` hD Axp  ( H33M   t )CCH`h% @p"5p`h@` Dp!#hnxohoxp x`hh` (>A& h(5`o@@A&'@H@hHp"H`h("D`)#`22k[`(f`oPn(b(>`pPo(l(>&h(5`wwm2 orrf ??iA'o`o@poPp(qhD`hxAh`n`p`pppPq(`npohh?33`oPn(@шpo`pPo@pp@HhnA`ppo3\\_55p`o@&'f@g@@&`fA'f` @p&f'$$ -1 \@H@@X]ȗ MMNIT 92059-1X021 REV.6000 921027 Initialization /SRC_92059/R6000/&MACR6 @ OMMNIT xxM#LINE .ERRCOL COUNT DNITM DNITX ERMSBUF FERR FIRST FMPER FMPOPEN GETERLN LDCBLISTM LLENLPGE# MACLM OPT.M SENDMS^FMPLSTFN ^FMPNMBUF ^NTAB ^STBL x   UII $COW `Ap Vp`D(&hX`(8PW(8P (8@[(8`YhUDD@8`H(>`p(B@D`pH` p` @\(Qp H` 8 @ZNOH@p (Eh H@|AAX$ȗ MGLOB 92059-1X021 REV.6000 921027 Global variables /SRC_92059/R6000/&MACR6 A|| T$ICOL A$ILNE O$OCOL .QV?LIBFAIFS? XARRFG ZASIZE ]ATVFG RCCOLSCOMMT YDIMEN [DLIST DDONE1 NICOLILINE BINCL# IL.LBL |tt^HL.OPbLDCBULILNE JLSTRCMACCL _MLINE KNOOPR POCOLQPCOL\PSFLG aREDEF ^STRPT GTTYPE WURDEF EVLABL L^OP M^OPRN t   A K ##NP#@>>XJȗ SCANM 92059-1X021 REV.6000 921027 Scans lines /SRC_92059/R6000/&MACR6 > 6SCANM !!Z$COL.LBTCOL COMMT L.OPMACDF ^OP !@@DphHPE(!PD(!PF(APH(APG((`(HPF(AhHPE( PD( PH(A(DHxhPE("(APH(APD("HIDxPE(4PD(4(-HI`@DpPE(9PD(9HIx1@ Hp *.;@a!AAXȗ GETLM 92059-1X021 REV.6000 921027 Gets source lines /SRC_92059/R6000/&MACR6 A 7GETLM  $COL $LINE .DLD.DST.MBT.MVW.SBTBRAKM CHUNK COL EXECFERRFMPREAD FMPWRITEIFBRK INCL? INDCB ITALU LDCB LINE LINE# LLENMACL? MLINE OPT.M READL SDCB^FMPINBUF ^FMPNMBUF HHD`(a@`(+((^ } (p5p@ ( ` 6HH`z`^(J`hA{ @`^`(74^]y`^@(GhA (EA^ |(E5Hp`^ ''{ID8 hDx `(Y8@ @H`p@]_' 1_ ==a@` (Y(Yh_H x`@J h`Hy@~@p `h J(J @~=@3HHXނ ȗ! BRAKM 92059-1X021 REV.6000 921027 Processes the break condition /SRC_92059/R6000/&MACR6 H BBRAKM && .ERRDNITM ERMSBUF FERRGETERLN MDNIT SENDMS&y ` h @D8D @t>DDX}ȗ! LISTM 92059-1X021 REV.6000 921027 Generates listing lines /SRC_92059/R6000/&MACR6 D{LISTM  LISTX LPGE# YYI #LINE .SBT?SBHD FERRFMPREAD FMPWRITEHED?HEDBF INTOA LDCBLINE LINE# LLEN OPT.L OPT.Q PAGE# PHEAD SBHDB YUU0--H`hw Dp` 0  H|x+ 6H`z5`A@xp"+`('hyH8  1 $( UX5AA`@ A5A.x`(%Hp8`h1DP {`@(%`(`\`(%8`A(mi`(%8As2x`(%v5 O@@JJX@ȗ! "SKP692059-1X021 REV.6000 921027 Performs the SKP and the SPC command /SRC_92059/R6000/&MACR6 JSKP6 SPC6// #LINE .LBT.SFBCOL DECIMALTOINTERR.M LISTM LLENLPGE# /`peeo88#p#p`@@@@@(!Hp` p8(  H@hx @#`?Ax H x 7hH #`>H ,e@4GGXeKȗ" SUBHD 92059-1X021 REV.6000 921027 Processes the SUBHEAD command /SRC_92059/R6000/&MACR6 G]?SBHD SBHDB -SUBHD &&.MBT.SBT.SFBCOL ERR.M LISTM PAGE# SKP6&  q, 77.Dh`@p@JH(D`h,A`H88HH-`IH- =7@ IIXKȗ" !HED692059-1X021 REV.6000 921027 Processes the HED command on pass 3 /SRC_92059/R6000/&MACR6 Ia-HED6HED?HEDBF .LBT.SBTCOL LISTM SKP6  q+ ==-`Jp*h+Dx,hx(> v .CBTDELTM EXTRM HED6INCLM L.OPMACLM MACRM MAPUC SKP6 SPC6SUBHD ^OP >"XX MACRO ENDMAC  INCLUDE MACLIB DELETE =XXX EXTRACT  SUBHEAD HED  SKP  SP22S""C END 2WW**`p`Dp` h xhP (Hx(H ` (hHx8Ҁ( `Հh  W@h(LLX5o>ȗ# #OPCHK 92059-1X021 REV.6000 921027 Sees if a macro name is also an opcode /SRC_92059/R6000/&MACR6 L >OPCHK ""U.CBT.LBTHASH6 L.OPMAPUC OPT.A ^OP "ee33@h`p8pP=(888(h`x:(.x6p5YBBHHP"(K`@p@(|`(` xDh (nX(x(~P(uP(u((~Hp`pD(| (`((H(` (`HJ`#`p`(AG! p`GiMCC(`pG$%(`(8(&!!  (`"hA#`GH `G ph (`P (ʄD` (((((` hA`@hpxD `kk%@@(AG(pG((Dh# pD`p8''(8''`p'`hA@h( #'@K k@9DDXYȗ$ TTRVM 92059-1X021 REV.6000 921027 Traverses macro library /SRC_92059/R6000/&MACR6 DCHUNK TTRVM ++ $COL.DLD.DST .MBTINDCB LLENMACRM MLINE READL +   ~~ˎ<<H(P`W`p`Rp`Tp`P(P(P`PT(( `PQ( 8(hH()8`Tp(V5HHS@U@@pJD`hHx@J~00.@hHR@Xp`Jh (0@(hG(DDXw.ȗ% READL 92059-1X021 REV.6000 921027 Reads a library record /SRC_92059/R6000/&MACR6 D 6READL 22.MBTCHUNK FERRFMPREAD FMPSETPOSITIONMACDCB^FMPINBUF ^FMPNMBUF 2  NNx(( @-"px,`(&A`h+ ``P-8@N@g'GGXm^ȗ% MACRM 92059-1X021 REV.6000 921027 Processes a macro definition /SRC_92059/R6000/&MACR6 G:MACDF XMACRM $COL#.DLD$.DST!.LBT".MBT .MVW%.SFBALPHA ALPHN COL COMMT DNITM DONE1 DORX? EOP.1 ERR.M FATHR FINDM FOUND GETLM L.OP LINKLINKU LISTM LISTX LLENLNODE 33 TMAPUC MTYPE OPCHK OPSCM POLLPUTIM REDEF SCANM SWAPI ^OP 3    rEV, rYEEH`Tp `pW5p`AhVA (O@p`D(fh`x`(ph!@(8D(!((8(H(`W(I@`5p @ p pHH`h 8`(`WHhU(pGG`[p`W5@S@@pH@Rhh`V A"W# $$Hp`Dhx hH (`XH(Ih Dxph @ `0 8h    @`5 // x#$` H@PZ(`@R h D# $(/iFFpp( (O`D`D(h!PV((P]8PR8`(Eh@xh@% H5HSx@Rhp`@@\p`5J `@H  @p# $$`P(I**'H(pX8XX`YHX.@*@t 88XrAȗ& DELTM 92059-1X021 REV.6000 921027 /SRC_92059/R6000/&MACR6 8h[$DTAB DELTM EXTRM ^DNXT ''][.LBT.MBT.SBTCOL ERR.M GETLM LISTM MAPUC '   | @@hxhDxP<(P;(P>((P=((xH@p`@p@@(8`hHx`hHA`x`P88X`!ȗ& DORX? 92059-1X021 REV.6000 921027 /SRC_92059/R6000/&MACR6 8 NDORX? $DTAB .CBT.DST((.LBTDEL?>>`D(h(P(H( `(( ( `P 8`P8>@5TGGXoȗ& ALPHN 92059-1X021 REV.6000 921027 Sees if a character is alpha /SRC_92059/R6000/&MACR6 G :ALPHN BATAB 11ziHp@@ 8`1@NNXȗ' %ERR.M 92059-1X021 REV.6000 921027 Reports errors in library management mode /SRC_92059/R6000/&MACR6 N &ERR.M &&ޥ.ERRERMSBUF FERRGETERLN INTOA LISTX LPGE# &##,h Hp@h D8#@ӶvG :ALPHN BATAB 11ziHp@@ 8`1@NNXȗ' %ER%MACR7::RTE_6:5:11:128 644 0 0 5400 5310706730 33710 %MACR7::RTE_6:5:11:128 $  %MACR7 +#+#+# {"FST GGXz2Z&&MACR7 92059-16022 REV.6000 910607 De-initializes after last pass /SRC_92059/R6000/&MACR7 G VMACR7 {{-#LINE 6.CFER /.DLD.ERR1.LBT2.MBT..MVW#?ASMB 'BROKN DCBOPEN &DID3EDCB4ERMSBUF ERR.F EXEC%FMP?FMPCLOSE FMPER FMPERROR FMPPOSITION FMPPURGEFMPRENAME FMPRUNPROGRAM {zz FMPTRUNCATE FMPWRITE5GETERLN IDCBINAMR INTOA MACREV!OPT.A OPT.M "OPT.O +PAGE# )PASS# ,PHEAD POLLPRTNRDCB$SBAD? SDCB3SENDMSSWAPI TDCB(TRMLU 0TTRAV UDERR z118^FMPIFILE ^FMPLSTFN ^FMPNMBUF ^FMPRELFN ^FMPTFILE ^HEAD *^SHEADHD1==1<** Macro/1000 Rev. Macro: No errors total    = uyJ*$ j1  x   P0 ~ZNNERU,OLDRE, 1  `@8@-`}phH8+`+hH hx`h`*h|heEExpA`Hh~ (Z`wh.D`$0%@0'(Z`@/(Z`-pHh6`~0(Z8x7@H@7hp|5p}H~`hz.}hyH `|@h{~~S??`h{.8` A (qaD` h (hl(hhHA (huAx` (h@`!((`(AA(A ~IVBBhH( (`hD pxA (@`"(`(D@`$0'0%H(h1P(`h2A (p`hy5CCD(38AhH HH1P(HHz`3( (@`@Hp`(H`hy5(@3`(`8`h  @`)P{(VP(V`p{`A( @@`h~( (R`(2hy`H5(p6A4/4@`(8{`(A A(`hD pxA P(hH1P(htt W@@\#(`(h`p!h#(4!lpsAv,44@ *  01@AO Macro: 1 t@zpp%OLDRE::RTE_6:5:27:128 644 0 0 15400 5310706730 34240 %OLDRE::RTE_6:5:27:128 $%OLDRE +#+#+# z%"FST 77Xr| Z~ 8OLDRE 92059-16023 REV.6000 920904 /SRC_92059/R6000/&OLDRE 7 OLDRE }} $CVT1 .DLD.ENTR .MVWATRAN EXEC FMPBUILDPATHFMPCLOSEFMPFILENAME FMPOPEN FMPOPENSCRATCH FMPPARSEPATHFMPPOSITION FMPPURGEFMPREAD FMPRENAME FMPREPORTERRORFMPTRUNCATE FMPWRITE}y5IFBRK LOGLU NAMROUT PRTN RCPAR  = @~ %_ @ UU @,l @p TZWCROAGpGA S=(`h`A `?8A Oldre: Break acknowledged  TG \( =( _YMM_`h` `?8누(`h` `?(A= S(`sh` `?8(P(`h` `?8(=(A =&A "_&@x#HH*_ S_2 TG a4(<* ip@p``((a@ (Vph+(T`8(PX,(^`Zh` `?8(`+A(jg*(2h~~k@@ |P y(2 xP X(s(a` oP _(aP Y(2P Z(!hH  ((@(a((((((`h` `?8(2`(AA=pA~770`hʂD pxA _=p(7 &  )- b ~AA0C`3 kp `3 jp3` pph qxxx`Bp gph Hxh (3@ (.(]`E {0 bpE` h h` A [` g(Gp@ }(C` cssB<RVZ^bfjrvzG`` $,048<LPXDELETELISTLIT LITFMWW UJP SSA4SSB4UJS DEX DEY JSB SAE8خt``JRS SSM ARS8RELOC ASC "STA STB REPEATREP STC STCCORB STF ASL SBE8ORG SAX SAY CLA7CLB7ASR XSA CLC CL``CCSTO XSB CLE5CLF SUBHEAD ORR SBS IFN SBT MIA MIACMIB MIBCSTX MIC STY CLOCALFSB SBX CLO SBY CMA7CMB7L4``FAD SUP CME5ABS IFZ OTA OTACIGLOBAL OTB OTBCXAX WEXTXAY UNL ADA ADB XCA BREAK DIV XCB CMW UNS LOADRE``C XBX XBY LOD "DJP EXTRACT EXT HLT HLTCBRS8DJS SWP AWHILE SFB SFC ADX COL ADY COM OCT AELSE AELSEIF SEXTב``AENDIF AENDWHILE CPA SEZ6CPB BSS DLD SYA SYB TBS SFS PAA PAB SZA1SZB1FDV PBA PBB USA USB MNOTE !PCALILOCMwT``ALLABEL LAE8CSETLSL AIF LSR LST INA2INB2INCLUDE ELA8ELB8LBE8LAX LAY SJP XIF SJS CAX CAY LBT EMA MPY d``CCA7CCB7LBX CBS LBY CBT SKP CCE5SLA3SLB3CBX CBY LDA JLA GEN "LDB IOR JLB RPL ENDMACENDREPBYT END 4``FIX ALF8ALLOC MSEGMACRO MACLIBENT ALR8LDX XLA ALS8LDY XLB JLY CDS NOP JMP LFA LFB CXA CXB RRL MBF DSt``T XMA XMB MBI AND RSA DSX RRR DSY RSB SOC SOCCDBL MBT CYA XMM ISETCYB FLT HED MBW DBR RAL8RAM XM1``S RSS0SOS SOSCSPC RAR8CGLOBAL FMP ERA8ERB8EQU ISX RBL8ISY ISZ DDEFBLF8RBR8LIA LIACLIB LIBCMWF MVW ;;4))MWI BLR8BLS8XOR DEC JPY RVA DEF RVB NAM #;@n88Xyq8 8OPTABLE292059-16029 REV.6000 910607 /SRC_92059/R6000/&MACRL 8wHASH2 #HASHD2HSTBL2~~.DIV.LBT"ALLOC ASC BCOM2 BSS BUMP BYT %CDS COM 'DEC DEX DEY DLD.2 EMA !ENDP2 $ENT &EQU EXT GEN JSB.2 LDREC LIT LITFLOD LSTOP MIC MRG2#MSEG~11 +(NAM OCT ORB ORG ORR PCAL2 RELOC REP RPL SEXTWEXT1lYYpH@pH@ H 88GLQV[`eoty&0?DINX]blvfY`` #(-7<AFPUZ_dioty``~#-27BGVoty~#}} PP(-27AKPUZ_isx} LIT LITFMWW UJP  SSA4SSB4UJS DEX  DEY  JSB }fiHHSAE8 JRS  SSM ARS8RELOC  ASC  STA STB REP   STC STCCORB STF  ASL JJSBE8ORG SAX  SAY CLA7CLB7 ASR  XSA CLC CLCC STO  XSB CLE5CLF SUBHEA}}}HHD  ORR SBS SBT MIA  MIACMIB MIBC STX  MIC STY FSB !SBX  CLO SBY }CHHCMA7 CMB7 FAD !SUP CME5 ABS  OTA OTACOTB OTBC XAX WEXTXAY ADA TJJ ADB XCA BREAK  DIV XCB CMW UNS LOADREC XBX  XBY LOD DJP EXT  HLT HL}}HHTC BRS8DJS SWP SFB  SFC ADX ADY COM  OCT SEXTCPA SEZ6 CPB BSS }pHHDLD !SYA  SYB TBS SFS PAA  PAB SZA1SZB1 @FDV ! PBA PBB USA USB  eJJ PCALLABEL LAE8 LSL LSR INA2 INB2 ELA8ELB8LBE8 LAX  LAY SJP SJS CAX ((EHHCAY LBT  EMA MPY CCA7 CCB7 LBX CBS LBY CBT  SKP CCE5SLA3 SLB3JJ CBX CBY LDA JLA  GEN LDB IOR JLB  RPL BYT END !FIX  ALF8ALLOC "MSEGAHH#ENT $ALR8 LDX XLA ALS8 LDY  XLB JLY CDS %NOP  JMP LFA LFB CXA ԵII CXB RRL MBF DST  XMA XMB MBI AND  RSA DSX RRR DSY  RSB SOC SOCCHHDBL &MBT  CYA XMM CYB FLT  HED MBW DBR &RAL8 RAM XMS RSS0 SOS II SOSCSPC RAR8 @FMP ! ERA8ERB8EQU &ISX  RBL8ISY ISZ DDEF& BLF8RBR8LIA &cHHLIAC LIB  LIBCMWF MVW MWI  BLR8BLS8XOR DEC ' JPY RVA DEF &RVB  ' NAM (#@i)88X_q8 8OPTABLE392059-16029 REV.6000 910607 /SRC_92059/R6000/&MACRL 8xHASH3 #HASHD3HSTBL3{{.DIV.LBTA.SRG ABS3ABSG3 ASC3ASG.BREAK3BSS3$BYT3COM3&DBL3(DBR3,DDEF3 -DEC3.DEF3DEX3DEY3%END3+EQU3'HED3 IGNOR3IOG3JRS3 JSB.O !LABEL3 LIT3 LITF3 {VVGkLOADREC3MRG3/NAM3OCT3ORB3ORG3ORR3 PCAL3 )RAM3RELOC3REP3#RPL3"SKP3*SPC3SRG3SUBHEAD3SUP3UNS3 XRRG3 VYYpH@pH@ H 88JPV\bhnz%+1CUasyt_Y`` *6<BHNTZ`frx~"``!'-3?EKWco{$*06BHNZ`l~RTT &,2>JPV\bzLIT  LITF 0MWW Ǡ 0UJP 0SSA40SSB4 0UJS ߠ0DEX 0DEY _mLLJSB 0SAE8pJRS 0SSM ̠ARS8@RELOC  0AS C 0STA p0ST B xREP  ST C 0STCC ORLL B 0STF @AS L  0SBE8 0OR G 0SAX  0SA Y  0CLA7 CL B7 ASR   0XS A  CLC  CL CC :MMSTO  A0XS B  0CLE5 CL F @0SUBHEA D 0ORR  pSB S  SBT  MI A 0MIAC MI B MIBC 0STX ERLL MIC  0STY  FSB  SBX  0CLO A0SBY  0CMA70CMB7FAD  0SUP 0CME50ABS @MMOTA 0OTAC OTB 0OTBC XAX  WEXT 0XAY  pADA @ADB HXCA  0BREAK  DI V  0XCB PLL CMW  0UNS LOADREC 0XBX  0XBY  0LOD  0DJP ڠEXT  HLT 0HLTC BRS8 @0DJS 0~~7LLSWP @0SFB  0SFC pADX  pADY  COM 0OCT SEXT CPA P0SEZ6 pCPB X0BSS 4DLD ~_LL 0SYA 0SYB ȠTBS  0SFS 0PAA 0PAB ʠ0SZA1SZB1 6FDV 0 0PBA ˠ0PBB 0USA ɠ0USB LL0PCAL 0LABE L !0LAE8 @0LS L  0LSR  0IN A20INB2 0EL A8ELB8 0LB E8 @0LAX  0LA Y  MM0SJP  0SJ S 0CAX  0CA Y  LBT  EM A  pMPY  0CC A7CCB7 0LB X  CBS  0LB Y  CBT  "hLL 0SKP "CCE50SLA30SLB30CBX  0CBY  LDA `JLA  0GEN  LDB hIOR 00JLB  RPL |^LL#BYT $0END %0FIX @ 0ALF8ALLOC  MS EG ENT  AL R8LDX  0XL A  ALS8 LD Y  qMMXLB  JL Y  0CDS  0NO P 0JMP (0LF A 0LFB  0CX A  0CXB  RR L @ 0MBF  0DS T  0XMA TMLLXMB 0MBI   pAND RSA ؠ0DSX  RRR @ DSY  0RSB ؠSOC 0SOCC tDBL &MBT  CYA cLL 0XMM Р0CYB  FLT P HED '0MBW Ġ tDBR (0RAL8RAM )0XMS ѠRSS0SOS SOSC 0~~E9LLSPC *0RAR86FMP  0ERA8@0ERB8 @EQU +0ISX  RBL8 0ISY  0ISZ 8tDDEF,0BLF8 0RBR8 ~0q1LLLIA @0LIAC @LIB @0LIBC @0MWF  pMVW  0MWI  0BLR8 BLS8 XOR DEC -0JPY  0RVA ++>+}DEF .0RVB NAM /#+@F0d88X*Xq8 8OPTABLE692059-16029 REV.6000 910607 /SRC_92059/R6000/&MACRL 8''&$HSTB6$OPREV6 HASH6 #HASHD6HSTBL6' C.DIV.LBT YYpH@pH@ WH 89=@ILORUX[adgqtw&Y``",28=@CFIW]`dgjmsvy``  !'-369<ENQ_beltw'``  !$'-369<?KNTDELETELISTLIT LITFMWW UJP SSA4SSB4UJS DEX DEY JSB SAE8JRS SSM ARS8RELOC ASC STA STB RE y``PEATREP STC STCCORB STF ASL SBE8ORG SAX SAY CLA7CLB7ASR XSA CLC CLCCSTO XSB CLE5CLF SUBHEAD ORR SBS IFN SBT MIA MIACMIB MIBCSTX MIu``C STY CLOCALFSB SBX CLO SBY CMA7CMB7FAD SUP CME5ABS IFZ OTA OTACIGLOBAL OTB OTBCXAX WEXTXAY UNL ADA ADB XCA BREAK DIV XCB CMW UNS T9``LOADREC XBX XBY LOD DJP EXTRACT EXT HLT HLTCBRS8DJS SWP AWHILESFB SFC ADX COL ADY COM OCT AELSE AELSEIF SEXTAENDIF AENDWHILE CPA SEZ6CPB M``BSS DLD SYA SYB TBS SFS PAA PAB SZA1SZB1FDV PBA PBB USA USB MNOTE PCALILOCALLABEL LAE8CSETLSL AIF LSR LST IN((A2INB2INCLUDE ELA8ELB8LBl``E8LAX LAY SJP XIF SJS CAX CAY LBT EMA MPY CCA7CCB7LBX CBS LBY CBT SKP CCE5SLA3SLB3CBX CBY LDA JLA GEN LDB IOR JLB RPL ENDMACENDREP,lY``BYT END FIX ALF8ALLOC MSEGMACRO MACLIBENT ALR8LDX XLA ALS8LDY XLB JLY CDS NOP JMP LFA LFB CXA CXB RRL MBF DST XMA XMB MBI AND RSA i``DSX RRR DSY RSB SOC SOCCDBL MBT CYA XMM ISETCYB FLT HED MBW DBR RAL8RAM XMS RSS0SOS SOSCSPC RAR8CGLOBAL FMP ERA8ERB8EQU ISX RBL8VVu5??ISY ISZ DDEFBLF8RBR8LIA LIACLIB LIBCMWF MVW MWI BLR8BLS8XOR DEC JPY RVA DEF RVB NAM #V@cm-DDXt}q8 8TTRAV 92059-16029 REV.6000 910607 Traverses binary trees /SRC_92059/R6000/&MACRL D D TTRAV KK9x .DLD .DST .MVWERMSBUF FMPER GETERLN LFREE LINK LNODE POLLPUTIM SENDMSSWAPI ^FREE ^HEAD K  QQ ((x ph/x1h3x4 xP@@  ,s(`s 1 S`(-`1P/ ( h(7971Q 355* OO,''8181 1`1P2(5,`4p4P5(J`hDx h`0A ` 4`/p1 2(-`hH(Q,,OAA*:T`1@p1P/(ZSh4X3SHx4@Dh X(jxA@h0 `2(UA33?tp@p @1x*H@*@ 1 s3@ŇIIXdq8 8 GTOKI 92059-1x029 REV.6000 910607 Gets a token from the source line /SRC_92059/R6000/&MACRL I//t~$QBUF GTOK2 GTOK3 GTOKI SKIPBLANKS^STRT /''2i.LBT.MBT.SBT?ASMB BACKS BATAB ICOLMAPUC '<BBHphxDphHxpiPH((R@@RR)`bpD8hxPg(?Ph(?Pe(Ci@Pc(;(J8((,8((M`dP(Jp8(,__,HI66(`@jpH`@h`Pf(Ɉ`ap8hDxi@@k .@Bblzzz8((X_@@`p`~pDHhxP(h8(x(DHhxP(`~@HHhHjxh`(`(`(U`(`(D`p( D`(hP(P(ׄHjx`p(p(3w<([P@((h7(,P;(( h1(,P<( (h2(,P:((h3(,P=((h(,P8((h4(,P9(!(#hc(,P?OO$P$11(&((h5(,PA(+(.h6  ()*+-/:<=>CAND OR: NOT ASH LSH ROT MOD SY: MR: O {V [AA`pU`VpWDHhxhWHxWP>(q(8U(_DHhxP>(`hWDhV`H`hV`pUhBPX(H8U(( PY((`U@@b@phDx(h@UP(P(Hjx@]|LLX-Qq8 8#ASTDI 92059-1X029 REV.6000 910607 convert ascii to double word integer /SRC_92059/R6000/&MACRL LASTD3 ASTDI .DMP.DST.LBTERRRICOL5AAxCHCHpD PL((PM((((&G(&EhCHxC@Ph@HF @E8D( (=`N(@8DCEI(&hCxC@PPJ(?PK(?@EhF8D(*@8`O@h AH G  Bb@չyHHXG;q8 8CREF3 92059-1X029 REV.6000 910607 Adds line number to XREF table /SRC_92059/R6000/&MACRL H BCREF3 :: 6 .DLD .DSTFATHR INCL# LINE# LINK LIT?LNODE OPT.C POLLPUTIM SWAPI :bb66h h9p@HH: A h7x`8ph@ ` `hpAA  D`@p@@:p  b@={{{~~$HSTB6=$OPREV1 $OPREV6 =$QBUF MPACGLO ACLOC ACSET AIGLO AILOC AISET ASTD3 TZASTDI TZCREF3 VGTOK2 MPGTOK3 MPGTOKI MPHASH1 ~~~eNHASH2 lHASH3 %HASH6 =HASHD1HASHD2lHASHD3%HASHD6=HSTBL1HSTBL2lHSTBL3%HSTBL6= SKIPBLANKSMPTTRAV Iw^STRT MPGTOK3 MPGTOKI MPHASH1 ~000 EQU * .4000 EQU * .9000 EQU * .6000 EQU * .8000 EQU *  LOADREC 0,0,161201B,0,1,1,0,512,0,95 .4310 BSS 33 MIMON NOP JSB Pas.Initialize  DEF *+3 DEF .4310 DEF .4320 JSB MIMON_MAIN  DEF *+1%MACRE::RTE_6:5:62:128 644 0 0 37000 5310706732 34212 %MACRE::RTE_6:5:62:128 $>t>%MACRE +#+#+#>@#hFST AAXZ&MACRE 92059-16030 REV.6000 901218 Error file for macro/SRC_92059/R6000/&MACRE ADD=TERCRIDOEROLDNAME ;ERRECSIZE :ERSIZELOCALMS fRECADDS <^ERNAME M^EROLDNAMED``Illegal file namr DInclude files may not be nested past five (one in maclib build) deep,Undefined Macro error code. Try RU,MACRO,-1#Opcode illegal in absolute assembly CGreateG```r than 1/4 million symbols used. Can't give symbol table dump MACLIB file must be type 1. "Symbol table paging file overflow. Intermediate data file overflow. Internal MACRO error``. Line # Contact your HP representative. Corrupt macro library file. %Include file can't be type 1,2, or 5. Break acknowledged. Illegal listing file type.< Error %%%% in8$ `` line %%%%% Macro line # %%%%% Include file # (Only last 3000 entries were output here.3Problems in scheduling relocatable translator OLDRE Errors in OLDREMacro names in new libVX``rary: ,Too many subheads. Subhead index shortened.-Old macro library. Try: 'MACRO,-3,,' /6SEXT external may not be used in a pass two expression0=MVW, MBT, CMW, and CBT areg`` illegal opcodes in CDS code space. 1Matching quote not found. 2;Commas are allowed only in ASG and SRG instruction opcodes. 3@This pseudo op must appear before any code or data is asser@``mbled.40End of file found before AENDIF in AIF statement5/AELSE found before AIF. This line gets ignored 6>AENDIF found outside of AIF statement. This line gets ignored72AELSEIF foun8``d after AELSE. This line gets ignored8@Only one AELSE allowed per AIF statement. This line gets ignored9/Illegal use of AELSEIF. This line gets ignored :1AIFs nested past 16 deep. Thi``s line gets ignored ;7IFNs or IFZs may not be nested. This line gets ignored <User-defined error=4XIF found outside of IFN/IFZ statement. Line ignored>(No corresponding MACRO, REPEAT``` or AWHILE?8Illegal to use ENT and RPL to define two word RPL values@,End of file found before AENDWHILE or ENDREPAUser-defined errors detectedd(&.PRAM[n] index missing or out of rang]h``e.eEAssembly time variable or macro parameter has more than 16 characters f#Illegal assembly time variable name g;Syntax error in assembly time array : &name[dimension,size] h'ATV arra ``y subscript must be integer > 0 i9Length of string > size specified in ATV array. Truncated j;The "count" field in assembly time array must be integer >0 k3Missing ']' in operand field o4``f assembly time array l@Syntax error in operand field of assembly time array declarationm1Not enough initial values for assembly time array n+Doubly dec((lared assembly time variable name l``oBLabel in ISET, IGLOBAL or ILOCAL statement does not start with '&'pUnrecognized '&' variable q9ATV used in a ISET or CSET statement has not been defined r3ATV is defined as an array@`` but not used as an array sAReferencing an element outside the dimension defined by ATV array t>String longer than maximum specified in declaration. Truncatedu 0w5Array subscript must be surrounded by square brackets x*Array subscript may not itself be an arrayy-ComparisonM`` is not allowed in ATV manipulation zBType conflict in ISET or CSET statement; value of ATV is unchanged{8Dimension or size of element in ATV array cannot be <= 0|5ILOCAL or CLOCAL must s```be declared inside a macro call }:Array subscript must be single integer or integer variable~DSize specified in IGLOBAL and ILOCAL is ignored, default to one word:Too many elements in A"``TV array declaration; excess ignored4No operand in CGLOBAL/CLOCAL, default to null string+Illegal column indicator on MACRO statement (Macro name missing from macro definition1Macr ``o name can only contain A-Z, a-z, 0-9, or '.' "Macro by this name already defined'ENDMAC' statement missing)String must be <= 80 character, truncated Illegal formal macro parametT.``er"Default value too long for listing$Formal parameter must start with '&'Illegal actual macro parameter'Too many parameters for this macro call -Repeats may not be nested moredV`` than five deep =Expression on REPEAT or REP must have positive integer result &Illegal expression on AWHILE statement6Expression on AWHILE must have less than 80 characters1More t!@``han 100 EXTRACT/DELETE macros for this file ?Can not use both EXTRACT and DELETE following INCLUDE or MACLIB -Only five macro libraries allowed per program Opcode missing'Line too`` long after string substitution >Column indicators should be three integers separated by commas(Mnemonic field longer than 16 charactersEND statement missing (Mnemonic column mustv `` start past column 10Column indicators must leave room for next field*Comment field must start before column 128Label longer than 16 characters Illegal character in label!Illev ```gal character in opcode field 'Opcode illegal in this type of assembly Operand field missing Opcode not recognized Undefined symbol)Too many nested parentheses. Limit is 10  ``&Incomplete expression in operand field9String encountered in an integer expression, default to 0 )RPL label cannot be used in operand field .'(' or integer must be preceded by an {  ``operatorSyntax error in expression"Integer divide results in overflow/& variable must follow :L:,:S: or :T: operators Illegal use of :T: operator 1:NOT: must be followed by a  ``type integer variable -Syntax error in substring :S:[var,var]string Number in substring must be >= 14Length of substring exceeds current length of string)')' encountered without  ``corresponding '(' )')' must be preceded by an integer result &Integer exceeds range -32768 to 32767%Substring construct may not be nested 2Substring starting character exceeds str @``ing length.Result of expression must be within 0 to 327677ASCII string in GEN and LOD record must be <= 125 words +Legal string compare operators are = and <> 8Line continuation ma; ``y not start before the operand fieldDuplicate label definitionIllegal operator in expression.Operand must be integer or absolute expressionUndefined entry point #Only one ope{ ``rand can be relocatable Illegal character in expression .Result of an EQU expression cannot be indirect'Illegal floating point number construct 8String in expression must be less ! ```than 5 characters long4BASE page or LOCAL address is not in range 0 to 1023Double integer overflow )Illegal column indicator in COL statement 5Keyword must be ON, OFF, BACK, SHORTs ``, MEDIUM, or LONG (Octal integers can not contain an 8 or 9!Literals not legal on this opcode EExpected ALLOcate,BASE,CODE,COMMon,DATA,LOCAL,PROGram,SAVE, or STATic "ORR must appea ``r before this opcode)ORR found before corresponding ORG or ORB 2Operand must be absolute or relocatable expressionVariable not found5Legal literals are =A, =B, =D, =F, =J, =L, =R,  `` and =S Integer expectedString expected  Label missing Doubly defined entry point name  Illegal value for entry point  3Result of expression must be absolute integer value  `` +Expression contains two different externals  *Two consecutive REP statements encountered /End of file encountered following REP statement BComment field must be separated from opera@``nd field by blank or ';';Expresssion cannot exist in more than one relocatable space  Label ignored Syntax error in MIC statement )Duplicate name for MICro code instruction DuB^``plicate NAM statement $Keyword must be EMA, SAVE, or COMMON MSEG size must be >= 1 and <= 31Syntax error in ALLOC <EMA and ALLOC EMA or MSEG cannot be used in the same programC``Duplicate EMA statement 2Label longer than five characters in EMA statementDNumber of pages specified or MSEG size out of range in EMA statementSyntax error in EMA statement 2ResuFO```lt in operand field cannot be type RPL, or EMA4Local EMA label may only be used in a DDEF statementDBL/DBR cannot be indirectIllegal opcode combination Illegal data!3Byte value}`` overflow; must be between -377B and 377B "'Not enough parameters in microcode call #*Literals are not allowed in microcode call$6Expression in RAM pseudo op must be between 0 and 377B% < ``6Result of expression in DDEF cannot be RPL or indirect&1Symbol after RELOC ALLOC must be an ALLOC symbol. 'ARelocation space just closed is too small for the code generated. ,EXT/ENT *`` statement error-Illegal symbol in EXT/ENT .Doubly defined entry point/ Illegal character in Alias field0Illegal character in Info field 1+EXT & ENT may not reference the same sym``bol 23Info or alias field on reference to existing symbol 3 Number of externals exceeds 20474&Too many parameter types in info field5)I/O select code must be absolute, >0, <64 6COM  @``operand field error 75COM allocation must be absolute and greater than zero 8%COM statement contains illegal symbol 94COM statement legal only in program relocation space:$RPL names li:``mited to five characters;EMA value not allowed here<@Operand must be positive, absolute, and less than or equal to 16=1Subhead parameter must be less than 81 characters > * Sizing macro to 32 will make it run fastest. 21 is minimum. * LOAD FILE FOR RTE-6 and RTE-A * EBSZ,32 LI,%MACRL RE,%MACRO RE,%MACR0 RE,%MACRE RE,%MACR3 RE,%MACR7 RE,%MACR1 RE,%MACR2 RE,%MACR4 RE,%MACR5 RE,%MACR6 END &CDSONOFF::RTE_6:4:216:39 644 0 0 154000 5310706737 36371 &CDSONOFF::RTE_6:4:216:39 $'&CDSONOFF +#+#+#k#FST macro,m,l,t  hed CDSONOFF macro library comments * * * NAME: &CDSONOFF * SOURCE: 92059-18024 * RELOC: NONE, maclib source * PGMR: GAA  * REV.6000 * !* <910619.1738>!!* **************************************************************** !!* * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1987. ALL RIGHTS * !!* * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, * !!* * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT * !!* * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. * !!* **************************************************************** !* * The following macros are designed to make it fairly painless to #* write CDS/non-CDS code. They also do the best they can with register #* allocation. Here are the rules:* $* 1. Invoke CDSONOFF before anything else in the file. This macro need$#* be called (may be called) only once. It is passed the CDS on or#$* off flag, which indicates what mode the file is to be assembled in. $$* It is recommended that it be passed one of &.RS1 or &.RS2 to allow$* CDS on/off to be determined at compile time.* $* 2. Invoke NEWSUB before anything else in a new module except the NAM.$ * This is to clear up any temps left in the macro tables from "* the last module. It must be after the NAM as it defines an EQU "* used by the LOCAL macro.* "* 3. EXIT takes no parameters. If you told DLENTRY to put the exit""* address somewhere other than in Y, it will generate a one word"!* exit, else JPY is two words. Thus, if the exit is through Y, !!* you will want to call EXIT only once. EXIT has no parms and!"* always exits the last DLENTRY subroutine, or if none, the main"* subroutine. EXIT does not affect any registers. "* EXIT1 and EXIT2 do the best they can, but don't always generate "* one word. * !* 4. BUMPEXIT always is one word and does not affect any registers !#* except the exit register. It works for ENTRY, OENTRY or DLENTRY# * which ever was last. * #* 5. The DLENTRY call is: DLENTRY [][,]#"* must be one of A, B, or Y if given. It is required"#* only on the first reference of the subroutine (DLCALL or DLENTRY) #!* and if given when not needed must match the first defination. ! * may be "* left out, in which case it is assumed that the will"!* be right when EXIT or BUMPEXIT is called. If is - !"* (a minus sign) a local temp will be allocated and the call reg. ""* will be saved there. may not be X (there is no JPX"!* instruction), but may be A, or B, or Y or a memory location.!* "* This library is a composit cds /non-cds library to be used by code ""* that can go either way. To tell it which way its to go call the "* macro CDSONOFF as follows: * * CDSONOFF CDSON or CDSOFF [,no. of parms][,col specs]* * The following flavors of CALLs are supported:* "* CALL (external, .entr) DCALL (external, .entn (no def rtn))""* LCALL (local , .entr) DLCALL (local , .entn (no def rtn))" * UCALL (external,.entr,ucode) DUCALL (external, .entn, ucode) * * On the other side the following entry routines are provided* "* &name ENTRY &p1-&p20 (standard call sequence with entry point)"#* &name OENTRY &ops, &p1-20 (standard call sequence with entry point#!* and code to nop the last &ops defs if!* not provided by the caller)"* &name DENTRY (direct call for code space only. no parm fetch"* or EXIT, BUMPEXIT support) #* &name DLENTRY &callreg,&rtn,&p1-20 (direct local call. In CDS uses#!* JL® to call and exits JMP &rtn,i !* or JPY if &RTN = Y* #* Note: The UCALL and the DUCALL should only be used when you know the #!* target is a ucode routine. This version saves a couple of !#* words. In non-cds code these are the same as CALL and DCALL.#* !* Note: DCALL and DLCALL in CDS are very different animals and an!!* entry for one can not be used for another. The DCALL must !!* assume that the target is in a different code segment, and ! * must therefor emit a PCAL instruction. This means that !* you can not, using these calls, call a local DCALL routine !!* that you also want to make avaiable to the external world. !#* LCALL however, can call a local routine that is also available #"* to CALL from a different module. The LCALL sequence is the"!* same as CALL except that it doesn't emit the EXT for the !* target.* *  hed Initialization macros  subhead CDSONOFF macro 11,15,31 " cdsonoff &which,&maxlocals'50',&col1'10',&col2'15',&col3'31' " &loc ilocal &maxlocals  aif (:uc:&which<>'CDSON'):and:(:uc:&which<>'CDSOFF')  mnote 'Expected CDSON or CDSOFF but found '&which aendif  &.iscds iglobal 0 .* .* The &.locald array holds lines to be produced in program space .* at the next BREAK command. This is used for constants to be ".* put in code space in CDS and in NON-CDS all LOCAL data goes here." .*(( This allows the user to put the LOCAL declaration in line with .* out having to worry about jumping around the productions (not .* needed in CDS but a problem in NON-CDS). .* .* The &.locale array holds EQUs to local space for CDS programs .* only. These EQUs need to be held off until we know how many !.* parameters the program expects. This may be satisfied as early!!.* as the NEWSUB call or as late as the END (in the case of MAINS). !.* Usually we know this from the OENTRY or ENTRY call..*$.* The &.locals array holds stings which define the string initialization $.* code for CDS code space to local space initilization..*&.locald[&loc,40] cglobal [&loc]' ' ; local data array&.locale[&loc,40] cglobal [&loc]' ' ; local equ array !&.locals[&loc,40] cglobal [&loc]' ' ; local string init code array! aif :uc:&which = 'CDSON'  &.iscds iset 1  aendif  globals ; get the globals set up .*  .* least bit is set in entry macro, cleared in exit. Must be .* clear if in entry, otherwise he is nesting subroutines and .* we get lost on that. .* bit 1 is set if entry is in code space, is checked in exit .* to make sure he is exiting in right space..*&.movecount cglobal '123456789012345678' #&.movecountdef iglobal 0 ; bit 0-8-movecountword,15-.cmw.,14-.cbt.# &.nestactive iglobal 0 &.nextsub iglobal 1 &.subnam[50,16] cglobal [50]' ' &.callreg[50,16] cglobal [50]' ' &.rtnreg[50,16] cglobal [50]' ' &.trace cglobal ' '  &.cursub iglobal 0 &.lindx iglobal 0 ; used to communicate with .localsub &.localavail IGLOBAL 0 &.nextlocal IGLOBAL 0 ; locals start at ...+ parms &.allparmsused iglobal 0 &.lastdata iglobal 0 &.lastequ iglobal 0 &.laststring iglobal 0 &.parms iglobal -1&.space cglobal ' '  &.col1 iglobal &col1+1 &hisc1 ilocal &col1 ; for col stmt. (needs int)  &.col2 iglobal &col2 &.col3 iglobal &col3  col &hisc1,&.col2,&.col3  endmac *  subhead NEWSUB  macro &.col1,&.col2,&.col3  newsub &parms' ' ; no of parms expected on ENTRY call .*.* This macro initializes and clears the xxENTRY arrays..*&.movecount cset '123456789012345678' &.movecountdef iset 0 &.nestactive iset 0 &.nextsub iset 1 &.cursub iset 0 &.localavail iset 0 &.nextlocal iset 0 &.allparmsused iset 0 &.lastdata iset 0 &.lastequ iset 0 &.laststring iset 0  aif &parms<>' '&.parms iset &parms &.localavail iset 1&.nextlocal iset &.parms ; next available local aelse &.parms iset -1  aendif &.trace cset ' ' &.subname cset ' ' &.space cset ' ' aif &.iscds  cds on :op:reloc local ... equ *  reloc code  aelse cds off  aendif  endmac  subhead TRACEBACK * * The trace back routine * Must call this macro before any other code space is used *  spc 2 macro &.col1,&.col2,&.col3  traceback &name aif &.iscds reloc code trace.&.q oct 51615 magic word &l ilocal (:l:&name+1)/2 ; word length dec &l asc &l,&name &.trace cset trace.&.q  aendif  endmac  hed Entry routines subhead ENTRY * ENTRY macro comments$* Brief Description: This macro sets up a subroutine that will be$$* called using the standard calling format (JSB name, DEF return$%* address, DEF P1, DEF P2, etc.). It gives the subroutine formal %#* parameters and calls .ENTR, which will replace these formal #* parameters with the actual parameters.* Registers Affected: all are clobbered #* Unusual Side Effects/ Miscellaneous Notes: &.SUBNAME, a global#"* assembly time variable, is set at the end of the macro to ""* communicate the subroutine name to the EXIT macro. So, to"#* use this macro, the GLOBALS macro, which declares all global#!* atvs, must be called following the MACLIB ! * statement. * Parameters: * &NAME is the subroutine name%* &FP1,&FP2,...,&FPk are the formal parameters of the subroutine %%* Alternate Calling Formats/ Default Parameters: may be called with%%* 2 to 20 of the macro parameters &FP1 to &FPk ; the ones not used%* will default to ''.  * Example: To generate call ENTRY as follows * RET BSS 1 SUB ENTRY RET,NUM * NUM BSS 1 * EXT .ENTR * SUB BSS 1 * JSB .ENTR * DEF RET *  spc 4 macro &.col1,&.col2,&.col3 &name ENTRY &p1,&p2,&p3,&p4,&p5,&p6,&p7,&p8,&p9,&pa, \ &pb,&pc,&pd,&pe,&pf,&pg,&ph,&pi,&pj,&pk.* aif :t:&.localparm <> 'U' ; if call from DENTRY &.pcount iset &.localparm+1 ; get the parm count right aendif .*&parmcount ilocal &.pcount-1 ; get parameter count.* .entrytest &parmcount ; check it out &sofar ilocal 2 ; set up to do the locals.* awhile &sofar <= &.pcount aif &.space = 'CO'&.parm[&sofar] equ ...+&sofar-2  aelse  &.parm[&sofar] nop  aendif&sofar iset &sofar + 1 aendwhile .*.* now the code space stuff .* ENT &NAME aif &.space = 'CO' &sofar iset 1 ;flush any pent up local definitions  awhile &sofar<=&.lastequ  .dumparray &.locale[&sofar]'+'&.parms &sofar iset &sofar+1  aendwhile&.lastequ iset 0 ; show the array empty &name def !#!LocalCount aif &.trace<>' '  lda =l(&.trace) set up the trace back ccb next Q  adb 4 -1 sta b,i  aendif &.SUBNAME CSET 3  aelse &NAME NOP  aif &.pcount>1 EXT .ENTR JSB .ENTR DEF &P1  aelse LDB &NAME,I STB &NAME  aendif  &.SUBNAME CSET &NAME  aendif  ENDMAC subhead DLENTRY  spc 4 macro &.col1,&.col2,&.col3 &name dlentry &rg' ',&exi' ' .* .nesttest ; test for nesting of subs. ® clocal :uc:&rg &nam clocal :uc:&name ; get local upper case name .localsub &nam, ®  &ex[0,16] clocal :uc:&exi &.cursub iset &.lindx ® cset &.callreg[&.lindx]  aif &.space = 'CO' &name equ * aif &ex=' ' &ex cset ®  aendif  aif &ex<>®  aif (&ex='A'):or:(&ex='B')  ld&ex ® aelseif &ex='-' &ex cset &name'.ex' .*.* allocate a local to hold the return address  &ex local 1 st® &ex  aelse st® &ex  aendif  aendif  aelse&name nop &ex cset &name  aendif  &.rtnreg[&.lindx] cset &ex  endmac  subhead OENTRY * !* This is the OENTRY routine. It does the entry code for routines!* with optional parameters. Call:* * name OENTRY #ops, P1, ...,Pn 0< #ops <= n *  spc 4 macro &.col1,&.col2,&.col3&name OENTRY &ops,&p1,&p2,&p3,&p4,&p5,&p6,&p7,&p8,&p9,&pa, \  &pb,&pc,&pd,&pe,&pf,&pg,&ph,&pi,&pj,&pk .*&pars ilocal &.pcount-2 ; number of parms &nopt ilocal &ops  aif (&nopt > &pars) :or: (&nopt < 1) $ mnote 'First parm must be > 1 and < number of parms.('&pars')' $ aendif .* .entrytest &pars ; check out the parm count, etc..*#.* If more than one optional we need leading code to zap the parm adds. #.* aif (&nopt > 1):and:(&.space <> 'CO') ; only in non-cds zap..&.q equ *&sofarx ilocal &.pcount-&ops+1 .* awhile &sofarx<=&.pcount  sta &.parm[&sofarx] zap a parm address  &sofarx iset &sofarx+1 aendwhile .* jmp &name+3 do the .ENTP call*  aendif .*.*&sofar ilocal 3 ; set up to do the locals.* awhile &sofar <= &.pcount aif &.space = 'CO'&.parm[&sofar] equ ...+&sofar-3  aelse  &.parm[&sofar] nop  aendif&sofar iset &sofar + 1 aendwhile .*.* now the code space stuff .* ENT &NAME aif &.space = 'CO' &sofar iset 1 ;flush any pent up local definitions  awhile &sofar<=&.lastequ  .dumparray &.locale[&sofar]'+'&.parms &sofar iset &sofar+1  aendwhile&.lastequ iset 0 ; show the array empty* &name def !#!LocalCount Entry point *  lda 3 get # parms and =b377  aif &nopt > 1 ; lots of code if more than one ada =d6 address of first null parm  ldb a cmb,cle,inb see if all or more supplied adb =l(&.pcount+4)  clb,sez skip if all or more cpa =l(&.pcount+4) last one done?  jmp *+4 yes, start the subroutine* (( stb a,i no, zap the address ina next address  jmp *-4 play it again sam aelse aif &.pcount <> 3 ; if only one parm, don't sub 0 ada =l(3-&.pcount) subtract the expected -1  aendif sza,rss if exactly one short  sta &.parm[&.pcount];zap the missing one  aendif * aif &.trace<>' '  lda =l(&.trace) set up the trace back ccb next Q  adb 4 -1 sta b,i  aendif &.subname cset 3 ;used by exit & bumpexit  aelse ;its non cds .** &name nop the entry point*  cla prepare to zap addresses  aif &nopt=1  sta &.parm[&.pcount] ;set last parm address to 0  aelse jmp zap..&.q go zap the addresses *  aendif  ext .entp  jsb .entp do entry code def &p1 &.subname cset &name  aendif  endmac  subhead DENTRY * !* DENTRY is usually to be used for simple no-parm calls. We do, !* however support parameters, mostly for completeness. * In non-cds code space we call .ENTN to get parms.*  spc 4 macro &.col1,&.col2,&.col3 &name DENTRY &p1,&p2,&p3,&p4,&p5,&p6,&p7,&p8,&p9,&pa, \  &pb,&pc,&pd,&pe,&pf,&pg,&ph,&pi,&pj,&pk.*&.localparm ilocal &.pcount-1 ; parameter count.* aif &.space = 'CO' ; if in code space just call entry &name ENTRY &p1,&p2,&p3,&p4,&p5,&p6,&p7,&p8,&p9,&pa, \ &pb,&pc,&pd,&pe,&pf,&pg,&ph,&pi,&pj,&pk  aelse ; not code, do tests.* .entrytest &.localparm ; check out the parm count, etc. .*.*&sofar ilocal 2 ; set up to do the locals.* awhile &sofar <= &.pcount &.parm[&sofar] nop &sofar iset &sofar + 1 aendwhile ent &name &name nop aif &.localparm > 1 ; do .entn if parameters ext .entn jsb .entn  def &p1 aendif &.subname cset &name ;set the return label  aendif  endmac  hed Entry help macros subhead .ENTRYTEST * #* The .entrytest macro tests for the correct no. of parameters in the ##* current call. It also makes sure the caller is not trying to nest#* subroutines.*  macro &.col1,&.col2,&.col3  .entrytest &pars ; pass in the no. of parms received aif &.parms=-1 &.parms iset &pars "&.nextlocal iset &.nextlocal+&.parms ; set first local after parms "&.localavail iset 1 ; flag, we know locals &.allparmsused iset 1 ; flag all parms used aelse  &test ilocal &pars  aif &test>&.parms  mnote 'Expected '&.parms' parms'\ '(NEWSUB or prior ENTRY), got '&test aelseif &test = &.parms &.allparmsused iset 1 ; flag all parms used aendif  aendif .nesttest ; check for active subroutine  ENDMAC  subhead .NESTTEST * * This macro tests to see if the last entry was exited.*  macro &.col1,&.col2,&.col3  .nesttest  aif &.nestactive :and: 1  mnote 'No exit seen for last ENTRY.'\  'Nesting subroutines is a no-no!' aelseif &.space='CO' &.nestactive iset 3 ; flag a cds entry active  aelse &.nestactive iset 1 ; flag a non-cds entry active  aendif&.cursub iset 0 ;show no local sub active&.subname cset ' ' ;also no global sub endmac  hed Bump exit routine  subhead BUMPEXIT  spc 2 macro &.col1,&.col2,&.col3  bumpexit ;no parms aif (&.subname=' '):and:(&.cursub=0)  mnote 'No active subroutine'  aendif  aif &.subname<>' ' isz &.subname  aelse&rtn clocal &.rtnreg[&.cursub] ;get the reg name aif &rtn='Y'  isy aelse isz &rtn  aendif  aendif  endmac  hed Exit routines subhead EXIT  spc 2 macro &.col1,&.col2,&.col3  exit  aif (&.subname=' '):and:(&.cursub=0)  mnote 'No active subroutine'  aendif  aif &.subname<>' '  aif &.subname='3' ducall .exit0  aelse jmp &.subname,i aendif  aelse&rtn clocal &.rtnreg[&.cursub] ;get the reg name aif &rtn='Y' jpy 0  aelse jmp &rtn,i  aendif  aendif  .nesttest2 ; final nest test endmac  subhead EXIT1  spc 2 macro &.col1,&.col2,&.col3  exit1 aif &.subname='3' ducall .exit1  aelseif &.rtnreg[&.cursub] = 'Y' ; if Y do index jmp  JPY 1  aelse bumpexit  exit  aendif  .nesttest2 ; final nest test endmac  subhead EXIT2  spc 2 macro &.col1,&.col2,&.col3  exit2 aif &.subname='3' ducall .exit2  aelseif &.rtnreg[&.cursub] = 'Y' ; if Y do index jmp  JPY 2  aelse bumpexit bumpexit  exit  aendif  .nesttest2 ;final nest test  endmac  subhead .NESTTEST2 * "* nesttest2 is the exit test. First we test to see if we are still"$* in code space if we were on entry. Second we clear the active entry. $*  macro &.col1,&.col2,&.col3  .nesttest2 aif ((&.space='CO'):and:((&.nestactive:and:2)<>2)):or:\  ((&.space<>'CO'):and:((&.nestactive:and:2)<>0)) mnote 'Entry was in CODE space and exit is not or'\ 'Entry was not in CODE space and exit is.'  aendif !&.nestactive iset &.nestactive:and:177776b ; clear the active nest ! endmac  hed Loadparmadd macro for DLENTRY subroutines subhead LOADPARMADD* * This macro helps local subs get to parameters *  spc 4 macro &.col1,&.col2,&.col3  loadparmadd ® aif &.cursub=0  mnote 'No active local subroutine' aendif &ex clocal &.rtnreg[&.cursub] aif &ex='Y'  cy®  &ex cset ®  aendif  aif &.space = 'CO'  ducall .xl®'2', @&ex  aelse ld® &ex,i  aendif  endmac  hed DLCALL and DLENTRY help macro  subhead .LOCALSUB !* This macro takes a name and register and builds the global entry!!* for the local subroutine. The result is that &.lindx (a global)!"* is the index into &.subname, &.callreg, and &.rtnreg for the given"!* DLCALL or DLENTRY reference. If the entry is already defined the !* current defination is checked aginst the call entry.*  spc 4 macro &.col1,&.col2,&.col3 .localsub &nam, &rg ; Assumed to be upper case&indx ilocal 1  ® clocal &rg .*&.lindx iset 0 ; implies not found  awhile &indx<&.nextsub  aif &.subnam[&indx]=&nam &.lindx iset &indx ; found the name&indx iset &.nextsub ; fource end of loop aendif  &indx iset &indx+1 aendwhile .* .* did we find it .* aif &.lindx = 0 &.lindx iset &.nextsub ; set up to build an entry &.nextsub iset &.nextsub+1  aif ® = ' ' ; if no reg. here  mnote 'First reference to '\" &nam' (DLCALL or DLENTRY) must specify a call reg.'" ® cset 'Y'  aelse  aif (®<>'A'):and:(®<>'B'):and:(®<>'Y')  mnote 'Parm is '&rg' expected A or B or Y' ® cset 'Y' aendif aendif &.subnam[&.lindx] cset &nam &.callreg[&.lindx] cset ®  aelse ;; here we found a reference.  aif ®<> ' '&o clocal &.callreg[&.lindx]  aif ®<>&o$ mnote 'First reference to '&nam' specified '&o' not '® $ aendif aendif aendif  endmac hed Call macros subhead DLCALL *  spc 2 macro &.col1,&.col2,&.col3  DLCALL &name,&creg' ',&p1,&p2,&p3,&p4,&p5,&p6,&p7,\ &p8,&p9,&pa,&pb,&pc,&pd,&pe,&pf,&pg,&ph,&pi,&pj,&pk &indx ilocal 1  ®[0,16] clocal ' ' .* .localsub :uc:&name,:uc:&creg ® cset &.callreg[&.lindx]  aif &.space = 'CO' JL® &name aelse jsb &name aendif &indx iset 3  awhile &indx<=&.pcount  def &.parm[&indx] &indx iset &indx+1 aendwhile  endmac  subhead CALL  * * CALL macro comments $* Brief Description: This macro generates the code to call a sub-$* (( routine with 0 to 20 parameters.* Registers Affected: depends on subroutine called* Unusual Side Effects/ Miscellaneous Notes: none  * Parameters: * &NAME is subroutine name* &P1,&P2,...,&Pk are the subroutine parameters %* Alternate Calling Formats/ Default Parameters: may be called with %#* 0 to 20 of the macro parameters &P1 to &Pk; the ones not used #* will default to ''!* Example: To generate the code, call CALL as follows:!* pcal exec,1,1,0 CALL EXEC,=D6 *  spc 4 macro &.col1,&.col2,&.col3  CALL &name,&p1,&p2,&p3,&p4,&p5,&p6,&p7,&p8,&p9,&pa, \  &pb,&pc,&pd,&pe,&pf,&pg,&ph,&pi,&pj,&pk  EXT &NAME aif &.space = 'CO' &parms ilocal &.pcount-1  pcal &NAME,&parms,0,0  aelse jsb &name def *+&.pcount  aendif &indx ilocal 2  awhile &indx<=&.pcount  def &.parm[&indx] &indx iset &indx+1 aendwhile  endmac  subhead LCALL  macro &.col1,&.col2,&.col3  LCALL &name,&p1,&p2,&p3,&p4,&p5,&p6,&p7,&p8,&p9,&pa, \  &pb,&pc,&pd,&pe,&pf,&pg,&ph,&pi,&pj,&pk .* same as CALL except no EXT generated. aif &.space = 'CO' &parms ilocal &.pcount-1  pcal &NAME,&parms,0,0  aelse jsb &name def *+&.pcount  aendif &indx ilocal 2  awhile &indx<=&.pcount  def &.parm[&indx] &indx iset &indx+1 aendwhile  endmac  subhead DCALL  macro &.col1,&.col2,&.col3  DCALL &name,&p1,&p2,&p3,&p4,&p5,&p6,&p7,&p8,&p9,&pa, \  &pb,&pc,&pd,&pe,&pf,&pg,&ph,&pi,&pj,&pk  EXT &NAME aif &.space = 'CO' &parms ilocal &.pcount-1  pcal &NAME,&parms,2,0  aelse jsb &name  aendif &indx ilocal 2  awhile &indx<=&.pcount  def &.parm[&indx] &indx iset &indx+1 aendwhile  endmac  subhead PCALL  * PCALL macro comments$* Brief Description: This macro generates the code to call a CDS $* subroutine with 0 to 10 parameters. * Registers Affected: depends on subroutine called* Unusual Side Effects/ Miscellaneous Notes: none  * Parameters: * &NAME is subroutine name* &P1,&P2,...,&P10 are the subroutine parameters%* Alternate Calling Formats/ Default Parameters: may be called with %$* 0 to 10 of the macro parameters &P1 to &P10; the ones not used$* will default to ''"* Example: To generate the code, call PCALL as follows: "* pcal sub,1,3,0 PCALL SUB, P1*  spc 4 macro &.col1,&.col2,&.col3  pcall &name, &p1,&p2,&p3,&p4,&p5,&p6,&p7,&p8,&p9,&pa, \  &pb,&pc,&pd,&pe,&pf,&pg,&ph,&pi,&pj,&pk  EXT &NAME &parms ilocal &.pcount-1  aif &.space <> 'CO' mnote 'PCALL not avaiable in non-CDS enviornment' aendif  pcal &NAME,&parms,3,0 &indx ilocal 2  awhile &indx<=&.pcount  def &.parm[&indx] &indx iset &indx+1 aendwhile  ENDMAC subhead UCALL   spc 4 macro &.col1,&.col2,&.col3  UCALL &name, &p1,&p2,&p3,&p4,&p5,&p6,&p7,&p8,&p9,&pa, \  &pb,&pc,&pd,&pe,&pf,&pg,&ph,&pi,&pj,&pk  ext &name jsb &name def *+&.pcount &indx ilocal 2  awhile &indx<=&.pcount  def &.parm[&indx] &indx iset &indx+1 aendwhile  ENDMAC subhead DUCALL  macro &.col1,&.col2,&.col3  DUCALL &name, &p1,&p2,&p3,&p4,&p5,&p6,&p7,&p8,&p9,&pa, \  &pb,&pc,&pd,&pe,&pf,&pg,&ph,&pi,&pj,&pk  ext &name jsb &name &indx ilocal 2  awhile &indx<=&.pcount  def &.parm[&indx] &indx iset &indx+1 aendwhile  ENDMAC hed String and data to code move macros subhead BUILDDATA * * The build data macro builds and saves a line of code. The line * will be produced in the order entered at the first break. This * is to be used for data to be put in code space but which you* don't want to jump over. Any labels, however, will not be* defined until the BREAK macro is called.*  spc 4 macro &.col1,&.col2,&.col3  builddata &line &.lastdata iset &.lastdata+1&.locald[&.lastdata] cset &line  endmac  subhead .DUMPARRAY * !* macro to format the passed in string to make it available to the!* col. routines *  spc 4 macro &.col1,&.col2,&.col3  .dumparray &ln .*".* The following code breaks the line into label and rest in order to " .* get the col justification to work. It is also breaks the line .* at the operand so the =S will be properly treated. .*.* &line clocal &ln &indx ilocal 1 &labe ilocal 1 &ope ilocal 1 &left ilocal :l:&line awhile &indx<&left ! aif ' '=:s:[&indx,1]&line ; look for first blank!&labe iset &indx-1; save of end of label &indx iset 40 ; fource while completion aendif &indx iset &indx+1 aendwhile &indx iset &labe+2 ;start of op code &ops ilocal &indx  awhile &indx<=&left! aif ' '<>:s:[&indx,1]&line ; look for first blank !!&ope iset &indx+1 ; save of end of opcode (assume next) ! aelse &indx iset 40 ; fource while completion aendif &indx iset &indx+1 aendwhile &left iset &left-&ope ; length of operand&opans ilocal &ope+1 ; start of operand &ope iset &ope-&ops ; length of the op code aif &left >= 2  aif :s:[&opans,2]:uc:&line = '=S' &opans iset &opans+2&left iset &left-2 &eqs clocal :s:[&opans,&left]&line aendif aendif .* .* We do the following assignments because the MACRO scanner gets #.* upset if it finds substring operators in false aif bodies in either#.* the label or opcode fields..*&label clocal :s:[1,&labe]&line &opcode clocal :s:[&ops,&ope]&line  aif &left < 1 &label &opcode  aelseif :t:&eqs <>'U'&label &opcode =s&eqs  aelse &label &opcode :s:[&opans,&left]&line  aendif  endmac  subhead EMPTYSTRING* * These macros creat strings and string descriptors.* The basic idea is to keep the string it self in Code space* and to move it to local space if needed. The macros produce* executable code, and so should be put in line before the * string is referenced. * * Other restrictions: LOCSTRINGD uses =L literals to access its * parameters, so they must be defined before the call.* * * *INITSTRINGD builds a string descriptor for a string. The string #* buffer must be known. Use LOCAL to reserve space for it.#!* Note that this routine is primarily intended to set up !!* uninitialized strings. In CDS the descriptor is built ! * in LOCAL space and is in A,B on exit. This fact is * used by INITSTRING which is what one should used if * an initialized string is desired.* "* In addition, the string descriptor, if it is to be used"!* outside of the local subroutine, must be adjusted to !$* point to physical memory, not Q offset. This is the normal$!* result. If the user wants a local only descriptor he!#* can save a few words by coding the third parmeter as 'L'.#"* The buffer address is assumed to be a byte address, i.e. "* code (buf+buf), etc. * *  spc 4 macro &.col1,&.col2,&.col3 &nam EMPTYSTRING &siz,&glo'G' &lsiz ilocal (&siz+1)/2+2 aif &nam='' * EMPTYSTRING macro requires a label, one assigned&name clocal emptystr&.q  aelse &name clocal &nam  aendif  aif &.space='CO' ; code space in CDS&name local &lsiz ;allocate the string space  .buildstringinit ' lda =l('&siz')'  aif :uc:&glo<>'L' .buildstringinit ' ext .ccqb' .buildstringinit ' jsb .ccqb' .buildstringinit ' adb b' ; byte address  .buildstringinit ' adb =L('&name'+'&name'+4)' aelse .buildstringinit ' ldb =L('&name'+'&name'+4)' aendif  .buildstringinit ' dst '&name.* aelse.* &name dec &siz dbl *+1 bss (&siz+1)/2 .* aendif  endmac  subhead STRING * "* The string macro is designed to put strings with string descriptors ""* into memory. If we are not currently in CODE space it is the same" * for both CDS and non-cds. *  spc 4 macro &.col1,&.col2,&.col3  &nam STRING &text &sz ilocal :l:&text ; no of bytes needed  aif &nam='' * STRING macro requires a label, one assigned  &name clocal string&.q  aelse &name clocal &n((am  aendif  aif &.space='CO' ; if cds code space &name emptystring &sz ; allocate space and do descriptor aif &sz=1  .buildstringinit ' lda =r'&text .buildstringinit ' sbt' aelseif &sz=2  .buildstringinit ' lda =s'&text .buildstringinit ' sta '&name'+2' aelseif &sz<5  .buildstringinit ' dld =s'&text .buildstringinit ' dst '&name'+2' aelsestring&.q text &text ; put down the text .buildstringinit ' ina' .buildstringinit ' lsr 1' .buildstringinit ' cax' .buildstringinit ' lda =l(string'&.q'+string'&.q')'  .buildstringinit ' ext .mw20' .buildstringinit ' jsb .mw20' aendif  aelse &name dec &sz dbl *+1  asc (&sz+1)/2,&text aendif  endmac  subhead .BUILDSTRINGINIT *  * The .BUILDSTRINGINIT macro saves lines that need to be produced * when the INITSTRINGS macro is called. *  spc 4 macro &.col1,&.col2,&.col3  .BUILDSTRINGINIT &line &.laststring iset &.laststring+1&.locals[&.laststring] cset &line  endmac  subhead INITSTRINGS* * INITSTRINGS is designed to initialize strings. The string* will be in LOCAL space in CDS. The string must* have been defined by either the STRING or the* EMPTYSTRING macro. These leave data in the * &.localstring array which we here dump. * This macro should be called inline before the string * is referenced. It must be called after one or * more calls to the above named macros. Once the * strings are initialized, the defered code is cleared * so that subsequent calls to this macro do nothing* until EMPTYSTRING or STRING are called again.* * *  spc 4 macro &.col1,&.col2,&.col3  INITSTRINGS &indx ilocal 1  awhile &indx<=&.laststring  .dumparray &.locals[&indx]  &indx iset &indx+1 aendwhile &.laststring iset 0  endmac  subhead MOVECODETODATA * * The MOVECODETODATA macro generates the code to move words from * code space to data space.  spc 4 macro &.col1,&.col2,&.col3  MOVECODETODATA &from,&to,&count.* .sortregs &to,&from,&count ; sort out the regs  aif &.space = 'CO' ; now the mov instruction  ducall .mw20  aelse mvw &.movecount  aendif  endmac  subhead MOVEWORDS * * The MOVEWORDS macro generates the code to move words from  * data space to data space.  spc 4 macro &.col1,&.col2,&.col3  MOVEWORDS &from,&to,&count .* .sortregs &to,&from,&count ; sort out the regs  aif &.space = 'CO' ; now the mov instruction  ducall .mw00  aelse mvw &.movecount  aendif  endmac  subhead Movebytes * * The MOVEbytes macro generates the code to move bytes from  * data space to data space.  spc 4 macro &.col1,&.col2,&.col3  MOVEBYTES &from,&to,&count .* .sortregs &to,&from,&count ; sort out the regs  aif &.space = 'CO' ; now the mov instruction  ducall .mb00  aelse mbt &.movecount  aendif  endmac  subhead .sortregs * This macro sets up the right regs. for the move macros,  * choosing the right register sequence. We don't want to put the * count in data space unless it is already there. This means "* we can't use the LDX instruction as it can only access data space."*  spc 4 macro &.col1,&.col2,&.col3  .SORTREGS &to,&from,&count .*&t clocal :uc:&to ; get upper case of everything  &f clocal :uc:&from &lit clocal :s:[1,1]&count' ' ;will be '=' if literal count .*.* If count is in a reg in non-cds we need to store it.*" aif ((:uc:&count='A'):or:(:uc:&count='B')):and:(&.space<>'CO')" .alocmovetmp 1 ; allocate a move temp  st&count .moveccount1 &.movecount cset .moveccount1 ; set for the caller aelse  &.movecount cset :uc:&count  aendif.*".* If the count is not literal, sort it out and do the non-CDS regs. ".* aif (&lit<>'='):and:(&.space = 'CO')  aif (&.movecount='A'):or:(&.movecount='B')  c&count'x'  aelse ldx &count  aendif ; (&.movecount='A'):or:(&.movecount='B') aelseif &.space = 'CO' ; cds and lit count  aif (&t='A'):and:(&f='B') ; registers backwards? cax ;TO to X  lda b ;FROM to A  ldb &count ;count to B xbx ;count to X, TO to B  aelseif (&t='B'):and:(&f='A') ; registers right  cax ;FROM to X  lda &count ;count to A xax ;count to X, FROM to A  aelseif (&t<>'B'):and:(&f<>'B') ; reg B is free ldb &count  cbx ldb &to aif &f<>'A' lda &from aendif  aelse ; reg A must be free  lda &count  cax lda &from aif &t<>'B' ldb &to aendif  aendif  aendif ; (&lit<>'='):and:(&.space = 'CO') % aif (&lit<>'='):or:(&.space<>'CO') ; if cds non-lit, X is loaded% aif (&t='A'):and:(&f='B') ; regs swaped? swp aelseif (&t='B'):and:(&f='A') ;regs ok? aelseif (&t<>'B'):and:(&f<>'B') ; reg B free?  ldb &to aif &f<>'A' lda &from aendif  aelse lda &from aif &t<>'B' ldb &to aendif  aendif  aendif  endmac  subhead .alocmovetmp * * This macro keeps track of the allocated temps so only one * local is done per temp per module *  spc 4 macro &.col1,&.col2,&.col3  .ALOCMOVETMP &P &mask ilocal 100000b:rot:&p ; temp mask  aif (&.movecountdef:and:&mask)=0  .moveccount&p local 1 &.movecountdef iset &.movecountdef:or:&mask ; flag defined aendif endmac subhead .dodef * #* This macro produces a DEF to its argument where the orgional argument ##* was assumed to be a def. For use with the COMPAREWORDS macro, where#"* the normal thing is to emit a LDx &arg, but, instead we need a DEF"!* The conversion is to remove a leading '=L' or if A or B to add an ! * indirection flag. *  spc 4 macro &.col1,&.col2,&.col3  .DODEF &t &tt clocal &t' ' ; make a string of at least 2 char.  aif (&t ='A'):or:(&t='B')  def @&t  aelseif :s:[1,2]&tt = '=L'&tailsize ilocal :l:&t-2 def :s:[3,&tailsize]&t aelse  def &t aendif endmac  hed Compare instructions  subhead Compare words* * Can't use .cmw in CODE space* * What we do is call data space to do it. A complication is that $* the call to data space messes up Q, so we need to adjust the addresses$!* prior to the call. To do this we use a direct two parameter call ! * and let PCALL sort it out. We can do better code, then if the !* caller passes the addresses in as parameters so we don't need to!#* store them in the CODE space case. In any case, we allow A and or B# * to be the addresses. *  spc 4 macro &.col1,&.col2,&.col3  COMPAREWORDS &to,&from,&count ; array1, array2, count&c clocal '12345678901234567'  &c cset :uc:&count &t clocal '12345678901234567' &f clocal '12345678901234567'  &t cset :uc:&to &f cset :uc:&from .*.* If literal 1, then use .CPM instruction.* aif (&c='=D1'):or:(&c='=B1')  ducall .cpm .dodef &t .dodef &f  aelse aif &.space = 'CO'! pcal .cmw.,3,2,0 ; call subroutine in data space ! def &c ;count is first  .dodef &t .dodef &f #&.movecountdef iset &.movecountdef:or:100000b ; flag need for the sub.# aelse  .sortregs &from,&to,&count ; sort out the regs. cmw &.movecount aendif  aendif  endmac  subhead Compare bytes* * Can't use cbt in CODE space * * We will call data space if we are currently in code space.* This routine always wants the byte addresses in A & B  * To resolve the addresses, we convert them to word addresses and "* then use the PCALL to adjust local addresses. We need to save the"* odd byte bits and restore them on the other side. $* On the other hand, if it is known that the addresses are base relative$!* we can just leave them in A,B and pass the count to a much faster !* routine (which does not lose E)  spc 4 macro &.col1,&.col2,&.col3  C((OMPAREBYTES &count, &baseok' ' &ok clocal :uc:&baseok  aif &.space = 'CO' aif &ok <>'BASEOK' "&.movecountdef iset &.movecountdef:or:40000b ; flag need for the sub. " .alocmovetmp 1 ; allocate a temp cle,era ; keep first bit in E  sta .moveccount1  cla ; second bit in a rrr 1  pcal .cbt.,3,2,0 def &count def @B  def @.moveccount1 aelse "&.movecountdef iset &.movecountdef:or:20000b ; flag need for the sub. " pcal .cbtb.,1,2,0 def &count aendif  aelse  cbt &count aendif  endmac  hed Code space manipulation routines  subhead RELOC STATIC CODE DATA * !* The RELOC macro is used to keep track of the current code space.!!* It of course can be fooled by ORGs but then we do the best we can !* It also changes CODE and DATA to PROG and STATIC to SAVE. *  spc 4 macro &.col1,&.col2,&.col3  reloc &space,&alloc,&name.* &sp clocal :uc:&space aif &sp = 'LOCAL' & mnote 'Reloc Local is illegal with CDSONOFF. Use LOCAL macro instead.' & aelse aif &.iscds = 0 ; if not cds aif (&sp = 'CODE') :or: (&sp = 'DATA')  &sp cset 'PROG'  aelseif &sp ='STATIC' &sp cset 'SAVE' aendif  aendif " aif :s:[1,3]&sp = 'COM' ; don't confuse common with code" &.space cset 'CM'  aelse&.space cset :s:[1,2]&sp  aendif .*.* Now reproduce the line as a real opcode.* :op:reloc &sp,&alloc,&name  aendif  endmac  subhead LOCAL  #* Brief description: This macro is used to declare the names and #* sizes of the local variables in a CDS user's program. !* It is used both to assure that the users will not try to!$* to initialize their variables (either overtly like 'FOO DEC 12' $* or accidently like 'FOO NOP').#* This routine will defer definition of the local until we know #$* the paramater count for the program. A main will have a count$"* of 0 which we find at the END, a subroutine will define the "#* count on ENTRY or OENTRY call. Or the number can be declared #* on the NEWSUB call. * * Only EQUs are generated.*  spc 4 macro &.col1,&.col2,&.col3 &Lname LOCAL &size  aif &.iscds  aif &lname<>'' ; if no label, no code just space aif &.localavail &Lname equ ...+&.nextlocal  aelse &.lastequ iset &.lastequ+1 ; store the equate&.locale[&.lastequ] cset &lname' equ ...+'&.nextlocal  aendif aendif ; &lname<>'' &.nextlocal iset &.nextlocal+&size aelse ; &.iscds  builddata &Lname' bss '&size aendif ENDMAC hed Equl macro * * The EQUL macro allow you to equate to varables defined with the * LOCAL macro. The problem is that they are not defined until* they are produced. This macro saves the equ until that time* too.*  MACRO &Lname EQUL &p  aif &.iscds ; if cds aif &.localavail ; if local is available &Lname equ &p aelse &.Lastequ iset &.Lastequ+1 ; add the line to the"&.Locale[&.Lastequ] cset &Lname' equ '&p' ' ;don't allow the add" aendif ; &.localavail else aelse ; &.iscds  builddata &Lname' equ '&p  aendif ; &.iscds else  ENDMAC hed Break and End macros subhead BREAK * * The BREAK macro is used to signal that the caller is in a data * area of his code space. We take this opertunity to dump lits * and other saved data space stuff from non-CDS enviornment.*  spc 4 macro &.col1,&.col2,&.col3  break lit &indx ilocal 1  awhile &indx<=&.lastdata  .dumparray &.locald[&indx]  &indx iset &indx+1 aendwhile &.lastdata iset 0  aif &.space = 'CO'  :op:break  aendif  endmac  subhead END * * END macro comments %* Brief description: Used only to set up the variable !#!LocalCount%'* to contain a count of the number of local words used by the program '%* This is put into the first word of the code via the ENTRY macro.%  spc 4 macro &.col1,&.col2,&.col3  END ¶m' '  aif (¶m=' '):and:(&.localavail=0) mnote 'Subroutine with no ENTRY or OENTRY'\ 'or NEWSUB not called!' aendif  aif &.iscds  aif &.trace<>' ' local 1  aendif &sofar ilocal 1 ;flush any pent up local definitions  awhile &sofar<=&.lastequ  .dumparray &.locale[&sofar] &sofar iset &sofar+1  aendwhile&.lastequ iset 0 ; show the array empty org ...+&.nextlocal !#!LocalCount equ *  aelse  break  aendif &.localavail iset 0  aif (&.allparmsused = 0):and:(¶m=' ') $ mnote 'More LOCAL parameter area reserved by NEWSUB than used by ENTRY'$ aendif!.* This code should be removed when the two subs are added to the! .* standard library .* aif &.movecountdef:and:160000b  reloc data  aif &.movecountdef:and:100000b .cmw. nop ldb @.cmw. stb .cmw.tmp isz .cmw. dld @.cmw. .cmw.tmp equ *+1 cmw .cmw.tmp  ducall .exit0 ducall .exit1 ducall .exit2 aendif  aif &.movecountdef:and:40000b .*!.* Don't tell macro about the parms, as he will want to call .entn!.* and we don't trust him to leave E alone ( not to mention A).  .cbt. nop  ldb @.cbt. ;get the count stb .cbt.tmp ; save count isz .cbt. ; step to the B address  ldb @.cbt. ; get word address rrl 1 ; convert to byte isz .cbt.  lda @.cbt. ; word address 1  ela ; convert to byte .cbt.tmp equ *+1  cbt .cbt.tmp ; do the compare ducall .exit0 ducall .exit1 ducall .exit2 aendif  aif &.movecountdef:and:20000b .*!.* Don't tell macro about the parms, as he will want to call .entn!.* and we don't need all that..cbtb. nop compare bytes, addresses ok  cbt @.cbtb. ; do the compare ducall .exit0 ducall .exit1 ducall .exit2 aendif  aendif ; end of code to remove :OP:END ¶m  ENDMAC hed Data space routines for ill code space  subhead .datainstruction * * This macro should be left here just in case its needed later * It generates code to do in data space what could not be done in * code space spc 4 macro &.col1,&.col2,&.col3  .datainstruction &op, &exs .*.&op'.' nop ext .&op  jsb .&op  def @.&op'.' aif &exs = 3 jmp *+4 isz .&op'.'  endif aif &exs >= 2 jmp *+2 isz .&op'.'  endif isz .&op'.' jmp @.&op'.'  endmac  hed This is standard MACLB  maclib /libraries/$maclb.mlb delete exit,dlcall,call,dcall,lcall,entry* * The deleted macros are done differently here. *  end ow reproduce the line as a real opcode.* :op:reloc &sp,&alloc,&name  aendif  endmac  subhead LOCAL  #* Brief description: This macro is "MACLB::RTE_6:4:131:39 644 0 0 101400 5310706741 34435 "MACLB::RTE_6:4:131:39 $'"MACLB +#+#+#A$FST MACRO,M,L,T * *  * NAME: "MACLB * SOURCE: 92059-18026 REV.2326 820930 * RELOC: NONE* Pgmr: R.S.N., M.O.S., G.W.K.* * (OLD SOURCE: 92059-18012 REV.2301 820930)*  * ************************************************************ * * (C) Copyright Hewlett-Packard Company 1983. All rights * * * reserved. No part of this program may be photocopied, * * * reproduced or translated to another program language * * * without the prior written consent of Hewlett-Packard * * * Company. * * ************************************************************ * * * Comment Format for macros in this library: * macro comments * Brief Description: * Registers Affected: * Unusual Side Effects/ Miscellaneous Notes:  * Parameters: * Alternate Calling Formats/Default Parameters:* Example: * * * (( MACRO  GLOBALS &.SUBNAME CGLOBAL ' '&.RORWCALLED IGLOBAL 0 &.ELSELABEL[10,16] CGLOBAL [10]' '&.ENDIFLABEL[10,16] CGLOBAL [10]' '&.IFLEVEL IGLOBAL 0 &.IFDEEPLEVEL IGLOBAL 0  ENDMAC* * * CALL macro comments $* Brief Description: This macro generates the code to call a sub-$* routine with 0 to 10 parameters.* Registers Affected: depends on subroutine called* Unusual Side Effects/ Miscellaneous Notes: none  * Parameters: * &NAME is subroutine name* &P1,&P2,...,&P10 are the subroutine parameters%* Alternate Calling Formats/ Default Parameters: may be called with %$* 0 to 10 of the macro parameters &P1 to &P10; the ones not used$* will default to ''!* Example: To generate the code, call CALL as follows:!* JSB EXEC CALL EXEC,=D6 * DEF *+2 * DEF =D6 *  MACRO  CALL &NAME,&P1,&P2,&P3,&P4,&P5,&P6,&P7,&P8,&P9,&P10  EXT &NAME JSB &NAME DEF *+&.PCOUNT  .CALLPARS &P1,&P2,&P3,&P4,&P5  AIF &.PCOUNT > 6  .CALLPARS &P6,&P7,&P8,&P9,&P10  AENDIF ENDMAC* * Direct call-->no def return*  MACRO  DCALL &NAME,&P1,&P2,&P3,&P4,&P5,&P6,&P7,&P8,&P9,&P10 EXT &NAME JSB &NAME  .CALLPARS &P1,&P2,&P3,&P4,&P5  AIF &.PCOUNT > 6  .CALLPARS &P6,&P7,&P8,&P9,&P10  AENDIF ENDMAC* * * Local direct call-->no def return or EXT *  MACRO ' DLCALL &NAME,&P1,&P2,&P3,&P4,&P5,&P6,&P7,&P8,&P9,&P10 ' JSB &NAME  .CALLPARS &P1,&P2,&P3,&P4,&P5  AIF &.PCOUNT > 6  .CALLPARS &P6,&P7,&P8,&P9,&P10  AENDIF ENDMAC* * Local call --> no EXT on the label, with return address*  MACRO  LCALL &NAME,&P1,&P2,&P3,&P4,&P5,&P6,&P7,&P8,&P9,&P10 JSB &NAME DEF *+&.PCOUNT  .CALLPARS &P1,&P2,&P3,&P4,&P5  AIF &.PCOUNT > 6  .CALLPARS &P6,&P7,&P8,&P9,&P10  AENDIF ENDMAC* * Macro to do the parameters for the CALLx guys. * Does 5 at a time; this makes CALLs * with fewer than 6 parameters faster. * * Macro seems to do something strange, making pcount NOT * be what you might think it would be. *  MACRO  .CALLPARS &P1,&P2,&P3,&P4,&P5  AIF &P1 <> '' DEF &P1  AENDIF AIF &P2 <> '' DEF &P2  AENDIF AIF &P3 <> '' DEF &P3  AENDIF AIF &P4 <> '' DEF &P4  AENDIF AIF &P5 <> '' DEF &P5  AENDIF ENDMAC* * * ENTRY macro comments$* Brief Description: This macro sets up a subroutine that will be$$* called using the standard calling format (JSB name, DEF return$%* address, DEF P1, DEF P2, etc.). It gives the subroutine formal %#* parameters and calls .ENTR, which will replace these formal #* parameters with the actual parameters.* Registers Affected: all are clobbered #* Unusual Side Effects/ Miscellaneous Notes: &.SUBNAME, a global#"* assembly time variable, is set at the end of the macro to ""* communicate the subroutine name to the EXIT macro. So, to"#* use this macro, the GLOBALS macro, which declares all global#!* atvs, must be called following the MACLIB ! * statement. * Parameters: * &NAME is the subroutine name%* &FP1,&FP2,...,&FP10 are the formal parameters of the subroutine %%* Alternate Calling Formats/ Default Parameters: may be called with%%* 2 to 10 of the macro parameters &FP1 to &FP10; the ones not used%* will default to ''.  * Example: To generate call ENTRY as follows * RET BSS 1 SUB ENTRY RET,NUM * NUM BSS 1 * EXT .ENTR * SUB BSS 1 * JSB .ENTR * DEF RET *  MACRO  &NAME ENTRY &FP1,&FP2,&FP3,&FP4,&FP5,&FP6,&FP7,&FP8,&FP9,&FP10 AIF &FP1 <> '' &FP1 NOP  AENDIF AIF &FP2 <> '' &FP2 NOP  AENDIF  AIF &FP3 <> '' &FP3 NOP  AENDIF AIF &FP4 <> '' &FP4 NOP  AENDIF AIF &FP5 <> '' &FP5 NOP  AENDIF AIF &FP6 <> '' &FP6 NOP  AENDIF AIF &FP7 <> '' &FP7 NOP  AENDIF AIF &FP8 <> '' &FP8 NOP  AENDIF AIF &FP9 <> '' &FP9 NOP  AENDIF AIF &FP10 <> '' &FP10 NOP  AENDIF ENT &NAME &NAME NOP  AIF &FP1 <> '' EXT .ENTR JSB .ENTR DEF &FP1  AELSE  LDB &NAME,I STB &NAME  AENDIF &.SUBNAME CSET &NAME  ENDMAC* * * EXIT macro comments $* Brief description: This macro exits a subroutine that has been $* entered with the ENTRY macro. * Registers Affected: none"* Unusual Side Effects/ Miscellaneous Notes: IMPORTANT: EXIT"#* can only be used if ENTRY was used to enter the routine; the##* ENTRY macro sets &.SUBNAME to the subroutine name needed for#* EXIT.  * Parameters: none * Alternate Calling Formats/ Default Parameters: none #* Example: If SUB ENTRY FP1,FP2 is the head of a subroutine, the#* call EXIT will generate the code JSB @SUB *  MACRO  EXIT JMP @&.SUBNAME  ENDMAC* * STOP: generate a CALL EXEC 6 to kill the program*  MACRO  STOP EXT EXEC JSB EXEC DEF *+2 DEF =D6  ENDMAC* * * TYPE macro comments #* Brief Description: This macro types a message to the terminal#* Registers Affected: none !* Unusual Side Effects/ Miscellaneous Notes: Only works when! * it is a session system; else message goes to console * Parameters: * &MSG is the message to be typed * Alternate Calling Formats/ Default Parameters: none  * Example: To generate call TYPE as follows: * JSB EXEC TYPE 'HELLO THERE' * DEF *+5 * DEF =D2 * DEF =D1 * DEF =S'HELLO THERE' * DEF =L-11 *  MACRO  TYPE &MSG EXT EXEC JSB EXEC  DEF *+5 DEF =D2 DEF =D1 DEF =S&MSG DEF =L-:L:&MSG  ENDMAC* * MESSAGE macro comments#* Brief Description: This macro sets up a pointer to a block of##* memory containing the length in words and text of a string. ##* This macro is useful if one wants to use the string in WRITF#"* calls without having to calculate the length of the string" * oneself. * Registers Affected: none * Unusual Side Effects/ Miscellaneous Notes: none * Parameters: * &PTR will point to the message* &MSG is the actual message$* The length of the message in words will be at address &PTR and$* the actual message will follow. * Alternate Calling Formats/ Default Parameters: none "* Example: To generate call MESSAGE as follows:"%* MPTR DEF *+1 MESSAGE MPTR,'HOW ARE YOU?' % * DEC 6 * ASC 6,HOW ARE YOU? *  MACRO  MESSAGE &PTR,&MSG &LEN ILOCAL (:L:&MSG)+1/2 &PTR DEF *+1 DEC &LEN ASC &LEN,&MSG  ENDMAC*  * TEXT macro comments !* Brief description: This macro puts a string of characters into!!* memory. It generates an ASC statement. Caller doesn't need to ! * know string length. * Registers affected: none * Parameters: &P1 is the string to be put into memory * Example: To put the string 'XYZ' into memory: TEXT 'XYZ'* Left justifies, blank pads.*  MACRO  TEXT &P1 &LEN ILOCAL (:L:&P1)+1/2 ASC &LEN,&P1  ENDMAC* *  * MAX macro comments %* Brief Description: This macro returns the maximum of two numbers %* in the A-register.* Registers Affected: * A-register: ends up with maximum '* E,O registers: no effect unless there is overflow(see next section)'&* Unusual Side Effects/ Miscellaneous Notes: No oveflow check. Only &* safe to use if two numbers are less than 32K apart.  * Parameters: * &P1 is the address of one number* &P2 is the address of the other number* Alternate Calling Formats/ Default Parameters: none$* Example: If location FOO contains 6 and BAZ contains 8, the call$* MAX FOO,BAZ will put an 8 in the A-register.*  MACRO  MAX &P1,&P2  LDA &P1  CMA,INA  ADA &P2  SSA  CLA  ADA &P1  ENDMAC* *  * MIN macro comments %* Brief Description: This macro returns the minimum of two numbers %* ((in the A-register.* Registers Affected: * A-register: ends up with minimum'* E,O registers: no effect unless there is overflow (see next section)'&* Unusual Side Effects/ Miscellaneous Notes: No overflow check. Only&* safe to use if numbers are less than 32K apart.  * Parameters: * &P1 is the address of one number* &P2 is the address of the other number* Alternate Calling Formats/ Default Parameters: none &* Example: If location FOO contains 6 and location BAZ contains 8, the&* call MIN FOO,BAZ will put a 6 in the A-register.*  MACRO  MIN &P1,&P2 LDA &P1  CMA,INA  ADA &P2  SSA,RSS  CLA  ADA &P1  ENDMAC* * * DOIF macro comments &* Brief Description: The DOIF macro performs a comparison and DOes an&* instruction IF the comparison goes the right way. * Registers Affected: "* A-register: may or may not be clobbered, according to the"* following table: * comparison Form 1 Form 2$* LT,< yes no where yes = A clobbered$#* GT,> yes yes no = no effect##* LE,<= yes no Form 1 and Form 2 are#!* GE,>= yes no explained under!'* EQ,= no no Alternate Calling Formats/ '#* NE,<> no no Default Parameters #'* E,O registers: no effect unless there is overflow (see next section)'* Unusual Side Effects/ Miscellaneous Notes:&* 1. No overflow check. Only safe to use if numbers being compared&* are closer than 32K together. %* 2. Bumps error count if the second parameter is not one of the %* legal options. * Parameters: #* ® is the register, A or B, which contains the 1st operand#* of the comparison* &COMP is the comparison operator. It may be* LT,< -- Less Than * GT,> -- Greater Than* LE,<= -- Less Than or Equal to* GE,>= -- Greater Than or Equal to * EQ,= -- Equal to* NE,<> -- Not Equal to !* &PARAM3 is either the address of the 2nd operand of the !$* comparison, or the instruction to do if the comparison$#* goes right, depending on if the macro is called with#* Form 1 or 2.$* &PARAM4 is the instruction to do if the comparison goes right $"* if Form 1 is used; if Form 2 is used it defaults. "* Alternate Calling Formats/ Default Parameters:&* This macro has two possible calling formats, which are described& * below: %* Form 1: Used to compare a number in a register to a number in %$* a certain memory location. &PARAM3 is that location$&* and &PARAM4 is the instruction to execute if the compar-&* ison goes right.&* Form 2: Used to compare a number in a register to 0. &PARAM3 is &&* the instruction to execute if the comparison goes right;&* &PARAM4 defaults to ' '. * Examples: * Form 1: DOIF A,GT,FOO,'JMP *+2' says $* IF the number contained in the A-register is greater $$* than the number contained in location FOO, THEN skip $"* the next instruction; otherwise execute the next"* instruction. * Form 2: DOIF B,LE,'JMP LESS' says%* IF the number contained in the B-register is less than %%* or equal to 0, then JMP to LESS; otherwise execute the %* next instruction.* *  MACRO  DOIF &LOC,&PHONYCOMP,&PARAM3,&PARAM4' '  ® CLOCAL :UC:&LOC &COMP CLOCAL :UC:&PHONYCOMP  AIF ® <> 'A' :AND: ® <> 'B'  LDA &LOC ® CSET 'A'  AENDIF AIF &PARAM4 <> ' ' AIF (:UC:&PARAM3 = '=D0') :OR: (:UC:&PARAM3 = '=B0')  .DOIFONEOP ®,&COMP AELSE  AIF (&COMP = 'EQ') :OR: (&COMP = '=') CP® &PARAM3 AELSEIF (&COMP = 'NE') :OR: (&COMP = '<>')  CP® &PARAM3 JMP *+2 AELSE  AIF :S:[1,1]&PARAM3 = '='  SUBTRACT ®,&PARAM3 .DOIFONEOP ®,&COMP  AELSE  .DOIFTWOOP ®,&COMP,&PARAM3  AENDIF AENDIF AENDIF &PARAM4  AELSE  .DOIFONEOP ®,&COMP  &PARAM3  AENDIF ENDMAC* * Does expansion for two-operand DOIFs (and IF's, of course) *  MACRO  .DOIFTWOOP ®,&COMP,&PARAM3  AIF (&COMP = 'LT') :OR: (&COMP = '<')  CM® AD® &PARAM3 SS®',RSS'  AELSEIF (&COMP = 'GT') :OR: (&COMP = '>')  CM®',IN'®  AD® &PARAM3 SS®  AELSEIF (&COMP = 'LE') :OR: (&COMP = '<=') CM®',IN'®  AD® &PARAM3 SS®',RSS'  AELSEIF (&COMP = 'GE') :OR: (&COMP = '>=') CM® AD® &PARAM3 SS®  AELSE  MNOTE 'Invalid comparison specified: '&COMP  AENDIF ENDMAC* * Does expansion for one-operand DOIFs *  MACRO  .DOIFONEOP ®,&COMP  AIF (&COMP = 'NE') :OR: (&COMP = '<>') SZ®  AELSEIF (&COMP ='EQ') :OR: (&COMP = '=') SZ®',RSS'  AELSEIF (&COMP = 'GE') :OR: (&COMP = '>=') SS®',RSS'  AELSEIF (&COMP = 'LT') :OR: (&COMP = '<')  SS®  AELSEIF (&COMP = 'LE') :OR: (&COMP = '<=') SS®',RSS' SZ®',RSS'  AELSEIF (&COMP = 'GT') :OR: (&COMP = '>')  CM®',SS'®',IN'®',SZ'®  AELSE  MNOTE 'Invalid comparison specified: '&COMP  AENDIF ENDMAC* * * IF,ELSE,ENDIF macro comments#* Brief Description: These three macros allow the programmer to#"* use IF ELSE constructs. These constructs may be nested up" * to 10 deep. * Registers Affected: Same as for DOIF* Unusual Side Effects/ Miscellaneous Notes:"* 1. Call DOIF; see this category in that macro's comments. "!* 2. Use two global assembly time arrays, &.ELSELABEL and !"* &.ENDIFLABEL and two other global atvs, &.IFLEVEL and "* &.IFDEEPLEVEL."* 3. If the IFs are nested past 10 deep, the error count is "* bumped and a message appears in the list file. * Parameters: * ® is the location which contains the 1st operand * of the comparison. It can be A or B, also."* &COMP is the comparison operator. see DOIF for operators."%* &PARAM3 is the address of the 2nd operand of the comparison. If%'* &PARAM3 is not specified, the 2nd operand is assumed to be 0. '* Alternate Calling Formats/ Default Parameters:%* May be called with or without &PARAM3. &PARAM3 defaults to ' '.%&* Example: Say that if the contents of the A-register were less than &%* 12, you wanted to clear the B-register; otherwise you wanted to %$* store the contents of A into B. You could write the following$ * piece of code: * IF A,LT,=D12 * CLB * ELSE * STA B * ENDIF #* To change the 12 to a 0, just make your IF call as follows: # * IF A,LT *  MACRO  IF ®,&COMP,&PARAM3 &.IFLEVEL ISET &.IFLEVEL + 1&RC CLOCAL :UC:&COMP AIF &.IFLEVEL > 10 .IFNESTERROR  AENDIF  AIF &.IFDEEPLEVEL = 0 &.ELSELABEL[&.IFLEVEL] CSET #!#ELSE&.Q AIF (&RC = 'EQ') :OR: (&RC = '=')&RC CSET 'NE'  AELSEIF (&RC = 'NE') :OR: (&RC = '<>') &RC CSET 'EQ'  AELSEIF (&RC = 'LT') :OR: (&RC = '<')&RC CSET 'GE'  AELSEIF (&RC = 'LE') :OR: (&RC = '<=') &RC CSET 'GT'  AELSEIF (&RC = 'GT') :OR: (&RC = '>') &RC CSET 'LE'  AELSEIF (&RC = 'GE') :OR: (&RC = '>=') &RC CSET 'LT'  AENDIF  AIF &PARAM3 <> ''" DOIF ®,&RC,&PARAM3,'JMP '&.ELSELABEL[&.IFLEVEL]" AELSE  DOIF ®,&RC,'JMP '&.ELSELABEL[&.IFLEVEL] AENDIF AENDIF  ENDMAC*  * Error processor for Ifs *  MACRO  .IFNESTERROR  MNOTE 'More than ten nested Ifs'&.IFLEVEL ISET &.IFLEVEL - 1&.IFDEEPLEVEL ISET &.IFDEEPLEVEL + 1 ENDMAC*  * Else processor *  MACRO  ELSE AIF &.IFDEEPLEVEL = 0  AIF &.ENDIFLABEL[&.IFLEVEL] = ' ' &.ENDIFLABEL[&.IFLEVEL] CSET #!#ENDIF&.Q  AENDIF  JMP &.ENDIFLABEL[&.IFLEVEL] &.ELSELABEL[&.IFLEVEL] EQU *&.ELSELABEL[&.IFLEVEL] CSET ' ' AENDIF ENDMAC*  * Elseif proces((sor *  MACRO  ELSEIF ®,&COMP,&PARAM3  ELSE &.IFLEVEL ISET &.IFLEVEL - 1 IF ®,&COMP,&PARAM3 ENDMAC*  * Endif processor *  MACRO  ENDIF  AIF &.IFDEEPLEVEL = 0  AIF &.ENDIFLABEL[&.IFLEVEL] <> ' '&.ENDIFLABEL[&.IFLEVEL] EQU *&.ENDIFLABEL[&.IFLEVEL] CSET ' ' AENDIF  AIF &.ELSELABEL[&.IFLEVEL] <> ' ' &.ELSELABEL[&.IFLEVEL] EQU *&.ELSELABEL[&.IFLEVEL] CSET ' ' AENDIF &.IFLEVEL ISET &.IFLEVEL - 1  AELSE &.IFDEEPLEVEL ISET &.IFDEEPLEVEL - 1  AENDIF ENDMAC* * Comments for macro SETBIT:* Brief description: Sets (logical 1) the bit specified* as the parameter in the operand field. Always sets the bit * A register. B is unchanged. The operand is interpreted as* MOD 16 * Default parameters: none * Example: setbit 2 generates IOR =D4 *  MACRO  SETBIT &WHICH &X ILOCAL 0 &X ISET 1:LSH:&WHICH IOR =D&X  ENDMAC*  * CLEARBIT macro comments: $* Brief description: This macro clears a bit in the register specified.$* The other bits are unchanged. #* Registers affected: the one to have the bit cleared. E register if#* the bit to be cleared is 0 or 15. * Parameters: &WHICH is the bit to be cleared* ® is register to clear the bit in.$* Side effect: If the bit to be cleared is anything other than 0 or 15,$* only the A register may have the word to clear the bit in.* *  MACRO  CLEARBIT &WHICH,®'A'  AIF &WHICH = 15  EL®',CLE,ER'® AELSEIF &WHICH = 0  ER®',CLE,EL'® AELSE  AIF ® <> 'A' :AND: ® <> 'a' MNOTE 'Please use the A register'  AELSE &X ILOCAL 0 &X ISET 1:LSH:&WHICH &X ISET -&X-1 AND =D&X  AENDIF  AENDIF ENDMAC* #* Description: Performs the given instruction if the specified bit in#* the given address is set (logical 1). #* Registers effected: E is clobbered. If the given address is not a ##* register, then the A register is clobbered. If the given address is##* a register, and the bit to test is not 0 or 15 then that register is#* clobbered and the A register is clobbered. * Parameters: &ADDR is the address (or register) to test bit in * &WHICH is the bit number to test (MOD 16)"* &TESTVAL is zero or one; the value the bit should be "$* &INSTR is the instruction to execute if the bit equals $* the test value*  MACRO  TESTBIT &ADDR,&WHICH,&TESTVAL,&INSTR &RSS CLOCAL ',RSS' ® CLOCAL :UC:&ADDR &X Ilocal 1:LSH:&WHICH  AIF &TESTVAL <> 0  &RSS CSET ''  AENDIF AIF ® <> 'A' :AND: ® <> 'B'  LDA ® ® CSET 'A'  AENDIF AIF &WHICH = 0 'SL'®&RSS  AELSEIF &WHICH = 1 AIF &RSS = ''  R®'R',SL®  AELSE R®'R' SL®,RSS AENDIF  AELSEIF &WHICH = 12  AIF &RSS = ''  ®'LF',SL®  AELSE ®'LF' SL®,RSS AENDIF  AELSEIF &WHICH = 13  R®'L',R®'L' 'SS'®&RSS  AELSEIF &WHICH = 14  R®'L' 'SS'®&RSS  AELSEIF &WHICH = 15  'SS'®&RSS  AELSE  AIF ® = 'B' LDA B AENDIF AND =D&X SZA&RSS  AENDIF &INSTR ENDMAC* $* Description: Right justifies and masks out a field of bits into the A $* register. * Registers affected: A, E #* Parameters: &ADDR is the address or register containing the word to#* extract the field from.$* &STARTBIT is the bit position wanted in the bit position $* zero in the result.* &WIDTH is the number of bits desired. * *  MACRO  FIELD &ADDR,&STARTBIT,&WIDTH ® CLOCAL :UC:&ADDR AIF ® <> 'A' LDA ® ® CSET 'A'  AENDIF &X ILOCAL -&STARTBIT AIF &STARTBIT <> 0 ROTATE A,&X  AENDIF AIF 16 > &WIDTH &X ISET &WIDTH-16 &X ISET -1:LSH:&X AND =D&X  AENDIF ENDMAC* * ADD macro: here because SUBTRACT * is; see below. Operand one is the source, operand two is the * amount to add, operand three is the (optional) destination.*  MACRO  ADD &LOC,&OLDAMT,&DEST &AMT CLOCAL :UC:&OLDAMT ® CLOCAL :UC:&LOC $ AIF ((&AMT = '=D1') :OR: (&AMT = '=B1')) :AND: (® = :UC:&DEST) $ ISZ &DEST  NOP AELSE  AIF (® <> 'A') :AND: (® <> 'B') LDA ® ® CSET 'A'  AENDIF  AIF (&AMT = '=D1') :OR: (&AMT = '=B1')  IN®  AELSE AD® &AMT  AENDIF  AIF &DEST <> '' ST® &DEST  AENDIF  AENDIF ENDMAC* * Macro SUBTRACT: Why not? !* Operand one is the source, two is the amount to subtract; three !* is the optional destination. No overflow check made. *  MACRO  SUBTRACT &LOC,&AMOUNT,&DEST  &AMT CLOCAL :UC:&AMOUNT ® CLOCAL :UC:&LOC &TAG CLOCAL :S:[1,2]&AMT' ' &LITLEN ILOCAL :L:&AMOUNT-2  AIF (® <> 'A') :AND: (® <> 'B')  ® CSET 'A'  AIF (&TAG = '=D') :OR: (&TAG = '=B')  AIF (&AMT = '=D1') :OR: (&AMT = '=B1')  CC® AELSE  LD® &TAG'-':S:[3,&LITLEN]&AMT AENDIF  AELSE LD® &AMT  CM®,IN®  AENDIF AD® &LOC  AELSE  AIF (&TAG = '=D') :OR: (&TAG = '=B')  AD® &TAG'-':S:[3,&LITLEN]&AMT AELSE CM® AD® &AMT CM® AENDIF  AENDIF AIF &DEST <> '' ST® &DEST  AENDIF ENDMAC* "* Description: Does a logical shift on the register specified by the"$* number of bits specified. If the number of bits is less than zero, the$ * shift is to the right. * !* If the location is not a register, the result is returned in the!!* B register. I know this is not consistent, but the long shifts ! * do the wrong thing. *  * Registers affected: * clobbers both if |distance| > 2*  MACRO  LSHIFT &LOC,&DIST ® CLOCAL :UC:&LOC &HOWFAR ILOCAL &DIST  AIF ® <> 'A' :AND: ® <> 'B'  LDB ® ® CSET 'B'  AENDIF AIF &HOWFAR > 2  AIF ® = 'B'  CLA AENDIF LSL &HOWFAR  AELSEIF &HOWFAR = 2  ®'LR,R'®'L'  AELSEIF &HOWFAR = 1  CLE,EL®  AELSEIF &HOWFAR = 0  AELSEIF &HOWFAR = -1 CLE,ER®  AELSEIF &HOWFAR = -2 CLE,ER® ®'RS'  AELSEIF &HOWFAR < -2 AIF ® = 'A'  CLB AENDIF &HOWFAR ISET -&HOWFAR LSR &HOWFAR  AENDIF ENDMAC MACRO  ASHIFT &LOC,&DIST ® CLOCAL :UC:&LOC &HOWFAR ILOCAL &DIST  AIF ® <> 'A' :AND: ® <> 'B'  LDB ® ® CSET 'B'  AENDIF AIF &HOWFAR > 2  AIF ® = 'A'  .ASHIFTALEFT &HOWFAR AELSE CLA  ASL &HOWFAR  AENDIF  AELSEIF &HOWFAR = 2  ®'LS,'®'LS'  AELSEIF &HOWFAR = 1  ®'LS'  AELSEIF &HOWFAR = -1 ®'RS'  AELSEIF &HOWFAR = -2 ®'RS,'®'RS'  AELSEIF &HOWFAR < -2 &HOWFAR ISET -&HOWFAR  AIF ® = 'A'  .ASHIFTARIGHT &HOWFAR  AELSE  ASR &HOWFAR  AENDIF  AENDIF ENDMAC* * Helper for shifting the A register *  MACRO  .ASHIFTALEFT &DIST &HOWFAR ILOCAL &DIST AIF &HOWFAR = 3 ALS,ALS  ALS  AELSEIF &HOWFAR = 4 ALS,ALS ALS,ALS  AELSE  LSL 16 ASL &HOWFAR  LDA B  AENDIF ENDMAC* * Another A register helper*  MACRO  .ASHIFTARIGHT &DIST &HOWFAR ILOCAL &DIST AIF &HOWFAR = 3  ARS,ARS ARS AELSEIF &HOWFAR = 4  ARS,ARS ARS,ARS AELSE  LDB A  ASR &HOWFAR  LDA B AENDIF ENDMAC* * Macro for rotating things*  MACRO  ROTATE &LOC,&DIST ® CLOCAL :UC:&LOC  AIF ® <> 'A' :AND: ® <> 'B'  LDA ® ® CSET 'A'  AENDIF &HOWFAR ILOCAL &DIST AIF &HOWFAR < 0 &HOWFAR ISET &HOWFAR+16  (( AENDIF AIF &HOWFAR >= 12 &HOWFAR ISET &HOWFAR-16  AENDIF AIF &HOWFAR >= 8  ®'LF,'®'LF' &HOWFAR ISET &HOWFAR-8 AENDIF AIF &HOWFAR >= 5  ®'LF,R'®'L' &HOWFAR ISET &HOWFAR-5 AENDIF AIF &HOWFAR >= 4 ®'LF' &HOWFAR ISET &HOWFAR-4 AENDIF AIF &HOWFAR >= 3  ®'LF,R'®'R' &HOWFAR ISET &HOWFAR-3 AENDIF AIF &HOWFAR >= 2  R®'L,R'®'L' &HOWFAR ISET &HOWFAR-2 AENDIF AIF &HOWFAR >= 1 R®'L' &HOWFAR ISET &HOWFAR-1 AENDIF AIF &HOWFAR <= -2  R®'R,R'®'R' &HOWFAR ISET &HOWFAR+2 AENDIF AIF &HOWFAR <= -2  R®'R,R'®'R' &HOWFAR ISET &HOWFAR+2 AENDIF AIF &HOWFAR <= -1  R®'R' &HOWFAR ISET &HOWFAR+1 AENDIF ENDMAC* "* Macro RESOLVE: does indirect resolution on an address in A or B. "!* Assumes it is given a pointer to a def, like is the case in the !"* software version of .ENTR. Does not work if the register contains""* the def itself. Trashes E (so?), updates the specified register. "*  MACRO  RESOLVE ® LD® @®  R®'L,CLE,SL'®',ER'® JMP *-2  ENDMACR. Does not work if the register contains""* the def itself. Trashes E (so?), updates the specified register. "*  MACRO  RESOLVE ® LD® @®  R®'L,CLE,SL%LP31::RTE_6:5:10:60 644 0 0 5000 5310706743 32642 %LP31::RTE_6:5:10:60 $ $ <%LP31 +#+#+# $%FST  LPCON #92062-16003 REV.2441 840312 @LPCOND/-.DST .ENTR.MPY EXEC LUTRU`Bb `B__`NZ&d@3(@)A&k0S&l6D  `E|b   **`_W3 1 1 X(@)&dCk0Sl0D*`Aa4`Ceo6?`Be: `A`~=<<`a$?Ap@B@ BH  0(Y`B(`BP(C<::`^`@CH   0(C(t``p(C(}pCC(: `D/~pCC <<`^C%PCpZp@C@p` `(p(`p@(`@h(<;;`[@`(`@Hh עHC@p(`@h H` C; `C@p( ;;`]`ZBP(C@ CH!   0(`"C`p(BP(C;<<`^z۴CH#  P0(0$C@%h `p(BP(CCH#< `Ea   ;;`^ Z0(0&C@%h `p(BP'()CCH#   0;<<`^$(0(`)Ch `p(BP*(GCCH!  Z0(< `C_:0(`+ <<`^]o=PCh  `,`'p(ZBP-(oCCX' 0CX- 0CH <<<`]z[P  0(0(`.ZCh `/ `'p(PBP0(p`1ph< `CNx(|` ;;`] d{Pp`@ (8 (y`p`P@p`@p2pAp@;<<`\}@ p4p36p5@578@Zp6pAp9`P:(`;A< `CTp9`h ::`^p<`3ZX' h<Z  0hPX4 0(`P(ڶhH=@:<<`]^nմZ`p(`@h`p(`hp>`3PZX' h>PX: 0< `DO(`B <<`b};Z(`@(`3ZPhX' (?$9  ( `p<9<`K&< BDBBD%DVB12::RTE_6:5:17:60 644 0 0 10400 5310706745 32753 %DVB12::RTE_6:5:17:60 $0<%DVB12 +#+#+#[2%FST "" fDVB12 92062-16004 REV.2540 <850717.1012>"@..BLAB#CB12 IB12  C$UPIO.LBT  <<`\b.$IZ w p(+lPg(mPw(9Pe(("a<;;`\Pw(.PY(PZ(o`w`h*(h`Zk("(; `D8P( ;;`^ק<(I yy@Y0b] hO(hP` ($;;;`[ZH ('cZ(u`p0\hZ(%8Z(i(u8(h(a; `D4uH <<`^ܳy (Z0[ (' ` Z((<<<`]1pbZ88`hj!( ׶px((0('(< `C3(  <<`]P(a("hc@c0hǦ(hZ8и((<;;`\ԶPw(Pi("`h(hPh((޶`h(hp$j; `CBXw(8$ ;;`[:Z$Pj((0p('Z}(K0Z(]PY(;<<`\ݖ`q(\hpd((ZHfhqZ([([([< `C.*uP(2 ;;`[w-P(:P(>(@ `  (;0(gh=(h@`p([j ;<<`[;Hڸ([jpc("(`0hW(h6X(`(\(9< `Dmc(  ;;`Z.Aghf (al(P|(P~(P(P(ҶP(P(P(;<<`\`Y`(`p0 (0d(`a@Z(@\(@Y(@Y< `D͎( w ;;`Z>0(@x(@Y(PZ0@\ d@z(gp0Y  Y`[`p;;;`Y?mj0j0p0p`(g]pn0m0(g`; `Dr @d(g <<`[شZt`h(h 0`(g_pp0s @`00h(h<<<`^6``(g$("Z0p ( w ((((c< `C& ( ::`^2(9o @8X(S@ (P(.(p(:;;`\2Z0b  b`(0(_J`6HH(? Z(aP(}P(P; `D7N(  ;;`[KR(cqp  (c`` (_`иH(a;<<`[-mn(_p(z`(c`Hڨqq0ph(hq< `C(`ph ;;`\(hnpH(fq0p`Ph(hp@Pp ( (`;<<`\hh(h`h(h_0h(h]0h(h (`p0u< `Cz%öP0( ;;`[p1ƶp(j0h(hжlPb(`h(h (`rPq(@;;;`_Z8vZp@p]P0h 0^  0`h 0dP; `EG@u ;;`].p`( ((a`h]Pw p00h(h680;<<`Z*"Z(0Vp'aPX$pX0Wp@bpp@dppp@bp@gppp$@|< `C$jB%n$!Fk%Y`%Y`%z@kp%W$!P%{%WBBpP(!I`%x@kp%W$!a%n%W%u`%x< `B/!b@kh <<`cB!dH%[p%Wx%X!m$%n%WX%~6B`%~@ p `%n@p@%m(!l!~k4@%Y`%Y!k%Y`%Y<::`hѺ!B!&k%Y`%Y!%nj6%(C!%n$ju%!$%hjn%4ZB`C@p%W$!n%W`:`B!p<<``q!P(!(!`pn`p!%&n`%hڂ%p`%P(!`%P(!˰(!!%hn$n%h<<<`e!&%%j`%Pn(!!%nj0%!%nj&H%!%h$jn%nB`%Pn(!`%Pn(!(!(%N!$%nj<`C!&c%o<<`c!$!%hjn%B`C@p%W"n%WZ`pP("("%`pk"$%kZ`%@P%("<;;`b"("A`%|P%h("ö`%|P%n("$"+%nj%"1%njH0%"7%hj$n%nB`%Pn(!`%Pn; `B">("@("+ ;;`b3"@(%N`%P%("F("%"L%nj&%"R%h$jn%B"YnC`p`p`("a("d;;;`c^"bP("k"j%n$j*%("F`%z@kp%W"r%{ %WBBpP("kBP(""&k%Y`%Y; `B"`%z@k <<`cq"p%W"%{%WZBBpP("`%np`%@kp%W"$%{%WB`%z@kp%W"%{ %WBB<;;`aO"pP("`%}Bp`(""%nj96%("F`pZ@("(""k%Y`%Y; `B"˴`%z@k <<`a&"Ͱp%W"%{%WZBBpP("p`@%ch%y`p@%l("ܶ`%x@kp%W"$%h%W<<<`i^"0%u"%nj&%g"%n$j%w'"6ph#%n$jd%g# $%njH%$#%hjn%hډB`%Pn(%N`%< `B#Pn(# ;;`f +#(#P(#Mp'#"p'#)%nj0%t#/%nj&T%s#5%h$jB%n$#:k%Y`%Y`%z@k;<<`cOj#?p%W#D%{%WZBBpP(#=("$#U%hnn%~$%%jB@Cp`(#_Z`pp`%x< `B#b@kh ;;`^)#dH%[p%Wx%X#m$%h%WX%~`%~@p@%i(#a`vp`up`@@%fp&(#(#`;<<`]*#p`P(#$#%nj%t(%N`rp`wp`%bpl`%Zpoop`%x@khH%[p%Wx%X< `D.#$#%h%WX <<`aX#6%~`%z@kp%W$#%{%WBBpP(#`%}Bp`($B`p'#p`$#%nj<<<`gr#&D%|#%n$jT%s#$%hjB%n#k%Y`%Y`%z@kp%W#%{%W"BBpPP(#p<`A#`<<`e#P@%_h%y`Zp@%l(#`%x@kp%W#%h$%W!%u$$%nj%g$$ %nj$%w'$ !ph$$%n<<<``$$jd%g`%vp`@%^hH%]($($'`Zp@%k($`P!($>'$*p'$1%nj$%t<`BD$1$7::`^O$3$%njT%s$$=%hjB%n(#`"p`#p`%~@p@%i(#o`P($P@p(#`%a:<<`\$Qpl`%`po`($Y`%Zpo`%P($]($_`%Zpo`pp`%x@khH%[p%Wx%X$$o%h%W< `D=<$m&ХX%~`%z@k <<`c]$qp%W$v%{%WZBBpP($o`%}BZp`(% `p'$p`$%nj&D%|$%n<;;`df$$jT%s$$%hjB%n$k%Y`%Y`%z@kp%W$%{%W"BBpZP($p`@%_;`Bs$h%y<<`fY$`p@%l($`%x@kp%W$$%h%W!%u$%nj0%g$%nj&$%w'$!ph$%nj&d%g`%v<<<`aK$p`@%^hH%]($($`p@%k($`P!(% '$6p'$%n$j%t%$%njT<`B%0%s;;`^SF%$%%hjB%n($`%~@p@%i($co`p@($a(%?p`%rp`@%\hH%[;<<`ef%!Z`p`p@%i(%%3%nnp$%p%n`%Zpol%>%nn$nm%jl%Dk%Y`%Y< `D%F%M%n `M%J$j%o(C$%T%nj%n%W%g<<`n%Z$%6mo $#%%$I$! !@   'NOYE <`N>%? < RESA?'&c::Xtek.*;NLREPCHAR 92089-1X013 REV.2440 <841129.1043> P92089/&NLIB3::PCO: kNLREPCHAR ++4.ENTR .LBT.SBT%4PVMP::RTE_6:5:2:60 644 0 0 1000 5310706751 33276 %4PVMP::RTE_6:5:2:60 $d<%4PVMP +#+#+#%PFST  PVMP4 C92067-16001 REV.1806 771219 @ $PVMP $DVPT$MATA$MRMP <<`^wp?h@9H:;P5(2H8<Z8@p@@6P?(P`hA<::`e*h@H7>p``0=`hBѨ`ɨ? B:* * links,cp,, use current page links le,on * *  * System Relocation * * erre /rte_a/%vctr %4AUTR::RTE_6:5:6:60 644 0 0 3000 5310706753 33406 %4AUTR::RTE_6:5:6:60 $h<%4AUTR +#+#+#%TFST  AUTOR 92067-16118 REV.2441 841128 ;;@CXAUTORI.NFOP.NFCL.NFIN.FFOP.FFCL.FFIN.FFCN.DNOP.DNCL.DNIN.DNCN.DSOP.DSCL; @.DSIN.DSCN ; EXEC XLUEXMOD .FIONICONVTMVALIGET `B`a`B`_$$`Z POWER FAILED AT XX: XX: XX. XX0 ON DAY XXX OF 1970$;;``3 I O4Zp>p`>(mp$]<H(i`<@ (i`H@ (i(u; `Di((88(W $$`Z$!POWER FAIL LU NOT FOUND. TIME OF POWER FAIL UNKNOWN $<<`efms!"p{$ $?`@pGhGpGpFhFpE`<::`^,PE((` pE`pD($ZFpD`@E@ p`@p4hD: `Bp ;;`dj$`pDp?$@&A "Bp`>;;;``$Qֶ(p$<=;(Z`<(`@(p g4Z ` (`p_p `(Π `[ (kp ;33`[ʴp g `Xp`'(6'((_$@'p'p+4[3%%`R((p+x `+(` (o`sp% `Vah$1 6 P (  ACOMD @ACOMD  ACOMC @ACOMC`HHE, ACCT0000 , `A`A`AaD ACOMB [@ACOMB`A`ZZZ ACOMA @ACOMA`A`A ?ACOM9 @ ACOM9  ACOM8 )@ACOM8  ACOM7 @ACOM7  ACOM6 @ACOM6`A`H ACOM5 @ACOM5  ACOM4 -@ACOM4`A`k+`C8"(ACCTS (( sACOM3 @ACOM3`A`@<<`nQNE,GR SYS /ENE,GR SUPPORT /ENE,GR GENERAL /ENE,US MANAGER SYS Y PA<<<`nHSSWORD FMGR0,0 6310/E10 /ENE,US ENGINEERSUPPORT Y HP31178 < `DvFMGR0, ++``oz0 6310/E10 /EEX +zz ACOM2 @ACOM2`LE SEGMENT MISSING `L8 ACCTS  ACOM1 @ACOM1`Am=  QACCT1 c92067-16361 REV.6000 920909 BACOM2TACOMDSACOMCQACOMA!FACOM6EACOM5CACOM3IACOM9DACOM4 GACOM7 AACOM1@ACCT1j<<EXEC %.GOTO.CPM MOD .EXIT.ACCTS-ACACP,ACCREACERRACSES+READFACDIR#LUTRU*RNRQ WRITFACTRMACNVS ACWRIACITA)<VACINM(LBYTE'ACFST&LMES ACUSH$ACFDA"ACINT  ACOPNNAMF CLOSEACPSNACPRMNAMR ACREIACLNKACOPL `ITPLEASE LOG-ON: _`A`1--`b2~ *ACCT PURGED WORDS REQUESTED WORDS AVAILABLE -;;`_Rj`3pttzpz=`+p`=(`P=(&=`jp;`L~+SESSION NOT INITIALIZED `I#+S`(`Lm7ENTER IN,LO,HE OR /TR _<<`^+'7S?`P+((`hp`P+( `RP+hsX+ 0(`P+((<11`[/3x+ `Op`  X  (Ф7=>?`=122`Z@ ˴(=(`Sp=(;4Z?D;4Z?Dp? `ipC O2`PCENTER DISK LU FOR ACCTS FILE : _$$`Q夒'Cm?`+p`sP(`((`p$`HSSESSION LIMIT? _((`S'Sn?`sP+((p`+pKP+( `mpK(`SR[SESSION MEMORY ALLOCATION? (Y OR N) _;;`_K '[t?`sP+(h+ځ_P((`K@UpIT6I("("`TpI`IKpI(7;`NԁnNO. OF WORDS TO ALLOCATE? _`O7('-nl?`sP+(`+pIIT(7(`M|NUMBER OF USER ACCOUNTS? _`N7'<|N?`sP+(h+Ё^@+pa`NNUMBER OF GROUP ACCOUNTS? _;;`abE'Jl?`sP+(`a@+hn#@Apa@KhW@QpeOe(f(f`Ope;;;`af`K@pd`a@hap$6n@$@e@K@^pEKO8&E=`=(#4;`FF4P= `K2SYSTEM MESSAGE FILE? _<<`^y'u?`sP+(`dpBpH`^PH(`BpB`B@* hHH/`HpH@D(<++`S`O+pi`OPiZ(`i(&~(`{pO`{pO`{pO+ `GVPROMPT STRING? ::`^Sa`}p=WO=`sPO(`|PO(`{POp$Q[($(:99`]Zܠ `[@ph`qpg["Q(`zpg`N@h@*hNHhH*Hg[t((9<<`]`tp[`[@ApO(`SpBpH`B@*hHH2`BpB`HpH@H(cO<`BO?`N'LOCATION OF MESSAGE FILES? _<<`^y'l?`sP+(`KPpO+`KpO.pO,pO-`+pO)P`jpO&pO'pO(`IpO*`WpH<00`V.6 `H@* `HpH@@(6`fpO3`Qp?`Q@ep?`?@dp?g0`IxL4RO=OJ4P>`=(`QހSTATION CONFIGURATION (Y OR N)? _++`UU'Zm?`sP+(pH`?p@h+6_Pr(h(D`QpB+ `G8STATION LU? _ <<``Zj'oa?`RP+(7`sP+(U@+pb`bp$ybP$(p(h`B@1<`GTZp$`b($`BpB`KSESSION LU,SYSTEM LU? <<`a'u?`sP+(h`RP+( @+pc/6+3x+ @+pbw bp$bA<55`^W P($(p(`vbpbc4 O(p$qcZ$(5<<`^>&p(B6Q((`Qp^@Bp)`^@1vPc(`^Pp^@)(`B@1p$`b<`GЀ(@c$`BpB(`KoDUPLICATE SESSION LU  `D.dSu `S&dOVERRIDE PRIOR DEFINITION (Y OR N)? _<<`^'t?h+_Pr(( `^@1p$`b(@c$(`G@Bpk(p`@Bp(`H@*<::`_ h`H1`HpHHJ(/(/g*O4=OJ@`@Zp@pH``Pp`@((:<<`agl6(h>H(<h@X? Z(Z`HpB`B@* `BpB@@(FgWO=OJ@<))`SW`@p@`?R@@p_?@(e(e`?p@`@p?pB(n)`JDISK ALREADY DEFINED `D/'j#n` `H`qDISK POOL LU? _`In'sn?`sP+(w(`OI REDEFINE DISK POOL (Y OR N)? _;;`a?w'| M?h+_Pr(g(`+pb`RPb(bPX(p$&qb($(;<<`^=p(np^@Bp'`^@*Pb(j`^Pp^@'(`B@*hb`BpB`oPB<`A1(;;`](n`Bp```@* ``p`@@(g˦O=OJ@`@p@`RPb((g`@p?;99`]5Զ`Qp```@* Z``p`@FZ(pOg4O=O_6@`Q@@p@`@p?ha9<<``\4Pn@@p?p```@*`m@`p`@E(@?6@((gO=OJ@`@<44`[DZp@(pOg4O=OJ4Z@`@p@`@p?o)O=OJA>pH`H4;;`^V,@*hHH.`HpH@D(+;<Z?4D;AZ?6D`?pO(`?pO1`((_pO0gNO;`MJ4=OJ>`^ZO@EhO @p]`NPASSWORD FOR MANAGER.SYS? _;;`^gWs]l+4Z=`=(`kp^`QpH`^@0 hHH/`^p^`HpH@D(dp+;33`[uZ`jpwpw`p+`iP({O=]O=;$8hG\g3;;``R6=(pDPD((;f?D;f?DoO4=OJA>`O(p?;..`YmD>PD(;>?OoO4=OJA>`PP((.;;`^aɶpO-`O.pO+p>`O3p[`OpO3`epH`H@* Z`HpH@@(gO4=OJ>;11`V5pH`H@.hHH*`HpH@D(`O&pw`O'pw`O1p?`O*pI`O-1;;`[fp?`O/p`O.pK`O2p? [6c((`bpPp`Pp+`bp+`Zp`Yp`Xp;//`VL`Wp"++SQU=`pZ`pY`pX`pW`=(/<<`a.$3>Sk=`=(:k`>+"`p`P(Ep+M++TQU6=`SPT<44`\tOh]X=P 0(fpH`H@-hHH,`HpH@C(Zl&QSk4;;`_2k6=`Vp`P(oyO=OJAQ`RP@+_(`Q@R@+p$$^g ;55`[O=OJQ(`]P=((`P(pPp(4=oO=OJ5`M1&A>`>(cOO?`?(`I'SESSION SHUT DOWN ;;`a(c\'G`D(pO,`GPD(;4[O(O;4ZO1Op%Y?k(6>k(k(;..`VԹӶ`X0p`pO/gO=OJ>`=(=`O(p?`O1.;;`^لp?pH`H@* `HpH@@(`?pN@?pM`NpHgO=O&JH`HpH;55`[YZ@M(6OoO4=OJA?pH`H@*Z(BpB`B@+p$5;;`\+"%$pL`L(<`H@*PL(4`P@BpB@B(`H@*hHH*p$0V$`H;::`^>ZpH@@(`I(^`IpI`K@UpJ&TJ(S(S`TpJ`KJpJJI(^(^: `CQ\`JpI`I ;;`^C_@HpE`H@*PH(i(kpH`EpGZp? `?(y$yEFOH? PE(}(;$$`UĴ}GO#S$FO#$SP($`M0ENTER NO. OF WORDS OR /E _<<``Q'0N?`RP+(`+pE(e;P?4DoO=OJA6>`? pO2gO=<--`WlQOJ>;4P?D`( >pCZ`?p@@?p&oO-;;`^ 4=OJA@pB`B@*PC(`P@BpB@@(`@p@@&(ƶ( `O@B@*;88`[p>k=`k pp?`kp@`@(`Lp?`K@p@oO4=O8<<`a$JA@`I@?@*p`(>=KO8?=p"<`A#.;;`h_*OOk?+ k'mCREAT _+@CCT!++CCT!@ ;::`mR/E 2F 8 @ %$qdž6>/?Y/A Pc? /aNS2: `FyN2 LOINHE kj ACCT2 ?c92067-16361 REV.1940 790725 TACOMDGACOM7DACOM4CACOM3 BACOM2@ACCT2.GOTO.EXIT ACCTS ACLOA ACNWG ACNWUACERRNAMR ::`^\`7p4  ..> `=P=(h7.GOTO.EXIT ACCTS ACPUAACLIAACLIUNAMR `A`A;;`_[`Qp  <<<486Z `Yp`(,`YP(h X;33`XJ)!p`WP(,`VP(0`UP(4/R3T&7R3--`W69&;T@pP#CP`SP(G`(K'"N -`JQ AGUP ACCT5 c92067-16361 REV.1940 781213 TACOMDGACOM7 DACOM4 CACOM3 BACOM2@ACCT5z).GOTO.EXIT ACCTSACWRHACUNLACTELACALT`A`A77`^qT`p   ڨ6B# 7OM4 CACOM3 BACOM2@ACCT5z).GOTO.EXIT ACCTSACWRHACUNLACTELACALT`A`A77`^qT`p  !MTLDR::RTE_6:7:2:120 644 0 0 1000 5310706756 33627 !MTLDR::RTE_6:7:2:120 $x!MTLDR +#+#+#%FST @'Exu@wAw&wo?ogwo /^gwo/Yo?/XoЄ/|/aP /|/iPx/t@?/tP?/qX/a Q?Ȅ/^Q/ѯA?A  G?/`cekmtvai|Yx <<``YZDtaDt`Ztbtcdڀt_dcDjT,KdiDctddc<;;`a' DDft^ddDjT,DddDjt-3-e$ie,DdcDjt:$?:eh"b;99%FORMT::RTE_6:5:49:60 644 0 0 30400 5310706757 34276 %FORMT::RTE_6:5:49:60 $11<%FORMT +#+#+#1b%FST ## YFORMT  92067-16554 REV.6000 <920908.1441> #<<,$DATC .MVW .OPSY CLCUCEQTRQ EXEC GETSTICAPSLIMEM LOGLULURQ PARSERMPARXADRCXDREDXDSJ XDWRTXEND XFMSK<XFRMTXINITXLGADXLUEXXRCALXRDFSXRDOF`qXSEEKXSPARXSTATXTTBLXVRFY<<`a5x  $ f ` 8  ` 0 p  $ ` p d@p e` @ p  P ` <<<``M3!P ` p P (4fH (.h~(`p4 F$9 f ` P  ` PF < `CAA ` PF <<`]<:DP  x p p p pp  ` (\~ #((g((((0` p f(U<<<`[ah X((F'h x ` P(w~H(u(`(w(ohx h x < `Bg|h  ;;`\`~h (` (h~H((`Z(ZZ(p @ (`h X (;<<`]Ux `p Z '(` @.h y" h~(`h ~(`ɶ` P (`< `CP (P <<`\[(`P 8 P (h x h ~H((`((hx p +d(`<<<`]֢`p p`p ` '` (`88 (` @(`hx < `C` <<`]+(h~(`@@.h c Z p +p `p h ( ` (h~H((`<;;`\"9,(Z(p@@(` p '(`` @@(`h~; `C/, ;;`ZI2h X8 h X(Dh x h ~ZH(B(`(D(<` P (m`P (MP;<<`]L(mh X(^&SpP(a(^\6PF(ah~(`h~h x PH(k(`< `Dri(m(e 33`Xmhx p +`@pp`p `Z 'ƶ88({(`3;;`^q<h X8 hx p +`pp`p `P (`';<<`\88((``h X (`'88((`  H~` ڢP (< `FM„   <<`^6"p x Zh (` ( ~H(ݠZ(F˶(Z(p0ҴXp (<<<`^ND$" 6(` p`  h X (P ((@ (@ (ڴZ`(`< `Ch ( ::`^s( P (ڢPP P Z(h~P PPP P (ڨɀ !:;;`Ze% ` fP@PAPB(?PC(>PD(=PE(bZ(gpP(`ڨ8x`x.h Fh `xPFZ~hh X` 0Fp < `DT:( <<`_6$ 6 (` P (h (` p h x  8 ( (8 (<;;`_8 8 (` P (8   p  P (Š` @p8 ; `Dg¶(h ~ <<`^ƴ p (x ڨp (` ޶P(y8 (P Z(  ap (`P($ (<<<`_$ $ ` ۶0F(8 (`@ ި((((,(y(4(4` @ ( < `Dp  <<`^v6  ( x `p ` p (` P($`Fp `p 6 ` p (` <;;`^%p  p (` ( P ((P((P` POP P PYP P(Jp; `DE\C    <<`aSGp (h~(G   ` ޶P ( P(y` PYP (gpP V<;;`]hp (`n@ ޤZn(((( ((w(w` p 4Z  p (` P( ; `CKx 8 ` ;;`]p (( (p 8 ` p ( (`(Z j(` (` ;<<`[(`( p( v` h ޢXh Xp h (h `X(` P(@< `D!J(8 ( ;;``k[Ģ Vp pP((Z(` p ((($  4 `;<<`c_P8((($  (`P( 6 (  $d < `D& ( ;;`aS (($ f & (((((,)$d ((;<<`d,(;8$d & (((VE$ Z` P(S` h 6 < `CP(S ::`cS(((\\(x`P(l$k f $ (uu f$ :;;`_>v((($ & h ` 6`( j((` h ;`FWypx ;;``[& ` P(8h ( & 8` p(Z` 8p ;;;`\` P(P (Ȣ`  P (( j嶊8h (Ph ` xp ; `E״8 <<`_*ܢ` xh h x 8ڨ & `P (`@ 8 8h~<<<``p ܨ 6@p Hx  x h@hH @   .h < `D " ` ;;`_ P 8 @ hZ` .h  ` .h F`.h ƄZF`P( I;;;`^| >8 +( S`.h Fh~`.h „ZFh~h ~ X`.h p; `D \"Fh ~ <<`\ `ڨ Vh ~`p   ah~ |( kڨ jh ~ |Z( q ph ~ |( w v<))`Y |H |(` | |8 | | )<<`nl / 0FLM@?<<<`n 7cm< `Dj `F  <<`ntW +TASK? DISK LU?DO YOU REALLY WANT TO FORMAT THIS DISK? # OF FILL SECTORS?TRACK TO BE SPARED<<<`n Y? DATA WILL BE DESTROYED, OK TO PROCEED?# OF GOOD TRACKS = XXXX wBAD TRACKS SUBCHANNEL XX < `D LU <<`n LOGICAL CYL HEAD UNIT/ADDR BAD TRACK SPARED TO BAD SP<<<`nQ ARE TARGT TRACK $ $ XXXX SPARE TRACKS AVAILABLE WARNING! ALL INFORMATION O< `D N TRACK <<`n NOT SUCCESSFULLY RECOVERED OUT OF SPARE TRACKS FOR THIS LU INVALID TRACK # INVALID DISK L<<<`nl U FORMT FINISHEDFORMT ABORTED TURN OFF PROTECT OR READ-ONLY SWITCH - ENTER " ",CR TURN ON FO< `Dv GRMAT SWI <<`nZ KTCH - ENTER " ",CRREADY DISK - ENTER " ",CR INVALID DISK SPECIFICATIONS XX oNOT ENOUGH ROOM <<<`nȓ yFOR TRACK BUFFERCYLINDER COMPARE ERRORWARNING! POSSIBLE BAD FLOPPY MEDIA RETRY FORMT OR DISC< `D ARD FLOP <<`nM PY DISK MAX OF 20 BAD TRACKS EXCEEDED FORMAT PASS # XX OUTDATED SYSTEM SOFTWAREUNAUTHORIZED<<<`nao LU2,3 ACCESS - (COMMAND IGNORED) DO YOU REALLY WANT TO RE-FORMAT THE SYSTEM DISK?UNEXPECTED< `DS  HARDWAR <<`n E FAILURE - TASK ABORTEDENTER FO(RMAT), IN(ITIALIZE), SP(ARE), VE(RIFY), RE(FORMAT), EN(D)EN<::`m 9TER DISK LU < 256 ENTER YE,NO ENTER FILL SECTOR VALUE 0-28ENTER BAD TRACK # 0 - XXXX a:`Am8 URE - TASK ABORTEDENTER FO(RMAT), IN(ITIALIZE), &4AUTR::RTE_6:4:33:37 644 0 0 20400 5310706761 34273 &4AUTR::RTE_6:4:33:37 $!!%&4AUTR +#+#+#!U%FST ((FTN,L  C NAME: AUTOR C SOURCE: 92067-18456 C RELOC: 92067-16118 C PGMR: G.A.A. C E.J.W.,750505 C D.L.S.,760622 C E.J.W.,771219 C G.L.M.,790318 C D.H.P.,811214 C D.H.P.,830716 Made it work with FTN4 again  C D.H.P.,841128 Added no abort bit to write request C C  PROGRAM AUTOR(2,1),92067-16118 REV.2441 841128 DIMENSION ITM(3),ITMX(5),IPFM(26),IDY(2),IPLU(2),ILU(2)  EQUIVALENCE (ITM(1),REG),(ITM(2),IB) EQUIVALENCE (IPFM(10),IHR),(IPFM(12),IMIN),(IPFM(14),ISEC)  EQUIVALENCE (IPFM(16),IMS),(IPFM(21),IDY),(IPFM(26),IYR) EQUIVALENCE (IPLU,LUPF),(LUT,ILU) C  DATA ILU /0,0/ DATA IPLU /0,0/ C " DATA IPFM /2H P,2HOW,2HER,2H F,2HAI,2HLE,2HD ,2HAT,2H ,2HXX, "" C 2H: ,2HXX,2H: ,2HXX,2H. ,2HXX,2H0 ,2HON,2H D,2HAY, " C 2H X,2HXX,2H O,2HF ,2H19,2H70/ C C C C NOTE: THE ENTRY POINT "XLUEX" IS PROVIDED FOR INTERNAL USE C ONLY. HEWLETT-PACKARD RESERVES THE RIGHT TO REMOVE OR C MODIFY THE CALLING SEQUENCE OR PARAMETER MEANINGS. THE C "XLUEX" CALLING SEQUENCE IS IDENTICAL TO "EXEC" EXCEPT C IN THE CONTROL WORD DEFINITION.C "C EXEC CONTROL WORD: ONE WORD PARAMETER DEFINING LOGICAL UNIT"C AND FUNCTION CODE.C  C XLUEX CONTROL WORD: TWO WORD PARAMETER USED TO DEFINE: C C WORD 1>LOGICAL UNIT (BITS 7-0)C WORD 2>FUNCTION CODE (BITS 10-6) C "C THE FUNCTION CODE FIELD IS IDENTICAL TO THE FUNCTION "!C CODE FIELD DEFINED FOR STANDARD EXEC I/O REQUESTS. !C %C DEFINE THE MAXIMUM LOGICAL UNIT NUMBER %C  LUMAX=IGET(1653B) C C "C SCAN THE LU'S TO FIND THE LU FOR "C THE PFAIL DRIVER  DO 5 LUPF=1,LUMAX C DO A STATUS CALL C  CALL XLUEX(100015B,LUPF,IEQT5,IEQT4) C $C IGNOR UNDEFINED,AND UNASSIGNED LU'S. $ GO TO 5 C IS DRIVER TYPE EQUAL TO 43?C  600 IF (IAND(IEQT5,37400B)-21400B)5,15,5 C C YES, IS THE SELECT CODE=4? C  15 IF (IAND(IEQT4,77B)-4)5,20,5C  5 CONTINUEC POWER FAIL LU NOT FOUNDC !C ISSUE "POWER FAIL LU NOT FOUND. TIME OF POWER FAIL UNKNOWN" ! C TO SYSTEM CONSOLE. C  CALL EXEC(2,1, ! C51HPOWER FAIL LU NOT FOUND. TIME OF POWER FAIL UNKNOWN,-51) !C C SET TO USE LU ZERO  LUPF=0 C LU FOUND SET TO GET FAIL TIME #C CALL THE PFAIL DVR TO GET FAIL TIME# 20 CALL XLUEX(1,LUPF,ITM,3)!C CONVERT THE DOUBLE INTEGER TO: !C HR,MIN,SEC.TENS OF MS CALL TMVAL(ITM,ITMX) $C ADD YEAR TO MAKE CALCULATIONS EASIER $ IBASE = ITM(3) + 365 "C CALCULATE NUMBER OF 4 YEAR BLOCKS"C SINCE BASE YEAR IB = IBASE/1461 C %C CALCULATE DAY WITHIN THE 4 YEAR PERIOD.% IDAYS = MOD(IBASE,1461) C $C AND THE YEAR WITHIN THE LAST 4 YEARS.$ NYL = IDAYS/365 C C NOW CHECK FOR LEAP YEAR IF (NYL .NE. 4) GO TO 40 C MUST BE LAST DAY OF LEAP YEAR  NYL = 3 ID = 366  GO TO 42C ELSE SOME OTHER DAY  40 ID = MOD(IDAYS,365)+1C #C NOW SET CORRECT YEAR BY MULTIPLYING#%C NUMBER OF LEAP YEARS BY 4 ADDING NUMBER%"C OF YEARS SINCE LAST LEAP YEAR AND"!C SUBTRACTING THE YEAR WE ADDED. ! 42 IB = IB*4 + NYL - 1 $C ADD THE BASE YEAR TO GET ACTUAL YEAR $C AND CONVERT TO ASCII  CALL ICONV(IYR,IB+70) C !C ISOLATE HUNDREDS AND CONVERT TO!C ASCII CALL ICONV(IDY,ID/100)C C FORCE HIGH BYTE TO A BLANK C  IDY=IAND(IDY,20777B) C "C ISOLATE TENS AND ONES DIGITS AND "C CONVERT TO ASCII C  CALL ICONV(IDY(2),MOD(ID,100))C  C CONVERT MILLISECONDS TO ASCII C  CALL ICONV(IMS,ITMX) C C CONVERT SECONDS TO ASCII C  CALL ICONV(ISEC,ITMX(2))C C CONVERT MINUTES TO ASCII C  CALL ICONV(IMIN,ITMX(3))C C CONVERT HOURS TO ASCII C  CALL ICONV(IHR,ITMX(4)) C  C ***************************** C THE FOLLOWING DO LOOP MAY BE C MODIFIED IF DESIRED. C IT SERVES TWO FUNCTIONS: #C 1) BY SENDING A MESSAGE TO EACH TTY#"C THE DRIVER WILL RESET THE TTY " C INTERFACE TO REENABLE ANY "C TERMINALS (MUST ISSUE A STC). ""C 2) ANY USERS AT THE TERMINALS ARE"#C INFORMED THAT THE LAST LINE MAY # C NOT HAVE BEEN TRANSMITTED C CORRECTLY. C ***************************** C C C "C SCAN FOR ALL THE TTY TYPE DEVICES" DO 30 LUT=1,LUMAX C DO STATUS CALL  CALL XLUEX(100015B,LUT,IEQT5,ISTA2,ISTA3)#C IGNOR UNDEFINED,AND UNASSIGNED LU'S# GO TO 30 #C CHECK IF TYPE 0 DEVICE (I.E. A TTY)# 1 IF(IAND(IEQT5,37400B))25,2,25C CHECK IF TYPE 5 DEVICE  25 IEQT5=IEQT5-2400B IF(IAND(IEQT5,37400B))30,27,30 "C IF TYPE 5 DEVICE, CHECK TO SEE IF" C SUBCHANNEL 0(I.E. A CONSOLE)  27 IF(IAND(ISTA3,37B))30,2,30 #C IF FIND A DEVICE, WRITE TIME ON IT.# 2 CALL XLUEX(140002B,LUT,IPFM,-52) GO TO 30  28 CONTINUE 30 CONTINUE C ***************************** C USER POWER FAIL RECOVERY CODE C SHOULD BE ADDED HERE.C REMEMBER IF POWER FAILSC WHILE IN THIS CODE ITC MAY RUN FOR A FEWC SECONDS AFTER POWER IS !C RESTORED AND THEN BE ABANDONED !C AND RESTARTED FROM THE C TOP.  C ***************************** C #C SECOND CALL ON PFAIL ROUTINE RESETS# C TO SAVE TIME ON NEXT FALUTRE.  CALL XLUEX(1,LUPF,ITM,3) STOP END  SUBROUTINE ICONV(LOC,IVAL) LOC=IVAL/10*256  LOC=IOR(IOR(LOC,30060B),MOD(IVAL,10))  RETURN END  END$$RSLIB::RTE_6:5:23:60 644 0 0 13400 5310706763 33642 $RSLIB::RTE_6:5:23:60 $<$RSLIB +#+#+# L]%FST "" RSMER 92068-12006 REV.2540 <851121.1306>"SRS NINIT 92068-1X055 REV.2226 820410 ;;@vmASCHKZCHMSK&DBLEIDCO DDI DIN DMP DSB GETEQ.GTCID ISNGLJCMW NAMGPNCHEKk;@NCOMPNFNAMNFPUTNID2T ##@ NINITNMBT NMVW NSRCHVNT2IDNWAITENWHATUNSEL#<<>.CBX .CMW .DCO .DDI .DIN .DMP .DSB .DSX .DSY .ENTR.LBT .LDX .LDY .MBT .MPY .MVW .OPSY.SFB .XBX < jC.XLA COMM1 COMM2 ER0.EEXEC FMT.EIFBRKLIMEMNAM..;;`e ''2Hh xx$`p Q@`T6pU;<<`]]%Zh^ppoptpphq(<`Tpf6/`\f(=8f(6x (J<`BB(I33`[D`e(H(JxPx`cxtxo`dx+--_3<<`ebg`ci (h(((g(jk@k<<<`a1&Xp` Z((`+ ((h]U(⢊`+Pb(⢊ (((<`Aqp+<<`]`+Pd(⢊`+(@p+(hZ`+ ((`@Yp(<<<`\ƶp(`@WZp`+p @(`(8888888<;;`c88`ڀY@p p+@hT / ;<<`eP [   H B`h P(#@4%`T< `CI*6pS`Y ;;`]-6pT`P+&`Q+&`+pN`+pOp+p+`RhSP(HhT(HP(IhN;;;`aqJx+hOx+&00-BU`T6pUUU (ZU  Hx碀(p;<<`^Nk6hU(]hH/ (yP`+(] 0(`+P(] (`+(]<<<```Vh(hHYXx` W(((8B-WpP<`BWP<<`cڨ(8`T / [8+8`h„P <;;`c`6΢h6X(Zp;`B8;;``d8(8߶8XXЀ((Xh(T NO   x*H;<<`]^(', (!H (!h*HZ(h*HH/  `+  @< `C06-`- ;;`c3X@A p@PB(=`@C.`@,.?4 DD(TpDTW$DV;<<`cVE ZX x|Xpvdv(i H|x|YpynyZ(t  H|x|`|Z < `Ey <<`k~}0Ђ}~0Ђ0Ђ<<<`f0ڂ(( P` @ @`< `C>,ϴ@A ::`cP@ @Bh!@ Y`߰h ((`A@: NEQUN 992068-1X056 REV.2101 810225 @-NEQUN`$LIBR$LIBX.ENTR.MPY .OPSY.XLA LUTRU<<``_0 p`@@7p0P1(`08(`02@76h@@5<,,`YE Zp33(+43(,3 @?, && NEXTN 92068-1X057 REV.2101 810411 <850620.0955> &@4NEXTNZ$FREV.ENTRRFLG$RWND$--`ZPhH p`h@p@ -,, TGTID (92068-1X058 REV.2240 820903 Get user/group session ID ,@GTID  .ENTRGTSCBICAPS //`Z B  ( ' ` ` ($P  /`A`s' '' JULIA o92068-1X059 REV.2101 810225 @JULIA** E.CBX .CBY .CXA .CXB .CYA .DIV .ENTR.ISY .MBT .SBT .XBX .XBY EXEC *;;`cOBKh6`<`J<`N `I   HLxQ`Op`;<<`b?#8($p <p@@\I`Z@H<`B  J@@M < `CE@M< 44`gH 0 OJANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC4HH'' SPUT 92068-1X107 REV.2226 820115 (.SBT version) '@SPUT  E.ENTR.SBT  `N"5HP && `SGET 92068-1X105 REV.2226 820115 (.LBT version)&@SGET  >.ENTR.LBT  `Nn"5H (( SFILL "92068-1X104 REV.2226 820520 (.MBT version) (@(SFILL o.ENTR.MBT .SBT  99`b P5H PPp!5@p "!9(( SMOVE 92068-1X106 REV.2226 820115 (.MBT version) (@'SMOVE ?.ENTR.MBT  ..`\p 5@B5H .$ACCLB::RTE_6:5:360:60 644 0 0 264000 5310706764 34500 $ACCLB::RTE_6:5:360:60 $hh<$ACCLB +#+#+#h& FST ## 1$ACLB 92068-12018 REV.6000 <920911.0132> #A$A SACMND 92067-16361 REV.2226 820317 TACOMDQACOMAGACOM7DACOM4CACOM3FACOM6BACOM2 @ACMND$$ .ENTRACLNK NAMR ACOPLRNRQ ACERR ACXFRACHLPACREIACPRMACWRI$`CENEXT? `LbZp `(+`P(' `E SHUT DOWN `EG,"&(+ `G- ACCTS PURGED ;;`^i'+$/`p5p# '=#6# `#PǶ(B(`p+`;00`UEp+`#p`P#(`P#(`P#(R(V/V&`P#(`0;;`Z@0ZP#(`P#(`P#(c(g/$g`P#(`P#(`P#(`P#(ޠ`;33`WtP#(`P#(`P#(`P#(0`P#((/`ڴp33;;`^!4(7&(`P;(`P;(7&(34`P#((/;33`VA 6`P#(p`P#(`Ͷp`P#(`նP#(K`P#((/3;;``$`P#(,`P# h0(Zp`p+/Ȧ?# (;33`Xߨߢ('## `Ƕ#P((h#ڂp`P;(`P3;;`ahX Z0(`ZPhX  (( `PhàX (`P;::`^3((`p`P(!($`Ͷ@p/(4/,Ǥ/0pC7# :;;`^64Z`(C`϶P(>(@p7C3H4(I('QG6# `GpG;11`Y T'Z#ɶ# `p`P#(`(b`pPPGhG  (}1::`^XmKr`(`p+`p+/}6`p+`p+/`p+((':44`Y ## `Ƕ#P((h#ڂp`ŶP((/&`P(4&&`RA(/`P;((`P((/&(&<<`nZ$C}5 A3 GUP2 4 AL PU1 SUSDUNLORENE.?3PATRHE/A/EEXTELIPR<`Ab$ ACALT o92067-16361 REV.6000 920909 SACOMC IACOM9GACOM7FACOM6 EACOM5DACOM4CACOM3AACOM1@ACALT)66U.CPM MOD IVBUFACERRRNRQ WRITFREADFACWRINAMR ACNVSACINMLBYTEACFSTLMES ACREI ACPRM ACITA6`HTPLEASE LOG-ON: _`A`1`P WORDS CURRENTLY ALLOCATED `C>))p) `U ENTER " " FOR DEFAULT OR / FOR NO CHANGE  `D%,0n `H.SESSION LIMIT? _;;``0 5.a5`mp(`LPhKX 0(`VPp`HP0(Z`H;55`ZmPP6(T(0`p(`((0b$?6`*p'`'(j`'p'5`Rh6CHANGE MEMORY ALLOCATION (Y OR N)? _<<`^^j o6l5 `KPhLX 0(`VP(`U@Tp`SP(`ZP(<`Ob&R(j4k' 4H j`N[HNO. OF WORDS TO ALLOCATE? _<<`c6 Hb5 `LPhKX 0(`VP(4iph0(< `B2`p' `QVFOR NEW ALLOCATION TO BE EFFECTIVE `D'Vg `Ig REBOOT OR ENTER `LgO$.>$2H`K pSYSTEM MESSAGE FILE? _<<`_̤ pM5 `LPhKX 0(`HP6(ᴚ(f(p`@,hH-<`H1`p@<( `GU{PROMPT STRING? <<`a'{Q`ep+ `LPhKX 0(`dPhcX 0(`/<`Asyp$`N'LOCATION OF MESSAGE FILES? _<<`b b5 `LPhKX 0(3*6742?6`((<`(p.<44`W7`-(<`(p+`'p*`VP (aZ`Dpp`YP(K`p`@)h4<<`]NPH,`Zp@<(E`H(a`.p`.p`.p`VP(q`LPhKX<66`]^kZ 0(`p)`VP(`[p`.PpB$((((`$@6;;`^krp&`Gp%$Z$B(``p%`_@&@)h_PH&H)H%$^((`^p$`$@7;<<`]DZp(p`@)hH+`p`Zp@;((˶`]p`@)hPH)`<`Bp<<`_5Ţ`p@:(??634>7Cܶ-`7@7'p< `E[47 `KADD DISK LU(Y OR N)? _++`V_餒 M5 `LPhKX 0(`U@TPZ((O+ `E^DISK LU? _ ;;`b:@ Y5`KP(O`LPhKXX 0(HpI(;99`\+!(&%F(Zp@p'Z`@)p#`#(@`#P(J`p@'(+9`MZ=&?@(`Z@) `@)h(`JDISK ALREADY IN POOL `EUyJN\( `LhPURGE DISK LU(Y OR N)? _;;``BO T[5 `KPhVX 0(`LPhKX 0(`U@TPZ(p;`A/}o( `EyDISK LU? _ ;;`cfp uY5 `KPhVX 0(`LPhKX 0R(HXp;88`]M6I((4PF(pp@p&`@)P(`pP@&(8 `G&DISK NOT FOUND <<`_?Q(pZ`p@p%`@)h H)`@)(p`pZ@%(? <99`^Ϧ7p`@)(`pZ@(G4Zp`P@)(9<<`\p`@*pK&p"`"( `@)P"(`>@p@9(`@)hH)p<::`_^ 0X`pZ@(` @)p!367%$?6`7(/:((`Uh(O/! 62`2p7 ?48?463=>7 (`KSTATION CONFIGURATION  `D,h=AM `V(A[DD],D[ELETE],M[ODIFY] OR N[O CHANGE])? _<<`^A FW6`p`KPhLX 0(`VP(`U@Tp`SP(`AP<`M_(j`NP(j`PP(jiR(A`7p `G9STATION LU? _ ;;`cl qQ5`KP(=`LPhKXP 0(@p7X(p$I;88`]g(4ZF(lp`E(p`@7'pS&p`P(`p833`[&6SP(`@p(((`PPhAX 0(3`IvSTATION NOT FOUND %%`QjǤO`ppW(`pW)p(`NP((%`K MODIFYING OLD STATION ::`^DؤM`pp`p$`@(pS$`p`pZ@$(`:`G=p`AP(`B@W(p`K%SESSION LU,SYSTEM LU? <<`_ M5`LP(`KP(@p[6_J @p`CP(.I<88`a$p7P(#(+*F(`Ep4 H(3pG8;;`^a=(BAF(B(Y(YZ`Bp@p#Z`@(EPP(n`p@#(L`; `C"[PC(^(c `F% LU NOT FOUND ;;`\o^b D(`@(p`(@`pZ(`PC(z`@(p`(@(;;;`^`z`p`8@p"`@(h H(`pP@"(@p(3467`;`C<<``((`pS@Bp`((`p@p!S&pS$<<<`^J4Z`p`Pp@!(`p(`AZP(@p@pW(`@((<<<`abk٤@34>7(p`@(pS$`p`pZ@(S$<11`\sf45S?46h?p0?4?63&>71`I_6(==PS)<<`j)(W'  SD,RE SU t$%D - /?P/E/A A M <''`]*R3N / Y ?/e/aNS2XF+''RR @ACALU 92067-16361 REV.6000 920909 TACOMD CACOM3DACOM4QACOMAIACOM9GACOM7FACOM6AACOM1@%ACALU<<_[.ENTR.CPM RNRQ ACERR ACSIDWRITFREADFACPGAACFDFACWRI ACITAMBYTEACASTENCRPDECRPACDIRLBYTEACFDAPARSN<ԆACGTUACREI ACPRM NAMR <<`n5USER'S PRIMARY PROGRAM?(FMGR or CI) NO. OF UDSP'S , DEPTH?@ 6I0I6USER NAME?GROUP NAME? US<<<`n#.E GROUP SST (Y OR N)? USER PASSWORD?USER HELLO FILE?USER CAPABILITY?MAXIMUM DISC CARTRIDGES?< `D\SST DEFI <<`n4`NITION? (ENTER SESSION LU, SYSTEM LU, OR ENTER /E)NUMBER OF SST SPARES? NEXT GROUP? CONFLICT<<<`n2 IN SST DEFINITION - ASSUMING USER DEFINITION USER: SES LU , SYS LU GROUP: SES LU< `D , SY `H`S LU ;;`_[pa` pxp7 :  7`7( s:(` p@` pA` ֠pB;;;`\[` pC` pD(` pH` @H@ hHH `HpH@ (p;`;pE`@;`AsIϠp9<<`a]Ф;@M$7`Ep;`9p@`7( u M#"upH`H@ hH H `HpH<22`X1@ (` p` P'( ` p `9Ph'X#  ( ` p7( u2`UϻENTER " " FOR DEFAULT OR / FOR NO CHANGE ;;`aap + ` pp\` pk `EPh9X 0(`# h X#  (;`K*p`# p(5(/5 `J׬NEW USER NAME OR / ?<<`bXD539 74=#up Fj# &u` Pkh Xk 0(S`j(X` <::``H2Wpk`uh Xk 0h Xk (o/k (5/oupa` Ph X': `Ew 0( `H}NEW GROUP OR / ?`H 6|3 (/ `KiNEW GROUP NAME OR / ? <<`b73 74#up w# &u` Pxh Xx 0((R`w(` <;;`_pw` px` py` pz` p{`uZh XxZ 0h Xx (Ǥ/ ;<<`_1BŴZ(o(p` Px($x\u`u((l(((` Pk(<<<`c}䤒kx$u(` Pk(k$@u` Pu((2$;x&u` Pu(<<<``x(2 #u`# pa`# pvp`p8Z((ؤ3- 74##7p ,<44`Y"' # 7` P (0(2(Rh  pX` PX(;(=` p`` PX(A4<<`_@(Cp`3G&9 7K#"7p T; # 7`7(d` P; Z([(](R` P; <44`\_(w/c (̴Z` ; (`h; ڂ p; `Ph; P0(yp; ` P? 4<<``.{(}(234 7#upC # ` pX` P h X  0(<44`Y(R` P (ڢ`X(` pŶ` p` p(ڴ ` P h Π X  h 4<<`_(9 X p ` P h ɠ X  0Pp`(pN`N@ hNH `NpN@ <66`]((/6 (y34 7#uPpbpcpC #& ` P 6<<``(2` P h X  0Z((R` p  0 ( / (` pX<44`[}`X(` pbC # 6` p  0 (*/) ˴(` 4;;`^D+pX`X(2` pc36@4 7:#7pCB;# ` P;Z(F(H(R` ;00`UI;pX`;p;`;Zp;`X(X` ɶp;` p;` p;PX(\(`/ _0;;`^$_^6 (23dH4 7h#7pCp;# ` P;Z(t(v(R` ;pX` P;(};44`Z{|(p;(&X ((/& (``X(` p;`;(( ;(4;;`_rg(;((/ (`3P 74#7pC;# 6` P;((;66`Z{(R` ;pX` P;((p;(X (ɴ(/ (`X(` p;6<<`a6oϤ; Zh;0(` p` pN3&\7#"7pC촚 # ` P <44`Yh X  0(W` P (((R` pX` PN((`X(W@ 4<<`_I pUC #& ` p` ´ZP(.PX((Q`p  0 Z(Q@ @<<<``z(p` P (.(Q Up U 0 (Q`NpN` P(E(Gp`N<<<`^ÌH@ p `'@U ` p(/&T ` p(ܴZ`Np;p_(`(33$dy 7h<55`Z}ffZ#7pC6p # ` P (t(v(R` pX&X ((` P 5::`^(/ (``X(` p R` p  P0 (` p_` P0(3:`OvLINK TO AN EXISTING ACCOUNT ?  `D2+ `O* (ANY MOUNTED DISKS WILL NOT BE `D3+ `On? TRANSFERED WITH THE ACCOUNT) `D3+ `O`'ENTER / OR USER.GROUP/PASSWORD<<`a3' 74#up  # &u` P h X  0((R` P (3<00`XXˢ`u(/6 (` (3`?(p?Z`  (/& (K0<<``6(( OI4Zu`u(/& (`I@  pX`X(' # uh<77`[N6 pH`I@ Z (S4H ` pH`H@ hIHHZH ((#`H7<<`_ZZpH@ (('/& (` X@I@ p& ((`p8W8 ?"6pB <::``&=$@MFZ7`7( e(` PxZ0(o$V M#u[Ywp#` pH` :<<`_]@H@ hHH Z`HpH@ (\o 4M#u_wO7O J6Z`[pI` @I@ <99`^|@ p`p  0 (p` @I@ h` @I@ p cg9<<``4O7O 6Z`p;`pEpk;$@MFZ7`7( ^` pH`H@ hHH `H<88`[pH@ (`(& M#u` Pk(` jp #@ p#` pH8<<`\[ն`H@ hHH Z`HpH@ (` Px(` #p [6w0 p#` pH` @H@ <;;`_u hHH `HpH@ ( # h8 ( `8p# `a(`ap# `vp# ;;;`_ M#6u`GpI_ O7O J"FpH`H@ hHHIH `HpH@ (";::`\/` Pk(O`; (O` #((>o>#)#(e` pH`H@ hHPH `HpH@ :;;`^r_K(@` #(p; `#((` #gpdpL`#g(\` pL_dO47O Jd`?@d@;77`Z&iZpO`L(p`OZpOpH` @H@ hHHLH `HpH@ (r` #(p#(7<<`]ow` #HpP` #G pQ(Z(0`; (S6; ; #pV`V@ hVH `V<99`[VaZpV@ (` P;(` pV`V@ hVH `VpV@ P(`(pV` 9<<`^@V@ hVH Z`VpV@ Z(Pb(˶(` #6pbPc((` #6h pc<99`\:٢`b(pc`c(pb`c(@bp#66 #D((`;(`;p#=`;(`;9::`^%p#F #Dh8 (`8p#D`a( `ap#EP`(``pP`_(`_pQ:88`]` #Hp [#G@ p^p#G`^p ^ 0 Z(+p^`^p#Hc0#H8;;`]0` #H@ p [4Z7#G@ pNZ`[pIP\(C`]pI`\pZ_4KO7O $PJZpR;<<``M`P(` @I @ pYX`Yp $Y 0 (` @IpWpH`H@W@ <<<`\m pXN (t(` pV`V@  pU`XPU((`V@ hHHWH ((`V<<<`_ PpV@NZ(v`NpN`N@ hHHWH Z`RpR(Ԥ+; +$@ `H@W@ <`CS<<`c*S" pS`V@  ZpT`Up s$ s$T s$S `p`p+<77`^>& +4P `HpH@Y(i`Q@#F ((`#F@ pQ/& `R(@Q7<<`b.p#G` @N0Pp#H`O(w$ O N6 (( 7{ $MKL7 `7( uw $ M _<66`\ 4 O7O $ZJKpH`H@L@ h HHH `HpH@ ( g ,O7O6;;`]? *& K`L( 2` @KpK`Kp#g` 0#(p#(_ ?O7O J6F`GpIpH`H@I@ hH;88`[n GPH `HZpH@ ( Cg4 WO7O 6F` pk`Ep;`EP(`9p@` pk8;;`_. b`9P(8`8( j jW o4 ?6pk(R` p7/& x7W } ?6( ~pk;`A4 (R<<`i #'O; v#i9 d@5@?! ,C<<<`n,( "  / 4P8/E/A</- >012 '(CIGRFMNY@ L RANEGE6<`Bj` .  ACAST 92067-16361 REV.1940 781024 CACOM3@ACAST /.ENTR.CPM  ;;`^@p~` pZp`(`@p6((r`p`("(9`;;;`\z#Zp`p`@hH~p|P|(J`p@('`@P(k; `C?`p <<`^7B`@~hH(k`@P(Q(e`p`@~h H~`Pp@<99`\&`(S@p(k`@~hHP`p@(Z(x`p`9 `F ?  ;ACWRH 92067-16361 REV.1940 790801 @ ACWRH 33.ENTRACWRL <<``NW6hqx x (hXʨx Xʨ(!<<<`^ 6Ѐhx Zx(`oZApIhJ8 8I(/@ppI$=KI`o< `B>Ah `I@(pIH$KIA `GAJ Q - <<`nor AL[TER],A[CCT]ALTERS GLOBAL SESSION MONITOR PARAMETERS AL[TER],G[ROUP],<<<`n9: ALTERS GROUP ACCOUNT AL[TER],U[SER], ALTERS ONE OR MORE ATTRIBUTES DEFINE< `DD FOR US <<`nER EX[IT]TERMINATES THE ACCOUNT SETUP PROGRAM LI[ST],A[CCT][,[][,]]LISTS SESSION WIDE INFORMATION LI[ST],G[ROUP],[,[][,ID]]LI< `DQ+STS ONE <<`n</OR MORE GROUP ACCOUNT ENTRIES  LI[ST],[U[SER]],[,[][,PA][,ID]]LI<<<`n&]STS ONE OR MORE USER ACCOUNT ENTRIES LO[AD],[,ACCTS] REBUILDS THE ACCOUNTS ONLY F< `DbROM AN U <<`nNLOADED ACCT FILE LO[AD],<NAMR>[,ALL] REBUILDS THE ACCOUNT SYSTEM FROM AN UNLOADED ACC<<<`n:T FILE LO[AD],0ALLOWS EXPANSION OF THE ACCOUNTS FILE  NE[W],G[ROUP] CREATES AN ACC< `DnqOUNT ENT <<`n5RY FOR A NEW GROUP NE[W],U[SER]CREATES AN ACCOUNT ENTRY FOR A NEW USER  PA[SSWORD]<<<`n'ALTERS CURRENT USERS PASSWORD  PU[RGE],A[CCT]PURGES THE ENTIRE ACCOUNT STRUCTURE PU< `DK[RGE],G[ <<`nOROUP],REMOVES A GROUP FROM THE ACCOUNT FILE  PU[RGE],U[SER], REMOVE<<<`nC}S A USER FROM THE ACCOUNT FILE RE[SET],G[ROUP],[,(CPU OR CONNECT)] CLEARS GROUP L< `DnOGON CLO <<`nTCKS  RE[SET],U[SER],[,(CPU OR CONNECT)] CLEARS USER LOGON CLOCKS SD[,LU[,<<<`nRP][,RG]] OR SD,RE[LEASE MEMORY]SHUTS DOWN AN ACTIVE SESSION OR THE ENTIRE SESSION SYSTE< `D# M  SU <<`nRESTARTS THE SESSION SYSTEM  TE[LL],,,<MESSAGE>SENDS A MESS<<<`n=AGE TO ONE OR MORE ACTIVE SESSIONS" TR[[[[ANSFER],],],(EC[HO] OR < `DkNO[ ECHO <<`nBo)]] TRANSFERS CONTROL OF ACCTS PROGRAM TO A FILE OR LU# /TR[[[[ANSFER],],<<<<`nLIST NAMR>],(EC[HO] OR NO[ ECHO)]] TRANSFERS CONTROL OF ACCTS PROGRAM TO A FILE OR LU < `DGUN[LOAD] <<`n/, DUMPS A COPY OF THE ACCOUNT FILE   USER.GROUP   @."GROUP" - <<<`nALL USERS IN "GROUP"  "USER".@ - ALL USERS NAMED "USER"  @.@ - AL< `DT+L USERS <<`n5/    NAMR -FILENAME:SC:CR OR LU   /A -ABORT CURRRENT COMMAND  /<<<`n`]E -END CURRRENT PHASE   HE[LP][,[<KEYWORD>][,]] LISTS SYNTAX OF COMMAND[S]< `D( HE[L <<`nSP],[,<LU>]GETS HELP MESSAGE FOR ERROR  /HE[LP],[,] GE<`NTS HELP MESSAGE FOR ERROR  zACINT 92067-16361 REV.1940 790515 @ACINT %$DSCS.ENTR `LB  ACLIU 92067-16361 REV.6000 920909 TACOMDGACOM7FACOM6CACOM3DACOM4QACOMABACOM2AACOM1 @#lACLIU<<.ENTR.CPM ACERRACCLLACSTRACFMTACTIMMBYTELBYTE ACWRL ACGTGACLTMREADFNAM..DECRPACGTU NAMR ACOPLPARSN< `F@ 6I0I4I6CR <<`_Kp 4 `(`p`(S6 `p<00`Y$`(Q    `p`P0<<`bhX Z(p#$Z"(&`p')(-`p'0 ZhX 0<<<`[8(C`p`p`p`p`p`p`pö`op(N(`p+$W<;;`_qS4/`Z(p`@@fpc'c6ڄcp`@@ (r(rp7r~ n;;;`bar`@p;w?j$mxn$mx?&`@@fp`yPChXC ;;;`_pc`PCZpe`0ec(`PhX (`@f(`p;`LM@@fh HfpcxdGc$d `EPASSWORD: 11`[`p@@fpc?$$mxc`p`{P h{X (1 `F USER ID: `K_dڶ`@@fpc?$z  c `FGROUP ID: <<`^夒?z&`p@p`PK ((`z@@fpcO"ڄc( `z@Z@fh`@<`HZ@fhg`@@fh`HӄPRIMARY PROGRAM:<<`^_/ `z@@fpc?$$mxc`((p`p`@@fP($(&`p`x@@f<--`Wp)p`yPChXC pc`PCpe`0ec(@p- `FHELLO FILE: <<`ah@`@@fh}HHfpcxd?Y$}m$tcnl$nld`PK (](|`@@f<`Lasp`@@fh4p `GH=%#UDSP'S/DEPTH: <<`bHm?y%$n&`p`p`v@@fp`PhHHfXy 0< `D}(`p `M,,CAPABILITY: GROUP MANAGER `Kw:?},$ 2 `F 9DISK LIMIT: `Li`@@fpc?$}9$c `F ?SST SPARES: ##`SP{`@@fpc'&cpc?$}?4c?#`PEUSER SST: SESSION LU / SYSTEM LU`HU?E$vJ`KDuU--------- ----------;;`^fXŤ?rv6U`@@fpc#҄cp`@p 6((`@@fhHHfpc;;;``PnxdS/$cׄd`((]p`p 6((`p7~n;4?;`B$`Kr`SESSION LU / SYSTEM LU `FM? rv ` `KDk--------- ----------::`^e ?rv4Zk`P(5`@@@fpc'csp`@@@fpc#(c:<<`_1)sp?4$rq6(V`@@@fpc'=csp`@@@fpc#H c<`AgH `BIsp `EvGROUP SST: <<`c2K?Vxv$wq4P`p@(?`6`@@fpcWhc`@@f<`I~nhHHf P0(}`H{NEVER LOGGED OFF`Nw?|{(`@@fpc[c`JLAST LOGGED OFF: ;;``?&?;`p_`p`p`PhXZ 0(P`(Q;<<`_sZ`pp_c&/`(Qp`t@@fp`@@} ((p<;;`cĤ7~n`@@}p;Τ??$tg|m&x? `{Ph{X ;`A0#( `FGROUP ID: $$`S!袊`@fypc?z$c?6`p@p$`P"GROUP SST:SESSION LU / SYSTEM LU`HX?x$wv`KD--------- ----------;;`^]"?u`t@@fZp`((:p`t@@@fpc'csp`t@;;;``l!@@fpc#'"ڄcsp?$3r$q`p@(?=`p@@fpc;`AAW<<`^TB$Ec?H4;J`p_`p`P(gS`oP(W(Y`pp_`(aka< `C5`" ;;`mEf/GROUP:USER: 8&  ID 1 d"!@ ?;%%`[I0/ I5 FMPA. L RANEGEP5% ACGTG 692067-16361 REV.1940 781024 AACOM1@ACGTG .ENTRREADFACFDA ;;`cC Z @ p4@ p3p " $('` 1 ; `EZ.$5(& `A`555  ACTIM 92067-16361 REV.1940 781024 @"ACTIM .ENTRACFMTACDDV `C;I1I3I5**`Y}B@p *$hڂp`Z@p*`J[TOTAL CONNECT TIME: ;;`eqJ5F$$&`@p O4hp`@p;))`VZhp`@php`@p)`J e TOTAL CPU TIME: $$`Y<p $$$$$`Vt SECONDS MINUTES HOURS. < dp yACDDV 92067-16361 REV.1940 790306 @ACDDVN.ENTR""`S :@ ((`" ACLOA 92067-16362 REV.6000 920909 TACOMDSACOMCRACOMBQACOMAIACOM9 HACOM8!GACOM7 FACOM6EACOM5"DACOM4CACOM3BACOM2#AACOM1 @2ACLOA<<-bEXEC .ENTR.CPM XLUEXRNRQ ACSESACERRACOPNACCLLNAMF IFBRKACWRIPURGECLOSEWRITFACREL ACOPLACCRENAMR < ACNVS ACITA LMES  <<`nXSTATION TABLE REQUIRES WORDS ++CCT!+@CCT!6 TOTAL ACCOUNTS REQUIRED <`Aa.@ `D{ `I/SESSION SHUT DOWN ;;``g /4`h  0(`p`p`p`p`;`M+¶p`p`#`(|`P8ENTER DISK LU FOR ACCTS FILE : _<<`_ Ϥ'8`+p`P(`((`p/3$`3@3#@p7 <11`Z&$;&`3p`3p((#6`P(( `133`XZ`p(`(|/3`p3(`p31`p3/` p32`30p3`M]HNUMBER OF USER ACCOUNTS? _""`Rǃ '%H`+p`PhX 0("`NtUNUMBER OF GROUP ACCOUNTS? _<<`c/2'7U `P+hX+ 0(`6@+phZ#@p(W(W<::`aNU`pXp&(c(kCj6( `ځ@3p`'p7:`Hv$z ;$~`URcENTER , <<`bE~'c `P+hX+ 0(G+ K6+ `+ +p`+<22`\5} p`+P0(~`+(`3@3p&(2<<`]R(`p6((C6(~`3@Z@3p@3p`3p`p`@hH<88`[a٢H`p@(`3p`@ph@3p`p3`3@pO8<<`b!V43`(|S33`(|`p/4 3`(|4(<88``6p(RS&334Z`(|` Ph 0(Rp8<<`_6 `@ `p@(6pSH343`P(|`p@(B`p<<<`_OUZ@(`@@p`@p`(|((#o"@p`p<`At/;;``Au4z3`(|`p@(t/34P`(|p`@(`;<<`]& @@(`@@hHHH` @@(`@@hHHH<`Af`<<`_@p@(S336(`( `@S433p`@ <99`\cҢ`p@(p`@`@p@(p`P((p3S9<<`a<33`(|`pP@(p`p/3`hX <66`ZDZ(z`3(`3O@p3O`3P(`3@p3S"33`(|`p6::`\w)@(W/3p[73`(1`P(\`P(A(|`P(E(I:`OrwxWAITING FOR FILE TO BE CLOSED ;;`c<;E;Ix$P4cSZ(f`p@(1(fgf3`0;44`\hhp-P(m(qq-o4ssw`(`pC44`F4(88`j3@qdž6  ++P/E/AT!CC+@8 ACREL F92067-16361 REV.2340 830729 CACOM3AACOM1@ACRELU.ENTRXREIOREADFABREG<<``Z@pA`C((Ш` p` (8`EP (/`D0 p$B$<44`^ya#4((-`C(6 $(?$(4 `D~B BB WACNWG 92067-16361 REV.1940 790227 IACOM9GACOM7FACOM6 AACOM1@ACNWG9** .CPM RNRQ ACERRWRITFREADFACDIRACGID ACFDFNAMR ACREIACPRMACFDAPARSN*..`cGROUP NAME? SST DEFINITION? (ENTER SESSION LU, SYSTEM LU, OR ENTER /E).;;`a99p9`p(E.%'&$`$(M K$9Q4U$p1^;66`]iZ1$`٠ZPhX  0(k(L`$(r q(M`Ӣ(n`6<<`_ XwP(n`(np4#4,,,$`P$( 6(M`p3$3`p3<55`\S4$p1' 61`P (`նp2`2hX( (5<<`^<`P (((L`P(( ` p/'Ŵ 1` p0`0p 0 0<::`_:H( `P((  /Xp $/0( `P((`p&`&@:<<`]vp,`,P/P( `&p&@((`(p(`(@H0p`Ӏ(@/@( <<<`a &(`(p)`(@p*$.%'$4Z`$($ $Z"$(L/$)+$`ѶP$(-(2<<<`^- 0(Lhp`p&`&@hZ`&p&@(9`p&`&@hH&H<77`[mKZ`&p&@Z(Ep `+p `%p `'(^`0%p pp3((g477<<``6|f4#;m.$?uC4$C,% )(}(}`0+p+`'Z@h+`p&`'@&<<<`]P@ `&Zp&@(`ʶ@'@h*`ʶP)(`p&`'@&@h&HP`&p&<`Ag++`W!@((GC$C%`$( 4$37"#(L+22`cY'C@ -/?P/A/E68@ 52 2ACNWU 92067-16362 REV.2540 850731 TACOMDIACOM9GACOM7FACOM6 CACOM3AACOM1@%ACNWU<<1.CPM PARSNACREIACPRMACERRACFDA RNRQ WRITFREADFACDIR ACMSNACFDFACPGAACWRIACITAACGIDENCRP ACGTUNAMR <jLBYTE <<`n\`USER'S PRIMARY PROGRAM?(FMGR or CI) NO. OF UDSP'S , DEPTH?USER NAME?GROUP NAME? USE GROUP <<<`n=.SST (Y OR N)? USER PASSWORD?USER HELLO FILE?USER CAPABILITY?MAXIMUM DISC CARTRIDGES?SST DEFI< `D\NITION? <<`nt(`(ENTER SESSION LU, SYSTEM LU, OR ENTER /E)NUMBER OF SST SPARES? LINK TO AN EXISTING ACCOUNT?<<<`n (ENTER " " OR USER.GROUP/PASSWORD) NEXT GROUP OR /E? CONFLICT IN SST DEFINITION - ASSUMING < `Da/USER DEF ..`cƏINITION USER: SES LU , SYS LU GROUP: SES LU , SYS LU .<<`cp$r`(! "%&)"p2<44`Z:2 `PhX 0(?( `(L`(L`P(L`(P4;;`\L O(!`P#(k'Yr#+\(p `p `p`p` p` p;**`Ugh`p (`p q#4up~  *<<`_}6`P hX  0Z(( `(` (`P (( (P` <33`Yv(`p `p `p`p`pp/4 4Z`( 3;;`^J&`P#(k( / `P( 6(!`p`@@lhHk;33`[3Z`p@s(h 6@p&)"p 3<<`c$`P hX P 0(( pHh ځp`~Ph  Z0(`|<44`\rwpH5p# $`(9`P hX 4;;`^o-P 0(3(  6p(` (I`p`@khZ`p@s(>(R` ;88`\Z2K(3h 6p 3W Z p`䶀@mhHk`p@s(Y`P7 8;;`_8gZ(t`;+(s4os(+x&|"p? `;11`Xp`P hX  0Z(( `(`p3`p4`p5(1<<`` `P h X  h X p `P h X  0Pp`(p`<66`\x@@mhHkZ`p@{(( 6(t4p?6<<`b6 続` p? `PhXP 0(( `ph <77`_IX0hh 0ph 0h(   6(`h Zh ph` 7;;``zpj`j0h(' &6(` (@崒p6/<3p?; $;55`\ ; `P hX  0(H( ` p`hX (f`p5<<`]W`@mh`p@z(WZp1p2(`P(m l4Z(+p`p`@mh<55`[tPHk`Zp`p@z(q`p1`p2Dp?5::`^:6  `P hX  0(( `Zp`(`Zp=(P(:66`]V (` ph 0hR(  (( (` p=6<<`aT$LѤZp?6  `P hX  0(( `p`<44`Z(`pF(P( ( h 0(` pF`p`4<<`_P@m `Zp@y(`p `}p&X "p?" `P <66`XA$(`P ()(+( `p`}P(2(5`Z(P(9(` p?6<<`cD<6A ` p ` ph$ 0h(`Pr(S( ph<<<`]r)_Z0h(`}P(x`p`袊@mp`P(`p@(h`p`<;;`^Ȯ|@mH ph`(@@xh`p ( 6`p (`䴒pu;77`]rp? &`P hX  0(( `p6r(( 7<<`_&(`(`p ` ph Z0h(` p`@((`@F<55`^`"(($Zp6 6`P hX  05<<`_&Z(( `( Z(` (U` (   6(G K`<77`]B( (ڢ`@nZp`(J&(4P`@n(437<<`^#R0$4 `p`@phHZHn(?(F`p@s(6(J I(`@@n<88`^Np(((cOZr&`P(^(c a( `pDp/o8<<`cl$`pSyKK$p`H(`@ @npX`ph$<;;`\Dv0h(`@pp`@@np&((`p`@mp`P;`A3(;;`]%(`@mhHZHn((ˢ`p@(`p`@mhHHn`;<<`c.xɶp( `@@nZp`@mp`phWhW<`AW;;``{($`ʶp`p[&[4P`p@(`@npE`(@;77`] pG`w@0HpH_r7(_(_`|0(p(&$`(3 7<<`bW*&,_1Z7( c$8qS4@KK$Zp`@@nhHHm`<55`\LZp@v(Bg4WKK4Z`(]`|@p`pg$f4r`5<<`]kh()km8p`@ohPHl`Zp@u(o`p `Ep `p `((<11`X\`|0 p `p`((`|Z0pp'$榐SK1<<``qKp`@@nhPHm`Zp@t(g4KK4_74`<44`\2aZP#(( $ɤZp6 6`P hX 4;;`] P 0(Z( `(` (`P (( Z(` (`p `p `;33`Zp`p`pp/뤒 `(   6(/ 3<<`^Rs$`P( (`p`@趀@lhHk`p@s(`h ph<55`^u9.ڂ@hp7)4;pD &`P hX  544`\nL0(Q( pHh 6p`~Ph  0(e`|pH`p(e4<<`jk 'K !Y/E/AP 68L RANEGE5@ <44`h@ ? ."-4Cd<,/012 '(CIGRFM>74 ACGTU 492067-16361 REV.1940 781024 AACOM1@ACGTU  .ENTRREADFACFDA <<`c?@p2@p1@p0 $ ($ ` .<`Gl)$ 3(#`A`333 1ACGID 92067-16361 REV.1940 781024 AACOM1FACOM6EACOM5@ ACGIDN.ENTR.CPM WRITF ACGBTRNRQ READF<<`b4 P(( 4(#(w<99`\R'p6Ѐ((@p`@p#;P(?(C`¶(*9<<`^tC@'M(R("(W(Y("p`ƴpe<33`[ja`R@'p u("`p`ð3;;`]1|6ڀ((@p`@p#"P((`({`P@;::`])'(("((("p`p(]P(": `C`(p `M ACGBT /92067-16361 REV.1940 780807 @ACGBTN.ENTR;;`a6`+p- (@!(8-( h-H, x. ( @;`N!8.(`- @,!! ACFDF `92067-16361 REV.1940 781211 AACOM1FACOM6@ ACFDF x4.ENTR.CPM MOD READF;;`a` pPp_Z(! `;<<`b%@Zp`Z(U`h^X  0(H@Z@ pYBY]&<&&`RGZ( $@p\(Q(!`p(`[( & `FZ7(( ZZ ACPAS 92067-16362 REV.2440 840522 TACOMDSACOMCIACOM9 GACOM7FACOM6CACOM3 AACOM1@$ACPASACTRM ACERR ENCRPACPSNREADF `EPASSWORD? ;;`^p`p@p`p - $p `@(:`@@P;<<`]9(H`@p@(/`pZ@(%(`@@p p`@hHH<;;`^V`p@(Op` (c`p` p  n  `Z@p;77`\8t`(p6 `p`@(`p`722`Y@hHH((`Zp@(`p#'4+(2`RN4@  ACAPA 92067-16362 REV.5020 891020 TACOMDSACOMCIACOM9GACOM7FACOM6CACOM3 AACOM1@ACAPAW'' .CPM XREIO ACTRMACERRRNRQ WRITFENCRP READFACPRM ACPSNACDIRACWRI'!!`XpA XXXXXXXXXX WWWWWWWWWW IIIIIIIIII 0000000000 ! `E<WWpWp `MENTER CURRENT PASSWORD _;;```\ bt(6J`mph&|eneJpK`K@chK Hb`KpK@f;77`\|(ppL`pI`I(`~pL`}IpI#J#iS"IpM`L@a7;;`]`(`jpM`LZ@ahL Hap^}^`L@am(')(NpK`K@L;$$`Q@ahKH`((W`KpK@d(pKp$`Mp%ENTER NEW PASSWORD _`MƤ %t(6J`mp`J(W`K2THE NEW PASSWORD IS: <<`]pӤ+2k+$|e`|p.`{p/`zp0`yp1`xp2`wp3`vp4`up5+4)t`/+<11`\np^ /+ s0^("`j0/+pU`rpV e$UTq+ &p+1##`R>F $ohTځmnPl(`KpK@f((#`K=NEW PASSWORD INSTALLED<<``+"=k;&'e?H4/#J#i&SI'4)(N`M(:`j0(p(pK`K@L<22`Z}>@ahKH``KpK@d(<CP#J#iI;U4h?H(ҠG2`FrhX&ZgK\(--`_+`'#M4 Y_@ _)? N0RY (OK @-`` ACPSN 92067-16362 REV.1940 790801 TACOMD SACOMCIACOM9GACOM7 FACOM6CACOM3AACOM1@ACPSN Y.ENTR.CPM XLUEXACTRM ACERR PARSN ACREIACPRM `DAM <<`c4ZZ@ p 4 `P (B`+p+Z0(B`<55`^}5*0+p1&`hڂp`P(<(BB$p'K+ 5<<`a H$ (f`P+ hX+  0Z([ /&^`(cZ3c (`+ (v<99`[i`p`@hZ`p@(k(`+ ([`p`@hH`9`KXZp@(|h+ Ђ (Z`N@M+  4/E/AP?  aACPUA 92067-16361 REV.2226 820318 TACOMDDACOM4GACOM7FACOM6SACOMC AACOM1@ACPUA<< VEXEC .ENTR.CPM ACWRIACNVSACERRACSDNNAMR LUTRUACSESACGSPIVBUFDTACHREADF ACLIARNRQ WRITFLMES ACREI<^ACPRM`JkxSPSGRPRG@`T$ SUNPSDNPSD,BSD,S@ @ ""`PBZp`޶P(`P((/"**`_}DO YOU REALLY WANT TO PURGE THE SESSION SYSTEM (YES OR NO)? _*99`^ ̶`P( ( `PhX 0(`(Ip`P(19`N>SHUT DOWN MESSAGE (20 CHARS)$$`R"#>`)p #1 $`ILSESSION SHUT DOWN <<``1'6L /(=(=`p/`Z(I`/p'&I3&N74V;<--`YUQ4;͢`p;-p;+?b;;&3gԦ`p-;;`cpj`;,(pCp4Gu4Z(}G$}G$`(G&7;;`J64;Ͷ`;,0($`PUTO SHUT DOWN "NOW" WE MUST ABORT `D#KU `PeTHE ABOVE PROCESSES!!  `D#Ke `PGu---------------------  `D#Ku `TABORT THE ABOVE PROCESSES (YES OR NO)? _;;`^y, ̶`P((`ֶP((O`p`@Z'ppS$p`;55`]}(`0p椚W`ԴP@p@(W馒SG&G5<<`g|$W&G&G$ZpG$W$G$h <77``mr (&`p@(_6(`@@pG$4W7<<`_!%$(c+"( #5 ݶ `P(:(` p``p <55`ZD0(`gNͶP(`0pp#[  p`5<<`^Z^@P (i`ж@p@(]P(`@0p`p@(UWy&(<`N|Z( `۴_( P(`SF8PURGE EXISTING ACCOUNTS (YES OR NO)? _`F ̠(,,`aDO YOU REALLY WANT TO SHUT DOWN THE SESSION SYSTEM (YES OR NO)? _,;;`^ ̶``P((( `PhX Z0(`նP ((`p; `Cz( !!`XLWAITING FOR SESSIONS,JOBS,AND SPOOLS TO COMPLETE!`HJK`Ң( <<`nn$ KSNPABNPSUNPSDNPDJ DJNPDS DSNP&RES YENO!! P " < `ENS  ACLIA 92067-16362 REV.6000 920909 TACOMD GACOM7DACOM4CACOM3FACOM6AACOM1 @ACLIAz<<.FSB .ENTR.GOTO .CPM XLUEXMOD IFIX ACCLLACERRACSTR ACFMT MBYTELBYTEACNFGACWRLREADFACFSTACLTMNAMR <\ACOPL`J[I0I1I3I4I5I6CR6<<`_yy` pp p`y(  ` p &`(j<//`U6 `P((p`P((p`P((/<<`^DQ`p`P((`p`p{Z0{(`Zp`p#4''<`JC,&`(j+`y(`M) ACCOUNT SYSTEM INFORMATION`I|_դ/4 / `G1SESSION LIMIT: `Bivޠ`'+ `E SESSIONS 44`ZFഒp{/${6`'pw`P3(pw`px`P'((`px4`JY#SYSTEM MESSAGE FILE:`Q / #$x'$w4'`K[-CRN OF MESSAGE FILES ""`TW /-&')`pІ &/"`H8ACTIVE SESSIONS:`H/$8/'`N@SESSION USER LOG-ON TIME `HX-'//@$H`NN------- ---- ----------- ;;`_n//7N$V`@жp`p@;pv`@p&(G(Y`vRpv;v(;<<``нN(p#Y''6v`@p֢`(?`@p{?h{6d`@@$<<<`anphق@;p{#}'4'{pٴZ`@}puG&up{K6u@{@<99`cwZpu`@}hHH}p{x|/$${$|u$dp&n`p9`K(? e$/  `E\DISK POOL: `E)H/\ `PK0a DISK LU SIZE MOUNTED TO `E)e¤/a `PCq ------- ---- ----------<<`_Ǥ/q`@pOҢ'pc#ܦ''ڴP;`cpcp`c@}p֠`<::`bP(pp `0p$`(#``h6p``X(p{&`(:<<`eZ{(2h`؂p$`p /$"$ (pbxa/$1$<<<`a5-$ba(Ԅ: $p`xp_`_@(`_@p{KI{p^`@_@<;;`[Np`P^(S(W`(p(^`@_p_@(>(`;p]`pܔ;]((#o;<<`ai'4Z]`]p]`@pܶ(z(``@~(r`@@~Z$ph<`AD @;<<`_&Cp{#'ʤ'{$p`Z@@}P(Z(`p`(`@}h<;;`b5HH}p{x|/$$ {$|`p(r`@}hHH};<<``B̶p{x|/${$|`p(r`@@}P((r`@@}p{/$<::``$& &{`p`p`(Zpp`;@p{#'4':55`Z ${`@}(p`@}(d`@٢@}P( (C`@}hH٠H}5 `G (not active) ::`c%&p{x|/?$$ ${$|`p(`Z@@}P(J: `D3I(d`@@} `G (not active) <<`c((Mp{/`$& ${`p(`@ٰp(lZ(`p(<##`Up`(/$$ $נ(# `FNon session `SA/$4 `p( `H MDisk not mounted<<`d{/$4 `p( 4ee"pp϶`@pW <::`_60pѢ`(e`p`@((`p/&+c$+ڠ(:`Fסۢ`(/ `JECONFIGURATION TABLE: `E-ᤒ/ `Q^ STATION SESSION LU / SYSTEM LU  `E-椒/ `Q, ------- --------- ---------- ;;`b뤒/`p((&`pФWZp`(ZW$pΤG ;::`a pGpK"p/$&$̄(+(`p`:<<`c.p(4Z(`pW$;pΤG@pKFp/R$<66`^Q4P`p@(/(G$Z]p{/$d{(/h+j`(pgp6`LUo6`y(wk"uz`p (v<<`m3}''ERROR = @!1 * -  . }DV? <`Uf :  ALCOPOACP HACLTM 92067-16361 REV.1940 780823 @ACLTMN.ENTR;;`by ?0AMPM p p`Zp`@p8 ;;;`]" p @@p`}0p`}h0H`h @(=Ph ``; `C?x}p ::`^B`@}phH`  H HH`@ p` }ph :;;`b`HZ@Q@@ Hhx` 8 8(v ; `D@@0 `E} 0:: <<`nxdn12:01:00 PM MON., 29 DEC., 1975FRI.SAT.SUN.MON.TUE.WED.TH<$$`ZU.MAR.APR.MAY JUNEJULYAUG.SEPTOCT.NOV.DEC.JAN.FEB.$ ACNFG =92067-16361 REV.1940 790309 FACOM6AACOM1@ACNFG .ENTRFLOATLBYTEREADFMBYTE<<`bB  p`PP Z()`Zp`@@p:)$<:<`PM*$Z, p  `@; `B;;; [ACFMT 92067-16361 REV.1940 790725 @ACFMT;.ENTPACOM2ACWRLNAM..`A`A<<`^B(`p`׃Zp(Y8PU(JZ(Y@(c@8(@`p<<<`_kJ=8p6P((8(C((xVOVh`T `(/CRZ p`< `C"\X( ::`^_P8(\((p`p8hxPxx(thx ܢx(h :<<``_} HHߋ( HߠHދ (uhh hxHHZP8(((< `F ""`Pw`ph 8(("X("`A `B9 *  `D *r `Dc 00 `C9 - `F I0  ACSTR *92067-16361 REV.1940 781024 @&ACSTR dACWRL `C#  p ++`` **************************************************************+`Gj#') ## ACSDN v92067-16361 REV.1940 790111 @"ACSDN!! $CES $LGOF$LIBR $LIBX .ENTRACOMDEXEC LUSESXFTTYXLUEX!<<`fBHpr( 0ڀD 0Opsr(4pq`pp%$EJuJ&qp<**`W$&$)KL$Z-s`P7``7`GXp=$BIs*<<`l>$Fuu7## LGOFF QSYSTEM MANAGER IS ABORTING YOUa------------------< `Foj------------ jj ACPUU S92067-16361 REV.1940 790725 TACOMD CACOM3DACOM4QACOMAIACOM9 GACOM7FACOM6AACOM1@'ACPUU66.ENTR.GOTO.CPM MOD RNRQ ACERRACDIR ACFDA WRITFREADFACNVSZPUT IPRSNLBYTE MBYTENAMR PARSN6`QH @ USER GROUP USERS GROUPS `L4cTO BE PURGED (Y OR N)? _`J`v*ACCT PURGED ;;`cUT  p( *4Q (`(( :("(((6Q / $K/K/`9;::`\%0pH`D@H@0hHZH0`H@0hL`HpH@6(1p+#G*p*` pA(R#:<<`\L$ZN*(`+pA'U*(e`Pp0`Op1`Np2`Mp3`Lp4`K*@8p*`0p)+<99``h$o+0DI&I(`((`JP/(3{&2D75`/ZP7 h)X (`Ip(9<<`_v(`Ap+`)p0 pG $`AZP h)X  0(`:pG(`)P (<;;`^)(`5pGpH`H@-hG HHPH/`HZpH@4(`HpF;*74XF`FpF;`C$F9::`^0ȶP2((`FpFC24G`F@p*G7*61`FP((`EP(:77`b(p<K42O'+$<06:84X(`((!$ 334SW(W;C87<<`\+`9pB`5 ((3`AP(`9 @B@. `: @B@. `>P((`5@B@. `D<99``^j$ @B@. [4/W(W;68` p+` pAK85O'p_+B+$0D:8(`(9;;`arD(KJ2O"'p_+T$+0D:84Z(`((!`;pBSaW(W;C:`C@B@.;99`awepEEB(kp* 90*(3|24D75p7`7@-h7H,`79;;``Zp7@3(~3$9D75SW5W$;C2pW-[W5W$Z;2pO`: (;88`[=(`AP(`@ @B@. `? @B@. `>P(`=@B@. `<@B@. 8;;`^/[W(W&;:K5O'`Rp_`Ap+`AP (:`9 ((p<p_K2;44`]ߦO'+<$06:8(`((!3&26757 :( ( p7`7@-h74::`^ PH,`7Zp7@3(3$ 9675pOK5O'`)p0`)P ((&`Rp_:!!`P(`7p(c 6((&K&5PO'p_(!55`g,67W)5COCPY N . L RANEGEP5,, ACNVS &92067-16361 REV.1940 781024 DACOM4GACOM7@"ACNVS.ENTRPARSNNAMR ACREIACPRM<<`b4 Zp (6% #% < `C#(P ## sACREI 92067-16363 REV.2340 830728 SACOMCCACOM3@ACREI** q.ENTR.CPM XREIOREADFACPRMACHLP MBYTE ACERR ACXFR NAMR ACUSHACWRIABREG*`C`T<<`^VB@p`pp`($(&p`(*(,`pZ` +(2(<77`^U2 +(7(ж`0 +p`pB4F`@Zp`(T7<<`b2P$S ([`p[4P`(d#d`(r#k&ڀ` (r#r<<<``r(w(y`p`@h `p@(|p`(' 4` <;;``1ZPp+&P0(/(`Z((3$;99`_(`Pp+P0(Z(xp7$ɀp;π(.?9<<``O4 ,6h0(p(p`@hH`p `@(`<`K9uPp@(@p`@p(L`TH (E/H R/TP TETRPRNS ACUSH T92067-16363 REV.2126 810414 @ACUSH .ENTR.CPM LBYTE <<`cFB@pMpX`@Mp&S(pKRK('`@MhHM<<<`bs%HO*pQ(0pKP K(B`@MhHMHN`Pp< `CG(  `AJ `FPN{a{a NN 7ACHLP 92067-16361 REV.1940 790722 TACOMDSACOMCRACOMBQACOMAHACOM8FACOM6EACOM5CACOM3BACOM2AACOM1@ACHLP%** 25EXEC .ENTRACWRIACLCKLURQ LUTRU ACITA ACCLL ACERR ACWRL ACLNKACOPLNAMR *`B`B::`c#B#@#p 1$#ʀ$$p"`p! 4<#ʀ$P X! 0:66`ZKF(t`p$O`(k`p`p `p#\&` p`p6 `C``(h `J: KEYWORD NOT FOUND ;;``c'h`(n+n4/pp%`(|3| Ķ`p `(3;00`W 7p`P((`0p;$(`p 0++`We$$(`P((Cp(s+`HN HELP NOT LOADED`FG (s`R \HELP  ,p 5 ((P ACLNK !92067-16361 REV.1940 790214 BACOM2@ACLNKEXEC .ENTRACWRIACERRSEGLD::``Bp ` ( ( p 4 4   : ACPRM 692067-16361 REV.1940 790125 HACOM8@ACPRMi.ENTRACWRIACERRIFBRK<<`bjB@p3 "("5()$p(`(@4h(H3P`(p(<`O#P(ڨ@(p2402((`B444 ACTEL 92067-16361 REV.2426 840403 TACOMDSACOMC RACOMBQACOMA IACOM9HACOM8GACOM7FACOM6EACOM5DACOM4CACOM3 BACOM2AACOM1@!ACTEL>33.CPM XLUEXMOD ACERRCLOSEACCGTRWNDFREADFXFTTYACASBACFDAOPEN NAMR LBYTEPARSNACUSH3`A`B<<`^7>>p>`p p<`<@x h`p(q`~p[t(k,&&`[iYx4  "#8@ ` P L RANEGE(&xx ACCGT ;92067-16361 REV.1940 790412 TACOMD@ACCGTHEXEC .ENTR.CPM IFBRKABREG<<`eTsB:7`( Z(!(!(`9*85$75<`K)46-P( ( `Ff5  55 MBYTE 92067-16361 REV.1940 780822  @4LBYTEMBYTE `Ng נ( @  ACFDA ,92067-16361 REV.1940 781024 QACOMAAACOM1FACOM6@ACFDA  .ENTR.CPM READF `Aa@ ;;`aZ@p@p@ p@ p` @ ` @ ` (`;99`] h'Zp(0`p p (4`p p p> $+ (C `9<<`bKDZ@(`Z@(`@*p`P  (P` P(g<::`^3f(Ph H(p`@hHH(~(`p@!(u: `DtP( ;;`[=p`@hH H)H(Z(`p@!((`p `p (`p ;<<`^?Z`p p`@hHH`@hH H)H`p@!(`@#<`Ap<<`]´Hp$Z@ `(Z@@p`& `(ڶ` @h%`'P@@p<;;`]ߢ(`&Z `(` @h%(BZ` (B`$@p#((C`; `Bsp(4 ::`[{*` p` p( ` p` p`$@p&#((6`p(4`" (B:`M68@  ACASB ;92067-16361 REV.1940 781111 FACOM6@ACASB  J.ENTRIVBUF <<``b6` p`@ 'pph:Hp7x88P7(('#$<**`T#Z(0`9P@p@(`9@5*`B`999 LACUNL 92067-16361 REV.1940 790625 SACOMCRACOMBQACOMAIACOM9HACOM8GACOM7FACOM6EACOM5DACOM4CACOM3BACOM2AACOM1 @#ACUNL00=.DCO .CPM XLUEX MOD FLOATACCLLRNRQ ACERRACWRL ACMSNACFIDREADFACNXAACOPL NAMR 0;;`^zsp`p ݶ ` p &ppp`@#p;77`]p$׶`P(6`@àPh`Z@h`@״P@h`7;;``?0 @@ `ٶp`@P(B`p@(#J''4h؂#@;88`_*Pp`hځ@'p'`Z@'@p` @@'pp',+l$`(8<<`a<o`0 p x$(`h6p`P((`p &3'&`<99`]Z(p`P@ `Pp@(@p`p 6((#4''9;;`b$`(3'4Z`(`Pp@(pp$`;<<`^϶@@p;$ڂ`@@p;&`p`p`@p`@hH<<<`a)k`p`p@(`@p P( `@`@p<<<`b{@(3'`(`@("((Pppp0$<`AcG0`;;``^71X@p$9ɀ&@ϴp#D''`Ҷp`@p`@hH`;<<`_>QPp`p@(I`@Z(h`ζ@@p;h$ڂ`@ (w(w`<`ABp@<<`cq@pKw0 hH (3'`(p `@(<99`a@`p@((O P hʠX 0( `p 9`GjO$S))`]_wc'@ ?@q ? P) WACOPL 92067-16363 REV.2001 791016 SACOMCCACOM3BACOM2@ACOPL !! -.ENTR.CPM ACROP ACERRACTIN LURQ IFBNR ACLCKLUTRUACOPN!`B`<<`c-" Z(` p $(` p` h 0(-p<99`[ +`p `p `P(4 p`@hH(>(]`p@(6`  9::`^F p`h P h Z(]`P(X([` p (3`P(c p :55`Zd` (t`0 pn`(z(~`p (3}#5;;`^-~` (((3`p '4P ((3`+$(v(v/ ;66`^pL(Z(3p`ZP hX Z hX   (p` (6;;`]`p ` (`p  Z((p  p 7     P (; `ENע((3 `Qv޴ T!CC+@p@  ACLCK d92067-16363 REV.1940 790721 @ACLCKPKEXEC .ENTRIFBRKACWRIABREGLURQ XFTTY`B`B;;`b$BZp`cp "Z(&$+ba(W0`P(5(%;`F5`(D`(@ `GvWAITING FOR LU `EF;?`(D `G| WAITING FOR RN <<`d@D `$ZG(S`cpR\[$_[^(&`](%`\(% <@@ ACROP F92067-16363 REV.1940 790721 @#ACROP v .ENTR.CPM CREATPOSNTOPEN <<`d"@pA@p@ $`E(5D6($($ <,,`[ %$)C($1$PB(#>$(#, `DB' BB ACNXA 92067-16361 REV.1940 781116 SACOMCRACOMB QACOMA IACOM9HACOM8 GACOM7 FACOM6EACOM5 DACOM4CACOM3BACOM2AACOM1@ACNXA x1.ENTR.CPM MOD READF;;`ai(fp@~X( &(%(%@~P;<<``($(``(0(=84(B(D(<`AD<<`_E@~P(RP@~(u(%V$Z(uP@~(u@~h<55`YvdZ(`@@`P`(%P({`(5`G2~~~ ACFID 92067-16361 REV.1940 781116 @ ACFIDN.ENTR..`X4 Z8 (H (8( . ACMSN 92067-16361 REV.1940 781226 @ACMSN 5.ENTRACITA `QB@((p $ڀ``B+M ACWRL l92067-16361 REV.1940 790606 CACOM3BACOM2 @$ACWRL .ENTRXLUEXACCLL ACERR ACWRIWRITFIFBNRXFTTYIFBRK<<``"@pg $P(_`p`kPZ(@`(S`jZ0pp$$<77`^$((`hp&,h(0p`@ghZ pexf>he"f`7<<`aB(KI $Z(?4Q(?`h@gpexf#]$Zef(?'&bi+<`B=8c4d/ `Dh hh IFBNR 92067-16361 REV.1940 790104 @IFBNR  .ENTR.CPM XLUEX ;;`cN B ` p`p4X(`p$"(``hځp`z;<<`a4V,p`hځp pw{4 (>w(t`~Ph{X pwP< `D?Mpy` <<`aQZ0yw(d`}ZPh|X  0(dp` Zh{ Z 0hzX <`Er(``p(b`M*z@? zz ACCLL -92067-16361 REV.1940 790721 CACOM3@ACCLL XLUEXACCLSLURQ  ;;``DZ@p`( `+P+( `,0p+&)*&(($p( ;`Gr $ p( `EPp(p (( ACCLS ,92067-16361 REV.1940 790722 @ACCLStk.ENTR.CPM CLOSELOCF ::`dBp+(("$`@@@*p$':`B`n*** ,ACACP 92067-16363 REV.2126 810414 TACOMDIACOM9GACOM7FACOM6DACOM4AACOM1@ACACP]<<>fEXEC .CPM ACERR RNRQ WRITFREADFACSIDACPGAACRMCACFSTACDIRACGSPIVBUFACTRMACWRIACOPNMESSSACCRECLOSE < RLMEMIFBRK ACINM &&`\F.+@CCT!@ @ DJNPDSNPOF,LOGON,1OF,LGOFF,1&<<`a]]p]p;j : $<` -(o` -p` ,h -0(7PhX<44``1~Z 0(7$:$\`:h\ 0(7p[[ZY4 2488`ZpX`P((`pXpCX(`P((7`X(`PC((8`N&WAITING FOR CLASS # TO CLEAR::`c# $4+Y(/]`CpC@((ͤ39:77`_\wۤ39pX4ZX(pB76 ; $:`:hX: 07<<`a5(-pW`W@ hWH`W@hWH`WpW@(?RȤ?M $<""`R%$`BZpB@(/&':C+:("`OaY*ACCOUNTS FILE HAS BEEN PURGED <<`a8*-#1*ppG+K7`(<(ʹZ`p=p>4H : $Z<=pB`B@<77`ZNN(q`B@P(~`B@(q`@B@pD`@B@pG`pJ`pI7<<``Ih`J@'pLpKOsK"J(`@KpO|JpE`E$@pOIpH`><;;`_PPEhG  p`HPDp`0(`@KpK@L(oO`>PE;`Aj/hG<<`_Z  p`HPPDp`Z0(g`G(`GpD`B@pÂ&:`:(g`B<<<`aEMǶ@p΂&:`:(gpES4EWF`F(`EP>hDXW  (`E<`Af-<<`]ZpE@([6 `pC` @C@(Z`C@PD(( `@C@p_:<::`^Z `:( /& :`@CpC@( : <6=`@B@pAp@`A:;;`_O$('`p@`ApA3/69`B@6(\(\> :W<4PA`@@;::`_W8C(\`@@@@p?`@@@(W`?p?g\?ga>3:::`^Ub&f9(ip;q 4: <=`>p>`@BZpB@(J`@=p=(@k:22`Z39 : $<` -(`;p -`;po :  2`Mv43"9(/"(//`aW  L$Q@   $/ xACINM 92067-16363 REV.2001 791016  @ACINMRLMEM --$BALC $BRTN $DSCS$LGOF$LGON$LIBR$LIBX$SALI$SMEM $SMVE $SRTI $STH .ENTREXEC -;;`d<+pl;pk"Ѐg(A Ԁj(5 m4Z`m;;;`c$Xp0x1ՀiՀj݀l&45`e{`f{`h{Հg(LpJ(L; `D}GpK݀l ;;``߯KZ(`pRZ݀k(b(bpmՀg $`omz0ڀ`q(`#77; `En `Dau  <<`d?zxs {ptu$zz0Pst (`s0rtxt`t{ws y<<<``6ztps{Z(hhhfheԀippԀjpp< `DiՀg 33``̧(8݀l (ԋՀj 8xՀ377``0psvn$onq$s((X(X87`N0010x$nnp4s(6 ACCRE >92067-1X365 REV.2301 821008 @ ACCRE _$ACFL$ACSC $LIBR$LIBX.ENTRACOMDCREATOVRD.PURGE<<`dp;`X&X`08p;Z'(P7<((`Ze$$0;65'64&X4:`9pq+@CCT!($$ ACOPN I92067-1X366 REV.2301 821001 @ACOPN'' \$ACFL$ACSC$LIBR $LIBX $SMID.ENTRACOM1ACOMD ISMVELOCF OPEN OVRD.'<<`d/XB `@?ԀpH(4H>`Z0Cpp/"E6>#/A<00`^$XX@(`Dp` 5BBBB6B/`/X   0 `E#+C+@CCT! CC ACTRM e92067-16363 REV.2001 791020 FACOM6 DACOM4 CACOM3AACOM1BACOM2SACOMC@"ACTRM `EXEC .CPM XLUEX DTACH LURQ ACCLSCLOSE;;`aEND ACCTS Zp , [d (("`a0 p!$cb;33`]w!("`a0p`#(. .`$_P++h/ (Q`^P+,(B @]3''`X >+(Y(Q(Q70D K\+($[WZ Q$XWWY $PTX'`N$W S pWW ACGSP 92067-16361 REV.1940 790124 @ACGSPfEXEC .ENTRRMPARKSPCR`R,,,, .GASP ;;`_"@py '(+`p`@@zhHypww`;<<`_8Zp@(-`p`@@zhZHypww`p@}(>p^ < `D)W$~~~ 22`\q[$~(f&b`(*m~$|~`Zp@{(S`(*2`Qz   zz ACSES G92067-16363 REV.5020 900105 @zACFSTyACRMCACSESKSPCRsLMES [--d$CL1 $CL2 $DSCS$LGOF $LGON $LIBR$LIBX$LMES $SMVE$SPCR .ENTP.ENTREXEC RMPAR-<<`aXX#& hHhIxW#Ѓ+hLԶ'hPpU<**`X!Zx9(3`Kpr0G $V TJU8r('5:W***`[p:55F E& K(6 MLOGON QLGOFF *//`ZX6Xhp`qpr XՀY8Y 8r(dZ#[//<<`a<s3sx$ Ex7;`prhxHH8r(y <`Ba33`^c͢pphxH 0  3`Q4i Ԁ(p$  `F\D.RTR ?"- ;;`bppp` (A`@ ƒԀp$   `pp;<<`_P(@p P(8PҶ(8(` (A* .Z- < `EP8 ;;`\<.pph PxPѢx(`DhH (A`ChZ h (A8`0; `Tp3Px>HxF@E F  B 33 ACPGA "92067-16361 REV.1940 781011 AACOM1EACOM5FACOM6@ACPGA &*.ENTRACDIR `P`P`Q r6p $! ACDIR 92067-16361 REV.1940 781024 AACOM1FACOM6@ACDIR.ENTR.CPM ACERRWRITFREADF<<`cZ@p h 0(("(('`(<;;`_4f'h6p`#@p`$p`@p(#(#H ;<<`^xF&(p`@(#`@pP@(M`(qp`@hH<::((`^gd`p`p@(`(p`@hHZ`p`p@(s: `C  `L:4((`I ACSID 92067-16361 REV.1940 790117 AACOM1EACOM5FACOM6@ACSID].CPM RNRQ WRITFREADF IVBUFACSBT;;`^39pp `@ `p@(  & `pp`p;44`]&&*`P@'pp5(r;"(k`@pD4;;`_*!C6p`@pLpX`p(\`p(c(c`;44`Z>bpg k `P@p@(1t#{  '4..`Yф|4  &`p &`p '#  4.`K   vACSBT 92067-16361 REV.1940 781212 @(ACSBTN.ENTR%%`T?oBDZp`8( H% IVBUF a92067-16361 REV.1940 781010 @IVBUF ACOM1READFWRITF <<`\/ pZp_8P(h[p] 8PX(?PY((>`@ Z@hH ZHpζ`@ Z@p;55`Z2x:,$ҁ΁ρ=,(A`0+p Z(I(I`@ Zp Z`(W5<<`^̖L`+P(P(T`p Z`p+Z(` Z@pΤ#a΀6Ѐ`@ Z@PpP<44`[1jPh Z H0(` ZZ@h Z Hpδx'}΢` Z@(` Z4;;`bP@P+p+P(P(` Z@p+`+ X (`+;77`^ri(( ZR((+ZhX (`@ Z@ +((7<<`]-Ŷ`@ Z@(`@ Z@hZ` Z@hH ZHp`@ Z@px+䤐,<55`X?&ρ(ʶ`@ Z@PӶ(`@ Z@h޶H ZHp`@ Z@px/5<<`b`4,΁4Z((3 Ӵ( 7+(`+(#&܀`<66`[,FXp`(6(%(/`䶒0p3-&(3(3;43`p`6<<`\*7(`P(<(e`p `p`p` p6 (K(K`p ` (P`p ?T<88`aS4Z(C4a$ ((`pP0('u8::`^rtZpp`pp`(7`p(ȶ`p#$ڀ܀`P:77`ZZ((p`ڶP((p(((S`+(p+`@ Zp7;;`[L`+#@p Z` ZZ(p Z` ZPp` Z@p+(`(ʶ`(`(`;`G|hǢp`p Z(S`U Ҡ " NOECPp6 ACTIN O92067-16361 REV.1940 781024 RACOMB@#ACTINN.ENTR::`^uB@pEp`N@ ZpFp`@EhHHJHG((6`p:<<`_!@I(`H@Ep`hLHHGX 0(?`M@p@F(`K< `C E@(> `HG )GG ACWRI 92067-16361 REV.1940 781024 SACOMCCACOM3@!ACWRI .ENTR.CPM XLUEXWRITFXFTTY `E`E ;;`^B@p~`0 +p`@~p`@~h(%`@~h(=;;;`a<;%X` +p|6 +(.|p|4|(==$` (A(b 6(S(S;::`^mF`@~ p|x}R &ڀ|}(b`0 p`@~ p|x}b$|}`0:**`XDdpPhX + (vv$`@~Ph * `E" * (S;::`^m%SAVER::RTE_6:5:140:60 644 0 0 106000 5310706765 35226 %SAVER::RTE_6:5:140:60 $„<%SAVER +#+#+#E'vFST && SAVER *c92068-16053 REV.5010 880628 <880629.0220> &BCOMM2ACOMM1;;@kSAVER.NFOP.NFCL.NFIN.FFOP.FFCL.FFIN.FFCN.DNOP.DNCL.DNIN.DNCN.DSOP.DSCL; @.DSIN.DSCN <<4.EIO. .IIO..RIO.9.IAY. .DTA.EXEC .GOTO.CPM REIO MOD 1MIN0 '.FION.NFEXPRTN FLURQ $NEQUN6JULIAECLOSBABREG<ASCFM.PURGEEYESNO2UPSHFGTCIDDNT2ID"NWAIT5<<KREWWT7EAPOSARWNDFCNEXTN@DCO =DBLEIDSB ?NCOMP:IFBRKEREADISNGL>ELOCF;DMP Z` W(%W$ZS([&`h) $ )7 `R 2`)` (` h) )`) `S^ (/" Break detected reading TR file.") <<`dm()_`$)``(`h) &)`P`)` (` h) &)``)<`B+`R (/" Transfer file FMP read error"I6)`O:p W[(P((p W[ `E Command: _ `F) * `FK4 11`Z) 6)(@`@p)g)p` ap)`*PP*)(1 `E Command: _ 55`]-) 4*`p)4))`*P*( ("((%p(>5 `E Command? _ <<`e&a%+) 0*1)c&*k5S4Z`($<p` X(IoI$4)s<`NJ4Ow(_` X0 W(X((_ `FKD ##`Q >X^) 6)(@`)w(e(p(p` X0 W(o# `G `G]io) 4*(`Vϟ /EEN/AABVESZTTT6ECMTSEPUTR??? SOCOLIERSSUNTV<<`hp{vw* 6 p$@@))$1EQ7$$Hbn$*` S0 W(`h) <))`X $ )wJ`)` (` h) $ )w@`))88`k (" Command: "A2" was not recognized,")Use ?? to see command list and option settings. 8<<`eX) !4Z* ` X()` W([p W(4)))`h) 9) g d0 T< `U=0 c [ a i0 R q P `) <<`nB 9("S A V E R C O M M A N D S :"/"cmnd ---- action ---- setting"T42"+"16"--","+"/"<<<`n!x gVE"10X"VErify"T35L2,T42"| Sort options:"T75"|"/"T6"10X"Save Type 6 files"T35L2,T42"| 0=no s< `D ort"T58" <<`n 1=Name,SC,CRN"T75"|"/"EC"10X"ECho file search CR's"T35L2,T42"| 2=Last5,CRN"T58"3=CRN,Name"T<<<`n/ 75"|"/"TT"10X"Terminal type is TTY"T35L2,T42"| 4=CRN,Last5"T58"5=Size,CRN,Name"T75"|"/"PU"1< `Dz 0X"PUrge <<`n] files(( flag"T35L2,T42"| 6=CRN,size"T58"7=SC,CRN,Name"T75"|"/"CO"10X"Show TR file COmments"T<<<`n5 '35L2T42"|"T75"|"/"LI"10X"LIst files selected"T33I4,T42"| (Last5 means to sort chars 2-6"T75"< `DT U|"/"MT,# <<`nM Y# Assign Mag Tape LU ##"T35I2T42"| and then char 1 of each name)"T75"|"/"SO,##"7X"SOr<<<`nUv t the directory"T35L2I3,T42"|"T75"|"/"ER,##"7X"Assign ERror LU ##"T35L2I3,T42"| NO or NOT i< `D$ n front <<`nf of any"T75"|"/"UN,##"7X"UNselect ## of files",T42"| command negates or resets"T75"|"/"SZ"10<<<`nw X"Display tape SiZe",T42"| the state of the setting."T75"|"/"SS"10X"SuSpend SAVER",T42"+"16< `D "--","+" <<`n /"TR,namr"5X"TRansfer to command file"/"SE,namr"5X"SElect files via namr mask"/"/E or EN <00`de GEnd search (start saving files)"/"/A or AB Abort SAVER immediately"/)0<<`a1DX(` X(&)))`p g` g [(`h) $ k)`)` (` h) <`G  $ k)`)""`YR k(" Verify cannot be reset with PUrge-files set."/)";;`]yi`)p g(` X()&))`p c` c(*`)p p p (0`)p `* p `* ;<<`bZ/p (` X(::))4Z)`(D$D Q p 6 (` X(NN))6)`p d(<`AQ` X<<`aUgR(ZZ)Ť))`* Pwp ]`p TX(` X(k&k)))`p a(` X(ww<`K.s4)))`(`(`M ...No files selected yet. !!`S~) 6*(`h) $ )@`)! `Fۜ (I5" file_") `ICP(4))) `E0 selected: ::`c) "*pS$)*)p@p)&)w$))S`)@SpSS*:99`ac (()Ť*$)*)PpS`p@(S6)((`Sp)9::`c&))))6)(` !() )p `X(` X(&))):99`a%Z(m` X( o$ &)sw$(-`h) )2`)` (,9`J)"` h) )2)`)`Qz (" ER,## requires an LU number.") <<`_G,(`)wP) hw0(`wP i(:(V`h) )CPw`)Z` (U` h)<`JK )Rw`)`UYf (" Error LU"I3" same as current magtape.");;`^U(mYwP)(ibw$U (h`wp `)p !(mZ`wp p !`h) )v; `F^sP `) `Mʃ ("Error log LU is now"I3) `Ray` h) )0 U "XX`)((`^. (/X3A2" on at "6A2" with room for"I4" files...error log...")(!!`QDZ` p (` X(4)))`(!`S not available.")<<`bZp Wp X(%`w6)ww(C`h) )00``)` (B` h) <`Ho:&)?``) `W (" Unable to open TRansfer file, FMP error"I6) <<``2B(p X`)p W(p q`p RZ` R(Z` X(YY)Ť))(` X(eoe$<99`bHb)skw(`h) &P)t`)Z` (` h) )@`)9 `Wx (" SOrt option must be 0-7...entry ignored.") <<`_}(`)wP)((m`wp)w )0)(m`wp q` qp R` R( q  c<88``NZ(` X(o$&)`pSs4w(`h) $ )`)8`Mdâ` (` h) )`)`Qd (" SE, requires a filename mask."),,`Xд (`(`)p'6p^$S^)`S@^@)p,`MCU failed to find any files.//`[]褒 ))&`)@pҤ  m` T(`h) $ )`)/`KC (/"LU TRACK CRN") ;;`^Fp`@)p`(ܢ`@)pӢ`@)pw`@)pg`p`T($;99`b!`)0p*&hwgZ(` T(C&2 `h) $ )@؆ @`)9`J (I2,X,I5,X,3A2,X,I5)<<`_C `gPfh)ʠ Xe hg X m 0p)`h0)0 _p ` `)P(a`)p(c<;;`bBbp k)$)(ֶ`p`p`)Ŷp(WvS() )$)մP`pp; `C|`ـ$@) <<``p)w4P)`ـ$@)pwp` dh)Xw (R`ـ$@)pw `ـ$@)pw<66`at`ـ$@)pw`ـ$@)pw `$RR$R4 ` T( 6##`Uȶ`h) )2 w  "P `)#`Jk1 (I6,X,3A2,2(":"3A2))99`dOݶ(`h) &)0`)` (` h) )0ӆP`)9`VF (/" Directory problem @ LU"I3" Tk"I6" Sc"I6)11`\(`h)  &X) P`)` (` h)  &X)`)1<<`n (/" WARNING! File name table size of "I5" files exceeded!"/"Resize the program larger if po< `E7ssible.") <<`f^()! `h) <)4J  w  "P `)Z` (Q` h) <)N)<`NC2) w "  @`)**`_]<(2A2"Can't save "3A2,2(":"3A2)"; it is a duplicate name+CR.") *""`REQ (` ](`(d`h) [)``)"`K[("..type 6 skipped_") $$`R~;c(`)P(h(`w(v`h) f)r`)$`Igf("..type 0 file_")`K:u(`h) o&P)}`)`Io("..mask failed_")`O(`)P((`h) x)2`)`Jx("..extent found_") `K:(`h) &P)`)`I("..purged file_")55`]1Pw((`)pw`h) &P) wXwwwww@`)5`I5S(": "3A2,5(":"I6));;`^;Z(` p `p@)(`)@p)1&)p`Z(s`p`Z(@p;..`YT,մZ(s`p@)(`@p k`h) &) k`).`NO(I5" New files,"I5" total.")<<`c ` k (`p)) 4Z)` k(` p ` (=`h) )0 `)<`Qq` ("` h) )0 `)`L%(/I5" Error(s) found.") `M""` S()`h) ),`)`R("Do you wish to continue? (Y/N) _");;`b/5)cb4)8bZ(;()p `p(` W(F[F` X(OO)&))`;`AbQ(Y`HNo files found! &&`V RX)6)()` (}`h) )0e `)&&&`\n`(/"NOTE: SE, failed to find any files"I4" time_") &<<`fhP (qq4)))&w)))}))6)`)pp U i6p$<`L`h) )0 i`)`U(/"ERROR...SAVER will not work with LU"I6)`Fe` p ` X()`KChange tape LU (Y/N) _`R)0))c&b)b(()`IwNew tape LU is ?_ ;;`b)0))c&)kS"psʤw()`wp i`)0 ip j(`)p;88`_&Զ`)p Q`)p))p)$ '))` U( $ Q p hڂ)p` S8`F_PPp)` W)( `Kߏ OK to proceed? (Y/N) _<<`e) 0))c&b)bZ()( (`(D`)p U`h) )0# 0 i <11``"" - P`)` (((>` h) &);)0) i - `)1""`Y/r(2A2"Tape LU"I3" down"8A2" BRreak or UP,."A2)"<<`^>A)()(`)P0Th)X 0(V`)0 rp r`)0 sp s`T(]`)0 ip<;;`Y2\(_` ip`)0pk`)0p~`)0p}`)0pj`)0pi`)0p`)0p`); `Bu0p %%`Uw~ iU$ ()Z`T($ i)R(%`RS1Tape LU not defined in your session.<<`f>>)16)()  s6()k4Z^`(`)öp U`h) &)  i - <;;`dIP`)` " (` h) )0)) iB -)ƔJ`)`)ôp ")();`Ae֠(;;`cע(p "(`)p U`h) C)B  iB - J`)` #Z (` ;`Th) C) ))0 i -2)`)''`] %C(2A2"Tape LU"I3" offline"8A2" BRreak or place online."A2) '<<```)p #)()((p #j() # s6()k(6`)(d`h)<<<`iY. `)= "  i " - P`)` $ (Z` h) `)W0)) iB -)ƀ< `CWW`) `Q,`(2A2"LU"I3" not write enabled"9A2)44`^Z`)p $`)p &$Za)()(` &(~`h) q)u "  i2 `)4`MBq(2A2"LU"I3" now ready."A2)00`] }xp $})´pS`h) ~) "XX92 l@`)022`f~(" <>1>") 2''`X)4Z)` R(`h) )B  @`)'`Mxu(2A2"Sorting directory"A2)&&`W` R($ q  c`h) ) "  `)&`M(2A2"Create directory"A2) <<`c3rĄ ) i6)()` [(ж`)p g$)))pWS(#@p)4) <--`\Ob6`h) &)  w J wXww`)-`Q(X,I6,X,3A2,2(":"3A2),3(":"I6),X) 66`b  ) j6)(#`pX@( $  sk()`h) ) "B  @`)6`M(2A2"Verify directory"A2) <<`ep % )j() -`h) ~) ? "XX92 lH`) $ H) i)()k<`PSI J$ M`)@p) W$)@)( a`SDirectory verify error, SAVER aborting<<`d Z `)4Z)()paW$X fS(# $ n) j)ڴ()k sS@ap) y4) |  <55`b, ~6)`h) &) a w J wXwwR`) $)5::`cV P( Z`apa@( c & s}()` ^(  `h) ) ˔B w  :`KJ òwwwP `) `WA("Resuming save of "3A2,2(":"3A2),3(":"I6),A2) ;;`c0 Zpp` b(!` ^(!@p) 4) `h) ) J  w  ;`P "X wwwP `) `Wme(2A2" Saving "3A2,2(":"3A2),3(":"I6),6XI6,A2) ;;`co!! `w6)ww(!`)P`(!(!G`h) )!!J  w -2 `);,,`[z!$` % (!?` h) )0!<))ƔB w -)`),`U(2A2"File "3A2" is opened exclusively"9A2)::`c!?`)p %!D)(!G(!`h) 2)!S2` wZ`)` ih) 2)!b2` w:%%`U!bP`)` (!w` h) 2&)!t` Pw`)%''`]!2(" OPEN error"I6" on file "3A2" -- DUMMY FILE WRITTEN --")'<<`` !w` p p %p e ! s6k()(&`)p eZ`pP(!(!!`$zvs``(!`<;;`f!h) O)!B w`J 5 `)` (!` h) O)2! w0` 5 `);`R]O(/" File "3A2" ELOCF error"I6,10A2) ;;`dk!(#zxvt`sZpr`(!S$!)$!)(!`@p)S!) ;::`c!ᢂ` b(!鈀n(!툀Pnp b npp ^p`pP(!("/"$`xtr:`A"``<<`fG"("/`h) $O)" w` 5 `)` (".` h) O)"+ w` " 5 <;;`a4e"+Z`)(#W$Z"2S(#S$"7$"=n("G"Bnp`Ѐ'p("J`'p`';<<``L"Lp`@)p)_"X`&``("d`)P`("_(#7 nn("hڂ)p`@p<<<`c"l`@p npS"w )"}$n)n$"n n(#7(""p``)P`("``<`A"<<`cnz"(#7n`("/`X("`'p $" r j()k"^Z`)("$"n n(#7<;;`c"(!(#] "& s~() "& sk()P("(""$`xtr``("`h) $a)" w;11`_g"` 5 `)` ("` h) a)" w` "P 5 `)1`R}a(/" File "3A2" EAPOS error"I6,10A2) ;;`a "` p (#`)öp ^`)p V(#b`h) s)#P i`)Z` (#` h) s)# i; `C#`) 88`kTs(/" EOF reached...LU"I3" is too short for this save.")This SAVER tape is not complete!8`IK##)4P)` (#(`PThis SAVER tape is not complete!<<`fA#"#() 0) #, sj()() #2 s6j() #6()`h) &P)#C wP``)` <`P$#H(#X` h) &P)#U wP``)""`YZ(/" File "3A2" EREAD error"I6"--incomplete save") "<<`aP#X` p p e #a sk()` g ^(&` gp)` e0)(&P V(##}<<<`e#?#y$`zvs``(#`h) $)# w``)` (#` h) )2# w0` < `FI#"P ? `) `R(/" File "3A2" EAPOS error"I6,10A2) <<`c #` p p f(&#`(#`h) $)# w``)` (#Զ` h) )<`M #2# w0` ? `)`R(/" File "3A2" RWNDF error"I6,10A2) !!`Rb#Ԣ` p p f(&`h) &)# `)! `GV (" Verify "A2) <<`b/#` V(##4Xj() $# s}() $# s()($` Q($ `)@ ih p)x) $$ s))<;;`cǠ$()($ $ s6() $ s6() $ s6}()`pnZp`($z` V($c$/;`A$+ `<<`eՖ$,$``($Z`h) &P)$A w` 5 J`)` ($Y` h) $)$V w<`HI$Q0` 5 `)`R(/" File "3A2" ELOCF error"I6,10A2) <<`cy$Y()$^xZ($c()(& $i) j()k$n4Z`(&hЂ)ppp'$~<77`a$|&p)S$ )$$Zn($$Z$'p($$n'p_$`&`)7<<``p$P`(&``(%Z`'pW$Z$S(#`@)p)$&ЩpS`S($`h) $)$<;;`b$B wS`S@)p)`S@)p)J`)` ($` h) $)$ wS`S;`MN$߶@)p)`S@)p)`)33`g(/" Verify error in file "3A2" at word"I5/"Disc data="K6"B, tape data="K6"B.")3<<`a$(%>h)ڶp`@p`@p`@pS$4)%n)n% n" n()<;;`bH% ($"%p`n``($"`)P`(&`h) +&P)%) wP``)P` (%>;`OY%/` h) +)2%; w2``)&&`\+(/" Read error, file "3A2", FMP"I6" from next extent.") &::`c|%>` V(&&6)(%F(%` p %L `h) G)%\B w  P`)` :!!`T%a(%u` h) G&P)%r wB  `)!`VG(/" File "3A2,2(":"3A2)" fails to verify.") `Lw%up f`h) $])%~`)`Rf]("Continue with next file (Y/N) _") <<`f-u%%)c|4)%|()(&(%w&% `h) $o)% w  "P `)` <!!`T%(%` h) o&P)% wB  `)!`Qo(/" Retry save of "3A2,2(":"3A2)) ;;`d%%`(%`h) &)%` Pw`)Z` (%` h) )%߆P` w; `C%ߢ`) `Wpg(/" RWNDF error"I6", unable to redo file "3A2) ;;`c%Ⱂ(%u % s()`)@ ip) $% s)()k$%^`)(& `h) $)& iJ 5 `);!!`Ti&` (&` h) )0& i 5 `)!`Q(/" Unexpected BOT on LU"I3,10A2) `O'& &` p () &$ s6}()(!p f`PzRedo the current volume? (Y/N) _<<`eXs&(&.)0)&4)c&b)&7b(&:(&w`)p b&C`z&vs``(&n`h) )0&U <33``&Mw` "P 5 `)Z` (&m` h) )&jB w`J 5 `)3`R(/" File "3A2" EAPOS error"I6,10A2) ''`T&m()&rj()`)p f(X` ^(& $& s()(&'`O5Do you want to abort? (Y/N) _ <<`e&&)0)&)c&b)&b()` V ^(& & s() & s~Z()` p ` ^<&&`Ut&(& & s}()(&` \(& & sj()(& & sj()&`RTEnd of reel. Please mount next tape.$$`U*&&)4)&)()`h) &P)&`)$--`bB(/"Ready with new tape? (Yes to continue,"," No to stop program) _")-<<`f&Є((&)c|4)&|()(&` lp lxztv`r ps` Q(&pn(&l<<<`bΣ&6n( &`)p f`pX@(  $' sk()` \(' ' s6j()(' '& si()` [<`Bj'77``'Z()?` ('(';`h)  )0'( `)` (':` h)  )0'7 `)7&&`\0 (I6" error(s) during save phase, PUrge option ignored.")&`I#':()?p_'C4)))`Q<)Purge files (NO, SOme or ALL)? _ <<`c'C'I))0)'O)c&b)k'SS4Z^`^()?$'Zb)`)Pb('f`)Pb('z$Z'cb()?('=<`K :Are you sure? (Y/N) _ 44``'f'l):0)'r)c&b)'ubZ('('('fp [`h) $E)'`)4--`byE(/"SAVER will ask permission for each file...answer","Y/N or Quit") -;;`bA~'Zpa@ap)')`h0 _((L'4hwg```('' `h) )0'a ;99`b'w J wP``)`)Pg('('Z` [((&' `h) $g)'9;;`hQ'2a w "  ))2)`)` ('` h) g)'2a w "  ;`J6'))2)`)--`b9g(/XI4,X,3A2,2(":"3A2)" not purged, file is on a ",3A2" cartridge.") -<<`d1'((`gPfp))e)((LZ` [((&( `h) $g)(*aB w <::`hn( B )Ɇ))P`)` ((K` h) g&)(Ha w B )Ɇ)):`B7(H`)88`b(J((` [(((S `h) )(iB w  www@`)8%%`[(/"Purge "3A2,2(":"3A2),3(":"I6)," (Yes/No/Quit) ? _")%<<`ar(l`)pd(t)$cb)(x&b)`)Pb()?(~b((S((`_p_(((`www<66``(( ``Z((`_p_`h) )(Pa wB  www6 `Fn9(P `) `U(I4,X,3A2,2(":"3A2),3(":"I6)" purged."A2) <<`f<(((`h) &)(a w J wP``)Z` ((` h) )(a <`PU(٢w J wP``)""`Y'(/XI4,X,3A2,2(":"3A2)I5" not purged, FMP error"I6)"<<`a (颊`apa@('`_p)` [)()`h) $))`)` ()` h) <`Gr) $))`)<<`n(/" Sorry, you do not have the capability level"," to purge any disk files that were saved."<`Aa) <<`gM")()?k)S^`h) )0)$S^J 5 `)` ();` h) )0)8S^@ 5 < `C8)8`) `Qx(/" Tape error, system code="12A2)//`[); )>()&)BX` @ @ p `h) &))S UJ X`)/`I0(/3A2" off @ "6A2)<<`g)V` ()`h) ))h0   P `)Z` ()` h) ))}  0  < `C})}`) <<`n(" Total errors="I4/3X"Directory errors="I4/3X"Open/read errors="I4/3X"SE command fails="I4)<`N)()`h) I&)) U@`)`II(3A2" null run.") ..`[) ()?`T()) i)RpS)) i6)`p )0  )) $)).<<`n7A)$  $gf$ed QU p ouGr?emstSySOAL@<<<`nu )%2(@@. s_--? _@ L|NLMP< `D&*DBK  `K>* * ASCFM 92068-16053 REV.2040 800801 BCOMM2ACOMM1 @ASCFM Qp.EIO..IIO..DTA. .ENTR.GOTO.EXIT CODE ASCHKSFILL`Aa <<`d@p| #$~'p`pz2z2$DVh4h}{ ?<`H]:X `{ `C(2I6) !!`RKBFh}{QX `{ ! `EM(4X,A2,I6) !!`R0T(CXh} {cX `{ ! `EQ (I6,4X,A2) !!`Rkf(Cjh}{uX `{ ! `G(4X,A2,4X,A2) `Bx(C`C`}  }} NFEET 92068-16053 REV.2226 820409 BCOMM2 ACOMM1@(NFEET--U.FAD .FMP .FDV ..FCM .EIO..IIO..RIO. .DTA.EXEC .ENTRIFIX FLOAT.EXITNT2ID-`KP}G@lp 00`_0jp~u ` (` h &P}`}0`L ("No files found yet.") <<`e`  y` w` uZp}@ p~#}`'{`'(<66`hWÆ{ {y 6y` {{ { 0 yyw y` {{ 6<<`jBr0{  yw0u y 0{ yu {4P`}p}@~(`  u<`R؉u` h$}$ y w u`}77`jO("Apx."F7.1" ft @ 800 BPI,"F7.1" ft @ 1600 BPI magtape,"/"or"F9.1" inches on CTU's")7<<`d'Z(8yw y pt(D yu yP ptPt(H(K((w<`L+K` hA}0Tt`}`OfA("..."I3" reels required...") 33`]]WP ([(](` hP&P}d`}Z(thP}q@`}300`dP(/" SAVER cannot save multiple files on multiple tapes."/"End of job.") 0 `E.tw( `P@@UqP6]  YESNO 92068-16053 REV.2226 820409 @;YESNON.ENTR`BBNY66`Zj`ڐp`P((p(`P((p(p`_6 NTAPE U92068-16053 REV.2101 810212 @NTAPE  9EXEC .ENTR ;;`bpL&ڀ(H`Tp`Sh6Rp`QP(#(%` `M;::`^v&p`PPڐ(/(#`OАp`NP X pI`MPpK`0KI: `DHDP(F(#p `A(H(#`I L ?LL REWWT |92068-16053 REV.2226 820407 @=REWWT".EIO..IIO..DTA.EXEC .ENTR.EXITABREGIFBRK<<`d B p`z p1y&(Y`xp8w (Y`u@pn@&vnD <;;`cODZ`(J`"Qtq$sqrT"(9`{p(H]!hpo0h;`Ag `C$h`o ""`Yo(/"Error on EXEC call to tape. ABREG = "2(K6"B "))" `Ck`{p(H `Lp  A ?pp SHOW z92068-16053 REV.2101 810212 @SHOW ..ENTRREIO MIN0 SMOVESPUT SGET `A`m,<<`b)Z@pq@ pp p &`P((`p ( <`A(*(X `ECommand: ;;`c9+2ty$Z t@po< o& v @@vpoF &ox` @spoOw;66`a}N6opoVu$ o pob$o t` @rpomu "o(W6`Hr __ rr UPSHF <92068-16053 REV.2101 810212 @.UPSHFnv.ENTR.CPM SPUT SGET <<`dvB@p8(p ;(p7:P("7(.<""`Q^&`9p7.$Ѐ7`p(("`Cb69za99 SORTR }92068-16053 REV.2226 820409 ACOMM1@7SORTR7** 9.EIO..IIO..IAY..DTA..ENTR.GOTO .CPM REIO .EXITNAMGPJCMW NMVW SMOVE *<<`cy4"4@5pp4pns (F0nX(L7x(Q(]`hqoZ<`F$WP`o`M("Sorting"I5" files..._") ;;`^`]p`@p(_(_@@Zp`@pp`p`@p #};::`g'{&r# &!r 4$$(K+/y+!*y(#/w$|/s/:;;`cs$!w|*4s/s$s/|/$!ss*|`p2`%p-(#`p/`%p*+$0z+;99`d$!+z(#`p/`%p*/$w|/4z/!w$|*z/$ss/{/!ss *9;;`]6{(#`p/`'p*`p0`%p++1z+!,z(#`p/`%p*`p0`'p+;::`av+ 1z+!,z(#`p/`$p*`p0`%p++$1z+$#!,z3$(/*:<<`c8'"y(+(>#$0!s#$5 s`@ps6(u(u`p(s(s`@<::`b.-JXp`(mx(S(l6(] \wvt(l`hq oiu5@`o: `F (R1A2A1"_") `Bl(K`Lq  qq ITRAL 792068-16053 REV.2101 800506 @'ITRAL ¶.ENTRMIN0 SGET  <<`c+BZpp`Zp $`6PPh Z(,`Pp<`Nv'( p``p53&5p(*`A`6 66 [LOKOK 92068-16053 REV.2226 820408 @"LOKOKU[.EIO..IIO..IAY..DTA..ENTR.EXITABREGLURQ <<`b'PP@Rp`pO b$P((($gNM`N(l`OUpOPN(Q<22``frh}BRPJ`S(Th$RP`2""`Y (/X3A2": LU"I3" is locked to another program."/X) "11`^v#(Qh&RJ`S(Th$R`1%%`[<(/X3A2": No resource numbers available for LULOCK."/X)%<<`g(jNMQh40R0NM`S(ڶTh40R0NM< `Cע` !!`X4(/X3A2": LULOCK failed - system code="2A2"."/X) ! `CVpO(j `DE   zCOMM2 92068-16053 REV.2101 800506 @COMM2  uCOMM1 92068-16053 REV.2101 800506 @COMM1 T BACK ORGINAL CHAR  JMP PUNCT,I RETURN * PNCTT BSS 1 *  SKP * * NOLSP TEST FOR NO LINE%READR::RTE_6:5:108:60 644 0 0 66000 5310706767 34177 %READR::RTE_6:5:108:60 $ll<%READR +#+#+#l5(FST && OREADR Ec92068-16054 REV.2241 821017 <850620.1101> &CCOMM3 BCOMM2ACOMM1;;@IlREADRx.NFOP.NFCL.NFIN.FFOP.FFCL.FFIN.FFCN.DNOP.DNCL.DNIN.DNCN.DSOP.DSCL; @.DSIN.DSCN <<.EIO..IIO..RIO.+.IAY..DTA.EXEC .GOTO.CPM REIO MIN0 (MAX0 .FION.NFEX JULIALURQ #NEQUN7PURGE4SMOVE2ECLOS<0 NMVW )DBLEIIFBRKJREAD6ASCFRCRETS5DMP 0<<iOPEN NAMR ERFMP3UPSHF ABREGECREA1NT2ID!NSRCH/CHMSK.NID2T-NCOMP%CODE *YESNO,SPUT 'SGET &REWWT$NWAIT"NTAPE SHOW <vNWHATREADFNINITPNAME GETST ICAPSLOGLU<<`n$J <""`YF READR waiting&s0d0f0g0h0s0T_"<<`bUx ~6wp`p`(0p pv`vpvZ(`h_<`Gz0v` 33`g\_(/"Your session capability of"I3" is not high enough."/"Minimum level is 30.")3<<``s(+D4 `p!`!ps`!(/34P7p7p7p7`p7p7<//`WZp7p7`p7`Cp7`3p7p7`Bpp;6`2p7/;;`cvHض`1p7?Cut`AZPth@XtZ 0p`hB7?J; `D@` %%`[u(/3A2" REV."I4" on @ "6A2" with room for"I5" files.") %99``p&` 0(  p`!( p!Z`$( }O$Z ( &S$ 9`HCBreak detected. --`\d  %6>(W -$( A`h& 8` -`RK(/"Transfer file FMP read error"I6) `Oi ;p$S @( P( E( Wp$S J `ECommand: _ `FX J P ; `FB ##`R< P V6:( `%pﶀ`=P<( # `ECommand: _ 11`[ b h4Z;`@p/$ o`p x&`=P<( ( 1 `ECommand? _ ;;`dzC } 0; & [ 4Z`( /$ p&`!( _ $&7 ;`Mh c g"&( `!0$(  `FB) `O(  6:( `g( `$0!(  `G `G  45( `TALUPVETTECMTSEOCOSLITR/EEN/AAB? ??COSSTV<<`hz Ħk g96p $  0 M j$ v  4$ z $   B N j6 `s0$( `h<`Gwa 2 g` 66`i(/"Command "A2" not recognized,")Use ?? to see command list and option settings. 6<<`cAi  4Z8`!(`$( S p$( `!(  &*s 7&`<66`` C ( `*p7`( `*p7`h >X#72 7%06`K f 67P7` <<`nu(/"R E A D R C O M M A N D S :"/"cmnd"T13"---- action ----"T37"setting"/"/E or EN"T13"ENd <<<`nHoption setting mode"/"/A or AB"T13"ABort READR"/"SS"T13"SuSpend READR"/"UP"T13"UPdate files < `Dvmode"T39 <<`nzL2,T44"+-"16"--","+"/"VE"T13"VErify"T39L2,T44"| To reset any option, type NO or |"/"TT"T13"T<<<`nxerminal Type is TTY"T39L2,T44"| NOT in front of the command. |"/"TR,namr"T13"Transfer to < `Dcommand <<`nNlfile",T44"+-"16"--","+"/"LI:"T13"LIst file directory, "/T13"may be a printer"/"MT,n"<<<`n}RT13"Select MagTape LU"T39I2/"AL:#:#"T13"Restore ALL files"T39L2/T13"#:# = start:finish file < `Dd6#."/"SE: <<`nzu:#:#,namr"T13"SElect filemask to restore,"/T13"#:# = start:finish tape file #."/"EC"T13"ECho <<<`nhtape positioning"T39L2/"CO"T13"Echo TR file COmments"T39L2/"OC,n"T13"Override CRN"T39L2,X,3A< `Dx2/"OS,n" `PT13"Override S.C."T39L2,X,3A2/) ..`YC AX( `!( K& K*`p%( `!( W W&*`( i.`SREADR suspended...use GO to continue. `I/ Z `07 c6 `GREADR resumed. <<`b8 c i65( `!( s s*4Z`( y`7p7( `!( _ &67<66`] `$( S 4 `( c g"&( `$( psp!( ;`s0$6`M ( `h&X g` `NidUse ?? to see command list. 22`[F  4Z4`!(( `gP( Pg( `h$ ` 2`Q 9(/"TR, not available.")22`\ Zp$p!( { g6gg`( `h& ` 2 `W(/"Unable to open transfer file, FMP error"I4) <<`_S9 ( `p$( `!(  *`p@gp &p@gZp`( `p<--`Y: X( `!( & *`p#`#( `h2 ` -<<`n(/"Warning! Duplicate files on disk will be replaced in"," the UPDATE mode."/"Consider abort<`T(ing READR to back-up files if needed."/)`Ok* `7#( /`h<2 *` **`_6<(/"Note: VERIFY has been set" "...required for UPdate MODE.") *55`]b -`p7( `!( 9 9&*`p7`7Z#( L`h[ G@` 5!!`XK[("Verify cannot be reset with UPDATE mode set.")!<<`^p J`p7( `!( V V&*` ( c`p `*p7Zp7p7( i`3p7`2p7`1<33`[ hp7( `!( s s*6`p( `!( _ &&7`3`MS ( `hs&X 7` !!`X3us(/"Cannot change magtape LU"I3" at this point.")!<<``^. ( `( c g"&( `gP( (  gp`Pp7<`P &( ( `h Pg`  `W\8(/"Magtape "I6" is not defined or invalid."/) ;;```g ( `gp7`007 p7`7(  W0 7&/ .7`-P,( `;`I| ఒh @` <<`nj(//"READR cannot work with 16-ch MUX. This terminal","has been reset to DVR00. Notify syst< `Gizem manager.") <<`bFY  `!( _ &67pp`( c g$&( P`g( <55`[x `p`gp( `!( _ $&7"ppZ`( c4 )g5::`^ &$&( Z`g( `p`gp( `!( = =*`pZ`pp"`:`I% DgP+( H( J`gPp`( `Hm Tape directory:;;`c M S0 Y$P(ppO `( @p& hs m7gg`h;((`Xs p$ Jg77ggg@` (`O8#(I6,X,3A2,2(":"3A2),3(":"I6)) <<`ank `p@( ]( `!( _ &67`( p@gp &p<%%`U @gpc $ &( `h&P ` %`O(/"SE, requires a file name.")<<`^Ғ ( `ppX( `!( & *`00Z(`(2`07p7`)07p7<11`US ܶ`(07p`'07p7`&07p7`%07p7`$07p7Z`( `#071<<`\W p7`#07p7`#0p`#07p7`#07p7`#07p7`#07p74 76p<`Q $   " $`h2 7` `Q(/"READR will not work with LU"I4)44`]= `!(( `Zp7`( A`h 8J77JP7@` 4$$`ZR6(2A2"Tape LU"I3" down,"7A2" BReak or"," UP,"A2)$<<`b ; >'((  F"76( k[ K4P`( P( ^`h$( Z7@` <`UM((/"LU"I3" is locked to another program.") `M ](`h=&X g7` ""`Yw=(/"No resource numbers available t((o lock LU"I3".")"$$`Un j([ o`hV2 |7P` $$$`Z"V(/"LU lock for LU"I3" failed - system code="2A2".") $;;`a3s (`p`& 7([$ `( `h&X 7R`  "'(;22`] ( ( ؠZ`7( `hp B7P77@` 2**`_=dp(2A2"Tape off line."7A2" BReak or ","place LU"I3" online."A2) *%%`Uj ( `h&P 77PP7` %%%`[#(2A2"CTU LU"I3" not ready."7A2" BReak or UP,"A2) %<<`c4 Ҥ '((  (`p& 77([ ( p< `Dy P0 `Hm <s+P` ""`YƊ(/"Error on EXEC call to tape. ABREG = "2(K6"B "))"!!`R*,1(@(D(D`h4@` !''`]z4(/"Starting file option larger than file count on tape.") ';;`^C( `pp`(~P4 gp`gP(W(sX`gpg(`; `Csa(k `M,QFile number out of range. <<`_\]djQ4Z( @gpp`p(~vpP(~`pPp`(@<99`]p(((`p`p@pO$X( &(( `0(9`K5&p`(`( !!`X^^No files fitting search NAMR found on this tape.!;;`_^^6( `(`p`(gp`(`pg`g;44`\-|ʴZp`(`pg;g4Z`g(`gp;;4;;``f$;g7g6ggg(`P#(s7g;**`Yބg`hv&P7PgJ77` *`Tv(2A2"CREAT error"I6" on "3A2,2(":"3A2)) 44`\[Z`!(1`7Zp77(+(/7((`h8` 4++``D(6X"/A, HElp, PUrge, ALter, OC,n, OS,n or ","SKip this file? _")+;;``l;A74 [E/I7p&cQ 7$Z&( `P ( `P (f` P ;66`Z[(` P (` P (` P ((sk7gg`h&P~76`LuPg7J7` <<`nF(2A2"Current NAMR is "3A2,2(":"3A2),", you may change name,SC, and/or CRN."/", input new NAM<`CR: _");;`bD74 [/7pc 7$Z(` P(($ ;44`Yg` (`pg` (`pg(Ц(1Zppc4<<`_/& 7&(`p` Pp(ppc 7$Z&(`p` p( <//`Z^ۦ7ggg`(`hP7gP` /`U(2A2"Unable to purge "3A2", FMP error"I6) 55`^l({7ggg`(`h$7g2` 5`T/(2A2"Unable to open "3A2", FMP error"I6)<<``x(`gp`7Z(>`(={4$7g6g`(:`h267g<33`\`3P` (`7([(?([sD76g`h$W7g3`KhO7P7` 33`g`(2A2"Security code mismatch, unable to update ","old file with "3A2,2(":"3A2))3<<`c Z(S^7;4ag`g(y`gp車;l車;qw4;|g<..`Y0}4747ggZg`(`h+J77.`G[A` 44`hz+(2A2"Unable to create scratch file '"3A2"'. Error"I6", UPDATE mode cancelled.") 4<<``p#(`p7`p`h7X 0(s7gg`h$S7< `R]7g7X77` `VS(2A2"at"I5", Seeking "I6,X,3A2,2(":"3A2),A2);;`_ϠZ`7(`Z@7h px(`p7(K`7@p`(K(" ;77`]|sZ7(p`pO(Z7(@7p7` (`hi7`J\ &X77`  `Ezi("at"I5A2) ;;``V`p@( 7((KpO'(-7(`7p7` ;::`_l5(D`hi&XA77` `p@($`7Z([`(T`pg:;;`aPT`(Y`pgp7s`7gg`h$nw7g77; `Eu7` `Rn(2A2"Restore "I6,X,3A2,2(":"3A2),A2)<<`bz4O07(`7( 7((;P( 4g`<22`ZiPp@(( S7Z`7(4g74772<<``gg( `(`(`(ͤ7p`(7< `Sm֤?`h7@` `I$(/3A2" off @ "6A2) `F  ;;`m7 !À 0 HEPUOSOCAL/A2(PRE~@;,,`a$@ ? @K  _*H,yx 7JREAD 92068-16054 REV.2226 820411 CCOMM3BCOMM2ACOMM1@'JREAD<< .EIO. .IIO. .IAY. .DTA.EXEC .ENTR.CPM REIO MIN0 .EXITECLOSABREGNAMF "ASCFR!PURGEYESNO NWAITDIN DCO <bNCOMPEREADIFBRKDBLEIRWNDFEAPOSDSB EWRITELOCF MODBLDMP DDI <<`dͽ`0 pzp  `(Ɖ <//`\G4 4 #/;;`c@$ҁ('"P Pp`0(+x$`x(` h ;`K{& x P`%%`[2=(/"ELOCF error"I6" on file "3A2", READR terminating.")%<<`d(C(  (Kw4 v`vpvX(o %<`O!4 ` h DB  v `E7`@p `GU0p6v4p`K((U<`p@P(7`22`f];("Record length for "3A2" is"I5" words (not valid)"/"Record contents:"/35A2)2`M<G` h B2Q ``NCB("File "3A2" not restored.")<<`^T[W`(d_ax(`(m_kx(``w<`P0r(v ((` h P&P`33`gP(/"Error: Magtape record is larger than READR's"," max buffer of"I5" words.") 3**`X(cxZv(` h wP x @`*`Pyw(/"WRITF error"I6" on file "3A2)::`ca(g('҉(' ҁk$}& (Kwv:`G`v((P (`NqFile length mismatch on read<<`a$Ą 4X`v(&([6`((n_x(`<22`[(n`pk$}`(`(`p` h  2 `DW@` `GB("Verify "A2) 11`]?Z`("o4x4Z`x(%` h P x @`1`P}(/"EAPOS error"I6" on file "3A2)<<`a!(s%`(6`@ px$4((E:(?(D<55`^7B6(H {'M {{U6 (KZwv`v(`vp5<<``s`p`pCf"(`p(q(q`pwx4x(` h $<`IHP x @``Pv(/"READF error"I6" on file "3A2)11`[[i(`@p{&hH @(` h $`1$$`Z(/"Compare error - data or tape length in verify.") $<<`^%p ((((6((`@p`@p`@p`<55`^.j(hg{"}(' {{(O`((& (Kwv5`O `v(`(`p(`RQEnd of reel. Please mount next tape.$$`Uy 4(` h &P`$%%`[4("Ready with next tape? (YES, or NO to terminate) _") %<<`a& zy4 y(((np`p`p`('_&6x<..`Wn%px`(/[-(np`(U_;x4.--`Y p<(x_Dx(x` h 2R  2x`-..`cP(/"Unable to replace "3A2", FMP error"I6/"Old file remains on disk.") .<<`aU_\xP(`(ne` h &&Pt B  x`<`Av11`e&(/"Unable to purge "3A2,2(":"3A2)", FMP error"I3," - READR terminating.") 133`\w(x((n` h K  x`3$$`Z3K(/"Unable to rename scratch file '"3A2"'. Error"I6) $%%`UR_`p(K&wv` h $e wP v`%`Qe(/"Tape error, ABREG = "2(K6"B "))`H.["(n`S # ASCFR 92068-16054 REV.2101 810212 @ASCFRh.EIO..IIO..DTA..ENTR.GOTO.EXITCODE ASCHK`Aa <<`cg"@pp`@h`p@(# 1Xp`p$<<N`<`Q;4r>hI0ʀ` `D1(I6,I6) `R;LPh[` `EN(4X,A2,I6) `R+^(Mbh m` `EQ (I6,4X,A2) `Rfp(Mth` `G(4X,A2,4X,A2) `B(M`B`  REWWT |92068-16054 REV.2226 820407 @=REWWT".EIO..IIO..DTA.EXEC .ENTR.EXITABREGIFBRK<<`d B p`z p1y&(Y`xp8w (Y`u@pn@&vnD <;;`cODZ`(J`"Qtq$sqrT"(9`{p(H]!hpo0h;`Ag `C$h`o ""`Yo(/"Error on EXEC call to tape. ABREG = "2(K6"B "))" `Ck`{p(H `Lp  A ?pp NTAPE U92068-16054 REV.2101 810212 @NTAPE  9EXEC .ENTR ;;`bpL&ڀ(H`Tp`Sh6Rp`QP(#(%` `M;::`^v&p`PPڐ(/(#`OАp`NP X pI`MPpK`0KI: `DHDP(F(#p `A(H(#`I L ?LL MODBL 492068-16054 REV.2101 810212 @MODBL .ENTRIFIX DDI DMP DSB ;;`h? BPp2Ҁp$2$22$2`h  ; `DU.p` .. JTRAL =92068-16054 REV.2101 801216 @(JTRAL  .ENTRMIN0  <<`aFBZp;@p:Zpp`Zp`@:P<hH: (/<''`T8$`pZ(p`X`p8$68p(-'`A< << YESNO 92068-16054 REV.2101 810212 @;YESNON.ENTR`BBNY66`Z,#p`p`P((`p`P(Z((p(_6 SHOW z92068-16054 REV.2101 810212 @SHOW ..ENTRREIO MIN0 SMOVESPUT SGET `A`m,<<`b)Z@pq@ pp p &`P((`p ( <`A(*(X `ECommand: ;;`c9+2ty$Z t@po< o& v @@vpoF &ox` @spoOw;66`a}N6opoVu$ o pob$o t` @rpomu "o(W6`Hr __ rr UPSHF <92068-16054 REV.2101 810212 @.UPSHFnv.ENTR.CPM SPUT SGET <<`dvB@p8(p ;(p7:P("7(.<""`Q^&`9p7.$Ѐ7`p(("`Cb69za99 ERFMP 92068-16054 REV.2101 810305 @ERFMPz .ENTR.GOTOREIO  `H_++`YxBxx" pw`w@ y(`wpw@(+`QHHelp not available for this error.""`Xhx0x$X z$w$"`JDuplicate file name.`Nx0x$P (`P#Cartridge not found or no room. `Nx#0x$P (`I3Illegal file name.`N5ńx30x$P (`S<Illegal type 0 file or file size = 0. `Ngӄx<0x$P (`OOIllegal access to system disc.`NᄒxO0x$P (`Ju^Cartridge not found.`Nx^0x$P (`O0hNot enough room on cartridge. `Nxh0 x$P (`K    "COMM3 92068-16054 REV.2101 820421 @COMM3  |COMM2 92068-16054 REV.2101 820421 @COMM2  xCOMM1 92068-16054 REV.2101 820421 @COMM1 .<<`^z9Zp(g(?(R`v@pr&Fr@pQ6s(d`u@prY<))`T W4Pr@pds`@pj#)`GYk6pt%DVC12::RTE_6:5:20:60 644 0 0 12000 5310706771 33451 %DVC12::RTE_6:5:20:60 $Ä<%DVC12 +#+#+# 9(rFST "" iDVC12 92068-16110 REV.5010 <880818.1020>" @p6CC12 JIC12 O$UPIO.CBX .CXA .CXB .DIV .LBT .XBX <<`]Z Pz(P{(`y (ZZ x (6<<<`[(\P(*`|(`(ph(2(6Hh< `C?8(= ;;`[*;`(pZ(h(hP(PP~(SP|(WP}(W(Yp(h|(;<<`[V(Y`(hp( `|(`(p (o`|(< `E'9qP(e  ::`cv8JJ*+01?0P`pZ;( P5(P6(P7(:<<`[);P8(P()P9(P:((`Z(0(PI(`@H(Ԡ@1< `DdP(@z( ;;`[@z( yZ(@/(@z(P(({@1 @4|(Z`A(p0z  z;<<`\Ӷ`. (Zڨ`0pp(2@pp" p#`2< `D !@p ;;`Zp& 0@p'`=p`0p<(`> @zp-(D;<<`[e p`Gp\ `C(3Py@0PzP{vppE @`20B< `C((`F ;;`gkk+`?( 8@@@ @0(b;<<`^6RZr``.J` @ʨJ((kr(e` < `C[p(t ;;`[\sZ (pk2P(P1@xZ.(4 |;;;`^~,Zhh h(R%8||  P2; `Eý' <<`ZcPP( X( xp0p pp0@pѶppp0p̶p pp1p_ 8<;;`Z˶p@p0=?Z\(8((ٶ`0.h ; `D,h <<`gM鶊`Pp`88נ@x ${X[]<<<`l$fnqsw$((00)00B$:MJ$*2"$Uh,<`B <C<<`[{>ڨ8(9888hh RJhôZOCh HHzPy(v<<<`]) Y(_Pz(ڨOHz2pZ2@p2P`ڠhP O< `CS vHI <<`\fyHp`P(XOpH.h`X`pp<;;`\>j(HzGZ1(`. Z ; `D*C(OH{ <<`_P( Z(hP O`=` (̅r<<<`^?`8(`(ڇ8(۸(0ԶX00r(< `DȨ ;;`^6p `9`;Z((p`:r`څHH88 ;::`^>(`  @ځJ@1Zhö`<%`rHH: `Df2P8P8(/ ;;`]£6,ZxhâxpJhhxh=hh hèJ;;;`\Shh h R(m (j@5(m6(e0?; `DUop <<`['s@1`hZHp`0pZ(R(%`(8(](<<<`[q(8(](%(]%`0p6(R(%8(`p\< `Dp <<`a3H`Z((B ﲈ@~ ` @~H~ <<<`\PhGP \Z`(`|(`<|(20B|(< `C-궀`-|( ;;`m/ d0U0V1R1K0L1L0M0P0F0G0S0D1S1E0K0E &a+000R;<<`ny&k000S&l000Vć*b000Wć&l000W&l000D&a00< `EiH0Lz <<`nKMć&p000XE a d b@d@p <`Hd{{{CH STA TEMP0 AND SET AS SOURCE ADDRESS IN PACK LOOP.  LDA MKPTO GET WORD ADDRESS OF DEST OF POSSIBLE MATCH CLE,ELA MAKE IT BYTE ADD%DVD12::RTE_6:5:20:60 644 0 0 12000 5310706772 33533 %DVD12::RTE_6:5:20:60 $Ø<%DVD12 +#+#+# 9(FST "" sDVD12 92068-16129 REV.5010 <880818.1020>" @p8CD12 JID12 O$UPIO.CBX .CXA .CXB .DIV .LBT .XBX <<`]Z Pz(P{(`y (ZZ x (6<<<`[(\P(*`|(`(ph(2(6Hh< `C?8(= ;;`[*;`(pZ(h(hP(PP~(SP|(WP}(W(Yp(h|(;<<`[V(Y`(hp( `|(`(p (o`|(< `E'9qP(e  ::`cv8JJ*+01?0P`pZ;( P5(P6(P7(:<<`[);P8(P()P9(P:((`Z(0(PI(`@H(Ԡ@1< `DdP(@z( ;;`[@z( yZ(@/(@z(P{@1 @4|(Z`A(p0z  z;<<`\Ӷ`. (Zڨ`0pp(2@pp" p#`2< `D !@p ;;`Zp& 0@p'`=p`0p<(`> @zp-(D;<<`[e p`Gp\ `C(3Py@0PzP{vppE @`20B< `C((`F ;;`gkk+`?( 8@@@ @0(b;<<`^6RZr``.J` @ʨJ((kr(e` < `C[p(t ;;`[\sZ (pk2P(P1@xZ.(4 |;;;`^~,Zhh h(R%8||  P2; `Eý' <<`ZcPP( X( xp0p pp0@pѶppp0p̶p pp1p_ 8<;;`Z˶p@p0=?Z\(8((ٶ`0.h ; `D,h <<`gM鶊`Pp`88נ@x ${X[]<<<`l$fnqsw$((00)00B$:MJ$*2"$Uh,<`B <C<<`[{>ڨ8(9888hh RJhôZOCh HHzPy(v<<<`]) Y(_Pz(ڨOHz2pZ2@p2P`ڠhP O< `CS vHI <<`\fyHp`P(XOpH.h`X`pp<;;`\>j(HzGZ1(`. Z ; `D*C(OH{ <<`_P( Z(hP O`=` (̅r<<<`^?`8(`(ڇ8(۸(0ԶX00r(< `DȨ ;;`^6p `9`;Z((p`:r`څHH88 ;::`^>(`  @ځJ@1Zhö`<%`rHH: `Df2P8P8(/ ;;`]£6,ZxhâxpJhhxh=hh hèJ;;;`\Shh h R(m (j@5(m6(e0?; `DUop <<`['s@1`hZHp`0pZ(R(%`(8(](<<<`[q(8(](%(]%`0p6(R(%8(`p\< `Dp <<`a3H`Z((B ﲈ@~ ` @~H~ <<<`\PhGP \Z`(`|(`<|(20B|(< `C-궀`-|( ;;`m/ d0U0V1R1K0L1L0M0P0F0G0S0D1S1E0K0E &a+000R;<<`ny&k000S&l000Vć*b000Wć&l000W&l000D&a00< `EiH0Lz <<`nKMć&p000XE a d b@d@p <`Hd{{{***************** * XWBFR MOVE ANY CHARS BEFORE WINDOW IN SBUFF TO TBUFF * XWBFR NOP  CLA CLEAR  STA TBUFF,I OUTPUT$ED1K6::RTE_6:5:78:128 644 0 0 47000 5310706773 34536 $ED1K6::RTE_6:5:78:128 $NìN$ED1K6 +#+#+#N&(FST ((J99XȂ 8ED1K6 92074-12005 REV.6000 <920916.0016>/SRC_92074/R6000/&E1K69@k::X~.:OPENH 92074-1X033 REV.5000 <920914.1613>/SRC_92074/R6000/&NEWFI : VOPENH   H.ENTR OPENS HLPN2 HLPNM __55@p7 `9h8 0(2 1p`_ $8/ @::XqFREAD 92074-1X033 REV.5000 <920914.1613>/SRC_92074/R6000/&NEWFI :DT 9EDFLT ELCOM DBLVL AFDKCM  ?FREAD  [.DAD.CPMBCOPY FMPREAD FDKLM READS d44p`9(`p` h p`px7p (`p`P(k`p`p P (J` p 0(` ~~4j811(`  5@p`@(U`P(J(`@ (Q`p `h (`@p` 5 @p`@pi~i33`pmp ` (r(`6p` hpx p` (`P(`p (h'xhJ@> >`@@p@`(`pMM(#(`@p p`p(E`p `p` (` p`M l @œ::XFWRIT 92074-1X033 REV.5000 <920914.1613>/SRC_92074/R6000/&NEWFI :DT 9EDFLT ELCOM DBLVL AFDKCM  MFWRIT   ))@.ENTR BCOPY FDKWR WRITS FMPALLOWEXTENTS FMPNOEXTENTS)^'77A`( `ʨp (p ` (8`9(7`P(( (``@@Ɋp` p.1p ` p7(`=u:66(S`(S  P(C (Sh 5@p`hpň0`  p `@ (Y(\`ƨp (`9(m`  pxk7 p (` 5[[]p"" p`@<(x`p<` p `@p` @(`@p`(`h [uuU// `@ p(@p`@p`((`p`h `h `p` p`ui  @M ::XVnFINIT 92074-1X033 REV.5000 <920914.1613>/SRC_92074/R6000/&NEWFI : A/AFDKCM EFINIT   **>.ENTR WRCLR FDKLM FMPFORCEDCB FMPINFO COPYS STRDSC*~~66Aik77p p<` pfxg"f g=p p'x p p p`m@ p`l@ p~nnb7//`h pfk0fhj H 0p9`9(P` pfPfp@h>X`p@p` pfbf` p`n~h@@Wnv.::X'6FDKWR 92074-1X033 REV.5000 <920914.1613>/SRC_92074/R6000/&NEWFI :DT9EDFLT ELCOM DBLVL AFDKCM  GFDKWR   ;A.DAD.ENTR FDKLM FMPWRITErr:00A` hp2`6p4x32 34h'xh@>>` @@p@` (,`5p(,+p `p` p`r a5 @x::X0FDKLM 92074-1X033 REV.5000 <920914.1613>/SRC_92074/R6000/&NEWFI : A-AFDKCM 9FDKLM  .CPMFMPBLOCKSLEFT FMPSETPOSITIONnn߅++pp`@(` p,,>.((*` p,,x@@(("`p($`@p` 'p`@p`n . @[z::X};RCREAS 92074-1X033 REV.5000 <920914.1613>/SRC_92074/R6000/&NEWFI : A@RNAME1 OCREAS  //G.ENTR NL_SPRINT OPENS BUILDNAME TYCHK PARSENAME DECIMALTOINT/~~vq??`QpJ@pIp`(/`/(!`Pp/#p`(F`/(,p0/`OpH:LHp`(F~SA(FFN`AYKWC@e::XOPENS 92074-1X033 REV.5000 <920914.1613>/SRC_92074/R6000/&NEWFI : A?RNAME1 dOPENS  aaD.ENTR .SBST .SST.INDX .NFEX FMPSETIOOPTIONS FMPIOOPTIONSFMPDEVICE CLOSS NL_SPRINT TYCHK BUILDNAME PARSENAME FMPFILENAME FMPOPEN aJJ` p@ p p`p`@ 88( p3 p/`PhX 0(bDp`(K(bD]RAAH pa p/`(j p`( q`p. v (~ ~ǀ`Ɛ ( p`( ŀ  ==?  `Ā ( ( (`0p (`=%%R W l n3%@9$W::XRMVPW 92074-1X033 REV.6000 <920914.1613>/SRC_92074/R6000/&NEWFI : A?RNAME1 MRMVPW  ;; .ENTR .CPM.SBST .SCO .SST.INDX .SBT.NFEX BUILDNAME TRIMLEN PARSENAME ;~~YCC  p.p`A((@p`A()p`(&(`p(1`pP(/(1`pA(6(EA (B(E(E@p~ttGCC(J([D (V(W(W(\`p(E((a(`pA(i(tA (w`h AA `p(\ t%%:f/ ] [ > @0d   %@GWf::X!*TYCHK 92074-1X033 REV.5000 <920914.1613>/SRC_92074/R6000/&NEWFI :DBRNAME1 9EDFLT ELCOM DBLVL  LTYCHK  /@NL_PRINT  SS""pP/( ( ((`)P/((((`(P/(((p``'0/p"&`%p(S% 0@::X?JCLOSS 92074-1X033 REV.5000 <920914.1613>/SRC_92074/R6000/&NEWFI :DTAFDKCM 9EDFLT ELCOM DBLVL  UCLOSS   ++=4.DAD.DDE.ENTR NL_SPRINT FMPCLOSEFMPSETDCBINFO EOFLN +w BB@pG (,h@@J :*:<p0p`IP(5(7p`(;(C(C CH` H @=\n::X/GTCLOS 92074-1X033 REV.5000 <920914.1613>/SRC_92074/R6000/&NEWFI :Cu 9EDFLT ELCOM DBLVL  I TCLOS   44Oa.DAD.DDI.ENTR NL_SPRINT FMPCLOSEFMPSETEOF FMPTRUNCATE FMPPOSITION 4ii;; (1`(@DD'`(@.`(@5`(@ (@@F` i UD @0XO::X?FPOSTS 92074-1X033 REV.5000 <920914.1613>/SRC_92074/R6000/&NEWFI :DTAFDKCM 9EDFLT ELCOM DBLVL  YPOSTS   ++A .DAD.DDE.ENTR NL_SPRINT FMPPOST FMPSETDCBINFO EOFLN +yyw??@pD (,h@@J :*:<p0p`(5(@`(9(@(@ @E`y E @c<::XREADS 92074-1X033 REV.5000 <920914.1613>/SRC_92074/R6000/&NEWFI : >READS   .ENTR FMPREAD ##N-`#@pb"::X7;WRITS 92074-1X033 REV.5000 <920914.1613>/SRC_92074/R6000/&NEWFI : A/AFDKCM \WRITS   .ENTR MOD FMPWRITEFMPDEVICE ``((44A@p7(,`=(,:(,@@7   @H7p590852p`` 8  @ |::X RWNDS 92074-1X033 REV.5000 <920914.1613>/SRC_92074/R6000/&NEWFI : IRWNDS   *.ENTR FMPREWIND ;;q`@pP((`@h p`@h`;  @::XPURGS 92074-1X033 REV.5000 <920914.1613>/SRC_92074/R6000/&NEWFI : IPURGS   ˲.ENTR FMPER FMPPURGE'' O p`(`'@FeO::X| FEMSG 92074-1X033 REV.5000 <920914.1613>/SRC_92074/R6000/&NEWFI :DB9EDFLT ELCOM DBLVL RNAME1  DFEMSG  !!+.ENTR PTFME PRTTB STRNG MSG FMPERROR!99AC `w 9  @ @مE99X:FMSG92074-1X033 REV.5000 <920914.1613>/SRC_92074/R6000/&NEWFI 9Cu9EDFLT ELCOM DBLVL  |FMSG .ENTR PRTTB STRNG MSG --ޒ`w  -  @p&099X*2CLEN92074-1X033 REV.5000 <920914.1613>/SRC_92074/R6000/&NEWFI 9 )CLEN  u.ENTR .SBST .SCO.NFEX .IDLP HH?&&A,`,p`ph10($p*(,D(.((&(&@p8*(p`Hk+ V@::XiwPGRUN 92074-1X033 REV.5000 <920914.1613>/SRC_92074/R6000/&NEWFI :Cu9EDFLT ELCOM DBLVL  bPGRUN  ((~R.ENTR .CPM.SST.NFEX FMPRUNPROGRAM STRDSCICAPS (=II@pgAiim$ p ` Apfv f(bp `o@gu0tp `sP hrX (G`qp ` pfQ fAkmX\kpikH(d`pp`rh ., @}J ::XuSC.CR 92074-1X033 REV.5000 <920914.1613>/SRC_92074/R6000/&NEWFI :DB RNAME1 9EDFLT ELCOM DBLVL  DSC.CR   CC &.ENTR .SBST .SCO.SST .LBT .NFEX .MBTBUILDNAME PARSENAME UPC STRDSCMOVEB FSIZE C~~AAA`xpp ` (&p`p`xp/  4 7hƄ`Ah`J H A` 0p  (P(U(Uh~QJJ`A ([(`(`h`AhH P(p `p D D D  H hH P((A A   8 8(h(hȄ`h P((h00o`` .ph P(A ($055F@ P@@P@l -5@i<<XPARSENAME 92074-1X033 REV.5000 <920914.1613>/SRC_92074/R6000/&NEWFI < A?RNAME1 PPARSENAME .ENTR FMPPARSEPATH))-A./01) @0d0V 0P0@ @0@/sN3<<X2BUILDNAME 92074-1X033 REV.5000 <920914.1613>/SRC_92074/R6000/&NEWFI < A?RNAME1 8BUILDNAME  &.ENTR FMPBUILDNAMEFMPPARSENAMEFMPBUILDPATH XX((A.*,0./01(.,.*/01(&.,.*/01(X( @0d0@ 0P@0 0V@;;X5/FDKCM/ 92074-1X033 REV.5000 <920914.1613>/SRC_92074/R6000/&NEWFI ; A-AFDKCM @+Jb77XϪPGSCRN 92074-1X027 REV.5000 <870504.1716>&E1K6A::SRC_92074 7 JGSCRN ($SCRN .ENTR .XLAt@\{77XPFDCB92074-1X027 REV.5000 <870504.1716> &E1K6A::SRC_92074 7 j FDCB  @U77XےPILNAM 92074-1X027 REV.5000 <870504.1716>&E1K6A::SRC_92074 7 2ILNAM P`q@ 77XݩPXTIME 92074-1X027 REV.5000 <870504.1716>&E1K6A::SRC_92074 7 FXTIME $TIME .XLA.XLBp@377XĢPFRCLD 92074-1X027 REV.5000 <870504.1716>&E1K6A::SRC_92074 7 CFRCLD FMPOPEN F8 @6rU277XvCLONE 92074-1X028 REV.5000 <870504.1716>&E1K6F::SRC_92074 7 _ CLONE %%".ENTR IXGET IDSGA CLOSE IDRPL OPENIDDUP %~~-GGA@p@p@p(('(J0 `h 0((CG~~~I88(`(m`P(Q(S``P(W(Y``P(](_``P(c(e``P(i(k` r`py(~`(l`~a (l`(l`(l @T77XWRCLR 92074-1X028 REV.5000 <870504.1716>&E1K6F::SRC_92074 7 KWRCLR  .ENTR ''(HA@p`@hHp'  @j*77X&SCRTS 92074-1X028 REV.5000 <870504.1716>&E1K6F::SRC_92074 7 A NAME1 gSCRTS  __.ENTR .SCO.SST.LBT.SBT.NFEX FMPER FMPFILENAME FMPOPEN FMPBUILDNAMEGSCRN INTTODECIMAL FMPPARSENAME CNUMD .XLAPNAME $$MC_}}@@Ax@pA +p ` @ph@(;` @pH`h` p @(-`%p ` @h Hp0$` p @(C`h}~~qTBB p ` ([(i`# p  b `"p`!0pp ` @ ` p @(kJ   D (((  ~~~łJJ(  pp  (h(` PA((Ɗp  p~++p `((`(+MM..CRW EDITSCRATCH P P@ P   +*/00M@J 77X SCSIZ 92074-1X028 REV.5000 <870504.1716>&E1K6F::SRC_92074 7 6SCSIZ  p` p`@&>D~~ BUILDNAME 87CLEN.BCLONE ?CLOSS CREAS FDCB;oFDKCM :.FDKLM +FDKWR ":FEMSG +)FINIT  : FMSG-FRCLD >FREAD :FWRIT A~~~gKGSCRN :}ILNAM <FOPENH IOPENS U PARSENAME 6PGRUN 0 POSTS #bPURGS *READS &RMVPW }RWNDS (qSC.CR 2_SCRTS C?SCSIZ HtTCLOS !J~~~JTYCHK 3WRCLR B3WRITS ' XTIME =$U PARSENAME 6PGRUN 0 POSTS #bPURGS *READS &RMVPW }RWNDS (qSC.CR 2_SCRTS C?SCSIZ HtTCLOS !J~ ; restore the quiet mode printing  sta qflag ; for the final messages.  JSB ERCLS GO CLOSE ER FILE  JSB LCLOS CLOSE OPEN LIST FILE NlsPrint END OF EDIT MESSAGE  DEF EXEC6 NlsT%EDIT::RTE_6:5:571:128 644 0 0 435400 5310706774 34532 %EDIT::RTE_6:5:571:128 $;;%EDIT +#+#+#;(FST ((::X ȁ 8EDITH 92074-12008 REV.6000 <920915.0017>/SRC_92074/R6000/&EDITH : jEDITREVMS  6000 <920915.0017>@ N99X 3ȁ- 8EDIT92074-1X001 REV.6000 <920914.1542>/SRC_92074/R6000/&EDIT!:9""D?DBLVL ELCOM 9EDFLT iNLLANGNUMBER"ʼnQ.EOF1  ABORT  ABPRG tALLFG "ANCCH kASCII ASK vATLOG  {BLT  JCBYTE uCD1ST CDVR5 %COMD2 $COMND xCOND_PRTCSTRP %CTFLG CVX ||DCBSV DEC  9DIFLG DISPL DVR05 DVR07 ECCNT ECH ECHLNEDITENDCK EOFLN PEOFPR ERCLN 8ERFLG .ERPRN ERR ERRTN |#ESCCH  KEXCER  EXEC6 ;EXFLG 4EXITC  FILLC wFLLER  FLST FMPER GETL2  GETNM HL2N0 HLPN0 HLPN2 HLPNM $INDEF INITT INPNM ILJOINF KKEY KILLL1ERR eL1FLG fL1GIV gL1LIN iL1OFF jL1PAT hL1SAV 'L1TYP L2ERR kL2FLG lL2LIN mL2OFF nL2PAT oL2STR  bLBYTE LCASE 'LCLOF dLETTR LN<LOPNF LSNAM qLSPAN  LST  LSTALSTFLSTNM LSTSB  LSTSZ LLTABS  MBT MESSAGE_ERROR  MFMPE +MLFLG ~~ %MOVBE MOVEB $MOVLP  MSG 5NAME!NFNDF NL.PRT(NLFLG CNLSFG NL_MOD_TABLENL_PRINTNL_SPRINT 'NODE0 (NODE1 !NODE3 -NOPRN ZNUMIN ~p0NWFLG KOFFSP 1OKFLG  6OUTBK  OUTCHAR uOUTCR OUTTY :PASS1 PATCH PBKE2PRGNM hPRINT PRMTB PRTER PRTNM pPRTTB PSL1PUNCT +FQSFLG sQUFLG IR1FLG RCCNT RCH !RCOVM BRDCBF /REPQF uREVFG AROFLG cROLL1 XROLLR RPLSB @RTNFG  nSBYTE SCCNT 9SCFLG SCH }}rSDF1SDF2 SETMS SETOK SETTY SLASH HSMCNT GSMOFF *SPFLG  SPURG SRCN0 SRCNM  SRTN STRNG MSWPET !TBFIL *THISL TRL2}vvRk*TRN KTRNCT TTYNO &TYOPN ?UNCON JURFLG WDF1WDF2 WNDF1  WNDF2 WRKNM  WRTLN WUDF1 WUDF2 YESNO ZDEC>ZRMVF v}}fn.CBT`.DIVl.DLDk.DST.ENTP .ENTR \.LBT].MBTo.MVW[.SBTADDSK AMDEL ZCMDSK _CMNDSTACKUNMARK CNUMO AED%#. ?ED%.. *ED%?. :ED%?? ED%A. ED%AK ED%AP ED%AS ,ED%B. -ED%BC }(.ED%BM 6ED%BS CED%C. "ED%CL BED%CO 0ED%D. ED%EC ED%ER #ED%EX /ED%F. ED%FC $ED%FE ED%FI YED%FL 5ED%FS 1ED%G. DED%HL EED%I. %ED%IN &ED%IT FED%J. GED%KB HED%KM IED%LE JED%LI e'ED%LP ED%M. KED%MO (ED%NL LED%O. MED%P. NED%Q. OED%R. >ED%RC +ED%RU 9ED%RW SED%S. 7ED%S1 8ED%S2 PED%SC <ED%SE ;ED%SH XED%SL QED%SR RED%SZ =ED%T. )ED%TC TED%TI UED%TK ED%TR 2ED%U. VED%UN WED%UY ED%WC !ED%WR 3ED%X. 4ED%Y. @ED%_. cEDIT_MSGM dEDIT_MSG_MOD0 eEDIT_MSG_MOD1 fEDIT_MSG_MOD2 gEDIT_MSG_MOD3 hEDIT_MSG_MOD4 EXEC FNDMK FRCLD IFBRK LIMEM jNL$SETPARAMSEE aNLREADREL bNLREADRELSTRpPRTNRDREC ^READS REIOROLLN RPOST RSBUF SEGLD TRUNEND mWRITS EM2`` Mq`` ZZ"EDIT::0 EDIT.HLP::SYSTEM @"@b @@ @"@b @@ ^\@}e+ j888L(ApNWm`m Apn`n  m@(%8Yv>>"vh p  {H'{0 x(`W(p` (`@( `(pTp, 77pUpSp`(`(A`%( `'`B(` {`p#`)p0`p `p!`p*`%pMp*pIppJp 9pBp)p1p=pepfpipjpkpmpn}}v99poppsptpup>p;p?p@pApCp(p`0D0Ep`hF p`0-0/p"p'p%H)(hHX`(A$'*+,-./>?L^`}6+FF,/ {n  .0"?_.5d@ #. "A??:?. *A/ A ASBK $GBC(d- BM(d.B.,CO 8dBC. cCD.$T0 ECERqJJ FI FCFL (\YF.T/ G.(T1HE *HL[D H. *I.0cEJ cFK.(| LEcI LI"JLN|LU|L.|MO (dKM.0B~~-DDN {gO.0cLP. cMQ cNRU +R. cO SC0cP S 8dSSE <SH;SZ[RTI [TTK$U TRT.=UN "VUY0cWU.(T~@@$$2WC  WR!WN|qWU|pW |sX.(T3 Y. S4(5@$`(>@(88op`0&F (5`H(Q`v(H`#HP($p$P(GP(GP"(GP(HP(&P(JP(JP(5P#(8P(.P(;k(X(2(np׀0$p%h+ӥ`::(ȈP(rP%(u H(`p)`(Z0(g x(P(((`@(p(((`W(` ((Gpp99(Cp'(-x&8(`&P((8)({`k((`f((Z((@`pwpp*`5u((¨ `w wH` u`@((@p??H`u8(ӈ`"u`w pFp(p`p%`@pp(?g::`]k((`(H(p](pp`hk `pZphgHl `@x^`p(hxT ()`C(!`@ p(pSpU`p]nn(55(@hC (@H  x(@`M 0e(@h@AKAK_ `CxT`@(L` p ([`*h (U U]K`C(qH((nOO)^$$pC耄^(^q(P `(ʈ(p`*p= pT`p( x=xTXOsa`g@l*ii00 ``1`èp( p`p(P(Hp`p(`P5(`pp1H`@o(iUU[##hHxp㨈op`p∈M`p㈈(P(ΈP((݈8M`o`p8㈀((UBBYESP(P(8興興P(P(A(EDITXXPp@Ap  ` `(x( A( `(> pSLLN&##X xK*pI`4pJ58K00,(H`+(F`T(F`L@JpJ(H8I(3*LaaM'' `whopoxw`xhpppxx xwM(b(bk( Z(hdk8ddpt@k@8kka[[/u'' wXuHHxHx[`[wu`q 885@r!Ȁ`o88 5@p!Ȩ[??`m 885@n!Ȁp@(@(` `A((`ohx (hp Hp\P(P(ވ`P(!<<8(`p(`p@h ]`@p` /_pw  p(qpvoppwP(`&(P`A( I:: K`(`pupp` (>A^,jn@(qh (((;mp*`m p* m(Z (Z`(D((S`-(SPn vm(qVV!R$$(\ Y n(qApvm` nmopw8u(lp*`o p*`v o(V~~!w99Hp(P(php6ooHH[(zhX#(X(wo Ho(~p(`(`H&8 `4` P8_`&(` ~@K< d 0'L  cdefghg--p8` h(` hpÈxx(-&&UAAjˈ(ʂH ̈x (xh&wwL??hxˇ̇h (wphInternal message error. P((p`!((`"p`!((p!`H9((w~~#88p((`P(#`f(po(K`f((f (K`H(5`(6(pd( D((K`(Kp(UP(WP([P"([(^ (^~RRx[&& hf (npi`pgpepf(~`p"(:hk (h (pm`plpk`!p#(:x({Rgg{//he (hj (7(`gphhip`$P(`(hH (`h'X ʄ(`pgh' (X`h( p(g==@ ` `hk (ho`g pl`nH(8(`lhmhgH ( xqplhp X`gh(H(8 p@ (@ (%%U@ (@(@ (@(8`%44- `e(  `k(  x )x *x x ( 8k( 7  :4 # Ak )` 9( "! (+ (Al ) : 33 +k ( 4k( 3( l ) ( 4  : 8 : :8 : :3GG K%%p Ix J Q T` K@ h Ao ` ψp ` p   b p h H Ap C m C th wG U s fs w 8 8 ( ^A }  K CooUG 44 `   x p `+H( X ` ( ` `*( `(( ` h=X` p 8 8 @ p x h  `* `  π > oddj 11` p  ~ ` ( h x `h ( p A   (  Ap m k  p 쪈` p   p'vp, d~~/  EE  p $    h  6   8  ( H  HH\P(  @   6 A  u  "` " #@hp ]$ $~**ۯ 2op % 6p C x Dh D\x Du8 C( < 6*-- KA E` E F@h G A HHnI( \( ^ J J J-F cA `h `2H aH\ b o A kh k2 lH m[ naa} |66A x` xh yAoz {A ` h A @ H] px $  ((pWp @(A(# Abort a<<   h `  6 `w p4pA 4  ab<@|N::X:ȁ3 8BCOPY 92074-1X001 REV.5000 <920914.1542>/SRC_92074/R6000/&EDIT!:: 9BCOPY e.MVW--`x x p`-  (@b "::X$ȁ4 8GETEX 92074-1X001 REV.5000 <920914.1542>/SRC_92074/R6000/&EDIT!:: 2GETEX .ENTR FDCBRFLG$ RWND$ /G HHp@]::XFȁ4 8RWDSK 92074-1X001 REV.5000 <920914.1542>/SRC_92074/R6000/&EDIT!:: SRWDSK N.ENTR D$XFR & p Y @ ::X`$ ADDSK 92074-1X002 REV.5010 <891117.1125>/SRC_92074/R5020/&EDITU : CADDSK  .ENTR CMNDSTACKPUSH q  @ŋ::XbI5AMDEL 92074-1X002 REV.5020 <891117.1125>/SRC_92074/R5020/&EDITU :Cu9EDFLT ELCOM DBLVL  AAMDEL   .ENTR .CPMDELMK   !  q  h  h    cf  fu  s  b4 S q  l  n   P |  FP4 HP8 P  4P ..(P. CP3 uP5/  Pj  gP H p __-//pp`P(0`p`@4pA(A((/()()%@p(/`@4H( _ 4 @::Xl?"AMINS 92074-1X002 REV.5000 <891117.1125>/SRC_92074/R5020/&EDITU :Cu9EDFLT ELCOM DBLVL  IAMINS  .T.ENTR .CPM ??sp`P(`p`@!p((`@!h( ? ! @ߢ;;Xa/CMDSK/ 92074-1X002 REV.5010 <891117.1125>/SRC_92074/R5020/&EDITU ; ECMDSK IC Commands: Not Found: H  @8LW ::Xj@,DELMK 92074-1X002 REV.5000 <891117.1125>/SRC_92074/R5020/&EDITU :Cu9EDFLT ELCOM DBLVL  >DELMK  F0.ENTR BLT RR*&&Ap @p@p`@+H+p(x)()`@*H*p(x)&()RC*@~r::Xd?"FNDMK 92074-1X002 REV.5000 <891117.1125>/SRC_92074/R5020/&EDITU :Cu9EDFLT ELCOM DBLVL  IFNDMK   .ENTR @@¯pP(@!((@ p(( `@9 @>::XuGETDK 92074-1X002 REV.5000 <891117.1125>/SRC_92074/R5020/&EDITU :Cu9EDFLT ELCOM DBLVL  @ GETDK  ߅.ENTR .CPMABORT GETEX ABPRG  c  == `(M`@lp p`@lp`@lphp`@hp hp`@p>l (BB`@lp `@l7H88pp( (R(}p`p\l (t`W(k` p ` (jj(s`pW`p` p`p(|`@lp`@lp(`pGG`@p`A@p((`p`A@p((`p` `  Gk @@39::XxzmGETFM 92074-1X002 REV.5010 <891117.1125>/SRC_92074/R5020/&EDITU :Cu9EDFLT ELCOM DBLVL  ;GETFM  p.ENTR .GOTO .CPMABORT RWBLK RWNOD AA`kpp`@dp`jApbb]!/]`(<`@fp(.(.``p(/` p@((<<i@e@d(SB((BjE@cpbLb`hpbSbl@dh@c `g(\Bc -A#7 @::Xn/GETND 92074-1X002 REV.5000 <891117.1125>/SRC_92074/R5020/&EDITU :Cu9EDFLT ELCOM DBLVL  =GETND  RWNOD NEWND ??_p`V( p(`Vp`NpV`?@Շ::XnoSMKNOD 92074-1X002 REV.5000 <891117.1125>/SRC_92074/R5020/&EDITU :Cu9EDFLT ELCOM DBLVL  PMKNOD  Q.ENTR GETFM SETFM RWNOD GETND ~~ȗ88p`Mp`(``pM"&`pN,0`pMpN@RpR~77?:pO?EI`Q7 Q @::XxL7NEWND 92074-1X002 REV.5000 <891117.1125>/SRC_92074/R5020/&EDITU :Cu9EDFLT ELCOM DBLVL  ANEWND  FE.CPMGETDK  jj9//p`p`@h p((+`@@p`h p5x6'56`p( /PQ`p`p`j@۞::XH1NPRES 92074-1X002 REV.5000 <891117.1125>/SRC_92074/R5020/&EDITU :Cu9EDFLT ELCOM DBLVL  FNPRES   .ENTR UUr((Ap`@.(( `@- P( ``@,@/p()`p @( `0p`U.,#A-@!::XteOUTDB 92074-1X002 REV.5000 <891117.1125>/SRC_92074/R5020/&EDITU :Cu9EDFLT ELCOM DBLVL 5OUTDB  FOUTD  O.DAD.ENTR IFBRK BCOPY MKNOD SPLIT ~~::A(` p`p(5h@P!( (""@c5p`@#hbH"H@ (>`@p<!"#`~ZZe=!!pC#` p`p`p`#@p#Q0p`a@(Y`dp`pZ 0a  @#kB+::XtvOUTUB 92074-1X002 REV.5000 <891117.1125>/SRC_92074/R5020/&EDITU :Cu 9EDFLT ELCOM DBLVL  UOUTUB  **.CPM BCOPY MKNOD SETFM GETFM NPRES UNBGN R1FLG *T22p`(  `('(`u@p(## `pp`(-`rp(0`qp`t@@533p`@@s@hH(@(HHq` hrH` p`(Zp` h (g _q`p`S(g`p`'hh`@pHq@2I99X"PACK92074-1X002 REV.5000 <891117.1125>/SRC_92074/R5020/&EDITU 9Cu9EDFLT ELCOM DBLVL  vPACK 5VTRFFp`!(`p`( (`p`p ` pq`qprF a @P::Xw|qRDREC 92074-1X002 REV.5010 <891117.1125>/SRC_92074/R5020/&EDITU : G RDREC  :: EXEC.ENTR REIO CMNDSTACKSCREEN INITT LBYTE CMNDSTACKMARKSPRMTB LN CMDSK :~~vDDA@pi@php(1`(&%o(apf/of(a(]`(]`npApf@mf(a(G(]~DDHKjPl(N(](a Xk  `pp(p` p(_Dhj/?@׃::XqLRPOST 92074-1X002 REV.5000 <891117.1125>/SRC_92074/R5020/&EDITU :Cu9EDFLT ELCOM DBLVL  NRPOST  %RWBLK RWNOD ROLLN PACK<<p`p  p`@Ep`@Gp`IPhX 0(9`(9*`@F@JpD3DK`@EpD`ID`p@?(`Hp;EA#-@[y::Xn}XRWBLK 92074-1X002 REV.5000 <891117.1125>/SRC_92074/R5020/&EDITU :Cu9EDFLT ELCOM DBLVL  QRWBLK   .ENTR .CPMRWDSK ABORT ~~99PpPJP0P(U`W@lhP`V@lhQ0 (>`Qh `Th ` p `Sh `RhM~;;!;hN`QpPGlPRp`0p`0p`;%Q @c::X{ROLLN 92074-1X002 REV.5000 <891117.1125>/SRC_92074/R5020/&EDITU :Cu9EDFLT ELCOM DBLVL  IROLLN  .ENTR .CPMTRSBFIN RWNOD PACK~~F;;Ap`(`(Ap((`p`(zJp((0(:J(4(43(`P(z9(4/SRC_92074/R5020/&EDITU :Cu 9EDFLT ELCOM DBLVL  QRSBUF  **.CPM BCOPY SBYTE OUTUB UNBGN SPLIT R1FLG URFLG *~~66p`Rp`q(` p`p(`(`( p`wp('(=`p`@@P(:`xh pNxO:~99D7NOQ`wh`P@@pN HwsN`spq`tpr9 d7P @::XsG"RTNOD 92074-1X002 REV.5000 <891117.1125>/SRC_92074/R5020/&EDITU :Cu9EDFLT ELCOM DBLVL  ORTNOD  G.ENTR NPRES RWNOD DDA `VpNpV(`@!hD '!A @˻::XsRWNOD 92074-1X002 REV.5000 <891117.1125>/SRC_92074/R5020/&EDITU :Cu9EDFLT ELCOM DBLVL  ] RWNOD  tD.ENTR ABORT RWBLK    88  ( (%`Mp`Np`Op`Pp`@R60Qp p p` @p h p`P(k`(R`@@p`pP`C77pQ`@pRK(PPp` @@p` pP` pQ`@pRd(ii`p`@ @p ({`@hUUz##(`p`hH`p@(+ (`pM`pN`pO`pP` 5pR`pQ U{t @Pow::Xv5(SBFIN 92074-1X002 REV.5000 <891117.1125>/SRC_92074/R5020/&EDITU :Cu9EDFLT ELCOM DBLVL  7SBFIN  g .ENTR RWNOD SWAPI SETFM nn%(( pp`p`@Op`p ` pq`qpr`pn@u::XQDSETFM 92074-1X002 REV.5000 <891117.1125>/SRC_92074/R5020/&EDITU :Cu9EDFLT ELCOM DBLVL  <SETFM  .ENTR }} <<`L pL`L(*pLp`@AhHAHC`@A((#`@A `p@(@B@AhL@@ H@p>>} =(( Q@A7-@|::X; SPLIT 92074-1X002 REV.5000 <891117.1125>/SRC_92074/R5020/&EDITU :Cu9EDFLT ELCOM DBLVL  BSPLIT  kBCOPY GETFM QQ|p`!( !"`@" p"`@ p"`"@p#`pQ  @::XlO&SWAPI 92074-1X002 REV.5000 <891117.1125>/SRC_92074/R5020/&EDITU :Cu9EDFLT ELCOM DBLVL  USWAPI  !!E|.ENTR SETFM RWBLK RWNOD GETFM NPRES !II$$A (`$%"I b$ @Μ88X+TR92074-1X002 REV.5010 <891117.1125>/SRC_92074/R5020/&EDITU 8Cu9EDFLT ELCOM DBLVL  V TR PP .DAD.DSBR .CPMSBFIN RTNOD RWNOD BCOPY SWAPI SETFM ABORT FOUTD IFBRK SPLIT LSTFOUTUB SCCNT P~~g 88 p `U(`T(q`q(`S(C` 5h@J `!(C` @* @@ (A` ?(i(C~~~A77CE0p`!(p`S(iPq`qP (i` 5h@!hq5h@A  ! @p@p(s` p`p` ~~~v]x22p`(`*@ @@ p ` Ap (( )`(`!( `#`#p `"p` @&h`!pp! ~11#`N p`@ pO`@ @)pR 122`(@Rp`( J`@R ((`@Op`@Rp`Np`'@Rp  `@&h `pR+00`@pO`pN  `pM `p(`( p(J ((` pq`q pr`qԷpp` ,&A@On::XtL5UNBGN 92074-1X002 REV.5000 <891117.1125>/SRC_92074/R5020/&EDITU :Cu9EDFLT ELCOM DBLVL  =UNBGN   RWNOD RTNOD BLT R1FLG ~~..pp`4p`3pp`p 2P((-`M(%`p`Mp$(`p`1pN-~.p z15IR @q::XmA#UNEND 92074-1X002 REV.5000 <891117.1125>/SRC_92074/R5020/&EDITU :Cu9EDFLT ELCOM DBLVL  DUNEND  ~SETFM RWNOD XX7 !!p`(`   `@@"pRpX " @Yw::X{1UNKIL 92074-1X002 REV.5000 <891117.1125>/SRC_92074/R5020/&EDITU :Cu9EDFLT ELCOM DBLVL  CUNKIL  R.ENTR AMINS UNBGN R1FLG 88ȟ`(  `(p`p8@ ::XCPȁ 8EDIT0 92074-1X003 REV.6000 <920914.1542>/SRC_92074/R6000/&EDIT0::CwDBLVL ELCOM 9EDFLT zz  ED%A. ED%AK .ED%AP ED%AS ED%CL  ED%EC  ED%ER 2ED%EX *ED%FC ED%FE AED%FI .ED%IN ED%LP ED%M. \ED%NL ED%TC oED%TR z11OED%WC MED%WR EDIT0 EDIT_MSG_MOD0 [FSIZE PTFME 1}}V. .DAD .DFER .DIN.DIV.DLD .DNG.DST.ENTR .LBT.MBT.MPY.MVW.OPSY .SBTADDSK PALLFG QANCCH ASCII ASK RATLOG BLANK SCD1ST CDVR5 CLOSS CMDSK CMNDSTACKINIT }~~UCOMD2 TCOMND =COND_PRTCOPYS CREAS !CSTRP VCTFLG >CVX DDCBSV "DEC WDIFLG @DISPL XDVR05 YDVR07 [ECCNT #ECH $ECHLEDIT_MSG0 %ENDCK &ERCLN \ERFLG ZERPRN ?ERR ]ESCCH 'EXCER ~}}dEXECCEXEC6 ^EXFLG _EXITC FEMSG `FILLC FINIT (FLLER FMPER FREAD FWRIT )GETFM OHL2N0 NHLPN0 MHLPN2 LHLPNM IFBRK IFTTY aINDEF INITF INITS HINPNM IJOINF bKEY *KILL}||ldL1FLG hL1GIV fL1LIN eL1OFF gL1PAT jL1SAV iL1TYP kL2FLG nL2LIN lL2OFF mL2PAT oL2STR +LCASE uLCLOF sLNLOGLU tLOPNF LSNAM rLSPAN ,LST pLSTAJLSTNM qLSTSZ cLTABS LUTRU |MESSAGE_ERROR vMLFLG {NAMEwNFNDF NL.PRTxNLFLG yNLSFG NL_PRINTNL_SPRINT ANODE1 zNOPRN -NUMIN }NWFLG ~OKFLG OPENS .OUTBK /OUTCR :OUTDB PASS1 PATCH 0PBKEPNAME POSTS |PRGNM co1PRINT PRMTB 2PRTER GPRTNM PTERR PURGS QSFLG QUFLG R1FLG RCCNT RCH RCOVM RDCBF 3READS REPQF REVFG RMPAR RMVPW ROFLG 4ROLL1 BROLLR 5RPOST RTNFG RWNDS SC.CR ~~aSCCNT SCFLG SDF1SDF2 SETOK 6SETTY SLASH SMCNT SMOFF SPFLG ESRCN0 FSRCNM SRTN7SWPET TBFIL TCLOS THISL 8TRTRNCT 9TTYNO TYOPN UNCON ;UNKIL URFLG WDF1WDF2~&&WNDF1 WNDF2 <WRITS KWRKNM WUDF1 WUDF2 ZRMVF & IFF( .:<>CELQRSW <K ,0?IOMAP +A1{`{Ap{7p p p A0p CGKpH@@JApMA pT((wX`(w`(wh (vdD9$(mhP(vhP(vpAsaxz D pzpZ(`@p( hx x~~#AA@XY(13&a8C1&a23C1 {` D(7`Сm(`/`/`/H(P#(HP(/(Hp7`Dp[po(/(`mhwpw pxxm Dxnp~**a<nm(@`Dp)XhHxY*%@@D*Ap@Dpp^pH#(P"(DP$(0F(AFpp(FJp\`Y@A( 4AFGJH(@op[(>EEP-((Dp$'p($H(?P(4PH(1(?%D@(A%`\D(?`(?Pp\DDp(@!(?J ` @p`\P(`(S p` (Sp4p ([p@A(B5_`GGHppu#\DP(0kFn(?@%xTxy`(`[`p[Ak [݈P((AJptp Hp\ ,AEFIdd66pyp!@((g`tA((?k (A(AJptHpu`0A(3Jk(`@(Hpu(dmm77 OWORW @`tJk@u xtD(p&JJ+5F (`P ((P(](`P(2m'`@@D`\0(A FH8(%p\H((p(]JhJJ J @h[ (D (Ep[@(E@ AAp[4OY[(Y8\(nDxx\7{X;;(n4`A(mjY(Y(nhp ApyYڠ(q(@ph6 (qhr(Aq(8`h (yy??({ Aq(88( `hA(p,`ph (AYY((ySSzh// Y(Yp(A`Yhg` Dxx\(S~~<< OWR ORS pp@p`Gh^ `Hp#Y 8pA/YA(}(=50p88`(~?(}p~D==(W`0(2h (Qh (:T88(: Jxw`"H/7hv`PhuxAhp@`^(wqY`8 h (qA(rpW ffs&//ApQ 6HHp HP"(P (8((8xHNH P (h(x((`NpH P (P"(((`OP((8(fH Dp&` GGDA!(?ŪAFȠ@(?DpW-@( ( D !(#(P (0pW@-p% Ap8犈`hx`A@p; @D@p(B-@A  H(?`(A J((k `(p` ppH4(O(3(~~lDDp~(!5D %J(% %` pA+,{(22-{p_pH`UPK(D@KlDKl`pP6`PpPJC(C@@(B`\ @x\(d8@(Y(d`~\[DD(^hdGYH xPD`ghYAh@`(wDD@p((?D |FH(?!(H$(P(@D(?p%@`(A(Aj  (A(A22HpV@@pVJpp p `Dpz(AHjH x2BBA##Ahp` `p` x܈@p` A@A@pݨ 0-000d BMAFMGRXXXX .   CCA`hꈈ`90Jp爈`9h0JHp A`H`@L9p숈hHM` H HFHD`A@ Ep` 90Jp`@N@9//60Jp C@I@0I9 n 00AS/@::Xȁ 8COPYS 92074-1X003 REV.5000 <920914.1542>/SRC_92074/R6000/&EDIT0:: OCOPYS .DLD.ENTR .MBT:`A8@5T::Xȁ 8BLANK 92074-1X003 REV.5000 <920914.1542>/SRC_92074/R6000/&EDIT0:: @BLANK .DLD.ENTR .SBT AAHp`8(  @(::XSINITF 92074-1X004 REV.5000 <870504.1715>/SRC_92074/R5000/&EDTU0 :Cu 9EDFLT ELCOM DBLVL  ەAINITF  yy EXEC.ENTR .CPMMAX0.SST.NFEX RWNOD GETND ABORT RWDSK XTIME NL_SPRINT FMPER NL_PRINTOPENS SC.CR MOVBE SCRTS SCSIZ CNUMD FLSTNAMRGSCRN NLLANGIDy77&& Size Edit up. -F:frmszXXXXXX frames XXXXXX -P:tbleXXXXXX P ovfszXXXXXX7?@@??@N`p/p1ATp=p+p,p&`1p>`nhmpxk31p'`&p&@(_`'(`P3(y(`7p`p$(_(cO99`P3((`7p`p$(_(`P3((`>p+@1p,`mP,((`,p,`Ljp%(_(`ÈP3((7p(_(`P3hX3 0(`p `1p(~~77`(p)`1p>`nhmpx31p'`'(@1p)`mP)((`)p)(_(`P3((p((`P3((ppp(_(`P3((~66(_` (`7p*`8p=`:p(`>p1@1p>A ((6$88J`p ( ( `p`p` p`p `p`5p&`&@p`$@@/p/`(.h/php0 0(:(:`p0`9<990p` 0@@p`@/ @hp (\(\ Y \J (h(hhp`@/@p/`m@&pl`@lp{u//`{@&pu`u@&p-`@p.p`.@/p/`@h-`-@.p-`@h`p@(`-p`@@p`@po`o@&ps`s@&~~v22pw`w@&pj`@jpk`o pp`s pt`upv`wpx`{ p|`s `u `w `{ `$(     ~ee//!  `(塤p ((A`p ,+((`@+p+`nh+H,px+` e~~699(`lp*Ap'(& )((&(&`nh(H)px#(&`P' 0 (B `p p pp p`lpA~>;;p'`'(OHLA' O`%0$0 ([`w [` (a `@h `@h p&`& @h`&p&@(m`JJy@pl(p`pN`pM`p`>AJKK411OWS .2A#7ed0 - -Q-B+R-RP-L-S-P-FK@p0::X^dINITS 92074-1X004 REV.5000 <870504.1715>/SRC_92074/R5000/&EDTU0 :Cu9EDFLT ELCOM DBLVL  LINITS  !!TSETFM RWNOD GETND GETFM RTNOD ROLLN !44p`( ( b`p`Np`p`(`!(%`!@_hp!)`c@p.ppNpMpRllv6))pO;A`p ` ` pq`qprpppp`ppplm_A@oT;;Xv3ȁ 8EDIT1 92074-1X005 REV.6000 <920914.1542> /SRC_92074/R6000/&EDIT1:;Cv DBLVL ELCOM 9EDFLT 44UED%?. @ED%RU EDIT1 $EDIT_MSG_MOD1 GENHP (NL_FILL_BUFF4.ENTR w.MBT&ALLFG 'ANCCH (ATLOG )CD1ST +COMD2 *COMND CSTRP ,CTFLG DCBSV -DIFLG .DVR05 /DVR07 1ECCNT ECH ECHLEDITREVMS xEDIT_MSG1 EHELP 2ERFLG 0ERPRN ERR 3ESCCH 4EXFLG ||c5EXITC 6FILLC $HL2N0 #HLPN0 "HLPN2 !HLPNM 7INDEF INPNM JOINF KCVT8KEY :L1FLG >L1GIV <L1LIN ;L1OFF =L1PAT @L1SAV ?L1TYP AL2FLG DL2LIN BL2OFF CL2PAT EL2STR KLCLOF ILN|bfJLOPNF %LSNAM HLSPAN LST FLSTALSTNM GLSTSZ 9LTABS MESSAGE_ERROR MFMPE LMLFLG QNAMEMNFNDF NL.PRTNNLFLG vNLREADREL ONLSFG yNL_MOD_TABLENL_PRINTNL_SPRINT NODE1 PNOPRN SNWFLG }}iTOKFLG OUTBK UPASS1 WPATCH PBKEPGRUN RPRGNM PRINT VPRMTB PRTNM PRTTB XQSFLG YQUFLG ZR1FLG \RCCNT [RDCBF ^REPQF ]REVFG _ROFLG `RTNFG aSCCNT bSCFLG cSDF1dSDF2fSLASH }dd|eSMCNT gSMOFF hSPFLG SRCN0 SRCNM SRTNiTBFIL jTHISL kTRNCT lTYOPN mUNCON tURFLG rWDF1sWDF2nWNDF1 oWNDF2 WRKNM pWUDF1 qWUDF2 uZRMVF dNN%""@( `tp"Av x"#xw@h#Xu( H(h"Xt (hHxHxJ@w`s@Jw8"(N##T$x%%Hrx5D (xv:#Oh6>&'Hh> ((jjd?77D (`1ApKpo%A(SR?R(@hq( `PHA(_[(hp(  (k D(kp8 H`m08p8_`o(i , !%yoj@Ge::XT7EHELP 92074-1X006 REV.5010 <880606.0334>/SRC_92074/R5010/&EDTU1 :Cu9EDFLT ELCOM DBLVL  l0EHELP  PPREIO.SBST .SST.NFEX CLOSS NL_PRINT FLST READS NL_SPRINT OPENH GETFM NL_FILL_BUFFGENHP HL2N0 KEY P)AK _<0AA0p0`PhX 0(@@Ep)`)pDJW&.` @.p'`'p d  /p/`/(s`P/(l(r p~~q::p/(p,p(p*`'h xpx ) p/`/(`)(` xP((`((` xP((`p,(䀊`,(` wh)` xP((` xh~~~e|99`p+` wp `p(`+(p)p+`*((ъ` 0h xApx(` x׈p) `P)(؈(`p*(y(`0)P (((((y~99(y`((`p `'p  `&@ h `/0933 OR @ @@  Afa ? ~ ~~edLP3@ui;;X$ 3ȁ( 8EDIT2 92074-1X007 REV.5020 <891117.1128> /SRC_92074/R5020/&EDIT2:;CvV/DBLVL 0ELCOM 19EDFLT }}a/ BRKLN ED%B.  ED%BS ED%D. ED%F.  ED%FS  ED%G.  KED%RW  ED%S1 (( ED%S2  ED%U.  ED%X.  ED%Y. EDIT2 EDIT_MSG_MOD2 ERTN xFDCNT } NL_FILL_BUFF SXFLG mC%.ENTR .EOF1 (.LBT).MBT&.MVW'.SBT*.XFER ?ALLFG AMDEL AMINS @ANCCH ASCII ASK AATLOG BCD1ST $CHANG +CNUMD DCOMD2 CCOMND CSTRP ECTFLG 2DCBSV FDIFLG DISPL GDVR05 HDVR07 }}ZdJECCNT ECH ECHLEDIT_MSG2 KERFLG IERPRN -ERR .ERRTN LESCCH MEXFLG NEXITC OFILLC FLLER "GETPT #GETSB =HL2N0 <HLPN0 ;HLPN2 :HLPNM PINDEF 6INPNM 7JOINF QKEY KILLL1ERR }||RSL1FLG WL1GIV UL1LIN TL1OFF VL1PAT YL1SAV XL1TYP L2ERR ZL2FLG ]L2LIN [L2OFF \L2PAT ^L2STR LCASE dLCLOF bLNcLOPNF >LSNAM aLSPAN LST _LSTA8LSTNM LSTSB `LSTSZ RLTABS |D!MATCH MESSAGE_ERROR eMLFLG jNAMEfNFNDF NL.PRTgNLFLG NLREADREL hNLSFG NL_MOD_TABLENL_PRINTNL_SPRINT NODE1 iNOPRN lNWFLG OFFSP mOKFLG OUTCR OUTDB nPASS1 pPATCH PBKEkPRGNM }}yPRINT oPRMTB 5PRTNM PUNCT qQSFLG rQUFLG sR1FLG uRCCNT tRDCBF wREPQF vREVFG xROFLG ROLL1 ROLLN RPLSB RSBUF yRTNFG zSCCNT {SCFLG SCH |SDF1}SDF2SETMS SETOK SLASH }gg~SMCNT SMOFF SPFLG 3SRCN0 4SRCNM ,SRTNTBFIL THISL TRTRNCT TYOPN UNCON URFLG WDF1WDF2WNDF1 WNDF2 9WRKNM WUDF1 WUDF2 ZRMVF g  ..lP@@(,(-p`p`(p@(-`1`p(x. Hh88(`~~#6>>%Āh6"pˆ`p`6p@pP(P(h1 Hh'xX(8(`¨Jhl`1 Jpz`1@1 @@pC`p`p~^ `1`p(8''uH88C( `88`'IIeq"!!%`1pp1!h6 A`p1#5"pCDCP(AP(?H8C(9U6IDCC0wpz@hl (T`1(Tp(T8(O@Dhl Uh1`0qUxzHH6(`UpkA!lk8ee qo${p o`v6o {h13xy@@`]@U;;@ p w` plp x0q( o W0v0u p`0S(p0U 8ń( o`?(8 xh0Tx zh0S@x yp0S`rAp0Tpg00( o` zp0T` yp0SJp0Upg`0p8 w( ( o z??  {`rp0T@p0Sp0U`0p`S(`0pUD  U (@ p0S`r p0T(` /0q ` .p A0p0+ xp` x(  00 `1 `1 Vr H -x   00 A0  50p%  H x #D (x0 (0u $0 ,H` ,( ``e -99 1 8EOF  q( 8 x` Dp h )H >0qH0qp( H( `0q~aa 22h )H * @D(. Hzxzp V ?( H( ` ( `  HH ( p 8 x`1D( 0p H` ?8 ( +0{( 8p @H8 ( 4p V ?( H( :ahd ?<< I ?8 ?HPL( F ? IH`L ?` V0} I8 V8 I 5@0~! J I 01 W@ ( i@ ( k@ ( m@ ( o@  W@  W@  W@  W@  Wp  P P( Ip p Q  {<.ENTR ADDST FILST ~~CCA@p\p[@pZ@\Pc(((#bp(/.app7]p@``@^pYK~**GYp@\P`(R(U`_p(Wp` *]][n^@!`44X'4(GETPT 92074-1X008 REV.5000 810805 &EDTU2::SRC_92074 4 TGETPT   u.ENTR MAKPT ==@p%p$@p#p"@p!&'p`= & @8Wf((44X VOLOCAE 92074-1X008 REV.5000 810805 &EDTU2::SRC_92074 4 ELOCAE   .S.ENTR .CPM BBA@pM@MAp(H(H`@MpP((=`N@p`@MA()h @HMpK(3K(<p`(DP(A(Dp(:@#hFp(p(: N @p044X)I4SUFIX 92074-1X008 REV.5000 810805 &EDTU2::SRC_92074 4 JSUFIX   .ENTR OO++A`3h2 0h1 0h0 0h/ 0h. 0()p(+p`O.:}{*$^@h(33X79COPY92074-1X008 REV.5000 810805 &EDTU2::SRC_92074 3 vECOPY  .S.ENTR .CPM aa33@p8p7@p6ppA((3(#(#@6hH8`p`p(("a@44X&MAKPT 92074-1X008 REV.5000 810805 &EDTU2::SRC_92074 4 n"MAKPT   EE .ENTR .CPM PATSZ ERROR ADDST ESC STCLS COPYSUFIX CTOIGETCL INDEF ANCCH ESCCH E~~]BB@p!p@p!p@ p~p pppp ` @h HX (` p` @p`P(V(^\ !p(~~~_^CC`Ph  (rp !p(`Ph H ( !p(`P(( !p(`P((  !P~~~(DD((((`Ph H (`Ap((( !p !p(`Pp|A |(@p`((~~~>> !p !p(`P((  !p`p`p !p(`P( (b`@p||((` p p`@P(2~~~#CC) !p0 !p(a`p `@p`PhX 0(F(`@ pp@(S(a` p ] !`p(L(`P~fBBhX A0p| |(`@p|||((`P((`@ p`p` p  !` p`p !p( !p ~~:?? p|| !p`p` p (<` @(p(z`(p(z !(p(z` pp ` @P((  @ p ` @P(~~~99(`p(`p(`p` `p ` @P(v` @p `P (((` @p`PhX 0hX  0(` @~h ` p ` @~~@ AAh` p` p (o`P hX  0hX  0hX  0(?(o`P hX  0hX  0hX  0(l`P(a`p` @~h` p a `P (e(k i @ p (o BUG IN POSSIBLE MATCH.''Klo s @ p (` @~h`"'*n[.:$}{a^+>< @44X!/4MATCH 92074-1X008 REV.5000 810805 &EDTU2::SRC_92074 4 9MATCH  ^Q.ENTR AMATH PRESN XX,,@p1@p0P2((,p`@1P3(,!($((p``p(p(&X 2 @44X{_PRESN 92074-1X008 REV.5000 810805 &EDTU2::SRC_92074 4 \PRESN  @.ENTR PATSZ OMATH ~~d@@@pY@pXpp`@Xp`[P(((T`^P(!((%@p(M`]Ph\X 0(5(M`@YP[(;(?p`E~,,EPZ(H(I(M`p(5Q@p(p(=,AZ}{*@44XOMATH 92074-1X008 REV.5000 810805 &EDTU2::SRC_92074 4 hOMATH  T.ENTR ERROR LOCAE ALPNU ~~a==@p@pp@P(&((`p @p@p`P(6(@@P(=(?p (`P(D(K(H(Jp (`P(O~N;;(U`P(Tp (`P(Y(``P(](_p (`P(d(|(h(kp ({@prpv ({p (`P((pPBB ((p (`P((`P px(p (B# IN OMATH: CAN'T HAPPEN. j ` (@ p(&  n[:$.^a@~>44X1 ALPNU 92074-1X008 REV.5000 810805 &EDTU2::SRC_92074 4 GALPNU   Ta.ENTR TYPE 55A p`P X 0(p(p`5  @Ֆ44X6uPATSZ 92074-1X008 REV.5000 810805 &EDTU2::SRC_92074 4 RPATSZ   .ENTR ERROR mGG@ph@hp `tP hsX  0hrX  0(/`kp(e`qP hpX  0hoX  0hnX  0(Hp(e`mP hlX  0([!!r V @h@kp(e`jP (_(b`ip(e! IN PATSZ: CAN'T HAPPEN. 'be`ri *n[:.$^}{a@?44X!kTSTCLS 92074-1X008 REV.5000 810805 &EDTU2::SRC_92074 4 \ STCLS   .ENTR .CPMADDST ~~9BBA pP@pOpA((+`S@p`@OpN&N p@p(`Sp6R p=Q pD pK~zGQ p`  CQ* @ޫk44X1#ADDST 92074-1X008 REV.5000 810805 &EDTU2::SRC_92074 4 NADDST   .S.ENTR .CPM >>Mp"@p!A((p(@!p`>@Jih44X:3DODAH 92074-1X008 REV.5000 810805 &EDTU2::SRC_92074 4 PDODAH  .ENTR ADDST ESC RR,,@p1@p0p/@p.p-#-p*2pR 2 @Lk]33X*ESC 92074-1X008 REV.5000 810805 &EDTU2::SRC_92074 3 ESC   z.ENTR ESCCH QQh%%@p( @(P(@(p(%@(P)((`p(%@(p`Q ) @44XFILST 92074-1X008 REV.5000 810805 &EDTU2::SRC_92074 4 ɚHFILST  ##.ENTR .CPMADDST DODAH INDXESC ESCCH #YY7AA0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZY|BCCB@CpGp@EpD@BDHX (D@P(i(vmCDptEFGpA(D@P(D@pEFGpA~~wEE(F(D HX 0(EFGpA(F@p((CDEFG(F@p (( CDEFG(F@~<<Jp&((ۡ&CDEFG(EFGpADD(SH< - @ 44X$7,MAKST 92074-1X008 REV.5000 810805 &EDTU2::SRC_92074 4 PMAKST  p>.ENTR ADDST FILST DD*$$@p*p)@p(pp+%+p`D + @q|44X62.XINDX 92074-1X008 REV.5000 810805 &EDTU2::SRC_92074 4 BXINDX   =i.ENTR INDX SSsN))@((p,`-((p()(p() (#(&p()p`S - @N33XDQCTOI92074-1X008 REV.5000 810805 &EDTU2::SRC_92074 3 9CTOI  =i.ENTR INDX  0123456789tt,@;;@pK@KPPHKXO 0(*(p @KPN(G@KpI8Ip ` (=(G`M @ @Lp (,` tBL @~?33X#INDX92074-1X008 REV.5000 810805 &EDTU2::SRC_92074 3 6INDX  .ENTR @@80@p!p`@!P"(`@!((``p( p(@ " @e%44XLENGH 92074-1X008 REV.5000 810805 &EDTU2::SRC_92074 4 ;LENGH   .ENTR ..\;A@pp`@P(`p( `.  @j*33XBNTYPE92074-1X008 REV.5000 810805 &EDTU2::SRC_92074 3 )TYPE  .S.ENTR .CPM vvDDAAM( pFL(F(`Kp(DAJ(pFI(&F(.p(DAH(3pFG(:F(Bp(Dp`vGZAza90@Kj44X!-ERROR 92074-1X008 REV.5000 810805 &EDTU2::SRC_92074 4 NERROR  EXEC.ENTR ERTN""(A@p "  @Xw44XCATSB 92074-1X008 REV.5000 810805 &EDTU2::SRC_92074 4 A}TAG v(CATSB  $$J.ENTR .CPMADDST BRKLN FOLDW FOLDERROR $~~!CCA!@!p@$p'p@%pp ` @P(` @p `P hX  0hX  0(` p ` @p`(a"p#p(A~WWd--(fpJ(m({`@p`@p(Ap((pp(W? CATSB : CANT HAPPEN.~~;==`p  ((` @p`P ((p(`P ((p%&'p ` p ((`툊P ((%&'('&%~//7&'p Ԁ%&( %&'p ` p (8(/   @P44XCHANG 92074-1X008 REV.5000 810805 &EDTU2::SRC_92074 4 b CHANG   &&X.ENTR ADDST CATSB AMATH PRESN SXFLG FDCNT &~~CC@p p@p@ p@ p@ pppp+ P(.(p`@P(` X (Ap(GF p`~~~6JCChX (bp`p`   `p`hX 0(|`@pw p`p(~`p(0 ( p~~ pp`  ] @rD33X #FOLD92074-1X008 REV.5000 810805 &EDTU2::SRC_92074 3 FOLD  .S.ENTR .CPM 99]wAA"( p!((` p(p`9  za @ϓ44X!-#FOLDW 92074-1X008 REV.5000 810805 &EDTU2::SRC_92074 4 ?FOLDW   .S.ENTR .CPM 99]wAA"( p!((` p(p`9   ZA @_}44X.GETSB 92074-1X008 REV.5000 810805 &EDTU2::SRC_92074 4 PGETSB  x.ENTR MAKSB 00[gA@pp@pp`0  @|<44XMAKSB 92074-1X008 REV.5000 870411 &EDTU2::SRC_92074 4 `MAKSB  .ENTR ADDST ESC INDX 123456789~>@@A@pp@pp p ` @h HX (` @p`P(>(A`p(a`P(E(H`p(a`P(L(_`p` @2R==P(U(^`@ @P(\(^`p(ap`(j p `P(o(s`@ p (` @p{p`(` p  p ( pGG"" p ` p (&` @(p( (p(` p`G3 >$<&@m-44X/TAG/ 92074-1X008 REV.5000 810805 &EDTU2::SRC_92074 4 A}TAG @8 V;;Xk3ȁ: 8EDIT3 92074-1X009 REV.6000 <920914.1542> /SRC_92074/R6000/&EDIT3:;Cv>'DBLVL (ELCOM )9EDFLT bbED%?? ED%FL dED%HL ED%RC ED%SE ED%SH ED%SZ ED%T. ;ED%TI EDIT3 EDIT_MSG_MOD3 -NLMSG >SHWUN b~~ .CAX.CBT.CBX.CXA.CXB.DSX.ENTR .LBT.MBT.MVW.SBT7ALLFG AMINS 8ANCCH ASCII ASK 9ATLOG :CD1ST CDVR5 CMDSK <COMD2 ;COMND CSTRP =CTFLG *DCBSV DEC >DIFLG ~} DISPL ?DVR05 @DVR07 BECCNT ECH ECHLEDIT_MSG3 ENDCK CERFLG AERPRN ERR DESCCH $ESHOW EEXFLG FEXITC GFILLC FTIME GETND 5HL2N0 4HLPN0 3HLPN2 2HLPNM IFBRK HINDEF .INPNM /JOINF KCVTIKEY KL1FLG OL1GIV ML1LIN LL1OFF NL1PAT QL1SAV PL1TYP RL2FLG UL2LIN SL2OFF TL2PAT VL2STR \LCLOF LIMEM ZLN[LOPNF 6LSNAM YLSPAN LST WLSTA0LSTNM LSTSB XLSTSZ }}IJLTABS MESSAGE_ERROR ]MLFLG bNAME%NEXTL ^NFNDF NL.PRT_NLFLG NLREADREL `NLSFG NL_PRINTNL_SPRINT NODE1 aNOPRN NUMIN dNWFLG eOKFLG OUTBK OUTCR OUTDB OUTUB PACKfPASS1 }0hPATCH PBKEcPRGNM PRINT gPRMTB -PRTNM PRTTB PUNCT iQSFLG jQUFLG kR1FLG mRCCNT lRDCBF &RECOV oREPQF nREVFG pROFLG ROLLN ROLLR RPLSB qRTNFG RTNOD RWBLK RWNOD rSCCNT }}sSCFLG !SCH tSDF1uSDF2#SETFM SETOK wSLASH vSMCNT xSMOFF ySPFLG +SRCN0 ,SRCNM SRTN"SWAPI SWPET zTBFIL {THISL TR|TRNCT }TYOPN ~UNCON URFLG WDCNT WDF1WDF2WNDF1 })WNDF2 1WRKNM WUDF1 WUDF2 ZRMVF ll݌::JA( &@H( (H(pIHD`0IpI`( H, (&HP(`DpI( A@$"( h#`CH(3`+P؄(3`s(2h$(3h%x(A9(c-( lM;FFHJp:(q  `:@(Mp:!`A8:(HP(p`(oDpB(X(T`p:!(b8:(Z!(b(^ D( (n(nP((q(s``݄Hp(}A}AAK_  22_ (w`H`hHP`D(w@(`@(w( 2::''''/''''  PhPhP(PhPhP( PhPhP(P(%P(!P()P(-P(1P(5P(;P(\PhP(P(P(P(P( (@(  AA/09P ALFLINSW`(p)`)h x)(`Hp(HhX( ( H`( ( A$`(`)8p(HD(p(D `(p)4( ` ((`pg`@pZ. J`( `g pg ZDpZ( _zz3; 99`pD( `p)( `p8( `pH( `p)J( `wp)50pg( `pY`pZ`p[hYHZH[ (`Yp)pt`Zp)@)pu`[p) ( z?\CC@pY` pZ`(p[`YH@Z(`Z@[(`[@(H(`Yp) `Z@p) `[p) (  @F\^ DF@ߤ p)`(p)( `p)D@pppF<<@`p)D@)pppD( D@/D(@4p p PDx(( p(`(`(@((ͪ@(p(`(J@( `(p(( `((Hp`D(`8J H`BpJ@(oPBH(`pBcc00D(P'(7P+(8 PhPhPhPhP( (D(`p`ppP"(hp(@H (88(Hh(cV6>>pJ Dp(`Jpy`pp(U@(P(((SHp`88(K`88(Bhh1xH(`1 p(wH (d`H(]`(w(oP(H(o``H`p(PYY ht))H(|``HH`(```8(q`,`(w H(wpy(o `(w(wH( x`2ph8 8((<YS_|% !AFILMPTU12RR!33)`ph@3 8((<,RȒ??ASDFCFRTBEECACICTCPCCSVWSDWCLEREQUTSCDSL))()6)7)))3) p)((ׄp(0(P*(!P+Hx((P(8h()8)((&P(& w%@ ( ))*OFONAA,7,=(p(h= (h(p-)>AA>p>p`.p`((_`( `$`&`$`( J@`(w(w`(P-(cJ( `(P( A`(p"m`A(|%u(`(| 8(p(wh``@//@4p  x(ph&(h%(h*x HH`$`Hh`A`(w((8(p`( A#@((( `Z"77A(@JD`(w( ( @#@@( h(h(! (`(p `( P(qp`(ph(Ux p(Uh(T x p(Tp(SAA `p(` p(T` p(U` @( @AA@p(((`(Np "   A#  #!h 8A` `@(p@(p]@50 @(@(p^`) @) p`) @) B.;;p`) p(D(DP)xjP%x P*pP*(1P%(1P)@(1(`YpYe`( P(q(S`(pAAPS`p( ( pvpth( x(qx(r8(rz(`(wpi<<(pu`@xHHx@upu`p(hu ( @@u@(z(Հ`w(pt(pt5(wpxz`(h`(ph(q H`@4<<((8x(`p`v(ê`( p(q8w p(Up(S Ap( p(Up(@@8Y`Y@(U8(U( Ap(Sp(U@( `x(p.xxG`p`p==`p`ppup@pHP$(@(A鈀(8h(oX(q(q@p `(rh(ox(q x(r ``Ҩ p(Sp(@IFF IKLNQRS_IR`@Ј(Ipsh(qHH`$A@s`p`y@huP CJ A H(qH(qHXx(e  @h(qHH`$ HA`x/`$}d@@H`$@/p`u$@rpu`p5 `(J xYh( X(q(h( HH`@X(HP$(h(qHH`u@(ps`(`$@@s(H'??A ` `(q@@(q`$@Dp_`jp_p(8(A(q`8w(Hp(Uz8zp(Uz p(Sp(UA@8Yzpuphv@`Y (`(P((q^==`(hHH#X(`G@.p.`xPG `GxG.x.H8v`( p(q p(r`v( HApY ("x0X.p-pyxxP$(xG@N @@(?@K(O@M(Y(18-PHf(DPJ(@PL(@P"(@PK(@P(DP(DPI(Dpp0HX.(X(!`0(?P(VPx(?8y(? Hx`yD`-@`<<prx/8X.f8-@yfX.fH8-@xP@L f(nHxxH@p @) @`@p` @p@) @@) @x`Hxh B0BB8zhHzppp׈pp-XHX(@8(P(88-`-@p(8f(HP(@(` ((`(h99pwhG(興8|(〄`v`Y`(P(`th(qX( (`p`pڈ`p`p܀z`وp`p`ۈp`ppw`vpv@>>H`.pG(H׀`vpv`( p(q`(op(q`vuh H`HH`@4p`( @A`HA` 5H( p(Sp(UN8Y `( JxYh(oQU</SRC_92074/R6000/&ESHOW :Cu9EDFLT ELCOM DBLVL  KESHOW  YYTCRLFNLMSG PUOFF KEYT3 MSG CRLFP PNUM BUFF3 STRNG SHWUN LSTMK CMDSK KEY ESCCH INDEF ANCCH LSTNM PRTNM Y$::pp2`pP( ( `P((( n(!!$p6(06(4/2 47~(B~~b0;::=}@ BE|p6I{06p6Nz06(XUy X u[xp6_w06p6dv06p6iu06(ypt s {v~~~u;;s y }|r(q p(o n(mlp6k06(j`iP~  ((h(= ~~==gp`@8(`@8p66`p(f(e`p66`p66d(c~~~D88b(a   `(+_ `9@ p6#6@ p6)6+.^~W0;;(94] 7 9<\(R B[P4(F(JIZ(P`4p6P6RUY(`[X ^ `cW(qiV`=@nn{k22p6o6qtU(zT }S(R Q(P n==O(N=M(L K(J=I(աH 3աG~~;;(F=E(D C(B5=A( @  6?(~LL!!>=!<(,'; *7,`2(42:4( Lhh|8LLCDCSTSPCDFICRTECREACCFLEASSWQUSLINFLSDVWWC T TCALMAFMG Y U X D B F L WRERUNh@999X9PNUM92074-1X032 REV.5000 <920914.1542>/SRC_92074/R6000/&ESHOW 9 'PNUM  .ENTR MSG CNUMD qA   @Tse::XzPUOFF 92074-1X032 REV.5000 <920914.1542>/SRC_92074/R6000/&ESHOW : EPUOFF  .ENTR NLMSG ##A(  (#  @ff&::XP&((BUFF3 92074-1X032 REV.5000 <920914.1542>/SRC_92074/R6000/&ESHOW :Cu9EDFLT ELCOM DBLVL  IBUFF3  .ENTR CRLFMSG 22A@pp`(p2@*SI99X#CRLF92074-1X032 REV.5000 <920914.1542>/SRC_92074/R6000/&ESHOW 9Cu9EDFLT ELCOM DBLVL  rCRLF FLSTMSG ))p`wp `w )  @::Xt CRLFP 92074-1X032 REV.5000 <920914.1542>/SRC_92074/R6000/&ESHOW : @CRLFP  CRLFKEY  p` P( # AL @::Xl#KEYT3 92074-1X032 REV.5000 <920914.1542>/SRC_92074/R6000/&ESHOW :Cu9EDFLT ELCOM DBLVL  DKEYT3   T(.ENTR KEY 11APhX 0p`(`p2`1 'AL @tK::XfxbRECOV 92074-1X010 REV.5000 <870504.1716>/SRC_92074/R5000/&EDTU3 :Cu9EDFLT ELCOM DBLVL  SRECOV  ?? p .CPMNL_PRINT CNUMD WDCNT RWNOD RWBLK SETFM GETFM ABRCV NODCK GETND RWDSK ?  ~~;;pa!`S@p*lX](//``p `p `\@p`[@P(BB_`Z@P(JJ_`P(PP^R~}}JNR88p` ( `]pRp^X`P h X  pM`M(}`\@ pO`[@ pM`Z@ pN(`XpOpMpN(P@}/p>>p`@Oh`Yp`Xpp O((ي@`WN pM PN0MpM`WM 0MpM PM0M( pNpM`XpO--K\J O(ш(`p`Op@P(-??`p@(`p`XP(l`Np`Mp P h  (`p(&`V p  Q(pMA  ( M($ `N(!A O>>( ( `pN  (#p (&p Ph  (4`p (_`Wp Q(<ApM (CM(]K`MA(Z O(Y(Y`pMFlV99Y(\p(_pc`pN` pMk(p p`(`p {  P(`(`VMP((`p(u`p V` ==pp` (` p   P (` ( `VNP((` p(`p `p`h  (U`(`ppM99` (`p  pN `h (  T` pN`pM-- `S@p`p X`p ` pq`qprp p`Op pp`p4""3 `@Op`Np`(0p"''> A GKR'!!xOAfe?d!@T::XVNODCK 92074-1X010 REV.5000 <870504.1716>/SRC_92074/R5000/&EDTU3 :Cu 9EDFLT ELCOM DBLVL  NNODCK  &&.ENTR .CPMRWBLK RWNOD NL_PRINTCNUMD SWAPI &  ^ ::  `˨ Np PN(!`N(#PM(*`M (, `pR2 7 `ň@p`p pO`p `@ @eFBBpP (A` p 0hHp@`@(]0(p p`@hH@(o(t`@(`@p  (~Jp (~~499(`@ p `p(e(`p`h `OpO`@p(>`@pRpN pM `@h~7 Ag?@@_~n::Xb+$ABRCV 92074-1X010 REV.5000 <870504.1716>/SRC_92074/R5000/&EDTU3 :Cu9EDFLT ELCOM DBLVL  /ABRCV  ))Yu.ENTR SPURG NL_SPRINT ABORT YESNO NL_PRINTWRKNM )FFA# "! (Flkjih@м::XiK7WDCNT 92074-1X012 REV.5000 <870504.1716>/SRC_92074/R5000/&EDTU3 :Cu9EDFLT ELCOM DBLVL  BWDCNT   .DAD.ENTR .CPMTRROLLN QQ++Ap46`qp`0(.`@h@AA(.(.-(Q 4 @q::Xd`>LSTMK 92074-1X010 REV.5000 <870504.1716>/SRC_92074/R5000/&EDTU3 :Cu9EDFLT ELCOM DBLVL  OLSTMK  FLSTCNUMD NL_PRINTG.XXXXXXXXgg00p`(=(5`::XkL1NEXTL 92074-1X010 REV.5000 <870504.1716>/SRC_92074/R5000/&EDTU3 :Cu9EDFLT ELCOM DBLVL  INEXTL   g .ENTR SWAPI SETFM RWNOD ^^P--A@0@p`(-`N(*#`N*p`^ 0 @;;X 3ȁ- 8EDIT4 92074-1X011 REV.6000 <920914.1615> /SRC_92074/R6000/&EDIT4:;CuDBLVL ELCOM 9EDFLT zz "BCMLN  (ED%#.  ~ED%..  TED%BC  TED%BM  ED%C.  ED%CO  ED%I. ED%IT  ED%J.  eED%KB  ED%KM  ED%LE  ED%LI  ED%MO  ED%O.  ED%P. zzz[l ED%Q.  ED%R. kED%S. 7ED%SC @ED%SL ED%SR  HED%TK  ED%UN  ED%UY  ED%_. EDIT4 EDIT_MSG_MOD4 ZNECHO NL_FILL_BUFFTNORMA THISC z~~.CAX.CMW.CXA.DIV.ENTR .LBT.MBT.MPY.MVW .SBT.XFER ADDMK ADDSK bALLFG AMDEL AMINS AMMOV cANCCH 0ASCII /ASK dATLOG eCD1ST 1CDVR5 CLENCMDSK CMNDSTACKINIT ~CMNDSTACKRSTRPCMNDSTACKSAVEP CNUMD gCOMD2 fCOMND 3CSTRP hCTFLG )CVX UDCBSV 4DEC iDIFLG (DISPL DO_CNTLDjDVR05 kDVR07 mECCNT 6ECH 7ECHLEDIT_MSG4 9ENDCK END_CNTLD :EOFLN 8EOFPR  nERFLG lERPRN *ERR oESCCH ;EXCER EXECpEXFLG qEXITC rFILLC <FLLER =GETL2 >GETNM `HL2N0 _HLPN0 ^HLPN2 ]HLPNM IFBRK IMAGE_BOL IMAGE_CHARIMAGE_EOL sINDEF 2INITT YINPNM ZJOINF  2tKEY vL1FLG zL1GIV xL1LIN wL1OFF yL1PAT |L1SAV {L1TYP }L2FLG L2LIN ~L2OFF L2PAT L2STR ?LCASE LCLOF @LETTR LNLOPNF aLSNAM LSPAN ALST LSTA[LSTNM BLSTSB LSTSZ uLTABS ||MESSAGE_ERROR MLFLG -MOVLP NAMENEXTL NFNDF NL.PRTNLFLG NLREADREL NLSFG NL_MOD_TABLENL_PRINTNL_SPRINT +NODE1 ,NODE3 NOPRN CNUMIN NWFLG OKFLG EOUTBK DOUTCR OUTDB |PASS1 PATCH FPBKEPOFF4 PON4PRGNM GPRINT PRMTB XPRTNM HPRTTB IPSL1LPUNCT QSFLG QUFLG R1FLG RCCNT KRCH RDCBF REIOREPQF REVFG ROFLG MROLL1 ROLLN .ROLLR JRPLSB }} RPOST RSBUF RTNFG SCCNT SCFLG OSCH SDF1SDF2!SETFM NSETOK SLASH SMCNT SMOFF SPFLG "SPLIT VSRCN0 WSRCNM 'SRTNSTART_CNTLD STRNG #SWAPI PSWPET TBFIL THISL TR}oonRTRL2QTRN TRNCT STTYNO TYOPN UN$UNBGN UNCON %UNEND &UNKIL UNYNK URFLG WDCNT WDF1WDF2WNDF1 WNDF2 \WRKNM TWRTLN WUDF1 WUDF2 5ZDECZRMVF o,,J(' '(M ?ROBSC,??((p` A0{p )D0; 0~ H(;`y (1pD` 0zp ?0@;DXĠh `up!(` 0|Dp Q0 t` A0}p[/py@;ok^GGhpHx@ HvpHw(H(Aq1  .F&a0C D` 0pA 0D;GA^_ / pJ;opmoH (A1qKK(ApG&s1I &s0d0g1T_AAD6(*6DH(*6(*A.p'D6(*)D(6(*6D(*p+(`,(`-(`@'p'h@x'`'h4Xp4 p8ww@77w`hE GP_ `4`p@@pp'`pA`p'`p`p%p#&p(5w^^)..  x x(68`@(*pp`(B@(*pXF`pWHpb`WA@pX&SWXpX(+^SXHHZcXmR&a0r0C4HJ D5HMl_Dpp2(*H`p`p@@pHwh`PD(`E` !`hD`EHDpp`xh/ppT8`7p_p@`QJppT`\\O55H@p@x@DpD`|hv p@`x@Hp`h/`p`h@ (h5@xH p8`@pA A AG&a \ ]R&a Rb_ 5== @@"#NOdYf@LoppDppS`d_(ڠo(h`X(khp6P(Pu(HHjJP( pJJ p pP(!pmm%--`P(T` PShZP hZPU({PV({PX(POh\PTh]PWh]PM(PN(PR(PQ(PL(GPY(zPP(P ( (xKh bKm !VL  d #DD&dBC&d@Db_ &d@``PȄ(Gca_ Z` 0bp ʀpiX`HX_(CopmH6(CPaH(C8m8mh` xaHjxbH xcCpH7( hPcaPd`(ppw ;;`(``^Da@(aH@a !hɈ`X`(1((  (! a88`(&``P(7`b(I`ap``(@`hfEH`heE`ԄhgE`wA(acKBB(M(7``@pa@p`Pɀ(\@(C`hhE(CL(T @CRJppwAt`h` xa(L(`@pڈh[(F`(~`hAhxGZlL&a00C4hAAH\_/_SEo(m5pJp`phnEh^(FE(DppenmpTpSpH`x@2p`2@p`x@D@p(, x7x_xA( w`a@D~~2<<`D`H !`aD`HD`@u !`D`DHH(`4o(`Z8op`4opp`#pӤ`oA`o Hwpm(DD6(PyD(`4pm6( D(P`oAp~LV(@@`aD`D`Zpop`#pjH`Z@8``#pJpp`o@Ap`V(AM pwH`5hE8D(>`DH8I(H6(SDPy(LF`mVIV?? wo(qx@hZH  (kx`aHJD`D8(e` !`DDHV (]PZH(]@h(]|(oV| A&a0C45 _`hDE` !@`hEԨ??HHeppp`oAp(JHpw`P(` !D`whEHA5 _``aHHD`D`cH`aD`HDD`DHp` @p`aD`Dw@@''(`D@Hw8(ͨ5:AD_6'ii)11` @@@x@(`2@xphڊ(` @xhHp@`pH`hH p`HDpx`pIHJ=`p|`7  x(ri:: pp`p@D p`hH@xHH`(pxhxH tx:xw`P(k Bw@u@(X`w@vD(B`@H@@`utU99@ upLLw`uhX@ sphx6www`A `wHDA/:P(r ruXp@@ {(@p` |HD8(|`yDDXw@@ t@@ wJJ @ vh vw`yDw@w@(` |HD(hHH z` } ` |pD`D`D`yh |HX` |D(XJ--?>>******>>------AH rx (xA-ՅHh (  <<D5 F^FF((ZmR&a00C45FJSb_ Dw` vh E@` !`_Jh EH`7  x w`aD` D`aD`D `aHHD` D`HDDHS6(.6(.6(.5p2p4**Ѱ!H6(.57(.hDPx2Px4`2@p2p3 *$$`#5`pA^pD65@D8(9pD5$]EHH`d(OGEAM_ GEBM_ ZcRmX&a0r0C4 5H _ wD` wh E` !`h DEHp?p@p*p`X(| eo@(A` hp (G==h_ p(eo(@(`X(` hp (`#(#3((`&@@'p%p$eo(`$@%p$op% o3(鈊8$(`%o(^NCC8$(p)`Xb`18(+`28)+8*( @pS`A(pH 8(pSH`@p`?@ pAA bA   A S@7P(ڈP(P66/  ((pT@`@ pAAx@pS`?QpSb6 & +p*p0+!!:1 8?o(A;o833 !KKޅA##AD (;GEZA_`_` Y0 p L` 0 p T`bh `c0 p ZKΞe<< HopmjepZHp#8@6(sHD(owpAGzdH_ S@`who (wH(6(HJD(Php6Hxo(o (oH Py(joD@pm6(*p66pp6J(*p0 Jxmh (@h o(P p(`P((`P((8Z`3@@(@2p2`oo(n`Py(ՈJP(?pH@(`p#ho o(h`X((""+ ` p` 0p `p "  DDDpwp|DDpyp}p~pDpp{pvHDp}2(*Lq@A(p_HDp8BHpVLoSohoHH P("H PY(6PL(4T`aD`dD o(3wHH6(1D(-H1>>DHJ(+((I(|(p` pѨ@pҨ8` p n0 op `6p@`p m HxZ`_(SAS` m wx lxhxh (dp`aD` ~D`H(h pxh (P(yyo88P(P(P(P(hX w( 98(}( +P(Ԁ@ b`H`_`HD`p8 m(f`C N` m0(` h Ewp`xpHT`_(A` m(N` np @y j HHC$$ &a255CDY `(8шhX(`((`@ xp`0  Dp(HRR##h l (`p 8 m((p h xP((눈8((8 8 m((p`p`(zp`p( +RCCo`_( `p`p` p ˆ8 ( `p` @( `@ !H` h E &a C@ BB  HZ` Dh E5`D !@ b`D8 m( 3(8Z N` p D(P ( <(zH` h rE` tp(zDp BP ( JH` !` sh HE D` l Np l ( Z`wh xHE N` sh |DE`##8 ^ !`uh ( X` l bp l` h uHE b#ttҢ o@@.. p sZY vY yZK }ZD { 9Jq(*` P(*pSHHO( D( A  ApU xS( HHO( D( DJ((qD(8&  q` Pk( ( t*I <<`5 qD(8P x H6( P ( P ( PU( P(  PM( PV( P ( PX( Po( P y( h  ( ለX ( X ( DH(*6`oh  ( X ( 슄( P5( D@O( O`( P5`EE HHD( O( HAD( & A ww( Hwp O( P( w x D( ` w( E      == pwp ` p 6( GPo( ,P y( ,P( 7 $( hH 8 D $hX5( 3D6`o $(  $6( G( 1x   ( A8 H  D((( 9x `D8 8 ( A(  9q0 ( zw@p` P@@p ` p O( nP( ^hH 8 HD( Sx   ( h8 H  ( `x `yD8 8 ( h( S` P @( rJ`@( z y( I`D(((.q(  qA& `y pDJ(+`y . LLDJ`fPd(+P ((P(( ApT D((& `y D w(+9Jq(8` HHPk( Pj(@D(*pBq@( G PA __G PAA @__S D(+G R_ opODP`OwJD@(+`v0}& ??@(*p( HH3( 7( DF0( Cp3( 7( P DD(*x9`@( &`x@( #`@( #`( ( #`@DHpK(*PJ( ( `m`wp`mpw px @4`~~> CCpwpx@Dpp(+Dp(+p`gP ( @ xS`x@ >x @ ( h >@DH (-`~  ??pTpURA % pUH`gP ( h @@ ( `@p( ` ( ApT ApS   tp ?` Pg( 'Dp& & ?( 4` ?h @ @ > Ap 4x ?@@p @ 8@ : @`D(((+" A@@AJ$ C.CphH (*@@(*( q`x @(* p`pH@3( q> p@@J(*`mpHH3( q6( qP( F`pmH@3( s> p@@H(*3( H7( xZ @@DP ( F9Hp `gP ( @p p8 w` pHHP( O( HHD( O( `yD`PH( ( O( HAD(  J`P(  ( `( ( HpUR`p `( `p !h x Hx@`@ BB@( ( `@@x( `x@@ p !`xH@p ( `@@ @x( `@xp pU !q ( pU`@p` QpU`( AA%  `pTp`p A  p  xTh 11  H ( Ax 8 &   pTA `((P D(+(1B <q@p ph H Hx qwP p( SHHO( MD( FwP p( S`yHD( MwP q( gh !X ( b00> YHD x !DO( SwP q( gO( k`yHHD( _O( kHAD( g mA o "0::۫ r%%-.LPQZ aU_= B..: BCCOMO:@E4c::X?Lȁ 8PONOF 92074-1X011 REV.6000 <920914.1615>/SRC_92074/R6000/&EDIT4::CuDBLVL ELCOM 9EDFLT I'POFF4 PON4EXCER EXECLURQLUTRU @@`&A I D`(`E0 pAJ@p&h ` `H0 pA$J`&'. PD'h`F `G0 pp&A<JD(BK˕@  D'@@@ ,q::XL^KADDMK 92074-1X012 REV.5000 <870504.1716>/SRC_92074/R5000/&EDTU4 :Cu9EDFLT ELCOM DBLVL  @ADDMK  .ENTR .CPMDELMK FNDMK }} T<< (p`P(!`p`@JA($($(` p`p`p`P(>@p`@JhHJ`@IhHI`p()`}Ƕ? @J`@IfI@::X`jAMMOV 92074-1X012 REV.5000 <870504.1716>/SRC_92074/R5000/&EDTU4 :Cu9EDFLT ELCOM DBLVL  OAMMOV  .ENTR .CPMADDMK UNKIL AMDEL }}U@@Ap`(A`i@wp@hpp`@gpA("pd()d(:`w@h`@hHf`p`p @(E}EEEIpp`P(b`w@@hHpdxe^de`p(OEf@::Xu~UNYNK 92074-1X012 REV.5000 <870504.1716>/SRC_92074/R5000/&EDTU4 :Cu 9EDFLT ELCOM DBLVL  U UNYNK   %%.ENTR .CPMSETFM NEXTL BCMLN OUTDB SWAPI %" DD p  h0(z`p!pp` h(83p`p(%p`p`Whp|` |(rA (reeM//(r`p`p`p`(k`h}H (ed(hh`hpp(=x`p` e =} @488XHUN92074-1X012 REV.5000 <870504.1716>/SRC_92074/R5000/&EDTU4 8Cu 9EDFLT ELCOM DBLVL  7 UN 22  UNBGN BLT SETFM NEXTL OUTDB ROLLN TRRSBUF SWAPI URFLG 2 :: p `("pSp `  p @(`pS`(ppp`p2`p`p`(`p`p`}}YD88hH`(Y`pP`wp`pwV`pw(}`(j`pcpSg`pS(}m`P(r(v`p(zp`p}}==|`hp(5  ѡ  = d5 @Y::XnL1NEXTL 92074-1X012 REV.5000 <870504.1716>/SRC_92074/R5000/&EDTU4 :Cu9EDFLT ELCOM DBLVL  INEXTL   g .ENTR SWAPI SETFM RWNOD ^^P--A@0@p`(-`N(*#`N*p`^ 0 @::XjK7WDCNT 92074-1X012 REV.5000 <870504.1716>/SRC_92074/R5000/&EDTU4 :Cu9EDFLT ELCOM DBLVL  BWDCNT   .DAD.ENTR .CPMTRROLLN QQ++Ap46`qp`0(.`@h@AA(.(.-(Q 4 @q>>XDO_CNTLD92074-1x057 REV.5020 <891116.1720>/SRC_92074/R5020/DO_CNTLD.FTN >IIH."9EDFLT ELCOM $DBLVL gSAVE_LIST IMAGE_NODES &SCREEN_INFO  CHANGE_LIMITS CNTLD_CMD I @DO_CNTLD  L.ENTR .CPM .SBST .SST.LBT.SBT .NFEX LIST_TBUFFSTRNG !OUTCHAR MOVE_CURSOR .DRCT BCOPY UPDATE_SCREEN DISPLAY_MARKS EREASE_MARKSCNTLD_UNDODRAW_PATH LINE_STYLECNTLD_COPY_MOVE 55 btDRAW_LINESDRAW_CYCLEDRAW_ARROWECHL NECHO TTYNO NORMA ECCNT %CMDSK 5~~[% 66A p`o((0`o@ߪp(0p p`P (%(0(* 03ء5 p  p (lp `P (@(A(k~~~\A@@`P (E(M`(I(L@p(k`P (Q(Tp(k (Y([((k`p H ` Ah (9`p`(r(ppp p @ p~CCp`A(p  A hP((`p (A A  `p88( ( p hhhP((P(P(@(hhAAuP((P(ƈP((hhHP((ㄈhP(݊(A[99P((hhP((Ȉ P(p ƈP((hhHP((PƊ(Pƈ((hhP( (hHP((Pƈ((hhP~~88((&P(#Pƈ((hhP(+(6hHP(0(2P((z(hhP(;(FhHP(@(BP((z(hhP(K(ghHP(P(~G5P00RP(p\ d @d  p cp ((h(j` @ pdpv ((d`pe`pf` h  px LLEH!!  p (` P (`ࠨ@ H px !p ` LrrLLb_ ZcR&a0C4DDD5_AMZR&a0C4D5CLcntl-D mode> _ FJNPf!j RQUPMLECBANr@G_f??X pnLINE_STYLE92074-1x057 REV.5020 <891116.1720>/SRC_92074/R5020/DO_CNTLD.FTN ?44E gSAVE_LIST IMAGE_NODES SCREEN_INFO  CHANGE_LIMITS CNTLD_CMD 4~LINE_STYLE;; 4.ENTR .CPM.SBST .SST.LBT.NFEX ADJUST_OFFSET START_MOD SCAN_LIMITS CMDSK ;==Aap`lpA`mp_aAc_hdPi( (.`()) +(QhdHPh(3(6`kp(QhdHPg(;(>`jp(Qhd@FFG@Pf(C(Fp(QhdPe(K(P MPc(](Q(]`p`a (\(\(,((,Fq~a OEPB U@%YYX*CNTLD_UNDO92074-1x058 REV.5020 <891116.1720> ,JDJ <891116.1720> /SRC_92074/R5020/CNTLD_CMDS.FTN Y44EgSAVE_LIST IMAGE_NODES SCREEN_INFO  CHANGE_LIMITS CNTLD_CMD 4X%CNTLD_UNDO44q; .CPM.IDLP UPDATE_SCREEN ADDRESSOF UNLOCKPAGE_IN EREASE_MARKS CMDSK 4~~{588p P(y`Aph(Rppp`ph(Fp~`@p`(B`@(4`@h`@hHp{0{`~]=99@p{`{88~($JN88(Up`@dpA (s(s`hp{`f{`p`hp{`e{` p(YpfFBvpe ygg? @Qp@@XiDRAW_ARROW92074-1x058 REV.5020 <891116.1720>/SRC_92074/R5020/CNTLD_CMDS.FTN @44E gSAVE_LIST IMAGE_NODES SCREEN_INFO  CHANGE_LIMITS CNTLD_CMD 4j-DRAW_ARROW.CPMUNLOCKPAGE_IN DRAW_PATH CMDSK +wqsakihj~~<<p` @(((z`@p`@p`@p @p  (5(5p `p (T (?(?`p `p (T (I(Ip `p (T ~llL00(S(S`p `p (T(zXP(z^ p ` @ p` (l` @~p(p` @}p` @ hx(ylN} @AAXEREASE_MARKS92074-1x058 REV.5020 <891116.1720>/SRC_92074/R5020/CNTLD_CMDS.FTN A44EgSAVE_LIST IMAGE_NODES SCREEN_INFO  CHANGE_LIMITS CNTLD_CMD 4VEREASE_MARKS -.CPMEREASE_POINTCMDSK ;;sp`p((`h px`@p(;  @8WMAAX~EREASE_POINT92074-1x058 REV.5020 <891116.1720>/SRC_92074/R5020/CNTLD_CMDS.FTN ATEREASE_POINT(.ENTR STRNG MOVE_CURSOR  $   dc &d@ @zBBXLDISPLAY_MARKS 92074-1x058 REV.5020 <891116.1720>/SRC_92074/R5020/CNTLD_CMDS.FTN B44EgSAVE_LIST IMAGE_NODES SCREEN_INFO  CHANGE_LIMITS CNTLD_CMD 4uDISPLAY_MARKS .CPMSTRNG MOVE_CURSOR CMDSK ~~q<<p`p(>(>`p`p`p`p(4(4`P()(0@P(/(0(7`K@p(7I:G`K@p( ~+A &dBC& d@D @[CzAAXq2MOVE_CURSOR 92074-1x058 REV.5020 <891116.1720>/SRC_92074/R5020/CNTLD_CMDS.FTN ACu9EDFLT ELCOM DBLVL 'MOVE_CURSOR ""M.ENTR .CPMOUTCHAR APPEND_INTSTRNG FLST"VV))`w@1@( (0`wp))`w ,!/$'.Vf* &a TCr_@|AAXFSCAN_LIMITS 92074-1x061 REV.5020 <891116.1720>/SRC_92074/R5020/CNTLD_SUBS.FTN A44EgSAVE_LIST IMAGE_NODES SCREEN_INFO  CHANGE_LIMITS CNTLD_CMD 44SCAN_LIMITS .ENTR .CPMCMDSK ~~??`E`E`D`D`p(@(@`p`p('('`A(.(.`(5(5A`(<(<``C@p(~ C @@@XB*IMAGE_BOL 92074-1x061 REV.5020 <891116.1720>/SRC_92074/R5020/CNTLD_SUBS.FTN @44EgSAVE_LIST IMAGE_NODES SCREEN_INFO  CHANGE_LIMITS CNTLD_CMD 4@IMAGE_BOL PAGE_IN CMDSK 44p` p pppp4@r@@X8IIMAGE_CHAR92074-1x061 REV.5020 <891116.1720>/SRC_92074/R5020/CNTLD_SUBS.FTN @IIH._9EDFLT ELCOM DBLVL gSAVE_LIST IMAGE_NODES SCREEN_INFO  CHANGE_LIMITS CNTLD_CMD IGIMAGE_CHAR%.CPMTHISC CMDSK ~~OL44 `(0`(F( (AE((p(>AD(0(0p`CP(("`Gp(/`BP (&()p(/`AP(-(/`Hp(>J(>~&&f4 (>`@p@`0@` p&jA ZA@@@XE?(IMAGE_EOL 92074-1x061 REV.5020 <891116.1720>/SRC_92074/R5020/CNTLD_SUBS.FTN @44EgSAVE_LIST IMAGE_NODES SCREEN_INFO  CHANGE_LIMITS CNTLD_CMD 4CIMAGE_EOL  .CPMUNLOCKBCOPY CMDSK PP##p @( (`@p`h&`h  Hp$x%$%"'P c & @F0d@@X^START_MOD 92074-1x061 REV.5020 <891116.1720>/SRC_92074/R5020/CNTLD_SUBS.FTN @IIH. 9EDFLT ELCOM DBLVL gSAVE_LIST IMAGE_NODES SCREEN_INFO  CHANGE_LIMITS CNTLD_CMD I]START_MOD [[.CPMREIO .IDLP UNLOCKBCOPY PAGE_IN IMAGE_EOL IMAGE_CHARIMAGE_BOL LIST_TBUFF STRNG MOVE_CURSOR EREASE_MARKSTHISC CMDSK [~~a55p((( `(j`p` pp @p`ph (fp 1 3`0 h xpx>~~~F<77 pxB` xpp`(`p`(T`(x([`p`p88(Kb88(.`p`p `ph (pu~jjOs..p`Aph (p`@hHp88(}p88(qj.P d_ N?@AAX-START_CNTLD 92074-1x061 REV.5020 <891116.1720>/SRC_92074/R5020/CNTLD_SUBS.FTN ARRI LOCK_ARRAYgSAVE_LIST IMAGE_NODES SCREEN_INFO  CHANGE_LIMITS CNTLD_CMD 9EDFLT ELCOM DBLVL RKSTART_CNTLD  ABORT CMDSK \\b&&p`p`pp`p`+@hp`(,p`*p(`@) 88((\) @@@XIF*END_CNTLD 92074-1x061 REV.5020 <891116.1720>/SRC_92074/R5020/CNTLD_SUBS.FTN @RRI LOCK_ARRAYgSAVE_LIST IMAGE_NODES SCREEN_INFO  CHANGE_LIMITS CNTLD_CMD 9EDFLT ELCOM DBLVL RGEND_CNTLD }_RTNOD RWNOD CMDSK ii4@''p`( `Np`p(`("`Np`p(`)p`(pi ( @ֺ??X)&PAGE_IN 92074-1x061 REV.5020 <891116.1720>/SRC_92074/R5020/CNTLD_SUBS.FTN ?RRI#  LOCK((_ARRAY gSAVE_LIST IMAGE_NODES SCREEN_INFO  CHANGE_LIMITS CNTLD_CMD 9EDFLT ELCOM DBLVL R GPAGE_IN   **.ENTR .CPM SWAPI SETFM GETFM RWNOD GETND CMDSK *~~'66p` pO(+O((`M(`@O(&(+p`N(`O@p(h38pN>~<55B`pM`pO`@pR`pN`P(Q(Sp`P(W(Yp]ag( m`O q @p`@hH ` J @1PH>>X9UNLOCK92074-1x061 REV.5020 <891116.1720>/SRC_92074/R5020/CNTLD_SUBS.FTN >RRI LOCK_ARRAYgSAVE_LIST IMAGE_NODES SCREEN_INFO  CHANGE_LIMITS CNTLD_CMD 9EDFLT ELCOM DBLVL R xUNLOCK O.ENTR SETFM ABORT NPRES CMDSK ccO00(`p(`p(8`@6hH6H7`@6(*`p(,`p2c 6 @Fd@@XkOLIST_TBUFF92074-1x061 REV.5020 <891116.1720>/SRC_92074/R5020/CNTLD_SUBS.FTN @Cu9EDFLT ELCOM DBLVL jLIST_TBUFFzFLST""k p`wp  `w "@1ZAAX]CHECK_TBUFF 92074-1x061 REV.5020 <891116.1720>/SRC_92074/R5020/CNTLD_SUBS.FTN ACu9EDFLT ELCOM DBLVL CHECK_TBUFF .ENTR .CPMLIST_TBUFFOUTCHAR ++A`w ( (+ 5_ @)SHBBXQUPDATE_SCREEN 92074-1x061 REV.5020 <891116.1720>/SRC_92074/R5020/CNTLD_SUBS.FTN B44EgSAVE_LIST IMAGE_NODES SCREEN_INFO  CHANGE_LIMITS CNTLD_CMD 4tUPDATE_SCREEN II  .CPM .LBT.IDLP UNLOCK OUTCHAR APPEND_INTSTRNG MOVE_CURSOR CHECK_TBUFF PAGE_IN CMDSK OUTPUT_MAPI}}[88p`p`p`Aph(ppp`phA(p`@p`(.`P(:5`p`p(H`P(H@}~~'@;;C F`p`p`(f`@phH p`P(Z(]`p`@p`0`p`(o n(r Ar (y(y`p |~TTDŽ{**`p`(@  ((`@( 88($ 88(T&a  RC @אָ@@XWn#DRAW_LINES92074-1x061 REV.5020 <891116.1720>/SRC_92074/R5020/CNTLD_SUBS.FTN @44EgSAVE_LIST IMAGE_NODES SCREEN_INFO  CHANGE_LIMITS CNTLD_CMD 4W"DRAW_LINES;.CPMPLOT_SEGMENTCMDSK FF`p`p`"@pJ(( `"@p`!@p( (F   @a@@XRD"DRAW_PATH 92074-1x061 REV.5020 <891116.1720>/SRC_92074/R5020/CNTLD_SUBS.FTN @44EgSAVE_LIST IMAGE_NODES SCREEN_INFO  CHANGE_LIMITS CNTLD_CMD 4QDRAW_PATH .ENTR .CPMPLOT_SEGMENTCMDSK BBH`p`!J@p((`p`!@p( (B ! @+J@@XnGDRAW_CYCLE92074-1x061 REV.5020 <891116.1720>/SRC_92074/R5020/CNTLD_SUBS.FTN @44EgSAVE_LIST IMAGE_NODES SCREEN_INFO  CHANGE_LIMITS CNTLD_CMD 4nDRAW_CYCLE.ENTR PLOT_SEGMENTDRAW_PATH CMDSK <<~ P(`P(`@p(<  @cBBX'ADJUST_OFFSET 92074-1x061 REV.5020 <891116.1720>/SRC_92074/R5020/CNTLD_SUBS.FTN B44E gSAVE_LIST IMAGE_NODES SCREEN_INFO  CHANGE_LIMITS CNTLD_CMD 4wADJUST_OFFSET 22.CPMMIN0MAX0 IMAGE_EOL IMAGE_BOL SCAN_LIMITS EREASE_POINT CMDSK 2}}44p` @(((`p`p`@ p@p`@p%`@p`@p3 `A@p:}811p`A@pBp`A@pJp` A@pR p`(\` @ppJ(a (j`@@@p@DDip(v(v`@pp(( } (v(D N @Z"xEEXBICNTLD_COPY_MOVE 92074-1x059 REV.5020 <891116.1720>/SRC_92074/R5020/CNTLD_COPY_MOVE.FTNE44EgSAVE_LIST IMAGE_NODES SCREEN_INFO  CHANGE_LIMITS CNTLD_CMD 4FCNTLD_COPY_MOVE << q-.ENTR .CPMDRAW_CYCLE COPY_RUNSCAN_AREA BLANK_RUN START_MOD ADJUST_OFFSET CMDSK <44APF(B GPF(B( "  ` p (:(: `hH`p `hH%%z5`p($>HPF(B(A% F @FdBBX0gSCAN_AREA 92074-1x059 REV.5020 <891116.1720>/SRC_92074/R5020/CNTLD_COPY_MOVE.FTNB44E gSAVE_LIST IMAGE_NODES SCREEN_INFO  CHANGE_LIMITS CNTLD_CMD 4i SCAN_AREA !!.ENTR .CPM.IDLP UNLOCKPAGE_IN CMDSK !4CCAp e(apdpAp( (Y`@(U`p`p(O(O`p`@(;(*(O`pA(O(O`@;;?H(O`p`p(*U`p(]f88d( ; )e @BBX((BLANK_RUN 92074-1x059 REV.5020 <891116.1720>/SRC_92074/R5020/CNTLD_COPY_MOVE.FTNB44EgSAVE_LIST IMAGE_NODES SCREEN_INFO  CHANGE_LIMITS CNTLD_CMD 4RBLANK_RUN o-.ENTR .IDLP UNLOCKPAGE_IN CMDSK FFR!! pp&(p$`@h%88$(!'F %  @`z:AAX+RCOPY_RUN92074-1x059 REV.5020 <891116.1720>/SRC_92074/R5020/CNTLD_COPY_MOVE.FTNA44E gSAVE_LIST IMAGE_NODES SCREEN_INFO  CHANGE_LIMITS CNTLD_CMD 4 *COPY_RUN !!.ENTR .CPM.IDLP UNLOCKPAGE_IN CMDSK !'::@p`J((K((Kp@("`@ @H(1(1@@pAP(GpO`@p`@&&>HpM0QM88O(8KQ& cP @BBX8CPLOT_SEGMENT92074-1x060 REV.5020 <891116.1720>/SRC_92074/R5020/PLOT_SEGMENT.FTN B??FSET_WORD_PARAM gSAVE_LIST IMAGE_NODES SCREEN_INFO  CHANGE_LIMITS CNTLD_CMD ?n PLOT_SEGMENT''?.ENTR .CPM.IDLP UNLOCK SET_WORDPAGE_IN CMDSK '~~@@ pp p p p p(,(,`p`p`pJ(3(3`p(:(:`p`P(= ~~~l%H::(T`p@p7R7p(V pZp (r`p`p7p7 p(tp`ph=(p9`(`>p(`~{{66P((`@p(`P((`?p(`>p 889({`( A B`( A((`p`pJ`p({t;??(`p((Š`p`P(5 p`phA=(5p8A= (`p@p77p(pJp ((77(`p`p77 p(p`( `:p(`P((`/SRC_92074/R5020/PLOT_SEGMENT.FTN @??FgSAVE_LIST IMAGE_NODES SCREEN_INFO  CHANGE_LIMITS CNTLD_CMD SET_WORD_PARAM? 3SET_WORD ?5INPUT_MAP CMDSK >88p`@p`p`P((`(((pp`p`(`p`0(0.p(~`p`P(F`p`~~;::(F@h"`0p`(X@p`(XT0p`(j`@p`(jf0p`(~`@p`(~~u xh"`0p`p))`  0(`p`0)} @0  @L ??XFŠ INPUT_MAP 92074-1x065 REV.5020 <891116.1720>/SRC_92074/R5020/INPUT_MAP.MAC? kINPUT_MAP  c.ENTR .LBT uuHBFFA!( (@$(@#(@h%H0"`"@ LOJ_PU?QTE ZR3A<DX%u@Vu`AAXCrŠ OUTPUT_MAP92074-1x064 REV.5020 <891116.1720> /SRC_92074/R5020/OUTPUT_MAP.MAC A zOUTPUT_MAP } `` ,9;,,9;999;;;;;.F(AG8($((($S$$$)%?A&]?4???4S444:AAAS444S444S444.R'QT7'#'''#W###.5@16/>+[>>+2+++)%?1&>?V???02B00:!111"MM2MMM2MMM)_?Q__?3???3W333)%?1&/SRC_92074/R5020/PLOTM.MAC= mAPPEND_INT OJ.ENTR ZDEC $A@2NFO  CHANGE_LIMITS CNTLD_CMD 4W"DRAW_LINES;.CPMPLOT_SEGMENTCMDSK FF`p`p`"@pJ((%ED000::RTE_6:5:36:128 644 0 0 22000 5310706776 33310 %ED000::RTE_6:5:36:128 $$8$%ED000 +#+#+#$6+,FST "IIXŢ:$EDIT_MSGM 92074-16055 REV.5020 850703 EO88s''FStart > stopNot found.EXEC ERROR. P1 - P6, A, B, RTN.ADDRESS DATASuspending.8@zIIX6cŢ:$EDIT_MSG0 92074-16055 REV.5020 850703 JYgSystem type of your terminal? _You are using IO mapping with a pre-A.85 versioVoK``n of IOMAP.Please enter "E" if your terminal is on a M, E or F-Seriesmachine or "A" if it is on an L or A-Series machine.!1: Use ? for helpFI, specifies file to edit.File is write p``rotected.An ER or the first WR will create it.Appending to file.Time stamping output file.!1 line read.!1 lines read.Read terminated before end of file found.Time stamp found.!1 aborted by useuu^e XXr!1 abortedend of editWork file error. _Work file !1Created file !1Opened file !1Illegal file type on file !1Type!1 files are illegal.Closed file !1Closed file !1Posted file !1u@LkIIX'SŢ :$EDIT_MSG1 92074-16055 REV.5020 850703 last line EC create, exit N line number W list window ' forward find ER replace, exit O c.``opy pl WC write, create ` backward find F find P edit pl WR write, replace :x marked line FC file close Q line edit X exchange FI file input R rQ*``eplace line Y X then F --special chars-- FL fill text RU run program # sequence @ indefinite G no list X S screen edit _ repeat ^ anchor H helpˊ`` SC screen copy ? help \ escape HL header line SE set options / command stack | cmd separator I insert line SH show options append line ?,commBB``and - command help ?,PA pattern information ?,RM recover mode ?,EX abbreviations ?,RE regular expressions ?,AB abort msgs. ?,PL pending line edits ?,LS line specifications /J ?,RO run options@m-IIX-Ţ!:$EDIT_MSG2 92074-16055 REV.5020 850703 MYEOF Limit No CF RECF RE!1!2 Matches !3Window!1, !2J@;IIXŢ!:$EDIT_MSG3 92074-16055 REV.5020 850703 ... TS =Max screen width..... SW =Not an option. Type SH to show all options and their setting.on off CC00Fill cols: first,last,end.. FL =Save Indentation on fill... IN =Control D mode............. CD =C@~BIIXOyŢ":$EDIT_MSG4 92074-16055 REV.5020 850703 >****** line XXXXXX ********* ctrl U reads *** ctrl U ctrl U aborts **̈́``***********>>------ line EOF -- O saves original text written to screenS saves text just read from screenB saves both (inserts screen text before original text)bWhat should be saved ? _St``art line not foundStop line not foundPut cursor on first line when edit is complete.Break - Workspace unchanged. Terminal driver is set for non-HP protocol and non-FIFO - screen mode unavailarn ble.Commands:Not Found@'''~~ EDIT_MSG0 $ EDIT_MSG1 ~ EDIT_MSG2 | EDIT_MSG3 ' EDIT_MSG4 T EDIT_MSGM ~IB1.M IB2.M IB3.M gIB4.M IFBRK IFTTY *IGN.L RIPB.M ISCAN <L.BUF +LBS.L LDN.M JLGO.M LNAMR nLOS.L 3LS4.M 4LS5.M ,LST.M kLSV.L %LWA.M 8M.ADD NM.BOR HM.BRT MM.CPN BM.CPS #ED1K6::RTE_6:4:2:34 644 0 0 1000 5310706776 33075 #ED1K6::RTE_6:4:2:34 $\"#ED1K6 +#+#+#+RFST * #ED1K6 92074-17003 REV.6000 <920925.1800>* * EDIT/1000 RTE-6VM LOADR COMMAND FILE.* !* If Edit runs out of base page links use the "RO" or "PS" command. !* OP,EB SZ,32, ** 24 TO 32 PAGES. THE LARGER, THE FASTER. ro* LIB,$ED1K6* * Edit's messages. * LIB,%ED000* RE,%EDIT* END "EDIT::RTE_6:4:165:45 644 0 0 122400 5310706777 34425 "EDIT::RTE_6:4:165:45 $`-"EDIT +#+#+#R"+VFST * "EDIT 92074-17004 REV.6000 <920904.1756>* * This is the Edit/1000 help file. It must be accessible#* to all users of Edit, because it is read every time a help command#$* is executed in Edit. If the hierarchical file system is being used,$* this file should be moved to /SYSTEM/EDIT.HLP * On FMGR cartridge it is "EDIT  "* for NLS help, the [more...] prompt is taken from this file. It is"#* indicated by '~ ' as the first two chars of the line. The responses #$* are currently hard coded as 'A' or 'a' or carriage return or any thing $* else.* ~~A ~~ASA[/] Abort Edit session. Asks "OK?" if any changes have been made;  the slash (/) suppresses asking.  AS[/] # Abort Edit session and save scratch file. The next time Edit/1000 is#! scheduled from the same session number, it will enter the recover !# mode and recover the Edit session. Always asks "OK?"; the slash (/) # suppresses asking. See ? RM for more info on recover mode. ~~B [1][$] B/pattern/ [A][V][Q][N]# Go to the beginning of the file (or to the first specified line), and#! search for pattern. Same as the F command, except that the search !" begins at line 1 by default, rather than the pending line. See also "" ? LS for line specifications and ? EX for a description of the A, V, " Q, and N options. ~~BM[.-1][*] BM start_col [:stop_col] [dest_col] [Q]" Block Move. Moves a rectangle of text from one location to another. "" The source rectangle height is specified by the command's line range "" and its width by the 'start_col:stop_col' column number parameters. "" The destination rectangle is the same size as the source rectangle, "# and its upper left corner is located at the 'dest_col' column of the # pending line. The source area is replaced by blanks, then the  original text is written over the destination area.  " If the ':stop_col' parameter is omitted, the width of the source is" determined the length of each line, on a line by line basis. If " 'dest_col' is omitted, it becomes the end of each destination line." The Q parameter specifies quiet operation. Example:   line before commands after  ---- ------ -------- -----  1 AAxxAAA /3 AA AAA  2 BByyBBB /1,3 BM 3:4 4 BB BBB  3 CCzzCCC CC xxCC  4 DDDDDDD DDDyyDD  5 zz ~~BK[1][$] BK ! Kill trailing blanks and truncate lines to the default line length !" By default, kills blanks and truncates every line in the file. The" default line length can be changed with the SE LE command and displayed with the SH LE command.~~BC[.-1][*] BC start_col [:stop_col] [dest_col] [Q]# Block Copy. Copies a rectangle of text from one location to another.#" The source rectangle height is specified by the command's line range "" and its width by the 'start_col:stop_col' column number parameters. "" The destination rectangle is the same size as the source rectangle, "# and its upper left corner is located at the 'dest_col' column of the #! pending line. The text from the source area is written over the ! destination area.  " If the ':stop_col' parameter is omitted, the width of the source is"" determined by the length of each line, on a line by line basis. If"" 'dest_col' is omitted, it becomes the end of each destination line." The Q parameter specifies quiet operation. Example:  line before commands after  ---- ------ -------- -----  1 AAxxAAA /3 AAxxAAA  2 BByyBBB /1,3 BC 3:4 4 BByyBBB  3 CCzzCCC CCzxxCC  4 DDDDDDD DDDyyDD  5 zz ~~C [.] Cstring  Perform a pending line edit (see ? PL), then go to next line.~~CO[.][*] CO [Q]  Copy lines in range to after pending line.~~D [.+1][$] D/pattern/ [A][V][Q][N]# Delete lines until pattern is found. Deleted lines are flagged with a #$ tilde (~), and lines that are not deleted are listed with line numbers.$! If the first line specification is not given, the pending line is! deleted (regardless of pattern matching).  To delete all lines that contain a matching pattern, use:  1 $ D /pattern/ A V   To delete all lines that do not contain a matching pattern, use:   1 $ D /pattern/ A ~~ECEC namr " Create file namr, write current file to it, and exit. See ? ER for" namr default information. ~~ERER [namr] ! Overwrite namr and exit. If namr is omitted, overwrite the source ! file. To see the source file name, use the ?? command.  namr defaults:  ! If namr contains a null file name and any other namr information,!" the source file name is inserted by default. Dashes may be used as"" place holders to specify a namr that contains the same characters in "" those positions as the source file. At signs can be used to specify " the default file name, or the default type extension.  Examples: If the source is INPUT1::DL, then the command ER -----2::DL overwrites the file INPUT2::DL ~~F [.+1][$] F/pattern/ [A][V][Q][N]" Find pattern in specified line range. By default, the search begins "" on the line after the pending line and continues to the end of file. "" When line specifiers are used, the full range specified is searched. "# Pattern defaults to the last pattern specified in any search/exchange#! command. When a pattern is specified, it becomes the new default. !# The command SH F will show the current default pattern. See ? EX for# a description of the A, V, Q, and N options. ~~FCFCL  Close list file. See ? L for a description of the list file. FCS ! Clo((se current file. Source file remains unchanged. This command! removes the default file for ER and WR.~~FIFI namr # File input. Clears the current work file and reads a new source file; # the ER and WR defaults are also reset. ~~FL [.][*] FL[Q][R][I] Fill text command.  Options: Q quiet operation, don't list changed lines.  R Remove indentation, (over rides current SE IN value) I Leave indentation, (over rides current SE IN value) # This command works over the column limits set with the SE FL command #! (and displayed with SH FL). The column is the left fill !! margin, the column is the right fill margin and the !! column is the last column to gather text from. Over the range of !" lines specified with the line specifications, this command attempts "# to fill each line between the fill margins. Lines that are too long ## will have their ending words moved to the next line. Lines that are #" too short will be made longer (if possible) by moving up words from "" the following lines. Paragraph breaks are indicated by lines that "# are blank between the column and the column inclusive. ## The first and last line of the line specification are also treated as # paragraph breaks. ~ [more (a to abort)] & The first word of a paragraph may be indented. Setting fill indentation on && (try the SH IN command) causes the fill command to not move the first word &" of a paragraph, but rather to start the fill after the first blank "& following the first non-blank character in the paragraph. Indentation may & be either positive or negative.  & The fill command will put one blank between words except in the case where &' sentence ending punctuation (! ? : .) is followed by a capital letter, where '' two blanks are used. The punctuation and capital letter will be 'seen' even '% if hidden by one or more quotes: ' or ) or ". However, the fill command %% will not put in two blanks where only one is currently in the line, thus, % for example, Dr. Foo will not be changed.  $ Advanced features: Fill is designed to allow filling of text in boxes. $& The boxes may be standard characters or, possibly, alternate character set &$ boxes. In order to do this it counts Escape and control sequences and $% attempts to use column numbers as they appear on the screen. In the case %$ of line drawing set boxes, the on and off control should be immediately $& before and after each edge, other wise the fill command may assume they are &% part of the text to be filled. Further, spurious control characters may % confuse the fill command. ~ [more (a to abort)] Fill examples:$ )BQ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;W $' *1)B: This is text in side of a box. A test to see if the : *1'' *2)B:fill code will actually work. These lines need : *2'' *3)B:to be filled. We also have numbers to keep track of the : *3'' *4)B:lines. : *4'' *5)B: : *5'$ )BA;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;S$&''''/''''1''''/''''2''''/''''3''''/''''4''''/''''5''''/''''6''''/''''7''''/'& sefl 5 65 67 sets up the columns :a :b fl fills the box and yields:$ )BQ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;W $' *1)B:This is text in side of a box. A test to see if the fill : *1'' *2)B:code will actually work. These lines need to be filled. We : *2'' *3)B:also have numbers to keep track of the lines. : *3'' *4)B: : *4'' *5)B: : *5'$ )BA;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;S$$Notes:If more lines are needed in a paragraph, they are created by using$& the break line prior to the column and after the column.& % If lines are left over after the fill, they are purged only if they % are totally blank. ~~G [.][*] G/pattern/substitute/ [N][R][S] X without listing. See ? X; also ? EX for an explanation of the N, R, and S options. ~~H ~~HE~~?  H [command] or ? [command]  Help! H or ? without specifying a command lists all commands.  ?? gives the current Edit session and source file name.~~HLHL [P] Header line. Print ruler to indicate line edit mode columns." The 'P' option makes the ruler the same length as the pending line."~~I [.] Itext " Insert text before pending line. Line specifier moves to specified" line before performing the insert. ~~J [.] J " Join next line to pending line. Line specifier moves to specified " line before joining lines. ~~K [.][*] K [max] [+][list namr] $ Kill up to max lines between the line specifiers. By default, only the$$ pending line is killed. If max is omitted and the line specifiers are $$ given, the entire range is killed. If the list namr is specified, then$# the killed lines are written to it. See ? L for a description of the# list namr. ~~KX[.] Kx" Set mark x (A <= x <= Z) at the pending line or the specified line."! Line marks can be used as line specifiers; see ? LS. Line marks !! are shown in the screen mode as ":x" in columns 79 and 80. Line !! marks and their corresponding line numbers are displayed with the! SH MA command. ~~L ~~LU~~LN[.][$] L [max] [+][list namr] $ List up to max lines within the specified range. By default, max = 20 $$ lines. The L command changes the pending line to the last line listed.$ " If the list namr is specified, the listed lines are written to it. "$ If max is omitted, and the list namr is specified, use commas as place $$ holders, as in: L,,list namr. If a plus (+) is placed in front of the$# list namr, append to the file and leave it open for further appends. ## If only the plus appears, then append to the current list namr. The # list namr is closed with the FCL command. LN# Numbered list. Same as L but print the line number before each line.#" The numbers are printed by subsequent LN or L commands until an LU " command is executed.  LU# Unnumbered list. Same as L but print lines without numbers. (Turns # off line numbering set by an LN command).~~LE[.] LE Display the length of pending or specified line in characters. ~~LILI Display the number of lines in the file. ~~M [.] M namr [start line] [{number of lines}]  { : stop line }# Merge namr into work area. The default line specifier is the pending## line; lines from namr are inserted after the line specifier. If start # line and number of lines is entered (ex. M file 50 11) then the $ specified number of lines from namr are merged. If start line, colon, $ stop line is entered (ex. M file 50:60) then all lines in the # specified range are merged. Line numbers may be larger than 32,500. ## The start line defaults to the first line of the file, and number of #$ lines defaults to the number of lines in the file. If only one of the $! line arguments after namr is given, it is assumed to be the start ! line, and all lines in the file after that line are merged. ~~MO[.-1][*] MO [Q] # Move lines between line specifiers to one line past the pending line.#" By default, the line before the pending line becomes the line after"# the pending line (the lines are swapped). If only one line specifier# is given, only that line is moved. ~~N N  Display the pending line number.  n Abbreviation for integer number as a line specifier; see ? LS. ~~O [.] Otext # Copy the pending line to one line past the pending line, and perform #" a pending line edit on the copy. See ? P for a description of the " pending line edit and its special control characters.~~P ~~PL[.] Ptext " Edit the pending line, using special control characters. If a line"! specifier is given, move to that line and perform the edit. The !" string that follows the P command describes how to change the line." The special characters are:  / (current prompt character) - No change at this position ctrl B - Break the line at this position ctrl C - Delete characters ctrl R - Replace characters  ctrl S - Insert character  ctrl P - Insert character (ctrl S is Xoff) ctrl T - Truncate line (chars beyond ctrl T are deleted) ctrl X - Extend line (chars after ctrl X extent the line) $ ctrl \ - non-printing escape char. (i.e. same as \ but non-printing)$ " The current prompt character can be changed with the SE PC command."~~Q [.] Q " Edit the pending line with the terminal's edit keys. Ctrl-A CR and"& ctrl-Z CR position the cursor to the beginning and end of line respectively. &~~R [.] Rtext $ Replace pending line with text. NOTE: If the first character in text $$ is the letter "U", then the default escape character (\) must be placed$# in front of it to prevent Edit from confusing the R command with the # RU command. For example:   /R\User's Guides should be easy to read.  The escape character can be changed with the SE EC command.~~RO Run String Options ! Edit allows several run string options after the program name and!! before the file name. All options start with a minus sign ("-").! They are: ! -B Batch mode. Abort Edit if any terminal input is required. ! Also turns on quiet mode. " -L:n Set line length. "n" is an integer number of characters that " becomes the maximum line length.  % -Q Quiet mod((e. Do not list anything to the terminal. Automatically%! turned off if terminal input is required, or by SE QU OF.! $ -R Enter recover mode. The file name is the work file to recover.$  -S::directory Specify work file directory. " After the file name, Edit allows a string that is interpreted as the " first command. For example, a batch mode edit job on the file # "text_file" that reads command from the file "cmds.edc" is started by: #  EDIT -B text_file|TR cmds.edc ~~RU RU program [string] # Run a program. The run string is shifted to uppercase, and commas are ## inserted to replace blanks. To pass a string without case shifting or #" comma substitution, surround it with back quotes (`). For example:"  /RU program `Pass this string without modification.`   To pass a back quote in a string, double it (``).~~S [.-10][*+20] S$ Screen Mode. By default, the screen consists of 21 lines: the pending $% line, ten above, and ten below. The line specifiers only affect the size %& of the initial screen; when moving from screen to screen, the default size && (PL and +/- 10 lines) is used. Also, when moving forward or backwards, two &# lines from the old screen appear on the new screen. The size of this #" overlap and the default size can be changed with the SE SD command. "  Screen mode commands take the form: ! [] ! & When a command is doubled, the current screen is NOT read before executing && the command. All editing performed on the screen is lost; the work file is && left unchanged. For example, reads the current screen into && the work file and quits the screen mode, but aborts &% the screen mode without reading. Any command can be canceled before the % by typing any other character.  % For the ctrl-C command, if the screen is to be read before the line mode %% command is executed, the prompt is "/"; if the screen is not to be read, % the prompt is "\". ~ [more (a to abort)]   The screen mode commands are:" ctrl-A - Move the cursor to the first non-blank character on the" current line and reset the terminal margin settings.  ESC 4 ctrl-B - Break line at cursor position" ctrl-C - Prompt for one line mode command, execute it, and return " to screen mode. ctrl-D - Enter ctrl-D mode (see below) ctrl-F - Go to following screen. ctrl-J - Join two lines." ctrl-K - Set mark: Places a colon in column 79 to prompt for the " mark, a letter between A and Z; see ? Kx. ctrl-O - Copy the current line.  ctrl-P - Go to previous screen.  ctrl-R - Same as ctrl-P (ctrl-P unavailable on X.25 pads).  ctrl-Q - Quit screen mode (return to line mode). ctrl-S - Go to next screen, with current line at the top. ! ctrl-T - Same as ctrl-S (to allow XON/XOFF terminal handshake.) !$ ctrl-X - Go to extended (long) screen mode, with current line at top. $# Extended screen size is set by SE SL, and shown by SH SL.#! ctrl-U - Same as ctrl-Q (to allow XON/XOFF terminal handshake.) !! ctrl-Z - Move the cursor to the last non-blank character on the ! current line and reset the terminal margin settings. ~ [more (a to abort)] %For terminals with wide screens: Edit senses the screen width on the first %%stack mode or screen mode command. The screen width is displayed with the%#SH SW command and changed with SE SW. If it is changed to 0, edit will ##resense the screen width on the next stack mode or screen mode command. # "The control-D (ctrl-D) mode is a submode of screen mode editing. It"$incorporates some line graphic editing commands into screen mode. This $#submode is called control-D mode, because it is entered by typing the #$control-D character while in screen mode. Control-D mode may be enabled $'either by typing control-D carriage return while in screen mode or by turning '$it on with the SE CD command. In either case, display functions will be $&turned off. Once enabled it stays enabled until it is disabled with another &%SE CD command. When control-D mode is enabled, screen mode backspaces are %&destructive and DEL or rubouts echo \ followed by carriage return linefeed. & %To use the line drawing or ctrl-D features of edit, your terminal must have %%the line drawing character set installed and enabled (usually it is enable%#with an the sequence "escape,right parenthesis, uppercase B".) Edit's #%display functions flag should be set to off with the command "SE DF OFF". %$Printing your creation can be done using the HP-2680 laser printer, the $laser jet or any printer that supports the line drawing sets.  ~ [more (a to abort)]  %When you enter a control-D during screen mode, edit responds by turning on%$inverse video at the current cursor position. It also saves the screen $%location of this point in an internal list of points. Entering additional %&control-Ds displays additional inverse video marks on the screen and adds a &"point to the points list. These points become the arguments to the " control-D mode commands. $Whenever there is an inverse video point displayed, you are in control-D $"mode. While in control-D mode characters are not echoed as they are "%entered. They are interpreted as control-D mode commands (see list below) %&when the return key is pressed. On systems without the new serial drivers, &&due to an incompatibility in the MUX driver, characters are echoed. To enter &%a command, first type ctrl-C followed by carriage return. Edit will open %up a line on the screen and prompt with: ctrl-D mode> #At this point you should enter one of the control-D mode commands. The #%prompt and the command will be erased and executed when you press carriage %return.  ~ [more (a to abort)] $If the entered characters do not form a valid control-D command when the $#return key is pressed, the terminal bell is sounded and the cursor is #placed at the last point in the list.  %To erase the last point in the control-D list, position the cursor to the %$display point and enter another control-D. This will erase the inverse $%video mark and the point for the list. enter the control-D mode To remove % all points, command "Q". &Lines and edges must be horizontal or vertical. When two consecutive points &#having different row and column addresses are used to define a line or #$edge, a horizontal line or edged is defined first followed by a vertical $line or edge to reach the second point.  $Control-D mode commands are defined below. They are all single character $%commands, sometimes followed by options. In the list below, things inside% of angle brackets are options, and are define later in the list. ~ [more (a to abort)]   A Arrow. Draw a path (see P command for definition of a " path) through the defined points and put an arrow"% head at the end of path. (Arrow heads are not displayed%% correctly on most terminals, however, the laser jet with %# line drawing character set fonts will display them.) # !B Box. Draw a closed polygon through the defined points.! !C Copy. The last point is saved as a locator point then!# removed and from the list. The area defined by the## closed polygon through the remaining points is then#" copied so that the first marked point is on top of " the locator point.  #E Erase path. The path (see path command) through the points# is erased (same as P E command.)  "L Lines. Take the point list as pairs of points and draw " lines between the pairs.   ~ [more (a to abort)] "M Move. Same as copy, but erase the original area before " the copying.  !P Path. Start at the first point in the list and draw a !# line through each consecutive points until the end #" of the list is reached. As always, if two points "" are not aligned horizontally or vertically, draw "" the horizontal line first followed by a vertical " line.  #Q Quit control-D mode. Erase all marks and return to normal# screen mode.  #R Re-mark. Restore the marks of the previous control-D mode# command and re-enter control-D mode. If the ! previous command was a copy or move, the locator ! points are not restored.  U Undo. Undo the last control-D mode command. ~ [more (a to abort)] Options: "N No-read. Normally the screen will be read before a control-D mode "" command is executed. If there have not been any screen"" mode changes to the area to be affected by the control-D "! mode command that is going to be executed, the screen! read time can be saved by entering a "N" with the command.   E,B,P Line style options:  * B Bold. Example boxes: )BQ;;;;;;;;;W ?9999999999? R,,,,,,,,,,,T *, E Erase. )B:Bold box : )Paired box) .Normal box . ,* P Paired. )B A;;;;;;;;;S ?9999999999? F,,,,,,,,,,,G * ~~SCSC! Screen copy. Copy everything on the terminal screen into the work ! file. Stops after 24 zero-length lines are found. ~~SESE option [value1 [value2 [...]]]  or SE optio((n [ON/OFF] # Set Edit options. There are two kinds of options: value options and ## switch options. Value options are variables that contain one or more#$ characters or numeric values, such as the search pattern or the screen $$ defaults; if the value parameter(s) are omitted in an SE command for a $" value option, it is reset to its initial value(s). If ON or OFF is"! omitted in a SE command for a switch option, it is toggled. The ! values of the options can be displayed by using the SH command. ~~SH~~?? SH,option or ?? option # Show an option or default value. SH displays the current settings of#" all options. ?? shows the current file and Edit clone names. The " options can be set with the SE command.~~SZSZ" Display the size of the work file up to the pending line, in words."~~T ~~TA~~TF~~TM~~TP~~TS~~TL~~TUT [n1 [n2 [n3 ... [n10] ... ]]] $ Set up to thirty tab stops, at columns n1, n2, ..., and at every column$ after the last tab stop specified. All tab commands display the  tabs as set, as in: T T TTTTTTTT" Tabs may be set beyond the screen width, but only screen width (SW) "! tabs will be set on the terminal. These are useful in line mode ! editing. TA" ASMB tab stops: columns 7, 21, and every column after 21 (default). "TF" FORTRAN tab stops: column 7, and every 4 columns until tenth stop."TM" Macro tab stops: columns 10, 26, 40, 44, 48, and then every column. "TP" Pascal tab stops: every 3 columns until tenth stop, and then every " column. TU HP-UX tab stops: every 8 columns.TS Line up tab stops for screen mode editing (default). TL% Line up tab stops for line mode editing (shifted two spaces to the right). %~~TK[1] [$] TK$ Tab Kill. Replace any tab characters (ctrl-I) with the number of blanks $ required to extend the text to the next tab column. ~~TI[.] TI n" Replace columns n through n+30 in the pending or specified line with " the current date and time. ~~TRTR namr [Q] " Transfer command input to namr. Commands are echoed to the terminal " if the Q option is omitted.~~U [.][*] U/pattern/substitute/ [Q]# Unconditionally replace xxx number of characters with the yyy string.#" The number of characters in the xxx field determines the number of "$ characters to be deleted starting at the window column. After deleting$ the characters, the yyy string is inserted. Default patterns are the same as the X command.~~UNUN! Undo last change. Works for CO, D, J, K, M, MO, SC, U, X, Y and ! pending line edits. Commands which do not change the workspace " do not affect what undo does. 'SH UN [n1] [n2]' will list an Edit "# script of what the next 'UN' command will undo. The optional n1 and #! n2 are the starting line and stop line count of the Edit script. !~~UY[.] UY [first undo line number] [number of undo lines]% Undo-list yank. Put the contents of the undo list into the current file,%% merging it after the first line spec. Numbers after UY tell the starting% line and stop line count of the undo list to merge. # This command ignores the line numbers and the I or R (insert/replace)#$ flags in the undo list. It also leaves the undo list unchanged, which $" can still be executed with 'UN'. Use 'SH UN' to see the undo list."~~W ~~WU~~WN[.-10][*+20] W List a window of lines and return to current pending line.  WN# Numbered window list. Numbers stay on until a WU command is entered.# WU% Unnumbered window list. Numbers stay off until a WN command is entered. %~~WCWC namr # Create namr, write current file to it, and remain in Edit. See ? ER # for namr default information.~~WRWR [namr]  Write to the source file and remain in Edit. See ? ER for namr default information. ~~X [.][*] X/pattern/substitute/ [N][Q][R][S] # Exchange all occurrences of pattern to substitute in specified range.#" When a substitution occurs the new line and line number are listed."# The R option removes zero-length lines. The original line is flagged# with a '~' and listed.  The S option permits only a single exchange per line.  If a null pattern is given then the F command pattern is used. # If no pattern or substitute is given then the last X, U or Y pattern # and substitute are used. ~~Y [.] Y/pattern/substitute/[N][Q][R][S] ! Exchange pattern to substitute on line specified, then find next !$ occurrence of pattern. Default patterns are the same as the X command. $~~# #CCC n1 n2 Add line sequence numbers in columns 73 through 80.# CCC is a 3-character string, n1 is the starting number to print and # n2 is the increment. ~~_ [1][$] _ [n][Q]  Conditionally repeat all commands on a command line 'n' times.  The optional Q will suppress listing during repeats. ! Enter your command to be repeated, the command separator, and then !# this repeat command. If the pending line is in the range given by the # line specification, the command line will be repeated. " If the 'n' number is given, the command line will be repeated up to" 'n' times. If it is omitted, the command will repeat until the  pending line is outside the (now required) line range. ! For example, to copy the pending line 25 times (using the default! command separator "|"), enter:  O|_25~~/ /[n]% Command stack. Place cursor on command and carriage return to execute it.%$ The commands may be edited with the terminal's edit keys. The optional$ n will show the last n commands (default is 20). ~~SP~~text  Append text after pending line and make it the pending line. ~~* *  Comment line, or value of line spec 1.  If * is in column 1 then the line is ignored. A * in line spec 2 means the value of line spec 1. ~~^  ^ In line specifications, ^n means backwards n lines. See ? LS. % In search patterns, ^ is the default anchor character. See ? PA or ? RE.%~~\  \$ Default escape character. The character following the escape character$$ is interpreted as the character, not as a special character. See ? RE.$ The escape character can be changed; see ? SE.   Also control \ is always and escape character. ~~| |  Default command separator. Several commands may be placed on a " command line or in the Edit runstring, separated by this character."! For example: RU,Edit,file,tp|ts|s. The command separator can be! changed; see ? SE. ~~EX~~CTRL~~OK~~NAMRAbbreviations:  [x] - Optional parameter. Q - Quiet option. Do not list lines as command executes. " A - All option. Match all occurrences on B, D, or F command." V - Reverse match direction for commands that search.# N - No window option. Match anywhere on a line for B, D, F, X.#! S - Single option. Permits only one exchange for X and Y. !" ctrl - Control characters are typed while "ctrl" is also pressed. " n - Integer in range 0 < n < 32768.& namr - File descriptor: [/path/]filename[:security[::type[:size]]][>node] && or FMGR namr--filename[:security[:cartridge[:type[:size]]]][>node] & re - Regular expression. See ? RE.  pl - Pending line. See ? PL. # OK? - Do you really want to execute the command? Asked only for #" "dangerous" commands that alter large areas of text. Can" be suppressed with "SE AS OFF" command. "A comma or spaces may be used to delimit parameters when necessary. "!Two or more commas in a row specifies that the default value for a! parameter should be used. ~~RE$Regular Expressions: A kind of string specification for search/exchange $& commands that uses regular character strings and "metacharacters" to define &" match strings. Any metacharacter can be "escaped" to represent the "& character itself, rather than the special meaning of the metacharacter, by & placing a backslash (\) before it. The metacharacters are:   . match any character except the end of a line ^ anchor search to beginning of the window or line $ end of the line or window, whichever is shorter  [xyz] a class of characters (any one of these characters)  [^wxy] negated class (all but these characters) * zero or more occurrences of the previous pattern + one or more occurrences of the previous pattern  exactly n occurrences of the previous pattern  @ match zero or more characters (shorthand for .*)  : delimiter between alphanumerics and other characters {xyz} tagged field; recalled by &n in the substitute string  &n n'th tagged field; used only in the substitute string  (1 <= n <= 9; '&' by itself is the substitute field) >n same as &n, but shift substitute string to upper case  insert a new line; used only in the substitute string  ~ [more (a to abort)] " A dash between alphanumerics in a character class specifies a range, "# such as [0-9], [A-Z], or [A-Z0-9]. Character classes may also include #" escaped metacharacters such as [\^\\], which is the class containing "# ^ or \. Matches containing *, +, or @ extend to the longest possible# match.   Examples :   To change the word IN to INPUT, but not LINE to LINPUTE, use:  X/:IN:/INPUT/   To change GETC(XXX) to GETCH(XXX,FILE), where XXX can vary, use:   X/GETC({[^)]*})/GETCH(&1,FILE)/  Regular expressions are enabled with the SE RE ON command. ~~PA~~@ Pattern  " A character string to be found in a search. There are two kinds of"# patterns: standard patterns, described here, and regular expressions;#" see ? RE. Patterns are delimited i((n search/exchange commands by any " matched punctuation characters except commas or spaces. # The search window applies to all searches, except when the "N" option#! is specified. If the search pattern begins with a caret (^), the!$ search is anchored to the left side of the window--the match must occur$# at the beginning of the window. When the caret is omitted, the match# may occur anywhere in the window. # The at-sign (@) is the default indefinite, or "wildcard" character; it #$ matches any string, making the shortest match possible in the line. The $" backslash (\) is the default escape character: it is placed before a "# special character to make the character represent itself, rather than#" its special character meaning. The indefinite and escape characters " can be changed; see ? SE. ~~LS~~+ ~~- ~~. ~~$ ~~> ~~` ~~``~~' ~~''~~: ~~:X Line specifications  & Many commands can use optional line specifications to identify the range of &$ lines that the command affects. The specifications can be absolute or $& relative (+ or -) line numbers, or any of the following special characters: &  . the pending line  $ the last line in the file  > (same as $)  -[n] negative n lines relative to pending line  ^[n] (same as -)  +[n] positive n lines relative to pending line  * same line number as the first line specification (legal only as the second line specification)  :x marked line, where marks (indicated by x) are A-Z  'pattern' search forward to line containing pattern  `pattern` search backward to line containing pattern  If a null search pattern is given ('' or ``) the last pattern specified in any search/exchange command is used by default. ! If a pattern is specified, it becomes the default for subsequent ! search/exchange commands.   ~ [more (a to abort)]   Example:   . +10 X/pattern/substitute  " Replaces all occurrences of pattern between the pending line (.) "" and the tenth line after the pending line (+10) with substitute. "~~RMRecover mode $ If Edit aborts for some reason (e.g., system goes down), it will leave $# its scratch file on disk. This scratch file contains all the changes## made during the edit session and can be used to recover the work done## before Edit was aborted. The name of the scratch file is constructed#" based on the clone name of the Edit program that was running (e.g.,"" EDI55) and therefore is specific to a certain Edit session (see the"" Edit/1000 User's Guide for a description of the scratch file naming"% conventions). When Edit is run, it tries to create a scratch file using %$ this specific name. If it finds a file already existing by that name, $$ it assumes it was left behind by a previous edit session, and Edit will$ enter 'recover mode'.  # From recover mode, the user may use any find or list command, but may#& not make any changes. To exit recover mode, use "EC namr" or "ER namr" to &% create a new file or update an existing file with the text recovered from%& the edit scratch file. Recover mode may also be terminated with the abort &% command ("A"), in which case Edit will purge the scratch file and discard% all the changes.   ~ [more (a to abort)] % Recover mode may also be entered by explicitly giving Edit the name of an% edit scratch file to recover, as follows:  :RU,EDIT,-R,scratch  % where "scratch" is the file descriptor of a scratch file created by Edit.% $ The user may specify where the scratch file is to be created using the $ following runstring command:   :RU,EDIT,-S:: ! Edit will then place its scratch file on the directory specified.!~~ABAbort 000xx  # If Edit finds an internal inconsistency it will report the error and #" abort itself. Such errors are extremely rare; if they ever occur, "! numbers less than 20 may indicate a hardware or software failure.! Numbers 20 or greater are reported during recovery mode.   00001 Not enough room on disk for first extent request. 00002 Frame lock error in scratch file. 00003 Disk write error on node directory of scratch file. 00004 Disk read error on node directory of scratch file.  00005 Illegal disk track requested for scratch file.  00006 Line length in scratch file too long. 00007 Illegal extent request for scratch file. " 00008 Disk write error on first write; work file has not been" changed. Purge the scratch file and re-run Edit. 00009 Attempt to allocate a frame and all frames locked.  00020 Disk read error on first recover read.  00021 Frame size words do not match in recover file.  00022 Recover frame size words not correct for this Edit.  00023 Both head and tail missing in recover file.~~DA EDIT/1000 REV.5020 <920904.1756>XFMP.LIB::RTE_6:5:224:128 644 0 0 160000 5310707002 34754 XFMP.LIB::RTE_6:5:224:128 $XFMP LIB +#+#+#o+FST \??XLIBRARYHEADER 92077-12010 Rev.6000 <920430.1214>/SRC_92077/R6000/XFMP.FTN ?gLIBRARYHEADER kIp@6pU0??X?FMPCREATEPIPE 92077-1Y010 Rev.5020 <920430.1214>/SRC_92077/R6000/XFMP.FTN ?FMPCREATEPIPE 6.ENTR .SST.NFEX .MBTINTTOHEXCLRQ FMP_PIPES_xxxx::FMP_PIPECC5%%9p = (/$5 h8`6A5@9;`>(.C 4 S  5 f @@??X/aFMPOUTFLOWCTL 92077-1Y010 Rev.5020 <920430.1214>/SRC_92077/R6000/XFMP.FTN ? Af6FMPBUFFER FMPOUTFLOWCTL &&i.ENTR .LBT.MBTFMPBUILDNAMEFMPPARSENAMEHEXTOINT&}}%@@ARPPZX+V,-.ThY`ON#Xp(+``6RZ\+V,-.HThMP^(>`_(*IR}ޓA ZX+V,-.T(*))υL 0^0 0T0 0P@0 0^ )@c<<X4lFMPOPEN 92077-1Y010 Rev.6000 <920430.1214>/SRC_92077/R6000/XFMP.FTN <Bl6FMPBUFFER  FMPPIPEKEY 7FMPOPEN   ccEXEC.CPM.ENTP .SCO.INDX .LBT.CBTCLEARBUFFER RNRQCLRQ IDADDTONUMBER .XLA MYIDADD FMPCLOSEHEXTOINTRFMPOPENFMPPARSENAME $TIME c a H LL`pc `ccpc wu-w{yA}(3pa`thAs(=0a(Y`cP(E(OM wup (WV wup ~~ؖW99` hrP(`` (Wdo p (k` (^hnP(p(sp(~wy p (~` (^  p` (`@pa apa ~@$GG (0apa A0ap upaAu0ap upau0a((Y`0paa}(Y (\A(ӈ(po( (`opm~~5PCC (Y`'00mp(`@ (,` (, (\ (\p } (Y (\ (\`A0pa#am(\~~~Te$::`P (((\`'0p0 ` @ h`}@ h`@ h`o@ h`@ h`@ h`@ h`s@ h`@ h` (^` (^` ~^ p (Whh=dCCW w R r FMP_PIPES @P@@T @@P@@@T@   @ @@@ 誀@ @h@k䊤??XFMPACCESSDISC 92077-1Y010 Rev.5020 <920430.1214>/SRC_92077/R6000/XFMP.FTN ? ATFMPPIPEKEY u FMPACCESSDISC  //EXEC.ENTR RFMPACCESSDISCRNRQIDNUMBERTOADD .XLAFMPBUFFERSIZE /~~y==A`((p('p`@p"@p֡hH(-(`(1(Q`@p֡9(`(>(`@ ~~~PAEEHpxMـ׀(p(`@(@A0pc((ր(x(z`@hHApxx(Έ(`PhX 0(`~~~DD@hHpքxـ(@0pA(x`PhX 0((`؈@pڀր((((Ȁp`~""p  `(ӈ`(`ለp(" z6@ @wrfc @y9<<X5BZFMPCLOSE92077-1Y010 Rev.5020 <920430.1214>/SRC_92077/R6000/XFMP.FTN < 8FMPCLOSE  ~.ENTR RFMPCLOSE RNRQCLRQFMPPOST ~~J@@`Y( (C`V@(2(O`S@pRUR(J@pR&UR(M`S@pR/UR(>('(>`S@pR:TR(J(J~,,?Ap(HGp``X(O`Wp(H,ĮS@ @@K==XFMPSETWORD92077-1Y010 Rev.5020 <920430.1214>/SRC_92077/R6000/XFMP.FTN = Af/FMPBUFFER \FMPSETWORD FMPSETWORDPOS  UU ".DSB .DSBR .DCO.ENTR .DMOD RFMPSETWORD RFMPSETWORDPOSFMPBUFFERBASE FMPDISCOFFSET FMPEXTENTBASE FMPPOST FMPBUFFERSIZE U@@ ("A `p` p`p`p`p (% p('`p`(+(G4 J `pAh@.D==J0(P(`@h@`J   J J  `@hHpx x{`@VV))p`@hG x`@hH(`( p( p`p(Vڨ  @J >>XȳFMPSETRELPOS92077-1Y010 Rev.5020 <920430.1214>/SRC_92077/R6000/XFMP.FTN >pFMPSETRELPOS ߰.ENTR RFMPSETRELPOS  Ʃp` @;|??X &FMPBUFFERBASE 92077-1Y010 Rev.5020 <920430.1214>/SRC_92077/R6000/XFMP.FTN ? _FMPBUFFERBASE  ei.ENTR RFMPBUFFERBASEFMPDISCDIFF << A`%( (`$@h#Hpx ! (<y! @I$ ??X"FMPSETPOSITION92077-1Y010 Rev.5020 <920430.1214>/SRC_92077/R6000/XFMP.FTN ?%FMPSETPOSITION ' .ENTR RFMPSETPOSITION 552A`( (`p(p`5 M @.V<<X# FMPPIPE 92077-1Y010 Rev.5020 <920430.1214>/SRC_92077/R6000/XFMP.FTN < 'FMPPIPE   .ENTR ȥ A` p` N  @1hP(AAXFMP_PARTNUMBER92077-1X503 Rev.6000 <920429.1512>/SRC_92077/R6000/XFMP_FMP.FTN AFMP_PARTNUMBERkIp@<<XYe}FMPAPPEND 92077-1X503 REV.2326 830728 /SRC_92077/R6000/XFMP_FMP.FTN < Af@FMPBUFFER r FMPAPPEND  :: f .DIN.ENTR .CPMMOVEWORDS FMPGETDATAFMPSETWORDFMPGETLENWORD FMPREAD FMPINFO :}}O8@@`w@|((`w@( (`z (p`x@((`{ (p. (p`(D (=< v(3`z (A(C (pH }VVH,,p (pP(pTyZ v(p a v(p `u@ptptw p` Vu 5@&<<XSFMPDEVICE 92077-1X503 REV.2326 830728 /SRC_92077/R6000/XFMP_FMP.FTN <lFMPDEVICE  Լ.ENTR DCBOPEN --22A (`@p(p`-  @㨣>>XFMPEXPANDSIZE 92077-1X503 REV.2326 830728 /SRC_92077/R6000/XFMP_FMP.FTN >FMPEXPANDSIZE   +W.DMP.ENTR **©A(@(@A* ] @>>XFMPINTERACTIVE92077-1X503 REV.2326 830728 /SRC_92077/R6000/XFMP_FMP.FTN >FMPINTERACTIVE .ENTR IFTTY FMPDEVICE 22UA(`@pp(p`2  @Bia)==XG FMPIOSTATUS 92077-1X503 REV.2326 830728 /SRC_92077/R6000/XFMP_FMP.FTN = AOFMPREGS .FMPIOSTATUS .ENTR  ``@;h==Xk!FMPPACKSIZE 92077-1X503 REV.2326 830728 /SRC_92077/R6000/XFMP_FMP.FTN =;FMPPACKSIZE   .DAD.DDI.DNG.DCO.ENTR ,,&AA((AAHx(x`,'?@i>>XEFMPREADSTRING 92077-1X503 REV.2326 830728 /SRC_92077/R6000/XFMP_FMP.FTN >FMPREADSTRING  %%+V.ENTR .CPM.SBST .SST.NFEX FMPREAD UT.BF %ee88A=`=pA?((`D(3p`(!(,:?CD=:H(3`(3=AH(8p`e< @x@D$b<<Xs'FMPRWBITS 92077-1X503 REV.2326 830728 /SRC_92077/R6000/XFMP_FMP.FTN <FMPRWBITS   q.ENTR .INDX 44KA Ap $(`&A@p "(`p`4 W R <>@N1l==X=FMPSHORTNAME92077-1X503 REV.6000 920429 /SRC_92077/R6000/XFMP_FMP.FTN = Af@FMPBUFFER gFMPSHORTNAME  .ENTR FMPBUILDNAMEFMPPARSENAMEFMPFILENAME CC1 ''A  p ` (2':8 6  42:8 6<<<4` C4 @P@ @P@>>X-FMPWRITESTRING92077-1X503 REV.2326 830728 /SRC_92077/R6000/XFMP_FMP.FTN >3FMPWRITESTRING  .ENTR .CPM.SST.NFEX FMPWRITEUT.BF II&&A(`(pA*((`,(!A*( p(&p`Ip( `@7VX>>XLRFMPACCESSDISC92077-1X503 REV.6000 920325 /SRC_92077/R6000/XFMP_FMP.FTN > AV FMPREGS RFMPACCESSDISC 11P.DCOEXEC.ENTR .CPMDISCWORDRMPAR FMPBLOCKSLEFT FMPBUFFERSIZE 1TXCCA('p(1p$G h@ (1(1` p`@p`@p(tA(E(E`p(I(Np `p (R`p ~~ QAAp pa (e`(k`A(q `p (py@p`p(p x ` P((`((`~33@hHp0` p x `(`p (3UDSRTR @? $@^}M>>XFMPBLOCKSLEFT 92077-1X503 REV.2326 830728 /SRC_92077/R6000/XFMP_FMP.FTN >kFMPBLOCKSLEFT  ,,#.DAD.DSBR .ENTR FMPBUFFERBASE FMPEXTENTSIZE FMPEXTENTBASE ,//1A A/@K >>X%RFMPBUFFERBASE92077-1X503 REV.2326 830728 /SRC_92077/R6000/XFMP_FMP.FTN >RFMPBUFFERBASE .DAD.ENTR FMPEXTENTBASE FMPDISCDIFF ::A`$@h#Hp`"@p!x  !A: "  @7 U>>XFMPEXTENTBASE 92077-1X503 REV.2326 830728 /SRC_92077/R6000/XFMP_FMP.FTN >yFMPEXTENTBASE  Bc.DMP.ENTR FMPEXTENTSIZE ''A`@@A'  @'>>X%FMPEXTENTSIZE 92077-1X503 REV.2326 830728 /SRC_92077/R6000/XFMP_FMP.FTN >FMPEXTENTSIZE   ,N.DNG.ENTR 77A`$@p((`(`5h@(hH@#G7 # @ ,b<<X]@:FMPGETDATA92077-1X503 REV.2326 830728 /SRC_92077/R6000/XFMP_FMP.FTN <vFMPGETDATA .ENTR FMPACCESSDISC ^^22A`6@  0(/`6@(/`8@p3%397(/`6@h6Hp3053p`^5@B->>X$FMPGETLENWORD 92077-1X503 REV.2326 830728 /SRC_92077/R6000/XFMP_FMP.FTN > FMPGETLENWORD  $0.ENTR FMPGETDATA==u`"@#( (`!@@p`p(=    @_J~ ??X$7FMPLASTFILENAME 92077-1X503 REV.5000 860312 /SRC_92077/R6000/XFMP_FMP.FTN ?#FMPLASTFILENAME ..>;.ENTR MIN0.SBST .NFEX FMPPARSENAMEBYTSTRINGADDRESSNONDSLEN.NN[B//333@p`3p11p1A1313/1555N 3  @U>>X SFMPREPORTERROR92077-1X503 REV.2540 850723 /SRC_92077/R6000/XFMP_FMP.FTN > Af@FMPBUFFER #FMPREPORTERROR &&EXEC.ENTR .SBST .SST.NFEX TRIMLEN FMPERROR&WW22J#NLNJ*LA@RpHLLAHJ9Lp`pHCQPH(Dp`WtJ P (@ɍ==XFMPIOOPTIONS92077-1X503 REV.2326 830728 /SRC_92077/R6000/XFMP_FMP.FTN =mFMPIOOPTIONS Լ.ENTR DCBOPEN 446)A (`@(`@p`4  @V t>>X?FMPSETDCBINFO 92077-1X503 REV.2326 830728 /SRC_92077/R6000/XFMP_FMP.FTN >}FMPSETDCBINFO  .ENTR MOVEWORDS FMPSETWORDDCBOPEN ii;66A (3`=@(3:(3`<@p7$7=(+`;@`9@h9Hp70>7p`i_9 B@C??XT FMPSETIOOPTIONS 92077-1X503 REV.2326 830728 /SRC_92077/R6000/XFMP_FMP.FTN ?mFMPSETIOOPTIONS  Լ.ENTR DCBOPEN 99A (`@(`@p`p`9 ӧ @ +_>>XFMPBUFFERSIZE 92077-1X503 REV.2326 830728 /SRC_92077/R6000/XFMP_FMP.FTN >vFMPBUFFERSIZE  £.ENTR FMPBLOCKSLEFT 22PA`@(x(`@p`2 d @Poo::XkFMPLU 92077-1X503 REV.2440 840803 /SRC_92077/R6000/XFMP_FMP.FTN : DFMPLU   Լ.ENTR DCBOPEN 88 A `(`@(`p(`@p`8 $? @==XFMPSETOWNER 92570-1X106 REV.6000 920429 /SRC_92077/R6000/XFMP_FMP1.FTN=GFMPSETOWNER  C#.ENTR FMPSETOWNERID OWNERTOID 22,ppp`2@Z>>XXFMPSETOWNERID 92570-1X106 REV.5000 860625 /SRC_92077/R6000/XFMP_FMP1.FTN> Af@FMPBUFFER  FMPSETOWNERID  &&zy.ENTR .SST.NFEX FMPASKDDOTTRIMLEN FMPPARSENAME&~~BBALp  p! LRRRP#P(*`W(F` (2` (F`!(8`!(FNLJFVUT~Gp` L @ " @Feu>>X ,FMPSETREADPOS 92570-1X106 Rev.5020 890505 /SRC_92077/R6000/XFMP_FMP1.FTN>FMPSETREADPOS  .ENTR FMPSETPOSITIONMMaW%%`)@+p`)@h)Hp'*'p`)@h)Hp'0'`M ) @8??XRU\RFMPSETPOSITION 92570-1X106 REV.5010 880628 /SRC_92077/R6000/XFMP_FMP1.FTN? AW FMPREGS yRFMPSETPOSITION  aa.DIN.DSB .DMP.DDE.DNG.DCO.ENTR .CPM XLUEX .DISMOVEWORDS FMPSETWORDFMPPOSTEOFFMPGETLENWORD FMPSETRELPOSFMPREAD FMPPOSITION a C LLL (5`R@()`Xp(+pM(1(4`Z(5A `X@p`(` (O`R@(O@  @FO DF^AA(K` (x`W@(tqP(9(w`Y(5(`W@(`V@p [(?p x (`QA(5  K(b(( A X((`U@pD++ED@ E  (5(+~~RHH(5@ FO FD(I` (ՀM(9(TXp(5`5p`@TpDDXp(5`P~~~[zAA(`(5A  I(( (5(5`ApD X0D(-`S@pD-DX`R@hRHpDQDp`(>`Z(5~tF?p x `Y(5q$M @j*==XZFMPPOSITION 92570-1X106 REV.5010 880308 /SRC_92077/R6000/XFMP_FMP1.FTN=GFMPPOSITION  ++6.DAD.DMP.DDE.ENTR .CPMFMPBUFFERBASE .DLDDCBOPEN +~~GHH (I`Y@pMM`X@(R(I`X@AX(&(6`W@pM@NM@AN(I`V@@UpM>TGNhM@AN~šIp`)R  @ܙ>>XFMPOPENSCRATCH92570-1X106 REV.6000 920429 /SRC_92077/R6000/XFMP_FMP1.FTN>ZFMPOPENSCRATCH PP A`.ENTR .SBST .SCO .SST.INDX .NFEX .MBT FMPFILENAME FMPOPEN FMPBUILDPATHTRIMLEN FMPUNIQUENAME FMPPARSEPATHP~~TNNTWmVRQPOp0(h`pAA (((A `pN(pN Y~VVŖ//RQPO TUY߀XpSU(`N(`PN(( @pN(A pN((ϡ πTMY`SZVAA+%% /-32768//SCRATCH/ z Z @ 4@t x    A@;;XJmRFMPOPEN92570-1L106 REV.6000 920221 /SRC_92077/R6000/XFMP_FMP1.FTN; Af@FMPBUFFER 6RFMPOPEN  )).ENTP .SST.NFEX MOVEWORDS LURQFMPASKDDOTFMPCLOSE)MGG`p\`\\p\_](Wc_Da]Hp(0fla(N`e@h(E`g@p[Ck[f(D(N`e@..sH(N`e@ `\Pj(R(WWip`.] P@@P @)@G==XKFMPOPENTEMP 92570-1X106 REV.5000 860519 /SRC_92077/R6000/XFMP_FMP1.FTN= Af@FMPBUFFER @FMPOPENTEMP .ENTR .SST.NFEX FMPASKDDOTFMPCLOSEmm==AA?A(:EAAC?p()JIC(:`G@H`G@(:`G@ p`mw? P@@P)!@==X1FMPOPENROOT 92570-1X106 REV.2326 830728 /SRC_92077/R6000/XFMP_FMP1.FTN= Af@FMPBUFFER >FMPOPENROOT  .ENTR .SST.NFEX FMPASKDDOTFMPCLOSEOOS))+(&p-+Hp p &0/-p`Of+ 0 @\<<XJK@RFMPCLOSE 92570-1X106 REV.6000 900926 /SRC_92077/R6000/XFMP_FMP1.FTN<yRFMPCLOSE  *.ENTR FMPASKDDOTFMPPOST LURQDCBOPEN gg/66 (2`=@((`<@((p8?8;(4(-#(4-=>:`9@ (4p`g( 9 @@(-F;;X FMPPURGE92570-1X106 REV.2326 830728 /SRC_92077/R6000/XFMP_FMP1.FTN; 5FMPPURGE  .ENTR FMPONESTRING= A  p`   @<<XUT FMPUNPURGE92570-1X106 REV.2326 830728 /SRC_92077/R6000/XFMP_FMP1.FTN<FMPUNPURGE .ENTR FMPONESTRING= A  p`   @bƁ==Xs/FMPDCBPURGE 92570-1X106 REV.5000 860611 /SRC_92077/R6000/XFMP_FMP1.FTN=FMPDCBPURGE  R6.ENTR FMPASKDDOTDCBOPEN II%%A ($`+@(`.p($-,*`($`)@ `p`I) "@g??X3@ FMPSETWORKINGDIR92570-1X106 REV.2326 830728 /SRC_92077/R6000/XFMP_FMP1.FTN?bFMPSETWORKINGDIR .ENTR FMPONESTRING= A  p`   @=j>>X%FMPACCESSTIME 92570-1X106 REV.6000 900823 /SRC_92077/R6000/XFMP_FMP1.FTN>FMPACCESSTIME .CPM.ENTP FMPGETVALUE >>SA`p"`""p"p`"$((p#p`> #  @Xw>>X%FMPCREATETIME 92570-1X106 REV.6000 900823 /SRC_92077/R6000/XFMP_FMP1.FTN>FMPCREATETIME .CPM.ENTP FMPGETVALUE >>SA`p"`""p"p`"$((p#p`> #  @Rq>>X%FMPUPDATETIME 92570-1X106 REV.6000 900823 /SRC_92077/R6000/XFMP_FMP1.FTN>FMPUPDATETIME .CPM.ENTP FMPGETVALUE >>SA`p"`""p"p`"$((p#p`> #  @Nm::X%FMPEOF92570-1X106 REV.6000 900823 /SRC_92077/R6000/XFMP_FMP1.FTN: nFMPEOF  .CPM.ENTP FMPGETVALUE >>SA`p"`""p"p`"$((p#p`> # @"Ac>>X%FMPRECORDCOUNT92570-1X106 REV.6000 900823 /SRC_92077/R6000/XFMP_FMP1.FTN>FMPRECORDCOUNT .CPM.ENTP FMPGETVALUE >>SA`p"`""p"p`"$((p#p`> # @q@==X)FMPRECORDLEN92570-1X106 REV.6000 900823 /SRC_92077/R6000/XFMP_FMP1.FTN=iFMPRECORDLEN .CPM.ENTP FMPGETVALUE CC#!!A`p&`&&p&p`&(((p 'p``C ' @1;;X%FMPSIZE 92570-1X106 REV.6000 900823 /SRC_92077/R6000/XFMP_FMP1.FTN; 'FMPSIZE  .CPM.ENTP FMPGETVALUE >>SA`p"`""p"p`"$((p#p`> # @*>>XCFMPWORKINGDIR 92570-1X106 REV.6000 900807 /SRC_92077/R6000/XFMP_FMP1.FTN> Af@FMPBUFFER FMPWORKINGDIR  h.CPM.ENTP .SST.LBT.NFEX FMPASKDDOT dd44`p6`66p6:@<>@p`68((p&B8@:;=$<` (1` p"` (/(1p!!rL; !@>>XaFMPSETDIRINFO 92570-1X106 REV.6000 900801 /SRC_92077/R6000/XFMP_FMP1.FTN> Af@FMPBUFFER  FMPSETDIRINFO 00ZE.CPM.ENTP .SST.NFEX FMPASKDDOTSTRINGCOPYMOVEWORDS FMPPOST 0`DD` pV`VVpV(PX   pp`V](9(98 X(=JXZ E`_^%%F(P`]@h]HpT\Tp` %W @0 @==X"FMPCREATEDIR92570-1X106 REV.2326 830728 /SRC_92077/R6000/XFMP_FMP1.FTN= Af@FMPBUFFER TFMPCREATEDIR {.ENTR .SST.NFEX FMPASKDDOT00!$p J! `0u @ !@13<<X>rZFMPREWIND 92570-1X106 REV.5010 880712 /SRC_92077/R6000/XFMP_FMP1.FTN< AQFMPREGS kFMPREWIND  ##.ENTR XLUEX FMPSETWORDPOS FMPPOSTEOFDCBOPEN #  ~~AA (D`X@((`W@(`Q(D`V@p$Y(Dpx(4,(D4OS`U@ `T@ `R@hRHpMQM~UD p`px`Q(DlHO  @ }<<X8~FMPSETEOF 92570-1X106 REV.2540 850721 /SRC_92077/R6000/XFMP_FMP1.FTN< AQFMPREGS iFMPSETEOF  %%K.ENTR .CPMXLUEX FMPASKDDOTFMPGETDATADCBOPEN %~~AA(f`r@(`}(f`q@p`(1`v@p`u@p-|{(jpx(SAv(6(S;q(f`t@@`r@hr~WWF))Hpo0zoSyxsPhqX (f`r@hrHpo0qop`px`w(fWmq  5@o/==XEFMPFILENAME 92570-1X106 REV.2440 840725 /SRC_92077/R6000/XFMP_FMP1.FTN= Af@FMPBUFFER 0FMPFILENAME  &&]r.ENTR .SST.NFEX FMPASKDDOTINTTODECIMALDCBOPEN &pp]99A;(6`B@( `A@@p:;:(6p @p!`?@p"2D AC;=Hp`p; @@ @(;;;X J\FMPERROR92570-1X106 REV.2440 841217 /SRC_92077/R6000/XFMP_FMP1.FTN;B0@FMPBUFFER NLLANGNUMBER :FMPERROR  {.ENTR .SST.NFEX FMPASKDDOTkk'X77MOUHp `p!`p"[ ZY`XP( ('@MSp(6`WPA(+(2MQp(6MOH`k88c8$$D.ERR not available D.RTR not available @@p 8@=;;XFMPMOUNT92570-1X106 REV.2326 830728 /SRC_92077/R6000/XFMP_FMP1.FTN; Af@FMPBUFFER 6FMPMOUNT  -8.ENTR FMPASKDDOT22%Appp`2  @m==XsFMPDISMOUNT 92570-1X106 REV.2326 830728 /SRC_92077/R6000/XFMP_FMP1.FTN=0FMPDISMOUNT  -7.ENTR FMPASKDDOTA`  @Wyv9<<X6J2FMPRENAME 92570-1X106 REV.2326 830728 /SRC_92077/R6000/XFMP_FMP1.FTN< Af@FMPBUFFER dFMPRENAME {.ENTR .SST.NFEX FMPASKDDOT@@%%*(D.*J,("1,0```@t( @P@@P@)-G==XJFMPTRUNCATE 92570-1X106 REV.2326 830728 /SRC_92077/R6000/XFMP_FMP1.FTN= Af@FMPBUFFER @FMPTRUNCATE  &&?.DCO.ENTR FMPASKDDOTMOVEWORDS FMPPOST DCBOPEN &xxj>>A (<`F@(<`E@(:(<#FC(-(1A9I((HA(<`Gp`xfA 5@w>>XmFMPPROTECTION 92570-1X106 REV.5000 860417 /SRC_92077/R6000/XFMP_FMP1.FTN> Af@FMPBUFFER  FMPPROTECTION  ##.CPM.ENTP .SST.NFEX STRINGCOPYFMPASKDDOT# .|N W R RW KK` pZ`ZZpZca_ecJ+lki`j@@^p]Ha\`j@@^p]A_\`Zj(W(W`(LKg (W`j@Q@^p]W\ ` !!P[ S  @P  !@,KE??X/VFMPSETPROTECTION92570-1X106 REV.5000 860220 /SRC_92077/R6000/XFMP_FMP1.FTN? Af@FMPBUFFER gFMPSETPROTECTION ##.CPM.ENTP .SST.NFEX FMPASKDDOTSTRINGCOPY#jj.>>`pB`BBpBGECOGDMEDKCH@`BU(5(52I`Tp(7`Sp?RQ`j## hC pH pDp@ @p$&#@* H==X)FMPOPENFILES92570-1X106 REV.2326 830728 /SRC_92077/R6000/XFMP_FMP1.FTN= Af@FMPBUFFER ZFMPOPENFILES .ENTR FMPASKDDOTMOVEWORDS DCBOPEN NNZ$$ (!&p('&``p`N & @??X/FMPUNIQUETIME/ 92570-1X106 REV.2540 850730 /SRC_92077/R6000/XFMP_FMP1.FTN?AKFMPUNIQUETIME   @B>>XZFMPUNIQUENAME 92570-1X106 REV.2540 850730 /SRC_92077/R6000/XFMP_FMP1.FTN>ANFMPUNIQUETIME FMPUNIQUENAME 99 s|.DAD.DMPEXEC.ENTR MOD .SSTC .LBT .SBT .NFEX MYIDADD .XLA$TIME 9 0123456789ABCDEFd<<}}DDP(*(+(%Ap2A6p`p`(W`@hHp@A@@p(= Ypp}WWz\++`P(`@h" x`@p`@@phHH h `@hHp$`p(\ @ W&&  &@b<<X]g.FMPPOSTEOF92570-1X106 REV.2326 830728 /SRC_92077/R6000/XFMP_FMP1.FTN< FMPPOSTEOF .ENTR .CPMFMPASKDDOTEEg.$$`)@-(("`'@,("`'@(""+*(p`Ec'A@;;XfFMPREAD 92570-1X106 REV.2326 830728 /SRC_92077/R6000/XFMP_FMP1.FTN; "FMPREAD   ==.ENTR .CPMFMPUPDATERECORD FMPDOTYPE012FMPSETRELPOSFMPGETLENWORD FMPMOVEDATA DCBOPEN =~~%AA(`@(`(`@($`(p`@(-(1pP(6(C`@hHp0pp(`~CDAA@P(J(SP((Z`@hH bp(jP(o`(`@P(v(|((`@hH 22A(p`@p`p(2C  6@y9;;XFMPWRITE92570-1X106 REV.2326 830728 /SRC_92077/R6000/XFMP_FMP1.FTN; ? FMPWRITE  <<{u.ENTR .CPMFMPUPDATERECORD FMPDOTYPE012FMPGETDATAFMPMOVEDATA FMPGETLENWORD DCBOPEN <~~YBB(`@(`(p@`@(%(`p`@(=2pP(7(: p(<p(? p`pJ~~~>HCCp(V p(bp(`(~n(`@@`@hHp0( p`@p~ ` p(g  5@ Y==XcFMPDOTYPE01292570-1X106 REV.5010 880712 /SRC_92077/R6000/XFMP_FMP1.FTN= AOFMPREGS 5 FMPDOTYPE012 CC s .DAD.DMP.DDE.ENTR .CPM.SBSFMPSETWORDPOS FMPACCESSDISC FMPMOVEDATA .CBS.DLDXREIO C^c<<` @(M`@(`pp(1` hHp px. (px`p (7(J`(`(I` @p%vC@@  p(L p(` @hHpx@@Apg (t`(m(s` @p (` @p  ` @P ((` @rr<<6p   p( 5pp A (∈(`@ hHpx  p(`@p`@ph@ `6pr~~ө==`@h'  p ((p(`A(( ((((`((` @p `((`p` ( ~ { p(`p(px`( n  @==XKFMPMOVEDATA 92570-1X106 REV.5010 880308 /SRC_92077/R6000/XFMP_FMP1.FTN=F FMPMOVEDATA  //.ENTR .CPMFMPSETRELPOS.SBSMOVEWORDS FMPBUFFERSIZE FMPGETDATA/~~6BBp p  p  ( p`(# p`5pA((`@(97 (`@p@'@@p`@~.I<<p(Q(Q`p (U(a`@hH px`(r`@ hHpxl`舡@p`@p p`@P(}(A((pqq99(`ꈄ((((((ֈ('` (ɀ 5@p`瀈@P((@p (ֈ`@P爡((qQQ%%(`(ǀ(`@((`@h` `(`ꈈ(p(`6p(Qq  @Y??XFMPUPDATERECORD 92570-1X106 REV.2326 830728 /SRC_92077/R6000/XFMP_FMP1.FTN?(FMPUPDATERECORD  K.DAD.ENTR ,@A@[>>XHRFMPSETRELPOS 92570-1X106 REV.5010 880712 /SRC_92077/R6000/XFMP_FMP1.FTN>2RFMPSETRELPOS  S'.DAD.ENTR FMPSETWORDPOS FMPBUFFERBASE pp::`D@@Fp`E@PE(#` G(#`D@hDH(:`p>)CG?h>@A?:p`pgC @`e%==XhRFMPSETWORD 92570-1X106 REV.5010 880712 /SRC_92077/R6000/XFMP_FMP1.FTN= Af@FMPBUFFER )RFMPSETWORD  RFMPSETWORDPOS ssW.DIN.DSB .DSBR .DDIR .DCO.ENTR .DMOD MOVEWORDS FMPBLOCKSLEFT FMPBUFFERBASE FMPDISCOFFSET FMPEXTENTBASE FMPASKDDOT FMPEXTENTSIZE FMPPOST FMPBUFFERSIZE DCBOPEN s~~==(!A `p` p` p`p`p($`p(&p*(G 5 J `p~~~!e@@@Bh@0(Q( JV  `p _0(`@(q` ( v p    ~P;;(`@h@    `@hHp`@px`@ p>>(((`0p`@ hAG x`@h H`(`@PhHX 0(`@@ `@p p`v  @ @łB;;X 1FMPPOST 92570-1X106 REV.2326 830728 /SRC_92077/R6000/XFMP_((FMP1.FTN; <FMPPOST   Ӣ.ENTR FMPACCESSDISC DCBOPEN RR)) (&`,@(`-@p**0/(&`,@h,Hp*.*p`R,@\==XFMPONESTRING92570-1X106 REV.2326 830728 /SRC_92077/R6000/XFMP_FMP1.FTN= Af@FMPBUFFER ZFMPONESTRING {.ENTR .SST.NFEX FMPASKDDOT**J`* @P @==X2FMPGETVALUE 92570-1X106 REV.6000 900823 /SRC_92077/R6000/XFMP_FMP1.FTN= Af@FMPBUFFER 7FMPGETVALUE  ""2G.ENTR .CPM.SST.NFEX FMPASKDDOTTRIMLEN "KK6((+@+-((`1Ap(&-+p &0/`p`K+ @`!@m==X4FMPSETVALUE 92570-1X106 REV.2440 840430 /SRC_92077/R6000/XFMP_FMP1.FTN= Af@FMPBUFFER BFMPSETVALUE  ""2G.ENTR .CPM.SST.NFEX FMPASKDDOTTRIMLEN "LLS))A--/((`3p((/-@ (21`p`L- @` @*<<XJFMPASKDDOT92570-1L106 REV.6000 920225 /SRC_92077/R6000/XFMP_FMP1.FTN<`FMPASKDDOT ++]EXEC.ENTR .CPMFMPENDEVENT RMPAR FMPSTARTEVENT OVRD. + f..RTR C HH @ p@ p`p` Ap ($p (+0(3`p(5`pA;=AH  (L``}}Q@@Ap (XhX (lAg `p`p(=r  `(v({`p`p(=( (`P((`P((`(`}0hp(=(`( $RTD.DS% zER(#@-L^==X/FMPUDSPENTRY92570-1X106 REV.2440 840717 /SRC_92077/R6000/XFMP_FMP1.FTN=΁FMPUDSPENTRY k.DCO.ENTR FMPDIRADDTONAME UDSP.GETENTRY HH"''*(&A,((!(!`.(&&*p`H* @c<??X7EFMPDIRADDTONAME 92570-1X106 REV.2440 840628 /SRC_92077/R6000/XFMP_FMP1.FTN? Af@FMPBUFFER =FMPDIRADDTONAME  {.ENTR .SST.NFEX FMPASKDDOT__a55AA9;=0(`Dp(`Bp"CB`Ah@ 0(/`?9;Hp`_v8 @Pp  @A??X"FMPNAMETODIRADD 92570-1X106 REV.2440 840628 /SRC_92077/R6000/XFMP_FMP1.FTN? Af@FMPBUFFER =FMPNAMETODIRADD  {.ENTR .SST.NFEX FMPASKDDOT00OAA! p`0 @P @Ki<<XVFMPTESTEOF92570-1X106 REV.5000 860905 /SRC_92077/R6000/XFMP_FMP1.FTN< Af@FMPBUFFER FMPTESTEOF [[D.DAD .DSBR .DMP.DDE .DCO.ENTR .CPMFMPGETLENWORD FMPASKDDOTMOVEWORDS FMPSETWORD FMPEXTENTSIZE FMPEXTENTBASE .DLDDCBOPEN [BB ((`@((`@((`@($(zp`@@`@pD G C ջF>> JJ (O(O(y`@(W(`(f `(c(p(&kpu(y((~p(( P( &&va(`p(`((p(&  @[==X:FMPGETRECLEN92570-1X106 REV.5000 860905 /SRC_92077/R6000/XFMP_FMP1.FTN=WFMPGETRECLEN ]T.ENTR .CPMFMPGETLENWORD DCBOPEN ff 33 (1`6@(`9(1`7@(`8(1A`6@6($(*`5@6p(/.p`p(/f5@Ihn<<XN@FMPRAWMOVE92570-1X106 REV.6000 900926 /SRC_92077/R6000/XFMP_FMP1.FTN<~"FMPRAWMOVE p.ENTR FMPMOVEDATA FMPSETWORDPOS hh>::`=@(`?`@p(9'@p`>X (8(;p(h = @W7u<<XX4 FMPSYMLINK92570-1L106 REV.6000 920424 /SRC_92077/R6000/XFMP_FMP1.FTN< FMPSYMLINK p`p` a @,==XFMPMAKESLINK92570-1L106 REV.6000 920513 /SRC_92077/R6000/XFMP_FMP1.FTN= Af@FMPBUFFER FFMPMAKESLINK ;;=.ENTR FMPCLOSETRIMLEN FMPWRITESTRINGFMPDCBPURGE FMPOPEN FMPBUILDNAMEFMPPARSENAME;~~ډB@@B@BpWE*@+,p@p+p,h*@+,oBCp@C(`P@(w(}zB`C(BCD~((`@pD B,CpA`AF($$X CWFL@ @@0 0P@0 &$@q==XHFMPREADLINK 92570-1L106 REV.6000 920429 /SRC_92077/R6000/XFMP_FMP1.FTN=2FMPREADLINK  .ENTR FMPCLOSEFMPREADSTRING FMPOPEN kkwj88@p<@Cp`G((`E(6`FPhBH<XD 0(-`E(226p`kR= roslq z!@ (<<X>zFFMPDIRINFO92570-1X106 REV.6000 910208 /SRC_92077/R6000/XFMP_FMP1.FTN< Af@FMPBUFFER rFMPDIRINFO ""0G.CPM.ENTP .SST.NFEX FMPASKDDOTTRIMLEN "kk88A`p<`<&LNHDA::SRC_92077 7@اg44X31cLINDX 92077-1X559 REV.5000 860829 &LINDX::SRC_92077 477G.PdENTSFILENAMES BUFFERS  DCBSMISC STAT_INFO SYS_INFO7^^GxLINDX .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN ^sWEXEC.FIOI SEGLD $OPSY MEM -u *Problem loading segment LIND3 }# A0 A/ . ժ*LIND3 @-44XIFMPERX92077-1X559 REV.2440 830207 &LINDX::SRC_92077 4 ˣ+FMPERX @EXEC.ENTR CONCATSPACE FMPERROR..c(A()xC5(D:DABH@G*F+.WB @P@oW66XM4INDEX_TYPE92077-1X559 REV.2440 830207 &LINDX::SRC_92077 6'INDEX_TYPE .ENTR \\_s++A@p/`2((%`3p`0@/p`1P((`3p($P("($p(-`(+`3p(-p`\ e!0* @66X3MAKEINDEX 92077-1X559 REV.2440 830207 &LINDX::SRC_92077 6`MAKEINDEX  ry.ENTR .IDLP UU[))@p-(`0@-h2`0@-p`1Ap/(%p,`@-@p88,(`.@-hU.@44X'%INTMSG92077-1X559 REV.2440 830207 &LINDX::SRC_92077 4 ASYMTB ӀINTMSG :^EXEC.ENTR ?AU Internal lindx error (strings) , A$#A"! ! @ ^?44XOLDDIR92077-1X559 REV.2440 830206 &LINDX::SRC_92077 4 } OLDDIR  00 .ENTR .CPM.IDLP .MBTFSTAT TRIMLEN BLANKSTRING DECIMALTOINT0=DDAx@ ppph  p`p`0(2`p` p`p<(A0(~`(O`phnnK44`p`(Z`pp(\`p` `@p`ph(~p`@(p(0`@@P(w(y`p`@p8(j(0nvg  @-W44X!PISORT 92077-1X559 REV.2440 830621 &LINDX::SRC_92077 4 WISORT  .ENTR .CPM.IDLP ~~8@@@pLAM((`OApM(GpK`@Lp@pI`IphMAN(ApJA`@L(.(5`@Lh(C(<`@LhHL@p8J('`~5 C88K(( M @\33X·gSRCH92077-1X559 REV.2440 850404 &LINDX::SRC_92077 3 7 SRCH  `'.ENTR .CPMCBT MEM ~~s@@A@pe@ pdpp pA((a`@5p`@e@fhHdpbxc1bcp`(U`pP(;(>` (T@p`@e@fh~>>FHdpbxcObcp`(5(;(a`(]`p((a@p((;> ,f @?^77X?/SAVESTUFF/ 92077-1X559 REV.5000 860829 &LINDX::SRC_92077 7 AzSAVESTUFF  @44XM/ENTS/92077-1X559 REV.5000 860829 &LINDX::SRC_92077 4 AJdENTS M@ `` M ``` N `` N`  `` N `` G `` C @``C ``D@ ``D ```E ``E`  ``E ``((F ``F @``F ``G@ ``G ```H ``H`  ``H ``I ``I @``I ``J@ ``J ```K ``K` ``K ``L ``L @``L ``M@ ``// ` ` /@w%777X(/FILENAMES/ 92077-1X559 REV.5000 860829 &LINDX::SRC_92077 7 AcFILENAMES @e%66X/BUFFERS/ 92077-1X559 REV.5000 860829 &LINDX::SRC_92077 6 AVBUFFERS @t]44X:/DCBS/92077-1X559 REV.5000 860829 &LINDX::SRC_92077 4 An DCBS @Xxw844XT/MISC/92077-1X559 REV.5000 860829 &LINDX::SRC_92077 4 AMISC "` @DcM77X8/STAT_INFO/ 92077-1X559 REV.5000 860829 &LINDX::SRC_92077 7 AsSTAT_INFO @.L66X/SYS_INFO/92077-1X559 REV.5000 860829 &LINDX::SRC_92077 6 ASYS_INFO  @g77XRpl;ASUBD 92077-1X654 REV.2440 <850404.0852>P92077/&ASUBD::PCO7@3Rp33X~\l;MEM 92077-1X654 REV.2440 820519 P92077/&ASUBD::PCO3qMEM xMEMA@ 33Xzrl;BLT 92077-1X654 REV.2440 820519 P92077/&ASUBD::PCO3 vBLT 4g.ENTR .MVW vjA`h@}v644Xl;CMOVE 92077-1X654 REV.2440 820519 P92077/&ASUBD::PCO4 KCMOVE  d.ENTR .MBT (0A`hAA @꼪44Xl;CMOVR 92077-1X654 REV.2440 820519 P92077/&ASUBD::PCO4 KCMOVR  d.ENTR .MBT ""x=A`hA "@&33X{+l;CBT 92077-1X654 REV.2440 820519 P92077/&ASUBD::PCO3 wCBT .CBT.ENTR .LBTOO((p(`hA((p)(&P((h)P*(&8)X)((O * @v$677Xcl;FORCEINMAIN 92077-1X654 REV.2440 820620 P92077/&ASUBD::PCO7BB a FMPBUILDNAMEFMPCLOSEFMPOPEN FMPPARSENAMEFMPPOSITION FMPPURGEFMPREAD FMPSETPOSITION FMPWRITEB@Q55Xcl;FORTFAKE92077-1X654 REV.2440 820301 P92077/&ASUBD::PCO5 .EXIT  .NFEX  ERR9kEXECϴFtn str err A@@_"" vGTINF 92077-1X064 REV 2540 <850709.1517>"@GTINF .ENTR.XLA .XLB  //`[<+@Zp `/`Ba88X\xl;;DSORT 92077-1X065 REV.2540 <850709.1459> P92077/&DSORT::PCO8 MDSORT .CBT.ENTR .MVW΅??A@pupk`@pl`kP@wpn@lpo`kpq`upp`q@p(H`q@p5pr`r@lpso(1`so@sptnrAt(B(>`rpq([[?,,@rpp(o@s(>(:`p@r@p@kpmnpv`khnAm`v`k@loxvhnHlm`v@kpk([ 8w @1qP144XGcLIND1 92077-1X655 REV.5000 860829 &LIND1::SRC_92077 4@@HdENTS(FILENAMES BUFFERS  DCBS SAVESTUFF MISCSTAT_INFO SYS_INFO@ LIND1 ``".DAD .DDE.DDIEXEC .CPM'.EXIT .SCO.IDLP .MBT&CNUMD %SEGLD FMPPURGE#FMPCLOSE$FMPERXFMPWRITEFMPSETPOSITIONMAKEINDEX !FMPREAD FMPPOSITION BLT ISORT CMOVE SRCHDSCRS 88 LIFBRK DSORT GTINF SYSCHKSUM FMPOPEN FMPBUILDNAMEOLDDIRFMPPARSENAME)MEM 8   entry points processed 55`Fpe`e(`2p(`5pA  (5r Output file must not be remote!k(AAA(,(`(`p`@pAp((((Ah``(戡`Ep  c p`DPc((& CCf!!!pc`c(   c p`c(`Fp `PpA 3(%CG# Output file wrong typeF==A$(#C((*`c(*(`e(h` p9B? c$`c(pd`%pJ d(K(]@d%pm`m@pY c`cL[77((fc c`c(8d8(Fm&p`p`2p`pz c`c( c$`c( c!`c(o A((.Too many entries~~|??A(A.@&`p`p`p`ph@p ((ۀ`@&p`@(`@pA (`@ph@p`pp~cc//((`@(`@h px ( `@ppd`(p`d@Hd  H`d@h58d8(c56Sorting entries NNg##A(6* `@( ciggx`c(`e(4`P(4NCb>Internal Error - not block 4~~+@@A1(A>?4&`prpf`@ `.pvpd`(pH(ps`d@pu`pW8`d@@pau`(o`uA@po~''k(vu py`y('LInternal error- entry missing 3z A(AL>&(`yPd(Sx[** Warning: duplicate symbol **fA([,k** Only one occurence indexed **}}^<p(a`P(D(a`@&p`(a`@p`@@@(a`@~~\BB@p`p(`p`p`pp(s`p`p(x`(p` hhHpx&p`A@p`@p`@**H@p`(p`@(x`@((*Lindx: System library corrupt!~~@@AA`@p`@p`@p`@(`@pԀ`ph@p`@(`p(p`p`p`(v~ (. r @A@~p44XS cLIND2 92077-1X656 REV.5000 860829 &LIND2::SRC_92077 4@@HdENTS)FILENAMES BUFFERS  DCBS MISCSTAT_INFO SYS_INFOSAVESTUFF @ LIND2 Nk .DAD.DMP.DDIEXEC.CPM.DMOD (.EXIT .SCO.IDLP .MBT'CNUMD &SEGLD FMPPURGE%FMPCLOSE$FMPERXFMPWRITE!FMPSETPOSITION"MAKEINDEX FMPPOSITION FMPREAD BLT #ISORT SRCHCMOVE BB IFBRK DSORT INDEX_TYPEFMPOPEN FMPUNIQUENAME SAMEFILE FMPBUILDNAME OLDDIRFMPPARSENAME*MEM B   entry points processed NNA1''py`p`y(h p P  p`P( /` PAp  ( (N Input file wrong type ;; A  ( I`y(` p(` p  A   (;| Output file must not be remote!~~BBA  ( I`(`p`@ p   Ap  ((Ah `  `( ` p   QP p` PP(#(m(( &~??%  pP`P( 51QP p`P( 5` p`Pp   (L?G"- Output file wrong type--EAK - ( I`y(lTQpP(Y(a-8Input file cannot be output fileY A_ 8 ( I(lP(e(lpHFiles cannot be indexed over DS ~~e<>Pf`P( 5A xh x pP Ĉpm`P( /`m(`m(K`m@pmh-x}` P}((h&H ` p}m}(` Ϡ~ ( UX Illegal relocatable file @@A X ( I`m@p QP `p`P( 5` P}(p(` P}(` Өp` P}h X} 0(((JP}h X} 0(#` ~~! 55 p(J` LjP}('(k` Apahm (jp `p (6( "`@ h`@ h ` @a@ h HaH p  0  ` @( `a@ hH p x X~U99 ` Ө@@ hh` @@ h` @p` @apa8 (.(J` P}h X} 0(` p` بp pk` (׊ p `pA (( "`@ hJ77`@@  p{`@ h{H`@{@ ` P}((`@{@ h `@{@ ( ` @@ hH p x {`@{@ hh`@{@ @ h`ssH33@{@ p`@{hHH p (H H x8k8 (` p}(J` P}(ވ(J` p` بp pa` (Jp `@  p{`@  pP(s e RPL longer than one word }}88A e ( I` Ap ݨ(( "` @ h`@ h{H`@{@ h `@{@ ( `@@ @ hH p x '{`@{@ h LjHH }AAv0`@{@ @ `@{@ p` @@@{h H p (H x8a8 ((A6rSorting entries WWWK))AQ r V `@( `QPtr`P( 5iPfnnA x`P( ;P(}WCzInternal Error - not block 1~~&t@@Az Az } `pvph`@ ` p|pa`(p ( Apw`a@ p{` p ۈ`a@ @ p {`(`{A@ p ~''2  { p`('Internal error- entry missing R A A  (`Pa(S** Warning: duplicate symbol **tA  M** Only one occurence indexed **FFA  (`a@ h{   @xj`j@  p`j@ pz`y(px(` Lj@j@ pxPh X (ahzA@  hx@ !QP `P( 5::"QP pm`P( 5`m@pmh-x}` P}(2(8h&H ` p}` P}(<(h(x ` Aph  ӈ(p `@ p P  p`(U($VCC w((`w(^(`@ hH    @ x@@ P (pk`w(p `k@ @ hkH H    @ x`@ hH ((`@ h H 0y""l (8k8 (v`wpw`w@ h("KToo many external references in vA  k one module. Unable to index. ~~&::A  ( I` ӈ@p8 (F(V` P}((V` p~` بp p` (Vp `~@ (C`~@  @p` @~@ p  p`((C~)CC w(6(6`w((.`@ hH    @ x@@ P (.pk`w(.p `k@ @ hkH H    @ x`@ hH ((*`@ h H 0y"" ) (C8k8 (`wpw`w@ h(C"kToo many external references in w6A<  k one module. Unable to index. <@@AB  ( I`~@  ψ@~h~ H p (H H x~88 (` P}h X} (`{@@v@ @w@|(("q wP `P( ;`~~m|==pv`@ `hph` p|`@a@ p `h'@v `v@ p `w(@{ `a@ @ hv H p `a@ @p x  `a@ @@v@ pv@v@  ~~~<<P HvH p  P 0 (@v@ HvH p  ҈ `v@ hz`vpv`y(䈀`v@ hx`vpv#w`v@ p w`v@wpv`@ ~~~};;;hH  8a8 (`v( ( "  Ρ P `P( ;! QPtr`P( 5` pl ` pp p" '  -QP `p~~~f 0==`P( 5 9QPfd`P( 5Ad xq`q( n`q@ ppA p( O( O` ppp V ` @pp " ] ` @p@p  gQP `p`P( 5~ x m( 3  o>> tQPfb`P( 5`hp! P n`P( ;n xh P pm`P( ;`m@pm`pj` Pm( ( `@ p pa` ( ۈp `j@ (x ::`j@  @@j@ @lpi`( ( `i@@ p `iApkh  ( p `k@ hkH HH 8k8 ( `i@pj8a8 ( " ߡ  QP `kk @ 44p`P( 5`hph(  QPfd`P( 5pb x`p"  ! QP `P( 5 QP `P( 5`p( Kk Ran out of workspace - size up LINDXy A !  ( I Too many symbols in this library{ "A (  ##(=Library must be made smaller before indexing#99*T (A .  ( I$ 4P ( I$ :P ( I$ @P ( I9̭/Break detected. [[ A))A G / `ap` p% OQP% SP% WP`( _ ^ pP b pP` ( q& j P[7Problem loading segment LIND3 ,, jA p 7 ( ~' u {   ~ (,d MMrwctLXrwcuLIB ro@@@@@ "&*,* LIND3  ~ d?  0@L g+55Xg3SAMEFILE92077-1X656 REV.2440 830207 &LIND2::SRC_92077 5 5SAMEFILE  .ENTR TT5**@p0@p/ph1H0p,`1@/ `,(#p(*P2(((*p`T 61@ @ +{44X6cLIND3 92077-1X657 REV.2440 841128 /PCO/P92077/&LIND34..F+ dENTSFILENAMES BUFFERS  DCBSMISCSYS_INFO. LIND3 ! EXEC.CPM.EXIT .SCO.SST.LBT.CBTFMPCLOSESEGLD SPLITSTRING BLT UPASC FMPERXFMPREAD DECIMALTOINTFMPOPEN BLANKSTRING LIMEM HELP LOGLU FMPWORKINGDIR CASEFOLD.DRCT IXGET STATS $OPSY !MEM   ~~y?? `(A)pp`4P((`)p(`0pD, 3  p`p     ~ccA..  p`(` p p 0(桊(`@p2(c| Not sized large enough~~:4EEAA1) (h0X p p(hHP((!(`(`h(,(( 14(:JA~@@Z>'`(((JI(Np`pp`(iP(](c@""% Lindx: Enter Library file or to end. "W]Ac +d Library file? _ jc< d >> >&>d >  ΀C@+Js88X>PRINT_STRINGS 92077-1X657 REV.2440 830616 /PCO/P92077/&LIND38-PRINT_STRINGS !!.ENTP .EXIT .SST.SSTC TRIMLEN PRINT ! ;)KK`-pz)`zzpz)*+},{`zp(H`P((P(WH(o`P(A([(c}H(o`P(A(g(o}{rpy%htwy-{ P@T=r44XSPRINT 92077-1X657 REV.2440 830616 /PCO/P92077/&LIND34 ASYS_INFO x.PRINT  EXEC.ENTR CMOVR BLT   AA,##,`P-@@p`Rp?QD,-`pOMPO.A _P) @Wv44XSTATS 92077-1X657 REV.2440 830616 /PCO/P92077/&LIND34BSTAT_INFO SYS_INFO ʔDSTATS  %%2.FAD.FSB.FMP.FDV EXECIFIXFLOAT CNUMD %OOZ99 entry points processed % free space used. % entadd array used. % index block used. OIDLLDpD`@@@`@@B@B@p? c? i@`==p< {< @`::p9 ++ct9+ +  D+ @d@d@UMONITOR6.REL::RTE_6:5:233:128 644 0 0 164400 5310707005 35677 MONITOR6.REL::RTE_6:5:233:128 $ȔMONITOR6 REL +#+#+#t(z-FST RRXO02"MONITOR6HEAD92077-12034 Rev.5020 900405.1221 RTE-6 AdvanceLink monitor program /SRC_92077/R5020/MONITORHEAD.MACR@1OEEX v$c>MONITOR 92077-16852 Rev.5010 881103 Monitor Main Program/SRC_92077/R5010/PROTOCOL.FTN E++EBLOCKNR BLOCKCM PACKETBACK MSGBACK PREVCM+ttMONITOR .NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN t66fEXEC.FION DONEMONITOR PROCESSPACKET GETPACKETFROMPC BEGINMONITORHPZDEFOBUF6<<" `( `( (  #<    @-KeGGX6%>BEGINMONITOR92077-1x852 Rev.5010 871105 Host Initialization /SRC_92077/R5010/PROTOCOL.FTN G++EBLOCKNR BLOCKCM PACKETBACKMSGBACK PREVCM+\BEGINMONITOR.ENTR SENDINITSENDBLOCKMSGINITPCPPՐ$$A pp pp pp`$p((" "P 6$P @EEXQ >DONEMONITOR 92077-1x852 Rev.5010 871105 Host Restoration/SRC_92077/R5010/PROTOCOL.FTN E++EBLOCKNR BLOCKCM PACKETBACKMSGBACK PREVCM+(DONEMONITOR .ENTR PRINTERRORMESSAGDONEPCI A @חHHXmJ>PROCESSPACKET 92077-1x852 Rev.5010 871105 Host Initialization /SRC_92077/R5010/PROTOCOL.FTN H++EBLOCKNR BLOCKCM PACKETBACK MSGBACK PREVCM+uPROCESSPACKET &&D&.ENTR .CPMPROCESSSTARTPACKPROCESSLISTFPACKGETBYTE &~~HAACCIpP((C(@`HP((! C(@`GP(%((`F(@`(.(@`pBE(7B(>(@`E~*C @IIXUz>PROCESSLISTFPACK92077-1x852 Rev.5010 871105 Process ListF packet/SRC_92077/R5010/PROTOCOL.FTN I++EBLOCKNR BLOCKCM PACKETBACKMSGBACK PREVCM+LH\PROCESSLISTFPACKSS .DDI.ENTR .MBT.CBT PUTPACKETTOPC PUTTEXT PUTSHORT PUTLONG PUTBYTE FILEERRORMESSAGEFILEENQUIRY GETSHORTGETTEXT S~~|[ZGGZZh h`A  q pVvpS{pYYWVSRT[QP`Y(A` h (((`S(pS(pSpQ~qqV??pP`Y(`S(T0(AWTxV   V  T S R Q P`@Pp [\q'' . PPPPP '@rE??X{>PROCESSSTARTPACK92077-1x852 Rev.5010 871105 /SRC_92077/R5010/PROTOCOL.FTN ?++EBLOCKNR BLOCKCM PACKETBACKMSGBACK PREVCM+TPROCESSSTARTPACK̼.ENTR SENDFILERECEIVEFILE GETSHORT114 ((1  @۬l==X#>RECEIVEFILE 92077-1x852 Rev.5010 871105 /SRC_92077/R5010/PROTOCOL.FTN =++EBLOCKNR BLOCKCM PACKETBACK MSGBACK PREVCM+%RECEIVEFILE ,,.ENTR DONERECEIVE PUTDATAPACKETTOFGETDATAPACKETFROBEGINRECEIVE,??!!! !(!(!( ? ! @!Y==X >BEGINRECEIVE92077-1x852 Rev.((5010 871105 /SRC_92077/R5010/PROTOCOL.FTN =++EBLOCKNR BLOCKCM PACKETBACK MSGBACK PREVCM+n,BEGINRECEIVE,,Op.ENTR .MBTSENDASTARTPACKETOPENFILETOWRITE GETSHORTGETTEXT ,eer*88**8h`A Ap)G)++ + 0(ZU(`((Z`(++(^(``+,e P P @ ==X>DONERECEIVE 92077-1x852 Rev.5010 871105 /SRC_92077/R5010/PROTOCOL.FTN =++E BLOCKNR BLOCKCM PACKETBACK MSGBACK PREVCM+#DONERECEIVE FF/.ENTR PUTBACKPACKET SENDABORTPACKET GETBYTE GETPACKETFROMPC SENDAEODPACKETPURGEWRITEFILECLOSEWRITEFILEFfbBBA`( (`(`p`hX (-&`(,,(00(4(N8<phX&D== (I(4(N``hX (]\(|(a(ed(|`(i(l(|`(p(wt(|(|``((33 Up`P(((3  @/rN2??XZ(>GETDATAPACKETFRO92077-1x852 Rev.5010 871105 /SRC_92077/R5010/PROTOCOL.FTN ?++EBLOCKNR BLOCKCM PACKETBACKMSGBACK PREVCM+3GETDATAPACKETFRO!!Z.ENTR PUTBACKPACKET GETBYTE GETPACKETFROMPC !>>p""$ $p"$'P&"(  $> $ @ ??X`5>PUTDATAPACKETTOF92077-1x852 Rev.5010 871105 /SRC_92077/R5010/PROTOCOL.FTN ?++EBLOCKNR BLOCKCM PACKETBACKMSGBACK PREVCM+9PUTDATAPACKETTOFA.ENTR PUTBYTETOFILE GETBYTE GETSHORTTT,,114p/p`/(,p0`3@p.1.p#((880(('T 1 @ ;;X=#>SENDFILE92077-1x852 Rev.5010 871105 /SRC_92077/R5010/PROTOCOL.FTN ;++EBLOCKNR BLOCKCM PACKETBACK MSGBACK PREVCM+ SENDFILE ((c.ENTR DONESENDSENDDATAPACKETGETDATAFROMFILE BEGINSEND (??!!! !(!(!( ? ! @(<<Xk=>BEGINSEND 92077-1x852 Rev.5010 871105 /SRC_92077/R5010/PROTOCOL.FTN <++EBLOCKNR BLOCKCM PACKETBACK MSGBACK PREVCM+D ,BEGINSEND ++2.ENTR .MBTSENDASTARTPACKETOPENFILETOREADGETSHORTGETTEXT +eer*88**8h`A Ap)G)++ + 0(ZU(`((Z`(++(^(``+,e P P @ ;;X>R>DONESEND92077-1x852 Rev.5010 871105 /SRC_92077/R5010/PROTOCOL.FTN ;++EBLOCKNR BLOCKCM PACKETBACK MSGBACK PREVCM+ DONESEND ==.ENTR PUTBACKPACKET GETBYTE GETPACKETFROMPC CLOSEREADFILE SENDABORTPACKET SENDEODPACKET =|>>A(  `Q(((*(`P(*(($ #(*`O(((*`N(.(G2J(7;JMPL(>(A? (GEJ(6AJ  @??XUS>GETDATAFROMFILE 92077-1x852 Rev.5010 871105 /SRC_92077/R5010/PROTOCOL.FTN ?++EBLOCKNR BLOCKCM PACKETBACK MSGBACK PREVCM+.GETDATAFROMFILE &&i.ENTR .CPMMAX0PUTSHORTPUTBYTE GETBYTEFROMFILE &0FFL`P@pJAJOpp`(0pK`R@@NpJ(LJ(,(088K(@pJ8JLQ`QApJOJ(H I L@);;X=1>SENDINIT92077-1x852 Rev.5010 871105 /SRC_92077/R5010/PROTOCOL.FTN ;++EBLOCKNR BLOCKCM PACKETBACKMSGBACK PREVCM+  SENDINIT H.ENTR PUTPACKETTOPC PUTTEXT PUTBYTE **kl A -)0+/).))  * .HP1000 Rev.5010 @@0O|>>Xl%>SENDDATAPACKET92077-1x852 Rev.5010 871105 /SRC_92077/R5010/PROTOCOL.FTN >++EBLOCKNR BLOCKCM PACKETBACKMSGBACK PREVCM+SENDDATAPACKETA.ENTR PUTPACKETTOPC GETSHORTPUTBYTE 77$#"p`!@p7@Ԭ>>X@>SENDEODPACKET 92077-1x852 Rev.5010 871105 /SRC_92077/R5010/PROTOCOL.FTN >++EBLOCKNR BLOCKCM PACKETBACKMSGBACK PREVCM+_SENDEODPACKET  .ENTR PUTPACKETTOPC PUTBYTE  2A    @??Xk >SENDASTARTPACKET92077-1x852 Rev.5010 871105 /SRC_92077/R5010/PROTOCOL.FTN ?++EBLOCKNR BLOCKCM PACKETBACKMSGBACK PREVCM+DSENDASTARTPACKET.ENTR SENDERRORPACKET 4 A    @5I>>XY >SENDAEODPACKET92077-1x852 Rev.5010 871105 /SRC_92077/R5010/PROTOCOL.FTN >++EBLOCKNR BLOCKCM PACKETBACKMSGBACK PREVCM+SENDAEODPACKET.ENTR SENDERRORPACKET 4 A    @gΆ??Xp} >SENDABORTPACKET 92077-1x852 Rev.5010 871105 /SRC_92077/R5010/PROTOCOL.FTN ?++EBLOCKNR BLOCKCM PACKETBACKMSGBACK PREVCM+ISENDABORTPACKET .ENTR SENDERRORPACKET 4 A    @ >??Xv>SENDERRORPACKET 92077-1x852 Rev.5010 871105 /SRC_92077/R5010/PROTOCOL.FTN ?++EBLOCKNR BLOCKCM PACKETBACK MSGBACK PREVCM+OWSENDERRORPACKET --.ENTR PUTPACKETTOPC PUTTEXT PUTSHORTPUTBYTE FILEERRORMESSAGE-BBU$$U_T|SdUziTzo|Sz`~@SpywzyVWBTz UPU@ +==X>SETBLOCKSIZE92077-1x852 Rev.5010 871105 /SRC_92077/R5010/PROTOCOL.FTN =++EBLOCKNR BLOCKCM PACKETBACKMSGBACK PREVCM+>SETBLOCKSIZEt.ENTR SENDBLOCKMSG--lP( ( (p-@1SENDBLOCKMSG92077-1x852 Rev.5010 871105 /SRC_92077/R5010/PROTOCOL.FTN =++EBLOCKNR BLOCKCM PACKETBACKMSGBACK PREVCM+@SENDBLOCKMSG.ENTR PUTMESSAGEWITHTUPUTSHORTPUTBYTE 11y!#$#"1 @~>>>XC%>SENDTIMEOUTMSG92077-1x852 Rev.5010 871105 /SRC_92077/R5010/PROTOCOL.FTN >++EBLOCKNR BLOCKCM PACKETBACKMSGBACK PREVCM+SENDTIMEOUTMSG.ENTR PUTMESSAGEWITHTUPUTSHORTPUTBYTE 11y$##"!1 @.==X8#>AREYOUTHERE 92077-1x852 Rev.5010 871105 /SRC_92077/R5010/PROTOCOL.FTN =++EBLOCKNR BLOCKCM PACKETBACK MSGBACK PREVCM+KAREYOUTHERE ''ij.ENTR FINISHPREVIOUSMEPUTMESSAGETOPCPUTSHORTPUTBYTE '33A !" !(3 @ <>>XG>PUTBACKPACKET 92077-1x852 Rev.5010 871105 /SRC_92077/R5010/PROTOCOL.FTN >++EBLOCKNR BLOCKCM PACKETBACK((MSGBACK PREVCM+fPUTBACKPACKET  .ENTR .EXIT .SST%%H`p`%i2 @ @ ??Xi`>GETPACKETFROMPC 92077-1x852 Rev.5010 871105 /SRC_92077/R5010/PROTOCOL.FTN ?++E BLOCKNR BLOCKCM PACKETBACK MSGBACK PREVCM+B:GETPACKETFROMPC 00;;.ENTR .CPM.EXIT .SBST .SST GETBYTE GETSHORTGETMESSAGEWITHTU0bFF`(A ppـ((p`@pۈ((`(`((`pDH`p T P݈(((    @$7>>X!J>PUTPACKETTOPC 92077-1x852 Rev.5010 871105 /SRC_92077/R5010/PROTOCOL.FTN >++EBLOCKNR BLOCKCM PACKETBACK MSGBACK PREVCM+PUTPACKETTOPC .ENTR .EXIT .SBST .IDLP SENDDATAMSG tt@@AF`pB`pEphBE(.pDAFFJ$IA()`E@p8D(AFHF`pC?HAC((t F @ތL==X؏>SENDDATAMSG 92077-1x852 Rev.5010 871105 /SRC_92077/R5010/PROTOCOL.FTN =++EBLOCKNR BLOCKCM PACKETBACK MSGBACK PREVCM+SENDDATAMSG ,,.ENTR .EXIT .SBST .SSTPUTMESSAGEWITHTUPUTSHORTPUTBYTE ,KKD,,((`pAAK @R'??X->GETMESSAGEWITHTU92077-1x852 Rev.5010 871105 /SRC_92077/R5010/PROTOCOL.FTN ?++EBLOCKNR BLOCKCM PACKETBACKMSGBACK PREVCM+]GETMESSAGEWITHTU)/.ENTR PROCESSMESSAGEGETMESSAGEFROMPCJJ^m(() )()h, 0( ( `+($(&J )  @a!??Xs>PUTMESSAGEWITHTU92077-1x852 Rev.5010 871105 /SRC_92077/R5010/PROTOCOL.FTN ?++EBLOCKNR BLOCKCM PACKETBACK MSGBACK PREVCM+gvPUTMESSAGEWITHTU--cU.ENTR PUTBACKMESSAGEPROCESSMESSAGEGETMESSAGEFROMPCPUTMESSAGETOPC-ZZ//`(((`((((((Z  @A`w>>X!a>PROCESSMESSAGE92077-1x852 Rev.5010 871105 /SRC_92077/R5010/PROTOCOL.FTN >++EBLOCKNR BLOCKCM PACKETBACK MSGBACK PREVCM+PROCESSMESSAGE!!.ENTR .CPMGETSHORTCHANGETIMEOUT GETBYTE !!BBWW`p`(-WA\p`pV_0V(*`Y(,(T`^P(1(4(T`]P(8(D<W\pVAV00LmC(TP(H(K`Z(T`[P(O(R`Z(T`Y0DW @N>>X2&>PUTMESSAGETOPC92077-1x852 Rev.5010 871105 /SRC_92077/R5010/PROTOCOL.FTN >++E BLOCKNR BLOCKCM PACKETBACK MSGBACK PREVCM+ PUTMESSAGETOPC22.ENTR .EXIT .SSTBUMPBLOCK OUTPUTMSG FINISHPREVIOUSMEPROTECTMESSAGE2AA !!! !(A!#!`%p Agb! p@V>>X"/>PROTECTMESSAGE92077-1x852 Rev.5010 871105 /SRC_92077/R5010/PROTOCOL.FTN >++EBLOCKNR BLOCKCM PACKETBACK MSGBACK PREVCM+PROTECTMESSAGE$$.ENTR COMPUTECHECKSUM PUTSHORTGETSHORTPUTBYTE $HH9%%A(.(-(,(+p(h*Hp&x'$&('H(@'7E??Xr4>FINISHPREVIOUSME92077-1x852 Rev.5010 871105 /SRC_92077/R5010/PROTOCOL.FTN ?++EBLOCKNR BLOCKCM PACKETBACKMSGBACK PREVCM+KFINISHPREVIOUSMEj|.ENTR OUTPUTMSG GETREPLYUU++A`(p`1p.`3h2 (!()%/88.(p( U/  @*>H;;X7 q>GETREPLY92077-1x852 Rev.5010 871105 /SRC_92077/R5010/PROTOCOL.FTN ;++EBLOCKNR BLOCKCM PACKETBACKMSGBACK PREVCM+ GETREPLY 7c.ENTR .CBTFLUSHPC GETSTR}}]@@A dp_`ehmd(_(`p((("('`n(](4.`(3`(]`ehkAd(<(?(?(]`ehi}AA1Bd(G(J(J`o(]A`ehgd(R(U(U`n(]X(]`nA""E`F T S H   "@ʡa>>Xu>PUTBACKMESSAGE92077-1x852 Rev.5010 871105 /SRC_92077/R5010/PROTOCOL.FTN >++EBLOCKNR BLOCKCM PACKETBACKMSGBACK PREVCM+PUTBACKMESSAGE .ENTR .EXIT .SST%%H`p`%h2 @ @|<??Xj<>GETMESSAGEFROMPC92077-1x852 Rev.5010 871105 /SRC_92077/R5010/PROTOCOL.FTN ?++EBLOCKNR BLOCKCM PACKETBACKMSGBACK PREVCM+CGETMESSAGEFROMPC--.ENTR .EXIT .SSTAREYOUTHERE GETCURRENTMESSAGFINISHPREVIOUSME-cc556`(A68 ph; 0(3(6(3`:(/(22((c06  @js3??X|.>GETCURRENTMESSAG92077-1x852 Rev.5010 871105 /SRC_92077/R5010/PROTOCOL.FTN ?++EBLOCKNR BLOCKCM PACKETBACKMSGBACK PREVCM+UGETCURRENTMESSAG.ENTR BUMPBLOCK GETSHORTGETVALIDMESSAGE WW4s))* *(*-P( *-P((%`p$('`,(W *  @!??XV^>GETVALIDMESSAGE 92077-1x852 Rev.5010 871105 /SRC_92077/R5010/PROTOCOL.FTN ?++EBLOCKNR BLOCKCM PACKETBACK MSGBACK PREVCM+/GETVALIDMESSAGE 33.ENTR ENDPRIORITY PUTSTRFLUSHPC VERIFYMESSAGE INPUTMSGBEGINPRIORITY 3~~ICCT p`ZpQT(Th] (.)`(.``\(2(66X`\h[ (E88Q(~E (LLVNR S F @Qp>>XA>VERIFYMESSAGE 92077-1x852 Rev.5010 871105 /SRC_92077/R5010/PROTOCOL.FTN >++EBLOCKNR BLOCKCM PACKETBACK MSGBACK PREVCM+|VERIFYMESSAGE "".ENTR .CPMCOMPUTECHECKSUM GETSHORTGETBYTE "hh77:`@:?P>(:=pAh0(&(`<@p9-:9p1:P(5((h:@%C??X`2>COMPUTECHECKSUM 92077-1x852 Rev.5010 871105 /SRC_92077/R5010/PROTOCOL.FTN ?++EBLOCKNR BLOCKCM PACKETBACKMSGBACK PREVCM+YCOMPUTECHECKSUM  .ENTR .IDLP GETBYTE GETSHORTKKb1%%A,p,1p`/@p*`0ph*.('p+!,@p88+(`K,@]|W<<Xu>BUMPBLOCK 92077-1x852 Rev.5010 871105 /SRC_92077/R5010/PROTOCOL.FTN <NBUMPBLOCK .ENTR 33pGA`(( `((((3  @Dž<<X%>OUTPUTMSG 92077-1x852 Rev.5010 871105 /SRC_92077/R5010/PROTOCOL.FTN <++EBLOCKNR ((BLOCKCM PACKETBACK MSGBACK PREVCM+oOUTPUTMSG ~.ENTR .EXIT .SBST PUTSTRGETSHORT55  $p`"@p J#5 @o /;;XJ>INPUTMSG92077-1x852 Rev.5010 871105 /SRC_92077/R5010/PROTOCOL.FTN ;++EBLOCKNR BLOCKCM PACKETBACKMSGBACK PREVCM+ #INPUTMSG ?4.ENTR .EXIT .SBST GETSTR,,`@pA,  @a!;;X>9>GETTEXT 92077-1x852 Rev.5010 871105 /SRC_92077/R5010/PROTOCOL.FTN ; 7GETTEXT  2.ENTR .EXIT .SBST .SSTGETSHORTOO;..A422p`((*`8 HAp/x0/2/0A4/(.46HO 1 b@D;;XG2>PUTTEXT 92077-1x852 Rev.5010 871105 /SRC_92077/R5010/PROTOCOL.FTN ; PUTTEXT  B.ENTR .EXIT .SBST .SSTPUTSHORTII++/--(()`1 p+x,+-+,D+/@I-@#??X)b">OPENFILETOREAD92077-1x857 Rev.4010C 871104.0044 /SRC_92077/R5010/FILE.FTN ?B?FILEERROR INFILEOPENFILETOREAD8>.ENTR OPENTEXTTOREADOPENBINARYTOREAD;;GA  pp`( ( ;   @4w<<XX>CLOSEREADFILE 92077-1x857 Rev.5010 881017 /SRC_92077/R5010/FILE.FTN <B?FILEERROR INFILErCLOSEREADFILE }B.ENTR GETSTATUS FMPCLOSE!!% A !@ ]==X#>GETBYTEFROMFILE 92077-1x857 Rev.5010 881017 /SRC_92077/R5010/FILE.FTN =B?FILEERROR INFILEJGETBYTEFROMFILE f.ENTR .CPM.LBTREADRECORDFF7(( p(`@"p!h! `pF  0! @t::X>)>READRECORD92077-1x857 Rev.5010 881017 /SRC_92077/R5010/FILE.FTN :B?FILEERROR INFILE]READRECORD.ENTR .SBTREADTEXTRECORDREADBINARYRECORDII##`( `(`((((`(!@`'h&I W% 0" @y==X#+>OPENFILETOWRITE 92077-1x857 Rev.5010 881017 /SRC_92077/R5010/FILE.FTN =C֋3OUTINFO FILEERROR OUTFILE COPENFILETOWRITE ++'=.ENTR .EXIT .SSTOPENTEXTTOWRITE OPENBINARYTOWRITFMPPURGE+FFFu%%A' ')'Hpp`('(##'F ' P @=7<<Xz E>CLOSEWRITEFILE92077-1x857 Rev.5010 881017 /SRC_92077/R5010/FILE.FTN <C։ 3OUTINFO FILEERROR OUTFILE CLOSEWRITEFILE...ENTR .CPM GETSTATUS FMPCLOSESETFILEINFO WRITEBUFOPENWFILE .ww::A`(>DBB@(JC(&(&@p:!:(&(`(1,(1(5 8(wo=wcPz@|<<X>PUTBYTETOFILE 92077-1x857 Rev.5010 881017 /SRC_92077/R5010/FILE.FTN <Cք3OUTINFO FILEERROR OUTFILE PUTBYTETOFILE $'.ENTR .SBTPUTTEXTBYTE PUTBINARYBYTE 441 `(Jh(Jh4  2 @d$<<X">OPENTEXTTOREAD92077-1x857 Rev.5010 881017 /SRC_92077/R5010/FILE.FTN <B?FILEERROR INFILE OPENTEXTTOREAD|.ENTR GETSTATUS FMPOPEN 44}&!pp4֭ros 6@Ϭ<<X.>READTEXTRECORD92077-1x857 Rev.5010 881017 /SRC_92077/R5010/FILE.FTN <B?FILEERROR INFILE READTEXTRECORD~.ENTR .SBTREADBINARYRECORDJJ:$$A`,p$$("@)p(`+h(`-@)p(H`*h(`-J'P! @_W~==X%">OPENTEXTTOWRITE 92077-1x857 Rev.5010 881017 /SRC_92077/R5010/FILE.FTN =Cց3OUTINFO FILEERROR OUTFILE ]OPENTEXTTOWRITE *.ENTR OPENWFILE ,,!p` p, wc2@7%U;;XEp>PUTTEXTBYTE 92077-1x857 Rev.5010 881017 /SRC_92077/R5010/FILE.FTN ;Cօ 3OUTINFO FILEERROR OUTFILE IPUTTEXTBYTE i.ENTR .CPMMIN0.LBT.SBTWRITEBUFզ<<xf`(`(ShhPmp_hfPl_p_n( _(8 @@dpcH`khc`j@p_3_p`(ShfPi(=MM}<##(B`np(S`@dHpchfhcJ`p_APo_phfHHhh`n([(]MbP)P * @Om==XXH>OPENBINARYTOREAD92077-1x857 Rev.5010 881017 /SRC_92077/R5010/FILE.FTN =B?FILEERROR INFILEAOPENBINARYTOREAD.ENTR MAKEHEADERGETSTATUS FMPOPEN qqn88@@DFp`GPp (3(@BFp,(22 (7p pq"; rosfx ros v|@v==X27>READBINARYRECORD92077-1x857 Rev.5010 881017 /SRC_92077/R5010/FILE.FTN =B?FILEERROR INFILE@READBINARYRECORDg.ENTR GETSTATUS FMPREAD ddVR11A `(h6X p() p`(0`5`5pd 5 @Ȼ{::X:%>MAKEHEADER92077-1x857 Rev.5010 881017 /SRC_92077/R5010/FILE.FTN :B?FILEERROR INFILEIMAKEHEADERY`.ENTR .MBTGETINFO BBpAAh!`#  p`$pBs^ @"8 @j==XH>OPENBINARYTOWRIT92077-1x857 Rev.5010 881017 /SRC_92077/R5010/FILE.FTN =C~3OUTINFO FILEERROR OUTFILE O OPENBINARYTOWRIT.ENTR ..^`pp`pp. d @)<<X5>PUTBINARYBYTE 92077-1x857 Rev.5010 881017 /SRC_92077/R5010/FILE.FTN <Cֈ3OUTINFO FILEERROR OUTFILE  PUTBINARYBYTE !!Q.ENTR .CPM.LBT.SBTWRITEBUFSAVEHEADER!ccDL--x4`@2p1h4HJh1` Jp()()`( ((@p-& -p(+c0 )@@_N::X>SAVEHEADER92077-1x857 Rev.5010 881017 /SRC_92077/R5010/FILE.FTN :Cօ3OUTINFO FILEERROR OUTFILE ZSAVEHEADER""0.ENTR .EXIT .SST.CBTOPENWFILE GETINFO "}}I88AA`h( p`(^`p(-+`p*/`p)p`pJ:(?}WW?--J(O(>`(h (] p (hf`pp(>W**swcwcfxP@0*FHL*@;;X<|A>SETFILEINFO 92077-1x857 Rev.5010 881017 /SRC_92077/R5010/FILE.FTN ;Cւ3OUTINFO FILE((ERROR OUTFILE SETFILEINFO %%Ο.DIN.ENTR GETSTATUS FMPSETDIRINFO FMPSETDCBINFO %ww::A`) X) h@X) h?X) (, @-:$:+*'(,5>>/>>8(+w > @:==Xņz>FILEERRORMESSAGE92077-1x857 Rev.5010 881017 /SRC_92077/R5010/FILE.FTN =B?FILEERROR INFILE?!8FILEERRORMESSAGE|p.ENTR .EXIT .SSTTRIMLEN FMPERROR--5A56p`55(G7(l5(K(R-**XBinary FMGR files must be restored to a FMGR cartridge. *iK Apt`y7(l`x5(V(]''4New version of File System -- Monitor out of date '44VApr`w7(l`v5(a(d7(lh5pkp784[p 18 7 18@¸;;X5M>FILEENQUIRY 92077-1x857 Rev.5010 881017 /SRC_92077/R5010/FILE.FTN ;B?FILEERROR INFILELFILEENQUIRY ;; ?J .DAD .DIN .DSBR .DMP .DCO.ENTR .JMX0 FMPCLOSEGETINFO GETSTATUS FMPOPEN ; >>   (J($` (&` -p1`P(5(7`p;(A`p(I`P(E(IqH>>p(QpU(Ze`P(i(l({`P(p(q({`(y`p({` (`\\;;  (ˀhX (` A @ (`@ @ D   ш  щ \""i6A ((ˈ ϡ(Y"))Srosqwofq   )@<<X>PURGEWRITEFILE92077-1x857 Rev.5010 881017 /SRC_92077/R5010/FILE.FTN <Cփ3OUTINFO FILEERROR OUTFILE PURGEWRITEFILE&.ENTR FMPPURGEFMPCLOSE''A pp' x PP @3fR&::XVR>OPENWFILE 92077-1x857 Rev.5010 881017 /SRC_92077/R5010/FILE.FTN :Cֈ3OUTINFO FILEERROR OUTFILE ]OPENWFILE %%(.ENTR GETSTATUS FMPOPEN FMPBUILDPATHFMPPARSEPATH%~~MII􈀀B@BNLJHF`(p`(x`(!p`QP(&p2DNLJHF9D@P<~ = $$@ PPP PP P@P$@]|f99X>WRITEBUF92077-1x857 Rev.5010 881017 /SRC_92077/R5010/FILE.FTN 9Cւ3OUTINFO FILEERROR OUTFILE  WRITEBUF P.ENTR GETSTATUS FMPWRITE++fA@p+@099Xa>GETINFO 92077-1x857 Rev.5010 881017 /SRC_92077/R5010/FILE.FTN 9B?FILEERROR INFILE *GETINFO  l.DMP.DDIR .ENTR GETSTATUS FMPINFO |!KKA!@!p6!"p :))(?*"(C(X`#&`$('%("(`(h`@h@((p`'hqqElAA@(`#`#(v(`$A($@&(#h# 0(`$(&($&%'()`p(>q@wZ::X>GETSTATUS 92077-1x857 Rev.5010 881017 /SRC_92077/R5010/FILE.FTN :B?FILEERROR INFILEyGETSTATUS .ENTR ;;צA`( p(`P((`(p;  @"hGGXLx)>INITPC92077-1x854 Rev.5010 881017 Initialize the port to the PC /SRC_92077/R5010/TERM.FTN GB+TTYCM TERMCM oINITPC ** .ENTR MUX_INITPCHPRTEATTY_INITPCHPCRTSSRCDRIVER LUTRU *WW%%A'p`(0p( p(#(`&p(#p`%W d%  @DDXh>DONEPC92077-1x854 Rev.5010 881017 Reset the port to the PC/SRC_92077/R5010/TERM.FTN DB+TTYCM TERMCM aDONEPC .ENTR MUX_DONEPCTTY_DONEPC33A P((  (`P(((3  @DDX>CHANGETIMEOUT 92077-1x854 Rev.5010 881017 Set port timeout/SRC_92077/R5010/TERM.FTN DB+TTYCM TERMCMlCHANGETIMEOUT |.ENTR MUX_CHANGETIMEOUTTY_CHANGETIMEOU''A P((  ('@+oJ/AAX>FLUSHPC 92077-1x854 Rev.5010 881017 Flush input FIFO/SRC_92077/R5010/TERM.FTN AB+TTYCM TERMCM FLUSHPC  QX.ENTR MUX_FLUSHPC TTY_FLUSHPC ''A P((  ('@:**XS/TTYCM/ /SRC_92077/R5020/TTY.FTN* A'+TTYCM #@@@@s3**XQ/TERMCM//SRC_92077/R5020/TTY.FTN* A&TERMCM @wEEX:PUTSTR92077-1x855 Rev.5020 900403 Output a string to terminal /SRC_92077/R5020/TTY.FTNEB+TTYCM TERMCM یPUTSTR /.ENTR XREIO ADR ^^115P((5h5p3x4A7#34(/`9@p`8p%5h5p3x4/734^f=5@@EEXNGETSTR92077-1x855 Rev.5020 900403 Read a string from terminal /SRC_92077/R5020/TTY.FTNEB+TTYCM TERMCM ~GETSTR &.ENTR XLUEX TERMSTATADR ||IBBHP((HhHpFxGAJ%FG(1`M@p`Lp'HhHpFxG1JFGpx7`HP  (D`K|gXH@@a5!88XY3TERMSTAT92077-1x855 Rev.5010 881017 /SRC_92077/R5020/TTY.FTN8B+TTYCM TERMCM TERMSTAT |.ENTR IFBRK ^^z{//( `2(-(`2(-(`1(-($`1(-(+`0(-^ 0 @#DDXgCONTROL 92077-1x855 Rev.5010 881017 Perform control requests/SRC_92077/R5020/TTY.FTNDB+TTYCM TERMCM CONTROL  .ENTR XREIO @A&p* )  @DDX'CONTROL192077-1x855 Rev.5010 881017 Control with 1 parameter/SRC_92077/R5020/TTY.FTNDB+TTYCM TERMCM CONTROL1 .ENTR XREIO !! &p*A)!  @h3FFX6xBEGINPRIORITY 92077-1x855 Rev.5010 881017 Go to higher priority /SRC_92077/R5020/TTY.FTNF ALPRIORCM zBEGINPRIORITY r#MAX0SETPRIORITY 22%pp`A@ppp2  @MFFXה ENDPRIORITY 92077-1x855 Rev.5010 881017 Return to lower priority/SRC_92077/R5020/TTY.FTNF ALPRIORCM 8ENDPRIORITY  ̬SETPRIORITY  pp@c77X  GETPR 92077-1x855 Rev.5010 881017 /SRC_92077/R5020/TTY.FTN7 ?GETPR  k.ENTR SETPRIORITY a; A    @AAXTTY_OPSYS 92077-1x855 Rev.5010 881017 Set OS type flag/SRC_92077/R5020/TTY.FTNAB +TTYCM TERMCM TTY_OP((SYS  -- p`( p(`(`p(p`-  @EEXa PUTBYTE 92077-1x855 Rev.5010 881017 Pack int into char. buffer/SRC_92077/R5020/TTY.FTNE %PUTBYTE  A.ENTR .EXIT .SBST .SST.SBT**}AADh@*  6 @죬AAX8GETBYTE 92077-1x855 Rev.5010 881017 get int from char /SRC_92077/R5020/TTY.FTNA <GETBYTE   .ENTR .EXIT .SBST .LBT++0HhHp`p`+  @ZJJX& PUTLONG 92077-1x855 Rev.5010 881017 Store 4 characters into char. buffer/SRC_92077/R5020/TTY.FTNJ PUTLONG  .ENTR .EXIT .SBST .SST00*A!`%p!D@#0! @jKKXT&!GETLONG 92077-1x855 Rev.5010 881017 Extract 4 characters from char. buffe /SRC_92077/R5020/TTY.FTNK 4GETLONG   .ENTR .EXIT .SBST .SST))6" "D"@$ ) "  @VuAAX"PUTSHORT92077-1x855 Rev.5010 881017 Store 2 characters/SRC_92077/R5020/TTY.FTNA !PUTSHORT .ENTR .EXIT .SBST .SST../AppD @.   @ըBBXMF GETSHORT92077-1x855 Rev.5010 881017 extract 2 characters/SRC_92077/R5020/TTY.FTNB 8GETSHORT  .ENTR .EXIT .SBST .SST(()VDH`p`(   @FeEFFXPRINTERRORMESSAG92077-1x855 Rev.5010 881017 Print final message /SRC_92077/R5020/TTY.FTNF++EBLOCKNR BLOCKCM PACKETBACK MSGBACK PREVCM+SPRINTERRORMESSAG%%SEXEC.ENTR HPCRTMENU HPZWRITELUHPZMVSHPZDECV %}}DDD`(A`Ո(((`h 0(32(`҈(7(<;(`(@(GF}~~ADAA(`Ј(K(TS(`(X(_^(`Έ(c(nm(`(r(zy(}~ `` . Please report this number to your HP representative. Program error Request help on 'ADVLINK' for more information. Vectras and various host computers. AdvanceLink monitor -- transfers filE``es between HP150s, operating system and firmware are up to date.If you have one of these configurations, make sure your HP9000 model 300, 4 channel MUX E-series, DV800 only BM`` A-series, any card, new TTY drivers A-series, 8 channel MUX, old driversAdvanceLink MONITOR supports the following configurations: is out of date. Otherwise, contact your HP represen<``tative This probably indicates that the MONITOR program on the hostSomething is wrong with the protocol. and start it over again. The best thing to do is to completely exit ADVLINK on the PC `` file transfer cancelled by the host because of file errors?). to a bug in the VECTRA version of ADVLINK. (Was the previous There is some confusion about protocols. This is probably due If tm``his happens often, please report it to your HP representatie. Please go back to the ADVLINK main menu and try again.There was some confusion about block numbers. Aborted by the user (BREAK) (L`` multiplexer, you may need to update I/O card firmware.Note: if you are using an HP9000 with an HP98642A or a mistake in terminal configuration. This could be the result of a noisy data l-``ine,Data is being corrupted during transmission. during a transfer. configured properly. It also happens if the PC is reset The PC doesn't respond. This could mean that ADVLINK isn't 7JGGT/b#6.7&Rx*,:<$>`%<>=X>C8-P~81)0.,^9;   @ )GGXnTTY_INITPC92077-1x855 Rev.5010 881021 Start up the communications /SRC_92077/R5020/TTY.FTNGB+TTYCM TERMCMs)TTY_INITPCII tH.ENTR MIN0 MAX0.EXIT .SST CONTROL1 TTY_CHANGETIMEOU CONTROL HPCRTSAVEPORT DECIMALTOINTRCPAR LURQI}}k*88A`m@p%`m@p#`m@p'`m@p)li^`J"i^&^p`(-`k(Z`p4jp\A 9\i p`h}JJ.s=p B(G`g(Z Jf M`dp\ Te\ XcbJ)] = d@ 0@799X#TTY_DONEPC92077-1x855 Rev.5010 881017 /SRC_92077/R5020/TTY.FTN9B+TTYCM TERMCMsTTY_DONEPC.ENTR LURQCONTROL HPCRTRESTOREPORT>>2A`"h! ( >0 @vDDX TTY_CHANGETIMEOU92077-1x855 Rev.5010 881017 Set port timeout/SRC_92077/R5020/TTY.FTNDB+TTYCM TERMCMMTTY_CHANGETIMEOU.ENTR CONTROL14 A    @H@gEEXUTTY_FLUSHPC 92077-1x855 Rev.5010 871105 Flush port after error/SRC_92077/R5020/TTY.FTNEB+TTYCM TERMCM[ TTY_FLUSHPC 00f.ENTR XLUEX MOD XREIO CONTROL1 TERMSTATA_REGISTERB_REGISTER0||Y @@A OTA`Sp*R)pA Qp`(&p`pL/M'Lp 5  hP  0(DO`N (H(J  |0Md@<**XC/MUXCM/ /SRC_92077/R5020/MUX.FTN* A58MUXCM U@@ @x GGXfmMUX_GETSTR92077-1x873 Rev.5010 881017 Read a string in 'raw mode' /SRC_92077/R5020/MUX.FTNG A88MUXCM x6MUX_GETSTRv.ENTR .SCOC XREIO IFBRK ADR DDddhdpXxYA`XYpx`(&`k(P`(-`l(P`dP(1(N`ep_`^^hh(>(@(@`j`ep_A`^^ff(K(M%%DJ(M`j(P`kR(V`j%!!x\    !@9mDDXMUX_CHANGETIMEOU92077-1x873 Rev.5010 881017 Set port timeout/SRC_92077/R5020/MUX.FTND A78MUXCM EMUX_CHANGETIMEOU.ENTR CONTROL5 iA7  @lv>>X]MUX_INITPC92077-1x873 Rev.5020 900403 Setup port/SRC_92077/R5020/MUX.FTN> A:8MUXCM kR.MUX_INITPCFF v.ENTR MIN0MAX0.EXIT .SST PUTMUXSTATUS MOVEWORDS GETMUXSTATUS LURQ LUTRU DECIMALTOINTRCPAR F-::A-A`-;?(p7`7(E.`7p7L7pAQ p7`7p7 Yp ^`@p`@p hppWg**P(o`-(D t`-0p-`p"`.p.`p p$p( p6`7p`p, -(Dp /4 P$@`< d@ @2~99XMUX_DONEPC92077-1x873 Rev.5010 881017 /SRC_92077/R5020/MUX.FTN9 A68MUXCM kMUX_DONEPC2j.ENTR LURQPUTMUXSTATUS442A`(P((4  @((CCX,SMUX_FLUSHPC 92077-1x873 Rev.5020 900403 Clear FIFO buffer /SRC_92077/R5020/MUX.FTNC A78MUXCM UMUX_FLUSHPC u.ENTR CONTROL5MUX_GETSTR}}ACCAOKKKKMRKKK!QKKKK%IhP 0(!8ONKKK@M7KKK`L(D(F}I %d@$C::X8GETMUXSTATUS92077-1x873 Rev.5010 881017 /SRC_92077/R5020/MUX.FTN: A88MUXCM GETMUXSTATUS;%%.ENTR .CPM.IBST .IBTS GETDVTADDRESSES IXGET %,,K  @p(J`@p"!",# A#`#@p/./$.0 A0`0@p<;<1= A=`=@pIHI>HJBBQ(VY p]p>bp`(j(U>m p (v(v(U`@p| `@((`@hHH<ɀ>CALLS REL +#+#+#>.xFST ;;Xׁ 3CALLS 92077-12044 Rev.6000 <920917.2309>/SRC_92077/R6000/CALLS.FTN; A`cCALLSSTUFF ss)CALLS .NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN s%.DCO EXEC .CPM>.ARTN @MIN0?MAX0.FION .SBST B.SC .SCO.SST.SSTC 4.INDX .LBT.NFEX .IDLP .MBT&FMPCLOSE HPCRTXMENUHPZWRITEXLU EHPZOBUFRESET#HPZMVSREPORTFMPERRORDMOVEWORDS lCHPCRTGETMENUITEM:CONCAT=PRINTDESC 9STRDSCANAMEMATCH <CRTLINE TRIMLEN *IFBRK 8PRLINE;CONCATSPACE .CALLSKEYWDHPZDEFIBUF-EXPANDASCIIRLE,FMPREAD 7FMPSETPOSITION6.DLD5BINSEARCH 3FMPWRITEFMPOPEN {{."FMPBUILDPATH2HPZDECV 1DBLSTORE0CREATEALIAS /GIMMEKEYNODEHPZGETNEXTTOKEN +FMPPOSITION )INITIALIZESORT(FMPREWIND 'FMPPURGE$FMPUPDATETIME FMPPARSEPATH!FMPINTERACTIVE FMPSETIOOPTIONS FMPIOOPTIONS{II kBLANKSTRING DECIMALTOINTCASEFOLDGETRUNSTRING HPZDEFOBUF CLEARBUFFER LIMEM ADDRESSOF INTTODECIMALLOGLU I//0 / 0 :: p 7H Q 7` ʨp` p p` Ơpp3,A ,(̊(`@ A (Ŋ(  ( ɡA   7`00@,p`(` p( @p` S@p` S@p%` E@%p~` @~p ` Ǫ@ p `  p`p` @p`%p  ` p  E ~~m|CCB`pɡ S(3`pɡ(  =( =(%$ = G O M C5333 A()A O , =(.p4h 6HP (5(8 =; =p` @p,h~~~@FF 1(p =,,D (O(U(UR 9(T( =D,, (a(q(qd S(pj S$p3`$(p`3p( =D,, (}(( Q(( =~~~EED,, (((` p4(A =,A, S  J Sp SJ 1 (ƀ8,8(C =((0 =(` ˄p' ; qH(h <` >A  9` p~~~N@@҇$ Q 1($ (` p$3`30 =p3` p $3` pɡ!(` @ p 9 G E M C5333 A G _( ((~~~BC HHD G  M _(((h N` A C E _(($($Ah F` P E "0 9 G E M C5A  A"< ? G E C5 1  A`~pE$ 9 1(RK$ #N 9Q(~̑S<<p&`4(`%p`$ ?  1pA`A(v` P$(sk$ #n ?q((u` p<(PA(|` p<($ 9=p$`$($ # 9(~~wAA$ ??p$`$($ # ?(?%=((p<(` p<`&<(: K 9J Kp KJ 1 `%p&̇$' ?p$~N77`$(` ňP$($ ݨ(` @p`~p($`p) pp7p6*(`~pɡ+$:1`~hpx,~~>> $ Kp(`$(P((((`hpx- ( K((`p)( `9(/p9(=`p.4p,P,(9(g` p8` p6@ I(f I ~zE<<(H(L(L` ˈp9((eO Ip3/U 3+(`8(_`+p7p8(e0c+7((=(` P,(k(pp6p7(` CP,(t(`7(z I( Ip3/»@@ 3+(07+((w(` P,((`7( I( Ip3/ 3+(0+7(((`,6(`@7p11p6(` @~~77p`h `h2# `@@ p,`@,p2# `,@p2ɡ# `@,p,` À@,h'x3" ?~}}.7@@ G E C5 13  A`%p $ ? 1($ # ?(`%hp`,@px3$$(.*$ -(`%pɡ&4$` p&`4}~~e8<<((W`%h p` @@pxʡ,J$(TP$ }S(` P (Y (`@p4 ; {p4 ; y0p)`)(tp.`@ p-(~}}t88w ;p3`3(`p53+ɠ(`((@+p+`p`@+pɡ6ɉ1`1(F`~p7$ 1((` p0`~hpxʡ,$}}}+<< Kp(`$((`((F`hpx-( K((  Y(`p( `p.ԇɀp,P,h X, 0(∈(F(?` P,((`}~~R@@(p8 1((?` CP,h X, 0((?`0(7p0J = _`@+@ ChH+H px9 1: =: = w`pɡ9% 1(;~~~1(<<, = 1/ =pɡ84((?`p8=((*A(E((F(`@+(u`@+@ p/`/(u`@/(u`@/p+ ; _J`@+@ C~dCChH+H pɊx9n 1ʉɡ:t ;Ɋ(`@+@ p+p*`+(`*(< _(LA = u ;: = sA =p = 1<(L< _(L` ~~#CCp*`@+p/=/$>L`@+p+(|`*(L( ; qA(L = ;: = o`p =pA = 1<(L< _(L`@  +(~}}mM<<(`@ p+` @+pA? Ɉp.` @.hH pxA@ʀp-p*`.Ap,h- 1(9p`@,p+`)hH+H Cpɨ`@+@ pˊx9  1ˉʡA& ;}~~&EE0(5` ˊp*=/+$>5L8,8( `*)(LA = m ;:H = k LA =B / i gB - C U e U c ^ _ / -`pCf S ap(`((@@~Fk@@n( 9p(A ; _`h( 5pxD~  _` ˈp'(]`'(L($ ]($ [# 9`&(` P$h X$ 0(E((DDS  Y(  W`~p&$`%p&$` p&Ƈ$  7D"`` Calls: Memory overflow. error in expanding compressed textwhile reading while positioning ,() A_A return. Put cursor on desired name or type new name, press ".No matches for " not found; WP``some other keys are:[default] ":The following topics are associated with " -- - @ while reading index filewhile writing index filewhile creating wcINDX words free. words; keys found; \ whilw``e purging old index file. calls: Creating index file for while obtaining update time for while opening ros call/catalogs/opening list file cow " Unknown option "B L P C Calls Calls: Not enoug8 MMh memory; size me up. Not enough memory, TIME TO SEGMENT! 0,@0@0,@@@@@T@P0" ! ]EE *< >B DF 3N    *   "2 4 8 D L Z\ z     EE  ** %#6-  +E@# @499Xr?CRTLINE 92077-1Y011 Rev.5020 891101 /SRC_92077/R6000/CALLS.FTN9 A`cCALLSSTUFF (CRTLINE   =.ENTR HPCRTXMENUFMPPAGINATOR::yA=pPp`(=`: = @588X49FI9  @߳s99XgCALLOCMEM92077-1Y011 Rev.5020 891027 /SRC_92077/R6000/CALLS.FTN9 A`bCALLSSTUFF ALLOCMEM  .T.ENTR .CPM GG``p`@p`p!0!(p(`Bp`G bB @R ::XÈPRINTDESC 92077-1Y011 Rev.5020 891101 /SRC_92077/R6000/CALLS.FTN: A`bCALLSSTUFF x PRINTDESC  WW ߂.ENTR .CPMCRTLINE HPZOBUFRESET HPZOBUFUSED HPZMVC HPZMVS HPZSBTEXPANDASCIIRLEFMPREAD FMPSETPOSITION.DLDHPZPADTOPOSITIONWY ;; ` @h Hpx` p`(Z`~p0 (`~hpx< p (`hpx~~E<<K(`(Y S`pY(` @p`(f e( i鈀`p`(`@p`@@p`(}p(  ~zz]::`@ (( (`@@p`@p(k  (p (p (`p (`p (`p `  z++, alias to [em pty] O +@#8::XkCALLSKEYWD92077-1Y011 Rev.5020 891027 /SRC_92077/R6000/CALLS.FTN: A`fCALLSSTUFF CALLSKEYWD %%.ENTR .CBTCASEFOLDHPZGETNEXTTOKEN FIRSTCHARACTER%q.TOPIC.END .PAGE .SEE .GROUPaa7//ApPj(((>!g(>&gp`ipA`b@dpc`fhcAb(7(:(:`p(>88A(*`ab `P` @Ojn*;;X ECREATEALIAS 92077-1Y011 Rev.5020 891027 /SRC_92077/R6000/CALLS.FTN; A`cCALLSSTUFF CREATEALIAS  '-.ENTR INSERTALIASNODE ALLOCMEMBB C(`@`Cpp``Dp(B cC @\;;XzGIMMEKEYNODE92077-1Y011 Rev.5020 891027 /SRC_92077/R6000/CALLS.FTN; A`cCALLSSTUFF aGIMMEKEYNODE ##X.ENTR INSERTNODEMOVEWORDS ALLOCMEMBINSEARCH # >>A(`(Mp@@wpT$T(Q` `@v` @x`@w    @pTxU--@DTUJ(Qp``yp(O- eDv @^z}:--X/CALLSSTUFF//SRC_92077/R6000/CALLS.FTN- A`aCALLSSTUFF  More... @.\FFX&ř&INSERTNODE92077-1Y013 Rev.5020 891101 Initialize & Insert /SRC_92077/R5020/CALLSMAC.MAC F4INITIALIZESORTINSERTNODE 4g.ENTR .MVW oA`,,-A X(#`H%A ,@l,DDXř'BINSEARCH 92077-1Y013 Rev.5020 891027 Search for calls/SRC_92077/R5020/CALLSMAC.MAC D QJBINSEARCH ..ENTR .MBT.SCOCASEFOLD q r.#H ttK>>ADpFHx`D6hEEpA^`@(5@FGI@x"6h#A"Au""((~F@p(^FFp(^Jt@ 5DDX~ ř'DBLSTORE92077-1Y013 Rev.5020 891027 Wrapper for .DST /SRC_92077/R5020/CALLSMAC.MAC D DBLSTORE .DLD.DST.ENTR ZAAA@EEXw:ř'INSERTALIASNODE 92077-1Y013 Rev.5020 891027 Make aliases/SRC_92077/R5020/CALLSMAC.MAC EA INSERTALIASNODE  !e.ENTR .SCO ff% 00AH9p 6xp (.x@9x6pA(8(.`(`x ` f@y9`@+@ C~dCChH+H pɊx9n 1ʉɡ:t ;Ɋ(`@+@ p+((%PRINT::RTE_6:5:51:128 644 0 0 31400 5310707011 33316 %PRINT::RTE_6:5:51:128 $33%PRINT +#+# +# 3~.FST ::X2ZPRINT 92077-16009 Rev.5020 <890816.1646>/SRC_92077/R5020/&PRINT :RRI-OPTPRINTMSG OPTIONS .NLS "DEFWORKINGDIR "CURWORKINGDIR &PRIN0STRING TERMINAL"OUTPUTOUTPUTLURsshPRINT .NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN s~~xEXEC*.CPMERR9(XLUEX .FION .SBST .SCO.SST'.SSTC .INDX .LBT.SBT .MBTCLEANUP_AND_DIE !PRINTNLS INTTODECIMALTRIMLEN STATUS FMPREPORTERROR,FMPRPPROGRAM+IDGET )LDTYP "HELP~ddMSPLITSTRING %MASKOK#MAKE_FILENAME $FILEOK OPTIONOKTYPE_OF_ARG IFBRK BLANKSTRING FMPHIERARCHNAME FMPWORKINGDIR FMPOPEN CASEFOLDBLANKFILL LOGLU d cF ]hCC n^pArx(0{ ((`1p  h`A   ] pg`]( @]~~<<(p]`](`1p!p   D(((  D@@ p `!p!h`A  ` ~~~o==p ((dHfhhHHhP(( `fp `1pp ((AhP((% e($`e(h` ! /""$~}}6,$HHH(AhP(*(6#/d$2((A#;d%>(`(TApdA @&p&(gAߤA&dA'Hh` }l::hPphP0(|`1p& `&@dp&(` (` 0(`1p&(`&("`&(!."` ~~8??(`pb(b_`(`-`p`)pa`,Pah+Xa h*X` (`p*)0(`_P߈(( A!'~~~EE(D&'h`A `A@&p&p^`p+(J,]p\`]h&X] 0(([(J`%P]h$X] 0(-!*#~ϖ*99,(J`"P](1(7!4!6(J` P](;(A!>@(J`P](J H]J`@p8^8(!T!WY[` (g c۠icGGAjp\AA\&A'h`A  `&@\@p&`&Ap&A(`-(! 44NAA!J!!4LL, RU, PRIN0 PRIN1 ,+/ rwos+Q@, ,`@B@6v@w@ @0" MFOLy((xwv muts r/qTTPR?o(@<(h<<X/OPTIONS/ 92077-1X009 REV.2440 <890816.1646>/SRC_92077/R5020/&PRINT < A(QOPTIONS  @E::XU:/NLS/ 92077-1X009 REV.2440 <890816.1646>/SRC_92077/R5020/&PRINT : A1NLS @k??XѦ/DEFWORKINGDIR/ 92077-1X009 REV.2440 <890816.1646>/SRC_92077/R5020/&PRINT ?AT"DEFWORKINGDIR 220"" 2@L ??X/CURWORKINGDIR/ 92077-1X009 REV.2440 <890816.1646>/SRC_92077/R5020/&PRINT ?Ae"CURWORKINGDIR 22"@"" 2@x8>>XJ/PRIN0STRING/ 92077-1X009 REV.2440 <890816.1646>/SRC_92077/R5020/&PRINT > APRIN0STRING MpP`` MMhP`88 M@=\<<X/TERMINAL/92077-1X009 REV.2440 <890816.1646>/SRC_92077/R5020/&PRINT < A TERMINAL E` ` @#B;;Xӡ/OUTPUT/92077-1X009 REV.2440 <890816.1646>/SRC_92077/R5020/&PRINT ; Af"OUTPUT 22'rp"" 2@y;;XҜ!BETWEEN 92077-1X009 REV.2440 <890816.1646>/SRC_92077/R5020/&PRINT ; ,BETWEEN   .S.ENTR .CPM 776;AA( p((` p(p`7 a  @Ş99XDT5ONLY92077-1X009 REV.2440 <890816.1646>/SRC_92077/R5020/&PRINT 9 ?ONLY  .ENTR ERR9.SBST .INDX IIR**A20`4pp(+p/-2D0-('p88/(`Ie0@]6{;;XOPTIONOK92077-1X009 REV.2440 <890816.1646>/SRC_92077/R5020/&PRINT ;\\J OPTPRINTMSG OPTIONS TERMINALLOCALBUFFER "DEFWORKINGDIR "CURWORKINGDIR PRIN0STRING "NLS "OUTPUTOUTPUTLU\ DOPTIONOK  zzEXEC.ENTR ERR9.SBST .SCO.SST .SSTC .INDX .LBT.SBT.MBT.CBTPRINTNLS BETWEEN FMPREPORTERROR!FMPOWNER TRIMLEN FMPHIERARCHNAME CASEFOLDFMPCLOSEFMPPURGEFMPOPEN zS DECIMALTOINTBLANKSTRING }}ݮ DD `p  p`@phAhp `P A(*(KA7(F`p ?p Dp(Jp ` (Z` (Rp }~~P??(H(Z UP(Zp (HhPphP0phHP0phP0(`(|p (hP((`p (hPphP~~~)7==0(p ` hHP((`p (hHPHphP0( `( `( (`p p (p (ȡp `(~7>>p `(p (⡡h``p p ` hh(h``p p ` hh( ' ??p (hP((`(`p(p (hHP("(=A`h(*p`hA(40(:(<p (hHP(B(T`p ~~IAAM(Q(Sp (hHP(Y(l`(k`p e0(kp (hHP(q(`(`p }0(p (hHP((@~~~o??((p (H`(`ըp (`@pAhPphP(p ` (H`p (hP(È(;`(8@h`~~~ EE pD(((D@@p`h  (p!(HH(&hP((h`A`p (&`!(p (H~~~@BB(&D D  ` @p !*p`(52p (7`ըp!(:p H(hP(@(}`(z H(Np (H S~[[P00(yh`A ^`@pghHPHphP(y` p (|p (p (H[y)QQ/ OKOFONrwc rw os: `    @ @ @` ((@@ B@     yYX/WPMIFCBOASQ?N < d @o/99X=2%HELP92077-1X009 REV.2440 <890816.1646>/SRC_92077/R5020/&PRINT 9 wHELP GPRINTNLS CCpp`"p  88 ($`#p`!p88(C ! @Fqe1;;XPRINTNLS92077-1X009 REV.2440 <890816.1646>/SRC_92077/R5020/&PRINT ;BNLS TERMINAL `PRINTNLS 77N.ENTR FMPCLOSE FMPREPORTERRORFMPWRITEBLANKFILL MPRINTNLREADREL NLS_PARAM 7KError accessing relocatable message >>Aߡ @`p`(С`33:(  ("@`@`@`@@`#3@a??XCLEANUP_AND_DIE 92077-1X009 REV.2440 <890816.1646>/SRC_92077/R5020/&PRINT ? ATERMINAL CLEANUP_AND_DIE  EXECFMPCLOSE N p @݁A::XhFILEOK92077-1X009 REV.2440 <890816.1646>/SRC_92077/R5020/&PRINT : A@NLS FILEOK  ((.ENTR ERR9.SSTPRINTNLSFMPCLOSEFMPERRORFMPOPEN (~~8IIA`p p`( Jp(PhX 0hX 0hX 0hX 0(J~p`!!prosq @@@ {z!@ ::X^MASKOK92077-1X009 REV.5000 <890816.1646>/SRC_92077/R5020/&PRINT :##DOPTIONS tLOCALBUFFER TERMINAL@NLS # fMASKOK  OO $EXEC.ENTR ERR9.SST.LBT .MBTPRINTNLS FMPENDMASK FILEOK FMPMASKNAME FMPREPORTERROR FMPNEXTMASK FMPINITMASK O~~eBBAee`pdvc(|cpd`df`(A  pB cC(`c(c pd~==(~( C (`BpB`( (~h` ( `B(pd J (~  ` @p@22FHhP phHP(pd (~2$$  @@ @ByYm~}|t$@8%PRIN0::RTE_6:5:76:128 644 0 0 46000 5310707012 33723 %PRIN0::RTE_6:5:76:128 $LL%PRIN0 +# +# +# L%.FST ;;XVZPRIN0 92077-16054 REV.5020 <900427.1718> /SRC_92077/R5020/&PRIN0 ;NNI&USERNAMESCHED OUTSTUFF OPTIONS '@FILES $EJECTSTUFF DCBS "DEFWORKINGDIR "CURWORKINGDIR NsshrPRIN0 .NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN szz EXEC ERR9.FION .SBST .SCO .SST.LBT.SBT.MBTCLEANUP_AND_DIE %EJECT TRIMLEN SPLITSTRING #PROCESS_A_MASK!MAKE_FILENAME "PROCESS_A_FILE HANDLE_OPTION TYPE_OF_ARG HANDLE_ERRORzVV FMPAPPEND FMPOPEN FMPPURGECOMPUTE_SPACING GET_OPTIONS PRINT_JOB_OWNER PNAME LOGLU FMPHIERARCHNAME FMPWORKINGDIR BLANKFILL VǗrAAAx~pp`p(`p!Ap     A (A((    A  @ p `!p !~~??Ah` ` p oph`pm`m((>A Am   砊`(ppq~M??`p(p(>`(pp`phXp (  pppq`戊Pp(() ppq`p(((p(>`p(00p`}}1<<(77p`p(>>ph`` pn p po`(pSVpm`oP([(]`np `m(a(fHmhhHHhP}}}9m>>(o(t sm(hHP(y(!~m"ȈH(hP∡((!m#pm(]Ah`8o8(N`p$%}YY144O rwocrwo wo / ZZ ,,, @X@ @p@ `@` @l nr vx zMFOY@kr==XgGET_OPTIONS 92077-1X054 REV.2440 <900427.1718>/SRC_92077/R5020/&PRIN0 =C>  OPTIONS FF ETC GET_OPTIONS ?? s.ENTR ERR9.SST.INDX .LBT.SBT .CBTTRIMLEN SPLITSTRING DECIMALTOINT BLANKSTRING ?~~EEA܉Ap`((pلhP(H(hhDp`P( (J (`p phP~~~e!55(#(&`p H(hP(+(;`hA (3(6(6`p (8p `p (hP(@(C`بp(hP(H(S`p `(P`p (R`p (hP~{{ˆV55(X(``p `(_`بp (hP(e(h`p (hP(m(p`p (hP(u(x`p (hP(}(`تp p({@@M%% ON: m =  @,@ l@m XPONMIFCA+@@>>X5HANDLE_OPTION 92077-1X054 REV.2440 <900427.1718>/SRC_92077/R5020/&PRIN0 >C ETC "DEFWORKINGDIR "CURWORKINGDIR  JHANDLE_OPTION N.ENTR ERR9.SBST .SCO.SST.SSTC .INDX .LBT.SBT.MBTCLEANUP_AND_DIE FMPREPORTERRORFMPOWNER TRIMLEN FMPHIERARCHNAME BANNEREJECT ADVANCE_LINES HELP DECIMALTOINTBLANKSTRING BHDDHHpF`@phAh',pG`.PGA(b(}3Ao(}`4pF wpB |EHpDh'P2(( H(h'P1((` EE( .(`4p H(h'P0((h!`A   A pC CCA((A(( CCA*@CpC`EhD   (p!}}`.@@J(hP/((h#`!`Cp (`!(A(($ AAB".(J` @Bp " pA`A(  A (`4p!(}88 / : @@@@@0@@*,./WB?8@??XCLEANUP_AND_DIE 92077-1X054 REV.2440 <900427.1718>/SRC_92077/R5020/&PRIN0 ? Ap DCBS CLEANUP_AND_DIE EXECIDCLR FMPCLOSE,,p ,@TsU>>XPROCESS_A_MASK92077-1X054 REV.5000 <900427.1718>/SRC_92077/R5020/&PRIN0 >PROCESS_A_MASK00m.ENTR FMPENDMASKPROCESS_A_FILEFMPMASKNAME FMPNEXTMASK FMPINITMASK 0\\33AՉ @  (@ (`(@((@   (@(\  @ @@t@l>>XCPROCESS_A_FILE92077-1X054 REV.5020 <900427.1718>/SRC_92077/R5020/&PRIN0 >MMJf(USERNAMEOUTSTUFF OPTIONS )@NLS *@FILES ETC EJ((ECTSTUFF DEFOPTIONS DCBS#BUFFERM[PROCESS_A_FILE.ENTR .CPMERR9MAX0.SBST .SST.SSTC .MBT'FMPPURGE&FMPCLOSE HANDLE_ERROR%DOWRITE $BLANKFILL "FMPREAD !BREAK EJECT BANNER ADVANCE_LINES TRIMLEN FMPPARSEPATHPRINTNLSDAYTIME LL HTIMENOW FMPACCESSTIME FMPUPDATETIME FMPCREATETIME FMPINFO CENTERRMACCTPW FMPREWIND IS_CARRIAGE_CONTFMPOPEN L~~uFFAA+j1Ap`j((Ph4X 0h@X 0h?X 0h>X 0((`(jp`j( j-~~~==( j`j( j-(` 0 (`( 3( ` (Wh*`A )@=pA <p@pp;~~~+3AApjts`s(I&qpj+q)/:p3qpj8q)<9p@qpjEq)I8pKqQq)U7pp` ~)YHH(` (` `3l!#'nmok%opns#pm`nJ@m(|hm A(6nA#6Am!3/J !(  3 ~~7;; `(p p (  p!"j#5pl`j(ġ j-((`l(((р`l(`4pl$%ljB(ڊ( ~--3j-((&kpj` ('pj(-PPQ00I . ros @ 0 @@@ ( (@ @& (*% P@Qp99XurHELP92077-1X054 REV.2440 <900427.1718>/SRC_92077/R5020/&PRIN0 9CETC DEFOPTIONS BUFFER wH,HELP 88 ERR9.SBST DOWRITE MPRINTNLREADREL BLANKFILL ADVANCE_LINES BANNEREJECT 8uu96,::,p,p3`(J=p(Akp)fkn)Gf Jop+`mph QiX+( kp) _i)(qp*8+8h(N,uvi P@x8;;XoDOWRITE 92077-1X054 REV.2440 <900427.1718>/SRC_92077/R5020/&PRIN0 ; D" OPTIONS EJECTSTUFFETC  DCBS -~DOWRITE   OOP.DDE.ENTR ERR9MOD .SBST .SST .LBT.SBTHANDLE_ERRORFMPWRITEBLANKSTRING BLANKFILL CNUMD FMPPOSITION OA??Ԉԉ`p( `pp `pp`((p(@ޠ`(= p `(/`@FFhHpxA A   `@p D  H (<`@p D  H (`pلh h(`݊pKAp  VҪp `VkYGG(` (_(o`@hHpxA A   `@p D  D  H (`@p D  D  H @pϠ`(`pcc122`(`A@p(`h Apx  A  (ɀ(Њ`p`p`Өc%% O     %@On??X%^COMPUTE_SPACING 92077-1X054 REV.2440 <900427.1718>/SRC_92077/R5020/&PRIN0 ?**EDEVSTATSOUTSTUFFLENGTHS @FILES CONTROL *2COMPUTE_SPACING FXLUEX LDTYP DECIMALTOINTj66p Tp`(\`[pp`ZPhYX 0(*`]p`Xp(0`WP(.(0`]p`(;`(9`pDD'8(;`p`(F`(D`p(F `p@hVHxShSpDzT @@@TTPR? @GWf::XZhBANNER92077-1X054 REV.2440 <900427.1718>/SRC_92077/R5020/&PRIN0 :C5:OUTSTUFF  OPTIONS BUFFER sBANNER == V.ENTR ERR9MIN0.SBST .SST HANDLE_ERRORTRIMLEN DOWRITE S5X7CENTERBLANKFILL =GGA\^\pXXp`f@ @pX$Xpp`dpZX\Je 5X`X^D^ JX`B^pX I^Xg #K (R Pb88Z()(Q [ I @~>??XuIS_CARRIAGE_CONT92077-1X054 REV.2440 <900427.1718>/SRC_92077/R5020/&PRIN0 ?B? DCBSBUFFERWIS_CARRIAGE_CONT --.ENTR .CPM.LBTBLANKSTRING HANDLE_ERRORFMPREAD BLANKFILL -~~>>App`~ptzzp`('`%|`P(+(,(%`H(mhyp5vhX (@`p(%(m`P~UULD..hX A0pr (Ops (Vs0r(\(mA (apr (hr(m(%88t((%U""uI PPP~!30+*1"@L::XW1BREAK 92077-1X054 REV.2440 <900427.1718>/SRC_92077/R5020/&PRIN0 : ;BREAK  CLEANUP_AND_DIE PRINTNLSTERMIFBRK $$p(   $@QEp==XePRINTNLSTERM92077-1X054 REV.2440 <900427.1718>/SRC_92077/R5020/&PRIN0 =Bc@NLS SCHED ôUPRINTNLSTERM00u.ENTR ERR9 XLUEX .SSTC BLANKFILL MPRINTNLREADREL NLS_PARAM 0 [=: Error accessing relocatable messaguueT>>AT`pQ]`cfpTS pP`S(AA  Q((`PpA QUu G1Oe   @p@@p %z  *PP@;;XCPRINTNLS92077-1X054 REV.2440 <900427.1718>/SRC_92077/R5020/&PRIN0 ;Cx@NLS  DCBS BUFFER PRINTNLS ((=.ENTR BLANKFILL DOWRITE MPRINTNLREADREL NLS_PARAM (nnb88 = ;?@Ap::? p`("@@p-?B(2(!5=8;(!nU; @`@@`  @,K==XhZ5HANDLE_ERROR92077-1X054 REV.2440 <900427.1718>/SRC_92077/R5020/&PRIN0 =Bi@NLS @FILES EHANDLE_ERROR((.ENTR .LBT.MBTCLEANUP_AND_DIE PRINTNLSTERMFMPERROR(ccC55x) 0h)P3((h-`/*(h-`+*4h)HP2($(&& @@ @p@@ @pOIc@y9>>Xn&ADVANCE_LINES 92077-1X054 REV.2440 <900427.1718>/SRC_92077/R5020/&PRIN0 > Ap DCBS fADVANCE_LINES е.ENTR HANDLE_ERRORFMPWRITE  ==AAp(p!%`(#88!(= 4"O D @sǒ::XcEJECT 92077-1X054 REV.2440 <900427.1718>/SRC_92077/R5020/&PRIN0 ://F`  OPTIONS OUTSTUFFFF  DCBSCONTROL EJECTSTUFF/ 9EJECT  ''9ERR9XLUEX .SST HANDLE_ERRORFMPWRITE ADVANCE_LINES ' 41 <<p`(?`p~`~((>` (@pp`(>p`()((:J3 `(: :88( (z`O@==(D` (O` (K(N N (z`A(XW(z`(mJe `(l l(zs `(z z`p }(C ߱ O   @/Nq::X[kCENTER92077-1X054 REV.2440 <900427.1718>/SRC_92077/R5020/&PRIN0 : yCENTER  .ENTR P@p`@288X)RMACCTPW92077-1X054 REV.5020 890815 ((/SRC_92077/R5020/&PRIN0 8 *sRMACCTPW  88 6W.ENTR .CPMERR9.SBST .SST.INDX .MBT FMPBUILDPATHTRIMLEN FMPPARSEPATH8OOxA&p`((A$p`(H"(A((p DH  h`! (@p A (@ **\H  h`! p  *44  > [ @@@(@hl@|@4@<<X/USERNAME/92077-1X054 REV.2440 <900427.1718>/SRC_92077/R5020/&PRIN0 < AyUSERNAME  @f&<<X/OUTSTUFF/92077-1X054 REV.2440 <900427.1718>/SRC_92077/R5020/&PRIN0 < A OUTSTUFF    @V<<X/OPTIONS/ 92077-1X054 REV.2440 <900427.1718>/SRC_92077/R5020/&PRIN0 < A(Y OPTIONS 0 0 0 0 0 @E?c::X10/NLS/ 92077-1X054 REV.2440 <900427.1718>/SRC_92077/R5020/&PRIN0 : A@NLS @c#;;Xsu/FILES/ 92077-1X054 REV.2440 <900427.1718>/SRC_92077/R5020/&PRIN0 ; A7@FILES WW)PP@@ W@F/SRC_92077/R5020/&PRIN0 : AjETC "` @h8::XL$/DCBS/92077-1X054 REV.2440 <900427.1718>/SRC_92077/R5020/&PRIN0 : Aq DCBS @d$??X/DEFWORKINGDIR/ 92077-1X054 REV.2440 <900427.1718>/SRC_92077/R5020/&PRIN0 ?AY"DEFWORKINGDIR 22b"" 2@W??X/CURWORKINGDIR/ 92077-1X054 REV.2440 <900427.1718>/SRC_92077/R5020/&PRIN0 ?Aj "CURWORKINGDIR 22r"" 2@ü;;Xl/BUFFER/92077-1X054 REV.2440 <900427.1718>/SRC_92077/R5020/&PRIN0 ; A BUFFER @5To%FFL::RTE_6:5:4:58 644 0 0 2000 5310707014 31427 %FFL::RTE_6:5:4:58 $@:%FFL +# +# +# /<FST ::Xr/OPTPRINTMSG/ 92077-16067 REV.5000 <860228.1456>&FFL::SRC_92077 : AOPTPRINTMSG  @88X//LENGTHS/ 92077-16067 REV.5000 <860228.1456>&FFL::SRC_92077 8 A$?LENGTHS PP @888XA/OUTPUTLU/92077-16067 REV.5000 <860228.1456>&FFL::SRC_92077 8 A'OUTPUTLU 0 @ 55X@/FF/92077-16067 REV.5000 <860228.1456>&FFL::SRC_92077 5A(FF @ @99X=o/DEFOPTIONS/92077-16067 REV.5000 <860228.1456>&FFL::SRC_92077 9 ATDEFOPTIONS P @VuX%MODEM::RTE_6:5:19:127 644 0 0 11400 5310707015 32355 %MODEM::RTE_6:5:19:127 $D%MODEM +# +# +#  zB/BFST --X2MODEM 92077-16391 Rev.2540 <851122.1134>-B}PARAMETER GENINFO ss|yMODEM .NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN suu.EIO. .IIO. .IAY. .DTA. EXEC.FION .NFEX CARDIDENT LOG POWERFAIL LINELOSSDISCONNECTTIMEOUCONNECTTIMEOUTDTACH OPSY CNUMD CHECKSCHEDLUGETLU PNAME RMPAR u@@-- MDM:CANNOT IDENTIFY I/O CARD MDM:ILLEGAL RUN FROM LU XX MDM:UNKNOWN ERROR CODE @& MDM:OPERATING SYS NOT RTE XX< MDM:CANNOT DETERMINE LU NO. DDhyhKJ  @` D((oK("MODEM: IBUF="5O7" ; PROGNAME="3A2"; LUNUMBER="I3) (~~9??`P(( p ih`i( h*g`g(ȡ`(Af`(`~xxZ77pe`hpPe((案(`Pe(((`Pe(((`Pe(((-(< Ax  ?@@EŠy77X}%CHECKSCHEDLU92077-16391 Rev.2340 830831 Check scheduling LU 7WCHECKSCHEDLU#.ENTR SESNLOGLU IDGET @@ A@p$pp`("`@@D<<X!CONNECTTIMEOUT92077-16391 Rev.2340 830831 Handle Connect Seq. Timeout < AxxPARAMETER CONNECTTIMEOUTtsLOG //R MDM:CONNECT SEQ. TIMEOUT p/@49R==X.DISCONNECTTIMEOU92077-16391 Rev.2340 830831 Handle Dsconnct Seq. Timeout= AxxPARAMETER LDISCONNECTTIMEOUtsLOG LL7.. MDM: **** MODEM DOWN **** MDM:DISCONNECT SEQ. TIMEOUT p&-+-L@+66XR.LINELOSS92077-16391 Rev.2340 830831 Handle modem line loss6 AxzPARAMETER LINELOSS pDLOG FTIME CLEANUP LL.. MDM:LINE DISCONNECT DETECTED  p#&+-L@5_88Xi.POWERFAIL 92077-16391 Rev.2340 830831 Handle modem power fail 8 AxzPARAMETER iPOWERFAIL pDLOG FTIME CLEANUP LLI.. MDM:POWER FAILURE ERROR  p#&+-L@31Q99XoCARDIDENT 92077-16391 Rev.2340 830831 Print I/O card statistics 9ByPARAMETER GENINFO ZCARDIDENT T.LBT.SBTLOG CNUMO CNUMD O MDM:XXXXXX ST=XXXXXX LU XXX55p`p `p`p`p`P(((-`p`p(i`P(1(6`p`p(i`P(:(?`p`p(i`P(C(H`p`p(i`UoI77P(L(Q`p`p(i`P(U(Z`p`p(i`P(^(c`p`p(i`p`p`pm`p`p`@p`@phHHh88(q`//WNKNUN5A070A250B042B79 6B96@0012/@7JV 55X*CLEANUP 92077-16391 Rev.2340 830831 Clean up after user 5 A?GENINFO CLEANUP  KIDKIL DTACH LOGOF LUSES INSES TT$$p`((`($p`(# #(((T@n((MERGE.REL::RTE_6:5:40:128 644 0 0 24000 5310707017 33600 MERGE.REL::RTE_6:5:40:128 $(X(MERGE REL +#+#+#(\/XFST ;;XXsZMERGE 92077-16431 Rev.6000 <920908.1521>/SRC_92077/R6000/MERGE.FTN; A MERGECOMMON ssMERGE .NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN syyPg.DAD.DIN.DDIEXEC.CPM.FION .SBST .SCO.SSTXREIO .LBT.NFEX .IDLP .MBT PRTN SHOWMSG FMPCLOSEFMPTRUNCATE FMPPOSITION FMPSETEOF MERGEFILEORCMDFLSPLITSTRING y;; #BLANKSTRING CLCUC CONCATTRIMLEN SETVERIFYDEF MOVEWORDS LIMEM LOGLU B_REGISTER;UDD`rDkpH((`p77L7LD7NJp `Hp p  aAj(( D o(&`@APq(i(( p`h@~~<<phHp h b@ p `p `n@p7` '@7p ` ` h  p7x8 78n` h p7x8 78n @HNp JNJ L~~~͘ FFFLLFLLN(LFHLhEPg((~"Fp8`oph8D(}p:7FD7^(6(9(9`qp (yA7FA7\(E(H(H`qp (y7FD~rODD7Z(T(W(W`qp (yA7FA7X(c(f(f`qp (y7FD7V(r(u(up (y xn(&88:(*(FN(AJN( HJHThK`GCCJ` p (` (` (ѡ mD fpx`((#`p7 7`p77FD7FJ7NFJFJ(#JRA(&HP~~ג<

>XVERIFYDEFON 92077-1X431 Rev.5020 <920908.1521>/SRC_92077/R6000/MERGE.FTN> AMERGECOMMON VERIFYDEFON SETVERIFYDEF**p( p`p( `p( *@×W>>XVERIFYDEFOFF92077-1X431 Rev.5020 <920908.1521>/SRC_92077/R6000/MERGE.FTN> AMERGECOMMON y$VERIFYDEFOFF SETVERIFYDEF''p( p`p(  p( '@Wv@@X>dMERGEFILEORCMDFL92077-1X431 Rev.6000 <920908.1521>/SRC_92077/R6000/MERGE.FTN@ AMERGECOMMON [MERGEFILEORCMDFL yy#:.CPM.EXIT .SBST .SCO.SST.LBT.MBT.CBTFMPREPORTERRORMERGEMASK FMPCLOSESPLITSTRING FMPREAD MERGEMSGS NLWRITERELSHOWMSG IFBRK FMPOPEN FMPINTERACTIVEDECIMALTOINTysFMPPARSEPATHWILDCARDMASK~~{BBp`cHphBP`((%hH`@A C!(%((E(,(( P(0(2(n(>EMIKMMBI p`>h^=(Kp+`Lh\K~յRCC(U0+p+h<P_p,A 9U(d,0+h  0(AhD`FC  z CY;(`p`h=X hKX (  ( o<<p ` (  CW;( (b  (%` ( a Ep ` (` ( ` (` A( (E ((` hJJAp++E+EA+UEGE GU(p+ GS(0+( GQ(p+ GO(0+( (%(  (AhH`FC (%**i4`! C`p(p`p(*__r-77/e/E* rwo ros MERGMRG  OP= P<@P PP<@P  Z \^ `b fj n*\ _@==XXY MERGEMASK 92077-1X431 Rev.5020 <920908.1521>/SRC_92077/R6000/MERGE.FTN= AMERGECOMMON uMERGEMASK  ::FMPREPORTERRORMERGEFILE FMPENDMASKFMPMASKNAME FMPNEXTMASK FMPINITMASK WILDCARDMASK:}}3@@p`p(! ` (! (逊` ( ` p(!((` (!((`} y   `p(p( u @P@t@ )J==XY2MERGEFILE 92077-1X431 Rev.6000 <920908.1521>/SRC_92077/R6000/MERGE.FTN= AMERGECOMMON v7oMERGEFILE  .DAD.DIN.DDI EXEC.CPM XREIO .LBT .SBT SHOWMSG FMPCLOSEFMPTRUNCATE FMPPOSITION FMPSETEOF FMPSETPOSITIONFMPREPORTERRORDINTTODECIMAL SHOWMSG1APPND FMPOPEN CLCUC FMPBUILDPATHFMPPARSEPATHDECIMALTOINTFMPWRITE8o99opo`pn`(||`((`pa`papf`a(b`pމĈ((`p`~~ZiCC(`papm(Lapg`a(lkij`k(`f(`pk(҈`fpk`i(`pi lkij`p쁳a~~~)>>ph`Pa((`i@pii((׊`p`Pa((5`()`(  `hD  ġhHP()`p(g(~~~j)==`p2aԨ php`a(L`(? ?C ap`pKg(Qfad(b`(`\d``no`(i~~~Gf;; ima`刊Pa(q(`pya`pa`pa JAb`pab`pa~//_L  (` p((`pn`p(`/VV'55rwoxs rwcxros j@@@(Fnr@v|Y V@^;;X8APPND 92077-1X431 Rev.5020 <920908.1521>/SRC_92077/R6000/MERGE.FTN; AMERGECOMMON ^APPND   ##}.DIN.ENTR .IDLP FMPWRITEFMPCLOSEFMPREAD # CCA`7p&`*p ($(&`)p p `p 0  pPh6 0(D`p B ``p`@p(`(_?U99`p ]  &p((`5(c(`4p`3P (p`7p((`2P(t(`7p`1P (`p  (BP((`7p `7p((`.~~;;Ph0X 0(`(`7p((`7p(p`p`-Aph((p$`@%@p88$(`P((`/P((`p(`.P((`(p~~~)::`p`p`-ph((p#`@%@p88#(Ԉ`p(`@p`+((p@p!`,Aph!((p"`@%@p88"(`@%P((~??d(((`)p`p  p@(((`+(p(B?%@@@w7<<XsSHOWMSG192077-1X431 Rev.5020 <920908.1521>/S((RC_92077/R6000/MERGE.FTN< AMERGECOMMON SJ-SHOWMSG16SHOWMSG %%.ENTR XREIO FMPREPORTERRORMERGEMSGS NLREADRELSTR%hh.+88+,m(>A5`6p-`5p+(HF+*rmp(PO+*rp`*(XW*o(a`pcAaqc-hd P@z:A`7p&`*p%CI::RTE_6:5:150:128 644 0 0 113000 5310707021 33407 %CI::RTE_6:5:150:128 $ʀ%CI +#+#+#J/FST 99XP 3CI92077-16445 Rev.6000 <920828.1626>/SRC_92570/R6000/CINC.FTN 9{{NZPWD_BLK PPOLLtALL_GOOD_CHARSm7RETURNS %CI_DCBS SPECIAL_VARSFLAGS2 FLAGS INIT_AND_READ - STACK_MESSAGES(STACK_VARSEXuCIBREAKFLAG vFRAME_SIZE{^^Jg.TO_BITwBLANK_STRINGFMP_SCHEDULExGLOBAL INPUT_STRINGS ;RUN_STRING!PROMPT1VARIABLES yCONTROL_STACK ANLLANGNUMBER^qqf6CI.NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN ql|[.DCO EXEC.CPM.FION .SBST .SCO .SST#.SSTC T.LBTc.SBT .NFEX .MBTQ.CBTsPRTNODECIMALTOINTrLOGOFFqNLREADREL ?FMPCLOSE5FMPINTERACTIVEp.DFER INTTODECIMAL*NLWRITERELSTR 4IS_TR_FILE||hoFMPPARSEPATHnCINDEX&CI_FMPREPORTERR NSPLITSTRING lFMPRUNPROGRAM kFILECOMMD IFMPWRITESTRINGjMESSS iMESSCOMMAND hPRINTERRORgACTIONROUTINE fACTIONCOMMAND YGETDDIR JDEFINE_VARIABLE dCASEFOLDeCHARIS|{{{"TRIMLEN ]FMPWORKINGDIR \SUBSTITUTEKCMNDSTACKSTORE>FMPSTANDARDNAME =FMPSHORTNAME$FMPOPEN `LOWERCASE bFMPSETWORKINGDIR^STRDSC_SWAPEMNEXTPRAMPROCESS_GLOBALS HCONTROLCOMMANDGETSTRING XCICOMC2 {xxWCICOMDL VNLAPPENDBNLLANGIDUFMPHIERARCHNAME SUNDEFINE_VARIABLRETIME 3PREDEFINE_VARSMLOGOFFCLEANUP LDOEXITGCOMMAND_NUM FCPLVCHECK EGETPROGCPLV DRESTOFSTRINGCPREPROCESSOR@FMPPURGE<MYIDADD xzz9CMNDSTACKRESTORE8CMNDSTACKINIT 7HPCRTCHECKSTRAPS6HPCRTSSRCDRIVER CLEARBUFFER 2INITMEM RMPAR /.XLA,NLREADRELSTR)ADDRESSOF 'LIMEM PNAME IDCLR CONCATCMCHECK FIRSTPROG PRESUBSTITUTE z:: wPROCESS_STRINGCI_STRING_ERR FTRAP LOGLU LUTRU 0$OPSY :UT.BF aCICROUTMSG+CIMSG :77c&&CI.STK:::3:24 0 7~~6?? Oh ` K A+Dp cH cp` 0pO U  `p x`p cA c cA   c  ` p p` p pp Ap  , ~~~Au::p` pp` pp"` p` pp D    @  p` ( p  ` p  H F  p ` p Ap (~~~88(` p A (A((  , á p`p(` VP,(Ј((P,(((` P,((p(` P,((p~~~@@`(`-p`( p(`,p c , c( Ap  D   ,  B(pp ! " p! A c ʤA!  #  c @ ~~~'<<` @! p! $1% , > Z`(:&9 ,( `p c` c(}'G 0()J@0p%` nh A@p  ((Z(c*`%+  c ~~~c==,j+ - p A  (}(}` p cA c cA   c  ` p./0p)  P (+`+(`,(`-(`.p)p&` p1` p*21~~~AA*1 3 A ,(p c4  c(*%+  ,J % $% < ʈ`h X (A ,(ڈ((& , ~y>> & `(  ,H (5%(p`&(` p(p`(vp`p c` c(v) ((A )((6 (p.7>>$('`%@ Np c8.c( v.'96:  ; v`h eX (D&C Z(t` eP(H(T J $S: ʊ(W<Vp: =\: >}}؈]<<_ ` eP(c(k?g:@j (mp: *t%+ | ` p&ppAB|pA`p c`" c(A (A((  : 3 ppp"`%}[@@@ Np cCc  `(p( `(Ah `  (D p    p ((È` p D ppEp$F $(x`~~W&==(xGߡ:p   ((`( ` p"H #5%h X (I% ܀`(*%+` P#(( :@ ~W==((x`p c` c(x5#%h X (8  c  J I8% c`( } (@(` P (D(L` p"IK% (x` ~P (P(b` p"JȉS??Y   Z`(a&a (x` }P (f(`( `(rKr: p`( pL} (`( J  MAp  (" p ~~Ƅ@@(x`(z` p( (x`p3   A((  ((` |P ((` p`(N  O p`(` {@PJ  4 (` ӄh 9Q ~~~m>>(*ڡ%+ np(pJ 6 4 ʈ(x` p (J  2 RAP  0 ` p (x` bP (( S (x` zP ( (N ~~~s@@ p?%H  .`()*)%+` yP(-(:`(6A , ((:` yp!pN? h HTP _(D(KA  p(POO p~~~P==`(VAp(a  (\(_(_` p(ap` p` \p j` ŀ@ p No 88 j(eh ل`  ` yP!( =% ڡU (` xP ((p@~~~ FF ((` p BAp    V  (p c (0 c(*%+ ` A(  * (# (   W (` ~FF( &HA (#  &  A c A #  c  X $ 䡀`(p(x` wP ((:`( `(!p ( ( ` p 4 (!*~~>>%+ p(xH) "`(2*2%+`(87(9(x(  (?(` pP:ppNK  N p ` pYTZ~~~7WHHZ[( J \f  ZJm   pA T[(v({({ H  (] ʊpJ    Z( T[(((A  ph TP _( N~~~4@@ ` tP:((O p`(` Ʉh !Q (h ` A h `  (h ` A    ` p(*%+ op(x( ` sP:(( `A( ~sCC  \  ZA  ^:  v c_  c(*%+ up(x( h ` A ` p(` pP:h tX: p c` p e` e0 c(fp8"??`(,]* ʈp(G`(9 J \9  Z H  h HTP ](B(E` qp(Gppp`(e` pP:(R(^`U *\%+ r (x(e*e%}}aDDa ꈠ(` sP:h  (|A  \{  Z(P p ch TP ^ c(A  \  Z` p` pb p`p`(` }~~??*%+ r `(` qPA((   & ` qPp c` c(p` pP:(x` ]h Hc(`((((p(x`(< J $: ~((C== px` eP(( H  (ހ`h X p c` Pp e`0 e c( *%+ o? :((`h eX (& ((= : >~~o!CC# ?':(2ph `  p(<`(<K<: `(`(L J \L  ZdO JV  H h TP ](e]b  (x~DdBB(z"h p en  (zA c  A   c  d} J   ʡYZZ(f:(5%p cg n c `(h p(x( ~~9;;i:(`:(xj p`(  c J I% c` mP:(` lP:(Ԋ` kP:(` jP:(` iP:((pA(x(  h ((k ~~~bEE  `(` gP (( h `  `(  (( ( h `  (  ( A#   p` [p i`@ L 8A8 i(    l ! Zp`~e &DDh fX 0( d  3 m ap x ( J( J`h Ap cx d c c d A c  `( Opp` [p h` ŀ@ p `@ Lp c _ c88 h( S(x` ePh dX~~R[ jKK 0( ` pA c A   c 4  (N A ( p cA ( 0 c( N  & p(x X  c J n c ( ~~~kF BB( o   ވ V[(  ( ш` p(( A c A   c 4  ( ` p(( ((x* %+ (x* %+ (x`( ~;? == ` p` \p g` ΀@ Mp cpc88 g( A  `p c5 % cp? %? "%`( ;`( ;q 1+ c bp`\\t 4//p c ;  c`( @r @A F ȡm ap` [p f`@ Lp c` ŀ@ p O U  c88 f( Js ] ` A c \C k__ . XQRUXQ, WD/ 0 OLDPWDwoc rsHOMECI.STK:::3:24 +STRLI::help/help /help/1 RETURN$POLL POLLPOLLINT OFF OF-1rosx2 w > _ .CMD::SYSTEMWELCOME $ ; ABCDEFGHIJKLMNOPQRSTUVWXYZ_1234567890  EE   9] P @V@    @ BB     p %@  ( FF    &,08<>@FH LX`b%dmIOMAP PPG U::CMD 0- <;UPSSGOBRAS(#PW8>CDWD?p ON c'dNLCLP@;-6;;X4.PREPROCESSOR92570-16156 Rev.6000 920528 /SRC_92570/R6000/CINC.FTN ;ddKvPOLLCI_DCBS 2GLOBALINPUT_STRINGS  PROMPT3 STACK_MESSAGES SPECIAL_VARS FLAGS INIT_AND_READ CIBREAKFLAG #FRAME_SIZEd;PREPROCESSOR {{.DCO EXEC.ENTR &.CPM .SBST .SSTXREIO ,.INDX (.LBT.NFEX *.MBTNLREADRELSTR!NLWRITERELSTR 1PRESUBSTITUTE 0PROCESS_STRING/CLEARBUFFER )TRIMLEN .COMMAND_NUM +CASEFOLD-SPLITSTRING {xxcFMPINTERACTIVE'CI_FMPREPORTERR %FMPREAD $CMNDSTACKPUSH "CMNDSTACKSCREEN TIMEOUT ETIME CMNDSTACKMARKSRELEASESESSTERM LURQPREDEFINE_VARSSETCMCPLV ATCRT INTTODECIMAL ATACH DTACH xCMNDSTACKUNMARK IFBRK UT.BF CIMSG  D  _ ~~8>>A8@8p㈀9`(LA`p`(X`-p;`-p\0(np:p@pm(`( s {,~}}v<<  7(p+::p D@p)  )`)( +) p(`(Ap ( ( }:99`!P7((* p(L(Ǩ (p1p0`:(:(#:(l` (35~~CCA5(( 3(H(` p $(A *!(p2::(g2h (c` ("  $ ((`1Ap1 +$ (`1P ~}}Q.<<(0(b`0(;p1!;))P0h(X0 0(Np1!N)'` P0(R(_!X)A&`-p(`0p0(`%2(p1}~~qjEEp0(:(p(` p y$(Ȁ:p DH:pA $(:(L:p DJ`(#)p(@ ~*FF(J" :#:pA A$͡:p)(:(%)"::p&":(:p "DH`!+E==P)((:')/(hH(Ph X  ()::((#("A`:`-p(#(Lh(P(((7`-ph`* p@nk2GG@(Wp`(^h`A *+AD,Ap-&-(\(\ -DHh`* p-ch`*+k)np.sAp.&. ((~~My??`P.(`P.(()p, ,D,ለp-`-@,h-H,px DJ/p0 1p`((LhH(P(~YY^))(h`*(#(W!)(݈p+x*ҡ)p(`(Ap ሠ(`-p(WYwwiJJ$ ; WHILE RETURNEX,B$P OLL       F@  0 PL    *@ ON! &w@v::X^FILECOMMD 92570-16156 Rev.6000 920602 /SRC_92570/R6000/CINC.FTN :Bh, CI_DCBS 7RETURNS I FILECOMMD 55 EXEC.ENTR .CPMINTTODECIMALCICOMDL CICOMMC CICOMRP CICOMC2 CIMSG 5jj677](( (D`\( (&% (D`[(*(0/ (D`Z(4(:9 (D`Y(>(Djh<920828.1626> &&G>ADXVW(M MT &T ;:987@::XXSUBSTITUTE92570-16156 Rev.6000 920602 /SRC_92570/R6000/CINC.FTN :TTI7RETURNS SPECIAL_VARSALL_GOOD_CHARSFRAME_SIZEGLOBALINPUT_STRINGS  PROMPTRUN_STRING VARIABLES Tu1SUBSTITUTEFF,R.ENTR .CPM.SBST .SST.SSTC .LBT.SBT.NFEX .CBT FINDITEM TRIMLEN CINDEXUT.BF CIMSG F}}XDD9(#(M('(-p@(8@Op@Oh(<(J`@Rp%A%CA%9%(#`:p8SA7}YTCC(]`:p8`Sh8(#pp `(e(t` p A%9  rA%p(a@ p  W((`Wp A` p%93 A=%A`6hL 0(((Ԉ`UP (CCH(h4 @Qp  3(p%AV (%(`0 A@2p1;0((Ԉ(`TP p%`/hJA .(%A(;?((ԡ ;p (`.@ p% ~~9$FF %Pp ` (A%=3A 9.G%` (#` @Mp ` @p&p `&(p'` @Nh H HM8 8'(` ` A((%;3 A9%(#~? @9EVV.(00 $ _SRE TURNSPP% PRTV $V@y-9<<XKoPRESUBSTITUTE 92570-16156 Rev.5020 891102 /SRC_92570/R6000/CINC.FTN < AFMP_SCHEDULE PRESUBSTITUTE ((U.ENTR .SBST .SST.NFEX SUBSTITUTECASEFOLDCINDEX(}}\HHhf`ipeldp`f( (R`(,((fjH(R`(0(=`ipeAfd<f(R`hpThDdJfT}ܴJ LfRfn*^$ 123456789   @;==XDEFINE_VARIABLE 92570-16156 rev.6000 920602 /SRC_92570/R6000/CINC.FTN =__J"7RETURNS HDONSROUTTEMPBUFSCI_DCBS GLOBAL#INPUT_STRINGS SPECIAL_VARS PROMPT$ALL_GOOD_CHARSFRAME_SIZEVARIABLES _,DEFINE_VARIABLE }}.ENTR .CPM .SBST .SCO.SST .SSTC .LBT.SBT.NFEX .IDLP .MBT.CBTTRIMLEN FMPWRITESTRING!CONCAT NEXTITEMNEXTCLASS INTTODECIMALNLWRITERELSTR ADDITEM DELETEITEMFINDITEM}'XDECIMALTOINT CINDEXSPLITSTRING CIMSG ~~MAIIAmk`p`p`p A(,(9aAmsAk{(T<m(CmsmHmA{mam`|hAg(T((Wsp`(\~~~W[BB(P(c(c`Pp`p( lip`Ap(v0(`gAph WA(p s ((88(ap s((˄(~IIP((`Pp`(H(`g@p uD gH`pA A`g@Ap   s(((A`hhg(p`hhAg(0B<<(h~`hAge`gp (( s(((hdHP(( p(hdP((`p(P(A s( (9(9hd"::P(%()p(8hdHP(.(2`p(88( s(?(V(VCaph 0(RQ(U`p (A s(\(q(q~~\BB`aph0(ml(p`p ( s(wp {(( s(p {((( ~~~;;H_`Ap _`p`p `g@pp`((`p`@@@p `g@pϪ p`g@hH   @px~}}}<< p`(怊(s(ss((poD(W(Wyh\}'CCh^P((!p @p (,@@p `@h x ` (0(>` @ @p w DYH`@ p A u(H(H`up  oW JS`p( ~~X<<p]p`@pp`g@p op`(`@p`({(`@pp`(p`@hHH88( ~~~)JJsWD uDW o`@A@p oWA( sWA og`@p oJW`@p(ep`p`@hX~[[11`R@VpU`UpS oWJRP88(Ao!oqopA oW ([qnWWRETURN_S = = RETURN$ = RUE ALSE= POLLINT MY_NAME AUTO_LOGOFF FRAME_SIZESAVE_STACKRU_FIRST OFONLOG _PROMPT= 0  &0 0   ~~OnBB0P @%@ .:>DJNRT\ d p z ~TF0 $@ug'==XUNDEFINE_VARIABL92570-16156 rev.5010 871023 /SRC_92570/R6000/CINC.FTN =C FLAGS CI_DCBS VARIABLES <UNDEFINE_VARIABLEE ^.ENTR .SBST .SCO.SST.NFEX NLWRITERELSTR DELETEITEM FINDITEM SPECIAL_VARIABLETRIMLEN CIMSG E DDA Ap ` (,(` pJ  7(}`@ p C p ` (H(r` p ` @@@ooٱQ77p `@ p \  p A (cpA (k0 (qp({y(+(+o((TPOLLINT POLL   (@"dA$==XSPECIAL_VARIABLE92570-16156 Rev.6000 920528 /SRC_92570/R6000/CINC.FTN =fSPECIAL_VARIABLE (.ENTR .SCOCIMSG ~~GGSSAAp(g(gA(gɀA(g(g(gA(gA(g(g(gA(gA(g(g(gA~2TZZA(g(g(gA(g`p(eAUTO_LOGOFF FRAME_SIZESAVE_STACKRU_FIRSTRETURN_SSESSION MY_NAME RETURN5 RETURN4 RETURN3 RETURN2 RETURN1 PROMPTOLDPWDHOMEOPSYLOG WD EE.*##   $,4<BHLPTE@h<<X ?CONTROLCOMMAND92570-16156 Rev.5020 890525 /SRC_92570/R6000/CINC.FTN <((D? GLOBAL INPUT_STRINGS CI_DCBS CONTROL_STACK (CONTROLCOMMANDAA .DDE.ENTR .CPM .SBST .SCO.SST .NFEX FMPSETPOSITIONFMPINTERACTIVEFMPPOSITION CIMSG A~~N ?? `>pp `3p (+`3 (- =(4(4`3pA(:(P(P`(`,@p`@ p `@ ~;K::`+@@ (V((`@ 2P#(a`/(`(`@ (l`  (n `,@p`@ p`+ 頀`@ `+@@ A (~~299((`@ 2P+(`<(`@ h$HH (`3 ( `(`,@p`@ p`, `@ `+@@ A((~~~F88(`@ 2p `+P h,X (`;(`$@p`,P (ۈ(`$@p`@ (`3 ( `$@p(((~1;;(`(`,@p`@ p`8 須`@ h`+@@ Ah((I(I`@ 2P8()`:(I`( h (4~~o166`3 (6 `,@p`@ p`7 `@ `+@@ A(O((`@ 2P7(Z`9(`(@p (|`8@@ p`7@~~~)g>>@ p!q(| z`3`,@@ (`3 ( A ((3(3`(` @h    @@@6p` (`.@p`~99@@(`5`4pp`%p`@@HH88(`-@p` ((p`&p`@@hH88(`.@??p`@p`hH Apx  A `  @@p`@h `@p` ((`hH px D J ` @@p~~y66p `,@p`@ p`1 `@ h `+@@ hAH (9((߈`3 `@ 2P1 h (L`$@p(;`(S`0(~0S::`@ p `+@@ pp`%p@@hHH88(a`-@p` (t(p`&p`@hHH88(x`.@p`@p`hH ~~EH@@Apx  A `'@p(p`&p`@ 88(`%@p` Ap  A  `$@p` @@p`@p `@p` ~99O((`hH pxA A  (`*`)(9OO RETURNTRDONEDOWHILE FIELSETHENIFp0  z8@::Xb((IS_TR_FILE92570-16156 rev.5010 920529 /SRC_92570/R6000/CINC.FTN :Bt GLOBAL INPUT_STRINGS AIS_TR_FILE OO .ENTR .SCO.SST.NFEX FMPCLOSEFMPBUILDPATHFMPPARSEPATH FMPFILENAME FMPOPEN FMPWORKINGDIR FMPUDSPINFO CIMSG OeKKA@Ap@Z(-(1(1`ap`=@JHFDBAFR(CpAJR(Kp`(Vp`h (`A(gFP~~hFFs@JHFD\\\Bz@XLp``P((`(JFR@JHFD\\\B(`_P(+`^P( `(`]PhFX 0p(  Lp~QKK@VLp`p`^P( `(ʈ`]PhFX 0p( (AFT(A(FP(FP(p1FR(01p1AJR(1A(F@P__,88HJN((+ @JHFD\\\B(`ap @p@JHFDB+@JHFDB /p(/_PPC200/CMDFILES/CMD sqsq2 1 @|(T  @ dn rt xz ~ P@Zy<<XyzPREDEFINE_VARS92570-16156 Rev.6000 920609 /SRC_92570/R6000/CINC.FTN <GGHq7RETURNS PWD_BLK  PROMPTCI_DCBS FRAME_SIZESPECIAL_VARSGLOBALINPUT_STRINGS G PREDEFINE_VARSttS.ENTR .SBST .SST.NFEX DEFINE_VARIABLE STRDSCINTTODECIMAL.XLA.OPSY GPNAM CINDEX TRIMLEN USNAM FMPWORKINGDIR GETDDIR MYIDADD .DFER USNUM CIMSG $DATC t T$0 ~~r??ApPPz~( Rt@p`p`}@|p  88(%`( 6p   :  @P~p`(ZKP~~~gGHHx~RPv~YPr~(s`P(^(setx~ltv~str~ vLJPL }PpPp(`(`h Ap x  ~dwFFP  A p`@p  P PJLA LPn~pxPPl~pPPj~`phf~`p__Y66db~N `~@ p ~   ^~\Z~VX~ VT~ _#!TTRU_FIRSTTRUESAVE_STACKAUTO_LOGOFF 0 PROMPTMY_NAME FRAME_SIZE20LOG OFDATCOPSYLOGON . HOME OLDPWDWDSESSION `P.6 : DPRX `jlp22<krvzOF82@b<<X_5CI_STRING_ERR 92570-16156 REV.2326 830802 /SRC_92570/R6000/CINC.FTN <B]GLOBALINPUT_STRINGS CI_STRING_ERR ##uEXECFMPRUNPROGRAM FIRSTPROG NLREADREL CIMSG #GG##p41p`Ap+3-+(&%/A-p)2G, RSX"@;99XC3NEXTPRAM92570-16156 Rev.5020 890531 /SRC_92570/R6000/CINC.FTN 9CLBLANK_STRINGGLOBALINPUT_STRINGS  :NEXTPRAM  .ENTR STRDSC \\<++A`@0h x`@0hH0x`(!11((&`2@p`\ |0 @؟_;;XG>RESTOFSTRING92570-16156 Rev.5020 900306 /SRC_92570/R6000/CINC.FTN ;BBLANK_STRINGINPUT_STRINGS RRESTOFSTRING  .ENTR STRDSCADDRESSOF xx99A P(@@<p(`p`@<(p(`@p`("(2%6@p;/;(97==`x < @\{V==Xz^PROCESS_GLOBALS 92570-16156 Rev.5020 890525 /SRC_92570/R6000/CINC.FTN =CLBLANK_STRINGGLOBALINPUT_STRINGS EPROCESS_GLOBALS 4.SBST .SST.NFEX ~~a@@ppp`\pT`@Z(@`@Zh x`@ZhHZx`(@`@@[pPPWHP`@@[pRRURDPRH`@p`@Yh~""D `]@p88T( @p"U P@ 88X7iSWAPEM92570-16156 Rev.6000 920521 /SRC_92570/R6000/CINC.FTN 8 ܙ SWAPEM  &&.ENTR .SBST .SST.SSTC .INDX .NFEX TRIMLEN &~~VJJp#pppp`(.(DDp`(B(`@@p`@pP(M(cA~``O<<`@pDH(@pDH`A@pADH`p(*` `nd @6UU;;X&COMMAND_NUM 92077-16445 Rev.6000 920527 /SRC_92570/R6000/CINC.FTN ;QCOMMAND_NUM  j.DCO.ENTR .ARTN .DLDII@pLj`p C``%((`p((H`>?FGcx(`$(C(E`#p((`"(KJ55(N`!p(b` (R(U`p(b`Ј(Y(\`p(b`(`(b`p(`(g(j`p(w`(n(q`p(w`(u(w`p(`(|(~`p(~~55`((`p((`((p(`((`p(`((`p(` ((` p((`((` p(` ((`p(`~66((` p(`((`p((`(ň(`p(Έ`((Έ`p(((`(Ո(`p(`((ވ`p((戈((`p(L;;(((`p((((`p(B(((`p(B(((`p(B(((`p(B("(%(%`p(B %@@Aڈ(,(/(/`p(BA(6(9(9`p(BAֈ(@(B(B`p(A(JhHX (W`p(A(^hHX ~~eCC(k`p(A(rhHX (`p(A(hHX (`p(A(hHX (`p((~;;̀Aʀ(hHpxšAȀ((`툈p(((;}}d^^EVELREVLRETUOWNECRDIUNSEWHILUNPUPROTHELPPOLLECHODONEELSETHENPWD SET =;RN7R 6E 54  <XQWD3TMTR8RP+RU29MC*MO/INIFFI EX:DL.DC0CL-,COCD1AT? }@]|FREES.REL::RTE_6:5:32:128 644 0 0 20000 5310707023 33240 FREES.REL::RTE_6:5:32:128 $  FREES REL +#+#+# 00FST ;;XZFREES 92077-16450 REV.6000 <920814.1632>/SRC_92077/R6000/FREES.FTN;ss|FREES .NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN s||.DAD.DIN.DMP-.FMP.DDE.DDI,.FDV.DDIR .DCO EXEC.CPM1XLUEX .IFIX+.FLTD .FION .IDLP 2PRTN/HPZOBUFUSED HPZDECC *HPZSHOWSIZE (HPZPADTOPOSITION)HPZOBUFRESET!HPZWRITEXLU |xHPZSBTHPZDECV HPZNLSMVS 0HPCRTNLSXMENU %HPZMVS_ESCAPE $MOVEWORDS 'FREESSORT &HPCRTXMENUHPZMVS#BITANAL FMPREPORTERRORDISCRW".DLDCOMPAREWORDSFMPDISCSIZE HPZWRITELUNEXTNEWLU HPCRTNLSMENU@@ [ HPZPARSE CLCUC HPZDEFIBUF GETRUNSTRINGLIMEM FREESMSGS HPZNLSSUBSETHPZDEFOBUFCLEARBUFFER @((DD A( ( (`@p (o`oP(.p 4~o( <~o`pK C~K F(FH77`P(`P(P(Sp(`܈P(W(\p`p(`P(`(cp(`ڈP(g(j`p(`P(n(q`p(`P(u(xp(`P(|(`pz(Oo66`P((pz(`ՈP((`Āpmp`ԈP((`pn(`P((`pn(`P((`pn(`P((`pn(`ЈP((`pn(`P((@@`pn(((`P((`po(`po`opT`pohT(pSo(pKAo0K(((`@ho`p8o8S(kN@@(C`(!`pKKp`P((  (`(!`@h`p`pKKp( pp`p}@}pLp`L(SpR`@5BBp`PpK`mK(OCFI`0pKOKUpp`@`(m`php `p(E@@`pK00w}Kp`(`pp `Ĉp(E`0ӴVOLUME HEADER ~~.YJJpKK(`pp (E`Ȁ@@`(`@pp`$@h@K`$h@AAK((`@p(h@AHxA~~~'@@hX 0( !`p`pp (E`@pK"K`pKKp`(`p숡`pp (E`pK#~}}LLK()()xxrr{{t(E(Et`@pK$OK88R(0`@}(`m(u_`(e%e}xd@@hŀ`(n%n!q&uP('~}(p`pQ`@h88Q(@}pLp`L(pP`@@pK$K`P(`mTDDhn  0(`pK K(`(`m(Ê()(`p ` p `nhXn 0(*z `PzpK`mK}}LL( `nhXn 0(*z `nhXn 0(*z `nhXn 0('*'z +K@+MK,}]4OOMv-v.po`nhXn 0(Qho@  Qo`n(W(W+K@+MK,Mp-p.po`nhXn 0(ho@  o`~~ƒGG(`(@+K+MKA,MvA-vH.po`o@po`o(%`@opKK%v-p-.p`@p`Po(ϡ%`@pK~~~@@K%`m(١/p)(!88P(PpK`mK(3`Pz((pz0*zxPz(((  ~D KK*zrr@+Kx+MAK,MvAH-v.pK-K0!3`m(_1>~`~po`Po(E(M`p1L(^`PohXo ~~UHH0(^`p1^A(}(( (k(kp )n`n(t(t`nhXn 0(*zx `nhXn 0(*z{ `nh~3RRXn 0(*zr `nhXn 0(*zt r+K@x+MK,Mv-v.po`nhXn 0(ho@  ot+Kr@+$HHMK,Mp-p.po`nhXn 0(ho@ `n( o( o/p($(p ` ($p `m(/p  (6`n(6 2%%79 `m(H`pK HK K%#yUYYC_&dB _&a C_&d@_&a4C_&dJ ---+----+----+----+----+----+----+----+----+----+----_&d@_&dJ LU LU    6       d  "v/JJ55" @@  %4  ? %M%FR F D H +Q+M+T-S+D+H-G+L-V?vJ@g_FFXHPZSHOWSIZE 92077-16450 Rev.6000 920813 Format sizes for FREES/SRC_92077/R6000/FREES.FTNFZ HPZSHOWSIZE ZZLA.DAD .DSBR .DMP.DDI.DDIR .ENTR .MBTHPZPADTOPOSITIONHPZDICV HPZMVS DINTTODECIMALRHPZDECC HPZSBTHPZDECV HPZPADTOCOUNT Z~~]MIIA`((%@xh@ (vh 0(_Ax (@;?(CC h@@~RRO,, x Z^(v (o fh`  n(rr y  R;  d .@՘BBXgFREESSORT 92077-16450 Rev.5020 891201 Sort disc sizes /SRC_92077/R6000/FREES.FTNBd FREESSORT ^.DCO.ENTR .IDLP .DLDT BB  pap`a(^pd`f  p``@pap`a(Cpc`@ f  p``(?(?(C88c(,`p`phe(Z22Kpb`@ p`@ h`p88b(L88d( 2 3e @G LU LU    6       d  "v/JJ%FSCON::RTE_6:5:101:128 644 0 0 62400 5310707025 33154 %FSCON::RTE_6:5:101:128 $e8e%FSCON +#+#+#e20<FST ;;X\ ZFSCON 92077-16453 REV.6000 <920911.1138>/SRC_92077/R6000/&FSCON ;sswFSCON .NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN syy .DAD.DIN.DSB .DMP.DDE .DDI).DNG .DCO4EXEC.CPMREIO!MOD .FION 0.SBST 2.SCO.SST.NFEX (.IDLP +.DIS3FMPREPORTERRORDISCRW1CASEFOLD/TRIMLEN .CONCAT-CONCATNUM y}}CDOUBLESTUFF MOVEWORDS ,CHANGEBITS*COUNTFILE FMPDIREND &POSTIFMUST'SETEXT%UNFIXNAME $DISCSEARCH#MEMSEARCH "FIXNAME OLDTONEWDIREC LOLDDIRREAD MYIDADD GETCALLERID LOLDDIROPEN NEWDIRBLOCKS}>> ZINTTODECIMALFSTAT OLDLUINFO LOPSY FMPDISCSIZE NAMRCLCUC GETST ADDRESSOF LIMEM >AN-``A``YY"AAY[[//  @p`pp o po`o@popnNponPQ((`NpL(.`Q('[. Usage: RU FSCON LU1A% . ( (.+7Bad lu parameterFFJ'%%A- 7 ( 4LH* p`( s`Lp`*p`Hpp`H*@ (S(SF? Disk too big to convert 44jLAR ? (  V;h ҀXL p ` PLp `0  (m4`K Can not convert LU 2 or 3 QQf22Al K (     x` @h h@  x` @@p `*'0 (QcXInsufficient memory, size up(( program33mA X ( ` Έ@@ hH p x L Èp` P(3cjCartridge must be dismountedJJ>;&&A j p뀊( sp-  -` pMp`M(p @@  pK`LPK((JxCartridge still mounted in the SYSTEM  hHHA x ( s88 (@H*@`@ p   ˆp`( sA ` @@ p` pI` pJpA` p  J((pIJ p A J BB(!pIJ ((((pI`׈ pJ88 (`I(<` @@ p < ` @@ h HH HhH p `0 h HH 0h HH 0h HH %%`0h HH p  @P*0 (x%,Doesn't look like a FMGR disk.zqOOAw  ( ` @@ @ h*A@ @@` @@ @ h*A@  h HH  @h@ F@FD`@ p h@`p (""`( s Ӊ  BB D(("Not enough free space on disk ~~GGA  ( A@AA A x>@>p p` (p `@@ 88 (`@>@ 䈈p?`@ h `?@ h `@ h`?@ h~s<<` @@ p " ً` @?@ p * ً` @@ p 2 ϋ` @?@ p : ϋ` @@ p B` @?@ p J` @p?`?@ h `?@ h `V==` @?@ p ^` @?@ h` @?@ h ` @?@ p p ϋ` @?@ p y ` @?@ p  ׋ ҈`@ p > p`( s`p9` ~~վ??@p` @p`9@ p   p뀈`( s`p ` @p` @ph p`'p`'@p=p<;p  p:`@ p ԋ * ~>DD:` @p) É+`9@ p 䋃9( `@ P h HH  ( ` A@@  ((`@ h)H p x  *` @)p)++(` @@ MM p7@7h p5@7p !'   p2` @@ @3h*@A 33` @@  @h@ 33   hH) hA@ ` @@ p8` ݀@}}hcGG@ @  A (u(uA   `@)h p`@ p " `@ hH p x #)+(Ĉ`@ h H p x $)+(} Can't find main for _ :LLA  `@ p % `@ p   ‹ p( sp/p1p6`1(`6p6&)+`( s   (爀(` p0  ɉ @ZJJ ߀@    h@A x!(,p0A ͉` @ p   p`( s@ ߀@A ˉ h @  x!P8h X8 0(` @!@ (F` @!@ @DDp E(` @!@ (y`)@ p 'S   hH) hA@ ` @!@ p n` p/` @)p)++(` p1`!p!`!@ (` ~~e99@!p!(~`!@ p 3` @!@ h7` p/(`6P5((`!@2@ p 3`!@2@ @ h ` p1` p/(` @!@ (` @!@ p (`)~~~EE@ p ' A  hH) h@ ` @!@ p ` @)p)@++` p/`0/(` @ p   p`( sp/(& ~~~BB)+`( s(` P(( sp눀  x.h.@+x-` @-p p` (Tp ` @)p `)p h A( (:p ` @ 8 8 (2` @)p)++&M~~~[DAA)+`( s88 ((` @)p `)Ap h ( ˆ(fp ` @ 8 8 (^` @)p)++`)@ p z *  ` @)p)`@)p(`@ p ~))C( p`( sh( h@  ()RInternal Error, Conversion abortedEEA  p눀( s`p   AD)( & `@ p   p`( sp` p `%@p!`!@  P (و( `!@ h ʈHH p ` ƀ@ v@@p x * &$" p`( s` @!@ p &` @!@ p  $` @!@ p  "` @!@ h 88 (`@ p    p뀄`( s+~~" !@@A+ (`p`@p`@p`@@ p `ph ( ( Bp `@ 88 ( :`@ p , L `@ p , V  `@ p , ` `~~~9 aII@ p , j  h@AA `@ p , } ˆ`p ` @p` @pA A ( ( h ʈph@AA  ( ( Ax`'~}}z @@p`@ p   p뀈`( sh p@p p` ( p `%@p ` @  P ( ( ` @ @ @ ` ( ㈀    `@ h ҈H H p x }~~W OO, 񋃋 ` ݈@ @ p    (   ͉@ ߀@ xA ( hp @   ( 9 ɉ h@A h@  x( G~~~-\ 9BB` @ p  C  p`@ p`p ` @p ` p h ( ( p ` @ P ( ` @  Ҁ( a( j` @ @ @ ( r` @ @ @ ` ( {A    ~oo, {77`@ h H p x ,   ` @ p 8 ( T` @@ p  ( 88 ( hA@ ( `@ p   p`( s`poVOLUME HEADER  <<`@ p  ŋ ` @@ p  ` @@ ` p` ވp `@@ 88 ( ` @@ h ` @@ h ` @@ p  ` @@ h` @@ 2 h ` @@ p   ϋADoug,Don,Bill&CO~~ HH` @@ p  ͋` @@ p   ׋` @pH h@-  .  /  p  '   -  px`Ap 0  A 1 ? 2~QQ @,, ( Ep 2 ( M p A2 ( V ( ^p눈( s( r`@ p  h  ҈p`( sQA Cartridge converted  lA r  ( `( z3 z  Cartridge not converted   z A A 4  | YY YES YEY [n] ? _Do you really want to convert LU @ *,024 <, DIR p0(&%$77 &&"! |~ ZA9?7@蟶++XWDISCSEARCH/SRC_92077/R6000/&FSCON +rDISCSEARCH .. +.DIN.DMP.DDE.DCO.ENTR .CPMDOUBLESTUFF SETEXTDISCRW.Z\ LLA @ p@p@p@pp A@  p`(D p`(Lp ` p`ӄpp`WAA`(|`pp `pƈ`@ @h H(qp8 8(g`p`@p(P(0`(`@p`@(`@ȊpĈWWy,, шp`(p (J@p `(`@pĀp (p (JWl!  @A`D++XaMEMSEARCH /SRC_92077/R6000/&FSCON +|MEMSEARCH %%h.DIN.DMP.DDE.ENTR .CPMDOUBLESTUFF SETEXT%~~DGG@p@ p@ ppp`pA@`pA (T`pp`p`@@hH(Ip88(?`~ppaN66@p`p((`(`@p`@(v`@pf @pm`  @(( (}`@p}p(p`phZ @))X&SETEXT/SRC_92077/R6000/&FSCON ) nSETEXT W.ENTR DOUBLESTUFF @@4@p"p`$p!`@"88!( `%`#@"p  @ # @::X2 OLDTONEWDIREC <920911.1138> /SRC_92077/R6000/&FSCON :OLDTONEWDIREC ++{.DAD.DMP.ENTR DOUBLESTUFF TIMENOW FIXNAME MOVEWORDS + GGA @ p@ pȈ` `@ȈhH`@@A@hH@h@`؈@pB`@p ` (N`@h (U`@Ȁh  TTS** @`@ȈhH`@p P hX  0(n`Ԉ@h`ӈ@puʀ`@Ȋp} TȨ 4}>>`@pӈ`@pܡ `@p`@p`Έ@p`p`p`@88(`p`p`@ 88(## |~#@Է,,XgNEWDIRBLOCKS/SRC_92077/R6000/&FSCON ,ΗFNEWDIRBLOCKS ff.DAD.DMP.ENTR .CPMREIO.DMOD .EXIT .SSTCHECKCOUNTNORMCOUNT TRIMLEN CONCATSPACE FIXNAME CONCAT MOVEWORDS LEGALBOOL OPENBOOLDISCRWf~~ɞCGGAC@Cp@Dpp4Ep?p1`@@+`@p=@=hA@+@pCD@pB`B(v`BF`ـ@p>A+x:`:@?p4p/p6~ՕCCp7p*p<`7pA><((`<@=p;`<p<h;@+8`4@pC:8pB`B((tp3`4p2p6p5`7p`6(`2@(99`p7(f`2@(ֈ(f`@2@(*`2@p䁺(9"Open file: _~~)!GGA`2@pׁ`刈p*`2@pA(* `2@p      "Ap*`2@p~UU>-++0@/p/`@2@@hH2HX p`@2@Pp`0(f`1@@4(X(aU#Insufficient memory, size up program~~*^XCCA^pB(tfD12`5p55ވ(n(`@3h@+x3`3(|`p6(p5`3'@4p2(`܈@2p2((p0`1(p`0@@hـ@/p/~::b808(A+Ax.@/h.p-h-A@+xB`*(pB(t:;;δ&& to Renaming file   |~;@a܀**X "OPENBOOL/SRC_92077/R6000/&FSCON * (OPENBOOL  .ENTR 99&A@pp` p`p`@(`!p88(`9 c @QpZ++Xb>DLEGALBOOL /SRC_92077/R6000/&FSCON +}LEGALBOOL   s.ENTR .IBTS ii555A@p<`Cpp`>p;p`=p:`@<Bp`APh@X 0h?X 0(.p`B@p8:(88;(`ih=:/.@ ++XtY=NORMCOUNT /SRC_92077/R6000/&FSCON +NORMCOUNT  .ENTR .CPMMOD bb22A@p5p`9@5((3`7@5<((p`(3`9@5;(3(3`7@56pA.:P8(1(3p(b6 @\M{ ++XXiCHECKCOUNT/SRC_92077/R6000/&FSCON +T CHECKCOUNT .S.ENTR .CPM "DDA@pdpp`hp`gA`(9`hpp`epc`@@dHHd(1p88c(&`g@p(`(F@@dHHd (^99xGp`epb`@@dHHd88b(J`f@@d 9 e.e @لD++Xd`NCOUNTFILE /SRC_92077/R6000/&FSCON +~COUNTFILE OOn.DAD .DSBR .DMP.DDE.DDI .DDIR .DCO.ENTR .CPMREIO .IDLP NEXTBLOCK COUNTRECORDSDISCRWDOUBLESTUFF OFF@p5@p4@p3`I@4p-HC-L;p`'pp`H@4p`EP((ppPhHX 0(`G@4p--}}mHH6p6(N> @D@@>xA ( ; Cp`(``K@p.`ph. D(Ep2`F@@3p-,-`(@}~~+/EE@`@3 (:(:`@3p`(@`p`D@p82($`J@@3p-M-(`B@4@`(^<:-h @-`E@4ph@@ ~tMMhA@(`D@4p-- `B@4@`(A<p ;ppp8p8`Mp` (`(A8~~KK(h@A((A:x8(`'ph@A 䀡 Cp`((`@p- -ph;h@A (   p ~:: !!` (`Mp (A(`(:%%{|6  %@۠`++XjNEXTBLOCK /SRC_92077/R6000/&FSCON +NEXTBLOCK ))3.DAD.DMP.DDE.DDI.DCO.ENTR DOUBLESTUFF DISCRW)~~GGA@p@ p@ pp(+`@p& `p(Z`(/(XA  @ŀ@AA€x`@pI A@~ONFF(R(U(Up(W`ˈp(Zp`(z (d(h(h`p` Au p`(z(f @A@`ŀA@Hx`@p ;; (((`p(f`@@@  (A  (f;s  @6**X ZFIXNAME /SRC_92077/R6000/&FSCON * FIXNAME  .ENTR ;.;;A@pUp`WpT`@Up`Vp`Vp`YP( ()`@UpR(@Rp`YP(-(4`@UpR`(R`XP(8(A`@UpR(@R//I?p`XP(E(L`@UpR`(R88T(/ tV/. @c++XamXUNFIXNAME /SRC_92077/R6000/&FSCON +\UNFIXNAME .ENTR ~;;A@pQp`UpP`@Qp`Tp`Tp`( ('`@QhSH`Wp`(+(2`@QpN`(@WN`(6(=`@QhRH`Vp`&&?(A(H`@QpN`(@VN88P(&ErR/./.@++XuPOSTIFMUST/SRC_92077/R6000/&FSCON +pCPOSTIFMUST )).DAD.DIN.DCO.ENTR .CPM.DMOD FMPDIREND DISCRW)JJA@p@p'p `@p`p@hh@A h@H@(O(r(r`p p `p` @ YCC8 8(U@pi `(tp  (y(@p'p(A@` (@p""%`("~  @Ţ++XPiUFMPDIREND /SRC_92077/R6000/&FSCON +KFMPDIREND $.ENTR MOVEWORDS DOUBLESTUFF QAAA@pI@pH`R@I`Q@IpFJF`P@IpF%F`O@IpF,F`N@IpF((4FT`M@I`Sp`LpG`@I 8zB8G(<^J  @L--XhDISCCHANGEBITS/SRC_92077/R6000/&FSCON -ܷDISCCHANGEBITS ,, Ĵ.DAD .DIN.DSB.DMP.DDI.DCO.ENTR DISCRWCHANGEBITS,~~TTA@p@p$'h@AAA A  AA ((Y(_ (j~TTd44(j(n u|((^ A @ (L(^T@t"::X΢LOLDDIROPEN 92077-16453 REV.5000 870419 /SRC_92077/R6000/&FSCON :0 LOLDDIROPEN   MO.DMP.ENTR DISCRWFMPDISCSIZE OLDLUINFO ~~2@@A@p    h ($`  p `@hHpx4   p (;("`@ `P(G`@h `~~~qHBB@hHH`@ `@@`@A@`@pl  p (s("`@(~` `p("`@hH`@ `~ @ (" @KjE::XLOLDDIRREAD 92077-16453 REV.5000 870419 /SRC_92077/R6000/&FSCON :- LOLDDIRREAD  h.DAD.DMP.ENTR .CPMDISCRW~~AA@p`@p`@p`@p`@p`@p`p(.(~p`@p(8(V`@p`(V@p`@@~~~/IAA(R(R` `p` `@h`@hh@h@h@A`@pw  p`(~(P`@h`$@ @ `$~"" @@(`p(p` (P"  @t4 @ (L(^T@t"::X΢LOLDDIROPEN 92077-16453 REV.5000 870419 /SRC_92077/R6000/&FSCON :0 LOLDDIROPEN   %TRFAS::RTE_6:5:41:128 644 0 0 24400 5310707027 33110 %TRFAS::RTE_6:5:41:128 $)ˠ)%TRFAS +#+#+#)Qq0FST ::XTRFAS 92077-16461 REV.6000 <920702.0947>/SRC_92077/R6000/&TRFAS :BMEM 1OKDISCS ssJTRFAS .NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN szz2EXEC.FION $.SBST .SST#.INDX .NFEX .CBT0#SLAV /GNODE BACKTOLIMBO TRFDELETESESFILE.TRFADDSESFILE -TRFADDNODEMOVEWORDS ,RMPAR +TRFFINDDELETENOD TRFATTACH *TIMENOW )PROGISSUPER z{{;(USERISSUPER '.OPSY &GROUPTOID %OWNERTOID "DEFAULT_LOGON !IDTOGROUP IDTOOWNER FSTAT DISCSIZETRFREMOVEFILE FMPCLOSEMYIDADD FMPOPEN LOCALLOGOFF TRFLOGONTRFKILLNODE DISCWORD#GET{AA ocSECCHANGECPLV NONSESSIONLOGON #OK?PNAME INITFREEMEM ADDRESSOF LIMEM #ST12 #ST11 #RPBA nD.RTR ~~n88p`@p`@phŇh`p `vh~Au(؈(( ܪ  p(㡪   pp~<<p  pp Asw (Spx p` pP((.` P (()` ph0hp` p # ~~"11 (Zp x  p (-`p `p (G`P(2(R` P (6(K` ph;0hpE   (Z p x p (O`p `p p (G`~fS??P(V(` pP(](aa `Ph  0h  0(p p  yp` (`p ( pp (G`PhX 0}}BI88(`P((`p p` P(    p p (G`uP((  p`(s{`hX (Ɋ`p (}}}88p p`P(Ҋp" (p   p (G`P((  p`(` p   p p (G`}}}88P((  p`(  p `p (p (G`P(!(&p p (G`P(*(8A`psw 4sp `p (G`P}~~T:CC(<(J`pAsw!Fsp `p (G`P(N(`P(R(ZAqw"Z A#syp`(k$hssDhwH`hX 0({`p`p(%~}55sp ` p`p`p (G`P((&sp ` pp (G`P((  p ` (`pp P(('p(`P(((p99` ph)h(p(`P((*`p`p`p (G  p`(G` pP(ߊ(+ p`P((`p nBB(G  (a, Apx `  X h  (`p ` (? P((.P(#('-& p., p-77(>`PhX 0(>>  (E`P (C(Ep G/J ` p 0Q (R(`p `p p (Gp x p p (Gp x `dp p (GZZij;; / DOSQTRFAS $@?DS"z   Z@^ n99X ^TRFATTACH 92077-16461 REV.5000 870219 /SRC_92077/R6000/&TRFAS 9zTRFATTACH  --.ENTR SECCHANGECPLV SECUSERCPLV TRFLOGONATACH USNUM #RPB-~~=??p ()(B.(A3p` (A()(R`]p`\pJ` p`(RTp~0UY` Q\  @Db88XL-TRFLOGON92077-16461 REV.5000 870219 /SRC_92077/R6000/&TRFAS 8 A| MEM ;TRFLOGON  @@ 8m.ENTR .CPMTRFADDSESFILE TRFADDNODELOCALLOGONTRFFINDDELETENODDEFAULT_LOGON SESSINIT#RPB@K??p@pp`  0(8(5`p(1p`@h88()5`p(F=p`P(B(F`p }}D@@`` (Y@pWp([p`(s`p `(rP(h(lkpqp( (xAp ((`}]@p (`p (D @V::X0/INITFREEMEM 92077-16461 REV.5010 870518 /SRC_92077/R6000/&TRFAS : A|MEM ,INITFREEMEM VVk?((p`pph.pp`(%p,@.@p`@-h.H88,(`@-V - @}=::XTRFALLOCMEM 92077-16461 REV.5010 870518 /SRC_92077/R6000/&TRFAS : A|MEM TRFALLOCMEM  00lpP(`p `@p(p`0@֢;;X+< TRFDEALLOCMEM 92077-16461 REV.5010 870((518 /SRC_92077/R6000/&TRFAS ; A|MEM YTRFDEALLOCMEM .ENTR ""5 A@ hp"@g99X"TRFADDNODE92077-16461 REV.5010 870518 /SRC_92077/R6000/&TRFAS 9 A|MEM sTRFADDNODE N.ENTR TRFALLOCMEM CC2ApP( (``@ h`p`@ `!@@ ( C   @b?<<X]TTRFFINDDELETENOD92077-16461 REV.5010 870518 /SRC_92077/R6000/&TRFAS < A|MEM ITRFFINDDELETENOD Ŕ.ENTR TRFDEALLOCMEM ";;Ap P((`Sp`pP((( P(&`@QPR($(&`S``@Q(/(I(EP(6(;`@Qp(A`@Qh,,z> HQD(G`p(&(O`p`@Qp(, Q @n;;X)p>TRFADDSESFILE 92077-16461 REV.5010 870518 /SRC_92077/R6000/&TRFAS ; A|MEM cTRFADDSESFILE   .ENTR MOVEWORDS TRFALLOCMEM oo77Ap p`pP((`($`@< `=@@<(-`@<p:-:=`@cfA(E(\(\`@dh Hd44LN`f@@dPe(U(YYg((b`p`@dp(/42d@?::XڇTRFKILLNODE 92077-16461 REV.5010 870518 /SRC_92077/R6000/&TRFAS : A|MEM BTRFKILLNODE 66.ENTR TRFFINDDELETENODTRFDEALLOCMEM LOCALLOGOFF FMPCLOSEMOVEWORDS MYIDADD 6}}@@"pP('()`@@pP(p`@(_p`p`@ 88(;`@pLpPp`@pZ}VVaX))^(f`@@pf`p`@po(.(zxp(`@@((VI@W;;;XHTRFREMOVEFILE 92077-16461 REV.5010 870518 /SRC_92077/R6000/&TRFAS ; A|MEM TRFREMOVEFILE ׀.DCO.ENTR TRFDEALLOCMEM MOVEWORDS ;??A`pP(C`G@p`G@@FpP(>`@FpE"EG()(7(7`@FhHF2`@Fp(=`p`@Fp(`@Fp(  D F @v6VEWORDS TRFFINDDELETENOD.^DDAhpP(%LIF::RTE_6:5:237:128 644 0 0 166400 5310707032 34374 %LIF::RTE_6:5:237:128 $%LIF +#+#+#v_0FST 99XZLIF 92077-16638 REV.6000 <920506.2018>/SRC_92077/R6000/&LIFM9rr4] LIF .NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN r}}%#EXEC .CPM.FION .SST.LBT.NFEX .CBTLLFER "LRN !LCO LPK LPU LDL LLI LST LTR LLL LIN LEX LSV LMC LHE CASEFOLDSPLITSTRING PUTINCOMMAS FMPREADSTRING }00 4FMPWRITEIFBRK PRTM LFILZ FPARM IADDR LIMEM LOGLU PNAME 0++ _e~~ DD`phi(@p`p 쀈pp`p`pppppp69@p`pXDmJoKmo Po~~~WPEE Uop`pR`@ 88R(Y dZ jo qmRQPpZ (x(~gZRǡ(pPpQ`PQ(~~~FFZRp`P(RQRQipOi`PQXO 0(`Q(ϡQAm mRQP(`@X@pWA W(ڊ(~Xg~~{EEZRikiA`lhk (Ak Og((`@OpOpNhhP(A`lhk( pQ`lhAk(QpQ`lhk( Q()(~Վ(FF(`lhk(1(?(?`X@pQ>ZYONQW(`lhk(G(P(POZYON(A`lhk(XpQ`lhAk(bQpQ`lhk(mĢnDDQ(xwZR(`lhAk(((`X@pQZPiRQW(`lhk((( i(`lhAk((( iRQP(`lh~Ak(tCC((`X@pQZYiQW(`lh|k(((`X@pQZYiQW(`Z(g(`lhzk(((`X@pQZQWi(@`lhxE?CCk(((`X@pQZYiQW(`lhvk(((`X@pQ ZYONQW(`lhtk($(0(0`X@pQ!/ZLJQWi(`lhrk(8(D(D 8`X@ ++;:pQ"CZYiQW(Jg(#NA#Q+O SLLRNCOPKPUDLLISTTRLLINEN/EEXSVMC? ??HE 1    @ @N          Y*: 86L @rS <<X|@LCHAR 92077-1X638 REV. 2426 <920506.2018> /SRC_92077/R6000/&LIFM< 0LCHAR   .S.ENTR .CPM ]]&66Ap`>p`= @((6`< ((6`; Ap8`: 8(6`?p`]l:A 9 0 Z @<<X>LCNUM 92077-1X638 REV. 2426 <920506.2018> /SRC_92077/R6000/&LIFM< N LCNUM  .ENTR PACKUNPCK CNUMD XXt..@p799;p`:p6`@8P=($(,`@8h<886(399; XGO800 @ (;;XF LCO 92077-1X638 REV. 2426 <920506.2018> /SRC_92077/R6000/&LIFM; ~xyLCO  @@ u.ENTR .CPM LCOLR LLFER INTEGERDIRFMPPARSEPATHCASEFOLDDECIMALTOINTLFILZ SPLITSTRING @~~sHHs@sp@tp@up@vp눀xx   rpp`r(u(p ((~XXI// qrsPp(ϡ u(興`pPq((ڡu(sPp(( studvwyX88 @ @@    @(868@ư<<XgLCOLR 92077-1X638 REV. 5020 <920506.2018> /SRC_92077/R6000/&LIFM< LCOLR  ~~v .FAD .FMP.ENTR .FIXD .FLTD .EXIT .SBST .SST.SSTC LLFER LTRCL LLFRT FMPWRITESTRINGTRIMLEN FMPOPEN LFILZ CALC_DEST_NAMEFMPBUILDNAMEFMPPACKSIZE LNAME IFBRK LDRED ~ @QLMAPLDADD OCCA@p,@p+@p*@p)ŀx9@p(p`]@,p#p`#( p'p@p`\@,p""((`@(h[H,p"x#iDD "#`(`p`[@,@p`[@,ep#p`#( p&'(-`U@, `U@,PW(@$@p``@@((``@@(PZ( @>LHBBp`Yp%`@PhHH(88%(K\fW>`@(hXH,p"x# g"`#(q pdW^W(`c@@(p"`b@@(p#A"  SA@ Q""p`a~~gMMpppDNDBNJ@>DLB@V8<fR<<JW`( Z^R(>p">DW:DH"JF<ր:``~XX..@@(hH(p"`p$x#"#$`( W^`( Z^`(X==88&($88'(( W^`U@,PW((   _W^=[[ρ-:: to Copying rwcsx @LH@@@@TZ^fln@`/( 2 [@v<<X{NLDADD 92077-1X638 REV. 2426 <920506.2018> /SRC_92077/R6000/&LIFM< 6LDADD  K.DAD.ENTR [AA@j6*<<XLDITL 92077-1X638 REV. 2426 <920506.2018> /SRC_92077/R6000/&LIFM< nLDITL  JjEXEC.ENTR .CPMMOD   ;Zx0Om,, lA@p(0AA$p.,@.,~~m0FFA5 (:(?p`p(zpE(IpM(Qp`p`p`@@(b(b88(U@@@@p`P X ~\\v//(z`pA~p(p@`@p(p@`@p(p @\z d @u5;;XJLDL 92077-1X638 REV. 5020 <920506.2018> /SRC_92077/R6000/&LIFM; {LDL  nnq].DAD.ENTR .CPM.MBTLLFER FMPWRITESTRMV LCNUM LDLTI LMAPLCDNUM LSTV LMASK CLCUC LDRED FMPWRITESTRING LSORT DECIMALTOINTCASEFOLDSPLITSTRING n :" ~~AAA@p`@p_xp`@`P((`p`@`(p`(Ā`(Np`@`p`@`p`pp~BB`@`p`p}`hH`xUhUpA(p`}@(`p`@}p}(`}pp}( (N`@_hH`pTpUEEzTU~`z(E`}(6`@`h~pTTh@A6ph~ψ@pUp`U(p^`$@p`@@_P(O(U`@p(`@@_ppY88(`@`(g`@_pT gTp`p]`@hHHH_88](k {(`@_pT`ʀ@@_pU TU`pp~~B@@88^(D`ʀ@p`@`P~((L`}(@@((N@pT Tpp`(p\`@@@_h88\(`@_pT Ҁ|T~ " 8& VOLUME= BB`@_pT &T`@_pT 怑ąTĈ`@_pT |Tp`(p[`@@@_h88[(`@_pT  |Tp`pZ`@~~ @@(/(/`ʀ@@_pT`@@_pU )TU88Z( `p`@_pT`ƀ@pU =|TU`@pA(E( `p{ M|{(R`p{`(U~ Tp(\(\`p b|{ - + VOLUME = }}bDD i+ pĀ v|ϡ ||A{((h`| |{`p`p`@`p`p}`@`p`@`p}CC`hH`xUhUp`(p`}@(`p`@}p}(`}pp}`@_hH`pTpUzTU~`z(E`}(`@`h~pT~~E;DDTh@Ah~@pUp`U(&pYp`(pX`@_h88X( `$@p`@@_pT(#T("`@@_P(1~(-BB`@`(9`@_pT 9Tp`pW`@hHHH_88W(= M("` YA((`@@_(yk`@@_~~Ko>>hH_pTxUxTU(`@@_hH_pTxUTÙʡ`p`@@_hH_pTxUTU`@pTT`@pT~ g T 0 }}m@@`@_pT0TA((`@@_pT̀T`@_pTT`@_hHpTxUTĀU`@pTT`(`@pT}@@T`@_pTT`@_hHpTxU TUĀ`(`@_hHpTxUTU`@pT%T`@@_hH_pTxU0TU`@_h~~3==H_pTxU:TU`@_hHpTxUGTU`@pTQT`@_hH_pTxU[TU`@_hHpTxUhTU`@_hH_pTxUr~p@@TU`@_hHpTxUTU`@pTT`@_hH_pTxUTU`@_hHpTxUTU`@pTT`@_hH_pTxU~~Ha??TU`@_hHpTxUTU`@_hH_pTxU˅TU`@_hHpTxU؅TU`@pTT`@@_(`@pT~~~aAAT`@@_hH_pTxUTU`@_hHpTxU TU`(`@@@pT "|T88Y(`@`P~(.(L`}~CC0$$( 7|{ =|{(RD(RKz(RRCva\\ NAME TYPE #SECTORS TRAK/SEC DATE/TIME STAMP VOL NUM @ @@l F L ! ////::::#! ( )PA; :**8632""0/-*' %" B--"@K$i<<XLDLTI 92077-1X638 REV. 2426 <920506.2018> /SRC_92077/R6000/&LIFM< _LDLTI  A2.ENTR MOD 55O@p@p( A  p @5~~ >>`@ p`(0`p`@h`@hHxhpp>`@pGpK`@hHppY`@hH~VV ^,,Apxdph`@hHppv`@hHpxpVm P @<<X4LDRED 92077-1X638 REV. 2426 <920506.2018> /SRC_92077/R6000/&LIFM< PLDRED  .ENTR .CPMXLUEX LOPSY LINRW ~~j FFA @ p@ p`@(+*  (∈` 0(`@(9hAHp0(`@ph~\QBBHxhp   (`퀄@@ ((`@@hH耀h눀Hp@hHp (`ppppAAp`p@hHxhp`@@hH@((p`@h`@p`p  p`p`@hHpx( `(&&`pp`@p`p(&q )@Nm`<<XjLDRUP 92077-1X638 REV. 2426 <920506.2018> /SRC_92077/R6000/&LIFM< dLDRUP  ;; h.ENTR .CPMMOD (( .IDLP LDWRT LDITL LSTVLDRED LMAPLDADD LNAME CLCUC ;~~` CC @ p@ p@p@p`@P (` @@ p` ` @(55` @p=(p `@hpp ~~~nNEE` ` @@ ((` @p_  e  `hHppspp`({`p`@p `@p~~~>DDp`$p`@@P hHph H(`@@@ € `@p    (ֈ`@@p ց`~TTI))@@h`@p`@p`ph  (p`@ 88(`@p  Ts (/ @S<<X:LDWRT 92077-1X638 REV. 2426 <920506.2018> /SRC_92077/R6000/&LIFM< dLDWRT  6.ENTR .CPMREIOXLUEX LOPSY LINRW ~~fDD@p@p`@(32(`ꈀ0(`@@(A(`@(`@`@(O(`@pۂh~~~hX??Hxhp`@@@(i(pp(t`pp p p p `p@ hHxhp` @@@hH((p`@~}} @@h `@p`p p`p` @h HApx  (`(ɀ` p p ` @ p ` p (|p x` p`p((A}  H )@ka!<<XLEGVL 92077-1X638 REV. 2426 <920506.2018> /SRC_92077/R6000/&LIFM< LLEGVL   .ENTR LNAME S>>@pnp`y@nP(`x@nPz(`y`w@n(&``v@npl.lvp(4`~`vp`upm`@nP(>(E8aa7@,,8m(8`t`s@n(M`}`r@n(U`|`q@n(]`{`o@n(e`z(j`p`ao   @ ,k;;XN]aLEX 92077-1X638 REV. 2426 <920506.2018> /SRC_92077/R6000/&LIFM;  LEX  EXEC.ENTR XLUEX LURQLPOST FMPCLOSE ~~CC@pY@pX@pW@pV $`Z@XP[h\HXX[ (66p``p`Z@XP[(@(DD_`Z@XP[~G?H (J(OO^[R] Z),@R<<X&LFILZ 92077-1X638 REV. 2426 <920506.2018> /SRC_92077/R6000/&LIFM< CLFILZ   d.ENTR .MBT @@h!!Ax%(&@#p"Ah"`%!(&@#p"h%`"A!@!@@@;;X>LHE 92077-1X638 REV. 6000 <920506.2018> /SRC_92077/R6000/&LIFM; t&LHE  =A.ENTR .EXIT .SSTFMPWRITESTRING~~$MM$@$pAt5$%Atp#t?$%tp#AtI$%Atp#tS$%tp#At]$%Atp#tg$%tp#Atq$%t~~~ qLLp#tJ{$%tp#Jt$%tp#tJ$%tp#Jt~$%tp#t|J$%tp#Jtz$%tp#txJ$%tp#Jtv~$%tp#&`` REV. 6000 <920506.2018> TR,[rte file descriptor] SV,[severity level] ST,file descriptor,[file descriptor] RN,lif file descriptor,lif file descriptor PU,lif file descriptor PK MC,lu LL,R%\\[rte file descriptor] LI,file descriptor IN,lu,[volume label],[directory start],[directory length] HE EX DL,[mask],[level] CO,-lif lu,destination mask F&,))z$<@F`<t)@ס;;XGLIN 92077-1X638 REV. 2426 <920506.2018> /SRC_92077/R6000/&LIFM; }smLIN  .DMP.DDI.ENTR .CPMXLUEX .DMOD .LBT .IDLP .MBTLLFER LDWRT LDRED LMC LSTVLDITL LOPSY DECIMALTOINTSPLITSTRING LNAME CLCUC LPOST FMPWRITESTRINGFMPREAD FMPWRITECNUMD ~~HlfEEAf@fphx@ip@jp@kppMcpS`c(`pL(`Sk`爡@pfЀk`@pkLkʀj~ZZP//`PLhXL 0hXL 0hXL 0(pL`@P((`pM`@pNրkUg(Z") DO YOU WANT TO CLEAR LU XX? _uFF)k`Ԉ@pSk̀kjdkiek kpLh` `k( jd`k((`@PhHX ~~O ==(% %fL`Np`pOh (7p`O@ 8O8(/`Sk`Ј @hDpO`p`@O@hOH8O8(HhHP(X(b`@pb~}}]@@`pL`ڀ@(p`@p p`ለ@hHpx{ს(`@ `@pc`c(`@h`@Ѐ((}~~@@`@hA`@M(`Έ@h`@h`߀@ `ހ @ `@pc`c(`݈@h`܀@ `ڀ@(ڈ(`@h~~~AAH`pO`p`O@ 8O8(`ڀ@(kppAab`a׈p]`M(:^(*kpp`@pp`x_`׈@h_`Ӏ@~hH   @`~~&AA@ (Lkp`p`@p9O^(Lkp`p`M(L`؈A@pL`@hH`M(Y`ր@ `Ԉ@hH`P](c(g`@ ~Bg@@`M(n`Ԁ@ `̈@hH`M(`@p`@pA`@h`@h`@p`Np`ApOh (p`O@ 8O8(`NXn<<@@k`@N@@ `@N@@h`@N@@h`@N@@ `@N@@h`@N@@hN`@N@pUk`N@@hЈHpx]]33ꃠLN`L(pLkp`p`M((pLfpT`Sf`@ fLkʀjkl`L(f]}}DDf((`@ `L(`@p`΀@p`̀@p`̀@pxQAxPDfLkNRQP`L(If`L(`@XfLkNQP`L}~~ZCC(]f`L(pO`N(op`O@ 8O8(gwfLkN`L(|f`L(fp`p`M(AkЈ((fpL(`L(Lj~ 8m wwxTT NOT INITIALIZED  Zr x@ ~ VDEFALT )?(  +*d@ YE48w@8<<XjLINRW 92077-1X638 REV. 2426 <920506.2018> /SRC_92077/R6000/&LIFM< .LINRW  @@.DAD.DIN.DSB .DMP.DDE.DDIR .DCO.ENTR .CPM XLUEX .DMOD MOD LSTV LPOST @(&HH&@&p@(p)(`'` -h HX (`p#+p,ph#@A h#@x` @p` @ph#@}}nLLh#@Ax%`@p`@ph#A@h#@x$`@p`@p )hHxhh@Ah#@h#@A}~~GGx p" (`p"`@p `@p @ `' ((`'`(`'A h -(( (')*A ((`~~~.^MM@p A@@A **hHxhh@h#A@h#@x A (7"p(@hHX (S P~ N&'' 3REE((Yp(ap`"( (op(w(`@P(( &'` -((`@` -((`@||@@'*ppp`(&pA` p  (px`P((`'p!`!@pA *(ˆ(*p`p-(Ȉ(`!@p ӄ(-(`!ݔEE@p (&pA` p  (px`P(('`*( @ `P (m'&p` pA (px`Ph  0OOɋ((((` A'p&* p`(0`@ @p`*p-(9(C`@p CO}}D@@-(c`@p P&p` pA \(px`P(c(`@p'A *((`*p'&p` p`-h HApx }~~>> (px`P(('(A (`@( &''(`@h `@h '&p` p`@@hHp`@p`@Apx ~ff44('`'p-((`@@p ܂&(*` -((`@@p (&*` -((`@ .f((_,*.-+ 0(@@s_3<<X|LLFER 92077-1X638 REV. 2426 <920506.2018> /SRC_92077/R6000/&LIFM< LLFER  dd.DCO.ENTP .EXIT .SST .SSTC .MBTPRTMPTERR STRMV LCNUM FMPWRITE FMPWRITESTRING INTTODECIMAL LLL MOVEWORDS LFILZ TRIMLEN FMPERRORd4~DD`pA`p@p@p?AhB`bA((hB``A(`{(DŽ(?]H`z(τ(?[H`y(ׄ(?YH`x(EE(?WH`w((?UH`v((?SH`u((?QH`t((?OH`s(( ?MH`r((?KH`q((?IJ?p`j@~~@#II@p`h@Ai(A(A(A9iC`@dp A Ap 7mA? L7`(p UGA=E`p `; 9mJ=; k9~aa|l44p7pxekkn(oknkp`lp`@c 88(pa_N`` LOG FILE ERROR: 1 Size up program Tape not mounted Illegal command or parameter(s) Missing parameter(s) Disk not mounted to LIF Bad label or not an LIF directory Illegal LU LU not found iSSn SST Lock error on device Copy terminated Illegal type or zero length fileFMP ERROR: LIF ERRO R: H  @ @@ J\ ^n  ! ::޾X$$& 6 V bFMGR -- =87654:@k::XVLCDNUM92077-1X638 REV.5020 <920506.2018>/SRC_92077/R6000/&LIFM: t LCDNUM ..[.ENTR .EXIT .SBST .SCO.SST.MBTMOVEWORDS DINTTODECIMALR.bb.88@pHKAhN`LK`Up`SpG?MD?Q(((3(3?MDH?O(4(888G(=T bR3I 0   @}{;<<X{LIF1_HEADER 92077-1X564 REV.6000 <920506.2016>/SRC_92077/R6000/&LIF1<LIF1_HEADER kIp@3<<X~LLFLF 92077-1X564 REV. 2426 <920506.2016> /SRC_92077/R6000/&LIF1< hLLFLF  $$A.DSB.ENTR LMAPLDADD LDWRT LDRED IFBRK $~~pBB@p@p@p@p`@h̀H`ˈ@hH`@p `@p `@p`@p G M`@p`~mRGG@pp`@ppp(p`p(x{(`ʀ@ `ʀ@P(`@p (FF(((0(  (aF /@ <<XOLLFRT 92077-1X564 REV. 6000 <920506.2016> /SRC_92077/R6000/&LIF1< qLLFRT  .. .DSB.ENTR .CPM FMPWRITESTRMV LDRED IFBRK LDADD LMAP.~~ AAA@p?@p>@p=@p<`N(/(7`J@?p `I@?p`H@?p pp`G@>p`F@>p`E@>p9R9 ~~~REE`h pA`MB(a(7(t` p (|` p @`E@>hEH>p9x:9: (`D@? `D@?PB(7`~EE@ /SRC_92077/R6000/&LIF1; x|LLI  gg]%.ENTR .CPM .ARTN .SCO.LBTLLFER FMPCLOSEFMPWRITEFMPREAD IFBRK LLFRT FMPOPEN CASEFOLD LOPEN DECIMALTOINTINTEGERDIRLFILZ FMPPARSEPATHgvHHv@vp@xpyx@zppo`€@(uotspd`w`phP(}wrpvPrpCC((ppq`p(`@h{px ݀vwiw(`wphHP(pc(}`@p dpc`d&EE(}`Pd((`@p dpc`d(}po`wpc`opA o0(}w`o ..: 7vwixdz{pc(}wpdAh(G`@ gg#F44pc`@P(}`@hHpx[gpfpcPfhXg 0(}`gpd`d(}`pc`@pyxdf`dg??z (}(>`@pew(wxc`d(dxc|?IIF--rwosxfrwosx @@@@@@>DJ/ (8I@.;;X>YqLLL 92077-1X564 REV. 2426 <920506.2016> /SRC_92077/R6000/&LIF1; {LLL  PP .ENTR .EXIT .SST.LBTLFILZ LLFER FMPAPPEND FMPDEVICE FMPOPEN FMPBUILDPATHDECIMALTOINTFMPPARSEPATHLTRCL P~~O]HH@pGxT@pFp`j@Gp`j@G `j @GhS_W][Y`THpRhRPiA((ScplSJUgSp~+KK`(JUa 䀐SUQ`o((`h  0( `(`lp`(`np  S_W][YplS SeQA('SAcW@cFFJ!$$HUap(p ,p`(4 4`(C >kmlCplSFEE,=H))wosx1 rwcxs rwosx @@@F@@ /E@;;X2yLMAP 92077-1X564 REV. 2426 <920506.2016> /SRC_92077/R6000/&LIF1; p6LMAP  .ENTR .CPMMOD CC@ps@pr`((w@sp`v@s(%`u@r(m(*(m(m@`u@rp`(<E`xPP G((pp`tpq@`(V@po@oAc`@p88q(LP&it)@@2<<XLMASK 92077-1X564 REV. 2426 <920506.2016> /SRC_92077/R6000/&LIF1< %LMASK  ..0.ENTR .EXIT .SBST .SCO.LBT.CBTDECIMALTOINTFMPPARSEPATH.JJӈxx`׈p`p`HphPֈH(hP֊(Ap`(9p`ՄpD(~~7JJpDD(0(88((AA`h(A((A(GpA`h(Q(`PhX ((f~~~gFFp`h(p(`PhX (`PhX (`ƀPhƀX A((p`hA(((p`~ E CCVY%%- HH@@@@@@@@@Hh - C@077X\LMC 92077-1X564 REV.5020 890926 /SRC_92077/R6000/&LIF17 r'LMC  SSU .DMP.EIO. .IIO. .DTA. .ENTR .CPMXLUEX .EXIT LLFER LEGVL LOPSY LSTV LDRED LURQLPOST FSTAT NAMRS΂HH@p@p@p@pp`@p (N`?p`hHX 0(Pp`pA0~~/_EE(P`p`pj(o`hpAp0hX (Pp `P((`p `P(((`ppA(~AApx`(`p `ۈ`(P` (҈`p `p` p`@(`@P(P8 8(`@PhHX  33(p`Јp`@P A(3BB`@P (׀``@h`@h`@h`@ `@ ` (`@ `@ `@`@`@h  @CCDրpx`P(Pp`ԄpUpx`@p`hЈp`τpm`@ `@ `@p`@p0( `aDDҀ(A `@h`@h`@@hHpx (P`@@hHpx `@h`@((XXu..((9` (pA`p`@ `@ `@p`@pA `@h`@XDDh(9 (ppA px`@h`@ `@   @(9pA`p' `@hH`@hH`@hH}}Z9DD`@h  A ` (P h (P`` (W`@  0( h`@ (px`PhX ( }##}Ȁ(hAAAH`# vL(2A2) t JJ55 )( *0.-, 12IO5 @#=@܀?48J@zE<<XwLNAME 92077-1X564 REV. 2426 <920506.2016> /SRC_92077/R6000/&LIF1< QLNAME   i2.ENTR .CPMMOD .IDLP LCHAR ~~ FFA@p(p`p(p` @(&(p` A(4(p(^pp`@pG(_`~~~KCCp`@pASpW(_88(;(PhHX (`PhHpxxAp}P(`(`p`p~))-(p`@P((88(`p`)$ A Z @B<<XLNAMR 92077-1X564 REV. 2426 <920506.2016> /SRC_92077/R6000/&LIF1< _LNAMR  N9.ENTR .CPMPACKUNPCK NAMR~~r@@@p@pp`@p&`@P(1`@(8`P(<(S`p `p(H(S` @P(N(1~~~MN@@8 8(@(1p p `p` @p `P hX  0hX  0(o`p @ @@(y(y`p ` (` @h8 8(Y`~ c   , : @ȸ<<XfLOPEN 92077-1X564 REV. 2426 <920506.2016> /SRC_92077/R6000/&LIF1< cLOPEN  ((.DAD.ENTR LDADD CLCUC LSTVLMAPLDRED LNAME (~~W??@pS@pR@pQ@pPp`a(,(&`e`Z@S(77_`Z@SpK?_K(&`ap`T@Sh`HSpK`V@QpMxL~}}]N@@RKLM`W@Q `_@Q `T@Q p `T@Sp`^@Sp`]@Sp`pt `X@SpKKp `\@SPU((p `@ (` p`@}~~CCp(`pp`X@SpKK  (&`(hA@ hd@[pLp `L(pO` $p` p `T@p`@P( `~ff22@PP[(&`T@QhTHQH p `@PpKKTU_`Z@S(`@PpKK_p`YpN`@RhHHP(( f~~;;88N(p(&8 8O(`c`X@SP((&`(`@P(&`T@Qhb`aP(*(,`a`a(0(>`V@QhWHQpK`V@QpMxL>KLM~!!> `a(B(I`T@QhTHQ !IT()  @8<<X~>LPOST 92077-1X564 REV. 2426 <920506.2016> /SRC_92077/R6000/&LIF1< TLPOST  u.ENTR XLUEX ^^p,00@p6(*p`=p`;@6@6h:H6p2`9@6p4`8@6p5x3)<2345(0`7@6 ^i]7,.-+*@;;X>L`LPK 92077-1X564 REV. 2426 <920506.2016> /SRC_92077/R6000/&LIF1; z0%LPK  CCՒ .DDE .DCO.ENTR .CPMMOD .IDLP LLFER LDADD LDWRT LSTVLDRED LMAP IFBRK LLFLF CDD@pN@pM@ pL@#pK`^`Q@NA]$(@(;`Q@N@p ppp`Q@Np`U@Np`U@Np`V@Np`V@NpaEEOp`Q@NYp`U@NhTHNpFxGyFGA}p`pF`0F( `@KhQHNpFxGFG (;p@~~3rBBp`(  `@KhQHNpFxG€FG (;`$@p`X@@KpP(I`(%`$@p##Y`U@@K~~~^@@PhVHHKX (`U@pFP#F\`X@@KhXHHKpF` @KpH` $pIxG FGHI`p`_p`[@@KpF%F`p~ Z( (u .(4`S@N ~~3DD`S@NPP(u`R@NhQHNpFYF(I(y`R@NhQHNpFYF(`(``$@@X@K f `@KhQHNpFxGtFG  (;~jwHH(z`Z PWp`pF`0F(  `@KhQHNpFxGFG (;p@ `(Y0DDƀ ` @KhQHNpFxGՀFG (((; (((`@Kh HKpF`xG$pHFPGPHpA (((`p@pA (( CC(@pA( (;`p hAP(pJ` $@ @X@K 8 8J(` @KhQHNpFxG,FG  (;A (;:((D DPW%uO / 6@;;XFLPU 92077-1X564 REV. 2426 <920506.2016> /SRC_92077/R6000/&LIF1; {rLPU  == .ENTR .LBT LLFER LDRUP LOPEN DECIMALTOINTINTEGERDIRLFILZ FMPPARSEPATHCASEFOLD=ZlHHl@lp@npox@pp`m` @(jihgpc`mfdlPfphHP (~~U@@pc(`mdpe`d(鈈` @h Hp` qpxрlmm(` @ ` @h Hp` qpx lmm( mnc~ )r ++ @@ @@@ @   (@867+@Z*x;;X@LRN 92077-1X564 REV. 2426 <920506.2016> /SRC_92077/R6000/&LIF1; ~#LRN  AA 0.ENTR .SCO.LBT LLFER LDRUP LOPEN INTEGERDIRLFILZ FMPPARSEPATHCASEFOLDSPLITSTRING A~~fJJ@p@pֈ@p,`@(44`@(<<H  T   Y^~@[AA`phHP(`mPpA(y(``p`@ՈhHp`px  ҁ(``((llVH66p`@hHp҈`pxӡ ҁԀ(`p`@hHp`px  ( ЁlOO!.. @@@@@@@@@@ (@867O@(<<XKLRTLF 92077-1X564 REV. 2426 <920506.2016> /SRC_92077/R6000/&LIF1< pLRTLF  -- b.ENTR .CPMMOD LDADD LDWRT LMAPLSTVFMPREAD IFBRK -~~lCC@p=@p<@p;@p:@p9p`Jp(/(p`>@;p `D@;p ? p`A@; `@@; p`@p~~~R@@G(V(Y (_`C@< `C@<P?(/`@:p7n7Ip P (؈`FP(`(`@:h ` @@p(M`HpG((p@hBH<~}}rDDx8h8p@hBH@9h> /6@xD<<XLSORT 92077-1X564 REV. 2426 <920506.2016> /SRC_92077/R6000/&LIF1< ] LSORT  .ENTR MDDA@p pP(y (y@p|p`|(yp`@p|p`|(upp (qp@ @@p{` @@{(q(mddoK00p (lp~` @p @@p @@hH`@h88~(Q(q88(788(088(% d@` ;;XILST 92077-1X564 REV. 2426 <920506.2016> /SRC_92077/R6000/&LIF1; C6LST  ~~;.DDI.DNG.ENTR .CPM.ARTN .EXIT .SST.LBT.SBT .MBTLLFER LTRCL FMPCLOSEFMPWRITEFMPREAD IFBRK LDRUP LRTLF LLFRT LLFLF FMPOPEN LFILZ FMPBUILDPATHFMPPARSEPATH~11YPFMPFILENAME LSTV LOPEN DECIMALTOINTINTEGERDIRCASEFOLDSPLITSTRING 1~~/FFA/@/pZ@1pY3xu@4pXp p`0Ptx`@Z(XX`@Z(``xp hsHP(3r|&"#%~x~uGG~|! zlx0(p$,-/P,HpUhqPU(`((Ĉ`@Xh5pUxV /0UV0(p hqHP}} }@@h0 0(3 ΁1 lp ` (3`vP (( ށ1 lp ` (3`p`@Z(HxhoP((`0`p `((30hy}ee44` xAh` x ~D  H `&p!`"p`#p `%ph{` x`h}H`(P%`p`@Xh5pUxV 5/e~~d0??0UV0(:`0`p `0(@(3`0p `(H(3Oll(vpUx \1 xl` (v` (c(e`p `p `P (k(3`(p`~#oHHp` (`p`p`(`@p x~|! zAx v `vPA(( v  1 xvl`p ` (3(v*+/P*~~Wx??pUhmPU( x(p)`(( `@XhHXpU`5pWxV ځ/0"UVW0(`0`p `0((3`0p `@X((3"ll~99`P((4lv44lv(v`(P`p 4 9}}ƾ@@xl` (v` ((`p `p `P ($(3)1'5|&"#%`$(C` (=`p `(B`p(M` (H`#p `(M`"pYx}~~RHH~|! z^xA v `vP(f(jA v  q4 xvl`p ` (3`0p A`pU0U(30``@Xh5pUxV/4~@HH0UVp 0(3`@Xh5pUxV/04UV(3/01 45/1 (31/45`0`p 1 0h 0(3/045ss);;p (3`0Ap 5((30(`@Z `@ZPl("`@XpU1 UpPhX  0("` ("`@XpU4 Usjjܰ88` ("(`P (&((p ,1 1/4 p `@ZPl(9(??2l0(II02l ` (SS 2 6ja\NNwcfxwcsxwosx wcsxf rwosfxrwosx    @@   @D@ @O @@ @   / (xr^7@Cib);;XET/LSTV 92077-1X564 REV. 2426 <920506.2016> /SRC_92077/R6000/&LIF1; ALSTV  .ENTR OO((A@p-@p,('p('p+@@.@,HH.H-88+(O . @q1;;XGLSV 92077-1X564 REV. 2426 <920506.2016> /SRC_92077/R6000/&LIF1; 'LSV  ))p#.ENTR .CPMLLFER FMPWRITESTRMV LCNUM LSTVNAMR)ggx77@p@p@pp `4 p`h 0(MP(A( (F(`@h (g› SV LEVEL IS XXXXXXX:OFFV `@p`p`(b`p`(ll p`(zz  `(  (` uP ( < (r -- 8@S;;XCLTR 92077-1X564 REV. 2426 <920506.2016> /SRC_92077/R6000/&LIF1; LTR  :: .ENTR .EXIT .SST.LBT FMPINTERACTIVELFILZ LLFER FMPWRITEFMPOPEN FMPCLOSE:-IIAx@p{@pz((% `HphPA(,(07<(hp JLh (\ABBW""\  c h kp ` (qP (u(w`B11|Default to Log LU rwox1 @    |1@~:><<XLTRCL 92077-1X564 REV. 2426 <920506.2016> /SRC_92077/R6000/&LIF1< {LTRCL  CC j.DIN.DDI.ENTR FMPCLOSE FMPTRUNCATE FMPPURGEFMPSETEOF FMPPARSEPATHFMPFILENAME FMPPOSITION C~~*xGGAx@xp@yp̡ymvtpm`݈Pm(ȈtA@kysroqp`o(yn`@P((ym `@(~  ĀyzkȀyz{!! @@@  @/!@~f<<XSUNPCK 92077-1X564 REV. 2426 <920506.2016> /SRC_92077/R6000/&LIF1< JUNPCK  A2.ENTR MOD ~~~BBA@pM@pLp(GpK@pIAIQ(2@@N@LH   @HMpIR@OI(C@@N@LHHN   @HMpIP(@OI~C88K(4N @Dc;;X8skPACK 92077-1X564 REV. 2426 <920506.2016> /SRC_92077/R6000/&LIF1; v%PACK  A2.ENTR MOD ~~jyDDA@pe@pdp(^pc@p`A`g(=@@@djHHfHep`i@`p@@@dh(Z@@@di~88zFHHfHep`h@`p@@f@@dh(Z88c(8,f@~><<X^STRMV 92077-1X564 REV. 2426 <920506.2016> /SRC_92077/R6000/&LIF1< ` STRMV  L.ENTR .CPMPACKUNPCK IADDR ~~h@@A@p[@ pZ@[pXXp @ZpX"XpAp(,(,`]p pp`(VpY`p`(>`@p@pXHX\~&&G\ @pXR\ X\88Y(5 & c \ @sf==XKTINTEGERDIR 92077-1X564 REV.5020 <920506.2016>/SRC_92077/R6000/&LIF1=cINTEGERDIR""].ENTR .EXIT .SBST .SCO.LBTDECIMALTOINT"qq>>AxN`NpLhLHPR(((=(/`SpA`QpA?MA?O(/88A((=@p?MJS<?qJ / @ @!@n88X"P )LOPSY 92077-1X565 REV. 5000 <860701.1628> &LIF2::SRC_920778 HLOPSY .ENTR .OPSY LAH@ @  `@0:&&X(P *IADDR &LIF2::SRC_92077& +IADDR .ENTR  A`@ ''T 92077-1X564 REV. 2426 <920506.2016> /SRC_92077/R6000/&LILI.REL::RTE_6:5:153:128 644 0 0 114400 5310707034 34035 LI.REL::RTE_6:5:153:128 $̼LI REL +#+#+#L1h1FST 88X 3LI92077-16646 Rev.6000 <920612.1324>/SRC_92077/R6000/LI.FTN 8 ACLICOMMON qq5LI.NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN q~~XC(.DIN .DMP.DCOEXEC.CPM.FION .SBST .SCO.SST.LBT#.SBT.NFEX .IDLP .MBT+PRTNLIMSGSNLWRITERELSTR *FMPCLOSEFMPREPORTERROR)FMPENDMASK'LISTTHEFILE &REMOVEFILE%MOVEFILENBR ~A#CASEFOLD$SCIO"GETFILENAME !FMPINITMASK WILDCARDMASKCLEARBUFFER .LBPR INTTODECIMALLIMEM DECIMALTODINT TRIMLEN SPLITSTRING TOGGLEOPTIONDECIMALTOINTFMPLINES HPCRTSSRCDRIVER HPRTE6 VMAST  FMPOPEN = @@DJ'.`(65Ԉ(`p( ;( A`(M`}}NE<<ph@A   p' (Z U(Zp'\@p`(dx2i܄hPAp(u(}p`(}AA`p`(`p( p`AphΈA(pA(88(܈H(ihP((h`A(ˆAh`keDD (T`pܡ pp`(pD(((Ap(A(((`p`p(D∈(((`~~a;;p((88( (6" 5`pJ5(.0( 53; >(T~~~]?A88D3`p3(P0(Y0` @@0p/`@/p.`@.p1`(`@@((`@@p̡y~ y::(Yx2`@p `1@0@@hp`( `1h 0(`@@@@@((`@@@@@_'66p`(u(`1pĂ`/pʂ p&`&(`/p!ڂ`(ᡊ("(}`&??p((o`(b `hJ#$A  HhPphHP0((H(whP(#(.%~~ ?(::*(∄((whP(3(;&7((whHPHphP0(WO U ((whHP(whHP(`(b`p~~~%b22i o'q`c(`(∀( (`&(`/p)*`(`p `!~oo!l++p!*(`p `!p!(p`pġ8 8(p `!p!(`p `!p!+ AoyyNNA Q B wcrw1 PP@P&@PP@PPSNH?R#AQ +-t y@~==XRgLISTTHEFILE 92077-16646 Rev.6000 <920612.1324>/SRC_92077/R6000/LI.FTN = ACLICOMMON %LISTTHEFILE ||(.DSB .DCO.EXIT .SBST .SST.SSTC .MBTFMPCLOSEGETMORE ATEND LISTWINDOWDOINITIALCMDS CLEARBUFFER POSNFILETRIMLEN FMPPARSEPATH FMPRECORDCOUNT FMPSIZE SETUPLINEBFRFMPPIPE |7CFMPREPORTERRORFMPOPEN L==ppKWH``p`ep`(`dp`(p`1pDEKJ)DSEp,`dP,pD`D(D`1pDEK\JCDN@77SEp,`(RKS` p `!p!`p `p-P,hdX, pD`Dp͠`(`cP,hbX, 0h,   0?w77({p(``p`fp-`,h1pDxEE0Dp p`(,(`( Sp( Sp`pD A ]#FFD(p`( ] 3* SQOKQQAhN`P M ((K((MpDADMDAMD`UK [ 5J[ (J66Y((Q`p`(`apЈpd` p/_`((<(#`p#`(<(pD==I** Y0D(:`)(<<`1pDBD(Q=66DNG . forsxq @  @ 46@S;;XRGETMORE 92077-16646 Rev.5020 <920612.1324>/SRC_92077/R6000/LI.FTN ; ACLICOMMON !GETMORE  }}@.DAD .DIN .DSB.DMP.DDIR EXEC.CPM.DMOD .EXIT .SBST .SST.SSTC .LBT.SBTHANDLEMORECMD CASEFOLDSCIOLIMSGSNLWRITERELSTR INTTODECIMALTRIMLEN ATEND DINTTODECIMAL }))QAAAAAAAAAAAAAAAAAAAAAAAAA J)~~s!AA!p!p((10(d`k(5pp(=(+AAh P(L(`ApA \hH P(h@ ~bCCP(e(w`Ap rAH( h P(|(`pDH( h P((`( J D Lj A Ljx ` ~~CC(`p `Ap AH( h P((h@x ` (p hpǂ@Ȉ0(` p `p@~CC A( `pAAA`@p`p(8ݨp('h P((`h`pݪDH`p(8!+<<`p4(d`(?>(d J D Lj A Ljx`(U`pYAdpgFFih hh @phH @(Hh @h@ljph h(q`(`@@倀hHHApxȄ(77$p 戀P((!`(&(7EE**% 0 00@0@0 d _WPFL%!E@<>>XɣuDOINITIALCMDS 92077-16646 Rev.5020 <920612.1324>/SRC_92077/R6000/LI.FTN > ACLICOMMON jDOINITIALCMDS  00 .DAD.DMP.CPM.EXIT .SBST .SST.LBT HANDLEMORECMD CASEFOLD0~~UCCp`tpp--.((A`el--Aje`-p-phkH@rpehk@se(OAnehk@rh@AeAel-@-~??HJje`- p-($ Rj XjtpP(](`p(`(d(( ?{Lj P ǀ@ >>X HANDLEMORECMD 92077-16646 Rev.5020 <920612.1324>/SRC_92077/R6000/LI.FTN > ACLICOMMON  qHANDLEMORECMD  yy.DAD.DIN .DSB .DSBR .DMP.DDE .DDI.DCOEXEC.ENTR .CPM.F6PA REIO .EXIT .SBST .SST.LBT.SBT.MBT.CBTLIMSGSNLWRITERELSTR "ATEND #LISTWINDOWMOVETOLINEyHH DINTTODECIMAL !ADDFILENAME MOVEFILENBR REMOVEFILETOGGLEOPTIONCASEFOLDSCIOLISTWINDOWREC FINDTHATPATTERN H W A K .mDDxpphPphP0(<0(5`p(8x`p(?H(hPphHP0(]0(S p(?(\}} ;S<<V ({pΈ((hPphP0(thP(p(r`pc(xH(hPψ(y(A(( pPhd(`pΠ`-(`}~~DDp(?(e(({`pΈ((hPphP0(0(HhP͈((h@ (Έ  ~}}<<({`p((hHPHphP0(0 (({hP((p(`p((hP( (E`pΈ}CC0( (3`P(! ({P (%(/@h@  (3  A (9(= @ ({((hP(J(e`P(SP6R;;({  ^ ({`p((hHP(j(x0(rx`p`p(?(hP(}(`(hP((*~~>>`pd((hP((0 ( ( A( -- A `-p-(͡ Ah~}}1@@hHh@ˆHph@0(H({h@@@p (H(hPphHP0(A( -- A }~~o <<`-p-($ p HhhJ'h@ph@0(܄h@@@ 0(IH~G==({hP(N(aQ ({0(\`p΀(_xΈ ((A (n(nm({  xΈ0(h΂@((x΀`<((e`(`h΂@hJ@ h΂@aaV**\({("b(e(x#gp"j(n(x(pxxp(p(aȓTT 0  0  0@((00P0 0` /dN#RXH?Z=O`F':AUKES%$.GB-+Q L ;& r2 <3*)(@Onq??X!FINDTHATPATTERN 92077-16646 Rev.6000 <920612.1324>/SRC_92077/R6000/LI.FTN ? ACLICOMMON dFINDTHATPATTERN  MM V .DDE.DCO.ENTR MOVETOLINE LIMSGS NLWRITERELSTR REXMATCHCASEFOLDSTRDSCGETFILELINE IFBRK REXBUILDPATTERN M}}88p P(r`P(y (*J(%(g'`(*(0(g`0p7`(=(@}}})=88@ E(Q`p L(`(f A (g@  c(((q q ( x}CC&u (  (  p ((OC{ 542,@xe%<<XOLISTWINDOW92077-16646 Rev.6000 <920612.1324>/SRC_92077/R6000/LI.FTN < ACLICOMMON  LISTWINDOW   LISTWINDOWREC 00|ppp`(`(`p`0@bo/>>XPLISTWINDOWREC 92077-16646 Rev.6000 <920612.1324>/SRC_92077/R6000/LI.FTN > ACLICOMMON ,tLISTWINDOWREC  ddYY.DSB.DSBR .DCO .CPMTIMEFORMORE LISTRECORD FMPWRITEDINTTODECIMAL LIMSGS NLWRITERELSTR LISTFILEERROR GETFILELINE ATEND FMPREPORTERRORIFBRK dR ::pp (`(p(( `ppΡ((" (`d(P(6p`-(1`p4(8`(AK.<44?((WP(E(RIi P ((W` P(V(W(`%(d `   P( m `-(~~p88t {   ` Ph X 0h X 0(@@pe` (pe(@pe pd `(~uc::JP( ed(( ((pdP((؈h H@(Έ((`h@( p(99@*((鈀**((*` pd`9""P @  -90"@cۂ==XtGETFILELINE 92077-16646 Rev.6000 <920612.1324>/SRC_92077/R6000/LI.FTN = ACLICOMMON GETFILELINE ::.DIN.DDE.DCO ADDTOLINEBUFFER FMPSETPOSITIONCORRUPTFILE FMPREAD GETBUFFEREDLINE :~~E66pp%(((v`1h0px Ъp`(``PhX, p`p`0p6~?l6440(;(c(^`P(?(^`p%`P(E(T `1pRp(A`P (X([p(c`(`(q `puuj11 *`p(v`(v v`((( (P ((J((  p@(_ue@<==X4=CORRUPTFILE 92077-16646 Rev.5020 <920612.1324>/SRC_92077/R6000/LI.FTN = ACLICOMMON /CORRUPTFILE   a.DDEFMPSETPOSITIONFMPREWIND FMPREPORTERROR ppV33p`<Ph;X 0h:X 0p`(27`(2`1p4%4 `1p4@52459`p7 @@G<<XFLISTRECORD92077-16646 Rev.5020 <920612.1324>/SRC_92077/R6000/LI.FTN < ACLICOMMON j()LISTRECORDuuF .CPM.EXIT .SBST .SCO.SSTFMPREPORTERROR FMPWRITETRIMLEN DEPOSITBINASCII INTTOHEXINTTOBINARY INTTODECIMALINTTOOCTAL.DLDADDRESSOF DINTTODECIMAL .MBT .SBT .LBTuX ZDDKO>>>F<~~S)99)p)P(0(qpd`0-0(0`06p=A6p pp'p(`-(gPJW6p#`p$^p#~~~/b>>`p p!p`(puA (( `'( Apj 0j(`p `p `~}}$z88@p`p'`p`PhX 0(`p `p` p `P((`!p!p `р'(`P(((`P(( ((}~~88`p `p `@p`p(88u(r`'(6p#`p$#%`@p`( p`@@ p ~Q66`p  `(A(- jAj(*p"(/p"(T`0pj 8j`p p! `((R`06@@~~F>>p `Pp"(Tp"`"(] ]`(p`!@ph  @Ϊp`(p p(aJ`@p jDj@~}}i88p`@p`PhX 0hX 0p`(`06@dp`@pkp`k(Hpt ed((H`(`0@dp( }DD ((A(`P((H(튈`P((A(H`P((HA(p`~~0CC@pj jjDjH`@@pj jDjHj`@p`(:h(`@@@pkxj.jk`hHHpjxk9jk(A`@pjAj`d~UU@C''pd88t(Kp jDj(X([([`p a`(hh)UhhvCC_ 0000000000000000 |  @& _YZ ~P_  h@??X4DEPOSITBINASCII 92077-16646 Rev.5020 <920612.1324>/SRC_92077/R6000/LI.FTN ? ACLICOMMON 5DEPOSITBINASCII E.ENTR .EXIT .SBST .SST.LBT.SBTFF''h,h,h.h.@3p(h.@20((D`1h.(/D(-@FH+ T p @|==XGOINTTOBINARY 92077-16646 Rev.5020 <920612.1324>/SRC_92077/R6000/LI.FTN =? INTTOBINARY  .ENTR .EXIT .SBST .SST.IBTE YY 55 xFAEKp`Np A`MpA  (,?ED?IHA(6?EA?G`p@ p 8A( Y7B 0 1 @mZ;;X uINTTOHEX92077-16646 Rev.5020 <920612.1324>/SRC_92077/R6000/LI.FTN ; 4 INTTOHEX  ((F.ENTR .CPM.EXIT .SBST .SST.SBT.IDLP .IBTS (   m II xlAkmp`spgA`@o k('88g(`kpp`phki(apf`@o Akpt(K(KbkH`r@hjDbiHA(Zbk`q$$FR@@phjAbi`p88f(0 $h A0 @:X==X TIMEFORMORE 92077-16646 Rev.5020 <920612.1324>/SRC_92077/R6000/LI.FTN = ACLICOMMON *TIMEFORMORE  .ENTR 66ΨAp` (@(`p (@Ψp`6 a @0rO2<<XNKMOVETOLINE92077-16646 Rev.6000 <920612.1324>/SRC_92077/R6000/LI.FTN < A((CLICOMMON MOVETOLINE  W.DCO.ENTR POSNFILELIMSGSNLWRITERELSTR zz==A A ((I(9`HP p@0@(10G(<5I(9(<`Jp(>p`z e?G1 @+J`;;XPOSNFILE92077-16646 Rev.6000 <920612.1324>/SRC_92077/R6000/LI.FTN ; ACLICOMMON 8POSNFILE  EE .DIN.DDE.DCO.ENTR FMPREPORTERRORDINTTODECIMAL LIMSGS NLWRITERELSTR FMPSETPOSITIONGETFILELINE EN;;(T(T` P(S@`(A`1p (A`PhX, p`p`0 (@@`p<77 *((A(}(R(RI`(}`P(P(Q((A(T(`(d`1p`(c(}(v Ai(v(vni u 226Fs(`p(( p`2{ @00@Y>>X؄CLISTFILEERROR 92077-16646 Rev.5020 <920612.1324>/SRC_92077/R6000/LI.FTN > ACLICOMMON LISTFILEERROR 00 zEXEC.ENTR .EXIT .SBST .SCO.SST FMPWRITETRIMLEN FMPERROR0dd"55x: ==@Bp66=D6=J69=p`Ap6)BA6A ;?(4  4dG8 1 @@p&pp@h>>XSPLITDELIMSTR 92077-16646 Rev.5020 <920612.1324>/SRC_92077/R6000/LI.FTN > ACLICOMMON  SPLITDELIMSTR ;; *D.ENTR .CPM.EXIT .SBST .SCO.SST .LBT .CBT .DLD ADDRESSOF TRIMLEN .MBT;>LL@pp`(AA(*(.(.`Ap(A`p(b(bAA`p`h ~~iPBB(bDHJ(;((DHHh P(v(z`p(bh P((`p 6p`@@p` @p ~(( ` @@pAA((6 PP, @Mla<<XE]REMOVEFILE92077-16646 Rev.5020 <920612.1324>/SRC_92077/R6000/LI.FTN < ACLICOMMON REMOVEFILE AA l8EXEC.ENTR .LBT.SBTLIMSGSNLWRITERELSTR FMPREPORTERROR FMPPURGE FMPCLOSE CASEFOLDSCIOA}}(<<Op`VhN[OA ZYXhNhT 'HShTPU(,(J`\p(7`1pL 7L :Qp`(C}((> BO(JJWO`(M @ @@Y 86@[y==XlGETFILENAME 92077-16646 Rev.6000 <920612.1324>/SRC_92077/R6000/LI.FTN = ACLICOMMON $GETFILENAME  QQe.DIN.DSB .DDE.DNG.DCO.ENTR .DIS .LBPR MOVEWORDS .DLD FMPREPORTERRORADDFILENAME FMPMASKNAME FMPNEXTMASK Q}}9{@@ApJ(|(|`((`&(! `p @@(x`/h.px>(b`(P G}J E55`p `!p!`ŨP((4`/h.px Z a(r`(o i`p `!p!(q`p( A (4`ƀpxx z;;((`((D (`(( x2`2p A (`Ĩ@2p`ƈp( x2`xS @0@0 @/M==X" TOGGLEOPTION92077-16646 Rev.5020 <920612.1324>/SRC_92077/R6000/LI.FTN = ACLICOMMON XTOGGLEOPTION }}{ .DCO.ENTR .EXIT .SST.LBT .MBTLIMSGSNLWRITERELSTR GETOPTARG FMPSETIOOPTIONS FMPIOOPTIONSFMPINTERACTIVEFMPREPORTERRORFMPAPPEND FMPOPEN DECIMALTODINT DINTTODECIMAL DECIMALTOINT} SPLITSTRING ~~88xلhP((p(hP( (`p`p-(hHP($('`p(hHP(,(/` p(hHP(4(7` p(hHP(<(?~~~0b<44`p(hHP(D(G`p(hHP(L(P`p(hP(U (Y`pˈH(hP(^(d`p`p(hP(i (m`p҈H(hP~/tp77(r(v`p(hP({(` p(hHP((`p(hP( (`pH(hP(((p`hL>> 0((hP((5J   5`pĈJ 5(0( 5H(hP((3~~|>>A  ࠪ3`h30 (3 *(hHP( (A HhP((#` pAh` (5~}}#@@hP(((0` ph߄` (5h` A`(AH(H`(HJ OԠ`(a`P(` `(h`}~~\=c33(hh`(poފ(sp(`(}`0p` p p(hHP(( ܪ.~kk>.. ` pH(hP܈(( lڀ ` pk(hP((`) p)((` p`p(keeWAAcwr owr cow cw00 @0P0 @0&00$>~+LESRCTMXFDYQHIOBWNAe@T<<X1iGETOPTARG 92077-16646 Rev.5020 <920612.1324>/SRC_92077/R6000/LI.FTN < ACLICOMMON V GETOPTARG AA vEXEC.ENTR .CPMREIO .EXIT .SBST .SSTLIMSGSNLWRITERELSTR SPLITSTRING SPLITDELIMSTR A W A K ~~hGGAx_\ (' (! \(&&`\`(W/h^\ pY8^gYpx@fed`(W`A (W(W~gL pY Y\DY\  @Yb  [ P/@ )l::XzSCIO 92077-16646 Rev.5020 <920612.1324>/SRC_92077/R6000/LI.FTN : ACLICOMMON SCIO t.ENTR REIO.IBTE A_REGISTER**=AA pA'(A*@|::X5"ATEND 92077-16646 Rev.6000 <920612.1324>/SRC_92077/R6000/LI.FTN : ACLICOMMON KATEND  .DCOVERIFYEND GGp*( ( `!p( J hd(p(p`G a! @;<<X3'VERIFYEND 92077-16646 Rev.6000 <920612.1324>/SRC_92077/R6000/LI.FTN < ACLICOMMON zVERIFYEND   .DINPOSNFILE CC p`&p`%P(!  @##&p&(!`C b% @]==X:SETUPLINEBFR92077-16646 Rev.5020 <920612.1324>/SRC_92077/R6000/LI.FTN = ACLICOMMON USETUPLINEBFR.ENTR <<mA( `@1pf(`@1@pfpgphi< o @/MN ??XADDTOLINEBUFFER 92077-16646 Rev.5020 <920612.1324>/SRC_92077/R6000/LI.FTN ? ACLICOMMON 3ADDTOLINEBUFFER w~.DIN.CPMMOVEWORDS ~~H88p`h( `fp(`hp`@p`@pp`J(Bg(#(8`gP(6`g @@gpg @i((i(#`fpg`fp`@~~o<::p`(J`pg(Gpg(N(o`g@@gpg ii`gP(e(g`fpg`gP(l(n pg(B`(x`h(x`hddv,,`h `((`0h p@px`g(`pgi`ph`hh pg ph(d df @r鑩??XYGETBUFFEREDLINE 92077-16646 Rev.5020 <920612.1324>/SRC_92077/R6000/LI.FTN ? ACLICOMMON >GETBUFFEREDLINE j.DIN.DCOMOVEWORDS ~~N==pi((p`gp` ( i A(9`@@p`PX(-(/`fp`PW( @(`p`(@(P~--@`h0pT`@pVxUPTUV p(- W @y\==XVADDFILENAME 92077-16646 Rev.5020 <920612.1324>/SRC_92077/R6000/LI.FTN =}ADDFILENAME kIp@ ?O==X MOVEFILENBR 92077-16646 Rev.5020 <920612.1324>/SRC_92077/R6000/LI.FTN =MOVEFILENBR  .ENTR Ap`@K++XR#/LICOMMON//SRC_92077/R6000/LI.FTN + ACLICOMMON     <k   ) i3  d  4c  4d YY-AA Y    11l!!&dJ%f (%p%%)&d@ 199(( 9 . >  K @eʄ` ( i A(9`@@p`PX(-(/`fp`PW( @(`p%PR000::RTE_6:5:15:128 644 0 0 7400 5310707036 32110 %PR000::RTE_6:5:15:128 $X%PR000 +#+#+#z2\FST GGX? q6/:$MPRINT92077-16714 REV.5020 <890621.0628> A((EFGILNQTaefgilnqt,@%2CCXI3 7COMPARE_NUMBERS 92077-16724 REV.5010 <871222. 880219.0955/SRC_92077/R5010/&IS.MACC/COMPARE_NUMBERS 44 ؝.DAD.DCO.DLD.DMP.DSB.DST .ENTR .LBT .MVWPAS.1 PAS.NONCDS4AAA h,6@H P(h,6@H P((`p@ppp(0`ph,6 P('(,p`p(0ppp`(`A@(h,6@&AFFH @(``P(J(Th,6H@H @(T(a`P(X(`h,6@HH @p`(h,6H@H h h `p(2h   `((`(p` * ??A `h,A p`p(2(9(`P(IP(SP(]P(fP(oP(x((P(Op((Z(Yp(RR_++A(cp((kp(AA(tp((~p(`(p(`pR8(-0 -Bb@CCXR3 7COMPARE_STRINGS 92077-16724 REV.5010 <871222. 880219.0955/SRC_92077/R5010/&IS.MACCACOMPARE_STRINGS  Z.CBT.ENTR .LBT.SBTPAS.1 PAS.NONCDS ]]..`/(-p0p.h26@.H@(*h26H@.H@(*h26@.H@@h26p1@.H`18.80(4]5<> 7##A (A ! "(D %CKTRM::RTE_6:5:6:128 644 0 0 3000 5310707041 32472 %CKTRM::RTE_6:5:6:128 $|%CKTRM +# +#!+#! 2FST ;;XfyFk!;CHECK_STRAPS92077-16748 REV.2441 <840917.1617> P92077/&CKTRM::PCO; |"CHECK_STRAPS .ENTR EXECIFTTY LOGLU    ~~HH (pp !0(x`P(`0@p= (AD (`?(J(`0ApQ (W^_] (xp;HB (`p~3fYY(non HP26XX terminal - forms mode unavailable( 4If your terminal has them, disable straps d, g and enable straps I, T (closed/lower case is disable) `=p( pJ6MM&s1I &s0d0g1TSetting terminal straps to d g I TBlock mode must be offp( Auto LF must be off p(.(.(.(>p.((.(.(p`` //(`(` `(`E(`D(`C!"`p)p(A*  `;P.8;8.5@!<.`&<  @@8(=`((r~q(}uAp }+ G` i P @%DX_?CHECKHEAP ''DeFREES.C000::RTE_6:5:9:128 644 0 0 4400 5310707043 32766 FREES.C000::RTE_6:5:9:128 $ ̈́ FREES C000+#"+##+## # 2FST GGXIwȤ :#FREESMSGS 92077-16770 REV.6000 920814 NATIVE 1000 FREES.S000G eFREESMSGS EEnl&Nؙ9g>h陙<=,^pq ?^ Frees [-v] [+l:LU] [-g] [+t|+m] [+h|+d] [DiskLu] [DiskLu:DiE``skLu] ... -v inhibit the inverse video bar graph Rev.6000 +l:LU send the listing to the given LU -g bar graphs are not relative to the largest disk +t report d&``isk sizes in number of tracks +m report disk sizes in Megabytes -s inhibit sort, report in cartridge list order +h sort by largest hole size +d sort by disk size +q quZ``iet mode, return free space information in $return_s +qd return the disk size in $return_s +qf return the free size $return_s +qh return the largest hole size $return_s +qr rete``urn the reserved size $return_s +q%f return the percent free $return_s +q%m return the percent max $return_s DiskLu specifies a disk LU to display, it can be repeated DiskLu:``DiskLu specifies a range of disk LUs to display If no disk LU is specified, all CI volumes are listed.Error in Disk Range specificationNo CI Volumes are mounted Total Resvd. Free j%`` Max Free %Free %Maxis not a CI volume %Free = free space as Percentage of total space %Max = largest free space as Percentage of total free space Total storage on disks scanned: Megabytes <<W** blocks, free, Insufficient Memory - Size up ProgramVolume header is corrupt on lu <@6eted.Error in Disk Range specificationNo CI Volumes are mounted Total Resvd. Free j%`` Max Free %Free %Maxis not a CI volume %FORMC::RTE_6:5:149:128 644 0 0 112400 5310707045 33556 %FORMC::RTE_6:5:149:128 $͐%FORMC +#$+#%+#%J2FST ::XvYZFORMC 92077-16786 REV.6000 <920903.1422>/SRC_92077/R6000/&FORMC :%%E/r2TF_BUF 4F_PRS  F_PHY F_GLB NLS %ssxFORMC .NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN sTTVEXEC.FION FPRNT MODULE1 NLREADREL FDONE FC_SP FC_FO FC_VE FCAPS FTYPE FNEXT NAMRLDTYP F_MAP LOGLU T BITTTPTALIPR~~K229W9Vpx  ppp`Xppp` p2.2p36(23p =(23p D(~}}A8823( `+ X+ p4`U(p6`604(_](p (ap p `:p7` @8P (8 87(e u T ;p  z}y339` p4 4 Q`(p(23( `MP+((`(ppP9( (`+(((((23( 6V88 S ;p  9` p4 4 Q ` ((( QЪ(23(o`+  X+ 0(`(p(((5523(o`+ X+ 0(`(p(o  R ;p  9` p4  4  Q`Xpp  P ;p 55 9` p4 $ 4 + O ;p ` p4 3 4 : N ;p ` p4 B 4EMP9(3`(p`LPK(}};N88pSP9($ \ J ;p ` p4 d 4g9P9(Ul ` (UpuP9(w`IP({(~(`HP((}}}!44(`GP(((`( p 9(3( F  E ;p ` p4  4  D ;p ` p4  }Nb334  C ;p ` p4  4  B ;p ` p4  4  A ;p ` p4 衡 4  @ y22 ;p ` p4  4  ? ;p ` p4  4  > ;p ` p4  4  = ;p ` 99p4 $ 4 + < ;p ` p4 3 4(39118!!~tj`VLB8.ENSPFOVE$?AB1@>]>::XD/NLS/ 92077-16786 REV.6000 <920903.1422>/SRC_92077/R6000/&FORMC : AFNLS V Z ^ b f @J5 ;;X</F_BUF/ 92077-16786 rev.6000 <920903.1422>/SRC_92077/R6000/&FORMC ; Am2TF_BUF @Щ;;XW/F_PRS/ 92077-16786 rev.6000 <920903.1422>/SRC_92077/R6000/&FORMC ; AK4F_PRS @ⶢ;;X]/F_PHY/ 92077-16786 rev.6000 <920903.1422>/SRC_92077/R6000/&FORMC ; A F_PHY @t;;X=/F_GLB/ 92077-16786 rev.6000 <920903.1422>/SRC_92077/R6000/&FORMC ; A,F_GLB @wi::X=F_ERR 92077-16786 rev.6000 <920903.1422>/SRC_92077/R6000/&FORMC :CUg2TF_BUF F_GLB NLS  &F_ERR  (( FDONE FMASK FPRNT MODULE1 NLREADREL CNUMO KCVT( $8 `&88&p&PS(-(C4p9 `p@CG(R`(N(t(R`p&V(t`(](t(tli^55p%`p`%@8%8(a`p `S(p(t(t`p(Qx `(}(<( p`p`33(p`p`(Ҫp`pˡˊ`(ʡp`p133ˊ`(ݡp`p`(p`p`(l33p`p`(p`p`()!Ҫp`pˡ)ˊ`',22(<4Ҫp`pˡ<ˠ`(A(&(U EMҪp`pU`(h`^33p`ph`({sp`p{`( Ҫp`pˡˊ`~~322( Ҫp`pˡˊ` ( p`p`ޠ( p`p~;p33ˊ`(ڡp`p`Ԡ(p`p`(~~[33p`p ( p`p`(&Ҫp`pˡ&ˠ`(+~5)33((F /7p` (F`pF`(YQҪp`pˡYˊ`~~\33(ldҪp`pˡlˊ`p`(}p`p`(~~~p33p`p`(Ҫp`pˡˊ`(p`p`(~b_22p`p`ࠊ(p`p䡊`(p`p_33`Ԡ( p`p `(p`p`("(p(6 &''22.p`p6`(IAp`pI`(\Tp`p}hY33\`(ogp`po`(zp`p`(33p`p`(Ҫp`pˡˊ`(p`p`(~~S33 p`pѡءp`pҪp`pˡˡ~s44Ҫp`pˡˡp`p  `ࠊ($p`p$`&33(7/p`p7`(JBҪp`pˡJˊ`(]U٪p`p}}Y00]ˊ`(phתp`pp t wSpp`pˡ}S..ժp`p     ! "33tp`p((Q3nnPRR AB#(| r@h^TJ@6," @'xnDdZPF<28( n@hp0::XLJFTRAK 92077-16786 rev.6000 <920903.1422>/SRC_92077/R6000/&FORMC :DEK 2TF_BUF  F_PHY F_GLB NLS  dFTRAK  QQGg.DAD .DIN.DSBR .DMP.DDE.DCO.ENTR .DMOD .JDIM LDTYP DSCPR FDONE FPRNT MODULE1 NLREADREL TG2LU Q   ~~ @@A@p>@p=  `(;`(:J@ (;(`(Q` @h @h @ h@8~~~bFW??8xh@ 8h@:8 :x `(((h@J8h@8  oH`( I~<<Hp B`p88Gp`(6p<`@?p `F@ p88`(`F@ p88p`EP((`(`Dpp`Cp(qNN(2`@h@h@`( 8A8 0hp8@ 8( @>h `(2 A88  0 h11| p8@ 8(2@=h 88<(1Z? nAB@Ed[::XxgFTYPE 92077-16786 rev.6000 <920903.1422>/SRC_92077/R6000/&FORMC :C>C4F_PRS F_GLB NLS  QFTYPE  $$u.ENTR FPRNT MODULE1 NLREADREL DSCPR LDTYP $  q::A pp P+p_`f(_(E(p`ehd 0(B`(p / `(?`e(6(8` p`d(<(>` PP`A=""p(A(D(G(]Qcbp Va`p_ ]_Pq[a@::XFCAPS 92077-16786 rev.6000 <920903.1422>/SRC_92077/R6000/&FORMC :CUt 2TF_BUF F_GLB NLS  MFCAPS  22 z.ENTR .CPMFPRNT MODULE1 NLREADREL FDONE XDESC PNAME ICAPS 2  VEFOSP >>p `ʈp` @((P (# p' `P hX  hX  (O?pD`pKL>>N((U( р(Zh  0(e(S(p`Ɉp`@88Ċ(i` p ` p  {  h Vp` VpP X}}88 ((S(p`p((S8 8(̪pȠ`p} (S B AB<C RMFO@n?::XT4F_STA 92077-16786 rev.6000 <920903.1422>/SRC_92077/R6000/&FORMC :BT5F_GLB NLS  _F_STA  1.ENTR XLUEX FPRNT MODULE1 NLREADREL   ``E))A`p`2pA1x`0()`3p/.p"-`p+)+`p'-@@[ y::X4'FMASK 92077-16786 rev.6000 <920903.1422>/SRC_92077/R6000/&FORMC : TFMASK  .ENTR AA@p%@p$pp`&p#`@%hH$0p88#(`A & @1::XXSFLKLU 92077-16786 rev.6000 <920903.1422>/SRC_92077/R6000/&FORMC : AJNLS KFLKLU  ##C.ENTR FDONE FPRNT MODULE1 NLREADREL LURQ#~~_::@pL`RppxP((/ QOp%M`pJ,J/N`(H9POp>M~ m> `pJEJHN JMAB@::X(FPRNT 92077-16786 rev.6000 <920903.1422>/SRC_92077/R6000/&FORMC : A+F_GLB JFPRNT  KW.ENTR REIO ;;T `(`P(A;@xH::XL?F_MAP 92077-16786 rev.6000 <920903.1422>/SRC_92077/R6000/&FORMC : QF_MAP  o.ENTR .CPMSPUTSGETeez77@p;(p(7p:>( p9A=('9(.`< p388:((e < za @::XQRFDONE 92077-16786 rev.6000 <920903.1422>/SRC_92077/R6000/&FORMC :BT5F_GLB NLS  BFDONE  ""5EXEC.ENTR .CPMFPRNT MODULE1 NLREADREL "4ENEX/EAB/A~~p66Ap`KpH`@I((A`(`QpP(.(.%OMp`pG-G(=5NMp`pG=~-< GALJ88H(0I @ #>::XFPACK 92077-16786 rev.6000 <920903.1422>/SRC_92077/R6000/&FORMC : SFPACK  -- d.ENTR .CPM.IDLP FPRNT CPUTKHARSETDB SETSB CNUMD -))_< )Q??Q@Qpp`RȈ(f(f`p(l`R#@p`@pph(p`p`@hHpx`@@h`@p8(xYY[--! p `pp`(pP(88(`p AR(([SY%: , _ @q1::XFLIST 92077-16786 rev.6000 <920903.1422>/SRC_92077/R6000/&FORMC :BT6F_GLB NLS  ]FLIST  11 r.ENTR FPRNT CPUT KHARSETDB MODULE1 NLREADREL SETSB CNUMD 1 /, ~~$;;Ap`p` pz#z `p ) `p/4p`p`(J`p`h (J`pQ~~aak_O++}pV`pp`(kp{ bP(g g88{(_ o|`pz vz`pa|  SP@?9]::XzFNEXT 92077-16786 rev.6000 <920903.1422>/SRC_92077/R6000/&FORMC :C>F4F_PRS F_GLB NLS  SFNEXT  ,,!.ENTR REIO FPRNT MODULE1 NLREADREL FDONE NAMRF_MAP ,  ~~N66A pp`p@pmomxpx`p22p3$(23(X`wP+(*(G-(`vP(huX( 0(:`y~uu944p`tP(hsX( 0(G`yp`rpm` mh+ 0(X_ q pp  do` pm k m(Wuo &NON YEY @ZyZ::XKEFC_VE 92077-16786 rev.6000 <920903.1422>/SRC_92077/R6000/&FORMC :D? 2TF_BUF 4F_PRS F_GLB NLS  i'FC_VE  }}#1.DAD .DIN.DSB.DMP.DDE.DDI.DNG.DCO.ENTR .CPM XLUEX .DIS FPRNT MODULE1 NLREADREL CNUMD F_ERR FMASK LURQXLCRD FLKLU FDONE IFBRK FLIST FNEXT F_STA }1@~~&99A&ppp`({6%`"%(I`(FppD&(Y(IID`C%(f`!p`!pXBp ]`~~~_66p d'`p`Ap r @` (p` )p `(`(?p`p (>~U55p`p  "P(~`(pp(`(=p`p  P( ({44h((`(p( @ p<p `p (;p`p  ~~Y44P(`((( `(p(:p `p ((`((9p`p 0 3~!288P(!p`(p(B(B`(p(`@KS8p X`p _(!g7((p`j77p o rP(``((z`(p(6p `p (``(  h hh pW55`p`(`p `(` p(` @ p$$((`$p` @@p(`!p5p `p ~~*<<((6p`p`h  pA(0( `!p4p `p   (`(~~~h@@`p(+p`pAA(#(#(+`pp`p`!p;&>pp`p`@88(C`(=` @~RBBp` 'p!`p `p  p p h @"h@A"" A" p p `!p A3(}(}`-p ph @h@   @-K44(   !` S( (` p ǡ2p~~88`p `p(`Ap1((((P ((pP((0p `p (~99h@  A( `(/p(1($($`p(0.p 5`p C9BB<(Y`-p`,p`p `p  p p   p p `p h@(# h@(z(z AAx {22} !` S( (` p  +p`p}}44 `p(   (@ p` (È`p` p *p`p }399  0((#( (=(P(}( pP(()p  `p (h@   ]::AA (i`(: *1'p`p 9(YA(A(A`pE IQ&p`)rT77p Y`h(p`p `@88 (d`%p`$p`#h(x ` p  p p    p p `p p`p ~~lv33  !` S( (` p p`p~77 `p(ʡP((phJ@  88 (`(Ap(((`p))p `p (e)GG11   @@ABddvlbXND:@0ENG@7MV ::X>HFC_FO 92077-16786 rev.6000 <920903.1422>/SRC_92077/R6000/&FORMC :D?2TF_BUF 4F_PRS F_GLB NLS  i7FC_FO  rr].ENTR .CPMLURQFPRNT MODULE1 NLREADREL F_ERR XINMD FLKLU FLIST FDONE FNEXT CNUMD F_STA FPACK DSCPR LDTYP FSTAT XSWLU TG2LU XUTIL XDESC r  *688A6p'`p`'@8'8(>`p`p p`(U`S(]ZP(O(_phVDp-`"Vp,P- X,'n (`p X /FORMC: SINGLE-SIDED FLOPPY (Y/N)? _ ~~$t11xG{P(t`p+p`FpTpUpV`EpWpXpYpZp[`(`Dp\(`p\`+p`( ~~~44 C p ` p P(` (p`(` p( ʡ B p ` p JP( (~~~H%66h ( 0(  A  p ` p ((` (p( ` (p`( ` p`p ~77('('  @ p ` p$ '3 p,607$`$(L A ? p ` p~~SF??I L3O(UC>pp`7p'`p`'@(p*`(p`'@h*H(q(`'@P(h'HX) 0(`'@p(~~~66`<@@h'H`p8*8(i`@'p'8(]`(  = p ` p o`(ȡ  ; ~~~88p ` p (  : p ` p 3pp'`(p`'@p`@p%p&`9P%((~͏99`@p$`$(7`(( `7@@h`p8'8(  8 p ` p !C`(^(`(L J,442 6 p ` p: p C 5 p ` pK (^ S 4 p ` p[ ^3`Dc`33(pg n 2 p ` pv yP(g`p`(pT`pU`S~~l 55(P ((p  1 p ` p ` (p  0 p ` p ~`66 ѡ / p ` p P(`(  . p ` p (`p(`~~?66(`( `-(  , p ` p  # + p ` p+ .*P(4~~~411`)P ((8(a ? ( p ` pG `"pN  V '  p ` p^ pT(`&P ((e(~~~Ŋe11 l % p ` pt `"p{   $  p ` p pT(((  # ~?22p ` p `"p   !  p ` p  pT   p ` p ɰ44P(`((pTpp`pހ6 pU`S(P ((p   p ,,T` p  7,LLq44 .EN $   CESPAB,zpfX\RH>4*_L@P::XFC_SP 92077-16786 rev.6000 <920903.1422>/SRC_92077/R6000/&FORMC :%%E/d 2TF_BUF 4F_PRS  F_PHY F_GLB NLS % UFC_SP  f.DAD.DIN.DSB.DMP.DDE.DDIR .DNG.DCO.ENTR .CPM.JDIM .IDLP LURQFPRNT MODULE1 NLREADREL ((F_ERR FDONE FNEXT FPACK CNUMD XXSPR FLKLU FTRAK XDESC FLIST   AA77A `h(A`p`p*ª.6Ϊp`p>AР`(Kp~~L55`pS VP(A`(  ( h ((i` (p(@ p¡ptˡ|p`p ~}}88(A(  ( (h ((` (p(p`p(A`J(  h(` 'p}~~ 88` @p @ p(Ϊp`p¡¡(A h(`興p`p `ވp(~~~-55p`p p`p p`p`@88( `(`p `p ($`ߠ h(x `p *~~~Œ&==  ` S(2/P($(4 p` bp> { h@h @A A`(W0hp‚@@~c77(qpv`p} {`(pp`p e>>P(`p`(Ҋ( {(p`pЀ`(@€h @ĉӼ::0hp‚@A(@pˠ`p ` (*p pˠ`Ɠ77p ӈP(`p`(%$()) (@1p6ˠ`p=@D pp`~~I00p`@88NJ(J`(Z`p `p (b`h (x `p p p `p `p p p `p z  ~ay77`P(~(Ϊp`p¡ˆ(`P((Ϊp`p¡¡`ـP}}<<hX 0(` p Ah@(ވ((ѡp`p (J ((pp(" }DD((`p`p("h@ hA@ h@  J€h @x J€h @xp`ph(6p`p`@~~i055h88(+:` pAªIΪp`pQU `( p^e~/e77p`p¡m¡ pPˈ(^`p`(| {(p`p {[[E&&p(F` S(Pˈ (D(pϪpˠ`p {[::4!%%   AB EN  ~ t j@@ ` V L B 8:@2::XXUTIL 92084-1X682 rev.6000 <920903.1422>/SRC_92077/R6000/&FORMC : cXUTIL  %%.ENTR .CPMMEXEC XFILL XUNPK XCBLD XPRTY %~~@@@p@p`@p`pA(((.p`툊@5`@؀h`@؊pA`@@hH`@@hHp~~~4dO??`@p `@p A (\(t p ` @@ p `@؀h HpՊxq ` @ p ` @h HH` @h Hpx֡ֈ`@@~AAp `@p`(p Ph  0(p` (p׈`@p`爈@p`@؈hH88(`p`p`pա`@h&`@h"";:D@?=><0 "@T=r`p {[[E&&p(F` S(Pˈ (D(pϪp%FC000::RTE_6:5:34:128 644 0 0 21000 5310707047 32101 %FC000::RTE_6:5:34:128 $"("%FC000 +#&+#'+#'"$30FST HHXׯ | 8:$MODULE1 92077-16787 REV.6000 HR\fpz    $ . 8 B L V ` j t ~  #(;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\p)``]^_`abcdefghijklmnopqrstuvwxyz{|}~X AA)Sc֙ E_wę0>R`uoa556Mdqș 3G]u噙  M ~      + V z    $ < [        G k   55  ! S t   HuDi *`(Rə!?P'h Bd .R)VVqٙ+Gu$ /FORMC: ILLEGAL LIST LU /FORMC: MISSING PARAMETER /FORMC: ILLEGAL PARAMETER /FORMC: CS80 DISK FORMAT UTILITY. /FORMC: '?' WILL LIST TH*!``E LEGAL COMMANDS /FORMC: TASK? _ /FORMC: CS80 DISK OR TAPE LU? _ /FORMC: LEGAL COMMANDS ARE: VE(RIFY) FO(RMAT) SP(ARE) ?(LIST COMMANDS) EN(D) EX(IT) /E(XIT) AB(ORT) c`` /A(BORT) /FORMC: DEVICE DRIVER TIMED OUT. CONTACT SYSTEM MANAGER. /FORMC: REJECT ERROR !1B CHANNEL PARITY ERROR ILLEGAL OPCODE MODULE ADDRESSING ADDRESS BOUNDS PARAMETER BOUN``DS ILLEGAL PARAMETER MESSAGE SEQUENCE MESSAGE LENGTH FATAL INTERNAL ERROR /FORMC: FAULT ERROR !1B CROSS UNIT CONTROLLER FAULT UNIT FAULT DIAGNOSTIC RESULT RELEASE RcA``EQUIRED OPERATOR REQUEST DIAGNOSTIC REQUEST INTERNAL MAINTENANCE POWER FAIL RETRANSMIT FATAL INTERNAL ERROR /FORMC: ACCESS ERROR !1B ILLEGAL PARALLEL OPERATION UNINTIAL?``IZED MEDIA NO SPARES AVAILABLE NOT READY WRITE PROTECT NO DATA FOUND UNRECOVERABLE DATA OVERFLOW UNRECOVERABLE DATA END OF FILE END OF VOLUME FATAL INTERNAL ERROR /``FORMC: INFORMATION ERROR !1B REQUEST RELEASE OPERATOR REQUEST DIAGNOSTIC REQUEST INTERNAL MAINTENANCE ONE SPARE LEFT DATA OVERRUN AUTO SPARING INVOKED WARNING: The doubla``e sided 3.5" floppy just forma((tted is not useable in the integrated Micro 1000 floppy disk drive. Formatting this floppy in a Micro 1000 will provide compatibility for both external and intx``ernal floppy drives. RECOVERABLE DATA OVERFLOW MARGINAL DATA RECOVERABLE DATA MAINTENANCE TRACK OVERFLOW FATAL INTERNAL ERROR IDENTIFICATION FIELs !``D: !1B QSTAT: !2 PARAMETER FIELD P(1) THRU P(10): /FORMC: ILLEGAL CS80 DISK OR TAPE LU /FORMC: ILLEGAL CS80 DISK OR TAPE LU /FORMC: MUST USE PROGRAM NAMED "FORMC" WITH FO AND SP COMMAND``S /FORMC: INSUFFICIENT CAPABILITY /FORMC: ILLEGAL COMMAND /FORMC: READY TAPE AND RESTART /FORMC: NO RESOURCE NUMBER AVAILABLE /FORMC: UNSUCCESSFUL LU LOCK /FORMC: ABORTED /FORMC: FINISHED /FO``RMC: COMMAND EXECUTING - /FORMC: ILLEGAL RESPONSE /FORMC: UNINITIALIZED MEDIA - FORMAT TAPE /FORMC: VERIFY ENTIRE DISK LU (Y,N)? _ /FORMC: VERIFY ENTIRE TAPE (Y,N)? _ /FORMC: START TRACK NU*A``MBER? _ /FORMC: ILLEGAL TRACK NUMBER, LEGAL RANGE 0 TO !1 /FORMC: NUMBER OF DISK TRACKS? _ /FORMC: ILLEGAL NUMBER OF TRACKS /FORMC: START TAPE BLOCK NUMBER? _ /FORMC: ILLEGAL BLOCK NUMBER, LEkm``GAL RANGE 0 TO !1 /FORMC: NUMBER OF TAPE BLOCKS? _ /FORMC: ILLEGAL NUMBER OF TAPE BLOCKS /FORMC: ILLEGAL RUNSTRING PARAMETER /FORMC: ILLEGAL RUNSTRING PARAMETER /FORMC: LU!1 - BAD TRACK!2 /``FORMC: BREAK DETECTED /FORMC: DISK VERIFY COMPLETED. NO BAD TRACK(S). /FORMC: DISK VERIFY COMPLETED!1 BAD TRACKS. /FORMC: LU!1 - BAD TAPE BLOCK !2 /FORMC: LU!1 - END OF FILE DETECTED IN TA>a``PE BLOCK !2 /FORMC: BREAK DETECTED /FORMC: TAPE VERIFY COMPLETED. NO BAD BLOCK(S). /FORMC: TAPE VERIFY COMPLETED!1 BAD BLOCK(S). /FORMC: LU!1 - BAD TRACK!2 IN CACHE /FORMC: TAPE CACHE VERIFq``Y COMPLETED. NO BAD TRACK(S). /FORMC: TAPE CACHE VERIFY COMPLETED!1 BAD TRACK(S). /FORMC: INTERLEAVE FACTOR FOR OPTIMAL THROUGHPUT (Y,N)? _ /FORMC: INTERLEAVE FACTOR? _ /FORMC: ILLEGAL INTERLE!``AVE FACTOR, LEGAL RANGE 1 TO!1 /FORMC: ILLEGAL RUNSTRING PARAMETER /FORMC: ILLEGAL CS80 DISK OR TAPE LU /FORMC: DISMOUNT LU /FORMC: DISMOUNT LU'S AND RESTART /FORMC: ILLEGAL RUNSTRING PARAMETE``R /FORMC: DATA WILL BE DESTROYED ON LU /FORMC WARNING: SYSTEM WILL BE DESTROYED. NOW IS THE TIME TO REPLACE THE SYSYEM CARTRIDGE. /FORMC: ILLEGAL RUNSTRING PARAMETER /FORMC: OK TO PROCEED (^``Y,N)? _ /FORMC: DISK FORMATTING COMPLETED /FORMC: REPLACE SYSTEM CARTRIDGE TO RETURN TO SYSTEM. /FORMC: OK TO RETURN (Y,N)? _ /FORMC: FINISHED /FORMC WARNING: TAPE IS ALREADY INITIALIZED(CERTIFd A``FIED) /FORMC: DO YOU WANT TO RECERTIFY OR CONVERT SPARES(CE,SP)? _ /FORMC: JUMP SPARES WILL BE CONVERTED TO SKIP SPARES /FORMC: DATA MAY BE DESTROYED ON TAPE LU!1 /FORMC: TAPE INITIALIZATIOr ``N(CERTIFICATION) MAY TAKE UPTO AN HOUR /FORMC: DATA WILL BE DESTROYED ON TAPE LU!1 /FORMC: TAPE INITIALIZATION(CERTIFICATION) MAY TAKE UPTO AN HOUR /FORMC: DATA WILL BE DESTROYED ON TAPE LU!1  ``/FORMC: OK TO PROCEED (Y,N)? _ /FORMC: TAPE FORMATTING COMPLETED /FORMC: NO CACHE DEFINED FOR LU!1 /FORMC: TRACK TO BE SPARED? _ /FORMC: ILLEGAL TRACK NUMBER, LEGAL RANGE 0 TO !1 /FORMC: ILLEG5# a``AL TRACK NUMBER, LEGAL RANGE 0 TO 3 /FORMC: ILLEGAL RUNSTRING PARAMETER /FORMC: ILLEGAL RUNSTRING PARAMETER /FORMC: DATA MAY BE DESTROYED ON LU /FORMC: OK TO PROCEED (Y,N)? _ /FORMC: ILLEGAL  ``RUNSTRING PARAMETER /FORMC: DATA MAY BE DESTROYED ON LU /FORMC: OK TO PROCEED (Y,N)? _ /FORMC: ILLEGAL RUNSTRING PARAMETER /FORMC: NO BAD BLOCKS - SPARING NOT PERFORMED /FORMC: NO SPARES AVAI8 !``LABLE /FORMC: NO BAD BLOCKS - SPARING NOT PERFORMED /FORMC: DATA MAY BE DESTROYED ON LU!1 TRACK /FORMC: OK TO PROCEED (Y,N)? _ /FORMC: ILLEGAL RUNSTRING PARAMETER /FORMC: DISK SPARING COMPLEG TED !1B !2B !3B !4B !5B@y9ON LU /FORMC: OK TO PROCEED (Y,N)? _ /FORMC: ILLEGAL RUNSTRING PARAMETER /FORMC: NO BAD BLOCKS - SPARING NOT PERFORMED /FORMC: NO SPARES AVAI8 !``SPORT.REL::RTE_6:5:7:128 644 0 0 3400 5310707051 33177 SPORT.REL::RTE_6:5:7:128 $LSPORT REL +#(+#)+#) 3TFST EEX"cSPORT 92077-16963 REV.5020 890802 Serial Port Status display/SRC_92077/R5020/SPORT.FTNEssSSPORT .NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN s@@  EXEC.CPM.FION .IDLP HPZPRINTPORTHPCRTMENU HPZPARSEHPZDEFIBUFGETRUNSTRINGHPZDEFOBUF@J$S@@Y_>?(~g>?j((p`)p<`1p=s((w`)pQz((~`)pP`<(p<`=(`ASK.FTN::SRC_920776rr+ASK .NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN r?? /EXECREIO.FION .SBST .SCO.SST.INDX .NFEX .MBT PRTN CASEFOLD ABREG GETST ?~~6JJ\cANZp`(`ApFFNFNAPF`p`((4`h`HpFxGAFNFAGFX``@p`pFA`\AF\dc `p~ss|@@`('hO`S N N Pp`(pHFND FV(((88H( `bp('AFNAPF@^p`ApF0a`F 3(CsUsage : ASK `question/prompt` !!@4ALTA>`\_p CF]!22ؗI _? "J",2@BVLI.R000::RTE_6:5:17:128 644 0 0 10400 5310707055 32323 LI.R000::RTE_6:5:17:128 $dLI R000+#,+#-+#-+3fFST ((GGX! .:#LIMSGS92077-16977 REV.6000 <910306.1304> LI.S000:92077 G tLIMSGS >>nl $d!:MT2bw.5DPbu$f}/BcsZYG>NN\50  X s  # M y   . usage: LI [options] filemaskenter "? li" for more helpLI: Unknown option "!1"LI: Insufficient free memory foru`` record buffer; size LI upLI: Warning, record buffer truncated to !1 bytesFile: !1, list? [Y] _File: !1Enter " " or "Y" to list; "N" to skip; "A" or "Q" to abort;"S" to stop asking; "#" to swi``tch files; "R" to remove file.More..._&dJ Unknown command "!1"; use "?" for help &d@End..._More [!1~%]..._Lines: !1-!2Lines: !1-!2 of !3&dJ Line !1 &d@Mark for line !1: _&dJ Invalid marL``k "!1"; must be "A".."Z" &d@Mark: _&dJ Mark "!1" is undefined &d@Pattern: [!1] _&dJ Pattern not found &d@Record #!1Option: _-!1: [!2] _&dJ Line buffering limit exceeded; current lowest l``ine is !1 &d@&dJ File is empty &d@&dJ Illegal regular expression syntax &d@&dJ Mark is before current line &d@&dJ Pattern is too complicated for me &d@Break detected&dJPurge !1?&d@ 't ``[N] _File to move to: _&dJ !1 purged &d@&dJ missing extents skipped &d@New file name: _Schedule error !1&dJ Pattern !1-- &d@--- Commands (&dDn&d@ is an optional preceding number, as ihl``n "5+") ---&dDspace&d@ or l List next page or next &dDn&d@ lines&dDreturn&d@ List rest of file or goto line &dDn&d@a or q Abort list; "a" moves to next file, "q" quits all a``files+ List next line or skip next &dDn&d@ lines- Skip backwards 1 line or &dDn&d@ lines from window topb Skip backwards 1 page or &dDn&d@ pages from windowX9,`` topg or . Goto line &dDn&d@; "g" lists a page, "." lists 1 line$ Goto EOF~% Goto a line that is &dDn&d@ percent through the filep Set page size to &dDnN``&d@ if given and list a pagef&dDrex&d@ Find regular expression &dDrex&d@ from line &dDn&d@`&dDrex&d@ Search backwards for regular expression &dDrex&d@ from line &dDnA``&d@k&dDm&d@ Mark top line or line &dDn&d@ with character "&dDm&d@" (A..Z):&dDm&d@ Goto line marked with character "&dDm&d@", list &dDn&d@ linesu&dDm&d@ L`` List until line marked with "&dDm&d@", no more than &dDn&d@ liness / e Set starting / ending lines at the current windowo&dDc&d@ Toggle runstring option &dDc&d@ setting\``Enter "x" for more commands#[+|-]&dDf&d@ Move to file #&dDf&d@, or forward/backward &dDf&d@ files if +/- given#?[&dDf&d@] Show files masked around current file, or starting aL ``t &dDf&d@= Display filename, line numbersn&dDfl&d@ List filename &dDfl&d@@&dDrex&d@ Show all occurences of pattern &dDrex&d@ from line &dDn&d@r R==l++emove (purge) the current filez Suspend LI (resume with system "GO" command)=@-]files if +/- given#?[&dDf&d@] Show files masked around current file, or starting aL ``t &dDf&d@= DisplayMERGE.R000::RTE_6:5:4:128 644 0 0 2000 5310707056 33205 MERGE.R000::RTE_6:5:4:128 $xMERGE R000+#-+#.+#.3zFST JJX+;9:#MERGEMSGS 92077-16980 REV.5010 <880427.1709> MERGE.S000:92077J kMERGEMSGS !SSnl 0]y_iMerge must have free memory; 8K is suggested.Size up Merge and run again.Merge runs faster with more memory.Destinatio!S``n file: _[!1 records]Destination filename must be given[failed]Merge: doneMerge file: _Merge: Index records not copied.File concatenation was successful up to but not including the lastfile reMMj88ad.Destination file exists, ok to overlay? [Y] _Merge: break flag detectedMerge: unknown optionMerging !1 ... _M@w7mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmSCOM.REL::RTE_6:5:146:128 644 0 0 111000 5310707060 34512 SCOM.REL::RTE_6:5:146:128 $|SCOM REL +#0+#0+#0H3FST ::XGZSCOM92077-16983 Rev.6000 <910501.0935>/SRC_92077/R6000/SCOM.FTN :BqH FSCOMMON ,CACHECOMMON rr@bSCOM.NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN rI".DMP+EXEC .CPM.FION .SBST .SCO.SST.LBT.NFEX .MBT.CBTTERMINATE *PUTNLSMSG %PUTLN &INTTODECIMALPUTNLSMSG1)DIFF(BINDIFF 'PUTNLSMSG3OPTNBRTOSTR TRIMLEN PUTNLSMSG2#TIMENOW ||$DAYTIME DECIMALTOINTRCPAR FAIL!VMAST REPORTFMPERRORFMPRECORDLENFMPOPEN FMPBUILDPATHBLANKSTRING FMPPARSEPATHFMPSETIOOPTIONS FMPIOOPTIONSFMPAPPEND FMPDEVICE ADDRESSOF GETNLSMSG |NLOPENSYSCATLOGLU E.SCOM.C             ~~ ??*ppJp`(  6+++ EDp`Cp `Cp  ݨp `p p p @$ ((~~~#)<<`p DHHhP4(;(A`Fphp( hP3(F(L`FphJp( `h&(T(W(W`Fp( `h$A(_(b(b`Fp( `h"~e;;(j(m(m`Fp( A`h (u(x(x`Fp( `h(((`Fp( `hA(((`Fp( `h(((`Fp( A`h((~~df99(`Fp( A`h(((( `h(((`Fp( A`h(((Ŋ`Fp`Fp( `h((Ј(`Fp( A`h(((ۀ`F~"99p( `h A(㈊((`Fp( `h (((`Fp( A`h(((`Fp( `h(((`Fp(  +B(`@p(!@IIpՀ`((u&١*8ӈHphP2(0(7`FpAH(HhP1(<(C`FpA(Hh`T`(\@[GG(}_(}h`A i(qh`}A`(H(`(J8p`/P(}}f@@8p`(8ԡ(`(8š`؈00p͡(pJ`A(}\@@p`(` X p`Pp`0(`Fp`P(( p؀`((+`Ph>X 0(+`~~"FF((p`(+`Fp`p D1pՀ`(uADp(K0(fR(Zhބ`fA~~~ h@@`(qJx݈p`(PhX 0(`(`Fp((`Ph>X 0(`p`(`Fp~ <<`p Epӈ`/p`@)@'hӀH(H'(`ӈ@)p`@(p<(88(`p`(`p`p`==p`(`Fp`Fp p DJ`00( `( `Fp>p`(`8p(#p` h 0~~!::(u'p`(.`Ap(~`(p`Ap7p`@P(<(=(o`(ED(o`(I(o`@pPpԈ`@P(U(V(o`(^]~[<<(o`(b(o`A@p (m(m`֨p(o`p(~tp` h 0(u ,(( `(`p (`p`@@~~F??p!`-P(( 8hӂ@"+=pՀ`(p`(u`(#$`(?%~ FF:(>ѡA=pӈ`.p`@'( pA A88(&&';`ϗ;;0("(!($)$`(4`(0%/:(4%47Ǡ`(;*;9`(f`(L&FK(f`(T*S(f P(Xhh(W44(]*\8(f&af`(n%n76u+++`5pӈ`-p*}+88(y+++++h?OO F1F2frosx rosx@ 1 crw cow owr cwICITIBBBBRTCERETNFNTNHAONNBOF2 F1TB   "  @0  @0(?Y X (0L @0: @X @ ($ (@8 x~~CC| . 0 4 : > @ B F J N P R T V X Z \ ^ ` b d f h j l n p~--)~+CD  * ) -@Y-::X/SCOMMON/ 92077-16983 Rev.5020 830121 /SRC_92077/R6000/SCOM.FTN : A* FSCOMMON        $ ^  _  V c b d X [ a  @L<<X-/CACHECOMMON/ 92077-16983 Rev.5020 830121 /SRC_92077/R6000/SCOM.FTN < A(CACHECOMMON @7!U77XADIFF92077-16983 Rev.5020 810319 /SRC_92077/R6000/SCOM.FTN 7Bq4 FSCOMMON CACHECOMMON  m6 DIFF }}.DIN.DSB.DDE.DNG.DCO.CPM.DISPUTLN OUT RLSRC GETRC STATS IFBRK EDITINSERTEOF EDITKILLPUTNLSMSG EDITREPLACE SETCURRENTREC REMATCH MATCH FAIL ALOC DALOC }  ~~$ KK p p7 7`(44/?@ B37 @ P4  U (][:`(]e i@~~~3kAA(t4 :0(| | 4 `p#`#( ( > Ո  : ( A#4~BMM#3(B` p   (وA#A%:#%`(':(`@p`(v(' LLAD('- 4  3(! (z!A-( `(u@44 9 (F`@p@`(v9EKK(uI AD(u+[:a3(oj (Ao +(W(`;@p(](A(3PP(33%%AD(ȉ)4 4  4 (4A77)(AA(,(,39@3ZMM%%@(,':`(A7( ( @((: : (&&4A77'(K-GG7(?#?#@ `(M(\J(R(\V24Z:= (4a4  f pk:pp njtHH`(5`(5`(33` p`( 5( (š4   4  ( #:# }}-ZDD 4 (`@p5 4 `(39` p(`(5(: : (#:}BBA###7@ :( :3735`(!!<:([BR/setsof er @)}H=88XW /MATCH 92077-16983 Rev.5020 810319 /SRC_92077/R6000/SCOM.FTN 8Bq' FSCOMMON  CACHECOMMON  CMATCH   )).ENTR .CPM.JRES .DLDADDRESSOF .LBPR .CMW.LBT)>>px ` #p ` p ` p ` p`(N` P (8`;وp` p` @p((M(6` P CuQ;;(Xp` p` @p((k(mpxpp`6p`@@ 6p`6@ p` 6@ p(6p` 6p`+"<<@ p`@ p`P(`P(㡠`P(`P(`P(`(p6@p ` 6@p A '(p &(@@p '(p &((`P(`P(`p` p ` p (`(`)Ph)X (`-p(`%AAPh%X (`,p((`@p`@p`@ p `@ p ` h 0(`+Ph+X 0(G(p]IFF`*p#A 'p &0p '0p &0( 88#(K`)Ph)X 0(~~4>AAp`(p"`P(`P( 'Ap &A0p 'A0p &0(88"(`P(`P(~L==`%Ph%X 0(((6`Ph$X p`p`0(`P(((6`P(`Ph$X$$WO  p`p`0((6`.p(6$ ` o,$ >90.< @Qo99X~REMATCH 92077-16983 Rev.5020 810319 /SRC_92077/R6000/SCOM.FTN 9 >REMATCH   00$.DAD.DIN.ENTR IGNOREBLANKLNSMATCH SETCURRENTREC EOF GETRC 0~~{ JJA p p (`p`("(sy@pwp`w(spxA v?{vA vK|vP(Y~II=S##U(((s`\(_(Wbe(i(Wm(088x(0`}p(WIfBy@<<Xro!IGNOREBLANKLNS92077-16983 Rev.5020 810319 /SRC_92077/R6000/SCOM.FTN <Bq FSCOMMON CACHECOMMON  IGNOREBLANKLNS  ~.ENTR BLANK >>Яp`(`(( (( ` p( > a  @C88X:<LBLANK 92077-16983 Rev.5020 810319 /SRC_92077/R6000/SCOM.FTN 8Bq& FSCOMMON CACHECOMMON  JBLANK   1m.ENTR .JRES .DLD.LBPR .LBT~~`>>AAFDDx`p`p`((A`6p`@pp`PhJX (6``P(A`JP(6`Kp(4~gF`p @u88XKY _GETRC 92077-16983 Rev.5020 810319 /SRC_92077/R6000/SCOM.FTN 8Bq8 FSCOMMON CACHECOMMON  PGETRC   JJs?.DAD .DIN .DSB .DDE .DNG.DCO.ENTR .JRES .DIS DOUBLEEMALOAD FAILDOUBLEEMASTOREREADRECORDALOCJi ~~, GG `(,p `\pN` @@UpF F(&&H8 8N(p @@QA HHSpF(@F(G(Q @@U@V~-TKKF\F AHFeFZ @@UA( @@R0( @@RpFF @@TpFF @@QpFF @@SpFF( @@TpFHFdNNFF @@TpFF @@SD  (^ @@SpFFVA   @@R @@Q @@P @@O(RRpFF( `(  ]Z(/(/X D  (/ALHF 'FAL(VA  @@PpFF @`?@OpFF( \H` ##3Owp#@[88XTRLSRC 92077-16983 Rev.5020 810319 /SRC_92077/R6000/SCOM.FTN 8Bq*  FSCOMMON CACHECOMMON  LRLSRC  ''.DIN.DCO.ENTR .JRES DALOC DOUBLEEMALOAD FAIL'_II@@AHHp(0(!@@A(--@@@@(>(o(o@@HHx(N(Nww?JKCCN@@p@@p@@p@@p(@@pA{@@HHp( w0 j Ȫ   @ 77X;ALOC92077-16983 Rev.5020 810319 /SRC_92077/R6000/SCOM.FTN 7Bq" FSCOMMON CACHECOMMON  ALOC  d|.DAD.DCO.ENTR .JRES DOUBLEEMALOAD ii33A `:p0($hJ@J((p(#hJ@ (26404`if6`p@A88X>DALOC 92077-16983 Rev.5020 810319 /SRC_92077/R6000/SCOM.FTN 8Bq" FSCOMMON CACHECOMMON  :DALOC  .ENTR .JRES DOUBLEEMASTORE&&/AA & `P @|::X:READRECORD92077-16983 Rev.5020 810828 /SRC_92077/R6000/SCOM.FTN :Bq( FSCOMMON  CACHECOMMON ]READRECORD66 w.DIN.DCO.ENTR .CPM.JRES REPORTFMPERRORFMPREAD .LBPR FMPSETPOSITION6>eEEA@@(/`@p`P(`(@@pAx`p`@h pxGqHAA`P(L(U@P0(`(@@HHp`(x`h   @@p`hp `  ((pҊ`h`q( (| j  C@G<<XQREPORTFMPERROR92077-16983 Rev.5020 830121 /SRC_92077/R6000/SCOM.FTN <Bq& FSCOMMON CACHECOMMON REPORTFMPERROR sr.ENTR TERMINATE PUTNLSMSG2FMPERRORFAIL mm1<<(  P(&&O*H`Np`M(0(2p&@GpF<LHECKJJ@`h( m@0::X(FAIL92077-16983 Rev.5020 <910501.0935>/SRC_92077/R6000/SCOM.FTN :Bq& FSCOMMON CACHECOMMON  rFAIL %%.ENTR TERMINATE INTTODECIMALPUTNLSMSG1PUTNLSMSG %;; A((  $'("$&"%$$$;C" > @.NM77XEOF 92077-16983 Rev.5020 810319 /SRC_92077/R6000/SCOM.FTN 7Bq  FSCOMMON CACHECOMMON  EOF   {o.ENTR .JMAP ZAAPp`d`0@?88XWSTATS 92077-16983 Rev.5020 830826 /SRC_92077/R6000/SCOM.FTN 8Bq.  FSCOMMON  CACHECOMMON  kSTATS  77 t.DCO.ENTR .EXIT .SST.MBT SEEIFABORTPUTNLSMSG1DINTTODECIMAL PUTNLSMSG27}}HHA(!H(*%Ah`(2A(;6h`?h`A(H(TNS(Z}TT+Y--(A(m(ml(A(}(}w|( T$$  Eof    $@<[K==Xz>SEEIFABORT92077-16983 Rev.5020 <910501.0935>/SRC_92077/R6000/SCOM.FTN =Bq  FSCOMMON CACHECOMMON USEEIFABORTk3REIOTERMINATE PUTLN PUTNLSMSG gg33p` (p  :=('7<p`;@p4A849h(`6P5('(+:92777(g ]5 A @v677XOUT 92077-16983 Rev.5020 810826 /SRC_92077/R6000/SCOM.FTN 7Bq% FSCOMMON  CACHECOMMON   OUT  11e.DAD.DCO.ENTR PUTRECORD PUTNLSMSG INTTODECIMAL PUTNLSMSG1FAIL1  ~~،CC`( ((hA@(#(%(%(xP(`(4(`(C`0(@@p(P~~~/G<<hX p`0(`p`(y`(bbڈ0(lkـ(wӉw׈`p`(`p(~FFz (p(`( P(`P((`0(p(҉҉@@pʡȀ ( z !  @2::X~PUTRECORD 92077-16983 Rev.5020 810319 /SRC_92077/R6000/SCOM.FTN :Bq* FSCOMMON  CACHECOMMON _PUTRECORD << .DCO.ENTR .CPM.JRES .EXIT .SST .MBT PUTLN MOVEWORDS DINTTODECIMAL .LBPR <~~/VHHAAkccx`A(XvxAz('('"pAhu`q rz(6(61phs`q r`p`}@ v(B(B`|p`h    @pc~;;Jxd Pcd`}@pc Wc(a`hpcxd acd;%%5,k` @ @@  %@_!}==XNEDITKILL 92077-16983 Rev.5020 <910501.0935>/SRC_92077/R6000/SCOM.FTN =Bq+ FSCOMMON CACHECOMMON  EDITKILL DD v.DAD .DIN .DSB .D((SBR .DCO.ENTR .EXIT .SBST .SST .SSTC TRIMLEN PUTLN DINTTODECIMAL D}}DLL $@((4(4p D@ $ !(bA(U=p @ $O}xxKNDD @  J   $ $  !ep #A(m({({` #Ap A(` #pA Apx((R+k/k , $ ,0 8: <>(@G0e==XvEDITINSERT92077-16983 Rev.5020 <910501.0935>/SRC_92077/R6000/SCOM.FTN =Bq* FSCOMMON  CACHECOMMON `EDITINSERT>> +t.DAD .DIN.DCO.ENTR .EXIT .SBST .SST PUTLN COPYEDITTEXTTRIMLEN DINTTODECIMAL >FFjp@p #(!` !(jnH`up #r !` # p #(N $ ! (91hJjh8jp #` #Ap] ]j]jA]l` #33y Hp #  ! Rt V  # $@  $3""h:ei $| @"@>>XSEDITREPLACE 92077-16983 Rev.5020 <910501.0935>/SRC_92077/R6000/SCOM.FTN >Bq( FSCOMMON  CACHECOMMON EDITREPLACE :: .DAD.DCO.ENTR .EXIT .SBST .SST PUTLN COPYEDITTEXTTRIMLEN DINTTODECIMAL :nnX>> $@LP !( JLJJ"LAp@ @L@LA@N1Lp # 6R : #  !nH r  0 @]|??XCOPYEDITTEXT 92077-16983 Rev.5020 <910501.0935>/SRC_92077/R6000/SCOM.FTN ?Bq) FSCOMMON  CACHECOMMON nCOPYEDITTEXT.. G.ENTR .CPM.JRES .IDLP .DLDADDRESSOF .LBPR .SBT.LBT.~DDx 6@ #p`6pph (Z`PhX 0hX 0hX 0(N`p'J;; ` #p #`p` # p #`p`p`Aph J(p  #(m(mp`PhX 0(`p` #.. p #`p ` #p #88(d(l. m` \|uU@"<<X( BINDIFF 92077-16983 Rev.5020 <910501.0935>/SRC_92077/R6000/SCOM.FTN <Bq2 FSCOMMON CACHECOMMON  BINDIFF  ||K.DIN.DCO.CPM.JMAP .EXIT .SST.IDLP PUTNLSMSG2INTTODECIMAL DINTTODECIMAL PUTLN GETRC RLSRC EOF PUTNLSMSG LISTBINBUFFERS PUTNLSMSG1MATCH COPYCOMPILETIMESSETCURRENTREC |BINSTATSIFBRK CDDpp(# ( (.3(8 `(>>B( I MA    `~~ S>>(Z Y(_ _A p p ` p A (r(r` p Aph (p }`@p8 (y` p`J(((( ~JJ(`p(p(Ј@(((  CC$$  J    J  `((` p(C ` &&/    t(L54  32&@'@@XI COPYCOMPILETIMES92077-16983 Rev.5020 <910501.0935>/SRC_92077/R6000/SCOM.FTN @Bq$ FSCOMMON CACHECOMMON $COPYCOMPILETIMESe!.ENTR .CPM.JRES MOVEWORDS .LBPR ~~F<<AA~||x`p`@p`P( `P #($(`P(((g #(/(/(h(x`p`@(X(=(`@~}}A88P(E(`@h`@p|Q|`@p|Y|`@@hHHp|x}f|}(z`PA(k(z #(r(r(`@p|zۀ|} "^y( ~jp@4@@KEj??X'9>LISTBINBUFFERS92077-16983 Rev.5020 <910501.0935>/SRC_92077/R6000/SCOM.FTN ?Bq7  FSCOMMON CACHECOMMON LISTBINBUFFERSggڮ.ENTR .CPM.JRES .EXIT .SBST .SCO.SST.SSTC .LBT.SBT.MBTPUTLN INTTODECIMALR TRIMLEN INTTOOCTAL .DLD ADDRESSOF .LBPR .SBT.LBTg0 OO D92"0A8"A.&/h`A92"A08".A x @ #p`  x`p  (](]`}}\@@p p` (c(  <(j(j`/SRC_92077/R6000/SCOM.FTN <Bq" FSCOMMON CACHECOMMON  BINSTATS ''mu.ENTR SEEIFABORTINTTODECIMALDINTTODECIMAL PUTNLSMSG2'@@(#A`( `.p( `-p*(,*(@( J >@5T>>X\OPTNBRTOSTR 92077-16983 Rev.5020 <910501.0935>/SRC_92077/R6000/SCOM.FTN >Bq! FSCOMMON CACHECOMMON WOPTNBRTOSTR  .ENTR .LBT.SBT.MBTf1f2boetertcbrbbtbibdxcxiticnhnnnt{{ˁ::xWp`[(!(&`(&`Zp`@@UpThW`TS`YP(3(>`W@OpP`hRhRhP(L`XP(B(L`W@OpP`hRHHhRhPH{xO  @88X^"+PUTLN 92077-16983 Rev.5020 810319 /SRC_92077/R6000/SCOM.FTN 8Bq# FSCOMMON CACHECOMMON  NPUTLN  ((.ENTR TERMINATE REPORTFMPERRORFMPPAGEDWRITE FMPSETEOF (RR"''( (& (&`(*(&&)))R ) @I)g::XUPUTNLSMSG392077-16983 Rev.5020 870701 /SRC_92077/R6000/SCOM.FTN :Bq% FSCOMMON  CACHECOMMON //PUTNLSMSG3FPUTNLSMSG2B&PUTNLSMSG185PUTNLSMSG 1/--/.ENTR REIOPUTLN GETNLSMSG GETNLSMSG1GETNLSMSG2GETNLSMSG3-}}&DDA?E(KA`p`p`p`p`p?E(U#`&p`#p`$p`%p?(^A3`5p`3p`4p(f}~((~D==?ESp(l\p(ldp(lkph p`p`0(`p@~22-h 0(2e@cs3::XFGETNLSMSG392077-16983 Rev.5020 870701 /SRC_92077/R6000/SCOM.FTN :Bq! FSCOMMON CACHECOMMON //\ GETNLSMSG3O GETNLSMSG2M 2GETNLSMSG1C DGETNLSMSG < /$EXEC.ENTR NLREADCATSTR~~KDDPV (\A`p `p`p`p `p `p PV(iA.`2p `.p`/p`0p `1p P(uAA`Dp `Ap~yyKAA`Bp`Cp ( P Vg p(s p(~ p( p`(yTNls error!))[A`p`  )@+Jf@@X;/DOUBLEEMASTORE 92077-16983 Rev.5020 <910501.0935>/SRC_92077/R6000/SCOM.FTN @DOUBLEEMASTORE r.ENTR .LBPR x@w@@X'DOUBLEEMALOAD 92077-16983 Rev.5020 <910501.0935>/SRC_92077/R6000/SCOM.FTN @`DOUBLEEMALOAD   r.ENTR .LBPR " AA@2@@X[ 3SETCURRENTREC 92077-16983 Rev.5020 <910501.0935>/SRC_92077/R6000/SCOM.FTN @Bq$ FSCOMMON CACHECOMMON gSETCURRENTREC e!.ENTR .CPM.JRES MOVEWORDS .LBPR XX++AA.,,x`p # #2((`2p #` #(` h #    @p,x-*,-(X.`p@1P::X-TERMINATE 92077-16983 Rev.5020 870701 /SRC_92077/R6000/SCOM.FTN :Bq" FSCOMMON CACHECOMMON X TERMINATE 3EXEC.ENTR PRTNFMPCLOSEQQ|+''Appp p p'*, Q@ f?&p`  )@+Jf@@X;/DOUBLEEMASTORE 92077-16983 Rev.5020 <910501.0935>/SRC_92077/R6000/SCOM.FTN @DOUBLEEMASTORE rSCOM.C000::RTE_6:1:8:128 644 0 0 4000 5310707062 32226 SCOM.C000::RTE_6:1:8:128 $SCOM C000+#1+#2+#24FST '92077-16985 REV.5010' Gencat Mon, Feb 29, 1988, 2:51 PM SCOM.S000  2 The files are identical.!1 differences were found.1 difference was found.* !1 differences found.Scom: comparison performed !1 file1 is !1 file2 is !1. options: !1; rematchlns: !2; maxchars: !3& * Warning: records have  been truncated@* Maximum record size is too large; cannot be greater than 1024.* Internal error !1 detected* Unknown option "!1"o* !1 !2.* Options '!1' and '!2' cannot appear together* Mismatch limit reached8Files presently match at file1 line !1 and file2 line !22!1 subsequent matching lines in each file compared;Files presently mismatch at file1 line !1 and file2 line !2!9!1 subsequent lines compared in each file without rematcht@!1 lines in file1 compared against rest of file2 without rematch@!1 lines in file2 compared against rest of file1 without rematch1At record !1; !2 mismatching records found so far /At block !1; !2 mismatching blocks found so farl$'a' to abort, to continue _More...nO--------------#---------------- file!1 only ----------------------------------1N-------------------------------------------------------------------------------- beginning of file --f-- end of file --a+(* Scom: delta Edit transfer file created !1-* converts !1 to !2- Record !11Block !1file!1 is longer by !2 records.Nfile!1 is longer by !2 blocks.OScom file1 file2 [[+|~~]listfile] [options] [rematchlns] [maxchars] [difflimit]ienter '? scom' for more helpransfer file created !1-* converLI_VMA.REL::RTE_6:5:22:128 644 0 0 13000 5310707064 33702 LI_VMA.REL::RTE_6:5:22:128 $LI_VMA REL +#3+#4+#4 E4FST <<Xkb! 6VMAON 92077-16986 Rev.6000 <910307.0656>/SRC_92077/R6000/LI_VMA.MAC <@.Mc<<XTL! 6MAP31 92077-16986 Rev.6000 <910307.0656>/SRC_92077/R6000/LI_VMA.MAC < MAP31 .DLD.ENTR .PMAP $$AAxJ``@|$@j*>>XHALLOCVMA92077-1X997 Rev.6000 <921027.1636>/SRC_92077/R6000/LI_VMALIB.FTN> ACLICOMMON ALLOCVMA  .DAD.DIN.DCO.ENTR vvfr>>A($@F@?@AA?C ($($HJEJJ@J(1(1p` @`Gp(/vnGC?@BBXJADDTOLINEBUFFER 92077-1X997 Rev.6000 <921027.1636>/SRC_92077/R6000/LI_VMALIB.FTNB ACLICOMMON 3ADDTOLINEBUFFER $$.CPM.LBPR DBLSTOREMOVEWORDS MAP31 ALLOCVMA$~~;;p`B(x`@p`p((`p`p@`7@(I(I((.`pB(x`8(;48p2`2p};}8~~~-?44Bp2`2`p7(ML8p2`2@7h`(U(c`0h2H7 p}@px~c}~`7@p7`@2p}m}`:(x8~s :ix2~A @BBXPGETBUFFEREDLINE 92077-1X997 Rev.6000 <921027.1636>/SRC_92077/R6000/LI_VMALIB.FTNB ACLICOMMON >GETBUFFEREDLINE $$.DIN.DSB.DCO.LBPR MOVEWORDS .DLDMAP31 $~~a77pi( ( (`>(.<(p@(('%>p2([ J@(.(.(6:>@`>(Z~~~:88<>p2 @<`@2p@`2p@([([>(6(`@2p2 J/SRC_92077/R6000/LI_VMALIB.FTN@ ACLICOMMON USETUPLINEBFR.ENTR << vA : 8`p7 >pB i<@ >>X DBLSTORE92077-1X997 Rev.5020 <921027.1636>/SRC_92077/R6000/LI_VMALIB.FTN> DBLSTORE .ENTR  @[kz+@@X1q@ADDFILENAME 92077-1X997 Rev.5020 <921027.1636>/SRC_92077/R6000/LI_VMALIB.FTN@ ACLICOMMON }ADDFILENAME bK.LBPR MOVEWORDS ALLOCVMAyyt77p ?;(7x2`2`=@2p9Հ9>`(&(4x2`2p909= ;x2yE; "@Q@@XnE!MOVEFILENBR 92077-1X997 Rev.5020 <921027.1636>/SRC_92077/R6000/LI_VM((ALIB.FTN@ ACLICOMMON MOVEFILENBR  pp .DAD.DIN .DSB.DNG .DCOEXEC.ENTR REIO.EXIT .SBST .SST .LBT.SBT.DIS.MBT DECIMALTODINT GETFILENAME TRIMLEN DINTTODECIMAL LIMSGSNLWRITERELSTR p~~/CCAp0((A#px`p D H hH P(7(T ;`(D  ~LJ<< (S(SA  ((h P(Y(z ]`(f A  o(xu(x((h P(( `CLL(J A ((A A D((׈ (((`hH(`hJh`A  pLL$$A(((  `(񈀀 (`` p(L;;## w     @  >?+-7;@֯o@Թӹ%I * * This is the loader command file for FREES using the * relocatable catalog for native 1000.* * li,$fmp6 For RTE-6/VM, $FMP6 library is required. IF A PC 0 0 EBsz +9 re frees.relre frees.c000 en#FSCON::RTE_6:3:1:28 644 0 0 400 5310707067 32031 #FSCON::RTE_6:3:1:28 $4#FSCON +#6+#7+#7w 4:FST * #FSCON 92077-17014 REV.5000 <860909.1235> * * FSCON must be sized up for internal buffers.* * li,$fmp6 For RTE-6/VM, library $FMP6 is required.IF,A,PC,31,31 EBSZ,32 * RE,%FSCON * END MERGE.LOD::RTE_6:3:2:39 644 0 0 1000 5310707071 33035 MERGE.LOD::RTE_6:3:2:39 $8'MERGE LOD +#8+#9+#94>FST * MERGE.LOD 92077-17023 Rev.5010 <880331.1331> sz 27  * '* Uncomment the first or second line below if the option to verify overlaying '* existing files should be ON or OFF by default, respectively.*  * rm merge.rel:92077 VerifyDefOn  rm merge.rel:92077 VerifyDefOff if a pc 10 10  rm merge.rel:92077 Merge se merge.rel:92077 re merge.r000:92077 en#LIF::RTE_6:3:1:22 644 0 0 400 5310707072 31264 #LIF::RTE_6:3:1:22 $<#LIF +#:+#:+#:24BFST * #LIF 92077-17033 REV.5000 <860909.1236> IF,A,PC,25,25 EBSZ,32 RE,%LIF EN#FORMC::RTE_6:3:2:30 644 0 0 1000 5310707074 32251 #FORMC::RTE_6:3:2:30 $@#FORMC +#;+#<+#<4FFST * #FORMC 92077-17034 REV.5000 <860909.1238> * * This is a loader command file of formc with relocating * formc binary relocatable catalog for NATIVE/1000.* IF,A,PC,31,31 eb if a li $dklib:92077 * * For RTE-6/VM, Use library $dsclb and $fmp6 in addition to * library $dtclb. if 6 li,$dsclbif 6 li,$fmp6 * re,%formc re,%fc000:92077 ms,$dtclb:92071 end LI.LOD::RTE_6:4:5:39 644 0 0 2400 5310707140 32407 LI.LOD::RTE_6:4:5:39 $X'LI LOD +#_+#`+#`e&4JFST * LI.LOD 92077-17108 Rev.6000 <921027.1653>* ebif 6 ro sz 32 *======================================================== VMA %* To inhibit VMA/EMA usage, comment out the 3 lines that appear just after%* the "* VMA commands:" comment below.* * To convert from VMA to EMA: * * 1. Change line "vm" to "em 15".* &* The EMA size may need to be increased if you wish LI to perform line&&* buffering for large files. Line buffering occurs when listing device &$* files (such as "li 8") or when reading Mail/1000 messages via the $%* RDMSG program; it allows you to "back up" to a previous line in the % * text, even though device files and RDMSG output cannot be #* "positioned" as with FmpSetPosition. The default EMA size will #* buffer approximately 500 lines of text. * * 2. Comment out line "ws 5".* &* 3. Leave line "re li_vma.rel" intact; it is used for EMA as well as VMA. &* * VMA commands: vmws 5re li_vma.rel *======================================================== VMA if a pc 0 0 li xfmp.lib rm li.rel lims li.rel re li.r000end #IS::RTE_6:3:1:28 644 0 0 400 5310707141 31466 #IS::RTE_6:3:1:28 $`#IS +#a+#a+#aX4RFST * #IS 92077-17112 REV.5000 <860909.1236> * * Loader command file for IS string comparison utility.* IF,A,PC,0,0  li,pascal_fmgr.lib:0 re,%isen#CIX6::RTE_6:4:2:29 644 0 0 1000 5310707152 32401 #CIX6::RTE_6:4:2:29 $Ј#CIX6 +#j+#j+#j4VFST ((* #CIX6 92077-17247 REV.2540 <851106.1539>* * Loader command file for CI's auxiliary program -> CIX.* for RTE-6/VM only* EB* Sizing CIX up will cause some operations to run faster. SZ,32 * li,$crlib ,,CI library li,%cisu6 ,,pull out pu6 li,%cr000 ,,CROUT message file li,$fmp6* re,%cix ,,CIX main re,%cx000 ,,CIX message file * END,cix MONITOR.LOD::RTE_6:4:3:34 644 0 0 1400 5310707154 33743 MONITOR.LOD::RTE_6:4:3:34 $Ќ"MONITOR LOD +#k+#l+#l$4ZFST * NAME: Monitor.lod * SOURCE: 92077-17257 * PGMR: JVM,ANT * Rev.5010 <881025.1911> "* **************************************************************** ""* * (C) Copyright Hewlett-Packard Company 1988. All rights * ""* * reserved. No part of this program may be photocopied, * ""* * reproduced or translated to another program language without * ""* **************************************************************** "*  if A re monitor.rel if 6 eb  if 6 re monitor6.rel end mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmSPORT.LOD::RTE_6:3:2:34 644 0 0 1000 5310707156 33565 SPORT.LOD::RTE_6:3:2:34 $Р"SPORT LOD +#n+#n+#n4`FST * Sport.lod 92077-17303 REV.5010 <880609.1635> * "* Loader command file for RTE-A's SerialPort display program, SPORT"* If a su ,,make this a system utility If 6 eb ,,EB on RTE-6re,Sport.rel ,,bring in the main routinesend mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmCALLS.LOD::RTE_6:4:1:23 644 0 0 400 5310707165 32751 CALLS.LOD::RTE_6:4:1:23 $CALLS LOD +#t+#u+#u04dFST * calls.lod 92077-17317 Rev.5020 <891027.1255>* ebsz 25 re calls.relend &FFL::RTE_6:4:9:39 644 0 0 4400 5310707172 32104 &FFL::RTE_6:4:9:39 $  '&FFL +#y+#z+#z j>4hFST ftn7x,l,q,s,c * * NAME: FFL  * SOURCE: 92077-18067 * RELOC: 92077-16067 * PGMR: sb* !* **************************************************************** !!* * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1984. ALL RIGHTS * !!* * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, * !!* * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT * !!* * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. * !!* **************************************************************** !* block data ffl  +,92077-16067 REV.5000 <860228.1456>  * * Do not alter these declarations !!*   common /defoptions/ defbanner,header logical*2 defbanner,header  common /ff/ numffs integer*2 numffs   common /outputlu/ outputlu integer*2 outputlu  common /lengths/ printerlength,filelength, + printerbanspace,filebanspace  integer*2 printerlength,filelength, + printerbanspace,filebanspace   common /optprintmsg/ printmsgquiet logical*2 printmsgquiet* %* Tailor the values within the slashes below according to local tastes%*   # data defbanner /.true./ ! print banner before each file?## data header /.true./ ! print header before each file?# & data numffs /2/ ! number of form feeds after last file&  data outputlu /6/ ! default printer lu % data printmsgquiet /.false./ ! suppress print verification message %%* "Print job supervised by PRINx" %* %* Following variables are used to determine number of banner characters % * allowable on one line *   data printerlength /80/ ! printer line length  data filelength /80/ ! file line length& data printerbanspace /3/ ! spaces between banner chars - printer &% data filebanspace /3/ ! spaces between banner chars - file%  end %PATH::RTE_6:5:27:128 644 0 0 15400 5310707174 32760 %PATH::RTE_6:5:27:128 $%PATH +#|+#|+#| ~(4tFST 88X a3PATH92078-16026 REV.6000 <920709.1536>/SRC_92078/R6000/&PATH8rrCjPATH.NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN r~~,.DCO.FIO. .DTA. EXEC .CPM.SIO. !REIO#MAX0.FION .SBST .SC .SCO .SST.SSTC .LBT .NFEX .IDLP .MBT.CBT%PRTNCHARISTRIMLEN FMPHIERARCHNAME $FMPCLOSEFMPUDSPINFO ~aa INTTODECIMAL"FMPERRORFMPDIRADDTONAME UDSP.PUTUDSPUDSP.GETUDSPMOVEWORDS FMPNAMETODIRADD SPLITSTRING CASEFOLDFMPREADSTRING FMPOPEN DECIMALTOINTaaM!`` //A` /66 %% 6~~)sFFMV` 5`5(`Xppppp4'A  (-(/(/A(~({ I(5(<(<P4(9(p({ G~P???(B(Q(Q`(h`A ((~({` hFA (Y(f(f ]5p`5(`(e(({ C(l(o(o`Zp(z s 5p`5(뀈`((~` p4("~~z~JJ`X (`h p(( ((KA ((`Ap (PpA((`(  ~ȾMMJ  h` LjAh`hS Ap  pA  Ap AA?=H` (܀`((@@GG() 65;`5(`XpA  `(@ J 565p9`(`5((Eppp`(((O(Q`pA   Ap4(~~\AA`Xp`hX (r`(q (p(r(v ㈡(v(r{  9(((P4((`Xp(( 7(((`@@LpN(`@@Lp~== 5`5(` p4`p(W`(`p`p(p`Ɉp`((`p`p(p∄`ph(p`(`(p(ӈ`p`(ߠ&DD(5`5(`(H`phA( p`(`@@KpP( `@@KhHHLp88(`((Hp4`(Hp`4@@K~~BBP("(D(D@p`4Aph( [current WD] ::0 : UDSP # ):( Home Dir: . ! ro, Next Available UDSP = , Depth = #UDSPs4GG = -A-N -F-E   = @D @` JZ `6 8 : Z"`            33B / 83@'D$SYLB6::RTE_6:5:235:128 644 0 0 165400 5310707177 34634 $SYLB6::RTE_6:5:235:128 $P$SYLB6 +#+#+#u<;4FST ::X^VȘ* SYSLB 92084-12001 Rev.6000 <921031.0130>/SRC_92084/R6000/&SYSLB :@?^V44X<k ;SYSRQ 92084-1X002 REV.2121 810831 P92084/&SYSRQ::PCO4zCLRQLURQRNRQ :^.ENTR EXEC mm1<<h h h xppp(  x;P(,P(3);8A0;88;8m@$ 44XY k ";GTID# 92084-1X003 REV.2121 801231 P92084/>ID#::PCO4 =GTID# 5 x h P (H@p033Xe7k .;CHEL92084-1X004 REV.2121 810126 P92084/&CHEL::PCO 3 iCHEL $ELTB ii77AA(* Ԁ( p4p5 (,@3p6`6(.ԀP("8685(`6@4(0ԀH( H`((i@1O88Xok!;EQTRQ 92084-1X005 REV.2540 <850607.0852> P92084/&EQTRQ::PCO8 HEQTRQ UUp$CVT3 $DRNT $ELTB $ERAB $LIBR $LIST $PVCN $SCD3 $XEQ.DLD.DST.MPY .XLA.XLB .XSA.XSBLUTRU MESSS U:DDJ @@ Vp8VphτH @ 8`Vph Ȅ((( P(`h H (@@@ p(  P(A`wDAAJA @ xppx!(`xp` 8P(88(V(`(mhJ ( (`p (v8`(oh`@@6@p xH 8hEE8( P(x\h5@ !׈h\(H@@ p @@ P(h (`(J@  0 `h H`` `@ (ֈ@hH P(}KK(@@@ (( @ ` ؋`((ր(h (`@@ C h `EQ @`p\@@@x]#JJ 888(#` ((`PJ('(. @  @@h] (P_d`f`^@A K@dc `\D   ((XVGH_UP,  @g44XFk!;LUTRU 92084-1X036 REV.2121 810519 P92084/&LUTRU::PCO4 OLUTRU FP$DLUS .ENTP .ZPRV FFAA-@ACpDPC(( (hHBԀHB  (!Ԁ/()((ԠHh/ xxpE ԀCPD(:8E(1/ԀC8// @n .33XKk!;PRTN92084-1X007 REV.2121 771005 P92084/&PRTN::PCO 3* CPRTMPRTN fg$LIBR $LIBX GG`x(p`pC( HxԀXψ(!8CԀC(`>p)AhAHx@HBx Ԁ ( v e(2Հ 8P@ (.@Ah(E @`?Gp)`Cp(@e%33Xz/k!);EQLU92084-1X008 REV.2121 801105 P92084/&EQLU::PCO 3 r*EQLU .ZPRV \\I'//%x'8P px(p)`)P(8)@Ԁ*-@@.P'(( x)`)+HH,`)( 00\@44Xk!5;COR.B 92084-1X010 REV.2121 770816 P92084/&COR*B::PCO4 "COR.B .ZPRV ++@Ԁ Ȉ(@Ԁ@Ԁh +@s333X? k";KCVT92084-1X011 REV.2121 770621 P92084/&KCVT::PCO 3 KCVT 0N$CVT3 .ENTP .ZPRV h  @V44Xѣk";PARSE 92084-1X012 REV.2121 770714 P92084/&PARSE::PCO4 <PARSE ;Y$PARS .ENTP .ZPRV  `p `  @̢44XlXk";$PARS 92084-1X013 REV.2226 820225 P92084/&$PARS::PCO4 G$PARS .ZPRV ::t6p@p}hxz 8z( x`p{p|((hX}((85!׈P((P(h|X(|p8|(pzDp?`|P(Vz{Xx8{P{(^h`PvAb:;;hPwhx~?{HaHa(^@?8{`~h{X|(Q X|P(>?Px?h}XP(s(z`h?  DhX|(VXy(V!ߠ? ? 8?(f8..DuBb-,  .@"A^44XKk");TMVAL 92084-1X014 REV.2226 811214 P92084/&TMVAL::PCO4 5TMVAL $TIME .ENTP .XLA.ZPRV HH `pI @E HFGpJHI8II8I `JCI8II8I @D?p@` DPB(7`AhD@@@>@= I<mp pHd @8WW44Xk"5;CNUMO 92084-1X016 REV.2121 770621 P92084/&CNUMO::PCO4 BCNUMO $CVT3 .DFER .ENTP .ZPRV r7 p @P44X=k#;INPRS 92084-1X017 REV.2121 770621 P92084/&INPRS::PCO4 GINPRS 0N$CVT3 .ENTP .ZPRV uur#==(ph;`H88( ('888h:8( h;`8(@  @$H9p<H8<P92077/&GETST::PCO7 @GETST :^.ENTR EXEC xxr@@A`>pAA`?pBnmCoHBxk(plhBXk(<Pq8A(xBHk`l@@lp@`Bh @`ph@  @ (9x>m ,@-LM??Xb3Ș IFTTY 92084-1X025 REV.6000 921030 IFTTY for RTE-6 /SRC_92077/R6000/&IFTTY ?_.TTYIFTTY XFTTY  aC.DLDXLUEX ]]33p( p. (%p+A-++()`+2h`.p X0(&X/X1H(( ??]@2F44X>k#+;TRMLU 92084-1X026 REV.2121 801105 P92084/&TRMLU::PCO4 CTRMLU xxw>>x48P x7pp8`8P(88@Ԁ9<@@=P4($( x8`8:HH;`87`4Ԁ5(`@8@6Ԁ5(( ? 00x@744Xk#9;CAPCK 92084-1X028 REV.2121 810126 P92084/&CAPCK::PCO4 -CAPCK &&@B$CMAD $ESTB $SMCA $SMVE .ENTP .ZPRV IDGET &lfBBx؀H x  (ԨAppp݈ppp`∈p`p`Ԉppph6x(3(pxhH (@hH hֈP(JB@@P(8h (X(8h8(4`@(xxxE@ȈP(iԀH (aԀxڃP(~Xۈ(uH(mh (hڈxhx(m`(xBAA Ԁ((h`ppp`h@(((hHԀP(HԀP((8 `x8߈(JhH (Jhxሀ(JhH (J<<&&hx(J`,  <@#44Xx k$;$ESTB 92084-1X048 REV.2121 790202 P92084/&$ESTB::PCO4 >$ESTB .ZPRV X  hπH Ԁ Q   @U44Xk$;IXGET 92084-1X030 REV.2121 780731 P92084/&IXGET::PCO4 BIXGET v@Ԁ@x44Xk$);IXPUT 92084-1X031 REV.2121 780731 P92084/&IXPUT::PCO4 SIXPUT fg$LIBR $LIBX )@p8@l;,44Xk$5;FTIME 92084-1X032 REV.2121 780731 P92084/&FTIME::PCO4 Q FTIME kEXECqFF 0AMPM p  (x A|`~ghr0H`h@('h``xgp`@gphH`  H H{Hx`@ zp|` vWWQF//gph| H@Q@@ w Hhtxu` 8 8u(` s@q׈@0qg 0 : W\\vDDdn12:01 PM MON., 29 DEC., 1975FRI.SAT.SUN.MON.TUE.WED.THU.MAR.APR.MAY JUNEJULYAUG.SEPTOCT.NOV.DEC.JAN.FEB.\@͂B44Xk%;.STDB 92084-1X033 REV.2121 771107 P92084/&*STDB::PCO4\.DBSG .STDB .SDBG  :@ @M 44X1k%;DTACH 92084-1X034 REV.2121 800129 P92084/&DTACH::PCO4 <DTACH fg$LIBR $LIBX WW11`ψ@/p.Ԁ8P(p (# (#(! (# (# Ԁ,(ԀՀ.h.H0Ԁ-AՀ W@q77X.6k%;ATACH 92084-1X035 REV.2540 <850611.1501>P92084/&ATACH::PCO7 >ATACH ((i$DSCS $LIBR $LIBX .ENTR .XLA.XLB.XSALUSES (__m66h   X0(*@hH1@5X3()hH24hA  _@C44Xk%,;LUSES 92084-1X039 REV.2121 801124 P92084/&LUSES::PCO4 ?LUSES O$SHED $SMLK $SMST @@88 phԨ@ԀP( (@@@T44X6jk%8;FNDLU 92084-1X037 REV.2121 810519 P92084/&FNDLU::PCO4 ?FNDLU $DRNT AAx^8P x`ppa`aP(8a@Ԁid@@eP^(M( xa(D`@@6Ha@pfHHԀ(Jh^ ԀgPh(Jhf5Ԁ!׀iC(Bp^@@ԀiJJ`A))0^ `abHHc`a``^Ԁ_(@@a_(( ? 00J@cĂ44XO0u (;$BALC 92084-1X038 REV.2540 850816 P92084/&$BALC::PCO4N$BALC $BRTN &&C$DBRT $DOSM $LIBR $LIBX $MAXI $PNTI .ENTR &fNCCA`pppԨH(HpHH((@(p`@(pH`p`@@@p@p@(x`h X(PCFF  (A`P(@@(Yhx8Ԁ(n`@h (phHՀ8ԀՀ Հ(rՀ@p`@Հ@@@ph(H(~`Հ `$$~@``A($ BB`pppp`ppppHH((׈P(`P((`p`@pH`xՀ (ɀh (`Հ `Հzzv@@ DxԀXԀp@(x`@8  8p.@8`.pԀp@@hp/H('@/@/ (`/Հz@Rq{44X.k&;.OWNR 92084-1X040 REV.2121 811126 P92084/&*OWNR::PCO4 B.OWNR '$SMID $SMII .ZPRV ISMVE QQte..$hπH+Ԁ  (#x&ԨAx*&*'(`'P,(#ԨAx) &)&(`&- Q@Ա77X<A&.SETB 92084-1X041 REV.5010 880506 /SRC_92084/R5010/&*SETB 7S/).CLRB .SETB &$DBTM $LIBR $LIBX mmR<< x)h8H ('x7 9@7p7( (h) (-pԀ7p:`:B`0:Հ7h)x(p;7p:`;:Հ7('m@簧33Xzgk&2;KHAR92084-1X042 REV.2121 770525 P92084/&KHAR::PCO 3##^)CPUT KHAR SETDB SETSB CZPUT# vm.DFER .ENTR yFFAA  x?8 (# (#h6H&5 ׈'0( ? )p?8)h65) נ >!'?A@::C.FBApBAb`@pApA`fp`ep X (^)] (UAbC: eBA @ +44XS((k';INAMR 92084-1X043 REV.2226 820202 P92084/&INAMR::PCO4 DINAMR .ENTR ??`6p@pH pp`hHxxh1hx8`ӈp` 18(!(/`g@px`P(^(@([ T?<<(^`pDx "` g`p`x@P(Ugx` (K`g1gg88(^([pP (px8(P (u8(P (zxxhiis{88(x`8(~h(x`8(` g(H5!߈ `(-0 ,: 'i@9X44X!k';PTERR 92084-1X044 REV.2121 810126 P92084/&PTERR::PCO4 MPTERR  $SMER $SMVE .ENTR SESSN ::ŷ!! (x x` p:@]/{44Xk';GTERR 92084-1X045 REV.2121 810126 P92084/>ERR::PCO4 MGTERR D $SMER .ENTR ISMVE SESSN 77 (x x`p7@Us44Xq;k');$SMVE 92084-1X046 REV.2121 800129 P92084/&$SMVE::PCO4s% $SMVE ISMVE 5'$LIBR $LIBX .ENTR jjv;;`p`p`@(`p` p(:`P9(.p8`h8(2h`9pA:j@44Xk'4;SYCON 92084-1X047 REV.2121 780921 P92084/&SYCON::PCO4 OSYCON u.ENTR XLUEX m+  @#44Xk(;SAVST 92084-1X051 REV.2121 790924 P92084/&SAVST::PCO4 9SAVST .ENTR   @=g44XT k(;$SUB2 92084-1X052 REV.2226 820302 P92084/&$SUB2::PCO4&&a$$DLS $B$RB $DIGL  $IMCL $IMCR &    @\r{233XQ}k(;%SSW92084-1X053 REV.2121 750701 P92084/&%SSW::PCO 3 Y.%SSW }ISSW08H8@:oY/33Xk(*;ISSW92084-1X074 REV.2121 750701 P92084/&ISSW::PCO 3 }.ISSW ^A (`@X44Xk(7;%WRIS 92084-1X054 REV.2121 810519 P92084/&%WRIS::PCO4!%WEOF %WRIN %WRIS kEXEC<<p8h (8@m8_L(L(xE@ p ׈pF(,E8EG8G8H(@`k@IPl(7Lpk(@xJmppKG - r!DSCPR  M.ENTR .GOTO XLUEX ABREG LDTYP ~~dCCA@pJp`@J `p@W() `ep<p`nPhmX (D`lP(L(bp`O@JpHYcHMXL(D`P@JpHaH~~~,a@@(F`kP(`jP(i(np`ip(`^PhhX 0(~`Up`Rp(`gPhfX 0(`Tp`Vp((D`ep`dpcLL(DA~YBBpAa(D```O@Jhb(FApa(D``p`@`U@p`S@JhHK`R@Jh`Q@J `V@p`P@JhHK`O@J::h(F`_`^P((`U@JpH`]h*H`S@Jh`R@JpH`\h$H`Q@JpH`[h*H`P@Jh`V@JpH`YH`O@Jh(F`Y`U]]n++@JpH`Zh(H`T@JpH`YH`S@Jh`R@Jh`Q@Jh`P@Jh`O@JhH`N@Jh(F !]44WK$$ l? <vbXLIDI4@--X LDTYP 92084-1X701 REV.2301 <821011.1036>- YLDTYP  %% .GOTO .CPM.ENTP XLUEX ABREG JFDVR IFDVR %ccIIPRTALIDIDITTTRTPTTTTTTTTTTPRTATATATATATATATADIDIDIDIDI@ldxd,bvXclUBB`YpU`p`pJUpm SQR(rKI` Sh(xM` RpP` Q(`pTpL(`PM((P`pM(`pM(ň`PM~~@@((UKIpO`K(`O(`pM(`PM((UA(K(KI`pM`I(̈`pM(KIpMMH((`MpT`TpL(~BB4`M@pT`M@pLAJ((`LVJ((A`KWJ((`IX`TYB +BI?? @T44Xk*;ABREG 92084-1X059 REV.2121 750701 P92084/&ABREG::PCO4 ,ABREG ,,Xpx8p8xh`,@3`R 44Xk*(;BINRY 92084-1X060 REV.2121 801124 P92084/&BINRY::PCO4EBREAD eBWRIT  9g$OPSY EXEC <<( P( `( `( `NP(8p8` (%8P(%`pp`p `('p p p p p <;;@(>@@`phEpE[8E`P(V88(K``p8(JAd[hepe[8(q}e`P(w88(k33ټw}``p8(j}@3 X @/44X̻k*4;DBKPT 92084-1X061 REV.2121 771116 P92084/&DBKPT::PCO44$DBP2 $MEMR @33XFk+;IGET92084-1X063 REV.2121 770501 P92084/&IGET::PCO 3 oIGET 8@y933Xek+;ISSR92084-1X064 REV.2121 750701 P92084/&ISSR::PCO 3 })ISSR ~U8@z#44X[k+;MAGTP 92084-1X065 REV.2121 750701 P92084/&MAGTP::PCO400IEOFIEOT IERR7ISOTIWRDS .LOCAL ARWSTB 0 :^.ENTR EXEC sIIAhVH  hVHY AhVHApXA*TXHHx--hVH.A66hVH7A@@hWHA##IHZA0pXSUXH @?#@m--33X((k+);NAMR92084-1X066 REV.2226 820225 P92084/&NAMR::PCO 3 |NAMR .ENTR Ķ@@h`p 8( `6p@pH `h:hHxxhx8` :8() `:X(4pxH@::xxxxX:P(@pPP8P(iP(hPPx` `p@pxX(iP(a(PxhX:hX(hxP(t@atzFF@a(X(phX`:h6xHHxh`X(xhX(85!ߠ (5! Bb-+0 ,: @` 22X6Jk+6;OVF 92084-1X067 REV.2121 750701 P92084/&OVF::PCO2 uOVF J@=44XWk,;PTAPE 92084-1X068 REV.2121 750701 P92084/&PTAPE::PCO4 LPTAPE :^.ENTR EXEC JCCLLA(&R0UpN0TpM VpPpA(*(8(8(&hA(&*8("`Lpp/OPSA(&6AOQ:OP(&8**`M%%C `NpQ x 8AA? @@%@RIq 44Xk,;RSFLG 92084-1X070 REV.2121 800129 P92084/&RSFLG::PCO4~#RSFG RSFLG .ENTR p@ye44X#k,;SREAD 92084-1X071 REV.2121 771116 P92084/&SREAD::PCO4%JFIL %RDSC %READ  9g$OPSY EXEC ==p8p8`( p8p8P~(A{(<h xu @ptxs<88s(38t()hu(78t(9`z<(3)=BB;8;8x<8w(QprhwXN (axw8vP|vv(a8whHyXw (`pzxw(pvxyd(=prd`r<`mp;`pxAq{yvwd`hA@@@xw (pv(Xxyd(hT`}H (`0~pz  px( xBxxx{ (hx}hxx`pppp`PE(s(r"@44X:k,,;.MAC. 92084-1X072 REV.2121 750701 P92084/&*MAC*::PCO4 ~5.MAC. ##p`p`#@8W44Xʼk,7;DBGLU 92084-1X073 REV.2121 771116 P92084/&DBGLU::PCO4Z$DBP3 DBGLU %p@44X}Ik-;.PACK 92084-1X076 REV.2121 750701 P92084/&*PACK::PCO4 8.PACK .ZPRV GG?pBpA`B (A8(?8A61( 0( @ `HC A D("8AXpB`Ep`A@D(8@E(;@DFH`B(  (=`GhHA(  cG @44Xk-;IFBRK 92084-1X078 REV.2121 800129 P92084/&IFBRK::PCO4 =IFBRK fg$LIBR $LIBX **phπHԀ@Ԁ A*@rw88X˛Ŕ4:$SUBC 92084-1X079 Rev.5020 800304/SRC_92084/R5020/$SUBC.MAC8 :$SUBC $$x h 0h $@f#44X#k-+;TATMP 92084-1X080 REV.2121 800702 P92084/&TATMP::PCO4 3TATMP $DVPT $ENDS $LIBR $LIBX AAD## 䈈p"p`hH@ HA`"ሀ " @A@X44XVk-7;SETAT 92084-1X081 REV.2301 821014 P92084/&SETAT::PCO4GETAT  SETAT $ENDS $LIBR $LIBX .ENTP ݠAA`p pR( `S@J pQ`IXN@@O!@KpP`Mဈ`H `GhS`L`H  `G8R(?hQP`L`H `GhSЀ8R(DpR PxQ''#ApR(1`Q (;:>hT'@344X3k.;$CPU# 92084-1X082 REV.2121 801216 P92084/&$CPU#::PCO4 y<$CPU# @44X1k.;LKEMA 92084-1X083 REV.2121 810903 P92084/&LKEMA::PCO4LKEMA ULEMA $DEMT $IDEX $LIBR $LIBX WWD11( phH.Ԁ/@Ԁ@+0 -@@,Ԁ ?W@Ih44X:k. ;EIOSZ 92084-1X084 REV.2121 810424 P92084/&EIOSZ::PCO4 AEIOSZ $CMST mmN ::8P px0`()hπH6Ԁ2H5P4(,3@7p/H4Ԁ1@8p@/h/&@9 0 ( m@A77X˷bP($EMA$ 92084-1X085 REV.5000 <861124.1212>&$EMA$::SRC_92084 7 v0$EMA$ &&[ $ERAB $LIBR $PVCN $SWP$ .PMAP L$PTE VMAST &aGG:_ ('pp^a@p] (*`(.hDH^ (,@^]H_('`[`[h8p`\h`8xp@_hHYԀZԀ11LGhՃ `X׈ H`WEM ?Q1@u2::XKw/5 $VMA$ 92084-1X087 REV.5020 <900404.2135>/SRC_92077/R5020/&$VMA$ : v$VMA$ tt<) $ERAB $LIBR $LIBX $PVCN $SWP$ .CAY .CXA .CYB.DIV.DLD .DST.JPY.LBT.LDX.MPY.MVW.PMAP .SBT.XLA.XLB.XSA.XSBEXEC L$PTE OVRD. VMAST tMM:q @@``bA hx (p xu ( H hX(( (@u(Ph`p @H( m<@@p@upƈhuHx`(` P`p`Ap``PX`pp̀h(p (`@@P(h8 H(~`0@`H ,>>(+x`Pň($HX(6` pH hHx (9`ǀhB (9` @@uh(Eh8(%`= p HπH (LHň(b8(9(`@~~1O88h(IHxȘp(Ih@u((oxȈhȀF`Fp(I xȈh`h hĈ`0pƈ`h xP(hHhƀF~BDD`F8`hĀFhFh`hu((phH`   Hx`(| .pAh`p`X(hDH!(d>>`P@pxHɈxhX(A88ۀ(`ۨ8倈hX(I (hX(I (`H(x`uH0( @@h(0 (p(hX(! (( (`((p(h( (`( x%Hx&p'XhFhF&%'&'h%(@ 0IPP `qph !(p~`@h?!( (`~z #p@! (A| p@h: (` (``==0p`hA`` :hB!hC!h: (hC` D:h=!h@!hA!h`  `pj`(Q(h Py ( ( Q(P((`p``ф==pl`pabP((Q((hÂ%x`h 1(hX=(`PA (`($ Bp@~h 1(`up`0p`p``pl`pa`h xhHtpdBB($ VM.VMAH'd `D` D x:`p9` 9X:(4@D89`9P!(,hEP(P92084/&$SWP$::PCO7 L$SWP$ o$LIBR $LIBX L$PTE S$PTE VMAST qDDpA Hwxh x xNphԀt@(!`s($@(MpW`@ptHxU`@q34t@@WpVhW`Xs(Cth HxXccHD44`rhY``uY(ԀN0vAՀN@pTA DXTYXX(]`WPs(nt@Ua@V!(]`W(] c@ y88XmL%6.ESEG692084-1X088 REV.5010 871218 /SRC_92084/R5010/&*ESEG 8 0.ESEG &.MVW.PMAP VMAST a@@x(+x+`@3` $(#x6( p7(0`7A2`57X*h,87($8+(h46`)H1WDA`+p2-,p1H(x0 x2`,p`- x`)@ Ԁ+x5`H'x3*p4h(@{;::XL" VREAD 92084-1X089 REV.5010 <880528.1721>/SRC_92077/R5010/&VREAD : VREAD  VWRIT '';o.DAD.DIV.DLD.ENTR EMAST MMAPREADF WRITF 'REE(` pp(A(`pFpĂ&x`@p`@hH `ph *p`@P(?h (?hHxp(M 'EFF(HHH ( H@AJH (A x(pAe(`(xr`p`ƈ@p(`p(h*Hx8ˆ(ah}}vDD (hx8(` A (HHhHpp H*x(ah (hǀ xxňxhxx`(`(? }@m\44X2k0;EMAST 92084-1X100 REV.2121 810422 P92084/&EMAST::PCO4 EEMAST VMAST ^^Y22p+`A($ ,-`-&ԃ0&`Ԁ0&h X+(#`π@.Ԁ/@1&+8&^@E33X[k0;MMAP92084-1X090 REV.2121 810609 P92084/&WMMAP::PCO3 o#MMAP $LIBR $LIBX .ENTR .PMAP VMAST :DD BE`B(>xE`DԀ+xDH@H (> "(> (IppC`B(0hEHAxE 8()8EEH`D(>8C(2hD  8HpH@**nD ppC@D0F@GWXpH(!*@uᔡ44X k0+;.IRES 92084-1X091 REV.2121 801106 P92084/&*IRES::PCO4 3.IRES .IMAR / @Ap  @:H44X k07;.JRES 92084-1X092 REV.2121 801106 P92084/&*JRES::PCO4 4.JRES .JMAR / @Ap  @;X77XE&SP)OPNVM 92084-1X093 REV.5000 <860724.1037>&OPNVM::SRC_92077 7 ROPNVM .DFER .DST.ENTR VMAST ~~cDDNNNNNAA`PF (B@HpL p!@Gp& xK(CpJA!&`R O H0P Ȉ0QL JhMxxxxx xNK`G~D@I(6PNN@@@;Z77X2#VP)$CREVM 92084-1X094 REV.5000 <860724.1036>&CREVM::SRC_92077 7 TCREVM k.DFER .DST.ENTR NAM.. VMAST GEESSSSSAA`PJ (F@MpQ p.@Lp# xP(GpOA# S!(4A+(:.`K `U 0TQ O@hRxxxxx xSP!!E`L@N(:PSS@!@yQ77X;<P)0CLSVM 92084-1X095 REV.5000 <860715.1433>&CLSVM::SRC_92077 7 ICLSVM _GTOPN PSTVM VMAST rr]<<p `P4 @6p1@5p@6p2H7p3(`:1("A"h3H;2`5 `9 `83"r@Ich#77XP;uP*PSTVM 92084-1X097 REV.5000 <860715.1410>&PSTVM::SRC_92077 7 X PSTVM .PMAP .XLAL$PTE VMAST BB xHhXr(xqhX(8x]@h]h (.@`h  x?jjB33jh?t@F`Fx>`H(X`>h |jh?@H t@Tp[Hx\[\[\h[]h x `Hj(lj@ 77XR,P* PURVM 92084-1X096 REV.5000 <860724.1037>&PURVM::SRC_92077 7 RPURVM VMAST LLx$$p `P% @&pH'p$`*  h$H+`) `($L+% "@ݹ77X0lP*VMAIO 92084-1X098 REV.5000 <870327.1013>&VMAIO::SRC_92084 7 \ VMAIO @ II\ $ERAB $LIBR $LIBX $PVCN .DIV .DLD .DST.ENTR .PMAP .XLA.XSBL$PTE S$PTE VMAST XLUEX I   MM`hH(yh(A  x Ap AA  (fFp& (6@HH*xx 0A `Ap AHx`(PM@@([pHx` 8(T8h (`X(x`H(y8(^(x (Dh@` H P8hh`x h !A HH`8` `33d (@h   H`  QR@00VMEM3@44XЁk2;L$PTE 92084-1X099 REV.2121 801204 P92084/&L$PTE::PCO4L$PTE S$PTE &&/@p@p`&@Nmp44X'k2';VMAST 92084-1X101 REV.2121 810513 P92084/&VMAST::PCO4 GVMAST .ENTR JJf''`h"(@%ԀB(`@&Ԁ#@!A% hH$H!J@&EV44Xk22;.LPXR 92084-1X103 REV.2121 810513 P92084/&*LPXR::PCO4 I.LPXR Q.LBP))ypx8@ H 8)@M33Xb[k3;.LPX92084-1X104 REV.2121 810513 P92084/&*LPX::PCO 3 _(.LPX Q.LBP""Zpx@ H 8"@OFn44X k3 ;.IMAP 92084-1X105 REV.2121 810526 P92084/&*IMAP::PCO4 /.IMAP P.IMAR .LBP  @Ap H @a44XXk3;.IMAR 92084-1X107 REV.2121 810527 P92084/&*IMAR::PCO4 /.IMAR .NFEX &??`(pO88O(pP(LxQpRpSO8O`R @V HS xR8Q(3PpS`RPHSpS`RPPHRxR8P(PpS`RPHSpS`RP//8?`hS8PP 8PP T@P20EM/@i)44X k3&;.JMAP 9208((4-1X106 REV.2121 810526 P92084/&*JMAP::PCO4 0.JMAP Q.JMAR .LBP  @Ap H @c44X^k32;.JMAR 92084-1X108 REV.2121 810527 P92084/&*JMAR::PCO4 0.JMAR .NFEX @@`(pV88V(pW(SxXpYpZV8V HZ @YxY8X(:hW pZ`YW@ZpZ8W`YWHZpZ`YWWHYxY8W(WpZ`Y99@WHZpZ`YW`hZ8WW8W W @[W20EM9@o;44Xck4;GMS.C 92084-1X409 REV.2121 810717 P92084/&GMS*C::PCO4 GMS.C dzLIMEM "" `HH"@y%944Xܮ"k4;LIMEM 92084-1X050 REV.2121 810717 P92084/&LIMEM::PCO4 8LIMEM .ENTP .LWAS COR.A EXEC>>F.""pA!`@`H(`>@ 44Xpk4;OLY.C 92084-1X410 REV.2121 810717 P92084/&OLY*C::PCO4 OLY.C SEGLD zk8pA@77X&1P+SEGLD 92084-1X049 REV.5000 <860826.1024>&SEGLD::SRC_92084 7mSEGLD vSEGRT 44 D .CBT.DFER .DLD .DST.ENTP .LWAS .XLA.XLBCOR.A EXECIDSGA 4TGGA(y@hH(RhH@H  L (sh `AxJ |(+H8M((s  xO HpH|`τ@(Px|@N 44X ]k6;CPUSH 92084-1X527 REV.2121 810801 P92084/&CPUSH::PCO4TCPOPCPUSH $LIBR $LIBX .CNOD .ENTP CC@AH`8``A@<@AHRx8R8H[Ԁ\pXpR \@XpYhH[Ԁ\pZhWx`phXDHhdHY!(B@R@Z11`C(N(N88(6`PQ  (NR1@9JX 44Xݯ2k6;RUN.C 92084-1X580 REV.2121 810727 P92084/&RUN*C::PCO4 ,RUN.C ͎.DFER .ENTN LOGLU PNAME REIOKK22A  `@1pApA/0 /XXXXX: XXXXX MUST BE RUN SEPARATELY. K@"\44X.k6!;LOGLU 92084-1X027 REV.2121 790228 P92084/&LOGLU::PCO4 @LOGLU RRӯ..x+p`@)  (!p, *(Ԁ+ (HH-`, +x,`( 00R@l44XiP+4XREIO 92084-1X923 REV.5000 840228 &XREIO::SRC_92084 4REIO@XREIO @-- F8$LIBR $LIBX $OPSY .DFER .DLD .DST.ENTR .XLAXLUEX -a`p( DDpp`D!hxc !dpbx`hH Q(RH_ Q(R`(/H`hPeHa Q(R`@gpQp]DQh (; @H^x@fQ(R QO QD&&ELAAAQXb8!A] &d?{@44X&k6:;PNAME 92084-1X075 REV.2121 800801 P92084/&PNAME::PCO4 APNAME }$OPSY .ENTR KK&&A `@# ^( `!88%0$hA"`$a K@ڦ33Xb~0k7 ;.LLS92084-1X633 REV.2121 811117 P92084/&*LLS::PCO 3 [#.LLS ffp00hx-8hx.()(* (p/@.P-((h//()((*p/@.@-((h//()((*888`/f@.G44Xk7;.FNW92084-1X634 REV.2121 811116 P92084/&*FNW::PCO 4 ]!.FNW b.DSX11Op(p8PH(H( 8`1@44Xk7#;.STIO 92084-1X635 REV.2121 811116 P92084/&*STIO::PCO4 A.STIO 22c&xp8hX( (`0(`2@x877XU)SETTM 92084-1X920 REV.5010 880104 /SRC_92084/R5010/&SETTM 7 DSETTM /B$CVT1 .CPM.ENTR .MVWCNUMD MESSS {FFi(di(di(di (di&(dhhx@pi7(d `p(Dp88(@x}}PFQQA`hOSpppcAAffg(qifh(w(wi8iiTM, __1982, ___365, 12, 30, 45y},  ;3@Q44XУk8;CNUMD 92084-1X015 REV.2121 770621 P92084/&CNUMD::PCO4 BCNUMD $CVT3 .DFER .ENTP .ZPRV vp @44Xu6k8 ;$CVT3 92084-1X018 REV.2121 770621 P92084/&$CVT3::PCO4:'/$CVT1 $CVT3 .ZPRV ``66!x-h(x.h,x)x*x+h$a x H# ׈.. H.x.(`'h-+% )+ A4`+//`@YxQ"" JFDVR ,92084-1X705 REV.2226 <811117.1543>"@ JFDVR .ENTR.MPY .XLA  ;;`a},&h@@+€)@+(@hH &p' &@'@*(#;`KL!P`+?!!77Xt8k8+;IFDVR 92084-1X911 REV.2540 <850605.1457>P92084/&IFDVR::PCO7 DIFDVR u.ENTP XLUEX SSz--A`p-`--p- P,(p,p6A+61*./( 8-(%8-0  S 7.5 y6 @=.BBX5`k9;ACINF_OR_SOMETHI92084-1X704 REV.2540 <850626.1 850803.0956P92084/&ACINF.MAC::PCOB@5`>>X k9;SSNID 92084-1X704 REV.2540 <850626.1 850803.0956 P92084/&ACINF.MAC::PCO> BSSNID  .ENTR GTSCB PAS.NONCDS""XAP( ( (`" f((A( @ >>>X7k9;ACINF 92084-1X704 REV.2540 <850626.1 850803.0956 P92084/&ACINF.MAC::PCO> <uACINF  &&w.ENTR ACNAM CLOSE OPENPAS.NONCDSPGS.SSNID &AAoP(ope`e(`pnpl@l@sh8l8n(tkq( (#`kph(%qpho(5A/pi|yz`i(5pm(co(DoP(D@phg`{HHA$$@gr`e(WpfAQphgfst`f(W`fpm(co(^oP(^(aappm`muHv Ao(6+@CCT! P G S  ] @1<<X\?w ;$FINDIDEXT92084-1Y037 REV.2540 <850820.1611> P92084/&IDEXTLIB::PCO < 0$FIEX $IDEX .XLA.XLBuu??x: x; x<Jx x9 (7(1: %(5@;>(5 <=ˆ(5h 8J@@!(%hx98( h9(&u@s;;X\w ;$SETIDEXT 92084-1Y037 REV.2540 <850820.1611>P92084/&IDEXTLIB::PCO ; J%$IEX Ղ.LDX.MWI.XLA.XSA11>@p( H@A`H@( 1@ʺ<<Xf'w ;$SETDRIDEXT 92084-1Y037 REV.2540 <850820.1611>P92084/&IDEXTLIB::PCO < .$DIEX  $LK2.XLA MM<''p!`&p#Dx"`%!(@8"h"!8#( 8"h"!Hh"H$x"!(M@/Nh::Xw ;$LKLU292084-1Y037 REV.2540 <850820.1611> P92084/&IDEXTLIB::PCO : P$LK2 kEXEC**ApA( *@Lj<<X]Ew ;$FREEIDEXT92084-1Y037 REV.2540 <850820.1611> P92084/&IDEXTLIB::PCO < 4$FRIX "" $IDEX $LIBR $LIBX $LK2.XLA.XLB.XSA"||hEEx? &JHxHA@(HA@D(@AhHB@ #$`?x@`C!(6h@?@D(6h@?Hh?hHB?(1|@R44Xk9);RPLIB 92084-1X056 REV.2121 807029 P92084/&RPLIB::PCO48.ADX.ADY.CAX.CAY.CBS.CBT.CBX.CBY.CMW.CXA.CXB.CYA.CYB.DIV.DLD.DST.DSX.DSY.FAD0.FDV@.FIXP.FLT .FMP.FSB.ISX.ISY.JLY.JPY.LAX.LAY.LBT.LBX.LBY.LDX.LDY.MBF.MBI.MBT.MBW.MPY.MVW.MWF.MWI.MWW.SAX.SAY.SBS.SBT.SBX.SBY^^{.SFB.STX.STY.TBS.XAX.XAY.XBX.XBY.XCA.XCB.XLA.XLB.XLD.XSA.XSB.XSTPFLOAT @IFIX^@U:s<<Xŕ IDCLR 92084-1Y074 Rev.5020 <891024.1826>/SRC_92084/R5020/IDCLR_6.MAC< 5IDCLR b$LIBR $LIBX .XLA.XSAphH@0@$LIBX .CNOD .ENTP CC@AH`8``A@<@AHRx8$EMCLB::RTE_6:5:20:128 644 0 0 12000 5310707202 33210 $EMCLB::RTE_6:5:20:128 $<$EMCLB +#+#+# _5FST 77X?G~;EMCHD 92084-12002 REV.2540 <850904.1733>P92084/&EMCHD::PCO7@ ?G44X,k ;.IAE. 92084-1X020 REV.2121 771012 P92084/&*IAE*::PCO4 ~4.IAE. .IAY. .ZAE.  @@35Q44XOk /;.RAE. 92084-1X021 REV.2121 771012 P92084/&*RAE*::PCO4 ~=.RAE. .RAY. .ZAE.  @@2jQ*44Xgk ;;.XAE. 92084-1X022 REV.2121 771012 P92084/&*XAE*::PCO4 ~C.XAE. .XAY. .ZAE. ]@U@2Q44X0k ;.TAE. 92084-1X023 REV.2121 781128 P92084/&*TAE*::PCO4 ~?.TAE. .TAY. .ZAE.  @@44X_Tk ;.ERES 92084-1X118 REV.2121 781226 P92084/&*ERES::PCO4 < .ERES Z@20EM [@@(P 8 p8 ` 8 (p (( xpp 8 A8Q(@p 8(p `x(D B(@p%(88(" G  P(@`8H! (8@#1A44X{Yk &;.SMAP 92084-1X116 REV.2121 801107 P92084/&*SMAP::PCO4 9.SMAP P.IMAR .LBP CCǬ`p( @HxppAHxhC@44X@!k;.SRES 92084-1X119 REV.2121 801107 P92084/&*SRES::PCO4 =.SRES .IMAR HHB!!`p( @Hxpp  A px  `hH@l4,44X[k;.EMIO 92084-1X117 REV.2121 810608 P92084/&*EMIO::PCO4 7.EMIO oMMAPR@@`xxWp( p-p(2xp8-P(P8-@p 8-p -`x-@8-8( -8-H -FpY&xZW HU22Ӳ@*xXV(PIYX#(PHZ`Y8S16EM?2@k[ turning off terminal function"R:R: I$: Contains escape sequence for turning on inverse video R:R: B1$: Contains escape sequence for turning on blinking R:R: U1$: Contains escape s%BMPG1::RTE_6:5:385:128 644 0 0 300400 5310707203 34134 %BMPG1::RTE_6:5:385:128 $P%BMPG1 +#+#+#_5FST ((::X9- 8BMPG1 92084-12003 REV.6000 <920910.0145>/SRC_92084/R6000/&$BMON :@y9::X?-! 8$BMON 92084-12003 REV.6000 <920910.0145>/SRC_92084/R6000/&$BMON : 6$BMON  @Hxg833XZk--;FMGR92084-1X121 REV.2340 830812 P92084/&FMGR::PCO 3}}.IDAD .R.E. ACTV. HCAD.CLOPN CRSK. CUSE. D.EDSK. FM.AB RG0..=GT.JB  I.BUF IFLG. &INI1. +INI2. J.NAM J.REC }6JRN.L.SEG M3FLG MCFLG N.OPL =N.OPT NO.RD GNOCM. NXTK. O.BUF ONE.C P.RAM P.SEG IPARS. S.CAP S.TTY SCR.SEG.R @TL.PTM.VL TPSK. TTY.[CLOS. EXECMSS.RMPAR SEGLD $**MM6 ''A`p%A(9)`(XB(XA(32E(&`Ep(`(&pH`C(pH`D(??IN2 7  Mii;;A `P(`P(p`(pI!((@HpHHG`(倈`(6`8(i   G ?z do $END FMGR 1 D.RTR @]{ 44Xek-9;FMGR0 92084-1X122 REV.2340 830615 P92084/&FMGR0::PCO4 DFMGR0 !!.IDAD CAD.CO..DU..PK..SEG.R ST..!`(@d"44XVk. ;FMGR1 92084-1X123 REV.2340 830615 P92084/&FMGR1::PCO4 DFMGR1 hh$BATM .ENTR .IDAD .PARS AB..ABT.. ACTV. BRKF. C.BUF ECHF. IFBRK IFLG. INI2. MSS. NO.RD P.SEG PARS. REA.C SEG.R TR..TTY.h/PP@`Tp`H( (  (@S`(/` (ApA Dx x(-H `xpNA*`Np@`O( Dph (hHR  (p  `MpNA DNE( ABEND JOB LIMITOPAB@-44X?k.;FMGR2 92084-1X124 REV.2340 830615 P92084/&FMGR2::PCO4 DFMGR2 ͌.IDAD CAD.IN..IN.IT PU..SEG.R `(@zH44XIk.;FMGR3 92084-1X125 REV.2340 830615 P92084/&FMGR3::PCO4 DFMGR3 .IDAD CAD.CS..DL..SEG.R `(@D44X[ k.+;FMGR4 92084-1X126 REV.2340 830615 P92084/&FMGR4::PCO4 DFMGR4 -- f].IDAD AC..LL..LO..MC.. MS..RC..SEG.R SV.. VL..-&&Mk `( &@˩g44Xd k.6;FMGR5 92084-1X127 REV.2340 830615 P92084/&FMGR5::PCO4 DFMGR5 %%Q.IDAD AN..CNT.CT..PA..SEG.R TE..TL..% @ `( @44X3 k/;FMGR6 92084-1X128 REV.2340 830615 P92084/&FMGR6::PCO4 DFMGR6 %%T].IDAD CN..EO..JO..LG..LU..OF..SEG.R % @ `( @Ԋ44Xk/;FMGR7 92084-16129 REV.2340 830615 P92084/&FMGR7::PCO4 DFMGR7 .IDAD ??..CAD.NX.JB SEG.R SY..`(@{"44XGk/;FMGR8 92084-1X130 REV.2340 830615 P92084/&FMGR8::PCO4 DFMGR8 B.IDAD CAD.CR..SA..SEG.R SP..`(@<Z44XQk/&;FMGR9 92084-1X131 REV.2340 830615 P92084/&FMGR9::PCO4 DFMGR9 .IDAD CAD.CL..LI..SEG.R `(@B44X\k/1;FMGRA 92084-1X132 REV.2340 830615 P92084/&FMGRA::PCO4 DFMGRA .IDAD CAD.ME..SEG.R SM..`(@֌J44X-k0;FMGRB 92084-1X133 REV.2340 830615 P92084/&FMGRB::PCO4 DFMGRB P.IDAD HE..RP..RU..SEG.R WH..`(@`\22X!k0 ;CA..92084-1X134 REV.2340 760513 P92084/&CA::PCO 2 QCA.. w.DFER .ENTR G0..N.OPL 6==A8HhX(\(q@(q `x@pnhHxoxHHx(f @xRxUxTPPh|Ph}PhPh~ (@PhPh (qxTh{xRhϭ=<< DxUhzxS`I pR`p`opww8w8hww8(NhH(@P(q@(qH(on8oHhX(t8n@`yo n(p,,wwy8AXOP -+/* $(,@S44Xgk0;C.TAB 92084-1X135 REV.2340 811113 P92084/&C*TAB::PCO4 C.TAB ##AB..CA..DP..EE..IF..MR..SE..TR..#ZZq 5Oc(k2m<qwTREXY7??7* LI9CL9DL3MC4DC4WHBMAMEAAC4CR8ST0DU0PU2RN6CO0PK0CN5LL4SV4PN5T5SP8UBRPBOF6RT6JOLL^Z--6EO6CS3ABTL5SEIFCAA5LO4IN2VL4SL6EBE5LU6LS6LG6MS4MRSA8L@e%44X~ 2 8??..92084-1X136 REV.6000 920908 /SRC_92084/R6000/&??4 M??.. @@ .E.R. .ENTR .R.E. BUF.CAM.O EXEC FM.AB IER. IFLG. O.BUF OPEN. TMP.WRITF @==h`8 P(mP([P(]P(_P(aP(cP(eP(gP(ip@(k`@(1@(k@(k`@p`@xxpHxG=BB `Q(C@88(GAS@ ` HhpXH( `````````(4@` (S`z(rA@p }TT`P( (S8888(c<4FMGR7  ~hQ7J`` +         s `Q @   )    { r e J:   13``   %7!X b l w     ! ,: DR  gw       ) 4 =M]``m      > J U ax  ERROR NOT DEFINED 000 BREAK-001 DISK ERROR -002 DUPLICATE FILE NAME-003 BACKSPACE ILLEGAL-004 RECORD Q``SIZE OF TYPE 2 FILE IS 0 OR UNDEFINED -005 RECORD LENGTH ILLEGAL-006 FILE NOT FOUND.-007 BAD FILE SECURITY CODE OR ILLEGAL WRITE ON LU 2 OR 3 -008 FILE OPEN OR LOCK REJECTED -009 ATTEMPT TO USB`S``E APOSN OR FORCE TO 1 A TYPE 0 FILE -010 NOT ENOUGH PARAMETERS-011 DCB NOT OPEN -012 EOF OR SOF ERROR -013 DISK LOCKED-014 DIRECTORY FULL -015 ILLEGAL NAME -016 ILLEGAL TYPE OR SIZE=0 -017 ILL5``EGAL READ/WRITE ON TYPE 0 FILE-018 ILLEGAL LU -019 ILLEGAL ACCESS TO SYSTEM DISK-020 ILLEGAL ACCESS LU-021 ILLEGAL DESTINATION LU -022 NO AVAILABLE SPOOL LU'S-023 NO AVAILABLE SPOOL FILES -0244`` NO MORE BATCH SWITCHES -025 NO SPLCON ROOM -026 QUEUE FULL OR MAX PENDING SPOOLS EXCEEDED-030 VALUE TOO LARGE FOR PARAMETER-032 DISK CARTRIDGE NOT FOUND -033 NOT ENOUGH ROOM ON DISK CARTRIDGE~s``-034 DISK ALREADY MOUNTED -035 MORE THAN 63 DISKS -036 LOCK ERROR ON DEVICE -037 ATTEMPT TO PURGE AN ACTIVE TYPE 6 FILE -038 ILLEGAL SCRATCH FILE NUMBER-039 SPOOL LU NOT MAPPED TO THE SPOOL DR[``IVER-040 LU NOT FOUND IN SST-041 NO ROOM IN SST -046 GREATER THAN 255 EXTENTS -047 NO AVAILABLE SESSION LU FOR SPOOL FILE -048 SPOOL NOT INITIALIZED OR SMP CANNOT BE SCHEDULED -049 COPY VERIFYO3`` FAILED -051 CANNOT CHANGE CRN ON MULTIPLY-MOUNTED CARTRIDGE-052 SPOOL SHUT DOWN((. SPOOL FILE SETUP FAILED.-099 DIRECTORY MANAGER EXEC REQUEST ABORTED -101 ILLEGAL PARAMETER IN D.RTR CALL-102 Iq``LLEGAL D.RTR CALL SEQUENCE-103 FILE DIRECTORY IS CORRUPT-104 REQUESTED EXTENT IS MISSING-105 D.RTR DIRECTORY BUFFER TOO SMALL -106 CORRUPT DIRECTORY ABOUT TO BE POSTED TO DISK -107 DISK ERROR;w`` ONLY CARTRIDGE LIST UPDATED 001 DISK ERROR-LU REPORTED 002 INITIALIZE LU 2! 003 INITIALIZE LU 3! 004 ILLEGAL RESPONSE TO 002 OR 003 005 REQUIRED TRACK NOT AVAILABLE - RELATIVE TAT POSITIO3XS``N REPORTED 006 FMGR SUSPENDED 007 CHECKSUM ERROR 008 D.RTR NOT LOADED 009 ID-SEGMENT NOT FOUND 010 INPUT ERROR 011 DO OF,XXXXX,8 ON NAMED PROGRAMS 012 DUPLICATE DISK LABEL OR LU 013 TR ST``ACK OVERFLOW 014 REQUIRED ID-SEGMENT OR ID-EXTENSION NOT FOUND 015 LS TRACK REPORT 016 INSUFFICIENT SYSTEM TRACKS FOR RP 017 ID SEGMENT NOT SET UP BY RP 018 PROGRAM NOT DORMANT 019 FILE NOT SE``T UP BY SP ON CURRENT SYSTEM 020 ILLEGAL TYPE 0 LU 021 ILLEGAL DISK SPECIFIED 022 COPY TERMINATED 023 DUPLICATE PROGRAM NAME. 038 ATTEMPT TO REMOVE ACTIVE TYPE 6 FILE 041 PROGRAM CANNOT BE Ais`` SEGMENT 042 LU CANNOT BE SWITCHED 043 LU NOT FOUND IN SST 044 NO MESSAGES WAITING 045 SESSION COMMAND ONLY 046 INSUFFICIENT CAPABILITY 047 SPOOL SETUP FAILED 048 GLOBAL SET OUT OF RANGE 049`` CAN'T RUN RP'ED PROG. OR PARTITION TOO SMALL 050 NOT ENOUGH PARAMETERS 051 ILLEGAL MASTER SECURITY CODE 052 ILLEGAL LU. 053 ILLEGAL LABEL OR ILABEL 054 DISK NOT MOUNTED 055 MISSING PARAMET.c3``ER 056 BAD PARAMETER 057 BAD TRACK NOT IN FILE AREA 058 LG AREA EMPTY OR TOO SMALL! 059 REPORTED TRACK UNAVAILABLE 060 DO YOU REALLY WANT TO PURGE THIS DISK? (YES OR NO). 061 DO A "DC" AND A`` "MC" ON THIS CR 062 MORE THEN 63 DISKS 063 EXCEEDING SESSION DISK LIMIT 064 NO DISKS AVAILABLE FROM DISK POOL 065 CONFLICT IN SST DEFINITION 066 NO ROOM IN SST 067 PROGRAM NOT FOUND 068 L``U NOT IN VARIABLE PART OF SST 069 JOB LOGON FAILED 070 SECTORS/TRACK VALUE TOO LARGE 071 DO "EX,SP" TO SAVE OR "EX,RP" TO RELEASE PRIVATE CARTRIDGES 072 LU NOT INTERACTIVE 073 ACCOUNT NOT F{S``OUND 074 JO COMMAND EXPECTED 075 CAN'T RESTORE TYPE 6 PGM (USER PROTECTED) 076 CAN'T RESTORE TYPE 6 PGM (GROUP PROTECTED) 077 CAN'T RESTORE TYPE 6 PGM (INSUFFICIENT CAPABILITY) 078 CAN'T RES``GGTORE TYPE 6 PGM (INTERNAL ERROR) 079 WARNING - RECORDS TRUNCATED TO 128 WORDS 080 CANNOT FIND NAMED EMA FMGR ERROR CODES ERROR MEANING `@f& AFM.CM Uc92084-1X137 REV.2340 830516 ;;@ #FM.ER@OPEN.{CLOS.gEC.HOCONV.IER. MSS. JER.  BRKF.CAMS. C.BUFHCAM.IpCAM.OECH. ;@BUF. ECHF.C.DLM.E.R.P.TR TMP. <<.ENTR.DIV .DRCTEXEC OPENFCLOSEPTERR.DFERIFBRK .TTY FM.AB .R.E. TTY. O.BUFACTV.CAD. NO.RDS.CAPOVRD.<`JWAITING FOR LU `AG :`A  `D?FMGR 000 `G - `Aa `G" `A`Hʴ@?p?`H) 3`B `C  :<<`b 0㢊t,td 6Zt| dtd,dtdtd<;;`b?B t| &dD,d,dt@d,!!&d;<<`aq:#Z,<Dtdt/&dD,5d,6dt@<==<<<``DD,Ld=@NT>6?=D@XdD@d,gdD,gd<;;`cdtt@X@d,pdt{vp$@6wdwDtttt;<<`\vPttttDttztztzzdwT,d<<<`^txdDtz4Xzd,d4txD,xD,Ķxz4z<::`cxxdytςw$xzydT,t 0&:;;`_$t ,d,AdwT,wtwĠZTl\  0,d;;;`_X,dtydtZwdt,t , 2ځt {dwt;<<`_"ZT,4ZT,3d,326ځ{{dwT,Adt?{{<;;`^ZAXdwT,`dX,KdttdDtDttdD,`_;;;`_E_Z{d,e4e{4Zfdf,px6f,vxxxpgx|w<x w;<<`b ~,wwD Zx|<tPtttDttPtt<;;`\t,d֬,dì,dì,,;::`^,ödìd֬dŢ,dtGd ,dtGdt:::`^v$GZtdDttDt$,,lʠP\ :;;`c%Z0,ddì4Zd&  , " t , d;;;`^,^tttt,%dtݢd,Td 6ttZ,8dtd;;;`\R9Dtd,BD,H۴l H`Pd,OZt,SDtڶt,"; hPK.. vc92084-1X138 REV.6000 920908 @PK.. q<<.ENTR.MPY .DIV .DRCTCONV.D.RIODR.RDEXEC FM.ER IER. LOCK. MSS. READF RWNDFWRITFTRAK..DAD .DSB .DMP <00ӌJER. NAM..IFBRKLIMEM.E.R..IDAD.R.E.CUSE.D. D.SDRDS.LUI.BUFO.BUF OVRD.!PK.DR"0 `Da@ `C(DISK =`A`_`Aa_`I" - 6`A`:`C= `AdQA`A`C`A`E `DH `AM `A`S`CY$ `CX~^ `D`b `A`g::`cm ndoXtt"td,d,Ptq :;;``o$Z$ !,d T%,d, , dtd"tt",d,d;;;`a t!d#t,dt!d"t$!& $'(,)!,d*pqt+;<<``_2Jt, t1PD't0t/t.t-t9Pt8t7t6D:t5D$t4t3<;;`\t2d1t;,d;t;d1D=t<D;,;,d,10d>9d?8@;;;`]\ 7A6d1t;Z,d;t;d;ZD6,!d;DCtB;B,%,D ,ADE;::`^2*X:T$,9$3FGdGHtGDI,=dJtGd,fdNtN,]tNtWH N ;;;`\I,t+NdN,T^д.T/L._t]`P,e_`,e`t];::`c|ea@D'- 6]t\,wd\t\~$b\/17dC9d'02B  :<<``uP,P, P dWtW!Z,dNtN,C,dPt;,d;t;<<<`abPdPDcD;Z,;,dWt;,d;t;-Ddb D;,ɆB P ,<;;`b61edeJ/d!4:tfg$Af7)& ')thZtidh,it  ;;;``B;$&$J&Std,dDbtB,qPd+T>,ڬdD+tPD$tR;;;`_d tDtTt@ZD'tatLd+PDCt+ B7tjtk,2|lh;;;``a*d)mdm,8mdm|ktkd)(@ @@jt\t];;;`\uXJt;,Pd;Zt;d],Ud),VdSD\D;,tdMtVZ,bdVtVdMD&DV;""`PRf,sV,rd;V,r,_,M " ԢCR.. c92084-1X139 REV.2340 800731 @CR.. W--).ENTR.DRCTCREA.EXEC IER. NAM..RMPAR.E.R.D. N.OPL O.BUF PK.DR S.CAP .MVW -`A`T`B`g`Us!REWRBOBSFSEO@PA@LE((`A9 `Id;??BIAS `EF  ;;`bb$M78+4T JDt tZttDZtdUtDtDtD;;;`]"otDttZDttd"t ,~d t Pd"D#D Z, ,{,;;;`^]t0  !,d$VW6WD%,D&,,T',d(t;<<`][+T),tZT*,d+Ztd,,T,,d(tT-P,t<;;`[&ǴZT*,d+Ztd,T.,d/tZT0,d1tT2,d3t;::`^ZD4,Z5t, 9$678,d1t:d6;t6D<,d6D=:;;`[,d6D>,d6T?,d8@t8T!,Zd8T,d/t:,d6T3,d3;<<`\t:A4:td,,;D4,/ 5tZTB,5d/tTC<<<`^W7Z,;d,At Dtd4 tF@, tDd"tEdt ,Ud t <;;`cUPdDD ,b EdEtE,Rd FoH G$!DII0Jr d Z,xd VW;<<`b(xP tKtLH $GIKLI&M d VWdOVڬWdPVWdQVWd$V<`JkZWd ,dRV,dSVW CN.. c92084-1X140 REV.2340 830615 @ѧCN.. *$$ V.ENTR.DRCT.E.R.I.BUFN.OPLN.OPTNOCM.NAMF IER. OPEN. CLOS. $`B`y2`B`\`C``A`a `A`h$<<`b&qP'dD,4d)*d(Pttt t t Xt t Ptt<;;`]HDtDtDtDtP U ,cddD ,m ;::`^ed dZD tttttdl  X, :;;`br0 Dt! "#d,dtd,d!td l\! T;66`b_c,dD$ldDl2% & ,Đ0Ѐ Ƭ*6 ߼.PARS c92084-1X141 REV.2440 850201 @[.PARS<<̴.ENTR.MPY .DLD .DST .DRCTTTY. N.OPLN.OPT.E.R. P.RAM NOCM. G0.. CAD. ECH. ACTV.C.DLMC.TABCUSE.C.BUF<!! }]O.BUFSCR. OVRD.S.CAPCAPCKFM.EREC.HOCNUMDMSS. .MVW !`ASY`AaE`C`p `A`:`A`,`B`6 `A`#P `FD'-+/JO `Ea2/GS( `B`N6`C9SV`A`=@`A? `AA`AC@`A"K `A`NB`B`P`Jp`T .J?;;`_$_|l5Z |Zt_| l\,zt d5!<dT ,;;;`[a~d ,Dtd kdt t dkdT,tt,_T,dT;;;`]7,dt,dd dDtP,dD,dDtt;<<`_WBBddtdtttttZt!ttXt DDtZttt"D#<;;`^Eբtt$td ,d,P_T,zt%dt&t ttt Z,k,d;<<`\T',dT(,,d$, dT*, ZdT), , ,,,k<;;`],d tdP,kdT+,t$,Zt%,k,,PdT/,1;<<`\,t-d0t.,BZdT1,8d2t-,.dT#,Ad3t-t.,B,d,,L<;;`_Hk,,EDt4d%.D-t5D6,kd5D,id5D7l.\0 0;;;`\ gJ,k D5t5d&tt d.T ,x5t.d5t5d.T ,5t,dt;;;`^~d'tk2J  t5d.,d5tt td9t8D8t8,_k,d4;::`^Utt_,d Zt ttd"DD tkd"D@t@dl!@d t :<<`b(,dT:,d;t Httt,dtP DZ,,В tT+,d?t t,Yd;::`^٠@t@td,dt55A>,}d5D*t55,z,dJCtBtFPtEtD:<<`_Zt5E,"dDtFd55LP  EZ,5d5ZtFt5,"dt5d5F,B5<<<`Z;A>,}d5D*t5,7DtFd5TF,T5A>,PdB,},d5D*t5,DE<;;`_UtFd5TF,|5A>,xdtI|J$g!ItG|HdGT,,zdHlB  ;<<`]t,},d5D*t5,W,z5td5t ,dKt t,YDt4dtLdTM,<<<`[TZd-TN,d6tDLtL,dtdMtt%dTL,_T ,,dT.<<<`^é,dT'Z,d%t%,dT(,,3,ZdO,3d%>P@d4t_<;;`_?ʢdR,dSZtSDT,OPTU,d DT,dRDS>Xd DT,HD |I;;;`^vVDIDSOdT,ZdSTV,,tStRd0 Dt@d>tM;::`^tt.dMD,zO>@d,@,dT,/Zd DW,'d,zd :::`^%Jt ,tId VDItRZd t ,dUOd tdMD9ZD,?kZ,7,td:;;``(CZD,IkX,Bd ,Yd DX,Yd Jttd Yt dATP,bDZ |I;;;`_U\cPld,i ڬkd"HD@t6*D tdl!PdZ,@d,d4t;;;`aZd;t t,Yd,}dT,,d,,@,4B[\;11`ZPH&dtd]tkd tkd D@t^ ^144Xk;REA.C 92084-1X142 REV.2340 810225 P92084/&REA*C::PCO4 B*REA.C XXB$TIME .E.R. .MVWC.BUF C.TAB CAM.I CRSK. ECH.EDSK. IFBRK MSS.NXTK. PCIBF READF REIOTPSK. TTY. WRITF Xr  `;p+`G(pG(+'>>(p(p`p`(hDp`p;p=p2pHp'`0p)A I}) (Ԉx<`{p>(bP(N(W>(bPPP(`38(S>(b3(^`2p<Ye??5p`3p=p2`@{pPz(((`PP(hH(P(H(| xh85Sp>(P(8(A H`*HhH~(HP((}}K<<p=>(PP((D`pp(`h @(܀`(!8(h`xhG }~~@@(HhH; H` H8px 8`P(3`h(EX,SP,,KIL@(`(((H`@pp(h5XH~+ >>#8!נ!!נ#ap_D`P(.爀8_(4(Ca(E(C(=(.(C(.a(E(C(I(Cp'p(>(|PPPP(PP( m^<>hH5X(RHS8H8IIapHaH` Sp_>(oP(drp``_@`(c`_ss?pRRa @|a@`r( EXIT LOG TELL ANNOTACREATEPURGE STORE DUMP LIST OFF TRANSFPAUSE SET CALCULJOB EOJ ABORT HELP CLALL COPY s@Zyb44Xskk;PCIBF 92084-1X143 REV.2121 800428 P92084/&PCIBF::PCO4 .PCIBF .ENTR CRSK. EDSK. NXTK. TPSK. gEEhHx`pj(ph (8H8(`A( \("( H`Ai@@( HHjDp`pHH88H88(5p@PAOOr4E&&@jp ׈H@@p??@ h@X?(X8?8@?(Q`@HpAp[jH@P(gHp8\`[\?O@B< EE.. $c92084-1X144 REV.2440 840608 @ӰEE.. <<<f.ENTR.DRCTFM.ERCLOS.EXEC GTSCB((CLOSECONV..SETB CUSE. CAD. I.BUF S.TTY S.CAPACTV.SM.BFL.SEGABX..$SMLK<j$SMST$SMDL$SMID$LGOF`CALGOFF `A`K`Bd'  `Bc @`BFMRP`OISPRGKIG8  `F_.GR77 `A`5 ;;`_7G9d:tDtDt D t tt D t t td;;;`_Vt4dtdtZdtdtd ,g&#dD%,md#td, T,;;;`au&T',ܴ( Q Q Q Q0t %dTX,td(t;;;`]{T,d4)t,:,ȒlLH|dDT*,dDPtD;;;`\` tdtZDt,dPtZ,,!,,T ,d+;<;<<`b2ϢT!,d4tT",ܶd4,tdZ, D.t--/&/0 T<<<`b,T1,&T,X,t d2t , d,d,Bd  &3, <`Q#D5t6 $604!7d8;< TR.. c92084-1X145 REV.2340 790403 @TR.. 330.ENTR.MPY .DRCTOPEN.READFIER. GLOBSP.TR CAMS. CAM.I .E.R. ACTV. N.OPL S.CAPOVRD.ABX..3`B`R `C @`A`V  `Gaf 0 ;;``z2Z DtDtdttDtd,1dtZ,CdD ;;;``89 t  D ,Cd ,}t Z,R t ,^dD t  D ;<<``iYJ,^ t d tDtDtd DD ,d ,sdD Ptd,xtd <<<`aytt,Zt tt J DD,dt $ !,d<;;``jT 0Xd ,dX,dtt dt ,Rd dZ,,T,;`J*B 0, LSA.. ac92084-1X146 REV.2340 830701 @SA.. j<<jt9dt!d:tP?G!,L;;;`bId<ijt;D0@t)d; D)t"d=t#,0[d &>5[2Pe t@;::`^^Ckt?d3,tDDtCPtBtAtJtItHZtGtFDKZtEL,d0:;;`[e,dDdC LMBAEd2H?tND0JdOIDT0,P;::`^,$GQFH "tRt3tS-dS,ϴZdST(,dtSt5e:;;``¶tSdhTT,-"t5dRDNe ӆ (@,@t5H|U ?U;::`^Z ( ,?PVTW,tS?VTV,XYTZ,tSe&[d&,>:<<`a3D\ ]l] ,'6 d  H|^d t_,d_t_d_D^,,T<;;`` =!Z_dTtTdTT`,+-+B, -B5h 7dhtTDOZt`dRtR-;;;`]ӆA6?bMtcLMDcZtdL,QP,R$dtebfDetaP,^da ?; `C^da?  ܵMR.. c92084-1X147 REV.2340 830630 @ۢMR.. !<<+_.ENTR.DIV .DRCTO.BUFI.BUFBUF. N.OPL.E.R.CK.SM READF OPEN. CNUMD MSS. EXEC JER. .DFERWRLG.EFLG.MESSS<`CLG, 2`Ce|`Bh) `E`  : `D` `A@Y;;`bJ@B,*d X!dt 03Z,ft,= ;;;`aK,(62?@H\5,dD<;;`[Y:PD6tCtBtACTE,MZBTF,MA94HTG,N,dZqp')$ZEa,gdaZ@YZD,XdsWdVtJ,YdJtJdJD^,a<;;`_^J,Vd`]\[,d@,ZPYDaXdsWdVtJ,;;;`_~h}dJtJdJD^,J,}d`]Dt\,\$u\X[t";;;`_,/tr@tp%$&aq&p+d"tJ,dJtJd"Dv DJ,rJdrtr,;;;`_d2,d"Dwtx ƀxs0' ,δ d"Dwd"DHtJ,dJDwtJd"DyDJ;;;`d,Z,J,Ґ@tz%a0aqz'@t{%&aaq{6+,daZX;;;`a@YdsWdVtJ,dJtJdJD[,J,%&aa}K"P|t 4;<<`cHXt~t$(,d0Btt01$& ,jd,@ 9,=d,>dt,Bdt<;;`\Bdt,HdDwtdD,]t,RdtdD,\d~DD ,O,E;<<`c^$ba Z,jdtdt,,dt0$pbt#sdtctdt*c,<<<`bZdcTs,֢,"d2,d0tdct0 ac'dt0(d2D.t"?<<<``^DtJ'6"d2DPD"tDt,6,d2D1ZtDt,<<<`])ä5,dcT,dtc@tdt,|st`dtJ,dJtJdJD<<<`[J,d`Jt`,dtJ,dJtJdJD,d`Jt`,d>;;;`au&*d?>T@,4d,1'"ڀ,dD*ZTA,1dDBt>>&*d?;;;`]>, dD, >tCdDBt>ETF,dD,d>tC@dC,dD,";;;`_ѼDC$Hl)LItG)*+-GdJdKXd,`dT*,R,B;;;`_>ZTB,d t,JdD,Od`$Hl)LIZ:T,YdLPdTB,`;;;`b<]9c0@fM ,i,u'l ,d,sdN,tdDt#9,.|"ЀM ,|O;<<`_! OP!6*QTN,:9,d(DR,(9,d(Nt#:,:<;;`]gl(LR,ﶀd#l#\@ TN,dSd(D,d>t>Zd>D],dt^d>;;;`]f,>d,VdT*,5d*t>,%d>t>d>D`,. d)D> ,"d*)d)DB;;;`_0b2lN,=d)DdUT*,n;::`^¶>,dUTB,o>,$@Um@&XD>Dm,dp,dm>7ts:<<``/ҢDbtqtr6ttDr,dtDrQ@Dt,dUT*,vQQQ@D=tu<<<`_IXDs, &wdudx "mDt,d5Dztyd5t>,d>Dd><;;``VZDy,>,,  Wt{dt|dT*,9|,Kt^-$@9D!,7,7;<<`a{16@:D,KdSdTB,J@@DWt}}~}J*,dTB,dgtq,<;;`aR/1 *td,j49,je,jd,dsZ3,PdtDb;<<`^Js .,PZdt/,PdDl1,PZd{T*,&d{TB,ct^<;;`\&^8D-ZdD,dD+94ds3dq,2ds.dDl1;<<`]pdtDb0dt/dt>Z,d>t>d>D,dD>Dl-L>P,dq,<<<``$ʂd,dt>,dt>dg,,d-Dt^$^#&,Z,d-Dt_<;;`_ʌꄒ_#&d>t>,d>t>d>D, d-D> ,XdUT*,2dUTB, ;;;``(  t*:Z ,/t>,d>t>d>D,$d-D> ,dq,+dt;;;`b)tq,dt,9|40X*d,; $;9;dUT*,C+C$6sdUTB,K+K%s;;;`gnKO;Xd,Y%W$XU3 , &\b*#@d#4t^k@^@t"DX,Yd;<<`^SrWtD,zdtdWZtD,dtd4tTZ,tq,<<<`]UtXdT,d,,dTJ,t$,,Yd,d,d,d,d<;;`b5,dd', :4;6TB,dZ,d ;;;`]Ϣdg,3t>ZDs,d>t,dtPDsD,dtuPuT,;;;`^섚uM,ۄ;XǶdstudg,db,D>tt,dDXtduD;;;``} , &Md,,,dutZ,dtdZD,+M,**$;;;`]@N*B,,Dt>d5t,9dD,,6 &Ewd>; `E<GK;X, 22XH"x 5 ;MC..92084-1X153 REV.2540 850802 P92084/&MC::PCO 2 [MC.. ))#.ENTR CNUMD DCMCEXECFM.ER LUTRU NAM.. SESSN )]AAAp̈ppppЈpp(ph(P( (pp@A(x) (0.(8(hԈHP( Pʈ(AP(@(8AAA8(HP( (p̀8(HP( p p pЀ8( P( (Apxs `@(h8(H(yyaLLpX(pphxx((AA`(CRN =  ```` +258?IG P y@K 44X=~! 8RC..92084-1X154 REV.6000 920908 /SRC_92084/R6000/&RC4 `RC.. %%f.ENTR CNUMD DCMCFM.ER NAM.. SESSN TRAK. %EEAp()pπh (+p!(`p("8("HAPp((-``px(5P(}`p>(DAD`vvEEEh `hX`pX(bh ([`p(l`p(l`p`ApsA|AvGG33 28 RRDISK CRN (( LU DISMOUNTED FROM S (POOL)YSTEM ESSION INACTIVE G@۔22Xk;;AC..92084-1X155 REV.2340 790129 P92084/&AC::PCO 2 OAC.. 6.ENTR DCMCSESSN @@Apxpypzp{p|p} (d(fph(f (jpw8(ZHoPn(j Pv(1Pu(0(j8x8(ZHoPo(j (jpy8(Zii@::HoPn(h pz p{ p|8(Z Po(j (jAp}cmwxyz}(l`q`r`s`t-258G P i @} @gi) 3LI.. =c92084-1X156 REV.2340 810622 @LI.. p<<R.ENTR.DIV .DRCT.TTY NAM..JER. .E.R.BUF. I.BUF N.OPL O.BUF TMP. CONV. ELOCFEXEC FSTATLOCF OPEN.READF<fWRITF`Abi!`I| 8A D B S `Ba]`Aan `C#!?`B(  `F.+ T=  ION `J A2 CR  LU USING`A>*B `D i@ BLKR= `CF ** `DJREC# `BbO`BR `AaW$`AaY`Aa[`C`b^``C b00 0 `Ef0 _ <<`^m6mdttZt dnt Dt Dt Dt  Dt Z t ,d <;;`[,d t d ,dopd T,d TZ,t,d T,d T,;;;`cMdt,d T,dopdZt  DtB 0   ;<<`b$dZ,d,dT,dT,ڶdt  0 6dnDt"<;;`]"ZD#t!tdP$D%,tt&d"t',d'Pt'd'D!,d)',;;;`bD"t*+,d*D-t* *./4Z0d,I423*$4((;;;`\z*d5t''6T,4d'Dt',,Zd'D-t'd.Zt1d*t*d'*B*,Hd*;;;`^Ft*,Y,Q78dt'd-Xt1d*t* $Y'*1d,_d t1,9:;<<`c/}d6;d*Dt* D.t<<X,z<t= $w=*.6>,< -t? $?*.<<<`_4@ABd*D-t* *dCt1d T,dF,tEtDd)Ed <;;`\ t*dDt',d't'dDD1ZD',*Z'd*t*,nT,dDt*lG;<<`]dG*dGD d T,2PdTH,Jtt= D-Zl=tId DJ,d<<<`bR,dDK,d tIdEt*LM6)d*D-t* $I*.2 O&PNIdTP<<<`^|,dID P,dNP,dID ,dPopd ,d DI,7dNDt1<<<`^Xd T,- $(Id)ttN,2d.t1 2dRZtQdN,KdITS,?tI<;;`\t=t ,BdItId ,JdID ,,dDtUt'DCtTt*dWtVDVtV,_;;;`\-Yd)'d't',TtXd[tZDZtZ,Q6t\Q6t]d\D^l\L_  ;;;`cGul\L`  0,dt\d]D^l]L_  l]L`  Z0,d;;;`\rZt]d\D]*d*t*Qt'(tadXP,dal' ӴZ|'t=`bD=Dc,da;;;`]DdUd-teZDete,d't'bl' |'t=`bD=DclU |U,dX;;;`^cѴP,d'b״PDflU |UdUtUdXPtXdQtQZDNtN,,cD*t*T);;;`_/tP,dDD*t1TDgT ,4 &PEYp|<d*t*;;;`]d&,d1Dh,dWt1dD D1HiTj,#d1Zt1dDDl1Ltk|l;$$`RD+20 kl  t1Dt'd)D d'D2$ *DL.. 1c92084-1X157 REV.2340 831013 @6DL.. <<=.ENTR.DIV .DRCTMCFLGPK.DRTMP. O.BUF.E.R.CL.BF BUF. N.OPL F.TST MSC. .TTY NAM..F.SETDR.RDLOCF WRITF< OPEN.CONV.FSTATSESSNISMVELOCK.JER. $SMID$$CPU::`m ILAB=YYYYYY NXTR= XXXXX NXSEC=XXX #SEC/TR=XXX LAST TR=XXXXX #DR TR=XX NAME TYPE SI:--`bf-ZE/LU OPEN TO NAME TYPE SIZE/LU SCODE TRACK SEC OPEN TO -`C @P BLKS `Adl\`Bp``Cc `B`g3`Bdj6`Bam`A`q`A`w`CzCR=  `F"$# `A` `E P P `Gy?? (LU) *B- + `G. p- Q `Fa$+ `Ba;;`aD"Pt^ԔZtOtStTtUtVtWdtZtYtXdZt[ZtZ$؀\ ;;;`cٶ,|]]$^_`d_TaX,tV tb $c`VTe@, ,YTd;;;`bQ,XTd,!,tU [  tZ,tU2[ tZdDgtf;<<`af,* $4ZftT,*dhZtijZDi,5diti,,; c`V"=!,B<;;`]?dkdZ,GdZ,JbmZtldZ,UdbDnZ,totpDetf;;;`du\dS,eefq2off$ffrS$Zrr,vd`,wdqts tuttddu;;;`b$lev$lwtx$`lo!P,do,,dk"!,tpdoto,;<<`\?dttydpDoDz,*d{ytWdyl|dyZDelddyDgdyDn}dyDntx<<<`fsx,˶dyDet~$Ҁ}~w&ugԀ& watxxeခe<<<`aAH|x$xwtxx#6ndt,dtdD,dt<;;`_], ' dT,5,$'6dtDntDetDett;;;`^A$tttZ,,,dU,8 6,dttf,>dftfdtDDf;;;`\B,Hddf,;dtdtDtf,QdftfPdtDDf,^fdt,N;;;`\n]^dtDtf,edftfdtDZDf,oddf,bdttf,udftfdfD,;::`^%zfdt,r}4Zw},txx&ڀnddd,:;;`a,txxwd, nt~~wdT,dtDtyDntr;;;``,?DetDntDnZt,dXytx$xrw,ٶrҀr,ـ$rw;<<``٢},$ڀwmtxx6edtr}Z,mtf,ddtx<<<`_fxe,odtDt,odXt,nd,d`,ZTO,d`,<<<`]Zdqt,HZmH|ydyZDi,EjDyDtyy,Bdytf,4dftfdy<;;`]5DnDf,Afrdrtr,1,D,G,`ddZrdrtrldP;<<`^RtxXxr4Z`drtrlPdrtrDrtfft~,kd,ld4~f,dt<<<`]~pZDtyDytyTd,rdtDytdutfZdD,$udDtdtDtf<;;`_Ot,dtPdtDD,dd,f,Bf4ZdZ,dbDg;;;`]tb,BdW,d4PdZ, ЬdbtdZP,dZtt,dZt;;;`]ɶdbDntbt,d,bmbdb,dDn, tb db;::`^zDgtbdDgtP, tbdpT,DptDet}tt:;;`b:/PttttdpDtp dDsP Lst|%;`Ko&'ddt0u`'44XYyk);F.SET 92084-1X158 REV.2340 760719 P92084/&F*SET::PCO4 F.SET MF.TST  b.ENTR N.OPL ]??A#p:xB#p;xC#p<xD`Kp1p=p>xE81xFp?1xG@p@1xHpA9PI h9PJH88# 81ppb?::--LLBP: (wCP; (wDP< (wFP? (w  GP@ (wHPA (wEP=P>Mp@9 PU.. c92084-1X159 REV.2340 790319 @ަPU.. "** G.ENTR.MPY .DIV .DRCT.E.R.I.BUFN.OPLPK.DRDR.RD IER. LOCK. MSS. PURGE *`CXY*`A`?`C` 6`A`V`A`U`A`B@h;;`d@Ztd tϔZdT,3dtdT,9 6J8"t;;;`aY=ttt H " !,Md !Z"DtZt t dt ]$!;;;`^^,c b"tZQQQttttdTZ,dtd;<<`b.|D 6ڀt t,u  HZL|B DtDtd<;;`_dt $Z!,d !"dDt,dD,d!,d((t;--`[o !,d !,Ǣdt &" 24- "DP.. &c92084-1X160 REV.2340 760511 @҆DP.. .ENTR.DRCTEXEC C.BUFECH. CAM.OC.DLM`AaA`AD 55``+dtdtL54 |JDDt%45 RU.. c92084-1X161 REV.2340 801223 @RU.. X<<µ.ENTR.DLD .DST .DRCTBUMP.SET.TEXEC RMPARFM.ER IDRPL IDRPD READF IER. OPEN OPEN.CLOSE.RENMSESSNIFMTM<<<WRITF.DFERID.A TL. .E.R.O.BUFTL.P CAD. ACTV.NO.RDG0.. BUF. C.BUF ECH. !TMP. "SCR. #..BF.$..BL.%N.OPL&<`T ABEND XXXXX ABORTED ABEND JOB LIMIT `BRUN  `D+ !28 `CdH1`A5IH`V8#)р (:05;;`_PC1"Ut't(t)d+t*U,gd,WXVT-,md.WXdV;;;`^otD-t0t/tD1tD1tD1tD1t0P,dT2 ,t/d!t';;;`d3!,Xt4$X4 ,d&T5, )d,dWWX ,st6;<<`cSD89t7,d ,,Ȇ!t(d:t*&P%%d#T5,t'|4l;<;;`eԄ</$ 6',g2tT;Z,D=t44d(,!!*t>;;;`d=XT?,9&  @& Ad,9"D-t42"4BPd*DBZ,-d&,-d(;::`h~,"B(6HCdDtt 0-3&PAdTEP,9td),@ @DF;d:;;`c EX,IdW 4XKWX$TG2 H|!d!DIXd!Xd JTK,ftZd DLt X|;<<`dJhl!*d),dTM,&ZtNtOd%DPt4B$0F&O4dP,dTQ,<<<`fׯZdRtdWXH $0S D89t7, 2$2 $d,dWW<##`SZXt),dTWd), %$F;X# hST.DU qc92084-1X162 REV.2340 810710  @tDU.. ST.. u <<ns.ENTR.MPY .DRCTI.BUFO.BUFBUF. N.OPL.E.R.OPEN. MSS. IER. CK.SM ECREA ELOCFECLOSREADFWRITFRWNDFEXEC <&.DDI .DMP .DSB IFBRK`I` `A`]`B`7`Aq0`Aat3`A5  `D,7MSAS `L;<BRBNBAMTSAIH8! `DpMO' `B@U `DX  `BaO] `A`a`Aa$c `D`e `FǷj ?  <<`byqZrt$rstu6dDtDtDtdtDtD<<<`]ftDtDtDtD,d t!t"Zt#t$t%t&t't(<;;`[t)t*t+t,t-t.d0t/,t.d#t"t1d3t2d5t4d7t6;;;`\E,)T8,t+d&Zt%dtT5,)T9,t1d:t2d5t4,);;;`\_PT<,t1d=t2t*t;t4d>t6,)T?,t1d=t2t4,);;;`\&T@,t1dAt2t*t;t4dBt6,)d+,&TC,)TD,t),<;;;`\fPTE,&t/,,d=t2dKTB,dAt2d24/t2D>tT<<<`^PDMtStRtQDM,,tH DV4.,S,Z|WdK,dK<::`^ʳ,d6SRZ,R,RT,XZlX ,RhdY XdX,:<<``srXdXR,dK,XdZZ6,[dY6XdX dXDM Q,<;;`aBdXD7Q,dK,dLQPlXL7dTt\ $ST\&] d2D^tH ;::`cO0THB%$I_` 'dKTa,0d#DM |Kd`Ta,@ d!DM |`:;;``4A9Zd!DBD^l!LBd+,Nd.,Nt+t(d&t%Xt$d',f&X"%c0b ;;;`^[Y6ZdbD,eD't'c, ,Nd%tdZ,lddtdd%DeDd,vd4d,i;::`cw2}%c0b, PdTf,Ptb,dTg, ,# db ,db,:<<`^""dK,t-,D-t-P,d), Ztb,tbd/,,Ld(Z,%,%<<<``J,%@Ztbd%tI,Ķd%tId*,؄ ˀI; P,Il;BLUtH`7DHtb<;;``%t,dbZ,d+,db$dbtbZ,d-,d`X,tb2$bdTh;;;`b>`p5 @P(`P(WP(YP([P(]P(_(F8(`8(`8(`8(`8 8(DhHP(F p hHP(F p mBDDp(hH(x(Dpp(g`Ip`Ip`h 0h 0p`(`(`(B(DP(:(GAp(0hJJ`(A(>`(Axx  P(P(3P(3(h ( A(  ( ??`P(3P(3P(3`H(h `Ax+ / (p )(:hx )hx *hx +(G(G`(G`(3`(G`(G`(G`pR22T(Md`(GhXIhdXɨIX(bhXˀII23386eeefAp Hgx`pA{`e`fg344"$$  .38<?C D E P V q------4 @BUa44X{9k4;CL.SH 92084-1X164 REV.2340 810305 P92084/&CL*SH::PCO4 ICL.SH t.ENTR D.RIO D.SDR LUTRU oo99AA 4 h8(-6(H5(H5(H26H5 A7)h0P3`1o@5Tl55X k4';GTFIL 92084-1X165 REV.2121 800319 !!P92084/>FIL::PCO5 L GTFIL %.ENTR DR.RD F.TST PK.DR CC(ppp p(P(,AP((#!(.`(*(`(`(`@p ((hHxH (=8 x (Kh (TCDD`h(RP((`(.(p`h(\(^(^phH(Kg(K`h@  ( @(Gh   _@(sG355Xkk46;IF.ER 92084-1X167 REV.2340 800314 !!P92084/&IF*ER::PCO5 2IF.ER PD.ENTR MSS. A@p 0@Rqe77Xr~" 8CLR.C 92084-1X168 REV.6000 920908 /SRC_92084/R6000/&CLR*C 7 CLR.C .. .ENTR C.BUF CAM.O CHK.X DR.RD LOCK. PK.DR REIOTTY..F0CCA@`( ky`0tphAjho(H`Pw(PxA(c(#ji!(*hqhp``p `up 2vhnHnx@spgHv A8g(:CleAAeC""`eKki`spghvpf 8gA(P8fZkf!(Tame`e`rADDF-i//$+6< YENOFMGR 060 DO YOU REALLY WANT TO PURGE THIS DISK? (YES OR NO).D@/Ng SP.. c92084-1X169 REV.2340 830511 (( @SP.. <<a.ENTR.MPY .DRCTCREA.EXEC IER. READFRWNDFWRITF ISMVE SESSN ID.A IXGET .E.R.D.SDRN.OPLO.BUFI.BUFS.CAP< OVRD.$OPSY$IDEX$CL1 $CL2 $SMID$SMGP$EMTB$#SEC`A`u2`B`P`C`   `GaL `Cܠ!"|`A`f `D` 8 `F^8/ `A_x7`C`C`BTXH`B5OPRGR`AaV`B[@`Aa_`Baa`Ag`Ci$j;;``A~2~ott~,ddtDtDtt !,;;;`\p d t D t Dt ttdt,dtdD D,,;<<`]bd t,dtd DD, 6dt,dDtd Dt,d<<<`_td DXD, &dt,d Dt l |dDtd <;;`_Dt Zdtd Dt  tt&tD ;::`^;,$dT!,'d l\" T 0,'d#dlP\/ T!Z,$:;;`_83,8$0$%,%1D&t &Dt H642'dt Q1;<<``MRX(dt &Y3)dt aX*dt &h+),)4/Dt<;;`^r u,dt5 |5-dDt6 &67.ZCt8,:9dtd;t;;;`]GZ,dtdZD<,dZt,d=t,dPtdD>,,;<<`]Fd?t,dPtdD:,,d@t,dtdD$,,dA<;;`\ʶt,dtdDB,,d DDt d DEt @F?GHG;;;`cɴXtKtM $ZI ,&|J JKL0 JM$PND,TO, L42L,;<<`] TP,d#ڬN42NT,!D0  Z0,$d#Q<;;`_O&PtUtTtStRdVRd"TtW  T/,FYtXS;;;`aRE,Q I;t MYDtX Sd,YXdtZd4[t^!,hd\d,gdZ;;;`e~f td,mdZtoD ԔJt]t^$_]^Da`td=t;<<`a Z,dtdZDB,cc, BDCtdt 6 4t<<<`^l=e 6 gf 4Z 7hSidV>dj9dT,ȶk?,dT<;;`^/,l?,ZD@Dt tZD,dtd4?ZImn@;;;`d=0d&F_dXZD tX,dV,d_t F4 dX,;::`cE    DQQQ@to t=tptetfPthti:;;``x/t>t9t?Ptmttt:tstnPtt@tFtGtrPtqtxt$;;;``[Ot;twtYPt<tAtvt%tuPt|t{tztWtyPtBtct`;..`XRot't(t)Pt*t+t,t-t.PtLtNtQt}. MS.. c92084-1X170 REV.2340 810519 @۱MS.. /<<}.ENTROPEN.IWRISWEOFSREADFEXEC MSS. FM.ERCONV. PRTM TATMP WRIS IPUT JER. ID.A BUF. I.BUFN.OPLCUSE.< .E.R.`K LS LU X TRACK XXXEDIT `D`[ `A^ `A`e`Ca) `FO ::`c%FIH,d-tDt Dt = &@ ,Ed ,Fdt:<<``nqH$ZJ!,Od./tDtT,Zd./`&ctd,k<;;`ehd./dt t&d t |!"$#%$d$;;;``Ic,d$t 4Zd,d./,0 &tZ,dt'&;55`^* D,X(, $,d)t T*, +0 /522XVbk;;VL..92084-1X587 REV.2340 830701 P92084/&VL::PCO 2 eVL.. &&\$DSCS $LIBR $LIBX $SCRN .ENTR CL.BF FSTAT &DDA( 8( ,(&XZ( ((XR((PW((PX((@ A`U`Y+4^V+ hS(Pp\x]H_`ap[;;/LD(PP\(KH`8[(B(PH]HXA,8 @;@1922X>\k;1;RP..92084-1X171 REV.2340 801223 P92084/&RP::PCO 2 aRP.. @@ 9 ..BF. ..BL. .E.R. .ENTR CLOSE EXECIDRPD IDRPL IDSGA IER.MSS. N.OPL OPEN@,GGA`@Up ( A!(AY( (0A V[`@W `Ap,- (2`XSpT8` @ZpRAA V TRC H ++CG, L N`(0 +@44X\Tk;.RENM 92084-1X172 REV.2340 780630 P92084/&*RENM::PCO4 H.RENM !!Z.DFER .ENTR CONV. IDDUP IDSGA S.TTY !FFFAAQPGQMPO`N0QpQ(XOhN`PH0OxRpS (7@LpPA)Q(FPH(FPIPJ(:PK(=(FQ(F@Q($@LP(7F. @1 O44Xk;..BF. 92084-1X173 REV.2340 801223 P92084/&**BF*::PCO4%..BF. ..BL.   @ + VSY.. Oc92084-1X174 REV.2440 850201 @SY..  .ENTR.DRCTMESSSEXEC O.BUFECH. CAM.OS.CAPOVRD. `Bd3 `BE@<<`d B  ZtXDtdP,6d Z,+dDDt)6t,5dDD<66`a.t4t,@dDDt ?2 td,II &JD  6 TCL.. ]c92084-1X175 REV.6000 920908 @CL.. s<<@~.ENTR.DIV .DRCTOPEN.IER. WRITFFSTATCONV.OPEN CLOSE GTSCB MSS. PGS. ACNAMIFBRK.DFERNAM...E.R.CL.BF<'' O.BUFOVRD.SM.BFSCR. S.CAPTMP. $SMGP$SMID$SMLK$SMST$ACFL$ACSC'((`^^+@CCT! LU LAST TRACK CR LOCK P/G/S USER/GROUP (`J#File System Disk LU `B`s.`C1   `D6A  `Aa|;`C`A`BaK`AQ`BaV `A`Y  `Dd] . `A`d`Apf`Cdh # `DK!lS P G  `A`q;;`d}ssJD.t-tJtIPtFtGԔJtPtOB-4X/d1t0d2;;;`e43tT6,Zd7t4t5,Xd8t4t5249;9$5:;<<`_69d0DAt@DBt?DCt>DBt=XDCt<t:d, &JKDlFZLGH|EdEDI<<<`dtHdEDJZtE,tHtEdl  T60X,dtMd4Qt $N9OPdM<;;`dZtD:tUPtTtStR , /,U@,-dlP  T6X0,$ $;<<`_v#*&-L,sd:DBt:d0t-Z,6d-t-dt[XtZ-,w&ڀ>,->Zd-[d-DC2D3Z:<<``\Z,R_tXX>9>24`>d-l>LCta|bab4P.d>tZt\Z<;;`\2\ tc`W4cZ\243\ddt4RfteP,S,tgd46@d0t-,Fd-t-dd;;;`` TOd l WXT,cd YZXdXt&jT,pdY;<<``AoZsZ,xdt,zd YZ(({d|tD tD tZ t T,<;;`_@? ,,,DP,  ZH|dt d;55`[}t,d }~Z,D,d P  ~5 OPMES c92084-1X177 REV.2226 820114 @ PA.. TE.. LAN.. [33K.ENTR.DRCTEXEC XLUEXEC.HOOPEN.WRITF.TTY CAM.O C.BUF ECH. NO.RD CAD. TMP. O.BUFC.DLM3`B`B`CdK `D ? `A``AaP`AS <<`a4Pd,$l T,.t,,1d ,6<;;`d&6P$  ,?>,GtG X t Bt Ld W 2P L;;;`dLZXXDt 2i dtdtZL54X | DD t;`GM~Z4[ l2xH$€17{0 B0 d DJ,  D?<;;`_NPt dl dDldDlL6t|@$@ 2 ,۶dD1tt ;;;``WH1" DdDt$ dD:tPdL Q QH|4;<<`bɧ0H1X"H,3d#ZDA,dH,d t  l#LBt|@$@ ,dC l <;;`f= l L6d, d2t! D   $ D,3H$17dDL Q;;;`a  QH|d($H17,1Jd2tt,3dEH,3d HXdT6,?2:; `E7p;&?I  &EO.. )c92084-1X179 REV.2340 820113 @EO.. \<<.ENTR.DIV .DLD .DST .DRCTONOFFLULU.DTACHREADF LU.CL B.FLG IFBRK WRITF OPEN EXEC EX.TMOPEN.CONV.FM.ER<<<lvCLOS.RNRQ POST L.SEGLUSESLOGLU.DFERFM.ABACTV.P.TR CAMS.CAD. NO.RD I.BUF!BUF. "JOBFL#J.REC$C.BUF%D.R &<** oS.CAP'TMP. (O.BUF)CUSE.*G0.. +CAM.O,JRN. -CAM.I.OVRD./TTY. 0.E.R.1$SPCR2$LGOF3*`C`N `OC<LGOFF LG,0 ABEND EOJ IN SSSSSS`A`f!`C`u$`A`d(`I* ? `CK4.CS`C`8`Ba<  `Df? RG@RP `EI  `EP77 `BaV#;;`aY2Yd2t3d3tEdZt D!tP"ttttZttD$t#t";<<`_ztD%td T&,d,Y,,dT&,\Xt'dT,dD(t))d<<<`gLD+,d,t))2Z-(D.t)B)()0/001 )1&1d-t tP,d$,#<;;`c̝d/t'42t/0![#.&43d't/2!&-  $d"5t'd6tdD1t7,;;;`b d7t7d7D",74t,d,t" 9!# D$ :t7;<<`a6"&t; 7Z;t;@ &"t;;$<;;!#!- td'<<<`cg&,6-=&1/0€36X)d$, 6;d?t>T@,Dd>DAt>Z TB,Kd><;;`fI D2t>d',PPSCEdDDJtFq;;;`iwo&K,{{$LF//G&GGL$F//GH4 GdH,{MD/$/GGG,H,t'+;::`^H|OLP|NdNtG,dGtGdGDO,G, 6 /d$,PYTQ,:;;`g t tR4JZ\tdTt*,\&Ut (0 R1d$,&//,dVt,d0,;;;`]ݔH.D.t,+D!tDWtD0tD-tdtG,dGtGdGD,G,d;;;``:tG,dGtGdGD,G,  Z | <  ![":  tX[;`O!z,¬  0%![":4ZX[,¬ MOF.. Zc92084-1X180 REV.2340 790209 @݊OF.. .ENTR.DRCTMESSSFM.ER.DFERBUF. S.CAPOVRD. `FSY OF, ,8 `Cd ;;`b@ @ 4Xdt&Jtd t,'dPtdD ,2d;<<`c#/t,$d,Ld ,F DtD6t ,KJt ,Q0Pt d <`HuRY   mNX.JB kc92084-1X181 REV.2340 810804 @NX.JB_<<.ENTR.DIV .DLD .DST .DRCTJ.RECJ.NAMJRN. CAM.I I.BUF BUF. CAMS. P.TR NO.RDACTV.CAD. CAM.OTTY. TMP. <<<CUSE.G0.. OVRD.S.TTYS.CAPTM.VLL.SEG.LGONPOST ICAPSLUSESFG.LUREADF WRITF!MSS. "CLOSE#EXEC $FM.ER%LU.CL&<$$ LRLULU.'OPEN (OPEN.)SPOPN*B.FLG+RNRQ ,DTACH-SET.T..DFER/$SPCR0$LGOF1$`LłJOBFILLGOFF FMGR `J#6 @ `D!. `A`o) `D5D@ `A`;`A`=A `FDH@ CSPOLJ@ `H(L E `FU1 <<`_A\2\d0td1tId,DtttDtT ,~T,~<::`cX{T,,,$$ $0-tP T,dt4t:::`c( $!"dtd T#,# $K2 $ tPtttD#t(t':<<`^D!t&D)t%t4t3t2PD!t1t0t/t.t-D#t,D5t+Zt*d t%T6<;;`_b߰, ,&7,K8t8t9,dT9,d9D$t,d9 ;<<`^;t: t,5d>t>d>D+,=>,2;<<`\?=4d)3Zt?,H3/2d"1(0d@/dAt>TB,]TC<;;``cY,]dDt>d>DE.&-dD,&g'$k,l*^|FJtt^D;;;`e/y,dFTL,8tG,ltH$$M&H$M$HNG6IdHDOtJ$$P;<<`i&'6,$Q$J>>0>$QJ$>K>XdK,$$RH$>>>,l,%#*^dS<;;`acǶ^,7^,φPt^Z,^d?,*܀44Z33,3^,7')63,5d;;;``,d?,)34X*^,7DUttZD!ttT3d!/T42d;;;`g }T,7+"Ht Zt tdT#,! ,!5)' 0ZVd,,d)PtdWt^;;;`f71/,4"4^,dX^dtXt Dt+AY.I4 ,K|J<K W 0^ ;;((`V'U&[J^,ZK\|[<\!g ^ ;[^,\( %LG.. /c92084-1X182 REV.2340 780929 @~LG.. tA.ENTRMESSSFM.ERO.BUFECH. S.CAP`Bd2 `A`F;;`d]dJ,dDZLt|6t,&dDt%Xtd,. .; `D=R+0  LU.. c92084-1X183 REV.2340 790514 @ LU.. <<.ENTR.DLD .DST .DRCT.LUAVKCVT RANGESELURFG.LU CAPCK EXEC RNRQ AVAIL SPOPNLULU.OPEN READFWRITFPOST <66LUTRUXLUEX.DFERJER. JRN. J.RECACTV.G0.. BUF. CAM.OI.BUFCAD. NO.RD N.OPL!OVRD."S.CAP#$SPCR$6,,`a~JOBFILSPOLSMP NOWRBOWNBUPUSTSARESH ,`A`m)`A`s: `E=IN `B`C8`IiGL2L3@.4- `BQ`A`T* `E2W ? `C`]?`Ac.`A`g`Hrji! `JtSHcW <<`_\<dDl dt(ZD)t't&D)t%t$Dt#ZD)t"t!D)t+<<<`ai@t*t8t7t6Pt5t4t3t2t1Pt0t/t.t-D)t,D:<;;``ܭ´Pt9,t;((,d;t;Xd;D?,$;, $@;;;`cQ(,ɴZ((L?  Z0,dAT=,(tB @;::`^<Bd4#,dC(T=,d,(TD, tEtFd#,3Zd"I,3|B:<<`b# 'GJ,+|E /$ HJ,3Z|FdE,9dK d#,@Z(,(DL,GdM<<<`\.FE&TN,iZ'T=,e&,D&O,D(&,dZ(,&D tB<<<`era"B,D,id4#, tPo(;;;``FfJ&La4l5dc4Tah37dm1#,`dn1+T),,x7&!DD;<<`^FjJ4!Do3#,vd),wdp1#,}dXt`dZ,dD .(8%,<<<`]>Zd)tsDstsZ,DutqDtrt;Z,d;t;d;Dv,$Tt,d`w<;;`[Pt`dqtq$,,dC,ZdrD;4`Zt`d$t$,1$`1d`xt;;;;`^m6,d;Tx,t;1y4;1#,",!DQ!Lz  Z0,,;::`^Pނd,dfDn,d{!!0d|/+T),dF,6-*',:::`cD e%d%,#',  =eigUdUDLa Q QHZ|\dd\\:;;`a0ed%,Z$'(%,X' ,Bd,B 3=eifdfD}La Q QH|\\4d;<<`^ @Z\9d9Zl%d9Dl)d9DD7d9DotB0ڀ6B,Zd^deT@,f<;;`ce^Ba f0ei|g<ii|h<ixhX\4Zg,Zgt~hti;::``z$ЀX~ ,Z|<Z&ڃ,dT,d=dW: TL.. c92084-1X184 REV.2340 740801 @~TL.. K.ENTR.DST ST.TMN.OPLTL.P `OBdt 2J ښCS.. c92084-1X185 REV.2340 790406 @ѩCS.. 'z.ENTREXEC LULU.RMPAR`K;SMP SAPUPAENNPBUNBRW`A`W`A`Z::`cwD 8 - $d%tDttDttZDt t :;;`\y:,?dt,dDttZ,HdtdD,Sdt,V,Ed&';;;`chVXdT,d$c$'dT!,wm$dT,vu6 ,v';88`ay,| , D" L#  X0,S$!&  d &'8 HE.. c92084-1X186 REV.2340 781012 @}HE..  .ENTRRU.. .DFER `DHELP  ##`U8ddt # ,WH.. 6c92084-1X187 REV.2340 810305 @WH.. #Y.ENTR.DRCTC.BUFECH. NO.RD.DFER`CH,WHZAT`A`l' `E$RU ;;`aB DtdtZDt,'dD Dt,d tt ;`IF- dD Ptt YSM.. _c92084-1X188 REV.2340 790102 @SM.. Q.ENTR.MPY .DIV .DRCTNAMR SM.SBC.BUFECH. `C` P7 `DS ;;`ca"t #0 d D ,*d d tT ,9dt;;;`_8Z,GDD4tDDl dD,Od DDlL ;`HWt|^& ME.. c92084-1X189 REV.2340 790109 @yME..   6.ENTRME.SB `PdDt CT.. c92084-1X190 REV.2340 790226 @ѱCT.. .--d.ENTR.MPY .DIV .DRCTNAMR OPENFXLUEX.CLRBXFTTY LUTRU C.BUF ECH. N.OPL O.BUF-`C`7 `D`8 `GH+ `A`"Q`A`$`Bg& ;;`a*+d,tZDtt DZt ,,@d-.t0I- -;;;`_KP.D,Ud-.D ]t,cd-.,kdl;<<``>j,yT,rd-. l ZdT,-. ..<;;`` tT,d-.Bd$ .4B.t dt!D!t!;;;`aΘ,d D"t# &# d D$,d t%6T ,d%t%,;;;``˖ D%D&J4't# D%PDl#d%D dt(d Z D%Dl%;`PhFL t#|)$*#)Pdl( .TRAK. 0c92084-1X191 REV.2340 810304 @TRAK. M.ENTRFM.ERMSS. RP.CK<<`g`"  tt$ ,)d,!!t(P,d,.< `DѶ,P 0ڀ6B,Zd^deT@,f<;;`ce^Ba f0%BMPG3::RTE_6:5:345:128 644 0 0 254400 5310707204 34237 %BMPG3::RTE_6:5:345:128 $YY%BMPG3 +#+#+#Y>7FST ::XoŖ'+BMPG3 92084-12004 REV.5020 <891028.0239>/SRC_92084/R5020/&$BALB :@ǯo<<XpŖ'+$BALB.REV 92084-12004 REV.5020 <891028.0239>/SRC_92084/R5020/&$BALB < 0$FREV ^ @t88X: k(;;$$FIX 92077-1X490 REV.2326 <830218.1030> P92077/&$$FIX::PCO8 $$FIX .ENTR GTOPN - AAhH  @M88XP<k);$$KEY 92077-1X489 REV.2326 <830218.1030> P92077/&$$KEY::PCO8 $$KEY lX$$CPU .ENTR vv,]<<A`@5P(`7p:hH6Ԁ90:p:p;hԀP()(18; ( `;4P;(.(10:`8 v@t44X;k)";.CACT 92084-1X263 REV.2340 810128 P92084/&*CACT::PCO4 +.CACT 9$DSCS $SMD# ISMVE 88U`@   xp` 8@U44X`k)6;.LGON 92084-1X265 REV.2340 791028 P92084/&*LGON::PCO4 @.LGON $LIBR $LIBX .CLGN EXECw%EEpWpP@hX(Bp_`[4(B`RPT( `^pZ(D`pW`_ Sp_4 (8`Z`W`@VP@ՀA`W ApY?\_PY]^R844(--pExWQ( AOUTPW(   W-@EdK44XmBk* ;.UACT 92084-1X264 REV.2340 790129 P92084/&*UACT::PCO4 =.UACT 4O.CLGN EXEC ww΄BBxA(1p@`;#(1`4P6(x8Ah>x:X?p8`@ 5p@# (`:`88p9.<@A9=>48##(  w@;}44XLk*;.UNAM 92084-1X266 REV.2340 790129 P92084/&*UNAM::PCO4 ;.UNAM 4O.CLGN EXEC FFp@xEpFhC(pK`G.(`=P>( `JpBPD('x@`K 99;(89<;=(1-74`;0:8((LOGON  05k@ 44Xzk*:;ACNAM 92084-1X252 REV.2121 790102 P92084/&ACNAM::PCO4 /ACNAM 1.ENTR POSNT READF X6JJ(@(( x P(" P(# P(p-up`u(#Hxvpr@opqAuv`u((H8vprAMFJ??u`u(`q(^`rP(Z`opq(E8r`q@pqP(R( AP(R`q (s@(x(R@(r`q H xwhxs X(px@wSS?((hq xtxhxthqHxtw8P((Rhw(``` S>>!!hs !p y    xsht !y  xt>11Sp8(߈(8Ԁ . 1 o y @Zy44Xw;k+;AVAIL 92084-1X240 REV.2121 801212 P92084/&AVAIL::PCO4%.LUAV AVAIL  q$LUAV .ENTR CC5.A`!ph"x (8 ( 88( C99~! (8p%ph$ Ԁ:(8H#8(/8%%?9@88X..Pk+;B$$OP 92077-1X488 REV.2326 <830218.1030> P92077/&B$$OP::PCO8 B$$OP .ENTR .OFLG D.R EXECLURQRMPAR ss==AHp=`@H (`@IOp>AD>G(7(:PE`Jp@ApC0L=@ABCA3?`?`M`Ns >  D   ?@?[^44X4'k+0;B.FLG 92084-1X233 REV.2340 741118 P92084/&B*FLG::PCO4 B.FLG 3'$LIBR $LIBX .ENTP LL|''@AhH!P# (P$ ("P%(`@&p0 A   FMGR L@p744Xw: ;BLD.X 92077-1X522 REV.2540 850920 P92077/&BLD*X::PCO4BLD.X )LK.EX !!r$$CPU $SMII .ENTR .OFLG ISMVE SESSN !k@@AHpc`ipb` 8b( j@n0m0mh `mhHehHf5A'Hpc`'@hp`(p5)hHgkA5A``9@77cx_ (O paM_a`d``(S`_khHg l5po @`@444Xhk,;BUMP. 92084-1X229 REV.2340 741025 P92084/&BUMP*::PCO4 LBUMP. bz$BATM .ENTR 88 d`p D D 8` D D  8@rґ44XmOk, ;CK.ID 92084-1X226 REV.2340 801212 P92084/&CK*ID::PCO4 :CK.ID }$OPSY .ENTR 66EA(Ԡ Uhx (X(8 (  (6@ KCK.SM Tc92084-1X225 REV.2340 771205 @CK.SM N.ENTR`A_B`A`G`A`F<<`c:3  tDl  0,Rd DtZd t Z,,t,1<;;`\ H,tdDtd DDt ,P92077/&CKMSC::PCO7 CCKMSC @D.ENTR MSC. >> `pp(A`(p(((`(`3>@<33Xk-,;MSC.92084-1X221 REV.2340 810622 P92084/&MSC*::PCO 3 qMSC. $CES.ENTR .XLA""7A8( y"@?:44X k.;CL.BF 92084-1X249 REV.2340 780714 P92084/&CL*BF::PCO4 3CL.BF @|<44XUdk.;CLD.R 92077-1X437 REV.2340 830223 P92077/&CLD*R::PCO4ppT<R.P1 S.P2 T.P3 U.P4 V.P5 W.P6 W.P6AX.P6BY.P6CZ.P7 [.P8 \.P9 _.R1 `.R2 a.R3 b.R4 c.R5 CLD.R psD.R EXECGTOPN RMPAR AApQ`RM(PH(PI(PL(`PhK(-hUxUpV`OhI(-`NhL(-`OhJ(-VWTU`XpT`Q0GpQ`OhJp]x^:EQRSTU]^(B>_`_PG77A##`Fp_ TUVQ 7@+JW44Xk.;CLR.X 92077-1X485 REV.2340 830218 P92077/&CLR*X::PCO4 CLR.X Z.ENTR CHK.X ,,<AA`p`@ 8(,@  CNT. c92084-1X228 REV.2540 850729 @CNT. *Ů.ENTR.DRCTOPEN.FCONTEXEC O.BUF.E.R.N.OPL!!`XRWEO@TO@FFBFFRBRLE8!::`c; ?'d(tDttZDtt(,=d0C:;;`]hCd,,wT,RZt,edtdDt,]d)*;;;`bVE` ,Tdt,jdp)6)T,v)*Dt $;;;`Z3,d!tD",dt,eZdT#,d$tT%,dT,dDt; `DH,ed&)* 77XPCk/9;FCONT 92077-1X524 REV.2326 <830217.1318>P92077/&FCONT::PCO7 ? FCONT q7.ENTR .OFLG XLUEX ssw<<#####A#HhHxHX(%`!h"xxxxxx x#h$ #(8Ap<Bp=6><(:p$(`@(sg5>@{77XZ`Lk0;COPYF 92077-1X550 REV.2340 <830924.1530>P92077/©F::PCO7 W COPYF ??  .DAD .DIN .DMP .DSB.ENTR CLOSE ECLOS EREAD EWRIT LIMEM OPENRFLG$ RWND$ ?;:MM ;= *(- )68h8  @x8H. (*`8@6Ap7(5 --`@,p6`@,p7p8=3(G2(p?`@+MMM@9`@+B`.pF_89hD`p4n645;(w65=(  (645;(745=(`6h74(8F(f(œPPA; D;=A D=A9 D90(pG8??)P1(8G(PJ(PK((@9hG A( @H;A H;A= H=([ (爀BA@ = ( &MMHH(`0 - AH@xh   8  h  h (& @G$% 7 ? F J @Zx66X`C ]CRDC92084-1Y015 REV.2341 <860224.1042> &CRDC::SRC_920846 hCRDC ##$CL1$CL2.ENTR .OFLG EXECRMPAR UT.BF #ʹCCAHpU`(A(C ()pKpLAWJ\KLh(CHXHX(H_[PXPY(=7]MUZV(?A;P`P(D`^(D`G(D`I(DnRC`H xx ̳MD.RTR m1V  @v6 >CREA. Qc92084-1X224 REV.2340 781102 @CREA.re.ENTRCLOS.ECREA.E.R.`A`<<`d6D,dtZttdD l d <<<`c),P,3Z ,5 d ZD dD l L &H$d,OdD<`B O 77Xgk1$;CRETS 92077-1X537 REV.2326 <830217.1307>P92077/&CRETS::PCO7 KCRETS .. $$CPU .ENTR .IDNO .OFLG D.R ECREA EXECOVRD. RMPAR .??`p`Npppp`p`p`p(A`PN(u`ppH p`www  ׀(H(s@(swÁ?LLw AP(TP(V((0p Apl}o`P(T(C`(T`(T ~Hw 0kPq b[ @^R}77XE,Gk13;CRLK92077-1X547 REV.2326 <830217.1310> P92077/&CRLK::PCO 7SCRLKCRULK  /.ENTR .OFLG EXECRMPAR TST.D X.LWD jj ::`6h(`7hp9x p (A Hp?` (4 pD(!h9P@X7(5(EA?9 (2,:p`:`D(5`F(5`8 jO@D.RTR @hB77XJ.k2;CRMC92077-1X548 REV.2326 <830217.1311> P92077/&CRMC::PCO 7 qCRMC .ASKD .ENTR .OFLG EXECRMPAR }HHXXp|`Pg(M(QpHb (QpApkfklm(Q`ld@c(Q@\A(Q+k}~h}H^(7(SH (Sx}`}pupvAGh|n(OOOH//AKw`w(T`[(T`(T`Z(T`ahgxx8?? XD.RTR Of f@.M77Xyok2;CRSTS 92077-1X552 REV.2326 <830217.1311>P92077/&CRSTS::PCO7 KCRSTS !!L.ENTR CR.LU R.DIR SY.TR TST.D X.BUF !͊DD`p`jp p p pp(kkkkk ` APj(\ m(^A m`(_`i@pn `nba@c `@n@  `(G(G`(G NNUD++0f  J (O 0g S (_(Z 0h (_`d(_`ekN@;::X*wo.TST.D 92077-1X556 Rev.5020 <890413.1034>/SRC_92077/R5020/&TST*D : &TST.D $$ .DAD.DSB.ENTR CR.LU F.DIR R.DIR X.BUF $jAA`p`p( (ppȈApAƄ(h (h  (h (h (H  (h H (`p`ɂ@`@P~~=AEEA(M8G(LP((p@p ( (X (<`È@ (<`@ @`@Aɂ@A(`@ ({@(?@AB?@8 DC00 RRA]BBAHVp+AjMNHO`MpM pQԨ pPpRpSX(pKWpWYP xYZpT\pUp-p,pIAMNOA +!(^(hx27998- .2h)pGHQ Hx/HHx0h/Hx1/@@p3Ԩ`YP!hSH/xBԨP!hSH/xC`XXpBXpB`WP(AhB;;`UxU[A( [(X(p:h*X( PC(p>PB( ((`8p7H((hWX`(Ȉ`8p79hWX`(`P>(PB((m??`0@(Xp9`*@@(`pAp>h)x?>?X(c Ѐ(a x< x=5$<D(a`D"P#(a?+(a_@7(a`WP`T@8(Y`T`8@UQ@5R<<@U(u`T(a(`>@8x>h?xJ8?('8A(h ("h>`WP (xTHxEJp7pI(|`8pT@pE?8?p7(&,p,`7pH`Bh, p>`H`@ pF~~@@ +FH^>A `((pB`pCxG`WP(AX((p> `-`>X (`IP((&p<p=A$<D(`D"P#(X~z::h*(`@p:`-(PB(㈈((`8p7H((hWX`(`8p7h- 9hWX`(`-(`0@(Xx7+(`T`==H (pT@pEA 7E(>](p9p:hE HU Q @ HU (p,h*`9(7`PB( PB(PC(P((',`-(ˈ((x9x:(&pKpIh* E::X(\PB(VPC(V`I(T`PB(c (E`-㈈(c(a(ThBX8I((Dp;`8p7pLHp9`YP((`-(vW(h;X9`7P(P(pAsBAA<7(`L0!pL`7p=H`@pF +F=^@`(P(Ȉp(h7X(X(`-`P(Ȁ`-`7X`pWpY(h- 9(<<(p=`p4`p5(p=`p4p5@p6p8H54H6P=( (8¨x<`1p@h0P8( 8@(鈀8(8h<p h*` ==( `PB(P (8p=>`)p??P ((p>@7@` p;`1p@h0( 8@((`7@;@Yh0H2/38˨p=>h)PP7($ 8=(xTN`LpLp=>h) 2BBP,P7(9 8=(1@ xTN,`R@H(Fx>AMR>VR= Np?P(hQ@p)`p A`p +h 　@-h* p`Q\\c<44App` p( - >4WTdS(9A (B>eTm(B`   (R`S    @ . èg\ͯhHHAefpSA(.w|y 6}W~~z^`^ ƀ ((]Ajmnpl`mP ((pl^lpfpg`g @psA -s`WP /(h6 hW@P((pf(`gEEpgh6 (` A@g(È`  (]`f(h6 pss .~ ((]h``V(`  pi(ꈀ` @ pi`XA@i(`  ƀ(]SCC`V( hH6 pssi .~ ( (](<` @ P(<pg`g @@6 (<`g @@ h ĈH (&(8h6 Hps`g @@6 Ps(8`  (],8FF`gpg(Ah` h6 HP (LhH6 P pk`k(U` pr(W` pr`V(mphh6 pshhosr  (m(]` @ h  )`  h t~FFh  AA )t )` .@ hr@h  +h A  + + +A )(((`  (]p :p ;h6`6A` p`rp` p` p 8`  p 9i 8 9` 8p`DJJ 0 9p`kA(`V(S` .@ pA` pApcpd`cpe`d(`dA@c(`dpe` h  )h   ) ) ) )he t )tx 2WCC% )e(` 2p 2p 3` 2A@ ps#s 3 1 4` 3()`  (]` 1pYpZ` وp[` 3p\p]` 2 4p^` p_` 눈p`` 4pa` 6pbphEY (I(] NY退 (R Q (](]p 3gY~ (](]v wLL8v(nD.RTR  ^ -  `   p.p*` 5()`*A@.()`* p/A/.p+` :p,` 5(#`,A@ ߄(#` 　,p/` 瀀+@ @/p/g@@/p 5` 5(`/@ ((`/@ @6 p 9`/@ p 8i 8 9`/@ ܂@6 ` 9`/@ h 8` p0p-`/@ @- 8-80(`V(` ,p0` +@ @0NN+''p0  Yƅ0 ( ()(` ,p0` +@ @0p0g0 ;`,p,` ;p ;(p :`*p*(1N^2DD81(`ph6 pC >` 瀀A@ pM >(Q`  `@ p`pp`p`@ p`(b(`p` A@(r` ph6 jj<v88p` 瀀@ p` 瀀@ p` @ pA(` ވ ` `@p`  @p`@p` p(^j&??Apppp(4 -` A Ä((< ÈP ((`  p=(` p=p@ Àp 8p 9i 8 9`=((<` 8A@(`  (<`=p>` 9@=pssdq??` A@( ` 9@ p>`> p?`V($hGH6 pA` 瀀@@ ĈpB#FAB? 8 9(**@? 8 9p 9` 8p 8`>  @@p@`>@=p=(CsDJJ8C( -`V(\(AA cYY[] (g(AYc%pcnp```(y` h`@p```@ p```(pcpbA YH ((A8bjLLA8c( Y ((A`]([[`h  +hA  + +[AAo +( ( `p^` (`^p^`   paha cA[cx_%[a(`_SIIp_`^@_h . @A@( `_@ .p`_ApY A((A Y ((A Y ( (A( `  (Ahv6 ` 1hv6A` 3pV#qh 6rW 4oUpRRS#--A&P`P  (,(A` /P(AA`p /<qk 6sWoo -t?P`P p 5` 3(G(MAMu 2 3 1p 3eRGG|f,,8e(XD.RTR D.RTR U 6WA` ` 3(( 2 3 1p 3G$FF8(wD.RTR A  p 6(Ip 5v (1`  p 7@ .p <` 5(` (F ru A  pV pW pX( -,,  8?@x,@n.44XŐ;k6;ST.SY 92084-1X275 REV.2340 810127 P92084/&ST*SY::PCO4 MST.SY 8$$CPU .ENTR CHK.X M.CPU oo;3;;AAhH/-(hH/ ,0.hH1Ԩ,@20.0+hH0p3 @o@44Xk6!;M.CPU 92077-1X487 REV.2340 830218 P92077/&M*CPU::PCO4 #M.CPU .ENTR .@o 44Xh,k6,;SIDGP 92084-1X274 REV.2121 810121 P92084/&SIDGP::PCO4 8SIDGP $SMGP $SMID .ENTR ISMVE SESSN MMz,,AA x'!(`+ p(ԨAp) '(*A&')*M@S77XW9k67;RWNDF 92077-1X529 REV.2326 <830217.1306>P92077/&RWNDF::PCO7 GRWNDF U.ENTR .OFLG R/W$RWND$ XLUEX TTz%++AHhHxHP(%hH7 B(.88p+A$+`-h xxT , h H(&hH(&($ @x877X{k7;POST92077-1X527 REV.2326 <830217.1319> P92077/&POST::PCO 7 )POST .ENTR .OFLG R/W$111FhHP(` xHh ( ( 1@'aF!33X~k7;$CMW92084-1X284 REV.2121Q810312 P92084/&$CMW::PCO 3 R!$CMW .ENTR ++TA`h(((`+@a!44Xk7;EX.TM 92084-1X237 REV.2340 771115 P92084/&EX*TM::PCO4 QEX.TM 77 $BATM .DRCT .ENTR CONV. EXECFIT. FM.ER IPUT O.BUF TM.VL WRITF 7% OOD  } @} H~}ppp`@!((A$A(}x p}x~` pxA=}s{B~A}{tAh}Kv{P}<<üO$${wh}D Z }ji ` }jy`}A h{ EXECUTION TIME: < =t: : 5w. a pd<LIST OVERFLOW!@]33X k7);IPUT92084-1X218 REV.2121 740801 P92084/&IPUT::PCO 3 *IPUT fg$LIBR $LIBX #888 @令44X.k76;ONOFF 92084-1X236 REV.2121 750128 P92084/&ONOFF::PCO4`1{FIT.ONOFF 33 .DFER .DRCT .ENTR CONV. EXECJ.NAM O.BUF OPEN. TMP.WRITF 3EEA (  `p`pЄ( `hpxЈ`@p"`@p*Ah{`p6A;h{`@p5` )`SS-jG))pM`@p (Z(((Z 8(Qp Hp pAh @ppr SъqxzǨ,,2{pyxzyH y8y`zy׀Hy{,OOӈ99 +Jh *Ig DEC NOV OCT SEP AUG JUL JUN MAY APR MAR FEB JAN JOB OU AT  =: : K. ON  ON OFF @77Xe0k8;FADDR 92077-1X553 REV.2326 <830217.1311>P92077/&FADDR::PCO7 *FADDR // $SETP .ENTR F.DCB F.FLG F.HDL F.LUF.S/T F.TR2 GTOPN /[[L00`p `.p p ( //` P.('`hJA@ ()   (*`,(*`- /[@ۛ[44Xk8;F.DCB 92077-1X549 REV.2340 830217 P92077/&F*DCB::PCO4F.BFA  F.BFP F.BFS F.DCB F.DLU F.ENT F.EOF F.EXN  F.FLG F.HDL F.LFT F.LUF.RCL  F.RCN F.RWC F.S/T F.SC2  F.SC3 44*F.SIZ F.SPC F.ST1 F.ST2 F.TR2  F.TR3 F.TYP 4"""@IAh44Xvk8;FG.LU 92084-1X253 REV.2340 830810 P92084/&FG*LU::PCO4 <FG.LU $LIBR $LIBX $SMVE .ENTP ـFFpE6pp`7 (p`@8Ԁp=:=;<`p>p?P@(D@A6׈p PB(F8>>BP(F8?(-`9(p* .Z- 8E\\bF00pCph 6P6xPxC(J`shEHC (p`rhC h (p8E`0xmHAxuot=uA:B\@z BFID. Rc92084-1X219 REV.2340 780515 @FID. $_.ENTR.DRCTDR.RDPK.DRD.LT NAM..`B`D`B`P `AL <<`bdBJ ,OtD tD ttttt  2.t <;;`_0d d ,OZd ,O,OHdX,O,Ot; `C&Ot 77Xhuk9;FNDIR 92077-1X554 REV.2326 <830217.1311>P92077/&FNDIR::PCO7 <FNDIR ?.ENTR CR.LU R.DIR X.BUF EE`p`yp p `zp(nxA ` Py(j |(l p pp}`qp~pA,|}(mh p h~H{(hP(P P(P Pvv'E>>(P (dHo׈w (d`~@qPr(\8}Z|}(ap~88(5(hPu(h(m` (m`s(m`t(m`vnxv@m'-44X[(k9;FREE. 92084-1X238 REV.2340 740801 P92084/&FREE*::PCO4 >FREE. .ENTR DDu/ ' @$%p&@$@p`#p"8(8"(  ((D# @x2844X#P&ICAPS 92084-1X255 REV.5000 860430 &ICAPS::SRC_92084 4ICAPS XCAPS ?I$SMCA $SMVE SESSN BBս##hx ( A`p    (x! p"!"!`!B@+6I77X>!k;IDCBS 92077-1X525 REV.2326 <830217.1318>P92077/&IDCBS::PCO7 ,IDCBS k.ENTR .OFLG @@ AHp hHP ( `(HP(H@ ?@@iL44Xu/k#;IFMTM 92084-1X259 REV.2121 801212 P92084/&IFMTM::PCO4 @IFMTM }$OPSY .ENTR UUm//A +00*p UhπH, (!H`@- ('.XC`Ԁ Ԁ((00  U@5BT44X0k/;J.PUT 92084-1X217 REV.2340 740801 P92084/&J*PUT::PCO4 +J.PUT 5'$LIBR $LIBX .ENTR )) A@P(A )@` LOCK. +c92084-1X222 REV.2340 781115 @LOCK.\.ENTREXEC RMPARDS.DFD. OVRD.`Cd66`b  Dt $€ 4Z ,%  Pt 6 FM.UT c92084-1X223 REV.2340 810124 ''@ &D.RIODR.RDPK.DRD.SDRDS.LUD.LT D.LB DS.DFDS.F1'33O.ENTR.MPY .DIV EXEC MSS. RMPARSESSNISMVELUTRU FM.AB IFLG. OVRD. D. $CL1 $CL2 $SMID3`Ba `E `Bx`Ae`Bk7 `Gr `Dx `Abn`B `Aa`Ab`Ab `A ;;`c<(d,˶TƒXttd ,T,@&,;<<`c$6|dT,, tԖtdtT, T<;;`b9, ,۰, !,l ,|$&,Wt,);<<`^&dDtdD,TdDDtdDP,Sl  \ T<;;`_[.DZ0l\Z 0\  0,,&td,t,]dtPdD,t;<<`]c,gdDtdD,dDDtdPDD,l P\ T<<<`_,Z0l\Z 0lt T\P 4,,d,Ztd,dDt<;;`_3 T,tdt&Z, dDtttZT,;;;`_Z,dtDt$6,|dT,t$, t;<<`atdDtdDt\ ,:B t|d<<<``{B tlLL , td,dtd ,T,@4,:<;;``dtDt-$,tT,:t9& , ;;;``~>B<?T,Kdtdt,mdtdtV$dPdld;;;`f^$<6|dT,ml, ?D t{0 =$>&~?T,;`LN$,, @44Xko,k$;LU.CL 92084-1X239 REV.2340 801212 P92084/&LU*CL::PCO4 =LU.CL ?$LUSW .DRCT .ENTR EXECLULU. S.CAP CC=&&`Jp&Ԁx'8&Ԁ&(%Ap($)#(A8'( !!?C z)SMP @fD44Xf@k1;LULU. 92084-1X234 REV.2340 801212 P92084/&LULU*::PCO4 QLULU. !!7$LIBR $LIBX $LUSW .DRCT .ENTP S.CAP !llU::`(1p<pԀp= (4Ԁx<;($ 8=(h< (2P?()(/@>נ@>׃Հ8A 8=(4(1l  >- @ٯ44XZRk ;ME.SB 92084-1X261 REV.2340 830511 P92084/&ME*SB::PCO4 @ME.SB ssMl$ACFL $ACSC $SMD# $SMID .ENTR CLOSE CREAT I.BUF ISMVE LOCF N.OPL O.BUF OPEN OPEN. OPENF OVRD. POSNT PURGE READF RNRQSESSN WRITF XLUEX s6@@A(p:pp($ P(P("`p`p==8= 8(($pA'!(,`x3Qh6   `Dp=0/p n@EEE}7D&`=pN(+`@Ap;W;%_(+`p@pHp.m` @p x=}(+`@=@ hx9~~>>A2pP(@+P`@@9 (`p((d@x3x4x5A (3&<.`(P(%(e (  `((ЀP(d` `p ` `~ FFp (   `((d(====,>`>A(,`0@1  x, *@+`+P(`*(`,p@+p+Hx=*=+`*(A ] CC (`*P(p:`((ep'P(C`Dp=0/p" (3H<`=p(*P(d82(+PhH9HA=(PAC(AH;%`(b` [[οL44P(mW($#")`) h#@@p'(e``((mAm;%rA('vA (y`:+@CCT![ (( @  -8@  & / ?  /67 j4<6 !? @kA44X‚k0;OPENF 92077-1X541 REV.2440 841012 P92077/&OPENF::PCO4 COPENF $$.ENTR .OFLG CLOSE LURQOPENXFTTY XLUEX $B~FF`pppppp`p(AH p`hX(@(*A) A- PA(p8(`p x`@(I`@ynF;;(I`(` p`8`888Zp@p€! 08`8`hH (yhX(u(xh (y`8` `ddk;;`hHH (`(A(( `(`( ?@@gd @ '44Xvh,k(;MM.CK 92077-1X486 REV.2340 830218 P92077/&MM*CK::PCO4vMM.CK MT.CT  Z.ENTR CHK.X QQ,,AA`p(`*p&`@)8&(hH(+Q@[y33Xk5;NAMF92077-1X540 REV.2340 830907 P92077/&NAMF::PCO 3 | NAMF @@ $SMID .ENTR .OFLG CLOSE D.R EXECISMVE NAM.. OPEN OVRD. R/W$RMPAR SESSN @NKK p`hX(AP((%(PA(V- (Vx p9h (`@P(VH` p0p ARwK==H(`p `@` (P(b`p(`@hH舀P( (( (P(X(P(zX((P(X((X(Xꈀ(`pLL))x Aph `hxxxxxx `(L""D\?x@q>"@v 644XDk;P.NAM 92084-1X403 REV.2340 810518 P92084/&P*NAM::PCO4 P.NAM .ENTR .XLA.XLB~~'DD`p `Bpp( =A=`PB(;(;h()hC (!@hHC ( 8C(hCH (;@@H?8 8 @A0@`>  =~@F44Xk;P.PAS 92077-1X531 REV.2340 830805 P92077/&P*PAS::PCO4 P.PAS 22Hx x8h @xh88(  h2@!@44X}=k;PGNTR 92084-1Y009 REV.2340 830725 P92084/&PGNTR::PCO4 BPGNTR %%IM.CPM.ENTR .LDX.MVW.MWF.XLA.XLB$DATC %__W228( (`@;@()()p2<()()H2@A2@@:@2h9(/`3h9(/`7p_f3 4FMGR 8 @S33XGk*;PGS.92084-1X251 REV.2340 781002 P92084/&PGS*::PCO 3 PGS. m.ENTR READF PPuK--A(&P,(%F-+E(`F( `C(!`D(#`)`*P@44XEk6;RANGE 92084-1X235 REV.2121 740801 P92084/&RANGE::PCO4 /RANGE .ENTR ++e׈8(8(+@o77XPk;RDDIR 92077-1X555 REV.2326 <830217.1311>P92077/&RDDIR::PCO7RDDIR WRDIR  .ENTR .MVWCR.LU R.DIR W.DIR X.BUF >@@`h(`hpӈx`ppp`p(A`hX`P(X((`P`p`p`p(1( pՀxHx؈ Z@CCP(IxڀHxو(Nppp`(tpAXՈ(`׀͈@hX(fhx(qp`ApApՈ(8``( pֈ`P(BB(`hx(A`hAp(8Ո`8ֈ(|`(p(Ĉ`P(`фh(`hA(`ֈ(Ĉ`(`(Ĉ`̨%%qҠ%@K 44X*<k;R.DIR 92077-1X557 REV.2340 830217 P92077/&R*DIR::PCO4tF.DIR R.DIR  W.DIR X.BUF  h.DBTS .ENTR CR.LU EXECGTOPN RMPAR RDDp`h( `h p4x((HP(;pp5&5pA0(`p`p `p`4P(BX((sx:`RoDKKAp5M5OP(h:P;(s`P(]P(](sx`p5l5Ao5`5((xhH (@p`x4(??%%8`(`(` x D.RTR ? 4 ; @q77Xlk%;CR.LU 92077-1X543 REV.2540 <850627.0852>P92077/&CR*LU::PCO7++'iCDA CR.LU fX.CRN eX.LTR dX.LUgX.LWD +C.ENTR FSTAT GTOPN 2BB`_p p p p `p(```` Pg( Pf(NPd(NA"ih\^ h](WpbxcHi`kpaY(5Pc(WPb(;Hj8a(0(WHcYpd Ype QQB**Ypf(KpdpepfH](7 Ypg`g `f `e `d AY`l@Q@"@44Xnk1;GTOPN 92084-1X283 REV.2121 810401 P92084/>OPN::PCO4 IGTOPN  p`π@744Xwk ;FSTAT 92084-1X200 REV.2226 820406 P92084/&FSTAT::PCO4 ?FSTAT JJi$$MC$CL1$CL2$SMDL $SMGP $SMID $SMLK $SMST .ENTR CHK.X EXEC GTSCB SM.BF UT.BF XLUEX JnBB+++++pE pF-@ 4EF`1h3H `3ppvh 8v(&pn(4P-(qP.(4(qA 9 2o`oP6(jpnhg  B88HHxpH.Hxq`p @ pi`p@pj`;pk`8pm`iP;(uP.(g`7pm(upk(u`;pipj`7pm(upi`6pm`lpt`prhhz<<((tP6(H/;t( ({H8:((`@9(pH9H0({8t8m(y( `P,`,ppppp  (s??(`hr0puH6;  ((r>(r:0=pB`rAxDABG5D+( G(`[(׈r>rr`W @S44X~ -k ;P..CK 92077-1X483 REV.2340 830218 P92077/&P**CK::PCO4 P..CK {w.ENTR RP.CK II&&A$p)hH#p* @"H,8*p+Ap%#%&)*+(!8?I ) @:44Xk ;RP.CK 92084-1X279 REV.2340 810304 P92084/&RP*CK::PCO4 >RP.CK .ENTR .OPSY ~~HH HԀ (bHԀ( H}P( Ԁ|(+HԀpzHp{(4HԀpz Ԁp{HP(B`z (xz 'x{(J`zpz`{ (~yyHH??x{(M( hPP(d(T(Z@z( (dPz(^( `{(d( hԀHԀ8 Ԁ8 ~0`  y@n77Xyk ';POSNT 92077-1X526 REV.2440 <840730.1532>P92077/&POSNT::PCO7EPOSN POSNT 55 y$KIP$SETP .DAD .DDE .DIS.DNG.ENTR .OFLG READF RFLG$ XLUEX 5~~v<HH`p(  p`((  (  (Ј`hX(Hxhy``X( A@ (DH((z|~HLL(  ((@(Y (m`(@p5p`(@P( A z(΁(YzzAz~yyCC(hA ( z(((` (}pApp~@ `~(8(A z(Έ(`(Ј @!  `hxxxy  8 @)HV77XEk :;READF 92077-1X528 REV.2440 <840730.0942>P92077/&READF::PCO7[EREAD  EWRIT READF WRITF gg$KIP$SETP .BFSZ .DAD.DDE.DDI.DIN .DMP.DNG.DSB.DSBR .ENTR .MVW.OFLG D$XFR R/W$ RFLG$ RW$UB RWND$ WFLG$ XLUEX XREIO gq!LL`p(`ppp (` ppHp (p`(#(5`(+ (5` (1(5 `h<(N=L;;`IpDpI@p`h (lF`X(lhD K(h`p(`? `P(P(hxhЈxhxx xxxπxxx xx x?X(#KKX(D(qDCh@ H p ?P(P(FDD`Cp(Ch׈ (A J=@(n ՉƉB ((@<HH݈D( (nxxLC AA (n( LxxLX( hH(l`h xp `Lh@ (P(P(n(l?P(@p`p   AA ׉RGGA׀xFׂ@@AA @E@GHh P(=h(lՉG`@F@MI=J?(((D(ThH(l?CP(`IHX(e 6aFF5`(DD`(x `(l@JJ(l!(JJ @x  (P(IH 5 h B (`(l` %`p`A(lX( 5`!(`<AAP`Ap`(P(戈P(n(l?X(`hH((l``!`p` @(l̀(` C(툀J@J(lC`P`i{KK=(IHDRD(h (M(T`PЈhxxH'x J=`'h p p @E@A  ݉GE@H ۉ `*3@@A!@(<`܀&`p8(ED(Mh hxKh(l`P(`@phHxH˂'x@h D(n`LpLh@ (P(oP(n(l݂@&?sFFA@x߀hhx∀(M`h =J(hx ((` p@(8( (( (@(l@pCp(`(l!@ 8=&&4((p`h &@Y44X+k ;PARSN 92084-1X257 REV.2121 790801 P92084/&PARSN::PCO4 >PARSN .ENTR \@@A`pphx x`p`퀈 8(@@@ Ip (S  (, (VHx`phxxx8(RǸP(5P(RP(RkD@99P(P(P(([`P([Ո8(5_(Y8([(V_`(V`(j`P(|ո88(|ǸP숈(jP(|P(|h (zP~~53y<<(8(``8__`p([8([׈`@p`p`p(5([8(K(ShX`P(8p@~}tLL@(PP8H H 8h !  xp`h  !p     x@ ,./* )N~H@44X…7k ;IPRSN 92084-1X258 REV.2121 790103 P92084/&IPRSN::PCO4 KIPRSN .ENTR CPUTSETDB ZPUT^^5z77A@/p2 6p4p3(A03."14p4AP2(+)5($`4.  ^@L 77X>k );CREAT 92077-1X379 REV.2326 <830218.1103>P92077/&CREAT::PCO7CREAT ECREA 77 $OPEN $SCRN .DAD.ENTR .OFLG CLOSE D.R EXECNAM.. OVRD. RMPAR 7SII`p(AH p刄`Pu(P(P(&$(p8(p`(@(ˈ88(JH (ˀ  IHH(R@ @ (ɉ8hX`X(H p p Pވ`p @ pyӡ A|`(`h D``hA Z;;(hH0@(0߀H(0`(` ((@ `(``hux x xx x x xx xx`(`(`(`((V(  q( t @ <77XEk 5;APOSN 92077-1X523 REV.2326 <830217.1318>P92077/&APOSN::PCO7 APOSN EAPOS 11 Y$KIP .BFSZ .DAD.DDI.DNG.ENTR .OFLG ELOCF NX$EC RFLG$ 1QKK`p ( AH p`(("   xhH@x` )hH`X(~ (~H` `(}A (_H@ `xx$KGG(~AA H(_(~@G`@p@@8 (hH` xxx `(~ x o @`~77X*uk ;LOCF92077-1X539 REV.2326 <830217.1307> P92077/&LOCF::PCO 7JELOCF  LOCFM.DAD.DDE.DMP.ENTR .MVW.OFLG HH`p (AHp`hX(`h,Ah6`X(=hx4hx.h.8.84(%x -`2 (C(@`h!:HJJ`/(`h `/@(eh3D:Ă@p. .@(`0@75@h1H8 ĂAAh<Aĉ`9@  @`hh/ WWl..`- `0 h3`/( `4 H (x.hX(..h(?W E z:@Ք77Xk ;RW$UB 92077-1X533 REV.2326 <830217.1306>P92077/&RW$UB::PCO7R$KIPNX$EC RW$UB 33 $SETP .BFSZ .DAD .DDI.DMP .DNG .MVWEXECR/W$RFLG$ RWND$ 3OOr$$ (;xO h`x$x(v@QH@ph (x8@O@pPhHx@OpOH`O =D%A P UU;)&&p`(=HhO (h$ 088(9P`O(-h$ 0h`phQ(-UqRKKxP  xOvhQHAO@ @ HHQx(p R`@8RRpQhH`QphQHxQvAh@@&LL hH ((@@  AxD (hHxh (@`(h8F  (`hH(`  @hN44Xŀ5k ;SPOPN 92084-1X215 REV.2121 801212 P92084/&SPOPN::PCO4 GSPOPN '$OPSY .ENTR EXEC( `p p0.+>>""-++0`p1A,2+01() @ (&Ԁ`/('> 2SMP @̄D44Xk +;ST.TM 92084-1X232 REV.2340 741223 P92084/&ST*TM::PCO4 OST.TM .ENTR 338`Dp@ D  d<p3@ 22Xk 7;TL. 92084-1X231 REV.2340 760322 P92084/&TL*::PCO2 bTL. \$BATM TL.P 880 (`p (D@ @   8@u44XyXk;WRIS$ 92084-1X227 REV.2121 740801 P92084/&WRIS$::PCO4iIWRIS WEOFS WRIS%WEOF %WRIN %WRIS .ENTR 88ewA`p ApA@ H8@944Xhk;WRLG. 92084-1X216 REV.2340 760622 P92084/&WRLG*::PCO4rBEFLG. 8WRLG. kEXEC~BBp,p`h_ xa6pb`7ppc`^@pgp]`,pdp@g@]05(2p4hg dA0`a4bc?8p\88`8(=pe88KK~B&&8pf88`8(HpKed8d8g(WU\8e8f(N\K@u**XXQPRG 92084-1X268 REV.2340 830629 * ҜXQPRG , << I EXEC.ENTR .GOTO .CPM.ENTP MOD IDRPD RMPAR ABREG CLONE LUTRU LOGLU < - ]]S44`pm`mmpm@pl@pk@pj@pi@ph(J77u(A@pHF7u@H8]J::`x(W`u(W`(W`(W([pp ^pc8fpp`{P}(n(q`@p`s@khpcz@cp`P((`~@pTCC`{(@}p`mpppx((p`uP((p   `  GKOS`|P (` p `{@pc` (@cp(` ~~FF(C(` (Հ A  ?CGKOS?pp`s@kp`r@kpn`yhsHjpc`r@jpe`q@jpf`p@jApgxd  cdefg(4~ AA `( `( `y(_`xhu 0h (W`(; ;`x(3(3`s(3`r(3`q22ɳN(3`p(3`w(3`v(3`u(3`t(32$$Yn    00$@**XCLONE 92084-1X267 REV.2340 830630 * g CLONE  )) .CPM.ENTP IXGET IDSGA CLOSE IDRPL OPENIDDUP )~~/AA` pA`p@p@p@p &(0/(f`ppAp(;(= p`P(A(C pK~~~(E== ` (Z` h  0((_c  (`(`P(m(o` `P(s(u` `P(y({` `P((` `~ssU55P((`ŀ   ((`p(` `p(` (` (` (` (` (s @MlC77X*)P( IDDUP 92084-1X244 REV.5000 <860926.1354>&IDDUP::SRC_92084 7 H IDDUP OO$FIEX $IDEX $LIBR $LIBX $IEX .CBY .CYB.ENTP .LDX.MWI.MWW.OWNR .XBY .XLA.XSAIDSGA NAM.. O׵@@(Qh@pHp P(LPs(LHxHxHx(?  Hhpppupph(Qp~~@@@xhH(L` (S`(` (`( xvHxwZ(xp@!hphP(NhHtphwPA(N(#A{ˆ(`p~~~d<<8h(QhH((0#phh x@ ````'  %  0"p ` ` Ps h~pEEP0(ˈH`h h  $0`v H& ꀀ xxxx A |AD H D@  ;;X((DH  *|;@Ihn33Xh k;OPEN92077-1X088 REV.2440 841011 P92077/&OPEN::PCO 3 u*OPEN EE$OPEN $SMID .ENTR .OFLG CLOSE D.R EXEC ISMVE LURQ OVRD. R/W$RMPAR SESSN XFTTY E#oIIp`hX䈀( @p8`pA+  .`(7 @` xp`h(Rh(R@d IDDPAH(Rh((ZUP(Z( AA@p`h(hH(sP (`(}((}(A  (x pY Y`dAAP(`(` (AhHꀈ`@(PP((pA`hH(h @hHp  ((ASS--(((ֈ`(`(hHhxxxxxx? S   Vq @Hag!44X:k;OVRD. 92077-1X482 REV.2340 830218 P92077/&OVRD*::PCO4 ?OVRD.  @{;::X/.$OPEN 92077-1X544 REV.5010 <880126.1535>/SRC_92077/R5010/&$OPEN : 9$OPEN a.OFLG RWND$ n;;xpp@p`p88 $ x `@` (=8(88888888 008888hI;AAH(wh888 (>8p h '   x (\(p` (jhH(U`&008h8HhH 22P|H888 ?2@С77Xl[k(;RWND$ 92077-1X534 REV.2326 <830217.1306>P92077/&RWND$::PCO70WXRFLG$ RWND$ YWFLG$ j.OFLG D.R EXECRMPAR \>>x xHLxpHP(.`Y`XhOHLx@pWQW@A!FhKHM Rh hHNSHM@8@`Z@`HL@22>8 @`UF  2@k77X2P(&IDRPL 92084-1X243 REV.5000 <860930.1147>&IDRPL::SRC_92084 7 >IDRPL }}$$MC$$SEC $DEMT $DLP$FIEX $LIBR $LIBX $PLP$IEX $SMCA $SMGP $SMID .DIV.DLD.DST.ENTR .LDX.MWI .OWNR .XLA.XLB.XSAEXECIDSGA ISMVE NAM.. SESSN }ܼSETAT *kDDAhHx x Hx X(\p0p!  RP (WRRRP (p`(W`Pۈ(WP(WP(W`P(IOD>>@(W`P(pP(pP(UX(p`(^`(^``A(hhԀB xxx @ xxp0وpp`p`jDDphPxA(^ (xJ x `P(ǀh (X(`(^`(A p h` XJ(^ p `hH FBB(^ (6`P(6P(6`p@h (x`@@p A Ap`h (^xx`p` x p@((Yp`DDA@pԈ`p`p`pp`@p`@pn)ڂn3Ԃ`(`p `pAAhH  p`,L==00p`p (` J(~@p x]P (o]P (o]P(uhH8(b`Ä(A@ p h H(h(HxJpK h 8;;0phH]h h`IB( Ĉx`L`aH`a!(`L`00Ip`ǀL!(`L`a`L!(`axH`P(`(̈ K K~~?d@@hax`hJh(Έha`aa]00aa`L`a@J 5@@ph  h! 0A`A(^`(^p88~??(( 1 `PhxI (7h pH@h]phHHH]P(0`hHHH]P` `I(pI`pH8HhH](2hH]O1CPI(:8  ~~LHHL8LHLR8RxLR8RL8L (X@R@] aff0pfix(Yl lpfghjk([h`llAkm~ɒjjknPP{::*|x| ? KLMNPcP   @F44X=k;NAM.. 92077-1X530 REV.2340 830217 P92077/&NAM**::PCO4 NAM.. .ENTP .ZPRV nnP==A,Ah:x1h 7@9@; P8(+5 ׈7P2@6(.@5a(%@4@38 (+81(`<p((:n@ިh44Xk ;CLOSE 92077-1X536 REV.2340 830819 P92077/&CLOSE::PCO4CLOSE ECLOS &&E.DNG.ENTR .OFLG D.R EXECLURQR/W$RMPAR &.DD`p(AHp`(( hXV( xUHxHxPA(~h(sP(]hU D(NH  (C (C (Chx`WDLL `V@@AY\(_phU (p Apo``h xhVxxx x@(s @W@oW33XNk-;R/W$92077-1X532 REV.2340 830217 P92077/&R!W$::PCO 3((D$XFR HD.R R/W$.BFSZ .DBTS EXECOEEx!p"`pGh!HLx&Hx`"@&)(h!`G(&Mh"0K&8 ?pG%p"'p%H #(p=8(A"%G#$XG(;E 8((D.RTR @_~~>44X=ck9;.BFSZ 92077-1X658 REV.2340 830226 P92077/&*BFSZ::PCO4 :.BFSZ $.DAD.DSBR .DST.MPY]]11p1@:;p2(/`1@9 (H3h1H7H:@H<@5`1@8@: AA53Fx2`2]f7@j144Xk ;IDRPD 92084-1X245 REV.2121 810507 P92084/&IDRPD::PCO4 ;IDRPD ++$LIBR $LIBX $OPSY .DFER .ENTP IDSGA MESSS SESSN +((CT@@Ԡ@ppp` ([@GGxhH0pAO xUVaa@h  x`hima`(tnԀnxh(~wԀwp`(`7`77&& ,OF, ,8,NP7@7!44XDk;SESSN 92084-1X256 REV.2121 780413 P92084/&SESSN::PCO4 >SESSN .ENTR  AH Ԁ   @SrL44XYEk0;.MDCB 92077-1X805 REV.2440 841210 P92077/&*MDCB::PCO4 8.MDCB .ENTR MA@hȇ77X*Ŗ'.ASKD 92084-1Y010 REV.5020 890925 /SRC_92084/R5020/&FMP6A 7 5.ASKD u.ENTP XLUEX 77jgAp`p"0'p#(#&)%%%"( 7#@-77XpŖ'.OFLG 92084-1Y010 REV.2340 830628 /SRC_92084/R5020/&FMP6A 7 @.OFLG `Ϩ @^77XxŖ'.DBTS 92084-1Y010 REV.2340 830628 /SRC_92084/R5020/&FMP6A 7 =.DBTS =J0x@;ZO77XvŖ'.IDNO 92084-1Y010 REV.2340 830628 /SRC_92084/R5020/&FMP6A 7 <.IDNO [.XLA & p h@P( 8 (`  @ 77Xi0 cŖ'.IDNA 92084-1Y010 REV.2340 830628 /SRC_92084/R5020/&FMP6A 7 =.IDNA *\.ENTR .XLA A@@8Y77Xt$cŖ'.CLAD 92084-1Y010 REV.2340 830628 /SRC_92084/R5020/&FMP6A 7 ,.CLAD  R$CL1$CL2.ENTR .XLAA A`J@Ai`)77Xh Ŗ'LU2.3 92084-1Y010 REV.2340 830927 /SRC_92084/R5020/&FMP6A 7 )LU2.3 .ENTR 2 AX X @k77Xj =Ŗ'.LKWD 92084-1Y010 REV.5000 861023 /SRC_92084/R5020/&FMP6A 7 J.LKWD o$DRNT .ENTR .XLA.XLBss== @(h P( Hx /SRC_92084/R5020/&INHDR ;@L ::XIcINDXR 92084-1X307 REV.5020 <890831.0949>/SRC_92084/R5020/&INDXM :ss~INDXR .NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN sMO.EIO. .IAY. .DTA. EXEC REIO.FION .SCO.NFEX .CBT FMPCLOSE FMPWRITEINERM FMPPURGEFMPINTERACTIVEFMPOPEN SPLITSTRING CLCUC FMPREAD INCRT FMPBUILDNAMEFMPPARSENAMEINCXD $$ FMPFILENAME INEXT SFILL IFBRK LOGLU RCPAR $11c!!NO FILE 1TTI"==BREAK DETECTED - INPUT RETURNING TO SCHEDULING TERMINAL OVERLAY (Y OR N) ? _EOF ON INPUT FILE /INDXR: _ INDXR DONEPY YET}}DD pp(8`pʡ:9pPhX 0(`9(3239(6:p(<p`pˀ`(B(]}~~(DEE`(M M:9" Q:A9p9 X"p`pˈ(`(f f:9Q  l:9\p`(q(~`9(|9:((`(< :A9p9 ~FF1Hp`pp`(A Q `@h\pxA px(`pȡ `@p`PhX 0(`P(`P<<hX 0(`P(`P͈(`P(p`P(@18(<<]$HH`(89`9(39(`( 19p9 p9`9(393(`(+*18(<h6~~i3EEH(`>C1J"9p`9(WV918(<1\pb1"pA`h(k(t(ts3(<` P(~~~xFF 18(<`9(39"38`P9((18(`P9((3(` P9(`9(918(<`( 1~~~xHH8( h(H`19p`P9( `hX hX (3( `9(`p(  9~P 18(<1EEp`(*`() !:9> ':9\p((B`(B 31>`@h\pȄx ?px(*F`P]hX^ (aTp9ULL`9(`918(<`p9k39`((<`(|{3 ( :9\p((`(A >`@h\pxA px(`P]hX^ (1$p9`9zA'JJ(0198(<`p9;93`((<`(LK3A(hWA(J`_d`pm:9pP~~9qHHhX 0(`9(:p(93p(<1:p9`9(393( 1V`(1 9~ V :9p9 9p9A ! SSRWOS(40A2)RWCSU WSC ROS NO FILE B@ @P PN?  @@1       .   0 TRCRLIIN/AAB/EENEX 7@^99XwmCHECK_DUP 92084-1X307 REV.2540 850425 /SRC_92084/R5020/&INDXM 9KCHECK_DUP JJ .EIO. .DTA. .ENTR .CPM .SIO. .EXIT .SST.IDLP .MBT FMPWRITESTRINGPRINT_DUP FMPREAD FMPREWIND J--  checking for duplicate NAM/ENT/RPL abandone-~~c@@A@pp5`fp`5@e(πp`(p7lp3`(P3(`:(=`k:ph((`@e `P5((`j0;p;@p~~~k]==`5p ph ("pp6`5(p`i@6@chH6Hd((868( :(` @p8(p6`5(>868()(`ip4`4@cph(H(Ɉ`@e `P5([`4@p4`4@3(Z(?(@p`5pph(pp6`5(|p`4@6@chH6Hd~22((Iv(x(868(n`4@cp`4@5p4@`4@3(2}}<@@(?(`@p8(gp6`5(p`pg((`@dh4H6Hc868(`4@5p4`4@3((?(858(HUa(AU_(hV`^ }WW7K11U(hV`\ UA`hQ YA QH `A`hQ WA OH ``( 1Up2 1Sp2(W Fd ~~  XX(A44) (A34) check_dup: scratch buffer overflow check_dup: symbol length > 8 words check_dup: error on read check_dup: error on rewind ,"?-#># #Dh~b 16@099XPRINT_DUP 92084-1X307 REV.2540 850425 /SRC_92084/R5020/&INDXM 9eHFPRINT_DUP **].EIO. .IIO. .DTA. .ENTR .SIO. .EXIT FMPWRITESTRING*UU E++AE@EpEp;`;(`;p;p<`;(fp`<@ـh< H8<8Έ([`=p=hU)lw`<@prpp<`;(p,|8<8(wH`%(' warning: duplicate NAM ',8A2)55(p<`;(pˈ`<@h< H8<8(hA5)`<@prtp<`;(p8<8(H`@(' warning: duplicate ENT/RPL ',8A2)++Z+A`hAH``(:F+ (A44) +I,H<"@Dc77XU"k ;INERM 92084-1X308 REV.2540 <850424.1057>P92084/&INERM::PCO7 KINERM $CVT3 .ENTR FMPWRITEPTERR REIOHHPs(9hvhwx{Px`z0p`|PyH}x`huxh @ xh A9Pt(P`huxh? J;HSS@ xh? @p@qp@Ԉh!cr`App~@ - 0 `` *** INPUT ERROR, INDXR ABORTED ***??FMP xxx nnnnnn *** DIRECTORY TOO LARGE, INDXR ABORTED ****** FILE MUST BE TYPq``E 5, REQUEST IGNORED ****** CHECKSUM ERROR, INDXR ABORTED *** FMP -002 nnnnnn *** ONLY ONE LEVEL OF TRANSFER ALLOWED **** INDXR ABOR[``TED *** ***** INDEXED FILE ALREADY EXISTS, REQUEST IGNORED ****** LIST MUST BE TYPE 4, REQUEST IGNORED ****** LIST FILE/LU ALREADY OPEN, REQUEST IGNORED ****** FROM/TO FILES MUST BE DIFFERENT UU8>>*** *** INDEXED FILE NOT OPEN, REQUEST IGNORED ***@T_`z)) /INDXR: U ! @Cb77Xe k";INEXT 92084-1X313 REV.2540 <850424.1716>P92084/&INEXT::PCO7 MINEXT HH U.DRFL .ENTR .SDCB CHECK_DUP FMPCLOSEFMPPOSITION FMPPOST FMPREAD FMPREWIND FMPTRUNCATE FMPWRITEHqq== `p`p@p`(P (@`(%A.@p?`?P(;@?((qff6==AA  @88@A`(@@@@p `(A   f  I   @в77X\Sk#;INCRT 92084-1X315 REV.2540 <850424.1105>P92084/&INCRT::PCO7}&$.IFLG INCRT .ENTR .SDCB FMPOPENSCRATCHFMPWRITE99!!*/&QAp$%9% INDXR NRW CZT X Q @b @0S77X={k#;INCXD 92084-1X316 REV.2540 <850424.1112>P92084/&INCXD::PCO7r).FBAD .FBUF INCXD 44 .ENTR .MVW FMPCLOSEFMPPOSITION FMPREAD FMPWRITEIFBRK REIO^IJCT 4n?FF (`(/A`p`p@p`(/+ p `(1(6` (%(;A :`P (Eh)P(H`G(/`P( uuL77Q `(/`P(cP(kP(oP(wP({P(( Okp`(/( -(/( Op`(/( (/( (/( (/( u    GBB @@@׀@+ p     8(&`h)@pHMxxAhf`M`pj j8`g8j`h鈈P(T`h8j`iP(T77UP08j`@P(Zp(6`)@p`ph)pH-g777\)k`p`,0p`p`p`ph)pk 7 j W>>`N xLh)`@@p 0p@h)H h Hx H)` ` `` @,p`ph)p?`@)p`p`p@+pG;;pp 88`h @P(@,px(`)H xh)p`@)p`p`ppp8pp 88`@<<h @P( px(`)H xh)Hp`L`p`Mp`p`)@Mpp8興p 8pK888`hA @Kpx` @b? p8((`ph)HpLDDx`p`h `,h `p `h `hA `@h ` 耀hH `p`)@@ h `h`@p (` p A O OO    @l77X k#6;^IJCT 92084-1X317 REV.2540 <850423.1458>P92084/&^IJCT::PCO7^.DRFL .SDCB ^IJCT .FBUF FMPWRITE E`p `x @J P@ A@W;;XzZIACS 92861-1Y515 REV.2420 <840418.0751>/GRAPHICS/CDS29/ZIAC2.FTN ; %RT6GN::RTE_6:5:343:128 644 0 0 253400 5310707207 34233 %RT6GN::RTE_6:5:343:128 $WhW%RT6GN +#+#+#W8FST ==X±'/ 8RT6GNHED92084-12007 REV.6000 <920911.1439> /SRC_92084/R6000/HEAD.MAC =@±;;X,P&/ 8RT6GN 92084-1X320 REV.6000 <920911.1202>/SRC_92084/R6000/MAIN.MAC ; {{\5\%CONORGP\ABOR  3\ADBP \ADCB \ASKY \BDCB @\BKUP  [\BUFL  \CBPA \CFIL  Q\CGET  j\CLDP \CLOS  \\CMFL  \CONV  \CPL2 \CPLB { \CPLM \CR.DB\CR.DP\CR.SP\CRET  0\CTIM  ;\CUBP  \CURL  4\DCON  n\DDON \DOCN  q\DPLD u\DSKA 2\DVMP  \ERSG 1\EXIT \FIND \FIX '\FIX1 (\FIX2 )\FIX3 *\FIX4 T\FMRR  \FSEC  \GET#  ?\GETC  ]\GETN  \GINT \GNER  J\GNIO \HAST \HIMS \IACM  /\IBI =\ICBP \IDCB ]j\IDEX %\IDTT ]\IDXI\IDXS \IFIX  \ILST U\IN0V\IN10 W\IN11 X\IN12 Y\IN13 Z\IN14 [\IN15  \INER r\INF1 s\INF2  :\IRBP C\IRER {{t\IX4u\IX5v\IX6w\IX7 \LBUF \LDCB  \LNK /\LNK1  0\LNK2  1\LNK3  (\LNKS  \LNKX  C\LODN  8\LRBP  \LS0 \LS10  \LS11 ((\LS12 {zz+\LS13 \LS14 \LS15 \LSTE $\LSTS +\LSTW \LSTX A\MDT2  \MDTB \MESS 7\MKPO \MRT2 \MTCH  \MULR  4\NABP \NAMB \NAMN z||!\NAMO \NOCS80  \NUMP  \OCTN  |\OSDN  x\OSPL  \PART %\PFIX #\PFIX.MAX  \PIOC \PLST  \PREL  \PRV\PTYP j\RBIN \RDCB \READ |a\READB<\RNAM  \RNT .\SCTK  \SGER \SKYA  \SPAC  \SRET \SSID \SWCH  \SWPF  <\SYTB  \TBCH  5\TBLK  %\TBUF  \TCHR +\TERM $\TFIX ee\\TIDC  \TIM1 \TIMA  \TIME \TLSC \TMSK \TRCH  <\UCBP  9\URBP  \YENO <\GDCB [\NDCB \ORDT FRT6GN eh \\LDP \ABSU \BTER \BLER *\BOT0 ,\BOT5 .\BOT9 )\DST0 +\DST5 -\DST9 \FSC0 \FSC5 \FSC9 6\GENC \GENS \IOTB \NLOD \OSLD \PDEF \PIP\TB31 \TB32 \TBLS \TM33 \TMOT ||b$CVT3 2$LIBR 3$LIBX 9$SETP 1$TIME D.CMW;.DFER E.DIV=.DLD<.DST&.ENTR B.LBT?.LDXF.MBTA.MPY>.MVW@.MWF:.PMAP C.SBT$DCBOPEN 7EMAST EXEC FMPBITBUCKETFMPBUILDNAMEFMPCLOSE|}} FMPFILENAME "FMPINTERACTIVE!FMPLU %FMPOPEN FMPPARSENAMEFMPPOSITION FMPPOST #FMPPURGEFMPREAD FMPSETPOSITIONFMPWRITE/FTIME IFBRK 4PNAME RMPAR 0SEGLD 'TM.IN (TM.OU 5UPASC 8VMAST }  4``RU,RT6GN,command file[,switchs[,order1[,order2]]] orRU,RT6GN,?[,error1,...errorn]  command file see manual  switchs (add numbers from below) 1 - HASH stats, and timing inf``o printed  2 - Output file record numbers printed 4 - Clear unused output file sectors 8 - No SYSTEM links used in programs 16 - Use dumb driver allocation algorithm order1 and2A`` order2 modify the default module selection  parameters. Default for order2 is 1/2 order1.  Default for order1 is 200. See manual for more details.  ? is h]``elp file mode  error1,..errorn are error numbers to be expanded  AL do all errors (asks for a list file) or  AL,listfile[,R] to specify the list file no errors after ? means go:YY interactiveYou must be pulling my leg. This is not a GEN ERRor. We know of a typing course that starts soon at ...p`f <  (}'AK = = XX@AhX<QWZ@@p Q @X@8X8XXiUtx=Hghg6x [C(?p \ Q(tp \ Q(x` [p %<"(?cP(?`V(( (VBB(R(?VUW(?hC `C@u  ` p k`(|(` %p [ppp((/P(P(Yo ܨJR9MREnter errors seperated by commas (AL for all; /E to quit).ho@p6 (p`]hv~?? oX7`@(K`@(K`܈h@ @ @ @ @ 8`(H``숈@hሀ@wOO`@h鈈`@h Ah >b@ F  k(F[s! @9+D8T0?/EAL`[hp><+ AA(A!(A"@p2A`h?uD@3'(`P(.AH/1# `ah `=hg6 `>`[h`>hC ܨ`Wh(GM==p7(Q`R `_h`Q (O(dPU(g` `[(Q  ``h`S ]w %(j@ux . x /8 / \ ` 3p 4hh`i:77`g `p hm`i`g `p hrhwh|hhhu@(` +)-P [ `[h`V 4(p ?( `\+S88h`V 4(p ?(`up  ܈`h(͈p`d0 p `e0 p  ܈`Zh` ۈ 4(( (` 0 p  ܈`Yh`O 4(p @P( (eAA@T(u@( 3,*.AP<:<`8`;p3`4( H (5@:8`,"`9+,.013456@ @@>  '23   3 *  ; e   $  / t 3DDH    @( H   <   C \` [ :@ V   JW` [ :@ ep c  \ f H (   j  t wEE q H(  xp @ p H h x    H   \` [ :@    P<  A :@ p '0 A 8 (AA< =  x2 MM RT6G1 RT6G2 RT6G3 RT6G4 RT6G5 RT6G6 RT6G7 RT6G8 RT6G9 x h h x p` p  0  8      8 8 (  @ 'd  ( (  ?? 8 0  0` 2p / ` /P   3( % / 0 1 (8  ` /@ :( "p /p 0p 1 ( 5| ( : ?( < È 48 4`  4` \( Oh [BP Y ?x [1 JAAP Z( DP X8 \ ?` Z ? ?P Z Q8 Q Q,* Qp h  x  p $p \ Q` ZP ( zh HCx P Z8 $8 ( i` ZHCh $  ]@ [p [8 \( i %)h h x  ??p p p \p  Q( @ p ( @ Q( 8  A` @@h X @ @@ p  ( ` P ( ( 8 ( 8 `  8 (  `p 6p [ `  01` 5 == ] ?( ׈ X ` 4X ( @ Ȉ è YENOh  p hለX  pKx h x h ˆ( ` p` 5`h` 5(h [` HHC` ZC`@@hGG`K ?P ` + (8`KpK@3p4@  ׈H6@7 ` hKX2`ZhF8B0098 @+GGEN ERR {NDD @PhY `2+MxppqF@qpr`q@s(n`qH:P P`r[tp{`[|xh xph@p CBB`[phAD((`@ B(`Ĩ8`hpxpH(A88A( E` x툈`[p@h`>qJJA`h>`hp8ƀ hX(8`C078xp @h 9  xi`h[p @h A9 ~~ @@hi`p $x8$$8hX+ (,8++`hA>`7`h>p@8Ix\pU@hT9 IV~;;((^xi`h\[pU@hT9 hi]`V P[j{;;==p`ypyWx@prps@@Phzxt xu xv xwVx (`[pP(PPp`A;{rh (ẍ`py`ΠW"??WWVjA8ʨ;r{p̈`(0V(h xVW0Wh`Pxy@(p툈`pjp$xi`$P"( p"P(AAp@&hHxx`:( (` "@ p(h* X!(8"x' x( x) x*`%@$88$hip&x'`Ul`2l(8A`ghV> E`9x7~~9xxi|hH (Hxh~oAEEh`A>p`(hHhA `>`P(  x;|hp:Ap')'T(.`'+`'h:>> 4h;8A<@@p0([(Lp>P(KpLPP@@6p` 4<xRR8Axn > 4n8<8<<|hP(p `~~a|HHp8p8p>`P p8pph xx x( AA'%ThX("A(%T(8%s%sXXRO SW8xxx ~ДGGx@phPhx (pT ?P(`T'%TA(R %CW S RX`hXvPg (xAA'A(8 @` >}s HHxAA<=A'ATA (p`(6`(9`AC(q/TA5T(`((5ph (GX(GhX(Jh`5N `@ ` 0S99P+ p \ ?(PP(mP(xp ?0P(j Q(m ``B`(h`(}( ܈`h ܀( Q(p \`Kp Q(p0p''u  Q(h ׈0p`8!!?0TR '~~LLII'm sorry, but to expand GEN ERR you must abort. Enter "!!" to abort.p \pވhx ?hP(8HCx(`@Cp \*`:!((h8<P(%( ~q==P`p(` 4(  ` p`%(P p 1920h`Pp8@h6*YYH %p<P8%%89kEEA "p!p8p`TԨ8B=AH<.`B[`HxRH`C8 *R( pS!p `Rh(`Sh 8A@4y/NNAlTUAlTAVlTS 4`S0PPX(PY(PZ(P(( `Wh +`7p7A /RT6GN : break detected ; to proceed, to suspend, ((v" to abort, <EC> to toggle echo _)FMP ERR - (3PKK *`FecssabA8[p`c`Tr`T P(nhQHBP(hHQ@q`q [@*`pP .p` XP(0u`P72 BB%//B  .k  P MMɈ228`hND XO(F8DDt|M@"6F<<X:y3Z' 8RT6G1 92084-1X321 REV.6000 <920909.0927> /SRC_92084/R6000/SEG1.MAC <R\BOT0 W\DST0 \FSC0 r\TB31 7)\1ERR \ABDO \ABOR '\ADCB &\ADSK %\BDCB \CFIL \CRET \DCON \DOCN \DSKD \FMRR +\GENC \GET# \GETC \GETN \GINT \GNER !\HEAD (\HIMS \INER "\LS11 #\LS12 \LSTE \LSTS qq\MDTB \MESS \MTCH *\PARM \PIOC \PREL \READ \SCTK \SPAC \SRET \TBCH $\TBUF \TERM \YENO -.DIV,.DLDFMPSETEOF FMPSETIOOPTIONS FMPSETPOSITIONFMPWRITEqJ`h( )*e [[ # TRKS, FIRST TRK ON SUBCHNL: BOOT FILE DESCRIPTOR? SYSTEM SUBCHNL? AUX DISK SUBCHNL? 8DISK MODEL #? /E?0&.+ BLOCKS/TRACK? J80184@h`V"`EhKH@ ` Nb::(]pbp+B@FH(j(]H `h  `GpDp@pCh8 (up+ExH@ x Hh` `HP?(`(CH(P(` (DCp+D`p+A8+E8D8C8u::hX((z@C(@(`+EH((kH `hA ` (Ix+Dp+AH ((hGHx x〈h5xx pp`@pp` @p pp+Fp+G p+Cd??H `hX `(p$@(`$p+F (H((HP+E( `hB ` (Ix+FP+AH((p+C`p+G`+D@+F@W` (73@H `HhR `A5AA$@( @i,@I@XH(#  hQ`H `=pS=@=A`S -k@ ==`S `=@lPHH(E`T (#`U =6hHF (ThGHH I`I<<V$$@p$0b 8$(ZXf <qe``gw @gA&wOW?gW /gwgGwwgGwvG…gօg܍O O OO߄/g/Ƈ/ÄFg/˅@ // ?/0  >?HHF Ats% ,?,kc /SRC_92084/R5000/SEG2.MAC < - \PIP ~~9\2ERR \BKUP ,\BUFL 3\CGET &\CLOS 2\CMFL \CR.DB\CR.DP\CR.SPB\GENC 1\GET# 0\GETC /\GETN '\GNER 7\IACM \IDEX \IDX\IDXS \ILST \IN0 \IN10 \IN11 \IN12 \IN13 \IN14 ~\IN15 !\INF1 "\IX6\LBUF \LS0\LS10 \LS11 \LS12 \LS13 \LS14 \LS15 \LSTE \LSTS \LSTW \LSTX (\MESS \MKPO 6\NAMB +\O((CTN \PLST <\PRINT.SYM$\RBIN %\RDCB .\READ :\SGER jjy)\SPAC #\SRET \TBUF -\TCHR *\TERM \TIDC \TLSC 8\TRCH =$CVT3 G.CMW@.DFER E.DLDA.DSBF.DSTC.LBTH.MPYD.MVW?.XFER 5\GDCB ;NAM.. 4\NDCB >UPASC j#EE`(#9  (D))@`5h6(H@pUa xBxBhUxh+ (#`HpBh0 (#J`pB `*D'h `RD(*57,$LIBR 1$LIBX 7PROG INPUT PHASE: `p@`KELLhv@8@(FA@0LPpD(mp20(mp28L\LHH,x,\hr.`h(mJ@t&%`q'(b 06s- t^V      F8ln"(08>kUYYBHRJ V$&(*X]_abcdehJMAP RELCRELOCATEC DISPLAY TABLE UNDEFSMODULES GLOBALS LINKS OFF ALL /EINCURRENT BASETRSAVE=X=T=BDSMGR=GEN6NOLIB pp>>HH`,pCpHCx@p8pDp20phለ8X(hHCxP(`p,h8߈(`8怈h Xp\p]pmp}`pJ@&%0(mPp(3P(m`Z/ (m~~Dq(DD 6Dp20PW(m0PpH(mp2`,p@0PV(mhHX (DhHY (m@3(Dx2H3(S\`[h\(mh x`Hp,(,)H`7pH8`,p`Z/`p,`[h(~1lBBPpBpBL(x h8B`B [hB ((`B(b(h5@ A`hD`D!(pH@P(A(`D( (@D D=?`D~JJp`@H6h(h <`CH8(b`DQ( UNKNOWN DEFINED IN  FIRST REFERENCED BY =`Mh(mp`XN0ለX0NXP0QXQXR0pL(b( >>h怈(mh怀((h(mp(b`p(bH`h}$(k(pm`}(bp`p(h HP (-`>P(/`+(14`o(@,p,`p`߱6<<(-hmP(PN("PR(R (Pለ(PP(OPQ(P(:`@P,(R`'p}pnpm (5 (e@`@ `PN@h`]HxhB`B rGGh`XNJ(@!`"(`'(81hXR(AAEFDh!`~Dh"H0 h`!XR(( XNDX("0(h@ (x(`(D@p l[@@Hp`(D@ p (` (D@@"( (HH0`!H H" xxxxx!x"(b(p`PN("PR(I (P (P (pH (-@4EE"5I4yd$@885<hn (Tx}`p,h(@(E@(O P (OP (O`l0pss5>99@(Opm8n(~` p`KhJG(@pnpm(`p(prps Pv(jpt l0p8rPv(jpu8rhqV0403r s }??(` phK(hV(`'@  <H@<)h @pX#X$`S0H` s%pph@xhpPN( xxxx`0 h << pB`p HpBp pph" P(J` pE  Dx`H@Ap` H@H& @` @(` H'FE6F(`p (` p`~~HH@phK ``J`E0 J`(`(0876DVOSp|D* @)PH(+(+pB\`hP(H(AH~5@77x(U` 8B\` @pHB pB(` hP (:(`Y@(I?h`B\({ HH׈ @p @( 8Z`Z'~~w>>p Z@@Pp V(o`p`S(o75h(  HLT@( pB\`YpB]hhn (TxZ(~@@`B\(`UD@!(@((P((ʈ(P ((9`NQ@(()HP(P(`PQ(`PPPPQ(pH`O'^(()`B\ ~~'DD (h(`PR D``PR()@()HXXX()5DX()p@()TPR(GPPPPQPxhB\ (= (9P`!P(9~ 9EEh8B]((H  (9`H(9`MH'^()39051397D'HDP]x ^Q0 < ^5xHL@AEFh HLZ(P@p@PN(5,,bq~@X(@((`PQ(X(`Q(79,mBBD5P(@(EA(5P(`HA(EJ@F5@P(@P   (h8B](g(҈HP@`HH(`N Q(hXR( XNX(hEE(!(hH ((DH x D(hhx(`DhHPPp5HH0x3xEFE3FZ@(X(`NQAAEF3@M( `4!DD' (/3H@`3@LDhD3h8B]((78`Dp55@(TPPPPQh(IPxh V (S(S`NQ`hHh Ds_FFHRtD0v(`x@'Hu0Sh41405`t(H((`(@80?`ׄ@p@ >h P (CPpP(x,DDh(h,HHCPx,5`h(Έ@IF2677,@8H+(p!@0(``'h`@(hO`n((`(`MH1(p( `(`M9@@H1(p( ` v(Έp( ` v(p( ` v(p( ` v(0N@p0(hLx"( x}(`whm (@'`n(#`m(%pmpnP()EEp(b`,HHp `M1(4H`+8++` H@p,`R1+`-P(1+ HPxBUh  8BU(H>hZ[a95x>pw( HH(`w((aHP(a@aa+n55 (a`B(z8B`>H'`h(Dx  <(a(a(z`Up pB(a`w@B[`h([ NO UNDEFS  UNDEFS d<a@K<<XFZ 8RT6G3 92084-1X323 REV.6000 <920909.0929> /SRC_92084/R6000/SEG3.MAC <c5\GENS 4RT6G3 ~~R\ABCO \ABDI \ABDO \ABOR \ADBP \ADSK X\ASKY a\BEST.FIT ?\CBPA \CLDP b\CLRFIX \CONV \CPL2 W\CPLB ^\CTIM <\CUBP \CURL \DSKA \DSKD J\DSYS \DVMP \EXIT N\FSEC d\GENC ~~~\GET# \GETC \GNER \GNIO ]\IBI>\ICBP `\IDEX _\IDTT (\IDX*\IDXS #\ILST +\IN0-\IN10 ,\IN11 /\IN12 0\IN13 1\IN14 3\IN15 [\INER ;\IRBP P\IRER 2\IX44\IX55\IX66\IX7\LBUF ~Wu@\LNKB\LNK1 C\LNK2 D\LNK3 A\LNKS \LODN 9\LRBP &\LS11 '\LS12 %\LSTS $\LSTX \MESS 8\MRT2 V\MULR S\MXAB "\NUMP \OCTN \OSPL \PART L\PFIX \PIOC .\PLST !\PREL \PTYP \READ ~~\\SCTK E\SEGS Z\SKYA \SPAC K\SRET Y\SSID \SWPF F\SYSG\SYSS \SYTB \TBCH 7\TBLK \TBUF Q\TERM M\TFIX )\TIDC U\TIM1 T\TIME \TMSK O\TRUN =\UCBP :\URBP I\USER H\USRS g.DLD~h.DSTf.MPYe.MVWcFMPSIZE KKU33d "$&(-.0??~ /$STRT K 4@@H(K`$ Dh!G`p`dhJHH`p`h:[`p@(Q, H(H`kH(H(], (SDH,`k(S`1pd `A.dpdD`p`dh`h[t77(}, 0DH,`kD(s`!pd@'pd  `d.&dpd`dDŽh{`hzD`d@!pd@d@0#pdhd@ pdhdH'xd . d@dŪpd`dh>7>>H`h`dh D`1h@`d@dh!(pdh`+J8dh(x!xdh%H`h[Dp`!aD_(ո,k(H(,D (,`Hk(@!0#pd`d:<< pdpdpd`dpdJpd`?p pdaD`!pd@hHp`h[D`!a_( D,k(J@!pdՈzpd`1@phK[D`!a_(D,k(8d(*h]@`!((@) ~~%HH@ (P`HHP`4h6H`?Q`5Hh;(-57397$CNFG ;TABLE AREA I <>: E@J@!pdp0#P pzpd HDh.%Hh HA` 'pd`pd~m;;pd`@p_`dp `d`_pD`Ap`Ahd`d JpdFhdDJ88d(pdh2HJ%('pdh;%(0`^D'`^`^`d@pdpdbpdpd99pdpd`?J@p pdah8 (`dhd `d(`dp!pdqpdH pd`5HpA@ pd@dhH`h3J[`!a_H(ո,kH(p`Hp@pd(k(ۀ<>@!pd0# hd@zpd@d@d@pd@"J(B`1P_613$DDTT 8$DDT< $TIME __`d(Lh7%(LhdDH'I`AJppd`ADpdphd`dD`?p }}aF[88pdapW(e`@hrx]Jppd` h\[qpdb pd(@!(h, (h,pd䤤pd`)pd`PAP@DtH`HF (hJ6(`pd`dhd`dIpdpd` }~~:88pda`dpd`?Hp@0pdJ((`)pdH`+@pd@/(1P?(D`2Pd(xdqE`dhRhSH` D(h`dap F@( hdI`@d xd8d`d~r~44hd`dhd`dpdp=`dpdI`dp)(`dh!Thd(J`pd`dp`dhd`dJp`dhd`dp`dDp)`Wpdap (h`PxH`P(1PxPA><>: * DRIVER PARTITION OPERATING SYSTEM MODULES * SYS SIZE: XX TRKS, XXX SECS (XX SECTORS/TRACK)  = XXXXXX BLOCKS x`` (128 WORDS/BLOCK)SUBSYSTEM GLOBAL AREA <>: DRIVR PART BG COMMON SYSTEM DRIVER AREA <<PAGE XXXX>>:  RT COMMON BP LINKAGE XXXXX4MEMORY RESIDENT LIBRARY <>: CJMEMORY RESIDENTS <>: V]RT DISK RESIDENTS gSYSTEM STORED IN FILE BGPRh$H1P(Hhd1/& Hhdx!t8hdx!`dp)pd(@-II{l!!pd8 8dH`h+0p`d` @H HxdU@ h8dU(I.@@@pdhH xdgQD``DJphdhHxdh QhdgHxdg(p)@(H@-/1(P P P(P(P(H (,HH,(`P!P5((BB_5p4`dap3DA@BHC(5@4H`Bp0HD@(-BC(5@4(`0p3p1@HCBp2HB181C181`11D811 82(!D`BP (-`1(h3x 544|pdZP(ZhdxdxdHxd``p `0 @pdh Pd(O`dhH JHd8 8dhD(C`dp)(JJ`hd`)Pdxd`dhdfxdfhdHHxd`dZP6hw`d#~i::`d#hנ`d##`+p׈#8׈H#81p(0J#h)Xd##H,$(HH4#5#H6#`d@df5hJ`!@d#`dI@&(ɨ`dI#:<<`d#`d#8dZ`dp`d,0#hӀ#1`$#h`d0A#6#`#`(`H`&(18*| xdh#8dh(٨ ::DpdZhZ`YDxZhYH xYH!`dZP(`d`dp)D(`+pׄ8H8(0y`d@dJ`dI@&(`dI`d`d`dpd/`d"0AH@`1(`x h `&(xU!BB hd`Jxd`#DH`pq(x(pupv.Hxw`phxw 8wH8(98.xwDhw`vHhx`1`p`hy`?hu H@(V(X[(A`h( (n`vhv ((cH (V.H (V8.. * (V(f(3v~z CHANGE  E nn<<? H1P5P(,,J(g.Dx)pDHh8)X)D(+P(8H1H/P5PH (,D,1@H1(n@>0\4<<X). pZs 8RT6G4 92084-1X324 REV.5000 <861030.1102> /SRC_92084/R5000/SEG4.MAC <Y4\NLOD #RT6G4 B\ABCO <\ABDI :\ABDO 9\ABOR +\ADBP A\ADSK H\BEST.FIT (\CFIL 2\CPL2 *\CPLM 1\CURL \FIX\FIX1 \FIX2 \FIX3 \FIX4 '\FMRR N\GENC 8\GNER \IDEX F\IDTT \IDX\IFIX \ILST \IN0Q\IN10 \IN11 \IN12 \IN13 \IN14 \IN15 .\IRBP \IX4\IX5\IX6/\LBUF "\LNK$\LNK1 %\LNK2 &\LNK3 #\LNKS !\LNKX ,\LRBP \LS0\LS10 \LS11 \LS12 \LS13 \LS14 \LS15 \LSTS o:\LSTX 7\MESS E\MULR C\MXAB \PFIX )\PREL I\PRINT.SYM4\PRV@\PTYP 6\RBIN J\RPDK ?\RNAM 3\RNT5\SPAC ;\SRET K\SWCH =\SYS0\TBUF \TFIX \TIDC D\TIME \TLSC -\UCBP >\USER M$CVT3 -- uT.CAXV.CBXU.CXAR.DIVP.DLDQ.DSTS.MPYO.MVWL.XFER G\ORDT -ii11NHNHNsNvNyN|N~ <cdp (;0//// / ///// |i2==FG`@P(R`JhL`N@h`HL`h7D5p`Kp ,`N4HpNxNph)`N(h`@PHPHPHPHPHxNIX)(P`KoFFp ,`HhL`@h75pNQpNRpNTD(pH (~(DHp((hH(`)@H@`DH` H@`p(`($EMA$ 74 ~~AA @`D8h6D 75 0pNT4`NpNH`@P(P(P(P((h)H::H`N54 K ADp H JpNZ`NIpN `p3 Ah O @~@77 `NpNpN`NhN R`NpN xxH`NpNPP(P P HxpNP  hN hx`.pN^`/p h/`N(3`N"9-55pNJHN`N @(;HN xNJH` @N(((CJ`8hN HNxNx`NJ f`/hxP(HP A9xɠ`N(h (j`NIp`/P(a(Y`ob66`.`pNIpNJ`@h/ P(w`NIpNNJ@/pNIpNmPNQQNO H/` J@/QNQH`@P (X/((mJpNN`hJDQ/ p/pN@NI@@p(`N(8N((p?@H99h XX `D69(@( (*90**8N(P ( xNƨhNPPPPJhNxNK`AhN H pN`@L== P(@`h@ pNX(`(`(h'MHL'0'(`N(88N`I(8`NIHh)ML(P()@/)@N@NIDh* ML`p0+`$Ah O.==(+`/`/p@ ?pA`-h$OAh,O(-h&h.(P `$OD`h.7!@N(A`8`N(D(J`Nbp2#(s pNb@pNcpNd (T}}R88(`(R`NIp0 HxN`NHxN  (`N@H `N AR( `NchN$HHxNI%  `N@NI$H0% pNdpNchNIxN`p}GG`/@~`.@ 69HH9`%p1@9 x`/PÈ(P(pHH 9@v$(+`N(ՈP(`Nb D`2#`NdDDDH$%`2 J`hNX(Ȉ(h&P(H( x1, Hp0HH0(`/@J1xN`D(#p0(#( (9D@pp0D(9 D:880(S<>H(dHP 9H(^9H(2H`2(@NIpNhC(ohN:`P({`@P@({H`N *`@PPPP(ۊ`N HhNIxNSBBJxNIHH:hNcHNxNI`(5416?@|0 @p0 P(p0  0"P(p0h8Ȁ8̀ 3BBHh1( HN\HN\׈@p@ (`H9ЈJ`@p1@N\Dp(H1Ȅ(81@h1 @( 91( o$??@x1 Hh8N](H5P (.P (N P(gxH (g@(gH(9@H`@P(E`H(L phN (Lh㈄(gm(g(g(XlREE@`8 DJI5PNQJQ D` QDNQ`13HhH5pp(h` (hAO`Pp`p@P (hD MHLh`7`pP mh@`@22VmP@JmP@ @ D H  `(--2  +`HH"$ 0D xMxPXĄhQ88`X@AM@APQ8ŨD ` D`NS pNS@N`8I`/hA `-OPQhqq) 99D9pN\`/pN]h1 H x1РhN\ ({((P(CX(CP(@(7` 8 IH5(HH2`2H@0(Hq3C>>P(q@ xN `N(` (h` `pNspNth` %  @A`O (jDML`hH7(xnJPnJ(eP1 HNP`@NOQ(JH13h<<P(5P (@P ( D(x  P(P( (PP(0P(h8N](((@(D `(H`@P(P(hN`ˆX(BB(F F F F 155258 @92hN`@ (`(`NC(` @P4 P3!(xꈤp(`N(`(4238hN @8 DI5@RH h@X@00 HPH`P'XBBD181( ( P(P(@8`@ShPNO( 61A@1D811Ā@"1ӈ(5È7,(3(J3J9hN (JA??P(J`N@ xh@xp @H 17@, (h(HPP(c5P @((p0(px0P(pP(pP(p("@H0(81Q(`/pN]Q((;; `/pN]`/FH(%@JH/xN8NZ(`pNP(xN`BH`CD811xN` pN81`N`NȀ(pNHp0pHAAa`( pNp0P(P(P(@@H1 (` >p0,`( xJ818N](8N8N((``H17 HpN( 1Ä781(1D T1~ @@@p0h'HxU(,pN`N0ND@00 ()PPP()P()P(A5P (@()`N(P(>`(QH(E`@Hp0 8HHx`V<==(#D(`NK()88D`Np H`P0N(pphD (>pDp`0pHH9`(,p  ((p,5P ("DpN`NC(`,PHNK yAA`N @hN:8NpN( " @ DA"x0h "@hN (DhN:`0:8N(`@H8I(`(7693hN (Q1D(811(pN]81@1(81@1(pN@81!ZDD@1(pNDJ81`1p0`NJpN0:8N]J(808N(8N(`0Hp1( dDpN8181h1D9`DpN81811H3hH81(8 * x@x ( HpDX(z >>X(CX(j@'@ ( SDV P@ (CpNpNUpP(MHUpUp`N(Zp@ (,PN(Z(/hX(Z`6 (5(Z`N @pN x *<==0pP00hND (H:hN (HD!(X<D:`N(Ch`N6 (BhN  8(=hXN(= (/ XN(C(P(00N~~2.yEE(C(C8`8(C628(8@`N (@N(D((8D(D(` (hN (`NP(~S==`N(`N(Π@`N((H=>(hN`Nh`HP@hxNi@2p x  @@p HP( P( P( P( PFHH( ( PNi( Dh x  @ `2h (`h (H`@PP( (@`2#Dp2"$D%`&&D`$p2 HH!( /"( 4H"( 4 7( / *  d *$h ( _P 70 C< /SRC_92084/R5000/SEG5.MAC <F\IOTB 9\TBLS H\5ERR @\ABDO =\ABOR 6\ADBP A\ADSK C\ASKY \BUFL 3\CGET 8\CMFL )\CONV #\CPL2 "\CURL 0\DCON \DVMP \FIMA \FIX\FIX1 \FIX2 \FIX3 \FIX4 I\GENC .\GET# /\GETC *\GETN +\GINT ~~De;\GNER \IDEX F\IDTT \IDX\IFIX \IN0 \IN10 \IN13 \IN14 <\INER ?\IRER \IX4\IX5\IX6\IX7 \LBUF \LNK\LNK1 \LNK2 !\LNK3 \LNKS \LNKX \LS10 \LS11 \LS12 \LSTS ~~~f>\MESS 7\NABP (\OCTN \PFI((X E\PREL G\PTYP ,\RBIN 9\READ 2\READB-\RNAM D\SKYA :\SPAC '\SRET B\SSID %\SYS$\TBUF 1\TCHR \TIDC \TLSC &\USER M.CAYT.CBTN.CBXS.CXAR.CXBJ.DLD~)) ֛K.DSTQ.DSY5.INDX O.LBTU.MBTV.MPYL.SBTP.XBX4UPASC )~~388II`('H$:J `EpIpIpIpIppIpI`p H:`hf>`IJ:`IP (MDh)J$K;`h89`*P(P`IP (P+`c.(8/P(S~,8CCD`o;((E(;`LJ(;PIpL(;J(%`z(9h(HxK`*PIH(\*(^`p(9pd`HpN`*pe`Np`c.(\h( xN`dpRPA`K0LpdhbD(\p D({CCH(\pMHpLpT HhEHDpHh `M060`L00`T@(`LHL`T`H(`LL`H@Hn`LHH`@h>pOpPpFy==pQpRpSpC`pGp@/(PD(\p8`p/P(P( P(PD(P(P(PB(&P()l(8FhHT (8D `(H(`q(98Q(p@HH!(9Y::`m(9pH/(P(ʈ(8O(`0MpM(8P(`(8R(`(8S(`N00LpL(8F( pHT (pT(8C((8GH(`*P(hxH3(9X'5GGhLx(3(`7hHL`@p `-@H=(=@(6M`rPP(hNHOP([PDHLPQ(U@HRLhSHx 5x4lt`hT(t((5(@@@p-|@@`p2hHc`ULhj`H>(` D,=(FH/PE(H`pl(H`(hKXIB(hC @((PL(`n(98C(`LJ(`Ih xIP(`~;`OvyDD@D`J@pI`EH`OH`E@cH`d Mpdhb(`H`dP>`eP?8I`KhN 0 8 hE@H@@`XH@`M0K@`NH`0N@H`T@ `H@@ DxEhHI`LEE@0H( ` 0(xSh S8I(`I((LH07Lxh)h `pF EhQHOxQhPJ LXx8F('`7L,9EQT ? CS43RFXEGG=DV0.I `IAV@IpID((b(Vh8@H(i`EpDD@`EpE(V`p`.(}`p`.lH`1P lH38llDJ::`EpI pIpI@`hg>g;;`IP (h)`$0h$pZx[H:`hY9`*P(!`IP (+`.(p@(/H(`.(P(((`h(`z;(p p`@I(`hIXj55Xc((X( hI(րH(xIXH@pIYHnJ@`IYpIYhI` XcPIA(XPIC(`IC(`hIF ((`0hIPI(XcpIPI((AADXpIhE@J8E8I(`rH;( $G  q 2 `IHHpID ::HI xI  @HIDHExEp?D@`EpI`ApI`I_pI`haJ===H>hxI@bh (l`pVpIhڨ`IhAPP(GhH6` HHcxI:Hh9`H*P(-+`c.(g/P(n`s;(X`lD?`(pU`H*P(}P(P(P(z??`u;(X`H*P(z`.(h((xaHI (`v;(Xha`I (@ (hV(`*P(z`H*hH@ (@P(` hV(`w;H(X`*P(z`*hD~~jDDH@(@(p DHPP@( ( (Ԅ`x;(X`0IhUD` (넀`*PH(z`.(*Jh(p$x$@/(`{H;(X`UPJ(@7@I(( ~99`t;(X`$(gH`6@h$(XpIhDJhE@8E`IH@7A8Iê8I@8Ih( h$XV(&I8IJ`$I@8I@hED@8E8?(X(8`UAڈH(`y;(X`PU(8pU x$hVx$..y6Hx?(:`HpG`@hh\HhHIhV A. Y^^Z = EQT #? cI.21772324252627282930313233343536586096/E0DBTSM=X=T @Is$CICEQPRENABT G S   ?A?;```  - INTERRUPT TABLE EQUIPMENT TABLE ENTRY DEVICE REFERENCE TABLETABLE AREA I MODULESTABLE AREA II MODULES TABLE AREA I <<PAGE XXXX>>: TABLE AREA II <>: MPT zDDp~8J`EpI@I@IH@IpE:~H(DH(xEc+h``(p$lb[CCH@8$([HxE`AV5ph`D@(pE`@`@`@*`hH(HxE`hDH(xE`@hH9l(pIl(pIhI@H(<(Hh=`DJhE`I@HI77HIxE:`IpI`In@(`}?`Inh)`$pR`$pSH`hQ>`h@Inh@H(`};( JxIn:`IoJh)`$p``$pa`h_>`h&@Ioh~~8D::(`}H;(xIoHIn J xIq:`IkJh)`$po`$pp`hn>`h6 @Ikh@(`};(` @In(H <( xIkH:`hD9`.( H<(hH ( ~66pI`EpIm@Ik@pEHIk ($xIhImp@`@8I(H hImpIlD@xExIxIfHIqxExIxIxI``I@InpDJpChI@@pIWJ`ApIppIV`InADV[@Ep(@pBFE@@`IoV@(pIp(`IV@(pI@DpI@pE:`pG`hi\9$JDK$:J@$>:pI`G@kpI\FDl8l(=`.(z(z8ll<l<AJ~HH9`0(wXX(|`(8~8~~8~~Dp(=D`hEDH`(@xED:hE# OF I/O CLASSES? # OF LU MAPPINGS [,# OF SCHEDULE PROGRAMS]? # OF RESOURCE NUMBERS [,DEBUG TABLE SIZE]?BUFFER LIMITS TT(LOW, HIGH)?$CLAS $RNTB $SCTB $DBTB $LUSW $BLLO $BLUP $LUAV HxIpI9`H.((`(>JpIkpIHSpSHpSJ`I(Hkp (PI( (hX(6 ((`I @pI x 0plP0mD@@H{`I6 (hI ~~bDD 8(hҨXI( ( H(@(ܨ@H8H(@(`@(`IـP(`I(`I@(`I(H{(%{H&(ڨH(~~~>;;(  -D phk PD!`H PIH(* 8(!H`8 hIx` xI`IbH(Q`#H(Qp`ըPI(I`IPI(\@npIpI݄hH6(Q~[[I((`IPI(\h@IpI`H6pa``pIJ`PIb8IcP#8Id`a-`p@;-`opIU  8IU(fb|16[>>J),,,GR= IF,GEN6,>@A<<X6 OZs  8RT6G6 92084-1X326 REV.5000 <861121.0902> /SRC_92084/R5000/SEG6.MAC < e+\PDEF ~~p9\6ERR 2\ABCO -\ABDI +\ABDO 8\ABOR \ADSK (\CGET \CMFL .\CONV \CURL \DSKA \DSKO \FIMA :\GENC &\GET# "\GETC %\GETN '\GINT $\GNER \IDEX \IDTT \IDX\ILST \IN0 \IN10 ~~~ \IN11 \IN12 \IN13 \IN14 \IN15 !\INER \IX6\LBUF \LS0\LS10 \LS11 \LS12 \LSTS \LSTW #\MESS 4\MRT2 3\MXAB 7\NUMP /\OCTN \PLST ,\PTYP \RBIN )\READ \RNAM \SCTK ~JJ*\SPAC \SRET 0\SYS\TBUF 5\TERM \TIDC 1\USRS 6\YENO ?.CBY@.CYBA.DIV=.DLD>.DSTB.MPY;.MVW<.SBTJiNN   !(4#(NONE)`(( 9`p,`p~H*h}`#Hp|`,@sp(fD@ P,(c8|H thD.`ZZN..h;F`ph`h@H#@ (8D8,h,X8,X (X(6t`p~(0`|t`h"H#tZA}YY~XX PARTITION REQMTS: XXX PAGES  $"MAXIMUM PROGRAM SIZE: W/ COM BGL BGEMA X BGO %W/ TA2 ? CHANGE xHh@.`((h;Hh`#@@ h: H:@hD.*h`H#SYS AV MEM: XXXXX WORDS- t*H`h#h @:`:@hLj hx@:҈J*`:p:h: `:0H~~88x:`:@(Hx:Ϊ@@:p:h7@x:`:Ί`:hSJ.`:hTD.*h8`HH)` &(Z@`/(Hh:H (Zh:H(Zh:x:p:@p| p:(V~N99`:@|P(VhH:x:Ϫ`:@:(]`$(00`:ppppp]pepbh:xf@(q+H+8(m` p8(k`:@7pp_Dh.*Jh`#`:H(*hȀ`688D#*p^pepa`]P:߀(h).`hb (p!`_h)J.`p#`p$`h(p-`_h)J.`p/`p0``h)J.`p2`p3`h))`%P(kP(N`]P:<<((`(HH'`&(@p(((`H%P( P( P((`b(`@`(8ahc(`@_(pbxp`P(8^8^(`@(hb@@ 8^(H( %P8((( (`^( (*D` hU)6( (8b`fpd`p`hxc8ehfHxg+HH`e+`0+H`+`bH`d+xf`b(=h^ (=`gp;<DD@thtpt@@@up `v@:mh-h ([`uҠrH`u+ `t+`( (Ј@h?H-J0JHH+(|hx HH(<xH-pxx~==h+.`hD#*`h,@#h)`%P(`('`&(pH"P((p` %R(:(p`:p:8]`P(Ŋ8h:H x:H-P(`````d@@H$(64656667h:HJ-p: (`:0 HH@+H-@(H-(pH-(H-8(-H0 H+(J  -P:(pH-H0 H+(H`h+` H+`@0 H+Hx` p( @ QQ @ $EMTB MAX # SHAREABLE EMA PARTITIONS IS (-SHAREABLE EMA PARTITIONS ?hX(AD8::?-P(O-P (O-  :H@H(<H`~RH`@\99(`@RH`R`~R`R`~R`PR`p`p `p 8RRh~xpP /H (@8؀`??h #hHH)`%P('` %JJ=>:H`p:"PH(`$(p` %JA=>`p :(`$(71HH@H-p`@A@ AAp`B @:pH-p&??Hh:x-@p-P:(-P:(- :(8hH-p (׈@(H 1-H(`$( 68p:@(`H $(70`:  @:mp-@pH`0+( SHAREABLE EMfA PROGRAMS ?KKc##H*`h##((BHh)`@H%P#((hA@(P>(PH(8#x?#K@?? `& (p@: P:(((@B @:@ph-(hH- (hH-pHh?H-p@ J t@(`0@0h?H+( MODIFY PCCROGRAM PAGE REQUIREMENTS? {ASSIGN PROGRAM PARTITIONS?0`:ph:+`:+`:+`:+`:+`:pH@+`+ p:`:h4 h: `:p:h:`:@+p!p:p 8 44` P:(0:H+(@p `p:8!(@`4(`:芊p:(`:p @:p:`:p!` P:(P!( p:` 0:H+8 (`:@(p:`0p:p 0:+-??8 ` 8:(JJ`p:=p xX (iDEPD@(= H /P  H(@h `*D@p8H8`fp:`gphI`PG(/PH(/`*p @H88(`-$(01`hPg(=h8hj5BBH8:(3`hgDD`p@h (h.P (= @`p:h88h8:(]`Dhgxh`Dp`fp:8:(NI@D`p`, p:p:p:Hp,`p:1` 0h2@Hh3 wAAD(Dph, (D(x /P(x((X`X`X`(x(D  /P 1P 2P(xHp(xh, (`:p:x:8,(wH`p @P8 :== h3 H+8  +8  @DJ++8:H(Dp@ -H( /P (pD (J0`:pE`:p`:p`:pW`:p] `:po@:΀0 0:pc`|00 0:pi`:늊p`:p`:p`:p`:p`:mp`:p`:pϨ`:p`:pKpQ`:ph x  (<pp:`:p`:p`:p`:p p`:%SSp` p`@p` p   ( (<8  H+ ((1`CH$`  D#557F$MRMP L$DVPH R$#TRK X$ENDS ^$MATA d$MPSA j$MPS2 p$MPFT v$Rx``TFR |$BGFR $CFR $EMRP $DVMP $DVPT $DLTH $MNP $MCHN $MBGP $MRTP $IDEX $DLP $PLP $LEND $BLLO $B33|C##LUP $CL1 $CL2 $STRK $SSCT $DTAT 3 $SBTB DOk CC $TAT  58  (<8  H+8  +H ( ( /SRC_92084/R6000/SEG7.MAC <l-v\BOT5 \DST5 \FSC5 \TB32 '\7ERR \ABDO \ABOR %\ADSK \BDCB \CFIL \CONV \CRET \DCON \DOCN \DSKD \FMRR (\GENC \GET# \GETC \GETN \GINT \GNER \HEAD &\IBI\INER \LS11 \LS12 \LSTE \LSTS ff6#\MDTB \MESS \MTCH \PIOC "\PREL \READ $\SCTK \SPAC \SRET \TBCH !\TBUF \YENO +.DIV,.DLD*.MPY).MVWFMPSETEOF FMPSETIOOPTIONS FMPWRITEf`( '(8`` 00?  MODEL,#TRKS,FIRST CYL,HEAD,#SURFACES, UNIT,#SPARES FOR SUBCHNL:  4ADDRESS,#SPARES(,UNIT) FOR SUBCHNL: GBOOT FILE DESCRIPTOR? SYSTEM SUBCHNL? AUX DISK SUBCHNL? dDISK MOD22Sh""EL #? lCONTROLLER SELECT CODE? yAUX DISK (YES OR NO OR # TRKS)? /E2eTTRZ?@J 0 BLOCKS/TRACK? d0184h`&@h``hkHH` (˨p(B@(HD( `& (`3h2A)`>>h `pph8 (p(Ex`hH `p h``HP(i`D#! (g@p@ &(g`H(gp(gP(g`Zp`ZI<<p@(g x`Zp((@(g Hx`Zp@(gHxP(g`ZhH (gh (M0p (MZ*0p(g8`8`8`p(D1[::8``p(A8(E88hX(l(H@(c(g`(E(qHH( `h` (rdx(Dp(AH (`(AA*@@X$(`(AA*hH pcpoppˈp&88p% hpp׈phpqp'`pgpp`hƈHxxVhLjHxxWhʈHxxZhΈHxx^hψHxx_pNh?Hx?xExOxxx!x+xhTHjj)11xTxx0x@`$&p`pn p(Fp(Gp(C `hxHH`(Dp!(J`!p(F( D(( P(E( H`h`H (dx(FP(A((j__gw @gA&wOW?gW/w@g +GwwOg Ov܀'GwwgGwGՅ…o_ƅ %/Ä/F_/@/ȏ@/т@/?/?ˏ_OO> ?F Atd% ,?,sj /SRC_92084/R5000/SEG8.MAC < F\\LDP \OSLD 0\TMOT v=\%CONORG5\8ERR \ABDO \ABOR \ADBP \ADSK 7\BTER '\CBPA 9\CFIL \CLOS \CONV \CPL2 ,\DDON \DPLD \DSKA -\DVMP 6\ERSG $\FIX%\FIX1 2\FMAX 8\FMRR <\GENC \GNER &\ICBP 1\IDCB G.\IDEX /\IDTT \IDX#\IFIX \IN0\IN10 \IN11 \IN12 \IN13 \IN14 !\IN15 \IRER "\IX40\LDCB \MESS :\MXAB \NUMP ;\OLDMX\OSDN 3\PFIX 4\PFIX.MAX \PREL \PTYP \SPAC +\SRET DD \SWCH (\SYS\TBUF \TIDC \TIMA \TMSK *\USER )\USRS ?.DLD>.DST@.MVWEXECTIMEF TM.OU DPP`(+5// $??PARTITION DRIVERS "DP <>: )0 2OS PARTITION XXXXX<<PAGE YYYYY>> >8(cJ@p<0p<~p<@<.P33 p<p<@`<pJDp p<  J(`<pp< Dp<(,p p<p<` hp<ܪ@<p<p<@<p<`p<٪`<p<p<(h<x<H (`<@<p<~~>>p<(,`61`h H2(x`<h`p$`<h.D` h! D`'pp<a`<@p@<pDJ`p<h< D(."(DH)h<H @(`59JxD(h-`< p<~==8<( (P<(`<H (`< x<p(`DpPQ@@p<h (h 2()(JT()`p<D`<*JJ` p<:p<JJ`;p<h<8;;H<I (xDH( `ShE`<pDJ(`<*`<p `<:`<p;h H<`<@<p((#H<8((!H !(`<*@p0P(5Jh`<(]8<9DD `@< ~ @<@<p<(FDRIVER PARTITION OVERFLOW p}`pzpH=@| P`}pyh@2(whyX}T`z@|p QD@@|pH} P`}hH2T8TT~~}DD~((8DVOS> JD? p<`<Iph<x<@`  @Dp `<@pJ`p<@p<8#H@$%~<]==(h@(%(p<`< p<`<@<@p<p h/`<hE`<hD` h1DD `'pDp<a`<p)p p<((툀((DD.@`hH<h== (83 p<(`@63 p<@(h<X(H`<Q@< `@@P<(&8<P<888@`p<)`<A(p<ADp897~~;XX(pphI(@@ ( (@J0206071214182122363739414347485152535457596063717273 7481828389 9697996(5?~}},DD3`>?*H`4@00HAp> AD?,?3H`AA>?.D`@h Ap; bdfh`:h=D` (ԈA TOTAL ELAPSED GEN TIME =XXXX HRS. XX MIN. XX.XX SEC. XX.X% OF TOTALFILE OPEN/CLOSE/CREATE RELOCATABLE FILE READ jjOO ABSOLUTE FILE I/O LIST FILE OUTPUTINTERACTIVE FILE WRITE COMMAND FILE READ PROGRAM SEGMENT LOAD SPECIAL ROUTINEjuj@s<<XU1Z 8RT6G9 92084-1X658 REV.6000 <920909.0935> /SRC_92084/R6000/SEG9.MAC <,\BOT9 \DST9 \FSC9 v\TM33 &\9ERR \ABDO \ABOR %\ADSK \BDCB \CFIL \CRET \DCON \DOCN \DSKD \FMRR -\GENC \GET# \GETC \GETN \GINT \GNER \HEAD \INER \LBUF \LS11 \LS12 \LSTE \LSTS #\MDT2 }}="\MDTB \MESS \MTCH '\NOCS80 \PIOC !\PREL \READ $\SCTK \SPAC \SRET \TBUF \YENO ,.AD2D +.D2AD (.DAD0.DIV..DLD).DSB/.DST*.MBT1.MPYFMPSETEOF FMPSETIOOPTIONS FMPWRITE}``DEVICE (MODEL,HP-IB ADDR,UNIT,VOLUME)?NUMBER OF BLOCKS ON DEVICE? CONTROLLER SELECT CODE? BLOCKS/TRACK? BOOT FILE DESCRIPTOR? SYSTEM SUBCHNL? AUX DISK (YES OR NO OR # TRKS)? AUX DISK SUBCHNL? M`[[DISK MODEL #? xxxxxxxxxxx BLOCKS REMAINING (STARTING AT xxxxxxxxxxx)SUBCHANNEL xx (TRACKS,BLOCKS/TRACK)? SUBCHANNEL xx ASSIGNED !-4?GW`g ϙ`( &?JJ|44 $&6@ - / C E TD0-@J ߪ0 JJhH``Մh ` (p-B@((`ph戄88( H`h `HP(P((> r 9N`!W$"wXH``'pGAJ((^EGG# (U@@@!.A/(a `hHA p,aAA./A.(l (l(`܈pg`h*`p|A`h*+~g+| `hH`ppA+>>h`HH `P(0P(P߄(8./8戈8`8戀`88`Pۈ((5(5H`CpCP(C`p(`HCpCioDD@C` 0 CC`1@A/ި.)C/`PC`HPC`Cp@C`@刀p@C`@PC`戀P~~f@@C`PCh A/`00h戈H`@͈h`@Ʉp./(5`P(C.(/(e`@H(017384`C@hdxchfxehoxnhxxw~[NJJ8c(We(Z8e8n8wH(N`@(enwC(e@gp84858687888989y]______@HI `P(>p`pp+H`h`00%==p`͈p8`Pۈ((`P(<`@刈p`8怈`08pHP<`>HP-E([ `҄h ` (Px-FP-AH(_(PH(HA([p-C1Έ@@p-G`-D@-F@(s`AH(@H `Єh `A" (w@.@@~~&@@X(t Hh` `Hp@` 0 `t`@P(`@H(`BhH (hH (ʀh H刈HX(ʈX(ʨ~zb@@`@hg` hh` H`p% `ӄh P`kpZZp[8Z@hP((`p`T(Zp\8Z8\(RZp]8ZZp^C >>8ZZp_8ZZp`8Z`^(@`(``pa(`^pa`]@p?`]@apc.?/dcpf`aAh_/?`a@6pb`a(:]8](5cAA?b`T(.d/?`f88PIc`a@^p^`a@_p_(VH`T(ـ8``wg88A-li@P P`p`-EDphDh!```pH88(@x!h v$TM33 Hh `m^^g Aw &w"#hG"#@/G#w#/g!/)/)/)/)?> Ago4s/)…g"4/<4b  @0sb@ng`ga^^`` A  gb?bb/g/m?bbggqgggr/sACb@pg/AOwsgsb  sg/I /s'ïb  sPPNx::b@ng`gago 4s g/ g/ g/?g@FA t)t*% ,?,./<.> >8(cJ@p<0p<~p<@<.P33 p<p<@`<pJDp p<  J(`<pp< Dp<(,p p<p<` hp<%SSTCH::RTE_6:5:121:128 644 0 0 74400 5310707210 34276 %SSTCH::RTE_6:5:121:128 $yy%SSTCH +#+#+#y/SRC_92084/R6000/&SWSHD :@(*F;;X7}   8SWTCH 92084-1X330 Rev.6000 <920911.1221> /SRC_92084/R6000/&SWTCH ;zz%S SWTCH 1\BLIN 2\BOOT 2\BUFA 2\BUFI 21\CLEN \CSBF /K\CSRT 2\CVAS 2\D#ST 2\D#WT 2\DFLT 2\DFTR 2\DNSP 2\DNSU 2\DNTR 2\DSHD z1\DSPL 2\DSUB 2\DUNT 2\FFMP 2\INIT 2\LNTH 2\LU22\MODE 1\RDIN 2\SAVE 2\SECT 2\STRK  \SWTM 2\TDLU 3\TMT2\TRAK 2\TSUB 2\TUNT  0\XOUT c$CL1$CL2$CVT3 $$DATC $LIBR $LIBX %.D2AD .XFER CLOSE CNUMD DCBOPEN !EQTRQ EXEC FMPCLOSEFMPFILENAME FMPOPEN FMPPOSITION FMPREAD FMPSETPOSITIONGETST NAM.. NAMR OPENkkERMPAR SEGLD UPASC \BADH ,\C#BT (\CADR &\CDSK +\CSB2 '\CSET )\CUNT *\CVOL \DSK0 \DSK5 \FLGT "\GDMA \INP0 \INT0 #\RDMA \RET\SETD \STD0 k``SWTCH generation file installer. Rev.5010 <920911.1221> ****** W A R N I N G ****** ALL activity must be terminated before system transfer process. Enter "!!" in respon\se to any question to abort.<``=File name of new RTE system?LIllegal file name; Fmp err -xxxxZ^New system i/o configuration: nSelect code XX privileged interrupt tSelect code XX TBGSelect code XX type=XXNe$^``w system (lu2) select code= XX subchannel= XXPlatter XX first track# xxxx #tracks xxxx Illegal Target select code for new system? (xx or " "cr) Target disk lu for new syste.``m? (xx)  Target address/unit/platter for new system? (x or " "cr)%Target address:unit:volume for new system? (x:0:0 or " "cr) DNow is the time to insert correct cartridge in\6\``target address/unit/platter. (" "cr to continue)vTarget address:unit:volume. (" "cr to continue) Save files at target? (y or n)New system will destroy some Fmp filesCL was not fouj``nd or was corrupt or was rejected.Files on lu2 will be saved. OK to proceed? (y or n) Purge type 6 files? (y or n) Information stored on address/unit/platter xx of target select codeSk`` xx! will be destroyed+Auto boot-up? (y or n)8Present configuration doesn't permit auto boot-up.RDisk in host system drive will be overlaid. iReady to transfer. OK to proceed? {In |``itialize subchannels ? (y or n) L Target platter? (xx or " "cr)Target address/unit xx for subchannels `` , Destn. address/unit xx for subchannels <``  /Target address``/unit? (xx or " "cr) #tracks first cyl  head # #surfaces  addr/unit #spares #sectors/track Outdߨ``ated system software Corrupt system file: An lu other than 2 or 3 must exist for this device.  -RTE-6 system generated  ISWSG1  MSWSG2  QSWSG3  0? \BB b9$TB32 p2` ]p2h2x2@2p2p2p20` Zp22( h [H ( P( P2( h2 ( p2`3p2822( 82( 8282( ~h2x282 <<p 82( `2( `( @2p2` `p2h2x202( T` Xp2822( T82( 822( T` Wp2822( T82( `BP2( ThA@( T`ChDx2@P2( h2 K ;; ( Tp2h2H2P( T`@p2`2h2 H Yx.\h2H SH2x.Zh2H2x.[`2@2p18 l`  lh2x `2و P ( h H2((X25 l( `   l G  y` p2h2P ( % < .t PP   ` @ h 11Ԉ`2P24( `h 1`h 1 ( ( 䈁 l82ɨ l This CL looks reasonable. If you agree and you want to  save it answer yes, else no. - !NNSave CL? (y or n) , LU L-TRK CR LU L-TRK CR LU L-TRK CR LU L-TRK CR p21`2h2X2( h `2h2h2`2`2h2` h1( q`(h 2`2h 2`  oMMh 1`2h 1 p2p2 lp2x2h2x20 y G 6 H2x2@ 2 y2̀ $ Information on target HP-IB addr xx (unit=0,vol=0) at select code xx `2( ΀`27 ::( h2H ߈`2uh2P ㈈( ֨ h2H `2uh2P ㈈( ֨ h2H ለ`2uh2P  xH2x2@2@2P 8  m` ^h1و ( ( (0 `3h21 `,P ( " AA3P ( P (   `,( 8 툀8 8  NY/E` Yh21 Ap ` , a ``2p _@ `P a@2p g5p2` hh g`  U( /`p282 U( <`p2p2( ;TT^ 7++p2x282 U2ڂ@ mp2 U2ڂ@ mp2 U2ڂ@ mp2 U2ڂ@ mp2  \, a `h` UT& gDD XROp2  m`2ڀP2 mx2`23P  P   8 m 82`h2ͨ m/@k #A b` b8 b3( ` bp3 `3 0 p3 `@2ԀpΈ1`h1d AA1`2h1و`2h11Ԉ`h1 ,3 ( x a ` _P282P2( 1Ԉ` `h<1p` h21倈x ap ( p h `  53 g i24p @P ( ( A   LL53( A 53 ` p2h2P ( 82( H2x2P @A( Y( A 53p @8 ( ` h h  53  6 "System file has extents or is too short, SWTn 8@@CH aborted! `2p21`3h\2` ?h3 `2hK1و`2h21 ( X ( A8 `50 p5 _53< P ( Q( A`=p2`=24p2`=24p2h2H Sx2 ( A` h22$ x;; `2h 2`2h2H S2up2t`H 3p2~3p2`2h3 d`2P2T ??( $H  ( 1h` ^1(0h L`2P2h HP2Ah Px  `( h `1ف(0 SWTCH segment missing 1h]`1و1hx21`2( h2`hm1`2h2`2~~  88h1`2p2`2p2̈h2H x282π23P2(h223h2`h182(82( 82( 1`2~h2`2h2`h11`2P2숈(&P2(8(c`2@ Vp~ *99`2h2x21h2`2h2`h1(`2p21`2h2`2h2`2h2`2h2`2h2`2h2`2h2`2h1`2∈h1`2hш1`2h1ـ(cGG`2p21`2h2`2p21@`(h2@`)h2@`*h2A%{+@`,h2`2h1`2ለh1`2h1`2p21`2ሁh1(# of tracks tttt address a unit # ~~ LLuuuu volume # vvvvStarting block address # of 128-word blocks/track  tt`2p21`2(`2h툈P2h`1و 2(h2X2(0`2~p2(`2h2X226~k==(0p2h2X2(:@ [(0A _222(4`2ֈp2`2׈3P2(0`2P2`2P2ڈ`2P2(Ap2A _222((`2ֈ 2p`23 20(A82`2P2(`2爈h 1`2h̀1a3;;(`2وh1(0@ Y(0@(0`2P2(h`2(Q`2(_1Ԉh`1 2([`2P2(X`2p2(`2p2(Ո`226(Jp2@ Y(Jh2`2P2x2(`2(`2(tNnDDp`2p`2p(`h$1 2(`2p ap ` Uh2(h(h (`p(Dp)x*H'(`h1(tBad disk address @8?4NN <0`A2222`2pp`2׈pP2P2(+X2(+h`2P2hԄx k<`2P2( `ƀ2h2 H4DDp p pш(+`ƀh2 Hp p 3pɀpp  82 153k2(0953< (0h2ȈHjp2  p2 DHH  @QQp`2 TH 2x2̀2@25@2p2`2P2(m e322(p`h !1(0`25h (0؈`2@ Xp2 2 @2p22`2AP2(!A222<=Y::p0`2(p01Ԉ`hC1h[`2P2hu`1 2(`2(`2ለh1 ((p2`2P2"h2X(҈`2X2`2P(X2(`P280ለ(X2(`ɈP2(<<@(`P(@(`P)H(`P*(`2P( l(`2h2@(` >h1 p2`2(툈`h1` `h1 `2(`h鈈1 ((p2`2P2(`2(H2 aBB((`hz1 ((p2(`p`2P2(2P2툈(_1` >h11 (No subchannel initialization with CS80h X2(4X2(x`3@2@(4H Vx`hz~~D881 (B((3`h1و 2(Q`(T26(IP2(IhH3H2H00(3hx2p2p21 x2X2({ H2H3H23P2({`2h22`82͈2828282~t|::h2X2(g`2(h2H Vx@2h1p2͈`2h2p2hx2 x2x2P2( H2H3H2و3P2(H3P82H2((`2h22`822828282h2{G::X2(`2(h2H Vx%@2h1`2(܈`h1 툈((((ƈ2(`2(26(P2(h`2p2͈`282p2`2P2((p2x2 x2X2( H2H3H2ـ`O99((3P2͈(P2(x2`2h2`hz1و ((h2302π 00݈82h2X2(x2`2(dh2`2X2`2P2~(_h2X2(=X2(A`2P2nM)==(_`2@p2A52<h2H 2(_(A`2P2(_`P2(_`P2(_`P(Rh2X(RP(_`2(d` ^h*1 (U(Up2(d`h71p21Ԁh0ddf--`2 (m`2hQ1`2(x`2hh1 (m(m(0(xh2 (.`2p2 x2`2p2p2x2`2p2`2p2`2(.]`@3p1p2h2(.<d.<;;01`25h21p2`.Zh2h.[`.\p23x22P2(.V(.VH2ۈh2@11K(.I(.](.H`2(.p2p2p2`2p2`2p2h2x2p20h.[`.\p23x22P2(.(.=.w==H2P2(.`.(.8.1`25h2111K(.q(.(.p(p/K`2وp2/`/h/2h2X2(.X2(.1(0`2وh2X2`2p2DŽ(.hx2`2p2 x2`22p2x2`2p2.@@p2`2p/J .53/I2(0.53<2(0`2h22uP2t(.׈1`2h21و`2h21`2∈h21(0`2Ȉ@2p21=1=1=p7zh2H2Ӏ p2p2(/`282̈(.`2(/2-.EE282p2@2h2H212p2`2Ap2/53/I5A(0/53<2(0`2`2p2h2 0h/K (/+p/Kp2 /%53/I2(0@2p2(.(0`2(/282(.h2X2H(/8hx2h2P/9==x2`2(/A(/L`2(/B`2h2H/H@(/M`/Hp2h2`212`2@/H3p2h2 0(082`282(/U`2(/yDh2X2p2`2p2`2p2`3p2`/xh22h20(02 /v99(/y6}`2(0'p2`2p2h2X2(0'X2(/h.x2`2p2hx2 x2H3(/3 p2H2p2H2p2/ƈ82h2X2(/h2x2H3p2H2p2`2p2(0'`2p2`2p2 |a/==x2`2p2p2`2p2p  /ƈ82h2X2(/h2x2h2̈́x2(0s((/1(/ڀ`2p2p2p2`2p2ǀ`2h2 0(/0/8282(/Ӏ/p211`2h/2`2h/1ـ/SX/NN/Installing system subchannel xx//Initializing p211Ԁ`2h0&2`2h01٨00Unable to initialize subchannel xx0%p2`.p2`2P2(0s`p2P2(0s`2@2 2x2u0:>>p2H2x223H (0L82`2@2p2p2p2`2p2h2023@2@2h08282Έ2P2(0g3@2(0T`2(0sH`p2h2 02P2(0F`2(0010xBB`3p2p2p2p282`2P2(0P2(0h00p20`2~&`2h00 A԰ڀ -`0(01`2h21و`2h218000`0(0?(01`25h2180h0AA0`2h21و`2P2(080߈0(0`D#02202Ap3035`5p5Ԉ`2h21`2h21(01`2h21`2h21و`3h212(00!00201`0h2122$01Ԩ01`2P2(1 P2(11D`0101&(002;1>>`2p2p2`2p2`2p2h212h2 1x2`2 h2082182(1'1@2p2` 212h21=x1J81=1=81=H2X1J1= (1Eh2H2ለ8231K81K`2(1~ f1T;;`1(1~p1hH3`2x2p2p22(1t(1t (1t82͈2 (1t822(1t282`2@2h2P1(1]H381(1[(1~`2(1`2h2X2p2h2 0821K`24h2X2p2J1>>@2p2p2h20p2`2h281K1Kh2p5 p5 p5ˈH23(1`2h21822`21h2H2H23181h1`5ɀ `5`5 l1GG`1@3p1Ҁ1h3 1٨1p1x1123 121p1x11243 1 (1`p2x2`1x2121숈P2(0h21!!X242`,3P2822 223 X2AA22`22(22H21H2x22 h21x3 @2و22@2h22H2x2283 (2(2 h2h25x lx2mp2rx2qx2p`2p2p2nh2p82(2h2 382x2pP2o(2H82q#2UPP@2sp2l(2k@2m(2k`2n l@2lp2n (2k82r(2G82q826`2n26 p2 82(2y2u5555555566!6<6V6j52``,<?  @:@0$3 3  35``Transfer CANCELLED. SWTCH terminated. Overlaid fmp files: Type 6 files purged: File err -SWTCH finishedDisk cartridge containing new system file ".6`` has been removed from disk drive! If returning to host system,target cartridge must now be replaced by host cartridge (" "cr to continue)If transferring cont,,6`rol to new system,itmust be booted after swtch terminates.,@ 8 ;;XMlE ȁ4 8SWSG1 92084-1X331 REV.6000 <920914.0759> /SRC_92084/R6000/&SWSG1 ;44 \DSK0 K\FLGT L\GDMA %\INP0 &\INT0 b\RDMA '\STD0 4tt$LIBR $LIBX \BLIN \BOOT \BUFA \CLEN \CVAS \D#ST \D#WT \DFTR \DNTR \DSPL \DSUB \INIT \LNTH \LU2\SECT \SWTM \TDLU \TMT\TRAK \TSUB \XOUT t `$pDHp hHHpHp@({hII@ `  `H`pI`FhHpJ0I 8J(-`IP(;`G8I(,`p hKp 8 (@'(h @(O@h CiYCC(\(M`n`oÀ@L@h PnÀbÈ`({h`hDH(` pJ`p h(8(`hHx@h`hx h D`h``Jp @`22 H@pIhK`p( 8(h҈`!hH(`I2;[[BAD TRACKS PLATTER 0LIMIT OF 10 BAD TRACKS EXCEEDED INVALID DISK SPECIFICATIONS 35NO12>&MPQ xD`@ph5x`@@pH` ~!FF@pHxHxa@h @xH x׈@@p@`pA(`h` `@ P`Í` ÅLJp`(mh (V`h `׀p UHH(m`(g@`&` ׏Aeڀ- ` (PPf(P#((LjH8(&` P&@(p`hx h  h `"hD` @(` (q(` (@(` 1II(q`hHHx h h `"h HH(h0`h!@@@($hD`"h1D@($AA@hh(эר(؄G`酁(@Z__0 `Dp ` PARITY OR DATA ERROR TRACK XXXX   DEFECTIVE CYLINDER - TRACK XXXX  "READY DISK AND PRESS RUN /2TURN OFF DISK PROTECT - PRESS RUN C@kS;;X3 ! 8SWSG2 92084-1X332 REV.6000 <920911.1224> /SRC_92084/R6000/&SWSG2 ;9\BADH +\DSK5 \RET\SETD d-XADRC XDRED XDWRT XENDXFMSK XINIT XRCAL XRDFS XSEEK XSTAT XVRFY \BLIN !\BUFI \CLEN \CVAS \D#ST \D#WT \DFLT \DFTR \DNSP \DNSU \DNTR \DSHD \DSPL \DSUB LLķ\DUNT '\FFMP \LNTH \LU2"\MODE \RDIN #\SAVE %\SECT (\STRK \SWTM \TDLU &\TMT$\TRAK \TSUB \TUNT LHH( `hH&pp@p p pHpp p ppp`p`ppp`%Hp`$`p`E@"E(J(R]H88(R(Y`ph`hx(]p`p`p(]p`p@`a(((((((((?(;(((;((?(?(u(A((((((`(]`p֨+s@@`@"((((p(y`@(((((لh`"P x8`p(y`p(p(y (yp8`p(y Hxh`"PKAAhx8`p(y xh`"Phx8`p(y`p`p(p(y(y x`p`p(y`P( x8`p`>>(yP(`p( p(y`ppˆ88(y p(yrp(y8(%Fp(yH`P(. -(88`0(y6p(yo???8(y`D@"D(I(M(M(dFp(y`@(W (y x`p`p(y`P(np`p`p(y p(y`x@"x(}(((r\~>>p(y`P( `"Phx8`p(y(y@(y`# (` (`p(x(y(p8`p(y x(y (`(T(Ȁ6x(y`==(?`(`(?h(^`p(y`@(҈8(y6p(y`p](׈(TW(`P8Ĉ]((TW(\<!]((TAW(N K](׈(TW(TT`h`8WpW`P(kP(k`׈P(n(^T]h8]ppCC (xh ` xĀp8]] `hhx 8||A `P(H`@8H8>pDh#`' `(`ph 8(`p `@~~AAP(8(`׈@ (hH ( (π`(@((@hH ( (`h@( HH@ pHxxh @~ AEEhH@p@hxh`@`- `,h"X`+h`hp`h@`hH8(+h/`hH`h`h@p`H/h>~~s9@@/h.`((H6h]/hT`H>hDx`$hHh/`hFHh/`h(XHTh/`ht(b^Hhs/`h^(l@h`$hxhR~qq5yMMhS/`h?Hr`DHh!8 @? 7Gq v  `` BAD TRACKS SUBCHANNEL  LOGICAL CYL HEAD ADDR/UNIT BAD TRACK  BAD SPARE BAD TRACK SPARED TO &!/INVALID DISK SPECIFICATIONS =@DEFECTIC``IVE CYLINDER - TRACK XXXX NQUOUT OF SPARES XX\_TURN OFF DISK PROTECT - ENTER " "CR XXruTURN ON FORMAT SWITCH - ENTER " "CR XXREADY DISK AND ENTER " "CR XXPARITY OR DATAw ERROR TRACK XXXX @588Xcf]ck0;SWSG3 92084-1X659 REV.2301 <821003.0021> P92084/&SWSG3::PCO8BBM5\C#BT /\CADR q\CDSK \CS80 3\CSB2 <\CSET 0\CUNT 1\CVOL M\SPMD B~~a.DAD.DCOXLCRD XLCVF XLCWR XRELS XXSPR \BLIN \BUFI \CLEN \CSBF \CSRT \CVAS \D#ST \D#WT \DFLT \DNTR \DSPL \DSUB \LNTH \MODE \RDIN \SECT \SWTM \TDLU ~ l\TMT\TRAK bbF66(`9hHp/ ;p1׈;p0 p2 p3 p4 p @p5p :p `5A @37b<< 9@pX`Wp p`0pX`1pYpZ2[`4p]papbpc<X<77{p {` @wqw@`pp`5@3\`pc{7~~Q<</Xqq(A/X(Hqx qA/XqHqx q `;(pPS(ɈP#(PR(È`wh(∄`wh(`(`~ ~}v88t8`( x`w`( `y`|(`y(`v(`t(`s(`( `(%h#{(`x(~~H66`}`v`o(`n(`s(è`r(è`q(À `(Oh$~(`}(`|(`y`r~΂<<<`q`u(`{(`z( `y`hTp(`s(`~(`}(`|(`m `y P @@x @7BBt8`$p@`h `} tt`ꈈp`p`ph8`@$p8( `|t8 `( t8p88RqDDAˡ/X`;(`(p88 `{ t t8 Dt`hH(88N tX`pZpM`Wh[UX_`ZpaA@@hVfA/\SMWhW (88XXO($`|h$(XR(*`{h$(X#(0`oh#(XQ(6pM(XP (JA3(CA7(C(G`x t!!>GpM(`z (! y[\ ,,E3t!@H((䈀H Ht,Q``&?DLT^foy &..8?GOQSTAT ERROR SWTCH INTERNAL ERROR xxxxx FU`:``LL STATUS RELEASE ERROR DISK ERRORILLEGAL ERROR WARNING !!! SPARE OUTSIDE SUBCHANNEL !!!TIME-OUTCHANNEL PARITY>M``ILLEGAL OPCODE MODULE ADDRESSING ADDRESS BOUNDSPARAMETER BOUNDS ILLEGAL PARAMETER MESSAGE SEQUENCEMESSAGE LENGTHCROSS-UNITCONTROLLER FAULTUNIT FAULT DIAGNOSTIC RESULT OPERAT``OR REQUEST DIAGNOSTIC REQUEST INTERNAL MAINTENANCEPOWER FAIL RELEASE COMPLETED ILLEGAL PARALLEL OPERATION UNINITIALIZED MEDIA NO SPARES NOT READY, MAKE READY AND ENTER " "CR WRITkkŸ PPE PROTECT, TURN WRITE PROTECT OFF AND ENTER " "CR NO DATA FOUND UNRECOVERABLE DATAEND OF FILE END OF VOLUME MARGINAL DATA MAINTENANCE TRACK OVERFLOWk@;9\BADH +%DRREL::RTE_6:5:102:128 644 0 0 63000 5310707211 34410 %DRREL::RTE_6:5:102:128 $f<f%DRREL +#+#+#f2:FST 77X?kf8DREHD 92084-12009 REV.5000 <861118.2142>&DREHD::SRC_92084 7@ ?k77XZDRREL 92084-1X334 REV.5000 <861114.1948>&DRREM::SRC_92084 7;;H*bPDCOM9 DCOM8 DCOM7 DCOM6 DCOM4 DCOM3  DCOM2 DCOM1 ;ssZDRREL .NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN skkEXEC.CPM.FION ERME2 ABREG GOOD2 ENDIT COMN2 INI1X LOCF OPENF CLOSE CREAT IO2 WLSDCNUMO CNUMD LINF2 IFTTY NAMRCLCUC LOGLU kM``  OUTPUT FILE? _ BASE PAGE LINKS (Y,N)? _ HIGH BP ADDRESS? _ LOW BP ADDRESS - 1? _ LOW LOGICAL ADDRESS? _ HIGH ADDRESS? _ DRIVER PARTITION PAGES aaT`HH SYSTEM DRIVER AREA AVAILABLE BASE PAGE ** WARNING ** MUST HAVE RESERVED THIS AREA DURING SYSTEM GENERATION a~~22p`p`p`p(`pp   p  p  ~p33 pp`p`@hH88(` p `(`p`p p   ((8` (     w44(P ($(2 ' (2` p` p` p`p(8`p`pp`pp B(LQ p~~S;; p` p`P(g`P(`p`pf(L`(oswu{u&` p@Hpx~$??'3` p`(KSZ]K`(or`pc`pd`p(Ȉ`pc`pd`p``)P;;p`(ӈ`p4@ (pJ (0(`p`p(` pJ`p((`pAJ` p`== @@hpp`( `@@hph@p`@@p`@@p4p`p`@hH88(8` p` eE11p` P(L`p U   (c`p\`pb(/ k   (WvUU,v""(`p}`p( p(`p(`pU22+\   O N*D"NY_2@>\55Xd/DCO10/ 92084-1X334 REV.2226 811230 &DRREM::SRC_92084 5 ADCO10  @gR55Xm/DCOM9/ 92084-1X334 REV.2226 811230 &DRREM::SRC_92084 5 AFPDCOM9 @ȳ55Xl/DCOM8/ 92084-1X334 REV.2226 811230 &DRREM::SRC_92084 5 ADCOM8 (( @755Xk/DCOM7/ 92084-1X334 REV.2226 811230 &DRREM::SRC_92084 5 ADCOM7 7@2 @ߨ55Xj/DCOM6/ 92084-1X334 REV.2226 811230 &DRREM::SRC_92084 5 ADCOM6 @h55Xi/DCOM5/ 92084-1X334 REV.2226 811230 &DRREM::SRC_92084 5 ADCOM5 @755Xh/DCOM4/ 92084-1X334 REV.2226 811230 &DRREM::SRC_92084 5 ADCOM4 @:55Xg/DCOM3/ 92084-1X334 REV.2226 811230 &DRREM::SRC_92084 5 ADCOM3 E @55Xf/DCOM2/ 92084-1X334 REV.2226 811230 &DRREM::SRC_92084 5 A DCOM2 @q55Xe/DCOM1/ 92084-1X334 REV.2226 811230 &DRREM::SRC_92084 5 A DCOM1 @733XIO2 92084-1X334 REV.2226 800601 &DRREM::SRC_92084 3--F3PDCOM9 DCOM8 DCOM7 DCOM3 DCOM2 DCOM1 - ^  IO2  33 rR.ENTR .CPMERME2 ECHE2 WRITF NAMR CLCUC READF ABOR2 IFBRK 3 < J??A@p(`(`(6'∀p`@px4(pp`(Jp`@hH~~3F4488(@@hp ` @p` @p ` (֊@ p ` (jp p ` @p ` @h px y` ~z88@p   pp`Pp`P(@ p`hX 0( (( ∈p`@h H pZZK++x pA h0( p`(`p( p(Z*@Е44XoKECHE2 92084-1X334 REV.2226 800601 &DRREM::SRC_92084 4BrDCOM7 DCOM2  8ECHE2   .ENTR .CPMABOR2 ~~K<<Ap`HPH((`JP((`IP((`IP(((C`H(%(A()(C(.(CApE0E(@~>`Gp(C`Fp`5{F /A@ ^,44Xa1ABOR2 92084-1X334 REV.2226 800601 &DRREM::SRC_92084 4DgDCOM8 DCOM5 DCOM4 DCOM1  E ABOR2  EXECCLOSE SYOU2 PURGE DRREL ABORTED [[-I (( p `($0A',/.. [@#44X`GOOD2 92084-1X334 REV.2226 800601 &DRREM::SRC_92084 4Dk DCOM8 DCOM5 DCOM4 DCOM1  ]"GOOD2  Dw EXECCLOSE SYOU2 FTIME TRAN2 LOCF--IqEND  READY AT 4-ww"::"p"-!!! ` @@p:=@EHM_R_U  Z^]]"w #] @077X8KERME2 92084-1X334 REV.5000 <861114.1948>&DRREM::SRC_92084 7;;H)PDCOM9 DCOM8 DCOM7 DCOM5 DCOM4 DCOM3 DCOM2 DCOM1 ; >ERME2  33 .ENTR .CPM .ARTN REIOABOR2 PTERR SYOU2 TRAN2 CNUMD WRITF 3``IL PRM INPUT ERROR IL ADD OUT OF RANGEFM ON  ERROR IL CMD ILLEGAL COMMAND CK SUM CHECKSUM ERRORIL REC ILLEGAL RECORDOV MEM MEMORY OVERFLOW OV FS```IX FIXUP TABLE OVERFLOWOV SYM SYMBOL TABLE OVERFLOW CM BLKDU ENT DUPLICATE ENT RE SEQ RECORD OUT OF SEQUENCEIL RELML EMARF EMAIL ALC ILLEGAL ALLOCATIONOV BSE BASE PAGE MM0m88OVERFLOWUN EXT UNDEFINED EXTERNALS 2SY LEN WARNING: SYMBOL TRUNCATED TO 5 CHARACTERSPG ERR REPORT TO HPM~~+::AAJ((`Ip(`p`HP(`(`(=` hX p<`<(-,G (-`hX  0(=~~~s7>>=  `Ap(E`p` N55Z5TN S(2 Y  (2 _,+(2`@Fp h`Ep`Dp`C0Ap` ww}~~~u77 |(  ( p`@p>`@? 88>(pp(  (2`p$`p% $#~~~Y6FF(2`Ap(`p`@@Bp`A -- -!'- (2 (2 (2 (2 (2 ~DD(2 }|(2 ml(2 ^](2 QP(2 ED(2 98(2  (2 &(2 ,(2 2556(::$? -GR @5A44XQTRAN2 92084-1X334 REV.2226 800601 &DRREM::SRC_92084 4 TTRAN2  .ENTR CNUMD ~~M==A@pE@pD`IPI((,`P`H@EhO`I@EhN`J@E`G@EhHHD`F@EhIHD(A`H@EpC3C`M`H@EhL`G@EhK~%a=`F@EhK0dF  U LE IL F@5r44X>COMN2 92084-1X334 REV.2226 811230 &DRREM::SRC_92084 4;;H%^DCO10 PDCOM9 DCOM8 DCOM7 DCOM5 DCOM3  DCOM2 DCOM1 ; N COMN2  [[EXEC.ARTN REIO ERME2 CLOSE LSETIFBRK TRAN2 OPENF CREAT NAMR CLCUC PUDF2 SYSSREL2C CLOPR SETH2 WLSDIO2 []`` /DRREL: _WAITING FOR RESEENEX/EDILLBPCPECLO??PX ?? LIST COMMANDS BP ALL LINKS ON BASE PAGECP CURRENT PAGE LINKING (DEFAULT)RE,<namr> RELOCATE``` FILE LO LIST CURRENT LOAD ADDRESS LO,+ SET LOAD ADDRESS TO NEXT PAGE LO, SET LOAD ADDRESSSE SEARCH SYSTEM LIBRARY DI DISPLAY UNDEFINED EXTERNALS EC YY3AA ECHO INPUT TO LIST DEVICE LL, CHANGE LIST DEVICEEN,EX,/E END LOAD* COMMENT LINE/A ABORT LOADY}}y DD p @"pp`(5p`@ P(!(1`1s688((:#>#B0FAJVNc}}} M<<RvVZ^bfjnr( ` @p|  (`p`(P(`}~~w'55P(((((( `p` p ( ` @ࠈh pxڡ ڨ` @p  (`ꨈP((~l88p`p`@hH88܊(`p   (pߨ ( p( ` h 0((`cx77@p` p ـ(  ( ` @h pيx ` @p١٪  (ʊ`(ʡ!p`p`@hH8-//8(%`pp`p `P(:(yp `P(y`P(F`pO([ Y( `~~g\11p` p١ cf` p ` p p r ( `p ypP ((p ( `P~~~j;;(@`P(([`( (A`p(c(y`(((( `(鈨( `p ( p( `ꨀp(`~11p(`p(`p ` p ـ( 1;;##  '+&("*;@T"r44XAFk ;REL2C 92084-1X335 REV.2121 800730 P92084/&REL2C::PCO4&sLSET5REL2C SET2P SETH2 ~~4.ENTR ABOR2 APOSN BFLAG CNUMO !CPL.L DCO10 DCOM5 DCOM6 DCOM7 DRKE2 "DVEND ERME2 EXEC FLIST HLT.L IFBRK L.BUF L.CLS L.REL LOCFNM1.L NM2.L NOR.L $OUT.L ~?? z%OUT2B PGL.L PRE.L PRMA2 PRR.L PSR.L PST.L READF SPAC2 TBUFF #TH2.L THH.L ?GG Ap!  (H`#03(@h#H (0h  (0P#(.H@Ap$%.22A4Dxx x@Hx x 4 (C (I-G<<(4P(P(S`(P(lhX(X(X(l` ( (`(`(oP((4hX(}X(ChX(}(C%4(B5>~~'@@4((C(C`(4`(4`P5P(`P5`(4 4( (.`(8hX(h X ~"==(x 8     (*8 8 `p`p h (p`p p`pP()(p`p  88 88 hP xP(P ((`PDD(H ( P `)p `( @R @xp `pp p p` |__=44(. "(.H? x `P(7hH  `phPhx pD"  A%BA?F_@X33Xk 1;SYSS92084-1X336 REV.2121 810131 P92084/&SYSS::PCO 37mLINF2 SSYINT SYSSuTBUFF QQqJ $DLTH $DVMP $DVPT $SDA .ENTR ABOR2 DCOM7 ERME2 EXECFLIST L.ADD L.LUN L.MAT REL2C SET2P SPAC2 Q>CC  pp23( (%p1p0pmC(`0(#p0pm3((%1p03((%3('((p1`2(.D`1Ap?<B@?A 833[[C22`mP(h8mxrQruoqn`nPk(U(D`xPj(czp2Abruxyn(Dp2`yC8CC[]zCC`x@xxz@ @ HxPΈ(phψpu pv t0pw px pyhl`PwHPvH pxk((#ш(èA`p  (zz}S@@`sp @5p @fp`@pҨS g  h h@i  h@k@jԨ l`gmz@l44Xa!k;DVEND 92084-1X337 REV.2121 800730 P92084/&DVEND::PCO4 JDVEND 77 Rc ALSPDCO10 DCOM7 ENTPR ERME2 L.ADD NAMRNM2.L PGT.L RESE2 WRDR7>>@``XXxhxpP` 8(`P`p0p`0p` pppp9h (B`R>>>H(` p`P(p`pP(QP(p`ph p(p^`(pP(5``p`Z 88(5`@(z`Dpzh$|NNH0` (5R.ICDV  `@pA``pA56p`pA`EP`҈8 B vDEEp H0 8H 80H ` 8 `hx 8h` `pHhp xhHx` 8H8h 8(  @˕33Xk;WRDR92084-1X338 REV.2121 800601 P92084/&WRDR::PCO 3$$ALSPINI2X RESE2 WRDRXXFIN $ABO2DCOM4 DCOM6 ZZm,,p)x* h` xpP(``+h`p`h+`+@h)`h* p,Z77hH`xpp`H`+h7@44X?k/;ENDIT 92084-1X339 REV.2121 800730 P92084/&ENDIT::PCO488=ABO2RALL2yBFLAG ENDIT LINI1X OUT2B  SCA2THH.L 8}}i.MVW ABOR2 ALSPCBP.L CPL.L DCO10 DCOM4 DCOM6 DCOM7 DCP.L DEX.L DPL.L EBP.L ERME2 EXECINI2X L.INT LIDON OUT.L READF SEG.L SYINT TH2.L WRITF XXFIN }#77 p.8  p,8  p-,0(*,@@zp/`zP/(#(&(-.hz@-.xPh xQHOe7@@ (MhQPP(@8QhQ(5`(K@(K(=`Q0800Rp.8RRwH@(ix8HHz@w.h (n`v(xp}h|wpy.`wDD}x~p@p`(`~@DH p`pxH (p  (@@(hX~((`h~`(2h~ (h~H``v@66-Dp ;px@ HF``@p@Hx6EEx px`@@ @p 8(A`hF`@p׀`=(h (p>`ׄhF`>p P=pA``:Hp`9 8; AI@=(3ALpLpp `pp Dp p `pDA bzbEE(/`p@@p{ (s  @pzp@({`(@zp8888H`p`HHp`vpLdpH@hzHA`v::pp`ppJ@p pppp`ψhѠ p4p5ш8x8ш8 (׀x !!8(R !@$t33Xyk;WLSD92084-1X340 REV.2121 800730 P92084/&WLSD::PCO 333oCLOPR ENTPR YFLIST LIDON gPRMA2 sPUDF2 WLSD3ggY2.ENTR CBP.L CNUMD CNUMO DCO10 DCOM6 DCOM7 DCOM9 DRKE2 ERME2 L.ADD L.LDF L.LUN NM2.L NM3.L PGL.L SPAC2 SYOU2 TH1.L TH2.L gHHA`HAfhPAxmD`bhBMHA@ p&P`DhCH@ (=3\HA@ p:_`pUpV`ShCELOGICAHPPL ADDRESS  T NO BASE PAGE  c****** DRIVERS ******ArrpppD88( (h`h s`h8 (}h`sp x`(AlQQ`H  NO UNDEFS UNDEFINED EXTSApš `hHCURRENT LOCATION = x#8"# ( `)hB`"h*8x(@rr#rEE8,$&'`'($5`(@(( P!h`8@׈H`)h`*h#بpA`D`p6 +, r79:BP LINKAGEBGGxLh8LB(F(XU ?`9hM xf`efhf (\MYH`HhB`xhAx h  (@ H@@ pA@`h ??p( `h`h@@ (g   5?@%44Xk;SYOU2 92084-1X341 REV.2121 800601 P92084/&SYOU2::PCO4>ndDRKE2 >SPAC2 SYOU2  O.ENTR DCOM3 DCOM8 DCOM9 REIOWRITF cc600Ahx4p@3@p5p1Hx0`8h714 8485((+`7h0C`6h0H2Cc 1 //q69/DRREL: D-`> d>`pMxbOc/&&'Nb (Y  ChC`dC&@@Q+b@3pp`x@5p ({5Hpx@p@[h8dhd    @rA`HAfhPAxmD%DRRPL::RTE_6:5:180:128 644 0 0 132000 5310707213 35300 %DRRPL::RTE_6:5:180:128 $פ%DRRPL +#+#+#Y:FST 77X>Ku$;DRPHD 92084-12010 REV.2540 <850822.2152>P92084/&DRPHD::PCO7@>K--XZDRRPL 92084-1X343 REV.2540 <850619.1326>-44G (uqqaaD33pw0w(u`}p(u`yP(V(s(u`yP([(s`|p`{P(u`zP(u(sP(9`y`xP(up`qmx/EYN_ /A@0yO9**X#ABOR1 92084-1X343 REV.2121 800601 *DDRCO8 DRCO7 DRCO4 DRCO1  DABOR1  >EXECCLOSE SYOU1 DD##DRRPL ABORTED p"! D@Ml**XGOOD1 92084-1X343 REV.2121 800601 *CIDRCO8 DRCO4 DRCO1  >GOOD1  >EXECCLOSE SYOU1 >>=END p  A>@݆**XERME1 92084-1X343 REV.2121 810717 *44G  EXEC .GOTO ((.CPMREIO ERME1 )CLOSE LISTX OPENF ,IFTTY +CREAT NAMR!CKBRK 'INPRN ECHEK IGETDMRST &DPRIN %DCPRN SPRAM "CNUMD $CNUMO #LINFO CNFPR DMGTFREPR GOOD1 ;; DRIVE SYSUM CKZMREADF PNAME USID IXGET ABREG IFBRK TRAN1 LURQIO1 ;`` /DRRPL: _WAITING FOR LLENEX/E??DRMEDEDDMDMIDIFR DRRPL DRIVER CONFIGURATION ( MEMORY) DISK) EQT ( DRIVER PARTITION PAGESp``` SYSTEM DRIVER AREA DRIVER PARTITION PAGES ?? LIST COMMANDS MD LIST DRIVER CONFIGURATION (MEMORY) DD 9`` LIST DRIVER CONFIGURATION (DISK) ME,<#>,<#> LIST EQTS (MEMORY) DE,<#>,<#> LIST EQTS (DISK) MI,<#>,<#> LIST INTERRUPT TABLE, TRAP CELLS (MEMORY) DI,<#>,<#> LIST INTERRUPT TABLE, TRyy* [[AP CELLS (DISK) FR LIST FREE PAGES DR, ENTER DRIVER REPLACE MODE LL, CHANGE LIST DEVICE EX,EN,/E EXIT * COMMENT LINE /A ABORT y~~Q ;;ph( m`(p| `|@fP(`|p|@l(ph(`(`(Ah ~tAA(`pA iyil }((p|`|@fP(( |rCC`|p|@$(݊(L`np`p[ [(`p ~~ 77 @xp| |sp`~P(T `qpP(%`(T"}P(%(T(p|`|@]h|He(2(`|p|@g(*` @_p[A[  ~~~B33(L`m(Lp|`|@dh|H]`|p|@g(I`p_i(O`(nlz(Ot~~~u55(OyP4(|(}P5((`p`p(T`p(O`p(Ohh(Th(p`P((pp~~~55p` @_p[[  (hhp`(ɠ`p[ [(`p` @_p[[  (hp`p~~~'==AP(((`p(p`p(`phhp{p|`n@|@ch|Hb`( `n@|@ch|H``|p|@l(Cxhp{hp`p|~K??@|s@p`@|@kp[+[iqp~ 3|~h(T!8}((;`|p|@((p`P(I(KpMp|`s@|@ah|Hb`(``s@|"\[CC@ah|H``|p|@l(Okhhp{q(h(Tvmp["{[Z#$a$dQhp{`($w$z`pk`~~S;;pl`p|(`pk`pl`sp|g|hp{zp|"|m@|@kp["[`pp|"|~@|@kp["[`p`wp|~~~R<<~(߈`p|}|hp{%ih`(&kh(p`P((pp@p` @_p[[  (Bh~~~66zp`("`p[ ![(`p` @_p[-[  (G4hp `pP(G(A(A`p(I`zp`p(I`pN~~~{K;;hhp{p~`p|`@|@jp['`(|[|~h(Tp~!g}((j`|p|@(S(` @_p[{[  (L`m(L)*p|~ 11`|@^h|H]`|p|@g(`p*`p p`mPm((p`}P|(`mP{(`p+*z(*e11h(`yp`p[ [)*`p* p*`p pת*i(`yp P(,䠈(`p~~*Z>>*h(`jP((hh(Txhp{whp{vhp{qhp{shp{ uhp{& th~nnPq&55p{,(shp{27rhp{8Kqhp{>[php{Ddohp{Jqnh p{(p(T`mp)T`p[ Z[(nXX5]::*(>':B$ 'MI -O NMDME π@X@/*M**XPFDRIVE 92084-1X343 REV.2121 810720 *;;H&>(`Cp p 8p $p̊`BP(`A P(p`p(p@A.p((~~~m;;$`?P(`>P(1 p`p ("=`p`pp`(\`!pP(((*` p`p0(8=~~~q899`p`pAAp<(\(\`7p`;P(M(O`!p`:P(S(U` p`p[(1`@h9@ӊph$@p戈`@@p~~~,*qFFv {Op`$A@p Oep( Oep fpʀ(pp(( p fp~~~BBp(Y p 8(p(  ((`6p)`5p*`0p1pp#1~}}c<<`0Ph$X (`p p؀`((`)p`p(`4p)`3p*`0p`*p1'p`(3.(p3`$@}"5@@p=ա @`ӈp`(PMCN/߈`2@p`@p!X(\p͈`pd((pր`(`)@p"n1p"sp~~ju??`p"{pp`(0pب`@@pA)((`p#p`p`$@p$.`/@p` ~~~pAA@p#p$.`@p(_p%& p (' p *p -p(~PDD )p% & -pʡ pP̊( p %%p +%p 1p 7&p ~~9>>=p C'p I<,p OV+p UVp [%p a%p`pi2B$`#P"(n(  q* t+p`~~~NwCCp`*p,}(A-) p %p %p p &p p c(p 'p &p~}}OU<< p %pʡ %p`p¡$`#P"(( .۠P(`!p@Ɉ@hH`pɀ@(/(0 }PPL*`p`2p `pp*`p*1 *(22PEE00dY_  #?/E ( _?  PGDPPEME E@FeB))XIRREC92084-1X344 REV.2121 800601 )B]eDRCO7 DRCO4  * RREC  ##.ENTR .CPMMIN0 ERME1 MOVXREADF GETBX # B ==pp(p`p (@   (*(A.p`@p8`@p`(` `Gp SCEH(> c G @ **XGTTCL 92084-1X344 REV.2121 810720 * A DRCO5 CGTTCL   v.ENTR SPRAM **ƼA`p((`p`* m @)H_**X[fRDEQT 92084-1X344 REV.2121 800601 *B] DRCO7 DRCO5  FRDEQT  ##.ENTR .CPMFDIRGETBX STPUT DMGTDMRST #~~hBBpa@pp\\a`e@p\&\]^A`pc(,(Z`d@p\5\]^`pc(;(Z`b@p\D\^``a@p\~--ƕGM\^``_@p\S\pZ^-n]  @}))XEQTF92084-1X344 REV.2121 800601 )D{DRCO7 DRCO5 DRCO3 DRCO2  |gDEQTF 8&.ENTR .CPMSTPUT IO1 ERME1 EQCHK QQN;; EQ TYPE CODE? _ DMA (Y,N)? _ AUTOMATIC OUTPUT BUFFERING (Y,N)? _ SELECT CODE? _ TIME OUT INTERVAL? _ Q~~??AAA?` B(QQ Y@AB>=(d`p`pc(J?pm>` ?pv=`?p ~aDD <<;`?p; %<<;`?p; ` @ p&.  (Ap ((`P (`PC {{O;;(J (C (ވ`?p(`p`p(/:`( p`?pD{ql ?@u5**XܵINMOD 92084-1X344 REV.2121 810720 *&&E>YapW`W( pW`YhHYHpxW`@WpY(ϊ`p ` p (ip_`p^b(AY((HU~@@`p_($(:G`p^`_p]`]@ P((A ]3Pu`]p]@^ (p ` p (%-cap\`\(*~~9 88@@pX (epV(`p ` p 2(8.3;p[`[(G`[pX EepV(`p ` p O(3U.3`p ~~~X>>\Z(nbZdpV`V(lpX`@VpV(`p ` p t(P|49pX`pVAY((`YpWY`VpX`@Wp~!!(X`@WpV(if!@Wrv2**X8;LISTX 92084-1X344 REV.2121 800601 *DՋDRCO7 DRCO3 DRCO8 DRCO1  PLISTX   .ENTR WRITF wwc55A@p9p()`()`:@9p7x8 78(& p`p`P(5/(5`:p`p`w : @?**XCNFPR 92084-1X344 REV.2121 800601 * {0CNFPR   .ENTR LISTX DMGTCNUMO CNUMD 445$$ EQT = SC TYPE T= X= IN= CC= #4~~t+AAA+`p`p`+p@݀.p(`+pJ.p'`+pT݀.(X`p`+pݡa݀.(e`p`+pn.~Ql<< p&P&(t(vp&.p).(|(~p)`+p)p%`p-(`p-P((`p(`p`p,`p`@'phh55 `䈊p `p &%`p+pݡ݀.p`ሡ+p݀.p #/p*`*0h''hX=E YP @QTC  SM S  B D '@<**XDPRIN 92084-1X344 REV.2121 800601 * RDPRIN   ))Z.ENTR CNFPR HPRIN LISTX DMGTPGCON SPRAM IGET)  < DDA p ppp`pp( p `  (=6 ; pp`@@pI p` ([ffLO55`p` ([({`(kd i  p@@px  ` p `p@(?` fu @)G**XdkHPRIN 92084-1X344 REV.2121 800601 * o+HPRIN  X.ENTR LISTX CNUMD PGCON SPRAM 77d&& DRIVER PARTITION <> SYSTEM DRIVER AREA <>7}}T(CCA(((A4jp&9&"`gp"@f)(dp'H(*'p&`&(Np&R&`&(W`ip `hp](`gpdf)+E ONXX}@X**XJJINPRN 92084-1X344 REV.2121 800601 * ?INPRN   ,, {.ENTR .CPMMOD LISTX CNUMO DMGT IDGET CNUMD IGET,BBY// S.C. INTERRUPT TABLE TRAP CELL (MEMORY) S.C. INTERRUPT TABLE TRAP CELL (DISK) B~~T8DDA8@8p+<(X=(RPI>p6(XWH>p6p3`3@+hG`3p3@5(Zh98A9F(m(s:=-,p2`2(`2(}~!|DDEp5`5A@2p))0(((ހ`5@2h0p4.4p)D40)(ވ`1@+p)4)`4@+hC`1@+hB(p3`4@3@+h2H3H2p)x*l==*.-,)`3p3@3(`2@+h2H+p)A@@)`1@+p) ہ)((`1@+p)2);=-,p0`?0h,H+p)x*)*`>0p1`=P1(`<__,,P1( (`0@+h;`,@+h:`/@+h7(!`0@+h9`,@+h8`/@+h7(!`,@+p)!0)&86>p7`7?_--, ,IB JSP JM QT E -@` **XS]ADPRN 92084-1X344 REV.2121 800601 * h&ADPRN   C.ENTR LISTX CNUMO --> LOGICAL ADDRESS BASE PAGE -ppo";;"-" 1# %(C8$<%`\p`\p`Xp(I`[p`Zp`YpNXWp TWp!`!& O N p@@D_**XXZINTPX 92084-1X344 REV.2121 800601 * aINTPX   .ENTR IGETINPRN MEFND LISTX  INTERRUPT TABLE CHANGES:uuh:==A@pR UT%YTpp.Sp ` (M5 hXH pO`W@ pQxPFOPQTTpp`V@ p()`u:S @**XMLEQTPX 92084-1X344 REV.2121 800601 * X EQTPX   .ENTR IGETCNFPR MEFND LISTX n EQT CHANGES:ll  77 KEJE p!I p`(@`H@pB+hGHpCxD3DpD;BCDEEp `F@p(`  l>E@cィ**XT_DCPRN 92084-1X344 REV.2121 800601 * L DCPRN  ##.ENTR .CPMCKBRK DPRIN DMGTSPRAM IGET#~~`AA^pYpp`[pp`@@XpW'W Z]p`(:`\p(:(:A(:(:`p`p@(`[P(U(I~##H(U`pP S( #X@{**XCKBRK 92084-1X344 REV.2121 800601 * A DRCO3 ICKBRK   }.ENTR IFBRK $$J#Ap`(p`$@B**XomFREPR 92084-1X344 REV.2121 800601 * bFREPR   _.ENTR .CPMLISTX CNUMD LMATA SPRAM p NO FREE PAGES ~~I;@@Akppp`p*eepj(=(=`(6`p`lp`lp`p("`(D`jP("(ZHL `ip Shpp~//ٲV`gP(Z("`(cbfp` -/@**X޽IMFPK 92084-1X345 REV.2121 811108 * \ IMFPK   EXEC.ENTR UPTRK DSKOK EEA@p@ p`@hHApx!  (%(`p`@HH(0(`p@('`A@pA `@p`@}}H@@p&`@@`@@`@@p`@pg `A@pr `@p&hHH hHH}QQ}(( hHH (`@hHp`@p`@p`@px  Q@+JP**XqlUPTRK 92084-1X345 REV.2121 800730 * \UPTRK  "aEXEC.ENTR .CPMDSKOK IGET~~fCCA@pakk(:`dh(#(@`g`f,jpA(2(@`(@`iHcf~99Dh`f@a`e@a`d@a`b@a^h9b @5T[44Xk;CINIK 92084-1X346 REV.2121 811108 P92084/&CINIK::PCO4eCINIK fDSKOK $LIBR $LIBX .ENTR EXECTATMP zOJJA`p'p>pD` \p]x^`@ [ @^@YpUHUx @]p]x^+U`a]^(Mp_`]U`^V`ZWf@]^aAHU`a]^PTmmwJDD(M `]X`^Ybk`bpxhAvw`debAc(@`hfm@bj44Xk:;PERPL 92084-1X347 REV.2121 800805 P92084/&PERPL::PCO4G>ZDMGTDMRST PERPL MM^$ENDS $LIBR $LIBX $SBTB $SSCT $STRK .ENTR DRCO4 DRCO7 ERME1 EXEC GEBND IMFPK STGET TATMP M7V==   ($KpL@(  HL`($@LpL  MpPNpQ`L(* xPԨxQh  xR R@PpSFHQxThHT (>xTՑ=JJ8ShT (FHIxT@OpU@AVW(gfVWXYZV `SP(q`TP}`@Up|XYZ ST(RDD`Sp`Tp}`Dp  xp xhH (ʈxxxp (@(`(pXphЈ`(+]Y@@`Sp&`Tp'`Up(`&P(`'P(`+`((`@*(A &'(`&p`'p`(@h@hx)H҈x`hH( ??)pӀh (+h x`Ӏh p(8'8'`'P(p'8&(`@pNRxPhYA;Q (DxO`NhPYhOX+(`NhPY`ddJ::Dp NApfV`fRApfxg^hg fA deY`pu `Ux@0p| ph@d@*33Xpk;FDIR92084-1X348 REV.2121 810115 P92084/&FDIR::PCO 366CKZMDMTBEQCHK FDIRZLINFO MOVXSYSUM USID6))$DLTH $DVMP $DVPT $SDA$SMID .ENTR ISMVE NAMR)DDp`π@Ԁp(S` A@RpLԨ@pM@pN@pOpP/PQMS`P@TpP;PQNS`P@T pPGPZDIIQOS`P@T U {V{V@RW {h@RY@X`UZA|~p`|}QAAp(H8((x X((h(hHTHpψA`Sp`TPS`р8 o B hh88A܈߈A`pp8x88 ( h@77XIfnn ;DPCON 92084-1X349 REV.2540 <850719.1839>P92084/&DPCON::PCO7-- DPCON  INI2F LMATA PGCON RSLINK xSPRAM -ll#J$CIC$DLTH $DVMP $DVPH $DVPT $ENDS $LIBR $LIBX $MATA $MCRO $MNP $MPS2 $SBTB $SDA.ENTR BFINT DMGT DRCO5 DRCO7 ERME1 MIN0PAGE? l)::    A pN pO`````mh(,(%A`*p%+0) xLhxMHK (IhMԀPL(<8M:AAhM(0`@O(G`N@(G(9`M,8,,P`O(mhNH xvptQpuuP(j8t8u`tPv(m(a`t@NRP`,RRwzA{<<wXȀ(X(X@(X(X( @Ԩ@wX(XA(x(((ăԨ@Br(pAAxhH @(`ʈ`ɨ(͈!̈xH (pp@Bp` r(8px(p `ʀp\>>`p]hJ(` ((`@(`@Έ`8`(`ɨ`ψ`xpԨxoH (lxqHoxnH (7@n8!16@@! xo H (lHoxnH (UHHqxo@npnSno8!!pnpo]npo(d`oPq(i8o(XHo !`@n@B(S`!pxv@@p`p`p@Bp8(8(Fp@(hň`!(p(`(`P(p8(z8(z`!(p@ph։EE`8rrrp`Ep @8(( @@BhB@`F ƃ @Ԩ @@rF==(,@BpG@(>(>Ԡ xHԨ HDxI8H(.hIHAxIԀ(H@ԀFp\ F@\p]hGJ(,(`pHpI `IhhN866(>8I8H(3`CxZh^Jp[hZ^J(X`[J8JJ`@](j`\@(k^8^^@h@ІF44X~zk;GETBX 92084-1X350 REV.2121 800601 P92084/&GETBX::PCO4;;BFINT GEBND ,GETBX GETDR GTENT !INS2L UMEFND PAGE? ;**$LIBR $LIBX .ENTR @MPOS DRCO4 DRCO7 ERME1 EXEC*ͦBBpp) !"&'(`"p#p$hHx%H*x@&@Ep(A`*p!C +`$+pF@E@((>`$+G`$hFx$,`DpAC[BGGC xQ 8QG(KARS({Rp~T h$xShH ({p}R(wX~(y`}@ @(c (o`}UUA8)s)BB(`%hh%H*xp% ( h倀`%@(`ph#HHpHለxhp_BB`((`hHx8(8((h( `p`p8 8( px x`A0C s`  @@psA``sUU P`#h$`#h$H (lxtxuxvpw (7@(#`t(fpr`npp`opq@u@vypx`uyhtYYRM--pq8rPx(W 8pA8q(M]0rs`s(m`whuv(#`whuv(#!0|Y@44Xk;@MPOS 92084-1X351 REV.2121 800601 P92084/&@MPOS::PCO4 E@MPOS 5'$LIBR $LIBX .ENTR WAA`π@yԀzP|(S`~p`~p`~p`p`p(S@(Sp3888(+(> (SPPP@(S3`V33Ap@W888(E`WAXX3))~w )@ޠ`44Xk7;STPUT 92084-1X352 REV.2121 800601 P92084/&STPUT::PCO4&&qRSTBIT hSTCHK ~STFND 0STGET STPUT &.ENTR ~~DDpQ8Q(( xQ8Q((pPxQ8Q($(p+P0+,/pQ8Q(=(7pP.pQ,-~DFF(HԀ(I8Q(N(IP0pdHg` f@dpdxcbdeceRpdHg` f@dpdx}d8}(y(t hp x8@P( f(($ (@p`@p!(h~~(@ܵ44X<k;SYRPL 92084-1X353 REV.2121 800805 P92084/&SYRPL::PCO4EQUSE SYRPL DD w$LIBR $LIBX .ENTR CNUMD DRCO4 DRCO7 DRCO9 ERME1 INS2L STBIT STCHK STFND SYOU1 D9>DDphf`lhf`lv(`j0hpi`j`i(`Ap[`Jp4`p\pp@`\h (Ax`A(78 7_] ;X @X^]((8[(H`%%;Dp\`Qp4(%KCHECK EQTS: RCHECK LU'S: %[CCD `gp ek  xu 8u(pl xx`h (x@@ (z8`hH(z`p`@pp8(88hxooDD` (hH(8`h(`v` P po@z44X k8;SYOU1 92084-1X354 REV.2121 800601 P92084/&SYOU1::PCO4 XSYOU1 m.ENTR DRCO3 DRCO8 DRCO9 REIOWRITF cc100Ahx4p@3@p5p1Hx0`8h714 8485((+`7h0@`6h0H2@c 1 ((T69/DRRPL: DRRP 0XpJxZAL[(K ZH @h@X\@@@PZ@3pwwp`wx@5p (s5Hwpx@py@xhw8\h\   @'wF7 JSB IDWRD  STB EMAWD SAVE ADDRESS AND B1777  STA #PEMA A = # PGS EMA *  XLA B,I %$CNFG::RTE_6:5:96:128 644 0 0 60000 5310707214 34001 %$CNFG::RTE_6:5:96:128 $`X`%$CNFG +#+#+#`/p;FST ;;X~, 8$CNFHD92084-12011 REV.6000 <920908.1718> /SRC_92084/R6000/&$CNHD ;@;;Xş~ 8$CNF1 92084-1X356 REV.6000 <920904.1718> /SRC_92084/R6000/&$CNF1 ;zz$ABDP $CAET $CAIT  $CAOS $CAST $CATC $CECO V$CINT w$CLLU $CNCL $CNFG $CNSC $COSC $CPRB $CPRS $CPRT t$CPTP zzzOs$CRBF $CRNT $CRSB z$CSVP T$CSWR $CTBS S$CTMP $CTP1 $CTP2 $CTP3 $CTP4 $CTP5 $CTP6 U$CTRC x$CTTP $CWFG $SAVE z$CBUF $CDSA $CECN $CEFN $CENB $CERR $CINE $CIPR $CJNE $CJPR $CKSC $CLOC $CLOD $$CMST $CNF3 "$CNV1 $CPIO $CPRM $CPVO $CQRY $CRSE $CRST $CSTM $CSTU $CSVT IIY$CTCH $CTRN $CTS# $CWRL $CWRT $CXID %$ENDS $EXIT '$LIST &$MRMP !$SBTB $TRTB $USRS #$XJSB I   eetKK? YENONMCURRENT I/O CONFIGURATION:CURRENT SELECT CODE#,NEW SELECT CODE# ?(/E TO END)NEW I/O CONFIGURATION PERMANENT?(YES/NO)T$CNFX eCC`@㈈pDp `D`pp`p`p xxxH@`'p8' hSK xApT (hEA`TH(phXpXp`BpȰ??HpP(`h HO@P(`0p(`@@pS>`S(88`@DH>@HɉȠ`!(np`Kh$H ph%xh$H@x`!4rBB@`$*p`hH `pሀx`H*pS`@(n@p8&D8HxH (8p(`@߈phHhH>xL xM IpN`~~U<<pSSèK@TL(gM(gpIPN(i8S(V$ @SK#`@hh&Р`!(`mHpS`!`Bp`!*HpS`!`儈p`TP(=@`T(~x>>hChPYp`(`BHp@@(ɀ`p(@`((p@@GhH ``P(8`Ɉ@p8 `@R`p`TH(҄h x==`p (hpH(`TpP(PJ(`  (8 H(.`׈Hp`H8(h`@ X(x`@ (phHDHP(.`  ;;P(8H(8 HP(.(-(h(Ap`P P `Ȉ`@@  HxP(=`phP(? 8ň(6`hH@pp G@@hx `V`P(X`P(XAhD(hHp``H`@TphHለHpxU@@߈pVhAhF`(h"`p(pw`wPA<<(`w(phHHp `ĈAp hLĈh`(x(xh"H(p(`pPȈ(`@T@p؄``@`@phH(xW@@pXh??A`PA(`P(P( xpĈph@H(hX㈈(M8(`(pÄh hA&`@@ĀH "ps`pt` @ĀH "puA`>hv`#@h!HF~XXh`PAAxhs(I/O RECONFIGURATION ALREADY PERFORMED: , 2s$((08*SYSTEM DISK 1 *SYSTEM CONSOLE *LIST DEVICE 0? ! hLAHhA:`PZ==(P(^(Uh& AL`PBH(h"(ap`PB(`PH(`(`p@G@ `Px@G@h`@G@ @ @(ah"HD`(EPPhX((H(ap ((a`PN(UPM(`H`(a`(t`H(START RECONFIGURATION LIST DEVICE LU#?LIST DEVICE SELECT CODE#? ECHO?(YES/NO)   EE@ ENT 1 2 3 ;PI@∀@@ 戀@@hChPY`@`p``p x`ۈpSS (6HxHGhHHGሀH `8S@q,EE@GS8S`PT(^@Dp(`S@RpS(0I/O RECONFIGURATION?(YES/NO)MEM NEW - /R/E8 `@Op`pP(aP(a8`ň8([`p` @8(kJ9q==hhS?`P(P(PM(whQhPY`p`p(M`@@x[xZh (hh(hVhU`(@@x]x\h (99hh(hXhW`h H`hP hZ`@@߈h[`(h\@@h]pv`@Hp 8v`vP(`ň@p(` (`t` (`uDD]))H` `܄h`hH`hD`(h($CNFX NOT PRESENT, NO MEMORY RECONFIG.D@1O44XGyP'$CNF2 92084-1X357 REV.5000 860507 &$CNF2::SRC_92084 4zz^$C#OS $CBUF $CDSA $CECN $CEFN $CENB $$CERR $CINE $CIPR D$CJNE ;$CJPR $CKSC m$CLOC $CLOD ?$CMDS $CPIO $CPRM zee$CPVO b$CQRY $CRSE $CRST $CSTM $CSTU $CSVT m$CTCH `$CTRN $CTS# 1$CWRD $CWRL e$CWRT _$USRS es$CAET $CAIT $CAOS $CAST $CATC $CECO $CLLU $CNCL $CNSC $CNV3 $COSC !$CPRB $CPRS $CPRT $CPTP $CRBF $CRNT $CRSB $CTBS $CTMP $CTP1 $CTP2 $CTP3 $CTP4 $CTP5 nn-$CTP6 $CTTP $CWFG $PRSE $SAVE $SSCT $XCQ$XSIO ".CAX..CAY'.CBX$.CBY#.CXA(.CXB,.CYA%.CYB&.DIV0.DLD).DST1.LBT/.MVW+.MWF-.MWI2.SBT*.XLAnmFFpD`DphPH(:`` (H`@bHDhHxh Hx`pHh P(&8(((hDH`@bDp@D`@`HDPp`PDp(G8`P|(@ (H` (G`DPFDDHp ` PxPxhH@XpXJ(Vx pHDh Hbx`H@p` @HDp`dp` X(@iH8(b`D(n`D`@cHD@`H`@DH`@"D#hhHb`@pPg("@@H` @h(@ (z(w8p`dphP 8(8 @HpphHh|PH8`P(H(XgHb$HHPg@IIH%H D%H%HDH%HpD`` H8`@bHH@ 8@bpHD@8HHH DxH8HDhH D8p@bpH@XgH`@c@D` @D`@ (7>>H|PHp`phHhX(4X(4X(4@|P(4`e@pPg(4Hk0HH8(@` (?p`;pHH`hxHX8(B`phHh(^X1QEE(^X(^X(^|P(^kHH8(L2 x xA &DHh`?(8mm`l$m H'Xt(( @(`(}AA`88h H hHcH Hp` HH|pk@ Hp@(8S ` D(p0` p0"p8@#OO@ 8( )@xpp@H(H@p`phHfx`p@H` @>Hp`P(P( ((]DD@ip`@A &HHp(` x (A`h/`0) `|@>p`p(((`hШH(PH( hxH/h@h(`((@@@Dp0)`@>0ph (0)h(`h/ihhD888(TBG Jxph. 1H`x@^h`>. 1^:JJ!h  x] &]pFDHxh@H (Sx@8h ([Hgx@_p^?@(bx@m``ރ`@x?`@h!mpx y@ @ZZND77Hpxxw1@(@H(hw1 hw2Xx(`hy  @ SELECT CODE = EQT xxxx,TYPE PRIV I/OZ@88Xk%;$CNF3 92084-1X358 REV.2208 <820201.1344> P92084/&$CNF3::PCO8;;$CNF3 E$CXID _$EXIT $GDPG 1$NPGQ $PCHN P$SMTB $TRTB ;4 $ABDP '$C#OS )$CBUF ($CDSA $CECO $CERR $CINT $CLLU $$CLOC "$CLOD %$CMDS $CNFG $CNV3 $CPRB #$CPRM $CPTP $CQRY $CRBF &$CSTU $CSVP $CSWR $CTMP $CTP1 $CTP2 $CTP3 QQ$CTP4 $CTRC $CTS# $CTTP $CWRD $CWRL !$CWRT $ENDS $LIST $MATA $MNP $OSAM $PLP $SAVE $SBTB $USRS Q,AAhxHh( H8(H(Hဈ(H∈( H @Ahhr`P(_PA((h@`ho (ipq@p_`@@@@pAMMhA!`pHD` @phH `P(Ո@P(Hho (fD88(SH(`(S`(1MEM RECONFIGURATION?(YES/NO)PHYSICAL MEM SIZE?(#PAGES)DEYYYFINE BAD PAGES BEGINNING AT PAGEXXXX (/E TO END)CURRENT PHYSICAL MEM SIZE: XXXX PAGES 0!?YENO- /E/R1011D8`E@HOpKpL`@h ~wGG(]@L( (]p(`O@` р@hKh `@hhE (]HOPF(]Hp pHFHpHIׄHJp"hE@HGpD p`#V`P(0.KK@D8p" Dpx D`qp`pH`p@〈0MhEHހ 3YP(]`(fH`\h $(y`R(yh[D@x` @(yH8堄hZX(y8(l4y??hE (`ڈH  `@`( pP` @hÈHl`P ̈pP@@pQH` @ (lD`hPQH` @p   ppp((@@ppp(ς@H8ۈ8(̈88ۈ88(` p` p` Jp ` )@ @,,  (@p ( `@p`x%`ppH`p&pDDp` h'H`@hxDD`Hxx hpH'` @@`@p(P G @x'Hxx`V&p0`(1` `@p`p0`0 `V`p7P92084/&$CNFX::PCO7}}g\$ABDP $BGFR $CFR$CMST $CTRN $CVT3 $CWRD $EMTB $ENDS $EXIT $FIEX $GDPG $IDEX $MATA $MBGP $MCHN $MNP$MPS2 $MRTP $NPGQ $PARS $PCHN $PLP$PVCN $RTFR }yy $SAVE $SBTB $SDA $IEX $SMTB $TRTB $USRS 3.ADX'.CAX2.CAY,.CBX..CBY1.CXA-.CXB/.CYB!.DFER 0.DIV$.DLD%.DST).ISX4.LBT*.MPY+.MVW5.SBT".XLA#.XLB&.XSA(.XSBy=`` !? YENO ER S RTBGPARTN XX, XXXX,(XXXX) PAGES? $ PAGES? ,,(XXXX) PAGES?1 CURRENT SIZE OF SAM:DEFAULT: WORDSEXTENSION: PAGESCURRENT PART'N D```EFINITIONS: CURRENT PART'N REQMTS:REALTIMEEXTENDED BACKGROUNDMAX PROGRAM SIZE: W/OUT COMMON: PAGESW/ COMMON: PAGESW/ TABLE II: PAGESMAX MLS PATH LENGTH:xx PAGESMAX # OF PART'NS: 886$$ PAGES REMAINING: CURRENT SHAREABLE EMA PA RT'NS: 8gCC"pD8"pJ"phJ:# J" @@@ $A%IhD`p @pThN`@@@p0O (p $%Ә+@@h`@$phH@hxT` @ph@h&X(K (Eh `(Wh(`p(ЀDp'`p`p`A&p8ꀨ0O (.kkOOP(thX܈A(8&8# A(pH` 8(8)`p(g`(K`(K102212@SAM EXTENSION STARTS AT PHYSICAL PAGE MAX PAGES AVAIL FOR SAM EXTENSION: qEE CHANGE SAM EXTENSION?(#PAGES/" "CR) `H(K`p`&Dp& (섨p(h P$`H( `@p'`P$(h)(h Xp  JhfBBhq x  hz8  hu8  h`@$ @pph`@$H @ph`@$ @phh ` @FlAAAphJ"@@p @A$%ʈhhx^`(A*p@ )`p`@8(d"Jp"pppH`pݠ(Q x#x䈈pphxh3HH@x @A$%Uh Lh i`H @p @` h ($%"`0h++@h ($A%2`8h+A+` $%"h `P((`(s`(4==(2`P(`P9(C`(`рP9PJ(hX(X(倈X(ph (((h (hԀX(`ՀP9 (x`h(p@P(87f<<p` @#h HHh h h (`шPJ(~`h (u"J@&`@p8ф`P(6`((sh ` (A(Q`KWCJJ`&`J&(TM 20DEFINE PART'NS FOR PAGES: PART # LABEL ====== ===== #PAGES,RT(M)/BG(M)/S(,R)h`P(&P(up`p`p`p"@p`@vv.G>> @h숈p(+`@p`(&(+`J&`ppߨ``(p(``(131415SUBPARTITIONS?(YES/NO)v---!O@@pDDppppHp`P ([8(Y`p`p`p`p`p` (@  hxhx xh ((h`(`hpx`$(Z@@(`xph (H@(hxp(`쀈h ((`숈`@p8(m$f%Zh Zh p x,*-Hxh@ )`>>phHLH8(`HA hX+h Yh9h khyh(p  J(`̈P(`(Q`P(M`P(O(O(U`@*@ 99pP(MH(S0H(.H(;pH()H(! 0(;HxHHP(;pH0(1` hH0pA`h+vv-FOOHx`p(`````(hMAX # SHAREABLE EMA PART'NS = xxxxxxDEFINE SHAREABLE EMA PART'NSPARTN #,LABEL (/E TO END) 23242829 (v<<h X(8H.P( P(  p` HP/H(`P` ` @(ˀ@`Ј`ш `ш`|%<< `҈P$`p`p` p8hxpP H (@8hh"p(L@ $(4H(4p 5(`*>>@@(4`9h9%pH@ xx 0 ph (JxHHb(J &HHxIH(J!8(HhxHH (a8HIR<<(N`@(NH (N"@ph` @p8 ( x(mH(mH (H (m`(`(`(@h~~e<>`@ph rh (h   (XxH _PPPP(XHa &Hx>`@ (Z@` `@@ &xHxhH=KK(]@phHc@舀H( cp`0( `([`d( `e([2119NEW UNASSIGNED PROGRAMS:MODIFY PROG PAGE REQMTS?(/E TO END) PNAME,#P~~HHAGESASSIGN PROG PART'NS?(/E TO END) PNAME,PARTN# - h h (h   (興xH _PPPP(`@@*@@(hH~/mFF((@ph興 5(hH@@O(hH(`(`(`(27?`(161718NEW MEM CONFIGURATION PERMANENT?(YES/NO) /RH@ph<<`P( P("P( @A`*pHO` Hh(@pp (8p(2hHHHO` J" J(H& J& `hHO`A*pHOkR??@`"H'@ @$-H,`@ $h @H H1@HHO1ݨ`ݨ`ݨ`ݨ`ݨ`ݨ`ݨ`ݠJ&  \AA`P(`P98/E(`pp@p2HO8(2`hHOݡ `  8PxĈpp`(`H2`hHOAAA8ĨH,X(- @(`(`88٨phCONFIG ERR `pHp`p鈈P` @p ;`@p鈈p8h9~~^ HHh 6x D@ @A$% =8hh8( -`hx Ch  7888( ,RPARTN = PAGES, ENT NEW ` ( V$ F%h ` Ep _( ^$(( H%h` E@~yy ];;p _h[hb` p p8 J`( `@ H h A+`9H`+H 0$h `h  ( @p`p( k y$W @@"p耈 @  h ( P( 8興( X( P( ( P( P( h h9x @@ '$AH% 1@ 0 p @h9hx  I $%1 EE @(  @p h h ( * PNAME PAGES PART'N x x  p@"pè @ ( #( #p P( %8 $@@( $ @H ' )p8 )1  )8耄( 0x*@  5@ x` I@ 58 5 5ppH ( uH H'H ( hHp dGGH@p@3H@( `3( '@3 3H` ( hHpH@@( 31 I!p x  @ @p 11j x 4@ ( @ ( h 4  h H5X ( ` h  1@ZwN`@@@p0O (p $%Ә+@@h`%$LDR::RTE_6:5:167:128 644 0 0 123400 5310707216 34164 %$LDR::RTE_6:5:167:128 $ظ%$LDR +#+#+#S<FST 44X;;$LDHD 92084-12013 REV.2540 860221 P92084/&$LDHD::PCO4@^44Xv vZk4%;LOADR 92084-1X376 REV.2226 820330 P92084/&$LOAD::PCO4zz5#BG.R #MP.R #PG.R #PT.R #RT.R $LOAD ASH.R BCH.R BLK.R BPF.R MBUF.R 0C$E.R iCAP.R COM.R COP.R DCB.R DFG.R z9DN?.R DS3.R DSP.R EDF.R EMA.R  EMF.R  EMI.R &EMS.R F3.R FBP.R FL1.R FL2.R FL3.R IAD.R  ID#.R IDX.R IST.R  IX1.R zz IX2.R  IX3.R  IX4.R  IX5.R IXL.R LBP.R hLEV.R LGR.R :LIS.R  qLPE.R LU#.R LWA.R  M04.R !M12.R MY#.R NM1.R NM3.R zzz>NM5.R NOT.R OEF.R OPC.R OWN.R PEN.R  PRA.R  PRM.R  PT#.R  PTN.R PUR.R ;R.CL3 R.CLS 7R.CMD iR.DMN R.FER R.LD5 zzzhR.LRD 0R.NMR R.NXT \R.OPN R.PER R.RER kR.SE1  R.SID R.STE  R.SYS R.TST RSD.R SAV.R SBT.R SC3.R  SHI.R SKP.R zeeSLG.R WSTR.R SVS.R  SW2.R  SW3.R TP1.R TP2.R TP3.R TYP.R  rURF.R  VMA.R  VMF.R VSZ.R WSZ.R e~~$CMAD $LIBR $LIBX $MBGP $MCHN $MRTP >$NBGP @$NCHN ?$NRTP $SMCA C.DADD.DSBR B.SBT<?AL.L LA12.R APOSN CAD.L CBP.L CLCUC CLOSE gDB1.R hDB2.R eDB3.R EMA.L AEMD.L ~||EMH.L EMS.L EXEC9EXT.L KFWA.R FXN.L FXS.L IFBRK IGN.L ISMVE 5L.BUF 4L.CLS LBS.L jLOADR LOCF LSY.L fMBF.R !MSG.L NAMR"NM1.L #NM2.L $NM4.L %NOR.L OPEN&PGT.L |:tPOSNT POST'PRI.L PTERR QR.ABR RR.ABT 3R.ADD TR.ALC dR.C#S lR.CNF aR.CNV XR.COP _R.COV [R.CPR UR.DBG \R.DRK JR.DWT PR.ERR =R.FXE 2R.IFX WR.INT 0R.LDF GR.LDR 1R.LUN `R.MAP ~~1YR.MID bR.MOV cR.NTR IR.OAB HR.OUT kR.OV1 VR.PUD ZR.RBG 6R.REL ER.RST SR.SCN 7R.SG0 8R.SGN FR.SNP ^R.SOT ]R.SPC /R.SYE READF REIO;SAD.L :SAV.L MSEC.R (SEG.L )SGB.L SGET~+++SGM.L iSGN.R *SSG.L ,TH1.L -TH2.L OTK#.R NTRK.R .TSY.L +VMM@(jNCRTBGH`K@4p4h3` x0/!064 Pi(P(=+0 5[` (Q$EMA$ $V /0(C`X`pMpP`AbMp`pHM@@H7`W78h (Y8p0p0p7 dh(h`A8 q W (xxzWppӈ0hNxhMxX(hX (hX (hX (hX(hX (AA(hX(X(hX(X(X({XHH(RX (RX(X(h`P (`(k`A(8F p(`(f`P(f8 (h `/G`(`@(Q?AA8(AL0(`MP8`(hxhhxhxg xVhhxhgxVp(p`H((hpx=(P(@ppEppzDp%p"0(\`MPD(\4PP`bM`p(iH` h^(hW-IL CMD"LINKS:BP PROGRAM:BG LOAD:TE COMMON:NC SHARE:LABEL 0`P(@`,@M((hM (HAI[[[(`P(b_<MP(P (SPi(P( Pt(Pk(SP(P(P (P(zpqxo[`oh< @@.hmo`ohm^` hq@Xk`l(Q+8(x`5@-DAp-pK6{MP4|AA(P( Pj( Pt(PH(z[` H(Q8(x`5DH@-p-pK(x8(`5@-DAp-pK6MP ((z xh`(PHx1p (Y(Y%hxe ( H($(QCCh`%p戀p@ pp gh x(h؄Hg   (hDpp%p"pdpzp($(h xh`(PHx1p (`@PPkY&& XX(pp`@p`@p̀(pd`p`epHA!gvwyh&PXCCX`H(^H@(c` (Qpppz`:H ]F(m(`((t`(( ڀ`( `( `P(P(( `(`((8D(P ( V`(P(PH??(pp` h^`p`H(`((h`b`p`HA(h/`0ppp(h``b`H`vp`wp`yp$` A(QW-UN EXT ((C`(`P(P(( (~~) DDx 8 h `  `p ~@p hDpX(  8 ( @@`@ (`@ ~p@h H8 ~( '`h  ( jppppppp p p p p p p p p ~ MIIp p p p p p p p p p ` i   cppppp p p p p p  [` (Q`S(Q 33| ##*!#$%&'@AՀ  *3Y HH `:@H( f]` @h \]p0 o ( fx ` h   ` h oH XP V( P W(  Y׈P V( P W( 刈h H( H~~O @@(  Q( HHh H _` h \(  TP U( H@E Zh \x cp d` up e ZC Z` th d ( C` e( C` S( E@ RH8 dh cBx c8 e( 3` ]h H ~ P( @0 +- ^ cDDJHH`K `- H@` `)@` `)D`@h(X p e( @H`K@-@ @KpDpLh) h`@@ Hh(p X ( `Kp f`,p g`p h` وp i`@@ p j`H@@ p ` وP (  hl GGHH88 ( HpL`(P ( h   0 a`((cAP  8 H h*x.hX ( ( A7 ب  ENTRY POINTS`P ( 0ZH`(P ( 8(`P ( 0`+Dp,pKp@p"pz MMHpp`@ h @ d@ @M ODDxM@NpN`Mp hX   `N `  `:( DH]]]`Jbi5   READY AT  pAp1 :p gg ;;;( G` h m^D8(V@(Hp(`(ـH` e(c` fHHpK` gp,` hp` ip ` @ j@p@pNpMHpL` P j(cH hH88 ( \ nMAIN'Sg@٤44X~k6+;$OVLY 92084-1X377 REV.2121 811118 P92084/&$OVLY::PCO4eeE"DB1.R /DB2.R DB3.R DBF.R LOADR "MBF.R R.CNF R.LOD ,R.OV1 R.XXX SBF.R SGN.R VBF.R 2XBF.R ePp+#BG.R )#MP.R :#PG.R (#PT.R *#RT.R $DLP $EMTB $MATA $MBGP $MCHN $MNP$MRTP $NBGP $NRTP $PLP$SDA.DAD.DMPfAFW.R |ASH.R 9BCH.R uBPF.R BPR.L @BUF.R pC$E.R CAD.L ~~xCAP.R CLOSE COM.L KCOM.R WCOP.R CPL.L lDCB.R vDFG.R HDN?.R [DS3.R EBP.L JEDF.R QEMA.R bEMF.R EXECjF3.RcFBP.R AFL1.R oFL2.R YFL3.R eFWA.R FXS.L ?IAD.R rIDX.R EIST.R ~~~^mIXL.R dLBP.R yLEV.R >LIS.R ILU#.R LURQwLWA.R UM12.R sMY#.R "NM1.L 1NM1.R NM2.L 2NM3.R 3NM5.R !NOR.L /OPC.R OPEN=OWN.R `PT#.R kPTN.R OPUR.R .R.ABR aR.ABT NR.CAP XR.CL3 ~p>'R.CMD zR.CPR $R.CRT SR.DMN iR.ED0 0R.FER VR.ID# 4R.INT R.INZ ;R.ITK GR.LRD nR.MID &R.MOV %R.NMR \R.NXT FR.OPN -R.OUT ]R.PER TR.SE1 gR.SID _R.SOT hR.STE #R.SY1 R.SYE READF uu(CRSD.R SAD.L SAV.L PSAV.R MSBT.R ZSC3.R SGETSGM.L RSKP.R 8SLG.R LSSG.R 7STR.R ^SVS.R SYM.L BTP1.R DTP2.R qTP3.R ,TYP.R tURF.R <VMA.R {VMF.R 6VSZ.R 5WSZ.R uGG`@̓Ԁppp ԀP(X(pIAA`p[h\ 8[( `.plhHԀxDx9VphHЃԀhPh鈀xhH̓P 8ԀP 8ۃԀ`` G440P8hHσp?(]H(]N`H@ypx(]Ac7DDx8%%'@%(`J&@A`BpBP(w`@(@%((`pyPPLOADR LODR1 LODR2 LODR3 %(Hh@6h@6h@68(@%(`@Dp(%(DD`@p:8C`D@(hB D(`pE'H`/P(`DH(FG< @8H`<1kHH(`k(H`Ih (p@`sX9`p@`Jh (`(.@LB`>(@(H`AP(P(`:(.@`((4Ԡ@ @(@(,@(̋ HԀ(,HԃԀ(3ـ@p@:oH(DD@(-`:@(.@:H`p+p*(D@`Q(>Ԥ p+H p*(D@p+ p*@h,  (\hH) (\`h,Xp,hPxU Ԡ(_Hh,X`ptH@:@@(0`t@H: (q LlDD @@p`(Hh,P(zXꈈ(|(X(`p)`hH(`p)`Hhpx(pK`h,XX`H@p)`hL DHp)`tpf`HDpw`ppu@pH@pcppM@`pd`@@c(M8M (8EEDH`fpe@Dp`e@pDp`^pAAwMDxOxPh/HX(@hJX g@`QD@x!x"`Q(`b(@`<(`&Dpph(AWY_]ɀ`W??(PҨ너hX0 ``Pa(`Pc(`Pd(`Pe($(AWp`W(hX0hp ($ (6 (xp pfpnph `p`oPg(qPl(7`fRRՔ4%%@hpf(,MPm(?8n ($8n8h(E@lԈ(,b@o8xh(,hjH (hkH (ިMYR\NN~*$SHEMA, *hf`i@(5xLjho Xl(xx@j(`@(Hj͈AA(̀(x8f`f@p(fo#(FFfs++`(P()PȀ(ς@A˂@ ( ˉA($Hz`@(. FfLLr`v(A#'(P()`p뀀h @8(;h-8h-8h-8h-8(@`B(hD (SxRD(ShD (ފT "@`(.`"@(..DBUG $V u\)QQ`+(.)`zHH(.`{(.`2@(.`5(.- Xt6x[`Dpu`\pvuv8u8v(?EPULBRTSCRCNCSSDBPETERPRSBGLENLDCMPCPBPEBVMEM]|] zAAhx/DhD`CC( H( `@((`Jp,xU 6`ꈀ(`(pxU6`(p)JpLxU6Dpvp/xU6JpJxU@ x=6`?6@hx6 (6`(6`p>6tHH`wpW6@pJp xU6@Jp pxUJ6`p,xU D6`h5((x{H p5h6` p6x<pb6DDp>hX(ȈhX (Ax888`p`ph (p`pp`pP(A(興p`p8888hPxPH(PCCO''((`P(H([  NOT TRANSPORTABLE C1-??@` P(Q B(?p`@`d@!ehqX(? `@(?Ԡ @(?`A `>(h PhsP Phx hxoP  or('DD_ Q$$h'x`A6px`ppppDHp p p (@p`e`nheD@c#99XGk8;$AOUT 92084-1X380 REV.2121 810831 P92084/&$AOUT::PCO9^^h#TK.R eA12.R =AFW.R AFWA.R TR.DWT jR.ITK R.OAB eR.OUT CSEC.R TK#.R TKB.R TKU.R BTRK.R ^\\u$LIBR $LIBX BPF.R DBF.R EXECFBP.R FXS.L GETAT ID#.R LGR.R LWA.R R.RER R.SOT SEG.L SETAT SGM.L SHI.R TH2.L \VCCpHx; @( `@GpxHA (@H(hX;(e(`Hh;ep@I(5xHH@= H( `H8hH@H= `<(w@:Y44Xik8!;$LDER 92084-1X382 REV.2226 820401 P92084/&$LDER::PCO4"R.ABR R.ABT R.ERR R.OVS PRM.R PTERR R.LTM R.SOT BJJ8`A1 p`1p`2p`3p`4p`h@(. LOADR ABORTED 5@8p6x2x3x4H`7h01L-77 XXX6CK SUMIL RECOV MEMOV BSEOV SYMCM BiUJ``LKDU ENTTR ADDRE SEQIL PRMCO RESOV FIXLM LIBIL RELRP MLSIL PTNRQ PGSOV PTNML EMAID EXTSZ EMAIL SCBIN CAPSS ENTIL CMDID SEGRF EMAUN EXTEX CPYRP CPYPE LDRDU PGMNO IDSRP PGMSZ PUROV SAVSH EMANO S''4NPVS EMAVM EMASZ ALCIL EMAIL ALCML BDTSH PTNOV SNP'@144X\k8:;$LUTL 92084-1X383 REV.2121 810907 P92084/&$LUTL::PCO4;;4FR.C#S R.COP R.DBG R.INT R.MID ^R.PUD IR.RBG cR.SMX ;{{DFG.R DN?.R DSP.R EDF.R EXT.L IFTTY IGN.L L.BUF NM1.R NM2.L NM3.R NM5.R OPC.R PEN.R R.ABR R.ADD R.LD5 R.LUN R.MOV R.OAB R.SOT R.SYE SEG.L TH1.L {_LL`@`h P: P; 7P<Ap=!5A>@D`DP6HP8h>A,,@h+H5`DH5@DBUGR.DBUG .STDB`YpB&LOOA T5A[\6D`ZF:IBS @pp`(`h  `P8H9x=` p=AvE@= (8`E8h@ (p`^`h ^UNDEFINED EXTS NO UNDEFS @GG@p(D@( P6(8`xHԀPH(ԀHԀpHԀp`pX( (HԀ(H8P(HԀ==tY!!P(HԀP8(`D`( ``( =\DDHԀp Ԁp Ԁp`h 8`pbԁb HԀ@ (3 (3Ԁp7p7P(58b(8ԁb`P6`HP8(DhX(D`( u~eeJ;;pb pa `b @aFu~ԁ@pbԁԁ@hcxF(Op~pppu e@e΄44X3k9$;$LDIO 92084-1X384 REV.2121 810801 P92084/&$LDIO::PCO4BB9R.CNV R.COV R.CPR R.DRK R.MAP R.MOV R.NAM WR.SOT QR.SPC B~~$CVT3 ALC.L ALS.L CBP.L CON.L DB3.R EXECF3.RLIS.R LOS.L LSV.L LU#.R MBF.R MY#.R NM2.L NM3.L OPC.R PGL.L R.CLS R.FER SAD.L TH1.L TH2.L TP3.R WRITF ~CC8W@`ppNHx7x@pK`MhNH5xJhN (+5H7@L`HH(<`@Dhx9OJ`K7ABPJhKMC7H@h`PeeK44 h:Qxp@pVH~xh 88V(``h`HH(q`HPW`M7A`7py{OJ`K7We ? LL /LOADR: (( x HhX88H@OpVp8888V(ǨBB`(7@`(`DhT`@Hp@hU`hS`H(`hvH`@@hw`hu`(@D``pDhe`@Hp@hf`hd`~pV`MhN 8V(` hN` 5HHhOh  (@ H@@ hP`Mph () x'@` @hN`(7` hM`Qh:` Hp ; BP LINKAGE XXXXX  A  V^aLOCACCvoX00L SAVE AREA gorSAVED NAMED COM  xNAMED COMMON C@m44Xk: ;$SUBS 92084-1X385 REV.2121 810801 P92084/&$SUBS::PCO444'DOHBL "DOHCH DOHCM 7DOHDH wDOHFE VDOHFM aDOHGT 4j.ENTR OVRD. R.FER 4KKA`h`hA!"`h A!(2""A45 @(SxU45 (L @H40~4\\K66848U(I 6`7HVpV`0HpV]@]^'_ )`auuhv @\@**X7cLODR1 92084-1X386 REV.2226 820401 * LODR1 OOnK EXEC.CPMMIN0 MAX0$LOAD CLOSE R.OVS DOHFE WRITF READF DOHBL DOHDH CREAT PURGE DOHFM DOHGT O  a.$SYENT~~HHp`@hʁp`(pp`@p`@'h pxp~MHH`(h@pA(( h€hp@p`%@ppp`@h@@Ȉp@hpp`(mp@KFFp`@A@pUp`@pA_php o`(`((hp`@ `@h Hp`@@p~~+XEEx`p`pp`@@pAp`@hƈA@p((`@&pA `p`@ph@p`A&p ~~~N>FFÞ(`@pA hň@p`P((`pp`@pp`(Tp`@p  p(Ap(~mHCC(Pp`@p`@(7`@h Hpx6(C`p`p(B((# Gp`@p Op88(`p(\(h~~l_CCpi88(H u`(`p`p`p`@hp`(( A((`p(~u A (i(''0$SYENT  @ '@44XJk;;LODR2 92084-1X387 REV.2121 810801 P92084/&LODR2::PCO4nR.CAP R.CRT )R.ID# DD 6$SMCA .ENTR .OWNR CREAT IAD.R IDGET ISMVE LEV.R LOGLU MY#.R OWN.R R.ABR R.LOD DzzkJJApD@ p( pH HI`(E  (hH@Ԁp= 2=hHAԀDHBHCԀ)LODR3 @`G(z@f$44XZk;;LODR3 92084-1X388 REV.2121 810801 P92084/&LODR3::PCO4^^LODR3 R.ADD tR.FXE [R.IFX R.INZ +R.LDF R.LUN eR.MAT R.REL R.SG0 R.SGN NR.SY1 ;R.SYE ^SS$LOAD .ENTR L.ADD L.FXE L.GTM L.IFX L.INT L.LDF L.LUN L.MAT L.REL L.SG0 L.SGN L.STM L.SYE R.XXX S5\\@(    AA&AA'4'()*+AA5F56789:;GZGHIJKLMN666~\""8[_[A`A o`abcdep }pqrst644p!!~~AAAA@4@744Xk;5;LODR4 92084-1X389 REV.2121 810801 P92084/&LODR4::PCO4w$LOAD R.EDX R.LTX R.NTX 11AԀp Ԁp Ԁ@p@1@A`>77Xau64;$LDN1 92084-1X390 REV.2540 <850819.1348>P92084/&$LDN1::PCO7--nvI##.R !IDR.R PGT.R R.EDX R.LTX R.NTX -}}@P5#BG.R H#MP.R %#PG.R #PT.R 6#RT.R *#TK.R $FRIX $IDEX $LIBR $LIBX $MATA $MBGP $MCHN $MRTP $NBGP $NCHN $NRTP a.CAXc.CXB.DAD_.DIV[.DLD.DSBR \.DST].MPY^.XLA}||.Z.XLBb.XSA`.XSBNBD1.R OBD5.R PBD6.R +EDF.R EMA.L KEMA.R EMH.L EMS.L EXEC&FBP.R FTIME FXS.L GETAT 'ID#.R LIDA.R BIDX.R IX1.R IX2.R IX3.R IX4.R IX5.R -LIS.R |"XLPE.R 9LU#.R GM04.R CM12.R MSG.L =NM1.R >NM3.R ?NM5.R .OPC.R DPRA.R EPRM.R PRTNWPTN.R @R.ABR JR.BLK QR.C#S FR.CLS ,R.CNV IR.COP 0R.COV 4R.DRK R.DWT UR.MEM <R.MID 1R.MOV vvL.SR.MVD YR.OUT VR.SMX 7R.SOT 8R.SPC TR.SYR ;R.SYS 3R.T80 RR.TAR SEG.L SETAT $SHI.R TH2.L )TK#.R (TKB.R ATKU.R :TP3.R #TYP.R MURF.R /VMA.R 2VMF.R !VSZ.R "WSZ.R v~~ujHH H`(@` @(@`(@`@(@&'|@` (IZ`K(&JHZ`#P3J(1Z @`K(1Z@x`J(=Z@`K(=Z x@hx`%@~)HHHp&`(`D$h`D@pX`%([@@@MpX D(``XhYDh (@`(m`X@HDp@[(w (wp=( \`/(J[( @( `=hX HH`B0MM@hK @`/D(8"`"h2 (h= ([( (`"@x"`1H p"Jh3A\>h!A>(@`?p!`!Px!@`!@`MhX H`K(@`/(H(H"x@` ILL(@ A]@Z@@^(`@@p&`K(`hWH x&h%@ ($@`(`M@@@h X @@($@`hM@@@3pCh% @@p%H   @%@@@0HKO)EE0p`&@@p`'p^@2@^@%h @K@Hh/ @"@@(`+(`@hX'@pHQphH@( H`P'H1Hp@A@`+(ihH2`P' 0J` _) wnFFHp*hH6H`P'HpN `P'H1(@@)@J( _)D p*8N@`*(p4H`AhP3 HHNxANP+(`hR88N84( @X+h SHP(HH`C,pC`-H( 8h2Dx.`(D`,pg`/@(`(@hZ0A(`51[(@"Hho0`!h}DxZ0`%h@ (hK (h/ (HD@"(@P%HhM0h@`:4hM`:D4h (`h/ `:hZ4hd`8iiBBD4h/ (Dho`948`hK `DDhC48h#H@`5X3`6@h%H '`&('8( (WSH`6h,7'-W-RQ PGS ?i%@]]A 00 PAGES RELOCATED N000000 PAGES REQUIRED [000000 PAGES EMA e 00 PAGES MSEG p000000 PAGES WORKING SET ~ LAST PAGE OF VMAH DEFAULT 84VM`!h!H7x\\22@h+ (hDT DH`hG7`Hh7`-P2(`:H(H`9<0pA2;HFh"`ExExE EA1$END@\t.HH.  x `3@h (`H(P+(H<(x H@UxV@p4h Ip5354`4hHRh HxAH3^pP(CH@^(.H^@(.H3^@(.HNN@^<]Z@@3^P (.` @^(C`-@(@`h6H@7`3(@"7SET PRGM INACTIVE h.X  `A8AA`A8A^AabAh`A@@^XA^_c  h`Of@@ xh HHUxHx@^p5 `H6x^pP3(`@5(((`p`׀@(hhD;ThD;Th5`h 6h Hx5hx4kHHX4(^Ah5HT8584(H((`.P((p H(JhX'(`P@(`O((F`(@D!;T`@p8 (X+@(F(` X+(@@p=p>Hp?(`p`L@phYCC88(@ X+@Sx5Hp3P3(P2(`H`px2`(8285@@4 A_ p"354`4(-*35πHh2R82858(^^100x`3p3hxYA xD34h4P(MM3ψ88Y(?`2P36p3h퀈H (<6hZHЈ xZZT^@77XpIH!;$LDN2 92084-1X391 REV.2540 <860221.1414>P92084/&$LDN2::PCO7II<BD1.R >BD5.R ?BD6.R IDA.R R.BLK R.MEM R.MVD =R.SYR OR.T80 R.TAR I~~$DVPT $FIEX $LIBR $LIBX $SBTB $DIEX $IEX$SSCT $STRK *.DIV).MPY(.XLA+.XLB,.XSA%ASH.R $COP.R EDF.R EMA.L &EMA.R EMI.R EMS.L EXEC FXS.L I##.R ID#.R IDR.R ~]] IX1.R L.BUF !M04.R NM1.R NM3.R NM5.R 'NOT.R #OWN.R PGT.R R.ABR R.MID R.SOT "R.SYS SW2.R SW3.R VBF.R VMA.R WSZ.R ]~~DD( H 8@A Ap<`)p;`< *J;p(@p` A*x<+@ph@p8@xN`<@~D??xhN8 p `=pN`]h`< ((p`((h H  hH 8H`H `H(=hHvAA`(= hH@(0$D0#hH`H:`H `H ` `5 `` ((p@(=h@ @(5h`Hh`A @(=78`;(&hxhxhxCFF@,888(Ch@`  @hH4( P(t`hH@,H `,H,H@, `@,H@,H ,vwD`$h (`GHh@  hx=88HH8(8hH4( Phx@h& (hJ ((%Hh%"hH `hH=  `(`(`@h   @@x x @xpH` P HHppJKKHp`hA8(`Hh !`D@h(DUPLICATE PROGRAM NAME - @ `( @..`(!pp?p@pApEpDD`pFh  x@pA8F+F (7H3pB@(RRy,,((H pB`B(-8?A+FP=x=A(8>+FP@?=R@ DEF D6 DEF INAME  DEF M1 SPC 2  SKP  * ERRORS SECTION DS03 EQU * HERE FOR ILLEGAL LENGTH  DLD "DS03 *  * HERE ON "DS" ERRORS. * %BMPG2::RTE_6:5:573:128 644 0 0 436400 5310707220 33614 %BMPG2::RTE_6:5:573:128 $=h=%BMPG2 +#+#+#=<FST ::X$ȗ BMPG2 92084-12014 Rev.6000 <921029.0123>/SRC_92084/R6000/&$DMGR :@d$<<Xȗ $DMGR.REV 92084-12014 Rev.6000 <921029.0123>/SRC_92084/R6000/&$DMGR < 0$DMGR 2p @8:V55XICOMM92077-1X455 REV.2340 830928 /SRC_92077/R5020/&D*M 544Ft.6FLAGPTRS6GDIRPTRSTEMPSPACE NEWTEMPSINSTRINGINPARMS 4 s#COMM kIp@}w66X/TD.RTR 92077-1X455 REV.5000 861007 /SRC_92077/R5020/&D*M 6**E BUFFERREQUEST MEMSIZE MEM STARTINGLOC *ssD.RTR .NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN sxx(7EXEC.CPM.FION FINISHKILLSCRATCHFILE DOOLDREQDONEWREQ INITIALIZEATACH INITIALMOUNTREADCLMC_GETRNDTACH USNUM INITCACHE INITMEM ADDRESSOF LIMEM BAILOUT FTRAP x~~r55O`Np QS(( R  @p`@MpL $L & (*p.0248~22~7(; ; P(?(BA(DDF AIQLP2M9@77XuBNEWOPEN 92077-1X455 REV.5000 860617 /SRC_92077/R5020/&D*M 700E SCRATCHNAME  SHAREDENTRY SUPER_USERINPARMS NINSTRING0 &NEWOPEN  {{.DCO#EXEC.CPM .SST.LBT .NFEX .MBT$FINISH%CLOSENEWFILE"MAKEFILEDCB !WRITEBLOCK DISCTOBLOCK GETDISCINFO PUTDIRINFOOLDDIRADDTONEWMOVE2 TIMENOW CINDEXFMPRWBITS CLOSEOLDFILE{dd ATESTACCESSCREATEOLDFILE SINGLESIZEFMPEXPANDSIZE OPENOLDFILE NEWTOOLDCHECK OPENNEWFILE UDSP.GETENTRY BLANKSTRING FMPPARSENAMEMAKEDEVICEDCB CASEFOLDd 01234567 DDp$ `(((h(H)x H h` (}!!*p`(̀`p #!w>>A(((`=p`=P((P(`p((`(`=p(p Cp`p9`((k`Ap p 0~~77( (p(p9Cp`(`E(`>pC([I p`(P`p~ O<<(Z SA (X(Z(Z`p(~ p`(h e`p(~ kA (tA(~wA (|(~(~`p @@p `PPR..(H`娡p(ApAh`A  PHH++SCRATCH SCRATCH T ````@`R@```@v~'%H@\99X=gNEWOPENROOT 92077-1X455 REV.5000 861203 /SRC_92077/R5020/&D*M 9BFATHERDINSTRING*NEWOPENROOT VV  EXEC MAKEFILEDCB ERRFINISH TESTACCESSGETDIRINFO NEWPACK BLOCKTODISC GETDISCINFO NEWDIRADDTOOLDGLOBALDIRLOCFINISHCASEFOLDV~~55p ]` (fa be +`cp-'- ./`@p0`ep1p2`cp3 <~MM:!! aB be I _bp M S4+]  Ydc4]M\ R   %@bt4;;X!CREATEFILEENTRY 92077-1X455 REV.5000 860221 /SRC_92077/R5020/&D*M ;dCREATEFILEENTRY  ZZ ~ .DDIR .ENTR .CBTMOVE2 SEQUENTIAL TIMENOW MOVEWORDS FMPLASTFILENAME FMPEXPANDSIZE FMPPACKSIZE CINDEXFMPPARSENAMECLEARBUFFER Z~~fDD@pp' 26p=0(F`p``h(N(T(T(T`p(D`@@`~A[<<(^`p`@h`(g`pjop`@h w `@p P((`p(` P((`p(`P(p(`(??`p` @h`@p  `@p `@p `@p`@p`@p (::{ G ` @p ` @@ h Hx(D:CC:O**DIR . /       C@{;99XdMAKEFILEDCB 92077-1X455 REV.2326 830705 /SRC_92077/R5020/&D*M 9 A* FATHER MAKEFILEDCB 77 ~.DDI.DCO.ENTR MOVE2 GETDISCINFO CINDEXSEQUENTIALDOUBLESIZEMOVEWORDS 7=[DD@p((p`@hHp0(,`@pP(2p(8`@hp`'p`Έ@pAh@=H??A(O(O`0p`ƀ@(X`0p`@(a`0ˊpehX 0(q`0NJpt(z(`0p`Ɉ@hhHRRh&&px`Ɗ@h `ň@hHpx `@h`@p `@ R00IX U F dfh  ? @0@::XMAKEDEVICEDCB 92077-1X455 REV.5020 890821 /SRC_92077/R5020/&D*M : A* FATHER mMAKEDEVICEDCB  == *w.ENTR .CPMXLUEX MOVEWORDS MOVE2 CINDEXIFTTY LUISACTUDECIMALTOINTCLEARBUFFER =CCA)-p`(6`p`(;`P(;(ۀ`(Ap(Q`pApL(`׈p`ppp`p]||^<<(a`p`(f`p`P(j(m`p(`P(q(pw(|`p(~p`p(`PhX 0(`p(A(((((|??(`(`0p(`p(3(`0p(p(p(`p(3`p` p   p(3`p(3==.''F S W R N ? 4@ @=@99X6FINDNEWFILE 92077-1X455 REV.5020 891106 /SRC_92077/R5020/&D*M 9//E$ SCRATCHNAME CALLERLEVEL FREEDIRENTRYFATHERDHEAD /`EFINDNEWFILE }}.DCO.ENTR .CPM.SBST .SST .LBT.NFEX .MBT.CBTGETDIRINFONEWPACK NEWSCAN MOVE2 OKASCII TRIMLEN CINDEXACCESSLUGLOBALDIRLOCLUOFDIRADDRESSOF GETDDIR FMPLASTFILENAME }FINISHFMPPARSENAMECASEFOLD~~MU@IIA@@@Bp `@(U(`J^(cn>>>>q(vv5 z#( ( ` ~]@@D(h ,((Ah +(( <(C0(C (<'(((`4p?`?E( p8J<//(((p()G*`(` P(Q(؊`&@p W p(`((]`(- `p `.@p`-@2hBBp`p  s p(`((x([ },p' ,0'( !p  !0 (֊` @p  "`'( DD"" (*` @p  "`+@p ‚ %" (DV??(( ,(Bp`%p ` p&h* )(ph&J@@  x`p `  p`(0(`"*(`!*(d# AA,( (`"P((` p#h#@A@$`!*($(I $(F$3(`&@p 9 p(`((>([`'@p E $($p(`"@ p HH֏L""O p(`((T([`!@ p [  (b((`"*(r*(m 0(rH~~rnGG,( y#!!$'"h#@A@$ ! &!'"p(B(`&P((`'*(* * 0(`%@ p  ~~~D>> $((`'P((݈0(ˡ`"*(`&*(҈(`%@ p  ڂ $((A#(†(0(`"*(`p~77`!P((p@`)@&p&8((B ,p(([700}I R " $DIR   0@rܑ77X"NEWCLOSE92077-1X455 REV.2326 830705 /SRC_92077/R5020/&D*M 7 AINSTRING 'NEWCLOSE %%ERRFINISH CLOSENEWFILECLOSEOLDFILEOLDLU CHECKDS %GG2p`!p (p(pG "? @p99XbmWCLOSENEWFILE92077-1X455 REV.2326 830705 /SRC_92077/R5020/&D*M 9B SHAREDENTRY FATHEReCLOSENEWFILE HH # .ENTR PUTDIRINFO DCBPOSITION SEQUENTIAL MOVE2 TIMENOW GETDIRINFOCLEAROPENFLAG OLDDIRADDTONEWDIRADDOKHr==A p`(O`S@(O&RV( . 2`0Up 8(I `T@p`S@&&C(I I ORV`&FR @p::XǐtNEWTOOLDCHECK 92077-1X455 REV.2326 830705 /SRC_92077/R5020/&D*M : A] TEMPSPACE qNEWTOOLDCHECK %%kW.ENTR .SBST .SST.INDX .NFEX TRIMLEN NAMR%~~HHAj(@ljpl`s(c`r('(`q@ӈqpP(c`qP(5(a8lApglAgnAlnpgl~11>LDlgn@pAglAlgn@p(a(c((1i : @P/8@L 99Xm"UNEWPOSITION 92077-1X456 REV.2540 851004 /SRC_92077/R6000/&D*1 9 A)INSTRING 9NEWPOSITION __.DDI .DDIR EXECMOVEWORDS ERRFINISH POSITIONNEWFILE POSITIONOLDFILE MOVE2 DOUBLESIZEGETOLDENTRY MC_RESERVEDISCOLDLU FINISHCHECKDS _~~933p `(T`Pp(2A!NJ x *' 0'#p(: 9~77P{6N#p =B#SA`&pJROQ7lN?@%;;XqPOSITIONNEWFILE 92077-1X456 REV.5000 860702 /SRC_92077/R6000/&D*1 ; C D_STATS_PARMS NEWTEMPS SHAREDENTRY }POSITIONNEWFILE  ||.DAD.DSB.DMP.DDI.DDIR .DCO.ENTR .CPM.DMOD SINGLESIZEBLOCKTODISC FMPEXPANDSIZE PUTDIRINFOGETDIRINFOOLDDIRADDTONEWMOVE2 ALLOCATESPACE FMPPACKSIZE NEWSCAN MOVEWORDS |+++DIRADDOKCHECKTAG NEWPACK DISCTOBLOCK CHARSMATCH SEQUENTIAL+d ::A  cph@`* Q$ *]j.2 ` (; J   >:C88 H`fp`hp`p Qp ZYb(`_@ h\H pM`b@ pOxN kMNO`a@ p`(?` @ ({:: (( Q@p( ( ((@h@M M\`p((\^p`(`OO> $$p^(o p`(( J `(ӈ (ӈA((n(+(+O}}q88W  (߈(( (?`bpp o`MM^Q p`(( ]j  `MM^}LP55 `mp]j  `  () J  `^p`@PpM2M`( (?`lp`(T@pJ ooRF44 U(Q(Q`dp((S` p(JA (](?(?`p (J  (( J0(S o{z77(}(`p`pW `(`kp(`@PpMM`^@@Ph]j i^}}f<<i^`(`hJ@ [G J ((Ѫg^h@MMf^(`^@@Pp`(h@}77 (J `\@p( (   JA ((((`_@  H pMxN'XX$))M N`^ @ pM@N3NM`\@ pMMp(G[  (J(J`ep(L`dp(X33:P!!?DIR ? 3@' 99XP0DCBPOSITION 92077-1X456 REV.2326 830615 /SRC_92077/R6000/&D*1 9:DCBPOSITION rr.DAD.DDE.ENTR MOVE2 FMPBUFFERBASE FFm''A`/@@.p'-G(h'@(`,@p' '@F ,  @Q77Xܢ[NEWPURGE92077-1X456 REV.5000 860611 /SRC_92077/R6000/&D*1 7B^INPARMS 7INSTRING $NEWPURGE ==+4.DNG ERRFINISH CLOSEOLDFILEDOUBLESIZEOLDRPERROROPENOLDFILE NEWTOOLDCHECK PURGENEWFILE=}}88pU5 S5p`pS `((L W*p`(FU3`,(?-*p`(>`2(<@8/}<<.,:3(>`Zp(A`Yp E*3(L`XP(J(L`p O<6S @@8mW-99XmLNEWDCBPURGE 92077-1X456 REV.5000 860702 /SRC_92077/R6000/&D*1 911FZEPTROLDFLAG DHEAD  SHAREDENTRY FATHERINSTRING1NEWDCBPURGE qqERRFINISH CLOSENEWFILEPURGENEWFILEREADBLOCKCACHENEWUNPACK NEWSCAN GETDIRINFOFINISH FINDFLAG FILEOPEN OLDDIRADDTONEW OLDPURGEGETOLDENTRY OLDRPERROROLDLU CHECKDS q1J44p`(  `pP((:p`(9`(7$` P(++` (11 6~~511(9`p( > B (G Gp p Pp p Xp`(](``f~#uf11lp((`(v{`p`@p`@pp`(`pp  n ? @IhH99X\PURGENEWFILE92077-1X456 REV.5020 891024 /SRC_92077/R6000/&D*1 9##DZ@LULOCK NEWTEMPS SHAREDENTRY DHEAD #`PURGENEWFILE ||E}.DAD.DCO.ENTR DOPURGE FREESPACE GETDIRINFO NEWPACK PUTDIRINFODELETEGDIRDIRADDRESSOFWDFILENEWSCAN CHARSMATCH RPERROR MOVE2 LUOFTESTACCESSCAPCHECKFILEOPENFINDNEWFILE |g==0("p`(`("`p($+p`(0(3p 8 `@(A`|?99p( E p`(J( O( W á]  p`(b( (k`p(n (s`p(v TTCx((({(~(~~ġ@hJ@   ǡ ƈT663:J ( ((p`((p(6&&}W 0rDIR 7&@@_C77XǘqDOPURGE 92077-1X456 REV.5000 860226 /SRC_92077/R6000/&D*1 7BF @LULOCK SHAREDENTRY  . DOPURGE   == .ENTR FREESPACE SEQUENTIAL GETEXTENT PUTDIRINFOGETEXTENTBLOCKMOVE2 LUOFGETDIRINFO=~~ ::A  kl pp `@j(%`pp `  `p`p`n0op3 kl8<p D ~OOE$$(h`n0mpPklp X(g ](a`pf(R(>(#O>j  @v77Xi4RPERROR 92077-1X456 REV.2326 830615 /SRC_92077/R6000/&D*1 7 > RPERROR   !!qK.DIN.ENTR RP.CK BLOCKTODISC GETDISCINFO !EEo '' p @ 0 0p*3 (.`2p` E 2 @88X&.OLDRPERROR92077-1X456 REV.2540 850727 /SRC_92077/R6000/&D*1 8OLDRPERROR z.ENTR RPERROR DISCTOBLOCK GETDISCINFO FF""A@p*-p`,@*h+H*p(x)!()%p`F 7+? @yꘪ88X5NEWUNPURGE92077-1X456 REV.5270 891205 /SRC_92077/R6000/&D*1 8C,INPARMS JINSTRING DHEAD sNEWUNPURGEmmi.DCOFINISHPUTDIRINFOGETDIRINFOALLOCATESPACE GETEXTENT GETEXTENTBLOCK MOVE2 TESTSPACE SEQUENTIAL TESTACCESSFINDNEWFILE CAPCHECKLUOFERRFINISH LOSEONOLD m~~ح::p@ @p!@p$H/H(44 ;   p`(BB~A55 E!(L`p`$p(Np T"$( Z&B@FpfB (` P(m(ᡪ q<H FHQv88(y((p D(`(`p D(({BF(`@ "$ &BpB 55c(p D(`(`pD(5hh E**` 0p B (@ ` 0p @ `p @ (h!!_W @. !@ĺz88X uNEWRENAME 92077-1X456 REV.2540 850722 /SRC_92077/R6000/&D*1 8B^INPARMS SINSTRINGSNEWRENAME CC V EXEC ERRFINISH CLOSEOLDFILERENAMEOLDFILE NAMRCASEFOLDOPENOLDFILE NEWTOOLDCHECK RENAMENEWFILE Cz 88pigp`pi@`((["@mJp`(R`R(Kp`Ep1g7@ g`EP(=`tp(M`r[[3>((CPr(D`sp(MIJ@rp(M`qp QJk(X`pP(V(X`p`0p aonn d[g @@@@@-@5::XRENAMENEWFILE 92077-1X456 REV.5020 891024 /SRC_92077/R6000/&D*1 :&&DzNEWTEMPS SHAREDENTRY FREEDIRENTRYDHEAD &$kRENAMENEWFILE  6 .DCO.ENTR ADDGDIR PUTDIRINFOGETEXTENTBLOCKGETDIRINFOMOVE2 NEWSCAN MOVEWORDS DELETEGDIRNEWPACK CHARSMATCHFMPLASTFILENAME TRIMLEN FMPPARSENAME GLOBALDIRLOC LUOFTESTACCESSCAPCHECKS$ LOSEONOLD FINDNEWFILE FILEOPEN<<A ((0(5`(7>(`p Kp ~~O88W `(\(c 0(c`(p (o`((`( x`(|(~`(~ZZ++(`p P (`(   Zh>>((šp (`((  J q99(((`( ` (  ((  ((( `0 p`h (-`&dd)++  p J  ( ;A J  (`J (Z B d~~SmT99Y(``  `plp t  (   (~}}88       `p(np  (ȡ}ggj..((ӡ   J (   J ((((p`g88}""W @DIR   ,-/8@|Л99XiIuNEWCREATEDIR92077-1X456 REV.5000 870319 /SRC_92077/R6000/&D*1 9<<GXD LUINFO SHAREDENTRY !CALLERIDDHEAD FATHERFREEDIRENTRYqINSTRING<L NEWCREATEDIR}}s .DCO.CPM.CBTFINISHFREESPACE PUTDIRINFOADDGDIR NEWPACK TRIMLEN MOVE2 CREATEFILEENTRY FMPBUILDNAMEALLOCATEDIR GETDISCINFO ERRFINISH TESTACCESSCAPCHECKFMPLASTFILENAME LUOF}00FINDNEWFILE FINDGDIR GETDDIR OKASCII CINDEXFMPPARSENAMECASEFOLD0  GG p S` pSQW O  U!OcpD(Oa0D(00t3WpDA`Xh`W(>D(EEtPSQ[fOffU~~{Q??SQ( XO(]]t`U(`( h h (q((`lp`mpF`@@e f(((88F(us( pOM~//ܻ(r hK fMSffMp(/~~Ln:: fMSffMfp`(r(`qP( (Lj0( ʨ p BkKQOު]jp~~~==`(`@pAQ((`QpQ(`ppOKISO[fYlo((YSjI~XXm((!jo$Q(B,OIf0OOp`(B:njj?IB XNNaG.. DIR W DIR / .  @ B @ @      /0&N@I{h;99X[dALLOCATEDIR 92077-1X456 REV.5000 860626 /SRC_92077/R6000/&D*1 9C5 TAG CALLERIDEPTR.ALLOCATEDIR  [[!.DAD .DDE.DCO.ENTR .SST.NFEX WRITEBLOCKCACHE MOVE2 .LBPR MOVEWORDS CLEAREMAZAPBUFFER SELECTCACHE FINISHALLOCATESPACE [x AAA     (%((((( 'p1  4 'p;J  x`p``@ `@~~L99h `@h `@p Y`@p `A `@pl`@h`@h '@ph@  x`~KKB!!h`@ `@h `@h `@p  'p  K!!   !@Q99XuMOUNTNEWDISC92077-1X456 REV.5270 910604 /SRC_92077/R6000/&D*1 933FzCALLERLEVEL CALLERIDNEWTEMPSSUPER_USER EPTR1LUINFO3/MOUNTNEWDISC .DAD..DIN$.DSB.DMP.DDE.DDI.DDIR .DNG.DCO-EXEC.ENTR .CPM.MBT .CBTFINISH/ADDTOCL ERRABORTMOUNTNEW,ADDGDIR +FINDGDIR*GETDIRINFO'NEWPACK )NEWSCAN (PUTDIRINFO&ALLOCATEDIR ֽ"WRITEBLOCKCACHE %EMACHANGEBITS #CLEAREMAZAPBUFFER SELECTCACHE !CREATEFILEENTRY FMPPACKSIZE MOVE2 ABORTMOUNTNEWDISFMPEXPANDSIZE MOVEWORDS CLEARBUFFER CAPCHECKRTNERRSECONOF OLDDIROKCHECKTAGREADBLOCKCACHEGETDISCINFO VOLUME HEADER Duplicate directory ~~,BBA,,,(7({,@@0(BBG,"+`"A({+(R(RR`+@p*`"*@h*@J i,`pp)~l|n<<p(` p w`h (((`p)`@ Pp(`@ p `@ p ,@@hH p@`( J,X*77`@ (`@  P (( p(`@ P ((`p`-(`)(`@ p͂p#Ҁ,#`((`@ p  D77(-(,#,#(-(,"(7}}i@@,(-(,( $(`(,`p#,#JJAA(9(9 @ (`}ȧ:>>p'JAA  J x&S,V` p]h`` p jm. rpv ~~x;;h'@h'@h'A@ JJ ((,`@ p `@ h'`@ p `@  `@ p~SS1&&!",,&#  $ % S@@ '% '%  'h'@h'@A$% $'",&,@@p`J(  @&::, '',(-'3,)9p#>,# (s*J'P,*VWWS-- +Z$(f,`p#e,#(m-l (m@.(3/y,"/~(zWWW&;;ROOT.DIR:::2:16:324$ 1 ?  ! "#ހW@S!q77Xi NEWMOUNT92077-1X456 REV.2326 830615 /SRC_92077/R6000/&D*1 7 A|INSTRING %NEWMOUNT MOUNTNEWDISC + p@;;X5ERRABORTMOUNTNEW92077-1X456 REV.5270 901008 /SRC_92077/R6000/&D*1 ; A:LUINFO ERRABORTMOUNTNEWABORTMOUNTNEWDIS.ENTR FINISHDELETEDIRSYY//(`p`p`p((@@2p/3/@1  @0 *-(Y0@Ӡ99XNEWDISMOUNT 92077-1X456 REV.5270 901008 /SRC_92077/R6000/&D*1 933F CALLERLEVEL CALLERIDSUPER_USERLUINFO6INSTRING EPTR3F"NEWDISMOUNT ~~3p.DCOEXEC .SST.NFEX FINISHTRIMLEN DELETEFROMCLZAPBUFFER DELETEDIRSMOVEWORDS RP.CK WDNAMEWDLUNAMEOFFILENEWDIRADDTOOLDFLAGWITHINNEWPACK CAPCHECKREADBLOCKCACHEGLOBALDIRLOC~!!fSECONOF GETALLOCINFOGETDISCINFO ISITMOUNTED !~~y"55"p"(p`(1! 79p`(pF   ` (O` p(ŀ(QpV ` ~*{W55p `@ (n`@  P (c(f p (n`@ P (l(n`p  p Jz   (V D.RTR: File open <<&   ` p( (<Ȱ D.RTR: Directory 88-    ` p(p(8fk D.RTR: prog RP'd ~~==  ` p(p`Ph (`@@p`@ 䠊"@p ((~**u @ , #*@ZAy::XB;NEWWORKINGDIR 92077-1X457 REV.6000 920529 /SRC_92077/R6000/&D*2 :BFATHERJINSTRINGvNEWWORKINGDIR $$.DCO.ENTR RETURNSTRINGWDNAMEFINISHGETDDIR $ii<=00A(! HJ7H(((`:P((59`p(' Hp,H3/3iRs1 /0/ @@ b8@W7u66X5OWDNAME92077-1X457 REV.6000 920529 /SRC_92077/R6000/&D*2 6 e WDNAME 22.ENTR .SBST .SST.SSTC .NFEX TRIMLEN BLANKSTRING DIRENTRYTONAME2__g 99A F FHF(- ('FNLHHA(-FNJH`N (1(@4FpBFD@BJ _hD / ::  @@_J77XPNEWSIZE 92077-1X457 REV.5020 891024 /SRC_92077/R6000/&D*2 7B^INPARMS 7INSTRING NEWSIZE  66a EXECERRFINISH GETDIRINFOOLDFILESIZE OPENOLDFILE NEWTOOLDCHECK FINDNEWFILE 6Gn88pI3GOI3Ip`pG `((3" K*p`(,)*5(2`NP(0(2`p(<`(<<35: MK? ELK5KmG @@c#99XN 9OLDFILESIZE 92077-1X457 REV.2326 830705 /SRC_92077/R6000/&D*2 9 AOLDENTRY ?OLDFILESIZE  ..$.DAD.DDI.ENTR FINDOLDFILE DOUBLESIZEOLDUNPACK GETOLDENTRY .MMl++A6 4-8(M4@pL;;X NEWSETWORKINGDIR92077-1X457 REV.5020 891024 /SRC_92077/R6000/&D*2 ;C̎  SHAREDENTRY FATHERHINSTRINGQNEWSETWORKINGDIRT((T;EXEC.ENTR .LBT.CBTSETDDIR CAPCHECK LUOF NEWPACK ERRFINISH FINDNEWFILE FMPBUILDNAMEFINISHTRIMLEN FMPPARSENAMETJJAhyP(((a x~|z#z(((+ps`h(6s(==Hx~|zSx FFtQ""p W Zps as (k fjA(qqF00RtDIR DIR @ @@  00@k99XZNEWFILENAME 92077-1X457 REV.2440 840725 /SRC_92077/R6000/&D*2 9 A#INSTRING NEWFILENAME RETURNSTRINGERRFINISH NAMEOFFILECHECKDS 229Gp p2 > @  @!88XNAMEOFFILE92077-1X457 REV.2540 851004 /SRC_92077/R6000/&D*2 8Bo SHAREDENTRY CL5NAMEOFFILE ||S.DCO.ENTR .CPM.SBST .SST.SSTC .NFEX .MBTFMPBUILDNAMEINTTODECIMALOLDFILESIZE FMPPACKSIZE GETOLDENTRY MC_RESERVEDISC TRIMLEN DIRENTRYTONAMEGLOBALDIRLOCNEWSCAN GETDIRINFO|OLDDIRADDTONEWOLDLU g2EEA22p+>+(p1F2/L/R/-p1`1(X`15-Bc+(h(v(vh` A  D   H  ( [wCC{- ~p,`,( H  (`,pD J   p3 (+22p`+p88Xp*`*@(`*@P+(Lj(`@*@Ap((8PP%%A((  (`@*p*(4(p)(`p)3 ) p1(VP22x /  P P @ P ?ZZA0 2@_~::XDIRENTRYTONAME92077-1X457 REV.5000 860617 /SRC_92077/R6000/&D*2 : A] TEMPSPACE  'DIRENTRYTONAME TT J .DCO.ENTR .SBST .SST .SSTC .INDX .NFEX FINISH READBLOCK TRIMLEN BLANKSTRING MOVE2 CHECKTAGGETDIRINFOLUOFT~~$MMA$%&A9$p"@$C(`P(J(N Q(XH(h [p#A A# A @ ~KKq,, ({ z" (J`@pA( AA(@'(K((\ /  @ >@ (@yҘ::XůNEWPROTECTION 92077-1X457 REV.5020 891024 /SRC_92077/R6000/&D*2 :$$DCDHEAD INPARMS  SHAREDENTRY 5INSTRING$ ~NEWPROTECTION DD E EXEC ERRFINISH OPENOLDFILE NEWTOOLDCHECK FINDNEWFILE GETDIRINFONEWPACK GLOBALDIRLOCDECIMALTOINTD;;p p`((433%3`p`$0p`p( 3?3p`FA88p G `(K(s Q *p`(Y`2p(h`P(](bpp(h`P(f(h`p`0p`0pp(`(`88yp`$0p `(`A0p 8x @0 @-;;XENEWSETPROTECTION92077-1X457 REV.5020 891024 /SRC_92077/R6000/&D*2 ;++EwLINSTRING INPARMS SUPER_USERDHEAD CALLERID+V NEWSETPROTECTIONTT ..INDX UPDATEPROTFMPRWBITS FINISH ERRFINISH LOSEONOLD FINDNEWFILE GETDIRINFONEWPACK GLOBALDIRLOCDECIMALTOINTCASEFOLDT 7US ~~v! == p p`((4# +1&`6p(H?&p E  ~8F99H`P (Q` (QQ`&pF`&pG`&pHcpIgpJkpKp`pp`p`@p`@pII(`@hH88(t88(p`I @Jp`K&@p&$ I (G -- p<pH pDp@ @pEH( -@px88X%YUPDATEPROT92077-1X457 REV.5000 860221 /SRC_92077/R6000/&D*2 8p UPDATEPROT''.ENTR PUTDIRINFOGETDIRINFOLUOFNEWPACK CHARSMATCH'~~5G@@$p((`Xp(`Wp00V#RU`S@pL+LNT(J0hPHpLxM:LMQ@RR`@p~EJRR uN DIR  @Ľ99XyRNEWSETOWNER 92077-1X457 REV.5020 891024 /SRC_92077/R6000/&D*2 9++Eۢ INPARMS DHEAD SUPER_USERCALLERID kINSTRING+8NEWSETOWNER \\ 'PUTDIRINFOLUOFNEWPACK FINISHERRFINISH LOSEONOLD FINDNEWFILE FMPBUILDNAMETRIMLEN FMPPARSENAMEGETDIRINFOGLOBALDIRLOCDECIMALTOINT\~~CEEp xp`((%$z(W0x~|z3z(88 Cx~|z Nx~^^BJ++ "p Tx W`P(``(```(mfpumu $s ^((v DIR @  @ ((@y99XfJNEWTRUNCATE 92077-1X457 REV.2540 851004 /SRC_92077/R6000/&D*2 9 AINSTRING 2NEWTRUNCATE `` .DAD .DCOTRUNCATEOLDFILE DOUBLESIZE GETOLDENTRY MC_RESERVEDISCERRFINISH TRUNCATENEWFILE FMPPACKSIZE FMPEXPANDSIZE DIRADDOKOLDLU CHECKDS `~~x66p (&ppGG!p%(E I@x / 3 ~--m\8 < J (@(EE- JI? @me%;;X9TRUNCATENEWFILE 92077-1X457 REV.5010 880122 /SRC_92077/R6000/&D*2 ;CƠ@LULOCKNEWTEMPS SHAREDENTRY w TRUNCATENEWFILE  oo۹ .DAD .DSB.DDIR .DCO.ENTR PUTDIRINFOMOVE2 FREESPACE FMPEXPANDSIZE GETEXTENT GETEXTENTBLOCKFREESPACED FMPPACKSIZE SEQUENTIALLUOFGETDIRINFOOLDDIRADDTONEWo 88 p p" `p`@(.`p` 25p`(@`(@(,`}}lA88p E A   A (r(rW A   ` pꡡgl   `pp}}ty;;(p(   ((`@p`@@ J    J  (`wwP66(`p(w`( `(  G  ܪ h@ (,w/ @88X-NEWSETEOF 92077-1X457 REV.2326 830705 /SRC_92077/R6000/&D*2 8 A2INSTRING XNEWSETEOF ::-; PUTDIRINFODCBPOSITION GETDIRINFOOLDDIRADDTONEWERRFINISH DIRADDOKOLDLU CHECKDS :hh))p ((p+,",. (+,h + @Z77XSBNEWINFO 92077-1X457 REV.5000 861021 /SRC_92077/R6000/&D*2 7BFATHER#INSTRING %((NEWINFO  AA ֐ EXEC CLEARBUFFER GETOLDENTRY MC_RESERVEDISCFILEOPENGETDIRINFOOLDDIRADDTONEWOLDLU CHECKDS A7j66p  (!:Ap"`"=i:?! @W4u::XNEWSETDIRINFO 92077-1X457 REV.5000 861014 /SRC_92077/R6000/&D*2 : A@INSTRING tNEWSETDIRINFO XX  .INDX PUTDIRINFO DCBPOSITION SEQUENTIAL UPDATEPROT MOVE2 GETDIRINFOOLDDIRADDTONEWERRFINISH DIRADDOKOLDLU CHECKDS CASEFOLDX}}44p { (wp`p% `(, ,2`(3 34`(: :}}}P8446`(R`(R {}(L`&  p R `(Y` p (`P(](`` 0p `(q h!(q o}''cl :<`p%w ';z G 00 @}✢99X\.NEWDIRFIELD 92077-1X457 REV.5020 891024 /SRC_92077/R6000/&D*2 9B^INPARMS $INSTRINGNEWDIRFIELD ))l4EXEC.ENTR GETDIRINFOERRFINISH LOSEONOLD FINDNEWFILE )MM&&A ) '-) )p' "A+%,+"+Mb' @ @88XANEWDIRINFO92077-1X457 REV.6000 920529 /SRC_92077/R6000/&D*2 8B^INPARMS CINSTRINGaNEWDIRINFO-- EXECLUOF FINISHGETDIRINFOERRFINISH LOSEONOLD FINDNEWFILE -oo"q44p9A`@p` (`?@p79A9p7!'A!>;-=<!;0Ap6 46o7 @ @99XpNEWOPENFILES92077-1X457 REV.2326 830705 /SRC_92077/R6000/&D*2 9 A INSTRING QNEWOPENFILESNN .DAD.DSB .DDE.DCOEXEC .CPM FLAGWITHINNEWPACK GETDIRINFO NEWUNPACK LUOFFINISHOLDDIRADDTONEWCHECKDS N88p J (!!$p+ 1 p9`p`@p v@==(D(m J h@   Xġ^ A(j`p (;`@h@ `@h@yy }::J   A(p`h@ x`@@h@ ((`(`p(;p(y2DIR @Gf88XAFLAGWITHIN92077-1X457 REV.2326 830705 /SRC_92077/R6000/&D*2 8BMEM FLAGPTRS_FLAGWITHIN}.DCO.ENTR FILEOPENNEXTITEMff"$88p>`@=p<<@p`(:(%((+(`@@=4(f=@& D66Xw MAILCL92077-1X457 REV.2326 830705 /SRC_92077/R6000/&D*2 6A&CL aMAILCL kEXEC+ p     @Օ99Xy9NEWERRORMSG 92077-1X457 REV.5000 860603 /SRC_92077/R6000/&D*2 9 AINSTRING ,NEWERRORMSG &&.CPM.SSTC .NFEX RETURNSTRINGINTTODECIMALFINISH&AAEp8((J7( (6/A153/1A''"(warning -250) FMP error > D%'@@ 99Xc+-INITIALMOUNT92077-1X457 REV.2326 830705 /SRC_92077/R6000/&D*2 9B`CLOKDISCS eINITIALMOUNT MOUNTNEWDISC TT''p`(!p`@)( `,@@)(`@)p((**`+@p( (&&**T)@=\88X#"LOSEONOLD 92077-1X457 REV.2340 830816 /SRC_92077/R6000/&D*2 8 ASHAREDENTRY dLOSEONOLD {F.ENTR OPENOLDFILE NEWTOOLDCHECK CCoZAp`((! (` C   @F88X%rINITIALIZE92077-1X457 REV.5000 860924 /SRC_92077/R6000/&D*2 8[[J4xSCRATCHNAME CALLERLEVEL DEADSCRATCHFILE SUPER_USER OLDFLAG CALLERIDFATHERREQUEST INPARMS INSTRING[dINITIALIZExx"@EXECD_STATS FINISHSECPROGCPLV PROGISSUPER USERISSUPER GETCALLERID SETOPENFILEBIT REMOVEDEADFLAGS OPENFILEBIT MC_OLDFLAG GETSEQUENCENUM.IDNA GETFATHERIDNUMCLEARBUFFER RMPAR xg[44p Apqlppxpp  (0p  # &(. *.l15pgww;61190gpAppipP(O(Xp`oP(WWm(a`np`kP(aameiwi z@ (a88X ERRFINISH 92077-1X457 REV.2326 830705 /SRC_92077/R6000/&D*2 8TERRFINISH  .ENTR FINISH  A(  @66X=GFINISH92077-1X457 REV.6000 900628 /SRC_92077/R6000/&D*2 6COOKDISCS STARTINGLOC OUTPARMS l FINISH ++;EXEC.ENTR D_STATS PRTNDTACH MC_RELEASEDISCZAPBUFFER +ppG66App`Cp?`@@((B88?(`(%%F'*-`E(1(44D 8ABA=DBA p@@Mil)77XBDONEWREQ92077-1X457 REV.6000 920529 /SRC_92077/R6000/&D*2 7BCALLERLEVEL INPARMS  DONEWREQ }}.ARTN "NEWDIRINFOFINISH!NEWDCBPURGE NEWOPENTEMP NEWWORKINGDIR NEWSETWORKINGDIRNEWOPENROOT MAILCLNEWDIRFIELD NEWOPENFILESNEWSETPROTECTIONNEWPROTECTION NEWTRUNCATE NEWSETEOF NEWRENAME }ss<NEWERRORMSG NEWFILENAME NEWSETDIRINFO NEWINFO NEWSIZE NEWSETOWNER NEWCREATEDIR NEWDISMOUNT NEWMOUNT NEWPOSITION NEWUNPURGE NEWPURGENEWCLOSENEWOPEN CAPCHECKD_DEBUG s5HHpP((  `p`稈P((`p`A@CGKOSW[_chmrw{ߡCE~~H==I(F M(F Q(F U(F Y(F ](Fa(Ff(Fk(Fp(Fu(Fy(F~(F(F~WW`U))(F(F(F(F(F(F(F(F(F(FWnnܥ55(F(F(F(F(F(F(F (F!(F(F(F"(Fn @XEw88X!SEQUENTIAL92077-1X458 REV.2326 830316 /SRC_92077/R5270/&D*3 8 SEQUENTIAL  .S.ENTR .CPM 11 AA( ( p(`((p(p`1  @6::Xe4GETEXTENTBLOCK92077-1X458 REV.2326 830316 /SRC_92077/R5270/&D*3 :GETEXTENTBLOCK i.DAD.ENTR GETDIRINFOMOVE2 TT...((`1@p//(p(-@`* A+23p`T 41 @,88X/=((GETEXTENT 92077-1X458 REV.2326 830316 /SRC_92077/R5270/&D*3 8GETEXTENT  u.DCO.ENTR .CPMMOVE2 iio55A@p7<((p(4(`:(`;@7p6#68A(*(-(-p(4`:@7p`i8@88X&GETDIRINFO92077-1X458 REV.5000 860617 /SRC_92077/R5270/&D*3 8 A^TEMPSPACE WGETDIRINFO@.ENTR MOVEWORDS READBLOCK NEWUNPACK ;;a%`%@$p#!#; j$ @ڸx88X',PUTDIRINFO92077-1X458 REV.5000 860617 /SRC_92077/R5270/&D*3 8 A^TEMPSPACE `PUTDIRINFO$$4.ENTR WRITEBLOCKMOVEWORDS READBLOCK NEWUNPACK $GG#%%+`%@*p)!)'+G p* @$CQ88XWTESTACCESS92077-1X458 REV.5000 860221 /SRC_92077/R5270/&D*3 8BSUPER_USERCALLERID  TESTACCESS :.ENTR FMPRWBITS CH@@Ap`(` `((Sp(2h (-Sp(2ӈSp50p:pR`Rp`P(Q`%%JD(I`Vp(K`Up(Q`T@p(% S12 @77X\DIRADDOK92077-1X458 REV.2326 830316 /SRC_92077/R5270/&D*3 7 A%FATHER ,DIRADDOK  .ENTR FILEOPENOLDDIRADDTONEW66y A p`(`p(`p`6 b @Fbe"77XdCHECKTAG92077-1X458 REV.2326 830316 /SRC_92077/R5270/&D*3 7 A}TAG CHECKTAG  .ENTR 22AP( ( @P((p``p(2 ' @w777X$CHECKDS 92077-1X458 REV.2326 830316 /SRC_92077/R5270/&D*3 7 zCHECKDS  .ENTR FINISH A(   % @';77XC%NEWPACK 92077-1X458 REV.2326 830316 /SRC_92077/R5270/&D*3 7 NEWPACK  K.DAD.ENTR 33 @`* $B A@ 3 !$? @Ǯ88X"NEWUNPACK 92077-1X458 REV.2326 830316 /SRC_92077/R5270/&D*3 8bNEWUNPACK  K^.ENTR LUOF //B @@B/  @55X= LUOF92077-1X458 REV.2326 830316 /SRC_92077/R5270/&D*3 5 %LUOF  .ENTR z A p`  ? @99Xi(SGLOBALDIRLOC92077-1X458 REV.5270 900627 /SRC_92077/R5270/&D*3 9B:TEMPSPACE LUINFOHGLOBALDIRLOC 77 ..DDI.DCO.ENTR FINISH MOVE2 NEWPACK READTRACK GETDISCINFO ISITMOUNTED 7~~cBBAp`(;RJN(&`Qp(;`@L4P 8"(Eh@(8(H H~ #CG(8 LVOLU@Fe99Xx*ISITMOUNTED 92077-1X458 REV.5270 900627 /SRC_92077/R5270/&D*3 9 ALUINFO 7ISITMOUNTED  .ENTR IIΉ##A&( `)p("@@%0(`(p("@@%( `'p("p`If%?"*@ 99XrIDIRADDRESSOF92077-1X458 REV.2326 830316 /SRC_92077/R5270/&D*3 9BGDIRPTRSMEM >DIRADDRESSOF ''.ENTR MOVE2 FINDGDIRFINDITEMENCRYPTNAME CASEFOLD'{{>>A `@DpCCHGp`(0`@DpC)CH(0/p`(<`@@DpC;C(@E{D@77XC)ADDGDIR 92077-1X458 REV.2326 830316 /SRC_92077/R5270/&D*3 7BGDIRPTRSMEM  ADDGDIR   .ENTR ADDITEM ENCRYPTNAME CASEFOLDDD!!p `@%p$$('(#`&p`(!D%)@:Y88XDELETEGDIR92077-1X458 REV.2326 830316 /SRC_92077/R5270/&D*3 8BGDIRPTRSMEM WDELETEGDIRHb.ENTR DELETEITEMFINDGDIR33cA p`(`@p3  @C77XǗNFINDGDIR92077-1X458 REV.2326 830316 /SRC_92077/R5270/&D*3 7BGDIRPTRSMEM  ' FINDGDIR  ,,s.ENTR .CBTGETDIRINFOMOVE2 FINDITEMENCRYPTNAME CASEFOLD,ssj :: xGFF p `@JpE'E M p ` (-`  `@ @JpE5E;LKA`IhG F(C(D(D(+(sSF  @88X7DELETEDIRS92077-1X458 REV.2326 830316 /SRC_92077/R5270/&D*3 8BGDIRPTRSMEM ]DELETEDIRS.ENTR DELETEITEMLUOFMOVE2 NEXTITEMdd//Ap`@4p336p`(1`@@4p3 3#(&(0`@4p30365( d 4 @6y;;Xu>REMOVEDEADFLAGS 92077-1X458 REV.5000 860226 /SRC_92077/R5270/&D*3 ;BMEM FLAGPTRS8REMOVEDEADFLAGS %%DOPURGE REMOVEOPENFLAGOPENFILEBIT .IDNA NEXTITEM%nnv33pp`@:p99=p`(7`@@:p`;p9$9p((6.`<P<(3(66( n&:@GfU77X˅=FILEOPEN92077-1X458 REV.5000 860502 /SRC_92077/R5270/&D*3 7 )FILEOPEN  $$OZ.ENTR REMOVEOPENFLAGOPENFILEBIT .IDNA FINDFLAG$mm>55>9pp`("p `"P (( > " @}O77XeFINDFLAG92077-1X458 REV.2326 830316 /SRC_92077/R5270/&D*3 7BMEM FLAGPTRS FINDFLAG  .ENTR FINDITEM;;A`@pp`(`@@`;  @Qp{99X~RSETOPENFLAG 92077-1X458 REV.5000 860226 /SRC_92077/R5270/&D*3 922Fn ALULOCKSUPER_USERCALLERIDMEM FLAGCOUNT FLAGPTRS2SETOPENFLAG Z=.ENTR FINISHADDITEM LUOF~~'6;;A p`@Kp`(QpP(("`0Np`((`0Np`@LpI3IPMp`(::O` p `@K~0? h pI`  @ I/K @+@DWc::Xa6REMOVEOPENFLAG92077-1X458 REV.5000 860226 /SRC_92077/R5270/&D*3 :!!DMEM ALULOCKFLAGCOUNT FLAGPTRS!REMOVEOPENFLAG.ENTR LUOFDELETEITEMeeK..`@3p0054`((@pp`@2p`@(.`@2Hp0` @ 0e2@G=::Xz2((OLDDIRADDTONEW92077-1X458 REV.2326 830316 /SRC_92077/R5270/&D*3 :ٶ OLDDIRADDTONEWo.ENTR NEWPACK DISCTOBLOCK GETDISCINFO JJm'''1p0p/p@p.&., J /? @24::X[,NEWDIRADDTOOLD92077-1X458 REV.2326 830316 /SRC_92077/R5270/&D*3 : NEWDIRADDTOOLDM.ENTR BLOCKTODISC GETDISCINFO NEWUNPACK BBs##@p* *`.p*`&@*@ B@ )99XRETURNSTRING92077-1X458 REV.2326 830316 /SRC_92077/R5270/&D*3 9 A^TEMPSPACE ^RETURNSTRINGEXEC.ENTR .SST.NFEX ))QAA`p)I P@`q1::X=HALLOCATESPACE 92077-1X458 REV.5000 860624 /SRC_92077/R5270/&D*3 : Az@LULOCK p ALLOCATESPACE  --|.ENTR UPDATEBITMAPEMAFINDBITS READBITMAPFMPEXPANDSIZE FINISH-cc ::A  @E(G %  (1.(5 `(AA F c E @Kje88X9FREESPACE 92077-1X458 REV.5010 880122 /SRC_92077/R5270/&D*3 8 FREESPACE FREESPACED .ENTR UPDATEBITMAPREADBITMAPFMPEXPANDSIZE SS$00A(`p `p`p (" (&-6 8 S 8 @T88X+&TESTSPACE 92077-1X458 REV.5000 860617 /SRC_92077/R5270/&D*3 8 TESTSPACE   .ENTR EMACHECKBITSREADBITMAPFMPEXPANDSIZE 55Ɉ    #  p` 5@!C@88X<READBITMAP92077-1X458 REV.5000 860617 /SRC_92077/R5270/&D*3 8 A{EPTR NREADBITMAP**.DAD.DDE.DDI.DDIR .ENTR READBLOCKCACHEGETALLOCINFO*PPR//A@2@286`;:p,P6@A99Xm<aUPDATEBITMAP92077-1X458 REV.5000 870415 /SRC_92077/R5270/&D*3 9d UPDATEBITMAP 66 .DAD.DDE.DDI.DDIR .ENTR .IRES .DLDE WRITEBLOCKCACHE EMACHANGEBITS 6{{KNNAAAZX\Z    @ \x`_p  T @T\x`@@`_ph^hA@ R {X @tH88X READBLOCK 92077-1X458 REV.5000 860627 /SRC_92077/R5270/&D*3 8C{IqCACHE EPTRLASTREADNREADBLOCK READBLOCKCACHEHH Qh.DAD .DSB .DDE.DCO.ENTR ACCESSDISC.LBPR MOVEWORDS ACCESSCACHE MOVEFROMEMA SELECTCACHE FINISHH}}0DD(A `p` p` p`p( pp($p`p(**0`(4(|J(:(|G@}iH@@Gh@AA(V(|`(g(`(f(fJ x(| Gxh@ z(e`( pJJh{ p`p` @p  x(p(eJ x@v 688X4WRITEBLOCK92077-1X458 REV.5000 860722 /SRC_92077/R5270/&D*3 8B EPTRLASTREADWRITEBLOCKWRITEBLOCKCACHE ;; .DAD.DSB.DCO.ENTR .CPM ACCESSDISC ACCESSCACHE MOVETOEMA FINISHSELECTCACHE ;~~CC( `p` p` p`p($!p(&`p(,,`(0(m(6(mGGh@@~zz޹FBB(K(m`(mGx`@pA(a(aphJ@  m`( @  ~( zhC@\{88X]ACCESSDISC92077-1X458 REV.5000 870415 /SRC_92077/R5270/&D*3 8C. OUTPARMS FATHEROKDISCS 7ACCESSDISC ACCESSCACHE  CC ?.DSB.DDI.DCO EXEC.ENTR FINISHD_STATS DISCWORD VMAIO .LKWD BLOCKTODISC GETDISCINFO C~~, GGA ()`p`p `p`p`p(,p(.`׊p3  ` (99֡? p `  @ɀG@A(W~~~TT>>(W` p [ p p`(t cp`p r (( v0p`p  (px`P (`Ӱ p ~``))ǀ`(` p ` px`Ӱ p `P((`P(((`P((`͈P((`̀P`p ((ʀ(`03SC1314IO@3Q88X(WINITCACHE 92077-1X458 Rev.5020 890206 /SRC_92077/R5270/&D*3 8BLASTREADqCACHE @INITCACHE /.DMP.DDI.CPMMOVE2 FINISHVMAST IBAAp `(VphA@QAOxT($($$VU(+(+`Upp`(HpM@hA@O`S@NpJDJ8zF8M(2N  @_99XYSELECTCACHE 92077-1X458 REV.5000 860627 /SRC_92077/R5270/&D*3 9C{@qCACHE EPTRLASTREAD$SELECTCACHE 11 .DAD.DDE.DCO.ENTR .CPM .LBPR MOVE2 MOVEWORDS CLEARBUFFER 1  ~~- EE `P((3`@pp`(3p`@p`@@88(!`p` hh@ `p ppp`~~~OJJ(p`@ (Y(`@pb`@@hh@A@ (zp(( (p((`~s-@@p`p(`@p`(`@ ((`p`@p88(Q`@   0(뀨`@p ׀`::@h`@p瘝   x (p: 9r  @b88XA<ZAPBUFFER 92077-1X458 REV.5000 860626 /SRC_92077/R5270/&D*3 8BqCACHE LASTREADzZAPBUFFER xB.ENTR CLEARBUFFER jj|p55A p`:@9p66;(4p`(4p8p6`:@906(0`:@9p606;888(j 9 @99Xi&LGETALLOCINFO92077-1X458 REV.2326 830316 /SRC_92077/R5270/&D*3 9 ALUINFO GGETALLOCINFOAb.DDI.DCO.ENTR FINISHGETDISCINFO jj{>>`(K`@H@@CAF('('(,D(>@@CJ@@CHJ@jC @99XvfGETDISCINFO 92077-1X458 REV.5020 890925 /SRC_92077/R5270/&D*3 9B%FATHER LUINFO!GETDISCINFO %%c.DNGEXEC.ENTR FINISH.ASKD .LKWD DISCWORD%~~p^??A`((V@](>pAe(V`׈`p`dPc(((V`bP(V/p@]p[9[@^H@@_(L~22D@@_(P@^@]Ya(U2V] (( ?8 @77Xg6CAPCHECK92077-1X458 REV.5020 890912 /SRC_92077/R5270/&D*3 7 ACALLERLEVEL CAPCHECK CAPCHECKRTNERR .ENTR .CPMFINISHSECWORDGETggI400p( A`p(p(`5p`(`4@p2!42pA(0(0`(-`3(003(g c3 @;77X- BAILOUT 92077-1X458 REV.2440 840806 /SRC_92077/R5270/&D*3 7 BAILOUT  .ENTR FINISH      @/ON66XJ/TAG/ 92077-1X458 REV.5000 860626 /SRC_92077/R5270/&D*3 6 A}TAG  @Onc77X(/LULOCK/92077-1X458 REV.5000 860626 /SRC_92077/R5270/&D*3 7 AvALULOCK YY* AAY@77X /CACHE/ 92077-1X458 REV.5000 860626 /SRC_92077/R5270/&D*3 7 AaqCACHE AP0``a0`@V[u66X|/EPTR/92077-1X458 REV.5000 860626 /SRC_92077/R5270/&D*3 6 A{EPTR @ @88X/LASTREAD/92077-1X458 REV.5000 860626 /SRC_92077/R5270/&D*3 8 AlLASTREAD P @<77X(/LUINFO/92077-1X458 REV.5000 860626 /SRC_92077/R5270/&D*3 7 A<LUINFO A```A````WW" `@@W@$199X:/FLAGCOUNT/ 92077-1X458 REV.5000 860626 /SRC_92077/R5270/&D*3 9 AVFLAGCOUNT 1p @Ts88X/GDIRPTRS/92077-1X458 REV.5000 860626 /SRC_92077/R5270/&D*3 8 A6GDIRPTRS KK665K@'+E88Xw/FLAGPTRS/92077-1X458 REV.5000 860626 /SRC_92077/R5270/&D*3 8 A 6FLAGPTRS KK665K@0977XYDOOLDREQ92077-1X459 REV.2440 841005 /SRC_92077/R5020/&D*4 7 A!GINPARMS DOOLDREQ zz.ARTN OLDMCFLAGSOLDMCRECOVEROLDALTERCLOLDMOUNTOLDDISMOUNT OLDWRITEBLOCK OLDPOSITION OLDWRITEDIR OLDCLEARLOCK OLDMCOPEN OLDSETLOCKOLDRENAME OLDCREATE OLDCLOSEFINISHOLDOPEN z@@p`(  (U()`Wp`&),/258;>AD&G&J&M&P&S)X+(U.(U1(U4(U 7(U :(U =(U @(U88GA C(U F(UI(UL(UO(UR(UU8 W @|377XԗYOLDOPEN 92077-1X459 REV.2540 850805 /SRC_92077/R5020/&D*4 7CREOPENFLAGINPARMS INSTRING OLDOPEN  ))EXEC.CPM RETURNPARMS OLDRPERRORERRFINISH OPENOLDFILE )~~T22p`( p( p`(p`Tp`Tp`p`p`p$p(+(/`Wp `SV~FF4(6(9`0Rpp `(@`Rp AFXWU`QpP NPFqQ?@;Z99XZOPENOLDFILE 92077-1X459 REV.5000 860509 /SRC_92077/R5020/&D*4 9++E REQUEST CALLERID SESSION OLDENTRYOLDFLAG +9OPENOLDFILE  @@ .ENTR MOVE2 MOVEWORDS PUTOLDENTRY OLDPURGECHECKOLDFLAGS FINDOLDFILE GETADISCSETUPDISCS@t >> `ր@ p`Հ@ p Јp ` ($`  (((,`0Ԉp(.`p3 9 p P(>(@`p ` (D("K~~ H77(3`(V`P(V`ވp ("` (_ p`P( (g(s`܈P(k(P (o(r` (( (` (`P(}(P ~ ( {::( ("` @h `ӈ@ p`ψ @ h`(`P(`h  X 0(`ψ@ hp `@(` (`--P (`ؐ (`@ h ("`׈p (-   @K77Xˋ-OLDCLOSE92077-1X459 REV.5000 860221 /SRC_92077/R5020/&D*4 7C| CALLERIDINPARMS 2INSTRING OLDCLOSE 33 RETURNPARMS ERRFINISH CLOSENEWFILEMOVE2 MOVEWORDS CLOSEOLDFILEOLDLU 3bbD((p(  p(p,+p" '**b * @'99X\CLOSEOLDFILE92077-1X459 REV.5000 860719 /SRC_92077/R5020/&D*4 9B=OLDENTRYOLDFLAG ]CLOSEOLDFILE aa - .DAD .DCO.ENTR TRUNCATEOLDFILE OLDPURGE PUTOLDENTRY DOUBLESIZE CHECKOLDFLAGS GETOLDENTRY READTRACKCACHEGETDISCINFO MC_RESERVEDISCOLDUNPACK aE>>p    # `&p+ /`p`p`@P(A88(3`p `  G p`@p~~LDD`@ p`(0(`(lA (i(k(kp(A (u(up( xA 0(p`( `(`p~(((0((?(j @3;;XTRUNCATEOLDFILE 92077-1X459 REV.2326 830616 /SRC_92077/R5020/&D*4 ;E TRUNCATEOLDFILE ^^Pe.DAD .DDIR .DCO.ENTR .DMOD UPDATENEXTTRACK GETOLDENTRY READTRACK PUTOLDENTRY SINGLESIZEDOUBLESIZEGETDISCINFO OLDUNPACK OLDPURGE^= HHA @ p ( A((#  `@p)A (.(0(0(6 ;`@pAhHh@h@wwQ??Ax`@hp@ @Ax`@p n  s  y `@P((`@P((   (wy @9W77X+OLDPURGE92077-1X459 REV.5000 860721 /SRC_92077/R5020/&D*4 7BLOWDIRTRACK DEADSCRATCHFILE  OLDPURGE `` {.ENTR UPDATENEXTTRACK GETOLDENTRY PREVIOUSENTRY READTRACKCACHEOLDUNPACK PUTOLDENTRY CLEARBUFFER FINDOLDFILE MOVEWORDS OLDPACK GETDISCINFO `~~)GGA@p).48`pCpp(UMTp`(i(``(H~~~aCCp f`p(H `(xP({(   `&p P({`( ~J&(k ((@/88X ?OLDCREATE 92077-1X459 REV.2326 830616 /SRC_92077/R5020/&D*4 8B^INPARMS INSTRINGNOLDCREATE --MEXECRETURNPARMS ERRFINISH CREATEOLDFILE MOVEWORDS SINGLESIZE-D//pP(`( p<`p`p`p`p`p`p% p)A/>= ;` 0 :p97  9:@ ,::XZECREATEOLDFILE 92077-1X459 REV.5020 900221 /SRC_92077/R5020/&D*4 :))DVOLDENTRYOLDFLAG FREEDIRENTRY DEADSCRATCHFILE )CREATEOLDFILE  {{.DCO.ENTR MOVEWORDS MOVE2 PUTOLDENTRY UPDATENEXTTRACK READTRACK OLDFREE DOUBLESIZEREADTRACKCACHEGETDISCINFO GETOLDENTRY SINGLESIZEFINDOLDFILE RESCAN KILLSCRATCHFILE GETADISC{SETUPDISCSOKASCII 99p&C+8.,(4`Dp` `:@p`9@p `,@p`(E`8p`(N `8@pp`7@~~ʺQ;;p`0@p`06p ^1p`(c(2i1p`(n(2P(r(u`Bp(2|11PA(`@p(2 0(?~55<  ?  (715vx88pP(( ((p`(p(c`((`5p (`pJ. (((`(c`>p( P(؊(`(}}A88`p`;p(`4@(p(`(=( (((((c<` p`;p(`3@(p}77p  `2@p(#(,`0@h8(27((,   (@I 99Xa\eOLDPOSITION 92077-1X459 REV.2326 830616 /SRC_92077/R5020/&D*4 9B^INSTRINGINPARMS DOLDPOSITION \\ 5Y.DMPRETURNPARMS ERRFINISH POSITIONNEWFILE GETDISCINFO MOVEWORDS MOVE2 FMPEXPANDSIZE GETDIRINFOOLDDIRADDTONEWPOSITIONOLDFILE OLDLU \66p`dP((p(`ap``p(#!p(Q'-_b0[hA@[ =MM֪= Bcp I P_p TYM{_?@;;XPOSITIONOLDFILE 92077-1X459 REV.2540 851004 /SRC_92077/R5020/&D*4 ; AOLDENTRY k POSITIONOLDFILE  44.ENTR .CPMFINDOLDFILE CLEARBUFFER GETOLDENTRY MC_RESERVEDISCOLDUNPACK 4`r ?? @ p` (" ((`p( `p` ( +/ pph(x P(:(=p(qA(D(D`pK~~H99 p`(R`p(3 A(V(b (_(_`p( (b`p(  (pi p p` `@p``@h`@ ~ d(  @999XVFINDOLDFILE 92077-1X459 REV.5000 860821 /SRC_92077/R5020/&D*4 911ELOWDIRTRACK FREEDIRENTRYOLDFLAG DEADSCRATCHFILE EPTR16FINDOLDFILE  ~~F .DAD .DDE.DCO.ENTR .CPMOLDPACK PUTOLDENTRY READTRACKCACHECHECKOLDFLAGS MOVEWORDS CHARSMATCHUPDATENEXTTRACK READTRACK OLDFREE DOUBLESIZE .LBPR OLDUNPACK OLDDIROKGETDISCINFO ~~~oDDAp%`&p`h (F8<(B`p` `@p(UOT(]`pp~*+Z==͉`@p`׈P(e(t`ֈA@p (t(t`@pP(h@   J x`p`(`((`@(`@p IIW3##A(((`p(@ `҈@h`ш@hHppIɴ==`@ǡ€ ((Ԉ0(`(ӈ((@`p(@(`h 0(`pǀ((`P((.`Ԉ@hH::((-`@(-`ڈ((`Ӏ@(`@hH`@hHphHp@Lj ((-0(-(`(,(-(@(`p++b15ǀ(Kh 0(I`pI+\F@@ǀ((`(]`@(]`@(|`@pǡdp`(tn`pt`(x(|`P(|(`@(]`A ܀(]~~>>@(]` ((](]`P(@pp(t 0(ˉ`((`p(`p(@(@~ J(@ )){M0: )@j*88XOLDRENAME 92077-1X459 REV.2340 830616 /SRC_92077/R5020/&D*4 8B_INPARMS INSTRINGAOLDRENAME  :RETURNPARMS ERRFINISH RENAMEOLDFILE OLDLU CCBp(p(`pC  @4So::XRENAMEOLDFILE 92077-1X459 REV.2540 850507 /SRC_92077/R5020/&D*4 :B=OLDENTRYOLDFLAG iRENAMEOLDFILE  00.ENTR FINDOLDFILE MOVEWORDS PUTOLDENTRY GETOLDENTRY MC_RESERVEDISC0ʴ >>A @ p @xp & P(3` (,(1`p ` (3`p  ;@` (D(H`p`p`I;;0P (O`p (.` (i` hHX 0hHX 0(i`p (.n ` (r(z`@p`@p~`// ((`p`p(ip (./lG ?@::XCHECKOLDFLAGS 92077-1X459 REV.2540 850930 /SRC_92077/R5020/&D*4 : APREOPENFLAG o CHECKOLDFLAGS  C.ENTR .CPMMOVEWORDS DEADOWNER /@@`@p`pp p`p`p`@p p`(-`p` p70(^(Q(Q`@hHp~~IG==`@pxQ`@ `(Z`p ((l`hX (l`p`(v`P(s(u`p(z88(`(`@h`p`~ R k @B>`;;X1KILLSCRATCHFILE 92077-1X459 REV.2326 830616 /SRC_92077/R5020/&D*4 ;BlOLDENTRYDEADSCRATCHFILE JKILLSCRATCHFILE ju.CPMOLDPURGEGETOLDENTRY __.,,p0( A0((( /((( ` (#( ,.( _ M.:0 @66X{RESCAN92077-1X459 REV.5020 900221 /SRC_92077/R5020/&D*4 6 oRESCAN  ##eY.DCO.ENTR .CPMMOD GETDISCINFO OLDUNPACK # JJ  }(s  $  ()(w` P (-(s@hp@ hAp?pzDPzA(G(P (N(N(w(O(s(sU`JJDW##@pp`(sp|`pzhzp`P(w`P(s88|(``p ` p (uJf}@88XV>OLDALTERCL92077-1X460 REV.2326 830811 /SRC_92077/R5010/&D*((5 8DBCLPTR CLINPARMS INSTRINGK OLDALTERCLmWRITECL MOVEWORDS GET1DISC55Ep `@p5  @[z99XF$>OLDCLEARLOCK92077-1X460 REV.5000 860626 /SRC_92077/R5010/&D*5 9CKBCLPTR CLINPARMS MOLDCLEARLOCKZAPBUFFER WRITECL MC_CLEARLOCKGET1DISCEEp #`p`@!hH!p"E ! @688Xc>OLDSETLOCK92077-1X460 REV.5000 860626 /SRC_92077/R5010/&D*5 8DrOLDFLAG BCLPTR CLINPARMS KOLDSETLOCK00*FINISH ZAPBUFFER WRITECL MC_SETLOCKFINDOLDFILE OLDDIROKGET1DISC0~~P<<p]`p`@[pXXp`(+&a](++b.`a@@[haHH[pX_pY`׀^,0YX`@[hH[~33BpX\pY`(0YX L O`(VV`3[ @qw7::XM>OLDWRITEBLOCK 92077-1X460 REV.5000 860619 /SRC_92077/R5010/&D*5 :''EgOLDFLAG BCLPTR CL INSTRINGINPARMS 'tOLDWRITEBLOCK ))&MOD WRITEBLOCKDISCTOBLOCK GETDISCINFO FINISHGET1DISC)||V==pI`p`@GHpE`HPE(  L%`@h@p`KApE6Ep= C J|@G @ֺz99X>>OLDMCRECOVER92077-1X460 REV.2540 851004 /SRC_92077/R5010/&D*5 9aOLDMCRECOVER S~MC_RCOVRESOURCES p@;Q99Xa>OLDWRITEDIR 92077-1X460 REV.5010 880330 /SRC_92077/R5010/&D*5 9--FIEPTRBCLPTR CL OLDFLAG INSTRINGINPARMS --OLDWRITEDIR ^^n.DAD.DIN.CPMMOD ZAPBUFFER WRITEBLOCKCACHE READBLOCKCACHE DISCTOBLOCK READTRACKCACHE GETDISCINFO FINISHGET1DISCWRITECL READTRACK ^*77p`(!`p`p'*`p`@׈p` P(9 9`@p ~~?::C`@p`p Q VY`@p`  gp`(ssh@~YYty,, `@p((Ap(`P((@p(a(a( (iY ?@-s88X2>OLDMCFLAGS92077-1X460 REV.2540 850508 /SRC_92077/R5010/&D*5 8LOLDMCFLAGS MC_CHANGEFLAGS p@B;`99Xi>OLDDISMOUNT 92077-1X460 REV.5000 870506 /SRC_92077/R5010/&D*5 9&&EeLUINFOBCLPTR CLINSTRINGINPARMS &2OLDDISMOUNT JJ `DFINISHADDTOCL ZAPBUFFER MC_DISMOUNT RP.CK LU2.3 FINDOLDFILE OLDDIROKDELETEFROMCLMOVEWORDS GET1DISCJ~~<<p`(`p`@wps s{#`@@upsxs`@v 3(V <|x(A`~p(^ D~ddO%C00(Vp Qzxx(V`}p(^ Y \`@@uhps@snq(]dWu @ں77X>OLDMOUNT92077-1X460 REV.5000 860626 /SRC_92077/R5010/&D*5 7%%E>LUINFOCL EPTR INSTRINGINPARMS % OLDMOUNT  N.DDE.CPM.IDLP ERRFINISH ADDTOCL FINISHSETUPDISCSREADTRACK MC_MOUNTOLDDIROKCLEARBUFFER WRITEBLOCKCACHE DISCTOBLOCK MC_BUILDSPECMOVEWORDS .LBPR CLEAREMA ZAPBUFFER SELECTCACHE MC_MOUNTCHECK GETDISCINFO MC_RESERVEDISC6::p`( `pJ((۠`@@̈0(%%(-(5(55` @@pp`(A@<<BH̀`&p Q T̀`&p [  x ` pg`֨@ pm`phA(pˡz`&~~J|66p` p@p8(t((`p `( ((`Ҫp `~((+p ɠ`@@hpɂ@([Q??  ?@#B88X >OLDMCOPEN 92077-1X460 REV.2540 850507 /SRC_92077/R5010/&D*5 8WOLDMCOPEN  MC_BACKUPOPEN p@b؁99Xq4>GETOLDENTRY 92077-1X460 REV.5000 860617 /SRC_92077/R5010/&D*5 9 A^TEMPSPACE / GETOLDENTRY 117.ENTR MOD MOVEWORDS READBLOCK NEWUNPACK OLDDIRADDTONEWOLDUNPACK 1HH=((#3'3@1p0.0 2 H 1 @h599Xz:>PUTOLDENTRY 92077-1X460 REV.5000 860617 /SRC_92077/R5010/&D*5 9 A^TEMPSPACE ? PUTOLDENTRY 88=.ENTR MOD WRITEBLOCKMOVEWORDS READBLOCK NEWUNPACK OLDDIRADDTONEWOLDUNPACK 8TTv..#8'8@7p6. 69 48 T 7 @(G88X3">OLDUNPACK 92077-1X460 REV.2326 830811 /SRC_92077/R5010/&D*5 8POLDUNPACK .ENTR 99d!@ &p$@9 ? @(GE77X'>OLDPACK 92077-1X460 REV.2326 830811 /SRC_92077/R5010/&D*5 7 OLDPACK  .ENTR ??d &%pӈ$p`-p"`&@"@? l$ @B66Xw>OLDLU 92077-1X460 REV.2326 830811 /SRC_92077/R5010/&D*5 6 ALUINFO DOLDLU   .ENTR '':A@@(p(p`' ? @oy88X"A >DOUBLESIZE92077-1X460 REV.2326 830811 /SRC_92077/R5010/&D*5 8DOUBLESIZE .DIN.DMP.DNG.ENTR ((A@(A@(  @Kj^88X*B">SINGLESIZE92077-1X460 REV.2326 830811 /SRC_92077/R5010/&D*5 8SINGLESIZE p.DAD.DDI.DNG.ENTR ++AA (AAHx(x`+h@b;;XTy>UPDATENEXTTRACK 92077-1X460 REV.5000 860719 /SRC_92077/R5010/&D*5 ;WUPDATENEXTTRACK DD &.DAD.DDIR .ENTR .DMOD PUTOLDENTRY GETOLDENTRY OLDPACK READTRACKCACHEDOUBLESIZEGETDISCINFO D~~_VKK"`v@@(C`u@th@nhsHxp?pnhA@xh@nAnxXx^r b`~ec p `w@p lr@099X}w#>RETURNPARMS 92077-1X460 REV.2326 830811 /SRC_92077/R5010/&D*5 9 AOUTPARMS *RETURNPARMS K.ENTR GETDISCINFO MOVE2 @@A p"p`(p !0 p@ "!? @E::XQ>PREVIOUSENTRY 92077-1X460 RE((V.2326 830811 /SRC_92077/R5010/&D*5 :) PREVIOUSENTRY  .ENTR OLDPACK GETDISCINFO OLDUNPACK ||< @@A  P(('`p`&@P@Op(A`N@p`MpJ`MPJ(?`L@p`(?`&@p`pG |1L?p@m-77X:>OLDFREE 92077-1X460 REV.2326 830811 /SRC_92077/R5010/&D*5 7 -OLDFREE   G.DSBR .ENTR READTRACK GETDISCINFO <<X##A   9` @@3`8h@A3< 8 @=b\"88X3:>DEADOWNER 92077-1X460 REV.5000 860514 /SRC_92077/R5010/&D*5 8wDEADOWNER  ##7.ENTR IXGET GETSEQUENCENUM.IDNA MC_CHECKCPU #ff11A (3(3p8pp`( `#p7P(*(`9@p606(3(p(f 7 @Ig88X 7E>READTRACK 92077-1X460 REV.5000 860617 /SRC_92077/R5010/&D*5 8V READTRACK READTRACKCACHE$$R.DDI.ENTR READBLOCK READBLOCKCACHEGETDISCINFO $ii::(A `p ` p`p`p(p(!`Dp&@B`(76(== i dB @<88XQ>SETUPDISCS92077-1X460 REV.5000 860221 /SRC_92077/R5010/&D*5 8((E CALLERIDSESSION TEMPSPACE BCLPTR CL( SETUPDISCS == .ENTR .XLA TAKEDISCS ADDRESSOF IXGET GTSCB $SCRN $SMST $SMLK $SMGP $SMID = ;;A p<<p<p=!=@`@@H@ELP(588>(`K@@DGPG(5 (5`GP (5 (1`Jp ((5`@C 88@(p ~ ;( MC  @$88X1I>TAKEDISCS 92077-1X460 REV.5010 881028 /SRC_92077/R5010/&D*5 8B BCLPTR CLlTAKEDISCS .ENTR ACCESSLUW==Ap`@D(?`@DFp(;($`H@@DE($(;p`(4pB`@CP(;88B (+`p`@Ch`G@p(  @ C@677Xj>GETADISC92077-1X460 REV.5010 880211 /SRC_92077/R5010/&D*5 7..FlnLUINFOOLDFLAG CALLERIDSESSION BCLPTR CL. 5 GETADISC  AA Ϩ.ENTR .CPM MC_CLEARLOCKMC_RELEASEDISC MC_CHECKLOCK MC_RESERVEDISC WRITECL DEADOWNER LULOCKEDA~~<<pp(#(#`(!(!`p` `@p`p`(`@@@(`(P`(P`~nn2iA22P(P`(P(P(`p(!S(}`@׈p`(`@@(0p`P(`0p rnOObSs##(}`@  z`p((`p(!  ((}(`( (!Ozp@Cb77X4>ADDTOCL 92077-1X460 REV.2326 830811 /SRC_92077/R5010/&D*5 7A&CL ADDTOCL  .ENTR WRITECL ^^..p`@0(`@0(`3@p( `@0`@0`2@@0`1@@0-^0@5T99XL5>DELETEFROMCL92077-1X460 REV.2326 830811 /SRC_92077/R5010/&D*5 9A&CLHDELETEFROMCL.ENTR WRITECL MOVEWORDS ^^U--Ap`@12(`@1(`3@p(`3@@1hH1p.`3@@4p0x/*./0,(^1@SrI66Xgw>READCL92077-1X460 REV.5000 850226 /SRC_92077/R5010/&D*5 6C=OKDISCS LUINFOCL 6&READCL WRITECL IRESETCL T STEXECFINISHDISCWORD.CLAD   ~~??p( p ` p(Rp`p(c`(-`(-"0p,vs(gpp`@n(P`p@@n(L`@nq@@oh ~NNiD((Hnpl@l`u@p(1`(a`(aA`ts(g(Qp(Qjr(QN'n ?@77X#:>OLDDIROK92077-1X460 REV.2326 830811 /SRC_92077/R5010/&D*5 7 .OLDDIROK  .ENTR .CPMREADTRACK UUU ,,   9`(5`(5`(5(5(5`(*(5`(.(5` (5p ` p (3U 9 @%77X%>GET1DISC92077-1X460 REV.2326 830811 /SRC_92077/R5010/&D*5 7 GET1DISC !!.ENTR ERRFINISH GETADISCSETUPDISCSFINISH!AA""($p`(#p!A # @88X>/OKDISCS/ 92077-1X460 REV.2340 830811 /SRC_92077/R5010/&D*5 8 A?OKDISCS 6 @V44X`D_DEBUG 92077-1X902 REV.5000 861126 &D*6::SRC_92077 4bbM%qCACHE @LULOCKEPTRLASTREADBCLPTR TAG LUINFOFLAGCOUNT MEMSIZE MEM FLAGPTRSGDIRPTRSBINSTRINGb D_DEBUG  << EXEC.ENTR .ARTN MIN0.IBST .IBCL FINISHD_STATS READCLRESETCL ZAPBUFFER <~~DDA`_P( (?`p`0037(?`()0=nu|(?/WVV(:`(=`ApD<WVD(:`(J`pDIWV~~~HAAD(:`@ p S^pp`(Z(m`p` @@P@LpDgQVD(i(:`5pA(V(:tWV O(:{WV U(:AWV](:WVY~~~a@@(:\M(:`XpDWVD(:`[P((?PM(:`A????(?(?p`NpH`@J(`@K 88H((:pp`NpG~]]r..`@J(p88G(`(M(:ZM(:`??????(?(?(:]??YM(:`Wpp`NpF`@J($`YPhXX 0(`@IhHIpDD($`@IhHIpDD88F(/WVV U(:`Tp(`(7""Z6(::S=BR(>",,sI   @BGE,@J **Xj/D_STATS_TABLE/ &D*6::SRC_92077 *A_D_STATS_TABLE @ **X/D_STATS_PARMS/ &D*6::SRC_92077 *AbD_STATS_PARMS   @ 44XD_STATS 92077-1X902 REV.5000 860326 &D*6::SRC_92077 4C MEM D_STATS_TABLE D_STATS_PARMS  ((D_STATS  PP j.ENTR .ARTN FINISHFREEMEM CLEARBUFFER TIMENOW D_STATS_SEND D_STATS_COUNT D_STATS_END D_STATS_START D_STATS_INITP~~@@`(`@@p`((`p0p`&(4<GRRq`(/.(22('`(::('`(E`@p~d1B99E('`(P`@p P('`(l`@p \`(`(k b `@p k(oo('`(` @p|6{ ((' ChEH-@؃77XUD_STATS_START 92077-1X902 REV.5000 860326 &D*6::SRC_92077 7!!CKINPARMS D_STATS_TABLE D_STATS_PARMS !D_STATS_START 8E.ENTR RESETTIMERBBXA pP( ( `p(`( p(`@pB  @~̝66XFeD_STATS_END 92077-1X902 REV.5000 860326 &D*6::SRC_92077 6B D_STATS_TABLE D_STATS_PARMS fD_STATS_END J.DAD.ENTR .CPMELAPSEDTIME ==A`c@p^`(Jbh 0p\d0\($( ``@@b@^ p\``@@b@^\``@@a@^p``DD?@@_@^pF`` @@a@^h`` @@_@^h( D_Z-@:77Xn=D_STATS_COUNT 92077-1X902 REV.5000 860326 &D*6::SRC_92077 7B D_STATS_TABLE D_STATS_PARMS D_STATS_COUNT  .T.ENTR .CPM jjn44A`:@p8`(J<h 0p6;06($( `9@@9@8 p6`9@@9@86( j 9- @zi66XE0D_STATS_INIT92077-1X902 REV.5000 860326 &D*6::SRC_92077 6''DP OUTPARMSMEM D_STATS_TABLE D_STATS_PARMS 'D_STATS_INIT%%eCLEARBUFFER TIMENOW ADDRESSOF FINISHALLOCATEMEM %ffm**p`@-p* *.p`(/@@p*@*p`@,p*(*.f,hG@ 66X D_STATS_SEND92077-1X902 REV.5000 860716 &D*6::SRC_92077 6!!C>OUTPARMSD_STATS_TABLE D_STATS_PARMS !~D_STATS_SEND5EXEC.ENTR MOVEWORDS CLEARBUFFER ;;l (`p`p;'-@*0H88X p';MCLIB 92077-1X825 REV.2540 <850813.1217> P92077/&MCLBN::PCO8{{MC_BACKUPOPEN MC_BUILDSPECMC_CHANGEFLAGSMC_CHECKCPU MC_CHECKLOCKMC_CLEARLOCKMC_DISMOUNT MC_GETRNMC_MOUNTMC_MOUNTCHECK MC_OLDFLAGMC_RCOVRESOURCES{""MC_RELEASEDISCMC_RESERVEDISCMC_SETLOCK"\ @2;;XLD.ERR 92570-16189 REV.6000 <901119.1520>/SRC_92570/R6000/DDERR.FTN;C)X NLLANGNUMBERINSTRINGINPARMS ssxD.ERR .NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN sEXEC!.CPM.ARTN .FION %.SBST &.SST".SSTC #.NFEX (DTACH 'PRTN$TRIMLEN D.ER000 NLREADREL D.ER291 D.ER041 D.ER013 D.ER012 D.ER011 D.ER010 D.ER009 D.ER008 D.ER007 D.ER006 bbD.ER005 D.ER004 D.ER003 D.ER002 D.ER001 INTTODECIMALNLLANGID DDSYSINFO DDGROUPTOID DDOWNERTOID DDIDTOGROUP DDIDTOOWNER DDCONNTOIDRMPAR b E% ~~V<<`P ((SPA((S`P(D`@)*.26:>(S-(A1(A 5(A 9(A =(A A`p(q~CD55`p`p `p Lp QpP (W(a_p(.`P (e(omp(.`P (s(}{~~xy77p(.`P ((p(.`P ((p(.`P ((p(.`P ((~566p(.`P ((p(.`P ((p(.`P (Պ(p(.`P ((~~9U77p(.`P ((p(.`P (( p(.`P ( (p(.`P ((%#~>>p(.- p`(RA!(6(>!(;(>`p(q`(H`p`p(S(R"J#$Qp(V`p(q`h pPP5q[,,x%D#&H#`Apo p't(w p p A( P<<U'' FMP er ror *P  %#) z<@U3s::X%DDCONNTOID92570-16189 REV.5000 860618 /SRC_92570/R6000/DDERR.FTN: A|INSTRING VDDCONNTOID""EXEC.ENTR GETFATHERIDNUM.IDNA GETCALLERID "EE^!!A`( `$ p!!p!!#""( E "% @@_;;X!DDIDTOOWNER 92570-16189 REV.5000 860606 /SRC_92570/R6000/DDERR.FTN; AINSTRING  DDIDTOOWNER ǸEXEC.ENTR IDTOOWNER BBj!!A`( ` (( $ %B@k;;X!DDIDTOGROUP 92570-16189 REV.5000 860606 /SRC_92570/R6000/DDERR.FTN; A INSTRING +DDIDTOGROUP EXEC.ENTR IDTOGROUP BBi!!A`( ` ((  %B@ۤd;;XDDOWNERTOID 92570-16189 REV.5000 860618 /SRC_92570/R6000/DDERR.FTN; AINSTRING *DDOWNERTOID EXEC.ENTR OWNERTOID AAJA`( `pA` ( $ %A@Mk;;X DDGROUPTOID 92570-16189 REV.5000 860618 /SRC_92570/R6000/DDERR.FTN; A INSTRING 6DDGROUPTOID EXEC.ENTR GROUPTOID ;;'A`( `p`(  %;@::XEDDSYSINFO 92570-16189 REV.5000 860702 /SRC_92570/R6000/DDERR.FTN: AINSTRING jDDSYSINFO ..D EXEC.ENTR .ARTN TIMENOW USNAM USNUM USERISSUPER .OPSY .S::A`( `DAp`!$(.`C( p(4p(4p(4&p(4+>`Bp(40 `@pA :A@D: ( $ %@ݣHHXp3-:$D.ER000 92570-16190 REV.6000 <920811.1206> FST 44Xk3;MLSHD 92084-12015 REV.2122 810723 P92084/&MLSHD::PCO4@ʧ44X*k;$LOC$ 92084-1X415 REV.2121 810723 P92084/&$LOC$::PCO4 $LOC$ "$LOD$ >{$LOC.CNOD .RRGR .SVRG EXECNNQ~**h X!(`h ( @hH(@pH ))""N@44XQ+k;$LOCD 92084-1X416 REV.2121 810723 P92084/&$LOCD::PCO4P$LOCD $LODD $$$LOC.CNOD .DML1 .DML2 .RRGR .SVRG EXEC$KK++A`h(  hHpHD '*')h(K@7zV:44Xj,k,;$LOCP 92084-1X417 REV.2121 810723 P92084/&$LOCP::PCO4h $LOCP  $LODP 9$LOC.CNOD .PADR .RRGR .SVRG EXECOO,,`h(  hHpH@H A(+ (*h (O@a@33X'xk9;$LOC92084-1X418 REV.2121 810723 P92084/&$LOC::PCO 3 T$LOC ' $LIBR $LIBX .CNOD &qCChHq(ir(ipkHsԀ@uplHt((pmHuԀ@mpppjhmDHd@l!(i8pnhp@Hd@k!(i8C(>hp@Hd@k!(i`j@l__mC55hnHk @@hHwԀrpo@np`v@j`v Ho8H8phHtpA! _@44Xk ;.RRGR 92084-1X419 REV.2121 810723 P92084/&RRGR::PCO 4.RRGR .SVRG 88Ǯp x pxPp`AA`h` h 8@֋K44Xwk;$UTHK 92084-1X420 REV.2121 810723 P92084/&UTHK::PCO 4W.#NOD .CNOD .PADR .PLU#   @!@44X>k!;$STAR 92084-1X421 REV.2121 811003 P92084/&STAR::PCO 4 9.STAR 9$CVT3 .#NOD .PADR .PLU# EXECbb`V>>@`($p'p(`(x-H.x5ĈA6 <)=H88(8'(A'; NODE #XXXXXX FAULTED XXXXXX TIMESb@ SPC 3 * * GET RESOURCE NUMBER TABLE ADDRESS*  GETRN NOP ENTRY.  JSB .XLA DEF $RNTA  JMP GETRN,I RETURN. *  * INCLUDE &DUMP $ HED DSINF: DUMP CONTENTS OF DS SAM BLOCK * (C) HEW$VCLIB::RTE_6:5:20:128 644 0 0 12000 5310707224 33764 $VCLIB::RTE_6:5:20:128 $۴$VCLIB +#+#+# ^>FST 77XO5k ;VCLIB 92084-12016 REV.2227 <850803.1012>P92084/&VMHDR::PCO7@0uO577XH]k 8;C.LBP 92084-1X424 REV.2226 <820201.1942>P92084/&VCLIB::PCO7EC.LBP CLBP  _.ENTR .LBP AH@ZyJ77X@ k 9;CLBPR 92084-1X424 REV.2226 <820201.1942>P92084/&VCLIB::PCO7 BCLBPR r.ENTR .LBPR pUA@`p  @Ʈn77XPp k 9;C.LPX 92084-1X424 REV.2226 <820201.1942>P92084/&VCLIB::PCO7[C.LPX CLPX .g.ENTR .LPX  `p    @U77XN k 9;CLPXR 92084-1X424 REV.2226 <820201.1942>P92084/&VCLIB::PCO7 KCLPXR .ENTR .LPXR Wt `p `p    @77XI k :;CPMAP 92084-1X424 REV.2226 <820201.1942>P92084/&VCLIB::PCO7 8CPMAP {u.ENTR .PMAP \ @!@77X\k :;SELFT 92084-1X424 REV.2226 <820201.1942>P92084/&VCLIB::PCO7 0SELFT fg$LIBR $LIBX 55Ap AAhP(P8?5@.nM.77Xwk :;ILBP92084-1X424 REV.2226 <820201.1942> P92084/&VCLIB::PCO7IILBP ILBPR  b.LBP.LBPR ([[hXv8AXv8   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[**U[\]^_`abcdefghijklmnopqrstuvUU*@ҩi77XS.k ;;GTPGS 92084-1X424 REV.2226 <820201.1942>P92084/&VCLIB::PCO7 CGTPGS $LIBR $LIBX .ENTR EXECBBX%%AA +*`( Ԁ-`)h(@h'`%`&A$+,Bf'%>@377X[w*k ;VMASZ 92084-1X424 REV.2226 <820201.1942>P92084/&VCLIB::PCO7 FVMASZ  $LIBR $LIBX .ENTR S$PTE VMAST FFa**A`@%p'p(')Հ'(AD!''H&F@zF77X^T k ;GETXY 92084-1X424 REV.2226 <820201.1942>P92084/&VCLIB::PCO7 DGETXY .ENTR +& @|77XIOk ;LOCRP 92084-1X424 REV.2226 <820201.1942>P92084/&VCLIB::PCO7ߴ$LOC@ C)77XRW#k ;UCHCK 92084-1X424 REV.2226 <820201.1942>P92084/&VCLIB::PCO7 +UCHCK 22 $LOC.IMAP .IMAR .JMAP .JMAR .LBP.LBPR .LPX.LPXR .PMAP 288}##`h ( 8D  DD DA 8@PIo 77XJ]$k ;CIMAP 92084-1X424 REV.2226 <820201.1942>P92084/&VCLIB::PCO7 7CIMAP {n.ENTR .IMAP  **]A`pp`h#X"( (* ;!! @<[]77XJ\"k ;CJMAP 92084-1X424 REV.2226 <820201.1942>P92084/&VCLIB::PCO7 8CJMAP {o.ENTR .JMAP  &&A`p`h!X ( (& 5 @n77XRa$k ;CIRES 92084-1X424 REV.2226 <820201.1942>P92084/&VCLIB::PCO7 ;CIRES r.ENTR .IRES  **]A`pp`h#X"( (* ;!! @Tsi77XRc$k ;CJRES 92084-1X424 REV.2226 <820201.1942>P92084/&VCLIB::PCO7 <CJRES s.ENTR .JRES  **]A`pp`h#X"( (* ;!! @TsmP  CMB,INB SET THE LOW ADDRESS NEGATIVE ADA B AND ADD TO HIGH ADDRES.  CLB CLEAR FOR DIVIDE DIV D128 FIND # OF BLOCKS SZB %SXREF::RTE_6:5:64:128 644 0 0 40000 5310707225 34326 %SXREF::RTE_6:5:64:128 $@@%SXREF +#+#+#@?FST 77X 4 8SXHDR 92084-12017 REV.6000 920910 /SRC_92084/R6000/&SXHDR 7@׵77XZSXREF 92084-16426 REV.6000 920909 /SRC_92084/R6000/&SXREF 7 ASXCOM ssSXREF .NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN s݌EXEC.FION SGLDE SEGLD LOGLU  SXRE1 ''$ pA'@77X~JSGLDE 92084-1X426 REV.2121 810827 /SRC_92084/R6000/&SXREF 7 ASXCOM NSGLDE  .ENTR REIOERROR WRITF MOVE"" SXREF: SEGMENT XXXXXX COULD NOT BE LOADED"WW++A@pC`E@ChEHCpAI0HA+E1GF`P (::F?DDDWED @r277XYERROR 92084-1X426 REV.2121 810715 /SRC_92084/R6000/&SXREF 7 ASXCOM ̤UERROR  :: } EXEC.ENTR REIOMOD PURGE ECLOS PTERR WRITF MOVESPUTCNUMD INAMR :CC$00 SXREF: XXXXXXXX ERROR WITH FILE: FMGR 007 CuRDDAR@RpST  (g`Tp<S(srR=<pQx=<` S(|(~` TT(T(Tp-, (T-,EE,(` 0.p.` 0/p/,,A<P((`<p=`<@p=`<@@p;;`)h X (AA T; , *  *T *TA0 SXREF: TERMINATING...2= AA0 U.n -- (@yD88X/NDCNT/ 92084-1X426 REV.2121 810302 /SRC_92084/R((6000/&SXREF 8 ANDCNT  @V88X/SXCOM/ 92084-1X426 REV.2121 810302 /SRC_92084/R6000/&SXREF 8 ASXCOM ;;s ))SX.S1 C@SX.S2 C@;  @777XycSXRE1 92084-1X426 REV.2440 840118 /SRC_92084/R6000/&SXREF 7 ASXCOM !SXRE1 FFBEXECREIO.EXIT ERROR SGLDE SEGLD IFBRK CLOSE CREAT CNUMD OPENF SCREA NAMRCLCUC F  @SXRE2 ~~4%==(pxPވ(`pp(( (`P((*"`"~~~x44("""( (?- 5" `"(== "p)p`pG`Ϩp`0p`0p ~P99V#"`"(j`P"(aa"88Ê(Cj" m#p`Ɗpu`p`ͪ0 p `0!p! #"`"(`̀P"JJ##("88(q" # "(ġ " J SXREF: BAD RUN STRING%A(dM SXREF: NO COMMAND FILENAME GIVEN  A@  SX@77XSCREA 92084-1X426 REV.2121 810619 /SRC_92084/R6000/&SXREF 7 A SXCOM d0SCREA   66 C.ENTR .CPMREIOERROR NAMR CLCUC PURGE INAMR ECLOS ECREA SPUT6  M/CCA/@/pgp.p,`zp-B/\-,pH\,`,@p[`n@gPj(U(W`.0`n@g(a`l@gh`n@g}(k`m@ghA`l@g~~rAAhlHgpd@nhlHgpeme0d(K`n@g~((K@`m@gj((R`n@g}s((R`m@gp`l@ghkHgpd`h@gpfxe~EE:$$/def`|P(ǀ`(Á/{(Up,`zp-с/\-,`,@p[E))4 THE FOLLOWING FILE ALREADY EXISTS. OK TO OVERLAY IT? ) Ao Ayo \[ ENTER YES/NO/EXIT: _ ~~??Ao x`s@ pdjdrrpxq`q(^`qpd rd`wPr((`k@ghhHgpdxe /de`(/v(W`uPr("`qPr(^`q(^(~[L* ENTER NEW FILENAME: _QQ"))A(o *t`s@ pd1jdrrpxq`qpd :rd`qPr(^`q(^pp H/rqp("(WQD5 SXREF: BAD TYPE SPECIFIED FOR FILE: _|KAQo 5p(XGH SXREF: BAD SIZE SPECIFIED FOR FILE: _%%RAXo AHp^o \[ciii(U%))hEXNO YE( @ )@wp077XcSXRE2 92084-1X426 REV.6000 920909 /SRC_92084/R6000/&SXREF 7BNDCNT SXCOM  >SXRE2 == Μ .ARTN REIO.EXIT ERROR EWRIT READF CNUMD SGLDE SEGLD PAS1IFBRK LCFIL =  ܤ SXRE3 SXREF: LINE# AA (`)( p(!*p`(/`)(,/ 3 `PhX mm=;;(\ D`)h X (\ T`(\\ `p` ssxMd{s`p`pm COMMAND FILE READ ERROR$$-xA ~  `) h X ($ COMMAND FILE READ ERROR**ٔ   **c% COULD NOT BE PARSED$$A %`) h X ($c/ COULD NOT BE PARSED2 /(9 COMMAND OUT OF ORDER $$A 9`) h X ($D COMMAND OUT OF ORDER g D(hO REFERENCED FILE COULD NOT BE OPENED$$bA O`) h X ($h!a REFERENCED FILE COULD NOT BE OPENED C  a(` p` p ;s NODE DEPTH OVER 31 DEEP$$A s `) h X ($G NODE DEPTH OVER 31 DEEPB  (% NODE COUNT OVER 1024 $$+A `) h X ($ NODE COUNT OVER 1024 ~  (%  EITHER A DISK RESIDENT NODE_A G PRECEDES A MEMORY RESIDENT NODE_A \ OR THE FIRST DISK RESIDENT NODE_A $: IS NOT A SON OF THE ROOT NODE$$$A *`) h X (L$J EITHER A DISK RESIDENT NODEu4 :G PRECEDES A MEMORY RESIDENT NODE: @\ OR THE FIRST DISK RESIDENT NODE@ Fw  IS NOT A SON OF THE ROOT NODE?F L ( NODE DEFINITION OUT OF ORDER $$MA S `) h X (c$* NODE DEFINITION OUT OF ORDER ] c*(9 ROOT NODE DEFINITION MISSING $$dA j9 `) h X (z$H ROOT NODE DEFINITION MISSING t zH(ZW BAD FIRST SON NODE DEFINITION$$}{A W`) h X ($if BAD FIRST SON NODE DEFINITION# f(u BAD BROTHER NODE DEFINITION$$A u`) h X ($# BAD BROTHER NODE DEFINITIONl (! BAD PREDECESSOR NODE DEFINITION$$=A `) h X ($! BAD PREDECESSOR NODE DEFINITION ( WRONG PARAMETER TYPE $$A `) h X ($ WRONG PARAMETER TYPE  () TR OR TR, COMMAND IS ILLEGAL $$A `) h X ($; TR OR TR, COMMAND IS ILLEGAL F (Y  SXREF: COMPLETED!k A @''1   '@TqG77XLCFIL 92084-1X426 REV.2121 811022 /SRC_92084/R6000/&SXREF 7 ASXCOM LCFIL   FFGq.ENTR .CPMSFILL ERROR EWRIT SMOVE SPUT NODES NODNM NAMR CLCUC EREAD RWNDF FCONT F(( NODE LOADER /AAB/EEXEN ORDINAL COMMANDM M.D.(@@ApM`M( MM`M( M̡M `M( M%`p%M%`M~~\??( M*M`M(Mp`px%*MPN`M(M`N( PNp`N@p !Pp~#>>`p`@P(/88(%(T5M`M(== M`p D'`N@p LPy(P`p{`{@@px`xpO`N@@@x (^(l`pO }}a@@N(g(g`pNl%`N@pvP%O`O@@NpM%`M( M%p`p`@P(88((`}$$((N P* # Q ( --@$@ 77XBcSXRE3 92084-1X426 REV.2440 840118 /SRC_92084/R6000/&SXREF 7 ASXCOM JSXRE3 ^^C .CPMREIO.EXIT ERROR EWRIT SGLDE SEGLD ECLOS NAMR SXR31 ELOCF MOVE CMWDS LNAMR IFBRK CLCUC EREAD OPENF RWNDF ^  W L G SXRE4 ~~J;; O*j`j(WWjpakj`j(iijp*j `j(xxjP(2 j(~@@ pj`pH`PH((`PH(2pI`p~`I@PH(8I8~((i`(pI`(Ljp}`I@pz z((i8I~~:::8}(`p ʈ((F`@pz قz`@ pz`ʈ@p{`@p| kjz{|`j(j`@hPH~NAA((`@h`p ((] kpj`j(ip`@pz" zpj`@pz, zpj27kj`j(??j(3@CjF''>v  SXREF: MORE THAN 128 UNIQUE FILES ARE REFERENCED '$$FAL `) h X (\$''># SXREF: MORE THAN 128 UNIQUE FILES ARE REFERENCED 'V\j#(s$$< SXREF: MORE THAN 10 GLOBAL FILES ARE DEFINED $$$]Ac<`) h X (s$$$S SXREF: MORE THAN 10 GLOBAL FILES ARE DEFINED $R3m sjSx@33QkIHFD?  #(3@=J44Xk;SXRE4 92084-1X427 REV.2121 801210 P92084/&SXRE4::PCO4 BSXRE4 BQEXECSXR41 ""` pA "@\|{:44Xk%;SXRE5 92084-1X428 REV.2121 810107 P92084/&SXRE5::PCO4 BSXRE5 BREXECSXR51 $$` pA $@hF44Xk1;SXRE6 92084-1X429 REV.2121 810610 P92084/&SXRE6::PCO4 BSXRE6 BSEXECSXR61 $$` pA$@jR22X3 k ;RAL 92084-1X431 REV.2121 800429 P92084/&RAL::PCO2 ~RAL .ENTR  8(@Ih22X> k;RAR 92084-1X430 REV.2121 800429 P92084/&RAR::PCO2 RAR .ENTR 6 8(@[ y`PhX mm=;;(\ D`)h$RBLIB::RTE_6:5:275:128 644 0 0 211400 5310707227 33241 $RBLIB::RTE_6:5:275:128 $$RBLIB +#+#+#(?VFST ::XEŭ .RBHDR 92084-12018 REV.5020 <891212.0210>/SRC_92084/R5020/&RBHDR :@'E44XԮ k,;HBYTE 92084-1X435 REV.2121 800402 P92084/&HBYTE::PCO4 <HBYTE .ENTR v A@Lak66XPAS11 92084-1X436 REV.5020 890809 /SRC_92084/R5020/&PAS16 PAS11   jj{.ENTR .CPM .SST .NFEX .IDLP .MBTFMPREWIND MOVECMWDS FMPCLOSESTRDSCFMPREPORTERROR FMPOPEN ORDER LNAMR CLCUC FMPSHORTNAMEFMPREAD NST.M j&``PAS11 g %%`%HHA@pp{`{(vώvω{(s{vЈpu`{(yEEvv{(v`u((`u5pu vuvu|p{`P{(`{(y`P|hX| 0(&`ˈp` *|p{,AAP{(`{(|p`p`@P|(?88(5(xP|(C(Ih` (M J  T{`{ X| (_p|(?`{(q`u@upjvm p{(u{`{9vAA(`P|(k`P|(k`P|((A~((`~((`p`((`p`} X~ h  (`p(k`}(p`} XBB (`p(k`}pA(P}((P(@~P(`P~(~((>(|(b(`(`Ĉ@~p++}`(`Aph(p`@hH( (+a} <<88(`@P(((bp`@~pP(2`ph(2p`䈀@hH(.(88(&`@h H(=((b`Ĉ@~p`P㈈(W`ph}}^G<>Xz 0(`ap`zpyPy(-`y(p`JpD`@HPz(88D(( y{I~`y(y`y(!``Pz( `_Pz( `^Pz(!~22 ( |((((`|A ](/(/`Sp`\(6(82w6EE`[p`{ X| h  (J`Rp( `{(Op`{ X (]`Rp( `{p?A I?(mP{(q(sP(@|P(`{>>AP|( |(((* zX((-`(`Z@|p`(`Yph I(pC`∀@FhHG((088C(`@GPI((0(p`Zyy299@|pP(`YphA I(pB`@FhHG((388B(ŀ`@Fh HG((3(`Z@|p`XP(`Yph I(pA`@FhHG((6y;;88A(ꀈ`@Gh HF ((6`X@|p?   z?(y`y(9(p(`Wp(`Vp(`Up(ꈈ`Jp(`Tp(`Sp(`Rp(ꈀ`Qp(00'-`Pp(`Op(`Np(`Mp(ꈈ`Lp(`Kp(0//yF  yr #(/@t77XyISCAN 92084-1X437 REV.5020 890809 /SRC_92084/R5020/&EVLIB 7 ISCAN   55 .DCO.ENTR .CPM .IDLP LNAMR READC FMPPOSITION FMPSETPOSITIONORDNL 5  ]{KKA{@{pdpz|(paA~(a(ψ|((|~{N|}`N([}{Ni|`N(O{NPwO`N(RPO(U8<FFPO)vpN`N(^Հ{Ni~`xPN(D`N(O{NPwO`N(R{Nx~`N(X{NPwO`N(RPO(DPOvpN`N(^`uPhtX88  0(D`sP((倄+(D(D`+P(!(`rpM`q@+8yy~%<<pLLM(+(>`MphL j(>pc`@fhHe(:(88c(2~`zgg~pz(B`ppz(B`opz(B`npz(B`mpz(B`lpz(B`kpz(By e( #( @g,77X=NXTCM 92084-1X437 REV.5020 890809 /SRC_92084/R5020/&EVLIB 7 :NXTCM  ##P.ENTR LNAMR READC FMPPOSITION FMPSETPOSITION#C ~~6FF6@6p@9pp5K6 7` (U6  ` (` (a6 37` (k6  ` (P (w 9p ` (9~|??p8hX (`5:8hX ((`8(p`p`@P(((88ˀ(p`҈p`@P(88(([p5(`''2p5(`p5(`p5(`p5(`Ԉp5(' #(@ 77XORDNL 92084-1X437 REV.5020 890809 /SRC_92084/R5020/&EVLIB 7 £TORDNL  %%.DCO.ENTR LNAMR READC FMPPOSITION FMPREWIND %F PEEP@PpS`PQQ(iPQNQ(sPQ&%Q(`%(p&%Q`P((SSR((c(cT`Q"" (`Q(`Q(`Q(" #(@i|77X{+READC 92084-1X437 REV.5020 890809 /SRC_92084/R5020/&EVLIB 7 CREADC  .ENTR CLCUC FMPREAD KKm''A@p*p)@p(p''(%5%K@z[**XqzORDER 92084-1X438 REV.2121 811005 * DORDER   u.ENTR CMWDS VV ?? V\\!B00B@BpsB@up@ChyB ([(h`Bx(h`wCpA`AD`v@C@tCCpA(f\kt @}::X>ŭ LNAMR 92084-1X439 REV.5020 <891211.1805>/SRC_92084/R5020/&LNAMR :LNAMR }NAMR.ST NST.M -- f.CAY.CBX.CXB .CYA .DLD.ENTR .LBT.SSTNAMRNODES - MMP(`(lp@pn(`P(d`pbh&(# (Xc(d('LLLISHASPFSASZSZBGBPCPDBDCLBLELIMPNCNLRCRPRSRTPESCSSTEVMEMEBOPFMECLOLOM M.D.FO NDI* RESESESEMSSLNASYTRTRPU/AAB/EENEXVSWS cEEb`bP(`(l}u`Ĉpny|pyz{|(HzHzHPA(HHx|HHPꈀ(P(H xH h}""d`@" 1 mYY*  `&@@܈$EEEXeeeeeeeeeeeeeeeeeeeeen(wwW9<<`P(l (P(l(n(`P(`@p=A<(`@@hH(l ,G(ln(`P(`(`hGwX<<G @p>X>(lP(](l`wh `whH`whH`(lh( X(yw`@w/En(`P((e`Ȉ(`(`DD(`(`̈(`(`Έ(`((l`(X``(``ӈ($ Dvvj::A((l`(l`p`P(l`P(lnɈ`P((ɸ``n(`P(`h(l +,v@LkS44X?k-0;NODES 92084-1X440 REV.2121 810902 P92084/&NODES::PCO4 ?NODES H^.ENTR SGET TMD >CCA`AhEp4(2h PM(P(P((24(+PM(+P(+PN(2`GpI(P`(2`A48>H`H844B  F .J .cc]P--@G(2pO4(v`HPN(apO(W@K(p@J(p@Lp} `O~@}pO(W`HPM(vP(v(2`I@FhHG(0c )~ `O(28IhHI,@˞44Xk.;PLUSP 92084-1X441 REV.2121 800220 P92084/&PLUSP::PCO4 GPLUSP H^.ENTR SGET 66App`P8`P( 8+6@B44Xk. ;CMWDS 92084-1X442 REV.2121 800219 P92084/&CMWDS::PCO4 9CMWDS .ENTR &&|A`h((&@r233XO k.;MOVE92084-1X443 REV.2121 791214 P92084/&MOVE::PCO 3 MOVE .ENTR f A`h@Ϊ**XSXR31 92084-1X426 REV.2121 810713 * ASXCOM SXR31  == .ENTR ERROR ECLOS ABSCT IFBRK EREAD CMWDS LOCFMOVEEWRIT CNUMD OPENF = oSXR31 ûBB@p@pp`@ߊp`p`@hH߈px݂`(`p`@pݡ`@~~dDDp`($$+`(33`(;;`P(?(DK`(SS`~~~`UBB([[ ^(ee kp`爀P(p(tp`Ψ`(|| `( (D(~ AA`(`(( ( ለp`P((p(r`((P(С `(ܠ(r! F @-d**XABSCT 92084-1X426 REV.2121 810714 * HABSCT  22 C.ENTR .CPM.IDLP EWRIT SPUTMOVECNUMD SFILL HBYTE TWOWD 2 -2 ABSCT ~~^D>>DEp@Dp@FppCXDE`@pBE(b(r`p8E(rp`8@@BpB888(i`@PB(x(Ȉ`@pA`PA(`PA~~~77(y`PA(Ո`PA(/` PA(` PA(`@ pA` PA(` PA('`PA(`PA(`PA(m`PA(`PA(4`CH`p`瀈@p@A`@p==((~~~'f<<`p=`@p=`p`@ъpуˈp>`>(ꈄ`@@p?>((߈`p>`?@ъp>`@>p`p (`p`@ъp~~~G==`@p`@ъp`@pˡ `@p`ሡ@p"`@ъp"%`p`ӈp (pA`p8E8(0({`~uB2;;(=9`pp`鈊@8@pDhH8Hp@@p<`@8@p=`@ՈhH8Hpˊx`=`@@h8Hp@ˈ`@p~~FTm>>`8@>`W@pR((*pp`XpP׃VPU*{`{(T{ {Ue`{(V{|{Z~HfBB#$e`{(V{ *{^`{(Z{`(: !]p{`dPhcX A0pP b(1pQ a(8Q0P}}`~}}' @@(`>(6 >>S#p`"Sh!S 0(6` S(/(7`@(6p@((7(`ShS 0(P(apHP(ap}L@@`@p`H@pZ(](8H8(LPPPQ(h(nnOPQR`P@hHpx|`P@@hG(`S((5pA`}}J@@(4p`A@hHpx(0`A@ p`A@ p`A@ p M`( M`(ɡ ЀM}??>`(`>(0`P(0`P((`ph>(/pP(pHP(p`@ p`H@p((*8H8(PPY ==PQ((OPQR`P@hH px#`P@@hG`@p8((8A8((( =*BDF`(EE J* HBB`(RRYN `(aapAL(p`A@p`A@@p`A@@p N`(@@p@ N>`(`>(`P((`@(p@p? ?((`P((`ph>(pPPPQ((ȡȀOPQR`^^..P@hH pxւ`P@@h `@p8((8A8(h N `(V^44j HFD?  E N (F  #$ 04@!**XENDND 92084-1X426 REV.2440 840118 * A SXCOM ENDND  LL.ENTR .CPM REIO.IDLP ERROR EAPOS EWRIT EPOSN CMWDS CNUMD EREAD ELOCF WRITF MOVESESLLf`` NA SY IN NODE REFERENCED BY XX COMMAND IN NODE:XXXXXX SXREF: DUPLICATE ENTRY POINT: XXXXXXXXXXXXXXXX IN NODE XXXXXX AND XXXXXX SXREF: UNDEFINED ENTRY POINT: `XXXXXXXXXXXXXXXX IN NODE XXXXXX 0FF@p@p@pp`@pĀA(Y(Yp(Yp`p(Up`P(Q`@pLDD`@p(Q`@@p`@@(Q`@p:`@@p G`@@p*M`v,@@@@p`@@A(:(Q @ *` P (Q I p*`p(Q Q p88(88((^(p(p`@@V l@@(`@px`|mA  P` P (  pP`p(  p88(e((p(p`@@(`~~ @@@p`A  P` P (  pP`p(͡  p`@@P(( `@@P(( 퀥~>>'    ` P (  p `p(  p88( pqsu`p(   p`@hHpx$p퀊`p(, , ~~*??p3pw v`p(; ;  p`v(ۈ` Pw(B(,` phv(p((Aph(p`@hHpx^(|`@@hHHp~ziBBxn`@@({`@@h(@p8(PA((pA(p`@hHpxp`@@(~~Y==88(`@@h(`@@h`@p8(IĀp`p(̡  pҀpwv`p( ڡ p(,‣pqsu`p(  ~ p %%v  -2-1 0 X ( &%@;ZK((XUARE92084-1X426 REV.2121 800106 ( ASXCOM 55RE %%.ENTR RE2 ERROR EREAD EPOSN EAPOS CMWDS %  ~~t-BB-@-p@.p@/p4p`@1pp,`(]p`,@pW/(]8,8(M`,@p`,@p`,@ps-~qq+o<<+`+({{+-+`+(+-+`+(+`(`P(.01234(5q HFD? F (@Cb))XbRE2 92084-1X426 REV.2121 810509 ) A SXCOM g;;RE2  33 Q.ENTR .CPM.IDLP CMWDS ERROR EWRIT ENTEX SFILL MOVESYMPK 3}}~j2<<A2@2pM@4pL:pK`S@7pJ`a4(``4(`_4(`^4(`]4(`\4(`[4(_(`Yp`YAp5P(pI8889(o}~~6n??(uu789:`P8@JhHLpExFEFT`P8@P@J3`Op(`@LhHLpExFEFT`T@p`P@p8I(h5hP#5(`Z4(~??(4p`Yp`Yp5AT(pH`@NhHLpExFEFT`T@@NpE΁ERXW`V@p`@LpE܁EQ789:`T@p8H(@pE2E`AA( U;245`( U(A 9:( ( 9p:R(DpG`@LpE`P@JpF EFT(@`P@P@J(0`P@P33-@J `P@P@J6(9(@`P@P@J 88G(3 ]SN  X E EMMSD A S M @S^r((XV SE92084-1X426 REV.2121 800106 ( ASXCOM 5SE  8.ENTR .CPM.IDLP RAWRE CMWDS GETEN EE@pp`@pp p(((x. p ` (xp(wp`@@Pp}`@@P0}(s`RR&\S**@p}Z}(sP(`(lip(s`@@ 88(9((`(RP @෠((XUNSL92084-1X426 REV.2121 800106 ( ASXCOM 5 SL s.ENTR SEFIL tt=??A@pF@pEpD`K@pCp`(?pB`I@HPM(&(;`I@GpA8AJL`(&88B( tۼG?I G @**XSEFIL 92084-1X426 REV.2121 810116 * ASXCOM ȽnSEFIL  33 .ENTR .CPM .IDLP RE2 ERROR EREAD EPOSN EAPOS CMWDS ELOCF 3  ~~rGcDDAc@cp@dp@epmp`@jphp3p4`(p`4@pe(848(`4@p`4@p`4~}}@@@pc-`-(-c-`-(-c-,`-(ԡ-`,(`P(`LjP((c-.02`-}<<(-`P((P3((p3h(a((`P(ň`P(`ÈP(`PA( (` ml((_`Ap4h, (_plp5m (Zp`5@@}}>#@@p`5@@P g 0(V`5@h4HpxE(V`5@@ `@4@P(Vp3858(`@4p48(((h}UDcCCc-.02`-(pp-uc-`-(}}-c-,`-(-`,(- df,ijklm`P((}(n--HFD? D ( 4E A X S M F -@YxW**XRAWRE 92084-1X426 REV.2121 810410 * A SXCOM \RAWRE  ,, ~ EXEC.ENTR MOD ERROR SFILL ABSC2 MOVEHBYTE IGET,~~ @@A @ pp`@p`p ($`p'p`P(,(0/p` hp` pA?p ` &p` @p`p(~~~K<<`@pQpp ` @@@((u` @hHp瀈`@pxm`@@ p `p(` @hHp瀈` @px`p~}}{DD(` @hHp` @px` @@p `(K`@ph@ppAp(֨}77`pp `pp (7$$/TK $@}=**XGETEN 92084-1X426 REV.2121 800609 * KGETEN   &&O4EXEC.ENTR .CPMMOD ERROR SFILL MOVEIGET&~~֗@@@p(yÈp h p` p`p` (/`p2p6@p;p`P(@(DCppAJp`&~~~NAA`@p[(@pdj`@`@p ` ``pA((((\`@ph~<<@pp(Sp (w`pp(w<   @**XENTEX 92084-1X426 REV.2121 801216 * PENTEX  n7.ENTR .CPM.IDLP MOVESYMPK CMWDS ~~D{CC@pp`@p(S((3p(3p`@p+(/8A8( (8(RAp(Rp`@~~~_DBBpJ(N(.88(?((X(p(p`@pj(`@@(u(w(.`@@(`@@ ~LL&&88(_((`@p`@@(.L   @^**XSYMPK 92084-1X426 REV.2121 810518 * ASXCOM Ή/SYMPK  ##.ENTR .CPMREIO.IDLP ERROR WRITF MOVE#+CC+.p`@+pA.-(<(r.p).p*-(gp`*@@P(b@)p)`)@p`*@pb@*p*8(F`)-,A-kQn(r(r/ Q" SXREF: MORE DYNAMIC MEMORY SPACE NEEDED Cr Ax`P ( Q6 SXREF: MORE DYNAMIC MEMORY SPACE NEEDED ^{ ((qC @S**X§ISCA2 92084-1X426 REV.2121 800324 * ASXCOM ISCA2  == m.ENTR .CPM .IDLP MOVE LNAMR CLCUC ERROR EREAD ELOCF EAPOS ORDN2 CMWDS =}ISCAN 4}HHA@p@p@ppp(`@hHpx̀`??(((]\`(䡡P\(( ]\ ]\7p`@hHpx`P(`(~~BB]\`(`@hHpx ,`(44;]\`(CCP\( J]\ P]\~~~@P>>p`PhX 0(`P(`( 9((`9P(m(`p[`A@9pZ Z[(w(`[AphZ (p`@hH((88(~~##0`  p(#Y6 #(@ Z**X ABSC2 92084-1X426 REV.2121 810617 * A SXCOM NABSC2  :: a EXEC.ENTR .CPM.IDLP ERROR RE2 SPUTMOVECNUMD SFILL HBYTE TWOWD :ZSYSLIB :EAAAE@EpHp@GpňMp`@JpIcGH`Ԁ@pDH(m(}`pH(}p`@@DpD88(t`@PD((`@~~ 66 pC`PC(`PC(u`PC(`PC(+`PC({`PC(`@pC`PC(`PC(2`PC(`PC(`PC(i`PC(`PC(0N`p`@~==pB`Bp??((ƈ`p?䈊`@p?`p`@Ŋp܃p@`@(`@BpA@((ꈈ`p@`A@Ŋp@`@@p`p(`~~.<`ވ@@p?`@ʈhHHpxk?`@@hHp~~r==@`ֈ@p`@>p興((6`p(p(6`(`Ȉp(pA`pH((`(`pp`@ph Hp~~~s;;@@p>`@p?`@ʈhHHpxŃ?`@p`@>pA(Ј(`p(p(`(`p(`p`҈@p`pI`~>>p(`p`p`pAH((`@Ŋpp=`@p< `@@Ŋp<`@@p`Ԉ@@p`@@p`~~+*(<>  .ENTR REIOERROR WRITF SGLDE SEGLD ECLOS MTEST NODES IFBRK EREAD OPENF > SXRE6 3@@p }` @p |( ( e ,+ #$ `+(   +p ,+ ŀ`+( # # +`( R )+( 0 0  ` @@cc 322p { 9 {p_`_@ ~h  L`_,<p+`+( e(   V,+`+( ^ ^ +  b+  ec Q% SXREF: MORE DYNAMIC MEMORY SPACE NEEDED  e A k  `P ( t Q9 SXREF: MORE DYNAMIC MEMORY SPACE NEEDED [ n  t+  y  ~ _(@r**XMTEST 92084-1X426 REV.2121 810122 * ASXCOM =MTEST   @@ .ENTR .CPM REIO.IDLP ERROR EPOSN WRITF CNUMD MOVE STEST ADSYM NAMREREAD @FF`22 ORIGINAL CALLER IS IN NODE: XXXXXXF}} )@@p@p@Ԁp@p݈p`@րpp3`3(3`(`P((`P(  35}??`p4p]3`3(%%3`(--3`숈P(j`P(4(`ph(ipp`刊@@pG^p3`^ӈAHp^(Q~~ Q??0(d`@p _؀]^p3`3((d`鈈@p8(;(`]( u]׀ҀӀԈp3`3((@4p44ꈈ((`p4 64`@4p4 ~~~==34`3( 3`AP ( 4@p - 3(`3( 3`P (A ((Ȁ30`3(~d 3`рp(p(:  X D (M N @˹**XUXADSYM 92084-1X426 REV.2121 810121 * ASXCOM ZADSYM  .ENTR .CPMMOVECMWDS cDDA@pTpS`V@pRp(2p(2pQ`U@RpP*PW(.`88Q(A(:(M`U@RpPEPW`U2G @U@R(,p(, U  @ag**XUNSTEST 92084-1X426 REV.2121 810128 * ASXCOM STEST   FFNG.ENTR REIO.IDLP ERROR EAPOS WRITF CNUMD MOVE ADSYM NAMREREAD CMWDS ELOCF NDPOS FTT(== SXREF: POSSIBLE OFFPATH REFERENCE VIA EXTERNAL OF A MODULE IN NODEXXXXXX TO AN ENTRY POINT IN NODEXXXXXXT~~VAAp9`>@p8p7@p6@p5p(`fgik`f(Gfp(p4`<@<@8P=(`<@<@8p.~~~:s??ʂ.p`<@<@8pv`vp܀f{}`f(Gfp`pfJz`f(Af`z(`MP(`IP(@`LP((~~~>>`ApwhzF(?p3`Apx;(:p2`<x@<@8Pv((6`<x@8hwH:p.x/*./F(6`<x@<@8p(:8x82(`F@wpw83( (`(((~~~9C>>`v(O`KP(O`(Op(ա Vf{}`f(^^?fefJz`f(mmAf`z(uuAf`IP(`HP(|(^`ApwhzAE~==(p1py`F@w@:p. l.Gypf`l(@6Pl(px(p0`x@6Pl((`w@:p. .lpf`f(+(8x80((Ĉ`E@wpw81(~~:==(^884((p`w@:p. @.F vR lbf(D`f( Bf`P (A(DfHC`f( Bf~jj33`P (AHC fU@`f( Bf`AP (AU@ "fgik`f(**?f(p(j WH:  X D ( 0E N @**X\kNDPOS 92084-1X426 REV.2121 810109 * ASXCOM m-NDPOS  O.ENTR ERROR EREAD RWNDF vv$%+;;+@,pf7,)`)(??j)p`+(E(G-N,)i*`)(VVh)`*(^^h)`gP(b(G`p(Av 3{gN ( @!@F**X'SXR61 92084-1X426 REV.2121 810827 * ASXCOM SXR61  bbEXEC.ENTR .CPM REIOERROR PURGE ECLOS LOCFFCONT S2IST IFBRK EAPOS S1IST NODES MOVE CLOSE WRITF EREAD ELOCF OPENF bAA`@ppG21#$&`1(121`1(11(21l%k`1(ܠ''a{1`k($`$Pl((`GpGAG((' Q" SXREF: MORE DYNAMIC MEMORY SPACE NEEDED  A #`P ( Q6 SXREF: MORE DYNAMIC MEMORY SPACE NEEDED ~~AA 1# 21 1`G@p `@k@p pHp1`G@@hJ(pF`G(p`F@p`F@~~~nF5BB@p`F@@pD21`1(LL1O1(VV[2Gp1`F@p`F@@p`F@@pu21`1~!wCC(}}11(`G@hGp`p2GFp18F8(+1" `1( 11! `1>>( 121`1(1ԡ1FCED`D@hC @pB1B`1( 121`1(1[ 21`1(1WG( SXREF: COMPLETED!T A  A( N @@N (@5**XqS1IST 92084-1X426 REV.2121 810827 * ASXCOM S1IST  YYMhEXEC.ENTR .CPMREIO .IDLP ECLOS ERROR EREAD EWRIT MOVEEAPOS CNUMD TWOWD SFILL CLOSE IFBRK ELOCF FCONT Y'h`` ENTRY PTS: EXTERNALS: END : *MODULE RECORD* *************** --------------------------------------------------```-------- NODE ORDINAL NUMBER TYPE :XXXXXX PROGRAM :XXXXXX LOCAL EMA :XXXXXXXXXXXX BASE PAGE:XXXXXX LOCAL SAVE:XXXXXX COMMu``ON :XXXXXX PURE CODE :XXXXXX MSEG SIZE:XXXXXX EMA :SSSSSS PAGE SIZE :XXXXXX NAMED COMMON : SSSSSSSSSSSSSSSS SIZE:XXXXXXXXXXXX SAVE COMMON : SSSSSSSSSSSSSSSS SIZE:XXXXXXXXXXXX EM%%  A COMMON : SSSSSSSSSSSSSSSS SIZE:XXXXXXXXXXXX%O\??A@p]p\`f@p[pBd`PB(D`B( hBŁBCnk`B(kBPk(P`k(ءkB`mPC(~~2@@kBpDs`e@kpkAk((`pktGk`@kpBe`B( oB BF`B( oBBCnk`B~}}<<(""kB`k(@`mPC(@`lPC(00kB@kp(:(:`p?DEBd``B(MM oB`r@pSVBS`B}}}2bX@@(^^ oBeBCnk`B(mmkB`k(uukB`PC(}}kBDsGsJiPsSs}ͽ>>VsYsBr`B( oBBz`B( oBBv`B( oBСBv`B( 2CCoB B`B(硡iBp`cpZp B( BaaaBCnk`B(  kB`k(kB`oPhXCC?? (s`(.&Bd``B(.. oB`kphkA h(rpY`(?=lg`gp`@^hH_pSxTKSTh`r@p`@^hd(W(mdX@@]Bl`B(ee oB kl``gp`h@p8Y(5(`tPhXC (`(Bd``B( oB`kAphk {(pX`~~*==(lg`gp`@^hH_pSxTSTh`r@p`@^hd((ΡBl`B( oB`gp l``{@p8X((`s~e??PhXC (7`(Bd``B( oB`kAphk {(6pW l``~PL((ly`}PL( (ly`|PL((AAlyuDh!M`yp)Bl`B(11 oB`{@p8W((`kPhxXC (ZGlrKDrQBlr`B(Y~~UAAY oB(PhwXC (jlvorDssG{yBlv`B( oBlrHrBlr`B( ~~~??oB(`uPC((`hoX pS`tPpU`0US(Bl`B( oBp`tP(ѡɁB`B(ѡgB88Z(~~~>>Bd``B( oBlgrDsBlr`B( oBBd``B(   oBp`bpV`@^hq8~hht118V( Blp`B(## oB*BCnk`B(22kB`k(P`mPC(@`lPC(0@kBp`hXW8 SXREF: COMPLETED! wDAJk8jMPip(B BBP^//kBM N (# * D EMMS 2 1 0 PA "X E S @B@Ji**X6SS2IST 92084-1X426 REV.2121 810608 * ASXCOM I S2IST   &&+.ENTR S2DST S2CST S2BST S2AST ERROR FCONT &DD@pMpL`Q@pKpJ`N@pIp!RP`()) O/p6p?pFp sG` JN@@ ?**XS2AST 92084-1X426 REV.2121 810714 * ASXCOM S2AST  88 .ENTR .CPM .IDLP ERROR EAPOS EWRIT S2A1T MOVESFILL ELOCF EREAD 8//mIP  ENTRY POINTS ! DEFINED IN MODULE:! REFERENCED BY: /}}@@@pp`@pppRQ`p( p`pp`p( pp`p(} ??p`(pրp`p(ޡpP(`(((p`P((x(ψ`P((pqsu`p(~~iAAp`pwh (p(P`w@p) 2xpvPv(C@vpv`v@@p`@@ (%(%`w@p B(vpp~(CAApv(^`vApv v(N(j`v@@p`A@@ (j(j`w@p h(vpp(F`)PPh.XP hDXP (p(`p(DD߲ p`@wpw8(  pqsu`p(p(`P((`D0N PE M ( --@5S**X JS2A1T 92084-1X426 REV.2121 800512 * ASXCOM X<S2A1T   88 .ENTR .IDLP MOVE SPUT CNUMD SFILL ERROR EWRIT CMWDS EREAD EAPOS 8 E( : ~~7CCA7@7p3@8p2@9p1`?@;p0p6`=:@0p,`=:@>@0p-`=:@<@0p.f72,-.`2(nn=2u72D4`2(}}~Xz<<A2`4(A272D4`2(A2P4(*`4(A2`IP(`HP($`GP(((*`Ap3h4F(p/`<@3@4h;H2~~,==((ň`3@4p,,8@((`F@3p38/((`:@1PE(`9@1p,؁,*@:p, ,*`8@1p,,+A`8@1p, ,5) 2~qqſ999D`2( C2 95B((`7@1p, ,*@:p, ,*`6@1p,,+A`6@1p, #,5)()*@(`6<q##4'P( N M X #@%Dg**XIeS2BST 92084-1X426 REV.2121 810714 * ASXCOM S2BST  FF).ENTR .CPM REIO .IDLP ERROR CLOSE WRITF EAPOS EWRIT S2B1T ELOCF MOVEEREAD SFILL F##U -- MODULE ! REFERENCED BY: d# VAA@pNpM`X@pLp`T@LpH`T@W@LpI`T@V@LpJ䃺>HIJ`>(T>>R`>( [>}}@@>`>( [>DRad`pD>D``>( [>%>``>(--Z>`(55Z><>`};??`>(DDZ>`()`cP()`bP(RRZ>XDRa]EUpmf>``>(nnZ>`(vvZ>`_P(`^0z>>P(}(_`ZAph U(pK`mpm m((+`m#@PhHOpHxIHIU`U@p8K((_ >?AC`>(S>`m((pl@lpl~~CC`Tl@S@LpH`T@S@L H(( ЃnmDlp>pl(쀄`lpl l((`Tl@S@LpH`T@S@L H(( nmDlp>(`]PEh]~^^[100XJ h]XN h]XS (>D\`>( [> >?AC`>(((T>(5`^ Q8 SXREF: MORE DYNAMIC MEMORY SPACE NEEDED + A 1ZY`P (: QL* SXREF: MORE DYNAMIC MEMORY SPACE NEEDED --e4:>*Y>>B>GQQQ()-##Of E D (PM N --#@MlW**XZS2B1T 92084-1X426 REV.2121 800512 * ASXCOM ]>S2B1T   88 .ENTR .IDLP MOVE SPUT NODNM SFILL ERROR EWRIT CMWDS EREAD EAPOS 8 =E( :: ~~L8CC8@8pC:pB`Q@9pA@;p@`P@=p?p7`N<@?p:`N<@O@?p;`N<@M@?p<j82:;<`2(rrN2y82Y5`2~~~ {<<(R2`5(R282Y5`2(R2`5(8`XP(`WP(2`VP(8(`Rp3h5G(؀p>p4:(p=`M@3@Dp:~~~v>>`4#@L@A:((π`4#@Ah3HDp:x;́:;K((ـ848=(`G@3p38>((`G@@P(hJH@X( (`I@@p::*K`H@@>x; :;`H@@p: :E) 2;U`2( T2 ;ES((`G@@p::*K`F@@##D P!N M X (#@**X7S2CST 92084-1X426 REV.2121 810610 * ASXCOM S2CST   EE-.ENTR .CPM REIO.IDLP ERROR CLOSE WRITF EWRIT MOVE CMWDS NAMREREAD SFILL EAPOS EMMg88 --PREDSUCCS2CST  EXTERNALS SATISFIED OUTSIDE OF CURRENT NODE EXTERNALS ! ORDINAL NUMBER ! PRED/SUCCMBB@p#`,@p"Ljp!`+@p pp`)@"p`)@*@"p`)@(@"p```()``&``( >>  /`` ``( /``! ``(%% /`` @p.a&`pa6`a <a&6``(DD /B??/`K`5``(SS.``([[.`b`5``(jj.``(`4P(`3P(t([`.ph1(pp`'@@$p}}@@ 2p`P(`(`(p`(p`@$p`#@ p '(88(`Ap ((`#@ hH$px '}u[@@`pa`@$p b'`'@@$p k* (( t. (( t.`a0``( /``1@p8({([`  QZ8 SXREF: MORE DYNAMIC MEMORY SPACE NEEDED a A .8-`P ( QnL SXREF: MORE DYNAMIC MEMORY SPACE NEEDED $$` `L-`%%%($$ X N (P@բ**XS2DST 92084-1X426 REV.2121 800609 * ASXCOM S2DST  .. '.ENTR .IDLP ERROR EWRIT MOVE NAMREREAD SFILL EAPOS .;;m)) --S2DST  UNDEFS ! REFERENCED BY: ............NO UNDEFS ..........;yAA@p`@ppp*`@p`@@p`@@p)`)()ʡ)`)( )}}}@@)`)(ࡡ )`@p[`p[)[[`)( ))+`)()`(}~~<<))+`)(%%)`(u`P+(u`P+(o`P+(2(`Aph(npp`@@p Ep)`P(J(i`p[`@p~uu^ZO99 T\ YeSp*a)[`)(ii )`@p8(9( tS,(P*(~)(`)( )`u* X M N (P@**X+GS2EST 92084-1X426 REV.2121 810610 * ASXCOM WS2EST  **.ENTR ERROR EWRIT CNUMD HBYTE NAMREREAD EAPOS *%%S2EST NODE SIZE = PATH SIZE = %DSCCS@Sp4`;@Tp3pR`7V@3p0`7V@:@3p1`7V@9@3p2{S012`(7S(FP`(E`P(~~^==E`,ppS(FP`(E`P(`DP((`CP((ƀ(p'`Bp/,>'p`@p(5`( <~~~2== ((=`( < PA(숈(`@@?p`7V@7@3h`7V@8@3@6pVp`(@p`7@8@3P((~EE `7@7@3@p@p( &=`(.. <`RWEX5 |MB N S (@ݡ**X13NODNM 92084-1X426 REV.2121 800430 * ONODNM  0.ENTR MOVECNUMD UUO**@p-(.`2((#`.@-h1`0('(+`.@-h/(U`w.-2-1 @c%**XdWTWOWD 92084-1X426 REV.2121 810517 * aTWOWD  !!"z.DAD.DSBR .DMP.DDI.ENTR SPUTSGET!}}FF@pN`Vp`TpMAOAAOAQxO*@p8M(p`SpL8`RP(<(BAU(D88L(3(C}gO 0 @gvqqq~~2s ABSC2 5GkABSCT 82GkADSYM #kCMWDS 1ENDND _#kENTEX q#kGETEN )kHBYTE JISCA2 E#ckISCAN 8c LNAMR $[MOVE2MTEST k~~~N NAMR.ST $[NDPOS NEWND R6#NckNODES ,vNODNM  VkNST.M $[NXTCM $c ORDER "E#ORDN2 #cORDNL kc PAS1 r#ckPAS11 7#ckPLUSP /y +~~~ i RAWRE ~QGkREj{#RE2 n #5kREADC !S1IST 1kS2A1T #kS2AST k0S2B1T #kS2BST JkBS2CST f#kS2DST ~kS2EST NGS2IST q9LU^ +~~~ SEsa#?SEFIL x#SLv0STEST #kSXR31 2l#k SXR41 I'#*5cSXR51 jqSXR61 k'nSYMPK .kTWOWD  ~ S2EST NS2IST q!#$% +~e } && ,DS_TrcSeq_No { Tracing's sequence number } && ,DS_DroppedHL { Tracing: dropped HL trace chunks } && ,DS_DroppedSS { Tracing: dropped LL trace ch%DBUGR::RTE_6:5:114:128 644 0 0 71000 5310707230 34230 %DBUGR::RTE_6:5:114:128 $rr%DBUGR +#+#+#r8@lFST 77X#k ;DBGHD 92084-12019 REV.2441 <850802.2209>P92084/&DBGHD::PCO7@#44X|^k;DBUGR 92084-1X445 REV.2440 840829 P92084/&DBUGR::PCO4B/.DBUG .SDBG DBUGR qq$LIBR $LIBX .CAX.CBY .CMW.CXA.CYB.LBT .LDX.LDY.MBF.MBT .MVW.MWF.MWI.SBT.STX.STY .XLA .XLBEXECIFBRK LOGLU REIOSGBPE SGBPT qyBB~h`x x 8X(' A0 p  { +p6p` X-0,p ,`X-p &h.D(8* (?@/ START DBUGR //(O`  f  p`QpQ`.B::p`p ppA`h  vpT` pp p)p8pp `p ` p p p p p pp `pp p @p p pp h x p䈈p p P (hP (ĈhP X]|CC(h H@hG` PhP`lPl(x @(@ (( ~ $@h  "(Ȁ@(8@ h X8 H U(s8 8   H << `@ (r x  @ (h HQ  P(h  (hH X ( ( ^`(U p` h ӈHx h H Hx P 8h x `(`~~<<(X`` `  刈`P (8(P`(J`` h ` h ( @(O `  ` h6  8 (s`6P-(h X(-p6(` , ,p ,,hx &(~ 7<<`Up (8@ (J` pR(@Sp p(`(J x 8 (hpT(RQ  hyDHUHx ` @ p (j8 (j`l (d`l `@p@U@FFlms--(\ ~ B(8zAREG BREG XREG YREG EOREG MASK (CBVAL-CBADDR,I)^CBMASK =CBTEST //F<<@ (0 p ` h X*x H (f`(` h(  (`   @p xh `p p p 8 (^h@P(@(x (8|` (` (~~Q88` (` p h p`| ((h (h (h (h (X x hxXh `h  (hXx(Xh `p v`p  hxX` pp ~n?? ~` pX ~(TXp %(RX (X ( / MhDD` p7p6h`J @  n`687(0ChB  ~(T=E MS = //0  v ~ P (hP Ո(KP)(MAA31T p7  07 PmhPnhPkhPlh (sPo(( ~ ~(TPAPBSMUMXL:AsBBxr`q `r@p{`~hPp( v(Kp`A v ~ ~`o n ~(X (K (p7p ~@(`A 7 (Ƀȃ x x  a;;x  P (ӈP(P(׈P)( P (P((р@@ ` P8 (` h 8 `( 8 `@p `( `(^ px v z`22Q `@p`hhHx `A ` 2 |  bbg)..  x x x xWP (PP)(*PV xWPU  P (KP(K@)@ )` PT)8 (:` hW (Qh 8))+-bhhfX11 (y|p5hT (i`P (kU(gp l(kh hjX hkx`5hTA (yxyh xXxh (h@ @ 0h|h<< (` PH( v`pp(`  ~ n8戈 n8 n ~8  v`@p戄`@8P(p(h̀D)(  (8pH@@p vhH@ (h33u H ( (ENTER INDEX OF BP TO DELETE OR CHAR "A" TO END //39>>Hh X(8(눈p4U(gp l((`4pk` (hHXkpB@P(hvD v(8pAh` `hH  Hk (+@p鈄P[((` ==F&`(+(hkh` 0`B(8`AhB (=(8(8ApB(8=\\?JB))~@,p p P(aPi(T` h    (\8(\pi`  ~(T`p)m(Chǀp`  ~(T\#lII` (us(8mw NO MORE ROOM FOR BREAKPOINTS// H~`hg(@ (xkkh` 0`@@P(`@ A ` @h  (HH##p `(H`hg(@ (@@@P(.A @(x߈`  v(8!H ^ 0 8DD ]B  SEGMENT "A BREAK //p݀x (U(gp lh x `A ` p\RP(h88\( (RP`lPlHP (RP(`PPQ P[  (+ii)33Hx(8` (6@P(,hvD(8h` x\` h h\ ` 0(8`  ` h6  8HH"N PY(PZ(R"Ai1];; p&h x,X (h (`jpR` P (X (th;D`Ɉp)` p `0p  v .(C v ` P (` pi` pR(pi(C`hA ` p p,__(( (ӈ(xp  P(Pƈ(0p .` U(]p,`)(p .(C.` U(`  8 (_ h! (x hhM33(` H ( h߈(HX(8Ԩ((  P(]` @p` @h `@`hjP(.h5 DD  ~h X  h  p,(   ()((('(&8,8,8,8,,I`hA@ D9:<.h AA  ` AA@` <H`hgSSN))(WhgH(W@PI(K@ (dxkxkh؀kD(Tgpw8gA w(tD8ggSWx;; p P (]P (` m(` 0p!` P 툈(P ((A `!@ (` @p `!@(@`jh  (U(]p,.`  P ((] ((;;|pm(` p`ˈp `jp)`h ~ vp)`p (8;,;; (p  (]h_C(8``  p7 P (P (P (P (_(`7(h(HX(`78  p p `( phDkkT 00`  `% 刈 ~  B ~`%  ~` R ~` R ~` R ~` R ~` p (p9x:`(6` (6@@P(-h x `9h:&k;??< END DBUGR //p7x66h7  P(D h78687(HhH 8UU` Pˈ`p p p  v`  ~`* (  p7h}X|mHP7(x (pH00bz8mm `p!`!p` p `h I~0hh^22p x   p  p ` P(`jp) v` p l~`,p 8 ( ~(R` xpp p ` 0`  (]h}} ::` P`͈p p  v`  ~` n(IN`p䀀`X` (p v` p V( (((   (C v8 (px` ((8`h}( (I `  (@  ~` n(DMWW?**h x h ('8 `j@(?@(pB`12`BhH 88`Bh @8WKIC;;`   刈 ~  Ch H (h x ` l 8 (Rp ` @ (`  ph@ (iH (j` 8V` VV+l ~`t 倈(T` P (p p _ %~::pV  p ՀhV H @(yՈl ( vV ((pC ~`Ո  v(  (h  (x`p p p  v`  刈` ~p ~ 8((8==h xՀ ((p p p hH x 8 8 (h P (`h%  p (8x ? y > ` >h ?ET%p x  vh D`  n ~` hBj  v` h @ DD EXEC CALL ERROR: A,B=// X` ( ` p p ` @ (8 p  2` p  2  2@ p 8 8 ( & 2 2 2( p >A : z = > ` > 2Dp ^( Z` ]@ Ͳ H;;(H `㈈H ` ` @ @ H ` x  @`  @ ` p ` P (  8 x H H P ( p 8 8 ( a 8 P ( w( n` dP p ` ( ` l@ ( @  >>( n( 8 ^  ^ @p x 刈` p p h X   @ @ Q8 8  %@ a( p `P ( ` @ ( $@ p p ` @ ( p ` 刈P ( ` p   µ :: ( (   m( P ^( ߈P ( P ( ߀` p ` p p X p 8 ( ` p (  P ( P ( P ( P ( ( @ ( `lp ( ` p   p Ve ==` ( ` ( ,p p ` h  ` ( `  n` = ,I `  8 H  ( %h x  x h x X ( 4 ` ( 5` >h X @`  h ` P @( Rx `  ~~R: 8<<` A np  /+, ^,Cӈ( _p ` f@ h% `l `   B` ( 3 mHx ` ?p ` lh   Bx m( Xh% `  B` p ( M  p u ` u ~  t n  v<<`6 n v ~ ~ z`  n`l  ~  n`   "` h% ` h%  h  ` h X 8 X   ` @ p ( 8 ( `l ( `l  p x x VV5^ && x x h وx ` p 6@  @ 8 ( X ( ( h ڈX%@ @ @ @ P ` ∈P ` P ` 䈈 8 h X و ( V DD[].$%h )x )8 (X + h  ` (( p (h )` 'D z U (p %p (h *x )  h "8 $( 8 %(   , - & ( Hx $h # x " p $P &( `  O " ZZ _cc yII H؄z{lFFU[U\ ?A\  B   |  B !  c ,  ``S>bf S7I] S+Y S@  ai /  Oo I/ Op Ҿ %HMI=@HLb+@a;H@N O} @ N b, @a< N TTSSr  T``T TST T@T @T T T TT SWSW  z z  HMI=HLb+a;H@ `` NO}Nb,a<N tT@@T@@IdI^$  |@v@SSW$ ``SBSCVVVVZ[ւփ~> ׌ ‘Ĕŕ سش ٴ #$5\*\+{j{kƤC t``ʤDʤkl˺ȺST/g@gPZZ\&efP0g hGGZ[ꋂ⋃ַ֓֔xx ZZBC3ZZzܸ}Ձ}S>S==}T NIx77Jc8&&+B@ :?K7uV<]GA"K  7@A`^44Xжk;MLSDB 92084-1X445 REV.2440 840829 P92084/&DBUGR::PCO4Ac.DML1 .DML2 .MLDB MLSDB jj$LIBR $LIBX .CAX.CBY.CMW.CNOD .CXA.CYB .LBT.LDX.LDY .MVW.MWF.MWI .SBT.STX.STY .XLAEXECIFBRK LOGLU REIOSGBPE SGBPT jtBBh`x Sx 8X(' ɈA0 p   *+p@p` X-0,p d`X-p ^h.z(8* (?@/ START MLSDB //(Y`7 7p`[p[`B<<p`p pOpNA`h ` 0p@H`P(Y@(T p^` pp p@p8pp `p Ј` p p ӈp p p pp `pp p @p ֈp pp h Ԉx pp >~AAp P (hP (hP (h H@h` ҈PhP`GPG($x @(@ (( ~&6. @h  "(Ҁ@(8@ h X8 ==H U(}8 ڈ8    H `@ (|  x  @ ( h H[  P(h (爈hH X ր( (߈ `( U ݈p` بh Hx ؀h H H{;;x ٨P 8h x `(`( X`!` ` Ɉ `#P (8($P`(T`"` h ` Ѐh (  x($O ֈ`  ` h@  8 (}`@P-( h ۈX(7p@( ~~,7<<` d ,p d,hx ^( `_p 숈(8@ (T` ߈p\( @]p ߈p( `"(T x 8 Ӏ(rp^(\[  ,hzH_Hx ` @ p (t8 (t` ~ZZs77(n` `@p@_@(f  z(8AREG BREG XREG YREG EOREG MASK (CBVAL-CBADDR,I)^CBMASK =CBTEST //Z<<@ (0 p ` h 刀Xbx H (p`(ƈ` h(  ( `   ψ@p xh `"p" P (rP (UP3(WAA5E^ po > 0o PwhPxhPuhPvh (}Py((   (^PAPBSMUMXL:Ag}BBx|`{ `|@p`hPz( (Up`A   `y  ( X (U (pop @(I`A o (Ƀȃ x x  ;;x  >P (݈P(P(P3( >P (P2(ۀ@@ ` ڈP8 (ʀ` h ڈ8 `( 8 `@p `2 `(^ px  `22 `@z`hhHx `K ` ̨2 | bb3.. > x ڈx x xaP ʈ(ZP3(4P` xaP_  >P (UP(U@3@ 3` P^38 (D` ha ([h 833+-bhhjb11 (pmh^ (s`#P (u(p (uh# hX hx#`m#h^A (h x#bxh (h@ @ 0hhk== (` PوH( `pp(`  h xh Ȉx  hx ވ 888P ( = (PATH SWITCH BREAK //hz `@p`H@8P(Έp(hz22P3(  (8p@H@p hH ( @hH ( (2((HENTER INDEX OF BP TO DELETE OR CHAR "A" TO END //(;;Hh X(8( pl(p ݈ (( `p x(#@Cp p SP(Pq(Pr(j"A-6Xu;; p؈\h SxCX (h ( `Ep-` P ( X (hqz`ለp@` Sp `0p7  &E6(  &` P (` pD` p-(pD(`hA ` Sp pC__â((  (((=8C8C8C8CC66pbcA`h@DRSUEAh  A ` AA@` U|)c??H`Pc (s@@ (shb (|(u@(e@@X((s@  (s(hb@ @xFxFh(eDpA8(8D_;; p7P (P (`7(` 0p8`7P%(P"((A `8@ (` ݈@p `8@N(G@O`h  ((pCE`7 P (( (  ( ;;p( ` Sp`p S`Ep@`لh  p@`p S(8;;; ( p S (uhC( 8``  po 7P ;(%P A(%P G(%P (%(%`o(%h((%HX) (`o8  J(p Sp ݀`(>phz[[M4&&` pZ` p H` `Zp ވhz` S =`[   S z `[  ` \ ` \ ` \ ` 򈈘\ ` p" ̨*[--[(poxp`(l` (l@@P(ch Ԉx `ohp\-q??r END MLSDB //poxnnho  P2z ho8n8o(~ `p8`8p` p `hpbc3hh#22p x   p  p ` P(`Ep@ ` Sp `Cp S*8 Έ( (\` Sxpp p ۈ` 0` S (uh}}::` SP`p Sp  ` ݈* `  ( IN`p`X` ( p% ` Јp () (#()P()  π (){ 8 -(p:x;` (75(8`:h;-}<P(D(H<ID `A ( @O  `M ( DMWWEBP**hBxCh (_8CP`@N(w@O(Upz`ij`zhH 8P8P`zh P@O8PPWU{;;`  =   ݘ ߨ{h H ( h x `  8 (p ` @ ( `  ph@ (H (` <8` 倀+ ` ( T` P Lj( p ֈ p )::p  p  h H x(  (   ((Ljp { `   (  (h  ( x`p p# p ݈ `# = `#< #p"  8((8==h x   ( ( (p ڈ p p ݈ hH x Ӏ 8 8 ڈ(  h P ӈ(` )h[ 刀 p (8x w #  ' v  *` vh w ET%p :x ; h <z` :  ` ;hLȺ 5  ` :h ; *  >( ( 8  Ҩ @Vp x ` p \P ^( E` Ȩ > Z  _`cc II H؄z{lFFU[U\ ?A\  z P Q = z ! , c C  ,``S>bf S7I] S+Y S@  ai /  Oo I/ Op Ҿ %HMI=@HL((b+@a;H@N O} @ N b, @a< N TTSSrC ``T TST T@T @T T T TT SWSW  z z  HMI=HLb+a;H@; `` NO}Nb,a<N tT@@T@@IdI^$  |@v@SSW\ L``SBSCVVVVZ[ւփ~> ׌ ‘Ĕŕ سش ٴ #$5\*\+{j{kƤC ``ʤDʤkl˺ȺST/g@gPZZ\&efP0g hGGZ[ꋂ⋃ַ֓֔xx j ZZBC3ZZzܸ}Ձ}S>S==}TXSx77Mp&&5LJ IDI UA`FuQK,*&*7@944X4k7;SGBPT 92084-1X446 REV.2121 800209 P92084/&SGBPT::PCO4+3SGBPE SGBPT HH%*443H@hD7 LDB PRPTA YES  JSB DIAG2  JMP CMD6* LGER2 LDA LU CLB NO FMP ERROR JSB STFER OUTPUT ERROR TO SYSTEM CONSOLE JMP ABRT1 TERMINATE LOADER EXECUTION%SMON1::RTE_6:5:115:128 644 0 0 71400 5310707231 34407 %SMON1::RTE_6:5:115:128 $sݐs%SMON1 +#+#+#s9@FST ;;XQ|84 8SMON1 92084-12021 REV.6000 <920905.0156> /SRC_92084/R6000/&SMO1N ;@3)Q77X2LOGON 92084-1X449 REV.6000 920904 /SRC_92084/R6000/&LOGON 7sskLOGON .NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN sNEXEC.CPM+XLUEX ,MOD .FION .IDLP MESSP READF LPARS TSHIF -LBULD RNRQXFTTY *MESSS )KBLNK CNUMD NAM.. CLOSE OPENKCVT(CNV2'FCNCT &MBT PERR%DCMC#WRITF $RLSCB [[M!IDRPD "FTIME MKSCB IXPUT IXGET IDGET IDDUP .DFER CONVCAPCK MKSST FSTAA ENCRP INITSETAA DTACH $ACFL $ACSC [[p``LGON 01 FMP ERROR - XXXXXX ON ACCOUNT FILE ACCESS LGON 11 FMP ERROR XXXXXX ON DISK MOUNT ATTEMPTLGON 06 CONFLICT IN DEFINITION OF SESSION LU XX SESSION LU= XX SYSTEM LU= XXXLGON!q`` 04 NO SUCH USERLGON 09 SST OVERFLOWON PREVIOUS TOTAL SESSION TIME: XX HRS., YY MIN., ZZ SEC. LGON 13 CONFLICT WITH SYSTEM DISK LU XXLGON 15 SESS!r``ION PRIMARY PROGRAM CIxxx NOT FOUND USING FMGR AS PRIMARY PROGRAM LGON 16 NUMBER OF UDSP'S OR DEPTH INVALID UDSP NUMBER AND DEPTH SET TO 0,0A 1MFMGR u  RU, FMGLU , ~~|kFFlq`pjAyly~+  .edV@cbSThpi`h(`A@.pDD+ (P((p ` ((P (` P((p+`~llv88A p  (( p ul P(`(`}p`pD D .y( P ((~l##a5LGON 00 SESSION ENVIRONMENT NOT INITIALIZED #~~FF 5p (ءl`(`(p  (`3p   ( ppppp/`@.pDA"D+ P(7(0 0y/~~~]/BB6.y(`(0P (Bl Fq(GOl`(`pG`pF`p[`p`pp`p``@khHHa88`(`` ( C(0~66_qp  (w({zA p  ((0`(+`(`+@,(6KLGON 03 SESSION LIMIT EXCEEDED}}a@@ K(0` (`(p@pE`AphEl(p_p`zp^p`|p]`@@ahHb((88]((}~~z??`p`@p8^(88_( o(+pU`@@apg`g(눈`pU`gpgg`(̀`(;`U@apf`U@ap`~~~,z ;;(`f(`p`p\`@jht88\(("(;`( `P("( #`f(**`p`p[`@U@ahHj(7( #88[(.`P(?(E D~D??(0`@U@ap`U@a(]`@U@apD]Dp`-(lpZ`@d 88Z(d`e@dh `d@dh`V@dhHUHa`c@dhHUHa`bDD@dhHUHa`S@dhHUHa`c@dpC`b@dpB`@U@apQ`@U@ahĄpRQpDAR0DhR  pD`QpF`F0DhQ  pD|@@`RpF`F0D(  pQpR`@U@ahHUHap```@Tpp``(pY`T@@d88Y(`T@dhH``@dH pD`0X==(D` (`@d `@dpY`T@pX` @dh!pa`a(/`@@dh`T@dhH`2Ap`~pX`@e(j`@@ep_`P_(NٿD<<`_(M`@@e(N(e`@e@{p^P^(e`P^(e`^(@^p^d^XWp*`@p8X(6`@U@ap>`@U@ap?p`pW`@ihUHHHa}}<<88W(xp]`@U@apDD(`@U@apDDp]`](`@U@apDD  p`pV`]((`@fhUHHHa(}(>>`@fhHh`@ghHf88V(`@U@ap7`@U@ap8`8( `@Up\p`8( pU`\@@apDDXW((  y`@@dpDs?@@yD( `WpD Dp `@@dpD D88U(`P( ` ( `FpZp8pU`ZP[( ӡ .Z`(`ZpZ`U( A`U@a~~ :>>p8`8( ӈ`PU( P`U@aPY( T`U@8pUUЈ( P( 7`@UpU( #`8@U@( a( a a@8p8`8( `UpUp`8( pT`U@@apD {~MM* x''DXW( (   y`@@dpD yD( ӡ Wmf`fpX  A͈`@@dpD ADM##PZ USER ACCOUNT DEFFINITION USED #99j  Z`V@dpD yD`(   Yɡ t9""p CONFIGURATION TABLE IGNORED "~~[T ?? p`U@@apD ʎDmf Y88T( q`T@d@Tp`T@dhTHd`@dhSHd`S@d@@p-`@-@d`@-@d`@-@dpD~}}  <<DN`Q@R@-@p`-@dpD`R(@QD`@-@d`@-@d`@-pD`DAphl( )pS`@d88S( !`p-` ( x 1 0p` P( 8}ZZT 7))( ;`@ p `hpD@Dp`Pƈ( I( L`@p`(@p T ( x [N ( f`P( xZ$$LGON 10 NO FREE ID SEGMENTS OR FMGR NOT FOUND $LLY `$$ e(+ i @p`P( ` q@ p x ~-/`( `P( L""ٞLGON 07 NO ROOM FOR SESSION CONTROL BLOCK "  !  (+>LGON 08 DUPLICATE SESSION IDENTIFIER~~% DD A(  HM" ((`J&@IhHMpD`,@DpE`L%@KpD l`( `,p,# l`( @FpE`GAphEl( pR ~44բ `( p`pQ`@a( `@p8Q( 88R( 4DLGON 12 ACCOUNT FILE CORRUPT~~ ?? !  $  `((̈`@ah `@ahE`@@ahD`@ @ah# `(   `CpAp`pP`P( $( &`BpA~ '@@p`~pO`@e( g`@@ePA( 7( b`@eHpD`@epFxE% OlDEFyyy/`( b  V3  [*`@@dpD b*D`@p8O( *~~! gBB88P(  pt ul& yp`@pD D' >(  0p 0p  9l<=`( (  ~44s 8`( P8( `8@pD D(   `7( 4MESSAGES WAITINGY <<  t` (+p`}pN`@dhHc88N( t2( ( 爈`p`p1( `p1`2p`3p`4p`p  5`p`6p `tp!`tp"<<   ( `p1(   6 `1pD) Dp0`/pD* 0lD(+<&PASSWORD ?_ ^  |` ( )] LGON 05 ILLEGAL ACCESS}} #@@ ((+p` p.`p`.p,`p-` p`@ pD+ A-.D,( #(0`P ( G( Kp`p ` p`P hX  0( `P ( 6A} ( `pD}* cAA ( gD( @` P( p(0`+pp+` p  z p*Ap x ( ( p `P( (  0  t `pD D`( #_a CCp`+@,(h#HxD D`(̈`$pp`|pM`@bhHHa88M( (p`pp p`p hA@ppD( u DD0D( 0 `A(, $p`@@a( 0`@ah HaX{ 0( 0`P( ( `@apD  D(0p`|pL`@bhHHa +88L( $(vLGON 14 BAD JOB LOG-ON REQUEST׏ 0CC 5(0`p p  ?l (p ` p`p `}PhX 0( @pE`phEl( pK cp`zpJ`}PhHHaX ~~= s==hX pD`@@aPpF`F0D( `@p8J( g88K( [  o(+`}P( ( `@apD- D`pD D( `@ap`@~~~~b >>@ahpDxE DE(C` (   `( `P( ( m`P( و( `p`p`p( p`pp@pE`phEAl~~~(h <<(pI p`zpH`phl(pG`@@@ahHb( (88G((!`@p8H( 88I(   o(+`zP(%(*`p`p(7~>>i*`P(.(3`p`p(7`p`p`@@ahpDxE CDE(0>Q&a`` @M 118GENERAL R$PN$ +@CCT! F    ⃃?cC: ",100? @܂ց<<m** 0L3A! @@@C<@՝(k77XuENCRP 92084-1X449 REV.2440 840523 /SRC_92084/R6000/&LOGON 7Z ENCRP DECRP  tu.ENTR .ISHC  ~~{??A ((A`p `p`p `p  (+@pn@ pm `tp(-pp`ppl`@ohHsHmpg@rg`(R`@nhHopg`@n~HHG piihHmg`q  (a`@nhHopg`@npi`@mig88l(1 HxHo@ն77XZLGOFF 92084-1X450 REV.6000 920904 /SRC_92084/R6000/&LGOFF 7ssjLGOFF .NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN s'EXEC.CPMXLUEX MOD .FION MESSS KCVT&PGNTR %SQUZVALID XFTTY LUSES MESSP CNUMD $FCPU#CNV2RNRQWRITF !DADDREADF "FCNCT MBT DCNCT FTIME RLSCB ISMVE NAMT77 DCMCCLEAC IGETIDSCH CLOSE OPENINIT2 SETAA DTACH $ACFL $ACSC 7t|``LGOF 01 FMP ERROR - XXXXXX ON ACCOUNT FILE ACCESS OFF CONNECT TIME: WW HRS., XX MIN., YY SEC. CPU USAGE: WW HRS., XX MIN773 &&., YY SEC.,ZZZZZZ MS.CUMULATIVE CONNECT TIME: WW HRS., XX MIN., YY SEC. 7DISK CRN XXXXX LU YY DISMOUNTED (POOL)EFMGR GRU, FMGLU  EnJ ~~GBBKAk[Zp`sP(O`@pFA`F(RP((Ap`p`(AP(A`(`op`np`p~ss?<<p`nAp(!(%$p -U[ P(Z`(5`\p`pF <F AG`Z(HKP(O(Rcs##`MLGOF 00 SESSION ENVIRONMENT NOT INITIALIZED #RHH WMp(Ab~[`(5`(pl(R`p@pȈ`p( zZZAZ(AR(p`A@pFF_AAP((z`(`(z`opp`p`nAp((p( Z(z`hppppp(`OPnn99hPX hQX (p`LPhMX (`jp`(`p(`(ap(ҡ  \p(Ҁ`((Fn6*cABOVE SESSION PROGRAMS ACTIVE ï cr OK TO ABORT ? (Y OR N)_}}@@ r`(-`(zpE`p``pp(5`pE`pΈ`p`p`@@pA`pDE((zP(J(TNTOxV`}~~Y??(`Kj`(`@jpFmFp`jPƈ({`t(p`P(`jp`pH`@J(̈`@JP((`@JfpFjF~AAZZZZ`(`pˀ`(`(`pˈX`p`pJJ( `@JpFFp qˀ`p@H(`(`puu??`p@_(oZ[AL}([`p~`(5p`@JP(`z@ƈp@^(`p@(u~LGOF 01 ACCOUNT FILE CORRUPTFF ~(A`@Jp`j@@JpĈ`{@@J@Ljp`{@@JpF9F$p`ƀ @J F~N~[@,p,X~[A]^@@``&@h]HpF`,@Fp`%@p`p`hp`Ĉp`hdp`@p`(`@@p@p`@p`(`@@CCp@p`@p`(`|@@p@p`@p`(`@@p@pFAFz(@pp`@p~`~~W==(5 qNs [`@JpF Fp`@pF jF`k@@Jp`@@Jpp`k@@J(`pp`@@J(`p~v+@@%~`@@Jh`|@@Jh`@@JpF!7F`@@JpF!?F`@@JpF"GF#K6N0wp<S0wpA\~`@~~`w^AA@Jpi~`j@((@JpF!qF`z@@JpF!yF~z`|@p#0wp0wp qu$~^^(//0wp0wp0wp!`ypF F%`w0'p' q v q*u`t( qNs^MESSAGES WAITING qrMEND OF SESSION4f>> qp(uP(A`op`np`ppp`e(p(%0dPm((p(`(& 0lprr55`fPd((`k@p`ihpFe@Fp`iPh('(*`g@p`f(@dpp`@JhHI`p@\(1`bpEa[(r~~;/I__SMP D.RTR R$PN$ +@CCT! F ,1  0y00 @<n?? C@RRA㟁c @@,~@SnpX77X|Ġ7PRMPT 92084-1X451 REV.5010 880627 /SRC_92084/R5010/&PRMPT 7ii$$CLS $CMCL $DSCS $LGOF $LGON $LIBR $LIBX $LME$ $STH.CLRB .CYB.LDX.MWF.SETB .STX.XLA.XLBEXECFNDLU IDGET LUSES XLUEX iGGx<p9( (@}(x@AHx7J (@`(pq@` (`(pph7Xu(1`tp:0v9zp8888@(`9 (`.:9p;(` P(؀`(Fw xGNN(` hr`ޠ` (`.Ahq][{w9q(pjpkxo`sp:m|9h~89o(ڨ] LOGON s A&p7Hhx (A6AA`0%p{&/`@D p @@""P (@7`$@ (P8(``9h](`=`hp](A{0p(`i(`(`($[OO`w(`ބ`9((pp`4hp `5pp:988p(ڨA{0{Aw{) 397(`7#({,9!8(; *% CM LGOFF LNBRK NLR$PN$  ; N= >S=LU Command? _nn8_RRRPRMPT\ TERMINAL LU > SESSION MAXIMUM OF 99 R PRMPT\ LOGON NOT FOUND jPRMPT\ LU LOCKEDxPRMPT\ SESSION NOT INITIALIZEDPRMPT\ SHUTDOWN CM> _ Gn@A _44Xk4;R$PN$ 92084-1X452 REV.2340 830726 P92084/&R$PN$::PCO4[[`n$CVT1 $DSCS $LIBR $LIBX $PARS $STH .CLRB CAPCK DTACH EXECFNDLU IDDUP IDGET LUTRU MESSS SELUR VSCBA XLUEX [spDDAԠ(Ԡ(p0pA(`Ȉ(xh (#p (`(0܀P( h`pp@(E`@(E` {HDAA8(8L܈P(h (hpxP(Pf(Pn(P(Pi(ۈPh(Pg(Pe(Pm(Pl(P(;A`lpyp(pp(`PԀ(AJJA`p` ( (h(h@ Hz0vՀA (hp(hˈ`wp(hXX,  (h(h!(`tp`po(hH~ԀJJp Ԁp Ԁ|0{p `(RU,HELP `Hxhxy`p`py(pRU,WHZATWHUP, `p ((0Ԁ}(H 4MM(&`uhl`p&`uh`p`dp( 3!(^`2hG@H`p(^(fLR$PN$/ CI program not found, Using FMGR  bq(s(~~xfHHH r0у q&p{}(R$PN$\ NO FREE ID `r|pr` w@j0rprH xs`ph P{P`kH݋8(A q 8pxH}Ԁ~O%AA(8xԂhX(hPyPxhɀ(H (ыԀԂ@@@h2(`h2`2hp`pˈhxxʋP(8(xhʋ8~~/DDxhɋ8ˈ(h (X(`4py`(ph` (`(@(`(p`p88Ɉ((A$ppA2(~73SS5INPUT ERROR  (h}P(hHԀP (h([ Ԁp`p(hh@ }(QRURSBRSLTEHE0.GOSSOFOF, FMGXX ,1o   0FMGR FM%%GR ,B % b  **  py  pxHSMP D.RTR *##,FL #@Ts44X=k4;LSUBC 92084-1X453 REV.2121 810416 P92084/&LSUBC::PCO4TTCCLAS CNV2FCNCT INTER LCLAS MBT  MESSP ,PERRSCBAD SESID SETAA eVERSN T$CVT3 .CLRB .ENTR EXECXLUEX ~~DD  x  ((, 5x` h|x H‹` @p @ (:p`0KpPL(P(:M  ((ŀ`p~ffsD@@pM (d(ڀ`(\Z MAb Md`(trdAzd}SESSION XXXX f4SS UNABLE TO COMPLETE LOG-ON  ( p  ( (@ Aނ@8x ߈8ߨ<ww5GG pވx@p`ph ``@Ë` .A@@0<@**+8*8*8+8+*+,00w@44XP[P*LSUB1 92084-1X454 REV.5000 860218 &LSUB1::SRC_92084 422CONVLFSTAA  INIT#LBULD LPARS eMKSST ATSHIF 2mm1$CL1$CL2 $CVT1 $CVT3 $DSCS $LGON $SMCA $SMD# $SMDL $SMER $SMGP $SMID $SMLK $SMST $STH.ENTR CCLAS EXECINTER LCLAS SESID VERSN mFF    `0= 0=p   DhHx>H `@`@H`@`H@`@`@p  A?h?6߻F@@@Ap[p\@_(X`\@`(X`\ ]H^8[(KA Aa`a@>pcpa`(bpbaea(P(8a(tadeaRRe  GENERAL ./    H `@ A`pp(ph``h ~~<< h (P(∈P(`hH``(h````@ Px`((pphxP(P(P(~VGGhX(hx8 8( A  ZpI"h! (6` I YpI""`J`I(H` @XI#.KWKL@&E44X$ek42;LSUB2 92084-1X455 REV.2121 800927 P92084/&LSUB2::PCO4>>F}CLEAC DADDDCNCT +FCPUEIDSCH INIT2 ^NAMTLSQUZVALID >ww $DSCS $LGOF $LIBR $LIBX $SMCP $SMD# $SMGP $SMID $SMII $STH.DAD.DMP .ENTR EXECIDRPD INTER ISMVE LCLAS MESSP MESSS NAM.. SCBAD SESID VSCBA wDD 8p ԠԨD0p` 0AA %() /  5  ; A]mDDDA CCCHEpjpHmp(gH(Z(H`DhjH{zH(f`D@hE REMOVED   }p}hxixn }HmHH(p}P(hn`H{z (((A|suAwr8ii(Aq(A(HqxkA(((pj jjYYI"++`jzpjky0jk(pkxlk8k8k`l@|k8kk8k`y@xk8k`khlOF, YRR,8,1 A AHAAFAA ))@Dx E*8**8* `C*8**+dp<Q JKpKLhJ6 VP\L8K(VLN ]d]^ @;Z~44X2y k5;$YCOM 92084-1X456 REV.2121 810718 P92084/&$YCOM::PCO4 M$YCOM  $LGON $SHED $SMLK $STHEXECtt'+JJAH;Jv($H=xrhJA ('ABpspt`pu($$IxKrstuA'@+AEԃw@<?@>@pt`@ps`( LOGON R$PN$ tr@^6&p7Hhx (A6AA`0%p{&/`@D p @@""P (@7`$@ (P8(``9h](`=`%SMON2::RTE_6:5:15:128 644 0 0 7400 5310707233 33031 %SMON2::RTE_6:5:15:128 $%SMON2 +#+#+#<.AVFST 77XP9SMON2 92084-12022 REV.5000 <870609.1531>&SMO2N::SRC_92084 7@77X[k6(;MESSS 92084-1X458 REV.2440 <841005.1346>P92084/&MESSS::PCO7 AMESSS GGY*$$OP $ESTB $ILST $LIBR $LIBX $MESS $OPER $PVCN $WORK .ENTP CAPCK EXEC IDGET VSCBA GqCCh`H(WxGxHhIx  xP( (P(P(P(P(P(P(Jը`  ՠ(Yx @hƀ` xH3CEEAxxGFP (*AQR @U (AԀP(bP(b(W`(op k(o`(s`@ރԀ HރP(~P(~(WԠ ԀՀ(WMGG`(*Ap P(*Ԩ (7 (7`h`(A`(* (*hHԀPڀ(* Ԁ(HԀ(*H݃ԀP(*(*(CAPABILITY ERRORONSSRUITENOP  @M44X nk66;MKSCB 92084-1X459 REV.2121 810201 P92084/&MKSCB::PCO4 7MKSCB ++$LIBR $LIBX $SALC $SHED $SMLK $SMST $SMVE .ENTR +)DD`@hp/p`@`]p_ (,pa falbi`e@`(X(-`ap_`bpa(pa`j(Zp^xb @pcACg^lah66DApmMg^mTg_l^fAp`k@j(T65f@=44XNk7;RLSCB 92084-1X460 REV.2121 780518 P92084/&RLSCB::PCO4 6RLSCB !!a$LIBR $LIBX $SHED $SMVE $SRTN .ENTR !SSb--`CpDA(pEJEMFL`I( `EpD`FpE((>A'KDMFJ`EhG-ݠS..y/`H(>9JHMEK`HhExHhF()A x. J @ |,<44X(k7;VSCBA 92084-1X461 REV.2121 810201 P92084/&VSCBA::PCO4 :VSCBA &$SHED $SMLK .ZPRV ISMVE KK@((pԨ@p%Ԡ(pA$ &`#'hX%(` ( K@R77X9k7 ;$SALC 92084-1X462 REV.2440 <841004.1619>P92084/&$SALC::PCO7$SALC 7$SPTR  $SRTN  N}$IALC $IRTN iiZ99Ԁ8h388ހ 8 Ԁ x(h3A8   (h4X8(.X(+P7(,p45x7h2x5((hx6(646i@c傣44X_>oP+$CMND 92084-1X463 REV.5000 870326 &$CMND::SRC_92084 4 6$CMND $DIRQCAP D`` m /;OkQUDNLUEQTOBLTMOFBRGOSSDBAGSNCUDBULITL3ASURONPRRUOF@SS@GO@RTSZWSVSVLL2FLRSQUBLSTBR@EQSLTO:`TEWHTIUPENOPHE@%NSESN::RTE_6:5:4:127 644 0 0 2000 5310707234 33265 %NSESN::RTE_6:5:4:127 $%NSESN +#+#+#AhFST ;;Xz NSESN 92084-12023 REV.5020 <890901.0005> /SRC_92084/R5020/&NSESS ;@X44X!Xk :;MESSS 92084-1X465 REV.2121 810410 P92084/&MESSA::PCO4 @MESSS %%$$OP$LIBR $LIBX $MESS $PVCN $WORK .ENTP %}CC@A`h0 (Sp/p0`1p`  (2Ԁx @x88("` x0x/ . PU(;PV(;(AԀ//CPU(HPV(H(ShHW p0HW`0Հ(*ONRU /@+<::Xz$CMND 92084-1X466 REV.5020 <890831.1417>/SRC_92084/R5020/&NCMND : 6$CMND $DIRQCAP N$SALC $SRTN   @^}%CR6S1::RTE_6:5:110:128 644 0 0 67000 5310707236 34212 %CR6S1::RTE_6:5:110:128 $nn%CR6S1 +#+#+#n6AnFST 77Xzi $CR61 92084-12024 REV.5010 880729 /SRC_92084/R5010/&$CR61 7@ͺz77Xi ;RTIOQ 92084-1X468 REV.5010 880729 /SRC_92084/R5010/&RTIOQ 7}}E$?MAP $AUTO $BFCK $BLLO $BLUP  $CIC$CIC4 \$CIC6 3$CJMP i$CLSS $COMN $CON2 p$CON3 V$CXCW$CYC$DMEQ $DMSp$DSCF }[[l$DVC_$EMIO c$ICNT $IORQ $IRT$LIA4  $QCHK $RLU# $SBL $SBUF j$SCCD $STDV $SWCK [$ALC%$BGIB $CALL ,$CDMA $CLAS $CLCK $CLIO $CNFL $CNV1 ($CON1 .$CVEQ 4$DIRQCAP1$DRVM *$DRVR $DVPA $DVPT +$DVR0 $ELTB $$EMCK $ERAB $ERMG /$ETEQ &$EXBG $IMCM "$IO11 ~~-$IOCX #$IONR 0$LINK $LIST $LUSW $LXND $MCRO 3$MPER $MTAT $MVBF $NTRD $PDSK $PERR 2$PVCN $REIO $RENT $RNTB $RQST )$RSM'$SCCW $SDA5$SMCA $SNAP $TYPE $UCON ~LL$XEQ!$YMG$ZZZZ >.CAX@.CBX?.CBY6.CXB8.CYBB.DIV:.DLD;.DSTA.LBT9.LDXC.MWF<.XLA=.XLBD.XSA7.XSBLBB [C 3 8pPDpPN(Q0LpP`Pو8(%ƍD@`67D87`h ؄PN(P(@OpHP@ C(h @XM[BHH([p@((@E(`P(DpH( /1`A9 H`(e x)H  (H(((PX(}0pD)8`p*HD(+((,D)(-H)h ( OOH@X(( x(` p`(Hp :;`H!ph@< =H>?AA@p(J@: ڈ((((@ŋILL INT XXSC03 INT XXXXX {~~>>Hppppip_pnP(u`p`plht<l88l (`h (p_$`h  (=xhr@spPs( hHH  (`!(HH5H ("(~k::4(("!(!`h`hXs(Xq(@@!(vHpnsH(.r(x`pP(`(w`ʈxlxoPM(KhH (u`h@(pmQFFp^hH`ns((` 8^(X(`@mPψ(g(hxl xo(? hhMhhNhhhhhh`(IO  Q( @x==Pe(HAH„(zxvh_ (`ˆh(`vh(z(hvF@@hЀ`(z`hXs@(HA(pmhxl xo@gшsp@@P(ـ`>> m (`PM(ĈhHP(pp`(v (uhXX HpxpP(k``pD@ (|`r@@Bp 8x@php`@ `@@o==(|`h @@p`pP(+P(+P(P`lZ`mZ(/88((kP(V`@Y(Vhp @h  @HX(V`tp 6@@(`@0pOEE(k`hu Pu(khX(phH Z8 ZsPr(+ZnpLOADMLLDRx`(``n(#`(( <  k EED$$`H/(6pp sP(8(׈sp8E.??AD: (RQ !`(uhX(X(k(k`(k`@P(khpX`XM(숀`pmh (h ( @`@x@hʈX@p(z`(h AA(((( `i( `hi (h`i(C( (`(kD(`i(z(kxpDp݈hX 0hh `o ` (9`i `M:??P(b`D` x ``Pf(aPeH ePe(U`_(^`AH9mC`pm`(`(R`m%(UḦ`(  @ h`PM(hHhP@@ P~~Py@@AH``0ph (@=)`AhψHx`&h@`Pʈ(jj(`H`lp"`ph0hXD(!*(H@(h( `@@(u7~ABBDhHrH6@D`@(p܈H@`@8ΨhX D`H`nH'0hp È@M0Ps(@@NN%b%% ( 8@8x B(p (@Hx(h!8  N  S<<$SCCW 7$SMPF b$STAT f$SYMG +$TLOG $XIOE R$XSIO 0$YMGq'$$BFO $ABRT $BFOT $BLLO $BOWN #$CIC4 $$CIC6 $CLCM $CNV1 $CNV3 %$COMN $DLTH $DMEQ $DVMP $DVPT $ELTB $EMSM $ILCD $IOER "$LIA4 $LIST &$LU?? $MATA ($MPS5 $MRMP nn+$MTAT $NTRD $PSTE $QCHK !$QUXS $RTN)$SBL $SBUF $SCD3 $SDA $SDT2 $SMAP $STDV $TYPE $UIN$XEQ,.CAX+.CBX-.DIV/.DLD0.DST..LDX*.MPY1.MVWn;,??p=x8hP`/p9@/x9hA(!x:  ( (`=( Hh:@9(&x;  ( `88;P;;!('pHp!p"ppp7HHxHxc?==x$ Q C(`pP( (_Hx$ C( (@p(xPpp"ph (x@h P(h$Hx7 @(xh$%(h$H|??P(HQ*@p!@K#h @`$HP(8H`%Hh!`" ((((`$P( P ((!(`7((`$P(8Hh%@``" (h(("AAD(`@H#P(I``_@("p (HQAH*@@K#p@p8Hh%@h+H` (p"p@(h" @  (HHy++0ȃh hȨ0!#p`D,`  @Ѩ D,` ` ''H G@` s'D`@ p @ p `Jp1(1:IDDPHIpH`&ɨI`@ -@p@ C( Є(xP(i8H`%ɀ(u   Q Q QP(8Hh%@`(u Q (??(`(`Mph( 8(0J8 d MPM(`@(`hHOx0H(0p`. ( 6r@@ p= 06 (MPM`P  /0 50=Qh @xI  (( p<I`<( PM(7N HH x+`?@?WT<<Rppf@p=@p ( x8x:`=p;H` @X;(q8:(j(h (~p9hRHM@8(`9hx@8@8phRHx8`(`f(`Kh8j??H!`R@h8`=>@ Dp/p.p=HˆxRHPňx/Pp=h8`pR R`fRhRx(<<pbx+xIx@@p.! C(#pc ( x/(Hapc((턈HO x`c(`bP((I!(`b(xHK@x xcf(NHP(TBBxBH``bBu xd`+HLpehB QP(@?(8P<(0P=(@>(@@(@hB(C?AA` 1L(N (HOp`c(T~~9Q@@`b((Zm(m( DhHf`fH`PmHHHm`p8hx9H(H_88(}@p(P(`9P(P~AA(`9P(Z`P(  ((`(/ (yh (`xhhp@ ((H` (HK x+`p<(xf(`bPK(CCP(`KHH(`+@x/A0 /0#* 0Hp&`( `)p'`p,`p-` (hBH0(d׀K(  hH+H``B@he GGx+`-p`,p.(ZTR NNNNN E XXX UYY S S UH( h_X0Ahax`1d8_ha``@dP)`bpa`_PF@0pQ xPRTF@_p_(@hPHcX)z[\CC@hbF(  pu0peh&(r(rhτ`u'`e fQ Q (H (v@O*@`A@ -Ĩ눈PppYYn..ppppppppppppphP(ÍƄF PDŽGY@ 44XP-$RTEMA 92084-1X470 REV.5000 860929 &RTEMA::SRC_92084 4&&$BGIB $BGIO $EMCK $EMSM /$EXBG &XX $BOWN $DLTH $DSCF $DVPT $EMIO $ERAB $MATA $SDA $SDT2 $SETP $XEQ.CAX.DLD.LDX.MPY.MVW.MWF .XLA .XLBX}AA h-`((`@}(" Q(@@@|p(( ˆ@p8  Hp P #(Fp`ψ@@|phH(5P`h@H!(`@p@h@xh &#A??xp`@phHx Hxp@(h phH@H P(g؄(~p `p숀@ @(!@(!`8(k~~Դ@@ ` ` @`!/`ԈԀ/pxh0Ɉ@` @h``  @p `pDh`@|h p `p@ ~DD` 8(hH0h@0ɃAh  pxHhh@?"H@@pCCD`` p D@ @ p@p`@p`p0` (0h- h.h,`@F`+ `*(EMVM @( p `(HhXҀP /Lj`p`P/`G==p x` @@`!(Yx`Ԉx p H  H xH /8(|h` PH (wh H H`H(` h Ԉ` hҨ/\\11  p@p@p@(`@@ hH `@*`h(IO@ ( ( @H|H*\@44XP-:DISP6 92084-1X471 REV.5000 860909 &DISP6::SRC_92084 4{{S($$TMP f$ALST V$BG1W$BG2X$BG3Y$BG4Z$BG55$BOWN $BRED $BSWP $CAN1 $CAN2 l$CLRD S$CSWP $DCPU g$DLST $DS1K j$EFL{}}@a$EMID e$FLST $IDLE $LICE i$LKSW M$MLK1 N$MLK2 O$MLK3 P$MLK4 Q$MLK5 R$MLK6 S$MLK7 T$MLK8 U$MLK9 `$MM1a$MM2b$MM3c$MM4}{{d$MM5h$MOMF :$MTAD 0$MTEN $NEXT I$NODL $PEAB $RENT $RSWP [$RT1\$RT2]$RT3^$RT4_$RT5$RVAL k$STIM $STR2 i$SUBF {55n$TOP*$X301 $XCQ $Z1 $Z2  $Z3  $Z4 $ZZZZ 5~~x+$?MAP -$ABRE $ABRT A$ALNK $BGFR #$CFR9$CLEARID$CPUF :$DBRK $DREL ;$ECLR 3$ELTB $EMRP $EMTB 4$EQCL $ERMG 8$F.CL @$FLNK =$FPTN $GTSZ )$IDEX 7$IDL $IDXD '$IOCL ($IRT~@.$LIST $MATA <$MAXP !$MBGP $MCRO 6$MNOD $MPFT $MPIO $MRMP "$MRTP %$NBGP ,$NFEN $$NRTP 5$NSET $NSWP 2$OPRI 1$OTAT $PRES B$RLNC $RSRE $RTFR /$RTST *$SETP 0$SGAF &$SIPyy$SMCP $SNAP $SOUT $SPIN $SPRI $STR1 C$SUBS $SVAL $SVMP >$SWP? $SZIT $TRRN ?$ULNK D$UMOM $WATR $WORK $XJSB $XSIO F.CAXH.CAYG.CXAE.MPYJ.XLAI.XLBK.XSAy??pHX5p5xx@'(p.P hhH}@~ `@yȀ($HzhP9`.P h-h/hh`@)p`3 4 (Xh?CCHH{ (X@!(X,E#@@" ( @|, H@;`8(a`@8(`.P (`0OX(M(P(hU ((h RRm(((h. ((@` x. (PPP(pp`p`phx x x xhxA`p+((Ryo??7$EMA$&p @$p@&pp@$p @%p @!p@!p H (p hπX5 (H(/P (((H((׈`X((}4==(P (8p0 ( h p1h  (H!( h H}( H`!h0X!`"(`%h0X!H`$h1H (`0P!(f(uh0X!(80(A`,ELH@@6 (@!(f͖->>(u` h P5(qh5@ppH` h(e` h P5(qh5H`Mp` ph h H*/@|p3H=H&S `@3!(exH|x(gpppx` ;}k@@h %p2 p` pp5h*@H hxh@((-AE@`hpxp`Hp+(׈h È( x7 @@(,E#@@6,EL@@6.h(h@ P.H7<0H7`!FhψH+(SHHGh:(hH)  ( `(`2@(`H(h2H OO X#X$@pDp,((`h `)(  qhH$xx2  ?|@*A,pTELH@:0:GGpMpNpOpPpQpRpSRpU:ZYZ _^_#dcd8.H(0t tl`Vpe`Wpf`Xpg` (A=R*@@(tO (X (`B(`{@(>((`(AI! % xxӈAO`׈xxpP.HphMx`hO 0pp`Rp`Upp @@`(`h `H(`ш(eh (`(p`ڈpp`p(`׸Ј`Ѱh p`(Ol`]hM?`[peH@(OlAAH`XhM?`Vpe@ R%P#(( OOh P(+h P('P(3hS P(#P(/ O( xS`9(' `8x(' x`7(' x`;(' x`:('O P(O-dB>>(`fhMD?@(O(WPe(WPP`ghM?HAN(\NBh OH8.0tRI `[pe`\pf`]pg` (=R(O (X (`B(`{@y_@@(>((`(AI! % xxO`AxxpP.HphMx`hO 0pp`Rp`Upp `(`hH `ˆ(`???(dg (`A(p`pp`Ĉp(`׈`€h p`(R%P"(!P#(%%(P6(` @+(DHhM` (DhU Ri??(8. (l`h(C(``pe`apf`bpg=SO (X (`SB(>((*(%R%P"(%`S((C`S(>I! % xPxeAO`fixlxMpQP.HpmhMxn`ieP>CCHhiO 0pSpd`Rpb`Upc@pR o`d(`ghP `hb(`cbb(cf (|`fAi(~pQ`lpMpd`epP(L`S׈b`cb;;bhS pS`P(P (hU ((OlhMOpD:`O(R%P"(hhH"H!Xh(`h:`bhh?H``pe@`UROphpipj(H+x~@@pH%-p` @` Dp(` (ph5  x5H`hDP P(hpψx(x`ψ0hp Np `Hxp @@""`!0UROp`Rp`Up`p "O@.`ab@ "??`ppp``.` ( (4`(hH&@h.(?`׈(hH+ `"h H:h.@IHoJhHppn(q@hH!JpmhH"xl@JPmaDDD(q6I@HoJ@|بIP(xhψpx(`nH(6`mAKl`0`!0URpNp`H5HxpOp`Rp@`UpIÄHoJ@|p @O.DD`I`ppp``.`(xЍ`-pk @`(`x`p .(`X @xɀ h@x1x(`@"@|p0##5``0<#@7;44XP.DISPX 92084-1X472 REV.5000 860307 &DISPX::SRC_92084 4kk)$#SEC $IDXD I$MNOD $MPIO $NSET $NSWP $PRES i$SETD $SMAP $SOUT '$SPIN q$STR1 $SVMP $SYPT $XDMkJ$BOWN $CMST $DREQ $DVPT $EMTB $GTSZ $IDEX $MATA $MCHN $MPFT $MRMP $NCHN $NEXT $SCXX $SDA$SDT2 $STR2 $XDMP $YMG.CAX.CAY.CBX.CYB.DIV.DST.LBT.MPYc".MWF.XLA.XSAAAxHp@"(t p`@_(((pxhH@xp(2P(A`@H PP(5H ` !(BhDhHABBH`hh phH(cp6@@p (c@@h`hHHhH h`hy0ɨhyɨHDp``V2JJy@ !@|py@hp È((yh È(@`ɈhH`hHhȋѨH/AAPڨˈ8HAH@h? xphHP(H@p@P(D(`hhD`hы@ `ɀ(xgypc@&p%N<>H@8px8@p@yh(h xh`xh p p h6HH Hp`iph ` `H@y?? `8`p`H`h?`@p@AphHapDHHpFpEh6H HFHpGp`BA@E G@Dpx`iphH@PC 'CC@(;`Cp`p`C@E AG@Dpx`i`hF@ hψHIpo8o6@ hH@opohHp@ho  H`hohh j55hI`hH`@p`0p@`p`p@p`@pȈ`@|p`Ah h@H^44XãVk-";RTIME 92084-1X473 REV.2340 830803 P92084/&RTIM6::PCO4YY|$AG1}$AG2$CLCK $ETTM $SCLK ~$SN1$SN2$SN3.$TADD $TICK $TMSC @$TREM $TUDT YZZT $AGE$BATM $DCPU $DEVT $ERMG $INER $LICE $LIST $MCRO $MSEX $RLNK $RVAL $SNAP $SNPX $TIME $WORK $XEQ $YMGZsb==H8( 8( J`uhvpx8`C(p @∀@PX!(h  ( h~ (TX("8(" 8|(%D (+`@s(P92084/&$ASC6::PCO7*$ILMS $NMEM $OPMS ((tILLEGAL STATUSOP CODE ERR CMD IGNORED-NO MEM(@>B%CR6S2::RTE_6:5:104:128 644 0 0 64000 5310707237 34463 %CR6S2::RTE_6:5:104:128 $hވh%CR6S2 +#+#+#h3AFST 77X G 6-$CR62 92084-12025 REV.6000 920521 /SRC_92084/R6000/&$CR62 7@J 44XP/EXEC6 92084-1X476 REV.5000 861007 &EXEC6::SRC_92084 4||X$ABXY X$CALL e$CPUF G$DHED $ERMG $ERRA $EX15 $EX16 $EX4$EX5$EX8$LBR$LBXD$LEND $LXND $MPER F$MVBF $NFEN |33B$PDSK [$PWR5 $RQST E$SGAF $USER $VIOL ;$XEX3}}P$ABRT $ALC!$BOWN 9$CLRQ $CNV3 "$DBRK $DMS$DSC1 $DSC2 $DSCA $DSCB 5$GTIO $IDL $IDLE ,$IORQ $LBRR $LBXC $LBXX $LIBR $LIBX $LIST $LREN 8$LURQ -$MPT1 .$MPT2 }0/$MPT3 0$MPT4 1$MPT5 2$MPT6 3$MPT7 6$MPT8 4$MPT9 $PSTE $PTST $PTSZ $PVCN $RENT $RLU# 7$RNRQ $SCLK $SNAP $SVMP $SWHO $SYMG $TRRN $XEQ&.CAX'.CAY(.CXA).CYA*.DLDjk+.DST#.XLA%.XLB$.XSAEXEC XLUEX @@EDPJh[@ #pZPN(^POH(]x8PRH(PS(PPH(PQ(KPI((`ZLx ZM Z#(#؈PT(^PU(]PV(PW(h (p`D@xd@D!@(`$@DDHx`(HxD| D  pX @#p @x@Hxx@\ (7pppÈppppLjp`YppD`#P(7(y@88 BB(x#phH8`p@(7@(7p`@ h5Hh!x(8(H (8( `LH(00??1HH#(`p@88`%H (h@@#& @H#'AAH`p(`J(p#@D#p`pًHpPJ@##Dh($D )${GG(h C(HOր`K(' H(&@xW*A+X`P`R (Hp\`Zxa*+Hb`Z`\(H`L(H`M(H`h  ݈`Nh@(MPRQREEXQDM VIO^UUUL = XXXXX [XX INST = XXXXX @`{``nA(oCPU BACKPLANE FAILURE |IO16 CPU FAILURE ILLEGAL INTERUPT TO SC 0AA*+҈hP `pxHxD@A*+Հ8GJJxD*+D`*PҨ+@h#@p #ph( `(ABE XYO ABE XXXXXX XXXX XX X 0 pxP(h D(X!hdx hx 8 HJAAxHxHXhp p D0pH` p (Hx`(A*X(A+@A߈`h PP(8`@O (8pA*X(3@+h@"=5DD 8hP(Ph (PH(PHH#*+@`@xD*+`hD8`hPP(sX(s@*+`H(|P(|X(Xgg"#y99(X(H`P߈hp @*p`0p`AP(*A+(*+`HhX(|`(j PE  g6eLEAF NODE =  XXXBAD LU WAS55DPIO12VM! $PROGSEG PROG = XXXX XX SC 051314,,,-./0123,4,,,,5601((789(((@ 44XP/MAPOS 92084-1X477 REV.5000 861211 &MAPOS::SRC_92084 4zzot:$ABRE $AGE;$ALDM $ALNK $BFOT $CLCM $CLIO $CLRDBT $CLRQ $CREL $DBRK $DEVT $DLAY a$DMAL $DREL $$DREQ $DSC1 zzzi$DSC2 $DSCA $DSCB $ECLR $EQCL $F.CL #$FLNK ($FPTN $GTIO O$GTSZ $ICCA $ILCD $IOCL $IODN $IOER $IONR $IOUP zzz?$LBXC B$LREN $LU?? $LURQ T$MAXP $MES2 $MPS5 $MPS6 ^$MPT1 a$MPT2 d$MPT4 g$MPT5 U$MPT6 X$MPT7 j$MPT8 m$MPT9 $MTAT zzz$NTRD p$OPC2 [$OPC3 )$OTRL @$PRCN $PSTE s$PSTR O$PTST R$PTSZ $QUXS E$REIO /$RLNC $RNRQ J$RSRE v$RTST .$SDRL 5$SDSK z]]$SNAP  $SNPX $SNXX ^$SUBS 4$SWP? z$SZIT E$ULNK J$UMOM $UNLK Y$UNPE $UP j$XJSB $XXUP ]||$$ABR Q$$AGE W$$ALD R$$ALN 0$$BFO &$$CCL D$$CLRDBT $$CRL B$$DBRK1$$DEV 6$$DLA H$$DMA $$DRL $$DRQ $$DS1 $$DS2 $$DSA $$DSB P$$ECL 5$$EQ2 4$$EQC ($$FCL S$$FLN T$$FPT |l%$$GCL L$$GTS ;$$ICC $$$ICL ,$$IDN )$$ILC 9$$INR 3$$IOC 8$$IOE .$$IUP $$LBX $$LRE 2$$LU? =$$LUR M$$MAX $$MP1 $$MP2 $$MP4 $$MP5 !$$MP6 "$$MP7 $$MP8 $$MP9 *$$NTR $$OP2 -j#$$OP3 $$OTR I$$PRC 7$$PSE $$PST $$PSZ $$PTS '$$QCL :$$QUX $$RIO U$$RLN <$$RNR $$RSR $$RTS $$SDR $$SDS >$$SNP ?$$SNX O$$SUB V$$SWP $$SZT J$$ULN K$$UMO +$$UNL N$$UNP II\]-$$UP/$$XXU $DRVR $DVPT $ENDS $SYMG $XIOE X.CAXZ.CBX@.CXAG.DLDE.DSTY.ISXA.JPYC.LDXF.STXI S55@@`pH`08@8(A  # ($ -) (32.2~~70095>:ADIENJQTW!Z"]#`cf~7g44iloruv(~z ~BH$%&'C~~448()*+,.-/H0è823ШH(`p~~~44(4ӡ5٨6ި789砈1슈:見;<=DAEAF~%%lx` GC>` ?%.55PQ"R'#S`(-.TT3/U`49:VV?;WD@II dH88EJNJKSOLXTM]YN`Op`iaH(pH`jXYpj`8(p}H@p`j??Gpp@p`j`p`hZhЀ`pHH`hZhШ?ZZݶ//(E'Dp `X`` DXG8Z@|=44XP/0SCHD6 92084-1X478 REV.5000 860908 &SCHD6::SRC_92084 4~~H$ABRT o$BFAD p$BFCN $BRKP $CLEARID$CNV1 $CNV3 3$DDDT $ID# $INER $LST$LSTM $MCRO Q$MERR $MEU$MPT3 6$MSEX $MSG~$NOMI $OFPR H$OP $PBUF t$PLNM 4$PRAM q$PRMO G$PRMS q$PRSE $PWAB $RLNK z$SCD$SCXX $SFAB $SHEM $SPRI $STRG $STRT II$SVAL $SWHO $TERM $TNAM a$TTNM *$TYER $TYPE $WATR $WSTA J$XPRM I}}<!BITM 6$BFOT -$BRED ,$CES;$CGRN $CMST !$CNFG $COML $CREL 8$DBRK :$DBTB E$DDT$DLP4$DMAL $DREL $DREQ ?$DSCS $EMTB "$ERAB $ETQ1 $ETQ2 $IDEX $IDNO &$ILST $IOCL }}}$IOUP $LBXX $LIST +$LMES 7$LU?? 5$MATA $MESS $MPFT $MPS2 $MPSA $MTAT '$NMEM $NODL 0$OPC2 1$OPC3 /$OPER $OTRL $PLP%$PSTR $$PVCN $RLB$RLN($RLU# 9$RNTB $SCD3 }$SDA3$SDRL $SDT2 =$SHED >$SMST $SNAP .$TREM *$WORK $XCQ)$XEQ$XSIO 2$YMG#$ZZZZ J.CAXG.CAYC.CBXK.DIVM.DSTH.DSYN.LBTI.LDXB.MPYL.MVWD.MWFO.SBTF.STX@.XLAA.XLBP.XSAkEXECH@@Hp`p`]  (5HpP (MP (LhP(M8 (=HPC(MP (DP(ixD8hxjh@x (@jP(_HC(d`&h (@p@ (A(U@??AAj(. ta(M`wh(Hh*@x^h (yXC(X('X\(X((@r t`(IB(2(8 (vHpB(2h*H`J(@(m (P DD(愈(`*h4@h*Xp$HH`#x#Hph`^D(@h*88^hxh*Hx;8h (P(~JHh*X0( JAAP(P ߀( (  (yh X(Hh*H\PC(h*HB@5@ (`*@40( ( (N戈L0H(怈E( ,>>(҈  (hH h H`*@ &H@ N`P(2P (=(@@@ (=怈KC(20F(`G(DBAA0(@ _0 MPCNh*HNh*@ xihrDpj dNPi(j8j(aNp@s0p^N:9@p @p @phtI=BBHx*HxHxppHx8jhHjx`!(C`jhDD`*hHHJ(`*hjH4`p X (Hxi X*(2BBiP @piH(P*(pH ( H(*`*ihX\(݀(`p*`p HppopHxpx<@`p ( (`o!(  @CH; ( h9! @@@C x0ONSSGOPRLSABRUSZASURJIIULQUENWSVSAGSNCU1STTITMITLUEQTODNBL^RTOFBRUPLGOPDBg156ph@plhxiq 8i(zx`pjpkhhXl(8h5!hH (hH<99 P(P(hkX(kp8k(qpiDp`kP(̸ijX8jPj(Ԉh`PhфxmBjHaHa(@8j`mhjXk( XkP(PVVd++hlXhP((i`h  DhXk(X(̀!ߠ  8(8qqB-tnu,`GV7h6JJh3 hx3A( PX( =E P>Ap0 ((+AFG(+AX-HH(+``(%p Hp ((pDp}.!((+?@`p@`@h H (>pD@pּAII@h @p`@ph  @p JIHp`@)HJ``p` p` HJhH`Hp`@hH J`܃.@p|aHр(`*@GG`&(6ps(P(`s@ (pj@(`j xHsx(6P(6h6(dH@ (xxXs((6``Ā(6NO LGO SPACELGO IN USEaHh*xs OT@@(Hh*`@̀`P(` 8H!()`TPp` @8 (怄@X ( `PhsPPH()`P (@()xsH\ %HxlH xj %Hxmj jѨ~~@@pnP(h((jH  (ampk@(ahsH!(*H(@hl pl   G pn `lG @npnjhk @ @pkh h @xim@~_QBB(U@i8k@n (aKi p`khsHjm  PH\H@ps@ (@  `s @ ?NPID??@ (B@xsH .hsHπPH (Èhs8`hH`hs HS( ?<P(\h< (H@`+p< +`?(K H8()x|p`h|D(%'pY'(@@n 8()x|`iqqGGGp`HP(Np݈`ih|(, S=?? COMMAND ?@OP,_~`h}A@M!8()H (hpxp`,( PL( `:pjho6HNP(8p((5,8j( ( BB@H`O 8p5`hpxppo(ps@p0hsH`s3`(phsHp p 0@phs7D`hs!D62PROGX ABORTED  `H??H  !hHH xjhXl(S(@(ht(H H pH!P ( %HHHp(j(`(vP (8%HJ(pjhHIJPjh9CC(A`ph*-q()Hh*H\((:@h(@J(`pjh@(m 8j(X@`@ @@hHP@ (`jPk(]( XqH`*hyJq xr=|BBp(`C(C((hpq`q(h B( `P((pq@hq( h hhhh`("SCpxph Pp(H @ @d#77Xk00;$ALC92084-1X479 REV.2440 <841004.1616> P92084/&$ALC6::PCO7++$ALC$$IALC a$IRTN $MAXE  $PNTR  $RTN+ u$LIST $SZIT =+@@(!h 8$88 8 h a 8 h  `@@ (`p(xp (; H(6H8$(9`!8$$p! Dx@<<X(4@! p!@(>@(Y@HxU UhU(^px h$x ppap$@(ppxH(ohX(HPPA|&&(H$HDH b(D8@`8aa8hxh$(P@B44XG]P0PERR6 92084-1X480 REV.5000 860421 &PERR6::SRC_92084 4H$PERR $PETB ~~$ABRT $BFOT $CIC$CNV1 $CNV3 $DMS$ERMG $IDLE $IOCL $LU?? $MATA $MAXP $UNPE $XCQ$YMG.CBX.CBY.CXB.CYB.DIV.DLD.DST.DSX.LDX.MPY.SAX.XLA.XSA~(BBHptxu` p_PpvHHxwxxE x`pz`p xxx`{(#`}`~hr`(.`}`~Ɉhs`|`zpH ` @xoDAp`xddd.B==He```gHHhxhwH`vAAhuy(Zy`t(\`t@E͡ ]aPE @ XXXXXhDMS STAT = XXXXXX d  b LPEExE ((EEP(`zp` H@h `ph (! (`h(`h(| ` (`@_(@(`@?pHH  (`( (/H  ((/?h (/  (`A@(x phHP(ӈ`pE`AAA`A`AA~~K N<<Ehx`h(` 8(T8`Xp (cx`|Ɉ`zp`@AOH@DP(KQ(&(8(LjHhPxBTpC(DQ(}hPH(&(~}==8(hPxCHTPC(pBD&(hPhB7phCxXB7׈0p`C(DR@RT TPC((`(p `hD `׀(p(պNNH`@x#A$`(ހH`@xA`hAD Hh (Kx``hE`@h`XD@( (UUUUU PART'N XX DOWNPE PuuPHHG# XXXXX BADSOFT PE PG# XXXXXQp@&R@@8&&`@ O7pP@ApQpRpSpTDu@T44X^ k1;$$TB1 92084-1X481 REV.2121 810613 P92084/&$$TB1::PCO4 $CS80 @P44Xg k1.;$$TB2 92084-1X482 REV.2121 810519 P92084/&$$TB2::PCO4}}$#DP$#TRK $BGFR $CFR$DLTH $DTAT  $DVMP $DVPH $EMRP $LMES $MPFT $MPS2 $MPSA $MRMP  $RLB $RLN$RTFR  $SDT2 } J $SMEM  RS PLEASE LOG ON: __   @ S,44XxS) k2;$EMTB 92084-1X483 REV.2121 800408 P92084/&$EMTB::PCO4 >$EMTB  @ύK44X=k2;$BITM 92084-1X484 REV.2121 790420 P92084/&!BITM::PCO4 ;!BITM @@44XU k2!;$OSAM 92084-1X485 REV.2121 791016 P92084/&$OSAM::PCO4t$BRTX $OSAM Y$RTNF px@@̳77X@G 6$VCTR 92084-1X486 REV.6000 920520 /SRC_92084/R6000/&$VCTR 7||ju$$CLS A$$CPU r$$LAV s$$LSW B$$MC.$$OPv$$RN# t$$RTB $$SEC :$ACFL $ACSC N$BATM w$BINT n$CES/$CGRN ?$CL1@$CL29$CMAD |"$CMCL $CMST Y$COML 5$DATC $DBRT $DBTA $DBTM $DEMT P$DLPp$DLU2 q$DLU3 $DLUS $DOSM $DRNT 6$DSCS J$DVPT b$ELTB R$ENDS $ERAB U$IDEX $IDL)$IDNO $ILST $INPF $LAST $LBRR  $LBXX <$LGOF ;$LGON $LIBR  $LIBX $LIST >$LME$ C$MATA k$MAXI E$MBGP ~~rD$MCHN $MESS Z$MNP$MPFA $MRMA F$MRTP 3$MTMH$NBGP G$NCHN I$NRTP $OPER T$OPRI 4$OPSY S$OTAT Q$PLPj$PNTI $PVCN l$SALI ~l~[$SBTB $SCD3 $SCRN $SCTA V$SDA8$SHED }$SMCA $SMCP |$SMD# $SMDL ~$SMER z$SMEX $SMGP $SMID {$SMII x$SMLK y$SMLN $SMST }}Sa$SPCR m$SRTI X$SSCT =$STHW$STRK K$TIME $TIMZ $UCON  $UIN$ULLU $UPIO -$WORK &$WSTE $XCIC $XDMP $XEQ$YCIC EXEC} 8XLUEX ~~!BITM &$#SEC $BRTX $CLAS $CMND $CON1 $CON2 $CON3 $CPU# $CRN# $CXC $CYC)$DBTB $DMS$EMTB $ERRA $ID# $ILMS $LBR$LBX$LMES $LST$LUAV $LUSW #$MAXE (('$MPFT ~KK9p($MRMP $MSG$OP !$OPMS $OSAM "$PNTR $RNTB $$SALC $SCD*$SCTB %$SRTN $ULU $UP $XCQ$XDM$XEXK  <<  ܠ    ؋<QQ%%  ߀ ߀((ܠ ܠ؋ܠ8((8'(8&((Q]]Q);; ؋  p K c]jjj--"#$%  &6! '() *j@ʙ#433XMk3;$SIP92084-1X638 REV.2121 810910 P92084/&$SIP::PCO 3 N'$SIP $LIST **؄p8h ԀۆAA*@<Z44XmP1 $TRN6 92084-1X636 REV.5000 860908 &$TRN6::SRC_92084 4'$CRN# $TRRN <$ULU**R+$CGRN $CLRDBT $IDNO $RNTB $SCD3 $ULLU .LBT.SBT*<<`gpjpkplp8kkhPk8( 8jjhP(8l(hk`g HjjpkhjH8( x\ph@gpj`0hj(5ij8\H`j8dd*<11Hp\x xHxƈ`hHH6xlDpkhl(]8l8k(L !(Yj8`g@\@gX(Ppjhl(Pd@/|N: H pH!P ( %HHHp(j(`(vP (8%HJ(pjhHIJPj%CR6S3::RTE_6:5:155:128 644 0 0 115400 5310707241 34647 %CR6S3::RTE_6:5:155:128 $%CR6S3 +#+#+#MeBHFST 77X 1$CR63 92084-12026 REV.5020 900126 /SRC_92084/R5020/&$CR63 7@"44X(k4;OS1EX 92084-1X488 REV.2121 810928 P92084/&OS1EX::PCO4OORkz$$CRL $$DRL $$DRQ $$DS1 8$$DS2 $$DSA 9$$DSB $$OTR $$SDR $$SDS $TATO>> M$#TRK $CVEQ $DLU2 $DLU3 $ERRA $INER $LIST $MCRO $SNPX $TADD $TREM $XEQ>7HHh`@6(ԃ7(  (ԃ (@@E(`X1`ՃċՃÈ`P2(-ԃ(-hH0鈄`(Ap`(ԃX3(h`@5(ԃH>>ԃ5P0( Hԃ(p`ˆ(dHP( 8(Z(-`z(- (`P0(wԃP3(whH눈0`ψ(bHxxpp`7!p`@^B==@P@p % x8HP( x ( ׈1P(H1P((888(88(zh4z h(h1`@(DRHpP( `pWWj))((pPXhX7(׈H@``h`(ሀ@(`P(h"W;u@@(@pHp` P((X((`x@hH`0`(p P( (!hjxp`p D(/hH``@Y.>>@(<8h (6HH(8h`@Hk (W (J8@hH`(T`@(T@hxh h`@HHk  xh` 8([`@hXh@hkkl77(up(wH8(o kx`p(r8kH8(z(u@p8 (8h è(k))@`p`hjH8(h xh xh @ x()  @44XP13OS2EX 92084-1X489 REV.5000 860513 &OS2EX::SRC_92084 444Ay@$$ABR g$$LBX $$LRE $$PSZ $$PTS $$RIO  $$RSR 4}} $ALC$DHED $EMID $ERMG $IDEX $IDNO $LBRR $LIST $MATA $MNP$MPER $MRMP $MVBF $PBUF $RENT $RTN$XEQ$XJSB .CAX.CBX.LAX.LBX.LDX.MPY.MWF.MWI.XLA}_.XLB.XSA.XSBDDx@ @((P(` H(@p#h`@܈p(!h(`@Hx (T(YX# h$H\p#h  (B$h D`#DBB0وHhH`@@@D8h( @`DD(`@H(VJ`ehf@(RE @xp#8H@h((Hx= (`xP#(yxÙCC@=( !( ((VpApb`8HH@h @Ab H08b`@b (Hxhx= `PA(8`m/DD` p (H܈ A@ Hx xhψ(` (!@p#Hx=phD@HaH#(Ap= pHHĨh,K @@(H( Hۀ (hψH  p=xوxp> @xHx#h#@Hh`=D@H ( p>`@(j=x!lMBB`@p#H(]ph>@@ (t(dpbpc@ ph# ˆH(K@`@\`@`(g (k`@P(d`@(@p@(@(mNN@@ H(AH`PD H\H$HH AH\ (@H Ā@( ( `(aRQ@`@(H(`@\`hpp4;;`(@hHHHpH@H( H@ @@`H(À( ?| p@Lvk444XDpP2 OS2SC 92084-1X490 REV.5000 860507 &OS2SC::SRC_92084 4G$$MP6 k$$MP7 $$OP3 $BITB $BLLO $BLUP $CKLO $CNV1 $CNV3 $CVEQ $DLAY $DMEQ $ERAB $ETEQ $ETTM $ILST $INER $IODN $LIST $MATA $MNP!$MSEX $PLNM $PRMS $SCD3 $TADD $TIME $TNAM VV$TREM $TTNM $TUDT $UNLK $WORK $XCQ$XEQ"$XJSB $XXUP &.CAX*.DIV#.DLD$.DST,.LDX%.MPY'.MWI).XLA+.XLB(.XSAVnDD@pll" h((@h H (Xp`z@ x׈pyh}PyhtxuhHqPyxqxs#Hxwhs׀HxvpxhqHvӄrpzwxq$DLL#${hqȈ(O`x`up `kp@#`o@@#H$}`nHp`m#HA$`l@p`t(! T  9 ?@~%r@@o( (H|pyhRBB`t( `spu` H{pv @#pw`x ׀Hxx(m0 (H`@p (Hs H((H@(  (΂#8ۈ`p`pň`p`pLjH`f(hH(H@HHD(`(!hوhh؈h8܀x H  (`H(@( xHp(@H`@xv#A@$w`Hxz@A#${}>>`xpy`pu(mh(?`Fpu`kpJ@pp##$v`p@@#A$x`xpzp|p~`oHp{`np}`mp(m`pm`ˆpn`p@pp#`p&`hmH'`XEEA(n`@(hτH{)D(gh (]`@(v@@()@()€hq(@s(]hH`@Hh`( hohph`(SChH%%(!HhH( %OUFF @ A H*ApÂ*爈88A `*∈88 `@*pi` *Pg(`h㈀@i@~@ Ĉ¨<mNdpH>xn xm x@)+‚#ؘGGm)(pl)( hHxpH@07JA`h$H`lhmhnD()p9)p:)p;)p<`8pppp`f܈H(5h(hq(9`dbb@55((pl`eHg8l(B`f(H(@c(@piQpj`i%@jJ@ (phh(lubs<99   `( `(((/(!(h(((pm`Xo@( @((PEE@8m(f Q(p 0Hphhxhhx@p@9 Hp`(!XX@(SA( DV. U 0 BUNBU^?? @X~(Po(P(G(@!H(@p@p (b@h D# (hxmm (QH{(6Ho>HqH(88m(%mH{pH pI PB@@0pJ`F(!GXXXXX INSTALLED e 05 0׈pxxpA(T@~%@pp(Qf`@gP(V(`phPX (86>>({`((8P(`( Ah`,H `h p`(9  h(e(HPd(`(`H(`p(HP((xpH~Hx==X(h (h (h` h, (h (h` h, `@(9`(((`h p(=H`h p <>H p`@@pxPꈈ(88(h`@!(و8`h(  x 0(@~@p@pkAACpH p``h "p`"@0h ˈ"f (W (LHHcx_#$@`@#FFxG))$]`Y@(!ePd (W`b@((ZTO# =?pDH ( fF@?44XP2+OS3SC 92084-1X491 REV.5000 870115 &OS3SC::SRC_92084 4VV@ S$$DBRKd$$MP1 $$MP2 $$MP4 $$MP5 $$MP8 $$MP9 $$OP2 )$$PST $$RTS /$$SZT $EX6V||r!BITM <$AG1=$AG2$ALC/$ALDM $BFAD $BFCN 0$CES$CNV1 $CNV3 E$DSCS 7$ECLR 6$EMTB $ERAB A$ICNT $IDEX $IDNO $ILST $INER $LIST ;$LSTM #$MATA $$MAXP '$MBGP )$MCHN |r$MERR $MES2 $MEU%$MNP($MRTP .$MSEX *$NBGP ,$NCHN $NMEM +$NRTP $OFPR D$PLNM 2$PRAM 4$PRCN 5$PRMO $PRMS $PWAB $RTN$SDRL $SFAB 3$SHEM >$SN1?$SN2@$SN3C$SNPX B$SNXX 9$SPRI :$STRG 8$SVAL "$TADD -$TERM $TIME $TMSC $TNAM !$TREM $TTNM $TYER 1$WATR $WORK $WSTA $XEQ&$XJSB $XPRM $ZZZZ F.CAXQ.CBXN.DIVK.DLDL.DSTG.ISXH.LBTT.LDXI.MBTWM.MPYS.MVWU.MWFR.MWIJ.SBTO.XLAP.XLB"""o==@H`%h#pxHlp l@hH phH2H8(h#HlpHF`hЈ`p`@phG` (1`p88(&HG`hЈ`p`Hp=BBpC8pD8@8(<(hH h5H!xx"hS@H!x!hH@!xhZ@!xx `(kp /(`H(kp /(hxH (x pH}9PG(/(h Hp ==8[p 0*p`D(` 3(@ h(m(SIZE ERROR =GGFMGR D.RTR EDITR SMP |@ΈpӨY ;n*>    D (/@(. DDPR(hH`H@pHP4H(HP4(xX(HxP4(HxA`hIH`*J`D@@pH5h H32((. `x!(%K!J ()K AL!h'H!7+DDH"8(h'H! (,x@P5X (Ih XQ(IH@pIh Z(O(OhHH` 25D`(.IHNOHdh SH `*@d(.`X((H x HXWH9o??`c xJ(|` &/8dh5dP (+H(H/ (H (Hh HppH2HP@lp (p h (Hx` @*DDH `@ ( (_`@h@xH  ((8h 0  @݈ ( ( (]@ Ҁ@~~<<@(^h  h @p(` 3(`h `@h(_     h(ӈ@p` h(_(  H}~.DDH2PG(/Hh HHHC @xKAL p` KL`pppp!p#hzl(v@y(_ @`~KAL` p"h{` @(v x$KrHHL%h|@x`(.DE @y(@@%( (p (H'@(h'!H`*p`@(h (H(&$(@Hh(!`+(@Hh)!`,(`(.JBBILLEGAL PART'NH/C((@%( (p( (`@(  (` @  (@y(  ` @(݈P ==A(KAL`@ p`6ph. x` (` (P(hH-x8( ( ((HyJ&7(6(IHh H}2p PG(pE9??H}x(CmH@p Hx@(Q` 3(W0H`*h X `+HHh,(\`'h HP `(h)px h Hx(k` (q@ (q`h @ xHh Hx h(x>>m ( (phx l(p6@ph H@( p (p@(h `c/  (u!" p lp h >>H  (ـh (h @@p@(h XG( H  (h H (  (` H3@pm (ꈀp8#(`h H ((HP~~DD( @(D`(.D (/@(. 5((Hh Hp@h` J&4(@hx H99((1hX (H:0(h X((X((~8EE( (E5PG( @x((Hh H}2PG(H2mM2@#H@ P (H h HkAxj`c(.dSIZE ERROR 0 0?((+H@ (`P:}BB` @@(.(p(+h(pH ((/` @8èP ((8   (p@`8AM2H@#@ hWMMlPG(`8X @( (( NH h(Dp9x8pD@8(`8@@ KA@L`9H x@AKL`(. Q=XXXX0 P=YY@YYYYhE @(GhK(G`0( @(9 II  p0(yP(@)(@`x< p=`( (%`Ap(HpA(P(@x> p?`= (7`Bp=@JpB&C(X (H(XN(:DXO(p@(.ONOFP P~~U@@PG(]XO P(`  P8P`P3xXH:x (s@Pψ(( (0(hH2OH(hH q@OPG($( h~`@@h((@H((h (``J&/h0X((`@XH(-݄`&/(HH1h-݈`@H(h`@((@(@9h܈X @SLAAX((((`@: (`&/F(I +hH:P@0PChH90(I +`@( hhh-h2h@h`( @BB_Hh H3Ȁ(!!H9hH*(hH*` @*+O(?hDD ( 3`@}p$ @hx (<@hD ( H}2P-(`P(dPNX@@(dhH(dh H0/(hHHx3` @:pP@(P (}`@h Z(@(5P03PIDPP( (~HP H(ۆCC(`PHP(h шP0PC(h `c((SC  h HhH}H@xP( ( ( ((h 2P  I( h0@ ~BB(@`@(`PxPO@'((h( @ DH$Dxh  @HDQhRh`Ph(`ψ@: (HHZ(((hH9=IIh((`jD(xJphK(GxOhJH x@hOHZ(hOH99@(AhO@` 0pp(`P(.L$YCOM QNOT INITIALIZED pIx`p %xш@h`@RfBBp@pj((HXj h:Hp:h hHh`8I(S(TU8Z8ZhxъZ:xp`@   @H xhx (xhC&&(P((p  x&@ͪ77Xal{ OS4DP 92084-1X492 REV.5010 880902 /SRC_92084/R5010/&OS4DP 7ss߀H$$AGE B$$ALD $$ALN E$$DMA $$ECL $$FLN $$FPT $$GTS $$MAX Y$$PRC $$RLN w$$SUB ($$SWP $$ULN $$UMO r$$UNP s||m*$AG1+$AG21$ALST $BG1$BG2$BG3$BG4$BG5A$BGFR %$BOWN $BSWP $CAN1 $CAN2 C$CFR5$CLRD $CSWP 0$DLST 4$EFL($EMID .$EMTB /$FLST -$IDEX <$MATA :$MBGP 8$MCHN $MLK1 |}}$MLK2 $MLK3 $MLK4 $MLK5 $MLK6 $MLK7 $MLK8 $MLK9 $MM1 $MM2 $MM3$MM4$MM5;$MNP2$MOMF 9$MRTP #$MTAD "$MTEN @$NBGP >$NCHN =$NEXT ?$NRTP )$PEAB $RSWP $RT1$RT2}aa $RT3 $RT4 $RT5B$RTFR $$SNAP 3$SUBF '$SVMP ,$TIME 6$TOP7$X301 &$XCQ$Z1 $Z2 $Z3 !$Z4 D.CAXF.CBXH.DIVJ.DLDE.LAXG.LBXI.MPYaULDDDp8p9Hp:pMpNpODDp>p?p@`;D(Bp`@(`("hQ`T8N(%hP`S8M(%hR`U8OxVpW (>pu(3`u`uW(>@(>H`uW`@H8(`M=DLLHpC`OpBH`NpAX8:9>@?`BPOD(h`p`DDp`p`:DHp9`@p?(vH`APN(vDD`p`pDD`p`9p:DH`?p@`CPMDX`p DD`p `p DD`:p8`@p>X`D" 6HX(ǘHH (=`(8hph/(Bp~DDE}((E(E}@(`~Ap(E(~D`"H  (@( D(8@D (=HHP(=D`0hh/xAhAx/( (8 )@ Ȅ*( ( B (@(#H+`/h(  (hx~`@(H( xHP}(=`#@@ (=L KKH((7(3(&(=HH`/pAhȄ`Ap/h~`~#(`D(=(7`!D(h`h (=@@( Ȅ(opHP(YP@(o 01(oP}PH(oP@(o@@(oD@5`kFFD`D0X1 ÈD(x~FE}((G (E}@(~ ((pG ,HA(E@((`@( P(D`"` HP0(p`/@P @ lEExu X (xH}(`HP( Pu((H`#@(HP(#@(@(hx~(`0HHP (P(　```$`rD(=()ijkh @(h@OO@hX1((@`<@~ HHh 0 @D`2(=`Hp4(&`D"`2(=DD` p/` p1D@` p0`(4`p`Hp(8`pHD`phx2DHx3P2(RD# (;(ELLD(;p2p3Dh4p4 (=@ ((=D@`2h4#H0Q 0DHP2(^D(T`2#`/HDh@`(h4 DD`P2(`0}H`3@P2@(p3`DD(6`3# (q((HH(7(qh2H}HX2((DD`2#`NND` h2` Hp/DDp2p3p4(6D5`hH`p/DD(`2#HHP2(#`@ `h@h4 DD`(`H0 D(`2#`0p2D@p3p4(6DX2(=x` H` p/H@DP}PD#h|II@D`hx/(ڿ@h! HAI@@AIHD@ (*`@Hh `?@h> (5PHD#(&#C8FF(;(5` ?Hp/ HH?`+HHp*hx HxHI@<@X(P@Pi(PPj@@Y(Pk@-8kk<~HH@ ?H (DD`0h˨`1(pX(H`/pH0  Hh(@}@(p(`P@CCD`ʨH`pH@`pp`1pp׈@P`@I@@&@( IoAAx&@@AIH@<@}@&p$"#0$"h%H `$@'h'.! @X(3HP(~puPP}( xvHxwHxxHmE@@@( Hxy xzHx{Hx|HwDxwhu P(P(P(!(vhw (`| (vP(y JB(vJ,AHz` 8zz@ #(vX(x{ D5 C8(8(SS:++Hh( #( (vP(8vvP(hvHHDv 1(`u(8((~ (=(  S@B:`s44XP37OS5IO 92084-1X494 REV.5000 870428 &OS5IO::SRC_92084 4c$$BFO G$$DEV @$$DLA $$EQ2 v$$EQC z$$ICC V$$IDN $$ILC  $$INR $$IOC $$IOE $$IUP V$$LU? $$NTR k$$PSE X$$QUX $$UNL $$UPp$$XXU $ABRQ ~~k]$ABRT $ALC$BLUP $CDMA $CIC6 $CKLO $CLDV $CNFL $CNV1 $CNV3 $CON1 $CVEQ +$DCLR $DRVR %$DVMP $$ECHO $ELTB $EMSM $ERMG $ETEQ )$ICCA $INER $IO11 $IOCX ($IRT~P$L.49 $L.60 $LIA4 $LINK $LIST $NXRQ "$QCHK $RSM$RTN-$SCCW $SCD3 $SMER &$STAT !$STDV #$SWCK '$TLOG $XEQ$XIOE ,$XJSB *$YMG3.CAX1.CXA((2.DIV/.DLD..DST0.LDX5.MPYe4.MVW>> pPHx'pPp&px(ȨHNx(N ("`hXJ(N,xHOp @`' `P(JhWH`p`p`P`JH0a>BBJh`,`p``"(N@Apψ` Dx&X(A.HQHX`P((eHHh(xp(h(kh(f` @NhX(w h'Xh (p55 xHQpHp p`0Uh`p(@((5 ) ~~ADD $00 IOhx@p7p/.  0h0p`pS @@/A./ (` @~LL`(D (H`pp`p`J,*`p@(  IONM L XXX E YYY SZZ QQQNRETPETO(lEEH( xG(HH!(HHpHS(xH ( ( hx/H (( hH0U@( ?pHD (xH7Hp(` @D8(( `p)h~~F<;@@J`, h8( `p`8 (߈pH(H`DP ( H`@ ( ( ( H ( hHHH%HCC@+ PU( H(`@( "7HH@H%`+È(9PU(; (E`@(@` `UF@BB(@@_H(W([0`pR@Hp (c@`a (@8(H`@pb`upo`@X8bc8o(mp@ x` p@px??p 8X(888(@ `PH vH!((p҈`p @@x 8A@5@pp(p  (`D@ `  005%`(hX(`hv 0@+77X 06OS5CL 92084-1X493 REV.5020 900125 /SRC_92084/R5020/&OS5CL 7&&$$CCL  $$FCL `$$GCL $$ICL \$$QCL &}}$ABRQ $AUTO $BFCK $CLAS $CLSS $ERAB $IDNO $LIST $LUSW $MCRO $NXRQ $RTN$SCCD $SCCW $SCD3 $STAT $SWCK $TLOG $TNAM $XEQ.CAX.CBX.CXB.DSX.LDX.MPY}.MWI.XLA.XLB.XSADD@`XE`(p A pAH pKp(8hH`_D0 `@^ (*@JP^(@h^`((ph^A@ 0 P( H@^pY@pZHH`PpYHaHZ\?DBB!(`Yp(HPP(HxKPKD(W(`hY(`舠(@pTxU;p@GA@!H(hUp H`TPpY ( (x E@  p EDDPP(   xV`@pWh @ hW (`Vh`T(وYK#Y#Z@(׈@`PP( YK!( SYHhx `Y `P (tAAh(p`T (YHZ`^`( (وhYS@C@( x xHDx HFx(@p@(@`8;`Y Q BB(+pV a( SVKPK(8V@JZ (-hV88@h DsHh (`( VK(5YZ`^`HH(`Y(KhH^xYHxZ;xMGG(< S`(@pp;G(v@`Y"((l PB(`E(( ((@( @JpWhHH  (`W((AA(`Wh[`WhXK(وXI(@@!( HE` (ـh ((pS pT pUhR !(@hG` ( HhpW`pVPphY`KB(HX^(戈(HJ(΀`^uEED@0`HH(`W`V(h (h^(D`C hx`Dph`E 88(( hD` ( |CLSCpxWx H(hxV(";Y ??((H P @` ph (7 (5;8Y8ZZPV8(-  (jHh^ @`(I`V(N H(C `VC `pXhHxW`pSWKY<<(\`W8W8S(V`pS``X@HpX8S(c WKA @JH@pX`W@ H (@J@(t`X  xUp (x pT(HE~~<r 2;OS6SN 92084-1X495 REV.2540 <850816.1055>P92084/&OS6SN::PCO72$$SNP $$SNX B$SNPY Q$UTLX 9$SCLK $SN1$SN2$SN3$WSTE 6RDDPG(BPH( PI( ('hHx`ChE L`ppR`ChDM O`Kp`PhO@F = (8QJ0Np: O`KpR=DSB2 p=@C(;`=2BBB`M0pM`R0pR`W0pW`GhUhV@(TW@h\8Q(Y(Y]@(B@fC244XP4#OS6RQ 92084-1X496 REV.5000 860307 &OS6RQ::SRC_92084 4hu$$CLRDBT$$LUR $$RNR PP+X$DBTB $ERAB $IDNO $LIST $LUSW $RNTB $SCD3 $SWCK $ULLU $XEQ.LBT.MPY.SBT .XLA .XLB .XSA.XSBPBB`(lhHxxk pfb (os(rhaxn (/`W( a@hHB (l@Wpń eB(n`ft(B aPaPk(nH`Whňu(UzB@@ahf  H(Xhf  I(VPaPk(n h (ha hkPk(f@xgň@`g(H`(`HhhZ@h[`q(RN `W@pghXuph ((aD?? g8h(upň@`p pf(`(hx ׈@Hxk (pjpi`hHH6xmphpl`f (8hhmp@WPk(8h(pP(8i0>>(`(Ѐh ( na(䈈phk`ˆp (ׄ`8j((@Wphf (`(hWx(`f( hZh[h\`(LU (ph@WpPk( ??8i(`H8lhmPh(8l(H`W(لh(@ hf  ba8(6@` (5phH^H^  (-` (3(2HhY` `(p 8@l(hm<>CCHxg`f (T(ThHa@`_@@\cPdH(hghg  ?<Hx`pp`W @ (@8(xnpQQa**h ŀ@W@nhf (@HC(h]`Gh\# a Pa hH0`@(Q@U%SPOL1::RTE_6:5:120:128 644 0 0 74000 5310707242 34532 %SPOL1::RTE_6:5:120:128 $xߌx%SPOL1 +#+#+#x;JBFST 77Xo# 8GASPH 92084-12027 REV.6000 920910 /SRC_92084/R6000/&GASPH 7@Q=o GASP P92084-1X498 REV.2121 811014 ;;@vxG1ERPG1OMS7G1ZAPG1IMSG1RD IG1OPNqG1WFIG1CAPG1CHKG0NRDG0CHRG0CAPG0ACTG0EXN;;;@G0JBFG0SPF G0JDCG0SDCG0DCB/G0BUFG0WD1G0WD2G0WD3G0WD4G0WD6G0WD7G0WD8G0WD9;;;@KG0W10G0W11G0W14G0W15G0PBF{G0P1V|G0NPF}G0P2VG0NOPG0SDNG0JDNG0TTYG0RDSG0ERH;@)"G0NPR<<F".ENTRKCVT LOGLUICAPSLUTRU.CACTPOST OPEN CLOSE READF WRITF PARSE RNRQ REIO PTERRRMPAREXEC CLCUCG1ROT<.G1CEXST.LUG1PCRG0INTG0ENDOVRD.$SPOK$SPCR`KaEXTNDJOBFILSPLCON^_ `DGASP `Aa}`Aa`IB?`A `Kt.DSALNP0`Bf  `Aa`ARSP`B3$`B% -`A `A, ;;``ȯ.4Xt$ZtdӢT,dtPdD,tdt,;::`cxX&tdDt&|dtd4ttdt, :;;`e$Xd,҃t!0)$ Xq//I3sd,N;;;`f6I:S $?SdSts F4JSNsq$S/ d,cIZS0 _;<<`_!\$Sc&SIgS6dStdtd,dtTtSdtdtdtt<<<`f-{dt $Z{tt{Ʉ, $ 0d, tt<;;`ad}t{&d,d,t}P,d,Ԗtd,7;<<`b–,dt|t{4Zd,&7B,נZdH|dtDt<<<`c`,dt ,d,dTX,dt$ $sdD<;;`aztd{D,dttPd,Xtdt$ ̂턒&6t;;;`e]h(t.0 36{dt6dTX7d6t$F̃670G ;<<``nM$T/ɃG&Hd,iZItdɢD,dT,fdt,d,ml4,<::`^mXndntdopT,~döt,dt$ntŴZ,dtd:;;`c1BD,dDŴ lL,q0 /$Ѓd, ;;;``JZt,tdt&t74Xdt$ŁdtĶt;;;`bSΤq/ ,ˤIdհttPt,tdt ;88`^tXd,&tdTZ, dZD, d΢ 8 JG1CEX rc92084-1X499 REV.2121 811014  @ G1CEXG0RTN << .ENTRCLOSEPOST G1OPNEXEC PRTN G1OMSCLCUCRMPAR LOGLU G1SUB G0JDN G0SDN G0DCBG0TTYG0ENDG0NRDG0CAPG0BUF<`A`A`MJOSP?;;`k3T,B#&+0.&148t =;::`ce<0C&  t ItZdT ,Qd tdD ,Wtd t,` _:`S)_tdD t$i X|dt0q44X,k ;ST.LU 92084-1X500 REV.2121 800804 P92084/&ST*LU::PCO4WyG1PCR ST.LU 88 $DVMP $LIBR $LIBX $LUAV $OPSY $SPCR $SPOK .DRCT CS43IS43N.SEQ 8z}>>pg`ψ@lnPjJ8gpxpvps`pu`pr xqpd@`sx(*uPd(78q`u@mpu8r(`gՠ(5`s@pxDp HqH(H`eTT>&&@qm@@k@f8g`pw`pt`hh Xo`ipp wpPq(] 8w8t(T($v8vv8v8s($Tne ? My yhըA 8yy@ M44Xxk;G1ROT 92084-1X501 REV.2121 810506 P92084/&G1ROT::PCO4f\G1KLG G1ROT 0G1SEG AG1SUB !!$LUAV .DRCT .ENTR G0WD1 G1CEX SEGLD !"CCA`@Ep>`Ap@h x\hHpFpG ((;P\( 8G(`FhZ(1@TP@(0p@->(9hAHG8`C`BGASP``pC55 HEXDJCJDSCSABUPDA??0SDSUKSRS[H`pwJptpu\pv8\8tt8t(ptXv8u8w(h`u\`@{Z44Xnk&;G1SSN 92084-1X502 REV.2121 810508 P92084/&G1SSN::PCO4PPrG0COM G0JRN  G0SWD G0U.G G0UG1 3G1ACT G1CUG  G1FLU ]G1RDF G1SLU G1U.G PffP$LUAV $SMVE .CACT .DRCT .ENTR .MVW .UNAM G0BUF G0CHR G0DCB G0JBF G0SPF G0W11 G0W15 G0WD1 G1OPN IPRSN PARSN READF SESSN fwDDpx  `  @p x P`Pp,`p-h- P(.8-8,(" `P@,pO-  (Kp.pM(JpN8MMD P.()8M8N(B`.hO  G AA@h`(Hx.p,p-`숈p`p8(P8.(Lj88,(-.`(ۈ`0p`߈AhH`.hxGENERAL RU ,PBAAJh `p-`p.`@p-`@p.. .-P0`+p,.-8-8.8,(!@ 1`3Ap @23SShB,,]F223`pZ P2 3]V122`Z3AA[ h\lm[\B]S@]77X|; 8G0QIP 92084-1X503 REV.6000 920910 /SRC_92084/R6000/&G0QIP 7IIoG0END G0INT G0KIL ?G0MXP G0NJB -G0NLO XG0NSP G0PCA |G0SLU jG0SZF Iq``CAPABILITY LEVEL FOR PRIVILEDGED GASP COMMANDS? _ MAX NUMBER OF JOBS,JOB FILE DISK? _ NUMBER,LOCATION OF SPOOL FILES? _ MAXIMUM NUMBER ACTIVE AND PENDING SPOOL FILES? _NUMBER OF SPOOb'```L FILES (5 TO 80)? _SIZE OF SPOOL FILES (IN BLOCKS)? _ENTER OUTSPOOL DESTINATION LU _ END GASPMAY ABORT PROGRAM OR JOB, OK TO KILL ? _ /GASP: IRRECOVERABLE INITIALIZE ERROR !@Om44Xy k;GASP1 92084-1X504 REV.2121 810505 P92084/&GASP1::PCO400 G0PBF G1CAB G1CCJ G1CCS G1CDJ G1CDS G1CUP G1SEG G1SUB 0!! A`p( !@^ 1G1CDJ ec92084-1X505 REV.2121 810506 @G1CDJQ<<=.ENTR.DIV .DRCTG1OMSEXEC G1OPNG1RDFG1U.GG1CUG .CACT G1STM .DFER G0BUF G0WD1G0WD2G0WD7G0WD8G0WD9G0W15<GG0((TTYG0DCBG0RTNG0JBF66`i# SHUT DOWNJO# NAME STATUS USER.GROUP SPOOLSUSER.G NO JOBS 6`A`~*`A`s0`Ab2@`A`48`HT7ALNP `A`B`A`F `EHDCSAR <<``wN6Nd*t)tdND0t/D0t.Pt-t,Xt+d2Dt1Zt3,nd4PQ<;;`_-nd3,w t5P,wt5t6/T7,d3Z,t6/T8,:&19d6, ;<<`ff&d;t, dP Qdt?.<<<`\8aT=,dB-t@D?,d:PQd0tAZ,tAd*t@,d@t@d@D?<<<``,,d0PtA tCtDdD ZFtELC|GEP QGHtDD>t@<;;`]EdD,,ڶd:tAd*t@,d@t@d@D?,,/T8Qd,  ";;;`bE >P QdTI,Q@P Zd dAT=,,dTJ,8dAT0;;;`^۴.,8dTKdZTLdTJX.T0,Hd-d,Pd+/T7,P;++`Y~yLZd ,^d3,Zd tM,^d5T @0J6dt+ G1CCJ $c92084-1X506 REV.2121 790621  @G1CCJ>H`pkp`P(2`pj`j(28jH`j(28j`j(>88(`(U,d8t 9$:(;;;`a ;2,,t d t6,Z,t VXt?dT.,"d;<<`ah1XT/,"t?dZT7,"dT8,""D@tA2A"d!TB,(D?,<;;`b4( -'#Xd,tOd-td+tN 7X tCZ.tdtZt*dtd*,`d;;;`[|JZ,Y,YEtDT,YdDt,`d*t*dDZt,Ed)T,q D;<<`_!eZHGtF,dFDR, DH |FlF,DR-tFdHD<<<``olFtA@DItJA6JdHDK4LlHLZtC,dC, 4M,<;;`a !dN,dODNt$*$*d*,dt*|Fd*,dC,dN;;;`gkŰtA M$Z;AD*t*4Pt**$F*,*$O&N, $9Q2;, ;;;`eZ#&"'#d>0( ,B 0'#  "'#(| ;::`cр<  U ,d)T%," U ,$((Ut)U,#-V: `E@4$8-/0 `Ak:944Xlk +;G1CSD 92084-1X512 REV.2121 810505 P92084/&G1CSD::PCO4G1CSD G1CSU ~~.ENTR EXECG0BUF G0CAP G0DCB G0JDN G0JRN G0RTN G0SDN G0W10 G0W15 G0WD1 G0WD2 G0WD3 G0WD8 G0WD9 G1ACT G1CAP G1CHK G1KIL G1KLG G1OMS G1OPN POSTREADF ~ lRNRQWRITF DDAhHNp x (`(PL(`S(p(#`P\(#PZ(u('i@`(`pH` p`@(\` (\h XXp@(\cDEEG(ppAR`(`(\A[(8`8(.`M`[ HPhNxpHp=AqT]P(`('c`Q `[HP hMxp Hp= `@}OOhXhLHx`( SHUT DOWN NOT PERFORMED pAP(AP( (AAHA͈/BBppހ (AOfUhHNp xA (`(PL(`S(p(`P\(PZ(('i`MHhX[Dpp=T]Q(`('c`Q6MMHh X[Dp p&R`U('p/8'0=/DA`p7<XV'`VPK(IADIYV8==  8B DS SMP FMGR JOBFILJO8NgB SPLCON@077X@ 8G1C?? 92084-1X513 REV.6000 920910 /SRC_92084/R6000/&G1C?? 7 )G1CQQ %%.DFER .ENTR EXECG0BUF G0ERH G0TTY G1OMS %N??`@kp@hf`8 Pg(Ep@(C`@($@(C@(C`@p`@vxpxpJHixss`?(3@j8pp8(7@~?NNHpH`q(&`pn`@kDp`l0mpo`wpTU8T`TPr(UT(R`nDpejohc?@rxGASP NOT DEFINEDnxxxxxxxxx``xxxxxZJxxxxxxxxxxxxxxxxx?6*xxx xx}xxxxxxxxxh0 0 NO ERROR  -1 DISK ERROR -2 DUPLICATE FILE NAME  -4  ``MORE THAN 32767 RECORDS IN A TYPE 2 FILE -6 FILE NOT FOUND -7 BAD FILE SECURITY CODE -8 FILE OPEN OR LOCK REJECTED -12 EOF OR SOF ERROR  -13 DISK LOCKED -14 DIRECTORY FULL  -32%M`` DISK CARTRIDGE NOT FOUND. -33 NOT ENOUGH ROOM ON DISK CARTRIDGE -48 SMP CANNOT BE SCHEDULED 1 DISK ERROR 2 NUMBER OUT OF RANGE 3 BAD JOB NUMBER! 4 ILLEGAL STATUS 5 ILLEGAL COM``MAND 6 NOT FOUND 7 GASP SEGMENT NOT FOUND 43 LU NOT FOUND IN SST  46 INSUFFICIENT CAPABILITY! 54 MOUNT ALL SPOOL DISKS! 55 MISSING PARAMETER 56 BAD PARAMETER GASP ERROR CODEgl S ERROR MEANING @? KG1CIN yc92084-1X514 REV.6000 920910 @&G1CIN<<KD.ENTR.MPY G1CDAG1OMSG1ZAPG1WFIG1RD G1OPNG1CQQ G1ERP EXEC XLUEX G1IMS CREATOPEN CLOSERNRQ ISMVECNUMD<<<.DFERST.LUG1PCRKCVT ICAPSG0ENDG0NJBG0NLOG0SZFG0NSPG0MXPG0SLUG0PCA G0JBF!G0SPF"G0JDC#G0SDC$G0DCB%G0BUF&<<<"G0WD1'G0WD2(G0WD3)G0WD4*G0WD7+G0WD8,G0WD9-G0W10.G0W11/G0W150G0PBF1G0P1V2G0P2V3G0SDN4G0JDN5G0TTY6G0NPR7N.SEQ8$SMID9<J$DSCS:::`m SPOOL SYSTEM NOT INITIALIZED! DUP FILE NAME XXXXXX. DEINITIALIZE?_DISK XXXXX FULL :`RլMOR MISSING, XX SPOOL FILES CREATED.  `DQ`SPOL `Bdj `Bpm`A`r`B_t`B`w`Cz.`B`~`A``B`o`A``A `C</EE  `Da `B`  `F < `A`::`c0YENPԔJ9th:tftedf,؆tgjDktlŀlh&imdiTn,:<<`bȄ ,[ 2 d2Dg,h,d2Ptetotpdrtq ⒀d2ts,h,dt<;;`a|겊t_d2Du,疀d2Dwtv,dvx,d_t_dvQ@D_t_d3ty %d!$_z{;;;`c, 6yddT|, _,-2!~}vd}t%" ,WtZdtDt;;;`av.,74" ,W,+ 2Z:d2ttD,Bh,7XdD,@ 2PId1Tm,Sd2t;;;``\OZt,Uh,FdsDt_td}t`~&vdtdet h ,WmD;;;``uottdtDt,J |d2T,d2T,d2 $l |dD2t;<<`]dtl3,tdDrttsdtDt,dDzZtDsts,dsT<;;`b,h,j$X ,W0J&t&dtv,dvtvdvD_,̆& ,W, ;;;`_|AΒd1Tm,ےd2D8tD,h,̔ d2t,tdtdtDt,;;;``ٸJ d2T,d2T,d2t2D, d2Dtl $l, dZT, h,d3;<<``A= Zt3,dt3d3D2l |dt,dxZ,&t_,(t_dQ@D_D<<<`g -t_8%0d"_z{4y-;"tqdtH~&vdt2M&Q&"z ,Wd<<<`a}jTZt'det(dtDt,hb& J,Wt(t',YZdtDt,dtt&<;;`bqu{&" ,Wt&ZdxtDt,&" ,W,,j&t&PdtD;<<`gt,Z& ,W,m ,Wto#d!t{4y-!0%d!-0P!to<<<``h%"DtdtDtP, dttZDH|sdt<<<`aTtdt,dtdDs,6tcD,dc4tc&dat&{dd<;;`ctT|,ddT,-a,,ɆB &%&"Dt(0&tpDtl#;;;`f7"6ltS(0G+D,>,dd-ddTr,Q8,>0 A2,|d?t5&v0d@t;;;`bOy&{5YXXP\B TAX0,&P'dTCجYXTB,d ,d,t5;<<`f"X1tE0D 5DFEd5TG,x,n 5$DFEd5TG,x<;;`^#2,nd5TH,d5TJ,ζdKtI,dEt< &RU,# *5FEd5,0x0 85DFEd5TH,?x>,YC=F;;;`dF KVU,L S5FEd5,;YX X\B TA 0,hXd5TMY k;00``j nW&q dEt<<,hww6B0d@t45x0$O&N, $9Q2;, ;;;`eZ#&"'#d>0( ,B 0'#  "'#(| ;::`cр<  U ,d)%SPOL2::RTE_6:5:91:128 644 0 0 55400 5310707243 33652 %SPOL2::RTE_6:5:91:128 $[[%SPOL2 +#+#+#[-C`FST 77X5P""SPOLH 92084-12028 REV.5000 <870609.1534>&SPOLH::SRC_92084 7@522X P!SMP 92084-1X517 REV.5000 861008 &SMP::SRC_92084 2H$CVT3 $IS43 $LIBR $LIBX $LUAV $OPSY $SMII $SMVE $SPCL $SPCR .CACT .DFER .DIV .DLD .DRCT !.DST.MPY.MVW.XLAATACH DTACH EXECLURQLUTRU POSTPRTNREADF vREIORMPAR RNRQSESSN WRITF XLUEX  6 7is5"u\!  c e! & c* u1JJ@7`(p`pp-EAL   jp( p p p pApe`p`NOAt   mp( p$ \\{//p% p' p(p,A`p)A`JO@px(@HpE( (*`p(&\YAhG`PhL`R(<< (*`XJ pJ phG`Q`NO`R  (*`ShF(<~~@@ (*`p `I`p H`(AK  `0H@D p H `p(`A(E pU`TpV`MpWV(YUV (>`ShW (*h (>`(>xh`S~U4GG (* `PPoh 8VV8V8U`W@J(4  m $ p \4j `n  `p Ag@px`(2z( @(npH (n@:{<<`P(P(Pq(@A(`(`zhHxpz (`zx`o (8zzh(p  P(8(`ߨ8x fU؀ ~~@@FGA`Rp(nh (n`(nh (n`0興 p(n`p`pA`ˆp`pP (np((88((n~~~3@@p (x`o ˈ(`( P((nh` `A('!  (*`p(*`(, !h` pW`(<p~<<<`p`p(Qph (Sph  ph6`x](dhX(d x`(bh (bp(L(n`p`p(Hp`rp(n @Hp`r p||qx>>(n@舀p@pp@pppp@pyyA@Ap @` px8p(yḦxy`pp`hApxA |__66`(`  @@ A@``08`yyA nA?_N>>.@@`ހ(Jh-P( ;p` ph (J`p,`p+h) @!(/@(/`p. C(#8. 8+ (88,( px-h+x8`p1??(p(I`phC(H P(@p( (:`p`R `(`(_`(_`p(`〈h (h (kp `P退((yp@@P(p@A({(`P(`(`p(hX( (A `p`pp@(` D@p xHxhHx0K::88(hxh`p(H (8(`@p(@pˈ(p`(ψ(ppH`p(p` (pp@(`(](`p( ~~=@@p `P(h#` ( h `P ( `(`(` P(`(`p`(Yp@pHx0p "hP (4P(1~F*??P(18 (#X(㈈HxP鈈(DX(A`@pX(HH(8H (`AU8A XY` p`ph (hhX(ih6xצiAA`Ɉ(w`p툈`n```h(n <p P((Hx@ 䀈h  r8`hHx`DZ>>` 0HH興xH` ` `H`8`88` H`` ` `     `($$`@`(``p(n$((?H(#A@@h` (Yp`p]( x]h (YhX6(YBA p@ (=H (=(2@p`@p@pAA !`P(CA`h!8Q]Z,V==`]`` h耈 h戈` h h ``(`P((p`p h [`p (88 ( 8(`( x..`pp`h(n q .pKK p`( `  (8p(np䈈`( `߈( .4A` "& )/ Q (]A4(Y x@Aq g P(`nLLfD##hPxhO ˀ( ` @8(GB`nhPxhO ` ŀ@ 8(VQj (n`pg8`AiLh  `jApq8js~~mbrDD jx[p8( Q Qt(z@@Hp`hX`@[@p@qA ! A   `p(p툈`pp8(~q??88(h (p@(`(`8x H(Hꈈ8(Ҩx8˨@p `p`pP(88(눀`( ==P(`(hxp(8`p`p` 0p `  (p@ xp`p](h xh`  p` ,2==hO hx`o `爈h`p` (D (hhxph `p `0p(`(qph((P(k]H(d`@-Ho@@@spO8]] `(} ,EOF ER (  !]( x !B`n@X爈(PY( !HPt  !p@p@n@Z( !`( !@pQFGGhpHP(8(Hpp`pA`pHp@` pppBBp p  h`p`p8 P (P (88((A `ohx `ph`Po(2 (0 x(n (HH `<8@@p`p](h xh`  `pp(Mz`oh `p`n  (0Bh_( x`o `PPozl_@AH p! Tx==A pH`pp`pp`pzD`p(p` (n`n  (*`p `oh (*` ( ۈh_h`  (J   ( ,DOWN (LLhx`o `P(( Ḧ`p`op( `oh  ` ! (nSMP:LU RECORD(S) TRUNCATED TO 128 WORDS@  < EEp`p    pA  `p怀` ` h h H爈tH pt t` h耈 pǀ ( Y@@p` hx DH FAA p  T    `P( `( ` ( T` Ah( ; c4` Ch bj hJx ` h  `[p`[A@HtxH Hp` h  `uuA >>h (  h xH``P ( h ( 8 ( p`h   4` ` A` Bh hNx !(  !CSAp x  4 u   ۀ p x A 4 _ HH  8  ۨ Ԩ x a@@ @ V! Jh aA (  M`( HX T( @x Q A! R` (  X T( ! Q` (  Q` p   D   M j@` h` U( A@ò XX@  00AA ! )A8 8  + ` ! Z ],p , a  W,8 , ,$SMP: FMP ER :: - SMP:LU EOR ER XXXXXX HELD.SMP JOBFILSPLCONBB C s//SPOUT D.RTR SMP: File deleted from SPLCON!B@@_444XNk(;DVS43 92084-1X518 REV.2121 810415 P92084/&DVS43::PCO4++z=$BF43  $X431 *$X432 CS43IS43N.SEQ +))$$C43 $$I43 $$X43 $ETEQ $MPS6 $RSM$XEQ$XSIO )dd3lAAD(H(`@@ D`p! `H@(` `@p &8 ` (d  E  M @@44X/RP" OS6SP 92084-1X519 REV.5000 860512 &OS6SP::SRC_92084 4Р$$C43 $$I43 $$X43 PP$BF43 $DRVM $DVMP $ETEQ $LIST $RSM $UPIO $X431 $X432 $XEQ $XJSB .DIV.MPY.XLB.XSACS43IS43P~~?<>Y\ (:]P((q (q5p@( `D@](]]d  (RPS(](@]](Db::(h(`(@(Lj(8ǸZ``\e\Y`FZva(((8`E xhxԈh@Vp`(Lh5 ;FFZ@^pǀ(`T0~@ (: 00Ui0`(h_Ye`@\vX<<^  ^@(` ^XĀ( (`ˀ(R(G^`^0p(0i g(pgphp`g ~g~??`(h @bphˆ^x (8X(8ɈY(^H(8\(^X(M pˈ(0xhp <<(P(<(8xȈ`p(8h (M`^`D`0  p!(R(4^ b Y \ ZXFA(0R(C^̀`(I~~j8<<PH(`(^ `ʈ0p`^0Q(G$p`RhIhxIֈpH^pH` hH@pH~5t??H(88RR(~ 8 8HXi( hxhր 8Lj(`@ @ @(~~TDD (   p@(GpxƀEXTND W(q (q5( (H ~>>]( if((  @(`(((p(F \H+,2\P(8;;5XZ׈\WY (5`E(HKL(W;@¦d44Xs k;EXTND 92084-1X520 REV.2121 810128 P92084/&EXTND::PCO4))$CIC$LIBR $LIBX $PVCN $SPCL $YCIC EXECRMPAR )CC### `(a(U`@h@f x@gp*p+Xk(1`p-jpC,GG0`h*Ho(:(H`dHfHl`Ho  ``T hHe c`p`ibbb(? D.RTR @\22X Mk';JOB 92084-1X521 REV.2121 790529 P92084/&JOB::PCO2wwc$LUAV $SPCR .CACT .DFER .DRCT .UACT CLOSE CPUTEXECIFTTY KHARLOGLU LURQNAMROPENOVRD. POSTREADF REIORMPAR RNRQSETDB SETSB SPOPN WRITF w  \\Ӑ33Ap`(#@(#``0$p%@Yp^A%h%(xAp/(# #=%=p+>=xHx`pp(\33C p047P_(`-`p`p`p(3^CC`-h ()1o`- xȀ`(AL0+7A L0_p`-pڀh (H`p̀`(@(/h (p`G*GGjjjA((66!=%xxp'p( (c(6(AT!&(X~M(N[WRITE OOPS`"P#(P(/M`'(/|PށqFF(/rPT }w+(/~X`(prEXTENT Z8~~`(p(jA0+P (`;`p`j(g`P9(P<(P8(gP(j==`-`p`/pp p`pՀ( 88(8Ո8(Ոf( 008(`@( xpW`. `@@p߈`p׀=<<@8(8(p``p`p҈`p`pшh (/A `p`7p`p`pp`-`p`W`؈p`@Ոpp 1u0EE`(6f(+pp&@YpX`-x X(R8Հ(APMCHECK OOPSp((׈(j `A e(ިZ`fP(pprSPOOL Zf E&& puArpr}?r8rrPj(/&TFF`r`pA `P=(`DpL0=h Hx`L|pL0Lh xxL`"P#(p`r(`P8(h II@1(pp`(IN SNOT ESSION:JO?P(/MA^(/(/P((/;A&:~( A)1*㈈``πK <`p"pP(V@Ĉp(OhX(e@ a\@@@HH!(ep(V@@`@hPX(|׈ M" MpM0B,Lj(}Ap11`p`ĀpBpǨIIm**`B@,pB888RHHIRA0,LjpA0,LjIBB Հ܀A *   `.`(`p`ǀP(Ȉf(hxhxhx 8 ( DDxj`hEPhzxA `Ap`PL(/&P(#P~(/.( `(AA5`h8P{(FX|@}(e(2(9P{ph (Sh`'NGGP=h  xP(^j`h͈P=h  x``p8 ٨ q`j`ypmjhzxmr?, Aw(p888zzII88ـ ON x8 HH` -4p `8ApAШ/JOB: ERROR IO07 ON XXXXXXz11!!cNS FMGR SPOLEND JOB ABNORM :;_@81 !: ()){1SMP JOBFIL.JOEO:EOJXEJOB WAIT ON SPOOL RESOURCE) 6L( @۩g44X. k;SPOUT 92084-1X522 REV.2121 810401 P92084/&SPOUT::PCO4.. i$LIBR $LIBX $LUAV $OPSY $SPCL .DRCT EXECLURQXLUEX . Hp`0@Dp ~~@@(`pslbcfhfXk(Xl(`bPk(APj(icj(`p[[A(e[j(((8[( Xc(xc(X(`m(`n[x[(`pbvpf~;4<<Hv``@pap`Hlxp(`cpa`bvpfHvPa (Hkx pchb @pbx(`cJ(  x[p\ Xf((x^`\uY??X^(8[(hc xcpgAdfl((x\`bXj(A`}p_`cvp^`w ˆPl(yPk(A`@@kP(6Xl(H.`j`p\`_ c@ cpc<<<>hh(Q?h\Xl(Hhjx\.`c@p_`bpbh`cvp^xY^q^<8SZEE\ba`b@upb눀`bx8((RECORD TRUNCATED(?Xk(Ar^(@u Xf(`@( x`b0~hapbxc(@u@RBBHp`yhXx`v@up@@oHp@xhHw`cvp[h`c (Aq[WRbc( (Ҁ`b(`z`{`|i[j`bvp[yGGA`optT[(`bhcpg`[pfArfu@cv@HhXx p`y!`v(,H (@up@@R(,A(,!"`fp[`Sp\*XX(33l[`q(Ah `c(@Spc`bAvp[@tTi[`c.`cvp[AQq[mhbc.SMP BAD EOFX d"` E)d ''3g` ?@@ '@0N44Xx k;$SPCL 92084-1X523 REV.2121 780921 P92084/&$SPCL::PCO4 $IS43 $SPCL $SPOK ^IS43   @Л%6MTM::RTE_6:5:11:128 644 0 0 5400 5310707245 33155 %6MTM::RTE_6:5:11:128 $ ` %6MTM +#+#+# [CFST 66X18k%;MTM692084-12029 REV.2122 <850802.1736>P92084/&MTM6::PCO 6@x1844XWk$;PRMPT 92084-1X531 REV.2121 811123 P92084/&6PRMT::PCO4$$$LIBR $LIBX $MTM$RNTB EXECIDGET TRMLU $@@x(p0p눀 px ׈xhHxHH(h pP(hHHHH(.p@ Ԁ0p`AP(>=(L`0@RRpLAW`0pA_ (@Ԁ (@p@p@uz((0ՀhՁA`p'SS`P(`A0p(`pAHA`p (ЄA (`@ppG  +?@ ==))00>_FMGXX > >_ ::HI::-2 R$PN$ ?s=@44Xlfk$*;R$PN$ 92084-1X532 REV.2121 811123 P92084/&6R$PN::PCO433 91$$OP$LIBR $LIBX $MESS $PVCN $RNTB $WORK EXECIDGET TRMLU 3l??Ԁ%pe0dp+"+& ![`[(x`@p@@ (e`!#P(ehHHHH (2pZ@YԀX0ZpZ`!bpch (e`+P\(TP ?KK(zP (P(+(eSS + !eaZ(e`cP`(`^0 p]e#]]eaaaaZ`cP`A(h!kA0_p]x$]aaaaaaZ((h Q (D@H0ՀAeuDD`Wp'!(HԀp) Ԁp* Ԁ0p+`@p'(F`Vp')`(WHZAT ` 0 p H A x  (DpxHԀ(Ũ8ԁPP(]JJ`T(pTHp h (Ԁx  @hEH xTx 8A@h PU(PV((` ԀPU(PV((H` Հ(BRG0ABFMGXX  BBh++ , A/@ Ap5= pH++SMP D.RTR B!!SONRUOFFL? !@)NH %HELP::RTE_6:5:7:126 644 0 0 3400 5310707247 33051 %HELP::RTE_6:5:7:126 $l~%HELP +#+#+#CFST 99X(Z>HELP92084-12032 REV.5010 <880617.1015> /SRC_92084/R5010/&HELP9rr28HELP.NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN rXXEXEC.FION .SBST .SCO.SST .SSTC .NFEX .MBTFMPREPORTERRORFMPRUNPROGRAM TRIMLEN FMPCLOSEFMPOPEN SPLITC((OMMANDGTERR XVVs22D((ڊ((((@`(V%%S7LHelp keyword must be given when not in session. %  AAL`@(##dNo error in SCB; help keyword must be given.#~~GPPAAd(Ah`   A( "Apn nnA n 4pn nDn nJ EApn n~**%InAnWp`(h_* 9zError scheduling CMD, cannot give help. V_AeAzhkAn]]9p::,SK , RU,CMD, !HELP::0/SYSTEM/HELP.HLPosfq RU"2  ]@,/* next directory entry. *$$* -------------------------------------------------------------------- *$$* Note: can't use /Mpack Temp/. $UTLIB::RTE_6:5:12:128 644 0 0 6000 5310707250 33747 $UTLIB::RTE_6:5:12:128 $ t $UTLIB +#+#+# :CFST 77XN ,UTLIB 92084-12033 REV.5010 820923 /SRC_92084/R5010/&UTLIB 7@N44X}4k.;MT1OK 92084-1X571 REV.2540 850612 P92084/&MT1OK::PCO4 JMT1OK :^.ENTR EXEC ``44@/p3A 03((( h X1(("($(&((()()`+()`,()`-()`.WR `@44Xk:;FESSN 92084-1X572 REV.2121 790504 P92084/&FESSN::PCO4 AFESSN #>$SMDL $SMID .ENTR 88 ThπHԀ    ` Ԩ 8@44Xk ;NMCHK 92084-1X573 REV.2121 810309 P92084/&NMCHK::PCO4 :NMCHK NAM.. J`p(@ѽ}44XƲ k ;GETSP 92084-1X574 REV.2121 790503 P92084/&GETSP::PCO4 =GETSP w{$SPCR OVRD. > 88`H@p`@@*QI**XIDSGM 92084-1X576 REV.2121 810315 * ̋TIDSGM  EXEC.ENTR RPCHK ffCLLTHE FOLLOWING PROGRAMS HAVE ID SEGMENTS POINTING TO THE FMP TRACKS YOU'RE REPLACING.THESE PROGRAMS MUST BE REMOVED BEFORE READT WILLREPLACE THE TRACKS. fZZGP::PpOSbOLPQ(fTS(oRuR{R*RBSRL([Z @l9**X /RBF/ 92084-1X577 REV.2121 811013 * xRBF   @>44Xk ;RPCHK 92084-1X578 REV.2121 810309 P92084/&RPCHK::PCO4 =RPCHK RP.CK J`p(@44X#Tk ;QUOTE 92084-1X936 REV.2301 820922 P92084/"E::PCO4A*EQCOL QUOTE .ENTR .MBT.SFB EE`&h @ x' `'Hx `'Ah "()5 pL*(pMNPP(?`MOPQ(C(F`M@RpM(;`M@S %E`M(8(8L(5*== @X44Xk %;CMPWD 92084-1X937 REV.2301 920923 P92084/&CMPWD::PCO4 MCMPWD .ENTR ,,@`h(h@(,@t4%SGMTR::RTE_6:5:43:128 644 0 0 25400 5310707252 34145 %SGMTR::RTE_6:5:43:128 $++%SGMTR +#+#+#+(CFST 77X+PSGMTH 92084-12034 REV.5000 <870415.2218>&SGMTH::SRC_92084 7@ +77X#SGMTR 92084-1Y034 REV.2540 <870415.1034>&SGMTM::SRC_92084 7//Gc EVLFG  AREA MAINE SVSPC MDNOD ABBIO/ssSGMTR .NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN s%%EXEC.FION SGLDE SEGLD ERROR IFBRK LOGLU % SGMT1 66~k  p("""A!6   @a88XC/EVLFG/ 92084-1Y034 REV.2540 <870415.1034>&SGMTM::SRC_92084 8 AEVLFG  @CXb77X/AREA/92084-1Y034 REV.2540 <870415.1034>&SGMTM::SRC_92084 7 AAREA @eӄ88XF/MAINE/ 92084-1Y034 REV.2540 <870415.1034>&SGMTM::SRC_92084 8 AMAINE 0@?|^<88XT/SVSPC/ 92084-1Y034 REV.2540 <870415.1034>&SGMTM::SRC_92084 8 ASVSPC @ @^}f88XJ/MDNOD/ 92084-1Y034 REV.2540 <870415.1034>&SGMTM::SRC_92084 8 AMDNOD 02PM @z66X:/AB/92084-1Y034 REV.2540 <870415.1034>&SGMTM::SRC_92084 6A$:AB@@3^66XG/IO/92084-1Y034 REV.2540 <870415.1034>&SGMTM::SRC_92084 6A+BIO 2p @8 V77XcSGMT1 92084-1Y034 REV.2540 <870415.1034>&SGMTM::SRC_92084 7//Gv EVLFG AREAMAINE SVSPC MDNOD ABBIO/ (SGMT1 PPu.CPMREIO.EXIT .SST.LBT ERROR INTTODECIMALSGLDE SEGLD IFBRK SGM1B SGM1A RHPAR DECIMALTOINTRCPAR P  EMVMDBPFSGMT2 }}@@ |bpamuqp`(-hp@~Hpfhp@}f(4 kqqp`(;hn@~pfhnH@}f(; skp`('`p(B}~~f(==+s`p``(DkJpf0f(K@pGp瀀`(MpRp`([`p p(k(`(R`P(d(R`~Gge<&SGMTM::SRC_92084 7((F)AREAMAINE SVSPC MDNOD ABBIO( SGMT6 rr.DAD.DDIEXEC .CPMREIO.EXIT .IMAP .LBPR ERROR REPUT FMPCLOSEFMPTRUNCATE FMPPOSITION FMPCONTROLPUTLN FMPPURGE IFBRK NDWRT SFILL FMPOPEN CNUMO r  ŭ SA, 000000B END d U \2  SGMTR: CREATING OUTPUT LISTING ~~V,CC `(:3`3(3/p`@ `@p`@hʀH  /: 3(~&CC`@pA P(`p ʈ((`@HHpx `@ (`ʀ@pA P(`@hH Apx (@p~~ΛBB`( !:3`3())3,`3(4438@3`3(HH3P3`3(XX3^3~QQv9\++86`3(ff3AA64s34`3({{3 3`3(3QJ SGMTR: SGMTR COMPLETED!= AA% SGMTR: NODE STACK OVERFLOW  %@//&mfro@`D@ F. @ /@9JVu77X icSGMT2 92084-1Y034 REV.5000 <870415.1034>&SGMTM::SRC_92084 7//GEVLFG AREAMAINE SVSPC MDNOD ABBIO/  rSGMT2 ~~l.EXIT .IMAP SGLDE SEGLD ERROR FMPCLOSEIFBRK SGM26 SGM25 REPUT SGM24 SGM22 CMWEN GETEN FMPREAD SGM23 FMPREWIND PUTLN CNUMD FMPWRITE MOVEILOAD FMPSETPOSITION~ FMPOPEN  882@''$LOC$ $LOCD $LOCP .CNOD .STAR .PLU# .#NOD .PADR X $EMA$ SGMT3 8~~ rGGp f`&( p P92084/&6FCLB::PCO7@d$44X ;RED.C 92084-1X589 REV.2540 830809 P92084/&RED*C::PCO43 ADS.C C.#SC C.??C.BFF GC.BIA XC.BIN C.CR C.CRD C.EXT C.FAD C.FCB C.FID C.FLU  C.FSZ C.FTY  C.HLK C.IFS C.INC J6C.LEN C.LNK iC.LST C.NAM C.NTY C.PR1 C.RC# C.RSC C.S/T zC.SAU C.SCC.SC0 C.SC1 zC.SOR C.SSC C.STR C.TRN 7C.TTY BB3C.WRD bEOF.C GES.C LIM.C PRM.C RED.C RWN.C 7SPC.C tWRT.C B""$SETP .MVWC.PBT EXECGEX.C NAMRREIO"~~^HH逄'(  Ł,(-A,((`'(^#)&(^ ex$(^ xÈx%exHx  Hxh (I~T=H==x@`(9`%@$pp (9e`&X$(_h%8(p` e@˨(f (( (ƀP(==P(0Ȅ(pp@p@p`p@`(`8tth`@ˀtGG(  @xp  /p x`pH0p` `   (A x  0'` ( /8˨_ DD` `h  /퀀@@' @/(I^0_Apx`H`(Zp``] MCC(R`\(Zx`pata,78`(S877 1 ?@(ym@m(^mA8mpxm(@˨b8bb(ꈄ^0pZZ(1--((˨` 88@pp68(`D`hHZ__W++pxhHxpĈ8(LjP(h`(p8(hxh8 (8(``h_   FF:O722]_W((hF iyz@Hf44X?;OPN.C 92084-1X590 REV.2540 830821 P92084/&OPN*C::PCO4;;DZC.SON _CLO.C cEND.C xGMM.C GSN.C OPI.C #OPN.C SUP.C ;k6 .MVW .SBT.TTYADS.C C.#SC C.??C.BFF (C.BIA !C.CR#C.CRD C.EXT C.FAD C.FCB C.FID C.FLU "C.FTY C.HLK %C.IFS 'C.LEN C.LNK C.NAM C.NTY $C.PR1 C.RC# C.RSC C.SCEE&C.TRN C.TTY C.WRD EXEC GES.C GEX.C INAMR LIMEM LOGLU LURQNAM.. NAMRPRM.C PRTNE5FFp>`p#`nH@o@h%HtHHHx`s@$=plx xm!lm((@p>Dpl DDO(DH0O?Ep=PA(hl ([ Aׄ [hzF@@Xq`\p<PpmmPZ([A@VP[H( 0D0Q`W0UpW0Y`Wh=HX@0T(76GQKK ?@- &!%$H`h(j(d_H(}SpWQ({W@(HpHEPA(@(H@ _ (R(@BQ@pGGh _(`D _8__@A0Up Dx@&x'A x#3@Q@@ E H9"`0h @ hFxhxH5 8HA (` p&hkk<77 HH$`@ p)`h8@1(h7`x.`4 p+` hb06H,h8 (`  8h 2@a׈@0a kt7 XX! sun jan 1, 1980 12:34 pm V 0ampm:Fri Sat Sun Mon Tue Wed Thu KJan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec 0 :H`pi(m_(ui(ecpqArcuw8ccppx==x8xA8xHH`xA@5xHB HA   8ppA h6HH`R 3p@\44Xե!1;GEX.C 92084-1X591 REV.2540 810804 P92084/&GEX*C::PCO4C.PBT GEX.C UU C.#SC C.CR C.EXT C.FAD C.FID C.FLU C.FSZ C.FTY C.NAM C.RSC C.S/T C.SCC.SSC C.STR EXECLIM.C RMPAR U ^x @KK ?D.RTR p@ 5&V`0p4 ( ` p`p`p ``@`pAppUO@@( HHxAP (gf  (@ (m (u`H(x (h`X ` (ÂxpA!FF  ``p`H` H`P P(È  ` h Dx p H `8∀ (  `3FCCA  (рA(  ` p 8p x @@p 8p     @H@@ `H @:\Ywww~~ADS.C GC.#SC GC.??GC.BFF GC.BIA GC.BIN GC.CRGC.CRD GC.EXT GC.FAD GC.FCB GC.FID GC.FLU GC.FSZ GC.FTY G~~~-C.HLK GC.IFS GC.INC GC.LEN GC.LNK GC.LST GC.NAM GC.NTY GC.PBT ? C.PR1 GC.RC# GC.RSC GC.S/T GC.SAU GC.SCG~~~ C.SC0 GC.SC1 GC.SON  pC.SOR GC.SSC GC.STR GC.TRN GC.TTY GC.WRD GCLO.C  pEND.C  pEOF.C GGES.C GGEX.C ? G~~~L GMM.C  pGSN.C  pLIM.C GOPI.C  pOPN.C  pPRM.C GRED.C GRWN.C GSPC.C GSUP.C  pWRT.C GF.C GGES.C GGEX.C ?G~JEE ; ; 7  6 6 7A M ; ; 7   6 6 7A g ; ; 7  6 6 7A # ; ; 7 , 6 6 7A 3 ; ; 7$IB6A::RTE_6:5:19:60 644 0 0 11400 5310707256 32763 $IB6A::RTE_6:5:19:60 $<$IB6A +#+#+# AFD:FST ## u:IB6A 92084-12036 REV.2540 <850803.0129> #BIB"" tIB6A2 92084-1X594 REV.2540 <850730.1619>";;@2"ABRT TCLEARnCMDR CMDW CNFG @GTL IBERROIOCNTILLO LOCL PPOLLPSTAT6RMOTESECR u;@yKSECRRuSECW qSECWRqSRQ .STATS@/TRIGRV>$OPSY.ENTREXEC IXPUTLUTRU;;`^a( @x`Դ X]^ ($p`0dpap`p8;;;`^^lZap8+$8(``@c@p8p8p; `C<8p ;;`_.?pGh$N(((a(Z(gڠ`};<<`Z ^Zp`0zp`Yp(ڶ`qp`Vp(նXK(xXL({(< `DFx(}( <<`Z|(XK(`p(`wp`Vp(`}p`0yp`Yp(<<<`[8`j0p(`}pZ`0np`Xp(Z(ڴ`}p< `CU`0x ;;`Zp`Yp(`rp`VpZ(ߢ(`sp`Vp(;<<`\ɍζ(Ķ`k0p(`i0pZHMԀpe( xpp< `C5궀a ;;`\ѷ8(Ԃ0ep(PK(PL(PM(+(((@\(@Q;<<`[|| Z0u 0Qp(`tp(&`ap`g00np`}p`Zp< `Cu1$( <<`['`Wp(ߢ(`vp`Vp((`b0p(<<<`ZBPK(HPL(O(`l0pp (`m0p(Z(`p< `Cue\PK(d ;;`Z_PL(fPM(j(ĴZ`K(gp (`}p`Wp(ZhL(xhKx;;;`[y`pp^((0p(`pppp`@W;`Fdp(J J;;``"Jpo_pPV(@(Ķ`@@VԀ(pa@VT;<<``U@h@NԀp_P^ho (`pp$LKR$ZO`^p< `D\`0dp ;;`htޢS$L$JJ4Z`0`p$4B;<<`e$MM  HRԀ@UpHVԀP^(Hp`< `C_6+X] ;;`^f6.^p(9hHVԀڨh8(=(HڃԀ^P(DHP(:HOԀ`f;..`cԟL ?@@@@ .`Rp((p`   ? @ _?`?`_`J`AV `Bb`LILL RQ-HPIB PROG ABORTED"" dIB6A3 92084-1X595 REV.2540 <850801.1130>"@2SRQSN$OPSY.ENTREXEC IXPUTLUTRUSRQ.T<<``7iPHxЀp`Դ X0pW(@(HWx$!<;;`]e 6`pXWph8XXp8XXp8XXpWp6$Z8(FЉ0; `D=pB ;;``&A4Zh (H(ډ`pWpXpYpZ[`P@p[(\VW"VZV;;;`_a0pgV6P(@(`@@ZԀ(Fp@@ h@Ԁp; `D'PP ;;`g1ZZh (F`pWpXpYpZ$ ?@@;`A `A  `Dv\ SRQ.P `L<ILL RQ-HPIB PROG ABORTED"" qIB6A4 }92084-1X596 REV.2540 <850730.1624>" @6HPIB IBSTS .ENTREXEC LUTRU ;;`]n0mpo `o4Z (`ojpo`lpp p!p"`o#`@gp#;;;`af($]]"]"pkjpm0mnPf(L@(L`@n@fԀ(pp; `DF>j@fd ;;`cD&B@h@aԀpoiPh"hk (`lpp Z$_^qc$]b ; `Fbe? `A l ]`LqILL RQ-HPIB PROG ABORTEDqq$LDRLN::RTE_6:5:117:128 644 0 0 72400 5310707260 34704 $LDRLN::RTE_6:5:117:128 $uu$LDRLN +#+#+#u:ADPFST ::X#y&LDRLN 92084-12038 REV.5020 <890830.2223>/SRC_92084/R5020/&LDRLN :@@#::X(c ~yL.REL 92084-1X612 REV.5020 <890828.2035>/SRC_92084/R5020/&L*REL :zz# BPF.L COF.L  DBL.L  FX1.L  FX2.L  FX3.L  FX4.L  FXF.L L.ABT L.ALO  L.FIX  L.FNU  L.FX1  L.FXA TL.INL L.REL OL.RTN zzz{,L.SCA L.SCN EL.SEL XL.SIL LS1.L LS2.L LS3.L LS4.L LS5.L LS6.L LS7.L LS8.L  LS9.L LWA.L  OFS.L  OPG.L OPN.L zBB# WPTN.L SAF.L  T2F.L TBF.L TBL.L  TF1.L  TF3.L XXCO.L ZXSA.L B~~F.CMW.DADO.DLD.DNGP.DST.ENTR Q.MPY.MVW=?AL.L 7ALC.L 8ALS.L BPR.L CC1H.L DC2H.L CAD.L CBP.L @CEN.L COM.L <CON.L ACP1.L BCP2.L CPL.L -DCP.L #EBP.L EMA.L 2EMD.L ~.EMS.L 6EON.L /EXT.L FXN.L FXS.L )HLT.L IGN.L GINS.L HL.ALC $L.BUF ?L.CLR >L.CPK FL.GCP IL.LIK EL.MPG LL.PCP ML.SCP NL.SPL JL.SRC LBS.L 5LIB.L ;LOS.L :LSV.L LSY.L MLD.L P'4MLS.L MSG.L NM1.L NM2.L NM3.L !NM4.L NOR.L (OUT.L KPEN.L &PGL.L PGT.L 'PRE.L PRI.L *PRR.L ,PSR.L +PST.L 1PUD.L 0PUR.L 9RBP.L RBT.L %RIC.L .RIS.L 3SAD.L SEG.L "SSG.L SSYM.L TH1.L TH2.L TSY.L URF.L ll::yp<Tx:X(6 p=HBx;P<((%`@A<(0h: D H[H;H=x:(h:x\H8x\l:(Ok~~ @@0@pE`(#`PB(A@`$p͈hxH pFQ@P(@RpD p<p OPH`@pˈ` @h@<`@<pq(׈D(j~pW>>hD`P[(e wPD(`(x` V X(`DP( G(PD(xP(`D(`VpQ G`(`QP VH i(h`pQ ((Op=`ph`Q`(O@@`@<OAH( ((pP(P(@`((`ЈP[((.(`D@h 0Ո`DP( PS(%Hp`p``BpHH`Dp`@p`$p&`$ p`$pW(,D8(,hXH!p pXDhx@p@`@!(,p`pQh (O!`(O`/(ZD@FN?DpCpD` e7;;DP[x(`)x(`$p`$p`$0p`p p`hA`$@(p`h(`$ JpO$AP8(f (ihG (`$p(h (8RRr))(p0pYhHHx1@p`@(H(*`$p;p8(`Z( xhHHx3Hx`@((*`pQ@h (OpR CC@`/D(?FN?D`p<pC@HpD` P[@x(`)Jx(`$ @ p pA`h``Ah h`J@p(@>(`>pJ`h8E`@@(`:h>PL`p<`h@JHCP(d `L8<(g0LqN`<`M`48NN`<(~(h<Ep8qqpЀq0 $ >>!$   p@`(`PB(G`$ ( pɈh Hp p p xшh`PHC`PHC`pPHC@p  x>` (p P(P@xq(R@p`(`(`P[(`@((x`(`p(`(`((( p>(`P[(P(h<`(O`((H(DHh`P[(( (`x(`(( (2`(2`(2( }p`0h @Ո`< i G` @h/ FBB((p `(@`/((h (i`@h @h 0 W`4`҈`<h/ ((`@h6 (wu<(*(~``@h/ (`Ԉ@<`==h` 8((G (hHP4(`P(/P (/ (`p(h<E` G`H`4ꈈ((h<E` GH`48 (`(AAHP5(`H(P5((?p҈pϨ`Dphxh/``<(8hxpШꀈP[(H(P4((P[(hHP4( (~~q@@(P4p.`P[<(*(P.(#h<E(ipP[(`,(O`-h<(Op`H(;`PB(G`$( pͨ`$ ~~~OF<<( p`pˈh H`H pp<( @( ` @ˈ@h @ h@<` @@[pрh (` @p( ` pP@шxq(R~<<p@`(`(`P[(`x@`(`p(`(`(((`(`P[(P((` @Ԉ0<hḦH>(h(P(h((@`(((h`P[(s (`x(@`(( (`@(`((( i (`@@h @``h5@@XS`<`phˈ8(H ( (GH (p `(((G(PS(P[(PP((ˈPS(P[(ˀP`::(P(ۈP(P``[@@`(Gp `$ ( pɈ` @p `$p @H$x  x #`>p "8 ` #p # P( PB( !P( 5P( H@ ;; h px 8 8(G8 8 "((  p p  C(   ( .p h  p  C8 (  p 8  (   (  hH 8  @( G E88@`(G`$ ( p` @p `$h !( ` p PB( PH@H$x  x #` p "8 ` #p # P( PB( P( P( P( P ˈ( P ( @ h p& }AAx 8  x 8(G8 8 "( f( a p p  C( `@ ( {  (  QQp 8 AAOP  $P( OA@ ( PB( 8 O68 p x h  ==px 8 ` ( {`: ( { p h'x `  8  ( {  (   PhH 8  @( { A( p O'x h H[p  C8 8 ( p 8 " BB p  C( {p  $( PS( ( ( _` (O 8  ( ? Thx h p< D`[@B@>(  Ch H x HH  h  ̈` `  h 6P P hB`  ވ    `  `  8  `pD\h X ( XHHCP( *( " ̀ ` p ۀ,x    p ܀ z 9<< p V x x  و P x P ㈈x  p  ׈p `Sp ` U wp   h ( " Vh HX  H x ( Y` DŽp X ( sH ǀ( b  8 8 ߈( h` @ p H ( `` @ u??Hp  p ˀpPP( h  ( Q@ p D`  ( h ( h X[( h X ( h# ( P ĈH( h E( `  p hҀ` H x҄h Ih p `P( : GG x  w@҈( ( p ( h E( ( 8 h p  ( x x  x x ڀ |HP@` ( Qh`   H pG6( 99 `  p ` ( P ( x ` x `GI ` 0 ( `H0G 9  $ p AA`  p p ` p  + ` @ h x H `  p 8 ( '` @ P ( E` @pp  ` D(O` G W( S0 W G` V X G@pQp@`AA ]!!p`P92084/&L*LNK::PCO7zzC1H.L C2H.L CEN.L CP1.L CP2.L CPS.L )DCA.L DCE.L INS.L wL.ALC L.CLR -L.CPK L.GCP L.LIK L.LKS L.LNK L.MPG z^^$L.PCP L.PST -L.SCP L.SPL KL.SRC LK1.L LK2.L LK3.L LK4.L NGE.L PEN.L TP1.L TP2.L ^ߢ&.DIVBPF.L CPL.L DBL.L DCP.L DEX.L DPL.L FX1.L FX2.L FX3.L FX4.L FXN.L FXS.L INL.L $L.ABT "L.ALO L.FIX L.FNU L.FX1 !L.RTN #L.SCA LS1.L LWA.L OFS.L OPG.L DD OPN.L OUT.L PGL.L PGT.L PRE.L PRR.L PSR.L PST.L %PTN.L T2F.L TF1.L TF3.L TH1.L D9>>`@( ``@`p,p+x)h)+p*A$$)*8)8+8,(|p{`pzP-}(>|@{-~~ >88`pw`P(j}(@|@{(@`wpzpxpyx8xx8xx8x`xx8xx 8y(^`P(j`x(?hz(u x@phzx~+vDD-|}pppp``@}``p`(ΈP((@` (H` P(`p0I @Hx` YFFHx  x`@H ` JD&p hX((Dp ` hHxx`p` H(`p0I Hx  @xH p  x8(h  (` FAAJD&@ p @(` J&hۀH  ppp܈`@(&88ۈ(@@` H(E@pH@h (>IPI(>`H0I`Hp`HAGG-H@pH(>`v0JpthHDX(r@P(luPt(lDP (lH@|P(loP%(ph (QK8KKwxp`v0J0pH@(`JDD8ww`(!  H(` |@(`(`P(H`0J@8pxhA#΀h (`( (h(Ø"h`pH``рP0J0v0Ҩ~~<<X( (H|P(H|P(`8 P(@pH (8( `8 hH (P(䈈@pH (88`)(~::`P(&}p(|P(`((P($ 8((h( *:  Y @}::X((yL.FLG 92084-1X614 REV.5020 <890830.1533>/SRC_92084/R5020/&L*FLG :zzM?AL.L jALC.L kALS.L _BPR.L `CAD.L UCBP.L VCOM.L lCON.L CPL.L DCP.L DEX.L DPL.L EBP.L YEMA.L bEMD.L EMH.L EMS.L zzzEON.L EXT.L  FXN.L  FXS.L HLT.L IGN.L INL.L mL.BUF LBS.L LIB.L iLOS.L dLSV.L  LSY.L MLD.L MLS.L MSG.L NM1.L zzz06GNM2.L NM3.L ?NM4.L NOR.L OUT.L RPGL.L QPGT.L PRE.L SPRI.L PRR.L PSR.L PST.L aPUD.L WPUR.L TRBP.L \RBT.L hSAD.L zIIXSAV.L SEG.L gSGB.L fSGM.L SSG.L  SYM.L ^TH1.L [TH2.L  TSY.L ZURF.L I  A?@ QGH **Q]*@Fde$77XUpIk#;L.INT 92084-1X615 REV.2121 <811113.1029>P92084/&L*INT::PCO7 + L.INT 1.ENTR .MVWBPR.L CAD.L CBP.L COF.L COM.L CP1.L CP2.L CPS.L DCA.L !DCE.L FXN.L FXS.L L.LKS LK1.L LK2.L LK3.L LK4.L LSY.L LWA.L "NGE.L SAD.L SAF.L SGB.L 00 GSSG.L SYM.L TBL.L TH1.L TH2.L TSY.L URF.L XCO.L XSA.L 0gg@ ??DDppppHp p DHppp@@p xH("x($pp(*xp pDpppA` hHGD` ppDpD@` D `!p" g@S44X]%k;L.ADD 92084-1X616 REV.2121 810129 P92084/&L*ADD::PCO4 L.ADD **0M.DFER .ENTR .MVWL.SCN LS1.L LS2.L LS4.L TBF.L *FF M%%Ap$`h#A$`$HH(hH"P!( 0F@ZSy44XPk;L.LDF 92084-1X617 REV.2226 820405 P92084/&L*LDF::PCO4 L.LDF .ENTR L.INL LSY.L ~==`Jp `p ( IA (($HF0DHMLpN KpOHGHN`OHEHX(>LpN (1 (HM`F@ PE(`NHH%% = xO 0I@%@3RN44XUk4;L.LUN 92084-1X618 REV.2121 810826 P92084/&L*LUN::PCO4L.LUN L.SCL n.ENTR L.INL L.SIL LSY.L 7@@`Lp `p ( LA    @HXRpP pNT`Q@PpP@HpO`PpP HOHMPJ(D @(`NT(`N))m@S(D(`HP80K@@)@eP77XEPVk;L.FAL 92084-1X619 REV.2121 <811113.1039>P92084/&L*FAL::PCO7 L.FAL .ENTR LSY.L SYM.L ??ApO Hh HXSpR U(/xP(+THEX(+(-`IpOhP`J@R@KpQ`RpRHQHM`O(;(HRHN**y`?HJ8`MF@*@944Xyk$;L.SYE 92084-1X620 REV.2121 810922 P92084/&L*SYE::PCO4 ,L.SYE ee0E.DAD.DFER .ENTR .MVWC1H.L C2H.L EMD.L L.FXA L.PST L.SCN L.SEL LS1.L LS2.L LS3.L LS4.L LSY.L TBF.L TP1.L TP2.L TSY.L eEE`qp `p (ApXptA`hutH`t(7HmpXvPl(( Y(R YnPp(RYDD`p`pD(R@(Sht HYw(P ++&E  ` @lp ` @p `k  `x(T+99]Y w(V@X htYp r 0@9@244X/k2;L.IFX 92084-1X621 REV.2121 810128 P92084/&L*IFX::PCO4 L.IFX :: TC1H.L C2H.L L.FXA L.PST L.SCL L.SIL LS1.L LS6.L MLS.L TP1.L TP2.L :XX=//D8`DDp`p D($H.x'p(H,)(P (H+H((H*`&H, DhH((H ?X@ 77Xk ;L.SG0 92084-1X622 REV.2121 <811113.1044>P92084/&L*SG0::PCO7 L.SG0 :: ]..ENTR CBP.L CP2.L CPS.L EMD.L L.CPK LSY.L SGB.L SGM.L SSG.L TH2.L :ADD`p`pDD`p` Hp @i)77XZ k ;L.SGN 92084-1X623 REV.2121 <811113.1045>P92084/&L*SGN::PCO7 L.SGN 55 .ENTR CBP.L CP2.L CPS.L EMD.L LSY.L SGB.L SGM.L SSG.L TH2.L 5 ADD`p`pDD`p `p@44Xō3k ';L.MAT 92084-1X624 REV.2121 810129 P92084/&L*MAT::PCO4 L.MAT MM6.DFER .ENTR .MVW C1H.L C2H.L L.FXA L.PST L.SCN LS2.L LS3.L LS4.L MLS.L TBF.L TP1.L TP2.L MYY.33Ap0`h2A0`0HH(/P.( H`1DD0p` p DD` p  (0Y@R44Xf#';L.CLS 92084-1X625 REV.2540 850509 P92084/&L*CLS::PCO4L.CLS WRIC.L XRIS.L j.ENTR EXT.L L.BUF ??pXJp`YpW(7PY(`ZpXPc(MPb(Mp(!pX`dp H_ (7 x[ (;`heH` 8[(0P(;`] xX`XPa(D::F?hXV(T(MP^(I xVhVH`WPa xV`X`W`\:Y  $@sM 44XUk ;L.SFT 92084-1X626 REV.2121 800328 P92084/&L*SFT::PCO4 L.SFT WFXN.L FXS.L ## DhXH( H(H8#@‹K44XRk ;L.PAK 92084-1X627 REV.2121 810312 P92084/&L*PAK::PCO4 L.PAK .ENTR .MVWL.INL LSY.L h@@pGxFhFxEX(B`GxGPpH@OpJ LpK QpIHNHH`KHMxFhJHMxJ @I(6 `I(6 XM( `EPGA(?hGJxG( `F""@@pG( `Gp@?"@M 44XȵEk ';L.MLS 92084-1X628 REV.2121 810129 P92084/&L*MLS::PCO4L.GTM L.STM A.ENTR .MVWL.SCN LS3.L TBF.L ~~^NAAAp>`Bp@((8HPB(`CH`DA`Cp@p>((8@(%`C`D`@(.`(/`hAA>`>H(8((h@ ~ A@w.744Xk 6;L.CPS 92084-1X629 REV.2121 811029 P92084/&L*CPS::PCO4L.CPG L.CPS &&7C1H.L C2H.L CEN.L CP1.L CP2.L CPS.L PEN.L &,,BD8ppHpx@ppH@pph8H`,@/NL44X!k ;L.FXE 92084-1X630 REV.2121 810129 P92084/&L*FXE::PCO4 /L.FXE // P.ENTR .MVWL.FNU L.SCN LS4.L OFS.L TBF.L TF1.L TF3.L /??5!!p`h`H(pHDpp (`  ?@Ji44Xk ;L.JSB 92084-1X631 REV.2121 800602 P92084/&L*JSB::PCO4 )L.JSB WFXN.L FXS.L &&H8hX(HHP(&@ ;;XSyL.SER192084-1X632 REV.5020 <890830.1346> /SRC_92084/R5020/&L*SER ; .L.SER1 :: [.CMW.DLD .DST.ENTR .MPY.MVWFMPPOSITION FMPREAD FMPREWIND FMPSETPOSITION:bJJp`p`Ah `hA@"(. p`P(;h` P(a`(pDLp OFFA`  @ @ `("hAP (nk`` (` h @@x  @ @A (` h@php x(hH9RHHX((`("`h(("`A@ p     ((8(P(`(ڀSS,,p@(``hPP`  @ A @ `Pը S Y       @.9::X/yL.SER 92084-1X632 REV.2226 <890830.1346>/SRC_92084/R5020/&L*SER : L.SER ##.CMW.ENTR .MVWAPOSN LOCFREADF RWNDF #LLp`p`Ah `h%A.zz5z`zP(@h`P(\`(ApIARSAA[(%hP(lizzz``(`h| @(`h@p{h|pz x(hHzX{((`|LL(%`h((%`Azz@ p{     8{(Pz(`A(AA߀}99@(``~hPP`P}Ѩ9 ;|  |  ^ d@ZBCKUP.LIB::RTE_6:5:405:128 644 0 0 312400 5310707261 36113 BCKUP.LIB::RTE_6:5:405:128 $`BCKUP LIB +#+#+#DFST ;;XUv~ 8BCKUP 92084-12050 Rev.6000 <920909.0131>/SRC_92084/R6000/BCKUP.MAC; =BCKUP @;;XVSP2L2 92084-1X810 Rev.5020 <890331.1009>/SRC_92084/R5020/SP2L2.FTN; dSP2L2  6.ENTR XLUEX SP2L1 DSCPR LDTYP   qq\==A@pP`UpA*T(L`Sp 1p`RP(6(L`QP(L> ` (LK (Nq-6QDI? @,K|;;XOSP2L1 92084-1X810 Rev.5020 <890331.1009>/SRC_92084/R5020/SP2L2.FTN; mSP2L1  .ENTR .CPMXLUEX DSCPR LDTYP   ~~JEBB@pp`@ `p((`pp`0pAA(`pP(I(M p`P(R(`P ((~~~X>>]`(P(d(`P hX ((P(v(`P (z((P(((((@h`p@~ (7((7w lDI? @ ;;X*SCHCK 92084-1X716 Rev.5020 <890331.1009>/SRC_92084/R5020/SCHCK.FTN; AIPROG ?SCHCK  RPERR DIALG / p`("`)P("9SON PROGRAM NOT SCHEDULED PROPERLY ~("$'SCHCK ( @<7AAX~/ 8RMAIN_P 92084-18717 REV.6000 <920908.1 920909.0124 /SRC_92084/R6000/RMAIN.PASA@uڔ@@XY~1 8RMAIN 92084-18717 REV.6000 <920908.1 920909.0124 /SRC_92084/R6000/RMAIN.PAS@ әRMAIN ~~ +.CBT,.DAD-.DCO..DDE/.DDI0.DIN.DIV.DLD1.DMP2.DNG3.DSB.DST4.ENTR 5.LBT6.MBT.MPY7.MVW*ADDTR )BREC(CALCK 'CHKLC CNUMD &CONT? !DIALG DPCHK DSCPR DWERR $EODWA ~LFFILE GPNTR GREDY GTRSZ HLTMA IFBRK LCKDI LCKTA LDTYP LINSZ LOGIT MOUNT MPRNT MTCHK NAMR8PAS.BLANKFILL 9PAS.BOUNDINTEGERPAS.NONCDSPBSCH #PRTRM "PUTRM RETRI RPERR RTAPE RWNDSPARE %UDTRM WDISC WRTOK ! ` (p (p `  A4  p `Pp ( .Ȩ@A( !#$ɨ2''w3`2(4p182`1h?A7($!DE˨P'Q88`P(RpO8P`Oh]A7(@E`QPN(PO(PP(PQ(PS(PT(PU(PV(PW(PX(PY(PZ(P[(ΈP\(P](ȈP^(P_( P`( Pa(Pb(Pc(o;;Pd(!Pe($Pf(Pg('Ph(+Pj(Pm(Pn(Po(Pp(9Pq(<(?2_(APl(APv(AP(AP(AP(AP(A2(AP(AP(A2(A2`BnII((J(A2(A2(A2(A2 (A2hY6A`Z66h[6`\66A2A5h]6`^6A60 .(J(A2/P`PPO((J(AP<(AP}z BBF(A2P(A2](A2j(A2w(AP(AP(A2(A2(A2(J(A2`+(1(8A&4Pv(7(8(J(A2(A2(AP怄`K(FFJ Q`K(OAO eOS T^^A4RRpQ(^$'+PRSTR NORMAL END OF JOB SIZE UP THE PROGRAM!INVALID PARAMETER TAPE MOUNT ERROR TAPE IS OFFLINE INVALID FILE NUMBER UNRECOVERABLE VERIFYPUSHBUTTON RESTORE F``AILED BREAK SENSED NO DISK PARAMETERS DISK MODEL TYPE CHANGED NO TRACKS CAN BE SPARED. TAPE CHECKSUM BLOCKS BAD UNRECOGNIZED TAPE FORMAT NO MATCHING SUBCHANNEL TAPE READ ERROR k``- HARDWARETAPE READ ERROR - CHECKSUMTRACK= SECTOR= BLOCKS=DISK IS WRITE PROTECTED BAD LU WAS ACCESSED EXEC CALL FAILED UNEXPECTED END OF DATA UNEXPECTED END OF FILE SE RESTORE, NOT }r``PSAVE TAPEPB RESTORE, NOT PB SAVE INVALID PB DEVICE(S)TAPE NOT INITIALIZEDUNIT RESTORE,NOT UNIT SAVEINVALID TAPE NUMBER MOUNT INVALID TRANSMISSION LOG NOT ENOUGH SUBCHANNELS CAN NOT DEFA44""ULT DISK LU FROM TO SAVE INVALID HERE UNEXPECTED ERROR!! SШ41:@@@(`S9 !(@P@(((((((((&(2(E(I(M((QS(RS(R(RS(R ?($p?(%(R )>(.p>(1S1Ԉ(R 5@>>u5(:p@(=S=Հ`H(Dp>p@(RSH(RSL(RSP(RU>NN V((A4TTpS(fA?>~`PO(j(mSm`PP(q(tSt`(zSz͈`3@~p3NVA4p([2@LL(ENTER NUMBER, 0 < NUM < 64`H(Sp`(!y:)`)(SApby:߈`eQPO(Ĉ(`bA(`sA@b((܁bAp(==x!!(ENTER FILE NUMBER: _ @( ?( >(`%P(Sހ=??hn`(p8p(`&@Rp%A(T%$h&6A`.6+(#( S#֨(?FF>)$$A4&'p$(T`@P@zA(7(L;)`)(ASAA F()`)(LSLڨMFOON''(/pu`u(t`pv`u hv H `v@u`u hv H`u@upu(RwOxJJ(Opp`(A"(pp`A"(` h" Hh @x! h" HA@!(p` h" H` HHh" H`x! h" H!` h" Hx!!(` h" Hx!` h" H!((p` h" H@p `t@ **Ǿ ` h`p`p((}`""#*vvwr$CCA4"(y`h(2hp6A`q66(9hp6A`r66`B(Dhs6`t6A6(Khs6`u6A6`7 h H xg`1P(Z(\`4pgA`gA f.ɨjvGkMMA4iiph('v{RESTORING RESTORED SUBCHANNELDISK LU `((È@Sp`Ap 9)`)(S`7A(PO((pǀ(p`ApX&H!!(`7 h H `!UU>//(`@P6Ah6+(((A"X19)(`7 h H A@Xh HxA"19)`)(U>FF(P9((E`EB(EpFp1`rA@F(-`GP1(-`FpF`FA@s(,A$F1pH`P6hQ66( `GP1(4S3(6`Fp9hR6A`S66A9! BEJ $xKBBA4IIpG(H<TDEST LU DEFAULTED TO: `UA@(`p` AP`@Rh`@QhH`@S `@ThHVH`@U `@Vhw  xxP77A4p(_`p`[΀` `@P `@Q`([hHR`,[hHS`@ThHP`@U `@VhxT;;A4pˈ(`p`@P[`@R*Uh `@P `@Qh `@P$rhHR`@P*rhHS`@ThHQ`@R@6 5h HU`@Vuu>99A4(`E(6`uPO(#S#`@Q6hR6+(0(-`H(6`rPO(6S6`lP3(<S<`C(O`vp!`wp pC`2Pv(I(L`5Pw(OSOPu Q A(&VPv([p ( \]GG(S`(P|(b(v`@Rp3`@P-(v(v`Sp`PN(|PS(}((h6`6A6!h6`66A!`Pp A`(SA (##0`(S`3p3( (U#qOOA4p(^Pardon me, but I just hit the end of tape. Please ignore the partial header. `E(l`ˆ@PP((`@P@6`q66`@QP((hr6`s6A+r BB( ((`€@Q@6`t66(`@Q@6`s66`@Q6ht6+(*(A(A`pm`mpn`B(7`n (;`nnm`@Q6hu6+(L(RDD [K""(R`H(RSR`€@Q6hv6A+(](l(lhv6A`s6+(i(fSiwoDvvPp==(wqMU`(P|(|(p;(p;p@;@@6Ah6+(((`V@;@@6h6+(((`W@;@@6h6A+((Sʀv44(xCR PSA`H(`E(pspuprpppvpw4 (` P(сSͨ(OBBA4pҀ(p p p A蔿 ))`E( h 6` 66h 6` 6A6` Pc( Py( P( P( ( pH( `QpH( `PpH( `(P|( S ʀ( y <p@pAplpnh6`66pupr`B(”A ǔ()`)(́S`€@Q6h6A+(؈(('sHH`(P|(S`(P|((`B(22$ X)`)(SA#.X(%.X+()`+PO((A"X()pH`@RpAp`È@RhHR~~~ HH@pAA3`@Q6h6+(3((w`B(s`È@Spp9J@`p H9)`)(N((SN21`p#Z.1`p%f.+19)`+PO~fhLL(j(s`p"s19)p|%)U) @(S`BA(KAh6`6+((h6A` 669,`,PN(PO(PP(;;PQ(PR(͈PS(PT(ӈPU(PV(ـ(p=(ވ`Qp=(`Sp=(`Up=(`Xp=(ވ`Yp=(`\p=(`lp=(`np=(ވ`lp=S=(pA딿%)U) \GG@(p@(S`@Q6h 6+(((#`7 h H@p`B(`p9pD!pE`B(1,K1(5!`7ֽ6FFA( ?(ESD(`D( A@'(SSS`(P|(W(vh6`6+(a(e(e@p/(gp/`/ p/`/ p'`'po`o Ax]|GGp0`'@AppJh6A`6+(((`@S@Vp`'Ap#$`# Axp"`$(`"(S퀀(p"pDh` Lh^ h2wOOD 2,A.1LAh5A AAL3AA,L`(P|(ho AR(AARLAA1/RARh6A`6+(( ( A2?9)`)( S j `@Rp`(=IIP|((upGh/ `A@PpAA33A-(+(+(7`@PpAA3AA3N(h`@R@/A@(N`@RD 2,N(hh/ AARA-([([(`O[MMAARN(hh/ NpGN1PR3NR(h'A PADR.RP/x8pAQ%)U)Q`@Rp`(P|((p6`@RA@(@/AAAN.h6 A-(((`6p6`@RhHR `@R@@p`6 pA(Ҕ(pNؔ(,`HPN(㈈PO(PP(PQ((+ ?(e@@p(o@RpN(ADR0R(,pP2(.O( S `pN(,p`P2(`/O($S$`@PpN*)AA(,`G(`@Rp`@Ppp`@Rp`@S@Tp`@S@Vp`7 h H x`@QpA'e.25)`)PO(i(mSjFFl(t`)PP(q(tSt`@P@A-(}((`Sp)`)PS((U)`@R `H(R ( >(p%)U) @( >(R DGG(j`7p7`7A(ہ >($`rprpFp2p5p@pD`HPQ((ڈw(!( ?( 唿锿)`)(S ()`)(OOj))S`3p3pCp;;`@Rp`(P|( (pA3!(5SۀO ?``A4(R )*-!/( |$0<%" C @ <q>RMAIN LUUNSEPBVEINTAUD DEFINE CTD LU SUBCHANNEL. CU88u%''RRENT CTD DEFINITION IS:CURRENT DISK DEFINITION: VERIFING DISK LU W/SPARING8``iNGG  !"$%&)*,-/0?@ALY`blv?`@g;;X=SMAIN 92084-1X718 Rev.6000 <920908.1400>/SRC_92084/R6000/SMAIN.FTN;DIPROG  DSINF  TPINF TALK SMAIN  }}.DAD".DSB(.DDE!.DCO)EXEC.ENTR .GOTO .CPMMIN0*RPERR LURQ DIALG WREOF VERFY LOGIT CDMOV SMOVE 'WRTAP &CALCK %DRERR $RDISC ADDTR #IFBRK WRTHD FFILE LINSZ }>> WRTOK MOUNT RWNDGTRSZ DSCPR LDTYP PUTRM FTIME PBSCH UDTRM PRTRM ACINF >nn RRSAVING DISK LU XXX TO FILE XXX TAPE XXX LU XXX SAVED ON FILE XXX TAPE XXX SAVING DISK SUBCHANNEL XX TO FILE XXX TAPE XXX SUBCHANNEL XX SAVED ON FILE XXX TAPE XXX n}BBA}@}pF`[@pE@pD@pC@pB@pA@p@P((C`C(p,p. pp p?L p`Uee--`pBpHRJ|b{ЁpE`P@AP((ۊ`zP((`(dp`zP(䈈(`Z@Dp<쁅<CePyR DEFINE CTD LU SUBCHANNEL. w Rj_ CURRENT CTD DEFINITION IS:99 _j`Z@Dp< <Z`Z@Dp<  <RzCPz((`Z@Dp< <C`0p<< pE`Z@Dp< +<z ž)<<C`C(`P@AP(4(=`Z@Dp< =< C`P@AP(C(E`z~P(I(PMC`C(pv`vpv`v@~Hz@(^(v~(c(R(Āe;;@~p`P@AP(n(~pmpv`v@~0p<|< pE`vpvvm((`v@~0p<<ypE` Py(((}R(pwxx`w( C`C(`zPZ==((NnLqpoCPC(`ZPC(`p((`np`zP((`(`P@AP((LC`C~~WBBpCC#`n( L`P@APJ((`P@Ah~pmpv/p>K`vpvA~v((`?(&`?p?()`?~r(==p?(-(/p?@mpm`(6(;`v@~p@(P`v@~pu`p@`mu@Z@Dp< M< @C`C(pRp[pQpZpGpFpap]p\`0@p<Lei< pE~~޻kAAo@ C`C(`(`P (y(|` pA(~`upAA%Z?%V.%dV%(@V?V.~V~~~^AA}`zP((`Tpt(`|ptAtp< <IsIT((րIprrs((hrsspr`rIpP`Q>@Y@Eh@`Q>@X@Eh `Q~~~CC>@W@EhI`Q>@Q@Eh (`pH`Q>@P@Ep< RP<R>/.-`-hqX- (ݡ%R)C`C(1~t0C`C(`zP(8.#7>>(E=NJ  pPRnLqpoCPC(`ZPC(`n(%L`zP(b(ee`@p`FI]pYvRQ Y ~~]u?? `apa`p]` p\`zP(`p[` pZ`F(pGP>(`Q>@Ep<<R{Rp>`.p.`p_ ./@}mI?B~b~OCCa]\C`qPC(`zPp<J!(<(`C(pB`Q>@Ep<_RP<R`Q>@V@Ep<"_<#^(`F(pG`]8858p[`\pZpF`G(N`H(pF`[pR`ZpQhP]pY89>>RQ[ZY `Y(`Y'pP`qpK`K@Bp<$.@<RQYUT `T(C`UPT(`(8(;`@pS(=`ApS%CSRQhPIpG`GPF(L(NpFN;;`zP(R(`pMhG@<J!<(d (d(nJA"JxN`pL(~@`@Gy(z(z`@ypN(~`GpNpM`N(`KpOpE` p`~~>>@ChOHBp<x=&<R=I`T@OpO`EpE@N(pD`K@Bp<'<INDCL`qPC(`C(`NI@KpK`N@GpG`F@NpF`M(爊`T@Cp<&ʇ<~ RpEpD'ׁ~~.L@@TRDCL`qPC(`C(뀈`EpE@S (ppMpH`L(J(!(((`H(pF`U@KpJ`J@Bp<' <IGFCpH`F@GpG`qPC~L@@(`C((`(=`T@Cp<&"<RpEpD'/TRDCL`qPC(`C(뀈`EpE@((S ($p@`Q>@P@Ep<MRP<R`>p>vv+Q??pB`(n[A=kZa?=xVg.=wVm=v(t@PVz?uV.gVt(@>p>v q>/.L-`-((# lTAPE MOUNT ERRORF% l``Vp,(0t TAPE COULD NOT BE LOCKEDFH ts`Pp,(0%8TAPE IS OFFLINE F r`qp,(0 INVALID FILE NUMBER F~ p`Yp,(0 PUSHBUTTON SAVE FAILEDF f`Xp,(0 NO DISK PARAMETERS!!.  o`Wp,(0́!BREAK SENSEDF n`Qp,(0 SIZE UP THE PROGRAM!d cp,(0< UNRECOVERABLE VERIFYG c`mp,(0' SPARE ATTEMPT FAILEDG c`lp,(0TAPE WRITE ERRORG0 ``kp,(0 TAPE READ ERROR - HARDWAREGN j`ip,(0MULTIPLE LU SAVE OF MIXED DISK TYPESGe h`gp,(0 NOT ENOUGH SUBCHANNELSG f`ep,(0/ INVALID PB DEVICE(S)G  c`dp,(0 TAPE NOT INITIALIZEDG c`bp,(0EXEC CALL FAILEDG ``ap,(0MUNEXPECTED ERRORG  ``_p,(0 PSAVE NORMAL END OF JOB 33 I# ' ^p,`]p<)0V<5\R(6*:G,3__vGFFSMAIN  H)-," &%#b LUPBVEMUUN_@3RBAAX~' 8CMAIN_P 92084-1X719 REV.6000 <920908.1 920909.0126 /SRC_92084/R6000/CMAIN.PASA@i別@@X;U~( 8CMAIN 92084-1X719 REV.6000 <920908.1 920909.0126 /SRC_92084/R6000/CMAIN.PAS@ sCMAIN ! }}I/.CBT.DDI.DIN.DIV.DLD.DMP.DSB.DST.ENTR .MBTADDTR DIALG DPCHK DRERR DSCPR DWERR GPNTR GTRSZ IFBRK LCKDI LDTYP LURQ MTCHK PAS.NONCDSPUTRM RDISC }7 RPERR SPARE UDTRM WDISC SHH`LPC(PD(PE(PG(-PH((PI(2PJ(8PK(=PL(#(BAX(FeA(F"r(F'(FA,(F1A(F6(K(FA<(FAA(FFA JHL(N3OZZ`N(PpM8NMpL(PCOPY NORMAL END OF JOB SIZE UP THE PROGRAM! INVALID PARAMETER NOT ENOUGH SUBCHANNELS BREAK SENSED NO DISK PARAMETERS SPARE NN77ATTEMPT FAILED BAD LU WAS ACCESSED EXEC CALL FAILED UNEXPECTED ERROR!! CMAIN NN--{(`0OpԈ`Pp`Ԉ0Np`Sp -66f(`PR(PT(PC( PD(( NA(   Ј( ( 6==C>A (`ňPQ(PR(!PS(!PT((PC((()NA(*' +Ј(*(*,=-JJA+(`@F(9p(;ppp`@EpH p` 6h!6AT p` 6h!6A` @F@6`"6`(l&uƃ ŀ` wOO(y`PD(~N34΃ ŀ`(`PD(NA(  AA  `(NA `(AN h#6@` 6bLL((Ԉ(  ( A A քx` Mp`(`(N` @AAHHTHxApӀh#6` 6A((F(F ;PPA քx` Mp`(*`(,N`(95΃ `(9 @ AB`(EN(HphA h AAAhA AA~~#bLLx`PD(g(i`p`(pps(wN`(A `A(  Ń , `(A `A(  Ń ~&& Ĉ88(qN&__5EEA(0)" %$VELUDEFINE SOURCE TRACK MAP DEFINE DEST. TRACK MAP SPLU "_@@@X4+~ 8MANDL 92084-1X720 REV.6000 <920908.1 920909.0126 /SRC_92084/R6000/MANDL.PAS@@k4+@@X4l/~ 8NUMBL 92084-1X720 REV.6000 <920908.1 920909.0126 /SRC_92084/R6000/MANDL.PAS@ =(NUMBL  4.ENTR PAS.NONCDSHHG""p"`'p%%(p&p#`# h% H P.(`"p"8#8&( `"p$`$(H e)A'( . @CCCXc8~ 8FATAL_ERROR 92084-1X720 REV.6000 <920908.1 920909.0126 /SRC_92084/R6000/MANDL.PASC,(FATAL_ERROR ]B.CBT.ENTR CONT? NUMBL PAS.NONCDSHHc@%%`'@66h/6.(( `'@66h06.((A&('P7(!p%(#p%`%(HZ) A&`5p%(12LUPB W5Y @йyDDXbt~ 8OUTPUT_ERROR_MES92084-1X720 REV.6000 <920908.1 920909.0126/SRC_92084/R6000/MANDL.PASD ,OUTPUT_ERROR_MESDIALG PAS.NONCDSRPERR NNiu**`*Po( Pp(Pq(Pr(Ps( (%A86(%DA7(%N7(%X7(%A$b7(%)l*,Nhh]-GG`,(.p+8,+p*(PRSTR NORMAL END OF JOBDISK LU LOCK FAILUREDISK LU IS MOUNTED TAPE LU LOCK FAILURECAPABILITY LEVEL <60MANDL 1h@m` @@X)~ 8MTCHK 92084-1X720 REV.6000 <920908.1 920909.0126 /SRC_92084/R6000/MANDL.PAS@ E'MTCHK  WWg .CBT .ENTR .LBT .MBT.SBTCNUMD CONT? CR.LU DIALG EXECFATAL_ERROR ICAPS OUTPUT_ERROR_MESPAS.BLANKFILL PAS.NONCDSWFF`$@6h96 +( ( pp&#(p p` h# H@ph%6`:6 +`%@@6`;6A ,`p!`%p"=!"`P(H`P~~QFHH(H(`%@6H h%H6`%@@6H ``(mh%6A`<6 -`%@@6`=6 .(}h%6`>6 -`%@@6`?6A . %/`A($P(p`h~UFF(&(p`h(`p!!(ph%6`@6A +`%@@6`A6 ,A %0`h88 (&A(p`(`A@(ll9EE1`(A܁#$A(2&(h%6`B6 A3 %4h%6A`C6 5 %/6-%3A %0`$@6A`D6 +$AP(7A86'l(``A #( 1(EFGMW`jstzPBLU IS MOUNTED.*WARNING* SYSTEM LU WILL BE OVERLAYED.OVERLAY OF SYSTEM LUIS INVALID ONLINE!LU IS MOUNTED. ****** W A R N I N G ****<<**** ALL ACTIVITY MUST BE TERMINATED BEFORE_ RESTORE PROCEEDS.  <Y<@o/@@X-~ 8LCKDI 92084-1X720 REV.6000 <920908.1 920909.0126 /SRC_92084/R6000/MANDL.PAS@ XLCKDI  88 6.ENTR .MBTABREG CNUMD DIALG FATAL_ERROR LURQOUTPUT_ERROR_MESPAS.NONCDS8EEr$$p` h H@p$`$P(#`$p%`p&%&`$h'ES(DD(ph6`6 `@@6`6A `~0p~`~0p~`~0p~`~0p~(rpp` h H@p`P(o`pf~'k`''l(o'88(O`(}y(}'--KA()LU DISK LOCK FAILURE @-@u5@@X%m.~ 8LCKTA 92084-1X720 REV.6000 <920908.1 920909.0126 /SRC_92084/R6000/MANDL.PAS@ B$LCKTA  ""L.ENTR ABREG LURQOUTPUT_ERROR_MESPAS.NONCDS" rA( <<(` 0,p ` 0-p ` 0+p ` 0*p  #)"!`"($<3((% A#(@@ʌ<<Xd2q HLTMA 92084-1X938 Rev.5020 <890331.1004> /SRC_92084/R5020/HLTMA.MAC< >HLTMA $LIBR $LIBX .ENTR EXECLOGLU IIPa111@pA@A(@NEW SYSTEM MUST BE BOOTED AFTER PRSTR TERMINATESI@ ;;X\SPARE 92084-1X721 Rev.5020 <890331.1009>/SRC_92084/R5020/SPARE.FTN; AIPROG y*SPARE  OEXEC.ENTR RPERR DIALG LURQRMPAR ~~D%@@A%)'p$`(9`p"`p(;p"`}P$(?(A`p$F%O$(%&(ep!x#`"(W`"p`!(e]`)d%(m~  PSPAR SCHEDULE FAILUREke im}`)(q(yL SON PROGRAM TERMINATED ABNORMALLY q u y}*J}SPARE PSPAR .߀+IN@4Q;;XgPBSCH 92084-1X722 Rev.5020 <890331.1009>/SRC_92084/R5020/PBSCH.FTN; AIPROG n;PBSCH  OEXEC.ENTR RPERR DIALG RMPAR LURQQQL5))5:p2`(I`p2`p9h9 0(W`p4(Y`p4^7QYSCHEDULING PUSHBUTTON OPERATION.77e^bAk4578(yp1x3q,`2(v`2p`1(7  PSPAR SCHEDULE FAILURE##G0y}`,:`:((#jSON PROGRAM TERMINATED ABNORMALLY. ;PBSCH PSPAR .+UNPV @m-;;X:PBCPY 92084-1X909 Rev.6000 <920908.1407>/SRC_92084/R6000/PBCPY.FTN; PBCPY bb԰.DAD.DSBR .DMP.DCOEXEC.ENTR .CPMDIALG SPDSC STATS WRTOK MOUNT CS80E XFMRK XCOPY SETAD XUTIL LDTYP LINSZ INTCT b *T@ % COPY FROM .... TO .... PROCEEDING. '   !(DISKTAPE РVERIFING .....  , BB|$$|@p@p@p }~(((B- LU IS NOT CS/80 DEVICE. ] -(`((l9LUs ARE NOT ON SINGLE CONTROLLER. ~~krCC98`7}t`@ p`&@ 6p~r`@ p`&@ 6pр~{`0P{((`9pvw~pn(* (pvw~--˛}pn*( `v(-`+|((-%&-[9J VERIFING DISK W/SPARING.TkCCJ`5pp`)po~po(-(`.(+("(%`&(+`()(+`(pq`v(w(B((pp`~~rE??p `p@ 8p8 (Fpz`@`@ hH`!@ h4`#@ h`"@ `%@ h3`$@ `@ pw}z`@ p }z(~??`(`#@ p`"@ p`!@ p ` @ p py%&'%&pp`p `p@ 8p8 (pz`2`@ `~~AA@ `@ `@ p }z`@ p ݀}z`1A(( y((`ypy((`(`v(0rt(0(0pp`p `p@ 8p~ɮCC8 (`@`@ hH`@ p ~z`@ p #~z`1('(0 y(0(0`ypy(Aw(7p q(`v(k`+|aGEE(I(kM%&"U,`*pp`)pod~po(k`(`(@nprvn(}(n0v(`(`vZZ33(rrtt`qpq(7(`/@nhH px A ppxono`.((ZV NON-PB TAPE MOUNTED.||=AAV-A(k( ((`,(`qpq(7(`+|((%& ",`*pp`)po~po(`(`(@np|H`COPY COMPLETED SUCCESSFULLY.֤`'(<<x**TAPE [UWV\XUNVEPV@ INހ<@ʻ;;X8SETAD 92084-1X909 Rev.6000 <920908.1407>/SRC_92084/R6000/PBCPY.FTN; =SETAD  .ENTR ]]//A@p2@p1@p0`5@1`5@2h3H1`3@2 `7@2`6@2h5H0`4@2h3H0] 3@D b;;X?mINTCT 92084-1X808 Rev.5020 <890331.1009>/SRC_92084/R5020/INTCT.FTN; O INTCT  9.ENTR XLUEX LDTYP ~~h??@ pf@ pe `lP(!()`kP((p` (7`lP(-(4`kP(3p(&(7p(&`jppABi(b`hp`j~CCi'GA pOi(b`hp`P(Y`gp(&  (_`gp(&p(&p(&Cg? @=hAAX~4 8SPDSC_P 92084-1X723 REV.6000 <920908.1 920909.0127 /SRC_92084/R6000/SPDSC.PASA@z @@XLk~5 8SPDSC 92084-1X723 REV.6000 <920908.1 920909.0127 /SRC_92084/R6000/SPDSC.PAS@ ]SPDSC Y ~~+5.CBT .D2AD .DAD.DCO.DDI.DIN.DIV.DLD.DMP.DSB.DST.ENTR .MBT.MPY .SBTABREG ADDTR CNUMD CS80E DIALG DRERR EXECGTRSZ LDTYP LINSZ LOGIT PAS.NONCDS~RDISC RMPAR XLCVF XSPAR XXSPR 11n=h"6`#6A h$6`%6A A 1iTJJA(&0BAD BLOCK ON CS80 LU;ADDR=`pp`p`@숈hHHp@A`@hp `@ h6`6`@pf`(qffi77h6`6A(`P(u(}h6`6A(`@p `pP((`A@넁(7(A fSS(3CAN'T SPARE BLOCK! BLOCK IS NOW SPARED.BLOCK CORRECTED NOW.`p h p(((p`pp@@'YDD88(`p``hH`@ `@ `@ `@pAAAAA((((A(,`@hpA A`@p@=FF`A@p J`pP(Q(Y`A@(AAAAAAP(i(``@@@&(`@@p{h6A`6(AA#c (((`@@pAAAA`@@A((`(A!!{Ap(IN `(!QQ(FORMT CAN NOT BE SCHEDULEDh26A`36⃫惪!h46`56h66` h76` h86`96A @"! ` (#`#P(F(`#(*ggَ+==A((p")p!(:?"RU,FORMT, , FORMT ApkJhj`j(Ppk(f*TslYij`j(d`hA@i(fpk`kmgtnGGAl`pk(CSPpp`@ Ap`A@p` Ap`A@(`p`@p`A@(`@p`@p}}n^EE `P(P((h 6`6A(ˈA((`(m((p(`@p`@pAA(((}CC(t NRVEA `P(P(ZP(ZP((`P( (*h6`6A`p(,`ph6`6A(6(@(@ AA?(T`p`@@A`@hhhK::@H@((Y(h6`6h6A`6(k(m(m(h6A`6(w(|(|*{((( ƨhGG22A(  UNUNLUVEININWARNING: THIS DISK TYPE NOT SPAREABLE. G''C ,@lv'@ߦ;;X4CS80E 92084-1X724 Rev.5020 <890331.1009>/SRC_92084/R5020/CS80E.FTN; 9CS80E  ))H.ENTR .CPMPRCSE SMOVE XRQST SGETPRNTE PRNTA )rr 99A@p @p pp` @ ` @ P(((!('p`%((/p`3(`@ .(;rCHANNEL PARITY7 ;+`@ ,(EILLEGAL OPCODEFA E+`@ 2(ObL MODULE ADDRESSING JK O`@ #(YADDRESS BOUNDSU Y+`@ 1(c[PARAMETER BOUNDS_ c&`@ (m& ILLEGAL PARAMETER i m&`@ !(w=$/MESSAGE SEQUENCEs w/&`@ ((7MESSAGE LENGTH} 7+`@ '( >CONTROLLER FAULTG >&`@ 2(2FUNIT FAULTs F-`@ 1(iK DIAGNOSTIC RESULT r K`@ !( TOPERATOR RELEASE T&`@ &(X\ DIAGNOSTIC RELEASE \`@ ((ܥe MAINTENANCE RELEASE  e `@ 0(ovoPOWER FAIL o-`@ (}t RETRANSMIT REQUEST t`/p`@ /(} PARALLEL OPERATION[ }`@ ( UNINITIALIZED MEDIA   `@ .( NO SPARES AVAILABLE   `@ '(uxNOT READY  -`@ %(6WRITE PROTECT  +`@ ,(2NO DATA FOUND : +`@ *( UNRECOVERABLE DATA66`@ &('`@ hH p ) `@ ((16` PAST END-OF-VOLUME- 1`@ '(; MEDIA IS WEARING667;&`@ %(I`@ hH p $ `@ #(S6##^AUTO SPARING WAS INVOKED. NO DATA WAS LOST.#O S"`@ !(]? MARGINAL DATA FOUND :Y ] `@ (i- MAINTENANCE TRACK OVERFLOW~~"c??g`(x`(r`(t`w(`@ (`@ hH p  `/pp`(`pA((`~~~==P((p(p`p`@ @p`p@(`(p`p`@ @p`p@(`(ѡс`(p`@ `p@~TT%**(`` @ (` @ (` @ ((` @ (T88י ''<w @@@ , 8@d;;XPRNTE 92084-1X724 Rev.5020 <890331.1009>/SRC_92084/R5020/CS80E.FTN; Z PRNTE  |y.ENTR DIALG  CS/80 ERROR: _ T$  p   @!C@;;XPRNTA 92084-1X724 Rev.5020 <890331.1009>/SRC_92084/R5020/CS80E.FTN; Y PRNTA  |y.ENTR DIALG  CS/80 NOTE: _T p   @-;;XVPRCSE 92084-1X917 Rev.5020 <890331.1010>/SRC_92084/R5020/PRCSE.FTN; PRCSE  H .ENTR PRNTE DIALG CNUMO ``XXXXXXB: IDENTIFICATION FIELD.XXXXXXB: REJECT ERRORS FIELD. XXXXXXB: FAULT ERRORS FIELD.XXXXXXB: ACCESS ERRORS FIELD. XXXXXXB: INFORMATION FIELD. XXXXXXB, _XXXXXXB, _XXXXXXB, _XXXXXX`B, _XXXXXXB ""p$A@py`@ypP((d"igCS/80 - FULL DEVICE STATUS: 2g(uREQUEST FOR STATUS FAILED !!~~==u`@ypww`@ypww`~@ypww `|@ypww/`}@ypww?pp`}@@ypw`|@zpxwx`}@@y@~cc022p`pÀ@{(#`@y(,,`~@y(55 .`|@y(>>/>`}@y(GG?M`(_c6PARAMETERS - _..ZeJNp`|@zpwYw`p@{(P.**(SEE DVM33/DVN33 REFERENCE MANUAL FOR MORE INFORMATION.)*_ c(u`P(h(mDRIVE IS IN A POWER-ON STATE|h l(uP(q(uZDEVICE TIMED OUT ON REQUEST Zquz I<@vm::X1BREC92084-1X725 Rev.5020 <890331.1010>/SRC_92084/R5020/BREC.FTN : A TPINF j&BREC :^EXEC.ENTR OO&((Ap`p`/p,0,px`.($`p(`(((*O $.@@ @<;;X.vDRERR 92084-1X726 Rev.6000 <920908.1404>/SRC_92084/R6000/DRERR.FTN;Bf-IPROG TALK 4DRERR  ~8.ENTR LOGIT CDMOV wTTDisk read error at LU XXX trk XXXXX sec XXX DISK read error at subchannel XXX trk XXXXX sec XXX 0`(S@1unF2rpL3tnR0s(k;;T""Y1rn_2qpe3onk0m41');@c6;;X3vDWERR 92084-1X727 Rev.6000 <920908.1405>/SRC_92084/R6000/DWERR.FTN;Bf-IPROG TALK 4DWERR  ~8.ENTR LOGIT CDMOV /TTDISK WRITE ERROR AT LU XXX TRK XXXXX SEC XXXDISK WRITE ERROR AT SUBCHANNEL XXX TRK XXXXX SEC XXX0`(S@1unF2rpL3tnR0s(k;;T""Y1rn_2qpe3onk0m42( *;@"KA AAX~. 8UDTRM_P 92084-1X728 REV.6000 <920908.1 920909.0128 /SRC_92084/R6000/UDTRM.PASA@@@XcB~/ 8UDTRM 92084-1X728 REV.6000 <920908.1 920909.0128 /SRC_92084/R6000/UDTRM.PAS@ bUDTRM ' kkW .AD2D .CBT .D2AD .DDI.DIV.DLD.DSB.DST.ENTR .LBT.MBT.MPY.MVW.SBT CNUMD DIALG IFTRNAMRPAS.INLINEERROR PAS.NONCDSPRTRM RPERR kJJ >''p `'P (P( P(P(("A 3fA(&(" @f(" Mf("A ZfA(&("&g')J$*NN`)(+p(8)(p'(INVALID TR COMMAND UNRECOGNIZED MODEL NUMBER DISK MODEL TYPE CHANGED INVALID PARAMETER UDTRM `P0(P1(P2(P3(P4(P5(P6LLx(P7(P8(P9(P:(P;((`#p(` p(`p(`%p(`&p(p`Lٸ<` h>HnEE`>@(`>@h Nh`>@(`>@h>Hp `>@h>H@@j??44()k(AA4A (p ()k`2p2,, (M` (1_P,(((.`3(.p (1`pC,WWD44AA`AhMAo(E56BLOCKS/TRACK DEFAULTED TO 48h{6`|6Ap`$@@px kx+h}6H `h~6`6AoyWgzFF(\&+.SUBCHANNEL? ap`(`A@(`@a(hx6`y6qA `1A &hp]P ((_P)((`?p` P ((`(`.HHA@(p  r4i aa(Մ(4  (`?p)k(`p(_P,(As[\_jp `A]A(`@\pW`>pZp @ ήJJ@W 8 8Z(_P,((S` (Fhx6`z6tA  &h{6`|6Au +&hyh}6`h}6 `"D 9&v Ah4i aa(EA((R Nr4i aa(R(R@@A(`y \&f4i aa(`(`@\pX_P'(P)(qP*(P+(P,((`X@ hH`X@ A XwhXH`X@ `A@\pWCޅWBB` (`P(`(((`A@\pWC΅WA(`@\pWCօW(`A@\pWCW(` (Є`@\pWCAW`A@\h~p(aP (`ccyT22A@\pYAhY`~p`Y@ `Y@ pWAAAW`@\pWCW(p (a)g((aP ((a`^bcc``A[($%#  &,.DEVICE(MODEL,HP-IB ADDRESS,UNIT,VOLUME)?DEFINE SUBCHANNELS,LU=FIRST 7900 SUBCHANNEL NUMBER (0<=N<=7) ? BLOCKS REMAINING(TRACK[[CCS,BLOCKS/TRACK)?      [PP%::  #$%01256@FH_`d2blv:CP@&AAXŖ7PRTRM_P 92084-1X729 REV.5020 <890925.1 891028.0222 /SRC_92084/R5020/PRTRM.PASA@@@XtqBŖ7PRTRM 92084-1X729 REV.5020 <890925.1 891028.0222 /SRC_92084/R5020/PRTRM.PAS@ PRTRM  AA ).D2AD .ENTR .MBT.MPY.MVW .SBTCNUMD LOGIT PAS.BLANKFILL PAS.BOUNDINTEGERPAS.NONCDSANPA  LBB((P3((Wp4p3`4(K`3A@9(K`3p3`r@3P;(1(7p4@3p3(J`rA@36@t6h6@xf3@s@6`f(`3A:pfAVRRAA=fP2(^P3(^(2p4p3`4('`3A@9('`3p3`63@s@6A`u6`pe`r@@3 !(@((((((҈((((({EE( (&`63@s@6A`v6(&`63@spfef(&`epf`6A3@spgAfg(&`e@3pf`63@spgāfg(&`e@4Apf`63A@spgfg(&`e@5pf`63D5CCA@spgfg(&`e@6pf`63@spgfg(&`e@7pf`6A3@spgAfg(&`e@8pf`63@spgfg(&`e@9Apf`63A@spgfg(&`e@5pf`63@spg..Afg(&p4@3p3(&(b`3:pe2=ei.uu\j??Ah`hhwA(485h6A`6P=(P>(P?(P@(PA((iۈ(h6H7`< i(i(i*(i(uN``A(x   79xx    MODEL# , ADDRESS, UNIT# , VOLUME#, 1ST CYL, HEAD# , #SURF ,@@$-- #TRACKS, #SPARES, SCT/TRK, BLOCK# ,    Hblv@@jM AAXŖ#PUTRM_P 92084-1X780 REV.5020 <890925.1 891028.0223 /SRC_92084/R5020/PUTRM.PASA@Ž@@XnqŖ#PUTRM 92084-1X780 REV.5020 <890925.1 891028.0223 /SRC_92084/R5020/PUTRM.PAS@ EQPUTRM  KKr $TA32 $TB31 $TB32 $TM33 .DIV.DLD.DST.ENTR .MPY.SBT GPNTR IXGET IXPUT PAS.NONCDSXMOVE K!!EQAUOA@p p`p`!llc11A(`M@_pD`:KmDKp:A"9:`M@cp;`M@^hMHapC`M@_@GhMH^`M@_@HhMHaA A p7ElbF::(<D`M@cp;`M@^p<`M@`p`=JlJp=`M@_p`=DlDp=`=nMp=`M@ap>`(w`?j0kp?A u p7(~`?jp?A } p7`M11p`?JoJp?h6 `M@b`8`h7 Hx71))\Ap(I?`8 pA @p7)UUy))(`M@c ]pA`M@^p=`M@_@A>Mp;`M@ap@h6`Mh6 `MH@]U88T(<Mp;`;(`k@;p;h6`Mh6 `MH@]8}}DD(<P9pL`Lp:`:+dp8NPe(-Pf( Pg(Ph(Pi(&(4E;7V(6WA;7X(6 Y%;7X(6A,;7Z(63;7Z(6PQ}rR AM( ]blv @WLv ;;XVsq XMOVE 92084-1X782 Rev.5020 <890331.1004>/SRC_92084/R5020/XMOVE.MAC; KXMOVE $LIBR $LIBX .ENTR .XSA**qA@p 88( *@;6Y<<Xtq GPNTR 92084-1X783 Rev.5020 <890331.1004> /SRC_92084/R5020/GPNTR.MAC< JGPNTR .ENTR  A`@\{AAXbŖ4DPCHK_P 92084-1X784 REV.5020 <891027.1 891028.0224 /SRC_92084/R5020/DPCHK.PASA@vb@@XCcVŖ4CONT? 92084-1X784 REV.5020 <891027.1 891028.0224 /SRC_92084/R5020/DPCHK.PAS@ I5CONT?  m0.CBT.ENTR DIALG PAS.NONCDSYESNO __2x//`46h?6;( ((`Up0($`Sp2AA<2=1/>2p0`0PU($`0PT($(`0PU(((+`Qp3(-`Pp3`35_((K$6A4`Rp3(@DEOK TO PROCEED? (Y or N) _(PNY N Y @ֱ@@XFŖ5DPCHK 92084-1X784 REV.5020 <891027.1 891028.0224 /SRC_92084/R5020/DPCHK.PAS@ YDPCHK   44 J.CBT.ENTR .MBTCNUMD CONT? DIALG PAS.BLANKFILL PAS.NONCDSRPERR 4$$4A( p( p`$QHHA(p`@p㈈`@p"`@hH(n`A@p1h6A` 6<`@pAC΀h6` 6ANR0`@6h 6A(b[KK(\(b(gf>(mAkAp(`@hH(`@((p|h6` 6A`@ph6` 6AAP( p@RR5''z(ˈ`p`@hH@A@(ň`@hH(`∈@hH`ͨRk^^A`p̀("=N_ SECTORS PER TRACK IN SOURCE LU SECTORS PER TRACK IN DEST LU DEST SECTOR/TRACK MISMATCHLUDPCHK FILE WILL NOT BE RESTORED TRACKS IN SOURCE 77^W&&LU TRACKS IN DEST. LU DEST TRACK MISMATCH.DPCHK 7Y@_ ;;XtRPERR 92084-1X785 Rev.5020 <890331.1010>/SRC_92084/R5020/RPERR.FTN; u&RPERR  ##EXEC.ENTR .CPMPRTNPTERR LOGLU PNAME #11wC!!.....: ERROR#.. (REPORTING MODULE IS '......).BCKUP ..1~~y$??$@$p%p1`0p%(:(N%p!`!%@p#`@!p!`!(0#p(P`p`p%(up!`@!@h!H`!p!@~<<c(W`0pk"p!`@!pAux{A~&<>'??0 c:@::XIFTR92084-1X786 Rev.5020 <890331.1010>/SRC_92084/R5020/IFTR.FTN :Bf/IPROG TALK tQIFTR ,, {e.ENTR .CPM DIALG LURQCLOSE LDTYP OPENNAMRLOGLU ,~~`M::M`}P(X(cp]Lp`pp(w`P(g(vj`}P(n(ss{ |p(wpJNpKOP(>MKJ(w~~~@@`APhX> 0(w`P?hX@ 0(wO` P 0p9>MKJpI`Ipy`A0y(P(`}P(({|`~C77pp(w`(wp(w(p(w`AP(( p`}P(({|`pp`(ZH>|BC`PHhXH ~~:>>( p`H(n(_p(w(Z`}P(({ |p`p`>p:A |:py :0y(d 1:p=`P=hX= ~KKq<(d`P=(SCpJ:|(ip;x<`;(i`}p(W`:pp`:p(wKWJ'TR' TO FILE NOT POSSIBLE OFF-LINELZ ^(r MUST BE TYPE 3 OR 4 FILEL_ c(rRINVALID INPUT LULd h(r+% INPUT LU ALREADY LOCKED Li m%(r#1FILE OPEN ERROR 7bn  r1~`9(w`}OQ{TTTA TR@;;XZ q -YESNO 92084-1X787 Rev.5020 <890331.1004>/SRC_92084/R5020/YESNO.MAC; 9YESNO .ENTR 2 A 0 @N::XIRWND92084-1X788 Rev.5020 <890331.1010>/SRC_92084/R5020/RWND.FTN : A TPINF 'RWND :_EXEC.ENTR rr>>`HP( (,`Gp?AC?($`GAp?F?F@@@ (+`EAp?+C?(=`DAp?3C?(=`Bp?A=C?r~@ @@;;X*WREOF 92084-1X789 Rev.5020 <890331.1010>/SRC_92084/R5020/WREOF.FTN; A TPINF LWREOF  .DINEXEC.ENTR GG $""A`)P( (`(p#'#$ (!`%p#A!&#G($@@@Ed];;X3yWDISC 92084-1X790 Rev.6000 <920908.1402>/SRC_92084/R6000/WDISC.FTN; AIPROG fWDISC .ENTR MIN0ADDTR RTRYW ISSR_HH@pw@ pv@pu  pp pp p`(0A04p`@wptFt `x (r  II%N&&  0 X (\p("`@p`(d(rm`'@p(0I 7x @c;;XRTRYW 92084-1X790 Rev.6000 <920908.1402>/SRC_92084/R6000/WDISC.FTN; ޒ(RTRYW == .ENTR .CPMXLUEX MIN0 EXREP ADDTR CMBUF RDISC GREDY DIALG STATS OPSYS =rr=v??@p@!p@$p䡀6p"p ` p `pp A'pN(p x W `P([(er DISK FORMAT SWITCH OFF~~[DD_b`(C`App 'P 0(|"(`#((p ppp%p $&'P(("~F0BB(`@p `'p $P("`@p`((ơ &'`'@p(("(((A ((;(p x   `" (  RTRYW  VE @p%0;;X>NJCMBUF 92084-1Y075 Rev.5020 <891106.1354>/SRC_92084/R5020/CMBUF.MAC; JCMBUF +].CMW.ENTR ""A`hA("@ ;;X%WRTHD 92084-1X791 Rev.5020 <890331.1010>/SRC_92084/R5020/WRTHD.FTN;Bg5TALK TPINF  ҈WRTHD  @.ENTR .CPMWRTAP CALCK BLDHD LOGIT ~~ƳHHA@p@ p@ p@p@p@p@p`#P(:(p`!pp`@pY  ~~~O??`@p`@h"`p`@p`!P(k(n`p`p@(@`p`@hHpx`p`p~}}HH$`(`((p  !((p$`(`(`p@(` }jjH</SRC_92084/R5020/WRTAP.FTN;B IPROG  TPINF  UWRTAP  44 ; .DAD.DIN .DDEEXEC.ENTR .CPM MOD .IDLP STATS SFILL CALCK 4~~Wl ??A @ pE  (?  p`UP( p(+`T p pA`Ap AG(pD(E`@EhTHHEpAxBEATB `O h~~~HFFHEpAxBQJABY F ApAI(gA(` `H(q(`L pAAxNAASFGFR Q`H(È`L pAN~@@A  @ `H`O hHEpAxBJABN`PA pANA`O hHEpAxBAJABN   (  @ (q`Mk_@@(((` p88D(5  (?   p  phKpA Kp`(`p`@@EhHpAxB AGBF`L hHEpA`xB) pCJ ]]k//ABChJ@  `  * F`pAAI(3A(:`(?`(?`H(]9F D@ @Kjq;;XNRDISC 92084-1X793 Rev.5020 <890331.1011>/SRC_92084/R5020/RDISC.FTN; AIPROG `RDISC "".ENTR .CPMMIN0ADDTR RTRYR ISSRNULL"EE@pz@ py  pp p p p* ~`(004p`@zpxCx A (J(J` `}PSS9aL,,(v{ X (``|(vp(`@p`(h(v((q`'@p(0S 3{NR @-V;;XRTRYR 92084-1X793 Rev.5020 <890331.1011>/SRC_92084/R5020/RDISC.FTN; ~RTRYR %%#.ENTR .CPMXLUEX EXREP CALCK STATS OPSYS %~~BBA@p@p%p p`p`p`p p 'p B  (px`pN `(R(X~~~SBBX  (]h  hX 0(l`(`(p`@hH`p@(qp(p`@hH((`p@((`~33NA(((,(,`(px`3RTRYR VE @;;XIq NULL92084-1X795 Rev.5020 <890331.1004> /SRC_92084/R5020/NULL.MAC ; {'NULL .ENTR %%U)p`h 8( %@c#;;X)Sq CALCK 92084-1X794 Rev.5020 <890331.1004>/SRC_92084/R5020/CALCK.MAC; -CALCK .DST.ENTR .MVWF>>pFHJ`pG(>(>`=p&p,p2`FPM("@Rh<h`HpH XG(>`IpI XG(>`JpJ XG(>`KpK XG(>(#(8  >`NpD`LhAF CLH&,2N@ؽ};;X_FFILE 92084-1X796 Rev.5020 <900103.1459>/SRC_92084/R5020/FFILE.FTN;B IPROG  TPINF  l)FFILE  66 \ .DINEXEC.ENTR .CPM EODWA LINSZ WRTOK MOUNT RWNDSTATS OPSYS 6n AAA .p"#$'(` p` p` p` p&`P(!(%(TT A!(c(c%(^`"&vaCC!(!pp`(pA`&spx{ `PA((A`p A  px `P ((`p(`P((''B%AA  `(  `(px`P(( &&88(m(` pApx`(`"!&(` p@wpx`EE(`A p`A(A(!(#(#&!%(`" px( 0(,!p(V0@@p`(p`&ApBpx @ O `P(S(p''Z ^ `( e `(  p EEdp `P(t(v v`PhX (888(6&&(((`()E9@B@@@X;;XEODWA 92084-1X797 Rev.5020 <890331.1011>/SRC_92084/R5020/EODWA.FTN; bEODWA  DIALG  <p DWARNING--ADVANCING PAST END OF DATA MARK U=  @܉;;XWRTOK 92084-18798 Rev.5020 <890818.0959>/SRC_92084/R5020/WRTOK.FTN;BIPROG  TPINF  ن3WRTOK  iEXEC.ENTP GREDY DIALG STATS XLUEX  llM/22`3p/`p`P(@(C2p&(N`P(I(L`p&(Np&0P(R(/p-`p.Z-p,x)`,Pʈ(a(xlLoading CTD.. ``a00eˈ`,P(j(xqȡu-p,x)(e/p*`p+*p(x)p'(`p'/1('1((`$TAPE IS OFFLINE X: ň(`1(( TAPE IS UNINITIALIZED  È(`1&(  TAPE NOT WRITE ENABLED00*^(11(1`1(1(N30p @ @Rq`;;X'MOUNT 92084-1X799 Rev.5020 <890331.1012>/SRC_92084/R5020/MOUNT.FTN; ZMOUNT  .ENTR GREDY DIALG KCVTBB'&&MOUNT NEXT TAPE (ON TAPE LU ..).Ap!`&(B & @%DS;;XVERFY 92084-1X800 Rev.5020 <890821.1346>/SRC_92084/R5020/VERFY.FTN;CJIPROG TALK TPINF  \VERFY  WW( .DAD.DSB .DDE .DCO.ENTR .CPMDIALG RPERR LOGIT CDMOV RTAPE CHKLC CALCK ADDTR VCHEK SMOVE BFILE RWNDW33N##VERIFYING TAPE XXXUNEXPECTED END OF ....!! FILE XXX VERIFIED.3}}*PDDP`Ј@Qp@Sp@Wp@Yp[`V(r\xXܡ~UU <TpK`(P}~~ѾBB(Z(RpI(RpIPI[[(p@R(kp`ʀ@@p`@@@pȂB@B B`ʀ@@@pN`P~@d??(( PSA>`>(~(`pGpI`p`G@p PA>`>(~JB ((I`G@ApG8I8(鈀BJ ( (IpI`p`@I@hIHqq;;((s8I8(BJ (!(I (PSA>`>(~ 3SAπQ@UBJ (9(I`@pO DPSOA>`>(~`APO(K(~ SSAq}}CP@@Q@U`P(wBJ (\(I`@Np fPSA>`P>(I`@NPA(n(~ vSAπQ@U(VppEpD`pFhKJ@ LJA  L(((}U<BB xH(`@K߈((`@pH( B L(((JBA xH(`KpHpF`H)pJ`J((  ƀPSJA>`>hAXJ 0(~`ʀ~~->>@@@p`ʀ@@ʈ@pEDEDHhJPH((~pGpI`H( p` p`@hGHpx`@GpG8I8(((~~@@|`F(C`@@@p`ʀ@@@p`@@@p5YSUP@}}n-??ED>`P>(I`ވP>(sP>(l`>(~ pA B(I(}`P>([RP@Z([ [PSA>a@ܡgU8@8((}&# TAPE CHECKSUM BLOCKS BAD.lp#ш`p?(y"/ TAPE READ ERROR - HARDWARE}}xs<<w/و`p?}?([`>p>(sp`P>((`p`p(`P>((`p`Ԉp(`P>((`p`p`( } ш<(q66+\%%VERFY  LEFITADAPEd6@랫;;XCBFILE 92084-1X801 Rev.5020 <890331.1009>/SRC_92084/R5020/BFILE.FTN; A TPINF DBFILE  :_EXEC.ENTR ll<77A`BP(9p<p`<(,p=`p`AAp;"?;px`@(388=(`>p;3?;P(9lj>@@C@i;;X.gADDTR 92084-1X802 Rev.5020 <890725.1003>/SRC_92084/R5020/ADDTR.FTN; S ADDTR  .DSBR .DMP.DCO.ENTR .CPMMOD l'LLAA (( (` @p h@hA@b   @@Ab @(>(>`  H @(T ''LXQ (Y(`  '@;;XRVCHEK 92084-1X803 Rev.5020 <890331.1012>/SRC_92084/R5020/VCHEK.FTN; A TPINF ̇KVCHEK  99 .DAD .DSB .DMP.DDE .DDI.DCO.ENTR LOGIT CDMOV ADDTR SMOVE CALCK 9AA{4..ERROR ON LU XXX HEADER RECORD TAPE ERROR AT LU XXX TRK XXXXX SEC XXX TO TRK XXXXX SEC XXX AE??((E@Ep:`H@Hp9`G@:hFFp4x5`AG45p8`Fp8`8@:h8H;(l(q8888(d(2`@I@E@9p3I(|(`p2` p1(p2}}LLp1=`@I@9p44AQ?A`@I@D@9@?;;=((3PD J.O(2`@I@C@9p5= ;9h5A@ 9A >6A6<}~~DD((p8`7(p7p4`@I@B@9p4`@I@@@9p5 21214458887(ـh5?p4`@I@B@9p4`@I@@@9p5 210/4453ND~:: 2MG 1LD&0KG,/JD 2J.IK:$$ _;@ ;1$ $@YAAX~ 8CHKLC_P 92084-1X804 REV.6000 <920908.1 920909.0129 /SRC_92084/R6000/CHKLC.PASA@f…@@X6~ 8CHKLC 92084-1X804 REV.6000 <920908.1 920909.0129 /SRC_92084/R6000/CHKLC.PAS@ XvCHKLC  MM.D2AD .DAD.DIV.DLD .DSB.DST .ENTR .MBT.MPY CALCK CNUMD LOGIT PAS.NONCDSPAS.SINGLEMOD RTAPE M11O` Ap rzr hp @ 1!MMA p(h6`6{h6`6A|np`(pp@@iHHj(hPA րh AhA AAh AA  AAgAa mklT}o9nNNArp Ap`@҈@p QR`QAq(t(h6A`6~(h6A`6~sY klTh6`6h6A`6h6`6A$$^ AQWAR^Ae klT88(>$=SS(&TaZ  DATA ERROR AT TAPE BLOCK= SUBCHANNELDISK LU TRACK=SECTOR= BLOCKS= upP Nin`pO$mjOMS`MPO(((.`S(1`SP(1`u(JDD,@1`j@PN(C`pP`j@@PN(Au(B(D`SP(H(J`unvD wA h(  @8@@XMŖ PCLER 92084-1X781 REV.5020 <891027.1 891028.0223 /SRC_92084/R5020/PCLER.PAS@@/"MDDXDŖ PAS.ERRORCATCHER92084-1X781 REV.5020 <891027.1 891028.0223/SRC_92084/R5020/PCLER.PASD9PAS.ERRORCATCHER.ENTR DIALG PAS.NONCDSRPERR 33(PA(( $#`CAp(1#`BpA>355 $$A(PARAMETER OUT OF RANGE PASCAL RUNTIME ERROR PCLER &'5@Vu;;XBmRTAPE 92084-1X805 Rev.5020 <890821.1348>/SRC_92084/R5020/RTAPE.FTN; A TPINF ] RTAPE  !!n.DAD.DINEXEC.ENTR .CPMMOD STATS !~~DDA@pd`lAP(-fp`k((!`j(''e (YpipA8ip`(?`p`hApbJfb~99Hph@Yeg(^(` 9e @;;X)>GTRSZ 92084-1X806 Rev.5020 <890331.1012>/SRC_92084/R5020/GTRSZ.FTN; YGTRSZ  .ENTR .CPMMOD kk ::@p`((-=p`((-( (#`p(2'(2@p(#(:h`'k = @Yx;;X-LINSZ 92084-1X807 Rev.5020 <890331.1012>/SRC_92084/R5020/LINSZ.FTN; PLINSZ  :^EXEC.ENTR BBw##A@p%@p$`,p#(#+''`*@$`)@%h&H$B,&@@BFa;;XDxGREDY 92084-1X809 Rev.5020 <890331.1013>/SRC_92084/R5020/GREDY.FTN; q2GREDY  +4EXEC.ENTR .CPM.ARTN DIALG PNAME BBP //ENTER 'GO' WHEN READY TO CONTINUE ('PA' TO SUSPEND).ENTER 'GO,XXXXXX' TO RESUME EXECUTION.Bzzbx1@@A1>/w01q1(PA1v(I(I`r1(O1Oo55(o`0(V`r1(o`uP/(Z(g] a.Adt`r1(o`sP/(m`r1(o12zqGOPA@~>;;X<DIALG 92084-1X811 Rev.5020 <890331.1013>/SRC_92084/R5020/DIALG.FTN;Bf4 IPROG TALK ?DIALG + // 8EXEC.ENTR .ENTP .ARTN CDMOV CLCUC READF STATS LDTYP /9FILE READ ERROR (FMP-...).* YY722`?pq7`qqpq@9pp(jL`LhL 0hL 0hL 0hL 0MY~~j??=p,`@p-`qp08A(zzu-78`uP0(~((l<:((:@p6:p1(:(:p6:@p1p/ Ph, 0(`,(`~@~ܱ88p4(P((`~@p4(A`p4s496p5;`4p223r`|P3((`u<(`uP3((`~@P4((((`w<(ꈈ`wP3((NN4##`}<(P3((`|<<((9`2Pp/(.91;;((`u<(9`.N}}aAA(`{<(99P( ( (;@;`p/;((9`zP0((>(((&;pn&9nM)9(-<`/(9;pn9u-9n< EllElLl\c}gEnd Of File read**7EAKu-y(i`.pn UnxwA[u- (i*< Device read error \Abu-v(i Device down or not ready'Nc Aiu- tp,(q?$$r ?TT/AABENEX/E$@;;XP~,qSHIFT 92084-1X818 Rev.5020 <890331.1004>/SRC_92084/R5020/SHIFT.MAC; 5SHIFT .ENTR VV,,@p+׈*p*088+(pH' H( )V@i:;;XSTATS 92084-1X812 Rev.5020 <890331.1013>/SRC_92084/R5020/STATS.FTN; A TPINF tSTATS  00 .DIN .DDE.DCO.ENTR .CPMXLUEX EXECRMPAR LDTYP OPSYS 0!!3(#p`߀ !}}#<<%ppp p p2p`P(7(:`0p`݈(>(NA pAJ (` p([`(R([`ۄpX(px`P(l`}h_::P(l`P(e`ֈP(`(``ՈP(`P(`P(`P(`шP(`P(`(`p`P((`΀(pA(}}a@@hX 0(`(`A(p(hX 0((`(Lj``(``(ӈ`(`}<<`((`Ȁ(`(``ˀ(`(``Ā((`(``( `(-`(`~~::`(`(!``('``(-``P(1(d 0 pJ(=(C`` (G(d@ `p~~~$O:: Wp`(_`(d @ ((k`(q``(w``(}``((`p p~bb--`(`(`p p`(`(`(`(`(`(b99^(( @@ @ (! vlbXTTTALIDI 9@v6;;X"CDMOV 92084-1X814 Rev.5020 <890331.1013>/SRC_92084/R5020/CDMOV.FTN; ICDMOV  tI.ENTR SMOVE CNUMD 33;@p@!p 3   @;;X)LOGIT 92084-1X815 Rev.5020 <890331.1013>/SRC_92084/R5020/LOGIT.FTN; KLOGIT  ((:^EXEC.ENTR EE)%%@p&((`'p%(%(#`'p%#(%E l' @5;;XpBLDHD 92084-1X816 Rev.6000 <920908.1403>/SRC_92084/R6000/BLDHD.FTN; A IPROG BLDHD  44 p.ENTR .CPM.ARTN XLUEX DSCPR LDTYP SFILL CNUMD SMOVE OPSYS 4X``CREATED USING:READ USING: PRSTRTAPE NUMBER: SAVE FILE: USER: PROGRAM: PSAVE OPTIONS: DATE: DISK LU: TITLE: SECTION: (TRK XXXXXX SEC  M`XXXXXX) ~~5sGGs@spG@vpF@wpE@ypD@pC@pB@pAppS((`epr`opq(`nprpqJrqA~~~AFF 8WJXJsJ^Z`m(;JWJ`O(;JbJ`R@Bp=t=`[@Bp=|=Jlh`k(;(Jj~~~BBJv(( `Z@Bv`L@F((`Y@BhLHFwJih`g(;'?JfJ`T@Bp=.x=5yJed`c(;?MJbJ`T@Bp=~}}7B<<F=`X@Bp=M=`W@Bp=T=`a(;t`V@B `L@FP_(c(g`U@Bz`L@B{`L@FP_}(|`T@Bp=`W~=(`T@B}EE~hW`S@BhLHF`R@B|`Q@Bx`\xhPHBp=x>=>pm`O@BE%>>`H@B`N@B`M@Bhp``(;`L@FP_}(#pjpm~(p@`j@Bp=ǂ=J^I` (`m@~hjHBp=x> Ղ=>i`m@~0\pg~~==ph Mgfed(`\xp==npo`m@~O@Vpl`]Pn((`L@l@Apd(`m@~pdpk`Kp?`j@k@BhlHkHA8k8?(`O@j@Bhd`W@j~KKwa%%pj8m8@(`W~(;(; (xi`\xpgph 4Mgfed`H@Bhd`W(;K993H((  b(UN."P&/-# 9@.L;;X\EXREP 92084-1X819 Rev.5020 <890331.1013>/SRC_92084/R5020/EXREP.FTN; ʍ9EXREP  EXEC.ENTP CNUMD KCVTLOGLU EE 11EXEC ERROR: XXXX IN MODULE 'XXXXXX. (TRYING TO ACCESS LU #.. AT TRACK ...... SECTOR ......).E~~]3@@`9p3`p@5p~H2p13p4p5p`@~p`@~0p`@1p}b}`P(f({i6pn7%r8,`~:s A@1p}{}09'@8w::X1RTEL92084-1X817 Rev.5020 <890331.1013>/SRC_92084/R5020/RTEL.FTN : 9RTEL  EXEC.ENTR DIALG  RTE L TYPE SYSTEM INVALID.77"2A`0h/ 0p ` ((%.(-` p`7 - @ BEGGT.LIB::RTE_6:5:46:128 644 0 0 27000 5310707262 34777 BEGGT.LIB::RTE_6:5:46:128 $..BEGGT LIB +#+#+#.F`FST ;;XL_~  8BEGGT 92084-12051 Rev.6000 <920909.0132>/SRC_92084/R6000/BEGGT.MAC; 1BEGGT @ ;;Xƹ GTPAR 92084-1X821 REV.6000 <920908.1358>/SRC_92084/R6000/GTPAR.FTN;DIPROG TALKOPFLD ORDR $GTPAR  :: .ENTR .GOTO .CPM DIALG NAMRIFTR CNUMD LDTYP SMOVE SPUT SGET YESNO :~~:FFA@p@p@€p@p@ppppt`t@`tpt@(ppp` p~Z>>pt`t@ `t@ `tpt@(pp?pt`BpI`t(]`pJ`pK.JptpPI(5(B8?P (?`t(>((A` p(L[[`B**`PI(F(K`t(J((L(ZR=ֈ`P=(V(W(`(]` p(g`0(gp`p(p`p[l==A(q(.`@p`(i`(`Ph X 0(`(p@p(`@P((`ሀp`@P((`׈p`P((`@PJJH''(i`@P(i`@(`@((i`@ `p>A>i>a?`pvJP Enter source disk LU=4<<vw`وp>(a`t( `I( `(` pPI(鈈(` 0?pP((` P(` P(`(`@h?`و` p`?(i`  ( ` p(i Illegal Disk LU: _..}  (`(i`(`p>`(+` pv. Enter disk subchannel(s)c# *vw(4` pvLEnter disk LU(s)tg->>4vw(lp(?>?LKJpt@Jp`(F(L KL(Np`t(Zp` P(W(Y` p(`p`ለBpI`P>(c(n`I(8PI(j(`oofCk44@p(` Bh"x`I(z`(z(8PI(~(`?pt`Cp?`tpCP((`@@يp`(`?( ?(((` 0?po<((`@h?(`@ÀhC`@h?`?p(8`€`(`>@( A(Ԉ( `>@h `P>( (`È(`@(i' Illegal Disk LU: _''0 '  ? 戀`>@h (8'0Illegal file#: _^ 0 (8 Illegal subchannel: _^ 8(eCBuffer size exceeded. Last _ C `( bQ subchannel accepted: __<  Q(\LU accepted: _F  \   c OK to proceed? (Y or N) _uu*77  c Lu=Հ`=('`׈p>((-p`>@  0LpL` PL(5(7((>` PL(;(=((>(`(i`(`(`p>`(W` pvuxEpEnter 'File:Subchannel' pairs gO Vpvw(`` pvΒ Enter 'File:LU' pairs jY `vw(l` pvnwEnter tape LU QQc%%jvw` p>(a`t(`I(PI(w({?pt` P(` P((`?` p(iQ Tape LU defaulted to _((T 爡`p  `p?(w(c Illegal tape LU: _I  (`pv/ Enter dest disk LUH;;vw` p>(a`t(`I(ր`(` p` 0?pP((` P(` P(`(`@h?`و`?` p(i` ( ` p (i  Illegal disk LU: _   (`p>` pvS Enter file number SS1''vw(a`t(`I(`(` pPI(( ?(( `?` p(i` ( ` p(SӅ Illegal file number: _  爈(`p>` pvEnter options ~~AAvw`pJ(a`t("`I("`(P`J@@puAu(2("(E(E@p ?` P(E`upu`J@u@pPJLu(_`u~}}V<<p\L `upu`u@pup`@ppt`((t@P({`tpt@(l`P((`t@p`(`@P݈((`@€h` p(` p` }`P(` P(! Illegal option: _4b    (RConflicting or duplicate options: _--#  `p`p`@p 戀` p(-b Allowed options (_<<  `( (ˠ`( (ˡ 栀` (<>(1) VE => verify  ` (O>(2) DE => depress user questions  ` (2(3) TA => use tape subchannel defs6  ` (X(4) UD => get user subchannel defs]  ` (]0(4) LU => LU SAVE/RSTR/COPY  0 `( W>(4) UN => UNIT (full vol) SAVE/RSTR/COPY  >`(""ҍR(4) PB => pushbutton unit image SAVE/RSTR " R`(g(4) MU => save of mulitple LUs g`( v(4) SE => selectivly restore LUs  v ##SThe numbers in ()'s represent catagories and# ""?&only one out of each catagory can be used."++@  (*`p@u(f`(9+ VwNo options accepted. (use '??' for help) hh&11 *pt`t@`tpt@(,p( ` ( ` p(i` ppt`t@h`tpt@(C`(o`@P(`p>hbtEnter title PPW** aLu=(xu(g(nnLu(ꈡ`pJw?pt`t(`@P((P#Title parameter ignored with PB option}}SDD (`BPhJ X 0(`@JpJֈ`hHX (`hHX (`hHX (`}UU ?**hـHX (ր`JP(ֈ(`pJ`J@@((`눡@JpJ(i`p>`pvUG Enter hard copy LURR%%vw(a`t(`I(PI((?P(`P(`?` p(i`` p(iRq Illegal hard copy LU:_~~^??  ?  戀`@h `(i`((`(^ppt`t@p`(N`@(G`(F(](G(`@(N(]`tpt@~LSBB(5`@P(]`@P(](`(lj?pt(`vp xwLu=`=(Lu=`=(`=(a(pJ`upK?LKJpt`))(ABpI>a55mb=)((rNon-interactive input device must be only parameter (k (''9 Disk LU can not be in run string for this option. 'k  ߀(%%a%File # must not be in run string for this option%d %ހ(zzWW KCOPY):RSTR):SAVE):SEMU DI'0 800,50620016PB ??? , XN Y ? TTz@BAAX`Ŗ"COMMI_P 92084-1X822 REV.5020 <890925.1 891028.0228 /SRC_92084/R5020/COMMI.PASA@`@@XSNNŖ"COMMI 92084-1X822 REV.5020 <890925.1 891028.0228 /SRC_92084/R5020/COMMI.PAS@ DCOMMI D )b.CBT.ENTR .MVWPAS.NONCDS~~fDD`@`h6`6A((4(4@`@L@`A`@K@``@MhH`@I (h6`6A(>(z(z@`~fDAA(^@L@``@K@`A`@MhI(t@LA@``@K@``@MhJ`@IhH(h6A`6(((hhg33A@`@L@``@KA@``@M `@IhI(`@I (`@IhHIh!``A(  "5+?SARECO VEDETAUDLUUNPBMUSE EE11  E@n{;;;XB=q ENDGT 92084-1X823 Rev.5020 <890331.1004>/SRC_92084/R5020/ENDGT.MAC; :ENDGT @w(Zp` P(W(Y` p(`p`ለBpI`P>(c(n`I(8PI(j(`oofCk44@p(` Bh"x`I(z`(z(8$DTCLB::RTE_6:5:84:60 644 0 0 52000 5310707263 34016 $DTCLB::RTE_6:5:84:60 $T(T<$DTCLB +#+#+#T)jFFST "" QDTCLB 92084-12053 Rev.6000 <920603.0145>"TDT"" ۋXXSPR 92084-1X706 Rev.5020 <890331.1013>"@>XXSPRn<<.DAD .DSB .DMP .DDE .DDI .DDIR.DNG .DCO EXEC .ENTR.DIS XLCWRCNUMD.D2ADXRQSTXSPREXUTILXLCVF XDESC< ?'XDIAGPNAME <<`nF / : ONE SPARE PHY. TRACK LEFT. CONTACT SYSTEM MANAGER. / : PHYSICAL BLOCK <`M-: SPARED FOR BLOCKS.<<`bf"f@hpP@ipmpG ~ &,`0p`.0<<<`\p.hpe`@pd`@p`@pZ`@p`@p`h`@<`B`;;``Z@`@`@`@ `@`Z@`@`@ `;<<``ƠZ@ `@ `@ `@ `@ `Z@ `@Ӣh`@ `< `Db\P@  ;;``!$fghi `@(Ķ`eh`@hd`@  `@ `Z@ `@ ;<<`bD `@$fghi `@(Ĵ `@p^`^(h@Љ`@ހ(hH< `Db,pȂ(` ;;`hl00pch^@aBh^@a\0ۉXX h^@ȉ_h^;`BeX@<<`ep]Z_Z`@P PhHpȂ( X  `Z(rlh^@Ո \Z \<;;`` (`l(#`@ `@ `@h`Z@h`@ ; `C(!`@h <<`a`@h `@`Z@ `@ `@ `@ `@3$ŀfg<<<`^_&Ѐhi`@(`@hڶHp`@ (l(`@p`@<`Bp <<`ge0\ (pȈ pȈZ 4(pɈX  (0<<<`^I+ (` m((ىV(pH`p`H@hHHHZ8H8( `@ `< `CK?(@ <<`_g+`@h`Z@h`@`@`@ `@`Z@ `@ <00`YJ`@ `@ `Z@`@`@h `@h0;;`_c`@h`Z@h`@ `@ `@h;}fgh6i`@(;;;`\ Z`@P߶(w(`@P((^`@ `@hHpȂ(``; `C@hH <<`^?pހ(hHpɂ(`0`@ԶhHp޶`@ `@`<<<``>Z@`@ `@ `@ `@ `Z@h`@ `@ ?<`B k$f<<`^$ڀghi`@((`@P(`@hHp`ꢊ@(`@<<<`d~(`m(^`@('$€j $j jk(& $€k & <`C a#$k `J&(((G.f$Ѐghi`G<<`]0pG`@pZ`@p `@p `@p 6xS`pU`p`U@h<<<`^<MZ8U8(JKV7pTO[S@`p@(#`l(pH`p`@H@hHH<`A[k((<<`^l8H8(e`Z@ `@ `@h`@h `@ `Z@h`@<;;`a2&h`@ `@ `@ `Z@ `@Sf$ڀghi`@(; `C`@ 33`Z=P((`m(ƈ ՉѴZ(`G(`Pm(mn3<<`n`$H*< FEDC=@?;BA> KOR <`L^ ?p:"" XLCRD 92084-1X671 Rev.5020 <890331.1010>"@XLCRD .ENTRMEXECXFILLXCBLDXPRTY;;``Z@ pq@ pp`@   `y@ph`x@ppn' $n;<<`\b'`x@@ph`@@phHpnxo8&ڀno`~p`yp`w@qPz(Q`v@q<`BDC<<`_KE(Q`u@q5huHqpns@np`(Vp`}p`|pd{$  <`Jzd`t@ph`r @ph `Skr;: 9 rr"" XLCWR 92084-1X672 Rev.5020 <890331.1010>"@-XLCWR .ENTRMEXECXFILLXCBLDXPRTY;;``Z@ pq@ pp`@   `y@ph`x@ppn' $n;<<`]W'`x@@ph`@@phHpnxo8&ڀno`~p`w@qPz(O`vP@q(O<`A`D`u;;`_EZ@q5huHqpns@npp`(Vp`}p`|pd{$  ;`Jzd`t@ph`r @ph `Skr;: 9 rr"" XCOMP l92084-1X673 Rev.5020 <890331.1010>"@7XCOMP .ENTRMEXECXFILLXCBLDXPRTY;;``Z@p^@p]`j@k `c@]hi`b@]p[%$[;<<`]%`(.`b@]Zhhp`c@@]hcHH]ZHg`b@Z@]hHap[x\C[<`BFB4\`f,,`W>Dڰp`ep$Qd`$``a@]h`_@]h ,`M?_;:4 __"" XINMD y92084-1X674 Rev.5020 <890331.1009>"@*XINMD .ENTRMEXECXFILLXCBLDXPRTY<<`_^Z@pe@ pd`l@dp`w@x   `kZ@dhv`j@dpb<;;`\!%*b`j@@dhp`u@@dh`t@@dhiHdpbs@rb`q@@d;`BvAh;;`_ XCHppbxcJ&ڀbc`op`npXm$ gg6`h@dh`f@dh ;`Sf;:>=7 ff"" XSPRE n92084-1X675 Rev.5020 <890331.1010>"@-XSPRE .ENTRMEXECXFILLXCBLDXPRTY;;``Z@p[@pZ`l@m `a@Zhk``@ZpX%$X;<<`\ڙ%``@@Zhj`i@@Zh_HZpXh0gX`f@@ZhHepXxY@&XY`d<`AA**`VBp`cpN$b]]&`^@Zh`\@Zh *`R\;:=8 \\"" XDESC `92084-1X676 Rev.5020 <890331.1011>"@ XDESC .ENTRMEXECXFILLXCBLDXPRTY;;``uZ@pQ@pP`^@_ `U@Ph]`T@PpN%$N;<<`_%`T@@Ph\`[@@PhHZpNxO6&ڀNO`Yp`XpDW$VU <`A`D`S`I4EZ@Ph`R@PPh `NqR;:95 RR"" XRELS `92084-1X677 Rev.5020 <890331.1011>"@0XRELS .ENTRMEXECXFILLXCBLDXPRTY;;``wZ@pQ@pP`^@_ `V@Ph]`U@PpN%$N;<<`_%`U@@Ph\`[@@PhHZpNxO6&ڀNO`Yp`XpDW$SS <`A`D`T`I4EZ@Ph`R@PPh `NJR;:9 RR"" XRELD `92084-1X678 Rev.5020 <890331.1011>"@!XRELD .ENTRMEXECXFILLXCBLDXPRTY;;``wZ@pQ@pP`^@_ `V@Ph]`U@PpN%$N;<<`_%`U@@Ph\`[@@PhHZpNxO6&ڀNO`Yp`XpDW$SS <`A`D`T`I4EZ@Ph`R@PPh `NKR;:9 RR"" XLCVF `92084-1X679 Rev.5020 <890331.1011>"@!XLCVF .ENTRMEXECXFILLXCBLDXPRTY;;``wZ@pQ@pP`^@_ `V@Ph]`U@PpN%$N;<<`_%`U@@Ph\`[@@PhHZpNxO6&ڀNO`Yp`XpDW$SS <`A`D`T`I4EZ@Ph`R@PPh `N@R;:9 RR"" XRQST u92084-1X680 Rev.5020 <890331.1011>"@=XRQST .ENTRMEXECXFILLXCBLDXPRTY<<`b#oZ@pd@pc`np`mp $lfh&`j@c(W`s<;;`]5'@t,`i@chr`h@cpa8&ڀa`h@@chq`p@@chHopa;`AxDxb44`\,EIab`nڰp`mp $Wlk$i`g@ch`e@ch 4`Pe;:<9  ee"" 7XCOPY 92084-1X681 Rev.5020 <890331.1011>"@@XCOPY .ENTRMEXECXFILLXUNPKXCBLDXPRTY;;``}Z@p@p`Ȑ@ `@h`@p%$;<<`[%`@@h`@@hHp$hZHp@`@@hHp<`Be.@;;`\|B@`@höHHpx$P`¶@@hHpZ$hHp;;;`[u^@`@@hHp@`@hHHpx$v`@p; `Bfy`@ <<``{PhHH`@hHpx&ڀ`p`p$4`<`IZ@h`@Ph ,,`a);:FECD@?=><   ,"" ]XUTIL 92084-1X682 Rev.6000 <920602.1034>"@8XUTIL@.ENTR.CPM MEXECXFILLXUNPKXCBLDXPRTY;;`aZ@p@p`@p`p̄('P(-p`;<<`]/@4`@h`ض@p@&ڀ `@ @ϴZhH`@ @hHp<`BepL;;`]@N`@ p `֢@p  6([(s p ` @@ p `@h  Hpx;::`^ kp Ͷ` @ p ` @ϴPh HH` @h Hpx&Ѐ`@: `Cp` ::`^(pPh  P0( p`(p`@p`޶@p`@h:<<`_PH88(`ݰp`p`p̤$`ӴZ@h`@Ϡh< `C `U3;:D@?=><0 "" XDIAG 92084-1X683 Rev.5020 <890331.1012>"@(XDIAG @.ENTR.CPM MEXECXFILLXUNPKXCBLDXPRTY;;`` Z @ p@ p` @   `@h`@p}) $};<<`^PJ)`@@h`@p`@pZ(:(Rp `@@p`@h < `BͅGHp} ;;`^dVIx~O}6ڀ~`@p`@hHHZ`@hHp}x~$e}~` ;**`Vgp`ps$ &`@h`@h *`Q ;:@?<3 "" XFMRK `92084-1X684 Rev.5020 <890331.1012>"@0XFMRK .ENTRMEXECXFILLXCBLDXPRTY;;``wZ@pQ@pP`^@_ `V@Ph]`U@PpN%$N;<<`_%`U@@Ph\`[@@PhHZpNxO6&ڀNO`Yp`XpDW$SS <`A`D`T`I4EZ@Ph`R@PPh `NR;:9I RR"" XCNCL `92084-1X685 Rev.5020 <890331.1012>"@2XCNCL .ENTRMEXECXFILLXCBLDXPRTY;;``wZ@pQ@pP`^@_ `V@Ph]`U@PpN%$N;<<`_%`U@@Ph\`[@@PhHZpNxO6&ڀNO`Yp`XpDW$SS <`A`D`T`I4EZ@Ph`R@PPh `NQR;:8  RR"" XCICL `92084-1X686 Rev.5020 <890331.1012>"@-XCICL .ENTRMEXECXFILLXCBLDXPRTY;;``wZ@pQ@pP`^@_ `V@Ph]`U@PpN%$N;<<`_%`U@@Ph\`[@@PhHZpNxO6&ڀNO`Yp`XpDW$SS <`A`D`T`I4EZ@Ph`R@PPh `NPR;:((8 RR"" XCOLD 92084-1X687 Rev.5020 <890331.1012>"@+XCOLD .ENTRMEXECXFILLXCBLDXPRTY;;``Z@ pq@ pp`@   `y@ph`x@ppn' $n;<<`\b'`x@@ph`@@phHpnxo8&ڀno`~p`yp`w@qPz(Q`v@q<`BDC<<`_KE(Q`u@q5huHqpns@np`(Vp`}p`|pd{$  <`Jzd`t@ph`r @ph `Skr;: 9  rr"" ºXSDCL J92084-1X688 Rev.5020 <890331.1012>"@(XSDCL(g.ENTRMEXECXFILLXPRTY<<``Z@p=@p<`H@I `B@@;: >>"" XRLPB 92084-1X689 Rev.5020 <890331.1012>"@&XRLPB .ENTRMEXECXFILLXUNPKXPRTY<<`_0Z@pl@pk`@ `v@kh`uZ@khv`~p`s<<<`]$@kPw(8`sZ@k(8`tZ@k5htHkpin@ip`s@khrHkpixjCi<`BcA$vj<<`_@C`q@khqHkH}`p@kpiQi|`{ڰp`zp$_y$x`o@kh<`G1Zb`m@kh `Um;:=>5 mm"" XWLPB 92084-1X690 Rev.5020 <890331.1012>"@&XWLPB .ENTRMEXECXFILLXUNPKXPRTY<<`_1Z@p@ p`@   `@h`Z@h`p`<<<`]}%@P(9`Z@(9`Z@5hHp}@}p`@hHp}x~D}<`BB$~<<`]D`@hHZHp`(^p`@@hHH88(R`@p}<44`\nae}`ڰp`p$s $`@h`@h 4`VF;:=>4< "" XUNLD `92084-1X691 Rev.5020 <890331.1013>"@*XUNLD .ENTRMEXECXFILLXCBLDXPRTY;;``wZ@pQ@pP`^@_ `V@Ph]`U@PpN%$N;<<`_%`U@@Ph\`[@@PhHZpNxO6&ڀNO`Yp`XpDW$SS <`A`D`T`I4EZ@Ph`R@PPh `NR;:9J RR"" XCBLD b92084-1X692 Rev.5020 <890331.1013>"@XCBLD @C.ENTRXUNPK ::`^E"@pBP@pAp(`@Ap?`K@a?`p`T@B:<<`[ PC(.`@AhTZHBp?S@WZ?`p`S@BPC(K`@AhSHBp?E@J< `C;?`R@B <<`^>h HAp?x@ H?S@`Q@p`Q@BPC(v`@AZhHp`PZ@B(]`\<<<`]Ĩ\Zp`@Ah`T@@Ah`P@BhSHHAp?x@ s$ځ?T@`Q@p`O@B<`AQyPC<<`]z(`@AhD`N@Bh HAp?x@ ?&T@``@pZ`M@BPC(`@Ah_<<<`\s `M@B(`@Ah^`@AhMHBp?\?`T@p`L@BPC(`@A<`BbRh]<<`[`@AhLHBp?\?`T@@AhKHBp?\?`S@p`J@BPC(`<`OfдZ@Ah[`J@Bh HAp?x@ ߁?E@;;`\4߶`S@p`I@BPC(`@AhZ`H@Bh HAp?x@ $?R@`Y@p`G;<<`\@BPC(`P@AhX`@AhGHBp?S&?`T@p`F@BPC(%`@A< `D5hV` ;;`[w@AhFHBp?E?`T@pZ`D@BPC(:`@AhU`@AhDHBp?Q;`I;6?`T@pP@**`_eC 8H@; >:9=< *CC"" |XFILL 92084-1X693 Rev.5020 <890331.1004>"@-XFILLN.ENTR`PLeBP Z88( "" ˝XUNPK 92084-1X695 Rev.5020 <890331.1005>"@1XUNPKN.ENTR::`^ݘ4Zp`p`p׶8888( :"" MEXEC 392084-1X696 Rev.5020 <890331.1013>"@(MEXEC T/.ENTRXLUEX ;;`c*+B@p/@p.`2p$&ڀ1($ `0@. (*;`HV/$`0@.`C 0900"" TG2LU _92084-1X697 Rev.5020 <890331.1013>"@TG2LU .ENTRXLUEXSC2LUDSCPRLDTYP`B`B<<`c@pX`^p*]$(S`\p 1p`[P<99`aZs6hZX (S`YP(SE ` (SR$ $Ѐ(U9 `FYLIDI? YY"" ;SC2LU 92084-1X698 Rev.5020 <890331.1013>"@SC2LU.ENTR.CPM XLUEXDSCPRLDTYP`B`B;;`b"@pp(5p`@ 88ö(-`p;::`^y8 p`(p`0p$H6(`pP(P($T p`: `DVPPh <<`aZX (`P ((k&`( `P hZ0(`ʠh(<<<`^){x`pP((`P hX hX P((P(<`A)(<<`]`P (((P(((((@hP88<`Jk(>ŀ((`LzUlLIDI? "" XSWLU 92084-1X959 Rev.5020 <890331.1005>"@DXSWLU 6.DST .ENTR `M `h ` "" XAMCL n92084-1Y027 Rev.5020 <890331.1013>"@1XAMCL(g.ENTRMEXECXFILLXPRTY;;`_ FZ@p[@pZ`l@m `f@Zhg`f@ZpY "Y`e;<<`^M#Z@Zhd`b@Zhc`b@ZpY 0Y``@Zha``@ZpY :Y`_@ZpYAYk<..`X*A`jp`ipOh$]]`^Z@Zh`\@ZPh.`R!\;:?p7 \\## FBUS  92084-1Y062 Rev.5020 <890331.1013> #@FBUS N.ENTR`Hp`@ZPh.`R!\;:?p7 \\## FBUS  920%CSERR::RTE_6:5:6:126 644 0 0 3000 5310707265 33717 %CSERR::RTE_6:5:6:126 $|~%CSERR +#+#+#FFST ## PCSEHD 92084-12054 REV.2122 <850802.2203> #SCS..XCSERR 92084-1X703 REV.2121 <811208.0922> .sswBCSERR .NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN s%%EXECXLUEX .FION CNUMO CNUMD GETER RMPAR %99"(( SCODE ss EQT eee SUBCH ss ADDRESS a QSTAT q 9~~BBBHK7pA`րp3p1`Պp2W-`/p ]-`.p `/p e-`/pk-`/pq-`/py31(A31(`Ѐp0~~~1BBp6`P6((`p0p5@6@5@p-p4@5@4@h4H`4p4@(`5p5@0(`0p31(`6p6@(Ap--~ %( ,6 @;DB## kGETER 92084-1X913 REV.2121 <811222.0956> #@-GETER $CS80.ENTR.MVW  `PShX`("   %FCM6::RTE_6:5:36:128 644 0 0 22000 5310707266 34056 %FCM6::RTE_6:5:36:128 $$$%FCM6 +#+#+#$|FFST ((77XyP FCM6H 92084-12055 REV.5000 <870609.1502>&FCM6H::SRC_92084 7@y@@X{ZP 8;PAS.GLOBALINFO92084-1X649 REV.5000 <860808.0 870609.1355 &FC.MAC::SRC_92084@@\O{;;X5#ZP 8;LDSEG 92084-1X649 REV.5000 <860808.0 870609.1355&FC.MAC::SRC_92084; /LDSEG  ++@.MBT.MPYPAS.1 PAS.2 PAS.3 PAS.NONCDSPAS.SEGMENTLOAD +,,b`P(`Ap`"@ 6h!6Aר,$$ H `(p8p($@k +;;X)VZP 8;COPYF 92084-1X649 REV.5000 <860808.0 870609.1355&FC.MAC::SRC_92084; ̌sCOPYF  {{3.ENTR ALLCM B$CE1 B$REX B$SE1 CROAK D2DCF D2TCF ETPCM GTMEM INCOH LDSEG LOMES PAS.1 PAS.2 PAS.3 PAS.BLANKFILL PAS.INLINEERROR PAS.NONCDSPCF REMEM T2DCF {N Du`D(  EE5 ''(6 A42vA`p5 542`(+wA 31`1A@2(*D68/ 9Ett {:99A77p6( A(VELu}xJy`P(Q(SAp V`P(^P(cP(h(m9bz (p9g{ (p9l|(pAhrst## t(?copy terminated #@{;;;X2,ZP 9UPFMG 92084-1X649 REV.5000 <860808.0 870609.1355&FC.MAC::SRC_92084; B&UPFMG  V.MBTPAS.1 PAS.2 PAS.3 PAS.NONCDSXX && `A@(#`p`(`P+((ph)6`*6((#pppppڨ&XX'(P@;;X@DZP 9PCMDS 92084-1X649 REV.5000 <860808.0 870609.1355&FC.MAC::SRC_92084; ,=PCMDS  UU ABGRP B$CE1 B$REX B$SE1 COPYF CTRTL DOCP1 DOCP2 ENGRP LDSEG PAS.1 PAS.2 PAS.3 PAS.NONCDS ULLST UPFMG Uww==A($AJ? `gA( D(#`gPA((AJ `D((#`gPBD("(#  Hp`Cp.p `.PC(4A@ ?`(8@ ($=w>(@=#[;;X&ZP 9INFMG 92084-1X649 REV.5000 <860808.0 870609.1355&FC.MAC::SRC_92084; @INFMG  PAS.1 PAS.2 PAS.3 PAS.NONCDSPRTM00 `ppAppppp0 (' @ b(";;XUZP 9MAIN92084-1X649 REV.5000 <860808.0 870609.1355 &FC.MAC::SRC_92084; HMAIN |.MBTB$CE1 B$SE1 CLETR CLFRM CLMIS INBRK INCMD INCOH INFMG INMIS INOUT INTRA LDSEG PAS.1 PAS.2 PAS.3 PAS.BLANKFILL PAS.NONCDSPCMDS PRTNREMEM RSLST UPFMG {{cHH`TphO6A`P6JpKL MpA(D(A  DA("(>ND 'A(*(9KDD A2(5A(68D;AN @@pAGH{TI (%2QNONE @4R::X ZP 9FC92084-1X649 REV.5000 <860808.0 870609.1355 &FC.MAC::SRC_92084:%%(FC%PAS.1 6PAS.2 IPAS.3 .PAS.STOP%$$dEXECMAINPAS.INITIALIZEPAS.NONCDSPAS.TRACECLOSE$(``-4145FC 92084-1X649 REV.5000 <860808.0957> FC004FC000FC005FC001FC002FC003FC006created using read using title ``volume date and time of creation created under account name total # of discfiles # of first discfile on vol # of last discfile on vol discfile cont from prev VV==vol discfile cont on next vol tape may contain dup names checksum `(V@`(>>XՒm;FCPAS 92084-1X841 REV.2440 <850107.1 850807.0917 P92084/&FCPAS.MAC::PCO>@ՒBBX"kVm;PAS.ERRORCATCHER92084-1X841 REV.2440 <850107.1 850807.0917P92084/&FCPAS.MAC::PCOB94PAS.ERRORCATCHER;; ` .ENTR B$REX ERLEV FOSAD FRMST LOFRM PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS;QQa000PU((AA8 9?:A; 93<;(*= 9I>;D$0A'1@*2pg/4Q22]5!!A 0(dcan't load segment \internal error: pascal 2@v6>>Xn %;F6IOS 92084-1X844 REV.2440 <850204.1 850808.0606 P92084/&F6IOS.MAC::PCO>@[>>X^"n %;DSCST 92084-1X844 REV.2440 <850204.1 850808.0606 P92084/&F6IOS.MAC::PCO> MDSCST 0 PAS.1 PAS.3 PAS.NONCDS!!ZU   p ppp ` !''`(p 8`(p 8`!p ('   @K >>XoDn &;MAGST 92084-1X844 REV.2440 <850204.1 850808.0606 P92084/&F6IOS.MAC::PCO> ;0MAGST 0 PAS.1 PAS.3 PAS.NONCDSii4--.Bp."Bp.&Bp.%Bp.'Bp.!B(!.#B(!.$B("p/pp.#Bp-`-0i''1`0(2p.80`0(8p/80`Cp-(' B @>>XTn ';CTDST 92084-1X844 REV.2440 <850204.1 850808.0606 P92084/&F6IOS.MAC::PCO> N@CTDST 0 PAS.1 PAS.3 PAS.NONCDS#88>Rp<>%Rp;>'Rp:>"Rp`:p>$Rp`;!R(/>#R(/>&R<(0p?pp`:8@`@(Hp?8@`Sp=(' R @2!P>>XJn (;DWNST 92084-1X844 REV.2440 <850204.1 850808.0606 P92084/&F6IOS.MAC::PCO> ODWNST  PAS.1 PAS.3 PAS.NONCDSo pp€ ( @,KW77X87vn ;EGZE6 92084-1X845 REV.2340 <830906.1912>P92084/&EGZE6::PCO7 8EGZEC $$d#.ENTP .MVWDWNST EXECEXERR FATIO WUPBR $  LLб''`p```@@u@npap_0tpb0rpcopd`jhkax+l+bcL\\488A:^dgfpe`fp(Uxi_eiIdePs(NXq(UhAUhi*(ZHA]d(* .\ AI4 El ?14@IO@&wE777X7 n ;OVRD6 92084-1X900 REV.2340 <830906.1912>P92084/&OVRD6::PCO7W23OF W23ON OVRD. , H` pp@@77X)n !;GTKE6 92084-1X924 REV.2226 <820415.1243>P92084/>KE6::PCO7 >GTKEY lX$$CPU .ENTR RR\~))Ԩp'hH%Ԁ&0'p'p(hԀP(("8( (`($P(( ("0'R@s377XZN1m&0;EXCEP 92084-1X846 REV.2340 <830906.1912>P92084/&EXCEP::PCO7J B$CE1 'B$REX B$SE1 .ENTR   88-`@h8 `0@pA 'h0HH8@Fe^>>XWm-;FC000 92084-1X644 REV.2340 <830906.1 850807.0926 P92084/&FC000.MAC::PCO>  PAS.SEGMENTRTN  @Ed\ONLIN.LIB::RTE_6:5:6:64 644 0 0 3000 5310707270 34035 ONLIN.LIB::RTE_6:5:6:64 $@ONLIN LIB +#+#+#GFST ;;Xj9Ŗ$ONLIN 92084-12061 Rev.5020 <891028.0314>/SRC_92084/R5020/ONLIN.MAC; <ONLIN @4u@@XXŖ DUMTM 92084-1X736 REV.5020 <891027.1 891028.0313 /SRC_92084/R5020/DUMTM.PAS@@:1X@@Xp Ŗ UDTRM 92084-1X736 REV.5020 <891027.1 891028.0313 /SRC_92084/R5020/DUMTM.PAS@ @UDTRM  4.ENTR PAS.NONCDS U(( eS A( @P,n@@Xk Ŗ PRTRM 92084-1X736 REV.5020 <891027.1 891028.0313 /SRC_92084/R5020/DUMTM.PAS@ MPRTRM  4.ENTR PAS.NONCDS  eNA( @IJr@@Xk Ŗ PUTRM 92084-1X736 REV.5020 <891027.1 891028.0313 /SRC_92084/R5020/DUMTM.PAS@ PPUTRM  4.ENTR PAS.NONCDS S eRA( @FIe <<XŖDUMCO 92084-1X737 Rev.5020 <891027.1354> /SRC_92084/R5020/DUMCO.MAC<6COBLN COBU1 COBUF   @m-1Y820 REV.2540 <850812.1100>/GRAPHICS/CDS40/ZTEXT.FTN ; fZTEXT  99 Q.CPM .EXIT0.CCQB ZMCUR MBADD TEDRW Z0WRK Z0I18 Z0DIN Z0CON Z0SYS 9-&S$DSCLB::RTE_6:5:60:60 644 0 0 36000 5310707271 33614 $DSCLB::RTE_6:5:60:60 $<<<$DSCLB +#+#+#<3GFST "" WDSCLB 92084-12062 Rev.5020 <891028.0245>"SDS 0XIDEN <92067-1X520 Rev.5020 800717 @*XIDENz.ENTRXDSJ ZSENSXPRTY;;`a`;p`:p`9p`8@p ).7`5$; `F-6> 66 -#XLGAD 92067-1X523 Rev.5020 800717 @#XLGAD.ENTRXDSJ ZSENSXPRTYIFDVR;;`c `zhyp`|p $Z,(n$3`wZh;;;`]:9  0(@`@pF`p`p`p`~p`}@p&T`{p;`AV88`^2W$[w$``zhy`x`(?`pp`vp(V8`N~vh@h vv"" XINIT 92067-1X524 Rev.5020 <890331.1010>"@:XINIT.ENTRXLUEXISHL XSTATXDSJ ZWRITXPRTYIFDVR`Bd<<`bL"@ pp p` hp` p '"Ѐ(y`<<<``d*Ґ %p2$ڀ `hP 0(?ڨ`@ &E `@h`<`AA+J@<<`]Z~KZhH`@ZhH`@h`@hH`@pb`@hk<<<`ch$Ҁ p$Ҁ w$ (>` `R@&p`@hHH<""`S($ $`@ `@P(>"`S   h"" XDWRT 92067-1X526 Rev.5020 <890331.1011>"@CXDWRTO.ENTRXLUEXXSTATXDSJ ZWRITXPRTYIFDVR`Bd;;`cU!B@ pp`h6p`p #(p* ;;;`^"@CXVRFY!D.ENTRXLUEXXSTATXDSJ ZCTRLXPRTYIFDVR`Bd;;`cEp`hځp`p 3(y:6 ` ;;;`^>h  0Z(G!`@pM`p`p`p`hځp`;`AA8\@<<`` ]p`pd&i&ڀ ` (us$Z(F` (F`p`p<((`U}`@pp$``(F(`Noh "" XRDFS 92067-1X531 Rev.5020 <890331.1011>"@/XRDFSB.ENTRXLUEXXSTATXDSJ ZREADXPRTYIFDVR`Bd;;`cUB@ pp`h6p`p #(o* ;;;`^<* ` h  0(7`@ = `Z@h`@h`@h;`B H`<<`aJZ@h`@ZhH`@pX`R@ha$Ҁ f$Ҁ m$ <<<`bl?k$Z (6` `@`@hH $ Z`@ `@ <`A)(6`Q@h "" XWRFS 92067-1X532 Rev.5020 <890331.1011>"@=XWRFSO.ENTRXLUEXXSTATXDSJ ZWRITXPRTYIFDVR`Bd;;`cUB@ pp`h6p`p #(o* ;;;`^< * ` h  0(7`@ = `Z@h`@h`@h;`BH`<<`a{JZ@h`@ZhH`@pX`R@ha$Ҁ f$Ҁ m$ <<<`bL k$Z (6` `@`@h$ $`@ `@P (6<`Q   h"" )XRDOF 92067-1X533 Rev.5020 <890331.1012>"@"XRDOFB.ENTRXLUEXXSTATXDSJ ZREADXPRTYIFDVR`Bd;;`cӰ"@ pp`hځp`p $(y+;<<`_~*6`h 0Z(8`@ > `@h`Z@h`@ <`B3I`<<`^iKZ@ `@Zh `@h`@hH`@pb`@hk<<<`ai& p&w$ (7`@ `Z@h`@ZhH`@ <""`S$ $`@ `@P (7"`V @h "" XRDNV 92067-1X534 Rev.5020 <890331.1012>"@2XRDNVB.ENTRXLUEXXSTATXDSJ ZREADXPRTYIFDVR`Bd;;`cUB@ pp`h6p`p #(o* ;;;`^<* ` h  0(7`@ = `Z@h`@h`@h;`B H`<<`aJZ@h`@ZhH`@pX`R@ha$Ҁ f$Ҁ m$ <<<`bl?k$Z (6` `@`@hH $ Z`@ `@ <`A)(6`R|@h  0#XPHAD 92067-1X535 Rev.5020 800717 @$XPHAD.ENTRXDSJ ZSENSXPRTYIFDVR::`cTe`thsp`wp $P,(056`u:<<`]9h{ 0Z(B(/`~@pH`}p`|p`z@p`yp`x@pW<`AV 11`ZW`vp^&uc&ڀ``ths`r(/1`Mrh@h rr"" XFRMT t92067-1x536 rev.5020 <891027.1437>"@>XFRMT.ENTRXDSJ ZCTRLXPRTYIFDVR::`cTR`shrp`kp $P,(056`p:;;`\$9hm 0Z(B(/`q@pH`op`np`p`l`l; `BdUp ""`QWp`jp`ipaf(/"`Ki ii(("" غXSPAR 92067-1X537 Rev.5020 <00000.0000> "@:XSPAR#.ENTR.CPM XDREDXSEEKXGTADZTMAP<<`d " " -$ڀ ` Pp`(up` !@$ !z&J <<<`eqD$4"S ${"`h6~p`}p `|Ph  (j<!!`P[.iZ#!!`pP(u(7"(i!`H!zzz >XGTAD L92067-1X538 Rev.5020 800717 @0XGTADJ.ENTRMOD ISHL ZTMAP;;`d΄B I`p`p$Kp`JhFp+ @;00`Y, @ @`HhڂG `F 0 `FF FF"" XSEEK 92067-1X522 Rev.5020 <890331.1010>"@(XSEEKD.ENTRXLUEXXSTATXDSJ ZCTRLXPRTYIFDVR`Bd;;`c 6pp`h6p`p -(c4;<<`\{4`@p:6`p`p`p`hڂp`ڐpp`p `<`ApPp <<``\>QU$Z$a"`@p`p`@pp(p<`Pqy$ ``(b`P  h "" XDRED 92067-1X525 Rev.5020 <890331.1010>"@.XDREDB.ENTRXLUEXXSTATXDSJ ZREADXPRTYIFDVR`Bd;;`cU!B@ pp`h6p`p #(p* ;;;`^<* ` h  0(7`@ = `Z@h`@h`@h;`B@HH<<``iJ`@h`@hH`@pY`@h$b $g $n<;;`bGj$ (6` `@`@hH$ Љ`@ `@;`B `A)(6`Qo@h "" XEND L92067-1X539 Rev.5020 <890331.1012>"@XEND 2.ENTRXLUEXZCTRLXPRTYIFDVR`Bd<<`^o7 B p`K p   (/`J@ p 6`Ip`Hp`Gp`Fp<''`X)$- D pp`Ep=C$DCBP(.'`J{Bh BB ? XTTBL c92067-1X540 Rev.5020 800717 @8XTTBL .ENTRISHL ZTMAP <<``B@pS $ڀW`b`Z@SpQ`ah`Q`Y@SpQ`_h<;;`]%ڂ^Q`XZ@Sh`W@SpQ`]Q`VZ@Sh`U@Sh   @`T@SpQ`\; `BBQ `MD`T@ShTHSpQxRNR[Q`OTTT 'XSECA l92067-1X552 Rev.5020 800717 @XSECA.ENTRXDSJ ZSENSXPRTYIFDVR<<`ci`kp`cp &"(*/ `ihg 0<;;`\@9(<()`jpB`hp`gp`fp`ep`d@pP`bpW;`KdeU&a\&Ѐ`()`Kah@h aa"" XSTAT 92067-1X521 Rev.5020 <890331.1010>"@@XSTAT.ENTRXLUEXXDSJ ZSENSXPRTYIFDVR`Bd<<`bϿp`h6p`}p 1(e8`(<(><;;`\<`@pD`p`zp`@p`p`~@pS`|pZ;77`_X&{_&ڀ``(=`poy${xx``(=7`Nxh@h xx XDSJ .92067-1X541 Rev.5020 800717 @ XDSJ  .ENTRZDSJ IFDVR `C`C<<`a " "( `-p$ڀpx`(&`(`,< `C '( `B`y,,, QXPRTY 92067-1X518 Rev.5020 800717 @CXPRTY,,`V1p8ph8(  0, ISHL 92067-1X519 Rev.5020 791101 @ISHL  9.ENTREXEC  !!`RBP ( 5 ( 6 (!"" ]ZSENS 92067-1X586 Rev.5020 850417.1455 "@2ZSENS T/.ENTRXLUEX `TL.p$`C`Z"" OZCTRL 92067-1X586 Rev.5020 850417.1455 "@:ZCTRL T/.ENTRXLUEX `Sp$$P`B`V"" IZDSJ 92067-1X586 Rev.5020 850417.1455 "@ ZDSJ  T/.ENTRXLUEX `TL-p$`B`\"" PZTMAP 92067-1X586 Rev.5020 850417.1455 "@7ZTMAP T/.ENTRXLUEX `TL,p$`B`W"" \ZWRIT 92067-1X586 Rev.5020 850417.1455 "@@ZWRIT T/.ENTRXLUEX `TL.p$`C`\"" OZREAD 92067-1X586 Rev.5020 850417.1455 "@#ZREAD T/.ENTRXLUEX `TL.p$`C`["" ZZPPOL 92067-1X586 Rev.5020 850417.1455 "@6ZPPOL T/.ENTRXLUEX `Sp$$P`C`] 00  72 , 00 73 - @B..X} %MLLDB::RTE_6:5:72:128 644 0 0 44000 5310707272 34405 %MLLDB::RTE_6:5:72:128 $HH%MLLDB +#+#+#H#vGZFST ::XNwŠ+MLHDB 92084-12063 Rev.5020 <891117.0243>/SRC_92084/R5020/&MLHDB :[[ዾ(ReMLLDRREV1 24MLLDRREV103>MLLDRREV11v.MLLDRREV2 50MLLDRREV3 20MLLDRREV4  /SRC_92084/R5020/&M*SSN ;M.SSN SRD.M ||x.DLD.DST.MPY.SBT FMPCLOSEFMPOPEN FMPPOSITION FMPREAD FMPSETPOSITIONIB1.M IB2.M ISCAN L.BUF M.ADD M.DRK M.GTM M.OUT M.STB M.STM M.SYE MOV.M MWD.M NST.M |NXTCM SRC.M SYM.L TSY.L  DDpp @p p  (`(  (8 `A `A(( &pA`p1(6P((`P(pC"D@@(V KDp`(V@(X(c`hxP(^(`bP (c(V`A  @ @ s;p`(s`h瀈@ph爈Hxp:]77 hHxH (sh((;p`P슈(`P((`phH∈`hH㈊8((`ph爀H׈pp h8(HHff6 33H(hhxhH@p@(`(`h h(p`(  `(䄈P ` f ,  K    Q;FF BD@p`(V`(ch;V (_H@`5`(A g(pxHA`pq(z`(zD`p(m(;;} ""`(w `0pA  Hp`phh;EEx@H0hPH`PH`h?A šROS @(p    8(ר  ׶ ?@@0O44X߂Zk9$;M.STB 92084-1X367 REV.2226 810811 P92084/&M*STB::PCO4}M.OUT M.STB MWD.M \\#MT.M #TK.M .ENTR A15.M A16.M DUN.M EXECM.OVF M.TK0 MBF.M MLU.M MT#.M MT0.M SPS.M SRD.M TKB.M TLU.M TS#.M \DDp@px`p@`0pHH` p` ((pHH` p` pHD` p`p DD`p `p DH`p p (>8(r`(9P(5p8(>p8(>hp xpHHp`(U~~ZDAAALDD` p` pDD` p` p(>pxP(\X(l`(`}`p`pAlhH`8((`p `p `p `p `p `}~++,}+@y944X Zk92;M.XTS 92084-1X368 REV.2226 810723 P92084/&M*XTS::PCO4 +M.XTS WW,#MT.M #TK.M .ENTR A15.M A16.M DUN.M EXECM.TK0 MBF.M MLU.M MT#.M MT0.M MWD.M SPS.M TKB.M TLU.M TS#.M W&EEppp`p`p` p` p` p` p` Dp`p `DDp `p `Dp p @Dppp`@p`@(px9Hh5H`P(CP(WP(](~`RE==@((ppp8 X("8 X("8`({hHHx`p`@HHH5("(;(# X("(RRi..88({`(`p(gH`hx hHHx hx hHHx hx R@t 444XĞEk:;M.BLD 92084-1X369 REV.2226 810723 P92084/&M*BLD::PCO4 M.BLD TM.OTB M.SYE yyVEEx4x5x6`7p'`5h4`6h4`4h4H4H6A$$$A,CA4BD`D`'@Cp'848.PLU# .#NOD .PADR y@g44Xј$k:;M.HSH 92084-1X370 REV.2226 810715 P92084/&M*HSH::PCO4 )M.HSH .ENTR CCH$$A @(x! ( @H#0"88!( ` C@;;X4{[ZŠ*3MLLD1 92084-1X371 REV.5020 <891116.1220> /SRC_92084/R5020/&MLLD1 ;BBmM.CGT /M.CLR M.CMDS0M.LST M.OWN M.PS1 M.SHC M.SID MLLD1 B~~$DEMT $MATA $SMCA 2.CBX4.CXB3.DIV.ENTR 5.LBT7.MPY.OWNR 1.XLA6.XLBBAT.M CAP.M DFG.M DST.M DTK.M F2T.M +F3D.M *F3S.M FL2.M #FL3.M 0FMPINTERACTIVE.FMPLU ,FMPOPEN ~}}C/FMPPARSEPATH-FMPSETIOOPTIONS IAD.M IB2.M 'IB3.M IPB.M ISMVE LDN.M LOGLU &LST.M LURQM.ABT M.BLK M.BOR M.CL2 !M.CL3 (M.FER M.NMR %M.NTR )M.OER M.RTN M.SOT "MOV.M }&& MY#.M PAS11 SEG.M TKB.M TP2.M $TP3.M X03.M &zPP@p(H1Ap@`(`((AA+-^ 2`Qh ` 3RHT @0Vp/H4h,xj/Qjn&PGGHh5PS(b@YP@R (bhXW(dhXX(d`PA`Op~,m'~N(s!D`hj)8A.w'p&A-}' U0 WCO    D  p @`Pp GG@(` HX` 3RHT @0VpЈAhx,p hD).Dp0H(h `Z )8 H`h0 ROS 1 p `ph6x@1pHH@ x 1@P( @1P@( 1P(@1 A7@6@@1h р8( h Hx 8 ((* NO BLANK ID RRp_&55SEGMENTSH`Mh`L@(pK`@Dpph@D8h@D8h@D8hH8J(?`KDH8h/! '00 MAP R@o44XodZk:-;MLLD2 92084-1X372 REV.2226 810723 P92084/&MLLD2::PCO4&&DM.ABR M.ERR M.FLR ,M.PLN MLLD2 &XXCLN.M IB2.M LST.M M.AB1 M.CVD M.DRK M.RTN M.SOT MY#.M OPC.M PRM.M PTERR READF RWNDF SEG.M STR.M TP3.M X]LLHp(!A3! p`3p`4p`5p`6p`hD(MLLDR ABORTED @8p7x4x5x6` h2H!3L-77 XXX6CK SUMIL RECOV MEMOV BSEOV SYMCM BLKDU!L`` ENTTR ADDRE SEQIL PRMCO RESOV FIXLM LIBIL RELIL DRNIL PTNRQ PGSOV PTNML EMAID EXTSZ EMANO RSGIL MLSSS ENTIL CMDID SEGRF EMAUN EXTEX CPYRP CPYPE LDRDU PGMNO IDSRP PGMSH EMARP MLSOV DSKSH PTNILkRR SEGIL SCBIN CAPOV SAVSZ PURSZ ALCNO SNPVS EMAVM EMAOV RBPIL RPLIL EMAIL ALCML BDT FMGR-0XX ON FILE `hxpPHxp8p8Ap`h@`H{GG(` P (` p` Dp `pHp`h`p `p`(?   )@*@+00(0  xMA 2N`MpO <Nc8O(5@`(DhP`55DEHp`Mha H`bhQ, RERROR IN COMMAND LINE # ^(5@h&;;XZy MLLD3 92084-1X373 REV.5020 <890830.1506> /SRC_92084/R5020/&MLLD3 ;IwM.ED0 M.LEN M.NTM MLLD3 ~~ʀL#MP.M F#MX.M #PG.M #PT.M (#TK.M $CVT3 4$DEMT m$FIEX l$FRIX $IDEX $LIBR $LIBX $MATA o$DIEX n$IEX.CAXv.CBX{.CXAy.CXBJ.DADs.DIVp.DLDK.DSBR q.DSTz.LBTw.MBTr.MPY~.x.SBTu.XLAt.XLB.XSA.XSB:A12.M 6A13.M AFW.M BPF.M OCBP.L cCN#.M -CP?.M dCPL.L WCTP.M )DBG.M 5DBL.M aDSG.M eEBP.L %EDG.M PEMA.L ;EMA.M IEMH.L SEMS.L EXECFBP.M 7FRC.M D-FTIME FWA.M GETAT AHDK.M HI.MHST.M HTK.M IFBRK INC.M IX3.M _L.BUF LBP.M @LDK.M +LST.M HM.ABT ^M.BOR /M.CL2 MM.CPY 2M.DRK GM.DWR ,M.FCL EM.L20 0M.MSZ M.OBP 3M.OTB }}]M.RTN DM.SET $M.SOT BM.SRW bM.TRW gM.VER `MFG.M |MLLDRREV1 MLLDRREV10MLLDRREV11}MLLDRREV2 ~MLLDRREV3 MLLDRREV4 MLLDRREV5 MLLDRREV6 MLLDRREV7 MLLDRREV8 MLLDRREV9 MND.M ?MS#.M }_1MSF.M TMSG.L =MST.M >MTK.M "N12.M #NM5.M NOT.M <NPT.M COPC.M OWN.M XPFL.M PLS.M !PRM.M PRTN.PRX.M NPRY.M jPSZ.M QRES.M YSEG.L SEG.M SETAT USGA.M ZSGB.L SHFNAM9SST.M II8STK.M RTDY.M [TH1.L \TH2.L &TKB.M 'TLU.M *TP3.M TS#.M VTYP.M URF.M fVMA.M kVMF.M iVSZ.M hWSZ.M IJJDp(]/JApNqHH`p`pHJ`pp"AHq`#pHJ`QppRA@q`@($0`@p@`P(a`YH(.`1P(a`hP`\@p~ (<3;;;hP@`(L`(a@~p~ (aA3L-JHHLL@@p~ (a3WWW(a`Z(^h`H2[_G@` r ((h   @p@pDp` p`[p`5p`6p`@OH@ph`Ԁ ` `0Ĉ@`YhbKK(((F`(^%!`(Մ`p `p[`p5`p6@`@@@DpOp8p9Hp:`6P„D(6h5HD8586( ``((`v@w(@@GD``\h@mJJ@p@p@`(`a(@`HDP(p=`Hp>(p=@D`p>`Dp?`> r?@= s@pv`a@(`@H@A@@H` @px JpwhP@ (`T( `~H@pT@ÄppI(* 'EE(*pz(; JIqI`f(;JpI(@y(`zh~ @Hx`fD(q8h`hhk ([hz ([pI([ ([`h@xh`H phJhKIAq{hiAK{(i@`|pi`iyժlLLDPyxi`ip x`(A@r@t@@up(0x`;D hS`f@(hhHpp`;@(`SHhjH x@`@h @@pH   @@@@T0L@0hX( 0}pGGH`@pphP (@pH0p@phP (h; D`Shf (H`h@@p`@@@hP (hT X @@(X `JpD`\h` (@hc (`<@@h (ps[CC(`0`p@`(`(`0pP`(`v@0p`a("`x0p逈 p@`%(r`&p`'p`%(0`0Ąp`p(@`((OprH`'hP HH&xsh&xtEzBFF'tHP%(K`hsHb8t8s8r(@ X%huR6`p`({[hHxC`h@`P( `T@p`f( `S(@h( @`(^x HhCXBB88pp8888( s@@C000`v(h`wHhA`@@ J@@w@hP (h; (@hf +fOO(@h(@S@hS pu@@u@@`@(^LINKS:CP PROGRAM:BG LOAD:TE COM((MON:NC SHARE:LABLE `@`f(H@hh`ihx`儀h2`??@h2`P@(-`hf H`h2`@h2hf (-`h2D[h`d ehPhHxh`VPhPhPhxh`%PhPhHxh`WPhPhxh`Uxh`7xh`X1XII([xh@`)xh@Hv`;A(i`wD`xyHzP(l@H`xH{@@섄h2[`FhH (h@HF (`(H`h$[(W-RQ PGS 00 PAGi^^E LONGEST PATH 0000 PAGE PARTITION REQUIRED NO PAGE EMA  NO PAGE MSEG PAGE WORKING SET  LAST PAGE OF VMA HDEFAULT 8MPBPRTLBEBSCRCPERPSSFOPF`҈hHX>>xh% (AhB.`Dh$[`hED$`P(@`*H(`+0ApB BA $,h`! x!x!A .! 1$END |}~N=@+CDD .1@@(^u HH8HH@ p?x@hxp@h (a`ֈ0pHh@ (kHHA(i(p R`l(Јp@h@ x҄HuD0-0p`P(pn(Dhn (EhS@H`fhh`ou>> @p䈈h@xhẍhxhnx͈@h888(`hn 8An p`-ph? (hn` 8oh@xȈHhB8Ȉ88(8Rh@xh? R`h@HHBR#JJ  `(ل`(^H`h$`@(^!NO BLANK ID SEGMENTS`prtr @HuP (uP (@upHp`P(8r(8Atr`HP(wFF@`(^ pH`P%`pA`pB`pC`4h5A %&$8(D`GpԀh `@h$ (6DUPLICATE PROG NAME - @ `F(^ ..pl`pqhmm xnpo(T8qtiUFFq (iHu(_(SHH(f(Stqxl`lhnHHP%(+(+xuMAph`bhuH@xHuP(H@u(HupLHu(HPLL@u(Hu(HuArJt@@@uPu(`h$`(^"`HhH$`@(^$SET PRGM INACTIVE 4HhCX  `up@A ф88.EEAHuA`@@Au y  hlhuHHHupOHxMupND@HDBhMBhO`NQhuhuHxOhxLXL("uhOHB8O8L(H`CP( (-o,DDpuH`l((&DHB2`IpJ`@@KpQhQ28Q8J(< @X%R6 xHpP(^P([Q`H`pNxP`L AsN ApNo`LpHHA(zwhPb88P8N(jQxQhxp6`pA (6hψ`QP(A6868(`PШpp6hHx ( VV_o== |? DBc*| B :V@744XZk;0;MLLD4 92084-1X374 REV.2226 810829 P92084/&MLLD4::PCO4zzCEN.M CP2.M LS4.M LS5.M M.ADD M.CPG M.CPS M.FXE M.GTM ^M.IFX M.INT .M.LDF  M.LUN hM.MAT uM.PAK M.REL M.STM zmQM.SY8 >M.SYE MLLD4 ll0.ENTR CEN.L CP2.L L.ADD L.CPG L.CPS L.FXE L.GTM L.IFX L.INT L.LDF L.LUN L.MAT L.PAK L.REL L.STM L.SYE LS4.L LS5.L M.RTN SEG.M l'XX`p@( A A ) *7*+,-.8I89:;<=>AJA]JKXVVLMNOPQ8^Ab^c rcdefghAsA |stuAA} }~ppp`AA   !&  P̀@<14/85 ash Added procedures LANClearClass, LANActivateClass,  RegisterClass. !6/19/85 ash Change type of Tableok %MLLDA::RTE_6:5:39:128 644 0 0 23400 5310707273 33660 %MLLDA::RTE_6:5:39:128 $'4'%MLLDA +#+#+#'y:GFST ::XOŪ:7MLHDA 92084-12064 REV.5020 <891207.1758>/SRC_92084/R5020/&MLHDA :@0O;;XZŪ:M.OVY 92084-1X363 REV.5020 <891206.1743> /SRC_92084/R5020/&M*OVY ;WW;SDBF.M `DUM.M IB1.M CIB2.M IB3.M IB4.M M.OVY (MBF.M 8NBF.M 8SBF.M SHFNAMXBF.M Wd#MP.M j#MT.M `#MX.M _#PG.M [#PT.M D#TK.M $DLP$MATA $MNP$PLP $SDA.CAX*.DAD.DLD).DMP.DST.ISX.LBT.MBT.MPY.SBT.XLA.XLB9AFW.M GBAT.M BP1.M BPF.M BPL.M BPS.M CAD.L KCAP.M uCLN.M CMN.M CN#.M COM.L qCP?.M CPL.L CSV.M cCTP.M XDBG.M PDFG.M DN?.M DND.M EBP.L ]EDG.M nEMA.M EMF.M ESV.M EXECiFBP.M FL1.M yFL2.M LFMPOPEN #FMPREAD NFMPSETIOOPTIONS :FWA.M VIAD.M vINC.M IPB.M IST.M xIX3.M LDN.M LNAMR LOC.M QLOGLU \LST.M hLWA.M (M.$EFM.BLD ^M.BOR }M.BRT HM.CGT RM.CL3 M.CL4 "M.CLR M.CMD M.CPN XM.DMN JM.ED0 MM.FER M.FPN 1M.INT ?M.ITK M.LRD M.LST >M.MID aM.MSZ M.NMR EM.NTR M.NXT OM.OER M.OP? $M.ORD M.OWN M.PRR M.SCK M.SHC M.SID M.SLD ;M.SOT IM.STE 0M.SY8 z2M.SYE 3MD#.M &MDL.M MDP.M 'MDT.M <MLD.L lMLU.M MND.M =MOV.M mMT#.M kMT0.M %MXM.M SMY#.M zN12.M {N34.M NM1.L NM2.L |NM5.M NOD.M !NOR.L UNPT.M NST.M YOPC.M TOWN.M pPFL.M U@PLS.M wPSZ.M PTH.M 4SAD.L BSF1.M eSGA.M /SGET+SGM.L ASKP.1 SLG.M ~SNM.M SSZ.M CSTB.M STR.M ,SYM.L -TH1.L .TH2.L 5TKB.M 7TLU.M WTP1.M ZTP2.M 8TS#.M TSZ.M bTYP.M 6URF.L &&FURF.M oVMA.M sVMF.M tVSZ.M rWSZ.M fX02.M gX03.M &~~0?HH(`(( 1 hHgp~`AQpSADx RDpTp`p@hHHxGhτHpUHhPhx@hHgPd 8Pe 8@0~88 H Pf8hτHpV(U(UDDHD@8(( ros3MLLDR 8FFD(Hhhh8(88@(D(pXpYD8pD@ DxW`(@`(`YAP(LɡB_`hOANB_@^8W`Z(hW (D`p`YP(LL@(@ [@ (`DM 8`o@(`w(]`0P8`\@h (Hh`]h (`@(^`@(@(`P(@P(`_(`[(RJ( cf*HH@[(A@[J@ (@@p(`@pQ@_@(K`_@(@_`Qp`(TDDax`hb (hJDhcHd (h`hbJXpb HhbX`ZpH@_@(MrHH@@`H_ (} @!@p`cH(hbP(X(( XH(`pd`ꈄh(`pdD`hpxH(p` HhbXX`pd`heD pd`p9HDp:@p+`:D@fpfpg`ph`pD`ppp@pKK@pip)`A  (A@U@(p,@@i(h)8) D( `pDH`phYX儀(Sh]X@? `&@DxjD`5p'pkDD`7plp&`8Dpmp3` JH3p%`D@pD?`D`"`A1 ,iTBB4+hC`n*Dx@(H(Hx`h(J3 ` h;`(^?$ z  `=z(/A! PNAME ?_ R -2:@-LC::X/y(M.SNP 92084-1X364 REV.5020 <890814.1230>/SRC_92084/R5020/&M*SNP :eM.RN2 )M.RS? M.SNP SGA.M ~~b$COML $DLP$LAST .CBT.DFER !.DLD.DST".LBT.MVW#.XLA$.XLBCN#.M EXECFMPCLOSEFMPOPEN FMPREAD FMPSETPOSITION IGN.L L.BUF M.BOR M.FER M.GTM M.HSH M.LUN M.MAT ~:: M.OER M.PNM M.SOT M.TST NM1.L NOR.L NOT.M PLS.M SBF.M SYM.L XBF.M :II xxUHAhxV %P#( h A`h`@"()`$(-NROS x( 1)*( (K`*@"ppYA<*)(E`ZpY`WPXH(I`Vp^(C~~ILLA8U()O`Vp`U8? `)@[A(6`*h)`8\P](p(u6 p@p@@̀pQ@phA~ZZk11`h`hAʀA (A!@#8Ј(8^^hH6H"p95p:^ n$SYENT:123456B:-2 6 Z  >>hBXA(hX (ۈAx8 !88`ApB`ph> (p>`pp`@pBP(B$(p`'pB8B888hAPxBPH(PCCUL''((`APB(H( , NOT TRANSPORTABLE C>??@`9P (}JB(k#p&`%@:`:d@&!hX (kJ`:$@(k$ @(k`)A6`j(h9P#hP" P!h"x9h:x|)69()NNX}))hYX( (Ih:'x`:?A6px>`ApBpppDp p p D(p``h+HN  @3 Q44X;Zk8;M.LB2 92084-1X365 REV.2226 810901 P92084/&M*LB2::PCO433oCAP.M  F4S.M FL4.M 7M.$E@M.SPR M.STE SH4.M 3:: C"$CMAD M.ADD M.BOR M.CPN M.FXE M.OTB M.SOT M.SPC M.SYE NM2.L X02.M : MM`(>7`(0#>7? ( +>7<:`;(`h A6 $EMA$  Ԩ@=ԀxpԀHo (GԀԀPm@H=Xp(XLLIW,,(Ph pr ps pt`nhq `lh~D  8@8@@PRr SET TO PRIORITY 99W-IN CAPL@o%LINKA::RTE_6:5:233:128 644 0 0 164400 5310707275 35635 %LINKA::RTE_6:5:233:128 $d%LINKA +#+#+#t]GFST ::XȘ", LKHDA 92084-12070 REV.6000 <921030.0134>/SRC_92084/R6000/&LKHDA :@99X=ZLINK92084-1Y007 REV.6000 <921029.1405>/SRC_92084/R6000/&LINKM 911Fn>TMPNAME SAVE'HYP  ERROR_STRINGCTL COMMAND_LINE1rr7LINK.NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN rjjEXEC.FION FMPREAD QUITPRINT_LASTPASS2 OVERLAY MOVIT DUMPEMA FINIS DO_GOODPNAME TR_COMMAND HELPDO_DUMP DO_WHIZARDDO_RELINKINGCOMPROC INITj a ~~66  &&p`P((&(`P(!($#(`P(((+*(`P(/(52 4(`P(9(B~:77< @p (`P(F(K I&p( N&(T`hpx ]&(bdg&p`(n`hpWW q))xw&({~(`h (((`(p( AW,,2 5 1 3 @p8 :< >,@h"::X_"DO_GOODPNAME92084-1Y007 REV.2440 830206 /SRC_92084/R6000/&LINKM : AqCTL IDO_GOODPNAME '.ENTR FATAL_ERROR GOODPNAME OVERLAY 77A`!p (`( p`75 8@{y999XpJ$BAD_SYNTAX92084-1Y007 REV.2440 830206 /SRC_92084/R6000/&LINKM 9L5BAD_SYNTAX.ENTR PRINT_STRINGS \A#!""X ignoredIncorrect syntax:  ("@ 99X+PRINT_LAST92084-1Y007 REV.2440 830206 /SRC_92084/R6000/&LINKM 9 Az'HYP pPRINT_LASTLNPRNONCDSOVERLAY ,,p`hpx&, 3 & @_77Xb"DOERR 92084-1Y007 REV.2440 830206 /SRC_92084/R6000/&LINKM 7 A@ERRORS LDOERR  .ENTR ==A`p`!p` p`@HH@p8( p=  @/f66XzUQUIT92084-1Y007 REV.5000 860227 /SRC_92084/R6000/&LINKM 6::HE 5SNAP_INFO PROGRAMNAME %NST MODLS IOERRORSDLCTL : }3QUIT 22 @ EXEC.ENTR .MBTPRTN FMPCLOSE PRINT1FMPINTERACTIVECLNUP CALLER2;;A`(`pJJO((p  " & ! ,TS RhL`NK`Qp (9`p (B`P(=''m<(@`Pp (B`p E  HK'K  @Y77XCLNUP 92084-1Y007 REV.2440 830914 /SRC_92084/R6000/&LINKM 722HfXSG %NST IO'HYP #GARYERRORS  DISCCTL 2 PCLNUP  //((.ENTR MEM_LOC FMPCLOSEFMPERXFMPPURGEFMPTRUNCATE FMPPOSITION / BAAA`p((`p`((p`(((`p0(g`  (L`pD `~~]F==(LL`pR` (g^p`(gg` (` "(( s "@py|p`(~''w(  "@p p 'q @@ @ t@/SN77XpBUDFCT 92084-1Y007 REV.2399 830206 /SRC_92084/R6000/&LINKM 7Cj5SYMTB_REFSSYMTB_DESCMODE 7UDFCT   SO.ENTR WALK ssl88Ap`App`(;`@@?p`(:`@@?@p`Ph  0pP0(:p`(p(8s ق?t @ Y)66XNEED92084-1Y007 REV.2540 830206 /SRC_92084/R6000/&LINKM 6//FiSYSLB SYMTB_REFS SYMTB_DESCMODEHTAB ALLOC / (NEED  .ENTR DUPECHEQMEM_LOC HASH}}D <<A @ p pp  @p`((p`@p ` @ (7`@@p("`@@p`p` @pH }3G>>p`(Sp(U `pP(Y(\`p(l`@@p`hX 0p(q`p`(`(`p ``kk!11  (`( `@@hHHp0(`(`p `(`@@p("` k t @Xwl77X{DISPL 92084-1Y007 REV.2440 841002 /SRC_92084/R6000/&LINKM 7!!DSYMTB_REFSSYMTB_DESCMODECTL ! ZDISPL  TWMNAM WALKPRINT UDFCT   p`p!z()e  No undefined symbols# (y(m`p pP Undefined symbols: -;;2 xp7p`(g`@@sp`w(f`@@svp`Ph  0pP0(f`@@spq`uprfqr(4sh ktt`ppst@\'z77XADDSC 92084-1Y007 REV.2440 830206 /SRC_92084/R6000/&LINKM 7BBH6SYSENTRY SYMTB_REFS SYMTB_DESCRELOC PURELAST_LABEL_ADD'HYP ALLOC B M ADDSC   yS.ENTR .ARTN FATAL_ERROR MEM_LOC Ƈ<<p pp(("`p` (+`(&(+`p`(p$`p`p`@(;(??`(zJB77 `@p Ip`@ @p`@ @p`@ @ ` h)x`P``p(z`P(s(ww`pWW-y''(`(`p(`A (`@p(`@p(`@p(`@p((W$ tpo  n@q166XDADD92084-1Y007 REV.2440 830206 /SRC_92084/R6000/&LINKM 6 kDADD K.DAD.ENTR [AA@ 77X_PRNTM 92084-1Y007 REV.2440 830206 /SRC_92084/R6000/&LINKM 7 AqCTL UPRNTM  .ENTR PRINT .._Ap `h 0(.@–V;;X<PRINT_STRINGS 92084-1Y007 REV.2440 830206 /SRC_92084/R6000/&LINKM ;.PRINT_STRINGS &&.ENTP .EXIT .SST.SSTC TRIMLEN PRINT PRNTM &)LL`.pA)`p*+,-`p(A`P((Q(XA(p`P((\(d(p`P((h(p@)(t(~**@ruwp})(p).* P@Dc77XPRINT 92084-1Y007 REV.2540 830206 /SRC_92084/R6000/&LINKM 7B,IOCTL :PRINT >PRINT1K!!:.ENTR REIOFMPCLOSEFMPWRITECMOVR BLT !  ^^700A7(D>p>`>p:(`8@@p `p R W7 8`(~`  `(ng6^JS Error on list file ZZREg,,Am(~`(s:9(x(rP(|(~(r` Ap (r`(`p `p (W(rZ71 ) @Wv77Xُ]BREAK 92084-1Y007 REV.2440 830206 /SRC_92084/R6000/&LINKM 7%%ESG REC OVERLAYINFOBLOCKIO'HYP % RBREAK  \PREIO QUITCMOVE BLT IFBRK Main pass 1; to proceed: _\\,,p(L`(#`\p`(,+O[(11AZ7VY`X0pN@SN W`(L\pVAborting Link //C AIVU LTOMain  2@uj99XLIST_FILE 92084-1Y007 REV.2440 830206 /SRC_92084/R6000/&LINKM 9B(IOCTL oLIST_FILE HH .ENTR .CPMPRNTM DAYTM LUTRU PRINT FMPERXFMPOPEN FMPCLOSECHANGENAMENEWNAMECHECKDECIMALTOINTHn ^BBAxp(p`(818?p`(aH LSp`(\\66j]pp(`PhX Ap h (6̅ List file wrong typeUU:x)) } (H( p Ph  ( pp(p U,,1 ros wco MAP @FHLP,@cX77XbWMNAM 92084-1Y007 REV.2440 830628 /SRC_92084/R6000/&LINKM 7C*SAVEM IOCTL  ;WMNAM  !!.ENTR .CPMMIN0 CMOVE FILL_ARRAYPRINT !>>` h  (X(#`` P( @@pZ Z``Ap(X']@p@`@a(?(?@@pZ=Z``p???``P(C(HH_^`@\pZAO]p[ UZ[`@p?\ '&@ j**77XFINIS 92084-1Y007 REV.5010 880527 /SRC_92084/R6000/&LINKM 7BBIVMA SYS_INFOSYMTB_REFSSYMTB_DESC SGSAVE'HYP EMA COMMANDSB BFINIS   $$.ENTR FATAL_ERROR SGSRC SEALB GETSNAP NEED$#==A`(@`(p(-0h 0h 0(-,{p`(>` p`@@zhHHzpxx`tt?99p`(tpI` (T Rp(Z Yp`px00xh  (o o`(v`pp`tfzt$EMA$ $VMA$ x@W77Xy1CRAWL 92084-1Y007 REV.2440 830206 /SRC_92084/R6000/&LINKM 7CTRACKINGSYMTB_REFSSYMTB_DESC UCRAWL   n.ENTR .CPMEMA_LOC MEM_LOC ^^uD++A@@.0@p`@p`((`@p`pA/(#(+&p-*-p`^ c.t  @{;66XE;WALK92084-1Y007 REV.2440 830206 /SRC_92084/R6000/&LINKM 6""D\SYMTB_RE((FSSYMTB_DESC*SAVEM HTAB" WALK  .ENTR MEM_LOC yye66A(%p(`(@:(`(@:p88p($`@(("`( p(( ($p(6@@9(5@@9p3p(6(`y a9 t @88XcSIZE_UP 92084-1Y007 REV.2440 830206 /SRC_92084/R6000/&LINKM 8CPARTITIONS%NST COMMANDS ?SIZE_UP  >.ENTR CHECKLIMIT(( (pp (  @77XGETAD 92084-1Y007 REV.2440 830206 /SRC_92084/R6000/&LINKM 7D8SIZEAPAGES  ERROR_STRINGDL < GETAD   %.ENTR MIN0MAX0FATAL_ERROR BLANKFILL }}@@p`((u`( p`( `p(`(`pp`p`@pA.@@ p`@p`0(q`(J}~~F;;`*@pp`@hHpxAV`@@p`(q`p`(g(u@pAnp` 88(&`(`p`@hHp~(()|x@p(o((o(v6 @@@77X? ADENT 92084-1Y007 REV.2540 830206 /SRC_92084/R6000/&LINKM 788GX ERROR_STRING SYMTB_REFSSYMTB_DESCSGMODE HTABCURRENT 8 m.ADENT   ee*.ENTR MAX0.JMX0 .EXIT .SST EMA_LOC STORE_EMAVAL MEM_LOC PUTSY BLT GET_EMAVALFATAL_ERROR WARNING CMOVE CHEQHASHPRINT FILL_ARRAYe""uLocals cannot be declared as entry points:"~~)??A)6) **p`,P p,p` (e` ,P (H(eMR W\) *ae`(k~~~h<<`0p`&ps)* p'`'@- {-p-( )*p -`'@-(`@ @p ` p&`@ @p)*&p#~+e==P((`p"(`@ @p%`%h%X 0p"`"(` Pp$`,P$p$`$p"`#"(` (Jހ)*h &x!,,Q`!Pp`(` (,~~99`0p(`P((O`!(` ( `@ @hH Hp0(`! (! (O`(;`@ @p`0 ~}}-<<`@ @hH HpxA9+(O>E+AIO`@ @P(W(`P([(j`@ @+(i`@ @+p((}8 i88(`(rq+(w`@ @+`@ @p`&*`@ @hH Hp0p((p(((`@ @( - )*p ~~=77p -p`@ @h p(`@ @- -p(`(+`@ @hH Hp숨(`@ @+`@ @hH ~%%b Hp0`@ @h*`%~p( -`(.22l @ t u8 0 * x(2@u77XTPUTSY 92084-1Y007 REV.2440 830206 /SRC_92084/R6000/&LINKM 700FTRACKING SYMTB_REFSSYMTB_DESC MODE 'HYP ALLOC 0 ZPUTSY   ##.ENTR .CPM.ISH CMOVE MEM_LOC FATAL_ERROR #;; `p@p`@p`@hp`@p(*(**SP-p`@@Q@OhR`@ @OpM =M`@ @O ##KA `@ @Oh `p`p`#zOt v@]99Xn#ACHANGENAME92084-1Y007 REV.2440 830206 /SRC_92084/R6000/&LINKM 9 A >TMPNAME ICHANGENAMEJ..ENTR FMPBUILDNAMEFMPPARSENAMEvvڨ77Ax87?=:;;<=9(p:( p;(%p<(*p=57?=:;;<=9v7 @ 0@ 0`0p @0@W77Xh CALLER92084-1Y007 REV.2440 830206 /SRC_92084/R6000/&LINKM 7 kCALLER .ENTR  @ *77XLINTMSG92084-1Y007 REV.2440 830206 /SRC_92084/R6000/&LINKM 7 ӋINTMSG .ENTR QUITPRINT CNUMD FILL_ARRAYInternal # ==!!A%*IF/KJ37<IF=<Please contact your HP representative < AHFDGkF& @EJd 77X VSETSY 92084-1Y007 REV.2440 830517 /SRC_92084/R6000/&LINKM 722F{TAB_SIZES SYS_INFO5SNAP_INFO SIZEAPAGES COMMANDS2 CSETSY  .ENTR IXGET @@HA`p`p`pp`p p`p @p@   @~>88X0;MEM_LOC 92084-1Y007 REV.2440 830206 /SRC_92084/R6000/&LINKM 8BTRACKINGSYMTB_DESC ,MEM_LOC   +}.ENTR .CPM.ISHIMAPINTMSGcc00Ap`p4A04(:`8@p`7@@h@p`@6P(2`9p`c6t@88X0EMA_LOC 92084-1Y007 REV.2440 830206 /SRC_92084/R6000/&LINKM 8 AqTRACKING EMA_LOC   .ENTR .CPM.ISHINTMSGPP))A`,h@@pp*/0*p*.0*(((-`P ,  @ͣ;;X$GET_EMA_SPACE 92084-1Y007 REV.2440 830206 /SRC_92084/R6000/&LINKM ;BTRACKINGSYMTB_DESCGET_EMA_SPACE  .ENTR .CPM.ISHMEM_LOC FATAL_ERROR GG}A@h@ @p((#"`p  p`G " @zV99XFILL_ARRAY92084-1Y007 REV.2440 830206 /SRC_92084/R6000/&LINKM 9hFILL_ARRAY F/.ENTR BLT 11A@p`@px1  @d$::XfDO_RELINKING92084-1Y007 REV.2440 830206 /SRC_92084/R6000/&LINKM :XDO_RELINKINGq^.ENTR QUITRELINKOVERLAY **iA ((( * 4 * @{;88XO DO_DUMP 92084-1Y007 REV.2440 830206 /SRC_92084/R6000/&LINKM 8 +DO_DUMP  DUMPOVERLAY : p   4  @[zx99X&1DO_WHIZARD92084-1Y007 REV.2440 830206 /SRC_92084/R6000/&LINKM 9C6>TMPNAME MODLS DLzDO_WHIZARD!!WHIZARD OVERLAY CALLERCHECKLIMITEQUALCH !RRB<$$p(,(:/(`0p`h:H.p$x%$%(" *"R& 3 PR@0 LN@x899Xm18CHECKLIMIT92084-1Y007 REV.2440 830206 /SRC_92084/R6000/&LINKM 9iCHECKLIMIT X_.ENTP CHECKLIMITD VVRR..`p6`66p6`6P7((p(p@0@2@4-024p`V 7 @D0b::XCHECKLIMITD 92084-1Y007 REV.2440 830206 /SRC_92084/R6000/&LINKM :FCHECKLIMITD ++_#.DCO.CPM.ENTP PRINT DINTTODECIMAL ((BLT PRINT_STRINGS + MThe minimum value allowed is ~~>EE`pa`aapap`a@(*(3(31u`A(H(H>{BsG(_(](]SwWs\~Z(_`p(133tb!! The parameter must be an integer !maximum minimum (3@u-99XPUTNOWLIB 92084-1Y007 REV.2440 830206 /SRC_92084/R6000/&LINKM 9 AnxFILES dPUTNOWLIB pJ.ENTR BLT MEM_LOC 00@A@p p`@pW0 b  t @ȷ99XGETNOWLIB 92084-1Y007 REV.2440 830206 /SRC_92084/R6000/&LINKM 9 AnxFILES [GETNOWLIB pJ.ENTR BLT MEM_LOC 00A@p p`@pW0 b  t @/;;X$PUTOVERLAYINFO92084-1Y007 REV.2440 830206 /SRC_92084/R6000/&LINKM ;BSGOVERLAYINFOBLOCKPUTOVERLAYINFOpJ.ENTR BLT MEM_LOC 44|A(  p`@p( 4 Ut @;;X GETOVERLAYINFO92084-1Y007 REV.2440 830206 /SRC_92084/R6000/&LINKM ;BSGOVERLAYINFOBLOCKGETOVERLAYINFOa6.ENTR BLT MEM_LOC INTMSG@@A(  pp`@p@ [7tV @$<77XVFMPERX92084-1Y007 REV.2440 830206 /SRC_92084/R6000/&LINKM 7CzG$WDIR>TMPNAME (CHBUF  FMPERX  88.ENTR .EXIT .SSTPRINT_STRINGS CONCATSPACE BLANKSTRING FMPERRORFMPPARSENAME8ll/::AE@p:EQO:K;<=MG!GEU%UG(K!(8 JGS 4GIU8UGl007;Working directory: P@ 0` 0@ 0p@0 v0@H::XǣpNEWNAMECHECK92084-1Y007 REV.5010 880527 /SRC_92084/R6000/&LINKM :BT $WDIR>TMPNAME ONEWNAMECHECK ..7>.ENTR .EXIT .SSTFMPBUILDNAMEOLDDIRBLANKSTRING FMPPARSENAME.DDAecpemk:i;<=g!m(`&g(`,ip(;`(:icH`op(U>k(UCi(H`p==G(N0p`p`A(Ukc`emk:i;<=g`=c 0@0` 0p@0@B!`77XєZDNAME 92084-1Y007 REV.2440 830206 /SRC_92084/R6000/&LINKM 7 A >TMPNAME ODNAME  11Ao.ENTR .EXIT .SCO.SST.SSTC FMPBUILDNAMEBLANKFILL FMPPARSENAME1vv9@@GEGOM:K;<=I`Yp;`XpEOM:K;<=Iv//@DBG @ RUN 0@0`0p@0`/@Rq88X@mOVERLAY 92084-1Y007 REV.2540 830206 /SRC_92084/R6000/&LINKM 8 A *SAVEM &OVERLAY  .. ..ENTR REIO.LBT.SBT.CBT QUITDOERR CONCATSPACE SEGLD .nFatal Error #147 - Link terminated  Error loading overlay  xLINK ee_%99A%%xc`ahc^(4(6(6H&hchaHHhch_JB$`$(\Jfd^Pk^lVk^jYi \h(5e ^ F  @H66XA(DUPE92084-1Y007 REV.2540 830206 /SRC_92084/R6000/&LINKM 6 AN ERROR_STRING w+DUPE ##T.ENTR MIN0WARNING WMNAM CMOVE FILL_ARRAY#BB2>""A@p#A'&%p$$!$B 9$ @߅88XM>WARNING 92084-1Y007 REV.6000 920909 /SRC_92084/R6000/&LINKM 8CMOREOPTS  ERROR_STRINGCTL  <WARNING   44_.ENTR .IDLP QUIT PRINT FATAL_ERROR PRINT_STRINGS PRNTM INTTODECIMAL4Warning : I} << `(`p `p ( p  p Pp` ph (p`p /X`P(3(;8\`p (x`P(?(ED\(x`P(IUH==(ON\(x`P(S(YX\(x`P(](cb\(x`P(g(ml\(x`P(q(wv\(x`P({(\(x`P((~~>>\(x`P((\Z(x`P((\Z(x`P((\Z(x`P((\(x`P((\(x`P(~``)//(\(x`P((١\~(x`P((\Z(x`P((\|zZ(x`P(`}==(\x(x`P((\v(x`P((  \t(x`P((\r(x`P((! \p(x`P(%(+*\n(x`P(/(5/??4\l(x`P(9(?>\j(x`P(C(JI\hf(x`P(N(UT\dZ(x`P(Y(`_\bZ(x`P(d(kj\`Z(x`P(oQQn&&(vu\^Z(xp ` ( `( 88()`( ` Q``Conflict between entry point and named common: Conflict between named common and library routine: EMA area specified does not exist: EMA area specified was previously ordered: trying defaue``lts Illegal snap file specified - Illegal scratch file specifiedEMA size reduced to 1022 pagesOnly the LK command is validToo late for LK command Force loading Unable to create debug file Too EX``late for DB command Not an RTE-6 program file search proceeding on File not indexed, Program name already exists Program priority changed to 99Insufficient capability to replace this fileIlle``gal access to system disk Conflict with SSGA or system entry point: RPL value replaced: Duplicate entry point: Insufficient disk space for program fileProgram file not type 6 Snap file wrong WWtypeThere are undefined symbols Record ignored Illegal sum of checksums Illegal nameCan't change snap now Too many libraries @ /0 3`# +  0%oMMNj ",@l*( 4P` z ormjhgd@:rY2::XS,FATAL_ERROR 92084-1Y007 REV.2540 830520 /SRC_92084/R6000/&LINKM : A%MOREOPTS 3FATAL_ERROR  n5.ENTR QUITDOERR FATAL_MESSAGE OVERLAY KKE$$pp'`(`+P((!!)$*(Kz&5 L@_~`77XOLDDIR92084-1Y007 REV.2440 830206 /SRC_92084/R6000/&LINKM 7 A$WDIR uOLDDIR  116s.ENTR .CPM .IDLP .MBTMEM_LOC TRIMLEN BLANKSTRING DECIMALTOINT1~~'CCAx~}p`!pw}wh  pw`py`y0w(,`p`p`pw6}A{(;0w(v`(I`~p|h`|A{~iiI..L"p`(V`pp(X`{p`@#px`phx (vpz`@(h(*`@@P(o(q`p`@p8z(b(*i^{  t@P88X5EQUALCH 92084-1Y007 REV.2440 830206 /SRC_92084/R6000/&LINKM 8 1EQUALCH  !e.ENTR .SCO ((4(((p`(  @s99XjBLANKFILL 92084-1Y007 REV.2440 830206 /SRC_92084/R6000/&LINKM 9FBLANKFILL  .ENTR .EXIT .SSTAA @ 77XP DSCRS 92084-1Y007 REV.2440 830518 /SRC_92084/R6000/&LINKM 7CZSYS_INFOSAVE'HYP  oDSCRS   ''q EXEC.ENTR MIN0 BLT IXGET QUITDOERR PRINT '00&A@p(&(*p`` P(.(;0 Internal error #5534 zf.==3 `p8;(`p'x`(MKp(n`P (Q(n` @&p`(n`@p`@@@(n`@@pkAA`p(`p `p pp (` p `p(`(p` @&hh HpxA &p`@p   `@p `@tt88@p` (`p`@(x`@((p((`@p ɀ`@p`@p`@(`@p ܀`ph@ t33=p`@(`p (p `  p p` (p((3̸@AXL@g99X+MSYSCHKSUM 92084-1Y007 REV.2440 820519 /SRC_92084/R6000/&LINKM 9SYSCHKSUM   .ENTR IXGET bz==A`LhK (p`p`Jp`FpE@p88E(`Ip`GpD,@p88D()`Hp`FpC9@p88C(6` @p( F@66XW PUT_COMMAND 92084-1Y007 REV.2440/SRC_92084/R6000/&LINKM 6 A'COMMAND_LINE WPUT_COMMAND  !!.ENTR MEM_LOC BLT EMA_LOC GET_EMA_SPACE !~~S(>>A@pT@p`V@pSSpp`@U`V@@UpS-S(7`@Uh`p(K:p`@Up`@Uh~))/eCFp`@UhNp`p`) WUt @î66X4 GET_COMMAND 92084-1Y007 REV.2440/SRC_92084/R6000/&LINKM 6 A&COMMAND_LINE DGET_COMMAND  pJ.ENTR BLT MEM_LOC YY--A@p1(p(-p`@2p`3@@2h    @p/x0)/0`@2`Y V2t @k?88XY\ READ_INPUT_LINE 92084-1Y007 REV.2540/SRC_92084/R6000/&LINKM 8 D^LOD_SEENIOCTL COMMAND_LINE fREAD_INPUT_LINE  d9.ENTR REIO FATAL_ERROR GET_COMMAND BLT .<<@pM`Z`R@MpLLY`((+ARNX`W0pL(TLVp(J`p2p`pP(9(J`(@ $$<=@US`(G`[ p( (F$Nlink: _ d' @(Gf99Xj$GET_EMAVAL92084-1Y007 REV.5000 860214 /SRC_92084/R6000/&LINKM 9 A]SYMTB_REFS f!GET_EMAVAL  *L.ENTR .DLD ""VA@@p" Ut @}=::XSTORE_EMAVAL92084-1Y007 REV.5000 860713 /SRC_92084/R6000/&LINKM : A]SYMTB_REFS STORE_EMAVAL.ENTR 11'@p@@@@hH1 Vt @j77XN/WDIR/92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM 7 A$WDIR " @5?77X6/VMA/ 92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM 7 AyVMA   @ /::X-/TRANSPORT/ 92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM : AnTRANSPORT a0 @\z99X]/TRACKING/92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM 9 AsTRACKING @PoQ99XO/TMPNAME/ 92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM 9 A >TMPNAME @>][::X8/TAB_SIZES/ 92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM : AyTAB_SIZES "` @688X /SYSLB/ 92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM 8 ASYSLB @ן99X/SYSENTRY/92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM 9 A)SYSENTRY @ϭ99X/SYS_INFO/92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM 9 A SYS_INFO @Ц::X6/SYS_COMMON/92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM : Ah SYS_COMMON b a @2::X+/SYMTB_REFS/92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM : A] SYMTB_REFS v q }  @M ::X*/SYMTB_DESC/92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM : A\ SYMTB_DESC   @` 88X/SYMTB/ 92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM 8 A <SYMTB @%::X2/SNAP_INFO/ 92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM : As5SNAP_INFO //9 SNAP::0 /  @Q"o77X[/SIZE/92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM 7 ASIZE   @88Xy/SHEMA/ 92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM 8 A SHEMA  @~H66X/SG/92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM 6A5SG@ᴡ99XN/SESSION/ 92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM 9 A aSESSION c    @C88X/SAVEM/ 92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM 8 A'*SAVEM :0) 0 @*77XW/SAVE/92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM 7 ASAVE @ @ @ @ @ @W<<Xc/RUNSTRINGLOCKS/92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM <ARUNSTRINGLOCKS P P P P P @ռ<<XZ/RUN_CAPABILITY/92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM <ARUN_CAPABILITY@5TH99XD/REVDATE/ 92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM 9 Ab REVDATE Jp6000 `p<921029.1405> @T88X/RELOC/ 92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM 8 ARELOC @׿77X4/REC/ 92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM 7 AxAREC @$u77XP/PURE/92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM 7 APURE b @:;;Xg/PROGRAMNAME/ 92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM ; APROGRAMNAME @fa::X3/PARTITIONS/92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM : AePARTITIONS  @ 88X/PAGES/ 92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM 8 AHAPAGES @<<XB/OVERLAYIN((FOBLO/92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM <AIOVERLAYINFOBLOCK  @DRc77XA/NST/ 92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM 7 A%NST $ " ! # @Ω99Xo/MOREOPTS/92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM 9 A% MOREOPTS    @"@88X/MODLS/ 92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM 8 A&!MODLS @ɪ77X?/MODE/92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM 7 As"MODE   @]%88X/MINFO/ 92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM 8 A # MINFO @ê99XB/MAINALC/ 92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM 9 Ag$MAINALC @ @c$#99Xy/LOD_SEEN/92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM 9 A %LOD_SEEN dP @77X;/LNAM/92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM 7 Ap&LNAM @$C@<<X-/LAST_LABEL_ADD/92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM <A e'LAST_LABEL_ADD@9?88Xx/JOHNF/ 92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM 8 A+(JOHNF @㿣66X/IO/92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM 6A,)IO@88X/IDSEG/ 92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM 8 A*IDSEG @ڷ88Xx/IDINF/ 92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM 8 A(+IDINF q @zQ77X7/HYP/ 92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM 7 A{,'HYP @;F77X7/HTAB/92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM 7 Ao-HTAB v @&::X /HEAPSTACK/ 92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM : AK.HEAPSTACK   @]77XG/GARY/92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM 7 A|//#GARY @/Nv88X/FILES/ 92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM 8 AȚ0xFILES @_88X,/ERRORS/92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM 8 Ao1ERRORS @;;X/ERROR_STRING/92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM ; A}2 ERROR_STRING // /@K 99X/EMA_LIST/92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM 9 A3EMA_LIST 0 @Qp::X /EMA_ORDER/ 92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM : AN4EMA_ORDER @ @.88Xz/EMADEF/92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM 8 AQ5EMADEF P @77X%/EMA/ 92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM 7 Ah6EMA %` (` @Ƞ`99X/DUMPOPTS/92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM 9 A7DUMPOPTS 5p e3p 2p @F99Xp/DTSGINFO/92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM 9 A 8DTSGINFO @[z66X/DL/92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM 6A&9DL Q W U S V @'e77XE/DISC/92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM 7 Az: DISC @>Z99Xi/DBGRINFO/92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM 9 A;DBGRINFO @Hg99X\/CURRENT/ 92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM 9 A<CURRENT   k! None k, None @ *Q77X./CTL/ 92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM 7 Aq=CTL  @99X_/COMSAVE/ 92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM 9 A>COMSAVE @:YV99Xu/COMMANDS/92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM 9 A?COMMANDS                        @{;;Xa/COMMAND_LINE/92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM ; Ab@COMMAND_LINE @88Xk/CHBUF/ 92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM 8 AjA(CHBUF @88X/CDINFO/92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM 8 AlBCDINFO   @88Xp/ALLOC/ 92084-1Y007 REV.6000 921029 /SRC_92084/R6000/&LINKM 8 AHCALLOC 0 0 @gO77XP 3ASUBS 92084-1Y004 REV.5000 <860702.1639>&ASUBS::SRC_92084 7@44X4cP 5INSRT 92084-1Y004 REV.2340 820519 &ASUBS::SRC_92084 4 HINSRT .ENTR cc///A1p0h(p/1@0(( 8/((x/HX/(+ H2($ H3(c c1 @|Û22XP 7UC92084-1Y004 REV.2340 820519 &ASUBS::SRC_92084 25UC.ENTR .LBT.SBT77 (ph6@(@(@HH8( [7@c#44XnpP 8CKREC 92084-1Y004 REV.2340 820519 &ASUBS::SRC_92084 4 9CKREC .ENTR 9==P`( (p]p^@n(W׈mp_(Wh ePe(#(/l@dPd`jPj([Pk([`](QX`(UXe(U`^(@Xa(UXfLLV= (UXi(UX`8]Xe8]Xb8^Xg8^Xc(MXh(M([p]p^X`(@Xe(@`n`oL1` *@;Z33X+P 9BLT 92084-1Y004 REV.2340 820519 &ASUBS::SRC_92084 3 vBLT 4g.ENTR .MVW vjA`h@.M44Xm7P 9CMOVE 92084-1Y004 REV.2340 820519 &ASUBS::SRC_92084 4 KCMOVE  d.ENTR .MBT (0A`hAA @OVn44Xz9P :CMOVR 92084-1Y004 REV.2340 820519 &ASUBS::SRC_92084 4 KCMOVR  d.ENTR .MBT ""x=A`hA "@e%33X*,P ;CHEQ92084-1Y004 REV.2340 820519 &ASUBS::SRC_92084 3 i!CHEQ .CBT.ENTR .LBTQQ`j))( (p)`hA)(p*('P)(#h*P+('Q + @<Z33X,+P ;CBT 92084-1Y004 REV.2340 820519 &ASUBS::SRC_92084 3 wCBT .CBT.ENTR .LBTOO((p(`hA((p)(&P((h)P*(&8)X)((O * @գ33X/((P BEG 92084-1Y004 REV.2340 820519 &ASUBS::SRC_92084 3 iBEG h$DLP$PLP$SDA.ENTR .XLBSYSTM __//-P+J( (((!P,((&P,((h.(( *(( J ((`_@44XwP SSCHK 92084-1Y004 REV.2340 820519 &ASUBS::SRC_92084 4 ASSCHK Z$COML $DLP.ENTR .XLB..AJ@( @(.@ﳯ44XxP TSCHK 92084-1Y004 REV.2340 820519 &ASUBS::SRC_92084 4 CTSCHK n$LAST .ENTR .XLAEXEC  %%eAJp` d@!%@s쒬33X1!P HASH92084-1Y004 REV.2340 820519 &ASUBS::SRC_92084 3 |HASH  .DIV.ENTR .MPY;;A   @ (xH 88A( `;   @44XwP FMPOK 92084-1Y004 REV.2340 820519 &ASUBS::SRC_92084 4 AFMPOK OVRD. x`0p@@55XlP FMPNOTOK92084-1Y004 REV.2540 850611 &ASUBS::SRC_92084 5 FMPNOTOK OVRD. x`p@44Xs P CNUMD 92084-1Y004 REV.2340 820519 &ASUBS::SRC_92084 4 BCNUMD {$CVT3 .ENTR .LBT.MVW.SBT::W h6HP((H` -:@,Kv44XP CNUMX 92084-1Y004 REV.2340 820519 &ASUBS::SRC_92084 4 BCNUMX %$CVT3 .ENTR .MVWGh @c[44X|cP DAYTM 92084-1Y004 REV.2340 820519 &ASUBS::SRC_92084 4 d*DAYTM ,$CVT1 .DST.ENTR .MVWCNUMD EXEC33 ##JanaFebdMaraAprbMayaJunbJulaAugaSepbOctaNovbDeca 3)CCA)A2p#(hv`&@z(9@q(:hxx`qHp`%HhtH0sA`wp`(o8hm0y@'(Wp'Hn(NypH{pAa( H`'huA`rh)Apl* 0 :, ambcpm@lP44XscP SYSTM 92084-1Y004 REV.2340 820519 &ASUBS::SRC_92084 4 RSYSTM )f$OPSY .XLB **xJX` X`X`XL*@^G}33XP IMAP92084-1Y004 REV.2340 830206 &ASUBS::SRC_92084 3bIMAPINIT_EMA .IMAP SYMTB  8p 8A     A  8p8@Y1w55X|P CHECKSUM92084-1Y004 REV.2340 830206 &ASUBS::SRC_92084 5 CHECKSUM .ENTR ::o@((phH  8(`:@$C\55XcP FORTFAKE92084-1Y004 REV.2340 820301 &ASUBS::SRC_92084 5 .EXIT  .NFEX  ERR9kEXECϴFtn str err A@66X_ZLINK1 92084-1Y008 REV.5000 <860523.1150>&LNK1::SRC_920846 9LINK1 ϼSEGRT   . (@>Z99Xi/DBGRINF$FMP6::RTE_6:5:1484:128 644 0 0 1346000 5310707277 35441 $FMP6::RTE_6:5:1484:128 $P$FMP6 +#+#+#HFST ::X#Ȗ"/ 8FMP692084-12071 Rev.6000 <921027.0134> /SRC_92084/R6000/&FMPHD :@#<<X9NLVMAREAD 92077-1X420 REV.5010 <880528.1721> /SRC_92077/R5010/&VMARD <?VMAREAD VMAWRITE))4.DAD.DIV.DLD.ENTR EMAST FMPREAD FMPWRITEMMAP)~~xDD(`pp( xA(`pFp&x`@p`@ÀhH `ph *p=p`@p(FHHH (h ~HFFAH@JH (` Axh6x(pa(`A(ml(ss (~X(h ((@ph+Hx8(]h (h6HHHE""x8(`  (HHhHpp H*x(]`(`` xHR? @::Xv&SHOOTPROGRAM92570-1X107 REV.5020 891208 /SRC_92570/R6000/&FMPD1 : Af@FMPBUFFER fSHOOTPROGRAMb.ENTR .SST.NFEX .MBTMESSS ++_A Ah#`%" J"+OF,XXXXX,ID,NP``.@}j;;XDFMPRUNPROGRAM 92570-1X107 REV.5020 900329 /SRC_92570/R6000/&FMPD1 ;AHHDONSROUTTEMPBUFS-FMPRUNPROGRAM  {EXEC.CPM.ENTP .SBST .SCO .SST.SSTC .NFEX .MBT .CBT SHOOTPROGRAMRMPAR TRIMLEN SYSTEMPROCESS IDGET NAMRLOGLU BLANKSTRING CASEFOLDSPLITSTRING FMPRPPROGRAMPUTINCOMMAS ~~BB`p`p@p`p`pJ(7(7p`(@=@E`pph`p `(WW~}}VDDǀA(i(b(p(pAh``pn`p`p Ah`p  H `h (`p   p `܈P ((`քp  @ p (}. `P (`ڈP ((p CCp `P (( `P ((p ` (`(`(A  (H (`(ԡp`(p@(9==D  (D  p `p     `((``p`̀pmm}+#00)  `@h88(#4p`(y;(@`@p  H `@hˈHp`@p`@pxSmS99Ap` (zp x ` (m`ֈP (j(y`Ոp (p`(t(w`p (p (p x `P (((y(`шP ((`Јp (`P ())-(`p (`p ` ( ` p`)^^U;;, RU, XQckRU @ P HJNPRT031005IH ^@NDm88X5FMPLIST 92570-1X107 REV.5010 880223 /SRC_92570/R6000/&FMPD1 8AHHDONSROUTTEMPBUFS 6 FMPLIST  }.ENTR .MBTFMPLISTXINTTODECIMALAA%%A0.,Ah3`-, &02.4p` A_, R @7 U88X'FMPLISTX92570-1X107 REV.5020 890901 /SRC_92570/R6000/&FMPD1 8AH HDONSROUTTEMPBUFS 7FMPLISTX  yy7Q.DIN .DCO.ENTR .CPM.SBST .SST.SSTC .LBT.SBT.NFEX FMPCLOSEFMPPAGEDWRITE CNUMOFATNLREPCHAR DINTTODECIMAL TRIMLEN STRDSCFMPREAD FMPINTERACTIVEIFBRK NLLANGIDy** FMPSETIOOPTIONS FMPIOOPTIONSFMPOPEN FMPSETPOSITIONCASEFOLD*d9 qrosxfzIIA刀㈀@pJpp`($pDHHhP((`pH( hP((`pH( hP(~~<<(`p ( hP( ((( `p ( hP((`p ( hP((`p ( `p`88(∀`p` (+pJ8 ݈p`(=~}}4y@ (`5@ (L`5@ h5H p&E&(~~0RLEE`5@ (U`Jp (W`Ip `D@ hCH p&x'AfD &'p` 0Bp p`5@ (zy+ A3(+ 3h0@@Hp&h0@A&(`Hp&~BBh0@@@&p(k` ?p D >/h0P=((`(@ h(@  (h0P<p&h0P;0&(p ` (h0HP4Hp&h0P:**H0&(@ (h0P9((`(@ *q??(`5@ h5H p&08&@ h(h0HP7((`((` @  (h0HP6( (A 1(W((Wp `5@ (`Dp @ ((%@ H H3 %( 55*!! RPTZP+ QA @ D5@I ::XZCONTROLBLANK92570-1X107 REV.2326 830728 /SRC_92570/R6000/&FMPD1 :TCONTROLBLANK##+.ENTR .CPM.SBST .SST.LBT.NFEX CHARIS#yyqJJAR`Rpp`(:pOMRHhNHp`XAY($hXX 0(6MRDHMT88O(?RVA(KMRRAMTyuIP _  @&88X:CNUMOFAT92570-1X107 REV.2326 830728 /SRC_92570/R6000/&FMPD1 8 CNUMOFAT ''.ENTR .SBST .SST.NFEX MOVEWORDS CHARISCNUMO 'JJb**@p0p37('.3DH.5`p(,9JD!1 0  bd@!99XCOUNTWRITE92570-1X107 REV.2326 830728 /SRC_92570/R6000/&FMPD1 9+COUNTWRITE >> .ENTR .CPMFMPWRITE CHARISCASEFOLDFMPSETIOOPTIONS FMPREAD FMPIOOPTIONSFMPINTERACTIVE> A _J_ GG&&A(#pA(*(/(7(;`G More...('a' to abort)_;EEA(D(9J(M(9RW]pc(g(9j o(|pyp(9(`(99(`׈P((((9p(99 A 8 @ @H6f88XFMPOWNER92570-1X107 REV.6000 920317 /SRC_92570/R6000/&FMPD1 8 5-FMPOWNER  pp .DCO.ENTR .SCO.SST.INDX .NFEX CONCATIDTOGROUP IDTOOWNER DOUBLESTUFF FMPCLOSE FMPREAD FMPOPEN FMPBUILDPATHFMPOPENROOT DECIMALTOINTFMPPARSEPATHUT.BF p}}+LL++҈,JH('&%(P`p*(Tp)`)(Y(ga*)`*(f`*-(s('&%ء z*}kwBBp*`*((d *p* p`*((d`p*`숊P((d  ((dp*`*(`((p*`*(!!H(dA(d(d!BB8'' . rosfdqDIR  @@ Z V T@  P$B@G6e;;XnFMPWRITEERROR 92570-1X107 REV.2326 830728 /SRC_92570/R6000/&FMPD1 ; ,FMPWRITEERROR +++.ENTR FMPREPORTERRORTRIMLEN FMPWRITECONCATSPACE FMPERROR+NN;W)++A)+g7*i<igm?ipTF)(Tp(`((RN(kR*g,N))TEUin fmpwriteerror. Message follows. P#)@T::XKHDIRENTMATCH 92570-1X107 REV.6000 910221 /SRC_92570/R6000/&FMPD1 :AHHDONSROUTTEMPBUFSDIRENTMATCH  !.ENTR OTHERMATCHMASKOPENIDNAMEMATCH ~~(==A@p`$(`$D((`&(('"&B(&((+`GP(+(`0(:`F @h:7(:(=p~ >( @   f @99XUOTHERMATCH92570-1X107 REV.6000 920602 /SRC_92570/R6000/&FMPD1 9AHHDONSROUTTEMPBUFSqOTHERMATCH \.DAD.DCO.ENTR MASKDISCREAD~~<<Ap`. h.X (`(;`-h-X (&((;`0 h,X (1((;`0h (;(`p`0(G`~&C==P(F((T`P(T`0(P(`P(T(`p`0ӈp`(b((ip`0(r(`/(v(`/@@ 1@ZZ..p30((`0hX ( @h@p`(Z''D`p`0 X ((`p(' DIR @:fY&::X DOUBLESTUFF 92570-1X107 REV.2326 830728 /SRC_92570/R6000/&FMPD1 :DOUBLESTUFF .ENTR  @" ::XSETOWNERMASK92570-1X107 REV.5000 860626 /SRC_92570/R6000/&FMPD1 :\ SETOWNERMASK 77 J.ENTR .CPM.SBST .INDX .NFEX DSOWNERTOID DSOPSYS DSGROUPTOID TRIMLEN 7-FFpp`({P(!(9`p`P('()` A4p((`(}('AAp(G(G`Ap(^pmmK55`P(O(T`p(^`pY(]`p(dP(d@pJ pp`(}(x(z`('p`p('m #R. .@@. @&::XlbPREENTMATCH 92570-1X107 REV.6000 910204 /SRC_92570/R6000/&FMPD1 :AHHDONSROUTTEMPBUFS#PREENTMATCH ,,.ENTR .SBST .SCO.INDX .NFEX .IBST GETLOCQUALTOINT ,PXBTONWMYKGL~~~::A"Y&W13/ p0pA`_pQOUAWO(.@0p088Q(`Uw(9`00^p0`aw(@`00]p0 ~%%=#AS[(F(H(H``M"S$% R 0 @0@0 @ @峥99Xr QUALTOINT 92570-1X107 REV.2326 830728 /SRC_92570/R6000/&FMPD1 9g,;QUALTOINT AA 0 .DAD .DMP .DDE .DCO.ENTR .CPM.SBST .NFEX CHARISFINDDIGIT DECIMALTOINTMOVEWORDS A44 $$F% ;;F ;;4~~0S6GGA6678`9:R'(`'p%p$@'p&'(l(le&(l`p$`A@'p&&(q(v&({9(~nf}AA&(`9(;`%p&p3`p5P$((*(*`@@&h((`:(`3@h& pքxJ&׀:ր:(`:ff^44`@&p&`3p3&(`P3(ψ(`&p&(`:&&J4(A3(A((*((`@*p*`*f~~X<<(`p(`p`P$(( `P3(( +( ( `+@p,p2`p܈`2@h2H@((`:`2@h2H($($`:828(`+@A,(1~ p.MM(1`::(6(`@*h@ hH*h@  0@+pp2`(cpۈ`2@@ 00828ۈ(Vh,@A 00A 0h-@  h.A{JJ@  (h/A@ ((P$(((7((8P$((&J'(`P'p֡&0(`:((`&p&(&())((`%p&`p$(7 8(Ԉ(`:()BB:J,,- . A C    )<mF dB@b"99X`7FINDDIGIT 92570-1X107 REV.2326 830728 /SRC_92570/R6000/&FMPD1 9vFINDDIGIT  .ENTR .SBST .INDX .NFEX 0123456789LL"$**3p`3p1`1(/p2A03A50p`(+`82(()L 3  @ 77Xz/GETLOC92570-1X107 REV.5000 860603 /SRC_92570/R6000/&FMPD1 7 dGETLOC K.ENTR .SBST .INDX TRIMLEN MM[((A p`(+((.(p`@@-p**(M + @Ed99XmFATTENMASK92570-1X107 REV.5000 870129 /SRC_92570/R6000/&FMPD1 9FATTENMASK QQv .CPM.ENTP .SCO.INDX FMPBUILDPATH CONCAT.SST CHARIS TRIMLEN .SBST CASEFOLDFMPPARSEPATHDECIMALTOINTUT.BF Q< EEA`p `p p `(%` (4`p(>(B(B p(H(O(O`(O(O PDD(hAVApp(h(hA(n(( qp w((((`(`(( A(( m (`( `YYv11(((((((((` ((   p (#YQQ%6..DIR S / . D @ ) (  @ @h @( @    Q@T;;X>MASKPROPERPATH92570-1X107 REV.5000 860627 /SRC_92570/R6000/&FMPD1 ;AH HDONSROUTTEMPBUFS MASKPROPERPATH---.ENTR .CPM.SBST .SCO.NFEX CONCATCONCATSPACE TRIMLEN -RR#//5 5p=((A05A09("('57<`;@p0.50(R%m2 .DIR/ dhT@{:;::X*CALCBLOCKAD 92570-1X107 REV.5000 860624 /SRC_92570/R6000/&FMPD1 :AHHDONSROUTTEMPBUFSCALCBLOCKAD  .DAD.DIN.DMP.ENTR .DLD77UA`)@p$`(@$pA%h'H$@7h%no@A`88X!"LEGALLU 92570-1X107 REV.2326 830728 /SRC_92570/R6000/&FMPD1 8 A@OKDISCS 7LEGALLU   .ENTR =={A`!pp`(p`@ ((`88(p(=   @$::XbCONCATINTNOS92570-1X107 REV.2326 830728 /SRC_92570/R6000/&FMPD1 :nCONCATINTNOS// 6.DDI.DNG.DCO.ENTR .CPM.SBST .NFEX DOUBSTRINGTRIMLEN /II\p@`( `apA^(&(0`p^( 3\p`\p(>(>`p`@@`pA(I(I`p@@6BO Z\J XZ.\ @599XYNEXTNEWLU 92570-1X107 REV.4010 860414 /SRC_92570/R6000/&FMPD1 9NEXTNEWLU  .ENTR DSFSTAT ~~@@WSS(`p`Vppp`(J`(1`U@@(K`(5(7`XpP(<(B`U@@(K`T@~##XD p`@p(%(`Rp(#jR@n.;;XMASKGETDIRENT 92570-1X107 REV.6000 920221 /SRC_92570/R6000/&FMPD1 ;AHHDONSROUTTEMPBUFS!kMASKGETDIRENT  LL  .DCO.ENTR .SST.LBT.NFEX .MBTCLEARBUFFER MOVEWORDS .DLD FMPDIRINFOCONCATDECIMALTOINTMASKDISCREADL~~@@Az pP(`@p|p`h (DhyAP(7~z2~|h}`A  |`(>>|( B| p(I~yyD22`(I`p`(g`0|pv`*@vp X A  (_(a(ap f2(s`P(k(sos`p(yx  @ @ @DIR /@8V88X)MASKISDS92570-1X107 REV.6000 920324 /SRC_92570/R6000/&FMPD1 8AHHDONSROUTTEMPBUFS 0MASKISDS  gv.ENTP .SSTTRIMLEN KK@$$`p&`&&p&`'@p%%p`&P((#`'@p%%(#`K @'T @~革;;XMASKGETNEXTENT92570-1X108 REV.6000 910211 /SRC_92570/R6000/&FMPD2 ;AHHDONSROUTTEMPBUFS&MASKGETNEXTENT **Ѫ.ENTR MASKSETERRORPOPDIRSCANDIR DIRECPOSITION FREADDIR*~~==A`p`(8` (p>`p`(! $(3`hX 0(3p`(8``(C`(C~llф?11p(6`P(G(K`(K(w`P(w`(U(bX\(_(6`(wp`(`(ppl77p( `(w(6}((6(dp(67f*@99Xr()GETNEXTENT92570-1X108 REV.5000 860625 /SRC_92570/R6000/&FMPD2 9AHHDONSROUTTEMPBUFSGETNEXTENT t).ENTR MOVEWORDS MASKGETNEXTENT((KK$$$`'@p%%&p(`'@p%#%&`K ~&1C @` ;;XAFMPMASKHEADER 92570-1X108 REV.6000 910207 /SRC_92570/R6000/&FMPD2 ;AHHDONSROUTTEMPBUFSnFMPMASKHEADER  .DCO.ENTR MOVEWORDS MASKDISCREAD.DLDkk55A`>@p66=`<@p668( HX: 0('`@p``:@p6/;6p5?(%kA8 DIR 1C /@}[::XFMPMASKPROT 92570-1X108 REV.5000 861008 /SRC_92570/R6000/&FMPD2 :|,FMPMASKPROT  "".ENTR .SST.NFEX MASKOWNERIDSFMPMASKHEADER " | W R RW %KKA%@%p@&p'()&@@pH&@A@p&@@pJg%&p$`$(p`*`+(~%%p`P$(t(|y%*+p$(~`$,(|% /@Ede99X{=rNEXTOLDLU 92570-1X108 REV.5000 860414 /SRC_92570/R6000/&FMPD2 9AHHDONSROUTTEMPBUFS NEXTOLDLU  .ENTR MOVEWORDS DSFSTAT ~~K==`pP5((p(poj  (#` `n Pppp`([`m@@p`(\`(F`P(C(E~XX-C&&`qp(S`P(K(N`(\`P(\`l `k@p`@p(.(! `@pifik`p(!Xj j@77X%POPDIR92570-1X108 REV.6000 900716 /SRC_92570/R6000/&FMPD2 7AHHDONSROUTTEMPBUFS |POPDIR 33.ENTR .SCODIRECPOSITION MASKDISCREADFMPDISCSIZE SLASHPEEL SEARCHOPEN3@@p`p`P(2`(,`Ph  0(,`(2(;(;`Ɗ9(+>@p`}}~%C44 (E(H@p A  `@ p` (Wp(`` p`p`E(j E; pE((p((`(y}44 w((+ @@@4hh**;`p(; ;((+`(`p>`p=((+`((+h3T / t?@70U88X(PUSHDIR 92570-1X108 REV.6000 920221 /SRC_92570/R6000/&FMPD2 8AHHDONSROUTTEMPBUFS PUSHDIR  {{(\.DAD .DDIR .DCO.ENTR .CPM .DMOD MOD .SBST .SST.NFEX MASKSETERRORMASKBYOWNER TRIMLEN CONCATMASKFILLBUF .DLD NEWDIRREAD DSSETDCBWORDMASKSECURITYDIRENTMATCH POPDIR{դ AAA p `(.#  &p(,```P(6(-(>(-Pp`(H(-`(n`/p~~ZN;;p/R pX p`p/`(a p(m`(g(-(m`P(k(m(-(u`(r(u`p`(hB"@Ch@@@ ~yy55x h@@ x9`B.p` '@@p`( ((-(`p8`@ h`p`0p`=p p  (y}}_<<`(((` @ p`(`P((`@ @ p ((`:p` p(`p(@:pA`p0(` }660p `(`0p( @=@p` p  A ` @ h` p`@ h9; E` (6 ;; Cp: p>CCO0`p=5 :=p`P(B(G@p``ApC{{2N99A`@ `P5(y`p`@ P5(c(f`p(q `@ P6(l(q`6(q`p`@ (y`| `(`p(-{..f/  DIR tAed2 .@{;88X )SCANDIR 92570-1X108 REV.6000 910211 /SRC_92570/R6000/&FMPD2 8AHHDONSROUTTEMPBUFS SCANDIR  .ENTR PUSHDIR MASKSETERRORFREADDIRKK&&A`(p(`(($(((K ( @׻99XWSEARCHOPEN92570-1X108 REV.5000 870521 /SRC_92570/R6000/&FMPD2 9AHHDONSROUTTEMPBUFSO SEARCHOPEN>> 55.ENTR .CPM .LBT .SST .SBST OLDDIROPENCRNTOSTRING NEXTOLDLU NEWROOTOPEN NEXTNEWLU >  ::A `(`(A`P(?`@ p! p` (.+   (? (7(7p (A(?P(=(,(? p`p`@ p#C88pJ  p (P(,p`pX \   p`0pJ@(h0p` P'(`$p$ $$$( pp#{00(hH P((`&( ((A&(( &H(h P(( ((`$@&p$( @$p$p& p'(,p_ @ -  XZ@.t@<Z99X];SLASHPEEL 92570-1X108 REV.2326 830728 /SRC_92570/R6000/&FMPD2 9PSLASHPEEL  l.ENTR .SBST .SCO.SST.NFEX TRIMLEN PPZ//A4 4@:p`((!04D08(!@p(`p00404D06@PC2 / df@ϸ99XtFMPENDMASK92570-1X108 REV.5000 860606 /SRC_92570/R6000/&FMPD2 9AHHDONSROUTTEMPBUFSFMPENDMASK I.ENTR DSCLOSECON @e A`@p p` K @c::XFMPNEXTMASK 92570-1X108 REV.6000 920325 /SRC_92570/R6000/&FMPD2 :AHHDONSROUTTEMPBUFSKFMPNEXTMASK  NN .ENTR .SBST .SCO.SST.NFEX MOVEWORDS MASKSECURITY DIRENTMATCH STRINGCOPY INTTODECIMALMASKGETNEXTENTIFBRK NAA`@p(`p("`('p`(\ h (S`0(9`(SA`(A(S(S@VB<<D J OH`(W([ ["(`P(a(d`00p0`0 h p`(q(`(u(z`P(( }p~ @@((`p`@p(`@'' volume/ > BH1C '@5;;XSDIRECPOSITION 92570-1X108 REV.5000 860523 /SRC_92570/R6000/&FMPD2 ;AHHDONSROUTTEMPBUFS  DIRECPOSITION  ,, P.DAD .DSB.DCO.ENTR .CPMMOD MIN0 MASKDISCREAD.DLD,77Y A ()h?@JACp'JC($'7);;`p `>(0`  h>"x`=(S`p(=(? p;`p(`@ p=`@@ p Eh =p\=p ;p>\d>>p`P( @=h@`p(`@p`@ P(`p (.`݈@@ pщ`(`p (.`p(eh@A`@=pAшp`ggJ//p(`و@ p p  C`p?J Cx`'@p`>hHpт%HHנxB@>p:p (.gtFt`@?u^588X5FREADDIR92570-1X108 REV.6000 910221 /SRC_92570/R6000/&FMPD2 8AHHDONSROUTTE((MPBUFS FREADDIR  33 .DCO.ENTR .IDLP .DLDMOVEWORDS NEWDIRREADALTEROLDTONEW OLDDIRREAD3??`A(Op`(``@ `@hHHp`@p~`@p`~phA(Bp`@p`(>`p88(5`@~~ND66h`@p~N~@(}` @ Wp`@p~`~`p`(}`(l`p(}A (s(}(}`P(x(}`>~z(}`:p>(DIR @BA @ӓ;;XALTEROLDTONEW 92570-1X108 REV.5000 860520 /SRC_92570/R6000/&FMPD2 ;#ALTEROLDTONEW .DAD.ENTR MOVEWORDS dPP A + `@ p3`(7(<`@p`@ (W`@ "@hH @ffP55h@`@ p (cp(u`hH   0(s`p(u`p (y(~`@p`p!#f  ..@799X]TZOLDDIROPEN92570-1X108 REV.5000 860414 /SRC_92570/R6000/&FMPD2 9AHHDONSROUTTEMPBUFStOLDDIROPEN ++.DMP.ENTR MASKFILLBUF DSSETDCBWORDFMPDISCSIZE MOVEWORDS +~~;::p889Yp8@p`(``@p=`(&%p`(*(@@Rh@A@R CC ;~44<?p`(D(`W@(L`Xp(`V@p:(4 V|t @J 99X[OLDDIRREAD92570-1X108 REV.5000 870521 /SRC_92570/R6000/&FMPD2 9AHHDONSROUTTEMPBUFSs OLDDIRREAD .. .DAD.DSB.DSBR .DCO.ENTR .CPM .DMOD MIN0 MASKDISCREAD.~~DDh?@JCh@@;`B pB`B(hB#J@C(3(9(@h@@A A;(G(e(e`ۈp~.L>>(O` @:p:`: (V(M;h@@;;;CxB`B(n(q`B#pB(whB0(Axp(FF""((p`@p p`((MChA@`p? pBFVVr''`B@  @(((hB#@C; 0(͊`@BpB(`p(p(MVt@U99XqMoNEWDIRREAD92570-1X108 REV.5000 860516 /SRC_92570/R6000/&FMPD2 9AHHDONSROUTTEMPBUFSNEWDIRREAD  e.DAD.ENTR .CPMMOD MASKFILLBUF .DLD ;R:: `:p:`BpBp`nB(`hB"xA?((`h:"xeA#e= (I@B%@hp`@mPi(1(E`lp`k@@Pg(:(<``kZZ |=((@@peeC(H`jp(:(Ph@CC`(Xp(:[p`(`(:`B%@h(:Z@gt@4::XFMPINITMASK 92570-1X108 REV.6000 920221 /SRC_92570/R6000/&FMPD2 :AHHDONSROUTTEMPBUFSMFMPINITMASK  p7.CPM.ENTP MIN0MAX0.SBST .SCO.SST.INDX %.LBT.NFEX &.MBTMOVEWORDS 'DSCLOSECON DECIMALTOINT$MASKDCBTOLUTAB#FMPOPEN CONCAT"CONCATSPACE TRIMLEN !FMPDISCSIZE SEARCHOPENFIXDEFss7FMPWORKINGDIR DSCONNTOIDDSUSERISSUPER MSC.PREENTMATCH STRINGCOPYSETOWNERMASK.DLDDSOPENCON1STRDSCNONDSLENSTRIPTRAILING FMPBUILDPATH FMPPARSEPATH FATTENMASK CASEFOLDs AA`pz `zzpz  @pր (.(.` (\p5 p`p ppA`@ pwEw "`@ pw~~J;;Ow҉U X \ h,- .v np`v(w w"~===`(p(((p(p`(" "DJ"px"pwxwpx`xp"`@ hx pw\\+11xxpyypywxy(  (\Ap@p((Aww\22*+  (\` p  (\`zP(((put(`00Ūp0($`p5()ppQ[%--)56` hp`A(97p(>A=p`(S`00p0`00p0`00¨p0`p` pP(p}}@R<<(`0p(b` (bpA 0(vA(p(t(t`p((v`pA(|A(((p`00p0(`( }VV(( `׈p (܈` ((\AA(((`p((((`ʨp(( V~~Q==   (\`ɀ (` (\(\(\`pw!w ` (`͈A (\p" #8 ~HHp (wDHw`A( $   (\wDwH` ("` ("`ˈ ("(\hH%P('(\A(\(\@pwAww 9wp ; uu[?88h(\wDHw`(Yh`A &`pp([`p(O` (`(b`  (i'h(k  p`@ pwuw`u+}PP / ROSDQX.DIR/0/ E S D ) ( @ @. @ . ?P P @P P@P @P@P P       4/t$*/n 8!t@;;XaMASKDCBTOLUTAB92570-1X108 REV.5000 860519 /SRC_92570/R6000/&FMPD2 ;AHHDONSROUTTEMPBUFSMASKDCBTOLUTAB 11.DAD.ENTR MASKBYOWNER MASKFILLBUF DSSETDCBWORDFMPCLOSEDSDCBWORD 122A`8p`(8p`(``p``p`Ap"8`p`(2`p8-p`(2(`pAcc4))`@5p` p@`;@`<5h@J C C;`=5p=p:p>pXp\(c a`? @::X8&MASKFILLBUF 92570-1X108 REV.5000 860520 /SRC_92570/R6000/&FMPD2 :AHHDONSROUTTEMPBUFS%MASKFILLBUF  `.ENTR MOD MIN0MASKDISCREADLLc?""Ah:"x$ $=A@=pp`%@p$$Cp `p?pB`L [%t @yl::XJ6NEWROOTOPEN 92570-1X108 REV.5000 860606 /SRC_92570/R6000/&FMPD2 :AHHDONSROUTTEMPBUFS1NEWROOTOPEN "".ENTR .SST.NFEX MASKDCBTOLUTABFMPOPENROOT "QQvm**.pp`5@ @.2pA!804(('Q* ROSDQX/ T ZA@B(`::XJ.MASKBYOWNER 92570-1X108 REV.5000 860619 /SRC_92570/R6000/&FMPD2 :AHHDONSROUTTEMPBUFS.MASKBYOWNER .ENTR aa`**A`(`-@P*(`0,p(`-@ p*`($`+@P+(#`0,p(( `+@p+a + @\::X}?CRNTOSTRING 92570-1X108 REV.2326 830728 /SRC_92570/R6000/&FMPD2 :MCRNTOSTRING ''J.ENTR .CPM.SBST .SST.NFEX CONCATINTTODECIMAL'RR337pD7;4797J4>A((.=($(.((4797D49J27;RE6 / lZZAA@N$l88X#GCRNTOLU 92570-1X108 REV.2540 850802 /SRC_92570/R6000/&FMPD2 8 8CRNTOLU   .ENTR DSFSTAT USERISSUPER yy>>   (p(pFB(%``Ep`@(@`D@@(5(<`@p(#`C@p()(#y=B/@mP77X՗KFIXDEF92570-1X108 REV.5000 860529 /SRC_92570/R6000/&FMPD2 7 bFIXDEF )).ENTR .SBST .SST.SBT.NFEX .IDLP .CBTTRIMLEN )jjk;;AF`GpE`EhIAD((:(:`GpCJ`JhCFp=`DAph=BA(:p@<F`p>>F>FD<>H88@(#jA ::/@=\99XgBYMASKOPENID92570-1X108 REV.5000 860520 /SRC_92570/R6000/&FMPD2 9AHHDONSROUTTEMPBUFSMASKOPENID #.ENTR .CPMFMPOPENFILES~~>>Ap`V@p`U@(=`S@PX(1A`S@((1`S@h`T@hSHpN`R@pPxO1NOP`hSH(8(<`R@p(A`R@p~""8A `(L`Q@(L`W0p`"QKBAdmf@$ B;;XMASKMATCHLEVEL92570-1X108 REV.6000 920702 /SRC_92570/R6000/&FMPD2 ;AHHDONSROUTTEMPBUFSMASKMATCHLEVEL .ENTR //A`@(`@p(`@p`/ GE\ @::Xf!MASKSECURITY92570-1X108 REV.5000 860630 /SRC_92570/R6000/&FMPD2 :AHHDONSROUTTEMPBUFSVMASKSECURITY .ENTR 99^LA`@p`@ (``@P(((p(96a\@P@499Xl &MASKDISCLU92570-1X108 REV.6000 910206 /SRC_92570/R6000/&FMPD2 9AHHDONSROUTTEMPBUFSMASKDISCLU .ENTR BB A`%@(`% @*x(`$@p`#@pB #KDH @3Rv::X/ MASKDISCBPT 92570-1X108 Rev.5020 890111 /SRC_92570/R6000/&FMPD2 :AHHDONSROUTTEMPBUFSMASKDISCBPT  .ENTR  * A` @p` 9 l @p{::XRMASKOWNERIDS92570-1X108 REV.5000 860623 /SRC_92570/R6000/&FMPD2 :AHHDONSROUTTEMPBUFSUMASKOWNERIDS.ENTR ""A`@`@" WV @R<::XMASKOLDFILE 92570-1X108 REV.5000 860606 /SRC_92570/R6000/&FMPD2 :AHHDONSROUTTEMPBUFSMASKOLDFILE  .ENTR  A`@p` >m @I1g99XY DSOPENCON192570-1X108 REV.2326 830728 /SRC_92570/R6000/&FMPD2 9mDSOPENCON1 R2.ENTR DSOPENCON TRIMLEN .. (p(p`.@q1::XPMASKSETERROR92570-1X108 REV.5000 860521 /SRC_92570/R6000/&FMPD2 :AHHDONSROUTTEMPBUFSHMASKSETERROR .ENTR 00Aph (`0p`p`0 c @88X"!BITANAL 92570-1X108 REV.2326 830728 /SRC_92570/R6000/&FMPD2 8  BITANAL  "".DAD.DIN.DMP.DCO.ENTR .ARTN .IBTS "~~MM@p   pp(刀p`@p`(<A` p(P(@(_`(^A  A (S(S ~`TQQ  p(`p`pAp`||;h.Wv`((` p(`(AA (( A 8TT (A p @ (܀`(ӈ ((̈   (وA ` p @ (܀`( (( ""  (A p @ "~~z SS(܀`(*A (#(# A (/  ` p@  (`(UA (M(M A @ ([A  p@~~~`SS (܀`(A (z(z A (  ` p@  (`(A (( A  (  p~ll+QFF  (`(A ((Ɉ A @  ` p(܀`( ((舀    p @lUU  (܀`( ((    @  ` p  (`(FA (;(; A @  p  ~~&NSS  (`(oA (d(d A @  ` p(܀`( ((    p @   (`~ggr@@( ((    ` p(`(A ((ˈ A @  p`@p8(cgHH ,,88(,`( ((     @  A@   Hs @::X|ZFMPMASKNAME 92570-1X108 REV.5000 860605 /SRC_92570/R6000/&FMPD2 :AHHDONSROUTTEMPBUFSAFMPMASKNAME c#.ENTR FMPBUILDPATHMASKSECURITYSTRDSC~~sAANXY WUp`V@ShVHpIӀS&0Ip@hUHpI`T@pK`R@pLxJGNPI~.CJKLM T\!@s?::XWILDCARDMASK92570-1X108 REV.5000 861016 /SRC_92570/R6000/&FMPD2 :AFxLOCALCOMWILDCARD]/WILDCARDMASK QQ v.ENTR .INDX DSCLOSECON FMPDISCSIZE DSOPENCON1 DECIMALTOINT FMPBUILDPATH.SBST TRIMLEN .SSTFMPPARSEPATHFATTENMASKQ{.FFA..Έ`p-(@LTUVAW(S`-/(Y(Q(_(Q(e(Qpp(w}}t@@(wzpp,`(p,,(A((Q8,8( TUVW (p+`(( )p(`(( +**)}x p( )`(((Qp-(QEE'' ABKCDEUS) ( @ - @PP@PhP` P@@PE@gD;;XREPORTANYERROR92570-1X108 REV.2326 830728 /SRC_92570/R6000/&FMPD2 ;REPORTANYERROR.ENTR FMPREPORTERROR(  @~r99XtIOLDLUINFO 92570-1X108 REV.2540 850802 /SRC_92570/R6000/&FMPD2 9OLDLUINFO  \.ENTR MOVEWORDS DSFSTAT USERISSUPER ~~"AA   (p(pHEp`(%``Gpp`@(C`@(4(?`@pDV##`&@p$$%p>`'pCpD`&@p$ $%p`O d\%1C @S77XgFMPCOPY 92570-1X151 REV.6000 920923 /SRC_92570/R6000/©7AHHDONSROUTTEMPBUFS A FMPCOPY   ||.DAD.DIN'.DSB.DMP.DDI.DCO.ENTR .CPMXLUEX .SBST .SST.INDX .LBT.NFEX .MBT0FMPPURGEFMPCLOSE/FMPSETDIRINFO FMPOPEN 1FMPRENAME FMPBUILDPATH.FMPSETEOF -FMPDEVICE |~~,FMPSETDCBINFO +FMPTRUNCATE *FMPALLOWEXTENTS )FMPWRITE(COUNTRECORDS IFBRK &FMPREAD %COPYSPARSE$FMPSETIOOPTIONS #FMPINTERACTIVE FMPFORCEDCB !MOVEWORDS "FMPFORCEDCBBUFFSFMPTEMPNAME TRIMLEN FMPINFO ~DD xLUISACTU FMPIOOPTIONSFMPNOEXTENTS CONCATDOUBLESTUFF FMPPACKSIZE DECIMALTOINTFMPPARSEPATHCASEFOLDD~~gGGA @p pppppp D8J6 p`Op切`@:hfAA(M~~~CI::`@: 88(: ApN([([`e (pي `dppA6`(l l4`(s s2`(z z.`a@@ `@p ~m77p`P((`و@p (`(`@p ب(Ĩ`@p މ(`p倊(`@(~~$55 ((Š`P(( pE ЈE ҈E p p`c(( P((Ԡ`Mp`(Р~~~!::`p( pA    ⪡AAh`ppŀ(!p`('`pܠ`~}}))44(1`Sp`(1`pܠ`(:`(9`^p(`(Sh@`(LJC (R?(kW`(k^}=]55ֈ ֈ=JA; `(qȠpP(v( ۈ({(ƈ;JJƈ(((`fp`p` P((`~~66(`@@ p` (Pۈ(` P(A((P(` P(((`fp 䡄h PL(`b(~~~}<<J0`( .`a@ڀ @ `ڈ@p `((`@p 쨊`@p( h (p`S@@J~%22p`(.`@p  `ppAK(須`Jp$((`fp`(.`fp``(2(`~~655(c`@p A,(a`@p L(Z J(W(W`fp(Z`_(Ĩ`@pap`(`(@~"k::J*`ڈ@p x(`@p؊J`fp^(( p`p@@R((`Rp(` p~~w:: (`T(((]((((A\((`fp (Pۈ(` P(Ɋ`P(( pp p`[p`p(~33`Hp`>(:(I`@p/FEEE;C(`(w`@pS`ڈ@pZh`Ah`p$;;;0s~}}7v88(`(`(`و@p0`Q(((`(1؈( p`("J`@p }~~=::(`ڈ@p/EEE;C(`@p˅쪈`@p҅؀(p(p `0(`(0p`~[ `P(|MMros G COwos orq i wcx q w rosxPDABSCNQ UTI   @  @ @  P  @@ T                99?((`?  @!@ !9@vj*99XyCOUNTRECORDS92570-1X151 REV.2326 830728 /SRC_92570/R6000/©9x COUNTRECORDS Z.DAD.DIN.DSBR .DCO.ENTR .CPMIIA@p (( 5pp()p@h@A(F(6(Fh@AA(C(`(`(P(P~~pbNEE(a@(V((a(a( (h(h` h@  @(p(p   @h@@~J (.`p` p(l@q;1;;XFMPALLOWEXTENTS 92570-1X151 REV.2326 830728 /SRC_92570/R6000/©;OFMPALLOWEXTENTS .ENTR !!eyA`@hHp!  @Hg99XiFMPNOEXTENTS92570-1X151 REV.2326 830728 /SRC_92570/R6000/©9bFMPNOEXTENTS.ENTR !!yA`@hH((p0!   @><\99Xb*FMPCLEAREOF 92570-1X151 REV.2326 830728 /SRC_92570/R6000/©9#FMPCLEAREOF .ENTR !!eyA`@hHp!  @͛[88X.COPYSPARSE92570-1X151 REV.2326 830728 /SRC_92570/R6000/©8~/COPYSPARSE NN ?.DAD .DSBR .DMP.DNG .DCO.ENTR .CPM FMPWRITE FMPREAD FMPNOEXTENTSFMPSETWORD FMPALLOWEXTENTS FMPTRUNCATE N}}3A DD `@ ((` (`戈 `@ hH ('(`@ hH (/( `@ (7(C`@ @h@(K`@ @P } NHH p T  (Y` ` ` (j(xAv p (f ( ~  p   (Ɉp ??((hA@ ((`p p`P((  p`P((h@ (`@ hH p(d`㈀ ((  (Ո p ( p (WV @ԧg99Xx8CHECKEXTENTS92570-1X151 REV.2326 830728 /SRC_92570/R6000/©9YCHECKEXTENTS .DCO.ENTR FMPNOEXTENTSFMPBLOCKSLEFT WWڜ//A`7@(`5@P6((4G5ph@A(-(-(0(W 4 @99Xb-FMPFORCEDCB 92570-1X151 REV.2326 830728 /SRC_92570/R6000/©9FMPFORCEDCB .ENTR 22(A`@ `@h`@hHp02f@Z;;X&ZFMPFORCEDCBBUFFS92570-1X151 REV.2326 830728 /SRC_92570/R6000/©;-FMPFORCEDCBBUFFS .S.ENTR .CPM )DDpY((`Yp`T@PRhTHXX 0(!p(A(-W(-(-`Wp`S@(3(A`S@@A(A(A`V@p`'p`QrE @hQHpOU0OkWQ  @s99XasFMPTEMPNAME 92570-1X151 REV.6000 910219 /SRC_92570/R6000/©9 Af @FMPBUFFER CFMPTEMPNAME 66 !.ENTR .CPM .SBST .SST .SSTC .LBT.SBT.NFEX TRIMLEN FMPUNIQUENAME 6~~ sIIAjh((6`ipchcplAp^r0^(+`qp(.`p`hgAhf(\`kpc<bl`kpcAlp^ ^lDp^ h~##4Jdb^dHp^A ^h^Ah^n#""8>a @AY"@g'88XLmCALC_DEST_NAME92077-1X500 REV.5000 870121 &TFGEN::SRC_92077 8AH HDONSROUTTEMPBUFS&CALC_DEST_NAME MM 8.ENTP .SCO.SST.NFEX .MBT STRINGCOPY FMPBUILDPATH CONCATDECIMALTOINTFMPPARSEPATHFATTENMASKSPLIT_DIRPATH M OO`pA `pɈЈ/ 6܀J>J N p ` (WHA((](^rr[\??(^(({쀈(kh`A (zA(zh` ((Ah` h`   ` (` p`(`rZZ--p`(`p`(`p p `P((A((( Ԁ( Ҁ` ZHH`(( @ DIR T@ 4 @ @D 84 TH  H@)HX88XB&SPLIT_DIRPATH 92077-1X500 REV.2540 850821 &TFGEN::SRC_92077 8SPLIT_DIRPATH !!.ENTR .CPM.SBST .SST.NFEX LASTMATCH !NKKAp`("p`p`()(;@pJ6p@p(%@pJHp`@(M(Xii!NBBDHA(\`@(u(u`HpxAA(yH`@((DH(AiJ / $ &@\{99Xz@FMPHIERARCHNAME 92077-1X500 REV.5000 870130 &TFGEN::SRC_92077 9aFMPHIERARCHNAME fFMPSTANDARDNAME "".ENTR FMPBUILDHIERARCHFMPBUILDPATHFMPPARSEPATH"mm`??A`(ne`fpa`ep`(qp^(s`p^`[ZYX`^(`[ZYXp_(`[ZYXp_`_am 4(4 \` @p@ 99XFIND_LAST_SLASH 92077-1X500 REV.2540 850821 &TFGEN::SRC_92077 9HFIND_LAST_SLASH 8.ENTR LASTMATCH l     /  @vV66X55LAST_MATCH92077-1X500 REV.2326 830728 &TFGEN::SRC_92077 6LAST_MATCH u.ENTR .SBST .SCO.NFEX .IDLP PPZ++2x1`2p-`-ph04(*p/-2D-0(#(%(%`@p8/(p(#P0@м|99Xu"FMPBUILDHIERARCH92077-1X500 REV.5000 861007 &TFGEN::SRC_92077 9L FMPBUILDHIERARCH .ENTR FMPBUILDEITHER11t2   p` 1  > @::XFMPPARSEPATH92570-1X259 REV.5000 860312 /SRC_92570/R6000/&FCONV :|FMPPARSEPATH << \a.ENTR .SSTC .LBT.NFEX EXTRACT .SBST TRIMLEN FIND_DELIMFMPPARSENAMENONDSLEN<}}LL0`p;p @@p`pQ`@p \ Šp`}`DDp(r`@p(tp`hpx(     p` P (`ph P((`phH P+p../ . : \^`b .@y9::XFMPBUILDPATH92570-1X259 REV.5000 860616 /SRC_92570/R6000/&FCONV :x/FMPBUILDPATH 66 E.CPM.ENTP .SBST .SCO.SST .INDX .LBT.NFEX FMPBUILDEITHERTRIMLEN 6$OOA`/p$`p%'Ap!I@p"`HphPp"p(a(~D"@@@"p! ccķs88(|A (~p!`P((.p (p `!( $&()*+,- p#( $&()*+,- p#`#/c//H >[/ DIR @\^`b/ /@ ?l<<Xr BYTSTRINGADDRESS92570-1X259 REV.5000 860312 /SRC_92570/R6000/&FCONV <gBYTSTRINGADDRESS .ENTR 0" A@p`@<<XAPPEND_COLON_INT92570-1X259 REV.2326 830721 /SRC_92570/R6000/&FCONV <mAPPEND_COLON_INT?v.ENTR INTTODECIMALCONCAT,,  (,: ,2@F::XjIMASKDISCREAD92570-1X259 REV.6000 910207 /SRC_92570/R6000/&FCONV :AHHDONSROUTTEMPBUFS7MASKDISCREAD ##b.DSBR .DDIR EXEC.ENTR DISCWORDDSDISCREAD#}}@@Ah@@x`@@Ax`@p("p(%'p`(1/p(@3@pEA=HE(Bpx`p(@} b H @C77X8DISCRW92570-1X259 REV.2326 830721 /SRC_92570/R6000/&FCONV 7 DISCRW  BB .DAD.DMP.DDIR .DCO EXEC.ENTR .CPM.DMOD DSSETDCBWORD DSDISCREAD DSDCBWORD ((DISCWORDB) HHA @ p@p`@p`@p p`@ph@xh@xph@h@A A (O(S`p ` }}WU@@h'@Ah@Ax  (h(~`ʈ(l(p`̈p (Q(~`@hHHp`@'p@p`( p ` ((Q`P( }TTk++p ` ( p `P( p(`pA (px (Qp (QTiO?@ƻ99X{A]CONCATNUM 92570-1X259 REV.2326 830721 /SRC_92570/R6000/&FCONV 9PCONCATNUM // 6.DDI.DNG.DCO.ENTR .CPM.SBST .NFEX DOUBSTRINGTRIMLEN /?IIWp`( @`pAY(&(0`pY( 3W@\p`Wp(>(>`p`@@[pA(I(I`pUW@O SU)W @®99X,STRINGCOPY92570-1X259 REV.2326 830721 /SRC_92570/R6000/&FCONV 9j"STRINGCOPY $.ENTR .SST.NFEX  @  @Cmb-77Xߚ-CONCAT92570-1X259 REV.2326 830721 /SRC_92570/R6000/&FCONV 7 {CONCAT  y.ENTR .CPM.SBST .SST.NFEX TRIMLEN ??&&+)+p`+((A'++A')(? ) @\q{1::XR/CONCATSPACE 92570-1X259 REV.2326 830721 /SRC_92570/R6000/&FCONV :3CONCATSPACE  y.ENTR .CPM.SBST .SST.NFEX TRIMLEN BBe(((A-+-p`-((A)-A-)+(B + @v 699XDOUBSTRING92570-1X259 REV.2326 830721 /SRC_92570/R6000/&FCONV 9pDOUBSTRING33 Jg.DIN .DDI.DNG.DCO.ENTR .CPM.DMOD .SBST .SST.SBT.NFEX 30123456789}}PPH`h(/`p(5p`p(](]x D D@@pA (7`(jA }VV1d33AA`p `@ p (z(zp` A@p   ((p  D   D@V((ٸ -   6 8 0(@ܰp::XxFMPDISCSIZE 92570-1X259 REV.2326 830721 /SRC_92570/R6000/&FCONV :NFMPDISCSIZE  eEXEC.ENTR .CPMDISCWORDDSDISCINFOl II n ((h ($!  p A` *t (h`npwpkAv0k(hAPu(D(U`s pkOtkq(h` `11SA (e]r qpm(hp `@ p ("`op ("1 rm ? @Ԡ`88XF:FGETOPT 92570-1X259 REV.6000 920729 /SRC_92570/R6000/&FCONV 8 1'FGETOPT   MMל.CPM.ENTP REIO.SBST .SCO.SST .INDX .LBT .SBT.NFEX .MBTSPLITSTRING TRIMLEN PNAME LOWERCASE MC"FF`'pyA"`yypy"#$%`pp `y(J(O&p&p `p!`HphPhxHpvhP 0v(n`@pttRhCCD(q((vJ|vA P(((n pvAvv`pA vp`(`(  tn : illegal option -- ~~xFFA `phh A A(1(m`phP ( P(1`h pvxwAvvAwv((1(1`ph`A ~JJ)) ( pv( 0v(0`(,  J : option requires an argument -- ~~DDA   `phh A ,A(m`@phPhHxpvhHPvpv G(LvhHxpvhPv(h`@p`~22w^HphhH `p`h m(tAp!`!'2SSz55 ? -- : -      , -+S@::X7HPINIT_TREE 92570-1X259 Rev.6000 920511 /SRC_92570/R6000/&FCONV :AHPINIT_TREE  U4.ENTR MAX0 VV..@p/`6@/ `5@/ `4@/ `3@/`2@/p.#1.`0@/p.+.V0@Zy99XHPADD_NODE92570-1X259 Rev.6000 920511 /SRC_92570/R6000/&FCONV 9cDHPADD_NODE ..= .CPM.ENTP .CFER .DFER MOVEWORDS HPCOMPAREBUFFERSHPTREE_PTR.) ??`pA`p@p`pƀ`@@p@pp`PΈ(7(9p`ʈ@pp `p `͈p `p(W(WRT??p``p`@ @ `ƈ@ @ `@ @ `(u`p(``pp`p p`pp`(`@ @(`p `p`KBBpp`(p(U(`p@p` @Hp`@px((π` @ @p`pp(ڀ` @ @~~AAp`pp`P(@p`@Hp`@pÊx((`@ @`@ @p(`@ @ `ƈ@ @p(~KKu%%` @ @(&` @ @h(` @ @@(7` ƈ@ @ (P(;(Kn;BB`@ @P(D(g` ƈ@ @p`@ @`@ @h ` ƈ@ @ `@ @ (݀`@ @p `@ @ňp` ƈ@ @` ~~L}AA@ @p` @ @` @ @ŀh` @ @h ` ƈ@ @PɈ((` @ @`ƈ@ @ (` ƈ@ @Pˈ((`@ @ ~CC` @ @ (Ԁ` @ @ `@ @ ` @ @ ` p(`@ @P(( ` ƈ@ @p`@ @`@ @h ` ƈ@ @  AA`ƈ@ @ (`ƈ@ @p `@ @p` @ @` ƈ@ @p` @ @` @ @h` ƈ@ @h ` @ @P(B(Q~~QBCC` @ @ `@ @(w` @ @P(Z(i` @ @ `@ @ (w` @ @ `@ @ ` ƈ@ @ ` p`(`p~ww;;(`ƈ@ @P ((`@ @h(`@ @P ((`@ @ŀh`@p`pp`@p(Uw@4N::XlHPNEXT_NODE 92570-1X259 Rev.6000 920511 /SRC_92570/R6000/&FCONV : A?HPTREE E HPNEXT_NODE  ))3.ENTR MOVEWORDS HPNEXT_PTRHPLOWEST_VALUE.CFER .DFER )O >> @ pg`k pf`f@j@ pe@ pd `i@gpcc`(@p`h@gp`(7p` > p(OH >>TGp`(Op(5`(S(^`f@epc^c ` `p(5> 5h @99XHPTREE_PTR92570-1X259 Rev.6000 920511 /SRC_92570/R6000/&FCONV 9:HPTREE_PTR .ENTR HPCOMPAREBUFFERS.CFER .DFER  AA @ p`p`@@p@p `@pp`p p @@p@ @((p @p@Hp|| N==`@px[p ` (gp ` ` (k({` (x@ @h`p (z` (`(@@h`p (`(e| ` @էg;;Xe?HPLOWEST_VALUE92570-1X259 Rev.6000 850423 /SRC_92570/R6000/&FCONV ;7HPLOWEST_VALUE .ENTR mm66A`>p<`<@=@p;@p:p<@@;p`($(5@:`<@@;p( p`m = @N99X҃XHPNEXT_PTR92570-1X259 Rev.6000 850423 /SRC_92570/R6000/&FCONV 93 HPNEXT_PTR .ENTR HPLOWEST_VALUE??@pT`WpS`S@U@pR@pQp`Vpp`('` `S@@Rp`(C (7p(B @Q  p`p(O pC `L p`p(% U @Sr~::XfHPPREV_NODE 92570-1X259 Rev.6000 920511 /SRC_92570/R6000/&FCONV : A?HPTREE T HPPREV_NODE  **m.ENTR MOVEWORDS HPPREV_PTRHPHIGHEST_VALUE .CFER .DFER *~~m == @ pa`e p```@d@ p_@ p^ `c@ap]]`(9`b@app7 p(IA  p`(I~44TFp` `(M(X``@_p]X] ` `p(G4 /b @FeM99XWHPPREV_PTR92570-1X259 Rev.6000 850423 /SRC_92570/R6000/&FCONV 9B HPPREV_PTR  .ENTR HPHIGHEST_VALUE ~~??@pT`VpS`S@U@pR@pQppp`('` `S@@Rp`(C (7p(B @Q  p`p(O~ pC `L p`p(% U @/6<<X,@HPHIGHEST_VALUE 92570-1X259 Rev.6000 850423 /SRC_92570/R6000/&FCONV <[HPHIGHEST_VALUE  .ENTR nn66A`?p<`<@=@p;@p:`>p<@@;p`($(5@:`<@@;p( p`n = @;;X?)GETREDIRECTION92570-1X259 Rev.6000 920323 /SRC_92570/R6000/&FCONV ; GETREDIRECTION 33 0r.CPM.ENTP .SBST .SST.INDX .NFEX HPSTRIPREDIRTRIMLEN CHARFILL3~~̙LL` p`p p@ `(p`(337:pA'(@p%Ap#0(W~SEE`p` `(]p(_ppp`h  0(`(q(`pD%p`((`@p`((`pD#p`׎EE((`@p`P(% P'(A(((`P((# AP'((((倄`pD!p`(݀(``y044`@p`p`(A((`h  ((c`(p`p`((`pD H(U`$$< , > < * ,. 0$@ +G::XfHPSTRIPREDIR92570-1X259 Rev.6000 920323 /SRC_92570/R6000/&FCONV :| HPSTRIPREDIR.. 0.ENTR .CPM.SBST .SCO.SST.INDX .LBT.NFEX HPMOVE_STR.kKKA∀xpD(((,@@HhP(1(3 hPh p׀`pxAA(Kp~~uNCC`(T`p(Zp(`Ap(p`pAA(|(@(pA`((`@p~~~ FFDHA((`(`(`  pDJ @@`(` (((~## , > >#@a!BBX8cK2 FMPBUILDEITHER92077-1X973 REV.5000 870119 /SRC_92077/R6000/CDS_OPTIONAL_LIB.MAC BFMPBUILDEITHER''|.DLD.DST.ENTP .LBT.SBTINTSTRING INTTODECIMAL'   $AAp@Alhhh w(T`bnh h `bnphpg8h` (=`dApp; h_8hhw(DhGGMxF!!cB  h`an(Rh w(*h ('HfHPa`e . Gnn_n77xkhmXl(Yxmhk@nH(Pa(8wwhhXg8g`n(:HpiPan8i(8h#pjjh_ n@H*fBBXcK2PROCESS_STRING92077-1X973 Rev.6000 900927 /SRC_92077/R6000/CDS_OPTIONAL_LIB.MAC B 7PROCESS_STRING(( y.CBX .CXA.CXB.DLD.DST.ENTP .LBT.SBT.XBX(v7CCP(P(*x(*P(*xHxhx h( ,`$p `3P(`383`383`xx(+HXD(+ %Ap6-AH-@p0C</SRC_92077/R6000/CDS_OPTIONAL_LIB.MAC C fENVLOOKUP }}.ENTR .MVWEXECRMPAR UT.BF ~~1LLENV RU,ENV,-Q,RTN,A  @MpP@N(BhG`JK @pQhL` AQ2OFFFFFP(D6QpR?MH R `Q`I ~>L@߯oCCX@cK2HEXTOINT92077-1X973 Rev.5020 <920520.1706> /SRC_92077/R6000/CDS_OPTIONAL_LIB.MAC C HEXTOINT .DLD.DST.ENTR .LBTrrI<<p<p?@A=h>X=(,x>P7(@8(1@9("@:(1@;(1@5@68?Ah< H(1x<(`?(1`< r@{ٚCCX%cK2INTTOHEX92077-1X973 Rev.5020 <920520.1706> /SRC_92077/R6000/CDS_OPTIONAL_LIB.MAC C INTTOHEX }.CAX.CAY.DLD.DSX.DSY.ENTR .SBT EEο%%`p`p!@$@ @#D((H( `"H( :E@GCCX&cK2INTTOHEXR 92077-1X973 Rev.5020 <920520.1706>/SRC_92077/R6000/CDS_OPTIONAL_LIB.MAC C dINTTOHEXR $$.CAX.CAY.CYB.DLD.DSX.DSY.ENTR .SBT$GG=&&H@%@p`!@$@ @#DH(h$x ( `"( :G@hCEEXkYK2UXSPLITSTRING 92077-1X973 Rev.5020 <920520.1706>/SRC_92077/R6000/CDS_OPTIONAL_LIB.MAC EUXSPLITSTRING  m.CBX.DLD.ENTP .LBT.SBT.STX.XBX qBBApA@pD@ppXxVxWHX(3P(P((! X(3HP(+P(+XD(X(3P(+P(+H9`X(:A(5A@pXHX--BH(IX(O(@`X(O(K`VhXH@W-@DDX5RK2UXNAMEMATCH 92077-1X973 Rev.5020 <920520.1706>/SRC_92077/R6000/CDS_OPTIONAL_LIB.MAC D UXNAMEMATCH ;.ENTR ((.LBT.LDX.XBXTRIMLEN CC8xN@p8@pApQNxOX(3HP9(AP8H(FpPXH(0 P(P7(:hO 8Q(X(1(, *?0P@MT@L!(,(XgC (0 (pQX(1xN(@îOOXK2HPZFMPWRITE 92077-1x973 Rev.5020 891025 Write HpZ buffer to FMP file/SRC_92077/R6000/CDS_OPTIONAL_LIB.MAC O C֡HPZOBUFPOSHPZOBUFWADDRHPZOBUFBADDR 6HPZFMPWRITE ].ENTR .SBTFMPWRITE**-h`D`@DphHx *@;MMXK2GETSTRING 92077-1X973 Rev.6000 901016 Move substring with offset/SRC_92077/R6000/CDS_OPTIONAL_LIB.MAC M `GETSTRING  .DLD.ENTR .MBT.SBT66sAA@pp8`X( 6@==XMFMP_PARTNUMBER92077-1X503 Rev.6000 <920429.1512>/SRC_92077/R6000/&FMP =FMP_PARTNUMBERkIp@ԌL88X. }FMPAPPEND 92077-1X503 REV.2326 830728 /SRC_92077/R6000/&FMP 8 Af@FMPBUFFER r FMPAPPEND  :: f .DIN.ENTR .CPMMOVEWORDS FMPGETDATAFMPSETWORDFMPGETLENWORD FMPREAD FMPINFO :}}O8@@`w@|((`w@( (`z (p`x@((`{ (p. (p`(D (=< v(3`z (A(C (pH }VVH,,p (pP(pTyZ v(p a v(p `u@ptptw p` Vu 5@ܛ[88X'FMPDEVICE 92077-1X503 REV.2326 830728 /SRC_92077/R6000/&FMP 8lFMPDEVICE  Լ.ENTR DCBOPEN --22A (`@p(p`-  @^}K::X`FMPEXPANDSIZE 92077-1X503 REV.2326 830728 /SRC_92077/R6000/&FMP :FMPEXPANDSIZE   +W.DMP.ENTR **©A(@(@A* ] @wJ::XnFMPINTERACTIVE92077-1X503 REV.2326 830728 /SRC_92077/R6000/&FMP :FMPINTERACTIVE .ENTR IFTTY FMPDEVICE 22UA(`@pp(p`2  @599X FMPIOSTATUS 92077-1X503 REV.2326 830728 /SRC_92077/R6000/&FMP 9 AOFMPREGS .FMPIOSTATUS .ENTR  ``@P99Xo!FMPPACKSIZE 92077-1X503 REV.2326 830728 /SRC_92077/R6000/&FMP 9;FMPPACKSIZE   .DAD.DDI.DNG.DCO.ENTR ,,&AA((AAHx(x`,'?@Q::X~EFMPREADSTRING 92077-1X503 REV.2326 830728 /SRC_92077/R6000/&FMP :FMPREADSTRING  %%+V.ENTR .CPM.SBST .SST.NFEX FMPREAD UT.BF %ee88A=`=pA?((`D(3p`(!(,:?CD=:H(3`(3=AH(8p`e< @x@788XG'FMPRWBITS 92077-1X503 REV.2326 830728 /SRC_92077/R6000/&FMP 8FMPRWBITS   q.ENTR .INDX 44KA Ap $(`&A@p "(`p`4 W R <>@"A99XC=FMPSHORTNAME92077-1X503 REV.6000 920429 /SRC_92077/R6000/&FMP 9 Af@FMPBUFFER gFMPSHORTNAME  .ENTR FMPBUILDNAMEFMPPARSENAMEFMPFILENAME CC1 ''A  p ` (2':8 6  42:8 6<<<4` C4 @P@ @P@Š`::X-FMPWRITESTRING92077-1X503 REV.2326 830728 /SRC_92077/R6000/&FMP :3FMPWRITESTRING  .ENTR .CPM.SST.NFEX FMPWRITEUT.BF II&&A(`(pA*((`,(!A*( p(&p`Ip( `@ @+::XFMPACCESSDISC 92077-1X503 REV.6000 920325 /SRC_92077/R6000/&FMP : AV FMPREGS FMPACCESSDISC  11P.DCOEXEC.ENTR .CPMDISCWORDRMPAR FMPBLOCKSLEFT FMPBUFFERSIZE 1TXCCA('p(1p$G h@ (1(1` p`@p`@p(tA(E(E`p(I(Np `p (R`p ~~ QAAp pa (e`(k`A(q `p (py@p`p(p x ` P((`((`~33@hHp0` p x `(`p (3UDSRTR @? $@1::X?FMPBLOCKSLEFT 92077-1X503 REV.2326 830728 /SRC_92077/R6000/&FMP :kFMPBLOCKSLEFT  ,,#.DAD.DSBR .ENTR FMPBUFFERBASE FMPEXTENTSIZE FMPEXTENTBASE ,//1A A/@::X:%FMPBUFFERBASE 92077-1X503 REV.2326 830728 /SRC_92077/R6000/&FMP : _FMPBUFFERBASE  .DAD.ENTR FMPEXTENTBASE FMPDISCDIFF ::A`$@h#Hp`"@p!x  !A: "  @A:::XIFMPEXTENTBASE 92077-1X503 REV.2326 830728 /SRC_92077/R6000/&FMP :yFMPEXTENTBASE  Bc.DMP.ENTR FMPEXTENTSIZE ''A`@@A'  @ϩ::Xl%FMPEXTENTSIZE 92077-1X503 REV.2326 830728 /SRC_92077/R6000/&FMP :FMPEXTENTSIZE   ,N.DNG.ENTR 77A`$@p`(`5h@(hH@#G7 # @J 88X1:FMPGETDATA92077-1X503 REV.2326 830728 /SRC_92077/R6000/&FMP 8vFMPGETDATA .ENTR FMPACCESSDISC ^^22A`6@  0(/`6@(/`8@p3%397(/`6@h6Hp3053p`^5@::X`$FMPGETLENWORD 92077-1X503 REV.2326 830728 /SRC_92077/R6000/&FMP : FMPGETLENWORD  $0.ENTR FMPGETDATA==u`"@#( (`!@@p`p(=    @3R;;X7FMPLASTFILENAME 92077-1X503 REV.5000 860312 /SRC_92077/R6000/&FMP ;#FMPLASTFILENAME ..>;.ENTR MIN0.SBST .NFEX FMPPARSENAMEBYTSTRINGADDRESSNONDSLEN.NN[B//333@p`3p11p1A1313/1555N 3  @|=::XݿSFMPREPORTERROR92077-1X503 REV.2540 850723 /SRC_92077/R6000/&FMP : Af@FMPBUFFER #FMPREPORTERROR &&EXEC.ENTR .SBST .SST.NFEX TRIMLEN FMPERROR&WW22J#NLNJ*LA@RpHLLAHJ9Lp`pHCQPH(Dp`WtJ P (@u599X=FMPIOOPTIONS92077-1X503 REV.2326 830728 /SRC_92077/R6000/&FMP 9mFMPIOOPTIONS Լ.ENTR DCBOPEN 446)A (`@(`@p`4  @*Is::Xk?FMPSETDCBINFO 92077-1X503 REV.2326 830728 /SRC_92077/R6000/&FMP :}FMPSETDCBINFO  .ENTR MOVEWORDS FMPSETWORDDCBOPEN ii;66A (3`=@(3:(3`<@p7$7=(+`;@`9@h9Hp70>7p((`i_9 B@+;;X( FMPSETIOOPTIONS 92077-1X503 REV.2326 830728 /SRC_92077/R6000/&FMP ;mFMPSETIOOPTIONS  Լ.ENTR DCBOPEN 99A (`@(`@p`p`9 ӧ @G::XJFMPBUFFERSIZE 92077-1X503 REV.2326 830728 /SRC_92077/R6000/&FMP :vFMPBUFFERSIZE  £.ENTR FMPBLOCKSLEFT 22PA`@(x(`@p`2 d @%WD66XFMPLU 92077-1X503 REV.2440 840803 /SRC_92077/R6000/&FMP 6 DFMPLU   Լ.ENTR DCBOPEN 88 A `(`@(`p(`@p`8 $? @ΗW99XFMPSETOWNER 92570-1X106 REV.6000 920429 /SRC_92570/R6000/&FMP19GFMPSETOWNER  C#.ENTR FMPSETOWNERID OWNERTOID 22,ppp`2@q::XʜXFMPSETOWNERID 92570-1X106 REV.5000 860625 /SRC_92570/R6000/&FMP1: Af@FMPBUFFER  FMPSETOWNERID  &&zy.ENTR .SST.NFEX FMPASKDDOTTRIMLEN FMPPARSENAME&~~BBALp  p! LRRRP#P(*`W(F` (2` (F`!(8`!(FNLJFVUT~Gp` L @ " @-IL ::X,FMPSETREADPOS 92570-1X106 Rev.5020 890505 /SRC_92570/R6000/&FMP1:FMPSETREADPOS  .ENTR FMPSETPOSITIONMMaW%%`)@+p`)@h)Hp'*'p`)@h)Hp'0'`M ) @x8::X\FMPSETPOSITION92570-1X106 REV.5010 880628 /SRC_92570/R6000/&FMP1: AW FMPREGS %FMPSETPOSITION aa.DIN.DSB .DMP.DDE.DNG.DCO.ENTR .CPM XLUEX .DISMOVEWORDS FMPSETWORDFMPPOSTEOFFMPGETLENWORD FMPSETRELPOSFMPREAD FMPPOSITION a C LLL (5`R@()`Xp(+pM(1(4`Z(5A `X@p`(` (O`R@(O@  @FO DF^AA(K` (x`W@(tqP(9(w`Y(5(`W@(`V@p [(?p x (`QA(5  K(b(( A X((`U@pDLLED@ E  (5((5 FO DF@(I` (ءՀM(9(ހTXp(5`5p`~~ hDD@TpDDXp(5`P(`(5 A  I(( (5(5`pD X0D(-`S@pD-DX`R@~77/hRHpDQDp`(>`Z(5p x `Y(57q$M @T-99XUZFMPPOSITION 92570-1X106 REV.5010 880308 /SRC_92570/R6000/&FMP19GFMPPOSITION  ++6.DAD.DMP.DDE.ENTR .CPMFMPBUFFERBASE .DLDDCBOPEN +~~GHH (I`Y@pMM`X@(R(I`X@AX(&(6`W@pM@NM@AN(I`V@@UpM>TGNhM@AN~šIp`)R  @m-::XfFMPOPENSCRATCH92570-1X106 REV.6000 920429 /SRC_92570/R6000/&FMP1:ZFMPOPENSCRATCH PP A`.ENTR .SBST .SCO .SST.INDX .NFEX .MBT FMPFILENAME FMPOPEN FMPBUILDPATHTRIMLEN FMPUNIQUENAME FMPPARSEPATHP~~TNNTWmVRQPOp0(h`pAA (((A `pN(pN Y~VVŖ//RQPO TUY߀XpSU(`N(`PN(( @pN(A pN((ϡ πTMY`SZVAA+%% /-32768//SCRATCH/ z Z @ 4@t x    A@O77XZFMPOPEN 92570-1X106 REV.2326 830728 /SRC_92570/R6000/&FMP17 Af@FMPBUFFER 7FMPOPEN  ""P~.ENTR .SST.NFEX LURQFMPASKDDOTFMPCLOSE"kGGANLA(GRANPLp()UYP(G`T@W(>`V@pK<XKU(=(G`T@(G`T@ Hp`L P@@P@)@99X6KFMPOPENTEMP 92570-1X106 REV.5000 860519 /SRC_92570/R6000/&FMP19 Af@FMPBUFFER @FMPOPENTEMP .ENTR .SST.NFEX FMPASKDDOTFMPCLOSEmm==AA?A(:EAAC?p()JIC(:`G@H`G@(:`G@ p`mw? P@@P)!@S99X&1FMPOPENROOT 92570-1X106 REV.2326 830728 /SRC_92570/R6000/&FMP19 Af@FMPBUFFER >FMPOPENROOT  .ENTR .SST.NFEX FMPASKDDOTFMPCLOSEOOS))+(&p-+Hp p &0/-p`Of+ 0 @77X@FMPCLOSE92570-1X106 REV.6000 900926 /SRC_92570/R6000/&FMP17 8FMPCLOSE  *.ENTR FMPASKDDOTFMPPOST LURQDCBOPEN gg/66 (2`=@((`<@p8?8;(4(-#(4-=>:`9@ (4p`g( 9 @@]77X FMPPURGE92570-1X106 REV.2326 830728 /SRC_92570/R6000/&FMP17 5FMPPURGE  .ENTR FMPONESTRING> A  p`@88X; FMPUNPURGE92570-1X106 REV.2326 830728 /SRC_92570/R6000/&FMP18FMPUNPURGE .ENTR FMPONESTRING> A  p`@hM99Xx/FMPDCBPURGE 92570-1X106 REV.5000 860611 /SRC_92570/R6000/&FMP19FMPDCBPURGE  R6.ENTR FMPASKDDOTDCBOPEN II%%A ($`+@(`.p($-,*`($`)@ `p`I) "@;;;X FMPSETWORKINGDIR92570-1X106 REV.2326 830728 /SRC_92570/R6000/&FMP1;bFMPSETWORKINGDIR .ENTR FMPONESTRING> A  p`@$qC1::XV%FMPACCESSTIME 92570-1X106 REV.6000 900823 /SRC_92570/R6000/&FMP1:FMPACCESSTIME .CPM.ENTP FMPGETVALUE >>SA`p"`""p"p`"$((p#p`> #  @?U^::X[%FMPCREATETIME 92570-1X106 REV.6000 900823 /SRC_92570/R6000/&FMP1:FMPCREATETIME .CPM.ENTP FMPGETVALUE >>SA`p"`""p"p`"$((p#p`> #  @9aX!::Xl%FMPUPDATETIME 92570-1X106 REV.6000 900823 /SRC_92570/R6000/&FMP1:FMPUPDATETIME .CPM.ENTP FMPGETVALUE >>SA`p"`""p"p`"$((p#p`> #  @5TB66XE%FMPEOF92570-1X106 REV.6000 900823 /SRC_92570/R6000/&FMP16 nFMPEOF  .CPM.ENTP FMPGETVALUE >>SA`p"`""p"p`"$((p#p`> # @ 7'::X‘%FMPRECORDCOUNT92570-1X106 REV.6000(( 900823 /SRC_92570/R6000/&FMP1:FMPRECORDCOUNT .CPM.ENTP FMPGETVALUE >>SA`p"`""p"p`"$((p#p`> # @Wv99XjB)FMPRECORDLEN92570-1X106 REV.6000 900823 /SRC_92570/R6000/&FMP19iFMPRECORDLEN .CPM.ENTP FMPGETVALUE CC#!!A`p&`&&p&p`&(((p 'p``C ' @H77Xڈ%FMPSIZE 92570-1X106 REV.6000 900823 /SRC_92570/R6000/&FMP17 'FMPSIZE  .CPM.ENTP FMPGETVALUE >>SA`p"`""p"p`"$((p#p`> # @~::X|CFMPWORKINGDIR 92570-1X106 REV.6000 900807 /SRC_92570/R6000/&FMP1: Af@FMPBUFFER FMPWORKINGDIR  h.CPM.ENTP .SST.LBT.NFEX FMPASKDDOT dd44`p6`66p6:@<>@p`68((p&B8@:;=$<` (1` p"` (/(1p!!rL; !@K::X×aFMPSETDIRINFO 92570-1X106 REV.6000 900801 /SRC_92570/R6000/&FMP1: Af@FMPBUFFER  FMPSETDIRINFO 00ZE.CPM.ENTP .SST.NFEX FMPASKDDOTSTRINGCOPYMOVEWORDS FMPPOST 0`DD` pV`VVpV(PX   pp`V](9(98 X(=JXZ E`_^%%F(P`]@h]HpT\Tp` %W @0 @m99Xs4"FMPCREATEDIR92570-1X106 REV.2326 830728 /SRC_92570/R6000/&FMP19 Af@FMPBUFFER TFMPCREATEDIR {.ENTR .SST.NFEX FMPASKDDOT99 p J! `@ !9@ɠ88X%ZFMPREWIND 92570-1X106 REV.5010 880712 /SRC_92570/R6000/&FMP18 AQFMPREGS kFMPREWIND  ##.ENTR XLUEX FMPSETWORDPOS FMPPOSTEOFDCBOPEN #  ~~AA (D`X@((`W@(`Q(D`V@p$Y(Dpx(4,(D4OS`U@ `T@ `R@hRHpMQM~UD p`px`Q(DlHO  @Q88X/~FMPSETEOF 92570-1X106 REV.2540 850721 /SRC_92570/R6000/&FMP18 AQFMPREGS iFMPSETEOF  %%K.ENTR .CPMXLUEX FMPASKDDOTFMPGETDATADCBOPEN %~~AA(f`r@(`}(f`q@p`(1`v@p`u@p-|{(jpx(SAv(6(S;q(f`t@@`r@hr~WWF))Hpo0zoSyxsPhqX (f`r@hrHpo0qop`px`w(fWmq  5@99Xf-EFMPFILENAME 92570-1X106 REV.2440 840725 /SRC_92570/R6000/&FMP19 Af@FMPBUFFER 0FMPFILENAME  &&]r.ENTR .SST.NFEX FMPASKDDOTINTTODECIMALDCBOPEN &pp]99A;(6`B@( `A@@p:;:(6p @p!`?@p"2D AC;=Hp`p; @@ @"|77X\FMPERROR92570-1X106 REV.2440 841217 /SRC_92570/R6000/&FMP17B0@FMPBUFFER NLLANGNUMBER :FMPERROR  {.ENTR .SST.NFEX FMPASKDDOT{tHHMOUHp `p!`p"[ ZY`XP( ('@MSp(6`WPA(+(2MQp(6MOH`D.ERR not available D.RTR not avai##[JIlable @@ p  #@ԭ77XFMPMOUNT92570-1X106 REV.2326 830728 /SRC_92570/R6000/&FMP17 Af@FMPBUFFER 6FMPMOUNT  -8.ENTR FMPASKDDOT66(Appp`6@h(99XFMPDISMOUNT 92570-1X106 REV.2326 830728 /SRC_92570/R6000/&FMP190FMPDISMOUNT  -7.ENTR FMPASKDDOT!!A`!@]<{88X2FMPRENAME 92570-1X106 REV.2326 830728 /SRC_92570/R6000/&FMP18 Af@FMPBUFFER dFMPRENAME {.ENTR .SST.NFEX FMPASKDDOTNNp//*(D.*J,("1,0```@P@@PN@_99XxJJFMPTRUNCATE 92570-1X106 REV.2326 830728 /SRC_92570/R6000/&FMP19 Af@FMPBUFFER @FMPTRUNCATE  &&?.DCO.ENTR FMPASKDDOTMOVEWORDS FMPPOST DCBOPEN &xxj>>A (<`F@(<`E@(:(<#FC(-(1A9IHA(<`Gp`xfA 5@rK ::XҫmFMPPROTECTION 92570-1X106 REV.5000 860417 /SRC_92570/R6000/&FMP1: Af@FMPBUFFER  FMPPROTECTION  ##.CPM.ENTP .SST.NFEX STRINGCOPYFMPASKDDOT# .|N W R RW KK` pZ`ZZpZca_ecJ+lki`j@@^p]Ha\`j@@^p]A_\`Zj(W(W`(LKg (W`j@Q@^p]W\ ` !!P[ S  @P  !@1;;XVFMPSETPROTECTION92570-1X106 REV.5000 860220 /SRC_92570/R6000/&FMP1; Af@FMPBUFFER gFMPSETPROTECTION ##.CPM.ENTP .SST.NFEX FMPASKDDOTSTRINGCOPY#jj.>>`pB`BBpBGECOGDMEDKCH@`BU(5(52I`Tp(7`Sp?RQ`j## hC pH pDp@ @p$&#@/`99X~B)FMPOPENFILES92570-1X106 REV.2326 830728 /SRC_92570/R6000/&FMP19 Af@FMPBUFFER ZFMPOPENFILES .ENTR FMPASKDDOTMOVEWORDS DCBOPEN NNZ$$ (!&p('&``p`N & @jL;;Xz/FMPUNIQUETIME/ 92570-1X106 REV.2540 850730 /SRC_92570/R6000/&FMP1;AKFMPUNIQUETIME   @ǖ::XFMPUNIQUENAME 92570-1X106 REV.2540 850730 /SRC_92570/R6000/&FMP1:ANFMPUNIQUETIME FMPUNIQUENAME 99 s|.DAD.DMPEXEC.ENTR MOD .SSTC .LBT .SBT .NFEX MYIDADD .XLA$TIME 9 0123456789ABCDEFd<<}}DDP(*(+(%Ap2A6p`p`(W`@hHp@A@@p(= Ypp}WWz\++`P(`@h" x`@p`@@phHH h `@hHp$`p(\ @ W&&  &@688XC.FMPPOSTEOF92570-1X106 REV.2326 830728 /SRC_92570/R6000/&FMP18 FMPPOSTEOF .ENTR .CPMFMPASKDDOTEEg.$$`)@-(("`'@,("`'@(""+*(p`((Ec'A@d77XFMPREAD 92570-1X106 REV.2326 830728 /SRC_92570/R6000/&FMP17 "FMPREAD   ==.ENTR .CPMFMPUPDATERECORD FMPDOTYPE012FMPSETRELPOSFMPGETLENWORD FMPMOVEDATA DCBOPEN =~~%AA(`@(`(`@($`(p`@(-(1pP(6(C`@hHp0pp(`~CDAA@P(J(SP((Z`@hH bp(jP(o`(`@P(v(|((`@hH 22A(p`@p`p(2C  6@ 77X FMPWRITE92570-1X106 REV.2326 830728 /SRC_92570/R6000/&FMP17 ? FMPWRITE  <<{u.ENTR .CPMFMPUPDATERECORD FMPDOTYPE012FMPGETDATAFMPMOVEDATA FMPGETLENWORD DCBOPEN <~~YBB(`@(`(p@`@(%(`p`@(=2pP(7(: p(<p(? p`pJ~~~>HCCp(V p(bp(`(~n(`@@`@hHp0( p`@p~ ` p(g  5@-99XqFMPDOTYPE01292570-1X106 REV.5010 880712 /SRC_92570/R6000/&FMP19 AOFMPREGS 5 FMPDOTYPE012 CC s .DAD.DMP.DDE.ENTR .CPM.SBSFMPSETWORDPOS FMPACCESSDISC FMPMOVEDATA .CBS.DLDXREIO C^c<<` @(M`@(`pp(1` hHp px. (px`p (7(J`(`(I` @p%vC@@  p(L p(` @hHpx@@Apg (t`(m(s` @p (` @p  ` @P ((` @~~8BB6p   p( 5pp A (∈(`@ hHpx  p(`@p`@ph@ `6p`@h'  ~}}<<p ((pӀ(ለ`((A (ހ((∈(`(戈(` @p `((`p` ( p(`p(}sepx`(n  @">@99XkFMPMOVEDATA 92570-1X106 REV.5010 880308 /SRC_92570/R6000/&FMP19F FMPMOVEDATA  //.ENTR .CPMFMPSETRELPOS.SBSMOVEWORDS FMPBUFFERSIZE FMPGETDATA/~~6BBp p  p  ( p`(# p`5pA((`@(97 (`@p@'@@p`@~.I<<p(Q(Q`p (U(a`@hH px`(r`@ hHpxl`舡@p`@p p`@P(}(A((p!AA(`ꈄ((((((ֈ('` (ɀ 5@p`瀈@P((@p (ֈ`@P爡(((`(CC(`@((`@h` `(`ꈈ(p(`6p(Cq  @q;;XFMPUPDATERECORD 92570-1X106 REV.2326 830728 /SRC_92570/R6000/&FMP1;(FMPUPDATERECORD  K.DAD.ENTR ,@A@/99XmHFMPSETRELPOS92570-1X106 REV.5010 880712 /SRC_92570/R6000/&FMP19sFMPSETRELPOS S'.DAD.ENTR FMPSETWORDPOS FMPBUFFERBASE pp::`D@@Fp`E@PE(#` G(#`D@hDH(:`p>)CG?h>@A?:p`pgC @zߙ88XAFMPSETWORD92570-1X106 REV.5010 880712 /SRC_92570/R6000/&FMP18 Af@FMPBUFFER ZFMPSETWORD FMPSETWORDPOS  ssW.DIN.DSB .DSBR .DDIR .DCO.ENTR .DMOD MOVEWORDS FMPBLOCKSLEFT FMPBUFFERBASE FMPDISCOFFSET FMPEXTENTBASE FMPASKDDOT FMPEXTENTSIZE FMPPOST FMPBUFFERSIZE DCBOPEN s~~==(!A `p` p` p`p`p($`p(&p*(G 5 J `p~~~!e@@@Bh@0(Q( JV  `p _0(`@(q` ( v p    ~P;;(`@h@    `@hHp`@px`@ p>>(((`0p`@ hAG x`@h H`(`@PhHX 0(`@@ `@p p`v  @ @i77X1FMPPOST 92570-1X106 REV.2326 830728 /SRC_92570/R6000/&FMP17 <FMPPOST   Ӣ.ENTR FMPACCESSDISC DCBOPEN RR)) (&`,@(`-@p**0/(&`,@h,Hp*.*p`R,@̰99X7FMPONESTRING92570-1X106 REV.2326 830728 /SRC_92570/R6000/&FMP19 Af@FMPBUFFER ZFMPONESTRING {.ENTR .SST.NFEX FMPASKDDOT33$J`@P 3@Y99Xy2FMPGETVALUE 92570-1X106 REV.6000 900823 /SRC_92570/R6000/&FMP19 Af@FMPBUFFER 7FMPGETVALUE  ""2G.ENTR .CPM.SST.NFEX FMPASKDDOTTRIMLEN "KK6((+@+-((`1Ap(&-+p &0/`p`K+ @`!@TsE99Xv-4FMPSETVALUE 92570-1X106 REV.2440 840430 /SRC_92570/R6000/&FMP19 Af@FMPBUFFER BFMPSETVALUE  ""2G.ENTR .CPM.SST.NFEX FMPASKDDOTTRIMLEN "LLS))A--/((`3p((/-@ (21`p`L- @` @~88X1IFMPASKDDOT92570-1X106 REV.6000 920225 /SRC_92570/R6000/&FMP18`FMPASKDDOT ++]EXEC.ENTR .CPMFMPENDEVENT RMPAR FMPSTARTEVENT OVRD. + f..RTR ~~ HH @ p}@ p|`p` Apz ($p{ (+{0z(3`p(5`pA;~=AH ~ (gL`T~\\>Q)) `(X(]`p`p(=(be (a`P(k(v`P(o(r`(u`p(=(x`(a\ ~$RTD.DS%zER(#@M99Xc/FMPUDSPENTRY92570-1X106 REV.2440 840717 /SRC_92570/R6000/&FMP19΁FMPUDSPENTRY k.DCO.ENTR FMPDIRADDTONAME UDSP.GETENTRY NN.,,*(&A,((!(!`.(&&*p` N@h凥;;XEFMPDIRADDTONAME 92570-1X106 REV.2440 840628 /SRC_92570/R6000/&FMP1; Af@FMPBUFFER =FMPDIRADDTONAME  {.ENTR .SST.NFEX FMPASKDDOT__a55AA9;=0(`Dp(`Bp"CB`Ah@ 0(/`?9;Hp`_v8 @Pp  @;;X"FMPNAMETOD((IRADD 92570-1X106 REV.2440 840628 /SRC_92570/R6000/&FMP1; Af@FMPBUFFER =FMPNAMETODIRADD  {.ENTR .SST.NFEX FMPASKDDOT::`!!AA! p` @P :@Yxu88X=gFMPTESTEOF92570-1X106 REV.5000 860905 /SRC_92570/R6000/&FMP18 Af@FMPBUFFER FMPTESTEOF [[D.DAD .DSBR .DMP.DDE .DCO.ENTR .CPMFMPGETLENWORD FMPASKDDOTMOVEWORDS FMPSETWORD FMPEXTENTSIZE FMPEXTENTBASE .DLDDCBOPEN [BB ((`@((`@((`@($(zp`@@`@pD G C ջF>> JJ (O(O(y`@(W(`(f `(c(p(&kpu(y((~p((++hP((`p(`((p(+  @y99XtI:FMPGETRECLEN92570-1X106 REV.5000 860905 /SRC_92570/R6000/&FMP19WFMPGETRECLEN ]T.ENTR .CPMFMPGETLENWORD DCBOPEN ff 33 (1`6@(`9(1`7@(`8(1A`6@6($(*`5@6p(/.p`p(/f5@0BO88X5@FMPRAWMOVE92570-1X106 REV.6000 900926 /SRC_92570/R6000/&FMP18~"FMPRAWMOVE p.ENTR FMPMOVEDATA FMPSETWORDPOS hh>::`=@(`?`@p(9'@p`>X (8(;p(h = @=\88X>FMPSYMLINK92570-1X106 REV.6000 920424 /SRC_92570/R6000/&FMP18 FMPSYMLINK Epp`@99Xf&FMPMAKESLINK92570-1X106 REV.6000 920220 /SRC_92570/R6000/&FMP19`FMPMAKESLINK .ENTR `p`@l 99XnFMPREADLINK 92570-1X106 REV.6000 900927 /SRC_92570/R6000/&FMP19.FMPREADLINK  .ENTR `p`@qh88X%FFMPDIRINFO92570-1X106 REV.6000 910208 /SRC_92570/R6000/&FMP18 Af@FMPBUFFER rFMPDIRINFO ""0G.CPM.ENTP .SST.NFEX FMPASKDDOTTRIMLEN "kk88A`p<`<99X^FMPABSFNAME 92570-1X106 REV.6000 920429 /SRC_92570/R6000/&FMP198 FMPABSFNAME  [a.ENTR FMPFILENAME $$p` $@{;66XU^cP $FMPBUILDNAME92077-1X504 REV.5000 870121 &FMP2::SRC_920776 3 FMPBUILDNAME ,, .CAY.DLD.DST.DSY.ENTR .ISY.LBT .SBTINTTODECIMAL, @@AA@}`M(P(`m`M`('@(*[(1HG׀mmA(JH(IG@MpZPMm8Z(SM%!![[ApMGehM`cM[!&&mx|h~X}(v x~h|HmHP ` & .:@;/66XInP $FMPPARSENAME92077-1X504 REV.5000 860311 &FMP2::SRC_920776 K FMPPARSENAME "".DLD.ENTR .LBT.SBTDECIMALTOINTNONDSLEN" ??A`pdAp^x``hpgxc@pa`^@pb@p_Pf(#(*p_`fPf ``kg8HcxehXi8eXj((>h` kh`sӈpd`8_22<Ih`s`s`s`bpc`apb`i`dhe 2HHf%%/.:@.@8k8kkpk`zAh|h ( kրs `Ph(Hgg008x@@p`pĈP(8(`Xք((Pj(Pj(QPh(@cpc`jp(`jX(``gKK\##p`XĄ(x`jhcX`pgX` `iHXb(P݈(xchp`d0pd K@՗44X%cP $NONDSLEN92077-1X504 REV.5000 860311 &FMP2::SRC_920774 NONDSLEN .DLD.ENTR .LBT>>AAx@pp p!X(HP"xP$(P#8!(X8 ( ` h> "/>[ @ 66XT ?cP $FMPUDSPINFO 92077-1X504 REV.2440 840628 &FMP2::SRC_920776 0FMPUDSPINFO ˦.ENTR UDSP.DECODE UDSP.MOVE hh77 ;;7;`7p9`=p:89A(3$;:7<(3`7P>(.`8P>(5`:p:(h9@77X}OcP $UDSP.GETENTRY 92077-1X504 REV.2440 840628 &FMP2::SRC_920777}UDSP.GETENTRY UDSP.PUTENTRY .DST.ENTR .MPYUDSP.DECODE UDSP.MOVE GGh(h`MpIx(  (`MpK(?(F (F#LLKL (G`KAJ @J(F @K(F hK @ @@MpKEIK M(G`N (G  L @1B66XPUScP $UDSP.GETUDSP92077-1X504 REV.2440 840628 &FMP2::SRC_920776z#UDSP.GETUDSPUDSP.PUTUDSPJS.ENTR .MPYUDSP.DECODE UDSP.MOVE !HHh(hpKx(AA OOLO(C`LpL xM (E ()hPxM(6(I@L(I p@MhMxN M@QpLCKL N(G`M@4H`R(C$N @66X;cP $ UDSP.DECODE 92077-1X504 REV.2440 840628 &FMP2::SRC_920776 UDSP.DECODE yp@@fG33Xa/P $ BLDNM 92077-1X504 REV.5000 860707 &FMP2::SRC_920773$$BUILDFILENAME BUILDFILESIZE ?BUILDFILETYPEX$--.CBT.DFER .ENTR .LBT.SBT.SSTFMPBUILDPATHFMPPARSEPATH-JJAAp `ppAP(F.3=ABH(phP(PP(K@P@!(|`pBA(^`ph(({J>>(|`&p`hXP`>h (`(Zh4P(g`@@@p`(nh @HHHh4`'!p`h%Px``Ap`h-Px`p `Phx++s`X`(? @>+   '  ~ @ ; @& q3 j = ~ ^A@ 1110 $'%!"MLBLSTRELABSPRN -&1@Tos/77XMcP $ STRIPTRAILING 92077-1X504 REV.2540 850820 &FMP2::SRC_920777wSTRIPTRAILING .ENTR .LBT.SBTTRIMLEN 99R8p 8h(HHHP(H`H( 9@-sL344XkcP $ EXTRACT 92077-1X504 REV.2540 850826 &FMP2::SRC_920774 EXTRACT -.DLD.DST.ENTR .SST11;@(8AA (8 1@4S55X -cP $ FIND_DELIM92077-1X504 REV.2540 850821 &FMP2::SRC_920775 bFIND_DELIM  c.ENTR .LBT QQ<*%%8p(# h+x)8H,x*H)HX*(#P(%H)(((@Q + @G55X9cP $ FMPCONTROL92((077-1X504 REV.5000 860515 &FMP2::SRC_920775 AQFMPREGS j FMPCONTROL \.DST.ENTR DCBOPEN XLUEX __22111 (%hH4(% 5p27p3"62(+`0ppp`8(%1_f4@&E66X'DSOPENCON 92077-1X507 REV.2341 830728 &DSCON::SRC_92077 6 Af@FMPBUFFER lDSOPENCON  2h.ENTR .SST.NFEX ASKDSRTR88!J#&###% $p`!`8 @P @o^77Xb)DSNODENUMBER92077-1X507 REV.2340 830728 &DSCON::SRC_92077 7 Af@FMPBUFFER cDSNODENUMBER 2h.ENTR .SST.NFEX ASKDSRTR<<&A!A#!%(%%%' &p`(`!p`<! @P @#66X 'DSDISCINFO92077-1X507 REV.2340 830728 &DSCON::SRC_92077 6 Af@FMPBUFFER nDSDISCINFO .ENTR ASKDSRTRBB|!!&####%p``@(!`$p`B # @l,55X;DSFSTAT 92077-1X507 REV.2340 830728 &DSCON::SRC_92077 5 5DSFSTAT   EXEC.ENTR .CPMFSTAT ASKDSRTRXX*L33A(,:66666p`9p(%(%Ap+87(42p`X6@ʥ66X"DSDISCREAD92077-1X507 REV.2340 830728 &DSCON::SRC_92077 6qDSDISCREAD nEXEC.ENTR ASKDSRTR//(A!pA `/  @9X66XDSCLOSECON92077-1X507 REV.2340 830728 &DSCON::SRC_92077 6nDSCLOSECON .ENTR ASKDSRTR.. A( p(p`.  @:77X(1DSSETDCBWORD92077-1X507 REV.2340 830728 &DSCON::SRC_92077 7BDSSETDCBWORD .ENTR ASKDSRTR$$aFp`$  @ +66XDSDCBWORD 92077-1X507 REV.2340 830728 &DSCON::SRC_92077 6`DSDCBWORD  .ENTR ASKDSRTR))p``)  @kj*55X4ASKDSRTR92077-1X507 REV.2340 830728 &DSCON::SRC_92077 5 6ASKDSRTR dEXEC.ENTR MOVEWORDS RMPAR DD''AA3.  (+"'`p``2p()Do.DSRTR $@66X #DSCONNTOID92077-1X507 REV.5000 860702 &DSCON::SRC_92077 6 Af@FMPBUFFER vDSCONNTOID -8.ENTR FMPASKDDOTCCaAp"! `(``(`C  # @77X5/DSIDTOOWNER 92077-1X507 REV.5000 860702 &DSCON::SRC_92077 7 Af@FMPBUFFER 9DSIDTOOWNER  {.ENTR .SST.NFEX FMPASKDDOTEE]$$A'pp).-`( ')HA($'+`EJ& $ L@W77XA0DSIDTOGROUP 92077-1X507 REV.5000 860702 &DSCON::SRC_92077 7 Af@FMPBUFFER DDSIDTOGROUP  {.ENTR .SST.NFEX FMPASKDDOTEE^$$A'pp/.-`( ')HA($'+`ER&  L%@|<77X@0DSOWNERTOID 92077-1X507 REV.5000 860702 &DSCON::SRC_92077 7 Af@FMPBUFFER EDSOWNERTOID  {.ENTR .SST.NFEX FMPASKDDOTNN'')p+)J/.-`(#``('`N{) $ &@b77X F+DSGROUPTOID 92077-1X507 REV.5000 860702 &DSCON::SRC_92077 7 Af@FMPBUFFER NDSGROUPTOID  {.ENTR .SST.NFEX FMPASKDDOTDD\""A$pA&$*) (`( ` ("`DX$   '@쮬55X.DSOPSYS 92077-1X507 REV.5000 860702 &DSCON::SRC_92077 5 <DSOPSYS   .ENTR .CPMDSSYSINFO HH''A ++p`(p((p-(Ap*,("*((p`H O+ @<[w88XiDSUSERISSUPER 92077-1X507 REV.5000 860702 &DSCON::SRC_92077 8 DSUSERISSUPER  8!.ENTR DSSYSINFO --A p`(p(`p`-  @a566XDSSYSINFO 92077-1X507 REV.5000 870702 &DSCON::SRC_92077 6 Af@FMPBUFFER DSSYSINFO  -8.ENTR FMPASKDDOT..pp`. ( @77X DISCSIZE92570-1X258 REV.2326 830801 /SRC_92570/R6000/&DLIB7 'DISCSIZE up.ENTR .ASKD  A @x877Xˣ8OKASCII 92570-1X258 REV.2326 830801 /SRC_92570/R6000/&DLIB7 OKASCII   h.ENTR .CPM.SBST .LBT.NFEX TRIMLEN YYG//A44p`(/`((+244HHh3pA7(/(/`6P(/@p(p`p(-Y E4, @a77XWFINDBITS92570-1X258 REV.2326 830801 /SRC_92570/R6000/&DLIB7 - FINDBITS  Y.DAD.DMP.DDE.DDI.ENTR FINDNBITS ppjHH (K @ ACV@0(KLU@x@T@x= `(HA R(Hp#R@q188XCHANGEBITS92570-1X258 REV.5000 860826 /SRC_92570/R6000/&DLIB8ECHANGEBITSY.DAD.DSB.DDE.DDIR .ENTR .ISH}}s TTA A   @ @@A@ @AADx@@xAh@(`pp}_DD(g`hH p(l`@ 0p`@ hhA@p`p(I0(`pA@hHHp(`hH p(`@ ( 0p`@ h  @X> : , ampm 2`  #Q<ON0 m b@A`\88X*DAYTIMENOW92570-1X258 REV.2326 830801 /SRC_92570/R6000/&DLIB8^L6DAYTIMENOW++ EXEC.ENTR .CPMMOD .SSTC .NFEX .MBTCNUMD KCVT+**wJanFebMarAprMayJunJulAugSepOctNovDecFriSatSunMonTueWedTh*C% ~~"5FFA55AB4刈(G(Ph`A`@p(Uh˄``(Z`p^4(c`䈈p&(e`p&@4h"H4Hxpp3p2`2@A((`2~rrK{>>@@p`2p2(spp0p0p4`3@pÀ`2@Ƅp 6r W$u KK8,, : , ampm  4bvxz|~$0  K@899XnNUMERICTIME 92570-1X258 REV.2326 830801 /SRC_92570/R6000/&DLIB9MNUMERICTIME 44 H.DAD.DMP.DDI.ENTR .CPM.DMOD MOD .SSTC .NFEX CNUMD KCVT4& }}R LLxAAxxAxh@AAAAx`@hHp@@pAV([`p (]`p p`@}mmb88(p(p`@@p`p(_s0px0p}0p0p0p   mBB )).   8Q<ON00mB@˓S99X_:7ELAPSEDTIME 92570-1X258 REV.6000 920319 /SRC_92570/R6000/&DLIB9YELAPSEDTIME  RESETTIMER 0.DAD.DSBEXECEXEC11TOMSMMl++p( p ` Ap((6p`(%A4,6/(%M E)4&\ @&88X AEXEC11TOMS92570-1X258 REV.2326 830801 /SRC_92570/R6000/&DLIB8_EXEC11TOMS .DAD.DMP.ENTR MMd00A@p7`>@7@A:2h=H7@822h<H7@@22`?@2M8 `6 @266X" MOVE2 92570-1X258 REV.2326 830801 /SRC_92570/R6000/&DLIB6 @MOVE2  .ENTR  @E77XAFINDITEM92570-1X258 REV.2326 830801 /SRC_92570/R6000/&DLIB7 %FINDITEM  6{.ENTR CHARSMATCHHASHITEMtt<<A5p(@p("`@@@p`(;`@p?.?(6`@p("(:`@p(=p`t @ @%77X՞HADDITEM 92570-1X258 REV.2326 830801 /SRC_92570/R6000/&DLIB7 ) ADDITEM   9.ENTR MOVEWORDS ALLOCATEMEM HASHITEMQBBp5p` pGGp`(%` `p`@p`@hH`@pG:G`@pGBG `@h ,F(# @88X")TDELETEITEM92570-1X258 REV.2326 830801 /SRC_92570/R6000/&DLIB8v  DELETEITEM .ENTR FREEMEM HASHITEM~~I>>A 5p`@Sp`@pR R p`@p`P()(0`@hH(H`(7p` `p`@p`P(B(0(H`@~!!DhH` pRQR(5! S @77X;NEXTITEM92570-1X258 REV.6000 920319 /SRC_92570/R6000/&DLIB7 7NEXTITEM  n.ENTR NEXTCLASS MOVEWORDS llx88A5p(px(( p`@p:):@p@(98(l@Gf88X,NEXTCLASS 92570-1X258 REV.2326 830801 /SRC_92570/R6000/&DLIB8NEXTCLASS  .ENTR ::(@(@p`(p(:@899Xq*,NEXTINCHAIN 92570-1X258 REV.2326 830801 /SRC_92570/R6000/&DLIB9.NEXTINCHAIN  P .ENTR MOVEWORDS MM(''5p`@+p`@(p((`@p*$*`@p`M + @y77X7((HASHITEM92570-1X258 REV.2440 840503 /SRC_92570/R6000/&DLIB7 ,HASHITEM  A2.ENTR MOD ]]11A5p(`@6p(p`()@@p@p(`5p404p`] c5 @Ğ99Xn';ALLOCATEMEM 92570-1X258 REV.2326 830801 /SRC_92570/R6000/&DLIB9ALLOCATEMEM  .ENTR jj\(44p`@p`(4`@x`(#`@hH(0`:@(+`p( (0`@h`@p(6p`j : @_77XԼ\FREEMEM 92570-1X258 REV.2326 830801 /SRC_92570/R6000/&DLIB7 FREEMEM  .ENTR ԃ>>A(pp`@p`(3@(!`p(@P(&(3`@@p@hH(7@h`@@(?(O`@66SAH`@h HH(X`@@h( 6@77XۀINITMEM 92570-1X258 REV.2326 830801 /SRC_92570/R6000/&DLIB7 INITMEM  .ENTR %%@ `@h%  @?]77X(# c?07CINDEX92570-1X236 REV.2326 830407 /SRC_92570/R6000/&DLIB2 7 lCINDEX .DLD.ENTR .LBT665AAHAp@pxP(P(X((`@6  @%88XxMc?07CASEFOLD92570-1X236 REV.6000 901129 /SRC_92570/R6000/&DLIB2 8 CASEFOLD  .DLD.ENTR .LBT.SBT**#AA@pXH@(@(@H(* [ @w 99Xc?07LOWERCASE 92570-1X236 REV.6000 901129 /SRC_92570/R6000/&DLIB2 9 \LOWERCASE  .DLD.ENTR .LBT.SBT**#AA@pXH@(@(@H(* { @99Xc?09ADDRESSOF 92570-1X236 REV.2326 830407 /SRC_92570/R6000/&DLIB2 9 DADDRESSOF .ENTR `@A4;;Xbc?09FMPDISCOFFSET 92570-1X236 REV.2326 830407 /SRC_92570/R6000/&DLIB2 ;kFMPDISCOFFSET .DAD.DIV.DLD.DST.ENTR AAA@@~::Xc?09FMPDISCDIFF 92570-1X236 REV.2326 830407 /SRC_92570/R6000/&DLIB2 : FMPDISCDIFF &.DAD.DLD.DST.ENTR .MPY(((A@AAA A(@;(Y::X c?09BLOCKTODISC 92570-1X236 REV.2326 830407 /SRC_92570/R6000/&DLIB2 : &BLOCKTODISC .DIV.DLD.ENTR 7 AAA@@U::Xc?0:DISCTOBLOCK 92570-1X236 REV.2326 830407 /SRC_92570/R6000/&DLIB2 : DISCTOBLOCK .DST.ENTR .MPYA   @@Qpb99X>c?0:FINDNBITS 92570-1X236 REV.5000 860707 /SRC_92570/R6000/&DLIB2 9 _FINDNBITS .ENTR .FLT.ISHBj<>AA@pAx xx(vX(Hx @ pp@@p XxP (dp`(B@  xH(B@p`@ (m`PC99@0@0@0@0@0@0@0@0@0@0@0@0@0@00(k`ph ((@ h@pHDH@p|<c?1DECIMALTOINT92570-1X236 REV.5000 860303 /SRC_92570/R6000/&DLIB2 : JDECIMALTOINT (( }.CAX.CAY.DLD.DSY.ENTR .ISX.ISY.LBT.MPY(``33AA@p7@@h8X7(+P:(x8@;a@9Hp`6A9@p6@ c( P<( P= ( (4`6 G@1(' ('`9 @Ң::X.c?1INTTODECIMAL92570-1X236 REV.2540 850606 /SRC_92570/R6000/&DLIB2 : LINTTODECIMAL )) $CVT3 .CAY.DLD .DSX.DSY.ENTR .LBT.LDX.SBT)QQ.++AAH(H`-((*xpA+hxhP,($HHx($(* (`,D(' -Q@ޓS;;Xf0c?1INTTODECIMALR 92570-1X236 REV.2540 850607 /SRC_92570/R6000/&DLIB2 ;mINTTODECIMALR 55 $CVT3 .CAX.CAY.CXB .CYB.DLD .DSX .DSY.ENTR .LBT.MBT.SBT5SS..@/p`-H`@/H@D@, D  P-(&D `(+@/p((+`.H -S@e%99Xߗ7c?1OCTALTOINT92570-1X236 REV.2326 830407 /SRC_92570/R6000/&DLIB2 9 mOCTALTOINT .DLD.DST.ENTR .LBTYY,,AAp/p3@1h2HX1(&x2P5(@6(+p0@4(+83 `/C@0 (+p/(`3(+`/Y 4 @,99Xȝ$c?1INTTOOCTAL92570-1X236 REV.2540 850606 /SRC_92570/R6000/&DLIB2 9 RINTTOOCTAL )) $CVT3 .CAY.DLD .DSX.DSY.ENTR .LBT.LDX.SBT)@@!!AAHx @pH"hxhP#(x((!H (`#H( @@Qp?::X!c?1INTTOOCTALR 92570-1X236 REV.2540 850607 /SRC_92570/R6000/&DLIB2 : ;INTTOOCTALR $$.CAX.CAY.CYB.DLD.DSX.DSY.ENTR .SBT$<</((@ @Hp`D@D(h#x ( `( 0<@?::X.>c?1OCTALTODINT 92570-1X236 REV.2326 830407 /SRC_92570/R6000/&DLIB2 : OCTALTODINT .DLD.DST.ENTR .LBT\\22A Ap:5A@8h9X8(*Hx9P<(@=(0p7@;(08:5C H7 A5(`:A(05 \ ; @eA::X-;c?1DINTTOOCTAL 92570-1X236 REV.2540 850606 /SRC_92570/R6000/&DLIB2 : DINTTOOCTAL (( q.CAX.CAY.DLD.DST.DSX .DSY.ENTR .LDX.SBT([[33x5`:`9( @A8B6(+H((4`C7(+(AC7@:h5x5 (2(4H(%[a6 0@` ::X.'c?1DINTTOOCTALR92570-1X236 REV.2540 850607 /SRC_92570/R6000/&DLIB2 : LDINTTOOCTALR (( .CAX.CAY.CYB.DLD.DST .DSX.DSY.ENTR .SBT(AAz%%@&@D@A`#D@%H (A#0(`$( 0A@ٗW;;Xg Qc?1DECIMALTODINT 92570-1X236 REV.5000 860707 /SRC_92570/R6000/&DLIB2 ;`DECIMALTODINT 44 .CAX.CAY.DLD.DMP.DNG.DST .DSX .DSY.ENTR .ISX .ISY.LBT4vv]pDDAA@DJ@hKXJ(8PM(xK@N a@L!(+HpI hLAG(2 HI`G(HH (2 PO@(PP ( GD   ! 1(2 (2vL @tԓ;;X_Nc?1DINTTODECIMAL 92570-1X236 REV.2540 850606 /SRC_92570/R6000/&DLIB2 ;fDINTTODECIMAL AA .CAX .CYB.DDI.DLD.DMP.DNG.DSBR .DST.DSX .DSY.ENTR .ISY.LBT.LDY .SBTAbb"C<<>@>GIG> `M@ DA  IA>0( (*D`L   AH xDH  hH(9 xH(.(=`KD (:b r@ G K -0 @?^;;X`<Cc?1DINTTODECIMALR92570-1X236 REV.2540 850607 /SRC_92570/R6000/&DLIB2 ;DINTTODECIMALR==5.CAX.CAY .CYB.DDI.DLD.DMP.DNG.DSBR .DST.DSX .DSY.ENTR .MBT .SBT=\\G77@Bp@`? A`@B  99= ;=9 `A@ DH  (+(8; 90((8`@D  \= -0@99X݋>c?1INTSTRING 92570-1X236 REV.2540 850917 /SRC_92570/R6000/&DLIB2 9 bINTSTRING g.DLD.ENTR .LBT.MBTINTTODECIMALoo>>p4h p3P5(.@=(@8(.`3P6(.@;(.@:("@9(.@<(.84(&HA(A`7A(22 : o@o::X1`c?1SPLITCOMMAND92570-1X236 REV.2440 840425 /SRC_92570/R6000/&DLIB2 : :SPLITCOMMAND ?.DLD.DST.ENTR .LBT.SBT Y o>>AAxPHxSpOhPXS(,xPP\(hPXS(,PO(,P^("P](((XS(,P^(("XS(, (xRXS(0H_xQApVT`\hPXQ(=HxPhUxU8T(8C AARPA8V(5`Xp6XY; \`@ ::X=c?1ENCRYPTNAME 92570-1X236 REV.2326 830407 /SRC_92570/R6000/&DLIB2 : 4ENCRYPTNAME 3.DIV.DLD.DST.ENTR .MBTPP**AAA`h(: ,`>%&&A`%@#`+@p$#`%h$A#`+#&> +, @i77XFc?1 LOPSY 92570-1X236 REV.5000 860521 /SRC_92570/R6000/&DLIB2 7 HLOPSY .ENTR .OPSY 33AHP(P(@(@((` `3@Þ88Xi? c?1 CHARFILL92570-1X236 REV.2440 840731 /SRC_92570/R6000/&DLIB2 8 CHARFILL .ENTR .LBT.MBT.SBT>>gi h Hph@p x`H`(`>@W99XFc?1 LASTMATCH 92570-1X236 REV.2440 840731 /SRC_92570/R6000/&DLIB2 9 iLASTMATCH .DLD.ENTR .LBT55:Ah pxHXH(HHP( `@5@us3::X5c?1 FMPLEGALNAME92570-1X236 REV.2440 841011 /SRC_92570/R6000/&DLIB2 : <FMPLEGALNAME .DLD.ENTR .LBTTRIMLEN bb 55('p*AH@0(@3H('H4P+('P,('P-('P.('P/('@1('8*(`2,./:b@^h}(;;X[?1 DAYS7092570-1X236 REV.2540 <920504.1439> /SRC_92570/R6000/&DLIB2 ; JDAYS70 .DLD.ENTR .LBT.MPYCCAA@YU(5PU HZ7@W(5pA7BpB@S!(57pE`DApC`AVhA D Y @hT xHC8C8B()@XP@R .A.xERhEpE.@E7%%CE <m%@877X0%c?1 ETIME 92570-1X236 REV.5020 890815 /SRC_92570/R6000/&DLIB2 7 GETIME %%@$TIME .DAD.DLD.DNG.DST.ENTR .XLA.XLB%==AJxX((p (#!hA` A!= i# @?^M<<Xic?1 HPCOMPAREBUFFERS92570-1X236 REV.6000 920309 /SRC_92570/R6000/&DLIB2 <-HPCOMPAREBUFFERS  Z.CBT.ENTR --&A`6hA6((-@<<Xgc?1 HPCOMPARE_BYTES 92570-1X236 REV.6000 920501 /SRC_92570/R6000/&DLIB2 <)HPCOMPARE_BYTES   Z.CBT.ENTR //biA`6ph6h@/@%WD99Xc?1 HPMOVE_STR92570-1X236 REV.6000 901213 /SRC_92570/R6000/&DLIB2 9 HPMOVE_STR .DLD.ENTR .MBT11Rpxxph@(`p`hA1@9X::X(@?1 INITSTRMATCH92570-1X236 Rev.6000 901203 /SRC_92570/R6000/&DLIB2 : vINITSTRMATCH BB` .CBX .CXB.DLD .DST.DSX.ENTP .INDX .LBT.MBT .MVW.SBT .SFBCASEFOLDLOWERCASE BIIAp A `h Hxx xgx,   A @((wH(; p0hgh Xg(; xg`  5   pp`s tO6IGGx hgA pp`upphx A-( dhHv `t@hix8(Y x A(d`f0fpp (Yd`f0fJ==Hp(Y H?X(x-( dP9(P:(P<((^H-(Hp(x-((xp(Yp8(Ypppp(-(-(A dP:(P(΀@Yi@@(P8(ˆ(Y`(܀`@?p(@?p(`(pphHw@p H>8( (  pA`h xA `( A h>\\[ 33` @`h (*8`;h =xpphX,-HDx H pf8--\@Hf::X2C?1FASTSTRMATCH92570-1X236 Rev.6000 900810 /SRC_92570/R6000/&DLIB2 :FASTSTRMATCHINITSTRMATCHBUF  u.CBT.DLD.ENTR .LBT.MVW.SBT.SFB YEE@@Ap hhx xhX€(H p`@pH%hxp ph`xhPƣE??(M xHh`h@ xh`hX(H Hx`p`xpA((sh (s(k@xp((h`@(`h x(P`Hh(Mxxƕ??(s@(_P(x`x`h(-h `@ (hhHx(-hHxHxh8H x@Yx;;X SYSTEMPROCESS 92084-1Y012 REV.2340 830914 /SRC_92084/R6000/&FMPD6 ;&SYSTEMPROCESS  .ENTR Ap`@Mlu::Xb(BUSYPROCESS 92084-1Y012 REV.2540 850730 /SRC_92084/R6000/&FMPD6 :EBUSYPROCESS   .ENTR IXGET DD O!!A`&p# #p`&p#`%#(p(!`'p`D c% @jp::XFMPRPPROGRAM92084-1Y012 REV.6000 920605 /SRC_92084/R6000/&FMPD6 :AH HDONSROUTTEMPBUFSĔFMPRPPROGRAM xxE\.ENTR .CPM.SBST .SCO.SST.INDX .NFEX .MBT.CBTFMPCLOSEIDDUP IDRPL FMPINFO IDGET FMPCLONENAMEFMPREAD FMPBUILDPATHFMPWORKINGDIR FMPOPEN BUSYPROCESS IXGET x PERMANENTIDSEGCASEFOLDFMPPARSEPATH~~=PPTRPJZPA2ZZz(:p(<pAZxApZvpA`TO`[`^\Zbf`fh(c()()`\h~}})hLLA()^h(pApZh(xApXN`A(Tt@~p`(`Jp`(A5`}AX5(AZZp(5`}DX5DRh(((hW}AA`Y V(`SpMJVLXV`(ψ`P((ψ`()`p `A~~h<<(  Hp ` (p  Kp ` (   (p`@ p5 5P}((p`@ p5 5hH p5x6 65~}}DD(p`(  (`(`()` (`(?pHdr`(>=`^\phh(EpDdn(J( p WS N`d}DDER|`V(X(Z(((a`()(`(p`A(h(ndn((o()(D_fp>>`(`p5`5(`()P((`(Ah[`m Z(`bpb(`(`bp`bP((`(H^j(`p`p~~C==`^\Zhh(E`() N p` (p`p `(耀` (p ( ۨ Kp ` (V   Kp (` (~GG`p  N `(`b0 p  N K  (`WhYAV( G__ Y ++ H K  `((``((``( ("``(pRJJ3 N`_U7PP /PROGRAMS/RUN rosfRUN rosf1 : K C P @@@@n pz~ H / IH@Y;;XPERMANENTIDSEG92084-1Y012 REV.2340 830914 /SRC_92084/R6000/&FMPD6 ; PERMANENTIDSEG  .ENTR IXGET %%A`p p`p`%  @::XFMPCLONENAME92084-1Y012 REV.2340 830914 /SRC_92084/R6000/&FMPD6 :D FMPCLONENAME55 .ENTR .CPM.SBST .SST .SSTC .NFEX .MBTINTTODECIMALLOGLU CONCAT5KK`pH(I"p`p+A(0(=D HA(GA `0p`@0pZZR44(VAp(]Ap(eAp(m(}h` A (`A@p(HZ::y""A 0 ....     9 0 9 0 :@ )L88X FMPLINES92084-1Y012 REV.6000 920601 /SRC_92084/R6000/&FMPD6 8 'FMPLINES p`p`  @F99Xn FMPCOLUMNS92084-1Y012 REV.6000 920601 /SRC_92084/R6000/&FMPD6 9FMPCOLUMNS p`p` P @^D}::XN>WHOLOCKEDLU 92084-1Y013 REV.5010 880122 /SRC_92084/R5010/&DLIB6 : WHOLOCKEDLU  ##JF.ENTR .CPMIDNUMBERTOADD .XLAIXGET $$RTB #~~#==ApMpALp((` `@@p@@pJ+Jp(5`Kp(8`Kp`(<(@pJCJKp~EHp( cK @C77X>HISRN 92084-1Y013 REV.2340 830812 /SRC_92084/R5010/&DLIB6 7 JHISRN   .ENTR IXGET .DRCT $RNTB 11נp`pp`1  @h燧::X}1>IDADDTONAME 92084-1Y013 REV.2340 830812 /SRC_92084/R5010/&DLIB6 :)IDADDTONAME  .ENTR IXGET UU?''@p)`0p''`+@)h/p'x(('`*@)h.p'x("(-0,'U>*  @;;X >IDNUMBERTOADD 92084-1Y013 REV.2340 830812 /SRC_92084/R5010/&DLIB6 ;pIDNUMBERTOADD   .ENTR IXGET %%cA @pp`%  @K;;X"1>IDADDTONUMBER 92084-1Y013 REV.2340 830812 /SRC_92084/R5010/&DLIB6 ; oIDADDTONUMBER   .ENTR IXGET VV((Ap0pp`/p.`@p--p`(($`p`((`(((!88.((!V / @8::X>SHORTSEGMENT92084-1Y013 REV.2340 830812 /SRC_92084/R5010/&DLIB6 :\SHORTSEGMENT  .ENTR IXGET $$A`p p`$  @<<X\k>PROGRAMPRIORITY 92084-1Y013 REV.2340 830812 /SRC_92084/R5010/&DLIB6 <PROGRAMPRIORITY  y1.ENTR IXGET IDGET 33-A p`(`@pp(p`3  @Kji<<XE^>PROGRAMTERMINAL 92084-1Y013 REV.2340 830812 /SRC_92084/R5010/&DLIB6 <nPROGRAMTERMINAL  y1.ENTR IXGET IDGET 55A p`(p(`@pp`5  ((@<99Xh'>WORDINDEX 92084-1Y013 REV.2340 830812 /SRC_92084/R5010/&DLIB6 9WORDINDEX  .ENTR EE!!A@p&pp(#p%`@&((`p`88%((E@eW99XEt>OPENACCTS 92084-1Y013 REV.2340 830812 /SRC_92084/R5010/&DLIB6 9nOPENACCTS  == .ENTR .SBST .SST .SSTC .NFEX FMPOPEN TRIMLEN INTTODECIMAL.XLA$ACFL $ACSC =qq7??A@pZppcoJ,g0e3gp7ep VgDs XesD cqmVkXJ Scirp`q..[ROS : +@CCT!:    .@vH88Xp?2DDOTNAME92084-1Y014 REV.2340 830809 /SRC_92084/R5010/&FMP6B 8 DDOTNAME @L.XLAIDGET ((`(@hPhx`(Z D.D.RTR DH@ķ88Xf?2DCBOPEN 92084-1Y014 REV.2340 830809 /SRC_92084/R5010/&FMP6B 8 DCBOPEN .ENTR 'R A`@ P` @$CM88X]?2MYIDADD 92084-1Y014 REV.2340 830809 /SRC_92084/R5010/&FMP6B 8 MYIDADD `@;b88X?3DISCWORD92084-1Y014 REV.2340 830809 /SRC_92084/R5010/&FMP6B 8 !DISCWORD M`x@[y;;XR ?3GETFATHERIDNUM92084-1Y014 REV.2340 830809 /SRC_92084/R5010/&FMP6B ;GETFATHERIDNUM[.XLA׃ @`@ @Xw;;X` ?3GETSEQUENCENUM92084-1Y014 REV.2340 830809 /SRC_92084/R5010/&FMP6B ;GETSEQUENCENUM *\.ENTR .XLA  A@ @L @c::XU?3GETCALLERID 92084-1Y014 REV.5000 860221 /SRC_92084/R5010/&FMP6B : GETCALLERID .ENTR .XLA.XLB,,DA@@((@@@  ,@`?::X] ?4OPENFILEBIT 92084-1Y014 REV.2340 830809 /SRC_92084/R5010/&FMP6B : OPENFILEBIT *\.ENTR .XLA   A@ @ @ ;;X_?4SETOPENFILEBIT92084-1Y014 REV.2340 830809 /SRC_92084/R5010/&FMP6B ;SETOPENFILEBIT1h$LIBR $LIBX .ENTR .XLA.XSA%%AJ@p@H@0A%  @+J::Xf?4PROGISSUPER 92084-1Y014 REV.5000 860715 /SRC_92084/R5010/&FMP6B : .PROGISSUPER y.ENTR USERISSUPER @"1@::X?4USERISSUPER 92084-1Y014 REV.2440 841102 /SRC_92084/R5010/&FMP6B : :USERISSUPER  $DSCS .ENTR .XLA22zAJ(`@@((@P 2@(GH88Xc ?4LULOCKED92084-1Y014 REV.2340 830809 /SRC_92084/R5010/&FMP6B 8 LULOCKED *\.ENTR .XLA 99A@(hH (hHH6H5!9@ 288Xm?5LUISACTU92084-1Y014 REV.2340 830809 /SRC_92084/R5010/&FMP6B 8 LUISACTU .ENTR ''(AP( (PP'@2Q88XY ?5ACCESSLU92084-1Y014 REV.5000 861003 /SRC_92084/R5010/&FMP6B 8 ACCESSLU .ENTR LUTRU  AA@{099XG>?5IDTOOWNER 92084-1Y014 REV.5010 880118 /SRC_92084/R5010/&FMP6B 9=IDTOGROUP IDTOOWNER  .ENTR .MVW.SSTASKLOGONSM.BF ppZK>>`G(2 x?`;@B`C`D`>h? hAx  x?@tV> @ @8W`88Xi4F?6ASKLOGON92084-1Y014 REV.5000 860219 /SRC_92084/R5010/&FMP6B 8 ASKLOGON .CLGN .ENTR EXEC{{ӎFFAp h@(9pB+(9`;PE(xD`@PApC`B B=?@;8++(  {@,K77XC?6.UACN 92084-1Y014 REV.2340 831005 /SRC_92084/R5010/&FMP6B 7 >.UACN 4O.CLGN EXEC xxCC@xB(2pA`<$(2`5P7( x9Bh?x;X@p9`A 6pA$ (`;`98Ap:/=AB:>?58$$(  x@9::Xu?7LOCALSESSION92084-1Y014 REV.2340 830809 /SRC_92084/R5010/&FMP6B :,,E3BACKTOLIMBO 'LOCALLOGOFF LOCALLOGON:NONSESSIONLOGON ,//  .CLGF .CLGN .ENTR ATACH DTACH EXECLOGLU LUSES OVRD. /nHH`tpp`epf`dp(`@t8f( ($`spp@h($>``pA&&p-@ >'AA3993::plJiljjm@@,nH$$no`oPq(A`n(A`l gpl]iljj(W`nr> @ sq? @&,99X%?7MULTIUSER 92084-1Y014 REV.2340 830809 /SRC_92084/R5010/&FMP6B 9 hMULTIUSER |O@^66XϕC?8DDIR92084-1Y014 REV.2340 830809 /SRC_92084/R5010/&FMP6B 6PGETDDIR SETDDIR ++ J$DATC $LIBR $LIBX .CPM.ENTR .LDX.MWI.XLA .XLB+<A"@ `@A$A"@ (  88`#@A(=(=p?J@B(=(=@? ?HH@H?""8 @  @?^I77X$?8WDCHK 92084-1Y014 REV.2440 840627 /SRC_92084/R5010/&FMP6B 7n+WDFILE6WDLU))x6$SHED .DCO.DST.ENTR .MPY.XLA.XLBUDSP.DECODE )^^dR22AJ (,xcx @A(.hppx8(( @A(.hHx(h(hH^YYf7,,AJ4 (Sxcx}(Uhppx8(O}(UhHx(Fh(;6h@ A5hH6YDD-7d$$Hp @HHc@HD xh@pP(J48}}D ?@z:99Xx^?9UDSP.MOVE 92084-1Y014 REV.2440 841011 /SRC_92084/R5010/&FMP6B 9 KUDSP.MOVE AA $LIBR $LIBX $SMDL $SMLK $SMLN .ENTP .LDX .MPY .MWF .MWI.XLA .XLBUDSP.DECODE ADDpVJpWpX`@\@  (OxSHWpThSHX @@[@SpUU@  (Q@Z@UhSHVHTP(<P(Q@UpUA PY00D(I`Uh (L`hU `](M 0@@b_";;XZ ?9GETMYSESSWORD 92084-1Y014 REV.2440 840731 /SRC_92084/R5010/&FMP6B ;GETMYSESSWORD սSESSN  p`τp  @@::X ?9GETOWNERNUM 92084-1Y014 REV.2440 840731 /SRC_92084/R5010/&FMP6B : 1GETOWNERNUM  $SMID .XLA.XLBGETMYSESSWORD &&Qp(pH@&@QNp<<XB?:SESSNTOOWNERNAME92084-1Y014 REV.2440 840731 /SRC_92084/R5010/&FMP6B <\SESSNTOOWNERNAME!!$SMID .ENTR .XLA.XLBIDTOOWNER LUSES !..Sh(p@Hp.@"Au99X.?:SUPERUSER 92084-1Y014 REV.((2440 840731 /SRC_92084/R5010/&FMP6B 9 {SUPERUSER  L$SMID $SMLN .ENTR .XLA.XLBLUSES ((AA(H@P(@-8K77X*?:USNUM 92084-1Y014 REV.2440 840731 /SRC_92084/R5010/&FMP6B 7 MUSNUM  $SMII .XLA.XLBGETMYSESSWORD "" p(JH"@$TC77X*?:USNAM 92084-1Y014 REV.2440 840731 /SRC_92084/R5010/&FMP6B 7 :USNAM ++ d$SMID .ENTR .XLA.XLBCHARFILLGETMYSESSWORD IDTOOWNER +774 AAJ(pHpA(: 7@1PA77X?;GPNAM 92084-1Y014 REV.5000 860423 /SRC_92084/R5010/&FMP6B 7 7GPNAM ++#m$SMGP .ENTR .XLA.XLBCHARFILLGETMYSESSWORD IDTOGROUP +774 AAJ(pHpA(: 7@7@::X"?;FMPBITBUCKET92084-1Y014 REV.2440 840803 /SRC_92084/R5010/&FMP6B : `FMPBITBUCKET q7.ENTR .OFLG XLUEX @@""AhHxHH(8A ( ` !(  ?@@{;;XS?;FMPSTARTEVENT 92084-1Y014 REV.2440 841016 /SRC_92084/R5010/&FMP6B ;FMPSTARTEVENT  tE @Ċ::Xc?;FMPENDEVENT 92084-1Y014 REV.2440 841016 /SRC_92084/R5010/&FMP6B : "FMPENDEVENT tE @ ;;XR?DEFAULT_LOGON 92084-1Y014 REV.2540 850613 /SRC_92084/R5010/&FMP6B ;zDEFAULT_LOGON '#DFUN .ENTR .MVW44=ph@xP(`h 4@Ȳr88Xs ?SESSINIT92084-1Y014 REV.2540 851007 /SRC_92084/R5010/&FMP6B 8 SESSINIT  $DSCS .ENTR .XLA h @@l@99X?PAS.NONCDS92084-1Y014 REV.2540 850826 /SRC_92084/R5010/&FMP6B 9 dPAS.NONCDS @ *88Xg?SECONOF 92084-1Y014 REV.5000 860603 /SRC_92084/R5010/&FMP6B 86SECONOF SECONOFF.ENTR .@^|99X ?SECWORDGET92084-1Y014 REV.5000 860603 /SRC_92084/R5010/&FMP6B 9 PSECWORDGET .ENTR + @::X'?SECPROGCPLV 92084-1Y014 REV.5000 860603 /SRC_92084/R5010/&FMP6B : SECPROGCPLV w.ENTR XCAPS  @C::X?SECUSERCPLV 92084-1Y014 REV.5000 860731 /SRC_92084/R5010/&FMP6B : SECUSERCPLV w.ENTR ICAPS n@&ZE;;XTN?SECCHANGECPLV 92084-1Y014 REV.5000 860731 /SRC_92084/R5010/&FMP6B ;HSECCHANGECPLV .ENTR .@ l,,99Xk*+;NL$CLASS92089-1X011 REV.2440 <840917.1434> P92089/&NLIB1::PCO9 QNL$CLASS .CBT.ENTR .LBT<<KLMpppMhK6xxKhL6xxLPpPP׈`O@@Op`PP؈`O@5p`O@pppppp`O@@Op `O@@Op M??K`KhL MQpKxL`PP׈(P(hHKxM (hHMxLH@H(hK@(hKH@(hLH@(H爀x`K@ݒ99p`M@@pMpp(`pM` (`(p(`ވ(ppH(hx@p(p((P(P(`NQ`p`䈈p(`߀p~~88 x hH x @@ p h (h HP(ڈ8 (`NQ p`p(hp h HP (P(8 (刀`NQ xpxp88(~99`hH (`NQ@ pp`䈈p`p(` (`(p(!`($pp(hx@p(p((7P(>P(y`NK688Q`p`p(`p x hH x @@ p h (]h H؈P(V8 (M`NQ p`p(hHp h H؈P (lP爈(V8 (a`NQ n::xpxp88(`hH (`NQ@ p߈p`p`p(`P((`(`@(p((`p` (` (8Mxx3@@(`NQh ׀@(NQ`NQ`6phK@pHphLHH@p@(NQ`׈NQ` `NQ ?@x@'OF99Xk*4;NL$KLASS92089-1X011 REV.2440 <840917.1434> P92089/&NLIB1::PCO9 \NL$KLASS .CBT.ENTR .LBTkK<<UWVpVXppXHV (!p($`VphU6xxUhW6xxW[p[P`Z@@Zp `[P`Z@5p`Z@p ppppp`Z@AM@@@Zp `Z@@Zp AU`UAhW \pUxW`[P(舀P(`phHUx (hHHxW@ (hUH@ (hUH@ #::(hWH@ (Hx`U@p`@h@VpVHXxX`@@p(`p` (`V(pV(`(pp(%hHx@ p(p(%(ƚ77P(P(`Y\`p`p(%`p x hH x @@ phV (hHP(8 (`Y\ p`pH(%hphHP(P(|998 (`Y\ xpxp88V(%`h H (`Y\@ pp`p`p(%` (0`X(.pX(4`(7pp(hxף788@ p(%p((JP(QP(`Y\`p`p(`p x hH x @@ phX (phHP(i8 (``Y\ p`p9o88H(hphHP(P(i8 (t`Y\ xpxp88X(`h H (`Y\@ pp`p`p(`P((`)==(`@(p((`p` (` (8(`\`Y\h @(`Y\`Y\` 6p hUH@ pphWH@@ p@(`Y00\`Y\` `Y\ ?@0@j*99X3k+;NL$TRANS92089-1X011 REV.2440 <840917.1434> P92089/&NLIB1::PCO9 NL$TRANS .ENTR .LBT.SBT0HH p h x h  x A (`6p($P2("`p($`0ph x @ph x 8 ($b   H`` [.<(+!&]$*);^-/|,%_>?`:#@'="abcdefghijklmnopqr~stuvwxyz{ABCDEFGHI}JKLMNOPQR\STUVWXYZ}``0123456789 d7-./% <=2&?'@O{[lP}M]\Nk`Kaz^L~no|JZ_myjС !"#$()*+, 01345689:;>ABCDEFGHIQRS==y++TUVWXYbcdefghipqrstuvwx=@ )99X#NLCOLLATE 92089-1X012 REV.2440 <841102.1559>/PCO/P92089/&NLIB29F NLCOLLATE @~.ENTR .CPMNL$CLASSFGGA@p@p@pp(!`(|()()(|`@h@Hp~0~ (D`(|`@ff(I55 (S`(|phHX (e`@p`P(qp(sA(|(| fX@Ң::X((NLKEYCOMPARE92089-1X012 REV.2440 <841102.1559>/PCO/P92089/&NLIB2:M NLKEYCOMPARE @.ENTR .CPMNL$KLASS~~LFF@p@p@ pp("`(A(*(*`(Ap(=((E(E`(`@~~~HEEhHp@0 (``(`@ (o`( phHX (`@p`P( ~!!((( !}@h::XZ2FNLTRANSLATE 92089-1X012 REV.2440 <841102.1559>/PCO/P92089/&NLIB2:NNLTRANSLATE A.ENTR .CPMNL$TRANSmm.>>A@pA@p@@p?(`E(<B(!(!(<Bp>AD0>(4`C(<<m B @1\P88X'ŚALMANAC 92089-1X013 REV.5010 880512 /SRC_92089/R5020/&NLIB3 8 zALMANAC .ENTR NL$CHECK_YYDD NL$YYDD_TO_MWDDDJ"") )Hx"(Ah"#`#`$`%`&D & @ȡ::XLŚNLCONVCLOCK 92089-1X013 REV.5000 880512 /SRC_92089/R5020/&NLIB3 : ,NLCONVCLOCK ;; V .DIV.ENTR .INDX .LBTCASEFOLDNL$ITEM_CLOCK NL$PARSEPACKINT NL$SET_ITEM NLINFO;GG((p@(`6pppx( (@A(,h 6pp@p(>>hph(xh*GBBHHph׀(xX(\A(\(`ڈpPp(i`@((o`@p@(hP(z`  pxh (h (`(` @VV))hx` A `@(` @hx(`hx`׈@hH (h `(`ـ V ~ 4 12 M Y e   0d@;;X ŚNLCONVCUSTDATE92089-1X013 REV.5010 880512 /SRC_92089/R5020/&NLIB3 ;NLCONVCUSTDATEww.CAX.CAY.CBX.DSX.DSY.ENTR .INDX .LAX.LBT.LDX .SFB.XBYALMANAC NL$EMPERORTABLE NL$FIND_A_FR_B^B NL$ITEM_CUSTDATENL$ITEM_EMPEROR NL$ITEM_SH_DATE NL$MMDDYY_YRDATEw..NL$PARSEPACKALPHNL$PARSEPACKINT NL$SEARCH_COUNT NL$SET_ITEM NLINFO.BFF((@(pppȈAppxpH (@(@(A/׀A 8 h p`A `p`!FDDHp`Hp`Hpx`p`phր@x H (`@xph  x H (`@Ax(h (hH `(,@@`(`((@Qp(A  h `Hp`Hp`Hpxpppp``@` h (h 6H(P(P(P(@@P(P(pP8(8(8(`P(hHHH H(hh `h@( (ḧ́Hp(h( Pxḧ́H Px`@85 DD8`@88ɀ`@88h p (,hH pApȄp@@p`(lhHɈHHpA Dh@ `(`@NCC(`pԈ`p88Հ8(h  (xP(T 'HHx`(t`h (thH @p{ (p (`@(`BB-@(`@(`ƨpppphр8 ((`(`(`B ڛ   yy0  x- wG     DMNdmyl @ ;<<XTjŚNL$PARSEPACKALPH92089-1X013 REV.5000 880512 /SRC_92089/R5020/&NLIB3 < NL$PARSEPACKALPH&&.ENTR .LBT.MBT.SBTNL$ITEM_CHARSET NL$SET_ITEM &EEA(X(Xpa`hpb`6p]p`h6x^`f`^dA([h 8a(Th]Hpcx](T@\p_hc_ ׀g(K@i(K`ch^@770Ex^8`8b(T(,``(,p`h^Hx^(,h^`e  7>d @m-<<X`ŚNL$PARSEPACKINT 92089-1X013 REV.5000 880512 /SRC_92089/R5020/&NLIB3 <NL$PARSEPACKINT #.ENTR .LBT.MPY.MVW{CCA((p`6pppppppp`phx`h hx`h hx`h 8H(Whpx(WԯC<<@p(Y@(Y`HA8`@p8(:p`(p`88`(`@(l8`hH8((|`(`@(|8`hH`(pp(:`h @%%C<<XXRŚNL$MMDDYY_YRDATE92089-1X013 REV.5000 880512 /SRC_92089/R5020/&NLIB3 </NL$MMDDYY_YRDATE##?9.ENTR NL$IS_LEAPNL$^!LYTABLE_INZNL$^!YTABLE_INZ #T6HHpM(/@P(/(/@O(/h3Hh@''pMhHh(/@Q(/`M`N(-3;Zx0N@<[yiH1O N @RSq<<XŚNL$FIND_A_FR_B^B92089-1X013 REV.5000 880512 /SRC_92089/R5020/&NLIB3 <%NL$FIND_A_FR_B^BU.SFBZ( `@ĩ;;XdŚNLFMTCALENDAR 92089-1X013 REV.5000 880512 /SRC_92089/R5020/&NLIB3 ;rNLFMTCALENDAR NLFMTCUSTDATE lle.DLD.DSB.DST.ENTR .LBT .MBT.MVW .SBTALMANAC NL$A_TO_B^B NL$EMPERORTABLE NL$ITEM_CUSTDATENL$ITEM_EMPEROR NL$ITEM_SH_DATE NL$SEARCH_COUNT NL$SET_ITEM l7NNAp+CDE(`&p!(H`hWAp+2CDE(;#h *h, % `%p!AN" C,N??h `+(Z)h, &`hY@a(a`hXpx h,`[ Fh,`Z Hh,`^ Jh,`] LpPpRAh,`_ N`N(`OPV(hNHcH P\(HcxP`UpQpN(SCC`b@O(`NpR`OpSpN`F(@CA'hF G`H(@Eh@(hH I`J(`Ch+ HhJ`L(`Dh+ hL`N(hN` `H`P( A$*??h `( `@c( `p>`Bp?`pA9`Ap@8?8??;9;p=)xAh= (8>(8?8?`Ap@`?@cp?@?hP ׈`@T@@H`R##((hR`H`,h6A !`U#"      uI,Z ~O7P B TDMNdmy@{<<X(ŚNL$SEARCH_COUNT 92089-1X013 REV.5000 880512 /SRC_92089/R5020/&NLIB3 <NL$SEARCH_COUNT U.SFBNN$$x%x$8 x&x'h%( (x&8' (( 8'H(( 8'(( 8'`&$8$`'$N@t4;;X IŚNL$YYDD_TO_MWD92089-1X013 REV.5000 880512 /SRC_92089/R5020/&NLIB3 ;&&7NL$YYDD_TO_MWD+NL$^!LYTABLE_INZ*NL$^!YTABLE_INZ &/.DIVNL$IS_LEAPxx0)DDpExFxD8h*h+D@F8D( @8DD@E(hQ@HF@@G AH88DD+7x G @c99X,ŚNL$IS_LEAP92089-1X013 REV.5000 880512 /SRC_92089/R5020/&NLIB3 9 4NL$IS_LEAP (((8@e'%;;XŚNL$CHECK_YYDD 92089-1X013 REV.5000 880512 /SRC_92089/R5020/&NLIB3 ;eNL$CHECK_YYDD  4NL$IS_LEAP ""9 H  8( H( 8"@/::X3uŚNL$A_TO_B^B 92089-1X013 REV.5000 880512 /SRC_92089/R5020/&NLIB3 : FNL$A_TO_B^B J.DIV.SBT ++xhhx @ @0h+ ef 00 00 @399X{ŚNLFMTCLOCK92089-1X013 REV.5000 880512 /SRC_92089/R5020/&NLIB3 9 YNLFMTCLOCK --R'.ENTR .LBT.MBT.SBTNL$A_TO_B^B NL$ITEM_CLOCK NL$SET_ITEM -(??`pi6pjhvpl@x(c(`xkPs(@y(c("`l(cpkhHpA`w,fh `k@zpn`kgXm(=@z@r@rpkh[[\?**Hqh`kXuhjxj8ihHoHPu(QhjHxj`lhj`txjhHp`nHo`hjAo`p[ cm24 {o   0 @;ZE99XGYŚNLFMTDATE 92089-1X013 REV.5000 880512 /SRC_92089/R5020/&NLIB3 9 ONLFMTDATE ((.ENTR .LBT.MBT.MVW.SBTNLFMTCALENDAR NLFMTCLOCK(wwCCAACL ("XP(hQhHS`W` AQ`AAh6T HXPU(2(2`V`U`BRw P   , @Ba99X8eŚNLREPCHAR 92089-1X013 REV.5000 880512 /SRC_92089/R5020/&NLIB3 9 kNLREPCHAR ++4.ENTR .LBT.SBTNL$ITEM_CHARSET NL$OVER_WRITE?NL$SET_ITEM +iDDAp]`6pZ`6p[(Qp]A(S`6p\(/)Xh Yx\dp^h\HHPb(OP`(O8](UHhZxZp_h\H77DPb(JP`(J`_(K`^h[Hx[(9``(T`a(T`cp 79`@R(p<<XuLŚ NL$SETCHARID100092089-1X013 REV.5000 880512 /SRC_92089/R5020/&NLIB3 <ǼNL$SETCHARID1000b.ENTR .MBT.SBTNL$LANG_CHARSET FFV""Ah6x$h%x#h#( x"h$x$`"(`@KA"x$8#8#( HpF88Y%''&  8@Fe;;XŚ NL$OVER_WRITE?92089-1X013 REV.5000 880512 /SRC_92089/R5020/&NLIB3 ;NL$OVER_WRITE?.ENTR ::A@p((@((h@(8:@n.99XŚ!NLSCANMOVE92089-1X013 REV.5000 880512 /SRC_92089/R5020/&NLIB3 9 gNLSCANMOVE //.ENTR .LBT.SBT.SFBNL$ITEM_CHARSET NL$OVER_WRITE?NL$SET_ITEM /J~HHp(Ap((p$px @`ph耈`(1`@@H`p(8`pH(?``(E@H`kH@@6p`6p`6p`6p`A(c\h (axh (q`(qP((q (8(` (hxpHhHh脈0((Hhx::phHHp@(`h0H(pp@`h (h ((Hhx(q`(`(`(`(`(`8ဈpp@`@@@Q`@(@(`(`@(@(و`0(`瀠( @ t}  o@b::XF=Ś"NL$SET_ITEM 92089-1X013 REV.5000 880512 /SRC_92089/R5020/&NLIB3 : -NL$SET_ITEM .ENTR .MVWNL$SETCHARID1000NLINFOmmā::h(,(H/SRC_92089/R5010/&NLIB5 <7NLREADREL NLREADRELSTR55Z.ENTP .SBT.XBXNL$DESTBUFNL$DESTLIMNL$PADCHARNL$RELMODULENL$SETPARAMS5w`p(xxG!EE`pGhGXAp#G (DxA (C4 GM`<`@@WDXH(N<`U(;`T<`S<GHhV8(4 mnx@p@==XLB NLWRITEREL92089-1X015 REV.2440 <880512.0955> /SRC_92089/R5010/&NLIB5 ={6NLWRITERELNLWRITERELSTR 44.CPM.ENTP .XBXNL$OUTDCB NL$RELMODULENL$SETPARAMSNL$WRITEBUF UT.BF 4s`p(mms;;`pChCXpA#C(6`Dp1KCF(58(5Apx=(A`h8(58HC8HFm@>>XB NL$RELMODULE92089-1X015 REV.2440 <880512.0955> /SRC_92089/R5010/&NLIB5 > vd NL$RELMODULE 88 .CPM.ENTR .LBT.LDX .SBT.XBXNL$DESTBUFNL$DESTLIMNL$TERMCHAR TRIMLEN 81CCADh6x@x8xP (n (k8(k`p@@ph((H (>`@5@(@(;@p()p()P`V[C</SRC_92089/R5010/&NLIB5 <)NLREADCAT NLREADCATSTR55S.ENTP .SBT.XBXNL$CATMODULENL$DESTBUFNL$DESTLIMNL$PADCHARNL$SETPARAMS5y`p(yyFF`pIhIXAp$I (F x A (E6 IHO`>@H`@@YHDX(P>`W(=`V>`U>IHhX8(6 mny@紧==XOB NLWRITECAT92089-1X015 REV.2440 <880512.0955> /SRC_92089/R5010/&NLIB5 =s*NLWRITECATNLWRITECATSTR 88 $.DLD.DST.ENTP .XBXNL$CATMODULENL$OUTDCB NL$SETPARAMSNL$WRITEBUF UT.BF 8w`p(jj\E<<`pFhFXpA%F (9`Dp4 N FI(8;(8A@(D;(8;F ; Ij@)(G>>X,B NL$CATMODULE92089-1X015 REV.2440 <880512.0955> /SRC_92089/R5010/&NLIB5 > r^ NL$CATMODULE XX.CBX.CPM.DCO.DIN .DLD .DST.ENTR .LBT.LDX .SBT.STX .XBXNL$DESTBUFNL$DESTLIMNL$READBLOCKNL$TERMCHAR TRIMLEN X1EEh6xH@x `jpslpxm(~Hkxuxv@x6@pwAA u(2(`v@w(I5v@vpy (M(E`y@npw(2TTE%%`y@jpv(2`yPv`wpyAA y phy([ Pq(X(ahyHnxyXu(aHnPp(Shu`@y5Hops(T3j{??@s(hhx ({Ht(pxxAA pD( p`5@xh@((ppppq`(`P((phx6P(P(PH( X(D  8( (ggW11@(8xz@@ ( (px Ҁ쀈h @(`p6pX(HP( HDX(  (hz((gp(KK=''8(`@(8s pspt(hHHj@mp!%~lKH ((56Hop'+(`' (%@ ==XB NL$POINTERS 92089-1X015 REV.2440 <880512.0955>/SRC_92089/R5010/&NLIB5 =11NL$DESTBUFNL$DESTLIMNL$OUTDCB NL$PADCHARNL$TERMCHAR 1  @7U>>X;wB NL$READBLOCK92089-1X015 REV.2440 <880512.0955> /SRC_92089/R5010/&NLIB5 > lENL$READBLOCK I.ENTR .LBT.SBTFMPREAD FMPSETPOSITION.CCpKpGpHpLpIpJhHpxPpQpNpMHo(a3Hr8M(PA&IG(.A.OthQP(n(c D@K!(?pK@pOD@L YC(FpL3IIR%%5pL`NpMhHq6H5HvHs8M(Y(cxO3`LuPu(RhOH 6`O I@>>XBNL$SETPARAMS92089-1X015 REV.2440 <880512.0955> /SRC_92089/R5010/&NLIB5 > TNL$SETPARAMS .ENTR ==#@ph@H (P((h@H`!8k=@==XBNL$WRITEBUF 92089-1X015 REV.2440 <880512.0955>/SRC_92089/R5010/&NLIB5 = .NL$WRITEBUF ##".LDX.SBT.XBXFMPWRITENL$DESTBUFNL$OUTDCB #77x`@pD`hA5xJ`87  @.<<Xhd/BNLOPENCAT 92089-1X015 REV.2440 <880512.0955>/SRC_92089/R5010/&NLIB5 < ZNLOPENCAT $$.DST.ENTR FMPOPEN NL$INITDCBNLLENGTHSTRDSC$<<%%hH.p'-'AA%%(($$<( TROS  @l==Xg!BNL$INITDCB92089-1X015 REV.2440 <880512.0955> /SRC_92089/R5010/&NLIB5 = 8NL$INITDCB .ENTR CCt!!A(hHpH H8(`  jC@ϯ>>XeBNLOPENSYSCAT92089-1X015 REV.5010 <880512.0955> /SRC_92089/R5010/&NLIB5 > gNLOPENSYSCAT EE .DLD.ENTR .LBT.LDX .MBT .SBT.SFB.XBXCNUMD FMPOPEN FMPREPORTERROR NL$INITDCBNLLANGIDE88SsApvAx`~Hxx@@D@!($`(h8bbw99::CATALOGS&pvA+vA`pxHh{!0DH 8(1xw`|A6p yhHz K]X(b(h U(hb;;ȇX::0 ROS `}6P(hhw( /SRC_92089/R5010/&NLIB5 = H NLCLOSECAT .ENTR FMPCLOSE hH  @짬<<X=g8BNLAPPEND92089-1X015 REV.2440 <880512.0955> /SRC_92089/R5010/&NLIB5 < NLAPPEND m.ENTR .LBT.SBTCNUMD XX..A`7p.h6x/P5(8.( ()P5(+P5(+0h/`106H`206@@(,`3`4X3 00@Vt<<XL7 BNLLENGTH92089-1X015 REV.2440 <880512.0955> /SRC_92089/R5010/&NLIB5 < NLLENGTH $X.ENTR .SFB  Ah6xH`@@P0<<XkZBNLREADMON 92089-1X015 REV.2440 <880512.0955>/SRC_92089/R5010/&NLIB5 <1NLREADMON NLREADMONSTR55W.ENTP .SBT.XBXNL$DESTBUFNL$DESTLIMNL$MONMODULENL$PADCHARNL$SETPARAMS5y`p(yyFF`pIhIXAp$I (F x A (E6 IHO`>@H`@@YHDX(P>`W(=`V>`U>IHhX8(6 mny@==XOBNLWRITEMON92089-1X015 REV.2440 <880512.0955> /SRC_92089/R5010/&NLIB5 =2NLWRITEMONNLWRITEMONSTR 88 (.DLD.DST.ENTP .XBXNL$MONMODULENL$OUTDCB NL$SETPARAMSNL$WRITEBUF UT.BF 8w`p(jj\E<<`pFhFXpA%F (9`Dp4 N FI(8;(8A@(D;(8;F ; Ij@a>>>X.PBNL$MONMODULE92089-1X015 REV.2440 <880512.0955> /SRC_92089/R5010/&NLIB5 > b NL$MONMODULE QQ.CBX.CBY.DST.ENTR .LBT.LDX .SBT .STX.XBX .XBY EXECNL$DESTBUFNL$DESTLIMNL$TERMCHAR RMPAR TRIMLEN QGq( S uJJMSG.M h`!xpxp`KphE6xHIxhD PF((X( D  (AHx MA( A  LD( `( `5~~<PJ(AHDX( 8(`( ;(@N(H8x@O@ (5 (%~??9Ap9x: :h: H@()`p96p:X:(5P9(5DX(7 H(*h(;(2?q;;(m"A8( !%@~nlf@:??XV% BNLSETLANGNUMBER 92089-1X015 REV.2440 <880512.0955>/SRC_92089/R5010/&NLIB5 ? ANLLANGNUMBER HNLSETLANGNUMBER .ENTR u A pp@Po..XACALENDAR92089-1X016 REV.2440 <840917.1144>. !CALENDAR kEXEC""Zp`@)@p`" z @a〣--X{$((CLOCK 92089-1X016 REV.2440 <840917.1144>- B CLOCK  kEXEC--  p #`(@p`(@p   - # @jՉ;;Xdl9;NL$SYSLANGS 92089-1X045 REV.2440 <840917.1421> P92089/&NLSY6::PCO; #NL$SYSLANGS 4g.ENTR .MVW A`h  @1O99Xl9;NLLANGID92089-1X045 REV.2440 <840917.1421> P92089/&NLSY6::PCO9 ANLLANGNUMBER NLLANGID Nx`@S,q@@Xǔ#0DEBUGADOPT24998-1X635 REV.5260 <911024.2044> /SRC_24998/R5260/DEBUGLIB.MAC @!!C  DEBUGPROGDATA  DEBUG.DATA ,DEBUG.MAPCOM!EDEBUGADOPT[[7$DBTA $IDEX .XCA.XLA.XLB.XSA.XSBDEBUGEXPVMDEBUGMESSSDEBUGNEWSEQ DEBUGPVID DEBUGRNCALL DEBUGSTOP EXEC ICAPS IDSGA [yy{<<`p H P (  @xh(8 (HHhX(`( p *(9`   phH` @ (= 3@(=`HHh( y0=CCJpA`(8xYxhA @xY (8(HhY` (8hYh Hxb@0@Hp  ( JH @x    `==fi## ( x D`p  ( (9`(8(  =@59??XsHǔ#1DEBUGPVID 24998-1X635 REV.5260 <911024.2044>/SRC_24998/R5260/DEBUGLIB.MAC ?!!Cw DEBUGPROGDATA DEBUG.DATA,DEBUG.MAPCOM!))':+DEBUGEXPVM.DEBUGNEWSEQ DEBUGPVID 5DEBUGRNCALL )"" $LIBR $LIBX $MATA .MPY.XLA .XLBEXEC"pGGh HBPA(  P(!HA@E @ @@?Fh* P*(!( hHD G( 8A+hHD x.x.=C.+h+5 ? G @Fen>>X[#ǔ#2DEBUGGO 24998-1X635 REV.5260 <911024.2044>/SRC_24998/R5260/DEBUGLIB.MAC > A,DEBUG.MAPCOM DEBUGGO --#.ENTR .XLA.XSADEBUGEXPVMDEBUGMESSSDEBUGPVID DEBUGRNCALL -==z##A (@H"0h Xp`!GO=@Osn3??XOǔ#2DEBUGSTOP 24998-1X635 REV.5260 <911024.2044>/SRC_24998/R5260/DEBUGLIB.MAC ?BB DEBUGPROGDATA DEBUG.DATA RDEBUGSTOP GG $MPFA .CAX.CXA .XLA .XLB .XSADEBUGEXPVMDEBUGGO DEBUGMESSSDEBUGNEWSEQ DEBUGPVID DEBUGRNCALL GLLLD(?HM@ JpHF JF @ @ HphHG@ DHH քC (7HI 0K@D A(?5B(?HN@ JhDHDPE  7PLSS @::@@Xƥǔ#3DEBUGMESSS24998-1X635 REV.5260 <911024.2044> /SRC_24998/R5260/DEBUGLIB.MAC @Bx DEBUGPROGDATA DEBUG.BUFFER GDEBUGMESSS %%O.CAX .CXA.DFER .DST.ENTR DEBUGFLUSHMESSS %<<AHhJJ5@H   , <@n ??Xjǔ#4DEBUGWAIT 24998-1X635 REV.5260 <911024.2044>/SRC_24998/R5260/DEBUGLIB.MAC ?!!Cw DEBUGPROGDATA DEBUG.DATA,DEBUG.MAPCOM! CDEBUGWAIT 88 k$MATA $MRMA .LDX .MPY .MWF.XLA .XLBDEBUGNEWSEQ DEBUGPEOK DEBUGRNCALL 8`AAHhZX[`ipVh H\p  p H]hpcP= (Xg Xf xWPP(LH@hH_b ^ @@[ @ep`ep*Dp+CX*dXLL8A))a`V(J`)p`W hYAD ` (D *?EYMQL@e%??XSǔ#5DEBUGXPUT 24998-1X635 REV.5260 <911024.2044>/SRC_24998/R5260/DEBUGLIB.MAC ?TDEBUGXPUT  =$LIBX .DLD.XSBDEBUGPVID !!+&p8HA@!@<??Xǔ#6DEBUGPEOK 24998-1X635 REV.5260 <911024.2044>/SRC_24998/R5260/DEBUGLIB.MAC ?++D DEBUGPROGDATA DEBUG.DATA ,DEBUG.MAPCOM DEBUG.BUFFER+ > DEBUGPEOK :: W0$LIBX .DIV.ENTP .LDX .MVW .XLADEBUGDREADDEBUGDWRITE DEBUGEXPVMDEBUGPVID :HH@p x  (H p#(@$@p@~ ppH{@ }p`-!p x@p`|p@ @ '@A @[HEEA(O `@@ @ p`A@yh  x `(ihHy` A p @phHzX 8x`@ p (J ` `h@@$$A`hzЈ`h   `(h` A `hz >x@@0@@X]ǔ#7DEBUGDSKIO24998-1X635 REV.5260 <911024.2044> /SRC_24998/R5260/DEBUGLIB.MAC @ ADEBUG.BUFFER cDEBUGDREAD0DEBUGDWRITE 3DEBUGFLUSHm.DFER .ENTR EXECGETAT SETAT  ;;A P pP pP pXW(3`Z8`\p/)/Xpp8 80`YpV`(H>MMZ;""V`VAPY(FF`[83`VPY(QQV`\ xx3M@O??Xǔ#9DEBUGPEEK 24998-1X635 REV.5260 <911024.2044>/SRC_24998/R5260/DEBUGLIB.MAC ?!!C} DEBUGPROGDATA DEBUG.DATA,DEBUG.MAPCOM! DEBUGCHECKADD DEBUGPEEK  DEBUGPOKE 77 q$LIBX .CAX .CBX.ENTP .ENTR .MWF .MWIDEBUGEXPVMDEBUGPEOK DEBUGPVID 7@@`p ( pAHh`n  j(pv `kpp  &xv`Dpt pi Hxr`F(3`@(pu`pq@p@om(Lhv puز@FF Xi(HPt(L`p@lpqA`DWrtpiq `q@p`@qphqHx`q@ p(|x X(~H8vv`@@ ( X~~n@@ xqpp Hx H8vh x`q @ph vH`hpH pv `P(@0(;( h@H*h*H!H` ? `~a p P(π& @μAAX6<wǔ#;DEBUGEVMAPEEK 24998-1X635 REV.5260 <911024.2044>/SRC_24998/R5260/DEBUGLIB.MAC A++D  DEBUGPROGDATA  DEBUG.DATA ,DEBUG.MAPCOMDEBUG.BUFFER+bDEBUGEVMAPEEK DEBUGEVMAPOKE VV $LIBX .DLD.ENTP .MVW.XLA.XSADEBUGEXPVM DEBUGFLUSHDEBUGGO DEBUGPEOK DEBUGPOKE DEBUGPVID DEBUGSTATEPOKEDEBUGWAIT V@@`p( ph `B @(pDpJ ApCAFpFxH`Ӏ@CpF׀xEpG@H@ @@ (` ?pI`  (oJox@HH`DVEFHIDJplxn`ׄxmfmnljk`jWh Hp0`̊p` #PC(h` #PC(`(hu::x`pՊ h # WhP(ΈP(`h͈8(`Ј( pF׈xE`H@@@pDJ(hHDxhHDx`D@p xH8(hp h HKFF@` @|hH *`ppb` @gn xc(; ,h0mp_h x` xaH "x^q^`Cpkh *`AW "djKEEH( (A`eh*i`dOA "jdЈ(`*heAi+ *lɡ i`(1^q(`cPj`d(`o((h HfxL@p^`k@HOH(`^L>>M$$H(S(AW(J ApCO  _>@BBXmIǔ$DEBUGSTATEPEEK24998-1X635 REV.5260 <911024.2044> /SRC_24998/R5260/DEBUGLIB.MAC BB DEBUGPROGDATA ,DEBUG.MAPCOMDEBUGSTATEPEEKDEBUGSTATEPOKE<< H. .DLD .DST.ENTP .LDX .MWF .MWI .XLADEBUGEXPVMDEBUGPEEK DEBUGPOKE DEBUGPVID <DD`p(((phAHF`@GH x`((A`HAhHGFH@ pJP(0  A `(@ P (0X!(@H@hHH pBhC`hD@BEE 2D@8/VAAXǔ$DEBUGABANDON24998-1X635 REV.5260 <911024.2044> /SRC_24998/R5260/DEBUGLIB.MAC A 7DEBUGABANDON %%x.ENTR .XLA.XSADEBUGEXPVMDEBUGMESSSDEBUGPVID %88ApAHHD@ 0H` A`pGOOF8@յ88XW6P 02VMAOPEN 92077-1X419 REV.5000 <860718.1357>&VMAOP::SRC_92077 8 VMAOPEN 33 H.DLD.DST.ENTR .LBT .SBTFMPBUILDNAMEFMPPARSENAMENONDSLENVMAST 3OBBAA `P (戀@pl pj x(pmhjHqxkHq@AnHuxphjHt@@piAHrxh@pgx`lp`hXg(XxhvVV(B%% X{Xx`s(^X}`X~`Xz`Xw`(`Xy(7X|(e`hh xhXi((7l(allXz(W(78(7VqNN 2@CORSUVWXl.`-ll3P302All()(*HP(h)GAkn,,,` P(hoP(Xp((H5oon::`D`/ H Xp( j`l m(`1lD ( Dl`p`PA(A(`s@0(`4 jl( VMA  @o  6 2 @ * P :P@.M::XPVMACLOSE92084-1Y052 REV.5000 <860715.1724> &VMACLOSE::SRC_92084: VMACLOSE CLSVM Tp@ȘX99XxPVMAPOST 92084-1Y053 REV.5000 <860715.1724>&VMAPOST::SRC_92084 9 VMAPOST PSTVM Tp@p0::XP+VMAPURGE92084-1Y054 REV.5000 <860715.1725> &VMAPURGE::SRC_92084: VMAPURGE PURVM Tp@??X2%REXBUILDPATTERN 92077-1X981 Rev.5270 <920507.1357>/SRC_92077/R6000/REX.FTN? A'REXSTUFF REXBUILDPATTERN TTW.ENTR .CPM.EXIT .SBST .SCO.SST.LBT .IDLP REXADDSET REXESC REXCTOI REXSUFFIXOK REXBUILDCLOSURE REXBUILDCLASS T~~[GG@pppp pp ppA(/(DH `Hph P(@(GE pH(h P X (ZX~}}_UDD$pH(h Ph (mk#p(䄈h P(r( y(p ` (䄀h Pph P0p (`@}~~W<<p (p (~h P((`@@ ((`p (~@p `p`p h   (p`@h H`p8 8(`p`p ׀~AA p (䄈h P(ފ( p`p  p H(h P(("pH(h Pp (`@p ((`(~~JJJ`p   p  A($( A(0((` p` p  (:([A A (FAp A (T0([p (~`@p~ހ`::@ pp `(p`p` @(u(u`p (~@pp `(p`@ @hH H8 8(~`@p8 8(i(h P((` p>>`p"((p (~!pp`p(h P((`(p (~@p pp@p(pNN&&pp`p`p(*`(p (~(`p @p (~N33 + * >   }{<:@+*[$^. 3@Yx<<X<REXADDSET 92077-1X981 Rev.5010 <920507.1357>/SRC_92077/R6000/REX.FTN< A'REXSTUFF REXADDSET   .S.ENTR .CPM ;;cA@p((p(@`p`; a @::X=REXESC92077-1X981 Rev.5010 <920507.1357>/SRC_92077/R6000/REX.FTN: `REXESC  1.ENTR .EXIT .SBST .SCO.LBTYYOc44AA858A5:( 58Hh6Hp(3($('`>XuREXBUILDCLASS 92077-1X981 Rev.6000 <920507.1357>/SRC_92077/R6000/REX.FTN> A'REXSTUFF &rREXBUILDCLASS ))w.ENTR .CPM.EXIT .SBST .SCOREXFILLCLASSREXADDSET )*HHAj@pgp`r((`ejDen(+(4(40t(99sp@qGj`@gh22(oJHpA(S(bejDel(_p(dp(2-h ] ^ @e%==XREXFILLCLASS92077-1X981 Rev.5270 <920507.1357>/SRC_92077/R6000/REX.FTN= A' REXSTUFF JREXFILLCLASS **D>.ENTR .CPM.EXIT .SBST .SCO.LBTREXADDSET REXESC*7NNA@p((|A~A~( ("("A~A~(.(9(92p~8~(x~D~(SA~hp~XXOgN00R~(x(X 0(fe(xmp~s~x((!Xj- \ ] -@F??X;DREXBUILDCLOSURE 92077-1X981 Rev.5010 <920507.1357>/SRC_92077/R6000/REX.FTN? A'REXSTUFF {REXBUILDCLOSURE  ċ.ENTR .CPMREXADDSET rr@<<@p@p(($`C@p`@@p? ?@p(`Cp.B3A8=A`r A @7;;XGKREXMATCH92077-1X981 Rev.5010 <920507.1357>/SRC_92077/R6000/REX.FTN; A'REXSTUFF 1REXMATCH  C.ENTR REXAMATCH ~~jAAAG@ pFppGJp`(#p`(*`('(*`Jp( p`(ApE7GI(:(=`Jp( 88E(1p~ &C( e G @́<<X:REXAMATCH 92077-1X981 Rev.5010 <920507.1357>/SRC_92077/R6000/REX.FTN< A'REXSTUFF  REXAMATCH ).ENTR REXPATTERNSZREXOMATCH }}@@@ppppp`@P(`@P('(R (3`p0@p(Q`p`㈈@p`p@(C(:`@}~~ F==hH`@@h`p(Ɉ`@P戀(X(``@@h(`@P(f(o`@@H(u( (`P((p`~~~ϳ?? `p(`P((p(`p((`h H (`@@p(`(p(`@܀h HH`@p`@~66{@h Hp̀@p( (p(`p(6o   @0N==XhREXPATTERNSZ92077-1X981 Rev.5010 <920507.1357>/SRC_92077/R6000/REX.FTN= A'REXSTUFF iREXPATTERNSZ .ENTR FF@p^@^P`H^Xg 0H^Xf 0("`ap(Z@^PaH^Xe 0H^X_ 0H^Xd 0(Bp(Z@^Pc//GH^Xb 0(X@^@ap(Z``p`/__   @^<<X:REXOMATCH 92077-1X981 Rev.5010 <920507.135((7>/SRC_92077/R6000/REX.FTN< A'REXSTUFF REXOMATCH  -.ENTR REXCLASSMEMBERREXALPHANBR REXGETCHAR @@@ppp`P((`p@P(&(0@P(-(/p(@P(6(=(:(<p(@P(C(I}}\C<<P(Hp(@P(O(VP(S(Up(@P(\(ipd(hp(@P(o((s(vp(p}p}QQ((p (p(P px(p`(@`p(Qk  @ }>>XNREXCLASSMEMBER92077-1X981 Rev.5010 <920507.1357>/SRC_92077/R6000/REX.FTN> A'REXSTUFF ,REXCLASSMEMBER  .S.ENTR .CPM }}@@A@pJ@JAp(E(E`@JPK((8`L@pA`@J(%h HJpH@(/H(7`Mp`(A`@J(>(A`Mp(5}lB@p(p(5 d K @==X>REXALPHANBR 92077-1X981 Rev.5010 <920507.1357>/SRC_92077/R6000/REX.FTN=REXALPHANBR   .S.ENTR .CPM ]]55AA=( p6<(6p6;(Ap7:( 706p69()Ap78(0706p`]890zaZA@;;XGREXCTOI 92077-1X981 Rev.5010 <920507.1357>/SRC_92077/R6000/REX.FTN; JREXCTOI   ).ENTR .CPM.EXIT .SBST .SCO.LBT~~QQAvpAlvAl~(AplmvAmx('0l(6(5(5`( lvDlz(AAplmvAm|l(k~55sR`plAmvhn@l@pA(j(j(3(6(35###p 0 9    #@r2==X,REXSUFFIXOK 92077-1X981 Rev.5010 <920507.1357>/SRC_92077/R6000/REX.FTN= A'REXSTUFF $REXSUFFIXOK  .ENTR CC$$A`+h* h) h( h' h& p`C& @32Q<<Xr)REXGETCHAR92077-1X981 Rev.5010 <920507.1357>/SRC_92077/R6000/REX.FTN< A'REXSTUFF w REXGETCHAR >.ENTR .CPM.EXIT .SBST .LBTEE'v##&P((p("A((`(p("A$&h%p`E & @/>>XREXBUILDSUBST 92077-1X981 Rev.5010 <920507.1357>/SRC_92077/R6000/REX.FTN> A'REXSTUFF 8 REXBUILDSUBST .. .ENTR .CPM.EXIT .SBST .SCO.SST.LBT REXADDSET REXESC.Q\DD@ p pppA (!(DHhHP(0(4`p(g(hP(9(=`p(gH(hPɈ(B(` @(I(e`h~~HLDDHpxDĈ([(e(e `π p`@p(`pp ((`h pxAh@p`Ap((`p`p~XX,,  p  p(  p  p`p(  (@p(`p` X!!J$>~<>& !@ۄ==XREXEXCHANGE 92077-1X981 Rev.5010 <920507.1357>/SRC_92077/R6000/REX.FTN= A'REXSTUFF 'REXEXCHANGE  22E.ENTR .CPM.EXIT .SBST REXCATNEWCHAR REXCATNEWXCGREXAMATCH .DLD2~~GGA @ p@ p `pppp p: p`(@``(QAp(J(P ~ww~N@@p`hX (h`pf `p`hX 0(J ~ p`p(`p(E P((`p(>wi[@ͦ==X{gREXCATNEWXCG92077-1X981 Rev.5010 <920507.1357>/SRC_92077/R6000/REX.FTN= A'REXSTUFF i REXCATNEWXCG44 v.ENTR .CPM.EXIT .SBST .LBT.SBT.IDLP REXCATNEWCHAR REXBREAKLINE4}}DD@ p p`@P(`@p`րPhՀX 0hX 0(`p`@p`(Fp p(X(K(T}~~vKBB`@p`@p(Xpp`phA(pAhp`P(l(̀(qpA(x(`@@Έp(`PA(((p~ee22((`@@pJ`h ƀ 88(_(`P((   (J`h ƀ `p( e$$  aAZz$@!D>>X.REXCATNEWCHAR 92077-1X981 Rev.5010 <920507.1357>/SRC_92077/R6000/REX.FTN> A'REXSTUFF ._REXCATNEWCHAR O.ENTR .CPM.EXIT .SBST .SSTDD؏&&Ax,)(#(#')DH'+`-p(%p`De)@==X~ REXBREAKLINE92077-1X981 Rev.5010 <920507.1357>/SRC_92077/R6000/REX.FTN=8REXBREAKLINE.ENTR d  @/NiIIX.Ř PUTINCOMMAS 92077-1X992 Rev.5010 881004 Turn blanks into commas /SRC_92077/R5020/STRINGLIB.MACI PUTINCOMMAS s.CBX.CXB.DLD.ENTR .LBT.SBT.XBX WW --AA@p-Hx@DX-( P(P H ('( ,X( H&HP ( H`X-H("p` `(W@;EEX ^Ř SPLITSTRING 92077-1X992 Rev.5010 881004 Decompose string/SRC_92077/R5020/STRINGLIB.MACE 8SPLITSTRING m.CBX.DLD.ENTP .LBT.SBT.STX.XBX DDp@pA @pp]xx\X(9P((# HX(9P(/P.(9HXH( ,!((X(9P(1P.H?`X(@(;A@p33FDAH]XH(OX(U(F`X(U(Q`h]H@\3@!?FFXTŘ NAMEMATCH 92077-1X992 Rev.5020 890926 Masked name compare /SRC_92077/R5020/STRINGLIB.MACF eNAMEMATCH .ENTR .LBT.LDX.STX.XBXTRIMLEN CC8xP@p8@pApSPxQX(3HP8(AP9H(FpRXH(0 R(P7(:hQ 8S(X(1(, -@0R@OT@N!(,(XBC (0 (pSX(1xPAQ(@-4KAAXȃ1 8HPCRT 92077-12035 Rev.6000 920919 HpCrt.lib header /SRC_92077/R6000/HPCRT.MACA@IIX~ȃ0 8HPCRTSSRCDRIVER 92077-1x951 Rev.5000 860528 S.Status Compatible?/SRC_92077/R6000/HPCRTLIB.MAC IQHPCRTSSRCDRIVER  u.ENTR XLUEX ''LAAp (Xa.'@2QZIIX7Bȃ0 8HPCRTXREADCHAR92077-1x951 Rev.5000 870501 EXEC 1 for Characters /SRC_92077/R6000/HPCRTLIB.MAC IتHPCRTXREADCHARz.DLD.DST.ENTR .MBT.SBTXREIO ssBBp:8p9h<>A5pA:A(60@: ()`;(+h;`?HX9(0(,`<>A:z s@.lM,IIXCJBȃ0 8HPCRTREADCHAR 92077-1x951 Rev.5000 870501 EXEC 1 for Characters /SRC_92077/R6000/HPCRTLIB.MAC IfHPCRTREADCHAR (.DLD.DST.ENTR .MBT.SBTREIOssBBp:8p9h<>A5pA:A(60@: ()`;(+h;`?HX9(0(,`<>A:z s@}IIXKr#ȃ0 8HPCRTXSENDCHAR92077-1x951 Rev.5000 860528 EXEC 2 for Characters /SRC_92077/R6000/HPCRTLIB.MAC I((HPCRTXSENDCHAR u.ENTR XLUEX @@0##8p5x  p!(! A" ` @@w7IIXI<#ȃ0 8HPCRTSENDCHAR 92077-1x951 Rev.5000 860528 EXEC 2 for Characters /SRC_92077/R6000/HPCRTLIB.MAC IrHPCRTSENDCHAR  :^.ENTR EXEC @@0##8p5x  p!(! A" ` @@yCCX0ȃ0 8HPCRTXMENU92077-1x951 Rev.5000 860528 Display menu /SRC_92077/R6000/HPCRTLIB.MAC C \HPCRTXMENU u.ENTP XLUEX [[00`p*8*`*Pp*( p8p,5x++p-!( .+A&/+,`-+([@|<BBXB0ȃ0 8HPCRTMENU 92077-1x951 Rev.5000 860528 Display menu/SRC_92077/R6000/HPCRTLIB.MAC B ZHPCRTMENU 8^.ENTP EXEC [[00`p*8*`*Pp*( p8p,5x++p-!( .+A&/+,`-+([@IIXvZȃ0 8HPCRTMODES92077-1x951 Rev.5000 860528 Set Page, Line, Char mode /SRC_92077/R6000/HPCRTLIB.MAC I$$%HPCRTCHARMODE HPCRTLINEMODE HPCRTPAGEMODE $f.DLD.DST.ENTR XLUEX XREIO YPP5`p9Ck1a11d!5`#p9Ck0a10dA$AA25`#p9$ C%k0a0&k0a0B&s1d0g0HXbW@p?pA`> Ap<PX?4W4P CUYAC @<FFX53ȃ0 8HPCRTSTATUS 92077-1x951 Rev.6000 920305 Get HP Crt Status /SRC_92077/R6000/HPCRTLIB.MAC F 8HPCRTSTATUS j.DSX.ENTR .LBT.LDXXLUEX VV33ZAh)h*xp-p+A0-hH0x-A/+-2h- 61H8(#^~@V@;%YLLX57.ȃ0 8HPCRTGETCURSOR92077-1x951 Rev.6000 920305 Read cursor position string /SRC_92077/R6000/HPCRTLIB.MAC LHPCRTGETCURSOR u.ENTP XLUEX KK..App%p'h#A x$*'$-A)%,X+`@&K@4JJXEA0ȃ0 8HPCRTGETCURSORXY92077-1x951 Rev.6000 920305 Read cursor position /SRC_92077/R6000/HPCRTLIB.MAC JCHPCRTGETCURSORXY|.ENTP DECIMALTOINTHPCRTGETCURSORXLUEX OO*00pp%A*%(#&*h* (#(*h*  W [O@K GGXDȃ0 8HPCRTSCREENSIZE 92077-1x951 Rev.6000 920424 Get screen size /SRC_92077/R6000/HPCRTLIB.MAC G%HPCRTSCREENSIZE ,,~>.DLD.ENTR .LBT.SBTHPCRTGETCURSORHPCRTGETCURSORXYXLUEX ,aa??Ap/A /8Ah>HDh7B/1C/?@A'B/8C? &a999 x999Y h&aXXXcXXXY va A @XLw DDX1Oȃ0 8HPCRTPARITY 92077-1x951 Rev.5000 870428 Parity Gen/Chk/SRC_92077/R6000/HPCRTLIB.MAC DHPCRTPARITYCHK*HPCRTPARITYGEN.ENTR CCA `$p&5p(AP&("88(( (!%h& AP&') `$p&(@p('M'A &''8'8((6*pNC  NpN NpN N$A@HHXlWȃ0 8HPCRTSTRIPCHAR92077-1x951 Rev.5000 860528 In-place char strip /SRC_92077/R6000/HPCRTLIB.MAC HHPCRTSTRIPCHARrj.CBX.ENTR .LBT.SBT.XBX44Ah6Hx(pDH8(`@4@CCbLLX6ȃ0 8HPCRTGETFIELD_S 92077-1x951 Rev.5000 860528 Get Unprot Field => string/SRC_92077/R6000/HPCRTLIB.MAC L(HPCRTGETFIELD_S .CBX.DLD.ENTR .LBT.SBT.XBXiii66h6@pp(HX((P58(xA@pHX(*HP5(*X('(@P((`4HX('(0 i@wLLXP+ȃ0 8HPCRTGETFIELD_I 92077-1x951 Rev.5000 860528 Get Unprot field => ibufr /SRC_92077/R6000/HPCRTLIB.MAC LHPCRTGETFIELD_I rj.CBX.ENTR .LBT.SBT.XBXUUY++Ah6@ppp(HX('P*H8(h6X('DP*('H8(@U@38IIXS$ȃ0 8HPCRTREADPAGE 92077-1x951 Rev.5000 860528 Perform Page Mode read/SRC_92077/R6000/HPCRTLIB.MAC IyHPCRTREADPAGE  u.ENTR XLUEX ??&$$pA6p" #(x hb_ ?@ӧgLLXȃ0 8ABREGREPLACEMENT92077-1x951 Rev.5010 860528 CDS compatible Reg. Fetch /SRC_92077/R6000/HPCRTLIB.MAC L2A_B_REGISTERS A_REGISTER`B_REGISTER@JJXv~ȃ0 8HPCRT_150_TOUCH 92077-1x951 Rev.5000 860528 TouchScreen Utilities /SRC_92077/R6000/HPCRTLIB.MAC JRRzLHP150_DEFFIELDHP150_DELFIELDHP150_GETFIELDHP150_SOFTKEY %HP150_TOUCHMODE  HP150_TOUCHOFFHP150_TOUCHRESETR%%vJ.CBX.CXB.DIV.ENTR .LBT.MBT.SBTXLUEX %&&9\A`hA`h zDzJ&px !-88)"A"`"p# 0>p:$ 0=p;A8 9?%-z0n1M n0z08yyx@CC@`phA ,B rC ,D cE pF bG eH fI aJ mK L`KAKH pA Ly00kH0 H8@A  00 @HH8-zg0u84 00N DD ` ppC@~(o8pI5p-/|C xJ (o-P(KHJ (@hJC`J(q`XIC(EH (]bbCP22@} h}C(ph-6H}rr rrH }C` pC@CpCH@Cr  b--[1A`ph r C -zd- w4 --Y A`ph s K ?-z?- vm @#4AMMXF0ȃ0 8HPCRTSCHEDPROG_S92077-1x951 Rev.5000 860528 Call HpCrtSchedProg w/char /SRC_92077/R6000/HPCRTLIB.MAC MH HPCRTSCHEDPROG_S))p.DSY.ENTR .LBT.LDX.LDY.SBT.XBXHPCRTSCHEDPROG)OOB,,AA8DhDX(H(`,X(8h.P-Ah/x+ SPRSEO@6HHXiȃ0 8SETBITMAP 92077-1x951 Rev.5000 860528 Set a bit in a bit array/SRC_92077/R6000/HPCRTLIB.MAC H nSETBITMAP CC.15.0 .ENTR D@H @#JJXȃ0 8CLEARBITMAP 92077-1x951 Rev.5000 860528 Clear a bit in a bit array/SRC_92077/R6000/HPCRTLIB.MAC J CLEARBITMAP CC.15.0 .ENTR !!D@H!@oIIXNȃ0 8TESTBITMAP92077-1x951 Rev.5000 860528 Test a bit in a bit array /SRC_92077/R6000/HPCRTLIB.MAC I `TESTBITMAP CC.15.0 .ENTR &&wDH @@&@GPfLLXȃ0 8TEST_SETBITMAP92077-1x951 Rev.5000 860528 Test and set bit in bit map /SRC_92077/R6000/HPCRTLIB.MAC LTEST_SETBITMAP CC.15.0 .ENTR ..uD@pH( 0@.@BagIIX4ȃ0 8.15.0 92077-1x951 Rev.5000 860528 Bit table for BitMap routines /SRC_92077/R6000/HPCRTLIB.MAC I t.15.0 @ @ @+KKX!ȃ0 8HPZFMT92077-1x951 Rev.5020 891025 HpZ Mini-Formatter initialization /SRC_92077/R6000/HPCRTLIB.MAC K==FHPZIBUFPOSHPZIBUFLIMITHPZIBUFBADDRHPZOBUFWADDRHPZOBUFBADDRHPZOBUFPOS=iHPZDEFIBUFHPZDEFOBUF $TIME .ENTP .ENTR .XLA<<X!!Aph6H@ppHx h@Dx6xx<@ HHXߡ((ȃ0 8HPZMVS92077-1x951 Rev.5020 891025 Move string to output line /SRC_92077/R6000/HPCRTLIB.MAC H AdHPZOBUFPOS vHPZMVS  e.ENTR .MBT 3A8xDhHx@SRrJJX( ȃ0 8HPZMVC92077-1x951 Rev.5020 891025 Move Characters to output line /SRC_92077/R6000/HPCRTLIB.MAC J AdHPZOBUFPOS gHPZMVC  e.ENTR .MBT _ `6hAx@R1pKKXq.ȃ0 8HPZDECV 92077-1x951 Rev.5020 891025 Decimal output (variable width) /SRC_92077/R6000/HPCRTLIB.MAC K AdHPZOBUFPOS HPZDECV $$O.CBX.CXA.DIV .DSY.ENTR .LDY.SBT.XBX$MM..'d `*p+hD`, x H( X("H@-8H (@-Hx-0M@IIXwȃ0 8HPZWRITELU92077-1x951 Rev.5020 891025 Write HpZ buffer to an LU /SRC_92077/R6000/HPCRTLIB.MAC I C֧HPZOBUFPOSHPZOBUFWADDRHPZOBUFBADDR vHPZWRITELU :^.ENTR EXEC ##E`@p`Hp#@KKXxkȃ0 8HPZWRITEXLU 92077-1x951 Rev.5000 860528 Write HpZ buffer using XLUEX/SRC_92077/R6000/HPCRTLIB.MAC K C֧HPZOBUFPOSHPZOBUFWADDRHPZOBUFBADDR +HPZWRITEXLU u.ENTR XLUEX ##E`@p`Hp#@i7HHXȃ0 8HPZOCTO 92077-1x951 Rev.5020 891025 Octal output (6 char wide)/SRC_92077/R6000/HPCRTLIB.MAC H AdHPZOBUFPOS HPZOCTO z.DSY.ENTR .LDX.LDY.SBT.STX.XBX --BAJABC@@D( 0-@j쉬JJXQȃ0 8HPZOCTC 92077-1x951 Rev.5020 891025 Octal output (1..5 char wide) /SRC_92077/R6000/HPCRTLIB.MAC J AdHPZOBUFPOS HPZOCTC .DSY.ENTR .LDY.SBT11ScH(Dhӈp@`(x01@+EEX\ ȃ0 8HPZSBT92077-1x951 Rev.5020 891025 Output a single byte /SRC_92077/R6000/HPCRTLIB.MAC E AdHPZOBUFPOS }HPZSBT  k.ENTR .SBT Z ADhx@-FFX2ȃ0 8HPZPARSE92077-1x951 Rev.5020 891025 16 Char parse routine /SRC_92077/R6000/HPCRTLIB.MAC FB*HPZIBUFPOSHPZIBUFLIMIT HPZPARSE ,, .CBX.DSX.DSY.ENTR .LBT.LDX.LDY .MPY .SBT .XBX,FFAAhx:m ( 8:hkxx?x@p;PoPqx?PtPs(yPpPn(xx>vPu(^x@`l`kpg@rDphXi(x(O  +,-0:=Bxix@h=X>(h?X@( g:h?x?@hJJ7$$`(@ga(:X@(h;Xq:`hAh:6 HH X@( H (J@~FFX/ȃ0 8GETRUNSTRING92077-1x951 Rev.5000 860528 Better than GetSt /SRC_92077/R6000/HPCRTLIB.MAC F UGETRUNSTRING .CBY.DSX.DSY.ENTR .LBT.LDXEXEC RR//6pA.+(" ("h6x,P-($H(H( `@,R@Jxi8JJXs ȃ0 8HPZGETNEXTSTRDSC92077-1x951 Rev.5020 891025 Make StrDsc for token /SRC_92077/R6000/HPCRTLIB.MAC JB*HPZIBUFPOSHPZIBUFLIMITgHPZGETNEXTSTRDSC.DLD.DST.ENTR .LBT;; AHphxHHX(P(PPH(8X(HD( x ,;@&LLX,ȃ0 8HPZGETNEXTTOKEN 92077-1x951 Rev.5020 891025 Copy String from HpZ Ibuf /SRC_92077/R6000/HPCRTLIB.MAC LB*HPZIBUFPOSHPZIBUFLIMIT\HPZGETNEXTTOKEN .CBX.DLD.ENTR .LBT.SBT.XBXQQ',,AA@p(@p)hHHX(P*( P+P*(X(D8)X((xH`*X((&H("`) ,Q@|<LLXx+ȃ0 8HPZRESCAN 92077-1x951 Rev.5020 891025 Reset Scan Pointers for Parsing /SRC_92077/R6000/HPCRTLIB.MAC L CHPZIBUFPOSHPZIBUFLIMITHPZIBUFBADDR YHPZRESCAN  f.ENTR .LBT RR++hHxH*X(HH*(H*X(H*( HX(P(P)(HxP&P'8 ,:=R@mLLXȃ0 8HPZIBUFUSED 92077-1x951 Rev.5020 891025 Show current position in ibuf /SRC_92077/R6000/HPCRTLIB.MAC LBHPZIBUFPOSHPZIBUFBADDR 0HPZIBUFUSED .ENTR Vg`@@[LLX ȃ0 8HPZOBUFUSED 92077-1x951 Rev.5020 891025 Show current position in Obuf /SRC_92077/R6000/HPCRTLIB.MAC LBHPZOBUFPOSHPZOBUFBADDRHPZOBUFUSED HPZOBUFUSESTRDSC /].DST.ENTP q pAH`hA@@}=LLXȃ0 8HPZIBUFREMAIN 92077-1x951 Rev.5020 891025 Show remaining bytes in ibuf/SRC_92077/R6000/HPCRTLIB.MAC LB*HPZIBUFPOSHPZIBUFLIMITHPZIBUFREMAIN .ENTR Vg`@@؁IIX4 ȃ0 8HPZOBUFRESET92077-1x951 Rev.5020 891025 Erase the output buffer /SRC_92077/R6000/HPCRTLIB.MAC IBHPZOBUFPOSHPZOBUFBADDR wHPZOBUFRESET .ENTR  D@ph x@8WVJJX; ȃ0 8FIRSTCHARACTER92077-1x951 Rev.5000 860528 Get 1st char, L1 format /SRC_92077/R6000/HPCRTLIB.MAC JFIRSTCHARACTER.ENTR R A 0 @ȕUGGXȃ0 8HPZPADTOCOUNT 92077-1x951 Rev.5020 891025 Output # of blanks/SRC_92077/R6000/HPCRTLIB.MAC G AdHPZOBUFPOS zHPZPADTOCOUNT .DSX.ENTR .LDX.SBT&AAHh` D(x @H_gLLX?ȃ0 8HPZPADTOPOSITION92077-1x951 Rev.5020 891025 Output blanks to position /SRC_92077/R6000/HPCRTLIB.MAC LBHPZOBUFPOSHPZOBUFBADDR_HPZPADTOPOSITION.CAX.ENTR .ISX.SBT$$A@@DhH`( Hx $@~wJJX!ȃ0 8HPZASCII9592077-1x951 Rev.5020 891025 Output Ascii 95 char subset /SRC_92077/R6000/HPCRTLIB.MAC J AdHPZOBUFPOS XHPZASCII95 $$.DSY.ENTR .LBT.LDX.LDY.SBT .STX.XBX$??:!!AJAh6H@ (@(@DD(  (~?@:YoJJX!ȃ0 8HPZASCII6492077-1x951 Rev.5020 891025 Output Ascii 64 char subset /SRC_92077/R6000/HPCRTLIB.MAC J AdHPZOBUFPOS UHPZASCII64 $$.DSY.ENTR .LBT.LDX.LDY.SBT .STX.XBX$??:!!AJAh6H@ (@(@DD(  (_?@3RjKKXJFȃ0 8HPZASCIIHPENH 92077-1x951 Rev.5020 891025 Ascii w/Video Enhancements/SRC_92077/R6000/HPCRTLIB.MAC K AdHPZOBUFPOS fHPZASCIIHPENH (( H%.CBX .DSY.ENTR .LBT.LDY .MBT.SBS.SBT.XBX(yydvFFh6AHh`CDp4@D(@DA>4A(`E?4@B($@A=4@@p0`44`0`C H( 4x d&d@P34p3`1 >4 @_d@y@k+HHXȃ0 8HPZDECO 92077-1x951 Rev.5020 891025 Decimal output (6 digits) /SRC_92077/R6000/HPCRTLIB.MAC H AdHPZOBUFPOS ~HPZDECO j$HPZIDECA .ENTR .LDY.SBT&&A` HhADx- &@|<LLXȃ0 8$HPZIDECA 92077-1x951 Rev.5000 860528 HpZ internal integer to decimal /SRC_92077/R6000/HPCRTLIB.MAC L $$HPZIDECA ## .CAX.CBX.CXA.CYA.DIV.ISY.SBT.XBX#--z'd D@pD @8( 0-@9dX$JJXȃ0 8HPZHEXO 92077-1x951 Rev.5020 891025 Hexadecimal output (4 digits) /SRC_92077/R6000/HPCRTLIB.MAC J AdHPZOBUFPOS HPZHEXO .DSY.ENTR .LDY.SBT11-qAhp@@@`(x((:1@$CwKKXcȃ0 8HPZASCIIMNE492077-1x951 Rev.5020 891025 Output Ascii with mnemonics /SRC_92077/R6000/HPCRTLIB.MAC K AdHPZOBUFPOS )HPZASCIIMNE4 $$r.CBX .DSY.ENTR .LBT.LDY.MBT.SBT.XBX$TThD6hDaPa@bQ(@`p@@(]`^(#@_D`^HH ( xRDelNulSohStxEtxEotEnqAckBelBs Ht Lf Vt Ff Cr So Si DleDc1Dc2Dc3Dc4NakSynEtbCanEm SubEsVTcFs Gs Rs UsSpc  !"@6_UKKXbȃ0 8HPZASCIIMNE392077-1x951 Rev.5020 891025 Output Ascii with mnemonics /SRC_92077/R6000/HPCRTLIB.MAC K AdHPZOBUFPOS (HPZASCIIMNE3 $$r.CBX .DSY.ENTR .LBT.LDY.MBT.SBT.XBX$TThD6hD`P`@aQ(@_p@@'\`](#@^D`] ( xPDelNulSohStxEtxEotEnqAckBelBs Ht Lf Vt Ff Cr So Si DleDc1Dc2Dc3Dc4NakSynEtbCanEm SubEscFD5Ts Gs Rs Us Spc  !"@pJJX!ȃ0 8HPZOCTV 92077-1x951 Rev.5020 891025 Octal output (variable width) /SRC_92077/R6000/HPCRTLIB.MAC J AdHPZOBUFPOS HPZOCTV .DSY.ENTR .LDY.SBT<<q!!AAHhp (`p@ P (XHD( XHx0<@ZKKX Uȃ0 8HPZDICV 92077-1x951 Rev.6000 920918 Double int dec output (variable)/SRC_92077/R6000/HPCRTLIB.MAC K AdHPZOBUFPOS "~HPZDICV  .DIV.ENTR .SBTGCCApO`BpApP8 (8OX(pP(@ !pN` Qp`N!AQHSA8Ah ((#PPBhPO(6`R`A@THpA`APB(?(7xC|N -0@w7JJXwȃ0 8HPZMVS_ESCAPE 92077-1x951 Rev.5020 891025 Move string _ -> Escape /SRC_92077/R6000/HPCRTLIB.MAC J AdHPZOBUFPOS rHPZMVS_ESCAPE  h.DSY.ENTR .LBT.LDX.LDY.SBT.XBX 66AA8DhHP(HH( x@`D((_6@XKKXg'!ȃ0 8HPZMVS_CONTROL92077-1x951 Rev.5020 891025 Move string _ -> Control /SRC_92077/R6000/HPCRTLIB.MAC K AdHPZOBUFPOS +HPZMVS_CONTROL h.DSY.ENTR .LBT.LDX.LDY.SBT.XBX ;;!!AA8DhDP(HH( xHA( (@(_;@oIIXȃ0 8HPZBINO 92077-1x951 Rev.5020 891025 Binary output (16 char wide)/SRC_92077/R6000/HPCRTLIB.MAC I AdHPZOBUFPOS HPZBINO .DSY.ENTR .LDY.SBT&&cADhp`HH`(Hx&@.TMOOX%ȃ0 8"HPZUDECV92077-1x951 Rev.5020 891025 Unsigned decimal output (variable widt /SRC_92077/R6000/HPCRTLIB.MAC O AdHPZOBUFPOS HPZUDECV $$O.CBX.CXA.DIV .DSY.ENTR .LDY.SBT.XBX$@@%%'d `"p#h H(X(H@$8H (@$Hx0@@ )jKKXal ȃ0 8HPZUDECO92077-1x951 Rev.5020 891025 Unsigned dec. output (5 digits) /SRC_92077/R6000/HPCRTLIB.MAC K AdHPZOBUFPOS HPZUDECO f$HPZIDECA .ENTR .LDYe AAh Dx@~흭IIX;Fȃ0 8COMPRESSASCIIRLE92077-1x951 Rev.5010 880902 Buffer compression /SRC_92077/R6000/HPCRTLIB.MAC I0COMPRESSASCIIRLE c.CAY.CBX.DSY.ENTR .LBT.SBT.XBX FFh6h6xx-@p.((DHP-(/(, 2p-( 2`@`C8.(!p-`.@E(:`D`.H@.p.B(5`-2 @IIX;ȃ0 8EXPANDASCIIRLE92077-1x951 Rev.5010 880902 Buffer de-compression /SRC_92077/R6000/HPCRTLIB.MAC IޞEXPANDASCIIRLE c.CAY.CBX.DSY.ENTR .LBT.SBT.XBX jj;;AHh6h6@p+($DX+()@(-H(`6@`809p,H:X+()H8,(2( j@ -*JJXSȃ0 8FILLBUFFER92077-1x951 Rev.5000 860528 Set a buffer to a constant /SRC_92077/R6000/HPCRTLIB.MAC J A FILLBUFFER .ENTR --b(ph 8( `p-@MMXȃ0 8COMPAREWORDS92077-1x951 Rev.5000 860528 Compare 2 buffers for equality /SRC_92077/R6000/HPCRTLIB.MAC M xCOMPAREWORDS +].CMW.ENTR DžA`hA(@KLLXvȃ0 8COMPAREBUFS 92077-1x951 Rev.5020 890404 Compare 2 buffers for equality/SRC_92077/R6000/HPCRTLIB.MAC L %COMPAREBUFS +].CMW.ENTR **0`h(h@*@s3HHXGM3ȃ0 8HPZFIELDDEFINE92077-1x951 Rev.5020 891025 Define form fields /SRC_92077/R6000/HPCRTLIB.MAC H AdHPZOBUFPOS }HPZFIELDDEFINE  k.ENTR .SBT cc`33h(` '(][2P1(0.'`'Hx0P/0-p`,'`'@H'&d c@uIIXSȃ0 8MINSTRDSC 92077-1x951 Rev.5000 870916 Build minimum string desc./SRC_92077/R6000/HPCRTLIB.MAC I WMINSTRDSC ""R.CAY.CYA.DSY.ENTR .ISY.LBTTRIMLEN "--AA8(HP(H( HH -@{ŚHHXȃ0 8HPZMBT92077-1x951 Rev.5020 891025 Copy Bytes to output buffer /SRC_92077/R6000/HPCRTLIB.MAC H AdHPZOBUFPOS yHPZMBT  e.ENTR .MBT XA`6Ahx@3EEXJ ȃ0 8HPRTEA92077-1x951 Rev.5010 880217 See if opsys is RTE-A /SRC_92077/R6000/HPCRTLIB.MAC E iHPRTEA )e$OPSY .XLA wZ @ (@ @SEEX? ȃ0 8HPRTE692077-1x951 Rev.5010 880217 See if opsys is RTE-6 /SRC_92077/R6000/HPCRTLIB.MAC E ^HPRTE6 )e$OPSY .XLA wJ @ (@ @-IIX ȃ0 8HPZHEXC 92077-1x951 Rev.5020 891025 Hex output (1..3 char wide) /SRC_92077/R6000/HPCRTLIB.MAC I AdHPZOBUFPOS HPZHEXC .DSY.ENTR .LDY.SBT;;)% H (hAp@@@H`(x:;@'FUKKX)ȃ0 8HPZBINC 92077-1x951 Rev.5020 891025 Binary output (1..15 char wide) /SRC_92077/R6000/HPCRTLIB.MAC K AdHPZOBUFPOS HPZBINC .DSY.ENTR .LDY.SBT33H (hAp@`HH(x03@DDX^'ȃ0 8HPCRTHARDRESET92077-1x951 Rev.5010 Stomp on terminal /SRC_92077/R6000/HPCRTLIB.MAC DпHPCRTHARDRESET@.ENTR EXECXLUEX >>L''App $A"(#!"!&%(ZE >@f&GGX^S6ȃ0 8HPZDECC 92077-1x951 Rev.5020 891025 Decimal with field width/SRC_92077/R6000/HPCRTLIB.MAC G AdHPZOBUFPOS HPZDECC o.CBX.CXA.DIV.ENTR .SBT.XAX.XBX __66 d' h3x1@5pP2(A Dh@P5(,pDAH03P1H04p1(HD04x 0_@}=JJXȃ0 8HPZGETNEXTCHAR92077-1x951 Rev.5020 890217 Get char. from HpZ Ibuf /SRC_92077/R6000/HPCRTLIB.MAC JB*HPZIBUFPOSHPZIBUFLIMITHPZGETNEXTCHAR  e.ENTR .LBT ADhXHxh  H @u#5LLXp ȃ0 8HPZPEEKNEXTCHAR 92077-1x951 Rev.5020 890217 Peek char. from HpZ Ibuf /SRC_92077/R6000/HPCRTLIB.MAC L AdHPZIBUFPOS GHPZPEEKNEXTCHAR D.ENTR .LDX.STXHPZGETNEXTCHAR AJA @.KKX:ȃ0 8HPZBACKSPACEIBUF92077-1x951 Rev.5020 890217 Backspace HpZ Ibuf ptr. /SRC_92077/R6000/HPCRTLIB.MAC K AdHPZIBUFPOS SHPZBACKSPACEIBUF}@Hp@RqSHHX ȃ0 8((HPZIBUFRESET92077-1x951 Rev.5020 890217 Reset ptr to HpZ Ibuf /SRC_92077/R6000/HPCRTLIB.MAC HBHPZIBUFPOSHPZIBUFBADDR pHPZIBUFRESET .ENTP ;f pAD@p@s23NNXM ȃ0 8HPZIBUFUSESTRDSC92077-1x951 Rev.5020 890217 Get StrDsc for used HpZ Ibuf /SRC_92077/R6000/HPCRTLIB.MAC NBHPZIBUFPOSHPZIBUFBADDRWHPZIBUFUSESTRDSC 1].DST.ENTR ۡ AH`h@A@ІPPX1 ȃ0 8HPZGETREMSTRDSC 92077-1x951 Rev.5020 890217 Make StrDsc for rem. of HpZ Ibuf /SRC_92077/R6000/HPCRTLIB.MAC PB*HPZIBUFPOSHPZIBUFLIMITCHPZGETREMSTRDSC  1].DST.ENTR ۡ AH`h@A@PnKKXDuȃ0! 8HPZMOVESTRING 92077-1x951 Rev.5020 891004 Do FTN string assignment /SRC_92077/R6000/HPCRTLIB.MAC KHPZMOVESTRING .CAX.DLD.ENTR .MBT.SBT.SST;;C@pp8A`HX( ;@c!LLX4ȃ0! 8HPZGETNUMSTRDSC 92077-1x951 Rev.5020 891004 Get num StrDsc HpZ Ibuf /SRC_92077/R6000/HPCRTLIB.MAC LB*HPZIBUFPOSHPZIBUFLIMIT?HPZGETNUMSTRDSC $$=.CAX .CXB .DST.DSX.ENTR .ISX.LBT.LDX$[[44ADhxHHX(P0(P1(P2(@3P@/H!(X(HH((`@(%P.JDx   +-[@gKKXg ȃ0! 8HPZGETNUMD2 92077-1x951 Rev.5020 890217 Get Dec to *2 from HpZ Ibuf /SRC_92077/R6000/HPCRTLIB.MAC K -HPZGETNUMD2 (.ENTR DECIMALTOINTHPZGETNUMXA AA  @ =+KKX"p ȃ0! 8HPZGETNUMO2 92077-1x951 Rev.5020 890217 Get Oct to *2 from HpZ Ibuf /SRC_92077/R6000/HPCRTLIB.MAC K 8HPZGETNUMO2 .ENTR HPZGETNUMXOCTALTOINTA AA  @KKX h ȃ0" 8HPZGETNUMD4 92077-1x951 Rev.5020 890217 Get Dec to *4 from HpZ Ibuf /SRC_92077/R6000/HPCRTLIB.MAC K -HPZGETNUMD4 A>.ENTR DECIMALTODINT HPZGETNUMXB AA  @bUKKX&q ȃ0" 8HPZGETNUMO4 92077-1x951 Rev.5020 890217 Get Oct to *4 from HpZ Ibuf /SRC_92077/R6000/HPCRTLIB.MAC K 8HPZGETNUMO4 .ENTR HPZGETNUMXOCTALTODINT B AA  @MkMMX*ȃ0" 8HPZGETNUMB2 92077-1x951 Rev.5020 890217 Get Dec/Oct to *2 from HpZ Ibuf /SRC_92077/R6000/HPCRTLIB.MAC M AdHPZIBUFPOS +HPZGETNUMB2 22FK.ENTR DECIMALTOINTHPZGETNUMSTRDSC HPZGETNUMXHPZPEEKNEXTCHAR OCTALTOINT2AA##AA#(! #h%(`#0'P(h&xAh$x)hX&8Ar% b@L$jMMX)ȃ0" 8HPZGETNUMB4 92077-1x951 Rev.5020 890217 Get Dec/Oct to *4 from HpZ Ibuf /SRC_92077/R6000/HPCRTLIB.MAC M AdHPZIBUFPOS +HPZGETNUMB4 44w.ENTR DECIMALTODINT HPZGETNUMSTRDSC HPZGETNUMXHPZPEEKNEXTCHAR OCTALTODINT 4AA##AA#(! #h%(`#0'P(h&xAh$x'hX&8Ar% b@M JJXȃ0# 8HPZGETNUMX92077-1x951 Rev.5020 890217 Get Num to ?? from HpZ Ibuf /SRC_92077/R6000/HPCRTLIB.MAC J AdHPZIBUFPOS d"HPZGETNUMX !.ENTR HPZGETNUMSTRDSC 77.AA (8``@p7@ݣcMMX#ȃ0# 8HPZSTRIPBLANKS92077-1x951 Rev.5020 891002 Strip trailing blanks in Obuf /SRC_92077/R6000/HPCRTLIB.MAC MBHPZOBUFPOSHPZOBUFBADDRHPZSTRIPBLANKS  TRIMLEN Hp`Hp@pA @Hp @GGXa ȃ0# 8GETBYTE 92077-1x951 Rev.5020 890929 Get a byte from an array/SRC_92077/R6000/HPCRTLIB.MAC G GETBYTE  c.ENTR .LBT [ h6H@ GGXq ȃ0# 8PUTBYTE 92077-1x951 Rev.5020 890929 Put a byte into an array/SRC_92077/R6000/HPCRTLIB.MAC G #PUTBYTE  j.ENTR .SBT  Ah6H@>\JJXmȃ0# 8TEST_PUTBYTE92077-1x951 Rev.5020 890929 Put byte & test for zero /SRC_92077/R6000/HPCRTLIB.MAC J fTEST_PUTBYTE .ENTR .LBT.SBT$$cAh6@xh@$@t“IIXk ȃ0$ 8GETNIBBLE 92077-1x951 Rev.5020 890929 Get a nibble from an array/SRC_92077/R6000/HPCRTLIB.MAC I LGETNIBBLE  .ENTR .POSITIONNIBBLE   @B@ @#AHHX)ȃ0$ 8PUTNIBBLE 92077-1x951 Rev.5020 890929 Put a nibble in an array/SRC_92077/R6000/HPCRTLIB.MAC H UPUTNIBBLE  .ENTR .POSITIONNIBBLE ,,oA @B@p׈,@`~LLX ȃ0$ 8.POSITIONNIBBLE 92077-1x951 Rev.5020 890929 Get/Put/Nibble subroutine /SRC_92077/R6000/HPCRTLIB.MAC L.POSITIONNIBBLE  H  @@'dGGX ȃ0$ 8GETDIBIT92077-1x951 Rev.5020 890929 Get pair from an array /SRC_92077/R6000/HPCRTLIB.MAC G GETDIBIT .ENTR .POSITIONDIBITv  @C@ @0IIXȃ0$ 8PUTDIBIT92077-1x951 Rev.5020 890929 Put bit pair into an array /SRC_92077/R6000/HPCRTLIB.MAC I PUTDIBIT .ENTR .POSITIONDIBIT//4A @C@p/@%KKX; ȃ0% 8.POSITIONDIBIT92077-1x951 Rev.5020 890929 Get/Put/Dibit subroutine /SRC_92077/R6000/HPCRTLIB.MAC Kѩ.POSITIONDIBIT H    @}=HHXgȃ0% 8GETBITMAP 92077-1x951 Rev.5020 890929 Get a bit from an array /SRC_92077/R6000/HPCRTLIB.MAC H bGETBITMAP CC.15.0 .ENTR 9DHH@ @QpHHXp+ȃ0% 8PUTBITMAP 92077-1x951 Rev.5020 890929 Put a bit into a bit map/SRC_92077/R6000/HPCRTLIB.MAC H kPUTBITMAP CC.15.0 .ENTR ,,7^A@DH@Hp 0,@7VIIX&ȃ0% 8HPZINSERTATFRONT92077-1x951 Rev.5020 890313 Push in characters /SRC_92077/R6000/HPCRTLIB.MAC I C֤HPZOBUFPOSHPZOBUFWADDRHPZOBUFBADDR _HPZINSERTATFRONT$$|.CAX.CAY.ENTR .ISY.LBT .MBT .SBT.XBX$CCc&&(#h@p@%`H%@(DH$HD H$ (`6hA C@@|_<GGX>Bȃ0& 8HPZLARGE92077-1x951 Rev.5020 890601 Create large characters /SRC_92077/R6000/HPCRTLIB.MAC G AdHPZOBUFPOS ""HPZENDLARGE 0HPZMVS_LARGE HPZSTARTLARGE "$$O.CAY.CBX.DLD.ENTR .ISY.LBT.MBT.XBX$II)C )C )CAA p HAh`CHx   ph`IHFx@L`JpM@M@N6pM4=4=4`GAE A`MDpM4 `KE=AA&I__A&_AvO | # 0 S |## | CC CC |!C+GC+GCL|P P3D E |!&+5&@G&L|!&+G&?G&L| Z Z | Y L | 3 2 | %&,%&,| ) D |!&+ >D S |!&+!.0GIL|!&+/&?E E|"&+/&@F&L|!&+0 G&L|"&+0 0F&L|Ug``"&,/& F&,|"&,/& E |!&+0 .G&L|# #/&?E E| ' 0 I | # 0G&L|# #/6AE E|# 0 F&,|$(-070E E|$)#08BE E|"&.0 0F&M|"&+/&LE |!&+0 0G&N|"&+/&@E E|!&+G&+G&L|%', 0 E |# #0 0G&L|# #0 02JD|# #090HKO|# \h``#1:AE E|# #2;D E |"&.3JJX30Xȃ0' 8HPZROMANNUMERAL 92077-1x951 Rev.5020 890601 Int to Roman numerals /SRC_92077/R6000/HPCRTLIB.MAC J AdHPZOBUFPOS MHPZROMANNUMERAL ** y.DIV .DSY.ENTR .LBT.LDX.LDY .SBT.XBXHPZDECV *4fII@DMCDMCXLCXIVXI d (J@W(J`Up`VpT 8xhQHpODhSH0pN`OpOR(CpP`NH 8P(@ (3x`(&MIM(IAA @S6EEX2 ȃ0' 8HPZNLSSUBSET92077-1x951 Rev.5020 891024 NLS to HpZ link /SRC_92077/R6000/HPCRTLIB.MAC E'HPZNLSSTRNGPNTRSHPZNLSSUBSET[.DLD  sHx@ ^DDX3ȃ0( 8HPZNLSMVS 92077-1x951 Rev.5020 891024 Copy Nls string /SRC_92077/R6000/HPCRTLIB.MAC D AdHPZOBUFPOS oHPZNLSMVS .DLD.ENTR .MBTHPZNLSSTRNGPNTRS""AH@`HxDhHx"@X EEXfȃ0( 8HPCRTNLSXMENU 92077-1x951 Rev.5020 891024 NLS HpCrtMenu /SRC_92077/R6000/HPCRTLIB.MAC EHPCRTNLSXMENU  .DLD.ENTP HPCRTXSENDCHARHPZNLSSTRNGPNTRS44ApDp@p@p`( 4@M DDXȃ0( 8HPCRTNLSMENU92077-1x951 Rev.5020 891024 NLS HpCrtMenu /SRC_92077/R6000/HPCRTLIB.MAC D iHPCRTNLSMENU .ENTP HPCRTNLSXMENU //pppp?/@"{HHXP ȃ0( 8HPZDEFISTRING 92077-1x951 Rev.5020 891025 Setup string for HpZ/SRC_92077/R6000/HPCRTLIB.MAC H CHPZIBUFPOSHPZIBUFLIMITHPZIBUFBADDR vHPZDEFISTRING [.DLD p@Dxx@p@EdIIXȃ0) 8HPCRTGETMENUITEM92077-1x951 Rev.5020 891101 Get word at cursor /SRC_92077/R6000/HPCRTLIB.MAC I0HPCRTGETMENUITEMTT$HPZIDECA .CBX .CBY.CXA.CXB .CYB.DLD .DST.ENTR .LBT.LDY .SBT .XBXHPCRTGETLINE_POSHPCRTSTRIPCNTRLSXLUEX TII&a000CA RJA A px@p#pA(phHxHHx @@@h`P(XX (S(:X (S(?H`iIHHAhQA(A (K A_ (` `(X(r(kH(dHX(r(kX (~D(r   X (~(~(v`D h@ A a+1r))A hX(P(P((8A) i @$YCIIXȃ0) 8HPCRTGETLINE_POS92077-1x951 Rev.5020 891026 Get line, curs pos /SRC_92077/R6000/HPCRTLIB.MAC IOHPCRTGETLINE_POS22 j .CBX .CXA.DSY.ENTR .LBT.LDYCLRQEXECLURQXLUEX XREIO 2LLGda@  App(Ap " (%hhx` 0p 4  (U` (>A>  (+h Hx hHH(ULOO(US (U(+YA (Z`(g (Hh HPHp@p@@H(p ( p   D ( c< @@@ݠ`FFX9ȃ0* 8HPCRTSTRIPCNTRLS92077-1x951 Rev.5020 891031 Kill esc seq /SRC_92077/R6000/HPCRTLIB.MAC FBHPCRTSTRIPCNTRLS .CBX.CXA.CXB.ENTR .LBT.SBT.XBX kkz99hHxH@pHX(/@(@D( P.( HX(/@-( X(/H@,P@+ ( ("D`@hk@^HHXY-ȃ0* 8HPZWRITETOSTRING92077-1x951 Rev.5020 900306 HpZObuf -> string /SRC_92077/R6000/HPCRTLIB.MAC HBHPZOBUFBADDRHPZOBUFPOSqHPZWRITETOSTRING .DLD.ENTR .MBT.SBT::A@HhH@x@Dp`p`X((` :@aFFX;ȃ0* 8HPZHEXI 92077-1x951 Rev.6000 920917 Convert Hex to Integer/SRC_92077/R6000/HPCRTLIB.MAC F CHPZIBUFBADDRHPZIBUFPOSHPZIBUFLIMIT HPZHEXI .CAX.CAY .CYA.DSX.ENTP .LBTkk ;;A`3pDhX(*P5P7(-@8P@6 ("07@9P@4!(1@6p0HD(x  (*(H:(* k@'EEXzȃ0+ 8HPZDPARSE 92077-1x951 Rev.6000 920918 Double Int Parser /SRC_92077/R6000/HPCRTLIB.MAC E CHPZIBUFLIMITHPZIBUFPOSHPZIBUFBADDR jHPZDPARSE <<o.CAX.CAY.CXB.DAD.DMP.DNG .DST.ENTR .LBT.SBT .XAX .XAY.XBX .XBY<v@@Ahxx(jPP( P(P(((lp8hЈ(5@P@!(.p@ #0H (HX 0P(J(O@P@!D(Gp  ~~@@@AAD  (6HH (L(O(nD  8A (iH`@H`X(g(ch(i8ڈ(@P@ (Xڈ(0@P@!(@~EE@p $H0 (p +-b(O((NP(`@pphЈ([([HXH( PPPPP8!(`@Ѐ(33o( (ÀHhڨHDX( x8Ш,:= 3@KKX_ (FAKESPSTATUS92077-1X995 Rev.5010 880218 Fake 6 Special Status read /SRC_92077/R6000/HPCRT_A_6.MACK {"FAKESPSTATUS .DIV.ENTR .MPY.MVW.XLA.XLB/PPDV?0? ?????D D  p hH HwA@wn@p@kx@l@ppvp pup`r@p DPII@p @p p` hm`th`sXq0ppA`jh!o"   ?y DPRMPTD?????Dp@(@p@@xHw` == @x A08` 00h `( d00?0?D=@so/KKX*_ (HPCRTSSRCDRIVER?92077-1X995 Rev.5020 900404 Special HpCrtSSRCDriver /SRC_92077/R6000/HPCRT_A_6.MACKQHPCRTSSRCDRIVER?.ENTR .MPY.XLAKK**A@A$@)#@hH!(P%P&P'(H" ?K@79UJJXy q_ (HPCRTSCHEDPROG92077-1X951 Rev.5270 900621 Set interrupt programs /SRC_92077/R6000/HPCRT_A_6.MACJHPCRTSCHEDPROGDDZ$LIBR $LIBX $SCTB .CAY .CBT.DIV .DSX .DSY.ENTR .LBT .LDX .SBT.XLA.XSAXLUEX D!$GGAphn(^x`6pJ A@kpf`iApghj k@ph5!m(A `hH (%`hjA k(X`g@k8fH (!c(^Ah`g kph5pg!BBL%%Hppc0cA!gH`h (Ec^ofhlxAc @AB@A IIX_ )SETPRIORITY 92077-1x995 Rev.5010 881027 Read and change priority/SRC_92077/R6000/HPCRT_A_6.MACI -SETPRIORITY 1i$LIBR $LIBX .ENTR .XLA.XSB$$fA`@p((A @AA$@&E^IIX?_ )$HPCRTIDENTMUX92077-1x951 Rev.5020 900205 (6) Get Rev. of 8-MUX /SRC_92077/R6000/HPCRT_A_6.MACIߡ$HPCRTIDENTMUX$LIBR $LIBX .ENTR .STIO llM??A !4`9*0`:*0Xp/*Xh=@;  `/Ah< (,*h< (7(20h>(&`l@XKKXy+_ )HPLOWERCASENAME 92077-1x995 Rev.5020 891025 RTE-6 Change Name to LC /SRC_92077/R6000/HPCRT_A_6.MACK+HPLOWERCASENAME %%J$LIBR $LIBX .DSX.LBT.LDX.MBF.MBI.SBT%@@""`@&6Ap h!%HAh!%H@)P@'!(@(H*D( `!h A% D@% a@ ?S>>X Ŝ HPCRTCRC16_F92077-1X953 REV.5020 891106 /SRC_92077/R5020/HPCRTCRC16.MAC > /HPCRTCRC16_F  c.ENTR .LBT R[TTAh6pHp @p`p8(ר @AAā@ A΁@ ˁ @ AAځ@߁@AՁ@T``AAЁ@01A32@67@54A<=@?>A:;A98@()@+*A./A-,@$%A'&@"#@! A`aAcb@fg@edAlm@``onAjkAih@xy@{zA~A}|@tuAwv@rs@qpAPQ@SRAVWAUT@\]A_^@Z[@YXAHIAKJ@NO@MLADE@g GFABCAA@@@B6`>>X:KŜ (HPCRTCRC16_S92077-1X953 REV.5020 891106 /SRC_92077/R5020/HPCRTCRC16.MAC > <HPCRTCRC16_S  c.ENTR .LBT {{KKAh6pHp p&$@)p'`&$@:p(`׈%'(p8(ר*@AAā@;<(lxPD{@ş_DDX_&N3!CMNDSTACKINIT 92077-1X990 Rev.6000 920604 Setup Stack /SRC_92077/R6000/CMNDSTACK.MACD A.C.S.DATA. hCMNDSTACKINIT .ENTR TT_&&A`ppHxpp p`$p p @#p 5@%p T@{;HHX HN3#CMNDSTACKSCREEN 92077-1X990 Rev.6000 920604 Stack screen mode /SRC_92077/R6000/CMNDSTACK.MACH A.C.S.DATA. RR.C.S.CLEARMARKS..CMNDSTACKPUSH. .CMNDSTACKPUSHD..PUTATEND.CMNDSTACKMARKSCMNDSTACKPUSH CMNDSTACKSCREEN Rdd .CAX.CBX.CMW.CXB.DIV.DLD.DST.DSX.ENTP .ENTR .ISX .LBT.LDX .MVW.SBT .STX.XAX .XBXHPCRTXSENDCHARLURQXLUEX XREIO d==`hp0p6ph@pp[p]p_jp`[Q@h0ipb0kpap5`ep1pp`p8f(P(r(Pg(@LL=$$pr(Pf(P(Pd(lx(p1prx(Vp4`1@1@4(H((l(Lc>>T. : `(qp`@pp/`6@҈hHxp2hr(PxP8p ( 6@p`p`pHx X2( P(P(~~J@@HP( pDX(  (Pf(h 8((0@T@!((X2( ( X( (px (8DD(D0D(-@\^@p`B(~)EEp[ `hA /(?p1p81r(P(P(l`A(A]d[`1H@ pp鈀 (8`E@&<<(!`E(- (8('`(h x (88('`(8ptGz_p4O]Y`4 ( (jHHH Pz(P{(P|(P}(P~bGG(P(P(P((m`0P(qf((%w]p(? . `DDA(] ` 885A(][`(b7DDzpF @1p1( (t]((wMAtA[HM(ш`p0DD(w(? x(@`0(HX(H HEEPP((pAAJp` ph( (6H`f@A (/!(@p A`h 2MMn&aC4DDD5CCCZcXR&aC4D5CJ&dJ--000/000--&d @ ZAR&aC4D5C Jd h@p2X2f Pf(k8ffX2r 8rr@(@8x <EEx  ( (85AaAzp]BA`  3A`1@@p1 P`hWA` RH`hX`1 /` pdBBp.pchD 6@pbh Xb(D  (H P(8.`R8.(H`*9`(`d(``9p.Z K_ZD&a0???CK/[8@@8d(p-`.`/9`R` pd`-(@8(#@fGP7(pc`cPs(p.(8.(p-`*9`-(VY `D&a0???C..DZHDpF  @ (CG(<F9zFAAX(LHGpQ`eR`Q(HHxP8pa_҃ahR]&a0000CPAbpk h`pph`69`@,pP,(@~~¼==p`98(`(`k(`l9`q9AHx]`mph`(tp `pШA`p]cAz]X (8` @Ѐp~99` @p` (` (( @p`((/ @ph xD@@@H(hxD/( A ` ߵAAx@8 ( !(8(D H5HDxDpE58  Hh(  ׄHG 0@FH  `@pD@5@Dh HxhD@ > x@/000C@=GGXN3&HPCRTCHECKSTRAPS92077-1X990 Rev.6000 920604 CRT strap check /SRC_92077/R6000/CMNDSTACK.MACGAHPCRTCHECKSTRAPS+.ENTR .LBTXFTTY XLUEX ǣKKpppppX(uA(x"(xA(u,(x3(xH (u`P(uhH|(yKzzgKDD(xR(x`P(uh@(g@~(up`@@p(XP(oP}(o@(e(u```{(v )O\z1  !DaE@Z&s0D0A^@@_GGXHN3&CMNDSTACKPNTRS92077-1X990 Rev.6000 920604 Save/Restore stack/SRC_92077/R6000/CMNDSTACK.MACG A.C.S.DATA. CMNDSTACKRSTRPCMNDSTACKSAVEP.ENTR 66}A`8`h@  p8  @p6@xHHX77CMNDSTACKRESTORE92077-1X991 Rev.5020 880426 File->Stack /SRC_92077/R5020/CMNDSTACKFILES.MAC H A.C.S.DATA. =CMNDSTACKRESTORE!!.ENTR .PUTATEND.FMPCLOSEFMPOPEN FMPREAD !cc477`p`1phx22(hX2(0(A$(+(p(/` hROSQ0 c@!GGXu>7CMNDSTACKSTORE92077-1X991 Rev.5020 880426 Stack->File /SRC_92077/R5020/CMNDSTACKFILES.MAC G A.C.S.DATA. CMNDSTACKSTOREX1.ENTR FMPCLOSEFMPOPEN FMPWRITEkkl>>hx<`(5A`p88(`P8(6( <(1p=8<)<=(1`=@@>i`@pY Yf88\(e`(Fg`ph c(@p[)f`@(xY2Yf5e`@pY(@`x `z (D(F`y (I`~DD[H `x hy  0(W`p([[ v(`x (`(c`p(ep` D%%kiYou must reply Yes or No. YENON Y  %@]5IIX}HPZPRINTPORT92077-1X956 Rev.5270 911010 Print Port Configuration/SRC_92077/R5270/HPCRTLIBF.FTNIȤ6HPZPRINTPORT.ENTR .CPM XLUEX HPZWRITEXLU HPZSBTHPZOCTC HPZMVSHPZWRITEDV6 HPZWRITEDV20HPZOCTO HPZPADTOPOSITIONHPZWRITECN34HPZWRITECN33HPZWRITECN31HPZWRITECN30HPZWRITECN22HPZUDECOHPZWRITECN17OO  HPZMVCZREVCODEZREVCODEX HPZDECV HPCRTSAVEPORT FAKESPSTATUS HPZMVS_ESCAPE IDADDTONAME WHOLOCKEDLU LOGLU HPRTEAOM3BBA3p*Ap(b4(Bp4h0ψh|4 (Up(W4p`p3(](a`(c3p`((j`y@p`hppp2`2(}}u@@pyH`hp`2/) /e ^  (8 {.-,5(`z.p)`)(p`((\(ZX};;`hp`zP)((P(`yP)((N(LV  (8`((`z-p)(`z,p)`)(p`((T(}}"<<R`hpψ`zP)((P( `yP)((N(  L J  (8(/p!H`hpϡ'*F -}~~,<<6`p 5x(8px*`rP(<(F`wP(@(C`pp+(E`ep+(a`vP(J(M`np+(a`uPhtX ([p+(a`sP(_(ap+`((k`rP (i~h>>(k`pp+nD`hptϡwq z}B ek o@` cpn `((> ek;y>> `(<k :`((8(6 e`mPl((0(. `((42 ~~N??e`mPl((0(. ,d  *  (d + #~~~i#>>&&),d/ 25$8;d?* BE"HKdN Q`i(X [ ^ a~~~Xa==djg!`!(nm(qq twjz"} 'd' `h p)`)()`g)~gg11(`fPf(( `(((  ed`(( d (.gx``; IFT Address: Address: EQT DVT (speed sense failed) Driver status bits set: DV20: B RTS Blind OFF delay B RTS Blind ON delayB CTS Wait timerB DCD Timer CN42: CN34: CN33: CN1``31: CN30: CN22: CN17: (Disabled) (Enabled)Secondary Program: CN40: Schedule Program: Primary Program: CN20: Firmware: Interface Driver: Driver type = Device Driver: N`` Status for LU does not respond to a special status readLU : _&dK Static status report _&d@ is down is busy is down and busy LUIFT of LU : &dK Static status report &d@of LU EQT DVT : _&dKNcLL Static status report _&d@ is locked by program  * :FNV^f nx   jj =@@"*2\ `  !? Bx E& :80201 10400  j@b健IIXQHPZWRITEDV6 92077-1X956 REV.5000 870908 HpZPrintPort subroutine /SRC_92077/R5270/HPCRTLIBF.FTNI8HPZWRITEDV6  .ENTR HPZMVS }}>>A`(  y`(w`(u`~(  s`}(''q`|(..o`{(55m(<<k}cc?CC Driver Error TimeOut FRaming OVerflow Line Down End of Medium(( (^D) BReak End of File ~      @c@>IIX6HPZWRITECN1792077-1X956 REV.5021 901001 HpZPrintPort subroutine /SRC_92077/R5270/HPCRTLIBF.FTNIJHPZWRITECN17%%c.ENTR HPZMVSHPZOCTC HPZASCIIMNE4HPZMVCHPZSBT%BBp(`p('P(('`($"p'(A`(32(<(<<?`pDDC (^I(pcPcSpcZc](aaD]]<d?? No user defined terminatorsB) ( terminator: Transparent Read FIFO Inhibit E cho      & ,]@%DuIIXDHPZWRITECN3092077-1X956 REV.5011 890123 HpZPrintPort subroutine /SRC_92077/R5270/HPCRTLIBF.FTNIEHPZWRITECN30 x.ENTR HPZMVSHPZDECV HPZWRITEBAUDHPZSBT ~~p::A `p`P((((`P((((`P(!(%$(((+`p`P(2(65(A`P(:(>~~~e;<<=(AA`p`P(H(LKވ(W`P(P(TS܊(WWڈ`P(\(__؈`(gf(u`h 0(uux~ee*w33p`䈡P(`h 0h 0(Ј`p`(exxXQQ SS at Logon Port baud BRG0 BRG1 Modem None Odd Even 1.5 Frame= Vbhntz   1 2 / 8 7@ 6 5x@s3IIXMJ)HPZWRITECN3192077-1X956 REV.5000 870908 HpZPrintPort subroutine /SRC_92077/R5270/HPCRTLIBF.FTNIAHPZWRITECN31 .ENTR HPZMVS ++ݬA`((  %`'(#+"" Modem connected Auto An swer* :@"@IIXMnHPZWRITECN3392077-1X956 REV.5000 870908 HpZPrintPort subroutine /SRC_92077/R5270/HPCRTLIBF.FTNIKHPZWRITECN33 HJ.CPM.ENTP HPZMVSHPZSBTHPZDECV ppz88`p9`99p9`m((f`9l(((k("!(%%j(d`i(//b`h(66`pLL~:44 Save data on break Per-character scheduling chars in fifo FIFO buffer ing t   @?? L@1IIXE!HPZWRITECN3492077-1X956 REV.5240 910624 HpZPrintPort subroutine /SRC_92077/R5270/HPCRTLIBF.FTNIDHPZWRITECN34 .ENTR HPZMVS ;>>A`(  `(`򀊐((`($$`(++`󀈐(;`򀊐(76(::(f`lll>44(BBڈ`(II`(PP`(_`(\[(__(ffСi`쀊(ppl_s^^ (Force type 5) Protocol Xon/Xoff HP Half-HP CPU Hardware handshake Half Duplex Crt TTY Uncond. CN11 ejects Return data on timeout Printer Post-spacing Pre-spacing "Nice"   FF0k''  .:>BVn v @ F@d+IIXQqMHPZWRITECN2292077-1X956 REV.5020 890929 HpZPrintPort subroutine /SRC_92077/R5270/HPCRTLIBF.FTNIDHPZWRITECN22'').DDI.ENTR .DMOD HPZMVSHPZDECC HPZSBTHPZDECV 'ZZ)r//A(  G(/EppAIxLppIx,K/CZ++^3 seconds Timeout = No Timeout f n zd .+@IIXM^HPZWRITEDV2092077-1X956 REV.5000 870908 HpZPrintPort subroutine /SRC_92077/R5270/HPCRTLIBF.FTNIHHPZWRITEDV20 .ENTR HPZMVS ]]b|--A`](  X`\(V(!`[(T(R!P$N`Z(++L]JJu.00 Slave device mode block Page Line Character First e ntry \ jp v|   @J@гsNNXH'!ZREVCODE92077-1X956 Rev.5020 890929 Print Revision info in major/minor fo /SRC_92077/R5270/HPCRTLIBF.FTNN ZREVCODE ((v$.ENTR HPZDECC HPZSBTHPZDECV HPZMVSHPZPADTOPOSITION(::A& !(x%`$p#:" Rev. < .@iOOX!ZREVCODEX 92077-1X956 Rev.5270 911010 Print Revision info for serial driver /SRC_92077/R5270/HPCRTLIBF.FTNOaZREVCODEX f".ENTR HPZDECV HPZMVSHPZPADTOPOSITION**/A  Re v. *@GGX`4HPZWRITEBAUD92077-1X956 Rev.5011 890123 Format the baud rate/SRC_92077/R5270/HPCRTLIBF.FTNGÍEHPZWRITEBAUD':.ENTR .CPMHPZMVCHH4475 110 134.5 150 300 1200 1800 2400 4800 9600 19.2K 38.4K H1:B@@ABB@pA`A(\`B@BHpx[(PAA(`(oD(e(ji(nn(`PA(s(`C(w(|{A(D((11(Ĉ(`PA((C(((1hE4Unsupported ؈ 4È(`PA((]:Speed Sensing Wc:E//K $Fixed 14.4K 115.3K 76.8K 600  50/@^$|LLX{TCMNDSTACKHELP 92077-1x956 Rev.5010 880303 Help menu for command stack /SRC_92077/R5270/HPCRTLIBF.FTNLlCMNDSTACKHELP +Z.ENTR HPCRTXMENUk\\App# (^Q and ^Q^Q are aliases for ^U commands) ^U^U quit stack mode, abandon group command ^U qu^``it stack mode, start group command ^K mark current line for group command ^D delete current line from stack ^F display following frame ^P display prior frame ^A `` position cursor at start of current line ^Z position cursor at end of current line &dJStack mode commands:&d@ /.^string display all lines starting with 'string' /.string 6``display all lines containing 'string' /12 display last 12 lines /////... and so on //// display last 3 lines /// display last 2 lines // diS~QQsplay last line / display full frame &dJLine mode stack commands: &d@J 3L0 .- ( !4 V2t 0 85, %b $$ !" " v. @ v,6;;;~~ $HPCRTIDENTMUX $HPZIDECA !.15.0 py.C.S.CLEARMARKS.k.CMNDSTACKPUSH. k.CMNDSTACKPUSHD.k.POSITIONDIBITA.POSITIONNIBBLE  .PUTATEND.k.UACN #%ACCESSLUf~~~ ADDITEM <8F ADDRESSOF Z ALLOCATEMEM 8ALMANAC `sALTEROLDTONEW FAPPEND_COLON_INT';ASKDSRTRPBFASKLOGON!HA_B_REGISTERS  A_REGISTER BACKTOLIMBO $xBITANAL ~~~ BLANKSTRING  BLOCKTODISC fBUILDFILENAME ;" UBUILDFILESIZE ;" UBUILDFILETYPEX;" U BUSYPROCESS BYTSTRINGADDRESS&@ B_REGISTER` CALCBLOCKAD RbCALC_DEST_NAMEe U # 6~~~s CALENDARiCASEFOLDG CHANGEBITSbZCHARFILL CHARIS CHARSMATCHi CHECKBITS er CHECKEXTENTS t CINDEX' CLEARBITMAP m- CLEARBUFFER iCLEAREMAt:CLOCK g~~~ CMNDSTACKHELP 1WCMNDSTACKINIT ;CMNDSTACKMARKSkCMNDSTACKPUSH kCMNDSTACKRESTORE6k^ CMNDSTACKRSTRP51CMNDSTACKSAVEP51CMNDSTACKSCREEN kCMNDSTACKSTORE8b g~((~~m@ CMNDSTACKUNMARK :X CNUMOFAT'F COMPAREBUFS $ COMPAREWORDSCOMPRESSASCIIRLECONCAT22  CONCATINTNOSU\)  CONCATNUM .v)  CONCATSPACE 3p  CONTROLBLANK%bg~~~5S  COPYSPARSE)G   COUNTRECORDSa COUNTWRITE(o CRNTOLU 5d  CRNTOSTRING NDAYS70(DAYTIME y DAYTIMENOW}rDCBOPEN rDDOTNAMEZ DEBUGABANDON~~~5  DEBUGADOPT\]DEBUGCHECKADD   DEBUGDREAD: DEBUGDWRITE :DEBUGEVMAPEEK %PiDEBUGEVMAPOKE %Pi DEBUGEXPVMp DEBUGFLUSH:DEBUGGO 6 DEBUGMESSSL~~~ DEBUGNEWSEQ p DEBUGPEEK   DEBUGPEOK 6 DEBUGPOKE   DEBUGPVID p DEBUGRNCALL pDEBUGSTATEPEEK8DEBUGSTATEPOKE8 DEBUGSTOP  DEBUGWAIT ! DEBUGXPUT #0~~~| DECIMALTODINT 7 DECIMALTOINTfDEFAULT_LOGON ;H DELETEITEM6^8DINTTODECIMAL HDINTTODECIMALRg DINTTOOCTAL  DINTTOOCTALRyDIRECPOSITION fK DIRENTMATCH 2m`ZDISCRW*|FZ~~~ DISCSIZE^ DISCTOBLOCK cDISCWORDF DOUBLESTUFF 9- DOUBSTRING57 DSCLOSECONM DSCONNTOIDQb DSDCBWORD O, DSDISCINFOHN DSDISCREADK_DSFSTAT J  DSGROUPTOID XFb*|otv~~~8  DSIDTOGROUP Ub DSIDTOOWNER S>b DSNODENUMBERG DSOPENCON EB DSOPENCON1? DSOPSYS Z DSOWNERTOID Vkb DSSETDCBWORDN DSSYSINFO \mbDSUSERISSUPER [O ELAPSEDTIME QOtv~~~ EMACHANGEBITS jU EMACHECKBITSn2 EMAFINDBITS h_% EMAFINDNBITS ENCRYPTNAME o ENVLOOKUP rERR9(ETIME 6 EXEC11TOMS"EXPANDASCIIRLE EXTRACT A FAKESPSTATUS IME Qtv~~~= FASTSTRMATCH% FATTENMASKKm U FGETOPT ;   FGREATER FILLBUFFERxFINDBITS`i FINDDIGIT HRFINDITEMV8 FINDNBITS d FIND_DELIMB(FIND_LAST_SLASH BE Qtv~~~ FIRSTCHARACTERUFIXDEF'  FMPABSFNAME *S  FMPABSNAME)K :FMPACCESSDISC FMPACCESSTIME  aFMPALLOWEXTENTS  FMPAPPEND  ? I F FMPASKDDOT _ FMPBITBUCKET8_Qtv~~~{ FMPBLOCKSLEFT q  FMPBUFFERBASE $ FMPBUFFERSIZE JFMPBUILDEITHERiFMPBUILDHIERARCH FMPBUILDNAME+] FMPBUILDPATH# FMPCLEAREOF  FMPCLONENAME(FMPCLOSEU\b p~~~! FMPCOLUMNS= FMPCONTROLC`\ FMPCOPY _Gc ) 3  U \ j F  FMPCREATEDIRKbFMPCREATETIME ; a FMPDCBPURGE ;\b FMPDEVICE \FMPDIRADDTONAME fbUJ~~~X  FMPDIRINFO'Fb FMPDISCDIFF QFMPDISCOFFSET E FMPDISCSIZE 8NP FMPDISMOUNT b FMPDOTYPE012/- g  FMPENDEVENT :h FMPENDMASK2FMPEOF' aFMPERRORMbFMPEXPANDSIZE 9UJ~~~a FMPEXTENTBASE ` FMPEXTENTSIZE  FMPFILENAME <\b FMPFORCEDCB  LFMPFORCEDCBBUFFS l FMPGETDATA&-FMPGETLENWORD y ? FMPGETRECLEN!\ I FMPGETVALUE Ub FMPHIERARCHNAME 1 U~~~FMPINFO y\bF FMPINITMASK u2< U(FB / 6 ? FMPINTERACTIVESc FMPIOOPTIONS \ FMPIOSTATUS }FMPLASTFILENAME +J I FMPLEGALNAME[ FMPLINESK1~~~C FMPLIST w FMPLISTXM . D / FMPLU q\ FMPMAKESLINK%LFMPMASKHEADER d`KF FMPMASKNAME [ / FMPMASKPROT fi 8FMPMOUNTtb FMPMOVEDATA  ? FK1~~~ FMPNAMETODIRADD ab FMPNEXTMASK 5F 6 FMPNOEXTENTS FMPONESTRING&bFMPOPEN ;b FMPOPENFILESk\bF FMPOPENROOT rbFMPOPENSCRATCHz  U  FMPOPENTEMP ib1~~~u FMPOWNER,H U G FMPPACKSIZE FMPPAGEDDEVWRITE1 <FMPPAGEDWRITE Nc < FMPPAGINATORz  FMPPARSENAME.^ FMPPARSEPATHFc I  FMPPOSITION V\FMPPOST [\-~~~  FMPPOSTEOF]bFMPPROTECTION ~b 6FMPPURGE?  FMPRAWMOVE# g FMPREAD \ I g FMPREADLINK &IFMPREADSTRING / FMPRECORDCOUNTU a FMPRECORDLEN a FMPRENAME b[J~~~8FMPREPORTERROR  FMPREWIND \ FMPREWINDMASK F FMPRPPROGRAMJ@ U FMPRUNPROGRAM v +  \ FMPRWBITS (FMPSETDCBINFO .\ FFMPSETDIRINFO wb pF 6~~~.  FMPSETEOF E\b ?FMPSETIOOPTIONS \ FMPSETOWNER  dFMPSETOWNERID 4b I FMPSETPOSITION. I d FFMPSETPROTECTIONQb 6FMPSETREADPOS k  FMPSETRELPOSe  FMPSETVALUE 9b ~~~A~ FMPSETWORDY\b   pF FMPSETWORDPOS Y\b   pFFMPSETWORKINGDIR  FMPSHORTNAMET  IFMPSIZE D aFMPSTANDARDNAME 1 UFMPSTARTEVENT : FMPSYMLINK$eETVALUE 9~~~*  FMPTEMPNAME   FMPTESTEOF\b   I F FMPTRUNCATE g\b pF FMPUDSPENTRY#m  FMPUDSPINFO 4- FMPUNIQUENAME $XFMPUNIQUETIME F FMPUNPURGE< FMPUPDATERECORD dVALUE 9~~~ FMPUPDATETIME q aFMPWORKINGDIR tbFMPWRITEu\ ? I g FMPWRITEERROR 0p  FMPWRITESTRING4FMP_PARTNUMBER1FREADDIR9Fj.FREEMEM   GETBITMAP >GETBYTE B9~~~9 GETCALLERID GETDDIR (I GETDESCLOCkGETDIBITGGETFATHERIDNUM$GETLOCJ) GETMYSESSWORD 0$ GETNEXTENTc F GETNIBBLE dR GETOWNERNUM 1GETREDIRECTION_Y B9~~~ GETRUNSTRING_GETSEQUENCENUM GETSTRING GPNAM 7.G GROUPTOID A HASHITEMqHEXTOINTtHISRN JHP150_DEFFIELDcSHP150_DELFIELDcSHP150_GETFIELDcSHP150_SOFTKEY cS~~~ HP150_TOUCHMODE cSHP150_TOUCHOFFcSHP150_TOUCHRESETcS HPADD_NODECuFHPCOMPAREBUFFERSsHPCOMPARE_BYTES HPCRTCHARMODE QHPCRTCHECKSTRAPS2 HPCRTCRC16_F\ HPCRTCRC16_S cS~~~Q HPCRTGETCURSORUHPCRTGETCURSORXYVWHPCRTGETFIELD_I _YHPCRTGETFIELD_S ]kHPCRTGETLINE_POSHPCRTGETMENUITEM(6KHPCRTHARDRESETqHPCRTLINEMODE Q HPCRTMENU OW HPCRTNLSMENUd~~~A HPCRTNLSXMENU 0kcHPCRTPAGEMODE QHPCRTPARITYCHKZ)HPCRTPARITYGENZ)HPCRTREADCHAR I;HPCRTREADPAGE a/HPCRTRESTOREPORT=HPCRTSAVEPORT ;[HPCRTSCHEDPROGHPCRTSCHEDPROG_Sj<P~~~+ HPCRTSCREENSIZE X+HPCRTSENDCHAR LaHPCRTSSRCDRIVER F,HPCRTSSRCDRIVER?C HPCRTSTATUS SGHPCRTSTRIPCHAR\;HPCRTSTRIPCNTRLSL HPCRTXMENUNHPCRTXREADCHARGFHPCRTXSENDCHARK/j<XP~~~n HPHIGHEST_VALUE ]{ HPINIT_TREE B*HPLOWERCASENAME ~HPLOWEST_VALUEU+ HPMOVE_STR HPNEXT_NODE OVF HPNEXT_PTRW HPPREV_NODE YF HPPREV_PTR[hHPRTE6rHPRTEAkj<XP~~~~  HPSTRIPREDIRdm HPTREE_PTRR/ HPZASCII64 HPZASCII955HPZASCIIHPENH _ HPZASCIIMNE3A HPZASCIIMNE4 HPZBACKSPACEIBUFaHPZBINC 8HPZBINO cHPZDECC  HPZDECO u<XP~~~8 HPZDECV v" HPZDEFIBUFquHPZDEFISTRING  HPZDEFOBUFquHPZDICV 5 HPZDPARSE  HPZDUMPBITMAP @"gDG g HPZDUMPBUFFER C:#,7oG HPZENDLARGE WHPZFIELDDEFINEAXP~~~$  HPZFMPWRITE }8HPZGETNEXTCHAR HPZGETNEXTSTRDSC2HPZGETNEXTTOKEN  HPZGETNUMB2 c HPZGETNUMB4 ` HPZGETNUMD2  HPZGETNUMD4 8 HPZGETNUMO2 $NEAXP~~~X  HPZGETNUMO4 NHPZGETNUMSTRDSC  HPZGETNUMX]HPZGETREMSTRDSC )HPZHEXC yHPZHEXI HPZHEXO WHPZIBUFREMAIN  HPZIBUFRESETh HPZIBUFUSED THPZIBUFUSESTRDSCAXP~~~# HPZINSERTATFRONThHPZMBTTHPZMESSS3HPZMOVESTRING QHPZMVCu HPZMVSstHPZMVS_CONTROLHPZMVS_ESCAPE I HPZMVS_LARGEW HPZNLSMVS cHPZNLSSTRNGPNTRSw HPZNLSSUBSETwXP~~~8 HPZOBUFRESET7 HPZOBUFUSED lHPZOBUFUSESTRDSClHPZOCTC |-HPZOCTD oHPZOCTO zqHPZOCTV tHPZPADTOCOUNT [HPZPADTOPOSITION|HPZPARSE~oHPZPEEKNEXTCHAR 6 HPZPLURAL 0G~~~Z4  HPZPRINTPORTO@k+2DGe'!i!!HPZQANDAJ] HPZRESCAN nHPZROMANNUMERAL 9HPZSBT}cHPZSTARTLARGE WHPZSTRIPBLANKS HPZUDECOgHPZUDECV L 0~~~Q  HPZWRITEBAUD|<+ HPZWRITECN17d:A+2G HPZWRITECN22tyg2G HPZWRITECN30gi2G HPZWRITECN31lN2 HPZWRITECN33n2G HPZWRITECN34pP2 HPZWRITEDV20w 2 HPZWRITEDV6 ae2 HPZWRITELUx~~~a HPZWRITETOSTRING: HPZWRITEXLU y9 HPZYESORNOL/k IDADDTONAME nIDADDTONUMBER PIDNUMBERTOADD 9 IDTOGROUP Z IDTOOWNER ZINITMEM  INITSTRMATCH-INITSTRMATCHBUF %x~((~~  INTSTRING h INTTODECIMALSINTTODECIMALR "INTTOHEXui INTTOHEXR w* INTTOOCTALN INTTOOCTALR  LASTMATCH C LAST_MATCHQLEGALLU T) LOCALLOGOFF $x LOCALLOGON$xLOPSY ~~~Kv LOWERCASE dLUISACTUfLULOCKEDP MASKBYOWNER pMASKDCBTOLUTABFW MASKDISCBPT u MASKDISCLU8 MASKDISCREAD(iZ MASKFILLBUF $KMASKGETDIRENT Z%KF$xLOPSY ~~~{~ MASKGETNEXTENT_AR7MASKISDS]t MASKMATCHLEVELQ MASKOLDFILE ' MASKOPENID" MASKOWNERIDS MASKPROPERPATHP_ MASKREADOK/ MASKSECURITY MASKSETERRORW MASKWRITEOK ~~~yS  MINSTRDSC " MOVE2 hMOVEBY5  MOVEDESCINd MOVEDESCOUT f MOVEFROMEMA qhF MOVETOEMA qhF MOVEWORDS v MULTIUSER 'jMYIDADD h NAMEMATCH CD  NEWDIRREADWSKWRITEOK ~~~  NEWROOTOPEN { ( NEXTCLASS  NEXTINCHAIN 4FNEXTITEMJF NEXTNEWLU X d NEXTOLDLU i.dF NL$A_TO_B^B  NL$CATMODULEQn NL$CHECK_YYDD 8NL$CLASSBp NL$DESTBUFaK ~~~ NL$DESTLIMaNL$EMPERORTABLE #NL$FIND_A_FR_B^Bx4 NL$GETDATE9 NL$INITDCB^ NL$IS_LEAP2NL$ITEM_CALENDARgNL$ITEM_CHARSET +NL$ITEM_CLOCK tNL$ITEM_CUSTDATEpNL$ITEM_EMPEROR #~~~6 NL$ITEM_SH_DATE (NL$ITEM_SH_MONTHnNL$ITEM_SH_WEEK NL$KLASSKTNL$LANG_CALENDARgNL$LANG_CHARSET +NL$LANG_CLOCK tNL$LANG_CUSTDATEpNL$LANG_EMPEROR #NL$LANG_SH_DATE (R #~~~L NL$LANG_SH_MONTHnNL$LANG_SH_WEEK NL$MMDDYY_YRDATEv8 NL$MONMODULE NL$OUTDCB aNL$OVER_WRITE?s NL$PADCHARaNL$PARSEPACKALPHp8MNL$PARSEPACKINT s NL$READBLOCKe #~~~v,  NL$RELMODULE& NL$SEARCH_COUNT NL$SETCHARID1000 NL$SETPARAMS: NL$SET_ITEM  NL$SYSLANGS m NL$TERMCHAR aNL$TRANSTo NL$WRITEBUF XNL$YYDD_TO_MWD18CKe#~~~U NL$^!LYTABLE_INZ18NL$^!YTABLE_INZ 18NLAPPEND NLCLOSECAT NLCOLLATE Y NLCONVCLOCK b-Yb NLCONVCUSTDATEfpdTbNLFMTCALENDAR y)d NLFMTCLOCK4Y~~~X NLFMTCUSTDATE y)d NLFMTDATE 3`r NLGETFMTDATE,&NLINFO^ NLKEYCOMPARE[sNLLANGIDlNLLENGTHe NLOPENCAT  / / NLOPENSYSCAT / NLREADCAT CK4+~~~[  NLREADCATSTR NLREADMON c+ NLREADMONSTRc+ NLREADREL p NLREADRELSTRp NLREPCHAR :M@ NLSCANMOVE M@NLSETLANGNUMBER _ NLTRANSLATE _*CK4+~~~  NLWRITECAT:7NLWRITECATSTR :7 NLWRITEMON+7NLWRITEMONSTR +7 NLWRITEREL7NLWRITERELSTR 7NONDSLEN3NONSESSIONLOGON $x NUMERICTIME CK4+~~~ّ OCTALTODINT ? OCTALTOINTOKASCII _  OLDDIROPENgWF OLDDIRREAD:K OLDLUINFO 1dF  OPENACCTS  '  OPENFILEBIT ' OTHERMATCH5K OWNERTOID A PAS.NONCDS=_4+~~~S PERMANENTIDSEGPOPDIRlKB  PREENTMATCH =@"PROCESS_STRINGl` PROGISSUPER C PROGRAMPRIORITY  ,PROGRAMTERMINAL  W PUSHDIR pbWj  PUTBITMAP MPUTBYTE E4+~~~ PUTDIBITG PUTINCOMMAS ?5 PUTNIBBLE uR QUALTOINT @,FREPORTANYERROR)  RESETTIMERQO REXADDSET M REXALPHANBR )R REXAMATCH M# REXBREAKLINE>:REXBUILDCLASS ]E4+~~~u REXBUILDCLOSURE FEREXBUILDPATTERN  Em-REXBUILDSUBST 1EREXCATNEWCHAR <c REXCATNEWXCG8>cREXCLASSMEMBER'=REXCTOI +&REXESC REXEXCHANGE 5X REXFILLCLASS>E+~~~c REXGETCHAR/7REXMATCHCX REXOMATCH #QN REXPATTERNSZ! REXSUFFIXOK -tSCANDIR y.R SEARCHOPEN{8!SECCHANGECPLV BSECONDS wSECONOF >.SECONOFF>. SECPROGCPLV @+~~~ SECUSERCPLV A SECWORDGET?SESSINIT<dSESSNTOOWNERNAME21Q SETBITMAP lSETDDIR (ISETOPENFILEBIT  SETOWNERMASK:"m SETPRIORITY t SHOOTPROGRAM- SHORTSEGMENTROGCPLV @+~~~  SLASHPEEL 9 SPLITCOMMANDF SPLITSTRING ASPLIT_DIRPATH 2STRDSC9 STRINGCOPY1STRIPTRAILING ?t SUPERUSER 3YSWAPDESCcSYSTEMPROCESS   TESTBITMAPn@ TEST_PUTBYTEK@+~~~\ TEST_SETBITMAPoVTIMENOW v[TRIMLEN  UDSP.DECODE :>UDSP.GETENTRY 6  UDSP.GETUDSP8'  UDSP.MOVE -^ UDSP.PUTENTRY 6  UDSP.PUTUDSP8' USERISSUPER 8USNAM 5}Q+~~~C USNUM 4s UXNAMEMATCH {! UXSPLITSTRING xrVMACLOSECVMAOPEN A IVMAPOST 0VMAPURGEVMAREAD J VMAWRITEJ WDFILE*P WDLU*P  WHOLOCKEDLU 1>XȆ 8RT6GNLIBHED 92084-12076 REV.6000 <920925.1406> /SRC_92084/R6000/&R6GNL >@==X}Ȇ 8RT6GN.ABDO92084-1X960 REV.2540 <920925.1406> /SRC_92084/R6000/&R6GNL =\ABCO \ABDI \ABDO \ABSU \ADSK &\DARC 7\DSKD \DSKI \DSKO \DSYS \MXAB \OLDMX\SEGS \SYS\SYSS {\TRUN \USER \USRS || \ABOR \ADBP \ADCB \CFIL \CLOS \FMRR \GENC \IRER \PREL \PTYP \SCTK \SWCH \TERM \TIMA .DIV.MPY.MVWFMPREAD FMPSETPOSITIONFMPTRUNCATE FMPWRITE \NDCB TM.IN |TM.OU DD5p!x&ph!@$hA$xp!&ph`!H$`$@@po"pp oxo@p@ho&& xph5!@PD@@%p7prx^hz hyxxUqDt`Q Jx`sJH`hxPvXy(i`wH PvH`QD H17 hp p ?? ``Hh (}`0Aprq`@ p `rh{` A Apx`@(xhx`DP(F(`x x xMEE xHxHx!(I(hH`8(@` (h` (x@p@ (h`Hpz` p}~~ < /SRC_92084/R6000/&R6GNL.@ 8\FIMA _\IDTT \IDX\IN0\IN10 \TIDC .CMWJJ%%x"  x#p @$(DHp`h"A#(H(@( ` P!(8` J@vR>>X]GȆ  8RT6GN.CLRFIX92084-1X960 REV.2440 <920925.1406> /SRC_92084/R6000/&R6GNL.> '\CLRFIX UUhZ \ABOR \FIX \FIX1 \FIX4 \GENC \IDX\IFIX \LS10 \LSTX \MESS \PFIX \PFIX.MAX \PRINT.SYM\SPAC \TIDC \TLSC Uuu@GGpF@'(pD  @Dp H8F(`Eh8  '(HP((`@D@` !Dp((xH@' ((`D @ !@!H((8' '9FIXUPS NOT RESOLVED: u@O==X]Ȇ  8RT6GN.FMAX92084-1X960 REV.6000 <920925.1406> /SRC_92084/R6000/&R6GNL.=r\BEST.FIT *\FMAX 99 \%CONORG\ABOR \IDEX \IDTT \IDX\IN10 \IN11 \IN15 \IX4\PREL \TIDC 9;@@'p&p@H @( Ј`)p%*(#`% @ ("`&@(p@ ("` Q@@(*88pppXUpxpp@p (j@|pPA@??(Y`(JD H(Y @(]@(]@p`p`p`p`ph(:`h P0(Y @(Y@p(S`*h | h`h|Hh8**@xH|@!@N==X{mZȆ  8RT6GN.HEAD92084-1X960 REV.5000 <920925.1406> /SRC_92084/R6000/&R6GNL.= .\HEAD LLG\ADCB \ADSK \CFIL \DARC \FMRR \GENC \HIMS \IBI\PIOC \TBCH \TERM .MVWFMPSETPOSITIONFMPWRITEL 77( \A`W dW`jp H"` A(&Jh ` A0l @(&` 5` Ap ` Yhh E 0p ` ip J` p `p J@`p ` hh766@chkHbDg`  A@`G^`WN fWAU eWD`W? @h@m匥@@X(Ȇ  8RT6GN.REPORT.DSK92084-1X960 REV.2440 <920925.1406> /SRC_92084/R6000/&R6GNL.@ ;\RPDK !!\ADSK \DARC \MESS \SWCH $CVT3 .XFER !::f""` `h'@h&x%Hhh` "CURRENT ABS. FILE REC = : 2>%.5 @ ,??XȆ  8RT6GN.PRINT.SYM 92084-1X960 REV.6000 <920925.1406>/SRC_92084/R6000/&R6GNL.?\PRINT.IN \PRINT.SYMMML\CLOS \IDEX \IN0\IN10 \INF1 \LS0 \MESS \RDCB \TERM \TIDC .DLD.DST .MBT.MVW \GDCB \NDCB MyyNEE p(>h@ (@ D(> D p`$ p ( hy `(%D`hA~A8(9A@M`h~`@H}H `z(`{p`('y QyM IN IW OF 66&y |< GEN > O IN E`Ah~HH} 6@+3I>>XZȆ  8RT6GN.BLOER 92084-1X960 REV.2440 <920925.1406> /SRC_92084/R6000/&R6GNL.>6^\BTER \BLER \IDTT \MERR \MESS \SGER \SPAC >>pUpIhJ (  PU( (`UHh(8`VpZp[x]`XhKDh]x]@p\(-H 6h\(pU@Y(<`U8Z((H8[`VpZ`Wh@( x\||e>EEhU(%AACTION: GEN ERR LMEANING: GEN ERR `thyxxhuxvxwx(z8v(f8x@shuxv8w(e^0/ 6 (zxw^`wx(_|@==XHȆ  8RT6GN.PRAM92084-1X960 REV.2440 <920925.1406> /SRC_92084/R6000/&R6GNL.= l%\PARM ~~fZ#\ABOR 7\ADBP 6\ADSK &\BUFL <\CBPA 5\CPL2 \CR.SP>\CUBP \FIND \FIMA 3\FIX1 B\GENC -\GET# ,\GETC )\GETN \GNER .\HAST 2\IACM ?\ICBP \IDEX 0\IDTT \IDX\IDXS \IN0\IN10 ~}}]|\IN11 \IN12 \IN14 \IN15 \INF2 @\IRBP \IX4\IX5\IX6\IX7\LBUF :\LRBP \LS0\LS10 \LS11 \LS12 \LS13 \LS14 \LSTE \LSTX !\MESS %\OCTN \PLST 8\PREL A\PRINT.SYM}ooa(\READ $\RNAM "\SPAC \SRET /\SWCH 9\TBLK \TBUF '\TCHR \TIDC \TLSC =\UCBP ;\URBP *$CVT3 C.CBTH.DIVF.DLDG.DSTE.MPYI.MVWD.SBT+.XFER 4NAM.. 1\ORDT oEE  - h (` )HPF,P D(!`] "(h8H"`6hL!(@@ D(Ax`&Hp `3-(@E(?,P (C`_(:`](: @`z@E@@DPBxBh%eP(fX8P5(?X(f(f`oP(fP(fP(fHP5 (f`e<(*40`%;(zh%HDx%@H6J0h!(zo@HxBh%J@0,H(*`-(JJ@(,P (``(:` p&`H)`6hAC(D(?oP (`HD-(H>hD*+h`HD`8h!HD0>`%H(*`(:~SAVE= OLD SAVE=   =77<6JJ|*@`(:H"PτH(*`@@DPh%D hC,(*`f0H`0I@(9@h% @, C(H`f0`f0`f0Hp`f-(9@,(9`AHEc@%pDE.AE/ @` ;BB@` HD ($(*P(*`(*`-<(*82<pHH-(9,P H(9`%0`a<(*D "<"H`hR!(D@@H P~(^P(^P{(^Pz(^`f)PGh}PH|[DDh| (a`_D<(Dx`HHp`2pH(k8(fH`@(^HhP|(t(^ D(D  ,P `&H@p`o-H(`p&`4@-`'HP:8`%@"pBnpBopBpBpBkpBAAJF.pwxvh1xttwpux D ( hHxs(`uD(p  `@hs(w(td5PY(ˀPZ(JJFGDD` hs(8w8t@8v(`/ (}CCJ@F.`1xvpqq8q (pgHhx*+hxH`j!"`g HcH- p,pwpqpr`vps`qh18r 8s(`r(*Hh*+`qAErpHwAxw H, H6@hp Hix@`qh*T_#YYH+`kh!`wPg(8q( @Sc/EABRPMPARAMETERSSCHANGE ENTS?DVOS094810111237d 00%' 0yXXXXXX8|NN ENT/EXT ENTRIES TOTALXXXXXX BUCKETS WITH XXXXXX ENTRIES XX% 08D"F xqD@pPm(7@HnPl((ɀPPP8PP9(o"Po((`3(BB (`o(@h X[`fX\@ppw`@whw@@P7PP(P(P( P6PP(P8P/P5PPP9P ( `b@  A(7 >> . 8B砀`B@HxB( . 8B`B @xB@(7oPPPP8BnP8Bo!(7o8BkH@Pq(H"`*h<!(s@(p`JDDDpq` )4P(n@,(nh@1(n@H(e` hA(B`qDp`hAI(B`^`] (B({`2(>` (<` @BKp3@h;xB"Hh7` AI?44pBHpBIpBJpBLpBp9pBpBrpBKpBpBpBD`p=D@7p?`=pBD`@p8pB`6pB@pB`6ApBD`h!"BBh0 %x@HHx0`$J#`P(P(#hxq@AI``ehq@@Hhq!(¨`hH ׄHxeh H(06 HEAD MODUL ES @rr^CDDx+p)@pD(!p`@eP (8+("D`,h-!"hA@( `)Po(8+8.PROGRAM(S) WITH LONG NAMES: =CHANGE PROGRAM NAMES? r@$iC)::X Ȇ & 8RT6GC 92084-1X960 REV.2440 <920925.1406>/SRC_92084/R6000/&R6GNL.: :\GENC @O;;XZ7 8RT6EM 92084-18976 REV.2440 <841121.1631>/SRC_92084/R5000/ERRM.MAC ; C\MERR ``Invalid response to generator request.This is a general error message for invalid responses such as:incorrect type, number out of bounds, negative numbers, etc.Request is redisplayedD```. Enter valid response.%Transfer (TR) request nesting level greater than seventy; or empty stack. T$Transfer (TR) request was to an illegal logical unit for command input. T The size paraaHHameter in the output file name was not specified or "was specified as less than the minimum size required (1000 blocks). T0119l2094a@D;;X/f + 8RT6E1 92084-1X969 REV.2440 <841121.1628>/SRC_92084/R5000/ERR1.MAC ; ب\1ERR :``Command error during Program Input Phase; often accompanied by an FMP error (see FMP error code definitions). Request is redisplayed. Enter valid response. Duplicate program name. Th```e current program replaces the previous program.Message printed on list devi((ce only; controlis not transferred to the user console. Named program not found.9Parameter type error (# ouA``t of range or decimal # where octal expected etc.), or EMA symbols (entry points) cannot be changed.9 Parameter priority error. 9Parameter execution interval error. 9Invalid declarat ``ion of COMMON in system or libraryprogram (name is the program's name). Revise the program. xInvalid EMA program type--must be real-time orbackground disk resident (name is the progu``ram's name).Revise program type. Program will not be loaded into the system this generation unless it has a valid type. Illegal program name. Name must be 5 or less characters long and\`` a legal file name. 9Or enter a /E to end this sequence. !The total number of tracks on LU 2 and LU 3 is greater than 1500. The generator will reprompt for the systemand auxiliary subcO@``hannels. Specify an LU 2 or LU 3 whose total number of tracks will be less than 1500.GEN or LOD record or SAVE error:1.) Record specifies EQT parameters for a non-driver or2.) SAVE a``rea for a system module, or 3.) GEN or LOD record in a subroutine (record is ignored), or "4.) SAVE area specified for a non-disk resident or non-main module,  or a bad number entered,c`` or !5.) (During EQT entry) EQT statement incompatible with GEN record.The GEN or LOD record is ignored except in case 5."In this case T= may be made larger or 0, X= may not be made smalleK```r and S/M may not go to non-S/M.Request is redisplayed. Enter valid response.Start time can not be specified because this program uses SAVE area (a generator limitation, not a system 3e``limitation).Set time parameters with TI command after system boot.Blocks per track is a multiple of seven (warning).File system may have a problem but the generation continues.None reqlh ``uired.Undefined external(s) were encountered. Make sure the reported symbols are not needed. If they are needed, add the necessary RELocate commands and rerun the On-Line Generator.,,0608Q091011123740R487377l828495#,@{;;X#N 8RT6E2 92084-1X970 REV.2440 <850125.0940>/SRC_92084/R5000/ERR2.MAC ; ک\2ERR n&``Relocatable record out of sequence. Module is skipped; replace module.Message printed on list device only; controlis not transferred to the user console. Illegal record type. Module``` is skipped.%<Duplicate entry point (the current entry pointreplaces the previous entry point). Revise program by relabeling the entry points.First defining and current defining modui``le names are printed. %<Command error during Program Input Phase; often accompanied by an FMP error (see FMP error code definitions). Request is redisplayed. Enter valid response. Du} ``plicate program name. The current program replaces the previous program.%<Program segment precedes main disk resident program.\Either revise module or reorder RELOCATE command entries``. %<Checksum error on relocatable record. \%<#Invalid or duplicate D, B, T, S, M, ,F or X operands (EQT statement). Missing system entry point ($TIME possibly others). Irrecovera]``ble error.Ensure that all of the necessary system modules have been specified in RELOCATE commands andrerun the On-Line Generator.Invalid EMA program type--must be real-time orbackgr@``ound disk resident (name is the program's name).Revise program type. Program will not be loaded into the system this generation unless it has a valid type.Multiple EMA declarations in o``ne program. \ Revise the program. %A system module or entry point is missing (name is the entry point name). ځA symbol name was truncated to sixteen characters. The generator trun``cates the name and continues. This may cause !duplicate ENT errors. To correct this problem, modify the module so that all names declared in NAM, ENT, and EXT records are sixteen characV0```ters or less in length. Local EMA, save, or pure code are not legal in generations. The remainder of this module is skipped and not loaded. To correct this problem remove the above featum&``res.GEN or LOD record or SAVE error:1.) Record specifies EQT parameters for a non-driver or2.) SAVE area for a system module, or 3.) GEN or LOD record in a subroutine (record is ignor1 ``ed), or "4.) SAVE area specified for a non-disk resident or non-main module,  or a bad number entered, or !5.) (During EQT entry) EQT statement incompatible with GEN record.The GEN orȃ`` LOD record is ignored except in case 5."In this case T= may be made larger or 0, X= may not be made smaller and S/M may not go to non-S/M.Request is redisplayed. Enter valid response. FM``Five or more word RPLsThe remainder of the module is skipped and not loaded.Inconsistent allocate records found.!The same allocate symbol was used for both EMA and SAVE or COMMON.The la@``st definition overrides the earlier ones. %<Old and new EMA declarations in the same program. The module is flushed from the generation.Revise the program to use only one EMA access me``thod. Module checksum (checksum of checksums) failed. Warning only. The scan/load of this module continues. Entry point is same as Labeled Common name. Generation will use the Entry K8``point instead of the LabeledCommon. Resolve by changing one of the names or by using NOALLOC option on the Labeled Common reference. WARNING: If the defineing entry point uses less memocc`IIry than  the common requires, CODE WILL BE OVERLAID!0304Q05h060813G14263940$41577576l77787980W8197c@oa!;;X2: 8RT6E5 92084-1X971 REV.2440 <841121.1629>/SRC_92084/R5000/ERR5.MAC ; =\5ERR ``Base page linkage overflow into driver link area. Link value is zero. Try different 'order' turn on parameters or revise programs orspecify LINKS IN CURRENT to reduce linkage requiremeπ```nts.Message printed on list device only; controlis not transferred to the user console. System module containing entry point $CIC not loaded. Irrecoverable error.Ensure that all of tMb``he necessary system modules have been specified in RELOCATE commands andrerun the On-Line Generator."Invalid F, S or M operands (must conform to previous EQT definitionsusing same drive6 ``r) or, both F and S, or system disk driver(whose EQT select code matches CONTROLLER SELECT CODE?response) cannot specify SDA or F.Request is redisplayed. Enter valid response.Invalid w``select code number (EQT statement). cEQT entry specified non-existent driver. Invalid driver name or no driver entry points.c#Invalid or duplicate D, B, T, S, M, ,F or X operands (EQT Mb``statement). cInvalid equipment table number (DRT statement). cInvalid select code number (INT statement). cSelect code number decreasing (INT statement).c(Select codes must be ente@``red in the Interrupt Table in ascending order).Invalid mnemonic (meaning EQT, PRG, etc.) in INT statement. cInvalid EQT number in an INT statement. cInvalid program name in an INT sta ``tement. cInvalid entry point in an INT statement. If theentry refers to a driver entry point, the driver to beentered cannot reside in a driver partition.cInvalid absolute value in ̳``an INT statement. cMore than 63 EQT or 254 DRT entries defined.Message printed until a /E encountered. Revise answer file. Invalid number of characters in final operand (destination:``` parameter) in INT statement. cIllegal reference to a system (Type 0) module by anon-HP subsystem module (name is the entry point name). ((Revise the program. byLong ID Segment limit !``of 254 exceeded. If more than 254 ID segments will be used for generator-relocated programs, the generator aborts, and the request for # OFBLANK ID SEGMENTS? is not displayed.Otherwen ``ise the request is redisplayed if the limit isexceeded after the user specifies the number of blank IDsegments (Meaning that the total of the number of IDsegments to be used at generatio.O``n time, plus the number ofblank ID segments specified by the user is greater than 254). Either enter valid response or reduce the number of programs. GEN or LOD record or SAVE error:1.} ``) Record specifies EQT parameters for a non-driver or2.) SAVE area for a system module, or 3.) GEN or LOD record in a subroutine (record is ignored), or "4.) SAVE area specified for a no@``n-disk resident or non-main module,  or a bad number entered, or !5.) (During EQT entry) EQT statement incompatible with GEN record.The GEN or LOD record is ignored except in case 5." ``In this case T= may be made larger or 0, X= may not be made smaller and S/M may not go to non-S/M.Request is redisplayed. Enter valid response.Warning: More than one driver forced to paPP:y::rtition 1. Last entry is used. 16212324{252627282930X31x32333435 36A58p607796P@h+;;X,A. 8RT6E6 92084-1X972 REV.2440 <841121.1630>/SRC_92084/R5000/ERR6.MAC ; E\6ERR j@`` Invalid response. Number must be in specified range or 0. Request is redisplayed. Enter valid response.Partition size must be positive and less than 1025. Invalid partition typeǚ``` (BG, RT, or S).Invalid reservation parameter (third parameter must be "R"). Illegal program name. Name must be 5 or less characters long and a legal file name. Or enter a /E to eJ``nd this sequence. Invalid partition number. Either reenter program partition assignment response with corrected number or, if defining partitions,enter a /E to end this sequence becaus|  ``e the maximum numberof partitions has been exceeded.Program specified is too large for partition assigned.Either assign program to a larger partition or continue without changing. In)``valid page size; either smaller than the programsize, or larger than the maximum program size.Either reenter response with valid size nThe sum of all partition sizes does not equal thk``e number of pages remaining after System Available Memory.Redefine all partitions, until 0 pagesremain or use /D to fill out the last partition. Error code not used.Have a nice day.Suh@``bpartition size is greater than the number of pages left in mother partition. Either revise and reenter response for last subpartitiondefined or return to RT/BG partition definition.%A ``system module or entry point is missing (name is the entry point name). Irrecoverable error.Ensure that all of the necessary system modules have been specified in RELOCATE commands ande;``rerun the On-Line Generator.Tried to assign more than one shareable EMA label to the same partition. Note that if a mother partition isdeclared to be a shareable EMA partition, then theG```subpartitions of that mother partition may not also bedeclared shareable EMA, or vice-versa. Only one shareableEMA may reside in a partition or subpartition."An illegal label was entC``ered. Labels must begin with an alphabetic character and be five characters or less in length. More than the maximum number of shareable EMA partitionsentered. Only the number of Ec ``MA partitions given at thebeginning of the SHAREABLE EMA PARTITION phase can be entered.Enter a "/E" to terminate input for this phase. A duplicate shareable EMA label was entered. Խ``During the SHAREABLE EMA PROGRAM phase the name ofa non-EMA program was entered.Tried to assign a program to a shareable EMA partition. The shareable EMA used by the program was to{W``o large for the partition referenced by the given label.An undefined shareable EMA label was entered. 4445746T47i484950;51~5355*56>5764656667f68697071 @ @ղ;;X*e 8RT6E7 92084-1X973 REV.2440 <841121.1630>/SRC_92084/R5000/ERR7.MAC ; \7ERR ``!The total number of tracks on LU 2 and LU 3 is greater than 1500. The generator will reprompt for the systemand auxiliary subchannels. Specify an LU 2 or LU 3 whose total number of trrr`UUacks will be less than 1500.Blocks per track is a multiple of seven (warning).File system may have a problem but the generation continues.None required.7384nr@0O;;X=D   8RT6E8 92084-1X974 REV.2440 <850124.1518>/SRC_92084/R5000/ERR8.MAC ; v G\8ERR u`` Irrecoverable error.If the error is accompanied by an FMP ERR,check the cause of the problem. The problem may be hardware-oriented, symptomatic ofdisk transfer/DCPC problems, in wh```ich case the appropriatediagnostics should be run. Ensure that the memoryconfiguration in which RT6GN is executing has the correct amount of physical memory.2If the error is not acco1``mpanied by an FMP ERR, an actual generator problem (relating to its internal tablestructures) may exist, so send your generation listing and answer file to your local HP Field Service Off ``ice for analysis. Insufficient amount of EMA memory for internal generator tables.Irrecoverable error. Increase the EMA size and rerun the On-Line Generator.Generator symbol table oveI``rflow. Insufficient amount of EMA memory for internal generator tables. Increase the EMA size and cIllegal reference to a Type 7 module by a Type 6or 15 module (name is the illegally QV``referenced symbol). Revise the calling module.Message printed on list device only; controlis not transferred to the user console. Base page linkage overflow into driver link area. Li @``nk value is zero. Try different 'order' turn on parameters or revise programs orspecify LINKS IN CURRENT to reduce linkage requirements.Type 1 output file overflow. Increase the fF``ile size andc"Memory overflow (absolute code exceeds Last Word Available memory). If the configuration module exceeds 77577B!(7918 and MAC based system), or 77377B (ICD or CS80 based syst̿``em),or if the generation is in memory resident load phase, the generator is aborted. Ii2Otherwise (for user programs) try typing as type 4 or 6.!List file error. Usually an FMP E>```RR-6 occurring when a list file %extent cannot be created due to lack of disk space on the same subchannel. Generation continues with list output to the user console only. (Note that the l``ist file will be truncated at this point.)Multi-word RPL extends beyond modules bounds. Revise the program. Extending words are lost. Missing system entry point ($TIME possibly oth ``ers). Ensure that all of the necessary system modules have been specified in RELOCATE commands andcEither invalid reference to an EMA symbol (entrypoint) by a non-EMA program or to 8``an EMA symbol belonging toanother program (name is the EMA symbol). The referencing instruction is replaced with a NOP. Revise the program. "Invalid mapping segment (MSEG) size for an Ej``MA program. Either the !generation-determined default size results in a value <=0, or the #specified size was too large to fit in the user logical address space.The program relocation is Qf@``aborted and no ID segment is built for that program.&Module being relocated references an SSGA entry point but does not have the $proper program type to allow SSGA access (name is the SS((]``GA entry point).Revise the calling module or, during Parameter Input Phase, !change the main program involved to a type that allows SSGA accessor to a Type 8 to delete it from the generat1(``ion.A subroutine or segment has declared more COMMONthan the associated main program. Recompile the main program, declaring the maximum COMMON needed by any segment or subroutine tT```o be used.%A system module or entry point is missing (name is the entry point name). $=cIllegal reference to a system (Type 0) module by anon-HP subsystem module (name is the ent``ry point name).  Driver partition overflow. Irrecoverable error. Increase the driver partition size to accommodate larger driver,or force driver into SDA (via its EQT definition) anX ``d cPhysical memory overflow (number of pages declared exceeded). Revise answer file andcInvalid instruction reference to an EMA symbol, an instructioneither references the symbol wi``ith offset or with indirect.Violating instruction will be NOP'ed for this relocation. Revise program before next relocation. The operating system modules that reside in OSpartitio``ns were found to be out of sequence. Modules mustbe entered in the correct (ascending) order during theprogram input phase of generation. For example, the module "OS1XX" must precede "͹@``OS2XX" since 1 is less than 2.Check to make sure that the modules are entered in thecorrect order during the program input phase andcThe system and programs loaded on-line use more ``than 255 tracks on the system disk. The generation is aborted. Revise generation to load fewer programs andcThe EMA module "$EMA$" is missing.The module is not loaded by the generator.} ``Revise RELOCATE commands to load missing module and cLocal EMA, save, or pure code are not legal in generations. The remainder of this module is skipped and not loaded. To correct thi9b ```s problem remove the above features.OS module too big for the OS code partition.Factory code fits so, you must reduce your OS module size. Save area overflow. Enter a SAVE statement aVW ``t parameter time to specify total segment required SAVE area. FORTRAN special symbol specifying don't load found afterthe module was already loaded.These flags should be in the main. + ``Recompile the main andc Error code not used.Have a nice day.A relocatable record calls for an undefined double DEF. Recompile the module or load the program on line. Undefined extern ``al(s) were encountered. Make sure the reported symbols are not needed. If they are needed, add the necessary RELocate commands and cWarning: More than one driver forced to partition 1.  `` Last entry is used. WARNING: The OUTPUT file did not truncat properly! It is most likely extended. SWTCH can not switch an extended file. Purge the OUTPUT file, check its required siaaW @HHze andc,70002)07r1516$171822N383942U4352\5457g585961"62P63727476 83 r90 91 92 ,93 @95 w96 98 99 Da@]H|;;X1 8RT6E9 92084-1X975 REV.2440 <841121.1630>/SRC_92084/R5000/ERR9.MAC ; \9ERR ``!The total number of tracks on LU 2 and LU 3 is greater than 1500. The generator will reprompt for the systemand auxiliary subchannels. Specify an LU 2 or LU 3 whose total number of tr```acks will be less than 1500.Blocks per track is a multiple of seven (warning).File system may have a problem but the generation continues.None required.Insufficient disk space remainin&``g (warning). If disk subchannel:  - continue (may cause problems later), or - correct answer file and rerun. If hole: - continue, or  - define smaller and continue, or If disk caš ``che for CTD: - Do not define a CTD without a disk cache.Subchannel specified not previously defined.Request is redisplayed. Enter valid response.Subchannel specified not a CTD. U ``Disk cache already defined. Continue or specify correct CTD and continue. Cannot cache on this disk (address incompatible). Specify correct CTD and continue. Or7384n8586>87m\<8889@t&4~~\1ERR 3}\2ERR A\5ERR SK\6ERR d|\7ERR sd\8ERR v(\9ERR x\ABCO N\ABDI N\ABDO N\ABSU N\ADSK N \BEST.FIT ;\BLER 6\BTER 6~~~\CLRFIX  \DARC N\DSKD N\DSKI N\DSKO N\DSYS N\FIMA  Z\FMAX ;\GENC /{\HEAD tV\MERR 0I\MXAB N\OLDMXN\PARM ,V~~~ \PRINT.IN > \PRINT.SYM>\RPDK ~V\SEGS N\SYSN\SYSS N\TRUN N\USER N\USRS NEAD t \MERR 0I\MXAB N\OLDMXN\PARM , ~0516 SEC_CHECK 16742 164. 92077-1X464 REV.5000 860811 /SYMLIST/ 17206 0. 92077-1X464 REV.5020 890921 /XDBL_DATA/ 17206 0. 92077-1X464 REV.5020 890921 /XDBL_LIST/ 17206 0. 92077$PRINT::RTE_6:5:58:128 644 0 0 35000 5310707302 34406 $PRINT::RTE_6:5:58:128 $::$PRINT +#+#+#:O*FST 6<<XIPRNHD 92084-12077 REV.5010 <880525.1710> /SRC_92084/R5010/&PRNHD <@::XeBLANKSTRING 92077-1X751 REV.2440 <841115.0945>/PCO/P92077/&PRINF:@BLANKSTRING   !e.ENTR .SCO ""+AA(p`"$ (@A99XB;NLS_PARAM 92077-1X751 REV.2440 <841115.0945>/PCO/P92077/&PRINF9sNLS_PARAM .ENTR .EXIT .SBST .SSTTRIMLEN QQ//A7 7p`7p`PA((17A19(/`h p1x21712D19@Q4 fh@ ?r99XBLANKFILL 92077-1X751 REV.2440 <841115.0945>/PCO/P92077/&PRINF9FBLANKFILL  .ENTR .EXIT .SSTAA @ྠ::XYBTYPE_OF_ARG 92077-1X751 REV.2440 <841115.0945>/PCO/P92077/&PRINF:XTYPE_OF_ARG &&a.ENTR .LBT.SBTWILDCARDMASKDECIMALTOINTTRIMLEN &ii55x<x:99`(`Ah<(6`:p8h8HP@(&(*H`?h<(6-9(3`>h<(6`=h<i7 @FMO+L@w;;XMAKE_FILENAME 92077-1X751 REV.2440 <841115.0945>/PCO/P92077/&PRINF;Ai"CURWORKINGDIR #MAKE_FILENAME --<.ENTR .EXIT .SBST .SST .SSTC .LBT.MBTFMPHIERARCHNAME -uuW  IIA xu"xsAhy`ur 4xhqP(9(DitDp!Hri(g`!([ivp DktDp! ri|k(gitp!D r~@iz#u%%CQm::0 / @@@@/%@| <88XUk%4;PRINM 92077-1X752 REV.2440 <850621.1457> P92077/&PRINM::PCO8  S5X7  .DLD.ENTR .LBT.SBT||@ ;;AAxHxxHxhX(@x@Q@RO@M @@Thp`Sph`N `P xF8(+`P(@(?p`NF8(;(h`NX (B|WEG\\hXFxF   '  g``((nn6RR        ?@n@бq77XkFSTATUS92084-1X993 REV.5000 <870724.0859>&PRIN1::SRC_92084 7 A< NLS ̜STATUS jjw EXECERR9.SST.SSTC .SBT.CBTPRINTNLSINTTODECIMALIDADDTONAME WHOLOCKEDLU CNUMD PROGRAMTERMINAL PROGRAMPRIORITY HISLOCKEDLU WORDINDEX PROGRAMSTATEj b AApp`2p`1D@h%&0,$J/p`(4(`(=:E=DAp*&`CP(G(Z`Bp`pP(Y`p`@.h(ZBB`AP(^(c`@p`p(`&P(g(n`?plp(Ph0X 0h X 0h"X 0h>X 0h=X 0hPROGRAMSTATE92084-1X993 REV.2441 <870724.0859>&PRIN1::SRC_92084 :RPROGRAMSTATE GG D.ENTR .IDLP IXGET EQTTOLU IOSTATUS INTABLE NUMBERTOIDADD LOCKEDLUIDGET .DRCT $CLAS $RNTB G@@A=p<0pp p+p`(3p ` `0@p(9(0p P h2X  0h;X  0h:X  0~~MN::(^` p P (V(]`:@p(\(('` (p`9@p(g((m`8p (op ('`1P (t(`1p `@@+p)`p h)0(p* p ` (~N::(` P( p (`0@ p 8*(`,p   ('`.P ((%`p((p p( ((` @p (~~::``7p (`6p ` @p((5p ($p( ((`4p `@($ (`3p  ($`2P~cc,,((`/p `1@p(((`p((($`0@p((( `.p `($`-p `('`,p (1c+    @k+88X WEQTTOLU 92084-1X993 REV.2440 <870724.0859>&PRIN1::SRC_92084 8 @EQTTOLU   .ENTR SYSTEMLUSUBCHANNELEQTNUMBER **0A ppp`*@7RV99XeEQTNUMBER 92084-1X993 REV.2440 <870724.0859>&PRIN1::SRC_92084 9EQTNUMBER   .ENTR IXGET ##A hp`#  @99XS$SUBCHANNEL92084-1X993 REV.2440 <870724.0859>&PRIN1::SRC_92084 9tSUBCHANNEL  .ENTR IXGET ==;A`#p p`"p!(` @p`=0 @888XIOSTATUS92084-1X993 REV.2440 <870724.0859>&PRIN1::SRC_92084 8 5IOSTATUS  .ENTR IXGET @o A`p p`  @g'88XGSYSTEMLU92084-1X993 REV.2440 <870724.0859>&PRIN1::SRC_92084 8 :SYSTEMLU  W=.ENTR .IDLP IXGET ss"99FpEpp`@@Dp@`Aph@C(=pA#p`Bp?`B?(9`@p88A( `s\B@fb88XO%INTABLE 92084-1X993 REV.2440 <870724.0859>&PRIN1::SRC_92084 8 'INTABLE   .ENTR .CPM.DRCT ;;Ap(p!`$@@#@(!p`; b# @,Kn88XGLOCKEDLU92084-1X993 REV.2440 <870724.0859>&PRIN1::SRC_92084 8 #LOCKEDLU  W=.ENTR .IDLP IXGET yyE::AFpEp`@@pphD(?pB@@@pA(Ap`׈C(/(2`p(:`C(7(:`p`D@p8B(`y ^C @::X_HISLOCKEDLU 92084-1X993 REV.2440 <870724.0859>&PRIN1::SRC_92084 :  HISLOCKEDLU  %%-.ENTR .IDLP HISRN IXGET IDADDTONUMBER IDGET %~~K ??A p ^p]p p`(!`  $p`@@pAph\(XpZ@@@pY:Yp`[pC(G`p `[~''>IpN(S`p `\@p8Z(0(' v[ @t4::XNWHOLOCKEDLU 92084-1X993 REV.2440 <870724.0859>&PRIN1::SRC_92084 : WHOLOCKEDLU  $$.ENTR .CPMNUMBERTOIDADD .DRCT IXGET $RNTB $~~#==ApMpALp((` `@@p@@pJ+Jp(5`Kp(8`Kp`(<(@pJCJKp~EHp( cK @_77XHISRN 92084-1X993 REV.2440 <870724.0859>&PRIN1::SRC_92084 7 JHISRN   .ENTR IXGET .DRCT $RNTB 11נp`pp`1  @r::X1IDADDTONAME 92084-1X993 REV.2440 <870724.0859>&PRIN1::SRC_92084 :)IDADDTONAME  .ENTR IXGET UU?''@p)`0p''`+@)h/p'x(('`*@)h.p'x("(-0,'U>*  @;;X'NUMBERTOIDADD 92084-1X993 REV.2440 <870724.0859>&PRIN1::SRC_92084 ;pNUMBERTOIDADD   .ENTR IXGET %%cA @pp`%  @h;;X?1IDADDTONUMBER 92084-1X993 REV.2440 <870724.0859>&PRIN1::SRC_92084 ; oIDADDTONUMBER   .ENTR IXGET VV((Ap0pp`/p.`@p--p`(($`p`((`(((!88.((!V / @#A::XSHORTSEGMENT92084-1X993 REV.2440 <870724.0859>&PRIN1::SRC_92084 :\SHORTSEGMENT  .ENTR IXGET $$A`p p`$  @6<<XePROGRAMPRIORITY 92084-1X993 REV.2440 <870724.0859>&PRIN1::SRC_92084 <PROGRAMPRIORITY  y1.ENTR IXGET IDGET 33-A p`(`@pp(p`3  @Ts<<XN{PROGRAMTERMINAL 92084-1X993 REV.2440 <870724.0859>&PRIN1::SRC_92084 <nPROGRAMTERMINAL  y1.ENTR IXGET IDGET 55A p`(p(`@pp`5  @Y99Xq'WORDINDEX 92084-1X993 REV.2440 <870724.0859>&PRIN1::SRC_92084 9WORDINDEX  .ENTR EE!!A@p&pp(#p%`@&((`p`88%((E@nt477XIDCLR 92084-1X993 REV.2440 <870724.0859>&PRIN1::SRC_92084 7 B IDCLR  ~MESSS PNAME ++OF, ,8,N((P   p  +@,J<<XL!PRINT_JOB_OWNER 92084-1X993 REV.2440 <870724.0859>&PRIN1::SRC_92084 <m PRINT_JOB_OWNER  .ENTR IDTOOWNER GTSCB ))' A     p  )@r<<<~~ BLANKFILL 8 BLANKSTRING L EQTNUMBER 'EQTTOLU  HISLOCKEDLU #q8IHISRN (< IDADDTONAME )`IDADDTONUMBER ,BIDCLR 3INTABLE  ZIOSTATUSgLOCKEDLU"MAKE_FILENAME F~~~H NLS_PARAM bNUMBERTOIDADD ++PRINT_JOB_OWNER 4"PROGRAMPRIORITY / PROGRAMSTATEj![ckPROGRAMTERMINAL 0IS5X7x SHORTSEGMENT. STATUS J,? SUBCHANNEL8SYSTEMLUrF~~~'k TYPE_OF_ARG I WHOLOCKEDLU &" WORDINDEX 1w4"PROGRAMPRIORITY / PROGRAMSTATEj PROGRAMTERMINAL 0IS5X7x SHORTSEGMENT. STATUS J SUBCHANNEL8SYSTEMLUrF~nfiguration file  call fmpread(dcb,error,buff,38)  if (error .lt. 0) goto 900 call fmpclose(dcb,error) c see if user entered a password  passwd=21780  lengpw=trimlen(userpassword) $SGMLB::RTE_6:5:242:128 644 0 0 171000 5310707304 35517 $SGMLB::RTE_6:5:242:128 $$SGMLB +#+#+#xOfFST t::X py SGMLB 92084-12084 REV.5020 <890831.0017>/SRC_92084/R5020/&SGMLH :@ p::X]6REPUT 92084-1X582 REV.2540 <890830.2038>/SRC_92084/R5020/&SGMLB : BmABBIO IREPUT  Wt.ENTR REIO.LBTPUTLN SPUTTT --@p. /5p-A4-h0@2p-h0@10-(+'/3+T_/ @D** @1U33X1 [ PUTLN 92084-1X582 REV.2540/SRC_92084/R5020/&SGMLB 3 BmABBIO y+PUTLN  =#.ENTR .CPMERROR FMPWRITESMOVE 99 (( 9OOZ))))@)pSA*Z(8(8`Z*?)W*Y`X*pRH(R`((PPTV(+OdT @pDN@ n33X( ERROR 92084-1X582 REV.2540/SRC_92084/R5020/&SGMLB 3 Bm ABBIO ̍>ERROR  WWUEXEC.ENTR REIO.EXIT .SBST .SST.LBT.MBTFMPPURGE FMPCLOSE FMPCONTROL FMPWRITESTRINGTRIMLEN FMPERRORFMPREPORTERRORW~~;GGA;;x= < 0(`Hph@hxph@(hAg=(l=p=sňp:h`A`@:p ~HH%%A =  =  = =HѼ SGMTR: TERMINATING...0 AA>55%G * < @ @Vhl@5@M33X": SGLDE 92084-1X582 REV.2540/SRC_92084/R5020/&SGMLB 3((F)AREAMAINE SVSPC MDNOD ABBIO( MSGLDE  ؼ.ENTR REIOERROR MOVEd CANNOT BE LOADED A@p4s SGMTR: SEGMENT _ ..)%A"7 9'8-762555.5 @*33X!` SGM1A 92084-1X582 REV.2540/SRC_92084/R5020/&SGMLB 3""ElMAINE SVSPC MDNOD ABBIO" SGM1A  kk!.ENTR .CPM.EXIT .SST.MBTPUTLN MOVESFILL FMPCLOSEERROR FMPFILENAME FMPOPEN FTIME SMOVE SPUT FMPCONTROL SCREA FMPOPENSCRATCHFMPBUILDNAMEk ) @ // /~~KK@pAh`DDJ"! #[Z`Z(Z#[Z &pZ . Z`Z(66Z~|6DD > Zπ`Z(FFZP(K(Sp Sو(Z(Z`a2`؈p2`j2m3q2 x[Z`Z]]z11(Z[Z`Z(Z[Zh`2`p2`p342]NNf..roworwctz sg @@ @D@ HL \` Z\ ^d fP , LI* L@N@"@33X'& SCREA 92084-1X582 REV.2540/SRC_92084/R5020/&SGMLB 3A+BIO ~JSCREA   ZZ.ENTR .CPM REIO.EXIT .SST.LBT.MBT ERROR CLCUC FMPPURGE FMPCLOSE FMPOPEN FMPBUILDNAMEIFTTY DECIMALTOINTFMPPARSENAMEZ ( ~~NIIIAIIxmDr|Dt|Dx|Dv|@p|pHplxv(t)*+hkH@pfhk@~f(xpFFPj(L`HJ`)(`rp)`*(`l~mm!>>p*)A((-)rpf)f(-`*(4 lxv(t)*+r lzj`P(`(; `(ϡ l(m**4, THE FOLLOWING FILE ALREADY EXISTS. OK TO OVERLAY IT? _ *< A A, .H ENTER YES/NO/EXIT :_ bb'00A H`@pf jfpx`(S`P((lp`( l(d`P( `P(S(b6S ENTER NEW FILENAME:_ CCx !!A S`@pf jfpx`(S$`P(Shm`ql(dC5^ SGMTR: BAD TYPE SPECIFIED FOR FILE:_ -A 3^(Z8q SGMTR: BAD SIZE SPECIFIED FOR FILE:_ 4A :q(Z1 SGMTR: CANNOT CREATE FILE:_##p;A AA G Ln# SGMTR: ILLEGAL LU:_LA R(ZX SGMTR: TERMINATING...'';lSA Y(` ` e('DDUh)) wc  @@D @N Rb  EXNOYED@ُ33X"J SGM1B 92084-1X582 REV.5000/SRC_92084/R5020/&SGMLB 3""E:MAINE SVSPC MDNOD AB BIO" SGM1B  119.CPMERROR FMPCLOSEREPUT FMPREAD FMPSETPOSITIONSGM1C FMPOPEN 1AA0 .. SGMTR: MAIN ROUTINE MISSING6 SGMTR: WARNING! MAIN ROUTINE HAS NO TRANSFER ADDRESS A~~DDp/.`.(./.ȀpP((.`.(.`@p`P((+/.pP((  .~ DD`.(.`@p`PŠ(%*,/p.`.(O((O2*,/p.`.(O</.pP(`.(HH.`@p(+`+pOQ@@`-pY/.*,`.(aa.g/.pP(l(qq.`.(yy.`@p`ˆp`p`P((P((`P(RRH))(È((((a /.`.(.  .(RX8ro@v@@q33X" SGM1C 92084-1X582 REV.2540/SRC_92084/R5020/&SGMLB 3((F)AREAMAINE SVSPC MDNOD ABBIO( GSGM1C  >> .DDE.ENTR .CPM.IDLP HBYTE CMWDS MOVE SFILL JSCOM SGETERROR FMPPOSITION >HHA@p@ppA(.(.``쀈@p`@p `PhX  0([((I`(QQ@(,`P~~a_;;hHpP(`(r`P(v(,`쀀@@p`p h(p` @pࡡ ((`@ p 8((,`P ~~~;;((`(`@p `p` p h(p`@@p `@@p  (`@hHH刡px @@~v| p@ p 8((,(,p(,&&B @  ?@@ &@n퍭33X, SGM31 92084-1X582 REV.2540/SRC_92084/R5020/&SGMLB 3((F)AREAMAINE SVSPC MDNOD ABBIO( SGM31  FF .ENTR .CPM.IMAP .LBPR ERROR FMPCLOSE REPUT SGLDE SEGLD IFBRK HBYTE FMPREAD FMPOPEN F;SGMT4 MX;9GG@p`(ppP(_`(`@pP( (:`Ap((`@ppJJ`P( (+0p``p(3(A`p=Ph (^`Ap(N(`AAp`(`CCa""p`  j`(rr u(||  CnQ SGMTR: EMA SPACE OVERFLOW!!B  !~f' rwo @  4P@Zpy033X8 SGM41 92084-1X582 REV.2540/SRC_92084/R5020/&SGMLB 3((F)#AREA$MAINE SVSPC MDNOD %ABBIO( SGM41  }}d.DAD.DIN .DSBR .DMP.DDI.DCO.EIO. .JIO. .DTA. .ENTR .CPMREIO .EXIT .IMAP .IDLP REPUT ERROR "SGLDE !SEGLD IFBRK DLSON GETSZ NOSON PSIZE IDEFT LSON}xORDER MOVEPUSHCRNOD EPOSBBѯ// SGMTR: WARNING! PATH LIMIT OVERFLOW! d TOTAL PROGRAM SIZE IN DECIMAL XXXXXXXXXX**SGMT5 Bӌ@p$ / SGMTR: SEGMENTING..._[[ս66A1/6pwp@$ pܡxwၱhA@h@Ah%:%-#AH `# [""j:(' TOTAL PROGRAM SIZE IN DECIMAL ',I10)"FKKh@ ߉hA@  % xw`w(h@߉hA@p倈`w(&`w@'p%pAh@`*h@@9GG(=(=(`pv([p"`v@$pKA4hA@8v8"(Dh@hH`#h@`*hA@ꈊ(}(x(} |5(`P(KGG(h@A߉߀`wh3X 0((A(p`w(`w@'@$p`݈@$h px( xw(Ԉ`pv(p!>>5`v@$pЁxw8v8!(xw(`w@'@,p@wpw`w>}}I<<(((p`P܈(`pv`v@$pA(@p`܀@$p`܈@$hvH$`v@$h`7p`vApvv((`݈P(`pv`v@$p}~~ CC#(p@p`ph(p @p`p`@$hH$Kxw`Aph(p`v@$hH$(Z(`p1(b(`7~c<>(zp`p`p A(vp`@hH@(d(r`@p`@hH`@h88([88(((Qp (p` @hHpׄx׀~~CC88(` @p`p `p`A@p ((*ـ pP((Aـ  (*`pP((΀`p (*`~xtpp(f``fo@.M33X![ ORDER 92084-1X582 REV.2121/SRC_92084/R5020/&SGMLB 3 ^ORDER   .ENTR ORDR1 MOVEGETSZ }}[DDA@pY@ pX@ pW p @ pp (KpV @XhHY p<   @@@@XpUGUZ88V()`}CL @XpUS U Z @b0"33Xn ORDR1 92084-1X582 REV.2121/SRC_92084/R5020/&SGMLB 3 _ ORDR1  .DCO.ENTR .IDLP &DDA@pk`m@ pjpp`(dpi`p`pAl(`ph`@@jhHHjpff(\(\`@@j`@@jhHHjpff`@@jpf::7Kf`@kp`@khHk`@kh88h('88i( : .l @-33X4 GETSZ 92084-1X582 REV.2540/SRC_92084/R5020/&SGMLB 3((F) AREA MAINE SVSPC MDNOD ABBIO( mGETSZ ((.DAD.ENTR .CPM.IMAP .IDLP ERROR REPUT EPOS(~~"FFA@p@p䈀p@pP(8(A(?(AA(H(H`@pOAhA@~~~4[@@`@p`h pلx@p(o(͈`ph(pp p (p` @P (ɀ8 8((p(p`@@p~jj33@@@A@p  ((`Ap h ܈(p` @P (8 8(88(P (((@䀀h 88(v(0j SGMTR: STACK OVERFLOW (G ` h@D22X2 EPOS92084-1X582 REV.2121/SRC_92084/R5020/&SGMLB 2 AAREA wd8EPOS `d.ENTR .CPM.IMAP .LBPR MOVEFF22F>6BB6p3p5p4`p2`p`2@6 ( (]`2@@3(]`2@p3`2p5@2p28(G`5@77p7A@747((`3p3BBh;x`36((f6p7p18`2@7(`p22Bf``@<33X8T POSIT 92084-1X582 REV.5020/SRC_92084/R5020/&SGMLB 3""EH MAINE SVSPC MDNOD ABBIO" LPOSIT  << } .DDE.ENTR .CPMERROR FMPPOSITION MOVEFMPSETPOSITIONHBYTE FMPREAD FMPREWIND <An``MA```QQ;;Q}}WsDD@pFp`PpE`@K((u`@@J`@@I+`(33GANQ(s(s`@Q6p`@@Ih HHIpAxBKA}IDDB`@@Jh HHJpAxBYAB`@Kh HKpA`@QpCxBiABCpc88E(`(ppp`PpD`@KhBCC@HKpAA(`@Kp`p88D(`hHK (ǀ`@@JhHHIpAxBAB`(GN@p(ṕ`(~~^(FFGNہOpP((GN`(GNP((`Ap(( `(  GN L~PP++`(  GN%egS*S/R 5c`(==GNp(tP #G @ c21b@Z33Xg SGM51 92084-1X582 REV.2540/SRC_92084/R5020/&SGMLB 3((F)AREAMAINE SVSPC MDNOD ABBIO( R)SGM51  II!EXEC.ENTR .CPM.IMAP .LBPR REPUT SGLDE SEGLD ERROR IFBRK FMPCLOSE CNUMD UTEST FMPOPEN Iw SGMTR: XXXXXX NODES CREATEDSGMT6 d͞''@'pW SGMTR: OFFPATH REFERENCE CHECK /DD3ݡ:10`0(BB0p`@pAp`p`([[1'(`@pˁPڈ(y`pA(l(`@HHpx~~sBBAˁ(M`@pPڈ(`@h€H pɄx(M@p`(y`pɡ ܡ 10`0(0 0(~{ ١ 0 " SGMTR: NODE STACK OVERFLOW 3I "A)f rwo @0  @t)33X-p UTEST 92084-1X582 REV.2540/SRC_92084/R5020/&SGMLB 3((F)AREAMAINE SVSPC MDNOD AB BIO( qUTEST  f.ENTR .IMAP .IDLP OFERR UTES2 EPOS ~~) EE @ p@p@p@@p A@ p@ @p ` p h A(pA p>`pA(`@p @ pA@ ~~~RBB@p` ph(ppP(pp`(p`@@p@p@@p`ph(pP(((~77 (88(88(m88([8 8(57 B`p  @!@33X  UTES2 92084-1X582 REV.2540/SRC_92084/R5020/&SGMLB 3((F)AREA MAINE SVSPC MDNOD AB BIO( $UTES2  ##EXEC.ENTR .CPM.IMAP .IDLP REPUT EPOS#EE@p@"pp!"pp`(p`@pB`p(`@p@p@@p`ph(ۄpOEc@@pP(׈@@p@pA@@p`AphA(pP(׀88(}pp`(p`@@pA@p@@p`ph||ο==A(pAP((p`(p`@P(88(`Ap#((`@h(׀88(88(p`$88(_88(:(| SGMTR: MODULE STACK OVERFLOW (mA( ` @DNc33X%* OFERR 92084-1X582 REV.2540/SRC_92084/R5020/&SGMLB 3((F)AREAMAINE SVSPC MDNOD AB BIO( ɧ`OFERR  I.ENTR REPUT OFER1 CNUMD `` SGMTR: OFFPATH REFERENCE ERROR IN WHICH THE MODULE:4 IN NODE ORDINAL XXXXXX REFERENCES IN A PREDECESSOR NODE THE MODULE:. WHICH COULD POTENTIALLY CAUSE AN OFFPATH REFERENCE4*EE `$$\@_pjn]_r\$v'z(?~^_@Z`E@W33Xa OFER1 92084-1X582 REV.2540/SRC_92084/R5020/&SGMLB 3((F)AREAMAINE SVSPC MDNOD ((AB BIO( s.OFER1  .ENTR REPUT ERROR FMPREAD POSIT  - * ZZi,//,@-p[8,->-+`pP(C(HH\^+`+(PP\^+`_@p`pY.Zp\ @ P@>1\33X;s NDWRT 92084-1X582 REV.2540/SRC_92084/R5020/&SGMLB 3((F)AREAMAINE SVSPC MDNOD AB BIO( NDWRT  gg .DAD.DCO.EIO. .JIO. .DTA. .ENTR REIOMOD .EXIT .IMAP .LBT.IDLP MODWR EPOSPUTLN REPUT JOCTMOVE FUNC2 SPUTSGETCNUMD gEE311 SGMTR: ...PATH LIMIT OVERFLOW! D*********** * NODE SIZE IS XXXXXXXXXXXX WORDS (XXXXXXXXXXXXB)2E>>@p@Ȁp@pơ((爈`p`p(A`p`ͨP((`̀pp`ApI(p`I@h Hpx`}}Ͼ@@@p`@h8I8(@@pp@pI`(/p I`P(+`@p@+@8I8(3@P(6(>`@p>`@pE}D Hh @ĈHph @0(`>1 SGMTR: LISTING NODE: _ {QDDA W 1`p ` dǀ@p@`ň@@hH@px @pK K`Kxp p `@@pK`@@p @K@pJhR =@` f=(I12) ~~EE)0@@pOpI(p`I@@OO8I8(` *hA@O(((((`KpI~EEhJ(p IP((`KpN`IAp@hN( p@@p Ap @`@@p@8(A K(8I8(HApx P 0 XM*AA 0(C`KpIhJ(Bp Ip>ɀ8I8(5(@pM`@Mp pL`@MpH`H@L@pG`KpIhJA(pA Ip@`HpFhGA(p@ oo|k88FpsE`Ep pD`@EpC`C@D@pB`CApAhBA(p AP@((@(8A8(8F8(j8I8(^o Z` )) D 6O,@ . D.D M.M )@533X"/ MODWR 92084-1X582 REV.2540/SRC_92084/R5020/&SGMLB 3((F) AREA MAINE SVSPC MDNOD ABBIO( MODWR  11 74.ENTR PUTLN HBYTE SMOVE ERROR FMPREAD CNUMO CNUMD POSIT 1ppQTTMEX* * THE PREVIOUS MODULE REFERENCES NO OTHER MODULES * MODULE SIZE ISXXXXXX WORDS (XXXXXXB)NA, * THE PREVIOUS MODULE MAY NOT BE DUPLICATED p~~k6AA@pV,pP(( "`( "`Wp~VpTpU`pV`pWV`.~p&`.~p-~kAA-̀V,pP( `( "VP( VP(㈈(`+p1`~(`*p1 W#)1(1'(ơVP(( `&P`h` 880(pU((`U(%`T(;%$8  @ 2SYNAP&@jM22X^ JOCT92084-1X582 REV.2121/SRC_92084/R5020/&SGMLB 2 p6JOCT  ޳.ENTR SPUTSGETIBRAR }}cH@@@p@pȈ@@Lj@p!%Lj@p-1Lj@p9=Lj@pE}~~xB??`Ȁ@@pO`@(^`Ȑ@@p^`@peLj@pm`ˆ@pt@Ŋp|`@p~ww,1<<@Ŋp`@p@p`@@pp`p`P((88(w#c0 0   1@۰33XL SGM22 92084-1X582 REV.2540/SRC_92084/R5020/&SGMLB 3CC AREAABBIO mCSGM22   << 7 .DCO.ENTR .CPM.IMAP ERROR REPUT CMWEN SYERR FUNC FUNC2 CNUMD CMWEE <5 SGMTR: FIRST FOUND IN MODULE # XXXXXX~~"=CC=@?p=p)p<Q@p(V@p'P)([(p%p1A(d`<C%p$h$p2`$p/`@/p$`P2hÀX2 0(`%~~~CC@/p`%@/@pA`P2hX2 (p.`$(p`1@.H%H.Apxp`8.8(`1@$p1`%@$p%A@%(d~l>DD`1A(b`ňP)((Op%%p$h$p1`$p$`P1hX1 0( `%@$pP(h%H$HpxP'( `1(@$pA%`~~z@@`P1((b`%@$@p%A@%((bp..p/h/p0`A/p/0(*(E`/P$(.(E`.h% px9$(EP0(?(DA.`/(b`.@/~~~}GAA@p.A@.((bP)hX) 0(#p%A(6`p"(r`#(P)A(i(&(n(`%@$@pp{ġ?>*`P&(~~~<BB(?>*`€P&hX& 0(?>*`P&((p)`P&hX& 0(`@&(A@$p%``ÈP&((p)`P)(ń(&((~}}DD`%@$@pAp?>*`P&((?>*&(pA&((?>*`ÈP&(( `A@$p%``}xDDP&((`A@$p%``%@$@p%A@%(_(6)((pA)(/(p%A(6`p"(r`#(`P) X& (N%`$`P)((Rp&(X(bb?>*`P&(f(eFF(ll?>*`&P)(p(`%@$p y@(`%@$Ap`%@$@xpp ,?>,?>@@ ,((@,`%@$~~CCpA,p``%@$@p,pA`(b(b&(Ap&(h&X) (?>*`%@$@p%A@%(8(6`P)(~AA(3p%A(6`p"(r`#()A&((`p)`P&(((bA&( p&(()`%@$pA`(`%@$@p`'(b`%@$@p%A4/BB@%((6`p""`AA>B(>(AA`)(A>pA`p%>(`pA@%h%HpxA8%8(QA>AA`(AAA`'XXMq..(b%p$h$p&`$p$`%p?(p#">@$(`%p ?$(p#"X SGMTR: SYMBOL TABLE OVERFLOW 6  (b ` ;b    & @\{g33X SGM23 92084-1X582 REV.2540/SRC_92084/R5020/&SGMLB 3BBFAREABIO U SGM23  SSe.DDE.ENTR .CPM.IMAP ILOAD ERROR FMPREAD FMPSETPOSITIONHBYTE CMWEN SPUT MOVEFMPPOSITION FMPCLOSEIFBRK S~~]CCA@pi@phpg@pf1(<7<nnnp`o@fp`o@fp(M` `Ph~X 0(p^~~~6ZCC`(ffjn@l(K`}P(t(`o@fwp `upp ` (pe`u@p `q@@fvpp(pA_p]]p_~~~NDDvp`P((`p]_]` @f((`h Hfp]x^ ]^( oA(( u(p] t(((](p`sPhrX 0(#`~~~;;@@qp@(`(#`u@@hqHHfp]x^^@]p8 8e((K`|P((`o@f{p `upp ` (pd`@fp]  ]q  t~33Azp`yP ($`op`yP()`qpp(pA_3~~3EEp]8A]p_vp`P(C(y`p]_]P (M(y`p] U] (yA o(( u(ap]A t(h](np`sPhrX 0~"x<<(#`@@qp@(0`(#`u@p8 8d((K`xP(("`o@fwp `upp ` (!pc`@fvp`@@op `@fvpp(}}|DDp_p]A]p_vp`P((`p]_]` @f((`h Hfp]x^ ]^( oA(( u(p] t(](p}~~M ??`sPhrX 0(#`@@qp@(`(#`@@h Hfp]x^^@]@op8 8c((K(K +`(33jn9~GG7&&ppP(>(CCjn`(KKjn`@Zn(3(KG _` && Bj @ ? @ @&@P 33X  ILOAD 92084-1X582 REV.2540/SRC_92084/R5020/&SGMLB 3//GEVLFG AREAMAINE SVSPC MDNOD ABBIO/ ILOAD  CC .ENTR .CPM.ARTN SGM22 IBRAR HBYTE ERROR FMPWRITEMOVESFILL REPUT CNUMD CHKSM Ckk PP* SGMTR: WARNING! LAST ROUTINE IS A SEGMENT SGMTR: BLANK COMMON SIZE ERROR SGMTR: MODULE #XXXXXX k~~r6BBA@p@p@pp(``Ā@pY`@pZ`PY((WW_pRp(`PZ(͊(WW~ @@_pRp(`PZ((`ˈ@pcaA@p((`p`(`@pk`@p`PY( (^`ؠPhˀH r>>p`@p`0( `p`@p`Ɉ@p+p2a݈A`pWW(;(;`ԈpW`@pCcW(J(J`p`(V`Ȉ@@~~ P??pVk`@p`@@ p `PZhXY 0(`OpO`pa`@pb(y`0bpb`@p Ra`R( R @O/~<< ((`p3c`@p`@p 'PO((`@<~~g<

p`숈pa`\@pbb~EAA`ƀpp]`؈Pc(`p]`Pd(`ψp]`@\@P((`pa`ψ@\@pjhj@_]b_pR`p(&hO@_%]b_pR`@~~(??p /Ra`R(7 7R`ˈ@\p\8W8((`툈PY(C(`Ā@p`p\pW`(p`@\@p]hO@_`@\@ph]_~~~kg==pR`paqb`@\@pzb] Ra`R( R`@\@]hH\Hpx@p\8W8(Q(`눈PZ((`Ā@p`~@@p\pW`(p`pa`\@pbb݈`@\@pj`pk ʀRa`R( Rp]`Pc(`Ĉp]`Pd(ވ`p]hj@_+> ]b_pR`@\p\~~t??8W8((`PY((Z`@p`p\pW`(Yp`\@Ոp]`\@h@_`@\@p!]_pR`pa*b`Ĉ@\@p~~~#S.>>3b]`\@pj`pk @Ra`R(H HR`@\@]h\ HpxS@p\8W8((`PY(^(刈`p\`\@爀p`\@~~~Cl;;p]`paP(t(v`pa`P(z(|`pa`P((`pa`PhXa p`Pap`0(`pb`@\@pb]`~~~>>@\@pj`@\@pk Ra`R( R`ˈ@hH\Hp`@\@px]pR`ˈ@\@]h\ Hpx݅@p\A\((`(~S~>>`PY((M`@p`p\pW`(Lp`\@p^`߈pa`\@p] b`\@^@Ĉ@pb]`Ĉ@\@pj Ra`R(' pp&#77'Rhj@_`\@^@Ĉ@p9]_pR`\@^@]h\ HpxE@@Ĉp\8W8((`PZ(Q(Tp[`pT`T@p~~}ZEEpXpW`TApTT[(f(f(`WpWW(W(W`W@ʀpyXÈpU`U]]]]ш`T@h@PP0(]`T@ppS`πPS~)CC(]PpR(]`T@ph@PP0(`T@pÅшpS`PS(PpR`TpT(]`PYhX (`p~~x>>`PZhX (`רp`PY((`@pV`pT`T@pXpW`TpT`WpWAW( (`W@pXpU@VpV`V(`UA+~~~D GG/S+r`TpT(`T@h@PP0(`T@pDшpS`PS(QPpR(`T@pZh@PP0(nm~~~ggEEPpR`Ĉ@TpT(`T@pyh@PP0(+PpR(+`T@h@PP0(n`T@pшpS`PS(n~TPpR(n(SSj<< @0   EM ` RP?AYAEASA @X E @ M @ P@S@@_33X, DSPLY 92084-1X582 REV.2540/SRC_92084/R5020/&SGMLB 3((F) AREA MAINE SVSPC MDNOD ABBIO( ЏFDSPLY  $$A.ENTR .CPMREIO.IMAP CNUMD SFILL HBYTE $YYID//DpC`p p<p=Wp>>paApA>p?`APC(l(ۀ`<p<P<(s(Y! TYPE NUMBER: _ ~~sDDAy}AC`>@?A@pp@`@@=@?((=p=pB`?(p `=@B@h>HBpx~qq998B8 (`=@?p=A?(ˈ(`=p=AA(Ј(`=@p@`@=p=`>@?@p>D@>(Y`=(A=`<(q= NUMBER OF ELEMENTS = _ --AA<8C8 (MF- ` g P&@433Xz SGM24 92084-1X582 REV.2540/SRC_92084/R5020/&SGMLB 3BB< AREA BIO ASGM24  11 ~EXEC.ENTR MOD ERROR REPUT CNUMD ILOAD MOVEHBYTE IGET1}}S @@ @ p@ p@p`p ($`p'p`P(,(0/p` hp` pA?p ` &p` @p`p(}~~nK<<`@pQpp ` @@@((u` @hHpڀ`@p܊xm`@@ p `∀p(` @hHpڀ` @p܊x`p~CC(` @݈hHp` @pxۡځ` @@p (K`눀@ph@pApp(Ĉpx``@##op Ӂ (# TK ((@z :33X'W GETEN 92084-1X582 REV.2121/SRC_92084/R5020/&SGMLB 3A+ BIO IGETEN   00 "EXEC.ENTR .CPMMOD ERROR REPUT CNUMD SFILL MOVEIGET0~~֌ @@ @ p (wˆp h p` p`p` (-`p0p4@p9p`P(>(BAppAHp ` &~~~LAA ` @pY( @pb h ` @` @p ` `  `pA(( ((Z`@ph~AA @pp (Qp (upx`p  (uA @&6D33Xr CHKSM 92084-1X582 REV.2540/SRC_92084/R5020/&SGMLB 3A+BIO bCHKSM  .ENTR .CPMREIO.IDLP .MBTERROR ccс22A@pchh`lg`o@cApq(-(=`qApn(=pb`@c@p88b(4`m@cP(C(E(Tc FILE READ ERRORH ANopSin(_ FILE READ ERROR1T AZop_gn(D>dSYSLIB @`@Vu33X? CMWEE 92084-1X582 REV.2121/SRC_92084/R5020/&SGMLB 3 AAREA DCMWEE   {n.ENTR .IMAP bb33Appp`(/p>@p7A:7@x7p8A:8@7(1(4(+88>(`p(/p(/b :`0 @y33X$> CMWEN 92084-1X582 REV.2121/SRC_92084/R5020/&SGMLB 3 AAREA GCMWEN   {n.ENTR .IMAP __U11A@p=ppp`(-p<@p585`@=(/(2()88<(`p(-p(-_ 8`0 @ҿ33X SGM25 92084-1X582 REV.2540/SRC_92084/R5020/&SGMLB 3((F)AREAMAINE SVSPC MDNOD ABBIO( jSGM25  aa8 .DDE.ENTR .CPM.IMAP CMWEN SYERR FUNC2 HBYTE ERROR FMPCLOSEIFBRK FMPREAD FMPREWIND FMPWRITEFMPSETPOSITION FMPPOSITION MOVEa MEX ~~s|hAAh@ipypgpAtpr|rp5tp`P5((`@@pr tr@p`@@ph@(ti2`2(z2i~~~kGG2p3P3(`2(z2`3@p4hp-`-P((2( Ѐi2 ۀi286`2(z28@ e}c ;~SDD4`4p:(`-P((|;Pt(Aptphp5`p`5(r`prtr`(r`pr !r(rhHH|X (r ^4FF9i286`2(AAz20;p;Ji2ec`2(RRz2`:@pr[i2;r`2(ccz2ii286`2(qqz2(`@@ph@z ((`-P(( pAt~~LHHp0h0p5`0p`@5(`prAtr`(`pr rA(hHH|X ( i286`2(z2@8 8}~}}~@@6Հi286`2(z2`P5((p(`@A@prtrp`4@pri2r`2(z2(`@@ph@((`P( (}~~?HHptp0h0p5`0p`5(`prAtr`(`pr 2rA(hHH|X ( Ji286`2(RRz2@8 ~~~lVDD8}6ai286`2(iiz2`pp`@@prtrp`4@pri2r`2(z2(`@@ph@(((ptpr~~~AArp5Atp`P5hX5 (g`p-`P5((`p-i2`2(áz2p1ˀi2p3P3((z2`2(z~k2`3~~eAA@p4P((`1p12( i2P X1 (Ip0`(px`0@|hH0prxstsr808x(`@pr@~~~"DDtr`@@xrpsAtsps4.rs`P-(8(>>.`P-(B(HH.(g`P-(M(`pr Ur(hHH|X ~f (`@@ph@(j t`0 $$Dz @`   AE ASPX A $@0333Xc SGM26 92084-1X582 REV.2540/SRC_92084/R5020/&SGMLB 3((F)AREAMAINE SVSPC MDNOD ABBIO( SGM26  ddL.EIO. .JIO. .DTA. .ENTR .CPM.EXIT .IMAP ERROR FMPCLOSEIFBRK REPUT MOVE FUNC2 SFILL HBYTE SYERR CMWEE FMPREAD FMPREWIND dT!`` COMMON BLOCK SGMTR: COMMON BLOCKS ARE: * SGMTR: UNSATISFIED EXTERNALS IN MODULE:<<,`** XM<~~eCC@pЀ`(pՀpP(刄(`p((m((`(`@p¡P((H(~O@@ ((`p(m`@pA("("`p 'Kˆ`_@p__(1(1`p_`_@(D`_@(C`_@h_HH(@_p_bbG//(1KP(N(l(S(ڀ`@p \`@p`@hA(h(k`p(m((`K(y`_@p w7b~~vAApK`@p `pp ppA p`P((pA pp p`(`P((`h px ~CC(`@@p@(p`(p`@hHpxA 88(`@p `@@Axp p `~~AA@@p(  @( (`p`ppA p"p p`P(-(3` 8`(`P(<~ʺ;??(B`pg`шph`pi`ψP(F(J`͈pg`php`(ap`@@hHpx 88(Q`@Ap `@@xp p x@hNz @` f(I10) OO'' s ``@@Ɗp(@((88(O `@ 99B&&  @ _6,@0MA EE AV S P % '9@؊J33X*` SYERR 92084-1X582 REV.2540/SRC_92084/R5020/&SGMLB 3((F) AREA MAINE SVSPC MDNOD ABBIO( e SYERR  88 @.EIO. .JIO. .DTA. .ENTR .CPM .ARTN .EXIT REPUT ERROR MOVESFILL 8$`` SGMTR: RPL SYMBOL REFERENCED AS DATA : SGMTR: DUPLICATE ENTRY POINT SYMBOL : SGMTR: ENTRY POINT MATCHES RPL SYMBOL: SGMTR: DUPLICATE RPL SYMBOLS : SGMTR: RPL SYMBOL MATCHES COMM7j```ON : SGMTR: ENTRY POINT MATCHES COMMON : SGMTR: COMMON BLOCK TYPES DONT MATCH : SGMTR: COMMON BLOCK SIZES DONT MATCH : SGMTR: SAVE COMMON BLOCK NOT IN MAIN : SGMTR: EMA COMMON BLOC**IzK NOT IN MAIN : SGMTR: BLOCK DATA MISSING FOR COMMON : *OO6--@p  @@p(9(9`pބh1 `@O B(I6) ~~K<4HH9A GGMSY_ekqw}L(R(((X((^<(dP(jd(px(v(|~88+F|(((    8;U ,@@( P@@22XЕ FUNC92084-1X582 REV.2121/SRC_92084/R5020/&SGMLB 2 *FUNC  .ENTR $$1p@p@p`$@*tI433X FUNC2 92084-1X582 REV.2121/SRC_92084/R5020/&SGMLB 3 IFUNC2  .ENTR %%A@p`@%  @w744Xl4;IBRAR 92084-1X586 REV.2121 801023 P92084/&IBRAR::PCO4 *IBRAR .ENTR 8 8( @$___~~I/CHKSM n6CMWEE FCMWEN CRNOD E.DLSON AXDSPLY GEPOSRkERROR BFUNC(FUNC2 GETEN 6GETSZ N06IBRAR $IDEFT <{ILOAD \6])JOCTU]~~~^ZLSON@@MODWR {d6NDWRT q40CwNOSON ?OFER1 o)6OFERR lUORDER IdSORDR1 KiPOSIT V 6PSIZE CxPUSH>PUTLN -6REPUT JSCREA z6CTU ~~~) SGLDE %6SGM1A  06SGM1B "6!SGM1C z6SGM22 J 6=CSGM23 x6kSGM24 26kSGM25 o6CSGM26 [ 6CSGM31 "w6T JSCREA zCTU ~~~Em SGM41 't"06SdSGM51 ^w6SYERR 6UTES2 gl0UTEST d0SGM24 2SGM25 o +SGM26 [ +SGM31 "wT JSCREA zCTU ~L ZMOVE TCOUT ZDRAW Z0CAT Z0CON Z0COR Z0DIN Z0SYS T  /8_`ab \#@@A#`P(+(A#p""p"0($FCL1::RTE_6:5:380:128 644 0 0 276000 5310707306 34652 $FCL1::RTE_6:5:380:128 $||$FCL1 +#+#+#||PZFST o 77Xd~+;FCL1H 92084-12085 REV.2540 <850905.1054>P92084/&FCL1H::PCO7@EOd>>Xw ;FCCA2 92084-1X755 REV.2340 <830903.1 850827.0924 P92084/&FCCA2.MAC::PCO>@pɏ>>X#w ;STRTC 92084-1X755 REV.2340 <830903.1 850827.0924 P92084/&FCCA2.MAC::PCO> NSTRTC  ((|.ENTR FSTAT GTMEM MEMER PAS.1 PAS.3 PAS.NONCDS(22YJ`A@"( A  !p`p2<Ap(@9X>>X ew ;GNXTC 92084-1X755 REV.2340 <830903.1 850827.0924 P92084/&FCCA2.MAC::PCO> IVGNXTC  ''_.CFER .ENTR .LBTCROAK PAS.1 PAS.3 PAS.NONCDS'==(pO(M`dA @H((MAP`(,h]6 T`ThR`T@ahQ`T@bhSh]6U(?`PT`ThR`T@ahQ`T@b h^6 //P=HU`p`@cp`T(K(pO`OV/mWAT`apO(PS oa@ @=\>>Xw ;ENDCS 92084-1X755 REV.2340 <830903.1 850827.0924 P92084/&FCCA2.MAC::PCO> 6ENDCS  8PAS.1 PAS.3 PAS.NONCDSREMEM  H ( @>>XYw;GCARL 92084-1X755 REV.2340 <830903.1 850827.0924 P92084/&FCCA2.MAC::PCO> WNGCARL  00 .MPY .MVWCLIND ENDCS GNXTC PAS.1 PAS.3 PAS.NONCDSSTRTC 0==K`MUpM`MVpM`MWpM`MXpM`GpG`SJG@@` P=WW--(I` (FpGA%Q)IG(-(%`PT(2(FA5R9IG(E`IpHAAH(D(5NW?O (?@x8>>Xjw;LCARS 92084-1X755 REV.2340 <830903.1 850827.0924 P92084/&FCCA2.MAC::PCO> ;LCARS ` qqJ .ENTR ACINF B$CE1 B$REX B$SE1 CKBRK ENDCS FOD FOIOA FRMSL FRMSP FRMST GNXTC IDNAM LIFRM LSKPL PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDSSTRTC q9QQA p`D( (u`(-`(%A`˄p$(( pA,(00DA6(uD  = A EHALAS^^^Q55AV`(sAaAhAkrH (2AJw`A(H`A(^@@fg++Ap(-!   LU LAST TRACK CRN LOCK P/G/S USER/GROUP @@)G>>X3m. ;FCCLR 92084-1X764 REV.2226 <820413.1 850806.2043 P92084/&FCCLR.MAC::PCO>@s3>>X؟mm.!;CLEAR 92084-1X764 REV.2226 <820413.1 850806.2043 P92084/&FCCLR.MAC::PCO> 4CLEAR  ||2v.CBT.DAD.DDI.DLD.DST.ENTR .LBT.MPY.MVWCRLKCRSTS CRULK DIFME ENOMS FOIOA FOSAD FRMST GTWOC LOFRM PAS.1 PAS.3 PAS.BLANKFILL PAS.DOUBLEMOD PAS.NONCDS|BRDCSE READD ULCAR WRCSE WRITD yII`h@+p(:!0"#D A!B$#`h@+Ap&A%-!F&D# p`Pi(5(6`Pj(:( `p@p`(^AL?IEEp`(W`!g(W`lp`(^]p`(lAh!H'#lp`p`kp`p`( !h,6`-6(((ƈ(`((#ENN`p` A@h h.H6 h h xh AA)x`k0pAh-`/*`HAH( (xp  !8(8( mm*jOOA(# T WDO YOU REALLY WANT TO PURGE DISC LU , CRN \ ? _cartridge clearing errorBOOTEXNOYEm@j鉩>>X͂Vm.";CCACL 92084-1X764 REV.2226 <820413.1 850806.2043 P92084/&FCCLR.MAC::PCO> +SCCACL  --ACKBRK CLEAR CROAK PAS.1 PAS.3 PAS.NONCDSRCLST WCLST -";;pR`RpQpRpPpO`A@QA(AQ`P(=`(=`P("`pP`P(&`PP (*(8pA0Q`/U(7pO(=`R(=((e&;`QpR`QHpQ( `PA(IIPO`R(S( T( @'I>>XIm1.;FCCOL 92084-1X756 REV.2226 <820413.1 850806.2046 P92084/&FCCOL.MAC::PCO>@I>>XYm1.;INCOL 92084-1X756 REV.2226 <820413.1 850806.2046 P92084/&FCCOL.MAC::PCO> BINCOL  PAS.1 PAS.3 PAS.NONCDSF p ( @,nK.>>Xfm1/;CLCOL 92084-1X756 REV.2226 <820413.1 850806.2046 P92084/&FCCOL.MAC::PCO> @CLCOL  ##PAS.1 PAS.3 PAS.NONCDSPURGE W23OF W23ON #$$`( khAA$ ( @/N>>XNm1/;WCLST 92084-1X756 REV.2226 <820413.1 850806.2046 P92084/&FCCOL.MAC::PCO> =BWCLST  >> .DLD.DST .ENTR CRETS OPEN PAS.1 PAS.3 PAS.NONCDS SCFER W23OF W23ON WRITF >jjD::` (,H<J>  k:H h<LH A`: ($p A$ k: hMH AA&`:(, ,:A3 k:AH;`:A(9 9:Bj>C A @@p;("@h>>Xjm10;RCLST 92084-1X756 REV.2226 <820413.1 850806.2046 P92084/&FCCOL.MAC::PCO> =RCLST  ##.ENTR PAS.1 PAS.3 PAS.NONCDSREADF SCFER #Ak`(8((Ap(@A_>>Xkm10;RCLSF 92084-1X756 REV.2226 <820413.1 850806.2046 P92084/&FCCOL.MAC::PCO> ;RCLSF  PAS.1 PAS.3 PAS.NONCDSRCLST WCLST 669`(ppA  ppA88(6 ( @0N>>X,m64;FCDAS 92084-1X837 REV.2340 <830903.1 850806.2050 P92084/&FCDAS.MAC::PCO>@l,>>XڀJm65;CLIAA 92084-1X837 REV.2340 <830903.1 850806.2050 P92084/&FCDAS.MAC::PCO> 3=CLIAA  ++&.ENTR .MPY.MVWCLIND CROAK PAS.1 PAS.3 PAS.NONCDS+ppi55AA<(7 OF@ @Ȟ>>XX"m65;DDCIT 92084-1X837 REV.2340 <830903.1 850806.2050 P92084/&FCDAS.MAC::PCO> 2DDCIT  ;CLIAA PAS.1 PAS.3 PAS.NONCDS<<h`ip` e(pp`phH `@!p88( < ( @^>>Xwm66;SCAND 92084-1X837 REV.2340 <830903.1 850806.2050 P92084/&FCDAS.MAC::PCO> 6sSCAND EE .CFER .DAD .DCO .DDI.DIN.DLD.DSTEELIM FINDM GIFSF PAS.1 PAS.3 PAS.NONCDSUSFCH E8.77@p d f     h(lJ((l  J _((fJJ   a(((f@(f(f   r  ` (-D   x ` \(8` ,pmpp766(:` ]pm@m  @ kpr nr`q(K` %pq(R`qP %(Rpqp dn  n`p@ pp@m @ kprA rnJ    (sp ̱t8s( @h}>>Xm67;ACART 92084-1X837 REV.2340 <830903.1 850806.2050 P92084/&FCDAS.MAC::PCO> ?ACART o  jjo.DAD.DIV.DLD.DST.ENTR .FDV.FIXD .FLT.FLTD .FMPDCMC FMERR FOIOA FOSAD FRMCH FRMST LOFRM PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDSjLLPp`p~`~DADDAA x}`}@@ Ap7`p`~@p~`P(G(J`~(`QQL11(fT DY` DdHA (ym ArA uA  y`p`Q33KH""A(d:allocated CRN \ , LUerror allocating CRN \3.@G @Yxm>>Xm69;ACRTS 92084-1X837 REV.2340 <830903.1 850806.2050 P92084/&FCDAS.MAC::PCO> <ACRTS H WWw .CFER .DAD.DCO.DDI.DLD.DST.MPY.MVWACART ENOMS FOIOA FRMST LOFRM PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDSW#GGp Ap` Vp` GA@(>@  @ kp `PЈ(:`(:h AA AAA(:(:AA`p`p( `A(`@GHHp` (cAR AWA^ @p(@ @ kpA `(r(~@@ iph`(`πpph͂@x@--h@ @ k@h`(`H( -((N(  CRN \ not found (@!>>X m6:;CCSIZ 92084-1X837 REV.2340 <830903.1 850806.2050 P92084/&FCDAS.MAC::PCO> 1CCSIZ _ ZZDz.CFER .DCO.DLD.MPY ENOMS FOD FOIOA FOSAD FOSDD FRMCH FRMST GCSTA LOFRM PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDSZiHHp`G(pp`@p@ @kpA`(`()`@ApA(4(<`A@(AC `@ssHIIApNAUA Y`DA  iA m pAtA{ A A@ p88( `( sHHi11( / CRN \ LU not large enough:data blocks/dir entries needed: , available:H@P>>XVm6;;RDFAD 92084-1X837 REV.2340 <830903.1 850806.2050 P92084/&FCDAS.MAC::PCO> *KRDFAD  YY.CFER .MVWACRTS B$CE1 B$REX B$SE1 CCSIZ DDCIT ENOMS GSTCL LOGNM NOFIL PAS.1 PAS.3 PAS.NONCDSSCAND SCFDC YaAAD `UpIpH@H A@kpJJP8H8I(A pF`bpG`GP~(0hO`GAN`G@TpG`(,pF(/A /(`F(4 ` c(8 A:(AAD>AADDKL (@4SS>>Xm7;SKDIR 92084-1X837 REV.2340 <830903.1 850806.2050 P92084/&FCDAS.MAC::PCO> 9SKDIR  ##DFFNI PAS.1 PAS.3 PAS.NONCDSRCFTA UCFTA #00`P((J` P(` P(HP ((H0 ( @=>>Xm ;FCDDE 92084-1X768 REV.2226 <820413.1 850806.2055 P92084/&FCDDE.MAC::PCO>@yQ>>Xm ;WDCRT 92084-1X768 REV.2226 <820413.1 850806.2055 P92084/&FCDDE.MAC::PCO> >WDCRT f TTV .DAD .DCO.DLD.DSB.DST.ENTR CKBRK CMBUF DSCIO ERLEV FIFME LDERR PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDSTâEE AA Dp  p`p` (\px` eA@(0` epA8   dp` p`A(HG~~(EEE dp`@phA  AAA (\(Y`(!`(g`A@( `({q Aw  Az(`P( A  ~4 44-##A( disc write failed disc write required retries  4@ç>>X3m ;PODAT 92084-1X768 REV.2226 <820413.1 850806.2055 P92084/&FCDDE.MAC::PCO> 5PODAT  DPAS.1 PAS.3 PAS.NONCDSWDCRT 11`A(pA`F @LpACEpE1 ( @a>>Xm ;RDDBS 92084-1X768 REV.2226 <820413.1 850806.2055 P92084/&FCDDE.MAC::PCO> +RDDBS  PAS.1 PAS.3 PAS.NONCDSo pd`Xpc ( @yq1>>XiHm;PODEC 92084-1X768 REV.2226 <820413.1 850806.2055 P92084/&FCDDE.MAC::PCO> 9BPODEC  FF .DDI.DLD .DMP.DSTCROAK PAS.1 PAS.3 PAS.DOUBLEMOD PAS.NONCDSPODAT RDDBS WRCSE WRITD F~~;;J` B(> p Bh A ?JA ] ?x Rh  ?  ]?DA ExA` NG0Ap N'  I@ a@ dp` bA@(4A:  X a d` a~ h;H@ dp aB~C(@sے>>Xvm;MAKEX 92084-1X768 REV.2226 <820413.1 850806.2055 P92084/&FCDDE.MAC::PCO> ,jMAKEX  MM .DAD .DCO .DDI.DLD.DST .ENTR .MPY.SBTFADDR FIFME PAS.1 PAS.3 PAS.BITDEPOSIT1 PAS.NONCDSRWNDMEE` (- [ee cc _((n` e@6 iD%p eoooe` e@up eAJc [(T1 ip^`^(88^A> ^a_`^(DD^`_.. EJ @eh`  q eei Ap eAAggj.ktkA i(h 9u @?']>>XC m;MKMIS 92084-1X768 REV.2226 <820413.1 850806.2055 P92084/&FCDDE.MAC::PCO> :MKMIS  **=.DCO.DLD.DST.ENTR MAKEX PAS.1 PAS.3 PAS.NONCDS*22 HJJ (((`A@(A(27Ap(@H>>Xdm;PDUPF 92084-1X768 REV.2226 <820413.1 850806.2055 P92084/&FCDDE.MAC::PCO> 9^PDUPF  AA ) CROAK F.DIR FIFME FLUDR FNDIR GCSTA PAS.1 PAS.3 PAS.NONCDSPODEC PURGE READD A>>` ( A A(((   K   `KPb((3`  A(3   `JpK`K(3A* NAJa1 K V 3`K(<`KPc(< <K` v> (GG HLI aI^_(@F>>X3m;INDDE 92084-1X768 REV.2226 <820413.1 850806.2055 P92084/&FCDDE.MAC::PCO> 7INDDE  PAS.1 PAS.3 PAS.NONCDS)) pp p<p= pEpA pB) ( @!>>X/m;CLDDE 92084-1X768 REV.2226 <820413.1 850806.2055 P92084/&FCDDE.MAC::PCO> 5 CLDDE  ##INDDE PAS.1 PAS.3 PAS.NONCDSPODEC REACM #^X `( `( H    ( @{;>>Xm;SDCAR 92084-1X768 REV.2226 <820413.1 850806.2055 P92084/&FCDDE.MAC::PCO> ,SDCAR ` PP+.CBT.DAD.DIV.DST.ENTR .MPYBPERT CLDDE ESACM GCSTA PAS.1 PAS.3 PAS.NONCDSRDCSE RDDBS READD P~~055P (p ` @p ` @p $`  Ap  p ` Pp` A(' & p `  Pp ` (`A(6 ~g5<>Xm;STDFI 92084-1X768 REV.2226 <820413.1 850806.2055 P92084/&FCDDE.MAC::PCO> ?STDFI u PP .CBT.DCO.DLD.DSTCRETS ECREA FIERR FIFME FNDIR NAM.. PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDSPODEC P~~}@@` ( (( J ` (MA p`( ` ("` ((` (2h6`6A (2A(F(F8  p`(@A ?(F~S@99`P(F F` Zp eJJ Y [( h  `     `(fp <(|` (|`P(m(|w  >   `y (|p =`A( p 66M##(( file too large for this operating systemBOOTEX6@K_j>>Xm;WRFPA 92084-1X768 REV.2226 <820413.1 850806.2055 P92084/&FCDDE.MAC::PCO> JWRFPA  DD .DAD .DCO .DDI.DLD .DMP .DSB.DST.ENTR MAKEX MKMIS PAS.1 PAS.3 PAS.NONCDSPODAT DFFAJ| xtht  y| yw`tA@(G`A@t()A@tp{){`(B`(B`E(BhFA y~ JA C yJA[Et``F..GG wu`E(chFA y~ JA C yA u(c(bJ`E(lA~pFuJC`F~}pEpA` fOA|( @bŁ>>X%m;ENDFI 92084-1X768 REV.2226 <820413.1 850806.2055 P92084/&FCDDE.MAC::PCO> 9ENDFI $ M.DAD.DCO.DDI.DLD.DMP.DNG.DST.LBT.MBT.MVW.SBT B$CE1 B$REX B$SE1 CLOSE DIBRK ENBRK FIFME MKMIS NAMFPAS.1 PAS.3 PAS.BITEXTRACT1 PAS.DOUBLEMOD PAS.NONCDS5PDUPF PODAT PODEC 6AA @pJ`J(A(((x(x@a@d@p`bA@A(--`D(2  5(< A9 <`Zp`ֆA~~A>>@e(`cPY(J(Khc6A`6 `c@h`c@h`c@h`c@hӈ`@J6 hcDH6sAנh AAA~ũ??`c@h A`c@@6 `c@A@` `dpd`c@pc]pB`ֈ @pp(>[Y (`=(D 66r>`( p=( p<600}(?h 0@E>>X<m;DFECU 92084-1X768 REV.2226 <820413.1 850806.2055 P92084/&FCDDE.MAC::PCO> .DFECU  JPAS.1 PAS.3 PAS.NONCDSPURGE BBW`<(   p<`=(> p=B ( @2Q>>Xm;FCDID 92084-1X762 REV.2226 <820413.1 850806.2101 P92084/&FCDID.MAC::PCO>@o]>>Xm;WRITD 92084-1X762 REV.2226 <820413.1 850806.2101 P92084/&FCDID.MAC::PCO> OWRITD U NNV .ENTR ADDRCKBRK CMBUF DIFME ERLEV F.DIR LDDER PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDSRDDIR WRDIR N*hCCpppp`p` (Z`(Zp`pp`@p` fA@(1` fppA; dp` p`[CDDA(NJ d(N`p`@p`@p`P(Z`(#P(_`Pp`(m`A@(`(}w A|(`P( **{A `A(  *PP 99A ( %disc directory write failed disc directory write required retries error writing directory  P@OnU>>X!m;FCDIG 92084-1X761 REV.2340 <830903.1 850806.2104 P92084/&FCDIG.MAC::PCO>@xa!>>XMm;DSCIO 92084-1X761 REV.2340 <830903.1 850806.2104 P92084/&FCDIG.MAC::PCO> G@DSCIO  77 -.DDI.DLD.DMP.DST .ENTR EGZEC PAS.1 PAS.3 PAS.DOUBLEMOD PAS.NONCDS7ZZ22< AA5=A5x3< 5 =A5FGx2`;p7?p8> p9A-Հ:78932` Kp4`4@ZAA :`Lp4(C K @v>>Xd7m;GCSTA 92084-1X761 REV.2340 <830903.1 850806.2104 P92084/&FCDIG.MAC::PCO> B#GCSTA  ,,.ENTR CRSTS DIFME PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS,11*Yp  !"p`('*(A)#1 m"$A(error in cartridge status @y>>XsSm;READD 92084-1X761 REV.2340 <830903.1 850806.2104 P92084/&FCDIG.MAC::PCO> 22READD  11<.ENTR DIFME LDDER PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDSRDDIR 1II**.p- -/+01p,P,((6:7A8.01`,A()%6G98).,2I00a3 A.(disc directory read failederror reading directory 0@v>>Xu7m ;FCDS1 92084-1X766 REV.2226 <820413.1 850806.2107 P92084/&FCDS1.MAC::PCO>@Vwu7>>XF m ;INFNM 92084-1X766 REV.2226 <820413.1 850806.2107 P92084/&FCDS1.MAC::PCO> AINFNM  %.DSTPAS.1 PAS.3 PAS.NONCDSBiJ ` pb ( @ >>XJm ;INDSM 92084-1X766 REV.2226 <820413.1 850806.2107 P92084/&FCDS1.MAC::PCO> FINDSM  PAS.1 PAS.3 PAS.NONCDS ; p-p2 ( @Z>>X^m ;CLDSM 92084-1X766 REV.2226 <820413.1 850806.2107 P92084/&FCDS1.MAC::PCO> DCLDSM  ""J.MPYINDSM PAS.1 PAS.3 PAS.NONCDSREACM "88`-(`2(`4( -`-@@@8m(@~>>>Xfm ;SSCAR 92084-1X766 REV.2226 <820413.1 850806.2107 P92084/&FCDS1.MAC::PCO> :ZSSCAR  :: h .ENTR .MPY .MVWBPERT CLDSM ESACM F.DIR GCSTA PAS.1 PAS.3 PAS.NONCDS:66HYp -`dJ -@_h`A ^`Sp .`Tp #`U p 1` .p /A .p 0 p 4`W,bp 2` 2(6`W.bpM) -Mp 2`d -@_@cpXXLe0 2LX55ux6` 2Pap 3C .NQ 5PO@Pp 6 p :p ;ALZ((5w[ A Y( S@f&>>X/m ;RETAC 92084-1X766 REV.2226 <820413.1 850806.2107 P92084/&FCDS1.MAC::PCO> +RETAC  PAS.1 PAS.3 PAS.NONCDS p4 ( @ f)&>>X}m ;SDIRA 92084-1X766 REV.2226 <820413.1 850806.2107 P92084/&FCDS1.MAC::PCO> <lSDIRA  << T.DIV.DLD.ENTR .MPY.SBTPAS.1 PAS.3 PAS.INLINEERROR PAS.NONCDS PAS.SINGLEMOD <nHAAk Awpg`g kpf`g A0pe g0pAvpj #j0p pd`e@1pc`Pt(2Pu(E(]`h{0.ph`cpi`hFz0dFph`hM|EEA""0fMph(``h{0.ph`hFy0cFphhq6H `d`f Hhq6(`Dhx hlEy>mAk(iHt @@9>>X\m ;CLNUM 92084-1X766 REV.2226 <820413.1 850806.2107 P92084/&FCDS1.MAC::PCO> GCLNUM  ++.DLD.DST.ENTR CLSEN PAS.1 PAS.3 PAS.NONCDSSDIRA +w A   eqA( @ԉ>>Xi1m ;INSDS 92084-1X766 REV.2226 <820413.1 850806.2107 P92084/&FCDS1.MAC::PCO> 9+INSDS  G.ENTR PAS.1 PAS.3 PAS.NONCDShh))`5p=`wpXpY)(`3 /(p7)03 /p8*p9`P/((&`0A@\(&`0p[((`\p[+hg,A)(&@>>X`m ;FSENA 92084-1X766 REV.2226 <820413.1 850806.2107 P92084/&FCDS1.MAC::PCO> FFSENA  ,,FOCCC FRMCH FRMST PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS,%%EA @DA#%( @¨>>X;m ;LOGPR 92084-1X766 REV.2226 <820413.1 850806.2107 P92084/&FCDS1.MAC::PCO> DLOGPR  11uERLEV FRMST FSENA LOFRM PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS1''aAA DD'77<%%((9filepurged or replaced during copy or directory entry corrupt 7@>>XJm ;DELFL 92084-1X766 REV.2226 <820413.1 850806.2107 P92084/&FCDS1.MAC::PCO> 1DELFL  .ENTR CLNUM PAS.1 PAS.3 PAS.NONCDS++v`7(pp_@bpb+ epA( @Rqr>>XFm ;MAKAV 92084-1X766 REV.2226 <820413.1 850806.2107 P92084/&FCDS1.MAC::PCO> 'MAKAV  PAS.1 PAS.3 PAS.NONCDS==?`]p\`]p`P^(`@p`@h`p(`^@ = ( @Fe>>Xpm ;GTSDE 92084-1X766 REV.2226 <820413.1 850806.2107 P92084/&FCDS1.MAC::PCO> =dGTSDE 0 !!݌.LBT.MVWPAS.1 PAS.3 PAS.NONCDSREADD !~~e588pc`6A @>( (_`>A@:(`;A@>(9`> @6pb`aA@b(*A`apb0._>b`>p:`>@b@op;`_p<~bb8))(E`<(E`:@> @_p<`>p?hi`<h`>p>`<@mp>Xo$m ;EMATS 92084-1X766 REV.2226 <820413.1 850806.2107 P92084/&FCDS1.MAC::PCO> FEMATS 0 2MATCH PAS.1 PAS.3 PAS.NONCDS<<`bpp`P~( P(p`@" `@#p(`<d`!p( !! @Cb>>XLm ;FNDNM 92084-1X766 REV.2226 <820413.1 850806.2107 P92084/&FCDS1.MAC::PCO> AAFNDNM 0 66 .CBT .DCO .DDI.DLD.DST.MPYDELFL LOGPR PAS.1 PAS.3 PAS.NONCDS6yy ==`[p=`=P](7`=6AhF6 C((3(3`F((hF AA D?J(#`KF@?`=@@IA ?(2(,D0=p=(9`=@Jp=(p=`=p>`>Ay2YB(@ I @>>Xr0m ;APPFL 92084-1X766 REV.2226 <820413.1 850806.2107 P92084/&FCDS1.MAC::PCO> ;&APPFL 0 1.MVWPAS.1 PAS.3 PAS.NONCDS__Tm%%`]p%`?]`]@`)A (`]@, `]@- `]@. `]@/p]`bpb`bP[(!(#pZ`%&_'(P , @ȍM>>Xm ;APPEX 92084-1X766 REV.2226 <820413.1 850806.2107 P92084/&FCDS1.MAC::PCO> ;APPEX M 00 `.ENTR .LBT .SBTCROAK DELFL LOGPR PAS.1 PAS.3 PAS.NONCDS0W44`\("`] @p]@bpb`[A@](]p= pYpZ`]@p\`]( (!((`\@h^`^p^`D\h6h\ 6 h6 499 h\ J6  `\@p@(Q@h\@h\`\@ (@@6ph6H@(a(p@@h\@h\`\@xm== (@ph6p`@H@6@(`@p(th6p`@@6P(A((`\@hH`@h\@H `p\r% A(E @Y>>XZm ;DELNE 92084-1X766 REV.2226 <820413.1 850806.2107 P92084/&FCDS1.MAC::PCO> 8DELNE  9DELFL PAS.1 PAS.3 PAS.NONCDS11M`[p`Pc(`@P( (`@p(1 ( @I >>X]m ;DELEC 92084-1X766 REV.2226 <820413.1 850806.2107 P92084/&FCDS1.MAC::PCO> /VDELEC  55 1 .DAD .DCO.DIV.DLD.DST .LBT.MPYDELFL PAS.1 PAS.3 PAS.NONCDS5yGG`[pO`OPc(LpM`O@@ZAT`O@[pN`NJ(EN0@R`N@6 @ AXhA  RAR`M(:P T R(:A(9(HRAPpM`N@YpN(Hi<GO`O@\pO(V?W( @Z>>XXm ;PCKFL 92084-1X766 REV.2226 <820413.1 850806.2107 P92084/&FCDS1.MAC::PCO> .PCKFL  1.MVWPAS.1 PAS.3 PAS.NONCDS@@`[p`[p`Pc((h`A`@p`@p(`pc@ ( @5T>>X|1m ;SRCHS 92084-1X766 REV.2226 <820413.1 850806.2107 P92084/&FCDS1.MAC::PCO> ?SRCHS 0 }} .CBT.DAD.DDI.DIV.DST.LBT.MBT.MPYAPPEX APPFL CKBRK CLDCB CROAK DELEC DELNE EMATS ERLEV FMPER FNDNM FRMST FSENA GTSDE LOFRM LOGPR MAKAV NAM.. }''OPENF PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDSPCKFL ';;hb JJ`` pb`=p> p<`[p] @pZ p_p^ H(h6(Ѡ`Z(`>p=h6`6 (/(1(1pX`Yph6`6 (=Ѩ;;; (?(?pY`X(`(`C(`(Th6`6A (Ј(Th6`6 `HpS`CpT`GpW`F(e(nhFA  JU(t`.JF@U 7v;;(zP(p`8(`/pp`@-PԈ(((88(p`7(AP S/`(`P0(`P/H(((AA  @@DA  !DApƨ`(H p`pA(H p`p`((`]pc`9P+(ℊ((`9P*((`_(`[@c !!ϮA,JPb(`^p`!@@!!`+p(( HEw@zPBOOTEXcan't opendue to error: @hs* @0>>X~$m;FCDS2 92084-1X767 REV.2226 <820413.1 850806.2113 P92084/&FCDS2.MAC::PCO>@_d~$>>Xm;RSCRT 92084-1X767 REV.2226 <820413.1 850806.2113 P92084/&FCDS2.MAC::PCO> (( NRSCRT z  DD u .ENTR .MVWCKBRK CKSUM CMBUF DSCIO ERLEV LDERR PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDSDnDDpypxDpw . 0pv` v(4 pupA"u~`w(-*~{px`xpvh` pw`v(:`ypy`v(C`x(K` (K`^^_gD11A@y(`v(_(^ X A^ . 0(q`yA(qA k q . 0`vpz`z^55}""A `pz( {~disc read faileddisc read required retries5 z @j>>XH.m;NEWEX 92084-1X767 REV.2226 <820413.1 850806.2113 P92084/&FCDS2.MAC::PCO> /+NEWEX  00 ^.DAD.DIV.DLD .DMP.DST .LBT.MPYPAS.1 PAS.3 PAS.NONCDS0VV ++`j@6H h  hJkj0@o`j@6 @ A-hJ oJJohJq+V ,( @P>>X9m;NEWFI 92084-1X767 REV.2226 <820413.1 850806.2113 P92084/&FCDS2.MAC::PCO> 0NEWFI  %%.DLD.DST.MVWNEWEX PAS.1 PAS.3 PAS.NONCDS%33f`g@h`g@pj mAh`3(d @x>>XH&m;NMGCS 92084-1X767 REV.2226 <820413.1 850806.2113 P92084/&FCDS2.MAC::PCO> 5"NMGCS  **p.DIN.DLD.DSTNEWEX NEWFI PAS.1 PAS.3 PAS.NONCDS*UUR""`d(!q (!`j@$pj`j((!eJe`g@%pg`gPc(( pd(!H"U #( @ >>X8 m;SGCS1 92084-1X767 REV.2226 <820413.1 850806.2113 P92084/&FCDS2.MAC::PCO> ? SGCS1  !!j.DLD.DSTNEWFI PAS.1 PAS.3 PAS.NONCDS! Jpd`Je`[pgH   ( @ɞ>>X9 m;SGCS2 92084-1X767 REV.2226 <820413.1 850806.2113 P92084/&FCDS2.MAC::PCO> ?SGCS2  }.MVWNMGCS PAS.1 PAS.3 PAS.NONCDSAh `  (d@On>>X9 m;SGCS3 92084-1X767 REV.2226 <820413.1 850806.2113 P92084/&FCDS2.MAC::PCO> ?SGCS3  }.MVWNMGCS PAS.1 PAS.3 PAS.NONCDSAh `  f(ds@Qp>>Xm;GCHKD 92084-1X767 REV.2226 <820413.1 850806.2113 P92084/&FCDS2.MAC::PCO> MGCHKD a ;; .DAD .DCO.DLD .DSB.DST .ENTR .MVWNMGCS PAS.1 PAS.3 PAS.NONCDSRSCRT ;//n`PJ(( Ah`  h` `@èp/::(ppph`A h` `Jp`pppJp`dJ(bmJ k(S(<(S`PK(SJAeJAmJJk mx`&M99JpkJm`j@p`P(]`Pp`p`(iJAo`d(s`PP(s`PK(s(vp(`(`(Jp(oAA @C=GGph q`(hPA AA (((p`rp(̀`(hP  (((phPA  x(`pph,D?? o x`((怊`(`(`Pp`(`P((p(`P((`((`(p(p`P((p`(8`p BB@@pem`p`ph JJmmh JJooh AJqAJ q`00(w` @Lp(OMpqqnN55(Qp`(X`@p(n`(c`@p`@(nph` `ppph`A  `p`(+`` q(A (ds@ *>>XpKm ;GINFO 92084-1X767 REV.2226 <820413.1 850806.2113 P92084/&FCDS2.MAC::PCO> 4?GINFO 0 ,, I.DIN.DLD.DMP.DST.LBT .MVWPAS.1 PAS.3 PAS.NONCDS,88`( ` `[Jp( D `@Jp`Pc(:`hDA  C`@H  `@I@6h p A8p>(<p>`>? '@`Gp>(  .G @%jD*>>XrEm ;OPSFI 92084-1X767 REV.2226 <820413.1 850806.2113 P92084/&FCDS2.MAC::PCO> ;(OPSFI  00z(FMPER LCURF PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDSPURGE WARN0VVk''`(&`( `o0 A(' /(`Cp'`'(&`'DPD(&A'%*-+,(V++Yh)(,above file copied but not purged from source+@>>XQm&;FCDTC 92084-1X775 REV.2226 <820413.1 850806.2118 P92084/&FCDTC.MAC::PCO>@Q>>Xbm';INDTC 92084-1X775 REV.2226 <820413.1 850806.2118 P92084/&FCDTC.MAC::PCO> GINDTC  PAS.1 PAS.3 PAS.NONCDSx p- ( @n>>Xm(;TCLIN 92084-1X775 REV.2226 <820413.1 850806.2118 P92084/&FCDTC.MAC::PCO> 3TCLIN ~  ++O.ENTR .MPYERROR PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS+4<<(pxp|( pxp|`zO0xOpz`z0|pzp~`-A@~(T`@~p{`{/py`{p}`yPx(/(5`}P|(3(4(t(P`y(B`}@~~L\<<<(A(B(f`yP(F(P`@P}(O(P(t`~p~(`~p-`A @-A(fe`{O0xOp{`{0|p{`@~h{`~p`~99 $$A(7number of cartridges to be copied to tape exceeds limit 9@@ >>Xw%m);TCCRN 92084-1X775 REV.2226 <820413.1 850806.2118 P92084/&FCDTC.MAC::PCO> ;TCCRN  ].ENTR .MPYPAS.1 PAS.3 PAS.NONCDS66n`p`/"(`$#@p(`$p`6A( c" @>>Xm);MCTCK 92084-1X775 REV.2226 <820413.1 850806.2118 P92084/&FCDTC.MAC::PCO> +MCTCK J0 == P.DIV.MPY .MVWACINF CROAK MKCHH PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDSRDCSE ===` Tp H` H@ͪp I` Ipp` (A ` -(mpp`@pp`pA 'p`/(S`A@hA `p`p` [=CC(FF Jh` `Јp(V`Јp`@p` NA@(bHh` `@Έp88(` (tt `͈@p` A΄p_`p`##A(   #  @1O>>X#m;FCDTV 92084-1X843 REV.2226 <820413.1 850806.2122 P92084/&FCDTV.MAC::PCO>@c#>>X#m;VENDV 92084-1X843 REV.2226 <820413.1 850806.2122 P92084/&FCDTV.MAC::PCO> . VENDV  !!H.DLD.DSTB$REX PAS.1 PAS.3 PAS.NONCDS! JJ  p ` pgA    ( @2a>>X# m;VENDD 92084-1X843 REV.2226 <820413.1 850806.2122 P92084/&FCDTV.MAC::PCO> . VENDD  %%k.DDE.DLD.DSTB$REX PAS.1 PAS.3 PAS.NONCDS% JD h ` pg    ( @o>>X܇]m;GSZIN 92084-1X843 REV.2226 <820413.1 850806.2122 P92084/&FCDTV.MAC::PCO> ~IGSZIN 0 kk.DAD.DCO.DDE.DIN.DLD.DSB.DSTB$CE1 B$REX B$SE1 CKBRK FOSDD FRMST LOFRM PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDSRCFTB TFERR VENDV kEE|''JA kA(&(& M+NAO  M:POD  kAA' !J'  kA)E]*CC(files ((lost, reference numbers  thru    kpI(R`gPY(RAAPR`( k a(\D(\(  k (j(j k f(p(j(pJ@ km::J k( k h(J(w( kJH f` @U m mQ((p(AJ S kD k` J( kJ ((( m o(x<<` ((J` PX((  h((  fh   f h`Ip` (pGp` @Uh@HZpHAH`@[p88G(̄( T(--` P\((HA(R네) kJ `p`I-rJ `Xp(=:X @E>>XS)m;VGETD 92084-1X843 REV.2226 <820413.1 850806.2122 P92084/&FCDTV.MAC::PCO> @ VGETD  77 NPAS.1 PAS.3 PAS.INLINEERROR PAS.NONCDSRCFTB TFERR UCFTA VENDD VENDV 7HHy  J` P'(P((P#( P$(P%(("(D((HH((Jh& ` P%(( H+!(;@U>>XN3m;VBMIS 92084-1X843 REV.2226 <820413.1 850806.2122 P92084/&FCDTV.MAC::PCO> 1VBMIS  >> e5 .DCO.DLD .ENTR B$REX FOSDD FRMST LOFRM PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS>00JA  A(( A k`2pgA0))A (&data lost for file, reference number =)@k+>>XN5m;D2TVV 92084-1X843 REV.2226 <820413.1 850806.2122 P92084/&FCDTV.MAC::PCO> -(D2TVV  aa.DAD.DCO.DIN.DIV.DLD.DST.MPY.MVW B$CE1 B$REX B$SE1 CKBRK GSZIN PAS.1 PAS.3 PAS.NONCDSTFERR VBMIS VENDV VGETD ag<< Jp JJ _ J  ap J  fJ  hJ  JJ _ `Jp`JpA "(2`gP.(((.JD kA k(2 0A@ 2(  ` (Gq<99JJ k (C(G(G o  A J(V`gP0(V`gAP/(V TAJ V kJ (](](a` m(` (e( `P(l` P-(J`Jp` A/p`ߪuEE@Jp` @2h@ A1ph,`*h$A "AA J ((JD & &(((̀`$(`%A@4(`%(`%@$p`A@(lEAAAJ  k(((" (DŽ( m((+`@3p(  k(( m(  k(A(( J ((D " ((A""JA @DDcT `@3pAJ  k(((  k( A(e(e"J m((e(e (2A (D) ( @9?W>>Xm;FCHCD 92084-1X774 REV.2302 <821202.1 850806.2126 P92084/&FCHCD.MAC::PCO>@S>>X5m;UPCHK 92084-1X774 REV.2302 <821202.1 850806.2126 P92084/&FCHCD.MAC::PCO> ? UPCHK  .ENTR CKSM1 PAS.1 PAS.3 PAS.NONCDSA p ˨  e_ A ( @2>>XDm;FRMKY 92084-1X774 REV.2302 <821202.1 850806.2126 P92084/&FCHCD.MAC::PCO> CFRMKY  ++M.ENTR .MPYFRMST PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS+U `@p HkA(@(>>XBm;FRMKC 92084-1X774 REV.2302 <821202.1 850806.2126 P92084/&FCHCD.MAC::PCO> C FRMKC  ,,.ENTR FRMKY FRMST PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS,Tc A  H oA (: \@'=E>>XW/m;WFORM 92084-1X774 REV.2302 <821202.1 850806.2126 P92084/&FCHCD.MAC::PCO> =*WFORM  66 .DIVCLFRM CROAK MELEN MVWDS PAS.1 PAS.3 PAS.NONCDSUPCHK WRTAP 6KK))A c ,p)`-A@)(`.A@)D( c W)D% W)()*K +(( @>>XSm;WKYST 92084-1X774 REV.2302 <821202.1 850806.2126 P92084/&FCHCD.MAC::PCO> DGWKYST  55 .CBT.ENTR FRMKC FRMST PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDSWFORM 555EA NMNOhQ6`R6O((A NODPG5iH AFFp( P@g^>>X8m;WKYIN 92084-1X774 REV.2302 <821202.1 850806.2126 P92084/&FCHCD.MAC::PCO> ; WKYIN  ''4H.ENTR FOD FRMKC PAS.1 PAS.3 PAS.NONCDSWFORM ',8 A   8 A  p (@:Yv>>X4m;WKYDO 92084-1X774 REV.2302 <821202.1 850806.2126 P92084/&FCHCD.MAC::PCO> 6 WKYDO  ''4l.ENTR FODDFRMKC PAS.1 PAS.3 PAS.NONCDSWFORM ',8 A   8 A  p (@<[>>XC m;WKEYR 92084-1X774 REV.2302 <821202.1 850806.2126 P92084/&FCHCD.MAC::PCO> JWKEYR  ##.ENTR FRMKY PAS.1 PAS.3 PAS.NONCDSWFORM #~A7pAp(@>>Xrm;WHEAD 92084-1X774 REV.2302 <821202.1 850806.2126 P92084/&FCHCD.MAC::PCO> .]WHEAD  ;; BEFOR ENFOR PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDSWKEYR WKYDO WKYIN WKYST ;sHH@p   _ `A a _ _qb aAb _ cA a!d%e  ,_ f aA/g 6_ hA a9i=j Ak El ` (K++HAKm` A(QQn` (WAWo[p ]+!!^(2PH FC!@1T>>X, m;CLSCF 92084-1X774 REV.2302 <821202.1 850806.2126 P92084/&FCHCD.MAC::PCO> 4CLSCF  MCLOSE PAS.1 PAS.3 PAS.NONCDSR`p( ( @ >>X҂Wm;WCFTT 92084-1X774 REV.2302 <821202.1 850806.2126 P92084/&FCHCD.MAC::PCO> TPWCFTT  II BEFOR ENFOR FMERR LOMES OPEN PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDSREADF UPCHK WKYIN WRTAP I} A RS T A O zz= @@(comment file error:  p ` p(G& O fR j k`O(* 1 O WUN`O(5 `NpM`M(DAA WNADN`MA(*KHV PzVQ( @|;>>XAm;WDFTT 92084-1X774 REV.2302 <821202.1 850806.2126 P92084/&FCHCD.MAC::PCO> =WDFTT  -- MCTCK PAS.1 PAS.3 PAS.NONCDSRCTDS RSTDS WCTAP WEOFT -!!HApA ((! ( @c>>Xd3m;BEGVO 92084-1X774 REV.2302 <821202.1 850806.2126 P92084/&FCHCD.MAC::PCO> @+BEGVO  OO.DLD .FIXD BEFOR ENFOR PAS.1 PAS.3 PAS.INLINEERROR PAS.NONCDSPCTDC WCFTT WDFTT WEOFT WGMAG WRTAP ONNd((` P0(P1A(("-H x)`)(p*Hp(8( 8*( WA /D(% H(%h2DH+N^0,(ffX@p0>>Xm;FINVO 92084-1X774 REV.2302 <821202.1 850806.2126 P92084/&FCHCD.MAC::PCO> HfFINVO  }}.CBT.DCO.DLD.DSTCROAK D2TVV ERROR LOMES PAS.1 PAS.3 PAS.BLANKFILL PAS.INLINEERROR PAS.NONCDSPCTDC RCFTA RCOMF RHEAD RNVOL RRFTA RWTAP SCFDC SNRML TFERR }WHEAD   f6CC8(`P( P((- Dp @ (` qP((W@( (h (0 JAi(+(*D(0h`(c:kslmDD  @jhq6@`r6;;TEn(Q(IAPk{omATi ` P(Zp]J`P(bD f;88g##( verifying volumeheader file verify error8@>>Xm" ;FCRCS 92084-1X770 REV.2226 <820509.1 850806.2131 P92084/&FCRCS.MAC::PCO>@R>>X2m" ((;RDCSE 92084-1X770 REV.2226 <820509.1 850806.2131 P92084/&FCRCS.MAC::PCO> > RDCSE  .ENTR PAS.1 PAS.3 PAS.NONCDSREADD A  g^ A(@\>>X>m&9;FCRHC 92084-1X836 REV.2302 <821202.1 850806.2134 P92084/&FCRHC.MAC::PCO>@~>>>Xm&:;PKEYR 92084-1X836 REV.2302 <821202.1 850806.2134 P92084/&FCRHC.MAC::PCO> JPKEYR h ?? j.AD2D .CBT.DLD.DST .ENTR .LBT.MPY .SBTPAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS?@EEA   ppp` q (Wpp`($((@p(ThW6@H p`(J`P(=`A@(Bp`p(Ih6ww6E::@H` (T`ph6@HH` 88( `pp`@@6A`6(i(l(l`(q88([Ax   `p w @&A ( P : @ f*&>>X5m&;;KILLN 92084-1X836 REV.2302 <821202.1 850806.2134 P92084/&FCRHC.MAC::PCO> :1KILLN  .LBT.SBTPAS.1 PAS.3 PAS.NONCDSZZm..` q (-p0p/hW6@/Hp.`.A@3(#`.A@4(*hW6@/H`38/80( 1Z 2( @י>>X/ m';TRECM 92084-1X836 REV.2302 <821202.1 850806.2134 P92084/&FCRHC.MAC::PCO> :TRECM  ""MVWDS PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS"88~A` qp`A@(`pW q8( B@ >>X"m';LOGTR 92084-1X836 REV.2302 <821202.1 850806.2134 P92084/&FCRHC.MAC::PCO> HLOGTR  LOMES PAS.1 PAS.3 PAS.NONCDSTRECM  MD ( @!~>>Xm';LISTR 92084-1X836 REV.2302 <821202.1 850806.2134 P92084/&FCRHC.MAC::PCO> BLISTR  LIMES PAS.1 PAS.3 PAS.NONCDSTRECM  MD ( @9m>>XҰm';RHEAD 92084-1X836 REV.2302 <821202.1 850806.2134 P92084/&FCRHC.MAC::PCO> /RHEAD  Y.DCO.DLD.DST.ENTR .LBT.MVW.SBTABVER ABVNM CKBRK CKSM1 DFFNI IRRFT KILLN LISTR LOGTR LOMES PAS.1 PAS.3 PAS.BLANKFILL PAS.BOUNDINTEGERPAS.INLINEERROR PAS.NONCDSlPKEYR RRFTA TFERR EEppph,`-A! @ ( A`(=`P((-h.6HP( (-h.6 P('(-h.H6HP(=4"1#$DD D(<HP(A(C(Y`PE<<(P`P(P`P(P`P(P(YH(TP(X(Y`(^ @%` !(u@fg(v(y(z({((((((ʈ((((؄( &(鈈((`pph.6]*==@Hh,6p@H`88((骈` p (`pph.6@HHh/6p@H`H88((`pph.6H@Hh06p@HH`88f<>u( ( ` J((  A)( ( JA )( ( ( +`P(( >)[YYA(H/ V   tape not readable by FC, first two records are: header file checksum error HH|w44  CF.H@-L>>XUGm';RCOMF 92084-1X836 REV.2302 <821202.1 850806.2134 P92084/&FCRHC.MAC::PCO> 6/RCOMF  JJ h .ENTR CKBRK CKSM1 ERROR IRRFT LISTR PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDSPKEYR RRFTA TFERR JTTW,,Dp-@( 3 ,`,PF(((.(D W q-(`-AP (& %485 @6 (+7/T%%U0A .(comment file checksum error %@߳>>X m';SKPCF 92084-1X836 REV.2302 <821202.1 850806.2134 P92084/&FCRHC.MAC::PCO> 3 SKPCF  ##DFFNI IRRFT PAS.1 PAS.3 PAS.NONCDSRRFTA # `P(( D( H((   ( @>>Xbm*:;FCRTD 92084-1X838 REV.2226 <820413.1 850806.2139 P92084/&FCRTD.MAC::PCO>@b>>XڳYm*;;CKTCE 92084-1X838 REV.2226 <820413.1 850806.2139 P92084/&FCRTD.MAC::PCO> 4<CKTCE  66 }.ENTR LOMES NAM.. ODUMP PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDSTFERR 6vvb::;(+`;( (+`;@SPW(`;@SPV(`;@SPX(`;@SPU((+`;@T(9`;A@Tp:):(9 2@EADB7;CD<v++h=A;(bad tape cartridge entry is: G P S +@7>>Xnm+;GSTCL 92084-1X838 REV.2226 <820413.1 850806.2139 P92084/&FCRTD.MAC::PCO> ;`GSTCL  ,,+.MVWCKTCE CROAK PAS.1 PAS.3 PAS.NONCDSRCFTA TFERR ,8\==J` Pj(Ab` p e `mA@ e(J`IpF`ipD` e(Cp_pEhf`Fc`F@lpF(N`NpG`OpH`PpIhg`hAd`DPj(7(8AhD`ieK(=`D@kpD8E8_(`a (NJ\G@@l>>XYAm+;SCFDC 92084-1X838 REV.2226 <820413.1 850806.2139 P92084/&FCRTD.MAC::PCO> :7SCFDC  << ʟ .DAD .DCO .DIN.DLD.DST .ENTR CKBRK PAS.1 PAS.3 PAS.NONCDSRCFTA TFERR <J` P?p` QQA **`?p( 4`@p j (*D  4((;6!h   44(JD   4(3(1<7Qg8A 6(  ? @>A]>>Xm.;FCSBD 92084-1X839 REV.2340 <830903.1 850806.2143 P92084/&FCSBD.MAC::PCO>@Y>>XO$m.;USFCH 92084-1X839 REV.2340 <830903.1 850806.2143 P92084/&FCSBD.MAC::PCO> ;!USFCH  .. | .DAD.DLD.DST.MPYCROAK MVWDS PAS.1 PAS.3 PAS.NONCDS.FF ` #p `hA@ (AIg   fh    fH h(!F "( @ x>>Xm.;GIFSF 92084-1X839 REV.2340 <830903.1 850806.2143 P92084/&FCSBD.MAC::PCO> AGIFSF R0 bb .DAD .DCO .DDI.DLD.DMP.DSB.DST.MBT.MPY.MVWCROAK LOMES ODUMP PAS.1 PAS.3 PAS.BLANKFILL PAS.DOUBLEMOD PAS.NONCDSTFERR bDDJJ   fJ((   J h( ( D   fh g  xAh``(%(` eA@( (( ((  (BA(B(G~~ DBB A(A ((AA (W(W(\ (h6`6`p A`p J `p AJ AJ  `p %@ %A@ ipAh` ` '~.. lp #p(A AJ jp`.66 `p( Q  &bad tape discfile entry is: 6  @߫>>XNm9$;FCSUB 92084-1X765 REV.2226 <820413.1 850806.2146 P92084/&FCSUB.MAC::PCO>@ŎN>>XNm9$;INGCS 92084-1X765 REV.2226 <820413.1 850806.2146 P92084/&FCSUB.MAC::PCO> 6INGCS  PAS.1 PAS.3 PAS.NONCDS plpm ( @Nm>>Xm9&;GETCS 92084-1X765 REV.2226 <820413.1 850806.2146 P92084/&FCSUB.MAC::PCO> DGETCS L  44 u.CBT.ENTR .LBT .MVWINGCS MEMER PAS.1 PAS.3 PAS.NONCDSRCLST 4..f`Pc((Hh` `@ݨhl`@ވp¨.$::(`bpppAl@h6 p`(0(`ADŽ(`NJ(;`( pm`Pb(A(]`po((h` h`A M88h` `p}`p `(\p(`(` o(` s(`Pt(l(`Pu(p(h6`6(z((h6`6(((`F'44P}((`  (`lP(`l pl(`m(pÊ`Pb(p`0(`p~`(`}-p`},p`}+p`})( `Pp`p`ƀ))A`pƀ( pwz)  @3>>XHm9);UPDCL 92084-1X765 REV.2226 <820413.1 850806.2146 P92084/&FCSUB.MAC::PCO> <>UPDCL  ##.ENTR LOGNM PAS.1 PAS.3 PAS.NONCDSWCLST #xxT77`bp8`8P~(6`8@Cp7`7(<<`8@B:`8@B(`8@E:(+`8@D ;;`7=(+A+8`8A@Fp9298`8@Gp8(>xla? A:(@۔T>>Xjm9*;LNMFI 92084-1X765 REV.2226 <820413.1 850806.2146 P92084/&FCSUB.MAC::PCO> 9LNMFI   LOGNM PAS.1 PAS.3 PAS.NONCDSRCLST 33 `(ppA `(88(3 ( @0OE<<X~m9-;PFFD92084-1X765 REV.2226 <820413.1 850806.2146P92084/&FCSUB.MAC::PCO< yPFFDj ii!.ENTR B$CE1 B$REX B$SE1 CKBRK CLDSM GETCS INDSM INFNM INGCS INSDS LNMFI NOFIL PAS.1 PAS.3 PAS.NONCDS RETAC SRCHS SSCAR UPDCL iHHD@pp ( pnp`GA@(`A @(()`nA@(+(2/ A2pAp:(wA>p`(C(]`(L {{zHBBJp`3(]Rp W (]\(W_e(q`(q (q`pn`(vAv(6`A@p|`p(H (H`(H{ fA( @5>>Xm ;FCTAP 92084-1X776 REV.2226 <820413.1 850806.2159 P92084/&FCTAP.MAC::PCO>@S>>XW/m ;GETTS 92084-1X776 REV.2226 <820413.1 850806.2159 P92084/&FCTAP.MAC::PCO> >!GETTS 0 w.MVWEGZEC PAS.1 PAS.3 PAS.NONCDSKKx`P,((`-@p( `.@p)`P,(( p(ph `+*!K NS" `!(#p 8!( @ @>>X6m ;RWTAP 92084-1X776 REV.2226 <820413.1 850806.2159 P92084/&FCTAP.MAC::PCO> = RWTAP  :EGZEC PAS.1 PAS.3 PAS.NONCDS_ ` @p     ( @1>>Xm9m;GTVOL 92084-1X776 REV.2226 <820413.1 850806.2159 P92084/&FCTAP.MAC::PCO> kGTVOL < ]]).ENTR .MVWBREXC CKBRK FOSAD FRMCH FRMSL FRMST GETTS GTWOC LOFRM PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDSRWTAP WUPBR ],,3iA A  AH  ,JJ(tape LU pp%A`hA`(3(d`([=H (LAH ALSD @W Ap(cbͰcEE((t`(tAr((ꈀ(`(p`(AH( (A  Hp`P6H(((`P8($$w((`P7((`("$ttvVVA( (  71put volume number on LUnot ready media not initialized not write enabled when ready to continue type GO, otherwise type BR or SK BRGOSKt@j` >>X4m,;FCTDS 92084-1X773 REV.2226 <820413.1 850806.2203 P92084/&FCTDS.MAC::PCO>@t4>>XEm-;INTDS 92084-1X773 REV.2226 <820413.1 850806.2203 P92084/&FCTDS.MAC::PCO> 7INTDS  PAS.1 PAS.3 PAS.NONCDSy p. ( @DcB>>XQm-;CLTDS 92084-1X773 REV.2226 <820413.1 850806.2203 P92084/&FCTDS.MAC::PCO> 5CLTDS  ##PAS.1 PAS.3 PAS.NONCDSPURGE W23OF W23ON #$$`.( /AA$ ( @N#l>>Xy3m.;RSTDS 92084-1X773 REV.2226 <820413.1 850806.2203 P92084/&FCTDS.MAC::PCO> <-RSTDS  ,,CRETS OPENPAS.1 PAS.3 PAS.NONCDSSCFER W23OF W23ON ,TT ,,`.(/,/020A`,(A,p.#/,00A%`,(+A+,-T .(@oU>>XIm.;WCTDS 92084-1X773 REV.2226 <820413.1 850806.2203 P92084/&FCTDS.MAC::PCO> -WCTDS  ##.ENTR PAS.1 PAS.3 PAS.NONCDSSCFER WRITF #H A/ H` (   eiA( @!>>XW m/;RCTDS 92084-1X773 REV.2226 <820413.1 850806.2203 P92084/&FCTDS.MAC::PCO> -RCTDS  ##.ENTR PAS.1 PAS.3 PAS.NONCDSREADF SCFER #,,CA/HM`A(  p`,A`p(  @:"X>>XUm 9;FCTLU 92084-1X778 REV.2226 <820413.1 850806.2207 P92084/&FCTLU.MAC::PCO>@U>>X[m :;INTAP 92084-1X778 REV.2226 <820413.1 850806.2207 P92084/&FCTLU.MAC::PCO> 4INTAP  PAS.1 PAS.3 PAS.NONCDS$ p٨ ( @J@i>>Xs m :;ULLTP 92084-1X778 REV.2226 <820413.1 850806.2207 P92084/&FCTLU.MAC::PCO> EULLTP  3LURQPAS.1 PAS.3 PAS.NONCDSjA  p٨  ( @_d~$>>X[.m ;RTPLK 92084-1X778 REV.2226 <820413.1 850806.2207 P92084/&FCTLU.MAC::PCO> E'RTPLK  ##DVTYP EGZEC PAS.1 PAS.3 PAS.NONCDSULLTP #UUٿ%%`($`A(# p%`%P*((`-@لp&)&(#`%P+((#`,A@p&#)&'U((@@l,>>XuPm ;STPCM 92084-1X778 REV.2226 <820413.1 850806.2207 P92084/&FCTLU.MAC::PCO> =;STPCM  RRJ .ENTR ABREG ADDRCTDST DVTYP ERROR LURQMAGST PAS.1 PAS.3 PAS.BLANKFILL PAS.INLINEERROR PAS.NONCDSRTPLK R||88A:p  p ` PK( PL((A`Mp p (`Np p (hOJ` P (7D&?A @*98`9(5 4@CA BJ ` p ٨;|!!<A :(tape lock failed !@>>X<m ;ETPCM 92084-1X778 REV.2226 <820413.1 850806.2207 P92084/&FCTLU.MAC::PCO> <ETPCM  EGZEC PAS.1 PAS.3 PAS.NONCDSULLTP **F`@p`0 H(* V( @A`>>X2m;FCTRE 92084-1X840 REV.2226 <820413.1 850806.2212 P92084/&FCTRE.MAC::PCO>@r2>>XMm;LGTRE 92084-1X840 REV.2226 <820413.1 850806.2212 P92084/&FCTRE.MAC::PCO> > LGTRE  "" LOMES PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS" A    & (tape read error @>>XNm;BDTRE 92084-1X840 REV.2226 <820413.1 850806.2212 P92084/&FCTRE.MAC::PCO> ; BDTRE  ""ABVER PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS" A     (fatal tape read error @#>>XCm;RDMAG 92084-1X840 REV.2226 <820413.1 850806.2212 P92084/&FCTRE.MAC::PCO> -RDMAG  .ENTR EGZEC PAS.1 PAS.3 PAS.NONCDS&&f`@pp `&9Ap(@@-L>>Xl1m;RDCTD 92084-1X840 REV.2226 <820413.1 850806.2212 P92084/&FCTRE.MAC::PCO> ?'RDCTD  22 .DAD.DDE .DDI.DLD.DST .ENTR EGZEC PA((S.1 PAS.3 PAS.NONCDS2??\K JA !`0@p#%p$-#$ !"h A .D .  '?>s( A %&p (@#Z>>XUm;RWCTD 92084-1X840 REV.2226 <820413.1 850806.2212 P92084/&FCTRE.MAC::PCO> RIRWCTD  --xQ.ENTR BDTRE MVWDS PAS.1 PAS.3 PAS.NONCDSRDCTD TFERR -E99`FpB`EpD`D(A` A( UQ`(`(R`A(S`Tp `Up ` A@D(+`DpC(-` pC2 BC`C@ p ` @Cp 9 `B@CpB`C@DpD(IJ AGGpFHpE(@>>Xm;LLRCF 92084-1X840 REV.2226 <820413.1 850806.2212 P92084/&FCTRE.MAC::PCO> `LLRCF R ||\ .DCO.DLD.DST.MPY.MVW CKBRK CKSUM CMBUF EGZEC ERLEV FOSAD FOSDD FRMST LGTRE LOFRM LOMES PAS.1 PAS.3 PAS.BLANKFILL PAS.INLINEERROR PAS.NONCDSRDCTD RDMAG | TFERR `((##W (`(A b(T`((Q#AA(h`HAc ! deA& e(1/efHg(` @pW` A(s`A@ (s` (H(s`@ A@ (s` P(Z@V<< (s` P(^(jJA h(s(s` PW(j(s` P(n(` PW( j|ekDgA   A A(` @IpL`L@ IpJ XAA(P checksum error (chunk header) bad chunk header is:@p[ p `P(P((HMZ`( p `(` (Ј(T((Q`ZP (@@erlg((JJ  AHm` @pY`Y((`H@pXAXY(hD IW\b \bA(e{n gp ((N`[P~~ ;;((-` (,` P( (,`(,A*eogA(N(4epAg q`P(;(F`@p_ Cb_ p (J  `[p[(` p (V~7hRp (V`p `uuaWW( 1 bad record length checksum error (chunk body) attempting to use data in spite of checksum error retrying tape read 0u@*IU>>XU m";RNVOL 92084-1X840 REV.2226 <820413.1 850806.2212 P92084/&FCTRE.MAC::PCO> B RNVOL  %.DSTPAS.1 PAS.3 PAS.NONCDSL J  p p    ( @$]>>XKm#;IRRFT 92084-1X840 REV.2226 <820413.1 850806.2212 P92084/&FCTRE.MAC::PCO> =IRRFT  PAS.1 PAS.3 PAS.NONCDS p  ( @A`>>XQm*;RRFTA 92084-1X840 REV.2226 <820413.1 850806.2212 P92084/&FCTRE.MAC::PCO> KDRRFTA 0 ,,+ADDRBDTRE PAS.1 PAS.3 PAS.NONCDSRDMAG RWCTD TFERR ,<<pB`POA((- A qpCCH` q((`PA @ qA(W q(,` q(#(,P q('(*ApB(,I(@2WJ q`(6`(;K`!<(@pB`BDiE`NpB( N @M' >>XZ m,;RCFTA 92084-1X840 REV.2226 <820413.1 850806.2212 P92084/&FCTRE.MAC::PCO> < RCFTA  =LLRCF PAS.1 PAS.3 PAS.NONCDSM ` (( ` p p    ( @.>>X[ m.;UCFTA 92084-1X840 REV.2226 <820413.1 850806.2212 P92084/&FCTRE.MAC::PCO> < UCFTA  ACROAK PAS.1 PAS.3 PAS.NONCDSk ` ( ` p p    ( @Po_>>Xpm/;RCFTB 92084-1X840 REV.2226 <820413.1 850806.2212 P92084/&FCTRE.MAC::PCO> <RCFTB  PAS.1 PAS.3 PAS.NONCDSRCFTA UCFTA EE@P ((`P( ( `p (@P (` P((`p ( p E ( @IhR>>Xdm1;DFFNI 92084-1X840 REV.2226 <820413.1 850806.2212 P92084/&FCTRE.MAC::PCO> 9DFFNI  EGZEC PAS.1 PAS.3 PAS.NONCDSTFERR ##`@p`( # ( @\>>X^m 2;FCTWR 92084-1X772 REV.2226 <820413.1 850806.2221 P92084/&FCTWR.MAC::PCO>@ɞ^>>Xfm 4;CLTAP 92084-1X772 REV.2226 <820413.1 850806.2221 P92084/&FCTWR.MAC::PCO> 2CLTAP  %.DSTPAS.1 PAS.3 PAS.NONCDS&&J J J J & ( @R>>Xqm 6;MAGFT 92084-1X772 REV.2226 <820413.1 850806.2221 P92084/&FCTWR.MAC::PCO> -TMAGFT  << i=.DLD.DST.ENTR .FAD.FDV .FLTD .FMPPAS.1 PAS.3 PAS.INLINEERROR PAS.NONCDS<}}8KKSPn(PoJ( (:D  \O AA ^QJD  `QOK(=JD  bOA  dAJQD  fQOK(=hpD  AA hKAAjMAMT}%%}QUAS AM(KGQZHK Q`(@`% nW @}=>>Xn m 9;CTDBL 92084-1X772 REV.2226 <820413.1 850806.2221 P92084/&FCTWR.MAC::PCO> ; CTDBL 0  .DLD.DSTPAS.1 PAS.3 PAS.NONCDSkJAA   ( @>>Xtm 9;STWMM 92084-1X772 REV.2226 <820413.1 850806.2221 P92084/&FCTWR.MAC::PCO> GSTWMM  G.ENTR PAS.1 PAS.3 PAS.NONCDSn.pި eQA( @a>>X}Nm!;WNVOL 92084-1X772 REV.2226 <820413.1 850806.2221 P92084/&FCTWR.MAC::PCO> B;WNVOL  33 X.DIN.DLD.DSTEGZEC ERROR PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS3OOb'' p J`PL( (&`M@ڄp:=:'>??`(! =B@AD7J;O<(tape DESCRIBE error @@>>X1m!;EOVEX 92084-1X772 REV.2226 <820413.1 850806.2221 P92084/&FCTWR.MAC::PCO> 9EOVEX  B$REX PAS.1 PAS.3 PAS.NONCDSA`pg ( @>>X]%m!;CKTWS 92084-1X772 REV.2226 <820413.1 850806.2221 P92084/&FCTWR.MAC::PCO> GCKTWS  ""ERROR PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS"22`(  J`(`P$ ((p߀2~(error on tape write @ )R>>XGm!;CECTD 92084-1X772 REV.2226 <820413.1 850806.2221 P92084/&FCTWR.MAC::PCO> ?CECTD  22 (.DAD.DCO .DIN.DLD.DST .ENTR EOVEX PAS.1 PAS.3 PAS.NONCDS2P JA D ( ( ZAA  A (@Wv>>X(m! ;CEMAG 92084-1X772 REV.2226 <820413.1 850806.2221 P92084/&FCTWR.MAC::PCO> +CEMAG  BEOVEX PAS.1 PAS.3 PAS.NONCDSZ=`( ( @gۆ>>XX)m! ;WRMAG 92084-1X772 REV.2226 <820413.1 850806.2221 P92084/&FCTWR.MAC::PCO> :#WRMAG  88 g .DAD .DIN.DLD.DST .ENTR CEMAG CKTWS EGZEC PAS.1 PAS.3 PAS.NONCDS8CC' `(`(@p!p ' "D J"J  J#Cg$A !(@@p>>XۆAm! ;WRCTD 92084-1X772 REV.2226 <820413.1 850806.2221 P92084/&FCTWR.MAC::PCO> M9WRCTD  << ȋ .DAD .DDE .DDI.DLD.DST .ENTR CECTD CKTWS EGZEC PAS.1 PAS.3 PAS.NONCDS<\\&118 AD =  =3`A(*31`@@p5A7p6#?56812JA 3JJAJ 39\lH:A 7(@ >>XUm!;POCTD 92084-1X772 REV.2226 <820413.1 850806.2221 P92084/&FCTWR.MAC::PCO> HPOCTD (( TPAS.1 PAS.3 PAS.NONCDSWRCTD ''*L`U@p`(  U`Up' ( @#PB>>Xۋ>m!;WWCTD 92084-1X772 REV.2226 <820413.1 850806.2221 P92084/&FCTWR.MAC::PCO> R6WWCTD  ##.ENTR MVWDS PAS.1 PAS.3 PAS.NONCDSPOCTD #iiE..`3p.`2p1`1(-` @Vp0`0A@1(`1p/(`0p/A./`.@/p.`@/p`/@1p1`䨄PV(+(,(6i7A44p35p2(@$o>>XrAm!;WEOFN 92084-1X772 REV.2226 <820413.1 850806.2221 P92084/&FCTWR.MAC::PCO> 09WEOFN  **Q.DIN.DLD.DSTCKTWS EGZEC PAS.1 PAS.3 PAS.NONCDS*uu66`(&`ۈP>((6`@A@p8;8<<67J(%`?@p8A%=8`P>J(*(0D(5JD9u :(@@x8>>XKm!;WEOFT 92084-1X772 REV.2226 <820413.1 850806.2221 P92084/&FCTWR.MAC::PCO> 0WEOFT  ##CECTD CEMAG PAS.1 PAS.3 PAS.NONCDSWEOFN #--.`(`ۈP(( (`P( (H-(@*+H>>Xv7m!;MKCHH 92084-1X772 REV.2226 <820413.1 850806.2221 P92084/&FCTWR.MAC::PCO> <-MKCHH  **C.DLD.DST.ENTR .MVWCKSUM PAS.1 PAS.3 PAS.NONCDS*==+p)p A*p!,A"+@6p(I($12'3hH`54-=k. A)( @G>>XU#m!;WCTAP 92084-1X772 REV.2226 <820413.1 850806.2221 P92084/&FCTWR.MAC::PCO> *WCTAP  --.ENTR PAS.1 PAS.3 PAS.INLINEERROR PAS.NONCDSWRCTD WRMAG -66`P(P ( P!((A HA((H(h"6k'A(@3R\>>XIm!;BEFOR 92084-1X772 REV.2226 <820413.1 850806.2221 P92084/&FCTWR.MAC::PCO> 9BEFOR  PAS.1 PAS.3 PAS.NONCDS`Up ( @5TV>>Xo*m! ;WRTAP 92084-1X772 REV.2226 <820413.1 850806.2221 P92084/&FCTWR.MAC::PCO> 9!WRTAP  11.ENTR ADDRPAS.1 PAS.3 PAS.INLINEERROR PAS.NONCDSWRMAG WWCTD 1AAHz`P&(P'( P(((A W A((A pA%W (h)!AlS"A (@ J, >>Xgm!";ENFOR 92084-1X772 REV.2226 <820413.1 850806.2221 P92084/&FCTWR.MAC::PCO> BENFOR  ''GzADDRPAS.1 PAS.3 PAS.NONCDSPOCTD WEOFT WWCTD '## a`P((ApA HH(# ( @l_>>XVm!$;WGMAG 92084-1X772 REV.2226 <820413.1 850806.2221 P92084/&FCTWR.MAC::PCO> -WGMAG  // ) .DIN.DLD.DSTCEMAG CKTWS EGZEC PAS.1 PAS.3 PAS.NONCDS/--E`( `@p D J- ]( @#B>>XMm!%;PCTDC 92084-1X772 REV.2226 <820413.1 850806.2221 P92084/&FCTWR.MAC::PCO> , PCTDC  CKTWS EGZEC PAS.1 PAS.3 PAS.NONCDSj `@p  H  T ( @|<>>X m*;FCWCS 92084-1X769 REV.2226 <820413.1 850806.2239 P92084/&FCWCS.MAC::PCO>@K >>X:m*;WRCSE 92084-1X769 REV.2226 <820413.1 850806.2239 P92084/&FCWCS.MAC::PCO> L WRCSE  .ENTR PAS.1 PAS.3 PAS.NONCDSWRITD A  g^ A(@ُggg~~GACART %ACRTS (ZAPPEX !hAPPFL 4BDTRE 0/BEFOR e9BEGVO 9+, !4CCACL ACCSIZ ,bCECTD U6CEMAG V>6CKTCE :CKTWS S<CLCOL !~~~YCLDDE F=CLDSM gzCLEAR  ZuCLIAA CLNUM p(CLSCF ,CLTAP J)CLTDS  CTDBL ND2TVV 3DDCIT  (DELEC  DELFL v_DELNE [DFECU XB~~~c DFFNI H;DSCIO _2EMATS |CENDCS )ENDFI RkENFOR h !EOVEX R,ETPCM - FINVO A'H=FNDNM ~ hFRMKC ggFRMKY /FSENA s<[DFECU XB~~~PGCARL 1cGCHKD nGCSTA a=GETCS  ZAGETTS =GIFSF \GINFO LGNXTC UGSTCL kc'GSZIN p/GTSDE yEGTVOL 8INCOL INDDE EINDSM foXB~~~INDTC YINFNM e^INGCS OINSDS qRINTAP &LINTDS ~IRRFT @|KILLN yLCARS fcLGTRE /LISTR &LLRCF 7,GbLNMFI yALOGPR tvnLOGTR M foXB~~~ХMAGFT KKMAKAV xMAKEX >MCTCK {ZMKCHH bMKMIS ANEWEX ~NEWFI iNMGCS /OPSFI PCKFL APCTDC kjPDUPF BV PFFD. `8JoXB~~~PKEYR GPOCTD [4PODAT 9 PODEC ;[iuRCFTA D<VRCFTB Fr'RCLSF ARCLST gRCOMF 0/NRCTDS $ARDCSE iRDCTD 3 RDDBS :NRDFAD 0R KB~~~vRDMAG 1\READD cRETAC l!RHEAD 4/6NpRNVOL ?fRRFTA B$RSCRT ? RSTDS !0RTPLK (fRWCTD 4n$bRWTAP SCAND !cSCFDC "'SDCAR GcZiB~~~ SDIRA m'SGCS1 SGCS2 8SGCS3 SSKDIR 3-'SKPCF M/ SRCHS VnhSSCAR i?STDFI K`STPCM *HSTRTC  STWMM O#TCCRN .-acfB~~~(TCLIN _TRECM UUCFTA EXULLTP 'RUPCHK UPDCL pUSFCH VBMIS BVENDD JVENDV %VGETD W/WCFTT ?+,\WCLST MWCTAP ckWCTDS #acfB~~~ WDCRT 5- WDFTT S!WEOFN ^SjWEOFT `]S[WFORM WGMAG iP[jWHEAD I+,JS\eWKEYR ,g+WKYDO _+WKYIN ^_+WKYST _+WNVOL P1WRCSE lwB~~~GvWRCTD Y1SjWRFPA O`WRITD ZGWRMAG WM[jWRTAP fAWWCTD \X iP WHEAD I#WKEYR ,)WKYDO (WKYIN ^(WKYST (WNVOL P1WRCSE lwB~p`( p`(`p( pC@))Xi: END_PROGRAM 92077-1X608 REV.2440)BBԔEND_PROGRAM $FCL2::RTE_6:5:170:128 644 0 0 125000 5310707310 34673 $FCL2::RTE_6:5:170:128 $h$FCL2 +#+#+#T}QFST ( 77Xg~-;FCL2H 92084-12086 REV.2540 <850905.1054>P92084/&FCL2H::PCO7@HWg>>Xw";FCBRK 92084-1X771 REV.2226 <820413.1 850827.0930 P92084/&FCBRK.MAC::PCO>@>>X$w";CKBRK 92084-1X771 REV.2226 <820413.1 850827.0930 P92084/&FCBRK.MAC::PCO> BCKBRK  ,,BREXC IFBRK LOMES PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS,00ёA(A  p `   (p H0; (break acknowledged@w67>>Xw";ENBRK 92084-1X771 REV.2226 <820413.1 850827.0930 P92084/&FCBRK.MAC::PCO> EENBRK  KCKBRK PAS.1 PAS.3 PAS.NONCDS- Hp  ( @>>Xw";DIBRK 92084-1X771 REV.2226 <820413.1 850827.0930 P92084/&FCBRK.MAC::PCO> @DIBRK  PAS.1 PAS.3 PAS.NONCDS p  ( @X3>>Xw";INBRK 92084-1X771 REV.2226 <820413.1 850827.0930 P92084/&FCBRK.MAC::PCO> EINBRK  NENBRK PAS.1 PAS.3 PAS.NONCDS- Hp  ( @ (>>Xi ((m;FCCA1 92084-1X754 REV.2226 <820413.1 850806.2256 P92084/&FCCA1.MAC::PCO>@JIi >>XT4m;CLIND 92084-1X754 REV.2226 <820413.1 850806.2256 P92084/&FCCA1.MAC::PCO> @,CLIND  ].ENTR .MPYPAS.1 PAS.3 PAS.NONCDSVV))+(%p)`GA@)A(%`3)@0+A(`3)@0+((!`)p*('`)p)(p*`*,Vl-A+( 3 @7>>XEm ;LKERR 92084-1X754 REV.2226 <820413.1 850806.2256 P92084/&FCCA1.MAC::PCO> DLKERR  ''.ENTR DIFME PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS'4} A VA (cartridge lock error@|>>XD+m ;ULCAR 92084-1X754 REV.2226 <820413.1 850806.2256 P92084/&FCCA1.MAC::PCO> 3ULCAR  ,,.ENTR CRULK DIFME PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS,++pp`A( +|A(cartridge unlock error@DcK>>Xm;ESACM 92084-1X754 REV.2226 <820413.1 850806.2256 P92084/&FCCA1.MAC::PCO> =ESACM }  99 .ENTR .MPY .MVWCRLKCROAK LKERR PAS.1 PAS.3 PAS.INLINEERROR PAS.NONCDS9kv>>`@h `*(`JJp((`*(H`{px`(a`*P(-P(NP(](^`0p`(M`xp:py`y(CssV>::`0p(M`yP(M`yP(MMxy(a`xpTpy`yA(\\xy(a(aHh `p`0p`A@@` `*pz`zsÖA`pz({@h(>>XdHm;REACM 92084-1X754 REV.2226 <820413.1 850806.2256 P92084/&FCCA1.MAC::PCO> .:REACM  ++.ENTR .MPY.MVWCROAK PAS.1 PAS.3 PAS.NONCDSULCAR +gg+22`C9@?h@>`7D( H`7DPA(( `7*BPA((A`3p22`7Ep7`7D@Gp8`7F08p7`C9@?A@`@>:g ; A9(3@4>>XJm5;FCDMP 92084-1X914 REV.2226 <820413.1 850806.2302 P92084/&FCDMP.MAC::PCO>@J>>X~2m6;ODUMP 92084-1X914 REV.2226 <820413.1 850806.2302 P92084/&FCDMP.MAC::PCO> 8,ODUMP  ,,2.DIV.ENTR FOOCT FRMCH LOFRM PAS.1 PAS.3 PAS.NONCDS,JJK''+(&p(p'A 0@'@*p))`' A1 P'("`'+H("(#8'8((,Jg-A*( @A>>XEm(;FCERR 92084-1X752 REV.2226 <820413.1 850806.2328 P92084/&FCERR.MAC::PCO>@E>>X^m(;ERLEV 92084-1X752 REV.2226 <820413.1 850806.2328 P92084/&FCERR.MAC::PCO> = ERLEV  PAS.1 PAS.3 PAS.NONCDSsZ `چA@ ( ` pڨ x ` (p 8  p (@!3?>>Xf m(;BREXC 92084-1X752 REV.2226 <820413.1 850806.2328 P92084/&FCERR.MAC::PCO> OBREXC  B$REX ERLEV PAS.1 PAS.3 PAS.NONCDSeA ` pgA (F @H<<X}""m(;WARN92084-1X752 REV.2226 <820413.1 850806.2328P92084/&FCERR.MAC::PCO< WARN 008T.MBTERLEV FRMST LOFRM PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS0%%UAA h6A`6H%q ( warning: \ @O>>XXm(;ULWRN 92084-1X752 REV.2226 <820413.1 850806.2328 P92084/&FCERR.MAC::PCO> CULWRN  ERLEV LOMES PAS.1 PAS.3 PAS.NONCDS AH ( @+J>>XZ m( ;ENOMS 92084-1X752 REV.2226 <820413.1 850806.2328 P92084/&FCERR.MAC::PCO> @ENOMS  B$REX ERLEV PAS.1 PAS.3 PAS.NONCDSeA ` pgA )(Z @!??>>Xvm(";ERROR 92084-1X752 REV.2226 <820413.1 850806.2328 P92084/&FCERR.MAC::PCO> FERROR  008X.MBTENOMS FRMST LOFRM PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS0$$aAh6`6AD$ \ ( error: \ @A`b>>XHm($;INTER 92084-1X752 REV.2226 <820413.1 850806.2328 P92084/&FCERR.MAC::PCO> 9$INTER  66 B$REX ERLEV FOOCT FRMST LOFRM PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS6>>##AA, -2.A/ # -<0/D -1/D pgA"$>99߈%##`$(&p#8$(internal error at \ , last segment loaded: \9@?>>Xjm(&;FMPER 92084-1X752 REV.2226 <820413.1 850806.2328 P92084/&FCERR.MAC::PCO> 8FMPER  55 !1.ENTR FODZFRMST LOFRM PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDSPTERR 5""wA A Ac" Ap(FMGR@ H>>Xd m(';FMERR 92084-1X752 REV.2226 <820413.1 850806.2328 P92084/&FCERR.MAC::PCO> EFMERR  ##.ENTR ENOMS FMPER PAS.1 PAS.3 PAS.NONCDS#A eWA( @>>Xl(m((;SCFER 92084-1X752 REV.2226 <820413.1 850806.2328 P92084/&FCERR.MAC::PCO> .SCFER  66 .ENTR B$REX ERLEV FMPER LOMES PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS6##HAA A pg#!!JA(fatal scratch file error: !@QOp>>Xxm(+;FIERR 92084-1X752 REV.2226 <820413.1 850806.2328 P92084/&FCERR.MAC::PCO> @FIERR  ,,*.MBTB$REX ERLEV LCURF LOMES PAS.1 PAS.3 PAS.NONCDS,,,3Ah6A`6h6A`6`pgA,5 (!@k6+>>Xƃ-m(,;FIFME 92084-1X752 REV.2226 <820413.1 850806.2328 P92084/&FCERR.MAC::PCO> <!FIFME  22 k .ENTR B$REX ENOMS ERLEV FMPER LCURF PAS.1 PAS.3 PAS.NONCDS2DDK AD%  P,(  P*( ( P)( P+((&`'pg`(pg!Dm" A (P@7>>XĄ-m(-;DIFME 92084-1X752 REV.2226 <820413.1 850806.2328 P92084/&FCERR.MAC::PCO> =DIFME  ?? .ENTR .MBTFMERR FOSAD FRMCH FRMST LOFRM PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS?..kh%6`&6A !A "'#!AD$.A (  : on disc LU @ܔ>>X`m(/;EXERR 92084-1X752 REV.2226 <820413.1 850806.2328 P92084/&FCERR.MAC::PCO> RGEXERR  DD , .ENTR ADDRB$REX ERLEV FOOCT FRMCH FRMST LOFRM PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDSDooi AAAAK LRM AN LDO AN LEO AN !LXP AN%FpC`CpBC@B(;BpA`BpBA7Q:A(* Ap g@Go&&HA D(  exec error \, exec params: \&@Q>>Xލ<m(3;FATIO 92084-1X752 REV.2226 <820413.1 850806.2328 P92084/&FCERR.MAC::PCO> 1"FATIO  ?? Ǡ .ENTR .MBTCLFRM ERROR FOOCT FOSAD FRMST PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS?66? A &,'(A  &7)D(!h*6A`+6 (H"6,,k#A (  ߠcfatal i/o error on LU , status =,@>>Xm(7;LDERR 92084-1X752 REV.2226 <820413.1 850806.2328 P92084/&FCERR.MAC::PCO> ?LDERR w ZZ\4 .DAD .DDE .DDI .DIN.DLD .DMP.DST.ENTR .MBTFOSAD FRMST LOFRM PAS.1 PAS.3 PAS.BLANKFILL PAS.DOUBLEMOD PAS.NONCDSZ}}zTT AD    x AA xA AA x~ 8AH  x}h6`6AAKAOV}DDL<T))D((AZaAelDp~AwA{}D11 A( : LU trk sec thru trk sec1@o㎣>>Xjm(:;LDDER 92084-1X752 REV.2226 <820413.1 850806.2328 P92084/&FCERR.MAC::PCO> 1QLDDER  >> P.DIV .ENTR .MBTBPERT FOSAD FRMST LOFRM PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS>yyMJJANpM`M pLO ALpKOP@i ALpJhZ6`[6A UA +V\WUA/N 6V_XDU:K`JPK(H DVcYUDHJHQy**RA N( : LU dir tr thru dir tr*@>>Xm);LOGNM 92084-1X752 REV.2226 <820413.1 850806.2328 P92084/&FCERR.MAC::PCO> ÁLOGNM  aa.DLD.ENTR .LBT.MBT.MVW CFRCH CFRST CLFRM ENCOF FOD FODDFOIOA FRMSP FRMST PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDSWARNa A  GG(((0(,A -ġD<ơJ`A((&À0(,,0Ǩ2G~~:D3LLA0`1h;A(- = \EɡDMʡH h6([AZ`(cAcLj`(kAkLj`(sAsDŽ (z(~~~//O`(2ہ2ހh6`6A H/@@Ĭ((A`hA(>: cno match for: namr = \file1 file2 @@!f@&>>X3 m);ABVNM 92084-1X752 REV.2226 <820413.1 850806.2328 P92084/&FCERR.MAC::PCO> 5ABVNM  B$REX ERLEV PAS.1 PAS.3 PAS.NONCDSeA ` pgA (2 @:>>X&m);ABVER 92084-1X752 REV.2226 <820413.1 850806.2328 P92084/&FCERR.MAC::PCO> ,ABVER  ABVNM LOMES PAS.1 PAS.3 PAS.NONCDS MD ( @'a>>X\)m);TFERR 92084-1X752 REV.2226 <820413.1 850806.2328 P92084/&FCERR.MAC::PCO> >TFERR  66 !ABVNM ERLEV FOSAD FRMST LOFRM PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS6$$HAA  A ($&&T`(p8(tape format error &@ȗW>>XMm);PRMER 92084-1X752 REV.2226 <820413.1 850806.2328 P92084/&FCERR.MAC::PCO> < PRMER  ""ERROR PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS" A    Q (bad or missing parameter@4MS >>XBm) ;BDTLU 92084-1X752 REV.2226 <820413.1 850806.2328 P92084/&FCERR.MAC::PCO> 5 BDTLU  ""ERROR PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS" A     ( bad tape LU @>>XBm) ;BDNMR 92084-1X752 REV.2226 <820413.1 850806.2328 P92084/&FCERR.MAC::PCO> 6 BDNMR  ""ERROR PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS" A    3 (bad namr@d`>>XNm) ;BRCER 92084-1X752 REV.2226 <820413.1 850806.2328 P92084/&FCERR.MAC::PCO> < BRCER  ""ERROR PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS" A      (mismatched braces @%D>>XEm);BADCM 92084-1X752 REV.2226 <820413.1 850806.2328 P92084/&FCERR.MAC::PCO> ) BADCM  ""ERROR PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS" A    !!B ( no such command (use ? for help)!@#>>XNm);BADLU 92084-1X752 REV.2226 <820413.1 850806.2328 P92084/&FCERR.MAC::PCO> 2 BADLU  ""ERROR PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS" A     & (bad LU or device not supported @/>>XGm);MEMER 92084-1X752 REV.2226 <820413.1 850806.2328 P92084/&FCERR.MAC::PCO> / MEMER  ""ERROR PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS" A    # (not enough memory @h^>>Xm 7;FCFRM 92084-1X757 REV.2340 <830903.1 850807.0008 P92084/&FCFRM.MAC::PCO>@>>Xm 7;CLFRM 92084-1X757 REV.2340 <830903.1 850807.0008 P92084/&FCFRM.MAC::PCO> C CLFRM  MPAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS Acpp  X (  @j>>Xm 8;LOFRM 92084-1X757 REV.2340 <830903.1 850807.0008 P92084/&FCFRM.MAC::PCO> F LOFRM  ""D.MBTCLFRM LOMES PAS.1 PAS.3 PAS.NONCDS" h 6`6A H K (c@a!>>Xm 8;LIFRM 92084-1X757 REV.2340 <830903.1 850807.0008 P92084/&FCFRM.MAC::PCO> @ LIFRM  ""D.MBTCLFRM LIMES PAS.1 PAS.3 PAS.NONCDS" h 6`6A H K (c@O>>Xm 9;DEFRM 92084-1X757 REV.2340 <830903.1 850807.0008 P92084/&FCFRM.MAC::PCO> < DEFRM  ""(.MBTCLFRM DBGME PAS.1 PAS.3 PAS.NONCDS" h 6`6A H K (c@I >>Xm 9;CFRCH 92084-1X757 REV.2340 <830903.1 850807.0008 P92084/&FCFRM.MAC::PCO> /CFRCH  O.ENTR .SBTPAS.1 PAS.3 PAS.NONCDS--`A@(`ph6@H`-GAp(c@>>Xm :;FRMCH 92084-1X757 REV.2340 <830903.1 850807.0008 P92084/&FCFRM.MAC::PCO> ;FRMCH  .ENTR CFRCH PAS.1 PAS.3 PAS.NONCDSgHA`p7s Ap(@>>Xm :;FRMSP 92084-1X757 REV.2340 <830903.1 850807.0008 P92084/&FCFRM.MAC::PCO> KFRMSP  .ENTR FRMCH PAS.1 PAS.3 PAS.NONCDS""0`(ppA 88("8Ap( @s 3>>X"m ;;CFRSL 92084-1X757 REV.2340 <830903.1 850807.0008 P92084/&FCFRM.MAC::PCO> ?CFRSL  ""-.ENTR .LBTCFRCH PAS.1 PAS.3 PAS.NONCDS"//{`(pph!6@Hp88(/FiAp(@>>Xm ;;FRMSL 92084-1X757 REV.2340 <830903.1 850807.0008 P92084/&FCFRM.MAC::PCO> KFRMSL   .ENTR CFRSL PAS.1 PAS.3 PAS.NONCDSgHA`p7s Ap(@8>>X m ;CFRST 92084-1X757 REV.2340 <830903.1 850807.0008 P92084/&FCFRM.MAC::PCO> > CFRST  CFRSL MELEN PAS.1 PAS.3 PAS.NONCDS_ApA   ( @C>>Xm ;FRMST 92084-1X757 REV.2340 <830903.1 850807.0008 P92084/&FCFRM.MAC::PCO> JFRMST  GCFRST PAS.1 PAS.3 PAS.NONCDSJ`p ( @>>X(m ;MLBNS 92084-1X757 REV.2340 <830903.1 850807.0008 P92084/&FCFRM.MAC::PCO> @MLBNS  O.ENTR .LBTPAS.1 PAS.3 PAS.NONCDS==.`'p`&ph6@Hp`P%(`p(@p8(p`= e A( % | @I>X m ;FSBNS 92084-1X757 REV.2340 <830903.1 850807.0008 P92084/&FCFRM.MAC::PCO> F FSBNS  FRMSL MLBNS PAS.1 PAS.3 PAS.NONCDS_ApA   ( @wp0>>X#m ;ENCOF 92084-1X757 REV.2340 <830903.1 850807.0008 P92084/&FCFRM.MAC::PCO> BENCOF  &&h.MBTFRMSL PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS&88~ `A@(h!6`"6A  cpA8`|( c@Y<<XA;m ;((FODD92084-1X757 REV.2340 <830903.1 850807.0008P92084/&FCFRM.MAC::PCO< m4FODD ((C.D2DD .ENTR FRMCH FRMSP PAS.1 PAS.3 PAS.NONCDS(CC!!A2$p"`"@#p/ /`"p0( p/`0p!`:@!p1A1@!p!8/(4C:95A23p#(#@;==Xbbm ;FOD 92084-1X757 REV.2340 <830903.1 850807.0008 P92084/&FCFRM.MAC::PCO= lFOD  !!.DST.ENTR FODDPAS.1 PAS.3 PAS.NONCDS!  AA   7Ap (@jX>>XVm ;FODDZ 92084-1X757 REV.2340 <830903.1 850807.0008 P92084/&FCFRM.MAC::PCO> :LFODDZ  ''I.D2DD .DLD.ENTR FRMCH PAS.1 PAS.3 PAS.NONCDS'jjH99AJ<p:J(  R(@:p:AS@:@;($pGAp9!T898G(`:pH(8pG`Hp9`U@9pIA3I@9p98G(-LjM1M AJKp;( -0;@$<<XA~m ;FODZ92084-1X757 REV.2340 <830903.1 850807.0008P92084/&FCFRM.MAC::PCO< m/FODZ ""E.DST.ENTR FODDZ PAS.1 PAS.3 PAS.NONCDS"  AA   7Ap (@>>X=m ;FOIOA 92084-1X757 REV.2340 <830903.1 850807.0008 P92084/&FCFRM.MAC::PCO> E/FOIOA  >> N7 .ENTR .MBTFOD FRMSP FSBNS MLBNS NAM.. PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS>GG6''h86`96A 5-p) )A(" 6)57p'`'@(p, ,HA(&&)(/Gc0 A -.p((): @tԓ>>Xm ;FOCCC 92084-1X757 REV.2340 <830903.1 850807.0008 P92084/&FCFRM.MAC::PCO> 8FOCCC  ,,.ENTR FOIOA FRMST PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS,~O AA -A (::@E>>Xm ;FOSAD 92084-1X757 REV.2340 <830903.1 850807.0008 P92084/&FCFRM.MAC::PCO> 6 FOSAD  ""E}.ENTR FOD FRMCH PAS.1 PAS.3 PAS.NONCDS"1A  g A( @D>>Xm ;FOSDD 92084-1X757 REV.2340 <830903.1 850807.0008 P92084/&FCFRM.MAC::PCO> 9 FOSDD  ""E.ENTR FODDFRMCH PAS.1 PAS.3 PAS.NONCDS"1A  g A( @o/>>Xm ;FOOCT 92084-1X757 REV.2340 <830903.1 850807.0008 P92084/&FCFRM.MAC::PCO> 8FOOCT  ,,.ENTR CNUMO FRMST PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS,Ru A A ( @*>>Xm;FCMEM 92084-1X753 REV.2226 <820413.1 850807.0013 P92084/&FCMEM.MAC::PCO>@ƾ>>Xʍm;REMEM 92084-1X753 REV.2226 <820413.1 850807.0013 P92084/&FCMEM.MAC::PCO> /REMEM  PAS.1 PAS.3 PAS.NONCDS pf ( @5T>>X"m;GTMEM 92084-1X753 REV.2226 <820413.1 850807.0013 P92084/&FCMEM.MAC::PCO> @GTMEM  CROAK LIMEM PAS.1 PAS.3 PAS.NONCDSm`f(A !pf$$`(p8`(p8($@,>>Xm) ;FCMIS 92084-1X759 REV.2540 <850807.0 850807.0737 P92084/&FCMIS.MAC::PCO>@>>X/m) ;LCURF 92084-1X759 REV.2540 <850807.0 850807.0737 P92084/&FCMIS.MAC::PCO> :)LCURF  11pFOCCC FRMSP FSBNS LOFRM PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS1VVk))`"(( + ,J-`A(#`(%A.+,J-`A(%% $p")V~*(@(G>>X@m);EELIM 92084-1X759 REV.2540 <850807.0 850807.0737 P92084/&FCMIS.MAC::PCO> 3!EELIM  --/.DCO.DLD.DSTPAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDSWARN-JJc!!JJ (((#(J((J( `A( %(& 'p!J..ε"(?0unable to eliminate extents in one or more files.@2!P>>Xm);GTWOC 92084-1X759 REV.2540 <850807.0 850807.0737 P92084/&FCMIS.MAC::PCO> HGTWOC 0 PAS.1 PAS.3 PAS.NONCDSREIOSHIFT ((Ip`@ބp `p`( (  @<>>Xm);MATCH 92084-1X759 REV.2540 <850807.0 850807.0737 P92084/&FCMIS.MAC::PCO> +gMATCH  )).DCO.DLD.ENTR .LBT.MVWPAS.1 PAS.3 PAS.NONCDS)@@pPhy6@(!`pdpOhy6@OHHpN`NP~(hz6H@OHPN((L8O8d( `\(/`TP](/`](L`]PT(/(L``(6`UP`A(6(La (<(CAAVa%%@(C(L(L`c(J`XPc(J(LpP`Pg%&&Y%hAe`ehzAw`fhyx`}pP( YQ& j}- @f_<<Xm);WAIT92084-1X759 REV.2540 <850807.0 850807.0737P92084/&FCMIS.MAC::PCO< WAIT i.ENTR EXECPAS.1 PAS.3 PAS.NONCDS%y ` p   :A  p ( @Ә>>X;m);WUPBR 92084-1X759 REV.2540 <850807.0 850807.0737 P92084/&FCMIS.MAC::PCO> =UWUPBR  CC u? .ENTR CKBRK EXECFOSAD FRMST LOFRM LOMES PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDSWAITCKKApS YTQPO`Q.(` (`O/(pR`R(@`SA(< %Z`[ A\)T 0Za] \DA 9Ze^ \pSA?[`R(`SA(N MZ_IKH \UNNV88A T( 4LU is downcorrect problem and UP device, or use BR to break FCdevice is up, FC continuing N@x8>>X&m);BPERT 92084-1X759 REV.2540 <850807.0 850807.0737 P92084/&FCMIS.MAC::PCO> HBPERT  ''t.DIV.ENTR CROAK DSCPR PAS.1 PAS.3 PAS.NONCDS'$$mA`( H` %p`$ e A( % @e]>>X2m);DVTYP 92084-1X759 REV.2540 <850807.0 850807.0737 P92084/&FCMIS.MAC::PCO> U$DVTYP  ##.ENTR BADLU LDTYP PAS.1 PAS.3 PAS.NONCDS#GG[ A#!p `!P.( P/(P0((p"(p"(`,p"(` P1((p"(`"$G%A#`-p"(-,DI@Ț>>XXm);MAKES 92084-1X759 REV.2540 <850807.0 850807.0737 P92084/&FCMIS.MAC::PCO> -KMAKES  %%PA.DST.ENTR .MBT.MPYPAS.1 PAS.3 PAS.NONCDS%==hJ6`I6AO`I@P"PhJHP`J@QhIHQ`J@RhIHR`J@ThIHS`I@T(5`J@UhIHTpHA H(A`J@UhIHT@xH@= AW@H`J@VhIHUKnL AI( @ (j>>X)m);MAKED 92084-1X759 REV.2540 <850807.0 850807.0737 P92084/&FCMIS.MAC::PCO> -!MAKED  O.ENTR .MBTPAS.1 PAS.3 PAS.NONCDSDDh 6`6A%`@&"&h H&` @'hH'` @(hH(!Di"A(@\U{>>Xm);NOFIL 92084-1X759 REV.2540 <850807.0 850807.0737 P92084/&FCMIS.MAC::PCO> = NOFIL  ''ENOMS LOMES PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS'' A  H  (no files selected @(>>Xm);SNRML 92084-1X759 REV.2540 <850807.0 850807.0737 P92084/&FCMIS.MAC::PCO> @SNRML  PAS.1 PAS.3 PAS.NONCDS66'`TpH`T@pI`I@pK`T@@OpL`L@pJ6 ( @:Y>>X0m);TMOUT 92084-1X759 REV.2540 <850807.0 850807.0737 P92084/&FCMIS.MAC::PCO> H#TMOUT  ""^.ENTR EXECPAS.1 PAS.3 PAS.NONCDSRMPAR "55 ((`( `/P.p()"`+,p`#5$A"`-p(  6,? @L >>Xm5;FCOUT 92084-1X751 REV.2340 <830921.1 850807.0020 P92084/&FCOUT.MAC::PCO>@>>X1m6;MELEN 92084-1X751 REV.2340 <830921.1 850807.0020 P92084/&FCOUT.MAC::PCO> 0'MELEN  O.ENTR .LBTPAS.1 PAS.3 PAS.NONCDSNN'""`0p%`/p#h&6@#Hp"`"P-(`"P.((@#p$(`#p$( @#p#8%(p$`$'N e(A&( n- \| @f؅>>Xm6;LOMES 92084-1X751 REV.2340 <830921.1 850807.0020 P92084/&FCOUT.MAC::PCO> 9LOMES  MELEN PAS.1 PAS.3 PAS.NONCDSREIO##Ap`p # ( @~>>XGm7;LKLST 92084-1X751 REV.2340 <830921.1 850807.0020 P92084/&FCOUT.MAC::PCO> C2LKLST  44 ABREG CKBRK LOMES LURQPAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDSWAIT4[[[//p1`K(.`(.`(.45A0/`0p`(-`1() &596@7p1,8H(2[!!r3(waiting to lock list device !@j*>>Xm8;ULLST 92084-1X751 REV.2340 <830921.1 850807.0020 P92084/&FCOUT.MAC::PCO> D ULLST  3LURQPAS.1 PAS.3 PAS.NONCDSrR `(   pݨ   ( @]|u>>Xm8;LFERR 92084-1X751 REV.2340 <830921.1 850807.0020 P92084/&FCOUT.MAC::PCO> > LFERR  ,,.ENTR FMERR LOMES PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS,p AA  A (list file error:@T>>X3m9;RSLST 92084-1X751 REV.2340 <830921.1 850807.0020 P92084/&FCOUT.MAC::PCO> N,RSLST  ((.OPSY CLOSE PAS.1 PAS.3 PAS.NONCDSULLST XLUEX (  ZZ''(`K((`N("`Op*p)`)P1(`)P0(`)P2((`Pp+(A`Rp+!.*/D&L pK,ZN-(@>>XYm:;SELST 92084-1X751 REV.2340 <830921.1 850807.0020 P92084/&FCOUT.MAC::PCO> >SELST { KK.ENTR B$CE1 B$REX B$SE1 CREAT LDTYP LFERR LKLST OPENF PAS.1 PAS.3 PAS.NONCDSRSLST ULLST K$>>A ( AD   `@P((C`@&(`@h`@(('`@h`@p`@p`@p`@p< L`P^>>>(@(Bp(Ep`(np~ p `@P(S(`P (XAp [P(^(``p~`@p`@pAn L~`p K` K(yAyD B|} q A(PR@/Np>>X m;;INOUT 92084-1X751 REV.2340 <830921.1 850807.0020 P92084/&FCOUT.MAC::PCO> H INOUT  ILOGLU PAS.1 PAS.3 PAS.NONCDS A p pKp݀   ( @V>>X'm;;LIMES 92084-1X751 REV.2340 <830921.1 850807.0020 P92084/&FCOUT.MAC::PCO> 3$LIMES  11 .DIVLFERR LKLST LOMES MELEN PAS.1 PAS.3 PAS.NONCDSWRITF 1CCR""` K( A  &p"`"(p" L# "`#(A#(!H$C %( @,>>Xեm;LSKPL 92084-1X751 REV.2340 <830921.1 850807.0020 P92084/&FCOUT.MAC::PCO> H LSKPL  ""LIMES PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS" A     U (  @ߠ`>>XŠm;DBGME 92084-1X751 REV.2340 <830921.1 850807.0020 P92084/&FCOUT.MAC::PCO> 4DBGME  BLOMES PAS.1 PAS.3 PAS.NONCDSS`@( ( @A`g77X&5m!;ADDR92084-1X849 REV.2340 <830906.1912> P92084/&ADDR::PCO 7 fADDR .ENTR  A`@Z77X*m9;CKSM1 92084-1X855 REV.2340 <830906.1913>P92084/&CKSM1::PCO7 @CKSM1 .ENTR ))ȵAph 8( )@,KN77Xe,m;CKSUM 92084-1X857 REV.2340 <830906.1913>P92084/&CKSUM::PCO7 KCKSUM .ENTR WW-7,,ppp`@@+ @ph8X("H(8`@+p8(W@??Xm;CLDCB_P 92084-1X848 REV.2540 <850715.1 850807.0025 P92084/&CLDCB.MAC::PCO?@)>>Xm;CLDCB 92084-1X848 REV.2540 <850715.1 850807.0025 P92084/&CLDCB.MAC::PCO> 5CLDCB  .ENTR .MVWPAS.NONCDS2Ah`  ##A( #@qU77Xdom ;CLSEN 92084-1X853 REV.2340 <830906.1913>P92084/&CLSEN::PCO7 7CLSEN !!l.ENTR .P1 .P2 .P3 .P4 .R1 CLD.R !]2A@ppDpxH`@77XAm+;CMBUF 92084-1X851 REV.2340 <830906.1913>P92084/&CMBUF::PCO7 JCMBUF +].CMW.ENTR ""A`hA("@ 77XUm:;CROAK 92084-1X925 REV.2226 <820415.1247>P92084/&CROAK::PCO7 8CROAK иINTER   @ŅE77Xza m;FLUDR 92084-1X856 REV.2340 <830906.1913>P92084/&FLUDR::PCO7 6FLUDR .ENTR .P1 .P2 .R1 CLD.R 3 A` ppD`@??Xm ;IDNAM_P 92084-1X847 REV.2540 <850715.1 850807.0027 P92084/IDNAM.MAC::PCO ?@<>>X'm ;IDNAM 92084-1X847 REV.2540 <850715.1 850807.0027 P92084/IDNAM.MAC::PCO > ,IDNAM  .ENTR .LBT.MBTP.NAM PAS.NONCDS44!p( h6(p`(h6`#6"4A($ @^|77X m!;MVWDS 92084-1X852 REV.2340 <830906.1913>P92084/&MVWDS::PCO7 BMVWDS 4g.ENTR .MVW i A`hA@'77X?m8;RWND92084-1X854 REV.2340 <830906.1913> P92084/&RWIND::PCO7 !RWND !!8$SETP .ENTR F.DCB F.HDL RFLG$ RWND$ !$$meHp`Dhh$@e77XN,m;SHIFT 92084-1X850 REV.2340 <830906.1913>P92084/&SHFT::PCO 7 5SHIFT .ENTR VV,,@p+׈*p*088+(pH' H( )V@ uuu~~SABVER 6FABVNM 5. ADDRbBADCM >RBADLU @BDNMR <BDTLU :\BPERT sBRCER ='BREXC } CFRCH H5CFRSL L7TCFRST O[CKBRK  LCKSM1 I~~~eCKSUM ICLDCB >CLFRM C(CLIND @CLSEN `CMBUF jCROAK g#DBGME SDEFRM GDIBRK hDIFME %5\DVTYP t@$EELIM hVENBRK \lENCOF TI~~~ ENOMS n ERLEV WERROR ESACM  ,kEXERR ' FATIO )NFIERR "  .FIFME #O e.FLUDR IFMERR eFMPER UFOCCC ]yT4I~~~gFOD W<FODDUhFODDZ X]FODZZ^FOIOA [FOOCT afFOSAD _,FOSDD `IFRMCH InTFRMSL Mv[FRMSP K FRMST P*cFSBNS SGTMEM de4I~~~ GTWOC jU8IDNAM INBRK nINOUT DINTER N LCURF ffoLDDER .q<LDERR +ILFERR G\LIFRM Em`LIMES [NsLKERR 'LKLST "lq~((~~JLOFRM DI LOGNM 1,TcLOMES }LSKPL 4`MAKED xZMAKES v&MATCH l MELEN MEMER A7MLBNS Q8MVWDS MNOFIL z&ODUMP 2PRMER 9.a~~~REACM eYREMEM c_RSLST aRWNDASCFER  5 eSELST xNsaSHIFT TSNRML {WTFERR 7T TMOUT }ULCAR  ]ULLST ,ULWRN ^ WAITniR 9.!a~~~WARN WUPBR p lq_RWNDASCFER  5 )HSELST xAEV_SHIFT TSNRML {WTFERR 7T 16FTMOUT }ULCAR  ]ULLST ,ULWRN ^ HWAITniR 9.!a~h x[ [@pFHHxhHD (Qx8@h H(YHex@]p\=@H(`xk`^ ރ^x=`J@hkpx w@ @ZZ77$FST6::RTE_6:5:8:126 644 0 0 4000 5310707312 33140 $FST6::RTE_6:5:8:126 $~$FST6 +#+#+#RFST  99X(GETINUSECOUNT 92084-12088 REV.4010 860731 FST_6.FTN::SRC_920849,tGETINUSECOUNT  .XLAIXGET $DEMT EEfp '@&p  %pp `$@ @#p  "p`E"@yv666XWSETSHEMA92084-12088 REV.4010 860731 FST_6.FTN::SRC_920846 ?SETSHEMA  {i.ENTR IXPUT IXGET .XLA$DEMT $IDEX ~~9@@@p`p`phHp`px#0hHphpx5hP0(Cp`@~~~QbF99pJphpxTh*Hx[@pa`hpxj0ppψ@pwp`p~##t p`p`0p(A#v  @{|||~~PlGETINUSECOUNT SETSHEMAF~ 2001 124998-18126 &.NGL 2001 124998-18127 &.RCNG 2001 124998-18128 &.SQRT 2226 124998-18129 &.TAN 2%DVR12::RTE_6:5:7:60 644 0 0 3400 5310707314 32734 %DVR12::RTE_6:5:7:60 $<%DVR12 +#+#+#$RFST DVR12 _92084-15028 780103 REV.1806 @oC.12 I.12 <<`\Z#pYhD0(D PC(/PD(`LhCPF( PI(<;;`^PZ(-(P(@LZ(- (0M`EP  Р (8 @; `CO*:H ;;`]ƍ= `](`HV`[  (MhV (;PN(`(ƶX^(]`NXJ([XK(`p\;<<`[Z(p\(0M(5(rPB(lPC(mZpZ`X`W(̸(w< `Cu(` <<`^#sx(z(o0((``](M(ƶQ(и5 !O<;;`]XZp5(`@R(@ShM8HT (HZ`Z(@Z@; `Dg(( <<``PpZhH(hI(hGPYpY8ը8Y<;;`]F׶#0(P\(p\(`Z((`( @P]PY(-`D ; `CiXYxY <<`^JHZNp[LpZNp\Pp](hWZhXp <<<`\zA0Z0\P`ZPUpZ0Ap1@Ppp{@ppz@Mp#< `C&o1H80 <<`h# 40`]5ZXGXI`CXH5@ 01?@7=P<`Ca\*\\@_( p` P( KP( @PQ( 5( U` @_X 8;;h HWHWH_HS( X` @_h HWHWH]HS( X( N ` @_%FC0::RTE_6:5:122:128 644 0 0 75000 5310707316 34122 %FC0::RTE_6:5:122:128 $z$z%FC0 +#+#+#z<RFST 77X~';FC0H92084-15042 REV.2540 <850905.1049> P92084/&FC0H::PCO 7@E>>XXm,7;FCCMD 92084-1X749 REV.2226 <820414.1 850806.1938 P92084/&FCCMD.MAC::PCO>@X>>XϘBm,8;FDLIM 92084-1X749 REV.2226 <820414.1 850806.1938 P92084/&FCCMD.MAC::PCO> 45FDLIM  O.ENTR .LBTPAS.1 PAS.3 PAS.NONCDSnng004`A @((h:6 @H p1`p`Ap2p0`9@0P1(((-8082(`1P@('4(`?p0`@>p`035n6 A3(;{}, @@>>XȢ5m,9;PNBUF 92084-1X749 REV.2226 <820414.1 850806.1938 P92084/&FCCMD.MAC::PCO> I/PNBUF  ""Z.ENTR FDLIM NAMRPAS.1 PAS.3 PAS.NONCDS"^^++A`p,.+`@4p--,` "3('` $3('` &3('` (3('` *3 p/^g0A.(@->>Xڑ*m,9;PNNOL 92084-1X749 REV.2226 <820414.1 850806.1938 P92084/&FCCMD.MAC::PCO> BPNNOL  ''ERROR PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDSPNBUF '((kVA`( `P)A( ((## '(braces used where not permitted #@t4>>X-m,:;GTTLU 92084-1X749 REV.2226 <820414.1 850806.1938 P92084/&FCCMD.MAC::PCO> E$GTTLU 0 ]DVTYP PAS.1 PAS.3 PAS.NONCDSPPa""p#`( ` ,p"`p`"P*((`(((p#( `"( p#`#$Pd%`+p#( * @I>>Xrm,:;PSTLU 92084-1X749 REV.2226 <820414.1 850806.1938 P92084/&FCCMD.MAC::PCO> DPSTLU  ##BDTLU GTTLU PAS.1 PAS.3 PAS.NONCDSPNNOL #D(H ( @u5>>Xܜ5m,;;COTLU 92084-1X749 REV.2226 <820414.1 850806.1938 P92084/&FCCMD.MAC::PCO> @0COTLU  BDNMR CLIND PAS.1 PAS.3 PAS.NONCDSll#..p.` 3p/`/P2( (`(p.((&`/P3((&`(&`(&` P4((&"(&p.`.(-`p p0l 1( @\>>X4m-;IPTLU 92084-1X749 REV.2226 <820414.1 850806.1938 P92084/&FCCMD.MAC::PCO> AIPTLU  PAS.1 PAS.3 PAS.NONCDS3 p+p, ( @H7f>>Xۼm-;PTLUN 92084-1X749 REV.2226 <820414.1 850806.1938 P92084/&FCCMD.MAC::PCO> NuPTLUN  OO 2 .MVWBADLU BDTLU BRCER COTLU CROAK FDLIM GTTLU PAS.1 PAS.3 PAS.INLINEERROR PAS.NONCDSPNBUF PRMER O}}i<<` +(Apt s`  }P{((` (` ,Pz(P(({(D(j`sPz("P{(>P|(.P}@(.(@(& hx`yA w@p ,(C(7hx`y w(9p pt}oo<66Hp +(C(CHh~(m`sPz(dP{(QP|(NP}(d(fpt(iUsr`s(^`sP{(^`r@(_ ptp +(iH(ihH(mhH`t(Huo`v (  n@>>X[&m-;PTLNN 92084-1X749 REV.2226 <820414.1 850806.1938 P92084/&FCCMD.MAC::PCO> GPTLNN  ,,߱ERROR IPTLU PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDSPTLUN ,D`+(  H%%9(%namr list not allowed in this context %@:YD>>XώRm-;DTLUN 92084-1X749 REV.2226 <820414.1 850806.1938 P92084/&FCCMD.MAC::PCO> OBDTLUN  !!ԝ.ENTR .MBT.MVWPAS.1 PAS.3 PAS.NONCDS!~~ 55`(`5p`(hM6`N6A K` "P( `:p `9"Pp@` B Q0@Bp ` (%`;p `(*`pB~CAA`AhOAL( 65@>>Xm-;POPTS 92084-1X749 REV.2226 <820414.1 850806.1938 P92084/&FCCMD.MAC::PCO> H[POPTS 0 33J.LBTERROR PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDSPAS.SETINIT PNNOL 3Y??`pT`pW@@p`WA@(Phc6@WHpV`WpW`VP(((>`pYpU`b@UPV()(3Z^]U`T0ZpT(>8UA8Y(#=^d_``T55?P(G`TP(G(OAN^sa`(`TpX`X[5FF\00(}unrecognized option character incompatible optionsC!DEPVUISFBLOTKF b @i)>>XۋSm-;GOPTS 92084-1X749 REV.2226 <820414.1 850806.1938 P92084/&FCCMD.MAC::PCO> J6GOPTS  ,,Ĩ.ENTR ERROR PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDSPOPTS ,ppz//Hp3`3p0`20P0(A>A?@`1(,`2p/`0Pˊ(`/p/`0Pˊ(%`/p/`/*p3`003p-(.`0p-6p//7A44p25p1(#option not defined for this command /@k+>>Xa<m-;PFLIM 92084-1X749 REV.2226 <820414.1 850806.1938 P92084/&FCCMD.MAC::PCO> 6%PFLIM  00@Q.ENTR .MVWERROR PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDSPNNOL 0II&""J` ;p"`(#( `"P;(#(`"P:((A).*+Ah$`-,%I&&&A#( bad file1 or file2 param&@um>>X1m-;DO_GR 92084-1X749 REV.2226 <820414.1 850806.1938 P92084/&FCCMD.MAC::PCO> ;DO_GR  TPAS.1 PAS.3 PAS.NONCDSSTGRP  H ( @>N>>X0m-;DO_EG 92084-1X749 REV.2226 <820414.1 850806.1938 P92084/&FCCMD.MAC::PCO> 9DO_EG  CKGRP ENGRP PAS.1 PAS.3 PAS.NONCDS MD ( @ >>X-m-;DO_AG 92084-1X749 REV.2226 <820414.1 850806.1938 P92084/&FCCMD.MAC::PCO> 5DO_AG  ABGRP CKGRP PAS.1 PAS.3 PAS.NONCDS MD ( @~>>Xfm-;DO_CO 92084-1X749 REV.2226 <820414.1 850806.1938 P92084/&FCCMD.MAC::PCO> 7^DO_CO  TTJ.MVW CKMSC COPRE COPSO DTLUN ENCOP GOPTS IPTLU PAS.1 PAS.3 PAS.NONCDSPFLIM PNNOL PTLNN PTLUN STCOP TOHHDD `pSAhb`c` S`+(`pLD`pShb`cA`'da+LP/LM` epK`K(= <pJA HS-PMKJ tHH ^ 1_( T@I >>XWm-;DO_DL 92084-1X749 REV.2226 <820414.1 850806.1938 P92084/&FCCMD.MAC::PCO> 8MDO_DL  66 .MVWCKMSC GCARL GOPTS MAKES PAS.1 PAS.3 PAS.NONCDSPNNOL PTLNN 6~~::DAJ B`  V( ApATO` -&Up@` ()p .hQ`R P`Ap :`@p ;(>p .` p /hS`R P`Ap ;`@p <` -'Up =~:` -!Up >MN ( /B 0@`>>XGm- ;DO_CL 92084-1X749 REV.2226 <820414.1 850806.1938 P92084/&FCCMD.MAC::PCO> 7DO_CL  GOPTS PAS.1 PAS.3 PAS.NONCDSPSTLU 44D`( `p.(`p.`p/`-!p04(@>T>>X1m- ;DO_AL 92084-1X749 REV.2226 <820414.1 850806.1938 P92084/&FCCMD.MAC::PCO> 5DO_AL  PAS.1 PAS.3 PAS.NONCDS`p. ( @&uE5>>XKm- ;DO_LL 92084-1X749 REV.2226 <820414.1 850806.1938 P92084/&FCCMD.MAC::PCO> @DO_LL  ""o.MVWPAS.1 PAS.3 PAS.NONCDSPNNOL PRMER "##tJ` (`p.Ah`#( /@78>>XFm- ;DO_EC 92084-1X749 REV.2226 <820414.1 850806.1938 P92084/&FCCMD.MAC::PCO> 9DO_EC   PAS.1 PAS.3 PAS.NONCDSPNNOL PRMER --PJ`P( P( P( (p?( p?(- +l(OFON @~F>>Xݣcm- ;DO_TI 92084-1X749 REV.2226 <820414.1 850806.1938 P92084/&FCCMD.MAC::PCO> HKDO_TI  33 j.LBT.SBTFRMST LOFRM PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDSWARN3~~u5DDA NMNBOpI`A@(7`IpI`bA@I(%A #NUPQ(7hS6H@HhT6pJ@IJH`J` p(  >N]RDQ FNBO~DDQK))L( H  ޠBtitle truncated title: \ H)@l",>>XIm- ;DO_CF 92084-1X749 REV.2226 <820414.1 850806.1938 P92084/&FCCMD.MAC::PCO> 7DO_CF  ""o.MVWPAS.1 PAS.3 PAS.NONCDSPNNOL PRMER "..WHh``i Ppp`iP((. ( f@۹>>XQm- ;DO_LH 92084-1X749 REV.2226 <820414.1 850806.1938 P92084/&FCCMD.MAC::PCO> @DO_LH  ##GOPTS PAS.1 PAS.3 PAS.NONCDSPRMER PSTLU #..qHJ`(D `p.`p/`-!p0.(@՞>>XRm-;DO_LC 92084-1X749 REV.2226 <820414.1 850806.1938 P92084/&FCCMD.MAC::PCO> @DO_LC  ##GOPTS PAS.1 PAS.3 PAS.NONCDSPRMER PSTLU #..qHJ`(D `p.`p/`-!p0.(@uה>>XOm-;DO_DE 92084-1X749 REV.2226 <820414.1 850806.1938 P92084/&FCCMD.MAC::PCO> 8DO_DE  ''H.MVWGCARL PAS.1 PAS.3 PAS.NONCDSPOPTS PTLNN '44D`pAh``pAh`p`p*41(  @ >>XXm-;DO_TR 92084-1X749 REV.2226 <820414.1 850806.1938 P92084/&FCCMD.MAC::PCO> HDO_TR  ((PAS.1 PAS.3 PAS.NONCDSPNNOL TRATO TRBAK TRTOL (++EIJ` ((`P( ( (+ (- @dƃ>>X<m-;DO_EX 92084-1X749 REV.2226 <820414.1 850806.1938 P92084/&FCCMD.MAC::PCO> 9DO_EX  B$REX PAS.1 PAS.3 PAS.NONCDS Apg ( @ >>X8m-;DO_AB 92084-1X749 REV.2226 <820414.1 850806.1938 P92084/&FCCMD.MAC::PCO> 5DO_AB  B$REX PAS.1 PAS.3 PAS.NONCDS~ Apg ( @ >>Xٮum-;DO_HE 92084-1X749 REV.2226 <820414.1 850806.1938 P92084/&FCCMD.MAC::PCO> ldDO_HE  >> hz .LBTABREG CLFRM EXECFRMCH FRMST LOFRM PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS>55yA D (( f#g hD f i hD fi hD!5ss!"@@(HELP scheduling error: \ ` (a :fnj hJ` A@ (Qhm6H@ H pb` p Pb(;` Apc_krlllll cHc!dse(0 RU,HELP,HELP @E>>XKm-;DO_SC 92084-1X749 REV.2226 <820414.1 850806.1938 P92084/&FCCMD.MAC::PCO> GDO_SC  KPAS.1 PAS.3 PAS.NONCDSPNNOL J`pA ( @تj<<Xsm-;DO_?92084-1X749 REV.2226 <820414.1 850806.1938P92084/&FCCMD.MAC::PCO< 0DO_? DD T .LBTCLOSE FMERR LIMES LOMES OPENF PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDSPNNOL READF DA   D GG(error on help file "FCJHLP:`  p+ `(/ 6A = `(A`(E(h6 Pp`(U`(S((~`__ W,,(~pph6H@H ph6`H@H p`P(o(p(~`P(up`p`P(|(}(~(\(/A _ q( B  "FCHLP ~ @JiC>>X(m-;DO_!! 92084-1X749 REV.2226 <820414.1 850806.1938 P92084/&FCCMD.MAC::PCO> DO_!!  BADCM PAS.1 PAS.3 PAS.NONCDSPNNOL ((}J`P( P((  p(p@(( %e(DBUN @ݪ>>Xa!m-;INCMD 92084-1X749 REV.2226 <820414.1 850806.1938 P92084/&FCCMD.MAC::PCO> @INCMD  !!.MVWPAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS!44Ah`h ``p* ApABpp4(  H@f&>>Xm-;DOCP1 92084-1X749 REV.2226 <820414.1 850806.1938 P92084/&FCCMD.MAC::PCO> DyDOCP1  ~~ .LBTBADCM DO_!! DO_?DO_AB DO_AG DO_AL DO_CF DO_CL DO_CO DO_DE DO_DL DO_EC DO_EG DO_EX DO_GR DO_HE DO_LC DO_LH DO_LL DO_SC DO_TI DO_TR GTCMD PAS.1 ~PAS.3 PAS.NONCDSPNNOL SHIFT C266A` ~(` ~DP~({`AP(|`P(hP(fP(`P(ZP(NP(jP(DP(TP(FP(JP(XP(^P(VP:,6??(bP(RP(PP(HP(dP(LPH(\(r(xHH(x(xHH(x (xHH (x (xHH (x (xHH(x(xHH(x(xHH(x(xHH(x(xHH(x(x` P(n(pHH(q(x@h}6uHP(xy,,\z (P*!!? ABAGALCFCLCODEDLECEGEXGRHELCLHLLSCTITR,@=>>X%m4;FCCOH 92084-1X758 REV.2226 <820413.1 850806.1945 P92084/&FCCOH.MAC::PCO>@e%>>Xm4;PRPCF 92084-1X758 REV.2226 <820413.1 850806.1945 P92084/&FCCOH.MAC::PCO> :PRPCF l :: .MBTACINF FRMST FTIME LOFRM PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDSSTPCM :88 A@( `P( `쀊(p`pA@p`0p`0p`*p`(p`'p`"p`& (9p~~@8@@(C`% (Ap(C`p`P(G({Jh6A`6 TA [A cJ`(qAp(x x~@@ƀx`p(`P(( p`(`!ppp@))|(H Bwriting tape at: \ )@Hg>>Xi.m4;STGRP 92084-1X758 REV.2226 <820413.1 850806.1945 P92084/&FCCOH.MAC::PCO> KSTGRP  ,,ÕERROR GCARL LOMES PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS,00?`(  H(A&@p0##n(already in groupbeginning group #@@>>XJm4;CKGRP 92084-1X758 REV.2226 <820413.1 850806.1945 P92084/&FCCOH.MAC::PCO> B CKGRP  ""ERROR PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS" `(  H  ( not in group@t84>>XHm4;INCOH 92084-1X758 REV.2226 <820413.1 850806.1945 P92084/&FCCOH.MAC::PCO> BINCOH  PAS.1 PAS.3 PAS.NONCDS224 pp pp pp pp p2 ( @"[A>>XKm4;ENGRP 92084-1X758 REV.2226 <820413.1 850806.1945 P92084/&FCCOH.MAC::PCO> EENGRP  --5B$CE1 B$REX B$SE1 INCOH PAS.1 PAS.3 PAS.NONCDSPRPCF -$$#A( AD `(HD($ ( @lM >>XDm4;ABGRP 92084-1X758 REV.2226 <820413.1 850806.1945 P92084/&FCCOH.MAC::PCO> 9 ABGRP  ''INCOH LOMES PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS'C `(  D  ( group aborted @#OB>>XT%m4;GRPER 92084-1X758 REV.2226 <820413.1 850806.1945 P92084/&FCCOH.MAC::PCO> < GRPER  ""ERROR PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS" A    **R (-source or destination incompatible with group *@U >>XOm4;DTTLU 92084-1X758 REV.2226 <820413.1 850806.1945 P92084/&FCCOH.MAC::PCO> FDTTLU  .ENTR DVTYP PAS.1 PAS.3 PAS.NONCDSdž  (Ap (   p ` A `p (  @>>XDm4 ;STCOP 92084-1X758 REV.2226 <820413.1 850806.1945 P92084/&FCCOH.MAC::PCO> HSTCOP  CGCARL PAS.1 PAS.3 PAS.NONCDS `ppH ( @I>>X޳wm4 ;COPSO 92084-1X758 REV.2226 <820413.1 850806.1945 P92084/&FCCOH.MAC::PCO> HlCOPSO  DD . .ENTR .LBT.MPYCLIND DTTLU FMERR GRPER LUTRU MAKES PAS.1 PAS.3 PAS.NONCDSWCLST D==` ( kp  p (kP (`kpjj ` (2A p ` (2` A(% %Jp`t A@rpj-j(2 2qpg@hs6 (<pg(N`vbb̽=**pjphhs6@hHH Pu(I(Kpg8h8j(@` P (R(U`g(W p ` (]`g(_ p ` p f  lb~\m A k(  -@Y>>XAm4 ;UPDSP 92084-1X758 REV.2226 <820413.1 850806.1945 P92084/&FCCOH.MAC::PCO> J2UPDSP  ].ENTR .MPYPAS.1 PAS.3 PAS.NONCDS\\-J,,`?0@8@>.=p-1$;(p,(`p//N@0,N/p.(*`,P-p.`.2\*3A0`>Xכ^m4 ;COPRE 92084-1X758 REV.2226 <820413.1 850806.1945 P92084/&FCCOH.MAC::PCO> `COPRE 7 mmV.CBT.ENTR .LBT.MPY.MVW CLIND DTTLU ERROR FMERR GRPER LUTRU MAKED NAM.. PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDSRCLST UPDSP WARN WCLST m A   2$ 99(bad msc parameter p`(=פpp`(+`(( p(*p(9`(1`[p(98J `Yp(MרJP(A`Y"rCBBAP(ML  `P[(Q(q`(a`#ZA(a``(q`-ZA(qp4 `p x֨h6(`(MU@@D (Ak `(h6`6(((xJ `(A p`(`(`(`(`( (`\w==J@pÁ( (`(A Ah`h`pp`@P(A `P(`(`((u6==( `hAH( (Axph`A `+Z(;`()(J `(;`(3`P(3(;:J `Pˀ(b~~\?<<`(JIH `\J@hA`(W`P]p`(b`(b `(`P(`(tsD xp`~qq4D{55(`(`(p`(J `(`0A(8  p ppA 8(8(q1XXA(31<$@ +:68 ;Vuno tape-to-tape copyoptions inconsistent with group O option has no effect on RTE-IVB tape-to-disc copy D op6``tion not allowed on RTE-IVB tape-to-disc copy renaming multiple files to same name, or cartridge not foundbad destination nameBOOTEXfile name BOOTEX reserved for systemon disc-to-tape copy, de|``st cartridge may not be specified as -LUoption not applicable P option requires explicit source cartridge P option not allowed if source and dest are same cartridgeC and ! options require expl{``icit destination cartridgeL and O options require explicit source cartridge L and O options must be consistent for a given cartridgedest secu code not allowed w/o source secu code or good msc Vx~@z>>Xԡem4;ENCOP 92084-1X758 REV.2226 <820413.1 850806.1945 P92084/&FCCOH.MAC::PCO> B`ENCOP  &&H.DLD.LBTENGRP PAS.1 PAS.3 PAS.NONCDSRCLST &v==`hAH(  (Sx_p^A^@hb6()`()`() ()`()`()`(+p` p@hc6p]`] (=p(@PP;= `p`](F`(Hp`+d(O p8^(Q8_( `p`p`H(\`Pa(@/>>X?m8;FCTRA 92084-1X750 REV.2226 <820413.1 850806.1952 P92084/&FCTRA.MAC::PCO>@?>>XU m8;INTRA 92084-1X750 REV.2226 <820413.1 850806.1952 P92084/&FCTRA.MAC::PCO> EINTRA  P.NAM PAS.1 PAS.3 PAS.NONCDS pJpqAr  ( @I>>Xu"m8;CTSTS 92084-1X750 REV.2226 <820413.1 850806.1952 P92084/&FCTRA.MAC::PCO> MCTSTS  &&\.MPYCLDCB MVWDS PAS.1 PAS.3 PAS.NONCDSPOST&@@/`J(`!J@p`!J@@ hI@ (d@]|Y>>Xbm8;CTSFS 92084-1X750 REV.2226 <820413.1 850806.1952 P92084/&FCTRA.MAC::PCO> ?CTSFS  .MPYMVWDS PAS.1 PAS.3 PAS.NONCDS55`J(`JJ@pA J`J@@pI5(d@Kj>>X]m8;TRATO 92084-1X750 REV.2226 <820413.1 850806.1952 P92084/&FCTRA.MAC::PCO> LCTRATO  MMH .ENTR .MVWB$REX CTSFS CTSTS ERLEV FMERR LOCFLOMES OPENF PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDSMaa:-44` JP\((AA L MSN  Op gAD 78P<=`7D("A"7+ 766564`4 P p I` Jp JCa**eDA B`BhRA Q(, 8TR stack overflow *@ E>>X`m8;TRTOL 92084-1X750 REV.2226 <820413.1 850806.1952 P92084/&FCTRA.MAC::PCO> FTRTOL  TPAS.1 PAS.3 PAS.NONCDSTRATO :A`p ( @y>>X` m8;CTRTL 92084-1X750 REV.2226 <820413.1 850806.1952 P92084/&FCTRA.MAC::PCO> MCTRTL  OPAS.1 PAS.3 PAS.NONCDSTRTOL nV`J(`IH(  ( @^>>XN m8;TRBAK 92084-1X750 REV.2226 <820413.1 850806.1952 P92084/&FCTRA.MAC::PCO> 8 TRBAK  CLOSE CTSFS PAS.1 PAS.3 PAS.NONCDSn `J(  @JpJ   ( @dO>>XWm8;CLETR 92084-1X750 REV.2226 <820413.1 850806.1952 P92084/&FCTRA.MAC::PCO> ECLETR  APAS.1 PAS.3 PAS.NONCDSTRBAK `J(( ( @S>>XIm8 ;GTCMD 92084-1X750 REV.2226 <820413.1 850806.1952 P92084/&FCTRA.MAC::PCO> IGTCMD 2 yy=.ENTR .SBTB$REX CKBRK ENOMS FMPER FRMST IFBRK LIMES LOFRM LOMES NAMRPAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDSPAS.PARAMETERSREADF RTPLK TMOUT TRBAK TRTOL y~~FGGp`J(?`q( Apg AҀ pqAˀ̀A"̀͆ĀA(<1A9H(>p(`IA(SIr~GIID Q١D  AZ`IA(n `(k AjAm(o `(yܡDD}`(`IH((` hWW^++AH( (xʈph6@H`8(8(AԀ`I(J`?(@p`(W<<}))A(P2( Use ? for help. : _ (time out)command file error: P<@nE>>X{m9 ;FC001 92084-1X645 REV.2340 <830906.1 850806.1956 P92084/&FC001.MAC::PCO>  PAS.SEGMENTRTN  @jxEhDXEFpC xDh`g` e`ChA  a"_ f(I $R%FC1::RTE_6:5:11:128 644 0 0 5400 5310707317 32561 %FC1::RTE_6:5:11:128 $  %FC1 +#+#+# SFST 77X'~'9;FC1H92084-15043 REV.2540 <850905.1055> P92084/&FC1H::PCO 7@g'>>X=m,;FCDDH 92084-1X763 REV.2226 <820413.1 850806.1958 P92084/&FCDDH.MAC::PCO>@z}=>>X m-;DDCFF 92084-1X763 REV.2226 <820413.1 850806.1958 P92084/&FCDDH.MAC::PCO> 6DDCFF L ||e.DCO.DDI.DLD.LBT.MBT.MVWB$CE1 B$REX B$SE1 CKBRK CLNUM DFECU EELIM ENDFI FIFME GCHKD GINFO LCURF OPSFI PAS.1 PAS.3 PAS.NONCDS PODAT PODEC SGCS1 |  STDFI WRFPA ABB 8(pJ`Jp`Jp(.(`3(`gP(.A#`3(, (,+(&. ( p"h6A`6phĄ`@h6(MhG==6`6`s(R`tp`J(V`D(Z xDH `P(f(s Al`PJ(p(q(`JpAh` (((AJ ([[P,,((PA((`P(A`@pAJ (a(a`3(J `-P(( (.p[##f8( p#@bၡ>>Xrm/;D2DCF 92084-1X763 REV.2226 <820413.1 850806.1958 P92084/&FCDDH.MAC::PCO> gfD2DCF MM.ENTR .LBT.MPYB$CE1 B$REX B$SE1 CLDDE DDCFF INDDE PAS.1 PAS.3 PAS.NONCDS PFFD PODEC SDCAR M~~88@hL6pd` v( ` -pe(` vpe`qAe@K@p.opcAec` ((p `  mp ` (( `eP -(,(>` d(>` s m (>` (;~$$8 `np 9(= p 9(@p 9` 9pD`DE$55iaFAE`opD(  p AP(WADTW ^iiEjAH`f5g8f(MBm@B>>XDm;FC002 92084-1X646 REV.2340 <830906.1 850806.2003 P92084/&FC002.MAC::PCO>  PAS.SEGMENTRTN  @3Q(( B 0CXA  0CX B RRL  @0MB F 0DST  0XM A XMB  0MB I pAND  RS A - MM0DSX  RR%FC2::RTE_6:5:32:128 644 0 0 20000 5310707321 33256 %FC2::RTE_6:5:32:128 $  %FC2 +#+#+# YS"FST 77X ~(;FC2H92084-15044 REV.2540 <850905.1051> P92084/&FC2H::PCO 7@I >>XWm 2;FCDTH 92084-1X779 REV.2226 <820413.1 850806.2004 P92084/&FCDTH.MAC::PCO>@W>>Xm 3;MKDCH 92084-1X779 REV.2226 <820413.1 850806.2004 P92084/&FCDTH.MAC::PCO> 3MKDCH v0 JJ3 .DDI.DLD.DST .LBT.MBT.MVW CROAK EELIM GINFO MKCHH PAS.1 PAS.3 PAS.NONCDSTCCRN TCLIN J~~88A - up  p $p ` Tp H` H@p I` Ipxp{@pz(kh`h6@ (*h6`6` s(/` tp ` D(3   x ~as8??h6`6A ` p` p` p ` p   `{p{`A@{H(_ hx``x@px`z@pz(`A@zpyt{y ``yp|`| w L (    p}  & @H>>Xm 4;DTCFF 92084-1X779 REV.2226 <820413.1 850806.2004 P92084/&FCDTH.MAC::PCO> @DTCFF Z gg.DCO.DIV.DLD.ENTR .LBT.MBT.MPY.MVWB$CE1 B$REX B$SE1 CKBRK FIFME GCHKD GINFO LCURF MKCHH PAS.1 PAS.3 PAS.NONCDSWCTAP gBB p`JpA`Jp(`gP( ( p"h6A`6ph`@h6(0h6`6`(4 H `P(9(h >`PJ(B(C3-B@@ (`@J p`p`@@p`@LpI`I@pH a dp`Jph`A (tA(t(J ({((P((%%M7`@p (4 (4(pA%--Ap(  p -@>>Xtm 6;DUMMY 92084-1X779 REV.2226 <820413.1 850806.2004 P92084/&FCDTH.MAC::PCO> GDUMMY G.ENTR PAS.1 PAS.3 PAS.NONCDSj]p`qA` p(   @k⊢>>X*m 6;EOVTE 92084-1X779 REV.2226 <820413.1 850806.2004 P92084/&FCDTH.MAC::PCO> H EOVTE  ""ERROR PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS" A    00 (8volume not big enough for header/comment/directory files0@>>X{m 7;LOGTN 92084-1X779 REV.2226 <820413.1 850806.2004 P92084/&FCDTH.MAC::PCO> [OLOGTN  WWD.DST .ENTR .FAD .FIXD CTDBL FOSAD FOSDD FRMST LOFRM MAGFT PAS.1 PAS.3 PAS.BLANKFILL PAS.INLINEERROR PAS.NONCDSW A  Q xL L mmj>>A  p (SYT UJ` Px(!Py(8(G A$V+S`W U /S6SiW UHD(JM>MAESrX U(JhzHOm>>AP++(@ tape needed: \ feet if 800 BPI, feet if 1600 BPI CTD blocks >@#>>Xm 9;DETVB 92084-1X779 REV.2226 <820413.1 850806.2004 P92084/&FCDTH.MAC::PCO> @cDETVB  JJ X .DAD .DCO .DDE.DLD.DSTLOMES PAS.1 PAS.3 PAS.BLANKFILL PAS.INLINEERROR PAS.NONCDSSGCS2 SGCS3 Jt>>`P|(P}(P~(;(RA ejfg Jp`J J(U "eqhDg (* ()p`(1J(2eJJmJ(U BeQQ>%%wig@phb  ` (UJh `J(]J(bJ cQ++d( EOV on SUBDIR EOV on DATA EOV on EOFS+@a[>>Xvm 9;SVSHI 92084-1X779 REV.2226 <820413.1 850806.2004 P92084/&FCDTH.MAC::PCO> CSVSHI   .DLD.DSTPAS.1 PAS.3 PAS.NONCDS//J`pJJJ`p֪`pר/ ( @!>>X~4m :;D2TP1 92084-1X779 REV.2226 <820413.1 850806.2004 P92084/&FCDTH.MAC::PCO> F/D2TP1  WW.DAD.DST BEGVO CLTAP DTCFF DUMMY LOGTN MKDCH PAS.1 PAS.3 PAS.NONCDSPFFD RSTDS SGCS1 WCTAP WCTDS WEOFT W99HAp. .`(A . A1`ۈJP3(hb 9%%FD8(  A(211`D(- /% 0( @)Hd>>Xm ;;D2TP2 92084-1X779 REV.2226 <820413.1 850806.2004 P92084/&FCDTH.MAC::PCO> xD2TP2  yy%.DCO.DLD.DST B$CE1 B$REX B$SE1 BEGVO DETVB DTCFF DUMMY FINVO GTVOL MKDCH PAS.1 PAS.3 PAS.NONCDSPFFD RWTAP SGCS1 SVSHI WCTAP WEOFN WEOFT WNVOL y Dp==A( A(9 `gP((`( DD("("(M`p ,J}J`p`P(7(8(M(p~p @~p@zC E`p`P(KA MNVVYkO..A8N( SA(Z WD  Zp c}J  pq@NpD |V(Q@%bD">>XaPm ;D2TP3 92084-1X779 REV.2226 <820413.1 850806.2004 P92084/&FCDTH.MAC::PCO> ;BD2TP3  XX B$CE1 B$REX B$SE1 CLNUM CLSCF DIBRK DUMMY ENBRK GINFO LOMES OPSFI PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS PFFDX)). @p(`3( A `AH(()RR*..A8(DHEDF  (&A# & `OA@pA`AA Np@ ;GDD@ ?BRC ( cleaning up @%w>>XUPm ;D2TCF 92084-1X779 REV.2226 <820413.1 850806.2004 P92084/&FCDTH.MAC::PCO> 6D2TCF \\Y_.DLD.DST B$CE1 B$REX B$SE1 D2TP1 D2TP2 D2TP3 EOVTE INDTC LOMES PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS RCLSF STWMM \\\V66D  ( `gPO( ( DA J A 9:>;D<JJA ':.:H=D< DD  56\))~786( scanning directoriescopying files )@'>>XPm +;FC003 92084-1X647 REV.2340 <830906.1 850806.2010 P92084/&FC003.MAC::PCO>  PAS.SEGMENTRTN  @>\# hX(zhh x~~w<<xP(P(P(P(HhH` hpHH%FC3::RTE_6:5:46:128 644 0 0 27000 5310707323 33543 %FC3::RTE_6:5:46:128 $..%FC3 +#+#+#.{SDFST 77X(~(:;FC3H92084-15045 REV.2540 <850905.1051> P92084/&FC3H::PCO 7@h(>>Xm;FCTDH 92084-1X835 REV.2340 <830903.1 850806.2011 P92084/&FCTDH.MAC::PCO>@Z>>XOm;ENDVO 92084-1X835 REV.2340 <830903.1 850806.2011 P92084/&FCTDH.MAC::PCO> IENDVO  %%k.DDE.DLD.DSTB$REX PAS.1 PAS.3 PAS.NONCDS%22vJ((` ( J  (   p `pg2 ( @>>X3 m;ENDDF 92084-1X835 REV.2340 <830903.1 850806.2011 P92084/&FCTDH.MAC::PCO> 7 ENDDF  %%k.DDE.DLD.DSTB$REX PAS.1 PAS.3 PAS.NONCDS% JD h ` pg    ( @9+W>>Xm;GSVOL 92084-1X835 REV.2340 <830903.1 850806.2011 P92084/&FCTDH.MAC::PCO> HGSVOL B vvG.DCO.DDE.DIN.DLD.DST.ENTR .MVWB$CE1 B$REX B$SE1 CMBUF GTVOL LOMES PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS RDFAD RHEAD RNVOL RWTAP SKDIR SKPCF v??`(`(  J (  (JD  ` pA(1`gP( ($`((AA&(`(0J  @p`A p = p~~H?<<`(HJ  A(1 L`(yAh` `(pJJ  _JJ  a` (gJ _ _` (oJ a a(x  _ A a(~~||*}{==  (D(1  ((h   ((D(1p `J(  rJ a` 00 dp( Ap |::u##Ap(A    volume does not match otherswrong volume:@ߪj>>XF m;PPOST 92084-1X835 REV.2340 <830903.1 850806.2011 P92084/&FCTDH.MAC::PCO> H PPOST  CROAK PAS.1 PAS.3 PAS.NONCDSPODAT ݩ `A(` DP (   ( @B>>X? m;NEWVO 92084-1X835 REV.2340 <830903.1 850806.2011 P92084/&FCTDH.MAC::PCO> @ NEWVO  ((œCROAK GSVOL PAS.1 PAS.3 PAS.NONCDSPPOST RWTAP ( `(DA     ( @q>>X m ;GSIFN 92084-1X835 REV.2340 <830903.1 850806.2011 P92084/&FCTDH.MAC::PCO> GSIFN 0 ww .DCO.DDE.DIN.DLD.DSTB$CE1 B$REX B$SE1 CKBRK ENDVO FOSDD FRMST GIFSF LOFRM NEWVO PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDSPPOST RCFTB TFERR USFCH wQQ//JA ȈA(.(. 3ABD AA/!/(EDJ AȨ1Q~~r2GG(files lost, reference numbers thru , names not availaJble  AJ J pA \(e`gP(ece`J( J a(o(oJ(  J (}(}J@ ~(y99 f((}(JD J ( J h(((`p j (pƄ( J (` p` (D1 ` P((JJ  hH(( (`(//(` P(((eJ1 D `ƈp`Ǩ/m `p(P  @R>>Xm";FINDM 92084-1X835 REV.2340 <830903.1 850806.2011 P92084/&FCTDH.MAC::PCO> vFINDM q0 >> Xt .DCO .MVWCMBUF FOCCC FRMST LOFRM MATCH PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS>AA"" Ap c $A  A# +Dp҈(ͨ"A~~i#FF(source file \ selected by commands with conflicting parameters pp ^`bp`ШP~(h`A  h   ([([(Ǡ`(fh   (f(j ~~~)i66(`(w`P' (w`&P(w(`@ `( W(`- (`, (`  ("(h`A  `-~ss00p`,㪠p`p p`$(pϊ(`#(`pπ(p` ^(`p ^(`(NJ`P ^("`@p(J`p`Ҩs!!Q `p(D 1 W!  @-Lu>>XM)m#;GETDC 92084-1X835 REV.2340 <830903.1 850806.2011 P92084/&FCTDH.MAC::PCO> . GETDC  77 rENDDF ENDVO PAS.1 PAS.3 PAS.INLINEERROR PAS.NONCDSRCFTB TFERR UCFTA 7HHy  J` P'(P((P#( P$(P%(("(D((HH((Jh& ` P%(( H!(@Rp>>X4 m$;SKPDC 92084-1X835 REV.2340 <830903.1 850806.2011 P92084/&FCTDH.MAC::PCO> 4SKPDC  PAS.1 PAS.3 PAS.NONCDSRCFTA UCFTA 3J` P(H ( @ ,@>>Xd@m%;FEXBL 92084-1X835 REV.2340 <830903.1 850806.2011 P92084/&FCTDH.MAC::PCO> -3FEXBL  @@ .DDI.DLD .DMP .DSB.DST .ENTR FOSAD FRMST PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS@MM--AJ2x-h-  02 0.`-A(! 7;8A9!- (7>:9D,/3M 4 A 2( xtnt blk@2nQ.>>XƔVm&;BMISS 92084-1X835 REV.2340 <830903.1 850806.2011 P92084/&FCTDH.MAC::PCO> FBBMISS  YYu .DCO.DDE.DLD.DST.ENTR .MBT CLFRM FEXBL FIERR FRMCH FRMST LOFRM PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDSULWRN Yoo)??J` (0AF  (AJA (((GMHH I(0D  A'GSJ IADA?0?hK6`L6AI ` (=(>Bo$$UQCAA(:   c entire file thru $@^#|>>XWm';NDLUT 92084-1X835 REV.2340 <830903.1 850806.2011 P92084/&FCTDH.MAC::PCO> ?NDLUT  44 .DCO.DLD.ENTR BMISS LCURF PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS4%%XJA D(( A%J A( data lost @{Ú>>X\#m(;PDLUT 92084-1X835 REV.2340 <830903.1 850806.2011 P92084/&FCTDH.MAC::PCO> ?PDLUT  44 .DCO.DLD.ENTR BMISS LCURF PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS4%%XJA D(( A%A(possible data loss@#BW>>Xd+m(;DDLUT 92084-1X835 REV.2340 <830903.1 850806.2011 P92084/&FCTDH.MAC::PCO> ? DDLUT  ,,.ENTR BMISS LCURF PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS, DA  --RA (.data lost due to disc error when tape was made-@lR>>Xj;m);BADMI 92084-1X835 REV.2340 <830903.1 850806.2011 P92084/&FCTDH.MAC::PCO> 4#BADMI  ;; U .ENTR FOSAD FOSDD FRMST LOFRM PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDSTFERR ;==!!AA' '*(A) "`"@8p!A!`"A@9p!!`"@:p!A!#=%%$A "(bad microdirectory entry is:%@/No>>Xm*;T2DCF 92084-1X835 REV.2340 <830903.1 850806.2011 P92084/&FCTDH.MAC::PCO> T2DCF k ".DAD#.DCO$.DDI%.DIN.DIV.DLD.DST&.LBT'.MBT.MPY(.MVWB$CE1 B$REX B$SE1 BADMI CKBRK CLDDE DDLUT DFECU EELIM ENDFI ENDVO FINDM GETDC GSIFN GSVOL INDDE FF FLCURF NDLUT NEWVO !PAS.1 PAS.3 PAS.NONCDSPDLUT PPOST RWTAP SDCAR SKPDC STDFI WRFPA F}}%zDDA( AD p! c J! f J! h JJ! ! _JJ! `!Jp`!Jp%(=)(,A.`!gPJ(2(8! D%! (=AD:= (}@ (|}D99p!"! #(L(L(O`! p!(Q`p!p!h`(`!,ph6@&(fh6`6'`! Z(k`! [p!`! \(p`! ]p`!(up! ^y! ^`!(}@}::`!(JJ! $!x!`!(`! (p! D! (`!gP(`!gP(! #! (((A !(y`! (D `P(`! ^DDDP( `!Jp`! p`@!Jp`! @h@ Aph`(hA "AAJ#! ((JD! %#(((`(`A@(`P@@(`@p`A@(((#! (("("AJ#! A((J#!("("A`@p(#! (,(, +!(d#! (3(a(aAJ#! D(:(:;CC#! (G(G CAJ! P(K(OAN(]`(]`! A(XX]AJ! `@p#! (k(k(yAJ#! (r((#!(yA(({H(=Mn~p!AH((8( !! ! W(@f5>>X\m;FC004 92084-1X648 REV.2340 <830906.1 850806.2019 P92084/&FC004.MAC::PCO>  PAS.SEGMENTRTN  @JhXDEF92059-1X018 REV.2540 850801 Gens code for a DEF or =L to EXT.P92059/&MACR3::PCOD ~ XDEF  Y.DAD.DLD.DST?INDPCPXDBL   :: %FC4::RTE_6:5:8:128 644 0 0 4000 5310707324 33241 %FC4::RTE_6:5:8:128 $%FC4 +#+#+#StFST 66XP FC4H92084-15046 REV.5000 <870609.1032> &FC4H::SRC_920846@]>>XjP FCINC 92084-1X842 REV.5000 <860521.1 870609.1031 &FCINC.MAC::SRC_92084 >@L(j>>XEYP DEOPS 92084-1X842 REV.5000 <860521.1 870609.1031 &FCINC.MAC::SRC_92084 > :NDEOPS  P.OPSY PAS.1 PAS.3 PAS.NONCDS{99HpM`MPV( `MPW( `MPTpJ`UA@M(`MA@S(`J( pL`MPXpK`Lp`Jp`L Pp`J Pp`Jp`L Pp`Kp`Kp//9`J(? p(Ap`(G`Qp(I`RpN/O (x@q1>>XP INMIS 92084-1X842 REV.5000 <860521.1 870609.1031 &FCINC.MAC::SRC_92084 > <INMIS  @@ HADDR CROAK DEOPS DSCST GTKEY INCOL INTAP INTDS PAS.1 PAS.3 PAS.NONCDSSSNID @++DD A  p ` A( p ը+ ( @#Bw>>X{P CLMIS 92084-1X842 REV.5000 <860521.1 870609.1031 &FCINC.MAC::SRC_92084 > :CLMIS  ##CLCOL CLTDS PAS.1 PAS.3 PAS.NONCDSRTPLK # DH ( @>>X]m ;FC005 92084-1X930 REV.2226 <820415.1 850806.2023 P92084/&FC005.MAC::PCO>  PAS.SEGMENTRTN  @Kj%FC5::RTE_6:5:43:128 644 0 0 25400 5310707326 33170 %FC5::RTE_6:5:43:128 $++%FC5 +#+#+#+?mS~FST 77X"%~)7;FC5H92084-15047 REV.2540 <850905.1053> P92084/&FC5H::PCO 7@e"%>>XGm2;FCCM2 92084-1X926 REV.2226 <820415.1 850806.2025 P92084/&FCCM2.MAC::PCO>@jG>>X3m3;STCOC 92084-1X926 REV.2226 <820415.1 850806.2025 P92084/&FCCM2.MAC::PCO> L)STCOC  << * .ENTR ALLCM GTMEM GTVOL LSKPL PAS.1 PAS.3 PAS.NONCDSRHEAD RNVOL STPCM <99 A"!$"! %(p A1111 `#(`#P2((A#)9* A %&p$'p#(@a>>Xam3;ETCOC 92084-1X926 REV.2226 <820415.1 850806.2025 P92084/&FCCM2.MAC::PCO> HETCOC  ##ֺETPCM PAS.1 PAS.3 PAS.NONCDSREMEM RWTAP # DH ( @F>>X\m4;TCEXC 92084-1X926 REV.2226 <820415.1 850806.2025 P92084/&FCCM2.MAC::PCO> @TCEXC  ##vB$CE1 B$REX ETCOC PAS.1 PAS.3 PAS.NONCDS#0"AD ( @>>>XRm5;P2TDL 92084-1X926 REV.2226 <820415.1 850806.2025 P92084/&FCCM2.MAC::PCO> @P2TDL - xx>.DCO.DDI.DIN.DLD.DNG.DSTB$CE1 B$SE1 CKBRK ETCOC FOD FODDFOIOA FRMCH FRMSL FRMSP FRMST GIFSF GSTCL LIFRM LIMES LSKPL MATCH PAS.1 PAS.3 x,, PAS.BLANKFILL PAS.NONCDSSCFDC SKPCF STCOC TCEXC USFCH ,4??D ((! (@((!(! 0(!`5( `5P' ( `&P5p`A( -  0`(B7'`&A(> =@(B ;?@@B& F`<J(yA(V(VJAHx(X`p \`(cA b(gA gJJx p Ax y`;(`(AA<!!A (AA   ` (` ( D A++Q( CONT `(pp88(+==J( fJJ  J h((Ʉ(  ((Jp J ((p` M(` (  H` M( ((n` ( J (¨ ( NN8 (mounted volume starts heremounted volume ends here'(*A0/D>` ePMAp ;`(AA A `<A(L K `;(W V D  XJJ^! D A g& `(s r* D  z0 J `<A( 5 `;( B D  H DJ `=J( A JU;;(((` J( J (((` M(p`J( AJ A(  `Pp`(ш`@Op`<(`@Qp`;(݈`@Np$$%`A@Q(A`QpA H$xx+YY(%?*  extent record #extents security discfilename \ crn LU type \ size size log phy code \ ref #  x@!@Z>>XAm7;P2CLA 92084-1X926 REV.2226 <820415.1 850806.2025 P92084/&FCCM2.MAC::PCO> #P2CLA  CLCARS PAS.1 PAS.3 PAS.NONCDS A ( @^>>X9m8;P2DCL 92084-1X926 REV.2226 <820415.1 850806.2025 P92084/&FCCM2.MAC::PCO> P2DCL  CLCARS PAS.1 PAS.3 PAS.NONCDS A ( @ČL>>Xm9;P2TCL 92084-1X926 REV.2226 <820415.1 850806.2025 P92084/&FCCM2.MAC::PCO> P2TCL t uu.MVWB$CE1 B$SE1 CKBRK CKTCE ETCOC FOD FOIOA FRMSL FRMSP FRMST LIFRM LSKPL PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS RCFTA SKPCF STCOC TCEXC TFERR uAhHHA(D /0D  ` P(`Ipy`(!($$D ` (spHpxh`y`y@py :z`z(A @(EEzI{PP| H00 L`(S R(]ZA]d|Agn}D 8x8(.AHvP88GJ&&(% z LU CRN LABEL P/G/S USER/GROUP 8@Kj>>XJ m:;P2_LL 92084-1X926 REV.2226 <820415.1 850806.2025 P92084/&FCCM2.MAC::PCO> # P2_LL  PAS.1 PAS.3 PAS.NONCDSRSLST SELST 8 `/P ((HA(  /   (- @>>XQm;;P2_LH 92084-1X926 REV.2226 <820415.1 850806.2025 P92084/&FCCM2.MAC::PCO> #P2_LH  22 B$CE1 B$SE1 ETCOC LSKPL PAS.1 PAS.3 PAS.NONCDSSTCOC TCEXC 2!!/A(D /(( 0AH! ( @?+]>>XUm;;P2_LC 92084-1X926 REV.2226 <820415.1 850806.2025 P92084/&FCCM2.MAC::PCO> #P2_LC  22 B$CE1 B$SE1 ETCOC PAS.1 PAS.3 PAS.NONCDSRCOMF STCOC TCEXC 2$$IA(D / 0AH$ ( @UKt >>XU1m;DOCP2 92084-1X926 REV.2226 <820415.1 850806.2025 P92084/&FCCM2.MAC::PCO> D&DOCP2  FF P2CLA P2DCL P2TCL P2TDL P2_LC P2_LH P2_LL PAS.1 PAS.3 PAS.INLINEERROR PAS.NONCDS PRMER FTT&&` .P((P)(P*(P+(P,(P-(P.(P/H( (" (%HH(%(%HH(%(%HH(%(%H(%h0H &T' (@M\l>>Xm";FCCME 92084-1X760 REV.2226 <820413.1 850806.2030 P92084/&FCCME.MAC::PCO>@V>>XI2m";ALLCM 92084-1X760 REV.2226 <820413.1 850806.2030 P92084/&FCCME.MAC::PCO> ALLCM  ff?.DIV.DLD.DST.ENTR .FDV.FIXD .FLT.FMP.MPY CROAK DEFRM FOD FOSAD FRMCH MEMER PAS.1 PAS.3 PAS.INLINEERROR PAS.NONCDS SNRML f..R7`"@(`P ( (`(p`.uu,E<()| PP* :: (((@0d@0P##!&@I#@쮬>>Xl m".;FC006 92084-1X931 REV.2226 <820415.1 850806.2034 P92084/&FC006.MAC::PCO>  PAS.SEGMENTRTN  @Zx@H`@pHhX(hAJ(A3@DDXc%FC6::RTE_6:5:5:80 644 0 0 2400 5310707327 32455 %FC6::RTE_6:5:5:80 $0P%FC6 +#+#+#SFST 77X&~*;FC6H92084-15048 REV.2540 <850905.1053> P92084/&FC6H::PCO 7@F&>>Xm&;FCPCF 92084-1X928 REV.2226 <820415.1 850806.2035 P92084/&FCPCF.MAC::PCO>@R>>X<*m&;GCLCD 92084-1X928 REV.2226 <820415.1 850806.2035 P92084/&FCPCF.MAC::PCO> +%GCLCD  ""U.MVWCLIAA PAS.1 PAS.3 PAS.NONCDSRCLST "PP""`Gp V`bp"`(p$p#A#ApAh"`('`"@)p"8#8$( `"p~%P^&(@_2}==Xm&;PCF 92084-1X928 REV.2226 <820415.1 850806.2035 P92084/&FCPCF.MAC::PCO=  PCF  ##CCACL GCLCD PAS.1 PAS.3 PAS.NONCDSRCLSF #ߍ `(J`P ( (    ( @!`ODx-hx(Ah-x-8+(7`OHh-x-`,@-5p*. E@%ID FFX:+Gk";!CREC92059-1X018 REV.2540 850801 Closes and outputs completed records P920%DVS23::RTE_6:5:23:60 644 0 0 13400 5310707330 33432 %DVS23::RTE_6:5:23:60 $8<%DVS23 +#+#+# ]BSFST ## DVS23 92084-15050 Rev.6000 <921027.1241># @tcCS23 UIS23 $.MVW <<`[p=<;P7( P9(RP:(vh (v<<<`\ܣ(+> ځRv`81Rv7P5(>P6(kP7(< `Eo7 <<`_< (`(M`O1`QR@`|@_(3`7<;;`]_[`^h7FP5(07`7(#(M(6@0=; `Dxp}> a ;;`\͡|(FZF P5P6hP7hP^hP|hPhPѶPhP;;;`Z7hP(PhZPh (t(`1Rچ@P|(Ķ``_0;`F1#(J ;;`_  @X((vv`(v`^ (#hP ;<<`\׶> RvhXn(Xm(X ((3P5Pp(3(`k< `Cf1R <<`[C)v`1Rv`1Z(h7Pq(( h5P6Po(h6P5Pp(t<<<``NP(`pr`78r( (ζ0Ψ# (v h6< `DS1Ph7 ;;`[5 (Xxsh (?(;7Ps#(Ghs#pX7`X6`kX5`l1R;<<`]WPv X=(M(nh (_([7(G`Zh6Pn xs`s(G< `Fimtx @j ;;`[s`6`= ((ʴZ`7(Ӷp0P(p p. p- մpDpI;;;`Yp p&p,pNp pppp pXp Զpp"pZpppppp ; `DpIpp\p <<`]Hpp0Fp݀4Z7@|pZP@(3pp`݀67@6p<;;`cZppѨ?@ Pڨ```=([; `Cf부0(J <<`]Z@``   p>`*`ٴ *ޅ@@p`Q*` <;;``5 ^`Zh0 X7X|X0 Ш`)*h( (&@P( @; `Dϟ+((00 <<`^R/Z* h10=p9> a`Q*>8>>(D8>h><<<`_1Mޏ`s*htHݢx]R@puZ@((b8RR `u(l XO(v(e< `C8lxv <<`_[oЂFp(S'Z(`vZ>@p`*ޅ@p`P`(<::`^ 8`> g` >@a`ڶ*`*ޅ@@ޅ@@: `Dޅ@ <<`]vp  5 06 0 0O 0^ ȶ06p0p<::`cͶ0pϨ 0  P PX E@ : `D.p <<`\( ( ;P6(P5(7P5Z(FP7(P(P(<<<`\?HP(vZ(( P5(7P6(EP7(O(3C 00> Rv< `C~,` ;;`^/`^ @D(3` 0=pL> ;<<`]ExM(@T (3(= (]8UڨU8=P(+PҶ(+P(j (z< `DjP(q <<`\n`|8U([ ;P:((R(v(P5((zh ((<<<`^= (((`(7P6(>@```*`*P@`< `C+;([h ;;`^P0 P0@([K `Qe(z> ` 0֠Z*(;<<`^WZ v(P5((ʈP( X( ([``0*pF (p '@p< `C碀B@ <<`\Fnv(&(`(  Z( (鶀@@<<<`\p##$#ڂFp#X50%#ڍU;P)(`(< `D."([ <<`]Z& @Z0*p-F (p0ڍ;P:(7P6(C`Ӣv((<<<`\/C(bR(b`Zv(^P5(P(EhP ((^(^(|([< `Cø_`( <<`[b`Qe(E`e([ P(w(I;P:(ݴZ(n(|(<<<`]D$} ;P:(`^(0(`([ZO((< `C^ `7 ;;`]<( @@Pp҈ڃP`X`Ҷ0P(p;<<`]5E p p@ڶpp p  p`܅P0҅酂`Q `>< `DP g ;;`\2H۴ZhӨP7(> Z((P7(^R@ >@`;;;`\(vH (^v  >@`ڶ*`*ޅ@(^>@(;;`\2H۴ZhӨP7(> Z((P7%6DP43::RTE_6:5:6:60 644 0 0 3000 5310707332 33267 %6DP43::RTE_6:5:6:60 $P<%6DP43 +#+#+#SFST "" {DVP43 92084-15056 REV.5000 <860930.1134>"@=$POWRCP43 SIP43 --&$CIC $CVEQ$DRVM $DVMP $INPF $LIST$MESS$PWR5 $RSM $SCLK$TIME$UIN $UPIO$XEQ -<<`d A @&ځH`h FG(?pxPp`pH EEX<<<`brd$X  (*xx pBpBPCpCApDآph?Ћ`p``pĄ`(Y< `Do}Fh@ ;;`\gGJ`AhxGh PL([HM8G(Sچ(YHP0OZHxFhGHH ;<<`^.fR0Q`KP(w4ZI`n@PZxKpGEZE`h p`(< `CS0p ;;`c0p0pP …` @Z @ (x`pH`  p `AAP`B…`C;$$`U`D``W0pW( (ņ@? $`Ji?Y<<`b<L  |pZpE@F`GPP(xx8G`GZ(Z(Z<;;``n(w`pES( p  ( (Z8(`h( ; `E F(OFF, ;;`bAUTOR,1 ?(@(hIՀhJՀ hKՀP8(hN`;`G{pK`  p (%LUPRN::RTE_6:5:117:128 644 0 0 72400 5310707333 35143 %LUPRN::RTE_6:5:117:128 $uXu%LUPRN +#+#+#u:.SFST BBXHZLUPRN 92084-15061 Rev.6000 910104 List LU's, EQT's, SC's/SRC_92084/R6000/&LUPRN Bss^LUPRN .NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN sEXEC2.GOTO .CPM!REIO5MOD .FION .IMBS QWRIT QCH77 QINT(PAGE$QTAB,QFILL -ENDSC QTRAL SMOVE QMOVE %QPUT"QINTR IXGET #QOCTR 0LUTRU 3KCVT.SPUTERREN ENTRY SFILL ~~j 4CNUMO 1CNUMD +SHMSK /IDGET QINIT 'IFBRK *QFTIM )QOCT&QMOV1 SGETFMPCLOSEQSPCL OCTOK CLCUC FMPREAD FMPOPEN LOHINAMRUPSHF GETST ICAPS LIMEM $OPSY .XLALOGLU ~ QCOM``M1M2M32 3 4 6 6 6 6ERTE- 6000?Af``A``&``?. BMR*,+ * * * L U P R N - LU/SC/EQT Information * * * `` LUPRN is a program that will list all of the LUs available to the user with EQT, subchannel, and select code information shown. In addi``tion, LUPRN will track down the true driver name and list the devices name. There are several optional parameters that may be used in running LUPRN: UF`` RU,LUPRN, [ list LU ], where options are: `` DV = dump the Driver and description table. ?`` AL = List all the system LUs in system LU order. When AL is omitted, the list is just the user SST entry set (under session only).&f`` LU = List the system LUs and optionally limit the LU start and finish (ie, LU:12:23 to see&`` LU 12 thru 23. The list is selected from and sorted by system LU. TY = Driver type selection...specify the driver &``type(s) as above (ie, TY:5B:12B shows drivers 05B thru 12B). The list is chosen from the System LU set. Note that driver types are octal values (use suffix B). ,`` (( SC = Sort the LUs by select code (from the System LU set) and optionally select the specific select code(s) $`` to show (ie, SC:10B:23B shows Select Code 10 to 23). The parameters may be entered in any order except that the LU to be#F`` used for output (ie, 6) must be the first. If the output is to the users terminal, the list LI number may be omitted. Since LU and TY can both be used at the same time, there`` may not be an LU that will satisfy both requirements (ie, RU,LUPRN,LU:1,TY:2 which would mean that LU 1 must be a DV.02 device). Also, once SC is used, LU and TY have noTT^== effect on the selection. Tqq<^99yd$p`ppW`PWpVPW0VpW(zApW(pH`H(`pF(`pF`(`p$AW((qQCLUPRN cannot run on this opsystem.jFFAAC=Y@YpYY(( r  $p3  ] ]`]( p[p\ ]\( `[~~&.>>p[h(X9(( "`( `p`pA(( `@$hوHpx (w`p( (wp$`$@x( `$@xp   `@$~~~l AAAp$(  "P[p`P( A`pA( ?`p( @(w(`P( E( Hp,(`P( L( Y`p-p, X781(`P( ]~}}N \@@( hp, gLK.(ӈ`P( l( wp, vDC0(`刈P( {( ~`p/(`(  p`P( (  (   n A }~~ EE( (hBp CZlj`PZhXZ 0(  CZhf`Z( ϡ d Z A  `=p<p9pM CZ?p6`Z(  ~J% DD b Z ` A  P6( u`MpM6( ( `6p ?h?(X?(  ?`>p$ *   D`-(  B( `,(  @(  >  `4p$  <`Q( # Q(   6 :`R( # R(  }}0 @@ 6 8`T( Ŋ(  T(  6 4 S 2 A ! yp2@2@JpI IpG`G( `GFp&@&@Ep@`@@p }~~ ==p+ p)`P)( ( `H( + Gp0( + Gp0`0( `&@th2`2p2@4( $ (4`3( /  .0( 5`@4p$ 5 8.$~~~ 9== ; >,`( F E*( I$ I L(`3( R R& U$ X4`3( ^ ^`@4p$ d  g`( n$ m( q q` p, y~}}" vDD  |`3(   p"p!p pM' $(r `;p(`-(`1hXM ( `PMApM('M7( ('A8M( }0 >>(-`MPQhMXR 0( ` ( @hH4px-  `@4p$ `MPQ( ߊ( # Q( # R`@4p$  $`@4p$ `M}}Qn <>@$p$1$.`0!p!(ш`@@pp+p,`B(܈`p1(`p1`@@ppA`@@p~~~|AAp+-ш`A(.-`A(.-`A(.-`ˀA(.-ʈ`A( . -`&@u(*`&@up*(`@~0,FFp0p>`@@p7p?E$?>7CBI7P>Ap)(dd$>>7CBh7`p*`*P:(o(q`>p*`&~~IrAA@uh*P>pA)(`9p*`?p(>((`p%`>(`Ap(`p&`=p<p:`<P)h<p(X* `(`@ (`#P(\77(+`p#3z.8*E$567CBI77CS80 Disk HPIB #GGI##PCP6(T(X`5p"(\p"`p+`"(`(@"pfA0(v(vGGCS80 subchan bad11lsC`p*(`0#@"p}p$`$(18+CS80 Tape addr #``!00C`$p3p.C(`$p3p.C(`P)h*X< (`P0((`a 2608A read-back }}\H@@ C(`0h" (`@4p$,$`,( ( `!((  "`!((  ! }) DD`@ p,!y A! yp"p!`@8p8$4`,(&"3%1""2%%1(U`3(Np$0.$P3(?`$p$@4~~y6??(+";2%>1(U"C$%F1"J3%M1(U"R2%U1`@4p$["_&`-h0 (n%jn0`@4p$t#~u>>x`@4p$~-`,(`@4p$",`@4p$`+(`@4p$#+`@4p$ %*#~~;;)@ p$%`@4p$%(`(`'@&@ypp%`%(`%p$(`#p$`@4p$"$`$P#((%~~~Ü88`@4p$C`@4hH4p`@4px  `@4p `3(`@4hH4px 4 `@4p ! $`8~(&@@p8`MpM@( `8(A,5 8,= @(r`0h" (`@4p$O,T$W`,(^ ](a a`!(e(h  fAAh l"`!(p(w s w! z`@ p,A!y ` -(`@4p- $4`3( `@4p$}}eK@@ `( ($` p, `3(  `@4p$`%(!y  `@4p }#@@  `@4p `&($A!y  `@4p     `@4p   `@4p $`'(Q;'AAA!-y 0 3舊`@4p : = @`@4p G J`@4p Q`((~!Zy ] ``@4p g ~~HhBBj m`@4p t w`@4p ~`)(!y  `@4p  `@4p `*(!y ~~~k?? `@4p  `@4p `+(!y ʡ `@4p  `@4p `%0&0'0(0)0*0+(!~"==y`2(r`(`@4p$ Ā`3(  `@4p$  `@4p$ `@4p  "`@4p$~~&<<( +`@4p$1 4`@4p ; >`@4p$D G`@4p$M P`@4p W Z`@4p$` c~OO~b**`@4p$i l o(rAw z~  AO``) for output (down or not defined)...Illegal LU ( S=Driver handles Timeout3=waiting DCPCLU is down. P=Driver handles Powerfail1=down, 2=busy, D means theD=DCPC, B=Buffered, T=Timed-out EQT avZ``ailability: LU # with a EQT Flags:(T.out is in seconds) , SLU=Session LUDP=Driver Partition page ($=SDA)is not in the system entry point list. disk driver(s). The TMT Unable to find track map^O`` table for CS-80This LU cannot be accessed. part of track map table. Note6: A subchannel for CS-80 disk is not EQT points to this Select Code. address and no Note5: The value listed is not aE``n ID segmentor driver associated with this S.C. There is no EQT interrupt from this Select Code. scheduled upon anNote4: The program name listed will bean interrupt address. the EQT forcode``. Possibly a sysgen error was made in use of this select Note3: ' No EQT' indicates that no EQT claims or this is a dummy driver. incomplete patch has been made, a sysgen error orINIT/CONT o``addresses in this EQT. Possibly in the system matches either Note2: DV?xx+ indicates that no entry point INIT/CONT addresses. since there are other drivers with the same drivername is not de4T``terminableNote1: DV?xx* indicates that the true --- -- --- ------ --- ----- -- ------ ----- --------- Unassigned thru 'sSystem LU Session LUNo LU's found in specified rangeDV...See Note 5 /``(Interrupt table entry unknown: ...See Note 4 (Interrupt schedules program: Privileged FenceTimebase Generator SLU Device Name LU DP Driver `` LU EQT,sc SCD Flags AV T.out Stats SLU K)) Memory size (none) Partitions ( ) Priv. Fence SC ( Time Base ( System LU Session LU Select Code...Sorted byLUPRN's rev = Pre-1913 System re8``v = System Device ConfigurationDriver type: and LU to selectcode DV LUPRN's Driver List"LUPRN file. Size up LUPRN larger. Warning: LUPRN cannot hold all names in on "LUPRN file while read O^^ing.FMP error Cannot open "LUPRN driver name file; FMP error =ROS "LUPRN::0 ROQS"LUPRN::SYSTEM...use ?? for help. ...Unknown command: LUPRN must be sized up to hold "LUPRN file. "--@~~|DD-P-h -v-- --- - -.. .&&.F.l(...).//.,/>#/j/ //&// 0)00D-0X00~~~DD0*00+11H+1^1&111,12 222 2 2$ 2.2N 2P2^ 2~2(22222333%33D3H~O5GG3J3Z3^3n 3 3 3 3 3 3 333 34 44 44 4$#48(4\4 4044 44445+5$8>B$T?3((|``3 Upper $DATC RTE$DVMP $SDA +) --** ..MIHE4$$0/*#,, 0043##Hi #LU?TTSSPP BB@DD <))ss@ /DVTYSCAL> @ 3^AAX55ERREN 92084-15061 Rev.5010 820905 Display ENTRY errors/SRC_92084/R6000/&LUPRN A FERREN  OEXEC.ENTR QWRIT QMOVE QCH77 QINIT ==& @p ( 04322( =!!@! ...LUPRN: entry error code = B!@p0AAX/PAGE92084-15061 Rev.5010 841010 Conditional page eject/SRC_92084/R6000/&LUPRN A zPAGE & EXEC.ENTR SHMSK @@m$$AA .-,P+p%`*%(#`(p%#)%'@'@@ ? @x-8BBX-SHMSK 92084-15061 Rev.5010 821021 Shift and mask 1 word /SRC_92084/R6000/&LUPRN B JSHMSK   1T.ENTR .ISH ""VAApp`"@a!DDXENTRY 92084-15061 Rev.5010 811017 System entry point finder /SRC_92084/R6000/&LUPRN D ՉENTRY  6\EXEC.ENTR .CPMSGETIXGET  - 7DDA@pp`@pp@pp@p@pp@pA(>(xAppA(N(x(U(U`pU>>`@ ^ph'x `php (rp@ p p p `p`@((`Pp` (` p p`p`p (@DD`@p`p `&p  (fpxP(pp` p A (((`@@hHH 0([((`~~ ??@hH`@@h H`@@hHHp0A(((([p`P(`@p `P(([`p@~~~\v??(A($($(@hHHp@hHH`@hH`@@h H`@@hHHp@0~]] U++(Y([(`@p@ (`@p(xpx``@h(``@h(``@h(]""L1ZESISKDI @"@,;CCXXiJENDSC 92084-15061 Rev.5010 840204 Show empty select codes /SRC_92084/R6000/&LUPRN C QENDSC  ##.ENTR .CPMQWRIT QPUTQOCTR QCH77 QTAB#II IHCA((E(. G$F'A+F.E1 thru >ss I @CCXP3LOHI92084-15061 Rev.5010 820916 Low/high values from NAMR /SRC_92084/R6000/&LUPRN C w.LOHI .ENTR MIN0MAX0RR--@p.`1@.2(+`0@.p--`/@.p-%A-*R ?/< @FeGBBXH<UPSHF 92084-15061 Rev.5010 810928 Upshift lower to UPPER/SRC_92084/R6000/&LUPRN B IUPSHF  o.ENTR .CPMSPUTSGETaaz55@p8(pA;(p7:("7(.`9p7.7`p((a 9za @GfAAX\OCTOK 92084-15061 Rev.5010 870306 Validate octal digit/SRC_92084/R6000/&LUPRN A FOCTOK   $$i.ENTR .CPMQWRIT QMOVE QCH77 QINTQSPCL $aa255A@p7Zp6Y06(2W!U%W(S,X/p(4`[p`a66 T8$$, text = Driver type in "LUPRN file invalid at entry p+z706@ ,x.ENTR .CPMQWRIT QPUTQOCTR QCH77 QTAB#II IHCA(CMD.REL::RTE_6:5:72:128 644 0 0 44000 5310707335 35043 CMD.REL::RTE_6:5:72:128 $HHCMD REL +#+#+#H#TNFST CCXZ$PAS.GLOBALINFO92084-15063 REV.5010 880223 880301.1620 /SRC_92084/R5010/CMD.PASC@|!@@XZ$LIST_BUF92084-15063 REV.5010 880223 880301.1620 /SRC_92084/R5010/CMD.PAS@ 6LIST_BUFa KK  .ENTR .MVWFMPPAGEDWRITE FMPREPORTERRORPAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.FIXEDSTRING PAS.NONCDSK99] Aj(`(A`p AH((H(9!!A `hA p(?!@p0@@XZ$LIST_BUF2 92084-15063 REV.5010 880223 880301.1620/SRC_92084/R5010/CMD.PAS@hLIST_BUF2 :TT  .ENTR .MVWFMPPAGEDWRITE FMPREPORTERRORPAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.BLANKFILL PAS.FIXEDSTRING PAS.NONCDSTBB!!A "BB!j( `(`ؤp (( (B%%A `hA ňp!(?  "?%@t4AAXF8Z%PRINT_ERROR 92084-15063 REV.5010 880223 880301.1620/SRC_92084/R5010/CMD.PASAIPRINT_ERROR //}K.ENTR EXECPAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDS/ ` P7(( A ( >>^))A  p (Help file is corrupt; must be created by GENIX. >@oQCCXZ%RUNSTRING_INPUT 92084-15063 REV.5010 880223 880301.1620/SRC_92084/R5010/CMD.PASCUxRUNSTRING_INPUT [[Ղ.DLD.DST .MBT .SBT PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDSPAS.SPARAMETERS PAS.STRAPPENDPAC PAS.STRCOMPAREPAS.STRMOVE [4@@p`pAp `A@ (`p `  (P (($h6A`6 {`p (.A. |}|{~` A@(@` p h6@ H` @BB`p`pAHp `A@ ل(S`p `p p ` A(eJA  d|(oo |}|}`pp &`pyp %`A @ %(CC`p %`p  p ` %(P %((p &  `p %(A %|}|}`p p op pA`pp`((u  22B(p o(AAuA A (p px2TTKy448x(?1    uCMD.HLP::SYSTEM NISK ?T@+CCXoTZ&REPORTFMPERROR92084-15063 REV.5010 880223 880301.1620 /SRC_92084/R5010/CMD.PASC?REPORTFMPERROROO .ENTR FMPREPORTERRORPAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.FIXEDSTRING PAS.NONCDS PAS.STRVALPARMPRINT_ERROR O11yA`Pp AM; ;`PQ(PR(PSA((HJ((?1%%-@A ==pA`>hO KL(?׀?%@AAX3$Z&GETINDEXREC 92084-15063 REV.5010 880223 880301.1620/SRC_92084/R5010/CMD.PASAGETINDEXREC KK _S.DLD.DST .ENTR FMPREAD FMPSETPOSITION PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDSREPORTFMPERRORK99nA ' !p  '   #p ` (  9((^ AA A(@b??X 9Z'GETNODE 92084-15063 REV.5010 880223 880301.1620/SRC_92084/R5010/CMD.PAS? /GETNODE  ?? (H.DST .ENTR .LBT.MPYGETINDEXREC PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDS?NNd((` A@((%`(P (h( **`(p `8)@7@6@ (".($.('./N0 A ,,p)-p(( @,|K<BBX}LZ(OPENKEYEDFILE 92084-15063 REV.5010 880223 880301.1620/SRC_92084/R5010/CMD.PASBcOPENKEYEDFILE {{8.DLD.DSTFMPBUILDNAMEFMPOPEN FMPPARSENAME PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.FIXEDSTRING PAS.NONCDSPAS.STRAPPENDPACPAS.STRAPPENDSTRPAS.STRCOMPAREPAS.STRRPTREPORTFMPERROR{q``AAA A1A /1 AAA3/ ! +1#151"#!:7A5#$A AAH1&AN91A%&$AAW;9& U`VVe1'k/1't=/'A`Ip  z?`IpA 3A`Fp 7`HpA ;A`Ip A=( AC)* 1+OLL/1+ ?/+`Ip A ?A`Ip 3`FpA 7A`Hp ;`IpA =A`Ip  ?`Gp  A ' ` PKR II(` PJ((~` &(_AA$A A1A,91%,A#;9,(0$/;i%-(1(~`Ip `Ip `Ip  ;?`Ip A3`Fp G7`Hp MnnK;;;`IpA S=A^(iAJ Ai?I.` p %A`Ip  q?`Gp A wAA~ ' ` A(  nLL#228(? /01267EFO܀  ROSFX ?/L@TsfAAX@rZ)PARSE_TRANS 92084-15063 REV.5010 880223 880301.1620/SRC_92084/R5010/CMD.PASAsPARSE_TRANS d77 D.ENTR .LBT .MBT .SBTPAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDS7"",r `†A@( `p( (""" (h6H@HP݈((("22M(qp2`2(1h56@HHP(-(/p2(!32~~<4@@(qp€p3h6@HHP(bA@߄(bh6@Hh6pH` (?3`A@(h6@„HP(~gt==`ph6@HHh6p@H`H (d((h6HHP(((`((h6@HP((@p(`((`ph6##F9A`6 (`ph6`6A # A(6q  ,?@Ğ>>XaBZ*QUERY 92084-15063 REV.5010 880223 880301.1620/SRC_92084/R5010/CMD.PAS> {QUERY  QQ.DST .ENTR .LBT.MPY.SBTGETINDEXREC GETNODE PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDSPRINT_ERROR QKK##p#`#(` A@ (` p `s@+ @6@ H P(p#(`#p$`$%Kl&<TAA(Zpn(pn`n(`s@@(`s@@pr`As@@Aps{srt`tA(( pq p ` A(`q (` p `@@As@@6@ HH h6p @ H`Hh6H@ H p h6@ H P(pq(`As@@6@ HH h6p @ H`H`q(%(~~̏99`sp `rp ` @@pp`J @@po(g(`s@@Po(A(`s@@Pp((pn(](gh6 @ H ph6~*AAH@ H @(=`sp `rp `  ps`sA@(7` @ p`  @@prps<srt(g`sp `rp `  ps`sA@??\O(b` @ p`  @@prpsgsrt(Jm  t?A (, u    @^3|@@XɦdZ,PUTTOKEN92084-15063 REV.5010 880223 880301.1620 /SRC_92084/R5010/CMD.PAS@ ^PUTTOKEN 33 .ENTR .LBT .SBTPAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDS3]0DDpVpX]A@X(`V(h\6@XHHPc((`XpX(pV([]A@X(F`bA[(Fh\6H@XHhZ6pY[HH`Y [[`X((yDpX(!`bA[(UhZ6[H`cH ^(h?_AZ( @BBXZ,GIMMETRANSFER 92084-15063 REV.5010 880223 880301.1620/SRC_92084/R5010/CMD.PASBnGIMMETRANSFER 2 GG  .ENTR .LBT .MVW .SBTADDRESSOF FMPPAGEDWRITE PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDSG??`pph6@H h6p@H` 88ʈ(`p`(3pp`ph6@H h6p@H` 88(`ph6@H`H `-E?@@(A(u`pp`ph6H@H h6p@HH` 88(E`(upp`ph6H@H h6p@HH` 88(a`pp`ph6ZZ3?''H@H h6p@HH` 8 8(ypkApl`pmpAj(ppj`ZDDiR((A `hA ͈p`p( Transfer to " in ...('a' to abort)_ J_D "@@@X}LZ-GETNEWKEY 92084-15063 REV.5010 880223 880301.1620/SRC_92084/R5010/CMD.PAS@g=GETNEWKEY AA ? .LBT .SBTABREG EXEC PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDSPUTTOKENREIOAyy::`Kp;p:hE6@:H hF6p<@:H`< 8:8;(@A B!AC qD%  ` A@J(0` (3 p (99   q =y>8=(G Key: _@@"6@??XZ.PRINT10 92084-15063 REV.5010 880223 880301.1620/SRC_92084/R5010/CMD.PAS? wPRINT10 O VVn& .LBT.MPY .SBTGETNODE LIST_BUFLIST_BUF2 PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.BLANKFILL PAS.NONCDSPRINT_ERROR VADD` p` p`pp`@@(*`@@p`A@@ɈAp#`A(*)( 88(4A8A< q`pp`@OD??ph6`H `pph6H@H h6p`@H` 88(Mc q`@(i(`@p`@pv`(}|H( 88(@` o(e` p((<55j 8(?  q List of keys  5@9@@X Z.TEXTPRINT 92084-15063 REV.50((10 880223 880301.1620/SRC_92084/R5010/CMD.PAS@} TEXTPRINT vv.DST.LBT.MPY.SBT FMPREAD FMPSETPOSITIONGIMMETRANSFER LIST_BUFOPENKEYEDFILE PARSE_TRANS PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDSPAS.STRMOVE REPORTFMPERRORvSSD&&`A@[(A 'qp`A(`_p_p[h)6@[HHpX`[p[&Sw%'==8&(qJp`@@p_`@@p[`[A(Dp[h6`H`pJp]`@@6H@]Hh6p`]@H`8]8(Lh6$rd>>HH`h6H`ApAtqh_ AA 'p 'qp`(`_p_`pWh6``pZ(&`X(~~;<<@_p_(.`XP(((E`XP((`WP(((`XP(`XP(Āh6@ZHH`X`ZpZ`XP(`A@Z(@ZpZAZ`pZ`XpW(A~mD@@@Z(@ZpZAZ pZp&`XP( `XP( `A@( `ph6@H`X& (`Y`Y(-`Y((+`Yp%`pkk%99p)%+p(VA@Z(?@ZpZ=ZpZ`o(D pk(tA@Z(VA@ZpZTZpZk88=48(*?'q`  :?8@Kj==X'Z0CMD 92084-15063 REV.5010 880223 880301.1620/SRC_92084/R5010/CMD.PAS=77vCMD )PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.STOP7&.DLD.DST.LBT.SBTEXEC FMPCLOSE FMPOPEN GETNEWKEY LIST_BUFOPENKEYEDFILE PAS.FIXEDSTRING PAS.INITIALIZEPAS.INITMEMINFO1PAS.NONCDSPAS.STRAPPENDPACPAS.TOPOFSTACK1 PAS.TRACECLOSEPRINT10 "" QUERY REPORTFMPERROR RUNSTRING_INPUT TEXTPRINT "NN %`p`˄p `( p `(p`)(p+`(`pp`)(pp+AAh6@+Hp*`*A@ӄ(`A@*(h6@+HH`*@8+8(p)A)`)P(((`((`)PLj((`)P̈(`)P((;;h6HP((`Ȉp)`)p*`ʈp)((`)P("((`Ɉp)`*p)((`(C`pp+h6@+Hh6p@+H`8+8ň(/`p+(Z`pp+h6$4JBBH@+Hh6p@+HH`8+8(G`p+`)(vpp,`+p+h6@,HHh6p@+H`H8,8(b`+p+h6@+HA` A+ A` ZZ0(((`+(A((A PA U NO KEY Key not found ' Key not unique ' CMD.HLP::SYSTEM __CC !CMD:0:0 SYSTEM co w _ '?az@%WGENIX.REL::RTE_6:5:59:128 644 0 0 35400 5310707336 35132 GENIX.REL::RTE_6:5:59:128 $;;GENIX REL +#+#+#;rtTFST DDXNZ+PAS.GLOBALINFO92084-15064 REV.5010 870619 880301.1701 /SRC_92084/R5010/GENIX.PASD@NBBX|LEZ+PRINT_ERROR 92084-15064 REV.5010 870619 880301.1701/SRC_92084/R5010/GENIX.PASBIPRINT_ERROR 77@.ENTR PAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDSPAS.WRITELINE PAS.WRITESTRING 7::`PC(PDA(( &##$(A:%%$(:;;n/''Ap((GENIX,input_file,[list_file],output_fileNo keywords found.;@ZyMEEX(Z,PAS.ERRORCATCHER92084-15064 REV.5010 870619 880301.1701 /SRC_92084/R5010/GENIX.PASE9PAS.ERRORCATCHERiiF .CBT.DST .ENTR .MBT.MVW.SBTFMPPURGEFMPREPORTERROR PAS.1 PAS.2 PAS.200 PAS.3 PAS.BLANKFILL PAS.ERRORPRINTERPAS.FIXEDSTRING PAS.NONCDSSTRDSCiCC`P$( `P%( `P#( (q`h'AH( (!xph6@H`&H8(8((h6`6A (2(<( INPUT_FILE LIST_FILE OUTPUT_FILE  ?o@ȒDDXNZ,PARSE_RUNSTRING 92084-15064 REV.5010 870619 880301.1701/SRC_92084/R5010/GENIX.PASD_aPARSE_RUNSTRING {{U.DLD.DST.LBPR .MBTFMPBUILDNAME FMPCLOSE FMPOPEN FMPPARSENAMEPAS.1 PAS.2 PAS.200 PAS.3 PAS.BLANKFILL PAS.ERRORCATCHERPAS.FIXEDSTRING PAS.NONCDSPAS.PARAMETERSPAS.RESET_FILE{11RPAS.REWRITE_FILEPAS.STRAPPENDPACPAS.STRMOVE PAS.VALIDSTRING PRINT_ERROR 1GGAp33cpAedecpfudeh#eewi` (*PĈA(*(.-e( `p_ Ap^<xeczefjA`p3C36cp2`2(H~~XG<<([h|6`}6cA`2p[~ecuefk`p`pҊ`p`p`p`p`p`pA`pquV`pAwXA`p}Z`pA\~y??A`pA^VXZ\^`p`p`puV`pX`pZ`p\`p^VXZ\^`\GGp33>cp` (PƈA((e( `p ApeceflAJmAJioʄx`VX `5VXe`5(p5̪>KK ))px`A `5AzqAe^rA!usA)etA1ffffaK}}tbGG(?1?  d ^6   > ͪ`fNOCCTLrwc NOCCTL,EXCLUS CCTL,EXCLUS ?}@6EEXZ-INCREMENTPOSITIO92084-15064 REV.5010 870619 880301.1701 /SRC_92084/R5010/GENIX.PASE@ INCREMENTPOSITIO))q?PAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDSPAS.WRITENONTEXT)33|`1p1`A@1( p1`2p23 ( @AAX64Z.TEXTWRITE 92084-15064 REV.5010 870619 880301.1701/SRC_92084/R5010/GENIX.PASA.TEXTWRITE 11.LBT.SBTINCREMENTPOSITIOPAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDS1YYk++`3(p,p+h06@+Hh16p-@1HH`-8+8,(h16 @1H`3Dh16 @1H`2D.Y/(4 @ BBXKmZ.SAVEKEYWORD 92084-15064 REV.5010 870619 880301.1701/SRC_92084/R5010/GENIX.PASBASAVEKEYWORD e~~.CBT .DAD.DLD.DST .LBPR .LBT .LPXR .MBT.SBTPAS.1 PAS.2 PAS.200 PAS.3 PAS.ENTRY2PAS.EXIT2 PAS.NEW2PAS.NONCDSPAS.RECVARPARMPAS.WRITECHAR PAS.WRITELINE PAS.WRITESTRING ~˜PPA@  (;`I ApICE  6A`6 F G`2 I`1A KxA A MxA  p/(  6A`6F(V(L(VAAK ZZCP44AUA( 6`6F(j(jAAM AiA(qOOPxߡ5FFPA}Q((P( ZDDA(5Duplicate keyword ' `gA @3(`gp3p=hS6@=H Ph((`=A@3(`=p=(`=P3((hS6@=HH Ph((3AAAXRRP `=@3 p3`3A@g(hT6A`U6 F@=p=`3(p?p>hS6`=@>H@lH hT6p@@>HH`@8>8?(`3(8p?MM%''p>hT6H@>H p<`H`<@k8>8?(;VAMFF$wB++(E ' 45 GWARNING: Blank keyword found!  azF@CEbAAX Z/PUTPAUSE92084-15064 REV.5010 870619 880301.1701 /SRC_92084/R5010/GENIX.PASA + PUTPAUSE --'.SBTINCREMENTPOSITIOPAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDS-K h 6@1DH   ( @ BBXd Z0PUTENDTEXT92084-15064 REV.5010 870619 880301.1701 /SRC_92084/R5010/GENIX.PASB PUTENDTEXT--'.SBTINCREMENTPOSITIOPAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDS- h 6@1DH`   (@̒RBBXhZ0GETINDEXREC 92084-15064 REV.5010 870619 880301.1701/SRC_92084/R5010/GENIX.PASBGETINDEXREC 55F.DSTPAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDSPAS.READNONTEXT PAS.SEEKFILE5!!uh AA JިU! `(p8p(@&DBBXrZ0PUTINDEXREC 92084-15064 REV.5010 870619 880301.1701/SRC_92084/R5010/GENIX.PASB(PUTINDEXREC 55}.DSTPAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDSPAS.SEEKFILEPAS.WRITENONTEXT5!!uh AA JިU! `(p8p(@Plo,DDXMZ1PUTKEYSINORDER92084-15064 REV.5010 870619 880301.1701 /SRC_92084/R5010/GENIX.PASD=PUTKEYSINORDERKK .DAD.DLD.DST .LBPR .LPXPAS.1 PAS.2 PAS.200 PAS.3 PAS.ENTRY2 PAS.EXIT2 PAS.NONCDS PAS.RECVARPARMKRR~44A@ < ((/A@ <AAI7=7 < JIx9CAA9 <@JCA@ <AAK7=/7(E <3Rm>A 0= <:( 0== @m_@@Xw5Z1GETNODE 92084-15064 REV.5010 870619 880301.1701/SRC_92084/R5010/GENIX.PAS@ +GETNODE  <<  A3H A8LA*Tt 8"AV9uA<]uY 5f A x A;pu A 9uA9u` kevHH(p Ap  ` ^p 2p ` Y @@6`#6A8 8 2(p A` kp  ሄ8 8 (|0 A( kA0 h TAH( (x p ` Y @@6 8 (8 (s[[AA k<uc9u9u  $A  AA  A A(( AA  Ax  AA AA  A ( AA  ((AA  A x <uA9uA  ~~HH(9up lp mp n  p p .  ` l(3A lp p p lp o` m(t` o(tAF n m o` o(SA<Pum9u(s` Y n@@ Wh A` Y n@@ Xh ~aLL` mp ` np ` Y n@@ Up m` YA n@@ Vp n(;` lA(y lA.T&` (p p A-T ph k  h    /t :t p8 8 (9u<u|>v\\AA9u" 3h'6`(6(((6Au#t#TA#u#A7A!  O ?Y    ``  ʀ 8  h    c :)  3 INPUT_FILELIST_FILE SCRATCH_FILEOUTPUT_FILE Genix: reading rwcxf EXCLUSGenix: created file List of keysDDi-- found: Non-existent node in traversalGenix: done 6  (D{ S "&?@Q(KEYS.REL::RTE_6:5:68:128 644 0 0 42000 5310707340 35475 KEYS.REL::RTE_6:5:68:128 $DTDKEYS REL +#+#+#D!TFST ((::XP>KEYS92084-15065 REV.5010 <880525.1813>/SRC_92084/R5010/KEYS.FTN : AuKEYCOMMON rrB6KEYS.NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN r}} .DAD .DMPEXEC.CPMXLUEX .FION .SBST .SCO.SST.SSTC XREIO .SBT.NFEX .MBTHOMEDOWNDISPLAYKEYDRAWKEYDISPLAYTRIMLEN INTTODECIMALCREATEKEYFILE REPLACEKEYFILE CASEFOLD}88SPLITSTRING ABORT ABREG DECIMALTOINTREADKEYFILE SETDEFAULTKEYS SEEIFMEMORYLOCK 8 Normal Local Transmit6IIuD1IC|@ 0@ @01@Z1-1_1-1d1-1h-0p/`0A(/p/0(h/@~~GGA  | @0@@01@ 1-1-0p/`0(/Ap/0(h/A@ |A  z1-1 -I( - -~99tq(((( p.`p.8.8(9m% Keys Rev.5010: ? for help +DDAA vA1IA1-1 A- -I(((A((P -M( ( (  (P -o((((m(P -m(((((P -k(#(%hh?"88(%((P -U(+(-(-((P -i(3p -g(;0(A((P -e(G(I(I((P -c(O(P(P(SA-p-hr " unknown; ? for help DDeZ$$A+aJ_d+pAl(r1-1A -I(xA(( /I(~((D$No current file LL~((A$(+]/J+Ap̊(-(1A-1 -I(((L ,Softkey number to be programmed (1-8): _ XX22AA,1AIA 1I( 1-1-0p.`0p.0̄p.0(XG@ Invalid soft key number A@(((LLabel (1-16 characters) or [return] for no change: _(aa҂44AAL1AIA 1O(pA 1M(0(1p֠`(`.$@(p&h&`2!a"" `fType (N[ormal], L[ocal], or T[ransmit]): _"VIIAAf1AI# &1 1M(,(/(/.(A 1[(5pA 1Y(=0(F`.@s ( 1W(Lp 1U(T0(]`.@s <<;\( 1S(cp 1Q(k0(t`.@sh(A 1I(z({({(<I{Invalid transmit type; use N, L, or T {A{($$TSoft key text (1-80 characters) or [return]: _$~~XEEAA1AI/A 1O(pA 1M(0(( 1K(((`.@p`@.@hDH3`.@th(@ ~WW^,,1I(`.@ph`2`.@th.(1-1 -A -I(A(( /I(((WXNo filename has been specified~~QDDA((A-(zzp.`pӡ).A+G)+p++H`.$@(p&`&p$`.$@(p"`"@p `.@s#@'pAE~}}Iw7KK3A#3C3A3?F+pN`.@pA+=3;^+p+D+393737J35u+pA}8.8( (}$$F [file] read softkey definition file $gUA:M [key#] modify workspace gtA@yL list workspace gA 0YW [file] write workspace to file gAUV redraw display gA EX exit Keys44ԓA(p.`p.8.8((4KEYS [-S] [terminal_lu [list_lu]] $$AA)~A))$XYY K D Z Y Text: &d@ Type: &dJ &d@ -- Label: Softkey # /D/A/aT 2 L 1 N 0 Current file is Command " EXV HELP? W M F -S     PPPr  P@~~.DDP@PP,                      2         ~==4r'' "08Keys> _ m p=@<6??XF>SETDEFAULTKEYS92084-15065 Rev.5010 <880525.1813>/SRC_92084/R5010/KEYS.FTN ? AuKEYCOMMON SETDEFAULTKEYSr.EXIT .SST.SSTC .SBTXX3--pp`Ep0`$@>XƜ>READKEYFILE 92084-15065 Rev.5010 <880525.1813>/SRC_92084/R5010/KEYS.FTN > AuKEYCOMMON ,READKEYFILE  qq..ENTR XLUEX .EXIT .SBST .SCOC .SST .LBT .MBTHOMEDOWNDISPLAYKEYSETDEFAULTKEYSREPORTFMPERRORFMPCLOSE DECIMALTOINTFMPREAD DISPLAYFILE FMPFILENAME FMPOPEN q'8Rct~~EEA*(-(i2(i6J@(X (Q(](]h AP(_~~~)`AA(Xp`̀p@@p`$@p`ЈA@p A88(eA(X`p`p`@҈@p`$@p`@p ~~~# CCA88((J(Xp`p`@p`$@p`p`@pA A8A8(ᡡ(X~}}$@@p`p`@p`$@p`@p`@p DH88( (Xp`pJ(X ($(](]}ww[$99 (P(+(]`@p 2`(]`@NJp =`(]`@ph`A 88(S(X`p(q\(mwoInvalid key-definition file LL3]##Acgp(mmpqp`px88(u~`LKK &f J h X m ors P 000 00 00r00@00 "80_ @>>XmN>WRITEKEYFILE92084-15065 Rev.5010 <880525.1813>/SRC_92084/R5010/KEYS.FTN > AuKEYCOMMON ))`WRITEKEYFILEREPLACEKEYFILECREATEKEYFILE )||r.ENTR XLUEX .EXIT .SBST .SCO.SST.SSTC XREIO .LBT.SBT.MBTREPORTFMPERRORFMPCLOSEFMPWRITEINTTODECIMALR INTTODECIMAL DISPLAYFILE FMPFILENAME FMPOPEN ABORT CASEFOLD|GmXhJ_ ``KGG&dJ________&d@ &dJ________&d@ &dJ________&d@ &dJ________&d@ &dJ________&d@ &dJ________&d@ &dJ________&d@ &dJ_________`UL '8Rctl_ h_ ppO;;A(p`p(A`p`p( "@GA((.( ġ(>G((`MP((pXOk to overwrite it [Y/N]? _ bbn77AAXL*A<F * *:((( ( A *8(pA *6(p *4(( bwf File not overwrittenBBA fK(2G((`((  $"(,((*((  .4GI(p`Ep`@Dp`J@pA&}}ZG@@`$@pA`p88(:[&(p`Ep`@Dp`J@p&H`$@p`A@p88(a&(}3GGTGA($,0p`Ep`@CphHJhhHHh`@Bph`A` @p A `@B@Hp$D$@.TTA''`@B@Hp(88(VG((( "( TTII _ &f_a_k__L cow YES YEY /A cw owP0 0 0 000r@00?0,  80D K @ y?9??X+5>REPORTFMPERROR92084-15065 Rev.5010 <880525.1813>/SRC_92084/R5010/KEYS.FTN ? AuKEYCOMMON REPORTFMPERROR((.ENTR XLUEX .EXIT .SBST .SSTC TRIMLEN FMPERROR(JJyO++. 00Ap++0+0A+42.!0p+)4+J- Z@4oS/;;X">ABORT 92084-15065 Rev.5010 <880525.1813>/SRC_92084/R5010/KEYS.FTN ; AuKEYCOMMON BABORT  qWEXECXLUEX DRAWKEYDISPLAY92084-15065 Rev.5010 <880525.1813>/SRC_92084/R5010/KEYS.FTN ? AuKEYCOMMON DRAWKEYDISPLAY11{.DADXLUEX .EXIT .SBST .SSTC DISPLAYFILE TRIMLEN INTTODECIMAL1MMp`( @fAph%fhp`pl-A6pfffDf22^NPpfAXAf^88l() d( 2ll1 mDD K &d@ Type: &dJ &d@ -- Label: Softkey # J h m            l@Bao<<X/A>HOMEDOWN92084-15065 Rev.5010 <880525.1813>/SRC_92084/R5010/KEYS.FTN < AuKEYCOMMON HOMEDOWN .DADXLUEX .EXIT .SSTC <<!!p`( 2>4:48@46<!@!?(<22+% F l &a17y0C HGFJLNP2@g==X >DISPLAYKEY92084-15065 Rev.5010 <880525.1813>/SRC_92084/R5010/KEYS.FTN = AuKEYCOMMON e DISPLAYKEY77 .ENTR .CPMXLUEX .EXIT .SBST .SST.SSTC .LBT TRIMLEN INTTODECIMALR 7 Normal Local TransmitCCCCCCCCZ[GGA`( @p($@p`p逈$@p爈`@p@#@p APA p@p]GGp`(p`݀@pHDh  (~(~A` p(88ʊ(c Ap`݀@߄p H`( pA ((`p<<""`pDJ Ap(<rr=qBB K D Z Y y21C &am   P    r 80Q ̀r@[>>X.[>DISPLAYFILE 92084-15065 Rev.5010 <880525.1813>/SRC_92084/R5010/KEYS.FTN > AuKEYCOMMON DISPLAYFILE XLUEX .EXIT .SSTC HOMEDOWNTRIMLEN IIK((p`A(IZMWMUOMSK(IYQKJIAp($Y(&IOO+00 Current file is &dJ file: &a16y78C m U TS R @V XZ j v O@@@XeO>SEEIFMEMORYLOCK 92084-15065 Rev.5010 <880525.1813>/SRC_92084/R5010/KEYS.FTN @ AuKEYCOMMON ISEEIFMEMORYLOCK P.DAD.CPMXLUEX XREIO ABREG -$mhJ Bl&a25r0C S&a00y0Cmd_\\800pKM#K LFD/JDH3K(8hIX (B`Np\F  @t4--Xb>/KEYCOMMON/ /SRC_92084/R5010/KEYS.FTN - AuKEYCOMMON A0``A```A``BP ```// /  @KYDMP.REL::RTE_6:5:7:128 644 0 0 3400 5310707341 34420 KYDMP.REL::RTE_6:5:7:128 $KYDMP REL +#+#+#c UFST ;;XOc>KYDMP 92084-15067 Rev.5010 <880224.1720>/SRC_92084/R5010/KYDMP.FTN;ss~?KYDMP .NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN skk4EXEC .CPMXLUEX .FION .SBST .SCO.SST.LBT.NFEX .IDLP .MBTFMPREPORTERRORFMPCLOSEFMPREAD FMPOPEN SPLITSTRING DECIMALTOINT CASEFOLDTRIMLEN k~~$IID(`p`pHhP((p`ph (p J A A(ڀ(~DD(p(A A(((p((88(š(p(Ap)((((!  zp`z(!`pA 0(`p(hFF!A(h`2{z(p`p>{z p `z(`(Z`P0hX 0(Z` pZ( 88(8p`p66mch{z p `z(` pAu( 88(b}A{z6`*KYDMP [-LM] [terminal_lu] keysfile!!P AA*zA!::""ros M L ?v?P0468-:@s(sA`Ę`({~JCAA(`˜&(({(L PP(s(L9T`0(֨hA ( Ȅ(cŃ  ( 6Q(-FF#( ( `D@ `P( (     (R6Ha @Hb 0 @h (]H(/'6DD`({A(H ( (A@  (ր(Y(E0(8 (2`H\(hoHX(y (gnzJJK_ ׈ 0(h5(`!(%,>  "?JJԭ33@oxA@ \ *+012@p??@J~~<< 鈁" h(((8  P80'h X͈0 Ո'>0~~~u<<<" (D  !>ֈ0TMhT[M0iah@(8ih~x>>(h( h0i{P(%``(`` [  [ qh`~~<<(`@Ā (hԈ8Ј8(PԈAx p鈀0p0逈׈P8`0s8~??P@ X8p@@;5@`( H( ?;` ( (Hư8%p2`,%?;`;B1DD,@@2?;  (F? (B`ˁJ{   KP`Kh`(AklsuyA(k`2?`܅?uAA@(|`̨J`(}`5 (h (iT鈈PǨPʈ( 鈀" L AAb.. wyx?`.iA@23P@@X? Ț MPRDV 92084-1x068 Rev.5020 890117 Mux Pre-Driver /SRC_92084/R6000/DV800.MAC@ 9MPRDV R$CIC$YCIC ||??@8ـP(/p0@.p@=p@=ph0H/x1D(ƍDŽ@H< H:;H 1`@p@p`0(@`(40p`@>p/`p (  @|@$C?`.iA@23P@@X? Ț MPRDV 9208DV800_1.REL::RTE_6:5:43:128 644 0 0 25400 5310707343 35160 DV800_1.REL::RTE_6:5:43:128 $++DV800_1 REL +#+#+#+iSULFST 0If,Gen6,T=30000,B If,Gen6,GR=HP_Term:0,X=26,2,0,170b,100001bIf,Gen6,GR=HP_Term:1,X=16,2,0,171b,100001bIf,Gen6,GR=HP_Term:2,X=16,2,0,172b,100001bIf,Gen6,GR=HP_Term:3,X=16,2,0,173b,100001bIf,Gen6,GR=HP_Term:4,X=16,2,0,174b,100001bIf,Gen6,GR=HP_Term:5,X=16,2,0,175b,100001bIf,Gen6,GR=HP_Term:6,X=16,2,0,176b,100001bIf,Gen6,GR=HP_Term:7,X=16,2,0,177b,100001bIf,Gen6,GR=Term:0,X=26,1,0,170b,100001b If,Gen6,GR((=Term:1,X=16,1,0,171b,100001b If,Gen6,GR=Term:2,X=16,1,0,172b,100001b If,Gen6,GR=Term:3,X=16,1,0,173b,100001b If,Gen6,GR=Term:4,X=16,1,0,174b,100001b If,Gen6,GR=Term:5,X=16,1,0,175b,100001b If,Gen6,GR=Term:6,X=16,1,0,176b,100001b If,Gen6,GR=Term:7,X=16,1,0,177b,100001b If,Gen6,GR=HP_Printer:0,X=26,4402b,0,130b,1 If,Gen6,GR=HP_Printer:1,X=16,4402b,0,131b,1 If,Gen6,GR=HP_Printer:2,X=16,4402b,0,132b,1 If,Gen6,GR=HP_Printer:3,X=16,4402b,0,133b,1 If,Gen6,GR=HP_Printer:4,X=16,4402b,0,134b,1 If,Gen6,GR=HP_Printer:5,X=16,4402b,0,135b,1 If,Gen6,GR=HP_Printer:6,X=16,4402b,0,136b,1 If,Gen6,GR=HP_Printer:7,X=16,4402b,0,137b,1 If,Gen6,GR=Printer:0,X=26,4401b,0,130b,1If,Gen6,GR=Printer:1,X=16,4401b,0,131b,1If,Gen6,GR=Printer:2,X=16,4401b,0,132b,1If,Gen6,GR=Printer:3,X=16,4401b,0,133b,1If,Gen6,GR=Printer:4,X=16,4401b,0,134b,1If,Gen6,GR=Printer:5,X=16,4401b,0,135b,1 If,Gen6,GR=Printer:6,X=16,4401b,0,136b,1!If,Gen6,GR=Printer:7,X=16,4401b,0,137b,1`SIf,Gen6,GR=HP2635:0,X=26,4002b,0,170b,100001b `TIf,Gen6,GR=HP2635:1,X=16,4002b,0,171b,100001b aUIf,Gen6,GR=HP2635:2,X=16,4002b,0,172b,100001b bVIf,Gen6,GR=HP2635:3,X=16,4002b,0,173b,100001b cWIf,Gen6,GR=HP2635:4,X=16,4002b,0,174b,100001b dXIf,Gen6,GR=HP2635:5,X=16,4002b,0,175b,100001b eYIf,Gen6,GR=HP2635:6,X=16,4002b,0,176b,100001b fZIf,Gen6,GR=HP2635:7,X=16,4002b,0,177b,100001b HHXȚ5 DV800 92084-15070 Rev.6000 921103.1349 8-Chan Mux Driver w/slaves /SRC_92084/R6000/DV800.MACHeuC800DV800_START I800hh}$INPF $LIST $SCTB $SETP .CAX.CAY.CBS.CBX.CBY.CXA.DIV .DLD .DST.DSX .DSY.ISX .LDY.MBT .MVW.SBS.SBT.STIO .TBS.XSAh 5 hOxhH  h  (9 %??(`(,`8 ()HH(!   @눈Pֈ(܈P( (E(0(d ()P(偀 RDD(>`H`Hhjh(P`Ѱ`j0`(t8(^`ŀ(}`(^(]xZxux}P(p`a8:? 358<B&qHHD (H (y hxHP(HhH ((yH (@(HhPA(hȀèK[DV801 p PRMPTE I(AA@@({ A `@ p`ppለp֠ppp؈pڠpp`҄ h (Np@BBA@h`+  وP 0(( ( H  x҈(p0pZp x0>hҘQa@@`P`P`興HP!({ P(P(hh(P(oP(P(  ( `Հ(M@|||||N||xGG|||MM||M|MMMMMMN|ɨՀ(MÀ(N(Z(@@`ވ    (h@(GGxZ ZX A((ވ`A(MD(0( (N`AՀ(MZ^({AAA  `7/BBP(N 0䀈 0(N "%͘hjπ(T<(k=(m`P(s (k_(kHă`!(j@(s~~q@@(V(u8(khuxh(|pPP(>P(  (ss{#|@``(F(u`͘A݀`~F!@@(}(`Ę(((}(N PP(u(NAT`0(ވAh ((k΃  ( jaEE6Q(#( ( `ʁD@ `P( (@A  @@   (Z6Hi @Hj 0H @h@n`6AA H(e(7`(}A(P (' ('A@  (ހ(a(M0(@ (:hH\(hwHX({ (o cwJJvK_ ט 0(h5(`!(%,>}SS  "?@oxA@ \ *+012@p??@ " h(jp==((8  P80'h X0 Ո'>0" (D  !>ŀ0~~WQ<<TMhT[M0iah@(8ih(h( h刀0i}P~?<<(%``(`` [က  [ sh`(`@ (h88(ñ??P x p0p0P8`0u8P@p X8p@;BB5`@(H ( ?;` ( (H8%p2`,%?;`;,@@2?;A  (FH? (B`J*JAA}   KP`Kh`(klsuyA(k`2?`ㅿ?@(|`J`(}`p5 (h F== (iTPP( "( Ш @   `È8`ÀDD@h 򀀨@р(h ̀hۈo(҄̀PÈ(Hpۀ H l] AAÀ@(.  D D`5   xoHpH B(s`Ԉ1(E(XhꀈPlM??([    (~0(Q0` (SA(SA m`A ``䈀0pҘmhP(CCX(X.!(P(P}( (ꈈ`(`ۈ` 눀`p(~@(P(P(@ͨ|||.::```h  h(,hh` (hhɈ` .( `hLj .(ވPn`h `hɈ , @@(`!``m ۀ8`h 0A h(`.``шA P(  H,mICCH  (rhn`ip.8..`(RȈ(c(g`pf^i@P(hp(|hl(g(bh(| p Hb]]H`@ӨҀN  y{ 1dx@&\001C1p2C2p?@CR0SW ^`d0dWp0p1p2s0u+u-u0u5u6A.?iP @@@X1? Ț9 MPRDV 92084-1x068 Rev.5020 890117 Mux Pre-Driver /SRC_92084/R6000/DV800.MAC@ 9MPRDV R$CIC$YCIC ||??@8ـP(/p((0@.p@=p@=ph0H/x1D(ƍDŽ@H< H:;H 1`@p@p`0(@`(40p`@>p/`p (  @|@$BP DVC00.REL::RTE_6:5:15:128 644 0 0 7400 5310707345 34434 DVC00.REL::RTE_6:5:15:128 $DVC00 REL +#+#+#=UzFST ;;X'w@Ē/DVC00 92084-15073 REV.5010 <881014.1524>/SRC_92084/R5010/DVC00.MAC;33]CC00]CC01]CC02]CC06IC00IC01IC02IC06311 z$LIST $SCTB .CAY.CYB.JPY.LBT .MBT .MPY .MVW.SBT.XLA1B??5h(x] (h$P" `c#@&@h0%(  ()`!? hzȀ(l(Q!(8HywPwP#(! |?FF(D(Q Ȁ(S(P@H{(X[HyՈ`vP(t`} `~H`8  (((Q(i( x@(@  (g;;(0%$BP @(@&@2 ( @(((((ለ((((ለ((((툈((((((((ለ(('@"P"(0%h&ud??(h/(.(()B(h BX"(`*,( $`%`#(((`1h-(`0( \DD(Q`(hz%(P(`4(_(P3((  (0+`!(  ?}0\p8Nx8 Yppp0Xpp0+pjCBB Xpch[hZx'` @pxx#p5@@5(e(@(r ߀( (~ `#px5`8!$ `8a(&P&)j@@(p(!(H`(̀D``vP((#( @(z!(h5 ( @0p`8(  (h8 q<<($h5 (Ј$(c`8$(P"(hP$($P(PP"P (JP!((H`H`(h5 (r􈀸((rhH!#H8]]x^>>hX(((H`A8hPH`8(8`z h5 @(``"` (H`(?;;(E02(@(](($`H(`#X ``h5 @y(h5(r (n(o`"` @hHz@@!`vp`#0 #`!P (`!p ]`Ψ\_ h5 (h (P((((8<<(P"` P(ΈP(h' (ˈ0!h( H'(`5( (`"`+((`>(h'PX! (z||JJDVC00  $ ;@?h= ;p`p(@'pp##p `/SRC_92570/R6000/WHOSD.FTN;::H7MEM 6XSMBLK7DUPBLK8UDZBLK9UDNBLK:IDZBLK;IDABLK<IDNBLK:ssUWHOSD .NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN s".DCO.EIO. .IIO. .DTA. 4EXEC.CPM%.SIO. .FION .SBST .SCO .SST.LBT .NFEX .MBT2FMPCLOSE5FMPREPORTERROR3PRTNCLEARBUFFER TRIMLEN FMPPAGEDWRITE *IFBRK $FIXUPNAME ,FMPASKDDOTy;1NEWDIRADDTOOLD!INTTODECIMAL CONCAT0IDADDTONAME /IDNUMBERTOADD .NEXTITEM-MOVEWORDS +FMPINTERACTIVEIXGET )FROMTHEDIR&IDTOFILE(NAMEMATCH CHARFILL'MYIDADD #FMPDIRADDTONAME SESSNTOOWNERNAMEADDRESSOF QQ yFSTAT FMPOPEN FMPAPPEND LUOFFMPNAMETODIRADD DECIMALTOINTSPLITSTRING FGETOPT GETREDIRECTIONLIMEM GETST $SHED Q E~~=UDD 8] \b =GG W(g(j@pq E` PpKppp`(}(ƀ`p > > > D  > J    Gp  (A # ~}}@@(pp   3  H(h P D((` PpHH(h P C((` PpAh `  (h P ((($(  p`(ʄ($ > J   >  "}~~;IIpE  p`"h ($h ` A  Ap > ?  A ? ( >A(  >   A > 1  "`"(` PppKpE($` PppK#~J"GGApE E()p >E 0 >K(Bh B / F<` F@ pF(`G([L#"  - p"` VP"(Q(TpG([`"( 2[#"`G(gf#" + p"`"}}i@@( 2`(ppH(`(`@ 5p >}>G = p"p`@@ 5((`@ŀ@ 5PE hHH AH 5  (` G@p(pFh ; )  FE}l<#" >p( "p > >pT`TpJ` JpN`J((` N@Jp > >@ [h ZHJp >x ? ?@ >pR`J(ފ(  `J@Rp >~~BB >p`J@Rp > >p`J@Np > >pSS p"  '! S    %A 9"(hh*x`PEp >` >p >A"(&~rru'AA0 >(h#0 "$3 h @J   FS = p > >   >D % > I p > >  >D % >J` F  Y p >a#" >pP(`FpFr""IJ("Directory - ",A," is being used by ",A) "~~%h>>`J@R@ Ep >o >pŀhł p >` >ŀ >@@ ApQAQ Y((` YpQp`Q(p E`@ 7hJHRH EHňp >x ? ? >88 E(`Q@p ?p` ?(p D~~~%GG`@@ 60( `@@ 9@ 7*x`hXE hHH 6p >A"(0 >( `@@ 6p >#> "$ h @_  F  p > > D  > % > ~;;y A p > >  > AH% >` F   p >#" >pP(`FpF;**_("Directory - ",A," is being used by ",A," in a UDSP.") *R @@88 D(JpJ(`(` JpP(pP`0p >`H >(}` ?pM`MA@G X(2(2` WpM`@ 5hHMH 5p >`M@Gp @x ?&KJ >MH =P?L @E~~`M??(YM W(W(W` WpM(2(X((}AL (d(5(}`LA(}  #(q(z(zAh `  ` Vp"( 2(}` VpF( " UpIIpJ` TpO` SpN`J(~~~g;;(  ` R@Jp > >p`(|`J((@Op > > >p`ˆPE((|` Q@Jp > > Pp'PJh  0(|` O@Jp > >p` N@Jp >~~~AA > M@  > >p€`((   ! ¡   `K(A   (  `(( (|`H( `@ 5p >& J >GH =~GG =pI(`K(`@M@ 5p >)J>L =pI`I(J`H(&$& h ; !  FF 0 p > > D  > % > < p > > D  > % >` FH (j`K0H(Q~~ ZOEE(|(jh ;   Fg [ p > > D  > % >EJ` F  m p >u#" >pP(`FpF`IpIIpJ*h LXH 0(+#(p(~}}<<((` Kpp` Jpp`@ 5p >>G`@ 5p >, 9 H>G"` IP"h"  0(`@ 5hH 5 p >x ?-ȉ> ?`Gpp樊`@ 5p >}~~!@@Ӊ> Hp`(ي(`@@ 9@ 5p >, 9 H>`(((`@p@@Gp(pp`(`@ 5p >.> Gňp`(h*x`~MBBPE((`@@ 5pĈ` >p >/ >pp  J 0*`(.(: 2  !6  :  1>`P#hX$ 0(,Q F A% <$~~RIIU `PhX p >A"(g0 >p >`p ?` ?0 >(h ;   F ~ p > > D  > % >  p > > D  > % >` FJ   p >~00#" >pP(`FpF*(p((0OO{99("Insufficient free memory for the open file table.",/,"Whosd must be sized up to match the free space of D.RTR.")OLLAh <{H F` F pF( "`F( "`0(`(h ;A   F A p > >   > AH% >` F (h ;A   F A p > >   > AH% >` F ( `( h ;rr AA   F EH` F ( h ;    F E` FJ   p > !#" >p2 &#" * E`Fp3A /4 2 5 6" `"pF2 =#"(r G``("LU ",I2," is not being used.")("No users of LU ",I2," were found.") (A," is not being used.") ("No users of ",A," were found.") ("File - ",A," open to ",A)/ ("Program - ",A," is RPe ]]d from LU ",I2) ("Program - ",A," is RPed from ",A) 1 ) ( ("LU ",I2," is not a mounted CI volume.") owcxrwox("Usage: whosd [-t] [-m mask] file|directory|LU") .DIRTM: ?h ?a KK@J@J?C %! 02)4%^)1. ,"MTBGE O  #tP@D"U<<XdZ,NEWDIRADDTOOLD92084-15076 Rev.6000 911122 /SRC_92570/R6000/WHOSD.FTN< NEWDIRADDTOOLDk.ENTR BLOCKTODISC .ASKD NEWUNPACK BBs##@p* *`.p*`&@*@ B@::XԑNEWUNPACK 92084-15076 Rev.6000 911122 /SRC_92570/R6000/WHOSD.FTN:bNEWUNPACK  K^.ENTR LUOF //B @@B/  @77X LUOF92084-15076 Rev.6000 911122 /SRC_92570/R6000/WHOSD.FTN7 %LUOF  .ENTR |> A p`?@,::XFIXUPNAME 92084-15076 Rev.6000 911122 /SRC_92570/R6000/WHOSD.FTN:X0FIXUPNAME @@ L.CPM.ENTP .EXIT .SBST .SCO .SST FMPNAMETODIRADD TRIMLEN FMPBUILDHIERARCHFMPPARSEPATH@.OO`0p.`p.`p-K,,,,W-((_Ap,,,A(lA(v(v,,A  {/,`,}(/0))mU / ?? CG W )@#2A99XIDTOFILE92084-15076 Rev.6000 920319 /SRC_92570/R6000/WHOSD.FTN9 34tIDTOFILE }}M.DAD.DMP.DDE.DDI.DCO.ENTR .CPM .EXIT .SBST .SCO .SST.SSTC .CBTFMPENDMASKFMPMASKNAME MASKDIRADDR MASKDISCLUFMPNEXTMASK FMPINITMASK CONCAT INTTODECIMAL FATTENMASK}ÇTRIMLEN .ASKD IXGET hGGhi@jp`@op~n(p(`hpwwl`lpcl)xd`hpwwpeclfhf@whe@AwLLwhd@A@w`pbn(r J  (`b(ܡ cA   (`p`h(((wbD w (wDbb ~~4IIw(( ( wDb wHA (wb Aw  jlkll(p*jl(pl(pn(\Aqp(T(Tn(Hr(CBjr~ccD33Fjsppp@@~pww([Wjpg`gt(oA`(c(o(oijlj`pg(Y($sjnpg(YcLL=00/@.@.GL:::6 @.@.GL:::6/ :::::6GL  @@ @     #L@4YS::XmFROMTHEDIR92084-15076 Rev.6000 920319 /SRC_92570/R6000/WHOSD.FTN:{ FROMTHEDIR &&&.DAD.DMP.DDE.DDI.DCO.ENTR .ASKD IXGET & GG `g@ pd`k p__p`jph)x`i p_&_hp-h@e_hA@__h@_p (\pc`@@d@&&P(T(X(X`lp` 88c(Jp(V&ie#@;;X+,MASKDIRADDR 92084-15076 Rev.6000 920319 /SRC_92570/R6000/WHOSD.FTN;AHHDONSROUTTEMPBUFS MASKDIRADDR   L.DAD.ENTR ::z""A`+@@`*  $CA*B$$h)H@$: $)n?D @W(`b(ܡ cA   (`p`h(((wbD w (wDbb %LGTAT::RTE_6:5:18:128 644 0 0 11000 5310707347 34255 %LGTAT::RTE_6:5:18:128 $4%LGTAT +#+#+#UFST 77Xc~( 8LGTAT 92084-16166 REV.6000 920904 /SRC_92084/R6000/&LGTAT 7 -LGTAT ;; $CVT3 .CMW.DIV .DLD .DST.MPY .MVW .XLA.XLBEXECGETAT IFBRK RMPAR ;DDA"hC0hp* p+ `* p*`Ypp-pbpep1p3p5p4`p.`p/@.p0`+A(3,Y*^3Y*`8-,`,(>8584(Gh4H3 (Eh4 zD==x3 x4h+ (P8.(8-(3hjxaPf(`h~X(k`{w@|@vp}`|@b(k`b@}(`YP(`ph~X(`@Ai p`w@vU??A@ @p`@b(`b@(`@b(`b@(((Pg(Ps((hxhb (hx@@p `pw08 x`p`-.<<w08`p8A `w088`0׈`(h@x@88@`0`(`b(`k(`l(`b(`m(`n(`b::(`t(`u(`b(`y(`z(`b( `o(`p(`b(`(`(`b(`(`hb (#heHZxe(&heHixehdHeA a`eP_(Ehb X/(((n`ephb6CC (03LEHsv" @ az}  ^& `` THE LS TRACK(S) START AT TRACK OF LU AUXILIARY DISK TRACK 0 1 2 3 4 5  `` 6 7 8 9 TRACK ASSIGNMENT TABLE & =PROG ^ =SWAP -- -- SYSTEM SYSTEM FMP FMP GLOBAL GLOBAL CC$k00 LG LG ENTS ENTS LIBRY LIBRY ARE UNDEFINED C kxxxx -xxxx xx0 Tracks same as above. @ɟ 3 4 5%MLLDR::RTE_6:5:52:128 644 0 0 32000 5310707350 34443 %MLLDR::RTE_6:5:52:128 $4H4%MLLDR +#+#+#48UFST ;;X9 ;ZŲ7MLLDR 92084-16361 REV.5020 <891222.1333> /SRC_92084/R5020/&MLLDR ;zzW #MP.M  #MT.M  7#MX.M  #PG.M  #PT.M ADB.M <BAT.M CLN.M {CMN.M  CP?.M hCSV.M >CTP.M CUR.M ?DBG.M  DFG.M 3DN?.M |DND.M zE DSG.M  DST.M  DTK.M  DUN.M  EDG.M DEMA.M GEMF.M iESV.M  F2T.M 4F3.M:F3D.M 9F3S.M  FBP.M  FL1.M  FL2.M 5FL3.M  %FRC.M  HI.Mzz  HST.M  HTK.M BIAD.M  INC.M IPB.M IST.M  IX3.M VLDN.M MLGO.M uLOC.M  LST.M  #LWA.M "M.AB1 M.BOR M.BRT PM.CMD M.CPN zzz^hM.DMN M.DRD M.DWR M.FER  M.FLS WM.FPN M.L20 M.LRD  M.ME?  M.MSZ M.NMR 3M.NXT M.OER M.OP? M.PNM M.PRR M.RTN zzzM.SCK M.SLD OM.TST MM.VER wMDP.M  MFG.M AMLLDR  MLU.M }MND.M  MS#.M  "MSF.M  MST.M  MT#.M  MT0.M  MTK.M @MY#.M  N12.M zzz N34.M  NM5.M NOD.M  NOT.M xNPT.M  OPC.M  OWN.M  PFL.M ;PLS.M CPRC.M  PRI.M PRM.M PRX.M  PRY.M EPSZ.M ~PTH.M  RES.M zzzv$SEG.M SF1.M =SKP.1  SLF.M 2SLG.M SNM.M dSRC.M  SSZ.M  STR.M  TDY.M  TP1.M  TP2.M 8TP3.M  TYP.M  8URF.M FVMA.M CVMF.M zIVSZ.M HWSZ.M JX02.M KX03.M }}A6m#SN.M 1$LIBX $MBGP $MCHN $MRTP $NBGP $NCHN $NRTP .DAD.DIV.DLD.DSBR .DST.MPY.MVW).SST.XLA{?AL.L ^AFW.M oBST.M nBTK.M 6CAD.L 7CBP.L $CDP.M CEN.M }CLCUC }}}ٽ3CN#.M CP2.M 8CPL.L 5CPT.M DBF.M DLU.M 9EBP.L EMA.L ~EMD.L EMH.L \EON.L /EXEC*FMPERROR&FMPFILENAME "FMPOPEN -FMPPOST #FMPREAD %FMPREWIND 'FMPSETIOOPTIONS +FMPSETPOSITIONIB1.M } IB2.M IB3.M !IFTTY :IGN.L OL.BUF NL.CLS SL.JSB L.SER1;LBS.L [LIB.L LNAMR |M.$EyM.ABR JM.ADD 2M.BDF lM.BLK aM.BRK ,M.BTK .M.CL1 0M.CL2 M.CMDSTM.CPG kM.CPY 4M.CVD <M.DBG F[dM.DRK rM.ELT vM.ERR zM.FCL uM.FLR pM.FTK WM.GTM MM.IFX wM.LEN LM.LUN iM.MAP jM.MID bM.NOD xM.NTM qM.ORD gM.OTB M.OVY M.PLN M.PMT M.PS1 M.REL cM.RN2 M.RS? RM.RST M.SNP fM.SOT eM.SPC sM.SPR M.SSN tM.STE XM.STM VM.SVL KM.SYE MBF.M ZMLS.L hMOV.M =MSG.L NAMR.ST NBF.M PNDP.M >NM1.L ?NM2.L @NM3.L ANM4.L QNO.MBNOR.L NST.M CPGT.L DPRI.L YSAD.L ;; ESEG.L SEGLD `SST.M UST2.M _STK.M FSYM.L GTH1.L HTH2.L (TRIMLEN ]TS#.M ITSY.L ;g2MM5@(1 `O.`LPh  (`3(f wy|}~(x(P{(qPz(t`p`s`v>>` A#  D@p``hh ( (6x2A} pphxhxX(X(X(X(X(X(X(4X(X(X(1X(CKKX(X(X(X(X(X(` 2P(3Xr(Xs(Xt(`3H(` (D/ ( p(3DITRSLLIECRESEMSFOEN/AAB/EEXLONASY*?? READY AT ,BB  ``(` 8(` (/h@xBh x@hVxA xV 9hBx@hAxV(3 9(3p(p %(3P 6(L@p;p pMHpBp>(`PZ(jfJIIN(h` .hPHf(QW- IL CMD |  a k(`PW(u@`G@((3hAH &gttt(3hH `G@ HVHXG(3H(np\` (`hUA k(n8f@`P~~DDDp$@8 xP8 (p pgh3 (@`3( (P &(P (P (P(n0HpBp>( vh``3(p 7`wPq(pzAJ )uX `ꈄ@ -hqJ )xX `@ -~KKAhqS(}p8@p9H,8g(8 `m@2`_ JD]@`h5@H (`7 `H @T `UD phQH (`H H(`H0 Apg` HP](HHp`` p_( p`` Hp_`  "BB()``p `_p `]p VAAdCDR`3(5D`; r8EHb`;(PH`2hUd`oHp`pp`lp` pj` )p `3h 64`jp ` /hmDde`ip9p\`hp8@(bP &(bP (P (P(nHR(3 dFF#  NODE$ M M.D.$LOC$ $LOD$ p| @ +p {h 64H` ,h 6f`|h 64` ,h 6Hf` ,hf(n`P(P(֨@ v(`ph3 (`P(4P&99(;P(;P興(7P([P刈(P(P(0nPr(`f(P 6(`P +((L0H.((` )P )(`P j(pQ` p|8JN` )pJ`pQ`|p hHx(3~~x<<P 6(ꄈPa(W(Lp 6p 7h 8x` /p2`(X(X(X(( p p ( `h p`p ` 5p `p ("`h x("0(3`0 5~?JJp& k(` H@p`FpAK7 & ` (W>(LX`03pXI`pF(3` 1P3(d`(xP(IA(tJ`X ` (hDXX`IpF(/hiLL (IP(IP(I`HpFh(JX ` (t(@@ros P 2`h HdMLLD((`hxPp !MM``hHf` +hfD`hfzA/ , ' )MLLDR ABORTED SEGMENT MISSING x x(xp *  ( hH x`(&A( p hf` (3`%`yVVD` h(u)( ^$@ `M(c( ros3"VJ x XDD(ah )XJ(_xJ(OhSA8 'gQINpMpppppNH`Fp X;(x h (xAL~  (D`@ pFW(` 1PZ(v` AP (v`("BBAp+ل`pF(O`>(`pF`(8B([(oP(vP(P(P(P 5(qhQpppڀA(#̡OD@p`hQဈ`(ƨeAA@`;(`P(鈄`P(8B(`D(,pBp>(p.8=(` (3` )hf p "(" `f( M`P( P( P( (` `&p'`%hy`( `'~~8DDH(v(y` (w2 B`N(?%4hQp pMDHp;pBp>(p;("A-GBhQANS*+P &(P (P (aP ((숈P )(P *(숈P ,(P -(f~qc;;P +((`+(EP(EP(EP (aP ((P *(숈P )(P ,(숈P -(P .(P(P (EPW(EP /(EP +(P 0((((  $``H8f?yqCC`?p@?`@a(E` (C@`D(Dp @h? p  p   2h 0p  -P +(@A(h-@(ԀhB ( H(sAp @hA ( -Ҁp/ BB.0/p H )hAH ,p0HAhAAH * @0  P(@ 4` H 3( pvj(D` (P ( k(Dh? p> p? p@`,h2f8v($`1h? p ` .h'f~~<#HH(`& (W-DU PGMc..3DUPLICATE PROG NAME - D<`:hy(cp 7`wP +(`;(a (Whz (W`hd` (a8~(a`hdDHeei(l (ghzx{` (l`}~eGkRRHp|?pwH` (`(v(E COM  TOTAL SAVE AREA H `^@ .Dp(Eh  (`=P @p #(` 8@h= X  @HH@x(`t(@3(Hh|`FhD@x|tl ((E``2A1`ހ$V`H'P9(E`~(`~@(E`@p`t(h|`FHhx|t(~JްBB/`~ (  (2`f`G`D`F@@3(+@pG`t(Ө?`4`84` .h@@f9AW-SV MIX@`_G<<(5((n(((2((((((H(q((((((((`hO X +xw(E`{pz`|p}`Opy(s` ((H8{(o`6hD4`Yh  `G@ &hH4(o8|(G)CCHD`Yh4`Y@ @ &h4(`````+,*0` @`~(`~(`Dp`tH(h|`FDhx|t(`(@x`C8@ +2EE@8`~(`~((Ed<p/  )  / ( )  HP9(E(Epx`h{ @ (@Ih`hf`hX`X1/ BB`13 @(E(E` `(E(E x h )xL,  ( k0( k`06(Ch x (AJB`h x 6`pG`h h )x p;,MBBDpBp>ppMp p pوDp` 5p[`Fp(vB%`hQp;DpBp>ppMp `(p( x x xx h )xL|  (hGHxGX j((EHpp[0a `p p J`h jAA j` H( pB` ( v` uHp p;pM` p[`; De( ( p[`f( ` (3( ` ( `=( `P(3P(3P ( P( P( (ENp[` ( ~( `f( S AAH`Fp x A xL   ( `@ DpFW ( ` 1( PZ( ( `pFH(`pF 9` %(P 7( +P<( +p 6p 7` .h 0Hf`p 8`2p /` ( A (- 顄 `h ; @@` p 5` pp  `@X<` +p x h xA x  00 :p A!  ( h `1A"     h ( 28row ` p B`h x  ` -r  ,JJ 1W-UN EXTp p }`3( j@` 0h nf x`FpL M  ( e`A@ pFW V( _` 1( _HPZ( _( G8 }`hfH( G`pF` } 9` /h vHf 9 oUNDEFINED EXTShC v@@ w NO UNDEFS `=( `P(3P(3P( P( ΈP( (  hDJ ( p ` P (( J ( Jp@ h  J ( J( `f  PPH( ,` H8 p` H( `H H( `H0 Apg  `; Hr` ( AJ ) X `XHAh^H -g  ` @(x3 .STAR @  H -8   ) c*| ))= " ?|*00)@ A } $Page "{-------------------------------------------------------------------} ""{ MAIN IMPORT %M*LIB::RTE_6:5:53:128 644 0 0 32400 5310707352 33734 %M*LIB::RTE_6:5:53:128 $5|5%M*LIB +#+#+#5}8V FST ;;X< hZŖ M.LIB 92084-16362 REV.5020 <891026.2253> /SRC_92084/R5020/&M*LIB ;zz#{#SN.M  ,#TK.M  GA12.M  HA13.M  JA15.M  KA16.M AFW.M kBP1.M  @BPF.M jBPL.M lBPS.M BST.M BTK.M vCDP.M wCN#.M yCPT.M  LDBL.M zzz 5DLU.M  DSB.M $DTB.M  BEST.M  ?ETB.M  AETK.M !FWA.M  9HDK.M  LBP.M  8LDK.M M.ABT oM.ALC M.BDF  M.BLK oM.BRK M.BTK M.CL1 zzzǮM.CL2 -M.CL3 'M.CL4 M.CPY +M.CVD AM.DBG PM.DRK M.ELT M.FCL M.FTK  M.ITK M.LIB LM.MAP M.MID |M.NOD XM.NTR  MM.OBP zzzfM.ORD M.OTB  #M.OVF M.PMT M.RST M.SET M.SOT M.SPC xM.SRW M.SVL  M.TK0 M.TRW  <MD#.M  ;MDL.M  9MDT.M AMOV.M  >MXM.M zOO2uNDP.M yNO.M 0SPS.M #SST.M ST2.M  XSTB.M "STK.M  -TKB.M  .TLU.M  /TS#.M vTSZ.M O||$CVT3 ($DVPT $IDEX $LIBR $LIBX )$SBTB !$SSCT "$STRK q.DIVs.DLDt.DST.ENTR r.MPY.MVWj.SBTw.XLAv.XLBu.XSAlALC.L mALS.L &CBP.L CLCUC QCLN.M oCON.L VDBF.M DBG.M |~~5y$DFG.M IDSG.M >DST.M ?DTK.M @DUN.M #EDG.M 'EMA.L FEON.L EXECfEXT.L TF3.M[FBP.M ZFL2.M FMPCLOSEFMPOPEN FMPPOSITION FMPREAD FMPSETPOSITIONFMPWRITEGETAT 2HI.M]HST.M \HTK.M ~wIB1.M IB2.M IB3.M gIB4.M IFBRK IFTTY *IGN.L RIPB.M ISCAN <L.BUF +LBS.L LDN.M JLGO.M LNAMR nLOS.L 3LS4.M 4LS5.M ,LST.M kLSV.L %LWA.M 8M.ADD NM.BOR HM.BRT MM.CPN BM.CPS yM.DRD M.DWR YM.FER LM.FLS M.FXE CM.GTM hM.LDF ;M.LUN :M.MAT WM.ME? AM.PAK DM.STM 9M.SYE GM.XTS UMBF.M SMFG.M EMLS.L MY#.M ^N12.M _N34.M .NM1.L /NM2.L 0NM3.L 1NM4.L `NM5.M ggNPT.M -OPC.M =PGL.L PLS.M aPRC.M bPRI.M XRBP.L pSAD.L KSBF.M SETAT 5SGM.L cSLF.M OSRC.M PSTR.M iSYM.L 6TH1.L 7TH2.L dTP1.M eTP2.M TP3.M g~~*JJA FZ J /MLLDR: _?? - @Dxd W DAx$xe &WA ,gWA' 2 Wp @h$ (<`Z NX(=D` p, q bH c @0 dpVAO~p3JHH WTP `- osw 1 Xpk(l@(lAekPր(l8X`kX`n(NA r(Ho8w(hxy`w`! @g|8EA@u r KH@pzxxNAA@ Kpyhw@ C(((hzH H(0hyH p7p!DhwXp5hI p 8gAwx@Dp.pJpcHp+hzH I@B (pH Ep JH C@p H Gp` J q /7;==p Jx K`  ` 2p` 1pA` 0py@KhHy`P(6h8y8`yP((`@ F xyP /(p(p8(  Qp qxy hHyxy RHCCp : ;K 9 :hHy`("p 8y8`P(6`yPH(.h78y(8 :8 :py@p(paHpv`ipA;Bbyav ([D`y@piCKybH(L` OPw@(<OSAAXby`(c(<`pip|H@M`f(N `w(huHv (`vPu( MhzH GHplpkp&`〈pjpgH`&plpkgH`&pk(AO( M`lpk@p&HH`pjpg \O֨AOAA ^O \ fAO#Pp{ApCCa(I8{AA \PD5pQ PQPQR(`Hh7x`R(5`(8 GyH#ph7A`-8 Gy@`h71AA`-(Eo(``0#ph78ӈ(/-`(A8? GyH#ph7`-P{(pˆ`p q /p Jx K`ɀp(}p @ ` 2P?@(c` 1P>(cv`==H`@P 5(k` 2p?` 1p>HH`@p 5hH 0`P(up XÈ(p(|`(}p`{(`p`㈀p(`(`(p`p(`(@ qxɈ@p`( >>`{(`(`@ qx@p`h FH`h GHp@ p ꀈ(Wpp p( VV`p`!@@ F qx@#pـA`" r /@pLL$LOC$ $LOD$ .CNOD `(NH`7p xa@hI ( ("hS ("` =0 Qp`7p(`0`@ph =x8 = X >(x : x Gxy`ip;;'FF,byav (|`yA@piC5yb(L`xz Op`wP3(&@`4(&@ C r@؀hy (X8@hH% (h =X >(px8 =(^h7x^` QA0p:hby{`  QpA9smBBbyA CDxybz(&`Hpihy hx` =pÀp :H@M`(N` /p` p@`}h &@@@8@(`/h/H`6h U+@h=  (H@6@@7h V+`}pUHh0( xA U`80hP`(` @h+`Pj(ʈh+`k@@&(H@&h+`kh+`h"SSDP`7p6L`lPk(Ԉh+@&h+(H@&h+`O(* BP LINKAGE XXXXX - - ULOCAL SAVE AREA   SAVED NAMED COM CBB#&NAMED COMMON  *pm8**pg8**ph` @@[pi@lHpng`[Z`jP(Q`k@&(QhiH&`nxngZ`i@㈈pn`i@kZH(W`i@&pn`i@kZhm\ZDDPnZ(a([h[@@ @hmopm8osot@pXH@&Pj(8&h @HH[m`((p&HkxjX〈pk x(~pX M`㈈Pj(pj`lDEEp(y`kPl(@ CpjHp`lp&hjXpk(yM`(N@@uA`p <v< @H Lw@P^ (wP_ (@wp  Pp`` PP(8 <(8Av<`  KP`#P FRCC(`(N @x9H Mw KP IH3@w4(+w?H Hwp8Hwp7`p1Av1X9(# (%H Lw(#H F@wP@(%H LwP7(#H2@wP8>81(`5&&&`*(N`#`0(N ;&Y>CC@H6w@p; w@p< wp=` Ih:85>Y F<Z[P AqvpZw"@ZpZ` qxwJv!@p[h@\p[8Z\@x\P`w@Ux\??h8Pp`\xJw(@ qvpZJw)׈@ZpZ` qp[xww)@[p[h@p[8Z@pxP`w@Uh8Pp֨~~<@@x 6p 7$@p ꀀ` Qp IP G(H% (%p J&p K`  ( #"#V?> 5(`@p 5` ?P /( r\@] q /p\Hx](` 2P?(` 1P>H(`@P 5( ` 2p?~1 LLH` 1p>`@p 5HhH 0` 7P GP :` 6p@7@x7`I( `@ 9@x 9`\@ ( /( +` @]( /( -` HDp\` p]`2@x2~~ L@@p GH`[p H` @p L`p$p%p&` Aq /px@ LP( j Hh L8 H8 L( `p G` p$p%p&`  M`" r /@#p`"Ar /@#@  q /p Jx K`!@7p (  ~  @@(  # "#V?> 5( `@p 5` J r ?@ K q /p Jx K` ꈈ( up Cx FH  ( p Dx E( @ Cp DH /x E` p\` p]` Aq /pxA @V D EA F@V C F @@`@ -P D( `P E( 쀈` E( ` D@ Cp D` /@Ԉp E` F( 䈈` C@ Cp C` /@p F( ` Cp?` Fp>H`@p 5` Ar /@p` Jp"` Kp# M Aqx 0@ K q /x Rx 1h FF!( H 0x 0@ Jpp @ -p 2` ,@8 ` 2h 1 A h -H ,x  0 . ` ( ;8 ,A 9 .  # = >` ,p <` -p =p D` .p >` /p ? p @ p A S F" 4 RHH!8 , ` ,Ar ? p 4 ` =@  D E w F . C F` E@ FP ?p E8 D` DP B( ` F@ FP /p F8 C` -@ ,P C( g` -  !  . ! GG I < = >` A r ?@ @ q /   #p p p ߈J`p wp ( 8 8 Aw( @v ( p ( 8 v ( H Lw( ( H FW( ׄ( vx ݈` h ި ը FF` ,0 Qp , H , - . /` ,p ,P -( ` ,Ar / @ 4(   I , - .8 ,H( ` .p@` -@ ,p +8 3  ` 3( ` ;h ( ` ,@( @ ,((p ,( 8 ,8 ,(  WAITING FOR DI__y 'AASC SPACE 6 @ ??.MLDB UU o*ܠG 00 _@ ,%COMPL::RTE_6:5:28:128 644 0 0 16000 5310707353 34176 %COMPL::RTE_6:5:28:128 $%COMPL +#+#+# VBFST ::X{< ZCOMPL 92084-16524 REV.6000 <920908.1750>/SRC_92084/R6000/&COMPL :ss~ aCOMPL .NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN s_!.EIO. ".IIO. #.DTA. EXEC.ENTR .CPMMOD .FION .SBST .SCO.SST&.SSTC .INDX .LBT.NFEX .MBT)PRTNFMPCLOSE FMPWRITESTRINGFMPREPORTERROR(FMPRUNPROGRAM $TRIMLEN 'PUTINCOMMAS nn0~RCPAR CASEFOLD%FMPREAD FMPOPEN FMPWRITEPURGE SPOPN CLOSE CREAT FSTAT LUTRU IFTTY GETSP DECIMALTOINTFMPWORKINGDIR FMPPARSEPATH INTTODECIMALLOGLU nL``COMP00cSMP Compl: Rev.5010 <920908.1750> Compl: Inform system Manager. /Compl: Warning, spool disk is getting full Compl: compilation is proceeding normal;c``lly Compl: Warning, spool disk not mounted to this session Compl: Warning, spool disk full Compl: unrecognized language Compl: more than 80 spool files Compl: errors in compile ``Compl: input error Compl: end Spool file = COMPL source list reloc [compiler] [options]FTN7X MACRO PASCL PASCALCBASC FTN4X ASMB FTN4 FTN77 FTN66 $FORTRFTN $PASCACBASICSPL COBA##U#L SNOBL RPG HPC CC MICRO MICM HPAL #((Va (xAee (@ pvte @vf(~~xEEA Ah `  h `  h ` A h `  Ah `  p  ppΡ  zΈAh ` { o  " p" pfp` @΀p~~~ߠEE`(  p(       p` P(ބ( H` p  p`(@ p(1h yP ((1 (p , ~~~HH (0 ,p , (0 ,p ,A (0 ,Hp ,h uP 0 ,(* @p(0A p(p` @p -p` -(_p 9` A@p , ,  ,A , (L~~~BJBB([([` p` @p , ,  ,D , H88 9(=`(ޡ i#" tpȈ` P"(n(xr" v#"( (` P"(|(h yP p ,A 0 ,( ~~~ BB#"  tp`"(" #"( (" #"( (`"(" #"( (`(#"(#" p (~=BBp ` ((`p ((  Ĉ` h p ` 耊ppA# ( `€@ P ((pÈ( ` p` @p(`(nEE  p  p(`@ p`@ ބp ,- t,#  `,@*A (G(G : p @ p F pp` p (P(f~~TU??Wpa#"  ` P"(e(i`p(` P"(m(| r p x p` p(` P"((  p  p` p(`"(~REE" ` p(p(K`(#"# (#"`(# (`p`p`p܈`p  ~Aph !  t 8AH"#` 8IIJ$ p` p  p`Hp ,h wP 0 ,(* ̀(p , ʀ(A0 ,p ,  ( 0 ,p , (0 ,p ,h uP 0 ,($A ~~u"DDAp(*  p` p 0 pp!`(]p`!p , (@ ,A(] , t` o@ qp p , o(U(Y(Y`p` p!`p(8`!( h#" ~~~ fFF tp`(x q" pv#"( (`"(" ( %#" op`"(" (   p` p 7A , A , (((A , A o , ~~~EE88 7(p`!p , ( ,A( , t` o@ qp p , o(((`p` p! rAp ,  ,h oX 0(p` rP((` p` ~~~+BBP(( (((` p(` p`p(#"`"(" ( `!(` o@ qp pH o` p "  p`(* D H` Ph ~^3OOX h (Bh ` A  $E p`Ap , , t ,`p . . t .H`p 0A 0 t 0`p 2 2 D t 2& r r , . 0  2'x ${ p , @ t~~@@ A ,p , t( , p`( ` P((((( `(((   p( ` P((` op` o@ qp pH o(.(` rP(~}}@@(` p` o@ qp pA o(.(` oP((`(p` o@ qp pA o(.(P((p` op` o@ qp pH o(.((   p(  }MMr ** p(   ~p` p`( ( A     |p ") % ) o  , oM! BRRRU, ,, 0 , Compl: type 0 file illegalROSQ- BAS MAC PAS FTN (I2)wos .LSTwcs :NS 1 rw c  r4  h  $b B@r $@ @r @ @< EE @4@t  4D  * "8 V,t @H( @,         00W( "&-.' QP|?8000@ap` p 0 pp!`(]p`!p , (@ ,A(] , t` o@ qp p , o(U(Y(Y`p` p!`p(8`!( h#" ~~~ %CLOAD::RTE_6:5:33:128 644 0 0 20400 5310707354 34113 %CLOAD::RTE_6:5:33:128 $!!%CLOAD +#+#+#!P'V`FST ::X{} ]ZCLOAD 92084-16525 REV.6000 <920908.1749>/SRC_92084/R6000/&CLOAD :ssxCLOAD .NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN s{{ ".EIO. #.IIO. $.DTA. EXEC.ENTR .CPMMOD .FION .SBST %.SC .SCO.SST(.SSTC .INDX .LBT.NFEX .MBT-PRTNFMPCLOSE FMPWRITESTRING,FMPPURGEFMPREPORTERROR*FMPRUNPROGRAM {TRIMLEN )PUTINCOMMAS FMPOPEN +FMPUNIQUENAME RCPAR CASEFOLD'FMPREAD &FMPBUILDPATH!FMPWRITEPURGE SPOPN CLOSE CREAT FSTAT LUTRU IFTTY GETSP DECIMALTOINTFMPWORKINGDIR FMPPARSEPATH INTTODECIMALLOGLU ``COMP00cSMP Cload: Inform system Manager. Cload: Warning, spool disk is getting full Cload: compilation is proceeding normally Cload: load proceeding normally Cload:c`` Warning, spool disk not mounted to this session Cload: Warning spool disk full Cload: unrecognized language Cload: more than 80 spool files Cload: errors in compile Cload: inpJJ55ut error Cload: end Spool file = CLOAD source list reloc [compiler] [op((tions] [ldcmdfl] [loaderJ^^ EEFTN7X MACRO PASCL PASCALCBASC FTN4X ASMB FTN4 FTN77 FTN66 $FORTRFTN $PASCACBASICSPL COBOL SNOBL RPG HPC CC MICRO MICM HPAL ^((eY E( A S(@ \p  S@ (U HHA Ah `  h `  h ` A h ل`  Ah `  h `  h ` A h ̈́`  pD>D pBBbpb G bh `   SS B Fpa6TDD Xbcpd\cp` Y@bpb`B(j h p(  m y  Ja`_ | p^ ֈp]` [P](( H` pDD pA`A(@ @~~=HHpA(( (((ڄ( 0(p  .(A0 p   ,(0 p  *(0 p h P I0 (A (pA(@ @pA(pT` M@Ap ~~~CCpF` (p >` @Fp  DF  >(((` OpT` ވA@Fp   F A <8F8 >(怊`T(   : p\` VP((! ( Ј(` MP~~~w8#BB(%(Rh P Lp A 80 (H : 6 p\`(GB F( Њ(QLP( (`(_Y ]( (`\(gf~leEE(ko [pK (xZp ` (K(`Kp KY((  RKX` ZXh Yp ` OpWpVA XVW(`V@ D~AAP ((pW(` OpW` @VpV(`W(  p  p(`V@ DpU`V@ Dp A  U F`@ ((  p  p ~~,AA ppF` OpT WF(T(EFp  Q ` MP((`FpF(D` VP((%  p ! p` TpF(D` UP()(8 .~5#,AA p 4 p` TpF(D`(B? ` TpF(DpT(`T(TLSS (X \`(gfS (`pK`p`pQmKK`p!u Aph K" 4 =AH#$` = pA` QpDD ؈Hph P Jh  0H(h P IA((  (pA% 2 &   J F F F@ (~~FJJ 0(p  .(0 p A ,(0 p  *(0 (@ (p&  & J F F FA (  pAh `    ء  ` pD~jEED pIpE`I(2pF`EAp  NF( (2 IH` FA@ p   (*(.(.`Fp` OpE`FpF( `E( = $ pH`H(I F p~~GGG( (Q`(QP ( 'W pG`XG 0(ed (  h pF` Hp < DFF "(x(( DF H 8F8 <(lpF`Ep A NF~~~iDD( A(  G` F@ p  (((`Fp` OpE Ap  R h X 0(p` P((` p` RP((A (Ј((` Qp~zNBB(` p`FpF(`( ( `E( d` @ p A ` GpDD p@`@A(   ` pD D Ԉp` pD D pC`Cp ~~0 LL ( 0 ( " HA( ,  ( (( ,( ,A A ` QPh X h@ ( Dh ߄`   G p?`Bp  H`Ap A  `p  ~~~ s `IIH `@Ap   A(  J ) z  }A p?  ?A%    p*  Έp`(   ƈ` HP( ( ( k( ( `( (  ~~~m CC ( `h QX p ` Pp `0  ( +      p>`(    A(   ( ( (   p(    p ~~~ KK p`(   ʊ(   J  Ԋp  ҈p`( (  @p  p  H`p A A   A( G   J) 8~ 7DD  ; Єp D %   L p* R  p`( [ Z ( Ѐ`( _( ʡ, b p(  i p( Ј` PP( o( |` p` @ p H ( 0~~7c {@@( ` P( ( ` p` @ p A ( 0( ` P( ( `( p` @ p A ( 0( P( ( p` p` @ p H ( 0( (   p~bb 55(   p( С  p(    p` Op`( (  N   p -A  A F  b ?] ~~l [\\Cload: errors in load Cload: RU ENLI,PASCAL.LIB::LIBRARIESLI,$PLIB::0 0 CWSQ#CL RU, ,,LOADR LOLINKLI, ROSQREL - BAS MAC PAS FTN % (I2)wos .LSTwcs :NS 1 wrc |~~~^X DDRT |$X 8@|@@@@@R@R@T@@T(@  *v"8~~~  DD,,J?   $(*.26:<@DHL~00g ?PTV&-.' QP|?8000@a{  Ԋp  ҈p`( (  @p  p  H`%WHZAT::RTE_6:5:50:128 644 0 0 31000 5310707356 34714 %WHZAT::RTE_6:5:50:128 $22%WHZAT +#+#+#26VFST 88X}f  P0WHZAT 92084-16526 REV.5000 <861017.1116> &WHZAT::SRC_92084 8$CLAS $ELTB $EMTB $IDEX $LIBR $LIBX $MATA '$MAXI $MBGP $MCHN $MNP$MRTP $NBGP $NCHN $NRTP &$PNTI $RNTB $TIME ).ADX(.CAX.CBX".DIV .DLD%.DST.LBT$.MBT!.MPYEE!L.MVW.MWF#.SBT*.STX.XLA.XLBCLRQEXECGETST IFBRK LOGLU LUTRU NAMRRMPAR TMVAL E[[p;;A  pR)@@p.p/ @(&@J(&(`((xRT BG LB EB SG -;[C>??`9(iA@IhEHHh`9(d`p7h6xh:6x8h8p6x8hxh6X5(aX(a(d87(T(i`6Kh9 P8>A>rY) 8k`\EhYkp9p ` }<<h:Ek((PE(xRk((P(xTXX(k(P(PE(`nh:AE`ZP(:hDP+(hEP-(hkP/(hGP1(hFP3(x9( `AA(CpR@p`pT``Rh pR`ppi`R0 pR`p`U(i`i@߈ph(pT@p爈hx`hQ@4@5@3pH@4@5@30pT7@@@(@R(AR興`R0pS`7``N`TP(P( P( `h7`)p'p(`TP(6P(6@@(@p`(@(D`@@:DD(@pFp爈F(F(pVp @V@pW@(@J (@ (d@D (m`Wh (*@P(o8V(J(mhWHt(H(.'~==`((m@p@@hWxpW(qh퀈XD(q`pWpو(`pW(hXD`p퀈h (xWPD8 7(qp`'p((mpVPF{GG`Dp=(J@((A  7``WphXD(p퀈(`W'8'`)P'(XW(8ـ@ALPAPLPR SM  REV.5000 861017 @ 99\((** BLOCK **  ****((******* DEAD LOCK ***** SEE ABOVE FOR REPORT ON *9VVe*//@KKPE(7(ohM(o(m`hTX(o(m`D=  ?V~~B7}DDYrzREMOTE WHZAT NODE EXECW -- . *  x刀`WphJph`Phh`hGhthh`hJ~~~r<p`k`(B==PW(H`@# #h5H (`h O(`n`DhHphx`p8(`hX(huۈh` `EhM((߇`W'==@fp `r`p@pp@pp8(8 `6@(`p`E`ꈀ8`P(` (`Ip `l`p@>>@kpp8EP(48 `6@(0툈`p`EՈ``@KpP(` (C`xI G  `7`@(Ro(L@@McX]]A`TpTdGeeTR(mDOWN EQT'SsDOWN LU'S yALL EQT'S OKALL LU'S OK SWP P:  PRGRM T PRIOR PT SZ DO.SC.IO.WT.ME.DS.OP. .PRG CNTR. .NEXT TIME. OCCHxDh `A $(6xxD @$xhx6ڈ8xhx`ըh~x`}h}6H7`!BBh$DHvhva H@8@x!8`@vpv`/h. ("`0F`vpH@IhEhH`F`1 pZx$t:DD`i(VAGRZh(N87o7P(V`P(Vo(>A\RY(^7A%~`nP7(LpR@ꈈpS`_h}7h ` 7(LAjvi({@po`(y~FF _`::00hEhA4`p`p(`@p8(`HWpp``@H_BBx (pA` "x(҈P(0p88(Ɉ`0ը`(A hkA hEA hDAhDA DA @A HH @A DA 'd @ 0h  p(-hO(> #(G`( U` G( Bp` L( B@H [`  `` @V` P( r` @V` сJp Ј ``h R( /h @pvHE@@PV( Mg KKHF8v( @ }H   }hE [( ` E`hI( /` E( hEHHh`F `hE( / PTN# SIZE PAGES BG/RT SHR/LBL #ACT L PRGRM PTN-PRIOR -- RR SS CC L I MM ------  BG  RT SH  *  **  ` h7ppwp @p p p`@ Qp@tp @ p ~~~Q $@@A( &  ( )HJ pH @( >(  ` h@I 8AHJ pV pXވHx U@ M@8`P ( ^@H ( b U@ N@8~#k d@@`P ( p@H ( p`D( t@ U@  8 U@ O@ H xH `P H A@ꈈ`XPF( H PxHG@H xHO@pW @h P h ለPOh P h  @@`D`XP( H x`W `W( HMxPAH( p hx88`PJ @@p 88@` @D( !F@   CCA` pH ` p` ۀhV ` D`}h78( % 0#|h ( 88 ( 8w8 ` h9 (  \( ` h9 (  \` h9 XF( (~~j '@@ i   =`` M`w` M` ꈁ`  R(G p ( C8 A =@ ( B8 ( B& hX @  U` E`  v` ҁL~՜ gNNp  \` ƁE`  v` Lp  ipH T ( }( pH S ( ( ި v NAME TY PRIOR LADDR HADDR LOBP HIBP SZ EMA MSEG LBL PTN TM COM LU S-ID FREE LONG IDS,   YY FREE SHORT IDS, FREE ID EXTS <  SHORT BLANK ID> LONG BLANK ID> PE TE NC RT BG SSA  숈` h 7` h 7(H  BREAK RECEIVED, _WHZAT ABORTED  <Tpp`P(;l( P(P(( Pψ(P(,S(( i( PCDD( 8`@뀈p( (@(%P눀($P (h @p-A0:(`9p4A(%B p p(`p`pp>hX([`Y99P(ehxhHX(exHP눈TP(]h (]`(s0p``p(}`0p``ꈀ0plpphx(P( 9x<<(Xx P( P( P(  P(hHX(`x((h p(ˀh (xHP(P`Ш`숈(` (`c<h ̀X(1xH0h,X(=h X7D==(>A x  ( hX( X( X(  h`p( hxX( g  dpx`@ p 0h ( p׀怀@pH`( Hs ??h   @p@   怀@p@ш x x  h( @كԀ(  (  ͨ xx X( xꈀpJ >>0h X戈p0hh`@ xA x O O( ^@H؃ԀހP( XHԀp`@p Ԁp ∀ ( Xph@  :99( =H@׈0 ( X8( XhHp0  Pp`hH`h hH `( Vhx W( ghX W `XhHxHP눈( dP( dhP sAA ( d8 ` `0p  $P( ` xP( `( ` @Ԁ( `P( `ကp0׈phx`@P (  x0p8 y y FF@A ( `܈( `!( p8Ԇ ( H؃P( HӋԀ "( ŋԆH`Հ `  `  0Հ ` `ɃՀA p p8  CC} 88(  p p8 Հ 88(   8 x  8  8 (  C@h+4%READT::RTE_6:5:43:128 644 0 0 25400 5310707361 34273 %READT::RTE_6:5:43:128 $+T+%READT +#+#+#+GHVFST ((::Xl w2READT 92084-16568 REV.6000 <920908.1743>/SRC_92084/R6000/&READT :ss3READT .NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN s~~.FAD.FSB.FMPEXEC.CPMREIOMOD FLOAT .FION PRTNLURQDCMCDIRCV PTERR KCVTCNUMD IDSGM UPASC IFBRK ERRCK EOTCK NMCHK IXGET FSTAT MT1OK SIDGP NAMR~ b0LOGLU RBF n7``MTP PRG GRSIIHVECO READ 001 MAG TAPE DOWN READ 002 BAD TAPE FORMAT READ 003 LU LOCKED READ 004 ILLEGAL MAG TAPE LU READ 005 MT OFF LINE _Wx``READ 006 ILLEGAL DISK LU READ 007 PARITY ERROR READ 008 END OF TAPE READ 009 FILE OPEN OR READT'S DISK LU LOCK REJECTED READ 010 NON SESSION: LU MUST BE NEGATIVE READ 011 SIZE ERROR READ 012 MOUNT ERROR FMGR 0XX`` READ 013 SPECIFIED LU OR FREE LU NOT BIG ENOUGH TO MOUNT CRN READ 014 ILLEGAL RESTORE TO LU 2 OR 3 READ 015 PRIVATE/GROUP OPTION INCOMPATIBLE WITH EXISTING CARTRIDGE READ 017 INTERNAL28`` BUFFER TOO SMALL! READ 018 ABORTED BY USER READ 019 DISK ERROR ON LU TRACK READ 020 VERIFY ERROR ON TRACK READ 021 INVALID PARAMETER/READT: STOP RESTORED TO LU Ĭ`` CRN WAS SAVED FROM A TRACK, SECTOR DISKLAST TRACK USED WAS READT WOULD LIKE TO RESTORE TO A TRACK, SECTOR DISKIS IT OKAY TO CONTINUE (YES OR NO)?_RE ``ADT: EXEC CALL ABORTED CRN HAS BEEN CHANGED TO CRN DIRECTORY TRACKS MOVED FROM TO TRACKS REFORMATTED FROM SEC/TRK TO SEC/TRKDO YOU WANT &pX``TO OVERLAY CRN ON LU WITH CRN (YES OR NO)?_ DUPLICATE CRN LABEL OR LU ALREADY MOUNTED EOF ENCOUNTERED BEFORE DATA TRACKS DO YOU WANT TO OVERLAY LU PLEASE REMOU((tNT FIRST TAPE AFTER MOUNTING ENTER "GO" OR "ABORT":_(~~ĐDD -puA@ 9p ; - vpxqpvqvqvq`vp` 4p` 2p (vAqy ep` 5P((p` 1p '`@ ,Pv(~}}<<(`@ +p`@ *hv`@ +(` ?yP e(` `p`@ *hz(88 '(` `p(P( (`@ *hv` 4Ph eX (` `p` `P( 8}!DD8 ((` uPp,` TPp-`p`(4` Np`p`( @/`/(G` fpA` fp P( m( mS mp( m` lph 9p` @Ph =X e2e??( m` tpP 6( L` sP s( Ls r -( mpxq`( b` sp* P( x` eP( `,(` 9@p ! 5 !` 8A@p ! 5 !ppxq` Pppo V  FF( ppx p / /r`r( `r(  4p !A q0 !( `(p` pPh oX 0(p(p` oP ((pPh fX ~~FF(`p`.( 4 `(A n(( `p !A m !( ` lh 9p _(p !A k(0 !(  &pur`r( / V  ( ~:0==ppxq` p`&pJ (=(  Epq r`r( `h 0(\` @ p` f (Y(\`p` j p`Ph 0(`.(`~~mBBp2`p s2(yy`p2`p  2(  4 G`p `p`p`(`p`.(Np`/h( 5 / /~~== / /(` ?p`(` sp+(` ?P(( *p` fP(Ā(p 9 -`(p` 4@@ )P(` e@p`@ )(р( *p`@ ) ihP(` e@~~>>p`@ )(( *`@ ) ips`@ )p` fP(` 5@@ )P(( p` 4Ps( ( hp` 5Ps(( gp`('A$ -s [ /`pt(1/ -~~~kK*GGs - 0 /` pt`t@p` @  !`A ! !D` f  ! !h@H `D #` # !( A(\(v` @  !A` ! !hH ` #@`~~~qFF # !(`p2`p }2(` @ p `p ! ! 4 d 4 C 4 c`-A( 4~~~EEA b - ^ -` ]P(( 栨` @ h P(` @ @ 0p ! !-2A 4 _`P(BK 45 a`+0-(N 4x G~||EE`(sf`p2`p`  2(_A 4R _(!s! 4 A`p2`po (2(..An4 4i FA: - ^> -` ]P(H|YCRN NOT RESTORED=AAG 4 N( 6 /READT: CONTINUE H AN 4 [`-(W62 /READT: VERIFYINGOQ<  ( A 4 = (  4 < A(   4y ; z(  5   r`+( ݡ  4 :p+`,( ` 9@@p !kk[ ;; 5 !( ` 8@p ! 5 !ppxq` 7p( p1`*( p*  6 -( `0p`1p p!`o( p!   4 3  . / /A ! .kiiC )NN @RR "  -0@ @GOABCOVE YE(!? GRG 2IHi@77XEOTCK 92084-16568 REV.2121 820322 /SRC_92084/R6000/&READT 7 njMEOTCK  EXEC.ENTR REIOPTERR ERRCK ((c READ 002 BAD TAPE FORMAT READ 008 END OF TAPE (??H$$AHL`HP([M`AKpbAhJl;?PLEASE MOUNT SUBSEQUENT TAPEӏlArJ(AFTER MOUNTING ENTER "GO" OR "ABORT":_ttxrAAAxJA(~JG`PG(`PG((rIAIK<HxFHFLL(`<((I(((ZJ;II(lL(Ztw GOAB  @9W77X]SERRCK 92084-16568 REV.2121 810304 /SRC_92084/R6000/&READT 7 g$ERRCK  EXEC.ENTR PTERR CNUMD ,, READ 016 BAD TRANSMISSION--MAG TAPE TO MEMORY REC ,WWY//`R(/#$ (3(;`Q(;#(.?!EO"PI`N#(.WN@Np ! 5 !ppxq` 7p( p1`*( p*  6 -( `0p`1p p%WRITT::RTE_6:5:35:128 644 0 0 21400 5310707362 34230 %WRITT::RTE_6:5:35:128 $##%WRITT +#+#+##gFW FST 77X@)2WRITT 92084-16569 REV.6000 920908 /SRC_92084/R6000/&WRITT 7ss#WRITT .NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN suu7EXEC.CPMREIO.IOCN .FION .NFEX .IDLP CNUMD LURQWVRFY IFBRK PTERR NMCHK FTIME IGETRMPAR FSTAT ISMVE FESSN MT1OK NAMREQCOL QUOTE LOGLU u    PRGR Y WR  ``Y WRIT 001 MAG TAPE DOWN WRIT 002 ONLY THE SYS MNGR MAY SAVE SYSTEM DISKS WRIT 003 LU LOCKED WRIT 004 ILLEGAL MAG TAPE LU WRIT 005 MT OFF LINE WRIT 006 NO WRITE RING WRIT 0%!#``07 PARITY ERROR WRIT 008 END OF TAPE WRIT 009 FILE OPEN OR WRITT'S DISK LU LOCK REJECTED WRIT 010 DISK NOT FOUND WRIT 011 ILLEGAL DISK LU WRIT 012 ONLY THE SYS MNGR MAY SAVE LU 2 Ö!``OR LU 3 WRIT 013 BAD TRANSMISSION--DISK TO MEMORY TRK WRIT 014 BAD TRANSMISSION--MEMORY TO MAG TAPE REC WRIT 016 BAD TRANSMISSION--MAG TAPE TO MEMORY REC /WRITT: S !TOP FF  22CR CRNAME SAVED PRFFF4!22FFrom LU XXXXXX**"/WRITT: Verifying tape /WRITT: xxxxxx Tracks saved *   "3 }}#DD)M$)[)M)p"x"$)p"p"p#$#@)p"$#"#p"$#"#p"$% ")$)"p#$1#"#($e`#p#`)`#p#P#($=($?}$|$=<<`#p"`)ZP#($C($IP#爈($G($I`#p `)j#p#`)P#($P($R`#ለp `)P#($V($X`)~p"5`)P#($\($^`)~p"4`)P#($b($d`)~p"3($+` p A)u ($n(&$u)X ###و(&`)#h~~$y??)p#ۈ`)P#h){X# 0($(&`)]#P)](&鈈`)~#P)~(& $) )M(&p"x"P"(&`)A@ p)A$)`)Ap"x"ˆ`)u"p" $ "`"($P"(' `)ZP"('`)W~XS$@@P"(': $### $###)Z`#($ʈ`)wp#p#Ո`)wP#($($p# $"))M#Հ`"($`)Wp#($`"($($`)`p#Ԁ($p#`"p"p"р`"@)K(%n`"@)Kh" H)K$??p)A))A`"@)Jh" H)Jp)A)w)A`)WP#Ԉ(% (%%`)wP#҈('g`"@)JP)w('r`"@)JP#h" H)JX# 0(%-(%j`"@#Ԁ@)LP"(%-(%j`"@)Kp"`)ZP"h)w~~%7CCX# ('}`"(%K`)`P"h)wX# ('}`"@)JP)wh)wX# ('rp"ʀ`"@)JP#(%b(%dp"`"@)Ip(%o`"p"($('g%r)p"`"p)A%)^)N~=%zFF")`)A)S)S)S)S%"`"('\`)ZP"(%(%%)p"`)`P"(%(%`"p"`)ZP"h)`X" 0A(%%)V"")M)T)S('Qp"x"`"&p!Ap"%)M"!)Sp"x"ˆ`"P!p)A%::"P)M)A(%`)`P"('`"p"(%% ` p ` p % p"x"`"(%%  `)p ` p ` p ` p ` p P"(%(%` p `"(%(%`)p `)xp"}}%@@`"@)H(&@"p"Lj(%`"p"`"4(&& )E`)E`)~p"`"5(&&)V !)x('+p"x"€`"(&p"`)Up)D`"Ȉ@)Hh"H)G(&-(&28"8)D(&%(&`)xp"`"@)G(&=}e&: @"p"(&4`"DŽp"&E)Z")Q)M["6 ****** CAUTION *********5&EA&K)Z""6)gH"BDo you want to58&KA&Q)Z""B)v"I overlay &Q A&W)Z""I)\`)}P!(&`wM"N a non-WRITT tape &Z A&`)Z"A"N)|&f)Z"!":h"W with &f A&l)Z"A"W)\&r)Z" "M"\(Yes or No)? ++u&rA&x)Z"A"\)v&~)M"!){A&)Z")Q)M`)z!刈p!`!P (&+Z"c *** DISK NOT SAVED ***B&LLA&)Z"A"c)t&)Z")Q)M`"4()`)y@ p)A&)`)A()`"(&`)yA@ p)A&)`)A(&A& )EH`)E`)]A@ p)A&)Z)A )xA&)Z" "&A"&)Z")v` p"`p"`)w (&~~&HH@"p"`p"`&p!܈`p"`"p"p"`)~p"p"('&)Z" )r& A"()&)Z" )t& "()')Z" )s' "()A')Z"!)g'!"()')Z"!)r'!~;;)'""A"()'&)Z"!)g'*! "()'/"!'5)Z"!)o'9!"()A'@)Z"!+)r;l"nMount another tape, after 7E'@A'F)Z""n)mg"|mounting "RU,WRITT,... again~~'FMMA'L)Z""|)m'P!,"()'W)Z"!_)['[!`A"()'b)Z"!7)p'f!8"()'m)Z"!R)r'q!S"()A'x)Z" )q'| "()')Z"!m)q'!n"()'A!')Z"!)p~'BB'!"()`"p)F`"ph")F((p)Cp"')M"!)Sp"x"`"P!p)A"P)M)A('`)`P"È('`"p"È('`)]@ h! p)Ax)B')Z)A)Bp"x"`)Z"P)Z(' `!P"~~'KK(''!')Z"!)o'!"`"p"`)n"P)n((`"3((EA')Z"!+)g'A ""()Z"")[A )M0"A((( )E`)EH((!`)f@ p)A()`)A`)e@ p)AA(!)`~kkBw( 66)A`)d@ p)AA(()`)A`p"(1"" "`"p`)cP"(' `)bP"((:((=`p"('+`)aP"((A((D`p('((O(K)Z"!+)g(O!,"`)_A@ p)A(V)`)Ak"Please mount another tape. 9(VA(\)Z"")m{" After mounting enter "GO" 9(\A(b)Z"")l " (Enter "AB" to abort) }(bDDA(h)Z"A")k(n)M"")M`)j"p"`)iP"((u((` p `)]@ p)A()Z)A )M((`)hP"() ((V("() ((`)F@p8)C('`"((`"p"`"p"p"p"('A( )E@`)E(KKA( )EH`)E`)fA@ p)A()`)A`"3()  )M(((((A ""()Z"")[A )M0"A((( )E`)EH((`)f@ p)A()`)A`)f@ p)AA()`)A`)e@ p)A()`)A`)d@@ p)A~~(DD()`)A("" "`)cP"(' `)bP"()()`p"('+`)aP"() () `p('`"4()`)_@ p)A))`)A`"p)AA)$)^)N")\)A)S)S)S)S )))] )M()*`"().()8)2""))8)Z~})5 ""%)[)>)Z"!)Y)A)Rcc{)GII! """"D.RTR  @@ ABGO__   @2_ CR ?VEIHDCMT(c@#77XHWVRFY 92084-1X569 REV.2301 820922 /SRC_92084/R6000/&WRITT 7 >WVRFY  ##.FADEXEC.ENTR IFIXCNUMD CMPWD IFBRK #;;+)) WRIT 020 VERIFY ERROR ON TRACK >`;}}P,9DDA9@9pވ,K3(`@pV<,,`(`(`p*`P(o(r`p2(x`P(v(`p2`퀀@p+}~~Zw}FFp1`2(p`1@p/`1@p0`1@߄p;9/+܉(`0@p9/.`.(+:818݈(`*((H((=>,~..9=(,9=(`+9=(."" "@  "@;Zj`)E`)fA@ p)A()`)A`"3()  %6DV37::RTE_6:5:28:60 644 0 0 16000 5310707363 33554 %6DV37::RTE_6:5:28:60 $<%6DV37 +#+#+# QW2FST $$ DVA37 C92084-16592 REV.6000 SRQ <920108.0822>$ @tCA37 IA37 A$LIST;;`\ : `Z(P((`٨ 00 ;<<`[ghHP(AP(fP(Zp(7(E< `D B7h (e` ;;`\s;P(e(JP(J( Z(cZh!h"h#h$`׶H;;;`\mGWHh Ph׶`h0(mP( Pʹ(m( p; `Ds 0p ::`^?wZRp  Z0  X0 (Xբ(` :<<`]@2( X(@@h P xP(0`< `D( ` ;;`ZА( p`C( (X(Xڶ(X("X(X(CX(fX(o;::`Y%EжX(d( (tX(X(X(X(X(CX(fX(oX(X(X(:`EW鶊X(( 0;;`]+ 0( `h0( 0`hZ0hh(  ( hH;;;`\M ( 00`h0иhP`h( (=0; `C0'`h <<`\*0(8`H(0( ZhH( 0( (D`X<<<`^8F(`hXA0   ( pĶxh8Ţ8 (\ĨX< `Cugd <<`^ڨ:`P8::`A <<`nu?$   (8?@_CB P<<<`nN( ` @ _?@ _ ?@? `@`$3z < `D,$A `S0$  00@_CB P<<<`nN( ` @ _?@ _ ?@? `@`$3z < `D,$A `S0$  %6DA37::RTE_6:5:20:60 644 0 0 12000 5310707364 33551 %6DA37::RTE_6:5:20:60 $<%6DA37 +#+#+# ;WPFST %% dPDVA37 92084-16593 REV.6000 NSRQ <920108.0822> % @t]CA37 kIA37 A$LIST<<`\/a f`vZM(1P1((`30h0e <<<`[ hH4`RPP(1PQ(41P1(/p'(3(Ah (a`'< `CwD7P/(a ;;`\?H:(FMP0(F((_h{h|h}h~`HDH;<<`]VZh1 OPNh1`hZ0(iP(P'(i(p1 10Ip< `D~esPR> ;;`^ewpf 02  X=P0c(ZX/(`TTZ ( X(;;;`] Z@@Zh LPJ xPJ(06`  (`b; `CK( <<`[Dp`ZC( (X/(X4(X7(X;(]X?(=X@Z(2( (BX/(X4<;;`[baж(XX;(]X<(_X?(=X@(bXAZ(R(0yZ0(`2Zh0(0E; `D부`1h0 <<`]h*h( ( hH2 (0I0T`2h0h P <<<`]k  `0h+Z( (-0E`1hZ0((P`9H( (< `C )hnH <<`^,(0b((h(( x 6ڄ(l0(0(\`k<;;`[C&J(If (h,(`G\Z`4\P([`ڂL (`1`0\(L; `Cqe`V  ::`^=h0f(p ((t(` ڠP( (~Z(F((( :;;`\M(~(k((f( pMp!s6` 2ppڍBx`!P(`; `EU (( <<``EvZ (`4\ ЍƄF (~h PBX@o H`@(˴ 0<;;`]&Ƕc0[\( 6(kHp Q    LP:(P8((k ; `C䶀( <<`^(k X(h ((8&( ($X/( ( (<<<`_f  ׅ и`P((  ( (hF /c00\\(< `Cۂ$ (*0h ;;`["'h*(Z(I h0ep`-1P0(:(>b(A`(`;::`^cNBP(8&( Pp(M (kp!P  (WP:(bP8(k Z!! : `D`(kh ;;`]^d (k` (P(C`Z (IZ hEx!i0!(I`0(;;;`]0hp`4 `h (p (( `1 0h(`Z\A; `DdApA8k( <<`_ k  (@ Z0h (Z1( ( `2 `hp@<;;`] `Z\ЄAZhhkx!0d d!Zh (H4P (; `CF ޶L0h ;;`] ` 8Тڨ!Zc(0d 0f( 0W0Up;;;`_`Y\`0Y\` PZ ( (e( @("p(&@  ( ( ; `DIP`p8 <<``!(& 0(Ms`.1s`   @PhZ@P(h<<<``GAAZ`. 0h@( P(X X(YM@4MP\< `D5aP ЅP <<`\ eШ``3\ТڨfLpfi0fkpfspk  k0f8k(x8s<<<`]DsD Hxhs8 (Zx`p`tp&Hp< `CWsh <<`^]xL@@s(hZ 8(DpX(Ljvډ`u<;;`[S0c`V 0fh`(h(p!Zpp8((xDP; `Cڶ(H5( ;;`[ݢ`(xH4L@(`!PD(@ch`0Vhx x; `NDh @`p"@׈$TA32`UY``0%$TB32::RTE_6:5:1:35 644 0 0 400 5310707366 33111 %$TB32::RTE_6:5:1:35 $#%$TB32 +#+#+#TWjFST ## yY$TB32 92084-16605 REV.6000 <920904.1748> #@؈$TB32`UY``0%DVA05::RTE_6:5:29:60 644 0 0 16400 5310707367 33757 %DVA05::RTE_6:5:29:60 $<%DVA05 +#+#+#fTWnFST %% ɦDVA05 U92084-16607 Rev.5020 890619 12966 Driver% @m.CA05 @IA05 &$LIST$OPSY$UPIO.DIV .XLA <<`\lZp3 x LQT-T(`,P+((H)HI(4`3@1<;;`` @Ih0*`J( `` @(?`(; `D<` ( (_ <<`^@p3`P(A8LP(ЍυOp2 (R(C`20(/([l(/<<<`\^(aQP/(`hPH @ hX(IT lx}h< `Dzx~ <<`[~l8ܨl & P(P(P(P(P(նP(P(P(P<;;`ejt(P/(P(( 8 H (#; `Cn<F,I ;;`ZZ(K(@I`ڰTpT(#`T((#`(`(H;;;`[b9۶H)( жH0H(# hH0H`/Q P`,; `DP`  <<`^/P((`ٶ`Z, (J(# Z (<<<`]. (%`PZ)`F,ZI(c`)Khx}5P!< `C F5(Gh <<`]8 ("@C.00 C.01 C.02 I.00 I.01 I.02 A$LIST;;`]pb`"p(`b@% @ Qh0!Z(zP  (';<<`b#b`  h` H^ (3P (AP(>@H]< `D?P(F[H^ <<`cC`P(ZZ`y `a` P (("(@Q(p(  <;;`_<f(lԃԀ(nBbtb~ % P(Pv(P(; `CP1(Pw <<`[3B(P7(P(Px(b``u`P((`E((<<<`^s(`h_(`t( @`h`Pu(P(`(M ZS0p< `CtNx <<`\VĶpp p<0p <<`][BZ(Wh (PZ(h (WP(P(@PP=P>(P (*(b5!<;;`\_ڠ w`w(@h (pZ(l(hpЅ8xhX; `C|{( <<`b<~( xhxA8hwPZH`(r8``  \<<<`\7Z h @(`*`*P` (`*( < `BY( ;;`Z\Z0*((*((5 @w(@`X>;<<`].ض`D**` h @^*(A`*Z @!`p+`t < `D  ;;`^.`P+P` (P` ΨZh (hw (PD(W*;<<`]E(F((8P5!(;P=` P(>Ph$< `C4 (; <<`]j70 h*(r H$(4_`(W (P`*`*(W`\<`G^T*(S (TT%DVM33::RTE_6:5:32:60 644 0 0 20000 5310707373 33710 %DVM33::RTE_6:5:32:60 $  <%DVM33 +#+#+# [WFST "" DVM33 92084-16650 REV.5020 <891030.1145>" @yCM33 IM33 !! $$CS80$LIST$TM33$UPIO.DIV .DLD .DST .LBT .MPY .MVW !;;`]<`pbxcxxHxxx` pG`p ӂ! *pd(q`d@;;;`Zi hf X($(gpȶhppWp hXLp; `Db7PL( <<`f;tZ  @(: (G@ @p<<<`ea gP[xe  Z Q   < `Ce  ;;`]QP(H  t`PuP^(`PO(PP(PZ(P`X( ( ;<<`_3!(( (q xx`( @OPQ(@O8gP(ql(< `DŰmp ;;`\ɢ`@ D(` (q@(q@Z(H@(qH;<<`_By (H `Z0glZ` (GZp]m](Ghx (< `DѵhxJh <<`\xLhAxI!X (= @xH`PLhIX Z`O(8GXN(M@J<<<`]$PpK @  mh pM`H(f0H`HhKP(@80i< `CA(; <<`eѶD@(; @xM`Q`(8M `R_`Q<<<`^ii`QM`Q`P`QS`O`M xH`XP8M < `D@D <<`aP  Z H  @g (@ppp(i kpP<<<``^|(qh @Vd lm@ X H P(qX 8 4Z`(.`@< `Co  <<`_uϴZgQ(qpci(ppXpapb"؀l "P(=xe n (=`<;;`^Z  (=x`Zxxc`adxtHexen Q(`c( `OheHO `en Q(; `C Ht (= <<`` xt@xax`Bk j  lh(0$l`hbHaZxb `a``<<<`^/Z`apepa@eht @ lP``HP(TP(( (Q`hO @n < `C%M"l ` <<`a!P(pM(fZ` (\hb(GHa(GDg hP xt @ t <;;`\tqh@d@^(q@pp]PL(xep`#* e; `Dv'P8e ( ;;`]x\L(hNhI!(xh@w(x;<<``jZh p\`] 0$0 D! @ H `ʠ Y < `CM7ζ( ;;`^&Ѷ`T 越(PP(@o(q`oho(`gZh(;;;`_נ  pu(G;nЁ@[(qB45\p\0$0; `DN(`( <<``lZ(qi(l(`ZЃ $B44I0(F((Fh ô(]h<::`^q2 `HO P`Vp `h(!@Z`h!`Vpehe: `E@PPHO@ ;;`^[U8 @eQ`(Z (m@P(rQ h( `\(K`;;;`_3#sh ph`h^hH hX; `Ex]p  <<``px`p\`]Z`!`pB44Z`](b\`]0<<<`]((`ɠZpJ hL`ʢahL`YhL`H0pH 8G((!P44h< `C"( ;;`\_m׶hTN0(Fg(F ( ( ((FiZPl(`Z(F;;;`^i(lQ(`ZB4J0(F((FZB9; `D(`8g ;;`] 0pB9(B 42\`l0$hx\N9(mR;<<`\w2(6`[ZP(F80(L`O(D`P(F9XN(F899< `CjNxZ <<``JyQhZh  hZN lmnZPn xɀڂ@ qh6lijK/<;;`_q40` `P((nhXP(P ((n; `C1i <<`^s(n`mHU (W0 n(GnP`p  0W0Ypp<;;``r `hhN8tx hppB45\` p\`0$; `C\"Ѣipp ;;`c$#Ԣ0((İ( D   T`( D   4ZT(0hx( 4 ;<<`]`pK 4 h@n`}*`*`phx88(0(N< `CN( ;;`^!Z`P(8Z8`S.0/p%K ZhH pP? pAh@;;;`]!5ځp`A`@*RpA`A 0hBxK `J0pP(L @h ЁK8K; `DuRPK8K (X ::`^k#VZ(R/Kh@nPw\h nb`#*h0ԇP8hh(n:;;`\|t8h/h`}*`~*w Z  `* ˨ hbX(p`pƶhL; `Esh` <<`` P`Dž`\ @pʶpP(hP` x (0$@Z( `\@O3<;;`cBn=FFօVPpʅօBpPߨŠօ֢/VVp ; `Cآp  <<`_fۢp P0`*Rp(*˨ 'x<;;`].3pxZhxHZ `*`p`Z`p=(߁; `C`"* <<`a|``#%`/Aօ֠%օ֢ڨ*3=/Zh9(:8338<<<`\; (53 x䢀hc 8֢ڨ `RpR[(D`R(U(Uh XZ(UNpZ[< `D#W(D <<`a0[p`*Z`c`NZ[`HH(wh`w~$dI0H[hM<;;`^w|`L(DCSERR Zpc8(`@`ڐ=`hZ ((`b(`u(Q;`B9(<<`_n`Z xbZ[S(p`(p0<;;`[S`R(`NWPW((PpR`68 (`=pp `#*; `DW֢``0 <<`]ڢԅ`}*`*VV`#*`0$`*pͶ`p=(>h9P(V<;;`cJk8(=`x ڠ8(?!@ $ ; `E$ <<`i& $5$V'X(D$&$+-$ns$,ph`@ c<<<`[,Hp`f(Jp`g(OZp`CH<0e`p[`d8(D< `Ec cc ELSE IF ( error <> 0 ) THEN BEGIN { Report unknown error }  line := 'Unknown Buffer Accounting error:%DVN33::RTE_6:5:32:60 644 0 0 20000 5310707374 34022 %DVN33::RTE_6:5:32:60 $ ( <%DVN33 +#+#+# [WFST "" DVN33 92084-16651 REV.5020 <891030.1145>" @yCN33 IN33 !! $$CS80$LIST$TN33$UPIO.DIV .DLD .DST .LBT .MPY .MVW !;;`]<`pbxcxxHxxx` pG`p ӂ! *pd(q`d@;;;`Zi hf X($(gpȶhppWp hXLp; `Db7PL( <<`f;tZ  @(: (G@ @p<<<`ea gP[xe  Z Q   < `Ce  ;;`]QP(H  t`PuP^(`PO(PP(PZ(P`X( ( ;<<`_3!(( (q xx`( @OPQ(@O8gP(ql(< `DŰmp ;;`\ɢ`@ D(` (q@(q@Z(H@(qH;<<`_By (H `Z0glZ` (GZp]m](Ghx (< `DѵhxJh <<`\xLhAxI!X (= @xH`PLhIX Z`O(8GXN(M@J<<<`]$PpK @  mh pM`H(f0H`HhKP(@80i< `CA(; <<`eѶD@(; @xM`Q`(8M `R_`Q<<<`^ii`QM`Q`P`QS`O`M xH`XP8M < `D@D <<`aP  Z H  @g (@ppp(i kpP<<<``^|(qh @Vd lm@ X H P(qX 8 4Z`(.`@< `Co  <<`_uϴZgQ(qpci(ppXpapb"؀l "P(=xe n (=`<;;`^Z  (=x`Zxxc`adxtHexen Q(`c( `OheHO `en Q(; `C Ht (= <<`` xt@xax`Bk j  lh(0$l`hbHaZxb `a``<<<`^/Z`apepa@eht @ lP``HP(TP (Q`hO @n < `C%M"l ` <<`a!P(pM(fZ` (\hb(GHa(GDg hP xt @ t <;;`\tqh@d@^(q@pp]PL(xep`#* e; `Dv'P8e ( ;;`]x\L(hNhI!(xh@w(x;<<``jZh p\`] 0$0 D! @ H `ʠ Y < `CM7ζ( ;;`^&Ѷ`T 越(PP(@o(q`oho(`gZh(;;;`_נ  pu(G;nЁ@[(qB45\p\0$0; `DN(`( <<``lZ(qi(l(`ZЃ $B44I0(F((Fh ô(]h<::`^q2 `HO P`Vp `h(!@Z`h!`Vpehe: `E@PPHO@ ;;`^[U8 @eQ`(Z (m@P(rQ h( `\(K`;;;`_3#sh ph`h^hH hX; `Ex]p  <<``px`p\`]Z`!`pB44Z`](b\`]0((<<<`]((`ɠZpJ hL`ʢahL`YhL`H0pH 8G((!P44h< `C"( ;;`\_m׶hTN0(Fg(F ( ( ((FiZPl(`Z(F;;;`^i(lQ(`ZB4J0(F((FZB9; `D(`8g ;;`] 0pB9(B 42\`l0$hx\N9(mR;<<`\w2(6`[ZP(F80(L`O(D`P(F9XN(F899< `CjNxZ <<``JyQhZh  hZN lmnZPn xɀڂ@ qh6lijK/<;;`_q40` `P((nhXP(P ((n; `C1i <<`^s(n`mHU (W0 n(GnP`p  0W0Ypp<;;``r `hhN8tx hppB45\` p\`0$; `C\"Ѣipp ;;`c$#Ԣ0((İ( D   T`( D   4ZT(0hx( 4 ;<<`]`pK 4 h@n`}*`*`phx88(0(N< `CN( ;;`^!Z`P(8Z8`S.0/p%K ZhH pP? pAh@;;;`]!5ځp`A`@*RpA`A 0hBxK `J0pP(L @h ЁK8K; `DuRPK8K (X ::`^k#VZ(R/Kh@nPw\h nb`#*h0ԇP8hh(n:;;`\|t8h/h`}*`~*w Z  `* ˨ hbX(p`pƶhL; `Esh` <<`` P`Dž`\ @pʶpP(hP` x (0$@Z( `\@O3<;;`cBn=FFօVPpʅօBpPߨŠօ֢/VVp ; `Cآp  <<`_fۢp P0`*Rp(*˨ 'x<;;`].3pxZhxHZ `*`p`Z`p=(߁; `C`"* <<`a|``#%`/Aօ֠%օ֢ڨ*3=/Zh9(:8338<<<`\; (53 x䢀hc 8֢ڨ `RpR[(D`R(U(Uh XZ(UNpZ[< `D#W(D <<`a0[p`*Z`c`NZ[`HH(wh`w~$dI0H[hM<;;`^w|`L(DCSERR Zpc8(`@`ڐ=`hZ ((`b(`u(Q;`B9(<<`_n`Z xbZ[S(p`(p0<;;`[S`R(`NWPW((PpR`68 (`=pp `#*; `DW֢``0 <<`]ڢԅ`}*`*VV`#*`0$`*pͶ`p=(>h9P(V<;;`cJk8(=`x ڠ8(?!@ $ ; `E$ <<`i& $5$V'X(D$&$+-$ns$,ph`@ c<<<`[,Hp`f(Jp`g(OZp`CH<0e`p[`d8(D< `Ec cc { Do this first in case get errors opening other files }  OpenLog( internal_result );  { don't care if default lu was open%$TM33::RTE_6:5:2:59 644 0 0 1000 5310707375 33316 %$TM33::RTE_6:5:2:59 $H;%$TM33 +#+#+#WFST ;;X !|* 8$TM33 92084-16652 REV.6000 <920904.1750> /SRC_92084/R6000/&$TM33 ; ,$TM33 11!!0K001@.PCOPY.REL::RTE_6:5:4:128 644 0 0 2000 5310707377 35204 PCOPY.REL::RTE_6:5:4:128 $LPCOPY REL +#+#+#WFST ;;Xgs 9PCOPY 92084-16655 Rev.5020 <890331.1004>/SRC_92084/R5020/PCOPY.MAC; 8PCOPY bb .MVW BEGGT CMAIN COBU1 COMMI DIALG DSINF ENDGT EXECGETST GTPAR IFTRIPROG LIMEM OPFLD ORDRRPERR SCHCK TALKTPINF b=PP@`(  Dp`@(}A`@p@p`@ppA &ph pA 1?E`(h ` `}}PHH`p`(b`@(b`@@p`p`hx `@pp@@pAzA} A(z(zCOPCOPY  }DDS''SIZE UP THE PROGRAM D@*rI0PSAVE.REL::RTE_6:5:10:128 644 0 0 5000 5310707400 34121 PSAVE.REL::RTE_6:5:10:128 $ P PSAVE REL +#+#+# WFST FFX,Ś 7PSAVE 92084-16656 Rev.5020 891103.1300 Pys.Backup Save module /SRC_92084/R5020/PSAVE.MACF bPSAVE ||{e.DLD.MPY .MVW.XLABEGGT COBU1 COMMI DIALG DSINF ENDGT EXECGETST GTPAR IFTRIPROG LDTYP LIMEM NAMROPFLD ORDRRPERR SCHCK SMAIN SP2L2 TALKTPINF |YESNO CjSSPSAVE 92084-16656 Rev.5020 891103.1300 @`( Ddp$c()`)@(A-(h*`*@p+@(p,@ep-`+@e@)p.pD=p'@h p' Hf'!AW(*,/-.021>SBB348`8( b@`7h (iPg((SAUN`7Pg(wP(h- `dp.(`-p<h- 8<(}`p.(`-pBpC`D@pD CBD-8}oAA`8(-p.`@((` @(@)p)` p(`,h(x, e`-h(Hex-A .-Ap9h-H.x:p;`:@9p==`(҈h7`XXX=p;p>}}LL0P((܈`p>`=@;p?@>p@p@(@)pAA,-:=?@A/0234 LILUMUPB FE (Ad( AQPd(@0PSAV E }%"QQSize up the program LUs on unit could not be accessed `@0@@@A@@@PsDD(`00p A{ F (`0A0p  `00p  `P(P(P(`0A0p A P(X(P(X(P(X(AP( #";HH`( p(`P( hhhhxX(`P(PP( X(㈈( X(( `00p  btx @@j,0,00s16506280?    kc" Enter tape density@5TYered route is killed. { The routine then exits. { { OR (the ANH record has a route, and { (the offer does not match the rPRSTR.REL::RTE_6:5:9:128 644 0 0 4400 5310707401 33436 PRSTR.REL::RTE_6:5:9:128 $ \ PRSTR REL +#+#+# WFST ((;;Xzfs -PRSTR 92084-16657 Rev.5020 <890331.1004>/SRC_92084/R5020/PRSTR.MAC;(HCOPY \MPRNT PRSTR RETRI vv!A.ENTR .MVWBEGGT COBU1 COMMI DIALG DSINF ENDGT EXECGETST GTPAR IFTRIPROG LDTYP LIMEM LOGIT OPFLD ORDRRMAIN RPERR SCHCK SP2L2 TALKTPINF vpUU 92084-16657 Rev.5020 <890331.1004> @`( D p$ "#`#@(A-"$`$@p%@"p&`%@#p'p:A:p!h p!A E!S"$,(&')+*-.2 Y"UDD`2(`1Pq(th& `- @`(n`*`p'(LUUNPB`1Pr({Ps({@(`(`&p h& 8 ((`&p9@:p: *9:&2`2YDD(&p'`(`@"(`@"@#p#`p"`&h"x& 'p5A)P((LI`p5`&@'p6h6H5x4h1`4@4p7@p@"@#p8&4678()*KK-.A4@4p7p@"@#p8 <; (A ( GF  ( RE@0 PRSTR (SSSIZE UP THE PROGRAM LU'S ON UNIT COULD NOT BE ACCESSEDX`Zppp[p8Pr88(g`r\yXY` K{ ppr @);;X3)s .P.070 92084-16657 Rev.5020 <890331.1004>/SRC_92084/R5020/PRSTR.MAC; P.070 \XEXECHCOPY == ))  PASCAL run time error, contact your HP representativ=@{; }' %       PSPAR.REL::RTE_6:5:3:112 644 0 0 1400 5310707403 32753 PSPAR.REL::RTE_6:5:3:112 $hpPSPAR REL +#+#+#TXFST ;;X^Cs "PSPAR 92084-16700 Rev.5020 <890331.1004>/SRC_92084/R5020/PSPAR.MAC; 9PSPAR JJCOBLN COBUF DIALG DSCPR EXECIFTRIPROG LIMEM PBCPY PRTN RMPAR RPERR SCHCK SPDSC TALKJppRDDAAi rpqgop`p@k(^AtD`rP("P("P(.PA(.(X-tvrsDopAq(X2AuN6ACh BrtuDNoqvp(XpBB6EX..A [qA^jbAxw flh(XPSPAR SIZE UP THE PROGRAM INPBPVVEB@b%DVA32::RTE_6:5:22:60 644 0 0 13000 5310707405 32113 %DVA32::RTE_6:5:22:60 $l<%DVA32 +#+#+# >XFST ## DVA32 D92084-16708 REV.2540 <850718.1043> # @uCA32 IA32 L$TA32$UPIO.DIV .DLD .DST .MPY .MVW <<`Zpt(`@rpU kpV k@ip< jpA lpEpS p9 qp> pp:p?@npW<<<`[pup`p(}0m߶ppz (}p{P(Mps`opx< `D85( <<`_09 @((47 Hb(ZL(^̴`]օV֠<;;`hXZ(T(Z@(@@ @@ Pp; `CDx|  <<`b/P  f  P| (F  (7(F`{@<;;`[spvP(pP(B`v@pv(}@(}8vxy @x; `C`opwv ;;`]Nöx8vvdpx((}@(0 Z(p3`3(;<<`^xh Ӵ h0Zhx3Z@c(c3Z(@c(}Hc< `E@x|| <<`_%P(= @px '@@(}c(x|p{` (*<<<`\Z"`)d@ hP  x`{(Dh``zp1h{Hp`{ P`nh| &`h< `C>!`n <<`[A(`p{h| PZ(P@p(V`{pp@{ BZh| `2(A`hx1`{h|<<<`[Y\&`hZP(C @n@p{ph'2c(w`(C(i< `Cw8w(( ;;`dMz  v &x *p@p}Hx~5x;<<`b2 ph CZ`~@@P@Z C(hZH P`p@|< `C+p|`@p <<`ayx '@x@~h@ Hx~@}p}`{@PP8 h@h<77`[``!p!p̢`@}6p`eZ@~@7<<`]܀x3p2`5pZ( 8(ߢ (cۢ((((S(@`3!@8<;;``2 x4#`@07p'h6 ( h4 @c( `b(…`t; `E}=`2…@ <<`_3BP(RhP`A xa (P0@P(T FFBpbP߶ڨ8a`a8<<<`]S7aZch (xX(X(X(|X(8x(XX((hoxx8cc0< `Cw~(( ::`cM `y@ @( h( hc8 x& :;;`]Ehhu 8֨`5p`u(Z`(7` @ (`0p; `Dt`5phu ;;`] `x(pp`(pu8Z(`&@`qPp;<<`^n`( ` ((`qp#`06 (h5 (p< `B`5 ::`^Z(p xx ` h x`b(h(88(:;;`^ `5!gp6('``ݴZ`˅ #' h; `D>P7 <<``TB  h̠Z@`Q`R@P   Zh `bS<;;`]eb   Zh@h``!pgp ep!p; `C ` <<`_gh 0`ec Z hxH0(<::`^`0P8(8px @x& h58: `D߿P(` 0 ;;`_Xâh& hȨ߁``ʅڇ```˅ AC`}p;<<`b`~p`0ph(x (x `y@ @ h̨߀ h< `EP <<`al  @p`!gp`  օ֨Pօ֨PVV!p0`1<;;`bE0*!@0&(Zx> (Hx? h̨2X({X(x (H ; `C(~L(} <<`[?O@p2P(bPc(P(s88<;;`Z jP:(q@P;(G(Z@ (`#`6(~p (a!; `C ;;`[gZ((a`ݶ(`Q`RZ`b;;;`^Liڨ`` Z@(x0`"0(A; `CQ`p0`v ;;`]1Zö(`((hn@t8(Pp`@ Zpb`(p;""`X p($U#$$$TV$1"]CONCATNUM 92077-1X501 REV.2326 830721 /PCO/P92077/&FCONV6PCONCATNUM // 6.DDI((%DVC32::RTE_6:5:22:60 644 0 0 13000 5310707407 32211 %DVC32::RTE_6:5:22:60 $<%DVC32 +#+#+# >X FST ## DVC32 D92084-16709 REV.2540 <850718.1043> # @uCC32 IC32 L$TC32$UPIO.DIV .DLD .DST .MPY .MVW <<`Zpt(`@rpU kpV k@ip< jpA lpEpS p9 qp> pp:p?@npW<<<`[pup`p(}0m߶ppz (}p{P(Mps`opx< `D85( <<`_09 @((47 Hb(ZL(^̴`]օV֠<;;`hXZ(T(Z@(@@ @@ Pp; `CDx|  <<`b/P  f  P| (F  (7(F`{@<;;`[spvP(pP(B`v@pv(}@(}8vxy @x; `C`opwv ;;`]Nöx8vvdpx((}@(0 Z(p3`3(;<<`^xh Ӵ h0Zhx3Z@c(c3Z(@c(}Hc< `E@x|| <<`_%P(= @px '@@(}c(x|p{` (*<<<`\Z"`)d@ hP  x`{(Dh``zp1h{Hp`{ P`nh| &`h< `C>!`n <<`[A(`p{h| PZ(P@p(V`{pp@{ BZh| `2(A`hx1`{h|<<<`[Y\&`hZP(C @n@p{ph'2c(w`(C(i< `Cw8w(( ;;`dMz  v &x *p@p}Hx~5x;<<`b2 ph CZ`~@@P@Z C(hZH P`p@|< `C+p|`@p <<`ayx '@x@~h@ Hx~@}p}`{@PP8 h@h<77`[``!p!p̢`@}6p`eZ@~@7<<`]܀x3p2`5pZ( 8(ߢ (cۢ((((S(@`3!@8<;;``2 x4#`@07p'h6 ( h4 @c( `b(…`t; `E}=`2…@ <<`_3BP(RhP`A xa (P0@P(T FFBpbP߶ڨ8a`a8<<<`]S7aZch (xX(X(X(|X(8x(XX((hoxx8cc0< `Cw~(( ::`cM `y@ @( h( hc8 x& :;;`]Ehhu 8֨`5p`u(Z`(7` @ (`0p; `Dt`5phu ;;`] `x(pp`(pu8Z(`&@`qPp;<<`^n`( ` ((`qp#`06 (h5 (p< `B`5 ::`^Z(p xx ` h x`b(h(88(:;;`^ `5!gp6('``ݴZ`˅ #' h; `D>P7 <<``TB  h̠Z@`Q`R@P   Zh `bS<;;`]eb   Zh@h``!pgp ep!p; `C ` <<`_gh 0`ec Z hxH0(<::`^`0P8(8px @x& h58: `D߿P(` 0 ;;`_Xâh& hȨ߁``ʅڇ```˅ AC`}p;<<`b`~p`0ph(x (x `y@ @ h̨߀ h< `EP <<`al  @p`!gp`  օ֨Pօ֨PVV!p0`1<;;`bE0*!@0&(Zx> (Hx? h̨2X({X(x (H ; `C(~L(} <<`[?O@p2P(bPc(P(s88<;;`Z jP:(q@P;(G(Z@ (`#`6(~p (a!; `C ;;`[gZ((a`ݶ(`Q`RZ`b;;;`^Liڨ`` Z@(x0`"0(A; `CQ`p0`v ;;`]1Zö(`((hn@t8(Pp`@ Zpb`(p;""`X p($U#$$$TV$1"  @i044X`FMPEOF92077-1X782 REV.2326 830728 /PCO/P92077/&FMP%DVP32::RTE_6:5:22:60 644 0 0 13000 5310707410 32257 %DVP32::RTE_6:5:22:60 $<%DVP32 +#+#+# >X8FST "" DVP32 92084-16710 REV.5000 <870223.1740>" @vCP32 vIP32  --$$MC $CGRN$DVPT$LIST$TP32$UPIO.CBX .DIV .DLD .DST .MPY .MVW .XLA .XSA -<<`axp(``p(`!@`(c FB((  <<<`^&!P``Xh (9`F_`c@pIh`PI(?ImHP,(9< `C?I `E ::`^B _(Z I_Є(O(`8I(`נZ@ k pmI:;;`^P`c_ c(ć@h xp8vPv8(X(X; `D~(h @ <<`^ڨm`P^(hX(hmXx`h (r(pm<<<`_t xr`hmX( ` chr<ph (T Xc((P < `CX_(MXb <<``/´Z(P`pl`@pn$olmn&h`l@8(Xa(HXX(HX`(M<;;`[ⶀ`hc@׶phhhphp*hp,hZp.` (MhX^(<` (8Hg; `C i@p@ ;;`^@Hprd@ep@rH `rx *ph ` 0Ppchfh׋ж`h0h&0;<<`^P@(@; `D7P(x ;;`^;((4 Zh?P?  ` p>PO@ZP(x g@Z@(c;<<`\Yx`u"(~`p`(\8gp0pPpWpfp pspp< `CZu p  ::`Yhsxpkpppp3 pLp)pI pdp(pHp`@ p@p@p (:<<`b@8(GH4 …Bpg `@ p`(Ppu`*pe< `EC(u@@ `Ev @ %DVR32::RTE_6:5:22:60 644 0 0 13000 5310707412 32354 %DVR32::RTE_6:5:22:60 $<%DVR32 +# +# +#  >XPFST "" DVR32 92084-16711 REV.5000 <870223.1740>" @vUC.32 vI.32  --$$MC $CGRN$DVPT$LIST$TB32$UPIO.CBX .DIV .DLD .DST .MPY .MVW .XLA .XSA -<<`axp(``p(`!@`(c FB((  <<<`^&!P``Xh (9`F_`c@pIh`PI(?ImHP,(9< `C?I `E ::`^B _(Z I_Є(O(`8I(`נZ@ k pmI:;;`^P`c_ c(ć@h xp8vPv8(X(X; `D~(h @ <<`^ڨm`P^(hX(hmXx`h (r(pm<<<`_t xr`hmX( ` chr<ph (T Xc((P < `CX_(MXb <<``/´Z(P`pl`@pn$olmn&h`l@8(Xa(HXX(HX`(M<;;`[ⶀ`hc@׶phhhphp*hp,hZp.` (MhX^(<` (8Hg; `C i@p@ ;;`^@Hprd@ep@rH `rx *ph ` 0Ppchfh׋ж`h0h&0;<<`^P@(@; `D7P(x ;;`^;((4 Zh?P?  ` p>PO@ZP(x g@Z@(c;<<`\Yx`u"(~`p`(\8gp0pPpWpfp pspp< `CZu p  ::`Yhsxpkpppp3 pLp)pI pdp(pHp`@ p@p@p (:<<`b@8(GH4 …Bpg `@ p`(Ppu`*pe< `EC(u@@ `Ev @ %DVR31::RTE_6:5:12:60 644 0 0 6000 5310707414 32320 %DVR31::RTE_6:5:12:60 $  <%DVR31 +# +# +# !XhFST ## DVR31 92084-16712 REV.2540 <860204.1555> # @uC.31 ^I.31  $TB31$UPIO.MVW  <<`c)Mx5p4`18h6h7HePh5!Hc@ `2(!PÍ`4 LJWGC(-<;;`c#`4…WFBf( heHNxShMS HcHeS; `CF@h3 <<`bqIP(80 Ow(\TZ xpb8^^h @Wp8wpw<<<`a&UkZ0(`8f8fhxfPhe@( P( (@(@< `Cwh ::`^ (hb (\Z`M(xhwZ XXm(&((X(u8(ڸS Ȩf8W:;;`cwf Zxhb (8^`h0pb( Z=p`!@; `EP` ;;`^^+ն`@x@x(Јp0x (hH (hH ( A;;;``\@Ά`@  @0@(`pZ pwF(`; `ESP@h ;;`]FZ@hx`0@p1hxxh@ Zh @xH xpd@p3p`;<<`\5h (_h`ö`phH¢` P`h `h!`p@p`@ < `CQ'@3p3 <<`\T@0d0p3`@Q(zZph(( P(l@(p`p@ Bh `4(J<<<`[np`hx`h`h P (`p3`18hZ`HH<'`< `Ej@e ;;`\PWf(8((`h@( pp`0p0`p(0;;;`d Ch (p5`5(}` @P P; `DдPB( ;;`^ԶP (Ǣ` `ӄZ((=`h Zp@p^`;pbF;<<`^p5peP((`p(Z  @((< `DkP ` ::`^#]pW`bP;8^^4ZTx   < Z  (2  (:;;`Zl2`b(`e@N8W(p0p: pJp pp;pKpyp  pH; `D?Lp p  <<`ZPp p2 pp pCp p pp(pDppp p9pxpp p{ <;;`c.j`@Zpp`(thpx Qx(Ӆ$@% @ ;jj`($ p`5p`  (,(U` @P (2(U` @P (9(U<A}}}H@@M  (` @p  p((%DVR33::RTE_6:5:11:60 644 0 0 5400 5310707416 32220 %DVR33::RTE_6:5:11:60 $  <%DVR33 +# +#+# !XvFST  DVR33 V92084-16713 REV.2122 811213  @sC.33 I.33 ;;`\opEp<b`50:p8P6((v8P7(I ;<<`dgZ(-H1 (I(-@/(-(\(-<C< `F@ ;;`^HFCG8P-(Q`0`Hݶ07P@p>(;;;`^dZ(838< @x`> Ђ'p?8?@4P.@=(-?`<(`9b0; `C#0@0A] <<`b|P? PHC`D(Í`>Å (`>…`B@Z(@0@0;0?(<<<``+P(ZՇP(Ѝh`FP 0C@Z(`Zh 8Ơ< `BǴp8 ;;`d%ɠZ (`綊PF(PE(PԄTT( P@(%;<<`]ZZ(P(h`FP  f ]UfpX( P(< `C p`( <<`] ( Zxp(ŶX(Pڶ(`@4P(*`(*pp(<<<`\l*( (:`9h߶0``׶ڨx`p(GVhf< `D4-F?T ;;`_^J GTGh (1 xPh(ШVVЇf]ԨbԠh;<<`] iP8(iUШf`h (8Ƃ%(oP(/`(P(P(< `CUP(P <<`]((-0@0pB(\?h0@0]((\ ( Pbb<<<`f5 ]?  @ `׶ph`(բ`< `Cܙp <<`\ 2ϠZ`0p08P7(h㶊(hG`@@Up h`@h<;;`\{EZ``` ]`h C0pkp0p_ppDpp; `C<@pgp <<`Z pd pHpLpp pm`pF`_ p^pp@pc pCpD`0Fp<<<`\cM$0pp pԶ0pPp@@(1@@Up=Z  (?Phx;< `D @`7hF  $$`R<Dph76P6(N xaxCCCCQ$DDdv &f,d4Xd,:;;`_x6dwtUbVtdD#lwdtD,daT,daT,,˄R`U;;;`h$RHd!BCKO1::RTE_6:7:247:128 644 0 0 173400 5310707417 34670 !BCKO1::RTE_6:7:247:128 $!BCKO1 +#+#+#{YXFST }]o7F7H7G7c7E7b7W7V7e7Y7U7T7\7^7]7Jp<B:CA:@,@:B:A:==?N>>==>>=?d>>>>>:?::Կ=?:=Ľ?罾?\=~=<=xF:\\ \)\\(\Ya[72Y`a[٭cU[[7`[۷a2W`YYaE`YZuYcYYYYٮYYYYEcccY>uX}Y[4dYYYE)[cZYeٳaH7PY7a7Q7f7g7Z`+7[````EcM>FdYPFJYVF+F3` YaZ`![3a`*aaa`^]!]^YZe\]9/^ ^!^^ ^ee]FR]^[[]ٰٱ[2YYٴ^_7[[_7}]eeR7\f[b\[5W!\dkd.\[\`d]d(d+Zd0d,Cdd|Evef F}sff|hQMNUhhh h ih>Xbkl.ulAl:l;ou8k$k!k#u>kuEuFkukuuuuukuuuuuuukuvvkuuuuuuuvcvbvWv\vav{vvvpv7vlvwv8kkkkkk kkkppkzppkk k{pssJjshkksusk k7i7k7mp_7Rupkkkkrrwrkk kjsjryrkka}jk jkkkrkkk|k}jt$kt!t>sRt3jjkkks;kk~kk k&k%ptBrt7tUkrjqsjzrkkspkolocoo]oot]kn na>ci\kccYYYYYjjj opo\ologoko[oeooo_kt ttttS}m   ! 8 , Y7J _9FxW] :6E4j x  42'<37}3`)``2k   {a@0 "{*7 +70,2k2  {u}ga@1  z ~(7 "$ " }  tt)8G-AX8X8WLTLV3PFڋF߂}a܅_߀-j-lFMaG9؋;9-tt؋Y؋c؋dy[D^؋Yk؋YV 7}6;\``Y}00K00>>>>>>>>>Es}[[}}UU} + 0 U D 9 E 4     tcDvh$~vi$~D|vO$}vT$vXvf%vL$vQ$vMvRDvjtw'dv,4pt , tU,`tdt, }O@,,GJ Nu._,qdpօV,g.@.@@ @@ t|   y   ,Y (( ,J,YdFtT-tTdEt,}@,<| @|dt}<ww},,@-5 .vFdF.|h {0l~FDv- v F.Dv,Lv} -=D} 'EøE,v.}ud -=g)wEmU  }e-WneemL} Ie Pdm en!d-sum P-cD-iepE Bm fE-TenemenV,V DEuum'v-e,V-|<-,.  䉀&} *u㸁 EuM}5}㷭  um CeEEEL} C-mH PeuEueD 'E}Em@ M}EueEP=ϭ h@hgguueE uexEE ~FvEfHv.>..'v....+f.,SfF! K ~G6gE6Jv:oI .3nG @v.fu } C.…dfE…@S.ekfT ~t .c @.g FFBvuS߮KtstKvo ._.^.^.^.<.]]..l|>vv0.. dF @. h. hv8  nl >֮gH} td.e.JgF .`7"w"gHw'l e|.p˸te.t</@dtg'.d ..dw'6g"7I'"/#n5 / tgH.w !ǜg o! "duo.//?((8/*((2gHzwIl} =/:gggޅ26' hJ h@gdgeS   h guf  h@hggwzw'xwwgzo 7gxv  oM4/g絨} 7ȇ?/2?w @nH8/g 7 oۯ߁gg݅ևgggޅ2ACe e e ( ( WD @X hYZ[ h[@p0d)+4\t*Yd*օ֬+օ֬0]V86} 7V4tCdD!@ C9(|Q (L|RX hYE^,\, ,_ `abT,uc,d,eYf0+g,@hijD ,skl,m,t4,,t0n+,]0o+0p+0q+} 00r+0s +^,|Ct붋 C뷭jA^tCu,d,,hvw<,xcC yd,tz  *h 6 - . , 7g 1 2 i Do} 1 ߋ z 2  Ev K ' M NZ 6 I d e u uu9eva-eEC Qk5-  -e{ m M -=} ø --@M-[Mf_W-e ef<  (..Q.i-{  -ԃԀ-B~ %8 V.U.'V^.U.U.U.U. U.%f_{eg. .g.. . fm.,e. @f6}+m. W. f7- 6`vaak[// kA;oWOf<.?eۅ  \ n9 @-ggG}%g /?g./<7)/7/W-Ӹ/˸5F.g^ggn9 E.g˶˶ @!f_wg 'cSae /kgίn9 /n /W//۹//۹?5!ן}븯/Vf W/V6m /5o. ˸M/_f9/ /gg/e/ /i#,s }}}}}}}  }}}}}~~}}xx}}rr}}ll}}ff}}``}}ZZ}((}TT}}NN}}HH}}BB}} < <} }!6!6}!!}"0"0}""}#*#*}##}$$$$}$$}%%}%%}&&}&&}''}''}( ( }((}))}))}**}*}*}}**}+w+w}++},q,q},,}-k-k}--}.e.e}.((.}/_/_}//}0Y0Y}00}1S1S}11}2M2M}22}3G3G}3 44'4H4i444455/5P5q555@4(PRMPT*|@AZ }4AA\4IR$PN$*|AZB C4jWHZAT*|BL1`(LA4APLDR*|L1U$`~PU74XCNTL*(}4|U$U~cV 4BCKOF*|Ujc<4$CNFX*| <Di$>>>>>>>>C=@6?><<<н><=ν>=<=M.^vx~FvVnnM,E- fE+,fVnnnn`Fvf@ -fV-f^-e}9# ABCuiujukD-^E-Z-I-Lmm=j-Nml=i-Nmn=k -Zv-Zfľ-.MJ n~n.o.l҆Afnv~.ucFvKVkN .S.fnnf @.c.f Ls}:::kN~M  !?@|6Nw2F"/ w1o2Nw3.g2FN VW5.O f !/ PNO0o3o1 hNЋo/ o1iP};fˋo6"Ѓɮo6"ɮO5pQg-"@;8 4w2hNV/_Nπ=Ew6FW2/O/\Qo7o6Qo8ы;4RK/\f6^/`/b -?bv/Fp@vv/!/5A};/F/fp/5f՜ b/ /?bկb՜دbW5-콜ܜ/e /?b/ /B/ /S/콜/ׯb/f~Tg5@/N/UNV-U처VWX,Yftm~dvZZ[\R}<Y]^_oevvfvTvmopf}~=Ev|^ .;v.7fvfuv>fvf.3fvf.3 @nd?@f?nefT@V.c@.av.U.hfTjvtfjFt.^.c@uxnd&?fm6}>~nvfTx~nd?.fnfnTvev.7V>>>7W>>>7b>>>~d.|ȁ.f f.f fnn|drfT .||f.fn~f.n|chff.n| f.o6&ޏ}>fvfvfv^?</ /i/g<PAY@V/\/$g</! % 96w:w> # .fѐdd.f((P.PD!.Pq.k>}Bj.OvY ഐjp|QhN @:rdjvp|Q~Nf.~~m~.nDHhdN!.FF>>>.^  jFFĠj`ԋ:"[sm Ȧf/XҐog/X $Fи /U2}B֘.H.Ghhq׸/K D/?`gqgqwk Ci wl /#wjgl//jGk Ci olHj HߨY`7l /?wl|gjgl $ـcclqlʮ.k /e K  ]z}Cd.覩q lwł @?FQ/ɀ ȿÆ qqG/nq/W/ksȨYcϘo|wwgOwwwwŘCD=蕛D=qo owwq/ٛg艨ݍD,*}CEwdjv jFnH voc?/EdjvcאvockKc@\ciD ]ci@{ k{^Lf_Q4Lpc吪`@aK`jb`c`OdOeOfKc4לgDZCi:U}D^:<:::?AAA9o,q,qdlm C,} M !,~ ,r,Dø,k ,[,,D,k ]!,۠,L,,,,6,e(l™cu)cE =),*| :,M ,Mm ,u"}Dfm E$ } }, EE  Pdl,e E`Eue , jEdp]-e @c5u5u%ud}! SET TIME D LE sÂE;; cÁEY;; EZE^u_` EZV-QeXmZE_E]E[ ­)*}EX<mN}eu-ie -m͉emMe} =M} } }ՃԃՋԃ‚#ԃ-uԃ-ktsM5śmmڨԃuԃuԃuԃuessssm-E}ƀEsĀEYŀE C  P-D` >}EL-Љح}   6meu} f]- x-EfufN=.E\u_Qv!e_EZF!@ n -tF#ILLEGAL STATUSF,NO LGO SPACEF4LGO IN USEF;OP CODE ERR FCNO SUCH PROGFKINPUT ERROR }FRFSCMD IGNORED-NO MEMPPKWRLRMaKULJPLLO"RN3HPJIPNHHHPMЍHHPPPHHHNNNRNJHHJ0JHPHHPXINHJH>ԋFv҅DwJ].6vPf;.ƍDŽ@cՀՀgJ]SFpKPC C/ oJ @^.p_/~}FϨ@E.fҪ~DwJF.`agJ   b/c.7OdegLfg/hiPdjdks /gJw?g9/kwG GHg@w8kԀ ԀۆAA@s/3J ڄ@ŋG7G:ILL INT XXGASC03 INT XXXXX 4 }GLF8elmnSopqrstȱuqs /^v Q/sk  wԀvhxyz{z| /kkk  /}~//oK}{hz|_Q@C!Knxî|㳖xc_ք{s^/kΉ oc Q/ @֌/yAK„ckϞ/kQ}Gɞ/FƐC@/wnx// ?//`S/s nFl EtCS,d$,fH-kLT-cȩ l_R_S cctDD DHt <DtcC}HF cDDS-dl CCtdtS,cT,cT,,g<<,Y-S @l @L[cp#6@Dd@s-c dc әMH‰OpoTћCc,<  HI H *}H**dt T,<,ͬאt<ˬHᙔRQ kLT T T-LOADRxdk T-!dȩnH[-a@ccЎuЎvIp->kϙfM5ЎFJ -2VJ-%nJfI.E,vЎFK0ЎL-NJ~I}I@pfILua !fp-KLU}-ZnH-pfIn,fN.E_R--d-d@U-[fN-l -l - @`nH[ue--q---fI,fNnI -, -c-DfI-}tDtk^H l  K}Ie -fI S-dDd | dcU-U eU-c‹Pd.c-NNd.4 lc.kOWkP ќAddk . Ԁ)dAk|cVH..!c&k\.+! !l gS"cFN봋Ճ㳃Ճ_}J:lK#K6Ճcب4ԃtԃtdpGA!vHNJ~I$dLuI . ~ Ճ  v LU  Ճ Ճ%F .%k‹d.EI#Ir.fLU I .pd }J.IfJ&.E.EnIS,vNONF>ŮnH_T DdH #@ ' î@0 SI~fI& V.(/CC / >GW?| B/"t / GSL|/k!?lEkA/D  U}K4/> /=/? OT/I  /.d)))!&*+,-.H/0K12 Q C/`3P/ /OT2 C/ /FN-/,-GSP/3 /2/425W6WR/OVKVE+78- @/*9+,Q}K /:/(;6WT/ة; //K/ǹ*9Ƀ, /8:/(;KN7N;<=>- /?KVE7p@A*9Ƀ/,-@8:;,@B8 ;l C$pDQ 4ѬQdL#)L)}L.TIJtId(ɬJ.H/|KC,z|4l" ,r\#,lf<.G@ .h @@v|vP.j.]>f<.]P.q PP  dvPP fV f}R .  nK/K  ..K ©|f<?kS.ǍƄF SDŽGcQfvcQ[>.ۍȀvc.G&v&vg u5o g ox xQcw}S7gf-5 HHFG,G+LJK4L}SSw @w _/??/ъ@@OQ/!//w GKWC/ / /᎙&&/ّ/g /g!S]}SXXX4XJX6XXX XEDlQ؃ԀtPJTI,dP`$PK$PԀ,&,5TL,TTM,ST,V2.Yk pcD@`dDG!ឃՀL,=x|CFtNԁs@H{xDR ssssssssdOuuឃԀT ,n= ,mܑ}T{skL;csD D tPk5Lk!r=?rAPK !, /    ?YMكԁٹ́ԁ --rԀ,SϬ ԀtmcEu,kd N}q-!-&\ }Tk$Mtor r -$or DԀ=dr5orLFԀՀةћDFԀL-#kԀ ԀۆAA,!-Dq-a-#u`rvgr`=``NDm` r M5>e`F= -_}Am} d`UAA-g=dd*}Uue u -M%rrtU} ((}kd-` -!FtL}wrhDԀMaH-uAr =uHMĭkd-L- M -kM%u}ruԀ Ԁ}AN|=lMroreDLŚr-}Uu`Ed.}!f@tL.wrm@C .&.vvrwrtl -EKtᵃ. .eAF1r.R.EԁԀً́PۃԁԀkՀ ՀԁrԀtLԀԁ@kd.qN}D }Vo  xT.k}tkcF/ԃ/ 6 .ԃ .EՃc^cՃċՃcبAvc/cϋԃ\.cE/ԃËԃ5T/ Kԃ/wrf.KS/ ?r..gr. /!.K|~wruAf!ucC@PCv % ?j}VKOU/ } / W/NV/.>>?r.<=A/ n l/ngODR00ugw!/)u$U]!cwrcu rUr?r=/.!wr B/>m}Awsk`C Gsvct H/ROs X1 GRGRGRV|VcVccdd$dWdGReV{VGRGRGRGRJPddd$WW@@  :@@TPLMVWTTׁ-euu2us=S;-<=S-P=-Dme &2ug-I }pEu`_}Y]5՚-dgYe&gu{ {K{cDucu-==-x !-ge&Y *MS-|}-|?uaHaaa]dcae^e]]^``cuk}rq ?Yuvq }Y.vsU.U.kU. . U.U.U.0}ϻ}m .U.&.+m.bԁvsԁ&s-ߋԁ-ٮ- ѝ!.m.btns .@].v].].^. ѝ ... .=v.t͞f.ԁ.42 .KU.f2u2.`tmΝt[͠Mw}ZWts2nrtYЁ .KU.E2t[.\U.2U . .  .@nr ].tMU.MƀYEE.t.\ . .&.2.j2 2.%§2.\U.U..G2.2 .f0.\g42.I26s.\@_0Ԁ9}Zv Ԁv Ԁvn߮ZtM}M2vrM~=mM}e!/enߋtnͣ/ tmͣeu ]/O1} t/UG1u/-t/0pMͶ / t,YYctcu :}  u}[Q!/b  @Ou /]ot }m^g}uguݮ==/k‹́([~RTONOFSSGOSTPRITTMDNUPLUEQLSLGTOTIBRABRUBLSZASURQUENOPۛ\+\3\N]]]1^^[^^P^^_*_:^^^_]#^_b`a`,`bc[p6@uo3} =/2g7uu]/ݽ5S}[!W6/լ/m_8/=/2ǷuDweW7Ž=U}O9a͞a@=em] ˩T)͹,&ӹ  D, \*, !ߡ͡ ,٩B-Y-!t- -!tӑ,G f f >}\Kt| ,gtf ,]ݨfTtϑ@ f ,qll %ב    , , F  ЂF ' Ckk, ,Y pʙlM  '}\ ?NP| l ,ll S,] ?^5t tS - -,ϑ-!Ὡ -!V!,D,Dk--;DH - {™vmU}]E~tUH~׀H~vMӑߙvvv-hev esЙH^ ʙv 虰H^ 왰v T Y9 EYE- -ęvk- v Mv v ׀H~-^]AAY->d}]eu͹uιr-ƪql!6n!7l!8n!9g8-t-g6-t-fm-_6FMGR D.RTR ^SMP OCL.ZON @PcL  @ NNXvWNGσfW vWc ##@}^?ufW nWNXe΋u hNX e΋ы@p|-!tn /f n .# fF/fE/fE/fE/ ssssњ-љ.m ^!.n /_-_vY^ęvY^vv-f /tv[G}^ntm-fvessˆ͙vvvvvvv Йvʙv 虰v - stucNf /f !/hf/v f+F /v o8t -!/"o8t.,Ot _6/_9// /45^ / @N {-}_9-ӑv/MS /Mf /^ {N{Sk6(dK /`{{^-/@f!/К /t !N! F " #h$$n $  "N %&@%-' !n /N /(G@"/'vf /(}_"f /!$")F *'F*!N/ /tNNCvY^  /')@ęY^vvv v  nê+Y^ emY^ l ,2-t-YEt- d#`$SIZE ERROR.,UD,UA}`3/YE ,U01  ,Q2 ,SC1+@343B,IA,IdX`YILLEGAL PART'N 5C,,UD,U55YE ,U0+1 ,e1,UW5Ъ3e,%eE11,|6,d7䩲 ,/ aL 8䩲 ,5i}` |tsϻdm`dm|`dЩ`Q=XXXX0 P=YYYYYY ^^^ ^^^^^P6,9],@:t;--l85U t?-=@-=ᾩ  ctíHAB-eC-eDp-g<-S$ @tDHmEoUFma }{ a{M GG EE-yema YYmFt-CB}tH}A}t}9M}a-YE -0+um}Iu -Emd#W-`uIu+h}EEE-- M -tM -%-cJ.Hb;b];ݨsfK..;~+ @~(nb(L}b'b8]>LM.8tNsݨ *_S= 1 COMMAND ?_ O.OP.Q .RvZ7~S.ǘbi];ݨ~TnH.~fUnV@:n;.n.nQQsݨOP, S=?? COMMAND ?OP,_b$YCOM WvFT& }b.ǘb>b];ݨ~f^T>V.lsfn.bb]٘b];ݨ0.X .nH.Y.&/5 JfbNOT INITIALIZED yVVJ/2U6W/V/©,/ /.Z V5`V}c!VVU[\]\\^_/6_&\AwN wO 4wP\vDgL\!k&cMPROGX ABORTED `5[/cOCSa5cԃ///vbc䩻tt7[/[/Gd/kGGgCo5]dOEag}c/KHe! /AcGGG`O ș&cG cϙFfCgkhHi 0w!jgstٚkD4f [tl }k Bmaтn`,  =Oko<49#}doCk4,( =Ocب 0l:l;dm@_t,E!==kN=,6kNtNOccssˆ͙Ãٯ,(kAԃ,ukh ,0k|kk Tk,}KaтodC,,+ԃŃԃ{3}d,7k=Otcتpkh ,0,,,7kϙ|kt,ҋԃ ,}cu t],4-To4koDoP, ,T ,,(c,(tooCSC kԃ- - ,( ,(k ӑ I,20 4z}e,(c,+cuԃ}ԃE\-Ck-YDMh%m}  @mڋkm-Pc-YKH],4-T,(elћD -Qc %{e@uulq--]l mu mhe=-e-e=]=] }{ѭ]eeK}eue  @ }rt-mC---  ccZZactZc.KvJhFC-NL -=A@-=vKnB~E D^G-FK vKFJ-FH-FI@-vJx >EE=nLnC nJ=ȭfKvC-vJvF>FH./fBvEO}fxNF. nE^B.<NF.<EENEDH b.(EEDE>EEfC@`~C>k `FC.0>EnJE~E.fCfCvLthhhhhhhhh h h#hh hh$hh!h"hhhh*h!hohh)h(hhhh|'hh)h%hhghHh&hhhhNOPO Q.v㳂vni}fn~nn~Fv㴖QRvf @Suf DV. U 0 BNOS.VVGC!NCTCU /k D.O OOV WXYZ[\]^/ShC_O^`/ΞPcabc/d/fcw%k\]T /?%.`/6e/:ZYw}g Nf/&g%/g _Uuh$dh_dvdYZ/ k/|㴖Q/0iXZcs/ Nf/ ZjSKkNfZN /Vdo% /Ul`g _uh$/o% /bjl`g _uh$Zmd/`/le//unoh_ovYp/n_ovYpkuh/ZjSKkqX.}gZN /UlrsN/]T tOuNmk v/ ujlCswCZmdsN/]w t[xO[Y/a/̙pa&_wNf/ʨugx/a.a.d .g.Nyh[^z[V/{y/zyҙ{{dn|gg**hLU uQ}h#MN1 = EXX SYY <?? S,0 ,Ak|HkT,< nnunx^5uf.` V.`.V4e.ovfm؋jke.v}jtu.ee~jfm؋jkm -3{ϋeփꠚfnEeEhe]u jPART'N XX DOWNjPE PG# XXXXX BADpE@E>E@ jǿvFvvvvsJ+}jm?j  @YENOCURRENT I/O CONFIGURATION:SELECT CODE = EQT ,TYPE PRIV I/OCURRENT SELECT CODE#,NEW SELECT CODE#?(/E TO END) OK TO PROCEED?(YES/NO)PHYSICAL}kn MEM SIZE?(#PAGES)k4kr @ 49򌲍$=򏢐,48,49򓲍$<򖢗$@򙚚,47򛲍$>򞢟i/}lh4<£$=$?,4򫢍$$$$򲢐$=,@ c¹Hʺ  cì,,pҿ,,$ @  ,˄?A -͚k-}l[sʚҼ-gҚc»¹-g֚»ʼkK׃-ܚߚkok-8ʚC¹-T-PGgg^ң-T⺻g^̒-]--L}mbU-U-r⼚ - ג-גʼ-y@ ڽ-⼚ -kגҽ-S-- גҽ----- p୫歫`c¹» ʣ-ck- -eһ--9}m֚k-w[⻚⼚g^šw[C¹-ko_o4o?d.cv/.v f .bf /.hoGd./.N .&/1һ.NgšԚw[⻚⼚g^G`w[ .T C¹ oTd.Td;t}n\.b.T ~anʺ.p.к.f.{nkFfº tftº tflfº kn|l.kI/O RECONFIGURATION ALREADY PERFORMED: , 2nnnnn*SYSTEM DISC 1 *SYSTEM CONSOLE *LIST DEVICE k툀oak)k'm}nٛod/.ockF od/$ .d/dWh/)⻚/+G\ S{GlhGpGpGg.`// /) ./+.dW/W/igegf.gd.gf.&START RECONFIGURATION LIST DEVICE LU#?LIST DEVICE SELECT CODE#? ECHOm}oV?(YES/NO) l)l)k ENT 1 2 3 laPIߚkoks g^ /oʺOpǃGg.//I/O RECONFIGURATION?(YES/NO)MEM NEW - /R/E8cG//Ś⿺/cc /ϴ}oӈok)o_k)o_k_d//okokc.DE/ /ʣ ,!" @ęplp|ooo#,,kjdR,[t^£tQd_t`pt$pcd%&£l`ʣ o#',(,:O-}pPR,Xû%,E,d,Ed,%DEFINE BAD PAGES BEGINNING AT PAGEXXXX (/E TO END)CURRENT PHYSICAL MEM SIZE: XXXX PAGES01011dtatbd`&n ),Db,*,t`,l ,+,d,dal`<+£d lal` Ѻ}pl`шn t`&d^),w-tC4l ހ!ppp,d-dl_ܚd-l -M׺Njzl--l -q\-=+-=dtatb.-=t -;Db-@l-.t-qd/ h}qJdad EDk h5փ咊50d 3d c d012345678d9-kJtC¹t -usjjjssssss-̂@H==-=t}q===-s:s;<=>@7v?һ.yyFw@HAHfx? ҿ--.hFw?Bºҿsҿ. WJ. -y. fu S{s./Nw@@A@!Cڻ.jֺ.;f.Gc}rDyDc¹»B½?½Nw@@ң.uA@h.uD .S.P=ۭv!vnVy >.~>yykEkJES..ڣNw?ңA@?BBFw¼i}rFwp@A@AFw@ڣc¹A½B½ /JǮck/ / / Jһ/ @ң/ .F/gv?nxǮ/ck/7/7/7 /7J/7º/% 8}s> sQGGR?/N?;;H; /f @/f`R/f`?R?RR£CJh£kC˯hkʹʼuJ¼(S/I5JK5J? /DJ}s+cw \// Lwo O!wM?/!w sCONFIG ERR N O PQNRl7,慉tt tud  ,Njd7Nj,(d$t!tA!t/-H>-X-ք -I-ɭ+ -ӄ-I-ɭR asf`oe.:R@f}`f~`5זv5vv5Fv>>.#5Vmjv,./ .-eR g. oHH5R@af}`f~`5v55f.L..JR gs+sf`R>RR.Wo>RRȅȮ`R@pf`oHˮe.pof`ȅH.wȮs  `(00'skwolkxllnllsQkyp^p`k'mFv>>.#5Vmjv,./ .-eR g. oHH5R@af}`f~`5v55!BCKO2::RTE_6:7:17:128 644 0 0 10400 5310707420 32541 !BCKO2::RTE_6:7:17:128 $!BCKO2 +#+#+#[Y~FST } O ? ˍ 9 F G / S E  "  K  Lˍt_  ,BdZTY,B,=W,`d_D\Ck4X,;``@.! ,  ,-HυOt^ d^] ,~ `}} ,뺨 e{ L kk[, |k|;ܬ㵂& T,T,T,T,T,T,T,T,, 8 L ﻶ,dĴdŔ,d,g,, L}-øø -Ueem|5!s-0m -%W-: ˸۹-9m -9Ut-9m -9UuTUr-F۹-F<-e- ~mvmy}U}-p dT-ek e m}-mmk_ _x} w@A J 5w-}U}-e|U|d-m~-nmg{ emkpeudm_~- -m -ew-xUxeUz-U{--w-e-e-e,`T-Uu-U{-W|-Ӹ-˸5 E.\P 0U} eeTUr.۹.e븻5!ߠ%۹.e U.=-nO! e ..g m.. " .2G~F`"#fae.A$fbe epdtdVf.[g| %&'dWsR2F %" . #fc@} que.{fd-fefdpgutdUr4=.pfĜ-(㵂& %/ V.T/*.U{.Uq.Wx.W|.V.V/*V/V/ 5-p6Cof.fnef#㸜fd/f#/f Fųf#g/#/)p } L*).׬fe#/ff#gffe/f#/T#$f %/ .fefÜ.No##7|m'Ɯ)+/Mʜ)++z)4,TĬ+/9g-gyUoxϯ]υOusuyq} kOueϯddg.m{plP?@ 0PdX5g}7~g5zdZ / Q @07g _4g}7g{ggW/ 1``^Wz///ԃԀ/g0g((gpdgtd| C,l;d:/>K=,aFNT<-hJ0ldWPdXlYTZ fZH,^,.e< zdd z,_>elvduiw=,dmi}}{FNT-JhJ0ldt! ,dT,,{T,T,VO,T,T,T,T,VR,d@lddnMldAfZ,ld EdldlfZ-:dlYfZ,^-fZ-:V_ldA}fZ -leWvZe8fZ-6=-)N-%J5N-2D<-6nze< zfM E @}E>fZڭF-B5^ &,^>H fZ--fZ-:=í_-uN-qJ5_Nk} w-~D<-:__-:fZ-:  fz,fM4z=5…Bu^eEH@ ?\ .um󸍗-U--ćևׇƍfzVV- ~VhFUu&Tt$uuv u%uv &Pu&Qv vuK-6K~V֍a>} v[=.f[nO -}NO.m׍NT-6hJ0.=.ef[@CvIhfz.5n[ JhfZL0n[ I.?In[ NhfZS0vZfZNhY0u@e d Vy\ ~yhFUu%u%uFXuuu$u} qu$uMu&Pu~y\ .\fZ .V.,^C㸨FUv- g  5 o  i x + i  w   w hj p  vV/ V/V .ߞ f잝V.V/V/6]0} ÿ //gg@󸮴g0G.붋 gn뮴㵂FoV/y6f/9//y6G53w1 a.㵂Fo VVojVoiWomW0onWho4WjWkokWlolWm/WnopWooq /u`@W0/xgtg7s. } k @_4/yg /~ohWj  ަ/ާ/.n֨//nV֩/nV֪/yf뾬/ /0  nn / //֯/p^^^沧i} 螝 ^/ ///ឤn֦ | d tx @j篯/(糯mtv4uV>,Jv>$otȧt$ottt$qtttv_$ow?tv$rtu&$nw@tttuu@uDuHw$pttuAuE4s㳂Fltw ǹp@tgthdw ǯtitj#} etk?@ "xdxd-w4@dd$tetesx@@tddx^`lw0 ߳߹߾4dčl ,@,@4ʏ l4t ad<} ,އdKdfh@tNmfTN,DNrMT1,>N dJ$d- Nd,T-f.5- @ &~ *v㸁 FvN~5~㷮  "un CfFF F C.mH PeuFveF 'F ~F#} n@ N~FvfEP>fh@umueF ue(FE h !0o cGtwGt('vtw'tw&t%$!t*&t&t+FtG"t{ftpz .ŀ vtV/M/h/LV/Y /_/W/W//drWT/N/eu7} k/ @-/k dtrdV<{,x}      /  /nd/}d$Jh/}//5/g$d/ CC @@ RAW//ȯ  W/F.Ż((Eet|]c]嫙^D#} $//@ƍF|E 뷬l   <l<lt E< ,%!!d,3,dC,!@,9 hDTD ` tCE lE,h뺋 B} e뷭,a<l4 $ $ $$$cDttt ,<, L M 9 …B cC d,㜀*z@@ @} } rE T z U\k x p 8Q . Ni - M # l j}UuTeQXmVmWMmU!M@ eR-AÍeTÅLJwGC-MeT…ƇwFB-# mMn}swy} _mmsMMs@mS-ՍX0 o-| t }u=~~m @wuXu0-eX=m}m@- - -Ђ@-Յ@o m -|em-m ^]-܂&--^-=-ܽs ȭXw m -=~+} emPu/3]ue!@ `fE}F}.ʈuP~ .mN .mH . AEeF EPE.evvF-fEhFn~ePEuQn~~n@ n @}N }uEuSvfn .m\}Yf funNf Pfn fm! fuFveF 'ESuSF55uSfEQ.vn P.F.fpF Bn  eT.jfm} fnfm +W+.fuSeQXnfNO\'fEw.>.1-fhF/-v˺vePuPev.16m /3uUeUPf}/3` @VB.V .e e/3/]fk u2Gu~g[u㳂Fv5uU//3eu/: @-/ g9uweW[=~~ t}   \   /R  /!e}S/0eEnXw/0p7uZ'ujv'u0u[ukuv''uhu'u'u.'uR'vu'ucu*u'u;uHudvuu'uYuvu)'u cCuwg/ku} Q~/ $@% @ 303uwg/ku} Q~/ $@% @ !BCKO5::RTE_6:7:17:128 644 0 0 10400 5310707423 32357 !BCKO5::RTE_6:7:17:128 $!BCKO5 +#+#+#[YFST }l & 9 w ' B q = C}' `T 9SZ F r v-   ct|}xuwd0 ӂ! *t,dl _,T,N%t4w* l|tT|   @,j  @}}@ @p   |      ,x  g*U4U/g*T-T.T/+T/@ , -- , d, D,D?,ø-㸀w㹦&}`G D-d ,E,E,xE, M,x  51d t m.}3 -5}z}|}y! -m @}xe|my3e-M=w3~Ezu{ @ù ˸o* u}ex5xexm{U1-p=333-k@-k4} w @}}ed(=} ee4e}$eeeee} }x`=} @D  ˹ øO  G٭ -@www- wP,o D 䜀G O P, ? } g/^d@ Q,v-tvv P.m|̞ .md  .m~~f~L|̞ Q.Ef.cc8.ec ~ >֮ C.tC..l9^.~v.tf$Z븮H.neB   y㴷.tCSERR .f@f˓mfn& ....f ݝ}S󴫣uf%.vF`C.ח..f6=.fmw7v&fSZfDg+5!eZeZ!VVfSZfD6T!f$Zvg7vm.nni/'V!8/#m!`77 ,8?7/.?!@ @ H Oe# }S W XtV% [ ]KO  \uoN,cC vg/zvg/vgsOl7vg>.t *30Ј 3 $ 0  . ~ 1   % | 0 x }  ~3vg>.t!BCKO6::RTE_6:7:17:128 644 0 0 10400 5310707425 32455 !BCKO6::RTE_6:7:17:128 $4!BCKO6 +#+#+#^YFST }M<R==HC<AAYKBBDEcIElDDI3D-II_I9?DCCCCI.IIIHIIH7oIPIܷoIIEEE`GD GFF~FEeEkGFFEFE]EiCGEGEEE\EFEa<6FEj7E7cE_E^FGuGLL0wL x<  =7XNNOOO,OO+OOOO]O7OKTT2d2d?d'd4ddNdRdldeVeqf{fhhhh hh h hh hhhh'hdj.jWjhjj}(  !?YENO ER S RTBGPART'N XX, XXXX,(XXXX) PAGES?/o\>.\=.\</w((l ../o .o\; /gT\ /d# /wFT".?vg C} <l ,|- |. 1t/k|0<0Լ0 ,(L2Ԁ- ,Ԁ. ,Ԁ1T/ A,Լ0<3< R<4d5t}4B3<6 Dy Lz<{t~<|}<}}<} d~};}<}=m6a }" ="M5 @@ M@}@- e9m?====7 =;== e==AmH=HeH=H-Oue -Se=e e=e e eeD=H=ff=gD} w=r rus=t} }qq}}kk!BCKO7::RTE_6:7:17:128 644 0 0 10400 5310707426 32530 !BCKO7::RTE_6:7:17:128 $H!BCKO7 +#+#+#[YFST }| @,t4t$t| |kLM|K,l uU,,.uEԀ5ueU,>@=@@A A A A A A A,Ld5t@L@@AA A A A A A@W@@@AA A A A Ad4t@_@ ,EԀ ,EtEu@@| ,v@@@|@A@@@@z}}AAAA,,4l@@dt@@@@@A A A A AeU,d4t@@@A A A A A A A,dt@@@@@A A A A A u @A@@A@@A A A,ݘ@AAA @AAA,e tј@@AG ?@00>_=}FMGXX > >_ ::HI::-2 R$PN$ 4 ?s}N=U }RuuSeSS-6=SCTAWCEXUN-@-(}SeSAUHMVeSReNP-7cESEQO-7-(?? 00Ԁzv6vrAlBwBrBB{BuBvBf-ccFuFfvgC-} wfvxVj-gh-vFԀ6vfvv~t -fV-V[-V]-B-ABBuBBsBuBvBBB-fV-cf6uvABxBBBBBBBBfV-cnvA6vAByBBBBBBBB-c-cnt Q -NmԀ6aՀAA!-NqԀv~ Ԁv Ԁo6nvftFbe} vtB|-fu Bi6\v_N\ ~`BB^ -p~sNpԀ.>ssVlVk.f.0v nt .6Ԁ~s  @m ~ >B V.?V.?.EԀfuՀԀV.MV.M.0NeԀdVjNcNfuՀ.KBRG0ABFMGXX    Ԫ} qOF, BB vlBB vkNSMP D.RTR ONRU4 FL? ~>V ~vvfS.>CBCFV..~fBHNf﮺f.cFF..?} ? 00EhEiDHHImIwIBD IHIGDAD?D@D D IEUH5EjD EkEbE\EBFD DIGFԀ/2C Ԁ Ԁ Ԁ/9/9/W /Wc Ԁ/`/dc Ԁ/`f f f  c } k Ԁ/Ԁ /Ԁ /Ԁ /  ԀP/ /j/Ԁ/Ԁ///CԀ////` /D// f /j/刀Dw } D.// !ALSMPAD** BLOCK ** D**D*********** DEAD LOCK **D/ *** SEE ABOVE FOR REPORT ON DBst} e e} EcԀcU]-O"meȨ"#d mi\ "#eE\U} _ ?EmEEEE------------------------------------------------------------------------EE } E. . . . . . . . . . . . . . . . . . . . E* * * * * * * * * * * * * * * * * * * *  |$$ekt$mbv~%nf~&mn`Im_'nޘmn`Imb&.AfE_.amf(pg .Rm`.QeE\.T)e( fBy}YI(u)$wel.sE]G(eweHml$el%fIelU\.U]./F 0 . FAAFBBFEE2vfEcCvԀ.Uk..Ԁ.>fS..fE_/FEXEC F( FEQ: F,AV:F,ST:8fE]f*fHn+v%fHf F%f }ւC%f %/Ԁ,~ vV/+V/2V/6+/I-4 /~-4/-/cF/ Ecw C/mc/tfg!/3ft/GBL,EQTgE_g */G"'S QUEUEG'RESOURCEg&/3G.CLASS # g-E`/g:Ec/G;EQLK TABLE FULL GDLU: GG DN,m\v/bgCE]f*}SgFHFCgGvEcCv.vfC EcvfE]f*gFE].GwRN Gz,LKPRG= wcwcwFuW/??/gvHg./GLULK 0gHgC*/Ԁ/0FԀ0wgHg*gyFg/GEQLKG**d/јgE\gueH$e]wҘ%fS30IgyFfGԀ11/GCԀgE^GGLOBL GCL wgHg./$e6C3Hg./GLULK 0gHgC*/Ԁ/0FԀ0wgHg*gy!BCKO8::RTE_6:7:17:128 644 0 0 10400 5310707427 32607 !BCKO8::RTE_6:7:17:128 $\!BCKO8 +#+#+#[YFST }2, 933F, dE\4567558͸7,39],):h3 ,)dE];,0,3cC?@A@,V?^B62,Q9>2CI@׸?@S,Cg^,b3dEa93w^dI2>cD?@A@DU,?^B62}},9>2CI@??@S,pg^,3dEa9bBwdlmc;ԀEEHE_HGHEiEhDFHDOWN EQT'SHDOWN LU'S HALL EQT'S OKHALL LU'S OK HSWP HP: H H PRGRM T PRIOR PT SZ DO.SC.IO.WT.ME.DS.OP. .PRG CNTRZ}. .NEXT TIME.-t2 -.dG-tHI JHm}62I=u*I23I.KL623KK62m9MmGmBDNNdH@HP=PԀ@}H=PeNPODmeE^_ut7IvE\EhEmGm} w3e}9w7KII::I00DmƘPIIjI~e>Q7-eIR>>7-eI<Ԁuu2u`Q} -Eue }-U-5u==-e52e- l D LL D @ I'd } 0fnmBSvԀT?ԀU,F?<.>.Ug3SDb.f.)lb.#f.)Vbp3 fIlb63 fI3E\Db@fI@Wb6f fFLb.^_9S?8?<. g,fE_.T?Ԁbfg3fSf} qU.yfISfEbv9gJPTN# SIZE PAGES BG/RT PRGRM J--J J JRRJSSJCCJMMJ- J BG JJ RT Ԁ,.3gBKԀ,Ԁw]@w_ \w^o\__.o^\.\.?^XIo\O]Ԁ_Y} g?E\?\.g^9933K.4 3gOKcw\cw`w^o^\/9\FY/2FԀ/2wa?^g`CXIgaU/,GCԀ_//ZE^g?E\?\?`/ g^9933K/ K@), KCLOCKED EQT'S (PROG NAME)KPLOCKED LU'S (PROG NAME) 3gKck[wH} kcCkK /x[wG/{gL/}gD\gE_\9bK, LU KMAX CONT. FREE TRKS : c/ Ԁ]wޘދ@/H?ރU/w/KKߋK3gKg^E`93gKg^E`93gFԀ_^((E`9KMAX CONT. SA} M AVAIL : KTOTAL SAM AVAILABLE : KMAX CONT. SAM EVER AVAIL : L WORDS Gt. |/t, <.W>,xggvghvgcwocgfoE~}fH}Rf,fy5} D,RzLOcR7OOmw?LO=OO,oDtOTOS8NO W -S8w8Gw8Gԃ@V-#SfJGF-5E7-5g vfHS"S8=88=8w_8 -?gԀ.o#]-O@ԀW4-o#6g"-o6#o# .O>ԀMw$ԀTG# OBwSg.g<gԀU@.gGEOBԀT@w#hԀ.BO>Ԁo#.;]O>ԀMw$O=Ԁ.Jg=BO=ԀO.HԀMw%G!.[o#i}YBg?BOAԀ_#.jO=Ԁ.lO?._]g>]NrOPw.;ԀK.{g@nfH.fvfvfHhf0vNNngIvNN.fgBo3 ?3ngAnWB.?vNO=OSS } N>!..@`}S4R7N!NR7O)R7O O ԀkԀ{Ԁ/ /~Ԁ{fFw+gNw,fG=wt8NNvֈOWOVfw,Fw+tfHf7w:OO>O:g+oDGo+w+g,g,GDw,g+t/O'hgԋz30O(R7gFgCoYg=g'LG$hgCg'MGNg=gCoYИOO@n@fMV3Fw+gNw,fG=wt8NNvֈOWOVfw,Fw+tfHf7w:O!BCKO9::RTE_6:7:17:128 644 0 0 10400 5310707430 32261 !BCKO9::RTE_6:7:17:128 $p!BCKO9 +#+#+#[Z FST },,kǃԀk@ɃdsNj,(,( ˀ&̋H hx0Dw LvԀỹሀO-ɃԀ,PՋԀ,PփԀ׃ՀLr{,B{ ؃Հ уՀ Ԁ4tՀكԀzڃՀduۘPoPpۯN Gq}}ɃԀ,كԀur `,xԀ,`,{ԀՀ݃Հ{փԀԀ,كԀstO8vw!,ÈO8,ÃyzԀ, Ԁ,,ɃԀ,݋2,ă2ԃՀ2EԀ OBԀT@ɃԀOVsf}NN--"QkNNhOVe!?۟OZO\O O--C-C-F-(-lmn"EjԀopoqrstpurQsQ-u-u-{M!} wevǘQ~Qk- kw7 -MԀx-Ԁ-Ԁ-w-7U} } qRS:SFSSS`SlSxSSCAN'T LOAD FROM REMOTE LU'S MISSING FILEFILE ERROR .... UNEXPECTED END OF FI } LEEXEC ERROR .... LU NUMBER OUT OF RANGE BAD FILE CHECKSUM SYSTEM CHECKSUM DOESN'T MATCH SEGMENTED PROGRAMS CAN'T BE LOADED FROM LU'S UNDEFINED PARTITION PARTITION IS OCCUPIED SUBPARTITION OCCUPIED PARTITION TOO SMALG} kL NO ID SEGMENTS FREE DUPLICATE PROGRAM NO ID EXTENSIONS FREE NO PARTITION BIG ENOUGH PROGRAM IS NOT A MAINLINE PROGRAM RENAMED TO ..... PROGRAM ..... READY O{ONO>O&NOCO%NNOO.NNO#OAO?OONO=OW:V. BCKOF: INVALID LU FOUND.Please insert tape with !BCKO2 (then " "return)_APLDR RU,APLDR, ,0TA8>}Y{VWVdWXZ1ZYZZZ[YVTVmYY.\{VnvnvL.~oNK~K.fKvKVYVAVUVUVUVUVUVEVDVVf.vVVvVVV>L.~KvKp APLDR ERROR CODE -VVVYVZZVZ]Z1ZZZ\..VZ]VMFO.VZ]vJ;}vNfMFVvM.YVV)V(pVVSf.f7v7YVV)V(/fNGVVRXKVVRXKpVVPfwwwWZhZgYWZZWZ]Z1ZZZ\RVR/?//////WDW>W:Z / Z1Z.oHWM{}SgKGJwI wEGLwFgGhGIWENWsWZ.WfWfWfWfWfZ,WF/vgWzWWfMgvgPROBLEM IN SCHEDULING PROGRAM.@gwfNGWVRXKgfNGWVRXK?/PSAVE,PRSTR,PCOPY,Wo /fRwwpWVTVRf/w.gNg/ Y30Wo /fTwwpWVTVPf/w.gNg/ Wo /fSwwpWVTVQf/v.gNg/ }3RAM.@gwfNGWVRXKgfNGWVRXK?/PSAVE,!BCK10::RTE_6:7:17:128 644 0 0 10400 5310707431 32150 !BCK10::RTE_6:7:17:128 $!BCK10 +#+#+#[ZFST }XZ]Z1ZZZ\,f`,֫. f]. . ,LI eXW3?X$Z]Z1ZZZ\,2f`,2֫. f]. ,4ƮtKX;XKV,@V,@-XGWVMZ[f[. XRWXLX_WWWfWfWfVUWfWfZ[-ҮXhWWZ[-ҮXqZ1ZZZ[XLf[֫-îIO - Display}} current I/O configuration. SA - Save disk regions to tape. RE - Restore tape file to disk. CO - Copy one disk subchannel to another. RW [,lu] - Rewind magnetic tape, seek to CTD block zero. (Default lu=8)FF [,[lu],[n]] - Forward space~} magnetic tape or  CTU n files. (Default lu=8, n=1)BF [,[lu],[n]] - Backspace magnetic tape n files.  NOP for CTU. (Default lu=8, n=1)TR,lu - Read commands from 'lu'./E, EN, or EX - Terminate program.YjXwXvYnXXYrXXYvXXRB} wYzXXØY~XXؘYXX꘸YYYYYYYY2Y0YYDYCYYUYTYYYYY BCKOF TERMINATED BY USERYYYHARDWARE ERROR ON INPUT DEVICEYYYȮ INVALID TR COMMANDYYY׮ INVALID FILE NUMBER YYY箲NOT A TAPE LU YYYӡ} UNRECOGNIZED COMMAND (ENTER ?? FOR HELP)Z ZZ INVALID PARAMETER ZZZ-FATAL MAGNETIC TAPE FORMAT. RU, (OFFLINE DISK-TAPE }} qSAVE/RESTORE/COPY SYSTEM, !BCKOFPlease enter tape-LU for reading !BCKO2: _TASK? ??BFCOFFHEIOLIPCPRPSRERWSATATRVRVTWWWWWW PRTALIDIDITTTRTPTTTTTTTTTTPRTATATATATATATATADIDIDIDIDI@ldxd, } bvXgwZgǨwv[[Z[[[/o[[[gh(gwg/)gww/gW/-/:[4[[u[4[4[7gw/ugw/ngW/O[E[[wg/sg/ugw/ngW/n[X/u[b[Z[[[[/o[g[[gwg'l} k/ugw/u[s[[wAfG/gwgw/gGwgGwAgG/gAgG/gAgG/ggBI?? ZZw?w?ogկ\\((\\{[o}  /g6w@wH gڟo|l| <, ܞ,t|̡̠|||}||ܞT,t{TT__[_^_.ј^F__b_^_.ј^N__k_^_.ј^V__v_^_.ј^^$b}Y___ ^_.ј^f___^_.ј^n___^_.ј^v___!^_.ј^~___"^_.ј^___^_.ј^___#^_.ј^___$^_.ј^^^fЛ..^___%^_.^___%^_.f.^___&^_.^___^_.ј^___%^_.ј^___'^_^^_fk}v-i {_ -L,<    ^^^_B LU# EQT# SUBC# S.C. TYPE DESCRIPTIONB LEFT C.T.U. RIGHT C.T.U INTER}SACTIVE TERMINAL PHOTO READER PAPER TAPE PUNCH SYSTEM CONTROL DEVICE MULTIPOINT TERMINAL PLOTTER CARD READER LINE PRINTER UNIT RECORD DEVICE MARK SENSE CARD READER MAG TAPE/MASS STORAGE MIRRORED DISK 7900 DISK 79XXH (ICD) SERIES DISK 79XX (MAC) 30 SERIES DISK 79XX (CS80) SERIES DISK CS80 CARTRIDGE TAPE WRITEABLE CONTROL STORE INSTRUMENT Y3INTER UNIT RECORD DEVICE MARK SENSE CARD READER MAG TAPE/MASS STORAGE!BCK11::RTE_6:7:17:128 644 0 0 10400 5310707432 32227 !BCK11::RTE_6:7:17:128 $!BCK11 +#+#+#[Z2FST }?Bl@Ԁ㟬 {` "t"$t ,Ed!l#`"d,[dD,[t` `,[d!6l#6`"d,[|dD,[td`%`tA\<\,n\ADtA`t<\\'TR' TO FILE Nk}}OT POSSIBLE OFF-LINEMUST BE TYPE 3 OR 4 FILEINVALID INPUT LUINPUT LU ALREADY LOCKED FILE OPEN ERROR {`e,,``-e,,`3FeС,,`a3a-tt-```>}`-eUn\ 0-eTm\ 0-  0ta%```tdue5-KС-HeС-7-Aa/vIfHIvI/>/vJfHJVI.F>/AFI>/fH/{bLfЧ.U.wfLvb\bbM.ofLvbjbbbKbbbb3<.vfLFB} qvbvbb.fLvb~bbM.fLvbbbN@dDdCdBd=dAdEd0d3d5d:d@dc%dc>d/} kcrddefNfL .IfMV .GfL .I  GOPA{fRcFua}Y^v.l^w.l ftR>RR>Rx6yRSnRAfzfySa .F{{.{{hhhhFILE READ ERROR (FMP-...).* End Of File readDevice read error Device down or not readyfwfgw}Fw.{f 0 0 0 0vvgv/ghfV/ / ///@vv/%/%v@vvСn 0/f/8v/Dg;3н/>/Bv/DvgJhffvvgUff}Sgh V/Y/\/wV/`/jV/e/g/D/i/wV/n/q/wV/u/w/{/fТv/g3Fff///f//V///@v//V/////wggg/f/wghfgggggggg<30ggghffh/fwggfhhghfff/ghffh/ghffhv.3/f//V///@v//V/////wg!BCK12::RTE_6:7:9:128 644 0 0 4400 5310707433 32115 !BCK12::RTE_6:7:9:128 $  !BCK12 +#+#+# 3 ZFFST } ?TT/AABENEX/EhI{hdt''<,3hI{h$%'l$ &@t%|$DK,ADL,ADJ$Ml$\%,D,5dHt&t'hI{ {h`,qhthf-Yhhst_btNtYtZ`tUr}}hhUhQtSf'TS,,f,4UtUf+c,,hhZtVhj*hUhWhYhX.dWtN,f c,,f)tVhj(hU.tN|Tf'TS,f&TS,af%TS-f$TS-fa.faf#TQ,f"TQ-f!TQ-.f TQ-.fTQ-MfTQ-Mfa.fNtRf TR,,f ahRj,vjhR,n\R 0,f ahh,fahRj X},vjhR-n\R 0-a.fN-faf N-f afN-!f ahi#-'fafN--a.fN-4afN-:fafN-@f ahiB-FfafN-La.fN-Sfaf N-YfaN-{f N-cfafN-iafN-ofafN-ufafN} w-{f afTQ--3:0v3<3:--fafa--3<3.>.>.fVAAfSnT.A8.^W{jdFevjjrdV} qjagFvj}jajjefh{jƅvƄ5F·5N jv{j>djagFvj}jajjefh`N4 p `Pp ( $.Ȩ`GT( !#$4ɨ2#`R 3Z(} `2(4p182`1h?7M<R==HC<AAYKBBDEcIElDDI3D-II_I9?DCCCCI.IIIHIIH7oIPIܷoIIEEE`GD GFF~FEeEkGFFEFE]EiCGEGEEE\EFEa<6FEj7E7cE_E^FGuGLL0wL x<  =7XNՒ} kNOOO,OO+OOOO]O7OKTT2d2d?d'd4ddNdRdldeVeqf{fhhhh hh h hh hhhh'hdj.jWjhjj(( =t`````` ` ` ``````%`\`33E33Fb/bN3?bd.d9d>d2d?d'd4ddNdRdldeVeqf{fhhhh hh h hh hhhh'hdj.jWjhjj!BCK13::RTE_6:7:10:128 644 0 0 5000 5310707434 32353 !BCK13::RTE_6:7:10:128 $  !BCK13 +#+#+#  ZRFST jgA7[7i7k7m7R@4AAAB BB,BBu7^7\7Q7c7EABA@6AAAA7V7W7b7F7G7H?????????<$??????ڿ??<%ݿ<(<,<*?<-<5<\???<0<'<#<4<2=<<=<<<:<.<<67XC6Cj} (  !?YENO ER S RTBGPART'N XX, XXXX,(XXXX) PAGES?/o\>.\=.\</wl ../o .o\;/gT\ /}d# /wFT".?vg D$p`o Oo o l /zgW>/dd# /[p`Gp`gD(wҸ/*f..gl f/5tg? dރp`d߃o].HM 20DEFINE PART'NS FOR PAGES: #PAGES,RT(M)/BG(M)/S(,R)l+ ?gT9/T8/[tgwfwg}kvp`GwgD$ D$ow/gD'wf//gp`gvt௅g f.w.gg .131415SUBPARTITIONS?(YES/NO)?7V7W7b7G7H7Fg f.w.gg .131415SUBPARTITIONS?(YES/NO)?7V7W7b7G7H7F!BCK14::RTE_6:7:1:4 644 0 0 400 5310707436 31512 !BCK14::RTE_6:7:1:4 $!BCK14 +#+#+#Z^FST g f.w.gg .131415SUBPARTITIONS?(YES/NO)?7V7W7b7G7H7FFORMT::RTE_6:6:61:128 644 0 0 36400 5310707437 33364 FORMT::RTE_6:6:61:128 $==FORMT +#+#+#==ZbFST 4"FORMT*|"4P --ݘ[$% %d 4OdA\WF/;]5*A--EFYl@^_ C*4&A4+@==49===F  ,V ,Pn-fv4V=7h4[@=@   Wh  Wh  w ,~ E-,,---R,w^-,hV,j,,,,n ,,nj,,,|, ,g ,!f ",#GP$=n,%, ,g-V-f,&j,,,,o',g(wfgօ "),?ָ(,*G,og-n,GGP+='!f -.-:nj-8,N-0|-5wGG-5&",,GG,nN^^-f&j-d,-f-^ -g-oV-^-5u5uU--5~5Wh-m,mj-,--o'gGuwfgօ "?=-,<^o'guwfg--gօ"?=-,g -gօ"?=-,  N -5==͘56w  -.. j-,h5-|-w7wِ/-66D7==7-gː0w1א2 .3.!-4-5-g-go .9..--V67-n5-V67- !B VbVcVd.aVe.`Vf._Vg.^Vh.]Vi.\.G>E>E>E>E>EEENEX/EFOINSPVEREBVdVcVb.V.V.V.}o@Fj>j>j>j>j>jjNOYE??fw*gwo 8gօ "?)8. P~!nf@N"6     # 6>N>Q>U>i>r>|>>>>>>??,?4?n>>=?l/YgiP7ed 7j{/v/p{?{6nogg3?wo?A/@ אA?W/GwG/g7Gw //?|g| 77=;?Bg=>= ?/g7wgwC7gw777ʯo  777ʯ DE987h====(|&3t'l Fc9D(\&,3T',DG<%FD9, 8"8$@8%HXHK2@Ґ0(=IJ3d%;8D8H@8%t%;KLM)NOPQ> > d\8\,e,l,s,,,RST,RSTI,RU(VWTX,#v > YZT[X\ ],\^ӐJ, &_ ``=a=bcdefg,Řh,iTjR,kTlRMU-,mn,DȨ8,.......//|../|.//////..//),o_pnpTlRqr?)Id8--j----),e9- --.-:-J- NiT,kT-),s=(> tu,> > RST,ሀ> > RlNiT,ሀ> > =(> RvNiT,ሀ> > lRkT-]s=(t),u,> > RIST,I-t RiT,l-kT-),iTvN,s> t),l-:&-J_-wxX=X(-OVLM,s=(> t-s> t97>>y-,Q> > > ORlNliT,z{),g- > |Td #=bU,}.d~.$-؀؁cd > Tg,#.([X(.> XXvNT,~d> YTfg,!)),脘{)q؅.:VІ.:MЉV,!-苘{-)P?g،?j.WrWp.WMrWovWzWsIl&WtWuWvWxWyWw.zgЌrW{ЎWz.grv.wr?>f萋7hfv{،TvT,:77>>> >.Д-d .#D[9>D.Е.Ƹ9ؕ.99.#Ж.#>DQ> И-D=bU!>.%{),M),_.M.&.-),UК/;77>/;77===>>>Tv,M,g;,/ /8/N./V/V/+s=(> tu,> > RIST,_/FvN_> > iT,s> t),.-&-Jl/8-qWqJЅW{Ў/ls=(> t),蛘{/i   &.-_.qW{Ў/wr),g;,//.-,//s=(> t),I/ NiT,u,> > ,NiT, /`l/|h/K/`7/`//ϘL_nM,_/n/g/M,ᘜ)wr,,/TF\/󨡘<77> > 7>>>UК<ܨ,,<77> > 7>, UК, < 77>>,.<+77>>>>ܨ,,<<977@6>>>ܨ,,@,,N>>>ܨ,,]>>>>ܨ,,x>>fl,uf6` 6 ,uܨ,,~<~77,UК,<77@=>>>>,<77@=>>>ܨ,,<77>>>>m` 6,ܨfnt|Ԙ<77>fl,>>V-aF>=z{u 7u(ȩ})}@7M@*>*n=sU>F誋6fn=fn7h࠘n7hsI-k>M-u૘n7hg{ଘn7h茘{mØ{6૘o7h((mӘ{xmԘ{Is> 6讘{-mҘ{-mј{-== =/ 0FLM@?7cm>%TASK? DISK LU?DO YOU REALLY WANT TO FORMAT THIS DISK? # OF FILL SECTORS?TRACK TO BE SPARED? DATA WILL BE DESTROYED, OK TO PROCEED?# OF GOOD TRACKS = XXXX>BAD TRACKS SUBCHANNEL XX>LU LOGICAL CYL HEAD UNIT/ADDR BAD TRACK SPARED TO BAD SPARE TARGT TRACK >>>>>>>>>>XXXX SPARE TRACKS AVAILABLE WARNING! ALL INFORMATION ON TRACK NOT SUCCESSFULLY RECOVERED OUT OF SPARE TRACKS FOR THIS LU INVALID TRACK # INVALID DISK LU FORMT FINISHEDFORMT ABORTED TURN OFF PROTECT OR READ-ONLY SWITCH - ENTER " ",CR TURN ON FORMAT SWITCH - ENTER " ",CRREADY DISK - ENTER " ",CR INVALID DISK SPECIFICATIONS XX?NOT ENOUGH ROOM FOR TRACK BUFFERCYLINDER COMPARE ERRORWARNING! POSSIBLE BAD FLOPPY MEDIA RETRY FORMT OR DISCARD FLOPPY DISK MAX OF 20 BAD TRACKS EXCEEDED FORMAT PASS # XX?OUTDATED SYSTEM SOFTWAREUNAUTHORIZED LU2,3 ACCESS - (COMMAND IGNORED) DO YOU REALLY WANT TO RE-FORMAT THE SYSTEM DISK?UNEXPECTED HARDWARE FAILURE - TASK ABORTEDENTER FO(RMAT), IN(ITIALIZE), SP(ARE), VE(RIFY), RE(FORMAT), EN(D)ENTER DISK LU < 256 ENTER YE,NO ENTER FILL SECTOR VALUE 0-28ENTER BAD TRACK # 0 - XXXX@A3e4hAu2e4u1AI3-AP348e8m8 0-]9eE1uAcAeueueu eu!eE1u"AqA"eu#Ax3AAA}348e.hA6e.7e-5-\e1uueu-sh@h AEvAuufThBSufFuA.fR%uAfEհnIݰ 0-fMEAfEFAnQfBFAnPMfIFAnOMfHFAnNfGFAnMMfGFAv?B?fFFAnLB BBA-efEFAB$ABKufBFAnJMMB3BDABIBCAfEFAfBFA-   hB\F^v\vUf]hBv[f]vYBx\.ŘB\]bfbnb 0.cfFY^B^fFnfFnfFnN[fFnfFnNYfFvBfFnB\^_B\]bB\]`aBZ.fY^fFfFnNYBBBU^_BBBWfF`fFa. hCg@ wC/1g?GvCBg>vg=vg< vg;vC*BC/  gvvg: v/&h CSgThCwRgTwACfS/CmSTUgUoU 0/zVgGAwBCCBgwCwDgwEgwFCSCBCSTU/ygAwBwCgGAwD/h CgwCñ/DzwCCwwwghCwgwwgǵwgwCñCCñòögwgwgww紀(ǵw/ h DtdhDtdtD6,|D=#d#l# 0,J$dDtDPDdtdtdtd hDt d Dt dt DgDDl#d#,xDv!"D,Id#,IdtdtdDt tDDDDDDDDd!d",Ih DDu3teDhECte8tDī-DīĬıe7Աm;ܱ 0,eBDDĭe7E3mAe4E3m9e;E3m@e:E3m?e9E3m>Le9E3u2D2e8E3m=EīĭĮE īĬıEīĬįİD,de7E3e4E3mGvG>gw?gw@gLwAgʗOhGwBgɗOwCPwDgQwEgwFGMG>GMNTGMNRSGKUgGJw>gw?gGJw@OwAP(QwBGGGGGGGHg?Rg@S/ h GGwhHnw—wҘGØG 0,dmH dbD^lld_D^ledfD^lkdeD^ljddD^liddD^t]H']dcD^lhoH0H5>HeE7u!IcI!eu"eu#eE8u$eu%eE7u&IrI&eu'Iy9I!II~9:=e1;e2<-\e7u!IIII!IIII5e";e#<-\h@h IIɫ-eҕu,IɫIIu}e-e-e-u=um8- 5I -5 -6 -IuJ JIJJJvJ#J&JJ&J&J%J))v'J9JFՃ撙s>撙kOvԀՀ;fGtwJKotWt/q/pkOtH /p@Cww|/WotwW|/qAAԀԀ Gtw~w!.wg~Ԁ?W|/B?~?./Wg. /WԀ/kgw~Ԁ/?~g~. K}K ?}/)wW|/ y/ GwԀxCG{S/  /]g/kԀԀ7zՀg|o~ՀOcՀg|Ճ/Wo~OԀS/_/5G|KvCԀ/]/ՃcՃبgu/Wgt/W/5gt /Wg~ՃјC gsEQ?4 g~wҋՀGՀGԀ Հ??~?/g~Ԁ//gW//ԀԀՀG|KvCo /̋ՀKՉKg|GtKgԃՃؘKKK٘gҘԀ/VKUP,  Kg wgԀ @Ԁ, |LL T3,T4,, ԀՀԀT3,'T4,',1kL5ԀtL5dՀ, ONRU Led6t=dm,ALetk=|hL=Lk|jLhLgtitldiipDjlj<= ,cu>}> @NNINfv''>.3NIN$%'n$ &@v%~$FK.AFL.AFJ&Mn$^%.D.5fHv&v'NI{ NR .^~b N\NaNbNbNafbNN~n~n~~~na ~s NsN Α N~.qfnNcNcN NN NcfNO 6w @wo! ?."g#wwo _.? 5!+W&.W,.o_$.w'?."ƙwDvgW#._?W.o(g'Wo)Wo)O%aO(a.@?go_. _W(.#Wؿ""o_ W)/ .g*n  Do#_._.!ߦ', >.>NBb-OOO,  zԁwxwygr GxԀ /AGz?y/8-sk ׋ՃGr@-k /SՃјCoscGotԃ# v Wv kOuԀ7wՀcՃب/nl4 OO{{GwW/} /kOԀOԀ  /Ԁ//ԁ o{| |}~O~w ԀW/?/Ԁ? 4 gwgwg/gwgw/OOOOOgW܋O/wgoۋ/oڋۋgwۋO˜OOO L Ԁ  A===@@========@=@@==>>>A@8;==A>!==8I>#>==>M==>@>=A==================>===6===>>77=>==7>==>=>$=<>6777>>>">6==6=666==>=6=6=7h736>66=6=>>>======7g===64=7P?=<>=۽==*==65=x7==7<<< ;@777677766jA9ABcC CVCDDDD$DETFFGUGH^HoHcH>HbHfGGH}HI>IIIJJJBJXJoCFJJKLL1LLLKKKKL6L=LsLLMTMMMMNN'NNx7on|IKMR((NcNOl4 O~OO4 PSPAR::RTE_6:6:99:128 644 0 0 61400 5310707440 33453 PSPAR::RTE_6:6:99:128 $ccPSPAR +#+# +# c1cZFST c4"PSPAR*|24cB-0-ݘ[$% %d 4OdA\WF/;]5*A--EFYl@^_ C*Q4(44+4t42444dD,4:44fdT,DT,DT,PT,P,z4O43E4444f44,z4T44p}4X4e44d4444f4p43E44,z4}4}44r444O444,zPSPAR SIZE UP THE PROGRAM INPBPVVEt4<SON PROGRAM NOT SCHEDULED PROPERLYt,d,ۘr444O444SCHCK (@COPY FROM .... TO .... PROCEEDING.VERIFING ..... DISKTAPELU IS NOT CS/80 DEVICE. LUs ARE NOT ON SINGLE CONTROLLER. VERIFING DISK W/SPARING.NON-PB TAPE MOUNTED.COPY COMPLETED SUCCESSFULLY.5_EbwEcwEdw5{`abcee-e--r557-ge--r558eil5`5WdgGtGtl5a5UdgGtGt5a5^U^--uY45ZauQ5 4ꈀ5 4-uY45Z`uQ5 4ꈀ5 4eY._-.r555 r55-7 uS uR5afg5S5Rcdhee.e. e.e..e.ge. .ge-7474uTeY.s4㘪5Z.%.s.suSgweSG=S?.)bu]gGdgGoO G GoG GG gGw6Z`5]dgGwJ6d`5]dee.kge-GtGt Gw6{b4Gw6c4u\r655 r645 r655 uSgweSG=S?.bu]dG GGgGw16`5]dgGwJ6`5]dee..͘75\..e\u\.e.ge-eY/5U5W//uSgweSG=S?.gGdgGoOgGw36a5]dgGwJ7a5]dee/ /75\//e\u\.4㘪5Z/w똦75T/eY/N_/,/Nr7055 75r7855uS uR7Gafg5S5Rcdhee/Nge-EQw}7U77i7Y5Qee/`e-h7f5Q8e5Ye/mge-eY/75U47475U5W75WeTuT./EQoOw}777777uS}Rs75Qe5R e//r7598/N/8e//e-eTuT./_//ܘr755 45r755uS uR7յafg5S5Rcdhee/ge-EQw}777r75C8 e-TAPE [UWV\XUNVEPV@ INހ8DtODtNDtMdRDNdRDOlPLNdPDO dTDOdSDOlRLMdQDOlPLM 8]D_tD`t8n]8W8r^8VdTW,v,~dTV,}t\d\a,dTV,,dTW,t\,{,t\,{d]tZt[~888Z8Y8X,dXtWd^tZ~888Z8Y8X,dXtVdWTV,dt\,{_`,dt\,{t\,{t\,{? l6d6f>v-frvs,sfs,-fs- fs) fs. fs!vv:pv:j:l--ꈀ:l:n-:j:nfr$nivs :nsfr"vs:l:grsfr"vsJ: l:grstfeve&(..feA)-:p:n:p:j:n:j&/.+.^-&fr"--&/.]fr"#vs:=sn606<|.G.I.Ig.]fr"#vs:ps:j:jfr"#:p.c&.c-&-z:wyvi-:INr::<'&1.FORMT CAN NOT BE SCHEDULEDn6f6<:m89//?6@6<|AB/CBD6?6<|/EE ,>H<=<<,At,F,Fr&0:DN=?gG.XK>X= ?gG.bK>b=?gG.lK>l=?gG.vK>v=?gG.K>=(?gG.K>=2?gG.L>=7?gugG.K>=@?gG.K>=I?gG.K>=S?gG.K>=]?gG.ȘK>=b?gG.ҘK>=i?gG.ܘK>=p?gG.gGoOwgG.K>=y?gG.L>=?gG/ gGoOwgG/L?=?gG/ L? =?gG/,K?*=?e/;e/5g/7gŘM?:/gG/TgGoOw̘?P??=?guue/meu?=/_/k?d===gU/h/ju/mugueGEueuG/oe/ugueGEueuG/e/M?e/ueGeuG/eØ?½ýgG/gG/???ٽ?gG -/gG/ʘM?ʽ<w @@@ , CS/80 ERROR: _ ?r@?@tr@@CS/80 NOTE: _@r@#@@-t,r@*@,XXXXXXB: IDENTIFICATION FIELD.XXXXXXB: REJECT ERRORS FIELD. XXXXXXB: FAULT ERRORS FIELD.XXXXXXB: ACCESS ERRORS FIELD. XXXXXXB: INFORMATION FIELD. XXXXXXB, _XXXXXXB, _XXXXXXB, _XXXXXXB, _XXXXXXB CS/80 - FULL DEVICE STATUS: REQUEST FOR STATUS FAILED !!PARAMETERS - _(SEE DVM33/DVN33 REFERENCE MANUAL FOR MORE INFORMATION.)DRIVE IS IN A POWER-ON STATEDEVICE TIMED OUT ON REQUEST @DueEtT--rA@A- rA @AeEuA@.eEuA@>eEuA"@NeEuA)@]eEuA0@mtteDEue@EuAAeDEDtdtE-4rAQ@.@=eE-ZrAZ@>@MeE-crAc@N@\eE-lrAl@]@leE-urAu@m@{d-rA|@Ate@EurAAdtE-~rA@A-eT--A@A-T--A@A@w<Disk read error at LU XXX trk XXXXX sec XXX DISK read error at subchannel XXX trk XXXXX sec XXX A.tAAB*B#tAAB'B%tBAB)B#uB3EAB(. tBAB'B#tBAB&B%tBAB$B#uB 3EAB"1').....: ERROR#.. (REPORTING MODULE IS '......).BCKUP ..BOFOvPvGB\B+f-6v-BP.e.yPBvLfBLPFvNfFLvLfL(6Nv2.{fv2f2vFP.vLfFLFnLNfLvLF.fA6vABBMvLfFLv}BBBB+BPBBCBBG}BBQB*'??0 c:'TR' TO FILE NOT POSSIBLE OFF-LINEMUST BE TYPE 3 OR 4 FILEINVALID INPUT LUINPUT LU ALREADY LOCKED FILE OPEN ERROR CR //CCST /"/1PC%3FRЀ/)/.UC.D63D7Sw w  /YC@BCCSTTV^ 0SWVW^ 0S    0vCjBCCwgXTX/Ѐ/RЀ/|/UCD63D7SSS/STT//ʘPC3FRЀ//UCD63D7YPC3FCBD7BBTWZ_ /ƘPC3Fg[\SYRЀ//ӘUCD63D7fvD7BXBDAX]CBv^V_^ ]_V`PC3FUDD>BD7,$aba,$d8,cc,2rDBD=,-rDBD<,-rD#BD;,-rD(BD:,-rD-BD9d,2d8efTTTA TRDMDNtDRtSQtKtGQtJOtIPtHDpRD,vDvDIDzDJDKtFdGDtDMľDIDHDFRDLTUSDL,,dLSdTL,DDL \K ,dT,tK,ddFDJtJdJ,,DDIDHDIDHDFUVdF'DGtG,vWNRDDuuDutDttetdtettפڀ'tΘ~EEDD-dt|eursEErDDE{e--EEDΘED-"l l\ 0-1e-pd-EtdEvlMtdtEz-6t-XtdEvlMt-Q-XdtEz-G-pe-\-pDE~,,e}-pt|ŘvEnDDEwe|DRTRYR VE(( Euem =-EuEމEeřu--euuueU-Emmeޠu ]-eߠu ]-eu ]-eu ]--- euemEEEEEELoading CTD.. TAPE IS OFFLINE TAPE IS UNINITIALIZED TAPE NOT WRITE ENABLEDfvFfƦvfV.).,v.7V.2.5fv.7vU.;.nvfv~FCFFv~fV.J.arFNEFfV.S.a}FZFFFFF~F^FFv~.Nvfv~FiFFv~v.pfvsFvFF.z.rF~EF.f..rFEF.f.rFFF..Ff..7 @ MOUNT NEXT TAPE (ON TAPE LU ..).FǘFvĘrFFFFf.F☦../=@vh@Fn݂@FG?   @@G?F@F//fF䘨G%F@/1䘦/6/=GFF@wEgE/V/qGGwDgD/_/qGDGE/d/ggEwD/vGkGEGD/vGDwD/gIH/~oEGDIgD'HJGGwGwgǂw}GGGDŽGGGgGgGoO@ENTER 'GO' WHEN READY TO CONTINUE ('PA' TO SUSPEND).ENTER 'GO,XXXXXX' TO RESUME EXECUTION.GrGGGGH&GH /H%//m/GHGGng,d!o,d$p, ,H GfHGGݘ}HH#d!o,d"p,d!o,oqGOPAFILE READ ERROR (FMP-...).* End Of File readDevice read error Device down or not readydfuH^eŘuD`u,Hsesms 0ms 0ms 0ms 0tdtSetTetW_,}HIHT^_eTW,,-ca,,a@t]atX,a,at]a@tXtVЀlS 0-dS,et[,ޘH3U,,et[,t[}HIH[`H]t\be[tYHHYHZIIeTZ,,ec-eTZ,-eT[,-,-ec-eTZ-- ec-TZ--ecc--`dYЁtV-9PI"3FHU`HXbb-&-)ec-`dU-/ec-``T5-3-4-b@betVb-=-`eTW-A-Fe-E-F-MbuIM`ItIP`-TcdV-`bu}I`IHT`IcIlIIIlIIsIII}IrIHTH6I-dUuI|IH'II}IIHTH'H4-}IIHTH>I-}IIHTHGItS,f ?TT/AABENEX/EI-ugIuuuuuIIIugU--g5ug--IIu~IKIIII/beu. gl.. gu~JKI/bu}gU.gU.gU/gU/Ug/dg~gU.3gU.qgU.gU.gU.guU.g/dgugkU.:..FfFvfah*fFm^fFvf_h$fFvf_h*fFm`fFvfafFm].f]ofFvf^h(fFvf^fFm_fFm`fFmafFmbfFmcHfFmd.pq l? <vbXLIDIM\v~v>~fnf N~HF fv~>v>~nfPRTALIDIDITTTRTPTTTTTTTTTTPRTATATATATATATATADIDIDIDIDI@ldxd,bvXgFwOBgwBw?~OXP O?OOO/O]OOh(w/oww/W/s/OzOOOzOzO}w/w/W/OBOOwg/g/gw/W/OB/~OPO?OOOO/OOOgwg/gw/OOOwAgAG/gwgw/gwgwAgG/gCAgG/gDAgG/gEgFBI?? O"NP 2k@D7Ԁ5D7P4kH Ԁ2t3 Ԁ2D3D6,/d7  ?d;teP8deete8 Td,Utd8tn~PTPcPnPiPbPfPg,W !v eFv -fv e}-=v Fv=> . > PF F@--QR)>v>~> @R.7F++.7++v^~_Pva9v`f^`&^.R&^F^.S@N_.V&^>9>9>9faAAf^n_9w@wg.lwb>b'7"w.{w@. gS/ w gSwg@ O?.w>bSwwgP _!.O~~~~og ow wo ow`o wS.ogS/wg5.7wSwgOgOg@G O Q.G OOo.og?.Awggb gS.o ?.ogW /.g"A.!wfgwi`wj#whgfh?#OgA/=?j /;Gf/@/??j Gf?i#f @jiof@goC#hofwf/-wfg@wjwigUw#whgfh@//w@w`oȀ k?kwgoɈw˂@/!/gowgowgɀSwgOgÒS Gw gOg//ogF/ D_/Gw Og̀`ö́/gA/`Sɂ@? k@A8/A8T$SᘿST @Gw!ȳ⸵/d%t!L%<",&L%<"d#d TT$T't`tatb'@ ,E<`Tc,;\d,B Di Li,Ete=te?VEUfmEuflufkEuu(u~V]VgUUViVgVfUee.F h V~V~VvVfyv}fxv{>VV{Vv{fxhVv|VրV{F|V{Fw@fzhVfxVv˜~VVVVV / : ONE SPARE PHY. TRACK LEFT. CONTACT SYSTEM MANAGER. / : PHYSICAL BLOCK SPARED FOR BLOCKS.W>G@GAEwWVV昣WYWvw@w=w<vvvv@   W>?@Ag=@o<  W>?@Aw6g6(h@V(nNv(`6߂@V؉W9߂@W9W4ZVژZW0VؘW0Z߂@ZW7߂@W7W2fFVnNv(^ `,J߂@ZW4VވW2W4ZZ:.Zf,fF fF fFfFfF fFfFfFfF fF fF fF fFX>?@AfF,fFnNvfF.,fFfF爀W4V,vVؘVvW2V,vVؘW0V,6,f.,숀ZW..fvFnN>,fF fF fFfFfFfFfFfFfF fF fF fF fFfFfFnfFnfFnfFnfF fF fFnYU>?@AfF-afFV-O.fFV-g.6fF fFnNv(`fFnNv(nN((v(`6fFnNvfFfFfFfF fF fF fF fFnfF fF Y>?@AfF.fFV-fFnNvfFް.fF-f.6fF-}YZBVZ}YZBVZ-}YZCVZ}YZCVZ..wZ>?@AfFfFfFfFV☫ZffvFn>."Z.VWZ3W+Wf,f.fvfFN>.=fF fF fFfFfF fFfFfF fF fF fF fFZ~>?@AfF.fFV.x.f.VޘZVޙ;Z,`.f.W W< FEDC=@?;BA> KOR  ?p:ZFwZFwYglGm=[gbGYokgaGYwW[WZgaFGYojgiFGYnOhwWX[!W[Xggvg`GZWc/8g_GZ/8g^GZ5o^OZwW\GWvvf/?vgfvgev[M[dZZZZZg]GYng[GYn;: 9 [sGuwGvwgܷswpgwq[[[pv[[[o[ngG/gtGv=[vgGogGwϙ[u[rgGrGogGrGorOwЙ[[gܷswpgwq[[[pv[[[o[ngGoogGonw;:<9  [GG=[dCD=t;\;[dCD=lMdLD=lBL=t;K4J;dID=LHt;|<\#;\<0 ]<E>uE?ue=E?=]P?eEmeEu]\>݅];eE;EmeE;Em;Mu}]m݅]e8.Ʈ^F F v.f fv .f  fv /f   n  2_ ` Fv /Bf v /)vf nF n N 2_? ` Fv /Zf  n  2_W ` Fv /xf  /lf !f  Fv" /f #f " F Fv /f $ n  2_ ` Fv% /f & n  2_ ` 'Fv( /f )f ( &Fv* /f +f * Fv ,f -f   d .../0 8H@; >:9=< `3D5tD6td4D6`G6dDldDtҙ`S5`2dD2DldD2DlLt$lLtDdD2DlLtDdDlL2Lt|`~`dD2DlLt$lLtDdD2DlLtDdDlL2Lt|``dD2t2d2Dl2LLd2Dl2Lt|ә``d3t0dt1```06```/`.dDl/dDl.7;:FECD@?=><   `ududu====-aEugEufetEua/elEfmsekEfuda;daekEEfmreqEEfmMpud}eaLdaeeouenuaZamaaiaiaaejEfmehEfm;:9I a}m}m}}}ma } aM ͤ M}-emavava aa aveaam=e=-u -= =  eDaA8ue=ue-uueҽ=ҭaa-fubaau}e.e-f-v,>v++n-8.!+ 6*+,b../ .;5 .706 .<0bZZv@fŖ[hbvYf[vXbqZ.bxZ[^f^.|.~_fFXvBbbBfvCfvDfFYvEfvFfFXvGbbGfvH bZbBbbZ[^fR\fS].}fXvB~bbb@bBbbbbVfC\fD].}h@h bvƘ~bbbbbbbvۘ~bbbbbbv~ccbccc w~ccc cc uestions(3) TA => use tape subchannel defs(4) UD => get user subchannel defs(4) LU => LU SAVE/RSTR/COPY (4) UN => UNIT (full vol) SAVE/RSTR/COPY(4) PB => pushbutton unit image SAVE/RSTR (4) MU =5i88 888888 888888888888888 8 888 8a\=\O\P\D\N[[[[[\c]@]^^^^`` ` ``- ` ```#```` ````(````,``+`*``)`'``&`%``$``"``!^`7`aMRavaaaabb0b_bbdDeDfDgDhDittPRSTR::RTE_6:6:159:128 644 0 0 117400 5310707441 34165 PRSTR::RTE_6:6:159:128 $lPRSTR +# +#!+#!O[FST c46PRSTR*|N4-m-ݘ[$% %d 4OdA\WF/;]5*A--EFYl@^_ C* 92084-16657 Rev.5013 <900104.0826> `,?4?5/^u4F5-5D5EeEE6-x4OD535FeF@uGEDuHeGEEuIu\4\uC` uC?4g545C5<4uD5F5N5JH5I5K5M5L5O5P5T4{50eT-eST,mH eO `,eLe0uI,LUUNPBeST,T,,`,e5HuBmH =B,,eHu[E\u\45L[5\H5TeT-$HuI`,e:ED,e;EDEEuEe;uDeHmD}H5IuW45KT,,LIduWeHEIuXmXMW}VmSe5V52EVuY^EDEEuZ5HVX4"5Y5Z5J5K5L5O5P56Kw8K;K8K9KK,U,L?9:88[d[,,U,L@9G,L@9Q,L?9[,L?9h,L?9u,L?9,L@9,L@9,L?9,L?9,L?9,U,L?9A,<,C8?B,B,C,U,L?9,L?9,L@9C,Q8Q8UL8\C,Z8Z^t8]]t\DK9/K92K96PRSTR NORMAL END OF JOB SIZE UP THE PROGRAM!INVALID PARAMETER TAPE MOUNT ERROR TAPE IS OFFLINE INVALID FILE NUMBER UNRECOVERABLE VERIFYPUSHBUTTON RESTORE FAILED BREAK SENSED NO DISK PARAMETERS DISK MODEL TYPE CHANGED NO TRACKS CAN BE SPARED. TAPE CHECKSUM BLOCKS BAD UNRECOGNIZED TAPE FORMAT NO MATCHING SUBCHANNEL TAPE READ ERROR - HARDWARETAPE READ ERROR - CHECKSUMTRACK= SECTOR= BLOCKS=DISK IS WRITE PROTECTED BAD LU WAS ACCESSED EXEC CALL FAILED UNEXPECTED END OF DATA UNEXPECTED END OF FILE SE RESTORE, NOT PSAVE TAPEPB RESTORE, NOT PB SAVE INVALID PB DEVICE(S)TAPE NOT INITIALIZEDUNIT RESTORE,NOT UNIT SAVEINVALID TAPE NUMBER MOUNT INVALID TRANSMISSION LOG NOT ENOUGH SUBCHANNELS CAN NOT DEFAULT DISK LU FROM TO SAVE INVALID HERE UNEXPECTED ERROR!! ^9Kۭ-f^ !.F : ...".#.#.#.#.'.1.=.P.T.X.".\^:K.]^:!K.].]^:&K.]E:*KJ./F.0.]E:4KI.9G.<^:K-AeQlm]6e^6Kw=LKDK=PKKUt=TTuR- =SKGK=_DEST LU DEFAULTED TO: AE-eue L[ePme mMe e m Me e ot=u-jeuee e e e(mPe,m e me e mt=u-fvf fP* n f  f n f$nn Pf*nn f n fP@6 n f !t>-m.Ap..h>.Ki 6n]6K.;.8I.Aq.Ah>AKrJ.Gh>GKs.Ztuvwsxt.T.Wyv.Zh>ZK[.%L>aB.fz{g.^|}.m.QPvK>f>.. vf. ...n6f6K>KKn6f6K>KKz>>f.h>K䙧>K3>f.h>KJJ{.~>>t>v.iK>>Pardon me, but I just hit the end of tape. Please ignore the partial header. m/wi./i@6g|6Ki / /*o}6g~6K//!/!i @6g6K/*i @6g~6Ki 6o6K/5/L/LUwxgxwy7/Bgy /Fgyyxi 6o6K/W/]/]I/]h?]Ki 6o6K/h/w/wo6g~6K/t/qh?tKz.L?K|LLLMU|}///wG6o6K/// G6o6K///G6o6K//h?Kկ/???CR PSAI/m/pqtv/W/ܘh?Kدt?w/z?ļKDK4?K4m66K66K,Б,В,Г,,$I,' I,'I,'|},!h@ K,#I,'h@'K,GI,2,>,> ,B,F|},6,:@9K,=@=K,G@AK,G@EK,GkI,Q.. -"/|},V,b𖘗@aK9ļĽ,@jK9ļD@wĽDK4@zK4,~,@66K@K9ĽD,n@ļKK0K4@K4@ļKP蝋KA,h@K@ļK{K0K4@K4𖘜@ļDP衋KPm-! Lii 66K,-!-!7,]@K9DKK-!DPH@觋K7-]AK9DKKDj HোK,/A*K9DKԙA0K9ĹKrm.JЫ-KЬ-d-C-d-l66K-o66K7-`i 66K-c-`hAcK-o66K-ohAoK՘+а-}б-в-г-.'foi 66K---, -𤸙-7-]AK9DKK-,𖘷AĽDD7-™]AK9DKKDj HোK-.*+г---o,i 66K---7-]AK9DKK.& D, HBĽDD7.]BK9DKKDj HোK..*hB*K.2.5.<.? .?hB?K.H.JwBNKwDwBRK}DBXK9DKBaļKK0K4~BdK4gttxyvK?j H@衋Ki 66K...gd/rm.A.p%A@.hBK..66K.I66K66K...ڙBK9DK.BK9DKԙBK9ĺKBK9ĹKP- P./BĹKc/ /CĹKc/ hC K A/4hC4Km/?/=/?wCCKwDwCGK}DCMK9DKm/i 66K/[//7/f]CfK9DKK/ D HCzļD7/]CK9DKK/nCĹKK0K4~CK4ts//tx/tx//tx/hCK/kI/CKK4K/km/i 66K///T˘7i 66K//ٙ]CK9KcKKm/CK//hCKme/i66KШ,jtD K9ĹK6K//혃7/~Q lGKL~GSKD˵K4K/YhGYK٘?L<]GeK9˵Kw>wNwFKKFKgPwg3}//%wK˽˵˽L˽,@hK*KtKè )*-!/( |$0<%" C @ KKGK|L!LLLILRMAIN LUUNSEPBVEINTAUD DEFINE CTD LU SUBCHANNEL. CURRENT CTD DEFINITION IS:CURRENT DISK DEFINITION: VERIFING DISK LU W/SPARING  !"$%&)*,-/0?@ALY`blv?tLyLLDtZLLLLL\,]LL@NEW SYSTEM MUST BE BOOTED AFTER PRSTR TERMINATESPSPAR SCHEDULE FAILURESON PROGRAM TERMINATED ABNORMALLY tLt`- `te``- teOT--e_tMM^M[ZM!M]MRLMU-7t|d-)d`d-7M/LdM6M\M[-?M;LMZM?MOMYeX-C-KMGLMWMKMOMVSPARE PSPAR .߀+INSCHEDULING PUSHBUTTON OPERATION.PSPAR SCHEDULE FAILURESON PROGRAM TERMINATED ABNORMALLY.tMu`-`uf`nݚ 0-eu-fuMM͘MMMaNZMNMMN͖͙͘-u}MMe-e`e-MMqMMMMee՛--MM|MMMMPBSCH PSPAR .ހ+UNPV tN  v f vf5 v2ZNN6N2v~f4.*f v  .f ...0  @@DISK WRITE ERROR AT LU XXX TRK XXXXX SEC XXXDISK WRITE ERROR AT SUBCHANNEL XXX TRK XXXXX SEC XXXtNg`.NwhN7NNN}iN7NNNj((N7NNNg3EN7N.NhNMNNNiNMNNNjNMNNNg3ENMNk2( *f.....ϙNNT..ϙNNT.ϙNNT.ϙNOT..ϙNONԮf.v>v.INVALID TR COMMAND UNRECOGNIZED MODEL NUMBER DISK MODEL TYPE CHANGED INVALID PARAMETER UDTRM gD/1/1/1/4/7/: /: /: /1 /: /=/=/@wE/BwE/BwE/BwE/BwE/BwEgEGtOFFwD///Z6/`/6 /p/ /m//6!/x"/{/~/ /#/ /T/T$%///// / / / / //&'()*S+,,-. yGOPP T/// / / ///0PS@S/1PS@S/2PS@S/3PS@S/4PS@S/4PS@S/TSS(5,86),,6*S+-tx x SS ,3P P~TPUTPR7,$/P*SPUTPR8,2gtT9TdTw,6tQ,89T,;9T6TQ,Cg,C9T:PFPP*@|xS+;lxzwweE?-B-F-X-]--b@-gA-lB-q;-v=-{C-~-zu-g-TDAG-Tg-W9T--eo-eo-eo-e-o-e@o-eAo-eBo-Eu-eug m;e;-e;QQTeA-eAmAweAm;@TQ숀SQQሀQ-9T-QSS -w-ʙ9Teu,g-6)--e-w-gwtQemT,QQBLOCKS/TRACK DEFAULTED TO 48n(6f)6TFGGv%wRR%Sn*6Gn+6f,6T&. SR-SSR2SUBCHANNEL? 7wH.EHA.HI7/J6K6TwRS SޙRWSTwL.].6'.a.g‘>wg‘.i.tg.tBAG.wR~TKTSTS7./RSSSS.g‘>w™9TR.gw.d6).]RT  TwgAL/*S+MNOwGM ?O.6)./g.J6P6T!RSSQ6R6T"RST&S6GS6 TRST#RTmTSTS7./.RT,TSTS7.// &S STSTS7/ /*S+U6V/^'//J5/T)/h/U-oOU- TW:S/T$U;U@ *S+MS?Tg/Ig;/Hg/I//*S+MSST{/*S+MS]T/*S+MSgT/g/}*S+MStT*S+XT/7/*S+YYXTY Y-MSS*S+MST/w/79T/.7//7gZ[tT\$%#  ST@T_STeSSDEVICE(MODEL,HP-IB ADDRESS,UNIT,VOLUME)?DEFINE SUBCHANNELS,LU=FIRST 7900 SUBCHANNEL NUMBER (0<=N<=7) ? BLOCKS REMAINING(TRACKS,BLOCKS/TRACK)?        #$%01256@FH_`d2blv:CTVVVTVT֞֟TV,-W"--Fv#v"f#-:f"AG(-:f"v"faF"W*- -&v#F"v"-9faF"W%Fc6o%@~UV"Fb@6fUV- f"W)vUUE֞֟V,VUW!-MW"-M.!v#v"f#.f"AG(.f"v"g%V"Fb@6fd6VfvTfaF" !-EvUw----------...g%V"Fb@6fe6V.g%V"FbvUwUTU.fTvUg%V"FbvVwUUV.fTG"vUg%V"FbvVwUUV.fTG#vUg%V"FbvVwUUV.fTG$vUg%V"FbvVwUUV.fTG%vUg%V"FbvVwUUV.fTG&vUg%V"FbvVwUUV.fTG'vUg%V"FbvVwUUV.fTG(vUg%V"FbvVwVUV.fTG$vUg%V"FbvVVUV.v#F"v".-Qf"W)vTV!֞֟V,VTXtVWfWnfV-V#V'VVVV$n6f6VW,.W-.zW..W/.W0..wV~VVXVV.n6O&g+XVV.XVV.XVW.XVV.tV.g  VV 79xx    MODEL# , ADDRESS, UNIT# , VOLUME#, 1ST CYL, HEAD# , #SURF , #TRACKS, #SPARES, SCT/TRK, BLOCK# ,    HblvzW4X_`AzW:Aw@g@w?g?BtWA/1abwucKduKc{WSXjXkaefagahwtabGxagabGyahWriv/FXmXuaefagjakwlJmȀJlabwlDmȀDllnolahpg/qrsqWi/qrqWiawqJtȀJqo6 auvXi HitWw/zXpv wޙWGi/ae XwaglabXoofahxy6al 6 d~Dz {Xm~tldl,dDltll%6d~l%6 d~Dz#, Xm|X+Xjt}d}tkdk+tiT,^T,>T,ET,NT,W,e}XDXlXhX,g~XHXXMXlXhX,g~XQXXVXlXhX,g X]XlXhX,g#XdXlXhX,g􁬂tX~,&blvtXt죚\䢃Հ <<,]XtXdd6l6X,,,et,etXXXXXXXXXXtdU,dU,,dU,,et,etdtXet,XDEOK TO PROCEED? (Y or N) _NY N Y $A%-$u#-!%u#e#&tY$-ufFufFu&Y6 fFnN-fFuwYEYn6f6ZYPYZfFuwYWYn6f6ZYbYZYfZDZf F6n6Z-v-p -v-{YzZRZ-YZUZu-fFnN-fFuwYYn6f 6ZYYZfFuwYYn6f!6ZYYZY V-šYZZZYZYYZYZZ-fufFmN@A@-fFmN-eFnNe tZfu-*"YZ"Z3ZQZbZs SECTORS PER TRACK IN SOURCE LU SECTORS PER TRACK IN DEST LU DEST SECTOR/TRACK MISMATCHLUDPCHK FILE WILL NOT BE RESTORED TRACKS IN SOURCE LU TRACKS IN DEST. LU DEST TRACK MISMATCH.DPCHK Y.....: ERROR#.. (REPORTING MODULE IS '......).BCKUP ..tZFwvZZg!7'v[&ڽ..[%vg%ZƽG$vg$Fvf(6v.g#vfv/ vg"FGnOfvG.g!7 vy[ZvgFwZ[ [[Z[[Zr[ZZ[[Z'??0 c:'TR' TO FILE NOT POSSIBLE OFF-LINEMUST BE TYPE 3 OR 4 FILEINVALID INPUT LUINPUT LU ALREADY LOCKED FILE OPEN ERROR t[ux//ay[[tbbcdx//[3Fa//[\3\dwrvwswx/ƚ[[fu[s[riч_f 0Wg_h 0wa x 0wa[[fu[s[rwqgqi/a/a//[\3\bcada/aiч,,7\3Fdda, ,\\3\bca`,\3F[p[f\[j[kdыlً ,3\-3Fd,,a,,da,;,@\@\3\abc񍚑\[bt[b\4,\Y[bdюlَ ,dю,{\k3Fd\r\[b\,,da,bac,\[(\,\[9\,\[E\,\[M\,\[Y\,dTTTA TRt\4 t\e_,,eľtZ\]\,eľtZ\]\\]\\\3<,eľtZ\]\,eľtZ\]\,dľtZ\]\@t] E u}Eu|Eu{u uu u u`-6]6] ]:] ] ueE}uz]L z] ]]e~-x  0 ] -bu -(eE u e -j-x]s] ]] ]]e'Eu-6DISK FORMAT SWITCH OFFt]EveEvdEvc|]uueufquu埀'va[]^p]ݜ^aݝݞ.Su}]ݛ]]^ifoU--]]^n]]e-eva^l]ava埀'U6a-._fmբ-.Iuuuu^ ]ݤu^ݛݣ]]]]]^iݥݦU..._eFevae'vbu^*aݣ^bVj..eEue.6.E^?]]]]]ݥݦe'Eu..H._.J._^l].O-._u}^]]]^fݛݝݞfkRTRYW  VE t^rfrnst.uut^FvFvvvvvv^ޏ_`.^^^^^vfFv^ފ^^^ޏ^ޑޒސ^..fgV.^^ ^ .f֑.v.fFvf..^^^^^^ޒޓf'Fv.NRt_GwGw|_'wwgw gwgw w'w [_D__ _ /wgw_P__ __g/T/Z_Z__ __ /_o o_ 0/ng/g /wgGoOgwG/sw /wgGoO//gwG//g//__/./.g/w____g_RTRYR VE t_wgo ?/̯t_``gwwѝ/oᠠ ٙᡠ \,dt \,dt \,, d!td飋``__``!t`F|`TtEHIJMNeFt,eFt-eFt.eFt*Le_-,G,K,z`zFaaG,,K,eHLG-Gut+e,ud+LZ`a`.t'|(`F`&`'aeT&,,šZ`a`-Z`a`-et0Z`aF`1`0t'|/eT/,,et&,šZ`a`.eT&,,MM`Fa`F`'d'-`F`'d'-Z`a`.t'|(eT&,,`LL<+=,-eFuZ`aat'|(e'-eHGL-+Zaa`-eFuZaaat'|(e'-Zaa`-eFuZaaae'-'Za'a`,Za+a`,-aG-I-ILGK-:eHa3   @@c>b@b//fb㚓c$b@/0㚑/5/<g^ w_cNc_db o^w_ @c_actc``w^/C66d66dɴɶ d d d䫚ddddcddcddṀ dccddd὆A/66d/66dwcdcdd66d66d66dwdddwdddwd ddddd<<Ƭ dd,dd9d?dDdIddLdPDATA ERROR AT TAPE BLOCK= SUBCHANNELDISK LU TRACK=SECTOR= BLOCKS= td^dddtdgddddT,k,qd,tdT,td,dDT,dtdDDT,, , dT,,dtd,T tdDu1e9_,Zde3te8,,e7,dde23<3<-&tӂe6tΚee6td- dte5u/Zee3e/d3<3=tl΂@3<3<e&de2e4-+-- te<<@u;e;-L-g=ewu:e:-U-ge:e;-Z-]e;u:-leae;e:-lE:u:-]?>-tm;e:?e:'>@texEyuEzuexuZeeezeeeeEyeEmM{@ENTER 'GO' WHEN READY TO CONTINUE ('PA' TO SUSPEND).ENTER 'GO,XXXXXX' TO RESUME EXECUTION.te\eeeefef-f--f-֚efee.e-f.fU-. fe\feeӚZf ff.fU.f.GOPAFILE READ ERROR (FMP-...).* End Of File readDevice read error Device down or not readyf\wsfTgǎwFVw.tfigioi 0oi 0oi 0oi 0jZvIgbvJgvMU.ZfgfJTUgVM../YW..W@vSWvN.W.WvSW@vNvLanI 0/fI.gbvQ.Ԛf3W..gcvQ.cvQZfgfQVfSvRXgQvOffOfPgggVP..gY/gVP..gcVQ....gY/gVP./gY/VP//gYY/ /VfObvL//g3FfKVfNXX//gY/VfK/%gY/VVV+/)/*/X@XgvLX/3/VgVM/7/<[/;/\mf 0,IebؙhK,Oe_ؚgib,Tu\i`g,[\mn 0,f-Ze_,memea,seeer,yebؙh{,e_en,-Zen,ef,eieq,ebؙh,e_ej,-Zef,eiea,e`,ea,ehej,ep,eoen,emel,ebek,- 3:0u\3<3:,\,ehe`,- 3<3egu\Zi.ibi\ef-6ee->edu\Zi=ibi\ec-DebؙiF-Je_-Zea-Qe`ؙiS-We_-Z @@ @ (! vlbXTTTALIDI tiEuwiiEuiiiitiEu--eŨu͚Ziiiթ-eũu͚ZiiiEXEC ERROR: XXXX IN MODULE 'XXXXXX. (TRYING TO ACCESS LU #.. AT TRACK ...... SECTOR ......).f vPsjfPPvPFvOyjjvuuufRFOufQFOV6UufSFvNZj3jRjNiifPVT.7.Lvj:uwj?iwjC ifSFvNZjLjRjNij 'Enter source disk LUIllegal Disk LU: _Enter disk subchannel(s)Enter disk LU(s)Illegal Disk LU: _Illegal file#: _Illegal subchannel: _Buffer size exceeded. Last _subchannel accepted: _LU accepted: _OK to proceed? (Y or N) _Enter 'File:Subchannel' pairs Enter 'File:LU' pairs Enter tape LU Tape LU defaulted to _Illegal tape LU: _Enter dest disk LUIllegal disk LU: _Enter file number Illegal file number: _Enter options Illegal option: _Conflicting or duplicate options: _Allowed options (_(1) VE => verify(2) DE => depress user questions(3) TA => use tape subchannel defs(4) UD => get user subchannel defs(4) LU => LU SAVE/RSTR/COPY (4) UN => UNIT (full vol) SAVE/RSTR/COPY(4) PB => pushbutton unit image SAVE/RSTR (4) MU => save of mulitple LUs(4) SE => selectivly restore LUsThe numbers in ()'s represent catagories andonly one out of each catagory can be used.No options accepted. (use '??' for help)Enter title Title parameter ignored with PB optionEnter hard copy LUIllegal hard copy LU:_Non-interactive input device must be only parameter Disk LU can not be in run string for this option. File # must not be in run string for this optiontmEEEEE! uutddt-Htttutd d dt-\ttޚmtllttd-dtdtmm ltu T--ml-d--u -T--d---mls-T--e -t-d4-u t.u e u s/@o[jsX`/cobjs>/gogjsnwokmlools=owjsmllls,d/~t /ud olt T//// T////Wd-dd t`/t͚ojs-lls-/t͚ojs-lls-t͚ojs-lls-td/d/T//olltT/T//dt-ojs>uwomlols=et/Ιojs\t͚ojs-lls-t.,-,-, gfgfwpslW@,,3ge,3gd,3`,(g0Gg0gfo.wgfp7ks\.ogV gc!pCks-lls-.,],],Ogf",S,cls-,X,c#gf$p.wgf$,\pgks>.ogP gb!psk"s-lls-%&.-y-y,&%G4'ls-,-yll,,%wpslga(,''&'G4wplsls-','wplss`'''@'))G"*G!*,G3,gN*-r,G ++,+GW4,,+G*gf,-rgf-g_*- g^*- pk)s\plsQ-rpk2s]*.gN/+G0qls=gf--rqkDs\e-qs)s=-"f-qs&s=-"q"s#s=g-)q)kMs[h-0q0kUsTi-7q7kesZj->q>kvsZk-EqEksXl-LqLksLm-SqSksRe-ZqZksUf-aqaksTqesNsQqiksSqmksRqqsNsQ-))',--qlsLGG2-,.wq.wgf,gf1GoNG1--g.GWK.AgM qls/lsLlls,s-.Ϛls---Śqls-ls-.A%&qlll.Ag.GWK--ݙql"sJ.Ag82W-& % 0.,g.&wqls!s-gI3o0O_H .-gG3o0O_F .-gD3o0O_E .-gD3o0O_C .-&%.-./%&&4sB.:.:gB&4rAlls-g< gA!rMl5s-lls-..f.f.X.kr\llW@.kg?.k5gf6b5gf6rol>s>wrsllrwls=7Gofa8/.G99.9G.a.:./9G.:G/.g.GW;:g.GW::;/.Úrlll.!wrlsls9lls,<.rllls,<.<./&'=rllllg82rlrn1nnoppDpvqrNslssnsnsss lIs7/slcs6/sl|s5/>ll333lCOPY):RSTR):SAVE):SEMU DI'0 800,50620016PB ??? , XN Y ? TT@@At4B6C6t5///D@Et6DF@Gt6@H@It4@JK@L MN6C6t5///D@Ot6P/DF@Qt6@H@Rt4@JL/DF@St6@H@Tt4@JU@LKMV6C6t5/WWD@Xt6DF@dDt6d/D@dEt4d/D d/Dl,d/D .,+d/Dl/L0tt-Y  t]tFtStItftGttyttottHtttSARECO VEDETAUDLUUNPBMUSE   \d|,tcu, H|Ԁ[,=,et]tmH}M|Ԁ , v e,‹Հu@uCe@@pEAmA= -:=@e@-4?=?-0eCm?utuE^-UFGJF¼»GJuesu[[\u\uusugguthiuiusuwZuv-v,vv0 - }mw6~m6N.~n/}V1=-n}m~V2-V3-en-V4-V2-V1-V5-V1-V2-V1-fm vx-u@m}yn5!n5!->>=- -V6-&2yx-  @yzuz-yN.y- >=-f5!, NOW 7~bv7cF`Ԁ  .Xvc Ԁa.EԀb v_HNdfc7 b~c`.P 00e@Ԁ\nvm>nnՀ]vm}|((⺮tvFwwgG gwG.g涖vvvwwgWo_ /gW..vgGv͚[vwvwww/gGvؚvw/gW/gW..wgw/gWo_ 0.gwgw/gWo_ 0/gwgw//g涖vgv[wwvvwww/www-w_wv[w$wvwww/ggGo/v[w6wvwww/gwg@gGwgGoOgGogG gGwgGoOgGn/ggW/f/ngGwgh*gGngGwgh$gGwgh*gGngGwggGn/ggGwgh(gGwggGngGngGngGngGnHgGn/ l? <vbXLIDIv? | HD d t| <t<|l dPRTALIDIDITTTRTPTTTTTTTTTTPRTATATATATATATATADIDIDIDIDI@ldxd,bvXdnusxjeujtg[xy1xgy!yy ,ݚxyye0!h(}e/ ue/,e.uu,e-U,,xyxxxxe,u,e+u,e*U,xjyyue,e,e%u,e)U,ܚxj,[xy(xgyy&y#y',ݚxyye$ue,e"u,㚅xyyuAdiE,eueu,eE3ueE2uAe%E-ekAe$E-elAe"E-emenBI?? xJx'ty44Zk@E_Ԁ]E_y\kH ԀZu[ ԀZE[E^-We_55?ecusy`eōu` U-}u`u[y|yyyyyy- =-a=b  cyukMԀ\Ԁ%Հ]y=tymfqvs >s-e6u@uH enomNo}~tnr~s=e tt>s-t e]-v[~\M͸~U~V~Z~Y]]Vl-vTVjVi>YVn.Vm.VhVg~Zfq fpvWFkvX~V].]Vl..}nU^VnY^Z.=zW[nY]~YVl.)FXaFWa.=[^Z.%nT^i[fon[6~YN\N\~ZnUfl^V.I]~UnY^Z.;>Y5!ߠ&l.C5!f ]Bb-+0 ,: >ufu.xv>u6V.fv >>.ucnzzƋzutzcF^.^. f>>6nAz‹fa tz5N Ůtz5N Ӌtzv5F5N zw>wgw>wgW/>AG>go@/&o/&o/&o#@Jo[T?T!wYgJJG^wX/=gZwWgJJ/F?JJwWG]w\?J?X/LW?YPJJG] G\@/C/>{K{u?aaw`?aa_?a @__`a{a/Gww/wwwPwwg'/'G/@O/'???gAAgo@/?򜈀/@/ ♁|f ⚂|f@ ʝ?爀|g◊P ڢʤ❂ lfte tfld ldtd`lc |btc|e,lbdc|e,Rthdc5, 4hth|c|ftbdhLfdfLhdb@Dd Lc Q,>Df Le|cLh|hlc,2lhdgt?t@tAttBttCstCFMR3?3D33E33F3333333333333tu uuJu\uiuzv7vevnv|vvwx x xx xxny5ycyyyzuzzzzz{#{a{w{{|e|i|c|d|n|j|f|W|g|h|>|m|K|k||| |o|w|||}%}/}:}~~~~~5~7mv$P.047=PLIB O  wP.048"=PLIB O x3P.049%=PLIB O yTP.066(=PLIB O zuPCOPY::RTE_6:6:105:128 644 0 0 64400 5310707442 33571 PCOPY::RTE_6:6:105:128 $i iPCOPY +#"+#"+#"i4i[FST c4"PCOPY*|64e-=-ݘ[$% %d 4OdA\WF/;]5*A--EFYl@^_ C*!,+t4+4 642444dD,94;44d@tDtdDtt4Ht! t4S4444a444ɴ4444444Ҙt4g4d,l d ddt!,dD,dDDtdtdl|Ƌ4dDt DDtԘ4ƴ44444444444՘s444,s444,COPCOPY Z~P333E3D3:3/SIZE UP THE PROGRAM t54<SON PROGRAM NOT SCHEDULED PROPERLYu!-e!-545s555SCHCK (eh-0-5-:-I-D -N -T -Y -?-^545t8/-b5958/-b5>58/-b5C58/-b5H58/-b5M58/-b5R58/-g-b5X58/-b5]58/-b5b58/s5f55h/٭jej-lui=jiuh-PCOPY NORMAL END OF JOB SIZE UP THE PROGRAM! INVALID PARAMETER NOT ENOUGH SUBCHANNELS BREAK SENSED NO DISK PARAMETERS SPARE ATTEMPT FAILED BAD LU WAS ACCESSED EXEC CALL FAILED UNEXPECTED ERROR!! CMAIN j80-g wgwgwgw67(81-g...&..'j82.(%6%&)77.(.(*56).g.:.=.=.D.D.Ej82.F$6C&G77.F.FH56G...Uw.WwwwwF6d'76683F6p(76683@6683g.68B8/&6788177'7g.g.j8468O8568P8/&6778177(7g.g.j84.՘6#)8 76#86)8 C6Ƹ'87g.j87C6и(77g.j87p68786786)6683... r887. 7 w778 8 77g 8iwg/g/j81g @77uo7! w6683/,/b/b w7798 8 77g 8iwg/Fg/Hj81g/Um7Q77(7g/U#7\(&8]8^7g/aj8:/dwo 8!  r88s8!7o 8!7r8!g//gwg/wI7/j8;g/m787'7g/7'$77777)8 7H7'g/m777(7g/u7ʸ($77777)787*7͸(7777778 7?/j86!58#")" 8 78A8@VELUDEFINE SOURCE TRACK MAP DEFINE DEST. TRACK MAP SPLU "PSPAR SCHEDULE FAILURESON PROGRAM TERMINATED ABNORMALLY 58t!,!td!,tdT,,dt88888888,t|d,d!d,֙h88d888,ޘ88q8s888dԚ,,ꘅ88|8s888SPARE PSPAR .߀+INDisk read error at LU XXX trk XXXXX sec XXX DISK read error at subchannel XXX trk XXXXX sec XXX 590!-S9@199u9n9F299r9p9L399t9n9R03E99s-k9Y199r9n9_299q9p9e399o9n9k03E99m41')DISK WRITE ERROR AT ((LU XXX TRK XXXXX SEC XXXDISK WRITE ERROR AT SUBCHANNEL XXX TRK XXXXX SEC XXX59!-ɘ99v99䘈99v99昈9¹9v99䘉9ȹ3E9v9-ᘈ9Ϲ999䘈9չ999昈9۹999䘉9Ṧ3E992( *'f(.)-*-+..9:?R..::,?R.::9?R.: :F?R..s::S:f.v>v-INVALID TR COMMAND UNRECOGNIZED MODEL NUMBER DISK MODEL TYPE CHANGED INVALID PARAMETER UDTRM f,.p-.p..p/.s0.v1.y2.y3.y4.p5.y6.|7.|.8v.9v.:v.;v.?.>./xo6@..Awo6 B.C.D...w.o6E.F..0w.4w.G.5w.?S.?S/zHwg,.-/=./=/.1.2.3.4/=5/=6.7./@Iw/wJwK>LwgMw :; ?wg// 1/2/3/!6/(7///6N;@>/8O;@>/8P;@>/8Q;@>/8R;@>/8R;@>/8?S>>/wSw/wTJ/D/uK>LMw  >> /r;_;?T;?U;MU/cVv;i>;?V;W/q'w?Wg'/RTw/w?S/z?WTW/'/?X;;K@>LXo.?>NUMBER OF BLOCKS ON DEVICE? Y=>>/ҨZ[6\6?W//]6\6?W///ꘅ;<?YZ^6\6?W/ZZYt;? >M?VU?Z?Zd5<gt_<><<??HETRPlease define the current track map entry(s) for disc or CTD. vuvugAE- f- K? >>,Te8EW,T`?W-eW,X,]w=+= = ,`?W,= >> -v- `?Weu,9f-KJ--e-v-fv/5=-e-m9?[,1=!="BLOCKS/TRACK DEFAULTED TO 48mg6eh6?\eFFud8=W=d?mi6Ofmj6ek6?[e-H?=l??=qSUBCHANNEL? MvL-LA:-gM.od6ge6?]8=L?=??TvIW--KI--gawgW--f-gAF-v=??^? ?U>MM-.K=>? >>-gaw`?W=-fv-KJ-ߘl=?_GHK?VvfAI.g>GHwChwFvFGC >?F-KJ-.?f.2od6gf6?`y> >?og6gh6?a>??Teoi6foi6 i>%??b>-??T? ?U>MM.1..>>:?k?^? ?U>MM.>..Le>H??R? ?U>MM.L.g>GHwDKj.I.]A.S.J..gDGnNgDG ?Dk>n?coDOgDG g>GHwC/>~?ʿCf.fW.f...g>GHwC/>?C.g>GHwC/>?¿C.g>GHwC/>?ڿC.f.g>GHwC/>?Cg>GHoj?\.MW.g>GHwEoEgj?\gEG gEGwC>w>Cg>GHwC/>?C.v.M`?S.-MW..MfJN5?G-u$%#  ???????DEVICE(MODEL,HP-IB ADDRESS,UNIT,VOLUME)?DEFINE SUBCHANNELS,LU=FIRST 7900 SUBCHANNEL NUMBER (0<=N<=7) ? BLOCKS REMAINING(TRACKS,BLOCKS/TRACK)?        #$%01256@FH_`d2blv:C@5AAA@Dt,dE~lM~,dE~t8DyDm6e 6DDDDdE~t8DDm6e 6DDDDDU,DEEmEDEDDEsDEwE,dtdE~lM~@A@,dE~lM~,dE~lM~dʬ5De|t,"DE EE:EKE\ SECTORS PER TRACK IN SOURCE LU SECTORS PER TRACK IN DEST LU DEST SECTOR/TRACK MISMATCHLUDPCHK FILE WILL NOT BE RESTORED TRACKS IN SOURCE LU TRACKS IN DEST. LU DEST TRACK MISMATCH.DPCHK Y.....: ERROR#.. (REPORTING MODULE IS '......).BCKUP ..5EEvuiEEf 6umFŦ--FufEŦF uf Eue(5u-f ueu-uf EFmNeuF-f 6 u:EEufEvEFFEFEE3EEEFE'??0 c:'TR' TO FILE NOT POSSIBLE OFF-LINEMUST BE TYPE 3 OR 4 FILEINVALID INPUT LUINPUT LU ALREADY LOCKED FILE OPEN ERROR 5F^ga.i.t":FnF]##$%/ga.x.F{3Fg"..FG3G%/v[_v\`a.KFFO^F\F[/gRWo^O 0/gVPo^Q 0/`" a 0vJKFFO^F\F[vZfZwgR7.".g"..ܘFG3G#$"/%/"/."/gRW./ F3F%g"..FG3G#$"!/kG3FFYFOGFSFTgVYo^Y /G3F%fY//p"//kg"/$/)G)G3G"#$fOvKmGFKwmFKG7/uFGBFKvNgVNo^N /ugVN/dGT3F%G[GFKG/zvL~MfL/zg"/hfK#"fK$/GoFG/GtF"G/GyF.G/G~F6G/GFBGfJ/g`bTTTA TR5GGvGwGxwwwww!/̙JGGnGGGwgvyGǢGGGǧǨǩǪǫǬǭzר{ר ߨ 0 _ /w/gGwg|{H GGGGGǬǭ}'~~DISK FORMAT SWITCH OFF5H1D2tD6tD9tAHKt07t"d"t"e1t.t/5'tHcIH.2H34,t!| Hl1H-H!HeT-,p,zHtHIHwH-d-,Xd-tmIH-t5'T 4,7,e8,,t$5t'3t&4t%nHH':t#*H19H&H%H#H)H(H;<T(,,7,d$Dtd#'t H9HU,7d#D't'd',,HH&H%H&H%H#;g.bZ5JijvJJfklvl..fvvvfV.Fnnkfv ^.fv ^.fv ^.fv ^... fvfniJmJJJJJ5Jm../@vh@Jn@sJK   @@xKJł@qJ..fłJÙoKJ@/Ùm//5K%%@w$g$/5/P&K`w#g#/>/PmK#K$/C/Fg$w#/UoKJK$K#/UG#w#/F('/]o$K#(g#'')ENTER 'GO' WHEN READY TO CONTINUE ('PA' TO SUSPEND).ENTER 'GO,XXXXXX' TO RESUME EXECUTION.5KKKaK{KKK˒K/m˒K//g/璙pKKKK/g/g/gW//șiKKKK|KKKg/gW/g/GOPAFILE READ ERROR (FMP-...).* End Of File readDevice read error Device down or not readyduJ4LeJJuJDuI,C5L%e`%m_% 0m^% 0m]% 0m\% 0&te[#teJt ,SLSMNLeNT ,W,X-E,^,e@tt ,q,qt@t t"l 0,d,eW#t ,FL3UZ,,eW$t ,$t LMLL LteY t xLL L MKMXeUT ,,eN,eNT ,,eW$T ,,,,eP,ePT ,,eV,T ,,eU,-d #t,L3FLL ,,eN-d,eT-І,,,@eat,-eST ,,,,,uGLMG&M-d-uGMMNLMGpMMEMEMMEM%MEM5M<M$MNLKMR-BduGIM.MGKMQMPM4MNLKK-BM;MNLKMO-BMBMNLKMMt,J ?TT/AABENEX/E5Mt-|u|gA((m|AMusvubumuntuiFMMiMeugg;Ug--g@5iuig?w--hMMnujMO>MiMkMmMl/ekub-gw--g=ujMO verify(2) DE => depress user questions(3) TA => use tape subchannel defs(4) UD => get user subchannel defs(4) LU => LU SAVE/RSTR/COPY (4) UN => UNIT (full vol) SAVE/RSTR/COPY(4) PB => pushbutton unit image SAVE/RSTR (4) MU => save of mulitple LUs(4) SE => selectivly restore LUsThe numbers in ()'s represent catagories andonly one out of each catagory can be used.No options accepted. (use '??' for help)Enter title Title parameter ignored with PB optionEnter hard copy LUIllegal hard copy LU:_Non-interactive input device must be only parameter Disk LU can not be in run string for this option. File # must not be in run string for this option5RFFFFFvvvffv/vvvvvf f fv/vvKS0RRRvUv\f/pfv]fv^KSARR]vvV\/H/UFSKRRФ/Rf/Q/Tv/_V\/Y/^f/]/_/mtSeRPXVP/i/jf/pv/zf6/zvv/vfvřmXR/fvf/|f/V^ 0/!/vFv/Э//vЮ//vV//Ю/|а/|f/f//|f fvQDSRQS|ST(UQUtUUV$WRWvlSPXRRXvQff\f/vV\/6RFTXRж,,#и,#и,#!,𾨿/𽨿T'PYÐ!,>șlT=P&XRRX,GșlTGP2XRRX,RKTQRRR_R^R],Y,_jT^R_RR,a,m,j,l,࣐,v,,K,},,֐h",,,K,- ,,@!,-mY+RR,-,FTXRж,,и,и,mR,-,,,,KmRX,,,,@𼨿TP:Y8URRRURX,KU PCY,UPKX,UPVY!-UPdX-#U#PoY*8U'RRU+RXU3PvY)R_RRPX-:ƨ-@ UCR_-H-J,-Q-N-P-Q-Ð!-jșlUiPXRRX-sșlUsPXRRXșlU}PXRRXƨ----FURRRи-и--騿UPX8URRURX-UPYșlUPXRRXƨ---FUXRж--и-и-!-0UPYșlUPXRRX騲... ..mRRX..1.V#PXșlV/PXRRXͨ/5/5.cmRX.E/5mRR.X.XjVRXR.XlVcR]XR_X.rkVoR_XY@../...../...ƘVPYVRY /.VPYVRX/.VQY&.ҘVXX.'.ژVXX.ޘVXX(.嘅VQ Y).옅VQY*.VQ!Y+.VQ2Y,/WQCY-/WQQY./WQeY&/WQzY'/WQYW!Y Y W%QYW)QYW-Y Y /=.y/LW=QY/?2/V/а/ƘWtQXR_YRRPXXmRX/z/lWR_XRX/͙KWRRRR/а//WQY/࣐  0/lWR]XX ȝ  / ȝ  / ȝ / ȝ ///mX//lWR]RX騿dșlX QXRRX,t,",",,'FXRRRT,'dи,'e"#e"X+QX%X/RRRX3RXDm"",,qD,aD,Z",Y,Z,D,aD,HdDTdDT,,KX}RRRR,tҘXRXR_XRRPX,tXR_RRPX,,t,KXRRR_R^R]dәDXRQXtSTHTHUUVV2WuX DXRPXXSXSXXИXRX,ИXRX,ИXR8X,RR333R^COPY):RSTR):SAVE):SEMU DI'0 800,50620016PB ??? , XN Y ? TTe@eYm6e6Y-B-d-d@eYF|@eYeF{@eYeF}nxeFy -m6e6Y-n--@eY-F|@eYeF{@eYeF}ny-F|@eYeF{@eYeF}nzeFynx-m6e6Y---@eYF|@fYeF{@fYeF} eFyny-eFy -eFymNy5Y-0  ZZZZZ"ZZ?Z5ZRZ+ZIZZeZ[ZoSARECO VEDETAUDLUUNPBMUSE   f~~.v~cv. H~Ԁ[.>.fvZnH~N~Ԁ . v e.ڞ~Հ>~V .FnՀ.E fvfv~.Zfvg.Zv~NN~NNvvfpFn> .>f.>.fnZ5[ /[!4[[[14[##w0$%[%[4[3[A[[[[ / o36o?6OoW?/OooW/WW/_go/wW/\W/qW/uW/\W/uW/\W/qgo w4/w@o5o5!o5!/???/ /W/'54/  @56[6/5O5/ ??/g5!, NOW ;wc<Ԁ  =t Ԁ,Ԁ \HL d> |`, 00!@Ԁ*t)<**Հ\)B8ᇬ<5\RDSu}ueE} euE,]TeRt?F\p\?]~ueUm] -xeU~,,t@eE}t\]\?܉]]]-xeE}tE\]ܔ-zeU~,eU~,,ueu,eU~m]~ 0,eueu,eU~m]~ 0,eueu,-xeRt?et@\]\?\A]]]-xD\]\]]Mt@\]\?]]]-xeSeE}m-zt@\]\?]]]-xeue@SeEueE}mMeE}meE} eEueE}mMeE}lA-zeCSeU~-"-*eE}u|eEh*|eE}lBeE}u|eCh$|eE}u|eCh*|eE}lDeE}u|eE|eE}lA-zeASeE}u|eBh(|eE}u|eB|eE}lCeE}lDeE}lEeE}lFeE}lGHeE}lH-zTU l? <vbXLIDI\@u}u=}eme M}HE eu}=u=}meڭPRTALIDIDITTTRTPTTTTTTTTTTPRTATATATATATATATADIDIDIDIDI@ldxd,bvXf*vҙ4^&fv&v#^<^^#^^^.E^A^^fh(~fvf.Sfvv.fV.W.dD^^^^^^^^^afv.fv.fV.yH^o&^^vf.f.fv.fV.G^&.^^^#^^^^.E^^^fvf.fv.E^^^v׆Af%Fׄ.fvfv.fFvfFvֆAfFԄ.f'AfFԄ.f(AfFԄ.f)fخ*BI?? ^]5^k@GԀG_kH Ԁw ԀGG/g?gwI4_gIIwI WH/9wHwR_8_G_R_M_F_J_K/; ?I/A?IL  _QTwTkOhԀiTԀ'iՀ_Tj?jj5_qoqLM M/}gr6wrs@wstH ugqNoqNqOPM?qgq QQM/Q gw_su/RSOrtTUVW_sXtY/Z[\W]/^/_`VL abcdU_s/ڙXtY//sTUWV/`eWXWY/daba/eV/Z\eNR6WSSVTd(\,|l\f<5!ߠ$(g5!" Bb-+0 ,: <1d1,4tP<14RTS,FdTtQP $-v#~$=jb#v#v$f!P ^).N'}}}}n!f" n"v! v"n  n v `n ~vb!-nfb!.v$f5-6$v$~b"vf$N"f"N$f@F  N Q-F" N!~N$~$n-n$f#>&.Av#f%f#j fb!-n" >#-n&f"V( ..f*A.!v~@v`n +>+vfnv~@.N!.fn~vfn~vfbvfNfN~b Fv fNf.v.|~nfF.q D^.|Fv Nf`n.fA.`b@> +@A8.A8c*cc+5bw w!w#wwww" @Fv!g-w?..>o-)w$W'.W(.G,.w&G0.Acsc1/wc%c/?!?"..g!.g-w?#.g!.g-w.g!G.o//o-g#/Acco-o. 8/ g"o$ cg!gvgvgvg c*cc*-+ wvwwy`wz3wxgvx?3OwA/M?z /KGv/P/O?z Gv?y3v @zyov@woS3xovwv/=wvw@wzwygew3wxgvx@/?c5c{zc{cw }@G|w|!gwgwoO|?//|gw?|O?//|O?/gw}g~cc5cwww@ /?W/_/ { {/?cd|}g/w??d/ /go ~0-d!t@ d!td!d!| l!dd  dU5d"d$t3"3<""#,?dU5d013l0 2@t1|0DW,MDX,MDV$Yl0\1,P,AdTt2t#3dU{ tb|cdadbdcZdkduopdlduq5do,ddAveduF-@ecuFeFH5eGeeuF-eSDEOK TO PROCEED? (Y or N) _NY N Y 5eiir5qj e}m}m}}}ma } eM ͡ M}-emesese ee eseeem=e=-u -= =  eDeA8ECUTION.te\eeeefef-f--f-֚efee.e-f.fU-. 58+8_8`8a8c8d8e8f8g8h8k8l8j8o48n8p8m8*8b8 8<8=8)8>48?%8$8 +6L8949?N>?@@@@@@@@ @!@"@#@$@%@&@'@@ @ @@???@ @@@ @ @@@>@@??H?@@@@(@)@KM>@-?<<< < < <;:@+@;@@@@,@*@@:ACCCD CEFbGHHHHHHHGGGǮH=I*JK)LKMxOIOhOP P PP PPPP PPORXXXXXXY"XXXXY/XXXY XAXYXXXYYY XtTT#XXY!RY RRRS|X3X+RRRXRQY.RY-XRRR]RRRYRUR\RRY,RRVRSRPXR_Y(Y'RXY&Y%YYY$Y#RRXRYRRXRRXRXXY XRRRYYRRRRXY XXYYYYYYXRXXRRRSpR^YCFMR3D33E33F3333333333333Z~ZZ[[[%[6[\\\\!\*\8\<\U]]^*^__T_j_u`-`/`+`0`.0````````(``&`%`*`)`$`#`,``'`__`1`W`````aa3aAajb+bbbcecSc~cddddd3dZdqdvddeHejesee ?TT/AABENEX/Etg/w|gwwwwwgggwW//7w׻//ggw[gigggggw׻/w[gigwPSAVE::RTE_6:6:155:128 644 0 0 115400 5310707443 34052 PSAVE::RTE_6:6:155:128 $xPSAVE +##+##+##M\FST c46PSAVE*|N4~x-Mi-ݘ[$% %d 4OdA\WF/;]5*A--EFYl@^_ C*PSAVE 92084-16656 Rev.5013 900104.0826 ,?4?4̙4F45J5KeKE=-#4OJ45LeL@uMEJuNDuOeMDEKuPuf4_uI uI4j45I5Cd4yJ5LN5QO5P5R5T5S5U5V5Z61eZ-,'eY ,T,,SAUNeYT,U ,mO duP,e5;-'515>4-565s5r5:5>4-@0PSAVE lb333E3D3:3/Size up the program LUs on unit could not be accessed cERE"ԀE"6CFԀ%V. eR6v/566/F . eR6v/55;6/605;eR6v/566/f0V-V-V. eR6v/566/61V$-^-V!-^ -V#-^"-&V. 56E6D6156768f8-,v9256:616769. f=U;-,n:nnn~:^.f0V.VV-,^.-,^.-,eR6v/6 66/6:tx @@j,0,0016506280?6.6' Enter tape densityNvNN6SS>VV6rFsvufrv_666_6q6o6p.fovk-66_vnfVn..fVm.6r6a6lfl.66k6a6b6cstuv.vwDI? 6FwVvfGV fv.g_vvg^6v67]6666/Eg\vV./E-766vg[V//EgZV/E/67666f/EV//EgYVoX^ /6/6V/+/EgXV///6/6V/6/EEѶ/;/>/LGVnfvF.E7W/S/SlDI? SON PROGRAM NOT SCHEDULED PROPERLYqwq/g/7~7`7777qSCHCK (SAVING DISK LU XXX TO FILE XXX TAPE XXX LU XXX SAVED ON FILE XXX TAPE XXX SAVING DISK SUBCHANNEL XX TO FILE XXX TAPE XXX SUBCHANNEL XX SAVED ON FILE XXX TAPE XXX DEFINE CTD LU SUBCHANNEL. CURRENT CTD DEFINITION IS:TAPE MOUNT ERRORTAPE COULD NOT BE LOCKEDTAPE IS OFFLINE INVALID FILE NUMBER PUSHBUTTON SAVE FAILEDNO DISK PARAMETERSBREAK SENSEDSIZE UP THE PROGRAM!UNRECOVERABLE VERIFYSPARE ATTEMPT FAILEDTAPE WRITE ERRORTAPE READ ERROR - HARDWAREMULTIPLE LU SAVE OF MIXED DISK TYPESNOT ENOUGH SUBCHANNELSINVALID PB DEVICE(S)TAPE NOT INITIALIZEDEXEC CALL FAILEDUNEXPECTED ERRORPSAVE NORMAL END OF JOB 9EE E E E E E -0-7948d tttɈ>։3< ttҚ59V>ܹ >989-9Z3?t -a-e-e--n-9v8͙9z7>9~7>93E3?>T93E>93?8U--93?8-9>3/tT93Eƹ 93/3A8d  --9Ǿ3/3A8 --e--ژ9׹8d ueueEME-E9--.)E -.tueE-:>3/teuE98..eE-:>9tU..:#?>ܨu}e:.3?8d.5.@::3: >ؚR3:3::K888?888Tͨ Tͨd.Ud.[..` .f.}Q:n3A>ֹ8dt͚+:}8>>)>7>E>g>n>|>>d.>։3<: .. tu:8tș;:3E?>euE9.!d.dt.dt..tDt..eEt.eEtt"8:׾3/88d#ttttttttt4-:>3/tϙ:8308d#/!$//t/dt˙:;87? >:;87? >:;87>>;; 3E7? /9:;'87? >:;-87? >:;387?>;;93E7?/=/@%t/B&tF;F 8;M38>88E8>/R' 8tE88/c/cl88td8t(8)l(8*(8+l(8(,t(8D;3<>>ھ>ܘ; 8ȹ 88 ?8d-\ .;>ܘ;8d ;3?8d//ϙ;ǹ3: >ؚR3:3:Ә;ڹ>888?888Tͨ Tͨd/>։3<//;ddЀ8Ӂ>t<883B3C83836//01g,234,56,#fۀ8FvƚD<#>? >677gֈ3<8ԚR3:J3<,U98.u:fۀ8FvƚD>ھ>fۀ8FFvƈ3>?<888883836?-?'>f@@FvƘ<8ʾ88888޹3836A,fA.,,BC,DC<͹888>8554,,4g,-~gE5@R3<>ƈ>ԚR3:J>,,,3:S3FgG-5E?--GF-5FEF-H@HIFHNv~ǘ=>ܾ8fHHIIF-J@FvƘ=68888>f898.uF8@@F554F4E-qfFvƘ=T>ܹ 3>IJ=a >>88>f898.uIIF-VE;G93:VJ3<99-;-4f@KKFvƘ=8888?;455f898.u,v-fFvƘ=>ܹ 3>IJ= >>88>f898.uIIF-Ә=ʹfۀ8FFvƚD=3<>>ھ>66:-:=87>>:=87?>:=87?>;=3E7?.:=87>>:>87>>:> 87>>;>3E7>L66>>% 8ȹ 88 >8M.g.>-7>fN.>47>fN.>;8 >fN.>B8>fN.>I8>fN.>P8'>fN.>V>Y>]80>fN.>d86>N.>k8@>fN.>r8J>fN.>y8T>fN.>8\>fN.>8i>fN.>8{>fN.>8>fN.>8>fN.>8>fN.>8>fN.>8>NfOvƙ>>>Ƙ>>>.>>8PSMAIN  H)-," &%#b LUPBVEMUUNSCHEDULING PUSHBUTTON OPERATION.PSPAR SCHEDULE FAILURESON PROGRAM TERMINATED ABNORMALLY.?LQwI/`wIgPoP 0/ngwK/pgwK?u?N??y??????K?L((NO/wHJ3??CgI/gIgH/??'????gCQgQ//??2????RPBSCH PSPAR .ހ+UNPV Disk read error at LU XXX trk XXXXX sec XXX DISK read error at subchannel XXX trk XXXXX sec XXX ?R:??@1@*:@?@.@,:@?@0@*;@3E?@/,':@?@.@*:@?@-@,:@!?@+@*;@'3E?@)S1')UdYV,NW,>X,DY,I,T@B@eE,X,T@H@rE,T@M@E,T@R@E,X,T@X@@Y[d[,]tZ<[ZtY,2INVALID TR COMMAND UNRECOGNIZED MODEL NUMBER DISK MODEL TYPE CHANGED INVALID PARAMETER UDTRM dZ,[,\,],^,_,`,a,b,c,d,e,,ft,gt,ht,it,jt,tdʬ@t,uuUklm-l,-n6n,- oun6 p,q-r,- \u- n6s,t--^u-bu-un- cu- [E-[E-vueZ-*[-\-]--_--`--a--b-c-d--e---wu-xuyE8zue{u A>A Fe8Aŏ-/fDE8Eufpuu<E,xm6e6EYDREBEXm6e6ED]EXEm6fHm6 fTDkEXEDsEEEfEE=œ,w-/,DEEEfEE=œ,-/,DEXEEfEE=œ,-/fDE8EuVY,V[,V\,V],V^,-)eF>m8M9eF> F-fDE8EuDF(ʼnfDE8EmE-(V;-&fDE8EumeEeF= eF>uE@SEBʼnfDE8EuE%F0ʼn-(u>-.E-/,'V;-3-5e8E$%#  EXEEE^EE`ENDEVICE(MODEL,HP-IB ADDRESS,UNIT,VOLUME)?DEFINE SUBCHANNELS,LU=FIRST 7900 SUBCHANNEL NUMBER (0<=N<=7) ? BLOCKS REMAINING(TRACKS,BLOCKS/TRACK)?        #$%01256@FH_`d2blv:CrF{H-H,H-FH.;F#$FH/.t.Х..wwg.gA.gwgGЧ..wGw.gGHG6訂@ڀGG@6gڋH0.gHwڙ;F#$GGЩ.Х./wwg/gA/gw਀GG@6g6H0wgGp !/FF/ ///,/9/F/S/`/m/z///਀GG@6g6H0/਀GGwڙG/gw਀GGwۙG+/gw਀GGwۙG8/gw਀GGwۙGE/gw਀GGwۙGR/gw਀GGwۙG_/gw਀GGwۙGl/gw਀GGwۙGy/gw਀GGwۙG/gw਀GGwۚYG/wGw/.gHwٙ;G#$GGٯGgoH1.GGHgH:HG66H0вд/езйHH2HHHO,l36LdHH?,HHG,HH,HH_,(H#  HH5 79xx    MODEL# , ADDRESS, UNIT# , VOLUME#, 1ST CYL, HEAD# , #SURF , #TRACKS, #SPARES, SCT/TRK, BLOCK# ,    HblvHJ F&ƙHtdtdĬH,fFteK#KuHIIfFufFnNtfFDnNfFDnNHu,IIfFufFufFuMeJ"MJufFuMeD"MDue$ufFueL--e 6!uI+u-4e uI3ufuMeJ%MJumU6 fFeJm H}OINNuL,Ie ucI_Ecud-VfF JufFufFIufFum6fm6 fFd-fIue-f!Eum6fm6 fFd-IIIvfue+uV-V-V-V-V--IIIJ -OIJ IIIJ-OIJIIIJ-IIIJ-IIIJ-J-blvJ')v<('Հ >'><.3J*J=f=>.....: ERROR#.. (REPORTING MODULE IS '......).BCKUP ..JgFgvhv_4JtJCfE6vEEJh.}.hJvdfЀJdhFvffFdvdfd(6fvJ.fvJfJv^h.vdfFdFndNfdvdF.fY6vYJJevdfFdvÙJJJJCJȘJJ[JJ_JJiJB'??0 c:'TR' TO FILE NOT POSSIBLE OFF-LINEMUST BE TYPE 3 OR 4 FILEINVALID INPUT LUINPUT LU ALREADY LOCKED FILE OPEN ERROR K #/+/6ٙK0Kۨ#/:/IK=3F/A/FKFLN3LOۨw!w"#/q2KXK KK_ 0W_ 0" # 0w 2KK KKwg////KLN3LO٨٨/٨//K3F//KLN3LOʘK3FKKLOKKW_ /ޘK3Fg̨٨Ũ//KLN3LOgw ELOK ɚEK LY,7-LK dXlW ,7dW,&L3FۘLLVK LO,<,?D.5 /?  v vnOKvGNNOKvf/fvfFGEnHwABBOAOGOBOFgL nOEwAfB)wCOOJOABOC3<3=Nn@R3<3-f.fvQRRt|f-f-QRQfvQRRt|f.QRQfvQRRf-QRPQRP.ER... fR3./.!.f!"@B@@WARNING--ADVANCING PAST END OF DATA MARKvRRRLoading CTD.. TAPE IS OFFLINE TAPE IS UNINITIALIZED TAPE NOT WRITE ENABLEDfwxRgxxwxgxW..v/ Wz//gv/ vV/ /@vgvSSRv~gW//3S RSgW/%/3S,SSyS{SySS0SRv~/ vgvS;SRv~v/Bgv9SHRR/L/QSPRS/hg/U/ZSYRS~/hg}/fSeRS|/h/tSng{/k/  ((@ MOUNT NEXT TAPE (ON TAPE LU ..).SSәwSSSSӚgך/VERIFYING TAPE XXXUNEXPECTED END OF ....!! FILE XXX VERIFIED.TAPE CHECKSUM BLOCKS BADTAPE READ ERROR - HARDWARESfDvoDvnDvmDvl fp,! :T'SVV;T-3EVsVu;T33ESV3<SV,DTCVv,V ,K,NTSS ._.vkfySFoveDTjeVwV~3j,SJ3<,-f{vifFnNm,.">i,SJ3<,-TVSS.-TSV~SSJ3<,-fyFnTSSS.-,.-USV~Sf-&SJ3<- -fveUVeSSf-f~-.-U%SV~S-f@R3<SVtR3:JS->->-F3:S3h-EV3>-.--fySFyFovefySFzFovffySFxFovgU3<3E3>SSefg3DSf-f."..-ӈ3k,]._VSVf.(V&SVfV,VpS._ veEV~Se."f.B.Gff.Xfx.K.Pff.Xfz.T.Xff._V_SVS3<, VERFY  LEFITADAPEdVf.vvf.vfvfƙvЙVVVv~f.>>.fƙvЙVVVV.@@CVݚE../8@vh@Vn؂@UVۉW:   @@TW:V@JV//fVߚGW V@/,ߚE/1/8ERROR ON LU XXX HEADER RECORD TAPE ERROR AT LU XXX TRK XXXXX SEC XXX TO TRK XXXXX SEC XXX WGGυ WW׆sXtww gwow //?w / ׈wr׈//wqwp/wqwp3,Hd+,C,E,",Gd0,Ud/,L,Od0,U/,S,Ud00,Y,.),}\f3F[ۤ[ۦ-,j,md0,1,sd0,23,w,x,_-@-d)-,,d4,,5,,,-tٚ[\ۤ\ٙ6\ۤ,0),-tٙ\\[ۤ\0I\\\\\\\\\Ι\\[[z\,1t\\[k\\\\[[k[x,ԙ\\[[\,ԙ\\[[\*78 ?TT/AABENEX/E]-uf]uttut-]&\\tfT-+-.f4tf -2-B3]5]t]>^\\\\.dt-Of -F-Oft]L^\.t|fT-`fT-`fT.YfT.f.ffT-wfT-fT-fT-fT-fT-f.ftfT-~-fE\^-vE^\-n\ 0-f]-fE\^-vE^\-n\ 0-.f-ff-ff-f]-ff-.f-f-ff-f]-ff-.f-ff-f.!f. ff.f.ff.ff.!ffT.%.X3:0v3G?G@GAGBGC_wEarߥ//DwEw/FwwB_ߢai__祚I____``?`W`v`˚D__aiawߢaiD_ߒaia}ߢayGHD__&aiavߢaiIHD`_0aiaߢaieqEau\` ߓ\ezEau\`ߛ\D`ߞaiaߢaeJ-ZD`!_GaiaߢaiK,%,)eyEaKekEe,/,5exEamkMeD`<ߖaiaߢaeJ-ZD`F_^aiaߢaiesEau\`Mߗ\D`TߘaiaߢaeJ-ZD`^_laiaߢaiesEau\`eߟ\ewEau\`lߠ\evEau\`sߡ\eJ-ZLMeuEa ekEeU~,,etEaNekEaOekEeU~P,esEau\evߝ\,esEamverEamkMeeqEaQepEaRe{RmoMau\}]-`a\]SenEaTegEaUemEaVelEaWeJ-ZekEeU~P-BXSY- verify(2) DE => depress user questions(3) TA => use tape subchannel defs(4) UD => get user subchannel defs(4) LU => LU SAVE/RSTR/COPY (4) UN => UNIT (full vol) SAVE/RSTR/COPY(4) PB => pushbutton unit image SAVE/RSTR (4) MU => save of mulitple LUs(4) SE => selectivly restore LUsThe numbers in ()'s represent catagories andonly one out of each catagory can be used.No options accepted. (use '??' for help)Enter title Title parameter ignored with PB optionEnter hard copy LUIllegal hard copy LU:_Non-interactive input device must be only parameter Disk LU can not be in run string for this option. File # must not be in run string for this optiondDeDfDgDhDitttdhdtj-tttkttdl dm dtn-tt2e2dTdtoWt^d-rdt_dt`2eCdd_ttT^-J-W-eMdTp-Td-Sq-Vkt-aoT^-[-`d-_q-a-oegdRjrTR-k-lsd-rkt-|d4-|ttt-tdtǚEjd-udvtd-~d-rTw\ 0--tDt-xhy--otxhz--xt{T--xhz-~xh|-~dl-dm--~dl dtS+edSe~ef*gSgvggh&iTj}tDebjddjrtS~d.d^.d-ktT^-.%k4T-fjdр..%T.%T.%.rglTrktdT-~kt-~f)bkd-~dotS.@tDf?b(jddj.ItDfIb4jddj멈t.T2fSdTdad`d_tD_td.[.aAf`dadd.ctd.otT.l.nkt.dtoWt^oTS.x.d^.MT^..rDt.Wh"|d^.d..MT^./ dTtdXtTdtXT..d@rt.dT/Ek-dT./.k4T-fjdр..T.T.Ed./dtoTS..dglT.dglXdglTdTt.Mdd-dSlEdj.驃dSmkoTS..d.d@-~fb,,Հn+ 0AMPMEvE .J~DnSn:nnfn6?HnfnBF>.anAff<~vfF;vnN=fC N@ NN`@ nv` nvn NۈnFQFF n N̈nn~fD>D>.E nF@6 0 : dnn12:01 PM MON., 29 DEC., 1975nFRI.SAT.SUN.MON.TUE.WED.THU.nMAR.APR.MAY JUNEJULYAUG.SEPTOCT.NOV.DEC.JAN.FEB.uoG /v-o,np: /p=vopZnp?p>p=@   n // h*n h$h*ot8dR 8dHD9!,6dR!"dND9t8dS#h(8dMD9t8dR#8dLD9$dKD9%dJD9 dID9&dHD9'HdGD9(,6)* l? <vbXLIDInt|it-[qHqpqqqq-U,qMqqeue-[eu-[,qYqquAdE-ieueu-qeEueEuAeE-eAeE-eAeE-eeBI?? ppqk@E׃ԀE׀qkH Ԁu ԀEE-e׭?evqfv V-vvqrrr rrr- >->  r vkN$Ԁ%Ԁ&%Հr&>&&r-n-fv >.9f.6v./@v/0H 1f-ngn-N~-~n~>-f- g>.V f3g^/1.av~N.0~~~~^/gվ0V.mvVV>V.V.VV~f fvFv~^/.վ0V..}~/n^ήgn^.rn~V.FaFa.^.n^fgn6~NN~nf^.~n^.>5!ߠ&.5! Bb-+0 ,: >f.w >u7W/gw  ? ? .co s sƋs sucG5_6/,_7/, g4??879oAs:g9a ?s@sKsZsJWJ/D/GU/IgTUVsU/; P G S W/dwg/xgwwGGo??/nVs{s//gw/w/sssssg/w//W/@sssgGg/w˚6ssssg/gw//W//swgįsgw/_+@CCT!6s[ s7877 9 P, P, P,tԘtu\ttuWte\,:#L}]uYEVuX\t(u\u]te\,,/=]uYt4u\te\,eX,E:eYT,AeVuX,,=YeXDuXT,9, AT,9eX ,ZD;,_,9D;,YdmX }[u_l}[tmXL}[u^<T,,9m^>,}ddd: ><mZ !t ` $  }Zm[ !`  }[t<,,< . ttuuab -d-t}uq -`udԂsuŃԂwuƃԂvuǃԂtueue-EUd-uĚ|uuuuuue-|uuuduuueEucbub-}eceEuš|uuuduaueudeec-ec-uu-U-uvuuvuf-f -f -ee˭v5N v5N ! ""v?5Fp v?"v@A5N@ BCvNOPviO5FNR5NQ viSvj>jvfvj>jvfV.>jAF>jfjn@.n.n.n@~n~>!vfƹFv.fvf~.>vFv>>.>ȊPF F@..vv>v>~> @΀ϮvA@v愁>~ / fv焁/>..n f ./G/wABPwDwCgAC'A/5'AGA/6@OB/9'A???gDAAgAoBw@Lg/OwE?E'MN/^w@/ gw/w gwwg@ O?/w~?~Ew~wwgP O/Pog ow wo ow`o ww/ogw/wg5/7wwwgOgOg@G O Q/G OOo/ogN/AwLgE gw/o ?/NgQ //MA/!tI|JtL`tMtKdIK<LJA, te?teCyMy@yM-+ yyVZy`Vyu X@EWuW!eueumMW=-s-}Weu=WM=-o-WM=-oeuXeYyyyuuu׈@ -=U-]- E M-=ֈyډyEe-Žu==׈y- -em m0-y܀!u@ yue!y}m!ye z0yev=.z0z n @v ~ F2.(F3.(F1&4n ^ .+.f/v uz0{ f5v=.>{{z9f5.F;.J; { .S< /g n;_/l @f9]ge[/fhvh< jiR{{~Ri~ .z\^.  ..h.cc .f9^/hvgpf9^/hVg.iViz\..z\~z\z9:z`{ zf/nf .z\/..g a /_GvbGvdvez{ zbz{ zdv`iVif`.>e.z\..g /{ @! i go~;~<~5:={?O+ )?o @*h*?*?)/  *h/Tm !oG@GoǤwg-/;?-w/j? ?/V?m/@o@ ?--?-/R_om /Io@  -ooo/I/Dn  mooϤR{m@{(( ` OOo/ pg?ppwoo|/{goawo矒bw|oU|@@| oj /(@|Ǣ@R||ϣ R||K|U|~R||/R||o`o cR|@Ǜlêdojefeg , `hkeide|5L2;|9L4|$9 ),*l5<9d5 69< ?to%t5:Drt8L3|pL1|6Ud-*-1}.}G}Fefu<-7}5}T}Feeu<};}a}Kbv`f_`.Ov`vaf_aK`K>KK~tvwcvvfw  >v.m>cc~c>nno.~6w7q9>>>>>>>>>)>?>??>>>?>?>6V>0>7>>?>?>>>L?>?>`>>>><*>>g8888888888;888888888888888888:88?R@EE?FF`F_FaFnFoF]őœE/FsFBE;FEFqF:F?F@FAFFFGFCE>E8FVE9FHŒFrEEŏD@[BKCC@CuCH('HHHHHH%HHHHH3H4&HHHHHHHHHHGGJJ*J>Ji6NK$LPLJL[L]L\LLL-LZLAL2KKKK K "$LkLLNOgPPPOOOOOOOOOPPQ"RST SSSSSSSSSSSSSSSSVXyXXxXXXsXtXwXzXqXXXXWtWwWvWs׊ZZ$ZZ[%[\\\\\\\\\\\[[[[[ۦ[[ۧ[ۤ[y[۩[[۪] ^^_afaeadacabaaa`aaaaaZanߣߕߓߢߙߚߜߛߗ_ߟߠߡ__ߝ________ߦadjjjjjjk$jjjjk1jjjkjCjkjjjkk k jvjjk#k"j5j-jk0k/jkk.jL_k*k)jk(k'k kk&k%jk!dd^dddTde~dSddd_ddddddddddddWddddederdRd`kl~l}llzl{l|llllCFMR3/3438363B3C3>3?3A3@3D333E3F3333333333333lllmmm'm8mn#n,nEnnop9pDpPp^pCpgpfp4pep:pHpIp6pdpcp@pbpApWpapNpKp`p_pMpOp]pYp=p[p/SRC_92084/R5020/COMM.FTN < A DSINF @Ƴ<<X /TPINF/ 92084-16915 Rev.5020 <890331.1009>/SRC_92084/R5020/COMM.FTN < A TPINF @<<X/IPROG/ 92084-16915 Rev.5020 <890331.1009>/SRC_92084/R5020/COMM.FTN < AIPROG @Ӹ;;X}/TALK/92084-16915 Rev.5020 <890331.1009>/SRC_92084/R5020/COMM.FTN ; AfTALK @1#O<<X /OPFLD/ 92084-16915 Rev.5020 <890331.1009>/SRC_92084/R5020/COMM.FTN < AOPFLD @;;Xp/ORDR/92084-16915 Rev.5020 <890331.1009>/SRC_92084/R5020/COMM.FTN ; AvORDR @;Zq=EXT::RTE_6:5:104:60 644 0 0 64000 5310707447 33327 =EXT::RTE_6:5:104:60 $hh<=EXT +#&+#'+#'h3\FST '' >P.182 P92084-16941 REV.2540 850803 850803.0517 '.P.&& S(CAPIT %P92084-16941 REV.2540 850803 850803.0517&@'CAPIT)PAS.1PAS.2P.367PAS.3P.368P.192&&`PZ`@#( `@"( `@$p(`p`&`KZ`(p8p`!p( `D`j! !!'' >CTOI P92084-16941 REV.2540 850803 850803.0517 '@CTOI --#.DAD .DCO .DLD .DMP .DSB .DST .ENTR .LBT PAS.1PAS.2P.367PAS.3P.368P.192-<<`_M y pvh}6~HP((pv~~ (!h}6~HP((!~<;;``~`wA ~(UZh}6~HZ@(Uh}6~H@(Uh}6~; `E(?Hh  ;;`hD{y  { 0y~~(!hv  yyy (h(d(h0yy ;`J~l(r(r6y`zpx`x`My` }pw( 0 `D`+- '' L:TILT P92084-16941 REV.2540 850803 850803.0517 '@TILT )PAS.1PAS.2P.367PAS.3P.368P.192`BI(`A(D('' h6SUDDE P92084-16941 REV.2540 850803 850803.0517 '@SUDDE)PAS.1PAS.2P.367PAS.3P.368P.192`BH(`A(D(&& MEPANIC BP92084-16941 REV.2540 850803 850803.0517&@!PANIC& v@PAS.1PAS.2P.367PAS.3P.368P.034 P.192REIO SUDDE`R`Ap# ($-)*$+(,&&&`[6'('(Ext: (99) Can't access the error file! c&''&& kdTELL_ ZP92084-16941 REV.2540 850803 850803.0517&@?TELL_Or.LBT PAS.1PAS.2P.367PAS.3P.368P.192P.127<<`bQRp(`YA @(('Zh*6@(HPX('h*6@(Hp)#)<`Fٚ"4ZR`(p((+::`Y,Z`+(-p*8+(`PS(?PT(BPU(EPV(HPW(K(N+(N+(N:`JKE+(N+@(N+h(NO`J)mP(3  PPP'' pANNOU \P92084-16941 REV.2540 850803 850803.0517 '@$ANNOU=ݚPAS.1PAS.2P.367PAS.3P.368P.192P.133TELL_<<```PW( PX(PY(PZ($P[(,(4$C??@(4FA&A@(4#J<..`]Vb $??@(44+MBB6@(43$PAA@(4;TB&PB@=.))`^>( input output error find ignore file )>>'' c7EXPLA P92084-16941 REV.2540 850803 850803.0517 '@ EXPLA{¦ANNOUPAS.1PAS.2P.367PAS.3P.368P.192P.133<<`Z`yP(hP(`P(XP(PP(HP(@P(8P(0P((P( P((p <<<`ff(w'$(w4/6(w7$(w?&(w<`A@;;`f@OA4G6(wO$(wW&(w_(wg$;`Rg(wo$(w4w2{<<`h|Z`{(}pz8{zpy(  Corrupt Can't findIllegal access on Already <<<`noopenAccess past bound ofCartridge locked forDirectory too full forIllegal LU forCan't find d< `D8isc for 00`dDisc too full for LU doesn't exist forFmp error on0&& UERROR P92084-16941 REV.2540 850803 850803.0517&@*ERRORe** CANNOUEXPLAPAS.1 PAS.2P.367PAS.3P.368P.192P.127 P.129 P.125 P.133 TILT *::`c`cp' '$voop 4'cp 4'zqq6p`cP(P($(, "'${rrp:::`c#(Z +'$ssp(Z`c(2c(ZP`A@c(Z A'ttp F''p:00`]F K'up P''p U'up Z''p _'upP 'e0<<`h\HfZ`e(gpd8edpc(>.Ext: ( ) Wrong file type for Size Ext up, or us<++``e fewer entries in your find or ignore filesRuntime error c+'' ([`g(=ppfZh6@fH phZ6p@fH` 8f8(): `EY=([`g <<`_ BZ(Zppfh6@fH ph6p@fH` 8f8(F([`ipic i< `EɅa&jpg( `H6(Pj''-'' FP.357 P92084-16941 REV.2540 850803 850803.0517 '@P.357m$$ '.LBT PAS.1PAS.2P.367PAS.3P.368P.192P.127 P.125 P.133 TILT $`Q%`(  oop( 4p<<`` Z`(p8p(nuZll`(#(ip ,$wqqphv6pkk`<<<`b4@(Mpk`pj A$rrphv6@jHpll8j8k(: Ts$spA<""`TV@„(a at0p fu2p m"))`]n(Ps.Ext: (1) Didn't recognize , option )nn'' G:P.358 >P92084-16941 REV.2540 850803 850803.0517 '@P.358& ZDPAS.1PAS.2P.367PAS.3P.368P.034 P.192REIO TILT `R`=p# ($-)*$+(,&!!`W'( (Ext: (99) Can't read from LU 1!c!''&& ]SCROL tP92084-16941 REV.2540 850803 850803.0517&@1SCROLX--ǭ.LBT P.358PAS.1 PAS.2P.367PAS.3P.368P.192P.072 P.127 P.125 P.133REIO TILT -<<`cK[Z 'p'`'p'`'(V`'P'((V ''d$ZZ['b\\[%'b\<22`a[#&X\[ '$-]^W_ 3'`0[ 8'`0[?'c$\\[ 'ha6 2++`S@DPo(OPp(QPq(OPr(OPs(O(T(Vp'(Vp'X+&&`[SY(AWAJMore...('a' to abort)  Aa&YY'' \BUILD P92084-16941 REV.2540 850803 850803.0517 '@#BUILD<<$.CBT .DAD .DCO .DLD .DST .ENTR.LBPR.LBT .LPXR.MBT .SBT CAPITINSR2PAS.1 PAS.2P.367 PAS.3P.368 P.022< jP.136P.034P.028 UP.060P.192P.187 ;;`c a/H6ЀMp`rA@()MHxJH$JP(()M ;<<`a#xJM`J(MPr(/(GMHxJ;$HJP(>(GM xJ< `CgD6M`J `AGN::`^)OZ`N(PpMZ8N(p`rAZ(h/ڂ(P(h(kp(pt:;;`cmN`rA @t(zp($/Xps/4 `A@sZ(`r; `C1A@t <<`eAP(@tp$P(@tp$6P(@tp$<++`UB6phZ6p@sH``sps`tpt(`͠+;;`dkҶ`p(Vt/@B6h(66`(6 (((p ( @6;))`Wh(66`(6 ( ( p ( p ` )<<`d0(.&P/(q/xy/yr(p`pypth<;;`g;A6@tHpz wZ{@tp}X{}$z8t8y(@wuduw;`A+h(k`IWi(p(pp&(.`QH()  Ҁ4w/`HcS *,'' nkHANDL MP92084-16941 REV.2540 850803 850803.0517 '@"HANDL=** .ENTR .LBPR BAD_FBUILDERRORILLEGPAS.1 PAS.2P.367 PAS.3P.368P.192P.219 *<<`c <(LPK( <X(L( 4Z<(Lp99(8  <(PP+ʀ+0>>'' sENAMEL &P92084-16941 REV.2540 850803 850803.0517 '@'NAMEL?.LBT PAS.1PAS.2P.367PAS.3P.368P.19222`W@`%p`( (h6@HP$((@p(`p`2`GZ`(p8(`B`$ P$$'' qWRITE QP92084-16941 REV.2540 850803 850803.0517 '@%WRITE8 V9.LBT NAMELPAS.1PAS.2P.367PAS.3P.368P.192P.133 <<`ep|6p5h66Z@P(*h66@O(* JF&FG $6H5G 4$LII4G7<""`P%@5@N@M7(4 16H&5G7@578",,`Xe9Z`8(:p688`8(@p788(PLU 's,99&& W%MAYBE )P92084-16941 REV.2540 850803 850803.0517&@+MAYBEӚPAS.1PAS.2P.367PAS.3P.368P.192P.127SCROL%%`TK@p`A@($Z'(%&&`Q Z`(p8`(p8p(*&'' OUTPU P92084-16941 REV.2540 850803 850803.0517 '@9(OUTPU'' BMAYBENAMELPAS.1 PAS.2P.367 PAS.3P.368 P.192P.109P.133 SCROLWRITE'<<`d5 /&`pp/p`r(*/@@po&po /$/@p '/ <::``>$$`p@opp`rq(;p 8/`p@pp`q(Y/h@pop:<<`h^D0o L/$/h0p V/$`p@oppp&_s f/$ 4m/s< `CTLl2 <<`b`Z`(p8`(p8prpq(  * From finding <`U entries and ignoring entries on ''(( ~INIT_ \P92084-16941 REV.2540 850803 850803.0517 '@2INIT_B66.CBT .LBT BAD_FP.357ERRORHANDLILLEGOUTPUPAS.1PAS.2 P.367 PAS.3 P.368 P.218P.034P.192P.2196 P.220SHOW_TILT <<`f`Xp;hL6(E&DE;F0GEH$EFhM6`L6F(!((((($EDE<77`bA7&;F0;$EFLGG;/(@=;EE&NI+J(HH;E$FLI+7<<`e$HOEHE&FhM6`O6F(YJ([([ `Yp;dEH$EFhM6`P6F(p(m<<<`d(mpQ`Zp;yEHE&FhM6`S6F((Tp;hO6P[((J(<`B<<`d;EFOK+;/(J`Wp;EHE&FhM6`V6F(((E D<66``4E;F`;(;E$FVK+(Ά;EF&VK+;/(J6<<`f$EDEFhM6`V6"F((p;E$HEFhMB6`P6F((p<//`[$EHEFhM6`S6"F( ( p`0(p;B/**`YC(1P ;&D;;@Z;@;h;h;0*CC'' rCOPYS eP92084-16941 REV.2540 850803 850803.0517 '@©SV'' 4.DLD .DST .ENTR .SBT PAS.1PAS.2P.367PAS.3P.368P.136 P.192P.127 '<<`aL^`M((H`N @dpK#O`M Z(HpQpI`L(1`K@I@d<;;`b!@dpR *a$OR``pR 0#Rb(E`K@I@d@dpR =aO$R``hc6pR@IH;`BC`R  `DXdE8I8Q(V `N W SSpNTpMUpL(#WW&& Z GET_R P92084-16941 REV.2540 850803 850803.0517&@.GET_R--B.DAD .DIV .DST .LBPR IFBRKPAS.1 PAS.2P.367 PAS.3P.368 P.009P.192P.187TILT -<<`a<)`/(p/Ҵ (`/φA@P(p/(  /p/҆ -鶀P(-P<77`Wz!(0P(3P(6P(9P(M LF`kpE(`Epi &>M`iM#-`A`kkk'' eOK_TO -P92084-16941 REV.2540 850803 850803.0517 '@=OK_TO%.DLD IN_TRPAS.1PAS.2P.367PAS.3P.368P.192;;`_ # (p#(  P#p## Z(p"(#p"`#(`" +(; `COp$`$% `C9&`,p$( `B`p+++'' sPRE_R BP92084-16941 REV.2540 850803 850803.0517 '@'PRE_R1PAS.1PAS.2P.367PAS.3P.368P.192P.133;;`\[`P<((0`( 334`>Zp`(0`ҶP=(%P?(P@(%PA(;''`U(-$6$554(-4,95564(-`@?pà1'`PH2(ext: ent:  22'' @,P.361 /P92084-16941 REV.2540 850803 850803.0517 '@P.361! APAS.1PAS.2P.367PAS.3P.368P.192P.133 ROOM_SCROL;;`^|c`#((`#@p#+( #,,-`#ö@.p#(`#p#ö`#P#((;`A!`MW,"Z`!(#p 8! p(""'' AIP.362 LP92084-16941 REV.2540 850803 850803.0517 '@P.362=!! PAS.1PAS.2P.367PAS.3P.368P.192P.127 P.133 ROOM_SCROL!<<``[`#((8`: @#p#`: Z@Kp9`9((1`9@J@Kp;;(1<11`Yl  %#G9 ,#H&HI`#@9@Jp#(3`#p#`#öP#(7(8=1`NX>Z`=(?p<8=>&& "YP.363 |P92084-16941 REV.2540 850803 850803.0517&@P.363m<<re.DAD .DLD .DST .LBPR.LPXR.MPY .SBT OK_TOPAS.1 PAS.2 P.367 PAS.3 P.368 P.136P.034P.192P.133P.361PRE_R<qSCROL<<`h7b$ pop70qbddrzZ(Vphpat0di@aBy@i<<<`b(f`{pkp`@`pl$8vflr4Prhx6pl@`H`l8` 8k(.(Sfxk<`BJQ##`T L7kwwpw8a8h(PA@7Ä(_m#`Nn( 7nn'' CP.364 P92084-16941 REV.2540 850803 850803.0517 '@P.364~66].DAD .DLD .DST .LBPR.LPXRCOPYSOK_TOPAS.1 PAS.2 P.367 PAS.3 P.368 P.034P.192P.362PRE_RSCROL6<<`cnM7t`prtvvZ(cp|ps`rpr`rpq@qh <<<`cE?#0vxx(pp6xpo`@p@opn<$7`qp}D$}o@r<`BmFh<<`dH v0Xz(\`qp}Z$}oo`r@n@pr8s8|(A @7Ä(l<`A+l~`JJ( ?&& $/P.365 RP92084-16941 REV.2540 850803 850803.0517&@P.365J00.DAD .DLD .DST .LBPR .LPXRPAS.1 PAS.2P.367 PAS.3P.368 P.192P.133P.361PRE_RSCROL0;;`hCi/@0@BB6LQ(5pFp?N B"G@? B@ GBD D;((`W#(xI0/I$PPMP8?8F(A@/Ä(>J(`G(K(KK'' EeP.366 hP92084-16941 REV.2540 850803 850803.0517 '@P.366_00:.DAD .DLD .DST .LBPR.LPXRCOPYSPAS.1 PAS.2P.367 PAS.3 P.368 P.192P.362PRE_RSCROL0<<`b3W`cpUWYYaeZ(Gp]pV`UpU`U@cpT@Th <;;`a̯" Y[4Z[(fpS[fpR`d@S@RpQ`Tp^>$^RbR`U@Q@g; `B0CpU8V `LE8](A @3(((P_`H)`(?``&& ,EXT P92084-16941 REV.2540 850803 850803.0517&@EXT (PAS.1PAS.2P.367{PAS.3P.368P.10200EXEC GET_R INITI INIT_ INTER P.018P.028P.255P.035P.097P.192P.115 P.139P.365P.3630%MP.359P.366P.364P.360PRTN <<`kې(-5$=$c0E$2HG   "(Qp(x `<<<`\BSP(`P(jP(tP(eP(oP(v(x`Y(d(x`Y(i(x`X(n(x< `Co`X(s <<`jπrX(x(xX(x`(J$$c$$B$$c$<66`hN|0 P7RCCTLNOCCTL INPUT OUTPUTERRFILZE 7K6 `Fh )(=FLAG::RTE_6:5:111:60 644 0 0 67400 5310707451 33040 =FLAG::RTE_6:5:111:60 $oo<=FLAG +#(+#)+#)o7/X]$FST && P.182 92084-16942 REV.2540 850803 850803.0524&.P.&& RDISPL %92084-16942 REV.2540 850803 850803.0524&@$x3 B (3#P@6h+6;`CqP<<`hXS#B6`+6 ((a(0B$Ѐ  (m({%4z(<<<`hw{&6Xx30(p,&`(14X(<`C701<<`e4x1(2P((p(((͆7 <<<`ck˴(6(((&(6(?PP((p((< `Dl ( ))`Y!oD(۶(((6((' );;`hd( 3R3& S3& T3$E3T;88`fEL3"TS3$T$X6P[33H(3X h„X8<<`b;kXp`(3H(3Z &|Zp(l`(p3 (p3 P3H(<::`de33b &bPp`(p3((:`H (p3 ( $::`i9 ń(.&Ĩ ,ZAza_90U`fP33:&& lUMARK_ 92084-16942 REV.2540 850803 850803.0524&@?MARK_664.DAD .DCO .DDE .DIS .DLD .DSBR .DST .SBT CLEARPAS.1PAS.2P.367P.027P.032P.192P.012P.1196<<`h` (0zx  (((=x  2  (5((5|0vzv<<<`e((}Hxh6BH`  v |(!zJx (lz~BA ~B(N  (h(O<`BQM(h ::`d{O|~0vv"Hxh6H`  6v(e |(UPp (r:..`_boz0Bx(ov.'' `COMPA 92084-16942 REV.2540 850803 850803.0524 '@bCOMPA<<l:.CBT .DCO .DIN .DIS .DLD .DST .LBP .LPX .MBT MARK_PAS.1PAS.2P.367P.136P.014P.027P.032P.192P.012<:tP.119\P.127P.128P.125P.133<<`h @6h6"P 6`6Z((?(?  x <<<`gU(6` ` B(q  0HxT<<<`gO$ҶP([   6X(?  $p(>`(>`<77`bF[v("x xi&i&`( 7;;`aF(((ii( (((i0i6(;55`]^ (((i0i6X( 6(((6i5::`hֆiװ(i0i B  0:<<`gǒHx$P( 0  ("xX x4'i<<<`gl%&.i$x<i$i(P @6h6@<::`gL0@ 6`6(r(r  (d(q0B &q(:<<`hS s@ @B6h6 6`6"((( 0 ((<`O (<<`mÄ(¨d> d'< `Gk >> '' e9SEARC [92084-16942 REV.2540 850803 850803.0524 '@SEARCF'' .DLD .DST .LPX COMPAPAS.1PAS.2P.367P.014 P.024 P.027 P.032 P.192';;`fc OZ ((6CB OX0BC QxE;**`Z&B Q`E 2W&SU5( ;YS4V(KF?*`TG <F( &<FF  ЀCGG&& HCLEAR \92084-16942 REV.2540 850803 850803.0524&@CLEARG$$ K9.DLD .DST .LPX PAS.1PAS.2P.367P.014P.027 P.032 P.192P.119 $<<`kB0V ( (BVDGDB"XBZ < `TW+(-(:BZDG:D(R F> `TXH ;G FB( ;GG  HH&& XPRT_F 92084-16942 REV.2540 850803 850803.0524&@+PRT_F99.DIN .DIS .DLD .DST .LBP .LPX PAS.1PAS.2P.367P.136 P.014 P.027 P.032P.192P.012P.119P.129P.12594uP.133<<`j  0 ( (  ߆  4P( <<<`j* 0B Hx C$P(J6(.  < `DT4A <<`hlX @(b (y  4 A@X(u0(y0i <<<`ix  xii&$Xx0B  x<`B;;`hii  "݂   Z ((ц  0B ߤ(;`C$<<`m (  >> d<&& fKPRT_T s92084-16942 REV.2540 850803 850803.0524&@9 PRT_T[000.DLD .DST .LBP .LPX PAS.1PAS.2P.367P.014 P.027 P.032 P.192P.119 P.129 P.125P.1330<<`j+U 0j ( (((U jW[WU xY&Y$llmU <;;`hJ*nxY 2YpU 0q (@(MU qW[MW(f ZQ;""`W\ N[ ZU( N[[  "\\&& E#CLONE b92084-16942 REV.2540 850803 850803.0524&@CLONEN** b.DLD .DST .LBP .LPX .MBT PAS.1PAS.2P.367P.014 P.027 P.032 P.060 P.192*<<`i _WY @6ha6 "ZC P6`a6J Z [xMC <&&`W$)6[`MC ]xMM2C(S$N?&`SO <N( &<NN  CEOO&& \vTOKEN 92084-16942 REV.2540 850803 850803.0524&@/)TOKEN<<.DCO .DDE .DIN .DLD .DST .LBT .LPX CLONEINITZPAS.1 PAS.2P.367P.022P.006P.009P.014P.024P.027P.032<0{P.060nP.192P.012P.011SEARC<<`f   $'p'+x'X+' '('('<;;`bgy&(^'"/Hxh@6H Zp!(^`X ,H@X(^0 (J;<<`a3HX(J('$Z2Hxh6H p!( ` ,H@(`(k<<<`g9iXk'$Z9Hxh6H "9p'909Hx$<`Bf0<<`e"p ('('KHXxh6H XKpB'K<99`cKHx$p 2' '' '(((^(]9;;`cfڰ'SHxh6H  p!(` ,ZH@X('T;<<`f7p (('W€'$p'\Hxh6H <`Aad#<<`bC$Zp!(]`X ,H@X(]']Hxh6H  p!(P` <<<`_%Fʀ,H@ڐ(P(^(\J' 'Z' '(\(\(^(('`X(t' <22`a)e'i0J'tv (|( '($288`fN(& ' Xjڀ''''8&& 'SCAN 92084-16942 REV.2540 850803 850803.0524&@SCAN g<<1.DAD .DCO .DDE .DIN .DIS .DLD .DSB .DSBR.DST .LBT .LPX .SBT FTIMEPAS.1 PAS.2P.367 P.006P.009P.014< oP.028P.027P.032  zP.192P.012P.011P.128P.125P.133PRT_FREADSTOKEN;;`dPp\pZXpY`+ (B4+ipp0q+6+i+rr2q+i#+ippq;66`cs$B+suwXxb+yxc4>+ic{b2q+i+iP +6<<`cX+G ++(`+ 0+ (p[p+ X +$^`+ (S+j|  ~((k<99`c4j(d|^^$Z|Hxh6H"pb^|HZxh6H`b9<<`eq^d(q+j+`+(+B|  ~(((d|^0^|Hx<;;`b<'h6H@(^$Z|Hxh6H@(^$Z|Hxh6H;`AGԠ@<<`a<ՄXpb0^|Hxh6H`b^6d(`+P(P(P((Ah6<<<``IP((++(Ah6P( h6P( (J++(A+| <<<`^Hxh6HP((,+ +(,(&(,+X+(+ +(l(3(l<88`_Pu4X+++|Hxh6HX@(l+|Hxh6H8<<`_oS@(l+|HXxh6H@(l+ +(l(3(3Z+ +((s<77`^r(+|"HxhZ6HP((+X+(+X++7<<``$Z|Hxh6HPX((+ +(((+d+ d(((@<;;``,`+(+|HXxh6HP((+|˶Hxh6HP;;;`anжX((+ 0y|˶Hxh6HP((+ |"Hxh6H;;;``/P((++(@+|жHxh6HP( (@+|H;`AzUx;;`aڟh6HPX((@+ 0y|жHxh6HP(*(@+ |"H;;;`^3Xxh6HP(;(@++(A+ +(H(HB(S ^`+P(P(;<<``ԌQP(T(`Y(x+|"HxhZ6HP(f(x+$Z|Hxh6<<<`_qHP(v(xpY`Z(+|Hxh6HP((pZ(+<`B$|;;`_IHxh6HP((J++p[(`\(+|"Hxh6;::`^iHP((ȖB+|"HxhZ6HP(Ƣ(p\(`Y0Z(`\: `CVϴ(`[ <<`c!Ҳ(+|"Hxh@6HZpb!(<`bX ,H@X(<+|<<<`aHxh6H pc!(<`c ,ZH@X(<+$Z|Hxh6H<`B#<<`dpf!(+ `f ,H@(++^0-^ (3(;^B+ ^(<<<`c}<+|Hxh6Hpb!(`b ʀ,H@ʐ(+|H<`A{_x<<`cJ`h6Hpc!(t `c ,H@(+| Hxh6H<<<``pf!(`f ʀ,H@((p]`](+ +(((+<`A;;`b#$Z|Hxh6Hpb!( `b ,H@(B+|"Hx;;;``Ƣh6Hpc!(ڠ `c ,H@(J++(p](p](; `B(M`\ ;;``X(+$Z|Hxh6HPX((+|HXxh6HP( ;<<``(p\++`Z($+|"!HxhZ6HP("($pZ`Y(M<<<``S(+|#Hxh6HP(6(M+|#Hxh6HP(F(MpY<77`_oHJ++J++Z(A`+ (`+ (^+i+e+i$zzq+7<<`f`guw.xbs+i+&Xbq+i4|+i2q+ju"w/xb+i+lbq+i<33`_4+i2q+ip+ (+i+0+i$zzq+juw3xb3;;`c6+i+lb2q+i++(J`+X(+i4+i2q+ (+i;44`b$q+@suw@xb+@yxc+ic{bq+i(4;;`g6+i+4+i2q+As$XuwAxbB+Ayxc+ic${bq;55`a+i+iP+(H+ (H++$qB+FsuwFxb511`]9B+FyxcF+c${bq+`+ (Q+iZ+i+i(lgU1<<`jFhRg(&Rgg$5d P++j+l<;;`jl++++FLAG/1000 Version 2.3 >> ;<<`n >> >> FLAG/1000 summary: no words flagged in words flagged in flag: no words flagg<((`^^ed in !()*/CEMRabcefmpr{}(&& FLAG 92084-16942 REV.2540 850803 850803.0524&@FLAG (PAS.1PAS.2P.367P.10266f-.DAD .DLD .DST .LBP .LBPR .LPX CLEAREXEC INIT_P.014P.018P.255P.035P.097P.192P.011P.2196P.115P.139SCAN TREE_<<`nZ(-݄5&$=$G0Eh$$M&U$<<<`iV0WY[^q (d(p q` (^ 0 x$ < `Eɀ0_ ;;`i _p` 0Hd P (p (f  ;<<`m(j(&&G$B$&$G$h$$< `E"ڄ  --``.\Od45LOG_FILESOURCEDESTFINDMAGIC #G-)( T.ZPRV<<`]$8hp (x>>8>>pG8>>ApH> `B q@GP?0H!("<<<`_0ZX=AVL2::RTE_6:5:7:60 644 0 0 3400 5310707453 32413 =AVL2::RTE_6:5:7:60 $<=AVL2 +#++#++#+D]FST (('' ;AVL2 P92084-16943 REV.2341 850803 850803.0515 'VAV&& =INSR2 P92084-16943 REV.2341 850803 850803.0515&@UINSR2--.DAD .DLD .DST .ENTR.LBP .LBPR.LPX .LPXR P.014 P.027 P.032 P.030 P.192P.120-<<`j˪ 9** *ȠBx, , *x, ,*6x,*4,-<<<`l.8-(B KȂ|0B| Mʂ~0@ Mx~~<22`bDZ0B| Nʰx~ XP0@| Qx0|2<<`m(0ۂ `0BԆ b0Bֆ bx0ۂ<22`bH0B cȰx؆ Xe0@ fx0ب2<<`hIg݆(  (p-(p€$p0@ u<;;`c `( B(K $X(J6P("P϶(;P(B(G & ; `Clo(z ;;`b+P(.(7 &7:(Jp(J(Jhі (`;<<`b[M(Y$X(6P(eP϶(jP(q("(6`< `D̟op(  ;;`gCs0@ X(04X(h (x; `E/( ''`W= 0`жp(`p &`̨' `Ec5 =FPORT::RTE_6:5:65:60 644 0 0 40400 5310707455 33512 =FPORT::RTE_6:5:65:60 $AA<=FPORT +#-+#-+#-A j ]FST  %FPORT Z92084-16944 REV.2341 830805 ;;@LFPORT.NFOP.NFCL.NFIN.FFOP.FFCL.FFIN.FFCN.DNOP.DNCL.DNIN.DNCN.DSOP.DSCL; @.DSIN.DSCN <<.DAD ".DSBR+.DMP .DDI .DCO !.EIO..IIO..DTA.EXEC .CPM .FION.SBST .SCO .SST .LBT .SBT .NFEX .MBT .CBT <oCLOSE%RWNDF-T_CLOT_RWNT_EWR'EWRIT,MARKR<<0EREAD*T_EREIFBRK(OPEN ECREAELOCF)GTNAM&NJECTUPSHFREADF$PURGEWRITF#LOCF CREATT_OPEOPENFT_IF_NAMR ABREG<$$`ZAMP1000 FPORT **{{{}}}**[[[]]]**<<<>>>**((()))******$`PY`pZ`pp`'p <<`n2(" Usage: ru,fport -{e|i}[fm] tmap [tfile]") (3A2,": open error ",I4)(3A2,": read error ",I<<<`ntM4)(3A2,": data error ",I4)(3A2,": create error ",I4)(3A2,": write error ",I4) (" Transport f< `D){ile open <<`n| error ",I4)(" Export/transport file read error ",I4) (" Transport/import file write error "<<<`n,I4)(" Transport file read error ",I4)(" Transport file create error ",I4)(" Invalid transpo< `DƓrt file. <<`n ")(" Cannot export/import UNIX file ")(" Purging old ",3A2) (" Export file ",3A2," too large<`Aw ");;`c74駱$p̶`p`@ Z88(p;::`c $p$p$Z(`°hJ` (P`(:;;`]hMp`p`@ش hH88(h P((h`ӄX h P(Wh ;;;`c P( (Lh`фZ `hϖ `p`p  ($Xp $ ; `ET,(2 ;;`ba10(Fh P(<(ܰ(F 2 Z 88((W(W`h$S;<<`] SZ` ($](`p`p`p`p`p`p`p`p`<`B(p(t<<`^r`p`(y`p$(`p(`p`p`p&((G<,,`[&`p`pph@0( ,<<``}p`P(K$`(`pO&`h"(( A( AK<**`X$4Z`(W$( ]`((`h널* `E`@p `Drp`p `Dr88( ;;`c )J` _$6`p`P( ( 3c $4Z`( `°h ;<<`d P` (jg "$`( 2`h넘t .2` (j( @`h t<`A8 7 <<`ee 80 <` (j( ]K$ I&`( Y`ht0 U` (jW ]$<;;`cg ]k e1$4 ( jp`h ( tPph PZ( `;`B h`C $  `E `@p `D p`p `Dĵ 88( <<``À J` _$ 16`p`( -`h( ( ( hϖ P( ( `°h<`C. $6  `E `@p `DB p`p `D 88( ''`W> ”J` (jo 1$`( `h$Z ' `E ݶ`@p `De p`p `D[ 88( ((`X P` (jk 1$`( `h널6 ( `E `@p `D p`p `DŤ 88(  `NKv P` (j( -`h널6 ) `E( `@p `D p`p `D "88(  ;;`d &P` (j`h"( 5( J( Js @1$4`'h@p( ;<<`d Jw Q&`( a`h0 ]` (j{ f$P( s`h o< `C{ n` <<`d= q (jw z$`( `h$ J` (j{ ˶P( ( <<<`f 0(  Ɉ!( ( 0"ɉ`p`p( ಀh P<`A= ( `Oے  14Z`( `°hg  `E ϶`@p `DT p`p `D< Ԣ88( 22`] ؆P` (j( sh P(jk 1$`( `h널6 2 `E `@p `D} p`p `DǏ 88( ''`W* P` (j 1$`( -`h$B )' `E( `@p `D p`p `D "88(  <<`ceS &P`Z (jP( 1( 6 51( #( ;Z( `@p$ B F& N<`QR I$P( `( l`hN$ h `Ei ^`@p `D Zp`p `DW c88( ^ ;;`^g gJ` (j`( z`h넘 vZ` (j`p`p`pѶ`p`p`;;;`eu| pԈމk$ &ƠZ( p`˰h( P( `; `CQ h `Bl $  `E `@p `D4 p`p `D 88( ;;`cDT J` _$ 6`p`( `h( ( ( c$ $`;`G ߶( `hZ$  `E `@p `Dj p`p `Dm 88( &&`VD P` (j( _ $Ҷ( `h6$ & `E `@p `D p`p `Dɲ 88( <<`b P` (j(  "&( `hӄZ( +( (  1&`( A`h<++`Zs 8& =Z` (jk$ I1&`( f`h6 b+ `Ea V`@p `D Rp`p `DC [88( V 00`]^G _P` (j m1$`hX 0( `h널B 0 `E `@p `D |p`p `Dʖ 88( ;;`c7 P` (j $`PZ( `( f`°h P` (jk 1;`N $`( `h널6  `E `@p `D: p`p `D â88( //`\T džP` (j (j 1$`( `h$B / `E `@p `Db p`p `Db 88( <<`d4 P`Z (jP(\( ( ΢`@p & 4 $P<`JI Z( `( 0`°hN , `E- "`@p `D p`p `D '88( " <<`atv +J` (j`p`p`p`p`pҴ`pԈ `@h@`<**`Xl Lh( S( ( k [$Ң`( x`h널6 t* `Er h`@p `D dp`p `Db m88( h 44`a* qP` (j $$ن!( ( ( `h$ 4 `E `@p(( `D p`p `D̽ 88( <<`d J` (j 4Z`@p$  $`˰h( ( ( k  <`M[ $`(D`h$6  `E Զ`@p `DK p`p `D8 ٢88( <<`e7% ݆P` (j(<k $4Z`(<c$ $`(`hZ$< `E`@p `D|p`p `D͛ 88( **`YыP` (j(<k$4Z`(<`°h68* `E6,`@p `D(p`p `D188(, <<`cl5P` (j pǤG(jp`(Xp`@ Z88(P<<<`cX`h(`(h(hwg$ȴ(oo$`hX 0(`h<<<`d#Z{$ŔJ` (jP(J`hфP(p{$PP(È <<<`f 0(  Ɉ0!(("ɉ6`p`p(J`p< `B Ŵ`h <<`c?DŽZ(((PhX 0hX 0(hȂ@!((`Ġpƈމ<<<``(hȂ@+ É(&(( `Ǣ@P((މ`Ƕp(( `@@< `B @p <<`` Z(`@pǢ`((*`˰h(($($#$(*$*ƴ`P<,,`Zm,hXP 0(J Z0(D`(D`h$F,<<``ԨFZ` (j`˰h(R(W(WV6([[6( `h"(d(j(jj<99`bf$$n1`hӄZ(v((WzO~($`9..`[6h(((W4O($.<<`gj]-i-eM F   `  $<`Tr} MFIE-$ T_FMP @T_FMPT_IF_T_OPET_RWNT_ERE)T_EWR7T_CLOG'' .ENTRCLOSE CTD_C EWRIT CTD_W EREADCTD_RRWNDFCTD_XOPENFCTD_OIS_CT'<<`bp(Q`p(QB `p(W`p`p `p <<<``h;#(j$`)p`$p `%p (x3`7p`3p `4p `5p&`6< `C9Cp'( <<`b/FE`Gp`Ep `Fp ( Tp`(`_ (hh $<::`c"h(V`(rq (vv Z(V`($ &'6((# $ &'(:99`a@Z(V`('$ &'(+ $Z&'(V`(/ 6 (3 " (V9 GTNAM !@"GTNAM)\\.ENTR.EXIT.SBST.SCO .LBT .CBT NAMR `J` ;;`br##4Z#x @$p@&pp!`p`!@ `!@ `!@ ;<<`bSE8!8(9'(p" U&$%""([()`&P &  P0(k< `Cng( ;;`]Mj(Z q$&ڀ%"p!`P (`PZ({(p!`p`!@h!H8!;<<`_Z8(p( $%""('(Zh PP((p p` p!`p<`C$!;;`bc2!(((p !!(Z((p8!8(` hP (;<<`\˶((` (ҴZ(((Z`(` (۶((`(Z((p`p`@< `DVhH ''`R 88(`p`p`@ 88((Z'))`Zw -ef F ` $--#) ]UPSHF @.UPSHF.ENTR.CPM .EXIT.SBST.SCO .SST .LBT .SBT <<`hBxpZ(p(('('&B2<<<`g&;*Z(M(M@p(;Xp$(I(<`C›Q2;;`h9T&(Xp2P(~2&XhB@h;`H|288(""`TX z a -  `" MARKR -@1MARKRN.ENTR<<``Z"@p,P@p+p p('p*`@,hH+(#p`<`Eæ#88*((!## NJECT d@'NJECT!*.ENTR.EXIT.SBST.SCO .SST <<`g|Bx_pZ(+p[X^X`(('('X^&BX2b8<<<`dBg)P8[(p p(VpZX^2Xb(@(P(P`(OX^2X`<`BMp`IO(Rp8P8Z(4`HrX\, \\ CTDIO ##@0CTDIOIS_CTCTD_OCTD_RCTD_WCTD_CCTD_X CTD_U#'' R.DAD .DCO .ITOI EXEC .ENTR.CPM .EXITABREGPOST_ RELATLURQ LDTYP'<<`n[>severe error channel error not ready <<<`n2 drive or controller fault uninitialized media < `D$` <<`nS<d end of file/end of volume recoverable error/unrecoverable data writ<`R! e protect ;;`b=p(/`p(1`p%@p(<`p;<<`^}`p`p%*(`p`p`pͶ`p`p%*(< `Ca` <<`^p`p`pʹ%(N ` p` p` p%(bB`p`p`<<<``"p%(z@p%@p*5`ZPp`ҨB$<`AQB;;`aCp0hX 0(U`(:Z$ހ($_`(e`;;;`_id(:pl$(`Т(t`Ͷ(:`ܰp$&(`p`; `Bp` <<``wp6(`@ `@ `@ `ʠZ@ `@ `@ `<<<`^]Z@ `@ (:`@(`͢(:`@p`@p`@0<`Bðp::`c?$ۀ&(&`(#ـBh@ ډ`@h`@h:<<`\越`@h(`P((`@h(((:`ǠZ@(`Ӵ(:< `Bi` `J?@p`@p#<<`dt h@  (!(!`ֶ(:`@0p.$ۀ(3`<::`^Z4(LЉ`@ `@h`@h`ȴZ@h(M((:`@: `BR(V` <<`^JTZ(:/&[P(`ǠZ@ (:`ǠZ@(j`ӴZ(:/&oP(`<::`^prZ@ `@ (:`@(`͢(:/6ڀP(`@ `@:`A50<<`^p((:`(:`Т(`Ͷ(`p`ʶp`p <`MY2(@p8((:**`_P  @@ ?* #POST_ I@BPOST_k[.DIN EXEC .ENTRABREG<<`bq@p@`A@@(;`E@@p`D@@pZ`C@@0Hp,G<**`W($B(=1`F(7`A@@ (6(6*`H"mA AA RELAT @2RELATN.ENTR`Oy B@hځp``A`R%CISU6::RTE_6:5:42:128 644 0 0 25000 5310707457 33530 %CISU6::RTE_6:5:42:128 $*<*%CISU6 +#.+#/+#/*]FST ::X_ CISU6 92084-16945 REV.5020 <891024.1859>/SRC_92084/R5020/&CISU6 : FCISU6  kIp@Zy88X *CMCHECK 92084-1X945 REV.5010 880505 /SRC_92084/R5020/&CISU6 8 CMCHECK   &&.ENTR .CBTGETFATHERIDNUMIDNUMBERTOADD IDADDTONAME &88'A p""p""A`'h)((&(p`8j#PRMPT F@sq99XSETCMCPLV 92084-1X945 REV.2340 830718 /SRC_92084/R5020/&CISU6 9}SETCMCPLV kIp@[3y;;X,ACTIONCOMMAND 92084-1X945 REV.5010 880512 /SRC_92084/R5020/&CISU6 ;| ACTIONCOMMAND  .ENTR p2CNHESLWHTEBBMp`* (` p`)p'`@(((!`+p(88'((B t( @S::XMESSCOMMAND 92084-1X945 REV.5010 880509 /SRC_92084/R5020/&CISU6 : CINIT_AND_READ FLAGS INPUT_STRINGS R"MESSCOMMAND  <EXEC.ENTR .XLALUSES LUTRU $STH((AGASBLBRCUDNEQGOITLUOFONPRQUSSSTSZTITOULUPURVSWSFLRS(Q'::Ap` (,`"`p`(3`pp`(yp|`@}(@(u`p`(t!(tKp`(Q`p@pz@@HH{Y!!p{{@zpdpzp{q~z{(t(*88|(:(*H} @=;;X=ACTIONROUTINE 92084-1X945 REV.5010 880512 /SRC_92084/R5020/&CISU6 ; A FLAGS 2ACTIONROUTINE XXd.ENTR .CPMXLUEX .SBST .SST .SSTC .NFEX .MBTSLCOMMAND NAMR FMPRUNPROGRAM TRIMLEN SPLITSTRING MOVEWORDS CNCOMMAND X b љ-EEA-@-p.@p+`<-(?(ED-+1(`:-h9- 0(H$0.p,,;(](]`;p,b-,g$"&jA&p,,&(r(r`&p,~~rGG`:-(v(`,({p, &D2, $ .H(`9-((`,(&,@p, &2,D $ J*` (h!`)A    $1"1(`8-((pp*~TBB-+*-+*`6"p)`71`6P)(P)((ր`p`p-+*`6"p)`h) (`6P)h5X (`)(`p`--p01(`4-((3-.(2-DD))XQRU,WHZAT, 1 RU,HELP, " $ ( * 46 >TE- 8SLWHHECND@Vnu.99X_SLCOMMAND 92084-1X945 REV.2340 830718 /SRC_92084/R5020/&CISU6 9AHHDONSROUTTEMPBUFSK SLCOMMAND == .ENTR .CPM FG.LU LUTRU IFDSC IXGET CAPCK ICAPS EXECSELUR IFBRK OVRD. = m ~~AAA (6p`ъp`(1"p`P(,,݀ /(88((ˀpA0((G(S~~~YG==KpR (ˡU((p` (l dpx`(j(l`pـ(q(`(p Ay0(~P,==( (`p (   ֈ((`  `( P((    ((`  (ˀ`!!b  (` (` (ˈ` (!u084*- ?L3@IN@"@77XƁIFDSC 92084-1X945 REV.2340 830718 /SRC_92084/R5020/&CISU6 7 FIFDSC   u.ENTR XLUEX --[AAp(`P((`p`- 8< @?^99XUtsCNCOMMAND 92084-1X945 REV.5010 880609 /SRC_92084/R5020/&CISU6 9<8PCNCOMMAND JJJ EXEC.ENTR .CPM.SST .SSTC .LBT.SBT.NFEX FMPCLOSE FCONT NAMR FMPOPEN SPLITSTRING MOVEWORDS JFRWEO@TO@FFBFFRBRLE~~~MJJAM@MpLN@p((g(c(cA`gp(V^lM(qVXVvVVXpJ~@MNJ@MNJ`fC(HV\`ehS`dhQD TfZR~~~AAP )OVTPpL`rOpJhSH PeJ(`chS(`qOpJhQ PdJ(ÈH`chQ(O(D`L(B@MNJ`fCpK`@p9`K(`f~;==PK(`9&p9(p(`bpK`(@@aP9(8(8K(∈`pO(D`(@@`p9@MNJ`fCp?`@p>`?( `op>`nP9(( p> )O9>`mO((kkL55AO(D l,<=:(B`k<p;;j(*(*`p9(A`iP;(.(?`h:p:P:hXX: 0(>`p9(A`/p9(`gOH)(Pk??>M&&o 8 HIJ(Nowr? 834?@77XvATCRT 92084-1X945 REV.2340 830718 /SRC_92084/R5020/&CISU6 7 NATCRT  kIp@M 99X~FPRINTERROR92084-1X945 REV.2440 840928 /SRC_92084/R5020/&CISU6 9rPRINTERROR.ENTR PTERR CNUMD CI_FMPREPORTERR jj+33:Ep`Dp`Cp("`A@Bp`AP@('(*`?@p`>P=(/(2`<@p6j9 r  -GRFM@P77Xȯ DOEXIT92084-1X945 REV.2340 830718 /SRC_92084/R5020/&CISU6 7 ՅDOEXIT Epp`@O99XM%ATCOMMAND 92084-1X945 REV.2340 830718 /SRC_92084/R5020/&CISU6 99 ATCOMMAND  :^EXEC.ENTR  A VA No AT command on RTE-6M A @c#99X|FIRSTPROG 92084-1X945 REV.2340 830718 /SRC_92084/R5020/&CISU6 9 FIRSTPROG  << ʅ.CPM.SCO .LBT .SBT .MBT .CBTINTTODECIMALLOGLU IXGET IDGET PNAME PGNTR <t BB p p A((p(pp `@ pr&rp`(p/p4(F(Fhw h} h hy h{ hw (a(W(Wh LLFM%%h} h{ hy `hwH (ah{ h} `hyH `hw Ahu` t`h (n(p(pp `  L..UsCI.0 c.@u|<77X;LOGOFF92084-1X945 REV.2340 830718 /SRC_92084/R5020/&CISU6 7 pLOGOFF |EXECIXGET .XLA$LGOF XX.U++pp :p`9@p//p`8@p//pA 70($`6pA-5444Xr0 LGOFF  @G66Xx9PU6 92084-1X945 REV.2540 850731 /SRC_92084/R5020/&CISU6 6 PU6   22N.ENTR FMPPURGEIXGET FMPCLOSEFMPREAD FMPOPEN CLEARBUFFER OVRD. 2~~AAApp p`P(`p`(`(`>p`?p@pp`(` @~__))pp` @pp`PhX (`p`0pp`p(`p`p`_rqo   @JhLLXp!CPLVCHECK 92084-1X945 REV.5010 871023 !< /SRC_92084/R5020/&CISU6 LeCPLVCHECK  .ENTR `p`@tq1NNX !LOGOFFCLEANUP 92084-1X945 REV.5000 860503 !< /SRC_92084/R5020/&CISU6 NtLOGOFFCLEANUP  Epp`@F::XG GETPROGCPLV 92084-1X945 REV.5000 860504 /SRC_92084/R5020/&CISU6 : GETPROGCPLV  p` p`@.M`<<XD RELEASESESSTERM 92084-1X945 REV.5010 880504 /SRC_92084/R5020/&CISU6 <2RELEASESESSTERM  ly.ENTR .CLRB  Ap@G((%LINKB::RTE_6:5:196:128 644 0 0 142000 5310707460 34522 %LINKB::RTE_6:5:196:128 $h%LINKB +#/+#0+#0a^FST ::Xd!XDOFIL 92084-16946 REV.6000 <921030.1700>/SRC_92084/R6000/&LINK1 : NDOFIL   ++$.ENTR FMPCLOSEWMNAM FMPERXDOMOD NEWNAMECHECKFMPOPEN +~~o}FFNWpINRI`VP(($"NPU( `(.,N`3Np`(.`(@?N(DDTTH~ 7H(, }JREL ros  @N977X՘ZDOMOD 92084-1X946 REV.5010 880529 /SRC_92084/R6000/&LINK1 7//FSYS_INFOSYSLB  RM REC  ERROR_STRINGDEXRECS / s DOMOD  xx.DAD.DSBR .DMP.DDE.ENTR .CPM.EXIT .SSTFATAL_ERROR P1REC CHECKSUMCKREC FMPSETPOSITIONCHEQFMPPOSITION FMPREAD WARNING FMPERX DSCRS INTMSGBREAK CMOVE x@@A6@p5@p4`(=pp J86=Hp ` p D`(f`XP(K(P PW =P (\`@@5p- [= -p h N]==(Hx ` (ep (m l Vp ` (x t 6` p` ` (?P ((p(v(` @p `U h-x`MP((`T h&HOx`~~AA(P hRX (S=`RP((U`QP hPX   0X  0((?(T`Yp h @=AAN (ֈ(`Fp(؈`Dp~tAA ?(m  Ap ` (m`AP (p(v`p@@:Ip.p`.(Sp3`@:Ip`@:p--H(B`@@@F@:p`77@@@G@:ph@=-h@A-: ?p 7c;FF` (m`Yp(?(O`@:(x`@@@E@p883(((`MP X 0(~f  p ` (mA; -h @- (?(`LP}}M<<hFX 0(눈`Ep`FP((`K p.p`.(p2`@:p--DH((݈`E@p882((܊`J p.p`.(p1`G@@:I@}b??p`E@@:p-Ȃ-H((`G@@:(`@HHHEx881((?`Yp  p ` (m(?(` (p(v((?  ("ddo11 (" ("`DPhCX 0(!`(p( p`p(v(?`((p(v,B=(vd776$$ @ l ?*XL7@77XյP1REC 92084-1X946 REV.2440 830520 /SRC_92084/R6000/&LINK1 7,,FSAVE1 SUMCKSUMREC 'HYP #GARYDEXRECS , )P1REC   ``+.ENTR .ARTN WARNING FATAL_ERROR FMPERXFMPWRITELOD1ALOC1 MSEG1 RPL1XEND1 XEXT1 XENT1 XNAM1 EMA1 END1EXT1ENT1NAM1`DDA@pp`@pA/8<k?BEJNkWZ_kbekh`(3(7`p((8(:p(k>(A(k D( ~~F66G`(k Lp(k P` (V`(k(Y(k\P(k(a(d(g(kj(`(`p p@p}~++S-|`(`(+u @ r*@[z66X~ENT192084-1X946 REV.2540 830206 /SRC_92084/R6000/&LINK1 6 Ax)REC | ENT1 DUPEADENT OLDLN ADDSC ~~3 :: p `tp`}pqp `q(npr`|@@s{p`tP($(&p`zP(*(/`ypp(3`#@xp`w@@spp=pp`@sppE~ZZD,,pp`@sppPpp`(\`@spp\vp`(g`@sppgup`t@p8 8r( Zs @ 77XXENT1 92084-1X946 REV.5000 860523 /SRC_92084/R6000/&LINK1 7ClRELOC REC EMA  M XENT1  DUPEADENT DADDADDSC 9 << p `p`pp `(p`@@@p`@p ` #@p`P (_`@@p8  p`@@pEp`~~2 H==(R`@@pR`(^`@@p^(`@ph`@@psp`(`@@p(`(`~??a@@p`@@(`@HHHx8 8(`p ?tg ?@r77XALOC1 92084-1X946 REV.5000 860523 /SRC_92084/R6000/&LINK1 7;;G=  ERROR_STRING SYMTB_REFS SYMTB_DESCREC EMA BLOCKDATA ALLOC ; C ALOC1  Ƥ.CPMMAX0 FATAL_ERROR EMA_LOC ADENT   k ;; p `p`pp `(p`@p`@Ap*p`@h+x ` @p `(>` #@p(B` #@p`P (f`@}}֯G<<@hHp`@@pxWp`(\(`_p`@@h(p`@@hHp`@@pxzp`((p}DDC`@@h`@(HHHx8 J8(((  D @@?@$'B66Xc`RPL192084-1X946 REV.2540 830206 /SRC_92084/R6000/&LINK1 6 Ax)REC RPL1 !FATAL_ERROR DUPEADENT @@p`_p`^pSp`S(KpT`@U]@p`@UPV( (L`Y@@UhZHHUpRxS/RS\(:`Y@@UpR:[R`@U(`@H##VDHHYx88T((PPXW#U q?@66XLBEXT192084-1X946 REV.2440 830206 /SRC_92084/R6000/&LINK1 6 Ax)REC |EXT1 EMA_LOC ADEXT OLDLN tt 55p`Ap`@p:p`:(7p;`@p:(9:p`@pC`@Dp`Fp`@DhHp@@@DpBxA+@ABp`@Dp@3@h(HHHEx88C(}OD?@ z,:66X{beEMA192084-1X946 REV.5000 860523 /SRC_92084/R6000/&LINK1 6CʆREC EMADEFEMA  i EMA1 FMAX0FATAL_ERROR DUPEOLDLN ADENT   ~~D77p` (Sp`cp`ApYY]pAp!pY)YZbp`(.(3`p`p(A`(<;a_(A~DD&<A`_`^p`(N`@(P`dp`\p(WW[ZDZ w@ 77X^$MSEG1 92084-1X946 REV.5000 860523 /SRC_92084/R6000/&LINK1 7BREC EMA  BMSEG1  W$MAX0FATAL_ERROR IIqp((` (p`#p`Ap"pp(! I  w? @ 77XADEXT 92084-1X946 REV.2440 830206 /SRC_92084/R6000/&LINK1 700F SYMTB_REFSSYMTB_DESCMOREOPTS MODEHTABALLOC 0 XADEXT   11 .ENTR .CPMMAX0MEM_LOC EMA_LOC PUTSY CHEQHASHFATAL_ERROR 1>;;A`ԐpJp(%(%%p,p ` @p 4 p` (E <p` @p C(`@ @}}I<ph(HFx;(F @377XXNAM1 92084-1X946 REV.5000 860523 /SRC_92084/R6000/&LINK1 7JJJSUMCKSUM SIZE RELOC REC LNAM EMA DEXRECS  CURRENT CDINFOBLOCKDATA J FXNAM1  ""zMIN0MAX0DADD GETAD WMNAM CMOVE PROG"F99pp`p`(` p`p`@@p`p`@p%`@p,p2`p`@p ;`}},<00@p Dp  ` p APp`(^ p ` p ` @@p (b`p p ` @p j  o}KK|fl ` p u p ` p` p`p ` p` pK ?@Ӷ66XdPROG92084-1X946 REV.2440 831020 /SRC_92084/R6000/&LINK1 622GSYS_INFOSIZESEAFG RELOC REC %NST IDINF 2 'PROG v.ENTR MKSEG L99`` pP((`[@ p (1`[P(1`ZP(1`cP(1`bP h  (1`aP(+(//``!(9`_ 0!p!` (VCCmM<` -pX`^ @Xp`]  @]@\@h@`p`p(0CZ d<@;Z66X|RREND192084-1X946 REV.2440 830206 /SRC_92084/R6000/&LINK1 6--F9}RELOC REC %NST IDINF DEXRECS  CURRENT - lEND1  MIN0CMOVE BLANKSTRING ~~44p` ( p PpKK(I`5Pp`(!`@pP(%((`@p`QP(,(/`@p`PP(3(5`p~77_{58M(D>OpKD K`(I` p( 7M @@$77XʃXXEND1 92084-1X946 REV.2440 830206 /SRC_92084/R6000/&LINK1 7;;HSUMCKSUMREC %NST MODEIDINF DEXRECS  CURRENT CDINFO; 4XEND1  $$D CMOVE BLANKSTRING ADDSC CDS_CMMD_CHEK WARNING $~~::p` @P(WS`(p`pP hpO(HU `O(N` (4,Tp p`p(?7V =~55g=@p BQ(I I `(N` p(5Q @m@q177XSSRCH 92084-1X946 REV.2540 830513 /SRC_92084/R6000/&LINK1 7%%E SYS_INFOSYSLB SEAFG REC 'HYP % _SSRCH  mm{}.DAD .DMP.ENTR .CPM.IDLP FMPERXDSCRS FMPCLOSEWMNAM DOMOD FMPSETPOSITIONLOOKFMPREAD FATAL_ERROR LSRCH FMPREWIND NEWNAMECHECKFMPOPEN UDFCT m~~L AAA  @p@pp p&(*` p` (2p(4`pp@ ` (VH(L(4(VQ~yNEE(U(4(V(\ @p` (`(`PhX  0X 0( { p Ā(h@  ~h<<p (`'@h@ p p` @ p` p `@ ( p p` (`p (`p  ( ӈp` (??Z`P((`@p` p@ @ڀpp `(p̀p?~~<<8 8(犨`@p(Š`( (`׊p` p`p`(=p`يP(0`يph@ (' p~(88`(`@p`p`0`p<҈p `p` @P(E(`(`( @@p`p`ph(p`(m`h~~+`EEHpxh(lp(`@ h h@A (Āp ` (`@p8([~p; ppp(( Ā(;;%%LIBRARIES LIB ros vt;@>]L66XM6LOOK92084-1X946 REV.5000 860207 /SRC_92084/R6000/&LINK1 688Gy ERROR_STRINGSYSLB SYMTB_REFSREC PARTITIONS %NST 'HYP 8 0 LOOK  WWV.ENTR .CPM.EXIT .SSTFATAL_ERROR DUPEINSRT MERG4 BLT MERGE TSCHK SSCHK ADENT WARNING CMOVE NEEDOLDLN W <<  @'4p @'(x`5@ p   h   @ @@p`@@'p`2P(4(; @'p:p`@@+@'4p @'p~~_GCCM) p`2Pp` h (l#%H @'ph l3) @(r(`(` h2X (`2P (`2P((~S77p`1p`.P((`0pP( @'p `.P( (`/0 !p !  #p #(`@'hpx  `@p`77@hp`x p!΁ !P(Ҁ(@@'hpx ݁ (`*@@'hpx  `p( @(`YY\''(`.P((`p`@@(P( @'p-`@p `@@((,)`  Y$$" @Dtt$@ЄD77XX*MERGE 92084-1X946 REV.2440 830206 /SRC_92084/R6000/&LINK1 7 CMERGE  .ENTR INSRT II#%%@p)@p(($p($p'`@)p& &88'(I@B77XƋ]MERG4 92084-1X946 REV.2440 830206 /SRC_92084/R6000/&LINK1 7 ?MERG4  .DCO.ENTR .IDLP ~~^KCCA`[@pZp(Ip(IpY`@@ZA(!(#(#`@@ZA(E(Eph\(DpX`@@ZhHHZpV((V@p8X(3(I~&&E88Y(`@@ZpVV("& [ @tY77XLSRCH 92084-1X946 REV.5000 860523 /SRC_92084/R6000/&LINK1 7CREC  ERROR_STRINGBLOCKDATA  VLSRCH  \\q.ENTR .EXIT .SSTFMPERXDOMOD FMPSETPOSITIONADENT FATAL_ERROR NEEDWARNING BLT OLDLN CKREC FMPREAD BREAK FMPPOSITION \q HH  JJ) (p/5 p`(P(`@p`(# J (z`P hX  wT==0(#`p`P (](`pp `(p`@h Hpx rp z(z`@p8 8(g`P ((`pp `ǟ>>(p`@@p`@@p`@p p`((z(ʀ`p`(`@@p`p Ɓ h(`H~~ӄ>>HHx8 8(P hX  0(` p` P ( `pp `( p`@@p`@@p`@p  ~~~  <<p`(z`@hp(HHx8 8(`P ($(v`p`pp `(vp`@@p`@p`@@@p H~""I (K(bP(RR`@@@"qqV;;hHHpxb`@@h   @@h Hp(Hx8 8(0`p(- ( ((# q00j @0q?  0@m-77X_%OLDLN 92084-1X946 REV.2440 830206 /SRC_92084/R6000/&LINK1 7 FOLDLN   .ENTR >>CA@p`$p`!@(X (``#p`@P"((`p(>4  @77XWSTDBGR92084-1X946 REV.2440 830206 /SRC_92084/R6000/&LINK1 7CDSGOVERLAYINFOBLOCKDBGRINFO rSTDBGR گ.ENTR ADEXT EMA_LOC WARNING  F>>A`(pPUTpCCpLUTpCC p(AP(-(%(*)VT(,(A2HUTpC6Cp<DUTpCc>@Cp (+D.DBSG .STDB .DBUG DBUGR @#77XtASEALC 92084-1X946 REV.2440 830206 /SRC_92084/R6000/&LINK1 7BSGxFILES  [SEALC  y3.ENTR SSRCH PRINT SEASYSLBBLANKSTRING 004=$=(4`(/.(30##KWSE, required after first segment #/3?(;;=@ -=+ @qÐ77X MKSEG 92084-1X946 REV.5000 860310 /SRC_92084/R6000/&LINK1 7}}QSYMTB_REFSSYMTB_DESC SIZE SGSEAFG SAVEAPAGES OVERLAYINFOBLOCKMOREOPTSMODE  MINFO IDINF 'HYP HTABDBGRINFOCTL ALLOC } HMKSEG  QQ 8|.ENTR MIN0PUTOVERLAYINFOSTDBGRFILL_ARRAYFATAL_ERROR FMPERXFMPWRITEWMNAM CMOVE GET_EMA_SPACE EMA_LOC BLT Q]  :: P((`0(##p*A. p4  p ` (G` p ` p ` p  D!Ҫ`p~~iF11(l` p` p ` p `(Q(bTp ` @p ]` p(d p (lj ` p ` p` p vp~~~Ew77zp ` (` p (` p  pp p ` p`p̡`(`p~DDp p  p  p  (kD @` t  l@V577XɽSEALB 92084-1X946 REV.2440 830206 /SRC_92084/R6000/&LINK1 7;;G?SYS_INFO SYS_COMMONSYSLB SG OVERLAYINFOBLOCKxFILES COMMANDS; KSEALB   GG .ENTR WARNING FORCE BALOC PRINT_STRINGS DISPL PRINT CMOVE UDFCT GETSNAP SEASYSLBSEAUSLBSGh Segment is ~~ AA p    (!` $('(*(5 (22 p (a9`(F A  F H` (P~33 <KP`(a (YY [_p (3::%c''labeled system common (LC command)Some may be found in ":@.L88X2RSEASYSLB92084-1X946 REV.2440 830518 /SRC_92084/R6000/&LINK1 8''ESYS_INFOSYSLB 5SNAP_INFO xFILES DL' <SEASYSLB  ++.ENTR .IDLP SSRCH GETSNAP PUTNOWLIB GETNOWLIB UDFCT +??A`(D`pP(D`@w@OpH`wphHAN(0pI" )LP ,88I( 3N(7` >JQp`P۠B(D( p(5tlJ @@`@t88X<SEAUSLBS92084-1X946 REV.2440 830206 /SRC_92084/R6000/&LINK1 8CSYS_INFOSYSLB xFILES  SEAUSLBS .ENTR .CPMPUTNOWLIB SSRCH GETNOWLIB bb44A`w@@:pp` (4p7wp6A06(0&-8;0887(b 8 @ @1677X>SGSRC 92084-1X946 REV.2440 830206 /SRC_92084/R6000/&LINK1 7hhN=;SYMTB_REFSSYMTB_DESC SIZESGSAVE APAGES OVERLAYINFOBLOCKMODE MINFO MAINALC IDINF 'HYP HTABALLOC h RSGSRC   \\;b.ENTR .CPMFATAL_ERROR FMPERXPUTOVERLAYINFOBALOC SEALB FMPWRITECMOVE BLT MEM_LOC GETOVERLAYINFOFMPPOSITION UNTRIMMKSEG \]<1 ;;A p `(@p`(`p`(L)/ `(8 `( pp p`p `p  F22J ! `p R (V` `p Z`p` p` p e  !ppl`pJ((ppd/x88} `( `(`p   !     !` p`p `(pp (T`p ` HHp` p ` ((p`@p  ΀ HhhgR,,`(`p ڀ ((T ` p`p `  p `p`p(n (Th @ t  @؎77X-UNTRIM92084-1X946 REV.2540 830206 /SRC_92084/R6000/&LINK1 7CfSYMTB_REFSSYMTB_DESCHTAB ՊUNTRIM MEM_LOC EMA_LOC NEEDCMOVE ~~/::pp`(pp`@p`()(,p`@@p`@@p`@@p`p`p`0(L`p(`(X~O<<Rp`@h(\`@h _p`p `@@pl  s  p`(~`p}p`(p`@@p`0[[((`@@h`@@ (p`(`@@h(`@h`p`p(%88([t@((@z77XBALOC 92084-1X946 REV.5000 860523 /SRC_92084/R6000/&LINK1 7iiNS SYMTB_REFSSYMTB_DESCSIZERELOC REC MODELNAM 'HYP  ERROR_STRINGEMA_ORDER EMA_LIST EMA !CTL COMMANDSi XBALOC  jj'.DAD.DSBR .ENTR .DMOD MAX0FATAL_ERROR FMPERXFMPWRITEBLT GETAD FILL_ARRAYEMA_LOC STORE_EMAVAL GET_EMAVALWALKMEM_LOC DADDWARNING NEEDj  ~~9??A `h (.p`@p`@p`@p`@p`@@pMTp`(]\(~~~]::`(a(`@ @p`P(k(`0p`p`@ @h  y    ` ( AAA  ~877P((`@ @(`@ @hp((X`(p(/ ppp`(`@ @ p P((`p(`@ ??T@p`Pp` (`0 p `@ @h ` P?~~o77((     P((`@ @( `@ @h p(`@ @p` p`@ @p!~jju **`p`p`@p`@p`@ @p7`P(;(T` p`@  @h`@p`p p jtsaved commonGGJ`@@pS(q`@ @hH Hpxb`@ @ pGfnamed commonddTh..`@@pq`p `@@p}`(p`@ @p` (d**- @ tX)?*@wf77XЌXFORCE 92084-1X946 REV.2440 830206 /SRC_92084/R6000/&LINK1 7Cj;SYMTB_REFSSYMTB_DESCMODE >FORCE  p.CPMEMA_LOC CRAWL MEM_LOC ~~Ӿ;;p RpppJ(N(NP(("`Wp(2`@@QVp`hX 0p`(`@@Qp`U(M~,,?`S0Tp`@@Qh`@@Q (, Qt@#;;XYSET_CAPABILITY92084-1X946 REV.2440 840820 /SRC_92084/R6000/&LINK1 ;AnRUN_CAPABILITYSET_CAPABILITY.ENTR BAD_SYNTAXCHECKLIMITEQUALCH 8EEN 0((E((/ NT(%p(/)NR(.`Wp(/(E(A8VX(=0p`p(< #FHP(< ]1KCAGRPR?@F88X)COMPROC 92084-1X946 REV.5010 880527 /SRC_92084/R6000/&LINK1 8||QS8VMA ->TMPNAME ;SYS_COMMON SYSLB $5SNAP_INFO >SIZEASHEMA =SGSAVE1 %RUNSTRINGLOCKS5 RMBRELOC REC CPARTITIONS<APAGES '%NST MODE|ZZL: IO IDINF 'HYP +#GARYxFILES D ERROR_STRING?EMA_ORDER .DUMPOPTS"DL CTL COMMAND_LINE!COMMANDSZ )vCOMPROC   {{٨:.DCO EXEC.ENTR ).LBT.MBT4FATAL_ERROR PRINT_STRINGS PRINT BLANKSTRING EQUALCH MEM_LOC SPLITSTRING BLT 3EMA_LOC 2GET_EMA_SPACE WARNING BLANKFILL TRIMLEN @CHEQ1BAD_SYNTAX{yy9CHECKLIMITD 0ASSIGNCOMMAND CHECKLIMIT7SEALC DOFIL 6CMOVE GETSNAP /NEED,DISPL *LIST_FILE (SIZE_UP &CNUMD #STDBGRCDS_CMMD_CHEK SET_CAPABILITYDECIMALTOINTDECIMALTODINT CASEFOLDy eGREAD_INPUT_LINE NnhCommandFile ! ]==p (p`((j(p`(pj`@iphh@gphhs`hphxihi88j(` ()` ( (`ڨ((-` (!()plink Rev.6000 Use ? for help ~~u!<>( ( `yp'$(a/(` %((*(a"-('p (a++ (0p+ (a4)(9,8(a='(V` %E>>(G(RJ(RAh``p((aZ%(l` %(d(kp! h`(ap#"(~h`A`Ѩp-:`p((a!"}}@@((p.(ph/ h~j p.`p((a (p!(a(0(a(P((1}ddw--(`t@ (j(` p 2sp`@gph hs` @hph3h(a(`(d@@aj(` pҡj (`!p!`hphxiՆhi`P ( (@U Module not relocated~~ <<` (4j(a(g`(%$j(f(j(+(f.(c`  p`!p!`yp5h`A @p5 6F`5~,,Q)F`hphxiPՆh i&p5`P (V(b,U Module not relocated!BV<<[` (b4bj(f1fي(ak(p`P (` p`hphxi7~Նhi܈(o(a(`hphxi7Նhi(a=>>(k(P8( p8p!`op8`p8(a(P(9rp(ψ:n(À(p8(Ȋ `p8P8(p8p!(a == (0 p!(a  (p;(a(`p;(a(`p;(a(`0'!p'!(a (`Ѡp'"66 (a(`p'"(a( `p'"(a$6))_%()`p'"(a- (;P<(5p<(:)'k Too late for RO command **X5:}(a?(M`=(Gp!(L*&YPS only allowed during main GAAL|(aQ(i9Ylj(f_(d`p>(f`p>p!(am(r(x1wو(h`p`~~&==@pˠ`?(((?p`@g{p`@@gphՊpi@h i( ۈAh` zj(`@g(`Ɉ@gphhp(p!~~~1<<`@ph2hp3p`ɀ@g `@gh`@@gph h`?(芊`p?(?@gh`p?ӡ((a~99z(`?(?p`@ghɈHgph0yh(a("9aborting link ~~>>x`wp(c(a&(+p!(a/(T` %(9(K`ph@h(Kp! h`` (R4Rvj((a` (\~ Unknown command; use ? for help''TW[s(aa(-(4gj(b'@k`` Unknown command: ENDMABPAOR+ EMPSROEBLBBGRTSSRCSCNC SHVSWSSEMSRMRELIASFODUWIOUNADIDEECLLSZSNDBWIZARDMEDCPRLK- use GO to restart Link is operator suspended OS* TRCA? * SASG VM/EEXA CP6 IFOPTEE @  @@@ @p @@@ @ @@P                       ~~DD           " $ & ( * , . 0 2 4 6 < > @ B D X t v x z | ~ ~``T<<          t  +klgh`@4;;X3ASSIGNCOMMAND 92084-1X946 REV.2440 830206 /SRC_92084/R6000/&LINK1 ;((E SHEMA PARTITIONSMODE COMMANDSCDINFO(UASSIGNCOMMAND 99 <.ENTR .EXIT .SSTPRINT BLANKSTRING EQUALCH CHECKLIMITWARNING DECIMALTOINT9*PHHAPPQSTl& (tP( pM(x$ (P( `/pM("(`.pMNpOhN  0( 2+ U(P((##C or D must be specified ( code or data ) #cc:441+(`/pM((R+0((` R h R 0h R 0hMH)R R (c..This partition has already been assigned and cannot be reused .ffC66-*((`M@( `M@) ( "( H  `M @( ( `M@)RR( `M@( (f%%` 5C or D cannot be specified for a non-CDS program% 5,+(55SHD C *,. 0=*j5@ t88X,iGETSNAP 92084-1X946 REV.2540 830520 /SRC_92084/R6000/&LINK1 8xxP $WDIRTRANSPORT (>TMPNAME SYS_INFOSYS_COMMON!SYMTB_REFS)SYMTB_DESC5SNAP_INFO *SGREC MODE'HYP xFILES DLCOMMANDSCDSON x <NGETSNAP   ||VX.ENTR .CPM .EXIT .SST'FILL_ARRAYBLT &FMPPOST FATAL_ERROR PRINT %CNUMD $FMPERX#INTMSGEMA_LOC "DUMPADENT NEED FMPREAD GET_EMA_SPACE FMPPOSITION QUITDOERR SYSCHKSUM | FMPCLOSE WARNING FMPOPEN FMPREWIND 44a$$ Failed on record Sys ent=_ Non-transportable entry = 4M==AM pLp `QMh  (dpL`LN`pk!N`(}M(tpL(`pz6(( pKP((pK`h&p}}@@hp 6:D pJ`6(`KpKPK((A:B (`QPK((:@H (`VPK((` !(:>H (`PPKA((:< ((爈((`VPJ( g}99K`p у6(pL`Yp`p 6WpB`6(`B@pB`\P(눈(`fPB((pHpI`Mp"`I@H@HpH8I8"(`HP((`%% p`p` p`p`p%``b ''`p`p`p`p` pA`A@@LpF`FpG(B!bPhXXB p`bPBp!`!0(>` $(155) SNAP not set up for this RTE-6~~3;;8$eJ;d>L`p`QpAp8pEM(` pw`pT613(`p ^6WpB`6(`B@pB`8p88A(o~qan88(`EP(s(wpL( (` p `EpEapD`D@Ghc`D@GhD HGpx  U`bPB((`D@GpV(`aPB((`D@GpZ+::a((` @IpD``P ((_K(`p;`;@pC`Q@;@H[p<`(`PP<(ψ(`V@;@HpC^>p9(`< (C<K@p9`9::((`V@;@HpC]>p9(L p`(`Yp((MhQM 0(∈`QM(( p `\P((3`p "6WpB`6(~~-&==`B@pB`8p8A8A(3(6pL(`p;`Q@;@H[p<`(`PP<(`p9(`9(t(`Yp:`<(`V@;@Hp==Jp=J0p=p = 0(p`~}}=88(;XJ`QP<((` (p(`W0:p:`9@!@GhVH;HH`9@!@Gh9H!HGpU0:`( TK`9p}  }}u(<<p"((#SMK`p$6:6K`Rp7`7@Fp%8`7@@PpJOK`p&6(稡`p!N`}p'NK(bii#FFSNAP.6::0 SNAP.SNPSNAP.SNP::SYSTEMSNAP::0 ros @P FPXhp t   "XLK  $i@Wu;;X }CDS_CMMD_CHEK 92084-1X946 REV.2440 830206 /SRC_92084/R6000/&LINK1 ; ASAVE1 jCDS_CMMD_CHEK j.ENTR FATAL_ERROR 99`MA( (`(p(`((9  @kX66X LOD192084-1X946 REV.2540 850807 /SRC_92084/R6000/&LINK1 6CREC CTL COMMAND_LINE sLOD1 EMA_LOC PUT_COMMAND EE.Qph'Hx p`(p(`ppE  @[ y99X+*/SUMCKSUM/ 92084-1X946 REV.2440 840921/SRC_92084/R6000/&LINK1 9 A#SUMCKSUM @/N88X/SEAFG/ 92084-1X946 REV.2440 840921/SRC_92084/R6000/&LINK1 8 ASEAFG  @-L88X/SAVE1/ 92084-1X946 REV.2440 840921/SRC_92084/R6000/&LINK1 8 ASAVE1 0 @)H99X/DEXRECS/ 92084-1X946 REV.2440 840921/SRC_92084/R6000/&LINK1 9 ADDEXRECS @ @֔T88X/CDSON/ 92084-1X946 REV.2440 840921/SRC_92084/R6000/&LINK1 8 ACDSON @\{::XI:/BLOCKDATA/ 92084-1X946 REV.2440 840921/SRC_92084/R6000/&LINK1 : AABLOCKDATA @l((a~99z(`?(%LINKC::RTE_6:5:114:128 644 0 0 71000 5310707461 33616 %LINKC::RTE_6:5:114:128 $r,r%LINKC +#1+#1+#1r8^FST ((::XT7ZLINK2 92084-16947 REV.6000 <920909.1043>/SRC_92084/R6000/&LINK2 : 9LINK2 ϼSEGRT   . (@77X̝hBLDID 92084-1X947 REV.5010 880529 /SRC_92084/R6000/&LINK2 7yyOlVMA (TRANSPORT >TMPNAME #SYS_INFO)SYS_COMMON SYMTB_REFS*SYMTB_DESC5SNAP_INFO SIZE"SHEMA SG&SESSION 'RUN_CAPABILITY REVDATE REC yddM۩ PARTITIONSOVERLAYINFOBLOCK%NST +MODE MINFO IDINF EMADEFEMA DTSGINFO! DISCDBGRINFOCOMMANDS,CDINFOd DBLDID  XX.DAD.DIN.DCO.CPMMIN0MAX0.JMX0 SYSTM %IXGET $CMOVE BLT FMPPARSENAMEDAYTM GETOVERLAYINFO PUTOVERLAYINFOMEM_LOC X'//pp gp`(`p(`fpJ("("`pP((`p(/+ @ @Cp`p  4 ` p ~~f677` (G  < @p0C 0p `p  (6`@ @]ap`$(Uh*H x @ hH8x1hp0*H1x1e01p ` *p0m0~m<<::;<=8 d`ep0`S!000#p$d@*p0,0D@ p0`c0//'00p`K @ @O0p`p`p`  (F@! p(H`Ip`pP(O(R`b0p`  (c` p`@ @]a0Kp!_88`@ p"`*0p`(n@p)(pPVp0D0(`p`(`"hVX# ($"+``K0(p(`_Y @@BHp0`0K0`^@Oz;;@Bp0` +00 (`^@@Bh^HHBp00]0ALp(` pp`\@p1p`1(p7`@B@p887(`[@@Bh~~88p`Zp`Mp6%@p886(`Yp`Np5%@p885(`Xp`Mp4%@p884(`W@@Bh  PV((`Up`&((.~GG`'.Kp`T@@Bp0`'/0&0`R@@Bp0`&00`Q@@Bh'p0"0GJJ=800 @` p@ @t?)('#"!%$|cJ@z:77XmP2INI 92084-1X947 REV.6000 920909 /SRC_92084/R6000/&LINK2 7zzP9$WDIR-VMA >TMPNAME :TAB_SIZES SYS_INFO;SYS_COMMON/SYMTB_REFS<SYMTB_DESCSIZE SGSESSION REC =PURE OVERLAYINFOBLOCK*NDX 0MODEzLLKS MINFO 5LNAMIDINF &'HYP 1#GARY>DL DISC6COMSAVE COMMANDS?CDINFOALLOC L U$P2INI  ~~ .DAD.ENTR .CPM$MIN04MAX0.EXIT .SST.MBT8FMPNOTOKFATAL_ERROR 3FMPERX7PRNAM +MEM_LOC WARNING FMPOPEN FMPPURGEFMPCLOSEFMPREAD (GET_EMA_SPACE )EMA_LOC 2DNAME .NEED,MAPIT ~__ #FILL_ARRAY'INTMSG%FMPWRITE"PRNTM !PRINT_STRINGS FMPFILENAME FMPOK FMPBUILDNAMEBLANKSTRING OLDDIRFMPPARSENAME PUTOVERLAYINFO GETOVERLAYINFO_!<<A!@!p #x#J(6(66kI`p` p`@@[h'x KI` (a Ih @ `W@@[h'~~]00H x ( `j@ p ` p k ` p `Jp` ( u ` @ @[h'x`@@Vp `@@Vp ` @p ` P (`j@ p ~~~;;`@p`j@p ` p (o "&,:*;<=(` p;*A(" h'`#A"(á,(h-`;,"&,~}}T>>:*; =(`lp"[p܀!"8p`iPhhX 0(6"[p!"6p`gP(((0(`((` P( b}}}]+<<I !(!Qp`(`f.p`f/p`PhX 0(0+eI/!(2p((f`WP(:(K"[pF!}~~WNB=="4p`((f`dP(O(UScI((f`(Z((f` P(fabIe!(k!&p`(`WP(s(` (z!`( ~66&p`(!O2&((!aI(h#`'"6OLoad map: }}B<<"`O`U@ p#"I` p"[pA$p`U@ p`'@p %! `(`@p`(`p`&"@*p&`& @&@&}33@p&^&(('_&&`&h&HHTpx # I(^p)p*+*@<p#^I`S@&p&`&@p&`p`@?? p,!"Lp`-('.E TIp`J@@ hH/H<(9..A TIp`J@@ hH/H<`,@@ `Y@@ p0`1 /G;;(2L"$`Rp1!`*@1!p(Tp)Xp1"+\1"@ a 3@ӒR77XASWPSG 92084-1X947 REV.2440 830519 /SRC_92084/R6000/&LINK2 7uuPo SYS_INFOSYMTB_REFSSYMTB_DESCSIZESGRELOC REC OVERLAYINFOBLOCK%NST MODE MINFO MAINALC 'HYP  DISC CTL ALLOC u kSWPSG  aaC.ENTR .IDLP QUITDOERR FMPERXDBUG2 PRINT BLT GETOVERLAYINFOSHORTSPUTOVERLAYINFOINTMSGGTLNK FMPWRITEFMPSETPOSITIONFMPPOSITION aOverlay ~~@@A@p/`(p`(6p)  `(26`((`(NpA `(J6`((p~,yP<<`@P(YY `(b6 `(`(m`p `pp u 4`(`7@/h Hp,x- ,-`( ~~;774`(` @ h H?Hp,x- ,-` (` @ @4p ` p ` p@ p` ph8(̊p.` @p,,P(` @p,>~k,48888.(`(`p(`p`((=@ p `@@>(&`%p!`(#`(`p `  p !p"( # p`de#(   @@ c2 ̀ @i)77XWRTBP 92084-1X947 REV.2440 830524 /SRC_92084/R6000/&LINK2 788HER >TMPNAME SYS_INFOSIZEREC %NST  MINFO 'HYP  DISC8 IWRTBP  44.DAD.ENTR QUIT FMPERX FMPBUILDNAMEFMPPARSENAMEFMPWRITEFMPSETPOSITION4~~Oz??@p`((*`(`@hHpx'`( p`@h'H @`@p`@h@~FE;;K`(`hHpxY`(h'@ o : ; < =` p < | : ; < =`p ?   (  @ @ `p @ @ʼ|66XNAM292084-1X947 REV.5000 860227 /SRC_92084/R6000/&LINK2 6**FjSIZERELOC REC PUREMODE CURRENT * ~NAM2 ""}.ENTR MIN0 QUIT DBUG2 BLT PRNAM DADD"O7//A`@p`p`@p p `P ((,P((($$ )`p( 1`@p466 P (8(=`p`p(?`p`p ` (H `p p`p`@p`@pA Xp`@ (xP(b(c(s`@h Hp~~mtj77xs `@p|`@p` (` p` p `p(p`@@p `p `( ~ j H ? @S77XPRNAM 92084-1X947 REV.5000 860227 /SRC_92084/R6000/&LINK2 7B`LNAMCTL  {:PRNAM  &&.ENTR MIN0 PRINT CNUMD CNUMO BLT FILL_ARRAY&Z4DD4`0(}`@@pN`@pV45`@p]9pc8g6 k7`p@@hHHHpxx }:F. 2 @ u66XVKEXT292084-1X947 REV.2440 830206 /SRC_92084/R6000/&LINK2 6''ESYMTB_REFSSYMTB_DESCREC MODE'HYP ' |EXT2  MEM_LOC Ye::p`Jp`IpAp`A(>pB`H@@CGp`@Cp@ @p`@@Dp`F(1`@ChHHD`@hHC`E@p88B( ? sCt@@l,77XbXEAL2 92084-1X947 REV.2440 830206 /SRC_92084/R6000/&LINK2 7..FiSYMTB_REFSSYMTB_DESCREC MODE'HYP ALLOC . C XEAL2  .ENTR MEM_LOC ;D;;A`ap``pYp`Y(VpZ`@[_p`@[p%p`@@\p`^(7`@[hHH\`@[p`@hH[11C`@[p`hpX(HX`]Hx88Z( 1[t@?@T77XDBUG2 92084-1X947 REV.2440 830206 /SRC_92084/R6000/&LINK2 7BREC #GARY < DBUG2  $$.ENTR MEM_LOC FMPCLOSEFMPERXFMPWRITEDBADD $ @@A ` ( `p`(>`p`((p`(>p`@p/`@@@@@p88(&PhX 0(~~uI==P(M(P`p(R`耈p@@p`(\(p`(p`@pk`@@p`@@pP(z(`@(`@(x`~}}88@p`((`@p`@p`@p(h(Hx88(c`P(`p`p(p"@〈h Hp܀` @px}BB ހ`("@pܡ"@p p (Bki @ t?@377XmDBADD 92084-1X947 REV.2440 830520 /SRC_92084/R6000/&LINK2 7A CLAST_LABEL_ADD 9DBADD  .ENTR DDEFDADDADDSC ==A@ph(9`lPk((&`jdhiHh`i@hpgxf%dfg(8`j`j@hpd1hjHhd0(b`lPk(P`iPP#?%%`i@hpdHhiHhd0(b`jUdhiHh`i@hpgxfbdfgP Gi @Y66XDBL292084-1X947 REV.2440 830206 /SRC_92084/R6000/&LINK2 611GU SYS_INFOSIZERELOC REC MRG  MINFO 'HYP 1 DBL2  ((a.ENTR .CPM.ARTN ADDSC MRGAD FATAL_ERROR MAPIT (1~88@pp`p h&`p`('`pP(+(-`p`P(1(3p`P(7(9`p`@p`(R` @(HH~~ &H??N p`( p `pp ` (pP (a(h`@p `p`P (l(np ` p `@ph - x ` #p ` `~~~r55p(`@p(`@p  (((`@p(`p((`$p   p(`h"x`p`@p`p~oo11`$@p   @p`(`p( Јp(`p`@5p`p @p`6hHp oKK߶ @ p`(` @h(`@h` p`p`p8 8(]( p`K }y?@77X͉TMRGAD 92084-1X947 REV.2440 830206 /SRC_92084/R6000/&LINK2 7CSYSENTRYRELOC MRG  =MRGAD  wGTLNK FATAL_ERROR }}44p`Sp`(`L0p`(%`(` @pIRI(%`(%%QK` N(3`M0PpI`O0Ip(H`N}55t6(<`M0p(H`L0pI`L0pJFJ0Ip(5_4K |zx@s66X~DDEF92084-1X947 REV.2440 830206 /SRC_92084/R6000/&LINK2 6..Fk.SYMTB_REFS SYMTB_DESCRELOC MODE'HYP EMA .  DDEF  {.DAD.ENTR .ARTN GET_EMAVALMEM_LOC  b  IIA ` h$x` p `(R` &+06<& &B(M{(Mh@(Gh@(Gh@(Gh@ (u`@JJU##pYp`@@zp`@@zp`~P}(phA@ (us   JAzt @j*77XMAPIT 92084-1X947 REV.2440 830206 /SRC_92084/R6000/&LINK2 7((FSIZESAVE2 %NST  MINFO DL DISC( B MAPIT   33 .DAD.ENTR .CPM MIN0FMPERX FMPREAD FMPSETPOSITION INTMSGFMPWRITE3AA@pJ@pp0ׄp0ׄp0(`(N<`(`@ڠhHpxؠ~~JF::K`(A(Sp(Z(g`p`p ((lpJ(s(`p`p(~`88` ((Ȋ( ` p`@h'@J  `@@Ap ׀p`@@p`(Έ`@hH@@mpx h@`(Π`@߈p(ۀ`p` @: @ @Ed77XӴpGTLNK 92084-1X947 REV.2440 830206 /SRC_92084/R6000/&LINK2 7$$E&SYS_INFOSIZENDX 'HYP ALLOC $ RGTLNK   .ENTR .CPM FATAL_ERROR BLT MEM_LOC ~~99A p`p`p`@(:`@5p`@@l @p`(&(-`@@lp`(6(6@p(9`p(`p`~eeG?**@(d`@@lhHHnHlpi`@pkxj Ui jk@p`@@lh`@`p(+ hom(+e Ylt} @88X 5ADDDBENT92084-1X947 REV.2440 830206 /SRC_92084/R6000/&LINK2 8TTKSYMTB_REFSSYMTB_DESCSIZE SG OVERLAYINFOBLOCK%NST MODE MINFO IDINF  DISCDBGRINFOT ADDDBENT BB .ENTR QUITDOERR FMPERXFMPWRITEFMPSETPOSITION GETOVERLAYINFO MAPIT PUTOVERLAYINFOMEM_LOC Bl55@p P(`p` p `p`p!@@p`p * ` p  2p` @h` 966(_ = ` p` p @p` @@h@` @@h@` p` p` p (,e`(y`@hHpx..=ot`(y(~(.g @@t@L 77X@XEND2 92084-1X947 REV.2440 830206 /SRC_92084/R6000/&LINK2 7DwREC MODEIDINF CDINFO 3XEND2  ADDSC //bp @p`(`p/@+I77XXDBL2 92084-1X947 REV.5000 861001 /SRC_92084/R6000/&LINK2 7JJK SYS_INFOSIZE RELOC REC PUREMRG MODE MINFO 'HYP DL CURRENT J RXDBL2   55 d-.ENTR .CPM .ARTN FATAL_ERROR MRGAD ADDSC DDEFDADD INTMSGMAPIT 5  .88@p`p`(#`ph(x`p`P(/(339  @p`p`P(A(B(X`ƈP(X`@(NK;;NTp`(`@Èp`pp `(pp (p(p`p@ p` ({`@p `p `@ph , x ` $p ~~>>`  -^z@ p `p(`@ p(`@ p   X ((`@ p((`$p~B277 pp({`@pԁh H`@px`@p`@p`ƈ@p(`@ p(`̪p`ph%`p`(`~~::0p(`(p  hHp({`p hH 5@p`@ h6@p(`p`@̨p`@%x~e:::`(B`0p(G`(Gp`p `$@pU p`hHp({`P(ee`p`@p`p`@p`hhGt++@p`@p((`(`p(`P(((p`P((` (`@h(`P((`h`h>>['p(`@h` p`p`p8 8(d(p(!>"".|} y{"@n`88Xހ/SAVE2/ 92084-1X947 REV.2440 840921 /SRC_92084/R6000/&LINK2 8 ASAVE2   a @$77XJ/NDX/ 92084-1X947 REV.2440 840921 /SRC_92084/R6000/&LINK2 7 ANDX @4$77X8/MRG/ 92084-1X947 REV.2440 840921 /SRC_92084/R6000/&LINK2 7 AvMRG @6 N ADDSC MRGAD FATAL_ERROR MAPIT (1~88@pp`p h&`p`('`pP(+(-`p`P(%LINKD::RTE_6:5:49:128 644 0 0 30400 5310707463 33137 %LINKD::RTE_6:5:49:128 $11%LINKD +#2+#3+#31l_JFST 77XZLINK3 92084-16948 REV.5000 <861204.1725>&LINK3::SRC_92084 7 9LINK3 ϼSEGRT   . (@033XWUINIT92084-1X948 REV.5000 860523 &LINK3::SRC_92084 3P.$WDIR"TRACKINGL>TMPNAME MSYS_INFO;SYS_COMMONSYMTB_DESCN5SNAP_INFO GSIZEKSESSION 4RUNSTRINGLOCKS REVDATE REC OPUREPPARTITIONS9APAGES 8%NST ZZMvQMODE@LOD_SEENIJOHNF IO'HYP GOODYEAR<#GARY?xFILES =DL)DEFAULTSCTL :COMMANDSALLOC Z v?INIT yyЧEXEC.ENTR .CPMMIN0#.ISH .EXIT .SBST -.SCO .SSTB.SSTC 0.LBT1.SBT7.IDLP .MBT3.CBTJIXGET HADENT FFATAL_ERROR FMPERX>PRINT_STRINGS CFMPOPENS((CRATCHEWARNING FMPOPEN y}}cmDFMPBUILDNAME.FMPPARSENAMETRIMLEN ATR_COMMAND'EMA_LOC BLT &GET_EMA_SPACE 6SIZE_UP 2OLDDIR5LIST_FILE /FMPLASTFILENAME ,SPLITSTRING +SETSY *SYSTM (FSTAT %USERISSUPER $INIT_EMA!QUIT PRINT }AA AVMAST FILL_ARRAYLIMEM CMOVR FMPWORKINGDIR INTTODECIMAL CASEFOLDABREG LOGLU BLANKFILL A44sH)$$ Warning: Link dies in days Pre-release rev 5000 <861204.1725> 4 CCA!$pS (,(,pA2@R6`p PD  JP  F JMph`A Vp ]]W++` p!`!p`(xfDQ`(pAmAAs9PAxO}AN((]"MNot sized up. +;;AAMM`I@p ` @@LpPAPK`pPP0`p`@p`@p`@@p `(11v(ppp ((1T Not enough EMA space:  TJ}Z_ Minimum is six pages zG88 _J!/AIpp"(( Jp"((`p"C((`1p"J((`p"A((`Fp"# "p"@"~~b44 p"`"p" `I "p ` @/p`p$!"%#('pK&*#p '. p"` @#pP(8P#0K`)p`)(@*?p+C~}}BHH,H,M-(x,W-(M.g/kHh0hJ12rAp-(zphH0P9p`(`h3}??(((`;h1(`h3(((`8h1(`h3(((`6h1(`h3(((`(wh0P8((`7@?(`: p:`?p?&p`@#pP~~  ==P`?@$pP'P(wh0P6( (2`? p? &!p`@#pP*P`? @"pP'0P(wh0@5HpPh0@4P(W-(O>I~ G jProgram name exists, ignoring: I<<>N(Vh`A`Tp4(wh0P3(\(fhτ` p:`Tp4H(wh0P2(k(r`Tp@Aq1(w>w(MP(|(>0PL((bfIIpP PPD B1P `pPCpQCPQ`((`PL((.`Fp`(`EpD`pPJJ|&&CpQPQ`(ۈ(`L(ED0`pPCpQCPQ`L(JOz Default scratch file: KK%%>0`(F0 `Bp9@9pGpGH)0AH%0AK[$$$LARGEMA1$$$wH @0?I\$$$LARGEMA2$$$gg:! 00H'@0?IJ*>@pPJ/Pp`(N`.@pPJ9PpK`-@pPJ@PpK`=PK XK 0(N pKg7sXXrwctz LK:::5:96:0 rwct:5:96:0 LK::Ignoring command: Program name is DMECDCDLDESCRCEBLBBGRTDPRO+ SZCRLLMALOD SNP RUN LIB REL MAP rwosN@p @&6@: zRR~~DD@@@p@        * , . 0 2 4 6 8 : < > @ B D F H~mmp*FF J L N P T X \ ` d h? t?$EMA$ $VMA$ #^$%+'"A `WZ ?m@3R55Xp:PRNONCDS92084-1X948 REV.5000 860523 &LINK3::SRC_92084 5ttP=VMA "SIZESGREC #PARTITIONS OVERLAYINFOBLOCK%NST MODE MINFO $'HYP HEAPSTACK EMADEFEMA DTSGINFOCTL COMMANDSt PRNONCDS  kk.DAD.DCO.ENTR MAX0PRNTM !DAYTM FILL_ARRAYPRINT ZPUTCPUTKHARCNUMX BLT SETSB TRIMLEN SETDB PRINT_STRINGS GETOVERLAYINFOCNUMD CNUMO kUUne>>Main llllll - hhhhh wwwwww. words pppppp. pages Runnable only on an RTE-6 system Code segment pagesE U@@Ap @pp@p`p`p `pP(''p `@p`9p`h (`#@h*r99x`8pP((`7pP(  '`(<`(%  6  2 ` p@ p` p(p`(<` p@ .1p` *@)pBi>free memory !!c6 ;>/(A''`(H!E Loaded as a system utilitymD>>H" pNWS'5V p\'a'5f`0pph * xrp`&pyP(~~88(vDD$ '0`(`4p=`p($0(戀0 (DeR,default ~~==R'3(ވ"JJ(x`( 2(P((`-pp1'-p`&pP(ա88('/~CCi##=.'-W'`( W,!WW+'*'CEEA 00 @0 pages 65536 ready; Program Overlay ?$MA,  V 89+E@c/#55X` WHIZARD 92084-1X948 REV.2440 830206 &LINK3::SRC_92084 5''EM>TMPNAME MOREOPTSMODLS DUMPOPTSDL' WHIZARD  7PRINT WARNING EQUALCH ~~+;;px ( `p(lx(` p(lx( `p(l$x()`p(l-x(3` p(l7x(=`~oo|;33p(lAx(F`p(lJx~ (P`p(lTx|(Z` p(l^xz(g`pf:(lloAAn%%EMNXFMPMRPNESETR SYSN@`     ??A@ 22Xp[ TR_COMMAND92084-1X948 REV.2540&LINK3::SRC_92084 2C]SAVE3 CTL COMMAND_LINETR_COMMAND NN .ENTR .CPMQUIT FMPCLOSEFMPERX EMA_LOC PUT_COMMAND FMPREAD FMPINTERACTIVENEWNAMECHECKFMPOPEN FATAL_ERROR N~~-AA N`pJY(Ҋ(X`ZpNRT`WP(NPV(p(`(=(p `(~~~K::p(( ` p(`V((((` p(` pp`p Up`(=P(&(+ *(< 0p 4pP(9(;`p(~!!T<(BN FI(!JLOD ros  P@]|Z55X/SAVE3/ 92084-1X948 REV.2440 840921&LINK3::SRC_92084 5 ASAVE3  @nV66Xa/GOODYEAR/ 92084-1X948 REV.2440 840921&LINK3::SRC_92084 6 AsGOODYEAR @Vup66X]/DEFAULTS/ 92084-1X948 REV.2440 840921&LINK3::SRC_92084 6 AoDEFAULTS @Tso44XuZLINK4 92084-1X948 REV.2440 830520 &LINK3::SRC_92084 4 9LINK4 ϼSEGRT   . (@vS%LINKE::RTE_6:5:181:128 644 0 0 132400 5310707464 34375 %LINKE::RTE_6:5:181:128 $%LINKE +#4+#4+#4Z;p_~FST 77X)JHELPLK92084-16949 REV.5000 <870520.1425>&LINK4::SRC_92084 7C3 REVDATE  ERROR_STRING DL HELPLK )).EXIT .SCO.SST.MBT.CBTPRINT_STRINGS SPLITSTRING )]``START STD ALL LO Link Rev xxxx LK Defines an already existing program file (.RUN) ``` as one whose attributes can now be changed by LINK The following commands can be used once LK has been given: AB AS CA DC DM EC EM EN LL LO OS PR SH SZ TR VM WS Type ?, for more information Type LO for current status of attributes START OU EN AB EX Q QU EXI QUI A END OUT ALL STD AB Terminate Lin  ``k without changing program file EN Terminate Link and change program file START TR ALL TR Use a``s a command file. START EMA VMA EM VM VS WS SH SHEMA ALL EMA/VMA commands are used to modify a program's amount of Extended Memory Area or Vi'``rtual Memory Area: EM Set EMA size SH Access shareable EMA instead of EMA label = 6 character SHEMA name @`` VM [pages] Set total size of virtual space WS Set working set size for VMA ( amount in memory )START SZ PR ALL -`` PR Changes priority of program SZ Changes size of program START AS DC ALL `` AS Assign a partition DC[,UN] Makes program nonclonable START EC ALL ``` EC Echo command file commands START DM ALL DM[,OF] Set/Reset Debug monitor mode. 1`` if OF is specified, it will reset it. START LL ALL LL Specify destination for list output STAR ``T ALL OS OS Operator suspend - use GO to restart START CA ALL CA cap [c \``ap] Sets capability needed to run program cap = GR (group) , PR (private), OF (off), or Note: GR,PR,O,``F are mutually exclusive START RO RE LI SE SN Not a legal command in relink mode STOP  |@ ~~AAp`0@;p2h2`   >> @ > >   * 6  < >  D W@vj*77X J[TR_COMMAND1 92084-1X949 REV.2540 830206 &LINK4::SRC_92084 7C]SAVE4 CTL COMMAND_LINETR_COMMAND1  NN .ENTR .CPMQUIT FMPCLOSEFMPERX EMA_LOC PUT_COMMAND FMPREAD FMPINTERACTIVENEWNAMECHECKFMPOPEN FATAL_ERROR N~~-AA N`pJY(Ҋ(X`ZpNRT`WP(NPV(p(`(=(p `(~~~K::p(( ` p(`V((` p(` pp`p Up`(=P(&(+ *(< 0p 4pP(9(;`p(~!!T<(BN FI(!JLOD ros  P@U99X0pRESET_CAPABILITY92084-1X949 REV.2540 830206 &LINK4::SRC_92084 9B!RUN_CAPABILITYIDSEG RRESET_CAPABILITY.ENTR BAD_SYNTAXEQUALCH CHECKLIMITFAAb 0((X(% lo(%()(Q-bj(6`n0.p.`m/p/(Q:bh(C`n0/p/`m.EEAp.(QGbf(P`m.p.`m/p/(Q(X(Vp0($[d($E""2^CAOFGRPR   ?"@Sar!44X2RELINK92084-1X949 REV.2540 860207 &LINK4::SRC_92084 4~~R^58VMA 9SYS_COMMON:SYSLB ;5SNAP_INFO <SIZE=SHEMA >SG SESSION REC ?PARTITIONS@APAGES A%NST IO IDSEG BIDINF 'HYP C#GARYDxFILES ~**E\E ERROR_STRINGFDL5CTL #COMMAND_LINEGCOMMANDS* {RELINK  yy+.DAD).DIN2.DSBR '.DDE(.DCO1EXEC.ENTR .CPM6MIN0*.JMN0 -MAX00.SCO.MBT .CBT7FATAL_ERROR FMPCLOSEFMPERXPRINT +CMOVE PRINT_STRINGS 4FMPWRITE3FMPSETPOSITIONEQUALCH y}}BLANKSTRING .CHECKLIMIT/LIST_FILE ,LOOKATIDICAPS %CHECKLIMITD &NOT_A $RESET_CAPABILITY"TR_COMMAND1 !HELPLKDECIMALTOINTSPLITSTRING DECIMALTODINT CASEFOLDTRIMLEN READ_INPUT_LINE WARNING }44 FMPREAD FMPPOSITION FMPNOTOKFMPOK FMPOPEN NEWNAMECHECKFMPPURGEQUIT4@@`--Ignoring command: source! This partition is already used for @|)@@Ap`p&(C`p.`(<`p8M;(C?Mp쀈`(1`΀pp`ppU?`P(YFX@@(g ^?=(G e?(G`ހPh݀X 0(`pp?`(`p  ňp`(` .P p` /?((<<P 0( p(mp(G`P(`p?p(m`pp`(`p ͅ p`(`P(lly99 p(mpp`ˆp`@@p88(`P $h  0( p(mp`p`@@l;;) 88(` (#J 0(#(#  p(m(?;ٞ Use LO to examine program s(==,` )p` p`p=@Ip`pP(G(LLOITIKIAhB`>= ]K p bA(O~~YeDDiICImCprC`(zC(p(pIEIE p ` (E(p (p A(hB`=A(~JxDDAhB`Z= A(hB`T=A(hB`A=`Bh =(((hH`D?!(lA("C=p#(lA(`X OOu** 0($E ($C  (l;((l A(%`(!%( OAA`p`  p `0 p ($&$(l)A(_`([`Ӡ h@@'%<(Z`΀p((F(J'x )((Z(Z` h }}9XDD 0p (^&^(lcA(`(h )@`(vA@)*%(`p` h 0p (&(lA(}ll}66`(C(`p+ +؊(&(lA(%(p@(0(`p (l##V Insufficient capability to change priority #,;;֊(lA(,(lA(N-  p` @@ӈph* x` p` !ph *Hx` &p`(`@p`* >>p.(M`p@*p`@ @h*x`(8A=(.(.`@p@0Ψp &`@+p '`Ѫ p @A*p-C@0 p `(M`~~K99@p "(lRA}(X/WC(l\A{(ap(leAy(`(n`Ъ p (@p.w;(`p`0p`ͪ p ` 0p ~VV(((l`Bhx =(((0Cu(((p (`0 p (lAspAq0pAo0(VPNot a legal command in relink mode: 55mA(lAS(;ki?(m(lAg(5Link is operator suspended }}g@@;ec1ˊ(lAa(C_(` p (Cp0C](0(`ɪ0 p (;[C(lAYpAQ0(Rp}~~>>p`p`@@p88( p`p`@@288(0(*`p`p $`(K`p37`(`p4B `~ D( 1: Updated program file %%EJW?(PPU?(m(l`5(Z% Unknown command; use ? for helpU@@Y(l6^p+di`Lj@pl`;(9`ps`(~`p}?(`BhT =(((7(`BhRA =(((h@`D>>AA?hB`P=(C``p?`p7(>W4`` LKABNo changes to ENIllegal paramater: ONOFDM- use GO to restart OSnot updating aborting link - LISNREUNDCASECLLSZLOPRn EMA SH VMAWSVSEM* CATR??? A EXVMOPReady to modify rof PROGRAMSRUN rww9EE ofu  @ @@ @@P PP@ @                $`          "A+~KK $ & ( * , 2 4 8 : < > @ B D F H J L N P ` d l p   $$?!|+23$@#B55Xc$LOOKATID92084-1X949 REV.2540 830206 &LINK4::SRC_92084 5C %NST IDSEG CTL  `LOOKATID ;; ).DAD.DIN.ENTR MAX0 .EXIT .SSTPRINT_STRINGS INTTODECIMAL DINTTODECIMAL BLT ;}}Q]DDA]`h  (p`u~LyH~|H`pS@Sp\`SpX`&pY`)(h)@T`T(TTTT}}}i<<(T`+(`pV+(ApV p[`@[@h* xWh*`pQ`Y@Q@SpP`!pZ`Z(׊`"h*xO(`W@Q@Y}}}rf@@pO`X(瀈`V(`WpP`pR`R(`RpR`V(zJHSxH^(@Sp HvHf(,_(, HTt}kk9;;Hf@Sp&H,rHf`R(43HR(8 JHp =nH](KEHQKlHf`QPP(XRHPXjHfkvvX>>`O(e_HOehHf`pN`N(pod(ttbA F` `.( JF^ `/A( F\ `0(HA0( HZ XvT capability required = )VH level = %%TF`( FRHA ( FP % Debug Monitor mode = ?NF(o̬``OFF ON protection:NoneGroup (GR)Private (PR) clonable not clonable pages dynamic buffer = partition size = program size = partition # = None Working set = VMA size iLSS = EMA size = SHEMA ptn. size = SHEMA name = priority = Program BT@:jn  p|    @@~ h$$     4 H\ p?v@@h44X]+NOT_A 92084-1X949 REV.2440 830206 &LINK4::SRC_92084 4 iNOT_A  .ENTR PRINT_STRINGS  A  $. program - invalid command`*($&This is not a  :@V33X )IS_A92084-1X949 REV.2440 830206 &LINK4::SRC_92084 3 .IS_A .ENTR PRINT_STRINGS  A  ". program - invalid command`(&"$0] This is a  :@?33XDUMP92084-1X949 REV.2440 830206 &LINK4::SRC_92084 3**Et SYMTB_REFSSYMTB_DESC REC DUMPOPTSALLOC * t3DUMP << .CPMMAX0CRAWL PRINT CNUMD EMA_LOC CNUMO CMOVE FILL_ARRAYIFBRK MEM_LOC <~~Q99p`(p`p(p`p`(`p!pA%((-p2p`p8(<A ~}}~@44`@ @p`@ @p P `@ @pá X `@ @pá ` cpá h `@ @pá p `@ @}O|t33p`(z`p `(`p `(`p `p`P((`p `p`P((`p `ψP((`Ψp `P((`p `ˈP((DD`p `P((`p `(`Ǩp `( p("(;D((et>AbPrBpCoEm Sa Rp .AlSg@Df (@75U55X'd/SAVE4/ 92084-1X949 REV.2440 840924 &LINK4((::SRC_92084 5 ASAVE4  @a!77X1ZLINK5 92084-1X949 REV.5000 <870520.1425>&LINK4::SRC_92084 7 9LINK5 ϼSEGRT   . (@344X6MOVIT 92084-1X949 REV.5000 860523 &LINK4::SRC_92084 4}}PlCTAB_SIZES SYS_INFOSYS_COMMON SYMTB_REFS3SYMTB_DESC SIZE SGRELOC 4PARTITIONSAPAGES (OVERLAYINFOBLOCK%NST MODE  MINFO LNAMJOHNF }MMJkYIDINF HEAPSTACK * ERROR_STRING$EMADEF EMA 2DLCOMSAVE COMMANDSCDINFO5ALLOC M k*MOVIT   ~~#.DAD+.DIN,.DSB".DMP#.DCO.ENTR .CPMMAX0.ISH.EXIT /.SBST .SST0.SSTC MEM_LOC FATAL_ERROR 1WARNING .TRIMLEN -INTTODECIMAL&PUTOVERLAYINFO)CMOVE 'GETOVERLAYINFO%WALK!SIZE_UP ~okBEG IGETGETAD BLT m%)77A)Ap( P(7(;;`(@`(*pEp`@ @h Np`@  @h ` (^` p ^!` ~~`44p` (n` pmp `  h  (~ p` p ` (` p `p  (` @ @p `Ϩ!p#`"~~~Ӊ55(`"p#`#(`p#`P#((`!h 0(`p#`!0#p!`#@p`P((pp&(̡p~ ip& O77`!(Ҋ`p֪!p ` p h @h @`p `p ` p `h 0h  (`@ p @ p ` p `U22p P( ( `@ @p ` @ p  ((` p Ap` ($()` @ p ` p`  h  (7`@ 500p(E`(E`p &(E(EE` p`p` @ pP(P(b`@ p`@ p` @ p `@ h*x%!b%h @~~ke<WffFF to MSEG reduced from *0 @  0tcommon save?| DBN} f@氦66XpGOODPNAME 92084-1X949 REV.2540 850808 &LINK4::SRC_92084 677G $WDIR>TMPNAME SESSION PROGRAMNAME %NST 'HYP COMMANDS7paGOODPNAME  xx.ENTR .EXIT .SST.MBTFMPCLOSEFMPERXCHECK37 BLANKSTRING WARNING FMPNOTOKFMPOK FMPREAD FMPOPEN FMPBUILDNAME INTTODECIMAL MEM_LOC OLDDIRFMPLASTFILENAME FMPPARSENAMExc??Ap:;<=`p;(AAh`  ( "p`@@p ( (Ȉ@h`?? :;<=`p`ppp`PhX 0(&`ppp`(&`p~~`== p`(&`2Pp`3P0(! (#p((`P(,(C` (B3`p9`(AA(~~~B<<(`P(G(H(`(RP((`P(iY`p_`(gg(( l(`psp`(|`p~ ~(## `p`p`p(#EE@))rof rwof RUN 0 @ 0@ 0`0p @0 $( ,t3E@x855XEBCHECK37 92084-1X949 REV.2440 830206 &LINK4::SRC_92084 5 q CHECK37   .ENTR RP.CK FMPSETPOSITION]]..A;9`(`p` p`@h>Hp6`=@p8x7,A678p`(3`?p(5p(]59  ?@88XP FATAL_MESSAGE 92084-1X949 REV.2540 830206 &LINK4::SRC_92084 8C1MODE ERROR_STRINGCURRENT  FATAL_MESSAGE TT8.ENTR MAX0.EXIT .SBST .SCO.SST.SSTC TRIMLEN PRINT CONCATSPACE INTTODECIMAL BLANKSTRING INTTOOCTAL LAST_LABELTQQB--`((`ˆ(((DD D H(A(`(ʀ(Q3y Unexpected eof from command file ##CA(`(ӈ((`((#H No modules relocated . AA(`(( Illegal relocatable ##A(`(((`((#@b Illegal relocatable (Ext)7) A(`(( D Illegal relocatable (EMA)7A A(`(( M Illegal relocatable (MR) 7Y A(`((%a Illegal relocatable (RPL)7q A(`(( zq Too many EMA symbols ( maximum = 100 ) ((RA~(`( (%|H(`()(:(i" Allocate type mismatch )) )AzAGAxG(`(>(C)$$D Symbol table overflow - LINK needs more EMA $7> Av(`(G(L2 Illegal EMA record combination 8 G At(`(P(U(B Library routine needs EMA&&dPAr(`(Y(h] @*&O Relocation into system common illegal8Yc Ap(`(l(qb Illegal system reference 8ql An(`(u(zbfo Illegal EMA reference8u Al(`(~(z Unimplemented relocatable record type8~ Aj(`((? Ran out of base page links 8 Ah(`((B More common declared than system ݾ Afd(`(( Overlay base page entry!!l  Ab(`((P((!x Data segment is too large A`(0 Program is too large @@>$$A^ (A\AZ (爈`((@ Too many system libraries9 AX(`(ڀ( This program has no main 9 AV(`((F System has too many BP links 9 AT(`(( Bad labeled common links in snap file((AR(`((PH(`((($$)  Insufficient capability to replace this file $9 AN(`((q$ Code labels to data a((re illegalU AL (爈`((D4 Unrecognized label type:4 AJ(`((!@ Ran out of STT entries :L AH(`(%(*-xL Unimplemented PCAL type:d% AF(`(.(3X Unsupported Pcal to an RPL:. AD(`(7(R e Ran out of current page links_7AB ?gt Space allocated for links: O?A@ J>(Q (Too few BREAK records in code) :M A <(`(V([- Pcals only legal from code :V A:(`(_(d  Cannot mix CDS code and overlays &&_A8(`(h(k((爈`(o(t& Ran out of EMA table space ;6o A6(`(x(  Attempt to relocate a JSB in code space --mxA4A *(`(( -  Module will not fit in one code block:  A2H0(爈`((""6 This system not set up for CDS programs "; A.(`((p Illegal reference to code ,,A,  *H(`((,""1  Not enough BREAK records in relocatable "; A((`(À(e\  Too many externals in this module < A&(`(̀(2 Illegal CDS and non-CDS combination<* A$(`(Հ(|D Too many TR files. Maximum is 128.  Relocation commands: REloc ```ate LIbrary <file> SEarch RM MSearch List file commands: LL ECho DIsplay Program parameter commands: PRiority SZ [+] AS DC Do not Clone  `` CA cap [cap] EMA commands: EMa [+][] OR PA SH <label> VMA commands: s`` VMa [] WS Termination commands: ENd [] ABort  `` Miscellaneous commands: BG DBugr DEbug DM EB FOrce IX@``F LB LK NA [file] OS OU PS RC RO RT SC SN [file] SSga 4:`` TR Run string information: Type ?,run Other information: Type ?,ema ?, ܿ`` START OS ALL OS Operator Suspend - suspends Link until GO issued START SZ SIZ ALL "``` SZ [+]<pages> Sets size of program. [+] => pages is added to program size START LI LIB RE REL RM SE SEA MS ALL ;$`` RE Relocates (loads) this file as part of the program RM Relocates (loads) only the module in which the specified symbol is an entry point. SE D= `` Searches the file for modules the program needs MS Searches the file multiple times for modules the program needs LI 1`` Defines the file as a library file. Library files are searched at the end of the load. START DB DE DM DEB ALL DE Enables debK``ugging with Symbolic Debug/1000 DB Append DBUGR subroutine to program DM Set Debug Monitor mode. START CA ALL @`` CA cap [cap] Sets capability needed to run program cap = GR (group) , PR (private), or <capability levelW``> Note: GR and PR are mutually exclusive START TR ALL TR Use <file> as a comma9``nd file START DI DIS SEE UND ALL DI Display all undefined symbols START LK ALL ``` LK Defines an already existing program file (.RUN) as one whose attributes can now be changed by LINK The following commands can be used once LK ha``s been given: AB AS CA DC DM EC EM EN LL LO OS PR SH SZ TR VM WS See individual commands for how to use them. START OU EN AB NA EX Q QU EXI QUI A END OUT ALL Kn `` AB Terminate Link and do no more processing OU Sets the program name ( no overwrite of file ) EN [file] Sets the program name & commences final relocaS``tion NA [file] Sets as output file name and tests for legality of program name START SS SC RC SYS ALL S``S Enables access to SubSystem Global Area (SSGA) (This is done automatically if the program needs it) SC Enables access to system blank common RC Rev@``erse common START EMA VMA EM VM VS WS SH SHEMA ALL (( EMA/VMA commands are used to modify a program's amount of or access to E[j``xtended Memory Area or Virtual Memory Area: EM [+]<pages> Sets minimum size of EMA area (+ means add) OR Order the EMA areas PA Pagtn ``e-align the next EMA area specified in an OR command SH Access shareable EMA instead of EMA label = 6 character SB ```HEMA name VM [pages] Access VMA and (optionally) set size of VMA WS Set working set size for VMA ( amount in memory )START RT BG LB EB ALL $ `` BG Specifies a background program (type 3) EB Specifies an extended background program (type 6) LB Specifies a large background prog ``ram (type 4) RT Specifies a real-time program (type 2) START IF ALL IF Execute the command onlu ``y if 6 is used START PR ALL PR Set the priority of the program START DC ALL  `` DC Makes the program non-clonable START SN ALL SN [file] Define or display the snap file : @`` START LL ALL LL Specify destination for list output START EC ALL 6 `` EC Echo command file commands START FO ALL FO Force load program, regardless of undefined externals START  ``RO ALL RO ReOrder modules to reduce base page links START AS ALL AS Assign program to a partition START PS ALL PS Start overlays at page boundaries START RUN ALL ?1 `` Run string options: +CR:<crn> +CR: +SZ:[+] +LL:[file/lu] +MA +EC +RO +DP +DE +RC `` +SC +RT +BG +LB +EB +DC +DM Run string file prefixes for FMGR files: % $ # ^<snapshot> " A (A is alphabetic)  `` Run string type extensions: <relocatable>.rel .lib .lod .snp .map <n ``program>.run Examples: Link,directory/prog.lod,+SZ:30 Link,prog.rel,library.lib,list.map,prograF@``mname.run START WIZ Wizardly options are: SE - Print all system entries used `` TR - Print Non-transportable system entries used DU - Print internal symbol table RP - Print RPLs (toggle) `` NE - Print only new symbols (toggle) PC - Print Current page Link info for code SN - Do not look through snap for RPLs O\``` SY - Do not search system libraries EM - Print lots of error messages PM - Print partial (pass 2) map even if overflow memory ``NX - Do not add extra link space FM - Force EXTS to match ENTS in other overlays PR,<n>-Do a profile of module n (see &modls::lk) START STOP u~~AAp`U@`pWhW`aAV`U@mpShS`_ARpXf(((@Xjp`p`I@KpJ`JpQ`QhiP(((`I@KpJIZ\p~{{??\Z\ZN(((`np(( Zf( ((-`I@KpJ`JpM`MheL((((.(-`(-`I@KpJ+lI`np(ڀ`(77lbX{XXu966 No help for STOP START STD >>> @> >!. "r"""" X@% C55XUDUMPEMA 92084-1X949 REV.2440 840930 &LINK4::SRC_92084 5//FSYMTB_REFS SYMTB_DESCREC EMA_LIST EMA CTL / DUMPEMA  //PRINT FILL_ARRAYMEM_LOC GET_EMAVAL DINTTOOCTAL CMOVE EMA_LOC / EMA areas Starting Address ~~B55pP((`0(#(`p(p`@@p`@@P(I9p`@@p`@@hGp(3~I;;NSX[pa`@@p`@@p p s y~`@@p..1P(p(\(. pt <@K# gg(( l(`psp`(|`p~ ~%RT6VM::RTE_6:5:1:60 644 0 0 400 5310707467 32375 %RT6VM::RTE_6:5:1:60 $<%RT6VM +#6+#7+#7z`6FST 44Xk*;RT6VM 92084-16956 REV.2341 831115 P92084/&RT6VM::PCO4<<@$LOC.IMAP .IMAR .JMAP .JMAR .LBP.LBPR .LPX.LPXR .PMAP <@%MDMLB::RTE_6:5:7:128 644 0 0 3400 5310707470 32417 %MDMLB::RTE_6:5:7:128 $%MDMLB +#7+#8+#8 `:FST ==X-P MDMLB 92084-16958 Rev.5000 [Rte-6/VM] <860807.1617> &MDMLB::SRC_92077 =77DBYE HGETLU wIDKIL INSES 0LOG LOGOF OPSYSESN7IIF$DSCS $LGOF $OPSY .CMW.ENTR .XLA .XLBCLRQEXEC LUSES LUTRU MESSS SESSN SYCON XLUEX ILL hPAJ()J(*P--(C0ȄpD?D./(C-0FCLEEptprG 8rF([H`rPt(m(Sps GGPs(mPr(l (aHGHAu`vpA u(up@ x  wH@P(8c==(`p`@pH@p @p 0p`p`P(`((P(`P(`P(`P(`h (`pv`v(Έ8v`v(8v`v(G (mmAAp (0p"舄0p!AX(A   !"(A` 0Ȅp  #((mCC}..   , ,1056 D.DBMON LGOFF OFP R RTSM C@"HELP::RTE_6:3:407:39 644 0 0 313400 5310707472 33713 "HELP::RTE_6:3:407:39 $'"HELP +#9+#:+#:C {`DFST "" HELP INFO FILE FOR PROGRAM 92084-17001 REV.6000 920909  ""REV  "HELP 92084-17001 REV.6000 920909 RTE-6/VM HELP FILE  ""FMGR-105D.RTR DIRECTORY TRACK BUFFER TOO SMALL$The length of the directory buffer in the routine D.BUF was defined to be $&less than 512 words when loaded with D.RTR. Alter the size of the directory&$buffer in D.BUF by altering the constant defined by D.LEN in the source,$!reassemble the routine D.BUF and regenerate the system with the new !relocatable.""FMGR-104EXTENT NOT FOUND"A request was made for a file extent which was missing from the file. "The file is probably corrupt. ""FMGR-103 DIRECTORY IS CORRUPT $During a directory lock done by MC, DC, IN, PK, CR, or PU, the directory$!is scanned for internal consistancy. The directory was found to be!inconsistant. ""FMGR-102 ILLEGAL D.RTR CALL SEQUENCE #A lock was not requested first or the file was not opened exclusively.#&Possibly an operator error, such as removing a cartridge without dismounting&it first.  "" FMGR-101 ILLEGAL PARAMETER IN D.RTR CALL %Possibly an operator error. Recheck the previous entries for illegal or %'misplaced parameters. This error can also happen when a request is made to '&create a scratch file and that scratch file already exists and is open to &'another program. If D.RTR is unable to purge the existing scratch file, this 'error is returned. See the system manager.  "" FMGR-099 DIRECTORY MANAGER EXEC REQUEST WAS ABORTED &An EXEC request made by D.RTR was aborted. Make sure that all disks being &accessed are up. Notify system manager.  "" FMGR-052 SPOOL SHUT DOWN. SPOOL FILE SETUP FAILED 'Spool shut down is in progress. A write (WR) or read/write (BO) spool file ''cannot be set up at this time. Start up spooling using GASP's SU command and 'try to set up the spool file again.  "" FMGR-049  COPY VERIFY FAILED &The CO command detected an error during the verification of the file just &'copied. The 10G global contains the name of the file which did not verify. ''Retry the copy by specifying the name in the 10G global as the starting file ' in the CO command.  "" FMGR-048 SPOOL NOT INITIALIZED OR SMP CANNOT BE SCHEDULED 'Spooling has not been initialized (run GASP to do so); or the SMP program is '%not found or partitions are too small to run it. The default for SMP is %real-time (type 2) sized to 6 pages.  "" FMGR-047 NO SESSION LU AVAILABLE FOR SPOOL FILE 'If the session LU to be used for the spool file is not specified during set ''up, SMP allocates a session LU less than 64 that is not already used in the '&session switch table. Use the :SL,lu,- command to release a session LU in &the spare part of your session switch table.  "" FMGR-046  GREATER THAN 255 EXTENTS 'You cannot create a file extent numbered greater than 255; make file size of ''the main larger. If generated during an SM command, the message is not put '"in the message file, but is truncated at the last valid message. " "" FMGR-041 NO ROOM IN SST 'There are no spare entries left in the session switch table. Spare entries ''can be recovered by using the :SL,lu,- command, where lu is a session logical 'unit number that is not needed.  "" FMGR-040  LU NOT FOUND IN SST 'You are trying to access an LU that is not in your session switch table. Use 'the SL command to add the LU to your SST.  "" FMGR-039 SPOOL LU NOT MAPPED TO THE SPOOL DRIVER 'A spool LU must point to a spool EQT. Switch all spool LUs to point to spool 'EQTs and try the spool file set up again.  "" FMGR-038 ILLEGAL SCRATCH FILE NUMBER 'The range for scratch file numbers is 0 through 99. Try again with a number ' in the correct range.  "" FMGR-037 ATTEMPT TO PURGE AN ACTIVE TYPE 6 FILE 'Type 6 files that have been RP'd cannot be purged. Off the program if no one 'is running it, and try again.  "" FMGR-036  LOCK ERROR ON DEVICE %A call to OPENF attempted unsuccessfully to lock a device. Perhaps the %$device is already locked or there are no resource numbers available. $ "" FMGR-035 ALREADY 63 DISKS MOUNTED TO SYSTEM 'There are already 63 disks mounted. A disk will have to be dismounted before 'a new one may be mounted.  "" FMGR-034  DISK ALREADY MOUNTED &A disk with this ID is already mounted in the cartridge directory. Either &dismount the duplicate disk or mount a different one.  "" FMGR-033 NOT ENOUGH ROOM ON CARTRIDGE 'The cartridge does not have enough space on it. Try using another cartridge, 'decreasing the file size, or packing the disk.  "" FMGR-032  CARTRIDGE NOT FOUND !The specified cartridge cannot be found in the cartridge list. ! "" FMGR-030 VALUE TOO LARGE FOR PARAMETER $1.The value supplied in the parameter is beyond the defined range. $$2.If a parameter supplied in a calling sequence receives information $& returned from the routine, the parameter must be large enough. If the && parameter supplied is a single word but the value to be returned is a & double word, this error results.  "" FMGR-026 QUEUE FULL OR MAX PENDING SPOOLS EXCEEDED %The spool queue is full or the maximum number of spools pending has been %exceeded. Re-run the job when the space becomes available.  "" FMGR-025 NO SPLCON ROOM 'The SPLCON control-record area is full. This error may occur when the spool ''system is competing with programs using their own spooling file and running ''outside of batch. Re-run the job when SPLCON control-record entry space is 'available.  "" FMGR-024  NO MORE BATCH SWITCHES 'The LU switch table is full; the size of the switch table specified at system 'generation is inadequate. Notify the system manager.  "" FMGR-023  NO AVAILABLE SPOOL FILES 'All spool files are currently being used. Re-run the job after a spool file ' becomes available.  "" FMGR-022  NO AVAILABLE SPOOL LU'S &All spool logical units are currently being used. Re-run the job after a &spool LU becomes available.  "" FMGR-021  ILLEGAL DESTINATION LU 'The specified LU was not allocated by GASP. Try again using an LU allocated 'by GASP.  "" FMGR-020  ILLEGAL ACCESS LU %1.The logical unit number specified in the LU or cs command was not a %# positive logical unit number. Re-enter the corrected command. #'2.There is an LU entry in the cartridge list that does not point to a disk '' device. After the disk was mounted, the LU command switched the device. '% Switch the LU back to its disk definition. If desired, dismount the % disk. The LU can then be switched to a non-disk device.  "" FMGR-019 ILLEGAL ACCESS ON A SYSTEM DISK 'The system manager is the only user with the capability to write on a system 'disk.  "" FMGR-018 ILLEGAL LU $The LU is either not assigned to the system, or is not defined in your $session switch table (SST).  "" FMGR-017 ILLEGAL READ/WRITE ON TYPE 0 FILE '1.Some type 0 files do not support all read, write, or position requests. '' For example, a spool file may be open for read-only access; attempting to '& write to the file will fail. Check the file parameters or the namr. &&2.There is not enough space on the cartridge to write to a spool file. & "" FMGR-016  ILLEGAL TYPE 0 OR SIZE=0 &One of the following occurred: the wrong file type was specified; a type 0 &'file received a purge or create request; the size specified was zero; the new '$type specified in the RN command is illegal. Check the size and type $parameters.  "" FMGR-015 ILLEGAL NAME $The file name does not conform to syntax rules; a common cause is the $presence of an illegal character.  "" FMGR-014 DIRECTORY FULL 'There is no more room in the file directory. Purge unused files and pack the 'disk, or else try another cartridge.((  "" FMGR-013 DISK LOCKED $A program has locked the disk. Initialize the cartridge if it was not $initialized, or wait until it becomes unlocked.  "" FMGR-012  EOF OR SOF ERROR %A read, write, or position attempt was made to access a file beyond its %boundaries. Check the record position parameters.  "" FMGR-011 DCB NOT OPEN &An unopened DCB was accessed before a create or open call, or the DCB was &already closed when another close was attempted.  "" FMGR-010  NOT ENOUGH PARAMETERS &One or more of the required parameters were omitted. Enter all necessary &parameters.  "" FMGR-009 ATTEMPT TO USE APOSN OR FORCE TO 1 A TYPE 0 FILE 'A type 0 file cannot be positioned with APOSN or be forced to a type 1 file. ' Check the file type.  "" FMGR-008 FILE OPEN OR LOCK REJECTED %A file may not be opened if it is opened exclusively to another program, %'opened non-exclusively to 7 programs, or if its cartridge is locked. The CL ''or DL commands tell which program has the disk locked. If the cartridge is 'being packed, check to see if spooling is shut down.  "" FMGR-007 ILLEGAL SECURITY CODE OR ILLEGAL WRITE ON LU 2 OR 3 '1.You specified a security different from the actual one, or you specified ' none and one is required. '2.You tried to write on LU 2 or 3, but only the system manager can write to ' files on these LUs.  "" FMGR-006 FILE NOT FOUND 'The file cannot be found. Perhaps the file name or cartridge reference you 'typed was different from the actual one.  "" FMGR-005  RECORD LENGTH ILLEGAL &The record length specified is not valid. For a read or position attempt, &'the record may not have been written; on a write attempt, the record length 'for the data is illegal. The file may be corrupt.  "" FMGR-004 RECORD SIZE OF TYPE 2 FILE IS 0 OR UNDEFINED 'A type 2 file create attempt was made without a record size or with a size of '0.  "" FMGR-003  BACKSPACE ILLEGAL %The device or type 0 file cannot be backspaced. Check its device type. % "" FMGR-002  DUPLICATE FILE NAME 'A file already exists with the name specified. Repeat the command with a new 'name or purge the existing file.  "" FMGR-001 DISK ERROR $The disk is down. Try again and then report the problem to the system $manager.  "" FMGR 000 BREAK !This is to acknowledge the BR command. No error has occurred. ! "" FMGR 001  DISK ERROR - LU REPORTED 'The disk associated with the LU reported is down. Report the problem to the 'system manager. Example:   FMGR 001  FMGR 034 indicates that a disk error has been found on disk LU 34.  "" FMGR 002  INITIALIZE LU 2! 'This error indicates a request for the user to initialize the system disk (LU '&2) by assigning specific system tracks to FMGR. Before it is initialized, &'FMGR obtains all the available tracks on the system and auxiliary disks and ''assigns them to itself. After it is initialized, FMGR owns only those tracks ''specifically assigned to it. Thereafter, each time the system is loaded from '%disk (booted up), it recovers these tracks automatically and no further %%initialization is required. To initialize the system disk, use the FMGR %initialize (IN) command.  $For example, :IN,SC,-2,2,SYS,100 initializes LU 2. It sets the master $'security code to SC, LU 2's CRN to 2, its label to SYS and its starting track ' for FMP files to 100.  'The starting FMP track must be at least 8 tracks greater than the last track '"used by the system. (System size is reported at the end of system "generation.)  "" FMGR 003  INITIALIZE LU 3! 'This error indicates a request for the user to initialize the auxiliary disk '"(LU 3) by assigning specific system tracks to FMGR. Before it is "#initialized, FMGR obtains all the available tracks on the system and #&auxiliary disks and assigns them to itself. After it is initialized, FMGR &&owns only those tracks specifically assigned to it. Thereafter, each time &$the system is loaded from disk (booted up), FMGR recovers these tracks $'automatically and no further initialization is required. To initialize the 'auxiliary disk, use the FMGR initialize (IN) command.  'For example, :IN,SC,-3,3,AUX,70 initializes LU 3, setting its CRN to 3, its 'label to AUX and its starting track for FMP files to 70.  %If auxiliary disk tracks are not to be assigned to FMGR, the IN command %&should still be given in response to FMGR 003, but the cartridge reference &number should be specified as 0.  "" FMGR 004 ILLEGAL RESPONSE TO FMGR 002 OR FMGR 003 &A command other than an initialize (IN) command was entered in response to &$either a FMGR 002 or FMGR 003 error. Enter the appropriate initialize $command.  "" FMGR 005  REQUIRED TRACK NOT AVAILABLE - RELATIVE TAT POSITION REPORTED &The first track specified in the initialize command is not available. The &'starting track must be at least 8 tracks greater than the last track used by ''the system. Re-enter the initialize command with the first available track 'reported in this message.  "" FMGR 006 FMGR SUSPENDED $FMGR has suspended itself. Ready the down device and enter GO,FMGR. $ "" FMGR 007 CHECKSUM ERROR %A checksum error occurred on a binary file or the file being read is not %binary (type 5 or 7). Check the file type.  "" FMGR 008  D.RTR NOT LOADED &The program D.RTR was not found in the system. Load D.RTR as a permanent &program.  "" FMGR 009  ID SEGMENT NOT FOUND $An RP command was used to deallocate or reassign the ID segment to the $"program being restored. The system looks for a blank ID segment. " "" FMGR 010 INPUT ERROR &A syntax error occurred. Look for a missing or extra colon, a misspelled &&command, an error in the subparameters, a command that is too long, etc. &&Re-enter the command. If received after entering an abort command, there & were no active jobs.  "" FMGR 011 DO 'OF,XXXXX,8' ON NAMED PROGRAMS %These programs are still RP'd and their type 6 files are on the disk you %'tried to pack. Enter either RP,,program or OF,program,8 to remove the named 'programs.  "" FMGR 012 DUPLICATE DISK LABEL OR LU $The cartridge you tried to mount has the same label or LU number as an $'already-mounted cartridge (the duplicate label is displayed with the error). '&Re-enter the command using another label or LU, or dismount the duplicate &'cartridge. This error may also occur if you dismounted a private cartridge '&from your session and attempted to re-mount it as a group cartridge, or if &'you dismounted a group cartridge from your session and attempted to re-mount 'it as a private cartridge (which is the default).  "" FMGR 013  TR STACK OVERFLOW &More than 10 TR commands have been encountered without transferring back. &Enter :TR,-11 to clear the stack.  "" FMGR 014 REQUIRED ID SEGMENT NOT FOUND &An ID segment cannot be found for the specified program; check the program &'name or load the program. A blank ID segment cannot be found for a program ' being restored; enter an OF command to release an ID segment.  "" FMGR 015  LS TRACK REPORT %This message reports the logical unit number and track of the current LS %area; it is not an error.  "" FMGR 016 INSUFFICIENT SYSTEM TRACKS FOR RP 'There is insufficient space in the system track pool to copy the program to ''RP. Either wait until more track pool space becomes available, or move the 'file to LU 2 or LU 3 and re-enter the command.  "" FMGR 017 ID SEGMENT NOT SET UP BY RP 'In order for an ID segment to be released by an RP command, it must have been ' set up by an RP command. Try using OF,program to release it.  "" FMGR 018  PROGRAM NOT DORMANT #An RP,namr,program was attempted when the program is active. Enter #OF,program and then repeat the RP command.  "" FMGR 019 FILE NOT SET UP BY SP ON CURRENT SYSTEM 'The program file being restored had a parity error, was not set up correctly, ''or was not set up by a SP command in the current system. Reload the program ' and try again.  "" FMGR 020  ILLEGAL TYPE 0 FILE %A type 0 file to be created must point to an LU already assigned in the %system. Re-enter the command using another logical unit.  "" FMGR 021  ILLEGAL DISK SPECIFIED &A copy to the same file or to/from an unmounted cartridge was attempted. &Mount another cartridge or use one that is already mounted.  "" FMGR 022  COPY TERMINATED #The copy process has been terminated due to a copy error. Check the #parameters and the specified disks.  "" FMGR 023  DUPLICATE PROGRAM NAME $The program being restored is already defined. Change the name of the $program, enter OF,program, or release the ID segment.  "" FMGR 038 ATTEMPT TO PURGE ACTIVE FILE !This type 6 file is RP'd. Off the RP'd program and try again. ! "" FMGR 041 PROGRAM CANNOT BE A SEGMENT &The program specified is a program segment (type 5). LS tracks cannot be &'assigned to a program segment. Ordinarily, the LS tracks are assigned to the ''program EDITR when MS is executed. If the LS tracks are to be assigned to a 'diff((erent program, specify this program's name.  "" FMGR 042  LU CANNOT BE SWITCHED &This logical unit cannot be switched. If it is a disk LU, the session LU &$must be the same as the system LU. Session LU 1 cannot be switched. $ "" FMGR 043  LU NOT FOUND IN SST &This logical unit is not defined in your session switch table. Use the SL &command to add the LU to your SST.  "" FMGR 044  NO MESSAGES WAITING There are no messages waiting for your ME command.  "" FMGR 045  SESSION COMMAND ONLY This command operates only in the session environment.  "" FMGR 046  INSUFFICIENT CAPABILITY 'Your account's capability level is too low to execute the command (the :DP,9P '#command displays your level). The system manager can increase your # capability level.  "" FMGR 047  SPOOL SET UP FAILED 'There are no available spool files or LUs, or the logical unit table is full. ''Try running the job again. If the error is due to lack of spool LUs, or the 'logical unit table is full, reconfigure the system.  "" FMGR 048  GLOBAL SET OUT OF RANGE 'The specified global is out of range. Check the parameters and re-enter the ' command correctly.  "" FMGR 049  CAN'T RUN RP'ED PROGRAM 'The program restored from the file does not execute. Usually this is caused ''by attempting to run a segment of the specified program. Check the program. ' "" FMGR 050  NOT ENOUGH PARAMETERS &Less than the required number of parameters were specified. Re-enter the &command with all necessary parameters.  "" FMGR 051 ILLEGAL MASTER SECURITY CODE "The master security code you entered didn't match the stored one. " "" FMGR 052 ILLEGAL LU &1.Attempt to switch a session LU to a system LU which is a disk, but the && session LU number does not equal the system LU number. (The system LU & and session LU for a disk must be the same.) '2.An illegal LU was specified in the SL command. The LU must be positive '' and less than the largest LU defined in the system, and all session LUs ' must be less than 64. '3.Response to FMGR 002 must be to initialize LU 2, and response to FMGR 003 '' must be to initialize LU 3 (or 0 if no LU 3). A response other than 2 or ' 3 was entered.  "" FMGR 053  ILLEGAL LABEL OR ILABEL &The specified cartridge reference number or cartridge ID is illegal. The &$cartridge reference number must be a positive non-zero integer and the $cartridge ID must be a legal file name.  "" FMGR 054  DISK NOT MOUNTED %An attempt was made to dismount or reference a disk cartridge that isn't %%mounted to you. To reference it, mount the disk cartridge using the MC %'command. If under session control, the AC command could be used instead to '&allocate disk space with the specified CRN. This error also occurs if an &%attempt is made by a session user (not the system manager) to dismount a %'system disk. A session user is allowed access to a system disk even though ' he has no control over the mounting or the dismounting of it.  "" FMGR 055  MISSING PARAMETER 'A required parameter has been omitted. Check the command syntax and re-enter 'all necessary information.  "" FMGR 056 BAD PARAMETER 'A parameter was specified incorrectly or a track parameter specifies a track 'that is outside the range of the FMGR tracks.  "" FMGR 057 BAD TRACK NOT IN FILE AREA 'The specified track is in the system area or is a directory track. Correct 'the command and re-enter it.  "" FMGR 058 LG AREA EMPTY 'You attempted to save the contents of an empty LG area. Use the MR command 'to move a file to the LG area.  "" FMGR 059 REPORTED TRACK UNAVAILABLE 'A re-initialization attempt will lower the first track into the system area. ''The last track is reported. Re-enter the command with the first track equal 'to the last track + a minimum of 8.  "" FMGR 060 DO YOU REALLY WANT TO PURGE THIS DISK? 'A re-initialization attempt will raise the first track or lower the directory '&tracks into the file area and destroy a file. Enter ?? or NO to stop the &reinitialization. Enter YES to continue.  "" FMGR 061 DO A "DC" AND A "MC" ON THIS CR 'You are attempting to replace a mounted cartridge with a cartridge that has '¬ been previously initialized without entering the DC and MC commands. &'Enter the DC and MC command for this cartridge. (On the DC, be sure to use 'the RR option to release resources.)  "" FMGR 062  MORE THAN 63 DISKS 'Session is limited to 63 cartridges; you tried to mount the 64th. Dismount a 'cartridge to make room, if possible.  "" FMGR 063 EXCEEDING SESSION DISK LIMIT %You attempted to mount more disks to a session than are allowed in your %'account. Dismount an unused disk and re-enter the command. To increase your 'account's disk limit, consult the system manager.  "" FMGR 064 NO DISK AVAILABLE FROM DISK POOL 'All disks in disk pool are allocated or there are no available disks that are '%big enough. This error can also occur if the number of directory tracks %'specified is too large. A reasonable number of tracks must be specified in ''relation to the total number of tracks on the disk. If disk space is being '&allocated from the disk pool and size was not specified (i.e., first free &'disk is allocated), the mount routine will continue to search the disk pool ''until a disk is found that will pass the reasonable test. In this case, it ''is possible that even though there are free disks in the pool, none will be '!allocated because the number of directory tracks was so large. ! "" FMGR 065 CONFLICT IN SST DEFINITION &The specified LU number is already defined as a session LU in your session &'switch table (SST). This will occur if you specify a disk LU number in the '%mount command, but this number is already defined in the SST. If it is %&necessary to mount this disk LU, change the conflicting entry in the SST. &&This can be done by using the SL command to remove the SST entry with the &&conflicting session LU and, if desired, re-entering it in the switch table &with a different session LU number.  "" FMGR 066 NO ROOM IN SST 'There are no spare entries left in the session switch table. Spare entries ''can be recovered by using the :SL,LU,- command, where LU is a session logical 'unit number that is not needed.  "" FMGR 067  PROGRAM NOT FOUND &The program to be executed was not found among the system ID segments, nor &%was it found as a type 6 file. Check the program name you specified or %'reload the program. On a HE (help) command, this indicates the program HELP ''could not be found. On a WH (WHZAT) command, the error indicates that WHZAT ' could not be found.  "" FMGR 068 LU NOT IN VARIABLE PART OF SST $Only LUs in the variable part of the session switch table (SST) may be $deleted.  "" FMGR 069  JOB LOGON FAILED $The job account could not be logged on. The reason for the failure is $printed on the system console.  "" FMGR 070 SECTORS/TRACK VALUE TOO LARGE &The sectors per track value specified in the initialize command is larger &%than the actual sectors per track value for the disk. Let the parameter %%default to the actual sectors per track value for the disk, or specify a % smaller value.  "" FMGR 071 DO "EX,SP" TO SAVE OR "EX,RP" TO RELEASE PRIVATE CARTRIDGES 'A private disk is mounted to your session; more than EX is needed to log off. ''Use EX,SP to save (or EX,RP to release) your private cartridges. If the disk '&was allocated from the disk pool, it is returned to the pool for possible &'re-allocation to another user. If EX,SP is specified, your private disk(s) ''will remain mounted to you; on the next log-on, the disk(s) will be mounted ''to the new session. Note that group disks are, by default, left mounted at 'log-off. To release group disks at log-off, use EX,,RG.  "" FMGR 072  LU NOT INTERACTIVE %The logical unit specified in a CT command must refer to an interactive %device.  "" FMGR 073  ACCOUNT NOT FOUND 'The account you specified does not exist. Check the User.Group name or the 'order of the parameters in the SM command.  "" FMGR 074  JO COMMAND EXPECTED !The first command in a job must be (and was not) a JO command. ! "" FMGR 075 CANNOT RESTORE TYPE 6 PROGRAM FILE (USER PROTECTED) #The specified program is saved as a type 6 file with user protection #'(SP,PROG,PR). It can only be run or RP'ed from the type 6 file by the user ''who issued the SP command, or by users who are linked to the same account. ' "" FMGR 076 CANNOT RESTORE TYPE 6 PROGRAM FILE (GROUP PROTECTED) $The specified program is saved as a type 6 file with group protection $'(SP,PROG,GR). It can only be run or RP'ed from the type 6 file by users with 'the same group as the user who issued the SP command.  "" FMGR 077 CANNOT RESTORE TYPE 6 PROGRAM FILE (INSUFFICIENT CAPABILITY) $The specified program is saved as a type 6 file with capability level $%protection (SP,PROG,,, where is the minimum capability level %&required to run or RP the program). The program can only be run or RP'ed &'from the type 6 file by users possessing a capability level greater than or '&equa((l to the level specified when the program was SP'ed. For example, the &'command SP,PROG,,50 will save program PROG and only users with a capability ''level of 50 or greater will be allowed to run or RP the program from the type ''6 file. Note that command capability checking is still in effect. (The user '$still must have sufficient capability to invoke the RU or RP command, $!regardless of the capability level specified in the SP command.) ! "" FMGR 078 CANNOT RESTORE TYPE 6 PROGRAM FILE (INTERNAL ERROR) 'Internal consistency checks have failed while attempting to restore a program 'file.  "" FMGR 079 WARNING - RECORDS TRUNCATED TO 128 WORDS &In a type 2 file, records longer than 128 words have been truncated to 128 &words.  "" FMGR 080  CANNOT FIND NAMED EMA &Cannot RP or run this program because the sharable EMA partition name does &$not exist in the system. You may either re-load this program with an $$existing shared EMA label or reboot and reconfigure memory to add the $shareable EMA label your program references.  "" DM 'Mapping error. Your program attempted to read or write outside of its mapped ' address space.  "" MP %Memory protect error. An expected call was not an EXEC, $LIBR, or $LIBX %call.  "" RE A re-entrant subroutine attempted to call itself.  "" RQ An illegal request code was specified in an EXEC call.  "" TI A batch program exceeds its allowed time.  "" SC00 A batch program attempted to suspend itself with an EXEC 7.  "" SC01  Missing parameter.  "" SC02  Illegal parameter.  "" SC03 The specified program cannot be scheduled.  "" SC04 %The specified program is not a child (or son) to the program issuing the % completion call.  "" SC05 The program given is not defined to the system (not RP'd).  "" SC06 "No resolution code was specified in the execution time EXEC call. " "" SC07 A prohibited core lock was attempted.  "" SC08 %A scheduled program is assigned to a partition smaller than the program %&itself or to an undefined partition. Unassign the program or reassign the &#program to a partition that is as large or larger than the program. # "" SC09 &The scheduled program is too large for any partition of the same type; for &$example, trying to schedule a 23k background program when the largest $background partition is only 21k.  "" SC10 Not enough system available memory for the string passage.  "" SC11 'An EXEC schedule or timed execution request was issued on a program already 'in the time list for another session.  "" SC12 %A program tried to do an exec 8 call to load a multi-level segmentation %program.  "" SC13 &The main program and its segments were not SP'd onto the same cartridge. & "" SC14 'Track ownership in track assignment table does not correspond to ID segment ''for program's segment. The main was SP'd and OF'd, and a segment remaining 'on the track was not SP'd and OF'd.  "" RN00 No option bits set in the call.  "" RN01 This system has no resource numbers.  "" RN02 The specified resource number is not defined.  "" RN03 Unauthorized attempt to clear a local resource number.  "" LU01 $The program has one or more logical units locked and is trying to lock $ another with wait.  "" LU02 $Illegal logical unit reference. The LU specified is either illegal or $&non-existent for the current session/system configuration, or is a disk LU &but the Disk Also bit was not set in the LU lock request.  "" LU03 'Not enough parameters in the call, LU number is less than one, or LU is not ' locked to caller.  "" CL01 Illegal class number or no class table in system.  "" CL02 Parameter or calling sequence error.  "" LU04 You may not lock an LU that is not in your SST.  "" DR01 Not enough parameters specified.  "" DR02 $Number of tracks is negative or zero, or an illegal LU was specified. $ "" DR03 Cannot release a track assigned to another program.  "" IO00 &Illegal class number specified; outside the class table, not allocated, or & bad security code.  "" IO01 Not enough parameters were specified.  "" IO02 Illegal logical unit number specified.  "" IO03 "Illegal EQT referenced by LU in I/O call (its select code is 0). " "" IO04 'Illegal user buffer specified: extends beyond RT/BG area or not enough system 'available memory to buffer the request.  "" IO05 Illegal disk track or sector specified.  "" IO06 $A reference to a protected track or to unassigned LG tracks was made. $ "" IO07 The driver has rejected the call.  "" IO09  LG tracks overflowed.  "" IO10 #A class get call was issued while one call was already outstanding. # "" IO11 'A type 4 program made an unbuffered I/O request to a driver that did not do ' its own mapping.  "" IO12 'LU not defined for use by this session. The SL command reports all logical 'units available to your session.  "" IO13 'LU either locked to another program, or I/O request pointed to an EQT locked ' to another program.  "" IO14 An I/O request was issued with the no-suspend option.  "" IO15 &Buffer size of a type 6 program is greater than what will fit in the user &map.  "" IO16 CPU backplane failure or I/O extender timing failure.  "" IO20 'You may not read a write-only spool file. Revise the call to SPOPN or check 'your SL command parameters.  "" IO21  Cannot read End-of-file. Revise your program and re-run it.  "" IO22 &Second attempt to read JCL card from batch input file by other than FMGR. &Revise program and re-run.  "" IO23 &You may not write to a read-only spool file. Revise your call to SPOPN or &check your SL command parameters.  "" IO24 &Write attempted beyond end-of-file; usually, spool file overflow. Obtain &more spool room on the disk (using the PK command).  "" IO25 'You tried to access a spool LU that is not currently set up. The spool may 'have been killed (with the GASP KS command).  "" IO26 'I/O request made to a spool that has been terminated by the GASP KS command. '&Reset the session logical unit with the :SL,lu,- or :SL,lu,,,lu command. & "" IOET 'End-of-tape condition on the specified LU. Mount a new tape and UP its EQT. ' "" IONR $The specified LU is not ready. Make the device ready and UP its EQT. $ "" IOTO 'The specified LU timed out. Examine the device, correct the problem, and UP 'its EQT.  "" IOPE  Parity error in the data transmission from the specified LU. Examine the device, correct the problem, and set the EQT up.  "" ILL INT Illegal interrupt on the specified channel.  "" "" GASP -48 SMP CANNOT BE SCHEDULED OR SPOOLING NOT INITIALIZED 'SMP program is not found or there is not a partition large enough to run SMP. 'SMP defaults to type 2 (real-time), 6 pages in size.  "" GASP -33 NOT ENOUGH ROOM ON CARTRIDGE 'The spool file's cartridge has no more room. Try using another cartridge or ' decrease the file size.  "" GASP -32  CARTRIDGE NOT FOUND 'The spool file's cartridge cannot be found in the cartridge list. Check the ' cartridge reference.  "" GASP -14 DIRECTORY FULL 'There is no more room in the disk's file directory. Purge any unused files '"and pack the disk if possible. Otherwise, try another cartridge. " "" GASP -13 DISK LOCKED &The cartridge specified is locked. Initialize the cartridge if it was not &initialized, otherwise keep trying.  "" GASP -12  EOF OR SOF ERROR 'Spooling attempted to read, write, or position a file beyond its boundaries. '&Check the record position parameters. The results depend on the file type &and the call.  "" GASP -8 FILE OPEN OR LOCK REJECTED 'The file was already opened exclusively, or was already opened to 8 programs; ''or the cartridge containing the file is locked. Use the CL or DL command to '&locate the lock. If the disk is being packed, check to see if spooling is &shut down.  "" GASP -7 ILLEGAL SECURITY CODE OR ILLEGAL WRITE ON LU 2 OR LU 3 '1.Attempt to access a file without specifying the security code or with the '& wrong security code. Use the correct code or do not access the file. &'2.Only the system manager may write on LU 2 or 3, and you are trying to do ' that but aren't the system manager.  "" GASP -6 FILE NOT FOUND OR NO ROOM TO CREATE SPOOL FILES.  "" GASP -4 MORE THAN 32767 RECORDS IN A TYPE 2 FILE 'You attempted to create a type 2 file with too many records or with a record 'size that is too large. Check the size parameter.  "" GASP -2  DUPLICATE FILE NAME 'A file already exists with the name specified. Repeat the command with a new 'name or purge the existing file.  "" ((GASP -1 DISK ERROR $The disk is down. Try again and then report the problem to the system $manager.  "" GASP 1 DISK ERROR n 'Disk associated with LU n is down; report the problem to the system manager. ' "" GASP 2  NUMBER OUT OF RANGE 'The number entered during GASP initialization is inconsistent with previous '&entries or it exceeds the maximum specified at generation; check the last &entry.  "" GASP 3  BAD JOB NUMBER! 'Specified job number not currently assigned; check assigned job numbers with 'DJ command; re-enter command with valid job number.  "" GASP 4 ILLEGAL STATUS &Command is not valid for current state of job or spool file; check status & with DJ or DS.  "" GASP 5  ILLEGAL COMMAND $Command not recognized by GASP; check and re-enter command correctly. $ "" GASP 6 NOT FOUND #Specified job or spool not currently assigned; check with DJ or DS. # "" GASP 7  GASP SEGMENT NOT FOUND. &The required GASP segment is not installed in the system or is not SP'd on &the same cartridge as the GASP main.  "" GASP 43  LU NOT FOUND IN SST &The outspool LU specified in command is not defined in the session switch &'table for this session user. Use FMGR SL command to add the LU to the SST or 'use another outspool LU.  "" GASP 46  INSUFFICIENT CAPABILITY &You attempted to execute a command that requires a higher capability level &than that assigned to your account.  "" GASP 54 SPOOL CARTRIDGE NOT MOUNTED. MOUNT ALL SPOOL DISKS.  "" GASP 55  MISSING PARAMETER &A required parameter has been omitted. Check the command and re-enter it &with the missing parameter.  "" GASP 56 BAD PARAMETER %A parameter was specified incorrectly; check the command and re-enter it %correctly.  "" LGON 06 &This is an informational diagnostic. The station (terminal) being logged &'onto has a configuration table entry which is a duplicate of an entry in your '$account file entry. If you have the capability to make changes in the $'session switch table (:SL,x,y), both the configuration table and your account '%file definition (of the session LU) are reported. In either case, your %%account file definition is used. Contact the system manager to have the % conflict removed.  "" LGON 09 $Your session has exceeded the maximum session switch table size. The $'overflow was detected in one of the following areas: building the SST entries '%defined by the user's account entry, building SST entries defined by the %&station configuration table or mounting system global disks. Contact your & system manager as you may be missing some device definitions.  "" LGON 11 &lhe logon program received the specified error when attempting to mount a &$private or group disk to this session. Check the terminal user's manual$(error summary) for more information.  ""LGON 13 #this is an informational diagnostic. log on detected a user sst which#&attempted to redefine a system disk's logical unit number. disk LU's must be &%direct maps (session LU=system LU). Contact your system manager to correct %your account.  ""LGON 15 #The Primary program as defined in the users account could not be found. #$This error results when a Primary program other than FMGR (i.e. CI) could $¬ be scheduled. An ID-segment must exist (via the RP command, permanently&loaded or generated into the system) for the Primary program. &When this occurs LOGON will revert back to using FMGR as the Primary program. &"Contact your system manager to have CI and CIX put into your system." ""LGON 16 $LOGON has found the number of and/or depth of the UDSP's to be to large.$#Information in the accounts file is erroneous. This can occur using an ##older accounts file (+@CCT!) from systems that did not support UDSP's.#"LOGON sets the number and depth to 0/0 and proceeds with the logon." Have your system manager update your user account entry with the ACCTS program and alter the number/depth of the UDSP's.  ""VM80$VMA system is corrupt. Self checks on the data structure did not pass a$$sanity check, so the VMA system aborted. Probable cause is by a program$exceeding a non-EMA/VMA array boundary.  ""VM81&Program is not a VMA program, or bad request to VMAIO or XLUEX. Re-load the&%program using the OP,VM or VM,number command loader command if such wasn't%done previously. ""VM82%The requested page is beyond the maximum page specified for VMA or the disk %%file is not big enough. A VMA array boundary has been exceeded in your %$program. The X-reg equals the requested page number; the Y-reg is the $$logical address to map in the requested page; the abort address is the $address of the instruction causing the problem.  "" VM83 'All pages locked. This will occur when your working set is not large enough ''to support the size of MSEG that you require in your program. Increase your 'working set size with the WS,number command.  "" VM84 'File type isn't 2 or record length isn't 1024 words. The file specified in '%the OPNVM or CREVM call wasn't type 2 with record length of 1024 words. % "" VM85 'The VMA scratch file cannot be purged. This error should occur only when the ''scratch file to be used by VMA is in use by another program. See the system 'manager to correct the program.  "" VM86 'Your program tried to access VMA after the VMA file has been closed. Revise 'your program.  "" VM87 'MSEG is too small. This is an error from the .ESEG routine when the number ''of map registers specified is too large for the MSEG in the program space. ''The program must be revised to use less MSEG area or make the MSEG bigger. '"Also issued by .ESEG when zero pages are requested to be mapped. " "" VM88 'Cannot re-specify the VMA file. Revise the program to call OPNVM or CREVM no 'more than once if the first call is successful.  "" VM89 Transfer too big for VMAIO or XLUEX.  "" EM89 Transfer too big for VMAIO or XLUEX.  "" EM80 %EMA system is corrupt. Self checks on the data structure did not pass a %%sanity check so the EMA system aborted. Probable cause is by a program %exceeding a non-EMA array boundary.  "" EM81 'This program is not a EMA program. Re-load the program using the EM loader 'command.  "" EM82 'The requested page is beyond the maximum page specified for the EMA system. '$A EMA array boundary has been exceeded, probably due to a bug in your $$program. The X-reg is the requested page number; Y-reg is the logical $&address to map in the requested page; abort address is the address of the &instruction causing the program. ""EM87%MSEG is too small. This is an error from the .ESEG routine when the number %%of map registers specified is too large for the MSEG in the program space.%%The program must be revised to use less MSEG area or make the MSEG bigger.%!Also issued from .ESEG when zero pages are requested to be mapped.! ""VM40FMGR-040 LU NOT FOUND IN SST &You are trying to access an LU that is not in your session switch table. Use &the SL command to add the LU to your SST.  ""VM46FMGR-046#Greater than 255 file extents on the VMA file. Make the VMA file size#larger.  ""VM33FMGR-033NOT ENOUGH ROOM ON CARTRIDGE%You made an attempt to access a cartridge which does not have enough room.% Try another cartridge, decrease the file size, or pack the disk.  "" VM32 FMGR-032  CARTRIDGE NOT FOUND &You attempted to access a cartridge that cannot be found in the cartridge &list. Check your cartridge reference.  "" VM19 FMGR-019 ILLEGAL ACCESS ON A SYSTEM DISK 'You attempted to write on a system disk; the system manager is the only user 'that has this capability.  "" VM15 FMGR-015 ILLEGAL NAME 'The file name does not conform to the syntax rules. Correct the name passed ' to the CREVM routine.  "" VM14 FMGR-014 DIRECTORY FULL 'There is no more room in the file directory. Purge any unused files and pack ''the disk if possible. Otherwise, try another cartridge. Probable cause is a ''directory full error when an attempt was made to extend the VMA file. (VMA '$files may have up to 255 extents, thus another directory track may be $necessary.)  "" VM13 FMGR-013 DISK LOCKED 'The cartridge specified for the VMA file is locked. Initialize the cartridge 'if it was not initialized, otherwise keep trying.  "" VM08 FMGR-008 FILE OPEN OR LOCK REJECTED 'You attempted to open a VMA file that was already opened exclusively or was '&already opened to seven programs, or the cartridge containing the file is &&locked. Use the CL or DL command to locate the lock. If the cartridge is &being packed, check to see if spooling is shut down.  "" VM07 FMGR-007 ILLEGAL SECURITY CODE OR ILLEGAL WRITE ON LU 2 OR 3 '1.An attempt was made to access a VMA file without specifying the security ' code or with the wrong security code. &2.An attempt was made to write on LU 2 or 3; only the system manager can & write to files on LU 2 or 3.  "" VM06 FMGR-006 FILE NOT FOUND 'You tried to access a VMA file that cannot be found. Check the file name or 'the cartridge reference.  "" ((VM05 FMGR-005 &File extent cannot be created when read-only access has been specified for &$the VMA file. X-reg = the requested page ID that caused the problem. $ "" VM02 FMGR-002  DUPLICATE FILE NAME 'A VMA file already exists with the name specified. Change file name to a new 'name or purge the existing file.  "" VM01 FMGR-001 DISK ERROR 'The disk is down. Try again, then report the problem to the system manager. '""ACCT 012LU NOT IN SESSION SWITCH TABLE$Enter the correct LU or exit accounts and put LU in SST with SL command.$ ""ACCT 004ILLEGAL LU&An LU was specified which cannot handle binary data, is not an input device,&is not an output device, or is a write-protected device. ""ACCT 013 TRANSFER STACK OVERFLOW #The transfer stack is only 10 deep. :TR,-11 clears the transfer stack. # ""ACCT 046 INSUFFICIENT CAPABILITY %You tried to execute a command that requires a higher capability level than %is defined for your account. "" ACCT-200  ACCOUNT NOT FOUND $A group account must be defined before a user can be assigned to it. $ "" ACCT-201  NO FREE ACCOUNTS The LO,0 command can be used to expand the accounts file.  "" ACCT-202 ACCOUNT WITH THIS NAME ALREADY EXISTS  "" ACCT-203  INVALID ACCOUNT NAME 1.Only 10 alphanumeric characters are allowed for a name. '2.When linking to an account which belongs to the GENERAL group, .GENERAL ' must be specified.  "" ACCT-204  INVALID PASSWORD '1.The system manager's password is required to run ACCTS from a non-session ' terminal. '2.The password of the account to which this is being linked is required. '3.The password for the current account is incorrect. $4.The new password contains an illegal character; characters must be $ printable and may not be delimiters (such as ., * /).  "" ACCT-205  INVALID COMMAND Enter HE to see the commands.  "" ACCT-206  INVALID FILE NAME  "" ACCT-207  INVALID CAPABILITY Capability must be between 1 and 63.  "" ACCT-208  INVALID DISK LIMIT Only 60 disks are allowed.  "" ACCT-209  INVALID SST ENTRY 'Session LU must be greater than 3 and less than 64; system LU must be greater 'than 0 and less than 255; session LU is already defined.  "" ACCT-210 CONFLICT IN SST DEFINITION User and group SSTs don't match.  "" ACCT-211 USER OR GROUP ID NOT AVAILABLE &Enter LIST,USER,.,6,ID to find the largest group ID and smallest user ID. &Purge and rebuild the conflicting account(s).  "" ACCT-212 INVALID NUMBER OF SST SPARES %Must be between 0 and 60; spares plus disk limit must be less than 68. % "" ACCT-213  INVALID MEMORY REQUEST Memory request must be between 70 and 7000 words.  "" ACCT-215 LIST NAMR IN TRANSFER STACK Reissue the TR command; there was an error in the namr.  "" ACCT-218  SESSION NOT SHUT DOWN "Session must shut down to load the accounts file with LOAD,namr. " "" ACCT-219 NOT ENOUGH ROOM IN FILE FOR NEW TABLE Enter LO,0 to expand the accounts file.  "" ACCT-220 CORRUPT STATION TABLE SPARES !The accounts file is corrupt. It must be rebuilt from scratch. ! "" ACCT-221  NOT AN ACTIVE SESSION The session addressed is not active.  "" ACCT-222  ILLEGAL SYSTEM LU System LU must be between 1 and 255.  "" ACCT-223 ILLEGAL SHUT DOWN PARAMETER  Shut down options are:  1.SDShut down session. 2.SD,REShut down session and release session memory. %3.SD,nn,RPShut down the account at LU nn, releasing private disks. %$4.SD,nn,RGShut down the account at LU nn, releasing group disks. $ You may not shut down your own session.  "" ACCT-225 SESSION MEMORY CAN NOT BE RETURNED TO SYSTEM (REBOOT).  "" ACCT-046  GREATER THAN 255 EXTENTS 'You cannot create a file that has more than 255 extents. Make the file size ' of the main larger.  "" ACCT-099 DIRECTORY MANAGER EXEC REQUEST WAS ABORTED %EXEC request made by D.RTR was aborted. Make sure that all disks being %accessed are up. Notify system manager.  "" ACCT-041 NO ROOM IN SST  "" ACCT-040  LU NOT FOUND IN SST 'You cannot access an LU that is not in your SST. Use the SL command to add ' the LU to your SST.  "" ACCT-039 CONFLICT IN SST DEFINITION  "" ACCT-035 63 DISKS ALREADY MOUNTED TO SYSTEM 'Session is limited to 63 disks; you attempted to mount the 64th. A disk will 'have to be dismounted before a new one may be mounted.  "" ACCT-034  DISK ALREADY MOUNTED $You tried to mount a disk that has the same cartridge reference as one $'already mounted to the system. Either dismount the duplicate disk or mount a ' different one.  "" ACCT-033 NOT ENOUGH ROOM ON CARTRIDGE #You tried to access a cartridge which has no more room. Use another #cartridge, decrease the file size, or pack the disk.  "" ACCT-032  CARTRIDGE NOT FOUND 'You tried to access a cartridge that cannot be found in the cartridge list. 'Check the cartridges available to your session with CL.  "" ACCT-030 VALUE TOO LARGE FOR PARAMETER Check the command and re-size the parameter.  "" ACCT-026 QUEUE FULL OR MAX PENDING SPOOLS EXCEEDED %The spool queue is full or the maximum number of pending spools has been %#exceeded. The job must be re-run when the space becomes available. # "" ACCT-025 NO SPLCON ROOM %SPLCON is full. This may occur when the spool system is competing with %#programs using their own spooling files, running outside of batch. # "" ACCT-024  NO MORE BATCH SWITCHES %The LU switch table is full. The size of the switch table specified at %system generation is inadequate; notify the system manager.  "" ACCT-023  NO AVAILABLE SPOOL FILES 'All spool files are currently being used. Re-run the job when a spool file ' becomes available.  "" ACCT-022  NO AVAILABLE SPOOL LU'S &All spool logical units are currently unavailable. Re-run the job when a &spool LU becomes available.  "" ACCT-021  ILLEGAL DESTINATION LU 'The LU specified was not allocated by GASP. Try again using an LU allocated 'by GASP.  "" ACCT-020  ILLEGAL ACCESS LU %1. The logical unit number specified in the LU or cs command was not a %# positive logical unit number. Re-enter the corrected command. #'2.There is an LU entry in the cartridge list that does not point to a disk '% device. The LU command was used to do a logical unit switch on the %$ device after the disk was mounted. Switch the LU back to its disk $' definition. If desired, dismount the disk. The LU can then be switched ' to a non-disk device.  "" ACCT-019 ILLEGAL ACCESS ON A SYSTEM DISK 'You tried to write on LU 2 or 3; the system manager is the only user who can 'write to files on LU 2 or 3.  "" ACCT-018 ILLEGAL LU; LU NOT ASSIGNED TO SYSTEM  You tried to access an LU that is not assigned to the system.  "" ACCT-017 ILLEGAL READ/WRITE ON TYPE 0 FILE 'You tried to read, write, or position a type 0 file that does not support the 'operation. Check the file parameters or the namr.  "" ACCT-016 ILLEGAL TYPE 0, OR FILE BLOCKSSIZE=0 'One of the following occurred: the wrong file type was specified, attempt to ''create or purge a type 0 file, or the size specified was zero blocks. Check 'the size and type parameters.  "" ACCT-015 ILLEGAL NAME &The file name does not conform to the syntax rules. Correct the name and & re-enter the command.  "" ACCT-014 DIRECTORY FULL 'There is no more room in the file directory. Purge unused files and pack the 'disk if possible. Otherwise, try another cartridge.  "" ACCT-013 DISK LOCKED &The cartridge specified is locked. Initialize the cartridge if it was not &initialized; otherwise, keep trying.  "" ACCT-012  EOF OR SOF ERROR &You tried to read, write, or position a file beyond the file boundaries. &'Check the record position parameters. The results depends on the file type 'and the call.  "" ACCT-011 DCB NOT OPEN 'You tried to access an unopened DCB. Use the create or open call to open the 'DCB and check for errors.  "" ACCT-010  NOT ENOUGH PARAMETERS 'One or more of the required parameters were omitted from the call. enter the ' required parameters.  "" ACCT-009 ATTEMPT TO USE APOSN OR FORCE A TYPE 0 FILE TO TYPE 1 'A type 0 file cannot be positioned with aposn or be forced to a type 1 file. ' "" ACCT-008 FILE OPEN OR LOCK REJECTED &You tried to open a file that was already opened exclusively, was already &&opened to eight programs, or the cartridge containing the file is locked. &&Use the CL or DL command to locate the lock. If the file is being packed, &check to see if spooling is shut down.  "" ACCT-007 ILLEGAL SECURITY CODE OR ILLEGAL WRITE ON LU2 OR LU 3 '1.Attempt to access a file without specifying the security code or with the ' wrong security code. Use the correct code. '2.((You tried to write to a file on LU 2 or 3. Only the system manager can ' write on LU 2 or 3.  "" ACCT-006 FILE NOT FOUND %You tried to access a file that cannot be found. Check the file name. % "" ACCT-005  RECORD LENGTH ILLEGAL 'You tried to read or position a file to a record that has not been written, ''or to write an illegal record length on an update. Check the file position ' or size parameter.  "" ACCT-004 MORE THAN 32767 RECORDS IN A TYPE 2 FILE 'You tried to create a type 2 file with too many records or with a record size 'that is too large. Check the size parameter.  "" ACCT-003  BACKSPACE ILLEGAL 'You tried to backspace a device (or type 0 file) that cannot be backspaced. ' Check the device type.  "" ACCT-002  DUPLICATE FILE NAME &A file already exists with the name specified. Repeat the command with a new &name or purge the existing file. ""ACCT-001DISK ERROR#The disk is down. Try again and then report the problem to the system#manager. ""CL- 01$The input to COMPL and CLOAD must be a source file from disk, not an LU.$ ""CL- 02$An FMP open error has occurred when COMPL or CLOAD tried to open either$$the source file or the list file. The reason for the failure to open the$is reported. ""CL- 03%No control statement was specified so COMPL or CLOAD opened the source file %"to find out the compiler to invoke (such as MACRO or Pascal). While"#scanning the file, an FMP read error occurred. This error is reported. # ""CL- 04%No control statement was specified so COMPL or CLOAD opened the source file %%to find out the compiler to invoke (such as MACRO or FTN7X). An FMP error, %%detected during the file close, is reported. This error may also occur when % closing the list file.  ""CL- 05&COMPL and CLOAD recognize the existence of all HP-supplied languages and some &$not supplied by HP: ALGOL, ASMB, COBOL, HPAL, FTN4, FTN4X, FTN7X, MACRO,$#MICRO, PASCL, RPG, SPL, CBASC and SNOBL. The control statement must be #%spelled exactly as shown and must appear in the first line of the program.% ""CL- 06no longer used ""CL- 07$This error is occurs when the language requested in the optional control$&statement or the source file control statement is recognized but the compiler &"cannot be found. COMPL and CLOAD both try to schedule the requested"compiler. Contact your system manager.  ""CL- 08$The compiler requested exists on the system and CLOAD or COMPL was in the $%process of scheduling it. An error was encountered scheduling the program. % ""CL- 09!A PASCAL program was compiled and a LINK/LOADR command file was not !$defined. CLOAD tried to create a command file which contains a referance$"to the PASCAL library. An error was encountered trying to create that "command file.  ""CL- 10"A PASCAL program was compiled and a LINK/LOADER command file was not"!defined. CLOAD created a command file containing a reference to the ! PASCAL library and when trying to write to that file an error was encountered. ""CL- 11&This session has more than 80 spool files on the spool disk. CLOAD and COMPL &uses outspool file names constructed with characters:   1 and 2 = CO  3 and 4 = LU number of your terminal (01 to 99) 5 and 6 = a counter from 01 to 80.  #This error means that 80 of these files already exist; no more will be#%created for this session. To inhibit spooling (bypassing the cause of this %#error), append a colon and NS to the list device name in the runstring: # COMPL,sourcefile,6:NS sends the listing to LU 6 without spooling.  ""CL- 12&The compiler aborted, usually because of the OF command. If the abnormal end &"was due to other compiler errors, the error will be on the listing or "%reported to your terminal. Try the compilation again. If it fails again,% notify your system manager.  ""CL- 13$The compilation was unsuccessful because of language syntax errors and/or $#warnings. You'll need to correct your source code. Check the list file # for a description of errors  ""CL- 14%The system is out of ID segments, so it is impossible to RP the compiler or %"loader. Notify the system manager, who can probably free up some ID"segments. After some ID segments are free, try again. ""CL- 15%One of your input parameters was in error. Usually your list LU is illegal %or not defined for your session. A FMP error is reported.  ""CL- 30not used ""CL- 31not used ""CL- 32$CLOAD was trying to schedule LINK or LOADR and encountered an FMP error.$Report this to the system manager. The FMP error is reported.  ""CL- 33"The Spool disk is getting full. This is a warning only. Notify system "manager. ""CL- 34&The loader aborted abnormally when it was loading your program, probably due&%to an OF command. Any other abnormal ending error will be reported to your %&terminal. Try the load again. If the error occurs again, notify the system&manager. ""CL- 35&The load was not successful. Check the loader listing for the type of error. &%Loading errors usually are a result of undefined externals, which indicate%%that you are probably missing a subroutine somewhere. If this is the case, %"a LINK/LOADR command file should be specified when scheduling CLOAD." ""CL- 36not used ""CL- 37not used L-CK SUM 'Checksum error. A file specified to the loader did not contain relocatable ''format code. A typical mistake is specifying the source file name instead of ''the binary file name. If the file specified was correct, that file has been '&overlaid or corrupted. Purge that file, recompile the original source and &try again.  "" L-CM BLK 'Common-block error. The largest blank common declaration of a program does '%not appear in the first module of the program loaded. Programs that use %&blank common must declare that common in the first routine loaded and that &'common declaration must be the largest encountered in the load. This error ''is also generated if the amount of common required exceeds that available. ''Also, a module containing blank common cannot be loaded after an LO command ' has been entered.  "" L-CO RES 'You tried to replace or purge a memory-resident program, which is illegal. ' "" L-DU ENT &Duplicate entry point. This is usually due to loading the same subroutine &'twice, or you may have named a subroutine with the same name used somewhere ''else within the program. Also, a subroutine loaded with the main must not be ''again loaded with a segment. The load map lists all subroutines loaded with 'the main.  'In an MLS program, this error occurs when the same routine is loaded twice in '$the same path. This error also occurs for MLS programs where the main $&contains a common block declared Allocate, and a son contains a NA,, and the common block is declared No-allocate in the son. $ "" L-DU PGM &Duplicate program. You may have loaded the same program several times but &did not get rid of the earlier loads.  'Supposing your program is called DHRTR. If its ID segment isn't released and ''you reload the program, the loader issues a W-DU PGM warning and renames the ''new copy to ..RTR. If you try to reload a third time without releasing any '%ID segments, the loader issues this error and stops. To remove the two %"copies of the program, use the OF command from FMGR or the system "OF,program,8 command. Then reload.  "" L-EX CPY 'Existing copy. You attempted to replace or purge a program when copies of it ''already existed, which is illegal. Wait until the copies finish (or if you ''are the system manager, use OF,copy,8) and then purge or replace the program. ' "" L-ID EXT "No ID extensions are available for the EMA program. Free up some "ID extensions before loading the EMA program.  "" L-IL ALC &External references to named common which appear in an allocate record are &not allowed before the allocate record occurs.  "" L-IL CMD $Illegal command. You attempted to purge a program under batch mode or $%attempted to use the PU command within a loader command file, which are %illegal.  "" L-IL DRN 'Illegal disk-resident node specification. Disk-resident nodes must start at '&the first node below the root. Also, all memory-resident nodes must occur &before all disk-resident nodes in preorder.  "" L-IL EMA 'Illegal EMA specification. You tried to use shareable EMA with the old EMA '%relocatable format. This will not work when a shareable EMA label file %%exists on LU 2. Another cause is mixing old and new EMA relocatables. % "" L-IL MLS 'One of the following errors occurred during preliminary checks of the command 'file. Checking is done to ensure:   1.Command syntax is correct.  2.Command order is correct.  3.Referenced files are accessable.  4.Nodes are defined in preorder. " 5.Disk-resident node definitions follow memory-resident node " definitions. & 6.The first disk-resident node definition occurs as a son of the root & node.  7.The root node is a memory-resident node.  8.The total number of nodes is no more than 1024.  9.The maximum node depth is no more than 31.  $An L-IL MLS error also occurs when an instruction other than a JSB (a $'subroutine call) is used to access a symbol in a s((on node. This error occurs '$during the load, not during preliminary command file checking, and is $reported as:   /MLLDR: <16-bit non-JSB instruction>  /MLLDR:

 /MLLDR:  /MLLDR: L-IL MLS  "" L-IL PRM "The runstring or a command in a command file contained an error. " "" L-IL PTN 'You specified a partition in the load of the program; however, that partition ''does not exist or has been downed due to a parity error. Try again, using a 'partition that exists or else none at all.  "" L-IL REC 'Illegal record type. The loader found a record that was not a NAM, ENT, EXT, ''DBL, EMA, GEN, LOD, END record, or extended record. The checksum was OK but ''the record was not identified. Was the file specified a relocatable file? 'Try recompiling and loading.  "" L-IL REL &Illegal relocatable record produced by the compiler. One of the following &&probably occurred: the number of entries specified in an ent or ext record &'was zero; the number of instruction words specified in a DBL record was zero; ''a relocatable indicator in a DBL record was seven; a DBL record was produced '%that referenced an external but that external was not in any of the EXT %'records; something other than an IDR record was found in an indexed library's '#directory. Recompile and try again; this could be a compiler bug. # "" L-IL RPL 'Illegal RPL. You tried to do a JSB to a user-specified RPL in a son node. ''For example, node M.1 has a JSB Q and node M.1.1 has a NA,Q or RE,%Q, but Q 'is an RPL.  "" L-IL SCB "Illegal session control block value (negative capability level). " "" L-IL SEG 'Illegal segment specification. You tried to load a module with a type 5 NAM 'using MLLDR.  "" L-IN CAP #Insufficient capability. You attempted to load, purge, or replace a #&permanently loaded program without having a session capability level high &'enough to perform this function. These functions require a capability level ' of 60 or higher.  "" L-LM LIB &The limit on the number of libraries specified by the LI command (10) has &'been exceeded. Instead of specifying another library, use SE,libraryfile. ' "" L-ML BDT &Multiple block data subprogram. You attempted to initialize the same area & more than once.  "" L-ML EMA %Illegal EMA declaration. Two different EMA labels were used, or the EMA %'declaration was not made in the main of a program and that main loaded first, ''or an EMA label was also declared as an entry point in another module. The ''EMA declaration must be in the main of the program and that main must be the ''first module loaded. The EMA statement must be in any segment or subroutine 'referencing any element in EMA.  "" L-NO IDS &Not enough ID segments to finish the load. Your system has run out of ID &'segments. Call the system manager, who may free some ID segments by OF'ing ' some programs.  "" L-NO RSG 'No root segment specified. An MLS program must have a memory resident root ''specified by the M command. Check your loader command file to make sure that ''the first node specification is M and that the M occurs before any relocation 'occurs.  "" L-NO SNP %Notify your system manager. The loader could not find the file $SYENT. % "" L-OV BSE 'Base page overflow. This program has used too many base page links. If the ''CP (or MP) option was not used, try using it to put links on the current page '%instead of all on the base page. If the CP option was used, reload the %&program but this time specify the OP,LE option. This will list all entry &&points and the base page linkages. This load will also fail, but you now &'know which modules are using up all the links. By using the LO command and ''aligning those modules to page boundaries, the linkage needs can be reduced. ''Alternately, you may wish to rearrange the loading order of your subroutines. '#This may improve (or make worse) the linkage needs of your program. # "" L-OV DSK 'Your program exceeds the maximum disk space allowed a program. It occupies '&more 128-word sectors than can be recorded in one word of the ID segment. & "" L-OV FIX 'This is a fixup table overflow. The loader needs more room for its internal ''symbol table and fixup table. Since LOADR is a type 4 program it can be made ''as large as the largest normal background partition. Since MLLDR is a type 6 ''program, it can be sized to 32 pages. To give the loader more room use the ''SZ system command. SZ is documented in the Terminal User's Reference manual. ' %If SZ doesn't solve the problem, try the loader's SE command after every %%loader RE command. This will reduce space needed for fixups. Also, try %'loading a number of subroutines (still using the SE command) before loading 'the main.  "" L-OV MEM 'The relocation address has exceeded 77777B, 77777B - MSEG size, or the size '&you specified using SZ,n. The size of the code loaded so far exceeds the &&maximum size that you specified or exceeds the largest possible size for a &'program. The maximum size for extended background (EB) non-VMA/EMA programs '&is 32k words (including base page), and 30k for EB VMA/EMA programs. The &'maximum size for large background (LB) non-VMA/EMA programs is 28k words, and ''26k for VMA/EMA programs. Consult the generation map for the maximum size of ''realtime and background programs. If your program is too large for its type, ' try the following:  '1.If possible, change the program's type. For example, if the program is '' not type 6 (extended background), make it type 6 with the OP,EB command. ''2.If you specified a size, then don't specify a size. The loader will do ' all it can to make your program fit. 3.Segment the program. '4.If the program is already segmented, then try to reduce the size of the '$ longest path (for MLS programs) or the longest segment (for type 5 $ segmented programs). '5.Check if there are any data declarations that can be moved to VMA/EMA. ' "" L-OV PTN 'The size specified using the sz command was too large for the program's type. ''For the SZ,n format of the size command, the loader adds the requested number '&of pages to the relocation base for the type of the program being loaded. &%For the SZ,+n format of the size command, the loader sums the relocation %'base, code size, MSEG (if used), and the requested number of pages. In both ''cases, the result must be 32k words or less. Specify a smaller size, or try '!loading the program as large background or extended background. ! "" L-OV RBP 'Overflow of rotating base page (MLLDR only). A module tried to relocate on ''base page and the ORB instruction could not be processed without causing base 'page to rotate. Try moving the module.  "" L-OV SAV &Overflowed save area. The amount of space reserved by the SA command was &'insufficient for all save areas of all modules of this program. Reload the 'program, specifying the required size of the save area.  "" L-OV SNP &To many collisions occurred while hashing the system entry points into the &$SYENT file.  "" L-OV SYM &Symbol table overflow. The loader needs more room for its internal symbol &&table and fixup table. Since LOADR is a type 4 program, it can be made as &&large as the largest normal background partition. Since MLLDR is a type 6 &'program, it can be sized to 32 pages. To give the loader more room, use the '#SZ system command as shown in the Terminal User's Reference Manual. # 'If the SZ command does not solve the problem, try the loader SE command after '%every loader RE command. This will reduce space needed for fixups. In %'addition to using the SE command after every RE command, try loading a number '$of your subroutines (still doing SE) before the main of the program. $ "" L-PE LDR 'You tried to purge, replace, or permanently load with a copy of the loader. ''Run the original loader (not a copy): RU,loaderProgram:IH, where the :IH will 'inhibit copying of the loader.  "" L-RE SEQ 'Record out of sequence. The loader was relocating and encountered records in '&the wrong order or an end record was missing. Generally this error occurs &'when relocating from a tape, and the tape is incorrectly positioned. If the '%relocation was from a file, the file is probably corrupt. Recompile the % source and try again.  "" L-RF EMA &You tried to access an EMA external with offset or indirect. If this Is a &'fortran program you probably forgot to put the $EMA statement in a subroutine '$that accessed an EMA element. If the program was written in assembly $'language, use the HP-supplied routines .IMAP and .EMIO to map in the arrays ''and then index into the array via the address returned, not via a reference ' to the EMA label.  "" L-RP CPY 'You tried to do a program replace on a copy of another program. Replacement '&operations can only be done on the original program, not the copy. Either &'specify the original program, or make sure the new program name is the same ''as the name of the original. Edit the source of your program and make sure 'the name is the original program name.  "" L-RP MLS %You tried to use MLLDR to replace a program that was loaded by LOADR or %&vice-versa. Another cause is trying to replace or purge a memory-resident & program using MLLDR.  (("" L-RP PGM $You tried to replace or purge a permanent program that has terminated $$serially reusable, saving resources, or was operator suspended (so the $'program still owns a partition). Remove the program using the OF command and 'repeat the purge or replace operation.  "" L-RQ PGS %You did both a SZ and AS and the size is larger than the partition. The %&number of pages that you specified in the load of the program exceeds that &'number of pages in the partition you specified. Either specify a different '&partition or no partition at all. Another possiblity is that the program &'could never fit into a partition, even after memory reconfiguration with the '%largest possible amount of physical memory. This error also occurs if a %negative size is specified in the runstring.  "" L-SH EMA 'A shareable EMA label file did not have the control command $SHEMA starting '%in the first column in the first line, or there was another error in the %#file, such as a label longer than 16 characters. Note: if the label #%specified in the SH command is not found in the system, then the loader %'responds with ?? if the command was entered interactively, or with L-IL PRM 'if the command was in a command file.  "" L-SH PTN 'A program cannot be assigned to a shareable EMA partition, a subpartition of ''a shareable EMA partition, or a mother partition which has any shareable EMA ' subpartitions.  "" L-SS ENT 'You attempted to access an SSGA entry point but you did not ask for SSGA at ''the beginning of the load. Reload the program but this time do an OP,SS at '&the beginning of the load. The two names reported are the module in which & the reference was made and the entry point being referenced.  "" L-SZ ALC Allocate size error. Possible causes are:  '1.The first allocate record with this name has to specify the maximum size. '$ An allocate record in this module has a size larger than the first $ occurrence of the record. '2.A common block was declared non-save, and was declared save in a module ' loaded later. &3.The name was as an EMA type, and its name occurs in this module with a & non-EMA type, or vice-versa.  "" L-SZ EMA &EMA size is greater than 1000 pages and VMA is not being used. This error &&can also occur if the second of two modules that have the same name has a &larger local EMA size than the first module.  "" L-TR ADD 'No transfer address; only subroutines were loaded. The loader could not tell ''which module of the program was the main and which ones were subroutines. If '%the program was written in FORTRAN or Pascal, no modules were found that %'contained the "Program " statement. If the program was written in ASMB '$or Macro you probably forgot to put a label on the END statement. If $'multiple routines have labels on the END statement, the first one encountered ''is used as the main of the program. In a multi-level program, the transfer 'address (the main) must be in the root.  "" L-UN EXT %Undefined externals exist which prohibits the load from completing. An %%undefined external is a reference made by the routine you are loading to %!another routine. For example, if your program had such code as: !  CALL XXX (parameter1, parameter2)  &then the subroutine XXX would be an external. With this error, you loaded &$the routine that contained the call to XXX but you didn't load the XXX $&subroutine itself; XXX is an undefined external. Reload your program, and &include all necessary relocatables.  $It is possible to force load a program or segments that have undefined $'externals. This is done with the loader command FO. However, you must make ''sure that the code that references the external is never executed. If it is '"executed, your program will probably abort with a DM or MP error. " "" L-VM EMA 'You tried to use shareable VMA. Shareable virtual memory is not supported. ' "" L-VS EMA The specified VMA size is illegal.  "" W-DU PGM %Duplicate program name warning. Your program is renamed automatically: %'program ABCDE is renamed to ..CDE. No action is required, although you must 'refer to this new copy as ..CDE and not ABCDE.  "" W-IL CMD 'You attempted to relocate a module or transfer to a command file while doing ''special processing when undefined externals exist. At this time, RE,xxx or ''TR,yyy (or any M or D command) are illegal. In the case of an MLS program, ''/E, EN, and EX are also illegal at this time. Legal commands are SE, SL, LI, ' FO, DI, AB, and /A.  "" W-IN CAP 'Due to insufficient user capability, the program priority was changed to 99. ' This is only a warning.  "" W-RQ PGS #The required number of pages is too large. One of the following has #occurred:  &1.The program was assigned to a partition and the partition is not large &% enough. Reassign the program to a partition that is large enough. %&2.The size specified was larger than any existing partition. Change the &# size or reconfigure memory, creating a partition large enough. #%3.No size was specified, but the program is too large for any existing %% partition. Reconfigure memory, creating a partition large enough. %%4.Shareable EMA was used, and the shareable EMA partition is not large % enough for the program's EMA.  'Look at the load map to check if it was the program code size, EMA size, or '%working set size which caused the problem. Try the system SZ command to % resize the program.  "" W-SV MIX &You are trying to mix save named common with named common. A named common &%block matches the name of a previously loaded save named common block. % "" W-UN EXT%Undefined externals exist; this is a warning. When the prompt is reissued, %$do an SE of the library containing the required subroutine. If the entry $&point was specified in an NA command, use LI,filename on the file containing&the module, followed by an SL command. ""W-WS EMA$The specified working set size is too large. Enter a smaller working set $$size or use the system WS command to change the size of the working set.$ ""READ 001$The requested mag tape unit is down. Use the UP command (specifying the$appropriate EQT) to enable the device. ""READ 002&The mag tape READT is trying to restore contains information in a format not&%restorable by READT. The tape may have been saved with another utility, or %$with FMGR DU or ST commands. In any case, READT cannot restore the data. $"This error will also result when the next tape of a two or more tape"%cartridge is not the correct one. Mount the correct tape and refer to the%READT section in the Utilities manual. ""READ 003%The mag tape unit you wish to use is locked to some process. Find out who%¤tly has the mag tape locked (run WHZAT) and wait until it's released or &have the user release it for you.  ""READ 004 'The parameter describing the desired mag tape unit does not satisfy READT's '%requirements for a legal mag tape LU. The possible causes include: the %$specified mag tape LU is not between -63 and 63, or the driver of the $specified LU is not a mag tape driver.  "" READ 005 "The desired mag tape unit is off-line. Press the on-line button. " "" READ 006 &READT rejected the use of the specified disk LU. Possible causes include: &&the disk LU number must be a negative number but no smaller than -63; the &'desired disk LU is not in your SST; the driver type of the requested disk LU ' is not a disk driver.  "" READ 007 %The driver detected a parity error when reading from the mag tape. Try %'again. If this happens again, the tape may be irrecoverable and you may have 'to re-make a new tape (with WRITT).  "" READ 008 %End of tape. Mount the next tape to read the remaining portions of the %&cartridge. Enter GO to continue, or enter AB to halt the process. Note, &'however, that an AB response to READT will leave an incomplete cartridge on 'the system.  "" READ 009 'The cartridge has a file open or the cartridge is locked to another program. ''Use CL or DL on that cartridge to find out what's locking the disk or which 'file is open.  "" READ 010 'You are operating in a nonsession environment. An LU must be specified (use 'a negative LU) since there isn't a free disk in the pool.  "" READ 011 'READT rejected the specified size (number of tracks) because of a bad format '%(such as a negative value), or the size requested is not large enough to %restore the cartridge on mag tape.  "" READ 012 $READT tried to mount a cartridge and detected an error. This error is $returned in the FMGR format. Possible error conditions:  %FMGR 012Duplicate label or CRN already mounted. Have that disk or CRN % removed. Then run READT again. &FMGR 056The size requested is too large for the disk LU specified. Run & READT again with a smaller size parameter. 'FMGR 063You currently have mounted the maximum number of disk cartridges in ' your session. Remove one and run READT again. 'FMGR 064There are presently no more free disk LUs in the disk pool. Have ' someone release a cartridge not currently in use. 'FMGR 065There is a conflict in SST definition. You are trying to mount a '' disk LU that has a session LU number assigned to some other device. '& (( check your sst and find out to what LU that number is assigned, & then change it or choose another disk LU. &FMGR 066There is no more room in your SST to place an entry. Remove an && entry from your SST if possible (with an :SL,lu,-), or call the & system manager.  "" READ 013 'The desired disk LU or the available free LUs in the disk pool are not large 'enough to restore the cartridge on mag tape.  "" READ 014 The FMP tracks on LU 2 or 3 are not restorable with READT.  "" READ 015 %The Private/Group attribute of the cartridge on tape conflicts with the %'attribute of the mounted cartridge. Run READT with the correct P/G option, 'or mount a compatible cartridge.  "" READ 016 &Bad transmission of mag tape to memory record. READT detected an error in &'the transmission of data from the mag tape unit into memory. Try reading the ' tape again. If it happens again, notify the system manager.  "" READ 017 $Internal buffer too small; the tape records are longer that the READT $'internal buffer. The buffer size in READT must be increased and READT must 'be reloaded.  "" READ 018 &READT aborted by user. This happens when you respond NO to any prompt, or &when READT is halted using the BR system command.  "" READ 019 &Disk error on LU n, track x. READT encountered an error when reading the &listed track of the listed LU.  "" READ 020 'Verify error on track x. A compare error was encountered when verifying the 'listed track.  "" READ 021 'An invalid parameter was specified in the READT command runstring. Check the 'runstring and re-enter the parameter.  "" WRIT 001 'The requested mag tape unit is down. Enable the device using the UP command ' on the device's EQT.  "" WRIT 002 Only the system manager can save system disks.  "" WRIT 003 $The mag tape you wish to use is locked to some process. Find out who $'currently has the mag tape locked (with WHZAT) and wait until it's released 'or have the user release it for you.  "" WRIT 004 'The parameter describing the desired mag tape unit does not satisfy READT's '$requirements for a legal mag tape unit. Possible causes include: the $$specified mag tape LU is not between -63 and 63, and the driver of the $specified LU is not a mag tape driver.  "" WRIT 005 "The desired mag tape unit is off-line. Press the on-line button. " "" WRIT 006 'A write ring is required to write information on a mag tape. Place a write 'ring on the tape and run WRITT again.  "" WRIT 007 %The driver detected a parity error when reading from the mag tape. Try % again. If it occurs again, start over with a different tape.  "" WRIT 008 %End of tape. Mount the next tape to write the remaining portions of the %'cartridge. Enter GO to continue, or AB to halt the process. Note, however, '"that AB will leave a partially-completed cartridge on your tape. " "" WRIT 009 'The desired cartridge has a file open or the cartridge is locked to another ''program. Use CL or DL on that cartridge to find out what's locking the disk ' or which file is open.  "" WRIT 010 'The desired cartridge or disk LU could not be found. Use the CL command to 'find out which cartridges are mounted to your session.  "" WRIT 011 &WRITT rejected the use of the specified disk LU. Possible causes include: &&the disk LU number must be a negative number but no smaller than -63; the &'desired disk LU is not in your SST; the driver type of the requested disk LU ' is not a disk driver.  "" WRIT 012 You cannot save FMP tracks from LU 2 or 3 with WRITT.  "" WRIT 013 "WRITT tried to read data from a disk LU into memory and found the "'transmission irregular. Run WRITT again. If the error occurs again, there ''may be a bad track on that disk LU. Save as much data as you can and notify ' your system manager.  "" WRIT 014 &The transmission of data from memory to mag tape may be faulty. Run WRITT &again. If it happens again, notify your system manager.  "" WRIT 016 'Bad transmission -- mag tape to memory record x. WRITT detected an error in ''data transmission from the mag tape unit into memory. Try reading the tape 'again. If it happens again, notify your system manager.  "" WRIT 020 'Verify error on track x. A compare error was encountered when verifying the 'listed track. Run WRITT again.  "" BCKUP 01  SIZE UP THE PROGRAM! "Insufficient buffer space is available to perform the operation. " "" BCKUP 02  INVALID PARAMETER &The utility terminated due to an invalid parameter input. This same error &&code is returned if the utility is terminated using EX, EN, /E, /A or AB. & "" BCKUP 03  TAPE MOUNT ERROR The tape was not correctly mounted.  "" BCKUP 04  TAPE COULD NOT BE LOCKED The tape lock LURQ call failed.  "" BCKUP 05  TAPE IS OFFLINE &The tape is not on-line; press the On-Line button on the mag tape drive. & "" BCKUP 06  INVALID FILE NUMBER $A file number was given that was past the end-of-data mark. For a UN $'restore, this could mean that the file at which the tape is positioned is not 'the first file in the UN save.  "" BCKUP 07 PUSHBUTTON [SAVE] [RESTORE] FAILED %A pushbutton save or pusbutton restore did not complete successfully (PB %option).  "" BCKUP 08  NO DISK PARAMETERS #A call to DSCPR returned no parameters. This is an internal error. # "" BCKUP 09 BREAK SENSED  This acknowledges the system BR command to break the program.  "" BCKUP 10  UNRECOVERABLE VERIFY The destination media failed to verify.  "" BCKUP 11  SPARE ATTEMPT FAILED #A disk that supports sparing could not be spared (VE option only). # "" BCKUP 12  TAPE WRITE ERROR An EXEC write request to the tape LU has failed.  "" BCKUP 13  UNRECOGNIZED TAPE FORMAT The tape is not in any supported format.  "" BCKUP 15  NO MATCHING SUBCHANNEL &The destination LU of a unit restore has fewer subchannels than the source &'unit (can be seen off-line for SE restores). This message appears if you try 'to do an on-line restore of a save from/to save tape.  "" BCKUP 16  DEST TRACK MISMATCH 'The destination LU has a different number of tracks than the source LU. The '$decision has been made to abort the operation after being prompted to $continue.  "" BCKUP 17  DEST SECT/TRACK MISMATCH %The destination LU has a different number of sectors per track than the %source LU.  "" BCKUP 18 TAPE READ ERROR - HARDWARE 'An EXEC read request from a tape failed due to hardware problems. Tape read ' checksum errors do not abort the operation, but are reported.  "" BCKUP 19  TAPE CHECKSUM BLOCKS BAD %Both checksum blocks on a cartridge restore contain bad data. This is a %fatal error.  "" BCKUP 20  DISK IS WRITE PROTECTED &The disk is write protected. If subsequent operations exist (i.e., an SE &restore) you may continue.  "" BCKUP 21  FORMAT SWITCH IS OFF %The format switch for the destination disk LU is not on. If subsequent %operatons exist, you may continue.  "" BCKUP 22  DISK LU LOCK FAILURE %An LURQ call to lock a disk LU failed, or a lock failed and you elect to %'terminate the operation. The disks are not locked off-line, so this check is 'not made when the utility is running off-line.  'If you are in session mode on-line, dismount any cartridges to be restored or '&copied to, but do not release them. If they are released, that disk LU is &&removed from your SST (session switch table) and an LU that is not in your &SST cannot be locked, resulting in this error.  "" BCKUP 23  DISK IS MOUNTED 'A disk LU is mounted, and you elected to terminate any remaining operations. 'This check is not made when running the utilities off-line.  "" BCKUP 24  BAD LU WAS ACCESSED "An internal error. If this error is encountered, contact your HP "representative for assistance.  "" BCKUP 25 UNEXPECTED EXEC CALL FAILURE 'An internal error in the same category as BCKUP error 24. Off-line, however, ''it could indicate that incorrect track map entries were defined. This would '%likely be due to defining disk attributes in a way that contradicts the %'hardware characteristics, such as too many cylinders or too many sectors per 'track.  "" BCKUP 26  UNEXPECTED END OF DATA &An end of data was encountered with some tape reads still expected. This &'should only occur if the tape save using PSAVE was halted with the system BR ' (break) command.  "" BCKUP 27  UNEXPECTED END OF FILE 'An end of file was encountered with some tape reads still expected. Contact ' your HP representative.  "" BCKUP 28 SE RESTORE, NOT PSAVE TAPE 'An SE restore was selected, but the saved tape is not in PSAVE format. The 'SE option is not supported in this case.  "" BCKUP 29 UNIT RESTORE, NOT UNIT SAVE !A UN restore was selected, but the saved tape is not a UN save. ! "" BCKUP 30 INVALID TAPE NUMBER MOUNT 'An incorrect tape was mounted for ((a restore operation. Initially, this must '$be tape number 1, and subsequent tapes must be sequentially ordered. $ "" BCKUP 31  INVALID MU SAVE An MU save was requested from disks of differing classes.  "" BCKUP 32  PB RESTORE, NOT PB SAVE A PB restore of a non-PB saved tape was requested.  "" BCKUP 33  INVALID TRANSMISSION LOG #The transmission log on a tape read was not of the expected value. # "" BCKUP 34  NOT ENOUGH SUBCHANNELS &Insufficient track-addressing subchannel definitions were specified. The &&original operation cannot be completed; however, you can continue and the &$utility ignores any subchannel numbers larger than the maximum number $defined.  "" BCKUP 35  INVALID TR COMMAND &An illegal TR command was issued. The command is ignored and the utility &continues using the previous input device.  "" BCKUP 36 UNRECOGNIZED MODEL NUMBER 'When specifying the track map, an unidentifiable model number was specified. ' The command is ignored.  "" BCKUP 37  DISK MODEL TYPE CHANGED $A disk model number was specified that is different from the source or $destination LU. The command is ignored.  "" BCKUP 39  PASCAL RANGE ERROR $A specified track parameter is larger than its field in the track-map $structure. This is a fatal error.  "" BCKUP 40 SON PROGRAM NOT SCHEDULED PROPERLY 'The off-line utilities check for proper scheduling from the father program, ''to ensure that the common routines are correctly initialized and to prevent '%problems with sharing resources by more than one utility. Note that the % off-line utilities may not be run using the FMGR RU command.  "" BCKUP 41  UNEXPECTED ERROR "This error should never be seen. Contact your HP representative. " "" BCKUP 42  TAPE READ ERROR-CHECKSUM #The tape information was invalid. This error does not cause program #termination.  "" BCKUP 43  xxxxx SCHEDULE ERROR 'The son program (for example, PSPAR) could not be scheduled; it is probably 'not loaded.  "" BCKUP 44  INVALID PB DEVICE(S) $A pushbutton operation was requested for non-CS80 devices, or for CS80 $devices not on an integrated unit.  "" BCKUP 45  TAPE NOT INITIALIZED &A save to a CS80 cartridge was requested to an uninitialized tape medium. &Use FORMC to initialize the tape, then re-run the utility.  "" BCKUP 46 SON PROGRAM TERMINATED ABNORMALLY 'A son program scheduled by a backup utility (for example, PSPAR or FORMC) was 'terminated, generally with the OF command.  ""BCKUP 47 CANNOT DEFAULT DISK LU %The disk LU has been defaulted in an off-line system and the utility cannot %find an LU of the appropriate type.  ""BCKUP 48 FROM-TO SAVE INVALID HERE &An attempt was made to restore a from-to save tape on-line, or to specify an&LU/SE/PB option. "CMD::RTE_6:4:219:39 644 0 0 155400 5310707473 33704 "CMD::RTE_6:4:219:39 $0'"CMD +#:+#;+#;maFST CMD help file for 92084-17004 REV.6000 920904 ""REV "CMD 92084-17004 REV.6000 920904 RTE-VI FMGR help ""** Comment** comment line FMGRMeans of putting a comment into a transfer file.The first character after the first '*' must be either '*' or ' ' or ','. "" ?? Explain error ??[,error#] FMGR [ 10 ]  Gives short explanation of FMGR error# error# FMGR error code (default = last error issued)""AC Allocate crn  AC,crn [,P/G [,size [,id [,#dir tracks ]]]] FMGR [ 10 ]  #Allocate a cartridge to the session user from the spare cartridge pool. #  crn Cartridge reference number to be assigned to the allocated  cartridge.!P/G Private (P) or Group (G) cartridge designation (default = P). !#size Number of tracks needed on cartridge (default = first available). ##id ASCII identifier of cartridge (default = DC00XX; XX is system lu# number of terminal). #dir # of tracks used by file directory (default = 1). "" AN Print message AN,message FMGR [ 20 ]  Print message on current list device. "" CA Calculate global CA,global#[,p1[,op1,p2[...[,op(n),p(n+1)]]]] FMGR [ 40 ] Calculate global parameter values. !global# Integer preceding G in G-type global, or "integer:P" for ! P type globals. "p1-pn Values used in calculations; if omitted, global is nulled. "op1-op(n) Operations performed on operands p1-pn.  + add two operands  - subtract two operands / divide second operand by first  * multiply two operands O OR  X XOR A AND "" CL List cartridges CL[AL] FMGR [ 10 ] Display list of user accessible cartridges.  AL Display list of all cartridges in system "" CLOAD Compile & load  Automatically invokes the appropriate HP supported compiler or Assembler for a specified source file and schedules LINK or LOADR to relocate program. RU,CLOAD,snamr[,lnamr[,rnamr[,cs[,opt[,ldcmd[,ls]]]]]]  snamr : source file to be compiled.  lnamr : list file or lu. Lu's will be spooled unless the lu is  in the form "LU:NS" (i.e. "6:NS"). Default depends on the name for the source file.  rnamr : file name for the relocatable code. Default depends on  the name of the source file.   cs : compiler select. Allows selection of compiler. Default  to compiler select statement found in source file.   opt : a file name for PASCAL source file containing PASCAL  compiler options or a list of option characters for all  other compilers and assemblers.  ldcmd : LINK/LOADR command file to be passed to LINK/LOADR. No default. If a PASCAL program is being compiled and no LINK/LOADR command file is supplied, CLOAD supplies a command file to be passed to LINK/LOADR.  ls : loader select. Use "LO" to schedule LOADR rather than LINK. Default to LINK. "" CN Control device CN[,namr[,function [,subfunction]]] FMGR [ 20 ]  Issue control request to non-disk device.  namr Type 0 file name or lu (default = LU8). function Octal control code or mnemonic. mnemonic ! RW rewind (Default for tapes, CTU, and mass storage devices)! EO end-of-file  TO top-of-form (Default for printers and terminals)  FF forward space File BF backspace file  FR forward space record  BR backspace record  LE leader (default for paper tape punch) !subfunction Carriage control for line printer or terminal; use if! function is "TO". 0 suppress spacing for 1 line +n space n lines  -n page eject or space n on terminal"" CS Change spool opts CS,lu[,attribute][,newlu[,priority]] FMGR [ 30 ]  Modify or change spool options set up by SL command. lu Lu defined at set up. attribute One of the following: RW reset file to first record PU change SAve flag to PUrge  SA change PUrge flag to SAve  PA remove HOld option! EN write EOF and terminate spool. Spool file placed! in outspool queue (default)  BU change to buffering  NB change to no buffering NP change lu and/or priority information, by  specifying the newlu and priority parametersnewlu new lu  priority new priority "" CO Copy cartridge "CO,source,cartridge2[,options[,name1[,name2[,msc]]]] FMGR [ 20 ]" $Copy files record by record from source cartridge to cartridge2. Records $longer than 128 words will be truncated. !source crn or negative lu of cartridge to copy, or filemask !" of files to copy (dashes in name match any character)"cartridge2 destination cartridge crn or negative lu options C clear destination cartridge before copy$ D copy file even if name exists on destination cartridge $ E eliminate extents on copied files P purge source files after copy V verify that files are copied correctly "name1 first file name to be copied from the source cartridge ""name2 last file name to be copied from the source cartridge"$msc master security code if not in session and P or C options$ used "" COMPL Compile program  Automatically invokes the appropriate HP supported compiler or((Assembler for a specified source file. RU,COMPL,snamr[,lnamr[,rnamr[,cs[,opt]]]]   snamr : source file to be compiled.  lnamr : list file or lu. Lu's will be spooled unless the lu is  in the form "LU:NS" (i.e. "6:NS"). Default depends on the name for the source file.  rnamr : file name for the relocatable code. Default depends on  the name of the source file.   cs : compiler select. Allows selection of compiler. Default  to compiler select statement found in source file.   opt : a file name for PASCAL source file containing PASCAL  compiler options or a list of option characters for all  other compilers and assemblers.""CR Create file CR,namr FMGR [ 20 ] Create a disk file (data not transferred). CR,namr,lu,RE [,BS [,EO [,BI ]]] ,WR ,FS ,LE ,AS ,BO ,BO ,PA ,contword2  ,contword1Create a non-disk type 0 file (data not transferred).  namr File to create; see NAMR key. Required subparameters for disk file create:  file type (must not be zero)  file size (must not be zero)  record size (when type = 2) For non-disk create, only file name and (optionally) the  security code and cartridge reference are specified.  lu Lu of non-disk device (positive). REadWRite Legal input/output (no default).BOth BSpace FSpace Legal spacing (default=FS for READ devices, no space for BOth all others).  EOf !LEader Control subfunction (default=EO for mass storage devices, !PAge LE for paper tape punch, PA for line printer). #contword1 Control subfunction (equivalent to function code in FCONT,# see RTE-VI Programmer's Manual); supplied if" further end-of-file definition needed; specify as octal " integer of which only least 5 bits are used.#contword2 Subfunction (equivalent to bits 6-10 of IOPTN parameter in#$ FMP OPEN call; see RTE-VI Programmer's Manual); supplied if $$ further data definition needed; specify as decimal or octal $ integer of which only the lowest five bits are used. ""NAMR namr %namr = filename[:security[:cartridge[:filetype[:filesize[:record size]]]]]%$ \----------------v-----------------/$# required for file creation only# or  namr = logical unit number  filename 6 character ASCII (A-Z),(0-9),!,",#,$,%, &,',(,),=,^,\,@,[,],_,;,*,<,>,.,/,?  Plus minus and comma not allowed.  First char not number or space.  No embedded spaces security -/+ number or 2 ASCII characters - read and write protected + write protected only 0 gives no protection (default) cartridge -/+ number or 2 ASCII characters - LU number + Cartridge  0 Use first available cartridge (default)  filetype 0 to 32767; see Terminal Users Manual for description filesize +n blocks (block = 128 words) -n n of 128 block chunks  -1 rest of disk (* valid type 3 or greater only *) record size size of records in words; type 2 file only"" CT Control terminal CT,namr[,function[,subfunction[,message]]] FMGR [ 20 ]  Issue control request to terminal. namr Type 0 file or LU of interactive device.  function 11B Space down a specified number of lines.  subfunction:  0 skip 2 lines  +n skip n lines  -n skip n lines  20B Enable terminal (default)  subfunction:  Only required when enabling multipoint terminals (see 91730A Multipoint Terminal Interface Subsystem Users Guide). 21B Disable terminal. 22B Set time out. subfunction:  Timeout value in units of 10 milliseconds. message Message to write to terminal; default is no message."" DC Dismount cartrdg DC,cartridge[,RR] FMGR [ 10 ]   Dismount cartridge.  cartridge Positive cartridge reference number or negative lu.  RR Session only -- deletes cartridge entry in system ! cartridge list. If cartridge originally came from the! spare cartridge pool, it is returned. "" DL Directory list DL [,cartridge [,msc]] FMGR [ 10 ]  or DL,namr [,msc]  List the file directory of one or all of the mounted cartridges.  "cartridge Cartridge identifier; positive for CRN, negative for lu."$ Zero or none specified lists all cartridges mounted to user.$ !namr Mask specifying the file entries in the directory to be !$ output. Minus signs in file name portion match any character. $ &msc Two-character FMP master security code. If specified, directory&& list includes file security codes and track and sector addresses. &"" DP Display parms DP [,p1 [,p2...[,p15]]] FMGR [ 20 ] Display parameter value or global names. p1-pn are parametersto be displayed.""DU Copy file#DU,namr1,namr2 [,record format,eof control [,file# [,#file ]]] FMGR## ,record format [ 20 ] # ,eof control Transfer data from an existing file or lu to another existing file or lu. Does not create namr2.  namr1 Source of data  namr2 Destination of data $record format Format of data being transferred; default is derived from$# namr1 if namr1 is a disk file; default is ASCII if namr1 # is a non-disk device. See below for options. %eof control IH to inhibit EOF on namr2 and leader punching. SA to save% embedded EOF's in namr1.  &file# File or subfile on namr2 where transfer starts (default = 1).& "#files Number of nondisk files or disk subfiles to transfer "$ Default is one, unless namr1 is a disk file and file# is $ omitted, in which case default is 9999.  Record format options:   AS ASCII records.  BA Binary absolute records with checksum. BR Binary relocatable records with checksum.  BN Binary relocatable records without checksum. MT Magnetic tape ASCII records.# MS Magnetic tape SIO (System Input/Output) records are written on# namr2. Standard records are expected on namr1.  MSBR Magnetic tape SIO binary relocatable records (MS+BR).  MSBA Magnetic tape SIO binary absolute records (MS+BA).""EX Exit  EX ,SP [,RG [,KI]] FMGR [ 1 ]  RP Initiate log-off process or to terminate FMGR.  SP save private cartridges RP release private cartridges  RG release group cartridges KI abort active session programs""MOVE files To move files to already existent files SEE DU KEYTo move files to create new copies SEE ST KEY""HE Help  HE [,keyword [,LU ]] RTE, FMGR [ 1 ]  Detailed error code explanation. $keyword Identifiers related to error code. In session, default is last $" error posted. Blanks are significant. If a keyword contains " an imbedded blank use back quotes as delimiters for  the keyword. For example: HE,`FMGR 019`,6 .  "lu Device for explanation output (default = user's terminal)."""IF Conditional IF,p1,op,p2 [,skip] FMGR [ 40 ]  Means of doing conditional skip in transfer file.  p1,p2 Values to compare. One or both may be globals. op Operator; choices are EQ, NE, LT, GT, GE, LE. skip +/- number lines to skip if true. Default is 1. "" IN Init cartridge IN,mstr scty,cartridge,label,id [,1st track FMGR [ 60 ]  [,#dir tracks [,#sec/trk [,bad trks ]]]]   Initialize a cartridge. IN,mstr scty--new mstr scty  Change master security code. New code is separated from old by two minus signs. mstr scty Two character FMP master security code.  "cartridge Cartridge identifier, positive for CRN, negative for lu." Must be -lu if first time cartridge is initialized.  "label Cartridge reference number that identifies the cartridge. " May be 1 to 32767, or two ASCII characters.  !id Cartridge information label; Up to 6 ASCII characters.! Must follow FMGR namr restrictions.  "1st track First track to be used on the cartridge. If LU2, must be " 8 greater than last system track. Default = track 0.  #dir tracks Number of directory tracks (1 to 48). Default = 1.  $#sec/trk Number of 64 word sectors per track. If LU2/3, parameter is$ ignored.  $bad trks Bad track list. Up to six track numbers separated by commas. $""LI List file LI,namr [,S [,n1 [n2 ]] FMGR [ 10 ]  ,B  ,D   List file namr to list device (which can be set with LL command).  namr File name or logical unit to list to (see NAMR key).  S ASCII format (default for type 0, 3, or 4 files).B Binary format (default for all other type files). D Directory information only. n1 Starting line. Default is 1.$n2 Ending line. D((efault is n1 if n1 is specified, else last line of$ file."" LL Set list file/dev LL,namr FMGR [ 20 ]  Set new list device or file.  namr New list device or file. May be a file name or lu number.  In session namr is initially 1, your terminal.  Commands that send messages to list device: DL, CL, LI, AN. "" LO Set log device LO,lu FMGR [ 40 ]  Changes current log device assignment. "lu Specifies the logical unit number of the new log device; a file" may not be used as a log device. "" MC Mount cartridge MC,lu [,P/G [,size [,id [,#dir tracks [,label ]]]]] FMGR [ 10 ]  \--------------v-------------/  Used only if no valid directory  already on track 1  Make an unmounted cartridge available for use. $lu Lu# of cartridge to be mounted (may be pos or neg). If in session,$! cartridge must first be in user's Session Switch Table (SST).!  P/G Private or Group.  SEE 'AC' KEY for remaining parameters."" ME Display messages ME [,namr [,0 ]] FMGR [ 10 ]  ,1  Display contents of user's message file. #namr File name or non-disk lu to receive messages (default = user's# terminal).  clear 1 (clear message file).  0 (do not clear; default)."" OF Abort program FMGR: " OF,program Same as (OF,program,8) RTE command, below. [ 30/60 ]" RTE:" OF,program,how [ 30/60 ]" Terminate a session program; requires capability of 30. Terminate any program in system; requires capability of 60.  "how 0 Remove from time list; disk tracks not released (default)." 1 Terminate immediately; release disk tracks.  8 Terminate immediately and release ID segment (must be  issued to segments as well as the main)."" PA Pause with msg PA [,lu [,message ]] FMGR [ 40 ]   Suspends execution of current job or transfer file and transfers control to a specified device, and optionally prints a message.  lu Lu to which control transfers (default = log device). message 1 to 80 ASCII characters to be printed on lu."" PK Pack cartridge PK [,cartridge] FMGR [ 20 ]   Pack cartridge (recover tracks and directory entries assigned to purged files and close gaps between files).  #cartridge Cartridge reference number, positive for label or negative## for lu (default is to pack all accessible user cartridges). #""PU Purge file  PU,namr FMGR [ 20 ]  Purge a file and its extents from the system.  #namr File descriptor of file to purge; only file name and, optionally, ## security code and cartridge reference are required. See NAMR key. #""RN Rename file RN,namr1,namr2 FMGR [ 20 ]  Rename namr1 file name to namr2 . The file name, security codeand/or file type can be changed  namr1 Existing file name, security code and/or file type. namr2 New name, security code and/or file type.   See Terminal Users Guide for restrictions on changing file types. For form of namr see 'NAMR' key."" RP Restore program &RP,namr Restore program file "namr", which must be a FMGR [ 30 ] &! type 6 file on lu 2 or 3, to a system ID segment. ! &RP,namr,program Restore program file "namr" using the ID segment [ 30 ] & of "program".  &RP,,program Release "program's" ID segment where "program" is a [ 30 ] & program with its ID segment in memory. "namr Identifies type 6 file on logical unit 2 or 3 that was saved " SP command. #program 1-5 character name of program whose ID segment is assigned to#" namr (format 2) or released (format 3). Its ID segment must " have been created by a previous RP command."" RT Release tracks RT,program RTE, FMGR [ 30 ]  Release system tracks from program. Program must be dormant.!More information on disk tracks is available by running the program !'LGTAT'.""RU Run program#RU[IH],program[:IH] [,parameters] RTE, FMGR [ 30 ]# !Run a program. RUIH inhibits passing of parameters to the program. ! program Name of program to be run (FMGR and RTE) or namr of ! type 6 file containing program or procedure file to be!# executed (FMGR only). [:IH] inhibits cloning a new copy of # the program.  parameters parameter string to be passed to the program. ""SE Set globals SE, [,p1 [,p2...[,p9]]] FMGR [ 40 ]   Set or clear global parameters 1G-9G where p1-p9 are values to be !converted to global parameters. If all parameters omitted, globals !"are nulled. If any one parameter is omitted, corresponding global is "unchanged. !Example: SE,1,,,5 sets 1G = 1 and 4G = 5 all others are unchanged. ! See 'DP' key for displaying globals.""SL Switch LU""SL Spool LU ""SL Display LU  SL [,LU] RTE, FMGR [ 10 ]  Display session lu information. ( See MORE for spooling, lu switch ) "lu Session lu# for which linkage information (corresponding system"! system lu#, equipment table (EQT) entry number, subchannel #). !! Default is to list information for all session lu's in user's! Session Switch Table (SST). Example: SLU 14=LU # 15 = E 1 S 5 D !Session LU 14 is assigned to System LU 15 Equipment #1 Subchannel 5 !and the device is down. See 'UP' key to change device status.  SL Switch LU " SL,session lu,system lu RTE, FMGR [ 30/50 ]" $Map a new session lu to system lu currently in the user's SST (capability $30), or add a new system lu to user's SST (capability 50).  or   SL,session lu,-  Delete lu mapping in SST.  session lu Lu# by which session users address a system lu#. $ Can be same as the system lu, but is only required to be so$# for disk cartridges. Session lu#'s must be unique in SST. # "system lu Lu# by which the system addresses a physical or logical"! device. System lu#'s are defined at system gen time.! SL Spool LU  $ SL,lu [,namr [,attributes [,outlu [,priority [,prog ]]] FMGR [ 30/50 ] $ Spool setup and outspool control.  lu The session lu to which a spool file is to be associated. # Specified I/O requests made to that lu will be translated by the#" system to reference the associated spool file on disk. The lu"" must not be lu 2 or 3, any lu associated with a disk driver, a"$ spool lu, or if in a job system lu5 (standard spool input device).$ #namr Name of existing file the be used as a spool file (default is for # system to assign a spool pool file). #attributes Defines characteristics of spool access. Any 3 attribute## codes can be combined (no delimiters or blank delimiters). # #NO Queue file for immediate outspool (else wait for CS,LU command).# RE File is read only. !WR File is write only; EOF will be written into file at setup. !!BO Read and write Code BO to spool already existent user file. !WN Same as WRNO or Write Now.BU Buffered; file is buffered.  PU Purge; file is to be purged on completion of outspooling. SA Save; file is to be saved.  SH Write spool headers ST Don't write spool headers  Default: outlu +---------------------------------+ | specified not specified | +-------------------------------------------------| | specified | WR SH WR SH PU | namr | | | | not specified | WR SH BO ST | +-------------------------------------------------+ outlu Lu to which spool output is to be sent. "priority Outspool priority; if in session, default priority is 99." The default in a batch job is the priority of the job.   prog Program prog will be immediately scheduled, with wait, ! when the spool file is closed. If specified no automatic ! outspooling of the spoolfile occurs. ""SM Send message  SM,user,namr,message FMGR [ 10 ]  Send message and/or file to another user's message file. #user Logon identification of user to send message to (user.group).#  namr Name of file or non-disk lu containing data to be sent.  message Literal message (string) to send.""SP Save program  SP,namr [,PR [,cap ]] FMGR [ 30 ]  ,GR $Place a disk resident program and its ID segment in a type 6 file created $by this command. !namr File name of type 6 file which is created; cannot be a lu#;!! first five characters of file name must be identical to name !" of the saved program. Any cartridge may be specified. Default " is to first cartridge in the users cartridge list.   Default subparameters:   security code: 0  cartridge : first cartridge in user's cartridge list file type : ((forced to type 6! file size : forced to minimum of blocks required on disk. ! record size : forced to 128  "" ST Copy file/Status FMGR:  ST,namr1,namr2 [,options [,file# [,#files]]] FMGR [ 20 ]  "Store data in namr1 to namr2. Namr2 is created if it is a file name. " namr1 Source of data; existing file or non-disk lu#. $namr2 Destination of data. If namr2 is a file name, it must not already $ exist (see 'DU' command if namr2 already exists).  options See options description in 'DU' command.  file# Positive integer indicating file (or subfile) relative to beginning of namr1 at which to start transfer; default=1.  #files Number of non-disk files or disk subfiles to transfer.! Defaults to 1 unless namr1 is on disk and file# is omitted, ! in which case it defaults to 9999. RTE:'ST,program <-- Display status of program. RTE [ 10 ]' 'ST,0 <-- Display name and partition # of currently executing [ 10 ]'# program; if no program is currently executing, 0 is# printed.  'ST,partition# <-- Display name of program in partition #; if empty, 0 [ 10 ]' is printed. program Name of program whose status is to be printed.  $partition# Partition # defined at system generation; can be from 1 to 64, $$ depending upon how many were defined. If undefined partition$$ number is specified, NO SUCH PROG is printed. If partition is $ empty, 0 is printed.   The status of a program is printed on one line in a fixed format:   pr s res mpt hr min sec ms T  where:  pr is the priority. s is the current state of the program: 0 = dormant 1 = scheduled 2 = IO suspended 3 = general wait  4 = unavailable memory suspend 5 = disk allocation suspend  6 = operator suspend or programmed suspend 9 = background segment $res mpt hr min sec ms Time schedule parms (see 'IT' key); will all be $# zero unless program is scheduled by the clock.# %T Appears when program is currently in the time list as a result of the % IT and ON commands. ""SV Set severity  SV,severity [,global# [,IH]] FMGR [ 20 ]   Change the system log device severity code to a new number. Used primarily with transfer files  severity New severity code; it may be:  0 Display all commands and errors (default).  1 Display no commands, all errors. # 2 Display no commands, no errors except those requiring response.# Such errors terminate job.  3 Same as 2 but prevent active job termination.# 4 Display no commands, no errors, prevent active job termination.# %global# G global number in which to place severity code being replaced.% IH Optional parameter to inhibit echo of command entry. "" SY System command SYcommand FMGR [ 1 ]  Execute RTE system command from FMGR.  !command The system command to execute. No delimiter is permitted ! between SY and the command. The FL, HE, RS, SL, and TE  commands are not allowed. "" TE Msg to console TE,message RTE, FMGR [ 10 ]  Send message to the system console. "" TR Transfer to file TR [,namr [,parameters ]] FMGR [ 1 ]  ,-integer  Transfer control to a file or logical unit.  Transfer transfers control to a file from which FMGRgets its commands until it reaches the end of the file or an error returns control to the log device (as controlled  by the SV command).  #namr Identifies file or lu to which TR transfers; up to 10 transfers#$ can be nested; a stack of return pointers is saved. The commands$ in the transfer file must be preceded by a colon. $-integer Indicates a transfer back the specified number of files in the$" nested stack. The transfer stack is flushed if the integer " exceeds the current level of nesting.  $parameters The values to be set into the globals 1G through 9G; position $% determines to which global the value is passed; omitted globals % are unchanged.  A ':' or ',' may be used instead of 'TR'. "" VL Set VMA cartridge VL,+crn FMGR [ 60 ] VL,-lu orVL  Sets the default disk lu for the VMA backing store file, system- wide.  !-lu/crn System lu# or crn of a system disk cartridge. Cannot be! lu 2 or 3. All default VMA backing store files will go on this cartridge. EDIT scratch files will also be put  here.  !If VL command is not given, or no parameter is specified, the first !lu on the session cartridge list is used for the backing store. ""WH Run WHZAT WH [,LU [,option [,prog]]] RTE, FMGR [ 10 ]  or  WH [,option, [prog]] [ 10 ] Schedule WHZAT program to display the current system status. "lu The session lu# of the device on which the information is to be"! displayed. Defaults to the lu of the command input terminal.! "option Indicates type of information to be displayed. Default is to "# display only those programs associated with the user's session. #  AL Status of all scheduled and suspended programs. $ SM Same as AL option except that all state-3 programs not having $ "father-son" relationship will not be displayed. PA Status of all partitions being used. PL Status of all programs (or a specific program) in the  or system.  PR  prog program name whose ID segment information is to be shown.  ('-'s may be used for wild card characters) ""NO KEY""CMD RU,CMD [,key [,listfile [,helpfile [,NI|SK]]]] !CMD A general purpose help facility program (this program!). ! %key Key is used to search the help file for the entry to print out.%# If key is not recognized, or if key is a single letter, then #$ alphabetically similar keys are printed out. The default key$# is "NO KEY". Case in key is not significant. The key must# be must match exactly as typed to be found by CMD.  $listfile File to print text to. The default is the terminal CMD was run $ from. !helpfile Name of indexed help file CMD is to use. Must have been !% produced by the program GENIX. Default is file /SYSTEM/CMD.HLP% or !CMD::0.  $NI Invoke non-interactive mode. Normally CMD prompts user at the$$ terminal for additional actions. Default is interactive mode. $ &SK Display the text for a single key with 'More...' prompts at pause& breaks and exit when finished.  $This program reads an indexed sequential help file to display text for a$&given key to the list file. This file is generated by the program GENIX from&!a text file prepared with the editor; see the info for key "GENIX". !""GENIX  #A help text file processor, to be used in conjunction with program CMD. # To run GENIX: RU,GENIX,infile,listfile,outfile Input to GENIX:  & "" in col 1 and 2 ends previous text entry and signals that the next line &# is a keyword line. The first 24 characters of a keyword line are #$ taken as the key. Any leading blanks are stripped off of the key. $$ Remaining text on the keyword line is ignored. Text following the $ keyword line is referenced by that keyword. % & in col 1 causes pause prompt to print to user terminal when the file %# is read by program CMD. Puts a NULL character in the text at that#% point (thus, null characters should not be a part of any input text).% The remainder of the line is ignored. $The EOT character (control D) is used by GENIX to mark the end of valid $ text for a KEY word entry. Genix puts this character in the text $automatically whenever text is terminated by a new KEY. Thus, EOT chars$should not be a part of input text.  EXAMPLE: ""  CMD This text is printed whenever the KEY 'CMD' is matched. ""  ONE ""  TWO These two KEYS both refer to this text line.  & (pause and ignore this text )  More valid text for 'ONE' or 'TWO' KEYS.  ""  NEXT KEY IS 'NEXT KEY'% The key here is 'NEXT KEY', with no leading blanks. The " IS 'NEXT KEY'"%& portion of the keyword line lies past the first 24 character positions, and& so is ignored. "" AB Abort batch job AB,optn RTE [ -- ]  "Abort currently executing batch job. Under session, command is only"valid when entered from the system console.  optn 0 = disk tracks not released  1 = release all disk tracks"" AG Partition aging AG,x RTE [ 60 ] or AG,OF [ 60 ]  Set and turn off partition aging.  &x The integer partition aging value. Must be in range 10 <= x <= 32767.& Partition will be aged by 2 every 10 * x milliseconds. #OF Parameter to turn off partition aging by setting the age value to # zero. "" AS Assign partition AS,program,partition# RTE [ 50 ]  #Assign program to always execute in same partition #. To(( unassign, set#partition# to 0. &Note: A shareable EMA program may not be assigned to a shared EMA partition. &"" BL Buffer limits "BL [,lower limit [,upper limit]] RTE [ 10/60 ]" #Set buffer limits for output buffering if limits given (capability 60). #BL with no parms prints current buffer limits (capability 10). Buffer limits are system wide. lower limit Lower buffer limit in words; defaults to 0 if  upper limit changed. $upper limit Upper buffer limit in words; defaults to existing limit if$ only lower limit specified.  See RTE-VI Terminal User's Manual description of BL command for an explanation of the buffer limits."" BR Break program "BR [,program] RTE [ 10/60 ]" !Set break flag in "program's" ID segment. Many programs respond to!this by testing for a set break flag with IFBRK function.  "program Name of program whose break flag is to be set. Default is"" to set break flag in current session program. Setting flag "! in any program in user's session requires capability 10.!# Setting flag in any program in system requires capability 60. #"" CU CPU utilization CU,ON RTE [ 60 ]  OFF Displays bar graph in S-register representing % of CPUutilization.""DN Down device DN,eqt RTE [ 60 ]  or  DN,,lu [ 60 ]  #Declares an I/O controller or device down (i.e., unavailable for use by #the RTE system). #eqt The equipment table entry # of the I/O controller to be set down. # lu The system lu# of the I/O device to be set down."" EN Enable console EN,mstr scty [,option] RTE [ -- ]  "Enable system console as a session terminal. Command only valid when "entered from system console. mstr scty Two character FMP master security code.  #option If zero (default), master security code is not required in## "OP" commands; if one, master security code is required in# "OP" commands. ""EQ EQT status  EQ,eqt RTE [ 10 ]  Prints description and status of an I/O controller. (Go to MORE for EQ Buffering command)  eqt Equipment table entry number of an I/O controller. !Status information printed as: select code DV.nn D B Unn status ! Select code is IO select code number. DV.nn is the driver routine.D is D if DMA required; 0 if not. B is B if automatic output buffering; 0 if not. Unn is the last subchannel addressed. status is the logical status: 0 = available  1 = IO controller not available (down) 2 = IO controller not available (busy) 3 = waiting for DMA   EQ Change buffering   EQ,eqt,UN RTE [ 60 ]  ,BU  #Change the automatic buffering designation for a particular I/O device. # eqt Equipment table entry # of the I/O controller. UN Turns off buffering (UNbuffered).  BU Turns on buffering (BUffered).""FL Flush output  FL RTE [ 10 ]  Eliminate buffered output to a session terminal.  Equivalent to FMGR command:  CN,lu,23B where lu is the session LU to flush."" GO Unsuspend program "GO[IH],program [,p1...[,p5]] RTE [ 30/60 ]" GO reschedules a program previously suspended. IH Inhibits passing of command string.  "program Name of suspended program to be rescheduled for execution;"# default is current session program. Rescheduling any program #" in user's session requires capability 30; rescheduling any" program in system requires capability 60.  "p1..p5 Parameters to be passed to program; only passed if program"% has suspended itself through EXEC call, and IH is not specified.% To suspend a program see the 'SS' key."" IT Interval timer IT,program [,res,mpt [,hr [,min [,sec [,ms ]]]]] RTE [ 50 ]  \--v--/ \-----------v------------/  set set initial start time  interval  time !Sets time values for a program so that it automatically executes at ! selected times when scheduled with the ON command (see 'ON' key).  !Takes a program out of the Time List (program must be dormant) when !no optional parameters are specified.  'program Name of program to put on time list to be scheduled for execution. ' %res Designates units of interval time specified by mpt, as follows:%  1 tens of milliseconds 2 seconds  3 minutes  4 hours  %mpt Number of res units to wait between executions of program. Must% be in range 0-4095. If 0 program runs only once.  !hr,min,sec,ms Initial start time. Default for any parameter not! specified is zero. %Not specifying any optional parameters removes program from the time list.%The program must be dormant for this command. "" LU Set system LU %LU,lu Print current lu assignment and status RTE [ 60 ] %or%LU,lu,eqt [,subchannel ] Change lu assignment RTE [ 60 ] % #lu System lu# for which assignment information is desired or# for which reassignment is desired.  !eqt Equipment table entry number to assign lu. If zero is ! specified, lu becomes the bit bucket. subchannel Subchannel number to assign lu. $Lu assignment and status information is printed in the following format:$  LU# EQT# Subchannel # Status "" ON Schedule program ON[IH],program [,NOW] [,p1...[,p5]] RTE [ 50 ]  $Schedule a program for execution. Up to five parameters and the command$string may be passed to the program. Use ON command to run programs in the Time List (see 'IT' key).  IH Inhibits passing of command string.  program Name of program to be scheduled. #NOW Schedules a program immediately that is normally scheduled# by the system clock (see 'IT').  !parameters Parameters to pass to program when it begins execution. !" ****WARNING****IF THE FIRST PARM IS 'NO' OR 'NOW' IT WILL " ****WARNING****BE TAKEN AS THE 'NOW' OPTION!! "" PR Program priority PR,program,new priority RTE [ 50 ]   Change program priority.  program Name of program whose priority is to be changed.#new priority New priority to assign to program; 1 is highest, 32767 is # lowest. "" QU Timeslice quantum "QU [,quantum [,limit]] RTE [ 10/60 ]" #Examine system timeslice and quantum and fence (capability 10); specify # no optional parameters.  Modify system timeslice quantum and fence (capability 60). quantum New timeslice quantum. Value must lie between 0 and 32767 milliseconds. "limit Priority level at which timeslicing begins; default is 50. "# All programs of higher priority (lower priority number) will # not be timesliced. ""RS Restart FMGR  RS RTE [ 10 ] Aborts and reschedules a session's copy of FMGR.""SN Snapshot  SN,x RTE [ 30 ]  OF  $Set snapshot value. Tells system to take samples of the operating system $activity every 10 * x milliseconds.  x Integer snapshot value in range 1 <= x <= 32767. OF Sets the snapshot value to zero."" SS Suspend program "SS [,program] RTE [ 30/60 ]" Suspend non-dormant session program (capability 30). Suspend any non-dormant program in system (capability 60). $program Name of program to be suspended; default is the current session $ program.  See 'GO' key to restart program at suspend point. ""SZ Program size #SZ,program <--- Print program size information. RTE [ 30 ]# #SZ,program,p1 <--- Assign new size to non EMA program. [ 30 ]# #SZ,program,p1,p2 <--- Assign new size to EMA program. [ 30 ]# $program Name of program for which size information is desired or to be$ changed.  #p1 New required program size in pages for non-EMA programs. For # EMA programs, p1 is the new EMA size.  p2 New MSEG size for the EMA program specified. $Before program size requirements can be changed, program must be dormant$and not currently resident in a partition. Program size information format:  AAAAA EE BBBB CCCC DD  where: $AAAAA = Address of last word +1 of user program. If program is segmented, $ AAAAA is address of the last word +1 of largest segment. #EE = Required program size. Includes MSEG size if program uses EMA. #%BBBB = Minimum required partition size of the program. If the program is%$ of EMA type, BBBB equals the program code size plus its EMA size. $CCCC = Program's EMA size. Printed for EMA programs only. DD = Program's MSEG size. Printed for EMA programs only.""TI Print time  TI (( RTE [ 10 ]  %Prints the current year, day, and time, as recorded in the real-time clock, % in the following format:   YEAR DAY OF YEAR HOUR OF DAY MINUTES SECONDS ""TM Set time  TM,year,day [,hr [,min [,sec ]]] RTE [ 60 ]  Allows user to set or reset the real-time clock. year Four digit year. day Three digit day of the year.hr Two digit hour of the day; default = 0. min Two digit minutes of the hour; default = 0. sec Two digit seconds of the minute; default = 0. "" TO Device timeout TO,eqt <--- Print time-out value for eqt. RTE [ 10 ] TO,eqt,numb <--- Change time-out for eqt. RTE [ 60 ]  eqt Equipment table entry number of the I/O controller. "numb Number of 10 millisecond intervals to be used as the time-out"# value. Cannot be set <500 for terminals driven by drivers DVR00 # or DVR05. See also 'CT' key for setting time-out on terminal devices. "" UL Unlock EMA partn UL,label RTE [ 60 ]  "Unlock a sharable EMA partition so that it can be released for use by "other programs.  label The label of the shareable EMA partition to unlock. $If the number of programs actively using a locked shareable EMA partition $#is zero, then unlocking it will release the partition for use by other#$programs. If the partition with the given label was not locked, there is $%no action taken as a result of this command. If there is no shareable EMA%#partition with the given label, an "INPUT ERROR" message is displayed.#""VS VMA size  VS,program [,vema size ] RTE [ 30 ]  Print or set program's virtual EMA size. #program Name of program for which to print or set virtual EMA size.## If program does not use virtual EMA a 'ILL PGM ERR' message# will be given.  $vema size Page size of virtual EMA for program specified. Value must be $ in the range 32 to 65536. $If vema size is not specified, the program's virtual EMA size is printed$ in the following format:   aaaaa bb cccc dd ee fffff  where   aaaaa = address of last word +1 of program. bb = program page requirement." cccc = required partition size (program code + working set)." dddd = working set size. ee = MSEG size.  fffff = virtual memory area size. %To alter EMA size, the program must exist, be dormant, must not be memory %resident, must not be a segment, and must not own a partition. #Due to the structure of the page table, if x is specified in the range#175777B to 177777B, the size will be rounded up to 177777B. "" WS Working set size WS,program [,new ws size ] RTE [ 30 ]  Alter or examine a VMA program's working set size. %program Program for which to print or alter the working set size for.% new ws size The number of pages to be used as working set.   If new ws size is not specified, the working set size is printed in the format:  aaaaa bb cccc dddd ee fffff where   aaaaa = address of last word + 1 of program  bb = program page requirement! cccc = required partition size (program code + working set)! dddd = working set size size in pages ee = MSEG size in pages fffff = virtual memory area size %To alter the working set size, the program must exist, be dormant, not be %%memory resident, and must not currently own a partition. If any of these %conditions exist then a 'NO SUCH PROG' error will be issued."" GASP Spool control RU,GASP [,lu ]  Spool manager program. Gasp commands: ?? request error explanation  EX terminate GASP DJ display job status CJ change job status or priority AB abort job DS display OUTSPOOL status your session only DSAL display OUTSPOOL status all spool files  CS change SPOOL status RS restart an OUTSPOOL KS KILL an OUTSPOOL SD Shut down spool system (BE CAREFUL)  SU Start up spool system DA Purge spool system files after shutdown  !For complete explanations see Batch and Spooling Reference Manual.!"" LGTAT See system tracks RU,LGTAT [,lu [,form ]]  !Displays information about the system and auxiliary disk subchannel !tracks. #lu The lu# to which LGTAT will direct its output (default = user's# terminal).  form 0 specifies abbreviated format (default). 1 specifies complete format.  See RTE-VI Utilities Manual for format descriptions."" LOADR Load program #RU,LOADR,[command[,input[,list[,opcode[,format[,partition[,size]]]]]]]# #Relocating loader which reads relocatable code from any input device or #%FMP file, and produces an absolute load module that is ready for execution. % "For parameter descriptions and complete LOADR command discussion, see "RTE-VI Terminal User's Manual.""UP Up device UP [,eqt] RTE [ 10 ]  "Declares an I/O controller and all associated devices as up (i.e., as "available for use by the RTE system).  "eqt Equipment table (EQT) entry number of the I/O controller to be"# re-enabled. If not specified, re-enable the device (EQT number)#% that current session copy of FMGR or one of its sons is waiting for.%"" UR Release partition UR,partition# RTE [ 50 ]  Releases a partition previously reserved during generation or reconfiguration. %partition# The number of the partition to be released (1 to 64, depending %# on how many partitions were defined in system generation). #"" WRITT Save cartridge RU,WRITT [,-lu [,MT:lu [,IH [,DC [,VE [," comments "]]]]]]  ,+crn ,lu  Disk cartridge save-to-tape utility. -lu The lu# of the cartridge to be saved. !+crn The cartridge reference number of the cartridge to be saved. ! $lu The lu# of the mag tape unit to save to (default is 8). Positive$# or negative lu# can be specified. (Note: if the 'MT:lu' form is# is used this parameter is NOT position dependent).  NOTE: The following parameters may be specified in any order.  IH Inhibits tape rewind  DC Disables the overlay check  VE Verify the tape just saved against the crn/lu on disk.  #"..." add comments to the header. Up to 40 characters may be entered.#"" READT Restore cartrdg RU,READT [,-lu [,MT:lu [,P [,SI:size [,IH [,VE [,CO]]]]]]]  +crn ,lu G ,size $Utility to restore disk cartridge from mag tape created by WRITT utility. $ $-lu The lu# of the cartridge to which the previously saved cartridge$% on mag tape is to be restored. Must be mounted to current session% user.  #+crn The cartridge reference number of the cartridge being restored. #$ If not currently mounted, READT will mount a cartridge from the $" spare cartridge pool, assign a cartridge reference number of" +crn to it and restore the cartridge on mag tape to it.  Not allowed in a non-session environment.  $lu The lu# of the mag tape unit from which to read (default is 8). $ or Can be specified as either positive or negative.MT:lu  $P,G Designates that the cartridge is to be restored as a private (P)$$ or group (G) cartridge. Default is the cartridge type contained$ in the header on mag tape. $size The desired size of the cartridge to which the mag tape contents$% or is to be restored. The default is the size of the cartridge saved% SI:size on mag tape.  $NOTE: The following optional parameters are order-independent and can $ be specified in any sequence.  IH Inhibit tape rewind. VE Verify the tape just saved against the crn on disk.  CO Compare the tape specified with the crn/lu specified.  (Note: the 'VE' and 'CO' options are mutually exclusive;  only one may be specified) #READR::RTE_6:4:1:15 644 0 0 400 5310707475 32152 #READR::RTE_6:4:1:15 $ #READR +#<+#=+#=0bFST * #READR 92084-17005 REV.2340 ECOP,LB SZ,21 LI,$RSLIB RE,%READR END ((#SAVER::RTE_6:4:1:15 644 0 0 400 5310707477 32266 #SAVER::RTE_6:4:1:15 $#SAVER +#>+#?+#?3bFST * #SAVER 92084-17006 REV.2340 ECOP,LB SZ,23 LI,$RSLIB RE,%SAVER END #FORMT::RTE_6:4:1:22 644 0 0 400 5310707501 32325 #FORMT::RTE_6:4:1:22 $#FORMT +#@+#A+#A1bFST * #FORMT 92084-17029 REV.2340 <831206.1318> * SZ,18 RE,%FORMT SEA,$DSCLBENSCOM.LOD::RTE_6:3:1:23 644 0 0 400 5310707502 32726 SCOM.LOD::RTE_6:3:1:23 $ SCOM LOD +#B+#B+#B2bFST * SCOM.LOD 92084-17036 REV.5010 <871104.1539>* vmws 64 ebre scom.rel enmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm#SWTCH::RTE_6:3:1:20 644 0 0 400 5310707504 32412 #SWTCH::RTE_6:3:1:20 $$#SWTCH +#C+#D+#DNbFST  * 92084-17039 REV.5000 <870625.1053>psebLI,$DTCLB LI,$DSCLB * LI,$FMP6 ,,, FOR OLDER SYSTEMSRE,%SSTCH end swtch &fjH W%'p /SQUOTED@ p ` /j (U, p ,`  $2*STIME::RTE_6:4:7:36 644 0 0 3400 5310707506 32620 *STIME::RTE_6:4:7:36 $($*STIME +#F+#F+#F/GbFST :SV,1,8,IH:* *STIME SOURCE: 92084-17100 REV.2440 <850131.1425>:* :** TIME AND DATE ENTRY :** :** CLEAR GLOBALS BEFORE USING (EXCEPT 8G) :SE,0,0,0,0,0,0,0,,0 :** $:DP,ENTER DATE/TIME AS FOLLOWS: ':,MONTH,DAY,HOUR,MIN,SEC[,PM],[YEAR]' $:PA,,WHERE 'PM' IS ENTERED IF AFTER NOON. :** GIVE A CHANCE TO BAIL OUT :IF,1G,EQ,EX,56 :** CLEAR MONTH TO A 3 CHAR. ABREV. :CA,-33:P,20040B:CA,-34:P,-34P,AND,177400B,+,40B :** ACCUMULATE DAYS IN 1P :CA,1:P,2G:IF,1G,EQ,JAN,25:CA,1:P,31,+,1P :IF,1G,EQ,FEB,23:** ASSUME FOR STANDARD YEAR:CA,1:P,28,+,1P :IF,1G,EQ,MAR,20:CA,1:P,31,+,1P :IF,1G,EQ,APR,18:CA,1:P,30,+,1P :IF,1G,EQ,MAY,16:CA,1:P,31,+,1P :IF,1G,EQ,JUN,14:CA,1:P,30,+,1P :IF,1G,EQ,JUL,12:CA,1:P,31,+,1P :IF,1G,EQ,AUG,10:CA,1:P,31,+,1P :IF,1G,EQ,SEP,8 :CA,1:P,30,+,1P :IF,1G,EQ,OCT,6 :CA,1:P,31,+,1P :IF,1G,EQ,NOV,4 :CA,1:P,30,+,1P :IF,1G,EQ,DEC,2 :DP,MONTH MISSPELLED. TRY AGAIN. :IF,,EQ,,-35:** NOW HAVE DAY. CHECK FOR PM.:IF,6G,NE,PM,3:IF,3G,EQ,12,1:CA,3,3G,+,12 :IF,,EQ,,2:IF,3G,NE,12,1:CA,3,0 :** CHECK FOR YEAR, IF NONE THEN USE THE DEFAULT:IF,7G,NE,0,2 :CA,7,1985:IF,,EQ,,7:IF,7G,LT,1900,2:IF,7G,GE,2000,1:IF,,EQ,,4:DP :DP,YEAR MUST BE OF FORMAT 19XX. TRY AGAIN PLEASE.:DP :IF,,EQ,,-52 :** OK SET THE TIME. :SYTM,7G,1P,3G,4G,5G :DP,:DP,SYSTEM TIME RESET TO:,3G:4G:5G,OF,1G,2G,7G:DP,:SYTI :** CLEAR ALL THE G GLOBALS  :SE,0,0,0,0,0,0,0,,0 :SV,8G,,IH::>Y#SGMTR::RTE_6:4:1:18 644 0 0 400 5310707510 32476 #SGMTR::RTE_6:4:1:18 $0#SGMTR +#H+#H+#H@ bFST * #SGMTR 92084-17106 REV.2540 811112* WS 5LI $SGMLB LI $RBLIB CP LBVMRE,%SGMTR EN"FCHLP::RTE_6:4:66:39 644 0 0 41000 5310707512 33551 "FCHLP::RTE_6:4:66:39 $B4B'"FCHLP +#J+#J+#JB bFST '--------- FC commands ------- commands may be abbreviated to 2 chars ---------'COPY,srce,dest,opts,[file1],[file2],[msc] copy files %DEFAULT , srce , dest , opts set defaults for COPY command%"GROUP / EG / AG begin / end / abort GROUP of COPY commands"#LL , namr set list file/device (dash means log device)#%DL , srce , [msc] , opts list tape directory (srce = -tlu or -tlu{namr}) %%CL , [-tlu] , options list local cartridge list or tape cartridge list%#CLAL list global cartridge list (RTE-IVB/6 only) #LH , -tlu , opts list tape header file LC , -tlu , opts list tape comment file%ECHO [, ON/OFF] turn ON/OFF cmd echo to list device (default ON)%$TITLE , title set tape title (for subsequent COPYs to tape) $%CF , comment-file-namr set comment file (for subsequent COPYs to tape) %'TR , namr transfer to cmd file/device (dash means log device) 'TR return from command file/device EXIT exit FC &ABORT abort FC (same as EX except if copy group active) &%SCRATCH , cartridge set cartridge that FC will use for scratch files%%* comment command line starting with * treated as comment %&HELP [, key [, lu]] get help, RTE-IVB/6 only (useful for FMGR errors) &&? , list info about particular command (incl. options)&%? , @@@@@@@(@,@ @@@ @T@@@!/j@B@@XUNSELECT_RESTORE92570-1X137 REV.6000 910924 /SRC_92570/R6000/FST_RESTORE.FTN@99F^FST_TAPEFST_OPTIONS  YFST_DFILE FST_BCKRSTFST_COMMONFST_ESCAPE9eUNSELECT_RESTOREnn .DIN .DSBR .DDE .DDICLEAR_DIR_FILEDINTTODECIMAL DISPLAY_MSG TAKE_A_BREAKIFBRK REPLACE_DIR_REC OCTALTODINT READ_DIR_RECGOT_A_MATCH HANDLE_DFILE_PROFMPREWIND nh::pd `((\` (N` (N (N`p &    .    d d` ~~;99(N?p CAJ    `p M(9P([ 0(Y pV[( 0 (cpV`X0(vkdo u~??t(zd~   0(?{ 0 & 0@0>߀@@@X˝6POSITION_AT_DFIL92570-1X137 REV.5000 870106 /SRC_92570/R6000/FST_RESTORE.FTN@B^FST_TAPE YFST_DFILE jPOSITION_AT_DFIL++4?.DAD.DIN.DDIOCTALTODINT POSITION_AND_REAGET_ENTRY_FROM_E+[[X,,pA e2@JP,,4  0 eD2 !P e$.AJ0P N[1. @7@@X0PREVIOUS_TAPE_MS92570-1X137 REV.5000 870526 /SRC_92570/R6000/FST_R((ESTORE.FTN@&&D^FST_TAPE YFST_DFILE FST_COMMONFST_ESCAPE&J/PREVIOUS_TAPE_MS'.MBTDISPLAY_MSG INTTODECIMALEEL""p ./+% Ah*`&% %h(`&%".-)'EO% H @0>@o؎@@XDPOSTOGOODRECORD 92570-1X137 REV.5010 880503 /SRC_92570/R6000/FST_RESTORE.FTN@..E^FST_TAPE (FST_CIO FST_BCKRST FST_COMMON FST_ESCAPE.BPOSTOGOODRECORD 44C.DIN.DCO.ARTN DISPLAY_MSG FORWARD_RECORDREWIND_TO_FILEMAREADTAPEHEADER4xx ::p@C< 4`S(`BP((  A:(,(,*@A(. 1P>(4( 8@?(xM: ghd@_~Z@@Xj-POSTOGOODFSTHDR 92570-1X137 REV.5010 880502 /SRC_92570/R6000/FST_RESTORE.FTN@99FTEMPORARY  YFST_DFILE HFST_BUF_MISCFST_EMA FST_COMMON FST_ESCAPE9WPOSTOGOODFSTHDR ## .CBTPEEKATNEXTENTRY GETENTRYFROMTAPEDISPLAY_MSG #MM$$p,+`)h%$( P*("(P*("`'h%$((!M$ D` @Ae@"A@@XPOSTONEXTFSTHDR 92570-1X137 REV.5010 884029 /SRC_92570/R6000/FST_RESTORE.FTN@AAGŞ ^FST_TAPE YFST_DFILE HFST_BUF_MISCFST_EMA FST_BCKRSTFST_COMMONFST_ESCAPEA]POSTONEXTFSTHDR bb;.DAD .DSB .DSBR .DMP.DDI .DDIR .DCO.DMOD .CBTFLUSH_CIO_BUFFERBACKSPACE_FILEGETENTRYFROMTAPEPEEKATNEXTENTRY FORWARD_RECORDOCTALTODINT b.{<<pAA  A J   h@ ((6 h@AxhJ@  x P P(zh@   hp>;;J@ P Pph @   PP(U P(h @AJ P Ph @    xh@  x PJ 66y P} ЈP(`hA((((64 PDA @x8DDXHFST_RETRIEVE_HEA92570-1X138 REV.6000 <920917.2121>/SRC_92570/R6000/FST_RETRIEVE.FTN D Aa1FST_RFILE gFST_RETRIEVE_HEAkIp@V??XUGO_RETRIEVE 92570-1X138 REV.5021 900507 /SRC_92570/R6000/FST_RETRIEVE.FTN ?KKHe^FST_TAPE FST_OPTIONS  YFST_DFILE HFST_BUF_MISCFST_EMA FST_BCKRSTFST_COMMONFST_ESCAPEK?GO_RETRIEVE ss  .DCODINTTODECIMALRDISPLAY_MSG CLEAR_DIR_FILERETRIEVE_VERIFY INIT_VERIFY_PASSABORT_RETRIEVE_V IFBRK RETRIEVE_FILES RETRIEVE_TF_FILEINIT_TAPE_RETRIEINIT_RETRIEVE SECURE_COMMANDs~~c==p`Šp 0(`Xh  0(ƉZƉ\Ɖ^Ɖ`Ɖb1P(W`T(W8P(W`X(@~~~J=;; ?(B BZ  (V N(RRT V(3pV`X(^^bЈ  (q(ql qáuZz~~~5x>> ÈZA   (\È` ((` Ab ƈ((bÈ^ ((ê^~0(  zB#@@@X:INIT_RETRIEVE 92570-1X138 REV.5010 880502 /SRC_92570/R6000/FST_RETRIEVE.FTN @C^FST_TAPEFST_OPTIONS FST_BCKRSTINIT_RETRIEVE  ;FORWARD_RECORD 22p`pT`pR`( P((2 b @C"AAXRINIT_TAPE_RETRIE92570-1X138 REV.6000 920915 /SRC_92570/R6000/FST_RETRIEVE.FTN ATTIV^FST_TAPEFST_OPTIONS  YFST_DFILE ]FST_CFILE HFST_BUF_MISCFST_EMA FST_BCKRSTFST_COMMONFST_ESCAPETLINIT_TAPE_RETRIE~~.DAD.DSB.DDI.DCO.DMOD TAKE_A_BREAKIFBRK REPLACE_DIR_REC OCTALTODINT DIR_REC_NUM READ_DIR_RECPOSITIONDFILE LIST_TAPE_HEADER LOAD_NEXT_TAPE ABORT_COMMAND DISPLAY_MSG REWIND_TAPE_ONLI~ COMPARE_WORDS GET_ENTRY_FROM_EPOSITION_AND_REA ~~<88ppT`((`R($  (#  ! #(& & (+.(`R(8p bp (~~~V(888`(D ((W(K(xJF((P(K(P (JR((W(x(xN `U(kbAJJN& L(wo~mm±p33NL( L AJLA L ALJ LL` (((+pR(mP `@P4n@@XRETRIEVE_FILES92570-1X138 REV.6000 920917 /SRC_92570/R6000/FST_RETRIEVE.FTN @99F^FST_TAPEFST_OPTIONS  YFST_DFILE FST_BCKRST FST_COMMONFST_ESCAPE9RETRIEVE_FILES.DAD.DIN .DSB .DDI.DCOREAD_DIR_RECPOSITIONDFILE REPLACE_DIR_REC DIR_REC_NUM REWIND_TO_FILEMAABORT_RETRIEVEIFBRK DISPLAY_MSG CLOSE_DISC_FILE COPY_FILE_TO_DISOPEN_DISC_FILECONTINUING_MSG00[COPYING_MSG HEADERS_MATCH POSITION_AND_REA OCTALTODINT REOPEN_DISC_FILE0~~I88p p`( ` U(e`() ((0(e J((0(e(e 4   &  >N~=;; @BP(FP(`pN` (WZ ZY(]]`pcP(` ( t   ;sx::J   (` ((P(P(`p` ( @ZZ((yyҩ88p(eA(((`p (ܡ̉`p p` ( p(܈`@`(ymD @p> pN@h(@@Xj(OPEN_DISC_FILE92570-1X138 REV.5000 870526 /SRC_92570/R6000/FST_RETRIEVE.FTN @''Dʚ1FST_RFILE  YFST_DFILE FST_COMMON FST_ESCAPE'OPEN_DISC_FILE,,.MBTDISPLAY_MSG CREATE_A_FILE CREATE_A_DIRECTODIR_REC_A_DIRECT,EE ph#`!" (P%((P%(P$('& (E@  dp@` @QAAXDREOPEN_DISC_FILE92570-1X138 REV.5000 861120 /SRC_92570/R6000/FST_RETRIEVE.FTN A00EG1FST_RFILE  YFST_DFILE FST_BCKRSTFST_COMMON FST_ESCAPE0HREOPEN_DISC_FILE&&U.MBT FMPCLOSEDISPLAY_FMPERRORFMPSETPOSITIONFMPOPEN &{{q66p` b( h:`>A9(Ah:`<9 9?A`( B&*,`(2,B 0(`Cp0({6WROFX @@ d@l@HgAAXWCREATE_A_DIRECTO92570-1X138 REV.6000 900831 /SRC_92570/R6000/FST_RETRIEVE.FTN A99F,^FST_TAPE 1FST_RFILE FST_OPTIONS  YFST_DFILE FST_COMMONFST_ESCAPE9aCREATE_A_DIRECTOll.SCO.LBT DISPLAY_MSG DISPLAY_FMPERRORFMPSETOWNER USERISSUPER MULTIUSER FMPCLOSE CALC_PROTECTION FMPSETDIRINFO FMPOPEN WAIT_FOR_ROOM FMPCREATEDIRCREATED_PATHl;77phHP( ( p`P((p(p`P("($`P(((E*(20p(E`hX pe9<<`Pp`0(E(#`PhX 0(VTPي(((`(^\(# e 蠊`(qk p( sp u@@~ `( ۡ `(͡(͡( p`P((p`Pp(<<(p`(`p`(`p`(͡ (#<77#>!!SYSTEMG orfqsd @ !0s//0*7@A@@XCREATE_A_FILE 92570-1X138 REV.6000 900831 /SRC_92570/R6000/FST_RETRIEVE.FTN @KKH_KTEMPORARY ^FST_TAPE FST_OPTIONS 1FST_RFILE  YFST_DFILE FST_BCKRSTFST_COMMONFST_ESCAPEK_CREATE_A_FILE zz .DCO.EXIT .SCO.SST.MBTDISPLAY_FMPERROR WAIT_FOR_ROOM REPLACE_DIR_REC FMPOPEN FMPBUILDPATHFMPUNIQUENAME FMPPARSEPATHDISPLAY_MSG CDESC OCTALTODINT FMPUPDATETIME CREATED_PATHzO<<pp0` (A (h` !`P(%(D'(10(D` hX p`Pp`0(D~~D;;`PhX 0 (U SP (`P(Y(` ( P ip fp`P(~`( p vA(~(~~~c== `(C` (HJIGA(HJIG`(`p bh`@~ZZar(((`P(ň(((`PhX 0 ( P (`( (C`p0(CZPPH// | DIR WRCFXLWRCX@ @ <RN>> (/P@:AAXjCOPY_FILE_TO_DIS92570-1X138 REV.5010 880128 /SRC_92570/R6000/FST_RETRIEVE.FTN A00EH 1FST_RFILE  YFST_DFILE FST_BCKRSTFST_COMMONFST_ESCAPE0b COPY_FILE_TO_DIS}} b.DAD.DIN.DMP.DDI.DCO.CPM .MBTFMPPURGECLOSE_DISC_FILE DISPLAY_MSG MOVE_DATA_TO_DIS FMPNOEXTENTSFMPSETPOSITIONFMPALLOWEXTENTS HEADERS_MATCH POSITION_AND_REAABORT_RETRIEVEIFBRK }88*OCTALTODINT DIR_REC_NUM READ_DIR_REC REPLACE_DIR_REC FMPEXPANDSIZE DIR_REC_A_DIRECT8ܳ77p(pP`U ("J((("("&`pP i(0(0+P( pP( 3 l  8 O8;;:P( pP` (` b(R GpAh` `p b Q(V UpX  bA  h(llJ qqs11v x(`ɪpPh @J@       Pŀ(pP(Ȉ((>(q%%` b(((%&&p d`@` `@ &@6UAAX mMOVE_DATA_TO_DIS92570-1X138 REV.5000 870302 /SRC_92570/R6000/FST_RETRIEVE.FTN AJJHE+^FST_TAPE 1FST_RFILE  YFST_DFILE HFST_BUF_MISCFST_EMA FST_BCKRST FST_COMMONFST_ESCAPEJfMOVE_DATA_TO_DISXX` .DAD.DSB.DSBR .DMP.DCO.CPM .IRES DISPLAY_FMPERRORABORT_RETRIEVEIFBRK COUNTRECORDS VMAWRITERELOAD_BUFSIGNAL_TO_RELOADX<<p` gJp i(hX i 0Xp`()pp mԉ pԉ    ((57hJ@  h@88@ ((F(`(p  U ` (Ƞ`'p`A(m Ϫ͡m  m `@ph@  hx;;J@ P Pp(A x Ϫ͡ ` (Ȉ x`(   m `@ph@@>>   xPJ   P ԉ (š(-(>~ dP@???XPCOUNTRECORDS92570-1X138 REV.4010 870302 /SRC_92570/R6000/FST_RETRIEVE.FTN ?} COUNTRECORDS ,, .DAD .DIN.DSBR .DCO.ENTR .CPM.IMAP .IRES .DLDE ,mJJAAAp( p@@A(=(-(=@AA(:(`(`(G(G(Y(N(}}NHH(Y(Y( (`(`` h@  (p(xpA @ @h@ (%`p` } p( g @AAXCLOSE_DISC_FILE 92570-1X138 REV.5021 900404 /SRC_92570/R6000/FST_RETRIEVE.FTN ABBGvTEMPORARY ^FST_TAPE1FST_RFILE FST_OPTIONS  YFST_DFILE FST_COMMONFST_ESCAPEB?CLOSE_DISC_FILE kkV.DAD.DIN.DDI.ENTR .CPMRENAME_TEMP_FILEFMPCLOSEDISPLAY_FMPERRORFMPTRUNCATE FMPPOSITION CALC_PROTECTION CDESC OCTALTODINT FMPSETDIRINFO FMPSETDCBINFO k~~!==A`0(o`W(' ih~X i (' @ q$q  m`(` *uq 0qq 4ps ?{{q{~~~{=44sw`(``W (_ L`(`yJAy \`(`(cc}g p0` b(oo~t G P(@ m+-AAXy.CALC_PROTECTION 92570-1X138 REV.5000 870119 /SRC_92570/R6000/FST_RETRIEVE.FTN ACJ YFST_DFILE FST_COMMONFST_ESCAPErCALC_PROTECTION   .CPM.XLAOCTALTOINTFIX_STRING$DATC PP+$$p( (p`-5p&`,h%`0&p@+(($`*0p`P( p0@6DU??XYCREATED_PATH92570-1X138 REV.5010 880408 /SRC_92570/R6000/FST_RETRIEVE.FTN ?00EVt _TEMPORARY 1FST_RFILE  YFST_DFILE FST_COMMONFST_ESCAPE0QCREATED_PATH @@ t.EXIT .SBST .LBTDISPLAY_MSG DISPLAY_FMPERRORFMPCREATEDIRFMPBUILDPATHCINDEXFMPPARSEPATH@KKpp`pp`(J-p`(`@@pJGHhPhX }}uQ55(hW p `P (\(^p `P (b(gfp (mlp `P (q(s p ` ( y}``@p( `p(}};;z!!/ DIR @ @~>@ @ d /0*;@$AAX+HANDLE_RETRIEVE_92570-1X138 REV.6000 910730 /SRC_92570/R6000/FST_RETRIEVE.FTN AAAG^FST_TAPE1FST_RFILE FST_OPTIONS (FST_CIO FST_BCKRST FST_COMMON FST_ESCAPEAFHANDLE_RETRIEVE_::% CLOSE_DISC_FILE FMPPOSITION REWIND_THE_TAPE REWIND_TO_FILEMATELL_YOUR_SON DISPLAY_MSG :\\- &&p`*pT )('&&`((`0(%`P(" "  %&\+&P@HAAX RETRIEVE_VERIFY 92570-1X138 REV.6000 920917 /SRC_92570/R6000/FST_RETRIEVE.FTN ATTI&] ^FST_TAPE 1FST_RFILE FST_OPTIONS  YFST_DFILE %HFST_BUF_MISC$FST_EMA FST_BCKRST FST_COMMON&FST_ESCAPEToRETRIEVE_VERIFY l.DAD.DIN.DSB.DMP.DDI.DCO.IRES .MBTREAD_DIR_REC#FMPPURGEFMPCLOSE"REWIND_TO_FILEMA!REWIND_THE_TAPE ABORT_RETRIEVE_VIFBRK CLOSE_VERIFIED_F DISPLAY_MSG DATA_VERIFIED DISPLAY_FMPERRORXX GPVMAREAD HEADERS_MATCH POSITION_AND_REAOCTALTODINT FMPSETPOSITION((FMPEXPANDSIZE DIR_REC_A_DIRECT FMPOPEN POSITIONDFILE FORWARD_RECORDX~~}C::p`(  A((a p` 0 (U` b(/h`A(4Ah`  ;  ` (G A~_A<< F(uI(N`(S (W (A(^U(uh *,` (t n s(k(` (y(| lZ}@@h @A@    ` (  (k  (( U( J &( AAN ( P(J J J(p`U0A~~P??(( (kA  (  (=(= ( ( `p  (` p A `(p ~}}Ҩ<<` (* $ )(k-(6 5(k8(<<((D P0 (NM (UP @\\W}rr X77([[(` T(g!f(i"io ` b(u#u (p(ub b(Ur@@('d@orfxqsdl @p@p> p@ dp08(@@!AAXRCLOSE_VERIFIED_F92570-1X138 REV.5000 870526 /SRC_92570/R6000/FST_RETRIEVE.FTN A11El1FST_RFILE FST_OPTIONS  YFST_DFILE FST_COMMON FST_ESCAPE1MCLOSE_VERIFIED_F44FMPCLOSE DISPLAY_MSG DISPLAY_FMPERROR FMPSETDIRINFO FMPOPEN RENAME_TEMP_FILE4~~::p` b((  (`((IKO`((!Q &QPI(`(? 4MMMOM`(?:Q~@:  ?QPIC(EF RWOFL d@qNAAXCRENAME_TEMP_FILE92570-1X138 REV.5000 870526 /SRC_92570/R6000/FST_RETRIEVE.FTN ACJ YFST_DFILE FST_COMMONFST_ESCAPEwRENAME_TEMP_FILE ""DISPLAY_MSG DISPLAY_FMPERRORFMPRENAME FMPPURGE"tt77pp :p`AP h(??@:`#<:`h0(6`(-`p0?6?><:`Bp(tf: d`@`@@@XT ABORT_RETRIEVE92570-1X138 REV.5010 880427 /SRC_92570/R6000/FST_RETRIEVE.FTN @C^FST_TAPE1FST_RFILE FST_BCKRST.ABORT_RETRIEVE ABORT_RETRIEVE_V&&TAKE_A_BREAK_ANDCLEAR_DIR_FILEFMPPURGECLOSE_DISC_FILE &EE`p( p`p(`0(`X0W(E Q @ @z/@@X=-WAIT_FOR_ROOM 92570-1X138 REV.6000 900830 /SRC_92570/R6000/FST_RETRIEVE.FTN @B-FST_COMMONFST_ESCAPE.WAIT_FOR_ROOM --.ENTR .F6PA ABORT_RETRIEVEIFBRK DISPLAY_MSG DISPLAY_FMPERROR-GG=&&A& ),&))+)*)(@ ($$G|&%$#"@L7jBBXFST_SAVE_HEADER 92570-1X140 Rev.6000 <920916.1242>/SRC_92570/R6000/FST_SAVE.FTN BaFST_SAVE_HEADER kIp@;;X{GO_SAVE 92570-1X140 REV.6000 910827 /SRC_92570/R6000/FST_SAVE.FTN ;99F^FST_TAPE FST_OPTIONS  YFST_DFILE FST_BCKRSTFST_COMMONFST_ESCAPE9 GO_SAVE  ||.DSB.DCODINTTODECIMALRDISPLAY_MSG LOAD_NEXT_TAPESAVE_VERIFY SAVE_VERIFY_DIREINIT_VERIFY_PASS SET_PRIORITY SAVE_FILES SAVE_DIRECTORY SAVE_COMMENT_FILINIT_TAPE_SAVEINIT_SAVE ABORT_COMMAND | PQLOAD_FIRST_TAPE ~~>>p`ͪp` Up  00((`(( `Z(*')(ˆ X \ ^ ` b~~~6[>66@P( `T(fG I K N P S` (ZXZ` 0 (```T(ee(Bjءn sˈ~}}t<< `X}˪X ˈXA  (\ˈ`((` AbΈ((b}++ǻˈ^(Š(˪^+  Px#@h<<Xd#1INIT_SAVE 92570-1X140 REV.6000 920915 /SRC_92570/R6000/FST_SAVE.FTN <88FP^FST_TAPEFST_OPTIONS (FST_CIO FST_BCKRSTFST_COMMONFST_ESCAPE8[INIT_SAVE OK_TO_OVERWRITE POSITIONFORAPPENaa~--p`](`( ((`0pTp.."..$pP(a c. @j*>>XUINIT_TAPE_SAVE92570-1X140 REV.6000 920915 /SRC_92570/R6000/FST_SAVE.FTN >IIH^FST_TAPE  YFST_DFILE (FST_CIO HFST_BUF_MISC FST_EMA FST_BCKRST FST_COMMON FST_ESCAPEIINIT_TAPE_SAVE"".DINTELL_YOUR_SON HANDLE_BAD_COMMUASK_YOUR_SON"66p #$%`P#((`$php(p# pT`P(3(&` pU(G@}} 7@@(" " & $pU   pP`pPp`(p`@p`@p`@p}33Aw`@p`@p88(_3""  ?^]"@ܵu??XSAVE_COMMENT_FIL92570-1X140 REV.5010 880208 /SRC_92570/R6000/FST_SAVE.FTN ?88Fu^FST_TAPE]FST_CFILE  YFST_DFILE FST_BCKRSTFST_COMMONFST_ESCAPE8~SAVE_COMMENT_FILo.DAD.DIN.DDE.DDI.DNG.CPM .EXIT .SST.DIS.MBTBREAK_AND_DESTROIFBRK PUT_RECORD_IN_EMFMPREAD FMPREWIND DISPLAY_MSG LIST_TAPE_HEADERMOVEWORDS CALC_CHECK DINTTOOCTAL TIMENOW  TRIMLEN CLEARBUFFER }}"88p 0\( ( `p " $ `Up P(*(Lh`A J  6p ?P  }dPF `DPAbK;@.>>X+&SAVE_DIRECTORY92570-1X140 REV.5000 870526 /SRC_92570/R6000/FST_SAVE.FTN >//E#^FST_TAPE YFST_DFILE FST_BCKRSTFST_COMMONFST_ESCAPE/ SAVE_DIRECTORY~~? .DAD.DSB .DMP.DCO.CPM.DMOD .EXIT .SST .MBTBREAK_AND_DESTROIFBRK PUT_RECORD_IN_EMSAVE_THIS_HEADERREPLACE_DIR_REC CALC_CHECKDIR_REC_NUM READ_DIR_RECHANDLE_DFILE_PROFMPREWIND ~++ ~ COUNT_DIR_RECSMOVEWORDS DINTTOOCTAL CLEARBUFFER DISPLAY_MSG +N@@p$#"(( (SA h`A `!p ?`!p @h` @ *  eJ  e 8Ah`  P~~J@<<  JI h ` S U P ]  Pg`(llo%(s((y(x(y({~~~;|99(((( P JP  e P`U(((P&P((J P P`p A  Ah `  ( P ~FF& P  eP(Ĉ PP`p  J h ` FLL##(ۡ` p  i0 (PAJ P P((lL???$$ Dfile   PP4 PD PAdP @P> L?@<Z<<X'SAVE_FILES92570-1X140 REV.6000 920507 /SRC_92570/R6000/FST_SAVE.FTN <SSIƧFST_OPTIONS FST_DISC YFST_DFILE (FST_CIO HFST_BUF_MISC FST_EMA FST_BCKRSTFST_COMMON!FST_ESCAPESySAVE_FILES}}.DAD.DIN.DSB.CPM.EXIT .SSTFINISH_TAPE BREAK_AND_DESTROIFBRK FINISH_BLOCKCLOSE_DSFILEREAD_DATA_INTO_EDSFILE_ERROR_HANFMPSETPOSITIONFMPOPEN CONCAT DIR_REC_A_DIRECT DIR_REC_NUM }77 PUT_RECORD_IN_EM COPYING_MSG CONTINUING_MSGREAD_DIR_RECDISPLAY_MSG POSITIONDFILE 788p (`&p`(%$&(A# i(p W`(9`U()((8` (1 . 0(8` W(6 68(F` (A }}=<<> @(F` W(F  F`" @p  M `" @p " `" @p  `" @p $ `" @p    u(`"}ff y00 @p  (` (J`X i 0(((`&pO(pO` cpf~~>:55p` dp`U(`O (Ĉ&@   `(á(ʈ j& ҈ e& & (  j  e ~bb--  `" @p  ` 0 W( "" $(p( b66o l rofxs @p>      N6@3??Xj7-PUT_RECORD_IN_EM92570-1X140 REV.4010 860812 /SRC_92570/R6000/FST_SAVE.FTN ?88F5 YFST_DFILE (FST_CIO HFST_BUF_MISCFST_EMA FST_COMMON FST_ESCAPE8bPUT_RECORD_IN_EM##s.IRES TELL_YOUR_SON MOVE_TO_EMA GET_NEXT_EMPTY_B#VV.##p`(A%# #,`,@p`*@p`(!!+Vf%dp@??XzREAD_DATA_INTO_E92570-1X140 Rev.5020 890210 /SRC_92570/R6000/FST_SAVE.FTN ?IIHFST_BCKRSTFST_DISC(FST_CIO  YFST_DFILE HFST_BUF_MISCFST_EMA FST_COMMONFST_ESCAPEITREAD_DATA_INTO_EttB .DAD .DSB.DSBR .DMP .DCOMOD MIN0.IRES BREAK_AND_DESTROCLOSE_DSFILEIFBRK TELL_YOUR_SON VMAIO DSFILE_ERROR_HANVMAREAD BLOCKTODISC DIR_REC_NUM GET_NEXT_EMPTY_Bt+<<p 0(ՠ`() `ꀀ@p`ꀀ@p׈"` @pס/ A3h @p >t=;;ph@  (F(b  xh@  x J     $J   $   (`'ph@  hJ@   h@   x88  h@ $ $`@ p`ꀀ @p׈ `ꀀ@p׈$`OA(ڪנ`@p`((`Q``''((ܡ`@p`((ԡԀ(`**Ed *@]{??X/9GET_NEXT_EMPTY_B92570-1X140 REV.4010 860812 /SRC_92570/R6000/FST_SAVE.FTN ?C(FST_CIO HFST_BUF_MISCFST_EMA GET_NEXT_EMPTY_B22P&HANDLE_BAD_COMMUHANDLE_TAPE_ERROHANDLE_SAVE_EOT TELL_YOUR_SON ASK_YOUR_SON2~~i22p#$%`8P#( ( p`$ph%7p`(63((1`5P#(#(/`4P$('(,`%p+(..(11~ 2 3@lw7??XOKHANDLE_SAVE_EOT 92570-1X140 REV.5000 870625 /SRC_92570/R6000/FST_SAVE.FTN ?JJH[^FST_TAPEFST_OPTIONS (FST_CIO HFST_BUF_MISCFST_EMA FST_BCKRSTFST_COMMONFST_ESCAPEJDHANDLE_SAVE_EOT pp .REWIND_THE_TAPE REWIND_TO_FILEMABACKSPACE_FILE UPDATEMAINHEADER GETCTDADDRESS WRITE_EOFS ABORT_COMMAND REWIND_TAPE_ONLIDISPLAY_MSG TELL_YOUR_SON FLUSH_CIO_BUFFERCLOSE_DSFILEp6==p`pT |~}xx`w@v `w@u "`w@t `w@s $`w@r 0pPww=440(NE|{G Jy L N`S(U Tz(a`R(a [y ] J a`(n`S(iikm(ppw##r P#@j뉫==X^FINISH_BLOCK92570-1X140 REV.6000 920109 /SRC_92570/R6000/FST_SAVE.FTN =JJH[^FST_TAPEFST_OPTIONS (FST_CIO HFST_BUF_MISCFST_EMA FST_BCKRSTFST_COMMONFST_ESCAPEJFINISH_BLOCK FINISH_TAPE 'J.CPMMOD .IRES REWIND_TAPE_ONLIBACKSPACE_FILEREWIND_TO_FILEMAUPDATEMAINHEADERWRITE_EOFSGETCTDADDRESS HANDLE_BAD_COMMU CLEAR_FLUSH_CIO HANDLE_TAPE_ERRO HANDLE_SAVE_EOT ASK_YOUR_SONTELL_YOUR_SON MOVE_TO_EMA A!``//A` /~~(::p(p`Ap(M( @pMKK\`\@p`([`U @S`U @R~}}r44pP`A(Ǫ(AMKK\`\@p([ZVV`Tp#`ZP#( 쪨#$%`ZP#(((}N%11`YP#(((`XP#((`WP$((`%p  (`$p`%p  `p$`p% (  (`S(M(-`R(-55"$O& J+O-M (=85//,_9:<(I`(GD`]p](II(/!!Md` >!@R??XtSAVE_VERIFY_DIRE92570-1X140 REV.5010 880524 /SRC_92570/R6000/FST_SAVE.FTN ?99F YFST_DFILE HFST_BUF_MISCFST_EMA FST_BCKRSTFST_COMMONFST_ESCAPE9jSAVE_VERIFY_DIRE~~.DAD.DSB.DCO.CPM.IRES DISPLAY_MSG DATA_VERIFIED TAKE_A_BREAK_ANDIFBRK MOVE_TO_EMA SAVE_THIS_HEADERREAD_DIR_RECHANDLE_DFILE_PRO FMPREWIND HEADERS_MATCH TURBOVERIFY POSITION_AND_REA~@ MOVEWORDS POSITIONDFILE n>>p   p J J((U(&&(0((0A 5   ?  A ~~UB@@C(p K`(PPS(W(d `@p(l(hpt(}{p~??((P`((hp(((|?:l dp@2==XRSAVE_VERIFY 92570-1X140 Rev.6000 920109 /SRC_92570/R6000/FST_SAVE.FTN =SSI%^FST_TAPEFST_OPTIONS FST_DISC YFST_DFILE HFST_BUF_MISC*FST_EMA FST_BCKRST FST_COMMON+FST_ESCAPES7((SAVE_VERIFY ||?.DAD.DIN.DSB.DSBR .DCOMIN0 .EXIT .IRES .SST)FLUSH_CIO_BUFFERCLOSE_DSFILEDISPLAY_MSG "DISPLAY_FMPERRORREAD_DIR_REC(REWIND_TAPE_ONLI'FORWARD_FILE&REWIND_THE_TAPE TAKE_A_BREAK_AND|||(IFBRK $FMPCLOSE#FMPSETDIRINFO FMPOPEN CONCAT!FMPPURGEDATA_VERIFIED VMAIO VMAREAD BLOCKTODISC HEADERS_MATCH SAVE_THIS_HEADERPOSVERTAPEBUF FMPSETPOSITIONDIR_REC_A_DIRECTPOSITIONDFILE |^==p (( A(((+ p pO`(54(;  (` A(X  `(J J Q  (U(ـ(WU77`pO(^` cp p ` dp ((e U(`O({&w `  (( jJ & J e&  ( e ||@<<  j A(P(  e  J(p`U0p((¡A(p|~~L99  (3(3 Ҫ   hJ@ (((`ph@J  ҉ Ҁh@  (` p  `O( `(p~?? ` (( `'p    (*b@b)(,(20 2(5` p󈀤(?~~$@==P(\ \` (]!Pp ` (\"W\(` g(J `(m m t  ("y~~//}(#  ` ("/2<<$ ( @("`%T(&(`(`p%]' P(((((()À( (؈LLa$$ p((" @bb((()((L665 ! dl orfdsqrofqxs@p>(6@f$&==XrFTURBOVERIFY 92570-1X140 REV.5000 870212 /SRC_92570/R6000/FST_SAVE.FTN =C(FST_CIO HFST_BUF_MISCFST_EMA 2TURBOVERIFY C.DAD.DMP.DCO.IDLP TELL_YOUR_SON oo66p`EAphC (6p:A;(0(0 AA(!(!`DpJ? (*=x ;/C(288:( (1oP; 8d@Jif>>XPOSVERTAPEBUF 92570-1X140 REV.5000 870616 /SRC_92570/R6000/FST_SAVE.FTN >CR^FST_TAPEHFST_BUF_MISC FST_EMA POSVERTAPEBUF ..`.DAD.DSB.DSBR .DMP.DCO.ENTR RELOAD_BUF SIGNAL_TO_RELOAD.иCCAJPh@(,(,}hA@}xh@AxPP({`'@ph@PPh@A pA(Fll tE88(Y H JPPp(@ [ ]A({({A}h@}xh@x AP Pl8@??X^SAVE_THIS_HEADER92570-1X140 REV.4010 860812 /SRC_92570/R6000/FST_SAVE.FTN ? A[ YFST_DFILE uSAVE_THIS_HEADER _.CPM//app i h  0(`p`/ b @??Xe,DSFILE_ERROR_HAN92570-1X140 REV.5000 870526 /SRC_92570/R6000/FST_SAVE.FTN ?''DT YFST_DFILE FST_BCKRSTFST_COMMONFST_ESCAPE' DSFILE_ERROR_HAN CLOSE_DSFILE.DINFMPCLOSEDISPLAY_MSG DISPLAY_FMPERRORZZaV''p( p`p( ** )'`@``+ pQ(pQ`O(%#pOZI' @p>@ͺ@@XLhFST_SON_HEADER92570-1X142 REV.6000 <911001.1819>/SRC_92570/R6000/FST_SON.FTN@FST_SON_HEADERkIp@x<<XxSTART_UP_SON92570-1X142 REV.6000 911001 /SRC_92570/R6000/FST_SON.FTN<//EHFST_BUF_MISCFST_EMA (FST_CIO FST_COMMONFST_ESCAPE/ύ START_UP_SONVV ڲEXEC.EXIT .SSTHANDLE_LEAVE_FSTDISPLAY_MSG MYIDADD PNAME TWINKIES SETSHEMA WHEATIESIDGET DISPLAY_FMPERRORFMPRPPROGRAMV FSTP ~~& ?? p Jhnjhl($rv"r$`wp)p ` (42ruh4 6 : (@ ?(- B E GpbASp~33Kt'&bs(V px^rqhf`(U3%%dd C   0pm/.%@2Q==Xݻ9TELL_YOUR_SON 92570-1X142 REV.5021 900213 /SRC_92570/R6000/FST_SON.FTN= A(FST_CIO %TELL_YOUR_SON دEXEC.ENTP MOVEWORDS hh^11`p4A`44p4@p3`4P8((`7p(!`7pppAp06555'h 5 @/C<<X|ASK_YOUR_SON92570-1X142 REV.4010 860718 /SRC_92570/R6000/FST_SON.FTN< A(FST_CIO ̅ASK_YOUR_SON :^EXEC.ENTR ..nAA &```.  @>>X&FLUSH_CIO_BUFFER92570-1X142 REV.4010 860718 /SRC_92570/R6000/FST_SON.FTN> A(FST_CIO zFLUSH_CIO_BUFFER CLEAR_FLUSH_CIO ASK_YOUR_SONTELL_YOUR_SON EEp( p`p(`p#`P#(#$%(E > @SNrBBX"FST_TAPE_HEADER 92570-1X143 Rev.6000 <920917.1549>/SRC_92570/R6000/FST_TAPE.FTN B\FST_TAPE_HEADER kIp@<<X{MT_COMMAND92570-1X143 REV.6000 920109 /SRC_92570/R6000/FST_TAPE.FTN <KKHITEMPORARY ^FST_TAPEFST_OPTIONS (FST_CIO FST_COMMAND FST_BCKRSTFST_COMMONFST_ESCAPEKyMT_COMMANDUU .MBTHANDLE_BAD_COMMU ASK_YOUR_SON TELL_YOUR_SON HANDLE_TAPE_ERRO TRIMLEN DECIMALTOINTGET_NEXT_PARCLEAR_DIR_FILEREWIND_MAYBE_OFFU~~Q99p`U( pUpS pRp]`T(p(n pV"p` (=pAh`  0@p <~.|911((B B G # $ %`P #(K(`` %p`(R`pP $(V(Y`pS(_`P $(](_`pR(m`P #(d(iph(mII)}jpm( p`V(pV z  # $ %`P #(I @P@ HFG@A>>XSECURE_COMMAND92570-1X143 REV.4010 860820 /SRC_92570/R6000/FST_TAPE.FTN >BO(^FST_TAPE(FST_CIO SECURE_COMMANDHANDLE_TAPE_ERROREWIND_TAPE_ONLISECURE_TAPE 66hpP(` h%((6  @8W==XSECURE_TAPE 92570-1X143 Rev.6000 910627 /SRC_92570/R6000/FST_TAPE.FTN =SSIӾFST_BCKRSTFST_OPTIONS  YFST_DFILE ^FST_TAPE (FST_CIO HFST_BUF_MISCFST_EMA FST_COMMONFST_ESCAPES0SECURE_TAPE EE F.DAD .DMP.DDI.IMAP .LBPR HANDLE_BAD_COMMU ASK_YOUR_SON TELL_YOUR_SON ABORT_COMMAND DISPLAY_MSG E~~+V;;pp[`(}|`N('`(Ju  sJA qA q(+o 0{ 5 # $ %`zP #(9([`~pV`~pU~]]=))`y $Px(B(E`~pZ(G pZ` $p[`R(Z mphjjpH(d`wP #(_(b(dd(`]&&thd`((('RsQPx&@ <<X{SD_COMMAND92570-1X143 REV.5000 870526 /SRC_92570/R6000/FST_TAPE.FTN <//E^FST_TAPEFST_COMMAND (FST_CIO FST_COMMONFST_ESCAPE/SD_COMMANDYY HANDLE_TAPE_ERRO HANDLE_BAD_COMMUDISPLAY_MSG INTTODECIMAL ASK_YOUR_SONTELL_YOUR_SON SECURE_TAPE ABORT_COMMAND DECIMALTOINTGET_NEXT_PARY~~A>>p`(   (Yp`(  `PhX hX (6468P(?~=?44 D # $ %`P #(H(I(X`P #(M(V`P $(Q(U(X X(^ c # $ %`P #(g(q k $p(`P #//ws(u(~`P $(y(}(  (/&& @ jiHhgfedj@  x&@6U??Xp VREWIND_THE_TAPE 92570-1X143 REV.6000 920109 /SRC_92570/R6000/FST_TAPE.FTN ?//Ev^FST_TAPEFST_OPTIONS (FST_CIO HFST_BUF_MISC FST_EMA /;;|REWIND_THE_TAPE REWIND_MAYBE_OFF REWIND_TAPE_OFFLREWIND_TAPE_ONLI;((HANDLE_BAD_COMMUHANDLE_TAPE_ERROASK_YOUR_SONTELL_YOUR_SON (~~B77p(p`p( p ` p(#p`p(+`((+((#` (#`0Z(+(TUO pU(00TSO5#$%`RP#~;;R$7(9(BO Pp p(K`QP#(F(IH(KK p];O@צ??Xv7REWIND_TO_FILEMA92570-1X143 REV.5000 870526 /SRC_92570/R6000/FST_TAPE.FTN ?77F^FST_TAPE(FST_CIO HFST_BUF_MISC FST_EMA FST_COMMON FST_ESCAPE7hREWIND_TO_FILEMA::9 HANDLE_BAD_COMMUHANDLE_TAPE_ERRODISPLAY_MSG ASK_YOUR_SONTELL_YOUR_SON REWIND_TAPE_ONLI:nn00p`( 600#$%`5P#((((`4P#((&p#32%((( 0P p ( nq0@ZJy <<X\N%WRITE_EOFS92570-1X143 REV.5000 870323 /SRC_92570/R6000/FST_TAPE.FTN <BO,^FST_TAPE(FST_CIO T3WRITE_EOFS--.ENTR HANDLE_BAD_COMMUHANDLE_TAPE_ERROASK_YOUR_SONTELL_YOUR_SON -QQ&!!A $!#$%`#P#((`p(`"P#(((Q a!*)( @6 T==XNEXT_COMMAND92570-1X143 REV.6000 920515 /SRC_92570/R6000/FST_TAPE.FTN =88Fz FST_OPTIONS FST_BCKRST^FST_TAPE(FST_CIO FST_COMMONFST_ESCAPE8((LNEXT_COMMAND NEXT_FUNCTION %NEXT_APPEND $(~~a.ENTR .ARTN TELL_POSITION REWIND_TO_FILEMADISPLAY_MSG BACKSPACE_FILEREWIND_TAPE_ONLIREADTAPEHEADER FORWARD_FILE IFBRK ABORT_COMMAND MY_KIND_OF_TAPE CLEAR_DIR_FILESECURE_COMMANDDECIMALTOINT~ GET_NEXT_PAR 2<<p(A ` p(0p`p(5(+ p`(*((-pp(9 pp(9p`p`](>`T(H`V~~ B>>(HH J` (bp`(ap V( [P(88(T( e(jjp`(p s( xP(A|~jj2288(q(()`((()()jU XWY @$CW??Xi>[PREVIOUS_COMMAND92570-1X143 REV.6000 920109 /SRC_92570/R6000/FST_TAPE.FTN ?..E^FST_TAPE(FST_CIO FST_BCKRSTFST_COMMONFST_ESCAPE.جPREVIOUS_COMMAND  PREVIOUS_FUNCTIOXX |p.ENTR TELL_POSITION REWIND_TO_FILEMA BACKSPACE_FILE REWIND_TAPE_ONLI CLEAR_DIR_FILEDISPLAY_MSG SECURE_COMMANDDECIMALTOINTGET_NEXT_PARX~~;;p(A ` p('V($Vp`(#!YZ(&p() p +p]`T(7`V(77YX 9`@(A @~//?@(Pp`(NpU J88U(H P R("/IV  @ z(:??X BPOSITION_COMMAND92570-1X143 REV.5000 870526 /SRC_92570/R6000/FST_TAPE.FTN ?..E FST_BCKRST (FST_CIO ^FST_TAPEFST_COMMON FST_ESCAPE.sPOSITION_COMMAND77/TELL_POSITION NEXT_FUNCTION PREVIOUS_FUNCTIODISPLAY_MSG DECIMALTOINTGET_NEXT_PAR7mm55p >(6>p`h0( A@`@p`(6(1`p:/:(4(8(m *>  @Sr??Xh5SPOSITIONFORAPPEN92570-1X143 REV.5010 880329 /SRC_92570/R6000/FST_TAPE.FTN ?&&D^FST_TAPE  YFST_DFILE FST_COMMON FST_ESCAPE&WPOSITIONFORAPPENQQ .ARTN ABORT_COMMAND REWIND_TAPE_ONLIDISPLAY_MSG OK_TO_OVERWRITE BACKSPACE_FILEREADTAPEHEADERFORWARD_FILEMY_KIND_OF_TAPE Q~~l::pRpJ`X0WJ(!NQJPL(8A@8( (6%NP`X0W(/+pXpW 1(6 6<~&&:NO> @DNMF H(7&LV@;==X/FORWARD_FILE92570-1X143 REV.5000 870320 /SRC_92570/R6000/FST_TAPE.FTN =..EʂTEMPORARY ^FST_TAPE(FST_CIO FST_COMMON FST_ESCAPE.rFORWARD_FILE--.ENTR HANDLE_BAD_COMMUHANDLE_TAPE_ERROASK_YOUR_SONTELL_YOUR_SON -hh\++A  .#$%`-P#(( `p`,P$((()`+P#($('&())(h + @wq1>>X޴$BACKSPACE_FILE92570-1X143 REV.5000 870325 /SRC_92570/R6000/FST_TAPE.FTN >%%D?^FST_TAPE(FST_CIO FST_COMMONFST_ESCAPE%ԘBACKSPACE_FILE((HANDLE_BAD_COMMUHANDLE_TAPE_ERROASK_YOUR_SONTELL_YOUR_SON (PP p#  #$%`"P#((@p(`!P#(((P -  @T>>X-FORWARD_RECORD92570-1X143 REV.5010 880429 /SRC_92570/R6000/FST_TAPE.FTN >..EʄTEMPORARY ^FST_TAPE(FST_CIO FST_COMMON FST_ESCAPE.FORWARD_RECORD--.ENTR HANDLE_BAD_COMMUHANDLE_TAPE_ERROASK_YOUR_SONTELL_YOUR_SON -cc+))A  ,#$%`+P#((('`*P#((%`)P$(("($$(''( c ) @??X9 .BACKSPACE_RECORD92570-1X143 REV.5010 880427 /SRC_92570/R6000/FST_TAPE.FTN ?..EʁTEMPORARY ^FST_TAPE(FST_CIO FST_COMMON FST_ESCAPE.+BACKSPACE_RECORD##\.ENTR HANDLE_BAD_COMMUASK_YOUR_SONTELL_YOUR_SON #cc<6))A  -#$%`,P#((('`+P#((%`*P$(("($`)( (''( c)@ˮ>>X(TELL_POSITION 92570-1X143 REV.6000 920109 /SRC_92570/R6000/FST_TAPE.FTN >C^FST_TAPEFST_COMMONFST_ESCAPETELL_POSITION ).MBTDISPLAY_MSG INTTODECIMAL::Ap`]( &'(!h$`"!&%#:! <UT@M ??XZ,eLOAD_FIRST_TAPE 92570-1X143 REV.6000 920109 /SRC_92570/R6000/FST_TAPE.FTN ?//E^FST_TAPEFST_OPTIONS (FST_CIO FST_COMMON FST_ESCAPE/QLOAD_FIRST_TAPE BBaEXEC HANDLE_TAPE_ERRO TAKE_A_BREAK IFBRK DISPLAY_MSG WAIT_FOR_USERS_GSECURE_TAPE REWIND_TAPE_ONLIB}}88p`]( `](`dp pPX(( `bP(($hcX$ 0(T`0(5`bP$(,(10`a(55`_`(=}>>4~9:PX(Q(M`(FD^]pM\Y[YZ O(S S(V V(>nX  Gvr@Ml>>XLOAD_NEXT_TAPE92570-1X143 REV.6000 920917 /SRC_92570/R6000/FST_TAPE.FTN >JJH^FST_TAPEFST_OPTIONS  YFST_DFILE (FST_CIO ]FST_CFILE FST_BCKRSTFST_COMMONFST_ESCAPEJ LOAD_NEXT_TAPEff EXEC .MBT .CBTREWIND_MAYBE_OFFDISPLAY_MSG SHOW_TAPE_ERROR TAKE_A_BREAKIFBRK INTTODECIMALMY_KIND_OF_TAPE OK_TO_OVERWRITE SECURE_TAPE WAIT_FOR_USERS_Gf}}9<<p`ppJ`(P(P(`N(*`Z(͡&((`T(0(`h (;p`h }.@<<(E0(NM(`P (i`p Yh`  b h怠(Ո ( &` pU` p`(~oo|22 ((  * ,`P $hX $ 0(`(`P $((((`(o^^M..p((`P $ hX % ((((((^55  @ d@" _d14IOGvrQ5@??XX]|MY_KIND_OF_TAPE 92570-1X143 REV.6000 911217 /SRC_92570/R6000/FST_TAPE.FTN ?&&D^FST_TAPE  YFST_DFILE FST_COMMON FST_ESCAPE&qMY_KIND_OF_TAPE  ;;dQ.ENTR .ARTN .CBT REWIND_TAPE_ONLIDISPLAY_MSG CCLEN HEADERCHECKSUMMAREADTAPEHEADER;@@A `{ppW pXp\AMM``ohwn((!(!`{pX(LA`mhul()(2(2(00yz(T(L4(K`{pW`khsj(@77ApYEpPjYp\(L(M((TTyxp X(788^[!!ustar created using: FCHEADERA[8@ )E>>X }READTAPEHEADER92570-1X143 Rev.5021 900425 /SRC_92570/R6000/FST_TAPE.FTN >@@Gui^FST_TAPE  YFST_DFILE (FST_CIO HFST_BUF_MISCFST_EMA FST_COMMONFST_ESCAPE@wREADTAPEHEADERHH } .CPM .CBT OCTALTODINT MOVE_FROM_EMA CLEARBUFFER HANDLE_BAD_COMMUSECURE_COMMANDASK_YOUR_SONTELL_YOUR_SON H}}3n44p |up pr P#$%`{P#(( `$phzp(5`yP#($(3`xP$(((.` p(20`w(,(55}ttl533`vp;A  v(B(B`p Gh `vp p`t@ppP`ohm l([`q(,`R(f`(f djJ(,t%%h` DA\[Z%@l:,>>Xy"GETCTDADDRESS 92570-1X143 REV.5000 870402 /SRC_92570/R6000/FST_TAPE.FTN >BO+^FST_TAPE(FST_CIO eGETCTDADDRESS  UHANDLE_BAD_COMMUASK_YOUR_SONTELL_YOUR_SON ::mcp !#` P#(((: a` @7e??X;!\UPDATEMAINHEADER92570-1X143 REV.5000 870320 /SRC_92570/R6000/FST_TAPE.FTN ?..Eu ^FST_TAPE YFST_DFILE (FST_CIO HFST_BUF_MISC FST_EMA .5UPDATEMAINHEADEREE6 .MBTHANDLE_BAD_COMMUHANDLE_TAPE_ERROASK_YOUR_SONTELL_YOUR_SON MOVE_TO_EMA DINTTOOCTAL MOVE_FROM_EMA E~~M77p[WT #$%`PP#((N Y( `ZP#(((  $P JAhS`Q P  . NY3XWT8#$~0047%`VP#(<(=(F`UP#(A(DC(FF0/N `  P @:Y~>>X1WIPE_OUT_TAPE 92570-1X143 REV.5000 870526 /SRC_92570/R6000/FST_TAPE.FTN >C{(FST_CIO FST_COMMONFST_ESCAPE$WIPE_OUT_TAPE 00hREWIND_TAPE_ONLIWRITE_EOFSREWIND_TO_FILEMAFLUSH_CIO_BUFFERDISPLAY_MSG 0++p  + 1Z @N??XJHANDLE_TAPE_ERRO92570-1X143 REV.5021 900504 /SRC_92570/R6000/FST_TAPE.FTN ?..Es^FST_TAPE(FST_CIO FST_BCKRSTFST_COMMON FST_ESCAPE.HANDLE_TAPE_ERRO SHOW_TAPE_ERROR && 4ABORT_COMMAND DISPLAY_MSG DISPLAY_FMPERRORSET_PRIORITY&~~77p( p`p(`p(p pV pU`$p `%pPh$(]`$p`P%(+(00 ` P(4(:9 (\~~~:::` P(>(DC (\`P(H(NM(\`P(R(XW(\\(`P(a(fe(݈`P(j(w`(rq(vv~~~t;;(`P({((݈`P(((`P(((`P(((`P(((݈`P(((`P~llf55(((`P(((݈`P((ȡ(`PhX 0(ء(`(l>>** @0Psrqvxwutzpoyn!>@D@@X>fFST_TAR_HEADER92570-1X145 REV.6000 <921007.1811>/SRC_92570/R6000/FST_TAR.FTN@ A+nFST_TAR FST_TAR_HEADERkIp@<<XW];TAR_COMMAND 92570-1X145 REV.5000 870526 /SRC_92570/R6000/FST_TAR.FTN<COFST_BCKRSTFST_COMMONFST_ESCAPE5TAR_COMMAND .ARTN DISPLAY_MSG TAROPTION dd)55p`T(A )/(A#6:(!69('68(-67(365(d¼5 @#B|;;X!CyTAROPTION 92570-1X145 REV.5021 900206 /SRC_92570/R6000/FST_TAR.FTN;''D^FST_TAPEFST_OPTIONS  YFST_DFILE FST_BCKRST'sTAROPTION 5.SCOGET_NEXT_PAR ??pj(BAjt( ((p(Ajr((-(-` pc 00c(*p(,`w(((Ajp(3(6(6p(AAjn(< (?(?p(A((LLA""(DppWIjA(Sjl(Q(S(S `xpW 00(_`xp(a`v((((L((@~dC B A OF F ON   (@(xG8>>XINIT_BACKUP_TAR 92570-1X145 REV.6000 921002 /SRC_92570/R6000/FST_TAR.FTN>DDGdTEMPORARY FST_OPTIONS  YFST_DFILE FST_COMMAND FST_BCKRST FST_COMMONFST_ESCAPEDWINIT_BACKUP_TAR {{6.DCO.MBTDISPLAY_MSG ABORT_COMMAND CINDEXTRIMLEN FMPPARSEPATHDINTTODECIMAL BACKUP_TARCLR_GL_BITS DISPLAY_FMPERROR FMPINITMASK FATTENMASK CLEAR_DIR_FILEOPEN_DIR_FILE POSITIONDFILE { GET_NEXT_PAR ;;p( pG(h`(p`T(!!ޠ`N((' (4*P( .؉ `pN` (< ;(A<>> A` p K  (V؉dU(d` (^` p^ ddhdl r dA GNNGnz&&(acb`(p(N3W (GGb(( @ GL f \@T @D@@ (@X>@ @ @ @p*@ p r G@,;;X7=BACKUP_TAR92570-1X145 REV.6000 920324 /SRC_92570/R6000/FST_TAR.FTN;11E8 FST_OPTIONS  YFST_DFILE FST_BCKRSTFST_COMMON ((FST_ESCAPE1^ BACKUP_TAR:: FMPENDMASK BUILDTARENTRY MASKOLDFILE DISPLAY_FMPERRORDISPLAY_MSG IFBRK FMPNEXTMASK :zz77p` p7 78 (0h<X 0(:;(0`(#":8(/` (/` p7+7pS /(` p7 57zȧ8 @*@.==X&BUILDTARENTRY 92570-1X145 REV.6000 920324 /SRC_92570/R6000/FST_TAR.FTN=CG FST_OPTIONS  YFST_DFILE FST_BCKRSTBUILDTARENTRY aaC.DAD .DIN .DMP .DDI.CPM.DMOD .EXIT .SST.MBTWRITE_DIR_REC DINTTOOCTAL COUNTTARBYTES DIR_REC_A_DIRECTCHANGE_TO_TAR_NAHEADBUILDERHELPEa??p` ( p ?X i 0A((iPhX i  X p ip`0(@ ;P(`p Z?@@(i i 0 hX i 0(S  e(Z A  @  e  edh`k @   d d JA e  eAA  $$0  d"$@<>>XkCHANGE_TO_TAR_NA92570-1X145 REV.6000 920324 /SRC_92570/R6000/FST_TAR.FTN> AmNTEMPORARY RCHANGE_TO_TAR_NADD h.ENTR .EXIT .SBST .SCO.SST CHARFILL TRIMLEN LOWERCASE CONCATFMPBUILDHIERARCHFMPPARSEPATHDw9LLkksqoumA(oA{o}($X (0Ao{(8Am{Dksqo{m(KKky **LNk Qkpa akJa _aw*66.d / DIR ?0\0V0F>00Zd6@J<<XaGO_SAVE_TAR 92570-1X145 REV.5021 900320 /SRC_92570/R6000/FST_TAR.FTN<AAG2FST_TAR ^FST_TAPE FST_OPTIONS  YFST_DFILE FST_BCKRSTFST_COMMONFST_ESCAPEACGO_SAVE_TAR XX v.DCODINTTODECIMALRDISPLAY_MSG LOAD_NEXT_TAPE TARSAVEVERIFY INITTARSAVEVERIF TARSAVEFILESTARINITTAPESAVE TARINITSAVE LOAD_FIRST_TAPE X~~!u>>p`p` Up  00((`(( `Z(('( X \ ^ ` b>~C>;;P(`T(TE G` (N L N`T(S S(@X\ aeXj AX  (}x\ffay33} A`((`b((b ^A((^f  ZGx#@pҏ<<XjQ=TARINITSAVE 92570-1X145 REV.5000 870526 /SRC_92570/R6000/FST_TAR.FTN<88Fd^FST_TAPEFST_OPTIONS (FST_CIO FST_BCKRST FST_COMMON FST_ESCAPE8'TARINITSAVE 99Ҙ HANDLE_BAD_COMMUASK_YOUR_SONTELL_YOUR_SON OK_TO_OVERWRITE ABORT_COMMAND DISPLAY_MSG 9vvz44p`(  ;: ((955#$%`8P#("(*`$ph7p(, ,`>XTARINITTAPESAVE 92570-1X145 REV.5000 870305 /SRC_92570/R6000/FST_TAR.FTN>..E^FST_TAPE(FST_CIO HFST_BUF_MISCFST_EMA FST_BCKRST.8TARINITTAPESAVE .DINTELL_YOUR_SON 33pp  pT P @(3 ? @J <<XOBTARSAVEFILES92570-1X145 REV.6000 920324 /SRC_92570/R6000/FST_TAR.FTN<77FQYFST_TAR ^FST_TAPE  YFST_DFILE FST_BCKRST FST_COMMON&FST_ESCAPE7aTARSAVEFILES||ub.DAD.DIN.DSB.DMP.DCO.CPM.EXIT .SCO.SST .SBT.MBT%ERASELASTFILE REPLACE_DIR_REC DISPLAY_MSG $DISPLAY_FMPERROR#FINISHTARTAPE "BREAK_AND_DESTRO!IFBRK FMPCLOSEFINISHTARBLOCK|cc ICPUTSTRINGINEMAFMPREAD UNPACK_DCBFMPOPEN DIR_REC_A_DIRECTCOPYING_MSG CALC_CHECKCHANGE_TO_TAR_NA FMPREADLINK CLEARBUFFER READ_DIR_RECPOSITIONDFILE c#5@@p (A(h `,A1N@ P i(#(>J`8h*  , 'p ` ( %/(6p >' ABh"`~~ͧG<:=p ^^(p 5`;P ( >4hA@J e((ي`;p (܈X X 媡 !("( #$::9`Ap @``P i(% (UUh22rofxDIR l@>4d $(2  dU@+>>X*HANDLETARSAVEEOT92570-1X145 REV.5000 870526 /SRC_92570/R6000/FST_TAR.FTN>??G~FST_TAR ^FST_TAPE YFST_DFILE (FST_CIO FST_BCKRSTFST_COMMON FST_ESCAPE?AHANDLETARSAVEEOT00 .DDE FINISHTARTAPE ERASELASTFILE DISPLAY_MSG TELL_YOUR_SON FMPCLOSE0OOz""p`)pT &('$$&%"   @  OR" @> P@ j+*==XERASELASTFILE 92570-1X145 REV.5000 870403 /SRC_92570/R6000/FST_TAR.FTN=@@GTEMPORARY ^FST_TAPE(FST_CIO HFST_BUF_MISCFST_EMA FST_COMMONFST_ESCAPE@҄ERASELASTFILE EE 2.DAD.DSB .DSBR .DMP .DDE.DDI .DDIR .DCO.ENTR HANDLE_BAD_COMMU ASK_YOUR_SON TELL_YOUR_SON E;;A AP hphJ@((:h@xh@` 'ph@x`(h@PP(hg;88J@  h@ PPh@J@ h@A   \ a#$%`P#(e(f(m`P#(j(k(mmh@ ccs,,PPhJ@J  J AxhJ@x`(h @ JP PcI @7U==XbCOUNTTARBYTES 92570-1X145 REV.5021 900321 /SRC_92570/R6000/FST_TAR.FTN=&&D)FST_TAR  YFST_DFILE FST_COMMON FST_ESCAPE&COUNTTARBYTES << HV.DAD.DDI.MBT DISPLAY_MSG DISPLAY_FMPERROR FMPCLOSEDINTTOOCTAL UNPACK_DCBFMPOPEN <~~T>>p\pRVX`(;XP_(7P^(7$PAhU`QPZX e 5 ; ?aR Da~ #B`R(6 $$N rofx  @>  $@ʛ>>XINITTARSAVEVERIF92570-1X145 REV.5000 870526 /SRC_92570/R6000/FST_TAR.FTN>00EZ YFST_DFILE HFST_BUF_MISCFST_EMA FST_COMMONFST_ESCAPE01INITTARSAVEVERIF DISPLAY_MSG 11@p p1M@==XTARSAVEVERIFY 92570-1X145 REV.6000 910206 /SRC_92570/R6000/FST_TAR.FTN=99FFST_OPTIONS FST_TAR  YFST_DFILE FST_BCKRSTFST_COMMON!FST_ESCAPE9 TARSAVEVERIFY xx.DAD.DIN.DSB.DMP.DCO.CPM .EXIT .SSTFMPCLOSE DISPLAY_MSG DISPLAY_FMPERROR REWIND_TAPE_ONLITAKE_A_BREAK_ANDIFBRK FMPSETDIRINF((O FMPOPEN CONCATFMPPURGECOMPARE_WORDS xIIȱGETBLOCKFROMEMA FMPREAD UNPACK_DCB DIR_REC_A_DIRECTTARHEADERSMATCH TARPOSANDREADTAPREAD_DIR_RECPOSITIONDFILE IwV >> p  (( A((O {` (CJ ef- f/(8 7p(W`p <X i 0A( rx  N)>K<<pr{`(S` (eY P(SAP(W(b p(p}`P(tp `P(`(Sh |h@ e(}}$@@( e{x h |h@h |pgp `g(pi@ '@zpff(W8 8i(J e((`p(k}~~a<<\ \` (`(סpp`( p(`(`h0( p(C` g(C`(  Jrv `(~7rt  ~~P >>pr{`( p(`( p`h0(* )p(C3{`(?:p ?pCE(I~CCkGI@( Q Wp \p`b b(CC==ͬj%%l orfdsq rofx@P>  ܠ( =@EDd==XSPUTSTRINGINEMA92570-1X145 REV.5000 870403 /SRC_92570/R6000/FST_TAR.FTN=%%D ^FST_TAPE(FST_CIO HFST_BUF_MISCFST_EMA %PUTSTRINGINEMARR(U .DAD.DIN.DSB .DSBR .DDI.DCO.ENTR .DMOD .EXIT .IRES .SBST TELL_YOUR_SON MOVESTRINGTOEMA GETNEXTSTRINGBUFR~~1EEpp`( AxhJ@(#(#(cD 4h@  hh@@ ~H I== xA xhJ@  `@ph@ PA P(A txhJ@x bb--A hh@  xA x`@ph@ P Pê(`(b# d@ >>XGETSTRINGFROMEMA92570-1X145 REV.5021 900130 /SRC_92570/R6000/FST_TAR.FTN>..E TEMPORARY ^FST_TAPE(FST_CIO HFST_BUF_MISCFST_EMA .OGETSTRINGFROMEMAII .DAD .DIN .DSBR .DDI.ENTR .DMOD .EXIT .IRES .SBST SIGNAL_TO_RELOAD MOVESTRNGFROMEMARELOADTARBUFI~~˺CCAp AxJ +@(ChJ@ @ `h@J  (~E>>(G(Vh@ h@J  (`(Z(h@J@   hhA@ xh@J  PP  p`@pQQ9x&& (A hh@  xA x` @phJ@ P PQ d@Nym9>>X@GETTARHEADERFROM92570-1X145 REV.5000 870306 /SRC_92570/R6000/FST_TAR.FTN>CT^FST_TAPEHFST_BUF_MISC FST_EMA #GETTARHEADERFROM,,b/.DAD.ENTR .IRES SIGNAL_TO_RELOADMOVE_FROM_EMA RELOADTARBUF,ff00A@p7 200?`?@p<`>@pJ: 8J PP.f2d8@>>X<GETBLOCKFROMEMA 92570-1X145 REV.5000 870123 /SRC_92570/R6000/FST_TAR.FTN>CU^FST_TAPEHFST_BUF_MISC FST_EMA )GETBLOCKFROMEMA 00.DAD.DIN.ENTR .IRES SIGNAL_TO_RELOADMOVE_FROM_EMA RELOADTARBUF0dd;//A@p6 1//;`;@p9@pJ7 P@P -d1d|7@Y1==XFINISHTARBLOCK92570-1X145 REV.5021 900328 /SRC_92570/R6000/FST_TAR.FTN=..EFST_TAR (FST_CIO HFST_BUF_MISCFST_EMA FST_BCKRST.FINISHTARBLOCK FINISHTARTAPE [[ .DCO.DMOD REWIND_TAPE_ONLIWRITE_EOFS HANDLE_BAD_COMMU HANDLE_TAPE_ERRO TELL_YOUR_SON ASK_YOUR_SONPUTSTRINGINEMACLEARBUFFER DIR_REC_NUM [~~><<p( p` p("A~x`(( `@p x$*0(5`p5x 0(R~~~$=66|(R(Rz(K(KJx{(Q`pQx(: W # $ %`P #([(\(o`P #(`(m`P $(d(j izz(l l(o or~ "Mst(! x @@紧99XTAR_DL92570-1X145 REV.6000 911217 /SRC_92570/R6000/FST_TAR.FTN999F^FST_TAPEFST_BCKRST  YFST_DFILE FST_COMMAND !FST_COMMON"FST_ESCAPE9 TAR_DL j.DAD.DDI.DMOD .EXIT .SBST .SST.LBT.SBT.CBT REWIND_TO_FILEMADISPLAY_MSG TAKE_A_BREAK_ANDIFBRK CDESC OCTALTODINT DLDISPLAY GOT_A_MATCH FIXUNIXNAME TRIMLEN CONCAT CCLEN AA HEADERCHECKSUMMA GETTARHEADERFROM TARPOSANDREADTAPMORETOCOMEFATTENMASKGET_NEXT_PARLIST_TAPE_HEADERABBp(`pM(pMpH~`(`    (W Pxph`yhx(FFh(9 Pvph`whAv(hA(9 \( (( phhDrhJhp`h phxir GGhhiDhH`huW(&$~Pr(`h}@phh}@0hHphh}Ph(R<zhAhP(V22>SP(Y`p[(__(d f2^^Mk88 / ../ ./// <d@@ 6^@?>>X}GO_RETRIEVE_TAR 92570-1X145 REV.5021 900326 /SRC_92570/R6000/FST_TAR.FTN>KKHp^FST_TAPE FST_OPTIONS  YFST_DFILE HFST_BUF_MISCFST_EMA FST_BCKRSTFST_COMMONFST_ESCAPEKQGO_RETRIEVE_TAR jj ' .DCODINTTODECIMALRDISPLAY_MSG CLEAR_DIR_FILERETRIEVE_TAR_VER INIT_VERIFY_PASS ABORT_RETRIEVE_V IFBRK RETRIEVE_TAR_FILINIT_TAPE_RETRIEINIT_RETRIEVE SECURE_COMMANDj}}K)<<p`p`(  Z \ ^ ` b&P(F`T(F-P(F1Z  (E }~~<>>=(A A C E((pVJNRZWZ  (je\j `A (y(yt`y~CCozb ((b ^A ((^( CS  21#@Vzu:>>X%RETRIEVE_TAR_FIL92570-1X145 REV.6000 920424 /SRC_92570/R6000/FST_TAR.FTN>ooLTEMPORARY FST_TAR 71FST_RFILE 'FST_OPTIONS ^FST_TAPE YFST_DFILE FST_COMMAND HFST_BUF_MISC6FST_EMA FST_BCKRST8FST_COMMON9FST_ESCAPEoqRETRIEVE_TAR_FIL~~b.DAD$.DIN.DDI.CPM1.DMOD .EXIT .IRES .SBST %.SCO.SST .LBT.IDLP .MBT.CBT5REPLACE_DIR_REC 4REWIND_TAPE_ONLI3ABORT_RETRIEVE2IFBRK 0DIR_REC_NUM /CLOSE_DISC_FILE .TARCOPYFILETODIS~u(-OPEN_DISC_FILETARPOSANDREADTAP,COPYING_MSG +WRITE_DIR_REC TRIMLEN *CALC_DEST_NAME#DISPLAY_MSG )FMPBUILDNAME(FM((PPACKSIZE &FMPPARSEPATH FIXUNIXNAME CHARISMOVE_FROM_EMA "CINDEX!FMPSYMLINKGOT_A_MATCH >>fLCDESC OCTALTODINT CASEFOLDRENAME_TAR_FILE CCLEN CONCATHEADERCHECKSUMMAGETTARHEADERFROM>~~vDDp͉p`(h С(_P|py`h|(+y(2Ppy`hA(>yA(I~dHII  \(QApy y~yAy `c(f(tiApy y~y ty wp`h Apyxz yyzAy(J WCC ((Ah` `W(Ah` p`(h`Ah` `W(yy J@~~??ɉ p c`pMpL`@py`yph(p||yyq(`ш@p8(~(hH @pyh @y(͉~@@ (N~py!pz$~z0y(D",@py y~@%,2EEy#:y ͉ @`$`(NI~(YP~(YW~(h#^ ͉ @`$`(N`@py||yyvyP@%Yyw==(|pG`ppF~(h`A  ~ p ip l p (`FG(&(p`(@%wwC44(((`|p i(Ġ`(p i(`p i(`p i`p `'  ( @AAy(yp l(( p lp)w99 i l p  p @`(# ^$^`FG(*  p ?p A(#`F(`pp J` @p ?~~`!::`p AJ  P ++,-1 P -3P~(l.7P~(l`'py/ ?yZ@$Z0F pP ʼn1~FF%j[(a`p2c(g3g( 4j`p `'(s5s @`$`(NF|d`KK DIR 2 6 4 3 1 / ../ ./00@0>d0@ 000@,d0=0< 0``0 ?  !/! @˜\>>X"}RETRIEVE_TAR_VER92570-1X145 REV.6000 900824 /SRC_92570/R6000/FST_TAR.FTN>SSI> *oTEMPORARY FST_TAR +^FST_TAPE1FST_RFILE ,FST_OPTIONS  YFST_DFILE FST_BCKRSTFST_COMMON-FST_ESCAPESnRETRIEVE_TAR_VER}}.DAD.DIN.DSBR .DDI.DCO MOD .EXIT .SBST .SST.MBT.CBT)FMPPURGE(FMPCLOSE DISPLAY_MSG DISPLAY_FMPERROR'REWIND_TAPE_ONLI&ABORT_RETRIEVE_V%IFBRK $CLOSE_VERIFIED_F#RENAME_TEMP_FILE}xxx"COMPARE_WORDS !GETBLOCKFROMEMA FMPREAD COMPARESTRINGSGETSTRINGFROMEMAFIXUNIXNAME TARHEADERSMATCH TARPOSANDREADTAPCDESC OCTALTODINT DIR_REC_A_DIRECT FMPOPEN FMPREADLINK READ_DIR_RECxгHANDLE_DFILE_PROFMPREWIND ~~9<<p `((C` (<` b($Ah~`nm()h~`pAmP i(-(43}w(G` (< {HA (@ {  G~~~QB??}{{`(X M Ro @bb(<Z(+_y_ d_JA  J x z( ~\\** o(JP i((u`xhvm((J(J(+ A(+(+` (kp`(G\CC((_qJ _(k`h@P(̀(ш `P((J`A((_s Aaq _a(J(*??kp`(G (Jhp`p``(pc@'@p_!_88c( h@`@p_"'_(J(P iqqd-22(/(5` b(4#4(7 $7\@\%>(B&B('E J Oo(S` b(Y)Ym @bb(<qPPVId//orfxqsd orxqsd0@ d 00@@, @ (P@B `>>X,KGETNEXTSTRINGBUF92570-1X145 REV.5021 891219 /SRC_92570/R6000/FST_TAR.FTN>%%D ^FST_TAPE(FST_CIO HFST_BUF_MISC FST_EMA %QGETNEXTSTRINGBUF11K.DAD.DMP HANDLE_BAD_COMMUHANDLE_TAPE_ERROHANDLETARSAVEEOTASK_YOUR_SON1255p#$%`JP#( ( C p`$p`Iph@E(?`HP#("(=`GP$(&(:C p`ph@##<5 `%p9(<<(? ?#C(@G<<XmS8RELOADTARBUF92570-1X145 REV.5000 861231 /SRC_92570/R6000/FST_TAR.FTN<C(FST_CIO HFST_BUF_MISCFST_EMA ,RELOADTARBUF##L.DADHANDLE_BAD_COMMUHANDLE_TAPE_ERROASK_YOUR_SON#ss11p0(/ #$%`7P#((&`$ph%6ph%@p3(/`5P#(*(-,(//s3 @h(>>X6TARPOSANDREADTAP92570-1X145 REV.5000 870406 /SRC_92570/R6000/FST_TAR.FTN>@@Gz(^FST_TAPE(FST_CIO FST_BCKRSTHFST_BUF_MISCFST_EMA FST_COMMONFST_ESCAPE@) TARPOSANDREADTAPYY .DAD.DIN.DSB .DSBR .DMP .DDIR .DCO.ENTR .DMOD MOD .IMAP HANDLE_BAD_COMMUHANDLE_TAPE_ERRO ASK_YOUR_SON TELL_YOUR_SON Y BB ,(&`,A@p,@p@p @PP PhA@(3(L+Ah@ xh@x AP  P"K;;(h@J  PPh@ hA@  p h5 m#$%`4P#(q({h@ PP(`3P#(((`}}D@@(h@ AA A-((`"p(0(`p(+x ## #$%`2P#((`$p`%ph@ }bbhj//+xh,h@x AP  P(`1P#((`0P$((pp`!pp`/p&!bTT$((88&(((h@ `(  'h@ hA@)  T!d0'' @4>>X %TARCOPYFILETODIS92570-1X145 REV.6000 921007 /SRC_92570/R6000/FST_TAR.FTN>88F:FST_TAR 1FST_RFILE  YFST_DFILE FST_BCKRSTFST_COMMONFST_ESCAPE8YTARCOPYFILETODIS .DAD .DIN.DSBR .DCO .CPM.EXIT .SBST .SSTFMPPURGECLOSE_DISC_FILE DISPLAY_MSG DISPLAY_FMPERRORABORT_RETRIEVEIFBRK FMPWRITEGETSTRINGFROMEMACHARFILL GETBLOCKFROMEMA FMPWRITESTRINGbDIR_REC_A_DIRECTDIR_REC_NUM xAAp pP(P i(('"`((p (Պ(`(vppA pA }}o}GHH(a@'@p T`$@pA `p(:`(uh@AH  xAu(ň ((J (P}oDD((ph@(`h@`( # ^ ^`(`h pxAA˪`((]]..(-`(( "  ! @^ ^(   ` b( ((( (]99j  d@ @@ @ ,    9@mƌ>>XTARHEADERSMATCH 92570-1X145 REV.5000 870306 /SRC_92570/R6000/FST_TAR.FTN>BhTEMPORARY  YFST_DFILE nTARHEADERSMATCH   .CBTGETTARHEADERFROM00rpp A`h(((`p`0 @4 @n .<<X_FIXUNIXNAME 92570-1X145 REV.6000 900822 /SRC_92570/R6000/FST_TAR.FTN<CK  YFST_DFILE FST_COMMON FST_ESCAPE@FIXUNIXNAME 33 i.CPM.ENTP .EXIT .SBST .SST .MBT CASEFOLDCHARISCINDEXCCLEN 3 EEA`pu`uupupp`uA( (9%~(9+@p2p`(9`p@prAr0(Y@pr@JJH**rrDrHh` `p g@(i`(_(irDrH(p pJ;;Zv!! DIR .DIR/ 2  d= <   ;@/;;XUNPACK_DCB92570-1X145 REV.5021 900131 /SRC_92570/R6000/FST_TAR.FTN;B TEMPORARY FST_TAR oUNPACK_DCBTT .DAD.ENTR .CPMMIN0.EXIT .SBST .SSTCOMPARESTRINGS GETBLOCKFROMEMA COMPARE_WORDS PUTSTRINGINEMAMOVEWORDS FMPREAD T# DDA pp`p p$Ljp (*` @p`(^`Ā PhX (B`()p`@pP(`@P@@@pA([([`p`p`@A@pfp`@@Pp (~`@hH px~`@@p `(`(` p  (aGGA A  h @   ((  (1` ((1`@ @((`@p `pAA A `p`P((` @ p  ~~#DD ު (`()Ap ((` hH pxD H`p`@ p (` ((H ` Ap A ` p((1~44`pDD  H`@ p`@P(6(<47>>p`p((`(~@`@(L(L`Ĉp`p((V`@@P(V`ŀ()`@p`@pP(`@@p(q(q`p`pkku99(|(|p((^(`@@pp(`Ā h (  AA(`Ĉ()`()k++dJ d0f+@҂>>XRENAME_TAR_FILE 92570-1X145 REV.6000 910913 /SRC_92570/R6000/FST_TAR.FTN>~RENAME_TAR_FILE  \\|.ENTR .CPM MAX0.EXIT .SBST .SCO.SST.INDX .LBT .IDLP .CBTTRIMLEN TOOLONG CONCATCINDEXCHARIS CASEFOLDLASTMATCH \Z:,@>[-|_*^(?1HHp,p `p`h (7(:(:`p(I`pA`h(D(G(G`p(IpN (`A`p  A~~\FF@ p (bp fpkp`HApx vp  (|(`P (`@ A(( p ((`A@ p A~~~FF `h(` (` p`p h A (pܡ (  ((١ ( DH`p8 8(p` p H`~771@pp ` (( H`@pA`p(7~~̋DD88(p `p Ap` (apDHHhP (%(.P(+`p (-p (]hH@ p؄h@  ([p  (S(S` H~bGDDApxSءW@p (]p 88(` pJ n` p sp ` P (}A`p(`pp ` KK(` p (` p A (Ƅ(p ` @ @ ((D H(` p DDJp `p` (` p D @ t` TTv44/ _ . .DIRDIR ./../    /5T@U::XTOOLONG 92570-1X145 REV.5021 900302 /SRC_92570/R6000/FST_TAR.FTN: <TOOLONG  !!.ENTR .EXIT .SBST .SSTCHARISTRIMLEN !~~GKKzxppzppp`(_ps(zpq.z~0q(Rp`(7(Q`pAqzAxAqqzzAqx`p~EEP!!p([`p`P(Y([`p88s(#`(c(o`pqzDzHq|`Eu . / @ @@XhFST_TF_HEADER 92570-1X147 REV.6000 <901109.1150>/SRC_92570/R6000/FST_TF.FTN @ rFST_TF_HEADER kIp@99XTF_DL 92570-1X147 REV.5021 900301 /SRC_92570/R6000/FST_TF.FTN 900EA^FST_TAPE YFST_DFILE FST_COMMAND FST_COMMONFST_ESCAPE0 T"TF_DL  xxt.DAD.DDI.DMOD .EXIT .SST .CBTREWIND_TO_FILEMADISPLAY_MSG TAKE_A_BREAK_ANDIFBRK OCTALTODINT DLDISPLAY FIXUNIXNAME GOT_A_MATCH OCTALTOINTLIST_TAPE_HEADER GET_ENTRY_FROM_Ex%% POSITION_AND_REAMORETOCOMEFATTENMASKGET_NEXT_PAR_INT%j["<<"p"` p)-2L(;`pM:Ѐ(=pM?pP  H `( Q  U `h (](d(d^CC_P (`hA (l((op cs(~y|P(P   (A`h ((( P (`p%%c((I"%GG"++CHKSUMNORMALHEAD ERa A > dk @` d jp vG@~4>>>X)sRETRIEVE_TF_FILE92570-1X147 REV.5021 900323 /SRC_92570/R6000/FST_TF.FTN >^^J#)ZTEMPORARY FST_OPTIONS ^FST_TAPE YFST_DFILE FST_COMMAND HFST_BUF_MISC(FST_EMA FST_BCKRST*FST_COMMON+FST_ESCAPE^`RETRIEVE_TF_FILE~~ .DAD!.DIN .DDI#.DMOD .EXIT .IRES .SCO.SST.IDLP .CBT'REPLACE_DIR_REC &REWIND_TAPE_ONLI%ABORT_RETRIEVE$IFBRK "DIR_REC_NUM CLOSE_DISC_FILE COPY_FILE_TO_DISOPEN_DISC_FILECOPYING_MSG ~yyDPOSITION_AND_REAWRITE_DIR_REC TRIMLEN CALC_DEST_NAMEFMPBUILDPATH OCTALTOINTFMPPACKSIZE FMPPARSEPATHMOVE_FROM_EMA GOT_A_MATCH OCTALTODINT FIXUNIXNAME LIST_TAPE_HEADERGET_ENTRY_FROM_Eye#@@pep`(m e`BhdA(!((((#P(A`BhbA(0((4Ee7[ k i  @Yp c`rp M`o~~-D>>@p/`/pheo(fp611/X/ qp ` p L_E(g`o@p86(M(`qA@p/11//u/ PpG_({p G` pp F~66EMKIW  i l mU p l Sp i Qp m Op ` cp CMKI_  i l m_C p @` F G(C <<lGEEp ?(` F(` pp AEC` @p ?`rp AJg P<~~r<< P P3("P3("`p/ / Z! Z "   p PJA  eAA#e (`Bh^A~PP7> ""(((P(`rp$(%( & `rp `()') @ `! `(P~1ddd07<<CHKSUM NORMAL((HE ADER0A @0>d0 @ 0 |> 0G0W 0O>> (0k 0n tv |!/d@\{~~Q ABORT_COMMAND qABORT_RETRIEVEYBABORT_RETRIEVE_VYB ABORT_SEARCHV "/ ADDFMGRFILE #kq ADDLULOCK j / ADDTOGROUPPO// ! ASK_YOUR_SON)~ BACKFORMORE  {/~~~pBACKSPACE_FILEU@_-&BACKSPACE_RECORDYs_&BACKUP_COMMAND <H"/m BACKUP_TAR"/ BEGINGROUPJ1"/BEGINTFTARGROUP J1"/BREAK_AND_DESTRO/  BUILDDSENTRY9o"/= *~~~u BUILDTARENTRY g\I=* BUILD_NEWFILE_RE/X=  #* CALC_CHECKCALC_PROTECTION QCCLEN ECDESC CFILE_REC_LENGTH*.CHANGE_TO_TAR_NACLEARC] CLEARLULOCKSj /{~~~ CLEAR_DIR_FILEoCLEAR_FLUSH_CIO +*_& CLOSE_CFILE *CLOSE_DISC_FILE *4H"  CLOSE_DSFILE!<"/ CLOSE_TRFILE[CLOSE_VERIFIED_F-"/ CLR_GL_BITS D-COMPARESTRINGShOCKSj :{~~~: COMPARE_WORDS cCONTINUING_MSGV9A/ COPYING_MSG TBA/ COPY_FILE_TO_DIS/X  C Z COUNTRECORDSCOUNTTARBYTES I"/COUNT_DIR_RECSO Z / CREATED_PATHQ"/ CREATENODE!Z/~~~oCREATE_A_DIRECTO>4e"/CREATE_A_FILE >He"/ DATA_VERIFIED Q<  DESC_MATCH+ jDESC_MATCH_PREP + j DF_COMMANDP"/#DIR_REC_A_DIRECT  DIR_REC_NUM {XDE!Z:~~~ DISC_ADDR   DISC_ADDRTo DISPLAY_BUF !DISPLAY_FMPERROR./ DISPLAY_MSG   DLDISPLAY 3AH/;  DL_COMMAND,i ; 1DOUBLEoDSFILE_ERROR_HAN!<"/ DUMPFMGRDIR -xt1*:~~~~ENDGROUPNR/ERASELASTFILE k_&FINISHTARBLOCK_-  &7FINISHTARTAPE _-  &7 FINISH_BLOCKf_M- ! &7 FINISH_TAPE f_M- ! &7 FIXUNIXNAME A~~~Q* FIX_STRING6FLUSH_CIO_BUFFER+*_& FORWARD_FILES_-&FORWARD_RECORDWI_-&FST_BACKUP_HEADEuFST_BCKRST_HEADEE`FST_COMMAND_HEADpOFST_DFILE_HEADER` FST_DL.i/:.E U B~~~/FST_GROUP_RESTORWU//P  U Z 1*FST_LIB_HEADERFST_MISC_HEADER PFST_MSGS_HEADER > FST_RESTORE WU//P  U Z 1*FST_RESTORE_HEADFST_RETRIEVE_HEA{n~~~, FST_SAVE_HEADER XFST_SON_HEADER#YFST_TAPE_HEADER -FST_TAR_HEADER{0FST_TF_HEADER GETBLOCKFROMEMA O  fGETCTDADDRESS nh_&GETENTRYFROMTAPEll_- &GETNEXTSTRINGBUF_-~~~ GETPAREh GETRUNSTRINGnGETSTRINGFROMEMAY fGETTARHEADERFROM  f GET_COMMAND q@/ >1GET_ENTRY_FROM_EX0  GET_MSG_COUNT .GET_NEXT_COMMANDnh GET_NEXT_DIR~tuz~~~;GET_NEXT_EMPTY_Be_-&GET_NEXT_EXTENT NX GET_NEXT_PAR} GET_NEXT_PAR_INT}  GIMMEMORE  {/ GOT_A_MATCH /GOT_A_MATCH_PREP/ GO_RETRIEVE | /, A \ T_NEXT_DIR~tuz~~~m GO_RETRIEVE_TAR  /,  $ GO_SAVE H/,   ; S  GO_SAVE_TAR /HANDLETARSAVEEOT:/&HANDLE_BAD_COMMUV/HANDLE_DFILE_PROr"/ HANDLE_LEAVE_FST'/~~~7dHANDLE_RETRIEVE_[/ & HANDLE_SAVE_EOT //M &7HANDLE_TAPE_ERROuB"/ HEADBUILDERHELPE>e HEADERCHECKSUMMAgF+HHEADERS_MATCH d} HELP_COMMAND@/; INITFMGRDIR  ~~~JINITTARSAVEVERIF;/ INIT_BACKUP f"/#t # INIT_BACKUP_TAR 5"/# # INIT_RESTORE<?/ ; U  1*INIT_RETRIEVE Y* INIT_SAVE . /@:`fm INITFMGRDIR  ~~~H INIT_TAPE_RETRIE!/ # C Z 1INIT_TAPE_SAVEE_&INIT_VERIFY_PASSOr/ LC_COMMAND#wiO/ ; C B LH_COMMAND/ ;  LIST_COMMANDFQi/.E Z1`fm INITFMGRDIR  ~~~,dLIST_TAPE_HEADER/ ;  LL_COMMAND4"/#LOAD_FIRST_TAPE ]w/- 1LOAD_NEXT_TAPEa/ ; 1 MORETOCOME O MOVEBYTES +MOVESTRINGTOEMA _MOVESTRNGFROMEMAim INITFMGRDIR  ~~~7MOVE_DATA_TO_DIS?" MOVE_FROM_EMA \ MOVE_TO_EMA ] MT_COMMAND-x_#- &MY_KIND_OF_TAPE g4A/J . NEXT_APPEND DP/# ; .  NEXT_COMMANDDP/# ; . GRDIR  ~~~ NEXT_FUNCTION DP/# ; . NMMATCH OK_TO_OVERWRITE g/ ; ONOFF OPEN_DIR_FILE g"/OPEN_DISC_FILE_/ OPTIONSTRING[/# PARSEDS  qPARSE_COMMAND xLDIR  ~~~PEEKATNEXTENTRY ll_- &PLEASEDONTREADBA"/POSITIONDFILE 4POSITIONFORAPPENP/ ; . POSITION_AND_REA^y_-&POSITION_AT_DFILm5 CPOSITION_COMMANDMC/# AND xLDIR  ~~~^POSTOGOODFSTHDR t/ POSTOGOODRECORD qB/* . POSTONEXTFSTHDR v5*[POSVERTAPEBUF e PREVIOUS_COMMANDJ/# PREVIOUS_FUNCTIOJ/# PREVIOUS_TAPE_MSoD/D xLDIR  ~~~;PURGE_DIR_FILEoPUTSTRINGINEMAl&PUT_RECORD_IN_EM !&READTAPEHEADERjh_  & READTERMINALv/READ_DATA_INTO_E7& READ_DIR_RECw RELOADTARBUF_-D:D xLDIR  ~~~0[ RELOAD_BUFZM_-RENAME_TAR_FILE  ZNRENAME_TEMP_FILE,"/REOPEN_DISC_FILEl"REPLACE_DIR_REC z #RESTORE_COMMAND DxR/#RETRIEVE_FILES|)/X # C Z xLDIR  ~~~5RETRIEVE_TAR_FILrAH/EJ  U*RETRIEVE_TAR_VER6 H"/> Z iRETRIEVE_TF_FILE)E  C * RETRIEVE_VERIFY $ "/*X # C Z xLDIR  ~~~ REWIND_MAYBE_OFF<X_-&REWIND_TAPE_OFFL<X_-&REWIND_TAPE_ONLI<X_-&REWIND_THE_TAPE <X_-&REWIND_TO_FILEMA@_/- & RU_COMMANDT"SAVE_COMMENT_FILf+/ xLDIR  ~~~0 SAVE_DIRECTORY+W/  Z / SAVE_FILES-/ #  I ZSAVE_THIS_HEADER  SAVE_VERIFY g"/X # Z /B SAVE_VERIFY_DIRE `/X ! # C Z /Bd SCANFORBYTE _xLDIR  ~~~G SC_COMMANDV"/# SD_COMMAND8_/#- &SECURE_COMMAND2T-  SECURE_TAPE 4%_/& SETOPTION  o"/ ;  SET_MODE_BITS O SET_PRIORITYv SHOW_COMMANDo_/ &_xLDIR  ~~~SHOW_TAPE_ERROR uB"/ SIGNAL_TO_RELOAD\i& START_UP_SON$F"/o TAKE_A_BREAK/ TAKE_A_BREAK_AND/ TARCOPYFILETODIS"/>TARHEADERSMATCH JxLDIR  ~~~kt TARINITSAVE _/ &TARINITTAPESAVE d& TAROPTION ~/#TARPOSANDREADTAP#_-& TARSAVEFILESB+\"/ #  Z  TARSAVEVERIFY "/> # Z Bi TAR_COMMAND |*/xLDIR  ~~~ TAR_DLAH/:#EJ BTELL_POSITION \/TELL_YOUR_SON ( TF_DL  /:.E C BTITLE_COMMAND +TOOLONG C TR_COMMAND"/# TURBOVERIFY I&TWINKIES!xLDIR  ~~~ UNPACK_DCBF> UNSELECT_BACKUP j/E ZUNSELECT_COMMANDK /. UNSELECT_RESTOREhK/E Z 1UPDATEMAINHEADERp>_-  !&VERIFYBUFFERS WAIT_FOR_ROOM ]"/KIES!xLDIR  ~~~WAIT_FOR_USERS_G/WHEATIES3WIPE_OUT_TAPE s_/ 7WRITE_DIR_REC  WRITE_EOFSBW_-&UPDATEMAINHEADERp>uzVERIFYBUFFERS WAIT_FOR_ROOM ]9:KIES!xLDIR  ~p&x'"&' &p @p&"+&"~8@<! @p X 0( d8+8(( d(|B(*($CRLIB::RTE_6:5:106:128 644 0 0 65000 5310707704 34320 $CRLIB::RTE_6:5:106:128 $jj$CRLIB +#+#+#j4i$FST f<<X,CROUTNC 92570-12017 Rev.6000 <920303.0931>/SRC_92570/R6000/CROUT.FTN< CROUTNC  kIp@99XlcBCICOMCR 92570-1X162 REV.2540 850730 /SRC_92570/R6000/CROUT.FTN9 A CICOMCOMMON CICOMCR  99[.ENTR CI_FMPREPORTERR FMPCLOSEFMPOPEN SPLITSTRING NLWRITERELTRIMLEN CROUTM((SG9ddL88@p9(A ;=';?A(1-(1(6(d:cw@@@t@{;::XDCICOMCRDIR92570-1X162 REV.2440 162401 /SRC_92570/R6000/CROUT.FTN: A CICOMCOMMON R CICOMCRDIR<<'.ENTR NLWRITERELREPORTANYERRORFMPCREATEDIRDECIMALTOINTTRIMLEN SPLITSTRING CROUTMSG<nn ;;@p=(2?AA(p('#Ap(2+?0?8C(1n? @ @I::X&CICOMUNPU 92570-1X162 REV.5000 860729 /SRC_92570/R6000/CROUT.FTN:BKSCICOMCOMMON CIBREAKFLAG YCICOMUNPU || .ENTR CI_FMPREPORTERR FMPENDMASKREPORTANYERROR CIREPORTERR FMPUNPURGENLWRITERELSTR FMPMASKNAME FMPNEXTMASK FMPINITMASK FATTENMASKWILDCARDMASKCASEFOLDSPLITSTRING NLWRITERELTRIMLEN | DCROUTMSG HH("%(;/ 2 9( @ G(~~3J==p S(`(Y(\`p((gdp(mt w ~(p(M~(((`(((P P@@4@::X!CICOMPROT 92570-1X162 REV.5010 871023 /SRC_92570/R6000/CROUT.FTN:BKkCICOMCOMMON CIBREAKFLAG ]CICOMPROT ).ENTR .CPM.SBST .SCO .SST.INDX .LBT.SBT .NFEX FMPENDMASKREPORTANYERRORCIREPORTERR FMPSETPROTECTIONNLWRITERELSTR FMPMASKNAME CI_FMPREPORTERR FMPNEXTMASK FMPINITMASK WILDCARDMASK@@ CASEFOLDNLWRITEREL CONCATFMPPROTECTION CICOMDL TRIMLEN DECIMALTOINTSPLITSTRING CROUTMSG@ dRWUG @ ~~bII (,(1p 69Ap  (^(^ D  (K(^(^A@ p    Xp ~~~=eYII` (^p a(` (t J  ns( J (A(+ (((A   A (A(( A   ~~~ԓHH((( D   J     (      A   (+Ap`(߀(+A (~~~* FF(`pAA @p(A`p A   A     p `pp `p` @h HpxH ` A@p(B (6(6` @@p` @~Bz0CCp H (B` @@ @p` @phh8 8(8 8( M(` (T(a` pD   J h`P(sq(yDsAAx(+((+p h(`((` p((p (ءhee33`P((Ӏ(p (݀(` (+e 4S XX444 / S N ,pV @@P@Z-X@E99X\v]CICOMDC 92570-1X162 REV.2440 162401 /SRC_92570/R6000/CROUT.FTN9 A CICOMCOMMON CICOMDC  @@ ª.ENTR REPORTANYERRORCRDCFMPDISMOUNT DECIMALTOINTSPLITSTRING NLWRITERELTRIMLEN CROUTMSG@DD@pU(V"VX&Vp(-`[(N`(3`[(N6`\h[ 0hZ 0""nF(N`pTMT RV(" V *"@'99Xe\;CICOMIN 92570-1X162 REV.5000 870220 /SRC_92570/R6000/CROUT.FTN9 ACICOMCOMMON CICOMIN  {{{.ENTR .SCO.SST.LBT.NFEX REPORTANYERRORNLWRITERELFMPMOUNTCRDCFMPDISMOUNT CI_FMPREPORTERR CASEFOLDFMPREADSTRING SECONOF USERISSUPER FMPINTERACTIVESPLITSTRING DECIMALTOINT{ ECROUTMSG EEAp $ p (*& 9 /$ $3 p9$"$<"A+  (RHp`(NLAA`p R`8 (V(][ (`3 h2  0h6  0  0A( "((x({({`:p( ~(p 7p(Ƞ ~~ ??p p P0(`6 ((5(4 p hHP*p(,& p`,p`(`3~BzAA (( `2 h1  0h0  0(`p  ( /. ( -`(p`, ( ( &@    (` ()88!! OK@ @@ @@ 46Y *" ' 8@{;99XfW?CICOMCL 92570-1X162 REV.2440 162401 /SRC_92570/R6000/CROUT.FTN9 ACICOMCOMMON  CICOMCL  @@ .ENTR .CPM.SBST .SST.NFEX FSTAT TRIMLEN FMPWRITE INTTODECIMALNLREADREL CROUTMSG@VDDp633p`5p pP("(+)=)p(32<)p`pA)A)1`'@pp`4p`@~~HJCCA( :(i(i T)p [A)1pp(ip`' @@p` X  (눀`>p`p)H`@p @%~}}$HHH%`'@p`'PA(())A/`p 9(Ap 8((`Ap)A'( %+%J +p)D)}~~5??H+`A@p))A-`7@p`'@p`;@p8(G`( )p (pP((  6(p88 ~(` 44ܲ!) ( ) 8P HPP BD HZZA0@4@/::X܋CICOMOWNER92570-1X162 Rev.5020 890611 /SRC_92570/R6000/CROUT.FTN: ACICOMCOMMON S" CICOMOWNERqq+.ENTR .CPM.SBST .SCO .SST .NFEX REPORTANYERRORFMPSETOWNER CI_FMPREPORTERR NLWRITERELSTR FMPOWNERTRIMLEN DECIMALTOINTCASEFOLDSPLITSTRING NLWRITERELCROUTMSGq}}hHH ( " ' *-pA([([ A (?([([@pJ  Lp}~~:MBB`(Q([AA   ^( dA (r r(`(y((`(((~@@J  (`(``(`(@$$ V @ @ dd bd/.$@w 799XutCICOMPU 92570-1X162 REV.5000 860903 /SRC_92570/R6000/CROUT.FTN9BK[CICOMCOMMON CIBREAKFLAG  CICOMPU  zze.ENTR .SCO.LBTFMPENDMASKREPORTANYERROR CIREPORTERR PU6 FMPPURGENLWRITERELSTR NLWRITERELCASEFOLDFMPREADSTRING FMPMASKNAME CI_FMPREPORTERR FMPNEXTMASK FMPINITMASK FATTENMASKz00 FMPPARSENAME FMPINTERACTIVEWILDCARDMASKSPLITSTRING TRIMLEN CROUTMSG0~~,EEA@ pOp (%! ((r * XZ/ZZ^AZb(5p:X(XD qX GX `h (L(P~~~ZLEE OX  V XgX($ [0( iX\\\\nXg`u XT   (~ X ($(p ($   ~~~L<<T^(@`o ((`sp(@`n (((?`m (((? ( T  p(? V^T`(! lVǀ ZpZhS~@@Pfh  0( V `h (( X  V( hSHPeh  0( V `h (( X  V`sp( hSPd( ( @@ k  ($(   j(?( iV +V `h (0(4 3X  : VgV (? p(D TG  (L`  4M($ ==UP$$ L OK @ @ x D @  @  < ASY/=@99XkCICOMCO 92570-1X162 REV.5010 880202 /SRC_92570/R6000/CROUT.FTN9BKj CICOMCOMMON CIBREAKFLAG  xCICOMCO  =EXEC.ENTR .CPM .SCO.INDX .MBT .CBTFMPENDMASKREPORTANYERRORCIREPORTERR FMPCOPY NLWRITERELSTR FMPSETPROTECTIONFMPCREATEDIRNLWRITERELISLOOPNAME RMACCTPWMASKMATCHLEVELCALC_DEST_NAMEWW FFMPMASKNAME CI_FMPREPORTERR FMPNEXTMASK STRINGCOPYFMPINITMASK FMPPARSEPATH FATTENMASKWILDCARDMASKTRIMLEN SPLITSTRING CROUTMSGW   wr rw ~~\rCCr@tppg`uplhl'ppp((`pp`@pppph`pupl`h@ppmv(rssx~~~@FFpoAh`    qqqq`h ((܈(`po (pg (0gpn Ah``o(`h@~}}DDpggsps`spg`o0g(` h` %h`A 2rs`nA(;;`m@pg}?@@Gjigls`s(L(N`pTji`j(Y`js`i(^`is(s(jhsw(`h@pgsgs(V`s(y({`p`(V~~p>AApjpis(swspg(Rppp`pk`h@pgg`h@pggpgg Ah`  h``h@ ~:CC(((((׀rs݀rspk(rspi`i(`j(`@@p`Ӏ@@p`}}@@@@p pi(`jpg(`ipg(pk(6 rs`n()A)`m@pg5jigls`s(:(<`p`k(FEj}MMC$$i(K`g(Kpgs(Pspgs`(V(jZs`h@pg`gs(e`gs(M^^!99DIR DIR 1  @ @@ @H@ @@ @ @  l t^@9X99XACICOMMO 92570-1X162 Rev.5020 890626 /SRC_92570/R6000/CROUT.FTN9 ACICOMCOMMON -CICOMMO  || .ENTR FMPENDMASKREPORTANYERRORCIREPORTERR FMPRENAME NLWRITERELSTR NLWRITERELRENAMEDESTNAME MASKMATCHLEVELCALC_DEST_NAME FMPMASKNAME CI_FMPREPORTERR FMPNEXTMASK FMPINITMASK WILDCARDMASK|FATTENMASKTRIMLEN SPLITSTRING CROUTMSG~~&EEA&@(p*p:*/-?-1-B/p(I10((e,([X&'@'(ca&'?'-i1=l~~~'kDD/p`(xw/71-( ('/3)''( '/+(d ('3(`>'('( '3+'p(pp p  (/3 (~~~s9@@p(/(1-ppp,(Ո`p_`ahk`(H0_(O`np(QHPp]hfdb``!!` @pp pp @p@@p @p,!@t499XrD-CICOMAT 92570-1X162 REV.5000 860506 /SRC_92570/R6000/CROUT.FTN9 CICOMAT  ''.ENTR .SST.NFEX CI_FMPREPORTERR ATCOMMAND UT.BF 'GG++')+J')($")p @`LG@,;;XJCIREPORTERR 92570-1X162 REV.2540 850730 /SRC_92570/R6000/CROUT.FTN;a/CIREPORTERR ##q,EXEC.ENTR NLREADREL CI_FMPREPORTERR CROUTMSG#+GG++(L<~)|p`pyF{zyK+,*(w-(fV~)|p`py`{zye-.*(wm})|p`@pyrw{zy/z(&%@j::X<ISLOOPNAME92570-1X162 REV.2340 830725 /SRC_92570/R6000/CROUT.FTN: ISLOOPNAME HH y.ENTR .SBST .SCO .NFEX .MBT TRIMLEN CONCATFIXDEFFMPWORKINGDIR DSNODENUMBERFMPPARSEPATHUT.BF H}}*DDp#&p*P(.A`(4(,`pp`p`P(^Bp`(^I}ll/%H99M`&@pU`&@ph` ` ׈p88(<jn qAp  A(~p(,l44/ DIR @ P@@P @P@P @P@P @P@P  /4@::XTMCOMMAND 92570-1X162 REV.2540 850605 /SRC_92570/R6000/CROUT.FTN: A CICOMCOMMON MTMCOMMAND cc.ENTR .CPM.SCO.SST.NFEX .CBTFMPWRITESTRINGNLWRITERELSTR SETTM SPLITSTRING NAMR DECIMALTOINTSECONOF USERISSUPER DAYTIMENOWCROUTMSGcxJANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC1FF@p`* (0(6(65(8p>(H`M p`p`@p` h(b~~o]>>88(Q(g kp(t xp( ((`@pp  ` (騡` p~b;;(((  ((`@ p (A(((`P ((p J (((ׄ( ((   `((׈`EET ""(G(((A ('(G(GE774 AMPM   0<  ('O*ld7@Fd99XdkCICOMDL 92570-1X162 REV.5010 871023 /SRC_92570/R6000/CROUT.FTN9 A CICOMCOMMON  CICOMDL  99 5n.ENTR .SBST .SST.SSTC .NFEX REPORTANYERRORFMPRUNPROGRAM CONCAT DLCROUTMSG9wIIAZ (\dHA(\b!\`%\Z`jp,\^`iA(1(?Xf`Z`hp((>\^AP\gIP(N` --RDL, RU, XQ, u x  -@d9$==XˮLCI_FMPREPORTERR 92570-1X162 REV.2540 850729 /SRC_92570/R6000/CROUT.FTN= AV(>`Ap@=IH@(>m5B P( (@יY99XKw[CICOMC2 92570-1X162 REV.5010 871023 /SRC_92570/R6000/CROUT.FTN9 ACI_DCBS "CICOMC2  XX .ENTR .SBST .SCO .SSTC .NFEX .MBTFMPWRITESTRING NLREADREL CI_FMPREPORTERR FMPRUNPROGRAM FMPINTERACTIVETRIMLEN CICROUTMSGXKKDBDpBp`(p`(p(hK`YA@(AhK`W@DL(((0BZD F@HT0(A0DZ@~~_II2BZD FHRJP0HP2(hA`OA @ FH(,ADL((( L(  ZFpA0FZ 0  @Fp0~!!!/"FZ+0(.`!CCo4''LIXQ, RU,CIX, RU,LI,FIIN    hj ln v| ~C@lt499X[^CICOMMC 92570-1X162 REV.5010 871023 /SRC_92570/R6000/CROUT.FTN9 ACI_DCBS CICOMMC  GG 6.ENTR .LBT CI_FMPREPORTERR CRMCFMPMOUNTCASEFOLDFMPREADSTRING NLWRITERELSTR DECIMALTOINTCICROUTMSGG~~A|>>Ap(]!ZZ(K`\()(=/W4Wp8WhV PY(=(KBUZ~99$9B`[(G(K J(S S(Y"9@99XvkCICOMRP 92570-1X162 REV.5010 880719 /SRC_92570/R6000/CROUT.FTN9BO CICOMCOMMON CI_DCBS  CICOMRP  EE Y.ENTR .SST .NFEX NLWRITERELSTR FMPERROR FMPRPPROGRAMBLANKSTRING SPLITSTRING TRIMLEN CICROUTMSGE(CCA (j_a a]a%aca(c(.ceJ  4_]c`i(9(A?](R44GD HaQha_](YYg](4\p @@xF@{99X\d4CICOMWD 92570-1X162 REV.5010 871023 /SRC_92570/R6000/CROUT.FTN9BP CICOMCOMMON CI_DCBS  CICOMWD  LL .ENTR REPORTANYERROR FMPSETWORKINGDIRSPLITSTRING NLWRITERELSTR CI_FMPREPORTERR FMPWORKINGDIR TRIMLEN CICROUTMSGL]]T00A (!1(1 31(.&1 )1 .1(] 1 ` @֔T99Xr)RMACCTPW92570-1X162 REV.5000 860308 /SRC_92570/R6000/CROUT.FTN9 *sRMACCTPW  99 k.ENTR .CPM.SBST .SST.INDX .NFEX .MBT FMPBUILDPATHTRIMLEN FMPPARSEPATH9OOxA&p`((A$p`(H"(A((p DH  h`! (@p A (@ **\H  h`! p  *44  > [ @@@(@hl@|@4@_q~199X6TIMEOUT 92570-1X162 REV.5000 861024 /SRC_92570/R6000/CROUT.FTN9 A,TO_BIT GTIMEOUT   .ENTR $$^A( p(`p`$ a @V tWWW~~ CICOMAT C CICOMC2 TqCICOMCL CICOMCO /%CICOMCR n CICOMCRDIRCICOMDC {CICOMDL PCICOMIN UCICOMMC YCICOMMO :' CICOMOWNER#~~~$  CICOMPROT  dECICOMPU '?CICOMRP [r CICOMUNPU %CICOMWD ^x CIREPORTERR DKCI_FMPREPORTERR R[CROUTNC  ISLOOPNAMEFhRENAMEDESTNAME@ARMACCTPWaTIMEOUT d~~~ TMCOMMAND J'CICOMPU '?CICOMRP [r CICOMUNPU %CICOMWD ^x CIREPORTERR DKCI_FMPREPORTERR R[CROUTNC  ISLOOPNAMEFhRENAMEDESTNAME@ARMACCTPWaTIMEOUT d~ /acctinfo/ dcb  integer*2 dcb(144),rec(128)   equivalence (dcb(17),rec)  c Parameters integer*2 acct(*),error  integer*4 position,cp_limit,co_limit c Locals integer*2 err  inteTFLIB.LIB::RTE_6:5:522:128 644 0 0 405000 5310707706 34356 TFLIB.LIB::RTE_6:5:522:128 $ ( TFLIB LIB +#+#+# iFST r;;XkTFLIB 92570-12021 REV.6000 <921006.0040>/SRC_92570/R6000/TFLIB.FTN;BVTFDCB TFNLS HTFLIB LOG_NAME_AND_VER}MLOG$$p( p`p $@N>>XzTFCMD_HEADER92570-1X196 REV.6000 <901120.1209>/SRC_92570/R6000/TFCMD.FTN>XTFCMD_HEADERkIp@Ts77X%5 GET_COMMAND 92570-1X196 REV.2440/SRC_92570/R6000/TFCMD.FTN7B`TFDCB TFNLS L GET_COMMAND ~~w EXEC.ENTR .CPM.EXIT .SBST .SCO.SSTMLOGCMD_FILE_IS_LOG_TRANSFER_BACK TRANSFER_TO_LOG_PAREN_FMPREPORTECHECK_BREAK IFBRK FMPREADSTRING LOG_NAME_AND_VER MLOG_INIT DIE FMPOPEN ~w_NLOPENSYSCATGETST TFCMD  1 I CCA@pp`(`(r`(#` `p+J6Ѐ`(< < C`(H H ~~GI>>L`@ (_(_`pAA`pA(g(o(oiln(q`p(t(yyԡ~Pp(~ff`22(`((`(((`p((A("f00Ԁ ws>TF P   xz |0@Db99XY CMD_FILE_IS_LOG_92570-1X196 REV.2440/SRC_92570/R6000/TFCMD.FTN9cCMD_FILE_IS_LOG_ LOGLU FMPDEVICE TFCMD 22̻pp (P((`p`2 a @Vt++X/TFCMD/ /SRC_92570/R6000/TFCMD.FTN+ 8TFCMD  99!8(( 9 / ffw/LL f K @}99Xj PUT_CMD_FILE_ON_92570-1X196 REV.2440/SRC_92570/R6000/TFCMD.FTN9O*PUT_CMD_FILE_ON__CLEARBUFFER MOVEWORDS FMPPOST TFCMD ==TEp`( `$@p= o @G,e99X8 GET_CMD_FILE_FRO92570-1X196 REV.2440/SRC_92570/R6000/TFCMD.FTN9JGET_CMD_FILE_FRO]MOVEWORDS TFCMD ++p`(`$@p+ f @ݩ77XO9 TRANSFER_TO 92570-1X196 REV.2440/SRC_92570/R6000/TFCMD.FTN7>((TRANSFER_TO AA .ENTR .CPM PAREN_FMPREPORTEMLOGGET_CMD_FILE_FROFMPOPEN PUT_CMD_FILE_ON_END_PROGRAM TFCMD Ajj88A1J8((7135`(*!%61 )1 (-`pros ^j@ܧg99Xa TRANSFER_TO_LOG_92570-1X196 REV.2440/SRC_92570/R6000/TFCMD.FTN9S'TRANSFER_TO_LOG_cALOGLU INTTODECIMALTRANSFER_TO %%pp %  $ @IhO99X: CONDITIONAL_TRAN92570-1X196 REV.2440/SRC_92570/R6000/TFCMD.FTN97CONDITIONAL_TRANTRANSFER_TO_LOG_CMD_FILE_IS_LOG_TFCMD ))`p`p ()@388X TRANSFER_BACK 92570-1X196 REV.2440/SRC_92570/R6000/TFCMD.FTN8jTRANSFER_BACK ZbGET_CMD_FILE_FROFMPCLOSETFCMD --@p`( @p-@$a99X  CLEAN_UP_COMMAND92570-1X196 REV.2440/SRC_92570/R6000/TFCMD.FTN9XCLEAN_UP_COMMAND֟TRANSFER_BACK TFCMD Gv p`( (@A@`==XINIT_COPY_COMMAN92570-1X196 REV.5000 860505 /SRC_92570/R6000/TFCMD.FTN=O INIT_COPY_COMMANINIT_EMA_LIST TFCMD 00app0p2p5p3p4p0@K ==XsxPARSE_COMMAND_AN92570-1X196 REV.5000 861003 /SRC_92570/R6000/TFCMD.FTN="PARSE_COMMAND_AN~~ː.ENTR .CPM.EXIT .SBST .SCO.SST'.LBT.MBT.CBT SIGNAL_BAD_COMMA MLOG&END_PROGRAM CHECK_FOR_K_OPTIGET %SET_LIST_FILE $INTTODECIMALTRIMLEN #TRANSFER_TO "TRANSFER_BACK INIT_TAPE_IO~xx!GET_TAPE_LU EMA_LIST_WRITEEMA_LIST_WRITE_S END_COMMAND FMPREPORTERRORTFPREENTMATCH FATTENMASKINIT_EMA_LIST CHAR_IN_STRINGGET_SRCE_OR_DESTDIE APPLY_FILE_DEFAUCONCAT INIT_COPY_COMMANx))q MUST_BE_IN_GROUPPUTINCOMMAS CASEFOLDPUTINONECOMMA TFCMD )3FFA݉))p)I++`,hTA+( ))`,ht+((#(#)9)G)IE")I?(#::A`,hr+(+(;(;`/(3 1 3 5`p/ :(A`,hp+(C(H(H  Ep/(`,hn+(P(](] R`0(X Xp/p0(~~]BBA`,hl+(e((`/(k kr)5y)7`(~`p`(`p`h  (  `h ( ~77 `(`p`܈p(pڈ`p`0(` 1(  `P6(  (`ڨp1`p6`1p ͡67G7+~~tGG)I--E`1(ACi(Cg@p-pp`A(p-AAAC(  ~A`p88(`( e-~==( `p2$Y-((`p5,c-(0`p34a-(8`p4<_-(@`pD]-(H`p3K-`1(fU)I;A;Q([(a,FZFF(ah>`@+(fh>`<+`1(p5(p(v5I3z39~3%3`(3 (kp5((5I3A3Q(y@@Ap5Q(0(ݡ39`1(33%3`1(3`(|7-`1(%(`p0~~DD(`,h\+((F(F`/( } )5 )I-Y-p5 -pA5((E5I33Q(p5Q~~~!$BB('0(D/3%43ր`(=;3 =@3D|((`,hXA+(N(e(e!U)I Y_)I- b-p5(`,~~~(,fHHhV+(m((s)I//Q(y(|(|"{(#/(`,hTA+((()A(())A1A)A)1 ($'1 {'~~~@@1Q((( z( y1(`,hPA+(Ĉ(()I/%/(A+M(Ԉ((`xpˆ`vp 88((`,hLA+(舡(()I-~..-&(h&'Pu((( w .tONN, EX? LL TITRLHI DLC O Y V A ABCKVXY BCDIKNOUV COAGEGGRDEnn@Pp@T@*@j\lmH@VVV22 "$&(*,. 6@BDFH*V@7oV/99XY CHECK_FOR_K_OPTI92570-1X196 REV.2440/SRC_92570/R6000/TFCMD.FTN9>#CHECK_FOR_K_OPTI.ENTR CHAR_IN_STRINGTFCMD --A (`pK $-@A99X> MUST_BE_IN_GROUP92570-1X196 REV.2440/SRC_92570/R6000/TFCMD.FTN9x MUST_BE_IN_GROUPіSIGNAL_BAD_COMMAMLOGTFCMD $$p`/(   $@ )99X}d APPLY_FILE_DEFAU92570-1X196 REV.2440/SRC_92570/R6000/TFCMD.FTN9FAPPLY_FILE_DEFAU %%u.ENTR .SCO.MBTFMPBUILDPATHCONCATFMPPARSEPATH%~~vuLLJHJTRPNLpH^\ZVXpTb((숄(hU`_ATRb(((AhS`]RPb(((hQ`[P`(`~/RFFp`( `p`(`p`(`pALb((!(!hM`YA L%NV`A(8Pb(.(8(8ANb(4(8(88R`DJTRPNL. 11=L 4(4 \` @p( 4 @ 1@{99X~ GET_SRCE_OR_DEST92570-1X196 REV.2440/SRC_92570/R6000/TFCMD.FTN9^& GET_SRCE_OR_DEST == 5.ENTR .CPM .EXIT .SSTGET_TAPE_LU SIGNAL_BAD_COMMAMLOGCLASSIFY_STRING GET POS =~~JJAq oq{pe qwe(9(9,q{2qyo8qws(c(XBqwoGo`(PM}O~**O(W(WA ou (c_qwA ou  *$$\6k , } {   $@r[77XgG GET_TAPE_LU 92570-1X196 REV.2440/SRC_92570/R6000/TFCMD.FTN78 GET_TAPE_LU ((4.ENTR .SCOSIGNAL_BAD_COMMAMLOGCLASSIFY_STRING GET (ssBBA?=?A=AAC(!(-(-(' (,*F,(:2A  (:8E: xs@p99X;6 CLASSIFY_STRING 92570-1X196 REV.2440/SRC_92570/R6000/TFCMD.FTN9DCLASSIFY_STRING .ENTR LU_TYPE DECIMALTOINTZZz..A11`((.p`4P(#(&(.`3P(*(.`5Ze1@H33XXH GET 92570-1X196 REV.2440/SRC_92570/R6000/TFCMD.FTN3 ~GET  "".ENTR .CPMMIN0.EXIT .SBST .SSTPOS "aaQ<<DxC@DBpA(,(,@p=A=DA=@=(0H@F`hD p=x>:=>a? ~@o33XP6 POS 92570-1X196 REV.2440/SRC_92570/R6000/TFCMD.FTN3 POS  .ENTR .CPM.EXIT .SBST .INDX RR--A3Ax2`3((Ap("/33A/1p`()`3p(-@@5p`R1((@;m>>XpTFBAK_HEADER92570-1X195 REV.6000 <910205.1810>/SRC_92570/R6000/TFBAK.FTN>LTFBAK_HEADERkIp@Puo588X<DBACKUP92570-1X195 REV.6000 910205 /SRC_92570/R6000/TFBAK.FTN8 AƼTFBAK GBACKUP yy\.EXIT .SCO.SSTC .MBT#RESIGNAL_CONDITI(FMPPURGE'FMPCLOSE&FINAL_REWIND CANCEL_TRAP %BACKUP_VERIFY_TA$FINISH_TAPE !BACKUP_FILE_AND_"FMPENDMASKREPORT_MASK_ERRO MASKOLDFILE MASKMATCHLEVELy}}FMPMASKNAME BREAK_DETECTEDFMPNEXTMASK TRAP_CONDITION_LFMPINITMASK FATTENMASKWILDMASKDIE EMA_LIST_READ EMA_LIST_READ_STREWIND_EMA_LIST GET_TAPE_FOR_BACTAPE_POSITION GET_TAPE_FOR_APP MLOG}@@ WRITE_EOF_MARKTAPE_LU_DOWN LISTTAPE_MAY_HAVE_BEGET_CONDITION CREATE_SCRATCH_FTIMENOW TFCMD @99p(pp`3( (#`( `BP((`( (p3((  A(  Z:: (  "( `2(5 )@ ."*!0 ,`Cp(T26(;(B(B",:4H(Gh#`3A"(*p!R" *!p`Cp}}KV@@X[((`$(eeh0(mmp.(uuy=(~~(($A<8,6(((nm$*?(}~~g==nm$*?(䀊`m(m$$(nm*(`>Pm((`m(`(աn&*np  npp~~~i::!(m$*(`m(m$* "n#누(h%`)$h'`%A$p `Cp! (Xp$<""*!`3( %   ~##m &'m( ##IIË)) GLTF: P \@@ \@Z@0 @ P0pP068:tMLI@T==X{BACKUP_FILE_AND_92570-1X195 REV.5000 860505 /SRC_92570/R6000/TFBAK.FTN=B  TF_TEMPORARYTFBAK 1 BACKUP_FILE_AND_}}λ.EXIT .SBST .MBTSIGNAL_BREAKENABLE_BREAKCANCEL_TRAP CHECK_SCRATCH_FIFMPWRITESTRINGTRIMLEN BACKUP_FILE TAPE_POSITION COPYING CHAR_IN_STRINGHOLD_OFF_BREAKCHECK_BREAK GET_TAPE_FOR_BAC}xxbPLEASE_LOAD_TAPETAKE_TAPE_OFFLINFMPSETEOF FMPREWIND BACKUP_VERIFY_TA FINISH_TAPE POSITION_TAPE MLOG SIGNAL_CONDITIONGET_CONDITION TRAP_CONDITIONCALC_DEST_NAMEREPLACE_DOT_DIR TFCMD x}}v<<p`⠊0( (#hބ`# %(h*,p`P(52 5 8 < ? F}~~cA77"*!` 3(YKORVY[`!p!a!f*!pjlp(ww~NxAAp{Pي(` 3(ơpAAp((ApDD֊(Ȉ$"`p(D44(B @\@@@\P\@@@ON4@`: ==X{GET_TAPE_FOR_BAC92570-1X195 REV.2540 850510 /SRC_92570/R6000/TFBAK.FTN=r1GET_TAPE_FOR_BAC_.ENTR CANCEL_TRAP LIST_HEADER_INFO PUT_HEADER_INFO REWIND_TAPE USER_REJECTS_OPE LOG_HEADER_INFO CURRENT_CONTENTSREWIND_UNLESS_DOGET_HEADER_INFO_GET_TAPEMLOGGET_CONDITION TRAP_CONDITIONTFCMD .EEA.7z(B<-?yBxD`4(_O-r+*(Q S Z-r+*( ]w(B a g./0tnv./0tp1PsRQP@ڸ99X-n GET_TAPE_FOR_APP92570-1X195 REV.2440/SRC_92570/R6000/TFBAK.FTN9GET_TAPE_FOR_APP.ENTR END_COMMAND MLOGCANCEL_TRAP POSITION_MAGTAPEPOSITION_CTD_FORREPORT_TAPE_ENDS CTD_TAPE USER_REJECTS_OPELOG_HEADER_INFO CURRENT_CONTENTSGET_HEADER_INFO_GET_TAPEGET_CONDITION TRAP_CONDITION TFCMD @@Al(`mP(((_#%,`l(_`kP(8 6j 8` 4(A ?i( Dh HHm'E!!F(U`p`(PO(TT(XX`(_] bg d(^H agVUTS@Wv99X  CURRENT_CONTENTS92570-1X195 REV.2440/SRC_92570/R6000/TFBAK.FTN9=%CURRENT_CONTENTS}MLOG pW@{Κ99X USER_REJECTS_OPE92570-1X195 REV.2440/SRC_92570/R6000/TFBAK.FTN9USER_REJECTS_OPE .ENTR MLOGUSER_SAYS_YES_TO&&Ap`(`& -X @-L55X? WILDMASK92570-1X195 REV.2440/SRC_92570/R6000/TFBAK.FTN5 AC%TF_TEMPORARY FWILDMASK  ,,.ENTR .EXIT .SCO.SSTFMPPARSEPATHFATTENMASKWILDCARDMASK,rr6>>A- -pA9-9=!975/3$$$$1A/;('()()`>p`DIR p@ pGpF pEpD @pVr@==XREPORT_MASK_ERRO92570-1X195 REV.2540 850508 /SRC_92570/R6000/TFBAK.FTN=[REPORT_MASK_ERRO.ENTR PAREN_FMPREPORTELIST""ϪA Y"@sZ99X' PUT_HEADER_INFO 92570-1X195 REV.2440/SRC_92570/R6000/TFBAK.FTN9RPUT_HEADER_INFO a.ENTR WRITE_DIRECTORY_==O''#%%%%!! HEADER68=@t99X"% WRITE_DUMMY_CHEC92570-1X195 REV.2440/SRC_92570/R6000/TFBAK.FTN9< WRITE_DUMMY_CHECa.ENTR WRITE_DIRECTORY_<<(%%A!####### .CHECKSUM CHKSUM( *4<@ ?;;X BACKUP_FILE 92570-1X195 REV.5000 860505 /SRC_92570/R6000/TFBAK.FTN;CǛ"TF_TEMPORARY&(TFEMA TFBAK ;"BACKUP_FILE .DAD.DSBR .DMP.DCO.CPM.EXIT #.IMAP .IRES .SST.MBTCANCEL_TRAP GET_TAPE_WRITE_BCHECK_BREAK %PAREN_FMPREPORTE$LISTFMPCLOSE"UPDATE_CHECKSUM !VMAREAD UTEXT_VMAREAD INIT_UTEXT_VMARE||.WRITE_DIRECTORY_FMPSIZE EOF_POSITIONDIRECTORY_FILEFMPREWIND FMPOWNER DISC_LU_OF_FILE FMPFORCEDCB CHAR_IN_STRING ALTEROLDTONEW MOVEWORDS FMPINFO FMPOPEN RESIGNAL_CONDITITRAP_CONDITION_L|~~"66"p"'(1+/ 1p:`(`([F!`(`!p`(V U([ [~}}zX<<`p ahX p`(n n rp`(y(p`PhX 0(pH`(}}}<<(H`( &` p!`!(p `(h J@& &` p!(`((`(͠(Ԉ}>>&(顤&((鈀`P(鈀&&(p`(A &`(h`(h`&(~~BB"` p $ &`(##(f(f+0h@`(GA Ep (R !R~&P>>`(`@p ȡ"e$(#`(((`P(`(`@@p#P(`p( " qq<::`($($((ለ`P(($ߊ(%`(A((h@A((((qee@>f``NORMALUNIX SYSTEMX rosdxql @@\@@@@!!@\[Z( e@==X?WRITE_DIRECTORY_92570-1X195 REV.6000 900802 /SRC_92570/R6000/TFBAK.FTN=C .TF_TEMPORARYTFTBL (TFEMA KRWRITE_DIRECTORY_ ~~1.ENTR .EXIT .IRES .SBST .SCO .SST.LBT.MBT.CBTMOVETOEMA DIE GET_TAPE_WRITE_BINTTOOCTALDINTTOOCTAL UNIX_MODE TRIMLEN CONCATLOWERCASE FMPBUILDHIERARCH FMPPARSEPATH LIST~ CLEARBUFFER NNxFCA?(hp`FAE`Fh~E(5p'`Fh|E(?'p`(WA`Cp''C'CA's(W  :THHWC cCekim * * *m`A(k gC(`jhzi(sh p`( isJ gekiss`(gwggq`}}OuDD(p(?p`(h<P(((A'e*A' ?(ca_] Ѐ p'[' YuD WuJU}}}|@@ S Q  OAJMK Gs@p ,p +`p.'I + +HJh(@ ,p ,8 +8.(G ,`IP(*'}d %' *` /KK 0 / DIR UNIX NORMAL R 00 00 !0 0 0 0| 0t0l 0d0 00 0@ d0P @Z 0^ `b dz fjp/]@0==XgBACKUP_VERIFY_TA92570-1X195 REV.2540 850916 /SRC_92570/R6000/TFBAK.FTN=CeTF_TEMPORARYTFBAK TFTBL YGPBACKUP_VERIFY_TA .DCO.SCO .CBTCANCEL_TRAP BACKUP_VERIFY_FILISTREMOVE_OTHER_FIESKIP_TAPE DIE CHECK_SCRATCH_FIFMPREADSTRING FMPSTANDARDNAME FIX_NAMEFIX_STRINGREPORT_BAD_DIRECOCTALTODINT GET_DIRECTORY_BLHHCHECK_BREAK TRAP_CONDITION FMPREWIND END_COMMAND LIST_HEADER_INFOGET_HEADER_INFO_REWIND_TAPE POSITION_TAPE HgP??PpP`fpWZe`(a`,(cjOXMLlsOXML^`dPOpAA`YhW V(0ApA* M(0AhLX! >>0(c  K KpHpIb(ߡT &`((A`Sh] R(pA`Sh[A R(H{;;A(ա&(JJJ(`fpH`I(KPpJ KPJ((`fpI`I(KHpJ KPJ((uu]x99 KNpJ KPJ((`HI(;`I(%!aJ$&()HLLJ(/0H(87`H(ᡊ:(=pPuAAgB%%UNIX NO RMAL@* d@ j@  | P\P@ a` _^A@a==XSBACKUP_VERIFY_FI92570-1X195 REV.2540 850916 /SRC_92570/R6000/TFBAK.FTN=BTF_TEMPORARYTFBAK KBACKUP_VERIFY_FIww8CANCEL_TRAP FMPCLOSE PAREN_FMPREPORTELISTFMPSETDIRINFO CHAR_IN_STRINGSIGNAL_FMP_ER VERIFY_FILE_CHECVERIFY_FILE_DATAFMPFORCEDCB FMPOPEN SIGNAL_CONDITION PAREN_REPORT_TAP SKIP_TAPE w33Ƀ PAREN_REPORT_DATPAREN_REPORT_CHEREPORT_ERROR_VERGET_CONDITION TRAP_CONDITION3~~J88p (C`P(`P( (9`P($(('(4`P(,(0 /(4 4 7`P(=(@ ~}}x><<@ C&N`(SS`pYhX p`(ffm$`(rrv$`({}IIz##{(`( (8I22C X rosd xql @` `j@`* <> @b 2@~M >>XTFRES_HEADER92570-1X201 REV.6000 <901120.1202>/SRC_92570/R6000/TFRES.FTN>PTFRES_HEADERkIp@D22X LH92570-1X201 REV.2440/SRC_92570/R6000/TFRES.FTN2 .LH &&UFINAL_REWINDCANCEL_TRAP GET_TAPE_FOR_LISTRAP_CONDITION&''Ep(   '@aa22XR DL92570-1X201 REV.2440/SRC_92570/R6000/TFRES.FTN2BTFDCB TFNLS  'DL }} .DCO.ENTR .CPM.EXIT .SBST .SC .SCO.SST.SBT.MBT.CBTRESIGNAL_CONDITIFINAL_REWINDCANCEL_TRAP MLOG LISTSKIP_TAPE TRIMLEN DAYTIME DIRECTORY_FILENLREADCATSTR MOVE2 }==3/ FIND_NEXT_FILE_FTRAP_CONDITIONSIGNAL_FC_FORMATGET_TAPE_FOR_LISPREP_FOR_FC_DLTRAP_CONDITION_L=͐HHA!('()((2,`P(0(22Jr~= Hpnl( N R숀 (h  \v `vcFFr~H`ohsn(An|(up/Anz(}0/( (p`pY`@ 88Y(dtnpA(( n (`~~IIp`pX/tD/x(((@p8X(`p//t/D/zH`hg bAhs`onn|(((Hjp(np//pD/pJj/~ttc==(hi`mh( hj@`((  jjzD^`h ^(= !`('')+-t^^}Z88 / . b,q /b .!P dq! @@6 @vP   . @^@Ca99Xew9RESTORE 92570-1X201 REV.2540 850730 /SRC_92570/R6000/TFRES.FTN9 DRESTORE  xxH$RESIGNAL_CONDITIFINAL_REWINDCANCEL_TRAP GET_NEXT_TAPE_FO REWIND_TAPE RESTORE_VERIFY_F CHECK_BREAK FIND_NEXT_FILE_TREPORT_FILES_MAYTRAP_CONDITION LIST MLOGRESTORE_FILEGET_FIRST_TAPE_Fx.TRAP_CONDITION_LTIMENOW TFCMD DDp(#+5(1/-3(1/-38(`( 7` 3(  6 jEE5(1/-3(  1/-(`(# "+(%')PP@d@! @w::XFC_RESTORE92570-1X201 REV.2540 850531 /SRC_92570/R6000/TFRES.FTN:tFC_RESTORERESIGNAL_CONDITIFINAL_REWINDCANCEL_TRAP RESTORE_VERIFY_F CHECK_BREAK FIND_NEXT_FILE_TREPORT_FILES_MAYTRAP_CONDITIONPREP_FOR_FC_REST REWIND_TAPE LISTRESTORE_FILETRAP_CONDITION_LTIMENOW TFCMD ^CCp((}\[(}\[(` 3(   (\\f11}\[(䡡  }\[(ʡ衡  @@T ! \@Xw[==X REPORT_FILES_MAY92570-1X201 REV.2540 850508 /SRC_92570/R6000/TFRES.FTN=fREPORT_FILES_MAYLIST p@o==X]FIND_NEXT_FILE_T92570-1X201 REV.5000 860829 /SRC_92570/R6000/TFRES.FTN=%FIND_NEXT_FILE_T> FIND_NEXT_FILE_F+ ||".DAD.DDI.ENTR .EXIT .SBST .SST .LBT .MBTSKIP_TAPE CHAR_IN_STRINGNONDSTRIMLENFIX_DEST_NAME CALC_DEST_NAMEDECIMALTOINTFMPSTANDARDNAME FMPBUILDHIERARCHFMPPACKSIZE ((FMPPARSEPATH|bb o SELECT_TAPE_FILETFPREENTMATCH CONCAT FMPHIERARCHNAME DIE EMA_LIST_READ_STEMA_LIST_READ REWIND_EMA_LIST CHECK_BREAK DECODE_DIRECTORYGET_DIRECTORY_BLbJJ@>(+`p`p`p`p`p`p`p`p`p<(.:@p38`\p~~_-AA(0p3p`(:`E:8B`(+KMPP(+V[([[`(naD(ffi>(nn~}}nDDAhO`Q B  zN:ƈp`( Ph7 PZ(AhO`C B  NPN`( N:ƈp(p̀`(*R>(:JHF}~~FIILLXAAV//p:JHFT6T`(%:DpĀ`(`\Ap(/D6/Ljp`(:D@D@(@~]]"44:@p`p//@H/@`Ap11D1DA/1`(`Ê R>($A()<B(8(M.(0]FF:4)) N E @ @@ @@ @ @Eh j/F@:Y77X>a NONDSTRIMLEN92570-1X201 REV.2440/SRC_92570/R6000/TFRES.FTN7\NONDSTRIMLEN .ENTR .EXIT .SBST NONDSLENTRIMLEN --A pAp`-  @Y99X5Y GET_TAPE_FOR_LIS92570-1X201 REV.2440/SRC_92570/R6000/TFRES.FTN9z.GET_TAPE_FOR_LIS99.ENTR END_COMMAND SIGNAL_CONDITIONLIST_HEADER_INFOGET_HEADER_INFO_GET_TAPETFCMD 9MM:-''A-3:-U+*(A-U+*(`5(R`X-(LL-`W-(P(RR.M KU P @?^B99X GET_FIRST_TAPE_F92570-1X201 REV.2440/SRC_92570/R6000/TFRES.FTN9oGET_FIRST_TAPE_F.ENTR CHECK_TAPE_NUMBEGET_TAPE_FOR_RES001A( 0@*mI-99Xyo GET_NEXT_TAPE_FO92570-1X201 REV.2440/SRC_92570/R6000/TFRES.FTN9QR/GET_NEXT_TAPE_FO22.DCO.ENTR .SCOCHECK_TAPE_NUMBEMLOGGET_TAPE_FOR_RESPLEASE_LOAD_TAPE2vvR,CCA,,g..<.Ai*(p)ig(MKm`np)- *(XVl`np)`)(_^k(9c.((9/Pv@99X$ CHECK_TAPE_NUMBE92570-1X201 REV.2440/SRC_92570/R6000/TFRES.FTN9qCHECK_TAPE_NUMBE Z.ENTR .CPMUSER_SAYS_YES_TOMLOG@@( "((!(p``#p(@ qN! @==X@GET_TAPE_FOR_RES92570-1X201 REV.2540 850510 /SRC_92570/R6000/TFRES.FTN=vGET_TAPE_FOR_RESBB.ENTR CANCEL_TRAP SIGNAL_FC_FORMATLIST_HEADER_INFOGET_HEADER_INFO_GET_TAPETRAP_CONDITIONTFCMD Bdd_66A:?: :`>P($(&&`5(5`=Ph<X (7dW: @@2099X  SIGNAL_FC_FORMAT92570-1X201 REV.2440/SRC_92570/R6000/TFRES.FTN9;SIGNAL_FC_FORMAT S^SIGNAL_CONDITION Xn p@@ ;;XRESTORE_FILE92570-1X201 REV.6000 900827 /SRC_92570/R6000/TFRES.FTN;C);TF_TEMPORARY:(TFEMA RESTORE_DCB sRESTORE_FILE ~~;5.DIN).DSBR 4.DDI.DCO.ENTR .CPM-MOD .EXIT ..IMAP *.IRES .SCO.SST!.MBTCANCEL_TRAP SIGNAL_FMP_ER 9FMPRENAME FMPPURGELISTFMPCLOSEFMPSETDIRINFO 7FMPSETDCBINFO 6FMPTRUNCATE ~xx a3FMPPOSITION 2VERIFY_FILE_CHEC1POST_UTEXT_VMAWR0UPDATE_CHECKSUM /VMAWRITE,EMA_COUNTRECORDS+UTEXT_VMAWRITE(READ_TAPE 'CHECK_BREAK &INIT_UTEXT_VMAWR"FMPOPEN_HANDLING%MAKE_SCRATCH_NAMCHAR_IN_STRINGxxx$FMPUPDATETIME #MOVE2 FMPCREATETIME CREATE_PARENTS_F PAREN_FMPREPORTEFMPSETOWNER USERISSUPER MULTIUSER FMPOPEN FANCY_FMPCREATEDDIRECTORY_FILECOPYING REMOVE_OTHER_FIESIGNAL_CONDITIONx;;ŹPAREN_REPORT_TAP SKIP_TAPE FMPERROR PAREN_REPORT_CHEGET_CONDITION TRAP_CONDITION8TFCMD ;~~phFFAhhij@npo(ge`^(pe`F(pe`Pg((ψ`PC~~~6U@@(( A( C(( C(ʈ`@Cp  Xs`Pg(ӊ((`ꈊPg((gmXp^pF~ILAA(`nh$xGnpr( ppC`㈊PC(( pC`C(ppC`PC($(6(cpC`Cpc@h/??k(2pf(>`C(<;(>`pf`f(HC`C(X`@pXCՃG\e`C(gc gCi(m~~CcnAA(uED`戀PE(y({pE`PD((ˈ(((pDɈ(((pD`EhD0(`E( E`D( D(l(A (~}} @@Ah`! "Cp]`PC((pC`C("Cp]`ሊPC((LcpC`CpAck(( }~~X>>pC`C(`@CpC"Cp]`C(`숡p^(K (-`@p#_$a숀pC`Cpa_($0(,`pC,(8~-AA1(8`pC8%<"CCp]`C(II`pF(S`C(QQA`p^ ](XhX] plpM`Mp\p[pZӉK~~nKKpHӉIՉT&yX( ( '(XWVhV@)XXlA(*W+CV(`\(*W,V[ZKHIp\X0(-VP(~II(`V@@WhV   @HWpx.p.``VpV-V(`V@@Wp.`@VpV(A*W/CV`C(A*W`V~~??@p0 T(yl(1C`C(q("2TC`C(""l(A3+CRP`C(00PA@45N6<CN`C(AA~WA==`M(P7KCKIH`C(PP`؈@p]CG`C(bbfC`C(kk`F(`8(vtpC(z}pC66~`C(`׈@CpC9EDpC`C((6 _` ||SSG D U wcqfl wcq systemSYSTEMdfq B @@@2<>@BHLRX\(/0 |@Cb99X FANCY_FMPCREATED92570-1X201 REV.2440/SRC_92570/R6000/TFRES.FTN9_FANCY_FMPCREATED  .ENTR FMPCREATEDIR_HAN33_p`(p`3@J99X FMPCREATEDIR_HAN92570-1X201 REV.2440/SRC_92570/R6000/TFRES.FTN9[FMPCREATEDIR_HAN .ENTR HANDLE_DISC_FULLFMPCREATEDIR--ҹp( `-@99X) FMPOPEN_HANDLING92570-1X201 REV.2440/SRC_92570/R6000/TFRES.FTN9hFMPOPEN_HANDLING F3.ENTR HANDLE_DISC_FULLFMPOPEN ==b##A@p$'%'%p '(`= % @p99X@d HANDLE_DISC_FULL92570-1X201 REV.2440/SRC_92570/R6000/TFRES.FTN9B^TFDCB TFNLS cHANDLE_DISC_FULL 88 bEXEC.ENTR .EXIT (( .SSTCHECK_BREAK MLOG NLOPENSYSCATFMPCLOSEFMPREPORTERROR8 CCQ`chb 0p`(KaW#`Q&_)^,]/\15A8[ SU  CSZ`uE(IIYK`&&]N>TF p&@o99Xa MAKE_SCRATCH_NAM92570-1X201 REV.2440/SRC_92570/R6000/TFRES.FTN9CBIMAKE_SCRATCH_NAM !!^:.ENTR FMPBUILDPATHFMPUNIQUENAME FMPPARSEPATH!aaFG==GGvHt`v|~~~FEDCxdzpt|zFEDCxI TF44@Da@==XCREATE_PARENTS_F92570-1X201 REV.2540 850508 /SRC_92570/R6000/TFRES.FTN= A{ ZTF_TEMPORARY X CREATE_PARENTS_F99 L.ENTR .CPM.EXIT .SBST .INDX FANCY_FMPCREATEDFMPBUILDPATHFMPPARSEPATHLIST9~~ LLAgg gisqom`}pAaiAiayp`(1 `@@{paioJGkuawu||||mKk`~(P(R~##R(W(0`}@pA i("("(0#55c DIR / @ @@4   05@OnI==XSELECT_TAPE_FILE92570-1X201 REV.5000 860829 /SRC_92570/R6000/TFRES.FTN=^sdSELECT_TAPE_FILE >> .ENTR .EXIT .SST.LBT CONCATTFDIRENTMATCH PSEUDO_SEARCH_DICHAR_IN_STRINGFMPPARSEPATH>_IIA__@`pa@bp]]]] pZpWp\`\(`pW`phP ((HA(pV~~OAAb[Y`[(p^`^d`V(cc(`  pX`X(`Z(c`pV(c`Y(`X0Vp^(`W0V(p^(  ~ O(( 88O / E S D @B(/8@x599Xdž PSEUDO_SEARCH_DI92570-1X201 REV.2440/SRC_92570/R6000/TFRES.FTN9@  PSEUDO_SEARCH_DI;; !.ENTR .EXIT .SBST .SCO.INDX .LBT MOVE2 FAKE_DIR_FILE_ENMOVEWORDS TRIMLEN ;k2LL@p@pp`(*`phP(8D(6(`@pDp``hh`O44@p(ZY(~`HpxJ j`@hHpx t`@hHpx ~( h/ /!@V99Xѽ GET_HEADER_INFO_92570-1X201 REV.2440/SRC_92570/R6000/TFRES.FTN9B TFTBL (TFEMA JGET_HEADER_INFO_pp.ENTR .CPM.EXIT .SBST .SST .CBTCANCEL_TRAP OCTALTODINT CTD_TAPEOCTALTOINTFIX_STRING TBLOCK_IS_VALID_MOVEFROMEMA INITIAL_LOW_LEVEGET_CONDITION TRAP_CONDITIONp7 created using: FC}}n`HHAA͉+p/(?4`(8(>`(>p(?(B G A (Y(Y` pA A}~~XWCC`hA (apA`h (k0(r`( v p ` 0 (`(A`h (`Ј(`J ~&&+ ( &EEH('` HEADER   d^d @E@==X"kGET_DIRECTORY_BL92570-1X201 REV.2540 850508 /SRC_92570/R6000/TFRES.FTN=BTFTBL  (TFEMA cGET_DIRECTORY_BL CC B .DIN.ENTR .IRES LIST DINTTODECIMAL TBLOCK_IS_VALID_MOVEFROMEMA DIE READ_TAPE CHECK_BREAK CtFFAce`fP(A]U$Ui((F0(; 3a 7hac`(Bp``jp(@(T0(N 5L Ng@ ((@] ` @x$8==XKDECODE_DIRECTORY92570-1X201 REV.5000 860926 /SRC_92570/R6000/TFRES.FTN= A TFTBL CDECODE_DIRECTORY {{n.DAD.DMP.DDI.ENTR .CPMMAX0.EXIT .SBST .SCO.SST .LBT .MBT.CBTCANCEL_TRAP FANCY_OCTALTOINTFANCY_OCTALTODINMOVE2 FAKE_FILE_ENTRY LISTFMPBUILDHIERARCHFMPPACKSIZE {::MTRIMLEN LAST_MATCH FIX_NAMESIGNAL_CONDITIONTRAP_CONDITIONFIX_STRINGREPORT_BAD_DIREC:@HHA@p툀2D(76(:= @#CFID(TM=TDW#[`"ۚ\BBh6!(cp`"h4!(mp`"h2!(wp`"h0!(p`0(`0p`0` p h  PB(( p ~~GGI H=(Ah` `( )p -p p `H pxAp   h X  0(` p p ` (pA~԰EED -(((D H+8 8(`h(  G  F`(ppp('p` (#`Cp(%`8pp;@*LL9(8A7;pH'''A'A (V UE(《`(p\p`A(e'(oDH(`ph PA(wvDD(|)HA('`(h@Hxh?Hx p`'p`&0p`+0p`^^"//*0p退`%0p`$0`(H (A%`( ((`J^bmNNSYSTEM / _ . CHKSUMHEADERUNIX NORMAL!d  dd |</1ǀ@:99X FANCY_OCTALTOINT92570-1X201 REV.2440/SRC_92570/R6000/TFRES.FTN9}FANCY_OCTALTOINT .ENTR SIGNAL_CONDITIONOCTALTOINT..&rAp`(`.@'899X FANCY_OCTALTODIN92570-1X201 REV.2440/SRC_92570/R6000/TFRES.FTN9xFANCY_OCTALTODIN .ENTR SIGNAL_CONDITIONOCTALTODINT //MA`(/@n99XD\ TBLOCK_IS_VALID_92570-1X201 REV.2440/SRC_92570/R6000/TFRES.FTN9 ATFTBL TBLOCK_IS_VALID_ 11l.ENTR .EXIT .SBST .SST .LBTOCTALTOINTFIX_STRINGSPECIAL_BLOCK 1}}"@@`[p`[Z(`(MY(#`[((M(T,TpATVppA`XpPNRhO @p88P(7}E `hX p(Q 00@˜55X9 FIX_NAME92570-1X201 REV.2440/SRC_92570/R6000/TFRES.FTN5 <FIX_NAME  &&.ENTR .EXIT .SBST .SCO.SSTTRIMLEN CASEFOLD&II\,,A3 33p.3D.7(p`(,A.3A3.5`I" 0 .DIR/ `d@<Z99XA FAKE_DIR_FILE_EN92570-1X201 REV.2440/SRC_92570/R6000/TFRES.FTN9O FAKE_DIR_FILE_EN .ENTR .EXIT .SC .SSTFAKE_FILE_ENTRY .. :@ p1A<:A8@<>!8  .SM2.DIR:::2 ::32F  d@#]99Xb FAKE_FILE_ENTRY 92570-1X201 REV.2440/SRC_92570/R6000/T((FRES.FTN9TFAKE_FILE_ENTRY xf.ENTR STRDSCFMPPARSEPATH~~yPBBT@pSp`^pR`@S 88R(`a`]@SpJ$JV`Jh\HSxL.LV_Lh[HS`Z@SpO`Y@SpP`X@SpQxNHTVJLVN~.gDOPQVlT ! @!@n==X RESTORE_VERIFY_F92570-1X201 REV.6000 900827 /SRC_92570/R6000/TFRES.FTN= A RESTORE_DCB k,RESTORE_VERIFY_Fyyig.DCO.ENTR CANCEL_TRAP FMPCLOSE LISTFMPSETDIRINFO CHAR_IN_STRINGSIGNAL_FMP_ER VERIFY_FILE_CHECVERIFY_FILE_DATAFMPFORCEDCB FMPOPEN SKIP_TAPE FMPUPDATETIME MOVE2 DIRECTORY_FILEyVV SIGNAL_CONDITION PAREN_REPORT_TAP PAREN_FMPREPORTE PAREN_REPORT_DATPAREN_REPORT_CHEREPORT_ERROR_VERGET_CONDITION TRAP_CONDITIONTFCMD Vy AAA  @p툀&(h+ -` P (337` P (;(T`P(?(CB(O`P(G(K J(O LCCO R`P (X(^ \(S`P (b(e eh o(`@py~p`(A(p`^<<( (S(`P(((`( ( `((`FF7C!!((`( (SF..C rosdxql ( .@Yx>>XTFUNX_HEADER92570-1X205 REV.6000 <901120.1211>/SRC_92570/R6000/TFUNX.FTN>YTFUNX_HEADERkIp@긪99XC  INIT_UTEXT_VMARE92570-1X205 REV.2440/SRC_92570/R6000/TFUNX.FTN9 A}TFUNX INIT_UTEXT_VMARE ppp@Qp<<XM"UTEXT_VMAREAD 92570-1X205 REV.2540 850916 /SRC_92570/R6000/TFUNX.FTN<BbTFUNX TF_TEMPORARYUTEXT_VMAREAD 00 ^-.ENTR MIN0.EXIT .IRES .SBST .SST.DLDE MSTTOEMAFMPREAD 0?? pp`p`(}`(G)p(/ `P(3(6`p (G`pA@ J@66@p`p Kp`(P(|`@p`@ @p@A@pA n`@ p`@p`##\v @p`@p(`p(-# d  P@699XN INIT_UTEXT_VMAWR92570-1X205 REV.2440/SRC_92570/R6000/TFUNX.FTN9 A}TFUNX INIT_UTEXT_VMAWRLpp@d]99X'V POST_UTEXT_VMAWR92570-1X205 REV.2440/SRC_92570/R6000/TFUNX.FTN9 A~TFUNX  POST_UTEXT_VMAWRN.ENTR POST_RECORD_BUFF`(  @ѿ==X9+POST_RECORD_BUFF92570-1X205 REV.2540 851022 /SRC_92570/R6000/TFUNX.FTN= ATFUNX GPOST_RECORD_BUFF .ENTR MOD .EXIT .SBST .SSTFMPWRITE AAN"" *(`Ap#&A#( pA% 0J@|<<XjsUTEXT_VMAWRITE92570-1X205 REV.2540 850916 /SRC_92570/R6000/TFUNX.FTN<BhTFUNX  TF_TEMPORARYUTEXT_VMAWRITE DD .ENTR .CPMMIN0 .EXIT .IRES .SBST .DLDE POST_RECORD_BUFF MSTFROMEMAMAP_INSTRDSC KINDEXD?? pp`((`@p`@@p`@pA,p5h px>~~?22 Dp` p ` (P@p(R`p  p ` (_`p(a`p`  (j` p (l`p `(p(~nnq//`hHApx   `@p`@ p` @p` 0 ((((n  PP@>>XTFTIO_HEADER92570-1X203 REV.6000 <901120.1211>/SRC_92570/R6000/TFTIO.FTN>TTFTIO_HEADERkIp@K++X#/TFTIO/ /SRC_92570/R6000/TFTIO.FTN+ 4TFTIO   @˛77X1 INIT_TAPE_IO92570-1X203 REV.2440/SRC_92570/R6000/TFTIO.FTN7INIT_TAPE_IO N.ENTR .OPSY DIE SET_TAPE_LU TFTIO 55(  p Pp p5  @77Xp8+ SET_TAPE_LU 92570-1X203 REV.2440/SRC_92570/R6000/TFTIO.FTN7%SET_TAPE_LU  o.ENTR RELEASE_TAPE_LU LU_TYPE TFTIO VVPT''A pPh*X 0p`(#` (P(p`pp p `V * @n77XdO  TAPE_LU_DOWN92570-1X203 REV.2440/SRC_92570/R6000/TFTIO.FTN7ZTAPE_LU_DOWN !LU_DOWN TFTIO l pp`@ˤd55X  CTD_TAPE92570-1X203 REV.2440/SRC_92570/R6000/TFTIO.FTN5 .CTD_TAPE شTFTIO u p` Pp`@$C55X| GET_TAPE92570-1X203 REV.2440/SRC_92570/R6000/TFTIO.FTN5 A (TFEMA "GET_TAPE 77 .DAD.DIN.IMAP TAPE_IO REWIND_TAPE MLOGLOCK_TAPE_LUASK_FOR_TAPETFTIO 7~~^44pp p `(  `{p`iP((`zp(`yp`ypp(`iP($()(xh(--x w`p `p `~eeY422(98v(`(@?u(`(J`(JIt(L`iP(P(dXhslrppAhqA n@  e""hf nml"@g'77X9A ASK_FOR_TAPE92570-1X203 REV.2440/SRC_92570/R6000/TFTIO.FTN7tASK_FOR_TAPE--.CBTSIGNAL_BREAKMLOGSET_TAPE_LU DECIMALTOINTGET_SHORT_RESPON-xx>>p @ 88p`("(?8("">`9h=8(*(,(,,`9h;8(4((GOBRlnqpox@_;;X\9LOCK_TAPE_LU92570-1X203 REV.2540 850916 /SRC_92570/R6000/TFTIO.FTN; ATF_TEMPORARY ~LOCK_TAPE_LU jMLOGDIE LURQTFTIO qqQ00p` (- 75((pxP((6(+P(( 4(+`(%%`8p (- +3p ` p`qEU3tsr@Ð==XpRELEASE_TAPE_LU 92570-1X203 REV.2540 850603 /SRC_92570/R6000/TFTIO.FTN=`RELEASE_TAPE_LU  0.UNLOCK_TAPE_LUTAKE_TAPE_OFFLINTFCMD TFTIO ((p` (`(  (@59==X7TAKE_TAPE_OFFLIN92570-1X203 REV.2540 850916 /SRC_92570/R6000/TFTIO.FTN= ATF_TEMPORARY FTAKE_TAPE_OFFLINLTAPE_IO .OPSY TAPE_LU_DOWNTFTIO nn11p` (/(/P((+ P5p`(24` p(!`6p`(*(23 p (//22ne2@ y,988X UNLOCK_TAPE_LU92570-1X203 REV.2440/SRC_92570/R6000/TFTIO.FTN8UNLOCK_TAPE_LUMLOGLURQTFTIO //pp  ( ( u@/@ï99X(( TAPE_MAY_HAVE_BE92570-1X203 REV.2440/SRC_92570/R6000/TFTIO.FTN9oTAPE_MAY_HAVE_BE شTFTIO p` p`@ƅ77XM1$ REWIND_TAPE 92570-1X203 REV.2440/SRC_92570/R6000/TFTIO.FTN7!REWIND_TAPE +TAPE_IO TFTIO LLD$$pp P(("!`#ppppL@_}77XHD FINAL_REWIND92570-1X203 REV.2440/SRC_92570/R6000/TFTIO.FTN7FFINAL_REWINDr~UNLOCK_TAPE_LUREWIND_UNLESS_DOTFTIO ..p^p` ( ` (  ` (.@Ǧf99X  REWIND_UNLESS_DO92570-1X203 REV.2440/SRC_92570/R6000/TFTIO.FTN9eREWIND_UNLESS_DOSLOPPY_TAPE_IOTFTIO  p @99X  CTD_BLOCKS_ON_TA92570-1X203 REV.2440/SRC_92570/R6000/TFTIO.FTN9iCTD_BLOCKS_ON_TA  KF.DDITFTIO Up@L ::X$READ_TAPE 92570-1X203 REV.2540 850916 /SRC_92570/R6000/TFTIO.FTN:[READ_TAPE &&.ENTR .JMN0 TAR_BLOCK_CEILINLOOK_AHEAD_READ_TFTIO &>> !!A h@""@p""@p>@ܺ99X LOOK_AHEAD_READ_92570-1X203 REV.2440/SRC_92570/R6000/TFTIO.FTN9OLOOK_AHEAD_READ_.ENTR READ_TAPE_INTO_BTFTIO 11.`P( (  ` `@@1@Zy<<X`}^POSITION_TAPE 92570-1X203 REV.5000 860505 /SRC_92570/R6000/TFTIO.FTN<POSITION_TAPE 99 l2.DSB .DSBR .DMP.DDIR .DCO.ENTR READ_TAPE_INTO_B BACK_RECORD DIE TFTIO 9xDDA p h\phA@Wh@W[x`]P(((/ .(S(7(77(S(S(Q(Q E`''5H(Ph@J  (=S`p' ![ @wB88X{ TAPE_POSITION 92570-1X203 REV.2440/SRC_92570/R6000/TFTIO.FTN86zTAPE_POSITION   HA.DADTFTIO $$tphhJ@$  @[#y==X oREAD_TAPE_INTO_B92570-1X203 REV.2540 850508 /SRC_92570/R6000/TFTIO.FTN=XREAD_TAPE_INTO_BHH SIGNAL_CONDITIONINTTODECIMALLIST VALID_RECORD_LENCANCEL_TRAP LOW_LEVEL_READ_TTRAP_CONDITIONTFCMD TFTIO H~~77ppp` (%l(!`5(m(Z(!!l#%p `pP(-(P`kP(1(:5ei9~dd7**je(Z =(A(R`(L`p`p`np(P`P(P(RVeZhep_g(Qde  xwv@99X INITIAL_LOW_LEVE92570-1X203 REV.2440/SRC_92570/R6000/TFTIO.FTN9Q INITIAL_LOW_LEVE,.ENTR LOW_LEVEL_READ_TTFTIO !!Z A`p `@! a @h(99X+ LOW_LEVEL_READ_T92570-1X203 REV.2440/SRC_92570/R6000/TFTIO.FTN9 A(TFEMA hLOW_LEVEL_READ_T22.DADTAPE_READ_OR_WRICANCEL_TRAP RESIGNAL_CONDITITRAP_CONDITION_LTFTIO 2XXz+*p`'P(( ( &)$*("")$(`pX@ܡ::X&SKIP_TAPE 92570-1X203 REV.2540 850916 /SRC_92570/R6000/TFTIO.FTN: ATF_TEMPORARY dSKIP_TAPE  .DSBR .DCO.ENTR READ_TAPE CHECK_BREAK 99AA$( ( h@A( 9 $ @{`==XbPOSITION_MAGTAPE92570-1X203 REV.2540 850916 /SRC_92570/R6000/TFTIO.FTN= ATF_TEMPORARY nPOSITION_MAGTAPE]] .DDE.DCO.ENTR REPORT_TAPE_ENDS CURRENT_BLOCK_IS REPORT_TAPE_CONT REPORT_TAPE_FULL POSITION_TAPE TAPE_POSITION BACK_RECORD TAPE_IO TFTIO ]>>A`a `_`(`ph^h@"Z(*(., X 6X 9Z(F`(B 66M?@(-(- I](O M(- R\( V(-6j4Z @"99X+ POSITION_CTD_FOR92570-1X203 REV.2440/SRC_92570/R6000/TFTIO.FTN9POSITION_CTD_FORHHU.ENTR REPORT_TAPE_ENDSREPORT_TAPE_CONTCURRENT_BLOCK_ISREPORT_TAPE_FULLCTD_EOT_WARNING POSITION_TAPE TFTIO HUUh++`*  (((()($"(&(U@Dc99X'" REPORT_TAPE_FULL92570-1X203 REV.2440/SRC_92570/R6000/TFTIO.FTN9--%REPORT_TAPE_FULLREPORT_TAPE_CONT REPORT_TAPE_ENDS-}MLOGHH""p(p`p( p ` p(! (({zyH@9W77X-  BACK_RECORD 92570-1X203 REV.2440/SRC_92570/R6000/TFTIO.FTN7BACK_RECORD +TAPE_IO TFTIO  p @tf==X=GET_TAPE_WRITE_B92570-1X203 REV.2540 850916 /SRC_92570/R6000/TFTIO.FTN= ATF_TEMPORARY GET_TAPE_WRITE_B88.DAD.ENTR .JMN0 MAX0TAR_BLOCK_CEILINREAD_TAPE_INTO_BPOST_TAPE_WRITE_TFTIO 8||B<;;A`P( (  `(`(``@h@ @;A(;@p;2;@pA 8p|@099Xߔp POST_TAPE_WRITE_92570-1X203 REV.2440/SRC_92570/R6000/TFTIO.FTN9 A (TFEMA R8POST_TAPE_WRITE_?? R.DSBR .DCOMOD SIGNAL_CONDITIONCTD_EOT_WARNING TAPE_READ_OR_WRIDIE BACK_RECORD TFTIO ? ::p`( J (,P(((hnh@(' '(, `mP(0(9A4l(88(C`ook:--P(>>`P(CC`op Jmj pp `mP(V(\X(\`op`(e`(e el(oj`@";@99X CTD_EOT_WARNING 92570-1X203 REV.2440/SRC_92570/R6000/TFTIO.FTN9]CTD_EOT_WARNING  Q.DSBR .DCOTAPE_POSITION TFTIO $$p( p`$  @0O~;;XGFINISH_TAPE 92570-1X203 REV.2540 850510 /SRC_92570/R6000/TFTIO.FTN; ATFTBL 5FINISH_TAPE pp P.ENTR MOD CLOSE_CTD_CACHE POST_TAPE_WRITE_ LIST_HEADER_INFO PUT_HEADER_INFO REWIND_TAPE WRITE_EOF_MARKWRITE_PADDING_BLWRITE_EOD_MARKTAPE_POSITION WRITE_DUMMY_CHECTFTIO pyyݦ<<A pA((! #`EP('(< )`Fp 1 8B@BD: <y;? ~@Utv88X~ WRITE_EOD_MARK92570-1X203 REV.2440/SRC_92570/R6000/TFTIO.FTN8WRITE_EOD_MARKM.ENTR WRITE_SPECIAL_BL&&A(  (&@699X  WRITE_PADDING_BL92570-1X203 REV.2440/SRC_92570/R6000/TFTIO.FTN90WRITE_PADDING_BL 7WRITE_SPECIAL_BL p p@S===X&WRITE_SPECIAL_BL92570-1X203 REV.2540 850916 /SRC_92570/R6000/TFTIO.FTN=BTF_TEMPORARY(TFEMA 9WRITE_SPECIAL_BL++;s.ENTR .IMAP .IRES ((EMA_CLEARBUFFER GET_TAPE_WRITE_BTFTIO +44A #%`p4`p@_~99X) CURRENT_BLOCK_IS92570-1X203 REV.2440/SRC_92570/R6000/TFTIO.FTN9 A(TFEMA X%CURRENT_BLOCK_IS  m .ENTR .IRES MAP_INSPECIAL_BLOCK TFTIO **AA pp`* `` @ =)88Xz% SPECIAL_BLOCK 92570-1X203 REV.2440/SRC_92570/R6000/TFTIO.FTN8 sSPECIAL_BLOCK  .ENTR ALL_ZEROTFTIO BB p( `@(( `#@p!!"(( `$p( B d" @^T}99X5R TAPE_READ_OR_WRI92570-1X203 REV.2440/SRC_92570/R6000/TFTIO.FTN9 A (TFEMA qTAPE_READ_OR_WRI 77 .DAD.DSB .DMP.DCO.ENTR .IRES .DLDE TAPE_IO CALCULATE_CTD_BLTFTIO 7~~ DDAAAMKOMp`QP((5hPhJ@J(,(, JA Ox 4Q!"(; ;OhPh@~1EK@ <<XB%WRITE_EOF_MARK92570-1X203 REV.2540 850513 /SRC_92570/R6000/TFTIO.FTN< A(TFEMA WRITE_EOF_MARKa8TAPE_IO CALCULATE_CTD_BLTFTIO NN%$p`$p `#P( ( #" !"("!"!`@N@99X CALCULATE_CTD_BL92570-1X203 REV.2440/SRC_92570/R6000/TFTIO.FTN9CALCULATE_CTD_BL.DAD.DDI.DCODIE TFTIO 00}p!!( 0  @(G[99X  CLOSE_CTD_CACHE 92570-1X203 REV.2440/SRC_92570/R6000/TFTIO.FTN9 CLOSE_CTD_CACHE +TAPE_IO TFTIO  p @P8n99X VALID_RECORD_LEN92570-1X203 REV.2440/SRC_92570/R6000/TFTIO.FTN9uVALID_RECORD_LEN 8.ENTR MOD TFTIO %%ApA p`%  @5T99X TAR_BLOCK_CEILIN92570-1X203 REV.2440/SRC_92570/R6000/TFTIO.FTN9[TAR_BLOCK_CEILIN  s.ENTR TFTIO ܚA`@h(p`  @n99XlTAPE_IO 92570-1X203 REV.2540 850508 /SRC_92570/R6000/TFTIO.FTN9 ACTF_TEMPORARY ZFTAPE_IO (!SLOPPY_TAPE_IOhhOz.ENTP .CBTSIGNAL_CONDITION LISTINTTOOCTAL DINTTODECIMAL CLEAR_STATUS_FLADECODE_STATUS XLUEX END_COMMAND DIE VMAIO WAIT_FOR_LU_TO_BLU_DOWN TFTIO h~~ ??`pL `LLpL(9`!pL`LLpL`!p`p `p `p `p`p` p(<p (>`kp A(K` (HK~~~J99`kp`j p `p &0ip P(Z(k hd  0(h`[0p`h0p`Lp`g (q(~`dP(vvz (px( hd~q??  0(`UP((  (px(`OP((  (px((  (px`VhX U( fU 99p`(աeЀ  `(>( `kp`kppp` (?`(!`dP((`OP((pp`( Q``~~|n==pASA cQS(  Q bQ(!`(``pAOA aO(! !_`(* '^*]`(3 0\3[`(99~8 Z` (??Y(G33SM IO14   @~} |@3@F <<X_DECODE_STATUS 92570-1X203 REV.2540 850916 /SRC_92570/R6000/TFTIO.FTN< A' TF_TEMPORARY  tDECODE_STATUS  LM.ENTR .CPM.IBTE CLEAR_STATUS_FLATFTIO ~~G;;A p`p`@p88(  p `p P(%(Z (* p(2p `(=`p`~~~b;00p(C`00p`p`p`p`p` p`0p` (Y p(`h p ` 0p `(m`~k11p(`(s`p(`(y`p(`(`p(`p` (`p`p(`(`(`p(`p`p(`Ap` p y@=[99X CLEAR_STATUS_FLA92570-1X203 REV.2440/SRC_92570/R6000/TFTIO.FTN9RCLEAR_STATUS_FLAشTFTIO 99>`ppppppppp p9@+MJ >>XTFEML_HEADER92570-1X198 REV.6000 <901120.1210>/SRC_92570/R6000/TFEML.FTN>XTFEML_HEADERkIp@dJ<<X|QAINIT_EMA_LIST 92570-1X198 REV.2540 850916 /SRC_92570/R6000/TFEML.FTN<CTF_TEMPORARY /TFEML  (TFEMA sINIT_EMA_LIST ((.DAD.DMP.CPMEND_COMMAND INTTODECIMALMLOGEMAST (ggx11p( @>((6>?6h@<8 : : gj6 f yx@י99X  REWIND_EMA_LIST 92570-1X198 REV.2440/SRC_92570/R6000/TFEML.FTN9B/TFEML (TFEMA REWIND_EMA_LIST ~ p @ 99X EMA_LIST_WRITE_S92570-1X198 REV.2440/SRC_92570/R6000/TFEML.FTN9B/TFEML (TFEMA nEMA_LIST_WRITE_S!!ϲ.ENTR .EXIT .SSTEMA_LIST_WRITE_ITRIMLEN !,,AA @p,  PP @g'88X EMA_LIST_WRITE92570-1X198 REV.2440/SRC_92570/R6000/TFEML.FTN8B/TFEML (TFEMA EMA_LIST_WRITEw.ENTR MIN0EMA_LIST_WRITE_IMOVEWORDS 22@pA pp2 ( @cP==X/EMA_LIST_WRITE_I92570-1X198 REV.2540 850916 /SRC_92570/R6000/TFEML.FTN=CTF_TEMPORARY/TFEML (TFEMA nEMA_LIST_WRITE_I7.DIN.DCO.JMAP END_PROGRAM MLOGZZ9''pp`(%p,((.`@-p'(' @88,( Z (`( r-z @Q99X EMA_LIST_READ_ST92570-1X198 REV.2440/SRC_92570/R6000/TFEML.FTN9B/TFEML (TFEMA e#EMA_LIST_READ_ST d.ENTR .EXIT .SSTEMA_LIST_READ_IT(($gA pH`PP(@D88X EMA_LIST_READ 92570-1X198 REV.2440/SRC_92570/R6000/TFEML.FTN8B/TFEML (TFEMA EMA_LIST_READ  2.ENTR MOVEWORDS DIE EMA_LIST_READ_IT55<@p p`(`5@ZyR==XDEMA_LIST_READ_IT92570-1X198 REV.2540 850916 /SRC_92570/R6000/TFEML.FTN=CTF_TEMPORARY/TFEML (TFEMA [EMA_LIST_READ_IT J.DIN.DCO.JMAP .EXIT .SSTuuln77p( p`(6 9p @?A@p`(6p=`@Cp898 @88=(%`u 9`( > P|@` >>X((TFMIS_HEADER92570-1X200 REV.6000 <901120.1202>/SRC_92570/R6000/TFMIS.FTN>TTFMIS_HEADERkIp@yG88X" DIRECTORY_FILE92570-1X200 REV.6000/SRC_92570/R6000/TFMIS.FTN8DIRECTORY_FILE  !V.DCO.ENTR 00PA` @A(h!X p`0 {^DIR  @h==X(PAREN_FMPREPORTE92570-1X200 REV.2540 850508 /SRC_92570/R6000/TFMIS.FTN= AjKTF_TEMPORARY RPAREN_FMPREPORTE((c.ENTR .EXIT .SSTLISTCONCATCONCATSPACE FMPERROR(FFx?(( $J  ' "&  ) (  8 :@F@A//X/LIST_FILE_STAT//SRC_92570/R6000/TFMIS.FTN/AJ1LIST_FILE_STATE   @==XCLOSE_LIST_FILE_92570-1X200 REV.2540 850917 /SRC_92570/R6000/TFMIS.FTN=B8 TF_TEMPORARYLIST_FILE_STATE HCLOSE_LIST_FILE_FMPCLOSEFMPSETEOF FMPDEVICE ==p`( (p=@ <<XkU3SET_LIST_FILE 92570-1X200 REV.2540 850917 /SRC_92570/R6000/TFMIS.FTN<B8TF_TEMPORARYLIST_FILE_STATE SET_LIST_FILE 33.ENTR FMPREPORTERRORFMPSETIOOPTIONS FMPIOOPTIONSFMPOPEN CLOSE_LIST_FILE_3qq_33A, ,.1`(%`2p`00p#),($wc Vq@3eR%33X yl LIST92570-1X200 REV.2440/SRC_92570/R6000/TFMIS.FTN3''D FTF_TEMPORARYTFDCB TFNLS LIST_FILE_STATE ' 9LIST  .ENTP MLOGFMPERRORMLOG_INIT }}<<A`pb`bbpbec`(F`bPj( (%#p(5`bPi()(/-ep(54ecp9`(E}LL=$$@gDkgp(_`bPj(J(OMp(_`bPi(S(YWep(_^ecpLc 2pA@K i99XX6COPYING 92570-1X200 REV.2540 850508 /SRC_92570/R6000/TFMIS.FTN9B_TFDCB TFNLS  HCOPYING  ++.ENTR .CPM.SCOLISTSTRDSCNLREADCATSTRREMOVE_OTHER_FIE+KK舀‡(LpKK((LKII((NDN N DNFEDCB@` 99X- REMOVE_OTHER_FIE92570-1X200 REV.2440/SRC_92570/R6000/TFMIS.FTN9 A`FTF_TEMPORARY yREMOVE_OTHER_FIE\4.ENTR FMPBUILDPATHFMPPARSEPATHSSf--&$"( &$"*,,,,  40W0R 0B@0 0V>S@i88XB FIX_DEST_NAME 92570-1X200 REV.2440/SRC_92570/R6000/TFMIS.FTN8 AfLTF_TEMPORARY FIX_DEST_NAME \4.ENTR FMPBUILDPATHFMPPARSEPATH;;<:8>6>>>>>`("`p`('`p3<:8@6  40b 0^ R;0N@00j@x\88X6 PUTINONECOMMA 92570-1X200 REV.2440/SRC_92570/R6000/TFMIS.FTN8 Ak KTF_TEMPORARY PUTINONECOMMA --3.ENTR .EXIT .SBST .SCO.SST.SSTC TRIMLEN SPLITSTRING -BBG"))A-A/-/-//3('-p))-)-D)5@1/BL+ , V X@3==XzDISC_LU_OF_FILE 92570-1X200 REV.2540 850917 /SRC_92570/R6000/TFMIS.FTN= ATF_TEMPORARY DISC_LU_OF_FILE  &.ENTR DSDCBWORD ==mp`((`p`?=@xa99X2 LOG_HEADER_INFO 92570-1X200 REV.2440/SRC_92570/R6000/TFMIS.FTN9BtTFDCB TFNLS LOG_HEADER_INFO #LIST_HEADER_INFO__.DDI .DCO.ENTR .EXIT .SBST .SCO.SST .SBT.MBTLIST_OR_LOG DINTTODECIMAL CTD_BLOCKS_ON_TA INTTODECIMALDAYTIME BLANKSTRING DIE _~~jN@@A(3`#p`p`p` p`!p`"p(6p(8`1p<0`/(@(ED.(`-(I(NM,(`+(WV~~~iUAA*(`)([(`_(((`'A(g(l (`&(p(vh` (`%(z( H($ (#0(~}}6HH " ( !  (  `h    `p`p D((( }--D@@p8(ϡ -XXx77 FCTA R TF   "   RQPONML@ KJIHGX@h(;;X3JLIST_OR_LOG 92570-1X200 REV.2540 850820 /SRC_92570/R6000/TFMIS.FTN;[LIST_OR_LOG .ENTP .ARTN MLOGLISTyyiEE`pE`EEpEHF(.`EC#("(C'H(C-HF(C`E5C59>8(C=H(CCHFy F @O==X;GET_SHORT_RESPON92570-1X200 REV.2540 850917 /SRC_92570/R6000/TFMIS.FTN= A TF_TEMPORARY jGET_SHORT_RESPON&&Ϡ.ENTR .EXIT .SBST .SSTXREIO CASEFOLDLOGLU &]]Q://A2 pA`:p89px`4P(&`p/A/4/A4/6)424@]A1 0b@y999X@' USER_SAYS_YES_TO92570-1X200 REV.2440/SRC_92570/R6000/TFMIS.FTN94USER_SAYS_YES_TO ""2.ENTR .LBTGET_SHORT_RESPONMLOGCHECK_BREAK "JJSN%%A &"h#HP%p`H( h#P$( (` NYSJ@499X$> WAIT_FOR_LU_TO_B92570-1X200 REV.2440/SRC_92570/R6000/TFMIS.FTN9WAIT_FOR_LU_TO_B00 EXEC.ENTR MLOGCHECK_BREAK_NO_HINTTODECIMALCHECK_BREAK LU_DOWN 0[[K00Ap ()`(4<4;A`=p&:6968((`(//7[s4 bV UT@99X`$LU_DOWN 92570-1X200 REV.2540 850917 /SRC_92570/R6000/TFMIS.FTN9 ATF_TEMPORARY KLU_DOWN   ?.ENTR XLUEX .OPSY   DDAAp#P" p` p `h0 p`D " @Q 99XmLU_TYPE 92570-1X200 REV.2540 850917 /SRC_92570/R6000/TFMIS.FTN9 A TF_TEMPORARY LLU_TYPE   N.ENTR .CPMXLUEX WAIT_FOR_LU_TO_B.OPSY  <<A`lpp[Ak0[(`pj(Z`]pi(((((h(-(.(g(6(6p(8`fpPe(<(T`dP(@BBwP?(SCAKcba^(Zpx`(S`_p(Z``P(X(Z`_p(B]?  @Cb99X PLEASE_LOAD_TAPE92570-1X200 REV.2440/SRC_92570/R6000/TFMIS.FTN9bPLEASE_LOAD_TAPE ".ENTR INTTODECIMALMLOGA  O W @99X(S CREATE_SCRATCH_F92570-1X200 REV.2440/SRC_92570/R6000/TFMIS.FTN9 A.  TF_TEMPORARY ECREATE_SCRATCH_F:: ^.ENTR .EXI((T .SCO.SST.MBT CHECK_SCRATCH_FIFMPOPEN FMPBUILDPATHFMPUNIQUENAME :PPPAMEhD`LCACEGGORQOG&AIP`(3ACG(3CGH( 6 rwct/SCRATCH/ TF  p r v  wQ` @ZyN==XCHECK_SCRATCH_FI92570-1X200 REV.2540 850508 /SRC_92570/R6000/TFMIS.FTN= AN2TF_TEMPORARY >CHECK_SCRATCH_FI'`.ENTR END_COMMAND LISTFMPERROR--A( dPX-@l,==X REPORT_BAD_DIREC92570-1X200 REV.2540 850508 /SRC_92570/R6000/TFMIS.FTN=eREPORT_BAD_DIRECLIST pY@99X UPDATE_CHECKSUM 92570-1X200 REV.2440/SRC_92570/R6000/TFMIS.FTN9[UPDATE_CHECKSUM .DAD.DIN.ENTR EMA_SUM_IT##{{A A#@{99X?o VERIFY_FILE_DATA92570-1X200 REV.2440/SRC_92570/R6000/TFMIS.FTN9 A (TFEMA WVERIFY_FILE_DATAOO .DSBR .DCO.ENTR .IRES UPDATE_CHECKSUM EMACOMPAREVMAREAD UTEXT_VMAREAD READ_TAPE CHECK_BREAK INIT_UTEXT_VMAREOͿKKAl(j(](] h@(10h(77h(<A da Fah(L`n@(; ''Mda`@pc \ac((;'d f@/M99XC VERIFY_FILE_CHEC92570-1X200 REV.2440/SRC_92570/R6000/TFMIS.FTN9BTFTBL  (TFEMA GVERIFY_FILE_CHEC//}N.DCO.ENTR .CPM.IRES OCTALTODINT MOVEFROMEMA LOOK_AHEAD_READ_/YYH33:88B>A0p8(-08(4`@(6YY5: ` P@#N==X<REPORT_ERROR_VER92570-1X200 REV.2540 850508 /SRC_92570/R6000/TFMIS.FTN=;;REPORT_ERROR_VERPAREN_REPORT_CHE PAREN_REPORT_DATPAREN_REPORT_TAP; O`.ENTR LIST nn<<A( `p`p(&A`p`p(,`p`p(2$;*:(%09(%68(%]\[Zn@<<XZTFDIRENTMATCH 92570-1X200 REV.5000 860829 /SRC_92570/R6000/TFMIS.FTN<%uTFDIRENTMATCH 88 .ENTR .EXIT .SBST .SCO.SST TFOTHERMATCHNAMEMATCH DOUBLESTUFF MOVEWORDS 8j EEA @ p @ p~p`@p|%| ()(+``@~p||J |8|(<()H`@p|G|`@~P(a`@~UUCN..hH~p|x}A||}\|(`()(g(g()`@~  (t() z p()UO  @/;;XTFOTHERMATCH92570-1X200 REV.5000 860829 /SRC_92570/R6000/TFMIS.FTN;n TFOTHERMATCH .DCO.ENTR DOUBLESTUFF ~~% DD @ p @ pp` @h Hp` @ `(1` (f` @h Hp`@ `(E(.(f`@hHp`~MBB@ `(X(.(f`@hH (f(. p`@(t`P(s(.(x` P(x(.`@hHX  ((. p`@~~,==p`((.`@hHX hHX ((.`@P((`@p(`@P ((`@pǀ(`@p~II''π`@p`@p݀p0((.`p(.I''     R DI'@5|<<XYTFPREENTMATCH 92570-1X200 REV.5000 860829 /SRC_92570/R6000/TFMIS.FTN<sTFPREENTMATCH >> (6.ENTR .EXIT .SBST .SCO.INDX .IBST .MBTTFGETLOCQUALTOINT FMPPARSEPATH UT.BF >~~åAAA@p`@hHp`@p`@px*`@p4`@p<`@hHp`@px~~~FDDLh`App`pD(hA@ p88(W`(s`0p`(z`0p`@hA (((`~ ! ::## PXBTON P((   &( @  :@h99Xv~<TFGETLOC92570-1X200 REV.5000 860829 /SRC_92570/R6000/TFMIS.FTN9 !TFGETLOC \.ENTR .EXIT .SBST .INDX TRIMLEN WW[11A75@p45p`( `:@4(025;D72`:@4HH9W5@>>XTFTRP_HEADER92570-1X204 REV.6000 <901120.1211>/SRC_92570/R6000/TFTRP.FTN>]TFTRP_HEADERkIp@驩44Xo} TFTRP 92570-1X204 REV.2440/SRC_92570/R6000/TFTRP.FTN4 @TFTRP  kIp@F..X0!/TRAP_HANDLER//SRC_92570/R6000/TFTRP.FTN. ^TRAP_HANDLER  @=88X# TRAP_CONDITION92570-1X204 REV.2440/SRC_92570/R6000/TFTRP.FTN8.TRAP_CONDITION $$w.ENTP RTN_ADDR_OF_TRAPPUSH_TRAP_ON_STATRAP_HANDLER$@@ -`p!A`!!p!`!(p(pp " p`@ " @8v99X7 TRAP_CONDITION_L92570-1X204 REV.2440/SRC_92570/R6000/TFTRP.FTN9TRAP_CONDITION_L =RTN_ADDR_OF_T_C_PUSH_TRAP_ON_STA$$pp p`$ b @a!99XZ" PUSH_TRAP_ON_STA92570-1X204 REV.2440/SRC_92570/R6000/TFTRP.FTN9PUSH_TRAP_ON_STAw.ENTR .CPMDIE TRAP_HANDLEROO""AJ!( (  `p`@ `@`@  O@՟77XOU  CANCEL_TRAP 92570-1X204 REV.2440/SRC_92570/R6000/TFTRP.FTN7CANCEL_TRAP *LDIE TRAP_HANDLER$$" p`( @p$@88X GET_CONDITION 92570-1X204 REV.2440/SRC_92570/R6000/TFTRP.FTN8GET_CONDITION o.ENTR TRAP_HANDLER7A`@lb"99X  RESIGNAL_CONDITI92570-1X204 REV.2440/SRC_92570/R6000/TFTRP.FTN9WRESIGNAL_CONDITI1=SIGNAL_CURRENT_CTRAP_HANDLER> p` (@m99X#  SIGNAL_CONDITION92570-1X204 REV.2440/SRC_92570/R6000/TFTRP.FTN9TSIGNAL_CONDITION.ENTR SIGNAL_CURRENT_CTRAP_HANDLER Ap@ 99XL3 SIGNAL_CURRENT_C92570-1X204 REV.2440/SRC_92570/R6000/TFTRP.FTN9rSIGNAL_CURRENT_C$$(EXECSET_A_REGISTERINTTODECIMALMLOGTRAP_HANDLER$ZZ!''p`( ,A1,,`@0($`@/p `@.p#2@p(Z, R Ѐ@6U88X  SET_A_REGISTER92570-1X204 REV.2440/SRC_92570/R6000/TFTRP.FTN8SET_A_REGISTER .ENTR Ap`@"dA$++X /TFBRK/ /SRC_92570/R6000/TFTRP.FTN+ =TFBRK  @ů88X HOLD_OFF_BREAK92570-1X204 REV.2440/SRC_92570/R6000/TFTRP.FTN8HOLD_OFF_BREAK½TFBRK ((p`p@6&T77X>XqTFEMA_HEADER92570-1X197 REV.6000 <901120.1210>/SRC_92570/R6000/TFEMA.FTN>XTFEMA_HEADERkIp@Ji66X@C MOVETOEMA 92570-1X197 REV.2440/SRC_92570/R6000/TFEMA.FTN6`MOVETOEMA ""e.ENTR MIN0.IRES .DLDE MAP_INMOVEWORDS "cc.77AAA?=A?pp`((8Bp`@p:=;*;p;0:;`@p`@p(c=@Ҹ77X3B MOVEFROMEMA 92570-1X197 REV.2440/SRC_92570/R6000/TFEMA.FTN7=MOVEFROMEMA ""e.ENTR MIN0.IRES .DLDE MAP_INMOVEWORDS "cc77AAA><@>pp`((8ApA<:':hHp:x;0:;`@p`@p(c<@Y99X EMA_CLEARBUFFER 92570-1X197 REV.2440/SRC_92570/R6000/TFEMA.FTN91EMA_CLEARBUFFER .ENTR .IRES .DLDE MAP_INCLEARBUFFER ++p+@Q99XQ EMA_COUNTRECORDS92570-1X197 REV.2440/SRC_92570/R6000/TFEMA.FTN9O+ EMA_COUNTRECORDS ##|.ENTR MIN0.IRES .DLDE MAP_INCOUNTRECORDS#wwa EEAAAMKOMpp`((H#PpAKI,IpI6I p`(=` `@p`@@p((;wK@̟_66XT EMA_SUM_IT92570-1X197 REV.2440/SRC_92570/R6000/TFEMA.FTN6SREMA_SUM_IT $$<.DAD.ENTR MIN0.IRES .DLDE MAP_INSUM_IT$ssFFAAAOMQOppQ`( (C$SpAMK-KpK3KA`@p`@p(sM@^ 66XZJ EMACOMPARE92570-1X197 REV.2440/SRC_92570/R6000/TFEMA.FTN6{EMACOMPARE .ENTR .IMAP .IRES .DLDE EMACW dd2<<AAAFDHFB@HB@p$p`(*``@(=ADAIp>@IP>p((d@ @Rp??X`\Ƣ5&TFMAC_HEADER92570-1X199 REV.6000 <901120.1314> /SRC_92570/R6000/TFMAC.MAC?@A`\::XtƢ5&EXTERNALS 92570-1X199 REV.5000 861008 /SRC_92570/R6000/TFMAC.MAC: `EXTERNALS ii 4 CHAR_IN_STRINGCOPYING DIRECTORY_FILEEMA_LIST_READ_ST FMPREAD GET_HEADER_INFO_ GET_SHORT_RESPONGET_TAPELOG_HEADER_INFO RESIGNAL_CONDITIREWIND_EMA_LIST TAPE_IO i  @S2q55X:&Ƣ5' MAP_IN92570-1X199 REV.2440 /SRC_92570/R6000/TFMAC.MAC5 tMAP_IN r.ENTR .LBPR hAA`@j*88XƢ5'KINDEX92570-1X199 REV.2540 850923 /SRC_92570/R6000/TFMAC.MAC8 lKINDEX .DLD.ENTR .LBT22p@pxHP(X((`@2@ 88XƢ5'SUM_IT92570-1X199 REV.2540 850923 /SRC_92570/R6000/TFMAC.MAC8 ʐSUM_IT 0.CBX.CXA.DST.ENTR .ISX))p @` D8( A)@|<77XƢ5' MSTTOEMA92570-1X199 REV.2440 /SRC_92570/R6000/TFMAC.MAC7 MSTTOEMA '.ENTR .LBPR .MBT!!F6AA `!@88XƢ5( MSTFROMEMA92570-1X199 REV.2440 /SRC_92570/R6000/TFMAC.MAC8 nMSTFROMEMA '.ENTR .LBPR .MBT##3sAA`hA #@ie55X1LkƢ5( EMACW 92570-1X199 REV.2440 /SRC_92570/R6000/TFMAC.MAC5 8EMACW b.CMW.DAD.DLD.DST.ENTR .PMAP BFFAAAAZA\peAZJx^h&x_\Jx`h&xa`_@hpb`a@hpc@b@cpd@e@dpdh^`f@+h``g@,`i@_AhjHad(E`d@epe SJ(MhdZZhd\\( ifx|@877X>Ƣ5(MLOG92570-1X199 REV.5000 861009 /SRC_92570/R6000/TFMAC.MAC7MLOG+MLOG_INIT "".ENTP .ENTR EXECNL$SETPARAMSNLWRITECATSTR "DD[1))A`p+A+(")/*0;h0 ("`/A(<;1=(!A)+Do1 Catalog read error ! @#%A99X7#Ƣ5)ALL_ZERO92570-1X199 REV.2540 850819 /SRC_92570/R6000/TFMAC.MAC9 ALL_ZERO .ENTR ..a(@ph(X( ( .@I ::XpƢ5)FIX_STRING92570-1X199 REV.2540 850826 /SRC_92570/R6000/TFMAC.MAC: sFIX_STRING .CAX.DLD.DSX.ENTR .LBT.SBT''@( ((D`H( '@A==XM?$Ƣ5)REPLACE_DOT_DIR 92570-1X199 REV.2540 851009 /SRC_92570/R6000/TFMAC.MAC=8REPLACE_DOT_DIR  p.CBT.DLD.DSX.ENTR .LBT.LDX.SBT AA((##xP"(((` (h( (H#`!:DIR:*.A@ѿ;;Xʷ Ƣ5)EOF_POSITION92570-1X199 REV.2540 850923 /SRC_92570/R6000/TFMAC.MAC; fEOF_POSITION *K.DLD.ENTR j ` @@}<<X Ƣ5*CHAR_IN_STRING92570-1X199 REV.2540 850923 /SRC_92570/R6000/TFMAC.MAC<CHAR_IN_STRING .ENTR CINDEX ]  @a::X8Ƣ5*UNIX_MODE 92570-1X199 REV.5000 860929 /SRC_92570/R6000/TFMAC.MAC: rUNIX_MODE .ENTR ,,2pH@0 ,@BGa>>XyTFRFC_HEADER92570-1X202 REV.6000 <901120.1211>/SRC_92570/R6000/TFRFC.FTN>QTFRFC_HEADERkIp@aw788X  PREP_FOR_FC_DL92570-1X202 REV.2440/SRC_92570/R6000/TFRFC.FTN8 AήTFRFC  PREP_FOR_FC_DL kPREP_FOR_FC_DL_O  pp@99X PREP_FOR_FC_REST92570-1X202 REV.2440/SRC_92570/R6000/TFRFC.FTN9 AίTFRFC oPREP_FOR_FC_REST})READ_FC_CHUNK PREP_FOR_FC_DL_OTFTIO ;;`pP( (`P((p(`p;@y99X PREP_FOR_FC_DL_O92570-1X202 REV.2440/SRC_92570/R6000/TFRFC.FTN9 AέTFRFC mPREP_FOR_FC_DL_OGET_FC_CARTRIDGEPOSITION_FC_TAPE==ppp    =@ǀ99XJ POSITION_FC_TAPE92570-1X202 REV.2440/SRC_92570/R6000/TFRFC.FTN9 A(TFEMA pPOSITION_FC_TAPE!!j.CPM.IMAP TAPE_IO TAPE_READ_OR_WRITFTIO !pp>77p`IP( (,B`HpH((;?H`E@p(;p`(+`@p((8p`DpA4GF88A(0p(;f``B @$==XKGET_FC_CARTRIDGE92570-1X202 REV.5000 860505 /SRC_92570/R6000/TFRFC.FTN=BoTFRFC (TFEMA IGET_FC_CARTRIDGE))X.IMAP .MBTCRN_TO_ASCIIEND_COMMAND LISTREAD_FC_CHUNK )kk77pP( J=Ip9p`9(6pA`B@FpC`G@Hp8=8p8-D8AhC`EB88A(k =` B t @~===X]FC_GET_DIRECTORY92570-1X202 REV.2540 850508 /SRC_92570/R6000/TFRFC.FTN= AήTFRFC FC_GET_DIRECTORY 33c.DIN.DDE.DCO.ENTR INTTODECIMAL LISTUPDATE_FC_SUBDIRREAD_FC_CHUNK 388A  @ ()()p`P(("p``[P(&(((( J (E(E3 V @L**9<TL AZVT   X`\p( *{~T  @=99Xo FC_DECODE_DIRECT92570-1X202 REV.2440/SRC_92570/R6000/TFRFC.FTN9 AΰTFRFC <,8FC_DECODE_DIRECT EE b.DIN.DSB .DMP.ENTR .EXIT .SST FAKE_FILE_ENTRY FMPBUILDHIERARCH FMPPACKSIZE CONCATMOVEWORDS E~~/KKA/0@3p46/1@57 x.`.@pfH`@psw z ~88z p- - 3`33AA 288,, / @@:< ,@%77X?| FC_READ_TAPE92570-1X202 REV.2440/SRC_92570/R6000/TFRFC.FTN7BtTFRFC  (TFEMA R FC_READ_TAPECC hB .DAD .DCO.ENTR .CPM.IMAP .IRES SIGNAL_FC_FILE_E MOVEFROMEMA UNREAD_FC_CHUNK READ_FC_CHUNK CIAAAAz(#(#`{P(Arx@wy@zpro -oy`v@p`( (9(  po (HLL(G((0opo@ 0oh0(ZZrxy@zpo`'@ohJ@   Lkr ` @X<<XLREAD_FC_CHUNK 92570-1X202 REV.2540 850508 /SRC_92570/R6000/TFRFC.FTN<Bt(TFEMA TFRFC rREAD_FC_CHUNK WW 0.DAD .IMAP .IRES .LBPR LIST CANCEL_TRAP CHECK_FC_CHUNK_BCHECK_FC_CHUNK_HTAPE_READ_OR_WRIGET_CONDITION TRAP_CONDITIONTFTIO W~~77p`(`p p(0`P((~ `P ($(.P(((+`p(-p(l p`P(4(Z9x|~uug~9==;(pA|@p`@@h)p`A(O(Y xvYxv(c_x|a(p eA(p xxp n(   sp(0uxf  @8W99Xک  UNREAD_FC_CHUNK 92570-1X202 REV.2440/SRC_92570/R6000/TFRFC.FTN9 AέTFRFC QUNREAD_FC_CHUNK jnDIE "" p`(`p"@_~99X CHECK_FC_CHUNK_H92570-1X202 REV.2440/SRC_92570/R6000/TFRFC.FTN9 A(TFEMA qCHECK_FC_CHUNK_H ~C.IMAP FC_CHECKSUM ''p Pp`'f00@pP99XB CHECK_FC_CHUNK_B92570-1X202 REV.2440/SRC_92570/R6000/TFRFC.FTN9 A(TFEMA qCHECK_FC_CHUNK_B .IMAP .IRES .LBPR FC_CHECKSUM RR//p6A3A:@<p535>6@Pp36?P03p3A6=P03p`R6 fPP @ 77X=5A FC_CHECKSUM 92570-1X202 REV.2440/SRC_92570/R6000/TFRFC.FTN7-FC_CHECKSUM k.ENTR .CPM.IMAP .IRES .DLDE iid;;<:@<@p?p(8p>`pAp(&(0: p`p(!`@?h88>(i @ @ ==XIUPDATE_FC_SUBDIR92570-1X202 REV.2540 850508 /SRC_92570/R6000/TFRFC.FTN=BrTFRFC  (TFEMA QUPDATE_FC_SUBDIR%%@q.DAD.DDE.CPM.IMAP .IRES MOVEFROMEMA LIST%ff88p>EpAG((HA`Gp>Fp>Dp  h@   A>C;`Bp=9;=fK> ` & @%77XMa+ CRN_TO_ASCII92570-1X202 REV.2440/SRC_92570/R6000/TFRFC.FTN7bCRN_TO_ASCII .ENTR .EXIT .SSTINTTODECIMALNAM.. ::2!!?? A'p(H')( %A'%:>% D @4S99X  SIGNAL_FC_FILE_E92570-1X202 REV.2440/SRC_92570/R6000/TFRFC.FTN9RSIGNAL_FC_FILE_E S^SIGNAL_CONDITION n p@ggg~~H".EXIT Z .NFEX Z ALL_ZEROjAPPLY_FILE_DEFAU({ ASK_FOR_TAPEJ BACKUP6o,^:  : M Y f  BACKUP_FILE Tz*Q : 0~~~6BACKUP_FILE_AND_?w[*km:pM - f BACKUP_VERIFY_FIn : ZhBACKUP_VERIFY_TAg *kF  BACK_RECORD 4 < BBREAK_DETECTED# ~~~C CALCULATE_CTD_BL-c B CANCEL_TRAP \ CHAR_IN_STRING< CHECK_BREAK CHECK_BREAK_NO_H CHECK_FC_CHUNK_BtCHECK_FC_CHUNK_HECHECK_FOR_K_OPTI&N CHECK_SCRATCH_FIwC~((~~ CHECK_TAPE_NUMBEW!CLASSIFY_STRING 0pCLEAN_UP_COMMAND nCLEAR_STATUS_FLA> BCLOSE_CTD_CACHE / < BCLOSE_LIST_FILE_RCMD_FILE_IS_LOG_3 CONDITIONAL_TRANc COPYING Xr ~~~CREATE_PARENTS_FKCREATE_SCRATCH_Fuk CRN_TO_ASCIISCTD_BLOCKS_ON_TAB BCTD_EOT_WARNING u f BCTD_TAPE9 BCURRENT_BLOCK_IS&g  BCURRENT_CONTENTSMcCOPYING Xrm~~~ DECODE_DIRECTORY DECODE_STATUS 9a BDIE Z DIRECTORY_FILENSDISC_LU_OF_FILE `sDLu(^ :  EMACOMPARElEMACW wEMA_CLEARBUFFER <~~~t EMA_COUNTRECORDSnEMA_LIST_READ JEMA_LIST_READ_ITK>EMA_LIST_READ_STHUEMA_LIST_WRITEEFEMA_LIST_WRITE_IFIEMA_LIST_WRITE_SC?F EMA_SUM_ITq & ENABLE_BREAK <y~~~  END_COMMAND P  END_PROGRAM P EOF_POSITIONDERR9Z  EXTERNALS ,- : <FAKE_DIR_FILE_ENFAKE_FILE_ENTRY JFANCY_FMPCREATEDFANCY_OCTALTODINI <y~~~nFANCY_OCTALTOINT* FC_CHECKSUM ^FC_DECODE_DIRECTBFC_GET_DIRECTORYe V FC_READ_TAPEQ V  FC_RESTORE~*^  :  FINAL_REWIND" B NCY_OCTALTODINI<y~~~B FIND_NEXT_FILE_F+*,F P ! FIND_NEXT_FILE_T+*,F P ! FINISH_TAPE   I f BFIX_DEST_NAME \rFIX_NAME0 FIX_STRINGrFMPCREATEDIR_HAN3a<y~~~:FMPOPEN_HANDLINGRaGET 2WZGET_CMD_FILE_FRO " GET_COMMAND *< n GET_CONDITION c GET_DIRECTORY_BL!* i GET_FC_CARTRIDGE<" VGET_FIRST_TAPE_F30<y~~~ GET_HEADER_INFO_EH: GET_NEXT_TAPE_FOW0MGET_SHORT_RESPONi|GET_SRCE_OR_DEST,+CZ GET_TAPE.-  < BGET_TAPE_FOR_APPIIH`:-a 3`<y~~~%9 GET_TAPE_FOR_BACFZ`: I GET_TAPE_FOR_LISF GET_TAPE_FOR_RES  GET_TAPE_LU / GET_TAPE_WRITE_B0 BHANDLE_DISC_FULL *HOLD_OFF_BREAK ~~~SP INITIAL_LOW_LEVE W BINIT_COPY_COMMAN" INIT_EMA_LIST @ INIT_TAPE_IO7 BINIT_UTEXT_VMAREINIT_UTEXT_VMAWR_KINDEXLLHt^ LISTVLIST_FILE_STATE QLREAK ~~~ LIST_HEADER_INFOb*- LIST_OR_LOG h LOCK_TAPE_LUC BLOG_HEADER_INFO b*-LOG_NAME_AND_VERLOOK_AHEAD_READ_~ BLOW_LEVEL_READ_T2 : B LU_DOWN o@LU_TYPE q ~~~0 MAKE_SCRATCH_NAMqMAP_INaMLOG MLOG_INIT  MOVEFROMEMA R MOVETOEMA j MSTFROMEMAqMSTTOEMAoMUST_BE_IN_GROUP'i  NONDSTRIMLENPAREN_FMPREPORTEOsq ~~~&PAREN_REPORT_CHEPAREN_REPORT_DATPAREN_REPORT_TAPPARSE_COMMAND_AN?!]:TC 0 k ! n PLEASE_LOAD_TAPEs~POS 4<POSITION_CTD_FOR|:Q Bsmq ~~~ZPOSITION_FC_TAPE" < BPOSITION_MAGTAPEjQ < f BPOSITION_TAPE  BPOST_RECORD_BUFFkPOST_TAPE_WRITE_O: BPOST_UTEXT_VMAWRVPREP_FOR_FC_DL'PREP_FOR_FC_DL_OjX~~~lVPREP_FOR_FC_REST0 V BPSEUDO_SEARCH_DI,PUSH_TRAP_ON_STA PUTINONECOMMA _PUT_CMD_FILE_ON_ b PUT_HEADER_INFO R-READ_FC_CHUNK `CP: B  READ_TAPE DI BDL_OjV~~~oREAD_TAPE_INTO_B xW B MRELEASE_TAPE_LU @ - B REMOVE_OTHER_FIE[ REPLACE_DOT_DIR  REPORT_ADDRESS_AREPORT_BAD_DIRECxuREPORT_ERROR_VERREPORT_FILES_MAY0DL_OjV~~~REPORT_MASK_ERROQREPORT_TAPE_CONTqREPORT_TAPE_ENDSqREPORT_TAPE_FULLqRESIGNAL_CONDITI^ RESTORE |*^h : RROR_VERmREPORT_FILES_MAY0mDL_OjV~~~` RESTORE_FILE&*: i =ZRESTORE_VERIFY_Fc: ZhREWIND_EMA_LIST B< REWIND_TAPE t < BREWIND_UNLESS_DO?  BRTN_ADDR_OF_DIE ; jV~~~Q RTN_ADDR_OF_ERR9; RTN_ADDR_OF_EXIT; RTN_ADDR_OF_NFEX; RTN_ADDR_OF_TRAP; RTN_ADDR_OF_T_C_; SELECT_TAPE_FILEI  SET_A_REGISTERbSET_LIST_FILE SjjV~~~vx  SET_TAPE_LU ip BSIGNAL_BAD_COMMAP  SIGNAL_BREAKP SIGNAL_CONDITIONg SIGNAL_CURRENT_Cs ` SIGNAL_FC_FILE_E SIGNAL_FC_FORMAT) SIGNAL_FMP_ER P  SKIP_TAPE  * ijV~~~ SLOPPY_TAPE_IO29h BSPECIAL_BLOCK ($ BSUM_IT^TAKE_TAPE_OFFLINd < M B TAPE_IO 29h B TAPE_LU_DOWN;h BTAPE_MAY_HAVE_BE} BTAPE_POSITION g BE  jV~~~~ TAPE_READ_OR_WRI)\ < BTAR_BLOCK_CEILIN1( BTBLOCK_IS_VALID_j  TFBAK_HEADER6TFBRK UTFCMD \ TFCMD_HEADER)TFDIRENTMATCH   TFEMA_HEADER TFEML_HEADER?4TFGETLOCF~~~ TFLIB  TFMIS_HEADERMi TFOTHERMATCHTFPREENTMATCH f TFRES_HEADERs' TFRFC_HEADER=TFTIO m TFTIO_HEADERTFTRP  TFTRP_HEADER TFUNX_HEADERTRANSFER_BACK  ~~~  TRANSFER_TO  B < TRANSFER_TO_LOG_A TRAP_CONDITION9 " 2 TRAP_CONDITION_L~ " A TRAP_HANDLERg UNIX_MODE 5UNLOCK_TAPE_LUh BUNREAD_FC_CHUNK 8UPDATE_CHECKSUM ypbR~~~őUPDATE_FC_SUBDIRAUSER_REJECTS_OPEM}!USER_SAYS_YES_TOl*UTEXT_VMAREAD ~UTEXT_VMAWRITEGVALID_RECORD_LEN0 BVERIFY_FILE_CHEC}wIVERIFY_FILE_DATA{* i 0~~~%WAIT_FOR_LU_TO_BmF*5hWILDMASKOWRITE_DIRECTORY__GQ WRITE_DUMMY_CHECSTWRITE_EOD_MARK"xWRITE_EOF_MARK, < BWRITE_PADDING_BL$WRITE_SPECIAL_BL%Q B{-i~(($.;><//`XN=(#6>`>@p( `>@(($*;>/;;`^wZ(#4>`>@p( `=@Z((2;=DL.REL::RTE_6:5:102:128 644 0 0 63000 5310707711 34430 DL.REL::RTE_6:5:102:128 $f 4fDL REL +#+#+#f2kFST 88X4DL92570-16074 REV.6000 <920309.1534>/SRC_92570/R6000/DL.FTN 8**ELINFOCHARINFOCOLL INFOLANGMSC DLOUTFILE *qqV#DL.NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN qxx%EXEC.CPM.FION $.SCO.SST .NFEX .MBT,.CBT3PRTN2FMPENDMASK(FMPCLOSE1STUFF %MASKDISCLU0FMPMASKPROT /MASKSECURITY.MASKOPENID)MASKOLDFILE BUILDFIELDS -FDLPRINT&MASKPROPERPATHx}}@'FMPWRITEERROR INTTODECIMAL+FMPNEXTMASK *CLEARBUFFER #FMPINITMASK FATTENMASK"TRIMLEN !FMPPARSEPATH CINDEXMSC.DECIMALTOINTFMPSETIOOPTIONS FMPIOOPTIONSFMPLU XFTTY FMPREPORTERRORFMPOPEN }>> FMPINTERACTIVENLREADRELSTR NLINFO NLLANGID FPARM NLREADREL ADDRESSOF LIMEM DL_MESSAGE> , ~~ #GG p- "!0,@"p"`"p`@p`"@!@p`A@p(Z(ZMp`ApWp(D D D @ ~}}2j<< p rp ` (ġ | `(`p(   ((`pˈ`p(  `(`p(`}}}@@(p h`p`pAˡp`p(p`(`p}}}Ҝ88(`(pϡpx`P((`0p p`(`)pp`(p(`p!}}}5DD `()) `(21 ([ 6([p` p`@ ([88(<!Q"T([[ `@ pϡ#f}b??p`(A$(p((`@ p%vϊp{H (`@ p&'(p`p(((h`A`̈@ p)p}}@@ψ`ppp`@p*`@ `pp`(`@ pϡ+ǃ p`P ((`p` (A A$(ۈ((`@ p%}}}R@@pH (`@ p&` p' A`h,(0hH Hp0p`0(E`P(*`̈@ p&`@ }~~!??p-*h``@ p)5ϊp;`p͈`@ `@pπ`0(S(Opp(` (`(``@ p._p~P`==`@ p/fp`̈@ p0s `(`ppppp(`@ p%ψp`(P((`p`(@p`p`p(gg22p`@ pϡ1`(`@͈p`@Έp((p`̈@ p2`(Lj`p`pš3gxx\*JJ/ L : YMrwocx wcx 0 1 Z ([@ @R @C R@E     +?t  x@zU#88X< XFDLPRINT92570-16074 REV.6000 920307 /SRC_92570/R6000/DL.FTN 8CXDLOUTFILE INFOCHARINFOLANG YFDLPRINT  .ENTR .CPMMAX0.EXIT .SBST .SCO.SST.SSTC #.INDX $.MBT.CBTFMPPAGEDWRITE TREEINIT*NLDAYTIME NLREADREL )GETLNKNAMEMOVEWORDS FIXLABEL"DOUBSTRING!LEFTSTRING(CONCATINTNOS'CONCAT||&IDADDTONAME %IDNUMBERTOADD CENTERSTRINGTRIMLEN FMPINTERACTIVEIFBRK NLREPCHAR TREENEXTMASKPROPERPATHFMPWORKINGDIR MAXLEN2 MAXLEN1 MAXLENSL MAXLENOPEN MAXLENPROTMAXLENCHDL_MESSAGE|xx>[ZZ     @    xJKK@p @p ∀  X. p VX. pu`uAp   A  UX. pt`tp  D  H`huHt H??Ap x  pz` p` 4@ P -((p(pp` 3p `@ (`@ 'h`@ +@p88 (p  D@ EpD`Dp?p` 3p `~~ L==@ (`@ & (` ?P( (-` 0@ap ڡ * @ 0pM(` P(1(T`@ &hH 'H 5p `@ *p ܈`@ )p x ۡ G ܋݈ `@ & z(S(S`~~~ P<<@ &pz(` AP(X(g`@ &h 5Hgp x  e  (` 9P(k(z`@ &h 5Hkp ڊx  x  (`@ ,(`@ &hH )(`@ +P ((~}}|<<`@ &hH 'H 5p `@ *p x   (`@ +P 5((`@ &hH 'H 5p `@ *p ܊x   ܈ (`@ &hH )`@ &@?p?88 }jCC( ((( p=(סJ   pm`m(pm` 5@mpm mmD J TX Vpm=m(p ~~ CC A@` WpBp>pCp !A@l ( ˈ` 5@l@ p ڡ,$ 85$$  S=`=(?`=(B p (I(K` PpM~}}NDD(mR(Y@ (m` RXV pmh=Vm(`?PD(q(pB` h % ({(( @C A@p    A ( }~~QEE@C A@p    A 0 H " `C@DpC`C@D@ HX> 0( p á= ((pC(+pC`C@D@ 1pY`B(~ SS Q. mDY?C .(( D m CYJ  A ()  (((A CY@p  D H ()A CY@p  D  0 " `Y~~W*??pCp` 3p `@ (pE`E@ hEH & ( z`E@ &@@C  ([([@Cp S= (Y(pC`E@ &@C@ -pY` PE(e(`B(`E~~~\XiII@ &p y O. mY?C .(~( D m CYJ!  (`l@]@ @Ao  CY"o ڈ` EPE((݀`B(`E@ &p  N. m~/IIY?C .((A Am  CY! ܈(`l@^@ p  JCY"݋ ` =PE((`B( `E@ &p  M. mY?C .((@~~!JJ mD JCY! (`l@_@ p A CY" ` DPE((U`B(G`E@ &p ڡ1 L. mY?C .(6( mD JCY!F ~EGG (U`l@`A@ p   CY"U ۈ` ?PE(Y(O`B(c KX. pm`mAp   A A Am#  p|`|(p(`|@mpA 0((`~~<<<@ 0p~`m@~pm  0((` 2@p~`Y@~pY`?@~p?`E@ &hEH &H~`E@ &A m((`E@ &@mp~`Y@~pY`?@~p?`E@ &hEH &H~`E@ &@C@ (~` JJ(@Cp ڡ= ځ((pC`E@ &pY`m@Y@ 5p}A CAY A   } A Am A   CYA# @C@ -p{`|(` 1@Yp{(O~~'EHH C D H`l@a@ H{p ڄx  JC "-  {{D H`l@a@ @o`{h 5H{p x  J"Oo ` 7PE(S(`B(}`E@ &p ~~~o6ZKKg J. mY?C .(lA(  mA CY!| (`l@b@ @o CYJ"o ` 8PE((`B(`E@ &p  I. mY?C~~~RJJ .(( mD JCY! (ˈ`l@c@ p A CY" ` GPE((`B(`E@ &p ڡ H. mY?C .(( mD~~~VLL CYJ!  (`l@d@ P -((  DCYH (A CAY A   YYA ` PE(#(r`B(M`E@ &p 7 F. mY?C .(<~~~;MM( D m CYJ!L  (r`l@e@ (^A CAY  (r CYD D DYYH ` PE(v( I`B(`E@ &p  . mY?C~f\KKz(( mD JCY  ( I`l@f@ py`ypv`y 0px`y 0@ pw`y 0ps CYD H`x(A  A  `uhu @p x ~~CNN  D H`tht p x   D @Px((   H`uhu p x   D Hh ` $ ` 5PxA( (&  `tht p x A  A   ~ !IIAh ` $ ` 0Px(*(4h ` $ h ` A$ ` Pw(8(`D  H  `uhu p ڄx  D H `tht p ڄx  D H ` EPw(d(}h ` $ @}}rjHHH  `uhu p ڄx  D H ` =Pw((h ` $ A  `tht Ap x    A ` DPw((Ah ` $ h ` $ `v( CXV }~~NNpm( 9`s( D  H`uhu p x  D H`tht p x   D @Ps((  H`uhu p x  D Hh ` $ ~~~H KK` 5Ps( ( Ah ` $   H`tht p x   D H` 0Ps( !( +h ` $ h ` A $  8 BXV pm DCY  mD H` APE~Ȯ KGG( M( `l@g@ pr`B( |`E@ &p  f @. mY?C .( k(A Am  CY { ܈( `r( A CAY  ( `r /pr` /Pr( ( ~~q JJ  >X. pm mD  H( % rpr& r$qH `q( '   ( A q  CYA ` 5@Cp  YD H` PE( ׈( &`B( `E@ &~5I PPp (( <. mY?C .( (A Am  CY! ܈( &`l@h@ (  CYD HA( &  CYA A YAY  ` PE( *( f`B~~K  ,HH( T`E@ &p ڡ > ;. mY?C .( C( mD JCY! S ( f`l@i@ @oA CY" fo ` 9PE( j( `B( `E@ &p ڡ ~ :.~~~% tNN mY?C .( ( CYD D mH ( Ɉ`l@k@ p ڡ  0) ( A CAY  ( ` 0A@Cp   C A ` @Cp  ~! EED YD  E ( Ap  0E(  ( u ? ( ( PC( @Cp  = ( (`B( `E@ &pC( ` 8@Epn nX. pm@ ~~ HHm ( ( A` pm  mA ` pC`E@ &@C@ -pY( R`B( RA CAY  ` 8@Epn 7nX. pm m ( ?( ?` pm` 7@Cp  YD D m~ OGGH `B( u`CAp   C A `E@ '@lA@ p   CY* u ۡX`E@ &@CpC88 (/`?PD XC ( @Cp  = ځ!= AA( (`B( pB = 6 5( (p ڡ A@(  ? ( ( ǡ = 6 5( (`>p>( = 6 5(  ) (( n" LL -> * / / . M X H HP\ @FH R : : F . "       EY 99D 0((  ~~9@)88XOMAXLEN1 92570-16074 REV.2540 830420 /SRC_92570/R6000/DL.FTN 8  MAXLEN1   .S.ENTR .CPM ~~BBA@pKppp(/pJ`@KpA((((`p`p88J(`NpAM(?(?`phLAp(1 (F(F p`~ G &L  @<99Xx.MAXLENOPEN92570-16074 REV.2540 830420 /SRC_92570/R6000/DL.FTN 9MAXLENOPEN .ENTR PPw''A@p,`-ppp('p+`@,( ``p88+(p(P - @v88X\MAXLEN2 92570-16074 REV.2540 830420 /SRC_92570/R6000/DL.FTN 8  MAXLEN2   .DDI.DCO.ENTR .CPMDOUBLESTUFF ~~qGGA@pTYpp (7pS`@TpR&R(0(0` p88S(`[pAW(I(I`pUA(9 (P(P~N p` 3U @$88X&PMAXLENCH92570-16074 REV.2540 830420 /SRC_92570/R6000/DL.FTN 8 0MAXLENCH  .ENTR .CPMTRIMLEN MOVEWORDS xx# ==A @ pKp p p (=pJ` @KpI*IO-L(6(65Lp` p 8 8J("`N@p A (G(Gp ` x ,L  @Qp88X@FMAXLENSL92570-16074 REV.6000 900829 /SRC_92570/R6000/DL.FTN 8 @ MAXLENSL  .S.ENTR .CPM ww<<A@pCppp(.pB`@CEp('('`p`p88B(`(2(6`D@p(8p (?(? p` w JD? @999X.MAXLENPROT92570-16074 REV.5000 860424 /SRC_92570/R6000/DL.FTN 9 MAXLENPROT .ENTR QQ[((@p-ppp(*p,`@-(#p` `p88,((!Q@T99X>nGETLNKNAME92570-16074 REV.6000 920309 /SRC_92570/R6000/DL.FTN 9AHHDONSROUTTEMPBUFS GETLNKNAME 66 EXEC.ENTR DISCWORDBLOCKTODISC .ASKD DSSETDCBWORDMASKDISCREADDSDCBWORD 6~~E==A(x`mp`h  0(e`(I`P(5)(e`k0p3(e: k p`(@`lp`P(HG~FFbE##p(cNT V@ph `jh k(epx` p(cF eoj@? @7cV#88X"iFIXLABEL92570-16074 REV.6000 900725 /SRC_92570/R6000/DL.FTN 8 'FIXLABEL ##5 .ENTR .CPMFMPPAGEDWRITE NLREADREL DL_MESSAGE#~~MAA@pg@ pf@pe@pdp)(.(1p(3Ap (E(E @p @  @  @  ~>>F (`(` pcV cp`(\`   `hp(Z> b*h @[y::X  BUILDFIELDS 92570-16074 REV.6000 900725 /SRC_92570/R6000/DL.FTN : Ar MSC >BUILDFIELDS .. .ENTR .EXIT .SBST .SST.INDX .LBT.MBTTRIMLEN UT.BF .j  {_HHA@ph`p`p`@ 88(,pp;pp`(pDDp`(U(Z`@h `(`~~^??p(~hP (e(n`@ p` p(~hP(s(|`@p` p(~p88(CA(p`p`@@(`@@ 8@8(~~~;cAA(p`p`@(`@ 88((p`p`@@ 88((pp`@@ 88(` (@ ~::0$$Y ! * CAUFWMNLRSXBPOTYEZ  "  -+:@"Af77X-STUFF 92570-16074 REV.6000 900725 /SRC_92570/R6000/DL.FTN 7B/INFOCOLLINFOLANG ѣLSTUFF  ,,.DMP.ENTR .CPM FGREATERNLCOLLATE DOUBLESTUFF MOVEWORDS ,44$$ 4vCAAAC@Cp@Dp@Fp@Kpp7`p*`p5`p$`p:`@ꈈEH5Hpxqp>`p`>@([`>@((p:`>~~==@p*`$p5`>@@EH$H鈈p`>@pxE@$@p?`P>((h?@A`A(AAE@$@pA(V`P>((E@$@~~~88I`>@@EH$ Hpxс䈈(V`P>(ֈ(`$p7(V`P>((刈E@$@p㈈`?(V`P>((`?p@J(E@$@h@(E@$@p~::`@0(V`P>((E@$@G(V`P>( (E@$@p`?(V`P>((E@$@H(V`P>h>Hp(I`@EH$Hp~~)3<<x9`@ꈈEH$HH鈡pxF`p:(V`P>(M(VE@$@pVK`>@@$p$8>8(uE@pgE@5@pp+~Ouo>>*`+p=w+;`p(p%`E((p'(`p'`'(׀`%p%`:(`*@p9`(@5@p+968`6(`7(`(@7@h(H7H qqqh66L`6p)(`(@5@p +*p)`)(`(p&(`(p&`&@(`&@p((p'`&@EA(%D((`%DE@$E(q((    (@88X8<TREENEXT92570-16074 REV.2540 830420 /SRC_92570/R6000/DL.FTN 8 B TREENEXT  .S.ENTR .CPM  jj'66@p:(@:@:(A(5(5@:@:`;p(7p` j a; @$((88X$TREEINIT92570-16074 REV.2540 830420 /SRC_92570/R6000/DL.FTN 8 TREEINIT .ENTR ""@p`"  @Hf::XÅACENTERSTRING92570-16074 REV.2540 830420 /SRC_92570/R6000/DL.FTN :iCENTERSTRING  .ENTR .CPM.EXIT .SBST .SSTTRIMLEN TTֳ33;9;p`9pH9=`@@@@pA?(*(*p699D6;@T )8 p@^99XXhLEFTSTRING92570-16074 REV.2540 850717 /SRC_92570/R6000/DL.FTN 9iLEFTSTRING $$@.ENTR .CPM.EXIT .SBST .SCO.SSTTRIMLEN $tPPb`bpXbDXf( pXYbDYd(.0X(:^(:(:@p``p`fH`@Ap^(L(LpX`D`=S@Xb\   @(:99XNLDAYTIME 92570-16074 REV.2540 840829 /SRC_92570/R6000/DL.FTN 9]NLDAYTIME WW.DAD.DMP.DDI.ENTR .CPM.DMOD MOD .EXIT .SBST .SST .LBT.SBT .MBT.CBTNLREADREL KCVT ALMANAC DL_MESSAGEW~~_ IIpxAAxxAxppppp`h(((~~~aCCppph@x`@h Hp@@p` @)@p 9`@@ pD‹~-BBBp`@@ pP‹p`(mh`A  (^(cAh`  gp`(m`phH P (r(A vpz∈p`0pp(h~~i==pAp pp`0p`0pppphH P ((h hp`0pp`0pppp~;;Ƥ!!pp`(ք(D@;UU,77124R@PLDHQ< 2ON100d em0/.-,U@‹p`(mh`A  (^(cAh`  %FS000::RTE_6:5:2:71 644 0 0 1000 5310707713 32346 %FS000::RTE_6:5:2:71 $ G%FS000 +#+#+#lFST GGXm!ȃ" 8:#MEMMSGS 92570-16111 REV.6000 920917 _6@>FS000::RTE_6:1:86:128 644 0 0 53000 5310707715 33314 >FS000::RTE_6:1:86:128 $V V>FS000 +#+#+#V+VlFST '92570-16112 REV.6000 920917' Gencat Fri, Sep 18, 1992, 6:07 PM CUjx} C0DW]mG!^ !1Use ? for help.6000Break command: process aborted Aborting FST)Type 'GO' when ready or 'BR' to terminate!Internal Error !1. Report to HP.No help available for !1.Unknown commandIncorrect usage of command,Warning: remainder of command line discardedOption or On/OFF expected: !1aNo files selected yety !1iCannot clear backup bit: !1hCannot purge: !1 Corrupt file. Can not select: !1 Cannot restore: !1o Creating path for: !1 Unsuccessful path creation:Cannot purge the old !1 in order to rename its replacement5Cannot successfully rename the restored file !1 to !2:Owner not set for !1Protection not set  for !1eNot updating: !1,Cannot restore linked files: !1 linked to !2/Warning: Illegal FMP name : !1%Renamed to : !2 n$Cannot restore unix device files: !1Unable to create: !1"Please make more room on the disk.EFST will try to create the file again after the GO command is issued.sCFST program suspending. Type GO to continue, BR to abort command.n1Warning: Unable to follow links to FMGR files: !11(File failed verify: !1(2Cannot backup sparse files across DS: !1/FDo you want to write over this archive (Y/N)? _d5Will continue when tape becomes ready ('BR' to break)o#Tape drives current density: !1 bpifKCopying comment file to archivei!Copying directory file to archivecVerifying archiver Copying filesFP %End  of tape reachedhLoad next tapeTPositioned at end of tape.Positioned at append #!1(Positioning tape beyond previous backups7Too many appends specified; tape positioned at last onei'The current append is not an FST backupnNo more appends on this tape.c,Erasing the current backup from the archive. FC tape format: unhandled by FSTdSearching for a legal record!Searching for a valid file header ,Scanning archive and building directory file"Encountered EOF. Search quitting.$Multiple failures. Search quitting.No tape LU has been selectedNot a legal tape uniteCannot lock the tape luoTAPE ERROR: !1Tape EQT is downTape LU is downcTape is not on-lineiTape write-protectedTape status erroreCTD tape is not initializeduTape FAULT errorTape not readyTape channel errorUnrecoverable data tape errorl,Need to fix the tape error before proceeding Cannot open the archive file: !1Archive file is not type 1: !1Archive file is corrupt: !1 .Not enough disk space for the archive file: !1*Appends are not allowed with archive filesNo such archive file: !1-SrchApp mode is only available for FST tapes.o,MinDir mode is only available for FST tapes.Illegal densityvCannot determine the density!Setting tape density unsuccessfuleUnknown archive formatTape headers do not matcho@This is not the original tape on which the restore was initiated5Tape sequence wrong: Tape !1 loaded, tape !2 expectedeMount the needed tapet Cannot restore !1 from this tape%It is on tape !1 (tape !2 is mounted)o# Cannot find this tape header: !1 "Extent header missing from archive$Cannot position to beginning of data5Appending is not allowed when creating UNIX TAR tapes 7Non FST append found o((n tape: appending cannot continue!%Appends are only allowed on FST tapes CNot enough room on this tape to hold the backup. Try another tape.t!1 files selected; !2 totale!!1 files unselected; !2 remainingU"Clearing selections for TF restore#Clearing selections for TAR restore%H*** WARNING *** destination mask for BA command yields duplicates names.FFAULTY option ON: Assuming tape being restored is partially corrupted.ASelective UNselects can not be performed when SrchApp is enabled.et>TAR and non-TAR formats cannot be mixed for backup. Current files must be%unselected before TAR format can be used.TAR and non-TAR formats cannot be mixed for backup. Current TAR files%selected must be unselected before TAR format can be turned off.Al*** WARNING *** TAR setting is still on from the restoring. Selected files%will be backed up with TAR mode.Cannot set TAR format: the most recent file selection is from a non-TAR%archive. Unselect all files and load a TAR archive for TAR fi le restoring.ACannot turn OFF TAR format: the most recent file selection is from a TAR%archive. Unselect all masks and load the correct archive for non-TAR use.e4File cannot be selected for TAR text conversion : !1=TAR selection was used, but the archive is not in TAR format.A0File restored, but not with proper TEXT data: !1@File paths and names Update Time or OwnerGlobal directoriesFile from directory !1File8File paths and names Update Times % Tape #!1% % Tape #!1+%s Format : !1 Title : !1 Created : !1 Tape number: !1 Capacity : !1 Kilobytes Total Used : !1 Kilobytesi"Cannot select file for backup : !1#Warning: Restore s elections clearedT!1 to !2Cannot backup: !1 *!1 will be the first file on the next tapeMore...('a' to abort)_0Warning: !1 contains record lengths >1024 words.@File saved in tar mode. (FST will split records during restore.)5Had to split records during restore of tar text file.t!1 files saved.w!1 files could not be saved.!1 files restored.!1 files could not be restored.s!1 files successfully verified.e!1 file(s) failed to verify.!1 warnings encountered.!1 files selected.{ AWith MinDir enabled, grouping must be used for multiple RE masks.%Type GO to restore current selections or UN to unselect.bGroup restore initialized.>Group restore selection complete. Searching for file matches.&Group buffer full. Processing b!uffer.!Aborting Group restore selection.uReinitializing Group restore. 2Second Group BEGIN. Reinitializing Group restore. ERROR: Grouping was never begun.)6Grouping not allowed for non-FST archiveslHEMA full. Need to process REstore command"s with a GO before continuing.?Cannot create group scratch file. Unable to set SrchApp option. >Error using group scratch file. Cannot process SrchApp option.!Cannot create group scratch file.F4DMT - !1 Files - !2 Blocks - !3 KBytes - #!4(TAR Format - Type 3 files and aboveTAR Format - Binary#TAR Format - Type 4 files onlynTitle - !1Comment File - !1Directory File - !1Log File - !1 [] [] - Select files to backup.8 - mask descriptor for selection of disk files.1 - mask for destination file descriptor.=( - system master security code.Example: Backup disk LU 10: FST> ba/ 10ALExample: Backup fortran source files on /SCRATCH renamed to directory /MINE: FST> ba /scratch/@.ftn /mine/15ORestore [] [] [gr/eg/ag] - Select archive files to restore to disk.c; - mask descriptor for selection of0 archive files.B1 - mask for destination file descriptor.i gr - begin group restore. eg - end group restore. ag - abort group restore..Example: Restore all the files on the archive: FST> reLExample: Restore archi1ve files with paths in /MINE to the working directory: FST> re /mine/@ @FExample: Selectively restore 3 files (A, B, and C) from the tape using grouping. FST> re a,,gr FST> re b FST> re c,,eg67LIst [] - List files sel2ected for backup/restore.I: - mask descriptor for files selected to display.%Example: List all the selected files: FST> liAExample: List files selected from directory /MINE of file type 3:e FST> li /mine/@:::3(6 7UNselect [] - Unselect files from backup/restore.k2 - mask descriptor for files to unselect.5Example: Unselect all run files from being backed up:s FST> un @.run9Example: Unselect all files and purge the directory file:3 FST> un<7[?4"LN [] - List filenames of files in the directory file notd selected for restoring.2 - mask descriptor for filenames to list.8Example: List all filenames of files not being restored: FST> ln;Example: List filenames of type 6 fi5les not being restored:n FST> ln @:::6P5cDGO - File selection phase is complete; begin transferring data to or from the archive.EExample: All files to backup are selected, the magtape is chosen, then' tape is loaded, so backup the fil6es: FST> god10FDF - Select a specific location and/or name and/or size for the directory file.7 - The file descriptor for the directory file.aIExample: Use the /MINE directory instead of /SCRATCH for directory files.f7 FST> df /mine/DExample: Cause the directory file, /SCRATCH/DIR_FILE, to be created # with a main size of 1000 blocks:c$ FST> df /scratch/dir_file::::1000MExample: Cause a directory file with a main size of 300 chunks to be created.f FST8 > df ::::-300i9?MT [] - Select or release a tape LU or an archive filea= - an integer representing a tape logical unit./D or a file descriptor representing the archive file.,Example: Select logical unit 8 f9or tape I/O: FST> mt 8.Example: Select the file /mydir/myfile for I/O FST> mt /mydir/myfile mt6rESEcure - Locks the tape LU selected by the MT command, and checks th:erC tape status for online and write-protection. If an archive fileIA is being used, the archive file is opened/created and checked  for write-protection.5Example: Secure the currently selected tape LU/file :y FST> se7dDTItle [<; string>] - Sets the title for the backup that will go in the archive header.9 - Any ASCII string, up to 70 characters long. *Example: Set the title to 'System backup': FST> ti System backup)Example: Clear the current title setting<:t FST> ti3i'LH - List the mounted archive's header. 2Example: List the header from the mounted archive: FST> lh6;DL [] - Display the filenames in the current archive.S; - mask descriptor for selection of archive= files.F:Example: Display all the filenames on the mounted archive: FST> dl dl @.ftn6BSC [] - Select the comment file to be saved with the backup.2 - na>me of an already existent text file.BExample: Select the file named 'INSTRUCTIONS' as the comment file: FST> sc instructionsn+Example: Unselect the current comment file:f FST> sc32LC - List the comment file that is on the archive.8Ex((?ample: List the comment file from the mounted archive: FST> lc11GLL [a][o] - Select a log device or file for FST output. Defaultc is LU 1.  - name of a file.' a - append to an existing file.o' o - over@write an existing file. 9Example: Select and append to a log file named 'FST.LOG':e FST> ll fst.log a'Example: Select LU 6 as the log device:c FST> ll 66Example: Restore the users terminal as the log device: FST> ll 16HTR A!- Select a transfer file to begin executing FST commands from.< - name of an already existent text file. The fileE may contain FST commands or comments. Comments are linesi, that begin with an asterisk (*).AExample:B Select a file named 'TRANSFER' to execute commands from:f FST> tr transfere,7,DNExt [] - Position the tape forward to another append. If no, count is specified, one (1) is defaulted./ - a positive integer less than 1024C.S)Example: Move forward to the next append:m FST> ne Example: Move forward 5 appends: FST> ne 5@7oEPRevious [] - Position the tape backward to a previous append.e2 If no count is specified, one (1) is defaulted./ -D a positive integer less than 1024.x.Example: Move backward to the previous append: FST> pr!Example: Move backward 5 appends:t FST> pr 5T9eCPOsition [] - Position the tape to an absolute tape append.): If no number is given tEhen report the current position.0 - a positive integer less than 1024.:Example: Position the tape to the 10th append on the tape: FST> po 10OHExample: Position the tape to the first backup on the tape (position 0): FST> po 0+ExamFple: Report the tapes current position:u FST> poh7hGHElp [] - List general or specific help for all FST commandst and options.) - an FST command or option.i8Example: List general help for all commands and optionGs: FST> he3Example: List specific help for the BACKUP command: FST> he baL|7|F? [] - List general or specific help for all FST commands and options.c( - an FST command or option.8Example: List general help forH all commands and options: FST> ?c3Example: List specific help for the BACKUP command:| FST> ? ba4tCSHow - Show option settings, along with other information about the< current activities of FST.tExample: Show settings:a FST> Ish6c4RU - Run a program (with wait) from FST.7 - a runstring for the program execution.H?Example: Do a directory listing of the users working directory:< FST> ru dlt&Example: Get system status from WHZAT: FST> ruJ whzat3UEXit - leave FST.aExample: FST> ex7DSD [] - Set the tape density for 7974 and 7978 tape drives.> If no density is specified then report the current setting.6 - an integer of value 800, 1600, or 6250.5KExample: Set the tape drive to a density of 1600 bpi: FST> sd 1600i1Example: Report the tape drive's current setting:d FST> sd13ETAR [ON] [OFF] [A] [B] [,C] - Select to create a UNIX TAR archive, orn) choose how to read a UNIX TAR aLrchive.:E ON - Convert file data to UNIX format for type 4 files (default).l OFF - Turn off TAR format.e, A - Convert for type 3 and above files.B B - Save/restore binary data to/from a TAR formatted archive.: C - Allow case sensMitive selects from the RE command.BExample: Create a UNIX TAR archive converting all text type files: FST> tar aABExample: Choose to read a TAR archive without converting the data: FST> tar b BExample: Allow selection of case sensitive namesN on a tar archive. FST> tar,,c2lFAppend - Files backed up are added to the end of the tape, rather than# replacing the previous contents.r1@Brief - Inhibit the 'Copying ...' message during backup/restore.2aGClear - Clear thOe backup bit for each new-file-system file backed up orl restored.01d4Dup - Replace duplicate-named disk files on restore.D3DDFaulty - Don't try to use the tape directory file for restoring, butF rather assume the tape is partially cPorrupted and just go find what files you can. X1 BKeep - Keep tape unit on-line after exiting or switching tape LUs.l2HLock - Lock disk LUs accessed during the BA selection to ensure no files change before the backup.4i@MinDQ ir - (FST restores only) Allow FST to restore files without D restoring the entire directory file on the archive. Use ofD this option limits the user to a single restore mask unless9 grouping is enabled in the RE command. SRee ?,RES3eHNormal - Force FST to follow symbolic links as if they were normal filesE files or directories. By default FST will backup a symbolict, link and not the file it points to.2IOriginal - Restore type-3 and above fiSles with the same main size as when 9 backed up (possibly creating wasted space or extents). 12Purge - Purge disk files after they are backed up.1AQuiet - For usage with log files; suppresses all terminal output.e1/SRC_92570/R6000/FSTP.FTN :00EQPHFST_BUF_MISC FST_EMA FSTP_TAPE )FSTP_CIO FSTP_COMMON 0rr7FSTP.NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN rzzEEXEC.FION CLEAN_UP_SONFLUSH_DADS_CIOGET_TAPE_DENSITYSET_TAPE_DENSITYREWIND_TO_TAPE_MSECURE_TAPE CHECK_OUT_TAPEINIT_EMPTY_BUFS WRITE_EOFSBACKWARD_RECORDSFORWARD_RECORDS BACKWARD_FILESzss fFORWARD_FILES REWINDING GETCTDADDRESS SETWRITESIZE IDENTIFYTAPE WRITE_1ST_RECORD COPY_REC_TO_TAPE COPY_BUF_TO_TAPE READ_1ST_RECORD COPY_TAPE_TO_BUFLISTEN_TO_DAD INIT_FSTP RMPAR s 00` (С#$%P#((`$p`%p (ϊ`P#( (%`$p $(`P#()(0`$p`%p  /(0//`P#(4(;`$p`%p  :(`稊P#(?(D`$p C(ϊ`P#(H(M`$p L(`P#(Q(TS(ϊ`P#(X([Z(`㨀P#(_(c~~_//b$(ϊ`P#(g(lk$%(`P#(p(sr(ϊ`P#(w(|{$%(`P#(($%(`P#(($(`~~~8-00P#(($(`ܨP#((`$p(ϊ`P#(((`ڨP#(((`P#(($(`P#(((`P#(~TT--(p(ϊ`P#((ɡ(`ըP#((A(=>gdPF?(`]ZT@ y)7--X/FSTP_TAPE/ /SRC_92570/R6000/FSTP.FTN - AkFSTP_TAPE ]``FST tape continued //Qa /@/::XINIT_FSTP 92570-16113 Rev.6000 911002 /SRC_92570/R6000/FSTP.FTN :00EQ8 HFST_BUF_MISCFST_EMA FSTP_TAPE )FSTP_CIO FSTP_COMMON 0x+INIT_FSTP HH SfEXEC.EXIT .SST.CBTCLEARBUFFER EIOSZ .OPSY SHOOTPROGRAMGETFATHERIDNUMIDNUMBERTOADD IDADDTONAME Hb+ +p+4`P(@FSTP must only be scheduled by FST! d7 A=A@`P(wIncompatible revisions of FST/FSTP! C==AI`(]Q*`hA(Y(\(\\(t_pcpi*`hA(q(t(ttw p p`p &`p ' YY!%%P((((` p p  h @p (`pp `p  @pp+Y33 FST @TLNppm3@p0<<XjLISTEN_TO_DAD 92570-16113 REV.5021 900213 /SRC_92570/R6000/FSTP.FTN < A%)FSTP_CIO LISTEN_TO_DAD  :^EXEC.ENTR 44CAA &px(```4 # @фD<<XREPORT_TO_DAD 92570-16113 REV.4010 860724 /SRC_92570/R6000/FSTP.FTN < A%)FSTP_CIO REPORT_TO_DAD  :_EXEC.ENTR 66uApppA'6@ ;;XF5IDENTIFYTAPE92570-16113 Rev.6000 910628 /SRC_92570/R6000/FSTP.FTN ;00EQ-FSTP_TAPE )FSTP_CIOHFST_BUF_MISC FST_EMA  FSTP_COMMON 0EIDENTIFYTAPE<< . .DIN.IRES REPORT_TO_DAD ACTUALEOF PUSHEOF DECODE_STAT1VMAIO FMPREWIND VMAREAD <}}Q88p`(,`( `p`ڀ)pp`(#"(`@pp(i`(D;}~~855(|pxAP((i`(iU(|px[P( _(d d @  k(s~JJm r(z`p zpx ({ ({J҄ d\[ @;;XJSETWRITESIZE92570-16113 REV.5021 900213 /SRC_92570/R6000/FSTP.FTN ;BFSTP_TAPE )FSTP_CIOCSETWRITESIZE  REPORT_TO_DAD >>Fp`0( `p(`(`p^>@ +[<<Xb GETCTDADDRESS 92570-16113 REV.5000 870323 /SRC_92570/R6000/FSTP.FTN <BFSTP_TAPE )FSTP_CIOaGETCTDADDRESS   REPORT_TO_DAD $~ p a@3x==XYCOPY_TAPE_TO_BUF92570-16113 Rev.6000 910628 /SRC_92570/R6000/FSTP.FTN =00EQ;FSTP_TAPE )FSTP_CIOHFST_BUF_MISCFST_EMA  FSTP_COMMON 0eCOPY_TAPE_TO_BUFXX.DAD.DIN .DSB.DMP .CPMMIN0.JMN0 .IMAP .IRES .IDLP REPORT_TO_DAD PUSHEOF DECODE_STAT1VMAIO FMPREWIND VMAREAD X~~66p`(`0( @ pB`pKphBAK(pJ`(6DA-TA(1px3PF(:(ZADA~ul<66`@pCEACp`WP(J(Q N`Qp(:`(:` @p`(s`(e(j jR oPQM`Xp~~xr66( `UP(w(p`OpI`@LhHpAxB DBA((88I({`(( R PQM`Xp( `K@p8J( R~L??(/`(/p  pA`A(` @ @VhSp J h@AAAMxp`'p`A((D4C88ATA(1pxPF(:`@phSh@`pA 0A(`Xp(`(( RPPJ""`(/ 'PQM* ( px 8P(  ?PM( PQDd@ӫL  @|==X3 COPY_BUF_TO_TAPE92570-16113 REV.6000 910627 /SRC_92570/R6000/FSTP.FTN =66F TEMPFSTP_TAPE )FSTP_CIOHFST_BUF_MISCFST_EMA  FSTP_COMMON 6}COPY_BUF_TO_TAPE]].DAD.DDI.DCOXLUEX MIN0.IRES .IDLP REPORT_TO_DAD REPORT_BUF_FREE DECODE_STAT1VMAIO FMPREWIND FMPWRITE CLEARBUFFER VMAWRITE]~~77p`(`( ( `0(`(`p@ p`p ph(p`A(A8(~~~P933px>P((xA`@p Pʡp`(m X \  b  f`P(j(l`p~}}fl44(`@hA@J ݉ݠ`(}`p`@p8()`A((pxP((`( p` ((`'}~~T77p Ap(pxP(`@hh@`@p`@ p (((~JJ%(`p`p`(( px( ( Jd@3 @Vue==XCOPY_REC_TO_TAPE92570-16113 REV.5021 900213 /SRC_92570/R6000/FSTP.FTN =00EQ-FSTP_TAPE )FSTP_CIOHFST_BUF_MISC FST_EMA  FSTP_COMMON 0nCOPY_REC_TO_TAPE:: f.DAD.DDI .DCO.IRES REPORT_TO_DAD REPORT_BUF_FREE DECODE_STAT1VMAIO VMAWRITE:~~(99p`A(%` @pp`(`@hA@J ݉݊(q`(BA4 (~px :~~~966P(`(A`p(q`(qAS (~px YP(`@ hh@ (o(q(q~LL1o`p`(z y(| |px (} (}L6 d@ns==X<READ_1ST_RECORD 92570-16113 REV.5010 880505 /SRC_92570/R6000/FSTP.FTN =00EQ%FSTP_TAPE )FSTP_CIOHFST_BUF_MISCFST_EMA  FSTP_COMMON 0`READ_1ST_RECORD &.IRES REPORT_TO_DAD DECODE_STAT1VMAIO ii00p270;0:77( pxP4()977px'8(.87(i2 d @}===XLWRITE_1ST_RECORD92570-16113 REV.5010 880505 /SRC_92570/R6000/FSTP.FTN =00EQ'FSTP_TAPE )FSTP_CIOHFST_BUF_MISC FST_EMA  FSTP_COMMON 06WRITE_1ST_RECORD##XLUEX .IRES REPORT_TO_DAD DECODE_STAT1VMAIO #=88p@E>K>JEE(.pxPB(7`IpH(.px%PB(7,GEEpx5F(-.8<FE(-pJ@ d@沦<<X^zFORWARD_FILES 92570-16113 REV.6000 920916 /SRC_92570/R6000/FSTP.FTN <00EQ7HFST_BUF_MISCFST_EMA FSTP_TAPE )FSTP_CIO FSTP_COMMON 0FORWARD_FILES GG T .DAD .DIN.DDE.DCO.ENTR XLUEX MIN0REPORT_TO_DAD PUSHEOF DECODE_STAT1 VMAIO DECODE_STAT1_NOPGF;;`( `p((`(-`p(pxP(`('&(,,(`( 0(Bpɶ<99p p p`'p Mp`( Z(px `P(hh@ `(u @ ggeu11 J 0( (N@(px((g `dN@<<Xm*tBACKWARD_FILES92570-16113 REV.5021 900214 /S((RC_92570/R6000/FSTP.FTN <$$D7S TEMPFSTP_TAPE )FSTP_CIO FSTP_COMMON $BACKWARD_FILES33-.DDEXLUEX REPORT_TO_DAD DECODE_STAT1ACTUALEOF POPEOFDECODE_STAT1_NOP3 !55p`( `sp(a(Q`(`rpq(XpxPj(a(Q`(Q`(&% (Qp`pp,(Q0(;ss5339mkk @Ho n(Xpx NPj(a(*Vmkk(:px_l(:flk(:sEj @@K@99XPUSHEOF 92570-16113 REV.5000 870326 /SRC_92570/R6000/FSTP.FTN 9 AkFSTP_TAPE PUSHEOF  .ENTR 88L/A`( p`p`@@p`p8 v @m88XGPOPEOF92570-16113 REV.5000 870326 /SRC_92570/R6000/FSTP.FTN 8 AkFSTP_TAPE dPOPEOF .ENTR //`A @p`@@`(p/ q @n<.88XBGETEOF92570-16113 REV.5000 870326 /SRC_92570/R6000/FSTP.FTN 8 AkFSTP_TAPE ZGETEOF .ENTR 1A @@@ j @.L==XFORWARD_RECORDS 92570-16113 REV.6000 910906 /SRC_92570/R6000/FSTP.FTN =CFSTP_TAPE )FSTP_CIO FSTP_COMMON ; FORWARD_RECORDS ddV.DAD.DIN.DSBR .DMP.DDE.DDI.DNG .DCO.ENTR XLUEX .DIS REPORT_TO_DAD ACTUALEOF DECODE_STAT1_NOP FMPREWIND FMPSETPOSITIONFMPPOSITION d~~k >>  p p`(>AAA؉/`(= 6 ; (`(`(x`p~~~RYGCC (w(w (U(U`݈p(W`pA \(px bPۊ(f(o m(<h@(F(`pډD(A ~~~l<<(px Pۊ(( (=(1`(1J7((&;Jx!> 9(1+>=5J lQ 5 2d@v::X@WRITE_EOFS92570-16113 REV.5021 900510 /SRC_92570/R6000/FSTP.FTN :$$D7ZTEMPFSTP_TAPE )FSTP_CIO FSTP_COMMON $T8WRITE_EOFS]],.DIN.DCO.ENTR XLUEX REPORT_TO_DAD DECODE_STAT1PUSHEOF FMPOPEN FMPCLOSE FMPTRUNCATE FMPREWIND FMPWRITECLEARBUFFER FMPPOSITION ]~~|n88A`(S`(0(7Љ&,ʪ`(3`((R`(R ?~=55`( Fʪ MʡР`(p(`(p`ppA(op c(px iP(88(_(`/r55((z(|(|p(p`p (px P( @`p ը(px HHPP(88(pxӪ((H: rwox@ T *)D@@ )*<<Xjb~CHECK_OUT_TAPE92570-16113 REV.6000 901114 /SRC_92570/R6000/FSTP.FTN <CFSTP_TAPE )FSTP_CIO FSTP_COMMON CHECK_OUT_TAPE!REPORT_TO_DAD LU_TYPE UNLOCK_TAPE 88pppppp pP((`}pp(j(9`vP("('`}pp(9P(+(0`}p`v p(9p7|{r`~~.:--p`p`p`p`zp`p`yp`(X`wp`(R`xp(W` (W`wp(j`(j`up`up`(e`qp(j` ~--`Sg(j`tpos(8 @G@@D@L@@nH-@;;XE+SECURE_TAPE 92570-16113 Rev.5021 900329 /SRC_92570/R6000/FSTP.FTN ;00EQ-FSTP_TAPE )FSTP_CIO FSTP_COMMON HFST_BUF_MISC FST_EMA 00SECURE_TAPE CC XLUEX .IMAP .LBPR REPORT_TO_DAD DECODE_STAT1 SET_CTD_SIZETAPE_LU_IS_UP LOCK_TAPE FMPPACKSIZE C~~k99p`(`$p`%pp(%`((##'(0/(`(F`p9(p~;77x ((?P( CP((_`(_`pAO(px U`(_`P(_`P(_(`(p ` ` `SSVVr##(v`p(xp`(~`0p($px($($Sd`RQsqop@PoV::X́eLOCK_TAPE 92570-16113 REV.6000 910627 /SRC_92570/R6000/FSTP.FTN :C TEMPFSTP_TAPE  FSTP_COMMON xXpLOCK_TAPE  EE .EXIT .SST.MBTLURQFMPOPEN FMPREWIND FMPWRITE CLEARBUFFER FMPBUILDNAMEFMPPARSENAMEFMPCLOSEE~~cp::ppp` 0(4` (`p?`h 0?(4p`() phK`IA H`A(TV`dp(hU~~~AA`[P pHT\pk`cP(( HRPmNknlL`n Xk 0(ꀈ`n(`np`(:Pk(pk HRPmNklL~~~J66HX\pk`dp`( b  a ( hI`KH(``P((ʡHV\pk`dp` Xk 0~LLs!(:\`dp(4._^(:px`(:`p`dpo`opppo(8L>>ZA$$rox rwcox rwox@T@?@?3>@L ;;XLUNLOCK_TAPE 92570-16113 REV.5021 900213 /SRC_92570/R6000/FSTP.FTN ; AkFSTP_TAPE 8UNLOCK_TAPE **(:.EXIT .SSTFMPPURGEFMPCLOSEFMPTRUNCATE DCBOPEN LURQ*~~;;;p`(( KJ(=P((=(1`(! (% Iݡ) 0(11C p܈G ACE~<pp-B @T@;;X3:SET_CTD_SIZE92570-16113 REV.5000 870325 /SRC_92570/R6000/FSTP.FTN ;BPFFSTP_TAPE  FSTP_COMMON SET_CTD_SIZE YF.DDEXLUEX FFs!!p`(."8766(0@`9ppx(/F $6 @*vI6==XDECODE_STAT1_NOP92570-16113 REV.5010 880504 /SRC_92570/R6000/FSTP.FTN =CFSTP_TAPE )FSTP_CIO FSTP_COMMON < DECODE_STAT1_NOP DECODE_STAT1.ENTR AAA( `p ` p(` (`ېp`ڐp`ِp`؀p`אp`֐p`Րp`Ԁp ppI11ppppppppppp`(}`p`p`p`(q`p`p`p(|` (|`p`p`pz00`p(`(`p`p`p`p`p`p`p`p`p`(`p(`(`p(`(`p(`TTQ!!(`p(`(`p(`(`p(`(`p(`(`p( (T<xwutsrqv@ @Aq`1::X&ACTUALEOF 92570-16113 REV.5000 870326 /SRC_92570/R6000/FSTP.FTN :BPDFSTP_TAPE  FSTP_COMMON dACTUALEOF  77pp`( `p(`(`(`p`7@J==X|REWIND_TO_TAPE_M92570-16113 REV.5010 880505 /SRC_92570/R6000/FSTP.FTN =$$D7U TEMPFSTP_TAPE )FSTP_CIO FSTP_COMMON $REWIND_TO_TAPE_M77& .DIN.DDEXLUEX REPORT_TO_DAD DECODE_STAT1ACTUALEOF GETEOFDECODE_STAT1_NOP7V44p`('`{pA y(apxPs(j`(&A`zpy(apx$Ps(j(X`(X`(10(Sp~~4775(S 0(Z AJx w(apxPPs(j(3   p _vttpx hu(` ~/kout(`1s NK@<<Xm FLUSH_DADS_CIO92570-16113 REV.4010 860724 /SRC_92570/R6000/FSTP.FTN < A%)FSTP_CIO FLUSH_DADS_CIO  REPORT_TO_DAD # p >@Z;;X)5CLEAN_UP_SON92570-16113 REV.5021 900213 /SRC_92570/R6000/FSTP.FTN ;C)FSTP_CIOFSTP_TAPE  FSTP_COMMON hCLEAN_UP_SON&&Y.REPORT_TO_DAD FMPPURGEFMPCLOSEFMPTRUNCATE DCBOPEN &llz..p`(% (%`(݀(1ʠ0(%%/`4p ,311l/ @T<@С99XLU_TYPE 92570-16113 REV.6000 910906 /SRC_92570/R6000/FSTP.FTN 9CFSTP_TAPE )FSTP_CIO FSTP_COMMON  L9LU_TYPE  ;; X.CPM XLUEX .EXIT .SST TAPE_LU_IS_UP IS_DVS23 DECIMALTOINTFMPREADLINK MOVEWORDS ;  }}C9889p9`뀠p8ppP(F(rp((p(pA`@(pYp8a((e`89 ip'`(o`'p(r}Uq;;p8`p0(~(c`p &%(`&׈p#`%׈p$`(`P#((`p8(`P#((`p8`p`P$p(`P#((ZZ<((p8(` (`P#((`p8 p(`㈊P#(( ( "(Ӫpx`(p8(cZ''?H @@T? '@>]M99X 4IS_DVS2392570-16113 REV.4010 860813 /SRC_92570/R6000/FSTP.FTN 9 AkFSTP_TAPE 3IS_DVS23 (.CPMIXGET EQT_FROM_LU WWA))p 3p@/2@p`p..p`1@p.!.p`@@0p`Wi/@N"<<X"iTAPE_LU_IS_UP 92570-16113 REV.5021 900213 /SRC_92570/R6000/FSTP.FTN <BPEFSTP_TAPE  FSTP_COMMON T&TAPE_LU_IS_UP  ,,\.MBTTAPE_LU_IS_DOWN TRIMLEN MESSS EQT_FROM_LU INTTODECIMAL,44ܹ$$UP,123 4ww+#&88&p&`([p%0([`(?9bhe`cd(LBp^Gb^he`cdOfp^T^p$W([`%&`hp%(Yw{Hb  H@g҆;;X<EQT_FROM_LU 92570-16113 REV.4010 860724 /SRC_92570/R6000/FSTP.FTN ;JEQT_FROM_LU  O.ENTR IXGET LUTRU 44A p @@pp`p`4  @s~>==X TAPE_LU_IS_DOWN 92570-16113 REV.4010 860724 /SRC_92570/R6000/FSTP.FTN =BPEFSTP_TAPE  FSTP_COMMON TAPE_LU_IS_DOWN  XLUEX   228Xp`p`p`h0p`2  @6/FSTP.FTN %DL000::RTE_6:5:4:128 644 0 0 2000 5310707722 33123 %DL000::RTE_6:5:4:128 $ |%DL000 +#+#+#lFST ((IIX+Ơ:$DL_MESSAGE92570-16152 REV.6000 <901116.1550> /SRC_92570/R6000/CLOSE.FTN;sstQCLOSE .NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN s@@ EXEC.FION .SCO.SST.NFEX FMPREPORTERROR RMPAR CL000 NLREADREL DECIMALTOINTFPARM @^QDDJA[(a((pO`pơlON&p%`N(y`%Apy&Ā8O8(eA NpP`N(`ۈpO`pON&p%`NSSO//(`%p&@OpO8(A(  ` ( ш`p (S$$1 @DSRTR $ P$@Q00/&D*1 %CL000::RTE_6:5:2:114 644 0 0 1000 5310707726 33120 %CL000::RTE_6:5:2:114 $ r%CL000 +#+#+#lFST GGXZQƠ7:$CL000 92570-16155 REV.6000 901117 Invalid runstring~!r@%f%CR000::RTE_6:5:10:128 644 0 0 5000 5310707731 33404 %CR000::RTE_6:5:10:128 $  %CR000 +#+#+# lFST JJX%n):$CROUTMSG92570-16159 REV.6000 <920807.1013> CROUT.S000:92570J CROUTMSG !\==nl-/2ft6L*;N^xA\o晙 *IUsage: CR fileUsage:=`` CRDIR dir [lu]Unpurging !1 ... _Usage: UNPU fileSetting protection on !1 ... _Usage: PROT file [prot] or PROT luV [prot]Protection must have a /Usage: DC luUsage: IN lu [nblocks] [OK]Init``ialize requires OKValid header, Invalid directory block. Re-initialize [N]? _Re-initialize valid directory [N]? _Initializing diskdisk not initializedFile System disk LUs:FMGR disk LUs (CRN):A`` Usage: OWNER dir [owner] or OWNER luV [owner]Owner of !1 is !2Usage: PU file [OK]Purging !1 ... _Wildcard purge requires OKPurging !1 (Yes, No, Abort, Stop asking) [Y] ? _Aborting purgeNot v]``purgedPurging !1 ... _Copying !1 to !2 ... _Usage: CO source dest [opt]!1 not created.Can not copy directory into its own subdirectory.Creating directory !1 ... _Usage: RN file nameUsage: MO s ``ource destRenaming !1 to !2 ... _Can't rename across directoriesDid not rename !1 to !2Moving !1 to !2 ... _[failed][ok]No such timeUsage: TM _Volume !1 !2Invalid owner for !1Invalid associat9ed group for !1@ KKX;n):$DLCROUTMSG92570-16159 REV.2540 <920807.1013> CROUT.S000:92570K _DLCROUTMSG SVnl @ν}KKX:yn):$CICROUTMSG92570-16159 REV.2440 <920807.1013> CROUT.S000:92570K ^ CICROUTMSG XXnl8NZCIX (CI auxiliary program)Command not processed.Usage: MC luNo valid directory. OK to initialize [N]? _Usage: RP file [progname]Had to change RPL115X!! checksum.!1. File: !2; Program: !3RP'ed !1Working directory is !11@Hg[%CI000::RTE_6:5:8:128 644 0 0 4000 5310707733 32662 %CI000::RTE_6:5:8:128 $ %CI000 +#+#+# mFST IIXkM :$CIMSG 92570-16161 REV.6000 <920602.1313> CINC.S000:92570 I ACIMSG @@nl!> )13hxޙ2EZtᙙ)A^yO)UsMust be sized upCommand @``file not found.Help available on: (use ? for help on <command>)No such command file.Command not available in CM.Command not available in CI.FinishedWaiting for input...Going... `` Gone~! CI: LURQ request aborted~!!1: EXEC error~!Using stack file !1LOG value is OF or ON.RU_FIRST value is T or F.SAVE_STACK value is T or F.AUTO_LOGOFF value must be in ra}``nge 0 to 32767.No memory available for !1Illegal variable name !1Usage: SET [variable = value]Usage: UNSET variable_nameNo such variable !1Cannot unset !1IF must precede THEN~!THEN must prece```de ELSE~!THEN/ELSE must precede FI~!WHILE must precede DO~!DO must precede DONE~!CI: Command files nested too deeply. TR command not executed.CI: Control commands nested too deeply. Returnin_``g to caller.Commands: [!1]Internal string error~! Terminating.Bad command stack file specified in WD command.This special variable can only be altered internally by CI.FRAME_SIZE value must beec KKe a positive integer.CM: ATACH error (session !1)~!No match, try again.Usage: POLL interval/OFF command!1Usage: cd [directory_name]% cd old newe@=ysted too deeply. Returnin_``g to caller.Commands: [!1]Internal string %CIX::RTE_6:5:13:127 644 0 0 6400 5310707735 32635 %CIX::RTE_6:5:13:127 $  %CIX +#+#+# Fm FST ::Xj'3CIX 92570-16164 REV.6000 <901127.1531>/SRC_92570/R6000/CIXNC.FTN: A"nl$termchar rr9CIX .NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN rrrvEXEC.CPM.FION .SBST .SCO .SST.NFEX PRTNNLWRITERELFILECOMMDX CI_FMPREPORTERR ((TMCOMMAND ADDRESSOF LIMEM SPLITSTRING FMPOPEN CIX_STRING_ERRFTRAP CIXMSGr11b!!1~~QHH`pApx`(^u((ـ`plluluD lyJ uwu uwu `( (d uwuA w(~}}EzDD(( `(  (d( w}((^ uwu"@Ap(4(41p(dA w{(:(P(P@u}UU$@,,`(I Hy(O`(Op(]`@pl]lwu(dd`pilU<<[n## TMFI1 r INw B  <@2<::XFILECOMMDX92570-16164 REV.5000 860601 /SRC_92570/R6000/CIXNC.FTN:J#FILECOMMDX XX .ENTR .SCOCICOMAT CICOMCRDIR CICOMCL CICOMIN CICOMDC CICOMOWNERCICOMCR CICOMUNPU CICOMPU CICOMPROT CICOMCO CICOMMO X~~hKK@p߈A (("("!A( (((2(21A( (8(A(A@((G(P(PO~}}rKHH((V(`(`_((f(o(on(A(u(~(~}(((( A((((}II (((( (((( (A((( (((ي(؀( ;( RR+11ATCRDIR CLINDCOWNER CRUNPUPUPROTCORNMOR@N<<Xw:CIX_STRING_ERR92570-16164 REV.2440 840712 /SRC_92570/R6000/CIXNC.FTN<#CIX_STRING_ERREXECNLREADREL CIXMSG11p%98p`Ap4/764A251T52@FI1 r INw B  <@2<MPACK.REL::RTE_6:5:222:128 644 0 0 157000 5310707740 35777 MPACK.REL::RTE_6:5:222:128 $ MPACK REL +#+#+#nBmFST ;;XUMPACK 92570-16165 REV.6000 <920813.1038>/SRC_92570/R6000/MPACK.FTN;B? FMPACKMSGSMPACKER ssvMPACK .NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN sʑEXEC.FION FINISHED_OK LOADSEGMENT ==x`N0H(`N(A2 1 0 =@ퟫ;;XLOADSEGMENT 92570-16165 REV.5010 880513 /SRC_92570/R6000/MPACK.FTN;B? FMPACKMSGSMPACKER #LOADSEGMENT .ENTR ABORT DISPLAYMSGSEGLD 331MPAC??p !`!(3@`::Xo@/MPACKER/ 92570-16165 REV.5270 901116 /SRC_92570/R6000/MPACK.FTN: ASMPACKER Md; REV.6000 <920813.1038> G O N "Q L K J !P M F I #R "   $ # @ݧ88X'GETMSG92570-16165 REV.5010 880513 /SRC_92570/R6000/MPACK.FTN8 ASMPACKER hGETMSG  .ENTR NLREADRELSTRMPACKMSGS $$A!p`$@#B::X+DISPLAYMSG92570-16165 Rev.5020 890124 /SRC_92570/R6000/MPACK.FTN: AFMPACKMSG sDISPLAYMSG@@ g.ENTP .EXIT .SSTC DISPLAYMSGBUF QUEUEMSGBUF TRIMLEN INTTODECIMALNLREADRELSTRMPACKMSGS @RBB`pA`p`pP('(0.p(m`P(4(><p(m`P(B(MK~E@@p(m`P(Q(][p(m`P(a(mlp`(tJ}p (`E(4  ( (({NLS error @ &(@ղ==Xr-DISPLAYFMPERROR 92570-16165 Rev.5020 881102 /SRC_92570/R6000/MPACK.FTN=B? FMPACKMSGSMPACKER VDISPLAYFMPERROR xr.ENTR DISPLAYMSGFMPERROR--[7(!*&,*( (-@@3<<XpDISPLAYMSGBUF 92570-16165 Rev.5020 890123 /SRC_92570/R6000/MPACK.FTN<B? FMPACKMSGSMPACKER @DISPLAYMSGBUF @@ .ENTR .EXIT .SBST .SCO .SST ABORT FMPREPORTERRORFMPWRITEFINISHANDABORTFMPPAGEDWRITE @ < e?AAA?`<(OL=?((eV=?(e`=(a=?(e`J(`<(np>>DDŀ? H`>?ZZA//A@p>??A (p<`J(`<(&=>( = @ = (Z$$1 _ @xf hr$@#BW;;X-QUEUEMSGBUF 92570-16165 Rev.5020 890123 /SRC_92570/R6000/MPACK.FTN; AFMPACKMSG @QUEUEMSGBUF Υ.ENTR .CPMMOVEWORDS TTl''A`E(%@,((`@@*`+@@)    @p'x("'(`@p@( T6)@P@n.;;X INITQUEUING 92570-16165 Rev.5020 890124 /SRC_92570/R6000/MPACK.FTN; AFMPACKMSG EINITQUEUING  pp@` pE@R<<X{i5FLUSHQUEUEMSGS92570-16165 Rev.5020 890124 /SRC_92570/R6000/MPACK.FTN<B?FMPACKMSGSMPACKER FLUSHQUEUEMSGS?DISPLAYMSGBUF MOVEWORDS kkt//p`E (-pE @@p0p%`0(-p1`%@3 p`4%@2h    @p/x0&/0)8%81(k82@P@A`^<<X`KREAD_THE_DISC 92570-16165 REV.5010 880513 /SRC_92570/R6000/MPACK.FTN<B? FMPACKMSGSMPACKER 99[READ_THE_DISC 3WRITE_THE_DISC/READTRACKSECTOR "-WRITETRACKSECTOR9 h:EXEC.ENTR ABORT DISPLAYMSGBLOCKTODISC ~~ڹAAA(; `p` p` p`p(>`p`p`p(A)`-p`)p`*p`+p`,p(Hp(O`|p(Opp~iiF11p(U`|ppp(UU`~A0pw`w(mpx`(ki}kpxs{yu(li#y @8W<<XdicABORTWITHHELP 92570-16165 Rev.6000 920805 /SRC_92570/R6000/MPACK.FTN<B? FMPACKMSGSMPACKER 22³ABORTWITHHELP  ABORTWITHUSAGE%ABORT .FINISHED_OK +2!!.EXIT PRTNCLEARBUFFER FMPCLOSEDISPLAYMSG!M::p( p ` p(.p`p(=p`p(@((["`Y`bp%`]pX)%8%8X(&(71[4a7\:[p(Bp;;?(Bp`G(HH_`J(OO&!S^V@;hY  v#)#('@\88X*cMPAC0 92570-16165 Rev.6000 920303 /SRC_92570/R6000/MPACK.FTN8CMPACKTEMP FMPACKMSGSMPACKER  zBMPAC0 {d.EXIT .SBST .SCO.SST.LBTSEGRT ABORTWITHUSAGEDISPLAYFMPERROR DISPLAYMSGFMPENDMASKMASKISDSMASKOLDFILE FMPINITMASK INTERPRET_PAR SPLITSTRING ABORTWITHHELP ADDRESSOF GETMSGABORT FMPOPEN GETST   lB<< HA`ApDJ\!(`` epɊ `pp mp `ppA (x(z(z z`p@`@hH~::( hP((p@((|`L0K(`LN(`N0HR(@!(cc@--@(`R(@(`N0H(@(ڊ`pR(!@c889 w 1 @@p6<p@@@  on 8@YB<<XqINTERPRET_PAR 92570-16165 REV.5270 910205 /SRC_92570/R6000/MPACK.FTN<C MPACKTEMP FMPACKMSGSMPACKER  INTERPRET_PAR xx}.ENTR .CPM.EXIT .SBST .SCO.SST.LBT ABORTWITHUSAGE DISPLAYMSGFATTENMASKDECIMALTOINTFMPPARSEPATHDISPLAYFMPERROR FMPOPEN SPLITSTRING DECIMALTODINT TRIMLEN GETTRUNVALUEx}}L<<A`phP((bDՈ(#(+(+`O(`pO`pH(a`@phP(3(>`Q(`pQ`pH=(a`@HphP}D<<(F(S`H(`pO`䨪pQ`pHR(a`@phP([(zJe!p"`! h"0(yJ w y(a`@HphP~~;;(( Ap%%%A(((`P% ((p!(@%pA!p`!(`(p! (( p!(~HAA  !ܠ`!(` (p!`!(J  (aAA(((`F(`ApF(aA(((`N(+AA`pN(aD͈( ((`M(`pM(aD((7(7`J(%,&!(42! 4`pJ(a@}}]=@@A(C(I(I`P(`pP(aAA(U([([`I(`䨡pI(a _ a(`L0K(k iޡ kwA(~`}PP}%%pR!p`!(`pLH(A`pK   (PkkAAGL D Q cwL OKP A % R @`6<`@HJLNPRTVXZ\WECT+  ydxk@Vhu(;;X)MeGETTRUNVALUE92570-16165 Rev.5020 881014 /SRC_92570/R6000/MPACK.FTN;B? FMPACKMSGSMPACKER fGETTRUNVALUE44Yk.ENTR .EXIT .SBST .SCO ABORTWITHUSAGEDISPLAYMSGDECIMALTOINTTRIMLEN 4~~ZBBA]AY]cA]Y a(I]p%Y]%%DY_(#(5(5`c P%(K@%pYY]JcY3Y!p#(@Y]Jc%?Y!p$`!~11X0B(K`#(K`$(KY]Jc]UdY W(J1:[ %  @#88XB=cMPAC1 92570-16165 REV.5020 891020 /SRC_92570/R6000/MPACK.FTN8##D FMPACKMSGwMPACKCOMPACTSMPACKER DCB # =MPAC1 BB _.CPM .EXIT SEGRT FINISHEDCOMPACT DOCOMPACT INITCOMPACT ABORT DISPLAYMSGADDRESSOF LIMEM B  ii11  8@p`9@h<p`'@:p;((((&:(*`@7p6 06 2 4@ i7t@۞;;X_INITCOMPACT 92570-16165 Rev.5020 881017 /SRC_92570/R6000/MPACK.FTN;CFwMPACKCOMPACT FMPACKMSGSMPACKER /INITCOMPACT 33۴.EXIT .SST .IDLP DISPLAYMSGABORTWITHUSAGEDISPLAYFMPERROR FMPINITMASK 3~~99ppX,X*X(p p !RT^($"!R$`H0J(+`pJPV2X`]p%`H(9`\p%~3329`[@%pM`%Ap%hM Z(JpNF%8%8N(C3HO @ @06>0gdt@::XRDOCOMPACT 92570-16165 REV.6000 920806 /SRC_92570/R6000/MPACK.FTN:C`wMPACKCOMPACT"FMPACKMSGSMPACKER LDOCOMPACT ||{3 .DAD.DSB.DMP.ENTR .CPM .SCO.MBTFINISHANDABORT!IFBRK DISPLAYFILESTATUFLUSHQUEUEMSGSDISPLAYMSGBUF INTTODECIMALR DINTTODECIMALRCOUNT_EXTENTS COUNTDIRSTUFF SHORTYCOMPACTEXTENTS|mm DISPLAYMSGTRIMLEN COMPACTDIRECTORYINITQUEUING COMPACTTHISFILE FILEQUALIFIES GET_SIZES FMPMASKNAME MASKDISCBPT MASKOLDFILE MASKDISCLUDISPLAYFMPERROR FMPNEXTMASK m66A@p4p!E(+`!((`PP!((#`QpG#'!E(*+`p`p4(; 9O;`P~~1{=::(E`p  C@pʡ KAAE CG(QhMX (``Qps`I(*(bps N(ghLX ptqt ~w==&(*`H( (*`s( P!((  (A@ K(( JA(`u(@D;;(`v(`s(Ā `s(`h@  `P(; h@`<; J& -;-h>~~e=55`<;7Ah:`87 I (J   (` @p (  *J  &* J, . ,` @ p `p!!(%`Q~$ pG`G(**(55U5 DIR `  `   @@ d " > j?n5@;V==XDISPLAYFILESTATU92570-16165 Rev.5020 890120 /SRC_92570/R6000/MPACK.FTN=CNwMPACKCOMPACT FMPACKMSGSMPACKER VDISPLAYFILESTATUDD L.EXIT .SCO.SST .SBT .MBT DISPLAYMSGBUF INTTODECIMALR DINTTODECIMALRFMPBUILDHIERARCHDISPLAYMSGD~~CCp`P(A( `R((AA.2z&h`{A  z;z.h`{ zDz~PPC''0h}`{ z Mr hy`sA r`hw  Yrhu`sA  r`HA(ep h(PNNn** _ = 9 84 - &  " >@ < %lkN@ {*;==XCOMPACTTHISFILE 92570-16165 Rev.5020 890310 /SRC_92570/R6000/MPACK.FTN=BwMPACKCOMPACTSMPACKER RCOMPACTTHISFILE  S.DAD.DDE.DDI.DCO.JMN0 }}Y88ppupvp`t(,`O(`((`pu`Q(+h$@0(+(!(+ J.&A(+(+`pv(`s(`O(B.A}9::h@(B(B`pu`Q(h$@.x`(Yh˂@J (X(V(X`pv(`u(m` h˂@A(l(j(l`pv(h˂@55sJ@h@A((`pv`u0v(`p((`5f@@[<<XDQFILEQUALIFIES 92570-16165 REV.5010 880513 /SRC_92570/R6000/MPACK.FTN<BwMPACKCOMPACTSMPACKER  gFILEQUALIFIES   /.DCO.CPM ~~S99p`Pp`F(&J"pO00OpOJ 0O($p``"(2J"(.(0(L(2p`(? J0܀(;~66:(=(L(?p`(KJ (G(I(L(Kp($`Pp($6 bP @j㉣::XGET_SIZES 92570-16165 Rev.5020 891020 /SRC_92570/R6000/MPACK.FTN:BwMPACKCOMPACTSMPACKER ~GET_SIZES DDy.DAD.FAD .DSB.DMP .FMP.DDI .FDV.ENTR MAX0IFIXFLOAT .FLTD .NINT COUNTDIRSTUFF D~~==A@p 0( .(u`t(!JA .(u`s(q'`h@J  `O(M`@h@@pˀ`~o=??@hApGh@.(pJAx`@@h p`pˠ`@@pˊ`@hh@.(u  . J  . 0HH|&&0 @     p `#(D(`# A.  AJp$H(~Rd@r<<XCOUNT_EXTENTS 92570-16165 Rev.5020 890308 /SRC_92570/R6000/MPACK.FTN<BwMPACKCOMPACTSMPACKER  COUNT_EXTENTS EE h .DIN .DMP.DDI.DCO.ENTR .CPM .DMOD .DLD MOVEWORDS READTRACKSECTOR DSDISCREADBLOCKTODISC E}}h<<A`s(`((( ( $pr`r(~ A$.`R(98 (?? }>99$   x`@@P(N(r`@p V`p%`%@Pp %(o`@%p%(X`pr(}``@*Hw @p $((!k   @e<<XxCOUNTDIRSTUFF 92570-16165 Rev.5020 891020 /SRC_92570/R6000/MPACK.FTN<&&DpMPACKTEMP wMPACKCOMPACT FMPACKMSGSMPACKER &~COUNTDIRSTUFF 55  .DIN .DCO.ENTR .CPMMIN0 .DLDREADTRACKSECTOR DSDISCREADBLOCKTODISC 5Ƣ44A@p`pppp`((p"ʪ`R(0`'p/(9`'p4779@p p%` (pp`p`%'@@p`p 0(Y(`(]( ˈ(}(}`Pˈ(f(|`%'@@@rr:k//p  (|` p`pA(( ((` p(`@p8(F @ @p8%8(B(r  @j_88XJlhSHORTY92570-16165 Rev.5020 891020 /SRC_92570/R6000/MPACK.FTN8CR wMPACKCOMPACTFMPACKMSGSMPACKER  ـSHORTY NN ^.DAD.DIN.ENTR DISPLAYMSG FMPCLOSE READDCBDIRENTRY DISPLAYFMPERROR FMPTRUNCATE FMPREAD FMPSETPOSITIONFMPOPEN N<<A@p^!acf(!a(X\ !\`!(P)!fPe(,(P`!(Ph$J@ .\ ;!\`!IIw< (GB!a F!(X J N! T! Xga p!(OI]_ RWOQ@ d @q1<<XnnCOMPACTEXTENTS92570-16165 Rev.6000 920813 /SRC_92570/R6000/MPACK.FTN<&&Dq0MPACKTEMP FMPACKMSGwMPACKCOMPACTSMPACKER &COMPACTEXTENTS::.ENTR READDCBDIRENTRY DISPLAYFMPERROR COPYFILEFMPPACKSIZE FMPBUILDPATHFMPPARSEPATH:88A@p[\hfdb` pZ#^hfdbZ`+\^p!`!(R`lP!(3(6`mpG(Q`kP!RR78"" (:(=p!(Q`(E D\(Q`(M L^(Q Q!\(X`j@[pZ XZR%%1h\ @P d@0 @0J(0 00 >0 %@U99X~COPYFILE92570-16165 Rev.6000 920813 /SRC_92570/R6000/MPACK.FTN9CewMPACKCOMPACT!FMPACKMSGSMPACKER  )fCOPYFILE  6 .DAD.DIN.DSB.DMP.DCO.ENTR .CPMMIN0.EXIT .SBST .LBTFMPRENAME FMPCLOSE FMPDCBPURGE FMPSETDIRINFO FMPSETDCBINFO .DLDCOUNTRECORDSFMPWRITE FMPREAD FMPOPEN CLEARBUFFER @@a=FMPINFO DISPLAYMSGFMPBUILDPATHFMPUNIQUENAME TRIMLEN FMPPARSEPATH FMPPACKSIZE FMPSETPOSITION@xIIpz@pyA(hX  py z`v(`y(р!pS`!(~~??@u !u`!( 递!P(( !h$@J .z zp(  !~1DDpu#@up(,(,`p0`pAuDuhP(QL``p!(qWp!`P!~~ZCCpuu(j`p(2`!(qtp(W~T(W((AlunAu((`(^`@ypuu`~~~w(FF@ypuup(W`hA'xuup`(p|ppwptu`yph@ |z((܈z|Hx(`p`@ypu ~"EEup(W`@yhHypuxvuvp~(W`( `@ypu uwtuph~(@A ||A|z((`y((p@wnu`Ypt,(CC`@ypu2uwut(W`@ypu`Th(xvhT$xwIufhjvw(W`@ypu Ru V(q`@ypu ^uS bShSSpS!!Xk (op!(qp!`!p`!^^{;;G rwcqfxroqfx M OQR ?@@@P! ^@آ==XCOMPACTDIRECTORY92570-16165 Rev.5020 891020 /SRC_92570/R6000/MPACK.FTN=&&Dq MPACKTEMP wMPACKCOMPACT!FMPACKMSGSMPACKER &>}COMPACTDIRECTORY||.DAD.DCO.ENTR .CPMMIN0.JMN0 .EXIT .SBST .SST.SSTC .MBT DISPLAYMSG DISPLAYFMPERROR FMPRENAME FMPPURGEMOVEDIRECTORY FMPREWINDMASK FMPNEXTMASK FMPCLOSEREADDCBDIRENTRY |II J2FMPSETDIRINFO FMPOPEN FMPSETOWNERID READ_THE_DISC FMPCREATEDIRTRIMLEN INTTODECIMAL GETUNIQUENAME DIRINUSEI~~xzFFA@pSJiqipOAOiOAiOsipOiiDO}Hhp`jiip!`!( i`!( !i( Ρ!i~~~ZBB(Kpsp kqhn`lik (( i i(K ik(`P((`p(  i`( i~@@`( k(K`u(  x`v(9`(-h$@.x(9`u(7h$@.x(9`pOoJoCgO{gJLo@ (W}}P88(W Uo(,(d[op!`!(d c!i(,i pip!`!(zAxp!(!iy((`h(}}}p@@xOh$xP!OPw`!((!OoDoDOuOmmDOuJmo(!((( }}}44!q(!q(`!( ڡ!q(爀((檪!p! kp!`!( k`P!(( !i( }ӽ??!k(( i om((( ki(K !i ip!`!(,`P!(, (i ,!i 2ki(G 9ki`,,H;(@ @k`(G Gi Ki p!(,SSWV\33/ G ROFQDS.DIR::::.DIR@@@@@>@?S@<<<XyMOVEDIRECTORY 92570-16165 Rev.5020 891020 /SRC_92570/R6000/MPACK.FTN<&&Dq5MPACKTEMP wMPACKCOMPACTFMPACKMSGSMPACKER &(MOVEDIRECTORY  \\.ENTR .CPMMIN0 .EXIT .SBST .SCO .SST.SSTC DISPLAYFMPERROR FMPENDMASKFMPRENAME DISPLAYMSG TRIMLEN FMPNEXTMASK FMPINITMASK \~~">>A@pֈۈp!`!(#"!()!(`!(9`P!(2(8`pG7((A   @~~~?QQp D  D  J  SAp  A  A (  gAp  A  xp D J  @((~96;;( @((((`(`(Ap!`(#Ā`!hX! rO (!(`p(//. @p @p@pD p$p ?/@-Lh==XD.READDCBDIRENTRY 92570-16165 REV.5010 880513 /SRC_92570/R6000/MPACK.FTN=BwMPACKCOMPACTSMPACKER 8READDCBDIRENTRY =.ENTR MOVEWORDS READTRACKSECTOR II($$A@p'`+@'p*p -Ӏ)$@(p&$&,I%(  @K ==XFINISHEDCOMPACT 92570-16165 REV.5010 880513 /SRC_92570/R6000/MPACK.FTN=CGwMPACKCOMPACT FMPACKMSGSMPACKER 5FINISHEDCOMPACT TTl.DSB.FMP.FDV.FLTD .EXIT .NINT .SST.MBTFMPENDMASKDISPLAYMSGDISPLAYMSGBUF INTTODECIMALR DINTTODECIMALR GETMSGT~~@@ppp`( ( *, *@p`P(.`H(+*(.. J  7ϡ  ;h`A ~ʓAAAD*h„`M,Ah`*,\h` eAh`  n h``H(z(h` *@LLt$$(h`  Ah` ͊(̡LAA@$$ TKTD=94-& \d=OPjfiA@ <<XU* FINISHANDABORT92570-16165 Rev.5020 891020 /SRC_92570/R6000/MPACK.FTN<FINISHANDABORTABORT FINISHEDCOMPACT v p@\ 99XiDIRINUSE92570-16165 Rev.5020 891020 /SRC_92570/R6000/MPACK.FTN9 A FMPACKMSG : DIRINUSE  55.ENTR .CPMFMPCLOSEFMPOPENFILESFMPOPEN WDFILEFMPNAMETODIRADD TRIMLEN 5}}a DD @ p\ ``h(!(!`gp (Xp (``(X.`(7`fp `  > `bdp`(XpJ pO }""N `(XP(W`ep (5`p (5"] ROQDS ?@L <<X`GETUNIQUENAME 92570-16165 Rev.5020 891016 /SRC_92570/R6000/MPACK.FTN< AQ!MPACKTEMP GETUNIQUENAME ..Nw.ENTR .CPM.EXIT .SBST .SST.SSTC TRIMLEN FMPUNIQUENAME . qVMPAC 4HH((A`( ( ``p A (*(*p .y J7p{{H{`A@py{HpyHHK..AyyA yA \pyyyD yJkAyA yH ,K **}.DIR M  @0  *@'88XH%cMPAC2 92570-16165 Rev.6000 920805 /SRC_92570/R6000/MPACK.FTN8CL FMPACKMSG 1DMPACK_PACK TABLE  9MPAC2 AA  .EXIT ABORT SEGRT UNLOCK_AND_MOUNTPACKTHEDISC VERIFYBITMAPBUILD_TABLE DISPLAYMSGINITPACKAQQ%%pP"( # P"(P"(`$p`(  Q@j'99X`T4INITPACK92570-16165 REV.5270 910603 /SRC_92570/R6000/MPACK.FTN9,,E,MPACKTEMP 1DMPACK_PACKTABLE FMPACKMSGSMPACKER , INITPACK ].DAD.DSB.DSBR .DMP.DDE .DDI .DDIR .DCO.DMOD .CBTDISPLAYMSGVMAST DISMOUNT_AND_LOCGROUPTOID GPNAM GETOWNERNUM READ_THE_DISC USERISSUPER BITON CLEARBUFFER FMPEXPANDSIZE ?DISCTOBLOCK READTRACKSECTOR .ASKD LDTYP }}r88p P3( (  @ p0)0`h("((@ p+19h @hʂ@AA  ( 17`03p };CC >04h @A  1/ K2 010h @17h @ & $x A  1 A1"(( J1h @ x~;;17"04`1@ h0'p 0K1`0Mp0'`@h@J17h @ 1)171(10)/p`09T44P((`0)p(ԡp`0:P((`0) p(`0)p`(P(p p0#p1?p1;13 h 77A@ * 15 1.(-(,(7<< ((VOLUME HEADER @``R   DI<@6*T;;XBUILD_TABLE 92570-16165 REV.5270 901106 /SRC_92570/R6000/MPACK.FTN;##DI1DMPACK_PACKTABLE FMPACKMSGSMPACKER #:BUILD_TABLE __A.DAD.DCO .CPM .DAND DINTTODECIMAL DISPLAYMSGIFBRK .DLDFILL_TABLEBITON TYPE1_OR_TYPE2 POP_DIR VERIFYHEADERPUSH_DIRGET_NEXT_ENTRY_~~77p 19 P (1910' P (P (ᡪ10' P (1h p,190 P (݈P (h p90~~~ +944P (=(`1=(t`@0$pL100P (P (T00P (0 (s`@0$p0 B `0 po1~~~ m55P (݈P ((`1<(`@0$p100 P (P (ᡪ00 P (1 Bh0#@000 1p0#(~}}88`1>( P (0(`@0$p10P (P ((A0 (p1((`@0$p10 }}}K44P (݈P ((`1?(0A((( 0 0B 10A x0#(`@0$p100 P (݈P ( 00P (}]377 01 p0#(`1@(` p0% (R`0%@p((pA 0%(/(Q`0$@0%h0%Hpx@10(P (݈P (`0%~~IE77@pK0(P (`@0%p0%((`0%@pA(\p 0%(c(`0$@0%h0%Hp` @0%@pxx1P (P (((~}}|44`0%@h H0%HpxP (`@0%p0%(R`@0$p0B `0 p1P (P (A0!(`@0$p0!B}o99 `0"p1P (P ((`1;(1(`pG((;1311( (11  (++$  0? #+@2<<X{GET_NEXT_ENTRY92570-16165 REV.5270 900723 /SRC_92570/R6000/MPACK.FTN<C\#MPACKTEMP 1DMPACK_PACK TABLE DGET_NEXT_ENTRY  g.DIN.DCO.CPM.CBT.DLDREAD_IN_ENTRY m88ppp1>p1?p1=p1<p1@`(0#((! p0#1@1($`0#p0#`0# %p0$)`0p`(0(`p~~`9::( P(A(C`p1>`P(G(I`p1?`Pp`h(V(\`p1=`PpA`h(i(v`P0(q(t`p1<~xxws77(v`p1=`P(z(|`p1@`p(Jp((`p1;`p(` 1?pA0((p`xp DIR `& Z@5:<<Xm0LREAD_IN_ENTRY 92570-16165 REV.5010 880513 /SRC_92570/R6000/MPACK.FTN<B1DMPACK_PACKTABLE }READ_IN_ENTRY ##.DAD.DSB.DMP.DCOMOVEWORDS READ_THE_DISC #~~>;;p11pAH11(0A(+11("("1 1(&1 1+1 K11FAh0$A@AHExA~^r;?A0JE  @.@M::XuFILL_TABLE92570-16165 Rev.5020 890301 /SRC_92570/R6000/MPACK.FTN:B1DMPACK_PACKTABLE dFILL_TABLE"".DAD.DCO.ENTR .JMAP .JRES DOUBLESTORE "}}( HHAJm13J15((peJ170e($ 1`t(Ag13e-es13egeJq13AegeeGe}77 WHo13egemJ13eAgek1313(7,g `@+JG99X6PUSH_DIR92570-16165 REV.5010 880513 /SRC_92570/R6000/MPACK.FTN9B1DMPACK_PACKTABLE  .PUSH_DIR .ENTR &&A` @@p` p & 0 @@99XpPOP_DIR 92570-16165 REV.5010 880513 /SRC_92570/R6000/MPACK.FTN9B1DMPACK_PACKTABLE  POP_DIR  .ENTR ##eA @ p ` @@# 0 @f&<<X\w_TYPE1_OR_TYPE292570-16165 REV.5010 880513 /SRC_92570/R6000/MPACK.FTN<$$DMPACKTEMP 1DMPACK_PACK TABLE SMPACKER $%TYPE1_OR_TYPE2  R!.DMP.DAND .DLDREAD_THE_DISC MOVEWORDS ~~77p`0# %p0 1`@SpQ0QU`@SPZ((4 1BYQ$Q]1VTx`\@ˈ@SpQQ 1(`@S~99\8 PXh HSX[ 0(M`^p`Z @@Sp0((Op`9MS  ?@@::XJW VERIFYHEADER9207-15001 Rev.5020 890228/SRC_92570/R6000/MPACK.FTN:$$D% MPACKTEMP 1DMPACK_PACK TABLE FMPACKMSG$MVERIFYHEADER00.DAD.DDE.CPMDINTTODECIMAL DISPLAYMSGREAD_THE_DISC INTTODECIMAL0??pP0Jp?0V0?("N0L1 UNLh0@1?/? T`S `PR(=7J1;QJ(!(!J   @@VBu88X=BITON 92570-16165 Rev.5020 890411 /SRC_92570/R6000/MPACK.FTN8##DI1DMPACK_PACKTABLE FMPACKMSG SMPACKER # PBITON  ?? &.DAD.DSB .DMP.DDE.DDIR .ENTR .ISH .IBTE DINTTODECIMAL DISPLAYMSGFMPEXPANDSIZE ?R PP  A h @ נh @׉h A@ @h A@ADx@@x`@pAh@(`p1Z\DDp`@p `@0p` (`@hhA@p`p(L0(`pA@hHHp`@p `@ll770p` (`@h (`p` 6p (h@ hA@h @ ׉1 1 (l,  @;;XjVERIFYBITMAP92570-16165 Rev.6000 920130 /SRC_92570/R6000/MPACK.FTN;##DI1DMPACK_PACK TABLE FMPACKMSGSMPACKER #\VERIFYBITMAP44^:.DAD.DIN.DMPMIN0 DISPLAYMSG DINTTODECIMAL COMPAREBUFS READ_THE_DISC 4~~@@pp  p0&`0&((ohh@0t"t 0&`@pt+t 0&(b`@@h@`@HH pˈA~``|D00`(Q@ `6pˊ(Dh @A \} `}`@0& p`@ ptmtp0&( r(a`+}    @H;;X$PACKTHEDISC 92570-16165 Rev.5020 890404 /SRC_92570/R6000/MPACK.FTN;##DI1DMPACK_PACKTABLE FMPACKMSGSMPACKER #PACKTHEDISC RR .DAD.DDE .DDIR .DCODISPLAYMSG IFBRK MOVE_DATA FINDBIGENOUGHHOLFIND_DATA GET_NEXT_HOLE INTTODECIMAL DINTTODECIMAL R 99p ~`M (1/ 00(P(Z`1C(3!1-h @0`h @ `00( J1' 0(9(N<1+~~G<<@@h @0`h @ `0 0(0J0`h @``h @ `` f`(lk1+( p|0 J00@` {z` ~~~i|??x1%1%0` v`|zxv1+h J@0@`h A@ `J 00 (\((N`p`pp`(Np~~~::p1/0`ptt0(MӈP(Z`1C(1-h @0`h @ `00`p(H J1' 0(( ~::1+h J@0@`h A@ `J 00`p(H 1/(1+`p(H`1A(10h @0`h @ `00`ff/11p(H`p J00`h @``h @ `0 J(\((`M(WV(ZZ`pG([f&&}t   @ 6  &@<<Xq GET_NEXT_HOLE 92570-16165 REV.5010 880822 /SRC_92570/R6000/MPACK.FTN<$$DMPACKTEMP 1DMPACK_PACKTABLE SMPACKER $8GET_NEXT_HOLE  44 S .DAD .DIN.DSB.DSBR .DMP.DDI .DCO.ENTR .DMOD .IDLP .IBTE 4~~??pxAAx`Ap%h (-p`@@%(o@ @%p%8(J 1)(3(5``p`@P (>(O`~_@BBp  1)(M(N(3(8x`p%h (op`@ %(o  @%p%8(] 1)(u(v(3h @  1%e99x AAx`Ap%h (p`@@%(∀ @%p%8( 1) ( (`((p`@ (`pJ ;; 1) ((( AAx`Ap%h (p`@@%(∀ @%p%8(ш 1)(((쀤(3h @@ 4 1'` p(3 @1::XFIND_DATA 92570-16165 REV.5010 880513 /SRC_92570/R6000/MPACK.FTN:##DI1DMPACK_PACK TABLE FMPACKMSG SMPACKER #Y FIND_DATA 00%.DAD.DMP.DCO.JMAP .JRES DINTTODECIMAL DISPLAYMSGEMA_DOUBLE0 HH p ЉЉpp1Cp1A1%1'0؉131113((13(13D13QAA@`(]A A0(d(o(o`ۀp0131+(J0(( A1'(|((((`p1C131-(`1C(ZZD,,1'((((`۠p1A1301313($`(0  (Z%% ` %@==XFFINDBIGENOUGHHOL92570-16165 REV.5010 880513 /SRC_92570/R6000/MPACK.FTN=C1DMPACK_PACKTABLE SMPACKER [FINDBIGENOUGHHOL .DAD.DDIR .DCO.ENTR GET_NEXT_HOLE mm99A `Ep1% 1'D(5 J1'0(%('` J1%1'@h @@( 1% 1'p(%m cD @::XMOVE_DATA 92570-16165 REV.5010 880513 /SRC_92570/R6000/MPACK.FTN:C.1DMPACK_PACKTABLE SMPACKER g MOVE_DATA aaE.DAD .DSB.DSBR .DMP.DDE .DCO.ENTR .JMAP .JRES UPDATE_BITMAP FIXEXTERNALPTRS WRITE_THE_DISC FIXINTERNALPTRS READ_THE_DISC EMA_DOUBLEa EEA  13J13Aĉ !ĉ0J13A@ 0`0(:000 01%00 1#0@ ~~;DP??1%1!  ((  (_(b`̈p(d` p`'p0& l 0& q  v 0&h@  h@Ah@(S1%~gg'550 0 0J 1%(p J1%0A ( J1%0JJ 00 g ` @$<<XmUPDATE_BITMAP 92570-16165 REV.5010 880513 /SRC_92570/R6000/MPACK.FTN<$$DMPACKTEMP 1DMPACK_PACK TABLE SMPACKER $oUPDATE_BITMAP ""w.DAD.DDE.DDIR .DCO.ENTR WRITE_THE_DISC"~~9II??Ah @h @h @A@h @A  Dx@ Ā@xh@(I(~gI88(Z`@hHphH p(g`@hHp`@p pJh@ p`p Aˆ((`@/r55h`p(y 0(`@hp@Hp(`@hHp`(`@hHp00\ @8==X'FIXINTERNALPTRS 92570-16165 REV.5010 880513 /SRC_92570/R6000/MPACK.FTN=C'1DMPACK_PACK TABLE SMPACKER V FIXINTERNALPTRS << z.DAD .DSB .DMP.DDE.DCO.ENTR .JMAP .JRES MOVEWORDS DOUBLESTORE EMA_DOUBLE<g OOA @ p爀13P〈(!  A@ @11(܄(;މ (Cpވ(K(ވJ 1!~~[YNN ^މޡlމ0(tpވ1#(|(Ո 1!މޡ AAP((B~RR77ވ@މ   ވ@Hx 눀A(-( R ` 2N?@7==XzNFIXEXTERNALPTRS 92570-16165 REV.5010 880823 /SRC_92570/R6000/MPACK.FTN=C"1DMPACK_PACK TABLE SMPACKER `FIXEXTERNALPTRS 44 N.DAD .DSB.DDE .DCO.JMAP .JRES EMA_DOUBLECHANGE_WORD DOUBLESTORE 4~~GGpD134<44A41%<134 44JF13A6<6p62461%JH13A4<4PG(?(C1%0H134<4~ZMHHP<(Q J13 J1%1'@11 13(2(2<134j41% p4 04(+D134<444 0(:JJp41# (4(+D134<44J 1!646JH13A4<4PM(„(<13444F136<6x6D1376x6HMM<7777467(+<13444F136<6x6D1376x6<777LB7B139<9@77+467,@1313(\(P54<`?@'F;;X%CHANGE_WORD 92570-16165 REV.5010 880513 /SRC_92570/R6000/MPACK.FTN;$$DMPACKTEMP 1DMPACK_PACKTABLE SMPACKER $8CHANGE_WORD .ENTR WRITE_THE_DISCREAD_THE_DISC AA A@p!$@"@"h#H! $A j" @W==X{4DISMOUNT_AND_LOC92570-16165 REV.5010 880513 /SRC_92570/R6000/MPACK.FTN=##DI1DMPACK_PACKTABLE FMPACKMSGSMPACKER #tDISMOUNT_AND_LOCDISPLAYMSGLURQFMPDISMOUNT oo344pp!`2P!( (`3p1B(`!(("(p1B1-(!0+(&&/+).(@ 6*o@d*==Xń+UNLOCK_AND_MOUNT92570-16165 REV.5020 891221 /SRC_92570/R6000/MPACK.FTN=##DI1DMPACK_PACKTABLE FMPACKMSGSMPACKER #qUNLOCK_AND_MOUNTDoDISPLAYMSGFMPMOUNTLURQXX ++p*)(`1B(&&p!`!(($("'$( @ 6X@%Dz::XEMA_DOUBLE92570-16165 REV.5010 880513 /SRC_92570/R6000/MPACK.FTN:oEMA_DOUBLE  r.ENTR .LBPR " AA@p0;;XDOUBLESTORE 92570-16165 REV.5010 880513 /SRC_92570/R6000/MPACK.FTN;+DOUBLESTORE  r.ENTR .LBPR x@$8CHANGE_WORD .ENTR WRITE_THE_DISCREAD_THE_DISC AA A@MPACK.R000::RTE_6:5:22:128 644 0 0 13000 5310707742 34524 MPACK.R000::RTE_6:5:22:128 $ MPACK R000+#+#+# mFST JJX}p::#MPACKMSGS 92570-16166 REV.6000 920811 MPACK.S000:92570J `MPACKMSGS GGnl dnx #(''*1:<>GHJRTZ[_bdeg|2ez2pL;^+YG55 9KRez((CO / d     * ` t    J K v    + g    H   AR|``!1 More...Illegal option '!1'Illegal truncate value '!1'Only disk LUs can be packed; file masks not allowedDuplicate option '!1'No file mask nor disk lu has been suppliedMultiple masks suppl y``ied; only 1 allowedInternal buffer too small, size up program. blocks wasted # Filenames alloc used blocks / ~% ext =======n<``====================================================== blocks wasted # new blocks # Filenames alloc used blocks / ~% e ``xt size gained ext ============================================================================== Totals: files ~%directory !1directory !1 on !2CannoI``t access FMGR cartridgesCompacting or Packing not allowed across DSIllegal extent count qualifier '!1'Illegal wasted space qualifier '!1'Cannot compact directory: !1.Cannot move the files back\`` from the new !2%to the original (now called !1).Cannot move all the files into the new !1.Cannot purge the new !1.Cannot purge the old directory, now called !1.Cannot rename the original direP``ctory !1%back to !2.Directory may not be an active working directory or UDSP.Directory contains open files.File name exceeds 63 characters :% - !1.Cannot verify EOF position, not truncating: !``1Illegal disk LU !1The disk LU must be a hierarchical file system volumePacking LU !1...You do not have write access to that LU; pack not allowedCannot lock LU !1Cannot dismount LU !1That disk|`` must have no open files, RP'ed programs, working%directories, nor UDSP directories on it.Cannot unlock LU !1Cannot re-mount LU !1You must increase the EMA size for MPACK to pack this LU.Verif``ying bitmap ... _[ok][failed] - for block address !1Bitmap error - duplicate use of disk block !1Overlaying blocks !1 - !2 to !3 - !4 ... _Pack pass !1Only a partial pack was completed. The OR<``K option must be used for %a full pack.Full pack completeCorrupt bitmap: free space marked as used, starting at block - !1.Corrupt directory: illegal size of !1 in header at block !2.Corrupt d=``irectory: no trailer for header at block !1.Corrupt directory: illegal entry type at block !1.Corrupt directory: entry at block !1 has illegal data address !2.Fmp error: !1 - !2Aborting procesY``s.!1 violation encountered when accessing the diskError accessing the disk - transfer lengths mismatchedCannot load segmentsBreak detected. Process aborted.Usage: MPACK [] [] = +A, +C, +D, +E, +L, +OK, +P, +Q, +R, +T, +W, +W~%MPACK removes newfile extents and unused blocks, and packs newfile volumes. Usage: MPACK [] [] < /``mask> is a disk lu, file mask, or file name Compacting Options: +R remove extents from files +T[n[~%]] truncate unused blocks from files, optionally leaving a number oZ``f, or percent of, unused blocks still remaining +C[n[~%]] compact files - the R and T options combined +En select files with or more extents +Wn select files with <n> or mo|``re wasted blocks +Wn~% select files with <n> percent or more wasted blocks +A for files to be selected they must match ALL the qualifiers (+En, +Wn, +Wn~%) rather than`` just one of them +D include directories in the compacting +Q quiet mode - don't print detail information, only summaries Packing Options: +P pack the disk LU specifiedYY +OK ok to temporarily overlay data while packing Miscellaneous Options: +L file log output to the file Y@Wfiers (+En, +Wn, +Wn~%) rather than`` just one of tFVERI.REL::RTE_6:5:106:128 644 0 0 65000 5310707744 35220 FVERI.REL::RTE_6:5:106:128 $j jFVERI REL +#+#+#j4nFST ;;XNkZFVERI 92570-16173 Rev.6000 <920303.1302>/SRC_92570/R6000/FVERI.FTN;<<Gh ANALZBITLISTFILE"VERIFYFLAGS ,FILEDESCLUDCB LUPARMS FVERICOM<ssq FVERI .NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN s||.DAD .DMP.DDE.DDIR .DCOEXEC.CPM.FION .SST.NFEX ITQUITS UNCLAIMLU DISPLAYMSGDISPLAYMSGBLOCK BITMAPANALYSISLOADSEGMENT FILESYSVERIFY CLAIMLU FMPDISCSIZE INTTODECIMAL| NEXTNEWLU INITIALIZE~~ <<WY`(j(+`( i(+JPN(hP+g.Y`(M5f8Y` @Vp A Yp `eP(~E== IL ANL QL UdLXY ^ Yp`(fec(` @p h @AJ X(|(x(|`  @p (n` $h@@}}188` $h@x `b@ h a'p ` p ` @ p` @ p`((_PW(T` @VhHVpx }qqF44 `(`(RY`(^]\Y[Y栊`(8Zq==;=F%%SEG02 SE G01  @@P Lt &L&K&J&I&H=@m ::Xa/ANALZBIT/92570-16173 Rev.5020 890519 /SRC_92570/R6000/FVERI.FTN: A ANALZBIT @$::Xm/LISTFILE/92570-16173 Rev.5020 890519 /SRC_92570/R6000/FVERI.FTN: A"LISTFILE @<<XO/VERIFYFLAGS/ 92570-16173 Rev.5020 890519 /SRC_92570/R6000/FVERI.FTN< A"VERIFYFLAGS 220"" 2@O::Xe/FILEDESC/92570-16173 Rev.5020 890519 /SRC_92570/R6000/FVERI.FTN: A ,FILEDESC @099Xl/LUDCB/ 92570-16173 Rev.5020 890519 /SRC_92570/R6000/FVERI.FTN9 ALUDCB @C"::Xn/LUPARMS/ 92570-16173 Rev.5020 890519 /SRC_92570/R6000/FVERI.FTN: A$RLUPARMS @::X_/FVERICOM/92570-16173 Rev.5020 890519 /SRC_92570/R6000/FVERI.FTN: AFVERICOM 1p b6p 3p 5p 4p @,::X:INITIALIZE92570-16173 Rev.6000 920303 /SRC_92570/R6000/FVERI.FTN:<<Gi  ANALZBITLISTFILE"VERIFYFLAGS #,FILEDESC$LUDCB LUPARMS FVERICOM<echINITIALIZEv .CPM.EXIT .SBST .SCO.SST.LBT.MBTITQUITS DISPLAYMSG"USERISSUPER FORHELP DISPLAYERRFILE!FMPCLOSE FMPLU FMPOPEN FMPBUILDNAMEDISPLAYMSGFILETRIMLEN FMPHIERARCHNAME FMPREPORTERROREE (FMPWORKINGDIR FMPPARSEPATHDECIMALTOINTFMPSETIOOPTIONS FMPIOOPTIONSRCPAR CASEFOLD ADDRESSOF LIMEM E}}hh<<hphopeA.{c (c1  @ p  3 (( 8pbb(( }"y==HhP2A(( ,((( p( *(((`9p( A((ˆ((`9p( &(((`9Ap( $((( p( "(((`bpb~~QBBb(c (c`c(cg`70gpg((cg( A ( ((p( 0~E#AA(&&h `/cp`c(Lj`9paA fffAf   (LJ6LO pe`e(gV pc`c(`^c`c ~~)dGGf pe eeD(s(}(} eeDD (((5  1111` @0pc (c ` @0p ~`::cp` @0p!d` @0(`4pc`c(c ǀ`bpb(A(ш((`9p p`a(`(p`0(" ( 3hyy&HH rosqd DIR / ??? cow L OKFDFBFF B 1 ? @ @@@ @ @P         +<Ly@C99XwCLAIMLU 92570-16173 Rev.5020 890522 /SRC_92570/R6000/FVERI.FTN9<<Gh  ANALZBIT LISTFILE "VERIFYFLAGS ,FILEDESCLUDCB LUPARMS FVERICOM<JCLAIMLU  UNCLAIMLU S//.MBTLURQDISPLAYMSGDISPLAYERR FMPMOUNTFMPDISMOUNT INTTODECIMAL/  ~~ ::p( p ` p(]`0(nhq`on#p`(0*.up(5vt(>px`(>`sp(DB~TT^@**upp Irrp`(VPTup(`([((`(c(fsp(TB n @a1;;X,&LOADSEGMENT 92570-16173 Rev.5020 890510 /SRC_92570/R6000/FVERI.FTN;(LOADSEGMENT ##y.ENTR .EXIT .SSTITQUITS DISPLAYMSGSEGLD #>>""A A" `%P(($  &>@ {+;99X5 ITQUITS 92570-16173 Rev.5020 890512 /SRC_92570/R6000/FVERI.FTN9<<Gh ANALZBITLISTFILE"VERIFYFLAGS ,FILEDESCLUDCB LUPARMS FVERICOM< ITQUITS  n7.EXIT FMPCLOSEUNCLAIMLU  p @@1P99X6&FORHELP 92570-16173 Rev.5020 890526 /SRC_92570/R6000/FVERI.FTN9  FORHELP  ITQUITS DISPLAYMSG 5020 <920303.1302>33  p %!`$p `#p  8 8 ( 3=?p97>=9 o; @0 @P_o==Xخ[DISPLAYMSGBLOCKF92570-16173 Rev.5020 890510 /SRC_92570/R6000/FVERI.FTN=,,DISPLAYMSGBLOCKF$ DISPLAYMSGBLOCK "DISPLAYMSGFILE,H.ENTR DISPLAYMSGDINTTODECIMAL ~~oAAA#() ` p` p` p(.`p`p`p#(3W#`Zp`Zp(7`Zpp(7p`Zp`(C>UBU(F~C F`(MMYWvU P@^}**X7cSEG01 /SRC_92570/R6000/FVERI.FTN* SEG01 p.EXIT SEGRT  d @@_<<X=9FILESYSVERIFY 92570-16173 Rev.6000 910205 /SRC_92570/R6000/FVERI.FTN<<<Gi<+ ANALZBIT,LISTFILE)"VERIFYFLAGS ,FILEDESCLUDCB LUPARMS -FVERICOM<bFILESYSVERIFY ~~Ą.DAD.DSB.DMP.DDE .DDI.DDIR (.DCO.ENTR .CPM .EXIT .SCO .SST*COMPAREBITMAP DISPLAYERRFILE&PURGEENTRY%DOFIXDIRS $DISPLAYMSGBLOCKF'DOUBLESTUFF #MARKFILEMARKDIR "DISPLAYERRBLOCKF~~~,7!FMPMASKNAME CALCBLOCKAD ITQUITS DISPLAYMSGIFBRK GETNEXTENTFMPINITMASK FATTENMASKMARKBIT MARKVOLHEDCHANGEBITS MOVEWORDS FMPEXPANDSIZE DISPLAYERRBLOCK DISCRWINTTODECIMALFMPDISCSIZE ~~~99@p`8pp`(  ت`p`p `pp @@ ! ~  DD'p`(( J  ! 7A () '6(`+p`(316(6, `@`$phт@hт@x ~~|OHH`4@ h h@Ɉx A (i(ig5(@H px vӂ` @%'!̀((#~~~JrEE`4@ h h@)ɡA((ƀ((3`,@p  (~~~@@ (  * (@+@x!`*p`(((" *(`+P((`2Ph1X h X ((#(䀀`*~x??(1$"- *%' *(0&. *P'((Ph X 0(Z'@A!((Y$K- *%P *(Y&W *P'((`[EEP(^(p` p`)p`@p'kA(pA((y0(`+@p8(d`0p`(p`@p'A(pAA ((0>>(` @p8(pP(($- *% *(& *P'((A/(p.((ъ($- *% *(&<< *P'((`(`)(*) (`8(<RR+ 66GLVOLUME HEADER @P@ eR DIL R@ɢb::X~MARKVOLHED92570-16173 Rev.5020 890510 /SRC_92570/R6000/FVERI.FTN:<<Gh  ANALZBIT LISTFILE "VERIFYFLAGS ,FILEDESCLUDCB LUPARMS FVERICOM<iMARKVOLHED--.DAD.DDI.DDIR .DCO.ENTR .CPM MARKBIT DISPLAYMSGBLOCK -II`}p|hX (`@p(`|P(#()'{`@l H@Allh@lwuPpl;;L sl(YY{q(c(cc{ hy((;q V@ 99XMARKDIR 92570-16173 Rev.5020 890516 /SRC_92570/R6000/FVERI.FTN9<<Gh  ANALZBITLISTFILE"VERIFYFLAGS ,FILEDESCLUDCB LUPARMS FVERICOM< )MARKDIR  ?? PP .DAD .DDE.DCO.ENTR .CPMDISPLAYMSGBLOCKFDOUBLESTUFF MARKBIT DISPLAYERRBLOCKFDISCRW?}}2@@@p`@pp`p`pp `@p p`(`(p (`p `@ @p偢}GG (` @pPp`hX 0(  `@ @pAp0(*%`(*`p`+DDP(72`(7`p`(Dh@ D`@ @pL p`  @0(ke`(k`p`(`ZZ0o33(}(} }`(h@A@  p(`((`pp`(((Z$$a P 8.@$``$@f99X[ZMARKBIT 92570-16173 Rev.5020 890510 /SRC_92570/R6000/FVERI.FTN9<<Gh  ANALZBIT LISTFILE "VERIFYFLAGS ,FILEDESCLUDCB LUPARMS FVERICOM<  MARKBIT  001.DAD.DSB.DDI.DCO.ENTR CHANGEBITSDISPLAYMSGBLOCKFCHECKBITS 0{{lLLAU(IW(D(DU0U(7(C(IYS PX {XS P@,J99X^5MARKFILE92570-16173 Rev.6000 900731 /SRC_92570/R6000/FVERI.FTN9<<Gh ANALZBITLISTFILE "VERIFYFLAGS ,FILEDESCLUDCB LUPARMS FVERICOM< 0MARKFILE ||x.DAD .DIN.DMP .DDI.DDIR .DCO.ENTR .CPM.EXIT .SSTFMPCLOSEDISPLAYMSGDISPLAYERRFILEFMPSETDCBINFO DOFIXFILE DISPLAYMSGBLOCKFDOUBLESTUFF DISPLAYERRBLOCKFFMPREAD FMPOPEN | MARKEXTENT MARKBIT .GG.@/p`@p#A#X# (LL3* `4p `"@pU((p` @(0(rp2* p `%@iuEE@*`*(**`$@p(A*(((1* `!@pA,##(h X# (,  A(((0* `#@p JJ.**&*$` (`"@p .#*&$p ` (p & ((/* ` (A0#(h X# 0(` @p$~~<GGP#(( (h@(A `(J &  .(0-* p (`4pp`(E#,p"P"(J(M`-~~~QKBBp(`(XU* p (`,P"(\(f`(fd+* p `"@p!h!@!((`!p(<` (p` @p`~@@(((** `(`p`4p`!@p ()* `(`4p` @pA((* `__Pb44(Ո`4p`( (' @ `( & (_FF//roq rosq P@  J@2(B~jF@S::XUMARKEXTENT92570-16173 Rev.5020 890510 /SRC_92570/R6000/FVERI.FTN:<<Gh ANALZBITLISTFILE"VERIFYFLAGS ,FILEDESCLUDCB LUPARMS FVERICOM<MARKEXTENT HH .DAD.DMP.DDI .DCO.ENTR .CPM .IDLP MARKBIT DISPLAYMSGBLOCKFDOUBLESTUFF DISPLAYERRBLOCKFDISCRWHXFF`pp`pp(A`(`p`((@A@x`@P(`@HH@p`( (  (pp`@@pA p`  @AA 0(p`pRHH`@p`@p`phA (p`@p2 ( h (V`@@@(V p`   @ ~~tcII0(rop(wwAA h ((`@@ ((`@@p`h@A`@p8(+~ (( && P &@H@g::XPURGEENTRY92570-16173 Rev.5020 890522 /SRC_92570/R6000/FVERI.FTN:<<Gh  ANALZBIT LISTFILE "VERIFYFLAGS ,FILEDESCLUDCB LUPARMS FVERICOM<lPURGEENTRY55.ENTR .MBTDISPLAYMSGDISPLAYERR FMPMOUNTDISCRWFMPDISMOUNT INTTODECIMAL5~~(@@Ah`A p`((p`((р%@h ~QQȚ((p`(ѡ ֡p`((Q B  @ab"<<XpCOMPAREBITMAP 92570-16173 Rev.5020 890516 /SRC_92570/R6000/FVERI.FTN<<<Gh ANALZBITLISTFILE"VERIFYFLAGS ,FILEDESCLUDCB LUPARMS FVERICOM<COMPAREBITMAP NN ! .DAD.DIN .DMP.ENTR .CPM .IBTE .IBTS DISPLAYMSGDISPLAYERRBLOCKFDISCRWDOFIXBITMAP GOODBITSBITMAPERROR N}}DDAp p p pp` (( p`(p  (h Hp` @ `(}HH` p ` p ( ((`p ` @@ h Hp  Ph (@ p (` (`0(!h @A h Hł@ mLLh @A @` @  (P`(M0ph @A h Hł@ h @A `((p(w`(uXph @A h HłeEE@ h @A `ph @ ((`@ p @(`((áp`( (( ##[ZThe Bitmap f #@8lW,99Xd)GOODBITS92570-16173 Rev.5020 890510 /SRC_92570/R6000/FVERI.FTN9 GOODBITS qn.ENTR BITMAPERROR FF))((%(#'%F@6@;;X.6BITMAPERROR 92570-16173 Rev.5020 890512 /SRC_92570/R6000/FVERI.FTN;<<Gh ANALZBITLISTFILE"VERIFYFLAGS ,FILEDESC LUDCB LUPARMS FVERICOM<8BITMAPERROR H.ENTR DINTTODECIMAL DISPLAYMSGDD&""A`5p( (4(30. 20.D. P DndZ@-**X7cSEG02 /SRC_92570/R6000/FVERI.FTN* SEG02 p.EXIT SEGRT  d @@_<<XhGBITMAPANALYSIS92570-16173 Rev.5020 890510 /SRC_92570/R6000/FVERI.FTN<<<Gh ANALZBITLISTFILE"VERIFYFLAGS ,FILEDESCLUDCB LUPARMS FVERICOM<߲BITMAPANALYSIS BITANAL .. p` @p .  @0`(%FV000::RTE_6:5:18:128 644 0 0 11000 5310707747 33146 %FV000::RTE_6:5:18:128 $ %FV000 +#+#+#nFST HHXd3p2$:$FVERIMOD92570-16174 REV.6000 <920811.1254> /SRC_92570/R6000/FPACK.FTN<66FNUMDESC 7'DESCRIPTORS LUDCB BMAPPARMS TEMPSPACE FPACKCOM6ssp=FPACK .NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN s.DAD.DMP.DDE.DDI.DDIR ).DCOEXEC.CPMREIO.FION /.IRES .SCO .SST .NFEX !.MBT$.CBT-NEXTENTNUM6TRIMLEN 5DESCTOFILENAME0MOVEDESCOUT 2DISCFINDBITSFPACKMODNLREADREL PACKERR zzN4MOVEFILE3MARKUSED1FMPEXPANDSIZE .IFBRK ,FLATTENHEAP CALCBLOCKAD *STUFFDESC +DIRQPACKDESC(FILEQPACKDESC 'FMPPURGE&FMPMASKNAME %ISDIRBOOL #FMPREPORTERROR"GETNEXTENTFMPINITMASK INTTODECIMALz:: ADOUBLESTUFF MOVEWORDS DISCRWFMPDISCSIZE FPARM RMPAR EMAST ADDRESSOF LIMEM :!EE4p5nmo@npnNm((M/w`?pJKpL(0(׊`Kp" '/J  ' `"p p @ >>'/(((FjCpp`ppA%A=   5pj`j(  j/@  @z 8zpj`j(##j/ ~~v$>>J'/ ,JA '1(5 5I/9` p`$p`  @h@h@977`O~{bBBpqg%  -%H `n@3puj-)m({{j/HjCpp`pp%%BA`F@n@3p xh,`*A!'p`nCC@3p"j)|(+`EPj((E/`j(#j)(*`*h,A$'(`F@n@3p ̃@xh,`*!'`|>PG(ي(!%X} ( `|~~مDD(`n@3p&+|)'+h,`*A!'( (|x"z)"( ( * "(!`qX} (!((+|x"z)"(!(!*!"`F@n@3p (x(~y+HH,-`q(`Opr`r(prph->hg5;uu)5ph(O(.Vw(\\E//g0e"1h&su)s((`n@3p~~h}sBB2xsmk`kpk)"0(su(`Opr3h`n@3p4"mj`EPj((E/-hg5(B(2pq(cpiDjCpp~~~ҭII`pp%%BAph`n@3p25mk-hg5A@iph((A/g0"")k( ( 5"'pj`j( 6~((ٺ'p%`ipi-hgA5(=(UU87`p VOLUME HEADER .@ @N@ 8 :nА xdn" !U@`~..XFILEQPACKDESC /SRC_92570/R6000/FPACK.FTN.B0TEMPSPACE LUDCB y FILEQPACKDESC 66 K1 .DMP.DDI .DCO.ENTR DOUBLESTUFF MOVEWORDS PACKERR DISCRWFMPPACKSIZE 6u ??A @ p@ p`@p `@p# `@p*`@hHpx3`@hHHp`@pD  (}}=HDDP(K(o Xp`(`` @A@ Hx o `@p`@p{ (( `p}''`P((`@p p(D '!!:k @ $ !@0++XY eMOVEFILE/SRC_92570/R6000/FPACK.FTN+B0TEMPSPACE LUDCB  'MOVEFILE **.ENTR REIOFMPREPORTERRORFMPCOPY TRIMLEN DESCTOFILENAME*cc#77#@#p[&3#^p"`"(9'<^pZDdbZM^!^ $%`&&(X`c&(XX&^(8c\ dsq @ @%,,XISDIRBOOL /SRC_92570/R6000/FPACK.FTN,}ISDIRBOOL   !V.DCO.ENTR ++EAA( ((`p(p`DIR +@ _++XMPACKERR /SRC_92570/R6000/FPACK.FTN+ PACKERR  [EXEC.ENTR FMPREPORTERROR**(A*@.L,,XC:NEXTENTNUM/SRC_92570/R6000/FPACK.FTN,BNUMDESC HEAPPOINTERSxNEXTENTNUM .T.ENTR .CPM ll88A(((`((p8A08(/@9((.l 9 @bm--XNDISCFINDBITS/SRC_92570/R6000/FPACK.FTN-B.`LUDCB BMAPPARMS XDISCFINDBITS 88 .DAD.DSBR .DMP.DDIR .DCO.ENTR .CPM .IBTE FINDBITS PACKERR DISCRW8IIA@p@hA@h@  `+h@ppph@J((D(h@Jh@(X(XhJ@x~~}XCC`'p hJ@ i  p ` (q q p`@Ap ((`@p`Ap(s ((`p`@ (`~~~=CCp@p(h@A((    ` (h@  (` pp`@(`@p@p(p`@@ (`p`~AAf$""p(`@ph@A `@A h@((((<  (A.  @t,,XSTUFFDESC /SRC_92570/R6000/FPACK.FTN,CNUMDESC HEAPPOINTERS 'DESCRIPTORS Y STUFFDESC ++@1.DCO.ENTR .CPM.IRES GETDESCLOCMOVEDESCINDOUBLESTUFF + AAA @ p(j(j`耀p `p` @h `p  - P(1(3 7 ` @A@pމEމA(h~~LLCC(h` @h    @H` @p ` @h  (d(7  (2n  A(v(v(2` pA p`@p`@p~FFމJ((`@pމ(A((`p((`@hH`@h`p`A@p(( މ މ (2 `  А@c--XFLATTENHEAP /SRC_92570/R6000/FPACK.FTN-CNUMDESC HEAPPOINTERS'DESCRIPTORS # FLATTENHEAP [.DCO.CPM.IRES GETDESCLOC~~ AA p `p((`@Ap `@h@pP(-(1`p p`@p`@pA(W(W`@~ss]K??pT([A(h(h`p((`@hH`p`A@p(6(6`@h(`@h((0s}jpА@>?\++X\ MARKUSED/SRC_92570/R6000/FPACK.FTN+ AHEAPPOINTERS MARKUSED .ENTR h A@ @'E..X=/DESCTOFILENAME/SRC_92570/R6000/FPACK.FTN. ALUDCB HDESCTOFILENAME << ڌ.DAD.DDIR .ENTR .DMOD FMPBUILDNAME FMPPARSENAMEFMPFILENAME MYIDADD DOUBLESTUFF <qFFFF@FpG`@pYCCHCCJChA@Cx@h@CA@xA`@pB`B.p`A&@@p/`@p0p1?p866l0/EpE -,.+ -,+`EH6S   @?@Qpz--XDIRQPACKDESC/SRC_92570/R6000/FPACK.FTN-B0TEMPSPACE LUDCB IDIRQPACKDESC '' .DAD.DDE .DCO.ENTR PACKERR DISCRWDOUBLESTUFF 'ٞAAA@p@p`@p`@p`@p%`@hHHp`@p5`@A@@(~IqqE;;p`(QQUdA (c(cc(}mp`(uuh@(?q+   @;|Z<++XOGSHOWHEAP/SRC_92570/R6000/FPACK.FTN+CNUMDESC HEAPPOINTERS 'DESCRIPTORS  +SHOWHEAP --E=.CPM REIO.EXIT .IRES .SSTTRIMLEN GETDESCLOCCONCATNUM -~~<+FF+p+p)p(@p*`(np`*@pHN`(Ap(()(V(jYpA aA`)@p)p(8*8(=`((r~q(}uAp }+ G` i P @Qp,,X?CHECKHEAP /SRC_92570/R6000/FPACK.FTN,''DfNUMDESC HEAPPOINTERS'DESCRIPTORS FPACKCOM'KCHECKHEAP \.DCO.IRES .IDLP GETDESCLOC\\`11p866`>phA8(4p<`@=p6866$6(,(,88<(\ 8`p = @OmPACKERR DISCRWDOUBLESTUFF 'ٞAAA@p@p`@p`@p`@p%((%FP000::RTE_6:5:2:72 644 0 0 1000 5310707753 32736 %FP000::RTE_6:5:2:72 $ `H%FP000 +#+#+#nFST HHX/,:$FPACKMOD92570-16178 REV.6000 <910205.1834> XUsage: RU FPACK LU Scanning LU !1Suggested files to move...B@TF.REL::RTE_6:5:33:128 644 0 0 20400 5310707756 34071 TF.REL::RTE_6:5:33:128 $! d!TF REL +#+#+#!1nFST 88XߎZTF92570-16192 REV.6000 <901120.1240>/SRC_92570/R6000/TF.FTN 8<<GZTF_TEMPORARY(TFEMA LIST_FILE_STATE /TFEML TFUNX TFDCB TFNLS <qq{NTF.NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN qyy` EXEC.FION .SCOFMPRENAME EXTERNALS DO_TAPE_PART_OF_CALL_PARSE_COMMAEND_PROGRAM CALL_GET_COMMANDLOAD_SEGMENTDIE CONDITIONAL_TRAN MLOG SIGNAL_CONDITION CANCEL_TRAP GET_CONDITION yGG TRAP_CONDITIONFMPCLOSERELEASE_TAPE_LU CLOSE_LIST_FILE_CLEAN_UP_COMMANDTFBRK TFTIO TRAP_HANDLER TFCMD GݏN;;pLV(eZ\^bA eg( lMPM(p(u r uM`PM(y(| |`PM( `PM((`gg@J55PL(`L(`pLK`K(A (( bg@+I~N??X4aDO_TAPE_PART_OF_92570-16192 REV.2440 <901120.1240>/SRC_92570/R6000/TF.FTN ?U"DO_TAPE_PART_OF_UU .CBT CALL_LH LOAD_SEGMENTCANCEL_TRAP CALL_DL CALL_DL_FOR_FC_FTRAP_CONDITIONCALL_BACKUP CALL_RESTORECALL_FC_RESTORE TFCMD U~~y::p`/ 0(( p0`1("^(`(!V!('%_'(RA`Wh[V(0(E(E3^(=7:]~OOS:'' <(D@\ BD(R`WhYV(M(R(RP\ RLHDL n @O@jω==XX42LOAD_SEGMENT92570-16192 REV.2440 <901120.1240>/SRC_92570/R6000/TF.FTN =7LOAD_SEGMENT  REPORT_LAST_SEGM!!.ENTR MLOGEND_PROGRAM SEGLD INTTODECIMAL! h:TF00 [[..A( p ` p(#,`.P((!1.!`(**0.(" [@4::X?5cTF000 92570-16192 REV.2440 <901120.1240>/SRC_92570/R6000/TF.FTN : TF000 p.EXIT SEGRT  d @@^??X CALL_GET_COMMAND92570-16192 REV.2440 <901120.1240>/SRC_92570/R6000/TF.FTN ?`CALL_GET_COMMANDau.ENTR GET_COMMAND  A @ɡa??X CALL_PARSE_COMMA92570-16192 REV.2440 <901120.1240>/SRC_92570/R6000/TF.FTN ?aCALL_PARSE_COMMAS.ENTR PARSE_COMMAND_ANh' A@::X@5cTF001 92570-16192 REV.2440 <901120.1240>/SRC_92570/R6000/TF.FTN : TF001 p.EXIT SEGRT  d @@^==XUCALL_BACKUP 92570-16192 REV.2440 <901120.1240>/SRC_92570/R6000/TF.FTN =CALL_BACKUP BACKUPp@՘::XA5cTF002 92570-16192 REV.2440 <901120.1240>/SRC_92570/R6000/TF.FTN : TF002 p.EXIT SEGRT  d @@^==Xe CALL_RESTORE92570-16192 REV.2440 <901120.1240>/SRC_92570/R6000/TF.FTN =QCALL_RESTORE RESTORE p@4SF::XB5cTF003 92570-16192 REV.2440 <901120.1240>/SRC_92570/R6000/TF.FTN : TF003 p.EXIT SEGRT  d @@^;;X4 CALL_DL 92570-16192 REV.2440 <901120.1240>/SRC_92570/R6000/TF.FTN ; zCALL_DL  %ODLn p@ k;;X:CALL_LH 92570-16192 REV.2440 <901120.1240>/SRC_92570/R6000/TF.FTN ; CALL_LH  -KLHp@"::XC5cTF004 92570-16192 REV.2440 <901120.1240>/SRC_92570/R6000/TF.FTN : TF004 p.EXIT SEGRT  d @@^??XCALL_FC_RESTORE 92570-16192 REV.2440 <901120.1240>/SRC_92570/R6000/TF.FTN ?NCALL_FC_RESTORE  rFC_RESTORE p@ͪ??X GET_DIRECTORY_BL92570-16192 REV.2440 <901120.1240>/SRC_92570/R6000/TF.FTN ?cGET_DIRECTORY_BL /(.ENTR FC_GET_DIRECTORY<7 Ap`@~>??XDECODE_DIRECTORY92570-16192 REV.2440 <901120.1240>/SRC_92570/R6000/TF.FTN ?B DECODE_DIRECTORY  .ENTR FC_DECODE_DIRECT**A *@W<<X READ_TAPE 92570-16192 REV.2440 <901120.1240>/SRC_92570/R6000/TF.FTN <[READ_TAPE .ENTR FC_READ_TAPE A @<<X SKIP_TAPE 92570-16192 REV.2440 <901120.1240>/SRC_92570/R6000/TF.FTN <dSKIP_TAPE kIp@::XD5cTF005 92570-16192 REV.2440 <901120.1240>/SRC_92570/R6000/TF.FTN : TF005 p.EXIT SEGRT  d @@^??X CALL_DL_FOR_FC_F92570-16192 REV.2440 <901120.1240>/SRC_92570/R6000/TF.FTN ?[CALL_DL_FOR_FC_F%ODLn p@_??X GET_DIRECTORY_BL92570-16192 REV.2440 <901120.1240>/SRC_92570/R6000/TF.FTN ?cGET_DIRECTORY_BL /(.ENTR FC_GET_DIRECTORY<7 Ap`@~>??XDECODE_DIRECTORY92570-16192 REV.2440 <901120.1240>/SRC_92570/R6000/TF.FTN ?B DECODE_DIRECTORY  .ENTR FC_DECODE_DIRECT**A *@W<<X READ_TAPE 92570-16192 REV.2440 <901120.1240>/SRC_92570/R6000/TF.FTN <[READ_TAPE .ENTR FC_READ_TAPE A @<<X SKIP_TAPE 92570-16192 REV.2440 <901120.1240>/SRC_92570/R6000/TF.FTN <dSKIP_TAPE kIp@<<X SKIP_TAPE 92570-16192 REV.2440 <901120.1240>/SRC_92570/R6000/TF.FTN <dSKIP_TAP((>TF000::RTE_6:1:29:128 644 0 0 16400 5310707760 33610 >TF000::RTE_6:1:29:128 $ >TF000 +#+#+#nFST 92570-16194 REV.6000 <901120.1214> Gencat Fri, Sep 4, 1992, 12:41 AM !1Command file stack overflow.Unable to open command file !1Already in group.d!Beginning group of copy commands.Group aborted.Disk-to-disk copy not allowed.Tape-to-tape copy not allowed.8Tape-to-disk and disk-to-tape can not be mixed in group.$Tape lu can not change within group.Invalid option !11:DL command not permitted while GROUP command is in effect.!Title truncated to !1 characters. No title specified.eTitle used will be: !1tSummary of TF comm ands:aF%Copy files: CO source destination [options] [master security code]%  Normal backup:1 CO mask tape [options] [master security code].> CO {mask1 ... maskN} tape [options] [master security code] Normal restore:t CO tape [,,opt ions]a Selective restore: CO tape{mask} [,,options]e( CO tape{mask1 ... maskN} [,,options]/ Restoring to different directories/filenames: & CO tape destination-mask [options], CO tape{mask} destination-mask [options]0 CO tape{ mask1 ... maskN} dest-mask [options], Special-purpose backup requiring renaming:C CO mask tape{destination-mask} [options] [master security code] I CO {mask1 ... maskN} tape{dest-mask} [options] [master security code]k Options: A APP END files to taped2 B BRIEF logging mode (suppress "Copying ...")- C CLEAR backup bit (also implies VERIFY)} D replace DUPLICATE files9 I IGNORE tape header errors and unexpected eof markst? K KEEP tape on-line (also used in L H, DL, and EX commands) 7 N Treat files on UNIX TAR tape as binary, not textE> U UPDATE (replace duplicate file if update time is newer) V VERIFYN? X copy type 4 files to tape in UNIX compatible data formate2 Y YES it is ok to overwrite or append to tape% Incremental backup quick reference:n2 Initial: CO source(w/o b qual) tape C5 Subsequent: CO source(with b qual) tape CA% &List header from tape: LH tape [K])Directory list: DL tape [K][I]ie@!1Error writing to list file: !1Copying !1 to !2!1 Copying !1to !1a Copying !1 tTape appears to be empty.mEof mark at beginning of tape.Unable to read tape.Unknown tape format.Tape format: !1Title: !1Date: !1Tape number: !1Capacity: !1 kilobytesUsed: !1 kilobytes a (Y/N) ? _Lu !1 is down.5Correct problem and UP device, or use BR to break TF.eDevice is up. TF continuing.r%Please load tape number !1:Scratch file error: !1Bad tape directory block.aError verifying !1(Checksum error on !1 )b$(Data doesn't match source file !1 )(Tape i/o error on !1) %%Created !1: C%File Update Time or Owner% !%File from directory !11B Update Time or Owner% !1Update Time or Owner% !1!1 l$Files are continued on another tape.Files continue on another tape. %Verifying. %Verifying.d>A number of files may have been skipped due to tape i/o error.#Title does not match previous tape.m"Date does not match  previous tape.#This tape is not from the same set.nTape number is wrong.o9Or did you intend to skip one or more tapes from the set_bFile not copied !1%(Error purging existing file: !1 !2 )i(FC file error !1)Protection bits not set for !1Ow ner not set for !10Replacing !1 (created during this copy command). Replacing !1 yUnable to create !1 "Please make more room on the disk.CTF will try to create the file again when you issue the GO command.!(Consult the manual for more information.TF program suspending.%  TF can't continue.i"Creating parent directories for !1!1 blocks skipped..Searching tape for next valid directory block.Links not allowed. Skipping !1oLink was to !1Illegal FMP name on tape !1fChanged to legal name !1Name too long. Skipping !1'(FC file error !1)+Update times don't match. Not verifying !1eCan't clear backup bit !1 /FC tape format error: cartridge table missing.!IFC files !1 through !2 are missing or were skipped due to previous error.FC checksum error.1FC tape format error: directory chunk too large.tlTape not ready.eTape not initialized.tTape not write enabled.e4Type GO when tape is ready, or type BR to terminate.Changed tape lu to !1s Bad tape lu./No resource numbers available for tape lu lock.m%Tape lu is locked to another program.Tape lu lock request aborted.iTape lu unlock request aborted.l,Unexpected eof mark encountered--continuing.%Words in record exceeds maximum of !1aBad tape rec ord length !1bTape is already full.l0This tape has already been continued on another.Data on tape ends abnormally.Exec call error !1*Tape i/o error on block !1. Status is !2.Tape i/o error on block !1.rTape i/o error. Status is !1.Tape i/o error.!*Tape runaway (25 feet of blank tape read). Unable to continue on this tape.(Internal error--no trap for condition !1Break detected.rFinishing file.S!1 at !2Tape i/o error on block !1.rTape i/o error. Status is !1.Tape%CX000::RTE_6:5:2:104 644 0 0 1000 5310707762 32762 %CX000::RTE_6:5:2:104 $ h%CX000 +#+#+#oFST IIXJƦ$:$CIXMSG92570-16232 REV.6000 <901127.1533> CIXNC.S000:92570I bCIXMSG hhe(JJnl   7oProgram CIX must be sized up.CIX: This program is designed to be executed only by CI.Internal string error~! Terminating.h@ I( FOWN.REL::RTE_6:5:33:128 644 0 0 20400 5310707764 34227 FOWN.REL::RTE_6:5:33:128 $! !FOWN REL +#+#+#!MoFST ;;Xu~YFOWN92570-16237 REV.6000 <910208.0857>/SRC_92570/R6000/FOWN.FTN ;CSYSTEMlFOWNCOM OWNERSrr;uFOWN.NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN r"EXEC.CPM REIO.FION .SST.LBT .NFEX .MBT.CBT!PRTNFMPREPOR((TERROR FOWNMOD NLREADREL FMPENDMASKDISPLAYOWNERS ASSIGNTOOWNER FILECOUNT DIRCOUNTMASKOLDFILE DSOPSYS SCANPATHOWNER AA 8%MASKDISCLUFMPNEXTMASK FMPINITMASK FATTENMASKTRIMCASEFOLD FPARM ADDRESSOF LIMEM LOGLU A b@ ~~K99j`|pbdpldo`dp`{@dp`{@d@{p`p@d@s @p`o@dpd` `n@opoe@dApdzo(7(7* y~~~Z`)==bpa`apD 4sD`xAp(> [Ag  We  C[WFHWhVPm (K(MpAhT`RQ U]] wQFpa`apDA gs~~~3f==Dl[lc`d@ipDvD[Wop`(:A [a pc`d@ipDDW(`(W`vP((A`\hXQ(hdHipDxE~~~b ??EPk0D(`d@ipDWDkipj`(:`@(`npffpp@`d@ipD΂D(`}pc(Ah\`XQ`Zh`Y(hs~~~,@@X (kg(kgjig(`h pD`uPpF`0FD(Wf`d@ipD D`c(1A  srq'~LL""" tbpa`apD 1sD 7srqp(>>W!A"DkLXX,G77DIR ///// GL /@ .@.s@ @0@ @@ @@0   dQ0 xndX@o<<XyDISPLAYOWNERS 92570-16237 REV.6000 901214 /SRC_92570/R6000/FOWN.FTN <BlFOWNCOM OWNERS)DISPLAYOWNERS YY.DAD.ENTR REIO .EXIT .SBST .SST .MBTTRIMLEN DOUBSTRINGFOWNMOD NLREADREL CONCATNUM FOWNIDTOOWNER TRIM DINTTODECIMAL Y(==A(  p&`pw`@&(V`'p'`@&@`@&J@ 8&8w(8`'(k`p!`!pm@~~te==jm(kP'(o(`hpmxnymn( |  J  `@$ $Ah`   F~;;fp!`!pmm(kAp!`!pmm@'pnp&`n(pv p`@&hH&pmxn܁mn(`BB@&@pmm`@&@$$pmm8&8v( J  A@p#  @p" H `#@~~eEEpmmDm  Hm `"@pmmmD  mJ ;ApmCmJp!`!pmmmD  mJ \`~c~ed pmkm)FFix** ------ --- (  +  @ @ o%P& F@ͮn<<XkfaASSIGNTOOWNER 92570-16237 REV.6000 901214 /SRC_92570/R6000/FOWN.FTN <ClFOWNCOM OWNERSSYSTEMASSIGNTOOWNER .DAD.ENTR .CPMK @@ApA`()()`@ hH p\`0\(>`@(-`p( @p(>`@ `@ `@@p\^\`@;;A `@ `@@hHHp\A\`@hH ; ^ @h::X˭TFILECOUNT 92570-16237 REV.6000 901214 /SRC_92570/R6000/FOWN.FTN :FILECOUNT BB .DAD.DIN.DMP.DCO.ENTR .CPMDOUBLESTUFF FMPEXPANDSIZE MOVEWORDS FMPREPORTERRORDISCRWBJJ@pB@pAI#`p%J(<BO@N@Hx&耭'SLp`( D`&@Gp=}}ƿ@@=I P%(hRX% 0(`Qp"`Mp@`"@F((A #`N@"p"8@( (7`Pp"`Mp?`"@FPJ(2`P@"@Fp=.=A `N@"p"8?}6("; (((C & @dC99X3DIRCOUNT92570-16237 REV.6000 901214 /SRC_92570/R6000/FOWN.FTN 9 7MDIRCOUNT  **6.DAD.DDE.DCO.ENTR FMPREPORTERRORDISCRWDOUBLESTUFF *9II@p@p`@p`@@p`(鈀Ad((((dp`(**F(h@Ah@((*  @ (B<<Xt8RSCANPATHOWNER 92570-16237 REV.6000 901214 /SRC_92570/R6000/FOWN.FTN <+ySCANPATHOWNER ''}S.ENTR MASKOWNERIDSMASKOLDFILE FMPDISCSIZE MASKDISCLU'rCCAM@pL@pK``O@Kh`Q@KhPHKpH`O@KpJxI/HIJ(5`p:(=(3B`(G @Fp(3 M@<<XvFOWNIDTOOWNER 92570-16237 REV.6000 901214 /SRC_92570/R6000/FOWN.FTN < LFOWNIDTOOWNER TT.ENTR .EXIT .SBST .SST.INDX .MBT FOWNMOD NLREADREL TRIM DINTTODECIMAL TRIMLEN DSIDTOGROUP CONCATDSIDTOOWNER T~~HIIHJXKHpG`G(vA(vehApuKIpG`G(H@ h`A     G~i@pFpGAAFL. F X(@`77X&TRIM92570-16237 REV.6000 901214 /SRC_92570/R6000/FOWN.FTN 7 -TRIM .ENTR .EXIT .SBST .SSTTRIMLEN //$A" "p`p""D$@/ <>@#(h@Ah@((*  @ (B<<Xt8RSCANPATHOWNER 9257FOWN.R000::RTE_6:5:3:128 644 0 0 1400 5310707766 33642 FOWN.R000::RTE_6:5:3:128 $ FOWN R000+#+#+#!o8FST JJX"p(,:$FOWNMOD 92570-16239 REV.6000 <920811.1313> FOWN.S000:92570 J FOWNMOD YYnldnx8^u Not enough free space, size up programScanning... Mask = !1FMGR files not scannedNo files selectedOwner: !1 Total Blocks>>_LY,,: !2 Number of files: !3 Owner Disk Blocks Number of filesTotalUnknown (#!1)>@_239 REV.6000 <920811.1313> FOWN.S000:92570 J FOWNMOD YYnldnx8^u%DSRTR::RTE_6:5:128:128 644 0 0 100000 5310707771 35162 %DSRTR::RTE_6:5:128:128 $ %DSRTR +#+#+#?o>FST ((<<X<=/DS_NAMEPTRS/ 92570-16257 REV.6000 851018 /SRC_92570/R6000/DSRTR.FTN< A2:DS_NAMEPTRS PPC::9P@ <<X;B/DS_INSTRING/ 92570-16257 REV.6000 851018 /SRC_92570/R6000/DSRTR.FTN< ADS_INSTRING @z:88X/y?DSRTR 92570-16257 REV.6000 910206 /SRC_92570/R6000/DSRTR.FTN811E,DS_STARTINGLOC DS_CONNUM DS_INPARMS DS_INSTRING DS_MEM1ssDSRTR .NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN sBB /. EXEC.FION DSFINISHDSDONEWREQ DSBUILDNAMETABLE CLEARBUFFER RMPAR INITMEM ADDRESSOF LIMEM B a tt55:`9p <@p`@8p77 A = &>: =`(- +pp 1A4< 7;t38@5v::X)DSNEWOPEN 92570-16257 REV.2326 830326 /SRC_92570/R6000/DSRTR.FTN:CDS_CONS KDS_INSTRING DS_OUTPARMS jDSNEWOPEN UU EXEC.CPM .MBT GETSEQUENCENUM GETFATHERIDNUM .IDNA DSFINISHDSTRYLOGOFF DSSENDRECEIVE DSTRYLOGONDSFIXNAME DSGETACONNECTIONU <<p p`(J(((`p({yp!yp`(((0;p`(<8;(s`@h;`nnwA44@h`@h `@h`v@xpwAhw`z v `p; [pu _up`@~h`@}pu ju`pDAs;n..|v$$@R@@??).@B`::X/DSNEWCLOSE92570-16257 REV.2326 830326 /SRC_92570/R6000/DSRTR.FTN:BDS_CONS DS_INSTRING kDSNEWCLOSE DSTRYLOGOFF DSFINISHDSSENDRECEIVE DSFIXDCB VV))p`pp.-p`("!(&`@, *V@<<Xa.DSNEWPOSITION 92570-16257 REV.2326 830326 /SRC_92570/R6000/DSRTR.FTN< A DS_INSTRING DSNEWPOSITION EXECDSFINISHDSSENDRECEIVE DSFIXDCBWW<))p`pp-*p`( ((`p(,+*W@<<XsqDSNEWOPENROOT 92570-16257 REV.2326 830326 /SRC_92570/R6000/DSRTR.FTN<B DS_CONS  DS_INSTRING DSNEWOPENROOT .. \EXEC.CPMGETFATHERIDNUM.IDNA DSFINISHDSSENDRECEIVE DSFIXDCB.~~p)>>p` i h @pfp0f(//o` p6  pp J n(@(@`np Hmjp`(PO(dRpf~((eSVfp `@hh`pdlkj(h  @@ӚZ<<XGw?DSNEWREADDISC 92570-16257 REV.2326 830326 /SRC_92570/R6000/DSRTR.FTN<B=DS_INSTRING DS_INPARMStDSNEWREADDISC  FEXEC.CPMDSFINISHDSSENDRECEIVE DSFIXDCB oo 11p`pp`:09p`p>((='8p`(/.(55<;o8?@U<<Xo6DSNEWWRITEDISC92570-16257 REV.2326 830326 /SRC_92570/R6000/DSRTR.FTN<B=DS_INSTRING DS_INPARMS DSNEWWRITEDISC.CPMDSFINISHDSSENDRECEIVE DSFIXDCBaa'**p`pp`302p`p5((4'1p`(..a1?@gQ==X7DSCLOSEREMOTEFIL92570-16257 REV.5010 871111 /SRC_92570/R6000/DSRTR.FTN=C3DS_CONNUM 2DS_INSTRING DS_INPARMS"DSCLOSEREMOTEFIL((DSFINISHDSTRYLOGOFF DSSENDRECEIVE DSTRYLOGONDSFIXNAME (ff .33p 20p p0p`(`4p#65p(`(.. $p@@p f@E_d;;XDSNEWOPENCON92570-16257 REV.2326 830326 /SRC_92570/R6000/DSRTR.FTN;((DtDS_CONS 2DS_INSTRING DS_OUTPARMS DS_INPARMS(NDSNEWOPENCONQQ B.SC .MBT GETSEQUENCENUM GETFATHERIDNUM .IDNA DSFINISHDSTRYLOGOFF DSSENDRECEIVE DSTRYLOGONDSFIXNAME DSGETACONNECTIONQ}}@@p p`(Ap p`(''`p1p`(=9<(i`@ `@h`}WWAF((@h `@h`@pAh`  Ypn ]np`@h`@pn hn` p W66DUMMY $  $@@ $??6@ *a==XDSNEWNODENUMBER 92570-16257 REV.2326 830326 /SRC_92570/R6000/DSRTR.FTN= C(}2DS_INSTRING DS_OUTPARMS DS_INPARMS JDSNEWNODENUMBER  J^DSFIXNAME &&p p`p $0@@0&@B`<<XbvBDSNEWCLOSECON 92570-16257 REV.2326 830326 /SRC_92570/R6000/DSRTR.FTN<BDS_CONS DS_INPARMSoDSNEWCLOSECON ))Mw.CPMDSTRYLOGOFF DSFIXDCBGETFATHERIDNUM.IDNA DSFINISH)kk@77p`Ap?p<A0<(@ p<$P(,1p`@= :(+k&=@@==X#DSNEWSETDCBWORD 92570-16257 REV.2326 830326 /SRC_92570/R6000/DSRTR.FTN=BDS_CONS DS_INPARMS+DSNEWSETDCBWORD _.CPM;;Qjp`Ap!p"0(`@ h(; ' @ @;;X+%DSNEWDCBWORD92570-16257 REV.2326 830326 /SRC_92570/R6000/DSRTR.FTN;CDS_CONS DS_OUTPARMS DS_INPARMS=DSNEWDCBWORD_.CPM??>tFkqpN`(T`Ap(T Zrqq`0p`(c c>5)f $p$p@p@@p,-@=\N<<XR4DSNEWCREATEDIR92570-16257 REV.5010 871111 /SRC_92570/R6000/DSRTR.FTN<BGDS_CONNUM 3DS_INSTRING DSNEWCREATEDIR((DSFINISHDSTRYLOGOFF DSSENDRECEIVE DSTRYLOGONDSFIXNAME (__00p 0.p p.p`(!32p&`(,, $`B @`!_@@';;X u_DSNEWDIRINFO92570-16257 REV.6000 910208 /SRC_92570/R6000/DSRTR.FTN;BGDS_CONNUM 3DS_INSTRING y#DSNEWDIRINFO,,r^EXECDSFINISHDSTRYLOGOFF DSSENDRECEIVE DSTRYLOGONDSFIXNAME ,rr3#<<#p#*YWp" p1"Wp!`!(88!@"!^[pEA"!K]\[`(O(R`0YpU# $`B@` !r@Q<<XIk<DSNEWDIRFIELD 92570-16257 REV.6000 910206 /SRC_92570/R6000/DSRTR.FTN<BGDS_CONNUM 3DS_INSTRING tDSNEWDIRFIELD ,,r^EXECDSFINISHDSTRYLOGOFF DSSENDRECEIVE DSTRYLOGONDSFIXNAME ,hh 77p 75p p5p`(";9p'`(--A3:99 $`B@`!h@ <<XFDSNEWFILENAME 92570-16257 REV.2326 830326 /SRC_92570/R6000/DSRTR.FTN<BnDS_CONS _DS_INSTRING DSNEWFILENAME RR &EXEC.EXIT .SBST .SST .SSTC FMPBUILDNAME FMPPARSENAME INTTODECIMAL GNODE TRIMLEN DSFINISHDSSENDRECEIVE DSFIXDCBR$ CCp`p  p# p ` (** ` @p2p ` (;H(M` @pD  PpaafR;; U `AP (oA`pJ o z a99c> ] [ $*@D@ "$ 9@Ig==X<DSNEWPROTECTION 92570-16257 REV.5010 871111 /SRC_92570/R6000/DSRTR.FTN=BGDS_CONNUM 2DS_INSTRING MDSNEWPROTECTION ,,r^EXECDSFINISHDSTRYLOGOFF DSSENDRECEIVE DSTRYLOGONDSFIXNAME ,ii!88p 64p p4p`(!;8p&`(,,A2:98 $`@@` i@V==X FDSNEWSETPROTECTN92570-16257 REV.6000 900817 /SRC_92570/R6000/DSRTR.FTN=BGDS_CONNUM &DS_INSTRING KDSNEWSETPROTECTN((DSFINISHDSTRYLOGOFF DSSENDRECEIVE DSTRYLOGONDSFIXNAME (__00pB@p p$@p`(++3EDp8`(>> $ @`&_@ȱq<<XXo!DSNEWTRUNCATE 92570-16257 REV.2326 830326 /SRC_92570/R6000/DSRTR.FTN< ADS_INSTRING DSNEWTRUNCATE =EDSFINISHDSSENDRECEIVE DSFIXDCB;; p p p`(;@CbK;;X$!DSNEWSETEOF 92570-16257 REV.2326 830326 /SRC_92570/R6000/DSRTR.FTN; ADS_INSTRING >DSNEWSETEOF =EDSFINISHDSSENDRECEIVE DSFIXDCB;; p p p`(;@ ::X'DSNEWINFO 92570-16257 REV.2326 830326 /SRC_92570/R6000/DSRTR.FTN: A#DS_INSTRING iDSNEWINFO EXECDSFINISHDSSENDRECEIVE DSFIXDCBHH##p p%$p`(A"&%$!H@Ӝ==X!DSNEWSETDIRINFO 92570-16257 REV.6000 900817 /SRC_92570/R6000/DSRTR.FTN= ADS_INSTRING EDSNEWSETDIRINFO =EDSFINISHDSSENDRECEIVE DSFIXDCB;; 'p p p`(;@, <<X^'DSNEWOPENFILES92570-16257 REV.2326 830326 /SRC_92570/R6000/DSRTR.FTN< ADS_INSTRING DSNEWOPENFILESEXECDSFINISHDSSENDRECEIVE DSFIXDCBHH##p p&$p`(A"%$$H@6<<Xid3DSNEWCONNTOID 92570-16257 REV.5000 860606 /SRC_92570/R6000/DSRTR.FTN<CDS_CONS DS_INPARMSDS_INSTRING rDSNEWCONNTOID  .CPM.MBTDSNEWOWNERTOIDDSFINISHVV֠**p`Ap*20*(1`@0(1`+@-p,h/`,+(V+$`$@Ji<<XhdDSNEWIDTOOWNER92570-16257 REV.5000 860606 /SRC_92570/R6000/DSRTR.FTN<CDS_CONS DS_INPARMSDS_INSTRING DSNEWIDTOOWNEREXEC.CPMDSFINISHDSSENDRECEIVE GNODE 99p`(2`pc(%(%%b`@Y(--b`@Xp(8`(88`ZpB[\]p`aP(G(I``p`(OVM AOU_^]\X ? @@[z<<XsdDSNEWIDTOGROUP92570-16257 REV.5000 860606 /SRC_92570/R6000/DSRTR.FTN<CDS_CONS DS_INPARMSDS_INSTRING DSNEWIDTOGROUPEXEC.CPMDSFINISHDSSENDRECEIVE GNODE 99p`(2`pc(%(%%b`@Y(--b`@Xp(8`(88`ZpB[\]p`aP(G(I``p`(OVM AOU_^]\X ? @@r<<XrQDSNEWOWNERTOID92570-16257 REV.5000 860606 /SRC_92570/R6000/DSRTR.FTN<CDS_CONS DS_INSTRING DS_INPARMSDSNEWOWNERTOIDEXEC.CPMDSFINISHDSSENDRECEIVE GNODE ~~ 88p`( `pP((O`@G(O`@Fp(&`(&&`Hp0INJp`MP(5(7`Lp`(=~4: =CKJJHF ? @@ <<X}SDSNEWGROUPTOID92570-16257 REV.5000 860606 /SRC_92570/R6000/DSRTR.FTN<CDS_CONS DS_INSTRING DS_INPARMSDSNEWGROUPTOIDEXEC.CPMDSFINISHDSSENDRECEIVE GNODE 999p`(!`pR((Q`@H(Q`@Gp('`(''`Ip1JPKp`OP(6(8`Np`(>< A>DMLKKG ? @@m;;X{DSNEWSYSINFO92570-16257 REV.5000 860702 /SRC_92570/R6000/DSRTR.FTN;C DS_CONS DS_INSTRING DS_INPARMShDSNEWSYSINFO##_EXEC.CPM.ARTN .MBTDSFINISHDSSENDRECEIVE #~~)==p` Apspiz0i(y`@r(##yp`A.JJ16;H1x`@qp(a `@pp (a`k@m~]]P?**plho`lk`wp(a`up`tp`((@qhHppixjZijsp`(aAagvu]##(k$$ ?  @#@A==XDSSETDEFAULTLOGO92570-16257 REV.5010 880526 /SRC_92570/R6000/DSRTR.FTN=B9 DS_INPARMS@DS_INSTRING 5EODSSETDEFAULTLOGOUU~.CPM REIO.EXIT .SBST .SCO.SST.INDX .MBTDSSENDRECEIVE GNODE OWNERTOID SPLITSTRING USERISSUPER .OPSY #DFUN U OHHOpOpNN(YpAN(`pݡe(pM`M(p(zDMJA (Oh`i A  ((( DSRTR: Default logon removed <<g A (pM`M(`pM@MpJ ݈pL`L(<,,k  DSRTR: Warning - new default logon is not currently valid,A (, DSRTR: Default logon set ,,A ,`p JJIIpK(,44԰ / ID  r   !4@1_99XsDSFINISH92570-16257 REV.2326 830326 /SRC_92570/R6000/DSRTR.FTN9BDS_STARTINGLOCDS_OUTPARMS  DSFINISH EXEC.ENTR DTACH PRTN--aAp  A-@<<XfDSNEWERRORMSG 92570-16257 REV.2440 840510 /SRC_92570/R6000/DSRTR.FTN<BC DS_LASTDS315ERR DS_INSTRING DSNEWERRORMSG ++S EXEC.EXIT .SBST .SST.SSTC .INDX .MBTINTTODECIMAL+}}pDDp`P((Nhz`yA}p`(>`A@p``}`A``y@hHAp`xa`}`a`@hHApbxcb}bcA`b(@`p`A@p``}113E}`A{`(XRw{Dw ^1DD_g**FMP error node REPORTING error  0   D@(lG,::X-YDSDONEWREQ92570-16257 REV.6000 910206 /SRC_92570/R6000/DSRTR.FTN: AbDS_INPARMS VDSDONEWREQ}}c.CPM.ARTN DSFINISH.DSNEWDIRINFO-DSNEWSYSINFO,DSNEWGROUPTOID+DSNEWOWNERTOID*DSNEWIDTOGROUP)DSNEWIDTOOWNER(DSNEWCONNTOID 'DSNEWDCBPURGE &DSNEWOPENROOT DSNEWDIRFIELD %DSNEWOPENFILES$DSNEWSETPROTECTN}xxk#DSNEWPROTECTION "DSNEWTRUNCATE !DSNEWSETEOF DSNEWRENAME DSNEWERRORMSG DSNEWFILENAME DSNEWSETDIRINFO DSNEWINFO DSNEWCREATEDIRDSNEWPOSITION DSNEWUNPURGEDSNEWPURGEDSNEWCLOSEDSNEWOPEN xDSNEWNODENUMBER DSNEWDCBWORDDSNEWSETDCBWORD DSNEWFSTATDSNEWDISCSIZE DSNEWCLOSECON DSNEWOPENCON DSCLOSEREMOTEFIL DSNEWWRITEDISC DSNEWREADDISC DSREBUILDNAMETBLDSSETDEFAULTLOGOSECWORDGETSECPROGCPLV GETFATHERIDNUM.IDNA ~~l6;;p pG GpKXAW("(""V`UP(&(*(`(2 /()(`TP(6(; 8()(`SP(?(D~\^?55 A()(`RP(H(M J()(`QP(Q(V S()(`PP(Z(_\()(`OP(c(he()(`NP(l(qn()(`MP(u}}6 tHH(zw()(`LP(~(()(`JP((()`A !%)-159=>I},<<()()()()()(B(B()(B()()()(B()()(B()()()$<<()() ()!()" ()#()$()%()()(B&()'#()('())+()*/()+3--4(),7()-;()(B.@()EH()-:HID?@{̚::XDDSFIXNAME 92570-16257 REV.2340 830924 /SRC_92570/R6000/DSRTR.FTN:lG\DSFIXNAME TT.ENTR .CPM.EXIT .SBST .SCO.SST .INDX .LBTDSGETNODENUMBER DECIMALTOINT GNODE TRIMLEN FMPBUILDNAMEFMPPARSENAMETZPPZZ.[,r.86X4WVU2}.86X4WVU:D0:J,:2pS*S((A0:A,:H(h+PBA(( 2@pT`T(@TpSAS*(~~bMM( $2DCSH0$`T(`Tp$ $2D$2H,$(A 2>pT`T(A@TpSS*(( $2CSD,$H`T(`Tp$ $2$2D0$J,pS`S( @ ~SS*--$,SSD $<(( (  $,SSD$:D 0:((( Y(" 0RpY`R("!0pY`Y\S77O& ] > [   @P `@d LN PR>7@*IM::XM|DSTRYLOGON92570-16257 REV.5010 871111 /SRC_92570/R6000/DSRTR.FTN:C DS_CONNUM DS_OUTPARMS DS_INPARMS3DSTRYLOGON 33C.ENTR .EXIT .SSTMOVEWORDS DSSENDRECEIVE TRIMLEN CASEFOLDDSFINISH3~~>AAt(**Jvt3{6v9v@p`(W`zp Kyyyp`(l` (Wp(l` @ 0xp ~33E{\cyyp`(j`p(l` pq{`3pt $@;;X.;DSTRYLOGOFF 92570-16257 REV.2326 830326 /SRC_92570/R6000/DSRTR.FTN;BQDS_OUTPARMS DS_INPARMS9DSTRYLOGOFF  Y.ENTR MOVEWORDS DSSENDRECEIVE ``ѵ //  (` : :`9p p, 8 8 8p 2:7:(`@Ut==XODSGETACONNECTION92570-16257 REV.5010 871111 /SRC_92570/R6000/DSRTR.FTN=BDS_CONNUM DS_CONS \DSGETACONNECTION ־DSTRYLOGOFF GETSEQUENCENUM~~==pppp`NpH`@I(.`@MpFFhHL(+`@KhHJpFxG&FG`@I (.`p`@Ih  (@`p`~(?p88H( `4I??@pƏ99XmBDSFIXDCB92570-16257 REV.2326 830326 /SRC_92570/R6000/DSRTR.FTN9 A.MDS_CONS (DSFIXDCB  Z.ENTR .CPMDSFINISHggY88A(@(8p?Ap:A0:(((@`@>`@=p`@<`@;`gN;?@@+&I==Xs|DSBUILDNAMETABLE92570-16257 REV.5010 880103 /SRC_92570/R6000/DSRTR.FTN=C3| DS_OLDSYS DS_NAMEPTRS DS_MEM DSBUILDNAMETABLE\\SEXEC.CPM .EXIT .SCO .SST.LBTFMPCLOSEADDITEM CASEFOLD SPLITSTRING DECIMALTOINTTRIMLEN FMPREPORTERRORFMPREADSTRING FMPOPEN \//uppih`PhhXh 0(/yDSRTR: no such file NODENAMES::SYSTEM K A('`h('##8DSRTR: couldn't open file NODENAMES::SYSTEM #~~EQDDA%(p.ihp`h(76h(`(=p`A((G(J(J`p(hHP(p U Yhp J  c~GGac f`(u`p(q(u`@h`@p(G1DSRTR: Not sized large enough "A1(()ih(UU55[]**USE STREAM 11 FOR THESE GUYS**NODENAMES::SYSTEM ROS  P" $D V* /U@Av`6==X;DSGETNODENUMBER 92570-16257 REV.2540 850614 /SRC_92570/R6000/DSRTR.FTN=BDS_NAMEPTRS DS_MEM` DSGETNODENUMBER  Xz.ENTR .EXIT .SSTFINDITEMCASEFOLDSS((y ))A  5A757p `@9p4&47 p`(0`@@9p (2`:p `  S5 @;<<XUDSSENDRECEIVE 92570-16257 REV.2326 830326 /SRC_92570/R6000/DSRTR.FTN<++D=L DS_OLDSYS DS_LASTDS315ERR DS_OUTPARMS DS_INPARMS+x DSSENDRECEIVE  &&.ENTR DSERR MOVEWORDS #MAST GNODE #RQB#OVR&~~'L::p`p p`pp`(+p`@(%('`p88(pp4 9A~}}7>44 (XpxIN `(T`p(V` p` `P(\(`P(`(c`p(`P(g(j`p(`P(n(q`p(`}TT r P(u(x`p(`P(|(`p(`P((`p(  `p(  `p(VT!!v060504020100DS !@Vu==X~MDSREBUILDNAMETBL92570-16257 REV.2540 850616 /SRC_92570/R6000/DSRTR.FTN=BDS_NAMEPTRS DS_MEMDSREBUILDNAMETBL<EXECDSBUILDNAMETABLEDELETEITEMNEXTITEM <p a= DSRTR: Re-reading the NODENAMES file.PP$!&&A'LIKp`@HpG3GJp`(C`@HpGAGJIp()EPH@貨(0`@@9p (2`:p `  S5 @;<<XUCALLM.REL::RTE_6:5:22:128 644 0 0 13000 5310707773 34547 CALLM.REL::RTE_6:5:22:128 $ TCALLM REL +#+#+# oFST ;;Xſ cCALLM 92570-16262 Rev.6000 <910917.0032>/SRC_92570/R6000/CALLM.FTN;ss~JCALLM .NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN s~~ ).DAD*.DDI.EXEC.FION .SBST .SC .SCO .LBT .NFEX .IDLP .MBT-PRTN,CLOSE FMPCLOSE+FMPTRUNCATE %FMPPOSITION FMPPURGEHPCRTSENDCHAR (IFBRK HPZWRITELUREPORTFMPERROR'HPZFMPWRITE ~p $HPZOBUFRESET&HPZDICV HPZMVS"HPZOBUFUSED STRDSCHPCRTMENU #COMPRESSASCIIRLE!HPZSBTHPZGETNEXTTOKEN CASEFOLDFIRSTCHARACTERHPZDEFIBUFMOVEWORDS EXPANDASCIIRLEFMPREAD FMPOPEN TRIMLEN CLCUC ..mXFMPBUILDPATHFMPPARSEPATHHPZYESORNOGETRUNSTRINGHPZDEFOBUFLOGLU . b  J@@ PFp ` ҈0 pI` 0 pH` pG` ۊp?^d @(lk  (5q@ux ({H(fh u P ψ((  p<` pEh< p(~~xLLpi ; DEE ; (((p!(A ; EAE ; (((` pG( ; EED ; (((ApG( ; EE A; (Ĉ((p?( ; DEE  r ;  ~~~S@@ r(f8E8i((u v((ff v ~pF`(` P(  (,(`G(` ׊pF  F( (,( f v( ~ EE(, ppF`(-& ) , (,` ~PFh ΀XF (=< (fI v  ~FFFF | (O(T(Th `  ~pE`?([` ӀpE9'[DDg v  ~ E |nf v ~pF`(zv y (1 p`(  (,P((( ` ՈP(((zNBB x((zp}pC`!( `}&@ op n  mpE`E(`}&@ op n ; m pEJ ; @} p|`|@ p;`}&@ op nވ; m ppD`??( `}&@ op n m (,`|@ p;; p`(  `}&@ op n m (1P(((` PD((/ ($hY FF# (1`@p;/;4 p@9P p;@ z;(H zh q P p;h q P 0;(X` p@A ; z@A z ; (d(g(g` pC~~{dfCC( ; zD@ z ; (s(v(vpC(A ; z@A z ; (((` P}(`}p}`}&@ op n mp(`C(`@@p; @;AA`@@(!~BB `?("p;#;(ݡ"p;  p;; ;$ `|@ p;%ֈ;& (1$'f( ` BB (1(( `p(((`|@ p;;@}p}`}(` @|@ p|((z(f v(%fzxA )xA* Ɖv+,fvH-0f(1,5ԡ-8.; dj``Operator BReak acknowledged.while writing output file File line # Error while compressing file data .INCLUDE.END.TOPICError in expanding compressed input while reading while opening ros Readin2``g while reading command filewhile creating output fileWOC CALL Command file must be type 3 or 4. Couldn't purge output file. Output file exists, OK to overwrite it? &dBNo&d@DDwhile openin( *XXg output file WOQ " not understoodOption "C O V L Enter "? callm" from CI for more help.usage: CallM [-lovc] command_file output_file@  zf @@D @  FF @& @f   !8 @D #Jn |    ! 6H bf v~  & .} 5 {*- t* PNO @mJ@@Xp?REPORTFMPERROR 92570-16262 Rev.6000 <910917.0032> /SRC_92570/R6000/CALLM.FTN@REPORTFMPERROR ((.ENTR .SBST .NFEX HPZMVSHPZSBTTRIMLEN FMPERROR(FF<''99@:p8!;$A;p66;=6.61>49FI9  @vH@}p}`}(` @|@ p|((z(f v(%fzxA )xA* Ɖv+,fvHDL.LOD::RTE_6:3:2:33 644 0 0 1000 5310707775 33420 DL.LOD::RTE_6:3:2:33 $ l!DL LOD +#+#+#oFST * DL.LOD 92570-17012 REV.6000 <901116.1315>* * Loader command file for CI's directory listing program -> DL. * IF,A,PC,0,0 EB!* DL requires about 24 pages to run; sizing it larger allows it to!* handle bigger directories.SZ,32 * re,dl.rel ,,, program body re,%dl000 ,,, message data of DL * END  ,,, message data of DL * END ~~n n~ RN  N ~.fnR  v~>v>~nfFST.LOD::RTE_6:4:4:38 644 0 0 2000 5310710003 32520 FST.LOD::RTE_6:4:4:38 $ &FST LOD +#+#+#oFST * FST.LOD 92570-17023 REV.6000 <920521.1226>if a PC,10,10 SZ,32 EB&****************************************************************************&&* This EM command can vary from 50 to 125; the more the faster. *&&* Note: The size of the SHEMA partition required will be one page larger *&&* than then EM size given below. *&&****************************************************************************&EM,125&******************((**********************************************************&&* This next line is the one to change if a different Sharable EMA label is *&&* needed. Change the 'FST1' to your new label. *&&****************************************************************************&SH,FST1 li,fstlib.lib if a li $fsta if 6 li $fst6 re,%fs000 re,fst.relenFSTP.LOD::RTE_6:4:1:23 644 0 0 400 5310710005 32423 FSTP.LOD::RTE_6:4:1:23 $ FSTP LOD +#+#+#0oFST * FSTP.LOD 92570-17024 REV.6000 <920521.1226> if a PC,10,10 EBre,fstp.rel enCLOSE.LOD::RTE_6:3:1:23 644 0 0 400 5310710007 32563 CLOSE.LOD::RTE_6:3:1:23 $ CLOSE LOD +#+#+#6oFST * CLOSE.LOD 92570-17028 REV.6000 <901114.1550>IF,A,PC,0,0 re close.relre %cl000 en closeP-MZPeumZmmm-T-aemmZ=Z-eum -pmpmmEm}mm}eU-m mmmmmmmZ} uM`M}#CIX::RTE_6:4:3:31 644 0 0 1400 5310710013 31445 #CIX::RTE_6:4:3:31 $ #CIX +# +# +# ,oFST * #CIX 92570-17032 REV.6000 <920604.1529>* * Loader command file for CI's auxiliary program -> CIX.* * IF,A,PC,0,0 EB* Sizing CIX up will cause some operations to run faster. SZ,32 * li,$crlib ,,CI library * re,%cix ,,CIX main * IF A li,cisubnc.rel ,,pull out pu6 and the AT commandIF A re,cisub.r000 ,,pull out the at command usage messageIF 6 li,%cisu6 ,,pull out pu6 * re,%cx000 ,,CIX message file li,%cr000 ,,CROUT message file * END,cix MPACK.LOD::RTE_6:4:1:23 644 0 0 400 5310710016 32617 MPACK.LOD::RTE_6:4:1:23 $ MPACK LOD +# +#+#?oFST * MPACK.LOD 92570-17034 REV.6000 <901116.1634>ebsz 32 em 32 pr 80 re mpack.r000 re mpack.relen FVERI.LOD::RTE_6:3:1:33 644 0 0 400 5310710020 33006 FVERI.LOD::RTE_6:3:1:33 $ !FVERI LOD +#+#+#r oFST * FVERI.LOD 92570-17035 Rev.6000 <901116.1737>* !* This is a loader command file of FVERI with relocating IO binary!* relocatable catalog for native 1000 . * EBsz,32 re,%fv000 re,fveri.relen 0--]jFPACK.LOD::RTE_6:3:1:33 644 0 0 400 5310710022 32734 FPACK.LOD::RTE_6:3:1:33 $ !FPACK LOD +#+#+#{ oFST * FPACK.LOD 92570-17036 REV.6000 <920527.1120>* !* This is a loader command file of FPACK with relocating IO binary!* relocatable catalog for native 1000 . * if a PC,31,20 EBsz,28 re,fpack.relre,%fp000 enTF.LOD::RTE_6:3:4:33 644 0 0 2000 5310710024 32425 TF.LOD::RTE_6:3:4:33 $ !TF LOD +#+#+#oFST * TF.LOD 92570-17043 REV.6000 <920527.1117> * ***************************************************************** * * * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1990. ALL RIGHTS * * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, * * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAMMING LANGUAGE * * WITHOUT THE PRIOR WRITTEN CONSENT OF THE HEWLETT-PACKARD * * COMPANY. * * * ***************************************************************** * * Link command file for TF. * * The value in the EM command may be increased to allow larger * copy command groups. * if a PC,10,10 EBEM,11 LI,TFLIB.LIBRE,TF.REL END WHOSD.LOD::RTE_6:4:1:23 644 0 0 400 5310710027 32506 WHOSD.LOD::RTE_6:4:1:23 $ WHOSD LOD +#+#+#i pFST * WHOSD.LOD 92570-17066 REV.6000 <911122.0836>* * Link command file for WhoseDir utility. * if a pc,31,0if a he,4300if 6 sz,32re whosd.rel ,,WhoseDir main program * END FOWN.LOD::RTE_6:3:1:33 644 0 0 400 5310710032 32374 FOWN.LOD::RTE_6:3:1:33 $ !FOWN LOD +#+#+#{ pFST ((* FOWN.LOD 92570-17069 REV.6000 <920527.1119>* * This is a loader command file of FOWN with relocating IO binary * relocatable catalog for native 1000 . * if a PC,0,0 EBsz,32 re,fown.rel re,fown.r000enPASCAL_FMGR.LIB::RTE_6:5:583:128 644 0 0 443400 5310710040 34632 PASCAL_FMGR.LIB::RTE_6:5:583:128 $G8GPASCAL_FMGR LIB +#+# +# G#9p FST &DDXeȉ:% 8PASCAL_FMGR 92833-16107 REV.6000 <920930.1 920930.1958 /P1K/LIB/STD/PASCAL_FMGR.PASD@eDDXd PAS_FMGR_TMP870720 870720.1931/P1K/LIB/STD/PAS_FMGR_TMP.PAS D@>>XLV$PAS.FMP 92833-16108,REV.5000,870622 870622.0835 /P1K/LIB/STD/FMP.PAS>@LBBXeV$ PAS.READSEQUENT 92833-16108,REV.5000,870622 870622.0835 /P1K/LIB/STD/FMP.PASBgHPAS.READSEQUENT >> z .DCO .DIN.DIV.DLD.DSTEREAD PAS.DCBADDRESS1 PAS.FILEERROR PAS.IOERROR PAS.NONCDS>--o`>PU(`>PV((`?Pb( `(p<p?-'==`(p8p(`GpB`BA@WpC'AG`A@Vp>`B@XPT(5PU(uPV((:`B@_pD`B@]pE`B@YpFFA?DE<F`B@YhB@HYpDD D`B@[RCCpD`B@Y D(ZpDCLc0DLC`?(kAj?G(t`B@]AP<(ttPG(:`B@]p=`>PU(`B@]A@a(`=p=`BA@_pDA?D=<`B@]P@@p`SRVW`R(E%%QBERX`T@g@6`hH`T@fhXHeY%!!=Z`Y([pX8Y(  !@>>X4V$!PAS.PUT 92833-16108,REV.5000,870622 870622.0835 /P1K/LIB/STD/FMP.PAS> :kPAS.PUT < GG v .DCO .DIN.DLD.DST .SBTEWRIT PAS.DCBADDRESS1 PAS.FILEERROR PAS.IOERROR PAS.NONCDSPAS.WRITELINE G(<<`p`@Јp*A(̀(`@P((7`@hH@(!`@ׂ@6`@`@ `@hHԀ 0(>XGV$"PAS.PROMPT92833-16108,REV.5000,870622 870622.0835/P1K/LIB/STD/FMP.PAS>9PAS.PROMPTk.SBTPAS.IOERROR PAS.NONCDSPAS.WRITELINE qqz77`8@C*B(2`8p7`7@DB(`7@E@6`7@D`7@Dh7HD `7@E@6`7@D`F`7@Dh7HD A8(66A89q:: `9(;p889( _@AAXYV$$PAS.SETUPFILE 92833-16108,REV.5000,870622 870622.0835 /P1K/LIB/STD/FMP.PASAPAS.SETUPFILE ||.DCO.DDI.DIN.DIV.DLD.DMP.DST.ENTR .LBT.MBT.MPY.SBTECREA ELOCF EREAD EWRIT LOGLU NAMROPENF PAS.CLOSEPURGE PAS.DCBADDRESS1 PAS.FILEERROR PAS.INLINEERROR |JJ PAS.IOERROR PAS.NONCDS PAS.OPTDECODE PAS.RUNSTRINGLENPAS.RUNSTRINGPTR PAS.SINGLEMOD PAS.WRITELINE POSTRWNDF J-zHHpp爀`@Bpp  (((A AA('('(>h6@HHPI(8h6@HHPJ(8(>AD(`WppA 1HAAAA(O(O(kh6@HHPJ(kh6@HHh6p@H`DA(rh6@H`I88(B z`P<(P=(P@(PA(PB(PC((GGSp`p(p(p(`p(FX0F(EX0E(( `pG00 rA(`(`( pp0LL(h/6`46!`A@T(!`A@M(` AR@Kh/H6H>` AMp. ."#@Kh/6H?` AEp. ."$@Kh/6H@D "%@Kh/%%bH6HA(*`(* (&p`p0%EE1 A/(5PASCAL`@C(@`@>p`@B%=(J`@Ip`@B@UQERAA(8`@B@0S'`@C(l`@GPN@>p(q`(q`?p`@CP>(`@GAL@)AAA'((AA`(`(`@G22RAP( +p`@GA `(h 2HDD(Sp^^@p쀄`( +,p]`]P?(Ɉ(Q`@BpdPpedHX0eHdA`(p(`PW((`@B*=(`P@FF((`( `(   p`(((`A( p(0`](0`_(0hqD6*]hq6 p]`]P=(4(P`@B@0P@@ǁ:##AC'''`(O`(O Mp(\`(\`]P?(\A Z-pg@h==`g(ipf8gfp_(`(`@CP>({(`@Dh`@B*=(`P@((`@Fh( .p`@B)=(`(`GGA( pA`(`(  p`@CP>(4`@B)=(`@G(ሄ`@Ep/($P(`@B%=('HHp(`Op`@GA Àh AAAA1AA)A`@Ep`($`@C($`@GAP($ "+p@`@EA/(-(4(4`@EpAA354BB`(`P<(CP=(DP>(VP?(aP@(u((`(U`A@?p O56(U U7(`P=(``P>(`A `8(`(t`@Hpm0`(tA t(`{{GvDDP=(|`P>A(|( 9p`@B)=('`(`(A ppP((`@Hp0`(`( (HhQ{;EE8(rp`((p`A@넁(h6@HPI((`p(`A@(p`(@h6(h6Ap A`@B/=p AA`(;`(`(p (6`@Bp  *=(. '=(.AA. )=A(66`(;p`@Bh`@Bp  OX0O `(O`(OjN@@(]`@((Bp `p  OX0 O ppp(g(hh6  p`(`(`@B*=(pppppQ`@B@V+qHH0 `:6h;6A!''`PX(`( AA p( !p`((Ј(`(Ҁ`@>pHHpp`p g (p`p$$;g'`@6`;6A!`($dd)CCApppp( Y[\ G   ,02dt'd@j*AAXzEV$'PAS.CLOSEFILE 92833-16108,REV.5000,870622 870622.0835 /P1K/LIB/STD/FMP.PASAY)PAS.CLOSEFILE pp .DAD .DDE.DDI.DIN.DLD.DMP.DSB.DST.ENTR .LBT.SBT ECLOS ELOCF EWRIT PAS.DCBADDRESS1 PAS.FILEERROR PAS.NONCDSPAS.OPTDECODE PAS.WRITELINE RWNDF p `( `APD(  & v BB(`&@8/5p p`A@(*h(6H@HP=(&(*`p(p`8A@(Y`A@(Nh(6@Hh46p#@H`#`p(UNBBh46@HH`=`p(,^`P6(dP7(g(jp (jp (j`&p!`!@8p""+5(y"*5( "*5("'5(&&")5("*LL5("&5(`&@""?" (( A    )],, *A&'p(   ,@7??X(V$(PAS.POSTFILE92833-16108,REV.5000,870622 870622.0835/P1K/LIB/STD/FMP.PAS?)PAS.POSTFILE .ENTR PAS.DCBADDRESS1 PAS.NONCDSPOST A A ` p` eiA( @g[??X V$)PAS.FILENAMR92833-16108,REV.5000,870622 870622.0835/P1K/LIB/STD/FMP.PAS?PAS.FILENAMR << Ǟ.DST.ENTR .LBT.MBT.SBTPAS.DCBADDRESS1 PAS.DOUBLE2ASCIIPAS.NONCDS PAS.SINGLEMOD <%HHh6`6A`@6(<p̀`@6 hA A!p`(&(;h6@Hh6p@H``p@p("(Ȉ`pp̀`@6@H~~_/HDDh6p@H`88(@h6H`h6H`Hh6HA`f̀pɈ`p`p rhA A}p`((h6@Hh6p~wwx.==@H``p@p(~h6@H``p`@ p`((h6@HHh6p@H`H`p@p(w**7A( @  -:*@w>>X<V PAS.ETC_A 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS>@|<@@X"V PAS.UPSHIFTALPHA92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS@PAS.UPSHIFTALPHA 4.ENTR PAS.NONCDS,,~^`@!( `@ ( `@!@p(`p`,TAp`p( IA @==XV PAS.MIN 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS= A`PAS.MIN  4.ENTR PAS.NONCDS$$4`A@( `p( `p`$BApp(@N==XV PAS.MAX 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS= KXPAS.MAX  4.ENTR PAS.NONCDS$$4`A@( `p( `p`$BApp(@~>@@X|pV PAS.DOUBLE2ASCII92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS@ZpPAS.DOUBLE2ASCII ++ R.DDI.DLD.DMP.DNG.DSB.DST.ENTR .SBTPAS.NONCDS+^QQAf( AAfd(fAdpa`apahb hhb jdjhhdhhzhxhm6pl@aH`l hbA hAAdhAAdd (f(]`bP~''RQ(S(]`apahm6@aH` `apc`cp'1Vq AAmnAfopb(0 x~ - @CbX@@X{guVPAS.ASCII2DOUBLE92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS@iQPAS.ASCII2DOUBLE0K.DCO.DLD.DMP.DSB.DSTPAS.NONCDSGG`I@tpHpGNk( ( (/AANk((-(-`J(`rA@H()`J(*`sA@H(*(,pG(/pG`G(CpKhH AALNAAmLAN(EpK`KQBB,R`Q(SpN8Q`Q(YpO8Q`Q(_pP8QOpJPpI`qpK(334 B q @SrB??X,eVPAS.REAL2ASCII92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS?sPAS.REAL2ASCII rr? ..TCM .CFER .DIV .ENTR .MPY .MVW .SBT.TADD .TDIV .TFTD .TMPY .TSUB PAS.MAX PAS.MIN PAS.NONCDSPAS.REAL5OPSPAS.REAL5TRUNCPAS.REAL5UNPACK PAS.SINGLEMOD r `ph6@H`   GHH` (p 8  p (`h  `(!  A(A`p`A(:`p`A(F `pp`bp`^p`@pƀ` VLL@p с`(A`]ňA@pn A `( h!`"A @p(`A(`]@ph!`" `p@p~~HDD8(O`Pap`(`A@p`(`@c@d@d@dpp@ppʀ`p(Ap`A@pp`ʈ@p`~`LL(`h  `(  AA p`Ljp`((,`[(!` @pAՁ`]@p!`p` A\Ap(A6J2EEA `(R G;`pƈ`0(Q`p(6p`(Z (_`(_ `p(p`p`Pʈ(l(n AqpĈ`@`p xx~wEEh AA  ;@pň8(h`( `( `p( ` A_@`p A@`p `p`̀xYYA pˈppɈp(@PP- .+ 16PdN _^6G lN[PdN _^G )R6N[kr[  0'@)HAAXVPAS.FREAL2ASCII 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PASAKPAS.FREAL2ASCII } XXh..TCM .CFER .DIV.ENTR .MVW .SBT .TADD .TDIV .TFTD .TFXD .TMPY .TSUB PAS.MAX PAS.MIN PAS.NONCDSPAS.SINGLEMOD X `mpmh6@mH`   FF` (p 8  p (`h`(!A`po`oA(6`pq`oA(B`prpw`p`܈pv`w@wpw`v @THHp~`r(m~`A(l@wpw({~`({A ~`wpw@vpv8(K`{Ppp`p(`wA@zpp`p(`|@@@@:IGGpp@zpp{`{Apx(wpt`t@zpA{p{`{@tpx`r(`h`(Apv`xpt`t((`t(`v ?<EE@p `vpv`t AۈApt( A`( `wpw`p0r(`xpx(pm`q( (`p( `xp(Fp`pv`vP{()U(EE(+  xu`u@ވp hu  @vpv8(%`p(i y`w(((T `wpw(V `w A݈@p Aew@p `mp}`}]]==Ap|p{pzpy(@PP- .+ PdN _^6G ߂lN[]  0'@V??X^VPAS.PARAMETERS92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS?<PAS.PARAMETERS~ ++5.ENTR .LBT.SBTPAS.NONCDSPAS.RUNSTRINGLENPAS.RUNSTRINGPTR+22Wp`p`A@(h6H@Hpp`2::`p(`3(!(,(,`PЈ(((+@3p3(`3p4`46:D7??`6(8p5865p3`p4(ppppp`(h`A@(e(e`ph6@H`H(O`p(`p6((`P(`/v??A@(`P(`(`p`((`ph6@H`(o(p`p`((`hAH( (xph6@HH`8(8( t` App(B  , @9F@@Xg+VPAS.REALROUND 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS@%GPAS.REALROUND $$3.DLD.DST.ENTR .FAD.FIXD .FSBPAS.NONCDS$((AA%A(AD'A(AD'( AAA(@@g'@@Xo?VPAS.LONGROUND 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS@,L*PAS.LONGROUND **a.DLD.DST.ENTR .MVW.TADD .TFXD .TSUB PAS.NONCDS*--A!3`!(%7%(A!7AA!A*-!!ׄ+A)`)h> A.DAD.DCO.DDE .DIN.DLD .DSB.DST .ENTR PAS.NONCDSPAS.SETMEMINFO2 PAS.SHAREDSIZE>oo3HHApHDKKs(F(FO(FM(FOK(((FAAK OD aMa(*A(*(FOADMIOQISOUIWDQpH`HeofAA ccAAOdAM`wpH( ;w @3RAAX\xVPAS.A1SETSHARED 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PASAmjePAS.A1SETSHARED ?? ;s.DAD.DCO.DDE .DIN.DLD .DSB.DST .ENTR PAS.A1SHAREDSIZEPAS.NONCDSPAS.SETMEMINFO2 ?oo3HHApHDKKs(F(FO(FM(FOK(((FAAK OD aMa(*A(*(FOADMIOQISOUIWDQpH`HeofAA ccAAOdAM`wpH( ;w @C@@XQVPAS.CLEARFILE 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS@8 PAS.CLEARFILE UPAS.DCBADDRESS1 PAS.NONCDS& A ` @  4U ` ( p 8 ( @)GAAXD'VPAS.MAXPOSITION 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PASAPAS.MAXPOSITION 08.DLD.DSTPAS.IOERROR PAS.NONCDS,,7$`@%( `@&(A A"A,4`(p8( % @Ь@@X/VPAS.LASTPOSITION92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS@ PAS.LASTPOSITION0ک.DLD.DSTPAS.MAXPOSITION PAS.NONCDSڲAA A 3F ` ( p 8 (@3AAXOMVPAS.APPEND_FILE 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PASAS>PAS.APPEND_FILE Ύ.ENTR .SBTPAS.NONCDSPAS.SETUPFILE qqZ[77`8p79(`7@EhD`7@F `7@G `7@JhL(`7@EA #8C:;<=B9(6`7@Ih7HF`7@H `7@K@6`L>q?A8(`  @Z@@Xj/VPAS.OPEN_FILE 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS@N&PAS.OPEN_FILE .DST.ENTR PAS.NONCDSPAS.SETUPFILE 99` p`@, `@-p `@.pA A +"#$%*&9w'A ( ` @i鈩??XTFVPAS.RESET_FILE92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS?u8PAS.RESET_FILE].ENTR PAS.NONCDSPAS.SETUPFILE gg#11`2p13(`1@?h>`1@@ `1@A `1@DhE(`1@?A #2=4567<3(0`1@Ch1H@`1@B 8gz9 A2((` @a@@X~MVPAS.REWRITE_FILE92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS@P>PAS.REWRITE_FILEΎ.ENTR .SBTPAS.NONCDSPAS.SETUPFILE qqZ[77`8p79(`7@EhD`7@F `7@G `7@JhL(`7@EA #8C:;<=B9(6`7@Ih7HF`7@H `7@K@6`L>q?A8(`  @s??X:]VPAS.APPENDFILE92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS?hPAS.APPENDFILEv  ?6.ENTR .LBT.SBTPAS.NONCDSPAS.SETUPFILE L==`p`p( h6(h6Hh6 `@`@(=`@h`@ `@`@ `@h`@@6`(E}}=AA`@ `@P(I(N@6p~`~(\@6 D6e`~(m@6`@P(s(}`@hH`@ }GA(`  @>>XvVPAS.OPENFILE92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS>,iPAS.OPENFILE $$.DST.ENTR .LBT.SBTPAS.NONCDSPAS.SETUPFILE $~~5 @@``p^`^p_e( h_6e(h_6Hh_6 b`^@pc`^@qd`^@r `^@sp_ _`^@up_A _`^@taePo(8(=f@6p]~44 @`](Kf@6 Df6T`nefghm`](\f@6i4{j A`( ` @@@XqLVPAS.RESETFILE 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS@=PAS.RESETFILE |  ?6.ENTR .LBT.SBTPAS.NONCDSPAS.SETUPFILE <<`{py`ypz( hz6(hz6Hhz6 }`y@~`y@|(7`y@h`y@ `y@|`y@ `y@h(?`y@ `yrr<<<@|P(C(H@@6px`x(V@H6 A6_{`x(g@H6`y@P(m(w`y@hyH`y@ r)A{((` @UAAXVPAS.REWRITEFILE 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PASALPAS.REWRITEFILE v  ?6.ENTR .LBT.SBTPAS.NONCDSPAS.SETUPFILE [<<`p`p( h6(h6Hh6 `@`@(7`@h`@ `@`@ `@h(?`@ `}}WrPAS.SPLITMOVE 0&&\.SBTPAS.IOWARNING PAS.NONCDSPAS.PUT PAS.WRITELINE &CCpl`o@hoH@Ap(opl(-`o@phoH@A@(-+oo`l(A`o@h`mpA(:(@opp(4(g`mXXC((p(G(g`o@pk`o@@6HHk``kpkpp`mp(K`o@hk`o@@0`lpn`nrX;;4s`r(tpo8r`r(zpp8r`r(pq8rqpm`pn(;:   @AAXVPAS.WRITESTRING 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PASAPPAS.WRITESTRING }77.ENTR .LBT.SBTPAS.IOERROR PAS.MOVEBYTES PAS.NONCDSPAS.PUT PAS.SPLITMOVE 7%BB`{(~~{|(<`z('`{(&p}pyh6@yHh~H~8y8}((;`{(;p}py`~@HyHA~8y8}(/(w`~@px`zooB66(Q`~@p}AM}x{`x@{px(i`{(ip}py`~@@6Hx@y@H`xpx8y8}(Y`{(m(w`~@hx`~@@0o""oA~p|p{pz( "@@@XjVPAS.WRITEENUM 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS@^PAS.WRITEENUM ]?? .DAD.DST .ENTR .LBT.MPYPAS.IOERROR PAS.MOVEBYTES PAS.NONCDSPAS.PUT PAS.SPLITMOVE ?EE`(`(`p`p`(`A@A(`p`@@p`p`A@(Ah Ah6AH P(A`p((`(H`mEBB@p(r`@@p`hAH([ (qxph Ah6AH hAH8(o8(](`@p`@pA`@p`((T6 `@h`@@0))ΆA pppp(  )@f&@@Xh3V PAS.WRITECHAR 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS@E(PAS.WRITECHAR ((.ENTR PAS.IOWARNING PAS.NONCDSPAS.PUT PAS.WRITESTRING (EE""`$P/(p#p"%&#$"(!`%@0h%H1((.%`%@2&%(E=) A%'p$( @=\C@@X{QV PAS.WRITEBOOLEAN92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS@H>PAS.WRITEBOOLEAN&&4.ENTR .LBT.MPYPAS.NONCDSPAS.PUT PAS.SPLITMOVE &ggÌ55A;8F(`9( p9`9(`8@Pp6`6h6H8AH( (4x:Ap5`N9@G@6H@5Hh;AHO;85(28:(!>g##=?A;@@0p-`-2b43`2(4p182(%< @{Y>>XV'PAS.LINESIZE92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS> PAS.LINESIZE 4.ENTR PAS.NONCDS[ ` @h H@p `   eaA (  @@@XG#V'PAS.FILEPOSITION92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS@PAS.FILEPOSITION08.DLD.DSTPAS.IOERROR PAS.NONCDS''`@!( `@"(AA'4`(p8( ! @ja!>>((XAV(PAS.SEEKFILE92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS>5PAS.SEEKFILE##xn.DCO.DLD.DST.ENTR PAS.IOERROR PAS.NONCDS#bbӑ00`3p0`0@:p1`0@;(+`0@<p242`0@=p2@`0@<A2(p21L@02L11?11>1(//935b 6 A3( @AAX~RV(PAS.READNONTEXT 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PASA_;PAS.READNONTEXT %%PAS.IOERROR PAS.MOVEBYTES PAS.NONCDSPAS.READSEQUENT %hh77`9@Mp77,L( A I9(7+LA(J9(7.L(A97Q770P7`9@Op7`9@N p867K:K8;h..<`;(=p98;`;(Cp:8;(  .@qP@@Xg+qV)PAS.REFERENCE 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS@+[PAS.REFERENCE  !.LBTPAS.IOERROR PAS.NONCDSPAS.READSEQUENT ==`ZpX`X@gpYY-e(VY,e(cZ(V`X@hPd(Pe(PfA(!(PZ(P`X@iA((Z`X@kpW`X@j@W(=`X@m@6HWHhXHl(H@@Z=`X@lhnY,e ehXHi`WpW`X@khW(PY0oYYpY[@((cR\`[(]pZ8[(  @(@==X!6V*PAS.GET 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS= 1[(PAS.GET  ]PAS.IOERROR PAS.NONCDSPAS.REFERENCE OOv''`'@3+2(  0'(&`'@3,2(1'(&A'`'@3@04`'@3@5(O) `((*p'8(( @ (o??XI DV*PAS.IENDOFLINE92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS?'W4PAS.IENDOFLINE  ,P.ENTR PAS.IOERROR PAS.NONCDSPAS.REFERENCE __000p1`2@B+@(`0(A<2(.2`2@C(`2@B,@(p1`2@B,@(.`0A(..=2`14_5 A23p0`Ap1( @ @}U@@XFV*PAS.ENDOFLINE 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS@P PAS.ENDOFLINE 01PAS.IENDOFLINEPAS.NONCDSAp` l ` ( p8 `p(  @R@@XG<V+PAS.ENDOFFILE 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS@H+PAS.ENDOFFILE 0]PAS.IOERROR PAS.NONCDSPAS.REFERENCE QQu''`*p(`(@:p))+8()*8(5*`(@;(),8(*`*@:,8p'`'+Qk, `+(-p*8+`9p'( 8 @{jAAX</V,PAS.READINTEGER 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PASA`|PAS.READINTEGER ##D.DCO.DLDPAS.IOERROR PAS.NONCDSPAS.READDOUBLE#..&A*( (,(((`(..))y`(p8`($p8( )@}1=??X3.;V,PAS.SKIPBLANKS92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS?-PAS.SKIPBLANKS ''n.ENTR PAS.ENDOFFILE PAS.GET PAS.NONCDSPAS.REFERENCE 'YYs**A, 5p*`*(!`,@8P9( (`,@7,5(`,@7@A0:,(, 5p*`*(&A,`*p+`+-Y.A,`6p+(25 @e??XA=rV-PAS.READDOUBLE92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS?Y\PAS.READDOUBLE@@ {^.DLD .DNG.DSTPAS.ASCII2DOUBLEPAS.GET PAS.IOERROR PAS.NONCDSPAS.REFERENCE PAS.SKIPBLANKS@j BBA [AZ(UpWpV`Z@l,k(U`Z@mPopX`X($`Z@mPn($(&AAZZ`Z@m@q(E`Z@m@p(EpW`Z@mpY[XY k0VpVAZ''BAZ((`XA(M[D [`W0V(UUjZ\'--]`\(^pZ8\`\(dp[8\(  +--@??XOW}V.PAS.READSTRING92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS? ivPAS.READSTRING++ I.ENTR .SBTPAS.ENDOFFILE PAS.GET PAS.IENDOFLINEPAS.NONCDS+"GGApqrA(rAr(Hu(-tA@q(,rz(,hs6@qH`r@{Ar`qpq((HtA@q(H9rz(H@q@shrH{Ar`qpqUUsG**(-u(_tA@q(^hs6@qHH`|`qpq(K(ptA@q(p@q@sh|`qpq(_vUicwAr( @ٜ>>X)V.PAS.READENUM92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS> PAS.READENUM ``R .DAD .DCO .DDI .DIN.DLD .DNG.DSB.DST.ENTR .LBT.MPYPAS.BITMASK1PAS.GET PAS.IOERROR PAS.NONCDSPAS.SKIPBLANKSPAS.UPSHIFTALPHA`BBA(`@%p`@$@(p` ,H@A((`p` ,HH@(@`@#A@㄁(@`p`@&@6Hp(!`BKK@p`A@A(QP(`䈄@p`A@h D p`(߈`phA  AAAAA (zp`((`A@(`JJ@&@6HHApph6AH PA((D `p(`㈈P((h  ((h6 P'p`(h  `(pvS Ap88((cKKb22Ap爀p(  K@=>>XBV/PAS.READCHAR92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS>-PAS.READCHAR]PAS.IOERROR PAS.NONCDSPAS.REFERENCE XXF++A+`+@?,`+@>+=(;+(*`+@>,=(<+(*`+@>@0@`+@>@A-X++&.`-(/p+8-`-(5p,8-( +@)>>XV0PAS.READLINE92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS> PAS.READLINE PAS.GET PAS.IENDOFLINEPAS.NONCDS~ A A(  (  4V` (p 8 (@5??X)9TV0PAS.READBUFFER92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS?q7PAS.READBUFFER 2PAS.MOVEBYTES PAS.NONCDSPAS.READSEQUENT hh11`4p1`1@Mp22-LA( 4`1@O6`1@N(&66`1@P6`4@Qp3&3K5K620R22S2`1@N 7h::i8`7(9p487`7(?p587`7(Ep687(  :@bف??X/V1PAS.CONVERT 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS?3PAS.CONVERT HH `.DCO.DLD.DST.ENTR .LBT.MVW PAS.BITMASK1 PAS.BOUNDINTEGER PAS.INLINEERROR PAS.NONCDSPAS.SHIFTNPUT H BBp(h(A -( ( (h/6@(HHP((`(p((h( A-(!(!(h( -(*(*(7h/6@(HP(3(7`(p((!`(p'h' -(B(B(UBBBh/6@'H ,HH@ (U`'p'(9h' -(^(^(ih/6@'HP(i`p*(`(@'p`A@(`P(y(h/6@(HHh@(f(`p*(`p*[DDA`hA=pp(`(A@'(h/6@(Hph/6D@(H 09 (@ AF ( af ((`@p(`@@}p(爈`@@}p(h  A2)`(p((ffh448(p*A 2`+Py(P|( P~((D>?p)(U@A`zp)(fBC`{p)(Hh `*(##`*p,`,3f^^-4CCAA/0A-1p+( ((1 3f~~^y  0`ab k @b"==X-V2PAS.BINARY92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS= PAS.BINARY ))s6.DLD.DST.ENTR PAS.CONVERT PAS.NONCDSPAS.RUNTIMEERROR)&&A*p`A(AAA &.L! AAAp(@v~>>Xa-V3PAS.OCTAL 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS> PAS.OCTAL ))s6.DLD.DST.ENTR PAS.CONVERT PAS.NONCDSPAS.RUNTIMEERROR)&&A*p`A(AAA &.R! AAAp(@g'==X!-V3PAS.HEX 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS= F] PAS.HEX  ))s6.DLD.DST.ENTR PAS.CONVERT PAS.NONCDSPAS.RUNTIMEERROR)&&A*p`A(AAA &.Z! AAAp(@1AAXV4PAS.HALTPROGRAM 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PASAYtPAS.HALTPROGRAM DD E .DDI.DLD.DST .ENTR .LBT .MBT .SBTLOGLU PAS.DOUBLE2ASCIIPAS.NONCDSPAS.STOPPRTNREIOD\HHAN(9h6`6A |`pMaN}pL`L((,`MpMh6@LH h6pq@MH`q @LpL(A/Lpq`Mpr9~qUr`OpPN xQpRpSApTI :HPKt ++_uAA ssAN( UaPascal Halt: +@*LI <<X\V4PAS.HALT92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS< PAS.HALT !!S.DLD.DST.ENTR PAS.HALTPROGRAM PAS.NONCDS! A ZAAA(@?^>>X V4PAS.HALTONLY92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS>3PAS.HALTONLYdPAS.HALTPROGRAM PAS.NONCDS A 8(@L= ==X5ȉ' 8PAS.NONCDSLIB 92833-16119 REV.6000 <920930.1937>/P1K/LIB/STD/ETC_B.MAC=PAS.CDSCONFLICT PAS.NONCDS@;;Xڑȉ' 8PAS.BOUNDINTEGER92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;JPAS.BOUNDINTEGER ).DLD.DST ,,A8(A@AA8,@ٌ;;Xaȉ' 8PAS.BOUNDDOUBLE 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;HPAS.BOUNDDOUBLE N.DCO.DLD.DST000`p@p( (88((( 0  @3Q;;X+ȉ' 8PAS.RANGEINTEGER92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;TPAS.RANGEINTEGERQ.DLD.DSTPAS.RUNTIMEERRORFF!''(p'`(A (!A@((!`'AA88(A8&*(F * @og;;XW%ȉ' 8PAS.RANGEDOUBLE 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;RPAS.RANGEDOUBLE .DCO.DLD.DSTPAS.RUNTIMEERROR>>b  `p#@$p#8# (((# (( 8#"#(> " $ @[::Xȉ' 8PAS.CHECKPTR1 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:FPAS.CHECKPTR1  UXPAS.RUNTIMEERROR Ǭ x ( A h 8   @N\m::Xȉ' 8PAS.CHECKPTR2 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:FPAS.CHECKPTR2  UXPAS.RUNTIMEERROR ( (   8@~>::X ȉ' 8PAS.DOUBLEMOD 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:CPAS.DOUBLEMOD ##?.DAD.DCO.DLD.DMOD .ENTR PAS.RUNTIMEERROR#//٦((A /@~::Xȉ' 8PAS.SINGLEMOD 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:%BPAS.SINGLEMOD .DIV.ENTR PAS.RUNTIMEERROR00W~( ( `A0@|88X1ȉ' 8PAS.IMAGE092833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC8UPAS.IMAGE0((`.ENTR AVLMENDMLIMEM PAS.RUNTIMEERRORUNM2UNMEM (NN..A@`(+(pHpp(+A,.//@0@.(!!-@,`pHp@p@HcN 0 @ye88X3ȉ' 8PAS.IMAGE192833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC8UPAS.IMAGE122 }.ENTR AVLMENDMLIMEM PAS.RUNTIMEERRORPAS.TOPOFSTACK1 UNM2UNMEM 2PP800A@`(-(pHpp(-A.011@2@0(!!/@.`pHp@p@pHcP 2 @Rq88X3ȉ' 8PAS.IMAGE292833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC8UPAS.IMAGE222 }.ENTR AVLMENDMLIMEM PAS.RUNTIMEERRORPAS.TOPOFSTACK1 UNM2UNMEM 2PP800A@`(-(pHpp(-A.011@2@0(!!/@.`pHp@p@pHcP 2 @Rq::X6ȉ' 8PAS.PACKSTRING92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC: rPAS.PACKSTRING  j.ENTR .SBT  55>pph68H8(8`(5@r2;;X ȉ' 8PAS.UNPACKSTRING92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;bPAS.UNPACKSTRING  c.ENTR .LBT  88[ ppHh688(8`8(8@™99XYȉ' 8PAS.SEGMENT 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC9PAS.SEGMENTLOAD PAS.SEGMENTRTN.ENTR PAS.SEGMENTERRORSEGLD `p A @q ;;Xȉ' 8PAS.SETPACKAGE1 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;8hPAS.RANGESET PAS.SETTEMPORARY"".ENTR PAS.BITMASK1PAS.RUNTIMEERRORPAS.SETINIT " c  d FF  D P(8 D P(#8@pphDH0p2 (F @ H (J H,@H88() NO (I2%%zQhDHa0pZ (88(QP% hDDadee D P(x8db D P(8aehb (b@ppcf (HDHa0p (` ,@Hd88(cf88ֿ@(ppPcfepb(pPhg(8@Vu;;X8ȉ' 8PAS.SETINTERINIT92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;SPAS.SETINTERINIT.ENTR PAS.BITMASK1PAS.RUNTIMEERRORhh88Ap(1pA(1`@@788`PH (1 H,@H8(56h@U::Xȉ' 8PAS.SETDIFFER 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:4PAS.SETDIFFER .ENTR // 0 D p8888(/@oY99Xjȉ' 8PAS.SETUNION92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC90PAS.SETUNION.ENTR ..5 D p8888(.@U88Xȉ' 8PAS.SUBSET92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC8`PAS.SUBSET.ENTR 11>s D pp 88 8(X1@1*O;;Xȉ' 8PAS.SETINTERSECT92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;WPAS.SETINTERSECT.ENTR ,,4(( D p8888(,@xQ99XoVȉ' 8PAS.SETINIT 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC9APAS.SETINIT ?PAS.BITMASK1PAS.RUNTIMEERRORz  D pxp<<p8(p8p8p8`P(/`8` 8(1`(L8(MhH (M ,@H8(888(M5PATU(L@pt::X&ȉ' 8PAS.LONGNEGATE92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:*^PAS.LONGNEGATE  5?..TCM .MVW 55;.(p8( p8`hA5@&1D77Xȉ' 8PAS.TIME92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC7G=PAS.TIMESTAMP VPAS.TIMESTRING2.DIV.DLD.DST.ENTR .MVWEXECBB//ampm : . Fri Sat Sun Mon Tue Wed Thu Mar Apr May Jun Jul Aug Sep Oct Nov Dec Jan Feb B -56 := <`A`5h<=H @iM, 19 2P VAAU`A`GhUVf/4`1h0րAp1HR`2h@(uh`2xT`pQ`2h0Hp9 A`1H:`4@pOp6h3H`4 H HH`vvEEA@ ӈp/` pL0p8h/ HJ`/@@0րp7@4Q@4@3  HH`A @@0ը n 00v@9XS::X.ȉ' 8PAS.TRACEDUMMY92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:66PAS.TRACEBEGINPAS.TRACECLOSEPAS.TRACEENDPAS.TRACEINIT 6 tE @T::Xȉ' 8PAS.MOVEBYTES 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:TPAS.MOVEBYTES   d.ENTR .MBT ..Ap`6h6A.@k䊤;;Xo#ȉ' 8PAS.WORDBITMOVE 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;ZPAS.WORDBITMOVE  4g.ENTR .MVW >>a`hpx(0 p!x!x""p!0 >@Qo::Xȉ' 8PAS.SHIFTNPUT 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:OPAS.SHIFTNPUT .DLD.DST.ENTR ((Ap@!8( @(@{!;::Xȉ' 8PAS.REALINPUT 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:55PAS.READLONGPAS.READREALSPAS.SREADLONG <PAS.SREADREAL 5PP .DIV .DLD .DST.ENTR .MPY.MVW .NGLPAS.ENDOFFILE PAS.GET PAS.IOERROR PAS.REFERENCE PAS.STRGETPAS.STRIOERRORP   A  BB##p( `@P(((/(/( pu`|hBe<8SE89:K HKA ;<AAS!!Op`pt`OPtQ(e`tP(Zpu`|hR`tSPPSA 7u {KKv{ +-09` .LEle(ph(hpx`@P(p` h (@@(@  p(h@@X(`F@FhI @pF8G(`hh8 @F!(H(ވ`pGpFhI` HxI(Ĉ`F@}8I`GP@(2Pd} ~~ڍLLN azhv #( 8}A v5 @AA v xA@ @ x@}p}`z6pzA x AA x vA  v# p9QQ@@A(W(E(K(O w x`v(T vxy(R`vpy~dR??pxpwpv`97:08p`pdhx`ypyhw`xxwpx:`h pֈ`h  @H xP|(}@(o`vh (h( xv@}p}hppDqBBH}x}h!(x@ (` 6   HوhX|xHx(p@pH}x}`|pp@p(8HPHSp8؄ 50OO**8(¨`u(`(AOPtQ(pt(`t(`(AA`@ xO$99`|p`pGp}pvpwpxpypzpFpHpIppp~`p(8܀hH ( pH (/P(JP(JP(iP(]P(]P(]P(](z@r8(D8(C8ك7<<8h H Hhx(8~(@r(W((((U((pH(hX([(p(r((f(((((88(r(((((((~~6ss@@hDrhrH $r(((((((`u(Q(AhH|x`v0w( h8HH~HI(`hh}(6 ֈ0~$$ ( A`pvpwpxpy!(($@֊;;X ȉ' 8PAS.REALOPERATOR92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;77&PAS.REAL5OPSPAS.REAL5PACK ]PAS.REAL5TRUNC7PAS.REAL5UNPACK 70.DLD.DST.ENTR .MVW2@  "GG"`#hA`$h"H@`h%&A(^u%&xHD``!(e(e(ehHhG4AiCCx` p@ 8(mhixHXu(xx @8 8` AhHxD8AD8DhHi(>>(pp 88(`BppP (`P(@p (`i@p(AHH P(`@pSBB(1(p(u8(H`H xH` @hHd h d Ad ($h A(!`C(S 8,>>`(U`@(;@hxh(J(@@h(J@]!(UH(U   D(U`p `hc(hG(^xtiHa(oZZlj))(o (rhtc`phhh`h`8({`h`@ph`PGuZ??`(``hhG`P(Ȉ`p`hQh` uhu8(`P(hu(hu`h`@ph`PGZhxxh w bbڼ--` phGhG@pppp p!p @h``ch Xp ڈpH H hbzCCAA`hs`s`HH ``hA5A`5h`hxH Hx0[hH H ]]^Q22X(U(PAh6`7\`\hA`mh(`]n@ `@s`(`(E`(E]@::X;?ȉ' 8PAS.BLANKFILL 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:QPAS.BLANKFILL .ENTR .MBT.MVW.SBT  hhm77pp((`h`(>`@(>p` A(>`6h6A`(>x`@@(>p`h@::Xůȉ' 8PAS.ENTRYEXIT192833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:VPAS.ENTRY1GPAS.EXIT1 %%.MVWPAS.CHECKSTAKSZ1PAS.HIWATERMARK1PAS.TOPOFSTACK1 %u>>p8p8f(H`hxAx@``H@xpp(#(2`p@p`p`h(BX(B(8 8{3@==8(2vGp8GGp8Gf@GphH`p@p`pvG`pppp((pppf`p`Pv--}8(yhH hH @- _ @ȧ::Xmȉ'! 8PAS.ENTRYEXIT292833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:@@PAS.ENTRY2xPAS.EXIT2 PAS.RECVALPARM<PAS.RECVARHPO !PAS.RECVARPARM@== t.DAD.DCO .DLD.DSB .DST.LBP.MVWPAS.CHECKSTAKSZ2PAS.HIWATERMARK2PAS.TOPOFSTACK2 =}AAp8p8f(MbpWV  R ZxY`fpXbp]`]p\@k(&p]`jp\A`XhY\h\X](8pXhjZ ZxY(bJJ AA R g@ ~~eC88(MJ(M(I J p^cp_(Sh`^h_(eX(e(^_8^8_(Xf(v`ep```Pf(v`pa a8`(jfxp~_{>>8xxp8xhf@lfxAJ g AH ZxX`fpYbp]`]p\@k(p]`jp\`XhY\`\P](xYhjAAZ ZHxX(`ep```Pfx`pa ,,&&a8`(`pbpcpdpedpfpgph,jj66( Tp`@(䀀`fH A(RA 8Ψ TJp`T(((bT(((AJ TAHf`i ͈8j88*`(p8@(`f(hg`877!`!(#p8!`!()p @8! A (7΁ ` !733P<`<(>p:8<`<(Dp;8<`i: ;΁;`;:<3 V f,i @:Y;;Xjȉ'" 8PAS.CHECKSTAKSZ192833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;cPAS.CHECKSTAKSZ1%%.ENTR PAS.RUNTIMEERRORPAS.TOPOFHEAP1PAS.TOPOFSTACK1 %""np8`@@"  @M;;X~#ȉ'" 8PAS.INITMEMINFO192833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;PPAS.INITMEMINFO1RR x.ENTR LIMEM PAS.HIWATERHEAP1PAS.HIWATERMARK1PAS.LOWATERHEAP1PAS.LOWATERMARK1PAS.RUNTIMEERRORPAS.TOPOFHEAP1PAS.TOPOFSTACK1 R11< ! hxDxx@D@ppp @A"!1 ! @ة;;Xiȉ'" 8PAS.INITIALHEAP192833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;CPAS.INITIALHEAP177A.ENTR PAS.CURRMARC1 PAS.HIWATERHEAP1PAS.LOWATERHEAP1PAS.PREVFREE1 PAS.TOPOFHEAP17--`@p@p@@pp h -@ 99XBȉ'# 8PAS.MEMDATA192833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC9~~PAS.CURRMARC1  PAS.GETMEMINFO1 PAS.HIWATERHEAP1PAS.HIWATERMARK1PAS.LOWATERHEAP1PAS.LOWATERMARK1PAS.PREVFREE1 PAS.SETMEMINFO1 PAS.TOPOFHEAP1~PAS.TOPOFSTACK1  4g.ENTR .MVW S `h  `h@XwB;;Xqȉ'# 8PAS.CHECKSTAKSZ292833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;cPAS.CHECKSTAKSZ200.DAD.DCO.DLD.DSTPAS.RUNTIMEERRORPAS.TOPOFHEAP2PAS.TOPOFSTACK2 0))<@A8()  @%p;;X.ȉ'# 8PAS.INITMEMINFO292833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;PPAS.INITMEMINFO2}}8$$$LARGEMA1$$$$$$LARGEMA2$$$.DAD.DCO.DDE.DLD.DST.ENTR PAS.HIWATERHEAP2 PAS.HIWATERMARK2PAS.INITMEMINFO1 PAS.LOWATERHEAP2 PAS.LOWATERMARK2PAS.RUNTIMEERRORPAS.TOPOFHEAP2PAS.TOPOFSTACK2 } VMAST VV`..  hX-($` JFJJ  AJ)JJ  J($A(,+@V@8;;X7ȉ'$ 8PAS.INITIALHEAP292833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;CPAS.INITIALHEAP2GG Ŵ .DLD.DSB .DST.ENTR .LBPPAS.CURRMARC2 PAS.HIWATERHEAP2PAS.LOWATERHEAP2PAS.PREVFREE2 PAS.TOPOFHEAP2G\\:44 . 0  4x6  68686 4 6 8686 68686 6 2  \@P99XB'ȉ'$ 8PAS.MEMDATA292833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC9~~"PAS.CURRMARC2 PAS.GETMEMINFO2  PAS.HIWATERHEAP2PAS.HIWATERMARK2PAS.LOWATERHEAP2PAS.LOWATERMARK2 PAS.PREVFREE2 PAS.SETMEMINFO2 PAS.TOPOFHEAP2~PAS.TOPOFSTACK2 *.ENTR .LBPR .MVWߵ A`%& `h%&@n"::XiBȉ'% 8PAS.INITIALIZE92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:TT PAS.GETNEWPARMS  PAS.INITIALIZE2PAS.NUMERICPARMS+PAS.RUNSTRINGLEN0.PAS.RUNSTRINGPTR0PAS.STRENDS T.ENTR .MVWEXECRMPAR   MM ((<p`ppp x 8 `p (`p `+`.MB2 1`Ah1;2 ?A< @!;;X ȉ'% 8PAS.SETEXITPARMS92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;hPAS.SETEXITPARMS((<.ENTR .MVWPAS.EXITDATAPAS.EXITDATAPTR PAS.EXITDATASET (P `Dh p@c#;;X\ȉ'% 8PAS.RETURNPARMS 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;99~PAS.EXITDATA PAS.EXITDATAPTR PAS.EXITDATASET PAS.RETURNPARMS 9 .ENTR .MVWPRTN88A@¤::X ȉ'& 8PAS.STRENDERS 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:PAS.STRENDCHECK PAS.STRENDERROR 03.ENTR PAS.STRENDS  Hp`@;;X_ ȉ'& 8PAS.INLINEERROR 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;cPAS.INLINEERROR  UXPAS.RUNTIMEERROR px  @8V::Xȉ'& 8PAS.ERROREXIT 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:,GPAS.ERROREXIT  8KPAS.ERRORCATCHER ..qp`Hxp@p -.@sђ;;XTȉ'' 8PAS.DCBADDRESS1 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;'PAS.DCBADDRESS1 .ENTR   00`@@X(@@@X@(0@&WE;;XY ȉ'' 8PAS.DCBADDRESS2 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;(}PAS.DCBADDRESS2 ###;.DAD.DLD.DST.ENTR .LBPR PAS.DCBADDRESS1 #//xA hHAAAx/@99XK,ȉ'' 8PAS.INITFILE92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC9/PAS.INITFILE 4g.ENTR .MVW KK&&`@)h   (@*` h +K@+JI::X5Aȉ'( 8PAS.OPTDECODE 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:LPAS.OPTDECODE .DCO.DLD.ENTR :sharexclsavepurgcctlrewieof exte  PP+((h0?P@('`p(- ``p0?p@0?pAA88(5 noP@#s;;Xmȉ'( 8PAS.REALTIMESIZE92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;PAS.REALTIMESIZE  *\.ENTR .XLA @ku5;;X_ȉ'( 8PAS.REALTIMECOM192833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;kPAS.REALTIMECOM1  *\.ENTR .XLA @1XP;;Xcȉ') 8PAS.REALTIMECOM292833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;kPAS.REALTIMECOM2  *].ENTR .XLB O`@2;;Xqȉ') 8PAS.BACKGRNDSIZE92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC((_B.MAC;nPAS.BACKGRNDSIZE  *\.ENTR .XLA @7V@;;Xcȉ') 8PAS.BACKGRNDCOM192833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;QPAS.BACKGRNDCOM1  *\.ENTR .XLA @c#;;Xgȉ'* 8PAS.BACKGRNDCOM292833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;QPAS.BACKGRNDCOM2  *].ENTR .XLB S`@::X, ȉ'* 8PAS.BLANKSIZE 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:_PAS.BLANKSIZE .w$BCOM $FWSY .ENTR .XLA.XLBM> J@@@::Xu ȉ'* 8PAS.BLANKCOM1 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:BPAS.BLANKCOM1 $BCOM .ENTR .XLAj@C::Xv ȉ'* 8PAS.BLANKCOM2 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:BPAS.BLANKCOM2 $BCOM .ENTR .XLBMl`@z::X ȉ'+ 8PAS.LABELSIZE 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:KPAS.LABELSIZE y$BCOM $LCOM .ENTR .XLA.XLBM> J@@[::Xȉ'+ 8PAS.LABELCOM1 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:.PAS.LABELCOM1 $LCOM .ENTR .XLAj@f&::Xȉ'+ 8PAS.LABELCOM2 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:.PAS.LABELCOM2 $LCOM .ENTR .XLBMl`@;;Xtȉ', 8PAS.A1SHAREDSIZE92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;nPAS.A1SHAREDSIZE 5$IDNBR.ENTR .XLA1 VMAST ,,) A (`(hJ ,@YxH;;X~!ȉ'- 8PAS.BITOPERATOR192833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;,,WPAS.BITDEPOSIT1 +PAS.BITEXTRACT1 PAS.BITINDEX1 ,)) .DAD.DDI.DIV.DLD.DMOD .DMP.DST.ENTR .MPY)  @p$(%   $@@`+(3$`h h x`(<(K`0 pG`@ 0pH!!`$`@ 0pT@!@$`W`(_(u"h pjdAA`@@0 pr0 poA0A$`@ 0 p}"A`ph 0$``#`(`"$AAA"$"EpAp ApApApEp w VGG`hhxh (x`(p(̄p@ !p$@p`p p!p`( A(AAAAAA Ax@A$@A`HHK##p`@p`(`0 p!pp`0 p!xx H@;;X)ȉ'. 8PAS.BITOPERATOR292833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;,,WPAS.BITDEPOSIT2 +PAS.BITEXTRACT2 PAS.BITINDEX2 ,.. .DAD.DDI.DIV.DLD.DMOD .DMP.DST.ENTR .LPXR .MPY.  @p$(%   $@@`+(3$`h h x`(<(K`0 pG`@ 0pH!!`$`@ 0pT@!@$`W`(_(u"h pjdAA`@@0 pr0(poA0A$`@ 0 p}"A`ph 0$``#`(`"$AAA"$"EpAp ApApApEp w fGG`hh'xh (x`(p(̄p@ !p$@p`&p p!p`( A(AAAAAA Ax@A$@A`VV++&p`( `@p x`(`0 p!pp`0 p!!xx V@S99XH"ȉ'. 8PAS.BITMASK 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC9qPAS.BITMASK0PAS.BITMASK122""@ @ 2@΁;;Xaȉ'/ 8PAS.STRINGADDRS 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;rPAS.STRINGADDRS .ENTR `@מ99Xgȉ'/ 8PAS.SCRATCH692833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC9PAS.SCRATCH6  h$SCRN .XLA bs8@Ð::XL3ȉ'/ 8PAS.STRRANGER 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:XPAS.STRRANGER ##7.DAD.ENTR .LBP.LBPR .LBTPAS.RUNTIMEERROR#  HH!++AAA(A( A p AOA@6` xHhH@8;;Xuȉ'0 8PAS.FIXEDSTRING 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;KPAS.FIXEDSTRING .DAD.ENTR .LBPR .LPXR ##8A6#@;;X-ȉ'0 8PAS.BASICSTRINGS92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;!PAS.BASICSTRINGIPAS.BASICSTRINGO!!r.DAD.DLD.DSB.DST.ENTR .LBP.LBPR !OO--0,8 8AA+@pH*AH`O@s33::X:ȉ'0 8PAS.STRINGDATA92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:PAS.STRINGDATA1 PAS.STRINGDATA2 .DAD.DLD.ENTR ##e A`@#@5T::Xe ȉ'0 8PAS.STRVALPARM92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:~PAS.STRVALPARM.DSTPAS.STRAPPENDSTR88px(8(8p8 a @::Xȉ'1 8PAS.MOVEPACUP 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC: LPAS.MOVEPACUP N.DAD.DLD.DST.ENTR .LBPR .MBTcEEpAx5A`ހpAx5A`ވp`(4`6@h6H`0(C`pd@(:`pA`p@))`JdQ`pd](E)MMd--``hH ` xpA`6axb6Ac`A85``5AAbb`dM Z f @;;X7ȉ'1 8PAS.MOVEPACDOWN 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;ZPAS.MOVEPACDOWN (!.DLD.DST.ENTR PAS.XLBTPAS.XSBTQQ ,,pp513@p@p@p@p(1p6A.3685(Q@k77Xsȉ'2 8PAS.XLBT92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC7 @PAS.XLBT  .DAD.ENTR .LBP.LBT""*x5A@6H"@t 77X|ȉ'2 8PAS.XSBT92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC7 PAS.XSBT .DAD.ENTR .LBP.SBT$$:4x5A@6HH$@-::Xȉ'2 8PAS.TRACEBACK 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:4PAS.TRACEBACK .ENTR   @;;X ȉ'3 8PAS.SEGMENTEDMOD92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;,, PAS.MAINMODINIT PAS.SEGMENTEDMODPAS.SEGMODINIT, r.ENTR LIMEM ? xQ  ` @  y `@@x877Xl((ȉ'3 8PAS.STOP92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC7 8PAS.STOP EXECPAS.RETURNPARMS ,@ +CCXVV3PAS.HEAPSTACK192833-16110,REV.5000,870622 870622.0830/P1K/LIB/HEAP_STACK_1.PAS C@8VBBXwV4PAS.DISPOSE192833-16110,REV.5000,870622 870622.0830/P1K/LIB/HEAP_STACK_1.PAS BlPAS.DISPOSE1##.ENTR PAS.GETMEMINFO1 PAS.NONCDSPAS.RUNTIMEERROR#HHAaiA(  t_([iA@b(`dAi( u_([ip\@\p\``A(/p`\AP`(76v_([p^`hp]`]Ai(J`]p^`]//>Hp](;`^(O^pg`\hg `gh\il/[m Aijp`kp_([^\@4BBXߏZV4PAS.MARK1 92833-16110,REV.5000,870622 870622.0830 /P1K/LIB/HEAP_STACK_1.PAS BVQPAS.MARK1 77.ENTR PAS.GETMEMINFO1 PAS.INITIALHEAP1PAS.NONCDSPAS.RUNTIMEERRORPAS.SETMEMINFO1 7 BBAG`HPJ((   G`H@Xp`GA@(WF(D@HpE`ME`EhN`EO`EpN`E@YpEE`EhE`EpM@EpH`HA@L(A`HpL cBDGQ ;RAOPpF(@x0DDXMtV5PAS.COALESCE1 92833-16110,REV.5000,870622 870622.0830 /P1K/LIB/HEAP_STACK_1.PAS DKPAS.COALESCE1 pPAS.GETMEMINFO1 PAS.NONCDSPAS.SETMEMINFO1 Ϡ==A`P(`p( (`p(`p`pp`p`p`p`@p`()(D@@A@(D`P(D``hl=<< `pp`p`P(J(`(`p`P(U(`p`p`@p`A@(u`@p`h `p({`p`(#y p`PA(([8(@Gf_@@XV6PAS.NEW192833-16110,REV.5000,870622 870622.0830/P1K/LIB/HEAP_STACK_1.PAS @ +PAS.NEW1 @@.ENTR PAS.COALESCE1 PAS.GETMEMINFO1 PAS.INITIALHEAP1PAS.NONCDSPAS.RUNTIMEERRORPAS.SETMEMINFO1 @tt4M99`p:`pA@(pp9(#`P:(`p`pp9(#pp9`9(`(8`@@p`A@(8`p;t<==8;(`PȈ(B(ap{`@{h@p|`@{A@(Z`@{@ʈ(``h (s`@@p`A@(p`p`p|`|`|p|`| wy} XX~22A8}(>`P((`A(p;`(;`(}(X App(@DBBXXV7PAS.RELEASE192833-16110,REV.5000,870622 870622.0830/P1K/LIB/HEAP_STACK_1.PAS BPPAS.RELEASE1-->.ENTR PAS.GETMEMINFO1 PAS.NONCDSPAS.RUNTIMEERRORPAS.SETMEMINFO1 -}}DDAFNA(  VE(CNA@G(`IAN( WE(C`MpD`DN(-`D(-`DpD("`D(?`DpGDpL`DpM<FN(CCWEP};GQANOpE(]_@ɡaDDXV7PAS.DYNAMICDUMP192833-16110,REV.5000,870622 870622.0830/P1K/LIB/HEAP_STACK_1.PAS DNPAS.DYNAMICDUMP1tLL %.DAD.DDE.DST.ENTR PAS.GETMEMINFO1 PAS.NONCDSPAS.WRITEDOUBLE PAS.WRITEINTEGER PAS.WRITELINE PAS.WRITESTRING L5]``AA  A AA  ! (A-  6A A ? FAK  TA [`````AA  i  rA y~A A  A  AA   A  A SSƁA `P((A Ӂ  ܁A か (z`p`p`p~`(z AA   A  p}`}XX(l`~PAp}   'A,~ 3A8~ ?h~ DKA R~ h~ eA `~p~++ok(p`(u`p~`p( +6``A(> Top of stack: Top of heap: High stack: High heap: Initial stack: Initial heap: Previous free: Current mark: Heap/stack not initializedMark Point Size   Start Next @DDX1V9PAS.DISPOSE1S 92833-16110,REV.5000,870622 870622.0830 /P1K/LIB/HEAP_STACK_1.PAS D8'PAS.DISPOSE1S ##.ENTR PAS.GETMEMINFO1 PAS.NONCDSPAS.RUNTIMEERROR#00mA$A(  /($A@(0$'0`( A$%p&p([^@eAAXdV9PAS.MARK1S92833-16110,REV.5000,870622 870622.0830/P1K/LIB/HEAP_STACK_1.PAS AVPAS.MARK1Sy1.ENTR PAS.GETMEMINFO1 PAS.NONCDSA`7Ap(@gM BBX_;V9PAS.NEW1S 92833-16110,REV.5000,870622 870622.0830 /P1K/LIB/HEAP_STACK_1.PAS B~2PAS.NEW1S -->.ENTR PAS.GETMEMINFO1 PAS.NONCDSPAS.RUNTIMEERRORPAS.SETMEMINFO1 -EEC%%A'`&@(p(`(A@,(`(p,`'A@(( `(/A'($A$:%2E3A/0p&1p%(@8VDDX3V:PAS.RELEASE1S 92833-16110,REV.5000,870622 870622.0830 /P1K/LIB/HEAP_STACK_1.PAS D(+PAS.RELEASE1S -->.ENTR PAS.GETMEMINFO1 PAS.NONCDSPAS.RUNTIMEERRORPAS.SETMEMINFO1 -::n A!)A(  1 ()A@"(2 (A)p"!)+::,A)*p (]_@ CCXZV PAS.HEAPSTACK292833-16111,REV.5000,870622 870622.0831/P1K/LIB/HEAP_STACK_2.PAS C@;ZBBX%V PAS.DISPOSE292833-16111,REV.5000,870622 870622.0831/P1K/LIB/HEAP_STACK_2.PAS BPAS.DISPOSE2J== q.DCO.DLD.DSB.DST.ENTR .LBPR .LPXR PAS.GETMEMINFO2 PAS.NONCDSPAS.RUNTIMEERROR=VVA  A(( (( ($($#(A@ AAAAAAˆ(;(7(; (H(CG(A AAAAA aaEV??x(j(^(jAAA (PA A(p(v @AA  x x x AabAAAp([^\@s3BBXV PAS.MARK2 92833-16111,REV.5000,870622 870622.0831 /P1K/LIB/HEAP_STACK_2.PAS BWPAS.MARK2 ~UU `.DCO .DDE.DLD .DSB.DST .ENTR .LBPR .LPXR PAS.GETMEMINFO2 PAS.INITIALHEAP2PAS.NONCDSPAS.RUNTIMEERRORPAS.SETMEMINFO2 UkWWAos( A(( Ao m(((Aj(io k Akx}yAA} kAx}{AA} x}k}k{k k kx} AA} kAx}kAA}kA@y##WAk oAAow(f(b(fowim#A pj(m@5DDXRV PAS.COALESCE2 92833-16111,REV.5000,870622 870622.0831 /P1K/LIB/HEAP_STACK_2.PAS DK PAS.COALESCE2 @@ b.DAD.DCO.DDE.DLD .DSB.DST .LBPR .LPXR PAS.GETMEMINFO2 PAS.NONCDSPAS.SETMEMINFO2 @WWA((   (( @A(  @AApAAAA   (( xAA AA ((W(WVVAAA((] @AAA x @AA xAAAAApAAA((2(2`((A (A((((AA  __>>(((AAAA xAA  x(AAA (((A(( _V 8 (@r@@XV PAS.NEW292833-16111,REV.5000,870622 870622.0831/P1K/LIB/HEAP_STACK_2.PAS @ ,%PAS.NEW2 bb .DAD .DCO .DIN.DLD .DSB.DST .ENTR .LBPR .LPXR PAS.COALESCE2 PAS.GETMEMINFO2 PAS.INITIALHEAP2PAS.NONCDSPAS.RUNTIMEERRORPAS.SETMEMINFO2 boo CCAADA ((ppC(0AA DA(,(AApC(0ppC`C( `A(BAA  A (B(B`pFoKGTT8F(`PA(M(@AAA AA AA A (c(oAx  (~Ax(AA AA AA (((A Ax? xAA\\66A8(I (((AA (((AAF`(F܀`((\ UAA Ap( @3dBBXV PAS.RELEASE292833-16111,REV.5000,870622 870622.0831/P1K/LIB/HEAP_STACK_2.PAS BPAS.RELEASE2GG .DAD.DCO.DLD.DST .ENTR .LBPR .LPXR PAS.GETMEMINFO2 PAS.NONCDSPAS.RUNTIMEERRORPAS.SETMEMINFO2 GtUUA } A(g(f }l(( }p($($#g(fAAxhA@ }Ah(>(0Ah A(6(> hAh((h (D(bAAhAAl h@AvA h!!UAAxZj }xzA z(ffg!o A }~pg(]_j@WvDDXV PAS.DYNAMICDUMP292833-16111,REV.5000,870622 870622.0831/P1K/LIB/HEAP_STACK_2.PAS DNqPAS.DYNAMICDUMP2TT S .DAD.DCO.DLD.DSB.DST.ENTR .LBPR .LPXR PAS.GETMEMINFO2 PAS.NONCDS PAS.WRITEDOUBLE PAS.WRITELINE PAS.WRITESTRING TXXA pxk k~A pxk kuAuv pxk kwwvA pxk $k[xA pxk k pxkA 3kuuv Apxk =kwwv pxkA Ek]x pxkAA k pxk TkuuvA pxk ӏXXXk pxkA ckuuv Apxk mkwwv pxkA ukcx pxkAA k pxk kuuvA pxk kwAwv pxk kAex pxk k Apxk kuuv pxkAA k pxk kkXXuuvA pxk kwAwv pxk ƂkA_x pxk k Apxk kuuv pxkA ߂kwwv Apxk kax Apxk kA pxk kuAuv pxk k Apxk kuuv pxkWWA kwwv Apxk kgx Apxk kA pxk &kuAuv pxk 0kwwvA pxk 8kixA pxk k]a(D(m(mA pxk NkuAuv pxk k Apxk ]kuuv pä_VVxk gkyyvA pxk Ak(NiAAYgAAW WzUY ((N Apxk kuuv pxkAA k pxk kuuvA pxk k|A|v pxk kAYx pxk kpT`TXXA(3UAW((pT Apxk kuuv pxkA Ԃk||v Apxk kUx Apxk k||v Ul Apxk klx Apxk k}}vUzl Apxk  klx iiУ GGApxk k||v UUl pxkA &klx pxkAA k UzAU( Y@AWAW A(?(F WzU Yz@AY(| pxkA kqiRr``Ap( [> Top of stack: Top of heap: High stack: High heap: Initial stack: Initial heap: Previous free: Current mark: Heap/stack not initializedMark PoH int Size Start Next @bDDXKV PAS.DISPOSE2S 92833-16111,REV.5000,870622 870622.0831 /P1K/LIB/HEAP_STACK_2.PAS D9=PAS.DISPOSE2S 44".DCO.DLD.DST.ENTR .LBPR PAS.GETMEMINFO2 PAS.NONCDSPAS.RUNTIMEERROR4;;${$$AI: A(G$(:)(((AH$A:x7 7=;¼> AA:;A%0AA>%A.(**N+DE9E AA ABA,Cp+(.@?DDXNV PAS.RELEASE2S 92833-16111,REV.5000,870622 870622.0831 /P1K/LIB/HEAP_STACK_2.PAS D)DPAS.RELEASE2S >> q?.DCO.DLD.DST.ENTR .LBPR PAS.GETMEMINFO2 PAS.NONCDSPAS.RUNTIMEERRORPAS.SETMEMINFO2 >II..AL B A(J.(- B1(((AK.(- B1A&/ Bx? ?DI@E ABCp.(]_/@Lk]@@XcVPAS.STRINGS 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PAS@@E:cBBX;VPAS.VALIDSTRING 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASBq0PAS.VALIDSTRING ##<.ENTR .LBPR .LPXR PAS.NONCDSPAS.RUNTIMEERROR#II((A.( .6( ( A.p+A.6A@+( .x*(&Ap*&8)`*0I;1A./p)( @M BBX/VPAS.STRINGINDEX 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASB!PAS.STRINGINDEX k8.ENTR .LBPR PAS.NONCDSPAS.RUNTIMEERROR22`((AA@(p(p+`!2" Ap p`.p( . @LkD@@X~VPAS.STRCOMPARE92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS@=etPAS.STRCOMPARE ++M .DAD.DLD.DST.ENTR PAS.NONCDSPAS.VALIDSTRING PAS.XLBT+]JJAqhpg rhpf`fA@g(`fpe(`gpepd`eA@d(=zrj+jdplAAzqAAj6jdPl(9(=`dpd(`eA@d(J`f@gpi(b--JAAzrAAjTjdplAAzqAAj`jd@lpi`it-;uAqsph(@q䐤>>XVPAS.STRLEN92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS> PAS.STRLEN 2.ENTR PAS.NONCDSPAS.VALIDSTRING A p` 7A  p(@C>>X VPAS.STRMAX92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS>PAS.STRMAX s.ENTR .LPXR PAS.NONCDSPAS.VALIDSTRING "" AA( x(p`"9Ap(@ܑAAX;VPAS.SETSTRLEN 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASA4p3 ?4p2`3(1`2((1>24p2`2((1G?5G>7`3Ap915I792AT;SBA>@p4(@~ƝAAXE((VPAS.STRAPPENDPAC92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PASAF9PAS.STRAPPENDPAC77x.DAD.DLD.DST.ENTR PAS.MOVEPACUP PAS.NONCDSPAS.STRBUMPUP PAS.VALIDSTRING 7LL4++A5,p+`+(*`-( (*A5-,p-`-((*h6`DAA.BAA50`+p2*.A02-9L: A57p-8p,(@:AAXVPAS.STRINSERT 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASA^PAS.STRINSERT wKK e .DAD.DLD.DST .ENTR PAS.MOVEPACDOWN PAS.MOVEPACUP PAS.NONCDSPAS.RUNTIMEERRORPAS.STRBUMPUP PAS.VALIDSTRING K!LLAypx ypw`x((t`w(t`zA("`wA@zA('&y(t`z@wpvA1xypu`v@up`xA@(Z { }`z@xpHHHL))`v@uhxA@pY{z}(]`u@vpx`x(a(t { }t{}zxH A pzpy(@TAAXVPAS.STRDELETE 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASATPAS.STRDELETE |KK i .DAD.DLD.DST .ENTR PAS.MOVEPACUP PAS.NONCDSPAS.RUNTIMEERRORPAS.SETSTRLEN PAS.STRENDERROR PAS.VALIDSTRING K^IIAupt`t(s`wA(Au(s`v(Au(s`v(!(s`tA@w(.-u(s`w@v@p`tA@@(F(AAu`w@tpv`v(JKK/I++(s`v@tpxSxu(sAA Ay`w@vpx {`v@thw@p}syx{w}K lA pwpvpu( @Dci??X?kVPAS.STRLTRIM92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS?9bPAS.STRLTRIM== .DAD.DLD.DST .ENTR PAS.MOVEPACUP PAS.NONCDSPAS.STRBUMPUP PAS.VALIDSTRING PAS.XLBT='LLA`UpS _UpR`S((Q`R(QpT`SA@T(,h`V%VTPj(((,`TpT(`T@SpS6_SUpS`S(;(Qh`Vh_X`RApZQ6LVTXZSb;cA _apU( @Yw??X?cVPAS.STRRTRIM92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS??YPAS.STRRTRIM== .DAD.DLD.DST .ENTR PAS.MOVEPACUP PAS.NONCDSPAS.STRBUMPUP PAS.VALIDSTRING PAS.XLBT=||M[IIAWLpJ VLpI`J((H`I(H`JpK`K(((_WM!MKPb($((@KpK(A-VKLpK`KA(2(H_AAWMAA_VAO`IpQHMaOQKY|<Z A VXpL( @*I>>XzVPAS.STRRPT92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS>{PAS.STRRPTnMM [.DAD .DCO.DLD .DMP .DSB.DST .ENTR PAS.MOVEPACUP PAS.NONCDSPAS.RUNTIMEERRORPAS.STRBUMPUP PAS.VALIDSTRING M??OOAp p~`(}`~(}`((}h AhA  AAA (1(1A0(}6hA AA (}(}`~p (}(}h MM:oO//AAA (Z(X(Z`pm`@ph  (EM @A pp( @Cdb$>>XtV PAS.STR 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PAS> +nePAS.STR  AA .DAD.DLD.DST .ENTR PAS.MOVEPACUP PAS.NONCDSPAS.RUNTIMEERRORPAS.STRBUMPUP PAS.VALIDSTRING A'LLAaTpS `TpR`S(Q`R(Q`U(oT(Q`VA(,`V@U@sp`SA@(1A0pT(Q6`UTpU`U(;(QqaWq`Y`RAp[Q@LWVY[Ue kfA `bpVcpUdpT( @ ?(>>XWV!PAS.STRPOS92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS>vPAS.STRPOS ++M .DAD.DLD.DST.ENTR PAS.NONCDSPAS.VALIDSTRING PAS.XLBT+6GIIApjtipe sipd`e((b`d((b`e@dpdpfph`dA@h(\`f(\pfpg`eA@g(X`f(X|tkAkAgpm|AAsk`h::TI@g@pnPknPmpf`gpg(,`hph(`f(b@hpj`jv:;$wAsupi( A @b@@XXs\V!PAS.STRMOVE 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PAS@DPAS.STRMOVE ZZ .DAD.DLD.DST .ENTR .LPXR PAS.MOVEPACDOWN PAS.MOVEPACUP PAS.NONCDSPAS.RUNTIMEERRORPAS.SETSTRLEN PAS.STRENDERROR PAS.VALIDSTRING Z(BB`1((`1p,(  =.p,`/((`/p+(@.p+`,()`+()`3(&%T.()`3(*()`2(.(9`2@3@[p`,A@p-`-(`0(CABHH(K`+A@0p-`-(`0@3@[p*`/(Y(d`/A@*Ap-(q @UA@*p-`-(`/(z(~A~W.`/( @Ux*A @U`0FNNH x3`3p-(X.(AX.`-()`+A@*(`/A(@*.p-`1(`/(`0A@2A(YAA =4AAY @AA64260A3(YA =ŋRRAA4YAA @6A 42603()`1(`/((Y =442@03()`1((`/(AAY @AA4=2403()`0A@2A("!=2@0A3() )=2@03D11BEA <p2?p1Ap0Bp/Cp.(1@&tE4BBX&V#PAS.SPARAMETERS 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASBYPAS.SPARAMETERS m.ENTR PAS.NONCDSPAS.PARAMETERS22u`@%p`Ap p`((``p`27Ap( % @ %'@@XVPQV#PAS.READSTR 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PAS@FPAS.READSTR GG N& .DAD.DLD.DST .ENTR .LPXR PAS.ENDOFFILE PAS.GET PAS.IENDOFLINEPAS.NONCDSPAS.SETSTRLEN PAS.XSBTGbb;;Ap; DLx<C( CC(3`;A@<(3CL(3`;Ap;NAA D>`C@Pp@0>;@AC(8D;=(:Fb=|G A CEp=( @k??X6vHV$PAS.WRITESTR92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS?F<PAS.WRITESTRBB j .DAD.DLD.DST .ENTR PAS.IOERROR PAS.NONCDSPAS.PUT PAS.SPLITMOVE PAS.VALIDSTRING PAS.XLBTBTT00`2(D8 91p0`0(/820(`2(/p3p0E 94'40h8AHG88083(<TM= A 8:p2;p1( @ BBXV$PAS.READSTRFILE 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASBMPAS.READSTRFILE ((.ENTR .LBPR PAS.NONCDSPAS.READNONTEXT PAS.VALIDSTRING (f@ AxA  ( 7Ap (@k+AAXV%PAS.WRITESTRFILE92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PASARPAS.WRITESTRFILE((N.ENTR .LBPR PAS.NONCDSPAS.VALIDSTRING PAS.WRITENONTEXT( A A( x7Ap (@g>>X>V%PAS.STRGET92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS>0PAS.STRGET 00.DAD.DLD.DST.ENTR .LBPR PAS.NONCDSPAS.RUNTIMEERRORPAS.XLBT0DD&&p'-(  8A&($,A-($Ap'9AA,(A (-.--`'0D1 A,/p&`=p'( = @:->>X"FV&PAS.STRPUT92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS><PAS.STRPUT++q.DAD.DLD.DST.ENTR .LBPR .LPXR PAS.NONCDSPAS.XSBT+WW_33A9x3`3A:(29BA:(2AAD9AA5#5:4`3A:(/9:::<W>AEBA(= EFB(=p>`AA@>(*EF?B(*hH6@>H`?`>p>(`AA@>(=hH6@>H`UH`>p>(*Kng5L AEGpBIpAJp@( @rhAAXDV(PAS.SREADENUM 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASALPAS.SREADENUM ss .DAD .DCO .DDI.DIN.DLD.DNG.DSB.DST.ENTR .LBT.MPYPAS.BITMASK1PAS.NONCDSPAS.STRGETPAS.STRINGINDEX PAS.STRIOERROR PAS.UPSHIFTALPHAPAS.VALIDSTRING PAS.XLBTsIGGA p`(A (`Cp ( `PC(( (`A (+  ` ,HH@(:9( p` ,H @(]`~sGMMA@(]`ApAA A [p(< @p`A@A(nm( @p`A@h Dp`( phA  AAAA@ LL(p`(A(`A@(   pA pAh6 HP((AD`p(`P(͈(h  ((h6 //~PCp`(h   @ (/LL(11A  ppp("3 L@AAXc#V)PAS.SREADCHAR 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASA3PAS.SREADCHAR **.ENTR PAS.NONCDSPAS.STRGETPAS.STRINGINDEX PAS.VALIDSTRING *''AA( (('7Ap(@=[BBXSV*PAS.SREADSTRING 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASBGIPAS.SREADSTRING JJ c; .DAD.DLD.DST .ENTR .LPXR PAS.NONCDSPAS.SETSTRLEN PAS.STRGETPAS.STRINGINDEX PAS.VALIDSTRING PAS.XSBTJ__m;;AE>A(: EF>(:p; HOx<`;A@<(3A"EF=>(3`;p;Q H?2?;=(8H;>(:I_(@CaBBX oV*PAS.SWRITECHECK 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASBs[PAS.SWRITECHECK BBA.ENTR .LPXR PAS.NONCDSPAS.RUNTIMEERRORPAS.STRENDERROR PAS.STRIOERRORPAS.STRPUTPAS.VALIDSTRING BoIIApRVQpO`O(MY(`PYeQ(MW((!`OAW(&%fQ(MWYA@npSVgA@S(<(.ENTR .LBTPAS.NONCDSPAS.STRPUTPAS.SWRITECHECK $>>o!!A*+%#$( `#( p&p!h-6H@!Hp'A*+'8!8&(1> 2 A*,p%.p$/p#0p"(@eN@@X V,PAS.SWRITEENUM92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS@PAS.SWRITEENUMs99 ^(.DAD.DST.ENTR .LBT.MPYPAS.NONCDSPAS.STRIOERRORPAS.STRPUTPAS.SWRITECHECK 9fEE`z(~`{(`{pz`{p{`}(`|A@}A(~`{}pw`w@{@pv`wpy`vA@y(Ahy Ah6AH P(A`ypy((`z(H`w[[E11@ypzO~z{(u`w@z@pv`whvAH(^ (uxpyhy h6 pq8y(s8(`[((Ap~p}p|p{pz( (@"A@@Xz&V,PAS.SWRITECHAR92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS@|PAS.SWRITECHAR C.ENTR PAS.NONCDSPAS.STRPUTPAS.SWRITECHECK A%(e Appp(@AAXRV-PAS.SWRITEDOUBLE92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PASAeDPAS.SWRITEDOUBLE66.DLD.DST.ENTR .LBTPAS.DOUBLE2ASCIIPAS.NONCDSPAS.STRPUTPAS.SWRITECHECK 6AA$$A,*APp$ ?@'&$(#`$((#hQ6@$HHAp<?@<@$p$(DAE A?Ap'AAB*Cp&( ,@?AAX$V-PAS.SWRITEINT 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASAPPAS.SWRITEINT 8.DST.ENTR PAS.NONCDSPAS.SWRITEDOUBLE1h AA d Appp(@e%BBXnV.PAS.SWRITEAREAL 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASBR]PAS.SWRITEAREAL 66.ENTR .LBTPAS.NONCDSPAS.REAL2ASCIIPAS.STRIOERRORPAS.STRPUTPAS.SWRITECHECK 6nn!>>`C(`BA( kD`C(pC`B(`mpBAEXCBA@p?$UVDC?(=`?(=pQp>hl6@>HpR:UVR8>8Q(.]n&&^AUWpDYpCZpB[pA\p@(E'&@p֏@@X"V.PAS.SWRITELONG92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS@yPAS.SWRITELONG-.ENTR PAS.NONCDSPAS.SWRITEAREAL * A    !f Ap p p (L@'dF$@@X2V/PAS.SWRITEREAL92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS@t%PAS.SWRITEREAL""l.BLE.CFER .ENTR PAS.NONCDSPAS.SWRITEAREAL " A"A 01%h& A!p#p$p(E@ KAAXIV/PAS.SWRITESTRING92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PASAs?PAS.SWRITESTRINGAA ].DAD.DLD.DST .ENTR .LBPR PAS.NONCDSPAS.STRPUTPAS.SWRITECHECK PAS.VALIDSTRING PAS.XLBTAOO"//A=1A(. =Ax2:;102(.`0(.p2p/G=3%3A/p5+:;58/82(?O7@ A :p0(@zBBXnV0PAS.SFRITEAREAL 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASBR]PAS.SFRITEAREAL 777A.ENTR .LBTPAS.FREAL2ASCII PAS.NONCDSPAS.STRIOERRORPAS.STRPUTPAS.SWRITECHECK 7nn!>>`C(`BA( kD`C(pC`B(`mpBAEXCBA@p?$UVDC?(=`?(=pQp>hl6@>HpR:UVR8>8Q(.]n&&^AUWpDYpCZpB[pA\p@(E'&@Қ@@X}"V1PAS.SFRITELONG92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS@hPAS.SFRITELONG.ENTR PAS.NONCDSPAS.SFRITEAREAL * A    !f Ap p p (((L@'4E@@X2V1PAS.SFRITEREAL92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS@c%PAS.SFRITEREAL""[.BLE.CFER .ENTR PAS.NONCDSPAS.SFRITEAREAL " A"A 01%h& A!p#p$p(E@Z BBXV!&PAS.LONGERRORS92833-16112,REV.5000,870622 870622.0833/P1K/LIB/LONG_ERRORS.PASB@NCCXivV!&PAS.RUNTIMEERROR92833-16112,REV.5000,870622 870622.0833/P1K/LIB/LONG_ERRORS.PASCV PAS.RUNTIMEERRORg.ENTR PAS.ERRORCATCHERPAS.NONCDSJA    fbA ( @cCCX6V!'PAS.FILEERROR 92833-16112,REV.5000,870622 870622.0833 /P1K/LIB/LONG_ERRORS.PASCIPAS.FILEERROR g.ENTR PAS.ERRORCATCHERPAS.NONCDS""dl`@p`@p"i}A(@r葨BBXV!'PAS.IOERROR 92833-16112,REV.5000,870622 870622.0833 /P1K/LIB/LONG_ERRORS.PASB PAS.IOERROR g.ENTR PAS.ERRORCATCHERPAS.NONCDS""dl`@p`@p"i|A(@g'BBX/V!'PAS.STRIOERROR92833-16112,REV.5000,870622 870622.0833/P1K/LIB/LONG_ERRORS.PASB PAS.STRIOERRORg.ENTR PAS.ERRORCATCHERPAS.NONCDSKA   geA (@9AAXV!(PAS.EMAERROR92833-16112,REV.5000,870622 870622.0833/P1K/LIB/LONG_ERRORS.PASA. PAS.EMAERRORg.ENTR PAS.ERRORCATCHERPAS.NONCDS{MA  gc A (@RCCXncV!(PAS.SEGMENTERROR92833-16112,REV.5000,870622 870622.0833/P1K/LIB/LONG_ERRORS.PASC[ PAS.SEGMENTERRORg.ENTR PAS.ERRORCATCHERPAS.NONCDS A p     ggA (@JiCCX=V!)PAS.IOWARNING 92833-16112,REV.5000,870622 870622.0833 /P1K/LIB/LONG_ERRORS.PASC FPAS.IOWARNING g.ENTR PAS.ERRORCATCHERPAS.NONCDS""dl`@p`@p"iA(@柦CCXL4V!)PAS.ERRORCATCHER92833-16112,REV.5000,870622 870622.0833/P1K/LIB/LONG_ERRORS.PASC9"PAS.ERRORCATCHER77gS.ENTR LOGLU PAS.ERRORPRINTERPAS.NONCDSPAS.SETEXITPARMSPAS.STOPPAS.TRACEBACK 7))*A `AP3( Ap.A")&&E#Appp!p(&@>]NCCXnV!*PAS.ERRORPRINTER92833-16112,REV.5000,870622 870622.0833/P1K/LIB/LONG_ERRORS.PASCZPAS.ERRORPRINTERhBB <.DST.ENTR .LBT .SBTLOGLU PAS.BOUNDINTEGERPAS.DOUBLE2ASCIIPAS.NONCDSPAS.STRINGADDRS REIOB((F`((Ap`pp(--8(`ph36@H`+ `P(((**--GG}.##A,,p+(`R(;-:ň(P`R(PpTpQhS6H@QHpU-MU8Q8T(CXGJJQY&&AVVpSWpR(4h kp`(p(~h6@HHp-z@p(lJ6;;App(`ApXƀ`(`P(P(ڈP(P(숈P (P (P (P (P (P("P(+P(4P(=P(FP(OP(XP(aP(j(sGLLpX(pX(ApXȄ(ӈpXA(pX(pX(A pX˄(pXA(pX!dLL(%pX*(A.pX3̈́(7"pX<A(@1pXE(I@pXN(AROpXW΄([]pX`A(dhpXi(mm 6kAAmrpXr(Av~pX{сҀ`(pX(ApXȁApXApXmF``(Pascal Error: Undefined CaseHeap/Stack CollisionNil Pointer DereferencedValue Out Of RangeMOD By Invalid ValueString UnderflowString Overflow String Bad IndexInvalid StringDispose Called Witk``h A Nil Ptr Disposed An Invalid Variant Release Called With A Nil Ptr Dispose Called With A Bad Ptr Release Called With A Bad Ptr Overflow Of Two Word IntegerIllegal Char For Base No Value To nUUConvert Insufficient Image SpaceNumber In Line Pas.ErrorExit Called At With `(pX(ApXApXApX` 6BB!(@@ɨ(((((( (((((1(:(C(L(U(^(g(p(y((((̈pXA(pX(pX(ApXل(XcLLpX (ApXׄ(pXA("pX'(+"pX0(A4,pX9ۄ(=7pXBA(FCpXK(OKpXQLLT(AXXpX]̄(agpXfA(jtpXo(spXx(A|pXل(pXA(pX(pX(AZ ApXՁҀp``(Pascal String I/O Error In Line Pascal I/O Error On File Unexpected EOFFile Must Be Text File Must Be Direct Bad Record Length Must Reset Or Open File Must Rewrite Or Open File Direct AK ``ccess Read ErrorSequential Access Read ErrorInvalid Integer ReadLine Read Was Too LongInvalid Real Number ReadFile Is Not CCTLNo Scratch File Available Neg FLD/DEC Width Not Allowed File CannoBl__t Be Type 1 Or 2File Must Be Type 1 Or 2Cannot Open LU 0 For Read OnlyMissing File Name File Is Not OpenError Identifier Not In Enumerated Type Value Not In Enumerated ATypepX@NN**ͅpXpX`P(∄P((pX(ApXو(NNN(Pascal I/O Warning On File Output Line Moved To Next LineOutput Line Split p%pX*`P(8P(:P(GP(IP(fP (((=pXBFllVE??((ALpXQҁUAXpX]A`pXe(ipXnqpXvypX~((lYYApppp( ?  !*** Pascal Pointer Error At FMP Error On File Pascal Segment Not Found P[\]^_`abc@Vtttt~~U PAS.A1SETSHARED Y fPAS.A1SHAREDSIZED6PAS.APPENDFILEg, PAS.APPEND_FILE _] PAS.ASCII2DOUBLE:PAS.BACKGRNDCOM1<=PAS.BACKGRNDCOM2=3PAS.BACKGRNDSIZE;GPAS.BASICSTRINGIVA~~~n PAS.BASICSTRINGOVA PAS.BINARYj PAS.BITDEPOSIT1 ESPAS.BITDEPOSIT2 KPAS.BITEXTRACT1 ESPAS.BITEXTRACT2 KPAS.BITINDEX1 ESPAS.BITINDEX2 K PAS.BITMASK0Pj PAS.BITMASK1PjA~~~ PAS.BLANKCOM1 ?8PAS.BLANKCOM2 @3PAS.BLANKFILL >PAS.BLANKSIZE >,PAS.BOUNDDOUBLE !PAS.BOUNDINTEGERPAS.CDSCONFLICT 1PAS.CHECKPTR1 L PAS.CHECKPTR2 W PAS.CHECKSTAKSZ1 F~~~ PAS.CHECKSTAKSZ2"j QPAS.CLEARFILE [LPAS.CLOSEFILE 'YdPAS.CLOSEPURGEsEPAS.COALESCE1 j3PAS.COALESCE2  PAS.CONVERT += PAS.CURRMARC1  VPAS.CURRMARC2 (]~~~%PAS.DCBADDRESS1 3 PAS.DCBADDRESS2 4) PAS.DISPOSE1e, PAS.DISPOSE1S {  PAS.DISPOSE2 PAS.DISPOSE2S / PAS.DOUBLE2ASCII7(PAS.DOUBLEMOD Y 1  VPAS.CURRMARC2 (]~~~PAS.DYNAMICDUMP1t5VdPAS.DYNAMICDUMP2i5d PAS.EMAERROR 'PAS.ENDOFFILE ! PAS.ENDOFLINE b PAS.ENTRY1mY PAS.ENTRY2_ePAS.ERRORCATCHER ' MARC2 (]~((~~/ PAS.ERROREXIT 1vPAS.ERRORPRINTER}=T  PAS.EXIT1 mY PAS.EXIT2 _e PAS.EXITDATA.>PAS.EXITDATAPTR .>PAS.EXITDATASET .>PAS.FILEERROR / PAS.FILENAMR."T MARC2 (]~~~ PAS.FILEPOSITION9!PAS.FIXEDSTRING U0PAS.FREAL2ASCII Ed4 PAS.FRITEANYREAL#!=@ EPAS.FRITELONG PAS.FRITEREAL 6PAS.GET |! PAS.GETMEMINFO1  VPAS.GETMEMINFO2 (]~~~- PAS.GETNEWPARMS *vPAS.HALT ' PAS.HALTONLY%'PAS.HALTPROGRAM -T PAS.HEX m PAS.HIWATERHEAP1 VPAS.HIWATERHEAP2(]PAS.HIWATERMARK1 VPAS.HIWATERMARK2(]VPAS.GETMEMINFO2 (]~~~G PAS.IENDOFLINE^!  PAS.IMAGE0!  PAS.IMAGE1v j PAS.IMAGE2W j PAS.INITFILE5UPAS.INITIALHEAP1PAS.INITIALHEAP2&`PAS.INITIALIZE*vPAS.INITMEMINFO1/A ]VPAS.GETMEMINFO2 (]~~~ PAS.INITMEMINFO2$)M PAS.INLINEERROR 0{  PAS.IOERROR ^PAS.IOWARNING  dPAS.LABELCOM1 B=PAS.LABELCOM2 C8PAS.LABELSIZE A1PAS.LASTPOSITION^9&PAS.LINEPOSITION#TMEMINFO2 (]~~~  PAS.LINESIZEPAS.LONGNEGATEBPAS.LONGROUND S!PAS.LOWATERHEAP1 VPAS.LOWATERHEAP2(]PAS.LOWATERMARK1 VPAS.LOWATERMARK2(]PAS.MAINMODINIT b% PAS.MARK1 gz  PAS.MARK1S|T(]~~~;  PAS.MARK2   PAS.MARK2SPAS.MAX 6PAS.MAXPOSITION \n!PAS.MIN 4dPAS.MOVEBYTES ZPAS.MOVEPACDOWN ]_PAS.MOVEPACUP ZWPAS.NEW1ma  PAS.NEW1S }o z(]~~~Ig PAS.NEW24  PAS.NEW2S L PAS.NONCDS1PAS.NUMERICPARMS*v PAS.OCTAL +  PAS.OPENFILEjI PAS.OPEN_FILE af PAS.OPTDECODE 7PAS.OVERPRINT m!dPAS.PACKSTRING8(]~~~tc PAS.PARAMETERSM4  PAS.POSTFILE-PAS.PREVFREE1  VPAS.PREVFREE2 (] PAS.PROMPTZ!dPAS.PUT  Y!dPAS.RANGEDOUBLE  PAS.RANGEINTEGERE  PAS.RANGESET 4PACKSTRING8(]~~~#PAS.READBUFFER = PAS.READCHARl! PAS.READDOUBLEb;!  ( PAS.READENUMG! (PAS.READINTEGER ! PAS.READLINEg PAS.READLONG !  PAS.READNONTEXT v!=]~~~?y PAS.READREAL !  PAS.READSEQUENT fY! PAS.READSTR  PAS.READSTRFILE 0PAS.READSTRINGWPAS.REAL2ASCII<O4c  PAS.REAL5OPS9PAS.REAL5PACK 9v]sz]~~~ PAS.REAL5TRUNC9PAS.REAL5UNPACK 9PAS.REALROUND Q_PAS.REALTIMECOM19XPAS.REALTIMECOM2:NPAS.REALTIMESIZE8bPAS.RECVALPARM_ePAS.RECVARHPO _ePAS.RECVARPARM_eACK 9v]sz]~~~ PAS.REFERENCE ! PAS.RELEASE1qu PAS.RELEASE1S W  PAS.RELEASE2 PAS.RELEASE2S P PAS.RESETFILE m PAS.RESET_FILEc- PAS.RETURNPARMS .>PAS.REWRITEFILE p& ]~~~4 PAS.REWRITE_FILEe$ PAS.RUNSTRINGLEN*vPAS.RUNSTRINGPTR*vPAS.RUNTIMEERROR PAS.SCRATCH6Rn PAS.SEEKFILE~!PAS.SEGMENTEDMODb%PAS.SEGMENTERROR APAS.SEGMENTLOAD  ILE p&z]~~~$ PAS.SEGMENTRTN PAS.SEGMODINITb%PAS.SETDIFFER sPAS.SETEXITPARMS-$7 PAS.SETINIT ) PAS.SETINTERINIT PAS.SETINTERSECTPAS.SETMEMINFO1  VPAS.SETMEMINFO2 (]ILE p&z]~~~PAS.SETSHARED V_ f PAS.SETSTRLEN j PAS.SETTEMPORARY 4 PAS.SETUNION PAS.SETUPFILE dY! dPAS.SFRITEAREAL 2 < PAS.SFRITELONG` PAS.SFRITEREAL  p&z]~~~ePAS.SHAREDSIZETyPAS.SHIFTNPUT PAS.SINGLEMOD  PAS.SKIPBLANKSa PAS.SPARAMETERS :PAS.SPLITMOVE v'-@d PAS.SREADAOC} PAS.SREADCHAR f TEREAL zp&z]~~~PAS.SREADDOUBLE V; PAS.SREADENUM   PAS.SREADINT PAS.SREADLONG  !  PAS.SREADREAL  !  PAS.SREADSTRING ) PAS.STOPcn c zp&z]~~~PAS.STR V 2PAS.STRAPPENDPACpV 2PAS.STRAPPENDSTRoV 2PAS.STRBUMPUP W mPAS.STRCOMPAREUPAS.STRDELETE V mPAS.STRENDCHECK /n PAS.STRENDERROR /n &z]~~~~ PAS.STRENDS *v PAS.STRGET PAS.STRINGADDRS Q|PAS.STRINGDATA1 XPAS.STRINGDATA2 XPAS.STRINGINDEX | PAS.STRINSERT oHV 2PAS.STRIOERROR  PAS.STRLEN"/n&z]~~~H  PAS.STRLTRIMV 2 PAS.STRMAX; PAS.STRMOVE KHV m PAS.STRPOSk PAS.STRPUTPAS.STRRANGER Sb  PAS.STRRPTV 2 PAS.STRRTRIMYV 2PAS.STRVALPARMY+ "]~~~ם PAS.SUBSETPAS.SWRITEAOC 3 < PAS.SWRITEAREAL S < PAS.SWRITECHAR2 < PAS.SWRITECHECK K m <PAS.SWRITEDOUBLEiT < PAS.SWRITEENUM < PAS.SWRITEINT _ Y+]~~~u PAS.SWRITELONG? PAS.SWRITEREALj PAS.SWRITESTRING( < PAS.TIMESTAMP [PAS.TIMESTRING[PAS.TOPOFHEAP1 VPAS.TOPOFHEAP2(]PAS.TOPOFPAGE H!dPAS.TOPOFSTACK1  V_zY+]~~~r PAS.TOPOFSTACK2 (]PAS.TRACEBACK a8PAS.TRACEBEGINQPAS.TRACECLOSEQ PAS.TRACEENDQPAS.TRACEINIT QPAS.UNPACKSTRING\PAS.UPSHIFTALPHA3%PAS.VALIDSTRING  PAS.WORDBITMOVE l+]~~~PAS.WRITEANYREALZ!=@S EPAS.WRITEBOOLEANP@ EPAS.WRITECHAR l-@PAS.WRITEDOUBLE aT!@ EPAS.WRITEENUM }!=@ EPAS.WRITEINTEGER35PAS.WRITELINE 7Y!BITMOVE l+]~~~OPAS.WRITELONG GPAS.WRITENONTEXTt]=@PAS.WRITEREAL l PAS.WRITESTR"!@ EPAS.WRITESTRFILEgPAS.WRITESTRING yV!=@ EPAS.XLBT_&PAS.XSBT`.7'>]zBITMOVE l+]~ CPA PROC,I End of actuals?  JMP DONE Done if yes CPB PROC Else end of formals? JMP DONE Done if yes*  LDA A,I Else remove indirects ...  RAL,CLE,SLA,ERA  JMPASCAL.LIB::RTE_6:5:586:128 644 0 0 445000 5310710043 34022 PASCAL.LIB::RTE_6:5:586:128 $JJPASCAL LIB +#"+##+##J$LrTFST )>>X7ȉ; 8PASCAL92833-16113 REV.6000 <920930.1 920930.1959/P1K/LIB/STD/PASCAL.PAS >@7@@XId$PAS_TMP 870720 870720.1935 /P1K/LIB/STD/PAS_TMP.PAS@@*I<<XVPAS.NFS 92833-16114,REV.5000,870622 870622.0820 /P1K/LIB/NFS.PAS<@@@XGXVPAS.READSEQUENT 92833-16114,REV.5000,870622 870622.0820 /P1K/LIB/NFS.PAS@gmPAS.READSEQUENT VV ( .DCO .DDE .DIN.DLD .DMP.DSTFMPREAD FMPSETPOSITIONPAS.DCBADDRESS1 PAS.FILEERROR PAS.INLINEERROR PAS.IOERROR PAS.NONCDSV--p`^Pz(`^P{((`aP( `(p_pa-fBB`(p8p(`lpf`fA@|pg'cl`c@{p^`f@}Py(5Pz(P{((W`f@A h@`f@~D  hd`f@~pjAOcajd`a(VVal`fHWEE@ p\`fA@pjgcaj\p_`_P\p]`f@~hfH~pjA j`f@pj`f@~ j(pjgL0jLg`aA(al(`]A(ul(Z`f@2BB p\`\p``^Pz(`f@A@(``@{p``f@pjcaj`p_`_P\p]`a(`](`](Έ`_P`pjj`aA(al(P_(@@(g0g`f@@(pjpb`f@@b 8b8j((`]A(vl(Z`f@pj`f@pk cajkp_`a(w`aA(al(V`_((?`f~~==@A@_(/+xl`f@p_`f@ `f@H_`f@hfH~(V`f@ `f@ `f@p`_P_(S(Vg0g(Zh m~22nn`m(opl8m(  2@d$??X\VPAS.WRITELINE 92833-16114,REV.5000,870622 870622.0820 /P1K/LIB/NFS.PAS? YLPAS.WRITELINE //N.SBTFMPWRITEPAS.DCBADDRESS1 PAS.FILEERROR PAS.IOERROR PAS.NONCDS/2-((@@`KpG`G@VpHH*U(@H[H`G@XU(`G@Y@6`G@X`ZA FK`G@YpI`GA@XpJ,FEIJ`E(33EK`G@Y@6`ZH`G@XhKHW(DI@ADTKL >XHVPAS.EXTNAMELEN92833-16114,REV.5000,870622 870622.0820/P1K/LIB/NFS.PAS> =PAS.EXTNAMELEN .ENTR .LBTPAS.NONCDSii.66`8((%p6`8A@6(h76@6HPG((`6p6(`8A@6(%p8`8(2@h:6(2h:6p8`8p9`9=i5>A:;p8>X^VPAS.SETUP_NAME92833-16114,REV.5000,870622 870622.0820/P1K/LIB/NFS.PAS>{PAS.SETUP_NAMEM33.DST.ENTR .LBT.SBTLOGLU PAS.DOUBLE2ASCIIPAS.NONCDSPAS.PARAMETERS3(DD`(=`Ap (<`(`@( `@P@p`@P(>`@@AA?`()GGE!!AA?('('`@p()`p`Z(:`(:`@AP(: 8…pZ`@pCGD[[(JAAQXAAekiACkkxkiA}mYghH6 !pA`]kg`]A((Aki''w(`Z( ]pZ`]p`' JJA p`p(E`@)(`@(`A@pA(!`]`](2`Z(- +]pZ (`(hh (EnJPP(U(U`@%A(cAADŽ(g(hA A(xAAAAA((AAɈ`@%(A(AAA((MM-,,AALj`@A AAAA숄`@p`@(((ň`@pME??8(`V(`@P((`@hU`@*( `aP( ( `@hU( ʅpZ`@)T(, `]`Z(,`](, *]pZ`@ț.==P(M3`Z(M`@(M`@)(M`@P(M KpZ`Z(`aP(^P(_P(qP(~P(~P(~((`(p``@p$jVkCC(p p(`(y`@A(y(} }ۅ(`aP(`@)(`]`](A ]pZ`aP(`Z(`P(`P(( ܅pZ`aP(($$`]`Z(`](A ](h#$HH8(`p^AɅ`](pcAх(p^(`c(pW`@*(`@@0ip]`]p`(AAekpY   l IIp`p`(eAk(rk`pph6H@H!h6p@HH`"88("`A@(W` A@h6HH"` pA$Rmm'R==@h6HH"` pA$c@h6AH"$m@h6H"u({`P({( `Z(`]( 慫ApZ( 煫pZmzII8(PASCxx::0 PAS  `pZuAiAcbpc`@/pW`c(`WA( pW(؈`@p*(؀'( ؅`]`@hd`cV @@(`@pO0WOpY `p`@p+(`aP(( *( %(  `S( Acb^`Z(R`^(hh55(N$A^k`@p* p1(65(M*(M0 C(M`aP(I(K`paM(RA R녫hXX99A pdpcpbpa(@CRW WYZ OXSX))B  ,02@d ')@ ??XۮV PAS.CLOSEFILE 92833-16114,REV.5000,870622 870622.0820 /P1K/LIB/NFS.PAS?YPAS.CLOSEFILE ``.DST .ENTR .LBT.SBT FMPCLOSE FMPPURGE FMPSETEOF PAS.DCBADDRESS1 PAS.FILEERROR PAS.FILENAMEPAS.NONCDSPAS.OPTDECODE PAS.WRITELINE STRDSC` `( `ӈAP(  Ӂ q BB(`@/pp`نA@ׄ(*h6H@H P(&(*`p(pր`A@(Y`نA@(Nh6@ׄH h 6p@H``p(U)NBBh 6@ֈHH``p(,^Ԉ`P(dP(g(jpҀ(jp(j`p`@p+(y*(((*('(؁)(*}}QBB(&(A ӈ `(A߄pA  ڀ`p (p0A Ȁӈ `(A pӈ }""A pـ( @ "@a݀==XkVPAS.POSTFILE92833-16114,REV.5000,870622 870622.0820/P1K/LIB/NFS.PAS=)PAS.POSTFILE ..ENTR FMPPOST PAS.DCBADDRESS1 PAS.NONCDS A A ` p` eiA( @_d~$==XHVPAS.FILENAMR92833-16114,REV.5000,870622 870622.0820/P1K/LIB/NFS.PAS=@PAS.FILENAMR .ENTR .MBT.SBTPAS.FILENAMEPAS.NONCDS88 A?(`Gp=phE6@H`FH88=( h>6`E6AD@8zAA>(@ @o/>>X<V PAS.ETC_A 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS>@|<@@X"V PAS.UPSHIFTALPHA92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS@PAS.UPSHIFTALPHA 4.ENTR PAS.NONCDS,,~^`@!( `@ ( `@!@p(`p`,TAp`p( IA @==XV PAS.MIN 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS= A`PAS.MIN  4.ENTR PAS.NONCDS$$4`A@( `p( `p`$BApp(@N==XV PAS.MAX 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS= KXPAS.MAX  4.ENTR PAS.NONCDS$$4`A@( `p( `p`$BApp(@~>@@X|pV PAS.DOUBLE2ASCII92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS@ZpPAS.DOUBLE2ASCII ++ R.DDI.DLD.DMP.DNG.DSB.DST.ENTR .SBTPAS.NONCDS+^QQAf( AAfd(fAdpa`apahb hhb jdjhhdhhzhxhm6pl@aH`l hbA hAAdhAAdd (f(]`bP~''RQ(S(]`apahm6@aH` `apc`cp'1Vq AAmnAfopb(0 x~ - @CbX@@X{guVPAS.ASCII2DOUBLE92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS@iQPAS.ASCII2DOUBLE0K.DCO.DLD.DMP.DSB.DSTPAS.NONCDSGG`I@tpHpGNk( ( (/AANk((-(-`J(`rA@H()`J(*`sA@H(*(,pG(/pG`G(CpKhH AALNAAmLAN(EpK`KQBB,R`Q(SpN8Q`Q(YpO8Q`Q(_pP8QOpJPpI`qpK(334 B q @SrB??X,eVPAS.REAL2ASCII92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS?sPAS.REAL2ASCII rr? ..TCM .CFER .DIV .ENTR .MPY .MVW .SBT.TADD .TDIV .TFTD .TMPY .TSUB PAS.MAX PAS.MIN PAS.NONCDSPAS.REAL5OPSPAS.REAL5TRUNCPAS.REAL5UNPACK PAS.SINGLEMOD r `ph6@H`   GHH` (p 8  p (`h  `(!  A(A`p`A(:`p`A(F `pp`bp`^p`@pƀ` VLL@p с`(A`]ňA@pn A `( h!`"A @p(`A(`]@ph!`" `p@p~~HDD8(O`Pap`(`A@p`(`@c@d@d@dpp@ppʀ`p(Ap`A@pp`ʈ@p`~`LL(`h  `(  AA p`Ljp`((,`[(!` @pAՁ`]@p!`p` A\Ap(A6J2EEA `(R G;`pƈ`0(Q`p(6p`(Z (_`(_ `p(p`p`Pʈ(l(n AqpĈ`@`p xx~wEEh AA  ;@pň8(h`( `( `p( ` A_@`p A@`p `p`̀xYYA pˈppɈp(@PP- .+ 16PdN _^6G lN[PdN _^G )R6N[kr[  0'@)HAAXVPAS.FREAL2ASCII 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PASAKPAS.FREAL2ASCII } XXh..TCM .CFER .DIV.ENTR .MVW .SBT .TADD .TDIV .TFTD .TFXD .TMPY .TSUB PAS.MAX PAS.MIN PAS.NONCDSPAS.SINGLEMOD X `mpmh6@mH`   FF` (p 8  p (`h`(!A`po`oA(6`pq`oA(B`prpw`p`܈pv`w@wpw`v @THHp~`r(m~`A(l@wpw({~`({A ~`wpw@vpv8(K`{Ppp`p(`wA@zpp`p(`|@@@@:IGGpp@zpp{`{Apx(wpt`t@zpA{p{`{@tpx`r(`h`(Apv`xpt`t((`t(`v ?<EE@p `vpv`t AۈApt( A`( `wpw`p0r(`xpx(pm`q( (`p( `xp(Fp`pv`vP{()U(EE(+  xu`u@ވp hu  @vpv8(%`p(i y`w(T `wpw(V `w A݈@p Aew@p `mp}`}]]==Ap|p{pzpy(@PP- .+ PdN _^6G ߂lN[]  0'@V??X^VPAS.PARAMETERS92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS?<PAS.PARAMETERS~ ++5.ENTR .LBT.SBTPAS.NONCDSPAS.RUNSTRINGLENPAS.RUNSTRINGPTR+22Wp`p`A@(h6H@Hpp`2::`p(`3(!(,(,`PЈ(((+@3p3(`3p4`46:D7??`6(8p5865p3`p4(ppppp`(h`A@(e(e`ph6@H`H(O`p(`p6((`P(`/v??A@(`P(`(`p`((`ph6@H`(o(p`p`((`hAH( (xph6@HH`8(8( t` App(B  , @9F@@Xg+VPAS.REALROUND 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS@%GPAS.REALROUND $$3.DLD.DST.ENTR .FAD.FIXD .FSBPAS.NONCDS$((AA%A(AD'A(AD'( AAA(@@g'@@Xo?VPAS.LONGROUND 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS@,L*PAS.LONGROUND **a.DLD.DST.ENTR .MVW.TADD .TFXD .TSUB PAS.NONCDS*--A!3`!(%7%(A!7AA!A*-!!ׄ+A)`)h> A.DAD.DCO.DDE .DIN.DLD .DSB.DST .ENTR PAS.NONCDSPAS.SETMEMINFO2 PAS.SHAREDSIZE>oo3HHApHDKKs(F(FO(FM(FOK(((FAAK OD aMa(*A(*(FOADMIOQISOUIWDQpH`HeofAA ccAAOdAM`wpH( ;w @3RAAX\xVPAS.A1SETSHARED 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PASAmjePAS.A1SETSHARED ?? ;s.DAD.DCO.DDE .DIN.DLD .DSB.DST .ENTR PAS.A1SHAREDSIZEPAS.NONCDSPAS.SETMEMINFO2 ?oo3HHApHDKKs(F(FO(FM(FOK(((FAAK OD aMa(*A(*(FOADMIOQISOUIWDQpH`HeofAA ccAAOdAM`wpH( ;w @C@@XQVPAS.CLEARFILE 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS@8 PAS.CLEARFILE UPAS.DCBADDRESS1 PAS.NONCDS& A ` @  4U ` ( p 8 ( @)GAAXD'VPAS.MAXPOSITION 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PASAPAS.MAXPOSITION 08.DLD.DSTPAS.IOERROR PAS.NONCDS,,7$`@%( `@&(A A"A,4`(p8( % @Ь@@X/VPAS.LASTPOSITION92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS@ PAS.LASTPOSITION0ک.DLD.DSTPAS.MAXPOSITION PAS.NONCDSڲAA A 3F ` ( p 8 (@3AAXOMVPAS.APPEND_FILE 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PASAS>PAS.APPEND_FILE Ύ.ENTR .SBTPAS.NONCDSPAS.SETUPFILE qqZ[77`8p79(`7@EhD`7@F `7@G `7@JhL(`7@EA #8C:;<=B9(6`7@Ih7HF`7@H `7@K@6`L>q?A8(`  @Z@@Xj/VPAS.OPEN_FILE 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS@N&PAS.OPEN_FILE .DST.ENTR PAS.NONCDSPAS.SETUPFILE 99` p`@, `@-p `@.pA A +"#$%*&9w'A ( ` @i鈩??XTFVPAS.RESET_FILE92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS?u8PAS.RESET_FILE].ENTR PAS.NONCDSPAS.SETUPFILE gg#11`2p13(`1@?h>`1@@ `1@A `1@DhE(`1@?A #2=4567<3(0`1@Ch1H@`1@B 8gz9 A2((` @a@@X~MVPAS.REWRITE_FILE92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS@P>PAS.REWRITE_FILEΎ.ENTR .SBTPAS.NONCDSPAS.SETUPFILE qqZ[77`8p79(`7@EhD`7@F `7@G `7@JhL(`7@EA #8C:;<=B9(6`7@Ih7HF`7@H `7@K@6`L>q?A8(`  @s??X:]VPAS.APPENDFILE92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS?hPAS.APPENDFILEv  ?6.ENTR .LBT.SBTPAS.NONCDSPAS.SETUPFILE L==`p`p( h6(h6Hh6 `@`@(=`@h`@ `@`@ `@h`@@6`(E}}=AA`@ `@P(I(N@6p~`~(\@6 D6e`~(m@6`@P(s(}`@hH`@ }GA(`  @>>XvVPAS.OPENFILE92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS>,iPAS.OPENFILE $$.DST.ENTR .LBT.SBTPAS.NONCDSPAS.SETUPFILE $~~5 @@``p^`^p_e( h_6e(h_6Hh_6 b`^@pc`^@qd`^@r `^@sp_ _`^@up_A _`^@taePo(8(=f@6p]~44 @`](Kf@6 Df6T`nefghm`](\f@6i4{j A`( ` @@@XqLVPAS.RESETFILE 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS@=PAS.RESETFILE |  ?6.ENTR .LBT.SBTPAS.NONCDSPAS.SETUPFILE <<`{py`ypz( hz6(hz6Hhz6 }`y@~`y@|(7`y@h`y@ `y@|`y@ `y@h(?`y@ `yrr<<<@|P(C(H@@6px`x(V@H6 A6_{`x(g@H6`y@P(m(w`y@hyH`y@ r)A{((` @UAAXVPAS.REWRITEFILE 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PASALPAS.REWRITEFILE v  ?6.ENTR .LBT.SBTPAS.NONCDSPAS.SETUPFILE [<<`p`p( h6(h6Hh6 `@`@(7`@h`@ `@`@ `@h(?`@ `}}WrPAS.SPLITMOVE 0&&\.SBTPAS.IOWARNING PAS.NONCDSPAS.PUT PAS.WRITELINE &CCpl`o@hoH@Ap(opl(-`o@phoH@A@(-+oo`l(A`o@h`mpA(:(@opp(4(g`mXXC((p(G(g`o@pk`o@@6HHk``kpkpp`mp(K`o@hk`o@@0`lpn`nrX;;4s`r(tpo8r`r(zpp8r`r(pq8rqpm`pn(;:   @AAXVPAS.WRITESTRING 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PASAPPAS.WRITESTRING }77.ENTR .LBT.SBTPAS.IOERROR PAS.MOVEBYTES PAS.NONCDSPAS.PUT PAS.SPLITMOVE 7%BB`{(~~{|(<`z('`{(&p}pyh6@yHh~H~8y8}((;`{(;p}py`~@HyHA~8y8}(/(w`~@px`zooB66(Q`~@p}AM}x{`x@{px(i`{(ip}py`~@@6Hx@y@H`xpx8y8}(Y`{(m(w`~@hx`~@@0o""oA~p|p{pz( "@@@XjVPAS.WRITEENUM 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS@^PAS.WRITEENUM ]?? .DAD.DST .ENTR .LBT.MPYPAS.IOERROR PAS.MOVEBYTES PAS.NONCDSPAS.PUT PAS.SPLITMOVE ?EE`(((`(`p`p`(`A@A(`p`@@p`p`A@(Ah Ah6AH P(A`p((`(H`mEBB@p(r`@@p`hAH([ (qxph Ah6AH hAH8(o8(](`@p`@pA`@p`((T6 `@h`@@0))ΆA pppp(  )@f&@@Xh3V PAS.WRITECHAR 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS@E(PAS.WRITECHAR ((.ENTR PAS.IOWARNING PAS.NONCDSPAS.PUT PAS.WRITESTRING (EE""`$P/(p#p"%&#$"(!`%@0h%H1((.%`%@2&%(E=) A%'p$( @=\C@@X{QV PAS.WRITEBOOLEAN92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS@H>PAS.WRITEBOOLEAN&&4.ENTR .LBT.MPYPAS.NONCDSPAS.PUT PAS.SPLITMOVE &ggÌ55A;8F(`9( p9`9(`8@Pp6`6h6H8AH( (4x:Ap5`N9@G@6H@5Hh;AHO;85(28:(!>g##=?A;@@0p-`-2b43`2(4p182(%< @{Y>>XV'PAS.LINESIZE92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS> PAS.LINESIZE 4.ENTR PAS.NONCDS[ ` @h H@p `   eaA (  @@@XG#V'PAS.FILEPOSITION92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS@PAS.FILEPOSITION08.DLD.DSTPAS.IOERROR PAS.NONCDS''`@!( `@"(AA'4`(p8( ! @ja!>>XAV(PAS.SEEKFILE92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS>5PAS.SEEKFILE##xn.DCO.DLD.DST.ENTR PAS.IOERROR PAS.NONCDS#bbӑ00`3p0`0@:p1`0@;(+`0@<p242`0@=p2@`0@<A2(p21L@02L11?11>1(//935b 6 A3( @AAX~RV(PAS.READNONTEXT 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PASA_;PAS.READNONTEXT %%PAS.IOERROR PAS.MOVEBYTES PAS.NONCDSPAS.READSEQUENT %hh77`9@Mp77,L( A I9(7+LA(J9(7.L(A97Q770P7`9@Op7`9@N p867K:K8;h..<`;(=p98;`;(Cp:8;(  .@qP@@Xg+qV)PAS.REFERENCE 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS@+[PAS.REFERENCE  !.LBTPAS.IOERROR PAS.NONCDSPAS.READSEQUENT ==`ZpX`X@gpYY-e(VY,e(cZ(V`X@hPd(Pe(PfA(!(PZ(P`X@iA((Z`X@kpW`X@j@W(=`X@m@6HWHhXHl(H@@Z=`X@lhnY,e ehXHi`WpW`X@khW(PY0oYYpY[@((cR\`[(]pZ8[(  @(@==X!6V*PAS.GET 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS= 1[(PAS.GET  ]PAS.IOERROR PAS.NONCDSPAS.REFERENCE OOv''`'@3+2(  0'(&`'@3,2(1'(&A'`'@3@04`'@3@5(O) `((*p'8(( @ (o??XI DV*PAS.IENDOFLINE92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS?'W4PAS.IENDOFLINE  ,P.ENTR PAS.IOERROR PAS.NONCDSPAS.REFERENCE __000p1`2@B+@(`0(A<2(.2`2@C(`2@B,@(p1`2@B,@(.`0A(((..=2`14_5 A23p0`Ap1( @ @}U@@XFV*PAS.ENDOFLINE 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS@P PAS.ENDOFLINE 01PAS.IENDOFLINEPAS.NONCDSAp` l ` ( p8 `p(  @R@@XG<V+PAS.ENDOFFILE 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS@H+PAS.ENDOFFILE 0]PAS.IOERROR PAS.NONCDSPAS.REFERENCE QQu''`*p(`(@:p))+8()*8(5*`(@;(),8(*`*@:,8p'`'+Qk, `+(-p*8+`9p'( 8 @{jAAX</V,PAS.READINTEGER 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PASA`|PAS.READINTEGER ##D.DCO.DLDPAS.IOERROR PAS.NONCDSPAS.READDOUBLE#..&A*( (,(((`(..))y`(p8`($p8( )@}1=??X3.;V,PAS.SKIPBLANKS92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS?-PAS.SKIPBLANKS ''n.ENTR PAS.ENDOFFILE PAS.GET PAS.NONCDSPAS.REFERENCE 'YYs**A, 5p*`*(!`,@8P9( (`,@7,5(`,@7@A0:,(, 5p*`*(&A,`*p+`+-Y.A,`6p+(25 @e??XA=rV-PAS.READDOUBLE92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS?Y\PAS.READDOUBLE@@ {^.DLD .DNG.DSTPAS.ASCII2DOUBLEPAS.GET PAS.IOERROR PAS.NONCDSPAS.REFERENCE PAS.SKIPBLANKS@j BBA [AZ(UpWpV`Z@l,k(U`Z@mPopX`X($`Z@mPn($(&AAZZ`Z@m@q(E`Z@m@p(EpW`Z@mpY[XY k0VpVAZ''BAZ((`XA(M[D [`W0V(UUjZ\'--]`\(^pZ8\`\(dp[8\(  +--@??XOW}V.PAS.READSTRING92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS? ivPAS.READSTRING++ I.ENTR .SBTPAS.ENDOFFILE PAS.GET PAS.IENDOFLINEPAS.NONCDS+"GGApqrA(rAr(Hu(-tA@q(,rz(,hs6@qH`r@{Ar`qpq((HtA@q(H9rz(H@q@shrH{Ar`qpqUUsG**(-u(_tA@q(^hs6@qHH`|`qpq(K(ptA@q(p@q@sh|`qpq(_vUicwAr( @ٜ>>X)V.PAS.READENUM92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS> PAS.READENUM ``R .DAD .DCO .DDI .DIN.DLD .DNG.DSB.DST.ENTR .LBT.MPYPAS.BITMASK1PAS.GET PAS.IOERROR PAS.NONCDSPAS.SKIPBLANKSPAS.UPSHIFTALPHA`BBA(`@%p`@$@(p` ,H@A((`p` ,HH@(@`@#A@㄁(@`p`@&@6Hp(!`BKK@p`A@A(QP(`䈄@p`A@h D p`(߈`phA  AAAAA (zp`((`A@(`JJ@&@6HHApph6AH PA((D `p(`㈈P((h  ((h6 P'p`(h  `(pvS Ap88((cKKb22Ap爀p(  K@=>>XBV/PAS.READCHAR92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS>-PAS.READCHAR]PAS.IOERROR PAS.NONCDSPAS.REFERENCE XXF++A+`+@?,`+@>+=(;+(*`+@>,=(<+(*`+@>@0@`+@>@A-X++&.`-(/p+8-`-(5p,8-( +@)>>XV0PAS.READLINE92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS> PAS.READLINE PAS.GET PAS.IENDOFLINEPAS.NONCDS~ A A(  (  4V` (p 8 (@5??X)9TV0PAS.READBUFFER92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS?q7PAS.READBUFFER 2PAS.MOVEBYTES PAS.NONCDSPAS.READSEQUENT hh11`4p1`1@Mp22-LA( 4`1@O6`1@N(&66`1@P6`4@Qp3&3K5K620R22S2`1@N 7h::i8`7(9p487`7(?p587`7(Ep687(  :@bف??X/V1PAS.CONVERT 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS?3PAS.CONVERT HH `.DCO.DLD.DST.ENTR .LBT.MVW PAS.BITMASK1 PAS.BOUNDINTEGER PAS.INLINEERROR PAS.NONCDSPAS.SHIFTNPUT H BBp(h(A -( ( (h/6@(HHP((`(p((h( A-(!(!(h( -(*(*(7h/6@(HP(3(7`(p((!`(p'h' -(B(B(UBBBh/6@'H ,HH@ (U`'p'(9h' -(^(^(ih/6@'HP(i`p*(`(@'p`A@(`P(y(h/6@(HHh@(f(`p*(`p*[DDA`hA=pp(`(A@'(h/6@(Hph/6D@(H 09 (@ AF ( af ((`@p(`@@}p(爈`@@}p(h  A2)`(p((ffh448(p*A 2`+Py(P|( P~((D>?p)(U@A`zp)(fBC`{p)(Hh `*(##`*p,`,3f^^-4CCAA/0A-1p+( 1 3f~~^y  0`ab k @b"==X-V2PAS.BINARY92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS= PAS.BINARY ))s6.DLD.DST.ENTR PAS.CONVERT PAS.NONCDSPAS.RUNTIMEERROR)&&A*p`A(AAA &.L! AAAp(@v~>>Xa-V3PAS.OCTAL 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS> PAS.OCTAL ))s6.DLD.DST.ENTR PAS.CONVERT PAS.NONCDSPAS.RUNTIMEERROR)&&A*p`A(AAA &.R! AAAp(@g'==X!-V3PAS.HEX 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS= F] PAS.HEX  ))s6.DLD.DST.ENTR PAS.CONVERT PAS.NONCDSPAS.RUNTIMEERROR)&&A*p`A(AAA &.Z! AAAp(@1AAXV4PAS.HALTPROGRAM 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PASAYtPAS.HALTPROGRAM DD E .DDI.DLD.DST .ENTR .LBT .MBT .SBTLOGLU PAS.DOUBLE2ASCIIPAS.NONCDSPAS.STOPPRTNREIOD\HHAN(9h6`6A |`pMaN}pL`L((,`MpMh6@LH h6pq@MH`q @LpL(A/Lpq`Mpr9~qUr`OpPN xQpRpSApTI :HPKt ++_uAA ssAN( UaPascal Halt: +@*LI <<X\V4PAS.HALT92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS< PAS.HALT !!S.DLD.DST.ENTR PAS.HALTPROGRAM PAS.NONCDS! A ZAAA(@?^>>X V4PAS.HALTONLY92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS>3PAS.HALTONLYdPAS.HALTPROGRAM PAS.NONCDS A 8(((@L= ==X5ȉ' 8PAS.NONCDSLIB 92833-16119 REV.6000 <920930.1937>/P1K/LIB/STD/ETC_B.MAC=PAS.CDSCONFLICT PAS.NONCDS@;;Xڑȉ' 8PAS.BOUNDINTEGER92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;JPAS.BOUNDINTEGER ).DLD.DST ,,A8(A@AA8,@ٌ;;Xaȉ' 8PAS.BOUNDDOUBLE 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;HPAS.BOUNDDOUBLE N.DCO.DLD.DST000`p@p( (88((( 0  @3Q;;X+ȉ' 8PAS.RANGEINTEGER92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;TPAS.RANGEINTEGERQ.DLD.DSTPAS.RUNTIMEERRORFF!''(p'`(A (!A@((!`'AA88(A8&*(F * @og;;XW%ȉ' 8PAS.RANGEDOUBLE 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;RPAS.RANGEDOUBLE .DCO.DLD.DSTPAS.RUNTIMEERROR>>b  `p#@$p#8# (((# (( 8#"#(> " $ @[::Xȉ' 8PAS.CHECKPTR1 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:FPAS.CHECKPTR1  UXPAS.RUNTIMEERROR Ǭ x ( A h 8   @N\m::Xȉ' 8PAS.CHECKPTR2 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:FPAS.CHECKPTR2  UXPAS.RUNTIMEERROR ( (   8@~>::X ȉ' 8PAS.DOUBLEMOD 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:CPAS.DOUBLEMOD ##?.DAD.DCO.DLD.DMOD .ENTR PAS.RUNTIMEERROR#//٦((A /@~::Xȉ' 8PAS.SINGLEMOD 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:%BPAS.SINGLEMOD .DIV.ENTR PAS.RUNTIMEERROR00W~( ( `A0@|88X1ȉ' 8PAS.IMAGE092833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC8UPAS.IMAGE0((`.ENTR AVLMENDMLIMEM PAS.RUNTIMEERRORUNM2UNMEM (NN..A@`(+(pHpp(+A,.//@0@.(!!-@,`pHp@p@HcN 0 @ye88X3ȉ' 8PAS.IMAGE192833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC8UPAS.IMAGE122 }.ENTR AVLMENDMLIMEM PAS.RUNTIMEERRORPAS.TOPOFSTACK1 UNM2UNMEM 2PP800A@`(-(pHpp(-A.011@2@0(!!/@.`pHp@p@pHcP 2 @Rq88X3ȉ' 8PAS.IMAGE292833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC8UPAS.IMAGE222 }.ENTR AVLMENDMLIMEM PAS.RUNTIMEERRORPAS.TOPOFSTACK1 UNM2UNMEM 2PP800A@`(-(pHpp(-A.011@2@0(!!/@.`pHp@p@pHcP 2 @Rq::X6ȉ' 8PAS.PACKSTRING92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC: rPAS.PACKSTRING  j.ENTR .SBT  55>pph68H8(8`(5@r2;;X ȉ' 8PAS.UNPACKSTRING92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;bPAS.UNPACKSTRING  c.ENTR .LBT  88[ ppHh688(8`8(8@™99XYȉ' 8PAS.SEGMENT 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC9PAS.SEGMENTLOAD PAS.SEGMENTRTN.ENTR PAS.SEGMENTERRORSEGLD `p A @q ;;Xȉ' 8PAS.SETPACKAGE1 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;8hPAS.RANGESET PAS.SETTEMPORARY"".ENTR PAS.BITMASK1PAS.RUNTIMEERRORPAS.SETINIT " c  d FF  D P(8 D P(#8@pphDH0p2 (F @ H (J H,@H88() NO (I2%%zQhDHa0pZ (88(QP% hDDadee D P(x8db D P(8aehb (b@ppcf (HDHa0p (` ,@Hd88(cf88ֿ@(ppPcfepb(pPhg(8@Vu;;X8ȉ' 8PAS.SETINTERINIT92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;SPAS.SETINTERINIT.ENTR PAS.BITMASK1PAS.RUNTIMEERRORhh88Ap(1pA(1`@@788`PH (1 H,@H8(56h@U::Xȉ' 8PAS.SETDIFFER 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:4PAS.SETDIFFER .ENTR // 0 D p8888(/@oY99Xjȉ' 8PAS.SETUNION92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC90PAS.SETUNION.ENTR ..5 D p8888(.@U88Xȉ' 8PAS.SUBSET92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC8`PAS.SUBSET.ENTR 11>s D pp 88 8(X1@1*O;;Xȉ' 8PAS.SETINTERSECT92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;WPAS.SETINTERSECT.ENTR ,,4 D p8888(,@xQ99XoVȉ' 8PAS.SETINIT 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC9APAS.SETINIT ?PAS.BITMASK1PAS.RUNTIMEERRORz  D pxp<<p8(p8p8p8`P(/`8` 8(1`(L8(MhH (M ,@H8(888(M5PATU(L@pt::X&ȉ' 8PAS.LONGNEGATE92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:*^PAS.LONGNEGATE  5?..TCM .MVW 55;.(p8( p8`hA5@&1D77Xȉ' 8PAS.TIME92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC7G=PAS.TIMESTAMP VPAS.TIMESTRING2.DIV.DLD.DST.ENTR .MVWEXECBB//ampm : . Fri Sat Sun Mon Tue Wed Thu Mar Apr May Jun Jul Aug Sep Oct Nov Dec Jan Feb B -56 := <`A`5h<=H @iM, 19 2P VAAU`A`GhUVf/4`1h0րAp1HR`2h@(uh`2xT`pQ`2h0Hp9 A`1H:`4@pOp6h3H`4 H HH`vvEEA@ ӈp/` pL0p8h/ HJ`/@@0րp7@4Q@4@3  HH`A @@0ը n 00v@9XS::X.ȉ' 8PAS.TRACEDUMMY92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:66PAS.TRACEBEGINPAS.TRACECLOSEPAS.TRACEENDPAS.TRACEINIT 6 tE @T::Xȉ' 8PAS.MOVEBYTES 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:TPAS.MOVEBYTES   d.ENTR .MBT ..Ap`6h6A.@k䊤;;Xo#ȉ' 8PAS.WORDBITMOVE 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.M((AC;ZPAS.WORDBITMOVE  4g.ENTR .MVW >>a`hpx(0 p!x!x""p!0 >@Qo::Xȉ' 8PAS.SHIFTNPUT 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:OPAS.SHIFTNPUT .DLD.DST.ENTR ((Ap@!8( @(@{!;::Xȉ' 8PAS.REALINPUT 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:55PAS.READLONGPAS.READREALSPAS.SREADLONG <PAS.SREADREAL 5PP .DIV .DLD .DST.ENTR .MPY.MVW .NGLPAS.ENDOFFILE PAS.GET PAS.IOERROR PAS.REFERENCE PAS.STRGETPAS.STRIOERRORP   A  BB##p( `@P(((/(/( pu`|hBe<8SE89:K HKA ;<AAS!!Op`pt`OPtQ(e`tP(Zpu`|hR`tSPPSA 7u {KKv{ +-09` .LEle(ph(hpx`@P(p` h (@@(@  p(h@@X(`F@FhI @pF8G(`hh8 @F!(H(ވ`pGpFhI` HxI(Ĉ`F@}8I`GP@(2Pd} ~~ڍLLN azhv #( 8}A v5 @AA v xA@ @ x@}p}`z6pzA x AA x vA  v# p9QQ@@A(W(E(K(O w x`v(T vxy(R`vpy~dR??pxpwpv`97:08p`pdhx`ypyhw`xxwpx:`h pֈ`h  @H xP|(}@(o`vh (h( xv@}p}hppDqBBH}x}h!(x@ (` 6   HوhX|xHx(p@pH}x}`|pp@p(8HPHSp8؄ 50OO**8(¨`u(`(AOPtQ(pt(`t(`(AA`@ xO$99`|p`pGp}pvpwpxpypzpFpHpIppp~`p(8܀hH ( pH (/P(JP(JP(iP(]P(]P(]P(](z@r8(D8(C8ك7<<8h H Hhx(8~(@r(W((((U((pH(hX([(p(r((f(((((88(r(((((((~~6ss@@hDrhrH $r(((((((`u(Q(AhH|x`v0w( h8HH~HI(`hh}(6 ֈ0~$$ ( A`pvpwpxpy!(($@֊;;X ȉ' 8PAS.REALOPERATOR92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;77&PAS.REAL5OPSPAS.REAL5PACK ]PAS.REAL5TRUNC7PAS.REAL5UNPACK 70.DLD.DST.ENTR .MVW2@  "GG"`#hA`$h"H@`h%&A(^u%&xHD``!(e(e(ehHhG4AiCCx` p@ 8(mhixHXu(xx @8 8` AhHxD8AD8DhHi(>>(pp 88(`BppP (`P(@p (`i@p(AHH P(`@pSBB(1(p(u8(H`H xH` @hHd h d Ad ($h A(!`C(S 8,>>`(U`@(;@hxh(J(@@h(J@]!(UH(U   D(U`p `hc(hG(^xtiHa(oZZlj))(o (rhtc`phhh`h`8({`h`@ph`PGuZ??`(``hhG`P(Ȉ`p`hQh` uhu8(`P(hu(hu`h`@ph`PGZhxxh w bbڼ--` phGhG@pppp p!p @h``ch Xp ڈpH H hbzCCAA`hs`s`HH ``hA5A`5h`hxH Hx0[hH H ]]^Q22X(U(PAh6`7\`\hA`mh(`]n@ `@s`(`(E`(E]@::X;?ȉ' 8PAS.BLANKFILL 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:QPAS.BLANKFILL .ENTR .MBT.MVW.SBT  hhm77pp((`h`(>`@(>p` A(>`6h6A`(>x`@@(>p`h@::Xůȉ' 8PAS.ENTRYEXIT192833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:VPAS.ENTRY1GPAS.EXIT1 %%.MVWPAS.CHECKSTAKSZ1PAS.HIWATERMARK1PAS.TOPOFSTACK1 %u>>p8p8f(H`hxAx@``H@xpp(#(2`p@p`p`h(BX(B(8 8{3@==8(2vGp8GGp8Gf@GphH`p@p`pvG`pppppppf`p`Pv--}8(yhH hH @- _ @ȧ::Xmȉ'! 8PAS.ENTRYEXIT292833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:@@PAS.ENTRY2xPAS.EXIT2 PAS.RECVALPARM<PAS.RECVARHPO !PAS.RECVARPARM@== t.DAD.DCO .DLD.DSB .DST.LBP.MVWPAS.CHECKSTAKSZ2PAS.HIWATERMARK2PAS.TOPOFSTACK2 =}AAp8p8f(MbpWV  R ZxY`fpXbp]`]p\@k(&p]`jp\A`XhY\h\X](8pXhjZ ZxY(bJJ AA R g@ ~~eC88(MJ(M(I J p^cp_(Sh`^h_(eX(e(^_8^8_(Xf(v`ep```Pf(v`pa a8`(jfxp~_{>>8xxp8xhf@lfxAJ g AH ZxX`fpYbp]`]p\@k(p]`jp\`XhY\`\P](xYhjAAZ ZHxX(`ep```Pfx`pa ,,&&a8`(`pbpcpdpedpfpgph,jj66( Tp`@(䀀`fH A(RA 8Ψ TJp`T(((bT(((AJ TAHf`i ͈8j88*`(p8@(`f(hg`877!`!(#p8!`!()p @8! A (7΁ ` !733P<`<(>p:8<`<(Dp;8<`i: ;΁;`;:<3 V f,i @:Y;;Xjȉ'" 8PAS.CHECKSTAKSZ192833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;cPAS.CHECKSTAKSZ1%%.ENTR PAS.RUNTIMEERRORPAS.TOPOFHEAP1PAS.TOPOFSTACK1 %""np8`@@"  @M;;X~#ȉ'" 8PAS.INITMEMINFO192833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;PPAS.INITMEMINFO1RR x.ENTR LIMEM PAS.HIWATERHEAP1PAS.HIWATERMARK1PAS.LOWA((TERHEAP1PAS.LOWATERMARK1PAS.RUNTIMEERRORPAS.TOPOFHEAP1PAS.TOPOFSTACK1 R11< ! hxDxx@D@ppp @A"!1 ! @ة;;Xiȉ'" 8PAS.INITIALHEAP192833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;CPAS.INITIALHEAP177A.ENTR PAS.CURRMARC1 PAS.HIWATERHEAP1PAS.LOWATERHEAP1PAS.PREVFREE1 PAS.TOPOFHEAP17--`@p@p@@pp h -@ 99XBȉ'# 8PAS.MEMDATA192833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC9~~PAS.CURRMARC1  PAS.GETMEMINFO1 PAS.HIWATERHEAP1PAS.HIWATERMARK1PAS.LOWATERHEAP1PAS.LOWATERMARK1PAS.PREVFREE1 PAS.SETMEMINFO1 PAS.TOPOFHEAP1~PAS.TOPOFSTACK1  4g.ENTR .MVW S `h  `h@XwB;;Xqȉ'# 8PAS.CHECKSTAKSZ292833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;cPAS.CHECKSTAKSZ200.DAD.DCO.DLD.DSTPAS.RUNTIMEERRORPAS.TOPOFHEAP2PAS.TOPOFSTACK2 0))<@A8()  @%p;;X.ȉ'# 8PAS.INITMEMINFO292833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;PPAS.INITMEMINFO2}}8$$$LARGEMA1$$$$$$LARGEMA2$$$.DAD.DCO.DDE.DLD.DST.ENTR PAS.HIWATERHEAP2 PAS.HIWATERMARK2PAS.INITMEMINFO1 PAS.LOWATERHEAP2 PAS.LOWATERMARK2PAS.RUNTIMEERRORPAS.TOPOFHEAP2PAS.TOPOFSTACK2 } VMAST VV`..  hX-($` JFJJ  AJ)JJ  J($A(,+@V@8;;X7ȉ'$ 8PAS.INITIALHEAP292833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;CPAS.INITIALHEAP2GG Ŵ .DLD.DSB .DST.ENTR .LBPPAS.CURRMARC2 PAS.HIWATERHEAP2PAS.LOWATERHEAP2PAS.PREVFREE2 PAS.TOPOFHEAP2G\\:44 . 0  4x6  68686 4 6 8686 68686 6 2  \@P99XB'ȉ'$ 8PAS.MEMDATA292833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC9~~"PAS.CURRMARC2 PAS.GETMEMINFO2  PAS.HIWATERHEAP2PAS.HIWATERMARK2PAS.LOWATERHEAP2PAS.LOWATERMARK2 PAS.PREVFREE2 PAS.SETMEMINFO2 PAS.TOPOFHEAP2~PAS.TOPOFSTACK2 *.ENTR .LBPR .MVWߵ A`%& `h%&@n"::XiBȉ'% 8PAS.INITIALIZE92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:TT PAS.GETNEWPARMS  PAS.INITIALIZE2PAS.NUMERICPARMS+PAS.RUNSTRINGLEN0.PAS.RUNSTRINGPTR0PAS.STRENDS T.ENTR .MVWEXECRMPAR   MM ((<p`ppp x 8 `p (`p `+`.MB2 1`Ah1;2 ?A< @!;;X ȉ'% 8PAS.SETEXITPARMS92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;hPAS.SETEXITPARMS((<.ENTR .MVWPAS.EXITDATAPAS.EXITDATAPTR PAS.EXITDATASET (P `Dh p@c#;;X\ȉ'% 8PAS.RETURNPARMS 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;99~PAS.EXITDATA PAS.EXITDATAPTR PAS.EXITDATASET PAS.RETURNPARMS 9 .ENTR .MVWPRTN88A@¤::X ȉ'& 8PAS.STRENDERS 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:PAS.STRENDCHECK PAS.STRENDERROR 03.ENTR PAS.STRENDS  Hp`@;;X_ ȉ'& 8PAS.INLINEERROR 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;cPAS.INLINEERROR  UXPAS.RUNTIMEERROR px  @8V::Xȉ'& 8PAS.ERROREXIT 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:,GPAS.ERROREXIT  8KPAS.ERRORCATCHER ..qp`Hxp@p -.@sђ;;XTȉ'' 8PAS.DCBADDRESS1 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;'PAS.DCBADDRESS1 .ENTR   00`@@X(@@@X@(0@&WE;;XY ȉ'' 8PAS.DCBADDRESS2 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;(}PAS.DCBADDRESS2 ###;.DAD.DLD.DST.ENTR .LBPR PAS.DCBADDRESS1 #//xA hHAAAx/@99XK,ȉ'' 8PAS.INITFILE92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC9/PAS.INITFILE 4g.ENTR .MVW KK&&`@)h   (@*` h +K@+JI::X5Aȉ'( 8PAS.OPTDECODE 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:LPAS.OPTDECODE .DCO.DLD.ENTR :sharexclsavepurgcctlrewieof exte  PP+((h0?P@('`p(- ``p0?p@0?pAA88(5 noP@#s;;Xmȉ'( 8PAS.REALTIMESIZE92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;PAS.REALTIMESIZE  *\.ENTR .XLA @ku5;;X_ȉ'( 8PAS.REALTIMECOM192833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;kPAS.REALTIMECOM1  *\.ENTR .XLA @1XP;;Xcȉ') 8PAS.REALTIMECOM292833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;kPAS.REALTIMECOM2  *].ENTR .XLB O`@2;;Xqȉ') 8PAS.BACKGRNDSIZE92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;nPAS.BACKGRNDSIZE  *\.ENTR .XLA @7V@;;Xcȉ') 8PAS.BACKGRNDCOM192833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;QPAS.BACKGRNDCOM1  *\.ENTR .XLA @c#;;Xgȉ'* 8PAS.BACKGRNDCOM292833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;QPAS.BACKGRNDCOM2  *].ENTR .XLB S`@::X, ȉ'* 8PAS.BLANKSIZE 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:_PAS.BLANKSIZE .w$BCOM $FWSY .ENTR .XLA.XLBM> J@@@::Xu ȉ'* 8PAS.BLANKCOM1 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:BPAS.BLANKCOM1 $BCOM .ENTR .XLAj@C::Xv ȉ'* 8PAS.BLANKCOM2 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:BPAS.BLANKCOM2 $BCOM .ENTR .XLBMl`@z::X ȉ'+ 8PAS.LABELSIZE 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:KPAS.LABELSIZE y$BCOM $LCOM .ENTR .XLA.XLBM> J@@[::Xȉ'+ 8PAS.LABELCOM1 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:.PAS.LABELCOM1 $LCOM .ENTR .XLAj@f&::Xȉ'+ 8PAS.LABELCOM2 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:.PAS.LABELCOM2 $LCOM .ENTR .XLBMl`@;;Xtȉ', 8PAS.A1SHAREDSIZE92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;nPAS.A1SHAREDSIZE 5$IDNBR.ENTR .XLA1 VMAST ,,) A (`(hJ ,@YxH;;X~!ȉ'- 8PAS.BITOPERATOR192833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;,,WPAS.BITDEPOSIT1 +PA((S.BITEXTRACT1 PAS.BITINDEX1 ,)) .DAD.DDI.DIV.DLD.DMOD .DMP.DST.ENTR .MPY)  @p$(%   $@@`+(3$`h h x`(<(K`0 pG`@ 0pH!!`$`@ 0pT@!@$`W`(_(u"h pjdAA`@@0 pr0 poA0A$`@ 0 p}"A`ph 0$``#`(`"$AAA"$"EpAp ApApApEp w VGG`hhxh (x`(p(̄p@ !p$@p`p p!p`( A(AAAAAA Ax@A$@A`HHK##p`@p`(`0 p!pp`0 p!xx H@;;X)ȉ'. 8PAS.BITOPERATOR292833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;,,WPAS.BITDEPOSIT2 +PAS.BITEXTRACT2 PAS.BITINDEX2 ,.. .DAD.DDI.DIV.DLD.DMOD .DMP.DST.ENTR .LPXR .MPY.  @p$(%   $@@`+(3$`h h x`(<(K`0 pG`@ 0pH!!`$`@ 0pT@!@$`W`(_(u"h pjdAA`@@0 pr0(poA0A$`@ 0 p}"A`ph 0$``#`(`"$AAA"$"EpAp ApApApEp w fGG`hh'xh (x`(p(̄p@ !p$@p`&p p!p`( A(AAAAAA Ax@A$@A`VV++&p`( `@p x`(`0 p!pp`0 p!!xx V@S99XH"ȉ'. 8PAS.BITMASK 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC9qPAS.BITMASK0PAS.BITMASK122""@ @ 2@΁;;Xaȉ'/ 8PAS.STRINGADDRS 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;rPAS.STRINGADDRS .ENTR `@מ99Xgȉ'/ 8PAS.SCRATCH692833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC9PAS.SCRATCH6  h$SCRN .XLA bs8@Ð::XL3ȉ'/ 8PAS.STRRANGER 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:XPAS.STRRANGER ##7.DAD.ENTR .LBP.LBPR .LBTPAS.RUNTIMEERROR#  HH!++AAA(A( A p AOA@6` xHhH@8;;Xuȉ'0 8PAS.FIXEDSTRING 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;KPAS.FIXEDSTRING .DAD.ENTR .LBPR .LPXR ##8A6#@;;X-ȉ'0 8PAS.BASICSTRINGS92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;!PAS.BASICSTRINGIPAS.BASICSTRINGO!!r.DAD.DLD.DSB.DST.ENTR .LBP.LBPR !OO--0,8 8AA+@pH*AH`O@s33::X:ȉ'0 8PAS.STRINGDATA92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:PAS.STRINGDATA1 PAS.STRINGDATA2 .DAD.DLD.ENTR ##e A`@#@5T::Xe ȉ'0 8PAS.STRVALPARM92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:~PAS.STRVALPARM.DSTPAS.STRAPPENDSTR88px(8(8p8 a @::Xȉ'1 8PAS.MOVEPACUP 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC: LPAS.MOVEPACUP N.DAD.DLD.DST.ENTR .LBPR .MBTcEEpAx5A`ހpAx5A`ވp`(4`6@h6H`0(C`pd@(:`pA`p@))`JdQ`pd](E)MMd--``hH ` xpA`6axb6Ac`A85``5AAbb`dM Z f @;;X7ȉ'1 8PAS.MOVEPACDOWN 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;ZPAS.MOVEPACDOWN (!.DLD.DST.ENTR PAS.XLBTPAS.XSBTQQ ,,pp513@p@p@p@p(1p6A.3685(Q@k77Xsȉ'2 8PAS.XLBT92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC7 @PAS.XLBT  .DAD.ENTR .LBP.LBT""*x5A@6H"@t 77X|ȉ'2 8PAS.XSBT92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC7 PAS.XSBT .DAD.ENTR .LBP.SBT$$:4x5A@6HH$@-::Xȉ'2 8PAS.TRACEBACK 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:4PAS.TRACEBACK .ENTR   @;;X ȉ'3 8PAS.SEGMENTEDMOD92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;,, PAS.MAINMODINIT PAS.SEGMENTEDMODPAS.SEGMODINIT, r.ENTR LIMEM ? xQ  ` @  y `@@x877Xlȉ'3 8PAS.STOP92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC7 8PAS.STOP EXECPAS.RETURNPARMS ,@ +CCXVV3PAS.HEAPSTACK192833-16110,REV.5000,870622 870622.0830/P1K/LIB/HEAP_STACK_1.PAS C@8VBBXwV4PAS.DISPOSE192833-16110,REV.5000,870622 870622.0830/P1K/LIB/HEAP_STACK_1.PAS BlPAS.DISPOSE1##.ENTR PAS.GETMEMINFO1 PAS.NONCDSPAS.RUNTIMEERROR#HHAaiA(  t_([iA@b(`dAi( u_([ip\@\p\``A(/p`\AP`(76v_([p^`hp]`]Ai(J`]p^`]//>Hp](;`^(O^pg`\hg `gh\il/[m Aijp`kp_([^\@4BBXߏZV4PAS.MARK1 92833-16110,REV.5000,870622 870622.0830 /P1K/LIB/HEAP_STACK_1.PAS BVQPAS.MARK1 77.ENTR PAS.GETMEMINFO1 PAS.INITIALHEAP1PAS.NONCDSPAS.RUNTIMEERRORPAS.SETMEMINFO1 7 BBAG`HPJ((   G`H@Xp`GA@(WF(D@HpE`ME`EhN`EO`EpN`E@YpEE`EhE`EpM@EpH`HA@L(A`HpL cBDGQ ;RAOPpF(@x0DDXMtV5PAS.COALESCE1 92833-16110,REV.5000,870622 870622.0830 /P1K/LIB/HEAP_STACK_1.PAS DKPAS.COALESCE1 pPAS.GETMEMINFO1 PAS.NONCDSPAS.SETMEMINFO1 Ϡ==A`P(`p( (`p(`p`pp`p`p`p`@p`()(D@@A@(D`P(D``hl=<< `pp`p`P(J(`(`p`P(U(`p`p`@p`A@(u`@p`h `p({`p`(#y p`PA(([8(@Gf_@@XV6PAS.NEW192833-16110,REV.5000,870622 870622.0830/P1K/LIB/HEAP_STACK_1.PAS @ +((PAS.NEW1 @@.ENTR PAS.COALESCE1 PAS.GETMEMINFO1 PAS.INITIALHEAP1PAS.NONCDSPAS.RUNTIMEERRORPAS.SETMEMINFO1 @tt4M99`p:`pA@(pp9(#`P:(`p`pp9(#pp9`9(`(8`@@p`A@(8`p;t<==8;(`PȈ(B(ap{`@{h@p|`@{A@(Z`@{@ʈ(``h (s`@@p`A@(p`p`p|`|`|p|`| wy} XX~22A8}(>`P((`A(p;`(;`(}(X App(@DBBXXV7PAS.RELEASE192833-16110,REV.5000,870622 870622.0830/P1K/LIB/HEAP_STACK_1.PAS BPPAS.RELEASE1-->.ENTR PAS.GETMEMINFO1 PAS.NONCDSPAS.RUNTIMEERRORPAS.SETMEMINFO1 -}}DDAFNA(  VE(CNA@G(`IAN( WE(C`MpD`DN(-`D(-`DpD("`D(?`DpGDpL`DpM<FN(CCWEP};GQANOpE(]_@ɡaDDXV7PAS.DYNAMICDUMP192833-16110,REV.5000,870622 870622.0830/P1K/LIB/HEAP_STACK_1.PAS DNPAS.DYNAMICDUMP1tLL %.DAD.DDE.DST.ENTR PAS.GETMEMINFO1 PAS.NONCDSPAS.WRITEDOUBLE PAS.WRITEINTEGER PAS.WRITELINE PAS.WRITESTRING L5]``AA  A AA  ! (A-  6A A ? FAK  TA [`````AA  i  rA y~A A  A  AA   A  A SSƁA `P((A Ӂ  ܁A か (z`p`p`p~`(z AA   A  p}`}XX(l`~PAp}   'A,~ 3A8~ ?h~ DKA R~ h~ eA `~p~++ok(p`(u`p~`p( +6``A(> Top of stack: Top of heap: High stack: High heap: Initial stack: Initial heap: Previous free: Current mark: Heap/stack not initializedMark Point Size   Start Next @DDX1V9PAS.DISPOSE1S 92833-16110,REV.5000,870622 870622.0830 /P1K/LIB/HEAP_STACK_1.PAS D8'PAS.DISPOSE1S ##.ENTR PAS.GETMEMINFO1 PAS.NONCDSPAS.RUNTIMEERROR#00mA$A(  /($A@(0$'0`( A$%p&p([^@eAAXdV9PAS.MARK1S92833-16110,REV.5000,870622 870622.0830/P1K/LIB/HEAP_STACK_1.PAS AVPAS.MARK1Sy1.ENTR PAS.GETMEMINFO1 PAS.NONCDSA`7Ap(@gM BBX_;V9PAS.NEW1S 92833-16110,REV.5000,870622 870622.0830 /P1K/LIB/HEAP_STACK_1.PAS B~2PAS.NEW1S -->.ENTR PAS.GETMEMINFO1 PAS.NONCDSPAS.RUNTIMEERRORPAS.SETMEMINFO1 -EEC%%A'`&@(p(`(A@,(`(p,`'A@(( `(/A'($A$:%2E3A/0p&1p%(@8VDDX3V:PAS.RELEASE1S 92833-16110,REV.5000,870622 870622.0830 /P1K/LIB/HEAP_STACK_1.PAS D(+PAS.RELEASE1S -->.ENTR PAS.GETMEMINFO1 PAS.NONCDSPAS.RUNTIMEERRORPAS.SETMEMINFO1 -::n A!)A(  1 ()A@"(2 (A)p"!)+::,A)*p (]_@ CCXZV PAS.HEAPSTACK292833-16111,REV.5000,870622 870622.0831/P1K/LIB/HEAP_STACK_2.PAS C@;ZBBX%V PAS.DISPOSE292833-16111,REV.5000,870622 870622.0831/P1K/LIB/HEAP_STACK_2.PAS BPAS.DISPOSE2J== q.DCO.DLD.DSB.DST.ENTR .LBPR .LPXR PAS.GETMEMINFO2 PAS.NONCDSPAS.RUNTIMEERROR=VVA  A(( (( ($($#(A@ AAAAAAˆ(;(7(; (H(CG(A AAAAA aaEV??x(j(^(jAAA (PA A(p(v @AA  x x x AabAAAp([^\@s3BBXV PAS.MARK2 92833-16111,REV.5000,870622 870622.0831 /P1K/LIB/HEAP_STACK_2.PAS BWPAS.MARK2 ~UU `.DCO .DDE.DLD .DSB.DST .ENTR .LBPR .LPXR PAS.GETMEMINFO2 PAS.INITIALHEAP2PAS.NONCDSPAS.RUNTIMEERRORPAS.SETMEMINFO2 UkWWAos( A(( Ao m(((Aj(io k Akx}yAA} kAx}{AA} x}k}k{k k kx} AA} kAx}kAA}kA@y##WAk oAAow(f(b(fowim#A pj(m@5DDXRV PAS.COALESCE2 92833-16111,REV.5000,870622 870622.0831 /P1K/LIB/HEAP_STACK_2.PAS DK PAS.COALESCE2 @@ b.DAD.DCO.DDE.DLD .DSB.DST .LBPR .LPXR PAS.GETMEMINFO2 PAS.NONCDSPAS.SETMEMINFO2 @WWA((   (( @A(  @AApAAAA   (( xAA AA ((W(WVVAAA((] @AAA x @AA xAAAAApAAA((2(2`((A (A((((AA  __>>(((AAAA xAA  x(AAA (A(( _V 8 (@r@@XV PAS.NEW292833-16111,REV.5000,870622 870622.0831/P1K/LIB/HEAP_STACK_2.PAS @ ,%PAS.NEW2 bb .DAD .DCO .DIN.DLD .DSB.DST .ENTR .LBPR .LPXR PAS.COALESCE2 PAS.GETMEMINFO2 PAS.INITIALHEAP2PAS.NONCDSPAS.RUNTIMEERRORPAS.SETMEMINFO2 boo CCAADA ((ppC(0AA DA(,(AApC(0ppC`C( `A(BAA  A (B(B`pFoKGTT8F(`PA(M(@AAA AA AA A (c(oAx  (~Ax(AA AA AA (((A Ax? xAA\\66A8(I (((AA (((AAF`(F܀`((\ UAA Ap( @3dBBXV PAS.RELEASE292833-16111,REV.5000,870622 870622.0831/P1K/LIB/HEAP_STACK_2.PAS BPAS.RELEASE2GG .DAD.DCO.DLD.DST .ENTR .LBPR .LPXR PAS.GETMEMINFO2 PAS.NONCDSPAS.RUNTIMEERRORPAS.SETMEMINFO2 GtUUA } A(g(f }l(( }p($($#g(fAAxhA@ }Ah(>(0Ah A(6(> hAh((h (D(bAAhAAl h@AvA h!!UAAxZj }xzA z(ffg!o A }~pg(]_j@WvDDXV PAS.DYNAMICDUMP292833-16111,REV.5000,870622 870622.0831/P1K/LIB/HEAP_STACK_2.PAS DNqPAS.DYNAMICDUMP2TT S .DAD.DCO.DLD.DSB.DST.ENTR .LBPR .LPXR PAS.GETMEMINFO2 PAS.NONCDS PAS.WRITEDOUBLE PAS.WRITELINE PAS.WRITESTRING TXXA pxk k~A pxk kuAuv pxk kwwvA pxk $k[xA pxk k pxkA 3kuuv Apxk =kwwv pxkA Ek]x pxkAA k pxk TkuuvA pxk ӏXXXk px((kA ckuuv Apxk mkwwv pxkA ukcx pxkAA k pxk kuuvA pxk kwAwv pxk kAex pxk k Apxk kuuv pxkAA k pxk kkXXuuvA pxk kwAwv pxk ƂkA_x pxk k Apxk kuuv pxkA ߂kwwv Apxk kax Apxk kA pxk kuAuv pxk k Apxk kuuv pxkWWA kwwv Apxk kgx Apxk kA pxk &kuAuv pxk 0kwwvA pxk 8kixA pxk k]a(D(m(mA pxk NkuAuv pxk k Apxk ]kuuv pä_VVxk gkyyvA pxk Ak(NiAAYgAAW WzUY ((N Apxk kuuv pxkAA k pxk kuuvA pxk k|A|v pxk kAYx pxk kpT`TXXA(3UAW((pT Apxk kuuv pxkA Ԃk||v Apxk kUx Apxk k||v Ul Apxk klx Apxk k}}vUzl Apxk  klx iiУ GGApxk k||v UUl pxkA &klx pxkAA k UzAU( Y@AWAW A(?(F WzU Yz@AY(| pxkA kqiRr``Ap( [> Top of stack: Top of heap: High stack: High heap: Initial stack: Initial heap: Previous free: Current mark: Heap/stack not initializedMark PoH int Size Start Next @bDDXKV PAS.DISPOSE2S 92833-16111,REV.5000,870622 870622.0831 /P1K/LIB/HEAP_STACK_2.PAS D9=PAS.DISPOSE2S 44".DCO.DLD.DST.ENTR .LBPR PAS.GETMEMINFO2 PAS.NONCDSPAS.RUNTIMEERROR4;;${$$AI: A(G$(:)(((AH$A:x7 7=;¼> AA:;A%0AA>%A.(**N+DE9E AA ABA,Cp+(.@?DDXNV PAS.RELEASE2S 92833-16111,REV.5000,870622 870622.0831 /P1K/LIB/HEAP_STACK_2.PAS D)DPAS.RELEASE2S >> q?.DCO.DLD.DST.ENTR .LBPR PAS.GETMEMINFO2 PAS.NONCDSPAS.RUNTIMEERRORPAS.SETMEMINFO2 >II..AL B A(J.(- B1(((AK.(- B1A&/ Bx? ?DI@E ABCp.(]_/@Lk]@@XcVPAS.STRINGS 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PAS@@E:cBBX;VPAS.VALIDSTRING 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASBq0PAS.VALIDSTRING ##<.ENTR .LBPR .LPXR PAS.NONCDSPAS.RUNTIMEERROR#II((A.( .6( ( A.p+A.6A@+( .x*(&Ap*&8)`*0I;1A./p)( @M BBX/VPAS.STRINGINDEX 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASB!PAS.STRINGINDEX k8.ENTR .LBPR PAS.NONCDSPAS.RUNTIMEERROR22`((AA@(p(p+`!2" Ap p`.p( . @LkD@@X~VPAS.STRCOMPARE92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS@=etPAS.STRCOMPARE ++M .DAD.DLD.DST.ENTR PAS.NONCDSPAS.VALIDSTRING PAS.XLBT+]JJAqhpg rhpf`fA@g(`fpe(`gpepd`eA@d(=zrj+jdplAAzqAAj6jdPl(9(=`dpd(`eA@d(J`f@gpi(b--JAAzrAAjTjdplAAzqAAj`jd@lpi`it-;uAqsph(@q䐤>>XVPAS.STRLEN92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS> PAS.STRLEN 2.ENTR PAS.NONCDSPAS.VALIDSTRING A p` 7A  p(@C>>X VPAS.STRMAX92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS>PAS.STRMAX s.ENTR .LPXR PAS.NONCDSPAS.VALIDSTRING "" AA( x(p`"9Ap(@ܑAAX;VPAS.SETSTRLEN 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASA4p3 ?4p2`3(1`2((1>24p2`2((1G?5G>7`3Ap915I792AT;SBA>@p4(@~ƝAAXEVPAS.STRAPPENDPAC92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PASAF9PAS.STRAPPENDPAC77x.DAD.DLD.DST.ENTR PAS.MOVEPACUP PAS.NONCDSPAS.STRBUMPUP PAS.VALIDSTRING 7LL4++A5,p+`+(*`-( (*A5-,p-`-((*h6`DAA.BAA50`+p2*.A02-9L: A57p-8p,(@:AAXVPAS.STRINSERT 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASA^PAS.STRINSERT wKK e .DAD.DLD.DST .ENTR PAS.MOVEPACDOWN PAS.MOVEPACUP PAS.NONCDSPAS.RUNTIMEERRORPAS.STRBUMPUP PAS.VALIDSTRING K!LLAypx ypw`x((t`w(t`zA("`wA@zA('&y(t`z@wpvA1xypu`v@up`xA@(Z { }`z@xpHHHL))`v@uhxA@pY{z}(]`u@vpx`x(a(t { }t{}zxH A pzpy(@TAAXVPAS.STRDELETE 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASATPAS.STRDELETE |KK i .DAD.DLD.DST .ENTR PAS.MOVEPACUP PAS.NONCDSPAS.RUNTIMEERRORPAS.SETSTRLEN PAS.STRENDERROR PAS.VALIDSTRING K^IIAupt`t(s`wA(Au(s`v(Au(s`v(!(s`tA@w(.-u(s`w@v@p`tA@@(F(AAu`w@tpv`v(JKK/I++(s`v@tpxSxu(sAA Ay`w@vpx {`v@thw@p}syx{w}K lA pwpvpu( @Dci??X?kVPAS.STRLTRIM92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS?9bPAS.STRLTRIM== .DAD.DLD.DST .ENTR PAS.MOVEPACUP PAS.NONCDSPAS.STRBUMPUP PAS.VALIDSTRING PAS.XLBT='LLA`UpS _UpR`S((Q`R(QpT`SA@T(,h`V%VTPj(((,`TpT(`T@SpS6_SUpS`S(;(Qh`Vh_X`RAp((ZQ6LVTXZSb;cA _apU( @Yw??X?cVPAS.STRRTRIM92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS??YPAS.STRRTRIM== .DAD.DLD.DST .ENTR PAS.MOVEPACUP PAS.NONCDSPAS.STRBUMPUP PAS.VALIDSTRING PAS.XLBT=||M[IIAWLpJ VLpI`J((H`I(H`JpK`K(((_WM!MKPb($((@KpK(A-VKLpK`KA(2(H_AAWMAA_VAO`IpQHMaOQKY|<Z A VXpL( @*I>>XzVPAS.STRRPT92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS>{PAS.STRRPTnMM [.DAD .DCO.DLD .DMP .DSB.DST .ENTR PAS.MOVEPACUP PAS.NONCDSPAS.RUNTIMEERRORPAS.STRBUMPUP PAS.VALIDSTRING M??OOAp p~`(}`~(}`((}h AhA  AAA (1(1A0(}6hA AA (}(}`~p (}(}h MM:oO//AAA (Z(X(Z`pm`@ph  (EM @A pp( @Cdb$>>XtV PAS.STR 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PAS> +nePAS.STR  AA .DAD.DLD.DST .ENTR PAS.MOVEPACUP PAS.NONCDSPAS.RUNTIMEERRORPAS.STRBUMPUP PAS.VALIDSTRING A'LLAaTpS `TpR`S(Q`R(Q`U(oT(Q`VA(,`V@U@sp`SA@(1A0pT(Q6`UTpU`U(;(QqaWq`Y`RAp[Q@LWVY[Ue kfA `bpVcpUdpT( @ ?(>>XWV!PAS.STRPOS92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS>vPAS.STRPOS ++M .DAD.DLD.DST.ENTR PAS.NONCDSPAS.VALIDSTRING PAS.XLBT+6GIIApjtipe sipd`e((b`d((b`e@dpdpfph`dA@h(\`f(\pfpg`eA@g(X`f(X|tkAkAgpm|AAsk`h::TI@g@pnPknPmpf`gpg(,`hph(`f(b@hpj`jv:;$wAsupi( A @b@@XXs\V!PAS.STRMOVE 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PAS@DPAS.STRMOVE ZZ .DAD.DLD.DST .ENTR .LPXR PAS.MOVEPACDOWN PAS.MOVEPACUP PAS.NONCDSPAS.RUNTIMEERRORPAS.SETSTRLEN PAS.STRENDERROR PAS.VALIDSTRING Z(BB`1((`1p,(  =.p,`/((`/p+(@.p+`,()`+()`3(&%T.()`3(*()`2(.(9`2@3@[p`,A@p-`-(`0(CABHH(K`+A@0p-`-(`0@3@[p*`/(Y(d`/A@*Ap-(q @UA@*p-`-(`/(z(~A~W.`/( @Ux*A @U`0FNNH x3`3p-(X.(AX.`-()`+A@*(`/A(@*.p-`1(`/(`0A@2A(YAA =4AAY @AA64260A3(YA =ŋRRAA4YAA @6A 42603()`1(`/((Y =442@03()`1((`/(AAY @AA4=2403()`0A@2A("!=2@0A3() )=2@03D11BEA <p2?p1Ap0Bp/Cp.(1@&tE4BBX&V#PAS.SPARAMETERS 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASBYPAS.SPARAMETERS m.ENTR PAS.NONCDSPAS.PARAMETERS22u`@%p`Ap p`((``p`27Ap( % @ %'@@XVPQV#PAS.READSTR 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PAS@FPAS.READSTR GG N& .DAD.DLD.DST .ENTR .LPXR PAS.ENDOFFILE PAS.GET PAS.IENDOFLINEPAS.NONCDSPAS.SETSTRLEN PAS.XSBTGbb;;Ap; DLx<C( CC(3`;A@<(3CL(3`;Ap;NAA D>`C@Pp@0>;@AC(8D;=(:Fb=|G A CEp=( @k??X6vHV$PAS.WRITESTR92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS?F<PAS.WRITESTRBB j .DAD.DLD.DST .ENTR PAS.IOERROR PAS.NONCDSPAS.PUT PAS.SPLITMOVE PAS.VALIDSTRING PAS.XLBTBTT00`2(D8 91p0`0(/820(`2(/p3p0E 94'40h8AHG88083(<TM= A 8:p2;p1( @ BBXV$PAS.READSTRFILE 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASBMPAS.READSTRFILE ((.ENTR .LBPR PAS.NONCDSPAS.READNONTEXT PAS.VALIDSTRING (f@ AxA  ( 7Ap (@k+AAXV%PAS.WRITESTRFILE92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PASARPAS.WRITESTRFILE((N.ENTR .LBPR PAS.NONCDSPAS.VALIDSTRING PAS.WRITENONTEXT( A A( x7Ap (@g>>X>V%PAS.STRGET92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS>0PAS.STRGET 00.DAD.DLD.DST.ENTR .LBPR PAS.NONCDSPAS.RUNTIMEERRORPAS.XLBT0DD&&p'-(  8A&($,A-($Ap'9AA,(A (-.--`'0D1 A,/p&`=p'( = @:->>X"FV&PAS.STRPUT92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS><PAS.STRPUT++q.DAD.DLD.DST.ENTR .LBPR .LPXR PAS.NONCDSPAS.XSBT+WW_33A9x3`3A:(29BA:(2AAD9AA5#5:4`3A:(/9:::<W>AEBA(= EFB(=p>`AA@>(*EF?B(*hH6@>H`?`>p>(`AA@>(=hH6@>H`UH`>p>(*Kng5L AEGpBIpAJp@( @rhAAXDV(PAS.SREADENUM 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASALPAS.SREADENUM ss .DAD .DCO .DDI.DIN.DLD.DNG.DSB.DST.ENTR .LBT.MPYPAS.BITMASK1PAS.NONCDSPAS.STRGETPAS.STRINGINDEX PAS.STRIOERROR PAS.UPSHIFTALPHAPAS.VALIDSTRING PAS.XLBTsIGGA p`(A (`Cp ( `PC(( (`A (+  ` ,HH@(:9( p` ,H @(]`~sGMMA@(]`ApAA A [p(< @p`A@A(nm( ((@p`A@h Dp`( phA  AAAA@ LL(p`(A(`A@(   pA pAh6 HP((AD`p(`P(͈(h  ((h6 //~PCp`(h   @ (/LL(11A  ppp("3 L@AAXc#V)PAS.SREADCHAR 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASA3PAS.SREADCHAR **.ENTR PAS.NONCDSPAS.STRGETPAS.STRINGINDEX PAS.VALIDSTRING *''AA( (('7Ap(@=[BBXSV*PAS.SREADSTRING 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASBGIPAS.SREADSTRING JJ c; .DAD.DLD.DST .ENTR .LPXR PAS.NONCDSPAS.SETSTRLEN PAS.STRGETPAS.STRINGINDEX PAS.VALIDSTRING PAS.XSBTJ__m;;AE>A(: EF>(:p; HOx<`;A@<(3A"EF=>(3`;p;Q H?2?;=(8H;>(:I_(@CaBBX oV*PAS.SWRITECHECK 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASBs[PAS.SWRITECHECK BBA.ENTR .LPXR PAS.NONCDSPAS.RUNTIMEERRORPAS.STRENDERROR PAS.STRIOERRORPAS.STRPUTPAS.VALIDSTRING BoIIApRVQpO`O(MY(`PYeQ(MW((!`OAW(&%fQ(MWYA@npSVgA@S(<(.ENTR .LBTPAS.NONCDSPAS.STRPUTPAS.SWRITECHECK $>>o!!A*+%#$( `#( p&p!h-6H@!Hp'A*+'8!8&(1> 2 A*,p%.p$/p#0p"(@eN@@X V,PAS.SWRITEENUM92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS@PAS.SWRITEENUMs99 ^(.DAD.DST.ENTR .LBT.MPYPAS.NONCDSPAS.STRIOERRORPAS.STRPUTPAS.SWRITECHECK 9fEE`z(~`{(`{pz`{p{`}(`|A@}A(~`{}pw`w@{@pv`wpy`vA@y(Ahy Ah6AH P(A`ypy((`z(H`w[[E11@ypzO~z{(u`w@z@pv`whvAH(^ (uxpyhy h6 pq8y(s8(`[((Ap~p}p|p{pz( (@"A@@Xz&V,PAS.SWRITECHAR92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS@|PAS.SWRITECHAR C.ENTR PAS.NONCDSPAS.STRPUTPAS.SWRITECHECK A%(e Appp(@AAXRV-PAS.SWRITEDOUBLE92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PASAeDPAS.SWRITEDOUBLE66.DLD.DST.ENTR .LBTPAS.DOUBLE2ASCIIPAS.NONCDSPAS.STRPUTPAS.SWRITECHECK 6AA$$A,*APp$ ?@'&$(#`$((#hQ6@$HHAp<?@<@$p$(DAE A?Ap'AAB*Cp&( ,@?AAX$V-PAS.SWRITEINT 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASAPPAS.SWRITEINT 8.DST.ENTR PAS.NONCDSPAS.SWRITEDOUBLE1h AA d Appp(@e%BBXnV.PAS.SWRITEAREAL 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASBR]PAS.SWRITEAREAL 66.ENTR .LBTPAS.NONCDSPAS.REAL2ASCIIPAS.STRIOERRORPAS.STRPUTPAS.SWRITECHECK 6nn!>>`C(`BA( kD`C(pC`B(`mpBAEXCBA@p?$UVDC?(=`?(=pQp>hl6@>HpR:UVR8>8Q(.]n&&^AUWpDYpCZpB[pA\p@(E'&@p֏@@X"V.PAS.SWRITELONG92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS@yPAS.SWRITELONG-.ENTR PAS.NONCDSPAS.SWRITEAREAL * A    !f Ap p p (L@'dF$@@X2V/PAS.SWRITEREAL92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS@t%PAS.SWRITEREAL""l.BLE.CFER .ENTR PAS.NONCDSPAS.SWRITEAREAL " A"A 01%h& A!p#p$p(E@ KAAXIV/PAS.SWRITESTRING92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PASAs?PAS.SWRITESTRINGAA ].DAD.DLD.DST .ENTR .LBPR PAS.NONCDSPAS.STRPUTPAS.SWRITECHECK PAS.VALIDSTRING PAS.XLBTAOO"//A=1A(. =Ax2:;102(.`0(.p2p/G=3%3A/p5+:;58/82(?O7@ A :p0(@zBBXnV0PAS.SFRITEAREAL 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASBR]PAS.SFRITEAREAL 777A.ENTR .LBTPAS.FREAL2ASCII PAS.NONCDSPAS.STRIOERRORPAS.STRPUTPAS.SWRITECHECK 7nn!>>`C(`BA( kD`C(pC`B(`mpBAEXCBA@p?$UVDC?(=`?(=pQp>hl6@>HpR:UVR8>8Q(.]n&&^AUWpDYpCZpB[pA\p@(E'&@Қ@@X}"V1PAS.SFRITELONG92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS@hPAS.SFRITELONG.ENTR PAS.NONCDSPAS.SFRITEAREAL * A    !f Ap p p (L@'4E@@X2V1PAS.SFRITEREAL92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS@c%PAS.SFRITEREAL""[.BLE.CFER .ENTR PAS.NONCDSPAS.SFRITEAREAL " A"A 01%h& A!p#p$p(E@Z BBXV!&PAS.LONGERRORS92833-16112,REV.5000,870622 870622.0833/P1K/LIB/LONG_ERRORS.PASB@NCCXivV!&PAS.RUNTIMEERROR92833-16112,REV.5000,870622 870622.0833/P1K/LIB/LONG_ERRORS.PASCV PAS.RUNTIMEERRORg.ENTR PAS.ERRORCATCHERPAS.NONCDSJA    fbA ( @cCCX6V!'PAS.FILEERROR 92833-16112,REV.5000,870622 870622.0833 /P1K/LIB/LONG_ERRORS.PASCIPAS.FILEERROR g.ENTR PAS.ERRORCATCHERPAS.NONCDS""dl`@p`@p"i}A(@r葨BBXV!'PAS.IOERROR 92833-16112,REV.5000,870622 870622.0833 /P1K/LIB/LONG_ERRORS.PASB PAS.IOERROR g.ENTR PAS.ERRORCATCHERPAS.NONCDS""dl`@p`@p"i|A(@g'BBX/V!'PAS.STRIOERROR92833-16112,REV.5000,870622 870622.0833/P1K/LIB/LONG_ERRORS.PASB PAS.STRIOERRORg.ENTR PAS.ERRORCATCHERPAS.NONCDSKA   geA (@9AAXV!(PAS.EMAERROR92833-16112,REV.5000,870622 870622.0833/P1K/LIB/LONG_ERRORS.PASA. PAS.EMAERRORg.ENTR PAS.ERRORCATCHERPAS.NONCDS{MA  gc A (@RCCXncV!(PAS.SEGMENTERROR92833-16112,REV.5000,870622 870622.0833/P1K/LIB/LONG_ERRORS.PASC[ PAS.SEGMENTERRORg.ENTR PAS.ERRORCATCHERPAS.NONCDS A p     ggA (@JiCCX=V!)PAS.IOWARNING 92833-16112,REV.5000,870622 870622.0833 /P1K/LIB/LONG_ERRORS.P((ASC FPAS.IOWARNING g.ENTR PAS.ERRORCATCHERPAS.NONCDS""dl`@p`@p"iA(@柦CCXL4V!)PAS.ERRORCATCHER92833-16112,REV.5000,870622 870622.0833/P1K/LIB/LONG_ERRORS.PASC9"PAS.ERRORCATCHER77gS.ENTR LOGLU PAS.ERRORPRINTERPAS.NONCDSPAS.SETEXITPARMSPAS.STOPPAS.TRACEBACK 7))*A `AP3( Ap.A")&&E#Appp!p(&@>]NCCXnV!*PAS.ERRORPRINTER92833-16112,REV.5000,870622 870622.0833/P1K/LIB/LONG_ERRORS.PASCZPAS.ERRORPRINTERhBB <.DST.ENTR .LBT .SBTLOGLU PAS.BOUNDINTEGERPAS.DOUBLE2ASCIIPAS.NONCDSPAS.STRINGADDRS REIOB((F`((Ap`pp(--8(`ph36@H`+ `P(((**--GG}.##A,,p+(`R(;-:ň(P`R(PpTpQhS6H@QHpU-MU8Q8T(CXGJJQY&&AVVpSWpR(4h kp`(p(~h6@HHp-z@p(lJ6;;App(`ApXƀ`(`P(P(ڈP(P(숈P (P (P (P (P (P("P(+P(4P(=P(FP(OP(XP(aP(j(sGLLpX(pX(ApXȄ(ӈpXA(pX(pX(A pX˄(pXA(pX!dLL(%pX*(A.pX3̈́(7"pX<A(@1pXE(I@pXN(AROpXW΄([]pX`A(dhpXi(mm 6kAAmrpXr(Av~pX{сҀ`(pX(ApXȁApXApXmF``(Pascal Error: Undefined CaseHeap/Stack CollisionNil Pointer DereferencedValue Out Of RangeMOD By Invalid ValueString UnderflowString Overflow String Bad IndexInvalid StringDispose Called Witk``h A Nil Ptr Disposed An Invalid Variant Release Called With A Nil Ptr Dispose Called With A Bad Ptr Release Called With A Bad Ptr Overflow Of Two Word IntegerIllegal Char For Base No Value To nUUConvert Insufficient Image SpaceNumber In Line Pas.ErrorExit Called At With `(pX(ApXApXApX` 6BB!(@@ɨ(((((( (((((1(:(C(L(U(^(g(p(y((((̈pXA(pX(pX(ApXل(XcLLpX (ApXׄ(pXA("pX'(+"pX0(A4,pX9ۄ(=7pXBA(FCpXK(OKpXQLLT(AXXpX]̄(agpXfA(jtpXo(spXx(A|pXل(pXA(pX(pX(AZ ApXՁҀp``(Pascal String I/O Error In Line Pascal I/O Error On File Unexpected EOFFile Must Be Text File Must Be Direct Bad Record Length Must Reset Or Open File Must Rewrite Or Open File Direct AK ``ccess Read ErrorSequential Access Read ErrorInvalid Integer ReadLine Read Was Too LongInvalid Real Number ReadFile Is Not CCTLNo Scratch File Available Neg FLD/DEC Width Not Allowed File CannoBl__t Be Type 1 Or 2File Must Be Type 1 Or 2Cannot Open LU 0 For Read OnlyMissing File Name File Is Not OpenError Identifier Not In Enumerated Type Value Not In Enumerated ATypepX@NN**ͅpXpX`P(∄P((pX(ApXو(NNN(Pascal I/O Warning On File Output Line Moved To Next LineOutput Line Split p%pX*`P(8P(:P(GP(IP(fP (((=pXBFllVE??((ALpXQҁUAXpX]A`pXe(ipXnqpXvypX~((lYYApppp( ?  !*** Pascal Pointer Error At FMP Error On File Pascal Segment Not Found P[\]^_`abc@Vt~~U} PAS.A1SETSHARED \m fPAS.A1SHAREDSIZEHPAS.APPENDFILEk PAS.APPEND_FILE c6 PAS.ASCII2DOUBLE=YPAS.BACKGRNDCOM1@PAS.BACKGRNDCOM2A PAS.BACKGRNDSIZE? PAS.BASICSTRINGIZ~~~g PAS.BASICSTRINGOZ PAS.BINARYC PAS.BITDEPOSIT1 I,PAS.BITDEPOSIT2 NnPAS.BITEXTRACT1 I,PAS.BITEXTRACT2 NnPAS.BITINDEX1 I,PAS.BITINDEX2 Nn PAS.BITMASK0TC PAS.BITMASK1TC~~~ PAS.BLANKCOM1 CPAS.BLANKCOM2 D PAS.BLANKFILL PAS.BLANKSIZE BPAS.BOUNDDOUBLE zPAS.BOUNDINTEGERiPAS.CDSCONFLICT  PAS.CHECKPTR1 % PAS.CHECKPTR2 0 PAS.CHECKSTAKSZ1[ F~~~9 PAS.CHECKSTAKSZ2&C QPAS.CLEARFILE _%PAS.CLOSEFILE .UerdPAS.CLOSEPURGEwPAS.COALESCE1 n PAS.COALESCE2 p PAS.CONVERT = PAS.CURRMARC1 $/PAS.CURRMARC2 ,6~~~PAS.DCBADDRESS1 6bPAS.DCBADDRESS2 8 PAS.DISPOSE1i PAS.DISPOSE1S ~^  PAS.DISPOSE2Y PAS.DISPOSE2S  PAS.DOUBLE2ASCII;PAS.DOUBLEMOD 2 RC1 $/PAS.CURRMARC2 ,6~~~FPAS.DYNAMICDUMP1wl5VdPAS.DYNAMICDUMP2B5d PAS.EMAERRORPAS.ENDOFFILE h! PAS.ENDOFLINE ; PAS.ENTRY1vme PAS.ENTRY28qPAS.ERRORCATCHERl ' RRMARC2 ,6~~~[g PAS.ERROREXIT 5OPAS.ERRORPRINTERV=T  PAS.EXIT1 vme PAS.EXIT2 8q PAS.EXITDATA2PAS.EXITDATAPTR 2PAS.EXITDATASET 2PAS.EXTNAMELEN@PAS.FILEERROR   PAS.FILENAME~~~  PAS.FILENAMR4trPAS.FILEPOSITION!PAS.FIXEDSTRING Y PAS.FREAL2ASCII I=4 )PAS.FRITEANYREAL|!=@ RPAS.FRITELONG jPAS.FRITEREAL PAS.GET U! PAS.GETMEMINFO1 $/~~~ PAS.GETMEMINFO2 ,6PAS.GETNEWPARMS .OPAS.HALTf3 PAS.HALTONLY~3PAS.HALTPROGRAM T PAS.HEX F PAS.HIWATERHEAP1$/PAS.HIWATERHEAP2,6PAS.HIWATERMARK1$/PAS.HIWATERMARK2,6/~~~v] PAS.IENDOFLINE7!  PAS.IMAGE0z  PAS.IMAGE1O j PAS.IMAGE20 j PAS.INITFILE9.PAS.INITIALHEAP1"qPAS.INITIALHEAP2*9PAS.INITIALIZE.OPAS.INITMEMINFO1!M /PAS.HIWATERMARK2,6/~~~o PAS.INITMEMINFO2(Y PAS.INLINEERROR 4T  PAS.IOERROR  7PAS.IOWARNING =PAS.LABELCOM1 FPAS.LABELCOM2 GPAS.LABELSIZE E PAS.LASTPOSITIONb&PAS.LINEPOSITION|TERMARK2,6/~~~@  PAS.LINESIZEoPAS.LONGNEGATEPAS.LONGROUND VzPAS.LOWATERHEAP1$/PAS.LOWATERHEAP2,6PAS.LOWATERMARK1$/PAS.LOWATERMARK2,6PAS.MAINMODINIT e~ PAS.MARK1 kS  PAS.MARK1S-,6/~~~<  PAS.MARK2 x  PAS.MARK2SvPAS.MAX 9_PAS.MAXPOSITION `G!PAS.MIN 8=PAS.MOVEBYTES 3PAS.MOVEPACDOWN a8PAS.MOVEPACUP ^0PAS.NEW1q:  PAS.NEW1S H |,6/~~~G PAS.NEW2   PAS.NEW2S % PAS.NONCDS PAS.NUMERICPARMS.O PAS.OCTAL   PAS.OPENFILEn" PAS.OPEN_FILE e? PAS.OPTDECODE :[PAS.OVERPRINT F!dPAS.PACKSTRING6/~~~s PAS.PARAMETERSQ   PAS.POSTFILE3SPAS.PREVFREE1 $/PAS.PREVFREE2 ,6 PAS.PROMPT*!dPAS.PUT  4e!dPAS.RANGEDOUBLE ^ PAS.RANGEINTEGER  PAS.RANGESETy 4PACKSTRING6/~~~$PAS.READBUFFERf= PAS.READCHARE! PAS.READDOUBLE;;!  5 PAS.READENUM ! 5PAS.READINTEGER ^! PAS.READLINE@ PAS.READLONGy!  PAS.READNONTEXT O!=/~~~E, PAS.READREALy!  PAS.READSEQUENT Ze! PAS.READSTR \ PAS.READSTRFILE  PAS.READSTRING0PAS.REAL2ASCII@(4d ) PAS.REAL5OPSPAS.REAL5PACK _u|/~((~~z PAS.REAL5TRUNCPAS.REAL5UNPACK PAS.REALROUND U8PAS.REALTIMECOM1=1PAS.REALTIMECOM2>'PAS.REALTIMESIZE<;PAS.RECVALPARM8qPAS.RECVARHPO 8qPAS.RECVARPARM8q5PACK _u|/~~~ PAS.REFERENCE l! PAS.RELEASE1uN PAS.RELEASE1S 0  PAS.RELEASE2\ PAS.RELEASE2S ) PAS.RESETFILE pn PAS.RESET_FILEg PAS.RETURNPARMS 2PAS.REWRITEFILE s /~~~' PAS.REWRITE_FILEh} PAS.RUNSTRINGLEN.OPAS.RUNSTRINGPTR.OPAS.RUNTIMEERROR l PAS.SCRATCH6VG PAS.SEEKFILEW!PAS.SEGMENTEDMODe~PAS.SEGMENTERRORPAS.SEGMENTLOAD ^ ILE s|/~~~& PAS.SEGMENTRTN^ PAS.SEGMODINITe~PAS.SETDIFFER LPAS.SETEXITPARMS0}7 PAS.SETINIT  PAS.SETINTERINITp PAS.SETINTERSECTtPAS.SETMEMINFO1 $/PAS.SETMEMINFO2 ,6^ILE s|/~~~PAS.SETSHARED Z8 f PAS.SETSTRLEN C PAS.SETTEMPORARYy 4 PAS.SETUNION[ PAS.SETUPFILE Yer! )dPAS.SETUP_NAME:TPAS.SFRITEAREAL   < PAS.SFRITELONG9 /~~~ PAS.SFRITEREALd PAS.SHAREDSIZEXRPAS.SHIFTNPUT iPAS.SINGLEMOD \ PAS.SKIPBLANKS: PAS.SPARAMETERS PAS.SPLITMOVE z-@d PAS.SREADAOCV PAS.SREADCHAR ? ~~~xPAS.SREADDOUBLE /; PAS.SREADENUM k  PAS.SREADINT^ PAS.SREADLONG y!  PAS.SREADREAL y!  PAS.SREADSTRING  PAS.STOPgG cDCHAR ?| ~~~PAS.STR wV 2PAS.STRAPPENDPACIV 2PAS.STRAPPENDSTRHV 2PAS.STRBUMPUP 0 mPAS.STRCOMPARE.PAS.STRDELETE XV mPAS.STRENDCHECK 3G PAS.STRENDERROR 3G | ~~~. PAS.STRENDS .O PAS.STRGETv PAS.STRINGADDRS UUPAS.STRINGDATA1 [nPAS.STRINGDATA2 [nPAS.STRINGINDEX U PAS.STRINSERT HHV 2PAS.STRIOERROR d PAS.STRLEN{3G| ~~~\  PAS.STRLTRIMqV 2 PAS.STRMAX PAS.STRMOVE $HV m PAS.STRPOSD PAS.STRPUTjPAS.STRRANGER W;  PAS.STRRPT_V 2 PAS.STRRTRIM2V 2PAS.STRVALPARM] " ~~~ص PAS.SUBSETgPAS.SWRITEAOC   < PAS.SWRITEAREAL kT < PAS.SWRITECHAR  < PAS.SWRITECHECK $ m <PAS.SWRITEDOUBLEBT < PAS.SWRITEENUMm < PAS.SWRITEINT 8 ] ~~~ PAS.SWRITELONG PAS.SWRITEREALC PAS.SWRITESTRING < PAS.TIMESTAMP 4PAS.TIMESTRING4PAS.TOPOFHEAP1$/PAS.TOPOFHEAP2,6PAS.TOPOFPAGE !!dPAS.TOPOFSTACK1 $/8|] ~~~r PAS.TOPOFSTACK2 ,6PAS.TRACEBACK ePAS.TRACEBEGIN*PAS.TRACECLOSE* PAS.TRACEEND*PAS.TRACEINIT *PAS.UNPACKSTRING5PAS.UPSHIFTALPHA6~PAS.VALIDSTRING r PAS.WORDBITMOVE E ~~~PAS.WRITEANYREAL3!=@T RPAS.WRITEBOOLEAN)@ RPAS.WRITECHAR E-@PAS.WRITEDOUBLE :T!@ RPAS.WRITEENUM [!=@ RPAS.WRITEINTEGER 5PAS.WRITELINE ve!BITMOVE E ~~~PAS.WRITELONG  PAS.WRITENONTEXTx6=@PAS.WRITEREAL E PAS.WRITESTR{!@ RPAS.WRITESTRFILE@PAS.WRITESTRING }/!=@ RPAS.XLBTbPAS.XSBTdv'?_|BITMOVE E ~DEC 1  .14 DEC 14 * SAVE BSS 1 BUFADR BSS 1 BUFLEN BSS 1 BUFMAX BSS 1 * PARMS EQU * BUFR BSS 1 LEN BSS 1 * PAS.INITIALIZE NOP  JSB .ENTR  DEPASCAL_ERR.REL::RTE_6:5:9:128 644 0 0 4400 5310710045 34501 PASCAL_ERR.REL::RTE_6:5:9:128 $  PASCAL_ERR REL +#%+#%+#% 'tFST DDXźV#PAS.SHORTERRORS 92833-16125,REV.5000,870622 870622.0834 /P1K/LIB/PASCAL_ERR.PAS D@źCCX 3V#PAS.ERRORPRINTER92833-16125,REV.5000,870622 870622.0834/P1K/LIB/PASCAL_ERR.PAS CV~PAS.ERRORPRINTER88 .DST.ENTR .LBT .SBTLOGLU PAS.DOUBLE2ASCIIPAS.NONCDSPAS.STRINGADDRS REIO8((V`((Ap`pp(-- 8(`ph36@H`+ `P2(((**--GGy.##A,,p+(`R(;-:(P`R(PpTpQhS6H@QHpU-MU8Q8T(CXGJJOY&&AVVpSWpR(4h kp`(p(~h6@HHp-z@p(lJDDApp(`AppXP,(P-(P.(P/(4P0(QP1(j(ApXā€((؀(pXׁ(--E]LL-聸pXA(pX(A(pX( pXA(#pX"(3&pX(PP+.pX3(A7pX<@AC pXHAKpXP(TpXY\pXadpXiA(mpXrvAy%%dx'pX~ApX(%``A(? @ *** Pascal Error In Line Pascal Pointer Error At Pascal String I/O Error Pascal I/O Error On Line On File FMP Error On File Pascal Segment Not Fou%%޵nd Pascal I/O Warning On File P%@аp`T blvPASCAL_FMGR_ALT.LIB::RTE_6:5:468:126 644 0 0 352000 5310710050 40273 PASCAL_FMGR_ALT.LIB::RTE_6:5:468:126 $$$~PASCAL_FMGR_ALT LIB +#'+#(+#(tFST F'' KP.354 92833-16210,REV.5000,870720 870720.1933 '.P.&& P.364 870720 870720.1931&.P.'' TP.236 92833-16108,REV.5000,870622 870622.0835 '.P.&& .P.072 G92833-16108,REV.5000,870622 870622.0835&@P.0729..SBT P.044P.192P.125;;`\`8@C*B(2`8p7`7@DB( `7@E@6`7J@D`7@Dh7HD;55`[  `7@Eڂ@6`7@D`F`7@Dh7XHD 68(66A4895`M :Z`9(;p889( _::&& 8P.359 92833-16108,REV.5000,870622 870622.0835&@tP.359.ENTRP.019P.192POST `L< $ ` p` `C&( && 5P.088 92833-16108,REV.5000,870622 870622.0835&@MP.088 z.DST .ENTR.LBT .MBT .SBT P.019P.215P.192P.232 ;;`eoh6`6"`@P6(<p`@6 h !$p`(&;;;`^% (;h6@βHh6p@H``p@ζp("(`pp`@; `EkC6@H <<`_` Hh6p@̶ZH`88Z(@h6H`Zh6H`Zh6H`f̀<<<`bgp`p`p r4h }&p`((h6P@Hh< `C6p <<``O@H``Zp@pδ (~h6@̶PH``p`@ $<99`]q&p`((h6P@Hh6p@H`P`p@p(9&&`[Ѯ熀( @  -:&'' QP.254 92833-16118,REV.5000,870622 870622.0822 '.P.'' TP.089 +92833-16118,REV.5000,870622 870622.0822 '@P.089*.DLD .DST .ENTR.FAD .FIXD.FSB P.192$$`X%('(0'0$`KJ4(@'' NP.053 ?92833-16118,REV.5000,870622 870622.0822 '@P.053*.DLD .DST .ENTR.MVW .TADD.TFXD.TSUBP.192))`[!3`!(%07((%(!7!4*)`RkH+)`)h<";(@++'' P)P.183 x92833-16118,REV.5000,870622 870622.0822 '@P.183e$$ .DAD .DCO .DDE .DIN .DLD .DSB .DST .ENTR P.192P.099P.184$;;`gkpHKK6s(F(FO(FM(FOK(((FKB O aMa;22`a='(*(*(FOBMIOQ0ISOUI0WDQpH`He2`O@f cc0OdM`wpH(`A`www&& 0P.184 ;92833-16118,REV.5000,870622 870622.0822&@P.1842x.DLD .DST .ENTRIXGETP.192VMAST<<`b /$,+ 66p1`1p.`,((`.((`.@:p161p1`1/9((`+ <`I@"@0//2 `D*32( `B`~999'' W!P.209 x92833-16118,REV.5000,870622 870622.0822 '@P.209e$$ .DAD .DCO .DDE .DIN .DLD .DSB .DST .ENTR P.208P.192P.099$;;`glpHKK6s(F(FO(FM(FOK(((FKB O aMa;22`a<'(*(*(FOBMIOQ0ISOUI0WDQpH`He2`O@f cc0OdM`wpH(`A`www EP.208 92833-16119 REV.5000 870720 @_P.208r$MSEG.ENTR.XLA1VMAST((`Wb (`(hJ (`A`i'' SP.137 92833-16118,REV.5000,870622 870622.0822 '@mP.137  P.019P.192 `Il ` @  `H Z` ( p 8 (  && 3P.256 92833-16118,REV.5000,870622 870622.0822&@nP.256 $.DLD .DST P.055P.192`G 4 `G Z` ( p 8 ( '' PP.055 '92833-16118,REV.5000,870622 870622.0822 '@~P.055#.DLD .DST P.044P.192((`W_]`@%( `@&4( 0"(`HZ`(p8(`B`x% %%'' UP.218 M92833-16118,REV.5000,870622 870622.0822 '@P.218>F.ENTR.SBT P.192P.093<<`\`8p79(`7@EhD`7@F `7@G `7@JhL(`7@E #<44`[*$8C:;<&=B9(6`7@Ih7HF`7@H  `7@K@6`L>4`N<?8(`  ??'' NP.221 /92833-16118,REV.5000,870622 870622.0822 '@P.221&W .DST .ENTRP.192P.09344`^T3` p`@, `@-p `@.Bp  +"$#$%*&4`H3' ( ` ''&& 6P.219 F92833-16118,REV.5000,870622 870622.0822&@P.2198 p.ENTRP.192P.093 <<`\`2p13(`1@?h>`1@@ `1@A `1@DhE(`1@? #<**`Ur$2=456&7<3(0`1@Ch1H@`1@B 8*`MO92((` 99&& -P.220 M92833-16118,REV.5000,870622 870622.0822&@P.220>F.ENTR.SBT P.192P.093<<`\`8p79(`7@EhD`7@F `7@G `7@JhL(`7@E #<44`[*$8C:;<&=B9(6`7@Ih7HF`7@H  `7@K@6`L>4`N<?8(`  ??&& /&P.003 92833-16118,REV.5000,870622 870622.0822&@P.003.ENTR.LBT .SBT P.192P.093<<`^`p`p( h6(h6h6 `@`@<<<`\(=`@h`@ `@`@ `@h`@@6< `C:`(E <<`` =Z`@ `@P(I(N@6 p~`~(\@P6 6<;;`_]$e$Ѐ`~(m@6`@P(s(}`@hH`@ ; `BK| `R<(`  && 0P.064 v92833-16118,REV.5000,870622 870622.0822&@P.064ixa.DST .ENTR.LBT .SBT P.192P.093<<`^``p^`^p_e( h_6e(h_6h_6 b`^@pc`^@qd<<<`_!Z`^@r `^@sp_ 6Ѐ_`^@up_ _`^@taePo(8(=f@6< `Cb=p] //`]f@`](Kf@P6 f6T`n$efghm`](\f@P6i/`L4.j`( ` jj'' QGP.085 92833-16118,REV.5000,870622 870622.0822 '@P.085.ENTR.LBT .SBT P.192P.093<<`^`{py`ypz( hz6(hz6hz6 }`y@~`y@<<<`[GE|(7`y@h`y@ `y@|`y@ `y@h(?`y@< `C|9 `y ;;`c <@|P(C(H@6 px`x(V@P6 6_{$;55`Y_`x(g@Z6`y@P(m(w`y@hyHZ`y@ 5`QP{((` '' RNP.086 92833-16118,REV.5000,870622 870622.0822 '@P.086.ENTR.LBT .SBT P.192P.093<<`^`p`p( h6(h6h6 `@`@<<<`[G(7`@h`@ `@`@ `@h(?`@< `C܂9 ` ;;`c G<@P(C(H@6 p~`~(V@P6 6_$;<<`]d6_`~(g@Z6`@P(m(}`@hHZ`@ `P@@6`<`BM|`R<(`  '' U P.093 Y92833-16108,REV.5000,870622 870622.0835 '@}P.093<<.DCO .DDI .DIN .DIV .DLD .DMP .DST .ENTR.LBT .MBT .MPY .SBT ECREAELOCFEREADEWRITLOGLUNAMR OPENF<SP.214 P.019 P.033 P.030 !gP.044 P.192P.357 P.039P.040P.232 P.125POST RWNDF;;`dGZpp`P@Bpp  0(((  ;::`^e$('('(>h6@HPI (8h6@HPJ(8(>B(`Wpp: `F>dB  <<`aQH(O(O(kh6Z@HPJ(kZh6@HPh6p@H`2<;;`]i6(rh6@H`I88(B z&`P<(P=(P@(PA(PB(PC; `Ck(( <<`\!p`p(Zp(p(`p(FZX0F(EX0E(( < `C`p ,,`Z($4Z`(`( "pp,;;`cʅѴP(h/6`46P!`A@T (!`A@MZ(`B RX@Kh/6H>;<<`f` 6Mp. .&"#@Kh/6H?` Ep. $."$@Kh/6H@ $"< `CK|6%@Kh/ !!`Q1Z6HA(*`(* (&"Ѕp`p0!<<`^n1/(5PASCAL`@C(@`@>p`@B%=(J`@IpZ`@B@U< `BOQ <<`^R(8`@B@0S'6`@C(l`@GPNZ@>pZ(q`(q`?<<<`aMLpp`@CP>(`@G"L@)0'((4Z`(`(`< `B;@G ..`ZP( +"څp`@G 4Z`(hB .<<`aT(Sp^$^@p`( +,p]`]P?((Q`@BpdP<<<``LrѴZpedHX0eHd$4P`(p(`PW((`@B*=< `C(`P@ <<`bf(($$`X( `(  $ p`((дP(`(<;;`a+ p(0`](0`_(0hq6*]@hq6 p]`]P=(4(P`@B@; `CR70P ;;`c:C$'''`(O`(O Mp(\`(\`]P?(\ Z$Z-pg;<<`[(hZ`g(ipf8gfp_(`(`@CP>({(`@Dh`@B*<::`^|=(`P@((`@Fh( ."څp`@B)=(: `DF`(` <<`fO( "…p$$`(`(  $pﶀ`@C<;;`]˶P>(4`@BZ)=(`Z@G(`@Ep/4Z($P(부`@B%; `DN袀=( <<`ep(`Op`@G h 10)ö`@EpÄ<;;`^`($`@C($`@GP($ "$Z+p`B@E/(-(4(4`@E; `E@/p3 <<`]`4`(`P<(CP=(DP>(VP?(aP@(u(Z(`(((U`@?p O$P56(U<<<`b~Q U7(`P=(``P>(` `8Z(`(t`@Hpm$0`(t t< `Cs6(` <<`a] vP=(|`P>(|( 9p`@BX)=($'4Z`(`( <;;`bv$pZpP((`@Hp$0`(`( (hQ;`A::`^Y&ȴZ8(rp`((pP`A@넁(h6@HPI((`p:;;`c$ (`A@P(Zp`(hZ6(hX6p $$ڄ`@B; `Dz /=p <<``%- `(;`P(`(p (6`@Bp  *=(. '=(..<;;`^-4P )=(66`Z(;p`@Bh`@BZp  OX0O `(O; `CjK`(O <<`_zN(]`@Bp `Zp  OX0 O PppZp(g(hh6  <;;`^) mp`(`(`@B*=(PpppppQ`@B@; `C:WV <<`fV0 `:6h;6!$''`PX(`B(  p( <;;`_$!p`((дZ(`(`@>ppp`p g (; `CjiӶp`p `Qa֦g'`@B6`;6!Z`(4 <<`gpppp( Y[\ G <&&`\=  ,02dt'&==&& 1P.214 92833-16118,REV.5000,870622 870622.0822&@gP.214 h.ENTRP.018P.192 `F  `G(PURGE '' UP.018 E92833-16108,REV.5000,870622 870622.0835 '@P.018)<<q.DAD .DDE .DDI .DIN .DLD .DMP .DSB .DST .ENTR.LBT .SBT ECLOS ELOCF EWRITP.019P.033P.192P.357P.125<fRWNDF `K`( `PD(  & ;;`^ (`&@8/Z5p p`A@(*h(6Z@HP=(&Z(*`p(;<<`a?!*p`8A @(YP`A@(Nh(6@Hh4Z6p#@H`#`< `CzKp(U ;;`^NZh46@H`=`p(,^6`P6(dP7Z(g(jp (jp (j`&p!;<<``{l`!@8p""+5(y"*5( "*5("'5(&&")5< `DA("* <<`d5("&5(`&@""?:!!`S" (( 6   & )!((`[*&'p(    (** qP.357 A92833-16119 REV.5000 870720 @}P.357 z.DCO .DLD .ENTR `P1sharexclsavepurgcctlrewieof exte`Cb$<<`_h0?P@('P`p(- ``pZ0?p‚@0?p<`I84Z88(5 no88'' PcP.222 92833-16118,REV.5000,870622 870622.0822 '@P.222!! 87.DAD .DST .ENTR .LBT .MPY P.044P.056P.192P.073P.186!<<`bG`(&`(`p`p`(`A@(`p<<<``"`@@p` p`A@Z(AhB h6 P(A`p((`< `CB(H` <<`ap;E@p$Z(r`@@p`hAH([ (qxphB h6<;;`^Tf2 hH8(o8(](`@p`@p$6`@p`; `Cu(( `K)[`@h`@@0%%`T  pppp(  %'' SP.127 392833-16118,REV.5000,870622 870622.0822 '@P.127(:.ENTRP.123P.192P.073P.133<<`_q`$P/(p#p"%$&#$"(!`%@0h%H1((&.%`%@2&< `C'2%( `Jw)%'p$( ))&& 2P.126 Q92833-16118,REV.5000,870622 870622.0822&@P.126>,.ENTR.LBT .MPY P.192P.073P.186;;``9;8FP(`9( Zp9`9(`8 @Pp6`6h6H8APH( (4x:;++`U p5`N9@GZ@6@5Hh;HO6ڀ;85(28:(!>+`R :?;@@0p-`-2%`G]3Z`2(4p182( `E`< <<&& /P.054 92833-16118,REV.5000,870622 870622.0822&@qP.054  .ENTRP.192 `Kp` @h H@p `  `C& ( `B`i && 4P.069 #92833-16118,REV.5000,870622 870622.0822&@{P.069#.DLD .DST P.044P.192##`S`@!( `@"6(0Ѐ#`HZ`(p8(`B`r!!!&& -P.092 A92833-16118,REV.5000,870622 870622.0822&@P.09250.DCO .DLD .DST .ENTRP.044P.192;;`^G`3p0`0@:p1`0@;(+`0@1(//&935&`KX63( 66'' PP.025 92833-16118,REV.5000,870622 870622.0822 '@jP.025  P.358P.192 `Gp` `Jց Z` ( p8 `p(`A`Y'' QP.076 /92833-16118,REV.5000,870622 870622.0822 '@P.076].DCO .DLD P.044P.192P.075**`XT*( (0,(((`($.*%%`RAZ`(p8`($p8( %&& 1P.075 r92833-16118,REV.5000,870622 870622.0822&@P.075\ 3.DLD .DNG .DST P.216P.036P.044P.192P.082P.355<<``_ [$PZ(UpWpV((`Z@l,k(U`Z@mPopX`X($`Z@m<;;`^ Pn($(&0ڀZZ`Z@mZ@q(E`Z@m@p(EpW`Z@mpY[XY k; `DO>0VpVZ ##`TBZ((`X(M[ 6[`W0V(UUjZ\#))`U҉]Z`\(^pZ8\`\(dp[8\(  +-)]]&& 5 P.079 }92833-16118,REV.5000,870622 870622.0822&@P.079v.ENTR.SBT P.028P.036P.358P.192;;`c5}pqr(rr(Hu(-PtA@q(,$Zrz(,hs6@qH`r;<<`aS#B@{r`qpq((HPtA@q(H9$Prz(H@q@shrH{r< `CD`qpq <<``GZ(-u(_tA@q(^hs6@qH`|`qpq(K(ptA@q(p<`Jg@q@sh|`qpq(_v `F'wr( ww&& 2P.224 )92833-16118,REV.5000,870622 870622.0822&@WP.22466@.DAD .DCO .DDI .DIN .DLD .DNG .DSB .DST .ENTR.LBT .MPY P.006P.036P.044P.192P.355P.3356;;`_u(`@%p`@$@(p` ,H@((;;;`_`p` ,ZH@(@`@#A@㄁(@`p `@&@6H; `D>p(!` ;;`cF:B@p`A @(QP(߶`@p`"@hH  "p`;<<`ee(`ph  0 (zp`( (`A@< `C(` <<`a, X@&@6Hpph6 P(( `p(`P((h<<<`fK 0 ﶈ((h6 2P'Zp`(hB  `< `Ct(p `Ip88((c<<`jipp(<`Ha!  !!&& 3P.355 ;92833-16118,REV.5000,870622 870622.0822&@P.355-#;.ENTRP.028P.036P.192P.082<<`]F, 5p*`*(!`,@8P9( (`,@7,5(Z`,@7@0:,(<`Mٙ, 5p*`*(&,`*p+`+- `E.,`6p+( `F5 55&& /P.074 B92833-16118,REV.5000,870622 870622.0822&@P.074- 8P.044P.192P.082 ;;`_+`+@?,`+@>+=(&;+(*`+@>,=(<+(*`+;`Lل@>@0@Z`+@>@A-''`T.Z`-(/p+8-`-(5p,8-( '..&& 2P.087 92833-16118,REV.5000,870622 870622.0822&@tP.087  4P.036P.358P.192 `L (  (4 `HZ` (p 8 (&& 3P.187 T92833-16118,REV.5000,870622 870622.0822&@P.1877 9P.056P.192P.081 <<`\`4p1`1@Mp22-L( 4`1@O6`1@NZ(&66`1@P6<++`U"h`4@Qp3&$3K5K620R22S2`1@N 7+66`\|08Z`7(9p487`7(?p587`7(Ep687(  688&& 2P.225 -92833-16118,REV.5000,870622 870622.0822&@P.225 .DLD .DST .ENTRP.229P.192P.029""`U6*6p`(0 "`J]!6p(!!'' SP.226 -92833-16118,REV.5000,870622 870622.0822 '@P.226 .DLD .DST .ENTRP.229P.192P.029""`U6*6p`(0 "`J]!6p(!!'' TP.227 -92833-16118,REV.5000,870622 870622.0822 '@P.227 .DLD .DST .ENTRP.229P.192P.029""`U6*6p`(0 "`J]!6p(!!'' X4P.229 92833-16118,REV.5000,870622 870622.0822 '@P.2293$$ .DCO .DLD .DST .ENTR.LBT .MVW P.006 P.009 P.030 P.192P.230$<<``rp(h( -( ( (h/6@(HP((`(p((h(B -(!(!<;;`_ (h( -(*(*(7Zh/6@(HP(3(7`(p((!`(p'h'  -; `C?(B(B(U ;;`` BZh/6@'H  ,H@ (U`'p'(9h'B -(^(^(ih/6@';<<`^bHP(i`p*(`(@' p`A@Z(`P(y(h/6@(Hh< `DP@( `Gj(`p*(`p*<<`aA`h"=pp(`(A@'(h/6Z@(Hph/6@(<<<`_fIJH 09 ( AF ( af ((`@p(`@@}p(`@@}p< `Da(h `J焒2)`(p((;;`_P8(p* 2`+Py(P|( P~((D>"?p)($U@A`zp);++`U_(fB6C`{p)(h `*(##`*p,`,3+<<`l'|4/06-1p+( 1 3f< `W^w`~~ `Pwy  0`ab k yy 8P.030 92833-16119 REV.5000 870720 @bP.0309bP.029`HEpx &  CP.230 92833-16119 REV.5000 870720 @eP.230 .DLD .DST .ENTR $$`U.4Xp Z@!8( @$&& ,P.041 92833-16118,REV.5000,870622 870622.0822&@jP.041.DLD .DST .ENTRP.251P.192 `D& `G 4(&& 5P.228 92833-16118,REV.5000,870622 870622.0822&@eP.228 P.251P.192 `D$ `DtM8( '' O?P.251 92833-16118,REV.5000,870622 870622.0822 '@P.251t** V.DDI .DLD .DST .ENTR .LBT .MBT .SBT LOGLUP.215P.192P.102PRTN REIO *<<`bNZN(9hB6`6 |`pM$aN}pL`L((,`M pMh6@LH h6<<<`bj"pq@MH`q @LpL(/Lpq`Mpr9~$qUr`OpPN xQPpRpS< `D<DpTI `DRpH0PKt ''`\u ss4N( UaPascal Halt: 'uu GP.010 92833-16119 REV.5000 870720 @`P.010 M.DCO .DLD .DST  ,,`W`p@p6ڀ( (88((( ,`A`_ WP.011 +92833-16119 REV.5000 870720 @`P.011 u.DLD .DST P.029 ;;`c(p'`(A (!A @((!Z`'A88(8; `D-#$&*( `A`o*** QP.012 %92833-16119 REV.5000 870720 @`P.012!.DCO .DLD .DST P.029::`` `p#@$p#8#ڀ (((#6 (( 8#"4#(:`A`g"`A`h$$$ :P.013 92833-16119 REV.5000 870720 @`P.0139bP.029`LgXx ( $ h 8`A`Q   :P.014 92833-16119 REV.5000 870720 @`P.0149bP.029`N( (   8 MP.231 92833-16119 REV.5000 870720 @eP.231J.DAD .DCO .DLD .DMOD.ENTRP.029++`\Z ((0$  + `P.047 192833-16119 REV.5000 870720 @dP.047.ENTRAVLM ENDM LIMEMP.029UNM2 UNMEM<<`f`(+(Hppp(+,$.//@0X@.(!$!-,`pp<`H&@pc`A`s000 bP.048 392833-16119 REV.5000 870720 @dP.048c.ENTRAVLM ENDM LIMEMP.029P.114UNM2 UNMEM<<`f`(-(Hppp(-.$011@2X@0(!$!/.`pp<`Jܴ&H@ppc`A`u222 bP.049 392833-16119 REV.5000 870720 @dP.049c.ENTRAVLM ENDM LIMEMP.029P.114UNM2 UNMEM<<`f`(-(Hppp(-.$011@2X@0(!$!/.`pp<`Jܵ&H@ppc`A`u222 PP.066 92833-16119 REV.5000 870720 @kP.066 E.ENTR.SBT  `A`a 00`YSZpph688(8`(0 LP.117 92833-16119 REV.5000 870720 @fP.117 >.ENTR.LBT  `A`a 44`ZjZpph688(8((`8(4 BP.162 92833-16119 REV.5000 870720  @P.094P.095 ߖ.ENTRP.052SEGLD `P2`pB  &&& (P.052 92833-16112,REV.5000,870622 870622.0833&@qP.052  n.ENTRP.070P.192 `JKn p  $  `E& (  P.161 92833-16119 REV.5000 870720  @8P.017hP.061 p.ENTRP.006P.029P.062`Ce <<`cx $Ѐ ZD P(8 D P(#8@pp hDH<<<`_z.0p2 (F P@ H (J ,@H88() N O< `DM4 (I2 ""`PQ hDHa0pZ (88(QP"<<`b4ha$Ѐdee ZD P(x8db D P(8aehb (Pb@p<<<`_ppcf (HDZHa0pZ (`J ,@Hd88(< `C9cf 44`[VZ@(ppPcfepb(pPhƀg(4 ߇P.062 V92833-16119 REV.5000 870720 @yP.062 P.006P.029 `L5 D  pxp<<`[p8Z(p8p8p8`P(/`8<<<`^GU/` 8Z(1`(LZ8(MhPH (M Z,@Hڰ8(8< `CM88(M `F&<PTU(L PP cP.100 892833-16119 REV.5000 870720 @dP.100 `.ENTRP.006P.029 <<`a=)p(1pAP(1`@@788`P<++`W !PH (1 ,@H8(56+!! NP.091 92833-16119 REV.5000 870720 @lP.091N.ENTR++`V D p8888(+ DP.104 92833-16119 REV.5000 870720 @cP.104N.ENTR**`U  D p888ڰ8(* HP.103 92833-16119 REV.5000 870720 @bP.103N.ENTR--`X PD pp 88Z 8(PX- DP.105 92833-16119 REV.5000 870720 @cP.105N.ENTR((`T D p888ڐ8(( EP.108 92833-16119 REV.5000 870720 @bP.108 ..TCM.MVW  11`ZQ Z(pP8( p8`hB1 P.165 92833-16119 REV.5000 870720  @QP.101=P.109V q.DIV .DLD .DST .ENTR.MVW EXEC <<`nampm : . Fri Sat Sun Mon Tue Wed Thu Mar Apr May Jun Jul Aug Sep Oct Nov Dec Jan Fe<`A.b `A5 6`K=<``5h<= H`BM, 19`AP <<`a2VU``GhUVf/64`1h0֢p1HR`2Zh@(uh`2xT<;;`]w`pQ`2ôPh0ւHp9 B `1H:`4@pOp6h3H`4P H H; `C?H` ;;``A=@ p/` pL0p8h/ H6J`/@@0p7@4Q;99`eYB@4@3  H4H` "@@0ը n 009 4P.169 92833-16119 REV.5000 870720 @P.138P.139P.141P.140 `C  PP.124 #92833-16119 REV.5000 870720 @eP.124 B.ENTR.MVW  99`]>`hZpx(0 p!x!x""p!0 9 P.154 92833-16119 REV.5000 870720 @$6P.077P.078P.237SP.238<** <.DIV .DLD .DST .ENTR.MPY .MVW .NGL P.028P.036P.044P.082P.234P.233*`M& &  ;;`bNpX( 0ڀ`@P(((/"€(/( pu`|h;`A7`O<8SE$89:K &HK ;<<<`aaSOp`pt`O$PtQ(e`tP(Zpu`|hRP`tSPPS<`A`u<<`k {v { +-09` .LEle(p<<<`]h(hpx`@P(p` h (@(@ Ѐ p< `C}ô(h ;;`\ƶX(`F@FZhI @pF8G(`hĶh8 Z@F!(H(;;;`^Z`pGpFhIZ` HxI(`F@}8I`GP@(2; `F[Pd} <<`f N azhv #( 8} v5 @ v x@ @ x@}p}`z6pz x<::`c?,  x Bv  v# Zp9QQ@@6A(W(E(K(O w x`v(T vxy(R: `CO`vpy <<`]"RpxpwpvZ`97:08p`pdhx`ypyhw`xxwZpx:`h p`<;;`^Moh  @ H xֶP|(}@(o`vPh (Ph( xv@}p}h; `D\PPpp <<`_g-H}x}h!@(x (` 6  Z H׶hX|xHx<<<`_(p@pH}x}`|p״Pp@p(8HPHSp8؀ < `D"50 <<`c(Ӷ8(¨`u(`(OP$PtQ(pt(`t(`(<`G~6Ѐ`@ x<<`[4`|p`pGZp}pvpwpxpypzpFpHpIppp~`p(8hH<<<`[+ ( pH (/P(JP(JP(iP(]P(]P(]P(](z@r8(D< `C:48(C8 ;;`^c7P8h H PHhx(8~( @Zr(W((((U((;<<`ZpUpH(hX([(p(r((f(((((88(r((((< `Do((( <<`_shDrhrH $r((((((X(`u($Q($<::`^hH|x`v0w( h8HPH~HIZ(`hh} (6 : `CJ0 `O\\Z( A`pvpwpxpy!Z((  mP.034 ?92833-16119 REV.5000 870720 @jP.034.ENTR.MBT .MVW .SBT `A`b <<``$pp((`hZ`(>`@(>Bp` (><++`W}(`6h6"`(> x`@(>p`"+(( P.155 92833-16119 REV.5000 870720  @ P.026P.031G A.MVW P.015P.042P.114;;`_p8p8f(`hxx ``@xp;<<`[z!p(#(2Z`p@p`p`h(BX(B(8< `D< 8 <<`]@8(2vZGp8GGp8Gf@Gph@`<;;`]p]p@p`pvGP`pppppZppf`p`; `CzPv ))`S+}8(yhH hH @)`A` ?P.015 92833-16119 REV.5000 870720 @`P.015p.ENTRP.029P.112P.114`P~p8P`@@`B`U P.156 m92833-16119 REV.5000 870720 @P.027P.032xP.119P.121p:8<`<(Dp;8<`i: ;΁;`;:</`BaV `Di ii DP.016 92833-16119 REV.5000 870720 @`P.016|.DAD .DCO .DLD .DST P.029P.113P.115##`T6X82(#`B`Z bP.097 .92833-16119 REV.5000 870720 @jP.09733^P.351P.352.DAD .DCO .DDE .DLD .DST .ENTRP.253 P.043 P.096P.258 P.206 P.029P.113P.1153kVMAST ::`cB 6hX-($`J F#X3+2)/Z'#($:`K[#(,+## WP.096 #92833-16119 REV.5000 870720 @hP.096 3.ENTRLIMEMP.252 P.042P.257P.259P.029P.112P.114,,`] $! @hxxxH@@ppp X@$"!,`B`e!!! GP.239 92833-16119 REV.5000 870720 @bP.2390gP.070))`YDp`Hxp@p$4 -) MP.020 92833-16119 REV.5000 870720 @cP.020W.DAD .DLD .DST .ENTR.LBPRP.019++`\"Bx &hHx+ \P.255 ,92833-16119 REV.5000 870720 @jP.255 B.ENTR.MVW  ;;`^`@)h    (@*Z` h;`H=E$ +$$ 7P.160 92833-16119 REV.5000 870720 @eP.160 7.ENTR.XLA  `F  6P.158 92833-16119 REV.5000 870720 @dP.158 7.ENTR.XLA  `F  8P.159 92833-16119 REV.5000 870720 @dP.159 8.ENTR.XLB  `H` 5P.144 92833-16119 REV.5000 870720 @cP.144 7.ENTR.XLA  `F  5P.142 92833-16119 REV.5000 870720 @cP.142 7.ENTR.XLA  `F  7P.143 92833-16119 REV.5000 870720 @cP.143 8.ENTR.XLB  `H` k.DAD .DDI .DIV .DLD .DMOD.DMP .DST .ENTR.MPY `J  @p$(%`A`Z`A`\<<`^=$Z`+(3$Z`h h x`(<(K`0 pG`<::`^B@ 0pHڀ!!`$`Z@ 0pT@!@ڨ$`W`(_(u": `D`h p <<`^pd`@@Z0 pr0 poA0A$`@ 0 p}"ڀA`p<<<`_'ph 0Z$``#`(`"$"$"Ep< `D]Ap `Lx ApApApEp`A`<<`^r`hhZxh (x`(p(pڂ@ !p$@p`<<<`eնp p!p`( (0 x@$@< `D x0` ;;`^p`@p`(`0 Pp!pp`0 Pp!x; `E8x   XP.146 )92833-16119 REV.5000 870720 @c-P.022WP.136+P.008!! .DAD .DDI .DIV .DLD .DMOD.DMP .DST .ENTR.LPXR .MPY !`J  @p$(%`A`Z`A`\<<`^=$Z`+(3$Z`h h x`(<(K`0 pG`<::`^B@ 0pHڀ!!`$`Z@ 0pT@!@ڨ$`W`(_(u": `D`h p <<`^pd`@@Z0 pr0(poA0A$`@ 0 p}"ڀA`p<<<`_'ph 0Z$``#`(`"$"$"Ep< `D]Ap `Lx ApApApEp`A`<<`^z`hh'Zxh (x`(p(pڂ@ !p$@p`<<<`eն&p p!p`( (0 x@$@< `D x0` ;;`^ &p`( `@p x`(`0 pZ!pp;`MXC`0 p!Z!xx  4P.241 92833-16119 REV.5000 870720 @cP.241 C$SCRN.XLA  `Ek(8  _P.313 392833-16119 REV.5000 870720 @gP.313{t.DAD .ENTR.LBP .LBPR.LBT P.029`C`M;;`g8A (A (  p O6` ; `DU/xh // AP.246 92833-16119 REV.5000 870720 @gP.246qo.DAD .ENTR.LBPR.LPXR`RU86 `P.188 -92833-16119 REV.5000 870720  @P.189P.190 ".DAD .DLD .DSB .DST .ENTR.LBP .LBPR<<`d(0,8 80+pH*<`I$Z`$$ >P.302 92833-16119 REV.5000 870720  @P.303P.304 x.DAD .DLD .ENTR `S{`@0 LP.316 92833-16119 REV.5000 870720 @`P.316 .DST P.294 44`\px(8(8p44`A^&& 0P.294 J92833-16127,REV.5000,870622 870622.0827&@P.294A.DAD .DLD .DST .ENTRP.267P.192P.295P.280<<`eZ>4p3 ?4p2`3(1`2((1>&24p2`2((1G0€?5G><`M@O%7`3p915I7&92A`Hx!B>@p4(BB RP.278 92833-16119 REV.5000 870720 @oPP.277 P.278P.279 5,.ENTRLIMEM `IVM$`IL  ` @ `J~`@&& -P.148 92833-16110,REV.5000,870622 870622.0830&.P.&& (P.023 w92833-16110,REV.5000,870622 870622.0830&@P.023lr.ENTRP.037P.192P.029::`c`ai(  t_ ([iA@bZ(`dAi( u6_([ip\:<<`aU#@\p\``A (/p`\P`(76v_([p^`hp]`]Ai(J`]< `DɚDPp^`] ++`T*XHp](;`^(O^pg`\hg `gZh\il+`J~mijp`kp_([^\mm'' LP.057 Z92833-16110,REV.5000,870622 870622.0830 '@P.057Qۦ.ENTRP.037P.050P.192P.029P.098;;`aȜG`HPJ((  & G`H@XpP`GA@(&WF(D@HpE`ME;;;`]^!`EhN`EO`EpN`E@YpEE`EhE`EpM@EpH`HA@L; `D(>(A`HpL `C/B&DGQ `Hx[ROPpF(RR&& .WP.059 92833-16110,REV.5000,870622 870622.0830&@#P.059 .ENTRP.200P.037P.050P.192P.029P.098<<`^V`p:` pA@P(pp9(#`P:(`p`pp9<66`[(#pp9`9(`Z(8`@@ʴ p`A@Z(8`ɴp;6<<`]<8;(`P(B(ap{`@{h@p|` @{A@Z(Z`@{@<<<`^YP(``h (s`@@p`A@(p`p`p|`|`|< `Bwp|`| `By} ;;`c4j~8}(>`P((0`AZ(p;4X((`(0;;`O4Z`(}0(`K pp('' G4h~ K$ R$~ 4h~ $e 4`~< `Bg,ip~ ''`Rak(p`Z(u`p~`p( ';;`m(> Top of stack: Top of heap: High stack: High heap: Initia;<<`n7l stack: Initial heap: Previous free: Current mark: Heap/stack not initializedMark Po< `E.int Size `Gb Start Next && 5P.129 92833-16118,REV.5000,870622 870622.0822&@sP.129].DST .ENTRP.192P.128`L\ 0   4  `Ewbp ( '' JP.244 192833-16110,REV.5000,870622 870622.0830 '@P.244'r.ENTRP.037P.192P.029,,`Z$(  / ($A@X($0$',`I|($%p&p([^((&& &P.260 92833-16110,REV.5000,870622 870622.0830&@vP.260 j.ENTRP.037P.192 `FT` `EwYp( '' OP.269 ;92833-16110,REV.5000,870622 870622.0830 '@P.2692+<.ENTRP.037P.192P.029P.098<<`c9'`&@(p(`(A @,(`(p,`'A @(( `(/6'($$:<`B<#4%2`H|73/0p&1p%(33'' KP.275 392833-16110,REV.5000,870622 870622.0830 '@P.275++<.ENTRP.037P.192P.029P.09866``J!)(  1 ()A@"X($2 ()p"!)+6`Gx,)*p (]_,, OP.263 92833-16119 REV.5000 870720 ''@ P.242P.037 P.252P.042P.257P.259P.271P.098P.112'@`P.114 B.ENTR.MVW  `I `hP `K`hR&& /P.149 92833-16111,REV.5000,870622 870622.0831&.P.&& *QP.024 92833-16111,REV.5000,870622 870622.0831&@P.024!! v{.DCO .DLD .DSB .DST .ENTR.LBPR .LPXR P.038P.192P.029!;;`h  (( 6(( ($($#( ;<<`ii(0(;(7(; 0B(H(CG4( 0< `EC\Q0 ;;`h7Vx(j(^(j ‚(P  (p(v  ‚ ;$$`W~&x °x x $`P6p([^\ '' N@P.058 92833-16111,REV.5000,870622 870622.0831 '@P.058** s.DCO .DDE .DLD .DSB .DST .ENTR .LBPR .LPXR P.038P.051P.192P.029P.099*<<`hsos( (( o 6m((($j(i0o k kx}y<<<`k#(} kx}{} x}k}k0{k k kx} } &kx}k}< `D>S0ky `SvW2k o0ow(f(b(fowim`P pj( m&& &P.060 92833-16111,REV.5000,870622 870622.0831&@jP.06000.DAD .DCO .DIN .DLD .DSB .DST .ENTR .LBPR.LPXRP.201P.038P.051P.192P.029P.0990;;`h9D&0 ((ppC(00 D(,(&;22`[("pC(0ppC`CX( `(B0   (B(B`pF2<<`gG8F(`P(M( 0   6(c(ox  <<<`i7an(~€6x6( 0  (((0  < `Dx `Q0 6x4<<`e8(I (((& 6(((0FҢ`(ׄ<`Q}4F`(6(4`Q 6p('' IP.201 92833-16111,REV.5000,870622 870622.0831 '@hP.201 $$ .DAD .DCO .DDE .DLD .DSB .DST .LBPR .LPXR P.038P.192P.099$;;`i(( 0  (( ؀( 0 0B;<<`k)p &0 6 (( x  0< `CpT((W( <<`jqW((]  6x0 € 6x0p<<<`h֠0((2X(2`(( &0((((( < `Dã0  <<`iU6(((0 xB  x(<""`UR0 0B((( "`JY 8 (   gP.051 792833-16119 REV.5000 870720 @dP.051!! K.DLD .DSB .DST .ENTR.LBP P.243P.253P.258P.272P.113!<<`f X. 20  4x6  6€68686 4  6 8686 68686 6 <`N<&2  &&&& *P.084 92833-16111,REV.5000,870622 870622.0831&@P.084$$ .DAD .DCO .DLD .DST .ENTR .LBPR .LPXR P.038P.192P.029P.099$;;`hw }  (g(f }6l(( }p($($#g(fxh;;;`hؤ( }6h(>(0h (6(> &h6h((h (D(bhl 0Bhv; `EQP h `RxUxZj }xz z(ff&g`M }~pg(]_j&& -fP.203 92833-16111,REV.5000,870622 870622.0831&@P.203q** p.DAD .DCO .DLD .DSB .DST .ENTR.LBPR .LPXR P.038P.192P.128 P.125 P.133 *<<`jE pxk k~ pxk k$uuv pxk k$wwv pxk $k[0x pxk 0k <<<`j *6pxk 3k$uuv 6pxk =k$wwv 6pxk Ek&]x pxk k pxk Tku$uv< `DHT pxk <<`jX0؂k pxk $ckuu0v pxk $mkww0v pxk $ukcx 6pxk k 6pxk k$u<<<`j&uv pxk kw&wv pxk kex pxk k pxk $kuuv pxk k p< `D'xk k <<`j$uuv 6pxk k$wwv 6pxk Ƃk&_x pxk k pxk Ղku&uv pxk <<<`jO $kwwv pxk $‚kax pxk k pxk k$uuv pxk k pxk k$uu< `Dr0v pxk ;;`j  kw&wv pxk kgx pxk k pxk &$kuuv px((k 0$kwwv p;<<`h2xk 8ki0x pxk 0‚k]a(D(m(m pxk Nk$uuv pxk k pxk ]k< `E(:Z$uuv p <<`iI_xk gk$yyv pxk k(N0iYgW WzU ZY ((N pxk  k<<<`j$uuv 6pxk k 6pxk k$uuv 6pxk k$||v 6pxk k&Yx pxk k< `CR!pT`T ;;`h7(3U6W((pT pxk $ʂkuu0v pxk $Ԃk||0v pxk $܂kUx ;<<`kt6pxk k$||v 0BUl pxk $‚klx pxk k$}}vUzl 6pxk < `E(I$ klx <<`k9 6pxk k$||v 0BUUl pxk &klx pxk k UzU( Y<++`\P80WW (?(F WzU &Yz6Y(| pxk kq+;;`mŹrp( [> Top of stack: Top of heap: High stack: High heap: ;<<`n Initial stack: Initial heap: Previous free: Current mark: Heap/stack not initializ< `EedMark Po `LPint Size Start Next '' UP.128 r92833-16118,REV.5000,870622 870622.0822 '@P.128d.ENTR.LBT .SBT P.215P.044P.192P.073P.186;;`cZ`N(&ja Q&€bkpLa$ZNL('`L((&hl6@LHhaHoa;<<`]Z#@LpL((K`a@npM`L(/(Ahl6Z@LHhaHpP6HM`MpM@LpL< `C@(+`a@n `IgChM`a@m@0qd`Mz9eacpN( Q ee'' P@P.133 92833-16118,REV.5000,870622 870622.0822 '@P.133.ENTR.LBT .SBT P.044P.056P.192P.073P.186<<`b3`{(&~~{"|(<`z('`{Z(&p}pyh6@yHh~H<<<`]"6ڀ~8y8}((; `{(;p}py`~@HyH~8y8}(/(w`~@< `Cw?px`z ;;`__B(Q`~@p}$M}x6{`x@{px(i `{(ip}py`~@@6Hx@y@;33`W٭a`xpx8y8}(Y`{(m(w`~@hx`~@@03`PҰ~p|p{pz( '' LP.245 K92833-16111,REV.5000,870622 870622.0831 '@P.245=<.DCO .DLD .DST .ENTR.LBPRP.038P.192P.02977`d /I:  (G$(:6)((($H$:Bx7 7=7`M>:;6%>&& (P.261 )92833-16111,REV.5000,870622 870622.0831&@P.261!8.DLD .DST .ENTR.LBPRP.038P.192`K'x!`G" p ( ""'' HP.270 Q92833-16111,REV.5000,870622 870622.0831 '@P.270D$$ .DCO .DIN .DLD .DSB .DST .ENTR .LBPR P.038P.192P.029P.099$;;`hO0 ,0008(((080.(&(& Ax>20>&%.(**; `C/(&N+D `LE AB6,Cp+(.EE'' MP.276 N92833-16111,REV.5000,870622 870622.0831 '@P.276D .DCO .DLD .DST .ENTR.LBPR P.038P.192P.029P.099::`h<L B  (J.(- B61((($K.(- 0BB1&/ B:`Fkt(Bx? ?D`IEBCp.(]_/EE XP.264 '92833-16119 REV.5000 870720 ''@ P.243P.038P.253 P.043P.258P.206P.272 P.099P.113'@`P.115 .ENTR.LBPR.MVW  `J)`%&`KC`h%R&'' TP.268 92833-16127,REV.5000,870622 870622.0827 '.P.&& 3P.296 ~92833-16127,REV.5000,870622 870622.0827&@P.296t;.DAD .DLD .DST .ENTRP.192P.280P.338<<`cQqhpg rhpfP`fA@g(`fpe(`gpepdP`eA@d(=z<;;`d0#rj$+jdpl0zqj6jdPl(9(=`dpd (`eA@dZ(J`f; `C<G@gpi(b ))`Z;Jzr0jTjdplz0€qj`&jd@lpi`it)`Gxuqsph(uu&& 4P.307 92833-16127,REV.5000,870622 870622.0827&@lP.307  o.ENTRP.192P.280 `G p`  `EwN p( && 6P.309 92833-16127,REV.5000,870622 870622.0827&@uP.309.ENTR.LPXRP.192P.280`PM( Zx(p``Gwup(&& /P.293 E92833-16127,REV.5000,870622 870622.0827&@P.2939.DAD .DLD .DST .ENTRP.267P.192P.295P.280<<`c[T5,p+`+(*`-( (*5&-,p-`-((*h6`D0.B50`+p2<`H#*.A0&2-9`Kg:57p-8p,(::'' TDP.306 92833-16127,REV.5000,870622 870622.0827 '@P.306!! b.DAD .DLD .DST .ENTR P.266P.267P.192P.029P.295P.280!<<`dyypx ypw`x((t`w(t`zA (" `wA@zX(' &<<<`e$&y(t`z@wpv1$ڀxypu`v@up`xA @(Z 0{ }< `C(}I`z@xp <<`dL`v@uhx@pY{z$}(]`u@vpx`x(a(t { 0€}t {< `E/p$}zx `K~K pzpy('' TKP.297 92833-16127,REV.5000,870622 870622.0827 '@P.297!! a.DAD .DLD .DST .ENTR P.267P.192P.029P.281P.299P.280!;;`cupt`t(s`wA(uX(s`v($u(s`v(!(s`tA;<<`c#@w(.-u(s`w@v@pP`tA@(F(AAu`w@tpv< `CF`v(J ;;`c6IZ(s`v@tpxSxu(s 0ڀy`w@vpx {`v@thw@p};`H%lsyx{&w}`N pwpvpu(&& 5P.308 k92833-16127,REV.5000,870622 870622.0827&@P.308b p.DAD .DLD .DST .ENTR P.267P.192P.295P.280P.338<<`e`UpS _UpR`S((Q`RZ(QpT`SA@T(,h0€`V%$VT<<<`ce%Pj(((,`TpT(`T@SpS6_&SUpS`S(;(Qh0€`Vh_X`R< `DQHpZQ `F5L$VTXZSb `Hxc _apU( cc&& 2P.315 c92833-16127,REV.5000,870622 870622.0827&@P.315Y p.DAD .DLD .DST .ENTR P.267P.192P.295P.280P.338<<`cWLpJ VLpI`J((H`I(H`JpK`K(((_WM$!MKPb($<;;`ej#((@KpK(-VKLZpK`K(2(H_W0M_VO`IpQHMaO$QK;`AHY`IxZ VXpL( ZZ&& 23P.314 92833-16127,REV.5000,870622 870622.0827&@P.314'' y@.DAD .DCO .DLD .DMP .DSB .DST .ENTR P.267P.192P.029P.295P.280'<<`ep p~`(}`~X(}`($(}hB h  0<<<`fW%0 (1(106(}6&h  (}(}`~p 6(}(}< `DKh  <<`gOO 6(Z(X(Z`p0€m$`@ph <`H7v 6(E`P pp('' O,P.292 t92833-16127,REV.5000,870622 870622.0827 '@P.292e o.DAD .DLD .DST .ENTR P.267P.192P.029P.295P.280<<`c~daTpS `TpR`S(Q`RX(Q`U($oT(Q`VA(,`V@U@s<<<`f8G# p`SA@X(1$0pT(Q$6`UTpU`U(;(Q0qaWq`4Y`R< `CIp[Q `F?L$WVY[Ue `Nf `bpVcpUdpT(ff'' RP.295 O92833-16127,REV.5000,870622 870622.0827 '@P.295B.ENTR.LBPR.LPXRP.192P.029P.299P.280<<`d>?9p8`8(6`8@:p<?JA@< (/(L9&؀?Jx< ?<**`TBI$`<?J`8Hx;(6?`8@:`:p;`;B*`J|C?@p:Ap9(CC&& /P.311 92833-16127,REV.5000,870622 870622.0827&@P.311v;.DAD .DLD .DST .ENTRP.192P.280P.338<<`aypjt6ipe s6ipd`e(Z(b`d((b`e@dpdZpfph`dA@h<<<`eN!Z(\`fP(\pf pg`eA@gZ(X`f(X|0€tkA&kgpm|s< `C_Fk`h 66`[z;I@g@pnP&knPmZpf`gpg(,`hph(`fZ(b@hpj`jv6`Gxwsupi(`A`'' O P.310 \92833-16127,REV.5000,870622 (( 870622.0827 '@P.310D'' .DAD .DLD .DST .ENTR .LPXR P.266 P.267P.192P.029P.281P.299P.280'::`^y`1((`1p,(  =6.p,`/((`/p+($@.p+`,()`+():<<`` `3(&%&T.()`3(*()`2(.(9`2@3@[pP`,A@ p-`-< `D>P(`0(C <<`aB(K`+A@0p-`-(`0@3@[p*`/(Y(d`/A@*p-<;;`cc(q @UA@*Zp-`-(`/(z(~~&W.`/( @Ux*; `Dk @U`0 <<`c#lH x3 `3p-(X.(X.`-()`+A@*X(`/(<<<`g$@*.p-`1(`/ (`0A@2X(0Y =4Y @0642$603(< `DԆY = ;;`gX؆4Y 0@6 $42603Z()`1(`/((Y =4$42@063()`1;<<`gD((`/(Y @04=2$403()`0A@2("!=$2@03() )=2< `D!&$Ё@03D --`W*E <p2?p1Ap0Bp/Cp.(-EE hP.266 792833-16119 REV.5000 870720 @jP.266.DLD .DST .ENTRP.338P.339<<`b!Шpp513@p@p@p@p(1<`JN'6p6.3&685('' P.267 92833-16119 REV.5000 870720 @jP.267m.DAD .DLD .DST .ENTR.LBPR.MBT <<`b{Шpx50ڀ`ޠZpx5`p`<<<`_e'(4`6X@h6H"`0(C`pd$@(:`p`< `D1Fp %%`VJ4dQ&`p0d]$(E%<<`ed``hPH ` xp`6axb6c`850€``5<`Hײ0Ѐbb`d`A` `D '' QP.285 &92833-16127,REV.5000,870622 870622.0827 '@P.285 l.ENTRP.192P.157 ..`V`@%p`p 6p`((``p`. `Ewp( `A`h%%%&& 4_P.157 92833-16118,REV.5000,870622 870622.0822&@(P.157%.ENTR.LBT .SBT P.192P.039P.040..`X}Dp`pP`A@(h6@Hpp`.55`YB`p(`3(!(,(,`P(((+@3p3(`3p4`465;;`^_07Z`6(8p5865p3`p4(ppPppZp`(h`A@;<<`^UWU(e(e`ph6@H`(O`p(`p6Z((`< `CSsP(` ::`^RvA@(`P(`(`Zp`((`ph6@H`:<<`^Z(o(p`Zp`((`hAH( (xph6@H`8< `C(8( `Bz` `Gņpôp(B`Ca_ ,'' PP.273 Q92833-16127,REV.5000,870622 870622.0827 '@P.273F$$ 8.DAD .DLD .DST .ENTR .LPXR P.028P.036P.358P.192P.281P.339$<<`e9dp; DLx<C( CC(3`;A @<(3CLX(3`;p;0N <%%`Vm%0ڀD>`C@Pp@0>;0؀@C($8D;=(:F%`JxJG CEp=( GG'' SP.028 <92833-16118,REV.5000,870622 870622.0822 '@P.028+ 8P.044P.192P.082 <<`_c`*p(`(@:p))+8()*8(5*`(Z@;()X,8( *<`HX`*@:,8p'`'+`J׀,Z`+(-p*8+`9p'( `D`8 88'' QP.036 692833-16118,REV.5000,870622 870622.0822 '@P.036( 8P.044P.192P.082 <<``AP`'@3+2(  06ڀ'(&`'@3X,2($1'(&6'`'@3@04<`Gs Z`'@3@5(`M=)Z`((*p'8(( ))&& 6P.358 D92833-16118,REV.5000,870622 870622.0822&@P.3584h.ENTRP.044P.192P.082<<`_ap1`2@BZ+@(`0(<62(.2`2Z@C(`2Z@B,@(<##`QMp1`2@B,@(.`0(..=2`14#`Ii523p0`Ap1( `D`@ @@'' N"P.082 q92833-16118,REV.5000,870622 870622.0822 '@P.082[).LBT P.044P.192P.081<<`]`ZpX`X@gpYY-e(VY,e(cZ(V`X@hPd(Pe(Pf(!<<<`^1l(PZ(P`XX@i((6ڀZ`X@kpW`X@j@W(=`X@m@Z6HWhXHl< `B,;(H <<`Z_=`X@lhnYڂ,e ehXHiZ`WpW`X@khW(PY0oYYpY[<$$`U%\Z`[(]pZ8[(  @$\\&& 3P.336 H92833-16127,REV.5000,870622 870622.0827&@P.336<!! Z.DAD .DLD .DST .ENTR P.044P.192P.073P.186P.280P.338!<<`fݐ`2(&D8 961p0`0(/820(`2X(/p3p00E 94'4<`JG&60h8HG6ڀ88083(<`K|= 8:p2;p1( =='' SHP.186 92833-16118,REV.5000,870622 870622.0822 '@P.186rG.SBT P.123P.192P.073P.125::`^(pl`o@hoZH@Ap("ڀopl(-`o@phoH:;;`a'x @A@X(-$+oo`l(A`o@h`mp(:(@opp; `D?(4(g`m <<`]]Cp(G(g`o@pk`o@؂@6Hk``kpkpPp`mp(K`o@hk<`Kc``o@@0`lpn`nr66`YwasZ`r(tpo8r`r(zpp8r`r(pq8rqpm`pn(6`Ia  '' JP.123 92833-16112,REV.5000,870622 870622.0833 '@tP.123 n.ENTRP.070P.192 `O2`@p`@p$`G&('' PP.274 92833-16127,REV.5000,870622 870622.0827 '@zP.274'|.ENTR.LBPRP.192P.080P.280`Mx0  (  `Ewip ( '' LP.080 R92833-16118,REV.5000,870622 870622.0822 '@P.080;OP.044P.056P.192P.081;;``X`9@Mp77,L(  &I9(7+L(&J9(7.L(97Q;,,`W͑ 770P7`9@Op7`9@N p867K:&K8;,**`V|PU(`>PV((`?Pb( `(p<p?);;`[Z`(p8p(`GpB`B@WpC$'AG`A@Vp>`B@XPT(5;;;`^u0PU(uPV((:`B@_pD`B@]pE`B@YpF$FA?DE&PU(`B@]A @a(`=p=`B@_pDA? D< `D,&=<`B@] ;;``p`SR$VW< `D>`R(E ""`PvB$ERX`T@gʂ@6`h`T@fhXHeY"`PZZ`Y([pX8Y(  ZZ GP.019 92833-16119 REV.5000 870720 @fP.019N.ENTR `D`_ ,,`U`@@X(@@@X@(,'' IP.033 92833-16112,REV.5000,870622 870622.0833 '@uP.033 n.ENTRP.070P.192 `O2`@p`@p$`G&('' JP.044 92833-16112,REV.5000,870622 870622.0833 '@vP.044 n.ENTRP.070P.192 `O2`@p`@p$`G&(&& ,P.290 /92833-16127,REV.5000,870622 870622.0827&@P.290$.DCO .DLD .ENTRP.192P.288P.233..`[g !0*( (6,(((`#(.4$.`Jw% "p( %%'' UJP.288 92833-16127,REV.5000,870622 870622.0827 '@P.288!! i.DLD .DNG .DST .ENTR P.216P.192P.234P.305P.233P.280!::`cZ $py`y(x$Z(x`p|$Z|("`|P(!("(:<<`_/#p{pz`|Pp~`~(j`|PZp}`}(:`|P(:(A@$|p~`|< `DB@(_`| <<`b4(F@(_p{}| 0zpzX$ڀ|p~`~(^`p|(A`}(g `~<##`Qݜh0{p~`~(p`{0z(xx4#`LyU p(  +-&& 3P.216 u92833-16118,REV.5000,870622 870622.0822&@P.216Q>O.DCO .DLD .DMP .DSB .DST P.192;;``h`I@tpHpGNk( ( (/N6k((-(-`J(`rA @H()`J;;;`c (*`sA@HZ(*(,pG(/pG`G(CpKhH 0LNmLN(E; `D>CpK`KQ <<`\RZ`Q(SpN8Q`Q(YpO8Q`Q(_pP8QOpJPpI`qpK(334<`A`n  `D`q qq&& 2P.286 V92833-16127,REV.5000,870622 870622.0827&@P.286K.ENTR.SBT P.192P.234P.305P.280<<`eEB(= EF"B(=p>P`AA@>(*$EF?B (*hH6@>H`?<00`Yf%Z`>p>(P`AA@>(=hH6@>H`U`>p>(*K0`JGLEGpBIpAJp@( LL'' VP.289 D92833-16127,REV.5000,870622 870622.0827 '@yP.289<<(.DAD .DCO .DDI .DIN .DLD .DNG .DSB .DST .ENTR.LBT .MPY P.006P.192P.234P.305P.233P.335 P.280P.338 <<<`c^' p`( $ (X`Cp$ ( `PC(( (`A<<<`a#  (+  ` ʀ,H@(:9&( p ` ,H @< `C_D(]` <<`d+8GA@(]`p 0 [p(< @ p`A@X(n m<<<`d;k&( @p`@h Zp`( ph   < `E1 <<`e:4 (p`(&(`A@(  6p ph<<<`cP6 P((`p(`P((h 0 ((h< `D76  ++`Wj8ZPCp`(h   @ (+;;`hڡ  ppp("3;`Ia; ;; MP.004 "92833-16119 REV.5000 870720  @P.005P.006 --`b @ @ -&& 3P.335 "92833-16118,REV.5000,870622 870622.0822&@vP.335 .ENTRP.192 ((`Q Z`@!( `@ ( `@!@p(`p`(`Gp`p( `D`A '' SP.287 #92833-16127,REV.5000,870622 870622.0827 '@P.287#9.ENTRP.192P.234P.305P.280##`VD( "($(# `Ewp( '' N P.291 S92833-16127,REV.5000,870622 870622.0827 '@P.291I$$ /.DAD .DLD .DST .ENTR .LPXR P.192P.281P.234P.305P.280P.339$<<`fE>(: EF">(:p; HOx(3`;<""`UjC&p;Q H?2?&;=(8$H;>(:I"`IxDJ EGp>(JJ'' MP.281 ;92833-16127,REV.5000,870622 870622.0827 '@P.281*N.ENTR.LBPR.LPXRP.192P.029::`bp$'4PA@#(&6"( `#(7"( '`#p$`$*:`MON+'(p#)p"`:p$(`A`}:::&& 0P.234 >92833-16127,REV.5000,870622 870622.0827&@P.23401.DAD .DLD .DST .ENTR.LBPRP.192P.029P.338;;`d p'-(  8&($,A -($p'90€,( &(-.--; `B$`'0 `JK1,/p&`=p'(`A`==='' RP.305 /92833-16127,REV.5000,870622 870622.0827 '@P.305!~ .ENTR.LBPRP.192P.029--`Y`((4 A@P(Xp(p$+`!-`JN"p p`.p(`A`q...'' TP.317 =92833-16127,REV.5000,870622 870622.0827 '@P.3171s.ENTR.LBT P.192P.312P.32099`aS*+%$Z#$( `#Z( p&p!h-6X@!Hp'$*+'8!8&(19`K2*,p%.p$/p#0p"(22&& 00P.322 92833-16127,REV.5000,870622 870622.0827&@P.322 .DAD .DST .ENTR.LBT .MPY P.192P.233P.312P.320<<`bF)`z(&~`{(`{pz`{p{`}(`|A@}(~`{}pw<<<``j"`w@{@pv`w py`vA@yZ(AhyB h6 P(A`ypy((`z< `CB(H`w ;;`a+E@ypzO$~z{(u`w@z@pv`whvAH(^ (uxpyhy ;`P gfh6 pq68y(s8(`$$`Q*p~p}p|p{pz( $&& 6P.319 &92833-16127,REV.5000,870622 870622.0827&@{P.319j.ENTRP.192P.312P.320`O2$X%($`Jάppp('' PP.323 $92833-16127,REV.5000,870622 870622.0827 '@{P.323X.DST .ENTRP.192P.321`Nmh 0 $`IΜppp(&& .P.321 R92833-16127,REV.5000,870622 870622.0827&@P.321D .DLD .DST .ENTR.LBT P.215P.192P.312P.320::`c7,*Pp$ ?@$'&$(#`$((#hQ6@$Hp<?@"<@$p$(:`A#D`MJE?Ap'0ڀB*Cp&( ,EE&& 1P.324 "92833-16127,REV.5000,870622 870622.0827&@wP.324 h.ENTRP.192P.318 `K*  $ !`Kp p p (L&& 2P.325 292833-16127,REV.5000,870622 870622.0827&@P.325%.BLE .CFER.ENTRP.192P.318`RǨ"&$ &01%`L1&!p#p$p(E&&'' VP.318 n92833-16127,REV.5000,870622 870622.0827 '@P.318]((jB.ENTR.LBT P.192P.217P.233P.312P.320<<`d`C(`B( kD`C(pC`B(`mpBEXC$BA@p?$$UVDC ?<11`Z$(=`?(=pQp>Zhl6@>HpR:U&ڀVR8>8Q(.]1##`PO^UWpDYpCZpB[pA\p@(E'#^^&& 6P.217 e92833-16118,REV.5000,870622 870622.0822&@XP.217<<..TCM .CFER .DIV .ENTR .MPY .MVW .SBT .TADD.TDIV.TFTD.TMPY.TSUBP.262P.265P.192P.063P.116P.118P.232<`K{`ph6@H`  <<`cفZ` (p 8 p (`h  `(!  &(0 `p<<<`a1`(:&`p`(F `Ppp`bp`^pŶ`@p< `DkR`  <<`eV€@p 4X`($`]6@pn$ $ `( h!`" <<<`d8*{ Z@pư(Ѣ`(&`]Ŷ@p$h!`"P `p< `C1@p <<`_~8(O`Pap`(`A@Ʉp`(Ҷ`@c@d@d@dp<;;`bup@p&p`p("p`@p6p`@; `Cp` ;;`c(`h  X`( 0 $ 0p`p`((,`[;<<`d (!` @p$Ձ`]6@p!$`p` \p(< `E-$6 <<`do2$$ `(R G;4Z`p`0(Q`Zp(6p`<<<`^V(Z (_`(_ `Ǡ p(p`p`Pʶ(l(n &qp`@`< `C&tp  <<`fkwh 0 $$$ ;@p8(h`( Ȣ`(<::`_OK `pƴ( ` _@`p $@`p `p`̠:<<`g ppppȠ(@PP- .+ 16<<<`n $PdN _^6G ߂lN[PdN _^< `DNG ߂ `GR6N[k `J[ 0'[[ P.170 92833-16119 REV.5000 870720 @"[P.063&P.067P.116]P.1187/k.DLD .DST .ENTR.MVW `O$@`Az <<`dő""`#h"`$h""H@˜`h%&$A(^u%<<<``sbFڨ&xH D`Z`P!(e(e(ehH< `C@>fhG <<`^ix` pZ@ 8(mZhixHXu(xx 8 <<<`b]e8` hHx€D8€D8DhH< `CYi ::`^(GZ(pp 88(`BppP (`P:<<`]mʶ(@p (`i@p(ڄAHH P(< `C)綀`@p ::`^ (1(p(u8(ZH`H ZxHZ` @:;;`_UhHd h d PAdZ ($h A; `E'(!`C(S ;;`]M+,`(U`@(;@hZxh(J(@@h(J@]!(UH;;;`]6I(U Z  D(UZ`p `hc(hG(Ш^xti; `DkfPHa(o <<`\WjZ(o (rhtc`phhh`h`8({`<`Mh`@ph`PGu<<`^pF`(Ӣ``hhڶG`P(ȶ`p`hQh` u<;;`^hu8(`P(hu(hu`h"`@ph`; `C>PG `FӶhxxh`A <<`](` phGhZG@pppp p!p @h``<%%`P[!Zch Xp pH H h%<<`a6 `h"s`Zs`HH `<::`^t/`h65`5h`hxH Hx0[hH: `DdMP H <<`c[QX(U(Ph6`7B\`\h`mh(`]n@<`OL t `@s`(`(E`(Ett&& 3P.326 I92833-16127,REV.5000,870622 870622.0827&@P.326?!! g .DAD .DLD .DST .ENTR .LBPR P.192P.312P.320P.280P.338!<<`g=1(. =x2:;1$Z02(.`0Z(.p2p/G0€=3%&3/p5<`H}'$+:;58/82(?`I|@ :p0(@@ AP.338 92833-16119 REV.5000 870720 @dP.338k.DAD .ENTR.LBP .LBT `QnBx5Z6H&& /P.283 "92833-16127,REV.5000,870622 870622.0827&@}P.283 o.ENTRP.192P.282 `K*  $ !`Kp p p (L&& 0P.284 292833-16127,REV.5000,870622 870622.0827&@P.284%.BLE .CFER.ENTRP.192P.282`RǨ"&$ &01%`L1&!p#p$p(E&&'' O%P.282 n92833-16127,REV.5000,870622 870622.0827 '@P.282]jE.ENTR.LBT P.247P.192P.233P.312P.320<<`d`C(`B( kD`C(pC`B(`mpBEXC$BA@p?$$UVDC ?<11`Z$(=`?(=pQp>Zhl6@>HpR:U&ڀVR8>8Q(.]1##`PO^UWpDYpCZpB[pA\p@(E'#^^'' VP.247 92833-16118,REV.5000,870622 870622.0822 '@P.24733 u..TCM.CFER.DIV .ENTR.MVW .SBT .TADD .TDIV .TFTD .TFXD .TMPY.TSUBP.262P.265P.192P.2323`K,`mpmh6@mH`  ;;`a5Z` (p 8 p (`h`(!&4`po`o;<<`a_/(6 `pq`o(B&`Zprpw`p`pv`w@wpw`v < `D5PP@ <<`et[Tp~`r(m0~`(l"@wpw({~`({ 4~`w<<<``yZpw@vpv8(K`{Ppp`p(`wA@zpp`p(`|@< `C@@@ ;;`b2pp@zp$p{`{px($Zwpt`t@zp&{p{`{;;;``|@tpx`r(ж`h`("pv`xpt`t((`t; `E޴(`v  ;;`d,€@p &`vpv`t 6pt( &4X`( $`wpw;<<`^Z`p0r(`xpx(pm`q( Z(`p( 6`xp(Fp`pv< `C%`vP{() <<`b((+  xu`u@p 4hu  0@vpv8(%`p(i <<<`arJ4Zy`w(T 4Z`wpw(V `w @p ew&@p 6`mp}< `B k`} <<`g(p|p{pzpy(@PP- .+ $P<`VɚdN _^6G ߂lN[`Ij 0''' OP.262 92833-16118,REV.5000,870622 870622.0822 '@yP.262 .ENTRP.192 `OnP`A@( `p( `p` `G{pp('' RP.265 92833-16118,REV.5000,870622 870622.0822 '@yP.265 .ENTRP.192 `OnP`A@( `p( `p` `G{pp( JP.232 92833-16119 REV.5000 870720 @eP.232 .DIV .ENTRP.029 ++`Y5( ( `¨$P+'' N P.320 o92833-16127,REV.5000,870622 870622.0827 '@P.320[d.ENTR.LPXRP.192P.029P.299P.233P.312P.280<<`b(pRV6QpO`O(MY(`PYeQ(MW((!`OPAW(&<;;`c[,"$%fQ(MWY@npSV4 gA@SX(<(<<i4PQ`PY(B(KGV; `DE$PWjY `FKIZY(<pR`R[`OQ\VXpQZpP`mpR( `B`mmm 5P.300 92833-16119 REV.5000 870720  @P.298P.299 .ENTRP.301 `I+~pP` pP.035 B92833-16119 REV.5000 870720 @P.356 ((P.035 P.1852P.039+P.040.P.301t.ENTR.MVW EXEC RMPAR`B`R;;`a "<p`ppp 6x 8 `p (6`p;`Go*Ш `+`.`J21`Ah1P;2`AA <AA&& +P.233 92833-16112,REV.5000,870622 870622.0833&@oP.233  n.ENTRP.070P.192 `H˲ &  `E& ( && /P.312 F92833-16127,REV.5000,870622 870622.0827&@P.312<u.DAD .DLD .DST .ENTR.LBPR.LPXRP.192P.339;;`f9x3`3PA:(294 BA:X(20D95#5:4`3A;`MD& :(/9:::<`Ix=9;p4(== CP.339 92833-16119 REV.5000 870720 @eP.339r.DAD .ENTR.LBP .SBT  `RmBx5Z6H '' LP.280 ;92833-16127,REV.5000,870622 870622.0827 '@P.2800N.ENTR.LBPR.LPXRP.192P.029<<`c.( .6( ( .p+.6A@+( .Xx*(&p*< `E##$&8)`*0 `Hw1./p)( 11&& /P.029 92833-16112,REV.5000,870622 870622.0833&@nP.029  n.ENTRP.070P.192 `H˱ &  `D& ( && *P.193 92833-16112,REV.5000,870622 870622.0833&.P.&& .P.068 92833-16112,REV.5000,870622 870622.0833&@qP.068  n.ENTRP.070P.192 `HK &  `E&  (  && &P.070 492833-16112,REV.5000,870622 870622.0833&@P.070"E.ENTRLOGLUP.071P.192P.360P.102P.327%%`W'&ڀ `P3( p&."%""`Q?2#ppp!p("##&& -P.071 92833-16112,REV.5000,870622 870622.0833&@P.071!! s.DST .ENTR.LBT .SBT LOGLUP.009 P.215P.192P.090REIO !$$`Td`((&p`p$Zp$))`S8(`pZh36@H`+ `P(((**-)<<``1.,,p+(4Z`R(;-&:(P`R(PpT pQhS6@QHpU-M4U8Q< `C N8T(CX <<`b YVVpSWpR(4h k$p`(p(~h6@Hp-z< `D{@p(l <<`^xpp(`6pX4Z`(`P(P(P(P(P (<;;`Y@dP (P (P (P (P("P(+P(4P(=P(FP(OP(XP(aP; `D϶(j(s <<`d6pX6(pXǰ(pX(pX$( <<<`d{6pX6(洒pXʰ( pX(pX$( < `D%6pX! <<`d&(%6pX*6(.pX3Ͱ(7"pX<(@1pX E<<<`dC&(I6@pXN6(ROpXWΰ([]pX`(dhpX i< `Dlg&( <<`dvk&mrpXr&(v6~pX{4Ң`(6pX4Ҡ(<//`]pX$&pXՄpX$/;;`m@(Pascal Error: Undefined CaseHeap/Stack CollisionNil Pointer DereferencedValue Out Of Ran;<<`ngeMOD By Invalid ValueString UnderflowString Overflow String Bad IndexInvalid StringDispose < `EJ Called Wit <<`nh A Nil Ptr Disposed An Invalid Variant Release Called With A Nil Ptr Dispose Called With A <<<`n%<Bad Ptr Release Called With A Bad Ptr Overflow Of Two Word IntegerIllegal Char For Base No V< `Djalue To <<`mnConvert Insufficient Image SpaceNumber In Line Pas.ErrorExit Called At With `(<<<`ei=6pX4Ұ(pX&pX&&pX$< `C`  ;;`Zh!(@@ɦڨ(((((( (((((1(:(C(L(U(^(g(p(y(;<<`cݶ(((6pX6(ӴpXٰ(pX(pX< `ER$( <<`d4&pX &(6pX6(pXȰ("pX'(<<<`d6)&+"pX0&(46,pX96(=7pXBȰ(FCpXK(< `DM&OKpX <<`dsQ$T(&XXpX]&(a6gpXf6(jtpXoȰ(spX<<<`dۙu$x(&|pX&(6pX6(pXް(pX< `Dj$( `MpX$&Ҩ;;`m/(Pascal String I/O Error In Line Pascal I/O Error On File Unexpected EOFFile Must Be;<<`nF Text File Must Be Direct Bad Record Length Must Reset Or Open File Must Rewrite Or Open Fil< `Ee Direct A <<`n] ccess Read ErrorSequential Access Read ErrorInvalid Integer ReadLine Read Was Too LongInvali<<<`n_:d Real Number ReadFile Is Not CCTLNo Scratch File Available Neg FLD/DEC Width Not Allowed Fi< `D1hle Canno <<`nlt Be Type 1 Or 2File Must Be Type 1 Or 2Cannot Open LU 0 For Read OnlyMissing File Name File<<<`m Is Not OpenError Identifier Not In Enumerated Type Value Not In Enumerated TypepX< `D]$ <<`c&ͅpX&&pX&`P(P((6pX6(<`GDpXٴ(<<`m (Pascal I/O Warning On File Output Line Moved To Next LineOutput Line Split p%<<<`^$6pX*6`P(8P(:P(GP(IP(fP (((=ᴒpXB< `C-iBF ;;`dvE6((&LpXQ&U0XpX]&`pXe&(i ;00`[L ipXn˄qpX$vy6pX~6((40<<`g'pppp( ?  !**<<<`n* Pascal Pointer Error At FMP Error On File Pascal Segment Not Found < `DgP[\] `Gh^_`abc  EP.009 92833-16119 REV.5000 870720 @_P.009 %.DLD .DST  ((`XA8 (A@A8(&& 3 P.215 92833-16118,REV.5000,870622 870622.0822&@P.215p ;/.DDI .DLD .DMP .DNG .DSB .DST .ENTR.SBT P.192;;`h.Xf( 0fd(2fdZpa`apahbB hhb 0jdjhh;<<`g(0dhhzhxhm6pl@aPH`l hb h0dhd d (Pf(]< `BqO`bP~ $$`PQ(S(]`apaZhm6@aH` `apc`cp$`K_qmn6fopb(0`B`~ -~~ :P.090 92833-16119 REV.5000 870720 @iP.090N.ENTR `E"`  >P.360 92833-16119 REV.5000 870720 @fP.360}.ENTR.MVW P.361P.362P.365`LM`h p 2P.102 92833-16119 REV.5000 870720 @_P.102 EXEC P.363 `G!   @P.363 92833-16119 REV.5000 870720 @P.361P.362 P.365P.363 .ENTR.MVW PRTN  `Ou88& 2P.327 92833-16119 REV.5000 870720 @bP.327N.ENTR `D1  4P.191 92833-16119 REV.5000 870720  @P.197P.192 .P. PPASCA 92833-16117 REV.5000 841008 APA 2P.340 92833-16117 REV.2440 841008  @P.351P.352 .P.```~~@P.0030P.005_aP.006_aP.0073P.0084P.009jP.010wP.011wzP.012y P.013zP.014zpP.015@P.016aP.017\P.0189qq ZP.019P P.020q~~~IP.0213P.0224P.023vP.024+P.025W `P.0267M.P.027+U4P.0281O:P.029V!P.030qtP.0317M.P.032+U4P.033P~!P.034P.035WP.020~~~QP.0363:P.037nP.038 P.039WP.040WP.041s#P.042nP.043 P.044Qt!P.045PS:P.046QtP.047|7P.048}YP.049P.050G3P.0519P.020~((~~OP.052u!P.053 P.054S9P.055:P.056HwP.057 iP.058 pP.059iP.0605pP.061\P.062P.063| P.064&P.065O2:~~~ P.066'P.067| P.068f!P.069T-:P.070I,]  qP.071e%[P.072:P.073I^q:P.074d1:P.075Y:b JP.076Wx:SP.077):065O2)u~~~ P.078):P.079[F `P.080>p:P.081@Pq:P.0826:P.0839P.084@P.085BP.086!&P.087e{ `P.088Xq[P.089P.090r~~~dP.091*P.092U9: P.093$q:S ZP.094P.095P.096P.097Y1 >P.098nP.099 P.100P.101*P.102 P.103sP.104P.105ZP.108<~~~ P.109*P.112nP.113 P.114nP.115 P.116| P.117P.118| P.119+U4P.120+U4P.121+U4P.123=!P.1243P.125Moq:P.126E7?P.127D ?1108<~~~*P.128s:?[P.129OP.130Ge?P.131G<P.132G~<P.133:?P.134H|:?iP.1353P.1364P.137DqP.138kP.139kP.140kP.141kP.142*<~~~P.143tP.144`P.157, P.158IP.159P.160P.171AP.174:P.183 :IP.184 ,P.185WP.186:?P.187fnP.189P.190P.192P.195P.196i~~~N5P.197P.198P.199bP.200KP.2011P.2021P.203[1P.206 P.208QP.209 _IDP.2149 fP.215OP.216V[P.217s5P.2181i~~~P.219P.220\P.221P.222@^:?P.224^:  JP.225hVP.226i]P.227jeP.228t P.229km%P.230r?P.231{CP.232P.233#!~~~ZP.234eP 2P.237):P.238):P.239!P.241FP.242nP.243 P.244=P.245rP.246,P.247qP.248M :?WP.249K!aP.250La~~~zP.251te][P.252nP.253 P.255vP.2562P.257nP.258 P.259nP.260JP.261P.262P.265 P.266' 2 8P.267($P.269/P.270P.271n~~~YP.272 P.273/wL 8 `P.274=|DP.275XP.276MP.277HP.278HP.279HP.280+P.281d#P.282 WvP.283TP.284TP.285*}P.271n~~~T P.286YD1P.287aOD1P.288S}bD1P.289ZYD1  2P.290RjP.291bODL1 8P.292VDP.293=DP.294 DP.295bDP.296 FD 2271n~~~,P.297ADLP.298P.299P.301WP.303.P.304.P.305g P.306yDP.307 \DP.308D 2P.309 BDP.310!_DLP.3115D 2P.312 8~~~> P.313P.314DP.315D 2P.316P.317h$vP.318qMivP.319l+vP.320mDvP.321n [vP.322iHvP.323m&P.324oTP.325pI~~~#P.326mDv 2P.327CP.335`DP.3368D:?D 2P.337FrDP.338/P.339HP.351bP.352bP.355bmP.356WP.357?(P.3584D:P.359lqP.3608 xP.361]~~~_P.362]P.363]P.365]P.335`DP.3368D)FP.337FrzP.338/P.339HP.351bP.352bP.355bm!OP.356WP.357?(P.3584D)OP.359lP.3608P.361]~ emit (iDEC); emitnum (wd2);  END;  END; END  ELSE IF ftype^.form = pointer THEN BEGIN  IF ftype^.ptrsize = 1 THEN BEGIN check (flit.ival = 0, 430); emit (iDEC); emitnuSHSLB.LIB::RTE_6:5:18:126 644 0 0 11000 5310710052 33417 SHSLB.LIB::RTE_6:5:18:126 $~SHSLB LIB +#)+#*+#*<vFST >>XSV4SHSLB 92833-16220,REV.5000,870622 870622.0851 /P1K/LIB/STD/SHSLB.PAS>@S@@XVV3,SHS_TMP 870622 870622.0851 /P1K/LIB/STD/SHS_TMP.PAS@@7VCCX3V'!PAS.SHORTLIB1 92833-16217,REV.5000,870622 870622.0839 /P1K/LIB/STD/SHORT_1.PASC@3AAXͤ1V'"PAS.DISPOSE192833-16217,REV.5000,870622 870622.0839/P1K/LIB/STD/SHORT_1.PASA'PAS.DISPOSE1##.ENTR PAS.GETMEMINFO1 PAS.NONCDSPAS.RUNTIMEERROR#00mA$A(  /($A@(0$'0`( A$%p&p([^@QpWAAX8V'"PAS.MARK1 92833-16217,REV.5000,870622 870622.0839 /P1K/LIB/STD/SHORT_1.PASAVPAS.MARK1 y1.ENTR PAS.GETMEMINFO1 PAS.NONCDSA`7Ap(@;Z??XG;V'#PAS.NEW192833-16217,REV.5000,870622 870622.0839/P1K/LIB/STD/SHORT_1.PAS? +n2PAS.NEW1 -->.ENTR PAS.GETMEMINFO1 PAS.NONCDSPAS.RUNTIMEERRORPAS.SETMEMINFO1 -EEC%%A'`&@(p(`(A@,(`(p,`'A@(( `(/A'($A$:%2E3A/0p&1p%(@$CGAAXƘ3V'#PAS.RELEASE192833-16217,REV.5000,870622 870622.0839/P1K/LIB/STD/SHORT_1.PASA+PAS.RELEASE1-->.ENTR PAS.GETMEMINFO1 PAS.NONCDSPAS.RUNTIMEERRORPAS.SETMEMINFO1 -::l A!)A(  1 ()A@"(2 (A)p"!)+::,A)*p (]_@cCCX5V'2PAS.SHORTLIB2 92833-16218,REV.5000,870622 870622.0839 /P1K/LIB/STD/SHORT_2.PASC@5AAXKV'2PAS.DISPOSE292833-16218,REV.5000,870622 870622.0839/P1K/LIB/STD/SHORT_2.PASA=PAS.DISPOSE244".DCO.DLD.DST.ENTR .LBPR PAS.GETMEMINFO2 PAS.NONCDSPAS.RUNTIMEERROR4;;$z$$AI: A(G$(:)(((AH$A:x7 7=;¼> AA:;A%0AA>%A.(**N+DE9E AA ABA,Cp+(.@>AAXNV'3PAS.RELEASE292833-16218,REV.5000,870622 870622.0839/P1K/LIB/STD/SHORT_2.PASADPAS.RELEASE2>> q?.DCO.DLD.DST.ENTR .LBPR PAS.GETMEMINFO2 PAS.NONCDSPAS.RUNTIMEERRORPAS.SETMEMINFO2 >II..AL B A(J.(- B1(((AK.(- B1A&/ Bx? ?DI@E ABCp.(]_/@6YU~~  PAS.DISPOSE1a PAS.DISPOSE2P PAS.MARK1 , PAS.MARK2  :PAS.NEW1GPAS.NEW2 i PAS.RELEASE1+ PAS.RELEASE2 i~HEN BEGIN  load_store; (* A simple load and store operation *)  END   ELSE BEGIN lelts := min (full_size (lopnd1^.datatype), full_size (lopnd2^.datatype));  llength := SHSLB_ALT.LIB::RTE_6:5:14:126 644 0 0 7000 5310710054 34551 SHSLB_ALT.LIB::RTE_6:5:14:126 $~SHSLB_ALT LIB +#++#,+#,?vFST (( '' SHSLB 92833-16221,REV.5000,870622 870622.0852 'HSH'' |>SHS_T 870622 870622.0851 'HSH'' UP.178 92833-16217,REV.5000,870622 870622.0839 '.P.&& /P.023 192833-16217,REV.5000,870622 870622.0839&@P.023'r.ENTRP.037P.192P.029,,`Z$(  / ($A@X($0$',`I|($%p&p([^(('' SP.057 92833-16217,REV.5000,870622 870622.0839 '@uP.057 j.ENTRP.037P.192 `FT` `EwYp( && 5P.059 ;92833-16217,REV.5000,870622 870622.0839&@P.0592+<.ENTRP.037P.192P.029P.098<<`c9'`&@(p(`(A @,(`(p,`'A @(( `(/6'($$:<`B<#4%2`H|73/0p&1p%(33&& /P.083 392833-16217,REV.5000,870622 870622.0839&@P.083++<.ENTRP.037P.192P.029P.09866``H!)(  1 ()A@"X($2 ()p"!)+6`Gx,)*p (]_,,'' WP.179 92833-16218,REV.5000,870622 870622.0839 '.P.&& 1P.024 K92833-16218,REV.5000,870622 870622.0839&@P.024=<.DCO .DLD .DST .ENTR.LBPRP.038P.192P.02977`d .I:  (G$(:6)((($H$:Bx7 7=7`M>:;6%>'' UP.058 )92833-16218,REV.5000,870622 870622.0839 '@P.058!8.DLD .DST .ENTR.LBPRP.038P.192`K'x!`G" p ( ""&& -P.060 Q92833-16218,REV.5000,870622 870622.0839&@P.060D$$ .DCO .DIN .DLD .DSB .DST .ENTR .LBPR P.038P.192P.029P.099$;;`hO0 ,0008(((080.(&(& Ax>20>&%.(**; `C/(&N+D `LE AB6,Cp+(.EE&& 1P.084 N92833-16218,REV.5000,870622 870622.0839&@P.084D .DCO .DLD .DST .ENTR.LBPR P.038P.192P.029P.099::`h<L B  (J.(- B61((($K.(- 0BB1&/ B:`Fkt(Bx? ?D`IEBCp.(]_/EErrr~~P.023P.024sP.057!P.058P.059P.060P.083/P.084 M~  one_word_temp: BOOLEAN); VAR  lreg: REGS;  lprot: INT; BEGIN  IF ftemp <> nil THEN BEGIN  IF one_word_temp THEN BEGIN  lreg := A;  ftemp^.datatype := intptr;  END PASCAL_ERR_ALT.REL::RTE_6:5:9:60 644 0 0 4400 5310710056 35452 PASCAL_ERR_ALT.REL::RTE_6:5:9:60 $  +#?+#?$vFST ' 92077-17051 REV.6000'CD -- change working directory Usage: CD [argument]  or  CD old new Description:! The CD command can take one of two forms. In the first form, it !" changes the current directory to "argument". If "argument" is '-' "" the directory is changed to the previous directory ($OLDPWD). The " default for "argument" is the value of the $HOME variable. " The second form of cd substitutes the string "new" for the string"$ "old" in the current working directory name, $WD, and tries to change$ to this new directory. Examples:  CI> pwd /niners/lott  CI> cd /raiders  CI> pwd /raiders  CI> cd -  CI> pwd /niners/lott ! Suppose 'lott.dir' existed in both /niners.dir and /raiders.dir. ! The "cd old new" syntax can be used to switch directories.  CI> cd nin raid  CI> pwd /raiders/lott/RTE_6/HELP/CL.HELP:::4:2:39 644 0 0 1000 5310707100 33636 /RTE_6/HELP/CL.HELP:::4:2:39 $T'CL HELP+#@+#@+#@vFST ' 92077-17052 REV.6000' CL -- List mounted disks  Usage: CL  'CL shows all mounted disk volumes by their logical unit numbers. It separates'$hierarchical file system LUs and FMGR cartridges. FMGR disks (with their $CRNs) are listed in their search order. /RTE_6/HELP/CO.HELP:::4:25:39 644 0 0 14400 5310707102 34053 /RTE_6/HELP/CO.HELP:::4:25:39 $X'CO HELP+#B+#B+#B zvFST ' 92077-17054 REV.6000'CO -- Copy files between directories and/or devices Usage: CO sourceMask destMask [optionChar] " sourceMask is the mask, file descriptor, or LU from which to copy. " Type "? mask" for help on file masks. # destMask is the destination mask, file descriptor, or LU. A mask#! allows the system to generate part of the destination ! descriptor. # optionChar indicates the format of the file(s) to copy, or an action # to be taken:  a ASCII records, no checksum (default)  b Binary absolute, checksum performed c Clear backup bit on source after copying  d Replace duplicates if they exist " n Do not use first column of file for carriage control " p Purge source after copying  t Truncate destination at needed length$ u Replace duplicates if update time of the source is newer $ Examples:  co @.src.e /backup/archive/source/@.@$ Copy all files with extension .SRC on all accessible directories to $ the same name and extension on /BACKUP/ARCHIVE/SOURCE. co @.rel 4 b % Copy all files with extension .REL in the working directory to LU 4.% co @:::6 /@.run::programs$ Copy all type 6 files in the working directory to the same names in $ ::PROGRAMS, giving each a .RUN extension.  co /dir/@.@.b /backup/@.@ c# Copy all files needing backup on /DIR/ to the /BACKUP/ directory, #" clearing the backup bit on each source file after it is copied. " co doc.txt 6 n % The 'n' option will cause the first column of this file to be printed %% on the line printer, rather than using the first column for carriage% control. co 8 /programs/filex.run:::6:1000$ When copying from a device (such as a tape unit), default file size $$ is 24 blocks. If the file is longer and extents are not desirable$! (as for type 6 files), a longer file size must be explicitly!$ specified. After copying, the file will be truncated to its actual $ size.  co @.dir.d sub/@.@ $ Eventually, this command will find subdirectory SUB in the working$ directory and copy it into subdirectory SUB, creating file ! SUB/SUB.DIR. Then, because of the D qualifier, all files in!$ subdirectory SUB will be copied, including SUB/SUB.DIR. This will$% continue until the name overflows the FMP limit of 63 characters. So %& either do not copy from a directory into its subdirectory, or else use&% the N qualifier to disallow copying of subdirectories. Type "? mask" % for help on qualifiers.  co @ /dir/@ t% Copy all the files in the working directory into /DIR/, but only copy %! as much data as the directory information indicates is valid. ! co @ /backup/@ u % Copy the files in the working directory into /DIR/ whose update times % are newer than the corresponding file in /DIR/. #An implicit D qualifier is used whenever copying with a wildcard mask.#"This means that if any directory matches the mask, all files in that"#directory will also be copied. This can be overridden with the N mask#$qualifier. This is particularly useful with time-qualified copies since$#directory time stamps are not maintained. Note that the D qualifier is ##automatically appended to the unspecified mask and will appear in error # messages. For example: pu /global/@.ftn " No such directory /GLOBAL/@.FTN.D (Note the trailing D added)"%When copying a file from one directory to another, the creation and access%%times will be that of the copying process. However, the update time of the %#new file will be that of the current file to maintain a history of the# latest revision date. #The file type of the destination file is the same as the source file if #$unspecified. If the destination file size is unspecified, a size will be $%selected to eliminate extents. The protection of the destination file will %$be the same as the source file if the source is not an LU or a FMGR disk$$cartridge. Otherwise, it will have the protection of the directory into$ which it is copied. %When copying a file to a line printer, normally the characters in the first %%column of the file are used by the printer for carriage control and are not %"printed. The 'n' option indicates that there are no carriage control ""characters imbedded in the file, so the first column will be printed"instead.$When copying type 1 files to devices, the device record length is set to$%256 bytes. If a different record length is desired on the device, the user %#should copy the type 1 file into a type 2 file with the desired record#length. The type 2 file can then be c((opied to the device.%When copying type 2 files to or from devices, the record length of the type %%2 file is used as the device record length when reading from or writing to%%a device. When copying from a device to a type 2 file, if records exist on %#the device that are greater than the type 2 files's record length, the#"records are truncated without warning. When the type 2 file's record "%length is too large for CO to accommodate, CO reports an illegal dcb buffer %size error. #When copying from a device to a type 1 file or from a device to another #%device, CO reads as large a record as possible from the source device. The %$input buffer size is dependent on the amount of free memory available to$%the CIX program. Any records on the source device that have record lengths % greater than the input buffer size are truncated without warning. When copying from a device to a variable length file, records are truncated to 256 bytes without warning. Compare this command with the MO and RN commands. /RTE_6/HELP/CR.HELP:::4:8:39 644 0 0 4000 5310707104 34220 /RTE_6/HELP/CR.HELP:::4:8:39 $t'CR HELP+#D+#D+#D.vFST ' 92077-17055 REV.6000' CR -- Create a disk file   Usage: CR fileDescriptor   fileDescriptor can be up to 63 characters, in the form:  /directory/subdirectory/filename.ext:::type:size:reclength  -- or -- subdirectory/filename.ext::directory:type:size:reclength -- or -- filename:sec:crn:type:size:reclength (for FMGR files)  ' File names can have up to 16 characters in them, and extensions can have up'$ to four. For more information on file descriptors, including standard $ definitions of its fields, type "? mask". Examples:  cr /applications/documentation/drawingtools$ Create an empty file DRAWINGTOOLS in subdirectory DOCUMENTATION of$& global directory APPLICATIONS. It is a type 3 file with no extension,& 24 blocks long.   cr /joe/notes.txt:::4 Create NOTES with extension TXT, type 4, on directory JOE.   cr data.dat:::2:5:18 ' Create DATA.DAT in the working directory as a type 2 file 5 blocks long ' with a record length of 18 words.  &The CR command creates an empty file. The minimum information which must be&&specified is the name. The remaining parameters can be defaulted. Usually &&it's best to let the file system decide how big to make your file. Default &values are:   extension: blank  directory: working directory  type: 3  size: 24 blocks  &To create a file, you must have write access to the directory where the file&$will reside. The owner of this file is the owner of the directory. The$'protection status of this file is the same as that for the directory it is in.''This allows you to write into a file or create a file in another directory on '&which you have write permission. Only the owner of the directory can alter &the protection status of the file thus created. /RTE_6/HELP/CRDIR.HELP:::4:11:39 644 0 0 5400 5310707106 34637 /RTE_6/HELP/CRDIR.HELP:::4:11:39 $ | 'CRDIR HELP+#E+#F+#F >-vFST ' 92077-17056 REV.6000'CRDIR -- Create a global directory or a subdirectory Usage: CRDIR directoryName [lu]  & directoryName is up to 63 characters and can be either a global directory&& or a subdirectory. If a subdirectory, its parent directories or directory && must already exist. It can include an optional size specification, as in&% SUBDIR::::24 or /DIRECTORY::::48. The default size is one track of the%# disk used (typically 48 or 64 blocks for hard disks and 30 or 16 for # flexible disks). Directories are extended as necessary.  ' lu, if given, tells where to place a global directory and must be a mounted'% disk volume. If zero, the disk volume of the working directory is used. %& This parameter is ignored for subdirectories, which always go on the same& volume as the directory in which they reside. Examples: ' crdir /charlene Create global directory CHARLENE on the same volume as' the working directory $ crdir ::results 63 Create global directory RESULTS on volume (LU) 63 $& crdir stanley Create subdirectory STANLEY in the working directory&! crdir oliver::::12 Create subdirectory OLIVER, 12 blocks long!& crdir waikiki/hotels Create subdirectory HOTELS in subdirectory WAIKIKI & which is in the working directory$ crdir /bigband/miller Create subdirectory MILLER in global directory $ BIGBAND$ crdir dorsey::bigband Create subdirectory DORSEY in global directory $ BIGBAND &The CRDIR command creates a directory or a subdirectory. A subdirectory can&"be created within a subdirectory. There is no limit to the level of"$subdirectory nesting except for the 64 character limit to any file name.$ $If the optional disk volume parameter is omitted and there is no working$directory, the lowest numbered mounted disk volume is used.  #The size of the directory can be specified in the same way as in a file #$creation. There are four directory entries per block, and two directory$%entries used for internal information. Thus if a size of four blocks were%"specified, the directory could hold 14 file entries (extents require"&additional entries) before the directory had to be extended. As is the case&%with files, extents slow directory search performance. The created size is %%not a limit on the number of entries in a directory. Some programs assume%that directories contain no more than 32767 files./RTE_6/HELP/DC.HELP:::4:4:39 644 0 0 2000 5310707110 33436 /RTE_6/HELP/DC.HELP:::4:4:39 $ψ'DC HELP+#G+#H+#HwFST ' 92077-17057 REV.6000'DC -- Dismount a disk volume  Usage: DC volumeLu  $ volumeLU is the LU number of the disk volume to be dismounted, which $ can be either positive or negative.  Example: dc 63 Dismount volume 63.  $The DC command dismounts a disk volume, making the global directories on$%that disk inaccessible. If there are any open files, working directories,%#or active type 6 files (or the swap file), the LU specified will not be #dismounted.  !For FMGR disk volumes, use the FMGR DC command as it provides more!#information when there are active programs. If the dismount fails on a ##FMGR disk cartridge, the disk will remain mounted but will move to the#bottom of the cartridge list. /RTE_6/HELP/FREES.HELP:::4:25:39 644 0 0 14400 5310707112 34472 /RTE_6/HELP/FREES.HELP:::4:25:39 $ό'FREES HELP+#I+#J+#J {w FST & 92077-17062 Rev.6000 &FREES -- Indicate free space on a volume %Usage: FREES [-v] [+l:LU] [-g] [+t|+m] [+h|+d] [DiskLu] [DiskLu:DiskLu] ... % -v inhibit the inverse video bar graph +l:LU send the listing to the given LU  -g bar graphs are not relative to the largest disk +t report disk sizes in number of tracks +m report disk sizes in Megabytes  -s inhibit sort, report in c((artridge list order  +h sort by largest hole size +d sort by disk size% +q quiet mode, return the free space information to the scheduling% program in $return_s  +qd return the disk size in $return_s +qf return the free size in $return_s +qh return the largest hole size in $return_s +qr return the reserved size in $return_s +q%f return the percent free in $return_s  +q%m return the percent max in $return_s DiskLu specifies a disk LU to display, it can be repeated DiskLu:DiskLu specifies a range of disk LUs to display. If no disk LU is specified, all mounted CI volumes is listed. Return values: $RETURN1 : = 0 Frees executed successfully. % <> 0 An error was encountered during the scan of a disk LU. % $RETURN2 : the number of disk volumes successfully examined.  " The following return variables are set when quiet mode is enabled. " $RETURN3 : disk LU (when reporting on a single disk LU).$ $RETURN4 : high order bits (31-16) of the value returned in $RETURN_S $# $RETURN5 : low order bits (15-0) of the value returned in $RETURN_S # $RETURN_S : This string contains all or part of the free space information depending on the '+q' option selected. Examples:  frees Show free space information on all mounted volumes  frees 54 Show free space information on volume 54  frees 54 22 Show free space information on volumes 54 and 22 ! frees 10:15 Show free space information on volumes 10 through 15 ! !FREES scans the free space table on hierarchical file system disks, !#reporting the amount of free space and size of the largest free space.##The amount of free space on a volume is an indication of how much more##data will fit on the volume; the largest free area defines the largest##file that can be created on that volume without first packing the disk. # !At the users option, FREES expresses sizes in number of blocks (the !!default), number of tracks (+T option), or in megabytes (+M option) ! (1MB = 2**20 bytes). !At the users option, FREES sorts the disks by descending free size!#(the default), by largest hole size (+H option), by total disk size (+D #"option), or the sort can be inhibited to list the disks in cartridge" list order (-S option). #FREES reports the total free space as an absolute number and also as a##percentage of total space on the volume. The only way that this number #can be increased is to purge unnecessary files from the disk.  !The size of the largest free area (the hole size) is reported as an !!absolute number and also as a percentage of total free space on the !"volume. The lower this percentage, the more fragmented the volume is "#and the more effective the FPACK or MPACK utilities will be in packing#the volume.  "Following the space table is a short summary that totals all the disk "space and free space on the scanned disks. #Unless inhibited by the -V flag, FREES will overlay the columnar output #!with a bar chart to graphically indicate the amount of free space.!#FREES has two methods of bar chart display, Global (default) and Local#!(-G option). In the Global mode, the widths of the bars are shown!"proportional to the largest disk that was scanned. Think of it as a"!form of autoscaling. In the Local mode, the widths of the bars are !#computed relative to the individual disks. Note that if only a single#$disk is displayed there is no difference between global and local modes.$ !In the bar chart, the total width of the bar is proportional to the !#total free space, while the highlighted portion is proportional to the#amount of fragmentation. Here is an example:  ru,frees 10 11 LU &dJ Total Resvd. Free Max Free %Free %Max&d@ ---+----+----+----+----+----+----+----+----+----+----! 11 &dJ 100000 0 &dB 80000 40000 &d@ 80 50!! 10 &dJ &dB 1&d@0000 1538 8000 4000 80 50!  %Free = free space as Percentage of total space %Max = largest free space as Percentage of total free space " Total storage on all disks scanned is 110000 blocks, 88000 free, 80% " $Note that although there is 80% free space on both disks, the bar for LU$"10 is much shorter than the bar for LU 11 because the default Global"#mode was utilized. For both LUs, half of the bar chart is highlighted#because the largest free chunk is 50% of the total free space. ru,frees -g 10:11  LU &dJ Total Resvd. Free Max Free %Free %Max&d@ ---+----+----+----+----+----+----+----+----+----+----! 11 &dJ 100000 0 &dB 80000 40000 &d@ 80 50!! 10 &dJ 10000 1538 &dB 8000 4000 &d@ 80 50!  %Free = free space as Percentage of total space %Max = largest free space as Percentage of total free space " Total storage on all disks scanned is 110000 blocks, 88000 free, 80% " "In this example, both bars are the same width because this is a Local "mode display and both LUs have the same percentages of free and fragmented space.  $When the +L option is used to send the output to a printer the -v option$$is automatically invoked and a form feed will be generated at the end of$#the report. The -v option is also automatic if the driver type for the #user's terminal is not type 5 (HP protocol)./RTE_6/HELP/FVERI.HELP:::4:12:39 644 0 0 6000 5310707114 34745 /RTE_6/HELP/FVERI.HELP:::4:12:39 $ Ϩ 'FVERI HELP+#K+#L+#L ?w(FST ' 92077-17064 REV.6000'!FVERI -- Verify a disk volume by checking for inconsistencies, and! optionally perform fixes. Usage: RU FVERI [lu|mask] [options]   lu = LU of volume to be verified# mask = mask describing a directory in which all files and/or# subdirectories are to be verified options = one or more options in any order; legal options are:  +L,file|lu - list file or device for errors # +B - verify bit map only; illegal if a mask is also# specified  +FB - fix the bitmap! +FD - fix illegal directory entries (set purged)! +FF - fix file directory information +OK - perform fixes without asking each time %Running FVERI with a ? or ?? (RU,FVERI,?[?]) causes FVERI to display usage% information as shown above.  $If neither an LU or a mask is given, the default is to verify all mounted $volumes. Examples:  fveri ? Display usage information. & fveri Verify directories and file data on all mounted volumes. &! fveri 17 Verify directories and file data on volume 17. !% fveri 17 +l list Verify directories and file data on volume 17, sending % any messages to the file LIST. # fveri 17 +B Verify only bit map and directories on volume 17.#$ fveri /john/ Verify all files and/or subdirectories under global$ directory /JOHN/.% fveri 17 +ff Verify directories and file data on volume 17, asking%$ the user to fix corrupt file directory information.$% fveri 17 +fb +ok Verify directories and file data on volume 17 and fix%# the bitmap if specific bitmap errors are detected. # &Inconsistency levels are given in each message. The levels are in the range&#of 0 to 9, with nine being the highest priority. Each error message is #%preceded with a level in parenthesis. Level 0 messages are FVERI problems%%and do not indicate anything wrong with the file system. Level 9 messages%indicate that data can soon be corrupted if it is not already. %The inconsistencies that FVERI can fix are in relation to particular errors %and fixed by specific options.  - Error messages that can be fixed with +FF:  (3) Record length incorrect at block  (3) Number of words in file incorrect at block  (3) Number of records in file incorrect at block   - Error messages that can be fixed with +FD:  (5) Unidentifiable directory entry at block   - Error messages that can be fixed with +FB:  (4) Free space is marked as used space (9) Used space is marked as free space /RTE_6/HELP/LI.HELP:::4:41:39 644 0 0 24400 5310707116 34413 /RTE_6/HELP/LI.HELP:::4:41:39 $)ϴ)'LI HELP+#M+#N+#N)iw6FST ((&LI -- List files to the terminal 92077-17069 Rev.6000 & &LI lists files in paged format to the terminal, and can be used as a general&&text viewing processor (you are using LI now). After listing each screenful&%("page") of the file a 'More...' prompt is displayed to allow reading that%%page before moving on to the next. Additionally, commands may be given at%the prompt to skip forward or review backward as shown below.  Usage: LI [options] filemask filemask% is a file descriptor mask for the files to be listed. If the mask starts %$ with a minus (-) wildcard then prefix it with a plus (+) so it will not $% be interpreted as an option: 'li +-b@' lists all files with a 'B' as the% second character in the name.  options " are preceded by a dash (-) and can appear together, as in -nhx, or "% separately, as in -n -h -x. When an option uses the "next parameter" as %% an argument, the next unconsumed parameter is consumed as the argument.%# For example, "-s 10 -e 15" and "-se 10 15" both set the starting and # ending lines to 10 and 15, respectively.  " -a List ASCII text (default for file types 0, 3, and 4)."! -w List octal words (default for all other file types). ! -o List octal bytes. -i List signed integer words.  -b List binary words.  -h List hexadecimal bytes.% -d List ASCII text with Display Functions around special chars. % -n List line/record numbers.  -s ln Set starting line to list at ln.   -e ln Set ending line to list at ln.  % -x Do not prompt at the EOF, quit listing the file when the EOF % is reached. & -$ Always prompt at the EOF, even if the file is less than a page & long.  % -m Fold long lines; lines longer than 79 characters are treated % as multiple lines for pagination.  -t Truncate trailing blanks on text listings.  % -f Force type-1 access, list blocks in octal words by default.% ' -c File has FORTRAN-style carriage control characters in column 1;'% LI by default sets the honesty bit so printer drivers do not % treat column 1 as carriage control.  -q Quiet file access, do not record access time. ! -l fl Divert listings to file fl. fl may be preceded by a !& tilde (~) to overlay an existing file or a plus (+) to append& to an existing file.   -y Yes, list each file that matches .  ' -r rsz Set maximum record size if more than 512 characters are wanted.' % -pgsz Set number of lines per page to pgsz (1..32767); if pgsz is %! zero then do not paginate (list without prompting).! & -> /cmds/ Execute initial command string cmds at the start of each file. &' Example: -> /'start'1+s'end'1-e1.l/ sets the bounds of the file'& to the lines between the strings "start" and "end" and starts&% listing from the top bound. The delimiter surrounding cmds%' may be any character except a space or comma. Back quotes (``)'$ should also surround the string to keep CI from inserting$ commas, etc.  -p /str/ & Redefine the 'More...' prompt. str is a string of characters&$ delimited by any character but space or comma (back quotes $& (``) should also surround the string to keep CI from inserting && commas, etc.). Within str the following string substitutions& may be used:   %f is the file name %l is the current line number& %p is the percentage through the file as in the default& %w is the window or page number viewed  %% is just '%'  $Commands entered at the 'More...' or 'End...' prompts can be preceded by$"a number from 1..2147483647, this value is referred to as "n" below." The listing commands are:  space or l List the next page or the next n lines if given.   return List the rest of the file or goto line n. % a or q Abort list; 'a' moves to the next masked file, 'q' quits the % entire listing.  + List next line or skip forward n lines. # - Skip backward 1 line or n lines from the top line in the # window. # b Skip backward 1 page or n pages from the top line in the # window.   g or . Goto line n; 'g' lists a page, '.' lists 1 line.   $ List the last window.  % Goto a line that is n percent through the file. & 'rex' Search for the next occurrence of regular expression rex from&& the current window or from line n. A null string searches for &% the last string entered. The trailing quote is not used in%" interactive mode, terminate the pattern with . " $ f/rex/ Same as 'rex' but with user-defined delimiters for startup $% commands. In interactive mode the delimiters are not used;%# the pattern is terminated with . The delimiters ## cannot be the same as those used to surround the startup # command string. % `rex` Search backward for regular expression rex from the current%% window or from line n. A null string searches for the last%& string entered. The trailing quote is not used interactively; & terminate the pattern with .  & @/rex/ Show all lines containing pattern rex from the current window&% or from line n. The delimiters are not used in interactive% mode, and can be any character. # km Mark top window line or line n with character "m", which # must be an alphabetic character ('A'..'Z'). :m Goto line marked with character "m"; list n lines. # um List until the line marked with "m"; list no more than n # lines.  p Set page size to n, if given, and list a page.  # oc Toggle or reset the setting of runstring option c. All# options can be set except "r" (record size).  $ s Set the starting file line to the window top. LI will not $ back up previous to this line.  % e Set the ending file line to the window bottom. LI will not% advance past this line. % #f Move to file #n if given, or prompts for the file number (f) % if not (requires VMA).  " #+[i] Move forward i selected files, or 1 file if not given" (requires VMA). " #-[i] Move backward i selected files, or 1 file if not given " (requires VMA). % #?[f] Show a window of selected files around the current file, or% starting at file f, if given (requires VMA).   = Display file name and current line. # nfile Add a new file name to the list of files to be displayed # (requires VMA) and move to this new file.  r Remove (purge) the file being listed.  ? or h Display help. z Suspend LI; restart with the system 'GO' command. "Trailing arguments like m and rex are prompted for interactively; in"#the '->' runstring option they are entered directly after the command,#%as in -> /f!zow!ma1.ua/ which finds string "zow", marks that line with "a", %goes to line 1, and lists until the line marked with "a".  When more than one file is selected LI prompts with:  File: file, list? [Y]  $before listing each file (the "y" option turns this off). Responses are: $  Y or or Yes, list this file N No, do not list it # S Yes, and stop asking (set "y" option)# A No, and abort the listing# # Show selected files or move to another # file (see the "#" command above)  R Remove (purge) this file   &Regular expressions follow the same syntax as that used by Edit/1000, see the &Edit/1000 User's Manual for usage examples. In brief:  . matches any character# @ matches any character zero or more times (same as '.*')# ^x anchors the pattern to the beginning of line  x$ anchors the pattern to the end of line  [ai-k] matches any of the characters "a", "i", "j", "k"  [^ai-k] matches any characters but "a", "i", "j", "k" x* matches zero or more occurrences of pattern x x+ matches one or more occurrences of pattern x  x<5> matches 5 repetitions of pattern x  a:b matches a word boundary between patterns a and b  \* matches the character "*" %Backwards movement is allowed for device (as opposed to disk) files, but LI %"cannot back up beyond the number of lines that fit inside an internal "buffer.  $The 'More...' prompt by default also shows the percentage in lines of the $%file that has been viewed so far (that is, the fraction the current line is %%of the total number of lines in the file), if this is known. For FMGR and%$device files this is not known(( until the end of file is reached. The '%' $$command (move to a percentage through the file) is still legal for these$&files, but LI will first read to the EOF so that the percentage can be found. & /RTE_6/HELP/MERGE.HELP:::4:19:39 644 0 0 11400 5310707117 34675 /RTE_6/HELP/MERGE.HELP:::4:19:39 $'MERGE HELP+#O+#O+#O _wbFST ' 92077-17073 Rev.6000'MERGE -- Concatenate many files into one Usage: MERGE [-options] [fromfile fromfile...] [destfile]   fromfile is either:  % - a command file containing a list of names of files to be merged, if %% it has a .MRG or .MERG type extension, or is an FMGR file starting%& with the character "*" (as in *MERGM), or if fromfile is a device LU. &% For example, "MergeTheseFiles.mrg". The command file may also name %% masks of files to be merged, as below. For backward compatability, %$ if only one fromfile is given it is assumed to be a command file, $ so long as it is a type 0, 3, or 4 file. % - a file to be merged into destfile. To force the merging of a file%# that would otherwise be a command file, prefix the name with a#$ backward slash (\), for example, "\MergeThis.merg" will merge the $$ contents of file "MergeThis.merg". Note that from CI two slashes $% must be entered since CI also uses the backward slash as a quoting% character.  $ - a mask of files to be merged, for example, "@.ftn" merges all the $% files with extension "ftn" on the working directory. The mask may%% also be prefixed with a backward slash, which allows masks starting %$ with a dash to be given, for example, "\-q@" which specifies all$$ files with a "q" in the second character. Note that two slashes$% must be entered from CI because it is also a CI quoting character.% # There may be multiple fromfiles specified in the runstring, each of# which will be interpreted as above. & destfile is the file or LU to receive the merged files. It may safely be&& the same as the first input file. It is created if it does not exist, or&& overlayed without notification if it does (unless the -v option is given). &% The file used as the destination is the last file name in the runstring. % $ options may appear anywhere in the runstring, preceded by a dash (-):$  L - suppresses the listing of file names being merged # D - removes Debug records from a relocatable file as it is merged #% O - overlays existing files without asking if ok (if MERGE is linked% to ask by default) V - verify that an existing output file should be overlaid # Z - suppresses zero-length records normally output between files# #MERGE collects two or more input files, sending their data to a single#!composite output file. This allows you to form a library of binary !&relocatable files to be searched by the linker, and to concatenate a program&and all user-written subroutines.  #If a fromfile is an interactive LU or no fromfiles are specified, MERGE #prompts for the input data files as follows:  Merge file:  &Enter a file name or mask to be merged. MERGE will continue prompting until&/E is entered, or just RETURN, or control-D, at the prompt.  %If a command file is given in the runstring ("these.mrg"), file names to be %%concatenated are read from the specified command file, until an end-of-file %is encountered.  %A zero-length record is written to the output after each input file unless%$the -Z option is given. This creates a subfile structure useful to some$utilities and the FMGR ST command. %MERGE will always remove index records (created by LINDX) from a file that%$it merges. This is necessary because the indexes will no longer be valid $$in the new, merged file. To index the merged file, run LINDX on the file $$after MERGE has completed. Debug records (created by a compiler such as$%FTN7X or MACRO) may also be removed with the -D option. If the Debug/1000%#program is not going to be run against the merged file, removing Debug#records will create a smaller destination file.  Examples:   merge  Ask for input and destination files from the terminal.   merge -d util.lib util.lib   Remove debug records from file UTIL.LIB.   merge @.mac.e big.mac  % Merge all the macro sources in the file system into file BIG.MAC.%  merge -lv a b.mrg c megafile  # Merge file A, the files listed in B.MRG, and file C into file#" MEGAFILE, not listing the files merged and verifying that an " existing MEGAFILE should be overlaid. /RTE_6/HELP/MO.HELP:::4:9:39 644 0 0 4400 5310707121 34077 /RTE_6/HELP/MO.HELP:::4:9:39 $  'MO HELP+#Q+#Q+#Q O.wxFST ' 92077-17074 REV.6000'MO -- Move files across directories on the same volume Usage: MO sourceMask destinationMask # sourceMask is the source file descriptor, file mask, or LU from #$ which to move the file(s). Type "? mask" for help on$ masks.  $ destinationMask is the destination file descriptor, mask, or LU. The$$ file name may be defaulted to the source file's name.$! If a mask is given, the system will generate the ! appropriate full file descriptor(s).  Examples:  mo @.@.a-8306 /backup/archive/@.@$ Move all files that have not been accessed since June 1983 into the $% ARCHIVE subdirectory of BACKUP, preserving file names and extensions. %  mo /larry/curly.dir /shemp ! Make subdirectory CURLY into a global directory called SHEMP. !$ Any files previously accessed as /LARRY/CURLY/ are now named$" /SHEMP/. Note that file data has not been transferred or " changed, nor has directory data. $MO moves a file or group of files from one directory to another. Masking $$allows moving a number of files. If a wildcard character is used in the$#sourceMask, an appropriate destination mask must be used to default the # destination file names.  "This command is similiar to the CO command, but with these important"differences: %1. The files are MOVED, not COPIED. This means that after the MO command% the file is no longer in the same directory. #2. Only the directory entry (not file content) is moved. This is much #% faster, particularly for large files. This is also more reliable since % the data is not physically transferred.  %3. Files cannot be moved across disk volumes, since the data is not moved%' (only the directory entry on the volume LU changes.) To move files across'$ volume LUs, use the CO command with the P option (purge source after$ copy). Compare this command with the CO and RN commands. /RTE_6/HELP/OWNER.HELP:::4:16:39 644 0 0 10000 5310707123 34646 /RTE_6/HELP/OWNER.HELP:::4:16:39 $'OWNER HELP+#S+#S+#SDwFST ' 92077-17076 REV.6000'$OWNER -- Display or change the owner and associated group of a directory$ or subdirectory.  Usage: OWNER dirName [newOwner]  -or-  OWNER luV [newOwner]  # dirName - the name of the directory or subdirectory. No wildcard # characters are allowed.  ! luV - a CI volume number (followed by the character 'V'). ! $ newOwner (( - if supplied, the logon name containing the new owner and$$ associated group in the form USER.GROUP. It $$ can also be in the form USER with the group$$ defaulting to GENERAL (RTE-6) or the user's$# default logon group (RTE-A). In RTE-A, if #$ NOGROUP is made the associated group, it is$$ equivalent to not having an associated group $" and group protection is thus turned off. " ! if omitted, the owner and associated group of the!! specified dirName or lu are displayed! as a logon name.  # In a multiuser system, newOwner must be a name that is## recognizable to LOGON; there must be a corresponding# user and group account on the system.  Examples: % owner ::rocket Display the owner and associated group of %! directory ROCKET as a logon name. !% owner /rocket/sources clark Assign ownership of subdirectory SOURCES%# in directory ROCKET to user CLARK and #! let the associated group default. !$ owner /rocket clark.kent Assign ownership of directory ROCKET to $$ CLARK (RTE-A) or CLARK.KENT (RTE-6) and $! assign the associated group KENT. !% owner 15v Display the owner and associated group of % CI volume 15 as a logon name. $ owner 22v henry.lab Assign ownership of volume 22 to HENRY$$ (RTE-A) or HENRY.LAB (RTE-6) and assign $ associated group LAB.  %OWNER assigns ownership of the named directory or CI volume to a particular %&user. Only the current owner (or superuser) can change ownership. Ownership &&is associated with volumes, directories, subdirectories, not with individual&!files. If DS is used, the directory may not be on a remote system. ! %The owner of a directory is allowed to assign protection to all directories %#or files within that directory (see the PROT command). The owner of a#$volume can set protection on the volume, thus restricting the ability to$display, create, or purge global directories on that volume. &Use this command with caution. When the owner is changed, the original owner &&will be unable to change ownership back. Depending on read/write permission&$of the directory, changing ownership may make all subdirectories in this$directory inaccessible to the original owner.  'Ownership of subdirectories is not changed when their parent directory's owner'changes. &Ownership is maintained through owner numbers rather than names, so ownership &#remains constant even if the user's logon name is changed via the GRUMP #&program (RTE-A) or the ACCTS program (RTE-6). Note that if a removable disk&%is moved to another system with different user accounts, ownership will not % be what you expect. /RTE_6/HELP/PU.HELP:::3:10:39 644 0 0 5000 5310707124 34055 /RTE_6/HELP/PU.HELP:::3:10:39 $  'PU HELP+#T+#T+#T 4wFST ' 92077-17081 REV.5020' PU -- Purge (remove) files   Usage: PU fileMask [OK]  & fileMask names the file(s) to purge. A file descriptor removes only that&' file; a mask purges a set of files. For help on masks and qualifiers, type' "? mask". & OK is an optional keyword that suppresses asking when a file mask is given & as the first parameter.  Examples:  pu old.lib::scratch Purge this file only $ pu @.bak ok Purge (without asking) all files in the working$ directory having extension BAK $ pu @.@.t ok Purge all temporary system files without asking$& pu /srk/@.@.a-8306 Purge all files in ::SRK that haven't been accessed& since June 1983 pu /global Purge global directory GLOBAL pu /global/ Purge all files in directory GLOBAL pu ::global Purge all files in directory GLOBAL &When a file mask (not a descriptor) is specified, the next actual file to be&purged is displayed and you're prompted:  Purging (Yes, No, Abort, Stop asking) [Y] ?  Enter: y or press RETURN to purge the file n to skip this file but continue purging using the same mask  a to abort (stop) further purging with this mask & s to stop prompting and to delete the remaining files using the same mask& %PU removes the named file(s) by marking the directory and setting bits in a %%freespace area managed by FMP. A purged file can sometimes be recovered by %the UNPU command.  $If the input device is not interactive and OK is not specified, wildcard$&purges will not be executed. FMGR files with a security code must be purged&%individually with the security code specified. If no mask is specified, no % files will be purged.  &To purge a file, you must have write access to the directory containing the &'files. The file must not be an active type 6 file, the system swap file, or a'directory containing files.  'Note with caution the last three examples above. The command PU ::GLOBAL will''purge all files on directory GLOBAL but not the directory. In this case, the '$form /GLOBAL is not the same as ::GLOBAL and could cause great anxiety. $  See also the UNPU command. /RTE_6/HELP/RN.HELP:::3:5:39 644 0 0 2400 5310707125 33626 /RTE_6/HELP/RN.HELP:::3:5:39 $'RN HELP+#U+#U+#UewFST ' 92077-17082 REV.5020'RN -- Rename a file, directory, or subdirectory  Usage: RN originalMask newMask % originalMask is the existing file descriptor, directory, or mask. Type% "? mask" for help on masks. # newMask is the desired file descriptor, directory name, or mask. If #' masked, the system will generate the appropriate name based on the original' name. Any new name must not already exist in the directory.  Examples: $ rn temp.dir myhelp Rename a subdirectory in the working directory $ rn filex.txt filex.pas Change a type extension rn doit doit.cmd Provide a type extension % rn /doug/@.out @.temp Rename all files with extension OUT in directory %$ DOUG to the same name but with extension TEMP$ 'RN changes a name, file extension, or both. You must have write access to the'directory. 'Unlike the MO command, RN does not move files into a different directory. If '#the directory field of the destination file name is blank, the source # directory is used.  Compare this with the CO and MO commands. /RTE_6/HELP/TR.HELP:::3:17:39 644 0 0 10400 5310707126 34015 /RTE_6/HELP/TR.HELP:::3:17:39 $$'TR HELP+#V+#V+#VTwFST ' 92077-17090 REV.5020'TR -- Transfer control to a command file.   Usage: [TR ]file[ pram*9]  # The TR keyword is an optional parameter that is only required if the ## command file name is two characters that can be interpreted as a CI## command, or if the file parameter can be confused with a program#! file (see sections on the RU command and predefined variables). ! # file specifies the file containing the commands. Refer to the CR# command for a definition of a file descriptor. # pram*9 are up to nine parameters that are used to replace occurences # of the positional variables $1 through $9 in the command file.  Examples: $ tr make_prog.cmd test.ftn Execute command file MAKE_PROG.CMD passing$ TEST.FTN as a parameter  make_prog test.ftn Same as above  tr hello.cmd Execute command file HELLO.CMD% t((r time 12 30 0 pm Execute command file TIME passing 12, 30, 0,% and PM as parameters &It is recommended that you always use the .CMD file type extension in the& command file name.  &A command file (also known as a transfer file) contains a sequence of CI&&commands. The commands are executed as if you had entered them from the&&terminal. Command files are useful for executing command sequences&repeatedly.  &Command files can be nested by using the TR command in the command file.&&Control is returned to either the terminal or the command file depending on&&whether the TR command was issued from the terminal or another command file.& %Positional variables $1 through $9 can be used in command files. A %¶meter in the run string is substituted wherever the corresponding&&positional variable appears in the command file. Positional variables can&be concatenated with characters in the command file. &When you enter an implied or explicit TR command, the following procedure is&used to find the command file: &1. If a directory is specified, this directory is searched for the file.&& If the file is found, it is executed. If the file is not found and a&& file type extension was not specified, .CMD is assumed and the directory&& is searched again. If the file still is not found, an error is& returned.  2. If no directory information is given, the following occurs:  & a. The TR command checks User-Definable Directory Search Path (UDSP)&& number 2. If defined, the search path specified by UDSP #2 is&& used to find the file. If a file type extension is not specified,&& .CMD is assumed. If the file is not found, an error is returned.& & b. If UDSP #2 is not defined, the following default search sequence& is used:  & - The current working directory is searched. If the file is not&& found, a default type extension of .CMD is assumed and the& working directory is searched again. & - If you do not have a working directory, all mounted FMGR& cartridges are searched. & - If the file is still not found, global directory CMDFILES is&& searched, using the .CMD default file type extension. If the& file is not found, an error is returned. &For example, if MYCMD is the name of the command file specified in the TR&&command, a working directory exists, and UDSP #2 is undefined, the default&search sequence is as follows: 1. Search for MYCMD in working directory.2. Search for MYCMD.CMD in working directory.3. Search for MYCMD.CMD in directory /CMDFILES. "If there is no working directory, the search sequence is as follows:" 1. Search for MYCMD in FMGR cartridges.2. Search for MYCMD.CMD in directory /CMDFILES. /RTE_6/HELP/UNPU.HELP:::4:6:39 644 0 0 3000 5310707130 34474 /RTE_6/HELP/UNPU.HELP:::4:6:39 $8'UNPU HELP+#X+#X+#XwFST ' 92077-17092 REV.6000'UNPU -- Recover purged files  Usage: UNPU fileMask  ! fileMask is a file descriptor or mask indicating which files to!" unpurge. Type "? mask" for a mask or file descriptor definition." Examples:  unpu /bill/temp.cmd Unpurge TEMP.CMD in directory ::BILL. # unpu @.bak Recover files with extension BAK in the current # working directory $ unpu /russ/poker@ Unpurge all files beginning with POKER in ::RUSS$ #UNPU restores a purged file to active status. This can be done only if ##the directory entry of the specified file has not been reclaimed by the ##file system and the disk space of the file has also not been reclaimed. #"There are no guarantees as to how long these conditions may last. If "$there are multiple purged files with the same name, the one recovered is$#indeterminate. In this case the file can be unpurged and renamed, then ##the next copy of the file with the same name can be unpurged until all# copies have been unpurged.  #Directories cannot be unpurged. Files recovered with the UNPU command##retain the same attributes as when they were purged, including the time #stamps. /RTE_6/HELP/VS.HELP:::4:4:39 644 0 0 2000 5310707132 34176 /RTE_6/HELP/VS.HELP:::4:4:39 $@'VS HELP+#Y+#Z+#ZwFST ' 92077-17094 Rev.6000' VS -- Display or modify a program's virtual EMA size requirements  Usage: VS programName [vsSize]  programName" is the name of a restored VMA program, which must be dormant."  vsSize & is the virtual EMA size in pages. If unspecified, the virtual size of && the named program is displayed. The allowable range of values is from & 32 to 65536.  Examples: " vs golf Display the size requirements of the program GOLF."$ vs kramr 2000 Set the virtual EMA size for the program KRAMR to 2000$ pages.  #The virtual space is the disk area used for paging data that would not#&ordinarily fit into memory all at once. Increasing this space may allow the&&program to process more data; decreasing it cuts down on disk space required& to run the program. /RTE_6/HELP/WD.HELP:::3:10:39 644 0 0 5000 5310707133 34116 /RTE_6/HELP/WD.HELP:::3:10:39 $ D 'WD HELP+#[+#[+#[ ,wFST ' 92077-17095 REV.5020'WD -- Display or change working directory  Usage: WD [directoryName [stackFileOption]]  $ directoryName is the name of the new working directory, which may be a $& subdirectory. If unspecified, the current working directory is displayed. & $ stackFileOption causes CI to get a new command stack file from the new $ working directory. This option can be either:   file name - the file name to use for the command stack file  +S - use the default name CI.STK   Examples:  wd Display the current working directory # wd /liz Set working directory to global directory LIZ # wd /liz/manual/chap6 Set working directory to a subdirectory % wd /liz +s Set working directory and get the new stack file% there" wd forty Set working directory to subdirectory FORTY " %WD sets up the working directory, which is often used when no directory is%&specified with a file name. Programs and the system usually search it first& when scanning for files.  %The WD command changes the working directory associated with a session. It %'does not have to be owned by the user. The user does not need to have read or'%write access to the named directory, but setting the working directory to a %&read or write protected directory may cause programs such as EDIT problems if &"these programs try to create or alter files in the working directory. " %Specifying a new command stack file to be used causes the current one to be %&posted and the new one to be read in from the new working directory. If the&'new one doesn't exist, it will be created at the next WD,, command,''or when CI terminates. A new working directory does not have to be specified;'%in this case, the stack file is found on the current working directory. If %&there is no working directory, the FMGR cartridge list will be searched for &the stack file.  'The working directory cannot be defined as a FMGR cartridge, but it can be set'&to zero. This causes all FMGR cartridges to be searched when a directory is&not specified.((/RTE_6/HELP/XQ.HELP:::4:4:39 644 0 0 2000 5310707135 34266 /RTE_6/HELP/XQ.HELP:::4:4:39 $P'XQ HELP+#\+#]+#]wFST ' 92077-17098 Rev.6000'XQ -- Run a program without waiting for it to finish Usage: XQ program/file [parameters]   program/file % is either an existing program name or the name of a type 6 file from% which a new program is to be created.   parameters # is a runstring to be passed to the program, up to 256 characters. # #The XQ command schedules a program. CI will immediately issue another#&command prompt, without waiting for the program to complete execution. Save&&for this difference, XQ behaves exactly like the RU command. See the help on &&the RU command (enter "? ru") for more information on specifying the program&to schedule and on passing parameters to the program. Examples: ' xq zme Schedule ZME without waiting for ZME to terminate'" xq pascal ccp.pas 0 - Schedule PASCAL, passing it 3 parameters "/RTE_6/HELP/??.HELP:::3:4:39 644 0 0 2000 5310707136 34011 /RTE_6/HELP/??.HELP:::3:4:39 $T'?? HELP+#]+#^+#^wFST ' 92077-17099 REV.5020'? -- Help  Usage: ? [topic] ! The topic, if specified, is the command or term to explain. If!& unspecified, a quick reference is displayed showing subjects on which help & is available. Examples:  ? Show subjects currently available  ? prot Tell more about PROT &This command provides a quick reference of CI commands and utility programs.&%The form "?" without any parameters is really a DL listing of the files in%&directory /HELP. Typing "? " is really an LI listing of the file & in the /HELP directory.  %Adding files to the HELP directory teaches the ? command about more topics. % &For more information about the DL command, type "? dl". For more information &about the LI command, type "? li"./RTE_6/HELP/ECHO.HELP:::4:3:39 644 0 0 1400 5310707143 34415 /RTE_6/HELP/ECHO.HELP:::4:3:39 $d'ECHO HELP+#c+#c+#c{wFST ' 92077-17117 REV.6000'ECHO -- echo parameter string  Usage: echo [parm1] [parm2] ... [parmN] " ECHO writes its parameters, separated by commas, to the terminal. "# The quoting mechanisms of CI can be used to pass characters through # the runstring unmodified.   echo \summit displays 'sUMMIT'. echo `lower`case displays 'lowerCASE'. % echo $abc displays the value of variable ABC, or '$ABC' %" if there is no variable ABC defined. " echo echo echo echo displays 'ECHO,ECHO,ECHO'   Up to 256 characters in the runstring are processed by ECHO. /RTE_6/HELP/IF.HELP:::3:5:39 644 0 0 2400 5310707144 34100 /RTE_6/HELP/IF.HELP:::3:5:39 $h'IF HELP+#d+#d+#dz!wFST ' 92077-17118 REV.5020'#IF-THEN-ELSE-FI -- Provides a means for decision making during command#execution.  Usage: IF command-list1 THEN command-list2 [ELSE command-list3]  FI " command-list is a list of commands separated by semicolons or " new lines.  %CI determines the end of a command-list to be the command before the next%%expected control structure command. For example, the IF command-list ends%when the THEN command is encountered.  $The decision of which branch to take in an IF statement is based on the $%execution status of the last command in the command-list. If that command %$returns a status of successful (zero), the THEN command-list is executed. $Otherwise, the ELSE command-list, if any, is executed. Example:  IF ftn7x test.ftn 0 - THEN link test.lod  ru test  ELSE edit test.ftn  FI  $This group of statements will compile the program TEST. If no errors or$#warnings are encountered, TEST will be linked and run. Otherwise, edit #will be run on TEST.FTN to allow you to fix the errors.  /RTE_6/HELP/IS.HELP:::3:6:39 644 0 0 3000 5310707145 34363 /RTE_6/HELP/IS.HELP:::3:6:39 $p'IS HELP+#e+#e+#e(wFST ' 92077-17119 REV.5020'IS -- string/numeric comparison  Usage: is [option]   IS compares two strings either with an ASCII comparison  or optionally after converting both to integers. The  ASCII comparison is normally performed with alphabetic characters folded to a single case.   The recognized options are:   -i Integer comparison. A suffix of B in either upper or lower case indicates an octal value. A leading - sign is accepted on decimal values.   -a Don't fold alphabetics before comparison.   IS returns the following exit status values:  0 = relation is true  1 = relation is false 2 = relational operator missing or invalid  3 = option not recognized 4 = non-digit appears with -i option in effect  " In a ASCII comparison, a shorter string is extended with blanks " before the comparison is made.  The relational operators that are recognized are:   Set 1 Set 2   = eq Equal To  <> ne Not Equal To  < lt Less Than <= le Less Than Or Equal To > gt Greater Than  >= ge Greater Than Or Equal To  /RTE_6/HELP/SET.HELP:::3:4:39 644 0 0 2000 5310707146 34464 /RTE_6/HELP/SET.HELP:::3:4:39 $x'SET HELP+#f+#f+#fwFST ' 92077-17123 REV.5020'!SET --- Define CI string variable or display all previously defined ! variables.  Usage: SET variable_name = string_value ! variable_name is a string of up to 16 letters, digits, and! underscores, not starting with a digit.   string_value is a string of up to 80 characters.   Examples:  To define a variable called FILENAME:  CI> set filename = /scott/sam.ftn  To redefine the variable AUTO_LOGOFF:  CI> set auto_logoff = 3  "To define a variable GREETING that has lower case letters and blanks: " CI> set greeting = `How are you today?`  To show defined variables and their values:  CI> set ((/RTE_6/HELP/UNSET.HELP:::3:2:39 644 0 0 1000 5310707147 34522 /RTE_6/HELP/UNSET.HELP:::3:2:39 $|'UNSET HELP+#g+#g+#gxFST ' 92077-17125 REV.5020'UNSET -- Delete CI string variable from CI.   Usage: UNSET variable_name  ! variable_name is a string of up to 16 letters, digits, and! underscores, not starting with a digit.  /RTE_6/HELP/WHILE.HELP:::3:7:39 644 0 0 3400 5310707150 34443 /RTE_6/HELP/WHILE.HELP:::3:7:39 $Ѐ'WHILE HELP+#h+#h+#hk'xFST ' 92077-17126 REV.5020'$WHILE-DO-DONE -- Provides control of execution of a group of commands by$%causing the statements to be repeated while certain condition(s) hold true. %  Usage: WHILE command-list1 DO command-list2  DONE " command-list is a list of commands separated by semicolons or " new lines.  !Note: Two WHILE commands may not appear on one input line, but can !be nested. $CI determines the end of a command-list to be the command before the next $$expected control structure command. For example, the WHILE command-list $ends when the DO command is encountered. $The decision of whether to execute the DO command-list is based on the $$execution status of the last command in the WHILE command-list. If that $$command returns a status of successful (zero), the DO command-list is $$executed and CI again begins executing the WHILE command-list. If the $$WHILE command-list returns an unsuccessful status, CI terminates the loop $by continuing execution after the DONE command.  Example:  set count = 5 WHILE is $count gt 0 DO calc $count - 1  set count = $return_s print some_file  DONE  $In this example the file SOME_FILE will be printed 5 times. CALC is a $%simple calculator program that accepts 2 ascii representation of integers,%$converts them to integer, and performs the specified arithmetic operation $$on then. The result, in ascii form, is passed back to CI in a string and $is then stored in variable $RETURN_S for the user to access./RTE_6/HELP/ASK.HELP:::3:14:39 644 0 0 7000 5310707155 34431 /RTE_6/HELP/ASK.HELP:::3:14:39 $А'ASK HELP+#l+#m+#mExFST ' 92077-17301 REV.5020' &ASK -- displays a question or prompt, reads the response from the terminal, & and passes it back to the scheduling program in Return_S.  Usage: ASK `prompt[?[ ][options]]` % prompt - any prompt or question the user desires. The string should be %$ enclosed in backquotes (``) when run from CI. Any question$ mark ('?') in the string terminates the prompt. % options - a string of expected response characters, as described below.% &If the character string parameter of ASK contains a '?', the question string&&stops at the first '?' found and the rest of the string is taken as an&&option string. The zero relative index of the first response character in&&the option string is returned to the scheduling program. If you want it&&to be 1 relative put a space between the '?' and the first character in the&&option string. If the first character in the response is not in the option&&string a -1 is returned. If there are no non-blank characters in the& response a -2 is returned.   Note: ASK uses the following return variables: Return1 : 0 - command executed successfully -1 - error in executing command ! Return2 : contains character length of response string !# Return3 : >=0 - zero relative index of the first response# character in the option string % -1 - first response character is not in the option% string  -2 - no non-blank characters were entered  Return_S : contains the response string    EXAMPLES:  & ASK `How are you ?` : Displays the question "How are you ? " on the next&& line, reads the answer and passes it to the&& scheduling program. If no option string is& specified, the index return will be -1.  & ASK `Command >` : Displays the prompt "Command > " on the next line,&& reads the response and passes it to the scheduling& program.   ASK `Purge this (Yes, No, Abort, Stop asking)?YNAS`   : Displays the question: $ "Purge this (Yes, No, Abort, Stop asking)? "$ & reads the response, determines the zero relative&& index of the first response character in the&& option string and passes the information back to& the scheduling program.  " This will return the following in Return3:" & 0 if Y is the first character in the response&& 1 if N is the first character in the response&& 2 if A is the first character in the response&& 3 if S is the first character in the response&& -1 if the first character in the response is& some other character& -2 if there are no non-blank characters in the& response/RTE_6/HELP/SCOM.HELP:::4:26:39 644 0 0 15000 5310707157 35131 /RTE_6/HELP/SCOM.HELP:::4:26:39 $Ф'SCOM HELP+#o+#o+#o xFST &Scom -- file comparison 92077-17307 Rev.5020& &Scom file1 file2 [[+|~]listfl] [options] [rematchlns] [maxchars] [difflimit]& file, file2 & The files to compare. Type 1 or 6 files force a binary block compare (see &' the "bb" option); type 2 or 5 files assume a binary record compare (but see' the "tc" option).  listfl% The listing file (default is terminal). +listfl appends to an existing% file, ~listfl overlays an existing file. rematchlns$ The number of consecutive lines which must match before a mismatch is$% ended, that is, the files are considered to be "rematched". The default % is 3 lines. maxchars& The maximum number of characters per record in both file1 and file2. For&$ hierarchical files this is automatically set to the greater of the two $% maximum record lengths as given in the directory. For FMGR file system%& files it is defaulted to 256; for binary block (bb) compares it is forced& to 256. The maximum value is 1024. difflimit $ The maximum number of differences to report. If reached, the message: $  * Mismatch limit reached $ appears and the comparison terminates as if complete. If difflimit is $ not specified all the differences found will be reported. options are:  f1 Report lines unique to file1 (default).  f2 Report lines unique to file2 (default).  bo Report lines common to both files. nn Suppress line numbers on report. nh No heading on listing (parameter info).  nt No trailer on listing (number of mismatches).  & tb Trailing blanks are significant. Default for the et, er, bb, and br& options. $ ib Trailing blanks are insignificant, ignore when matching. Default $ for the normal report (et/er/bb/br not given). $ d Wildcard: character matches any character in the other file.$# Ex((ample: "d~" causes all tildes (~) in one file to always match ## the corresponding character in the other file, even if past the # end of the other line. % c Ignore lines with character in column 1 and blanks in all other %% columns when rematching. is typically "C" or "*" for Fortran or % Macro source files. & Example: "c*" causes lines with a "*" in column 1 but otherwise blank & to be ignored when rematching after a mismatch.  & it Ignore Edit/1000 timestamps. If both files contain the corresponding &$ pattern where n = 0..9, then different times do not $& cause a mismatch, that is, the n values can differ and still "match". & " ic Ignore compile times in relocatable records for binary record "$ compares. XNAM checksums, compile times, producer rev codes, and $# comment strings and XEND checksums are forced to be equal under # this option.  " et Create an Edit/1000 transfer file to convert file1 to file2." & er Same as "et", but add an Edit "ER" command to the end of the transfer & file.  & br Binary record-by-record compare: compare each record of file1 against && the corresponding numbered record in file2, reporting differences in& octal format. Assumed if either file is type 2 or 5.  % bb Binary block-by-block compare: compare each block of file1 against%% the corresponding numbered block in file2, reporting differences in % octal format. Forced if either file is type 1 or 6. % tc Text compare, used to force a normal source compare on a type 2 or% 5 file.  %If none of f1, f2, nor bo are specified then options f1 and f2 will be used %by default for the standard differences report.   $When the "et" or "er" options are given the listing file is an Edit/1000$&transfer file that contains the necessary insert, replace, and kill commands&to make file1 identical to file2. For example:   scom ver2 ver1 ver2_1.edit er  edit -b ver2|tr ver2_1.edit  %will modify file ver2 to the same text as ver1. The f1, f2, bo, nn, d,%br, and bb options are not meaningful for this mode.  #For both the "br" (binary record) and "bb" (binary block) comparisons,#%mismatching blocks or records are dumped in 12-byte groups side-by-side in%$both octal and ASCII (if standard printing character) format. The octal$%representation for file2 bytes appear as "..." if this byte is the same as%$the byte for file1 listed directly above. If only blanks appear in that$$field then the byte position is past the end of the record for that file. $The last byte in each file is suffixed with a backslash (\).Example:  Record 12 1 1: 377 377 000 000 000 000 000 000 000 000 000 000 | % 13 :&dJ 000 132 004 320 000 000 000 000 000\ &d@| Z%% 13:&dJ ... 143 ... 000 ... ...\ &d@| c% %This says that in record 12 of both files bytes 1-13, 15, and 17-18 match;%%bytes 14 and 16 mismatch; and bytes 19-21 in file1 are past the end of the%%file2 record. Byte 14 is octal 132, ASCII "Z" in file1; that byte is octal % 143, ASCII "c" in file2.   Numeric parameters returned on exit: % $return1 >= 0 if comparison complete, this is the number of differences % found. 0 means the files are identical. ! $return2 = 1 if records were truncated, 0 if not!  $return1 = -1 if Fmp error occurred.  $return2 = Fmp error code # $return3 = 1 for file1, 2 for file2, 3 for list file#  $return1 = -2 if Scom error occurred.   $return2 = 1 for runstring errors others for internal errors  #Responses to the "More..." prompt can be preceded by a number from 1 to # 32767, called below:   list another page, or lines if given  list the rest of the info without pausing A or Q abort the listing% + list 1 line, or skip lines and list 1 line if given% P set # lines per page to and list a page Z suspend Scom, restart with the RTE GO command /RTE_6/HELP/MPACK.HELP:::4:27:39 644 0 0 15400 5310707162 35210 /RTE_6/HELP/MPACK.HELP:::4:27:39 $'MPACK HELP+#q+#r+#r bx:FST & 92077-17310 REV.6000 &%MPACK -- removes extents and unused blocks from newfiles, and packs newfile %volume disks usage: MPACK [options] mask [options]  is a disk lu, file mask, or file name  Compacting Options:  +R remove extents from files % +T[n[%]] truncate unused blocks from files, optionally leaving a number% of, or percent of, unused blocks still remaining +C[n[%]] compact files - the R and T options combined +En select files with or more extents  +Wn select files with or more wasted blocks  +Wn% select files with percent or more wasted blocks # +A for files to be selected they must match ALL the qualifiers # (+En, +Wn, +Wn%) rather than just one of them  +D include directories in the compacting or reporting# +Q quiet mode - don't print detail information, only summaries # Packing Options:  +P pack the disk LU specified in  +OK ok to temporarily overlay data while packing Miscellaneous Options:  +L file log output to the file    COMPACTING FEATURES:  "The default function reports block usage and extent count information "for each file that matches the mask.  Example: Report block usage and extent counts for each file in /HP. Runstring: mpack /hp/  #The R option replaces each extended file with a new, extent free, copy. #$Replacement directories will also be created, however their maximum size$#is 64 blocks, so extents can still remain, but should be reduced. Type ##1 and 2 files will never have their extents removed since extent sizes#can play a role in the characteristics of the file.   Example: Remove extents from the files on disk LU 20  Runstring: mpack 20 +r  $The T option truncates unused space from type 3, 4, 5, and 7 files. The$#default is to remove all unused blocks, however optionally a number of, #"or percentage of, unused blocks can be left remaining. This allows a "$file to still grow internally without necessarily having to create a new$extent.  $ Example: Truncate all FORTRAN source files in the working directory, $ leaving 5 extra unused blocks. Runstring: mpack @.ftn +t5  $The C option is a combination of the R and T options, and cannot be mixed $with them. % Example: Remove extents and truncate unused blocks, leaving 10% unused %" blocks remaining, from the directory /MPACKISGREAT and" everything below it. Runstring: mpack /mpackisgreat/@.@.s +c10%  #There are 4 additional options that help qualify which files to select#$for reporting information and compacting: +En, +Wn, +Wn%, and +A. These$$options allow a user to perform actions only on files that they consider$to be wasteful.  !The +En option indicates to only select files whose extent count is !equal to or greater than .  $ Example: Remove extents from any file in the working directory whose $ extent count exceeds 4.  Runstring: mpack @ +e4 +r #The +Wn option indicates to only select files whose unused block count#is equal to or greater than . ' Example: Compact all files on LU 10 that have more than 10 unused blocks.' Runstring: mpack 10 +c +w10 #The +Wn% option indicates to only select files whose unused block count #is equal to or greater than percent. # Example: Report all files in /SCRATCH that waste more than 15% of# their space.  Runstring: mpack /scratch/ +W15%  !By default, these qualifiers (+En, +Wn, and +Wn%) work in an ORing!"fashion, that is, when they are mixed then a file only needs to match "one. % Example: Report all files in the working directory that have more than %# 2 extents, or more than 5 wasted blocks, or more than 10% # wasted space.  Runstring: mpack @ +e3 +w6 +w11%  !The final qualifier option is the +A. This option causes the other !"qualifiers to work in an ANDing fashion, that is, when they are mixed "then a file must match each one. & Example: Compact all files in the working directory that have more than& 1 extent and more than 10 wasted blocks. Runstring: mpack +c @ +e2 +w11   The +Q option specifies to report only totals from the compacting processing. Individual file information will not be displayed.  ! Example: Compact files on disk LU 20 reporting total results.! Runstring: mpack 20 +c +q  PACKING FEATURES:   The +P option indicates to pack the disk LU specified in . #The must be a disk LU; filedescriptors will be rejected. MPACK##should always pack a disk such that all its free space is as one large#$chunk, with the ex((ception of the space that follows the volume header on$the last track.   Example: Pack the disk LU 20. Runstring: mpack 20 +p  #The +OK option gives permission to MPACK to overlay chunks of data when #"necessary for a full pack. MPACK moves data into empty holes on the"#disk so that if the system crashes at the wrong moment, no data will be #!lost. However, if the chunk of data being moved is larger than the !$largest hole, then either the chunk can not be moved, or overlaying must$take place. MPACK never overlays unless specifically given "permission. When permission is given and an overlay is taking place, " the blocks being moved are reported to the display, and when the "overlay is complete an 'ok' is displayed. In this way, if the system "#does crash, the user will know if they can expect a corrupted file, and #if so, what needs to be done to fix the problem.  Example: Pack disk LU 10 and allow overlaying.  Runstring: mpack 10 +p +ok    MISCELLANEOUS OPTIONS:  !The +L option is used to specify a log file and only applies to the ! compacting functionality.  ! Example: Cause compacting output to go to /SCRATCH/BACK.PACK.! Runstring: mpack @ +l /scratch/back.pack +c  NOTES: #The 2 parts of MPACK can be thought of as the Compacting phase, and the #%Packing phase. These 2 parts can be specified together, but when done so,%!the compacting phase is actually run first, then the packing phase. ! % Example: Remove all extents, unused file space, and holes in the disk% on LU 20, allowing overlaying. Runstring: mpack 20 +c +p +ok /RTE_6/HELP/STACK.HELP:::4:26:39 644 0 0 15000 5310707163 35447 /RTE_6/HELP/STACK.HELP:::4:26:39 $'STACK HELP+#r+#s+#s xXFST &Command stack -- Command line editor 92077-17311 Rev.5020 & Purpose:& The RTE-standard command stack allows command lines previously entered to&& be displayed, edited, and re-entered as a new command line. Programs that & use this stack include CI, EDIT, and Debug. Syntax: /[:][/../|n][.pattern]   : denotes auto-execute mode  & /../ the number of slashes given specifies the line number at&% which to start the frame. ".." here signifies that any % number of slashes may be given.  ! n is the line number at which to start the frame! & .pattern selects only lines containing this pattern (note the "."& is a literal period). The pattern syntax is:   [^]{-|@|c|\c}... & ^ anchors the pattern to the start of the command line&  - matches any single character  @ matches zero or more characters   c matches character "c"  % \c matches character "c", and allows "-" or "@" to be% given  Description: #Each command line entered is remembered in the "stack": the most recent #!commands are pushed onto the top of the stack and the least recent!#commands fall off the bottom. By entering command stack commands these #%command lines can be displayed and modified with the terminal editing keys%&and resent to the program as a new command line. Duplicate command lines are & removed from the stack.  #The command stack commands are entered from the command prompt ("CI>"), ##displaying a frame of previous command lines and entering command stack #!editing mode. Examples of commands that switch to stack mode are:!  / display the last frame of lines // display the last line /// display the last two lines (and so on)  /32 display a frame starting at line 32# /.pattern display the last frame of lines containing "pattern" #% /.^pattern display the last frame of lines starting with "pattern"% //.pattern display the last line containing "pattern"  /5.pattern display the last 5 lines containing "pattern"  %Additionally, any of the above command forms can contain a colon (:) as the %$second character; this causes the first selected line to be automatically $"marked for execution and does not go into screen mode. For example,"$"/:/" re-executes the last line in the stack; "/:7" executes the seventh$$most recent command; "/:/.edit" executes the last line containing "edit". $ $"frame" above refers to the maximum number of lines to be displayed in a$$command stack window; in CI this is specified in the FRAME_SIZE variable. $ %The commands that select lines by patterns contained allow the "-" and "@"%"characters in the pattern for single character and multiple character "'wildcards as in FMP masking. To specify either as a literal character precede'&it with a backward slash (\). For example, "/.edit \-b@.ftn" finds all lines &&where Edit was run in batch mode on any Fortran source; "/.a@b-c" would match & lines "axxbbc" and "qab!c".  %The command stack window is preceded by a banner that contains the starting %$line number of the window and the total number of lines selected for this $#display in inverse video, separated by a slash. For example, from CI:#  CI> /3  &dJ--003/320--&d@ Commands: [/DEXTER/CI.STK]  edit glorp.ftn ftn7x glorp 0 -,,s link glorp.rel +de  %which shows that the window starts at line 3 out of a total of 320 lines in %#the stack (CI also shows the name of the current stack file). If only#"lines containing a pattern are matched then the total line count will "reflect only those matching lines. For example,  CI> /3.edit &dJ--003/024--&d@ Commands: [/DEXTER/CI.STK]  edit kaspritz.mac ? li;edit glink.mac edit glorp.ftn  %which shows that the window starts at selected line 3 out of a total of 24%"lines selected by the pattern. To display the previous 21 lines that "matched use the ctrl-P editing command as described below. %Once command stack mode has been entered you may position the cursor to the %#desired line, modify it with the local terminal editing keys, and press #& to execute it. The following editing commands are also recognized:& & ctrl-A Go to the start of the line where the cursor is positioned. & % ctrl-Z Go to the end of the line where the cursor is positioned. %  ctrl-P Display the previous frame of selected lines.   ctrl-F Display the following frame of selected lines.  ' ctrl-K Mark current line for grouped execution in order of marking.'  ctrl-D Delete the current line from the stack.  $ ctrl-Q Quit stack mode, start executing marked lines. Ctrl-U$" ctrl-U may be entered instead of ctrl-Q on terminals using " XON/XOFF handshake protocol.  ctrl-Q ctrl-Q Abandon stack mode, forget marked lines. ctrl-U ctrl-U  %In the above table, "ctrl-A" denotes pressing the key and the letter %$"A" at the same time. The editing mode commands are recognized only when $%entered immediately preceding the carriage return. In addition, any of the %stack display commands may be entered to display a new window. &The stack lines will be displayed with display functions when needed. Lines&#longer than the screen width will be continued by dots in the last two#&columns. To enter a new line in editing mode which is longer than the screen &$width, you must put the two dots in the last columns by using the cursor$$control keys. The cursor must be placed on the first line of a continued $$command before selecting that line for execution or with one of the above $commands.  'A timeout in the stack mode read will cause the same return as if the user had'$entered a carriage return on a blank line, without regard to the current$cursor position. /RTE_6/HELP/POLL.HELP:::4:8:39 644 0 0 4000 5310707167 34403 /RTE_6/HELP/POLL.HELP:::4:8:39 $'POLL HELP+#v+#w+#w(xtFST & 92077-17324 REV. 6000&"POLL -- Execute a specified CI command synchronously with respect to" user interaction and terminal timeouts.  Usage: POLL [interval [command] | OFF ] # interval is the approximate number of minutes between executions of# the poll command.   OFF is the keyword which turns off the poll function. $ command is any CI command/program to be executed at the poll interval. $ ((Examples: ! poll 1 dl Execute the DL command and set the poll interval to ! to one minute.  poll Execute previously set poll command and reset the  base time. # poll 7 Execute previously set poll command and reset the poll# poll interval to seven minutes. poll off Turn off the polling function. %Each time CI prepares to issue a prompt, it first checks to see if the time %"since the base time is greater than the poll interval. If it is, CI"%executes the poll command, sets the base time for the next poll interval to %the current time, and issues the CI prompt.  %The command to be executed and the poll interval are stored in CI variables %$$POLL and $POLLINT, respectively, so that you can see them by doing a SET $command in CI. Notes:& 1. $POLL can be altered with the SET command. This has the effect that the&& new command will be executed the next time the poll interval is exceeded. &  2. $POLLINT cannot be altered with the SET command. ' 3. $POLL and/or $POLLINT can be deleted with the UNSET command. If either or'% both of the variables are deleted, the polling function is turned off.%  can be altered with the SET command. This has the effect%# that the new command will be executed the next time the poll # interval is exceeded. 2. $POLLINT cannot be altered with the SET command. % /RTE_6/HELP/PWD.HELP:::4:1:39 644 0 0 400 5310707171 34035 /RTE_6/HELP/PWD.HELP:::4:1:39 $ 'PWD HELP+#x+#y+#yhx~FST ' 92077-17329 REV.6000'PWD -- display present working directory Usage: PWD  PWD displays the current working directory. /RTE_6/HELP/PATH.HELP:::3:22:39 644 0 0 13000 5310707176 35035 /RTE_6/HELP/PATH.HELP:::3:22:39 $8'PATH HELP+#}+#~+#~ |xFST ' 92078-17022 REV.5020' "PATH -- Display/Update User-Definable Directory Search Paths (UDSP's) " Usages:   PATH [-E]! - displays current UDSP information: the total number of UDSPs!" defined for this session, the depth (no. of entries per UDSP)," and the next available (not yet defined) UDSP   PATH [-E] [-N:n] udspnum [dirname1 [... [dirnameN]...]] - displays/defines UDSP, or entry n of UDSP   PATH [-E] -F file|LU  - specifies input is to come from given file or LU  where:   udspnum - UDSP number - legal values: 0 = home directory n = UDSP #n, where 1<=n<=(#UDSPs)  -A = all UDSP's defined for this session  dirname - directory name  - special characters: . = current working directory (current at the time the UDSP is used)  ! = delete this UDSP/entry; must be the only  dirname in the command line - if no dirname is given, the current contents  of the specified UDSP/entry are displayed -E - turn off echo, that is, inhibits displaying of  non-error messages  -N:n - display/modify entry #n - n=1 for home directory, 1<=n<=depth for other UDSP's  -F file|LU - take commands from given file or LU - command lines are similar to the second form of the runstring shown above, i.e.:  [-N:n] udspnum [dirname1 [... [dirnameN]...]]  Examples:   path - display current UDSP information  path 2 - display UDSP #2 path -a - display all UDSP entries   path 0 /mine - set the home directory to /MINE path 1 . /mine/progs /programs - set UDSP #1 to: 1) current working directory  2) /MINE/PROGS  3) /PROGRAMS  path 2 . /mine/cmds /cmdfiles  - set UDSP #2 path -e -f setpath.cmd  - take input from SETPATH.CMD without echoing to the terminal SETPATH.CMD contains the following command lines: 0 /mine  1 . /mine/progs /programs  2 . /mine/cmds /cmdfiles   path -n:2 1 - display entry #2 of UDSP #1 path -n:2 1 /mine/utils  - set entry #2 of UDSP #1 to /MINE/UTILS   path 2 ! - delete all of UDSP #2 path -n:2 1 ! - delete entry #2 of UDSP #1  path -a ! - delete all UDSP entries  path -e -n:2 3 - return the contents of the second entry of UDSP #3; returns value in return string without displaying to the terminal  Description: ! This command is the user's interface to setting and displaying the ! User-Definable Directory Search Paths (UDSPs).  & A User-Definable Directory Search Path is a list which specifies the direc-&% tories D.RTR is to search when opening a file, and the order in which they %& are to be searched. There can be up to 8 UDSPs, numbered 1-8. UDSP 0 is a&$ special case: it represents the 'Home' directory and has a depth of one. $ % The RU command in CI uses UDSP #1, and the TR command uses UDSP #2. Other %% UDSPs may be defined by the user for special use. Programmatically, D.RTR %$ can be directed to use a UDSP when opening a file by specifying the UDSP $' number in the option string in an FMPOPEN call. Specifying a file descriptor'% starting with a pound sign (#), the UDSP number, and a slash has the same%# effect, for example, "#0/mail.rc" specifies file MAIL.RC in your home# directory.  " The number of UDSPs and their depth (the number of entries per UDSP) "& are defined when the user account is created or modified. The UDSP entries&$ created by PATH are valid only for the duration of the session; they are $ initialized when a user logs on.  ! The '.' character used for a directory name means: "When this UDSP !" is invoked, use the working directory that is defined at the time of "# invocation." This can appear anywhere in the UDSP, and it must appear # if the working directory is to be searched (that is, the working  directory is not included by default).  ! The '-E' option inhibits the printing of non-error messages to the !$ terminal. This is used when echoing is not desired from a command file, $" or when information is desired only in the returned parameters (see" below) and is not to be displayed.  $ PATH always returns the following values in the five $RETURN parameters: $  $RETURN1 - 0 = successful run <0 = FMP error  $RETURN2 - #UDSPs defined for this account $RETURN3 - depth value  $RETURN4 - next available UDSP (first UDSP not yet defined)  $RETURN5 - 0 (not used)  % In addition, when a specific entry is requested (-N:n option), or when the %# home directory is requested, the name of the directory is returned in # $RETURN_S.  ********************$$* Handle the title command. *$$****************************************/RTE_6/HELP/AG.HELP:::3:5:39 644 0 0 2400 5310707541 33777 /RTE_6/HELP/AG.HELP:::3:5:39 $'AG HELP+#`+#a+#a&xFST ' 92084-17213 REV.5020'AG -- Modify partition priority aging rate  Usage: AG number/OF  $ number is the new partition priority aging rate; number is the number$ of 10 millisecond intervals used as the aging rate;  10 <= number <= 32767.  OF turns off partition aging. Examples:  ag 100 Set the interval to 1 second. ag of Turn off partition aging. &The partition priority aging feature allows high-priority suspended (state 3) &#programs to be swapped out in favor of lower priority programs that are #$scheduled but waiting for a partition. The AG command assigns a priority $$equal to the occupying program. The partition priority is then increased $%at a rate specified in the AG command. Since the system swaps programs in%%and out of partitions based on priority, eventually the partition priority%#may be low enough to allow another program to be s((wapped in. See the #Terminal User's Reference Manual for more details.e, ' dest port: ', p_d_port:6); ! writeln (outfile, ' rcv ulp ct: ',! p_msg_cnt:6,' snd ulp ct: ',p_up_cnt:6);! /RTE_6/HELP/AS.HELP:::3:4:39 644 0 0 2000 5310707542 34272 /RTE_6/HELP/AS.HELP:::3:4:39 $'AS HELP+#a+#b+#bxFST ' 92084-17214 REV.5020'AS -- Assign a program to a partition  Usage: AS programName partitionNumber   programName is up to five characters long.  # partitionNumber is the partition to which the named program will be#" assigned; 0 (zero) removes the current assignment for the program. " Examples:  as testx 2 Assign the program TESTX to partition 2 ! as test 0 Remove TEST's previous assignment to a partition! as sylum 37 Assign SYLUM to partition 37 $The program being assigned must be RP'd and must be dormant. Whenever it $%runs, it will be placed in the designated partition. More than one program %%may be assigned to the same partition; in this case, they will contend for%the space in a normal priority/swapping scheme. _dn_emscnt:6,' snd ulp ct: ',pr_ulp_up_emscnt:6);% END; END; {FormatIP} $ SUBTITLE 'FormatANH', PAGE $ PR/RTE_6/HELP/BL.HELP:::3:6:39 644 0 0 3000 5310707543 34425 /RTE_6/HELP/BL.HELP:::3:6:39 $'BL HELP+#b+#c+#c#xFST ' 92084-17215 REV.5020'BL -- Examine or modify buffer limits  Usage: BL [lowerLimit [upperLimit]]   lowerLimit is the lower buffer limit specified in words.  upperLimit is the upper buffer limit specified in words.  Examples:  bl Display current buffer limits. " bl 100 Change the lower limit to 100 (upper limit unchanged). "" bl,,400 Change the upper limit to 400 (lower limit unchanged). " bl 200 500 Change the limits to 200,500. Buffer limits are displayed like this:   e.g.,   100 400  %Each time a standard I/O request if made to a device with automatic output%$buffering enabled, the system adds up all the words in the I/O requests $%queued to the EQT entry for the device where the I/O is directed. If the %$sum is less than the upper limit, the new request is added to the queue.$"If the sum is larger than the upper limit, the requesting program is"suspended and placed in the general wait list (state 3). $When a buffered I/O request completes, the system adds up the remaining $%words in the I/O requests queued to the EQT entry and compares the number %&to the lower limit. When the sum is less than the lower limit, any programs&#suspended for exceeding the buffer limits on the EQT are rescheduled. # See the Terminal User's Reference Manual for more details./RTE_6/HELP/BR.HELP:::3:4:39 644 0 0 2000 5310707544 34310 /RTE_6/HELP/BR.HELP:::3:4:39 $'BR HELP+#d+#d+#dxFST ' 92084-17216 REV.5020'BR -- Set a flag to break program execution   Usage: BR [programName]  $ programName has up to 5 characters. The default is the last scheduled $ program from your session.  Examples: ! br Break the last program scheduled at this terminal ! br muda Break the program MUDA running at this session  br met79 Break MET79 (run from session 79)  %BR sets a break flag in the program's ID segment, providing a way to signal %$some event (such as a kill request) to a running program. The BR command $&merely sets a flag; it is up to the program to check the break flag using the &'system call IFBRK. If a program doesn't check it, this command has no visible'effect.   END; WITH lanpath.pr_lan DO  BEGIN  IF found THEN  BEGIN InternalToUser (mylanaddr, useraddr); IF (dnp/RTE_6/HELP/CN.HELP:::3:6:39 644 0 0 3000 5310707545 34337 /RTE_6/HELP/CN.HELP:::3:6:39 $'CN HELP+#e+#e+#exFST ' 92084-17217 REV.5020'CN -- Control a peripheral device  Usage: CN lu functionCode [parm]  lu is the logical unit number of the device to be controlled.  $ functionCode is the control function code (0-63 octal) defined in the$% function field of CNTWD listed for each driver in the appropriate driver % reference manual, or a two-character mnemonic code:  Mnemonic Octal Parm Meaning  -------- ----- --------- ------- & TO 11B num lines Issue printer top-of-form or line spacing & RW 4 none Rewind cassette tape EO 1 none Write end-of-file  FF 13B none Forward space file BF 14B none Backward space file  FR 3 none Forward space record BR 2 none Backward space record  none 0 none Clear device % parm is an optional parameter that specifies additional device details % as appropriate for the driver.  Examples: ! cn 4 rw Rewinds the tape in minicassette tape unit LU 4 !" cn 6 to -1 Causes a top-of-form (page eject) on printer LU 6 "  str4 = String [4]; ! { note: the type below is dependent on the constants GLT_HDLC..! { which are declared in LKLB}  lktype = ARRAY [1..3] OF str4;  CONST /RTE_6/HELP/CU.HELP:::3:4:39 644 0 0 2000 5310707546 34434 /RTE_6/HELP/CU.HELP:::3:4:39 $'CU HELP+#f+#f+#fxFST ' 92084-17218 REV.5020'CU -- CPU utilization display  Usage: CU onoff  # onoff is the option to turn the CU display on or off; can be either: # ON - turns on the CU display.  OFF - turns off the CU display.  $When the system is in the idle loop, it approximates the CPU utilization$&and diplays it in the S-Register on the front panel of the CPU when CU is on. &%CPU utilization is an approximation of the percentage of time spent in the%$system idle loop. CPU utilization is updated and displayed approximately $ every 160 milliseconds.  $The utilization is displayed as a bar graph starting at bit 15 and going$"to bit 0. Each bit in the S-Register represents approximately 6% CPU "%utilization. For example, a CPU with 70% utilization has bits 15 through 4 %set./RTE_6/HELP/DN.HELP:::3:5:39 644 0 0 2400 5310707547 34223 /RTE_6/HELP/DN.HELP:::3:5:39 $'DN HELP+#g+#g+#g2xFST ' 92084-17219 REV.5020'DN -- Down a device or I/O controller  Usage: DN eqt  or DN,,lu  # eqt specifies the equipment table (EQT) entry number to be set down. #! lu specified the system LU number of the device to be set down. ! Examples:  dn 18 Set EQT 18 down. dn,,53 Set LU 53 down.  &Setting the device (LU) down will make only the specific device unavailable.&%However, all other LUs p((ointing to the device will also be set down. Other %devices using the device's I/O select code are unaffected. %Setting an I/O controller (EQT) down effectively sets all devices connected %%to the I/O channel down by blocking any I/O operations on the select code.%&The state of the devices (LUs) associated with the select code are unchanged. & %The device or I/O controller remains unavailable until the I/O controller %%is set up by the UP command. The operator might set a device down because%of equipment problems, tape change, etc. Compare this with the UP command.  st_desc := ''; TheresAPath := FALSE; END;  Otherwise BEGIN/RTE_6/HELP/EQ.HELP:::3:6:39 644 0 0 3000 5310707550 34553 /RTE_6/HELP/EQ.HELP:::3:6:39 $'EQ HELP+#h+#h+#h/xFST ' 92084-17220 REV.6000'EQ -- Display EQT status, or modify EQT buffering   Usage: EQ eqt [buffering]   eqt is the EQT number  buffering turns on or off buffering; it can be:  UN - unbuffer (turn off buffering) BU - buffer (turn on buffering)  Examples:  eq 23 Display status of EQT 23  eq 19 un Change EQT 23 to be unbuffered  The status is printed as follows:   s dv.nn d b Unnn status where:  s is the I/O select code number dv.nn is the driver routine d is D if DMA is required, 0 if not b is B if automatic output buffering is used, 0 if not  Unnn is the last subchannel addressed  status is the logical status:  0 = available  1 = I/O controller unavailable (down) 2 = I/O controller unavailable (busy) 3 = waiting for DMA assignment  For example:  21 DV.05 0 B U 3 2  is interpreted:   -select code is 21 -driver is DV.05 -no DMA is required  -automatic output buffering is used  -last subchannel addressed was 3 -status is 2 (I/O controller is busy)   &When the system is rebooted from disk, all buffering designations are reset &to the values originally specified during generation. /RTE_6/HELP/EX.HELP:::3:3:39 644 0 0 1400 5310707551 34413 /RTE_6/HELP/EX.HELP:::3:3:39 $'EX HELP+#i+#i+#iyxFST ' 92084-17222 REV.5020' EX -- Exit from the CI  Usage: EX  %EX terminates CI. If CI is your primary program and this is your logon CI, %#you will be logged off. Also, EX closes any spools still open to your#%session, and, if there are active programs scheduled from your session (by%XQ, for instance), you'll be asked if it's OK to abort them. &Programs RP'd but not active are removed. Active programs are not aborted or &removed; instead you'll see something like:   CI> ex  APPL1 PROGX OK TO ABORT? (Y OR N)  Answers mean:  Y Yes, abort them and log off  N No, keep them around and restart the session/RTE_6/HELP/FPACK.HELP:::4:33:39 644 0 0 20400 5310707552 35536 /RTE_6/HELP/FPACK.HELP:::4:33:39 $!!'FPACK HELP+#j+#j+#j!IxFST ' 92084-17223 REV.6000'%FPACK -- Consolidate files on a disk volume, enlarging available free space %  Usage: FPACK volumeLu   volumeLu is the LU number of the volume to pack.  Example: fpack 16 Pack files on disk volume 16 together &FPACK rearranges the files on a file system volume in order to pack the files &'together more tightly. FPACK will increase the size of the largest free space'"on the volume, which will allow the creation of more or larger files. " %Compare the FPACK program with the MPACK program, which normally can pack a %volume with far greater efficiency.  'FPACK scans the directories of a hierarchical file system volume, generating a'&list of files in order of location on the disk. It then moves files from the &'higher numbered blocks into the free spaces in lower numbered blocks. When it'&completes this operation, there will usually be free space at the high end of &%the disk. FPACK can take several minutes to scan a large volume before it% begins moving files.  &FPACK operates by copying files to different areas of the disk. In order to&'copy a file, there must be a free space "below" it large enough to contain the''file and its extents. If no free space large enough to hold the file exists, '&it will not be copied. When a file is copied, any extents are removed; the &'main is made large enough to hold the whole file. Other features of the file '(time stamps, protection, etc.) are not changed. %Assuming an artificial case where all files are the same size, FPACK would%convert the disk structure below:   Before After  +--------+ +--------+ Block n | File E | | | |--------| | empty | | empty | | | |--------| |--------| | Dir X | | Dir X | |--------| |--------| | File D | | empty | |--------| |--------| | File C | | File C | |--------| |--------| | empty | | File D | |--------| |--------| | File B | | File B | |--------| |--------| | empty | | File E | |--------| |--------| Block 0 | File A | | File A | +--------+ +--------+ &In order to copy a file, it is necessary to have read/write access to it and&'the directory containing the file. If you are not a superuser (Manager.Sys), '&you probably do not have access to all of the files in the system. In this &#case there will be many files which will not be copied, and FPACK will#probably not free very much space. &Directories will not be copied since the integrity of the directory and its &&files cannot be guaranteed if copied by FPACK. Open files and active type-6& files will not be copied.  'The FREES (free space) utility can be run after FPACK to indicate the volume's''largest continuous free space and total amount of free space. This indicates ''whether some files should be purged from this volume in order to free up more 'necessary space. %After FPACK has moved as many files as possible, another scan of the LU is%'made to determine which files can be moved to increase the size of the largest'free space. In the above example, FPACK would say:   Suggested files to move:   X.DIR::dir:...  C::dir... D::dir... B::dir... E::dir... A::dir:...  %This is a list of the last 10 files on the disk, in order from the highest%&disk address to the lowest. If the largest free space is now large enough, &&you can go on with what you were doing. If not, you can try to increase the&&size of the free space by moving or purging the appropriate files. If X.DIR&'(in this example) can be moved down, the largest free space will be enlarged. '&If file C can be removed, there will be more space in the largest space. If&it cannot be moved, moving file D will not help. 'Directories are not moved by FPACK, but the following sequence of CI commands ''will move the directory /TOP to a different disk location. The concept is to '"create a new directory and "move" the files into it. Then purge the"'original and rename the new directory to the same name as the original. Don't''forget to use the leading "/" to indicate the directory is a global directory:'  Command Explanation ------- -----------& WD /top Simplify the next commands and cause the new directory & to land on the same LU. ' CRDIR /temp (Which will land on the same LU as the working directory)'% MO @.@ /temp/@.@ "Move" file entri((es from /TOP to /TEMP, which empties% directory TOP.& Note that only the directory entries move; file data&' is unaffected. If any files aren't moved, correct the'& problem so that they all move or else move them all &' back and quit trying. This moving of the directory is' what FPACK is unwilling to do.% WD /temp Change working directory so that /TOP can be purged. %& PU /top Free up the disk space. If the directory is not empty,&' some file did not move, so put them all back and quit ' trying. & RN /temp /top Restore the original name. The files now have the same&" name as before, but the directory has moved." $If any of the above steps fail, move the files back from /TEMP into TOP:$  MO /temp/@.@ /top/@.@  PU /temp  &It is useless at this point to try to move that directory. The most likely &%reason for failure is that a file is open in /TOP, since open files cannot%be moved.  'After the successful completion of this operation, disk space will be packed: '  Before After  +--------+ +--------+ Block n | | | | | empty | | | | | | empty | |--------| | | | Dir X | | | |--------| |--------| | empty | | Dir X | |--------| |--------| | File C | | File C | |--------| |--------| | File D | | File D | |--------| |--------| | File B | | File B | |--------| |--------| | File E | | File E | |--------| |--------| Block 0 | File A | | File A | +--------+ +--------+ &Similiarly, subdirectories can be moved as follows (moving /GLOBAL/SUB.DIR):&  CRDIR /global/temp.dir  MO /global/sub/@.@ /global/temp/@.@ PU /global/sub.dir  RN /global/temp.dir /global/sub.dir 'The concept is the same: create another directory, move all of the files into '"it, purge the original and rename the new one to the original name. " 'An alternate plan to increase free space is to clear some existing files from '&the disk. After purging some existing files, FPACK can be run again to move&files into the space left by the purged files. &If the pack operation has still not succeeded in coalescing enough space, a &'perfect pack can be achieved by backing the entire volume up on tape (TF, not ''a physical backup), reinitializing it and restoring the volume from tape. If '%this volume is the system volume, it requires having a system which can be% booted from a different volume from the one being reinitialized. /RTE_6/HELP/GO.HELP:::3:5:39 644 0 0 2400 5310707553 33355 /RTE_6/HELP/GO.HELP:::3:5:39 $'GO HELP+#k+#k+#kxFST ' 92084-17224 REV.5020'GO -- Resume running a suspended program Usage: GO [programName [parm*5]] % programName has up to 5 characters; its session identifier is optional.% The default is the program last scheduled from this session.  & parm*5 are up to 5 parameters passed only to a program that has suspended& itself. Examples: ' go Resume the suspended program scheduled last from' this session go figur Resume FIGUR$ go team 12 47 pm 8 1983 Resume suspended program TEAM, passing it 5 $" parameters to be recovered via RMPAR" 'The GO command resumes execution of a program suspended by an SS command or by'&an EXEC 7 call. It is ignored if the program is not in the operator-suspend&state. The Programmer's Reference Manual has details.  Compare this with the SS command. in the heap for all of ', $ pname, '''s sockets.'); END;  IF socketlist.head <> NIL THEN BEGIN { if anything to do } FormatPath (socketlist); FreeSpace (socketlist);  END; { if an/RTE_6/HELP/HE.HELP:::3:6:39 644 0 0 3000 5310707555 33161 /RTE_6/HELP/HE.HELP:::3:6:39 $$'HE HELP+#l+#m+#myFST ' 92084-17225 REV.5020' HE -- System help function   Usage: HE [keyword [lu]]  # keyword is eight or less characters identifying the error for which## an explanation is requested. The default value is the last#! error posted to the user's session control block (SCB).! lu is the LU of the device where the text will be output.  Examples: $ he Give an explanation of the last error posted in the SCB.$ he fmgr-017 Give an explanation of the FMGR error -17. he io14 6 Print an explanation of the IO14 error on LU 6.  $The HE command schedules a program called HELP, which in turn schedules a $#program called CMD to look up the given keyword in a file named either#$!HELP::0 or /SYSTEM/HELP.HLP. This file is created by the GENIX program$"from file "HELP, supplied with RTE-6/VM. "HELP contains keywords and " explanations for error codes of several subsystems and utilities.  &See the Utility Programs Reference Manual for a more detailed description of &#the HELP, CMD, and GENIX utilities. Also, the System Manager's Manual ##contains a discussion of how to modify the help file to add additional #keywords. { Note: LOGFNAMESIZE is declared in trcmod }" logname : String [LOGFNAMESIZE*2]; { log file name as a string }"! netclass : Int16; { NSTRC class if skt only is enabled } ! wkmp : Int16; $ PAGE/RTE_6/HELP/IN.HELP:::4:7:39 644 0 0 3400 5310707556 33164 /RTE_6/HELP/IN.HELP:::4:7:39 $,'IN HELP+#m+#n+#nA%yFST ' 92084-17226 REV.6000'IN -- Initialize a disk volume Usage: IN volumeLu [reservedBlocks [OK]] $ volumeLu is the LU number of the disk volume to be initialized.$ $ reservedBlocks specifies the number of blocks at the beginning of the$# disk LU to be reserved. These blocks are not used by # the file system, and can be set aside for user software.  " OK is an optional keyword to suppress the prompt that" verifies initializing the disk volume. Example: in 63 Initialize and mount volume LU 63  in 44,,ok Initialize and mount volume 44 without asking  #The IN command clears a disk volume, eliminating all its files. Before ##reinitializing a disk volume with files on it, you will be prompted to#!verify initializing the disk volume. A "yes" entry will start the!#process, and the OK keyword suppresses this prompt. After initializing #the disk volume, it will be mounted to the file system.  Only the superuser (Manager.Sys) may initialize a disk volume. $The reservedBlocks parameter is present primarily for compatibility with$$RTE-A, but may be used on RTE-6 to create a 'hidden' portion of the disk$"for use by customized user software. The file system will not access " these reserved blocks.  #To initialize a FMGR disk volume, run FMGR and use the FMGR IN command. #See the Terminal User's Reference Manual for details.  Compare this commnad with the MC command. ((/RTE_6/HELP/IT.HELP:::3:9:39 644 0 0 4400 5310707557 33324 /RTE_6/HELP/IT.HELP:::3:9:39 $ 4 'IT HELP+#n+#o+#o f/yFST ' 92084-17227 REV.5020' IT -- Interval timer  Usage: IT program [res mpt [hour [minute [second [csec]]]]]  $ program is the name of the program be placed in the time list; if only $$ the program name is given in the command, the program will be$ removed from the time list. res is the time resolution code:  1 = centiseconds (tens of milliseconds) 2 = seconds 3 = minutes 4 = hours % mpt is the multiplier used in conjunction with the resolution code;%$ the number can be from 0 to 4095; if 0, the program runs only$ once. hour, minute, second, csec $ are the time parameters used to set the initial start time in$# terms of hours, minutes, seconds, and centiseconds (tens of# milliseconds), respectively.   Examples: $ it proga 4 1 13 Sets proga to execute for the first time at 1:00 pm,$ and then every hour after that. $ it progb 3 15 Sets progb to run immediately, then every 15 minutes. $# it lives 1 0 10 Sets LIVES to run once at 10:00 am (resolution code # is ignored if multiplier is 0).  it lives Removes LIVES from the time list.   $The resolution code is the unit of time to be multiplied by the execution $&interval value (multiplier) to get the total time interval. If hour, minute, &$second, and/or centisecond are present, the first execution occurs at the $#initial start time specified by those parameters. The program will not ##actually be scheduled, however, until initialized with the ON command.#$When the ON command is executed, the program will either run immediately, $$or be put in the time list, depending on the parameters specified in the$IT command.  &This command is similar to the EXEC call used for timed execution (EXEC 12).&Refer to the Programmer's Reference Manual for details.  &Access restrictions for time scheduled programs is discussed in the Terminal& User's Reference Manual.   See also the ON command. /RTE_6/HELP/LINDX.HELP:::3:15:39 644 0 0 7400 5310707560 34146 /RTE_6/HELP/LINDX.HELP:::3:15:39 $@'LINDX HELP+#o+#p+#pNy$FST ' 92084-17228 REV.5020'LINDX -- Index a relocatable library Usage: To index a relocatable library:   LINDX libraryFile outputFile [+NL]   libraryFile is the input library to index" outputFile is the resulting indexed library; it must not" be the same as the libraryFile  +NL inhibits the listing of entry points    To index an RTE-6 system:   LINDX SYSTEM snapFile [library ...] [+NL] -- or --  LINDX SYSTEM snapFile [+LI libList] [+NL]  snapFile is the resulting snap file for the system  library is a library to include in the snap file" +LI is followed by a file descriptor or LU (libList)"" which contains a list of libraries to include in" the snap file  +NL inhibits the listing of entry points  Examples:   lindx mailRoutines.rel /libraries/mail.lib  % Index the routines in MAILROUTINES.REL, putting the resulting index % and relocatables into /LIBRARIES/MAIL.LIB.   lindx system /system/snap.snp mail.lib utility.lib  % Index the system, including the libraries MAIL.LIB and UTILITY.LIB, % putting the resulting snap file into /SYSTEM/SNAP.SNP.   lindx system /system/snap.snp +li libraries +nl $ Index the system, reading from the file LIBRARIES to get a list of$% library files to include, putting the result into /SYSTEM/SNAP.SNP, % and inhibit printing the list of entry point names.    &LINDX indexes a library of relocatables, allowing LINK to search the library&'more quickly. Indexing also makes it possible to resolve backwards references'%in the library without searching the library multiple times. By indexing %&libraries, you get faster load times and eliminate search order problems in &your libraries.  %LINDX copies the input file to the output file, adding index records as it%'goes. The output file cannot be the same as the input file. To LINDX a file '&"onto itself," purge the input file after successful indexing and rename the&output file to the input file name.  %If you have several libraries, you will probably want to merge them using %'MERGE, and then index the merged libraries. This allows LINK to make use of a'&combined index. Use LINDX after MERGE; merging destroys index information. &$Copying the file does not destroy the index, so indexed libraries can be$safely copied. %LINDX is also used to create the system snap file used by LINK to pick up %%entry points in the system. If a list of library files is included in the%%snap file, LINK will search those libraries first, then search the system %$entry points. This is a way of setting up one or more default libraries$&that LINK will search everytime it is run. See the LINK help file for more & details on the snap file.  &LINDX will complain if there are duplicate entry points in the library, and &&the index will only contain one of them. There is no way to know which one &'will be picked. Duplicate entry points are not recommended. LINDX prints all'&entry point names to the terminal as it runs (unless this is inhibited with &$the +NL option), along with a message indicating duplicate entry points.$e,'*** tninf encounters a problem while trying to go ');%" writeln(outfile,'critical while fetching server cntl blk***');" GOTO 99; END;" DS_FetchElement(DS_TN_SRVR_CNTL_BLK_TD,i,tn_server_cntl_blk.int);" DS_Leav/RTE_6/HELP/LINK.HELP:::3:15:39 644 0 0 7400 5310707561 34136 /RTE_6/HELP/LINK.HELP:::3:15:39 $P'LINK HELP+#p+#q+#qjOy6FST ' 92084-17229 REV.5020'LINK -- Produce program files from relocatables  -- Modify program files  !Usage: LINK [file1 or +opt1] [file2 or +opt2] ... [fileN or +optN]! # file1 to fileN indicate one or more files to use during the linking#" process. LINK uses the file's type extension (or the file name's" first character) to determine the file's type:   .REL (or %) relocatable (can be several of these)  .LIB (or $) library (can be several of these)  .SNP (or ^) system snap file .LOD (or #) LINK command file (can be several of these)  .MAP (or ') load map .RUN (or A-Z) resulting program file (type 6 file)  # +opt1 to +optN indicate one or more special options. Options in the # runstring all begin with the leading + character:  +BG - specify a background program (type 3)  +CR:crn - set FMGR scratch cartridge +CR:file - specify a scratch file +DC - make the program non-clonable  +DE - specify symbolic debug +DP - inhibit purging of existing program files ! +EB - specify an extended background program (type 6) ! +EC - echo commands from command file  +LB - specify a large background program (type 4)  +LL:file/lu - specify a list file/lu +MA - print load map +RC - reverse common +RO - reorder modules to reduce base page links  +RT - specify a real-time program (type 2) +SC - allow access to system blank common % +SZ:[+]size - size the program to 'size' pages; if '+size' is given,% increase the program's size by 'size' pages   Examples:  link - use LINK interactively! link test.rel +eb +sz:30 - load TEST.REL, making ((it extended !! background, with size of 30 pages !! link dbase.rel $dbms1 +sz:+2 - load DBASE.REL, searching $DBMS1, !$ increasing the program size by 2 pages$" link mint.lod +cr:50 - read commands from MINT.LOD, using" scratch cartridge 50  %LINK produces executable programs from relocatables and libraries. You can %%run it interactively, from a command file, or by placing files and options%in the runstring.  $LINK uses a snap file for the system created by LINDX. See the help file $%for LINDX for information on how to create this snap file. If one or more%$libraries are included in the snap file, LINK will search these libraries $$before searching the system entry points. This allows the system manager $!to set up a set of default libraries for LINK to use. For example: !  lindx system snap.snp::system $fmp6::libraries  %This sets up the system snap file in SNAP.SNP::SYSTEM. It also will cause%$LINK to search the RTE-6 FMP library $FMP6 on directory LIBRARIES before$searching the system entry points. &If no snap file is specified in the runstring or command input, LINK uses the &following sequence to find the snap file:  % (1) SNAP on the working directory (or on the top cartridge if no % working directory is set)  (2) SNAP.SNP::SYSTEM  (3) SNAP.SNP on the working directory (if set)  (4) SNAP.6::0   %To find out more about LINK commands, especially the interactive commands,%see the LINK manual or run LINK and use the ? command./RTE_6/HELP/LU.HELP:::3:7:39 644 0 0 3400 5310707562 33465 /RTE_6/HELP/LU.HELP:::3:7:39 $`'LU HELP+#q+#r+#rd1yHFST ' 92084-17230 REV.6000'LU -- Display or modify LU assignment  Usage: LU lu [eqt [subchannel]]  $ lu is the system LU number; if no other parameters are given,$! then the current assignment for this LU is displayed. !$ eqt is the EQT number to which to assign this LU; if 0, this LU $ becomes the 'bit bucket'. & subchannel is the subchannel number of the EQT to which to assign this LU; &" the number must be between 0 and 63; the default is 0." Examples:  lu 7 Display the current assignment for system LU 7.  lu 14 2 3 Assign LU 14 to EQT 2, subchannel 3.  The assignment display is of this form:   LU # lu = E eqt S subc status  where:  lu is the system LU number specified  eqt is the EQT to which the LU is assigned! subc is the subchannel of the EQT to which the LU is assigned! status is D if the device is down, otherwise it is blank  For example:  LU # 7 = E 12 S 3 D  indicates:  -LU 7 -assigned to EQT 12 -and subchannel 3  -device is currently down  Restrictions for changing system LU assignments are: " a. LU 1 (system console) must be an interactive terminal device. "# b. LU 2 (system disk) and LU 3 (auxiliary disk) cannot be assigned # to another EQT number.& c. An LU cannot be assigned to the same EQT and subchannel as LU 2 or 3. & $When the system is rebooted from the disk, the LU assignments are reset $to those originally established during generation./RTE_6/HELP/MC.HELP:::4:7:39 644 0 0 3400 5310707562 33336 /RTE_6/HELP/MC.HELP:::4:7:39 $h'MC HELP+#r+#r+#r9"yRFST ' 92084-17232 REV.6000' MC -- Mount a disk volume   Usage: MC volumeLu  & volumeLu is the LU number of the disk volume to be mounted, and must be a& positive number.  Example: mc 16 Mount volume (LU) 16 &MC mounts a disk volume to the file system, making its files and directories&accessible to the file system. %If the disk volume does not have a valid directory, it will be initialized%%with no reserved blocks at the beginning of the volume. If reserved blocks %are desired, use the IN command instead of MC. 'There is no significance to the order in which disk volumes are mounted unless'$there are duplicate global directory names. If a global directory on the $%newly mounted disk volume has the same name as a previously-mounted global%'directory, the new directory is inaccessible. Rename the original directory, ''dismount the new disk volume, and then remount it. Now the new directory can 'be accessed and/or renamed (with the RN command) as desired. &MC should not be used to mount FMGR cartridges. The CI MC command can only &#mount cartridges out of session, while FMGR's MC command contains more#¶meters for session control as well as for specifying the CRN, ID, number&&of directory tracks, etc. See the Terminal User's Reference Manual for more&$information on the FMGR MC command. Note that hierarchical file system $$volumes are essentially non-session cartridges that are special-cased by$the system.  Compare this command with the IN command. /RTE_6/HELP/OF.HELP:::3:4:39 644 0 0 2000 5310707563 33630 /RTE_6/HELP/OF.HELP:::3:4:39 $p'OF HELP+#s+#s+#sy\FST ' 92084-17233 REV.6000' OF -- Terminate a program  Usage: OF [programName [how]]  # programName has up to 5 characters. The default is the last program # scheduled from this terminal. & how is an option that describes how to terminate the program. It can be:&% 0 (Default) Remove the program from the time list; keep disk tracks. % 1 Kill immediately and release the program's disk tracks.  8 Kill immediately and release its ID segment.  ID A keyword equivalent to 8.  Examples:  of Kill the last program scheduled from this session  of key55 8 Off KEY scheduled from session 55 of color id Kill the program COLOR and release its ID segment  &This command terminates the named program: the program is aborted, its I/O is &%flushed, its resources (such as LU locks) are released. Its files are not% posted or closed. /RTE_6/HELP/ON.HELP:::3:6:39 644 0 0 3000 5310707564 33621 /RTE_6/HELP/ON.HELP:::3:6:39 $t'ON HELP+#t+#t+#tybFST ' 92084-17234 REV.5020' ON -- Schedule a program  Usage: ON program [NOW] [p1 [p2 [p3 [p4 [p5]]]]]  program is the name of the program to schedule.# NOW indicates the program is to be scheduled immediately rather#$ than according to the initial time scheduling information for$ the program.  p1-p5 are optional parameters to be passed to the program.  Examples: " on dashr aa bb cc dd ee Schedule DASHR, passing 5 parameters. " on dancr now aa bb cc dd ee Schedule DANCR, immediately.  #Parameters passed with the ON command are identical to those passed by#$the RU command, except the run string is only 80 characters long. If the $"first parameter to be passed to the program has 'NO' as the first two "%characters, the parameter will have to be repeated in order for the program %$to be able to pick it up (the first 'NO' is interpreted as the NOW optio((n $ and stripped off).  %If the resolution code for the program is not zero, the system will place %%the program in the time list for execution at specified times (unless the %$NOW option appears, in which case the program will execute immediately).$ $See the IT command for setting up the time scheduling parameters for the$program.= 4; ICLASS_N = 2; IRESOURC_N = 3;  ISOCKETS = 5; FIRSTRESRC = 1;  LASTRESRC = 5;  TYPE  ActionType = /RTE_6/HELP/PR.HELP:::3:4:39 644 0 0 2000 5310707566 33671 /RTE_6/HELP/PR.HELP:::3:4:39 $|'PR HELP+#u+#v+#vyjFST ' 92084-17236 REV.5020'PR -- Change a program's priority  Usage: PR programName newPriority   programName has up to 5 characters.  newPriority is a number ranging from 1 to 32767.  Examples:  pr fume 75 Set the priority of FUME to 75  #Priority determines when a program will run relative to other programs; #!lower numbers mean higher priorities, for more important programs.! $Priority values typically fall within 50 to 200. Be careful when setting $%programs to priority numbers lower than 40, as such programs can interfere%&with normal system operations if they use system resources excessively. Your &'choice of program priority may also be influenced by the system priority fence' and time-slice fence.  To display a program's priority, use the ST command./RTE_6/HELP/PROT.HELP:::3:16:39 644 0 0 10000 5310707567 34601 /RTE_6/HELP/PROT.HELP:::3:16:39 $'PROT HELP+#v+#w+#wUypFST ' 92084-17237 REV.5020'PROT -- Display or change file protection status Usage: PROT fileMask [newProtection]  or: PROT luV [newProtection]   # fileMask describes the set of files to display or change. This mask #% includes all fields of the file name and, optionally, a qualifier. Type % "? mask" for more information about file masks. $ luV describes a CI volume LU to display or change. Protection on a CI $! volume restricts the displaying, creating, and purging of global ! directories on that volume. $ newProtection, if specified, defines the new protection status for the $% owner, for members of the owner's group, and for others. The syntax is: %  owner[/group]/others   The slash is a required delimiter. The protection values are:   R = allow read access  W = allow write access $ If both R and W are specified, they may be given in either order. If$# no protection value is given in a particular position, it disallows#$ all access. If the group protection is not specified, it will remain$ unchanged.  $ As an alternative to the R and W symbols, a set of default symbols may $$ be specified. These symbols will allow the current protection values$# to be transferred into the new protection setting. The symbols are: # ! U = user (owner) - place the current owner protection here !! G = group - place the current group protection here !! S = system (others) - place the current other protection here !  # If no newprotection parameter is given at all, the PROT command will # display the current protection values.    Examples: $ prot /libraries/@.@ See protection for all files in /LIBRARIES$ prot message rw/rw/rw Allow full access by everyone % prot groupbox rw/rw/ Allow access only to owner and group members%# prot oldfile rw/r Set access but leave previous group value # prot myfile rw// Only the owner can access the file ! prot myfile /rw/rw Only the owner cannot access the file !& prot safe // No one (except superusers) can access the file& prot 15v See the protection for CI volume 15 # prot 15v rw/rw/r Allow the owner and group members only to #$ create global directories on CI volume 15$  Assume protection on FILE is currently rw/w/r:   prot file r/g/s Change owner access only (result is R/W/R) prot file u/g/rw Change others access only  (result is RW/W/RW)# prot file u/s/s Don't change owner and others access, but #$ change group access to the same as others$ (result is RW/R/R)  prot file s/u/g Shuffle protection around  (result is R/RW/W)     &When the current protection is displayed (the new protection is unspecified)&#for a file mask, PROT actually executes the command "DL P" which #"shows the current protection for all files matching the mask (volume"&protection is displayed without DL). If the new protection is specified, it&is adopted by all files matching the mask. 'To change protection on a file, the user must be the owner of the directory on' which the file resides.  &When a directory is created, the owner is set to the creator, and the default &%protection is RW/R/R. When a CI volume is initialized, the owner is set to %$the one doing the initialization, and the default protection is RW/RW/RW. $ utput file, { Build output file and initialize DS  { Initialize DS { Shut down DS { #{ The routine checks the input, an/RTE_6/HELP/QU.HELP:::3:7:39 644 0 0 3400 5310707570 33643 /RTE_6/HELP/QU.HELP:::3:7:39 $'QU HELP+#w+#x+#xI0yFST ' 92084-17238 REV.5020'QU -- Display or modify system timeslice quantum  Usage: QU [quantum [limit]]  " quantum is the new system timeslice quantum; value must be between " 0 and 32767 milliseconds (default is 1500). limit is the priority level at which timeslicing begins; all # programs of equal or lower priority (higher priority number) # will be timesliced; default is 50.  Examples:  qu Display current timeslice quantum and limit." qu 2000 100 Change timeslice quantum to 2 seconds and limit to a" priority level of 100. Values are displayed in this form:  Q=quantum P=limit  where:  quantum is the timeslice quantum in milliseconds  limit is the priority limit For example:  Q=1500 P=50 indicates:  -timeslice quantum is 1.5 seconds -priority limit is 50   #A program's timeslice quantum is a function of the program's priority #%and the system timeslice quantum. The system quantum is the minimum slice%%allowed. A multiplier is formed from the program priority and is included% in the following equation:   program quantum = system quantum * (1 + priority multiplier)  $The lower the priority (higher priority number), the larger the priority$#multiplier. This privides larger quantums for processes which execute#infrequently.  $For more details in selecting an efficient system timeslice quantum and $limit, refer to the System Manager's Manual./RTE_6/HELP/RP.HELP:::3:5:39 644 0 0 2400 5310707571 33541 /RTE_6/HELP/RP.HELP:::3:5:39 $'RP HELP+#x+#y+#y"yFST ' 92084-17239 REV.5020'RP -- Restore a program file (establish a permanent ID segment)  Usage: RP fileDescriptor [newName] ! fileDescriptor names the type 6 file where the program is kept.! % newName is the name to be used for the program, up to 5 characters. If% defaulted, the first 5 characters of the file name are used.  Examples:  rp /programs/eiko Restore EIKO::PROGRAMS, calling it EIKO  (( rp tide cheer Restore TIDE but call the program CHEER.  'RP sets up an ID segment for the type 6 program file specified. This restores'#the program ID segment, making it available for use by program control#&commands and subroutines that require a restored program (such as SZ and VS). & %The RP'd program remains associated with the session that RP'd it. If the%%program is dormant when the user logs off, the ID segment will be removed.% 'Type "? ru" to find out more about the search path used by the system to find 'the named file. Input internal error }  co_result := ERR_INTINPUT; CheckResult( co_result );   { always terminate here }  BailOut; /RTE_6/HELP/RU.HELP:::3:14:39 644 0 0 7000 5310707572 34245 /RTE_6/HELP/RU.HELP:::3:14:39 $'RU HELP+#y+#z+#zFyFST ' 92084-17240 REV.6000'RU -- Run a program and wait for it to finish  Usage: [RU] programName [parm*5] # The RU keyword is an optional parameter that is only required if the #$ program name is only two characters that are the same as a CI command. $ & programName has up to 5 characters, or is a file descriptor identifying a& type 6 program file.  ' parm*5 is a runstring or parameters to be passed to the program. Up to 256'$ characters (including the implicit RU and delimiters) are passed as a$& runstring; up to 5 single-word (integer or 2-character) values are passed& as parameters.  Examples: " ru experienced a b c Run file EXPERIENCED, with runstring A,B,C "' ru clock 50 4 1983 Run CLOCK, passing it parameters of 50, 4, and 1983' clock 50 4 1983 Same as previous example ! edit,,sc Run EDIT, passing it a runstring of ,,SC ! 'If the named program is not restored, CI restores it and frees the program ID '#segment after it finishes running. CI will modify the program name if#%necessary to make it unique when it restores the program. It first places%$the session ID into the last 2 characters. If a program with that name $%already exists, it will shift the session ID left one character, and place%%an 'A' into the last character. If that fails, it will replace the A with%&a B, then a C, etc.. For example, the cloning sequence for the program EDIT&running on session 45 would be:  ! EDIT --> EDI45 --> ED45A --> ED45B --> ED45C --> ED45D --> etc.!    System Search Path for Programs  $First, the system searches for a restored program by the name specified $$without a file extension or directory. If the directory or a file type $'extension is given, it searches for a program file with the directory and file''extension specified. If the file extension is not specified, a .RUN extension'$is assumed. If the directory is not specified, the working directory is$#searched. If the file is still not found, the ::PROGRAMS directory is#'searched. If there is no working directory, all FMGR cartridges are searched.'&Finally, if the program file still cannot be found, a message is displayed. & 'The search of a program specified in the RU command depends on whether or not ''there is a working directory. The search order for program EDIT specified in '"ru edit" if a working directory exists is:   1. Search for a restored (RP'ed) EDIT. 2. Search for EDIT in working directory. 3. Search for EDIT.RUN in working directory. 4. Search for EDIT.RUN in directory ::PROGRAMS.  If there is no working directory, the search sequence is:   1. Search for a restored (RP'ed) EDIT. 2. Search for EDIT in FMGR disk cartridges.  3. Search for EDIT.RUN in directory PROGRAMS.  $Programs pick up their runstrings via a call to EXEC 14, Pas.Parameters,$RCPAR, RHPAR, FPARM, or another similar routine. &Programs pick up single-word integer or two-character values using a call to&'RMPAR. If an ASCII string is supplied to a program using RMPAR, it is parsed '&into two-character words which are each passed as separate parameters, up to& the maximum of five.  Compare RU with the XQ command. /RTE_6/HELP/SL.HELP:::3:7:39 644 0 0 3400 5310707573 33773 /RTE_6/HELP/SL.HELP:::3:7:39 $'SL HELP+#{+#{+#{c,yFST ' 92084-17241 REV.5020'SL -- Display or modify session switch table Usage: SL [sessionLu [systemLu]] " sessionLu is the session LU to display or modify; if ommitted, the " entire session switch table (SST) will be displayed.  systemLu is the system LU parameter:! number = system LU to which the session LU will point! - = removes the mapping for the given session LU  Examples:  sl Display entire SST. sl 5 Display only the mapping for session LU 5.  sl 5 114 Map session LU 5 to point to system LU 114. sl 5 - Remove the mapping for session LU 5.   The display from the SL command is of the following form:   SLU sess=LU # sys = E eqt S subc status  where:  sess is the session LU  sys is the system LU  eqt is the EQT to which the system LU points" subc is the subchannel of the EQT to which the system LU points"$ status is the current device status; if the device is down, this will$ be the character D, otherwise it will be blank For example:  SLU 14=LU # 27 = E 13 S 3 D $indicates that session LU 14 is mapped to system LU 27, which points to $EQT 13, subchannel 3. The device is currently down. #The SST (session switch table) is defined for a particular account and#$modified (for station configuration information) at logon time. See the$#Terminal User's Reference Manual for a detailed description of the SST#and its purpose. !Compare this with the LU command which deals only with system LUs.!/RTE_6/HELP/SS.HELP:::3:4:39 644 0 0 2000 5310707574 34173 /RTE_6/HELP/SS.HELP:::3:4:39 $'SS HELP+#|+#|+#|yFST ' 92084-17242 REV.5020'SS -- Suspend a running program   Usage: SS [programName]  $ programName has 5 characters or less. The default is the last program $ scheduled from your terminal. Examples: ! ss Suspend the program scheduled last from this session! ss minno Suspend program MINNO  ss lpr45 Suspend LPROG (scheduled at session 45)  'The SS command places the program in operator-suspend state immediately if the'%program is scheduled or executing. If the program is currently dormant or%%suspended for any reason other than an operator suspend, the SS command is%&queued until the program is rescheduled. At that time the program is placed&in the operator suspend state. %Execution of programs suspended with SS may be resumed with the GO command. %The SS command is similar to the EXEC 7 program suspend call. /RTE_6/HELP/ST.HELP:::3:8:39 644 0 0 4000 5310707576 34347 /RTE_6/HELP/ST.HELP:::3:8:39 $'ST HELP+#}+#~+#~?yFST ' 92084-17243 REV.5020' ST -- Program status   Usage: ST [parameter]   parameter is either:  program - return status of given program partition# - return status of given partition number # 0 - return status of currently executing program# Examples:  st proga Gives status of proga.  st 5 Gives status of partition 5.   Program status i((s returned in this form:  prty state res mpt hr min sec csec time where:  prty - program's priority  state - program's state " res - resolution code for time interval defined for the program" mpt - multiplier for time interval defined for the program  hr,min,sec,csec - next scheduled time" time - character T if program is in the time list, blank if not " For example:  41 0 3 5 10 35 12 0 T  indicates:  -priority is 41  -program is dormant (state 0) -will be scheduled every 5 minutes  - resolution is minutes (3) - multiplier is 5  -will be scheduled next at 10:35:12 am  - hours is 10 - minutes is 35 - seconds is 12  - centiseconds (tens of milliseconds) is 0  -is currently in the time list (T)   %Partition status is returned as the name of the program currently residing% in the partition.  $The special construct 'ST,0' returns the name of the currently executing$&program, followed by the partition number in which the program is currently & residing. For example:   CI.77 27  $When the ST,0 command is given from CI, the currently executing program $will always be that copy of CI.   $See the IT and ON commands for information concerning time scheduling a $%program. Also, refer to the Programmer's Reference Manual for details on %the time scheduling EXEC call (EXEC 12)./RTE_6/HELP/SZ.HELP:::3:5:39 644 0 0 2400 5310707577 34002 /RTE_6/HELP/SZ.HELP:::3:5:39 $'SZ HELP+#~+#+#$yFST ' 92084-17244 REV.5020'SZ -- Display or modify restored program size requirements Usage: SZ programName [numPages [msegSize]]  & programName has up to 5 characters. It must be restored already and must& be dormant. ' numPages is the program size in pages for non-VMA programs, or the EMA size'% for EMA programs not including PTE. Its range is from 2 to 1022 for EMA % size. ' msegSize is the new MSEG size for EMA programs. Its range is from 1 to 30.' Examples:  sz ler See the size requirements for LER  sz ler 32 Set the size requirements for LER to 32 pages  %SZ changes the amount of memory the specified program can use when it runs. %%Increasing program size helps programs that use memory at the end of their%'partition for buffer or table space. Such programs include EDIT, LINK, MACRO,''and CI. If the program is OF'd, any temporary sizing done with SZ goes away. 'To change the size permanently, use the LINK program. utine, but it does call !{ each segment's semantic checker. { Side effects may be generated by those routines. { {} $ SUBTITLE 'GetandPrintEMASizes', PAGE $/RTE_6/HELP/TI.HELP:::3:3:39 644 0 0 1400 5310707600 33747 /RTE_6/HELP/TI.HELP:::3:3:39 $'TI HELP+#+#+#AyFST ' 92084-17245 REV.5020'TI -- Display current system time  Usage: TI   The TI command displays the current system time in this format:   year day hour minute second For example:  1983 277 14 38 14  !indicates current time is 2:38:14 pm on day 277 (Oct. 4th) of 1983. !  $The values displayed here are similar to the values returned by the time$%request EXEC call (EXEC 11) described in the Programmer's Reference Manual. % "See the TM command for a different format display of the system time. "/RTE_6/HELP/TM.HELP:::3:5:39 644 0 0 2400 5310707601 33745 /RTE_6/HELP/TM.HELP:::3:5:39 $'TM HELP+#+#+#yFST ' 92084-17246 REV.5020'TM -- Display or set the system clock  Usage: TM [month day year hr:min[:sec] [am/pm]]  $ If the time setting is given, the system's idea of the current time is $ altered:   month is a three-character string from "Jan" to "Dec".  day ranges from 1 to 31.  year is from 1976 to 2144. " hr is from 0 to 23; either 24-hour or 12-hour format can be used." min and sec range from 0 to 59. pm is a keyword useful with 12-hour format. Examples: % tm Display the system's idea of the time % tm mon sep 27, 1982 11:37:13 am Set the system clock tm sep 27 1982 11:37:13 Same as previous example 'Parameters can be entered as TM prints them. Time can be specified in 24-hour'format if desired, with or without seconds.  %Resetting the time affects time scheduled programs and file timestamping, %so alter the system time with caution. message := ''; # Strwrite( message, 1, dummy, '* ', PROGNAMEARRAY[index], ## ' ', ema_avail:1, ' ', ema_used:1 ); # PrintPrompt(/RTE_6/HELP/TO.HELP:::4:8:39 644 0 0 4000 5310707602 34406 /RTE_6/HELP/TO.HELP:::4:8:39 $'TO HELP+#+#+#(yFST ' 92084-17247 REV.6000'TO -- Display or modify device timeout limit Usage: TO eqtNumber [numCentisecs]  eqtNumber is the EQT number of the device.  & numCentisecs is number of 1-centisecond (10 milliseconds, or 1/100th of a&' second) intervals to be used as the timeout for the EQT. If not given, the'$ EQT's current timeout value is displayed. If given, it can be from 0$$ (zero) to 32767. If zero, the timeout limit no longer applies to this $ device. Examples:  to 6 See the timeout for EQT 6 to 6 1000 Set the timeout for EQT 6 to 10 seconds %The time base generator (TBG) generates an interrupt every 10 milliseconds. %%When a program sends an unbuffered I/O request to a device, the system puts %"the program into I/O suspension and begins counting the number of TBG "%interrupts. When the request is fulfilled, the program resumes execution.%&If, however, the number of TBG interrupts exceeds the timeout value defined,&$the program is put into a downed device wait state and the device may be$'"downed." This prevents an off-line or down device from causing a program to ''remain I/O suspended indefinitely. When the program goes into this wait state'%it can be swapped out to the disk and another program can begin execution.%&When the device is once again available to the system, the original program &&can resume execution after the device is UP'd. Type "? up" for help on this&command. 'If you set a timeout value too low for a device, that device may appear to be '$failing when in fact it is performing properly. If the driver times the$&device out before it can respond to a request, the device will appear to be &down.  &To calculate the interval parameter, multiply the desired timeout value (in &seconds) by 100. %When the system is rebooted, timeout values revert to those set at system %generation time./RTE_6/HELP/UL.HELP:::3:2:39 644 0 0 1000 5310707603 34316 /RTE_6/HELP/UL.HELP:::3:2:39 $'UL HELP+#+#+#yFST ((' 92084-17248 REV.5020'UL -- Unlock shareable EMA partition label  Usage: UL partitionLabel  & partitionLabel is a name that identifies a shareable EMA partition label,& up to 5 characters.  Example: ul cavea  &If an EMA program using a shared EMA partition aborts, the partition becomes&&unavailable to other programs. The UL command allows the user to release the &partition./RTE_6/HELP/UP.HELP:::3:3:39 644 0 0 1400 5310707604 34041 /RTE_6/HELP/UP.HELP:::3:3:39 $'UP HELP+#+#+#%yFST ' 92084-17249 REV.5020'UP -- Notify the system that a device is available Usage: UP eqt   eqt is the EQT number of the device to be UP'd. Example: up 8 Tell the system that EQT 8 is ready to work again &The RTE system downs an EQT when an error such as a timeout occurs. The EQT&'remains unavailable until the UP command is given for that EQT. When a device'&is UP'd, any pending requests are retried. It is not an error to UP a device & that isn't considered down. ockets,  aseg_class_n, aseg_resourcn, passedresult );  END;  seg_Nod: BEGIN  SynNod( aseg_smbsize, aseg_ds/RTE_6/HELP/UR.HELP:::3:3:39 644 0 0 1400 5310707605 34173 /RTE_6/HELP/UR.HELP:::3:3:39 $'UR HELP+#+#+#hyFST ' 92084-17250 REV.5020'UR -- Release reserved partition  Usage: UR partition  ! partition is the number of the partition to be released; must be ! from 1 to 64, depending on the system generation. Examples:  ur 15 Releases partition number 15.   $Once this command is entered, any program that can fit into the partition $%may run in it. Note that although partitions may be released on-line, they %$may not be reserved on-line. Reserving of partitions is accomplished at$$generation time or through doing a slow bootup re-configuration. See the $System Manager's Manual for details./RTE_6/HELP/WH.HELP:::3:6:39 644 0 0 3000 5310707607 34335 /RTE_6/HELP/WH.HELP:::3:6:39 $'WH HELP+#+#+#yFST ' 92084-17251 REV.5020' WH -- Display system status  Usage: WH [lu] [option [prog]] # lu is an alternate LU where the display is sent; defaults to the # scheduling terminal. option is the type of status to display:  AL - status of all scheduled and suspended programs $ SM - same as AL except that all state 3 programs not having a $ 'father-son' relationship will not be displayed  PA - status of all partitions being used$ PL - ID segments of all (or specific) programs in the system$ PR - same as PL ! prog optional program name/mask used only by the PL/PR option; !" this may be a program name, or a mask made up of dashes (-) " for wild-card matching of program names.  Examples:  wh pa Display partition status wh 6 al Display status of all programs onto LU 6% wh pl edi-- Display ID segment information on all programs that begin % with the characters EDI   %This command schedules the program WHZAT to return system status. See the%'Utility Programs Reference Manual for details on the WHZAT program, including '!a description of the different outputs possible with each option. ! aseg_class_n, aseg_resourcn, passedresult); END;   seg_PROB:  BEGIN SynPROB( aseg_s/RTE_6/HELP/WS.HELP:::3:5:39 644 0 0 2400 5310707610 34114 /RTE_6/HELP/WS.HELP:::3:5:39 $'WS HELP+#+#+#yFST ' 92084-17252 REV.5020'WS -- Display or modify VMA working set size Usage: WS programName [wsetSize] ' programName has up to 5 characters. It must be a restored program and must' be dormant. % wsetSize, if given, is the new working set size in pages (not including%% PTE). Its range is from 2 to 1022. If unspecified, the named program's % working set size is displayed.  Examples:  ws ext Display the working set size for the program EXT  ws ext 10 Change EXT's working set size to 10 pages &The working set is a number of pages in a VMA user's partition which is used&%to hold a portion of the virtual memory space, including the page currently %!being accessed. Increasing the working set will generally improve!performance, at a cost of more memory for running the program. $This command only works for VMA programs. For EMA programs, use the SZ $command.g_3K_SH: ; seg_MON_SH: ;  OTHERWISE  BEGIN# MsgFilePrint( CINTERR_SEG, PMT_ERROR, segment, passedresult ); # { ignore errors on print }   BailOut;  END;  EN/RTE_6/HELP/PRINT.HELP:::3:19:39 644 0 0 11400 5310707622 35036 /RTE_6/HELP/PRINT.HELP:::3:19:39 $P'PRINT HELP+#+#+# `yFST & 92084-17267 REV.5020&PRINT -- Print files in the background "PRINT supervises the printing of one or more files. It works in the"%background to allow your terminal to be used while the printer is busy, and % ensures that no other output is interleaved with your PRINT job.   USAGE: PRINT [ file | filemask | outputLU | option ] . . . .   file file to be printed (can be several)  filemask files to be printed (can be several) outputLU LU number of the printer (defaults to 6) option as explained below:    +? Give a brief explanation of PRINT. % +A:filename Direct output to the specified filename instead of to %& a printer and append to the current file if it exists.&  +B:banner Print a large-letter, user-defined banner. $ +C:ON/OFF Assume carriage control on/off for all files. PRINT $$ attempts to figure this out if +C is not specified$# by searching for carriage control in the first 70 #% lines of the file (signaled by a '1' in column one).%& If a '1' is not found or any character other than '*',&$ '+', '0', '2', or '3' is found in the first column$% before the 70th line, then PRINT assumes there is no% carriage control information in the file.  " +F:xx Eject xx pages after the last file is printed."  +I:xx Indent each line xx spaces & +M:xx Merge consecutive files with xx blank lines in between&$ them instead of doing a page eject after each file. $  +N Number each line of the file.  % +O:filename Direct output to the specified filename instead of to %& a printe((r and overwrite the current file if it exists.&  +P[:OK] Purge files after they are printed.  % +Q Don't ask (quiet) for verification of files to print% from a given mask. # +S Supress message: 'Print job supervised by PRINx' # # +W:dirname Print the files that follow relative to the given # working directory.  +X:xx Print xx copies of the entire job.  Examples:  print Show active PRINT jobs print /docs/chapter1/section3 Send a file to LU 6  print manual::jws index::jws 7 Print two files on LU 7 # print @.lst +p:ok Print (then purge) all list files ## print @.ftn +i:5 +n Print all FORTRAN sources, number #" each line and indent 5 spaces."& print foo.lst +o:output Print foo.lst to file output. Overwrite &! output if it already exists.!  #Up to 255 characters of the runstring are examined. The printer LU can#%actually appear anywhere in the runstring, but only the last one is used if % more than one is given.  $Each file is preceded by a burst page with a large-letter banner showing$#the filename and the user's name. Multiple files specified in one PRINT #&command do not have blank pages between them, although a top-of-form control&$request is issued to ensure that each printed file begins on a new page.$ If PRINT is run without parameters, a message of the form   program status lu priority owner  ------- ---------------- -- -------- -----  PRIN1 printing 6 99 42 PRIN2 waiting to print 6 100 26 PRIN3 waiting to print 6 99 45 &is displayed. The above sample message shows three active copies. Terminal&&42 first ran PRINT (creating the copy program PRIN1 which is currently being&'printed). Next, terminal 26 ran PRINT to produce PRIN2; lastly, 45 ran PRINT,'producing PRIN3. &The priority column is useful to predict the order in which jobs will print.&&All programs at a given priority will run before any at a lower priority; the &#lower the number, the higher the priority in the PRINT queue. In this#%example, PRIN3 (priority 99) will print before PRIN2 (priority 100) unless%their priorities are changed before either starts printing. D  ELSE  BEGIN { error in question/answer }  CheckSegPrint( internal_result, segment ); BailOut;  END; { error in question/answer }   END; { CheckSemanti/RTE_6/HELP/DL.HELP:::4:34:39 644 0 0 21000 5310707777 35040 /RTE_6/HELP/DL.HELP:::4:34:39 $" p"'DL HELP+#+#+#"zFST ' 92570-17021 REV.6000'DL -- List files in a directory or directories Usage: DL [fileMask [options [output [msc]]]]  & fileMask specifies a set of file names to show. The mask can include any&' or all file descriptor parameters and an optional qualifier. Type "? mask"'% for more information about masks. If unspecified, DL shows all files in % the working directory.  % options tailor the information displayed about files matching the mask.%% If more than one is desired, concatenate them as in "acu". Options are: %  a Time of last access b Files that haven't been backed up flagged with *  c Time of creation $ e Type extension (type extensions are always printed; the e option $ is only used for sorting by type extension)  f File type % l Location of file (displays block address of main file entry and LU % of volume; first block on disk is address 0) m Main file size (in blocks)  n Number of records in file o If open, show program that opened the file % p Protection in the form owner[/group]/others (r = read; w = write)% r Longest record in file (number of words)  s Size of file (number of blocks) t Temporary files flagged with *  u Time of last update w Number of 2-character words in file, up to EOF  x Files with extents flagged with * y Security code (FMGR files only) z Display the contents of symbolic links. ! All of the above  * Equivalent to options fnpswx  + Sorted with lowest first (ascending)  - Sorted with highest first (descending)  % output is an optional file or LU where DL output is sent, defaulting to% your terminal.  # msc is the master security code for the system - needed only if the## security code for the file is requested (i.e., 'Y' or '!' options).#  Examples: ! dl Display all files in the working directory!% dl @.dir Display all subdirectories on the working directory % dl /don/@.dir Display all subdirectories in ::DON % dl a@..c83 -s Display files starting with A that were created in% 1983, sorted with largest size first  dl /scratch/ Display all files in directory ::SCRATCH # dl @::sc y,,hp Display all files on CRN SC with their security #$ codes (only if the master security code is HP) $ dl /users/beth Display file BETH in directory ::USERS# dl /programs/-- Display all two-letter file names in ::PROGRAMS # dl @.@ +l Display files physically near each other ! dl @.@ +e Display all files sorted by type extension!# dl /dev/@:::-1 z Display contents of all symbolic links in /DEV/ #$ dl @.txt +a Display all files with type extension TXT in the$% working directory sorted by time of last access%% dl /foo/b@.@.sc80-83 Show files in directory ::FOO starting with B, with %& any type extension, created in 1980 through 1983.&% The S option in the mask directs a search of all %" subdirectories of ::FOO for similar files. " &The DL command displays a list of the files which match the specified mask in &&a directory or subdirectory. File names are packed as many as possible on a&&line; some options require one or more lines for each file. Unless otherwise &directed, DL sorts its list by file name.  %Preceding an option specifier with + causes the list to be sorted with the%%lowest value first; - causes highest values to appear first. If + or - is%"specified but not followed by another option, DL sorts the file names "accordingly. %The number of files to be sorted at one time depends on the amount of free%#memory in DL's partition. If the number of files overflows the memory#%available to sort them, as many as possible are sorted and displayed. Then %&another list of files is sorted and displayed until all files are displayed.&%Sizing the DL program larger will increase the number of files that can be% sorted at one time.  $Some of the information in the directory is dynamic and may not always be $'accurate, particularly if a file is open or if the last program which accessed'%that file failed to close the file. This information includes access time, %&total size, time last updated and words in file (shown with options A, S, U,&and W).  %FMGR files contain much less directory information than hierarchical files, %&so many items are not included in the DL listing (such as time stamps). Only &$options F, L, M, O, R, and Y are displayed for FMGR files; DL ignores any $ other options specified.  %The master security code parameter is needed only if the user is requesting %$file security codes to be printed. If the master security code given is$$incorrect, the security codes will not be displayed with the rest of the$$file information. Note that if the master security code is zero, then by $definition any value given will match.$When a symbolic link points to an existing file and DL is used to display $#the directory attributes of the symbolic link, the attributes of the##file pointed to by link are displayed. To see the attributes of the #!symbolic link file itself, the 'L' mask qualifier must be used. !#(See '? mask' for more information about mask qualifiers.) Note that#!when the 'Z' option is specified to DL, the 'L' mask qualifier is !automatically appended to the mask.  $The protection displayed depends on whether the associated group for the$%directory is NOGROUP or another group. If it is NOGROUP, group protection%&is not displayed (rw/r). Otherwise, group protection is displayed (rw/rw/r). & Sample displays and explanations of DL's headers:   CI> dl,,! directory ::DEMO $ name ex ba tmp prot type msize blks words recs rlen addr/lu$ $ COPY.REL * rw/r /r 5 86 86 6312 127 128 7908/38$ create time Wed Jan 12, 1983 9:39:13 am  access time Wed Jan 12, 1983 9:47:09 am  update time Wed Jan 12, 1983 9:16:47 am  $ COPY.SRC * * rw/r /r 4 92 184 13418(( 820 38 8390/38$ create time Wed Jan 12, 1983 9:14:33 am  access time Wed Jan 12, 1983 9:44:29 am  update time Wed Jan 12, 1983 9:14:35 am  Headers indicate:   ex Extent; * means the file has extents' ba Backup; * means the file hasn't been backed up since its last change' tmp Temporary; * means the file is a temporary file  sc Security code; only displayed for FMGR files msize Size of main file in blocks  blks Total number of blocks in main and extents words Number of words, up to the end-of-file mark  recs Number of records in the file  addr/lu Block address of beginning of file / LU of volume  %Sorting-direction flags (+ and -) sort by the next option specified, or by%%file name if not followed by an option. Thus, to sort files by location on %the disk (plus show other information):   CI> dl @ -l*m directory ::DEMO  name ex prot type msize blks words recs addr/lu  COPY.SRC * rw/r /r 4 92 184 13418 820 8390/38 COPY.REL rw/r /r 5 86 86 6312 127 7908/38 $When sorting by location (l option), the LU is the primary sort and block $$address is the secondary sort. Normally, the LU sort is inconsequential$"(since all files within a directory reside on the same LU). This is"#significant, however, when listing the global directories ('dl /'). In #$this case, if sorting by location, the global directories will be sorted$by LU first, then by location within each LU.   FMGR files have only limited directory information:   CI> dl &fdlp::db !  directory ::DB  name sc type msize rlen addr/lu  &FDLP 0 7 202 0 1421/45 &Note that blks, words, recs, and time stamps aren't shown. FMGR directories&!lack much of the information provided by hierarchical directories.!/RTE_6/HELP/MASK.HELP:::4:43:39 644 0 0 25400 5310710000 33750 /RTE_6/HELP/MASK.HELP:::4:43:39 $+ +'MASK HELP+#+#+#+ z8FST ' 92570-17022 REV.6000'#Mask -- A file descriptor (usually containing wildcard characters) that # specifies a range of files. Its form is:   fileDescriptor.maskQualifier &The fileDescriptor, explained below, includes the extension. So one example&&of a mask is /TEACHER/CLASSES/@ATTENDANCE.TXT.c83 (notice two periods: one to &%introduce the extension and one for the qualifier). Masking characters for %file names and extensions are:  @ meaning zero, one, or more characters  - meaning any single character (except a blank)  "The maskQualifier is separated from the fileDescriptor with a period. "Recognized forms:   (user.group) Mask by specified user (See user masking, below)  a Access time stamp mask (see Time stamps, below)  b Only files that have not been backed up  c Creat time stamp mask (see Time stamps, below)" d Include all files in a directory if the directory name matches"# e Everywhere: search all mounted volumes, including FMGR cartridges #& g Do not search symbolic links to directories. (See symbolic links below) &% k Same as S below except cancels D above and enables full match levels% l Return directory information of symbolic links. (See below)  m Return extent entries on FMGR directories  n No directories; opposite of the D qualifier  o Open files only p Purged files only & s Search all subdirectories of this directory or, if global directories,& search all new file directories (excludes FMGR cartridges) t Temporary files only  u Update time stamp mask (see Time stamps, below)  w Walk (do not run) thru FMGR directories (see below)  x Only hierarchical files with extents y Return correct extent information on directories (requires  an additional disk access for each directory)  Time stamps and ranges are legal in qualifiers. The form is:   [a|c|u][firstTime][-][endTime]   a Accessed c Created  u Updated   firstTime and endTime are specified in timestamp format: " YYMMDD.HHMMSS and can be truncated on the right for the resolution "! desired. firstTime defaults to time zero (January 1, 1970) and!! endTime defaults to now. If no endTime or range-dash is given,!" firstTime means an absolute time such as 830415 (April 15, 1983),"" 8304 (April 1983), or 83 (1983). Years from 00 to 37 mean 2000 to "" 2037 (time stamps can only record dates through 2037). Directory"# files are not masked by time stamp as their times are never changed. # !User masking is accomplished by specifing the user name as follows: ! # (user.group) or (@.group) or (user.@) or (user) or (user.) or (@.) # The first form returns only files belonging to the given user. The second form returns only those files belonging to users in the specified group. ! The third form returns only those files belonging to the given ! user no matter what group on RTE-A. On RTE-6/VM this form  implies the GENERAL group.  The forth form is the same as the third. # The fifth and sixth forms will return files in NOGROUP on RTE-A and#" files that have no group specified on RTE-6/VM. (These files" were created with pre 5.0 software.)  !"Walk" vs. "run" on FMGR cartridges: FMGR directries are written in !# stagger fashion on the disk. This means that they must be accessed#! in this way in order to find the files in the same order as they ! appear in the directory. If the order is unimportant in the " application, a performance improvement can be had by accessing the "" directory without the stagger. The masking routines will use the"$ fast way (refered to as running) unless the W qualifier is set or the$# buffer area supplied is 8k (in this case there is no speed gained by # running). $K is useful in CO commands where the directory structure is to be copied$! but only files matching the mask are wanted. D is set by CO and !# causes all files in matching directories to be copied. K overrides## the D, while retaining the directory structure. S does not override #" the D. If D or K is not present, the directory structure is lost. "  Symbolic links: By default, masking returns directory information ! for the file to which a symbolic link refers. The 'L' qualifier !# should be used when the directory information for the symbolic link#$ itself is desired. Masking also, by default, searches symbolic links$" to subdirectories when the D, K, or S qualifiers are present. The "# 'G' qualifier inhibits the search of symbolic links to directories.## The 'E' qualifier implies 'G' to avoid searching the same directory## mulitiple times. Also, masking by a disk LU number implies both the # 'G' and 'L' qualifiers. (Enter "?,symlink" from CI for more  information on symbolic links.) Examples:  @ All files in the working directory# @.dir All subdirectories in the working directory # /programs/ All files in ::PROGRAMS  /guide/@. All files with no extension in /GUIDE % /fmp/src/@.ftn.c84 All FORTRAN sources in /FMP/SRC created in 1984 %% @.@.xe:::4 All type 4 files everywhere which have extents%% /system/@.@.s(john.doe) All files in SYSTEM and its subdirectories that % belong to JOHN in group DOE.! @.@:::4 All type 4 files in the current working !$ directory including symbolic links to type 4$ files. ! @.@.l:::4 All type 4 files in the current working !$ directory excluding symbolic links to type 4$ files.  A "file descriptor" specifies a file using any or all optional$parameters including file attributes (size, numeric type, record length)$ and directories. File descriptors longer than 63 characters are silently truncated by the file system. Upper and lowercase is equivalent. Legal forms:   /globalDir/subdir/fileName.ext:::numericType:size:recLength -- or --  subdir/fileName.ext::globalDir:numericType:size:recLength Examples:  janedoe File name with no extension  janedoe.txt File name with TXT extension /earth/northamerica/usa/ohio/yourtown/mainstreet/janedoe.txt # macro.err::system:1:100 Type 1 file, 100 blocks long, in /SYSTEM#' asia.dat:::2:49:64 Type 2 file, 49 blocks long, 64 words per record' $Note how "subdir" (if needed) can be extended in order to specify deeper$ levels of directories.   File names are from 1 to 16 printable characters long. The first #character must not be a number. Punctuation (except for an underscore#(_), which is often useful for readability) is legal but notrecommended. #Extensions describe the content of the file, and are separated from the ##file name with a period. (Do not confuse extensions with file extents, #which are overflow areas managed by the file system.) Standard "extensions are three characters long; non-standard ones can be up to"four characters.  An extension is part o((f the file name and must be specified if it exists. Thus, PHONELIST with no extension is different from#PHONELIST.TXT, and both may safely reside in the same directory. Blank ##extensions (also known as null extensions, or no extensions) are legal; #"the separating period can be omitted with these. Standard extensions " and their meanings are:   .cmd CI command file .dat data file  .dbg Symbolic Debug file  .dir directory or subdirectory entry  .doc document file  .err error message file .ftn FORTRAN source file  .ftni FORTRAN source include file  .help Help file .hlp Help file  .lib library of relocatables  .lod loader command file  .lst compiler listing  .mac Macro source file  .maci Macro source include file  .map load map listing  .mlb Macro library file .mnf manual numbering file  .mrg merge control file .pas Pascal source file .pasi Pascal source include file .rel relocatable (binary) file  .run program file  .snp system snapshot file .spl spooling system file (RTE-A only)  .sys system file .txt text file  #Directories and subdirectories have the same naming conventions as file #"names. Global directories have an initial slash (/) or are preceded"#with two colons (::), and specify an absolute path to a file regardless #of the working directory. Getting into a working directory or"subdirectory often saves many keystrokes over repeatedly specifying a "full path name.  "Numeric types (as contrasted with file type extensions) indicate the"structure of the file. Standard numeric file types:  -1 Symbolic link to a file or directory. (See ?, symlink)  0 An I/O device as accessed by FMP; has no directory entry 1 Fixed 128-word record length; rapid random access  2 Fixed user-defined record length; rapid random access  3 Variable-length records; sequential access 4 Same as type 3; ASCII text! 5 Same as type 3; relocatable binary compiler/assembler output! 6 Memory image of executable programs; similar to type 1 7 Memory image of absolute binary programs #Size, specified in blocks, indicates how much disk space the file uses. #"One block is 128 words (256 characters or bytes). Sizes larger than"#32767 are specified as the negative number of 128-block chunks: 50,000#"blocks have a size of -391 (equal to -50,000/128). Sizes larger than "!32767 but specified as a positive number will not be what you want: !"specifying a size of 36214 is converted by the file system into 13110 "#blocks. In general, let the file system decide how large to make your#files. #Record length tells how many words are in each record for type 2 files. #"Other file types (3 and above) have a reported record length equal to ""the length of the longest record. One word equals two characters or"bytes./RTE_6/HELP/CLOSE.HELP:::4:4:39 644 0 0 2000 5310710011 33750 /RTE_6/HELP/CLOSE.HELP:::4:4:39 $ 'CLOSE HELP+#+# +# zfFST 'CLOSE -- close files open to TRFAS 92570-17029 REV.6000'  Usage: close filedesc  # filedesc : must contain the full path of the file to be closed.#  " The CLOSE utility closes files open to the DS transparency monitor" TRFAS. Files can be closed on either the local system or on a remote system. Note that the full path name of the file to be # closed must be specified. If a file being closed was opened using#! a specified logon name, the logon used to open the file must be! included in the filedescriptor passed to CLOSE.   examples :  CI> close /directory/file (At local node.)  % CI> close /directory/file>node[user/pw] (At local or remote node.) %  must be! included in the filedescriptor passed to CLOSE.   examples :  CI> close /directory/file (At local node.)  % CI> close /directory/file>node[user/pw] /RTE_6/HELP/WHOSD.HELP:::4:14:38 644 0 0 7000 5310710030 34463 /RTE_6/HELP/WHOSD.HELP:::4:14:38 $ &WHOSD HELP+#+#+#SzlFST & 92570-17067 REV.6000&WHOSD -- Report users of a CI file/directory or volume  Usage: whosd [-t] [-m idmask] file|directory|lu  Description: $ WHOSD displays all of the users of a specified file, directory, or$# volume. Directories may not be purged while they are in use and#$ CI volumes may not be dismounted from the system while they are in$ use. " A file is in use when it is open by any process, or if it is an " active type 6 file.  A directory is in use when it is being used as a working# directory, when it is included in a user's UDSP, when any active## program's type 6 file resides in the directory, or when any file# is open in the directory.  The output of WHOSD can be redirected to an output file by " specifying either '>filename' or '>>filename' in the runstring. "! The output file specified must be delimited by commas and is!! position independent. If the file already exists, it will be !# overwritten. To append to a file, '>>filename' can be used. If# the file does not already exist, it will be created. # If an output file is not specified, WHOSD breaks the output into# screen pages. Paging is disabled when an output file is" specified. So, for example, to output to the terminal without"" paging, specify '>1' on the command line. Multiple redirection " strings may occur in the runstring; however, only the last  redirection is executed. Options:# -t : Trace ID segments and proto-IDs back to a file name. #" -m idmask : Check only those id segments and proto-id segments " whose names match the mask.Return values:# WHOSD will return, in $RETURN1, the number of uses found for the## specified file, directory or volume. If an error is encountered, # WHOSD will return a negative number. Examples:  # The following example will show all of the current uses of LU 19. #  CI> whosd 19  Directory - /HOMEDIR is being used by USER(115) ! Directory - /MOREPROGS is being used by USER(115) in a UDSP.! Program - CI/115 is RPed from LU 19  Program - DL/115 is RPed(proto) from LU 19 File - /LOGS/NS_EVENT.LOG open to EVMON  $ In this example the '/MOREPROGS' directory will be scanned for all$ uses. Any active program that resides on the same LU as '/MOREPROGS.DIR' will be traced back to its type 6 file to  determine if it resides in '/MOREPROGS.DIR'.  CI> whosd -t /moreprogs " Directory - /MOREPROGS is being used by USER10(115) in a UDSP." Program - CI/115 is RPed from /MOREPROGS/CI.RUN # Scan '/MOREPROGS' for working directories, UDSPs, and also check# only those id segments starting with the letter 'C'.  CI> whosd -m c@ /moreprogs" Directory - /MOREPROGS is being used by USER10(115) in a UDSP." Program - CI/115 is RPed from /MOREPROGS/  # The following example will enable the trace option and log all of # the users of LUs 19 and 20 to the file 'USERS.LST'.   CI> whosd -t >users.lst 19 CI> whosd -t 20 >>users.lst /RTE_6/HELP/FOWN.HELP:::4:7:39 644 0 0 3400 5310710033 33655 /RTE_6/HELP/FOWN.HELP:::4:7:39 $ 'FOWN HELP+#+#+# z|FST ' 92570-17070 REV.6000'FOWN -- Indicate amount of file space used by owners  Usage: FOWN [fileMask]  $ fileMask describes the set of files to scan, defaulting to all files.$ More information on masking is available by typing "? mask".  Examples: # fown Show space and owners for all files in the system#% fown @.@.e:::6 Display information about all type 6 files everywhere%# fown /home/ (( Display information about files in directory HOME# #FOWN scans the files named by fileMask, displaying the total disk space ##used by each owner. It also displays the total disk space used by all#"files matching the mask. The default mask is @.@.sg, which displays"information about all files in size order. Symbolic links to $directories are not followed. This can be analyzed to identify users or$classes of files that may be using excess disk space.  $If FOWN is unable to identify the owner of a file, it reports the system$#number corresponding to the owner in the form "Unknown (number)". This #&typically means the file owner is no longer a user on this system. Owners of &files on remote systems are always shown as numbers. %The message "FMGR files not scanned" indicates that some FMGR files matched %%the mask but were not counted, since FMGR files contain no ownership infor- %mation.  %FOWN reports only the total space used if one owner owns every file in the%mask. /RTE_6/HELP/CALLS.HELP:::4:36:39 644 0 0 22000 5310710034 34437 /RTE_6/HELP/CALLS.HELP:::4:36:39 $$$'CALLS HELP+#+#+#$zFST & 92570-17077 Rev.6000 &Calls -- online help facility  &The Calls utility provides a general-purpose help facility, used either as a&$help subsystem for other programs or as the interface to a "database" of$&information grouped by keywords. Calls looks up keywords entered by the user &"in a catalog containing definitions of keywords and associated text,"$displaying that text. Additionally, the catalog can specify hierarchical $&groupings of keywords and can suggest related keywords that may be of further &interest after the text for a certain keyword is viewed.  The runstring syntax is:   Calls [-flags] [keyword] where  & flags is a string of characters preceded by a dash (-). Where an &$ argument is required, the next word in the runstring is $% consumed, delimited by blanks or a comma. The flags are: %  C catalog & The name of the Calls catalog to use. By default, && directory "/Catalogs/" and type extension ".call"&& are added to the given name. The default catalog& is "/Catalogs/Calls.call".   L listfile  $ Divert the text listing to the named file. By $# default the text is listed to the terminal.#  P pagesize  $ Set the number of lines per page for "More..." $% prompting on the terminal. The default size is% 22 lines.  B  # Build the index file and terminate. See the # discussion below on index files.   # keyword is the keyword for which the associated text is to be # listed. If not given, then the default keyword ! ("[default]") for the selected catalog is listed. ! %For example, "calls -c utils -p 5" and "calls -cp utils 5" both use catalog %"/Catalogs/Utils.call" and five lines per page.  $At certain times Calls may prompt you to select another topic to display$with:   Put cursor on desired name or type new name, press return. 'This occurs when no topic keyword is given in the runstring, or when a mask is'&given. This also occurs when the topic selected has other topics associated&with it, which you may want to also read.  %When you press carriage return, Calls reads the line under the cursor from%%the screen, isolates the word under or to the left of the cursor, and uses%%that word as the new topic name. If there is no word to the left or under%%the cursor, Calls looks to the right of the cursor. If there is no word on %%the line at all, Calls terminates. Calls isolates the word by looking for%&blanks, commas or ')'s. To terminate Calls, type carriage return on a blank&line.  &If an unknown keyword is given, Calls lists the 16 keywords in ASCII-betical&#sequence around the given keyword, and then goes interactive as above.# %The catalog is a text file, possibly compressed by the CallM utility, which %%acts as a data base containing keywords and explanatory text. The default%&catalog name is actually based on the name by which Calls is scheduled (that&%is, the second word in the received runstring). If Calls is RP'ed under a%&different name or the .RUN file is renamed, the new name becomes the default&&catalog name for that copy. For example, "rp calls utils" and then executing &UTILS uses default file "/Catalogs/Utils.call".  &The first time Calls is run on a catalog and after subsequent updates of the&&catalog, Calls builds a file called the index file in the same directory and&$with the same name as the catalog, but with type extension ".indx". More $&specifically, if the index file is missing or has an update timestamp that is &%older than the corresponding catalog, Calls rebuilds the index file. Calls %#will also attempt to rebuild the index if it appears that the index is#$invalid for the catalog, even if the update timestamps are in order. The $&index contains FMP internal file position pointers into the catalog file for&$the various topics, plus the keyword list and associated topic groupings. $%This means that the first person to run Calls on a catalog after an update%%must have write access into the catalog directory for the index file to be%%successfully created. It is suggested that the system manager installing a %$new catalog immediately run Calls on the catalog with the "-b" option to$build the index. %Calls catalog files may be plain text files in the format given below, but%%more commonly the final catalog is built by the CallM utility, which merges %#together plain text files and performs text compression on the result.#&Additionally, CallM can extract Calls catalogs from comments in source code.&"Enter "? callm" from CI for more information about the CallM utility. " &A catalog file consists of explanatory text lines and Calls directives. The&Calls directives begin in column 1, and are:  .topic primarykey [, aliaskey, aliaskey ...] & Begin a new topic. is the official name of this topic, &$ a string of up to 64 characters not containing blanks or commas. $& is an alias name following the same syntax; the user can&& receive help on this topic by specifying either the or& any of the s. & The next line of text (that is, which is not a Calls directive) will &! be used as the one-line description for this topic. This!% description will appear along with the when the topic %" explanation is read, and for any "associated topics" menus." % Any subsequent text lines are printed verbatim by Calls when this%% topic is read, until a subsequent ".end" or ".topic" directive is% found.   .group key [, key ...] % Used within a topic, joins this topic to a group of related topics %& given by the named keys. Each may name a primary key used for && a topic elsewhere, or may be used solely in the ".group" directives&$ for the related topics. A discussion on related topics appears$ below.   .page  % Forces a page break ("More..." prompt) at the current location in% the explanatory text, if the listing is to the terminal.   .see key [, key, key ...]  % "See also", relates the named keys to the current topic, such that %# a menu of the named keys is presented after this topic text is #% read, and the user is invited to select one of these keys for more % help. A discussion on related topics appears below.   .end  Terminates the current topic. %There is one directive in this format, ".include", that is recognized only%$by the CallM utility. See the help on that program for more information. $ %Two Calls directives are used to "relate" topics to other topics: ".group" %"for topic groupings, and ".see" for referrals to "see also" topics. " %A topic grouping occurs when several topics use the same key in a ".group"%&directive. When the user requests help on that key, a menu of all the topics &that belong to this group is presented. For instance,  .topic help, ?, ?? .group commands  Help!    .end  .topic exit, quit .group commands Exit this program    .end If the u((ser requests help on "commands", Calls answers with:  The following topics are associated with "commands":  help -- Help!  exit -- Exit this program   Put cursor on desired name or type new name, press return.  %If "commands" were used as a primary key for its own topic, that text would %%be listed before this menu is given. For example, some general information %$about command entry could be given before the menu of actual commands is$presented. $".see" is used within a topic to refer the user to other topics which may $&be of interest. A similar menu of those topics is printed after CALLS lists&the current text block. For example,  .topic blarghs  one-line description of blarghs   blarghs rely heavily on frizdits and fruminators  .see frizdits, fruminators .end .topic frizdits   : etc.  /RTE_6/HELP/CALLM.HELP:::4:14:39 644 0 0 7000 5310710036 34234 /RTE_6/HELP/CALLM.HELP:::4:14:39 $('CALLM HELP+#+#+#\zFST & 92570-17078 Rev.6000 &CallM -- Build input text file for the Calls program &CallM merges together a number of text files that contain input to the Calls&%program and creates a single compressed file suitable for reading by Calls. % The runstring is:   callm [-options] commandfile destfile where  options % is a string of one or more of the following characters preceded by a% dash:   l suppress listing the names of files read  o overlay an existing destfile ! v verify that an existing destfile should be overlaid! c inhibit text compression of destfile   commandfile% is the name of a file containing a list of text files to be read, one %% per line. The Calls input is extracted from each of these files and% merged into destfile.   destfile % is the name of the destination file, to be used as an input file for%& Calls. If compression is performed then this file will be of file type & 6004.  %Compression is performed via the CompressAsciiRLE routine. As explained in %#the Relocatable Libraries Reference Manual, this compression cannot be#%performed on characters that use the eighth bit of the ASCII code, such as%!binary data or extended ASCII character sets (Kanji, for example).! 'The commandfile is a file in format similar to MERGE command files. Each line'&contains either the name of an input text file to be merged into destfile, or &&the line contains a comment prefixed with "* ". Each input text file may be&$the compressed output of a previous CallM execution if it is of file type $&6004. The suggested file type extension for CallM command files is ".CMRG".& "The text files may be program source code that contain Calls input in "&comments, where the comment must start with character "*" or "{" in column 1, &#and be immediately followed by the Calls directive or explanatory text. #&CallM will include in the destfile only lines between and including ".topic"&%and ".end" Calls directives, leaving out the intervening source code. If a %%plain text line not within a source code comment begins with either "*" or%$"{" in column 1, then that character must be doubled, such that the first $one is discarded as a comment character. #CallM processes an additional directive that includes another text file ##into the output file at the position where the directive is given. The #syntax is:  .include  These directives cannot be nested. $An example of source code input in FORTRAN or MACRO format is as follows: $  *.topic mysubroutine *.group subroutines  *one-line description of mysubroutine  *  *Calling sequence:  *  * call mysubroutine(parm1,parm2) *  * : etc.  *  *.see otherroutine  *.end   A Pascal example is:   {.topic myprocedure  {one-line description of myprocedure {  {Calling sequence:   : etc.   {.end  {} &Note the closing brace on the last line which terminates the Pascal comment.& &See the help for program Calls for information about that program, and about&the text input format expected. HPHPHP::DS1000:4:24:34 644 0 0 14400 5302765453 31531 HPHPHP::DS1000:4:24:34 $ G"@3HPHPHP + +$s;+ +0 2vzFST * "* MATERIAL LIST: 91750-13310 REV: 6000 CT-DS/1000 2204"* * (SAME AS MATERIAL LIST: 91750-13502 REV: 6000 ) * (SAME AS MATERIAL LIST: 91750-13600 REV: 6000 ) * * Directory: /DS1000/ * 91750-12001 6000 01 01 5 /DS1000/$DSLB1:::5:4691750-12002 5020 01 01 5 /DS1000/$DSLB2:::5:6991750-12003 2540 01 01 5 /DS1000/$DSLB3:::5:8 91750-12008 2440 01 01 5 /DS1000/$DSMA:::5:31 91750-12010 2440 01 01 5 /DS1000/$DSNMA:::5:2 91750-12011 2013 01 01 5 /DS1000/$DSNRR:::5:2 91750-12012 2340 01 01 5 /DS1000/$DSNSM:::5:2 91750-12013 2226 01 01 5 /DS1000/$DSRR:::5:29 91750-12014 5020 01 01 5 /DS1000/$DSSM:::5:85 91750-12015 5020 01 01 5 /DS1000/$DSLSM:::5:6691750-12016 2201 01 01 5 /DS1000/$D3KL2:::5:2 91750-12017 5020 01 01 5 /DS1000/$D3KLB:::5:102 91750-12018 2201 01 01 5 /DS1000/$D3KRB:::5:3 91750-12019 2201 01 01 5 /DS1000/$D3KBB:::5:3 91750-12021 2201 01 01 5 /DS1000/$D3KMB:::5:3 91750-12023 5020 01 01 5 /DS1000/$DSMX6:::5:3291750-12027 5020 01 01 5 /DS1000/$DSAL:::5:32 91750-12028 2440 01 01 5 /DS1000/$D3X25:::5:1391750-12029 2401 01 01 5 /DS1000/$D3N25:::5:2 91750-16040 6000 01 01 5 /DS1000/%APLDL:::5:4 91750-16048 2340 01 01 5 /DS1000/%CNSLM:::5:4 91750-16049 2013 01 01 5 /DS1000/%COMND:::5:5 91750-16068 5020 01 01 5 /DS1000/%DINIT:::5:4691750-16069 5020 01 01 5 /DS1000/%DINIS:::5:5291750-16072 5000 01 01 5 /DS1000/%DLIS1:::5:1391750-16073 5000 01 01 5 /DS1000/%DLIS2:::5:1291750-16077 5020 01 01 5 /DS1000/%DSINF:::5:7491750-16078 5020 01 01 5 /DS1000/%DSIN2:::5:6691750-16079 5020 01 01 5 /DS1000/%DSINL:::5:6991750-16092 5020 01 01 5 /DS1000/%DSMOD:::5:3891750-16100 2013 01 01 5 /DS1000/%DSTES:::5:2 91750-16102 5020 01 01 5 /DS1000/%DSVCP:::5:1691750-16105 4010 01 01 5 /DS1000/%DVA65:::5:1591750-16107 2326 01 01 5 /DS1000/%DVA66:::5:2791750-16108 2201 01 01 5 /DS1000/%DVG67:::5:2691750-16109 2201 01 01 5 /DS1000/%MDV00:::5:1191750-16111 5020 01 01 5 /DS1000/%EXECM:::5:1791750-16112 5000 01 01 5 /DS1000/%EXECW:::5:6 91750-16124 5020 01 01 5 /DS1000/%GRPM:::5:15 91750-16126 5010 01 01 5 /DS1000/%ID*66:::5:2791750-16129 2340 01 01 5 /DS1000/%INCNV:::5:1091750-16130 5020 01 01 5 /DS1000/%IOMAP:::5:6 91750-16132 2540 01 01 5 /DS1000/%LOG3K:::5:1691750-16133 5000 01 01 5 /DS1000/%LUMAP:::5:1091750-16134 2201 01 01 5 /DS1000/%LUQUE:::5:3 91750-16136 5010 01 01 5 /DS1000/%MATIC:::5:5 91750-16142 2440 01 01 5 /DS1000/%OPERL:::5:6 91750-16143 2140 01 01 5 /DS1000/%OPERM:::5:3 91750-16144 2440 01 01 5 /DS1000/%OTCNV:::5:7 91750-16147 5020 01 01 5 /DS1000/%PLOG:::5:18 91750-16150 5240 01 01 5 /DS1000/%PROGL:::5:1491750-16151 2340 01 01 5 /DS1000/%PTOPM:::5:8 91750-16152 5020 01 01 5 /DS1000/%QCLM:::5:18 91750-16153 2401 01 01 5 /DS1000/%QUEUE:::5:4 91750-16154 2340 01 01 5 /DS1000/%QUEX:::5:21 91750-16155 5020 01 01 5 /DS1000/%QUEX1:::5:1391750-16156 2201 01 01 5 /DS1000/%QUEZ:::5:291750-16157 2401 01 01 5 /DS1000/%QUEZ1:::5:2 91750-16159 6000 01 01 5 /DS1000/%REMAN:::5:4291750-16162 2440 01 01 5 /DS1000/%RESM:::5:12 91750-16163 2440 01 01 5 /DS1000/%RESSM:::5:1391750-16164 2440 01 01 5 /DS1000/%RFAM1:::5:1091750-16165 2440 01 01 5 /DS1000/%RFAM2:::5:2991750-16167 5020 01 01 5 /DS1000/%RMOTE:::5:2291750-16168 5020 01 01 5 /DS1000/%RMOT1:::5:4091750-16169 2013 01 01 5 /DS1000/%RMTIO:::5:1291750-16170 5020 01 01 5 /DS1000/%RPCNV:::5:1291750-16171 5020 01 01 5 /DS1000/%RQCNV:::5:2091750-16172 5020 01 01 5 /DS1000/%RSM:::5:1491750-16173 2301 01 01 5 /DS1000/%RTRY:::5:491750-16176 2113 01 01 5 /DS1000/%SLCIN:::5:1991750-16177 5020 01 01 5 /DS1000/%TLOG:::5:49 91750-16178 5020 01 01 5 /DS1000/%TRC3K:::5:5191750-16179 5020 01 01 5 /DS1000/%UPLIN:::5:1291750-16180 2226 01 01 5 /DS1000/%VCPMN:::5:3 91750-16202 5020 01 01 5 /DS1000/%SYSAT:::5:3 91750-16208 2140 01 01 5 /DS1000/%#SEND:::5:5 91750-16212 5020 01 01 5 /DS1000/%MVCP3:::5:1391750-1621((3 5000 01 01 1 /DS1000/!COPY3:::1:4891750-16221 2013 01 01 5 /DS1000/%#SPLU:::5:1 91750-16226 5240 01 01 5 /DS1000/%PROGZ:::5:1591750-16234 2201 01 01 5 /DS1000/%SGXL:::5:691750-16240 2140 01 01 5 /DS1000/%EDI6D:::5:4191750-16241 2140 01 01 5 /DS1000/%DVS64:::5:2591750-16242 2326 01 01 5 /DS1000/%IDS64:::5:2491750-16243 2140 01 01 5 /DS1000/%FCL7:::5:791750-16263 5020 01 01 5 /DS1000/%DSLIN:::5:8191750-16268 6000 01 01 5 /DS1000/%CSV66:::5:1691750-16269 6000 01 01 5 /DS1000/%CXL66:::5:1791750-16283 2540 01 01 5 /DS1000/%RESA:::5:15 91750-16286 5270 01 01 5 /DS1000/%ADV00:::5:1391750-16292 2340 01 01 5 /DS1000/%DDA66:::5:1891750-16293 2340 01 01 5 /DS1000/%MDFCL:::5:4291750-16300 2401 01 01 5 /DS1000/%DVB65:::5:1591750-16527 5000 01 01 5 /DS1000/%WHZ6D:::5:5191750-17004 5010 01 01 4 /DS1000/#RMOTM:::4:8 91750-17005 2540 01 01 4 /DS1000/#RMOTA:::4:8 91750-17007 5010 01 01 4 /DS1000/#LKDS:::4:191750-17008 6000 01 01 4 /DS1000/*LDDS:::4:30 91750-17009 5010 01 01 4 /DS1000/LINK2:::4:791750-17010 6000 01 01 4 /DS1000/Y.CMD:::4:36 91750-17011 6000 01 01 4 /DS1000/YES:::4:36 91750-17012 5010 01 01 4 /DS1000/NO:::4:3 91750-17013 5010 01 01 4 /DS1000/N.CMD:::4:391750-17014 5010 01 01 4 /DS1000/README:::4:1691750-17999 6000 01 01 4 /DS1000/A91750.MNF:::4:9 91750-18999 6000 01 01 4 /DS1000/A91750:::4:36* * END MATERIAL LIST * IAL LIST: 91750-13502 REV: 6000 ) * (SAME AS MATERIAL LIST: 91750-13600 REV: 6000 ) * * Directory: /DS1000/ * 91750-12001 6000 01 0$DSLB1::DS1000:5:46:128 644 0 0 27000 5302722230 33623 $DSLB1::DS1000:5:46:128 $. G.$DSLB1 + + + .zFST >>XQo,DSLB1 91750-12001 REV.6000 ALL $Date: 92/08/10 13:07:16 $ /MM/SRC/&DSLB1>@בQ<<Xŝ;&GET 91750-1X122 REV.2540 ALL $Date: 89/04/18 12:06:30 $ /MM/SRC/&GET<0JACEPT FINIS GET REJCT 22 " #GETR #LDEF #LOGR #PLOG #RPB#SLAV .ENTR .MVWEXECPGMAD 2h@@AhxJhxp瀀`(hXpP(pp0p $ (`h` h P78 (p(>A877 E@>> (7G`GhH` (ih (ihI (x{xcAP(g e  ((i` p`0 p h (rHP` 0@p p p A}(J$~@@p x눀hxx xxHxJ`(AhxJ`hp`(j`pAp p`p HhH p 8x (hX}}JJ (hA`pp `p  x`(h(ب`pЀ``(@`  %}@>>XZŝ)%DSERR 91750-1X076 REV. 2013 ALL $Date: 89/04/14 10:35:41 $/MM/SRC/&DSERR> MDSERR #RQB.ENTR .MBT.SBT?@@Ah6x`p`p`p`p`@p|``(`hx9x|h(,`hy9x`hz9~@{@}Hpw(Dpwbb|@33(a`rxv`jpu`opspthw u8uxw(Uht (Z0qpthvHxv8s(J`whv0qA9`fp9-32768k'd 0--b x ' s} ++ DS ERROR: DDXXXXXX(QQ), REPORTING NODE N 0+@we==Xwŝ-#GET91750-1X009 REV.2301 ALL $Date: 89/04/04 13:42:39 $ /MM/SRC/&#GET = I#GET 0#LOGR #PLOG .ENTR .LDXD$MWF EXECEEp p `p ( 0p` (}  ({@p @(q)  x`  p(<`@p< hxX(c(cH (sg4EAAAJhHP(Uh (u`@@p8 `(d`h(d(n8 `Apm h` ```hHh(``hHh`([ {'0@P``DS0309 @Nm>>X 1(ŝ#LOGR 91750-1X013 REV 2013 ALL $Date: 89/04/05 08:23:07 $ /MM/SRC/&#LOGR> 8#LOGR #GETR #PLOG #RQUE #RSAX ::f Ax &` "(A'!A p!$#%% &8:"@@!>>X:ŝ7#SLAV 91750-1X034 REV.2326 ALL $Date: 89/04/12 09:39:25 $ /MM/SRC/&#SLAV>@#RPB#SKEY #SLAV UU1#BREJ #GRPM #LEVL #MAAS #MHCT #NODE #NRVS #OTCV #QCLM #RPCV #RSAX $TIME .ENTR .XLA.XLB EXECXLUEX U%AAA`p xhxA  (pـ`(8ppᄈp`pph`@(,hҀ`@HwHH``؄000„ph6`(ahwH (ABBA H(p N(`H00p`@(_h (H(ah`0px`@pp`(q`@ppAz`(h(8`@@p(`p߈h`px@`(`߄p` p `݈hިxh`@(`p`pxh`0xH` 0p8% 9@ @? 00307DS@k&>>Xko+#GETR 91750-1X010 REV.6000 $Date: 92/08/10 13:11:57 $ ALL /MM/SRC/&#GETR> #GETR ]#SBFA ^#SBFL `#SDAL ++ z#CLTA .CAY.ENTR .LDX.XLA .XLBD$MWF D$XLD EXEC+/GGbbA0gpiJ @paAf]^_ x\@x`ha@Hp(+ h^x[`(H A(;p;]`]@^@jp`(H@`@jCCG$$h^`dPex\8 `cApp_ppp[@h b?`C@==X,ŝ#OK?91750-1X227 REV.2113 ALL$Date: 89/04/05 15:54:27 $ /MM/SRC/&#OK? = O#OK? #FWAM .ENTR EXECPGMAD FFc%%`( Ap% %P%( 8P&( 8 '+( A%*()F ( @ >>X.ŝ BFPAS 91750-1X238 REV.2326 ALL $Date: 89/06/28 14:54:16 $ /MM/SRC/&BFPAS> 1BFPAS %A.CAX.CXA.ENTR EXECRMPAR NqEEAp`pCppphxP|("hyP}("`}(lxz*z{|(m.`P|(2(a`ph@(=`p x xH|$uEKK|(mAQz{(mU`Ch@pC`@p(.`(dh~PhPPhPH`(lDINIT DSMOD ruENDIDS bR ] @>>XtYŝ#PNLS 91750-1X264 REV.2201 ALL $Date: 89/04/11 15:44:35 $ /MM/SRC/&#PNLS> E#PNLS #PNLH .ENTR .XLA<<h (UhxN`JpL`KpMHS=((=((U(#(( 8L8M(%=((=(*hN( 8`JpL`KpMhTx=MLxI I8L8M8=(1hN))<UMLM8= 8L8M=O)/vSU@ܔT>>Xŝ"D$IN? 91750-1X246 REV.2201 ALL $Date: 89/04/13 16:05:44 $ /MM/SRC/&D$IN?> D$IN? #FWAM k`@ٹ>>X -"ŝD$GVL 91750-1X247 REV.2201 ALL $Date: 89/04/13 16:04:54 $ /MM/SRC/&D$GVL> D$GVL ]]P#ACRN #ASEC #BREJ #BUSY #CNOD #LEVL #LNOD #MHCT #MSTO #NMSC #NODE #PRLU #RDLY ((#RFSZ #SVTO #SWRD #WAIT .ENTR ]\\<""A (H! (@ \@3RG>>X)!ŝ)D$GCL 91750-1X248 REV.2201 ALL $Date: 89/04/13 15:58:28 $ /MM/SRC/&D$GCL> D$GCL WW #EXHC #EXTC #GRPM #INCV #LUMP #MAHC #OTCV #PLOG #QCLM #QXCL #QZCL #RPCV #RQCV #RSM#RTRY #TRCL .ENTR WYY!!A (H (@ Y@D>>X ŝD$GRN 91750-1X249 REV.2201 ALL $Date: 89/04/13 15:59:40 $ /MM/SRC/&D$GRN> D$GRN %%M#MARN #PLOG #QRN#QZRN #TBRN #TRCN .ENTR %88;cA (H (@8@+>>XŝD$FRS 91750-1X250 REV.2301 ALL $Date: 89/04/13 15:53:11 $ /MM/SRC/&D$FRS> D$FRS _.ENTR D$MWF %%A(pp%@(Gk>>X4ŝ#LEVL 91750-1X282 REV.2301 ALL $Date: 89/04/04 14:55:13 $ /MM/SRC/&#LEVL> G#LEVL  @]~|>@@XjXŝD$3IN 91750-1X275 REV.2401 ALL W/3K$Date: 89/04/13 13:54:08 $ /MM/SRC/&D$3IN@ D$3IN #3KLU #LU3K .ENTR .XLADDp p p p p`p(A@ `(J @((M  (M`  (&@V(!pW(OhU `h  (8pS `h (@T  ` (HhW''D  `Q`R'@<<Xrŝ#OSRV 91750-18310 REV.5000 $Date: 89/04/05 15:55:27 $ /MM/SRC/&#OSRV< F#OSRV &&$xH ( hH ( `h&@!?;;XFDS_GETNAME91750-18311 Rev.5020 $Date: 90/01//MM/SRC/DS_GETNAME.FTN;DS_GETNAME 00.ENTR FMPCLOSEHPZPARSEFIRSTCHARACTERHPZDEFIBUFFMPREAD FMPOPEN 0}}H@@`Dpp<:?(`pˈ(+`('Cp`(`Ep`p(&P((`Ep(&@(&PB(&`}HHR !!((&`Ep(&p`Ap/`@h H>88/(p(+`ˀH%%V0rsNodeNames::Sys tem ` b* PҀ%@ـ>>X4XADS_GETNODE91750-18312 Rev.5020 $Date: 90/01/10 10:/MM/SRC/DS_GETNODE.FTN>~DS_GETNODE == }.ENTR FMPCLOSECOMPAREWORDSCLCUC HPZPARSEFIRSTCHARACTERHPZDEFIBUFFMPREAD FMPOPEN =@@@Ä`?pp75:(`p((`($>p`(`@p`p(#P((`@p(#9(#P=(#`p>>S (#<<;(#`@p`p( (`˨>%%+rsNodeNames::Sys tem V X* PҀ%@:39 $ /MM/SRC/&#GET = I#GET 0#LOGR #PLOG .ENTR .LDXD$MWF EXECEEp p `p ( $DSLB2::DS1000:5:69:128 644 0 0 42400 5302722231 32700 $DSLB2::DS1000:5:69:128 $E H(E$DSLB2 + + + E" {FST DDXNŵ 4 DSLB2 91750-12002 REV.5020 $Date: 89/09/21 10:48:21 $ALL W/ RTE LINKS /MM/SRC/&DSLB2D@ێN>>X/uŝ)DMESG 91750-1X074 REV.2013 ALL $Date: 89/04/14 10:00:16 $ /MM/SRC/&DMESG> HDMESG 3#NODE #RQB.ENTR .MVWCNUMD DEXEC DJJA ( (2px@Cp=@B(2  @xH= D H`0ApDZDS0300Q(FROJM NODE XXXXX):@Z>>X:nŝ)DMESS 91750-1X075 REV.2201 ALL $Date: 89/04/14 10:01:55 $ /MM/SRC/&DMESS> HDMESS #MAST #NODE #RQB.ENTR .MVWnAAAXa( Xe(Kppp`bpp @m(M` (M 5 ph@^pi`h[Ahp5ji``` ](U ` `lpk@l(CNNܙA**`lpk`\hAk`k6  fH`0jp`f`c%( XXDS03N kl( @!@@>>XZŝ;FCOPY 91750-1X116 REV 2301 ALL $Date: 89/03/31 08:27:00 $ /MM/SRC/&FCOPY> C FCOPY 99  #NODE #RQB.ENTR DCLOS DCRET DLOCF DOPEN DPURG DREAD DWRIT IFBRK 9hLLAp8`ph(&### #"!`(1(p `(7p!h"hx` 5 p  p N* :L<< (TP(h( h`P"(`P(``P"(`Ph hx h `h"X(oh X@px&.$(P(~h(`p$`$P(`h(~~*==*.$(h( (`$(q ( `(`hp `p J ` p p ` x%` p` p` p` pA (&8%(* `~~~ DDp `p `p `p  xxxxx x  `p*  (䈈`h(`(TxA& (Ax* (A*~))T h(& h(!%) " ` ..DS@+(I>>XKŝ;FLOAD 91750-1X118 REV.2013 ALL $Date: 89/03/31 08:34:29 $ /MM/SRC/&FLOAD> ; FLOAD "#MAST #RQB#TILT .ENTR .MVWAAA`(lHp`|p`xp `h|`hA|ppx C` Ġp!(3pA<z8{{z(M` p`_AAAp`p`(l`hA|(lP(Unh``p`y@@~`(l88`n `}ph  8(sn    APLDR DS@d<<XЪŝ;+GNODE 91750-1X123 REV 2013 $Date: 89/04/18 12:08:35 $ /MM/SRC/&GNODE< 7GNODE #NODE uch H`@|;>>XYŵ 1;DEXEC 91750-1X067 REV.5020 $Date: 89/09/21 10:48:01 $ALL /MM/SRC/&DEXEC>9D#OPS DEXEC DLUEX tt#MAST #NODE #RQB #TILT $LIBR $LIBX $OPSY .ADX.CYA.DSX.ENTR .ISX.ISY.LAX.LDX.LDY.MVW.MWI.SAX.STX.STY.XLAEXEC PGMAD REIOXLUEX tCHH(Pp``Ap1p Ap H((2 !81 A( `p`pJp`!(!pph P (7HGG(JH (Lpp@p p `p `P(@(`"(`P`0p hHkk333(刀"p `P @z99x ah  xhX()p H (h$ (Ax hp p`#(pnpr(hS`h (`%pr%p &p `hX(((Ȁ()99h&Ahx H`PxP(xP((h (`+@(`p`@p`%(h(S`pn`P(#p $p `(ih) X#((Ap ]@һ??*(JD (h)ApHh(xn(i`(i]%( "(JD ((i`#(`%("p `(i! (>(8p`vh "`p x ` P(`(Ĩ` @p(Pv(v`v(Ԉ͊`p (NDS} {@xB>>X+Nŝ-2DSTIO 91750-1X101 REV.5000 ALL$Date: 89/04/14 11:43:55 $ /MM/SRC/&DSTIO> BDSTIO 00 )#MAST #MSTC #NODE #RQB#TILT .DSX.ENTR .LDX .MVW.SAX0AA`pA  (( `A( (pp@p`p`ݨp p`@ppx`(p ܈pP(s@F(h׀HBEA==BGGo (`(ph (xhp pph (vpph (vhxhxp`@p(vp(v`(`( (~ @~77`H (xp`(` 0ۨp (`p`0 px@(px`(hX(`(8h``xp(` hPPzv++h(h(h`Έ(hh̀`ω(@h010406IODS ?P@vj*>>X7Ū.#MAST 91750-1X019 REV.2301 ALL $Date: 89/10/26 15:56:18 $ /MM/SRC/&#MAST>%%Z#MAST #MSTC #RQBZ#TILT #TTOV %kko#BREJ #GET#GRPM #LEVL #MAAS #MHCT #MSSM #NODE #NRVS #OTCV #QRN #RSAX #TBRN #WAIT .ENTR .XLACLRQ DSERR EXEC PGMAD RNRQXLUEX k@@h` `pppp`yphx(Ah (B(D(F(Hh hx Hɀpppppppp`phsx xxb@EEH@X(!`(#J{(LP(%`p([Xt(>`p`pH`p`PHA`pm(Kp`p`({z|(L`v(`A(iBB(p  (9pp`((`(* (L`ƈH0sphx͈H`x0pH`v00rp`w@(`(6p`sp@pHHA0qzGG(L`p€`( (L(-P~(P(X(- h (P(SX((Sˆ8 XA(S(=(=`(Au6@@` x}h(K`l`m`nh(J`m`nh(J 1hlxh(K`lh(JX(@`nh(J`pph(K`l`m`n`ohp`oorNMMh`0s p p A` ci~l 0@P?@@@  000305070809DS %XXXXX ABORTED! o@J=h>>X Gŝ-#PUTR 91750-1X025 REV.2301 ALL $Date: 89/04/12 08:32:41 $ /MM/SRC/&#PUTR> K#PUTR #SBFA #SBFL .ENTR D$XST %%"@` H8HH%@/N>>XC%ŝ'#PUTD 91750-1X211 REV.2301 ALL $Date: 89/04/12 08:30:47 $ /MM/SRC/&#PUTD> L#PUTD &#SBFA #SDAL .ENTR .LDX.MWID$MWI BB%%Ap$ H` @hHx#A!#$8B@>>X ŝ0FCL66 91750-1X273 REV.2301 ALL $Date: 89/04/18 11:50:23 $ /MM/SRC/&FCL66> FCL66 66  #MSTO #NMSC #NRVS .ENTR .LBT.MBT.SBTCNUMO EXECIFBRK XLUEX 6DD`pp p p p p(A ` ( @P ( p   p (3(@,(p(h X(3@0(: FE23(C` (Hh xF(^h "DDD (KP([`([h xDp V FE23(hDX3(h2 (p40$pppp΀ppl)E(sH`, (`EP(A}'1((`4pEA&7%AAD1E((` (`FpGA(A`.(%L͈((hG@"@X"( xGP((7`p=`/pD`pBpChBHxBP#(ĄhCxC8=8D(`AhC@8HHH `=@ 5p=`FpGA(A&5=((hG@"@X"( xGP( (.A(('1((HJ (`- JH(!8QQ)44`*`+ H`, (  q%BDSNNNNNN0024CN0024 |Q   '@ ' W! !@ a6? @ >>Xcŝ&#NRVS 91750-1X022 REV.2440 ALL$Date: 89/04/05 15:45:44 $ /MM/SRC/&#NRVS> N#NRVS ((#MSTO #NCNT #NRV#RR7$LIBR $LIBX .ENTP .XLA(G@@@A@`(pWpX( pHhSP(48XHZ8W(h[(Kh\(K(H0_phH^SbP(18XHZ8W(((H]Sp SpW``Wa` DD'@##SpWapY`W_`8hXpppp`Y@S0407D@>>X ((ŝ9#CVBF 91750-1X003 REV 2013 ALL $Date: 89/04/04 12:01:57 $/MM/SRC/&#CVBF> *#CVBF  @l5>>X5Mŝ#ICV0 91750-1X200 REV.2013 ALL $Date: 89/04/04 14:13:37 $ /MM/SRC/&#ICV0> wD#ICV0 ~~<<pLxKL@P=P?(:L(hLHK(9hLH>APC(@F(:H=xI xJIJhIHDxIIIhIHE0H pJ@0B`JGI8K8hK~<? @u>>Xe[ŝ0#OCV0 91750-1X201 REV.2013 ALL $Date: 89/04/05 15:48:22 $ /MM/SRC/&#OCV0> wJ#OCV0 `#NODE .MVW ~~',<<pZxYZ(DKPHPJ(DhZHIxWLpXWOhXXPXSWXQ("XR("HT (DW (3Z0MZUW`0NhWHG(EhXXQ(8XR`H@YpYXQ~55<(DhWHG`H8hY?@ IO015@l>FFXW"ŝ"#DNFL 91750-1X245 REV.2140 ALL BKWD CMPT VERS. $Date: 89/04/04 12:12:45 $ /MM/SRC/&#DNFLF 5#DNFL .ENTR ??8x""D0!8CC0 8CҀC0 00P0?@c logging message is ##c forgotten. Finally, the screen and softkeys are returned to narmal. #c c Parametersc c fno - Field number of parameter to be modified. c clink - Branching parameter c  c Su$DSLB3::DS1000:5:8:60 644 0 0 4000 5302722233 32356 $DSLB3::DS1000:5:8:60 $ Hp<$DSLB3 + + + {PFST '' DSLB3 91750-12003 REV.2540 850826 ALL W/O 3K LINK 'SDS'' 9KPOPEN !91750-16148 REV.2540 850826 ALL W/O 3K LINK '@PCLOSPCONTPNRPYPOPENPREADPWRITj#MAST#MSTC#NODE#RQB #TTOV.ENTR.MVW <<`_p `p ( B` p`p`h ( (h Hp<<<`]]p-` () `-X 0p-h `x `p`hR"`hxI xx pT< `CE<`p` <<`c? (EhxhxM (` P (Z؉S`h" `(`Ph  <::`^ydbZxx`h 0 phHkhR ZxkxpЈxp:`A)W(;;`\x hxphZ 8x8xxHP (Z`@` @(``p xxhx;<<`b(`4Zh x` 0 0 Pp`Z ppp<`B<<`_O kh`x`p`pIZxp`(:kh`x`<<<``ӕpIpp` (:kh괊`x`(66k`p`(< `Bxp` 00`_ONp` p `(6  DS4%0'' D$EQT c91750-1X054 REV.2013 800527 ALL W/O 3K LINK ' @D$EQTD$XS5 `A`A'' [D$DN! 91750-1X251 REV.2401 840123 ALL W/O 3K LINK '##@D$3KLD$DN!D$DN?D$LOGD$RLUD$SNDD$UP!FC4FL#N.ENTR''`YDS01 'PAS.2 PAS.3 PAS.NONCDSPAS.RANGEINTEGERPAS.WRITELINE PAS.WRITESTRING RESTORE_WCS_CARDSCANNER SEND_MESSAGE TRANSFER_WCS_DATz¼WCS_CARD$DSMA::DS1000:5:31:60 644 0 0 17400 5302722235 32436 $DSMA::DS1000:5:31:60 $ Hx<$DSMA + + + 4\{ZFST $$ BDSMA 91750-12008 REV.2440 840621 ALL M.A. $SDS## #MAAS c91750-1X015 REV.2113 801120 ALL M.A.#@#MAAS'' {#MARL#MCTR#MARN#MTBL#NODE$LIBR$LIBX.MWF .ENTR RNRQ .LDX .MWI ';;`b 0Zd, < "lLZl!lLdT,w L;<<`_5" 4D@,^D,^dt l@,:d DDt Ld D@,o<<;;`^AlLdt Dt Pd dd ,4t <ZdT,xlZL,xd;;;`]~t_ d D4t | lL4 l ,xlL4l,x<P| d;;;`aP|  ttdtXl| dtl \,<,;;;`a!Pl"t(Pt"L L|l(t|l, $|tdDt ;;;`_TtTdl$td(l(td4$lLZ L$tdt;''`[݂dl 2 @@@R0800'## #MAPP 91750-1X016 REV.2440 840621 ALL M.A.#@#MAPP<<+##GBLN#GBUF #GETR#GRPM#LEVL#MAHC#MARL#MARN#MAZE#MCTR#MHCT#MTBL#NODE#NQUE#NRVS #PLOG#PUTR#QCLM#RQUE<#RSAX$LIBR$LIBX.LDX .MVW .MWF 50.MWI .XLA EXEC RNRQ XLUEX<<`]px`Lppp~ppppp` ( ` *(Z`/ PS( `/p`/PT( <77`^)p`/ p`/ p`/h/PX( P( &0aS` `/!(=PP(: (C7;;`\";P`/(CP(AZ(C`/ x"`Pw(`(hXY(`m(`([`;;;`[W8~`p`ZPo(`ph`XtPp(|8~Z`vppppp@p`p; `Cdr`@pp <<`]Feupp`pp`(؀Z` (`p`6(`,0}Pp/pp<;;`]oAK&00/NOg(`Kp(ډ{`0lp`p/(8~`p/p`;<<`_xp/ `p/  "y0Kp`0gpA$00/Pgg(`Kp(؉{`0lp<;;`\Qζ(`bp`h{`8`(8~`PS( `/$Mhp`/M0p;<<`\Z`/p/PD(`XG(XH(`PZ((h ((8h (`/PG<;;`ZD(`Pv(3(آh (`/PGZ(XohXs(3Xp(r(`YP(8~p; `Bq pp <<`a" pp`(1 0A0y$WZ0s(`Up`ZP(g,0}p`pB$\ <<<`aYC(eHYp`Dp`Z`F D0Ep x``X0Kp`p$dAK00$Q<`B8d8::`Yf(58`tpppp`@p(`p`p`up`pp`:<<`[pppZp` 0JpZ`/p`p`qp`h(`Pu(Pv(8< `D`(h ;;`[n p(8`(`p`(`upж(`Po(`@C@T;<<`]p`6(`Pr(΢`@@ZZ(8`p`< `D|`}, <<`_Gڰ 0h 0ch 0dh6Z 0e 0fh 0mppzn(`tpX8~`( <<<`e$A0yZ[4@0s`( AK&/^_X`~\&`S`( (!`p<`Aq;;`_l8pyp~`wphZxV`pxhWZXWXy(78V(,"Ph"p(;<<`b>p"H H[xh(׶pxh, $xp`@Vp}"  p~PV< `C)D`\` ;;`` ch$p`(h(p`0$hHZ HZ$p`yZp`WhxBX \x\;;;`_M0ph\ h`Q ppp`Cp,0}pp; `D`P@S `A-(;;`[yc`Pr(`p`P(ph`ڂ! Kxp(`@@Z0;;;`[$ôZph `p` v!xp(`Z0ippp`h`p`p; `D޶`Up`P ;;`^Z(8(p,0}p`P6p ( x] 8(`phP x;<<`^ x6`( `6p`PШ`p,0}p`(`0jp < `D$P\ (< <<`czb"HXp  p#(5AK0$0W(`0hp((GOP00<<<``;E$ p `((@I0mp (|U"`pp`p`p ay0Kp`< `Be0gp 33`[9IgqA0$0PgO(vp(ډ{`0lp(`p(3;;`^cbp88p@(`@C@[p`@C@[HC H[P`@;`G^#H 8<<`ae!P @[@S`Z@ZZp`h _Z`Ip`p`yp`p<##`O͖`p`p`p`pp`m0jp#;;`b yZ0Kp`0Kp܄A0$0_ب``8(`0k`;""`R"S@p(VK$O00OO8"<<`b p`(3p`(#@`RhRH X`pp$/AK00/c(1P?`<<<`lCT4p =$B00cDS00S0608@@  <`B`@@`Vb @`Ad ## #MAUP ;91750-1X135 REV.2301 820916 ALL M.A.#@#MA1 #MA2 .#MA3 ?<<#ABRT#CLSB#EXFR #MA1.#MA2.#MARL #MARN #MCTR#MTBL#NODE #PRNT#PRSB #READ#RNSB#SYSR$LIBR$LIBX.LDX .MWI <;;`_n+++++ x6(  #PZ( ( x6Z(P( X( ( ;<<``qPhx8H (h8H (h6 p7`6.p`8p `p5CG.<`A`?;;`c@0p:@7p7(X(P"@6p6(W#XxX (_ (i;::`^ҖcP(jX(i4Ph (g x `7p9h: h:Xh:H9 (`h5: `C <x5`7 <<`mX@6?0# /DMA  @$ENTE<<<`nR # OF REMOTE MA NODES [,RETRY LIMIT]? _$ INVALID MA SPECIFICATION! INVALID MA TIM< `DEOUT! <<`nA INVALID MA RETRY LIMIT! EXCEEDS RANGE 1-15(MA TIMEOUT * RETRYS) > MASTER TIMEOUT! <00`d@$CANNOT HAVE MA TO LOCAL NODE! &%INCORRECT NUMBER OF MA NODES! 0## #MAQS &c91750-1X207 REV.2113 800808 ALL M.A.#@#MAQSArEXEC #MCTR#MTBL.XLA ;;`d$ZDL$<$l%L"|%‚,,$# !  , ; THEN goto 99;  dummy := cl_buf.status_request.status_type;& BlankFill(sd_cl_buf); { do this so we can find length of reply buffer }$DSNMA::DS1000:5:2:38 644 0 0 1000 5302722236 32511 $DSNMA::DS1000:5:2:38 $ H&$DSNMA + + + {|FST && i(DSNMA 91750-12010 REV.2440 841204 ALL, NON M.A. &SDS## NONMA c91750-1X140 REV 2013 800415 ALL NMA #@#MAAS#MAPP#MAQS #MA1 #MA2 #MA3 `O+PtZ <   SUBCH 0-3 = LU2,3,10,CTD * SC0 OCT 0 HPIB ADDR 0 OCT 0 UNIT 0 / VOL 0  OCT 0 !  OCT 0 ! START BLOCK  OCT 0 $DSNRR::DS1000:5:2:43 644 0 0 1000 5302722240 32577 $DSNRR::DS1000:5:2:43 $ H+$DSNRR + + + {FST %% 9DSNRR c91750-1X096 REV 2013 791026 ALL W/O RR %"" DUMRR c91750-1X216 REV 2013 800821 ALL "++@ d#RR1 #RR2 #RR3 #RR4 #RR5 #RR6 #RR7 #UP #UPDA#DOWN+NRR c91750-1X096 REV 2013 791026 ALL W/O RR %"" DUMRR c91750-1X216 REV 2013 800821 ALL "++@ d#RR1 #RR2 #RR3 #RR4 #RR5 #RR6 #RR7 #UP #UPDA#DOWN+$DSNSM::DS1000:5:2:38 644 0 0 1000 5302722242 32747 $DSNSM::DS1000:5:2:38 $ H&$DSNSM + + +  {FST && \HDSNSM 91750-12012 REV.2340 830705 ALL, W/O S.M. &SDS&& bNONSM 91750-1X141 REV.2340 830701 ALL, W/O S.M. &@#ATCH  @8#DISM#DSSM @[#MSSM #OVR #RMSM @ #RSET@#SCSM @#UPSM@YD$OVRDLGNSDLGOFDLGONN.ENTR `Qp 8  @8#DISM#DSSM @[#MSSM #OVR #RMSM @$DSRR::DS1000:5:29:60 644 0 0 16400 5302722244 32712 $DSRR::DS1000:5:29:60 $ H<$DSRR + + + v{FST $$ /DSRR 91750-1X098 REV.2226 820325 ALL W/RR $$$ #RRX c91750-1X029 REV.2226 820316 ALL W/RR $@#RR1 #RR2 $#RR3 S--MP$LIBR$LIBX.LDX .MWI PGMAD#PRNT#READ#SYSR#PRSB #RR4 #LV #LCNT #CM #NODE-;;`b| |'|TTZ, , | ,,"dtdD;;;``"Ed$ZT,7\ꠂ,7,:ttdtdl<<;::`^ 6B<,=$ | dD t tl|'l |Ez ,dT SZd't ,a<S:::`^`ZSd',jd'P,x,xtD,xdldDXt< S Ztt:**`W~ttd tdtTdtz dT SB* `D ::`md  # OF REROUTING LINKS?_LINK SPEC. ERROR! REROUTING IS ENABLED B:`RUT #SEND IS MISSING $COST ERROR!  `F #SEND  `A `B`$$ #RR4 ,c91750-1X030 REV.2140 810717 ALL W/RR $@Շ#RR4  H-XLUEX#GRPM 88`_t%4't$ #&,d&(T)T*d%4+t&$ $ %"<8 `Ep   `El'?54 $$ #RR5 !c91750-1X031 REV.2113 810120 ALL W/RR $@Ո#RR5 t>XLUEX.XLA #LV #LCNT66`_6 dXtl|؀4 t$lL|<, @6`B`$$ B#RR6 Xc91750-1X032 REV.2140 810617 ALL W/RR $@Չ#RR6 !! |XLUEX$LIBR$LIBX.LDX .MWI .XLA #LV #LCNT#NCNT #CM !;;`^n d tR@tHXd tPtTl |QlQ;,LR|Q, dHtLdUlQ?<Q<Q;<<`]<L,<P,dHtLl|N;VtK4WtI0$MIK,7lNLO|N<L,&<I<`M/;P;G?`MgqIS`BV## #RR7 c91750-1X199 REV.2113 801124 ALL W/RR#@Պ#RR7  .XLA #LVSC#LCNT ++`VtdZ,d,L,<@d+`A`\## #UP Mc91750-1X036 REV.2140 810717 ALL W/RR#@v#UP 33 #NCNT#NRV #GRPM#NODE#LCNT#CM #QCLM#LVSC$TIME XLUEX EXEC .ENTR .LDX .MWF .XLA .XLB 3;;``@; t;l  ]4Htt ]h ITJ ,l|Zl| ||l;;;;`]F |l|d:t8t9<lL@zKtlz8<89]<8<8l;::`^ =L|d9Dt9T8,HdT,'d4Ht $T9$],Y<dT:;;`f[,#@ tddD]t? 'B xx;$Gx z;**`W/ ~~DLZ ZDLDlB< *`AhZ`N]@`Aa`Ce38 `D)D#UP `EXH?6 ## #DOWN 5c91750-1X005 REV.2140 810717 ALL W/RR#@#DOWN<<#NCNT#LCNT#NRV #CM #QCLM#MDCT#LVSC#FDMN#NRVS #CMCT $LIBR $LIBX $TIME XLUEXEXEC ((.LDX .MWF .MWI .XLA < ^.XLB .XSA  <<``t|l   |l|t|'d4,ttZh -T.,!<;;`cj ,l',, (Tج,$,dH,A 7@$!0 t;;;`\iCJdD/DtdDtl,]dtdl0T,]d dT;<<`__,h<dDtdDt,Kt o 6d'Dt'l+y6"d&1D%<<<`_?,~D(D2,D/,d3D$ڀ3D#D)D4,<*,$t(t)t*d,<;;`cP 70$!,d&1D%t(d$4X3D#t)dt*dtd+l';;;`eQ<"@tdZd DtP 70$!@;`TY  "@ B `Ha `Ah`IP@#SEND  `Fg   `D")#DOWN `Aah'`A+ (`Ix,?6"8<## #UPDA c91750-1X037 REV.2113 810123 ALL W/RR#@#UPDA<<#MHCT#NODE#GRPM#QCLM#LCNT#CM #NRV #RQUE#CMCT #LVSC #NRVS #FDMN #GETR $LIBR$LIBX$TIMEEXEC .ENTR.LDX <h.MWF .MWI .XLA .XLB .XSA ;;``9 tEl Z  t/|@LAt2 0RWX6dV |.|5 L ;;;`bzE PdST),Zl@,? 4d,?PC0L>-$EQ*l@LB;;;`_kB,ZdT $LT334P,Zd4,Z`DۀCDDDh4dٶtfd.Dt.,;<<`cafT, g,|0 t1r0&1>x$0/<d<,df |=L ,<::`^T,<=D2dt<0&/<d0l> ɉ>,t>t?,d޴t><f>:;;`be6Ѐf<f<f,\t ,96SdST)<SdtTdEtUdE4ڰt6-6$X5RW;<<`f°Ē<Jtdd8HDtICL$-EQ+0P<;;`dd@DZ ZDDl<D;;;`g DZDhd B<(   ; `G5@#SEND `Ea@ `DWN#UPDA `AaW`BiX `Ed ## R#FDMN ~c91750-1X008 REV.2113 800808 ALL W/RR#@#FDMN'' z#NRV #NODE#LCNT#LV #CM $LIBR$LIBX.ENTR.LDX .MWF .XLA .XSA ';;`b>ltnT,tp<pU$lprUlntlpdrDt |n\,U#ln;;;`]"6rdnDy0ZqDhGzto drT{|odlDywDtvdmTr,=do4|tolvLx;::`cV?G}4oK<r @G KBR@RDy USDyD:`JblTf<UUP k f `D`n `C`v `E`y $$ 75#LVSC c91750-1X014 REV.2113 800808 ALL W/RR $@#LVSC#LV #LCNT$LIBR$LIBX.XLA 44`\uPttlTZ,dT,<L,d<" 4`Aa\c91750-1X014 REV.2113 800808 ALL W/RR $@#LVSC#LV #LCNT$LIBR$LIBX.XLA 44`\uPttlTZ,dT,<L,d<" $DSSM::DS1000:5:85:128 644 0 0 52400 5302722245 33643 $DSSM::DS1000:5:85:128 $U HU$DSSM + + + U*X{FST ??XXdŵ 5(DSSM91750-12014 REV.5020$Date: 89/10/05 13:07:11 $ W/S.M. /MM/SRC/&DSSM ?@9Xd??X &ŝ-#ATCH 91750-1X043 REV.2341 W/S.M. $Date: 89/04/04 11:49:42 $/MM/SRC/&#ATCH?k#ATCH 4#RSET 33 =#POOL #POOS #RPB$DSCS $LIBR $LIBX $OPSY .ENTR .XLAATACH 3P]FF@h Ȉpph @h h (/ X}`P()p ${()4(/-`h h`Sp`p  (9h dzpttqFCC` zpP(Q`p` yp Z(bhHwm44`(jdԀd@(tmt Y @工??XӞgŵ 0'#RMSM 91750-1X026 REV.5020 $Date: 89/10/09 11:47:43 $ W/S.M./MM/SRC/&#RMSM? P#RMSM #MAST #NASR #NAT#NMSC #NODE #POOS #RQB#RSM$LIBR $LIBX $SMD# .ENTR .LBT.MBT.MVW .SBT.SFB.UNAM .XLA.XSADLGNS DLGOF DLGON DSERR ISMVE NAT#PGMAD  qtREIOSESSN BB(l(P(*P(*p`pHph xP(!h x8(`H8h X(&@..3]ap`h @ x(BHpB@@x`@(J〈`h x`Hx`@h`h Ap`h @(| xh H`  `h~`~`p`@@@~ @x`x`@ppP(`hh `@p`hH`p`H 8(`8hH ~(Ԉh ~~==XXh XXԨpHAPh `pG9p`@p@((`ephf(H8(`0~ΏAAp`p`pG9x" ``p`P(`H 8(`@phH P(%$A(++"`h (3@h"㈀`pG9"A=IC/@ E9/LOGON: TLaDDP(P@(`(py(p     (`pp`p `ppAp((((NN`(@@@AP(P(]h`Ah hhHA(NONE)/ ACCOUNT NAME = ACCOUNT NAME =x@PD3EE(9p (Qx`h(Q`(Qp`ڈph x`@`(+@p` `@`@(Vp` A`@~~Dy8<<(V (QH (Qh x`p P(L8(G`@p(V`p``h `P(dhz㈈`PhzHH` p` p(t~[[t;;`@p8(p @x`xz  ! ,,:,,/N1N2ONOFXXRS03SM04[  . He``gD``ZZ'(%BBZ@†>>XAŝ(4DLGON 91750-1X066 REV.2301 ALL $Date: 89/04/14 09:57:34 $ /MM/SRC/&DLGON>jDLGNS DLGOF DLGON kks}#DFSN #DS1K #MAST #NASR #NEWX #NODE #NRVS #RQB#RSAX #RUTZ #TBRN $LIBR $LIBX .DRCT .ENTR .LBT .MVW.XLA.XSALOGLU LUTRU RNRQk3'BB` ( ` ( `hpxppppp(A pHp `h A HP(GP(Gp `p Jp`p h`ph (Pp(JFsB@@Lj(J`(ADNXX px(_`P(_p`p `(op h (3`P(`(D(`P(uP(Px(D  x ( x((>>P(pŀ(kp(p (D`( (>Hx`p p `p `p `p (`p`Šp ((P p @(;h H HЩ@@HP(Ȩ` @p (` @pɈ@p`hA (Y`(Ɋ(M` pɨ` h  `0Ʉp (MxhÈ` `DD   `Ĉ` hè`@pA(hH ((X((`  `(5h` A pˈ`p((R(R(RUD??(R(R(R(R  H`0p ` p ` h  (f D xɂD@h X@X(t `({X({X({X({``  PP 99    !2XXSMRSDSSM04RS03RS04RS06RS07DS04DS07DS09P$$a)  $@%$@:Ys??Xŝ#DISM 91750-1X203 REV.5010 W/S.M. $Date: 89/04/04 12:07:54 $/MM/SRC/&#DISM? <#DISM C#ABRT !#BREJ #CLSB #DFUN #EXFR #INBF #LEVL ##MHCT #MSKD "#NODE #OSRV #PASS #POOL #PRNL #PRNT #PRNW #READ #RSM#RSM. $DSCS $LIBR $LIBX $OPSY )$SMII .DRCT MMr.MVW.UACT .XLA .XLB.XSA(ATACH CNUMD 'DTACH EXEC&ISMVE LOGLU LUSES $PGMAD REIO%SESSN XLUEX M0>>Jpp pJ p`P((uPz(P{(`@`h qp q(Yxp ((Xhp(p0p1`}H0!0p' q(Xp)HH`"p*`0p.` >DDp/`#p2 qp3`p7`{p4`p5p6AW'ˠhH8(`pA a78(nAm{(^c@q`}pPz(X(A(wxcFF (~HJ (~ @((`p`phH A8 (J @((`hYpp'pA$'A% A(x&)CCAz'@`p`ppƈA`p(∈`@p8((P(XX(`hYHx8ƈ(`(A(`ƈAP($c@`(HhY EE(h`h AHP{((X(&`|pp`(/`p@p@(`h`h'(hň`h AP{(JA(DX`@pPTT@(G`h@ @AYp@cpg AkPz(xgpAxx{z8ccˀ/D  INVALID RESPONSE! MAX # LOC``AL SESSIONS FOR REMOTE NODES?_@  XXIO0226 USER.GENERAL~ ENTER DEFAULT SESSION USER-NAME: _ ENTER PASSWORD FOR NON-SESSION ACCESS:_~ RSM UNABL33a##E TO LOG OFF ITS SESSIONS  WARNING - # SESSIONS FOR REMOTE = XXXXX3@m-??Xcŝ#DSSM 91750-1X006 REV.5000 W/S.M. $Date: 89/04/04 12:20:14 $/MM/SRC/&#DSSM? <#DSSM ee#DFUN #OSRV #PASS $DSCS $OPSY .CBT.DRCT .LBT.MBT.MVW.SBT .UACT .XLA.XLB ABRT# EXFR# INBF# PRNL# PRNT# READ# UPSF# e4AAJpJ@J pYpZp[`(P(M`ZhrHAAgrAP(+A \($X҈XӨ` @pW@H((` @` hY ((h̀`ZABBh `YhZAW`pWpXHh[ P̈(Y8X8W(S`X8X(xP„(e\( XҨXӨH` PX(b`Yh[ X(x(b(bP( \(xXҨXӨFFHXp XDp ` @(|` `Yh[ @ ` @@pW``@AWphY H@(H@(HH 8Ԉ( * /A/a/D/d/E/eWW``^ INVALID RESPONSE!i CURRENT NAME = t UUUUUUUUUU.GGGGGGGGGG/PPPPPPPPPP  ENTER NEW DEFAULT SESSION USER-NAME: _ CURRENT PASSWORD FOR NON-SESSION?  _ E##NTER NEW PASSWORD FOR NON-SESSION _#@~>@@X<ŝ#MSSM 91750-1X020 REV.5000 W/S.M. $Date: 89/04/05 09:48:51 $ /MM/SRC/&#MSSM@:: #DFSN #FPRN #MSSM #NASR #NEWX  #OVR#RUTZ  D$OVR :}}#BREJ #DS1K #FWAM #GRPM #IDSG #LEVL #MHCT #NAT#NODE #NRVS (#OSRV #OTCV #PNLH #POOL #POOS #RQB#RSAX #TBRN $DSCS $LIBR $LIBX &$OPSY *$SMII ".DSX!.ENTP }NNq.ENTR #.ISX$.LDX .MVW%.STX.TBS.XLA.XLB.XSA)ISMVE LOGLU 'LUTRU NAT# PGMAD RNRQSESSN XLUEX NW77(p*p5p` H0p ` :(Q` (`0 p (Q` P(*` P(*` P(*` P爁(7(Q-X(S YX(V0 p (77??` (Q@`(Q` (Qp6:Q6 6666668`h(R`h(Rp$`  (a (ghY`$(|p%`  `$  `5WIvFF `1`$Yp* Y`(Ap!p !9(A9!( 7p7'76&((`6 `pAx6)6*`)6`6P(ň`)P߁BBppphx6`p)(HP 6h6Hx68)(ˀp4H(p5p66665666(8݈`4AZ(Xx==b(X` p$p%x& (@`$;p'(#@(U`'(#P(@`'P(#P(@`'P(<(9`'P(9`%(9:7 % (<`$h&];AA(Y&(Yp1@(Uj(XP(U(XP(U(X (Y  h X `0Zh `0b`9p,pp5p!`,Ap6 |!677+|DD(`+(p,P9(p6:6 6,66666666 (px1H鈀P(pH0jj`(P(p6:6 666666666 (x1H~~BDD(`P(Lj0p1&((J(p6p5p$p!6 5$!6( ( `9p,`,Ap6 !677+( h ( p6Ap$p566 5$!6~~;;( `+( p,(ʈp@h܈0`*(gp*` (!`  (^x.` .p78.` .p68. h.8. .`.p0`6@&$?:: ` 06p6`Ap2N8(ZAV2673 (Z0`h(a `h H`0p ` ` P` P` p6` 06p6AAiy A~6 `  x6H (X(` A h6` A A  44!p8(`@((`@(`p``4M<<ppHp`00p` p ` Hp `0pH`p` p` p`舀p`pp` pA 67(0pHH`p(`@7(@`(p(p`@p-HH06-(~~DD@p/Dh`p)P/(*H8)(! `!.`(B@h (oh@ (ox`p`̀p `s(m`s(m`s(m(c1~eeX^55(m 88ψ(f`s(m`s(m`s(mhЀ(A :pAA!8sA 88Ϩs1* ell==h $`pp AAAA `h(q(ƀ8ׄ(  #A!"%π@ "!H#! 8#.4lffoJJ@@ ? 010307DSXXRS@DEFAULT SESSION f%%<$?%@db">>Xŝ*#SCSM 91750-1X033 REV.5000 A((LL $Date: 89/04/12 10:00:35 $ /MM/SRC/&#SCSM> K#SCSM ?? ,#CLON #OSRV #POOL #RPB$DSCS $LIBR $LIBX $OPSY .DRCT .MVW .XLA .XLB .XSA?rf<<(hH (Y`P( P(( p` ( p`   xJ@ (% ([` (Yphp (6H8(/(Y0倨x `<<< ` `p 8 8`PphHက0׈8p`(w` pP(Y`(k`P(Y`h(wA`h `phnx::p (P(H8({(Yx0H(?p@h ဈp x`ph(H( 8( p8PhHx8(GGJ @( (` (h(h`phH(܈h`ph 刀8(ܨ@ @@ A@? @n.>>X8 -;#UPSM 91750-1X038 REV.5020$Date: 90/01/16 09:43:51 $ ALL /MM/SRC/&#UPSM> M#UPSM KK #BREJ #GRPM #ISTO #LEVL #MHCT #NODE #NRVS #OTCV #POOL #RSM$LIBR $LIBX .XLA.XSAXLUEX K~~6@@(jppppԄ`0 0pʈH_p`p` 0pшH`p`p _׈pH_pP&`p`pp` pHhX(:A 9è&ph  hx` ~V@GG@(K` (^pp`Ȉ@pHZH0A]&@_@@Ach@ `(tph_p x_(pH_P(ch yyCC(@(@`(h_c(pppԈHp`0 0p`ppH` 0p`p`p`p&hH8(yXX@y@0??XQŝ4#CLON 91750-1X001 REV.2340 W/S.M. $Date: 89/04/04 11:58:26 $/MM/SRC/&#CLON? 7#CLON QQ/$CVT1 $LIBR $LIBX .LBT.MBT.MVW .SBT.XLA.XSACLOSE IDDUP IDGET IDRPD IDRPL MESSS OPEN READF Q~~7LLpx(Z(p(XA(X(G̀()hH0Ȅ'̀(Y /g(65(Y`(<p(1AA(1GJ(Y~LBB@@hp`0h8A8^P(o`h`hA oѨ`hpՈ`ph @ P(88(|`Ljp`@Ոp`@(wwII@` Hp xψhPxhӄ` ` A(8 `Hp xH (8pp@@ A 0Z!c.@ Hw5OF, ,8,NP @Ed>>XNHŝ #IDSG 91750-1X225 REV.5000 ALL $Date: 89/04/04 14:48:33 $ /MM/SRC/&#IDSG> E#IDSG #OSRV .ENTR .OPSY .XLAPGMAD ||\EEpD(pEED(/h HphD(+P:((P;(*P<(*P=(*P>(*(.H7H938h @3|@׎??XIŝ).CLGF 91750-1X039 REV.2013 W/S.M. $Date: 89/04/04 11:14:45 $/MM/SRC/&.CLGF? /.CLGF $DSCS $LGOF EXECLUSES xx]II(8>pCA C (9pC(80DpFA?;XH(8pE&GB!B#A$E/ABE@CF(8A4?;`E0D8LGOFF  05x@"}A===XBSŝ #NAT91750-1X276 REV.2326 ALL$Date: 89/04/05 15:42:52 $ /MM/SRC/&#NAT =(#1NAT #NATNAT#oo4SSo@\{@@Xsŝ"#POOS 91750-1X277 REV.2340 ALL W/SM$Date: 89/04/11 15:45:30 $ /MM/SRC/&#POOS@ S#POOS h#POOL .ENTR .LDX.MWF.XLA{  h==A@h (`(`pp` p` p p h x`p(Y(Y(4(Y(9(Y(>}(Y(C(Y(O(Y(Y~~K88(Y(Q(V(Y8(Y(bhHx`p8(*(|h  A`h Hh`8}~BBP }888 8(B@ۺ$DSLSM::DS1000:5:66:128 644 0 0 41000 5302722246 33404 $DSLSM::DS1000:5:66:128 $B IB$DSLSM + + + B x|FST CCXŵ 5 DSLSM 91750-12015 REV.5020$Date: 89/10/05 13:06:49 $ ALL, W/O S.M. /MM/SRC/&DSLSMC@@@Xŵ 0/#RMSM 91750-1X210 REV.5020 $Date: 89/10/09 11:47:43 $ W/O S.M./MM/SRC/&#RMSM@ P#RMSM oo]#MAST #NASR #NAT#NMSC #NODE #POOS #RQB#RSM$LIBR $LIBX .ENTR .LBT.MBT.MVW .SBT.SFB.XLA.XSADLGNS DLGOF DLGON DSERR NAT#REIOoBB($(P<(*P=(*p^`p\Hp]h\ x\P@(!h] x]8^(`@H8\h] X\(&@..3]ap_`Oh @ x`(BHJp_?B@@xa``@a(J〈`_ha x``OHJxa``@ahN`jh AIpf`Oh @(| x`h H`O  `jh`~`k~`fp]`P @@@~ @x``Qxa``@apcp^P;(``h]ch `a@pd`ah`HJd`^pd`@H 8d(`^8fh^Ha ~(Ԉh ~~|==XSXTh XSXTԨpbHAPebhe `VpG9pb``@apc@I(Z(`p^h(HD8^(X`0B~AAp`Cp`UpG9x" ``c`cpd`dPI(`@H 8d(`c@pdh`H PR(%$ebAd(++eb"d`he (3@p^``dAh] ^`lPN(hj2`}PNhk2㄄` p]` p^](,`]@=p]TT/888^(( x``Nxa2  ! ,,:,,/N1N2ONOFXXRS03SM04T jl} G/``D``ZZ&QNBBZ@5h>>XA((ŝ(4DLGON 91750-1X066 REV.2301 ALL $Date: 89/04/14 09:57:34 $ /MM/SRC/&DLGON>jDLGNS DLGOF DLGON kks}#DFSN #DS1K #MAST #NASR #NEWX #NODE #NRVS #RQB#RSAX #RUTZ #TBRN $LIBR $LIBX .DRCT .ENTR .LBT .MVW.XLA.XSALOGLU LUTRU RNRQk3'BB` ( ` ( `hpxppppp(A pHp `h A HP(GP(Gp `p Jp`p h`ph (Pp(JFsB@@Lj(J`(ADNXX px(_`P(_p`p `(op h (3`P(`(D(`P(uP(Px(D  x ( x>>P(pŀ(kp(p (D`( (>Hx`p p `p `p `p (`p`Šp ((P p @(;h H HЩ@@HP(Ȩ` @p (` @pɈ@p`hA (Y`(Ɋ(M` pɨ` h  `0Ʉp (MxhÈ` `DD   `Ĉ` hè`@pA(hH ((X((`  `(5h` A pˈ`p((R(R(RUD??(R(R(R(R  H`0p ` p ` h  (f D xɂD@h X@X(t `({X({X({X({``  PP 99    !2XXSMRSDSSM04RS03RS04RS06RS07DS04DS07DS09P$$a)  $@%$@:YsCCXuŝ #DISM 91750-1X204 REV.5010 ALL, W/O S.M. $Date: 89/04/04 12:07:54 $ /MM/SRC/&#DISMC <#DISM ggқ #DFUN #EXFR #INBF #LEVL #OSRV #PASS #POOL #PRNT #PRNW #READ $DSCS $LIBR $LIBX $OPSY .DRCT .XLA .XLB.XSAEXECLOGLU REIOg??Jpp pJ p`(P{(:P|(aA`~pHP{( X('(x (H ( (4J(4ddȀ`@p`phH?OO A8 (CJKJ@ (T(Y`hZ(T@@ AZpdph@A lP{(yhpxAy|{8ddˀkk PP/D INVALID RESPONSE! MAX # LOCAL SESSIONS FOR REMOTE NODES?_ WARNING - SESSION MONITOR NODE HAS WRONG REMOTE-SESSION LIBRARY!k@\6zCCX&ŝ #DSSM 91750-1X007 REV.5000 ALL, W/O S.M. $Date: 89/04/04 12:20:14 $ /MM/SRC/&#DSSMC <#DSSM N#OSRV $DSCS $OPSY .XLA.XLBPRNT# ??&&JpJ@ NOT AVAILABLE IN NON-SESSION VERSION! ?@c#@@XOKXŝ#MSSM 91750-1X021 REV.5000 W/O S.M. $Date: 89/04/05 09:48:51 $/MM/SRC/&#MSSM@::##DFSN #FPRN #MSSM 8#NASR #NEWX <#OVR5#RUTZ <D$OVR :||#BREJ #DS1K #FWAM #GRPM #IDSG #LEVL #MHCT #NAT#NODE #NRVS (#OSRV #OTCV #PNLH #POOL #POOS #RQB#RSAX #TBRN $DSCS $LIBR $LIBX &$OPSY ).CBT".DSX!.ENTP |II.ENTR #.ISX$.LDX .MVW%.STX.TBS.XLA.XLB.XSA LOGLU 'LUTRU NAT# PGMAD RNRQSESSN XLUEX IY77(RpFpQ p`  H0p ` V(Q`<(` 0 p (Q`  P(*` P(*` P(*` P(7(Q5-X(S YX(V 0 p (77??`  (Q@`(Q` (QpRVQR "RRRRRR8`h(R`h(Rp@` 8 (a8 (ghY`@(| pA`  `@  `Q~~>vDD `M`@YpF Y`"(Ap=p" =U(AU!( SpS'SR&((`R ` p"xR`"ER`RP(`EPp~IIp"p `<pTpRVRR"RRRRRRRRR (`UpHp=`HpRA =RSSG(`G(pHpG =G(`h)((p EXECW +AAHhxRH`pE(HP# RhRHxR8E( pPH (2pQApR.RRRQRRR(28`P4((` 8p@ pAPD??xB (~`@WpC(a4@(`C(a4P(~`CP(a4P(~`CP(z(w`CP(w`A(wVu A (z`@hB(B(pM4@~~j@@((4P((4P(( ( 5h X `"0h< ` 0`UpHp pQp=`HpRA =RSSG(`G(߈pHPU(~yCCpRVR RHRRRRRRRR (xMH P"(H0`"(P (pRVR "RRRRRRRRR (xMH(`"P (0;EEpM&((#J(#pRpQp@p= R" Q@=R(H(J`UpH`HApR /=RSSG(Hh (HpRAp@pQARR Q@=R(J`G(HpH(%pQeK::@h 0`F(pF` (_`  ٨8 (xJ` JpS8J`  JpR8J h#J8J J`JpL`R ` 0RpR`"T;;ApNT(A NRSO (Lو`h(و `h H`0p ` ` P` P`  pR` A0RpR R ` 8 z>>xRH (X#(`   hR`  p$p,p-`00p#` p%` p&`0p*`p+` p.` p/`p0`p1p2`  p3&RSII%%("0p6`pD`@S(`("pDp6`:@;pIHHA0!!6R#IDI~~a6DD@pKDh`pEPK(FH8E(= 8`8!J`(^@h (h@ (x`p`耈p `(`(`((M~ee\z55( 88눈(`(`(`(h(] VpAA !8A 881* ell==h $`pp AˀˆA˄AA `h(( 8(   #A!"%@ "!H#! 8#JPlffpIJJ@@ ? 010307DSXXRS@$DEFAULT SESSION f%%X@?%@>>Xŝ*#SCSM 91750-1X033 REV.5000 ALL $Date: 89/04/12 10:00:35 $ /MM/SRC/&#SCSM> K#SCSM ?? ,#CLON #OSRV #POOL #RPB$DSCS $LIBR $LIBX $OPSY .DRCT .MVW .XLA .XLB .XSA?rf<<(hH (Y`P( P(( p` ( p`   xJ@ (% ([` (Yphp (6H8(/(Y0倨x `<<< ` `p 8 8`PphHက0׈8p`(w` pP(Y`(k`P(Y`h(wA`h `phnx::p (P(H8({(Yx0H(?p@h ဈp x`ph(H( 8( p8PhHx8(GGJ @( (` (h(h`phH(܈h`ph 刀8(ܨ@ @@ A@? @n.>>X8 -;#UPSM 91750-1X038 REV.5020$Date: 90/01/16 09:43:51 $ ALL /MM/SRC/&#UPSM> M#UPSM KK #BREJ #GRPM #ISTO #LEVL #MHCT #NODE #NRVS #OTCV #POOL #RSM$LIBR $LIBX .XLA((.XSAXLUEX K~~6@@(jppppԄ`0 0pʈH_p`p` 0pшH`p`p _׈pH_pP&`p`pp` pHhX(:A 9è&ph  hx` ~V@GG@(K` (^pp`Ȉ@pHZH0A]&@_@@Ach@ `(tph_p x_(pH_P(ch yyCC(@(@`(h_c(pppԈHp`0 0p`ppH` 0p`p`p`p&hH8(yXX@y@0CCX ŝ'NCLON 91750-1X139 REV.2013 ALL, W/O S.M. $Date: 89/04/18 15:01:09 $ /MM/SRC/&NCLONC ၣ8#CLON @;A>>XNHŝ #IDSG 91750-1X225 REV.5000 ALL $Date: 89/04/04 14:48:33 $ /MM/SRC/&#IDSG> E#IDSG #OSRV .ENTR .OPSY .XLAPGMAD ||\EEpD(pEED(/h HphD(+P:((P;(*P<(*P=(*P>(*(.H7H938h @3|@׎CCXŝ!NATCH 91750-1X138 REV.2340 ALL, W/O S.M. $Date: 89/04/18 15:00:08 $ /MM/SRC/&NATCHC )#ATCH ၬ<#RSET zO@4S==XBSŝ #NAT91750-1X276 REV.2326 ALL$Date: 89/04/05 15:42:52 $ /MM/SRC/&#NAT =(#1NAT #NATNAT#oo4SSo@\{@@Xsŝ"#POOS 91750-1X277 REV.2340 ALL W/SM$Date: 89/04/11 15:45:30 $ /MM/SRC/&#POOS@ S#POOS h#POOL .ENTR .LDX.MWF.XLA{  h==A@h (`(`pp` p` p p h x`p(Y(Y(4(Y(9(Y(>}(Y(C(Y(O(Y(Y~~K88(Y(Q(V(Y8(Y(bhHx`p8(*(|h  A`h Hh`8}~BBP }888 8(B@ۺ$D3KL2::DS1000:5:2:43 644 0 0 1000 5302722250 32247 $D3KL2::DS1000:5:2:43 $ I`+$D3KL2 + + +  |DFST ++ D3KL2 91750-1X062 REV.2201 791026 ALL W/3K & NO RTE LINKS +++ #MAST c91750-1X018 REV.2201 800408 ALL W/3K & NO RTE LINKS +@#MAST#RQB #MSTC#TTOVYhD$ABT`HڵDl, DS06++ !#NRVS c91750-1X209 REV.2201 791228 ALL W/3K & NO RTE LINKS +@#NRVS `El07 @#MAST#RQB #MSTC#TTOVYhD$ABT`H$D3KLB::DS1000:5:102:128 644 0 0 63000 5302722251 33632 $D3KLB::DS1000:5:102:128 $f Idf$D3KLB + + + f2|HFST @@X՜ŵ 1#D3KLB 91750-12017 REV.5020 $Date: 89/12/27 12:07:38 $ALL w/3k /MM/SRC/&D3KLB@@՜<<X-ŝ1D$CSM 91750-1X307 REV.2540 $Date: 89/04/13 14:23:13 $ /MM/SRC/&D$CSM< D$CSM .ENTR CLRQEXECFFK,&&`*p&`,%('''&((`+(#)&F%(@p<AAXfyŝD$EQT 91750-1X056 REV.2013 ALL W/3K $Date: 89/04/13 15:48:27 $ /MM/SRC/&D$EQTAD$EQT D$XS5 ""|x"@ߞ@@Xxŝ0FCHEK 91750-1X113 REV.2013 ALL W/3K$Date: 89/04/18 11:48:25 $ /MM/SRC/&FCHEK@ -FCHEK :: j.ENTR D$ERR D$INI D$IPM D$NPM D$PRM D$RFH D$RQB D$SPM D$STW D3KMS :BBp p p p p`p(A `HH`f`lH`npr`pss 0d8s8rA()p(+(-HpqhHeHexr@@o(? rhrHlxr(8hk@`ccB66(VPt(S `hjPu(ShiPv(ShhPw(Shk`@gHhHg`H `m `m  `q DS010506c@*^I@@Xŝ0#FCLOS 91750-1X114 REV.2013 ALL W/3K$Date: 89/04/18 11:58:53 $ /MM/SRC/&FCLOS@WWLFCLOS FCNTL FLOCK FPOIN FRDSK FRLAB FRLAT FRNAM  FSPAC FSTMD !FUNLK  FWLAB W?? *.ENTR D$ASC D$ERR D$INI D$IPM D$NWD D$PRM D$RFH D$RQB D$SPM D$STW D3KMS ?hHH$$A$$A$$$$$A$$$$p$pp8p9p:p;`$@p<(=8 `>D`QH@@``P(VP(YP(YP(VP(|(`(:H;`>p`p 088(d`P(`9(:(@H(`9h A(p`P(hh8::P(P(hHhH H`@@@ `< < ? h@:qY1@@XSŝ74FINFO 91750-1X117 REV.2013 ALL W/3K$Date: 89/04/18 12:02:31 $ /MM/SRC/&FINFO@ 4FINFO :: j.ENTR D$ERR D$INI D$IPM D$NPM D$PRM D$RFH D$RQB D$SPM D$STW D3KMS :cII`#p!h !8! (`p!("A  H`#`w@H`#Hh|h`#@uhhA;(dphHvHyx@@(N llkI<p`(B`(B(B`(B`(B`P(2h @`(ap`(ShHPA(aYs7ZXXA ac@`c`!cAppp!cERROR. CLEANING UP REMOTE SESSION!@   ?@@ BYE DS00RS05:`RU, DSLIN,000000, -   RFA @p'0@@X5\ŝ+POPEN 91750-1X148 REV.2540 ALL W/3K$Date: 89/04/18 15:30:37 $ /MM/SRC/&POPEN@--BPCLOS PCONT PNRPY POPEN PREAD PWRIT -VV#MAST #MSTC #NODE #RQB#TTOV .ENTR .MVW D$3BF D$ASC D$INI D$NWD D$RQB D$STW D$ZRO D3KMS LU3K# PNSZ# V"@@pppp`p( `p` p-`&h ( (h  Hpp3`(/`3X0)p3h`  (5`*p,` hY` h2xP @AAxxp[`Hp`, (Lh*xhxAT,(` P (a ZA`1h." `(gh -D /xx`*h 0p,h#HrhYAxrx+r<<p-p/(x @h(X(h4xp.h1"888H(P+ (`@$`!@'(g`%p xxhx(gh x`* 0 0p,`+CC[ppprh`ǁ(`*p,`pPxp`(AArh`(`pP⨀pp` (Arh`#FF(`(=Ar`0p/`(p-`(P(`3p` p `(=  DS2%` p.` (`2 H&`A ` hH @@IpXϭFEE(L`W 8X(H`hF@ @@KpX(Y`WH 8X(U`J@ H `E@H`S `pX`GpZX 0:8X8Z(nA  {*(0`A@Ch - 9 ">>h XQXO`&XN`LXP`MXR`M-pH`@Dh." pppp`p.(` `p `>p  (5H ``JD *ȀɈ(0ɦ??-`p.(` `p `?p   ``JA *(0-`p.H(` `Hp `@p `#H``JD *T(0-`;p `>p  p -CCp   *H(0` &`B `A *(0-pY`EpZY 8Y8Z( `>` (` @p ` (]` p ` p ` Ph~x(`]P]`hH `p`h]px`(|`h`hq}Z1==h (!`yPwPx  xq`hq8`pP{` `  x` oPj( Pk(Pl`Pz(Pw( Pz(2@{(sp@|(M::`P}(MP~(\(s`@(>(@(C(E(H(J`p`ph hπ@(`΀h@(hxx`zp`p(p hẍ(hPv(.Pw(.pp`p@GG  -`(- *-p(phxp(p7vh (spx(s`p(sp(sp(sA P(t`o P{h~P|hf`(t _`CC(s`pP{(shh`A0pr-`p`zp`p(n') ` u(p`(p`0p`P(`(A ( p`EEp `( @(` (@p`(`pA`p(A`P(`ֈP(`pA  (uP( `0qp(`@@0p`(  ` p`@(`P Hzxqp (p`h (`@ p pF`(l`(lp`(`(`p`p`@(+ñ(DD`gpFpˆ`(;A 3`pP|(;`(@`pp`A0p Hˆ-`(lp5p@(Y`p5p`FhpӀ`(l i-pl::`xp`p` 0p ` p ` pPl(` h `҈p h`p(0sp(h (0tp`zp(0rpp(`(pp`p`p`@p` @yDDp (l`pFp hHxp`wh  x(,`0pA `d x`0pph`w`h`( (DDw-@F¨`Pw(hF xFhp0p`((׈ph (   Hx¨X(X(X(X(ppp@(A .&.DD-`(;A 8-p`p>`P(P(R L@`P(c@`o@@p`A0pa-@?`@(m  @(o@?rKKHxwh>H(} `@u0@p@A0@@ @__Hd_``0A `0p A w{JJ`uhgP(P(шhmP(P( x|`Xm`( xzx `ppp`}p(ENTER CONTROL REQ (B OR Y)INVALID INPUT DISABLEDBYby`'~HH`x0pph(h(h(h(h`qh` ` (2pÈp-pWQA;WWAp[@[T[`0pNxQgYOPPQcDS ABORTED  hph`èhm`qpA|wqA}}(pp[`pA[`(ppppCC(`pp}`p( pp`@pp` ~ ppȈppp~`ph 5H} ׈0p`hH @x` x(<<p`@}pphHX8`@xpp88(px``88(8px(+Xp(+<::p-(+p-(+88(`눀`ph (5P-(FP(FP(F@-@(F@n@-@-8--p8(JHpxOpx ii%XBB(a`p 88([88(VSpSe:?  *iPPR:: ./DS000001050607DS @@@{P) . @p::X!ŝ DSGET 91750-1X253 REV.5010 ALL W/3K 891110.1628 /MM/SRC/&D$GET:@a!::Xŝ D$GET 91750-1X253 REV.5010 ALL W/3K 891110.1628 /MM/SRC/&D$GET: D$GET i .ENTR ABREG D$FRS D$PS? D$WLG EXEC `p mm CC(p((`p`0p`pA* /(z`@p`A(?``A(I``(T`{{8MFFA@pT`Ap_ (d(z(zp`p(xx`(~(`p`pA {@ Ap( @@J @@X/ŝ D$TRM 91750-1X254 REV.2201 ALL W/3K$Date: 89/04/14 08:44:43 $ /MM/SRC/&D$TRM@ D$TRM P#PNLS .ENTR D$SND 88h Ap&p"p#p$p%A"#$%(& 8" @ ::Xŝ DSSND 91750-1X255 REV.2201 ALL W/3K 891110.1631 /MM/SRC/&D$SND:@W::Xlŝ D$SND 91750-1X255 REV.2201 ALL W/3K 891110.1631 /MM/SRC/&D$SND: 0qD$SND  **V;.ENTR .SBTABREG D$DN? D$GCL D$PS? D$WLG XLUEX *q`ppp _ (`p`ph)HH( l((bp`j0~pj"(='ypk`kpfh|6 `lpk;zikhngf (b`i0pih|6 l`jA0}pjL{pk`kpf`hpk[zilkngfX[ blhngq"")rAlmphopg(i@01DS?"@t%4::X 'ŝ! DSWLG 91750-1X256 REV.2540 ALL W/3K 891110.1632 /MM/SRC/&D$WLG:@g '::X ŝ! D$WLG 91750-1X256 REV.2540 ALL W/3K 891110.1632 /MM/SRC/&D$WLG: D$WLG 3 .. .ENTR .LBT .SBTABREG D$BMV D$DLG D$FRS D$GLG XLUEX .A(cAA( `Ă/(h6 (`ppǀ`Â.(-`p`Èp`ɆA@DŽ(-`pǀ`p`(4(_`Ȉ@p`A@(C`@p`p̀sFDD(T`H@pASр(_`H@pA_р`Ă-(`0ph6  `鈈p`p`ˆ0p`@Ljp`HH@pAȀ(`mmXh880ph6 h6  `A0p`ƈp`pˆ`p`ˆph6 (`@pȈ`0pAm--Apʈp(@?-@-@@X3ŝ'D$LG91750-1X257 REV.2201 ALL W/3K $Date: 89/04/13 16:07:23 $ /MM/SRC/&D$LG @ D$DLG D$GLG  jZ#CL3K .ENTR $$o"H0p $@q::X:ŝDSRLU 91750-1X258 REV.5000 ALL W/3K 891110.1631 /MM/SRC/&D$RLU:@z:::X9.ŝD$RLU 91750-1X258 REV.5000 ALL W/3K 891110.1631 /MM/SRC/&D$RLU: 2D$RLU   y.ENTR .SBTABREG D$DN! D$GBD XLUEX --S`spo`o!#(`o$&@-(`o$&pw(m-(`%pw(mFF(pw!vu`y+py`x0*pxh6 `v`y,A0(py5x(7A(8<srAzq`yA0)pyKxzq(M(NARsr`y,0'pyh 6`$Hh 6 `v ѥ`Aexp(g(hAlsr`w . Apvpu(xpiE# @?@M@@X-mŝ6D$DN91750-1X259 REV.2401 ALL W/3K $Date: 89/04/13 15:32:25 $ /MM/SRC/&D$DN @lD$3KL FD$DN! *D$DN? D$UP! @@ & #3KLU #LU3K #NODE #QCLM $LIBR $LIBX $TIME .ENTR .XLA.XLB.XSAEXECXLUEX @VHHp` @@ p` (ph @p!P(H8( `!8")h (B)p| (Bp (AP(B`*``sH44DE(Nx([Dp| (Xʀ" "EFhthvxy{p}  ` pzrwr|uytzF `-`EEA " "`ppppp(A ` (p h (`׈h ( `   @%@@X} ŝD$PS? 91750-1X260 REV.2201 ALL W/3K$Date: 89/04/13 16:22:14 $ /MM/SRC/&D$PS?@ D$PS? zV#QXCL D$XS5 T `(H` @D@@XjMŝ$D$GBD 91750-1X261 REV.5000 ALL W/3K$Date: 89/04/13 15:57:31 $ /MM/SRC/&D$GBD@ D$GBD 5.ENTR .MVWD$LID D$MXR D$RID ||CC``h@hx?`pH` ("8Ƹ 5xAh@xh (70Ɉ8Ƹ 5p `hA`=h>|C@mn.@@Xnŝ.D$MDA 91750-1X270 REV.2201 ALL W/3K$Date: 89/04/13 16:08:48 $ /MM/SRC/&D$MDA@ D$MDA 4g.ENTR .MVW !!vph`A!@̲>>X ŝD$BMV 91750-1X297 REV.2340 ALL $Date: 89/04/13 13:55:03 $ /MM/SRC/&D$BMV> D$BMV 4g.ENTR .MVW ##`A(p`h#@<[@@X?ŝLU3K91750-1X274 REV.2301 ALL W/3K $Date: 89/04/18 14:08:32 $ /MM/SRC/&LU3K @ `$LU3K LU3K# P`@ CALL giar(time(4),62,hold2,logbuff)  CALL gmovc(2,0,2h@@,64,logbuff)   ENDIF   IF (.NOT. parsed ) THEN  IF ( (time(4).LT.0).OR.(time(4).GT.23).OR. + (ti(($D3KRB::DS1000:5:3:42 644 0 0 1400 5302722253 32512 $D3KRB::DS1000:5:3:42 $ I*$D3KRB + + + N|FST (( /AD3KRB 91750-1X065 REV.2201 810622 ALL W/3K: 304 BUF ((( ND$TST c91750-1X059 REV.2201 810422 ALL W/3K: 304 BUF (@,xD$TST(( ,D$CON c91750-1X052 REV.2201 811123 ALL W/3K: 304 BUF (@XD$MAXD$MXRD$GMR`F[Z0d** D$QBF ec91750-1X057 REV.2201 810427 ALL W/3K HSI: 304 BUF *@@D$WADD$RADD$WLN`Cy$3** UD$3BF 3c91750-1X050 REV.2201 810707 ALL W/3K PSI: 304 BUF * @D$PBFD$PAD `AB 1X057 REV.2201 810427 ALL W/3K HSI: 304 BUF *@@D$WADD$RADD$WLN`Cy$3$D3KBB::DS1000:5:3:42 644 0 0 1400 5302722255 32453 $D3KBB::DS1000:5:3:42 $ I*$D3KBB + + + N|FST (( TD3KBB 91750-1X061 REV.2201 810707 ALL W/3K: 1072 BUF((( 5D$TST 0c91750-1X060 REV.2201 810422 ALL W/3K: 1072 BUF(@,xD$TST(( D$CON c91750-1X053 REV.2201 811123 ALL W/3K: 1072 BUF(@XD$MAXD$MXRD$GMR`F`Z0d** D$QBF ec91750-1X058 REV.2201 810427 ALL W/3K HSI: 1072 BUF*@@D$WADD$RADD$WLN`Cy$3** zD$3BF 3c91750-1X050 REV.2201 810707 ALL W/3K PSI: 1072 BUF* @D$PBFD$PAD `AB 1X058 REV.2201 810427 ALL W/3K HSI: 1072 BUF*@@D$WADD$RADD$WLN`Cy$3$D3KMB::DS1000:5:3:42 644 0 0 1400 5302722257 32536 $D3KMB::DS1000:5:3:42 $ I*$D3KMB + + + N|FST (( $fD3KMB 91750-1X190 REV.2201 810707 ALL W/3K: 4096 BUF((( TD$TST 'c91750-1X194 REV.2201 810708 ALL W/3K: 4096 BUF(@,xD$TST(( D$CON c91750-1X192 REV.2201 811123 ALL W/3K: 4096 BUF(@XD$MAXD$MXRD$GMR`FxZd** LD$QBF c91750-1X193 REV.2201 800201 ALL W/3K HSI: 4096 BUF*@@D$WADD$RADD$WLN`CI$** RD$3BF c91750-1X191 REV.2201 810707 ALL W/3K PSI: 4096 BUF* @D$PBFD$PAD `AB 1X193 REV.2201 800201 ALL W/3K HSI: 4096 BUF*@@D$WADD$RADD$WLN`CI$$DSMX6::DS1000:5:32:128 644 0 0 20000 5302722260 33576 $DSMX6::DS1000:5:32:128 $ I $DSMX6 + + + ^|FST ??X:ŵ 5"DSMX6 91750-12023 REV. 5020 $Date: 89/09/21 10:43:24 $RTE-6 /MM/SRC/&DSMX6?@z:>>Xŝ#GTPX 91750-1X012 REV.2013 MEF $Date: 89/04/04 14:02:14 $ /MM/SRC/&#GTPX> ;#GTOP `Ϩ @j>>X.ŝ #RQUE 91750-1X027 REV.2113 MEF$Date: 89/04/12 09:57:40 $ /MM/SRC/&#RQUE>&&#CLTA #NQUE #PRGL #QLIM #RQUE &?? :9$CLAS $DLAY $LIBR $LIBX $OPSY $RNTB $SCD3 .CBX.CMW .ENTP .LBT.MVW .XLA?BB `pp(@ A (ppplhxP ( ($`phX(/(X(1Xp 8(&`P(tֈp`p(o@(B??@(W@(@(T@(@(H`(XH`(X`pl x` (c p8 (o(@(` hA p h (t p (zpŋz``l((c==׈pm`P(P(ڀ`(h̀H Q(` !p(@p@@!(H`@(ph (@hHxH((PE\@@(`(ʀh H HHH(̀`Ă&(h (p@0P(ۈ(h H P(H Q(H X `pÈx`5h  @" S 00È0pBBP(hوXp h  !( h ( @` (@@(C H@(Àa(-@(`@(h (:HP(` hh (C`H|@>>A`؈hXp׈x`(gh` 0 `ހ ߈``(d` ဈ` h (p` ` 〈`(zɀw (`H(`l(`~AAP((kP`׀k`p(hɈ``P( !( `h (8`ph 8(ǀ(A Ѐ(Lj((hʀ(ȐBBh(h(ƈh(h`(0001020410IODS08LU03RQ (ppGA!(pHxxۈ`P  ( Ahxa8`l((x(x`2s>>pP(`ـP (Ũxm`l@(0 ((ghxj()(&@@pi(=@@pi(=(4(gxj(;@@pi` N?AA(JHxj@i(g@pi`͈(R xjXi(g(K` (^` (^`hj(Mp `pkډplhڨ`pi` 8i(qmhA(x  vvxGG((Hh@(x  (z`׈ڀw?0x    v    00J P P xa(ptp`h7@p(0@vs3>>XW$ŵ 6,PGMAD 91750-1X145 REV.5020 $Date: 89/09/21 10:37:27 $MEF /MM/SRC/&PGMAD> 3PGMAD &&{i$LIBR $LIBX .ENTP .MBT.SBT.XCB.XLA.XLB&>vII`(6p`p`pp(=ph@(P(4 (,`h`(d` (*hx(p@-_I@@(N(ahH(V@(ah`@P(d8h(C``ˆ(t`hH@ (th `pĀh  `(@@@ h`Â$5 VV44`  !h (@hƀ  V@==X ŝ5#OFF91750-1X218 REV.2013 MEF$Date: 89/04/05 15:49:58 $ /MM/SRC/&#OFF = J#OFF :^.ENTR EXEC  ; AA @$>>Xŝ#PBZ? 91750-1X236 REV.2113 MEF $Date: 89/04/05 15:56:23 $ /MM/SRC/&#PBZ?> O#PBZ? kEXEC ((` h @e >>Xpŵ 0#PKUP 91750-1X023 REV.5020 $Date: 89/12/06 19:31:18 $ ALL /MM/SRC/&#PKUP> @#PKUP ''.ENTR .MBT.MVWEXECIFTTY LOGLU NAMRRMPAR '  |?EExpIpJpK`@pL(MAI`JLIpp(hA^`(jpA(jh(nm@ptx? (z`p(pʀh @x (~~O<<J8J(`P(` `pՈ(`J`JAp h`H@? `hx`@@hJ A`J@pJ`8(~(Lj8h @x!(~UUK`..`p8(`KL`p ?` ۈ8(רJ8J @ U@9^BBX8ŝ"D$XST 91750-1X280 REV.2326 L,M3,IV,6,A1$Date: 89/04/14 09:47:59 $ /MM/SRC/&D$XSTB D$XST $LIBR $LIBX .XSA@J}i=BBXŝD$MWI 91750-1X281 REV.2326 L,M3,IV,6,A1$Date: 89/04/13 16:10:53 $ /MM/SRC/&D$MWIB #D$MWI -p$LIBR $LIBX .ENTR .LDX.MWIA@A`hD@dBBXB ŝ3D$MWF 91750-1X279 REV.2326 L,M3,IV,6,A1$Date: 89/04/13 16:09:39 $ /MM/SRC/&D$MWFB #D$MWF .ENTR .LDX.MWFne AAH`h@ BBX ŝ" D$XLD 91750-1X278 REV.2326 L,M3,IV,6,A1$Date: 89/04/14 09:47:00 $ /MM/SRC/&D$XLDB D$XLD [.XLA ( @%AAXWŝD$FCM 91750-1X298 REV.2540 M/E/F W/3K$Date: 89/04/13 15:50:39 $ /MM/SRC/&D$FCMA ?RD&ST s.ENTR .MPY.OPSY LUTRU RMPAR XLUEX DDA@ PSPT xR(Ep@(E`@O@GhR HhH (E@OM@@LpQ`0PpJ (;hHU (:N`IpAAVJ(E`Q  tpD?D d @+<<Xz ŝD$OPM 91750-1X308 REV.2540 $Date: 89/04/13 16:20:04 $ /MM/SRC/&D$OPM< D$OPN .ENTR SPOPN   @I  /PMC2/INCL/[tbuff $INCLUDE /PMC2/INCL/[ctask $INCLUDE /PMC2/INCL/[SCNST,NO LIST $INCLUDE /PMC2/INCL/[SCCOM,NO LIST &c ************************************************************$DSAL::DS1000:5:32:128 644 0 0 20000 5302722261 33543 $DSAL::DS1000:5:32:128 $ I $DSAL + + + p|FST ??X>ŵ 20DSAL91750-12027 REV.5020 $Date: 89/09/21 10:38:43 $A-ONLY /MM/SRC/&DSAL ?@|~>==X ŝ7#GTPL 91750-1X011 REV.2013 L $Date: 89/04/04 13:59:42 $ /MM/SRC/&#GTPL= ;#GTOP GTOPN   @/==XŝIDADL 91750-1X127 REV.2113 L $Date: 89/04/18 13:27:05 $ /MM/SRC/&IDADL= /#IDAD $IDA$IDSZ .XLA55^Jppp`@@h 5@nk<<XF0Eŝ:#OFF91750-1X219 REV.2326 L$Date: 89/04/05 15:50:57 $ /MM/SRC/&#OFFL< J#OFF |.ENTR MESSS ))ɾA@p8BD)@OF, ,FL @c>>X* ŝ#PBZ? 91750-1X237 REV.2113 L,M $Date: 89/04/05 15:57:53 $ /MM/SRC/&#PBZL> O#PBZ? dzLIMEM     ` h @ <>>Xpŵ 0#PKUP 91750-1X023 REV.5020 $Date: 89/12/06 19:31:18 $ ALL /MM/SRC/&#PKUP> @#PKUP ''.ENTR .MBT.MVWEXECIFTTY LOGLU NAMRRMPAR '  |?EExpIpJpK`@pL(MAI`JLIpp(hA^`(jpA(jh(nm@ptx? (z`p(pʀh @x (~~O<<J8J(`P(` `pՈ(`J`JAp h`H@? `hx`@@hJ A`J@pJ`8(~(Lj8h @x!(~UUK`..`p8(`KL`p ?` ۈ8(רJ8J @ U@9^??XMlŝ"D$XLD 91750-1X289 REV.2326 RTE-A $Date: 89/04/14 09:47:00 $ /MM/SRC/&D$XLD? D$XLD $LIBR $LIBX .LWD2 .SWMP .XLA2 ((p`@`(@??XJŝ8D$MWF 91750-1X287 REV.2326 RTE-A $Date: 89/04/13 16:09:39 $ /MM/SRC/&D$MWF? #D$MWF %%$LIBR $LIBX .ENTR .LDX.LWD2 .MW20 .SWMP %..A@AAA`hH`.@ix??X\kŝ D$MWI 91750-1X288 REV.2326 RTE-A2$Date: 89/04/13 16:10:53 $ /MM/SRC/&D$MWI? #D$MWI %%$LIBR $LIBX .ENTR .LDX.LWD2 .MW02 .SWMP %..A@AAA`hH`.@???Xdŝ"D$XST 91750-1X290 REV.2326 RTE-A $Date: 89/04/14 09:47:59 $ /MM/SRC/&D$XST? D$XST $LIBR $LIBX .LWD2 .SWMP .XSA2 ((p`@`(@"::XAŝ STFCL 91750-1X294 REV.2340 RTE-A $Da 891110.1627 /MM/SRC/&D$FCL:@ށA::X6$ŝ D$FCL 91750-1X294 REV.2340 RTE-A $Da 891110.1627 /MM/SRC/&D$FCL: &D$FCL ! 55 x .ENTR .LBT .SBTABREG CNUMD D$DVT D$VFY EXECKCVTLURQXLUEX 5--<`p`! (`pp(-ۦ>>(ppP(C`p`@ pA+`(?P(2(7`` p(;``p`((C`h`ApM؁pŀ`(U`(THH(rh6 @ (ah@6  (d(Hh6 h6 h6  h6  ` Ay؁p`(`(ppA`@pp`pAbIIp`p`#pAp`p`pAp` ppAp`!p`"pAPƀ(/DD`@p`@(`@pp`p`phH6` h6 ` h6` Hh6 P(h6 h6  (h6 ` h6  P()h6  Hh6 (-bS)DDh6` h6H  P(>XL,ŝ "D$VFY 91750-1X296 REV.2340 A-L $Date: 89/04/14 09:04:17 $ /MM/SRC/&D$VFY> D$VFY ,P#NMSC #NRVS .ENTR NN ,,AP((p'A'()*+("h* ("`%`&N@&v??XI=ŝD$DVT 91750-1X295 REV.2340 RTE-A $Date: 89/04/13 15:40:23 $ /MM/SRC/&D$DVT? "D$DVT z3$LUT# $LUTA .ENTR .LDX.MWF.XLArr}==AJ(J@:@(@p<@65P4(`:`<@75P9()`;`<@89h@6?r@:YUAAXQŝ((D$FCA 91750-1X299 REV.5010 XL/A W/3K $Date: 89/04/13 15:49:18 $ /MM/SRC/&D$FCAA ?RD&ST (.ENTR .MPYRMPAR XLUEX yyCCApO`@pJpI (hH= (A>`Ap`IpM`HpN"BMK(%XP()`LpO`?pJ.BI(;2C`O(8`D`D dEDy H K @P. @cS<<Xw ŝD$OPA 91750-1X309 REV.2540 $Date: 89/04/13 16:13:16 $ /MM/SRC/&D$OPA< D$OPN .ENTR 5 `@#??Xjŵ 6'PGMAA 91750-1X301 REV.5020 $Date: 89/09/21 10:35:56 $RTE-A /MM/SRC/&PGMAA? 3PGMAD 33 $XQT.DLD .DST.ENTR .XLADISPATCHLOCKDISPATCHUNLOCKIDGET IDINFO30II\\\ ` b`pdpfphpgpp`_pApp `(.J (.,h_xpe(U8ehfgA(U<hg` cd@b`f(P,,8 IiPi(Phi`hxf`ehf`aAWb (R,_ \@ff(1),word,pos,len,oldval,ibits c  c Get the current value c  oldval=ibits(tblock(word),pos,len)c c Move old value messa$D3X25::DS1000:5:13:60 644 0 0 6400 5302722263 32066 $D3X25::DS1000:5:13:60 $ J <$D3X25 + + + `1}FST ## D3X25 91750-12028 REV.2440 840726 ALL W/3K#3D3$$ @D$XIN 91750-1X306 REV.2401 840330 ALL W/3K $@*nD$XIN `Dh && a4D$X25 q91750-1X262 REV.2440 840727 AL 840727.1000&@D$X257** Z.DIV .ENTR .LBT .MPY .MVW .SBT ABREGALTADD$DN!D$G3VD$PUTD$WLGXLUEX *`AB;;``(`/6p@h96  ((#`!g0cp!h96  Jh:6  `!fp! "7$ 8;`M"h96  p,8((1((`V2 00p/(1 $?`hh@pH1G4HI(--`W;!J(;O`pa`a!S(``a$\hiHxb1&`bc-11`Xd(Ki}~`}({`}PS(p(r`np|P}(v(x`mp|1{|1`M(e`@k(`@jp`<<`` p`TZp(p`^A@(hi6Z@H pa$Za(`p<<<`bA (`^A@Z(1$Zgp`T p`^A@Z(`]A@(hi6< `C@H <<`b_֖ pbb(hi6Z@H pb` @b@kp` 4ZT`(`@ <<<`a6T@phj6HZ` p`p`p(` T`(!` 6T@phj< `C*r6H`] ;;`aDsxbhb Zhj6 pc`Z@o @chj6 `(8P`_A@(;1;4h`;::`cl=X(Hhk6`` Xhk6 `` (`hk6 ` 6Zxc` Z @chk6  :`A`d<<`ee8d( $Z,06hLJ6  hLR6` dy~1,@hL6  (1hL6 <<<`` p6F` 0ep JhL6  hMZ6  `!g0bp!`!fp!hN6`U hL6 < `D hN6  ;;``d  G 6"IchL6  p#`lp2phO6H 882(hO6`Y hO6HV;<<`a3bβ`] FB ]X@phO6HW hO6HW hOP6HX hO6ZH[`] `!g0ap!`!< `D0dp!  $$`Ut$H #IF6FIc$#JFFhLZ6  p`7$++`Y8 3`3hP "K4p5p`ep(l $1 "$ +((`^S c@@?8(SS## "D$PUT 991750-1X304 REV.2401 840326 ALL W/3K#@(|D$PUTZ#3KLU#LU3K$LIBR$LIBX.ENTR.XLA .XSA D$3KL;;`aB +P()`('p,h.h1x+h(H-8,(('000/;''`X!2 `+2@2'!!&& :RELSX 391750-1X305 REV.2440 840726 AL 840726.1612&@6RELSX(~.ENTR.SBT RPOOLXLUEX`AB<<`_4$Z(&(( `%20/p%h-6 &`%1p%`0p#$#$,&'("`.< `B!'( `Jٮ)&($@?))$D3N25::DS1000:5:2:36 644 0 0 1000 5302722265 31772 $D3N25::DS1000:5:2:36 $ J($$D3N25 + + + }FST ## D3N25 91750-12029 REV.2401 840224 ALL W/3K#3D3$$ ,tD$X25 91750-1X266 REV.2401 840425 ALL W/3K $@D$PUT D$X25D$XINRELSXN.ENTR`K>P`QB   Bh CG!!%APLDL::DS1000:5:4:127 644 0 0 2000 5302722266 32574 %APLDL::DS1000:5:4:127 $ J,%APLDL + + + }FST 66X8(ȗ"APLDR 91750-16040 REV.6000 <921028.0825> /MM/SRC/&APLDL633ZAPLDR FINFO O.BUF <OPEN. SECUR TMP.DWRITF 355 P#CNOD #NODE .ENTR DSTIO EXEC IO.. LO.. PL..PRTNRMPAR XLUEX 5ppuk:: A ((3X(3`pp p` xhPhPhP(6,`(iA36 xh('pp` 0p `0p`p`p`״Zp(b`5@p$PY (b<;;`hY[b &`vXPv$n $Xup$~ v` ; `Cɍ0p 55`bK`p `0pp(K P? @ 5`B``BZ  $n $Xup$~ v` ; `Cɍ0p 55`bK`p `0pp(K %COMND::DS1000:5:5:60 644 0 0 2400 5302722272 32315 %COMND::DS1000:5:5:60 $ J4<%COMND + + + T}&FST (( FDCOMND aZ91750-16049 REV.2013 791003 L  EXEC LOGLURMPARREIO CLRQ PNAMEPARSE#ST07.MVW <<`b16tddtd4t&d4t8$_| |7 ,<::`^",%, *$87 lT,1dl,Z td\Wdt\U,x\V,v:;;`^@\W,w\X,N lL ,NM,t-dD`tdt6d#tR4MNtQcS;;;`aK=^$**Q,,dR,umQrT\Q,,,Dt4tdT,l;;;`anL,P,T,. t,T ,. `l h tLtOLT;<<`` ,. tPTY$O4Z,,,Ƕdl,l,ld,t|شd4<;;`g0t&dR,ϰ<RQ,CMD EXECINPTAPIDBSh,,L;##`XD <:@ # `G _ _ `Bar)`BM`P\Q PLIOLOSSAPLDR OPERM CMD EXECINPTAPIDBSh,,L;##`XD <%DINIT::DS1000:5:46:128 644 0 0 27000 5302722273 33334 %DINIT::DS1000:5:46:128 $. J<.%DINIT + + + .K}.FST AAX/ pŵ 2DINIT 91750-16068 REV.5020 $Date: 89/10/09 11:44:20 $ ALL (NSD) /MM/SRC/&DINITAss> #ABRT #CLSB #EXFR #INBF #MA1. #MA2. #MSKD  #PRNL #PRNT #PRNW #PRSB [#READ #RNSB #RSM. T#SYSR *DINIT sc"I#3KLU F#CNOD )#DISM @#EXHC A#EXTC 8#FWAM B#GRPM M#ISTO ;#LDEF G#LEVL H#LU3K 7#LV &#MA1'#MA2(#MA3N#MAHC O#MARN P#MCTR 5#MRTH K#MTBL C#NCLR ?#NCNT 6#NMSC =#NODE >#NRV9#NULL ~~2#OSRV +#PKUP *#PLOG J#POOL :#QRNE#RFSZ -#RR1.#RR2/#RR30#RR5,#RSAX L#RSMD#SCLR 3#ST04 4#ST10 Q#ST12 <#SWRD $DSCS $LIBR $LIBX $OPSY .CAX.CMW.DSX.LAX.LDXR.MBT~~~.MVW.MWIS.SBT.TBS.XCB.XLA.XLB.XSA.XSBCASEFOLDCLRQ1D$3IN $D$DN! !D$LID "D$RID #D$RLU %D$XIN D$XS5 EXECFMPCLOSEFMPOPEN FMPREAD IFTTY MESSS PARSE PGMAD ~$PRTNRMPAR RNRQXLUEX   W">>@ RONA+/$`p`ۈp n 88(3` 2ph 4 8(B` kp "` hp ` ip ` op &`&p '`p`h$hxx(`ppp `DD 0px `"(m` (qp   `$0p N(`(%(( ΀(pA((( 5(h8x ((T Zp `#p p p x x x (*@@DINIT 8  ( P``0(` ( ( t( `p [P(ψX((x (H (h x ` . (p @p )(p @ (p `@@@&(p @ (p p `(U` 0p  ( `p 0[P( X((x 0 (HN (` 0 (p @ (p  (  [P(x * (%x  (9~~,@@ (0 [P(. (.x H *x *` * (p @ (p  [` HXh!Ɓ [` @Xh" `( (] [P([  ([x x %x @-(p ~elCC@ (p `  (p @ (p F` p`p,((H( `8@ Hp /@ p>p 턄@ pK@ p7@ pJ X HxJh @ pHac`(ejQEEAo +( tv{`()` Hp?`(` ' و( [P P(x(T T p`Ah ~( ( (??( ` 'p %p & (( 2( H`G~p p [(툀P(x (` @ D(`>(@(`h p hX(` (*` (4(hH (3<<phX(`( ` hH (0p h` X (T(Tp(0` 0p (Z((h ` X0p ` X(eH`Gp G~8 ` H(` h.BBRo""@ `h AD xy` @p 8 (` (( p`0pBѢhH i  @EE ` p `8Hp9p(H.@x8@( `p=X(ʄ` ` /H(ŀ` p A` 3hD 1 ր`( [P(∈X((ۈx (( /(ى %( !AA@/ (T `(O@` @I(Op `Hp  #[P( H(x ` -Hp `.((` P((` 0p ` h H` H@p ` A(&$% (O#* 8 ((O0330p xxGA9(`׈P(EP(B(F8. xG8..3=H@@  H` (`p HhIH HHH H 8 (Y(` ,[x؈X(X(~`p `p `} H(z8 8 (l (` (``p `p  8 8 (LLx%%(2(A1(xx` l0 l(`LBB<h  x`@׈hX(́ 5( I[P(xEB` hXh -p8 --6 ((A`h 0-[cJJSTATFERROR:EEEE XXXXX   Ax< QHx6(Kp @8[P(@` H6׀H6׀HxӈGp@D(B`@E(B`Fp`6 1UJFFG`(Q`G(^X(^(]`(`PA(x s|(w(x` (`(v{eiCCH` (j(hH@AhH6 dP8(P 鈈N(` A(`P $( 88A .p f b[X(X (Ӂ i(MMg558Ũ1030d) !)19AIQYacejotv{!@DLIST M CNSLM @EXECW @ PTOPM  !@(EXECM )@0RFAM 1@8OPERM '9@@VCPMN A@HPROGL I@PRDBAM 0Q@XAPLDX !@Y@`TRFAS  ~aUU   -QUEX .QUEZ +QUEZ  , )RQCNV (RPCNV  GRPM  RTRY QCLM #INCNV  $OTCNV UPLIN LRS M OMATIC N@A*PL OG *mDDQUEUE  {ڈ88xhH `p @HHiP툀(P(@85ƈhp`i &H @BB` 0pAp(8`P8P8P8 %` p 0p`p$ 8 ` 0 W Lpy0806xx`jR.`yhxmmj<99(Dpy(a`tSxx`npw`Ոpupvhy w8wxy(Uhv (Z0spvhxHSxx8u(J`yhx0sSA0`fR.0 -32768  o'd 0--mCC3z00 $(4567??  `/A/D/EYECRw p8 x Ax((((`0h T (tt ??`T 8pAp(`T Ap &ވ@hH6T d `(ph  p 8` t{{EE`pp (!`$p h (` x p#x H (#A ` @&p ` h (( (` ` p A  % 8% * /DINIT: {N h ` P8NNTpY8 IZEE( ` h  ` (s`p  k  (` (  ׈(\`(8 }(mh j6H5p `!h `i ` mAP(\  @p X([hX( ss9??hӨ[` (h ( A`p   .A ` p ` p    ( ` h  A` hi ͊ ` @ p h H x (*وp8 sY p 8٨8 pM 8p8A hH&HHH; >>p x HHX ( P( ` @p ( ` 6p p` Ap    (` ( #0 I ? ވ` $p(` ( P8(  ?( k@ H0p` px ?HHA C hH8 ( 70p A1 O H( i` ( _`pA [ ( \8 ( K( iAp h ( i`)`p `ވp  8  A8 ( p, z8Hp8 p= (@`CphDRR  ++p  8(   x 0  ( `@h H` hiA6  }` p   ( A R99bE  (  (   шh    h ` & 93   OFF,XXXXX ,FL   * ``   7DINIT MAY NOT BE CLONED - ABORTING! K&FILE ERROR RSYSTEMS CONNECTED TO THIS NODE:  d& HP 1000?_ kFANSWER YES OR Eg r``NO! v{# ACTIVE TRANSACTIONS? _ MAX # CONCURRENT HP3000 USERS? _ # HSI OR BISYNC HP 3000 LINKS? _ MAX # CONCURRENT 1K-3K & 3K-1K USERS OVER X.25? _ NLOCAL ID SEQUENCE? _ NREMOTE  `` ID SEQUENCE?_ .LOCAL CPU#?_ }TOTAL # OF HP 1000 NODES?_ CPU#,LU,TIMEOUT,UPGRADE LEVEL,"N","MA",MA TIMEOUT?  _ ENABLE HP 1000 LU#[,COST]? _ %6LU OF HP3000?_ .6MONITOR  2``NAME?_ 7N# FILES FOR RFAM? _ CNETWORK USER SECURITY CODE?_ SNETWORK MANAGEMENT SECURITY CODE?_ f WARNING! XXXXX IS A REQUIRED PROCESSOR FOR DS/1000! ~SIZE OF SAM AREA EXCEEDS 32K! y ``FINVALID RESPONSE! FNO SYSTEM MEMORY! 6INVALID NAME! NOT ENOUGH LINKS SPECIFIED FOR REROUTING! & RN ERROR  6TR FILE ERROR &READ ERROR 6DINIT ABORTED! >CLASS I/O ERROR  ``.NO CLASS #S &END DINIT FNODE SPEC. ERROR! THIS LU ALREADY HAS A NEIGHBOR! > LU ERROR  *>INVALID TIMEOUT! 4zINVALID UPGRADE LEVEL! AzERROR IN LINE #  N{INIT FAIG7 RLED ON LU ## Z \{NODE ALREADY INITIALIZED #@V*%DINIS::DS1000:5:52:128 644 0 0 32000 5302722274 33602 %DINIS::DS1000:5:52:128 $4 Jl4%DINIS + + + 4S}^FST AAXGŵ 2#DINIT 91750-16069 REV.5020 $Date: 89/10/09 11:44:20 $ ALL (SD) /MM/SRC/&DINITAssv #ABRT #CLSB #EXFR #INBF #MA1. #MA2. #MSKD  #PRNL #PRNT #PRNW #PRSB e#READ #RNSB #RSM. ^#SYSR *DINIT spQ#3KLU #BUSY N#CNOD 1#DISM H#EXHC I#EXTC @#FWAM J#GRPM U#ISTO C#LDEF O#LEVL P#LU3K ?#LV .#MA1/#MA20#MA3V#MAHC W#MARN X#MCTR =#MRTH S#MTBL K#NCLR G#NCNT >#NMSC E#NODE F#NRVEA#NULL :#OSRV 3#PKUP 2#PLOG #PNLH R#POOL B#QRNM#RFSZ 5#RR16#RR27#RR38#RR54#RSAX T#RSML#SCLR ;#ST04 <#ST10 Y#ST12 D#SWRD $DSCS $LIBR $LIBX $OPSY .ADX.ADY.CAX.CAY.CMW.DSX$.LAX.LAY.LDXZ.MBT.MVW.MWI.SAX[.SBT%.TBS .XCB!.XLA&.XLB#.XSA".XSBCASEFOLDCLRQ9D$3IN ,D$DN! )D$LID *D$RID +D$RLU -D$XIN (D$XS5 EXEC FMPCLOSE FMPOPEN 44 FMPREAD ICAPS IFTTY MESSS PARSE 'PGMAD PRTNRMPAR RNRQXLUEX 4  p">>@ RONA3/$`p`刈pD 88(3` ph  8(B`Ap `>p `?p `Ep `0p `pɈ`h$hxx(`ppp W`CC 0px `"(m` (qp   `$0p ㈀X(`( %(( (p'A ((( (h@x ( %(p `#p p p  x x Fx (@@DINIT 8  r( 1``0(` ( ( U( r`p eP(͈X((x (H (h x ` 8 (p @p 1(p @ (p ` @@@.(p ހ@ (p p `(S`(0p( c( r`(p eP(X((x  (HX (`  (p @ (p  u( reP(x (-x (7~~*@@ (. reP(, (,x H x `  (p Ԁ@ (p ҁ e` HXh)Ё e` @Xh* `(} ([ eP(Y  (Yx x x @5(p ~&jCC@ (p Ҁ` Հ (p @ (p ҈N` ҈p`p4((H( d`@@ Hp @ pFp ΄@ pS@ p?@ pR X HxRh @ pPkm`(ot#'EEAy  ( ~`(1` HpG`(` / ( eP P(x(^ a^ }p`Ah ( ( (??( `pp (( H`Op p e(눀P(x (` @ D(`F (@ (`h p hX(` ((` (2(hH (ۄ1<<phX(`( ` hH (0p Јh` X (R(Rp(0` 0p (X((h ψ` X0p ш` X(cH`Op O8 ` H0` h6BB\m""@`h AD vw` @ p 8 (` (( p`0pBњhH i  EE ` ݄p`@HpAp(H8@"x8@( "`pEX(Ȅ` ` "H(À` p A` hL Ԁ`( eP(X((وx (ވ!( 7(׉( AA@7 (^ `(M@` @Q(Mp `Pp  eP( H(x `(+Hp(`,((` P((`(0p(` h F` ڈH@p `(A($,# (M+( 8 و((M0 33E.p xxEA7(`׈P(CP(@(D8, xE8,,3<F@@#F` (^p HhQH HPF F 8 (W(^ exֈX(X(|`p `p ׈`{ H (x8 8 (j (^ (^`p ؈`p  8 8 (!LL|%%( &:( A%;%( xx`B0B(`LBB@h   x`@ ՈhX(ʁ ( *eP(xMBb hXh o'p8 --8 ((A`h  0-+JJSTATPERROR:EEEE XXXXX   "xD 2Hx>(Up@8eP(@` H4׀H4׀Hx݈Qp@B(@`@C(@`Dp`4 2BHGGHX>E X>(  E Q`([`E(h'b(h(g`(`XA(}((` (``XDD(o`((t(hH@hH@  EHP@(P ʈX(` ( `P (Ł 88A 8p G C``@??eX(X ( J(8π1030d3 #+3;CKS[ckmoty~((!@DLIST `CNSLM @"EXECW #@*PTOPM  +@2EXECM 3@:RFAM ;@BOPERM ( C@JVCPMN 'K@RPROGL $S@ZRDBAM D[@bAPLDX !Tc@jTRFAS $-kUU  QUEX QUEZ QUEZ  RQCNV RPCNV  GRPM  RTRY QCLM INCNV  OTCNV UPLIN TRS M WMATIC VHI2PL OG 2DDQUEUE 䈀88ĨxhH `p @HHsP(P(@85Јhp`s 0H @BB` 0 pAp!(8`!P8P8P8` p 0 p`p. !8! !` ш:8-!p:8:6x`tZ8`hmmkF99(Np(k`~[x`xp`߈pph 8x(_h (d0}phH[x8(T`h0}[A:`pZ8: -32768  y'd 0--mCC=00 $(4567??  `/A/D/EYECR p8 x Ax((q((`0h ^ (tt??`^ 8pAp (Lj`(^ Ap0舄@hH@ ^ E `(ph  p 8` t{{ EE`pp 戀'(+'`.p h (` x 戀p-x H ()-A ` 刈@0p ` h  ()` ` p A) / 8/ 4 /DINIT: {yX h ` P8XX^pc8 |dEE( ` h  ` (}`p u  (` (  (f`(8  (wh@6H5p `!h 刈`s `CAP(f @p X(ehX( ssk??hݨe` (h ( A`p   8A ` p ` p   ( ` h  A` hs׋ ` @ p h H x (*㈀p8 sW p 88 p  8p8A hH0HHHC  BBp x HHX ( P( ` 刈@p ( ` 6p p ` Ap  $   =eHP=( -( EH`: c Oph  ( ?!8p( 7`: z fphR@ ( V!p  MDD@!( R8( SH@8( M`: A } ^( f@ <( f ( E Ơ`;( 0 p ppÈpp`8pH`(p`O0 p 9 0 2 ( ( 7 舀 3  $   KK`<( 0 p ppˆA`Xp  9 0 1 ( ( 7 舀 5  $ ф  Bp 1p DpAp>p@ oh= @ ( !@p ;H<!@pH;!A0 p :  9 :mY BBh ;( `Lh  Ah oH`C@ h( $F0 H08( `ppp` pppppppkpmp~p`poptpp@py  (A #hhG EE  $p )8 $ eX $( PTOPRDBANOSA ?8 SHUTDOWN? _ GHSYSTEM SHUTDOWN QNUMBER OF ACTIVE TCBS: h  f hNUMBER OF LOCAL-TO-REMOTE SESSIONS: - } NUMBER OF REMOTE-TO-LOCAL SESSIONS: L `` MUST HAVE CAPABILITY >= 60 TO SHUT DOWN. INCOMPLETE INITIALIZATION DETECTED; CLEANING UP. PBEGINNING SHUTDOWN WARNING: SLAVES NOT CLEARED OUT.ERROR: 0CONTINUE?_ PSH% EEUTDOWN COMPLETED ` ( :*  ` pɀ(` ( `P@( `耠 oG( L H@!0 p` apxA $ bhH 8 τ( 8p A9 0 H( J`(( @`p@ 9DD < b( =8 ( ,( Jp I c H( J`1` p `p ׈ 8  o8 ؄( Q4 [@p@H dpE @H@`KphLp  8( j d x 0  ( `@Ah H **X }` hsA@ ` p   (  *99z  (  (   h   oh  ` 0 o 98   OFF,XXXXX ,FL   d ``  DINIT MAY NOT BE CLONED - ABORTING! ,0FILE ERROR 3SYSTEMS CONNECTED TO THIS NODE:  E0 HP 1000?_ LPANSWER YES OR R S``NO! W# ACTIVE TRANSACTIONS? _ eMAX # CONCURRENT HP3000 USERS? _ w# HSI OR BISYNC HP 3000 LINKS? _ MAX # CONCURRENT 1K-3K & 3K-1K USERS OVER X.25? _ XLOCAL ID SEQUENCE? _ XREMOTEE `` ID SEQUENCE?_ 8LOCAL CPU#?_ TOTAL # OF HP 1000 NODES?_ CPU#,LU,TIMEOUT,UPGRADE LEVEL,"N","MA",MA TIMEOUT?  _ ENABLE HP 1000 LU#[,COST]? _ @LU OF HP3000?_ @MONITOR  ``NAME?_ X# FILES FOR RFAM? _ $NETWORK USER SECURITY CODE?_ 4NETWORK MANAGEMENT SECURITY CODE?_ G WARNING! XXXXX IS A REQUIRED PROCESSOR FOR DS/1000! cSIZE OF SAM AREA EXCEEDS 32K! t s``PINVALID RESPONSE! PNO SYSTEM MEMORY! @INVALID NAME! NOT ENOUGH LINKS SPECIFIED FOR REROUTING! 0 RN ERROR  @TR FILE ERROR 0READ ERROR @DINIT ABORTED! HCLASS I/O ERROR : ``8NO CLASS #S 0END DINIT PNODE SPEC. ERROR! THIS LU ALREADY HAS A NEIGHBOR! H LU ERROR   HINVALID TIMEOUT!INVALID UPGRADE LEVEL!"ERROR IN LINE #  /INIT FAII3LED ON LU ; Y @`3*%DLIS1::DS1000:5:13:60 644 0 0 6400 5302722275 32571 %DLIS1::DS1000:5:13:60 $ J <%DLIS1 + + + }FST !! DLIST 91750-16072 REV.5000 860701 MEF !99#ATCH#GET #NODE#OK? #RPB #SLAV#ST01$BMON$CL1 $CL2 .DRCT .LBT .MVW .SBT DTACH EXEC FSTATPGMAD9;;``p `(`@ Z(`@}p`@}p`hHpx$$;::`ai ;(`;(CpAh7P;(/8(*XB5(DS038E$$:<<``B6A`p;`p;`p;hx;`Z%`(_`; pV(\0 _;(<44`YQb`;P(f(j`;((h; ({X;({Z({h (w P;({ x;4;;`[u{`;(h;Z(H(`;@~p;(_y`;p;`p;;p;8;;x;8;8;;22`YػX;8; (Eh (Ph{ x;`(E`;h y`p`;@y2;;`\ Ih;Hp;H@;Rp;IR`p`I`:p;h|`;h;88`Z>˴x`9p;`;@P(E;((H(ն`>Xo.Aŵ 3DSINF 91750-16077 REV.5020 $Date: 89/11/09 15:44:23 $MEF /MM/SRC/&DSINF> DSINF  a)#3KLU '#BREJ ?#CLRN #CNOD N#EXHC M#EXTC !#FWAM +#GRPM 9#INCV F#LCNT /#LDEF C#LEVL 2#LNOD (#LU3K P#LUMP J#LV G#MAHC H#MARN E#MCTR K#MDCT B#MHCT O#MNUM ##MSTO 0#NCNT 1#NODE ||,#NRV#OSRV :#OTCV 7#PLOG L#POOL A#PRLU 5#QCLM &#QRN;#QXCL <#QZCL *#QZRN @#RDLY .#RFSZ >#RPCV =#RQCV I#RSM6#RTRY $#SVTO "#TBRN 8#TRCL D#TRCN -#TST%#WAIT $CLAS $LIBR |}}q $LIBX Q$OPSY $RNTB .CAX.CBT.DFER .DSX.ISX.LAX.LDX.MBF.MBT.MVW.MWF .OPSY .XLAR.XLBCNUMD CNUMO D#OPS D$3IN 3D$LID 4D$RID SD$XS5 DEXEC DLUEX EXEC} tIFBRK KCVT PARSE PGMAD RMPAR XLUEX 4 =tn_fFQQRQ( PP x@pEphEH(``p(W@pF EQ DS/1000 EQT ENTRIES EQ,N DS/1000 EQT ENTRY # N LU,N EQT ENTRY FOR LU # N DIIdtAp3pAp7p=7=>?@`(ʀh (`@(p@A:@A`AhSp(` p`Bh~pA`~hp`~hp@(`LpCCAp(;i`p`p(P (Pp(@(h(`x (`0Kp@(h`hxF@`,(`-D @-h!@p@M(!`Qp`!#('``((:I.0CC TIME---XX:XX:XX::00pA@+`,09p7`-09h8H5`.p4H0`1*# `` y``Q `N ``OUsOOd``K.`P(`~hpp`~hAp`((s A  WRONG DSINF LOADED AVCLVADULINRNEQLUMARRXPRSEEX FU c II`(AP( y  yW ( y  yW ` ppP(R(F(AR(Fxʈ`P( (JP((JP((JLV>>P( (JP(! (JP(&(JP($P(-d(JP(2(JP(7(JP(<.(JP(A(JP(FP(Ip(J@EXAANU,,ECW /DSINF: FUNCTION?_ /DSINF: WARNING: NODE NOT INITIALIZED *** END OF DSINF ** * A ppA8DD##ppA 8piA i(p `h _` D?MMp8p8`p5P(A y5A y5 7HA`!h@H`׀Dp@/NH8(A  /DSINF: VALID FUNCTIONS-- aC`` AV AVAILABLE MEMORY SUSPEND LIST CL I/O CLASSES VA DS/1000 VALUES DU DUMP OF DS SAM BLOCK LI DS/1000 LISTS NR OR /N NODAL ROUTING VECTOR MA bVV MESSAGE ACCOUNTING RR REROUTING RS REMOTE SESSIONS EX OR /E TERMINATE DSINF'  "0A N_o zOO77Ѐ AVAILABLE MEMORY SUSPEND LIST IS EMPTY PT SZ PRGRM T PRIOR AMT.MEM FATHER@|?--B O}2>>`̀p(u` #`@6hAHphۈH phHpp ` *p hHhHwphxh p0;;`wp`(d`l@Ehp`@6hH6phHw(d`@눈phHwl@Ehp`@(? &`wp(?`@pi h$$kp(` #(xШ$zz||ZZ I/O CLASS INFORMATION CLASSES IN SYSTEM CLASSES IN USE: CLASS STATE GET POSSIBLE OWNER CLASSES AVAILABLE BLOCK(S) WORDS] [)BUALGT z30BB`p׈((hpЁ| `؁  p`phHx@(A(@hp( 8(`@ف `(Lp{pz`+==p`(/8zhH눈@{p{hڈp8( A 12`̈́hy`z`Έp`l0ʈp`{`l0p (O NO`(V`p({`Єp`ˀp\AAh (i @(ihpۄ(\ kl`(x`ۀ@6hy6AHp({A`ڀ`ӈp`pphEHp@ h(hۈH(`@6hAH6p@bb00`@p@(p`@p@(p`(`p `p(`@((Ј` Шbx`` DS/1000 VALUES: RESOURCE NUMBERS: OWNER LOCKER MAXIMUM HOP COUNT MAX LINK DOWN COUNT PROGL MESSAGE LU UPGRADE LEVEL UPGRADE SUBLEVEL LAST A/``PLDR LOAD-NODE NONE CLASSES ASSIGNED TO PROGRAMS: TIMEOUT VALUES (SEC): MASTER T/O SLAVE T/O REMOTE BUSY RETRIES REMOTE QUIET WAIT MAX RETR9[[Y DELAY RFA FILES MAY BE OPEN HP 3000 LU TABLE LU BUFFER SIZE CR FLAG LOCAL ID SEQUENCE: REMOTE ID SEQUENCE:  窠H7D{EII?*&"MA TABLE ACCESS PLOG SYNCH. TRC65 TRACE QUEX CLEANUP QUEZ "LISTEN" QUIESCENT TCB ACCESS  )P87MNGI:95hh)3BB6+>=<;;LUMAP TRC65 PLOG EXECM EXECM M. A.RSM OTCNV INCNV QCLM RTRY GRPM RPCNV RQCNV QUEZ QUEX .  h44Xy$$ ~   *DOWN* (X.25)  4gAAlpu8xvA`vhQ`uphHupڈlpPl(`hp(`A(( @6h6p`׈lpPl(`hy Ap(逄`(IAA( @6h6p l   `! php`p`戈pw`pxw8w`@Qp8x(9`:ʩ DDp`(pw`9pxw8w`@p8x(&HI `#0mp_U H`$0mpl@b `'׀0op{o `%0`1p`2p@| `@l0nHdII `B @`K `A01   (`2P R(6+`Clp  @`Clp*! @`.(@`)( px HHpyyz{|}(`z `hp`{(`h `|`}(`hA 8y8x(`3x (6hs`(@rp@`4CC- x (6ht`( @rp ШhEH `  CQQxi ;; DUMP OF TCB BLOCK LOC OCTAL CONTENTS OF LOC THROUGH LOC+6 DUMP OF HP3000 TRANSACTION STATUS TABLE+5+6!Q TBB` p@ h  ( ` pH xi@i( }`@@!A7h HHx x`p( f A p P( `@ p( WШ S@`! p3  XX8 ++` Np 9 !`!p `-`,@ Rp `p ` p  S` P( @`((  :` Op 9 !`-Hp @!@p ` p ` Qp  S X:y `` DS/1000 LISTS ENTRIES IN MASTER REQUEST LIST, STARTING AT ACTIVE SLAVE MONITORS: 1ST TCB STREAM CLASS MONITOR ENTRIES LOCATION ENTRIES IN NULLxxP| &YY LIST, STARTING AT ENTRIES IN PROCESS NUMBER LIST, STARTING AT ENTRIES IN SLAVE LISTS PROG CLASS T/O CTR PROG LOGL U ' B *xS HHp ` ( `!@ D7p ň8 ` ( A7l@lppih ~7x DA7Dlp 7h | ( h }x @6 h wp`i` 01 ( `  `!EY AA  `3( `p p p p |  `  h {` H zx  ` ( p  _`;p p | p   p HO`4@h4x  @@p@ ( I`/@ y@Ap Ap ` @ y A( Ehy` xp`p ` l` ( @p |  ` ˆ@ p ( E` Mp `p( q I@@`  P O`p p p |  ` ā /h ` H zx c `p p p |  3` ā Lh {` H zx w 2` ( p  m `p p | p3  `` WORD VALUE MEANING WORD VALUE MEANING PARAMETERS/STATISTICS .... BOARD, FIRMWARE REV.YYWW, SPEED: ........, .................... FCL ...ABLED, DIAGNOSTIC HOOD ... SEN33 ##SED 300 BPS 1200 BPS2400 BPS4800 BPS9600 BPS19.2KBPS57.6KBPS MAXIMUM3FF '22INIOSTPA EN DIS NOT1024 128..TERNAL CLOCK  5 ... BYTE FRAME SIZE @ 0 1 HDLC BSC O RF  \  _ ? a > hBB567p b@ yp |@҈p c`h dX W`  b  d` ^h c8` ^@p ^ k px` k8x( px( ` a k $8x(  ` Y01` Z01& ;;` ]0`2p` Pψ( P (( ` ]P h( P j(WF` ( (  `p ^ph Xx d`ˈ h ]X j(WX h(<F`h  @ _ ` P `( p `` (  CC ` ∈px` p0hx1` p wh %` M` N x %181A0Q08 w(  &8x( ` Z0 p [` ̈P( P )( P *( (  R [  yȄ(  %R [ ( )a (DD`p0h  80( +` h Vh Ux 9 ` 01 `  A@ h L` ( \`  ( V 1 @( Z 3 @` J( c`  h 'hx 5` ?h KA $ -~~ט l@@ `  ( v + ` h ` ( /  ` ( ` p ` lp   ׈p `p ^` 䈈p0( ` p ` lp   p ` p0kp  `0  x `  p ~rr5 <<`p ^` p0` Wp d` P *( p`p ( ƈ`p` p Ȉ` ^@ p ^`0@p0 `0 Ј  ( DRIVER REPORTS ERROR nr `` READ ABORTED WRITE ABORTED RD RQ PENDING WT RQ PENDING BKPL LOCKED RP BKPL LOCKED WP SHORT TO ACTIVE MED. T.O ACTIVE LONG T.O ACTIVE CONNECTED START OF MSG. NON-DS MODE ei`` ASKED TO CONNCT SEVERE ERROR P-F RECONNECT RFP WAIT  GOOD I-FRAMES RCVD RR FRAMES RECEIVED RNR FRAMES RECEIVED REJECT FRAMES RCVD RCV PROC OVERRUNS CRC ERRORS ABOR|``T SEQ. RECEIVED RECIVER OVERRUNS RX BUFFER OVERFLOWS FRAMES W/BAD ADDR CMDR FRAMES RCVD UNACK FR WINDOW SIZEN2 RETRY COUNT T1 T.O. IN 0.01 SEC GOOD BLOCKS SENT GOOD BLOCKS RCۥ)``VD BAD BLOCKS RECEIVED NAKS RECEIVED WACKS SENT WACKS RECEIVED TTDS SENT TTDS RECEIVED RESPONSE ERRORS 3 SECOND TIMEOUTS LINE ERRORS BLOCK 1``SIZE (BYTES) RETRY LIMIT CONNECT TIMER TRACE SIZE (BYTES) MODE AUTOMATIC RE-ENABLE CONNECT AS SECONDARY EQT # , LU # , TYPE FLAG BITS (EQT WORD 26)~~4a@@` Y(9`@ Y(9` Y8 Y@p f@ꈈp ]P h( P i( P j( ` YAP(9 (9(` fh ` ]P j(6` f@A(D  !p Z`p ehx g g~ߘ)::lh ꈈP Y8 Z8 g8 e((p Z`(p Yhx ^ gCX( ` _ ( ` PF( ˈDP ( ` @P F(  `p ^`Np` Wp d` qccNN( p ``(|A p ` (~d@ Rp Y` P Y d`p p Y` Yd (I/O LIST ADDRESS INITIATION ADDRESS CONTINUATION ADDR FLAGS/SUBCHNL/SC AV/T``YPE/STATUS CONWD DATA BUFFER ADDRESS DATA BUFFER LENGTH REQUEST BUFFER ADDR REQUEST BUFFER LEN SERVICING PROCESS ASSOCIATED EQT (( EQT EXTENSION ADDR NOMINAL TIMEOUT `` TIMEOUT CLOCK RETRY CNTR/READ PNTR1ST READ LEN/SKIP CT2ND READ LEN/SKIP CTFRAME LENGTH ON CARDWRITE POINTER WRITE BUFFERS LENGTHMAX PSI FRAME SIZE NUM OUTPUT BUFFERS READ CON{q``T ADDRESS WRITE CONT ADDRESS FLAG BITS MISCELLANEOUS BITS COROUTINE ADDRESS CURRENT STATUS EQT EXTENSION ADDR NOMINAL TIMEOUT TIMEOUT CLOCK MICROCODE COUNT }`` LAST WORD RECEIVED VERTICAL PARITY WORDDIAGONAL PARITY WORDTOTAL BLOCK TRANSFERTOTAL WRITE RETRIES LU NUMBER SLC LONG TERM STATISTICS READ REQUESTS WRITE REQUESTS ME1]]SSAGES TRANSMITTEDSPURIOUS INTERRUPTS LINE ERRORS NAKS RECEIVED BCC/PARITY ERRORS LONG TIMEOUTS RESPONSE ERRORS RESPONSE REJ WACK/TTD RECEIVED Sp `4BB  ` @` @ R@lh p @ Rp Yꈈ` P Y `!H`0pH5`1* #JH`,pIhI8I( ԅAAhIhI8Il0GphIlp hI8Ihx` (cꁁ (8H(Ё8Ј` h8I8I(** BLA}\\NK ENTRY ** *  NRV SPECIFICATIONS: LOCAL NODE#: , NO. OF NODES= (* INDICATES NEIGHBOR) NODE LU EQT SUB T/O(SEC) TYPE LEVEL@(l`tpp(mQQ@@ p 興lpp` h  5 *p@@@҈c MESSAGE ACCOUNTING INFORMATION NODE STATE # UNACK # LINEDOWNS TIMEOUTDOWNNONEUP PEND@`!-CCC@`E(px hE x(p  $x" (x@ hH $ $p` ``` (hH8x((RR1Ш REROUTING SPECIFICATIONS: UP/DOWN LU COST COUNTER STATUS U@P `!. `F(hpx hJxh6, (MhlSRR 8h hH눀H yx@ 8x(D(k1Ш. REMOTE SESSIONS ESTABLISHED AT THIS NODE SOURCE SESSION ID NODE SOURCE LOCAL TIMER PROGRAM E)EEMPTY ENTRIES(CLONE) <`!mpp@hL ('px xh(҈8hH x(`(܈8 ,pl, `(`~~N@@h,l,p,p,(m0p, x,6 H,x, x-p.`,09p`-09h8H`.p 8x(` (*1~* Шh8, NO ENTRIES@~%DSIN2::DS1000:5:66:128 644 0 0 41000 5302722301 33553 %DSIN2::DS1000:5:66:128 $B KB%DSIN2 + + + B P}FST >>Xn>Aŵ 3DSINF 91750-16078 REV.5020 $Date: 89/11/09 15:44:23 $MEF /MM/SRC/&DSINF> DSINF  &#3KLU $#BREJ <#CLRN #CNOD K#EXHC J#EXTC #FWAM (#GRPM 6#INCV C#LCNT ,#LDEF @#LEVL /#LNOD %#LU3K M#LUMP G#LV D#MAHC E#MARN B#MCTR H#MDCT ?#MHCT L#MNUM #MSTO -#NCNT .#NODE ||ѯ)#NRV #OSRV 7#OTCV 4#PLOG I#POOL >#PRLU 2#QCLM ##QRN8#QXCL 9#QZCL '#QZRN =#RDLY +#RFSZ ;#RPCV :#RQCV F#RSM3#RTRY !#SVTO #TBRN 5#TRCL A#TRCN *#TST"#WAIT $CLAS $LIBR |||fK$LIBX N$OPSY $RNTB .CAX.CBT.DFER .DSX.ISX.LAX.LDX.MBF.MBT.MVW.MWF.OPSY .XLAO.XLB CNUMD CNUMO D$3IN 0D$LID 1D$RID PD$XS5 EXECIFBRK KCVTPARSE |@PGMAD RMPAR XLUEX  4 =tn^.FQQON (q P{Pz xy@pEphEH(``p(W@pF EQ DS/1000 EQT ENTRIES EQ,N DS/1000 EQT ENTRY # N LU,N EQT ENTRY FOR LU # N GGUdUtUAp3p$Ap7p=7=>?@`Bh`h A`h@(Ȉ`pp$( "!`![p!`"Jp"(P -(ވP((\\J..`!x$ (`0뀀p@(h`$hLxF`)(`*@ O@*h@p@(`p@`(U`(Q(\eAA TIME---XX:XX:XX::00p$A !d ` :0p`:0hH`:peUe`hS` =`2[`2` &``V(b`jjRGGhp#`hA`#(b(]U  oLooUA|  yLoK WRONG DSINF LOADED AVCLVADULINRNEQLUMARRRSEEX FUj 2 AA`$(  h  ` App (x`P(S(P(È=(P([(P((ꀈP( &(P(׈(P((PjjACC(V(P(P(p#(@ EXECW /DSINF: FUNCTION?_ /DSINF: WARNING: NODE NOT INITIALIZED *** END OF DSINF *** 2j% p/%p,A -/8%%DD0##p/0p7A 8/800pA ?ɨ:(B@p `Sh F` FODUPPUpS8UUpT8U`p5d 5STUU e`hj`lpk@,Ak8k({m@ /DSINF: VALID FUNCTIONS-- AV AVAILABLE MEMORY ^^SUSPEND LIST CL I/O CLASSES VA DS/1000 VALUES DU DUMP OF DS SAM BLOCK LI DS/1000 LISTS RS REMOTE SESSIONS EX OR /E TERMINATE DSINFeUpp3LL UU UUU UUe AVAILABLE MEMORY SUSPEND LIST IS EMPTY PT SZ PRGRM T PRIOR AMT.MEM FATHER@|?--B pg R>>e`̀p;(UeU1`MFU #O`;@M6hRAHh;H O[:ph;HKpPJ:p `PI *:p h;HL%h;HpOhNxh; S;;%`׈p`OH(`O@EhpQ`Q@M6hSH6hQHH(`@KphQH@EhpQ`@4(U &O`p(`@KpU h;$$zp;(e`MFU #(UeS$zz{=ZZ I/O CLASS INFORMATION CLASSES IN SYSTEM CLASSES IN USE: CLASS STATE GET POSSIBLE OWNER CLASSES AVAILABLE BLOCK(S) WORDS] [)BUALGT z;=BB`5@p7hp8eU `8%U eU Up6`7p9h7H8x<@<(Ac(@h9p:(qno86(O`7@9% `:(pۈp`,u==p`:(8h:HK@ph:p:8(A`-hd`%`.p`0*p`%`0+pU O(`:H(`/p(`0p`ˀp;mAAh; ( @9(h;p;(̀`;(`;@M6h6AH(A3`:1`3p.`[pp-hEH.p;@ Oh~(h;HM(`;@M6hSAH6@bb۟00`@2p@4(p-`.@3p.@(p-`-(`pU `9p9(]`8@6($U/(+e`6%U e=b/`` DS/1000 VALUES: RESOURCE NUMBERS: OWNER LOCKER MAXIMUM HOP COUNT MAX LINK DOWN COUNT PROGL MESSAGE LU UPGRADE LEVEL UPGRADE SUBLEVEL LAST A``PLDR LOAD-NODE NONE CLASSES ASSIGNED TO PROGRAMS: TIMEOUT VALUES (SEC): MASTER T/O SLAVE T/O REMOTE BUSY RETRIES REMOTE QUIET WAIT MAX RETR8[[Y DELAY RFA FILES MAY BE OPEN HP 3000 LU TABLE LU BUFFER SIZE CR FLAG LOCAL ID SEQUENCE: (( REMOTE ID SEQUENCE:  GE4Ay;JII<'#PMA TABLE ACCESS PLOG SYNCH. TRC65 TRACE QUEX CLEANUP QUEZ "LISTEN" QUIESCENT TCB ACCESS  M54JKDF762hh&BB3(;:98LUMAP TRC65 PLOG EXECM EXECM M. A.RSM OTCNV INCNV QCLM RTRY GRPM RPCNV RQCNV QUEZ QUEX . R |h44T$$    *DOWN* (X.25)  4MuAAp8xOA`h2`:ph7Hp:p.P(`hM(,`.A($3(,k@M6h!6`:׈p.P(:`h A(I`.(A1w?AA3(Ik@M6h>6U N%  U N`[eU6eU>pp7hp8`Opt`Fp`Np׀8`t@2pt8(reU`oDDpV`p`pON8`V@KpV8(eUH ` 0%U H`!0̀%U@ `$׀0:pہU `"%0`1p`2pU@ `=%0΀H{IIU e`?%\UR @`H%jU_`>%01vUm (`/P(ꁁ%U`@:pUx @`@:pU @`+(%U@`&(ipeU  HHUp(;`% `h`((%`h`%`(8`hA2U 88؄(`0x (I6h`(S@pRU@`1CCU x (_6h`(i@phU1e[hEH.k`t@pCQQwx;; DUMP OF TCB BLOCK LOC OCTAL CONTENTS OF LOC THROUGH LOC+6 DUMP OF HP3000 TRANSACTION STATUS TABLE+5+6!Q"BBO`up@vhw (`0 pHwx@(`@@Ah HLHSx0`p(U Ap(`@wp(e@`mp3eUx XX&++`pU`pu`*`)@pv`Lpw` &p߈`( @`%( U`pU`*Hpu@@pv` -pw`pX9 &`` DS/1000 LISTS ENTRIES IN MASTER REQUEST LIST, STARTING AT ACTIVE SLAVE MONITORS: 1ST TCB STREAM CLASS MONITOR ENTRIES LOCATION ENTRIES IN NULLxxO YY LIST, STARTING AT ENTRIES IN PROCESS NUMBER LIST, STARTING AT ENTRIES IN SLAVE LISTS PROG CLASS T/O CTR PROG LOGL U ' B *x5 HHp !` %( $`@ %Dp %8 !` "( AO؀@̀ph x DA؈Dp Hh ( h x @M6 h `%` H%01U ( ` ! `+ (AA &eU &e`3( 3m`p %p $p "p  % .` $0 Gh ` $H x HU -` $( Up %U `p "p ܈ ep "U JU bp "HL`4@h4x # i@@p@ #( `,@ @Ap $Ap %O` $@ A( hK` p`:p ` $%` %( 0p  %U ` "@ !p "( ` pU `p( jQ @@` "% U e`p %p $p ܈ % {` $0 h &` $H x ÁU z`p %p $p ܈ % ` $0 h ` $H x ׁU ` $( p %U `Qp "p  ep3 & t `` WORD VALUE MEANING WORD VALUE MEANING PARAMETERS/STATISTICS .... BOARD, FIRMWARE REV.YYWW, SPEED: ........, .................... FCL ...ABLED, DIAGNOSTIC HOOD ... SEN33 I##SED L300 BPS 1200 BPS2400 BPS4800 BPS9600 BPS19.2KBPS57.6KBPS MAXIMUM3FF 22INIOSTPA EN DIS NOT1024 128..TERNAL CLOCK  ... BYTE FRAME SIZE  + & 0 1 HDLC BSC %0F   u     BB567p @ p @2p `:h ĈX `   k ` h Q8` @Qp   pO` 8( p( `  U $8(  ` %01/` %014. ;;` 00`2p:eU,` QP/( $P ( $` P ( +P (` x( +( ;U `p ph x ` h X (X (`Hh x @  ` oJP ( +p ` x( gee ECCU; ` Bp` ip0h䈈x1` Bp Oh ` `  x 181A0208 ׈( QU &8( Le` 0 @p ` QP/( tP ( tP ( ~( + { ld Ȅ( -  wQh( -v DD`zp0h x 80( ` w[h h x  ` x%01 ` y AA@ Kh 2` w[( ` y ?(  (  ` ( È` y ?h hx ` h AQU $ ~~ @@ 8` y ( ֈ  8` h E` y( ሀ  EU 5` w[( ` {p y` zp x  z׈p w` p ` Dp0( ` }p w` |p y  |p x` {p0p { `0 = x |`  >p }~rr% <<`wp ` Fp0e` p ` QP ( p`Mp (( &`Mp` Cp (` @ Gp `0@dp0U `0 e U 1 ( + DRIVER REPORTS ERROR nr{ i`` j READ ABORTED WRITE ABORTED RD RQ PENDING WT RQ PENDING BKPL LOCKED RP BKPL LOCKED WP SHORT TO ACTIVE MED. T.O ACTIVE LONG T.O ACTIVE CONNECTED START OF MSG. NON-DS MODE % `` ASKED TO CONNCT SEVERE ERROR P-F RECONNECT RFP WAIT  GOOD I-FRAMES RCVD RR FRAMES RECEIVED RNR FRAMES RECEIVED REJECT FRAMES RCVD RCV PROC OVERRUNS CRC ERRORS ABOR{D)``T SEQ. RECEIVED RECIVER OVERRUNS RX BUFFER OVERFLOWS FRAMES W/BAD ADDR CMDR FRAMES RCVD UNACK FR WINDOW SIZEN2 RETRY COUNT T1 T.O. IN 0.01 SEC xGOOD BLOCKS SENT GOOD BLOCKS RC``VD BAD BLOCKS RECEIVED NAKS RECEIVED WACKS SENT WACKS RECEIVED TTDS SENT TTDS RECEIVED RESPONSE ERRORS 3 SECOND TIMEOUTS LINE ERRORS BLOCK ``SIZE (BYTES) RETRY LIMIT CONNECT TIMER TRACE SIZE (BYTES) MODE AUTOMATIC RE-ENABLE CONNECT AS SECONDARY EQT # , LU # , TYPE FLAG BITS (EQT WORD 26)~~I@@` (`@ (` 8 [@p ƈ@2Jp P (lP Ɉ(lP (l` AP(i((S` Ƅh x[` P ʈ(` @MA(~MDp `p hx  ~9::hy JP J8 8 Lj8 (p J`@({p Jhx  CXL( +`  瀀( +` wPM( +DP w( +` w@MP x( +eUn `{p `p` p Ĉ`I `NN( +p e`(A H` M(@p J` MP  `/p Qp J`  (I/O LIST ADDRESS INITIATION ADDRESS CONTINUATION ADDR FLAGS/SUBCHNL/SC AV/TR``YPE/STATUS CONWD DATA BUFFER ADDRESS DATA BUFFER LENGTH REQUEST BUFFER ADDR REQUEST BUFFER LEN SERVICING PROCESS ASSOCIATED EQT EQT EXTENSION ADDR NOMINAL TIMEOUT 4q`` TIMEOUT CLOCK RETRY CNTR/READ PNTR1ST READ LEN/SKIP CT2ND READ LEN/SKIP CTFRAME LENGTH ON CARDWRITE POINTER WRITE BUFFERS LENGTHMAX PSI FRAME SIZE NUM OUTPUT BUFFERS READ CON;``T ADDRESS WRITE CONT ADDRESS FLAG BITS MISCELLANEOUS BITS COROUTINE ADDRESS CURRENT STATUS EQT EXTENSION ADDR NOMINAL TIMEOUT TIMEOUT CLOCK MICROCODE COUNT |1`` LAST WORD RECEIVED VERTICAL PARITY WORDDIAGONAL PARITY WORDTOTAL BLOCK TRANSFERTOTAL WRITE RETRIES LU NUMBER SLC LONG TERM STATISTICS |READ REQUESTS WRITE REQUESTS ME]]SSAGES TRANSMITTEDSPURIOUS INTERRUPTS LINE ERRORS NAKS RECEIVED BCC/PARITY ERRORS LONG TIMEOUTS RESPONSE ERRORS RESPONSE REJ WACK/TTD RECEIVED Pp j.PPe H` M@` M@@hy Jp M@p J` MP   REMOTE SESSIONS ESTABLISHED AT THIS NODE SOURCE SESSION ID NODE SOURCE LOCAL TIMER (}>HH PROGRAM EMPTY ENTRIES(CLONE) L<`VeUepQpR@hI (p xh(s8RhH -x(`Q(}8QU# U.OpS%% @@`SH(((A`PhT2%pp(03p Mx 6 H x Uxp` :0p`:0hH`:pU 8(je`R%BUB&&Z (UeVh8 NO ENTRIES&@nHOW - Clear the alpha screen and display a form c Mshwf - Update the fields in the form on the screen.c Mptof - Position the cursor to a specified field. c %DSINL::DS1000:5:69:128 644 0 0 42400 5302722302 33472 %DSINL::DS1000:5:69:128 $E KLE%DSINL + + + E"T~BFST @@X&Aŵ 3/DSINF 91750-16079 REV.5020 $Date: 89/09/21 10:59:03 $NON_MEF /MM/SRC/&DSINL@ z*#3KLU (#BREJ @#CLRN !#CNOD O#EXHC N#EXTC "#FWAM ,#GRPM :#INCV G#LCNT 0#LDEF D#LEVL 3#LNOD )#LU3K Q#LUMP K#LV H#MAHC I#MARN F#MCTR L#MDCT C#MHCT P#MNUM $#MSTO 1#NCNT 2#NODE >H-#NRV#OSRV ;#OTCV 8#PLOG M#POOL B#PRLU 6#QCLM '#QRN<#QXCL =#QZCL +#QZRN A#RDLY /#RFSZ ?#RPCV >#RQCV J#RSM7#RTRY %#SVTO ##TBRN 9#TRCL E#TRCN .#TST&#WAIT $CLTA [$DVSZ X$ID#||W$IDAY$IDSZ Z$IFSZ $LIBR $LIBX V$LUT# U$LUTA T$MM R$OPSY $RNTA .CAX.CBT.DFER .DSX.ISX.LAX.LDX.MBF.MBT.MVW.MWF .OPSY .XLAS.XLBCNUMD CNUMO D#OPS |BB [D$3IN 4D$LID 5D$RID D$XLD DEXEC DLUEX EXECIFBRK KCVT PARSE PGMAD RMPAR XLUEX B 4 =tnIHH`(R`p6`0߄pSR(X(JXpWpEYpFJZpG[pHI LU DS/1000 LUT ENTRIES LU,N DS/1000 LU # N hxJJAp3p{p7p=A7=>?@`(h (`@A(p@:@`AhJA!(`!p`Bhu!`uhwA!`uhv!@(҈`Cpp{(y@x`x~~@@px`y׈py(P }(P!((x{hHh{(`xx{ (`0Bp@(h`{hxI`-( `.@ @.h"@p@D(`Hp@`"(W`~ (t(, A"CC TIME---XX:XX:XX::00p{A2`0+p)`0+h*H'` p&H"`2| `` *``C <`E v`4`F eOO`%`B`G (`uh!pz`uhA!`z((j A  WRONG DSINF LOADED AVCLVADULINR NEQLUMARRRSEEX FU Z 4II`{(AP( * 8 *N F( * 8 *N F` 8ppP(I(=(AI(=x`P((AP( (AP((A@>>P( <(AP( v(AP(4(AP(P($(AP()(AP(.%(AP(3(AP(8 (AP(=P(@pz(A@EXAANL,,ECW /DSINF: FUNCTION?_ /DSINF: WARNING: NODE NOT INITIALIZED *** END OF DSINF ** * Ay| p|pA8||DD@##ppA 8p@A @(p `h 6` 8D:JMMp8p8`p5P(A *5A *5 8HA`"h@H`΀Dp@0EH8(A  /DSINF: VALID FUNCTIONS-- a:`` AV AVAILABLE MEMORY SUSPEND LIST CL I/O CLASSES VA DS/1000 VALUES DU DUMP OF DS SAM BLOCK LI DS/1000 LISTS NR OR /N NODAL ROUTING VECTOR MA YVV MESSAGE ACCOUNTING RR REROUTING RS REMOTE SESSIONS EX OR /E TERMINATE DSINF  '8 EVf qRR99ǀ AVAILABLE MEMORY SUSPEND LIST IS EMPTY C PRGRM R PRIOR AMT.MEM FATHER@?--MRSCR==Tp(Lǁ` #`@6h!hH( `p怈(`爈phH恀|h |`Nph(;p`@6hZZћ&++AH6!Hh(;p``@(" &`Np("`@p@ hp(` #(OǨZrrSUU I/O CLASS INFORMATION CLASSES IN SYSTEM CLASSES IN USE: CLASS STATE GET OWNER CLASSES AVAILABLE BLOCK(S) WORDS] [)BUALGTFL r#AAJphpS `|^^ j tp`phHx@(m(mhp(A 8(i`@| hH(`BBp (b(@ F@E@6h6AH!(A`(<pRpQ`p`(8Q`@ } @RpR` p8( !"`hA`Q|`p`0p`R|l2>>`0p A(? >?`(F`p(b`p`p`Eph P(\`@6Ah6!H(b`@Fp8(M(b`p`ph `p(`@##p(v(}`| Ǩ#)`` DS/1000 VALUES: RESOURCE NUMBERS: OWNER LOCKER MAXIMUM HOP COUNT MAX LINK DOWN COUNT PROGL MESSAGE LU UPGRADE LEVEL UPGRADE SUBLEVEL LAST AB``PLDR LOAD-NODE NONE CLASSES ASSIGNED TO PROGRAMS: TIMEOUT VALUES (SEC): MASTER T/O SLAVE T/O REMOTE BUSY RETRIES REMOTE QUIET WAIT MAX RETR9]@[[Y DELAY RFA FILES MAY BE OPEN HP 3000 LU TABLE LU BUFFER SIZE CR FLAG LOCAL ID SEQUENCE: REMOTE ID SEQUENCE:  I8EzfII@+'#MA TABLE ACCESS PLOG SYNCH. TRC65 TRACE QUEX CLEANUP QUEZ "LISTEN" QUIESCENT TCB ACCESS  Q98NOHJ;:6ggAA7,?>=<LUMAP TRC65 PLOG EXECM EXECM M. A.RSM OTCNV INCNV QCLM RTRY GRPM RPCNV RQCNV QUEZ QUEX .   g44U)$$ .   *DOWN*8  > (X.25)H4[GNAAp%M8Mx&MA`&h4C`%phH%ppP(m`3h!(|`A(t(|@6hq6!`׈pP(`3h A!(`(?AA(@6h6! M|   `"ph戈p`p`p'`p('M8'`Ĉ@Cp8((ˆ`ODDp`p'`ꈈp('8'`@p8((H `$0!| H`%0!|@ `(׀0 p, `&|0`1p8`2p9@- `A|DD0HIID: `C| @`L|`B|01  (=`3P (:|`Dp @`Dp @`/(T|HG@`*(p(V  ]HH_p)i)*+,-(`*| `=h5!`+(x|`Gh6 F`,|`-(`Lh7A 8)8((b`4x (6h#`(@"p@m`5BB67!!x (6h$`(@"pǨ@F@EJBQQx;; DUMP OF TCB BLOCK LOC OCTAL CONTENTS OF LOC THROUGH LOC+6 DUMP OF HP3000 TRANSACTION STATUS TABLE+5+6!Q. BB`p@h ( :` pHx@@@( .`@@"Ah HHx )`p(  A 3p ( :`@p( Ǩ @`" <p3 XX0 G++`p`"p`.`-@ pLj`p` zp 0 ` ( q@`)( q` p`.Hp@"@p` }p` p 0  <X:* w((`` DS/1000 LISTS ENTRIES IN MASTER REQUEST LIST, STARTING AT ACTIVE SLAVE MONITORS: 1ST TCB STREAM CLASS MONITOR ENTRIES LOCATION ENTRIES IN NULLxxP- YY LIST, STARTING AT ENTRIES IN PROCESS NUMBER LIST, STARTING AT ENTRIES IN SLAVE LISTS PROG CLASS T/O CTR PROG LOGL U ' * Bx 1HHp r` v( t`"@ vDp v8 r` r( 3Aŀ@!p@h .x DAňDp h - ( `h /x @A6h (!H`@|` |01 ( 3` r@ 0`",' yAA v w`3( `p vp up rp - 0| ` u h ,` uH +x  ~` u( p v `뀈p rp - 0p r  p sHHP`4@h4x tp#f @@@ t( H`0@ *@p up v` u@ * ( h` )p`p ` u|` v( p - 0| ` s@ rp s( ` p `p( ` s @@|  `p vp up - 0| ` u h z` uH +x  `p vp up - 0| ` u h ,` uH +x ' ` u( 4p v  `p rp - 0p3 v W :``ORD VALUE MEANING WORD VALUE MEANING PARAMETERS/STATISTICS .... BOARD, FIRMWARE REV.YYWW, SPEED: ........, .................... FCL ...ABLED, DIAGNOSTIC HOOD ... SENSE22" ""D 300 BPS 1200 BPS2400 BPS4800 BPS9600 BPS19.2KBPS57.6KBPS MAXIMUM2FF 22INIOSTPA EN DIS NOT1024 128..TERNAL CLOCK  ... BYTE FRAME SIZE  { v 0 1 HDLC BSC  |F R       BB567p @ *p 0@p `h X ` 8   ` h 8` @p   ;p(`4 8(( Gp(( I`   $8(( ? ;` |01` |01 ^;;` 0`2p ` P( xP ( x` P ( P (Ո` ( (  8`p ph x ` ;h X (ՈX (`h @  ;` P ( p ` ( 4 DD ` p(` p0h4x1` p 'h ` `  x 181A0C08 '(  &8(( ` 0 p ` ÈP( P ( ȈP ( (  I   *( (  I   CC( ( `p0h ׀ 80( ㈀` h Ah x  b` |01 o` ɂ @ h ` ( `  (  (   ` ( ` Ɉ h hx ` h F BB a$  `  ( .  ` 8h ` ( 9   ` ( N` p ` ʈp  ׈p `Bp ` p0( h` p Lj` p  p ` p0p `0  x ̈`  vv2 b>>p `p ` p0` p ` P ހ( tp`p ( ~`p` p ` @ p `0@p0 U`0 ;Ǩ O ( DRIVER REPORTS ERROR nv+ `` READ ABORTED WRITE ABORTED RD RQ PENDING WT RQ PENDING BKPL LOCKED RP BKPL LOCKED WP SHORT TO ACTIVE MED. T.O ACTIVE LONG T.O ACTIVE CONNECTED START OF MSG. NON-DS MODE !`` ASKED TO CONNCT SEVERE ERROR P-F RECONNECT RFP WAIT  CGOOD I-FRAMES RCVD RR FRAMES RECEIVED RNR FRAMES RECEIVED REJECT FRAMES RCVD RCV PROC OVERRUNS CRC ERRORS ABOR{``T SEQ. RECEIVED RECIVER OVERRUNS RX BUFFER OVERFLOWS FRAMES W/BAD ADDR CMDR FRAMES RCVD UNACK FR WINDOW SIZEN2 RETRY COUNT T1 T.O. IN 0.01 SEC GOOD BLOCKS SENT GOOD BLOCKS RC]``VD BAD BLOCKS RECEIVED NAKS RECEIVED WACKS SENT WACKS RECEIVED TTDS SENT TTDS RECEIVED RESPONSE ERRORS 3 SECOND TIMEOUTS LINE ERRORS BLOCK A``SIZE (BYTES) RETRY LIMIT CONNECT TIMER TRACE SIZE (BYTES) MODE AUTOMATIC RE-ENABLE CONNECT AS SECONDARY LU # , TYPE FLAG BITS (DVT WORD 30) .CCJx V@ (JU@ @ @(@p @!p P (8` h  +` @(p@p`@GA ( `PN( Ap   QQh`x ` (p  Op  OVP 8 (DVT LINK WORD Q/RQST INIT LIST N/CIRCULAR NODE LISTP/CIRCULAR DVT LIST X/IFT REFERENCE AV/TYPE/ST)5``ATUS SYS FLGS/LU LCK/A/RSB/BUFFER ACCUM. S/ HI-LO/16 / LO/16 RESERVED T.O. LIST DEVICE T.O. VALUE I/F T.O. VALUE DEVICE DVR ADDR TY/UE/Z/SUBFN/RQ RQHi``.PARM/ERR CODE RQST PARM2/XLOG RQST PARM3/EXT STAT1RQST PARM4/EXT STAT2RETRY CNTR/READ PNTR1ST READ LEN/SKIP CT2ND READ LEN/READ CTFRAME LENGTH ON CARDWRITE POINTER WRITE BUFFERS OXXLENGTHMAX PSI FRAME SIZE NUM OUTPUT BUFFERS READ CONT ADDRESS WRITE CONT ADDRESS FLAG BITS MISCELLANEOUS BITS @`"4`1p4|H`2| ǁ`-M??ph怈8(| h|h怀80!|h戁p|h8hx`(|׈A (8(NǨ4`r&\\h488(|** BLANK ENTRY ** *  NRV SPECIFICATIONS: LOCAL NODE#: , NO. OF NODES= (* INDICATES NEIGHBOR) NODE LU T/O(SEC) TYPE LEVEL`0 iTTp )` ) MESSAGE ACCOUNTING INFORMATION NODE STATE # UNACK # LINEDOWNS TIMEOUTDOWNNONEUP PEND@`"%`F(kp(hF x(bb:>X ŵ 5DSMOD 91750-16092 REV.5020 $Date: 89/10/09 11:45:16 $ ALL /MM/SRC/&DSMOD>;;udABRT# ERFR# EXFR#  INBF# LPRNL# PRNT# |READ# yUPSF# ;#BREJ %#BUSY ;#DSSM .#FWAM #INCV -#ISTO #LDEF +#LEVL *#LNOD 0#LU3K &#MAQS ,#MDCT /#MHCT #MSTO ##NCNT 7#NMSC !#NODE "#NRV#OTCV #PKUP #QRN$#RFSZ '#RR4(#RR5)#RR6<#ST12 }} #SVTO #WAIT $LIBR $LIBX $OPSY 6.CMW5.LDX2.MBT1.MVW8.MWF9.MWI3.SBT4.STX:.XLACLRQD$3KL D$DN! D$LID D$RID D$RLU D$XS5 EXECFMPCLOSEFMPOPEN FMPREAD IFTTY }((} MESSS PARSE PGMAD PRTNREIO RMPAR RNRQXLUEX (Ղ@@ADEh`upz:p xx x `Ehhh  xx (   0px `f(&`(/pJ`.(,r((n J `h0pJl(G`E(<((:(Yrp `gpFˊ@<>(>(h7(h (hH;(YH`#p(YHv`!``"pd`@ p8(S`H(Y`*P (a(Y`h5 8`P (`x`׀bxSS00`쉈h`h`h25dd? BLANK ENTRY NRV SPECIFICATIONS: LOCAL NODE#: NO. OF NODES =   NODE= LU= WW TO(SEC.)= LEVEL=   LAST LOAD-NODE= NONE ,(N) | `LX X h!|`LX @X h !(Y ILOCAL ID SEQUENCE? _IREMOTE ID SEQUENCE?_"??xhH `!p @H HP(6P(=@ 85!hAp`1!Jv{(Rpv(XpvI(`@ ׄpvaCC(ep v(jHp/v(op,v(Yp-(Yvp~8vvp8v|vP(@@X(Y (} (`~PaPp(` (8vHv`@0[`@AA0n`0` `/`,`-p`25`8p(p(`3x`p`pph 8x(〈h (0p99Vh3x8(`h0H3`25-32768'd 0-- 9_g]]0H! @ zTIMING MODIFICATION--CURRENT VALUES: MASTER T/O=XXXXXX SLAVE T/O=XXXXXX REMOTE-BUSY=XXXXXX REMOTE-QUIET=XXXXXX MAX. HOP COUNT=XXXXXX MAX LINE DWN CNT Ie``N 5 MIN=XXXXXX IDLE SESSION T/O=XXXXXX  e}MASTER T/O [5 TO 1275 SECONDS]?_SLAVE T/O [5 TO 1275 SECONDS] ?_REMOTE-BUSY RETRIES[1 TO 10]?_REMOTE-QUIET WAIT[0 TO 7200 SEC]?_TTMAXIMUM HOP COUNT[1 TO 32767]? _MAX LINE DWN CNT IN 5 MIN?[1 TO 32767]?_IDLE SESSION TIMEOUT [0 TO 45 HRS]?_`0ppA 8`P8P8P8wwAA`숈p0p`p'(/`'88` `(I`A(DCԨ7  7A`ThP10 SZIԨ7UOF,QUEX,FLw&SdCC`epzl(q` (qq @`zPe(v8z8zA{ 5 |P(@@XA(x(((((7(|P(@@XLL(x((A(À`(`((((`0pA`p8ƀ  - 456?OO AEEXILNPQRSTUCNDI/a/A/e/E8!03x A (*"0(7(5 04 .1 `rr9p?89P|P!9gBLL(>Ph @@j99WX7J(d@PYNETWORK MANAGEMENT SECURITY CODE?_ jJv(`%(A (w@&#(pxH@:0AAp`pxAhH 8(((h@@ `p(dJ#pxH@:px(hH 8()(։4 ( `*0VV`pppp(d(Y` p(dDSYSTEM QUIESCENCE ISYSTEM IS QUIESCENT DQUIESCENT RE-START@  QUIESCENT RN UNLK ERR DLIST CNSLM EXEC%OOW PTOPM EXECM RFAM OPERM VCPMN PROGL RDBAM APLDX TRFAS `phx|@@XUP!({`ph P(nH8(hh@x`6tWW&(~H!8(q (V(V 2 MON?STATDERROR: : XXXXX :MONITOR NAME?_:INVALID NAME! LU,TIMEOUT,UPGRADE LEVEL[,N]?_`P(h0 AˆCC(p`(hH&@!@p x`P`8`h1 J(((`hA1& |P( @(x$eII`ppMF(8OF`RpNh (!`xMpQxLH (HQA1L`L@0pL` h (H` `JpKAH!KSL8SLX /DSMOD #9W: [XlCCh` C8llrpw8(d Ԩy|x8|`h `J(pKK  ((`E( @  (h H5pL`!hL`0`  P EE( L @p X (X(|h X(dh |`(h (d`pA 5A `p`p 2(d`hF0`hA1L `@phHF "px(   P ~~_@@* p8p8  8p8p8 Ap&8 '(-`h& pCxLHH XC(?P(?`L@ pL(4`L6pL~ 5B0 D rf__@ ROpINODE NOT INITIALIZED|:NO MSG.CNVTRS!0FILE ERRORN I LU ERROR  :TR FILE ERROR 5# OF FILES?_0READ ERROR:DSMOD ABORTED!5NO CLASS #S ?CLASS __;4FFI/O ERROR 0END DSMOD 5ENABLE LU#?_:DISABLE LU#? _DNODE # TO CHANGE?_5OPERATION? _DNODE SPEC. ERROR! INIT. FAILED ON LU_J ``  ??: LIST COMMANDS /A: ABORT! /E: TERMINATE /I: CHANGE 3000 ID SEQ /L: RE-ENABLE LINE /N: DISPLAY NRV /P: CHANGE NON-SESN PASWD /Q: QUIESCE NODE /S: SCHEDULE MONITOR(S)  n``/T: ADJUST TIMING /U: CHANGE DEFAULT SESN USR-NAME CN: CHANGE NRV DI: DISABLE A LINE QUIESCENT SYSTEM ONLY: /R: RE-START NODE  DINVALID RESPONSE! INRV POSSIBLY CORRUPT RR~ <<REROUTING TABLE POSSIBLY CORRUPT  ERROR: "/L" INVALID FOR X.25 POOL LUS  USE DSMOD "DI" TO DISABLE THE LU. (R ?UN@MNCLUDE /PMC2/INCL/[tbuff, NOLIST$INCLUDE /PMC2/INCL/[uni03, NOLIST$INCLUDE /PMC2/INCL/[unid3, NOLIST$INCLUDE /PMC2/INCL/[unid7, NOLIST$INCLUDE /PMC2/INCL/UCOMM.FTNI, NO LIST &c **************%DSTES::DS1000:5:2:60 644 0 0 1000 5302722305 33200 %DSTES::DS1000:5:2:60 $ K<%DSTES + + + ~FST !! DSTES [n91750-16100 REV.2013 790425 MEF !cCRMPARGET ACEPTREJCTFINISEXEC D$MAXD$TST<<`f&$d,LdTZ,L22d,P<&d,LdD<&&`XB,LdTX,-K,2P0RWYW X&`A`ZSEXEC D$MAXD$TST<<`f&$d,LdTZ,L22d,P<&d,LdD<&&%DSVCP::DS1000:5:16:128 644 0 0 10000 5302722306 33617 %DSVCP::DS1000:5:16:128 $ K%DSVCP + + + &~FST ((>>XZŵ 51DSVCP 91750-16102 REV.5020 $Date: 89/11/06 08:50:47 $ ALL /MM/SRC/&DSVCP> ;DSVCP ffL#NMSC #NRVS .CBT.SBTCNUMD EXECFMPBUILDNAME FMPCLOSE FMPOPEN FMPPARSENAME FMPWRITE FTIME IFBRK KCVTLOGLU PARSE REIORMPAR XLUEX f~~DDAxxx pp@pA`p!(h ("P(2`(hxAp-(ahX(ah (ap0pp p p pApC+`~nDFFP(aAL逄`(TS(X`pppA^.e.Ak/(`!P(Q`(zy.x툈`((G((P(xP TBB(x=(H`(H0~`5pA. (π(X$@|@xAhA.%(p`(p(Lj`((s(`@$pWW1**H,H0P(8H,pP#(Q`(`(@ph0 H`A.1`(p((W |$ j  @  4 9' > ELOO @XWCW.Sex (Ag')*+L`h*  (s`H `*@pp*p)`pA')*+L yOz(p`ׄp1. 1#3LL((@0H׈P#(A y1(8(p1A. 1#(h0A` 1.A-A  @HA y1pA y`!P(p(`ypy4OOyp.fz`( y(Q`p1A$ 1#( y`,p1. 1#(.{(p``A(7#.&,`hA--X$(`P36NN(p`pE. &,((`p`(RA RyAW% ].LRAa&g.-K A(Wxq`P#(a`Ap(}15Pz( HHx9Pz(p x(p`Ah-`Ah0-1(xhP$8p 8(`(ax(5x(2A..SS ,,((p HP#hP$P((P{hP'hP}hPh hxp ݄p.A.S2 '(p)"$"*`$  '@  !  !@ ' Ea || ]]/DSVCP: _/DSVCP: ILLEGAL COMMAND PASSWORD?: _/DSVCP: ILLEGAL NODE INPUT DS NODE (CR TERMINATES DSVCP) _/DSVCP: END DUMP REQUEST, ENTER NEW FILENAME: _/DSVCP: FMP ERROR - |s`` ON DUMP FILE /DSVCP: LINE TIMEOUT - DUMP ABORTED TYPE COMMENTS BELOW \BREAK\END\READ \WAIT LINE FAILURE LINE BUSY NOT INITIALIZED CARD FAILURE BAD INTERRm1 UPT DRIVER ERROR  U NODE ̛ AND LU  [q  Y \ 1  + Q ##߼z @_ 6???DU\O#@%DVA65::DS1000:5:15:60 644 0 0 7400 5302722310 32740 %DVA65::DS1000:5:15:60 $ K<%DVA65 + + + *~FST !! uDVA65 91750-16105 REV.4010 860721 MEF !@fCA65 IA65 MIC$X  F$LIST$OPSY ;;`^o\Z`pH('Rh pb@0Z` `p 0`d@;;;`]@h Zx p 0ж(~X(sX(\`P(w; `Ce;QP <<`[B>(@(EX(IX(Kh.`Ŷڨ(L0Ђ$p(oZQP(q<<<`]+#Yh(F<ܶh H` (fZcdR`hZ  .`ǶR < `D@v(m  <<`\z( (@(Ex HĴ!<;;`]0h QZ (  (h(xP!(r ( ȶ(X((; `D  <<`\X 7(¶((X(X(h( )` dh <::`Y]ӴZ` (7(((X( X(h X(P(h7((((: `Cs춀( <<`[5^ﶊ(` h( (@h7(1((;X<::`Y Z(X(17(((;(X((1`7(1(|(;: `E\#`  <<`Zf(d(IX(h(7(((;(Z(2hX<;;`Z}FB0h(h0Z(  Z` h (ePҠ(i; `Dl\P ( <<`[X`P(P(;(ZHǸ( ZHȸ0h(Jڰ h.`<;;`[{Шh(h.hXR(hdZH` `d ; `DШ ;;`[&`(P(Zh X(Zh( ( p  X;::`Y Шڨ8R( h(7(((RP(_: `DZGζ( ;;`_;Ҷ0h@x@pP p `($ ;;;`Z(R`(h(7((` hpdXRpd; `D>1 (` <<`\,Z0 (hԶ.(`(`8hX'((P<<<`^+(y`p00P.h (B p @@` C(J< `BI787 ;;`\CKX787X7877@@R`X8( `h.8;<<`Z>g`( 0߶(`P( `QP[h(xR< `CS` <<`]}Z0ߴ (SEЂ$p x Hp<<<`]Opd0p@pS php p[ pU pBpT pA p h (Ԁd < `Cdp <<`m` x "2?@BRC<11`e*q  0@ QUEUE P$i1 INC DE --\  SRA D - > change to word count  RR E --/  SPAC  LD A,70H --\  OR D - \ construct%DVA66::DS1000:5:27:60 644 0 0 15400 5302722312 33325 %DVA66::DS1000:5:27:60 $ K<%DVA66 + + +  zO~FST !! vDVA66 91750-16107 REV.2326 821206 MEF ! @xCA66 IA66 A$LIST<<`]9hHHxPh ( xhP(hxh 8(<<<`[pppppph xh````Zph(T< `CB8@ ::`Y;(?`8 (x0``hHH0HZ` :<<`^T`(ld(f 8(fZ(vZ(0@()(dP< `D^rP( ( ;;`^@mvZF (@e(@(P@X(`(h@P(P (`(;;;`^;Z((P(P(( (`( @(P@(; `Cp ::`^L4P@Z( ( (` (((`(:;;`[EӶڰ(p(f`(XPZ(P(P(`` ; `D)PPxp <<`^ (0P0x (f`ڐ8`~xx (<;;`^!Z(-Z ( xxPP(*!(*@p8` (-H x; `C.p <<`_w1(;(G  hhhhx`(O`~(g<<<`[P(`~0HZH `(hP(e~``8 8 H}x< `CTkh(q ;;`^1n   @! 8P Z~hxh Xh8;;;`^6D(~pPŨ  (@p``~; `CSv0 <<`\'(R``Z((v(ۢ(<<<`\ɢ`P(ۢ`(``R(0 ((< `CL嶀(k <<`]0趀H (`@ׇ@@(`ôZt(Pt(<<<`]^,vZ(I (FpP( (b(o< `C"p() <<``݄% `P@(1 `Phx0p?$"(Dx9p7<<<`[SE0((`0(uR(`(gP(o Pkt< `Ca`0  ;;`[{wc`(((k(^(JZ (h (;<<`Z~Z`(`Z((R`(`(0X`0`@@< `Dhh <<`\@ (( (((R`Z(J (<<<`^= "(   (ԴPhX( (R`(k< `C46 ;;`[Ԧ٢h(`((Z@@h0ܴ(`;<<`[pZpt(R(`~< `D' ;;`Z&!pH`H(((R`((;;;`ZC-k`Zk`tk0Z(K`; `DHG0 ;;`[ K`ڇt(Y(Sk(2h (X(+;<<`\ fP(uZӂC`@(2 `h `@ö(2 < `DPP( t ;;`^`((!k( @@(`` t;;;`\(h 0  (`R(SZ@ @H ; `D?n@  <<`\N5Ķ@(``@(۶@H <<<`\xHpP(} S( (`H (1`hPH< `C˜ ;;`ZN}0`0ܴZh` (1`tRk(K7;;;`[o$`(2 (5``! X(2`â(2`tR; `Eɫ4(S` <<`\!90(N`hZ`p` p(2`(2`<;;`\3U(ZRZ`P0(d8hR(`pZRhk(`; `Drqk ;;`]mu`Zph tHHp`Z0hxt`P`;<<`^K`~(h`0x88@Zh((h(Є(`ꇀ< `C,`  <<`_VL(`Z(t`P(S  (`ǠP``<::`^Ҡ `ƍƨh(h(@(v`Z(8Ш: `C(P <<`\t @@(v( P8hH`PP8( p@<<<`\ S` `@Z(#`h (!00 `(00 h (0(o< `D+Ѕ@(vh ;;`^B$/ (o (CZ (K (Q   0X(W0  (WJ;<<`ZM(WXX(ohP X0X`p< `Dg(o` <<`\k0Zp`( @hPP` hڰ``<`PQKF(o <<`nO 2?@0@$jP$ <<<`nǵ$+$v$$$PKKFA_EJCBLUQHt q :< `Dh$!5 `TmXQUEUE @ B<` 0?$%DVG67::DS1000:5:26:60 644 0 0 15000 5302722314 33162 %DVG67::DS1000:5:26:60 $ L<%DVG67 + + +  :~FST && DVG67 91750-16108 REV.2201 810508 ALL W/3000 HSI& @yIG67 CG67 9$CGRN;;`_IP , |LtM,tKP,㳢w,l,ϢlN ,lU'< |K;;;`] |LtM,tT`,/uTb,UlC ,UtL,#|CtZ |DQ4ZLT| ;<<`_q<| | |P |4f |L]| | |Z t>t?P|=|@뷠|A<<<`\D[|Bd?m4jk4ht?d=dt=dM㸶uTb,_TT,uTS,<L,Q<;;`[w4Tf,tN, ,Q4SuZTc,,ƶ ,tN@tJ2dX;<<``tdUt>, $ly ,aDO,D<=,$2tC<<<`[dTt>,DdSt>,d?4it?2dRt>,˶dTt>dK,dVtL<<<`bB)Ͷ,lL>$$j$il"DptItttcDhtDotDQtDd<<<`ZtYlTd?h Lp|:Lh|8Lo|9|Lr|8|<<<`]o P4gڬ tE|F<  dUt>2dElF @4e7 ,(dWtd?4jt?dX<::`^&t,+2dXtPdN,PtNdG,tG,P`dMڬ7tE|F@:<<`]=D<@  dWt>ڇdV2dEPlF|B @7 ,[d?4jt?ڏ@,2,XtE<]dV<;;`[IaZt>2dkE,d_ڬ]2dkdB_4ndh;<<`^+|dXt>dXtZ @d_@deZdxZtt<<<`]Z@@tIdhT,dIlF @|FDFPtB$<<<`[v,2d\ڬd], d^, ZdMDP,,͇,tsT,<<<`Z VҶT,T,Tƶ,T,T,T,T,Tζ,tTn,,, dT, l\<<<`['dU, dV, ZdWlN ,lW'dX, dYlN tGdJtB,dZ, d[<;;`^&, d_lN  ,PЅ@<d=ZlBdK,#dL<H@dL<H;::`c%P@L' |H,d?j,9@d?mt?2:::`mH C? @@@@:<<`^uly4lpTS,TT,TU,DTT,TU, , td ,<::`^ D,Z,P, , dtdtPd=d0l Z 0t=:;;`^R|x\d lö4tZlp,TY;<<`]YϢ,t,l4dt 'lpLi| , ,,D,PD,t&<;;`bslPl0Lex t( |$ H D&,"t'@,l$L'P H |;::`^Y t%d&0\Z4%Pd%D0dL$ \(,",d, Zt3D:;;`^q, ], d),L| |4dZOttd@lA@,td;::`^$Jtd9lT(('t3DZl3L ,ZllPP,f :;;``#hZX,n\\YPat0\ ttpdp\;;;`e, ldtd <,  ; `Gk ::`md~~~~~~$$$:;;`Zddt,,dT)dSt,dT)dStt, ;<<`[d[)dT, t ,dtdt dlDTDU,)<<<`[dT,$ttd@<@lA,{lZ'4t, Z,d,<,,<;;`ZA94St, ,lT,lU,lV dVD,lWSt,lX,lYdY,DlZ;::`YS4e,Jl[,l\,l]\,J߶l^De,Jl,l,l,l,dZ),9:<<`],l,d@lA|tA<@9ttdAl|A 5 D@tL| L@|@,<;;`\p ,4gt,t6d , T&,,4td,<,d,d;;;`\6,<,l&d\d,HT,d\,,, ,,඀dT;;;`[J!,,l['Z,,,Zdl ,<,dTT,,4etdTU,;<<`\jܶdTh,d,d,dU ,l t)dtttQT<<<`\P,d@LA ,dl,Z$l['Zd,t,t,lX',dW,i<<<`[XzdX, l,dY,lX't,De,9lX' , l(,4e,9$f,9De<;;`m#/,,0$+0$9;<>@$BHLNQ$UWY]`$bdfhk$m$$  ;::`m\$$!),.f$$$%$*.26:$>PSap   :::`mǚ ))      . ////%//////!$/  &:::`mg    &(+  . ****'*(31*-$ ,   &( :::`m4+   . 2           -    :::`m?. #! - " 0    :::`m=#!(41- -  ---///-  :::`mXj  - @: `Omt|l|dtdl ---///-  :::`mXj%MDV00::DS1000:5:11:60 644 0 0 5400 5302722316 32201 %MDV00::DS1000:5:11:60 $ L <%MDV00 + + + .FST !! {NDVV00 91750-16109 REV.2201 820120 MEF ! @nIV00 CV00  1.MVW $LIST#SPLU.XLA $OPSY<<`a n㳢4l ,&P Tl Tm |ct |<lPo, `Dc,#<<;;`_!,,f|dtP[,iP㵶T,4ӵ,f]T],G`C ,k  ,k|>o,dd>Lc |>DgClZ ,Wa,YP_D{hD\;::`^g^>,l<>>ڬ? ,hlh,lLd,l<?P?LgKZl ab,Dge:<<`c|Ctnh P6,  6,Z aLi<olno PoT\,f?,|<;;`_  dP,t>ڀ>,Z4Zdn d\d^d;;;`_udo ,?,Ӷ,l>Lk|aDjC,t,s,;;;`_,Z,P,Dx,Dt,<ܬ4;::`c ttXt<q&<lpl_T_Dg:44`[TD`ЬC"l96hl4P\"l9\2:4;;``W<<Z@<dztly <,HPCPtttttP;::`m\ ? LUQUE t$  d:`AO `PeCB? PCPtttttP;::`m\ ? LUQUE t$  d%EXECM::DS1000:5:17:128 644 0 0 10400 5302722317 32617 %EXECM::DS1000:5:17:128 $ L,%EXECM + + + "FST >>XYŵ 6EXECM 91750-16111 REV.5020 ALL$Date: 89/10/09 08:29:42 $ /MM/SRC/&EXECM>|#ATCH #EXHC #EXTC #GETR #GRPM #NODE #NQUE #OK?#OSRV #PLOG #RPB#RQUE #RSAX #SKEY #SLAV #ST05 $LIBR $LIBX $OPSY .CAX.DSX#.MVW.STX.STY .XLA".XLB!.XSA))CLRQDTACH EXECLUTRU MESSS PGMAD RMPAR XLUEX )q>>A powp`rp `oppqppoloe(pxAJ`fpppg`pr0 (Apx`fh@Hg ( >==` pP(Yp Hd (O0pHc`phh(_hk(Rhl`n(_hh(Whm`o(_hh(^hi(^hj`qpr`pg`rXA(r010205060812DSIORSSC !(yphfx`{<11OFF,XXXXXX,FL >OOnOOFvvOOOOOOOOOFFOc G 3o ss]sw@@   p A H(` 0Hp pAp(HH`0p pw`p(8 s@2?Pck ! &&c- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -! & do i=0,7 call zmove(xlbl,ylbl)  char=ggetc(i,clabel) call ztext(1,char) ylbl=ylbl-10. %EXECW::DS1000:5:6:60 644 0 0 3000 5302722320 32745 %EXECW::DS1000:5:6:60 $ L@<%EXECW + + + 6FST !! REXECW R91750-16112 REV.5000 860630 ALL !<<]#ATCH#CNOD#GET #LNOD#NODE#OK? #OSRV#RPB #SCSM#SLAV#ST03 $LIBR $LIBX $OPSY .CAX .CMW .DSX .MVW .XLA <i9.XLB DTACH EXEC PGMADRMPAR<<`c%Y''pQ 3#xxRR6Lh( (x ; QD&R>(O<;;`_#`Ep;` ,P$(^P%(fP((fP)(f.(@2(@4(@6(@48(@0;::`^ߦB`K0*pX(K @`p` ׶ZhH;38;\;R"(3:::`^S`X(/X(/X(/0-p:` +pFnFP X(2pF4{FGH$ZIJPL(;:<<`\X~h: X$((`JPL((;Z`O@B(8`Ah=@OHxX((5` (IX (Hp `CPp;`@(I(;`uhۄP"`7;;`_C4H p "`uh""(Z`G'(>`OP@@pO3 X( hF;;;`bq H&`  `hx `pR`!p@OpOAPLDR ;33`fW  0DS06DS08RS01SC01SC02SCR05 3 `GesK %GRPM::DS1000:5:15:128 644 0 0 7400 5302722322 32547 %GRPM::DS1000:5:15:128 $ LH%GRPM + + +  >FST ==XKDC %(GRPM91750-16124 REV.5020 $Date: 90/01/02 14:12:49 $ ALL/MM/SRC/&GRPM =E#GBLN #GBUF }} #BREJ #DOWN #GETR #GRPM #INCV #LDEF #LEVL #MAPP #MHCT "#MNUM #NODE #NRVS #NULL !#OK?#OTCV #PLOG #PUTD #PUTR #QCLM #QRN#RQUE #RSAX #RSM#RTRY #TBRN }00 ^|#UP #UPDA #$OPSY $TIME .XLA .XLBDTACH EXECPGMAD RNRQ0~~MDDA!Appوx8p`(Cp`A(C'@p@ hրhhA`ˈA@p? 8`~DDD(v`( (vh( `(j`hH `pe( 8@`Apt( `(`(Q`(c`P(̀`!(PDD(`h" (H@ H(x`0h`͈`h @Xhx0 #"`p"`(`P(͈`00 p`?p(QH`(Q<9@@( `phhHx X(`(߀8( ()(0Bp`?p`hH `pA۪( ``h`@(@(` FF(c(`　P(h( `(h  (`@h"H (@ @ x (p 8(X(AA`PA(L (ph  (XlREEAW hH(}` @(b`p`hH `لpu( PX( ( `(`phX((Hh( A 77(c`p(`0p`?p(Q` (`ֈP(`ֈP(P(P(P((`P(h ẍ`(`P(`h x@p(ɈJh xJ  D==@!( A@p`(c`hhx (`(h!`P (Qh`h`(`P(P(h ()h ()h`( `0p` ;;(*h`0p(*h()h( h(h!`P (Qh()`('`0p`(*p>xh!`P (Q`(<`(Qx`Ј(uhx`p`~~F@@p`0H0 ph@Ph?x`P(Z̀()(0Bph``xh`@(逄H (`(c(h( `hˉ`@p`p`>p(~xx@@`P(P(j`p`p`p(`p`x(Ap`@p`p@` (j  (jx@ `YYAA'???? @?6GRPM   0?@P*2dP010204060708DSY ?@@<< @ nc  end do call zlstl(1) c  c Display the new values c  call zcolr((ctable(27))) call trendgraph_update(1)  if(gint(3).gt.1) then  call zcolr((ctable(28))) %ID*66::DS1000:5:27:60 644 0 0 15400 5302722323 32457 %ID*66::DS1000:5:27:60 $ LX<%ID*66 + + +  :PPFST 0APA~EID.66,TX:20,QU:FI %% ID.66 91750-16126 REV.5010 RTE-A <880711.0751>%@ID.66<< Z$DIOC$DMPR$DV1 $DV13 $DV15 $DV16 $DV17 $DV18 $DV19$DV2 $DV20$DV4 $DV6 $IF2 $IF5 $IF7 $IFTX$OPSY$READ<t$SETM$SETR$WRIT$XQSB`Ra `A8q<<`nhg  2?@@}<<<`nNPKKFA_EJCBLUQHt~$QUEUE @ B<` < `D-|0? ;;`^eا'p`P(hxhZ 8(pppp p(2@(;<<`^Z`.   7`c`d `(( (#h 0x< `C  <<`a( ( Z8((Є( x({X( 9 F (@E(N@&(W @<;;`].ZX(W`"(A/h@P-Z(P# (` (W 2(.(WP((P&(; `Da[P$(+ ;;``(W (`$(+ @P(W@MJ(W xZ @p+p 2  5 ;::`^Y!ڀ+ ()HN -+h@I(W Z(A  X,(8 (U`" (A: `B?`((X <<`^!AJpװ` (L (`#(X wPXNPv((`)`* xp(<;;``_Z` ^8^J` x x(t' ( (z xX x'P$; `Dbt(!( <<`_C@p8`$(ZHM xp^ hah.h*x`(J 00 <<<``rXH$4H(2 (`5(8 h( |JH" H$`h `< `D]´( `P-PƲZX(p`אX`%<<`]dZ@"p^Z` `A0^ $(`+`G 3<;;`\A(?( v J Z(p( ^`P$(`(`"`(; `CSA( 0t ;;`[ X( m( P=( (AHL r (6`V0X;;;`]$.0X(=@(=`ZZ5(Z(B v $(; `DK (R <<`]]OڀF'(U >pP"(` ( 6('(p@2<::`^@/l@b(t `@K(x 20?pj @ Zp 20 00 : `D}PX(D <<`[^(`0(^(ʰ( P!( P"ݶ 0t X`<;;`[9(D z Z(D(Z -P$(P%((6 J '(Πh ; `Dx}Ķ(` ::`Y!,ȶ(`((`)(D`%( 06X" `0?`@@?h:<<`]ގ   @ (R^( (Z 6(X(`p`!( J< `DvP '( ;;`]a r"( P  ( J `p`$(;;;`[bZh(*`Z5(K(9Z@A@3h0[5(+` ; `D:p`p <<`[>pp m(P=(`p -P$<<<`aAYZP%(`Hh P+Ap HJ`PCHIPDHI++`  <`BtzHN<<`[t|Ѐ+( ((`+XZ (( } `T0`\5<;;`[ 0yz n(`X5 0p `W0  5 ; `CFV(( ;;`[ZX( L ^(h (QX#( 'P(ӠZ ӂC `@S;;;`\ж5^(`h X& `@ö( uP6( `!((!; `ER_P( <<`])b/@R5@NѴP(`B'Z`B (h  0t X<;;`\0P (`%Ŷ(@N @"H @? @;p`p(:; `CP*^( <<`\0-` ` ` p`Mp`?@M(=P@NH xHp<;;`^I`3hX( S( (`* H (Zhp`-P&HnHn`2; `Ckrg 2 <<`[<j 0 `2  -P&0X5h`( (`U5<;;`[p(  `Y5( (`q`? !  (`]5; `C(`! <<`](`20^0^(`p`Zhp` p`p<<<`\](`^5(` (Ͷڠ `PZ0(8h([`p < `C!Aܢh <<`^^߶E([` P `Z p (h([PZ`Q`t <;;`]Z =(X`(0`P"( (آh @188; `C4`8 <<`^ڨp`Ēh0`А (-`Ї`h0=([0h5=([X<<<`^d;P(˨5`Fڨ=(?8== |(VP|=EXXZ((K | 8EE< `CYhXHN <<`Z U\`P!P" 8(h #p@i |(w`Oh (u 0|0s `<<<<`_Kv( 0s (څT(E(ЅX(h P ( ( ( ( P @  06< `CW ( <<`[: 0r r (J m (/ XN(whPN <;;`ZM @Xv03 ڨ`#p |(`P 0| ~ p`"(dXhg; `DR͢P_P` ##`PѢ`ohf { `e (hh(#routine requested a timer ( negative B reg ) * ask system to link user DVT into system time out list,* and set 'timer requested by %INCNV::DS1000:5:10:60 644 0 0 5000 5302722325 33073 %INCNV::DS1000:5:10:60 $ Lt <%INCNV + + + nFST !! SINCNV Z91750-16129 REV.2340 830819 ALL !@"INCNV<<:#CVBF#GETR#GRPM#ICV0 #INCV#LEVL#NODE #NRVS#OK? #OTCV #QCLM$LIBR$LIBX$TIME.MVW .XLA .XLB CNUMD DTACH< EXEC KCVT REIO <<`i$&7 "&%`p`2pF<<<`^ȱ)Z`pppp6968pZppxP`@)(E`)p`2h(<`AG;;``sH"`(US"('`0㶀ph9x  (``@pP`@(;<<`_%Th` ph`; `Zh ( 0Ӷ(!0hFH`@Fph8 (*hHxHFHڴ0< `D5P`(@ <<`e9?"I4" P۰(RPQ('`(YW6X(`(h2 <;;`cP^=` 0p?`90p9Ph2H 0qr{$9Z('p};`B`<<`g phFHp  $ (M RECV'D LEVEL XX MSG FROM NODE XXXXXhFHx<;;`cuڈ888ډhFHx8X88??`(M$F C;`B\(M;;`m¯ ?` @@DS03DS07DS08INCNV ;`Kbj`C<( +`(M$F C;`B\(M;;`m¯ ?` @@DS03DS07DS08INCNV ;`Kbj`C<( +%IOMAP::DS1000:5:6:128 644 0 0 3000 5302722326 33240 %IOMAP::DS1000:5:6:128 $ L%IOMAP + + +  zFST >>Xa(Zŵ 6IOMAP 91750-16130 REV.5020 $Date: 89/09/21 10:53:30 $ALL /MM/SRC/&IOMAP> 5IOMAP EEl #LMPE #NMSC #NODE #NRVS #OVR#SPLU .XLAD#OPS DLUEX EXEC PGMAD PRTNRMPAR XLUEX ECAAA (`(0pJ( (0pp "A( !%(`P (`P (P (P(`HP (4(h!x`p`p`p`( B}ACC(p`phX(N0p(WU ((epAd   (` P (P (lh(` (P (P (P(`({A`( (`@{"GG `h (@ (p(h(` p(`pA( Ah x h(  Hh (`P!A(2(퀈(((p(Ap(`OO(((`DppH`p`(`(8`P((@(h(h(h(O>>,,@ @dLUMAP LUQUE >@"gh, low - Graph limits for this input c x_pos,y_pos - Graphics coord position of point c value - Point c &c **********************%LOG3K::DS1000:5:16:60 644 0 0 10000 5302722330 33106 %LOG3K::DS1000:5:16:60 $ L<%LOG3K + + + ,FST ## %LOG3K P91750-16132 REV.2540 850730 ALL W/3K#33#CL3K#FWAM#LU3K.DFER .MVW .OPSYCNUMD D$OPNEXEC IFTTYLOGLU LUTRUNAMR PGMADREIO RMPAR3<<`a]`( p|0p{( p|0߰Pp{ P P P P x/`(<;;`a !`(n؉`pl`(4 XZ/((> p`Cp`pl`l@sp}`; `DCBp H <<`b`SP^ ;;`^̶(P_(P`(Pj(Pa(Pb(Pd(Pc(Pe(/( UNRECOGNIZED. TYP;<<`cE "??" FOR COMMANDS.B/56K`VPҴ(/>`SPa(( S< `Cu (p <<`b l(/( INVALID VALUE`(k"k(_ZK`S(//"%>`SPa( <<<`g02 SW;`(HAp S`UXp(p $N]/V (***SMP<`C#Y ERROR<<`k!\R -XXXX/c(SORRY, NO SPOOL P/o("FI" COMMAND NOT ALLOWED ON THIS SYSTEM. <`A ;;`_ ZKhS (/", >hSXa(Xh(Xg(Xf(Xi(Xd;<<`_l((`W00pK`hSXi0p(`p(/p(LOG3K SETS UP FIVE< `F WORDS IN SU <<`nYCBSYSTEM GLOBAL WHICH ARE USED BY THE HP3000 COMMUNICATIONS MODULE QUEX. THESE WORDS INDICA<<<`nTE WHAT TRACING SHOULD TAKE PLACE FOR COMMUNICATIONS BUFFERS AND WHETHER DRIVER FUNCTIONS S< `DQ3*HOULD <<`n.BE RECORDED. LOG3K REPORTS CURRENT OPTIONS AND ALLOWS YOU TO CHANGE THEM. POSSIBLE CHANG<<<`n?\ES: LU NEW LOG LOGICAL UNIT FI NEW LOG FILE (SPOOL SYSTEM ONLY) UP < `DRESET LO <<`nG LU TO BE "UP" TY NEW LOGGING TYPE POSSIBLE LOGGING TYPES: NO NOTHING <<<`n# HE COMM. BUFFER HEADER ONLY AP HEADER AND APPENDAGE DA:n HEADER, APPE< `DX&NDAGE, A <<`nyND n WORDS DATA DR DRIVER EVENTS AND STATES (MAY BE SECOND OPTN) EXAMPLE-- DA:50,<;;`h>DR TRACES 50 WORDS DATA AND DRIVER. /p:8/`/p;8/ <{P/ E{]; `CB\D6(x `LFlGpK> RS]4K;;`a@P`(`p`עp(6P(@(k$ ppp;;;`fP/(SPOOL NOT SET BY THIS SESSION ``0p~p$~8;`A/̠(<<`k=mͶ`~ p~( ? @DS/1000-3000 LOGGING STATUS L<<<`nOG LU LOGGING CHANGES? _NEW LOG LU:_NE< `DB&W LOG FI <<`nT*LE:_NEW LOGGING TYPE:_END LOG3K HEADER APPENDAGE WORDS DATA AND DRIVER NOTHING(FILE <88`kXDOWN) LUFITY/EEXENNO??HEAPDADRUPSMP LU CLASS :$>CKMQ8@)D< ))U QDS ) O M(J) J +WW) +@O`)>D ))S QUD ) OMM K i%LUMAP::DS1000:5:10:60 644 0 0 5000 5302722332 33276 %LUMAP::DS1000:5:10:60 $ L <%LUMAP + + + FST !! LUMAP 91750-16133 REV.5000 870420 ALL !<<1#LMPE#LOGR #LUMP#MSTC#NODE#OK? #RSAX #SPLU#TTOV .MVW .XLA CNUMDD$OVRDSTIODTACH EXEC KCVT PGMADXLUEX<<<`a\GpH0p!p C0*p"p$p&;`:Zp`9 @;8( '<;;`_!$!T,4(~`߶P(`,( (`"hZ`:pZ`9 (Ip@<; `BV@X ;;`YWB(H`@;8(;(``p`p`4Ķ0p+`8`7`6p(`;;;`\8a[h` `h p0pӶ`p`+ĶP(h (` ; `Dew(|( <<`^Z#{Zxhx hHxhx((h QP(5H!(@ `@` <<<`^9Z` `P Hx(h` xh QP(5H!(@< `Bo(` ;;`dޫ(`($6pϰpp`(p`;;;`bݶ`h`hx`(h( @p($+ ((5p (7; `Dp8p <<`a%4 "$(+&((h `"@p-@p.x @p/@p0<;;`\Q$@p1@p2@p3`,hTP(1(2hx  $6 `:pZ`9 (Ah X ; `C@(E@;8 <<`]jC(9(`,P¢((R`hZ/`011(X/(`"@pu23<<<`a[`h4PZ(p6 (nhZ 3(p3Hx(z) &(78Z#4(p< `DL$ ;;`bP(X((X?1p?$$$P78({p4p5p6Pp7p8;;;`ftP(@@(Ҥ#T( DS030508;$$`ZT MESSAGE FROM NODE $ `Ds AT DAY `VK : :  ]$= (SYS I/O)  PRGM  `Gv=$LUMAP **`_/@X*`N _@)_@`} :8(t  `| J@?>AJ->  o8(%LUQUE::DS1000:5:3:60 644 0 0 1400 5302722334 33164 %LUQUE::DS1000:5:3:60 $ L<%LUQUE + + + i FST !! LUQUE 91750-16134 REV.2201 811218 ALL !--9EXEC RMPARCLRQ RNRQ #GRPMXLUEX#QRN #LUMP#NRVS #LMPE #SPLU .XLA .MVW MESSS-::`c Et{Z ,Q4 ttd,d,jdT,id,& ,cd:<<`bi#,b4ttz-P,fl ,4  @|lL| <,ed~D~Pd<<<`d^EtP$6z,VV$J|}tdl_ $a,h<{<{<{<{<{<{<{<;;`hb:i<{<{<{<{<{d{t x$,Q  LUMAP ; `Eo@ `H  OF,LUMAP,FL dl_ $a,h<{<{<{%MATIC::DS1000:5:5:60 644 0 0 2400 5302722335 33113 %MATIC::DS1000:5:5:60 $ L<%MATIC + + + yFST (('' MATIC +91750-16136 REV.5010 ALL M.A. <880711.0753> '<<;#GRPM#LEVL#MARL#MARN#MCTR#MHCT#MTBL#NODE#NRVS#OK? $LIBR $LIBX .LDX .MVW .MWF .MWI .XLA DTACHEXEC < JDRNRQ XLUEX <<`a$PP(_p xp "h(Q`P ("`` <<<`]r!Zp`(B8 Z@p(B`@p@(9`y`0pe(Q` p`y<`B>$@<<`^;_@(Qe` (Q8 @p (Q`yO(Qe` Ͷ`@p8(^< `F^ d `Sثe0pv`0pd tv$de@ ;;`^yZpxp`qhq  Z`p`p`p`p `p$Z` @@h Xp!`p";;;`_KuZ`p#p&`xp'`)00p) yp`h0Ph" p (p "; `DH Hx <<`br h(p xh, $xp p `h$p` (h(p` <<<`gܢ0 $hH Z H˂$p`Zp  `hB @@@<`CEMATIC %OPERL::DS1000:5:6:60 644 0 0 3000 5302722337 33326 %OPERL::DS1000:5:6:60 $ L<%OPERL + + + FST R:OPERM z91750-16142 REV.2440 840614 L @eYC.BUF CAM.OKCNOPTECH nOPERM<<#GET #GETR#NODE#RPB #RSAX#SLAV#ST07.ENTR.MVW .SBT BL.. CN.. DTACHEXEC IT.. LA.. ON.. PARSERMPAR< fSY.. TM.. TO.. <<`dO`pq r$qs( p`(#`q 0pr!$rh(,<<<`a3$$*qs4P( xwZpv`(P(Lh X (L`!P(F( `0 p< `DRE(K ;;`_%|I&(  (UhY6H`xX`@pn$\ M@mpm`po`ZX @8o;;;`]hZ(bh ypx`(u@(qpLppL$mQp`pP(`v(; `D$SPphw ( ;;`aW`@(`p`@tpu`0p` hBs$u( ($w ;::``2`O q ( BLCNLA#PTM'TO+IT/ON3EX7hhx:<<`dy{ H@0p`h`p8v(CMND -4P(5<88`d(p8v`䰊h( 0 @XXRS04M G 8`BaK`MAm% y_b := fmt_p(lts_bbr,s80); print_out_string;  END; {with}  sttbl(out_str,sts_bar);  print_out_string;  END %OPERM::DS1000:5:3:60 644 0 0 1400 5302722341 33066 %OPERM::DS1000:5:3:60 $ L<%OPERM + + + FST !! lOPERM i91750-16143 REV.2140 810721 MEF !!! MESSS#SLAV#GET #RSAX#NODE#RPB #ATCHDTACH#OK? #ST07 !<<`b ++tdc0decX , dtdfthd ,HTY,/PdTb,/<;;`]"dT[,),Hd`,8.Z,d \tc5c,@d_tdatd4^t;;;`ee?,HD 5 t DgthNcd4]tV$hXX,@0104RSXX; `E`d%  ,Hd`,8.Z,d \tc5c,@d_tdatd4^t;;;`ee?,HD 5 t DgthNcd4]tV$hXX,@0104RSXX; %OTCNV::DS1000:5:7:60 644 0 0 3400 5302722343 33322 %OTCNV::DS1000:5:7:60 $ L<%OTCNV + + + `FST !! OTCNV 91750-16144 REV.2440 840614 ALL !@(OTCNV<<#BREJ#CVBF#GETR#GRPM#INCV#NODE#NRVS #OCV0#OK? #OTCV#QCLM$TIME .MVW .XLA .XLB CNUMD DTACHEXEC KCVT < ABREIO XLUEX <<`i$&K "a&%n`pr`0p<;;`_,)X`rppn44t8npjxi&=YQZ`n('`(L`(L;;;`^H` P^xih (`R@Tpd` Zpmhhxo aone(0Vpp`d;<<`\Qf@e(`e(p[(vhHu\0e`m@d( S P Ph< `Cd xhd ;;`[3HxfHmxk@ph8f8f`xpghsg8g (`hxZkhdHxg;;;`[RHmxlpn@hpkl@jpj8g8ghZ 8n(Zfhm gpn8f8g; `D\f@T@x ;;`Y1gHTH8f8g8n(hdHxn`hjn(xj`dPe(ֶ@Tpd(v`j@;<<`_ آph `j@(h8h8j(`j@wpj]0`pZXp ijZ(('< `D=fP`pZpp <<`g4X(`dpn &nphHvpn  n0" W $P%( RECV'D LEVEL XX MSG FROM NODE<<<`bR" XXXXX&('hHxn _n8n8nP776ʁn8n8n`n8nn`<`BD('<<`mFOXQ$U Q;('? ?DSDS08OTCNV @< `FUs% y %PLOG::DS1000:5:18:128 644 0 0 11000 5302722344 33521 %PLOG::DS1000:5:18:128 $ L%PLOG + + + FST ==X@ŵ 65PLOG91750-16147 REV.5020 $Date: 89/10/09 11:45:42 $ ALL /MM/SRC/&PLOG =xW#GETR #NODE #PKUP #PLOG $TIME .XLA.XLBCLRQEXECFMPBUILDNAME FMPCLOSE FMPOPEN FMPPARSENAME FMPPOST FMPPURGEFMPREWIND FMPSETPOSITIONFMPWORKINGDIR FMPWRITEIFBRK INTTODECIMAL \PNAME RNRQ EE&&@ @@@  E )PLOG - 2  -X @h'PLOG:DSPLOG.TRC]e WOSU WCSU  )w  5{  V  !! @'T!{BBA23X`3p,(hXx3H(h`p`4((=hXx3``p1@`(Y`T(P(`(`4((m0pY(Aeh` @h`ˈ` ~~x@@``,( <Zi(=(hW (0`ʰ`@p`@p`@p`@phU `ǰ p`@@ p`V(rpp.pN$~sNII(c(c`A0#pY"(^(^ (lA/jY/ w(`V(q`pV   p '@pV `U  xAZw{}Zw{}GGA\ <Zm(P(`'h(=`30DŽp33(=`PˆA((= Z(( <A( <(d``Mḧ́(EE(@p`H ``p(`(`.((p@.p.lA(A(`p(p-("(=}#FFppp`1p4<(lA ;<((HE!(`(SR%(`Eh A\ AbA\j iHHd\(`40pxpY(pd`(~ll`Nh (=A <(A <(`V(`A<EE(`dl`40pè`4A0ppx3٨8ͨA&`+P((N`*P'(N`)P&(Np`h `Va[[p <(8(<( ** IS ILLEGAL NAME--PROGRAM MUST BE PLOG  ** ERROR-- RUN PLOG,-1 TO CLEAN UP RESOURCES $ ** END OF TAPE -- PLOG TERMINATING < ** ~Q``CLASS # UNAVAILABLE -- PLOG TERMINATING O ** RN UNAVAILABLE -- PLOG TERMINATINGf ** RN LOCKING ERROR -- PLOG TERMINATINGz ** CANNOT RELEASE RN -- PLOG TERMINATIN ** CANNOT RELEASE CLASS #0`` -- PLOG TERMINATING ** EXEC ERROR -- PLOG TERMINATING  ** ILLEGAL LOG LU -- PLOG TERMINATING ** ILLEGAL INPUT LU -- PLOG TERMINATING ** ILLEGAL BUFFER SIZE -- PLOG TERMINATING ߼SS ** DUPLICATE FILE -- PURGE OLD FILE? (Y/N)  ** FMP ERROR -xxxxx -- PLOG TERMINATING(  ^ ** END PLOG? ** START PLOGF`&p ' `#h(S`;h(S`yh (H`e.d>>h(S`h(S`h (S`h(S`h(=`-~`h(`h(`h(`-`h(`hOO++(H`Јh(S((=(=(=Ap=`PROGL SSn #DNFL #GETR #PRLU #RQUE .DFER .MVWAPOSN CLOSE CNUMD DTACH EXECKCVTLOCF OPENREADF RMPAR XLUEX SGDDA ;`pp70hp87LRP6(T@rp5PR( (A( %Z8PLpN(0h@ (`L@(>`Pg(;D(;(3(B`BD`kDLLptB\A G`sH`tI W6OusD@(`(0cp0i`@\pAopĈ`@\pvp{Lp Q0S7 `6PO x{`?:DDp?h6XO0cpMA(D(6DEF`6(5pN(x6@h (Hcx06, Q0 /S7(3(APM(D(D(`6 (dB(@@n@VEE (89AiOa`L0cp=j=77( (O(`Mh(`}(`N(iHP`|pyx 6y<`6P`(|(5h< (| (`M(:`{Lz@@(/p{(-@b('(- (- ChNxHpVA(W!('hmxl`kHxjjP$jt(%(%pVj0j\x7j:<<`a2 \(t(b`V(vly$tttt"n(P(-X(1(-߶(#(+ {7(< `Bk}pkA ::`^?6߈r7`70p7` 0(6A(+ZjP7(3lxh "h (bh:<<`^c$Z(4Vp`phx`@(8ph hhHu8(`(9`7<`A)(<<`\V`pih(xlHxjZhl 8i(`7(( 4Z7(#pkVA<<<`aZؠP`7 ( Px7(8lph h`(`7 (`j000pp<`A; ;;`f2$zpt&(( j(`0p $ytt$nj((j l;<<`]\ Z`9h(4l`9h(4h(4h(4h(4h(4hx7` p7Vpi?j<`C=$i<<`^@(h`pi Pk(Rxm 8i(F8AAxlH@xjA` Z(^hn(^(d<<<`m'^dwo2t` 0p VRS01 |$3,$ @< `DaO `Hf=`Bb %77`j 7 `E>@08DS $ @< `DaO `Hf=%QCLM::DS1000:5:18:128 644 0 0 11000 5302722350 33603 %QCLM::DS1000:5:18:128 $ L%QCLM + + + FST ==XESŵ 7QCLM91750-16152 REV.5020 $Date: 89/11/21 09:58:34 $ ALL /MM/SRC/&QCLM =&&v#OK?#QCLM .MBT.MVW.SBTDTACH EXECTMVAL &^ BBQCLM &p+@`p5 `P(P(,P(WP(P(P(P(P(P([P (UP (~P (P (P (@P(@O(( D((S ERROR: PROG=>aPP , STREAM= , SEQ#= P= , A= , B=  *v`pab` p`i`p`p`p8`@pA8(Y(.DS ERROR: XXXXJJ݁44( ), REPORTING NODE --REPLY FLUSHED ,TJGOO `pppՀ` ӈ` DphH`@( `( `A`A( DS ERROR: TCB NOT FOUND, POSSIBLE TIMEOUT)*( DS ERROR: ChhK5GGOMM. , LU= I/O STATUS= /I READ WRITE8LO`T`ShRA`>`FJ( DS MSG: MESSAGE ACCOUNTING REMOVED FROM NODE hYYe` |( DS ERROR: UP/DOWN COUNTER EXCEEDED LINK LU # IS DISABLED `( DS MSG: LU # JUST CAME UP`( DS MSG: LU # JUST WENT DOWWWNو`Ј( DS ERROR: SELF-CHECK ERROR IN P= A= B= REROUTING IS DISABLED FROM THIS NODE 7`p```( D779/&&S ERROR: SELF-CHECK ERROR IN MESSAGE ACCOUNTING! 7=XXX*.X` I`M`Q`UY( RQCNV: BAD BUFFER. MSG FLUSHED !!j{|( DS ERROR: SLAVE TCB NOT FOUND, POSSIBLE TIME OUT ( RQCNV: NO ROOM IN 3KLU TABLE FOJJg444R X.25 VC. ( QUEX: TCB NOT FOUND, POSSIBLE TIMEOUT. Ј( DS/3000 REQUEST REJECTED - J``SYSTEM TABLE ERRORCONT. REQUEST REC'D AFTER TIMEOUT NO TCBs AVAILABLE ILLEGAL CLASS AND STREAMMONITOR UNAVAILABLE OR NOT ENABLEDLOCAL NODE IS QUIESCENT TCB LIST IN ERROR NO AVAILABLE CLASS NUMW``BERSNO AVAILABLE TST ENTRIESCLASS I/O ERROR: SLAVE TCB NOT FOUND ON CONT.ERROR SENDING REPLY: HOLDING CLASS DATA MISSINGOPERATOR COMMAND IS TOO LONGREMOTE SESSION MONITOR IS NOT ENABLED REQU==Y++EST TIMEOUT ILLEGAL DS/1000 STREAM NUMBER IN REPLY&7CLYen|=@KK`@PphMHp p`hLx`R I(88㈈`@Hp`KhN `@Q(:( CLASS =xxxxxx STREAM =xxxxxx SEQ# =xxxxxx FROM ID =xxOO0//xx TO ID =xxxx$7``` &`J/`J58( STREAM=XXXXXX ORG NODE= XXXXXXOhSSOh_mLU= XXXX  w DEST NODE= XXXXXX`S` \`hk(`v` e(`l`aiA(. TIME: DAY : : PPN**```A `ֈx8hx BCC088(ި00P!!@ -32768 'd 0--!<>>h h h px` @p  8 6x``h(&p(C`x`p`pph 8x(7h (<0Hphx8(,`h0 BA `  @x" the group requested exists *  * Move_Group_Desc - Move group description from EMA to local * memory* * Format_Off, Format_On - Turn format mode off and on * * Group_Gr_Setup - Set up group independen%QUEUE::DS1000:5:4:60 644 0 0 2000 5302722352 32612 %QUEUE::DS1000:5:4:60 $ M<%QUEUE + + +  FST !! QUEUE 91750-16153 REV.2401 840206 ALL !@QUEUE!! P#GRPM#QCLM#QXCL#QZCL#ST08 #ST09 EXEC RMPARRNRQ XLUEX!::`^ `P_`_ p 0Zp@_h`(}(!X(!@(}:<<`^F@(}`Z(}@(}`P X p`X@p`X` (BX(BX< `C1<(Wx`' ;;`cy?hX`+(ypO$u4X(Y(~$Wu`Z(BP_X(~_;<<`b!b`@_p`(vp`puu$uu`(R`h (p`p< `Du$uu 88`j4(RQUEUE  9qIO 04 8 callruntime (rr_dot_itbl); emitdef (lresult); replacenode (node, lresult); END;  END; END;  %QUEX::DS1000:5:21:60 644 0 0 12400 5302722354 32537 %QUEX::DS1000:5:21:60 $ M<%QUEX + + +  %<FST %% iQUEX 91750-16154 REV.2340 830701 ALL W/3K HSI%<< #CL3K#LU3K #MRTH #OFF #OK? #PNLH #QXCL#RQCV#RSAX$LIBR$LIBX$TIME.MVW .XLA .XLB .XSA D$DN!D$EQTD$MXR<'D$RADD$UP!D$WADD$WLND$XS5DTACHEXEC XLUEX;;``W;pi0Mpj 2`(L/LpfhZ`6p`K p5`p+`;<<``P ( pp,`f0Npg/$Kgii|pn`(F`GP(F`ap`hx@ <`C@[<<`g[C`\p?M$gisTgW&t`S p!R_g$uRhg^&XwR<<<`aCOj` @`p0p`hxYP`Ypk`@Yp`Kp(SSy$Zp<`A5 i<<`asXp`p$Ui[$Zk((plHkxk (`o(po(`m(<<<`cj(`6@p`@p`@kpk(Uji$ik(Hkxk`P@@k< `Bд(`n <<`b($g`ivRhPh( xnP](&ggxZxRhXP xhXa<<<`^\J x} xPh (i`D@pk(9@b(9(9`MPM(1hHx(`(<`Bzhm ;;`^y(BPh(`â(B(B(1`(hHhXp(B$+ (1Z((l`;<<`b82@p`@kpk(`5 @p`(IUji$ik(MZ((UHkxk (< `CTpo`} <<`fW`(``a؉g8($ggii4 yRpn(rK`$Pt](1/QUEX: INSUFFICIEN<;;`h+}T S.A.M.`l(K` P\pl/QUEX: CLASS ERRORP pl(1W; `D&i ::`^B$`gzZxRhX xhPh(h (`pn(xRht(f"0Np`:::`^Ǣ@pxhf`@pTQ 8xhhШhH: `D'cL( <<`^ L((!`PV(Bh ~P(Bh ~(Bh(.h `P(PV(B (1(. <<<`_^E(0`0`p`@L6pe`@WZQQp-p`Pd(1%؉ `'p *< `D&$`^ ;;`a8J*`dp(1$5gii0|<g$i{yZ`ap(0`O(1L0g`;<<`a6K0ORhHZHH`T$QYii"j(d(W(l(1pm< `E:'l$ofih ;;``aqpmxf&e-p&}py ~Gp GZhO(8~ڨ~ph(;;;`\ޙLp@c(ݢLpHܶpLp@K(@J(ݴPHh(5@Yp; `D€h@ <<`]5'(p8``G`Yp?`GOZ(Lp?`GS@?p@hx?<;;`^X@p@@x `hf@8?`@Z`>QUEX EXPECTS HSI LINK b$u}$< `Dl$ <<`np$INVALID REQUEST WRONG LINE STATEBAD ID SEQUENCE HARDWARE FAILUREEOT RECEIVED DL<<<`n7*E EOT RECEIVEDTIMEOUT SENT EOT,GOT ENQDATA OVERRUN MAX. NAKS RECV'DMAX # ENQ SENT< `Dr RVI RE <<`nCEIVED ENQ SENT,ENQ RCVNAK RECEIVED MAX ENQ RECEIVEDNO NAK TO TTD IMPOSSIBLE ERROR <<<`n>> HP 3000 COMMUNICATION LINK *DOWN* >> **************** @ ********* * UP **DOWN*>>< `D98, HP 3000 <<`n0: BAD BUFFER RECEIVED 6= RECEIVED C OUTGOING  @  <<<`n^'QUEZ i@C` @h$! `!@<`AeER RECEIVED 6= RECEIVED C OUTGOING  @  <<<`n^'QUEZ i@C` @h$!%QUEX1::DS1000:5:13:128 644 0 0 6400 5302722355 33047 %QUEX1::DS1000:5:13:128 $ M %QUEX1 + + + f&FST AAXS#ŵ 7 QUEX91750-16155 REV.5020 $Date: 89/11/21 10:42:33 $ ALL W/3K PSI/MM/SRC/&QUEX1Aww#CL3K #MRTH #OK?#PNLH #QCLM #QXCL #RQCV #RQUE #RSAX $TIME .XLA.XLBD$3KL D$DN! D$MXR D$PAD D$PBF D$RLU D$UP! D$XLD D$XS5 DTACH EXECXLUEX wyDDA  p0pA `(`pp("ppBxHHxH (HHxp`h 5HH  (F8EADBBӈ(` (㈈` P((c` P(ahH瀀(a(c` (ohHp(6 m (p`( }(hP(HMMa9$$P(JJhpHpHp pA䠈(M >>`@p`@p@pxh`A@p݀(`((h``@Hp@@@((F` Pـ((`P(P(`~~ DDHhW(`hW(`pA㈀(op@HH `ppH `p @p `p(рh `PՈ(,P(A (+( (op5~,5@@(` ؀P(Q` P(QAG(Q`(P(шhH((pnxm W (ghmHnP(khmh(Y8WW`@@@Gu""p`@p`o`0p@`pA`@@??` (ш0` 0hxHH倈H(`pHxɈp`CA`ɨ@h(׈p؈p @HH(Hp p@(@(H(hH 5Hx ؀@(8ӈ`pA >> HP 3000: BAD BUFFER INCOMING ;`B(=(PP-1pB(/QUEX: CLASS ERROR  Bx`C`CH`p`pp(qAX(d(mAbCAl`0pC`0pA}((x(dC(dSAM /QUEX: TRACING ERROR (BRR@Hp`CH`AA(>>QUEX EXPECTS PSI LINK 0pA@ VV??  V@%QUEZ::DS1000:5:2:59 644 0 0 1000 5302722357 32667 %QUEZ::DS1000:5:2:59 $ M0;%QUEZ + + + 6FST %% gSQUEZ N91750-16156 REV.2201 810708 ALL W/3K HSI% ^EXEC XLUEXRNRQ DTACH#LU3K#QXCL#QZRND$XS5.XLA ;;`i2WXdB,*&JL 4FtJdtM$AJMIGL#H$)C @;33`e8~),0BA&4E3D,*>> QUEZ EXPECTS HSI LINK @)@3D$XS5.XLA ;;`i2WXdB,*&JL 4FtJdtM$AJMIGL#H$)C%QUEZ1::DS1000:5:2:60 644 0 0 1000 5302722361 33031 %QUEZ1::DS1000:5:2:60 $ M4<%QUEZ1 + + + :FST %% byQUEZ c91750-16157 REV.2401 840323 ALL W/3K PSI%Ym#OK? #QZCL#RQCVD$3KLD$DN!D$XS5DTACHEXEC <<`d ~MbP0ap_`Y(B^$]_AX$`(p^PZ(! &A^(% A<<<`g$"<(.`<(`^0?p^(`p>9=$?@Y;;">(HYXL0\K[< `CcK(B>>QU `UNEZ EXPECTS PSI LINK   ?%REMAN::DS1000:5:42:128 644 0 0 25000 5302722362 33631 %REMAN::DS1000:5:42:128 $* M8*%REMAN + + + *:>FST <<X _Po,,REMAT 91750-16159 REV.6000 $Date: 92/08/10 13:06:34 $ /MM/SRC/&REMAT< REMAT }} #MAST #NCNT !#NMSC #NODE #NRV#NRVS #OSRV #OVR#RMSM #RQB #SWRD .CBT#.DFER /.LBT..MVW-.SBT,.SFB.XLA$CASEFOLDCNUMD D#OPS DCLOS DCRET DEXEC DLOCF DMESG }ssDMESS DNAME DOPEN DPURG DREAD DSERR DWRIT EXECFCOPY *FMPCLOSE(FMPOPEN )FMPREAD +FMPSETPOSITIONIFBRK &INTTODECIMALLOGLU 'LUTRU %NAMR PGMAD "REIORMPAR s        " LL<g77f8?@@00 "$-78 L $TR $''$_#_ASQRUBRBNBADS/ _ , ƈȀ'h  mTH ]??@`ipi [xUA+p+`8p5`+5H`ppp hU (   h (hxhix Xip(`P+(55 Ոp`hXi($h`+ 50p`hXi*@@`p`p`(<` p` Th P Np p(n5p}(pp 5  p(\hH`PhPhxA"Xă5i( 50w5pAp"f [( pxU`!j@@(   A((rp` x( AA)[ UpU(( %`p`p` IpU(`5@ N`(`Pi(`UAp"( `}P( `v0phU RR(< (U ( ((A J(*^((q(h  ψN(L^(Gq(<` ՀPjN`xA0p\( 5N`tA0pjUnj@@( 5m8^p^`sp Ոp`tXj yX0y0pA( 5q`fPj(`0iPk(h   |`h ph ψ`hAW` 18(QQAWU`(A(pWp 1AWp(<Ȉ` h`hAWi( 5 PnxW`(< 1",~~YDD( (<`p`p` hxp`(( 5`0pA( 5pxU `U(  J(*8`o( WARNING : DEST. FILE RENAMED`(R`~?GG( ~( `p` (<`( ~( `0p(<` (H`sp\o`spAc{A"ik( (<LISTLU =XXXXXX LOGLU = XXXXXX`p(`ˈp`hTHH6,(( `-`-(`p`@hT6, H( `-h `UpU#U( 5(AX(<` (>ph  ψ`q0p `p`p( lȀ`( h #A# ` ( ph  `P( p(   ` h .`p( ` h .oȅ HHA`p A "  ( 50wpA" i( ` ZP(@BFP f@6nSA %RESM::DS1000:5:12:60 644 0 0 6000 5302722364 33216 %RESM::DS1000:5:12:60 $ Ml <%RESM + + + %jFST %% RESM D91750-16162 REV.2440 840712 MEF W/O S.M.%;;@#3KLU#ACRN"#ASEC##BREJ#BUSY#CL3K #CLRN#CM #CMCT#CNOD#DFUN#DS1K)#EXHC#EXTC;@]#FWAM#GRPM#INCV#ISTO;;@=#LCNT#LDEFc#LMPE+#LNOD #LU3K0#LUMP*#LV #MAHC#MARL#MARN#MAZE#MCTR#MDCT#MHCT;@L:#MNUMu#MRTH#MSTO#MTBL;;@Z#NCLR#NCNT$#NMSC(#NODE!#NRV %#NULL#OTCV#PASS#PLOG#PNLH#POOL#PRLU#QCLM#QRN ;@c#QXCL#QZCL#QZRN#RDLY;;@Uf#RFSZ#RPCV#RQCV#RRDB#RSAX#RSM #RTRY#SAVM#SCLR#ST00#ST01#ST02#ST03#ST04;@2#ST05#ST06#ST07#ST08;;@G#ST09#ST10#ST11#ST12#SVTO#SWRD#TBRN#TCB #TRCL&#TRCN'#TST #WAITD$LIDD$RID; #LEVL#PRGL$ALC $CGRN$LIBR$LIBX$OPSY$RTN .ENTP <<`b%_B p=pp<pZppx(((#p"#<<<`dn"Z`(@>(`@,$-??$?$$?`(ppX< `B\F(WX} <<`[H(X(([`fp`p<`y!(WHy0(P `(aZ@w(`8<<<`]cZ>(`hX}(o`Dp8`5`h hډ88``h(< `CD`y( ;;``BY`x(`wpppppp`(`("0p `p;;;`Zl@xp(`dp@p `zp;(`wp;`fpp (`;!(x`P~ӠHx; `D\{xP{(P| <<`[N(P~((` Z @>(p`P(P(鶊h(HwZX(h`z<<<`]Aܶhyp=(h 0HyP( h (Z`P(`(p`< `DI( <<`^((px(P(h0 pp( `@wp p@tQ(`c@<;;`],p?h ('p;h !Zx`=(3`yZ@('H;hP<; `C#d8('8!! <<`]W; p@cpbZ(`P(BbHcxb (M`bP`P@v<<<`jX(_X @p>e$$$  < `ED1: ;;`mw?8;<<`nb"< `Db& `Fb, --`ban-`Bb|:`J`wa(ppp %RESSM::DS1000:5:13:60 644 0 0 6400 5302722366 33360 %RESSM::DS1000:5:13:60 $ Mx <%RESSM + + + })xFST ## /RESSM 91750-16163 REV.2440 840712 W/S.M. #;;@4#3KLU#ACRN>#ASEC?#BREJ#BUSY#CL3K%#CLRN#CM 0#CMCT1#CNOD;#DFUN#DS1KE#EXHC,#EXTC-;@^#FWAM#GRPM#INCV#ISTO;;@>#LCNT/#LDEF~#LMPEG#LNOD<#LU3KJ#LUMPF#LV .#MAHC6#MARL7#MARN5#MAZE8#MCTR3#MDCT#MHCT;@L#MNUM#MRTH#MSTO#MTBL4;;@\C#NCLR:#NCNT@#NMSCD#NODE=#NRV A#NULL#OTCV#PASS#PLOG#PNLH#POOL#PRLU#QCLM#QRN ;@dF#QXCL#QZCL#QZRN#RDLY;;@V#RFSZ#RPCV#RQCV#RRDB2#RSAX#RSM #RTRY#SAVM#SCLR#ST00#ST01#ST02#ST03#ST04;@#ST05#ST06#ST07#ST08;;@IN#ST09#ST10#ST11#ST12#SVTO#SWRD#TBRN#TCB 9#TRCLB#TRCNC#TST #WAITD$LIDD$RID; 1R#LEVL#PRGL$BALC$BRTN$CGRN$DS1K $LIBR$LIBX.ENTP<<`caBpXppWppp xp  !^<::`c#`(@>(`@,-$??$?$?$P`Z(ppX: `CPF(WX(X <<`]1I((g`p:`϶pW`<(WH0(P \`(mډhH0<;;`\YfШ\+@(`8Y(`hX({`Dp8`5`h ; `Dh8 <<`^8``h(`(`(`pppppp`(`<<<`^G  "p;`p@p(`p:@p;`pV(`pV`p:p;(+`V<< `B´(x <<`ZĶ`PHxP(P(P((`; @Y(p`P(P(h(<<<`]+HX(h`hpX(h 0H( h (< `Ck`P* <<`b)m((`( $ +`((phx((`P(p `h!<;;`_ pppEp! `9@p;p@Q(`~@p:+ ?h ; `C?(BpVh: <<`]B (G`ChDxg @o1 (@g< ځH@Fp\`+< `C7KZp]Q ;;`Z]\(fYxY(^ Z(n`o (nYpY(^8\\phoX%(`Y;;;`\wZ@/Po(`YpqYpY(qZ8pphY(H)`K,(YxY (8;`BX;;`^+ `o( @E( `D@o(1@C(`o1@>hH.Xo ( hH/ ;<<`\RXo( `YhH.Xo(hH/ Xo8hH/P X(<::`ci6`o  xhx  (pDZpE`pZ`Np>pApYh P(@@ (hYH!;<<`[t`DpE(P@@ (-`Y@1YpY8D8Z( hYH!`DpE(P8DhDxE8Z< `C2(7`CY ;;`[ 5ZpY(<Y`CpY(P@@Z(FhYH!(P`YhY@1YpY8E8Z(<;<<`aޢP`Y@ (Yp`Y(^ Ё7p`C@ 7h p@p`E@(؀ < `DqP(`( <<`eu `+pH`E H 0p$,FGZPF(@p($,FGPF<<<``(`HpZ(`(`C@phNH x@ 4p1@( 47pk< `Cqxc ` <<``Ё7@k( `1@P1@ ځ7(`)phH `p(`YpB X(<<<`\ X(h xZ(@ (`CpBpY(@7YpY8ZZ(h (`CYpY`Y< `CE X( <<`cf@7YpY XZ(Y`EBP(p [_`K€S$)'/(`P(p<<<`l{4"[_`Kx$.)'T(RFAM: LIMITED BUFFER SPACE, THE NUMBER OF FILES HAS BEEN<`B&K LIM99`lrMITED TO  QRFAM: LIMITED DISC SPACE, THE NUMBER OF FILES HAS BEEN LIMITED TO v9`S%$q`A #(`@⨊h px  `@p`@hp`xp ߀P((@@h%RMOTE::DS1000:5:22:128 644 0 0 13000 5302722374 34031 %RMOTE::DS1000:5:22:128 $ M%RMOTE + + +  FST @@X*htPŵ 70RMOTE 91750-16167 REV.5020 $Date: 89/10/27 16:21:21 $ ALL W/3K/MM/SRC/&RMOTE@߼#3KLU #LU3K #PBZ? #PKUP $CVT3 .ENTR .MVW.XLABYE CASEFOLD$CUREB D$3BF D$ERR D$INP D$LOG D$RQB !D$SMP D3KMS EXECFMPCLOSEFMPOPEN FMPREAD FMPSETPOSITIONHELLO == IFBRK IFTTY INTTODECIMALKCVT"LU3K# LURQ LUTRU #MAXEB MESSS NAMRPRTN REIO=C??A RHp!ppp pHpxUSpVhT@TxV`p鈈`pv`(-`P`pph` h`Pp 0Qp`P(AP(Ap`h VD@@(L`(K`(L`눈0Qph(?~`@m`(p3e(` (`0pꀈh (w8v(W(`ԀpvpWJ(hxCCh (^ψ0p(w`@P(`!((W  (Wp` A0Qp ߈&(W` ߀(W`Ĉphxhxሁ88(SWHEBYTREXRUONRWLLSV99s""U^lu(NEED "HELLO"* `P(9u>> J`(hX()@`()(;`PS(@`(;`@()h" (P"(J (pp 耀("]`op()`(`Tp`ဈhhx` w/DD pJ`(W`p(W@ (NEED TO RUN "DINIT" INVALID REMOTE LU LO`ހP(`鈈P(CphH`Pp`J(p(t{sOO(NO DEFAULT BISYNC LU IN THIS SYSTEM, MUST SPECIFY X.25 LU # `Ap U`"p`(`Pք(`" Ah @`$hx#@(`P(@`@# PP(`p#(WP( (HELLO FAILED OR LINE DOWN RMOTE LINK IS LU000000WARNING: RMOTE BUFFER TOO SMALL!{` P (`P(C`!(Ӏ ((WE  MM`ި P,(/P[(X](/P($X\($((Q (REQU((EST FAILED4(TIMEOUT: NO REPLY FROM REMOTE H (NOT LOCAL COMMAND LINK IS DISCONNECTEDIO0105gB_BB>J`pP(x`((~hX(Hr(ox x(]A~hHnx`pX( (`m(WpAYl(p''f`@mXՀ(WAY((W' {@  TR STACK OVERFLOW ROS DD`!(ڀ ( A> AUTO "BYE" FAILEDEND RMOTE `P鈄(`pjjJD``PÈ(Xk(`ǀhxD`xD`xD`Ljx<D`xHH@h!`x`p`fhXÈA`gp-<(2(W`U(?Ph(>`EXi(?`MX](?`]Xj(?`epB(FILLEGAL STATUSNNO SUCH PROGRMVPROGRAM BUSYff\88 ^NOT ENOUGH SAM( SC0310NO}`Pp ` 0Qp(W}`@(`p(WJ`(`Pը}( INVALID INPUTf  @ ( ,,3G00$TR $_#_ ,ʤFF8`h ( @Ps(pRTE FILE ERROR -xxxxx  `3px8x8(E`phWA(5 1Ո`0QNNE3''phXxY <Y(@&px`hqPhpxYPYYp`N\DDZ`m@Zp\`[\h XW@WhX@p\hZ@x\`@X@h[\]Jpp`p`pp5p`HAhHph`P EEDpUV(A  H` A  @ `(ֈP(P(ԈP(`!(((ր`8`P`pp`p@@8Hဈ8H88 (@p((Wp(`׈Ϩp 8`p 8 `숈Pp(`(W>`p(#(Wp[[{]%33(1.&RMOTE  P3`p<A3CYި>JhĨDJpI8J`WpXVIWJ[k   !@[c c Set the remaining fields necessaryc  do i=1,3 call mputf(field2,0,0.,16h )  field1(1)=field1(1)+400b field2(3)=field2(3)+1 %RMOT1::DS1000:5:40:128 644 0 0 24000 5302722375 34240 %RMOT1::DS1000:5:40:128 $( M(%RMOT1 + + + (:FST BBX Pŵ 8RMOTE 91750-16168 REV.5020 $Date: 89/10/27 16:21:21 $ ALL W/3K: MO/MM/SRC/&RMOTEB~~#3KLU #LU3K #PBZ? #PKUP $CVT3 3$SPCR ;.DAD6.DDI8.DLD7.DMP:.DSBR 9.DST.ENTR .MVW.XLABYE CASEFOLD+CLOSE 2CNUMD *CREAT $CUREB D$3BF 4D$BRK 5D$CTY D$ERR D$INP ~|| D$LOG 1D$OPN D$RQB !D$SMP D3KMS EXEC,FMPBUILDNAMEFMPCLOSEFMPOPEN -FMPPARSENAME.FMPPOSITION FMPREAD FMPSETPOSITION/FMPTRUNCATE 0FMPWRITEHELLO IFBRK IFTTY INTTODECIMALKCVT|@@ sQ"LU3K# LURQ LUTRU #MAXEB MESSS NAMR)PCLOS &PCONT %POPEN 'PREAD PRTN(PWRIT REIO@7??A THp!p戈ppp ap b HppxWUpXhV@VxX`p`px`(/`R`pph` h`Rp 0Sp`P(CP(Cp`~~mD@@h (N`(M`(N`0Sph(?!`@ `(r:g(` (`ֈ0ph (y8x(Y(`pxp^Q(~@@hxh (`0p(y`P(@`!( >A(Y  H(Yp` 0Sp -(Y` (Y`㈈phxhˈx88(SWHEBYTREXCC **RUONRWLLSVMOZes|(NEED "HELLO"* `P(C|>> Q`(hX(.@`(.(@`PX(@`(@`@(.h" (P"(O (pp ('d` p(.`(`Yp`怈hhx` M4CC pQ`(Y`p(YE (NEED TO RUN "DINIT" INVALID REMOTE LU LO`〈P(`P(J >ph`Rp`(p(wOOz(NO DEFAULT BISYNC LU IN THIS SYSTEM, MUST SPECIFY X.25 LU # `pA W`"p`(͈`P(`" hA@ `$hx#@(`P(ƁzPP`@#(̄`p#(YP( (HELLO FAILED OR LINE DOWN RMOTE LINK IS LU000000WARNING: RMOTE BUFFER TOO SMALL!{`̈P(`P(J`!(((YE A >SLL 䈈`P3(6Pb(Xd(6P(+Xc(+/(X (REQUEST FAILED;(TIMEOUT: NO REPLY FROM REMOTE O (NOT LOCAL COMMAND LINK IS DISCONNECTEDbCCIO0105EQ`pP(`((hX(H (vx xŀ(dAhH x`pX( (` (YpA` ..H6(p`@ X(Y`((Y. @ TR STACK OVERFLOW ROS  DD`!(ဈ( AE AUTO "BYE" FAILEDEND RMOTE `P(`pqqQK``Pƈ( Xr(`΀hx爈K`xK`xK`ΈxCK`x HH@h!`x`p`mhXƈA`np4C(9(Y`\(FPo(E`LXp(F`TXd(F`dXq(F`lpI(MILLEGAL STATUSUNO SUCH PROGRM]PROGRAM BUSYffc88 eNOT ENOUGH SAM/ SC0310NO`Rp ` 0Sp(Y`@(`p(YQ`(`Pܨ( INVALID INPUTf  @ 6 ,,3N00$TR $_#_ ,FF8`h ( @P (pRTE FILE ERROR -xxxxx  )`:p!x8!!x 8!(L`ph^A(< 8܈`0SNNP:''ph_x` C`(G-pxƈ !`h Ph x`W``p` !NcDDa` @apc`bch X^@^h_@pcha@xc`@_@hbcdJpp`p`pp5p`HAhHph`R EEDpWX(A  H` A  @ `(݈P(P(ۈP(`!(((݀`8ƨ`P`pp`p@@8H耈8H88逈(@p((Yp(`׈֨p8`p8 `Pp(`(YE`p(*(Yp[[|D,33(85-RMOTE  P:`pCA:J`EQh˨KQpP8Q`^p_]P^Q[ r V :ROSX $RWOX ,WCX 4  @<    (   @ >IAA`!(p 2p 3` a( `X( up "`p ` ep !%     ;8 a` !@ e( ( f( bEp4Hp5p`P( ` cpQˈdA )`ΈP( 2`ˀp( ( D`f 3==p ;` p( / P P xQˈdQˈ`P ( Rh( Vh M`Ph Nx `P _( ^P `( ^( a` 0 p  `ˈP h W`ހ p ` !(  hހP  pCC( uP ( m x p d& |  h dX ( / ;`! / `0( 8 38 2 ` #P _ hH5x H ` "@( ( W   ;p `hWH A ` @ p ( p (  << W   ;( (( p 89:;<=>CDE+` aA >) F p a >@D@(7dȀSMP SPCC/_SPOOL FILE: RMRMc !~@O%RMTIO::DS1000:5:12:60 644 0 0 6000 5302722377 34074 %RMTIO::DS1000:5:12:60 $ M <%RMTIO + + + "FST  RMTIO c91750-16169 REV 2013 800122 ;;@xDNODE.IOI..IOJ..IOR..IIO..JIO..RIO..XIO..TIO..IAR..JAR..RAR..XAR..TAR.;;;@s.IAY..JAY..RAY..XAY..TAY..DIO.G.BIO..DTA.NEWIOOLDIOCODE +ACODE+ITLOGiISTATn;@LGBUFz >DEXEC#NODE.FRMN.LS2F.INPN.DTANFMT.EPNAME.SBT `A :`A I`A`Z`VL 8|@B 00 /`A`D`A`H;;`_- zz|4l <l4|4lG <Pl4Lt @| \ |<;;;`]K9Ҭt22Zd2l <t2|32dt,t2|32d<<d2;<<``PfȴPl3Zl"<,P|<;;`^l趚tFllPdF,Zl"<<ҠZ, ,|;<<`\Z,,,tFĶdDt<F,ҀҶtF<,,<<;;`^SP",'<<F,+<++\+d0tt|G%B`$;;;`\.@,>DtL Z|+GtD|dGT+,]dD.PtdD,^@ttG L|;<<`^]\Z<GtDtGtt t t tdtdt  t dG,mt1t<GGtE<<<`]z<GdGtĶ,΢d,lDd, EdT!ЬE,,<<<`]0tD|.$)ttGtdtl ,άt<t<<;;`^tNdD,,6,,dt< Ģڬ,;<<`\xҶdD,޶Al,DLl lL|g ,ﶀLbLbd.<;;`_{ Y  L|g  dG,lD Z@ttlG, L|;;;`]hU d, P<, dDZdL,#Dt|Z| @Dt|d; `Dr*Ь<< <<`c/.7$"DHdH# T(d&4D4'.$II6tx|yZ,B),W<''`U2REl Z`Adڰthd$hIgtx|yY'$$`Qidyli|n,pdxn|i<n\n ni$;;`\{ <zdz,}tbtGt<zzZtt<zzdDEdtdD,tdtd1;::`c$ldYtY!4-!߰P \!B,4+6dD*t$4ɬE /PROG:33``MM: FMT ERR# 4 @12345B Z<˴ lt ,Z\d|٠3`Ab::`c$ldYtY!4-!߰P \!B,4+6dD*t$4ɬE /PROG:33%RPCNV::DS1000:5:12:128 644 0 0 6000 5302722400 32156 %RPCNV::DS1000:5:12:128 $ N %RPCNV + + + FST @@X(,ŵ 8RPCNV 91750-16170 REV.5020 $Date: 89/11/21 18:00:38 $ ALL W/3K/MM/SRC/&RPCNV@ll1 #GET #OK?#QCLM #QXCL #RPCV #TST$LIBR $LIBX $TIME .CAX.MVW.MWF.XLA.XSACLRQD$3KL D$DN? D$MAX D$MXR D$SND D$TST DTACH EXECl@@A IA03pM S,M&NO`NP&(P(6`MApS ,S`NP&(&`p](@hOxH cpH'cpH cpZ`6A((_ =\[( pUxY%p@<< pSxT ( hSc(P cP](VhSHxS8T(H( `Sp``hH`pZ`807p`hhNX&(LjX(/p`\/P%(`(x` (`2P$(|;;`i(`h%i`i@ p@@&pW`pR2p`pP`pQ`W0#p`0ppppXn(`Pp`Qp`Rpp@@&pW׈p`20p`Y(ވpXn@@`(` A06pLLh g( `p;Y(4pphH g`204p`&pWZ$(`$@@hx$`W@YpV@$(`$pV`05p`\\إ//p`W@VpX@pn(`X@YpY(Ap +(8`07p`;A@Xp:YY(4hH `g( \i/DD`p`)(;+`((;`'(;`*p%`h&`h(Ԡ-S:&'%`068pppXpY`&pW`204p(cgA rZs==n`Zp }WXS`S8nn`\2@Ah!@`b``PH(`a/@Fpxa`i/P#(hD`ah7PBh=PChh/@thu{ `p}@pN@(`>hN`Nm<<@Xj`)@Ch0@0p}p`@hA;`P1(`x`WjhR (hH? ( (x  @ xR`?hzR`nj@` (p`)P'(P((P;((`@@>>p(5pN@(`AhN(pN`|)p |p|p`0p}`Ep~`N@Yj`)@Dh.(`&p}pA`Ah'A`D:`p`Wj`/p}p`AhEEA'`Zj`)P'(`BhA'`@Bh*@&p}p@4xP`.0,h`V)0P'   5BKPWdgt}p~`p`p`p˘I;;`[jp~`p`\jp~`]jp`p`p`p`^jp~`_jp`p`p`p``jp`p`p`p`ajp~`p`p`bj~~)< Ҁ@%RSM::DS1000:5:14:128 644 0 0 7000 5302722402 31420 %RSM::DS1000:5:14:128 $ N %RSM + + + (FST ==X#ŵ 8$RSM 91750-16172 REV.5020$Date: 89/12/20 14:04:40 $ W/S.M. /MM/SRC/&RSM=~!#BREJ #DFUN #GETR #LDEF ##LOGR #MNUM #NODE #NRVS #OK?#PASS $#PLOG #POOL "#QCLM #RPB#RQUE #RSAX #RSM#SLAV $LIBR $LIBX $TIME .CBT.CLGF .CLGN &.DLD .DRCT 66 l%.DST .LBT.MBT.MVW.XLA.XLB.XSADTACH EXEC IDRPD KCVTLUSES 6a AAAApappppphLp L(+xp"h(+ ` PxhH@8(`(=` (=A;(䀊(?p` A;;p`P(N` @(N`P(k`(``(^W(\`p(2` pp hA`p(p`P(wP(\(P((P`@hh|??x Ah  ` p(`P(hLp xL( LP( LP(hL0p(pp  HH8((hLG>>p `(L(L(H8È((Rpx䀊h(` p`䈀0hE `E `Eh`@(숈`p`p(( p(A`()}}K<<`0p` 0p `phx@` 0ph `A0p@( `$H(h#(((`pA'`(2`䈀p`pp` 0}Y5>>p `@@ ApI( PpXpHpx` 0p`0D0!p(`P(`pJp Hh  P(m88(g` P 7s<FST !! SLCIN Z91750-16176 REV.2113 801219 MEF !-- sEXEC CNUMOCNUMDRMPAR$LIBR$LIBX#FWAM#LU3KD$EQT D$XS5 .DSX .LDX .MVW .SAX -::`c0d td,Xq ,Rd,q) ,Rd  ,O Dx|l ,dFT ,l$TFl;D,@Dy|l ;::`^ݶL\, (|C (|DdCD,H dCDz|l ZdDD,MdD:;;`_ PD{|l q"!dL\,l|,qdG CҀC4;::`^Gtydt/dGD,-dGD||L/|/l q"iq\,R ,R:;;`_@8XL~,Rl Z,R,dtlCb,dtlDb,U;|;;;`_CWt\dlL| جU|t$idlPL| bqto<qq;;;`cvtp<q~ $opqdTdt  ,,+ ;::`mT$ :::`mq SLC LONG TERM STATISTICS: SLC EVENT TRACE TABLE: FUNCTION EV:`L5ENT STATE ::`mw00  READ REQUESTS WRITE REQUESTS MESSAGES TRANSMITTED :::`m/0 SPURIOUS INTERRUPTS LINE ERRORS NAKS RECEIVED BCC/PARITY ERRORS LONG TIMEOUTS://`c+] RESPONSE ERRORS RESPONSE REJ WACK/TTD RECEIVEDRPu$+/::`mJ KREAD INITIALW\a$gkqINQUIRY CONTINUECONVERSTNLRESET DISCONNECTDELAY :::`mw$$CLEAR INITIALIZELINE OPEN LINE CLOSEESTABLISH LOC IDESTBL REM :::`mID LSTCHNG ERROR PRAMSZERO COMM STATS SHIFT TO RECEVDISABLE NAK SEND$ :::`m$(.7@H$QZcks${$$ LINE OPEN REQ LINE CLOSE REQREAD:::`m INQUIRY REQREAD INITIAL REQREAD CONTINUE RQREAD REPEAT REQ READ/REV INT REQDELA:::`m+Y READWRITE INQURY REQWRITE CNTNUE REQWRITE CONV REQWRT RESET(EOT)RQWRITE DISCON:::`mX REQDELAY WRITE REQ ACK0 RECEIVED ACK1 RECEIVED WACK RECEIVED RVI RECV/SENT EN:::`m-Q RECEIVEDNAK RECEIVEDEOT RECEIVEDDLE EOT RECEIVEDTTD RECEIVEDTEXT RECEIVED BC:::`mC PRTY/FMT ERRTEXT OVERRUNGARBAGE RECEIVEDBAD ID SEQUENCE SHORT TIMEOUT LONG TIM:::`m"EOUTLOW HIGHMID  $"%+0$9?HQU$[dlu|$k UNOPENEDCONTRO:::`mY L READ ENQREAD ENQ ERRORCHECK READ REQREADREAD TEXT READ RVIRESTRICTED READ :::`m9WRITE ENQ WRITE ENQ ERROR ENQ-ENQ CONTENTNWRITE WRITE TEXTWRITE RESPNS ENQCH:::`mfECK RESPONSEBAD ACK RECEIVEDWRITE RETRY ENQ RCV IN WRITEENQ RCRD IN WRITWRITE CO:::`mNVERSTNLWRITE EOT READ EOT RSPONSEWRITE TTD $$$!+3:F$R\^ NO:::`m RMAL COMPLETION INVALID REQUEST REQST INCOMPATIBLE W/ LINE STATE LOCAL HARDWARE F:::`mLAILUREEOT RECEIVEDDISCONNECT (DLE EOT) RECEIVED LONG TIMEOUT EOT SENT, ENQ RECEIVED:::`muDATA OVERRUN MAX NAKS RECEIVED MAX ENQS SENT RVI RECEIVED ENQ SENT, ENQ RECEIVED :::`m GENQ SENT, NAK RECEIVED MAX ENQS RECEIVED  IMPOSSIBLE SITUATION COMPLETI:!!`Xm&tON STATUS XX:  {!T RVI RECEIVED ENQ SENT, ENQ RECEIVED :::`m GENQ SENT, NAK RECEIVED MAX ENQS RECEIVED  IMPOSSIBLE SITUATION COMPLETI:!!`Xm&tON STATUS XX:  {!%TLOG::DS1000:5:49:128 644 0 0 30400 5302722410 31775 %TLOG::DS1000:5:49:128 $1 NH1%TLOG + + + 1MTFST ;;XIZŵ 8:TLOG91750-16177 REV.5020 $Date: 89/09/21 11:40:45 $ /MM/SRC/&TLOG ; TLOG ||W#PKUP #PLOG .CBT .CMW.DSY.JPY.LAY.LBT.LBY.LDY.MBT.MVW!.SBTCLCUC CNUMD CNUMO EXECFMPBUILDPATHFMPCLOSEFMPDCBPURGE FMPINFO FMPOPEN FMPPARSEPATH FMPREAD |;; 4 FMPSETPOSITION FMPWORKINGDIR FMPWRITEIFBRK IFTTY INTTODECIMALRNRQTMVAL XLUEX ;A3 iJ @ NLRO @RQv'TLOG   @ !!ͽ/RWCU b'PLOG:DSPLOG.TRC!D  TRC  l @ p  QDD @K`( (`Kp` p(`I(P (`)( (0 zp( Dh`C `Bh<7`D` ;` upIp`0 wp舄`(P (NL6(@@Ah( 8`J( (` ch `pJ`IP ( `(P)( Ap u( `0)p`p`p 9`PF(av= (h>( p`9p4FFp`= (h>( `(5p`p`p`pp`p` '@p(`(pppD?C(Hhw(  TlDpDr@@@`Ap|Fn`C%u]JJ(c8|JAnol{pHrAv?36(|P( h0( p( `P(~ ?( ?(P((pppA( ~~ <<`P (`?P(/ ( `v (hw( /=`p %` 9`PF`hhXhx^x_hXhH gX (xxh^x(ax_x^x(a`E~>>hB `=@8 @xx x`0+hX 0,p`p`= (-8`= ( P(#h>( `()-/-`0Q((`p*(h-`/Q((`! p*(`0ph* x(1GG ** BAD LOG FILE - RECOVERY IN PRO((GRESS 1`@Op`O@pF(W (_(Y (^@Q8Q8QQ`h  ( `(P (v nN?(rp(PH( h߈( `(uxBB( x( A( A(xhH`{ hx`PJ(`D @ $  ψ( `8(A( phx lhR( p G`p`(8(( 88 GPPJ700h GX( (A((O(;(a((5(u(TIMEPRINTLISTFORMATFINDEXITBALANCE ??  PGG $@@h{ (5(1h| (5(1h} (58(@ g8h{ (L(Ph| (L(Ph} (L(O8(9888888@p~xVMMlx h (wAxh{ (wh|A (wAh} (wR`~h(S8RR ,=   A:`0@ (a@( COMMAND DESCRIPTION ?? D``ISPLAY COMMANDS BALANCE BALANCE LOGGED REPLIES TO LOGGED REQUESTS EXIT END TLOG RUN FIND FIND BUFFERS WITH SPECIFIED CONDITION(S) FORMAT SET OUTPUT LISTING FORMAT LIQQST SET LISTING LU PRINT SELECT BUFFERS TO PRINT TIME SET A TIME WINDOW  `P(Shlx l hkR( `P( h ( `=h> (Xh=TCC (X`= `(P (__N`th c h c b b PURGE  l ** END TLOGn`P(Ahx lhR( `P( ((((p  (a (a ( (a{>>`h (a(ap`(`h `p(h ( xp  (a`P( (a8 ((`)A0pA yA ` 9`p %p pDD (a` / (ALLLASTNEXTFIRST EOF IN LOG FILE `P(h)x lh(R( `P( A( ((((`/p4(a`0p4(a`1p4(a`2p4(a?DD`3p4(aBOTHDATABUFFERNORM ALOFF 8)`P( h ux( p Ȉ`M ( `P( MpJ(aN`P( pp  (hH;]==(ph ( p͈`x A`@8(XpA ph (Xx@  (h@xA@(v `@ c((~@hA h툈h@`@p`@ gp(XssX55`h ( `(a (a` (p(pA` (xx`@X(X( A Ahp (a( (a(s g m s y      'zFF@ REQUEST BUFFERS UNBALANCED ``( ph^x_xxhxhX(a`  mh X("p (+`  m`P( `ppp 2;;`p_ (E U(28`_p`p@ (H U(;8`@p(;p_(O`@P(M@ g`爀pp AV;`NhB ( `0`p(ap Gp`pzP(h 9x l#m::h /R( 8 G` GQ( `zpzz((ˆ(((((h b(h(h (h u ]P( h hx( `@ hp Ȉz` a ( ](h d a a(  Y`zpz 699( ]( zh Nx l ch FR( A O a(p  (  8(` bh j(` bh f(` bh e(` bh i ] Y a8 Y8 a8 ]`zP(h` Gp Gp k@ Yp Y` k@ ]p ]` k@ ap a==p  ( hH ] Yh e Y(( a a(8 Y8 a8 ]8 G( 8` G@ kp G@ Yp Y` G@ ]p ]` G@ ap a` kAp G( ;`NhB ( `p(aSTREAMSOURCESEQUQQ0 99ENCEREJECTLINERRDESTINATIONBUSY3000 *  0RFAPTOPOREXECWEXECMDLI STt GQ q Y V y ] Z  aCC ^? p `p`p `  ( 8(  ( ` @ A( `  ( ( ( 8 ( q`p`(  m p  p p H@ ( @ u RR$ ))p 8 ( @  @ ň  8 ( x  @  @x h ( 0  8 ( À  8  R~~ DDp x `Jp  x ߨ ψ` h 8 Ϩ p x `(  x  ` h 8  A ( G`( KP_ `( *8 (  v( h (  U( 8 ~~~ << ` x `)0 wp S y S( `)0 ep S ( y S(  `= ( 5P( 2h>( `p( *h  ( A U( A`P( K8( *`Pp88  ` Tp `pp`~UUp O,,( `_p a`p  \ ;` ;p ~` p {` h    UA` h  ( s( s8 U UU   {   F- HH  ψ p `PJ( `   8  ROS 0Ap x  ? 6 p A ? p   p p A ?  A ? `4P/ `h  ( e DDhH  `p F`{h Fx 5` 4h F A@ xh 5 xA` :Ax 5 A ;A :  h 5@( ` A x 5(  |`h y ( h`{A Fx 5`@( \`p ;` Gp <q BBhHx =h 5A xx 5p < = hX ; h 5A`P ;( ; |`h y ( h`{ Fx 58 =` <8 ;( ( \`{` n  = dp > c OP >( OA( H( W Gp q3 W==` o ( +`4P0( ƈP1( dP3( d( `( khH `p <`@p =` dh 5Ax 5  |`h y ( h`{A Fx 5` <( `Ap >`{8 >( x 5( w`4P2( P3 g >>( ( `  `p =`( H `p <` ih 5x 5  |`h y ( h`{ Fx 5` <( ƈ`p >`{8 >( x 5( `h  (  ` < `p > =F BB h 5 c`{ x 5p8 =8 <( 8 >( ( 8 >( ` up ?h 5`{A8 ?A( `{ x 588 >( ` h 5 `{ x 5`@ cp@ =p >p D >p @@GJJ  ''( @@( `y` @!8 D( ! > z( 8 >8( x 5 REQUEST LOG REPLY LOG L TIME: lJ&+ CNN==STREAM WORD: SEQUENCE NO.: SOURCE NODE: DEST. NODE: HEADER: DA TA:  ()}{wt%@`@@p A |`{ 8 (  |p D ( # ??Ap   @` Ehx8( hxh D  @ gh` !`@ g8 h EH`  ` p`@ g  D @` Ehx( h` A `8( h cx` E -- BB0:-*`9h (S` bh (X` h (S`h (S`FhE  xK v(S ` h ( (S` uh (Sp@ h H: >A @` h= (S`tC FFp` h  ( (a`p` h ( (a`_h p(XA *f`zh A % 4f`zh  /`P gp@A B@`h  9 ** MT LOG AND PLOG STILL RUNNING aaL XHH-- TLOG TERMINATING G ** BAD LOG FILE -- TLOG TERMINATING c ** EXEC OR DEXEC ERROR: -- TLOG TERMINATING v ** FMP ERROR -xxxxx ON FILE: a `` TLOG TERMINATING . ** ILLEGAL COMMAND ** TLOG CANNOT CREATE NEEDED FILE -- OLD 'TLOG EXISTS ** UNABLE TO COPY 'PLOG TO 'TLOG -- TLOG TERMINATING ** ILLEGAL OR MISSING PARAMETER[ `` ** EOF BEFORE EXIT COMMAND -- EXITING WITH SAVE! REQUEST/REPLY BUFFERS QUALIFIED: ** OVER 10 UNBALANCED REQUESTS O ** WARNING XXXXXX MESSAGES NOT LOGGED THIS SESSION ` ** LOGGE iD AT NODE XXXXXX{  + TLOG? _ j r T6 ):@H_}59 02IO@A*************************** &$INCLUDE /PMC2/INCL/EMA.FTNI, NO LIST   subroutine set_n_link(ssid,in,added,error) + ,92121-1X038 REV.5010 <890919.1056> $INCLUDE /PMC2((%TRC3K::DS1000:5:51:128 644 0 0 31400 5302722411 32247 %TRC3K::DS1000:5:51:128 $3 N|3%TRC3K + + + 3:=FST AAX< Zŵ 9TRC3K 91750-16178 REV.5020 $Date: 89/10/27 16:22:56 $ ALL W/3K /MM/SRC/&TRC3KAxx#PKUP .CBT.CYA.DFER .DSX.DSY.ENTN .ENTR .JPY.LBY.LDX.LDY.MBT.MVW .SAX!.SAY".STYCASEFOLD CNUMD CNUMO EXECFMPCLOSEFMPOPEN FMPREAD FMPREWIND x55 |FMPSETPOSITIONFMPWRITEIFBRK IFTTY INTTODECIMAL KCVTNAMR REIO TMVAL 5ADDRO 7 (` pp(p7(? j` 0 p $ '  $ (Àxp``pP(6`((` `h (`P (Q`G|D>>PW(IP(I(Q rAP(5`pppppp` p ( (x`((pA hx;h(p`p`p`(8LL((88hX((~8A(>(È(X(((Ɉ8(b(SETPRINTLISTFORMAT EXIT??2/TRC3K:_(`** ILLEGAL OR MISSING PARAMETER ** # FF(`** ILLEGAL COMMAND ** Ah7W((h8AW(A(h9W(8(ۨ@ 8ڨh7AW(A( h8W(( h9AW(( 8(88p(`Et(` COMMAND DESCRIPTION ?? DISPLAY COM`]]MANDS EXIT END TRC3K FORMAT SET OUTPUT LISTING FORMAT LIST SET LISTING PRINT PRINT SELECTED BUFFERS SET LIMIT RECORDS TO BE PRINTED `P(΀h*DDx;h鈈(`APɈ((((߈((` (`** NONE QUALIFIED **(`(ALLFIRSTNEXT`pN`@NpThX (7`V0SpP~~HH(pT`V0QpOA UO(+UP(+W('8T( (J`V0RpO( ** END OF FILE **  `NA@Tp 3A=M (JAEpp~B+I??`Np?`P(hH  (hx;dhA(z`P(`dhH(P(`0p(`((((`p(i`p(i`p(i88!!`p(i`p(`HEADERDRIVERDATAAPPE NDAGE   8XJ==`PW(`@hHxp``pP((` `h (``P(4phXW(*(`p5xhx;hA("8`/>>p8`p`P(($`!`Pd888(؈(`@ ((h (@(( ((h (@((@ p@ (@ (( %DD(((((`p`P(Z(`A(b ;{`(e 0p`(g L`A(j W`(q ^x(`h`5(=`(Dh`5ii,iKK(Nn(W FIRSTAu(^ LAST CLASS=XXXX STREAM= XX RTE NO.=XXXX RECORDS XXXXXX TO XXXXXXSTREAMSTARTRECRTENOENDRE CCLASS:ijPP@ 20? ***** DS/1000-3000 TRACE ***A**`(`((``(@  h (X (JX ((`j>>(  5A@p $  $ Y V` p "` @ p ` p `Ep !` %p 0`5 8  p #8 ` h 0H #p  8 "(C` 0P *(, 1(( 15( hdfL@@x !h x ` @p @p $ Y $`5  p (x "xL &xM`LPW(wP(P(h %x 0hLꈈhL(`MP(p 8`M@ x "Ah ' "(`Mn??(pP (ph &` `M @ x "h (A "(`MP(p h PMh @ (p@@ x "h & " P ( (xJ (xK`J@ (N`J@ x "h *A "$AA`K@ (S`K@ x "h - " 1!`5  P (h +x 0( 1` CC0 p ` p` @ (` @ x $HxAh  $ h X (\A  {@  EE~pb }0 hzHc |0 peA {0 hyHf`pH`  p P (.P (.(F`5p 7m` pH` P (F`5pA Dv`pHX(` *p 0hJcQRR(` -p 0hK( TIME XX:XX:XX.XXX RECV LENXXXXXX SEND LENXXXXXX .::5h`PW(hx@p $  $RECORDXXXXXX, MESSAGE FRO*??M XX00: `(`(n p@ (n` @ p` p@ (n@ (n` p` p`(nh 5H x ` @(n`P(`P(\LIIh`h`PA( `pA H    "`5 `׈0p 3P($` X 3(,(h` H `X ` P+BB(2h @ @ 4h %A `h `h 'A`Ҁ (G`h )d` (O A` 3P (a`Ҁ (`(` 3P -(vP 1(P 2((` pA k @`qh ,m@@Ad(r BUFFER `(@ (`!@@@ڈ(`(@ (p $@ (`^@ $@ $@ $(`p(@ (@ (@ (hH `@@@p D 1BB` pg` ph`( `(pg@ @(` @ ph`(h6`@pA5p   `(@@@ pg(` @ FHH@ph58HEADERAPPENDAGE LENGTHXXXXXX WORDSDATA LENGTH XXXXXX BYTES`gpi`hpj` pk`5 `mp M` /pc *j`0 p`0 p`0 phc `h7AA xc8j8i(@8k(&` pk` .pchYxlhY`l0c8c8h8g(U8k(D 1%( pf(aehdY  *z` ph@pg5x( BAD BUFFER __P>>3010 CLASS XX STREAM XX FROM XXX TO XXX SEQ#XXXXXX TOTAL LEN XXXXXXWOC \7>h`h x?p>_xEEp8ˆ`p8`>AP (  ?(p?(p8∄`p8  p8`p8`P ( (  A   QQN{++ (h`((x `5H %`5p.`P?(/h@Quug3BB4`7p343`4@P(R4 A3L4540 8557` 5`5p\`4p2a16743** ERROR -xxxxx ON FILE ** u 4  ttFFAA`hf/ ** RTE ERROR: XXXX ** `P (A   (x݀8(@hp`( (t!LLAp߈ިx $p   $0` h 0H !x 0 Ax $p   $0` h 0H !x 0  8  W  0(  h5h  FI00 3 8 : ; = A B ,`` C J Nc RECORDXXXXXX, SLC LONG TERM STATISTICS: LOGGING INPUT:_ LOG FILE CANNOT BE TYPE 1 OR 2BR ``j0@   READ REQUESTS WRITE REQUESTS MESSAGES TRANSMITTED SPURIOUS INTERRUPTS LINE ERRORS NAKS RECEIVED BCC/PARITY ERRORS LONG TI̩ ``MEOUTS RESPONSE ERRORS RESPONSE REJ WACK/TTD RECEIVED    9 { t 6   INQUIRY INITIAL " ' ) / 3INQUIRY 2 CONVERSTNLRESET DISCONNECT A E K Q W ` i rCLEA((R INITIALIZE_ L``LINE OPEN LINE CLOSEESTABLISH LOC IDESTBL REM ID LSTCHNG ERROR PRAMSZERO COMM STATS         " + 2 : C J S \ d k n qLINE OPEN REQ LINE CLOSE REQ= ``READ INQUIRY REQREAD INITIAL REQ4 5 6 7 WRITE INQURY REQ9 WRITE CONV REQWRT RESET(EOT)RQWRITE DISCON REQ13ACK0 RECEIVED ACK1 RECEIVED WACK RECEIVED RVI RECV/SEN` ``T ENQ RECEIVEDNAK RECEIVEDEOT RECEIVEDDLE EOT RECEIVEDTTD RECEIVEDTEXT RECEIVED BCC PRTY/FMT ERRTEXT OVERRUNGARBAGE RECEIVEDBAD ID SEQUENCE SHORT TIMEOUT LONG TIMEOUT[ l``LOW HIGHMID         ! ' 3 0UNOPENEDCONTROL READ ENQREAD ENQ ERRORCHECK READ REQREADREAD TEXT READ RVIRESTRICTED READ WRITE ENQ WRIT ``E ENQ ERROR ENQ-ENQ CONTENTNWRITE WRITE TEXTWRITE RESPNS ENQCHECK RESPONSEBAD ACK RECEIVEDWRITE RETRY ENQ RCV IN WRITEENQ RCRD IN WRITWRITE CONVERSTNLWRITE EOT READ EOT J ,`` RSPONSEWRITE TTD H R [ l n z   NORMAL COMPLETION INVALID REQUEST REQST INCOMPATIBLE W/ LINE STATE LOCAL HARDWARE FAILUREEOT RECEIVEDDISCONNECT (DLE EOT) `` RECEIVED LONG TIMEOUT EOT SENT, ENQ RECEIVEDDATA OVERRUN MAX NAKS RECEIVED MAX ENQS SENT RVI RECEIVED ENQ SENT, ENQ RECEIVED ENQ SENT, NAK RECEIVED MAX ENQS RECEIVED  IMPOSS ``IBLE SITUATION COMPLETION STATUS XX:    5INITIALIZATIONTERMINATION SYSTEM COMMANDDSLI L``NE PREAD PWRITE PCONTROL PCLOSE ACCEPT REJECT TERMINAL PRINTTERMINAL READ TERMINAL READXTERMINAL CNTRLABORT I/O HELLO BYE V ``BREAK ABORT PROGRAM RESUME CNTRL-Y KILL JOB DS/3000 RFA DSLINE ACCEPT POPEN REJECT POPEN DS/1000 RFA REMOTE EXEC POPEN  f PCn ``LOSE/BREAK  REQST REPLY/REJECT CONTFOPEN FCLOS FREAD FRDIR FRDSK FWRIT FWDIR FRLAB FWLAB FUPDT FSPAC FPOIN FINFO FCHEK FCNTL FSTMD FRNAM FRLAT FLOOK FUNLK _DCRET DPURG DOPEN DWRIT DREEl11EAD DPOSN DWIND DCLOS DNAME DCONT DLOCF DAPOS DSTAT READ WRITE CONTRLSCHEDLTIME X TIMESTATUS E     o > 5S ! P`u@t y-limit pointer c  yhighp=mod(loc,4)+1  if(yhighp.eq.0) yhighp=1 if(size.eq.0) ylowp=yhighp+1 if%UPLIN::DS1000:5:12:128 644 0 0 6000 5302722412 32555 %UPLIN::DS1000:5:12:128 $ N %UPLIN + + + FST >>X&ŵ 9UPLIN 91750-16179 REV.5020 $Date: 89/09/21 10:32:15 $ALL /MM/SRC/&UPLIN>~~!#3KLU #BUSY #FWAM #GRPM #INCV #LDEF #LU3K #LUMP #MCTR #MNUM #MRTH #OK?#OTCV #PLOG #PNLH #QRN#RPCV #RSAX #RSM#TST #UPSM $LIBR $LIBX .MVW.XLA .XSA~-- ~CLRQ D$SND "D$XS5 DTACH EXEC MESSS PGMAD #RELSX RNRQ-zAAAA`Ap(`P(`HhP (H`( `p`@pppAht tpt(숀xh (r p(2  p  p@ oouA<<E (Z`(2`hWA `th| A Y(yl숀xh ( p  p A p pZ(_u}(Z (pYOoCC88`PH(!hxph ( p(hxhx ( p  p  pH,(P(  p`H(` (A  (@`!(7O@@Hphx숈 ppp  H8('hxhx ( p  (  P(A ꄈ(hxh ( p  (H P(H(`(HphxkDD (pH P(h$  p  D 興hH8(`(+h `~$ 8((7h$ A$x#5h(' OQC@LM `(TOQUEX ORQCN~~GPPV ORPCNV `"(TOQUEZ `(OGRPM ORTRY @`(fOLUMAP `(mORS@M `(ysv (yOOT@CNV `( (OIN@CNV `(A (@~`~FFh''(X( (`hW A `p@J` xxD`(AA}FWW //H p  p( xA,(AP(cBhA PB(܄A`D Wtte<<x`(  (p`興P((H,(h  (pH H~(`0( ( $8h@@ @A $t//, ,x+pB7B`(?hPh`h+,/KDPPDpCMCDAUOYhOH`@Z`ZjZlA0px倈l(rl -- @OFF,XXXXXX,FL MATIC PLOG @ UPLIN OF,PLOG,FL-@=_\%VCPMN::DS1000:5:3:60 644 0 0 1400 5302722414 32057 %VCPMN::DS1000:5:3:60 $ N<%VCPMN + + + ^ FST !! &VCPMN $91750-16180 REV.2226 820319 ALL !@4VCPMNFTIMEEXEC #OK? SYCON#NRVSDTACHCNUMD#ST08<<`fRD## 4!t }$,T|mdtbh%b&,D<<<`b٨&*b$.Y|d, T,IhDtL"T"<C}, d#tbtctd<**`ZHHZ,*d}"T, S6, Y$**BREAK** ON NODE *`C=e, LU `R!k AT #`T+|DUMP REQUEST PENDING ON THIS NODE `H|`Aa` `D ? ?? Y$**BREAK** ON NODE *`C=e, LU `R!k%SYSAT::DS1000:5:3:128 644 0 0 1400 5302722415 32254 %SYSAT::DS1000:5:3:128 $ N%SYSAT + + + 4FST >>X,-ŵ 8,SYSAT 91750-16202 REV.5020 $Date: 89/09/25 16:30:55 $ ALL /MM/SRC/&SYSAT>$$-5#PKUP .MVWCNUMD DMESS DSERR EXECLOGLU $ɼLLAXyYYpY`RPR(9`[hAUy`kpZ`PP(-A!Zpy (2@lu`y(-@y0TANO5@W(-`vhS`V(@K8@8@MQYAAL--@ \RU,IOMAP, XXXXXX,-32768,25834 MESSAGE DELIVERED wBR, A@ ~+<5010 <890919.1056> implicit none $INCLUDE /PMC2/INCL/UCOMM.FTNI, NO LIST $INCLUDE /PMC2/INCL/uni04.ftni, NOLIST &c **************((%#SEND::DS1000:5:5:60 644 0 0 2400 5302722417 31544 %#SEND::DS1000:5:5:60 $ N<%#SEND + + +  FST $$ 0#SEND i91750-16208 REV.2140 810707 ALL W/RR $<<0#NCNT#NRV #GRPM#NODE#LCNT#CM #QCLM#CMCT#LV #LVSC #OK? RMPAR $LIBR $LIBX$TIMEXLUEXEXEC .ENTR.LDX <i.MWF .XLA .XLB .XSA DTACH;;`cF  0Xbs& dtXdttdJ,nttl|dXt3tW<L;;;`\#,<fg tl3<34"s<3<3dWDtWTV,CdT,C;;;``)?lL|,dWX,tl Z|,_gh4ht|Ȣ<^$WՔs;;;`_\_dT,g<lL|,JdT,lL|,s^td,ndDs;::`h~Jt]?`$Ye,n@ B@D :33``i#DDl<P@ 3`Aa&`CeoV `Dsb#SEND `Ccf@ B@D :33``i#DDl<P@ 3`Aa&`CeoV `Dsb#SEND `Ccf%MVCP3::DS1000:5:13:127 644 0 0 6400 5302722421 32215 %MVCP3::DS1000:5:13:127 $ N %MVCP3 + + +   'FST 22XZMVCP3 91750-16212 REV.5020 $date$ /MM/SRC/&MVCP32ssbMVCP3 .NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN szzk'.EIO. .IIO. .DTA. EXEC.CPM .SIO. .FION .SBST .SCO.SST.NFEX ICC FCLOS FMPCLOSEFCHEK FWRIT FMPREAD FOPEN FMPOPEN PRCNM TRIMLEN RCPAR LOGLU RMPAR z COPY3K.PUB.SYSGG`p]A]((p]J`h pd`Ppf`f0d(`]hAkAH  `k(& (#('('J *p`<<-""(+ 18`(P`]hA*kLAAdAH d `k<@*(10X"FMP ERROR"I6" OPENING "A)++N8O("P(hA`]h9AkddAA dH `k+E9(10X,A" IS FILE TYPE"I6", NOT TYPE 1")DDyg&&("`@p)| (p(`]hALkAD4`\@pdd=Cp\`pj8\8j(H `km<L(10X"MPE ERROR"I6" OPENING "7A2)O("`]h\kdD d4`\@pdd=bp\`pi8\8i(H `k \(10X"BEGINNING TRANSFER OF "A" TO "7A2) <<I!!^p`P(T`(`]hpkdD d `k@<,!p(10X"FMP ERROR"I6" READING "A)**Y(`P(A`]hAkdAH d `k*(10X"BAD LENGTH IN FILE "A) .. (^(`]hk.5)`\@pdd= p\`ph8\8h(H `ku(10X"MPE ERROR"I6" WRITING "7A2),,O"&+`]hAk2H `k,,,x(/10X"MVCP3 MUST BE RUN FROM RMOTE (AFTER LOGON TO MPE)"/), 5 (&:`]hkP5_F`\@pdd=Bp\`pg*K8\8g(FH `kn(10X"MPE ERROR"I6" CLOSING "7A2)%%S(&X]_A(6d%[[jl>>RO!COPY3 Usage: RU,MVCP3,[logLU],[!COPY3 file descriptor](10X,A) @0 " D[@sKing $* color of the 0 and 1 display. * $* Vert_Label - Display a string of text vertically on the template. $* * C_Tblock - Convert a pair of integers to a real * * Gr_Arrow - Draw an arrow on th!COPY3::DS1000:1:48:128 644 0 0 30000 5302722422 32500 !COPY3::DS1000:1:48:128 $0 N0!COPY3 + + + 00FST %'.-C`eE/ 1ADP">JZj 0@O:Wjr:((91750-16213 REV.5000 860702 (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1980. ALL RIGHTS RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT THE PRIOR WRITTEN CONSENT OF THE HEWLETT-PACKARD COMPANY. R RR"R B:"2 R2Bo# N@X@U^# N$C*RB# ^B:"2 *R R"R B:"2 R2BBBB"2 #N@'BRBRB"": @2R ß*R #N$WBN"#N: @ 2R Ç2UN" R 2)R R #N$RB ::: 8 2B-G*R PB?" B?" „*R BR"R B:"2 R2B ::#:8-2B # ^BB:"2 BB SBP"R B:"2 R2BB:"2 #NR B $E2 B $B2RB $‡B B 2Â2"R B:"2 R2BB:"2 2 :#N$BMLBB:"2 R2BBBB"2 SCb˙B# N@UCN??$PCNRB-Q$I"RZSPaB-$_"RC%N-$ ʗC%N-$1QB B"12 C% cN" .^00.C%N-$0OB B" 2 C% cN" .^C%N-$*JC% cN"+.^ C% cN" .^" RB C%C%NB2 JCN-F$ OC%NRB$DB$?E"R15""7B%R'"8"=B%RB$>D"RB$@D"BRB$AD"CR "B"EB%R" RB BB2 \# N@^"RCN-$ ʗCN-$1RB B"12 CN" .^/CC.,CN-$0OB B" 2 CN" .^CN-$*JCN"+.^ CN" .^" RB CNB2 ƒ28 @N%(sSB "2 3:N-$BSR#N$Bvu\BB #@)2Rj8%@B?$FB%" #N$ƒCBB$DB&RB$ IB$Ƣ B^B%(RBr# nB:"2 R2B#^BBBB"2 RB BrRÃ2B:"2 R2*#^B#^BBBB"2 z3É"#^2#^B $Š"#^B #^R Bb „"#^#N$ˆ*RB"23B :"2*R3Mz|ONO*zzM^%(RBr# nB:"RB#^BBBB"RB BrRÃB:" R *#^B#^BBBB"#z3É"#^#^B $Š"#^B #^R Bb „"#^#N$ˆ*RFCHECKREJECTPCHECKFREADFCONTROL FWRITE TERMINATE' ACCEPT GET FCLOSEFGETINFOFOPENBBBB"#z3É"#^#^B $Š"#^B #^R Bb „"#^#N$ˆ*RCOPY3KREJECTPCHECKFREADFCONTROL FWRITE TERMINATE' ACCEPT GET FCLOSEFGETINFOFOPENBBBB"#z3É"#^#^B $Š"#^B #^R Bb „"#^#N$ˆ*RFWRITE TERMINATE' ACCEPT GET FCLOSEFGETINFOFOPENBBBB"#z3É"#^#^B $Š"#^B #^R Bb „"#^#N$ˆ*RY3KREJECTPCHECKFREADFCONTROL %#SPLU::DS1000:5:1:40 644 0 0 400 5302722424 31077 %#SPLU::DS1000:5:1:40 $ O (%#SPLU + + + A"FST (( !#SPLU c91750-16221 REV 2013 800115 (IV,L LU MAPPING) (@#SPLU`A`A%PROGZ::DS1000:5:15:128 644 0 0 7400 5302722425 32031 %PROGZ::DS1000:5:15:128 $ O%PROGZ + + + }&FST ((<<Xx4!PROGL 91750-16226 REV.5240 $Date: 91/04/14 15:15:30 $ /MM/SRC/&PROGL< >PROGL ii. #DNFL #GETR #PKEY #PRLU #RMT1 #RMT2 #RQUE .DFER .MVWCNUMD DAPOS DCLOS DLGOF DLOCF DOPEN DREAD DTACH EXECKCVTRMPAR XLUEX i~~.DDA rpp`pnA0ponm(@plP( (! ((op(3hw (E`w(A`P(>{(>(\(E(`y~DHH{`H`{ py ~```@w Dp emH`P8HP8{@(`(0pg}`@pAp`@ppJJp gn `mP x`vpvhmX0px({(m{|}`m(kp(xm@h (Hxgmc gWfn h`mPx(\FCC( xP({({(`m ( B(w@w (A8p`0pttnn( 0( ( `h(`(`(H`;CCApx"ms`mP((khs ( (`(R`(Gp(E@(?(E (E zhxňHsx`s׈phsHxs`P(]hňHH g\BB(prh 8r(bxh (`0ptww |tsn(8(ָz(Am{|}{0{``m(k(@{`(0pgy`<DDhA gnpp`0pt tn`{(wh`pr(H8r((wp xy(E`(p`0pA !@@`prpqhP(0qxqH8r(hq8xw xx xy xz x{ x| x} x~Hx x xAoߨ H`hPh@p`prhZ"BB(/Xw(/`~H(>(.H8r(!A6m(7`(>A>AhDm`prpqhP(X0qxqH8r(Jhq (` `(_({_`1dIIP_P_ph(N_@h (HxgpmwmL g@n `(` {(O(x `A0pgAphioo==`@(`@pLjhjx ``@pp`ƈA@pp @8h HxghAy gn INITIATING VIA LUo; DOWNLOAD OF FILE   ::- : AT DAY b : MMuQ88+'  WAS SUCCESSFUL HAS FAILED. WAS ABORTED FAILED:LINE ERR FAILED:CLASS ER/PROGL:FILE READ ERROR- M O FAILED:CKSM ERR/PROGL:FILE OPEN ERROR- ))fAMPM)IMM88 7d@ qM  @ãa%SGXL::DS1000:5:6:60 644 0 0 3000 5302722427 31356 %SGXL::DS1000:5:6:60 $ O <%SGXL + + + 8FST X>SEGLD -c91750-16234 REV.2201 810407 XL @ SEGLDSEGRT 99'.ENTR$LIBR$LIBX$TMP1$CSEG$SISZ$SEGS$HIGH$HIBP .CAX .MWI .XSA .XLA .XLB DOPENDREADDCLOSD$OVR9::`^Z|tdttttttdt,"dT,dT,':<<`cPd td<,!H| Jt || !t"D tD"<;;`]Attd#t l < ,H,lL\ ,|dtl ,h<;;;`_b.^Z ,h<!,jl,QlL"Pt t t D$tdD ;;;`dt}Ё4tt  d,d l Ht   %pd  ;;;`baXtd  d  dT,d& |d &ld d'd($ ;<<``JÔ t,d#t <,Z,td)Pt|L  d@|<;;`bㄐ $dT*,,tlL,lL+ ,d,l,;`HaM`Cf`MfI  d@|<;;`bㄐ $dT*,,tlL,lL+ ,d,l,;`HaM`Cf`MfI %EDI6D::DS1000:5:41:60 644 0 0 24400 5302722431 31630 %EDI6D::DS1000:5:41:60 $) O()<%EDI6D + + + )[X@FST  EDITR 8291750-16240 REV 2140 810223 33 DEXEC#NODEEXEC $LIBR$LIBXOPEN CLOSEREADFWRITF CREAT PRTN .DFER REIO LURQ NAMR GETAT3::`m5jBWYJZPRST^# AIL+-/EDHMNO:;;`bh- Ft414nto ,DDDt |<<T,T z,P;;;``OP,tp,X ,T {,,h}DZ,b} d}l |rp~$;<<`dio0p {,u, qtp q REMOTE EDITR UNAV AILABLE! l z|p Z, ,d41<::`c8 tkc, Ck @|0Gc϶Dt π  6ڀd4tѴPttcD:;;``t-t-kCZ,kL zLZ|/d-D/D l0H Zd0t,tD-t l;;;``L/|.d&tf,[,Z,d d}lZdDt EDITING AT;;;`e NODE 0 Z d$T},t% 3&a8C1&a22C1  SOUR CE FILE?+\ {,.;;;`]p  ,7 6  ,d ,*.t tbn,D<dT,T2,,:[;::`^_8 d 7|It*t8TI,+(dHt},# Ktd!Zdt dq|q:;;`Z:V+,tT,l6 ,dT",,l v|T v,T,նT,"T,4|;<<`Zp|T y,3T, |T,:T ,T',+T%,TT!T,T",T&,T$,T <::`Y N,T ,+T,CT,DT,T,ET,FT,FT,ET ,`|T ,,:;;`[|dT,T ,T, dT#,DT,b|T2,DT,l ?? ,L, q;;;`cž=GKQUVX? ?  ntZD ,<Z,,#nhd41t;;;`] &ٶdT,d!$ {t!t"["& {,T zT {,4#;;;`i4t" EDITR WAITING FOR LIST DEVICE.6dt LU LOCK ERROR XXXX@;::`^'t0p$ #,dt$&Th,;T}& d#p&d\dȬ&D:;;`ZdE,Mdt ,Lt~|,bl0\c,? |T=,v;;;`[ Qt,<T=,RdD |tDctd { |ct0tg;::`^NBZt+Tfdetk,Mdo$ntoVp$o< k,do4nto,>lp\ z<[[:::`h9`'d /_t|r @@t[[sl4Z[lrL zLe:<<`bq|rp$o<r,|cs"څ[t0tgtlcu,T#,/,(<::`ce[<qld}m,L,T, L) ''''/''''1''''/''''2''''/''''3''''/''':<<`gR`'4''''/''''5''''/''''6''''/''''7''''/'''P'8db , d1td-D- D P, C,<;;``Mh| d ,hij|`,T,;;;`\3Z420 d`Z |IlbZ  |g |dt[<q,Ldb,d%;<<`\L!0ZT},|`d=tdb, t|j,a Te,= Tf,=Th,= Tg,=Ti<::`YL,lj\ ,T\ {,]\ |,WT=,ZZ0,>d v,_T=d v0,>,0,a:;;``7e  ktTf,ttqmd,ydll x L x|H|tdkdq,;;;`cױp,,dludmZdalb ,m;;;`edt$7d7t7d<Zt  EDITR WAITING FOR TRACKSd*;::`^˦͠Pl |6t  |t4tZt9dtl|P@ttt1t/:;;`_|bdb<(,<)@DaT ,&ta , |bL, lb @HL ;;;`^[Y  lb @tD,ttadP@D/ ,H ,$<< ,=(;;;`a(=.l.  |atbZD, (d9<4t9dD,l|;<<`bbI CCZ,T|9D,Zd,tT,Zl,{TK<::`^p,!lw,c:D;D}Z4tZkL44dCD ,>B:<<`]?<kd|d6,Hl,d6Py<,F,F545P,,<77`]YP5`,cC,`& ,i<aڬatv'h,P$,7`Mzw  0::`^P 5 ,c:,5@ ,DZ,F@dDڅ5~5d ,5Q ,:<<`_*D,F@ZdD55dFPC SC㰢,CZ,,C,<;;`\t¶545,k:,l8,l7FM<v<aDaDd;<<`_޴ <aa,ZUC ,C,lx5Px 4ZUC,54<;;`_75d뷶d<v;s CsDP D뷬a㴠Z T,,l5 ;<<`_,T,{cl=;l>㵴P5 ,Z ,LT,>T,V<<<`` ;T,P,5P5˹L  98,?6,L˸˹<::`^[P94d6,ndm7,dT @D AZl@:;;`[y,ԼE,558, $55d,544z5d,;;;``[ , ,4Z,p5Z0ZZ4pp>>??,;;;`bT,, , p,d0p㵢,d0p0p;;;`[WA046,d7,4ZZ==,ԼE,558,5;;;`em $55,m54z5d,  @@@@;<<`^ 㵶T,?T ,GT ,KT ,T ,T ,T,OT,RT,b5<;;`Z"4 ,8l,T,T,T,,4ƴZ6,545,55;<<`_"N,B,P,,pP 09ڴ55d,((55 ,nF@5<;;`[mP5;,vd,545;dЅl,㶶Tf,,55,;<<`\9Tf,,545,d|d6,l,545,55<;;`\,G,5,5$Z5CCЅ@@5z,,5,5$;;;`]IUZ5@@,D,,@Z@6,5,:55,c:,8;::`^5ݠP\\U,7 U,5,85 ,l5:;;`^45,6" , :㰢,7,pZ5056Z55;;;`]I6?5,U:P,,,,>,;dE5,>B;<<`^Ѥ6,m5,mBtO,GG,m5,mGtO9tg?thRgh,<;;`[T,;,5,bl8,5 ,p5,m5$ 5d;;;`[/o,6$,m545dƶd6@d8,6A,6h ,;<<`[] ,5,54 5dl,ZZ4p,6T,´T,<<<`eT,T,,?`@ABCDEFGIJy:,x,:< `Bʴd, ;;`\ʹZ5,54 5;dt̢,ԴZ5,DZ,FdDd5;;;`\N5l,dDd5pZ5 @ ,k;,2Z5,F:;;;`b,?, Pd> ,,@,$@˶ 㵢,$4z p;<<`^' 50p50P,5,,@5,54 5l,Z5,l<;;`^JE,8dE559tg@thAti]cf$ghij,545,; `DOcQUEUE q <<`aj:,5,P,, ,,= ,@ 4<;;`_t,, p 446,d7,4ZZ=;;;`Z;1=,7T,FZ5z,5Z5,0,M55c:,54 55;;;`c3WĢ,DZ,τF@dDЅ55㰴Zl,, B @@ߟ;<<`` Ð5p5`,D,FdD㰢,cD,Դl,<;;`d  ,h< "@{IDS64<<W$DIOC$DMPR$DV1 $DV15$DV16$DV17$DV18$DV19 $DV2 $DV22 $DV4 $DV6 $IF1 $IF2 $IF5 $IF7 $IFTX$INTA$ONER<$ONEW$READ$SELR$SETM$SETR$WRIT$XQSB;;`\8Pu((YZ('(Y(9wPw(h(kP@(he(;;;`]MhfP(-h,BPH(9@mpAA48AA58AAP0i6` ; `D9`l ` ;;`[h=Z((Ch(`(h.(A(A'0'Zp0Hw0;<<`e25X(H\]$p$  ' (`,('@ (< `Dr}`S <<`^ ^'n'`(P'Q (ҠZ`S'o'`8ؔZ((8`)'<<<`]Z0x(8`*'0v'8څ`w88('i(` `ި< `Cfhg' <<``TxJ0v'i(` wPw((h' (<;;`^߶P(M`h/X-h0ZR ' (c ( RHx P(P(P; `D@((h ;;`ag"'' PH +*(1((Q RHx @h ;;;`^r"Z+p<0<0x`((=`;)("J2;`ASW@P;;`\nAZ 2 @3Z`Dh 0Ch2(7(_''*(' ''`;<<`_]('0i'(( (0x (p'Z0h0B< `DX|p00 <<`^ut11(P ((E ( Zp (`P0p(`0p<<<`]e0p00Z((`)(h0C//(7(< `B ' <<`c˂Z'*('  ''(?'0i'` (  @@@<<<`av@ P(P(P(Pܶ(sP(zP(~P( P< `BK('P ;;`Z|Z(7' ( hҶ(P(YP(aP(i(0(('0'(';;;`]'(4Z56(((Zp 0+''`(''; `EYU:(D҆S ;;`]V?`''-(M`('0'-  `hӲ(P9(];;;`Zw\(''(P9(e('0'(`l `((h('0w'; `Ev (' <<`]n{x'(9Z:;(Z'(' '(Ƨ(XP((('<<<`^ XJ' '(, 'z'(`,(*ZXڨX()< `C ;;`^%Ш(' (h'0'((" (, (Z)(j;;;`^SIp'y0'(ڰ''(1'(!,P ((; `D0(h- ;;`]lZ `7Z'( 4(?'(?`4p(9(?'w(?`9p+;<<`_+p:1p; :(?(- X(- (O(1'{(4h*('< `D,5(B' <<`[B9(?' ڶ'`(( |(?'0}'`x`Bh2((h <;;`[^PT(b (b'(^'0'`hx(h0B((yPu(Pv; `Co(Pw( <<`frPx((?`@ABCDEFGIJOK6, Z(L(,`x(<;;`^9@Z'('0'-`vpJ ('P(҆S`А''hx(;<<`a9(S `h,(((> ( Z'}(,J (1< `C (` ;;``A)۲0 (J(@(@P(0i;;;`\eڀp'0p'0(Ƣ'( ('('0'hx;;;`\{!('(Zhx(*`ж7'~'+p:2p;3p<69(';`G*30'(QUEUE q<<`cT5=H ('(g( ( (UE(/ ([@0<<<``Z` ( (ƶ p 00((y`x)(gX`h 0C< `B // <<`\&J( )P(A'i(''((%''`,('0''<<<`d(҅؆S''Ph(8= @@ 'p< `Cn¶'` <<`dŢ(ʍ҆SJ Z(pJ (h(   (h<;;`_`Z. .㢊hH `颀h  @h ب<= Z((hx- '0'; `Et(@ 33`Y ` >`<`څ(h%x&h?xAh&8& 8A(jp'3`Be?##`VoBCH X R PE R R#BB'0'; `Et(@ 33`Y ` >`<`څ(h%x&h?xAh&8& 8A(jp'3`Be?##`VoBCH X R PE R R#%FCL7::DS1000:5:7:60 644 0 0 3400 5302722440 31413 %FCL7::DS1000:5:7:60 $ O<%FCL7 + + + AFST !! >Xŵ 47PAS.GLOBALINFO91750-16263 REV.5020 W/PSI BSC 891228.0952 /MM/SRC/&DSLIN>@ܢ99X&bŵ 47EXIT91750-16263 REV.5020 W/PSI BSC 891228.0952 /MM/SRC/&DSLIN9 q0EXIT NPAS.1 PAS.2 PAS.200 PAS.NONCDS H( 8( @Srs;;Xŵ 47CHECKSAM91750-16263 REV.5020 W/PSI BSC 891228.0952 /MM/SRC/&DSLIN; {CHECKSAM LL .DST.LBT.MBT .SBTD$CSM PAS.1 PAS.2 PAS.200 PAS.NONCDS PAS.WRITEINTEGER PAS.WRITELINE PAS.WRITESTRING Lj%DDh6HHh6 hH6HhD6  vy`6h6~`vP(_P(IP(3P()P(((`(u 0J (u :A ? F^^D22J ߄(u PA U \J (u(uA g lvA s ߨ{^|\\8{(@! ywDSLIN : WARNING - CAN'T CHECK S.A.M., NO AVAILABLE CLASS NUMBERSDSLIN : WARNING - CAN'T ALLOCATE WORDS OF S.A.M. NOWDSLIN : WARNING - CAN'T ALLOCATE WO33>w##RDS OF S.A.M. EVERDSLIN : ERROR : WHILE CHECKING S.A.M.3@Ngm';;XF{ŵ 48READLINE91750-16263 REV.5020 W/PSI BSC 891228.0952 /MM/SRC/&DSLIN; mREADLINE YY .CBT.ENTR PAS.1 PAS.2 PAS.200 PAS.BLANKFILL PAS.ENDOFFILE PAS.NONCDS PAS.READINTEGER PAS.READLINE PAS.READSTRING PAS.RESET_FILEYqq?? p\p? p[`@Py( Pz((*A ij(*A ijAsttutAshw6`j6s('(&p?(*`\0?li(: 9itvxvAv(< i p[mqbn Aikp@(P Av@ԇG??Xw~ŵ 48PAS.ERRORCATCHER91750-16263 REV.5020 W/PSI BSC 891228.0952 /MM/SRC/&DSLIN?9kPAS.ERRORCATCHER11j.ENTR .MVWEXITPAS.1 PAS.2 PAS.200 PAS.ERRORPRINTERPAS.NONCDS133݄`[V( p\(`X(pY(Ak3))alAffpgphpA`ih}|jp(K)@?$::X1ŵ 49OPEN_IO 91750-16263 REV.5020 W/PSI BSC 891228.0952/MM/SRC/&DSLIN: %OPEN_IO `` .CBTCNUMD LOGLU PAS.1 PAS.2 PAS.200 PAS.BLANKFILL PAS.NONCDSPAS.PARAMETERS PAS.RESET_FILE PAS.REWRITE_FILE PAS.WRITELINE PAS.WRITESTRING `zMMApAA  A  ApV (h!6`"6A(2 (1pW`V0W(?A ?pYpX J$h!6`"ͽMJJ6A(d(S Z'h#6`"6(d(cpa`a(A q" pX`Y( }*A    ApV " o ++E8(P-close CLOSE ERROR OPENING +@Τ;;Xŵ 49SYSERROR91750-16263 REV.5020 W/PSI BSC 891228.0952 /MM/SRC/&DSLIN; :SYSERROR NPAS.1 PAS.2 PAS.200 PAS.NONCDS pU ( @~::XVŵ 4:GETLINE 91750-16263 REV.5020 W/PSI BSC 891228.0952/MM/SRC/&DSLIN: GETLINE V HH AY.CBT.LBTEXITPAS.1 PAS.2 PAS.200 PAS.BLANKFILL PAS.NONCDS PAS.WRITELINE PAS.WRITESTRING READLINEHF?FFAi]h6HP( (`](`]A( iA(F !Zh6`6A(;(* 1h6`6(;(F(F BJ AF44"F`p`(L(Yh6 @HP(U(Y@p(H4&& (P iZ/d/A/a/A COMMAND READ! *P&@iy;;XHfŵ 4:GETVALUE91750-16263 REV.5020 W/PSI BSC 891228.0952 /MM/SRC/&DSLIN; 4"GETVALUE  qq.CBT.ENTR .LBT.MPYGETLINE PAS.1 PAS.2 PAS.200 PAS.BITMASK1 PAS.BLANKFILL PAS.NONCDS PAS.SETINIT PAS.SETINTERINITPAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRING qBLL`(A .</0h86`960(%(A .=/0h:6`960(%((((`p(p`(bp @p  43 > 321`;@xh96p@H@ ,LGGH@ (_h96@H Ap`d@@ep88 (2`A@(r`A@A(y>55.~A.E66.A.U77.AAˑ .X55.A._77.J`p`p`"Aaa#??App p!p(P90 i /D/dINPUT VALUE [ ] OUT OF RANGE; MUST BE BETWEEN AND DEFAULT OF USED a d @On99X8Xŵ 4;WAIT91750-16263 REV.5020 W/PSI BSC 891228.0952 /MM/SRC/&DSLIN9 WAIT EXECPAS.1 PAS.2 PAS.200 PAS.NONCDS=A   ( @ռ|;;X ŵ 4;GETSTATUS 91750-16263 REV.5020 W/PSI BSC 891228.0952/MM/SRC/&DSLIN;GETSTATUS ABREG PAS.1 PAS.2 PAS.200 PAS.NONCDSnA`p ( @al,::XHŵ 5IO_BAD91750-16263 REV.5020 W/PSI BSC 891228.0952 /MM/((SRC/&DSLIN: [IO_BAD  DD .ENTR .LBT.MVWPAS.1 PAS.2 PAS.200 PAS.NONCDSPAS.WRITEINTEGER PAS.WRITELINE PAS.WRITESTRING D==`U( `0=p`Gp`!<p`!<(`Fp`((%h6@HPE(!(%@p( ,A 3 :`$D=@@P;(PP<(ZP=(dP>(nP?(xP@(PA(PB(PC(( WJ ߄( a J ( kJ ߄( uJ ( qqOA}::J ߄( J ( &J ߄( +J ( 3J ߊ(`$DpJ ߈`qwwkUUA`hA`=p( P  (I/O ERROR AT . STATUS = XLUEX ERROR LINE FAILURETIMEOUT OVERRUN REMOTE BUSY UNINITIALIZED WRONG MODEILLEGAL REQUEST CARD FAILUREw;   P@::XQŵ 5MOVEID91750-16263 REV.5020 W/PSI BSC 891228.0952 /MM/SRC/&DSLIN: _MOVEID 88 .CBT.DIV.ENTR .LBT .SBTPAS.1 PAS.2 PAS.200 PAS.BLANKFILL PAS.NONCDS8KKA h6`6(!(A h6`6(!($($`(A +h6`6(E(4A ;h6`6(E(H(Hp(O`@ހK@@(M(O`pဈ`DDp`0ph6H hH6 h6pHH` 爠@`(pph6@Hh6 88(u A| (%%XA(Pi/E/e/D/d%@>>XOŵ 5GET_FIRST_PARM91750-16263 REV.5020 W/PSI BSC 891228.0952 /MM/SRC/&DSLIN>GET_FIRST_PARMKK A.CBT.MBTGETLINE PAS.1 PAS.2 PAS.200 PAS.BLANKFILL PAS.NONCDS PAS.PROMPT PAS.WRITELINE PAS.WRITESTRING KJJ`V(p`pZ J Hh6`6AGh6`6(9((A/ oh6`6(9(8pZ`ZA(EE L JKKGh6A`6((U\oh6A`6((elh6A`6((u|h6A`6(( p```( J ``*MMA($Gh6`6A(('oh6`6((pa(F`aA(F*Gh6`6A((+oh6`6(((<LL,i.G뀀h6`6A((1o뀀h6`6A( ( ( pa(F4G뀀h6`6A(,("6o뀀h6`6A(, (/(/pa33).(F 68A =i DAJ ߀3\\("P iGoOPEN (DEFAULT) OR CLOSE THIS LU ? /d/DopenopenOPENclose CLOSE PLEASE ANSWER OPEN OR CLOSE.CLOSE close /D/dOPENCLOSE close OPENopenINVALID RESPONSE () READD , DEAFULT OF OPEN USED@$|C<==XuDŵ 5GETPARAMETERS 91750-16263 REV.5020 W/PSI BSC 891228.0952/MM/SRC/&DSLIN=GETPARAMETERS p}}-.DIV.LBT.SBT D$GBD D$GMR EXITGETLINE GETSTATUS GETVALUEIO_BADMOVEIDPAS.1 PAS.2 PAS.200 PAS.BLANKFILL PAS.NONCDSPAS.PROMPTPAS.SINGLEMOD PAS.WRITECHAR PAS.WRITEINTEGER}++PAS.WRITELINE PAS.WRITESTRING SECONDARYCONNECT SYSERROR XLUEX +??`W( (h6`?h6 `>D p `@A@(`@p`V(6(A-4J p^A>^pw?DDAD(`` ; pYA^h6h6H5h6 h6H6`Cpg`7peh6HeH8e8g(s`V(zEEJ Ap^^h6H8`V(J Ap^^h6H9pc`:pe`V(JDec`cA@;(AJJ`V(AסcJDec(`e 5p`BA0Ap KD Ahh( A  h6 (?ACCߡA#,h6 pg6gA; ?`W(I`eph6Hpf(Z`VA(US##UHh6pf`fP<(_`fP=p_#YY(0  P"),KiCOMMUNICATIONS BLOCK SIZE [ ] : BLOCK SIZE CHANGED TO MAXIMUM RETRY COUNT [16] : CONNECT TIMER (SECONDS) [255] : LOCAL ID SEQUENCxxo9ZZE: REMOTE ID SEQUENCE : GET PARAMETERSTHE BOARD ON LU DOES NOT CONTAIN BISYNC FIRMWARE!(BOARD TYPE = INITIALIZE STATION AS PRIMARY OR SECONDARY?  Ss?x@7;;X bŵ 5INITCARD91750-16263 REV.5020 W/PSI BSC 891228.0952 /MM/SRC/&DSLIN; OINITCARD LL L4 .SBTEXITGETSTATUS IO_BAD PAS.1 PAS.2 PAS.200 PAS.BLANKFILL PAS.NONCDSSECONDARYCONNECTSYSERRORXLUEX LRR''` ap ` 0`p hV6 J `  ` A0_p R   DS SWTA'U!'(&A&OR""P8O(P INITIALIZE BOARD"@6::XAŵ 5SETINIT 91750-16263 REV.5020 W/PSI BSC 891228.0952/MM/SRC/&DSLIN: ,~2SETINIT  ++=.DIV.ENTR .LBT.SBTPAS.1 PAS.2 PAS.200 PAS.NONCDS+ZZ<..`?p0p.h86H.H8.80(h86`<h86H9`>Hh86H=`>`/ A>@@h86H:Hh86H:Hh86H;H2ZM3A11p/( @ٜ\??Xŵ 5SECONDARYCONNECT91750-16263 REV.5020 W/PSI BSC 891228.0952 /MM/SRC/&DSLIN?RSECONDARYCONNECTEgg.DIV .LBT .SBTEXITGETSTATUS IO_BAD PAS.1 PAS.2 PAS.200 PAS.BLANKFILL PAS.NONCDSPAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRING SYSERRORXLUEX gDD Ap b   ߡJ  ߨ` 0p h6` h6 ` D "D  A +.(2A2` A0p =  KD FdDIIAI(MMh6HH h6 H h6HH h6 `  Ap j Ao v A{  J A o  ߨ/[[(&P    K CONNECTING AS SECONDARY STATION ON LU SECONDARY CONNECT GET PARAMETERSBISYNC BOARD ON LU REPORTS BUFFER SIZE OF WORDSAWAITING CALL ON LU   ? @z>>Xfŵ 5DISCONNECT_CARD 91750-16263 REV.5020 W/PSI BSC 891228.0952/MM/SRC/&DSLIN>OUDISCONNECT_CARD PP .SBTEXITGETSTATUS IO_BAD PAS.1 PAS.2 PAS.200 PAS.BLANKFILL PAS.NONCDSSECONDARYCONNECTSYSERRORWAITXLUEX P[[CU--` dp ` 0cp h\6 J `  ` e0bp W XDA Y]Z-[ -(+` bA()((++U[V( P DISCONNECT@?@9X>>X+uŵ 5PRIMARY_CONNECT 91750-16263 REV.5020 W/PSI BSC 891228.0952/MM/SRC/&DSLIN>QPRIMARY_CONNECT Pq.DIV.LBT.SBT ABREG D$3KL D$WLG EXITGETSTATUS IFBRK IO_BADPAS.1 PAS.2 PAS.200 PAS.BLANKFILL PAS.NONCDSPAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRING SECONDARYCONNECTSETINIT ϱSYSERRORWAITXLUEX AA`sp`0rph6 D `AJߨ`t0nph6`f h6 `D2DA;>(C@3AIIA C`tA0ppNKDWAZ(_A _h6Hih6 h6Hjh6J` epA|A~;;((Jߨ`t0mp`0qp`pAp A( p_(DA `p`$k==p`Pd(ʈ(`p`hA@(Ap_`_(`Pg(`(젊`U(`sp`U(A( `PgrBB(`_(`Pg( ( Ap_*( p`Dp&J`p08A3(8AA 8 <p`(H`lA@wwODBB(`lA@(wAW?`t0opbDAkQn(sD sp_(~VAߨwYY(P   #KHP 3000 BISYNC LINK ON LU READY FOR CONNECTION PRIMARY CONNECT GET PARAMETERSBISYNC BOARD ON LU REPORTS BUFFER SIZE OF WOR ``DSBREAK FLAG SET. LINK DISCONNECTED. SENDING CONNECTION REQUESTPRIMARY CONNECT TIMED OUT. AWAITING REPLYLINE IS UP BUT 3000 IS NOT REPLYING DISCONNECTLINE IS UP WITH BUFFER SIZE  |j 2@@?@.M99X\$ŵ 5DSLIN 91750-16263 REV.5020 W/PSI BSC 891228.0952/MM/SRC/&DSLIN9(((DSLIN "PAS.1 PAS.2 SPAS.200 \PAS.STOP(}} CHECKSAM D$3KL D$GBD D$IN? D$PS? D$TRM DISCONNECT_CARD EXECGETPARAMETERS GET_FIRST_PARMINITCARDLURQOPEN_IO PAS.CLOSEFILE PAS.INITFILEPAS.INITIALIZEPAS.NONCDSPAS.NUMERICPARMS}]] 5PAS.PARAMETERSPAS.PROMPTPAS.RETURNPARMS PAS.TRACECLOSEPAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRING PRIMARY_CONNECT READLINESECONDARYCONNECT](ZZ-s5tuvw=xuvwE"tuvwHppwAANPA(\Yyyv(SA^(jAgzzvA(Sov{(pz|A|vA v!MM`p` p`(A}}v(p`(s(A`p (A~~vvAv(S`y( H(`(!`A((~~v UUAvzzvAv( Avp`P(P((D A`((( ~~vAvvA( |A|vvA(S $^$__A(<-~~v2Av9v(SACvHvAAQvZAvbAgl"AAnpAsxO 'P k`` INPUT OUTPUTERRIN DS/1000 HAS NOT BEEN INITIALIZEDDSLIN IS ONLY USED FOR PSI BISYNC LINKS LU OF HP 3000: PLEASE ENTER THE LU.LU IS NOT IN THE 3000 LU TABLELU HAS BEEN INITIALIZED XX ??WITH BUFFER SIZE LU IS LOCKEDCANNOT LOCK LU LU WAS CLOSED SESSIONS STILL OPEN ON LU THE LU WAS NOT CLOSED END OF DSLINX  @x(%CSV66::DS1000:5:16:128 644 0 0 10000 5302722442 32301 %CSV66::DS1000:5:16:128 $ O%CSV66 + !+ "+ "FST 88XȗCSV66 91750-16268 REV.6000 RTE-6 <921028.1721>/MM/SRC/&CSV668 ACSV66 'm$LIST .MVW pBB+((@Pd(D(8 x(8  @r(0n`e`c(K`h x^(K (4p^`ghe(p_ B;;`^p^h^`Y (M`jhh(Xd(sXf( (Xv(Xc(nXw(J(Ku(h`^$ 00 hh((K (Z(k( (n(1 }==`h`d(K nЈnhbHhh hchiXc(Xi(h pZHh@l5@Z`Z`e r99(K`f(K`h(K`_(`_  Hn((p @pap` @o(( `epu::q0cpZxYn( Hox`pa8`zp^hY   hZ(0x x^`epZ(`c`e`bhe(n((P~~sN-88(kp^@o(P(>n((n`epq0b(zpZ@p`xan(^h^Hix^X^~e>>x^ hZ(pZ (t`d(f(x`h(f`f(f0x`epZ(Rn`khe(hcHg(`i` Ai h`3??(`  (    `a`A (ЂB(ԂD( (`f`d`gu (`Pd(\J==hf `   ` ( HC(Pe(( 0  `!00 u`^h(pn( Hp ((Hq (nhh npY(7~~<<(7hYPf(0Pg()Pd (7@r( hh`f(  (> ( hh(p[(I`ep[`c @  `ih[(0(Z(i~eK[;;(i@hHnHHf`0 p( n`(ihu z ``pYpZ zx8v^Z;;p[ d(  0[ 0eXh( x^@h^(Ph( xhsphhcH`g0 xht~~'M@@p\ 0pYpZ@p[XYZ[\(xp܈ 0x  `_() x_ (hePhgP{ PxhhP|hhP}hiPzhfP~hj ~4@@((5 (Pd(Pe(( 8_PbPyPj((Hcx_x^8+8+(6 8+P(RhxYh 8Y(;(S`pY 8Y(G(R` Q\\pY x_h^+q x CQUEUE 62"Rb*"Gi 4Rr @ye(( %CXL66::DS1000:5:17:128 644 0 0 10400 5302722443 32065 %CXL66::DS1000:5:17:128 $ O%CXL66 + "+ #+ #JFST 0APA77X>jȗCXL66 91750-16269 REV.6000 L,A <921028.1721>/MM/SRC/&CSV667 ACSV66 TT t$DV1 $DV13 $DV15 $DV16 $DV17 $DV18 $DV19 $DV22 $DV6$DVLU $IF6 $LUTA $READ $SETM $WRIT $XQSB .MVWTCCB((@P{(^(8 (8  @(0`|`z(Kဈ` xu(K@ (4pu`~h|(pv`umC;;puhu`p (M`h(X{(sX}( (X(Xz(nX(J(K(h`u$ 00 h(ŀ(K (Z(k( ((*~~~<<``{(K hyHhh hzhXz(X(h ((pqH@5@q`q`| ~n>>(K`}(K`(K`v("`v  H( (HpA @pxpwH @A( ( `|p0zP;;pqxp(  Hxwpx8wpuhp   Hhq(0@ xu`|pq(`z`|`yh|(( (P(npua:3::@(P(A("("`|p0y(}pq@pwxx(ahuHxuXuڈxu hqm@@(pq (w`{(i({`(i`}(iHH0`|pq(U`h|(hzH~(`p` pDhA8  8( DhaDDhw(`  (   A DhhwhxAhw Ahx A`@A(B(D( (`}`{`~<< (`ለP{(h} `   ` ( HC(P|((" 0  `!00 `u("p('H ("(*H ("hr0->>h pp(Q(QhpP}(JP~(CP{ (Q@(* h`}(ň  (X ( h(pr(c`|pr`z @  `hrk>>(0H(t((H@hpqD@ @HqH}`0 p( `(h H ``pppq i??@ 8vpr {(  H0rH 0|X( xu@hu(P( hp hhzH>U@@`~0 xhps 0pppqpro 0  `v@(@  xv ()h|Ph~P PhPhPhPh}Ph 7h(@@(?5 (4P{(2P|(? 8vPyPP(?Hzxvxu8B8B(M 8BP(ihxph 8p(R(j`pp 8p(^(i` h\\pp xvhuBq x CQUEUE 62"Rb-%a l @Rqy|(? 8vPyPP(?Hzxvxu8B8B(M 8B%RESA::DS1000:5:15:128 644 0 0 7400 5302722445 31505 %RESA::DS1000:5:15:128 $ P%RESA + $+ %+ %R&FST 44XRESA91750-16283 REV.2540 850910 A &RESA:DS:PC:4:204 4-#3KLU m#ACRN n#ASEC #BREJ #BUSY T#CL3K #CLRN ]#CM ^#CMCT j#CNOD 6#DFUN t#DS1K g#EXHC h#EXTC #FWAM #GRPM 3#IFPM #INCV #ISTO \#LCNT #LDEF v#LMPE k#LNOD |#LU3K u#LUMP [#LV c#MAHC d#MARL b#MARN e#MAZE `#MCTR #MDCT #MHCT #MNUM #MRTH #MSTO a#MTBL i#NCLR o#NCNT s#NMSC l#NODE p#NRV#NULL #OTCV G#PASS L#PLOG #PNLH 5#POOL #PRLU #QCLM #QRN#QXCL #QZCL #QZRN #RDLY 2#RFSZ #RPCV #RQCV _#RRDB #RSAX 4#RSM#RTRY #SAVM #SCLR #ST00 #ST01 #ST02 #ST03 #ST04 #ST05  #ST06 #ST07 xxp#ST08 #ST09 #ST10 ##ST11 (#ST12 -#ST13 #SVTO #SWRD #TBRN f#TCBq#TRCL r#TRCN #TST#WAIT D$LID D$RID {D$XS5 xII]%#LEVL $CGRN $LIBR $LIBX $SALC $SJS0 $SJS1 $SJS2 $SRTN $XQT.ENTP .XLA .XLB.XSA.XSBIGG@Ap]pp\pppx`(@6(`@$%  7777`(ppX(RX(S((i`p: >>(G p\`<(RH 0@(I W`(og @He 0fgW>]iAA+A(`8^(`hX(~`Dp8`5`8!(J`( A8`A`h(`(`(`pppppp`;;J(` Ap;`p@p(`p:@p;`p[(`p[`p:p;(+`[<(x`PˆHxP(P(Pˆ((`; @^(p`P(PĄ( BBh(H@ X(h`hp](h  0@H@( @h  (`P*(`(p`( ((px(P(hω$ +u'@@pp( `9@p;p@Q(`@p:+?h (Dp[h:(F  0F(^RPR(PH@9(^F(R@9(^(RH@ (`HpH<`4>(@`e@db==( bP_(P^(xP]D( bPa<(P[(P\(`P`H(^dPd(^ ((   HxE?@6@@`E<܈0F(RPQ((ÈxN ȈH(p PD((((`  hNHhS=@Ӏh2@`,瀄(h 4AJO @?? 8`OӄX瀈(=PR(HpcRPP( (H`爈`Q=` @($+==J(3PG (3pJ 3pK 3pL`JPj(7hJQ(O(D` pM xJhJQ(L`(L`L `KhJH(8J8M(< (J@`@ (pHj (p@Hܦ[>> (nHS6(rHV@A(s HR8QQhiQQHVHhxQPQ(^QD(xw2 `w2(숀Jxw2J `w2(0Y225`U=(`T@=(phQD(`p.`1(`p-A--2 FF(PROMT  (`IP ( (=(@(=@˨>H((0YH@(h, `R=(`g( (`Q=`3(HH( ` p-D?p.``c#66 p/<p0-6-h5hg@=(8858  &D` h,x @,Ĩ@Hh:A; ( hCB(`OO299LUQUE  < d BC?O@YRx>H((0YH@(h, `R=(`g( (`Q=`3(HH( ` p-D?p.``c#%DDA66::DS1000:5:18:60 644 0 0 11000 5302722450 31532 %DDA66::DS1000:5:18:60 $ P0<%DDA66 + (+ (+ (4HFST 0APAEDDA66,TX:25,TO:00,QU:FI"" DDA66 91750-16292 REV.2340 830727 RTE-A "@DDA66<<}n$DIOC$DV1 $DV12$DV13$DV15$DV16$DV17 $DV18 $DV19 $DV2 $DV20 $DV22 $DV4 $DV6 $DVLU$LUTA$READ$WRIT$XQSB<<<`d|pw`w(% `z  `}K`}<<<`[o$(SPz(P{(P|(P}(_py 0pxhx`q X|((X{(@X~(N< `CT?( 0 <<`]B (JT(d Z(q P}(\P|(l>K(mhz<<<`_ _X hh{  K (m 0 `~(d P}(5 ( 0 $< `DP ~ptp ;;`[H%  Z  (l  (Y ( ( ( ;<<`^0/ Z `}` Z(`}K`|K`~px(S 0 < `C(d ;;`\L (` (@ ( pt`{( Z >K`{ ;;;`]5ڴZxx(d`}K`|ZK  `(S`y(%(P`q(; `D4P`u5( ;;`\,(`q (`y `y `h (`h  `~;::`^P(# PHB(% ׶H `Z K MK[Z(6P|P(6: `DƐ5`(S <<`\9  X `` pxK[(S (# (#`<<<`]oUZK[`}â (S (hZ[P|(lP(jP~`ڨ[`|[`[ < `Cr (u(% <<``9ouZ(# (#Z (,H(   H<;;`^2X``{ ` `{ K[(0{Z  ` ; `C=Kpx <<`]aZ[ (ö(S 0 xx(S`u(P( (,+P @<;;`])ӂ (P( >KJ(% 0z` Z K[ xx; `C>T(S ;;`\>K (`((``| Z( (`` (``;<<`\@ Xp(% (S>K``}(d`|(*`{(*`}(*`z(*`~< `D{+(S2 ;;`_*/J pq  q!Z q,`>`!` D;;;`]-N`` ڨM 0 ptT  Z(h`}K; `D9*k` ::`^ oK`K`Z`K`K(SZ  H:;;`]{ʠP(%`(`(`(Eh 0pq; `Dprps <<``&p Z 0  EH 0 ب@ 0 <;;`a  xypu ((@(@(pu@ (8y@; `Cﶀ(@pu <<`\ @(@P PhPhPhPh (x( xyШ(`` (E<::`^>r hxqh Z 8q(  pq Z0qpqpypx: `D, <<`_0Z(;@ZH`0X 0 0 `Z K[Z(ShK <<<`]zpO 0z8Dhx 0H}H (f88pv (nh< `C$l`z0v ;;`moq $ @H;<<`n@ CQUEUE <{662"R E< `E$- `Q$8 $Jy$un $E $ @H;<<`n@ CQUEUE <{662"R E< `E$- `Q$8 %MDFCL::DS1000:5:42:128 644 0 0 25000 5302722452 32347 %MDFCL::DS1000:5:42:128 $* PD*%MDFCL + *+ *+ **1\FST <<XMN8z"MDFCL 91750-16293 REV.2340 830901 RT 830902.1132 ^MDFCL_DS< ? MDFCL  lPAS.1 PAS.2  [PAS.STOP }}9.DST.ENTR .LBT.MVWCNUMD D$DVT D$FCL EXECLOGLU PAS.CLOSEFILE PAS.ENDOFLINE PAS.INITIALIZEPAS.INITMEMINFO1PAS.PARAMETERSPAS.PROMPTPAS.RANGEINTEGER PAS.READINTEGER PAS.READLINE}ll PAS.READSTRINGPAS.RESETFILE PAS.REWRITEFILE PAS.TOPOFSTACK1 PAS.TRACECLOSE PAS.WRITEBOOLEAN PAS.WRITECHAR PAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRING RMPAR XLUEX lkRRFILE1 FILE2 `nP6(P7(#P(2P (AP!(KP"(Z(dA  io izA i(m ( ioA/ iA i(m 7 io> iA i(mH iA i(m P ioAW--R i i(mAa iA i(mk i ir-bs\\Apppnqpo( is not a multi-drop DS LU. is not a DS or non-existing LU. has not been configured yet. Illegal DS security code. is an illegal node number. Interface problem; driverNTT report error. No such error code !  ( iA*+ iA i,,+ i`P(P (P!(P"($P#(.P$(8(B i-A-+ i(K i..+A i(K! i/A/+ i5#NN(K+ i//+A i(K5 i0A0+ i(K? i 11+A i(KI i2A2+ iA (`P(]P (dP!(kP"(tP#({P$A(( AZ`Z ( Y`Y (Aq [3+QQ:Hq22A (  \`\A ( A]`] ( Z`Z (A i!44+ ip n(A 7+985656Q^^Ap(/MDFCL: To exit press CR/MDFCL: Enter node # or negative port lu: /MDFCL: Enter 2nd channel LU: /MDFCL: Enter DS security: /MDFCL: Enter file number: /MDFCL: Enter slave card s*__elect code: /MDFCL: Enter DS port LU: Bad prompt type. Bad prompt type. *&?? ? iA iAH i_ i O iA iAX inh6pS a iSA@ iydTTj iwh6 pT t iTAA i} i((`=,&pT  iT`=(A&pT  iT`=$&pT  iT`=&pT  iTAA i ih6 HApT  iT i i&YYHh6pTA  iT ip? iA  i? i ih6HApT  iT i ih6 pT  iAT iA ih6pT  iTAA i i\\h6 pT  iAT iA( ih6pT 1 iTAA i: ih6 HApT D iT iM iA R iC i[ iA ` iD i g iA iAp im__ i (| PA (   iA iA i i  iA iA i  iEAA i i  iAF iA i   iGA@ i`` i-A  iH i i:A  iI i iGA  iJ i iTA  iK i iaA  iL i inA  iM i& i{A + iN, i4 iA 9 iO iVKQW^^AU`UhA(:Interface board information: last error code = board type = firmwire rev. = diagnostic hood = board switchs = modem lines = NAK count = WACK count Y``= TTD count = SELECT count = POLL count = RVI count = protocol t.o. = modem t.o. = ------- more ------- Interface card statistics:good block transmitted = goodml`` block received = transmit block naks = receive block naks = transmit overrun = receive overrun = # of WACKs received = # of TTDs received = # of RVI transBuUUmitted = # of RVI received = # of wrong response = ??<>@ABpVV`V( qZ np m` n(Ԁh6 (`ZpA`4pV&&(p nr nZ(r nZ`V(&UU8( th6  p*` t/(p+( p+  iAA i i2  iAZ iA $ i i- i?h6HAp- 6 i- i? iKh6 p. I i.HXX iR iW` t*A!p. [ i. id icA i i* i`+A()u io` {)p. ~ iA. iA i{` z%p.  i.AA i  i i iBETT` z*p.A  i. i i` z)Ap.  i. i i耈` z(p.A  i. i i` z'Ap.  i. i i耈` z$p.A  i. iUU66 i` z&Ap.  i. i i耈` {/p.A  i. i i` {*A%p. ' i. i/UI0__8/(Port information for LU: Group ID = Device ID = Polling priority = Comm. buffer size = Port initialized = Link connected = Non DS indicatig``on = VCP indication = Write timer = Read timer = Scheduling timer = Severe error flag = Start of new msg. = Current msg. type =  t spVJJ$((V`V( qZ np m` n(h6 (/(p nr nZ(r nZ`V(J)DD8( tpp n`N(*`(**`O(4`(44`P(>`(>>`Q(H`(HH`R(T`(Tp]T`(YpV`({{@\IIAaY n` n(zA i i ir iA w iZ i(`P(P (P!(P"((r nZ(r nY(r n[(r nZ(A i ip(Y{OO8( FCL initiated on LU: Driver reported severe error. p p n`N(` ( `O(` ( ` (pV` ( p p AY n ` n(PP(   iA  iA  i "  i iA  i`Yp `3p p `1p A    `5p A`2p  '   Hh 6p h 6  @ p A : i 5   ? i  A i` /( P GVV M i C A  i( Y W i I A i` -( h e i Q A  i( q o i Y A i` ,(  } i a A  i(  i k A i` +(  i q A  i(  i z  RRA  i` *(  i A i(  i A  i` )(  i A i(  i A  i` ((  i A i(  i A  i( ` P( P ( GG/ &&P!( P"( ( r nZ( r  nY( r  n[( r  nZ(   i A ip ( G __8 ( Start retrieving slave configuration Slave firmware revision is: PCA enabled PCA not enabled Internal clock External clock Data Link port type RS-232 port Synchroneous mode Asynchron ``eous mode FCL enabled FCL disabled Data at 2nd channel No data at 2nd channel Data at primary channel No data at primary channel Driver reported severe error. &   #    L VV  j  YpNpOpPpQh mA hA &hp oA + oKp m 7 mn~opklA B imnopp Gn^q( KpNA Pr^q( TpO Ys^q( ]ApP bt^ aRRq( fpQ ko^q( opR`N0O( w`P0Q0R( xupUpW`W( R`U( MpX iAwn iA ixxn i iAwn iA iyyn i izznAA i  i* YY{{n i i||nAA i  ixxn i  iwnAA i  iwwn i (   iwnAA i  iwwn i mn~oklkl(  prn h6P(( Hh6P-( o @@( pWpX( Ih6HP)( h6P.( (  ( IHh6P*( +h6P/( +( . -( Ih6HP+( 9h6P0( 9( <  ;( IHh6P'( Gh6P,( G( I I`X( 33 L ( Q OApW( ~ Y i}}n iA a ikk f Akk hA k k3Pj``?? $(')K pNOCCTL Mode of operation is as follows: (1) EX --- exit the program (2) FL --- initiate forced cold load (3) RE --- read DS link in8]]]formation (4) SL --- retrieve slave information (5) CS --- read card information/MDFCL: Enter mode of operation:/MDFCL: Enter mode of operation: * END M DFCL * 9'CEFRScefrs@v (5) CS --- read card information/MDFCL: Enter mode of operation:/MDFCL: Enter mode of operation: * END M DFCL * 9'%DVB65::DS1000:5:15:60 644 0 0 7400 5302722454 31652 %DVB65::DS1000:5:15:60 $ Pp<%DVB65 + ++ ,+ ,A,FST !! nDVB65 #91750-16300 REV.2401 831108 MEF !@f+CB65 IB65 MIC$X F$LIST$OPSY ;;`^oZ`pH('bh pb@0Z` `p0 `d@;;;`]@h Zx p 0ж(X(sX(\`P(w; `Cf;QP <<`[Cw>(@(EX(IX(Kh>`Զڨ(L0Ђ$p(oZQP!(<<<`]+Yh(F<hH`(fZcdb`h Z >`ֶb < `D@v(m  <<`\%z( (@ (Ex HӴ!<;;`^0hQZ (  (h(P!(z ( ȶ(X(; `Cf(@ ;;`\ H(  G((#(X(X(h()` d;<<`ZwӶh,`(G((#(X(X(hX(P(h< `CtG( <<`[sU(#((((`,h($ ( @ <::`Yt hG(9( (CX( X(9G(((C(!X(#(9`: `DZ;$,G ;;`Z_3((9((CZ` d(((QX( h(',G( (#(C;<<`[B( (:hh0h($h0 (< `DG],`h <<`[a(mP(qP (P(#P(C(Hָ(H׸0 h(R<<<`[~L|ڰh>`h($h>hhb(%hd< `CH`  ;;`[Z`"dZ`(.ٶP(h X(h(;;;`Z (pX!Z8b(0h($G((; `D϶(b <<`[hӶP(o,(0h @ x@p P p <;;`_r  (hHXx`($(b` (.h(; `D PG(( <<`[` hpdhbpd( `0 ($h>Z(` (/<;;`\,`,8hX7(8ڨPޢ(`p00>; `DH6Hh  ::`^L(Rp@@`C(ZZG8GXG8GXG8GG@@b:::`Y^ j`h8(0`h>8`!(00(`:`EGOP;;`[( `QP[h(b` 0(SZ$;;;`ZIp xHضppd0pPpc php/ pk pe ; `DpRpd pQ <<`h@VX ph (΃ԀdZ dp" xè "2?@BR<<<`n8Cq  0@ QUEUE < `Dc[ `G1tP$y %WHZ6D::DS1000:5:51:128 644 0 0 31400 5302722456 32612 %WHZ6D::DS1000:5:51:128 $3 P3%WHZ6D + -+ .+ .3m7FST ::X1 P0WHZAT 91750-16527 REV.5000 (DS) <861017.1116> &WHZAT::SRC_92084 :~~f#CNOD #NODE $CLAS $ELTB $EMTB $IDEX $LIBR $LIBX $MATA +$MAXI $MBGP $MCHN $MNP$MRTP $NBGP $NCHN $NRTP *$PNTI $RNTB $TIME -.ADX,.CAX).CBT.CBX%.DIV#.DLD~ZZF(.DST!.LBT'.MBT$.MPY".MVW .MWF&.SBT..STX.XLA.XLBCLRQDEXEC EXECGETST IFBRK LOGLU LUTRU NAMRRMPAR TMVAL Z[[;;A  τpjA@g@pFpG @(&@b(&(`g((xRT BG LB EB SG -;[F>??`9(iA@ah]HHh `9(d`p7h6xh:6x8h8!p6x8h!xh6X5(aX(a(d87(T(i`Nch9 P8>A>rqAg C8k`t]hqkp9p C` >t}<<h:"]k((P](xjk((Pe(xlXX (k(Pe(P](`nh:A"]`rP(:h\P+(h]P-(hP/(h_P1(h^P3(x9kPeyBB   xm( `(Cpj@p`pl`(PDP`Ppm``jh pj`pp`j0 Upj`p`m(A`@p(pl@p`(h |:>>x`.hiH!@L@M@Kp!@L@M@K@0pl@(@j(Aj`j0pk`O`.`f`m`lP( P( aP ( a`hO`Ap?p@q9FF`lP(NP (N@i@(Xp`(X(\`@i@(Xp^p^(^(pn@p =@npo(@b ( @(|@\ (`oh >>@(B@iP(8n(b(hoH@@(H(`((@p@@hoxpo(hX\(`pop(׈`po(hX\`fs==ph (ɈxoP\8A#O(p`?p@(pnP^`\pU(b@@A(#!O`/0`o.phX\(p(`o?8?`AP?(Xo(ddHH8@ALPAPLPR SM  REV.5000 861017 @ ** BLOCK ** #*********** DEAD LOCK **1*** SEE ABOVE FOR REPORT ON BdVVB//@ccP](O(he((`hlX ((`\U  ?V~~GDDqREMOTE WHZAT NODE EXECW H-- . *  x`o.phb∈p))h0`)Pe hh5`eh_∈Khhh3`ehb~~~c<`+`;(MLULK 0`L`@5A(xs ʄ@ʈpr`o`s5Вi `.`r.(pEQLK)tDD**`uh`t&H&hx`phH\xu`.`@ɈP(@p@@.`^GLOBL CL <>p``;(a==Po(H7`@& &h5H (`h (`ˈ`\h`phx`p)8(`h)Xe(hh` `]he((`o==@~p ``p@p*p@*p*p+*8+(8 `6@(`p`]`+58*`+P( ` ()`ap `_`p@ 2>>@p*p+*8+]Pe(L8 `6@(H`p`]툈`+5`*@cp*P+(7` ([`a  ] `O`@(j(d@@ecp\\A`lpl|_}}l}j(DOWN EQT'SDOWN LU'S ALL EQT'S OKALL LU'S OK SWP P:  PRGRM T PRIOR PT SZ DO.SC.IO.WT.ME.DS.OP. .PRG CNTR. .NEXT TIME.KCC HxDh ` $("6xxD @A'xhx68xhx`i퀈hx`h6HOBB`h$DHha H8@xZ!8`Z@p`GhF (:`H^.`p@ah]h `^`.I pu~QEEx`m(y`(qAbju..(i8OOP(q`P(q(YAwjq(OAmkuO(`PO(dpj@pk`hOh [` IO(d GG.e(@p`( _`~H`F`::00Hh]hD L`p`p(`e/@p8ʡBB(`e((HohτH(@@@@ah]HHh h`)^H(`H`LpZph```[@Hxg (#pfA`Z %fxZ(Ph('0jph:GG8f8g(`Z0j`i(A h)A h]/A h\5Ah\;A DAA @FA K @AP DAU\'d a@υfDD 0h ]p(xhg*(p 6҈@p *@ph0∄x ]p(Jh @p@*h @戀phXe(phGG ( (hg(H_@ J @(h$^x@@]@h$@@ ]@p@hH\ `@戠hk@@Hb(~~'W<< cP\(`iꈄ` 9H(` ;` h _OpnJp !pp*([$@*Apo =*( #h] ( !8( #8 !(  `n/h] ( -` <( :~ -<<h ( 4` 7( :h_ p` ` 5eh 6 ]pp` ` 3e`pFh]  ]p+A` >e`+@pAh^ 6` E ` Nh  ^(  ΀x ( ` ST i<<]` 8hH]65hH]` 9 ( `i ( h\ h`i h\ ( .`ih]he F8n`*@p*Po(   t(_`( ` J_^ ??( p` *d( H* ` ! ` !@n/` !Pe( È` e@n/` "bp ! `ih ހ( h \pH]@ePn( H^8(   H `  OO h] ( ` V]`iha( ` Y]( Hh]hH `^ `ih]ށ( PTN# SIZE PAGES BG/RT SHR/LBL #ACT L PRGRM PTN-PRIOR -- # + ~~o 3LL 4RR 6SS 8CC L  I =MM ?------  F BG K O RT  TSH W * Z**  ` hOp)pp ;p Zp Y@p`@ p@p 8@ Np 9( w =A ( zHb T~~~5& @@@p*H `( [>( I j` h˄@aA 8Hb Upn Spp)Hx@ @ P8`*P T( H Q@( @ @ P8`*P T( H@( ~C >>`\(  @ @U8@ @ UH QxH P`*P T@H RA5`pP^( >H x@H_FH Ox@Hgpo V@h 0P Uh 2Pgh 4P Wh 6`\`pPe( FH Kxm AA`o X/`o( HexhA/H0( 5p+ ]hxF88`+hJ @@p :*/88@` :@\( 5$^@ \ A` 9pH Lɀ5w >AA` 8p` ,hn ` .\`hO8( v 0#|h* ( a8)8 Z( I88 Y` Zh9 ( I ( I` Zh9 ( q ` Yh9 X^( y  j j `)Fk AA` e`F` e` ;F`  (_J p <( 8 <<  ( 8 ;( & Ah*X T@ M ` ]` Z Lj` #dp Z ` ]` Y  SS` dp Y pH ( Έ5( pH  ( /( Ո) NAME TY PRIOR LADDR HADDR LOBP HIBP SZ EMA MSEG LBL PTN TM COM LU S-ID FREE LONG IDS,   FREE SHORT IDS,  FREE Z TTID EXTS   <  SHORT BLANK ID> $ LONG BLANK ID> -PE /TE 1NC 3RT 5BG 7SS  @ =` Jh \O` Ih [O(` T K BREAK RECEIVED, _WHZAT ABORTED J ( `  @ g>>J@ p @p x p h X ( h X( ( 8 5`\e@h H .` \8 ( t`  ]` ha( r`  HH6x Ka BBp p h X( h !( @ ( Ј@p 8 @ 5`\e` PɄ( @@ .( `^` \8 8 ( `  ` 숁ha( ), LOCKED EQT'S (  PROG NAME) LOCKED LU'S (PROG NAME) m BB`@( B, J*p C C-@( H8 CCP( p C(   Ax D. E` F ` DF` o`` S ` EF` o`` `J0+F` o`%  BPP  GMAX CONT. SAM AVAIL :  TTOTAL SAM AVAILABLE : aMAX CONT. SAM EVER AVAIL : p WORDS ` i` A` aA` dAW LL` _` ` A` aA` dA` _ t MAXIMUM PARTITION SIZE AVAILABLE  MAX. PART. SIZE GUARANTEED77 + && AVAILABLE - DUE TO SHAREABLE EMA RT  PAGES, BG PAGES, MOTHER !<7@ސI#RMOTM::DS1000:4:8:36 644 0 0 4000 5302722457 32572 #RMOTM::DS1000:4:8:36 $ P$#RMOTM + /+ /+ /.FST * #RMOTM 91750-17004 REV.5010 <881110.1519>  **************************************************************** * * LINK COMMAND FILE FOR RMOTE, M/E/F VERSION *  **************************************************************** * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1983. ALL RIGHTS * * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, * * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT * * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. * **************************************************************** * * * NAME: #RMOTM * * SOURCE: 91750-17004 (load file) * * RELOC.: NONE * * * **************************************************************** * * Allow access to subsystem global area. * OP,SS * !* For systems with X.25 links to DS/3000 add the following lines !* * OP,LB * OP,RO * LI,/X25/REL/X25LB.LIB For X.25 * RE,/X25/REL/XINEF.REL For X.25 * RM,/X25/REL/X25LB.LIB,ALTAD For X.25 * LI,/LIBRARIES/$PLIB For X.25 * * * Select one version of RMOTE* "RE,%RMOT1 For RMOTE with the move option"$* RE,%RMOTE For RMOTE without the move option $* #***********!!!!!!!!!!!!!!! WARNING !!!!!!!!!!!!!!!!!!*****************##* *##* RMOTE MUST BE SIZED UP AT LEAST ONE PAGE LARGER THAN THE DEFAULT! *##* *##***********!!!!!!!!!!!!!!! WARNING !!!!!!!!!!!!!!!!!!*****************#* SZ,+4 RMOTE MUST BE SIZED UP AT LEAST ONE PAGE!* END #RMOTA::DS1000:4:8:35 644 0 0 4000 5302722461 32514 #RMOTA::DS1000:4:8:35 $ P##RMOTA + 0+ 1+ 1-FST EC* #RMOTA 91750-17005 REV.2540 <851028.1220>  **************************************************************** * * LINK COMMAND FILE FOR RMOTE, XL/A VERSION*  **************************************************************** * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1985. ALL RIGHTS * * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, * * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT * * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. * **************************************************************** * * * NAME: #RMOTA * * SOURCE: 91750-17005 (load file) * * RELOC.: NONE * * * **************************************************************** * * Allow access to(( labled common* OP,LC * !* For systems with X.25 links to DS/3000 add the following lines !* * LI,/X25/REL/X25LB.LIB For X.25 * RE,/X25/REL/XINXA.REL For X.25 * RM,/X25/REL/X25LB.LIB,ALTAD For X.25 * LI,/LIBRARIES/$PLIB For X.25 * * * Select one version of RMOTE* RE,%RMOT1 With the move option * RE,%RMOTE Without the move option* #***********!!!!!!!!!!!!!!! WARNING !!!!!!!!!!!!!!!!!!*****************##* *##* RMOTE MUST BE SIZED UP AT LEAST ONE PAGE LARGER THAN THE DEFAULT! *##* *##***********!!!!!!!!!!!!!!! WARNING !!!!!!!!!!!!!!!!!!*****************#* SZ,+4 RMOTE MUST BE SIZED UP AT LEAST ONE PAGE!* END #LKDS::DS1000:4:1:23 644 0 0 400 5302722463 31710 #LKDS::DS1000:4:1:23 $ P#LKDS + 2+ 3+ 3N FST * #ldks 91750-17007 rev.5010 <880724.1438>* link load file for DS/1000-IV* if 6 ss if a su if a lc if a pc,31,0enEN*LDDS::DS1000:4:30:39 644 0 0 17000 5302722464 33014 *LDDS::DS1000:4:30:39 $ P'*LDDS + 3+ 4+ 4FST * *LDDS 91750-17008 REV.6000 <921110.1755> * set LOG = OFF * Previous command set command logging OFF * unable prompt message set SAVEPROMPT = $PROMPT set PROMPT = `[Y/N/SET] : `  &*---------------------------------------------------------------------------- &"* command file used for installation procedure of DS/1000 software"&*---------------------------------------------------------------------------- &%* This command file is used to test whether global variables have been set %* or not. Only the one listed below are tested:* * - $DS_RT : root directory for DS/1000 relocatables* - $SNAP : target system snap file * - $DS_RUN : directory which will be used to store resulting * runnable programs.%* - $OS : directory which will be used for finding RTE relocatables%* !* - $X25 : directory which will be used for finding X25/1000!* relocatables. #* - $DS3K_FLAG : Flag set in response to 3k loading. Used by Y.cmd #$* - $X25_FLAG : Flag set in response to X25 loading. Used by Y.cmd$* $* FOUR parameters may be specified and are retrieved in $1, $2 and $3.$* They are defined as follows :* - $1: snap file identifier (will be used to update $SNAP) "* - $2: 'stop on error' flag (Leave null or blank to stop on error. "%* Set to any value to continue after errors.%* - $3: Set to '3K' to request 1k/3k module loading * - $4: Set to 'X25' to request loading with X.25/1000 subsystem * %* The values of each of the previously defined global variables and para-% * meters are displayed. * The user may then decide to continue or to stop. * &*---------------------------------------------------------------------------- &echo `` echo `` &echo `+--------------------------------------------------------------------+` &&echo `| You are running the installation phase for DS/1000-IV software. |` &if is $OPSY = -17 then' echo `| Current Operating System is RTE-6 |`'else' echo `| Current Operating System is RTE-A |`'fi&echo `| Executive environment is defined as follows: |` &&echo `+--------------------------------------------------------------------+` &echo `.`* * temporary save working directory* the working directory may have not been already set up. if is $WD = `$WD` then set SWD = 0  echo `No working directory.` echo `.`else if is $WD = `` then set SWD = 0  echo `No working directory.` echo `.` else echo `Working Directory is `$WD  echo `.` set SWD = $WD  fifi* &*-------------------------- ROOT directory --------------------------------*&* Set $DS_RT to default value if it has not already set... if is $DS_RT = `$DS_RT` then set DS_RT = `/DS1000` fi* echo `> Directory for DS relocatable files : `$DS_RT* test if directory $DS_rt exists if WD $ds_rtthen* * OK, proceed with the rest of the verification ........... *  wd $swdelse echo `&dJ WARNING path `$ds_rt` not found.`fi* $*---------------------------- DS_RUN ----------------------------------*$#*------------------------ OS Relocatables ---------------------------* #if is $OS = `$OS` then if is $OPSY = -17  then  set OS = `/RTE_6`  else  set OS = `/RTE_A`  fi fiecho `> Directory for RTE relocatable files : `$OS * * test if directory $OS existsif WD $OS then* * OK, proceed with the rest of the verification ........... *  wd $swdelse echo `&dJ WARNING path `$OS` not found.` fi* $*---------------------------- DS_RUN ----------------------------------*$* if is $DS_RUN = `$DS_RUN` "then * set directory for program files to `/PROGRAMS` " set DS_RUN = `/PROGRAMS` fiecho `> Target directory for program files : `$DS_RUN  * test if directory exists if WD $DS_RUN then wd $swd else echo `&dJ WARNING directory `$DS_RUN` will be created` CRDIR $DS_RUN fi* %*----------------- SNAP file and STOP flag ------------------------------*%*  * test if snap file has been specified if is $1 = ` `then * NO, default snap file will be used  set SNAP = `SNAP.SNP::SYSTEM`else set SNAP = $1fiecho `> SNAP File : `$SNAP * * test if 'stop on error' flag has been set * link2 will stop if STOP = 1.* if is $2 = ` `then * default is YES  echo `> STOP on Error : YES` set STOP = 1 else echo `> STOP on Error : NO`  set STOP = 0 fi* %*---------------- Check for 1k/3k module loading ------------------------*%* set ds3k_flag = 1 if is $3 = `3k` then echo `> DS/1000 1k/3k module loading requested`  set ds3k_flag = 0 else echo `> NO DS/1000 1k/3k module loading requested`fi* %*---------------- Check for X25 loading and set X25 Path ----------------*%* set x25_flag = 1if is $4 = `X25`then if is $X25 = `$X25`  then set X25 = `/X25/REL`  fi echo `> DS-X25/1000 loading requested` echo `> Directory for X25/1000 relocatable files : `$X25 set x25_flag = 0  if WD $X25 then wd $swd else echo `&dJ WARNING path `$X25` not found` fielse echo `> NO DS-X25/1000 loading requested` fi* &*--------------------------------------------------------------------------*&"* set working directory to $DS_RT to allow access to files N/NO/Y/YES "if WD $DS_RTthen* echo `` echo `` echo `Enter (lower case accepted)`echo ` Y/YES to continue  echo ` N/NO to stop` echo ` SET command to update status as needed.`echo `` *** * else * directory $DS_RT doesn't exist echo ``  echo ``  echo ` ERROR : environment is incorrectly initialized.` echo ` We are not able to reach command files.`% echo ` To correct the problem, you may set the installation` %% echo ` environment according to the one you used to restore` % echo ` the product.` $ echo ` Here are the global variables used to define the `$ echo ` installation environment: ` # echo ` - $DS_RT : directory for DS/1000 relocatables`## echo ` - $OS : directory for RTE-A/6 relocatables`## echo ` - $X25 : directory for X25/1000 relocatables` ## echo ` - $DS_RUN : target directory for program files`# echo ``  echo ` NOTE: 4 parameters may be specified`  echo ` paremeter 1 : snap file identifier`' echo ` parameter 2 : 'STOP on ERROR' flag (default is 'STOP')`'& echo ` parameter 3 : DS/1000 1k/3k module loading requested`&! echo ` parameter 4 : DS-X25/1000 loading requested` ! echo ``  set PROMPT = $SAVEPROMPT fi * end if WD $DS_RT RUN : directory which will be used to store resulting * ((LINK2::DS1000:4:7:39 644 0 0 3400 5302722466 31610 LINK2::DS1000:4:7:39 $ P'LINK2 + 5+ 6+ 6&FST $* PART NO. 91750-17009 REV.5010 File LINK2 <881122.1652> $%************************************************************************* %#* Command file used for installation procedure of DS/1000 software #%************************************************************************* %#* CI command file to pass a run string to LINK and check the results. #&* This command file is used for loading programs for the DS/1000 subsystem. &%* It will pass the run string on to the "real" link and check the results.%'* If LINK returns that the user aborted the link, a message will be displayed.'* If LINK returns an error indicator and the stop flag is set,* the command line will be echoed and $* control returned to the caller terminal. To resume execution, use the $#* "RETURN" command. The "LINK2" command file will then attempt to run #* link one more time with the same run string.*  * NOTE: This command file checks LINKs fourth return parameter. * RU LINK $1 $2 $3 $4 $5 $6 $7 $8 $9 set ds_result = $return4 IF IS $ds_result <> 0  THEN if is $ds_result = -1000  then  tr 1 return else  if is $stop = 0  then * there is nothing to do, continue  else' ECHO `Link reports an error, correct the problem and enter "RETURN".`' ECHO LINK $1 $2 $3 $4 $5 $6 $7 $8 $9  TR 1  LINK $1 $2 $3 $4 $5 $6 $7 $8 $9 RETURN  fi fi ELSE  ECHO `LINK O.K.` FIXIOlen := - ( XTBLcardParmLength + 1 ) * 2 ; {in bytes} # {} XIO ;  {} end;  end { case GlobalWrite }; ! GlobalWrite:= NoWrite { XIO jumps to end of XDISP Y.CMD::DS1000:4:36:52 644 0 0 22000 5302722467 32602 Y.CMD::DS1000:4:36:52 $$ P$4Y CMD + 6+ 7+ 7$FST * $Header: y.cmd,v 6000.1 92/08/10 13:05:32 barton Exp $"** SOURCE: 91750-17010 REV.6000 $Date: 92/08/10 13:05:32 $ File Y.CMD " * Last Edit <921028.1437> '*----------------------------------------------------------------------------*''* command file used for the installation procedure of DS/1000-IV software *''*----------------------------------------------------------------------------*'* * 891106 LAS - Added the CLOSE utility. SR# 1650105635* 891129 BEB - Changed pascal library for DSLIN. * 891215 BEB - Add commands to link TRC3K and DSTES. $* 900206 LAS - Added PLOG and TLOG. Added +DC option to DINIT on RTE-6 $&* 900618 LAS - Added DSVCP and changed the size command on TRFAS and DSRTR&* 920807 BEB - Changed name %dsrtr to dsrtr.rel * 920923 BEB - Removed the CLOSE utility. * 921028 BEB - Changed dsrtr.rel back to %dsrtr * set prompt = $saveprompt if is $OPSY = -17 then echo `> Linking DLIST.`  link2,$snap,$ds_rt/%dlis1,#lkds,$ds_run/dlist.run  echo `> Linking OPERM.`  link2,$snap,$ds_rt/%operm,#lkds,$ds_run/operm.run  echo `> Linking EXECW.`  link2,$snap,$ds_rt/%execw,#lkds,$ds_run/execw.run  echo `> Linking EXECM.`  link2,$snap,$ds_rt/%execm,#lkds,$ds_run/execm.run  echo `> Linking RFAM.`  link2,$snap,$ds_rt/%rfam2,#lkds,$ds_run/rfam.run* link2,$snap,$ds_rt/%rfam1,#lkds,$ds_run/rfam.run echo `> Linking PTOPM.`  link2,$snap,$ds_rt/%ptopm,#lkds,$ds_run/ptopm.run  echo `> Linking PROGL.`  link2,$snap,$ds_rt/%progl,#lkds,$ds_run/progl.run  * echo `> Linking PROGZ.` * link2,$snap,$ds_rt/%progz,#lkds,$ds_run/progl.run  echo `> Linking VCPMN. `  link2,$snap,$ds_rt/%vcpmn,#lkds,$ds_run/vcpmn.run  echo `> Linking GRPM.`  link2,$snap,$ds_rt/%grpm,#lkds,$ds_run/grpm.run  echo `> Linking UPLIN.` if is $X25_flag = 0  then3 link2,$snap,$ds_rt/%uplin,#lkds,$ds_run/uplin.run,$x25/x25lb.lib,$x25/xinef.rel,$x25/x25noncds.rel3 else link2,$snap,$ds_rt/%uplin,#lkds,$ds_run/uplin.run  fi echo `> Linking QUEUE.`  link2,$snap,$ds_rt/%queue,#lkds,$ds_run/queue.run  echo `> Linking RTRY.`  link2,$snap,$ds_rt/%rtry,#lkds,$ds_run/rtry.run  echo `> Linking QCLM.`  link2,$snap,$ds_rt/%qclm,#lkds,$ds_run/qclm.run  echo `> Linking #SEND.`  link2,$snap,$ds_rt/%#send,#lkds,$ds_run/#send.run  echo `> Linking MATIC.`  link2,$snap,$ds_rt/%matic,#lkds,$ds_run/matic.run ******** Uncomment this section for loading RSM * echo `> Linking RSM.` * link2,$snap,$ds_rt/%rsm,#lkds,$ds_run/rsm.run ********* * IOMAP Services * echo `> Linking LUMAP.`  link2,$snap,$ds_rt/%lumap,#lkds,$ds_run/lumap.run  echo `> Linking LUQUE.`  link2,$snap,$ds_rt/%luque,#lkds,$ds_run/luque.run  echo `> Linking IOMAP.`  link2,$snap,$ds_rt/%iomap,#lkds,$ds_run/iomap.run * * Miscellaneous Programs * echo `> Linking SYSAT.`  link2,$snap,$ds_rt/%sysat,#lkds,$ds_run/sysat.run  echo `> Linking DSMOD.` # link2,$snap,$ds_rt/%dsmod,#lkds,$ds_run/dsmod.run,pascal_fmgr_alt.lib # echo `> Linking DINIT.` % link2,$snap,$ds_rt/%dinis,#lkds,$ds_run/dinit.run,pascal_fmgr_alt.lib,+dc % echo `> Linking DSINF.`  link2,$snap,$ds_rt/%dsinf,#lkds,$ds_run/dsinf.run  echo `> Linking REMAT.`  link2,$snap,$ds_rt/%reman,#lkds,$ds_run/remat.run  echo `> Linking PLOG.`  link2,$snap,$ds_rt/%plog,#lkds,$ds_run/plog.run,+dc  echo `> Linking TLOG.`  link2,$snap,$ds_rt/%tlog,#lkds,$ds_run/tlog.run  echo `> Linking DSVCP`  link2,$snap,$ds_rt/%dsvcp,$ds_run/dsvcp.run,+lc  echo `> Linking TRFAS.`  link2,$snap,$os/%trfas,#lkds,$ds_run/trfas.run,+sz:+1  echo `> Linking DSRTR.`  link2,$snap,$os/%dsrtr,#lkds,$ds_run/dsrtr.run,+sz:+1 * * 1K-3K programs * if is $ds3k_flag = 0  then echo `> Linking QUEX.` $ link2,$snap,$ds_rt/%quex1,#lkds,$ds_run/quex.run,pascal_fmgr_alt.lib$ echo `> Linking QUEZ.`  link2,$snap,$ds_rt/%quez1,#lkds,$ds_run/quez.run echo `> Linking CNSLM.`  link2,$snap,$ds_rt/%cnslm,#lkds,cnslm.run::programs  echo `> Linking RPCNV.`  link2,$snap,$ds_rt/%rpcnv,#lkds,$ds_run/rpcnv.run  echo `> Linking RQCNV.` if is $X25_flag = 0  then4 link2,$snap,$ds_rt/%rqcnv,#lkds,$ds_run/rqcnv.run,$x25/xinef.rel,$x25/x25lb.lib,$x25/x25noncds.rel4 else link2,$snap,$ds_rt/%rqcnv,#lkds,$ds_run/rqcnv.run  fi* echo `> Linking DSLIN.` " link2,$snap,$ds_rt/%dslin,#lkds,$ds_run/dslin.run,pascal.lib,+lb" echo `> Linking LOG3K.`  link2,$snap,$ds_rt/%log3k,#lkds,$ds_run/log3k.run  echo `> Linking TRC3K.`  link2,$snap,$ds_rt/%trc3k,#lkds,$ds_run/trc3k.run  echo `> Linking DSTES.`  link2,$snap,$ds_rt/%dstes,#lkds,$ds_run/dstes.run  echo `RMOTE will not be loaded`  echo `Load RMOTE separately using #RMOTM`  fielse echo `> Linking DLIST.`  link2,$snap,$ds_rt/%dlis2,#lkds,$ds_run/dlist.run  echo `> Linking OPERM.`  link2,$snap,$ds_rt/%operl,#lkds,$ds_run/operm.run  echo `> Linking EXECW.`  link2,$snap,$ds_rt/%execw,#lkds,$ds_run/execw.run  echo `> Linking EXECM.`  link2,$snap,$ds_rt/%execm,#lkds,$ds_run/execm.run  echo `> Linking RFAM.`  link2,$snap,$ds_rt/%rfam2,#lkds,$ds_run/rfam.run* link2,$snap,$ds_rt/%rfam1,#lkds,$ds_run/rfam.run echo `> Linking PTOPM.`  link2,$snap,$ds_rt/%ptopm,#lkds,$ds_run/ptopm.run  echo `> Linking PROGL.`  link2,$snap,$ds_rt/%progl,#lkds,$ds_run/progl.run  * echo `> Linking PROGZ.` * link2,$snap,$ds_rt/%progz,#lkds,$ds_run/progl.run  echo `> Linking VCPMN. `  link2,$snap,$ds_rt/%vcpmn,#lkds,$ds_run/vcpmn.run  echo `> Linking GRPM.`  link2,$snap,$ds_rt/%grpm,#lkds,$ds_run/grpm.run  echo `> Linking UPLIN.` if is $X25_flag = 0  then1link2,$snap,$ds_rt/%uplin,#lkds,$ds_run/uplin.run,$x25/x25lb.lib,$x25/xinxa.rel,$x25/x25noncds.rel1 else link2,$snap,$ds_rt/%uplin,#lkds,$ds_run/uplin.run  fi echo `> Linking QUEUE.`  link2,$snap,$ds_rt/%queue,#lkds,$ds_run/queue.run  echo `> Linking RTRY.`  link2,$snap,$ds_rt/%rtry,#lkds,$ds_run/rtry.run  echo `> Linking QCLM.`  link2,$snap,$ds_rt/%qclm,#lkds,$ds_run/qclm.run  echo `> Linking #SEND.`  link2,$snap,$ds_rt/%#send,#lkds,$ds_run/#send.run  echo `> Linking MATIC.`  link2,$snap,$ds_rt/%matic,#lkds,$ds_run/matic.run * * IOMAP Services * echo `> Linking LUMAP.`  link2,$snap,$ds_rt/%lumap,#lkds,$ds_run/lumap.run  echo `> Linking LUQUE.`  link2,$snap,$ds_rt/%luque,#lkds,$ds_run/luque.run  echo `> Linking IOMAP.`  link2,$snap,$ds_rt/%iomap,#lkds,$ds_run/iomap.run * * Miscellaneous Programs * echo `> Linking SYSAT.`  link2,$snap,$ds_rt/%sysat,$ds_run/sysat.run,+LC  echo `> Linking DSMOD.` " link2,$snap,$ds_rt/%ds((mod,$ds_run/dsmod.run,pascal_fmgr_alt.lib,+LC " echo `> Linking DINIT.` " link2,$snap,$ds_rt/%dinis,$ds_run/dinit.run,pascal_fmgr_alt.lib,+LC " echo `> Linking DSINF.`  link2,$snap,$ds_rt/%dsinl,$ds_run/dsinf.run,+LC  echo `> Linking REMAT.`  link2,$snap,$ds_rt/%reman,$ds_run/remat.run,+LC  echo `> Linking PLOG.`  link2,$snap,$ds_rt/%plog,#lkds,$ds_run/plog.run  echo `> Linking TLOG.`  link2,$snap,$ds_rt/%tlog,$ds_run/tlog.run,+LC  echo `> Linking DSVCP`  link2,$snap,$ds_rt/%dsvcp,$ds_run/dsvcp.run,+lc  echo `> Linking TRFAS.`  link2,$snap,$os/%trfas,#lkds,$ds_run/trfas.run,+sz:+1  echo `> Linking DSRTR.`  link2,$snap,$os/%dsrtr,#lkds,$ds_run/dsrtr.run,+sz:+1 * * 1K-3K programs * if is $ds3k_flag = 0  then echo `> Linking QUEX.` $ link2,$snap,$ds_rt/%quex1,#lkds,$ds_run/quex.run,pascal_fmgr_alt.lib$ echo `> Linking QUEZ.`  link2,$snap,$ds_rt/%quez1,#lkds,$ds_run/quez.run echo `> Linking CNSLM.`  link2,$snap,$ds_rt/%cnslm,#lkds,$ds_run/cnslm.run  echo `> Linking RPCNV.`  link2,$snap,$ds_rt/%rpcnv,#lkds,$ds_run/rpcnv.run  echo `> Linking RQCNV.` if is $X25_flag = 0  then4 link2,$snap,$ds_rt/%rqcnv,#lkds,$ds_run/rqcnv.run,$x25/xinxa.rel,$x25/x25lb.lib,$x25/x25noncds.rel4 else link2,$snap,$ds_rt/%rqcnv,#lkds,$ds_run/rqcnv.run  fi* echo `> Linking DSLIN.` link2,$snap,$ds_rt/%dslin,#lkds,$ds_run/dslin.run,pascal.lib echo `> Linking LOG3k.`  link2,$snap,$ds_rt/%log3k,#lkds,$ds_run/log3k.run  echo `> Linking TRC3K.`  link2,$snap,$ds_rt/%trc3k,#lkds,$ds_run/trc3k.run  echo `> Linking DSTES.`  link2,$snap,$ds_rt/%dstes,#lkds,$ds_run/dstes.run  echo `RMOTE will not be loaded`  echo `Load RMOTE separately using #RMOTA`  fifi#lkds,$ds_run/queue.run  echo `> Linking RTRY.`  link2,$snap,$ds_rt/%rtry,#lkds,$ds_run/rtry.run  echo `YES::DS1000:4:36:52 644 0 0 22000 5302722470 32124 YES::DS1000:4:36:52 $$ Q$4YES + 7+ 8+ 8$8FST * $Header: yes,v 6000.1 92/08/10 13:04:59 barton Exp $!** SOURCE: 91750-17011 REV.6000 $Date: 92/08/10 13:04:59 $ File YES ! * Last Edit <921028.1439> '*----------------------------------------------------------------------------*''* command file used for the installation procedure of DS/1000-IV software *''*----------------------------------------------------------------------------*'* * 891106 LAS - Added the CLOSE utility. SR# 1650105635* 891129 BEB - Changed pascal library for DSLIN. * 891215 BEB - Add commands to link TRC3K and DSTES. $* 900206 LAS - Added PLOG and TLOG. Added +DC option to DINIT on RTE-6 $&* 900618 LAS - Added DSVCP and changed the size command on TRFAS and DSRTR&* 920807 BEB - Changed name %dsrtr to dsrtr.rel * 920923 BEB - Removed the CLOSE utility. * 921028 BEB - Changed dsrtr.rel back to %dsrtr * set prompt = $saveprompt if is $OPSY = -17 then echo `> Linking DLIST.`  link2,$snap,$ds_rt/%dlis1,#lkds,$ds_run/dlist.run  echo `> Linking OPERM.`  link2,$snap,$ds_rt/%operm,#lkds,$ds_run/operm.run  echo `> Linking EXECW.`  link2,$snap,$ds_rt/%execw,#lkds,$ds_run/execw.run  echo `> Linking EXECM.`  link2,$snap,$ds_rt/%execm,#lkds,$ds_run/execm.run  echo `> Linking RFAM.`  link2,$snap,$ds_rt/%rfam2,#lkds,$ds_run/rfam.run* link2,$snap,$ds_rt/%rfam1,#lkds,$ds_run/rfam.run echo `> Linking PTOPM.`  link2,$snap,$ds_rt/%ptopm,#lkds,$ds_run/ptopm.run  echo `> Linking PROGL.`  link2,$snap,$ds_rt/%progl,#lkds,$ds_run/progl.run  * echo `> Linking PROGZ.` * link2,$snap,$ds_rt/%progz,#lkds,$ds_run/progl.run  echo `> Linking VCPMN. `  link2,$snap,$ds_rt/%vcpmn,#lkds,$ds_run/vcpmn.run  echo `> Linking GRPM.`  link2,$snap,$ds_rt/%grpm,#lkds,$ds_run/grpm.run  echo `> Linking UPLIN.` if is $X25_flag = 0  then3 link2,$snap,$ds_rt/%uplin,#lkds,$ds_run/uplin.run,$x25/x25lb.lib,$x25/xinef.rel,$x25/x25noncds.rel3 else link2,$snap,$ds_rt/%uplin,#lkds,$ds_run/uplin.run  fi echo `> Linking QUEUE.`  link2,$snap,$ds_rt/%queue,#lkds,$ds_run/queue.run  echo `> Linking RTRY.`  link2,$snap,$ds_rt/%rtry,#lkds,$ds_run/rtry.run  echo `> Linking QCLM.`  link2,$snap,$ds_rt/%qclm,#lkds,$ds_run/qclm.run  echo `> Linking #SEND.`  link2,$snap,$ds_rt/%#send,#lkds,$ds_run/#send.run  echo `> Linking MATIC.`  link2,$snap,$ds_rt/%matic,#lkds,$ds_run/matic.run ******** Uncomment this section for loading RSM * echo `> Linking RSM.` * link2,$snap,$ds_rt/%rsm,#lkds,$ds_run/rsm.run ********* * IOMAP Services * echo `> Linking LUMAP.`  link2,$snap,$ds_rt/%lumap,#lkds,$ds_run/lumap.run  echo `> Linking LUQUE.`  link2,$snap,$ds_rt/%luque,#lkds,$ds_run/luque.run  echo `> Linking IOMAP.`  link2,$snap,$ds_rt/%iomap,#lkds,$ds_run/iomap.run * * Miscellaneous Programs * echo `> Linking SYSAT.`  link2,$snap,$ds_rt/%sysat,#lkds,$ds_run/sysat.run  echo `> Linking DSMOD.` # link2,$snap,$ds_rt/%dsmod,#lkds,$ds_run/dsmod.run,pascal_fmgr_alt.lib # echo `> Linking DINIT.` % link2,$snap,$ds_rt/%dinis,#lkds,$ds_run/dinit.run,pascal_fmgr_alt.lib,+dc % echo `> Linking DSINF.`  link2,$snap,$ds_rt/%dsinf,#lkds,$ds_run/dsinf.run  echo `> Linking REMAT.`  link2,$snap,$ds_rt/%reman,#lkds,$ds_run/remat.run  echo `> Linking PLOG.`  link2,$snap,$ds_rt/%plog,#lkds,$ds_run/plog.run,+dc  echo `> Linking TLOG.`  link2,$snap,$ds_rt/%tlog,#lkds,$ds_run/tlog.run  echo `> Linking DSVCP`  link2,$snap,$ds_rt/%dsvcp,$ds_run/dsvcp.run,+lc  echo `> Linking TRFAS.`  link2,$snap,$os/%trfas,#lkds,$ds_run/trfas.run,+sz:+1  echo `> Linking DSRTR.`  link2,$snap,$os/%dsrtr,#lkds,$ds_run/dsrtr.run,+sz:+1 * * 1K-3K programs * if is $ds3k_flag = 0  then echo `> Linking QUEX.` $ link2,$snap,$ds_rt/%quex1,#lkds,$ds_run/quex.run,pascal_fmgr_alt.lib$ echo `> Linking QUEZ.`  link2,$snap,$ds_rt/%quez1,#lkds,$ds_run/quez.run echo `> Linking CNSLM.`  link2,$snap,$ds_rt/%cnslm,#lkds,cnslm.run::programs  echo `> Linking RPCNV.`  link2,$snap,$ds_rt/%rpcnv,#lkds,$ds_run/rpcnv.run  echo `> Linking RQCNV.` if is $X25_flag = 0  then4 link2,$snap,$ds_rt/%rqcnv,#lkds,$ds_run/rqcnv.run,$x25/xinef.rel,$x25/x25lb.lib,$x25/x25noncds.rel4 else link2,$snap,$ds_rt/%rqcnv,#lkds,$ds_run/rqcnv.run  fi* echo `> Linking DSLIN.` " link2,$snap,$ds_rt/%dslin,#lkds,$ds_run/dslin.run,pascal.lib,+lb" echo `> Linking LOG3K.`  link2,$snap,$ds_rt/%log3k,#lkds,$ds_run/log3k.run  echo `> Linking TRC3K.`  link2,$snap,$ds_rt/%trc3k,#lkds,$ds_run/trc3k.run  echo `> Linking DSTES.`  link2,$snap,$ds_rt/%dstes,#lkds,$ds_run/dstes.run  echo `RMOTE will not be loaded`  echo `Load RMOTE separately using #RMOTM`  fielse echo `> Linking DLIST.`  link2,$snap,$ds_rt/%dlis2,#lkds,$ds_run/dlist.run  echo `> Linking OPERM.`  link2,$snap,$ds_rt/%operl,#lkds,$ds_run/operm.run  echo `> Linking EXECW.`  link2,$snap,$ds_rt/%execw,#lkds,$ds_run/execw.run  echo `> Linking EXECM.`  link2,$snap,$ds_rt/%execm,#lkds,$ds_run/execm.run  echo `> Linking RFAM.`  link2,$snap,$ds_rt/%rfam2,#lkds,$ds_run/rfam.run* link2,$snap,$ds_rt/%rfam1,#lkds,$ds_run/rfam.run echo `> Linking PTOPM.`  link2,$snap,$ds_rt/%ptopm,#lkds,$ds_run/ptopm.run  echo `> Linking PROGL.`  link2,$snap,$ds_rt/%progl,#lkds,$ds_run/progl.run  * echo `> Linking PROGZ.` * link2,$snap,$ds_rt/%progz,#lkds,$ds_run/progl.run  echo `> Linking VCPMN. `  link2,$snap,$ds_rt/%vcpmn,#lkds,$ds_run/vcpmn.run  echo `> Linking GRPM.`  link2,$snap,$ds_rt/%grpm,#lkds,$ds_run/grpm.run  echo `> Linking UPLIN.` if is $X25_flag = 0  then1link2,$snap,$ds_rt/%uplin,#lkds,$ds_run/uplin.run,$x25/x25lb.lib,$x25/xinxa.rel,$x25/x25noncds.rel1 else link2,$snap,$ds_rt/%uplin,#lkds,$ds_run/uplin.run  fi echo `> Linking QUEUE.`  link2,$snap,$ds_rt/%queue,#lkds,$ds_run/queue.run  echo `> Linking RTRY.`  link2,$snap,$ds_rt/%rtry,#lkds,$ds_run/rtry.run  echo `> Linking QCLM.`  link2,$snap,$ds_rt/%qclm,#lkds,$ds_run/qclm.run  echo `> Linking #SEND.`  link2,$snap,$ds_rt/%#send,#lkds,$ds_run/#send.run  echo `> Linking MATIC.`  link2,$snap,$ds_rt/%matic,#lkds,$ds_run/matic.run * * IOMAP Services * echo `> Linking LUMAP.`  link2,$snap,$ds_rt/%lumap,#lkds,$ds_run/lumap.run  echo `> Linking LUQUE.`  link2,$snap,$ds_rt/%luque,#lkds,$ds_run/luque.run  echo `> Linking IOMAP.`  link2,$snap,$ds_rt/%iomap,#lkds,$ds_run/iomap.run * * Miscellaneous Programs * echo `> Linking SYSAT.`  link2,$snap,$ds_rt/%sysat,$ds_run/sysat.run,+LC  echo `> Linking DSMOD.` " link2,$snap,$ds_rt/%dsmod,$ds_run/dsmod.run,pascal_fmgr_alt.lib,+LC " echo `> Linking DINIT.` " link2,$snap,$ds_rt/%dinis,$ds_run/dinit.run,pascal_fmgr_alt.lib,+LC " echo `> Linking DSINF.`  link2,$snap,$ds_rt/%dsinl,$ds_run/dsinf.run,+LC  echo `> Linking REMAT.`  link2,$snap,$ds_rt/%reman,$ds_run/remat.run,+LC  echo `> Linking PLOG.`  link2,$snap,$ds_rt/%plog,#lkds,$ds_run/plog.run  echo `> Linking TLOG.`  link2,$snap,$ds_rt/%tlog,$ds_run/tlog.run,+LC  echo `> Linking DSVCP`  li((nk2,$snap,$ds_rt/%dsvcp,$ds_run/dsvcp.run,+lc  echo `> Linking TRFAS.`  link2,$snap,$os/%trfas,#lkds,$ds_run/trfas.run,+sz:+1  echo `> Linking DSRTR.`  link2,$snap,$os/%dsrtr,#lkds,$ds_run/dsrtr.run,+sz:+1 * * 1K-3K programs * if is $ds3k_flag = 0  then echo `> Linking QUEX.` $ link2,$snap,$ds_rt/%quex1,#lkds,$ds_run/quex.run,pascal_fmgr_alt.lib$ echo `> Linking QUEZ.`  link2,$snap,$ds_rt/%quez1,#lkds,$ds_run/quez.run echo `> Linking CNSLM.`  link2,$snap,$ds_rt/%cnslm,#lkds,$ds_run/cnslm.run  echo `> Linking RPCNV.`  link2,$snap,$ds_rt/%rpcnv,#lkds,$ds_run/rpcnv.run  echo `> Linking RQCNV.` if is $X25_flag = 0  then4 link2,$snap,$ds_rt/%rqcnv,#lkds,$ds_run/rqcnv.run,$x25/xinxa.rel,$x25/x25lb.lib,$x25/x25noncds.rel4 else link2,$snap,$ds_rt/%rqcnv,#lkds,$ds_run/rqcnv.run  fi* echo `> Linking DSLIN.` link2,$snap,$ds_rt/%dslin,#lkds,$ds_run/dslin.run,pascal.lib echo `> Linking LOG3k.`  link2,$snap,$ds_rt/%log3k,#lkds,$ds_run/log3k.run  echo `> Linking TRC3K.`  link2,$snap,$ds_rt/%trc3k,#lkds,$ds_run/trc3k.run  echo `> Linking DSTES.`  link2,$snap,$ds_rt/%dstes,#lkds,$ds_run/dstes.run  echo `RMOTE will not be loaded`  echo `Load RMOTE separately using #RMOTA`  fifi#lkds,$ds_run/queue.run  echo `> Linking RTRY.`  link2,$snap,$ds_rt/%rtry,#lkds,$ds_run/rtry.run  echo `> LiNO::DS1000:4:3:39 644 0 0 1400 5302722471 30702 NO::DS1000:4:3:39 $ Q8'NO + 9+ 9+ 9 ^FST '** PART NO. 91750-17012 REV.5010 File NO <880831.1516>''*----------------------------------------------------------------------------*''* command file used for the installation procedure of DS/1000 software *''*----------------------------------------------------------------------------*'* restore directory saved in *lddsWD $SWD * restore prompt set PROMPT = $SAVEPROMPT echo `` echo `No action performed. `echo ``  * restore command logging set LOG = ONANDARD_LEVEL 'HP1000'$  $RANGE OFF$ $HEAP_DISPOSE OFF$  $CDS OFF$ $ HEAP 2 $  $RECURSIVE OFF$  PROGRAM XNET ;  {path directory must be provided in the installation procedure} $TITLE 'X.25/100N.CMD::DS1000:4:3:39 644 0 0 1400 5302722473 31304 N.CMD::DS1000:4:3:39 $ Q<'N CMD + :+ ;+ ; dFST '** PART NO. 91750-17013 REV.5010 File N.CMD <880724.1045>''*----------------------------------------------------------------------------*''* command file used for the installation procedure of DS/1000 software *''*----------------------------------------------------------------------------*'* restore directory saved in *lddsWD $SWD * restore prompt set PROMPT = $SAVEPROMPT echo `` echo `No action performed. `echo ``  * restore command logging set LOG = ONS, GO PROCESS * BIN READ LENGTH PRIOR TO READ OR WRITE?  CPA P2.105,I (P2.105)= XRLEN address  JMP CP.50 YES, GO PROCESS * READ TYPE BEFORE READ OR WRITE?  CPREADME::DS1000:4:16:39 644 0 0 10000 5302722475 32321 README::DS1000:4:16:39 $ Q@'README + <+ =+ =?jFST '** PART NO. 91750-17014 REV.5010 File README <880831.1515> ''*---------------------------------------------------------------------------* ''* Readme file used for the installation procedure of DS/1000-IV software * ''*---------------------------------------------------------------------------* ' &This README file will explain how to run the DS/1000 installation load file.& It is possible to run the load file like at 5.0 by typing: TR,*LDDS $The new load file will also allow setting paths, specifying 1K/3K module$loading, and loading with X.25.  For loading 1K/3K, the runstring would be: TR,*LDDS,,,3K  For loading 1K/3K and X.25, the runstring would be:  TR,*LDDS,,,3K,x25   "Both of the above runstrings will STOP on error and use the default " SNAP.SNP on system.  The following are comments taken from the load file *LDDS. '*----------------------------------------------------------------------------*''* command file used for installation procedure of DS/1000 software *''*----------------------------------------------------------------------------*''* This command file is used to test whether global variables have been set *''* or not. Only the one listed below are tested: *''* *''* - $DS_RT : root directory *''* - $SNAP : target system snap file *''* - $DS_RUN : directory which will be used to store resulting *''* runnable programs. *''* - $OS : directory which will be used for finding OS relocatables *''* *''* - $X25 : directory which will be used for finding X25/1000 *''* relocatables. *''* - $DS3K_FLAG : Flag set in response to 3k loading. Used by Y.cmd *''* - $X25_FLAG : FLag set in response to X25 loading. Used by Y.cmd *''* *''* FOUR parameters may be specified and are retrieved in $1, $2, $3 and $4. *''* They are defined as follows : *''* - $1: snap file identifier (will be used to update $SNAP) *''* - $2: 'stop on error' flag (if set to any value but 0 - default is 0 - *''* the installation procedure will stop when *''* the first error occurs). *''* - $3: Request for 1k/3k module loading *''* - $4: Request for loading with X.25/1000 subsystem *''* *''* The values of each of the previously defined global variables and para- *''* meters are displayed. *''* The user may then decide to continue or to stop. *''* *''*----------------------------------------------------------------------------*' $After the runstring is entered, the user will have a chance to continue,$$set some of the variables and continue, or to just stop. If loading is $%requested, control will be transferred to Y.CMD or YES. This is where the%$actual loading of the DS/1000 module will occur. If the user desires to$%tailor the loading of command files to his/her own system, the user should% modify YES or Y.CMD. { msg1write } ;   PROCEDURE MSGWRITE ! ( msglu : word; msg1, msg2, msg3, msg4, msg5 : pa15c );!  VAR msg : pa75C ; I : 0..100 ;  A91750.MNF::DS1000:4:9:39 644 0 0 4400 5302722476 32262 A91750.MNF::DS1000:4:9:39 $ QP 'A91750 MNF + =+ >+ > H%|FST  * A91750.MNF 91750-17999 REV.6000 <921117.1149> ' *****************************************************************************'' * *'' * DS/1000-IV Manual Numbering File *'' * *'' * Product: 91750A REV. 6000 *'' * (( *'' *****************************************************************************' # The following is a list of manuals supplied with DS/1000-IV software.#% The edition number, update number and print date code are current for the% software Revision Code shown above. ' Print'& Part Number Manual Title Ed/Up Code &' ----------- -------------------------------------------------- ----- -----'' 91750-91001 DS/1000-IV cover letter -/- E1292'' 91750-90012 DS/1000-IV User's Manual for RTE-A and RTE-6/VM 2/- E1292'' 91750-90013 DS/1000-IV Generation and Initialization Manual 2/- E1292'' 91750-90014 DS/1000-IV Theory of Operation and Troubleshooting 1/- E0590'' 91750-90015 DS/1000-IV Quick Reference Guide for RTE-A & RTE-6/VM 2/- E1292' $ The following two manuals have been deleted from the product and are in$ support life until January 1, 1998.  91750-90004 DS/1000-IV Getting Started With DS/1000-IV  91750-90006 DS/1000-IV Communications Bootstrap Loader ROM  $ The following four manuals have been deleted from the product and are in $& support life until June 30, 1995. These manuals are in support life because & they contain information on obsoleted products.  91750-90002 DS/1000-IV User's Manual  91750-90005 DS/1000-IV Quick Reference Guide  91750-90010 DS/1000-IV Network Manager's Manual, Volume I 91750-90011 DS/1000-IV Network Manager's Manual, Volume II   *'' * DS/1000-IV A91750::DS1000:4:36:39 644 0 0 22000 5302722477 32217 A91750::DS1000:4:36:39 $$ Q\$'A91750 + >+ ?+ ?${FST *A91750 SOURCE: 91750-18999 REV.6000  * Last Edit <921116.1636> $ ************************************************************************ $$ * * $$ * DS/1000 SOFTWARE NUMBERING FILE A91750 * $$ * * $$ * PRODUCT: 91750A REV. 6000 * $$ * * $$ ************************************************************************ $    FILENAME PART NUMBER REV. TYPE DESCRIPTION ' --------------------- ----------- ---- ---- --------------------------------' # !COPY3 91750-16213 5000 1 COPY3K EXECUTABLE MODULE#% #LKDS 91750-17007 5010 4 LINK LOAD FILE FOR DS/1000-IV %# #RMOTA 91750-17005 2540 4 RMOTE LOAD FILE FOR RTE-A #% #RMOTM 91750-17004 5010 4 RMOTE LOAD FILE FOR RTE-6/VM%& $D3KBB 91750-12019 2201 5 1072 WORD COMMUNICATION BUFFER&& $D3KL2 91750-12016 2201 5 HP 1000 TO HP 3000 ONLY LIBRARY && $D3KLB 91750-12017 5020 5 HP 1000 TO HP 3000 BASE LIBRARY && $D3KMB 91750-12021 2201 5 4096 WORD COMMUNICATION BUFFER&% $D3KRB 91750-12018 2201 5 304 WORD COMMUNICATION BUFFER % $D3N25 91750-12029 2401 5 NON 3K-X.25 LIBRARY  $D3X25 91750-12028 2440 5 3K-X.25 LIBRARY ! $DSAL 91750-12027 5020 5 DS LIBRARY FOR RTE-A!" $DSLB1 91750-12001 6000 5 DS/1000-IV BASE LIBRARY "$ $DSLB2 91750-12002 5020 5 HP 1000 TO HP 1000 LIBRARY$& $DSLB3 91750-12003 2540 5 HP 1000 TO HP 1000 ONLY LIBRARY &$ $DSLSM 91750-12015 5020 5 RTE NODES W/O LOCAL SESSION $$ $DSMA 91750-12008 2440 5 MESSAGE ACCOUNTING LIBRARY$! $DSMX6 91750-12023 5020 5 DS LIBRARY FOR RTE-6!% $DSNMA 91750-12010 2440 5 NO MESSAGE ACCOUNTING LIBRARY %' $DSNRR 91750-12011 2013 5 NO DYNAMIC MESSAGE REROUTING LIB'& $DSNSM 91750-12012 2340 5 NO SESSION ANYWHERE IN NETWORK&& $DSRR 91750-12013 2226 5 DYNAMIC MESSAGE REROUTING LIB.&# $DSSM 91750-12014 5020 5 RTE-6 NODES WITH SESSION#& %#SEND 91750-16208 2140 5 REROUTING MESSAGE SENDER MODULE &# %#SPLU 91750-16221 2013 5 REMOTE I/O MAP ENTRY PT.#$ %ADV00 91750-16286 5270 5 LU MAPPING DRIVER FOR RTE-A $' %APLDL 91750-16040 6000 5 ABSOLUTE PROGRAM LOADR FOR RTE-A'# %CNSLM 91750-16048 2340 5 HP 3000 $STDLIST MONITOR#& %COMND 91750-16049 2013 5 RTE-L SYSTEM COMMAND PROCESSOR&& %CSV66 91750-16268 6000 5 DS-X.25 DRIVER SUBR. FOR RTE-6&& %CXL66 91750-16269 6000 5 DS-X.25 DRIVER SUBR. FOR RTE-A&" %DDA66 91750-16292 2340 5 DS/1000-IV COMM. DRIVER "& %DINIS 91750-16069 5020 5 DS/1000-IV INIT. WITH SHUTDOWN&# %DINIT 91750-16068 5020 5 DS/1000-IV INITIALIZATION #% %DLIS1 91750-16072 5000 5 DIRECTORY LIST DISC-BASED FMP %& %DLIS2 91750-16073 5000 5 DIRECTORY LIST FLOPPY BASED FMP &% %DSIN2 91750-16078 5020 5 DS INFO UTILITY HP 3000 ONLY%& %DSINF 91750-16077 5020 5 DS/1000-IV INFORMATION UTILITY&# %DSINL 91750-16079 5020 5 DS INFO UTILITY FOR RTE-A #" %DSLIN 91750-16263 5020 5 1K-3K DSLINE FOR RTE-6"& %DSMOD 91750-16092 5020 5 DS/1000-IV NETWORK MODIFICATION &' %DSTES 91750-16100 2013 5 1000 SLAVE VERIFY 1000-3000 PTOP'% %DSVCP 91750-16102 5020 5 REMOTE VIRTUAL CONTROL PANEL%' %DVA65 91750-16105 4010 5 DS/1000-IV COMM. DRIVER 12771/73'' %DVA66 91750-16107 2326 5 DS/1000-IV COMM. DRIVER HDLC/BSC'# %DVB65 91750-16300 2401 5 SPECIAL WASP LINK DRIVER#' %DVG67 91750-16108 2201 5 HP 3000 COMM. DRIVER (HARDWIRED)' %DVS64 91750-16241 2140 5 DATA LINK DRIVER %EDI6D 91750-16240 2140 5 DS EDITOR FOR RTE-6 $ %EXECM 91750-16111 5020 5 REMOTE EXEC REQUEST MONITOR $$ %EXECW 91750-16112 5000 5 REMOTE EXEC W/WAIT MONITOR$! %FCL7 91750-16243 2140 5 MODULE FOR DATA LINK!$ %GRPM 91750-16124 5020 5 REQUEST/REPLY PRE-PROCESSOR $% %ID*66 91750-16126 5010 5 DS/1000-IV COMM. DRIVER RTE-A %# %IDS64 91750-16242 2326 5 PART OF DATA LINK DRIVER#" %INCNV 91750-16129 2340 5 INPUT MESSAGE CONVERTOR "& %IOMAP 91750-16130 5020 5 USER I/F FOR REMOTE I/O MAPPING &' %LOG3K 91750-16132 2540 5 HP 1000 TO HP 3000 MESSAGE LOGGR'% %LUMAP 91750-16133 5000 5 MODULE FOR REMOTE I/O MAPPING %' %LUQUE 91750-16134 2201 5 BUFFERING FOR REMOTE I/O MAPPING'! %MATIC 91750-16136 5010 5 MA TIME-OUT PROCESSOR !" %MDFCL 91750-16293 2340 5 DS-HPDL UTILITY PROGRAM "& %MDV00 91750-16109 2201 5 REMOTE I/O MAPPING DRIVER RTE-6 &$ %MVCP3 91750-16212 5020 5 INSTALLS COPY3K ON THE 3000 $' %OPERL 91750-16142 2440 5 REMOTE OPERATOR COMMANDS (RTE-A)'% %OPERM 91750-16143 2140 5 REM. OPER. RQST. MON. (RTE-6) %# %OTCNV 91750-16144 2440 5 OUTPUT MESSAGE CONVERTOR#% %PLOG 91750-16147 5020 5 TRACE CAPABILITY FOR RTE-RTE%& %PROGL 91750-16150 5240 5 SLAVE MON. FOR REMOTE DOWNLOAD&& %PROGZ 91750-16226 5240 5 RFA VERSION OF DOWNLOAD MONITOR &% %PTOPM 91750-16151 2340 5 PTOP COMM. MANAGEMENT MONITOR %& %QCLM 91750-16152 5020 5 DS/1000-IV ERROR MESSAGE LOGGER &# %QUEUE 91750-16153 2401 5 INTERRUPT REQUEST HANDLER #$ %QUEX 91750-16154 2340 5 HP 3000 COMM. MODULE (HSI)$$ %QUEX1 91750-16155 5020 5 HP 3000 COMM. MODULE (PSI)$' %QUEZ 91750-16156 2201 5 HP 3000 SLAVE RQST. MONITOR(HSI)'' %QUEZ1 91750-16157 2401 5 HP 3000 SLAVE RQST. MONITOR(PSI)' %REMAN 91750-16159 6000 5 NET. OPERATOR I/F % %RESA 91750-16283 2540 5 LABELED COMMON LIBRARY RTE-A%& %RESM 91750-16162 2440 5 SSGA LIBRARY RTE-6 WITHOUT S.M. &% %RESSM 91750-16163 2440 5 SSGA LIBRARY RTE-6 WITH S.M.%& %RFAM1 91750-16164 2440 5 RFA MONITOR - SINGLE DCB MODULE && %RFAM2 91750-16165 2440 5 RFA MONITOR - MULTIPLE DCB MOD. && %RMOT1 91750-16168 5020 5 HP 3000 NET. OPER. I/F (W/MOVE) &% %RMOTE 91750-16167 5020 5 HP 3000 NETWORK OPERATOR I/F%# %RMTIO 91750-16169 2013 5 FTN4 REMOTE I/O FORMATTER #" %RPCNV 91750-16170 5020 5 HP 3000 REPLY CONVERTOR "# %RQCNV 91750-16171 5020 5 HP 3000 REQUEST CONVERTOR #" %RSM 91750-16172 5020 5 RE((MOTE SESSION MONITOR"$ %RTRY 91750-16173 2301 5 COMM. LINE RETRY PROCESSOR$# %SGXL 91750-16234 2201 5 REMOTE SEGLOAD FOR RTE-A#' %SLCIN 91750-16176 2113 5 EVENTS TRACE TABLE LOGGER(DVG67)'& %SYSAT 91750-16202 5020 5 SYS. ATTENTION MOD. I/O MAPPING && %TLOG 91750-16177 5020 5 PLOG TRACE DATA LOGGER RTE-RTE&% %TRC3K 91750-16178 5020 5 LOG3K DATA FORMATTER RTE-MPE%# %UPLIN 91750-16179 5020 5 NETWORK WATCHDOG MONITOR#% %VCPMN 91750-16180 2226 5 VIRTUAL CONTROL PANEL MONITOR % %WHZ6D 91750-16527 5000 5 DS WHZAT FOR RTE-6 ' *LDDS 91750-17008 6000 4 COMMAND FILE FOR LOADING DS/1000'& A91750 91750-18999 6000 4 DS/1000 SOFTWARE NUMBERING FILE &% A91750.MNF 91750-17999 6000 4 DS/1000 MANUAL NUMBERING FILE %& LINK2 91750-17009 5010 4 COMMAND FILE FOR LINK IN *LDDS&$ N.CMD 91750-17013 5010 4 COMMAND FILE FOR N RESPONSE $% NO 91750-17012 5010 4 COMMAND FILE FOR NO RESPONSE%$ README 91750-17014 5010 4 README FILE FOR DS/1000-IV$$ Y.CMD 91750-17010 6000 4 COMMAND FILE FOR Y RESPONSE $% YES 91750-17011 6000 4 COMMAND FILE FOR YES RESPONSE % 5 NO MESSAGE ACCOUNTING LIBRARY %' $DSNRR 91750-12011 2013 5 NO DYNAMIC MESSA/X25/ADM/HPHPHP:::4:15:34 644 0 0 10000 5303117317 32121 /X25/ADM/HPHPHP:::4:15:34 $ A"HPHPHP + P+$w2+ IFST * "* MATERIAL LIST: 91751-13308 REV: 6000 CT X.25 2204"* * (SAME AS MATERIAL LIST: 91751-13502 REV: 6000 ) * (SAME AS MATERIAL LIST: 91751-13600 REV: 6000 ) * * Directory: /X25/ADM/ * Directory: /X25/CMD/ * Directory: /X25/REL/ * Directory: /X25/TXT/ * 91751-12001 6000 01 01 5 /X25/REL/X25LB.LIB:::5:8191751-12002 6000 01 01 5 /X25/REL/X25DS.LIB:::5:3891751-16001 5020 01 01 5 /X25/REL/DVX00.REL:::5:3691751-16002 5000 01 01 5 /X25/REL/DDX60.REL:::5:1391751-16003 2440 01 01 5 /X25/REL/#X25T.REL:::5:3 91751-16004 5020 01 01 5 /X25/REL/DDX00.REL:::5:4791751-16005 6000 01 01 5 /X25/REL/DD*60.REL:::5:1591751-16006 2440 01 01 5 /X25/REL/CSTB.REL:::5:191751-16007 2440 01 01 5 /X25/REL/#XCOM.REL:::5:1 91751-16008 2440 01 01 5 /X25/REL/XINEF.REL:::5:4 91751-16010 5000 01 01 5 /X25/REL/XFOEF.REL:::5:3 91751-16012 2440 01 01 5 /X25/REL/XINXA.REL:::5:5 91751-16013 2440 01 01 5 /X25/REL/XNFOA.REL:::5:4 91751-16020 6000 01 01 5 /X25/REL/XNET.REL:::5:45391751-16040 6000 01 01 5 /X25/REL/XINIT.REL:::5:321 91751-16060 6000 01 01 5 /X25/REL/XMOD.REL:::5:15491751-16081 6000 01 01 5 /X25/REL/XPLOG.REL:::5:2991751-16100 5020 01 01 5 /X25/REL/XTLOG.REL:::5:184 91751-16120 6000 01 01 5 /X25/REL/XNFEF.REL:::5:199 91751-16122 6000 01 01 5 /X25/REL/XINFA.REL:::5:212 91751-16140 5000 01 01 5 /X25/REL/XREAD.REL:::5:1191751-16160 5010 01 01 5 /X25/REL/XWRIT.REL:::5:1091751-16180 6000 01 01 5 /X25/REL/LAPBV.REL:::5:3891751-16200 6000 01 01 5 /X25/REL/GENPK.REL:::5:5391751-16220 5020 01 01 5 /X25/REL/SRVEY.REL:::5:4691751-16230 5020 01 01 5 /X25/REL/CSPAD.REL:::5:1091751-16231 5020 01 01 5 /X25/REL/CVPAD.REL:::5:1091751-16309 5000 01 01 5 /X25/REL/X25NONCDS.REL:::5:1 91751-17015 2440 01 01 4 /X25/CMD/X25.CMD:::4:1391751-17024 5000 01 01 3 /X25/CMD/XLOEF.X25:::3:1091751-17025 5000 01 01 3 /X25/CMD/DLOEF.X25:::3:1191751-17026 5000 01 01 3 /X25/CMD/XLOOA.X25:::3:1091751-17027 5000 01 01 3 /X25/CMD/DLOOA.X25:::3:1191751-17030 5010 01 01 4 /X25/CMD/INSTALL_X25A.CMD:::4:34 91751-17035 5010 01 01 4 /X25/CMD/Y.CMD:::4:2 91751-17036 5010 01 01 4 /X25/CMD/YES.CMD:::4:2 91751-17037 5010 01 01 4 /X25/CMD/N.CMD:::4:3 91751-17038 5010 01 01 4 /X25/CMD/NO.CMD:::4:391751-17039 5010 01 01 4 /X25/CMD/TESTERROR.CMD:::4:1191751-17200 4010 01 01 4 /X25/CMD/X25.LOD:::4:1591751-17215 5010 01 01 4 /X25/CMD/XINIT.LOD:::4:2 91751-17220 5010 01 01 4 /X25/CMD/XPLOG.LOD:::4:1 91751-17225 5010 01 01 4 /X25/CMD/XTLOG.LOD:::4:1 91751-17230 5010 01 01 4 /X25/CMD/XINFO.LOD:::4:2 91751-17235 5010 01 01 4 /X25/CMD/XMOD.LOD:::4:191751-17240 5010 01 01 4 /X25/CMD/GENPK.LOD:::4:1 91751-17245 5010 01 01 4 /X25/CMD/LAPBV.LOD:::4:2 91751-17250 6000 01 01 4 /X25/CMD/XNET.LOD:::4:291751-17255 5010 01 01 4 /X25/CMD/XREAD.LOD:::4:1 91751-17260 5010 01 01 4 /X25/CMD/XWRIT.LOD:::4:1 91751-17265 5010 01 01 4 /X25/CMD/SRVEY.LOD:::4:2 91751-17315 2440 01 01 4 /X25/CMD/?XINIT.HLP:::4:13 91751-17320 2440 01 01 4 /X25/CMD/?XPLOG.HLP:::4:991751-17325 2440 01 01 4 /X25/CMD/?XTLOG.HLP:::4:991751-17330 2440 01 01 3 /X25/CMD/?XINFO.HLP:::3:291751-17335 2440 01 01 4 /X25/CMD/?XMOD.HLP:::4:2 91751-17997 6000 01 01 4 /X25/ADM/M91751:::4:691751-17999 6000 01 01 4 /X25/ADM/A91751:::4:22 91751-18006 2440 01 01 3 /X25/TXT/CSTB.MAC:::3:11 * * END MATERIAL LIST * 2204"* * (SAME AS MATERIAL LIST: 91751-13502 REV: 6000 ) * (SAME AS MATERIAL LIST: 91751-13600 REV: 6000 ) * * Directory: /X25/ADM/ * Directory: /X25/CMD/ /X25/ADM/M91751:::4:6:39 644 0 0 3000 5302751242 32757 /X25/ADM/M91751:::4:6:39 $ T 'M91751 + ҡ+ Ң+ ҢFST  * M91751 91751-17997 REV.6000 <921119.1059> ' *****************************************************************************'' * *'' * DSN/X.25/1000 Manual Numbering File *'' * *'' * Product: 91751A REV. 6000 *'' * *'' *****************************************************************************' " The following is a list of manuals supplied with X.25/1000 software. "% The edition number, update number and print date code are current for the% software Revision Code shown above. ' Print'& Part Number Manual Title Ed/Up Date &' ----------- -------------------------------------------------- ----- -----'' 91751-90002 DSN/X.25/1000 Reference Manual 4/- E0490'' 91751-90003 DSN/X.25/1000 Advanced Guide 3/- E0490'' 5958-3402 X.25 : THE PSN CONNECTION 2/- E1085' No such directory / /X25/ADM/A91751:::4:22:39 644 0 0 13000 5302751243 33227 /X25/ADM/A91751:::4:22:39 $ T('A91751 + Ң+ ң+ ң [FST $ * A91751 91751-17999 REV.6000 <921030.1941>$$ ***********************************************************************$$ * *$$ * DSN/X.25 HP 1000 SOFTWARE NUMBERING FILE A91751 *$$ * *$$ * PRODUCT: 91751A REV. 6000 *$$ * *$$ ***********************************************************************$  Directory: /X25/REL/   FileName Part Number Rev. Type Description & --------------------- ----------- ---- ----- ------------------------------- &! X25LB.LIB 91751-12001 6000 5 X25/1000 overall lib! X25DS.LIB 91751-12002 6000 5 X25 RTE6 DS library ! DVX00.REL 91751-16001 5020 5 RTE6 Virtual I/F Dvr!! DDX60.REL 91751-16002 5000 5 RTE6 LAP-B Dev Drivr!! #X25T.REL 91751-16003 2440 5 RTE6 Tab Ar I module!! DDX00.REL 91751-16004 5020 5 RTEA Virtual Dev Dvr!! DD*60.REL 91751-16005 6000 5 RTEA LAP-B Dev Drivr!! CSTB.REL 91751-16006 2440 5 Customizing Sub Tabl!! #XCOM.REL 91751-16007 2440 5 XPLOG XTLOG Com Area!! XINEF.REL 91751-16008 2440 5 EQT verify on RTE-VI!! XFOEF.REL 91751-16010 5000 ((5 XINFO asmb rout RTE6! XINXA.REL 91751-16012 2440 5 DVT verify on RTE-A ! XNFOA.REL 91751-16013 2440 5 XINFO asmb rout RTEA! XNET.REL 91751-16020 6000 5 Main module ! XINIT.REL 91751-16040 6000 5 Initialization prog.!! XMOD.REL 91751-16060 6000 5 On line modif. prog.!! XPLOG.REL 91751-16081 6000 5 XPLOG trac capt prog! XTLOG.REL 91751-16100 5020 5 Trace formatter ! XNFEF.REL 91751-16120 6000 5 Info print out RTE-6!! XINFA.REL 91751-16122 6000 5 Info print out RTE-A!! XREAD.REL 91751-16140 5000 5 Read Exercisor Progr!! XWRIT.REL 91751-16160 5010 5 Write Exerciser Prog!! LAPBV.REL 91751-16180 6000 5 LAP-B Card Exer Prog!! GENPK.REL 91751-16200 6000 5 Packet Genrator Prog!! SRVEY.REL 91751-16220 5020 5 Networks survey prog. ! CSPAD.REL 91751-16230 5020 5 C.S. for PAD RTE-A CVPAD.REL 91751-16231 5020 5 C.S. for PAD RTE-6  X25NONCDS.REL 91751-16309 5000 5 dummy PAS.NONCDS   Directory: /X25/CMD/   FileName Part Number Rev. Type Description & -------- ----------- ---- ---- ------------------------------- &! INSTALL_X25A.CMD 91751-17030 5010 4 Inst. interf. prod. A !! Y.CMD 91751-17035 5010 4 continue installation !! YES.CMD 91751-17036 5010 4 continue installation ! N.CMD 91751-17037 5010 4 stop installation  NO.CMD 91751-17038 5010 4 stop installation  TESTERROR.CMD 91751-17039 5010 4 test error return  X25.CMD 91751-17015 2440 4 installation proc.  XLOEF.X25 91751-17024 5000 3 XINIT answer file  DLOEF.X25 91751-17025 5000 3 XINIT answer file  XLOOA.X25 91751-17026 5000 3 XINIT answer file  DLOOA.X25 91751-17027 5000 3 XINIT answer file  X25.LOD 91751-17200 4010 4 link phase! XINIT.LOD 91751-17215 5010 4 XINIT link cmnd file!! XPLOG.LOD 91751-17220 5010 4 XPLOG link cmnd file!! XTLOG.LOD 91751-17225 5010 4 XTLOG link cmnd file!! XINFO.LOD 91751-17230 5010 4 XINFO link cmnd file! XMOD.LOD 91751-17235 5010 4 XMOD link cmnd file ! GENPK.LOD 91751-17240 5010 4 GENPK link cmnd file!! LAPBV.LOD 91751-17245 5010 4 LAPBV link cmnd file! XNET.LOD 91751-17250 6000 4 XNET link cmnd file ! XREAD.LOD 91751-17255 5010 4 XREAD link cmnd file!! XWRIT.LOD 91751-17260 5010 4 XWRIT link cmnd file!! SRVEY.LOD 91751-17265 5010 4 SRVEY link cmnd file! ?XINIT.HLP 91751-17315 2440 4 XINIT Help file  ?XPLOG.HLP 91751-17320 2440 4 XPLOG Help file  ?XTLOG.HLP 91751-17325 2440 4 XTLOG Help file  ?XINFO.HLP 91751-17330 2440 3 XINFO Help file  ?XMOD.HLP 91751-17335 2440 4 XMOD Help file    Directory: /X25/ADM/   FileName Part Number Rev. Type Description & -------- ----------- ---- ---- ------------------------------- &# A91751 91751-17999 6000 3 X.25 Soft Numbering File#$ M91751 91751-17997 6000 4 X.25 Manual Numbering File$  Directory: /X25/TXT/   FileName Part Number Rev. Type Description & -------- ----------- ---- ---- ------------------------------- &! CSTB.MAC 91751-18006 2440 3 Customizing Sub Tabl! /X25/CMD/X25.CMD:::4:13:39 644 0 0 6400 5302751170 33302 /X25/CMD/X25.CMD:::4:13:39 $ S4 'X25 CMD + w+ x+ x q;FST '** PART NO. 91751-17015 REV.2440 File X25.CMD <850211.1918> ''*---------------------------------------------------------------------------* ''* command file used in the installation procedure of DSN/X.25-1000 software * ''*---------------------------------------------------------------------------* ''* This command file performs X.25/1000 software installation and will * ''* initiate the Link Phase. * ''* If the source product 91751X is available, it first compiles source files * ''* and merges resulting relocatables. * ''* Then if no error occured in previous step the links are performed. * ''* * ''* Two parameters may be provided. They are retrieved in $1 and $2: * ''* - $1 : stop on error flag (Any value but 0 means that command file must * ''* be exited when the first error occures. * ''* Parameter not specified is equivalent to parameter * ''* set to 0) * ''* - $2 : compilation needed (Any value but 0 means that compilation must * ''* be performed before link. * ''* Parameter not specified is equivalent to parameter * ''* set to 0) * ''* - $3 : link required * ''* * ''* Global variables defined in file INSTALL_X25 must have been set before * ''* enterring the current file. * ''* * ''*---------------------------------------------------------------------------* '* restore prompt set PROMPT = $SAVEPROMPT  if is $2 = 0then * i.e. no compilation requested ... * reset CMP for the next test !  set CMP = 0else * compilation requested !  echo `` echo ` Compilation Phase.`  echo ` ------------------`  X25.CMP $1  set CMP = $RETURN1 fi* ' * test if an error occured during compilation phase ! '& * NOTE : if compilation phase has not been performed&" * then $RETURN1 has been reset to 0 !"if is $3 = 1then * link phase required if is $CMP = 0&then * No error during compilation phase, so link now... & echo ``  echo ` Link Phase.` echo ` -----------` X25.LOD $1 else * an error occured during compilation. * Link can't be performed. echo ` WARNING : can't run link command file. `" echo ` Correct errors in compilation before linking !.`"fifi * if link required* restore directory saved in INSTALL_X25wd $SWD /X25/CMD/XLOEF.X25:::3:10:37 644 0 0 5000 5302751171 34200 /X25/CMD/XLOEF.X25:::3:10:37 $ SD %XLOEF X25 + y+ y+ y `FST %> PART NO. 91751-17024 Rev.5000 NON DS/1000 Version <870728.1630>%> $>X.25/1000 initialization program Thu Feb 5, 1987 10:31 am page : 1 $> > > FILE : XLOEF.X25 Target Operating System : RTE-VI > LOOPBACK on a PVC   >STEP : 0 X.25/1000 global parameters >X25/1000 SUBSYSTEM SECURITY CODE ? XX>X.25/1000 WRITE RESERVED LU # ?55>DEVICE DRIVER DDX60 ENTRY # ?2  >STEP : 1 Network global parameters >NETWORK TYPE (NAME OR /E TO END) ? LOOPBACK >ACTING AS DTE OR DCE ? DTE >X.25 NETWORK WRITE LU NUMBER ?74>NETWORK BUFFER REQUIRED (Y/N) ?N >STEP : 2 Network level II parameters>LINE SPEED ? 9600>X.25 LEVEL II DEFAULT PARAMETERS : >TIMER T1 ? 640 msec># OF RETRY N2 ? 20 times>ACK COUNT K ? 7 frame(s) >USE DEFAULTS LISTED ABOVE (Y/N) ? Y  >TIMER T3 ?0 >MODEM SIGNALS TIMER ? 3  >STEP : 3 Network virtual circuits definition  >LOCAL NETWORK ADDRESS ? 100 >PERMANENT CIRCUITS (N/STARTING #[,ENDING #]) ? 0 >1-WAY INCOMING SVC (N/STARTING #[,ENDING #]) ? N >2-WAY SVC (N/STARTING #[,ENDING #]) ? N >1-WAY OUTGOING SVC (N,STARTING #[,ENDING #]) ? N >STEP : 4 Flow control subscription parameters  >X.25 LEVEL III DEFAULT FLOW CONTROL : >PACKET SIZE (VAL1[,VAL2]) ? : 128>W((INDOW SIZE (VAL1[,VAL2]) ? : 2>THROUGHPUT CLASS (VAL1[,VAL2]) ? : 10>END TO END ACK (Y/N) ? : NO >USE STANDARD FLOW CONTROL VALUES (Y/N) ?Y >STEP : 6 Virtual driver configuration ( Host to Host )>VIRTUAL DRIVER CONFIGURATION DEFAULTS :>- Flush data on circuit failure>- Prog sched on Unsol data : NO >- Custom subroutine entry number 1 >- Prog Sched on Unsol events : NO >USE DEFAULTS LISTED ABOVE (Y/N) ? Y >STEP : 7 PVC LUs specifications >FLOW CONTROL DEFAULTS TO APPLY TO ALL PVCs (Y/PC) ?Y >PVC No 0 = (LU #) ? 82>STEP : 1 Network global parameters>NETWORK TYPE (NAME OR /E TO END) ? /E>AMOUNT OF SAM REQUIRED : 43 WORDS >AMOUNT OF SPACE NEEDED IN EMA (XNET) : 296 WORDS >DO YOU WANT TO PROCEED W/START-UP (Y/N) ?Y >END XINIT/X25/CMD/DLOEF.X25:::3:11:38 644 0 0 5400 5302751172 34024 /X25/CMD/DLOEF.X25:::3:11:38 $ SP &DLOEF X25 + z+ z+ z `iFST #> PART NO. 91751-17025 Rev.5000 DS/1000 Version <870728.1630>#> %> X.25/1000 initialization program Thu Feb 5, 1987 10:32 am page : 1 %> > > FILE : DLOEF.X25 Target Operating System : RTE-VI > DS/1000-IV network LOOPBACK on a PVC  > assumes CSV66 table entry number is 2   >STEP : 0 X.25/1000 global parameters >X25/1000 SUBSYSTEM SECURITY CODE ? XX>X.25/1000 WRITE RESERVED LU # ?55>DEVICE DRIVER DDX60 ENTRY # ?4  >STEP : 1 Network global parameters >NETWORK TYPE (NAME OR /E TO END) ? LOOPBACK >ACTING AS DTE OR DCE ? DTE >X.25 NETWORK WRITE LU NUMBER ?74>NETWORK BUFFER REQUIRED (Y/N) ?N  >STEP : 2 Network level II parameters >LINE SPEED ? 9600>X.25 LEVEL II DEFAULT PARAMETERS :  >TIMER T1 ? 640 msec># OF RETRY N2 ? 20 times>ACK COUNT K ? 7 frame(s)  >USE DEFAULTS LISTED ABOVE (Y/N) ?Y  >TIMER T3 ?0 >MODEM SIGNALS TIMER ? 3  >STEP : 3 Network virtual circuits definition  >LOCAL NETWORK ADDRESS ? 100 >PERMANENT CIRCUITS (N/STARTING #[,ENDING #]) ? 0 >1-WAY INCOMING SVC (N/STARTING #[,ENDING #]) ? N >2-WAY SVC (N/STARTING #[,ENDING #]) ? N >1-WAY OUTGOING SVC (N,STARTING #[,ENDING #]) ? N >STEP : 4 Flow control subscription parameters  >X.25 LEVEL III DEFAULT FLOW CONTROL : >PACKET SIZE (VAL1[,VAL2]) ? : 128>WINDOW SIZE (VAL1[,VAL2]) ? : 2>THROUGHPUT CLASS (VAL1[,VAL2]) ? : 10>END TO END ACK (Y/N) ? : NO  >USE STANDARD FLOW CONTROL VALUES (Y/N) ?Y >STEP : 6 Virtual driver configuration ( Host to Host ) >VIRTUAL DRIVER CONFIGURATION DEFAULTS : >- Flush data on circuit failure>- Prog sched on Unsol data : NO >- Custom subroutine entry number 1 >- Prog Sched on Unsol events : NO  >USE DEFAULTS LISTED ABOVE (Y/N) ?N >FLUSH DATA ON CIRCUIT FAILURE (Y/N/PC) ? Y >ENABLE PROG SCHED ON UNSOL DATA (Y/N/PC) ? Y >CUSTOM SUBROUTINE ENTRY NUMBER (VAL/PC) ? 2 >ENABLE PROG SCHED ON UNSOL EVENTS (Y/N/PC) ? Y >STEP : 7 PVC LUs specifications  >FLOW CONTROL DEFAULTS TO APPLY TO ALL PVCs (Y/PC) ?Y >PVC No 0 = (LU #) ? 82>STEP : 1 Network global parameters >NETWORK TYPE (NAME OR /E TO END) ? /E>AMOUNT OF SAM REQUIRED : 43 WORDS >AMOUNT OF SPACE NEEDED IN EMA (XNET) : 296 WORDS >DO YOU WANT TO PROCEED W/START-UP (Y/N) ?Y >END XINIT/X25/CMD/XLOOA.X25:::3:10:38 644 0 0 5000 5302751173 33670 /X25/CMD/XLOOA.X25:::3:10:38 $ S\ &XLOOA X25 + {+ {+ { ^ FST %> PART NO. 91751-17026 Rev.5000 NON DS/1000 Version <870407.1052> %> %> X.25/1000 initialization program Thu Feb 5, 1987 11:30 am page : 1 %> > > FILE : XLOOA.X25 Target Operating System : RTE-A > LOOPBACK on a PVC   >STEP : 0 X.25/1000 global parameters >X25/1000 SUBSYSTEM SECURITY CODE ? XX>X.25/1000 WRITE RESERVED LU # ?40 >STEP : 1 Network global parameters >NETWORK TYPE (NAME OR /E TO END) ? LOOPBACK >ACTING AS DTE OR DCE ? DTE >X.25 NETWORK WRITE LU NUMBER ?34>NETWORK BUFFER REQUIRED (Y/N) ?N  >STEP : 2 Network level II parameters >LINE SPEED ? 9600>X.25 LEVEL II DEFAULT PARAMETERS :  >TIMER T1 ? 640 msec># OF RETRY N2 ? 20 times>ACK COUNT K ? 7 frame(s)  >USE DEFAULTS LISTED ABOVE (Y/N) ?Y  >TIMER T3 ?0 >MODEM SIGNALS TIMER 3 >STEP : 3 Network virtual circuits definition >LOCAL NETWORK ADDRESS ? 100 >PERMANENT CIRCUITS (N/STARTING #[,ENDING #]) ? 0 >1-WAY INCOMING SVC (N/STARTING #[,ENDING #]) ? N >2-WAY SVC (N/STARTING #[,ENDING #]) ? N >1-WAY OUTGOING SVC (N,STARTING #[,ENDING #]) ? N >STEP : 4 Flow control subscription parameters >X.25 LEVEL III DEFAULT FLOW CONTROL :>PACKET SIZE (VAL1[,VAL2]) ? : 128>WINDOW SIZE (VAL1[,VAL2]) ? : 2>THROUGHPUT CLASS (VAL1[,VAL2]) ? : 10>END TO END ACK (Y/N) ? : NO >USE STANDARD FLOW CONTROL VALUES (Y/N) ?Y >STEP : 6 Virtual driver configuration ( Host to Host )>VIRTUAL DRIVER CONFIGURATION DEFAULTS :>- Flush data on circuit failure>- Prog sched on Unsol data : NO >- Custom subroutine entry number 1 >- Prog Sched on Unsol events : NO >USE DEFAULTS LISTED ABOVE (Y/N) ? Y >STEP : 7 PVC LUs specifications >FLOW CONTROL DEFAULTS TO APPLY TO ALL PVCs (Y/PC) ?Y >PVC No 0 = (LU #) ? 42>STEP : 1 Network global parameters >NETWORK TYPE (NAME OR /E TO END) ? /E>AMOUNT OF SAM REQUIRED : 43 WORDS >AMOUNT OF SPACE NEEDED IN EMA (XNET) : 296 WORDS >DO YOU WANT TO PROCEED W/START-UP (Y/N) ?Y >END XINIT/X25/CMD/DLOOA.X25:::3:11:38 644 0 0 5400 5302751175 33534 /X25/CMD/DLOOA.X25:::3:11:38 $ Sh &DLOOA X25 + |+ }+ } [iFST #> PART NO. 91751-17027 Rev.5000 DS/1000 Version <870728.1628> #> %> X.25/1000 initialization program Thu Feb 5, 1987 11:32 am page : 1 %> > > FILE : DLOOA.X25 Target Operating System : RTE-A> DS/1000-IV network LOOPBACK on a PVC  > assumes CXL66 table entry number is 2   >STEP : 0 X.25/1000 global parameters >X25/1000 SUBSYSTEM SECURITY CODE ? XX>X.25/1000 WRITE RESERVED LU # ?40 >STEP : 1 Network global parameters >NETWORK TYPE (NAME OR /E TO END) ? LOOPBACK >ACTING AS DTE OR DCE ? DTE >X.25 NETWORK WRITE LU NUMBER ?34>NETWORK BUFFER REQUIRED (Y/N) ?N  >STEP : 2 Network level II parameters >LINE SPEED ? 9600>X.25 LEVEL II DEFAULT PARAMETERS :  >TIMER T1 ? 640 msec># OF RETRY N2 ? 20 times>ACK COUNT K ? 7 frame(s)  >USE DEFAULTS LISTED ABOVE (Y/N) ?Y  >TIMER T3 ?0 >MODEM SIGNALS TIMER ? 3 >STEP : 3 Network virtual circuits definition >LOCAL NETWORK ADDRESS ? 100 >PERMANENT CIRCUITS (N/STARTING #[,ENDING #]) ? 0 >1-WAY INCOMING SVC (N/STARTING #[,ENDING #]) ? N >2-WAY SVC (N/STARTING #[,ENDING #]) ? N >1-WAY OUTGOING SVC (N,STARTING #[,ENDING #]) ? N >STEP : 4 Flow control subscription parameters >X.25 LEVEL III DEFAULT FLOW CONTROL :>PACKET SIZE (VAL1[,VAL2]) ? : 128>WINDOW SIZE (VAL1[,VAL2]) ? : 2>THROUGHPUT CLASS (VAL1[,VAL2]) ? : 10>END TO END ACK (Y/N) ? : NO >USE STANDARD FLOW CONTROL VALUES (Y/N) ?Y >STEP : 6 Virtual driver configuration ( Host to Host )>VIRTUAL DRIVER CONFIGURATION DEFAULTS :>- Flush data on circuit failure>- Prog sched on Unsol data : NO >- Custom subroutine entry number 1 >- Prog Sched on Unsol events : NO >USE DEFAULTS LIST((ED ABOVE (Y/N) ? N >FLUSH DATA ON CIRCUIT FAILURE (Y/N/PC) ? Y >ENABLE PROG SCHED ON UNSOL DATA (Y/N/PC) ? Y >CUSTOM SUBROUTINE ENTRY NUMBER (VAL/PC) ? 2 >ENABLE PROG SCHED ON UNSOL EVENTS (Y/N/PC) ? Y >PRIMARY PROGRAM NAME (NAME/\) ? \ >STEP : 7 PVC LUs specifications  >FLOW CONTROL DEFAULTS TO APPLY TO ALL PVCs (Y/PC) ?Y >PVC No 0 = (LU #) ? 42>STEP : 1 Network global parameters >NETWORK TYPE (NAME OR /E TO END) ? /E>AMOUNT OF SAM REQUIRED : 43 WORDS >AMOUNT OF SPACE NEEDED IN EMA (XNET) : 296 WORDS >DO YOU WANT TO PROCEED W/START-UP (Y/N) ?Y >END XINIT/X25/CMD/INSTALL_X25A.CMD:::4:34:39 644 0 0 21000 5302751176 36116 /X25/CMD/INSTALL_X25A.CMD:::4:34:39 ##$" St"'INSTALL_X25A CMD + }+ ~+ ~"$FST '** PART NO. 91751-17030 REV.5010 File INSTALL_X25A.CMD <880722.1140> ''******************************************************************************'set LOG = OFF * Previous command set command logging OFF * unable prompt message set SAVEPROMPT = $PROMPT set PROMPT = `[Y/N/SET] : `  '*----------------------------------------------------------------------------*''* command file used for installation procedure of DSN/X.25-1000 software *''*----------------------------------------------------------------------------*''* This command file is used to test whether global variables have been set *''* or not. Only the one listed below are tested: *''* *''* - $RT : root directory *''* - $SNAP : target system snap file *''* - $CMD : subdirectory which contains command files used for the *''* installation procedure. *''* - $REL : subdirectory which will be used to store resulting *''* relocatable files. *''* - $RUN : subdirectory which will be used to store resulting *''* runable programs. *''* - $LST : subdirectory which will be used to store resulting *''* list files. *''* *''* *''* TWO parameters may be specified and are retrieved in $1, $2 and $3. *''* They are defined as follows : *''* - $1: snap file identifier (will be used to update $SNAP) *''* - $2: 'stop on error' flag (if set to any value but 0 - default is 0 - *''* the installation procedure will stop when *''* the first error occurs). *''* *''* The values of each of the previously defined global variables and para- *''* meters are displayed. *''* The user may then decide to continue or to stop. *''* *''*----------------------------------------------------------------------------*'echo `` echo `` 'echo `+--------------------------------------------------------------------+` ''echo `| You are running the installation phase for DSN/X.25-1000 software. |` ' if is $OPSY = -17 then' echo `| Current Operating System is RTE-6 |`'else' echo `| Current Operating System is RTE-A |`'fi'echo `| Executive environment is defined as follows: |` ''echo `+--------------------------------------------------------------------+` 'echo `.`* * temporary save working directory* the working directory may have not been already set up.  if is $WD = `$WD` then set SWD = 0  echo `No working directory.` echo `.`else if is $WD = `` then set SWD = 0  echo `No working directory.` echo `.` else echo `Working Directory is ` $WD echo `.` set SWD = $WD  fifi* &*-------------------------- ROOT directory --------------------------------*&* Set $RT to default value if it has not already set...  if is $RT = `$RT` then set RT = `/X25` fi* echo `> ROOT Directory : `$RT $*-------------------------- COMMAND ----------------------------------* $ if is $CMD = `$CMD` then * set default subdirectory COMMAND to `CMD` set CMD = `CMD` fiecho `> Subdirectory for COMMAND files : `$CMD* * test if directory $RT/$CMD exists if WD $RT/$CMDthen* * OK, proceed with the rest of the verification ........... #*-------------------------- RELOCATABLE ----------------------------*#*  if is $REL = `$REL` then * set default subdirectory RELOC to `REL` set REL = `REL` fiecho `> Subdirectory for RELOCATABLE files : `$REL* test if directory $RT/$REL exists if WD $RT/$RELthenelse echo `&dJ WARNING path `$RT/$REL` not found.`fi* #*-------------------------- LIST ------------------------------------*#*  if is $LST = `$LST` then * set default subdirectory LIST to `LST`  set LST = `LST` fiecho `> Subdirectory for LIST files : `$LST* test if directory $RT/$LST exists if WD $RT/$LSTthenelse echo `&dJ WARNING path `$RT/$LST` will be created` CRDIR $RT/$LSTfi* #*---------------------------- RUN ----------------------------------* #*  if is $RUN = `$RUN` then * set default subdirectory EXECUT to `RUN` set RUN = `RUN` fiecho `> Subdirectory for PROGRAM files : `$RUN* test if working directory existsif WD $RT/$RUNthenelse echo `&dJ WARNING path `$RT/$RUN` will be created` CRDIR $RT/$RUNfi* %*----------------- SNAP file and STOP flag ------------------------------*%*  * test if snap file has been specified if is $1 = ` `then * NO, default snap file will be used  set SNAP = `SNAP.SNP::SYSTEM`else set SNAP = $1fiecho `> SNAP File : `$SNAP *  * test if 'stop on error' flag has been set if is $2 = ` `then * default is YES  echo `> STOP on Error : YES` set STOP = 1 else echo `> STOP on Error : NO`  set STOP = 0 fi* &*--------------------------------------------------------------------------*&*&dJ WARNING :&d@ &dJthese commands MUST not be removed !$* Variables COMP and LPREQ are used in Y/YES: they are passed to X25.CMD$!* to define which of COMPILE and/or LINK phase must be performed. !&* This feature is unusable with the current product but must not be removed &%* as they are tested in the procedure X25.CMD which is common to products %* A91751 (Standard) and X91751 (Source).set COMP = 0 set LPREQ = 1 &*--------------------------------------------------------------------------+&$* set working directory to $RT/$CMD to allow access to files N/NO/Y/YES $WD $RT/$CMD * echo `` echo `` echo `Enter (lower case accepted)`echo ` Y/YES to continue  echo ` N/NO to stop` echo ` SET command to update status as needed.`echo `` *** * else * directory $RT/$CMD doesn't exist echo ``  echo ``  echo ` ERROR : environment is incorrectly initialized.` echo ` We are not able to reach command files.`& echo ` To correct the problem, you may set the installation` && echo ` environment according to the one you used to restore` & echo ` the product.` $ echo ` Here are the global variables used to define the `$ echo ` installation environment: `  echo ` - $RT : is the root directory ' echo ` - $CMD : is the subdirectory containing command files.`'' echo ` - $REL : is the subdirectory containing reloc. files.`'' echo ` - $LST : is the subdirectory containing listing files.`'' echo ` - $RUN : is the subdirectory containing runable files.`' echo ``  echo ` NOTE: 2 parameters may be specified`  echo ` paremeter 1 : snap file identifier`' echo ` parameter 2 : 'STOP on ERROR' flag (default is 'STOP')`' echo ``  set PROMPT = $SAVEPROMPT  fi * end if WD $RT/$CMD р.C)  . .f 3fakXkXڭ4]]Z3$Z5.Ȯ6.6 P^.kX78^Ȫ\t w[XѮ9tw wt:vc'5.Ȯ;.. \^ Ղ% /g((/X25/CMD/Y.CMD:::4:2:39 644 0 0 1000 5302751177 32754 /X25/CMD/Y.CMD:::4:2:39 $ S'Y CMD + + + HFST '** PART NO. 91751-17035 REV.5010 File Y.CMD <880722.1137> ''*----------------------------------------------------------------------------*''* command file used for the installation procedure of DSN/X.25-1000 software *''*----------------------------------------------------------------------------*' X25.CMD $STOP $COMP $LPREQ ####IH #f .M&fw㄃Ԁvg"["###g0vg0+FvgU.V.V.V.V.V.V.V.V.nV. V. V/X25/CMD/YES.CMD:::4:2:39 644 0 0 1000 5302751201 33371 /X25/CMD/YES.CMD:::4:2:39 $ S'YES CMD + Ҁ+ ҁ+ ҁLFST '** PART NO. 91751-17036 REV.5010 File YES.CMD <880722.1137> ''*----------------------------------------------------------------------------*''* command file used for the installation procedure of DSN/X.25-1000 software *''*----------------------------------------------------------------------------*' X25.CMD $STOP $COMP $LPREQ ?2o[2oыoϋg]oo^? G@2_G]gwgwo/V ?/P__h`_K_C`CJ_`aGj?jwj?jwj?jwj?jw bC'@CQ/X25/CMD/N.CMD:::4:3:39 644 0 0 1400 5302751202 32505 /X25/CMD/N.CMD:::4:3:39 $ S'N CMD + ҂+ ҂+ ҂ PFST '** PART NO. 91751-17037 REV.5010 File N.CMD <880722.1138>''*----------------------------------------------------------------------------*''* command file used for the installation procedure of DSN/X.25-1000 software *''*----------------------------------------------------------------------------*'* restore directory saved in INSTALL_X25WD $SWD * restore prompt set PROMPT = $SAVEPROMPT echo `` echo `No action performed. `echo ``  * restore command logging set LOG = ON/X25/CMD/NO.CMD:::4:3:39 644 0 0 1400 5302751204 32744 /X25/CMD/NO.CMD:::4:3:39 $ S'NO CMD + ҃+ ҄+ ҄ VFST &** PART NO. 91751-17038 REV.5010 File NO.CMD <880722.1139>&'*----------------------------------------------------------------------------*''* command file used for the installation procedure of DSN/X.25-1000 software *''*----------------------------------------------------------------------------*'* restore directory saved in INSTALL_X25WD $SWD * restore prompt set PROMPT = $SAVEPROMPT echo `` echo `No action performed. `echo ``  * restore command logging set LOG = ON/X25/CMD/TESTERROR.CMD:::4:11:39 644 0 0 5400 5302751205 35112 /X25/CMD/TESTERROR.CMD:::4:11:39 $ S 'TESTERROR CMD + ҅+ ҅+ ҅ )\FST &* PART NO. 91751-17039 REV.5010 File TESTERROR.CMD <880722.1229> * &'*---------------------------------------------------------------------------* ''* Command file used for installation procedure of DSN/X.25-1000 software * ''*---------------------------------------------------------------------------* ''* This command file tests both parameters retrieved in $1 and $2. * ''* $1 is expected to contain the previous operation error status return : * ''* - for a compilation : the number of errors * ''* - for a LINK operation : 2 space characters if no error. * ''* $2 contains the 'stop on error' flag ( $2 is <> 0 if flag set ). * ''* * ''* It is used to test an error flag against the 'stop on error' flag in * ''* X25.CMP and X25.LOD. * ''* * ''* The following function is performed: * ''* if (($S2 <> 0) and (($S1 <> 0) or ($1 <> ` `))) then return 1 * ''* else return 0 * ''* * ''* For instance : * ''* * ''* if TESTERROR $ERROR $2 * ''* then * return 0, no error or error, but 'stop on error' not set. * ''* .................................... * ''* else * return 1, error and 'stop on error' set. * ''* .................................... * ''* fi * ''* * ''*---------------------------------------------------------------------------* ' * reset local error flag set TE = 0* if is $1 = 0 then * no error detected ! Nothing to do !  else if is $2 = 0" then * `stop on error` flag not set ! Nothing to do !"" else * error detected and `stop on error` flag set ! " set TE = 1 * set local error flag ! fifi* return $TE+++,: P.Kg$%%3HLHMO yJ-BƋ"! Sc /D///chBS ;ԃ{c3$s@c@S/X25/CMD/X25.LOD:::4:15:39 644 0 0 7400 5302751207 33453 /X25/CMD/X25.LOD:::4:15:39 $ S'X25 LOD + ҆+ ҇+ ҇Q^jFST '** PART NO. 91751-17200 REV.4010 File X25.LOD <860820.1051> ''*---------------------------------------------------------------------------* ''* command file used in the installation procedure of DSN/X.25-1000 software * ''*---------------------------------------------------------------------------* ''* Commands file performing X.25 software linking. * ''* * ''* one parameter is required to run this command file. It is retrieved in * ''* in global variable $1: * ''* * ''* - $S1 : 'stop on error' flag. * ''* * ''* WARNING : it is assumed that the working directory has been set to * ''* directory containing rel((ocatables before entering the current * ''* file. (see command file X25.CMD) * ''* * ''* WARNING : it is assumed that global variables used in the current files * ''* (see definition in command file INSTALL_X25) have already * ''* been set. * ''* * ''* WARNING : relocatable files refered to in the link command files used * ''* below are assumed to be present on directory * ''* $RT/$REL * ''* * ''*---------------------------------------------------------------------------* '* set working directory to $RT/$REL WD $RT/$REL * echo `.`*  echo `> Linking XINIT.` "LINK $SNAP $RT/$CMD/XINIT.LOD $RT/$LST/XINIT.MAP $RT/$RUN/XINIT.RUN "if $RT/$CMD/TESTERROR $RETURN4 $1 then echo `.`  echo `> Linking XNET.` " LINK $SNAP $RT/$CMD/XNET.LOD $RT/$LST/XNET.MAP $RT/$RUN/XNET.RUN"* if $RT/$CMD/TESTERROR $RETURN4 $1 then echo `.`  echo `> Linking XMOD.` " LINK $SNAP $RT/$CMD/XMOD.LOD $RT/$LST/XMOD.MAP $RT/$RUN/XMOD.RUN"* if $RT/$CMD/TESTERROR $RETURN4 $1 then echo `.`  echo `> Linking XPLOG.` # LINK $SNAP $RT/$CMD/XPLOG.LOD $RT/$LST/XPLOG.MAP $RT/$RUN/XPLOG.RUN#* if $RT/$CMD/TESTERROR $RETURN4 $1 then echo `.`  echo `> Linking XTLOG.` # LINK $SNAP $RT/$CMD/XTLOG.LOD $RT/$LST/XTLOG.MAP $RT/$RUN/XTLOG.RUN#* if $RT/$CMD/TESTERROR $RETURN4 $1 then echo `.`  echo `> Linking XINFO.` # LINK $SNAP $RT/$CMD/XINFO.LOD $RT/$LST/XINFO.MAP $RT/$RUN/XINFO.RUN#* if $RT/$CMD/TESTERROR $RETURN4 $1 then echo `.`  echo `> Linking GENPK.` # LINK $SNAP $RT/$CMD/GENPK.LOD $RT/$LST/GENPK.MAP $RT/$RUN/GENPK.RUN#* if $RT/$CMD/TESTERROR $RETURN4 $1 then echo `.`  echo `> Linking LAPBV.` # LINK $SNAP $RT/$CMD/LAPBV.LOD $RT/$LST/LAPBV.MAP $RT/$RUN/LAPBV.RUN#* if $RT/$CMD/TESTERROR $RETURN4 $1 then echo `.`  echo `> Linking XREAD.` # LINK $SNAP $RT/$CMD/XREAD.LOD $RT/$LST/XREAD.MAP $RT/$RUN/XREAD.RUN#* if $RT/$CMD/TESTERROR $RETURN4 $1 then echo `.`  echo `> Linking XWRIT.` # LINK $SNAP $RT/$CMD/XWRIT.LOD $RT/$LST/XWRIT.MAP $RT/$RUN/XWRIT.RUN#fififififififififi* /X25/CMD/XINIT.LOD:::4:2:38 644 0 0 1000 5302751210 34221 /X25/CMD/XINIT.LOD:::4:2:38 $ S&XINIT LOD + ҈+ ҈+ ҈|FST &** PART NO. 91751-17215 REV.5010 File XINIT.LOD <880721.0908> &** COMMAND FILE NEEDS UPDATING FOR SZ VALUE ECHOIF A PC 31 0IF 6 EB PSSZ,32 LI,X25LB.LIB LI,PASCAL.LIB::LIBRARIES RE,PASCAL_ERR.REL::LIBRARIES IF 6 RE,XINEF.REL IF A RE,XINXA.REL RE,XINIT.RELENPPP:PWTINFR c=/X25/CMD/XPLOG.LOD:::4:1:38 644 0 0 400 5302751212 34124 /X25/CMD/XPLOG.LOD:::4:1:38 $ S&XPLOG LOD + ҉+ Ҋ+ Ҋp FST &** PART NO. 91751-17220 Rev.5010 File XPLOG.LOD <880721.0912>&ECHOIF A PC 31 0IF A LC IF 6 SS IF 6 DC LI,X25LB.LIB IF A RE,XINXA.REL IF 6 RE,XINEF.REL RE,XPLOG.RELEND /X25/CMD/XTLOG.LOD:::4:1:39 644 0 0 400 5302751213 34166 /X25/CMD/XTLOG.LOD:::4:1:39 $ S'XTLOG LOD + Ҋ+ ҋ+ ҋw FST '** PART NO. 91751-17225 Rev.5010 File XTLOG.LOD <880721.0912> 'ECHOIF A PC 31 0IF A LC IF 6 LB IF 6 SS IF 6 DC  LI,PASCAL.LIB::LIBRARIES RE,PASCAL_ERR.REL::LIBRARIESRE,XTLOG.RELEND /X25/CMD/XINFO.LOD:::4:2:34 644 0 0 1000 5302751214 34226 /X25/CMD/XINFO.LOD:::4:2:34 $ S"XINFO LOD + Ҍ+ Ҍ+ ҌFST "** PART NO. 91751-17230 Rev.5010 File XINFO.LOD <880721.0908> "ECHOif A PC 31 0if 6 EB LI,X25LB.LIB LI,PASCAL.LIB::LIBRARIES RE,PASCAL_ERR.REL::LIBRARIES if 6 RE,XFOEF.REL if 6 RE,XINEF.REL if 6 RE,XNFEF.REL if A RE,XNFOA.REL if A RE,XINXA.REL if A RE,XINFA.REL END f ,4flh, ,4f,7q fdcif4f , ,ffg@ h,ۧ-li,%/j4, @'NS.v-f3q 7f< /X25/CMD/XMOD.LOD:::4:1:33 644 0 0 400 5302751216 33742 /X25/CMD/XMOD.LOD:::4:1:33 $ S!XMOD LOD + ҍ+ Ҏ+ Ҏ} FST !** PART NO. 91751-17235 Rev.5010 File XMOD.LOD <880721.0909>!ECHOif A PC 31 0if 6 EB  if 6 re,XINEF.REL if A re,XINXA.REL LI,X25LB.LIB LI,PASCAL.LIB::LIBRARIES RE,PASCAL_ERR.REL::LIBRARIESRE,XMOD.REL END /X25/CMD/GENPK.LOD:::4:1:34 644 0 0 400 5302751217 34105 /X25/CMD/GENPK.LOD:::4:1:34 $ S"GENPK LOD + ҏ+ ҏ+ ҏx FST "** PART NO. 91751-17240 Rev.5010 File GENPK.LOD <880721.0910>"ECHOIF A PC 31 0LI,X25LB.LIB LI,PASCAL.LIB::LIBRARIES RE,PASCAL_ERR.REL::LIBRARIES IF A RE,XINXA.REL IF 6 RE,XINEF.REL RE,GENPK.RELEND /X25/CMD/LAPBV.LOD:::4:2:37 644 0 0 1000 5302751221 34162 /X25/CMD/LAPBV.LOD:::4:2:37 $ S%LAPBV LOD + Ґ+ ґ+ ґ FST %** PART NO. 91751-17245 Rev.5010 File LAPBV.LOD <880721.0910>%ECHOif A PC 31 0if 6 DC LI,X25LB.LIB LI,PASCAL.LIB::LIBRARIES LI,PASCAL_ERR.REL::LIBRARIES if 6 RE,XINEF.REL if A RE,XINXA.REL RE,LAPBV.RELEND S.ffgc&nˉggiU\..nˉgi.q 7q.vf6fkKgic&f3fjc&^dhgdg/jf3f goigghjh(h/jq.v`.vng<((/X25/CMD/XNET.LOD:::4:2:33 644 0 0 1000 5302751222 34131 /X25/CMD/XNET.LOD:::4:2:33 $ S!XNET LOD + Ғ+ Ғ+ ҒFST ** PART NO. 91751-17250 REV.6000 File XNET.LOD <920921.1456> ECHO** COMMAND FILE NEEDS UPDATING FOR EMA SIZE VALUE if A PC 31 0if A SU if 6 DC if 6 EB RO* ********* EM,20 * ********* LI,X25LB.LIB LI,PASCAL.LIB::LIBRARIES RE,PASCAL_ERR.REL::LIBRARIESRE XNET.REL END /X25/CMD/XREAD.LOD:::4:1:39 644 0 0 400 5302751223 34136 /X25/CMD/XREAD.LOD:::4:1:39 $ S'XREAD LOD + ғ+ ғ+ ғe FST '** PART NO. 91751-17255 Rev.5010 File XREAD.LOD <880721.0910> 'ECHOif A PC 31 0if 6 DC LI,X25LB.LIBRE,XREAD.REL if 6 RE,XINEF.REL if A RE,XINXA.REL END /X25/CMD/XWRIT.LOD:::4:1:38 644 0 0 400 5302751225 34310 /X25/CMD/XWRIT.LOD:::4:1:38 $ S&XWRIT LOD + Ҕ+ ҕ+ ҕHFST &** PART NO. 91751-17260 Rev.5010 File XWRIT.LOD <000000.0000&ECHOIF A PC 31 0LI,X25LB.LIBRE,XWRIT.RELEND /X25/CMD/SRVEY.LOD:::4:2:33 644 0 0 1000 5302751226 34432 /X25/CMD/SRVEY.LOD:::4:2:33 $ S!SRVEY LOD + Җ+ Җ+ Җ FST !** PART NO. 91751-17265 Rev.5010 file SRVEY.LOD <880721.0911>!EChoif A PC 31 0 li /x25/rel/x25lb.lib li /libraries/pascal.lib re /libraries/pascal_err.rel* to get the GTNXT procedure : if A re /x25/rel/xinxa.rel if 6 re /x25/rel/xinef.rel re srvey.relen,j,r'j@,'ij,k''i ,lCKP,'^,lf,j'',ej'i' @@i@'md*l kJd+d,+%,:"T,',22,', ckUd, mocei/X25/CMD/?XINIT.HLP:::4:13:39 644 0 0 6400 5302751230 34641 /X25/CMD/?XINIT.HLP:::4:13:39 $ S '?XINIT HLP + Ҙ+ Ҙ+ Ҙ *DFST ' 91751-17315 REV.2440' XINIT -- initializes the DSN/X.25 software. #&dDXINIT MUST BE RUN THE FIRST TIME A HOST-NETWORK CONNECTION IS USED. # Usage : &dJRU,XINIT [, [ Namr1 ] [, Namr2 ] [, ECHO ] ] &dJ[, ERROR ] ] &dJ[, PREP ] ]  & Namr1 Namr2 = non disc device LU numbers or disc file names. They may be& CI files.  " Namr1 is a previously prepared XINIT answer file ."% Namr2 is a list file created by XINIT, includung prompts% and answers.% XINIT verifies the Namrs entered. It selects interactive%& mode of operation if Namr1 is omitted or is an interactive&% device LU number, and non interactive mode otherwise. If%& the PREP option is specified, XINIT will go into answer fi- & le preparation mode. if Namr1 is a file, it must be of type 3 or 4. & if Namr2 is a file and doesnt exist, XINIT will create it.&& if Namr2 is a file and already exists, XINIT will issue the & following prompt:   FILE: xxxxxx already exists  REWRITE (Y/N) ! if NO is entered XINIT will terminate immediatly. ! % NOTE: the above statements do not apply when Namr1 is an%% answer file. In that mode XINIT will automatically%% rewrite Namr2 if it exists, unless the ERROR option %% is specified. In the later case it will then issue% the REWRITE prompt.  AS A RESULT....  %&dDTo schedule XINIT in the interactive mode, type the following command:%  &dJRU,XINIT [, [, Namr2 ] ]  &dDTo prepare an answer file, type the follwing command:   &dJRU,XINIT , , Namr2 , PREP &&dDTo schedule XINIT in the non-interactive mode by using the following com- &&dDmand:   &dJRU,XINIT , Namr1 [, Namr2 ] [, ECHO ]  &dJ[, ERROR ]  & if ECHO is specified, all messages from XINIT will be sent to the sys-&$ tem console. If an error message is received, XINIT will prompt the $& network manager for a correct answer. On receipt of the correct answer, & XINIT will resume operation from the answer file.  & if ERROR is specified, only error messages (if any) will be sent to the & system console.  & Namr2 may be omitted if Namr1 is a new type file with its extension set &' to '.X25'. In that case, Namr2 will be created using the same root iden-' tifier but with the extension set to '.LST'. For instance,  XINIT,ANSWER.X25,,ECHO  is equivalent to  XINIT,ANSWER.X25,ANSWER.LST,ECHO /X25/CMD/?XPLOG.HLP:::4:9:39 644 0 0 4400 5302751233 34173 /X25/CMD/?XPLOG.HLP:::4:9:39 $ T '?XPLOG HLP + Қ+ қ+ қ "(FST ' 91751-17320 REV.2440'' XPLOG -- System diagnostic program that records all the packets generated and'$ received from the network by the DSN/X.25 control program XNET. $  Usage : - scheduling XPLOG " &dJRU,XPLOG [,ConsoleLu [,LogNamr or LU [,NumberOfPackets]]] " $ ConsoleLu = interactive LU for error logging. Default is the$ scheduling terminal. % LogNamrLu = LU, if a tape-like device (mag tape, ctu, etc..) is % to be used as a log medium, or & Namr (both CI and FMGR identifier formats are accep-&' ted) if a disc file is to be used as a logging medium.'& XPLOG will create the file Namr and assign file type& and size.   The default may be either  . 'XPLOG:XX if WD = 0 $ or . XPLOG.LST if the working directory is <> 0$ % NumberOfPackets = Number of most recent packets to log if a disc file %$ is the log medium. These packets are handled in a $& circular fashion. XPLOG can run indefinitely and the&% last packets will be available for viewing. The ac- %$ tual number of packets may be 1 or 2 greater than $% (( asked for, due to the disc allocation calculations. %   - terminating XPLOG &dJBR,XPLOG  & XPLOG will terminate upon finishing its processing of the next activi-&% ty buffer it retrieves after the "BR" command. Use of the "OFF" com-%% mand is not recommended as it will cause the loss of XPLOG's ressour- % ce number to the system and will leave the log file open. % In a very quiet network, it may be necessary to generate traffic for% XPLOG to notice the break flag set by the BR,XPLOG command. 0?NZpKZKXO0?NZhJK{KyO0?NZKKO/X25/CMD/?XTLOG.HLP:::4:9:39 644 0 0 4400 5302751235 34366 /X25/CMD/?XTLOG.HLP:::4:9:39 $ T '?XTLOG HLP + Ҝ+ ҝ+ ҝ g2FST ' 91751-17325 REV.2440' XTLOG -- interactive translator of the XPLOG "trace" file.   Usage : - scheduling XTLOG  &dJRU,XTLOG [,InputLu or Namr [,LogNamr [, ListLu]]]  InputLu or Namr = interactive LU for command input, or& Namr (both CI and FMGR identifier formats are accep- & ted) of a command file. ! The default is the scheduling terminal LU.!  % LogNamr = the LU of the device containing log information, or %& Namr (both CI and FMGR identifier formats are accep-&' ted) if a disc file is to be used as a logging medium.'  The default may be either % . 'XPLOG:XX if no working directory (WD = 0)%' . XPLOG.LST if the working directory has been set'   ListLu = LU of the list device. & The default is the input LU if interactive, otherwise && LU 6 is used and a hard copy generated (assumed LU 6& is a hard copy device).   %XTLOG can be run concurrently with XPLOG if logging is done to a disc file. %%However, XTLOG will suspend XPLOG until it makes a copy of the log file in%a temporary file.  %XTLOG should only be terminated using the "EXIT" command. Do not use RTE's%""OFF" command as this could leave any file accessed by XTLOG opened." $To cause XTLOG to break and terminate processing of the current command,$enter: &dJBR,XPLOG  %XTLOG will terminate the current command and issue a prompt, if in interac- %%tive mode, or retrieve the next command from a command file. The "BR" com-%mand is effective only on FIND, PRINT and TIME commands. %XTLOG can be run concurrently with XPLOG if logging is done to a disc file. %%However, XTLOG will suspend XPLOG until it makes a copy of the log file in% the temporary file  . 'XTLOG:XX if log file is 'XPLOG:XX  . XTLOG.LST if log file is XPLOG.LST /X25/CMD/?XINFO.HLP:::3:2:39 644 0 0 1000 5302751237 34441 /X25/CMD/?XINFO.HLP:::3:2:39 $ T'?XINFO HLP + Ҟ+ ҟ+ ҟ FST ' 91751-17330 REV.2440' XINFO -- Enables the user to examine the various RTE ressources  and internal tables used by DSN/X.25.   Usage : &dJRU,XINFO   The information provided by XINFO is a snapshot of all the  DSN/X.25 LUs, as well as the interface card (LAPB) status and statistics. XINFO cannot be used to modify any of the displayed  information. /X25/CMD/?XMOD.HLP:::4:2:39 644 0 0 1000 5302751241 34236 /X25/CMD/?XMOD.HLP:::4:2:39 $ T'?XMOD HLP + Ҡ+ ҡ+ ҡ FST ' 91751-17335 REV.2440'% XMOD -- on-line modifications of a network description initially defined% by XINIT.   Usage : &dJRU,XMOD  The interactive dialogue will start with the prompt: /XMOD:  &The answer to this prompt may be ?? or HE (for HELP) to obtain a list of all&!the XMOD commands. XMOD will accept upper or lower case characters. !/X25/REL/X25LB.LIB:::5:81:128 644 0 0 50400 5302751121 34522 /X25/REL/X25LB.LIB:::5:81:128 $Q AQX25LB LIB + Q+ Q+ QQ(FST N<<Xȝ 8$X25LB91751-12001 REV.6000 <920904.1443> /X25/REV6000/TXT/X25H.MAC <@AAXxȝ 8SAM_MGR 91751-1X300 REV.5000 <870116.1 921110.1001 /X25/REV6000/TXT/XTMGR.PASA@Z-x@@X1}ȝ 8XTMGR 91751-1X300 REV.5000 <870116.1 921110.1001 /X25/REV6000/TXT/XTMGR.PAS@ sjXTMGR  .ENTR ABREG PAS.NONCDSXLUEX ))A`ch_^]A \[`\!tPt((g),,0(rchs^]#\[`\!tPt()(+`|g,,kkP -..(`apc`{p^gp_fp]`bPt(@Pu(FPv(LPw(T(Zp`pd(Z`up``zpd(Zgp]p_`xpd,(Zp_`ypd,(Zjk##kAeepbipa(.@p#@絛@@Xȝ 8XLBMA 91751-1X301 REV.5000 <870116.1 921110.1002 /X25/REV6000/TXT/XLBMA.PAS@@@@Xȝ 8ALTAD 91751-1X301 REV.5000 <870116.1 921110.1002 /X25/REV6000/TXT/XLBMA.PAS@ 5ALTAD { :: .ENTR .LBT.MVW .SBTNACUGCHECKMOVEPAS.NONCDSVCENTRY_FETCH XNETTRANSFERXNVFY :NDDA( (MPnO(.`PP(`PP(`(.`PP( ()h6 ()`(..Qn(E`t(Cplh6HpN`OpmABNlV(E`D (Mh6 `XH iA`hA(Q@ s+3@@X'ȝ 8RPOOL 91751-1X301 REV.5000 <870116.1 921110.1002 /X25/REV6000/TXT/XLBMA.PAS@ FyRPOOL  **.ENTR .LBTCHECK_NET_AND_POPAS.NONCDSXNETTRANSFERXNVFY *VV//Axx( x(.hw6 @(`~x(.hw6 pvv/xx(.`}p``/p0hwH6 paA.0`JxyVh@zAw(@{;@@Xȝ9 8XLBGM 91751-1X302 REV.5010 <880718.1 921110.1003 /X25/REV6000/TXT/XLBGM.PAS@@@@X$ȝ9 8GSVCP 91751-1X302 REV.5010 <880718.1 921110.1003 /X25/REV6000/TXT/XLBGM.PAS@ >GSVCP c ...CFER .ENTR .LBT.MVW.SBTPAS.NONCDSVCENTRY_FETCH XNVFY .3/??A( (~`p`A@p(-`P(!`P(!`(-`P(%(-h6 @(-`(~``,@h `(@hzzP?@@  `$h H`h Hh6h Hh6 h HAhH6 hH6 `P(o(w`@@`A(~`@@`Az33""A(  @ 3@.@@X,/cȝ; 8MSVCP 91751-1X302 REV.5010 <880718.1 921110.1003 /X25/REV6000/TXT/XLBGM.PAS@ <MSVCP L jj|.ENTR .LBT .MVW .SBTGTNXT HDR_SEARCHNACUGCHECKMOVE PAS.BITMASK1 PAS.BOUNDINTEGER((PAS.NONCDSPAS.SETINIT PAS.SETINTERINITVCENTRY_FETCH XNETTRANSFERXNVFY jQQE''p'`(A@(#`V+`YA+(#`'(#`4+P(( ++("p'( `'p)`),Qȃ-HHA**p(`Tp)(F`:pYYp%Hh96 pZACZ;`@[A@UpM&@AASBB`ph6  ph6 h6  h6` ;Y.S(`YpZ,sZ(uEE`&L\0Lp&`YpZ,Z(`&H\0Hp&(``;(``;;(Y-S(`Y@T@ pZ@!([FE[EDC`@`Zxl ,Hl@ DD(`Y@U pm!(nAFEnEDC`@`mx ,HH@ (`Y@Tp`&D\Dp&`Y@UpZ`&\Zp&(`^;;(XY,S(XLL`Y@V@ pZ@!(V[FE[EBG`@`Zxl ,Hl@ (V`Y@W@ pm@!(VnFE8nEBG`@`mx ,H@ (Vh6`Y$$ JH@V h6 `YH@W (X`_;$g^BB8(5[An';;(;(`:p6`6@Xp7A9";;(`PU(`PT(`b;(`PU((h9@6  (`b;(;(`6@Xp8AÂ8";;ttZ==(`6@Z@6  (`6@Z@6  @\((ۈ`];(`6A@ZhI H;(`((h96 p`p!p   ;(`a;;(h96 `  <t!!=A9(  - @!S @Q@@X&ȝ 8INCAL 91751-1X302 REV.5010 <880718.1 921110.1003 /X25/REV6000/TXT/XLBGM.PAS@ 8INCAL q 22.CFER .ENTR .LBT.MVWPAS.NONCDSVCENTRY_FETCH XNETTRANSFERXNVFY 2DDA( (Gh6 @(`A(JKI('`JP('`JP('`JP('`(Gh6HpHh6 pv`Jpw`pu=Hu_`_ah` =DA o A( e@?@@X5ȝ2 8XLBUT 91751-1X303 REV.6000 <920904.1 921110.1005 /X25/REV6000/TXT/XLBUT.PAS@@5DDXsjmȝ3 8VCENTRY_FETCH 91751-1X303 REV.6000 <920904.1 921110.1005 /X25/REV6000/TXT/XLBUT.PASDxcVCENTRY_FETCH $$(.ENTR .LBT.SBTHDR_SEARCHPAS.NONCDSVCSEARCH$DD``pY`YpZ`Yp[`Yp\Hh^6p]AT]Vbhg6 h^6Hb(Sh^6 p](T]_`V_(.`lb(S`T@ka_Ph(5(Sa[`\@h@h@6 h[Hj6 ''ODH`lp]pU`[@iHU@ 8U8](Ic'lcd A^(V @@@XTȝ4 8VCSEARCH91751-1X303 REV.6000 <920904.1 921110.1005/X25/REV6000/TXT/XLBUT.PAS@ VCSEARCHm ((O.ENTR .LBT.MPY.MVWGTNXT NXTVC_SEARCHPAS.NONCDS(kII`p`(hh6p((EhH6 pA#((`(E@h6(E`@pA6h6HApA(E`(ghnn*I??@6 (g`@pAWh6 pc(g`(h6(h6 AphA6@`A@p`n))PApA`h()@JiDBBX"Bȝ5 8NXTVC_SEARCH91751-1X303 REV.6000 <920904.1 921110.1005/X25/REV6000/TXT/XLBUT.PASBy2NXTVC_SEARCH .ENTR GTNXT PAS.NONCDSMME''p(`,((#`((#-'*>@,p,`'P+(("`*A-- -1**p((`(p)`)2MAB3 A-.p,/p+0p*`Ap)( A @TAAXlȝ6 8HDR_SEARCH91751-1X303 REV.6000 <920904.1 921110.1005/X25/REV6000/TXT/XLBUT.PASAU aHDR_SEARCH%%%:.ENTR .LBT.SBTGTNXT NXTHDR_SEARCH PAS.NONCDS%II`_p[`[p\``h]]Ygg`Z(A@Y(`j`(Xh\6Hh\6 `\@6`\@6H `i]9]_`Z(X@YpY`Y(Ph[6 PZ(P@$$IL]_@YpY(?h[H6 PZ(X`k`a$=b A]^pZ( @1DDXsȝ7 8CHECK_NET_AND_PO91751-1X303 REV.6000 <920904.1 921110.1005/X25/REV6000/TXT/XLBUT.PASD/CHECK_NET_AND_PO++Sh.ENTR .LBT.SBTGTNXT NXTHDR_SEARCH PAS.NONCDSVCSEARCH+AII~p_A`p` `bpc`bA@c(X`_(X`cP((1h6Hh6 h6h6H `p`5`e``pah6(?p^(FFad^he`^(L11_I`^P(P`cpc(Wp_h6 H}(`_(]`~1SA||pd(fge @\?zDDXmPPȝ7 8NXTHDR_SEARCH 91751-1X303 REV.6000 <920904.1 921110.1005 /X25/REV6000/TXT/XLBUT.PASDtFNXTHDR_SEARCH  B.ENTR .LBT.MPYGTNXT PAS.NONCDSrrKAA`EpA`ApBhB6 DOpCDhB6ND@CD`B@6@(&`B@6ALDHMHD`B@6 (:`B@6  DHLAHD@DEJKFrlG AD(@mCCX.?Jȝ8 8NACUGCHECKMOVE91751-1X303 REV.6000 <920904.1 921110.1005/X25/REV6000/TXT/XLBUT.PASC@NACUGCHECKMOVE!!.CFER .ENTR .LBT.SBTNACHK PAS.NONCDS!qqA77`=p7`7@Ep8`>p9`9p:`:@Fp;A?=??(-7(`:@Fp<<7`7@E(,h8H6 h:HG6 (6?(1(4`I?(6`H?@qkA A=( @`BBBX Gȝ9 8ENABLNETWORK91751-1X303 REV.6000 <920904.1 921110.1005/X25/REV6000/TXT/XLBUT.PASBVAENABLNETWORK.ENTR PAS.NONCDSXNETTRANSFERXNVFY $$_|A@@( @(p))@A$8'BA??p(@ +BBX6}ȝ: 8GETNETWSTATE91751-1X303 REV.6000 <920904.1 921110.1005/X25/REV6000/TXT/XLBUT.PASBKrGETNETWSTATE.ENTR PAS.NONCDSXNETTRANSFERXNVFY %P>>Aqq( q(`|pYBYCqq(+`Ep`phF`p@xhG`p@yhH`p@zhI`p@{hJ(Ap`p `p@x `p@y `p@z `pSz>@{ r>s AoopB(@jHBBXȝ; 8XNETTRANSFER91751-1X303 REV.6000 <920904.1 921110.1005/X25/REV6000/TXT/XLBUT.PASBfXNETTRANSFERO.. "/.ENTR .MVWABREG CLRQEXECGTNXT HPRTEAPAS.NONCDSRNRQ.HHA``P(pAp((A`(p#`Մp+`ppph` p`@p@(S`A@pLrrHCCA(N(RR(f`@@p`A(b(ff`(nAsp`@p((`(r::&((A(    :@K ,,X'STAT91751-1X306 REV.5000 <870210.1121>, xpSTAT **.EIO. .IIO. .DTA. .ENTR .CPMXLUEX .EXIT ABREG *''mAm@opnhm`@'((U(/," STATUS LU ",I5," FULL STATUS ANALYSE {CNTL 6}")(~~ΉBBopk`plAkjijP((nhAH``jP((nh7H``jP((AnhWH``jP((nh~|| CCkH``jP((ڈAnhwH``jP((nh`H`jP((nhAH``jP((nh@`|``(5X," Bit 0 HARD ERROR {RTE6} OR SYS. ERROR BIT {RTE-A}") (5X," Bit 1 UNSOL. ACTION ENABLED {RTE6} OR HARD ERROR {RTE-A}")(5X," Bit 2 UNSOLICITED DATA AVAILABLE")(5X," Bit 3 SOFT ERROR")(5X," uu68zXXBit 4 CIRCUIT CLEARED - LINK DOWN") (5X," Bit 5 EOT INDICATION set when req flushed on Link Down") (5X," Bit 6 IN((TERRUPT PACKET RECEIVED") (5X," Bit 7 LAST REQUEST TIME OUT") uUrDD`iph`ipghgpg`h(nhAH`Ph(#(-AnhH*``Ph(1(;nhA8H``Ph(?(IAnh HF``PhXXR"K11(M(WnhA TH``Ph([(eAnh5Hb``hpAh0(|nhGyh`@X}``(/,5X," UNDEFINED PORT_") (/,5X," LU CORRESPONDING TO A PVC_")(/,5X," LU CORRESPONDING TO AN SVC WITH ADDRESS_")(/,5X," POOL LU WITHOUT A DEFINED ADDRESS_")(/,5X," POOL LU WITH A DEFINED ADDRE88|2''SS_") (/,5X," LU CORRESPONDING TO A PAD_")(/,5X," UNKNOWN PORT {DEC} ",I6,"_")88| AnhYAgH`KY(" LU FROM STATUS :",I6)  p  @@--XRWRT 91751-1X306 REV.5000 <870210.1121> -  WRT  EXEC.ENTR XLUEX ABREG vvFF@pJ("Q   `OpIA0PKKI4  `N (`LpICMIG (!v:K @0--XM[RDT 91751-1X306 REV.50 00 <870210.1121>-  RDT  EXEC.ENTR XLUEX ABREG ~~JJ@pS(%U     `YpR3ZTTR7   `X (`VpRIWRM ~M  ($AT @"B//XƓCHECK 91751-1X306 REV.2401 <870210.1121> / \CHECK  .. 1n.EIO. .IIO. .DTA. EXEC.ENTR .F6PA .EXIT STATCMPAR .DDT''T@[pTU(TpRUpSYhxXRS@`D99*(((/," LENGTH ERROR ON LU ",I5,/," EXPECTED LENGTH :",I6," RECEIVED LENGTH :",I6)9{ AYh(H`}( (" DATA EXPECTED :_") $$eAYVTU(Yh3@`$y3 (" DATA RECEIVED :_") <<?!!AYWU(TpRVWRQ`Q(\Yh>X`@<W>(/," ERROR IN THE MESSAGE ON LU ",I5) LLNr--AYh(H`AYVTAYh3H`AYWUހXY[Z(( (L   @+JC,,X~DSPL91751-1X306 REV.5000 <870210.1121>, xDSPL .EIO. .IIO. .DTA. .ENTR .EXIT **vOhvu`u@*;;ܰ))(/," LU ",I3," STATUS {OCTAL} = ",@6," TLOG {DEC.} = ",I5," {OCTAL} = ",@6) ;VBBP}(( hv)uH`u`|P|((AhvFHu`u`{㈈P{(('hvfu$`uH`zPz(,(6hvAzu3H`u`yPy(;(Eee<66hvuB`uH`vPv(J(ThvAuQH`u`xPx(Y(chvu`H`u`wPw(h(rAhvHuo`ued)``(5X," Bit 0 HARD ERROR {RTE6} OR SYS. ERROR BIT {RTE-A}") (5X," Bit 1 UNSOL ACTION ENABLED {RTE6} OR HARD ERROR {RTE-A}") (5X," Bit 2 UNSOLICITED DATA AVAILABLE")(5X," Bit 3 SOFT ERROR")(5X," uuBGXXBit 4 CIRCUIT CLEARED - LINK DOWN") (5X," Bit 5 EOT INDICATION, set when req flushed on Link Down") (5X," Bit 6 INTERRUPT PACKET RECEIVED") (5X," Bit 7 LAST REQUEST TIME OUT") u r >v @@Y..XWCMPAR 91751-1X306 REV.2401 <870210.1121>. I CMPAR  .ENTR ~~j AA@pU@pT( @p`@p`(>p`(8pS`@ThHU(488S(+`(<(>(`@UVp`~F @TVp`P(O( V @?9];;XMŠXINAS 91751-1X305 REV.5000 <870116.1353>/X25/REV5020/TXT/XINAS.MAC;CKNMR gGETXT {GTLGL oGTOPT TTF $OPSY .DST.ENTR .XLA .XLB @XTBL FMPBUILDNAMEFMPCLOSEFMPDEVICE FMPINTERACTIVEFMPOPEN FMPPARSEPATH LOGLU STRDSCT ?TTAA AAAA!,A3 `(`A; (W P(IP(I<<H(N(N`AQ V(eA] (e(eP(e(e<bgf fgWo n no 1//zU{x yxzJ Pv(yyhwz{?/@x8)))~~ ALTAD 9CHECK >-CHECK_NET_AND_PO"vCKNMR I_CMPAR GgDSPLB ENABLNETWORK)c GETNETWSTATE+GETXT I_GSVCP  9GTLGL I_GTOPT I_ HDR_SEARCH 5~~~ INCAL lMSVCP  rmNACUGCHECKMOVE'ZNXTHDR_SEARCH %T NXTVC_SEARCHIRDT <RPOOL STAT0wVCENTRY_FETCH gmVCSEARCH+WRT : XNETTRANSFER-:XTMGR ~  DEF .2040  LDA @.2040+1  STA .2030  LDA .2040+4 ! LDB .2160+2 " JSB .MVW # DEF .2130+3 $ NOP % JMP .2080 /X25/REL/X25DS.LIB:::5:38:128 644 0 0 23000 5302751122 34374 /X25/REL/X25DS.LIB:::5:38:128 $& A&X25DS LIB + R+ R+ R&m,FST ==Xȝ 8X25DSH91751-12002 REV.6000 <920904.1442> /X25/REV6000/TXT/X25DSH.MAC =@v@@Xȝ 8XLBMA 91751-1X301 REV.5000 <870116.1 921110.1002 /X25/REV6000/TXT/XLBMA.PAS@@@@Xȝ 8ALTAD 91751-1X301 REV.5000 <870116.1 921110.1002 /X25/REV6000/TXT/XLBMA.PAS@ 5ALTAD { :: .ENTR .LBT.MVW .SBTNACUGCHECKMOVEPAS.NONCDSVCENTRY_FETCH XNETTRANSFERXNVFY :NDDA( (MPnO(.`PP(`PP(`(.`PP( ()h6 ()`(..Qn(E`t(Cplh6HpN`OpmABNlV(E`D (Mh6 `XH iA`hA(Q@ s+3@@X'ȝ 8RPOOL 91751-1X301 REV.5000 <870116.1 921110.1002 /X25/REV6000/TXT/XLBMA.PAS@ FyRPOOL  **.ENTR .LBTCHECK_NET_AND_POPAS.NONCDSXNETTRANSFERXNVFY *VV//Axx( x(.hw6 @(`~x(.hw6 pvv/xx(.`}p``/p0hwH6 paA.0`JxyVh@zAw(@{;@@X5ȝ2 8XLBUT 91751-1X303 REV.6000 <920904.1 921110.1005 /X25/REV6000/TXT/XLBUT.PAS@@5DDXsjmȝ3 8VCENTRY_FETCH 91751-1X303 REV.6000 <920904.1 921110.1005 /X25/REV6000/TXT/XLBUT.PASDxcVCENTRY_FETCH $$(.ENTR .LBT.SBTHDR_SEARCHPAS.NONCDSVCSEARCH$DD``pY`YpZ`Yp[`Yp\Hh^6p]AT]Vbhg6 h^6Hb(Sh^6 p](T]_`V_(.`lb(S`T@ka_Ph(5(Sa[`\@h@h@6 h[Hj6 ''ODH`lp]pU`[@iHU@ 8U8](Ic'lcd A^(V @@@XTȝ4 8VCSEARCH91751-1X303 REV.6000 <920904.1 921110.1005/X25/REV6000/TXT/XLBUT.PAS@ VCSEARCHm ((O.ENTR .LBT.MPY.MVWGTNXT NXTVC_SEARCHPAS.NONCDS(kII`p`(hh6p((Eh((H6 pA#((`(E@h6(E`@pA6h6HApA(E`(ghnn*I??@6 (g`@pAWh6 pc(g`(h6(h6 AphA6@`A@p`n))PApA`h()@JiDBBX"Bȝ5 8NXTVC_SEARCH91751-1X303 REV.6000 <920904.1 921110.1005/X25/REV6000/TXT/XLBUT.PASBy2NXTVC_SEARCH .ENTR GTNXT PAS.NONCDSMME''p(`,((#`((#-'*>@,p,`'P+(("`*A-- -1**p((`(p)`)2MAB3 A-.p,/p+0p*`Ap)( A @TAAXlȝ6 8HDR_SEARCH91751-1X303 REV.6000 <920904.1 921110.1005/X25/REV6000/TXT/XLBUT.PASAU aHDR_SEARCH%%%:.ENTR .LBT.SBTGTNXT NXTHDR_SEARCH PAS.NONCDS%II`_p[`[p\``h]]Ygg`Z(A@Y(`j`(Xh\6Hh\6 `\@6`\@6H `i]9]_`Z(X@YpY`Y(Ph[6 PZ(P@$$IL]_@YpY(?h[H6 PZ(X`k`a$=b A]^pZ( @1DDXsȝ7 8CHECK_NET_AND_PO91751-1X303 REV.6000 <920904.1 921110.1005/X25/REV6000/TXT/XLBUT.PASD/CHECK_NET_AND_PO++Sh.ENTR .LBT.SBTGTNXT NXTHDR_SEARCH PAS.NONCDSVCSEARCH+AII~p_A`p` `bpc`bA@c(X`_(X`cP((1h6Hh6 h6h6H `p`5`e``pah6(?p^(FFad^he`^(L11_I`^P(P`cpc(Wp_h6 H}(`_(]`~1SA||pd(fge @\?zDDXmPPȝ7 8NXTHDR_SEARCH 91751-1X303 REV.6000 <920904.1 921110.1005 /X25/REV6000/TXT/XLBUT.PASDtFNXTHDR_SEARCH  B.ENTR .LBT.MPYGTNXT PAS.NONCDSrrKAA`EpA`ApBhB6 DOpCDhB6ND@CD`B@6@(&`B@6ALDHMHD`B@6 (:`B@6  DHLAHD@DEJKFrlG AD(@mCCX.?Jȝ8 8NACUGCHECKMOVE91751-1X303 REV.6000 <920904.1 921110.1005/X25/REV6000/TXT/XLBUT.PASC@NACUGCHECKMOVE!!.CFER .ENTR .LBT.SBTNACHK PAS.NONCDS!qqA77`=p7`7@Ep8`>p9`9p:`:@Fp;A?=??(-7(`:@Fp<<7`7@E(,h8H6 h:HG6 (6?(1(4`I?(6`H?@qkA A=( @`BBBX Gȝ9 8ENABLNETWORK91751-1X303 REV.6000 <920904.1 921110.1005/X25/REV6000/TXT/XLBUT.PASBVAENABLNETWORK.ENTR PAS.NONCDSXNETTRANSFERXNVFY $$_|A@@( @(p))@A$8'BA??p(@ +BBX6}ȝ: 8GETNETWSTATE91751-1X303 REV.6000 <920904.1 921110.1005/X25/REV6000/TXT/XLBUT.PASBKrGETNETWSTATE.ENTR PAS.NONCDSXNETTRANSFERXNVFY %P>>Aqq( q(`|pYBYCqq(+`Ep`phF`p@xhG`p@yhH`p@zhI`p@{hJ(Ap`p `p@x `p@y `p@z `pSz>@{ r>s AoopB(@jHBBXȝ; 8XNETTRANSFER91751-1X303 REV.6000 <920904.1 921110.1005/X25/REV6000/TXT/XLBUT.PASBfXNETTRANSFERO.. "/.ENTR .MVWABREG CLRQEXECGTNXT HPRTEAPAS.NONCDSRNRQ.HHA``P(pAp((A`(p#`Մp+`ppph` p`@p@(S`A@pLrrHCCA(N(RR(f`@@p`A(b(ff`(nAsp`@p((`(r::&((A(    :@K ;;XMŠXINAS 91751-1X305 REV.5000 <870116.1353>/X25/REV5020/TXT/XINAS.MAC;CKNMR gGETXT {GTLGL oGTOPT TTF $OPSY .DST.ENTR .XLA .XLB @XTBL FMPBUILDNAMEFMPCLOSEFMPDEVICE FMPINTERACTIVEFMPOPEN FMPPARSEPATH LOGLU STRDSCT ?TTAA AAAA!,A3 `(`A; (W P(IP(I<<H(N(N`AQ V(eA] (e(eP(e(e<bgf fgWo n no 1//zU{x yxzJ Pv(yyhwz{?/@x8AAX5:XINEF 91751-16008 REV.2440 <850110.1448>/X25/REV27XX/TXT/XINEF.MAC:::4:61:36 A=EQCHK "GTNXT bNACHK >XNVFY a.ENTR .XLA.XLB@XTBL EXEC  ggb88@(@@@@AJ!p  88(." XNET pg<<>!!=(SX:(J(SAP67:;(S(U(V=><b@@` `$ (l`(xYh[xXh`x_ $ (8Y(z(8X(r`\pX8__(r(``@](^h$ ( $ (ab`Z( (H (   @Ý( ()h6 ()`(..Qn(E`t(C/X25/REL/DVX00.REL:::5:36:128 644 0 0 22000 5302751124 34015 /X25/REL/DVX00.REL:::5:36:128 $$ B$DVX00 REL + S+ T+ T$/TFST ;;X` 8DVX00 91751-16001 REV.5020 <900124.1657>/X25/REV5020/TXT/DVX00.MAC;jCX00IX0000 #XACT $CSTB $LIST $TIME $UPIO $XALC $XRTN @XTBL XTLEN 0S88pK`pApBpDpF8pIP5(PU(`PO(ePM(ky(c`9VpC(:`IP(=шP<(=P.(/4P(3`0`*(8h<`(8Y>00Ycc#8,,pA(cpA(c4P(Ch(cY0*Yh`*pdP(Tpd(MP(ah<ʀ`d(ch`AhxA(cpA(cGe==`IPd(`IP(@P(LjP(`pSPU(`IP(h (P((@(`IP(P(H`(Hh僷pSpBDFF@(`h@ pSpHppM(`((D(pxpShSҀ(B(d(PU((pB`I/( `B (  (pBh*DD(h[(hH&[((x3`pM@%pN`@&pO@"pPpQ@pR`UpB XNET hB`D(`F( `A   88,''@ 8 \Upj |$c99XpS X(hSX(sX({(`P(`(XU(P(hxh&J8Jh-@P(P(P$(P#(`aP7```++(Y;p`0p`(`4(`6_ b(X`8J8J8JbL`X7J``#pB`pAhPҨdA`99p``EP(`c(`EpA`FpB`(`(0(`IP5(pF`R`(4P(8`(oP(P(`&3P(t@(@EEy "~'/_0,hEX0+`R(m(a(^pHa^(`ipS apT= (( R`TpT8S(5 a&(3F::pSh H (\hWHSH( (\hS j0m`(`R(apk0`UpH(l`Vmh h8(h h8(h h99h8(h h8(h h8(h h8(h as@h 8(h b(ψh"8&(``Xh-(`G(Ȉ(`ۂF77p0@s(`G(`Gs@hP"-`(7??  ?@@h h!8`p&(`G?s`GP(`(bE(a@(b ׈:hPh7x(`00p``(&`  `R@(`( >>_pDP(`hg`aPU(``cpc@PV(``pLp`c`d'0b0*]pCy(M4P(MрP.(RpL`N(M`bP((cP(P|X66(P(P(P$((P&(*`(-`dR`epH4P(l`(@P"(P(P(P$(P#(P!(~P (P((((`V(`V`dR`e (::@apS?0(S(ՁS(Ո`(`a `X` `(h#8(oP(h!8(h-h"8`(- `2V&(X:0X9;88(-`숈V`2RhdX(004P(@P(〈`d(`R0((-DÈ(`(`1R4P(0((-~~Q88(-(`('`R4P($&( Ҁ` ('4P(P(oP( ('`;`('h-(-`hRP(=(5Ȁ(<`H~ZZ!8))\h-`(-P(M`B\hA,Yi0Yh.P<(UhF (U`M`LpA`#pBH0P pZSg;;apCpDpF`pD(D`PM(PO(y(P.(P-(4P(P(`/`(pbpd0*](Ո\pH`(YpA\pBpF\\))`(h<H(pP((P(h<(pA`hL `p(pAhP`pˈ`P8j j\<<H`p`V?0pJ`UJ8J`J8J`pBhxTh'xSh 8S(h)xSh8T(`'pShc 8S(Pu<< P(h@#@( @#@xS (P( H#H($hSQ( P8&&Y30Y-Y4 Y?0Y8Y#3D@@@(K@E(QLXXRXXVk(hH!(hHij0,8[[HxPK(wH(PV8kk?pH`M((xX::pK(@Ĉ@  x `pS`pThSXM(XO(k(H @'(H(00H0H `2 `<H`ȈhSH&xS8T(( s (8yyw0kkT..pY;pTP0(Y>0Y`T(8pHhX/`X;`R4P((@hPhPh8P((`hX0`*k!! YYx 8h!??0_pX xYH(4(7`h`_X:p`9V`C(<`H (,] ׀X ׈:0+(<``h\&@(h](E@WxT++F`XhHTxFpGpEpH`Y(W`\h`+~~;\<<Y^^hE(i (nX(nX(n8cc`o?pS(`S-(X?PS(0X:0SX-h#h$8s4PY;P0~|<<(`(` xH`*`*c(`Xh<ʈ`hC (``Hb (@pHP(8(Y((Ɉ8Y0YY<]<<Z ((oP(bEaZbEPp1 a ZaZ(@@(-( P( `hC `pA`(`R`(KK-##4h`X(`M("@`("h`PU(&`R`(M(=`3@&&(8@8Kb4==UOR`p@P!(EP"(b(P(Y`a(T`a(`R`p(Y(bEpP@pS(zpTaZ`TaXS01o77 qP(yZa(`R`p&(@P"`P7 - AA[hP(P(Q@#@Qh-`((Ũ((ƨ((ԀX28ÀΈ4kk00P(P(㈈=P(ۈ(h-`(䈈`(@]pH,( +(`bP(P(P(( ^( p@`pk ( `*P( Ȉ(`@'/X25/REL/DDX60.REL:::5:13:128 644 0 0 6400 5302751125 33503 /X25/REL/DDX60.REL:::5:13:128 $ B< DDX60 REL + T+ U+ U RzFST AAXX'DDX60 91751-16002 REV.5000 <870219.1206>/X25/REV5000/TXT/DDX60.MAC:::4:354:38 A DDX60 V>>hxh 8(05`(6(P('P($0(1(1``h0pP(P(H`P~~><<(P(P(RP(RP(R(m`P( P( P(P((mp{ (s(s@(s`P(s`h (s(s (s`(sp`((`~5z>>`p` x`(`p`hx`(`h`(```(`((``(`y<<`(``(op{ (((P(((p`(߈`0̈`(op(@(P(p`( `V770`P(`0`( @`h(o (``hX`h(o`P(.Pш(0P(7P҈(7P(LPӈ(9P(9P(EP(VK+::P(Q(k`(lX(l(lX(l``(l (l`(l(l`X(l(jP(jЈhHre<< (j(l(k(o(o6&pppp P {hp``hp`P(`hX(P((0;; (0̀(($ ( `P( P( (P( ((l0 (lhX(ƈ(hH (@وp0`h`(0.>> (lP(P(P(P(P( (l0`@`È`h(l`h(lĈ@00::@NTY;;\i (l```(+``(.``׈h(l````h(lhH(l (K`#(K`x(Mh(l00m(lU@@0m(lh(lh`P(dP҈(c(gh(lh(l`P(uHm``hx@lD0H`   LL((#77p  ~@ MC 0 RS L@H;/X25/REL/#X25T.REL:::5:3:62 644 0 0 1400 5302751127 33101 /X25/REL/#X25T.REL:::5:3:62 $ BL>#X25T REL + W+ W+ WFST >>XM (%#X25T 91751-16003 REV.2440 <850121.1655> /X25/TXT/#X25T.MAC:::4:35:36 >&&eJ#XACT $XALC -$XRTN K@XTBL LXTLEN &t$ALC$MAXE $RTN))tp)p`p*`,pp( (p()**p( `)( H`@p`*p`8((''*"",+x) >p( (=p(="^@ `)(E@Hp8((II-@G\fko/ ji/.TT//sdTi/thȨk/}WjW-FW/PW-W-W/aW--s/a/as/sh4h/n܂&/s# /ms/sjk @ j//X25/REL/DDX00.REL:::5:47:128 644 0 0 27400 5302751130 33717 /X25/REL/DDX00.REL:::5:47:128 $/ BP/DDX00 REL + W+ X+ X/7FST 0SPSPARTITIONABLE ;;X{  DDX00 91751-16004 REV.5020 <900125.1112>/X25/REV5020/TXT/DDX00.MAC;1DDX00  IDX00 ||#XACT $ALC,$ATTN $CSTB $DIOC $DV1$DV11 $DV12 $DV13 $DV14 $DV15 $DV16 $DV17 $DV18 !$DV19 $DV2"$DV20 #$DV21 $$DV22 $DV4$DV5$DV6$DV8$DVLU %$IF5&$IF6|}}b'$IFTX $LUTA $Q.PV $READ $RTN@$SAMETC $SETM <$SMAP $TIME ;$UMAP $UPIO $WRIT $XQSB ..CAX).LDX0.LWD1 /.LWD2 8.MB01 7.MB02 9.MB10 :.MB12 (.MVW2.MW02 4.MW12 3.MW20 }?? 5.MW21 1.MW22 +.MWF*.MWI-.STX6.SWMP =.XLA2 >.XLB2 ?.XSA2 @XTBL OFTO ONTOXTLEN ?i99pw`Ppxp`wPPPQ`Rp~pnpPm(HP(`P(oP(u(k`jp`wPR(@PN(EPd(5PR(9`f`_(>hl`R(>9<<o0fp~(kHp~(kPN(KhV(k0_hN`_plPN(\pl(UPP(ihl`l(khQ`~hRx~(kp~(:`PO(:9u==`PP(qP(P(H`Pp P(`P߈( (܈DP(!D(!(܈`P(PO(!D)(!J)pp(܈@ÀHQvØ(€É*CCpÈp((!(@Qp̘(Ø@QÈHph(B(( P( ( p)`e( `@@!>> ( :( 69 (phP(:h(5HHhx9pPN(5XN(5`O(5X(5hx$pph9`OHHhx`p`p`Oh9(:`~h}}^k=TTPN `~PRPOhLPPhLPQhM@ @ @? _@yp}~~DD p X( hXO(X(( `p( `R( X( ( hxHhxyhQPO~77(PP(P\(P[(Pi`P(npQ0p`Q(`(` (`zXip|`hx`}ph888(`Zp`R ==p~hPApP`(*hx (*hr`P`PU(8`P(:`p~`p`O(`P(f(I`Pm(Ip`QH`P`N(OGIEEPN(R8g`P(PO(PP(c&hhH PT(@f@hi}ʃ ݈0bhXT@0a(`h(R`>>ƨ`p pm  R`p8( ]p H (LjhHH^ (h 0H `O`PƈQ;;p0`p@(`h(R䈈hUለhShOhULjhRhXhThThOለhQhShR99hRhVhRለhWhT(ThZ(2_VPV(,mPm(,0_RhO(T`a(H(N`Fpm@??V0U@^(N`V(N`hOPZ  V?@@hShY`PpU(`p`sPs({uPv(b((g~CC@^h ׈khPthixU(f0UpU`U- Wp}iua5@7  p y g   ) E>>a` s w}((HPe(L``TH (`M(L`OpO@|(L` pS`O-5`PH66'0N0(4`NP(7P(P(P(P(P(P((`P`Qp(@(}(d(|(|(((T(V(X(`(bT;;(b(bnv(bq(q`PhQ (v @w=n0?(z(w   (u(P M*==(u(iu(  `a(v0(``hPX(~r~p(}(`P(u"0T;;H"(И(D ((`pH("0H"((@(((qp( a(~  (p((P ((j 99` (i興(`U($((#hOyi((4y,V0hO(A (AH~t~ ##@ -`S` #S;;MpH`((((qP(zp(k(y(}y(}p((}((p4;;h p(pH`((~o~(ʈp(`(pNpP0(p(((ʈ(h CCp`( P (ۈP hP hP hP hHH(`((( (#@( hH  @ (( (H` @@@@@  >> ` qHn0HÀè` ` -`H$x (:5 @P(Mh@gJ??@`(C@@` (V(ZHH`(^(C~hPh8aao0i((tp |0u#}(@~~~dDD((#@4(HD0HnH8|8?(#@(5~H(&H(0Dn~>88~r0~`8(sp p(l0 (8h X` X up((}u((0CCh ` pk xf(p(BHA`( zvpm(G "(7"H"~  אv0!(Ghi( ~AA49Hc@dhj(P}`k`f(b`i( A}}1iXXf 6ojprnRfP`Vk~ONlPNOfPxdRXPOTQRWQZ\[Y 7 cs  yj  }K Z==pP_(VPV(Pm8` h( (XS(XT(8Qppl( Pl(`60dp`d(`5(`0_pt<<((`c((pP(40 k0ch[h\upPP@nPf(C`N(b`Q x`_`_(QXQ hl`Rh (bVY==VhOchd`P7%DHh'`xc` (q@pjPN(y8s((ሀ(8ss0l ((PO()). pPOpg )>> (ʈ}@(ʈc(ƈPN(ƈ`Qh `Op~ `O( F` J`N( Fph`PXO( F`(HP(@`( y@=P(h ( `h S??AH)P3 A K N((`P`N( Fh ( `PO( hc`Op`Pp G}PY( PZ( C( CPN( ( C( Cp HPO@pp  ( 9pX '??` IX0gPP( 8A) H g( C`V`Np Ga( C}PZ` GPP T XNET p PHh( ]( b@@`hPi`P, f?? T yᄄ( m1( n4  g yH( v1( wH5  pAJ6 /< yp ` /`  8    pPP( PQ( mP`(  鈀( hOc5a FFh`P( `P( 7 @ y`@H( hx@( p = A( `? Hp `p p ` hAH) 2    y@`@( P( p@A( p = H( P( ℤ( =? 8   , @@pb( /a( '`NP( P( P( @( /h( /p p p 1a( p p ( Ap 2 1( /( p 2 1( /a( !( /` h@Hp,( /`_PN~~H +@@( /( )`P Hp |x }#@@( xh@ppp` |( \( X`h(Q`SH( {h }( {a( ub( uQPO( z`~77 kh(QHH !@`P( {`Q( {`O 65( 8 `R 7@gLU,1001) (DESC(I),I=1,15),(DATA(I),I=1,3)  1001 FORMAT(15A2,7X,"&dJ[",3A2,"]&d@")  * Wait for the user's response  10 CALL USER_RESPONSE (LU,ESCBUF,1,6,DATA,I)  CALL UPSHFT (DATA,6)  #* If the user prense/X25/REL/DD*60.REL:::5:15:128 644 0 0 7400 5302751131 33530 /X25/REL/DD*60.REL:::5:15:128 $ BDD*60 REL + Y+ Y+ YJFST 0APA;;X2ȝ2 8DD.60 91751-16005 REV.6000 <921020.1811>/X25/REV6000/TXT/DD*60.MAC; DD.60 ~~$DV12 $DV15 $DV16 $DV17 $DV18 $DV19 $DV22 $DV4$DV6$DV7$READ $SMAP $UMAP .LDX.LWD2 .MB02 .MB22 .MBT .MVW.MW20 .SETP .SWMP .XLA2 .XLB2 .XSA2 +B17 ~!Ù,B26 -B30 .B31 /B32 0B33 1B35 2B37 4B3773B77 5B777776BIT1>BIT15 7BIT38BIT49BIT5:BIT6;BIT7<BIT8=BIT9D0D1$D10 %D11 &D12 'D13 D2D3D4D5 D6!D7"D8#D9 (M1)M2*M6 iHHDH0> hJH$0]`P(;P(P(P(P(=?^((H!P(ED P(+h(1`-DD0: (CP(C@(\`D([06@ (\(Sg6HEE`H `hJ h@ (Y([ 80P(uP(uP(uP (uP%(uP'(P(uD0; H(0>`%+D@&`(H`h^HJ`h HP(t@PHCCH(` P (6HHP!(6P(HHP(P(H(` P (hHHP!(hP(HP"((p (@(@"(` P(` h  (( (` (p`(H(`` CC@` Hx` D(@` ` hHx` @(H`hH`'(`` ` (` ( (``!(H``!(`FF`'(p ( @(+()P()()(+p`(5` D0=`'(p(F@@(FJP(Fp`@(gHH` P (]H`#`%@4"YDDDH0=`(fDD@`&H0>`"h(@ (s`#`+h X!`,h(` HHP(P,(HHP (P-(HHP0(P.(HHP/(P#(HP1(P ((`(X((X(`%~~9qAAHH`(@ (Ä`(`HX0(À(HP&((H+hH ((À(((ƨ&3p HppH P Hh@~HHpH`$H`h"( xHD3hXDD0;X07X%D08 HD `h Hh HX1(P("(D@0;@(W$(((F(ZP>(Z( (D@06&CC (hX((,(Ch.H (@H@/X25/TXT/CSTB.MAC:::3:11:35 < <$CSTB CSV66    @/((/X25/REL/#XCOM.REL:::5:1:61 644 0 0 400 5302751135 33552 /X25/REL/#XCOM.REL:::5:1:61 $ B=#XCOM REL + \+ ]+ ]QFST ==Xޘ %#XCOM 91751-16007 REV.2440 <850121.1657>/X25/TXT/#XCOM.MAC:::4:10:35 = I#XPLG @[!y/X25/REL/XINEF.REL:::5:4:127 644 0 0 2000 5302751137 34331 /X25/REL/XINEF.REL:::5:4:127 $ BXINEF REL + ^+ _+ _ FST ==Xk $9XINEF 91751-16008 REV.2440 <850110.1448>/X25/TXT/XINEF.MAC:::4:61:36 ==EQCHK "GTNXT bNACHK >XNVFY a.ENTR .XLA.XLB@XTBL EXEC  ggb88@(@@@@AJ!p  88(." XNET pg<<>!!=(SX:(J(SAP67:;(S(U(V=><b@@` `$ (l`(xYh[xXh`x_ $ (8Y(z(8X(r`\pX8__(r(``@](^h$ ( $ (ab`Z( (H (   @o/X25/REL/XFOEF.REL:::5:3:128 644 0 0 1400 5302751141 34154 /X25/REL/XFOEF.REL:::5:3:128 $ BXFOEF REL + `+ a+ aQFST AAXoXFOEF 91751-16010 REV.5000 <870120.1611>/X25/REV27XX/TXT/XFOEF.MAC:::4:102:39 A+-EQTEX LUSCD #.ENTR .MPY.XLA.XLBII|((`h (!`@(!@@@ II)BB)`+h) (n`)@(n@@p(p@`%p'* 8*8'(G,p'(W`(@"x'`(@#@`'@&(n`'@$+`'(n@p'* k8*8'(g-@Ϳ/X25/REL/XINXA.REL:::5:5:127 644 0 0 2400 5302751143 34205 /X25/REL/XINXA.REL:::5:5:127 $ BXINXA REL + b+ c+ c FST ==X )XINXA 91751-16012 REV.2440 <850121.1658>/X25/TXT/XINXA.MAC:::4:61:36 =PEQCHK GTNXT }NACHK =XNVFY HH $LIBR $LIBX $LUT# $LUTA $SMAP .ENTR .LWD2 .SWMP .XLA1 .XLA2 .XLB1 .XLB2 @XTBL EXECHkk99@(@@pZ f 88(* XNET pk__=44<(Up;Z ;fX8(L(UR4589(U(W(X<=pq r `qZpq`r A`q f_5sS}@@{ {$ ({(xthvxsh{xz $ (8t((8s(`wps8zz((`{@x(yh$ ( $ (|}`u( (H (  4 @q$ L =_Y]Y[cGQ{?^BY/X25/TXT/XNFOA.MAC:::4:56:36 =G,DVTEX gIFTEX LUSCD ^$LUT# $LUTA .ENTR .XLA1 .XLB1  FF?A`JJ (#@@ (#H@)`+) (a)@ (a`%p(* 8*TFAA8((A'p(@*8*`(@&(a`(@$+`((ap(@* 8*8((Z,AdJ`fd (Jd@@(@h`cp(e 8e8(55z('p(`(@&(`(@bf`((p(e 8e8((g5@p?[J[bex? ?[d[|ex? ?[~[/X25/REL/XNET.REL:::5:453:128 644 0 0 342400 5302751146 36211 /X25/REL/XNET.REL:::5:453:128 $ BXNET REL + e+ f+ fjvFST ;;X*ȝ & 8XNET91751-16020 REV.6000 <920904.1441> /X25/REV6000/TXT/XNETH.MAC;@ *AAX^#XGTAS 91751-1X030 REV.2440 <850121.1658>/X25/REV5000/TXT/XGTAS.MAC:::4:10:35 A XACTR  XOPSY #XACT $OPSY .ENTR .XLA\f\  @~>@@X_ȝ 8XRECEIVE91751-1X026 REV.6000 <920917.1 921110.1015/X25/REV6000/TXT/XRECV.PAS@@A;_@@X?3ȝ 8XRECV 91751-1X026 REV.6000 <920917.1 921110.1015 /X25/REV6000/TXT/XRECV.PAS@ XRECV J ``.DLD.DST.LBT.MPY CNUMEXEC MSG1WRITE MSGWRITEPAS.1 PAS.2 PAS.3 PAS.BLANKFILL PAS.NONCDSPAS.SEGMENTLOAD PDSUP XLUEX XSUSP `P<< pQpp`(+`(AP  o(&`A()$P  p  ()pو(+`p`(A`o@p:  A*<==AJJ(V`o@pAN  ϡAAJJ`ph&6 (h'6 p`P(p`Jp̪`Kp`mA(n(xu (  m`|y;;P}(|(`P(p(pnp`pp`̂!} (pΈ(h'6pn(`m( 7J m`A(P  o(`%#>>(P  p (p(A P  AAJJ`Jp̪ `pp`̂!}(p( pp`m( EJ mdpn`($~~((%HH(J CentralGet:something obtained CentralGet:nothing obtained CENTRAL GET: NO SAM`m(]`pp`@ 88(Vp J}`P} (g(p Jpy y~Nm;;z`(t(pp`mA(  m`(`؈P}((pp`mA( )  m($`m( nJ DDA  A   m4<`P}(Ɋ(`m(A D m`pSA R AAJJ`Jp̪`Kp`PvoCC((`̂!}p`m( QJ m(`P((`m( [J mA(g  jpΠ`m(& mJ m`pp`@/YYAp`~A@p 88(-AB I AP W A^  fmm At { A  C  mL^^(OFK p  XRECV:new req from PDSUP XRECV: more from DVX XRECV: IP1= Network= XRECV: Direct read to DVX XRECV: new request XRECV: no req fro22{nd""m DVX XSEG3 XSEG4 XRECV: XNETIBUF first 10 words: @p2@DHc@@X,ȝ 8XSEND 91751-1X026 REV.6000 <920917.1 921110.1015 /X25/REV6000/TXT/XRECV.PAS@ KVXSEND  ||C.DAD.DLD.DST.ENTR .LBPR .LBT.LPX.LPXR .MPY.SBTCNUM MSG1WRITE MSGWRITEPAS.1 PAS.2 PAS.3 PAS.BLANKFILL PAS.INLINEERROR PAS.NONCDSPAS.SEGMENTLOAD PDSUP XACTR | XLUEX XSUSP U@@`py`p`p`p`p`pA (`p(AA`m(`P(5P(-P(=P(EP(MP(UP(]P(e(m4fgh(p<fih(pDf@PPjh(pLfkh(pTfkh(p\flh(pdfmh(plfmh(ph`P(t(}Anxބ(pAxfjhAfIIIghfrAhfsf h m `P((nx(px`(`P((@Ԃ@AA(tAA(`P܈((@(pB!99ph6HHh6p*`@H`*H88(ڈ`@pAvP((} yz`zP((p`yP((qpS`(N`(`o@q[IIp(`p@ڊp`(%A#xRyn(4`A(M2xRynyA(M<zRAnnAJJ`K(MAHzAM(gAVzRnnAA@Q[FFJ`K(gAbogA jz`zP(o(q p`z!P(w(AA`P((A@A{`A}t}@A`m(fufJ+ m+V:WXXAQQpAARSpTpUp(     ,> KNORMAL COMP DIR READ COMP LINK UP LINK DOWN INTERRUPT UNSOL DATAUNSOL Q DATAEST CIRC EBBb//RR XSEND: EQT add= XSEG3 XSEG4 XSEG3 XSEG4 XSEND: FLUSH BIT  pB@6TCCX4ȝ  8PAS.GLOBALINFO91751-1X024 REV.6000 <921007.1 921110.1007/X25/REV6000/TXT/XNETM.PASC@4BBX~Iȝ  8MSG1WRITE 91751-1X024 REV.6000 <921007.1 921110.1007 /X25/REV6000/TXT/XNETM.PASBl0MSG1WRITE !!m.MVWEXECPAS.1 PAS.2 PAS.3 PAS.NONCDS!,AEF044[1`0(2p.80`0(8p/80.p`/hHAG(&4@_~@@Xeȝ  8MSGWRITE91751-1X024 REV.6000 <921007.1 921110.1007/X25/REV6000/TXT/XNETM.PAS@ MSGWRITEP .. .ENTR .LBT.MVW .SBTEXECPAS.1 PAS.2 PAS.3 PAS.NONCDS.Y??`ppXh6@XHh6p@XH` h6@XHh6p`X@@H`H h6H@XHh6p`X@و@H` h6@XHh6p`X@@݈@H` 55"6?h6@XHh6p`X@@݈HH` 8XA8(WYЀ5MMYM--ApYA`h`h`hA`hA`h(zrjbZ-<M@~>>>X)ȝ  8CNUM91751-1X024 REV.6000 <921007.1 921110.1007/X25/REV6000/TXT/XNETM.PAS> !CNUM ""3.SBTCNUMD PAS.1 PAS.2 PAS.3 PAS.NONCDS"((k`((`phH6`((((1%`(p8`( p8p(-(@q1??X-ȝ  8XMSGWR91751-1X024 REV.6000 <921007.1 921110.1007/X25/REV6000/TXT/XNETM.PAS? nXMSGWRT 77 `.LBT.MPY .SBTCNUMD EXECPAS.1 PAS.2 PAS.3 PAS.BLANKFILL PAS.NONCDS7I@@`(`@p ǡV`pp`@Ђ@6@Hh6p`Ԉ@@H`H 88(`(,(UA0h6H`H h6Hׄ` h6HH` `@FFp`ph6@HHh6p`@@H` 88(C^Vo(fAfV`@A( qzo(A  Ϩ aaG*33`(p8`(p8`(p8ppp( +  V %&'=LUa@PAAX\nȝ  8INGNRES 91751-1X024 REV.6000 <921007.1 921110.1007 /X25/REV6000/TXT/XNETM.PASA (OINGNRES  00 x.DLD.DST.LBPR .LPXR PAS.1 PAS.2 PAS.3 PAS.NONCDSXMSGWR0~~II`n @@gAAJ JYPh(HA JY`i J[A`I J]`k J_A J[Hm`(9A J[xLJxMZLM JaA`j Jc`l JeO~77P`O(QpN8ONpI(.;>8 <=7@1O@@XQw~ȝ  8EQTCLEAR91751-1X024 REV.6000 <921007.1 921110.1007/X25/REV6000/TXT/XNETM.PAS@ TEQTCLEAR << .DAD .DDE.DLD .DMP.DST .LBPR .LPXR PAS.1 PAS.2 PAS.3 PAS.NONCDSXSEND <ww FFAAIKAApKAOhHD   rOMpF MP{(!P|(!P}(!(9 Kt(((8ApF MA`} Mv`G Mx(;pF`FA(EEzIHGpTwOOU))`T(VpQ8T`T(\pR8T`T(bApS8TQAIRpHSpG(O@DDXWȝ  8FLUSH_MESSAGE 91751-1X024 REV.6000 <921007.1 921110.1007 /X25/REV6000/TXT/XNETM.PASDFLUSH_MESSAGE .. k.DCO.DLD.DST.LPX .LPXR PAS.1 PAS.2 PAS.3 PAS.NONCDS.bRRAAAp ( ( @Aވ((5(5 @A@AA AxAA HxA ` (<(jA A(j  @A@RPPAA AxAA HxA `怈p(5A (`( @AA  x Hx A`   x]]=;;A  `  @A A  (A A( (A    @A]GG~**`(눈p8`(p8AAAAހ(+) G@%rD2@@X`gfȝ  8LINKDOWN91751-1X024 REV.6000 <921007.1 921110.1007/X25/REV6000/TXT/XNETM.PAS@ (@LINKDOWN 33 /.DAD.DLD.DST .LPX .LPXR PAS.1 PAS.2 PAS.3 PAS.NONCDSXSEND 3UU877AA8:AAT:AA< :VX8YA7T :ZPe($A#X8\7T(6AA_:A ]A <a :c@UCC:A%%`@(Bp>8@`@(Hp?8@AA>8?p7(-, C@Ed??X6ȝ  8LINKUP91751-1X024 REV.6000 <921007.1 921110.1007/X25/REV6000/TXT/XNETM.PAS? j#LINKUP ++.DLD.DST.LPXR PAS.1 PAS.2 PAS.3 ((PAS.NONCDSXSEND +22AA A /12//A 3AP5(11//#2$$0$`#(%Ap"8#"A(,$@4%RDDXnȝ  8ESTABLISHCIRCUIT91751-1X024 REV.6000 <921007.1 921110.1007/X25/REV6000/TXT/XNETM.PASD5ESTABLISHCIRCUITX33 :.DCO.DLD.DST .LPX .LPXR PAS.1 PAS.2 PAS.3 PAS.NONCDSXSEND 3PPAAAp P(JA{A  ((E @AA  (1A (1p(8 @A`(E @A(E( (  @ A(N(Z wwPKK x A`( x x ( `A  ĈAx ``A( w88EQ""`(Ap8A( VT%8@˫kAAXȝ  8P1SETUP 91751-1X024 REV.6000 <921007.1 921110.1007 /X25/REV6000/TXT/XNETM.PASA :rP1SETUP M 55 : .DAD.DLD.DST .LPXR LINKDOWNPAS.1 PAS.2 PAS.3 PAS.NONCDSXSEND 5wRRAAA  A  (( @AAAA A  ɀx  A (~A (C(N `A A(} RSSP(U(m A  @AAm x  x (A P(( A  x  x <<Hj%%`(Ap8A(-+),<@^}OBBXȝ  8D1CLEANUP 91751-1X024 REV.6000 <921007.1 921110.1007 /X25/REV6000/TXT/XNETM.PASB]aD1CLEANUP **1.DLD.DST.LPX.LPXR PAS.1 PAS.2 PAS.3 PAS.NONCDS*_xUUAA[]A]m]oA]q]sA]u]wA]y]{A]}]A]]A]]@Ax_ _fUA]aCCLb++`a(cAp`8a`A[( +)C@9XFAAXwȝ  8D1SETUP 91751-1X024 REV.6000 <921007.1 921110.1007 /X25/REV6000/TXT/XNETM.PASA .rxD1SETUP  ;; 2 .DAD.DLD.DST .LBPR .LPXR D1CLEANUP PAS.1 PAS.2 PAS.3 PAS.NONCDSXSEND ;abTTAAiiAAk km mo oP(EP(P(6(K k@AsA oxu oAxv5suAv(K ksDs(K k(K m q ((=TqP(Y(h k@AoAgo(hx(22=y`x(zApw8xwAi(2@E;cCCX;=ȝ 8TIMER_TESTS 91751-1X024 REV.6000 <921007.1 921110.1007 /X25/REV6000/TXT/XNETM.PASCoTIMER_TESTS BHH  .DCO.DLD.DST .LBPR .LPX .LPXR P1SETUP PAS.1 PAS.2 PAS.3 PAS.NONCDSPAS.SEGMENTLOAD XSUSP Hiic55` A6( ` A@ (` A6(p5(p5(3` A6(1` A @ (1p5(3p5`57i8AA`7(9p687`0p5(` (E(p` p`@(` (R(` @@'ApA (c( P<( x7( H<`(z5yJJ( A  `;   Ap n H>X(ȝ # 8XNET91751-1X024 REV.6000 <921007.1 921110.1007/X25/REV6000/TXT/XNETM.PAS>&&J^PAS.1 PAS.2 oPAS.3 PAS.STOP(XNET&||.DST EXECINGNRES PAS.INITIALIZEPAS.INITMEMINFO2PAS.NONCDS PAS.NUMERICPARMSPAS.RETURNPARMS PAS.SEGMENTLOAD PAS.TOPOFSTACK2 PAS.TRACECLOSE PHASE_1_2_3 TBLBUILDTIMER_TESTS XDISP XLUEX | pbXRECV XSCH %(OO-/ A2O 5Di  :l`TP(>(PpA HA N(H`{(]ppAT88(Xppppp 8 :p2p5p6p7>wXXppʀ`(DP(H`(Hp({ F>> XNET 01: INCORRECT SECURITY CODE >> XNET 02: INCORRECT 2ND SCHEDULE PARM>> XNET 03: SAM TABLE TOO,5`` SHORT >> XNET 04: UNKNOWN PVC >> XNET 05: XNET SUSPENDED,SEVERE ERROR>> XNET 06: SAM DEALLOCATION FAILED >> XNET 07: NOT ENOUGH EMA. STOP XNET >> XNET 08: PDSUPX/`` GOT AN UNKNOWN TASK X.25/1000: RECOVERY IN PROGRESS X.25/1000: NO SAM X.25/1000 : SUBSYSTEM SHUTDOWN X.25/1000: XSEG3 XSEG4 XNET RESTARTED POWER FAIL LINK DISCONNo``ECT INTERFACE CARD ERROR NETWORK PROCEDURE ERROR RESTART RECEIVED CLEAR RECEIVED RESET RECEIVED RECOVERY IMPOSSIBLE NETWORK READY `` TRACING ON TRACING OFF STARTED INTERFACE CARD DOWN CAUSE= DIAG= VC=  @O  q @EdQ(BBXMȝ3 8XDISPATCH 91751-1X025 REV.6000 <920915.1 921110.1010 /X25/REV6000/TXT/XDISP.PASB@M@@XPK}ȝ: 8XDISP 91751-1X025 REV.6000 <920915.1 921110.1010 /X25/REV6000/TXT/XDISP.PAS@ uXDISP  || .DAD.DCO.DDE.DIN.DIV.DLD .DSB.DST!.LBP".LBPR #.LBT$.LPX%.LPXR .MPY&.SBTABREG CNUM D1CLEANUP D1SETUP EXECFLUSH_MESSAGE INGNRES LINKDOWN LINKUPMSG1WRITE |~~ MSGWRITE P1SETUP PAS.1 PAS.2 PAS.3 'PAS.BITDEPOSIT2 (PAS.BITEXTRACT2 )PAS.BLANKFILL *PAS.BOUNDINTEGER+PAS.INLINEERROR PAS.NONCDSPAS.SEGMENTLOAD PDSUP VMAIO XLUEX XMSGWRXSEND XSUSP ~;PPpppo`m(9`@pA))A)#)*A)19mP(=([{%@A$@AAAVPCCAZJK(4`PB(_(x`A(ljqpq(wAvrpopq( `m(`PA(()Jm`wppn`@npڄ`2n5cYYA@p8n8(A)r)uA)x){A)~m)A))A))AmLEE`(Aqpq(  rpq`q(4`m(A) m`u@u (.puA)'-(1`upu1;; pt(`(m`PA(;(mh6 #PD(m`A@l(L p(O` p`@p`p`@mpa (c(ipA`kp lp ff599(r XIO LU= XIO (write): XNETIBUF(( first 7: XNET: ** No SAM (XDISP) ** `kppp`zp`, @hpp pp.f /??`.(0p-8.-p,({"x%* (#P0(VP1(VP3(#P4(#P5(#P6(m(.`Apph6 A`S&%P0(jP1((`m@(w).nGGtJmh6H9A`U&%(A%xh6H:H&(h6DH:&%xh6H;&`xp`rp%A`1%hHl@A@(%CCHxA%`ԈA(%HmHx%A`%(A%x%A`%` p("`mA()mh6H9`VH&`tp2AA%A"AxA%}} ((J}%}}( ("hY+(%P3(8P4(h6HH&88(+(%P2(M(TJ`4pyyzp`spR`WpS%@A$ሄP0(%@A$ @1 0vOOp%@A$ለP((A`]pS%$  @A1p%h AAA%xRJKh6 @#(AA \ BFF`(ֈp8pʊ(JXSEG3 XSEG4   " " $% $删x `K A1p &% $H &x &% $` &A% $`KHx &A% $` &% $݊HK x &% $݈` & ' (OO(  |` {( TA% |$% @A ~A% |x AA ~A% |AH|x % |` ( zA% |$AHKx % |$` %@ |J!`KAHx % |Y wH!`   LL` ( p 8  p {( )  x x z%@ xAA |AA xAA ~% |% |p p wA% ~&M( A% ~&MP1( Ą( G% xP2( ( CA% ~] JJA( % ~( C` ( C  % z!0P0( ( A% z"0P0( ( % ݀( % ~H|x % ~݈A` % ( CA" H|x   (   HHP<( ( '% ~H|x % ~݈A` % ~&MAP1( C% z(0P0( 8( >% x( C% xA A ( h% x( N( [% |A% |`3Ap w( h% ( h**$G aA% |`3p w% ~x A t  w p  * SS(     % @A Ap %  % Ap % !A@ ( 1A% A( 1p % @H!x   'A % $N MM( % 倄( % p A% !A@ A( % ( ( % @H!x   'A%   A ( % % x A% ` % A% ' &LL( /% ( 1 ( % x % @H!AH x % ( HA ( % p %@ H!A@ ( % ߀A( A% x   'A%  rNN " p` A@( p  ( p  A% % ӈAx % ` % A ( % (      % @A A% ( ?? &&( % ( % A% $A(   A(    ? DD` ( Ap 8 A ( {*,%@,AA.%./0( "`@iph;6H9A`:&%.,>p`q0p`( Zp4p).5`)v2 AHH@|p7( K57p7`EA@)p8' W878)84( :*0%*( u%0ӈV( uA%0V@o( A%*,>p'`E@p(`'( p4Ap); DDAA*5`)@|p7A( 57p7`(@)p8' 878)84( ( p'`Dq0'Dp`@'p`0( `p`E@p4A' 4` A1@3p&J GG`7@&p`Ap%. 0%. x404%.瀀)0( h;6HA`2&%.xh;6p4`H4&`@1p%.瀀+0( h;6H&h;6`HH&`@1 EEp%.瀀.0( Ah;6HA`Q&%. ,>h;6p4`H`4&A%. (>h;6p4`@1H`4&`@2p%.瀀,0( rh;6HA`R& AA.$ဈ(Vh;6x YBBp4`HA`4& AA.$ሀVh;6p4`@1H`4&`@2p%.瀀-0( h;6HA`1&%. Vh;6p4`HH`4&`@1p`@@|ph;6H`&A FFAA.2A%2V( A@p%2V( p4Ap)AD20@)p7A( 07h;6p7`@)HH`7&8)A84( %2Vh& HHx`@vp%< DD,`1A%* hH((l@A@(%* Hx4%,`4( %* HmAHx4%,`4%,H|x4%,A`4%* x4A%*`4 `p &!%9  :DDJ( AA %  % 瀀/0(R`@iph6H9`>H&h6H:&`;p`p% .0(h6H`Q&A%  (>h6p `HA` &% r~DD ,>h6p `@1H` &`@2p% ,0(h6H`R&AA  A$Vh6p `H` &AA  A$(Vh6p `@1H` H&`@2pA% ~~kDD-0(h6H`1H&` pA%  A>p 'A %  $>p `pA' `@1p`@@|p`((h6H`H&`4@~ |p ~~Bq@@J(<{AJAA%P0(+P1(NP3(oP4(~P5(P6((`mA(8)5m`@vp%ӈJ`2 A% (`m~PII([)XJm%@A$(n%@A$(`mA(|)y!m9(`m()+Jmh6H9`E&`tp %Ӏw3IIP3((%x% x%``m()8Jm9(`m(A)DAm%$(A%$(h6H9VJJA`B&%(A%xh6H:H&(h6DH:&%xh6H;&`m(@hH6H:#pA%xA)QA)#W)*A)1,GG)8A@m`xp`rp%ӈA`5%hHl@A@(e%Hx%`(q%HmHxA%`ۄ%ff5>s99(A%x%A`% xA%`ۊ `p(ZAA]%x% x%`f}};\\( XDISP: P2 send Call Conf XDISP: P3 Wait Call Conf XDISP: P5 send Call XDISP: P6 Send Clear Conf XDISP: P6(P5) Send Call XDISP: P7 Wait Clear Conf XDISP: sendCLEAR XSEG3 XSEG4 };aJJ{"$%@$AA&AA&(AA &A$Vp*%$H*H|x`@v(`@vp%$ x*%$H*`p%$ `H`p%$ ~@@`H`(`p(`0p`(h.6 A`B&%&x%&/0(`@ipp!Ap %((U pp Ap%(&MP1((`1~~;;py`:p%@$JJ}yzp!h  x`@p(T%(ဈ&MP2(((`3pyA`:p%$}yzp!`@~0&@@Ap(T%(&MP4(1(C%&A%&h/6H:`@&`yp(T%(刈P|(J(Rh/6H:`9H&`yp(T`Tp(%&(eph/6H:`9&`yp(%fCC&(zph/6H:`<&h/6H;`9H&`xp(A%(x%& (>@-Ap%(p`A@(`pp (A%(x%(ဈ&MP0((gCC@p`A@(`Tp(p `A@(`Pp%&(%&`{`p%(&MP3((h A x` (`?p(p%&GGA(%$  p*%$ @@*h/6H9HA&(%$  p*%$  @@*h/6H9J&`@vpp%$ Hw`(/%$  x*%$ `*(4%$ `I3HH%&߀(D%$x*A%$ `*`!(MA%(`A(%&(YA%&A(n%&%&A%((mp `zp(` A1p*%(H*x*,{HHA%(`*%(倈`Hx*%(A`*%(Hx*A%(`*%&" x*%&"`*A%"x*JA*A%"A x*%"`*` A(%$"(`2(NKGGA%(A(%&x*%(`*A%$ Ax*%$H*`pA%$ `H`pA%$`H`(`p(`0p%$A`%"$$$ x*%"H*`((d`((N+$,DD(`JA{gA`Ap"gxpA%gee%@&JJ%(]JAiA%ixk.kh6 `A&A%iP2(l(IA%ipFFA({%iP0(}P1(P2((g`m(A)lmlh6HH9`M&`tJp (g`m(A)lAml%i$(A%i$(gCKHHh6H9`ID&%g(%ixh6H:&(h6H:A&%ixh6JH;&`m(h6H:#pkAk%ixkAk))A)sHH)A)m`xp`rAp%i`1%g(hHl@A@A(<%g(HxkA%i`kA(H%g(HmHxk%i)FGGA`k%i(XA%gxk%iA`k%g xkA%g`k `p(g%gxkk%g xk%g`k(I%i*P0((`m()@l3GGmlh6HH9`O&`tAp%i*%gxkk%g xk%gA`k%i$P0(A%iP0((`mA()lmlA%ixh6HHHH9`N&`yp`spA%i`1%gxkk%g xk%g`k(%i(+A%i$(I`m()lJml%i h6GGH9&`zp`tp%ixkA%i `k%gxkk%g xk%g`kA%i$%iA%g$xkA%gHk`(](de(d(G |)c(G 6VV(0 XDISP: Send Reset Conf XDISP: Wait Reset Conf XDISP: sendRESET XDISP: Send Int Conf XDISP: Send Int XDISP: SeJndRR{AA1%1//%&@JJ77~AA3%3,('A%35 5%3,JA/(.((77~~I8@@(`n(?`t(F`ppnpt(H`np`n @@.JJ{{Ah/6A`n&%(a%Հ(hA%(o7%(%$~44xx%H`(`npn` @n((H4ĉ``(9  'E K+ ;<=8$HI#G L.-,21"->@/+0 C)%?__,p  &X:( 9* #'@BCc44-Y$$dz?@@ @RSp4@BBXȝ 8XSCHEDULE 91751-1X027 REV.6000 <920915.1 921110.1017 /X25/REV6000/TXT/XSCH.PAS B@DDX&ȝ 8GEN_CLEAN_UP_LIN91751-1X027 REV.6000 <920915.1 921110.1017/X25/REV6000/TXT/XSCH.PAS D]GEN_CLEAN_UP_LIN@@ .DAD .DCO.DLD.DST .LBPR .LPXR D1CLEANUP LINKDOWNPAS.1 PAS.2 PAS.3 PAS.NONCDS@OPPJA{A  (J(. x  A  A  A  A  A :PLL A   @J (g( (  @ JJ}} (t(JA}AA  AA P%(( @ A((  ( ww+HHx  A x AA xA} A}(n  Hx A  A  !A #wNN88(T((L-,+).GHIJK:N@D>>Xȝ 8XSCH91751-1X027 REV.6000 <920915.1 921110.1017/X25/REV6000/TXT/XSCH.PAS > f XSCH: H.CFER .DAD!.DCO.DIV.DLD.DST".LBPR #.LBT$.LPX%.LPXR .MPY&.MVW'.SBTABREG CLRQCNUMEQTCLEARESTABLISHCIRCUITEXEC FLUSH_MESSAGE GEN_CLEAN_UP_LININGNRES LINKDOWNLINKUPiisMSG1WRITE P1SETUP PAS.1 PAS.2 PAS.3 (PAS.BLANKFILL )PAS.INLINEERROR PAS.NONCDSPAS.SEGMENTLOAD PDSUP PKTHD RNRQXMSGWR XPKT XSEND XSUSP XTMGR ieIIJA{JA}AA AA A%%(%(2`()`p(+pppApn(%`%`A%`A%%IBB`xP(VP(gP(VP(V("`%(a(fA%A(%!(A%#`%%x}"`(`(`p(pppOO8)) pn(`(`p(pppApn(% ((%A%'xA OlGG(`(Ҡ`x(`xP((ppppn(JA}AA AA%%("%`A%`%`%A%%%A%)%(%+%EE(}7@vA@;AA 7A$;(=pppJpn(5}Av%7-P(T`vP(K(N`p6(Pp6}6/%7(5%@7AA9%9dCCP(h(5A%9A(5%9`%90A%92%9+A(E45%76xH`vPA((%7 6 xHJH`p=`p6hA6@6HH#hB6AAp>`@6@HH`>'868=(`pMHhC6#P(P(PA(((`8A5((f/A5((j9A5((:5`p=p6hD6H@6H#hB6~BBp>`@6@HH`>'868=(hC6 #P(P(P( ((o75(( s75((w75((:5`p=p6hD6@6H#hB6p>` * @6@H`>H'868=( A? "@OO( M X.25/1000: REQUEST ABORTED ON LU CAUSE SYSTEM CLEARTIME OUTCOLLISION READ WRITE CONTROL pnpp}%-P(P(P(ddֺ..P((p(`p(%;P((`p(`p(`p(h)A%6 @p`vP((`@pdNN({}  %@AA"%(A%"P((%"(" `% A`% % A% % A%"%"2xh'6H$$5p$#$%"+(`ppp%$99y&J(%} (1(;%@}'AJB }BpppD9hKEII((}= %-PA(W(]%(vA%A(% (l(%@A$(`(A ?}(A ?}(J%{@Pffb44(%{@P((A ?}/(A% ?}A%-J(}("`A &9`P(`P(}fOOJ(F}AA=AA A% ?}A%-A(%%(%`A%0%2A%+%`AA A$`(%<7LL A(9%-P(#((%J}%A%'x A(%@AA%P(\P(\P(\P(M(%BA%A(%P(cyy@LbCC(q%-P(q $%`A%0%2A%+%DP(%DA%F%{HHx%{H `@p(yV>>(p} ((p(p`(pp`pn` @@J{J%{J}}%LP ((pv(%NP((`pvQU@@(%@J}J} (88(J} (`(`p( ppppn(JA{A%A(1%P("(.`((`p(*pp<-44ppn(JA}`p`pw`&px`wP(B(\%-P(I(\`(\py yz`p`pw`&px`wP(fP(o׎a88P(qP(s(ppppn(((`xP(P(P(P(P(P((?((%(D(((`(`p(ppp((  pn(h)`( ?}v(OO## (pL`@pP ? =܈ ((pLAJK`L(`pJQHO%;;(p/p <`/ @2{"{`@@P((p <(`/p/` <(`@/((` <(J%{P( (p >(`p >(`p >` >p ?p @11`p =` >(.h36 #(.J`/pn%{01*`1;;(Jp`p` @@J{J"{`@퀈@P(J(6`pp`@hHH88(Np >`(Jp <%{R}} (l(1 lEE` <(}= %-P((A% (A%;P((%(p <(A%}(J }(f` <(J%}6x(p >(17EEJ%{T}%}6P(%}@J}(%}(`p >%{T@AA ((1` >(1%-P( (0AJ!}(((%DD(0pp`(#`@(#@h ; $`@@(( `p("p(`()`p >(0%@A(` >p ?p @`p A`p =||i:EE` >(~h@6 #(~}= %V`A%XxJAA%;xA%Zxh6 p#%N`&9@`(~`p~s||==(4J  p`p` @{"{`@@PJ(({Ap >A%R`((%6P(%@AԀ(^LLA% (AJ}(`p >%@AA ((A%-P( Ap p ?`p @`p =݀h6 #(`P((` >(}= %OO7..A;x%\Ax%Z`%^xA%V`%;@AA%XxAAA%O??( > Jp ?`p @`p =h 6 @#(`p8?''(Jp ?`p @p = Ap`ݨ 'R ;;( p >p p `  @ {"{`@@P( (( +p ( .` p ` ( 7`@ ( 7( ` ( =`p >( h`p %@{JJ}` P( NP( VG K@@P( ^( f%@{TJ}( h%@{RJ}( h%@{aJ}( h`p >` >( p ` ( } ( v( } % 6P( ( p ( % @J} @@( m` ( `p >( %}( %}@A$P( `p >` >( `p `p ` @  8 8 ( ( JA} AA= A `p `p ` @@h  v AA; $ ` @ 8 8 ( A" p ` p E`  Ap `@ @@( ((p `p ` @@h A  AA $ ` @ 8 8 ( ` >p ?`p @`p = D ݨ  [ ==(  >p ` p ` @ @J{J"{`@퀈@P( 3( p >%@{RJJ}%}6P( JJ%}}( ` >p ? | WKK`p @`p =` >( h 6 #J( {AJ }AA =AA  A% % ;x A% ^x % VA` % ; % Xx  % \Ax % Z`    ?) >>( Jp Bp Cp Dp Ep Fp >p Lp <` L @ S{"{`@@P( ( p <( ` Lp L` <( `A@ L( ` <J( @%{# @@P( P( 7P( :( =p A{ M% MJ@J}JA} OA% O( *` Bp B% O-P( P( P( "P( &( *` Cp C( *` Dp D( *` Ep E( *` FAp F( *% OGGM , }} ( ( ?p A( ?`p A( ?p A( D`p >p A` >p ?`p @`p =ݨ QG RAAA(  Yc ` 䈀P( ]( `p ?( bp ?`p @`p =h 6 @#(  r A w< `( p p ` @ {%{d`H8 8 ( @[ JJ fp( (  JK A  H s` P( ( ( dg A A h( <   ( <A   iA( <  *W    g 44( TJpn`( ( ;`P( ( ;`P( "P( $P( &P( &P( (P( *P( ,P( .P( 0P( 2( 40( ;( ;㈈( ;( ; ( ; ( ; ( ; Q( ; D 3 ( ;`p ?`p @`p =݀ X0y YFF( {A % dP( P( P( P( l( %  Apn% j" x l ( A% A( % hH@A@( % Hx % m`` 33` ( % HAHx % m` % H`p( A% m% A% j`( A% % j` `NNφ //( Z  % @A A% `% 2A`% 0`% +A /A% -AP(  / Nu LL` ( Ap 8  A ( { p%@ p%AA rAA r AA t% r v% v!A% v" tP( cP( FP( c( l`P( J( T% p%@A x x( b%@ p%.. YAA x bo xA( o% p#( k pn( oh) z. {FF( %{J@J}JA}9A%9LP( ( ( A%9}} ( JA{;JA}=AA =AA?%;pHxCA%;p`C%=)HxC%=)`CA"?+( HHP( "?P( ʄ( %=)( %?xCA%?xD ?}CD(5%=@AAAAr =A$pC%ANHCHx6`6@(`6@p6%ArxC%ANYY_ --HC`p8%Ar`6H`p7%AN`6H`(*`87p8(-`807p8`8(5%A+EYEF;;( |`P(OP(XP(Z(\`t(U pn(Wpn( (  X( `n @|@J{JA{ A% (`P(vP(|(~A% j`( ( pn( @@`P(`(`̂&P((A~7`p(`'P((% tH`(% tA3(% t x % t` A`pΊ(`̂!~~><E),5K -8GL PN $" R.@(; iieonKKJ: /09KXSEG3 XSEG4  '5bcpi@̞@@X$ȝ( 8XSEG3 91751-1X032 REV.6000 <921028.1 921110.1021 /X25/REV6000/TXT/XSEG3.PAS@#PAS.2 PAS.3 PAS.SEGMENTRTN  @ݘ@@X.8ȝ) 8DITOA 91751-1X032 REV.6000 <921028.1 921110.1021 /X25/REV6000/TXT/XSEG3.PAS@ >DITOA  ddN.DDI.DIN.DLD .DNG.DST .ENTR .LBT .MBT .SBTPAS.1 PAS.2 PAS.3 PAS.BLANKFILL PAS.DOUBLEMOD PAS.NONCDSPAS.RANGEDOUBLE PAS.RANGEINTEGERd>RRA A  p("p A`6pA)!A#$&xh,A6`(@7H A*h-6p`@7H` @Ąp! uRFF(U(X`($pĀ`6A@(rh-6`@7HH P4(n(r`p(ZAy p`(h.6`@7H`5 `p`6A@Ą(`6A@ÄNN1Q))(h-A6`@7H A*h.6p`@7H` `p`pÈ(h6`.6  N22!!AA A( K  /0123456789 -K2@@@XPȝ* 8DITOCTAL91751-1X032 REV.6000 <921028.1 921110.1021/X25/REV6000/TXT/XSEG3.PAS@ DITOCTAL^  ll8/.DCO.DDE .DDI .DIN.DLD .DSB.DST .ENTR .LBT.MBT.SBTPAS.1 PAS.2 PAS.3 PAS.BLANKFILL PAS.DOUBLEMOD PAS.NONCDSPAS.RANGEDOUBLE PAS.RANGEINTEGERl<UUAyprAAuAw( AprwAA wA%wA sAAs6Hxh6H A6pAAu6Hxh6H`DuAAuwAA wAw (V77"U(]u(](]( `r(jhD6  ?h6Hh6`67..AA Aw( K 4Ky01234567.@K @@XVtȝ, 8XSUSP 91751-1X032 REV.6000 <921028.1 921110.1021 /X25/REV6000/TXT/XSEG3.PAS@ XSUSP  eeY.DLD.DST .ENTR .LPX .MBTCNUMDITOA DITOCTALEXEC PAS.1 PAS.2 PAS.3 PAS.BLANKFILL PAS.CHECKPTR2 PAS.NONCDSPAS.RANGEINTEGERPAS.STRMOVE ePP`XpX[Y`6h6 AX`X@ipX"A ,X`X@jpX3[Y`6h6 ADX`X@epX`XApP PAW FFAA AYpX([   octal : P A 79`lp I ` IpAA  `P`(؈Pa(->>Pb( Pc(Pd(*Pe(Pf(Pg((? J`rp I ͤ 79 I!` I@ep I(_" `op IA#;#9 I$` I@cp I(= ??A|% `nAp I(& `qp I&#;#9 I'` I@cp I(1% J`np I @A (P_(KP`(SPa([Pb(cPc(kPd(sPe({vHJJPf((R (Z (b (j (r (z ( ( (=9c?? I*` I@ap I(((+ `pp IJ@ A (P_(P`(Pa(Pb(Pc(Pd(Pe(Pf((A (A (A FF( ( ( ( ( (=9 I,` I@ap I(- `mp I(` IpAEE A!A (. `kp Ih  4 I; . `kp Ih JA G IAN(. `kp Ih  Z Ia:\BB0. `kp Ih K m It8. `kp Ih A  IA@. `kp I { IH. J`kp I }A#DD IAP. `kp I  I`sppX/ A`hp I 709 I1` IA@ap I]# #=9 I2` I<<1@bp I`3 @6  I88(AA 5< RR`( p8p(K p sw ()@:6><1  E  J  INVALID LENGTH OF NEW REQUEST FROM DVX, XNE-[``Ttlog = DIRECT WRITING TO WRITE RESERVED LU ERROR : CARD EMA READ COMPLETED IN REQUEST ERROR VMAIO WRITING DATA TO WRITE RESERVED LU ERROR : `` VC TIMER EXPIRED WITH UNEXPECTED X25P : P1P2P3P4P5P6P7P8 UNEXPECTED CASE OF X25P WHILE SENDING PACKET : P1P2P3P4P5P6P7P8 CARD I/O COMPLETED IN REQUEST ERROR XNETipwwPYY1 : REGAB.w.A : XNETstatus : REGAB.w.B : XNETtlog : NETWP : EQTPTR : VCPTR : XNETibuf[ ] :  .16:<>@w@CCXsȝ0 8PHASE_1_2_3 91751-1X032 REV.6000 <921028.1 921110.1021 /X25/REV6000/TXT/XSEG3.PASC``PHASE_1_2_3 bYY.DLD.DSB.DSTDTACH EXECHPRTEA PAS.1 PAS.2 PAS.3 PAS.BLANKFILL PAS.GETMEMINFO2 PAS.INITIALHEAP2PAS.NONCDSPRTNXMSGWRY~~9::` P( A A ` P(P(3P(J(Z`p  J" @JJ > N` Np ` Op A/  2(jp ` p s` @p o~:< p @2q@@X;[ȝ6 8TBLBUILD91751-1X032 REV.6000 <921028.1 921110.1021/X25/REV6000/TXT/XSEG3.PAS@ 6TBLBUILDc _~.CFER .DAD.DCO.DLD.DSB.DST.LBPR .LBT.LPX.LPXR .MBT.MPY.MVW CNUMDITOA DITOCTAL EXECMSG1WRITE PAS.1 PAS.2 PAS.3 PAS.BLANKFILL PAS.CHECKPTR2 PAS.GETMEMINFO2 --25PAS.NEW2S PAS.NONCDSPAS.RANGEINTEGERPAS.STRMOVE STRDSC XTMGR -ppEFFAu F@`o6hp6AqsA#-qs1F@`o6hp6ABqsJmlpmOO8l(F  TBLBUILD : new top of heap : octal : pP((p(A@A@A`((((`( AAЀ( ШYYC..`(ӈp8`(p8ш`(߈Ap8Apǀ(PD(( (A A ¨Y"^HH(  JJ@>AAJP@AÀ,QPI(9PJ(EPK(QPL(]PM(iPN(uPOA((JA(>Ap(JA(JAp(JA(VAp(J H_IIA(bAp(JA(nAp(JA(zAp(JA(p(`(P,QPI(PJ(PK(PL(PM(PN(rr>GGPO(( Մ( ( ۄ( ( ( ( A(( x  `m(  lr AA(>T`PpDpE EDs`E@DpE`-Ap`  .pG`m( -JJ@>AJJ@AAH<EBJ`6h6@:&JRRPAZAakoJ`6h6AJmA @Hl`( ppCII`Cs J@p{A`SpDA EDs`E@DpE`mA( H@J@HJ`6h6Am>JJl{YYxh6 pJ@YxhD6pYxh6 pAAYxh6pAAYxh6 pDYx]/JJY` xA/FAY`x/FY`AYxA Y ` Y` YxAY HHZ`pYyHHA`YA` AYA` AYxYHAHZ`ApY`Y` Y` YxAYHHZ`pՐHHY`AY`A AY`A AYxYHHZ`ApAY`Y`x,QAAY `AxVTA"AY$`x,Qa HHY&`xVT"Y(`xA,QAY*`xVAAT"AY`x,QY,`xVT"Y.`xV"sQKKY0`xV"Y2A`YY4AYAQ@6ApY8`Y: ppAY<A>YAxTAAYxY7NNAHxY`pAY`@G(p`GpBAATRA?RxAAT8((`B@݈ApB(YTxAAAYBxAAT`mPP(N AJH@AJJ@AAHJ`6Ah6 AAD%EYxAYAHxY`pAY`3:OOAp IFGmlNAYTY xAYH (Ax`@ApBT@A[A[A[`BA A[[x [~~G5HHT8((A`B@ pB(h`mA(Y xYHA x HAmYxYH (x`@~NNpBT]]]`B ]A]T8((`BA@"pB(`m(!AYxYH xA IKKAmYxYH`(/(8AYJxAAT(@YJx Y( YxAYH (Ax`@A6pBT@A7_A_`HA_`BA <IjJJ_A_T8(z(A`B@@pB(Y`mA(YxYHA x LAmYxYH fJKK(x`@NpBTOaa`Ga`B TaAaT8((A`B@YpB(`mA( "YӀxYHA x sJJMJm(AYxYxH (Gx`A@hpBA@TiAAccA`HcA`B Anc@cAT8(@(G@B@spB(`m~IKK(nQ6AYAxYH x AkJNm((YӈAxYxH (x`@pBTee`Ge`B ۡLLAee@AT8((@B@pB(`m(JAYAxYH x AJOmYPx Y  *xNN(xpBARTPg@YPAA[gAx[AAgx{YPxP8((A`B@pB(`mA(k H@J@H+J`6hP .PP6A9^CUJoATAVYx AfFWJmlkYAxYH  (xApB^~PPRXPiYP@A[AixAA[AiiAiJix{AAYAPxPA8((`B@pB(|`m(  AHJA@JJA@H QQAJ`6h6Az)AYAZYAxYHxA  F[mAl Y  ~~~ OO( expBA (2\Pk@YPAA[kAx[AAkkAkkxJA{AYPxAAP8( ^( e`B@pB( #`m(  kA@H~r nQQ@J@H |ȡA J`6Ah6 ] A ^AYx A FJ_ml @YP@ JJP`LpDY  ( xApB EDs`E@DpE JmPmm0Am``mb`Am`mÄxmdF MMAmdx`/Fp`)OY0AOmx AAm.m ` .pA{ATT A( K B < H A KT@A6A`Hmfе VLLxTT:xAAPm(xTm(U@G( p`Gp@TALL@ABhxT8@8( Am$xJATAm([`n TTTEAhx[AAmP`m( A H@J@H J`6h6A  j A AkAAm}}H) HH(UpA  Flm8( ( `B@]ApB( Y( #AYmxA ( YmxP`RpDY  ( xApB ?ED}P >JJs`E@DpEPzo2oqo0Ao``ob`Ao`odA`oJoxAAoAxo xh6 ApAq` IIA Aq` qAofx AAY,Qp`,Q@( AYA,QApoxLW0L( oÊx`,QAp`LW0 KKALox AAo.o o(xT`Xp`Gp@TALL@AhxT8@8( Ao$xJATAo([T@hx5 SS[@oAP`m( ~ ,AJH@AJJ@AAH = AJ`6h6A RAq Y cro,Qs@@p J oHHA {FuJm8( ( `BA@pB( 8Y( Yvx (:AYvxAAPA`IpD EDs`E@DpEYxHA`YJx[ KKAAYzxh6D p`HpDY  (:xpBA EDs`E@DpEPs2su{ws0A`Gs``sb`AsZl PPA`wxxsd`Aw[sox[sxAwAzAps `u`A u` Ausfx w,Qsz RKKpso,Q@A( qw,QApAsxLW0L( so,QpsÈxLW0Lsx s.As As@(x1x JJT`Xp`Gp@TLA@LAhxT8@A8( sJ$xTAAs([ThxAA[AsP`mA(0 H@J@ PPH A J`6h6A|  AA}s,QAs @p A-FJ~m8(3(:A`B@7FFpB( Y(IYx A(YAxPA`HpDA ZEDs`E@DpEh`A`GpDY  (xpB wEDs`E@DpEAP~~V*}PP@A1yAA2yAJ{{@A1}Ay0`Hyfx y`HA`yb`y`Ayd`Vy AyyAyyoxWy~CSSxAy {`A yx y.A{{A{{dA{ {A{{A{{x { HH},Qpyo,Q@(IA}A,QARpyxLW0L(]yo,QSpyxLW0LAyJ(xTA`XpXhLLJ`Gp@TALL[JhxTA8@8(jy$xTy(@A[J@T^Ahx[@yAP`m( AJH@AJJ@AAHJ`6NNAh6AA'y,QsmA@p Fm8((`B@spB(p8(ooo>>( `CwpC(`m(? JDJA@JAJ`6h6A(4!A2%Jm<JmoA"``(K# -7T(+  @)I   CEHdZq! | ``#$%&'(*+,-/9:GXF*VIa{LB RUYlEEXN P"  R jln Ȁ>  F {T ހP  V TBLBUILD : total heap`` size : octal : TBLBUILD : network table size : TBLBUILD : VCTBLs size : for total nb of VCs : TBLBUILD : total nb of PVC : TBLBUILD : total nb of SVCin : TBLBUʮ``ILD : total nb of SVCout ( DCE ) : TBLBUILD : total nb of SVC2w ( DCE ) : TBLBUILD : total nb of SVCout ( DTE ) : TBLBUILD : total nb of SVC2w ( DTE ) : TBLBUILD : PAD EQT tabLe size : for q``total nb of PAD : TBLBUILD : SVCwadd/POOL EQT tbl size : for total nb of SVC : TBLBUILD : PVC EQT tabLe size :for total nb of PVC : TBLBUILD : EQTTBL : pvc TBLBUILD : PVC buffer size : Effe``ctive inc. window : TBLBUILD : SVCwadd buffer size : Effective inc. pkt size : TBLBUILD : POOLSVC buffer size : Effective inc. pkt size : TBLBUILD : PADSVC buffer size :Effective inc. pkt s<<1**ize : TBLBUILD : total EMA size in use :  d<@$CP@@X*ȝ3 8XSEG4 91751-1X033 REV.6000 <921103.1 921110.1026 /X25/REV6000/TXT/XSEG4.PAS@#PAS.2 PAS.3 PAS.SEGMENTRTN  @@@XDrȝ4 8XLGPK 91751-1X033 REV.6000 <921103.1 921110.1026 /X25/REV6000/TXT/XSEG4.PAS@ AXLGPK M DD1 .DAD.DLD.DST .LBPR .LBT .LPX .LPXR .SBTEXECPAS.1 PAS.2 PAS.3 PAS.NONCDSXMSGWRD~~T@@JA{A `H xj`pk xm Axn xo`ΈP(#(P`((@mpm  xh6HH`Ŋ ph`HAH(? (Px~PP@((pih6HiH h6HhH`hph8i(N8(A`m@pi`A@p_ji(a(gpP##(5670 j #@@@@XE]ȝ6 8PKTHD 91751-1X033 REV.6000 <921103.1 921110.1026 /X25/REV6000/TXT/XSEG4.PAS@ 8PKTHD  ZZu .DAD.DLD.DST .LBPR .LBT.LPXR CNUMD MSGWRITE PAS.1 PAS.2 PAS.3 PAS.BLANKFILL PAS.INLINEERROR PAS.NONCDSXLGPK XPKTZ]BBJA {AA AA` ` A` ` A@($p ('` p ` A(/A@ ̈́(:`p(wpp` pA B@@`x݂/ `x݀ `A@ (\A (h,6H p`,P(i`p(w`̀( A`̀x݂$݀`̂!p Ӏ`̂%p ^@@( (`pЈ(`PA(( `%p (`pp΀` @+P((A `̈`P(`P((A A( `` @+$AAp(8Έ8(`P(( ``̂%p ҈(`PA(( `(A  xH݀`(x H`(GGG(w xH݀`(!x H`A(!(w xAH`(>AAx H`(>(w xH`JGGA([xA H`([(w (u P(t P(t P(t(u(w`p`(` m( - A  @@!!A m0` P((A`` (H(` m( P(]P(UP(P(P(P(P(P(P( P(P(P(=PP(%P(-P(5P(=P(EP(M(eA8"(hA; (hA=#(hA?$(hAC"(hA F%(hAK (hAN&(hA$T3!UU (hA,W&(hA4]%(hA<b'(hADg"(hALj((hATn%(hA\s((hAdw&(hDh xAq Ax}vHHA%  A! m ((p ` P((p `((p A`)`( Ap `%%r(p `(( p (p H%^^(0567>   ? XPKT:PKT HEADER ERR= DATA RR RNR REJECT CALL CALL CONF CLEAR CLEAR CONF RESET RESET CONF ||0) XPKT: PKT= VC= `P#' #$&'(|@Ih>>Xȝ  8XPKT91751-1X033 REV.6000 <921103.1 921110.1026/X25/REV6000/TXT/XSEG4.PAS> XPKT N.CFER .DAD.DCO.DIV.DLD.DST.LBPR .LBT.LPX.LPXR .MBT.MVW.SBTCNUMD D1CLEANUP D1SETUP EQTCLEAR ESTABLISHCIRCUITEXEC LINKDOWN LINKUPP1SETUP PAS.1 PAS.2 PAS.3 @@RnPAS.BITDEPOSIT2 PAS.BITEXTRACT2 PAS.BLANKFILL !PAS.INLINEERROR PAS.NONCDSXLGPK XMSGWR XSEND @ZZ55Ap5;9979툈P6((p5(@9A9`5((97((( ( `5(09?(4A ?@ZA99`@(Bp=8@`@(Hp>8@`@(NAp?8@=A;>p6(`P(^(a`t(P(e(h`n(`Pk(o`Pl(o(`Pe(|`Pf(|`Ph(|`݀PiJJ}z(|(`p(`Pd((`q(`Pd((`n(`ՈP]((`s(`JnBB`(p8`(p8p(Z{wwxymlyh6`6`(w xkh6HHpj(pj`P_(Ԁ(pk(AAwACCAxkAktjq`py``pih6@iHh6pz`g@i@H`zHh6H@iHh6pz`k@i@H`z8i8y(wxyyn`py`_pih6@i+ HHHh6pz`q@i@HH`z8iA8y(7mVo(??mV`lPb(C(hw(h P{AYm{렄o(h bA{hm{ h <<`(p8`(p8pmpl(Vtqn`pph6H88(`P]((`r`h(`pAJ{AAA$O@@Afp TÈfp S` T@ S ^p`@p`A@(`r`h(`@p V` S(("` VL0 SLp V` S@^("p`^pHnDDp@pA Vƀ`p8A8(  Z` T()(Q` ZL0 TLp Z` T@^(Qp`^pA?p@pK Z`p88ň(8`@pHT>> `†A@(ap Qp P(h6HHp Q`p`@ Qp`͆A@(y`r`hȈ(`p R`ˆ@ Qp`†A @̈́(p P (`@͈p`@(([[ܯ,,`x`hȈ(h6HHP]((p P(p Ph6`H`(pph6HHh6HH`pˆ88([ww77`(̈p8`(p8ʁ( ^P(`(`(`@(`(`(@(`@(`(`w;;`( p8`(p8`(p8pp(`Pf(#((`_`y(JhM6H RHhN6`(]P](5(A}*](A`j`z`.C_(J`t`yKLBB(}-](xhH6H Rp0`Pe(l(AAAA$fpAfpxD0ADx0(n@`_`y!!R (O`Pf((`_`y!OS (`Pf((`_`y%AA(}vv.](nh}6H RHpuh}6` RHpt`Pe(ψ(`u@(`u@(`t@(`t@((`_`z(v(fpzuAzvOgDDxzzH0uHzv,fpztAzvxzzL0tLz(m`tps`upt`spuvxx(fhu@(+`u@(+(9`u@c(ix(f@uxxq77<<A(ix,fht@(H`t@(H(V`t@cA(ix,f@t(ixxzzH0uHzAxxzzL0tLz(m`_`z(r`_`y{x|AAJ(}AALL,](DhS6H RpKhS6` RHHpJ`Pe((@K(`K@(@J(`K@((`_`z(AALA}pPKPFFAALAxPP0KPL(}pPJPLxPPH0JHP(C`JpI`KpJ`IpKLNN}hK@(`K@(( `K@^BB(?N}@KA(?N(}hJ@(`J@((,`J@^(?N(}@J(?N툈xPP0KPNxPPH0JHP(C`_`z(H`_~ME`yQ!!ZR (~`Pf(X(\`_`y]!^AA(T`Pe(c(r{@AJ}xAA` Q(x((h6H RHh6@h6(p Q(퀈`(wp`._p` Rp R`P](P^((` RA~~88@̈́(`_`r(`P](P^(P_((K(((`_`y(` RA @̈́(`_`r(`P](P^(ֈP_(P`(ڈ(({~<<RT(Q(](((`_`y(`_`y` R@p R`@ Q@p Q(t<yyAA`(p8`(p8`(p8p(_p;{ @A>`;(:> (#(:><< @ (2p;(9A<>(?y=k@EE`?(Ap>8?(@{ AA (T(AAAP](_(pp`(`@(@h AAAA@@((`p(p^LL(c`(A((( A(N@{AA ((AAAAAAP^(( @ (P((A(((AJJ(A A((AA  A((A ( @AAP^(P`(~(pp{`(3`@(3@@p@h ]OOA@(0`p(2p( `(; (}A`cAAxA A xA A!AP(}!eerj99A#{%Hx{%` @p(A'Ax  x (A e}}S@@`(p8`(p8(GP_((`oA`cA(x U` U(A` U`c(` PP]((?}( Z}II}} A(`xA`cJ(}A xAAJx}AAx U)` U(4A` U`c(JA}AAAAAKKP](KxA Z`@h6(xHh6p0@h6(pph6Hp @pA*88(kA t II`(Ap8A( ^  P_(( `cA `o ( {(  @A A  x A A x A A MM,,@ (  x    x {+Ax  '` ( A  ( (   M~~i# GG( c`( 5A cx e Ue` UA( 4 cx e Ue( 7p U` U( JA c` U cA`c c( bA c`_@ cAA f fJ{-( b~  apn h  iGG( { g i i@J}A i`h iP_( ( A i( p( `Pe( Pf( Ph( Pi( ( / iA`a i@ iAA i!Q JJP(  i!A i# g%Hx k g%` k @p( A ix k(k i`cA i i@AA i!P( A i! i#A g%( 99AHx k g%` k@p( p( O`P]A( (  g-`a`݈Ph( ( A/ iP\( +P]( LP^( hP`( Pa( ψPb( Pc( ( L`Pe( 1Ph( 4( : 3DD( F i`a( F ix kA k i`c i( O`Ph( P( V i`a( b ix kA"k i`c i( O`Pe( pPf( rPh( t(  (  h(  i wEEA`a i( A ix k$k i`cA i iP^(  i!A g%AHx k g%` k@p( O`݈Pe( Ph( (  (  i`aA i\[ GG(  ix k kA i`c i( O`݈APh(  ix k0k iA`c i( O`Ph( PiJ( ( A iA(  g-( Apn i! i#J DD g%Hx k g%` k @p( `(  g-( pn( O`Ph( #( KA i`a iA i!P( KA i! i#A g%Hx kA g%` k G @p( Oh~! l  mAA( j Lp L`aA L P\( P]( P^( P_( "( H`P\( P]( Pa( Pk( Pp( Ps( ( A L  Lp( Ap(  Lx R1R AAA L `_ Lpވ( K`Pk( ۨ`P]( ( J{-`a Lx R2RA L `_ Lpވ( ( K`Pk( 刈Pm( ( `݈Pk( ( J@ CC L!A L#{ N N%Hx R N%` R @p( !JA{ P`P]( ( A P-`aA( ! P-( ! pn( K`݈Pk( (Pm( 6( >A L  L99b 2( GA Lx R1R( G`P]( B( GJ{-`a( KhH! S9aa T99( n  3( { 3AJ{Ax A    z  (   `_A `vp  ahh ==( U  5P^( ( A 5 @A7P_( ( A    9 (   `_A `u pހ h^^_B ::( {    :@A A -`` ,f@ 'p  x   @x   ^ LL` ( Ap 8 A ( JA{ JA A BA( b D xA D` AAA 퀄( \ BA -`aA(  f hHH75P^( w(& (  @AP_( ( `P]( ( A -`a A`k  `_ p(%`ԈP]( (  FA 7X PP @AA  (%AHA(  DA x D`(% xA+` A(%+J(%AA ƧPPAxA+J` 7A  Ax %9( `P]A(*( F@ AA A@xAA (A P_(O(w ]PUU 7A  bEA  xA D`D(@ A A 7A( 7@ AA EA(   IQQ7(A 7 @AA  ( AHA( DA x D`(  xA+` A( +J))(  x@+AJ`)1DD( (`P]( (2A`s `_p(`H`pH`ApxAH`([`p(^[AA`0p`(|`P]J(e(j{-`a`^A `_pބ(``P\(P](PaA(o(}(}pLHH~~P@@x`@(`@pAL`H`p`@pL`H`(`p(`0pAP((`A(7P](~UFF(`@A(`((`P]((J{-`aA `_p(NA7P]("(n""DDAAA}pHHx`@(9`@pxH`p`H`p`H`(c`p(f`0p77]f`(n(NJ{-(| pn(h!7)CC({`D(Jx݈`P{((A- (pn(P\(P](>P^(r(ʈ`P|(P}((AP`cR`aްBBA(=TV`gA`_PA`bR`ax6(=Ax@{栈p l`(=p S`(`P\(P](Pa(Pp(}KKPs(( ( ((h!`(=7A /@AA /(`݈AP|(nTVxA((`_P`bAR90ZDDA`aAx6`P]A(h(m-`a(q(܈`P|(xP}(x(`P|(|(ARXA%@pAxA)~~_??AZ}} (( })J}}((`P]((-`a(-(pn(ܨ`P]((A-`aA(-( pn~W``(T+08  RN, P- G %>'@CE +ZZZJBB .;<=HL !"#%&')+,?@ABZ@0u@@XW Eȝ  8PDSUP 91751-1X033 REV.6000 <921103.1 921110.1026 /X25/REV6000/TXT/XSEG4.PAS@  PDSUP  J .DAD .DCO.DLD .DSB.DST .LBPR .LBT.LPX.LPXR .MVW.SBTCNUMEXECPAS.1 PAS.2 PAS.3 PAS.BITEXTRACT2 PAS.BITMASK0PAS.BITMASK1PAS.BLANKFILL PAS.BOUNDINTEGERPAS.INLINEERROR CPAS.NONCDSPAS.STRMOVE AA` = ` J } ` @ ` @ h /` @  ` @  ` ! ADDM(` = `  } ` @ ` @ h +` @  ` @  ` ! :DDD;(` = `  } ` @ ` @ h 0` @  ` @  ` ! XDDDY(<` = `  } ` @ ` @ h .` @  ` @  ` ! vD00քw(Z` h ` @  ` @  ` @  ` B 0MM.&&(x J(}J(  J x}AJ}JA JA } ׀x M77R (}   A  A 7~~`{AA(}   P (P ((` = ` A  ` @ ` @ h 3` @  ` @  ` !  (` -  (h 4~DD(}e  egg P (5P (>A(O(U 0 ?(ZA  >` P (^(d 0 2(i  @A (x` -  ለ` (z( ` A (h 7H{::(   P ((h 6H  (` @  ` @  ب:~~B@@(}3  355  !(׈@ɨ(؈()(0((((!(*(1(X(_(((* P (܈(h 6H ` h 6` H` Hh 6` @ Hh 6` @ ~~~U`@@HH` h 6` @ Hh 6` @ H` Hh 6` @ Hh 6` @ HH` #h 6` @ H`  ((` - 5 A5 (*:5 ` (*` @ ~3??@ Dp2` p/A5 `2(@(h 6H/H p1`1P (I([h 6`/H P (R(X5 0 <p.(`1P (_(ph 6`/H P (mA5 0 :p-(`1P r??(t(h 6`/H A(5 0 8p,(`1P #((h 6`/HH P ((A5 0 1p+`/@ p/`2@ Cp2(<`.-(`,(`+(` - 5 ` ??(*A5 ` (* P ((h 6HH ` h 6` H` h 6` @ HD5 刈 Ah 6` @ H` h 6` @ H` D5 刈0 ?h 6` @ z@@HH` h 6` @ H` h 6` @ H` #Hh 6` @ HA5  @`  (` - 5 ` (*:5 ` (*` - 5 ` (*X5 ` &0DD(* P (5(Kh 6H ` 'h 6` H` ,Hh 6` @ H` $`  (W` - 5 A5 ` (*v5 ሄ` (*@3 A x ` P 9(l(A3  ! tHH x 5 x7` ! p87A C08A73 @A A x A5 x7` # p87B C08AB73    x 5 x7` * p87C C08C7@3 qAAAA  Ax 5 x7` + p87D C08D7A` - 5 ` A(*5 ` !(* P (( h 6H ` D5 倈! P A((5 " P ((Hh 6;@@` H` Hh 6` @ HA5  Ah 6` @ H` Hh 6` @ HA5  >h 6` @ H` Hh 6` @ H` h 6` @ HH` #h 6` @ H=AAA5  @`  (h 6` H` h 6` @ HD5 刈 Ah 6` @ H` h 6` @ H` D5 刈0 ?h 6` @ H` h 6` @ H@~@@h 6` @ HH` #h 6` @ HA5 0 2`  (h 6` H` h 6` @ HD5 刈0 1h 6` @ H` h 6` @ H` D5 刈0 ?h @@6` @ H` h 6` @ HHh 6` @ H` #h 6` @ DH5 0 2`  ()` ` @  ` @ h ;A5 / P ((` @   ccL9-- ` @ A5 ) P ( (` @ h H H 2A5 ( P (("` @ h H H 1` @  ` B (*9cYY:&&(  } P (QP (YP (WP (UP (SP ([P (](_؈(_(_(_i(_(_(_9(_`Y~~ka@@(; P (pP (P ((P (.P ( P ( ( X}     ߈` @ `xP %(P &(P ((P )A((  (A `  (A ~GGA(  (A `  (A A(  ` @  ` @  ` @  (A ` @  ` A ( A ??(   (('}` ((J@ }J{p ` @ @J {((` p (` pnAJ  }A@ JJ (' >L'??(  p  `(  ` P C(FP D(DP (P (P (P (P "(P #( ( `( ` @ (aJA} AA  AA   `  (h 6H  "fGG(i`(}     ՈP (z(|i(` - h 6H  P (( ` A ( }     ` - A `  aII(   }(( ( ( JA} AA  AA   (A ` - ( }     ` -  ۀ( A(   (A ` S/EEA (  0  (   } ( J ( (  0  (  p  `( JA} AA  AA     倈! P A( 4( W  " P  ;HHA( =( W H Dx     O  ӈP (( R( W (  _   h 6  DMA q   ` *pIA y  `Ip    R   Ө Aa II` ( p 8 ` ( p 8 ` ( Ljp 8 ` ( p 8 (b -  % (K) MހZZ BB .A^c \ $@pZ@` @ h 3` @  /X25/REL/XINIT.REL:::5:321:128 644 0 0 240400 5302751147 35205 /X25/REL/XINIT.REL:::5:321:128 $A DtAXINIT REL + f+ g+ gAg1FST ;;Xlȝ6 8XINIT 91751-16040 REV.6000 <920904.1441>/X25/REV6000/TXT/XINIH.MAC;@MlDDXo6cȝ, 8PAS.GLOBALINFO91751-1X045 REV.5010 <880708.1 921110.1042 /X25/REV6000/TXT/XINMN.PASD@Pvo6??XF6Wcȝ, 8XINIT 91751-1X045 REV.5010 <880708.1 921110.1042/X25/REV6000/TXT/XINMN.PAS?''PAS.1 PAS.2 PAS.3 PAS.STOP(XINIT 'q.DIV.DLD.DMP.DST.FDV.FLTD .FMP .LBT.MPYCN35CONT_ABORT ENDLINE !EXECINIT_XINIT MESS_WRITER "PAS.CHECKPTR1 #PAS.CLOSEFILE $PAS.INITFILE%PAS.INITIALIZE&PAS.INITMEMINFO1PAS.NONCDS~~'PAS.RANGEDOUBLE (PAS.RANGEINTEGER)PAS.REALROUND *PAS.RETURNPARMS +PAS.SEGMENTEDMODPAS.SEGMENTLOAD PAS.TOPOFSTACK1 ,PAS.TRACECLOSE QUEST_ANSWERSTART_UP_XNET STEP0_INITSTEP1_INITSTEP2_INITSTEP3_INIT~BB STEP4_INITSTEP5_INITSTEP6_INITSTEP7_INITSTEP8_INITSTEP9_INITSTP10_INIT SWITCH_PARM XINHALT B/(VV%-$5$=$E$M3A+&PpbpppA[]_`bA(eg`PK(k(pAnpAArtAAv (|(~A~H~HH`" pC`CpD`D@PpE`Lp`E( A `PL((`E(AA ((D  `PLA((A D((  `PL(([MMAA ((A`C@S(`C@Sh`TA@(HAF`K@ADF)A'Ex`AOp`('`D@MApH  HA@(&@vsCCA`(NphA FA $F (.A *hDHM D/I(>`@LpH 9HhDHMHK(H`A@KpH DHhDHMHK`D@Q@V`D@R@V0U`V<<p`+p`@p`؈@p`C@S(p`C@S@L AJ@p`E@hEHKhEHMhEHNpڈ`E@K@ۈhEHMhEHNphDH6  pHAHZZ(`A(p`PI((A (_A##A##3AA,*A! 7 @d (@ANSWER_FILE 1LIST_FILE INPUT_LUOUTPUT_L@@ =**U XININ XINNG XININ XINVC CI.xx @A%@ I @Vuc(@@Xdȝ)' 8XINUT 91751-1X044 REV.5020 <891113.1 921110.1038 /X25/REV6000/TXT/XINUT.PAS@@FdAAXΧ)ȝ)( 8CONT_ABORT91751-1X044 REV.5020 <891113.1 921110.1038/X25/REV6000/TXT/XINUT.PASAxCONT_ABORT!!ӏPAS.1 PAS.2 PAS.3 PAS.NONCDSPAS.SETINIT !<<j pM`;.(('&%`;0p;(`;,((<7 `(p8( @??Xȝ)( 8DIALOG91751-1X044 REV.5020 <891113.1 921110.1038/X25/REV6000/TXT/XINUT.PAS? aDIALOG0 PAS.1 PAS.2 PAS.3 PAS.NONCDS22Ap`;,(`;((`;-(p`2d`p(  @` AAX,ȝ)) 8EXEC_ERROR91751-1X044 REV.5020 <891113.1 921110.1038/X25/REV6000/TXT/XINUT.PASAn}EXEC_ERRORNN C|.ENTR PAS.1 PAS.2 PAS.3 PAS.NONCDSPAS.WRITECHAR PAS.WRITEINTEGER PAS.WRITELINE PAS.WRITESTRING TEST_LINE_COUNT NDD`ypv`xpuJA r r rA rv ru`w(7(rA /r4rwJ r(9 r r`;*(_AEVVQRD11JA Q XvA _u`wA(sg nAsw}VMMw/~22Azzpy{px|pw( > EXEC ERROR : ON LU NUMBER : EXEC ERROR : ON LU NUMBER : M@BAAXDȝ)* 8CLASSMNGMT91751-1X044 REV.5020 <891113.1 921110.1038/X25/REV6000/TXT/XINUT.PASAv4CLASSMNGMT ...ENTR ABREG CLRQEXEC_ERRORPAS.1 PAS.2 PAS.3 PAS.NONCDS.dd..p0p.A /2<( (9:9:<Ap.9:`.( `9(,p0`/AP?('(*`B3(,`C3`04d5A11p/`@p0($? @[,yAAXfPȝ)+ 8XINHALT 91751-1X044 REV.5020 <891113.1 921110.1038 /X25/REV6000/TXT/XINUT.PASA .9XINHALT  AA LEXECMESS_WRITER PAS.1 PAS.2 PAS.3 PAS.CLOSEFILE PAS.NONCDSPAS.RANGEINTEGER PAS.TOPOFPAGE Aff77`7PO(F7GA IJGAGGrGG`;,N(!A!GG`;*N(2`;'N(- 2AGG6KG9f++<:`9(;p8898L7p7( j@+@~r2BBX4ȝ), 8LU_VERIFY 91751-1X044 REV.5020 <891113.1 921110.1038 /X25/REV6000/TXT/XINUT.PASBLU_VERIFY c CC .ENTR .LBT .SBTEQCHK MESS_WRITER PAS.1 PAS.2 PAS.3 PAS.NONCDS PAS.RANGEINTEGERXINHALT CCC `A@( A` X@pph6 b@ p`A@(<`A e@H@6 pHh6 P(5`p(;`pp`p(`(~`;+~~ɘCBB(~H(P`pp(}h6  q@ p`A@(}`A t@@6  ph6 H P(v`p(|`pp`p(Z(`(`~##p(AA` p`# ʴA`p(  T@Xzw:CCX`ȝ)- 8NET_ADD_VERIFY91751-1X044 REV.5020 <891113.1 921110.1038/X25/REV6000/TXT/XINUT.PASCzNET_ADD_VERIFY EE .CFER .DCO.DLD.DST .ENTR .MVWMESS_WRITER PAS.1 PAS.2 PAS.3 PAS.NONCDS PAS.RANGEINTEGERE mGGpqpr `rA@(5`r  @ t((,(,`r  @@@A v(0(,`rpr(4`prpq(`q(h`  @px Ax`LLbG**A  @@px Ax`  @pxAxt` pps(omps`szL&&{A y`yhA `ps(F+ t& T @xe%@@XN^ȝ). 8CNTRL 91751-1X044 REV.5020 <891113.1 921110.1038 /X25/REV6000/TXT/XINUT.PAS@ IkCNTRL  == W' .DAD .ENTR ABREG EXECEXEC_ERROR PAS.1 PAS.2 PAS.3 PAS.NONCDSXINHALT XLUEX =s[AApdj`p``cpf`b@ Ipep[w((ea`((  9 : 9 :bp[A$ 9 :`[(WP 9(+(.x(8` 9A@A(8yh` A zx`G==A|`_^A]\K 9 :` JP(O(Q` :j` J(V`\j(Ypd`dk=&&HlA ggpchpbipa`pd( & eF @AAXzȝ)/ 8XLCNTRL 91751-1X044 REV.5020 <891113.1 921110.1038 /X25/REV6000/TXT/XINUT.PASA >_XLCNTRL  == W' .DAD .ENTR ABREG EXECEXEC_ERROR PAS.1 PAS.2 PAS.3 PAS.NONCDSXINHALT XLUEX =~BBpW`xpQ`VpY`U@ IpXpLoXTQSR((  9 : 9 :UpLA$ 9 :`L(HP 9(+(.p(8` 9A@yA(8qhQ A rxQGtD B QPONM(JpW`W_//v9`A ZZpV[pU\pT]pS^pR`wpW( / d<w @?^`>>X9ȝ)0 8CN3591751-1X044 REV.5020 <891113.1 921110.1038/X25/REV6000/TXT/XINUT.PAS> y%CN35  55.ENTR CNTRL MESS_WRITER PAS.1 PAS.2 PAS.3 PAS.NONCDSPAS.RANGEINTEGER5<< p `;+7( -".!(Ap ` /Xp#` (123`#%<t&A$$p"`8p#(@RS 7 @>>>XCȝ)1 8CN3491751-1X044 REV.5020 <891113.1 921110.1038/X25/REV6000/TXT/XINUT.PAS> y-CN34  55.ENTR CNTRL MESS_WRITER PAS.1 PAS.2 PAS.3 PAS.NONCDSPAS.RANGEINTEGER5IIt&&p&`;+@( 7)('(`'PB(p&(p&`&A8up*`&($$:;<`*-I""}.A++p),p(`Ap*(" T@p @>>X1ȝ)2 8CN3391751-1X044 REV.5020 <891113.1 921110.1038/X25/REV6000/TXT/XINUT.PAS> yCN33  ++T.ENTR CNTRL MESS_WRITER PAS.1 PAS.2 PAS.3 PAS.NONCDS+..p`;+/( ((p)*+`. App`0p( / @)HF>>X.ȝ)2 8CN3291751-1X044 REV.5020 <891113.1 921110.1038/X25/REV6000/TXT/XINUT.PAS> yCN32  ++T.ENTR CNTRL MESS_WRITER PAS.1 PAS.2 PAS.3 PAS.NONCDS+..{p`;+,( $%(p&'(`.@ Ap`-p(p; , @>>XCȝ)3 8CN3091751-1X044 REV.5020 <891113.1 921110.1038/X25/REV6000/TXT/XINUT.PAS> y-CN30  55.ENTR CNTRL MESS_WRITER PAS.1 PAS.2 PAS.3 PAS.NONCDSPAS.RANGEINTEGER5IItP&&p&`;+@( 7)('(`'PB(p&(p&`&A8p*`&($$:;<`*-I"".A++p),p(`Ap*( " T@p @Y>>X1ȝ)3 8CN2791751-1X044 REV.5020 <891113.1 921110.1038/X25/REV6000/TXT/XINUT.PAS> x CN27  ++T.ENTR CNTRL MESS_WRITER PAS.1 PAS.2 PAS.3 PAS.NONCDS+..p`;+/( ((p)*+`. App`0p(? / @&Eo>>X.ȝ)4 8CN2691751-1X044 REV.5020 <891113.1 921110.1038/X25/REV6000/TXT/XINUT.PAS> x CN26  ++T.ENTR CNTRL MESS_WRITER PAS.1 PAS.2 PAS.3 PAS.NONCDS+..{p`;+,( $%(p&'(`.? Ap`-p(p: , @>>X6ȝ)5 8CN2091751-1X044 REV.5020 <891113.1 921110.1038/X25/REV6000/TXT/XINUT.PAS> xCN20l  KK 7h .ENTR .LBT .MVW .SBTCNTRL KCVTMESS_WRITER PAS.1 PAS.2 PAS.3 PAS.NONCDS PAS.RANGEINTEGERXLCNTRL K~GGp`;+(`(`JPA(((pA(`P("(b`(b(p`A@(5h6`H h6 A *hH6H hD6   +hee5 G>>H6H `(bh6D  0h6H h6  A 1hD6H i(sApr(Az(p`e//36A pA`h `p(!"/ 0@1]P>>X1ȝ)6 8CN1191751-1X044 REV.5020 <891113.1 921110.1038/X25/REV6000/TXT/XINUT.PAS> wCN11  ++T.ENTR CNTRL MESS_WRITER PAS.1 PAS.2 PAS.3 PAS.NONCDS+..p`;+/( ((p)*+`. EApp`0p(@# / @! ?>>XOȝ)7 8CN1091751-1X044 REV.5020 <891113.1 921110.1038/X25/REV6000/TXT/XINUT.PAS> w:CN10  11m.ENTR CNTRL MESS_WRITER PAS.1 PAS.2 PAS.3 PAS.NONCDSXLCNTRL 1]]%d33p7`;+L(1`N@5p4`6p6`JPL((!D643( p7 EFG(1(I6433(1p7A1EFG`7:]!!;A88p69p5`Mp7(8 ! L @CCX88ȝ)8 8ADEQT_ENTRY 91751-1X044 REV.5020 <891113.1 921110.1038 /X25/REV6000/TXT/XINUT.PASC=0ADEQT_ENTRY 11.ENTR PAS.1 PAS.2 PAS.3 PAS.CHECKPTR1 PAS.NONCDSPAS.RANGEINTEGER1]]--`p-`-p./ `-@6(`-@6p/A4($`-@7@p/A4`-@7p/A40]1A/( @ CCX8 /ȝ)8 8SWITCH_PARM 91751-1X044 REV.5020 <891113.1 921110.1038 /X25/REV6000/TXT/XINUT.PASC>$SWITCH_PARM 00w.ENTR .LBT.SBTPAS.1 PAS.2 PAS.3 PAS.NONCDSPAS.RANGEINTEGER0::x`!ph,6A *p h,6D*h,6 h,6` H*`p"`"$:<%A##p!(@DDXbȝ): 8FLOW_CNTRL_QS 91751-1X044 REV.5020 <891113.1 921110.1038 /X25/REV6000/TXT/XINUT.PASD*(FLOW_CNTRL_QS hhI .ENTR .LBT .SBTCONT_ABORTMESS_WRITER PAS.1 PAS.2 PAS.3 PAS.CHECKPTR1 PAS.INLINEERROR PAS.NONCDSPAS.RANGEINTEGERPAS.SETINIT QUEST_ANSWERXINHALT ho@@` p`p`%p`&p ".M(䨈`PN(PP( PQ(:PS(F((('"*M(1!676`!"""/M(9 ^@ (!678S@>>"0!"'(`@OAp!`!9Ha0!H(Tp!`!A9La0!L`'"*M(r@!676`!"""/M(z 0[ `PN(~(K~??`@Op!`!A9 La0!L(Tp!,T@!((`'(HhU `;p`=p"-M( A`PN(PP(PQ(׈PR((ޣII(( ")M(+!67?`!"""/M( `@ ( 4!67@"0!"( `@6 A `A9 `@6  AA:hH 6 ")M(@>!67?`!"Ԥ@@""/M( 0Y `PN((`@ A6`AG ( hV `A;NpA`=Op",M(6䨈`PN(@PP(BPQ(ZPR(d(((ǀ"(MF??(Qd!67C`!"""/M(Y _ (@m!67D"0!"(`9ra0`PN(p({`9vDa0D(Tp!`!9xDaCBB0!DTp`A@($Tp`A@A(CEFA`H p("(M(@!67C`!"""/M( 0Z (hW ??`(1`刄PM((J`;p`=p"+MA(`刈PN(PO(PP(PQ( ((("'M(@!67K`!""`PO((  // 0] (  \ (!67L"0!"(hX (/TTj)99A "#;p$A=p( k / @ I @T@$CAAXJȝ* 8CU_MRC_ARC91751-1X044 REV.5020 <891113.1 921110.1038/X25/REV6000/TXT/XINUT.PASA((CU_MRC_ARCOO 6.ENTR .LBTPAS.1 PAS.2 PAS.3 PAS.CHECKPTR1 PAS.INLINEERROR PAS.NONCDS PAS.RANGEINTEGER PAS.SETINIT QUEST_ANSWERO~~@@`p؈`p`pڀ܂/(Lᨈ`P(P(+P(5P( (I((LDh6 ڈ0(L 0܈(L܂,@(E ~|5@>>`܈(Hڀ(Lh  A` p܂.(\䨈`P(fP(hP(hP((((܂+(w ``刈P({(ڈ0 v~@@(ڄ( #܈0(h  `A *p׀܂-(`P(P(P(P((ш((܂*( ?`܊`P(33+(0 ڈ(ڄ( I܈0(h  3JJW..A pA pք ؈p(k  &LJ@v6EEXdȝ* 8DVXDFLT_PRINTER 91751-1X044 REV.5020 <891113.1 921110.1038 /X25/REV6000/TXT/XINUT.PASEYRDVXDFLT_PRINTER ''ENDLINE MESS_WRITER PAS.1 PAS.2 PAS.3 PAS.NONCDS'$IIAUVW`KPcA( (UYW(AUZW`KPc(AU[W`KPc(!(&&UA\W+U]W`KPc(/(54U^W(::U_W`J(P`KPc(A(PFUA`WKUfI AaWPUbWR*S8R( NPOQSTWVXYZ @-sAAXpȝ* 8DVX00_CONF91751-1X044 REV.5020 <891113.1 921110.1038/X25/REV6000/TXT/XINUT.PASAB(DVX00_CONFmee7.ENTR .LBT.SBTPAS.1 PAS.2 PAS.3 PAS.BITMASK1 PAS.BOUNDINTEGER PAS.CHECKPTR1 PAS.INLINEERROR PAS.NONCDS PAS.RANGEINTEGERPAS.SETINIT QUEST_ANSWERe??` p`p`'p`@\p`npp`@6`A ;@oHH`_`@Y@6`A ;@oHH`_8A8(/=>`刈PW(3(4(Hh6Pa(:(C` `~~?@@@Y (`(fpph6` ?@oHD Ah 6p` ;@oH`88(KkC>䨈`PW(o(p(h6Pa(v({`@Y (`~oos66(pph6` ?@oHD AhHY6p` ;@oH`88(DE䨈`PW(PY(PZ(((((`W(hdH ol<<8(`@ p`p`'p`@\p`PY(PZ(P[(pP](M(z`~ !(`~ ,H#@ (@;F`##`PV(PW(PX('PZ(5(IF33`KP^(( `PY((h0i( h0j(`PY((h0j(h0i(L`PY(("k0g(&k0c(L`PY(+(0{ ,??l0`(4l0b(L`PY(9(F`J(E@`PW(D(E((H(Lhe @(}`~ !(]`~ ,H#H@ (g;F`##`A G++km0(};F~#0#(}hf +_CCA IpA Ip~(#.V(`KP^(! (`!Ap"" `刈PW(((;  >> XINIT STEP : YES NO : X.25/1000 initialization program$NOT type 3 or 4$Write protected$FMGR W``error = $Invalid RUN string option$already exists$Not enough room in XINIT partition$XINIT must be run on RTE-VI / A$XINIT must be run non-session$No class number available$Not enough or no SA``M available$Unable to schedule XNET$Invalid XNET program$Not even a page in XNET EMA$X.25/1000 already active$XINIT must be run from the system console$CLRQ error on Class number deallocation$``Unexpected End Of Answer file$ABORT on user request$Character answer expected$Numeric or Yes/No/EX/PC expected$Number out of bounds$invalid character in answer$EQT numbers not contiguous$Too m,w``any LUs specified$Duplicate LU number$Duplicate EQT number$Undefined EQT/DVT address $Exit and no network defined$Reset OF LAP_B card failed$LU failed port configuration$LU failed driver confiB``guration$LU failed LAP-B port configuration$LU failed enable prog scheduling$LU failed secondary prog scheduling$LU failed network buffer configuration$Answer not found in table$ABORT on inval7``id answer$LAP-B configuration failed$LAP_B board status read error$T1 entered is smaller than minimum allowed$INVALID LAP_B board type$Invalid network address$Duplicate network address$Invalid`` CUG number$VC number overlap$No Virtual circuit defined$Thruput class val. > max for line speed(($Invalid LU number range$XNET EMA not big enough $ words missing$error in deallocating buffer R{D``EBOOT$error storing data in SAM$String entered is too long$WARNING : answer file needs updating$Space(s), >, or CR entered$LU failed Timer T3 initialization$Incorrect Security Code$LU failed fUUW``lushing read data$LU failed line closing$Error while closing Network Link$XTBL could not be deallocated from SAM$can happen if XNET class number already deallocated$LU failed setting program a``ddress$ $X.25/1000 global parameters$Network global parameters$Network level II parameters$Network virtual circuits definition$Flow control subscription parameters$SVC optional facilities subs``cription$Virtual driver configuration ( Host to Host )$PVC LUs specifications$SVC W/address LUs specifications$POOL SVC LUs specifications$Host to PAD VC LUs specifications$X.25 LEVEL II DEFAUw``LT PARAMETERS :$X.25 LEVEL III DEFAULT FLOW CONTROL :$VIRTUAL DRIVER CONFIGURATION DEFAULTS :$- Flush data on circuit failure$- Set EQT down on circuit failure$- Prog sched on Unsol data : ``NO$- Prog sched on Unsol data : YES$- Send Read conf on all requests$- Custom subroutine entry number 1$- Custom subroutine entry number 2$- Prog Sched on Unsol events : NO$- Prog Sched on 7``Unsol events : YES$- Primary program name : CI.xx$- Scndary program name : None $- Program renaming: ENABLED$NETWORK INTERFACE CARD TYPE : $FIRMWARE REVISION CODE : $BIT RATE SWITCH SETTING: $"``YOU DEFINED : $ SVCs$YOU HAVE : $ SVCs LEFT$AMOUNT OF SAM REQUIRED : $ WORDS$AMOUNT OF SPACE NEEDED IN EMA (XNET) : $ WORDS$FILE : $ Target Operating System : $RTE-VI$RTE-A$END XINIT$REWRITE v``(Y/N) ?$TARGET OPERATING SYSTEM (VI/A) ?$X25/1000 SUBSYSTEM SECURITY CODE ?$X.25/1000 WRITE RESERVED LU # ?$DEVICE DRIVER DDX60 ENTRY # ?$DO YOU WANT TO SHUT DOWN X.25/1000 ?$NETWORK TYPE (NAM,d W``E OR /E TO END) ?$ACTING AS DTE OR DCE ?$X.25 NETWORK WRITE LU NUMBER ?$NETWORK BUFFER REQUIRED (Y/N) ?$LINE SPEED ?$TIMER T1 ? $ msec$# OF RETRY N2 ? $ times$ACK COUNT K ? $ frame(s)$_ ``TIMER T3 ? $ min(s)$MODEM SIGNALS TIMER ?$ sec(s)$LOCAL NETWORK ADDRESS ?$PERMANENT CIRCUITS (N/STARTING #[,ENDING #]) ?$1-WAY INCOMING SVC (N/STARTING #[,ENDING #]) ?$2-WAY SVC (N/STARTIz2 ``NG #[,ENDING #]) ?$1-WAY OUTGOING SVC (N,STARTING #[,ENDING #]) ?$ HOST TO HOST LUs ( Y/N ) ?$USE STANDARD FLOW CONTROL VALUES (Y/N) ?$NONSTANDARD PACKET SIZE (N/VAL1[,VAL2 w``]) ?$NONSTANDARD WINDOW SIZE (N/VAL1[,VAL2]) ?$NONSTD THROUGHPUT CLASS (N/VAL1[,VAL2]) ?$END TO END ACK OPTION (Y/N/PC) ?$USE DEFAULTS LISTED ABOVE (Y/N) ? $FLUSH DATA ON CIRCUIT FAIL8) ``URE (Y/N/PC) ?$EQT DOWN ON CIRCUIT FAILURE (Y/N/PC) ?$ENABLE PROG SCHED ON UNSOL DATA (Y/N/PC) ?$ $CUSTOM SUBROUTINE ENTRY NUMBER (VAL/PC) ?$ENABLE PROG SCHED ON UNSOL EVENTS (Y% 7``/N/PC) ?$FLOW CONTROL DEFAULTS TO APPLY TO ALL PVCs (Y/PC) ?$PVC No $ = (LU #) ?$PACKET SIZE (VAL1[,VAL2]) ?$WINDOW SIZE (VAL1[,VAL2]) ?$THROUGHPUT CLASS (VAL1[,VAL2]) ?$END TO END A^  ``CK (Y/N) ?$FLUSH DATA ON CIRCUIT FAILURE (Y/N) ?$EQT DOWN ON CIRCUIT FAILURE (Y/N) ?$ENABLE PROG SCHED ON UNSOL DATA (Y/N) ?$ALWAYS SEND READ CONF. DATA (Y/N) ?$CUS ``TOM SUBROUTINE ENTRY NUMBER ?$ENABLE PROG SCHED ON UNSOL EVENTS (Y/N) ?$PRIMARY PROGRAM NAME (NAME/\) ?$SECONDARY PROGRAM NAME (NAME/\)?$PROGRAM RENAMING OPTION (Y/N) ?$FLOW CNTRL P W``ARAMETER NEGOTIATION FACILITY (Y/N) ?$PACKET SIZE NEGOTIATION (N/PC/VAL1[,VAL2]) ?$WINDOW SIZE NEGOTIATION (N/PC/VAL1[,VAL2]) ?$THROUGHPUT CLASS NEGOTIATION (N/PC/VAL1[,VAL2]) ?$CLOS ``ED USER GROUP FACILITY (Y/N) ?$MAKE REVERSE CHARGE CALL (Y/N/PC) ?$ACCEPT REVERSE CHARGE CALL (Y/N/PC) ?$ SVC LUs WITH SPECIFIED ADDRESS (Y/N) ?$WRITE LU # (EX/NUM) ?$NETWORK ADK ``DRESS ?$CUG # (N/VAL) ?$MAKE REVERSE CHARGE CALL (Y/N) ?$ACCEPT REVERSE CHARGE CALL (Y/N) ?$ POOL SVC LUs (Y/N) ?$WRITE LU # (EX/NUM1[,NUM2]) ?$ESCAPE FROM DATA TRANSFER ALLOWED (YV w``/N) ?$SUPPRESS PAD MESSAGES TO TERMINAL (Y/N) ?$PAD R/W LU # (NUM1[,NUM2]) ?$NETWORK LU$ IS NOW CLOSING ITS LINK$DO YOU WANT TO PROCEED W/START-UP (Y/N) ?$$ #$2Afghi$   @=\EEXt ȝ# 8TEST_LINE_COUNT 91751-1X042 REV.5020 <891113.1 921110.1032 /X25/REV6000/TXT/XINMS.PASEtTEST_LINE_COUNT **MESS_WRITER PAS.1 PAS.2 PAS.3 PAS.NONCDSPAS.WRITELINE *44a`;*(`[ p[`A @[A(4(2@gAAXr ȝ# 8ENDLINE 91751-1X042 REV.5020 <891113.1 921110.1032 /X25/REV6000/TXT/XINMS.PASA ENDLINE  11U>DIALOGPAS.1 PAS.2 PAS.3 PAS.NONCDSPAS.WRITELINE TEST_LINE_COUNT 1a@(r ( @(JG @@XFȝ& 8XINQA 91751-1X043 REV.5010 <880708.1 921110.1035 /X25/REV6000/TXT/XINQA.PAS@@'FBBX .ȝ& 8QUEST_ANSWER91751-1X043 REV.5010 <880708.1 921110.1035/X25/REV6000/TXT/XINQA.PASBQUEST_ANSWER4}}< .CBT .DAD .DCO.DDI.DLD.DMP.DSB.DST.ENTR .LBT.MBT.MPY.SBTMESS_WRITER PAS.1 PAS.2 PAS.3 PAS.BITDEPOSIT1 PAS.BITMASK1PAS.BOUNDINTEGERPAS.DOUBLEMOD PAS.ENDOFFILE }~~PAS.ENDOFLINE PAS.INLINEERROR PAS.NONCDSPAS.RANGEDOUBLE PAS.RANGEINTEGERPAS.READCHARPAS.READLINE PAS.RESET_FILE!PAS.SETINIT "PAS.SETINTERINIT#PAS.WRITECHAR $PAS.WRITELINE TEST_LINE_COUNT XINHALT ~::p`A@(h%6`H@ -HpA# `p(!:"LLA (` ppp` ph6`6A(<Ap((`׆A@ 'A(A`@3`!({!5A"a5`@`x ,HH@n??({h6P %({`@8ph6`A:@ -AH`:`P (p`p(`׈P (h6HP %(`(`p؀`p(`p(<`P ((`pII((`(`؈ph6`A\@ -@H` A@pA(A`c(A`AeIXs>>A(& ` ;, (` ;( ( `((   h6P %(h6HP ((p`(` ;- ($!" r$ r` ;) (-!,~~+HH h6Dp!(S!A"B`@`x ,HH@(S` p(p`@ ,(m`@6Ah6 (m(f`p(U` !(~YYKs%%@uv(((((((((((((p(` p(` p(` p(` p(` p(` pYiOO8(AB/ARE/R/EEXENYEY NON PC  AKdpJhi6d@ -HDpO!(!PA"P`j@`Oxa ,HaH@(`Ad(hi6dAIHHH@ -Hh bK bKdd(dPJ((M(Ghi6d@ -HHP (>hiA6d@ -HP "(>hi6dوH@ -HP #A(>(CKAM(G"DMMetfIIAd(AP` @Tp7`p8`8@ p9`7@ A@(-`8h A 9`9@ p: :p5` p6hUA6`5@ -H@p:@!(!;";8HH`V@`:xL ,HHL@(`A@5(hUA6`5@ -H@ *pM`M `6 @ -pNA 9NM9, Ap:`: 9L +0:L9`6p6`5oo>>p5(hU6`5D@ -Hp:!("!;A";`V@`:xL ,HHL@(,`A@5(,p(/p`(4` !OPo|QHHAO(k *;`A @0p`p`@ p`@ A@( `h phH6`@ h@ph1A6`%@ -H@p@!(!%"~~XHH%((`2@`x( ,H(@(Հ`A@(Հh16`)@ -HH@ *p)`)A )`A )@ -p* *)`p`p(h16`0@ -HD~WW00p!(!0A"0`2@`x( ,H(H@(`A@(p( p`(` "+,W6-GGA+(W *`AG @p`pو`@ pp`ڀ@  `ڀ@  ` A(р`A@(р`(eAcֈ`@ P A(k(qAAA@ ~~tDD ({({`ڈ@ p \@ -Hx \ۈ`@ ^ @hH Ap ^@ -HA@ۄ(`ڈ@ p ^@ -HhH @^~==ox @A@ۄ(` p(`pՀ(Mـ=Wz@@A(3 * p`Aw @p`߈p`@ pӀ`h p̈`@  `@  `@ P(` @P -(`p(`p`p͈(`pKKp` A҄(`A@΄(`(e5`P (=(QB   (F(KAτ(Q  ([([`@ p @ -Hx iAA `ˈAp @ -@ A` @P -(`@ p @ -H` @@(A @ -@p @ -@Ӏ`p(v`A @ۀFF%!!P -((p`p΀(`A@΄(`(҈` pFCCA( *A ` @Dp;`p<`<@ p=`;@ A@(` $?p(9`;@ (p>p:`<@ @6`:A @ -HH` 8:8>(p:`A@:AA^ (7hE6`:A@ -AHh`: @ -H`>H`:p:(`<@A AAAA?( *pAp` @p`p ` @ p ` h  `@ P(h6`A @ -HP (h6` @ -HHP (|`p(m`p(b`CCp`p(]p`(h6` H@ -HP (phA6` @ -Hp h6`A@ -HP ((`A@(`p`p(h6` @ -??Hp hA6`@ -HP ((`P((h6` @ -HHP ((p(  h6` H@ -HP (`p(`p(`(`   «EEA (F * p` ;, ( ` ;( A(( (  '`(<`P ((/(54  (::  p>`(f`A? @ &p`߈p`@ pɄ` &GS==(P (W(1`p`A D`P (oP (P (sP (wP ({P (w(Pr(,v(z(~(`h @(` pp(4`h +GG`P (P (P (( `!(ր` ,H@(h (6Dp!(!hA"  h` )@`x ,HH@(`p` l(` t{BBp@(*` p@(*` &p `P &( `@!(` ,HH@(`P ((`p` ( p(*`P (`!(&` ,H@@@(&`p`A (*` pp`P (.(0 (4Hh )`A(X<  ` ;. (I` ;, (Ip(W` ;. (W!  !` ;0p ;(e`Y??P (\(ep M` ;, (ep(u` ;, (p` ;( (uu " `(` ;, (` ;( (pp M`(`P ((A@ #!  !` ; p ; : \\A $%pA%p(Nza90 0   ZA7% *ˀ  0   =``     $$$$ ." *    ,  &&& 0 $ DCE$DTE$$HP$TRANSPAC$TELENET$DAT` ``APAC$PSS$BX.25$DATEX-P$TYMNET$DCS$DN1$UNINET$TELEPAC$RETD$ARPAC$SAPONET$VENUS-P$DDX$AUSTPAC$NORPAK$EDWP$BERNET$PUBLIC$PRIVATE$LOOPBACK$$A$VI$$ @ 0`   --!   $*,/5>@N-@&@@X\ȝ/" 8XININ 91751-1X046 REV.6000 <921028.1 921110.1044 /X25/REV6000/TXT/XININ.PAS@#PAS.2 PAS.3 PAS.SEGMENTRTN  @DDXgȝ/" 8SECCODE_CHECK 91751-1X046 REV.6000 <921028.1 921110.1044 /X25/REV6000/TXT/XININ.PASD_SECCODE_CHECK 6 E .ENTR .LBT .SBTEXECGTNXT MESS_WRITER PAS.1 PAS.2 PAS.3 PAS.BITMASK1 PAS.BLANKFILL PAS.BOUNDINTEGERPAS.NONCDSPAS.RANGEINTEGERPAS.SETINIT PAS.SETINTERINITPAS.WRITELINE QUEST_ANSWERFF`ppA`p `;,J( rA(DA%ը`pph6`A@AH p`@xh6H`H 88()`p~~FHHph6`D@H p!(Ac`@`x ,HH@ (hA6`@H h@p`A@xh6H` 88~AAh!!(Hh6 ph6 P((h6 H ph6  P((p`A**A `p( mza* @_AAXkȝ/$ 8P_SHUTDOWN91751-1X046 REV.6000 <921028.1 921110.1044/X25/REV6000/TXT/XININ.PASAwIP_SHUTDOWNt||e.DST.ENTR .LBT.SBTCLASSMNGMTCN10CN26CN32EXEC GTNXT MESS_WRITER NXTHDR_SEARCH PAS.1 PAS.2 PAS.3 PAS.NONCDSPAS.RANGEINTEGERPAS.WRITELINE RNRQXINHALT XNETTRANSFER|  XNVFY XTMGR gMMA`ep) )/LL`/p*`gp)h6h6 Hh6Hh6 pA$)3h6 Ap`M:@`p`*A@( `(L BOA'( GL&( LP&(`*vvTMEE(pp`AMZ@ AA1 dQR1`AM]@pm(`Mb@pAyS(`Md@Ap((A TUV88(Tv==H AX"p(8453`,@Ip O)`PjA(( TZV=GGJ8(rA +`+(p)A )/[[`/p,`0p$`$hp$`$ip$A $%( T%VA T\VS(p9`fp6 ]'(`(Pd( ^&(`(Pd(BB ""`'p7`&p8A 96-+`+(L`(Pd(`+A(_aSr`IB33 )J!!8I( <=>@XNET  3@AAX"ȝ/& 8SCHED_XNET91751-1X046 REV.6000 <921028.1 921110.1044/X25/REV6000/TXT/XININ.PASA`SCHED_XNETrEE .ENTR ABREG EXECEXEC_ERRORINPRS MESS_WRITER PAS.1 PAS.2 PAS.3 PAS.NONCDS PAS.RANGEINTEGERE;;`ppb`b 툈@h8b8(`pg`ph`pk`pl`pm`p`pb`b @ 8b8(po`ppps`eptpw`dpxp{`cp|p` Hp`JJg;''pb`bpBgbMfedc Hg(QA(aUA 9 :Z 9 :_J;;Z""A pfpepdpc(!p fXNET  ETRNXNp;@ *NAAX<ȝ/( 8INIT_XINIT91751-1X046 REV.6000 <921028.1 921110.1044/X25/REV6000/TXT/XININ.PASAjyINIT_XINIT}}.CBT.DCO.DLD.DST.LBT.MBT.SBT CKNMR FMPBUILDPATHFMPPARSEPATH GETXT GTLGL HPRTEAMESS_WRITER PAS.1 PAS.2 PAS.3 PAS.BLANKFILL PAS.CLOSEFILE PAS.GETMEMINFO1 PAS.NONCDS}rrZ!PAS.PARAMETERSPAS.RANGEINTEGER PAS.RESET_FILE!PAS.REWRITE_FILE"PAS.SETINIT PAS.TIMESTRING#PAS.WRITELINE P_SHUTDOWN QUEST_ANSWERRMPAR SCHED_XNETSECCODE_CHECK STRDSCXINHALT r~HHApi((|pphph6`6A}`(.`(`P(($~h6`6A(.((p`P(4(P`(P>~h6A`6(H(P(PLHXXAM~|ppAU~\m~|AA c~} jA~AqE~|x~|AA  `(~(`P((h6`6A II `P((h6`6A| hj`h(`j(pii(i(((A~(`PA(((phPh((`h++ P((`P((`j(piAi+W`II( X25 X25 LST pGp~T`hP(À`h("F~`;0Fp;("F~`;0Fp;`h(hK6`L6}AApG`p~U`h@("F~`;0Fp;`hP(("F~`;0Fp;`h(`G(hK6A`L6}pGp[p\|p`("(M"GG`A@(hM6`N6A`(SpFphOA6`@HAhM6pG`@H`G88F(9hP6`M6(](p(p`;,(m@"F@i@@`;0Fp;(oA(hQ6`M6(z(("F~~`;0Fp;(hR6`M6((("F~`;@0Fp;"F~~`;0Fp;(A`;.(`;ϬCC,(A(Ph((`;,(`;.(`;.(@"F~`;0Fp;A `刄P((`;.@("F~`F;NNv((p;|ppH`P((hO6A+hS6hO6A +hS6 H`bP((`pHHNȝIOO8H(<VY\_bROWO PREP ERROR ECHO gA lgca`c(p(wh6`6A!r~A ~A!~@"C;pKHzHHAp`r@sA@(`;/(A ~`;*(`;'(!~|(A!~|`;.( ~0BBN`;+(\ ( pJpI(pJ`pI e`e(*#r`;*@("x~`;0xp;~A `PA((( (%uuvs">>A$('A(*`cP(2APc(2`c(6(8AA?ed```(DAAGk`kP(M`mP(O`kp`lp(\(Z(\AA_NyuXXz<<8y(bP @ Pk p9  aNOCCTLNOCCTLCCTLpX@3RAAXȝ/, 8STEP0_INIT91751-1X046 REV.6000 <921028.1 921110.1044/X25/REV6000/TXT/XININ.PASA>,STEP0_INITee .LBT .SBTCN34CONT_ABORTLU_VERIFY MESS_WRITER PAS.1 PAS.2 PAS.3 PAS.INLINEERROR PAS.NONCDSPAS.RANGEINTEGERPAS.SETINIT QUEST_ANSWERXINHALT eF AA pp  p M` ;+( 䨈` P(P ((p J(p J(@h p K` ;*@(/ ` ;0p ;4A9>`p $PA??p `p hH6` h6 ` h6H`H h6H` h6HH` h6H` h6H`H h6H ` p  p ` p  p p Az h6 A5G==Hh6 hD6  6h6  `p A ` P(((u` p ` p  ( (A `  Rp (` ;+(֠` P (@{{?77A `  A]p   (A  J( ` ep ` (` P((A` J(p (A ` P(((u` p ` p {??&&8(l  @Amnpo    p?@>DDXZ5ȝ// 8START_UP_XNET 91751-1X046 REV.6000 <921028.1 921110.1044 /X25/REV6000/TXT/XININ.PASD#START_UP_XNET Tې.CFER .DAD.DCO.DIV.DLD.DSB.DST.ENTR .LBT.MPY.MVW.SBT ABREG CLASSMNGMTCN11EXEC GETXT MESS_WRITER PAS.1 PAS.2 PAS.3 PAS.CHECKPTR1 PAS.INLINEERROR PAS.NONCDS88KPAS.RANGEINTEGERPAS.SETINIT PAS.WRITELINE QUEST_ANSWERSCHED_XNETXINHALT XTMGR 8$$4`A@( `p( `p`$LL))App(p>'?A߀ +9:`9(6 3p>(<<?`>L^^8//A`p>(`;+(`;*M(@d`J;p;rA rh`;0p;A^wwP??8(p `A@(΄`}@@6Ap((A(`p`@Ip `1p`ĈA2p ((AwQQ%''8(h.A6`$@4Hp#`@Ip%A '#%P#(( え("'@#'(QC)EEA&&p$A( 4`A'p`A-p`A(p`A.@@و@ppA A A A A Ť`@p`戈p`@A,&n??@p`Ӏ@@6D눈@p`ӈ@,hH+@툈`@,@p`-#P(P(шP(P(P (P!(=(D`@@ ,&@p؁ II Ap`Ԉ@@ @A6@păpA`@%p(D`@@ A,&@p Ap`#p`@%pAAA(D`Ԁ@KK,&A#@p Ap`#p`@%ApA(D(D`@,&AD@p+ Ap`#p`@%ApA(DKAJJA(D`ӈ@,pg`ӈ@,(`@*lp`A(bAAAAAAѠ`;+((( A  ~~/<>A@h `p(`@h ` p(`@pJ`!p(`@h `"p(`׈A@h `#p(@`@J`$p(h/(`@,bb11Ap`@,(1`ՈA@* p`(pph ` (A`(b__>>8(/t  6@34b 1d   @_''p  -Z '@m-@@XZȝ25 8XINNG 91751-1X047 REV.5010 <880708.1 921110.1047 /X25/REV6000/TXT/XINNG.PAS@#PAS.2 PAS.3 PAS.SEGMENTRTN  @BBX2ȝ26 8CARD_CONF 91751-1X047 REV.5010 <880708.1 921110.1047 /X25/REV6000/TXT/XINNG.PASBCARD_CONF # {{.DAD.ENTR .LBT.MPY.MVW.SBTABREG DIALOG ENDLINE EXECEXEC_ERROR MESS_WRITER PAS.1 PAS.2 PAS.3 PAS.CHECKPTR1 PAS.NONCDSPAS.RANGEINTEGERPAS.WRITEINTEGERPAS.WRITELINE {**/PAS.WRITESTRING SWITCH_PARM TEST_LINE_COUNT XINHALT XLUEX *PAAp`-pà`;+%@(`Bp`p`ڈ@(ppp`0pˆ`/p`.pƀh6 @Ip`@(hA1(3(C7:hH6 pAA:((ADDA`*pG:`P-(K(PA(O(R(\`A@1(\h AxkAo:`'%(y`!%({`*p`P-((`0pˆA`.pII((:h6 HAp:`+p:`P-((P(((`A@1(AhA x:`'%TCC(`!%(`+pÈ`P-((A`p  (h6 prJr`;*%(hH6 pA h6 P&(`,p`P-A( (@p CC@ (=`,)p!r`()pA*r`$)p3r`)p;rJr`;*%(f`,)pK`(A)pT_TII`$)pA]`)pAe h6A h6 D v@ (`$)A'@prArr`;*%(`$)88_'@pA HA ( p`Ĩ8aaEEA`&pĀ( [\]  Baud Baud 300 1200 2400 4800 9600 19.2K 38.4K 48.0K 57.6K230.0Ka/% &')@p@?^RAAXȝ29 8STEP1_INIT91751-1X047 REV.5010 <880708.1 921110.1047/X25/REV6000/TXT/XINNG.PASA?,STEP1_INITl; .LBT.SBTCN30CN33CN35CONT_ABORTLU_VERIFY MESS_WRITER PAS.1 PAS.2 PAS.3 PAS.BOUNDINTEGERPAS.CHECKPTR1 PAS.INLINEERROR PAS.MARK1SPAS.NEW1S PAS.NONCDSPAS.RANGEINTEGERQUEST_ANSWER XINHALT ==A`p K p ` p ` p ` P(P( P(0(((` (/A `  A)p  /(`(8 ` 4p`l=::p`@p` 9A`  :p `@ `@@0ӈ`@Â@0`@Ă@0`@Ă@׈0`@@0ӈ`@ł@3w990`@@0ӈ`@Ƃ@0`p p` Tp`p`@p`@@` @!(@((((و(((((( (((!5AA()(1(9(AP(IP(QP(YP(aP(iP(q(y`@@6 (`@@6 `(`@@6 (`@@6 `(`@@6 `(`@@6 `(m!EE`@@6H `(`@@6H `(`@@6H `(`@@6H `(`@@6H `(`@@6H `(`@@6H `(`@@6H `(`@@6 u6DD`(`@@6 `(`@@6 `(`@@6 `(`@@6 `(`@@6 `(`@@6 `(`@@6 `(`@@6 `(`z@@@@6 (h` (` P((` 判P(` p`p`@p`@@6 @ (`@@6 H P(`@@6 H P((A ` P()<<((` (`@@0(̈`@@`p A ` P(׈((h6 A ` ` p  ( ( ` A p ~~ X@@(b` ;+(b` JP (  ` դp   (bhH6  p` @p(*h6 @ p` A@p((2J ` p (bh6  ~q6AAp:J(D ` 稀p (bh6  pM([h6 @ pY(b ` A p 堊` (` 刄P(i(kp ` P(xP(zP(++Ew(((`@h(`@ (h+]]iCC8(B q !2@rst   ]@_AAXȝ3 8STEP2_INIT91751-1X047 REV.5010 <880708.1 921110.1047/X25/REV6000/TXT/XINNG.PASA@,`STEP2_INIT||'.DLD.DST.FDV.FLTD .FMP.LBT.MPY.SBTCARD_CONF CN10 CONT_ABORT DIALOGENDLINE MESS_WRITER PAS.1 PAS.2 PAS.3 PAS.CHECKPTR1 PAS.INLINEERROR PAS.NONCDSPAS.RANGEDOUBLE |66yPAS.RANGEINTEGERPAS.REALROUND PAS.WRITEINTEGER QUEST_ANSWERSWITCH_PARM XINHALT 6l@@A`pK cde`@&pY`YpZ`Z@p[A gh`P(P((((`@p`@JJD\i\km8AoqIAx`E@FFppFh[ Lsh[Hh[H6`h[6 ``[@@A ctueA ihve (qAqrh`;*A({{h wxeA tyz }}@@t|}H(hD J`刈P(P(P(((A(( v~`刈P((( `A@(Šh AA\ \ A` p(}H>>p耊h[ `(`PA((A yw`P(߈((h[6 A `A |{`刈P(((h[6`H(Dh t`P(;;(((`Z@h`Y@hZH `P(((`[@p^`^H0H^ZZZZZ/(:6h[HA(@=h[H..?B(FhZH6 p^`Z@p_ R^_(V`.XX#a??8`(Cu`@du0 Lvwxz( @|~  oX@AAXSȝ3 8STEP3_INIT91751-1X047 REV.5010 <880708.1 921110.1047/X25/REV6000/TXT/XINNG.PASAA,-STEP3_INITaa+G .CFER .SBTCONT_ABORTENDLINE MESS_WRITER NET_ADD_VERIFY PAS.1 PAS.2 PAS.3 PAS.CHECKPTR1 PAS.NONCDSPAS.RANGEINTEGERQUEST_ANSWERXINHALT ah::A`Gp K012` @ p)`)p*p ` ƀp(p%`(p 45 ` PE(((" (,J ` 6p (2`*@Kp, , ` (`*@Lp+`Pp$~~>j:AAp'p#`QA@$(҈A`%p&M$9 ` 刈PE(Q(R(` PH(V(h`':@R@+ A`':@R@+ (`&A @ 脁A(}u<=2A ` 6#~~~G{<

`$?;p$`'@Ep'`&p%(>`#A(<A2A ` 6 Bp ` (8` PD((>`+@Fh+HHh+HI]]F11p ` A(BC `)@M `)@N `*@6 `*@6 H `*@E@H6 `*@E@6  `Op -]88X.%%8-(D  -@k. ^  8@tuAAXaȝ3 8STEP4_INIT91751-1X047 REV.5010 <880708.1 921110.1047/X25/REV6000/TXT/XINNG.PASAB,-STEP4_INITxxD.DLD.DST .LBT .MVW.SBTDIALOGENDLINE FLOW_CNTRL_QS MESS_WRITER PAS.1 PAS.2 PAS.3 PAS.CHECKPTR1 PAS.INLINEERROR PAS.NONCDSPAS.RANGEINTEGERPAS.SETINIT PAS.WRITEINTEGERxQPAS.WRITESTRING QUEST_ANSWERr@@A`Wp K012` @tp)`)p*`*@Up++^0]++(Xp,`,4|+L`0,L+` 4~+`0 ++XAp,`,4+D`0,D+`+@6 `T`+T@HH@6  A6h+H 6`Yp!`+@H6  p"+Xp#\892H`Zp ` @_(h: 2` P[(A(u rK;;A<` =@Gp+ r+?` ;*S(  @JJM;;<` =A@Gp+ +?(@( rO;A;< r ;;<` ;*SA( Q;;<  ;;`pAA((p(>`;+ (>`P(0Ap /   (>A4A(<:(>p`6@AA(p+ `P(^`p`@#pY`P!(](^(`@"p4 P(|`@"p`@#pw`刈P!({(|(`/ (EE`KP$(((h`@B `@pB `AP( `P!((((`/ A((A(p(ƁVV,,A((p(Ձ((p`(J`p `gp`P (( V//NA(   @ /@AAXuȝ6 8STEP7_INIT91751-1X048 REV.5020 <891113.1 921110.1051/X25/REV6000/TXT/XINVC.PASAE,STEP7_INIT ~~.DLD.DST .LBT .MVW.SBTADEQT_ENTRY HHQSETMESS_WRITER PAS.1 PAS.2 PAS.3 PAS.CHECKPTR1 PAS.INLINEERROR PAS.MARK1SPAS.NEW1S PAS.NONCDSPAS.RANGEINTEGERPAS.RELEASE1S PAS.SETINIT ~QUEST_ANSWERXINHALT ;;A`p K` @p`p` p` Ap(A  `@ ` pp`@6`@p犨`p ` pA`p 7 ` 刀P (?PL=;DD(AP(B(Q((T(T` 0p (ThH`@A@(Adgވ`@p`p q ` P (u(v(h `  A~~LE@@ݨ` P (((`A@(`p`@6 ׀h 6` (j` 刄P ((`p`p`@ p`@``h`~GG@ h`@ h`A@pA`@h`p`p舨(T`p `p èG77##8(H @ 7@$CAAXgȝ6 8STEP8_INIT91751-1X048 REV.5020 <891113.1 921110.1051/X25/REV6000/TXT/XINVC.PASAF,8STEP8_INIT~~.CFER .DLD.DST.LBT.MVW.SBTADEQT_ENTRY CONT_ABORTENDLINE HHQSET MESS_WRITER NET_ADD_VERIFYPAS.1 PAS.2 PAS.3 PAS.CHECKPTR1 PAS.INLINEERROR PAS.MARK1SPAS.NEW1S PAS.NONCDS~$$`"PAS.RANGEINTEGERPAS.RELEASE1S QUEST_ANSWERXINHALT $R==A`[pK ;<=`@p3`3p4`p)`ƈp(`3@`A? p#(A!B`3@`p`#?`3@`(6`3@` (:`3@_ `p+`4===@6 `p-`)p`(pƨA`p, PCD p`-(`PW(A ^EF`PV(fPW(hPZ(i((((AhR`SGv'&%.*"`PV(z({Ymz;;(`+A@*(`*p+(Jha`(Y`PUA((H`PW( IJ䨈`PV(((J( `Kdp`(`PU((AH`2U@@dp2`2ep2`2fp2A$MN$`,@^p,`$@{p5`5@Vp6`5@b0c`'6`6h&`6@Vh%`6@Wh2`6@\@6 `"OH`6@Xp7AA/7YYH--`6@\@6`6@Yp77`6@]@`TAC`4@6 @AOh4 6 @-p-(S`+p㊊`-p`,pÀ8YGGG9..88(I `@ r.   I G@Nm}AAX:ȝ6 8STEP9_INIT91751-1X048 REV.5020 <891113.1 921110.1051/X25/REV6000/TXT/XINVC.PASAG{STEP9_INITzzl_.DLD.DST.LBT.MVW.SBTADEQT_ENTRY CONT_ABORTENDLINE HHQSET MESS_WRITER PAS.1 PAS.2 PAS.3 PAS.CHECKPTR1 PAS.INLINEERROR PAS.MARK1SPAS.NEW1S PAS.NONCDSPAS.RANGEINTEGERz++(PAS.RELEASE1S PAS.SETINIT PAS.SINGLEMOD QUEST_ANSWERXINHALT +bAA` pH`HpI`p A` P((GA`@p`@pJ`J@pK`J@0׈`K`Kh`K@h@p`I@@@6@|;AhIH6L[rM==8L(`p KA V@` ׈p`p` p`@Ap` p(nl p r `@p`∈`@(`@ӄ (`@ lEEh``p  ` pp A` P(((hA@`p`@p`@0``pAA`@΂@6A `@@@@` /(@  p 刄`@ p` 刀P(`(` (A  `@@6` p` @ψp`p  `@p`<<!`@@"A   ` 刈P(&P((P()(q(h(t(t` p` P(/(1` p ` @ p`(?=(LJ ` >p  K]K==(N` p`A@(p` 刈P(Z(p`A(j bA `  Mp (oLl`@p(N(thJ` ({A{ Ƞ` (` 刄P(((` A"" @(`p `p `p è"BB\,,,8(OJ `!5 0T@   R@`B@RqAAXȝ6 8STP10_INIT91751-1X048 REV.5020 <891113.1 921110.1051/X25/REV6000/TXT/XINVC.PASAIaSTP10_INIT2=X.DLD.DST.LBT.MVW.SBTADEQT_ENTRY CN20 CN27 CN33 CN34CONT_ABORTCU_MRC_ARCDVX00_CONFDVXDFLT_PRINTER ENDLINE FLOW_CNTRL_QS IDGET LU_VERIFY MESS_WRITER PAS.1 PAS.2 PAS.3 TT PPAS.CHECKPTR1 PAS.INLINEERROR PAS.MARK1SPAS.NEW1S PAS.NONCDSPAS.RANGEINTEGERPAS.RELEASE1S PAS.SETINIT QUEST_ANSWERXINHALT ThBB`up`ppA`Rp Q(p(C Rd(p(C`/(C %R(*Ap(C .R(3p(C`JP(7(C:p ?R(CBAAp`(yAKLefNL`T@pT`L@p`@p`@((0`R`hQ@UpU`@@6 @AghH6 (A`i p`P(T(k??8(PRMPT `pKlmn`p[`[p\`pP`[@ppN _esgrde`_p`p`p(tu`[@p`Np_kEE`[@(`[@@ (`[@  vjgrdveh`w`pUh`Av`Vp_ `gx`_P`( VyzWZO`P( ( (`Yp_@ `gs6;;`_P`("Y{|}ZK`刈P(!("(A'~}`P(/P(5P(1(9((<`ZpZ(<`Z0pZ(<AhA}`刈P(IP(OP(K(S((V`Zm>M??pZ(V`Z0pZ(VhDX]}䨈`P(eP(gP(h(u((x(xo}`P(s(t((xDh}LvAL`L@p]`]@p^`]@J??0`Z^`^p_W_`[A@p &pMp倈`U((<`(Ax`\@@6 J`pU`Pp`@pTA`[@p`MAp;`[@8;;@< A`P(ڈP(((((+`pR`䈊P((`舨pS(`pS`@S(`A@S(`JP((`A iZpAdn('`S:??A@R('`刈P(('`UA(!dnA`i ip(&#`RpR((+hJ`(2A2`(`刄P(9(;k(`A@O(F`O3Epp`TpèaaabbAA8a( @K `:0oV  cma@KOj /@AAXu/X25/REL/XMOD.REL:::5:154:128 644 0 0 115000 5302751150 35425 /X25/REL/XMOD.REL:::5:154:128 $ EXMOD REL + h+ h+ hLFST ;;Xȝ* 8XMOD91751-16060 REV.6000 <920904.1446> /X25/REV6000/TXT/XMODH.MAC;@@@X(ȝ 0 8XMDLI 91751-1X064 REV.5000 <870116.1 921110.1110 /X25/REV6000/TXT/XMDLI.PAS@@ (CCXPȝ 0 8NETID_PRINT 91751-1X064 REV.5000 <870116.1 921110.1110 /X25/REV6000/TXT/XMDLI.PASC<NETID_PRINT m^^ .DIV.ENTR .MVWMWPAS.BITEXTRACT1 PAS.BOUNDINTEGERPAS.NONCDSPAS.RANGEINTEGER PAS.WRITECHAR PAS.WRITEINTEGER PAS.WRITELINE PAS.WRITESTRING ^}GG`PI( AA  `APH( # (`!(F@01(M(U(](e(m(u(}((((((((((((݈((PLͩGTT(PM(PNA((  TA( \A( dA( lA( tA( |A( A( A( A( jXXA( A( A( A( A( A( A( A( A( A(  A( >PPA( A( A(  A( `,K@K I@Ip %`,K@I(Fp`IAp`R@Op=p Chh,7C>>88(0`,K AI@Jp WPG(_PH(oPI(g(wA f#(~A n,(~A v5(~A ~> hYYApApp`h( ?@  HP TELENET DATAPACTRANSPAC PSS BX.25 DATEX-P TYMNET DCS DN1 UNINET TELpO``EPAC RETD ARPAC SAPONET VENUS-P DDX AUSTPAC NORPAK EDWP BERNET PUBLIC PRIVATELOOPBACK unknown ready handshakewithcard card error unknown  M @uQBBX5 ȝ 6 8LIST_PROC 91751-1X064 REV.5000 <870116.1 921110.1110 /X25/REV6000/TXT/XMDLI.PASB ?LIST_PROC ~~.DIV.DLD.DST.ENTR .LBT.MPY.MVW.SBTCNUMO ERROR_PROC GTNXT HDR_SEARCHMWNETID_PRINT PAS.BITEXTRACT1 PAS.INLINEERROR PAS.NONCDSPAS.RANGEINTEGERPAS.TOPOFPAGE PAS.WRITECHAR ~;;!PAS.WRITEDOUBLE PAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRING VCENTRY_FETCH XNETTRANSFER;\\A; H I J K:;;;A H J J L:;A; H J# J M:;` )A(?+; H J1 N O:;6;A ( P;; ) Q;;` +@ -@ /(AI; H JO N R:;T; H SAZ J TA:;_\]]; H Je N U:;j;A * Po; + Qt; H JAz N V:;h6 p; WAA;; H J N X:;;A , P; - Q; H JA N Y:;h6HAp; W;;A H J N;;'' Z:;; . PAƉ; / Qˉ;A H J N [:;h6 pۉ;A W;A;;0GG8(  `P (`AP (; H J`P (P (P (P (CP (DP (PP (CP (mP (y( ; H QA N \:;( N ]:;; H ^(# N _:;`( A `k)SSA@p0; P`A,  `@p=; QAB; H J((J N b:;O; H c(V N d:;` pA^; P`$ pg;A Ql; H J(As N eA:;x; H ^(A N66|  _:;hH6 pA; Ph6p;A Q; H J(Hh 6/FFAAAp( @`LP (P (P (P (P (P (P (P (-P A(4(H;(K J f:;(KA N g:;hW6HApM;M W` / (` "@ YUSSp "(` "@ ʄp " N h:;; " NA;(K(KA J i:;(K N j:;hW6 HApM;M W N k:;` #/ A(&% J l:;(,, J m:;(KA3 J n:;(K: N o:@;` <A @NAE;N W;(KHh QEE`R%%APPpL( xp Dh}6 pp h}D6  ph}6Hh}6 `  pH` pw`wyEzOOAx(X ` @ p    r r`    <A( s p:;A < t u:;AA;;` p'hB6 p ' >(`p(phB6 p=hC6 HAp> p=> $:;ii==A;A҉; H J N v:; J w:;;` pyp ` "pyp "` Ȁp=p   Q 8 8=(;;` (A; <?i*@DD8?(~  #`P (XP (_P (bP (uP (_P (vP (uP (_P ((A^ J x:;(;(`/ (nm J y:A;(tt J z:;((` P (`* A( J {:;NN++( J |:;(A;(` P (` P (`+ A( J }:;( J ~:;(A;(h NDDApp(D`*P (P (ֈP (P (P (P (P (P (ֈP ( (& N :;()()`+. (A;  s(A;  s; H W()()`+- (OOZ?22;  s(; A s ; H W()`+, (; s(  ; sA%; H W()h H.O~/HHA,,p+-p*(`P (@P (GP (NP (O(F N :;(AM N :;((`) (sh6`A pM`, pAd; P`( pm;A sr; H W(Az; Qw  J a s; H t(h CFFAp p=pp(6`P (P (P (P (( N :A;( N :;((`, @ A p`(pAp; H s88(`, CC I$$@ (p` p`A r@ ˄p  p pp; s88((h D;CNNA`h A Jp(` ʈp^` p\; H JA J\A:;;8^("()`\ Ap\(((.; H J`]! (;A:;  P s(BAB;  P s`] (PM; A s;(YQ W; A s;A;`1aQQA__p](k; H J`P (uP (|P (P ((A{ N :;( N :;((; A;  J;A A ; t  s ; t Q sA; H J(h @ - tt^VKKAp(f`P (ĈP ((ɉ; H JA J A:;; H J J :A;(; H J; NA;  J; ` p  ; t sA;(h  tss CCA p(`    <( s p:; <` P ()P (0P (7P (>(E/ t :A;(H6 t :;(H= t :;(HAD t :;(HAh ;A;MsMMXN))8M(`wP (ZP (aP (hP (k(sA` J :;(vg J :A;(v;(vp;A P;(vh yM~~6zDDAxxpw(P` P (P (P (P (:(t` ɀp{pzzyz8z8{(AA;; H J J :;;` Ȁp{pz z z8zA8{(;(w` p{pzz~~QQh6 p| |z z8z8{(;։; H JA J A:;;` p{pz z. z z8z8{(A;(w; H J J :;;; H JA J A:;;` MMp{pz z. z z8zA8{(;` p{pz*zhH6 p|4 |z;8z8{('(w?; H JAE J A:;;AL; H JR J :;;` p{pz\ z77z\.` zd z8z8{(X;;`An ; s s(wDh ;}7[S~DD8}(  M` P (P (P (P ((Hh$6p`((A   W W}@p((h$6 Hp`A((   }@p((  J Jp} oLLh%6p`(˄(    `(p Jh&H6 p    J;( J;@p(;A;(   }h%6 p`((      $$@p((h ` (; <!$JJz"%%8!(   hJ6(-(1p !1hJ@6 (8(<` p !(` P ((h 8H6 p M}` P (( JhH6 p  J;` P ((  |>>8(} h 86p 7  7 `(ӈ`  >(` 9@ P (P (P (P (P (ለ(` p?`p G`p x(?(G(x((h H ? @^^A 8 = $p ( BCDE FJGKHLIMuvw xyzPQRSTUXYVWANOjklmnop{ stqrcehi[] fgZ_a\^`b YES NO NONE44?d $$ c5q'Vu<4@ d)$DDX{ȝ  8NETWLIST_PROC 91751-1X064 REV.5000 <870116.1 921110.1110 /X25/REV6000/TXT/XMDLI.PASDNETWLIST_PROC II .ENTR .LBT.MPYERROR_PROCGTNXT MWNETID_PRINT PAS.NONCDS PAS.RANGEINTEGER PAS.TOPOFPAGE XNETTRANSFERINNA`p`p` (hH6  pހh6  p.`A(2(8`ph6  pEI(N`p(P[=NHHph6  phH6  pAc@ph6  phA6 ph6 D pDh6 @@@߈@ph6@ (`@ph6  (`@p(.?k`( --A Rp(> -@7@@Xȝ & 8XMDQA 91751-1X063 REV.5000 <870903.1 921110.1107 /X25/REV6000/TXT/XMDQA.PAS@@==Xvr;ȝ ) 8MW91751-1X063 REV.5000 <870903.1 921110.1107/X25/REV6000/TXT/XMDQA.PAS= 07MW gg .ENTR .LBTPAS.INLINEERROR PAS.LINEPOSITIONPAS.NONCDSPAS.PROMPTPAS.RANGEINTEGERPAS.TIMESTRING PAS.WRITECHAR PAS.WRITEINTEGER PAS.WRITELINE PAS.WRITESTRING gVVԅ..`1Ee@5p/h1A6`/Gf@:HAIfp.`.P7(- 6.G`/p/h1A6`/Gl@:HAIlp.(.V@@P-/''8.(\5Vp1A.96A@6(H G6KG(9 O6VLLGAA 6 6A 6c@dDD8c(2p0p/h6`/GD@:HIp.`.P7(`9A@/(`0E@5h/`0Mp0`.P7(`/p/h6`/AG@:AHIp.(`/p/h6  `/GD@:HIp.(wFF8(f\`2P/(P0(ΈP1(P2(鈈P3(P4(P5((*c(-c(- ؁6VOAOG 61P 6[QQG.A 6(-.6(-.(-. 6(-A. 6`1\\22E@5p/hU6`/AG@:AHIp.`.P7(' 6RG`/p/hU6`/AG@:AHIp.( 6(-h8H7\8\\A33Sp24AMp1(  -\>> XMOD : XMOD on-line modification program$Invalid network address$Invalid Closed user group number$Number entered is out6`` of bounds$Character input expected$Numeric input or yes/no expected$Unknown command$Invalid parameter for this command$Non standard packet size$Illegal lu number$Unknown Network LU number$Net``work LU number needed$Use SN command to specify Network LU$Not modified LU active$Not released LU now active$X25/1000 subsystem inactive$No Host to Host POOL lu available$Not enough SAM or res<T``ource numbers$Packet size larger than maximum allowed$Window size not in valid range$Throughput class not in valid range$Invalid security code$There are no allocated POOL lus$XNET was called wM``ith an invalid request code$Network state is NOT card error$Duplicate remote network address$Invalid Call User Data length$ $FILE :$already exists$FMGR error = $on file :$is write protected$isb`` not of type 3 or 4$/XMOD : $X.25/1000 MANAGEMENT SECURITY CODE ?$REMOTE NETWORK ADDRESS ($CLOSED USER GROUP # ( $PACKET SIZE NEGOTIATION ($PACKET SIZE ($WINDOW SIZE NEGOTIATION ($WINDOW St``IZE ($THROUGHPUT CLASS NEGOTIATION ($THROUGHPUT CLASS ($END TO END ACKNOWLEDGE ($MAKE REVERSE CHARGE CALL ($ACCEPT REVERSE CHARGE CALL ($ RELEASE POOL ( LU : $ REWRITE (Y/N) ?$ ) ? $YES$ NO|``$NONE$LU number => $ MODIFIED$ ALLOCATED$ALLOCATED POOL LU STATUS :$ WRITE LU REMOTE NETWORK CURRENT STATE$ number address$ ACTIVE$ CLOSED$ DOWN $NETWORK LIST :$WRITE%4`` LU NETWORK LOCAL NETWORK NETWORK$ number type address state$NETWORK GLOBAL DATA :$VIRTUAL CIRCUIT DEFINITION :$ FIRST VC NUMBER$ `` number OF VCs$PERMANENT :$SWITCHED$ 1way-in :$ 2way :$ 1way-out :$USAGE :$ W/ADD :$ POOL :$ PAD :$ DEFAULT FLOW CONTROL PARAMETERS :$ X.25 LEVEL II PARAMETERS :$ WIN8``DOW MAXIMUM PACKET$ size :$ size :$ RETRY EQUIPMENT$ count :$ type :$ TIMER$ T1 :$ DCE$ DTE$PERMANENT VIRTUAL CIRCUITS:$ P. V. C.$ number $SWITCHE<T``D VIRTUAL CIRCUITS WITH ADDRESS :$ FLOW CONTROL PARAMETERS :$POOL SWITCHED VIRTUAL CIRCUITS :$POOL SVC DEFAULT PARAMETERS :$PAD SWITCHED VIRTUAL CIRCUITS :$PAD SVC DEFAULT PARAMETERS"X`` :$PAD PARAMETERS :$ SUPPRESS PAD ESCAPE FROM$ messages DATA transfer$ READ / WRITE READ / WRITE$ LU number EQT address$ WRITE LU WRITE EQT READ EQT $ number aO``ddress address $ FACILITIES :$ Remote ACK$ Local ACK$ Accept RVC$ Reject RVC$ Make RVC$ NO RVC$ REMOTE NETWORK$ address $ CLOSED USER $ group number t`` $ OUTGOING INCOMING $PACKET$ size :$THROUGHPUT$ class :$WINDOW$ NEGOTIATION : $NETWORK STATE :$TOTAL NUMBER OF ENABLED VIRTUAL CIRCUITS:$LN :$ List all ((Networks Lunumber, t``ype, local address$SN, Network lu number :$ Select Network to display or modify$LL [,Namr] :$ Reset/assign List device$SK :$ Skip to top of page on Namr$LI :$ List all the compp4``onents of a network$LI,GI :$ List global information on a network$LI,HH :$ List all Host to Host circuits data$LI,PA :$ List all pad circuits information$LI,lu :$ List data per)``tinent to that lu number$AL,lu /AP :$ Modify a SVC/ allocate a POOL circuit$DP :$ Display currently allocated POOL LUs$RP :$ Release unused allocated POOL LUs$RN [,network lu numbe``eGGr] :$ Attempt restart on a down network$GS [,network lu number] :$ Get network state and active VCs$END XMOD$$#$ `@,J==Xzȝ 1 8QA91751-1X063 REV.5000 <870903.1 921110.1107/X25/REV6000/TXT/XMDQA.PAS= :QAd ||_.CBT.DAD.DCO.DLD .DMP .DSB.DST .ENTR .LBT.MPY .SBTMWPAS.BITDEPOSIT1 PAS.BITMASK1PAS.BOUNDDOUBLE PAS.BOUNDINTEGERPAS.ENDOFFILE PAS.ENDOFLINE PAS.INLINEERROR PAS.NONCDS|BBPAS.RANGEDOUBLE PAS.RANGEINTEGERPAS.READCHARPAS.READLINEPAS.RESET_FILEPAS.SETINIT PAS.SETINTERINITBlLL`vppp`A A((n`wA@̄A(nA`@`!(HA3`@`x ,HH@(H`@Apʀh6`4LBB@H`H `Pv(^p`p(m`Pf(j`(i`p`p(m`p(A@̄(`({`phA6`@H`v@ @pDh6 ggC<>8(`p'p&`&@(`&ۀ@+6h,6A((`&p&(ꈈ`&Pe(Pf(Pg(Ph(Pi(Pj(Pk((!` (%`hh(%`hi: (%` (ʪ)LL8((JA ph6D@H p!(AN`@`x ,HH@(`A҄(hA6@H h AAxxsuCCAA AA (3P((A(h6A@H Pv(h6@HH Px(hA6@H Py(((AAxxFFA (-A`h@p`p`@gp`@gA@(`pp`@@ 88(p`gphA6`@H @p@!(g~~ 9HH`@`x ,H@(g`A@(gh6`H@H @{Ap`A`@pQƂ,rp`L}0L`~uubAAp`p(h6`A@@H p!(@`@`x ,H@(`A@((`hl(uSGG8(A`(h@py`pz`z@gp{`y@gA@(tpw{`y@gh@pxh6`w0@HD p|!(;0}A}0`@`|IIx ,H@(;`A@w(;h6`w3H@H @{Ap`A3`x3@p4{`xpx`wpw(h6`w8D@H p|!(d8}OON))V}8`@`|x ,H@(o`A@w(o`g(s`zhm(v`gO~~DD8(A}`Fh@6p0`p11p-`1@g `1@g `gA1()`A@-()Pu(()-..(((A.(Ո`h((`1~~~DD@gp1S@Hx2.S2`0@gU @7h1HgAp21U@HA@2(`1@gp1U@Hh0Hg@Ux2 @7A~,,i@2("`h((11`-p-(113,F4FF83(_`gAh@p`p`hnp`@g@6`v `@g@6 `vH `@gA@(`A@(hA6`o@H Aop`o@p""z`@g@6H `p(U@"7CDD8(8`yAh@p`pp`@g `@g `gA( `A@( Pu(( AAAʈ((((`m( `@gttcN@@Ap@HxAA`@gp@H A@!(@,H@(`m( `p(tssDBB8(`ip#\\!(I@_:_`t@xpA\@,HHp@(L`n([`p^AA\`^@i`^@hhqqswrDD8q(_p`p`Ȉ@hhs`Pj((hD6Hh h6H h6HiD h6  `@h@̂@6`6(((p(`@hhHh @`))`d(`@hPt((`(`Ȉ@hhr)DD8(u7` A`h@p`pA@(`ꀈ@g `A@g@@6A`6(((`ho( `@ghHg @A`PoIEE(`@gPp((`(`hA@(h6Hg Px(/h6Hg Pv(/(h6HhD p!(VAE`@`x ,HH@(VnNS@@qU(XX`|pp`@j@A6`@H`vH 88(\`@i(p`ip耄h6`@HD ՈhHj6pA`@@H`H 88(s`@(e^??` `k(`ꈈ@hht`(ˆ`@h@~@p!(`@g܀@@`x ,HH@(`l`(爈Pu((灀(`(//]?`p!(` ,HH@(`k/CC8(:R`Ah@p`p`Pe(uPj(JPk(*(v`Pg(8Ph(DPi(;Pj(>Pk(A(G:(I=(I@(I3j$B??C(IF(I`i(y`Pf(UPh(R(XT(tW(t(Z`(r`@p!(r` ,H@(t`j(y(yHhzPu(` }\\A pAp(za(90 0 &"1@@X@H@@@``??HELNSKSNLILLALRNGSAPDPRPGIHHPA/EEXENYEY NON  =_ -- e  (,/-@b"@@X*ȝ 8XMDMD 91751-1X065 REV.5000 <870330.1 921110.1113 /X25/REV6000/TXT/XMDMD.PAS@@ *AAXȝ 8ERROR_PROC91751-1X065 REV.5000 <870330.1 921110.1113/X25/REV6000/TXT/XMDMD.PASA]ERROR_PROC 2.ENTR PAS.INLINEERROR PAS.NONCDS66pZ`YPz(NP{(QP|(KP}(HP~(EP(BP(?P(@ 88(I`@],e(pp`@]p`8A@p p;::p`@`8@pA ;::88(`(Hho {yFF(`-pA6B.0`)\(` $ep08` ep08(6C.0<?-./01`P[(P\(P_(Pc(((`pp (p `RRe&&@]p$ep`@<` D0Dp `@]pep`@<` 0p `0np(hpH RU#LL(`-pz 6D.0`.\A(6E.0(6F.0%<G-./01`zP[(1P\(1P^(6P_(2(v(y`p(y`0pA?6HA.0D0?I0I8AN0]]&M--?W<6-./01`zP[(aP\(aPa(b(r(u`z@]p`pzP](l(q`z@]p(uhq (yhr {]_6|LL(`-p6J.0`,\A(6E.0(6F.0<G-./01`P[(P\(P^(P_(((`p(`0pA6KA.008Ą0I8AɄ0]].--8<L-./01`P[(P\(Pa((툈(`@]p`pP]((`@]p(hs (ht ]i_LL(}`-pp6M.0`-\A(  6E.0(6F.0<G-./01`pP[('P\('P^(,P_(((l(o`p(o`0pA56NA.0:0G?0I8AD0]]6C--GM<O-./01`pP[(WP\(WPa(X(h(k`p@]p`ppP](b(g`p@]p(khu (ohv q] rGG(`-p{6.0p`Pi(Pj(Pk((`/\(p(`+\(p(`*\(p(hw `(6E.0(A6FA.0<G-./016D77`P[(P\(P^(P_(((`Pi(ΈPj(Pk(ֈ(`p(`p(`p(hx (`Pi(戈Pj(Pk((`0p(`0~p(`0} p(hyH (hzH ~~@<Q(BHh{ `(r1Ph(QPG1.0(q`(`h` R`AT=p(qh,6 @(qh` RA`TDp(}h` RA`TJp`P\(|`Pc((oHH(`-p*`*@^Pd(Pg((h,6 `*@_HVW `lp(h,6H  `mp(h|D Ȅ,A1(`*AP\(,1(00XYIIˬ((A6Z.0h,6 p+0+=A?A.00( `P(( `Pm(( `f1`- 2Iyy?3ZZA,($1%4&23',()*+,.- 5,-.67@qs0` @y@BBX [ȝ 8DISPOOL_PROC91751-1X065 REV.5000 <870330.1 921110.1113/X25/REV6000/TXT/XMDMD.PASBj7DISPOOL_PROCll.DIV.ENTR .LBTERROR_PROCMWPAS.BITEXTRACT1 PAS.INLINEERROR PAS.NONCDS PAS.RANGEINTEGER PAS.TOPOFPAGE PAS.WRITECHAR PAS.WRITEINTEGERPAS.WRITELINE XNETTRANSFERlCQQ@h16(`Upph16p6(`(`X6(` T4(*A*@AA233A2BCA233A 93DE?EF23 D3DEAJEGA233`( TQKK3DE Y3HA ^3DI` ,W@W Up` ,W@@Wp`(p/p 3D@88/(z` ,W@U(p/`Up` JA@Zp0L 0A@Ap0 vII30@88/(`(p/p 3D@88/(hR6PS(PT(PU(˄(EM23(AEN23(EO23(hYH `p(L`( 34(`V6766p8##A15 Pp(8 9:<;= 6@k+BBXȝ! 8RELPOOL_PROC91751-1X065 REV.5000 <870330.1 921110.1113/X25/REV6000/TXT/XMDMD.PASBfRELPOOL_PROC<< lh.ENTR .LBTERROR_PROCMWPAS.INLINEERROR PAS.NONCDS PAS.WRITEINTEGERQAXNETTRANSFER<KK@h6(`pph6p(`(`(h6(*Hh6P(*(Y`A2A߀ 7@߀ `(SP(OANKCC߀(S`h`(*(]`h`pɀ`P(P(rP(i(`pAq(`pz`P(~(((h`(` L P((` (` |A(/1 g@\DDXȝ# 8GETNETWSTATE_PRO91751-1X065 REV.5000 <870330.1 921110.1113/X25/REV6000/TXT/XMDMD.PASDutYGETNETWSTATE_PRO,ee.ENTR .LBT.MPYERROR_PROCGETNETWSTATEGTNXT MWNETID_PRINT PAS.NONCDS PAS.RANGEINTEGER PAS.TOPOFPAGE PAS.WRITECHAR PAS.WRITEINTEGERPAS.WRITELINE e/EEpv}pu`|p'A'wdd`~px`x@zpy`}p'`v(o`w((oA"'~efh6  pzhxH6  Pz(.(0pv@wpw`x@w@6 @ pz`x@w@6D xp{`x\\&E00@6 D ~p|`x@6D {@'@|@{@zp'`x@w@6@ (c`'@yp'`x@w@6  (n`'@xp'(`v(t`\zVVA}(u`( vW(dgUVVhiUV)*&A&T()0&&T(hu6 HA pRg)R:*UVV ÁVAjfklUVA ΁V+kV`+(( فVnncOOAjfkmUVA V,nV VjfAkoAUV V-hV VAjfkpUVA V.fV VjfAkqAUV V/rVV`(A(% VWYn<<_qZ&&ASSp)X sۈp((| }Z]_a9 <@A_DDXI&cȝ 8PAS.GLOBALINFO91751-1X062 REV.5000 <870330.1 921110.1105 /X25/REV6000/TXT/XMDMN.PASD@*fI&??X*Rcȝ 8XMDMN 91751-1X062 REV.5000 <870330.1 921110.1105/X25/REV6000/TXT/XMDMN.PAS? 3XMDMN }};.CBT.ENTR .LBT.SBTALTER_PROC CKNMR CNUMD DISPOOL_PROCENABLNETWORKERROR_PROCGETNETWSTATE_PRO GTNXT HDR_SEARCH LIST_PROC LOGLU MW NETWLIST_PROC PAS.BLANKFILL PAS.BOUNDINTEGER}||PAS.CLOSEFILE PAS.INITFILEPAS.INLINEERROR PAS.NONCDSPAS.RANGEINTEGERPAS.RESET_FILEPAS.REWRITE_FILEPAS.TOPOFPAGE PAS.WRITECHAR PAS.WRITEINTEGER!PAS.WRITELINE "PAS.WRITESTRING QARELPOOL_PROC|XNVFY yTTApZAp A0eAieA"epphf6A0A3X`XA(?<ipZ(Vhf6p^ IY^[X`X(Vhg6 A.hfT6`Z_XXg`00A_`EpZ([`(t`A(tt`Qp`MpA~8((`Ap(x`(pX11#A8(h `(`Ip(h6A ^h61nTT8(눈`PK((p(DA `(`(AAi iiA Ai"i"!!i(A#Ai"i"!i`PDWPPA(($i(ip(DPA((D"#iA")i"!.iA4%i`LpA?&0i`PF(Dp`(`(RA@(aAZHHV**'App(`(kp倄`(k`(wAv('HuuBAA8(WOCCTLNOCCTLNOCCTLp`Gp(0i`PC(PD(PH(((Ap( h6`6A(ƈ((pӀ(p(HhN`ӀuBBA`EpӁ(_(`Lp)0i`PC( PD( PI( ((`@ !("@(#(#(&(((>(.(1(;(F(i((F(S(\(%( -(Vp/KKA0( :(=(`A(Ep(H(RR0i(A[(^(hh0i(k(`PK(q(h06@(y`Jp(h0 `zLL6pA((A((`PK((h06(`Jp(h06pA((hO(hP`PL(i`55 PD((`倄0(*i0Ai5ee_.II80<+,- i6.,-1/,-(~ !0&#" 7 LIST_FILE OUTPUT_FILE INPUT_FILEeZC ~XY@<[@??X :cȝ 8XMOD91751-1X062 REV.5000 <870330.1 921110.1105 /X25/REV6000/TXT/XMDMN.PAS?΅/PAS.STOP(XMOD//EXECPAS.INITIALIZEPAS.NONCDSPAS.RETURNPARMS PAS.TRACECLOSEXMDMN / (-7/AA24A78  @WAu(p(hx (`Pi(戈Pj(Pk((`0p(`0~p(`0} p(hyH (hzH ~~@</X25/REV6000/TXT/XPLOG.MAC;#XPLG $TIME !.DIV#.DLD".DST.ENTR .MPY.MVW .XLA .XLBCLRQDECIMALTOINTEXECFMPBUILDNAMEFMPCLOSEFMPDEVICE FMPOPEN FMPPARSENAMEFMPPOST FMPPURGEFMPSETPOSITIONFMPWORKINGDIR FF FMPWRITE GTNXT HPRTEAIFBRK IFTTY KCVTLOGLU PNAME RMPAR RNRQSPLITSTRING STRDSC XNVFY F~~<</ 9ۈ`P(`P(`P(p`P9(:(:`䀈P(p `PɈA(85   x(~c>p`]h ` A,}怈(\`A0 p~7~p~A?:(EA";p~AJ}`~(P&&pለ`h(uj\FFp6` p7p8g 57Ap[p [`(|`ΈA A}怈&`0DŽp`0pApx DD98`hƀ`ph8 8(A  `@p (`(((.` pp`p`~~HHp`p}((.@ (((  ((.(}8(.`0p&(* (.((.~_.DDxp8p9p:`/p;(<A8`9;8pp(hAM`(YpA(YW(]\/pc1xY (i`Lp(ʈZZZah @x SS_r&&(v989(|A`h9x98(l(8h @x!(`p`p8(`:;RWOSRWCSS]]DD1A Y"A  " AA"* ",A "A  " AA" "A "NO-1 ]  {{YHHA`Z`P (ip0(P (zh (zu  Ax (~p`p0`(`p0a8(989 !NO{Y<> XPLOG 01: IS ILLEGAL NAME -- MUST BE XPLOG *>> XPLOG 02: ILLEGAL INPUT LU G>> XPLOG 03: ILLEGAL LOG LU GE`` d>> XPLOG 04: ERROR -- RUN XPLOG,-1 TO CLEAN UP RESOURCES>> XPLOG 05: ILLEGAL BUFFER SIZE  >> XPLOG 06: X.25/1000 SUBSYSTEM INACTIVE >> XPLOG 07: C0``LASS NUMBER UNAVAILABLE  >> XPLOG 08: FIRST RESOURCE NUMBER UNAVAILABLE  >> XPLOG 09: SECOND RESOURCE NUMBER UNAVAILABLE  >> XPLOG 10: FMP ERROR - bP?`` />> XPLOG 11: CANNOT LOCK SECOND RESOURCE NUMBER  L>> XPLOG 12: NO SAM TO START TRACING  i>> XPLOG 13: CANNOT LOCK FIRST RESOURCE NUMBER )`` >> XPLOG 14: END OF TAPE >> XPLOG 15: NO SAM TO STOP TRACING  >> XPLOG 16: CANNOT RELEASE SECOND RESOURCE NUMBER  >> XPLOG 1``7: CANNOT RELEASE FIRST RESOURCE NUMBER  >> XPLOG 18: CANNOT RELEASE CLASS NUMBER >> XPLOG 19: EXEC ERROR  4SYSTEM IS RTE-A _`` QSYSTEM IS RTE-6  bEND XPLOG sSTART XPLOG {/XPLOG: DUPLICATE FILE -- PURGE OLD FILE? (YE/NO)  /XPLOG: INITIALIZING LOG FILE TO ZERO  ***@ @@@  * aXPLOG    hhD9MM/X25/TXT/XTLGH.MAC7@3@R??XNYcŝ PAS.GLOBALINFO91751-1X102 REV.5020 <890927.1 891110.1100/X25/TXT/XTLMA.PAS?@/NY@@Xcŝ CONVERT_SHRTINT_91751-1X102 REV.5020 <890927.1 891110.1100/X25/TXT/XTLMA.PAS@q*CONVERT_SHRTINT_) PP .DIV.ENTR .MBT.SBTPAS.1 PAS.2 PAS.3 PAS.BLANKFILL PAS.INLINEERROR PAS.NONCDS PAS.RANGEINTEGER PAS.SINGLEMOD P@@Ap `p`(p̀`p`(h6HH`(A`p #pπ` Ap`ψP(AP(LP(WP(bP(mP(xP(P(P(P(?@CC(h6`A @HH`(h6` @H`(hA6` @H`H(h6` @H`(h6`A @HH`(h6` @H`((CCh6` @H`(hA6` @H`H(h6` ň@H`(h6`A @HH`(@h @p`(`(ŀh6` @H`h,!6`6::&&Apр(   -0123456789:@:@@Xcŝ HEADER_LIST_WRIT91751-1X102 REV.5020 <890927.1 891110.1100/X25/TXT/XTLMA.PAS@O HEADER_LIST_WRITc||.MBTCONVERT_SHRTINT_PAS.1 PAS.2 PAS.3 PAS.BLANKFILL PAS.INLINEERROR PAS.LINEPOSITIONPAS.NONCDSPAS.TIMESTRING PAS.TOPOFPAGE PAS.WRITECHAR PAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRING |~FFJA sm sJ sA@Ʉ( s( "sA 'ss0sA7sms@s`%/PLj(HPJJ8F''A(T(\LA&Sz(_h6A`6(_hD fszJJssJsJDDS--8( @z&X.25/1000 LOG TRANSLATORpage : date : log file namr : AD@@@Xcŝ BUMP_LIST_LINE_C91751-1X102 REV.5020 <890927.1 891110.1100/X25/TXT/XTLMA.PAS@hBUMP_LIST_LINE_C((!m.ENTR HEADER_LIST_WRITPAS.1 PAS.2 PAS.3 PAS.NONCDS(++@`A( `p`+gA(7@]==Xcŝ MSG_WRITER91751-1X102 REV.5020 <890927.1 891110.1100/X25/TXT/XTLMA.PAS=^|MSG_WRITERmyy".DIN.DST.ENTR .LBT .MVWBUMP_LIST_LINE_CPAS.1 PAS.2 PAS.3 PAS.INLINEERROR PAS.NONCDS PAS.PROMPT PAS.RANGEINTEGERPAS.WRITECHAR PAS.WRITEDOUBLE PAS.WRITEINTEGERPAS.WRITELINE y OCPAS.WRITESTRING )EEpLpKhS6`K N@HD  NpJ`JP(N`ՆA@K(N`L Q@RhK`L RpL`JP(=`KpKhSA6`K V@H A VpJ()`KpKhS6`K {E Y@H A YpJ(O]]P228O(U` c@pKhA6`K d@H A dpJ`JP(pJ`KpKhA6`K i@H A ipJ(h]SMMA bp(TU`OP҈A(((`OP((AhN AAN`OPЈA((ЀP`OP΀(Rn(ـAM~~r<> XTLOG /XTLOG : XPLOG/XTLOG lu's are the same$Empty log file$invalid log file$Snap-shot log file duplica7``te name$Snap-shot log file creation error$Snap shot phase:read log file error$Snap shot phase:write log file error$Time parameter error: decimal value expected$Time parameter error: hours mustg6`` be less than 24$Time parameter error: minutes must be less than 60$Time parameter error:seconds must be less than 60$Time parameter error:10's of milliseconds must be less than 100$Error in t``he time parameter list:too many parameters$The upper time bound must not be less than the lower time bound$Illegal parameter for PRINT command$Logical channel identifier must be >=0 and <=4096&^``$Illegal parameter for FIND command$VC/NETWORK : decimal number expected$Network number must be >=2 and <= 254$Illegal parameter for FORMAT command$List lu number must be >=0 and <= 255$IllegaV``l parameter for LIST command$Illegal parameter for EXIT command$Illegal command name$Unknown packet type$Invalid log LU$Previous time bounds restored$Window count : $Empty window$Print count :11!! $End of process$Find count : $END XTLOG$$$B1@+JO@@X8!cŝ  SET_ONE_BIT_IN_W91751-1X102 REV.5020 <890927.1 891110.1100/X25/TXT/XTLMA.PAS@^*SET_ONE_BIT_IN_W00ݲ.ENTR PAS.1 PAS.2 PAS.3 PAS.BITMASK1PAS.NONCDSPAS.RANGEINTEGER0''p` ,HH @`'4 Ap(@@@X3cŝ  TEST_ONE_BIT_IN_91751-1X102 REV.5020 <890927.1 891110.1100/X25/TXT/XTLMA.PAS@TEST_ONE_BIT_IN_ 00ݲ.ENTR PAS.1 PAS.2 PAS.3 PAS.BITMASK1PAS.NONCDSPAS.RANGEINTEGER055:`p`, ,HH.@P1((p(p`5!! $ Ap,ˆp`2p(! 1 @z@@X-cŝ  SET_TWO_CHAR_IN_91751-1X102 REV.5020 <890927.1 891110.1100/X25/TXT/XTLMA.PAS@`(SET_TWO_CHAR_IN_""%.ENTR .MBTPAS.1 PAS.2 PAS.3 PAS.NONCDS". h6`6A`  :A  p ( @w@@X9cŝ  PUT_TWO_BYTE_IN_91751-1X102 REV.5020 <890927.1 891110.1100/X25/TXT/XTLMA.PAS@o< PUT_TWO_BYTE_IN_.ENTR PAS.1 PAS.2 PAS.3 PAS.NONCDSt`p` 7t Ap(@|<==X15cŝ  LU_CONTROL91751-1X102 REV.5020 <890927.1 891110.1100/X25/TXT/XTLMA.PAS= "LU_CONTROL66.ENTR EXECPAS.1 PAS.2 PAS.3 PAS.INLINEERROR PAS.NONCDSPAS.RANGEINTEGER6CC` P.(P/( P0((`3p(`2p(`1p(h4`&@p+"C!!#A!!,p (!@\{}==X5cŝ  READ_LU 91751-1X102 REV.5020 <890927.1 891110.1100 /X25/TXT/XTLMA.PAS= *~*READ_LU  88 dD .ENTR ABREG EXECLU_CONTROLPAS.1 PAS.2 PAS.3 PAS.NONCDSTEST_ONE_BIT_IN_8DD##)`&@4p% 0%'&$#HIH1(H2(" 3)*D=T+ A '(p&( @@ho<<X{ kcŝ  CPR_TIME91751-1X102 REV.5020 <890927.1 891110.1100/X25/TXT/XTLMA.PAS< 9PCPR_TIME  ,,.ENTR .MVWPAS.1 PAS.2 PAS.3 PAS.NONCDSPAS.RANGEINTEGER,BBpDpC`D(<`CPj(<`C`,@dp`C`,@e@A(5`C`.@ep`C`.@dA@(0`hpE(2pEpD(;`Cb4pC(`D(ApE`E UBP ))iQAN`NhdAc`Ohec`ipE(JF) 5h @pe%??XI^cŝ COMMAND_PARSER91751-1X102 REV.5020 <890927.1 891110.1100/X25/TXT/XTLMA.PAS?WACOMMAND_PARSER^~~w.CFER .ENTR .LBT.MBT.MVW.SBT CHAR6_SHRTINT_COCONVERT_SHRTINT_CPR_TIMEEXIT_PROCESSFIND_PROCESS HELP_PROCESSLIST_PROCESSMSG_WRITERPAS.1 PAS.2 PAS.3 PAS.BITMASK1PAS.BLANKFILL ~NPAS.BOUNDINTEGERPAS.ENDOFLINE PAS.INLINEERROR PAS.NONCDSPAS.RANGEINTEGERPAS.READCHARPAS.READLINEPAS.RESET_FILE PAS.SEGMENTLOAD PAS.SETINIT PAS.SETINTERINIT!PAS.SETUNION PRINT_PROCESS TIME_PROCESS GG`ppA DEF(2`J((/A(  GA(1"`6Ah6H1DHIJI((p`A@(`JgGII@p`!(oqINA ZNMLq`@`x ,HH@(o`@AJrph6AOs@AH`JsJ(2J(A`Jw(@ȿ`Jy_EEA( A `IQpGpE`GS@^pDh_A6`DU@HAJpFpC`FP( `C( h`6`EW@HHPF(h`A6`EW@HP(pC( IDD`EpE`DpDh_6`DUD@HJpF(ـ`C($`A@E($h`A6`EW@HP($pC`C(-`GQpG`HPG(4`C(`C(?`GAQMz<pJ(ApJ`JN7)OEEAKKQpILAQpH`pJ(`A@(yh6`OH@HP(u(y`p(a`A@(h6`OD@HJp`@!(r JJ@IN NZY`@`x ,H@(`PA((vD[XphA6`O@HAJh6p`W@H``p`ph6`ONND@Hp!( AIN NZY`@`x ,HH@( `A@(`A@(>hA6`O@H@p@!(>IN ,NZY,::`@`ŀx ,H@(>`p(`P(JP(OP(TP(YP(^(cp`p(f`p`p(f`p`p(f`p`p(f`p`p(fh}fIINk(s`AQp(u`p(`@!(^N\]`@`x ,HH@(`p`p@(`!(^N_``@`x ,H@~~oDD(`P((`p(`ph6`AO@HP(Ȉ(`p(͈`p`A@(`p(`!(@IN Nba`@`x ,~bLLH@(pAD[HhA6`O@H@p@!(QIN Nba`@`x ,H@(Q`A@(Qh6`O @HDJ ?HHh6p`Ac @HH``p`p(`A@(h6`OD@Hp!(AIN tNba`@`x ,HH@(`p(Y << A  Ap  !`p(`p`p(`p`Q!p`<$DDA`p(a pp`P(ADeIp(o`P(P( P( P(7(Q`A@(`f:@h( ADhIp(T`A< EE@(`fA@h(6`P(!P()(1A(DiI(4A0DjI(4@hp(T`A@(G`fK@hA(PNDkIp(Tdd#[R33h`(oYQTp`P(cp(o`lXpkQYp`0(w`P(w(`P({(DnIpd55JA(Jߪ`p`ЪAp`o pp5nCC8(`pp`(^TI`(h6A`6FETI`( XD(pQp`P(̈`P(P(P(P(P(1@@P(P(P(P(ވP(eP(ހ(pQp`P(`P(P(P(P(P( (A  DA( XD(ADqI(`pppp EE@pIr)Qp`P('`P(`A@(`(` (IP(^P(^(`@p<@9DAr<!X9r=A`h[(`AQp`OeDDP(^`P(k(`P(o(`A@(z`(DsIp(`At@~h`p(`A@(`A@A(DvIp(DD`t҈@h`p(DwIp(DxIp`(`p`A@(ށAQp`P((0`P((`PA(( jI(ZBB`(@p<@p@ <@(pA Qp`P(`P((JAD(d"`(9`P()(0A+Qp/CC(%`P(9A9`(d@P(C(KAJDXI(dJAU(aA[A(a`AD(ddI(`pAiQ)p`P(g`P~~O rAA(xP({P(x(~`p舨(`p(ADyI(AQ6p`P(`P((`A@(  A  !(DzI(D{I~vv==(`pAQJp`P(  `P(PA((|(G(ADrI  !( A $ A  !(AD}I(Av``|BBB8A(I'zaI'! ZA=,:?90   =`>>4,,  !"#$%&'(*/:<?HIdGQ>@Xv<<XZ8 cŝ XTLOG 91751-1X102 REV.5020 <890927.1 891110.1100 /X25/TXT/XTLMA.PAS<''cPAS.1 PAS.2 PAS.3 PAS.STOP(XTLOG '}} COMMAND_PARSER EXECGET_CHECK_RUN_PAMAIN_VARIABLES_IMSG_WRITER PAS.CLOSEFILE PAS.INITFILE PAS.INITIALIZE PAS.INITMEMINFO1PAS.NONCDSPAS.RETURNPARMS PAS.SEGMENTLOAD PAS.TOPOFSTACK1 PAS.TRACECLOSE} WRITER_LIST <([[ - 5 =` E@ M@ Ua ] _p` pp p p p AnszA}``A  `A @ @A a AAA  O !INPUT_FILELIST_FILE MSG_FILELOG_FILESNAP_SHOT_FILETRACE_FILEXTLSI XTLSA c&``XTLHP 'XPLOG:XX XPLOG.LST 'XTLOG:XX C`` XTLOG.LST 'XTLOGXTLOG.LST XXPRINT*FIND*TIME*EXIT*/E*END*LIST*LL*HE*FORMAT*ALL*FIRST*LAST*NEXT*CALL*CALLCONF*CLEAR*iiKKCLEARCONF*DATA*INTERRUPT*INTERRUPTCONF*RR*RNR*REJECT*RESET*RESETCONF*RESTART*RESTARTCONF*DIAGNOSTIC*VC*NETWORK*PURGE*NORMAL*OFF**;; c i  7 @C(a(77Xq-ŝ XTLPL 91751-1X105 REV.2440 <850121.1707>/X25/TXT/XTLPL.MAC7 OXTLPL j#XPLG .ENTR ,,4``````,@<<X[ŝ $XTLSI 91751-1X103 REV.5020 <890927.1 891110.1103 /X25/TXT/XTLSI.PAS<#PAS.2 PAS.3 PAS.SEGMENTRTN  @Q>>X#fUŝ %EXIT_PROCESS91751-1X103 REV.5020 <890927.1 891110.1103/X25/TXT/XTLSI.PAS>m8EXIT_PROCESS?? :5.ENTR LU_CONTROLMSG_WRITERPAS.1 PAS.2 PAS.3 PAS.CLOSEFILE PAS.NONCDS PAS.RANGEINTEGER?ZZQ00A7 AB1CADHsDJRDL`0PT(("A!REAN(''RDQ`%/S(/A/C8Z--h9A66 Fp0( 'SAVESAVESAVEPURGE SAVE-@>>X)"ŝ %STOP_PROGRAM91751-1X103 REV.5020 <890927.1 891110.1103/X25/TXT/XTLSI.PAS>j STOP_PROGRAM%%GEXECEXIT_PROCESSPAS.1 PAS.2 PAS.3 PAS.NONCDS%d; Ap A    8 ('@Cb@@Xŝ &CHAR6_SHRTINT_CO91751-1X103 REV.5020 <890927.1 891110.1103/X25/TXT/XTLSI.PAS@DCHAR6_SHRTINT_CO A1.DAD.DLD.DMP .DNG .DSB.DST .ENTR .LBT .MVWPAS.1 PAS.2 PAS.3 PAS.BITMASK1PAS.BOUNDINTEGERPA((S.INLINEERROR PAS.NONCDSPAS.RANGEDOUBLE PAS.RANGEINTEGERPAS.SETINIT PAS.SETINTERINITѾDDA ppπh 6`7@HD 7p`P((:`A@̈́(:`p̀`A@(9h 6`;@HD ;p(`P(A`P(A(J`P(EqDLL(Gp`p`A@̈́(h 6`DD@H Dp`@!(EAqE` @`x ,HH@(`A@̈́(h jj<< `p`A@̈́(h 6`ID@H Ip(_`P (PA((D Mx(Nx(h`Шj++A `h A (90 0+  +-O@o@@X9ŝ &COMPARE_FILE_NAM91751-1X103 REV.5020 <890927.1 891110.1103/X25/TXT/XTLSI.PAS@MsCOMPARE_FILE_NAM 00J.CBT.ENTR .MVWPAS.1 PAS.2 PAS.3 PAS.INLINEERROR PAS.NONCDS0``--p-`./pp`O/Pp( (+`O/P(P(((`PP/((p-(+h6`6(%('('p-(+Hh`-s`))ltAq`qhA`rh`p-(@!/PO.) _ @h(@@X5ŝ (GET_CHECK_RUN_PA91751-1X103 REV.5020 <890927.1 891110.1103/X25/TXT/XTLSI.PAS@EVGET_CHECK_RUN_PA5~~).DST.ENTR .LBT.MBT.MVW.SBTCHAR6_SHRTINT_COCOMPARE_FILE_NAMCONVERT_SHRTINT_ FMPWORKINGDIR IFTTY LOGLU MSG_WRITERPAS.1 PAS.2 PAS.3 PAS.BITMASK1PAS.BLANKFILL PAS.BOUNDINTEGER~XX PAS.NONCDS PAS.PARAMETERSPAS.RANGEINTEGERPAS.RESET_FILEPAS.REWRITE_FILEPAS.SETINIT PAS.SETINTERINITPAS.SINGLEMOD STOP_PROGRAMSTRDSCXNN --`J/-( MM-ARS(,M$M-A,RSPNBBQ$$8P(-`F/-(eA]GAdu(lh6`6AtsBFF%%8(TuG`/-(ޤ(h6`6AFII8(A p`((h6Dp!(RA`@`x ,HH@(R`pA2 `.A@()`.p`+EE(Kpph6` D@4H"h6Ap`@4H`H88(1ANh (`p03A^ `0A@(h`0p`(ppOOdp**h6` @4HD"h6p`A$@4HH`88(p`@6`6A(Ah`&O;FFApA`h&(  `%/-(?A @&( `1A @&A()''A)`LA(?1N(p@`&P@(6(?A=A?FFG<<@8F( .J) Qp`2p`pA\ a(iAh*`+&(nh*`,A&sx%'`g2pg`/ph`/-( l<<P4((O)`J0pJ`ph)Fg`F/-A( GP4((@\)`J0pJ㠊F(`/-(@_)`J0PO pJPFȨ77h 8(I@(90P@! '!(7@SrH@@Xŝ *MAIN_VARIABLES_I91751-1X103 REV.5020 <890927.1 891110.1103/X25/TXT/XTLSI.PAS@LMAIN_VARIABLES_I}}Z>.CFER .DST.MBT.MVWFMPBUILDNAMEFMPCLOSEFMPOPEN FMPPARSENAME FMPREAD FMPSETPOSITIONFMPWORKINGDIR FMPWRITELU_CONTROLMSG_WRITERPAS.1 PAS.2 PAS.3 PAS.BLANKFILL PAS.CHECKPTR1 }{{xPAS.CLOSEFILE PAS.DCBADDRESS1 PAS.INLINEERROR PAS.NONCDSPAS.OPEN_FILE PAS.RANGEINTEGER PAS.READNONTEXT !PAS.RESET_FILE"PAS.SEEKFILEREAD_LU RNRQSTOP_PROGRAM STRDSCTEST_ONE_BIT_IN_XTLPL {O A MV`VP( ( B A8 ( MV`VP((  XXA8(  [$[pR`R(0h6`6A(7h6`6A <AAc Ca JA_A Q] XhAAYahAohpIIzc_]W[QPAOYc_]W[Yh6`6`0p(Xca`X(`XP((A(AA(XALMN~~E@@OPQ rRrp`A@̈́(6`@"ph  肸U`U(`A$p TЈpR`T(*~%jCC`1ph AA  U΀`U(`@3p SpR`S(&!A#% ()`p̈́(51A35(>LMNO00<PQ`Qp`Np`M(GGLr̀0@@8(dC RW CS p p`%/P(PA((ס`(`pA`p`A(ͤAAA(!R;;AR Rph "R R`p`(L'LMNOPQ`LA(31ͤ3`Op`Pp~~7>>A9>Rhׄ`AKR̈́(_QRAYR`p`p`pAcA p`(`p`A@(v`~u66p@p`A@(`p(`砪p@p`A@(A`p`p`p`p`pp(hD11JפJ`蠨pp1AA((8(@?!&%SHAREDSAVESHAREDSAVESAVE ؀A@r2>>X4ŝ +LIST_PROCESS91751-1X103 REV.5020 <890927.1 891110.1103/X25/TXT/XTLSI.PAS>]LIST_PROCESSjQQ .ENTR .MBT .MVWCOMPARE_FILE_NAMCONVERT_SHRTINT_IFTTY PAS.1 PAS.2 PAS.3 PAS.NONCDS PAS.REWRITE_FILE PAS.SETINIT Q~~-BB`ppp`lpq Fp(kh` AlP@((: `J0pJ#F(/ `J0pJ(9  `J@pJ(X `~TTB**AJpJHF(T@ ` JpJpA`p\l`6Ah6  ksT##Apl(! Fpm7#@ <<XQŝ XTLSA 91751-1X104 REV.5000 <870730.1 891110.1102 /X25/TXT/XTLSA.PAS<#PAS.2 PAS.3 PAS.SEGMENTRTN  @2 ??X]ŝ PACKET_DECODER91751-1X104 REV.5000 <870730.1 891110.1102/X25/TXT/XTLSA.PAS?_PACKET_DECODER 119.ENTR PAS.1 PAS.2 PAS.3 PAS.NONCDSPAS.RANGEINTEGERPAS.SINGLEMOD 188`\p(`xp](Y \jkp[`[Pp(Pq(Pr((`{p](Y`|p](Y`}p](Y`\Ps(6Pu(9Py({`z @pypxh6`yA@HPt(ph6`y@HDh6p`xA@HH``xpx`ypy(Gh6rA`6f GGA ~pz(7{ p`p p`@p A `6h6AhD6Hgh6Ap `@H` H`ph6HhAh6p `@WW?--HH` `A@l(`ph6`@H`}`p8 ((`Ap(h6`6W<< rA`hA( `o@)p0sA@0(/A.s (1<ZZR20081(`c(_pdpb@.Ai@*@b@ ho6Hpe)NeAAf Wsf\s 8b8d(<kaiZ'jBBAhhpc(4Bp-`epo`fp*`sp)`p:p3`3"@Sh3Hk @$@T838:(|`p1`p5`p7`p879hS6HeHAp: : p,hS6p:hSsCCH6 p;A :;p4k`5((p+ sV`o@kp`eA@(ڀ`o@k@p:s :`kpo(`5p5p+`oA@kp:s :`kpo`,PrHHA((&=p- sG''( <,  s<`+Pc(Pd((#A s9(&A "s<(&Dh -s?A2s5( 9sK~7DDA>s4(`o@mpo1CA JsD((Os(kQ`,Pn([Po([Pp([Pq([(A bsT((hSH6Hep:Aj:p:Aps:`,Pn(t( {sW{HHhS6Hep::p:s:(`,Pn(( sMhS6HAp: A:p:s: sQhS6Hep: :p:s:A1 sA((C~~HH9 sCk`-(`1 ip0A1A)p/ sZ(`*@1 Aip0`*@1p::*p/`*@1(( s]''`o@jpo`0( ~@@ (`0(p:p.i8.8:(`/(($`0p.i$/`epok(J@FFK##AI`IhUA%(pB>>`pPc(bPd(fPe(_(jRa(meq(mJir(mhFE`[[A`h-A%Apq+Hpp(W!'  c   w-4rLOST MESSAGE COUNT : RCVD, SENT,LU= TIME= ACT.= UNKNOWN ,VC=, QBIT=Q,MBIT=P(R)= ,P(S)=ALL= REST= 33Ic## &'*01234567:n T3@Ż{@@Xgŝ  COUNT_LOST_MESSA91751-1X104 REV.5000 <870730.1 891110.1102/X25/TXT/XTLSA.PAS@ COUNT_LOST_MESSAD EE .DAD.DIN.DSB.DST .ENTR .MVWPAS.1 PAS.2 PAS.3 PAS.DOUBLEMOD PAS.NONCDS PAS.RANGEDOUBLE E]]44p5`>X'ŝ !GET_ACTIVITY91751-1X104 REV.5000 <870730.1 891110.1102/X25/TXT/XTLSA.PAS>GET_ACTIVITYmyy4y .CFER .DST.ENTR CPR_TIME IFBRK LU_CONTROLMSG_WRITERNEXT PAS.1 PAS.2 PAS.3 PAS.INLINEERROR PAS.NONCDSPAS.RANGEINTEGERPAS.READNONTEXT PAS.SEEKFILEREAD_LU TIMER_DECODER y;;J    ` p Ϫ` p ` p  ;$$8(`p,`@Ap-+,./$JJ]50!!A.(` (Nh A QA@ RQJ R` ͨP (G(Ip L ͨp (PSJ}T== 8S(3p A ](ip ` (hh(`( p ` %/P(vPA(}(y|(` p p (hH(` %/P(PA((j@@`(/A ӈP((`(`(⨈ P(((((` (S(S(/⨈ P((̀(A($$ P(ր(p (hH$""Ap(V)"@e>>X5ŝ "TIME_PROCESS91751-1X104 REV.5000 <870730.1 891110.1102/X25/TXT/XTLSA.PAS>NTIME_PROCESS?? .ENTR GET_ACTIVITYMSG_WRITERNEXTPAS.1 PAS.2 PAS.3 PAS.NONCDS PAS.RANGEINTEGERPRED?~~s<< p`pϪ `pp΀`c(`pia`(^pbia`a(R"p`bApb+ia`aA(#1P(4(?`(<:p(>~SSA<%%`p(GBpFp`A(QQ((db(^`(^p^d pSA  9pc(@5TB@@Xŝ #PRINT_PROCESS 91751-1X104 REV.5000 <870730.1 891110.1102 /X25/TXT/XTLSA.PAS@UPRINT_PROCESS ZZ .ENTR COUNT_LOST_MESSAGET_ACTIVITYLU_CONTROLMSG_WRITER PAS.1 PAS.2 PAS.3 PAS.INLINEERROR PAS.NONCDS PAS.RANGEINTEGERWRITER_LIST ZjCC` (`̈Py( Pz( P{(P|(i(h` (h`Pz(('i` (&&ih(hp.i`(I`pA7pȀ`(@@i` P}(DE_CDD(IIih`()` (h` P~(U`(h`PxA(Y(a`jkɨA (hhjlɨA (ni`(}` (|{mni A(|(p`A((uu@@iih(` %/wPv(Pw((`(Ai(` (oAi(` p  Ap i(Jh ` A(ih(Hh UuDDCV++A RR p{pSA r{p˄T t{p(' !D@,#>>X*'Jŝ $FIND_PROCESS91751-1X104 REV.5000 <870730.1 891110.1102/X25/TXT/XTLSA.PAS>QFIND_PROCESSzzZ .CMW .ENTR .LBT.MVWCHANNEL_IDENTIFICOUNT_LOST_MESSAGET_ACTIVITYMSG_WRITERPACKET_DECODER PAS.1 PAS.2 PAS.3 PAS.BITMASK1PAS.BOUNDINTEGERPAS.NONCDSPAS.RANGEINTEGERPAS.SETINIT z WRITER_LIST vFF` (/` (pp0`(@p`Hpp`1@P(r(up(x`p(^`(p(pp`(`DDA@(`A7@?P(`A7@?P((p(`p(@09h@`A :(((p(Έ@`@Ip!(̀` ,HB@(pYY{--(p`(ꀈ`p`((0p` PGA((0/`(` (:; YPP611A `hAA:`hC8p`hDA8p(w'   P@6UB<<XYŝ  XTLHP 91751-18107 REV.5000 <870728.1 891110.1104 /X25/TXT/XTLHP.PAS<#PAS.2 PAS.3 PAS.SEGMENTRTN  @>>X$C{ŝ HELP_PROCESS91751-18107 REV.5000 <870728.1 891110.1104/X25/TXT/XTLHP.PAS>T\HELP_PROCESS;; 6.LBT.SBTMSG_WRITERPAS.1 PAS.2 PAS.3 PAS.BLANKFILL PAS.NONCDS PAS.RANGEINTEGER;HHDhj6 _apVpUpTalbc`VPy(6hk6`TA di@zAH`V _i`TpT`UpUhj6`U fl@zHD _lApV(=hiW_pT`UpUhj6`U fqH D@zH _qpV`VPy(S( \]]]8\(II!m XTLOG COMMANDS * FORMAT [NORMAL/OFF] set the format for output listing. * NORMAL The entire a``ctivity is printed (default). * OFF The output listing is turned off. * LIST directs further listing to lu, * (default (``set in the run string) * TIME [time1[time2]] Set a window for any subsequent command, * time1 The lower bound specified by HH:MM:SS:LL * resp. Mz``hours:minutes:seconds:10's of ms. * time2 The upper bound specified as above. * PRINT [ALL/FIRST/LAST/NEXT] selects activities to print. * ALL All p``activities are printed. * FIRST The first activity is printed. * LAST The last activity is printed. * NEXT T:``he next activity is printed (default). * carriage return = NEXT. * FIND [item[item[item[item[item]]]]] * search f``or activities that match the item(s). * item is either 1) a packet type keyword-CALL,CALLCONF,CLEAR,* CLEARCONF,DATA,INTERRUPT,INTERRUPTCONF,RR,RNR,REJECT,RESET, * RESa``ETCONF,RESTART,RESTARTCONF,DIAGNOSTIC- or 2) a keyword * -VC,NETWORK-followed by a vc/network decimal number. * EXIT [PURGE] terminates XTLOG. * 11ÌZ!!PURGE Purge the log file (default is no purge). ***1@ate return from list to termc  6000 CONTINUE GOTO 1000 c c UNID error after listing has startedc  7000 CONTINUE/X25/REL/XNFEF.REL:::5:199:128 644 0 0 143400 5302751154 35624 /X25/REL/XNFEF.REL:::5:199:128 $ QXNFEF REL + k+ l+ lcyxFST CCXWȝ; 8PAS.GLOBALINFO91751-16120 REV.6000 <920904.1 921110.1055/X25/REV6000/TXT/XNFEF.PASC@8WAAX^ȝ; 8INXINFO 91751-16120 REV.6000 <920904.1 921110.1055 /X25/REV6000/TXT/XNFEF.PASA !LINXINFO LL .LBT.SBTCNUMD LOGLU PAS.1 PAS.2 PAS.BLANKFILL PAS.NONCDS PAS.RANGEINTEGER PAS.RESET_FILE PAS.REWRITE_FILEL~~FFAUpTATGAOZPYQ`\pJpFhXA6`F R@]HA ThY6pK`F V@]H`K8F8J( 5OQYTT =OQYTT EOQYTTL~!!M8L(@@GY !@M{l;BBXېȝ; 8ALPHACHAR 91751-16120 REV.6000 <920904.1 921110.1055 /X25/REV6000/TXT/XNFEF.PASBOALPHACHAR }ee ޵PAS.1 PAS.2 PAS.BITMASK1PAS.BOUNDINTEGERPAS.ENDOFFILE PAS.ENDOFLINE PAS.NONCDSPAS.RANGEINTEGER PAS.READCHAR PAS.RESET_FILE PAS.SETINIT PAS.SETINTERINITeFF JpJA( `p((`p(J `A `@!( qA 5q <q `@`x ,H@VVF++(`@!(n q \q` @`x ,H@(n`@pJ(p`pJV$$r8(@*/?ZAzaq*@$@{UDDXTȝ; 8NUMERIC_PARAM 91751-16120 REV.6000 <920904.1 921110.1055 /X25/REV6000/TXT/XNFEF.PASDnHNUMERIC_PARAM \\ g.ENTR .MPYPAS.1 PAS.2 PAS.BITMASK1PAS.BOUNDINTEGERPAS.ENDOFLINE PAS.NONCDS PAS.RANGEINTEGER PAS.READCHAR PAS.SETINIT PAS.SETINTERINIT\ffx55JGJ(4 A` L @`!(3 5LPA 5PON`Q@`xF ,HFH@A(3GR@@SG(HfYI AG(905 @qCCXMUȝ; 8OCTAL_PARAM 91751-16120 REV.6000 <920904.1 921110.1055 /X25/REV6000/TXT/XNFEF.PASCJOCTAL_PARAM XX {.ENTR PAS.1 PAS.2 PAS.BITMASK1PAS.BOUNDINTEGERPAS.ENDOFLINE PAS.NONCDSPAS.RANGEINTEGER PAS.READCHAR PAS.SETINIT PAS.SETINTERINITXhhm77JIJ(6 A`N @`!(5 7NRA 7RQP`S@`xH ,HHH@(5I @@TI(JhQK AI(707@YxDDXz.xȝ; 8CONFIGURATION 91751-16120 REV.6000 <920904.1 921110.1055 /X25/REV6000/TXT/XNFEF.PASDCONFIGURATION uu- .DIN.DLD .DNG.DST .ENTR .LBTCNUMO GTNXT LUSCD PAS.1 PAS.2 PAS.NONCDS PAS.RANGEINTEGERPAS.SINGLEMOD PAS.WRITECHAR PAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRING uTqJJ`(pp`ppA`Ap`  @hp `Pv(9`  @hpD  >(((GJAG`Pv(Koo@J==(_RAW^ل(zdAinAszو8(}(` Jp(ocLLA p(w p`wp`wp`ˈp`pAĀ`((„`  @hpD  A`  @p` ! JJA@pAJAAA JA  AA$Ӱ#FF+JJA49A>CAH`(UARA(yYVh6Hs pcـh6Ht piHHmـh6Hu pwJJAO`(pph6 HA p߀h6  p`(A(` < @h6JOOH p h h6 @ phD6   > A@pA` ? @pAAAVA!hH6  pAA,FFA1hH6Hs pAh6HtHA p#hH6Hu pA-h6 A(M=6Bh6H pFIIHh6 pMh@6  (gZ9ـh6  ph6 H pgh6 (h6H @pxEA}h6 phH6  ph@6  (ZZ//Hh6 @pJAh6 H ph6  pJAO88(JZZZ8( /?   H  : wwVWRITE READPSEUDOTRANSPORT LUTRANSPORT LUSELECT CODE ERROR NETWORK Write LU :Read LU : ``i1GGLAP-B SC : PVC SVC with address : POOL SVC PAD LU #------------------------------------------------------------------------ `@j2@@Xm_{ȝ; 8CHECK_LU91751-16120 REV.6000 <920904.1 921110.1055/X25/REV6000/TXT/XNFEF.PAS@ ACHECK_LU >>Y.DLDNUMERIC_PARAM PAS.1 PAS.2 PAS.NONCDSPAS.RANGEINTEGERPAS.WRITELINE PAS.WRITESTRING >wwAA ApR`RA(`zA@R(KDDEJ(@`RAF @J@ (>4]HHEA;pIIE (@pAwSSB998A($%w>> XINFO 3: LU number out of range >> XINFO 4: NO X.25 LU corresponding to this LU number S@I AAXV@ȝ; 8CHECK_CARD91751-16120 REV.6000 <920904.1 921110.1055/X25/REV6000/TXT/XNFEF.PASAKCHECK_CARDG[[ .DLDABREG OCTAL_PARAM PAS.1 PAS.2 PAS.NONCDSPAS.RANGEDOUBLE PAS.RANGEINTEGER PAS.WRITEINTEGER PAS.WRITELINE PAS.WRITESTRING XLUEX [2FFApQ`QA@<(`=A@Q( J (`QA  @@AxP`P(5`P(F <A C (ϨF>>`?p`P@ppR`.;(h ^A e (`>pAos`':P:(y( A !ggH33 PJ (`!:P:(( %A 6 PJ `':(`!:(pgS]]8(&?, ! w>> XINFO 5: Select Code out of range >> XINFO 6: no LAP-B card corresponding to this Select Code>>XINFO 4: LU busy; please try again X.25/1000: I;;)))NTERFACE CARD ERROR LU= X.25/1000: POWER FAIL LU=?;@m\BBXȝ; 8CARD_STAT 91751-16120 REV.6000 <920904.1 921110.1055 /X25/REV6000/TXT/XNFEF.PASB,CARD_STAT xx .DAD.DIV.DST .LBTABREG CHECK_CARDCNUMO PAS.1 PAS.2 PAS.BOUNDINTEGER PAS.INLINEERROR PAS.NONCDSPAS.SINGLEMOD PAS.WRITECHAR PAS.WRITEDOUBLE PAS.WRITEINTEGERPAS.WRITELINE xTPAS.WRITESTRING XLUEX EEA@` (&  Q V W//0hU6H p( (0hU6H p(& (0hU6H p(0 (0A7 Y110` /p(@ (0AG [2BXEEEA20L 34` .p(U (0A\ a550 c 36` -Ap(l (0s i7A70x 38` ,p( (0A p990 >EEA 36` +p( A(0 ::0 3;` *Ap( (0 <J<0 A 36` )p( A(0ˡ 770 3~~DD8` (p( A(0 <<0  36` 'p(A (0 440A 32` &p( A(0  ::0  36~_DD` %p(A (0# ==0A( 3>` $p(1 A(08 ??0 ? 36` #p(AH (0O ::0AT 3;` ";W@@p(] A(0d @@0 ` "(ܨ` p(` ! J@(p' `'P(P(P(PA(( 3A BAB0 CC0 (lHHA 3A BB0A 440A ( 3A BAB0 DD0 (A 3A BB0A 880 (hD  `_EEp 0  E  ` P(( 2A20 FGhVH6  PA((  #66A0( (660 A3; -AA0hV6H@ @~~$MMh )0 )HhV6H p(:(5IhA )AE )HhV6H@ AhA )AY )HhV6HHA p+c+5Ih )n J)H @~~~q>> y :770A~ F>hV6HD  !(@(((((((((((((5(B(O(\(i(v((((P(P(P(ф( A110A~ߟHH 38(A C<<0 3G( QJJ0A 3AB(ԡ ZKK0 3/( JLAL0 37(A c770 3L( nJJj550A 3A>( r<<0 3G( yMAM0 3N(A" KK0' 3/(/ <<0A4 3AG(< KK0A 3/AJJ(I <<0AN 3AG(V <<0[ 3G(c KAK0h 3/(Ap JJ0u 3B(} <<0A 3AG( ::0}}bHH 3H( JJ0A 3AB( GG0 3<( 5A50 3>(A 770 3L( <<0A 3AG(}~~* HH LL0 37( 5A50 3> LAL0 FM 3/hV6H  P((A O110A ( 110 ~rZEE # <<0A( FBhV6HHA p(2 (N7 3MA>  220C F7hV6H p(M J(N hV6H p(hV6H@ @(p ThV6H@  `CCp(hV6H@ @(p Up 880Au  TNz A3M <<0 AF6  UN   CC0hV6H  p T` TP(P(DDP(P(ʈP(P(ڈP(P(ꈄP(( +BB0( .BB0( 1BB0( 4BB0( 7BB0( :BB0( =B~~IIB0( @BB0( CBB0( F6A60 3< KDD0hV6H p((OPh AA)" )N ((hV6HH p(hV6H @(~0GGp T8 W880A=  TND aHH0h T AA Q)AQ )/X b110JJ  hV6H p(hV6H@ @(p Tp d770Au F>z'wGG  TN 3MA kDD0hVH6H p(A (N  w2A20 FGhV6 p( (NA 3M }DD0hV6H p(hV6H@ $sBBA@(p TŪ  TN hV6HH p(hV6H A@(p Tۡ 220 AFG  TNhVH6H p(hV6H @(p UA 3M 660ARR<'' F<  UNJJ  A SS0  (&A TT0$  /J ,R!+-\\8,(   :, p%' V  SC= - Reserved - Loopback mode - Line trace - Logical Connection allowed - Waiting on Remote?`` - Remote Busy - Local Busy - Reject Sent - Write Port defined - Read Port defined - Trace/Dump Port defined - Configuration Data received - Board Initialized - Information Transfer 00 - LoUM``gically Disconnected01 - Attempting Connection 10 - Attempting Disconnection11 - Rejection Condition Board Type HP-DLC II UNKNOWN Firmware Revision Code : NETWORK type HP TELENET (USjI``A) PSS (UK) DCE DATAPAC (Canada) TRANSPAC (France) BX.25 (BELL) DATEX-P (W Ger) TYMNET (USA) DCS (BELGIUM) DN1 (NETHERLAND) UNINET (USA) TELEPAC (SWITZ.) RETD (SPAIN) ARPAC (USA) S``APONET (AFRICA) VENUS-P (JAPON) DDX (JAPON) AUSTPAC (AUSTRALIA) NORPAK (NORWAY) EDWP BERNET (W Ger) Other PUBLIC Other PRIVATE LOOPBACK UNKNOWN (error)Acting as DTE # of Retry N2 ``ACK count K Timer T1 value : Timer T2 value Line Speed (bps) : 300 1200 2400 4800 9600 19.2K 38.4K 48.0K 57.6K unknown ;Max No of Data Buffers : Max Info Field : (+3) System Cli``ock Diagnostic Information : Error code Last Error Address : T1 expires T2 expiresTime values measured in tens of msecs Card Statistics UNOBTAINABLE TLOG =  m@׫kBBXȝ; 8LINE_STAT 91751-16120 REV.6000 <920904.1 921110.1055 /X25/REV6000/TXT/XNFEF.PASBLINE_STAT 5XX .DAD.DST .LBTABREG CHECK_CARDPAS.1 PAS.2 PAS.NONCDS PAS.WRITEDOUBLE PAS.WRITEINTEGER PAS.WRITELINE PAS.WRITESTRING XLUEX XFFA@`(`p `P(( h6 hA ɀh6   @ 0A 7 h6HH h h6HjFOO@ @AAA S ZJ h6H hA ɀh6H  @ vA } h6HH h h@6H A@A@ ~~LLA  h6HH h h@6H A@AA  J h6H h Ah6H @ A ~~~LL* hH6H h h6H@ @AAA   5J h6H hA ɀh6H  @ %A ,J ~*-MMh6HH h h@6H A@AA H OaJ h6H h Ah6H @ kA rl y@ zIIh6HH h h@6H A@AA  A    A   (A  v ]]8(#*.- & ' - # of I frames correctly received - # of RR frames received - # of RNR frames received - # of REJ frames received - # of FRMR frames receiv+)``ed - # of frame OVERRUNS - # of frames received with incorrect FCS - # of received frames ABORTED by REMOTE node - # of byte OVERRUNS - # of times received frame EXCEEDED MAXIMUM frame size ||yY]] - # of frames received with INCORRECT ADDRESS field NB - LAP-B card statistics have been reset to 0 ! Line Statistics UNOBTAINABLE TLOG =  |@̼|BBXS/ȝ;! 8LIST_FILE 91751-16120 REV.6000 <920904.1 921110.1055 /X25/REV6000/TXT/XNFEF.PASBoLIST_FILE [{{̄.LBT.MBT.SBTALPHACHAR CKNMR PAS.1 PAS.2 PAS.BITMASK1 PAS.BLANKFILL PAS.BOUNDINTEGER PAS.ENDOFLINE PAS.NONCDS PAS.PROMPTPAS.RANGEINTEGERPAS.READCHARPAS.READLINEPAS.REWRITE_FILE{;;=^PAS.SETINIT PAS.SETINTERINITPAS.TOPOFPAGE PAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRING ;mBBA YpO @(0` !((` @`x ,H@ (0J`A( J (q`OA@+(qJ`AmuBHH @` !(` `@`x ,H@ (p`O pOh6`OA@.AH`(0`O(u(h@6 p!(@GG`@`x ,H@ (`*p`OA@(πh6`@.HD p!(A`@`x ,HH@ (`p(`OS*CC P(pOAJ`O((h6`6AYOy`(+`P)( P*((A@(+GGJ(+$A)P(/(S8 A?FJAO S`P-(fA@VV׺[,,(fP(b(q`JP,(f(qn!(`P)A(u(~}#(&VͧZZ8( @, +-90# "YYy>> XINFO 13: Invalid parameter for this command RWO >> XINFO 11: Wrong file type >> XINFO 12: File write protectedBB@h//>> XINFO 10: FMGR error FILE : already exists REWRITE (Y/N) ? CCTLNOCCTLNOCCTL@YB@2BBX0[ȝ;# 8LEGEND_PRINT91751-16120 REV.6000 <920904.1 921110.1055/X25/REV6000/TXT/XNFEF.PASBCLEGEND_PRINT>00^PAS.1 PAS.2 PAS.NONCDSPAS.WRITECHAR PAS.WRITELINE PAS.WRITESTRING 0/HHJA AJJA'.A5<JAE LĶHGG5JJAW:^RJJAi[ppJJA{wJJA``M33JAAAJJ`__8( # (%* /) !" CO - lists X.25 network CONFIGURATION information LL, - specify/change LIST device could be a file or a lu# of a list device LU,[6"`` lu# - lists the DVT/EQT and extent in octal DE, lu# - details X.25 specific information in DVT/EQT extent CS, sc# - lists LAP-B Card Status and configuration LS, sc# - lists (! r``and resets !) LAP-B card Line Statistics ?? - lists XINFO commands EX - EXIT XINFO program EN or /E will also terminate XINFO lu# = Logical Unit number (dec)sc# = Select Code -number (oct)@ԺzCCXwȝ;% 8EQT_OCTAL_LIST91751-16120 REV.6000 <920904.1 921110.1055/X25/REV6000/TXT/XNFEF.PASC  EQT_OCTAL_LIST??CNUMO PAS.1 PAS.2 PAS.NONCDSPAS.WRITECHAR PAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRING ?GGA AR!A((&.JA,VA3::VAA=F@ IGEEJVQHAXV_KJAeAVlWsVAzZAVAdEEVgJAAVsVAvAVAVAѡqq_<DDJA A V  VA A!VA  VA  "V  :EEA ԪV JA A#V  VA A$VA '  VA eEE*JA A%V !6 (VA /94A8&VA ?D FVA MG S'V ZUEEQ aVA hTmAq(VA x` VA c )V nA VuOGGA qA*VA } VA J A+VA  VA ߡBB,V A V A -V A V JJ  `pTx#BB `MA@T(`TA@p5AV :T AA HV OAT `TpT `MA@T(`T@pPPRe''AiVA nT uA |V J `TpT(#J P]]8($  @ >> XINFO 7: LU configuration error 9 Opt param or TLOG 10 Opt param or Read Type 11 Config FLAGS!CS #!TYPE 12 EQT Ex``tension Size 13 EQT Extension Addr 14 Device T.O. value 15 Device T.O. clock 16 Read Type! Master Stat 17 EQT St!AB Type!Req St 18 Saved BUFFER Address 19 XNET Q=K``ueue pointer 20 B reg completion value 21 Saved Interrupt word 22 Sched Program Address 23 CS Binary Length 24 CS Request Control 25 26 CS Request Buffer Addr ,,NCS Request Buffer Length CS extent word CS extent word,@Y BBX/iȝ;* 8EF_XNET_EQTW91751-16120 REV.6000 <920904.1 921110.1055/X25/REV6000/TXT/XNFEF.PASBrEF_XNET_EQTWCC 'CNUMO EQTEX EQT_OCTAL_LISTPAS.1 PAS.2 PAS.NONCDSPAS.WRITECHAR PAS.WRITELINE PAS.WRITESTRING C2BB ApNRMN`M( J(V "A )V 0A59V @A GBEEV NJATAV [% bVA i(nArVA y5 VA 8)DDJAA V B VA EA!VA O VA R"V \55$A ԪV _A5__8($ >> XINFO 7: LU configuration error 9 Temp Storage/ Opt Param 10 Temp Storage/ Opt Param 11 Temp Storage for driver 12 EQT Extension Size 13 44GgE$$ EQT Extension Addr 14 Device T.O. value 15 Device T.O. clock 4@j퉭BBX/iȝ;, 8EF_XNET_EQTR91751-16120 REV.6000 <920904.1 921110.1055/X25/REV6000/TXT/XNFEF.PASBmEF_XNET_EQTRCC 'CNUMO EQTEX EQT_OCTAL_LISTPAS.1 PAS.2 PAS.NONCDSPAS.WRITECHAR PAS.WRITELINE PAS.WRITESTRING C2BB ApNRMN`M( J(V "A )V 0A59V @A GBEEV NJATAV [$ bVA i'nArVA y4 VA 7)DDJAA V B VA EA!VA O VA R"V \55$A ԪV _A5U__8($ >> XINFO 7: LU configuration error 9 Temp Storage/ Opt Param 10 Temp Storage/ Opt Param 11 Temp Storage for driver 12 List HEADER Address 13 44DE$$ List TAIL Address 14 Device T.O. value 15 Device T.O. clock 4@ CCX5Wȝ;. 8EF_CARD_EQT 91751-16120 REV.6000 <920904.1 921110.1055 /X25/REV6000/TXT/XNFEF.PASC3EF_CARD_EQT sWW CNUMO EQTEX EQT_OCTAL_LISTPAS.1 PAS.2 PAS.NONCDSPAS.RANGEINTEGERPAS.WRITECHAR PAS.WRITEINTEGER PAS.WRITELINE PAS.WRITESTRING W3'AAA`pNRMN`M( J (V "A )V 0A59V @@ HAEEGVA N TV [A bV iAnrV yA V ) DD  V A V A!V A V J A"VA DD VA ۡJ `pT`ȆA @T(J`T9@pAVA T A  V AAA`T pT`ȆA @T(I`TC@pA*VA /T 6A =V DJ `TpT(JA P:~~}ODDV W(A ^V e+Ajn;V u5A |V 8JA A<V C ~FFVA FA=VA Q(( VA T >V `A ЪV cADD?V pA V sJA A@V {  VA ~AAVA  ~~lEE 'VA . 4BV ;A BV IANRCV YA `V g~SS]b** mDV tA {V A  S]]8($ @>> XINFO 7: LU configuration error 9 DVM00 extent word 10 DVM00 extent word 11 DVM00 extent word 12 DVM00 extent word `` 13 EQT Extension Addr 14 Device T.O. value 15 Device T.O. clock DVM00 extent word DVM00 extent word 39 Binary READ Length 40 Orig Request Control 41 Orig ReqCK`` Buffer Addr 42 Orig Req Buffer Length 43 Network Write Buff Addr 44 Current State 45 Saved A reg command 46 Saved Request Control 47 48 Saved Req Buffer Addr --USaved Req Buffer Length 49 WEQT bit and T3 timer "&-@ *]AAXȝ;1 8LU_LIST 91751-16120 REV.6000 <920904.1 921110.1055 /X25/REV6000/TXT/XNFEF.PASA +oLU_LIST __ m .DCO.DLDCHECK_LUEF_CARD_EQT EF_USER_EQT EF_XNET_EQTREF_XNET_EQTW PAS.1 PAS.2 PAS.NONCDS PAS.RANGEINTEGER PAS.WRITELINE PAS.WRITESTRING _GGA` A(n` R rw @@A t(=(A v(@(A x(C(A z(F( A |(I($A ~(L((A (O(,A (R(0A (U(4A (X(8A ([(<(^?(nAB(n@E(nHH G((AH(nK(nN(nAQ(nAT(nW(nZ(nA](n e Ar l r oHGG> p008o(  w>> XINFO 8: XINFO tables are corrupted G@AAXuȝ;3 8EF_USER_DE91751-16120 REV.6000 <920904.1 921110.1055/X25/REV6000/TXT/XNFEF.PASAq EF_USER_DE-II eEQTEX PAS.1 PAS.2 PAS.BOUNDINTEGERPAS.NONCDSPAS.WRITECHAR PAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRING IL@@ ApNRMN`MA@s(A A( & A+R`/mp6A =`/m@DDPm(C(P JAO(\A W\ݠ`.mpAe lJ`,Ampw ~$`,mPm(( !EEA 0( 2A`-mpA 4`-mA( =(A E`*mpUEEA Lנ`*m( \J( fJ`+mpA zנ`+m(  ADD( A`&mp$A +`&mPm(1(; 8J(D BJ`)AmpM TJREE`)m(f `Ae(rA mr۠`'mpA{ נ`'mPmA(( (A !AAJ`"rpA A`opA ר`oPl(ʈPm(Pn(ވPo(( J( 1AAA( (A J(`oPo((0 נ`#)mPmA((  A( ,`#(mPmDDA((% "9(.A ,E 7R`#mp?A F[K`#!AmpT [iJ ]EEAb`#"mpkA rsw`##Amp ~JA`#$mpA CC`#%mpA 레`#&mpA A`#'mpA ߡ`$/}}6DDAmp `$/m( A(A  ݠ`$,qpA !J`$*Aop,})FF 3`$*oPl(?Pm(LPn(YPoA(f(s FK(s SAX(sA `eڄ(s mAr}}o@@(s`$(opA| נ`$(oPl(Pm(Pn(Po((A A(  (A -A( }P@@7(J`$qpA ȡF`$qPl(Pm(Pn(Po(PpA(( ܡR(A WA( ]lBB(A oA( y(A `$#tpA  `$#t@ !(9@*+(:(D(N(X(b(l1CC(v(((((((( AJ( KJ( UJ( _J( iJ( s@tDDA( }(A A( (A "A( (A /A( 577[(A GA( ͡[7U__8(#    '  !$">> XINFO 7: LU configuration error USER LU - EQT initialized: Yes No - (Reserved) - UNSOL ACTION enable: Yes Nok3`` - UNSOL ACTION: Schedule ProgramEnter Cust Sub - On UNSOLICITED DATA arrival: Set STATUS BIT only Set STATUS bit, UNSOL ACTION if enabled - On Line Failure: DOWN EQT FLUSH REQUEST - Ext``ra SAM word allocated: Yes No - Read CONFIG: on all READSCN 36/7, CS command - Read Config INVALID: Yes No - Customizing Subroutine NUMBER - EQT Type UNDEFINED Read Type : SYSTEMTy=``pe: HOST-to-HOST Write Port Type: HOST-to-HOST Read Port Type: PAD Read / Write Port Input Editing ENABLED ; Input Editing DISABLED ; Input Data Echo ENABLED Input Data Echo DISABLED MTS``aster Status : -Hard Error on last request -Unsol Action enable-Unsol Data Available -Soft Error on last request -Link Disconnected-Last request Flushed -Interrupt PACKET received-Last Requesw``t TIMED OUT - Current MAP : USER - A reg value for RTE completion - EQT ACTIVE ( User req pending ) - Waiting P.I. to complete reqWaiting P.I. to jump $UPIOEQT IDLE ( No User req pendi{``ng )Abort type : NO ABORT Abort type : SYSTEM CLEAR Abort type : TIMEOUTData arrival/Read Type change - Overall Req State : No RequestREAD PendingWAITING to transport request to XNETRequest bs``GONE to XNETWAITING P.I. to enable orig USER mapUNKNOWN - implies ERROR condition - Request for XNET : No RequestAbort Request Abort Request for CN31, CN32CONTROL 31 - Establish CircuitCONT3"``ROL 32 - Clear CircuitWrite Request CONTROL 6 - Dynamic Status CONTROL 26 - Flush Data CONTROL 16 - Send Interrupt PacketCONTROL 36 - Send Binary Read LengthCONTROL 37 - Set Read TypeRead ReqZZR}3BBuestSet Read Type prior to Read Request Set Bin Len prior to Read Type/Read Req UNKNOWN - implies ERROR condition Z@6m((U-CCXPVȝ;9 8EF_XNET_DEW 91751-16120 REV.6000 <920904.1 921110.1055 /X25/REV6000/TXT/XNFEF.PASC/0EF_XNET_DEW ?? {EQTEX PAS.1 PAS.2 PAS.NONCDSPAS.WRITECHAR PAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRING ?cc<00 ApNRMN`MA@U(A9334A(/56&K7A74+R80c881%%80(# >> XINFO 7: LU configuration error WRITE TRANSPORT LU 8@g!CCXL`ȝ;9 8EF_XNET_DER 91751-16120 REV.6000 <920904.1 921110.1055 /X25/REV6000/TXT/XNFEF.PASC/{EF_XNET_DER DD CCNUMO EQTEX PAS.1 PAS.2 PAS.NONCDSPAS.WRITECHAR PAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRING DK== ApNRMN`MP( ~J~(zA !&JRJA.AV3 :A Att¿=>>VA H OJAU VAZ  aA hV oA v{tllV1|OO8{(# >> XINFO 7: LU configuration error READ TRANSPORT LU ( B ) - Transport list HEADER address ( B ) - Transport list TAIL address l@M AAX*ȝ;; 8EF_CARD_DE91751-16120 REV.6000 <920904.1 921110.1055/X25/REV6000/TXT/XNFEF.PASAQEF_CARD_DE"MM |.LBTEQTEX PAS.1 PAS.2 PAS.BOUNDINTEGERPAS.NONCDSPAS.WRITECHAR PAS.WRITEINTEGER PAS.WRITELINE PAS.WRITESTRING MAAA`pNRMN`MA@(A  A( &A+R  hH6 pA9 @h~~>ABBD6  !(X@KL(Y(c(m(w(((((((((A ` A( j (A t/ A( ~@ (A ~DDT (A _ A( o (A ~ A(  (A  A( ġ (//hA  A( ء  /x]]8(#  !("$?>> XINFO 7: LU configuration error LAP-B LU - Driver DDX60 STATE : No Request in progressPartial PACKET WRITE completion 1 Partial PACKET WRITE compl<``etion 2 Partial PACKET WRITE completion (second)Final WRITE completionFinal WRITE completion (second) Direct PACKET READ completion FLUSH after READ, set status flagsFLUSH after READ, clear stWWٸ@@atus flagsREAD/WRITE card data completion CONTROL completionOPEN or CLOSE line completion UNKNOWN - implies ERROR condition "&W@w!7BBXȝ 8DETAIL_STATE91751-16120 REV.6000 <920904.1 921110.1055/X25/REV6000/TXT/XNFEF.PASB3hDETAIL_STATE]] .DCO.DLDCHECK_LUEF_CARD_DEEF_USER_DEEF_XNET_DER EF_XNET_DEW PAS.1 PAS.2 PAS.NONCDS PAS.RANGEINTEGER PAS.WRITELINE PAS.WRITESTRING ]iGGA` A(g` R k @@A m(=(A o(@(A q(C(A s(F( A u(I($A w(L((A y(O(,A {(R(0A }(U(4A (X(8A ([(<(^?(gAB(g@E(g>>9G!!AH(gK(gN(gAQ(gAT(gW(gZ(gA](g e Jk h>GG> i008h( ( w>> XINFO 8: XINFO tables are corrupted G@GEEXr'ȝ 8ILLEGAL_COMMAND 91751-16120 REV.6000 <920904.1 921110.1055 /X25/REV6000/TXT/XNFEF.PASE! ILLEGAL_COMMAND ''PAS.1 PAS.2 PAS.NONCDSPAS.WRITELINE PAS.WRITESTRING 'R A  ,, 8 (/>> XINFO 2: ILLEGAL COMMAND; use "??" for HELP ,@W@@X/ȝ 8XINFO 91751-16120 REV.6000 <920904.1 921110.1055 /X25/REV6000/TXT/XNFEF.PAS@ z&PAS.1 PAS.2 PAS.STOP(XINFO 2$ ALPHACHAR CARD_STAT CONFIGURATION DETAIL_STATEEXEC HPRTEAILLEGAL_COMMAND INXINFO LEGEND_PRINTLINE_STAT LIST_FILE LU_LIST PAS.CLOSEFILE PAS.INITFILEPAS.INITIALIZEPAS.NONCDSPAS.PROMPT66PAS.READLINEPAS.RETURNPARMS PAS.TRACECLOSEPAS.WRITELINE PAS.WRITESTRING XNVFY 6(UU-5=E G A(TQ(A Wz`z(]p((_p(`(A(li (AA nu  y`ppo`oP}@@( `o @ppo`oP(P(P(P(P(P(P(P(P(P(PA(( ((A(A(((A(((((`p,WWAP(`oP(`oP(`oP((nAAAA6'( IP_FILE OP_FILE LL_FILE >> XINFO 9: Incorrect OPERATING SYSTEM >> XINFO 1: X25 sG/1000 subsystem inactive/XINFO :   @/E??COCSDEENEXHELLLSLU@ ,^(PA(/X25/REL/XINFA.REL:::5:212:128 644 0 0 152000 5302751155 35610 /X25/REL/XINFA.REL:::5:212:128 $ RHXINFA REL + l+ m+ mi5BFST CCXȝ 8PAS.GLOBALINFO91751-16122 REV.6000 <920908.0 921110.1100/X25/REV6000/TXT/XINFA.PASC@AAXo ]ȝ 8INXINFO 91751-16122 REV.6000 <920908.0 921110.1100 /X25/REV6000/TXT/XINFA.PASA !LINXINFO LL .LBT.SBTCNUMD LOGLU PAS.1 PAS.2 PAS.BLANKFILL PAS.NONCDS PAS.RANGEINTEGER PAS.RESET_FILE PAS.REWRITE_FILEL~~FFAPpOAOGAOZPTQ`[pJpFhXA6`F R@\HA ThY6pK`F V@\H`K8F8J( 5OQYTT =OQYTT EOQYTTL~M8L(@@GT @V BBXȝ 8ALPHACHAR 91751-16122 REV.6000 <920908.0 921110.1100 /X25/REV6000/TXT/XINFA.PASBOALPHACHAR }ee ޵PAS.1 PAS.2 PAS.BITMASK1PAS.BOUNDINTEGERPAS.ENDOFFILE PAS.ENDOFLINE PAS.NONCDSPAS.RANGEINTEGER PAS.READCHAR PAS.RESET_FILE PAS.SETINIT PAS.SETINTERINITeFF JpFA( `p((`p(J `A `@!( qA 5q <q `@`x ,H@VV%F++(`@!(n q \q` @`x ,H@(n`@pF(p`pFV$$r8(@*/?ZAzaq*@$@=\CDDXQTȝ 8NUMERIC_PARAM 91751-16122 REV.6000 <920908.0 921110.1100 /X25/REV6000/TXT/XINFA.PASDnHNUMERIC_PARAM \\ g.ENTR .MPYPAS.1 PAS.2 PAS.BITMASK1PAS.BOUNDINTEGERPAS.ENDOFLINE PAS.NONCDS PAS.RANGEINTEGER PAS.READCHAR PAS.SETINIT PAS.SETINTERINIT\ff55JGJ(4 A` L @`!(3 5LPA 5PON`Q@`xF ,HFH@A(3GR@@SG(HfYI AG(905 @4RCCXUȝ 8OCTAL_PARAM 91751-16122 REV.6000 <920908.0 921110.1100 /X25/REV6000/TXT/XINFA.PASCJOCTAL_PARAM XX {.ENTR PAS.1 PAS.2 PAS.BITMASK1PAS.BOUNDINTEGERPAS.ENDOFLINE PAS.NONCDSPAS.RANGEINTEGER PAS.READCHAR PAS.SETINIT PAS.SETINTERINITXhhn 77JIJ(6 A`N @`!(5 7NRA 7RQP`S@`xH ,HHH@(5I @@TI(JhQK AI(707@:DDX<6xȝ 8CONFIGURATION 91751-16122 REV.6000 <920908.0 921110.1100 /X25/R((EV6000/TXT/XINFA.PASDCONFIGURATION uu- .DIN.DLD .DNG.DST .ENTR .LBTCNUMO GTNXT LUSCD PAS.1 PAS.2 PAS.NONCDS PAS.RANGEINTEGERPAS.SINGLEMOD PAS.WRITECHAR PAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRING uTJJ`(pp`ppA`Ap`  @hp `Pv(9`  @hpD  >(GJAG`Pv(Koo?J==(_RAW^ل(zdAinAszو8(}(` Jp(ocLLA p(s p`wp`wp`ˈp`pAĀ`((„` , @hpD  A` - @p` . JJA@pAJAAA JA  AA$#FF+JJA49A>CAH`(UARA(yYQh6Hs pcـh6Ht ppiHHmـh6Hu pwJJAO`(pph6 HA p߀h6  p`(A(` H @h6JOOH p h h6 @ phD6   J A@pA` K @pAAAQA!hH6  pAA,FFA1hH6Hs pAh6HtHA p#hH6Hu pA-h6 A(M=6Bh6H p FIIHh6 pMh@6  (gZ9ـh6  ph6 H pgh6 (h6H @pxEA}h6 phH6  ph@6  (ZZ//Hh6 @pJAh6 H ph6  pJAO88(JZZZ8( /?   H  : ssQWRITE READPSEUDOTRANSPORT LUTRANSPORT LUSELECT CODE ERROR NETWORK Write LU :Read LU : ``i1GGLAP-B SC : PVC SVC with address : POOL SVC PAD LU #------------------------------------------------------------------------ `@+JZ@@X/g{ȝ 8CHECK_LU91751-16122 REV.6000 <920908.0 921110.1100/X25/REV6000/TXT/XINFA.PAS@ ACHECK_LU >>Y.DLDNUMERIC_PARAM PAS.1 PAS.2 PAS.NONCDSPAS.RANGEINTEGERPAS.WRITELINE PAS.WRITESTRING >wwƾAA ApN`NA(`zA@N(KDDEJ(@`NAF @J@ (>4]HHEA;pIIE (@pAwSSB998A($%s>> XINFO 3: LU number out of range >> XINFO 4: NO X.25 LU corresponding to this LU number S@N5lAAXy\>ȝ 8CHECK_CARD91751-16122 REV.6000 <920908.0 921110.1100/X25/REV6000/TXT/XINFA.PASAKCHECK_CARDG[[ .DLDABREG OCTAL_PARAM PAS.1 PAS.2 PAS.NONCDSPAS.RANGEDOUBLE PAS.RANGEINTEGER PAS.WRITEINTEGER PAS.WRITELINE PAS.WRITESTRING XLUEX [GGApM`MA(`> XINFO 5: Select Code out of range >> XINFO 6: no LAP-B card corresponding to this Select Code>>XINFO 4: LU busy; please try again X.25/1000: I88''NTERFACE CARD ERROR LU= X.25/1000: POWER FAIL LU=?8@weBBXȝ 8CARD_STAT 91751-16122 REV.6000 <920908.0 921110.1100 /X25/REV6000/TXT/XINFA.PASB,CARD_STAT xx .DAD.DIV.DST .LBTABREG CHECK_CARDCNUMO PAS.1 PAS.2 PAS.BOUNDINTEGER PAS.INLINEERROR PAS.NONCDSPAS.SINGLEMOD PAS.WRITECHAR PAS.WRITEDOUBLE PAS.WRITEINTEGERPAS.WRITELINE xTPAS.WRITESTRING XLUEX EEA@` (&  M Q W//0hU6H p( (0hU6H p(& (0hU6H p(0 (0A7 Y110` /p(@ (0AG [2B,EEEA20L 34` .p(U (0A\ a550 c 36` -Ap(l (0s i7A70x 38` ,p( (0A p990 EEA 36` +p( A(0 ::0 3;` *Ap( (0 <J<0 A 36` )p( A(0ˡ 770 3~~DD8` (p( A(0 <<0  36` 'p(A (0 440A 32` &p( A(0  ::0  36~^DD` %p(A (0# ==0A( 3>` $p(1 A(08 ??0 ? 36` #p(AH (0O ::0AT 3;` "W@@p(] A(0d @@0 ` "(ܨ` p(` ! J@(p' `'P(P(P(PA(( 3A BAB0 CC0 (kHHA 3A BB0A 440A ( 3A BAB0 DD0 (A 3A BB0A 880 (hD  `GEEp 0  E  ` P(( 2A20 FGhVH6  PA((  #66A0( (660 A3; -AA0hV6H@ @~~~$MMh )0 )HhV6H p(:(5IhA )AE )HhV6H@ AhA )AY )HhV6HHA p+c+5Ih )n J)H @~~~q>> y :770A~ F>hV6HD  !(@(((((((((((((5(B(O(\(i(v((((P(P(P(ф( A110A~oHH 38(A C<<0 3G( QJJ0A 3AB(ԡ ZKK0 3/( JLAL0 37(A c770 3L( n|JJj550A 3A>( r<<0 3G( yMAM0 3N(A" KK0' 3/(/ <<0A4 3AG(< KK0A 3/wAJJ(I <<0AN 3AG(V <<0[ 3G(c KAK0h 3/(Ap JJ0u 3B(} <<0A 3AG( ::0}}bHH 3H( JJ0A 3AB( GG0 3<( 5A50 3>(A 770 3L( <<0A 3AG(}~~)HH LL0 37( 5A50 3> LAL0 FM 3/hV6H  P((A O110A ( 110 ~r1EE # <<0A( FBhV6HHA p(2 (N7 3MA>  220C F7hV6H p(M J(N hV6H p(hV6H@ @(p OhV6H@ ~`CCp(hV6H@ @(p Pp 880Au  ONz A3M <<0 AF6  PN   CC0hV6H  ((p O` OP(P(xDDP(P(ʈP(P(ڈP(P(ꈄP(( +BB0( .BB0( 1BB0( 4BB0( 7BB0( :BB0( =B~~}IIB0( @BB0( CBB0( F6A60 3< KDD0hV6H p((OPh AA)" )N hV6HH p(hV6H @(~0GGp O8 W880A=  OND aHH0h O AA Q)AQ )/X b110JJ  hV6H p(hV6H@ @(p Op d770Au F>z'wGG  ON 3MA kDD0hVH6H p(A (N  w2A20 FGhV6 p( (NA 3M }DD0hV6H p(hV6H@ $>BBA@(p OŪ  ON hV6HH p(hV6H A@(p Oۡ 220 AFG  ONhVH6H p(hV6H @(p PA 3M 660ARR'' F<  PNJJ  A SS0  (&A TT0$  /J ,R!@-\\8,(   :: |%' Q  SC= - Reserved - Loopback mode - Line trace - Logical Connection allowed - Waiting on Remote?`` - Remote Busy - Local Busy - Reject Sent - Write Port defined - Read Port defined - Trace/Dump Port defined - Configuration Data received - Board Initialized - Information Transfer 00 - LoUM``gically Disconnected01 - Attempting Connection 10 - Attempting Disconnection11 - Rejection Condition Board Type HP-DLC II UNKNOWN Firmware Revision Code : NETWORK type HP TELENET (USjI``A) PSS (UK) DCE DATAPAC (Canada) TRANSPAC (France) BX.25 (BELL) DATEX-P (W Ger) TYMNET (USA) DCS (BELGIUM) DN1 (NETHERLAND) UNINET (USA) TELEPAC (SWITZ.) RETD (SPAIN) ARPAC (USA) S``APONET (AFRICA) VENUS-P (JAPON) DDX (JAPON) AUSTPAC (AUSTRALIA) NORPAK (NORWAY) EDWP BERNET (W Ger) Other PUBLIC Other PRIVATE LOOPBACK UNKNOWN (error)Acting as DTE # of Retry N2 ``ACK count K Timer T1 value : Timer T2 value Line Speed (bps) : 300 1200 2400 4800 9600 19.2K 38.4K 48.0K 57.6K unknown ;Max No of Data Buffers : Max Info Field : (+3) System Cli``ock Diagnostic Information : Error code Last Error Address : T1 expires T2 expiresTime values measured in tens of msecs Card Statistics UNOBTAINABLE TLOG =  {$@0BBXȝ# 8LINE_STAT 91751-16122 REV.6000 <920908.0 921110.1100 /X25/REV6000/TXT/XINFA.PASBLINE_STAT 5XX .DAD.DST .LBTABREG CHECK_CARDPAS.1 PAS.2 PAS.NONCDS PAS.WRITEDOUBLE PAS.WRITEINTEGER PAS.WRITELINE PAS.WRITESTRING XLUEX XFFA@`(`p `P(( h6 hA ɀh6   @ 0A 7 h6HH h h6HjgFOO@ @AAA S ZJ h6H hA ɀh6H  @ vA } h6HH h h@6H A@A@ ~~LLA  h6HH h h@6H A@AA  J h6H h Ah6H @ A ~~~LL* hH6H h h6H@ @AAA   5J h6H hA ɀh6H  @ %A ,J ~*-MMh6HH h h@6H A@AA H OaJ h6H h Ah6H @ kA rl y@ zIIh6HH h h@6H A@AA  A    A   (A  n ]]8(#*.- & ' - # of I frames correctly received - # of RR frames received - # of RNR frames received - # of REJ frames received - # of FRMR frames receiv+)``ed - # of frame OVERRUNS - # of frames received with incorrect FCS - # of received frames ABORTED by REMOTE node - # of byte OVERRUNS - # of times received frame EXCEEDED MAXIMUM frame size ||yY]] - # of frames received with INCORRECT ADDRESS field NB - LAP-B card statistics have been reset to 0 ! Line Statistics UNOBTAINABLE TLOG =  |@BBX^2ȝ& 8LIST_FILE 91751-16122 REV.6000 <920908.0 921110.1100 /X25/REV6000/TXT/XINFA.PASBoLIST_FILE X{{̄.LBT.MBT.SBTALPHACHAR CKNMR PAS.1 PAS.2 PAS.BITMASK1 PAS.BLANKFILL PAS.BOUNDINTEGER PAS.ENDOFLINE PAS.NONCDS PAS.PROMPTPAS.RANGEINTEGERPAS.READCHARPAS.READLINEPAS.REWRITE_FILE{;;=^PAS.SETINIT PAS.SETINTERINITPAS.TOPOFPAGE PAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRING ;BBA UpK @(0` !((` @`x ,H@ (0J`A( J (q`KA@.(qJ`AmBHH @` !(` `@`x ,H@ (p`K pKh6`KA@1AH`(0`K(u(h@6 p!(@ GG`@`x ,H@ (`-p`KA@(πh6`@1HD p!(A`@`x ,HH@ (`p(`KS?CC P(pKAJ`K((h6`6AUKt`(+`P,( P-((A@(+.GGJ(+$A)P(/(S8A?FJAO S`P0(fA@VV[,,(fP(b(q`FP/(f(qn$(`P,A(u(~}&()VͪZZ8( @, +-90# "UTt>> XINFO 13: Invalid parameter for this command RWO >> XINFO 11: Wrong file type >> XINFO 12: File write protectedBB@k//>> XINFO 10: FMGR error FILE : already exists REWRITE (Y/N) ? CCTLNOCCTLNOCCTL@YB@FBBXcȝ( 8LEGEND_PRINT91751-16122 REV.6000 <920908.0 921110.1100/X25/REV6000/TXT/XINFA.PASBCLEGEND_PRINT>00^PAS.1 PAS.2 PAS.NONCDSPAS.WRITECHAR PAS.WRITELINE PAS.WRITESTRING 0HHJA AJJA'.A5<JAE LvHGG5JJAW:^RJJAi[ppJJA{wJJA``33JAAAJJ`__8( # (%* /) !" CO - lists X.25 network CONFIGURATION information LL, - specify/change LIST device could be a file or a lu# of a list device LU,[6"`` lu# - lists the DVT/EQT and extent in octal DE, lu# - details X.25 specific information in DVT/EQT extent CS, sc# - lists LAP-B Card Status and configuration LS, sc# - lists (! r``and resets !) LAP-B card Line Statistics ?? - lists XINFO commands EX - EXIT XINFO program EN or /E will also terminate XINFO lu# = Logical Unit ((number (dec)sc# = Select Code -number (oct)@CCX; ȝ* 8DVT_OCTAL_LIST91751-16122 REV.6000 <920908.0 921110.1100/X25/REV6000/TXT/XINFA.PASC DVT_OCTAL_LISTd??CNUMO PAS.1 PAS.2 PAS.NONCDSPAS.WRITECHAR PAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRING ?KGGA ANA&JA,QA3:QAAF@KGEEJQQAXQ_JAeAQlsQAzAQAEEQJAAQQA AQAQAѡZxDDJAתAQޡ QA#AQA/QA 2Q=6EEAQ%@A*.Q5LA<QCOJAIQAPZWQA^~~ZEE]AcgQngAuQ|jJA QAtQAwA!~~~ DDQAQJA"QAQAСA٪A#Q~~~EEQA$QAQ A%QA Q'@~(DD-&Q4A;QBAGK'QRAYQ`JAfA(QmZZ l00tQA{A)QAQAZ__8(   LU # WORD VALUE MEANING WORD VALUE MEANING 1 DVT LINK word 2 Q!RQST INITIATION list 3 N!Circular NODE list 4 ]`` P!Circular DVT list 5 X!IFT reference 6 AV!Dev Type!Status 7 Sys FLAGS!LU lock!A!RS 8 B!Buffer Accumulator 9 S! (HL-LL)/16 ! LL/16 10 Reserved ! Reloc Reg 11>\`` T.O. list linkage 12 Device T.O. clock 13 I/F Driver T.O. value 14 Device Driver Address 15 TY! E! Z! Subfn! RQ 16 Rqst Param1 / Err Code 17 Rqst Param2 / XLOGjjOO 18 Rqst Param3 / Ext Status 19 Rqst Param4 / Ext Status 20 I!Dvr Comm!Dev Priority 21 #Dvr Params! #Ext Length 22 DVT Extension Address j@CCX)jȝ. 8XL_USER_DVT 91751-16122 REV.6000 <920908.0 921110.1100 /X25/REV6000/TXT/XINFA.PASCCXL_USER_DVT qII eCNUMO PAS.1 PAS.2 PAS.NONCDSPAS.RANGEINTEGERPAS.WRITECHAR PAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRING I_EEA*QA  QA A"A+Q ) 0QA 7=,Q D@ EEEKQA RWA[A-Q b iQA pv.Q }A Q  EEAA/Q  QA 0Q A Q Aɡ1Q  EE  QA 2Q A Q A3Q  )A Q=EEA ,!4Q (7A /Q 6:A;?5Q FFA MQ TIJAZ6~~~YDDQ aTA hQ oWAtx7Q bA Q eJAA8Q p ~FFQA sA9QA ~ QA ơ:Q A ڪQ A9BB;Q A Q A <Q A Q JJ`pOxn%BB `IA@O(`OوA@p7AQ<O CA JQ QAV `OpO `IA@O(`O߈@pPPR`g''AkQApO wA ~Q J`OpO(%JP86]]8( @  23 Config FLAGS!CS #!TYPE 24 Read Type! Master Status 25 DVT St!AB Type!Req St 26 Saved BUFFER Address 27 XNET Queue poiF``nter 28 B reg completion value 29 Saved Unsol. Interrupt 30 Primary Program (1) 31 Primary Program (2) 32 Primary Program (3) 33 Primary Prog Parameter 34 Second#M``ary Prog (1) 35 Secondary Prog (2) 36 Secondary Prog (3) 37 Secondary Prog Param 38 CS Binary Length 39 CS Request Control 40 41 CS Request Buffer Addr CS**  Request Buffer Length CS extent word CS extent word**@~>BBXUȝ1 8XL_XNET_DVTW91751-16122 REV.6000 <920908.0 921110.1100/X25/REV6000/TXT/XINFA.PASB}<XL_XNET_DVTW55$CNUMO PAS.1 PAS.2 PAS.NONCDSPAS.WRITECHAR PAS.WRITELINE PAS.WRITESTRING 5qq<XL_CARD_DVT uII eCNUMO PAS.1 PAS.2 PAS.NONCDSPAS.RANGEINTEGERPAS.WRITECHAR PAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRING IC-EEA*QA  QA A"A+Q ) 0QA 7=,Q D@ EEEKQA RWA[A-Q b iQA pv.Q }A Q EEAA/Q  QA 0Q A Q Aɡ1Q lEE QA  2Q A Q A3Q  &A Q9AAA )((`LpO`IA@OA(`O,@p3Q8OA ?6 FQA M7R`OpOkk]zU55 `IA@O(`O2A@pgAQlO sAA zQ BJ`OJpO(!k5]]8( @  23 WDVT bit and T3 timer 24 Orig Request Control 25 Orig Req Buffer Addr 26 Orig Req Buffer Length 27 Network Write Buff Add``r 28 TW, Retry, current State 29 Saved A reg command 30 Saved Request Control 31 Saved Req Buffer Addr 32 Saved Req Buffer Length IDS00 extent word IDS00 extent 8I word ! @ݼ|CCX=ȝ5 8IFT_OCTAL_LIST91751-16122 REV.6000 <920908.0 921110.1100/X25/REV6000/TXT/XINFA.PASCIFT_OCTAL_LIST??CNUMO PAS.1 PAS.2 PAS.NONCDSPAS.WRITECHAR PAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRING ?~~eEEJA ANA!(#JA.AQ5/<QAC2H~EDDLQS=AZQa@JAgAQnHuQA|KAQAV~~']EEQAYQeAQhAQsAQ~SS**vQAQASa__8( IFT corresponding to LU # WORD VALUE MEANING WORD VALUE MEANING 1 Timeout List Linkage 2 Timeout Clock 3 Q! Req List Linkage 4 MMX88 Int Driver Entry adrr 5 Device Table Address 6 AV!Int Type!Sel Code 7 Sys FLAGS!I!#Ext WordsM@' ECCX%3ȝ6 8XL_TRAN_IFT 91751-16122 REV.6000 <920908.0 921110.1100 /X25/REV6000/TXT/XINFA.PASC.XL_TRAN_IFT ,,}\CNUMO PAS.1 PAS.2 PAS.NONCDSPAS.WRITELINE PAS.WRITESTRING ,>>xAQA $!!"Q!A!"'##">""K8( 8 Privileged Queue Link "@ ?NCCX %ȝ7 8XL_CARD_IFT 91751-16122 REV.6000 <920908.0 921110.1100 /X25/REV6000/TXT/XINFA.PASC.lXL_CARD_IFT II eCNUMO PAS.1 PAS.2 PAS.NONCDSPAS.RANGEINTEGERPAS.WRITECHAR PAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRING IDAA`pO`JA @O(h`Ooi@xpkAkQAOq yrroA 'Qsso .ztAto3uv`O pO`JA @O(g`OoVV A**o@xpkHkQMOwA Trro [QsAso btto`O pO(lV77m##8l(@  IDS00 extent word IDS00 extent word 7@~AAXzsqȝ8 8LU_LIST 91751-16122 REV.6000 <920908.0 921110.1100 /X25/REV6000/TXT/XINFA.PASA +LU_LIST yy.DCO.DLD ALPHACHAR CHECK_LUDVTEX DVT_OCTAL_LIST IFTEX IFT_OCTAL_LISTPAS.1 PAS.2 PAS.NONCDSPAS.PROMPTPAS.RANGEINTEGERPAS.READLINEPAS.WRITELINE PAS.WRITESTRING XL_CARD_DVT y++.XL_CARD_IFT XL_TRAN_IFT XL_USER_DVT XL_XNET_DVTRXL_XNET_DVTW+DDA `( NI`I(&   J( `NA  @%@A A(S(*A(V(.A(Y(2A(\(6A(_(:A(b(>A(e(B& DHHA(h(FA(k(JA(n(N!(q(R(t AU( X( [(A ^( Aa( d( g(Aj(Am(p(s(A{8## E"J" JAL$$[DD  `FPp(( NAJ`N  @% ((((((((((((((((((((``.66!(((A(A(܄((A(A(((A(A((\## Ai"" `ˊ]]8($ s>> XINFO 7: LU configuration error>> XINFO 8: XINFO tables are corrupted List corresponding IFT ? (Y/N) >> XINFO 8: XINd FO tables are corrupted Y@̈AAX Eȝ; 8XL_USER_DE91751-16122 REV.6000 <920908.0 921110.1100/X25/REV6000/TXT/XINFA.PASA,XL_USER_DEHH .LBTPAS.1 PAS.2 PAS.BOUNDINTEGERPAS.NONCDSPAS.WRITECHAR PAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRING HFDD`IA@ D(A T//0A(*12 f3A30#N4`*/ =p+.A+4 5k550`*/ =P =(;(H Bu4A40G=DDD16(TA Ow440T16`*. =p+A]+4 dy770J`*,A =p+o+4 v770`*, =P =(|(A 44018pCEE( 440A18`*- =p+A+4 990`*- =A( ::0(A ;;0`** =p+A+4 ͡110EE`** =( 550J( <J<0`*+ =p+A+4 ==0`*+ =( 330A1A>( ;;01mCC?`*& =p+A+4 #@@0`*& =P =()(3 04J40(< :440J`*)A =p+E+4 L::0`*) =(^ X ~~5UDDAA0]1>(j e==0Aj14`*' =p+sA+4 z770`*' =P =(( (4J40( *440J`*"A Bp+~DBB+4 ,1A101B`*A ?p++4 <440`* ?P <(P =(̈P >(P ?(( >CC0J( O@J@0( ^@صAAJ@0( m@@0J(`* ?P ?A((( |CC0`+) =P =(( DD0(   DD0`+( =P =((A 770ODD(& $DD0JJA /CC0`+A =p+7+0 >DAD0C1?`+! =p+L+0A SEE0Z1C`+"A =p+cH`EE+0 jFAF0o13`+# =p+x+0A EE01C`+$A =p++0 CAC01A`+% =p++0@ DDFJF0A1C`+& =p+A+0 ¡ GG01H`+'A =p+С+0 IJI0J`,/A =p++4 "9EE90`,/ =( GBAB016( A JBB0 16`,, Ap+A+4 +JJ0J`,*A ?p+$+4 +M440`,* ?7$.DDP <(7P =(DP >(QP ?(^(k >IKK0AC1AH(k KYLL0P1M(k X<GAG0]13(kA eg110j14(k`,( ?p+t.rAAA+4 {w440`,( ?P <(P =(P >(P ?(( yFF0J( DJD0( 550J( @J@0(`, AUuAAp+A+4 II0`, AP <(P =(P >(P ?(P @A(( ԡ>>0(A AA0A( NN0(A 550l @@( NN0J( JJJ0`,# Cp+A+4 II0`,# C!(2@"#(3(=(G(Q([(e(o(((y(((((((( ~~4DD: >J>0( DOO0J( NLJL0( X&220J( b5GJG0( lBEE0J( vPIJI0~xEE( \PP0J( mNJN0( GG0J( 1J10( OO0J( AJA0( //0@)DDA( ơ<<0(A JJ0hR6(A JJ0 1BAB0 ==0J4?( QQ0JhS6QQ**@(!   JAJ0 5BB0  ==0A8?(*A ( )QQ0,Q3#-\\8,(#   '  !$ " %15>> XINFO 9: LU configuration error USER LU - DVT initialized: Yes No - Timer requested by CS - UNSOL{`` ACTION enable: Yes No - UNSOL ACTION: Schedule ProgramEnter Cust Sub - On UNSOLICITED DATA arrival: Set STATUS BIT only Set STATUS bit, UNSOL ACTION if enabled - On Line Failure: DOWN DV``T FLUSH REQUEST - Extra SAM word allocated: Yes No - Read CONFIG: on all READSCN 36/7, CS command - Read Config INVALID: Yes No - Customizing Subroutine NUMBER - DVT Type UNDEFINEDSYSTtI``EM USER - Type: HOST-to-HOST Write Port Type: HOST-to-HOST Read Port Type: PAD Read / Write Port Read Type : Input Editing ENABLED ; Input Editing DISABLED ; Input Data Echo ENA``BLED Input Data Echo DISABLED Master Status : -Error described in DVT16 -Hard Error on last request -Unsol Data Available -Soft Error on last request -Link Disconnected-Last request Flushed t ``-Interrupt PACKET received-Last Request TIMED OUT - Current MAP : - A reg value for RTE completion Waiting P.I. to jump $UPIODVT ACTIVE ( User req pending ) Waiting P.I. to complete reqDVT 9 i``IDLE ( No User req pending ) - Abort type : NO ABORT Abort type : SYSTEM CLEAR Abort type : TIMEOUTData arrival/Read Type change - Overall Req State : No RequestREAD PendingWAITING to trans"``port request to XNETRequest GONE to XNETWAITING P.I. to enable orig USER mapUNKNOWN - implies ERROR condition - Request for XNET : No RequestAbort Request Abort Request for CN31, CN32CONTROj&)``L 31 - Establish CircuitCONTROL 32 - Clear CircuitCONTROL 6 - Dynamic Status CONTROL 26 - Flush Data CONTROL 16 - Send Interrupt PacketCONTROL 36 - Send Binary Read LengthCONTROL 37 - Set Rea``d TypeCONTROL 25 - Get Terminal StrapsWrite Request Read RequestSet Read Type prior to Read Request Set Bin Len prior to Read Type/Read Req UNKNOWN - implies ERROR condition Primary Programzz\\ to schedule : with parameter = Primary Program to schedule : none Secondary Program to schedule : with parameter = Secondary Program to schedule : none ,z@%CCX&Nȝ 8XL_XNET_DEW 91751-16122 REV.6000 <920908.0 921110.1100 /X25/REV6000/TXT/XINFA.PASC5(XL_XNET_DEW ::PAS.1 PAS.2 PAS.NONCDSPAS.WRITECHAR PAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRING :OOF((`IA@M(A1++,A('-.C/A/,#N0(O88 )%%8((# >> XINFO 7: LU configuration error WRITE TRANSPORT LU 8@CCX"-ȝ 8XL_XNET_DER 91751-16122 REV.6000 <920908.0 921110.1100 /X25/REV6000/TXT/XINFA.PASC5sXL_XNET_DER ??CNUMO PAS.1 PAS.2 PAS.NONCDSPAS.WRITECHAR PAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRING ?IBB`IP(  ~vJvw(rAxyzzwJN{JA&A*Q++|2{A{w9Q||w@||wAG``%B11}}wM+QR+|AY{{w`Q|A|wg||wn}}wJJs`llV*tOO8s(# >> XINFO 7: LU configuration error READ TRANSPORT LU ( B ) - Transport list HEADER address ( B ) - Transport list TAIL address l@Fye9AAXȝ 8XL_CARD_DE91751-16122 REV.6000 <920908.0 921110.1100/X25/REV6000/TXT/XINFA.PASAd XL_CARD_DE*HH .LBTPAS.1 PAS.2 PAS.BOUNDINTEGERPAS.NONCDSPAS.WRITECHAR PAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRING HU FF`IA@(A A( A#NhH6 pA1 8ڀh6 @ !(P@CD(Q([oFBB(e(o(y(((((((( X J( bJ( l'J( v8J( LJ( W#DDJ( gJ( vJ( J( J( J( J( 7 JJM]]8(#  !("$/>> XINFO 7: LU configuration error LAP-B LU - Driver DD.60 STATE : No Request in progressPartial PACKET WRITE completion 1 Partial PACKET WRITE complx4``etion 2 Partial PACKET WRITE completion (second)Final WRITE completionFinal WRITE completion (second) Direct PACKET READ completion FLUSH after READ, set status flagsFLUSH after READ, clear stVVؕ??atus flagsREAD/WRITE card data completion CONTROL completionOPEN or CLOSE line completion UNKNOWN - implies ERROR condition .V@BBXȝ 8DETAIL_STATE91751-16122 REV.6000 <920908.0 921110.1100/X25/REV6000/TXT/XINFA.PASB3mDETAIL_STATEbb .DCO.DLDCHECK_LUDVTEX PAS.1 PAS.2 PAS.NONCDS PAS.RANGEINTEGER PAS.WRITELINE PAS.WRITESTRING XL_CARD_DEXL_USER_DEXL_XNET_DER XL_XNET_DEW bDDA` (l N  I` N p @ r(B( t(E( v(H(! x(K(% z(N() |(Q(- ~(T(1 (W(5 (Z(9 (](= (`A(A(cDKKɑD))(lG(lAJ(lAM(lP(lS(lAV(lAY(l\(l_(lAb(lj Jp mKGG>n008m( ( s>> XINFO 8: XINFO tables are corrupted G@QEEXp%'ȝ 8ILLEGAL_COMMAND 91751-16122 REV.6000 <920908.0 921110.1100 /X25/REV6000/TXT/XINFA.PASE! ILLEGAL_COMMAND ''PAS.1 PAS.2 PAS.NONCDSPAS.WRITELINE PAS.WRITESTRING 'J A  ,, 8 (/>> XINFO 2: ILLEGAL COMMAND; use "??" for HELP ,@Y@@X-ȝ 8XINFO 91751-16122 REV.6000 <920908.0 921110.1100 /X25/REV6000/TXT/XINFA.PAS@ z&PAS.1 PAS.2 PAS.STOP(XINFO 2$ ALPHACHAR CARD_STAT CONFIGURATION DETAIL_STATEEXEC HPRTEAILLEGAL_COMMAND INXINFO LEGEND_PRINTLINE_STAT LIST_FILE LU_LIST PAS.CLOSEFILE PAS.INITFILEPAS.INITIALIZEPAS.NONCDSPAS.PROMPT66PAS.READLINEPAS.RETURNPARMS PAS.TRACECLOSEPAS.WRITELINE PAS.WRITESTRING XNVFY 6(UU-5=E G A(TQ(A Wu`u(]p((_p(`(A(li (AA nu  y`lpk`kPU}@@( `k @lpk`kP(P(P(P(P(P(P(P(P(P(PA(( ((A(A(((A(((((`lWWAP(`kP(`kP(`kP((nAAAA6'( IP_FILE OP_FILE LL_FILE >> XINFO 9: Incorrect OPERATING SYSTEM >> XINFO 1: X25 sG/1000 subsystem inactive/XINFO :   @/E??COCSDEENEXHELLLSLU@ )(PA(( ((A(A(((A(((((`lWWAP(`k((/X25/REL/XREAD.REL:::5:11:128 644 0 0 5400 5302751156 33645 /X25/REL/XREAD.REL:::5:11:128 $ G, XREAD REL + n+ n+ n BFST ..XI"vcXREAD 91751-16140 REV.5000 <860914.2344> .ss XREAD .NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN sWW.EIO. .IIO. .IAY. .DTA. EXEC.CPM.F6PA .FION .NFEX FTIME CHECK STAT DSPL RDT IFBRK CLRQGTOPT RMPAR W~~lw >>"f! ` pو` pp刡`"rp !  `"uP (!(!`@ p䈀` p` (!p` p` p ` p"\A "t0"\(!/`"sp ppp p`"kp ~<!:!= p ` (!N (/,"NO MORE CLASS NUMBER AVAILABLE !!!") {{az!ABBA`h"hH"a!H`"aA !N"gp `"jp"`@ &p p `"jp"_`"n@ @ @"eH p"\`"q"\8 8"_(!Z8 8"`(!R !q ("8P (!w(!`h"hA"a!AH `"a{C (" READ REQUEST ",I5) 00"! !   P (!(!`h"hA"a!AH `"a0 (" READ COMPLETION ",I5)s! ` (!`"p P"p(!` p /+(/," READ ERROR ON LU ",I5) ##<@!A`h"h+A"a! H`"a ! # 9PAUSE 1 `!A"b(!nP (!(!h=(/," ****SOFT ERROR ON LU ",I5) aaD!66A`h"h=A"a! H`"a ! `p(!nPለ("8`"oP(!݀(!p`p!`h"hM"a!  H`"aa''?M(/," XREAD END OF CYCLE ",I5," ON LU ",I5,5X,15A2)'''P!(!n`P("A`h"hfA"a" AA  H`"a'22jf""(/," ERROR OF SEQUENCE ON LU ",I5,/," EXPECTED ",I5," RECEIVED ",I5)2ٯ" II"P("("`p(!np `"ip"^` 툀@"eh H"d8 8"^("`p "4 `p(!n"; "D"m"l`h"hA"a"VAA  AA  @ԫ"SH`"aVV??(/," XREAD END OF TEST ON LU ",I5,/," NUMBER OF TESTS : ",I5,/," SEQUENCE # : ",I5,/," NUMBER OF SOFT ERRORS : ",I5,/,X,15A2) V "YA "\"g !!L"b r   !@ѓ /X25/REL/XWRIT.REL:::5:10:127 644 0 0 5000 5302751157 34331 /X25/REL/XWRIT.REL:::5:10:127 $ G8 XWRIT REL + o+ o+ o &FST <<X =c>XWRIT 91751-16160 REV.5010 <880722.1230> /X25/REV5010/TXT/XWRIT.FTN<ssXWRIT .NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN sSS#>.EIO. .IIO. .IAY. .DTA. EXEC.CPM.F6PA XLUEX .FION .NFEX FTIME DSPL WRT IFBRK CLRQGTOPT RMPAR S-??,`p`p`9pۡ`2FST CCXȝ 8PAS.GLOBALINFO91751-16180 REV.6000 <920907.1 921110.1117/X25/REV6000/TXT/LAPBV.PASC@DDXOAȝ 8DECODE_SWITCH 91751-16180 REV.6000 <920907.1 921110.1117 /X25/REV6000/TXT/LAPBV.PASDc$DECODE_SWITCH 44L.LBT.SBTPAS.1 PAS.2 PAS.ENTRY1PAS.EXIT1 PAS.NONCDSPAS.RANGEINTEGER488h"6H?A-nh46` ,A@/op!`!1p@3#()"8,,%A$(A$$ 4 ,< ,@CCX!cȝ 8CARD_STATUS 91751-16180 REV.6000 <920907.1 921110.1117 /X25/REV6000/TXT/LAPBV.PASCGCARD_STATUS 55+PAS.1 PAS.2 PAS.ENTRY1PAS.EXIT1 PAS.NONCDSPAS.WRITELINE PAS.WRITESTRING 5g<<F`BP`( `BPa( `BPb( (1`CpA`A'`(F(0`BPa(`BPb((0`A!`(%`aF(0`BPb()(0`A$`(0`bF(:8VTTUJ(P <D> //gHA;GDpCEpB(A;GGBAD CARD_VERIF CODE /@CCXȝ 8REVERSE_BUFFER91751-16180 REV.6000 <920907.1 921110.1117/X25/REV6000/TXT/LAPBV.PASCqREVERSE_BUFFERKK Jq.DIV.LBT.SBTPAS.1 PAS.2 PAS.ENTRY1PAS.EXIT1 PAS.NONCDS PAS.RANGEINTEGER PAS.WRITELINE PAS.WRITESTRING KLL`kpk`k(Z`k (Yplpj`j A@ |@hn6AH ~hj@xm A |@ho6H`mH`j A |@hn6AH ~hj@xm 88L@ |@ho6H`m8j8lA((c a| (x ng8::k~r%%AdqpApk(dqq%ODD BUFFER LENGTH.NO POSSIBLE REVERSE :@eCCX7ȝ 8DISPLAY_STATUS91751-16180 REV.6000 <920907.1 921110.1117/X25/REV6000/TXT/LAPBV.PASC <DISPLAY_STATUSGG .LBT.SBTPAS.1 PAS.2 PAS.ENTRY1PAS.EXIT1 PAS.NONCDSPAS.RANGEINTEGER PAS.WRITELINE PAS.WRITESTRING G]]|66h;6HAEhO6`8,AGAp9 PIIAG`9J @Np: (:LLGA /]MMG (A;5]hh1=LLA2<(A2<< [8BIT RATE SWITCH SETTING : BAUD 300 1200 2400 4800 9600 19.2K 38.4K 48.0K 57.6K 230.0K h@†AAXȝ 8ERROR_INFO91751-16180 REV.6000 <920907.1 921110.1117/X25/REV6000/TXT/LAPBV.PASA\%ERROR_INFOt55((+PAS.1 PAS.2 PAS.ENTRY1PAS.EXIT1 PAS.NONCDSPAS.WRITELINE PAS.WRITESTRING 5??`Py(Pz( P{(*P|(4P}(>P~(HP(RP(\P(fPA(p(z(A'A(1(A;@(~~Ό?DDEJф(OJ(YJф(c*J(mBJф(w^J(pJ~(]]AAp(+*) %/8#>> LAPBV 01: UNRECOVERABLE LAP_B CARD ERROR >> LAPBV 02: LAP_B CARD CONFIGURATION ERROR >> LAPBV 03: LINK DISCONNECTED>> LAPBV 04: X.25/1000 SUB<``SYSTEM IS ACTIVE>> LAPBV 05: LAPBV MUST RUN ON RTE-VI / A >> LAPBV 06: INVALID DDX60 ENTRY>> LAPBV 07: INVALID NETWORK WRITE LU >> LAPBV 08: LU FAILED LAP_B PORT CONFIGURATION >> LAPBV 09: DDXOOHJ9960 NOT ATTACHED TO THE LU OR CN30B FAILS>> LAPBV 10: INVALID LIST DEVICE LU BAD ERROR CODE!!!  O@cӂ@@X, ȝ 8LAPBV 91751-16180 REV.6000 <920907.1 921110.1117 /X25/REV6000/TXT/LAPBV.PAS@(((LAPBV ZPAS.1 PAS.1660&PAS.2 PAS.STOP(.LBT.SBT ABREG CARD_STATUS CNUMD DECODE_SWITCH DISPLAY_STATUSEQCHK ERROR_INFOEXECGETXT GTLGL HPRTE6HPRTEAPAS.BLANKFILL PAS.CLOSEFILE PAS.ENDOFLINE PAS.INITFILEPAS.INITIALIZEzz )[PAS.INITMEMINFO1PAS.NONCDSPAS.PROMPTPAS.RANGEINTEGERPAS.READINTEGER PAS.READLINEPAS.RESET_FILEPAS.RETURNPARMS PAS.REWRITE_FILEPAS.TOPOFSTACK1 PAS.TRACECLOSE!PAS.WRITEINTEGER"PAS.WRITELINE zcM#PAS.WRITESTRING REVERSE_BUFFERXLUEX (]]-5 *=+(EL&Gp5N8=H`=A(R(YY H aL !  i+ !  pH I A#w+,  "+#+?AA+L GG(L0AL`0(`A@0(`p5(A0I(L "  `5(A<`<(`p5`5((pG((pG(`p5`5(`G(@p2(#VV+UA+AL(A#+c+L " A (L2L`2A@(`A@2(`p5`5(:A# +p+L(##+{AA+"L "  "CC( L1AL`1A@(8`A@1(:`p5`5(\`1p;C;8`;(I`p5(\`1Ap:P:8`:(V`p5(\`;P:(\`p5`5(e`G(e`1@ p1\eNN`5(`1pZ`p[` @2p3p4A#x+"+AZ3 A@A @45`5(`1pZ#+AA"+Z3 @A @45`5(`1pZ`p[` p3Z3,MM`5(`p[`1pZp3#+AA"+Z3 @A @45`AP (`5(`p5`5(`1pZp3A#+"+AZ3 A@A @45`AP (`5(HH`p5`5(6` p_`p`` pa`pb` pc` p^` p6 ^6`1pZ`p[A##+"++ Z6 /@A`p4 6@45`5(U`1pZ` p6#D+AA"+LHUUZ6A P@AA U@45`5(A\7`7p`` p6A`1pZ g^6#n+A"+Av ZA6 zA@A @45`5(`1pZA` p6#+"+Z6 @A @4GII5`5(A ^6 ^`5(`1pZ`p[` p3#+AA"+Z3 @A`p4 @45`5(`1pZp[` p^p_p``1p\p]`pEh#6HHh#6CPP@H`p?"+#+A"+h#6`E@A@ AH`E`Epa`E@p6pCZ^688CACA^6  A@A %@45`5A(L0+ $  `Ap>ApD=o6LL\688DCD6 G@A L@45`5(pB`E(uppFh%A6`F @ Hph#6`F@ H@ HP(r`BpB8F8(Y`BA(#+!+PPA>"+A#+#!+AAA"+!+B#+.A"+A"+`?p?`EpE`EP(`5(`?(#+9  A"+`5(`1pZ`p[` p3p4AZ3 A@A __@45+ !  `5A( 5#+MA"+   A+  LA   AA O1&+% . 'H ^ITIN TOUTPOUTDEFAULT LIco1``ST DEVICE IS LOGON TERMINAL.ENTER NEW LIST DEVICE LU OR CR FOR DEFAULT: DEVICE DRIVER DDX60 ENTRY ? NO DEFAULT.AGAIN,PLEASE!: X.25 NETWORK WRITE LU?NO DEFAULT.AGAIN,PLEASE!: CONFIGURE DVM00 FO+``R WRITE LU (CN33B) CONFIGURE DVM00 FOR READ LU SET PORT ID FOR WRITE LU (CN30B)SET PORT ID FOR READ LU WRITE CONFIGURATION DATA TO CARDREAD CARD STATUSWRITE CONFIG DATA WITH ACTUAL T1 VALUE T``O CARDREAD CARD STATUS AGAINOPEN LINE (CN31B) STARTING DATA EXCHANGE TEST!TRANSMITTED PACKET SIZE : RECEIVED PACKET SIZE : COMPARISON ERRORSTEST SUCCESSFUL!...NO COMPARISON ERRORS TEST TERxQ MINATED. ..BYE!..S ,@@RSpu0p.@ ¶(N DATA TO CARDREAD CARD STATUSWRITE CONFIG DATA WITH ACTUAL T1 VALUE T``O CARDREAD CARD STATUS AGAINOPEN LINE (CN31B) STARTING DATA EXCHANGE TEST!TRANSMITTED PA/X25/REL/GENPK.REL:::5:53:128 644 0 0 32400 5302751162 34437 /X25/REL/GENPK.REL:::5:53:128 $5 Gl5GENPK REL + q+ r+ r5CXZFST CCX+ȝ7 8PAS.GLOBALINFO91751-16200 REV.6000 <920907.1 921110.1115/X25/REV6000/TXT/GENPK.PASC@ +DDXOȝ8 8WRITE_MESSAGE 91751-16200 REV.6000 <920907.1 921110.1115 /X25/REV6000/TXT/GENPK.PASD|WRITE_MESSAGE AA 7PAS.1 PAS.2 PAS.3 PAS.ENTRY1PAS.EXIT1 PAS.NONCDSPAS.PROMPTPAS.WRITELINE PAS.WRITESTRING A??A uu uJAu uu "u-JuA +u<u 4uKJAu =uZutt?;;A Fuiu OuxJAu Xuu auJuA juu suJu(|yt66}$$Av|(Av||1SELECT ONE OF THE CODES ABOVE,OR ENTER 0 TO EXIT: 6@ּDDXiqȝ9 8CHANNEL_IDENTIFI91751-16200 REV.6000 <920907.1 921110.1115/X25/REV6000/TXT/GENPK.PASD*ACHANNEL_IDENTIFInnp.LBT.SBTPAS.1 PAS.2 PAS.3 PAS.ENDOFLINE PAS.ENTRY1 PAS.EXIT1 PAS.NONCDS PAS.PROMPT PAS.RANGEINTEGER PAS.READINTEGER PAS.READLINEPAS.RESET_FILEPAS.WRITESTRING nnn>>AuSJJK u(ubLLKJA uKMPMM(  J@ DhQ6 NhR6HohQ6A  NhR6HpH(FA=nFFB//A:A(A :AAM@ENTER LOGICAL CHANNEL NUMBER: NO DEFAULT.AGAIN,PLEASE!:  F@ DDXȝ: 8REQUEST_CONFIRMA91751-16200 REV.6000 <920907.1 921110.1115/X25/REV6000/TXT/GENPK.PASDGOREQUEST_CONFIRMA__ U.CBTPAS.1 PAS.2 PAS.3 PAS.ENDOFLINE PAS.ENTRY1PAS.EXIT1 PAS.NONCDS PAS.PROMPT PAS.READLINE PAS.READSTRING PAS.RESET_FILE PAS.WRITESTRING _EEA ubXXY u( u{ZZYJA u Y[][[(  %N\Y h^6`_6\(:(0h`6`_6A\(:((ha6A`_6\(D(G(G`]E@p(TOKTTwfP<AAXmfȝ 8ENTER_DATA91751-16200 REV.6000 <920907.1 921110.1115/X25/REV6000/TXT/GENPK.PASAf@ENTER_DATAll-.SBTPAS.1 PAS.2 PAS.3 PAS.ENDOFLINE PAS.ENTRY1PAS.EXIT1 PAS.NONCDS PAS.RANGEINTEGER PAS.READINTEGER PAS.READLINE PAS.RESET_FILE PAS.WRITELINE PAS.WRITESTRING lqqY< uQIIJ u(+ J? A`> Kp>`phO6`>A K@eAH`? M( (7 7JMPMM(E@;q::fA%%A8@(A8@@%MENTER DATA,BYTE BY BYTE,AND CR TO END :@֯DDXsMJȝ 8RECEIVE_SEQUENCE91751-16200 REV.6000 <920907.1 921110.1115/X25/REV6000/TXT/GENPK.PASD3*RECEIVE_SEQUENCE\\ RPAS.1 PAS.2 PAS.3 PAS.ENDOFLINE PAS.ENTRY1PAS.EXIT1 PAS.NONCDSPAS.PROMPT PAS.READINTEGER PAS.READLINE PAS.RESET_FILE PAS.WRITESTRING \PP((A u7334u( J ( 45655p` p(/*'P00w+A$*(A$**%5ENTER PACKET RECEIVE SEQUENCE NUMBER: 0@/NhBBXVȝ 8DELIVERY_BIT91751-16200 REV.6000 <920907.1 921110.1115/X25/REV6000/TXT/GENPK.PASBJ2DELIVERY_BITff PAS.1 PAS.2 PAS.3 PAS.ENDOFLINE PAS.ENTRY1PAS.EXIT1 PAS.NONCDSPAS.PROMPT PAS.RANGEINTEGER PAS.READINTEGER PAS.READLINE PAS.RESET_FILE PAS.WRITESTRING fXX4//A u@;;<u( 1`1 =J (! <=?==p1`1 A =p1`1p(72.X55.3##A+2(A+22,=ENTER DELIVERY CONFIRMATION BIT VALUE (0/1):5@0-NDDXPPȝ 8QUALIFIER_BIT 91751-16200 REV.6000 <920907.1 921110.1115 /X25/REV6000/TXT/GENPK.PASD}2QUALIFIER_BIT ff PAS.1 PAS.2 PAS.3 PAS.ENDOFLINE PAS.ENTRY1PAS.EXIT1 PAS.NONCDSPAS.PROMPT PAS.RANGEINTEGER PAS.READINTEGER PAS.READLINE PAS.RESET_FILE PAS.WRITESTRING fXX4//A u@;;<u( 1`1 =J (! <=?==p1`1 A =p1`1p(72.X..R3A+2(A+22 =ENTER QUALIFIER BIT VALUE (0/1):.@DDXj}ȝ 8DISPLAY_ERROR 91751-16200 REV.6000 <920907.1 921110.1115 /X25/REV6000/TXT/GENPK.PASD JDISPLAY_ERROR DD PAS.1 PAS.2 PAS.3 PAS.ENTRY1PAS.EXIT1 PAS.INLINEERROR PAS.NONCDSPAS.WRITELINE PAS.WRITESTRING DzAA`HP( Pƈ(P( PȈ(*P(4(>A u[UUVAu(A urWWVu(AA 'uXXVAu(A 1uYYVu(AA ;uZZVu(Ah@A(QIE,K]]ABJIApH(BJJ-%/+#>> GENPK 01: X25/1000 SUBSYSTEM IS NOT ACTIVE >> GENPK 02: INVALID NETWORK WRITE LU >> GENPK 03: LU FAILED LAP_B PORT CONFIGURATION >> GENPK 04: GENPK MUS33##T BE RUN ON RTE-VI/A1 >> GENPK 05: INVALID SELECTION CODE 3@Vuv@@X,Xȝ 8GENPK 91751-16200 REV.6000 <920907.1 921110.1115 /X25/REV6000/TXT/GENPK.PAS@''(GENPK PAS.1 PAS.2 PAS.3 PAS.STOP'||u.CBT.LBT.MBT.SBT CAUSE_DIAGCHANNEL_IDENTIFI DELIVERY_BITDISPLAY_ERROR ENTER_DATAEQCHK EXECGETXT GTLGL HPRTE6HPRTEAPAS.BLANKFILL PAS.CLOSEFILE PAS.ENDOFLINE PAS.INITFILE|zz SQPAS.INITIALIZEPAS.INITMEMINFO1PAS.INLINEERROR PAS.NONCDSPAS.PROMPTPAS.RANGEINTEGER PAS.READINTEGER !PAS.READLINE"PAS.READSTRING#PAS.RESET_FILE$PAS.RETURNPARMS %PAS.REWRITE_FILEPAS.TOPOFSTACK1 z]] &PAS.TRACECLOSE'PAS.WRITECHAR (PAS.WRITEINTEGER)PAS.WRITELINE *PAS.WRITESTRING QUALIFIER_BIT RECEIVE_SEQUENCEREQUEST_CONFIRMAWRITE_MESSAGE XLUEX ]{(TT-5=?D`(H(OAO#W%_p(i@(i`وp`(tAo`(tp`(*~?|PPA)AA)*(*AA#( A!`A@ׄ(`A@(`p`(`p  ` (Lj`p(`Ap~~hHH`(` P(`p`@( (`@pAAA(* #(A !`(`A@( `p`(`(p `P~@@(*P(NP؈(kP(Pڈ(P(P܈(,P(FPވ(`P(zP((,`p AA. 0A2` PA(6(8 8h6HA@@Ch6HHh6H߄` DH(/`p ARh6TFFHH`h6Hh6H` AM` P(h(jA j(/`p oqh6HHA@Wh6HHh6H߄` XH` P(( (/A`p Ah6H@bLLh6Hh6H` Ac` P((A (/`p h6HHA@mh6HHh6H߄` nH` P(˄(*AAA( !(A#MLLph6AH`vp (/`p h6H`h6HHh6H߄A`* $( A!(!#ph6H`@Ap (/.A 0h6$2JJH@h6Hh6H` H(/AAH Jh6H@h6Hh6H` @HA(/bA dh6H@h6Hh6H` @H(/A ||OOAA ~h6H@@@h6AH A*/( A!(#p`P((` @p (` p *<AA(A  !@(#@dPPp ` p h6H` @ AA (/`뀄pp*MA('AAA( !(A#ph6A`@@H`ۜMMA8("()`Έp(p (/h` @p *9RAA(HA"EA!(W#Ph6`6h6`6A(j(`h6`6(jDhNN(2(2h6A`6(t((` (ppA*o(A'h6`@H@HpA()8Ԉ((`Ap(|*qA( *RR~A)A*("!A(#h6A`6h6`6((h6A`6(((h6`6A(A($($* TT(*AA#(  A !`ppp` p`pp` @pp@AFA*M)))))Y.\WW(o*dAA#n(Y A!`(`A@(`ڈp( `(AA)*)AA&AA$O1<2``" :1= &klmnINF OUT WHEREVER CR IS ACCEPTED AS ANSWER,DEFAULT VALUES ARE 0 OR NOENTER X.25 WRITE LU : NO DEFAULT.AGAIN,PLEASE!: NO DEFAULT.AGAIN,PB``LEASE!: ENTER INTERRUPT USER DATA:ENTER DIAGNOSTIC CODE:MORE DATA BIT VALUE (0/1):ENTER PACKET SEND SEQUENCE NUMBER:ENTER BYTEDO YOU WANT THE PACKET FORMAT DISPLAYED (YE/NO)?: NOYENOYEBYTENORM s``AL PACKET LENGTH IS : BYTES WANT TO MODIFY PACKET LENGTH (YE/NO)?:NOYENOYEENTER PACKET LENGTH:NO DEFAULT.AGAIN,PLEASE!: PACKET SENT...! NO DEFAULT.AGAIN,PLEASE!: BYE.... GENERATION OF X.25"`` PACKETS CALL PACKET*********(01) RESTART PACKET******(02) CLEAR PACKET********(03) RESET PACKET********(04) INTERRUPT PACKET****(05) DIAGNOSTIC PACKET***(06)llc3MM RR PACKET***********(07) RNR PACKET**********(08) REJECT PACKET*******(09) DATA PACKET*********(10) ILLEG((AL TYPE PACKET *(11)l$$ #p$@ (*(01) RESTART PACKET******(02) CLEAR PACKET********(03) RESET PACKET********(04)/X25/REL/SRVEY.REL:::5:46:128 644 0 0 27000 5302751163 35214 /X25/REL/SRVEY.REL:::5:46:128 $. G.SRVEY REL + r+ s+ s.NFST CCX,Š PAS.GLOBALINFO91751-16220 REV.5020 <891110.1 891117.1359/X25/REV5020/TXT/SRVEY.PASC@ ,??X Š STRLEN91751-16220 REV.5020 <891110.1 891117.1359/X25/REV5020/TXT/SRVEY.PAS? tmSTRLEN  ;; .DCO.DDE.DLD.DST.ENTR .LBT .MVWPAS.1 PAS.2 PAS.NONCDS PAS.RANGEDOUBLE ;kk@@AAv@AA@xA((@A zvHxh}6H P((@A@(@x(9(9@ zvHxh}6HH P(4(9AD@@@BBmksnAl`lh}A |(P(D  \ @2QCCXMŠ!LOG_MESSAGE 91751-16220 REV.5020 <891110.1 891117.1359 /X25/REV5020/TXT/SRVEY.PASC6=LOG_MESSAGE 44 4.DNG.ENTR .MVWEXECPAS.1 PAS.2 PAS.NONCDS PAS.RANGEDOUBLE STRLEN4!!@ApA FHxJ=! >A<`Š"SPACE_LINES 91751-16220 REV.5020 <891110.1 891117.1359 /X25/REV5020/TXT/SRVEY.PASC)-SPACE_LINES CC ̎.DCO.DDE .DIS.DLD .DSBR .DST .ENTR LOG_MESSAGE PAS.1 PAS.2 PAS.BLANKFILL PAS.NONCDSCBB]&&A 5<6B7(8(%(%( A:8(%((%*:& BAA & *(-B.AA ,,A((P \ @O>>XHŠ#ITOC91751-16220 REV.5020 <891110.1 891117.1359/X25/REV5020/TXT/SRVEY.PAS> ITOC  gg\.DCO.DDE.DDI .DIN.DLD .DNG.DST .ENTR .LBT .MBT.SBTPAS.1 PAS.2 PAS.BLANKFILL PAS.DOUBLEMOD PAS.NONCDSPAS.RANGEDOUBLE PAS.RANGEINTEGERgSVVAAp("p AAAA+ AAAgHxh 6AH  AgpAgHxh6DH`AAAAVNNA A(\(cA (c(c(& (n(n(AAnHxh6H P(}(A (gA 䀄`(tHxh6H`AD hhn==(A((A((({Hxh6HD  {p{Hxh6HA`D A (h6`6 h00N AA A(  f0123456789 -0@4BBX*Š%STRAPPEND 91751-16220 REV.5020 <891110.1 891117.1359 /X25/REV5020/TXT/SRVEY.PASBSTRAPPEND J z .DAD .DCO .DDE .DIN.DIS.DLD.DSBR .DST.ENTR .LBT.MBT.MVW.SBTITOCLOG_MESSAGE PAS.1 PAS.2 PAS.BLANKFILL PAS.NONCDSPAS.RANGEDOUBLE PAS.RANGEINTEGERSPACE_LINES STRLEN}}<PPA/[AA-/AA -)AD-  (((-AD- Hxh6HHP(((-AD- -/ -++ ((@ BAC BG/NɡA BQ}PNN BU-\ BA_ Bc+jɡA Bm Bt BAw BAz B BA[h6A`6-A  ʈ(((EPP11HxhD6Hp1 /Hxh6HA`1A(A3+AA+ )A(!( B BA/A BA BA-dd;; B BA+A BA B   B BAɡA B B[A!h6`6dI\\A`hA`h(P4 +([3STRAPPEND : MERGED STRING TOO LONG : L1 , L2 , L3 : STRING1 : STRING2 : STRAPPEND INCONSISTANCIES , L1 , L2 , L3 : STRING1 : STRING2 : \@|DDXGXŠ'RETRIEVE_SCHEDUL91751-16220 REV.5020 <891110.1 891117.1359/X25/REV5020/TXT/SRVEY.PASDeRETRIEVE_SCHEDUL?? ,.ENTR EXECLOG_MESSAGE PAS.1 PAS.2 PAS.BLANKFILL PAS.NONCDSPAS.PARAMETERSSPACE_LINES ?VPLLppA  p`(pA   B BA  &- AB )B, A 3FB A6B =dB @BA GB AJB Q~~LHHB TBA [B A^B eB hBAk  rAB uB |B AB "AB B(`(`WA@~22(pA  <B B`(A  2``A(P)1;H+76GB4>> SRVEY : PARAMETER FILE NAME IS MISSING e.g. CI> XQ SRVEY /SYSTEM/SRVEY_PARMS Parameter file contains the following parameters ve`` - Delay between two executions of this program ( in minutes ) - Number of networks ( 1 .. 16 ) - First network write lu number ( 2 .. 254 ) - ... F`` - Last network write lu number ( 2 .. 254 ) Errors possibly reported by this program are those explained in the reference manual for procedures GetNetwState and GGJ%33 EnablNetwork in paragraph network survey.>> SRVEY : SCHEDULING PARAMETER IS MISSING OR TOO LONG?G@e0DDXŠ)GET_PARAMETERS_F91751-16220 REV.5020 <891110.1 891117.1359/X25/REV5020/TXT/SRVEY.PASDsGET_PARAMETERS_F.DST .ENTR .MBTEXECITOCLOG_MESSAGE PAS.1 PAS.2 PAS.BLANKFILL PAS.CLOSEFILE PAS.ENDOFFILE PAS.NONCDSPAS.RANGEINTEGERPAS.READINTEGER PAS.READLINEPAS.RESET_FILESPACE_LINES STRAPPEND :JJA J (Ap  B B( J AA(X)  07 B AA:A A Fժ B `6h6~~WJLLA AP BS WA([  bJ B AAlA s xժ B `6Ah6  [ A B `6h6 A B~t!II (p _ BA B(J  A(`A( A { B   A B `6h6FdIIA A B(  BA AA   B `6h6A  B(pJp (`@@p @h(IIA `@@A(G`A@@p`A@(AJ  Q BA`@@ a h Am B `6h6+qJJA Aw Bz ~A(  BA`@@   A B `6h6 A B(Ap  B B88##(  `( A#\\A (P7& "8<5 6 j B>> SRVEY : FIRST PARAMETER IS MISSING IN PARAMETER FILE >> SRVEY : DELAY PARAMETER IS < 1 : \>> SRVEY : DELAY PARAMETER IS : \ MINUTES_``>> SRVEY : SECOND PARAMETER IS MISSING IN PARAMETER FILE>> SRVEY : ACCEPTABLE NUMBER OF NETWORKS 1 to 16. RECEIVED \>> SRVEY : NUMBER OF NETWORKS : \>> SRVEY : ACCEPTABLE NETWORK LU 2 to 254.HH44 RECEIVED \ >> SRVEY : NETWORK WRITE LU : \>> SRVEY : MISSING NETWORK LU NUMBER IN PARAMETER FILEH@#@((@XJŠ-SRVEY 91751-16220 REV.5020 <891110.1 891117.1359 /X25/REV5020/TXT/SRVEY.PAS@ cPAS.1 PAS.2 PAS.STOP(SRVEY xxQ.DST.MBT DTACH ENABLNETWORKEXEC FTIME GETNETWSTATEGET_PARAMETERS_F IFBRK ITOCLOG_MESSAGE PAS.BLANKFILL PAS.CLOSEFILE PAS.INITFILEPAS.INITIALIZEPAS.INITMEMINFO1PAS.NONCDSxCCPAS.RANGEINTEGERPAS.RETURNPARMS PAS.TOPOFSTACK1 PAS.TRACECLOSERETRIEVE_SCHEDULSPACE_LINES STRAPPEND Cj(NN-5  7A:? Bpp`Ap` @pA U`(Q`P(`P(dP(c(!p(P(PA gpl As %h |vYYl}gl gA8n8`6h6A 6`n``6Ah6 `An``6h6AA  `(  A 8hhYYA lAglA g8n8`6h6A PA`n``6h6hA lAglA g`n``6h6AA  (PpA& -)&(XX Vh l7gl> gA8Cn8`6h6AMP (P(UA(V(Y ` th AAljAglq g8vn8`6Ah6 +QQ`An``6h6h AAlAgl g`n``6Ah6A `ˆP(P((Fppp`pA  (p`e^^A(D  A  A`n``6h6A A  AA O!P 0;7 nSRVEY_PARMS >> SRVEY : RESTARTINA/``G NETWORK LU \>> SRVEY : ERROR WHILE RESTARTING NETWORK ON LU ERROR \ >> SRVEY : RECEIVED AN UNKNOWN NETWORK STATE ON NETWORK LU >> SRVEY : ERROR WHILE REQUESTING NETWORK STATE ON LU ((։\ ERROR \>> SRVEY : PROGRAM STOP \ ( ^ @A(/X25/REL/CSPAD.REL:::5:10:128 644 0 0 5000 5302751164 34257 /X25/REL/CSPAD.REL:::5:10:128 $ S CSPAD REL + s+ t+ t FST 0APA>>XHT (CSPAD 91751-16230 REV.5020 RTE-A <900125.1403>/X25/REV5020/TXT/CSPAD.MAC> TCSPAD __'$DV1$DV13 $DV16 $DV18 $DV19 $DV21 $DV22 $DV6 $DVLU $XQSB .ADY.DSX.ISX.LAX.LBY .LDX.LDY .MVW.SAY.SBX .STX_    VV @ @@@@@@IMODEM pLxM N(up.@(k`pR` ~~:h<<8R(e(u xMhxO00`7(8`L(|hxOhM (QhxO`h DpQP(P(P(( xM ((hFxM(v ~H"CC3(@8(/(`HHpPHH(͈A`h pPH(8(`<pPH(`h pP@H8@@(83(hNxM0+ hFxM(5(8 ((7`QP=(HD0;3(0*pPHH`6(/p6    A I 3'??h9(7HH0$(7*(7(8@Ah 0%h 0$B`OhMT`HHxM`P0pO(E`pO`M-(o @(o @(f`:(Mf==hMA `,pMP(P(~P(P(P(~P(~P (~(~    ((H`ME PP( H`> `  0,EE(C01(~(( v( @! AA!AA`(xM(QhHH p@hhHxSh S( S ddb 22  @G(`8@pM(0#02hFxMv H 0%H 0$ hFxM(Ed@} =/X25/REL/CVPAD.REL:::5:10:128 644 0 0 5000 5302751165 34372 /X25/REL/CVPAD.REL:::5:10:128 $ S( CVPAD REL + t+ u+ u FST ??Xk, CVPAD 91751-16231 REV.5020 RTE-VI <900125.1403> /X25/REV5020/TXT/CSPAD.MAC? OCSPAD 88 D$LIST .ADY .DSX.ISX.LAX .LBY.LDX.LDY .MPY.MVW .SAY.SBX.STX8    ?TT @ @@MODEM pGxHAI(np.@(f`pM` 8M(`(nf;; xHhxJ00("`G(uhxJhH (8hxJA`h@pLP(P(P(( xH ((hBxH(v 38!>>(/(`pK/(`hApK/("(׈`8pK/(`hpK/("3(hIxHe;;0+m hBxH(5(8ب؀ ( (!`LP9(073(0*pK/`6(p6    D(!0#`pJ(!G==*(!("0&;h 0#>`JhHO`/xH`K0pJ(,`pJ`H-(R (R@@(I(&hHAD`,pHP(kP(aPߩW;;(mP(P(aP(aP (a(a    (&(&`HA PP( `: `  0,(&?m01(aAA(( v(@! AA !AA  ` (xH(8怈`! ( p p p p p(ֈ@x  (`phx?AA(D p`P(8@.A @@"P((xh  @C(`pJpH( 0#02hBxH 116v  0& 0# hBxH(,1@TAs/X25/REL/X25NONCDS.REL:::5:1:69 644 0 0 400 5302751166 35060 /X25/REL/X25NONCDS.REL:::5:1:69 $ GEX25NONCDS REL + v+ v+ v[FST EEX:0 #X25NONCDS 91751-16309 REV.5000 <870403.1106>/X25/REV5000/TXT/X25NONCDS.MAC:::4:22:39 E dPAS.NONCDS @1UP/X25/TXT/CSTB.MAC:::3:11:35 644 0 0 5400 5302751245 34042 /X25/TXT/CSTB.MAC:::3:11:35 $ T@ #CSTB MAC + Ҥ+ ҥ+ ҥ >FST ((ASMB,Q,C HED $CSTB - CUSTOMIZING SUBROUTINE TABLE FOR X.25/1000#**********************************************************************##* *##* $CSTB - CUSTOMIZING SUBROUTINE TABLE FOR X.25/1000 *##* *##* *##* FILE: CSTB.MAC *##* SOURCE: 91751-18006 *##* RELOC.: 91751-16006 *##* *##* *##* *************************************************************** *##* * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1982. ALL RIGHTS * *##* * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, * *##* * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT* *##* * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. * *##* *************************************************************** *##* *##* *##**********************************************************************#* * MODULE NAME *  NAM $CSTB,8 91751-16006 REV.2440 <850121.1656>* * May be used on RTE-A systems to place the table in a * Driver partition. * * GEN 1,PA* * ENTRY POINTS*  ENT $CSTB * * EXTERNAL REFERENCES *  EXT CSV66 *  SUP  SKP #**********************************************************************#* * CUSTOMIZING SUBROUTINE TABLE* * FIRST WORD IN TABLE = NUMBER OF ENTRIES IN TABLE* #* ADDITIONAL WORDS = DEF'S TO ADDRESSES OF CUSTOMIZING SUBROUTINES #* TO BE ATTACHED* !* NOTE: THE '+0' FOLLOWING THE CSXXX NAME IS!!* VERY IMPORTANT IN THAT IT FORCES THE!!* LOADR TO CREATE A DIRECT LINK TO THE!* CUSTOMIZING SUBROUTINE* #**********************************************************************#* $CSTB DEC 1 # ENTRYS IN TABLE  DEF CSV66+0 * DS1000 dummy driver *  SKP  END ITEM92077-1X505 REV.2326 830801 /FMP/B84/SUBMIT/&DLIB 8v  DELETEITEM .ENTR FREEMEM HASHITEM~~f>>A 5p` @Tp`@HPHPHP::RJE:4:9:34 644 0 0 4400 5300434145 32300 HPHPHP::RJE:4:9:34 $ @ "HPHPHP +0+$v+8e S.FST * "* MATERIAL LIST: 91781-13502 REV: 6000 MT1600-RJE 5104"* * (SAME AS MATERIAL LIST: 91781-13301 REV: 6000 ) * (SAME AS MATERIAL LIST: 91781-13600 REV: 6000 ) * * Directory: /RJE/ * 91781-12001 4010 01 01 5 /RJE/RJELB.LIB:::5:6091781-16001 2540 01 01 5 /RJE/RJE.REL:::5:6691781-16002 5000 01 01 5 /RJE/RINIT.REL:::5:107 91781-16003 5000 01 01 5 /RJE/RJEXX.REL:::5:153 91781-16004 2427 01 01 5 /RJE/CON.REL:::5:3291781-16005 2427 01 01 5 /RJE/RJTAB.REL:::5:1 91781-16021 2427 01 01 5 /RJE/FMT.REL:::5:1391781-16023 2540 01 01 5 /RJE/ROUTE.REL:::5:4091781-16030 4010 01 01 5 /RJE/DDD63.REL:::5:4 91781-16200 2427 01 01 5 /RJE/AMERI.REL:::5:4 91781-16201 2427 01 01 5 /RJE/CANAD.REL:::5:4 91781-16202 2427 01 01 5 /RJE/DANIS.REL:::5:4 91781-16203 2427 01 01 5 /RJE/DUTCH.REL:::5:4 91781-16204 2427 01 01 5 /RJE/ENGLI.REL:::5:4 91781-16205 2427 01 01 5 /RJE/FINNI.REL:::5:4 91781-16206 2427 01 01 5 /RJE/FRENC.REL:::5:4 91781-16207 2427 01 01 5 /RJE/GERMA.REL:::5:4 91781-16208 2427 01 01 5 /RJE/ITALI.REL:::5:4 91781-16209 2427 01 01 5 /RJE/NORWE.REL:::5:4 91781-16210 2427 01 01 5 /RJE/PORTU.REL:::5:4 91781-16211 2427 01 01 5 /RJE/SPANI.REL:::5:4 91781-16212 2427 01 01 5 /RJE/SWEDI.REL:::5:4 91781-16213 2427 01 01 5 /RJE/KATAK.REL:::5:4 91781-16214 2427 01 01 5 /RJE/NATIV.REL:::5:4 91781-16777 2427 01 01 5 /RJE/DDV63.REL:::5:2 91781-17000 2427 01 01 4 /RJE/RJE.HELP:::4:591781-17001 5000 01 01 4 /RJE/RJE.CMD:::4:5 91781-17002 2427 01 01 4 /RJE/STD3780.TXT:::4:8 91781-17003 5000 01 01 4 /RJE/RJE.LOD:::4:1 91781-18004 2427 01 01 4 /RJE/CON.PAS:::4:4091781-18021 2427 01 01 4 /RJE/FMT.FTN:::4:4391781-18022 2427 01 01 4 /RJE/STAT.FTN:::4:20 91781-18023 2540 01 01 4 /RJE/ROUTE.PAS:::4:9091781-18100 5010 01 01 4 /RJE/RJE.DAT:::4:137 91781-18999 6000 01 01 4 /RJE/A91781:::4:14 * * END MATERIAL LIST * 1 4 /RJE/RJE.LOD:::4:1 91781-18004 2427 01 01 4 /RJE/CON.PAS:::4:4091RJELB.LIB::RJE:5:60:128 644 0 0 36000 5300430347 33771 RJELB.LIB::RJE:5:60:128 $< L<RJELB LIB +0+0+0<FST #8 ;;XHX $]RJELB 91781-12001 REV.4010 <860407.0856> RJE/R4010/RJELB.MAC::USR;@*H>>X7X 7]NO_ABORT_ERROR91781-1X016 REV.2427 <840920.1534>RJE/R4010/NOABT.MAC::USR>#NO_ABORT_ERROR*"CNUMO EXECPNAME OO˛55NNNNN No Abort. P nnnnnn A nnnnnn B nnnnnnApx# '+1546`hO@@==X X /]CONVERT 91781-1X007 REV.2427 <840920.1534> RJE/R4010/CONVERT.MAC::USR= CONVERT  .ENTR .LBTEB2AS  t AHh@099XX ;]RJTB91781-1X009 REV.2427 <840920.1535>RJE/R4010/RJTB.MAC::USR 9 n.RJTAB ɰRJTAB Q`@X;;XS $X]CNUMH 91781-1X010 REV.2427 <840920.1534> RJE/R4010/CNUMH.MAC::USR; BCNUMH  j.ENTR .SBT DDWx""h6 @#(@@!(@" 00AAD@mo/99XlX ]TAB 91781-1X011 REV.2427 <840920.1535> RJE/R4010/TAB.MAC::USR9 EXPAND_TABS XSCAN_TAB**.DLD.DST.ENTR .LBT.SBT.SFBBLANKFILL MOVESTRING*cc` 99 Ax xXp&EEEXpAhx6EEh`V(`@ cOOYE''`pCAEpDDA@CHD(>8EE xCHxBHk@0WhCH(fXB(g(a8X`C@XO@ݐP??XjX]MOVESTRING91781-1X012 REV.2427 <840920.1535>RJE/R4010/MOVESTRING.MAC::USR ? xMOVESTRING  d.ENTR .MBT ((ix88A(@iy9??X] X]BLANKFILL 91781-1X013 REV.2427 <840920.1534> RJE/R4010/BLANKFILL.MAC::USR? DBLANKFILL .DLD.ENTR BUFFER_FILL   h@Bra2AAX X]EBC_BLANKFILL 91781-1X013 REV.2401 <840920.1534> RJE/R4010/BLANKFILL.MAC::USRAxEBC_BLANKFILL .DLD.ENTR BUFFER_FILL  @ h@Qp>>X" X]TABFILL 91781-1X013 REV.2401 <840920.1534> RJE/R4010/BLANKFILL.MAC::USR> {TABFILL .DLD.ENTR BUFFER_FILL   h@ϡa@@XyX]BUFFER_FILL 91781-1X013 REV.2401 <840920.1534> RJE/R4010/BLANKFILL.MAC::USR@ (BUFFER_FILL l.CAX.CBY.CYA.DLD.MBT.SBT.XAX##P@DDDp#@];;XkX]TADDR 91781-1X014 REV.2427 <840920.1535> RJE/R4010/TADDR.MAC::USR; *TADDR F` @ z+:;;Xx((X]PTTBL 91781-1X015 REV.2427 <840920.1535> RJE/R4010/PTTBL.MAC::USR;Y.AS2EB.EB2AS afAS2EB EB2AS 9``@Nm[;;XbX(]INTBL 91781-1X020 REV.2540 <851106.1352> RJE/R4010/INTBL.MAC::USR; 7INTBL 4g.ENTR .MVW TT`hh A@ @xh!.0Haz/1RJE/1000-II runs on RTE-A and RTE-6/VM only.IThe LU specified is not HV``an IBM PSI (type 63B).bThe LU specified is locked to another program.{ The PSI failed self-test. The PSI failed to start.Subsystem is already active. Value is out of bounds. __FFThe download file is not RJE PSI firmware. The link did not come up. PSI configuration error. The LU specified is down. ' _@MFl;;X X"]XXTBL 91781-1X017 REV.4010 <860407.0846> RJE/R4010/XXTBL.MAC::USR; AXXTBL 4g.ENTR .MVW TT`hh A@ @xh!6BO[gt  7 L00 dv FmpOpen file:C L01 dv FmpClose file: P L02 dv FmpjV``Open error\ L03 dv FmpRead errorh L04 dv FmpWrite error u L05 dv FmpClose error L06 Job files flushed  L07 RJE,SEND complete L08 dv RP error L09 RJE link is downL10 PSxxZZI reset, maybe due to power-fail. L11 PSI trace dataOtherwise @  L13 RJExx termination L14 RJE,SEND requestL15 PSI link termination code:   ' x@un;;XX.]RJTBL 91781-1X018 REV.2427 <840920.1535> RJE/R4010/RJTBL.MAC::USR; 3RJTBL 4g.ENTR .MVW  TT`hh A@ @xh!ACRacx4GWj|~BD Illegal subsystem number. S SubsV``ystem is not running. bdSyntax error, use "HELP RJE" for help.y Incorrect security code. Too many parameters. Not enough parameters. RJE subsystem terminating.Device m``ust be PR, PU, or UN. Unrecognized option.Power failure, request aborted. Link down, request aborted. Unspecified file reference.  Link close error. FMP ``A(SCII) or B(INARY) must be specified for each file.5RJE terminating, send aborted at HInitialization in progress. XReader aborted per user request atkJob aborted per user__цvFF request at }No SEND requests outstanding. Not receiving.EOT received, send aborted at RVI received, send aborted at ' _@6;;XX4]STTBL 91781-1X019 REV.2427 <840920.1535> RJE/R4010/STTBL.MAC::USR; =STTBL 4g.ENTR .MVW TT`hh A@ @xh!=Oboz  ,6BMTbp> RJE subsystem P ;V`` Link Status:c PSI Firmware Revision:p Garbled Responses:{ Receive Timeouts: NAKs Received: Bad Blocks Received:Blocks Successfully >``Received:  Blocks Successfully Sent:downdownup, idleup, transmittingup, receiving RVI pending ????? ?????  Reader assignment: Printer assignment: `` Punch assignment: ! Unrouted assignment:- Records sent:7 Records Received:C Current file:NJobs sent:U Active postprocessor:c Current log file:  q&--------44&v$$------------------------------------------------------------------- ' 4@y9<<X$INIT_TRACE91781-1X008 REV.2427 <840920.1535>/USR/RJE/R4010/TRACE.FTN< APSTRACEAREA jINIT_TRACE /f.SST.NFEX GG$$p"`ppppp D @ LZL 6G@0==XCENTER_TRACE 91781-1X008 REV.2427 <840920.1535>/USR/RJE/R4010/TRACE.FTN= APSTRACEAREA RENTER_TRACE >> .ENTR .IDLP .MBT HOUSEKEEP POST_LINE ADD_E STATE_TRANSIT ADD_S TRANSLATE HEXCVT>  CCAx@p@p`p h(pp` @p`hX 0(y`Ԩh Hph(`0p` @pT@h`tW<<]h`A`P(jh`pn(xsġwʈp(`P(}(` @p` &ph*x(` @(` @p RR ))ơ ( p(` @p `(8 8(-(R((4 |P   ??@(@Ig>>XSTATE_TRANSIT 91781-1X008 REV.2427 <840920.1535>/USR/RJE/R4010/TRACE.FTN>STATE_TRANSIT ,2.ENTR .ARTN .MBTTRANSIT }}ڗHHAxx`h(x`p`h& x`$$5FWh`}.}h`~}h`A }?}Ah`~}(4h`}}88]GKP}h`~}(4Ah`} a}h`~A}(4866 m!!< MRX > < MTX > < BP > < FP >    ?6@;;Xp)TRANSIT 91781-1X008 REV.2427 <840920.1535>/USR/RJE/R4010/TRACE.FTN; ? TRANSIT   .ENTR .MBTKCVT@@!!Ax$ p`(p p`'ph$`&#  ->@@8<<XoHOUSEKEEP 91781-1X008 REV.2427 <840920.1535>/USR/RJE/R4010/TRACE.FTN<[ +HOUSEKEEP '.ENTR .ARTN .SST.NFEX LOG_LINEEEK(&&A()xg*`n(p ` <>ENA+fl(=fjJ*(=Ec ** TRACE OVERWRITE **77ufN!!Afh(= ** TRACE END ** ** TRACE START ** P 7@<<X%POST_LINE 91781-1X008 REV.2427 <840920.1535>/USR/RJE/R4010/TRACE.FTN< APSTRACEAREA t POST_LINE ))i.ENTR .SBST .SST.NFEX .MBTLOG_LINEDINTTODECIMAL ),,VPSI WRITE,CLOCK=xxxxxxxxxxx PSI READ, CLOCK=xxxxxxxxxxx ,~~FFFAx}@p`(-J|`(D9vh{`wvA|(RHvhy`wAvJ|AnA|nn~D~2+d J|n `~pp(,''$v  , P L ZL   8'@O6m::XGIIADD_E 91781-1X008 REV.2427 <840920.1535>/USR/RJE/R4010/TRACE.FTN: APSTRACEAREA YADD_E  .ENTR .SBST .SST.NFEX oo?99xBx@`G@p`(`p(;`p`p`H@p==E=D=AH`H@p=A=CA==?`?@p`p`ob?  L ZL @N::XUIIADD_S 91781-1X008 REV.2427 <840920.1535>/USR/RJE/R4010/TRACE.FTN: APSTRACEAREA YADD_S  .ENTR .SBST .SST.NFEX oo?99xBx@`G@p`(`p(;`p`p`H@p==E=D=AH`H@p=A=CA==?`?@p`p`oZ?  L ZL @F::Xs3HEXCVT91781-1X008 REV.2427 <840920.1535>/USR/RJE/R4010/TRACE.FTN: oHEXCVT  .ENTR .SST.NFEX CNUMH ''xA'@-L<<X1TRANSLATE 91781-1X008 REV.2427 <840920.1535>/USR/RJE/R4010/TRACE.FTN<r5GTRANSLATE  ##7.ENTR .CPM.SST.SBT.NFEX .MBTCONVERT #ZZBBNUL SOH STX ETX EOT ENQ ACK BEL ((BS HT LF VT FF CR SO SI DLE DC1 DC2 DC3 DC4 NAK SYN ETB CAN EM SUB ESC FS GS RS US SP ZjjE99EEx`F(Q(WAh`GZAFpDD(`(k`D@pAh`A(}D(p(vh`(}`DhA(Vj""0?<*> PAD  "@}4!!!~~ .AS2EB n.EB2AS n.RJTABADD_E /aADD_S 1` BLANKFILL V2 BUFFER_FILL  sCNUMH lCONVERT EBC_BLANKFILL  _2 ENTER_TRACE "!t EXPAND_TABS (HEXCVT3_<~~~& HOUSEKEEP *V INIT_TRACE dINTBL n MOVESTRINGINO_ABORT_ERRORK POST_LINE ,_RJTBL  SCAN_TAB(STATE_TRANSIT &NSTTBL LTABFILL  l2TADDR  TRANSIT )0VT3_~~~ TRANSLATE 4pCXXTBL /dINTBL n MOVESTRINGINO_ABORT_ERRORK POST_LINE ,_RJTBL  SCAN_TABSTATE_TRANSIT &NSTTBL LTABFILL  lTADDR  TRANSIT )0VT3_~:H:T:H:9:;d;d;I:-::U   :U89#:H:T:H:9:;d;d;I:-::U :U  % <ō>;d>:ˈH >=U=ARJE.REL::RJE:5:66:128 644 0 0 41000 5300430350 33431 RJE.REL::RJE:5:66:128 $B BRJE REL +0+0+0B 6FST HHX6m PAS.GLOBALINFO91781-16001 REV.2540 000000 851014.1411/USR/RJE/HP1000/RJE.MAC:::3:192:35 H@v6DDXV#m CL_GET91781-16001 REV.2540 000000 851014.1411/USR/RJE/HP1000/RJE.MAC:::3:192:35 D pCL_GET 77 E .ENTR ABREG NO_ABORT_ERRORPAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDSXLUEX 7,,\@"p`Ap!nD23,A p( @Xww7FFX>!m CL_READ 91781-16001 REV.2540 000000 851014.1411 /USR/RJE/HP1000/RJE.MAC:::3:192:35 F CL_READ  22.ENTR NO_ABORT_ERRORPAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDSXLUEX 2 `p H  Appp(@#AEEX8!m CL_WR_RD91781-16001 REV.2540 000000 851014.1411/USR/RJE/HP1000/RJE.MAC:::3:192:35 E )CL_WR_RD 22.ENTR NO_ABORT_ERRORPAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDSXLUEX 2 `p nH  Appp(@8WDDXw9m BOUNDS91781-16001 REV.2540 000000 851014.1411/USR/RJE/HP1000/RJE.MAC:::3:192:35 D x*BOUNDS  $$.ENTR PAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDS$CC""`#A@%(`%p"`#p%`"p#`$A@%(`#A@$p&`&*C?+ A''p%(p$)p#`8p&( 8 @r22FFXg%m RJTAB_LOAD91781-16001 REV.2540 000000 851014.1411/USR/RJE/HP1000/RJE.MAC:::3:192:35 FyRJTAB_LOAD 33 5b .ENTR .RJTABBOUNDSIXGET PAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDS322߅HApAp !(pAp(`$p`2 fA ( a$ @NHHX?m RJTAB_STORE 91781-16001 REV.2540 000000 851014.1411 /USR/RJE/HP1000/RJE.MAC:::3:192:35 H:RJTAB_STORE 88 #= .ENTR .RJTABBOUNDSIXGET IXPUT PAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDS8(( PHApAp (pA( fA ( @ *DDX{Sm !APPEND91781-16001 REV.2540 000000 851014.1411/USR/RJE/HP1000/RJE.MAC:::3:192:35 D `AAPPEND  99 x.DLD.DST .ENTR MOVESTRING PAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDSTRIMLEN 9ccv55A=p7A;p6;9`7@6p`9A@p5`6PQA((#"=;(1`5(1`6@9p9`:@6p:1=9`5p8`8AcB AA ??AA=@A;`Rp8( Q @r82EEX{@m !FMT_D 91781-16001 REV.2540 000000 851014.1411 /USR/RJE/HP1000/RJE.MAC:::3:192:35 E S1FMT_D  66 X.ENTR .LBT .SBTAPPENDCNUMD PAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDS6YY]++`,( `,Ap. .`=p+h96@+H P>(@+p+( h96@+HH`? ($A$,A( 0p-`-1Y2A//p,`> ` 1p 1AK 1 F@p ` A(X`p H(yh6H P(kP (`(v@ 0 ,HH@(y@ 0 ,H@(yJ`p ` 0 p 0(p`__ ** (@ 0p 0` 0p p` 0A(`p p (A 5p ` /(` /p ` @6h6 H_%%I8(P  J  F q(AB%@|.GGXϿm )STAT_PROCESS91781-16001 REV.2540 000000 851014.1411/USR/RJE/HP1000/RJE.MAC:::3:192:35 GgXSTAT_PROCESSxx.DST.LBT.MBT APPENDARRAY_TO_INDEXCONCLUDE EXEC FMT_D FMT_P FTIME PAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDSPAS.PARAMETERSPRINT_OUT_STRING STATUS_REQUESTSTRDSCSTTBL xBBA[F@\p`(% A]F^ A p 5 pA`|pR &5Rp`H(+hp6`q6D_7`<abAAT BT ~~ϥB<rvݪxpRDPRPUUN LSMCPRPURDUNH@9XIIX/'m *ABORT_PROCESS 91781-16001 REV.2540 000000 851014.1411 /USR/RJE/HP1000/RJE.MAC:::3:192:35 IABORT_PROCESS 55CONCLUDEINITCLBUF PAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDSREQUEST_REPLY 5GG J`7P$( P%( P&((`"pp(`!pp(`#pp(` pD5HpGT 8( CUQURE@~/IIX%Dm +TRACE_PROCESS 91781-16001 REV.2540 000000 851014.1411 /USR/RJE/HP1000/RJE.MAC:::3:192:35 I8TRACE_PROCESS JJ  .MBTADJUST_NAME CONCLUDEINITCLBUF PAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDSPAS.PARAMETERSREQUEST_REPLY Jpp 88A; F

p ` (6hA6`@6 H<8pv49 88(P r F @TscIIX7vm ,ROUTE_PROCESS 91781-16001 REV.2540 000000 851014.1411 /USR/RJE/HP1000/RJE.MAC:::3:192:35 IeROUTE_PROCESS LL ; .MBTADJUST_NAME CONCLUDE PAS.1 PAS.2 PAS.200 PAS.3 PAS.BLANKFILL PAS.NONCDSPAS.PARAMETERSREQUEST_REPLY L~~DDAh Fip P ( `tp (djD qip ` A(`up (d$k iDp ` A(4 4mlm iA7 q: ` 7p pA@ 5np ` (c~EEܥD!!` /p ` Pr(LPs(T(\ho6`p6A i(cho6`q6A i(cA cmlm ieE##f8e(P    q #@1DDXm -RJE 91781-16001 REV.2540 000000 851014.1411 /USR/RJE/HP1000/RJE.MAC:::3:192:35 D..NPAS.1 PAS.2 PAS.200 PAS.3 PAS.STOP,RJE .ww0.DSTABORT_PROCESS CLOSE_PROCESS CONCLUDEEXEC INITCLBUF NAMRPAS.INITIALIZEPAS.NONCDS PAS.PARAMETERSPAS.TRACECLOSEROUTE_PROCESS SEND_PROCESSSTAT_PROCESS STRDSCTRACE_PROCESS w,KK1`pp :pp Cp`@h88(5`(T`pp(Vp`([ppppp hAA o v@rrowBB }'AH `P(P(P(P(P(P((A(((A(A((`p P( rZABCLROSESTTR@=T,RINIT.REL::RJE:5:107:128 644 0 0 65400 5300430352 34131 RINIT.REL::RJE:5:107:128 $k kRINIT REL +0+0+0k5-zFST AAXm:]PAS.GLOBALINFO91781-16002 REV.5000 000000 870220.1256RJE/PCO/RINIT.MAC::USRA@Z==XZ9m:]BOUNDS91781-16002 REV.5000 000000 870220.1256RJE/PCO/RINIT.MAC::USR= x*BOUNDS  $$.ENTR PAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDS$CC""`#A@%(`%p"`#p%`"p#`$A@%(`#A@$p&`&*C?+ A''p%(p$)p#`8p&( 8 @U&BBX!Dm:]DRIVER_RETURN 91781-16002 REV.5000 000000 870220.1256 RJE/PCO/RINIT.MAC::USRB5DRIVER_RETURN ((R8.ENTR IANDPAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDS(aan22 `CA@(A39(44A4:P?((4p2(0p23;("A`Bp23<()`A((p23(0`@p2`25a*Q6A3(?@[z^??X[%m:]RJTAB_LOAD91781-16002 REV.5000 000000 870220.1256RJE/PCO/RINIT.MAC::USR?yRJTAB_LOAD 33 5b .ENTR .RJTABBOUNDSIXGET PAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDS322߅HApAp !(pAp(`$p`2 fA ( a$ @r2AAX$m:]RJTAB_STORE 91781-16002 REV.5000 000000 870220.1256 RJE/PCO/RINIT.MAC::USRA:RJTAB_STORE 88 #= .ENTR .RJTABBOUNDSIXGET IXPUT PAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDS8(( PHApAp (pA( fA ( @m==X=#m:]CL_GET91781-16002 REV.5000 000000 870220.1256RJE/PCO/RINIT.MAC::USR= pCL_GET 77 E .ENTR ABREG NO_ABORT_ERRORPAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDSXLUEX 7,,#R@"p`Ap!JD,A p( @TTs??X2t!m:]CL_READ 91781-16002 REV.5000 000000 870220.1256 RJE/PCO/RINIT.MAC::USR? CL_READ  22.ENTR NO_ABORT_ERRORPAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDSXLUEX 2 `p H  Appp(@r72>>X,!m:]CL_WR_RD91781-16002 REV.5000 000000 870220.1256RJE/PCO/RINIT.MAC::USR> )CL_WR_RD 22.ENTR NO_ABORT_ERRORPAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDSXLUEX 2 `p JH  Appp(@+rJ2BBX@m:]REQUEST_REPLY 91781-16002 REV.5000 000000 870220.1256 RJE/PCO/RINIT.MAC::USRB;REQUEST_REPLY } ~~-.DST.ENTR .LBT.SBTCLRQCL_GETCL_WR_RD CNUMD EXECIDGET NO_ABORT_ERRORPAS.1 PAS.2 PAS.200 PAS.3 PAS.BLANKFILL PAS.NONCDSPNAME RJTAB_LOADRJTAB_STORE STRDSC TRIMLEN ~ XLUEX - `ppA(t FH II(pAAp`P(("p(t`(&(@-A 1h6Hh6AH<p`(C`p(tA LJA  RJMM?T++A WpA^Ad`P(h(oA o`P(`p`(}|H`M##Ap( @ @RJE.#g@@_==XbSm:]APPEND91781-16002 REV.5000 000000 870220.1256RJE/PCO/RINIT.MAC::USR= `AAPPEND  99 x.DLD.DST .ENTR MOVESTRING PAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDSTRIMLEN 9ccv55A=p7A;p6;9`7@6p`9A@p5`6PQA((#"=;(1`5(1`6@9p9`:@6p:1=9`5p8`8AcB AA ??AA=@A;`Rp8( Q @ Y,>>X<m:]FMT_O 91781-16002 REV.5000 000000 870220.1256 RJE/PCO/RINIT.MAC::USR> SFMT_O  ..T.ENTR APPENDCNUMO PAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDS.! A =AFp ` 7A  p `p (  @V#t>>Xc@m:]FMT_D 91781-16002 REV.5000 000000 870220.1256 RJE/PCO/RINIT.MAC::USR> S1FMT_D  66 X.ENTR .LBT .SBTAPPENDCNUMD PAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDS6YYW++`,( `,Ap. .=`=p+h96@+H P>(@+p+( h96@+HH`? ($A$,=A(F0p-`-1YQ2A//p,`>X=m:]FMT_P 91781-16002 REV.5000 000000 870220.1256 RJE/PCO/RINIT.MAC::USR> SFMT_P  ..wT.ENTR APPENDCNUMD PAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDS.! A =AFp ` 7A  p `p (  @M$k>>XH$m:]FMT_H 91781-16002 REV.5000 000000 870220.1256 RJE/PCO/RINIT.MAC::USR> SFMT_H  77 .ENTR APPENDCNUMH PAS.1 PAS.2 PAS.200 PAS.3 PAS.BLANKFILL PAS.NONCDS7''FA =  =Fp`'5n Ap`#p(  # @ꯪ??Xmm:]PRINT_LINE91781-16002 REV.5000 000000 870220.1256RJE/PCO/RINIT.MAC::USR?{PRINT_LINE331|PAS.1 PAS.2 PAS.200 PAS.3 PAS.BLANKFILL PAS.NONCDSTRIMLEN XLUEX 3))!ADp )/( P@+I??XCm:]PRINT_O 91781-16002 REV.5000 000000 870220.1256 RJE/PCO/RINIT.MAC::USR?  PRINT_O  00-.ENTR FMT_O PAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDSPRINT_LINE0 A DH(( 7 A  p (@n??X8m:]PRINT_D 91781-16002 REV.5000 000000 870220.1256 RJE/PCO/RINIT.MAC::USR?  PRINT_D  00".ENTR FMT_D PAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDSPRINT_LINE0 A DH(( 7 A  p (@ho??X<m:]PRINT_H 91781-16002 REV.5000 000000 870220.1256 RJE/PCO/RINIT.MAC::USR?  PRINT_H  00&.ENTR FMT_H PAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDSPRINT_LINE0 A DH(( 7 A  p (@toAAXm:]ADJUST_NAME 91781-16002 REV.5000 000000 870220.1256 RJE/PCO/RINIT.MAC::USRA1ADJUST_NAME G``.DST .ENTR .LBT.MBT.SBTFMPWORKINGDIR IANDMOVESTRINGNAMR PAS.1 PAS.2 PAS.200 PAS.3 PAS.BLANKFILL PAS.NONCDSSTRDSCTRIMLEN `jsLLA AAp`((|p~A~p}(|Hh6Pń(|,p}`}(7A7h6P(?P(e(|Bp}h6`}@ɈHH``}UUL11@p`}A@pW]h6`6(|hp}`}p`}@pAu{(|UGA (P0::0 /:OP@[zA@@X7%m:]PRINT_CL_BUF91781-16002 REV.5000 000000 870220.1256RJE/PCO/RINIT.MAC::USR@[!PRINT_CL_BUF66 Za.DIV PAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDSPRINT_H PRINT_LINETRIMLEN 6::A @p` $(pp`#@p  88(!:;"( I@0@@Xdm:]INITCLBUF 91781-16002 REV.5000 000000 870220.1256 RJE/PCO/RINIT.MAC::USR@P INITCLBUF 00 BLANKFILL IDGET PAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDSPNAME 0%% A@A= =pJ`pK % ( @l,@@XGBm: ]CONFIG_ERROR91781-16002 REV.5000 000000 870220.1256RJE/PCO/RINIT.MAC::USR@M'CONFIG_ERROREE EINITCLBUF PAS.1 PAS.2 PAS.200 PAS.3 PAS.BLANKFILL PAS.NONCDSPRINT_D PRINT_LINEREQUEST_REPLY ERR''A ).* +D  )9,A + `  (!p LA -p ` p ` p ('R))((P Initialization error: File line number: )@Ji@@X2Cm: ]CONFIG_CHECK91781-16002 REV.5000 000000 870220.1256RJE/PCO/RINIT.MAC::USR@82CONFIG_CHECKKK E .ENTR APPENDCONFIG_ERRORINTBL PAS.1 PAS.2 PAS.200 PAS.3 PAS.BLANKFILL PAS.NONCDSPRINT_LINERJTBL Kbb..`/p ` ( 8;9 :A B DJp.` ((-` A@A('` A@Bp0& 0(++  H2bF3A 11p/( Pfile error. d@p-0??Xsm:!]RTE6_DTACH91781-16002 REV.5000 000000 870220.1256RJE/PCO/RINIT.MAC::USR?RTE6_DTACH))mDTACH LOGLU PAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDS)((Ɓ`P((Ap`( (A( ((( @z:??Xsm:!]RTE6_ATACH91781-16002 REV.5000 000000 870220.1256RJE/PCO/RINIT.MAC::USR?RTE6_ATACH--ATACH NO_ABORT_ERRORPAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDS-//m`P((`((A @(p/ ( @r2>>Xm:"]PSI_CNTL91781-16002 REV.5000 000000 870220.1256RJE/PCO/RINIT.MAC::USR> PSI_CNTL EE  .ENTR ABREG DRIVER_RETURN PAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDSRTE6_ATACHRTE6_DTACHXLUEX E((?vDA A    p (UA pp(@Q??Xi*m:"]PSI_STATUS91781-16002 REV.5000 000000 870220.1256RJE/PCO/RINIT.MAC::USR?f:PSI_STATUSEE  .ENTR ABREG DRIVER_RETURN PAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDSRTE6_ATACHRTE6_DTACHXLUEX E++PCD    H p +i A pppp(@E??XY*m:#]PSI_CONFIG91781-16002 REV.5000 000000 870220.1256RJE/PCO/RINIT.MAC::USR?WPSI_CONFIGEE  .ENTR ABREG DRIVER_RETURN PAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDSRTE6_ATACHRTE6_DTACHXLUEX E++PCD    H p +i A pppp(@u@@Xm:$]UNLOCK_LU 91781-16002 REV.5000 000000 870220.1256 RJE/PCO/RINIT.MAC::USR@UNLOCK_LU ?? O .ENTR LURQNO_ABORT_ERROR PAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDSRTE6_ATACHRTE6_DTACH?! DD p ` A `p (`  @y֘??XJ0m:$]LOCK_LU 91781-16002 REV.5000 000000 870220.1256 RJE/PCO/RINIT.MAC::USR? F$LOCK_LU  RR { .ENTR ABREG CONFIG_CHECKLULOCKEDLURQNO_ABORT_ERROR PAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDSRTE6_ATACHRTE6_DTACHRAAĐ!!D*D#+  ` (#p!`!A(,(p"(p"`"$Ab%A #`/p"(f / @/VN@@X!m:%]BOUNDS_CHECK91781-16002 REV.5000 000000 870220.1256RJE/PCO/RINIT.MAC::USR@NBOUNDS_CHECK11\b.ENTR BOUNDSCONFIG_CHECKPAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDS1P A  (  A  p p (k@@@XVm:%]READ_ECHO 91781-16002 REV.5000 000000 870220.1256 RJE/PCO/RINIT.MAC::USR@wGREAD_ECHO __.DST.MBTBLANKFILL CASEFOLDCONFIG_CHECKFMPREAD PAS.1 PAS.2 PAS.200 PAS.3 PAS.BLANKFILL PAS.NONCDSPRINT_LINESPLITSTRING STRDSC_j>>` (` J(`  Ap   Ip ` pC` @UpDA  CDEA"E)JNK I, hL6`M6A I` (:` A(:? B DT> HB DG ;H(P  Configuration P@$GBBX9l2m:&]READ_INT_ECHO 91781-16002 REV.5000 000000 870220.1256 RJE/PCO/RINIT.MAC::USRB5^(READ_INT_ECHO == p .ENTR BOUNDS_CHECKNAMR PAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDSREAD_ECHO TRIMLEN =00D Dpp  Ap `p`(0)A &&p'p(@AAXm:']START_RJEXX 91781-16002 REV.5000 000000 870220.1256 RJE/PCO/RINIT.MAC::USRAOjSTART_RJEXX ||.MBT.SBTBLANKFILL CLRQCONFIG_CHECK EXEC FMPRPPROGRAMINITCLBUF NO_ABORT_ERRORPAS.1 PAS.2 PAS.200 PAS.3 PAS.BLANKFILL PAS.NONCDS PNAME READ_ECHO READ_INT_ECHO RJTAB_STORE |GGAl}mn lopAlpnqrpAlsnhx6`y6Anhz6`{6thz6H`@h|6`z6AtA>H DDFHhph`hPHH?G!!(I(K`phANh AQ= Vui=A[iD ev:J wpjHZZ6Ck;;(P@ :=RJE subsystem number ?Monitor password ?RJE link monitor file name ?RJE.0 0jZ@Ji^??XT}m:(]LU_INIT 91781-16002 REV.5000 000000 870220.1256 RJE/PCO/RINIT.MAC::USR? `gLU_INIT 0 WW.DIVCONFIG_CHECK IANDLOCK_LU PAS.1 PAS.2 PAS.200 PAS.3 PAS.NONCDSPSI_CNTLREAD_INT_ECHO RTE6_ATACHRTE6_DTACH XLUEX W̪IIAijpeeA(  Ak leJ mP{A((n o wPv(4 o w(44pA`zpf;qer`|@p`ypfAEqe`xpfL33IqesA RleJ o AwPv(`A`p`epd`dg3h (g @ofCE v3@@@@@X m:)]START_PSI 91781-16002 REV.5000 000000 870220.1256 RJE/PCO/RINIT.MAC::USR@tSTART_PSI Gzz BLANKFILL CONFIG_CHECK FMPCLOSE FMPOPEN FMPREAD IANDLU_INIT PAS.1 PAS.2 PAS.200 PAS.3 PAS.BLANKFILL PAS.NONCDSPRINT_LINEPSI_CNTLREAD_ECHO RTE6_ATACHRTE6_DTACH XLUEX zCC`p`pA pJp`PA((`((A'A`p/(7A7>¡DFBC>>= MDFpUš`([[A``(kAjA`ptA {p Pssʒ55(`pA  PD((u pA D`pJ(`pA`pˀskkWOO(PkRSh IISUiPSI read LU ?PSI write LU ?Testing PSI...PSI download file name ?ros PSI downloadDownloading PSI...PSI download@pk@7D??XvKm:*]CONFIG_PSI91781-16002 REV.5000 000000 870220.1256RJE/PCO/RINIT.MAC::USR?CONFIG_PSIt~~~ .AS2EB.CBT .EB2AS.LBT.MBT.MVW.SBT ADDRESSOF BLANKFILL CONFIG_CHECKPAS.1 PAS.2 PAS.200 PAS.3 PAS.BLANKFILL PAS.NONCDSPRINT_H PRINT_LINEPSI_CONFIGPSI_STATUSREAD_ECHO ~ READ_INT_ECHO 0dJJAh` Ap`P(P(&(,h6 h6`h6 H(/h6H (/A/6D>bh6A`6(H(M(Mh6JMM(fTbh6A`6(^(c(ch6`(ffAmAubh6`6(((h6 (bh6A`6(((hAOO6 `(bh6`6A(((h6H `(AAh6A Abh6`6(((hH6(AOObh6`6A(((h6(bh6A`6( ((h6`(h6A!hA6+/h6 D:75LL*>ApF3Jp`@p`̆A@(YYA`>dpAlIphA6zWAcb)KKh6`6(((Ap(ebh6`6(((Ap(fDpbh6`6A(((h6`(rbh~~ THH6`6((ڈ(h6HA(h6 h6`h6H `h6 h6H p\h6A`\6 p[h6`[6A  p @@p]p~h|CCP((1 AD pa`](0pp`@`A@ap-8`8(&D9]AJ`(RAKsDNRh6HP(Z WAZ HH( Pk+'n lzު((bҪKLLink type 2780/3780 ?Master/Slave ?MASTERSL&``AVE Modem connect type ?MOAAAAR Modem connect timeout ? Half/Full Duplex ?FULLHALF3/4 Maximum non-transparent records per block ? Maximum transparent records per block ? Link block size ? Maxiuu5XXmum record size ? No-activity timeout ? Maximum number of retries ? Append trailing blanks ?YES NOGenerate WACK/TTD ? YES NOPSI soft-fail:&-27=pak|@  u@9==Xm:-]SIGNON91781-16002 REV.5000 000000 870220.1256RJE/PCO/RINIT.MAC::USR= j~SIGNON ||.MBT.SBTADJUST_NAME BLANKFILL CONFIG_CHECK FMPCLOSE FMPOPEN FMPPURGEFMPWRITEINITCLBUF PAS.1 PAS.2 PAS.200 PAS.3 PAS.BLANKFILL PAS.NONCDSREAD_ECHO REQUEST_REPLY TRIMLEN |Q@@AA BA((}h6HD`@@pLpMh6`6A -ADp5= <DFp`(Kܜ@>>AGJ(dRAXp\A `pdAhplh6`6A vDpAz}D~33(PN!"$%*0Signon card image ? wcs SignonSignon03@5S@@Xvm:-]ROUTE_DEVICE91781-16002 REV.5000 000000 870220.1256RJE/PCO/RINIT.MAC::USR@^KROUTE_DEVICEooT!.DLD.DST.ENTR .MBTADJUST_NAME CONFIG_CHECKINITCLBUF MOVESTRINGPAS.1 PAS.2 PAS.200 PAS.3 PAS.BLANKFILL PAS.NONCDSPRINT_CL_BUFREAD_ECHO REQUEST_REPLY o[EEA H@D`JpGS[TAU HHDhX6`Y6AUM$ShVUA (HDHhZ6`Y6UA3u 7HH`GpLP(=A(> BWpF 7EK CC8^L**AAJJAH(PMuxxxxxx output file name ? xxxxxx processor file name ?C@^}@@XpWm:.]CONFIG_RJEXX91781-16002 REV.5000 000000 870220.1256RJE/PCO/RINIT.MAC::USR@SCONFIG_RJEXX.CBT.DST.LBT.MBT.MPY.MVW ADJUST_NAME BLANKFILL CASEFOLD CONFIG_CHECKFMPPURGE INITCLBUF PAS.1 PAS.2 PAS.200 PAS.3 PAS.BLANKFILL PAS.NONCDS PRINT_CL_BUF PRINT_H PRINT_LINE66`PSI_CNTLREAD_ECHO READ_INT_ECHO REQUEST_REPLY ROUTE_DEVICESTRDSCUNLOCK_LU 6@@ApAp`p`ph6 p@ADh` P( (!D %Ap )A 15ApL=A@GGApMI(`Lp쀀h6` 6A AVNYH`h 6` 6A(jA(n(nm DpPȈD(r(s wpA {4AA~~VHH7A:`-S(`A(DDD=DD`Uph 6A Tp`Vph 6 p`~;;r(LA A `UpD p;fRSS(Z PPm JN9ѠRJE PSI monitor trace control ? PSI trace control ? System log/trace file ? PRINT PUNCH UNROUTPlease establi|Dsh the RJE link.PSI soft-fail:d@@] {>>Xm:0]RINIT 91781-16002 REV.5000 000000 870220.1256 RJE/PCO/RINIT.MAC::USR>//,(PAS.1  PAS.2 PAS.200 PAS.3 PAS.STOP(RINIT /}}n%.CBT.DST.MBT.OPSY CONFIG_CHECKCONFIG_PSICONFIG_RJEXXEXECFMPCLOSE FMPOPEN PAS.BLANKFILL PAS.INITIALIZEPAS.NONCDSPAS.NUMERICPARMS PAS.PARAMETERSPAS.TRACECLOSE PRINT_H PRINT_LINE}''I.PRTNREAD_ECHO SIGNONSTART_PSI START_RJEXX STRDSC'7(LL-0ppppA=rhDAAjK9lReAnAYapppp`P(tP(qP(nP(k(wp(z`p눈(z`p(ztRR`p(z z`(p(pPA((  A  A A  9pA e (lnp 9`( Ap9h6`6YYAD9dh6A` 6((DpD@p`p(pAAAPe d9ros Configuration Host file id ?ECHO ?ECHO$ @/(RJEXX.REL::RJE:5:153:128 644 0 0 114400 5300430353 34645 RJEXX.REL::RJE:5:153:128 $ 8RJEXX REL +0+0+0L*FST AAX+l]PAS.GLOBALINFO91781-16003 REV.5000 000000 870220.1258RJE/PCO/RJEXX.MAC::USRA@k+>>Xl]ROUND_UP91781-16003 REV.5000 000000 870220.1258RJE/PCO/RJEXX.MAC::USR> C ROUND_UP  "",.DIV.ENTR PAS.1 PAS.2 PAS.3 PAS.NONCDS" > `  p `  7A  p (  @_~<<XHl]WAIT91781-16003 REV.5000 000000 870220.1258RJE/PCO/RJEXX.MAC::USR< WAIT ""?.ENTR EXECPAS.1 PAS.2 PAS.3 PAS.NONCDS"%y ` p   :A  p ( @LkBBXll]BLANKPADCLBUF 91781-16003 REV.5000 000000 870220.1258 RJE/PCO/RJEXX.MAC::USRBxBLANKPADCLBUF )).DSTBLANKFILL PAS.1 PAS.2 PAS.3 PAS.NONCDSSTRDSC),,2`}p`}@p  JA, ( @.==Xl9l]BOUNDS91781-16003 REV.5000 000000 870220.1258RJE/PCO/RJEXX.MAC::USR= x*BOUNDS  .ENTR PAS.1 PAS.2 PAS.3 PAS.NONCDSCC""`#A@%(`%p"`#p%`"p#`$A@%(`#A@$p&`&*C?+ A''p%(p$)p#`8p&( 8 @Ĝ\==XM#l]CL_GET91781-16003 REV.5000 000000 870220.1258RJE/PCO/RJEXX.MAC::USR= pCL_GET 11x.ENTR ABREG NO_ABORT_ERRORPAS.1 PAS.2 PAS.3 PAS.NONCDSXLUEX 1,,L@"p`Ap! D,Ap( @:Y??X!l]CL_READ 91781-16003 REV.5000 000000 870220.1258 RJE/PCO/RJEXX.MAC::USR? CL_READ  ,,.ENTR NO_ABORT_ERRORPAS.1 PAS.2 PAS.3 PAS.NONCDSXLUEX , +`p wH  Appp(@b">>X!l]CL_WR_RD91781-16003 REV.5000 000000 870220.1258RJE/PCO/RJEXX.MAC::USR> )CL_WR_RD ,,.ENTR NO_ABORT_ERRORPAS.1 PAS.2 PAS.3 PAS.NONCDSXLUEX , )K`p w H  Appp(@[&??X%l]RJTAB_LOAD91781-16003 REV.5000 000000 870220.1258RJE/PCO/RJEXX.MAC::USR?yRJTAB_LOAD --/.ENTR .RJTABBOUNDSIXGET PAS.1 PAS.2 PAS.3 PAS.NONCDS-22߅HApAp !(pAp(`$p`2 fA( a$ @PowAAX6l]RJTAB_STORE 91781-16003 REV.5000 000000 870220.1258 RJE/PCO/RJEXX.MAC::USRA:RJTAB_STORE 22 o .ENTR .RJTABBOUNDSIXGET IXPUT PAS.1 PAS.2 PAS.3 PAS.NONCDS2(( PHApAp(( (pA( fA ( @۰<<X:l]DONE91781-16003 REV.5000 000000 870220.1258RJE/PCO/RJEXX.MAC::USR<  DONE ''*CL_WR_RDPAS.1 PAS.2 PAS.3 PAS.NONCDSRJTAB_STORE '##Rj ApA 3  1 4 # ( @}~>>X! l]REPLY 91781-16003 REV.5000 000000 870220.1258 RJE/PCO/RJEXX.MAC::USR> 6REPLY  -mCL_WR_RDPAS.1 PAS.2 PAS.3 PAS.NONCDSȑA ~ ( @a4!??XJl]TIME_STAMP91781-16003 REV.5000 000000 870220.1258RJE/PCO/RJEXX.MAC::USR?TIME_STAMP00g^.DSTNUMERICTIME PAS.1 PAS.2 PAS.3 PAS.NONCDSSTRDSCTIMENOW 0""lA " ( @vz>>X@$l]TRACE 91781-16003 REV.5000 000000 870220.1258 RJE/PCO/RJEXX.MAC::USR> ;TRACE  &&{u.ENTR PAS.1 PAS.2 PAS.3 PAS.BITMASK1PAS.NONCDS&**` p`@"@# ,HH@p`*wAp`!p( ! @Ԝ\==XtSl]APPEND91781-16003 REV.5000 000000 870220.1258RJE/PCO/RJEXX.MAC::USR= `AAPPEND  33 .DLD.DST .ENTR MOVESTRINGPAS.1 PAS.2 PAS.3 PAS.NONCDSTRIMLEN 3ccv55A=p7A;p6;9`7@6p`9A@p5`6PQA((#"=;(1`5(1`6@9p9`:@6p:1=9`5p8`8AcB AA ??AA=@A;`Rp8( Q @ʜ\>>XNl]FMT_O 91781-16003 REV.5000 000000 870220.1258 RJE/PCO/RJEXX.MAC::USR> SFMT_O  ((|.ENTR APPENDCNUMO PAS.1 PAS.2 PAS.3 PAS.NONCDS(B A Ap ` 6A  p `p (  @4R>>Xu@l]FMT_D 91781-16003 REV.5000 000000 870220.1258 RJE/PCO/RJEXX.MAC::USR> S1FMT_D  00 R.ENTR .LBT .SBTAPPENDCNUMD PAS.1 PAS.2 PAS.3 PAS.NONCDS0YY++`,( `,Ap. .`=p+h96@+HP>(@+p+( h96@+HH`? ($A$,A(0p-`-1Y%2A//p,`>XPl]FMT_P 91781-16003 REV.5000 000000 870220.1258 RJE/PCO/RJEXX.MAC::USR> SFMT_P  ((q.ENTR APPENDCNUMD PAS.1 PAS.2 PAS.3 PAS.NONCDS(B A Ap ` 6A  p `p (  @+I>>XZ$l]FMT_H 91781-16003 REV.5000 000000 870220.1258 RJE/PCO/RJEXX.MAC::USR> SFMT_H  11}S.ENTR APPENDCNUMH PAS.1 PAS.2 PAS.3 PAS.BLANKFILL PAS.NONCDS1''wA  p`'5m Ap`#p(  # @7??Xں+l]LOG_LU1 91781-16003 REV.5000 000000 870220.1258 RJE/PCO/RJEXX.MAC::USR? #LOG_LU1  DD p .SBTBLANKFILL MOVESTRINGNO_ABORT_ERROR PAS.1 PAS.2 PAS.3 PAS.NONCDSPNAME TRIMLEN XLUEX DHHE!!A   h(6H)`* A p!`!p"% y "&' 1D #H$( @qĐ>>X֪"l]LOG_LINE91781-16003 REV.5000 000000 870220.1258RJE/PCO/RJEXX.MAC::USR> LOG_LINE == BLANKFILL FMPPOST FMPWRITELOG_LU1 PAS.1 PAS.2 PAS.3 PAS.NONCDSTRACE TRIMLEN =??.A pA  p`D(!(A p ?  ( @h_>>XKl]LOG_O 91781-16003 REV.5000 000000 870220.1258 RJE/PCO/RJEXX.MAC::USR> T LOG_O  )).ENTR FMT_O LOG_LINEPAS.1 PAS.2 PAS.3 PAS.NONCDS) A H(( 7 A  p (@HNg>>XKl]LOG_D 91781-16003 REV.5000 000000 870220.1258 RJE/PCO/RJEXX.MAC::USR> T LOG_D  )).ENTR FMT_D LOG_LINEPAS.1 PAS.2 PAS.3 PAS.NONCDS) A H(( 7 A  p (@'NF>>XLl]LOG_H 91781-16003 REV.5000 000000 870220.1258 RJE/PCO/RJEXX.MAC::USR> T LOG_H  )).ENTR FMT_H LOG_LINEPAS.1 PAS.2 PAS.3 PAS.NONCDS) A H(( 7 A  p (@3OR@@X{G/l]TRACE_CL_BUF91781-16003 REV.5000 000000 870220.1258RJE/PCO/RJEXX.MAC::USR@R+TRACE_CL_BUFHH 2 .ENTR APPENDBLANKFILL LOG_H LOG_LINE PAS.1 PAS.2 PAS.3 PAS.NONCDSROUND_UPTIME_STAMPTRIMLEN HMM9&&D D p A  *(p'p&@&@)p(A(8&A8'(! ($(%H+M e,A )( @+J??Xl]GET_MSG 91781-16003 REV.5000 000000 870220.1258 RJE/PCO/RJEXX.MAC::USR? GET_MSG  **P".ENTR PAS.1 PAS.2 PAS.3 PAS.NONCDSTIME_STAMPXXTBL *,D7u Ap(@BBXl]TRACE_OTHERWISE_91781-16003 REV.5000 000000 870220.1258RJE/PCO/RJEXX.MAC::USRB6!TRACE_OTHERWISE_44 .ENTR GET_MSG LOG_LINELOG_O PAS.1 PAS.2 PAS.3 PAS.NONCDSTRACE 4 A( A 9A p ( @h(@@Xl ]LOG_FILE_MSG91781-16003 REV.5000 000000 870220.1258RJE/PCO/RJEXX.MAC::USR@[LOG_FILE_MSG}VVy .CBT.DST .ENTR .MBTGET_MSG LOG_D LOG_LINEMOVESTRING PAS.1 PAS.2 PAS.3 PAS.BLANKFILL PAS.NONCDSSTRDSCTRIMLEN VHH`@6pzA RhA6`z (N(Q`@6h6`Op Ҁ`P(&A&P) pQ`@pz2zA{`Q@pz`Q@p}@ z}AA~F{~h6HA`6((dA pQpP( PRO  OY(@rؑ@@X|8l!]LOG_RDR_NAME91781-16003 REV.5000 000000 870220.1258RJE/PCO/RJEXX.MAC::USR@_ LOG_RDR_NAME## .MBTLOG_LINEPAS.1 PAS.2 PAS.3 PAS.NONCDS# h 6` 6A   (P@v;6BBXl!]QUEUE_FILE_ERROR91781-16003 REV.5000 000000 870220.1258RJE/PCO/RJEXX.MAC::USRBb QUEUE_FILE_ERROR--B.MBTFMPPOST LOG_LU1 PAS.1 PAS.2 PAS.3 PAS.NONCDSWAIT-&&h6`6AA  p&[q (P ɠ@??X@al"]CLOSE_FILE91781-16003 REV.5000 000000 870220.1258RJE/PCO/RJEXX.MAC::USR?mQCLOSE_FILE VV .DAD .DDI.DIN.DLD.DST.ENTR FMPCLOSEFMPPOSITION FMPTRUNCATE LOG_FILE_MSG PAS.1 PAS.2 PAS.3 PAS.NONCDSTIMENOW V/DDA`PpLUVP`LA@`pMM HFp FAA W YAJ`L@`pM"M Jp `LA@`pM*M pE` A(43[ P(C`L@^ AA:N`L@_pMNM`E XDQ nR AP( ^W[ @mA@@XLSl#]OPEN_FILE 91781-16003 REV.5000 000000 870220.1258 RJE/PCO/RJEXX.MAC::USR@COPEN_FILE ?? .DLD.DST .ENTR FMPOPEN LOG_FILE_MSG PAS.1 PAS.2 PAS.3 PAS.NONCDSSTRDSCTIMENOW ?ss^E<`=@Op??AHI@A> @ Jh=HR`=@Rp<` (+*K B(:`B@N 1@`BA@Pp>@A>`<Csk2DA B(P4NU[k@cЂAAXl#]OPEN_READ_FILE91781-16003 REV.5000 000000 870220.1258RJE/PCO/RJEXX.MAC::USRAOPEN_READ_FILE ..?.ENTR OPEN_FILE PAS.1 PAS.2 PAS.3 PAS.BLANKFILL PAS.NONCDS. A p ` PA(ros @PCoCCXQl(($]OPEN_WRITE_FILE 91781-16003 REV.5000 000000 870220.1258 RJE/PCO/RJEXX.MAC::USRCOPEN_WRITE_FILE ..?.ENTR OPEN_FILE PAS.1 PAS.2 PAS.3 PAS.BLANKFILL PAS.NONCDS. A p ` TA(wcs @fH??Xfl$]OFF_PGM 91781-16003 REV.5000 000000 870220.1258 RJE/PCO/RJEXX.MAC::USR? %IOFF_PGM  FF .MBTAPPENDBLANKFILL MESSS PAS.1 PAS.2 PAS.3 PAS.BLANKFILL PAS.NONCDSTADDR TRACE_OTHERWISE_FhBB` |Pb("Pc(Pd(PeA( (* KTL M(/hP6A`Q6 M(/hP6A`R6 M(/hP6A`S6 MH(/pHA/H 6K`NA O:  p ?  p ADuBA OG I--)J(P WZ],8,NP ,ID,NP,ID,NP,ID,NPOF, -@1BBXDl%]DRIVER_RETURN 91781-16003 REV.5000 000000 870220.1258 RJE/PCO/RJEXX.MAC::USRB5DRIVER_RETURN ""Lm.ENTR IANDPAS.1 PAS.2 PAS.3 PAS.NONCDS"aa22 `CA@|(A39(44A4:P?((4p2(0p23;("A`Bp23<()`Ap23(0`@p2`25a*P6A3(?@4mS->>Xթl&]PSI_READ91781-16003 REV.5000 000000 870220.1258RJE/PCO/RJEXX.MAC::USR> PSI_READ $$CL_READ PAS.1 PAS.2 PAS.3 PAS.NONCDSTRACE $**" ` 5pwpxA( 1pw*E( e@ik+@@XI?Pl&]PSI_WRITE 91781-16003 REV.5000 000000 870220.1258 RJE/PCO/RJEXX.MAC::USR@q<PSI_WRITE KK !! .MVW .SBTCL_WR_RDNO_ABORT_ERROR PAS.1 PAS.2 PAS.3 PAS.BLANKFILL PAS.NONCDSTRACE TRACE_CL_BUFXLUEX Ktt;; ` 7p wp xA>( ?K@ AA AB(+p whI`J ChI6 D + 1 DE` Ap;7F w ;GH 1 p w<t$$L=( P led  psi_write $@og>>X+l']PSI_CNTL91781-16003 REV.5000 000000 870220.1258RJE/PCO/RJEXX.MAC::USR> !PSI_CNTL ?? ^ .ENTR ABREG DRIVER_RETURN NO_ABORT_ERROR PAS.1 PAS.2 PAS.3 PAS.NONCDSTRACE XLUEX ?<< A)(p (`hA*AA    p !<" A p p( @>>X.l']READ_LTS91781-16003 REV.5000 000000 870220.1258RJE/PCO/RJEXX.MAC::USR> 9$READ_LTS ..3.MVWCL_WR_RDPAS.1 PAS.2 PAS.3 PAS.NONCDSPSI_CNTLTRACE .IIs$$ Apx&(pwh,`-&(` 7pwwA'()(*A!w'+pw$I*% (  2  @gBBXݬDl(]GET_FILE_NAME 91781-16003 REV.5000 000000 870220.1258 RJE/PCO/RJEXX.MAC::USRB&v:GET_FILE_NAME 0;; m.DSTABREG BLANKFILL EXECNO_ABORT_ERROR PAS.1 PAS.2 PAS.3 PAS.NONCDSSTRDSC;{{U55` 2@Cp6 <6 =  A  ` (`Bp5(3p5` p6` @Ap7$ 67AA8)8` p S` S0@p S` p T` p `5:{ ;( ]@@PȠ @\BBX߽<l)]ABORT_RDR_JOB 91781-16003 REV.5000 000000 870220.1258 RJE/PCO/RJEXX.MAC::USRB1ABORT_RDR_JOB SS " .LBT .SBTCL_WR_RDFMPCLOSEGET_FILE_NAME GET_MSG LOG_LINELOG_RDR_NAME PAS.1 PAS.2 PAS.3 PAS.BLANKFILL PAS.NONCDSScc11` S((0A [ p  T3 ~ D4D5` S);('p Hh96 h:6 (p  0767 81ce2 ( P  S@h(CCX. l)]ABORT_RDR_QUEUE 91781-16003 REV.5000 000000 870220.1258 RJE/PCO/RJEXX.MAC::USRCWABORT_RDR_QUEUE ++*ABORT_RDR_JOB GET_FILE_NAME PAS.1 PAS.2 PAS.3 PAS.NONCDS+rDP ((pS  ( @CBBXl*]CATATONIC_PSI 91781-16003 REV.5000 000000 870220.1258 RJE/PCO/RJEXX.MAC::USRBwCATATONIC_PSI 88 Z .ENTR ABORT_RDR_QUEUE DONEGET_MSG LOG_LINEPAS.1 PAS.2 PAS.3 PAS.NONCDS8 A `S( ` Hp~3A p p (@A`a@@XP$l+]NEXT_IN_FILE91781-16003 REV.5000 000000 870220.1258RJE/PCO/RJEXX.MAC::USR@WNEXT_IN_FILE0++ CGET_FILE_NAME OPEN_READ_FILEPAS.1 PAS.2 PAS.3 PAS.NONCDS+EE Hp`p`P#(( ( p`(`S0"pS`pZ`p(p`E ( " @??X8l+]BLOCK_DATA91781-16003 REV.5000 000000 870220.1258RJE/PCO/RJEXX.MAC::USR?g*BLOCK_DATAlle].DST.LBT.SBT BLANKFILL CLOSE_FILEEBC_BLANKFILL FMPREAD LOG_FILE_MSGNEXT_IN_FILEPAS.1 PAS.2 PAS.3 PAS.BITMASK1PAS.NONCDSPSI_WRITE ROUND_UP STRDSClC??`S/1p&`&( ` <p'A,p!p#p$`S%1(p#(`!@.p( '["( ;p P p%`"P7(1(8`kP2(5(8p%(H`"(H@-"?::`"pZ`S03pSp#(`%(_ANp`S)1p#`#p$`#(]p#((`p`'(`! p`@ p(` @ ;p)A x ()~~Py<<`&(A(` <( ` ;p `.@!h A @!p!`! @ ;p`5A@(`#(`S6pS`S04pSp@  ,H/@~PBBp(`&@( (@  ,H/@p(`$@( (@  ,H/@p(`#@( (h/6@h06p`%0#p( @  ,HH/@p)`(@) NN(()`S$1p(@  ,H/H@p)`(@) )h/6Hh06 @p @!  Hp *N+ (   @>>XQl,]PSI_SEND91781-16003 REV.5000 000000 870220.1258RJE/PCO/RJEXX.MAC::USR> -BPSI_SEND PP z .MVWBLOCK_DATACATATONIC_PSI PAS.1 PAS.2 PAS.3 PAS.NONCDSPSI_WRITE TADDR TRACE TRACE_OTHERWISE_UI_LTS_DATA P~~}@@` PN(1PO(6PP(/PJ( (;` S&K((.` S'KA()D("` ZPL("` ZPM("((hH`IA D(.pA.A(@(@5EAF(@:GD(@pA@A~ E@B C(  @BBX*l-]NEXT_OUT_FILE 91781-16003 REV.5000 000000 870220.1258 RJE/PCO/RJEXX.MAC::USRBKxNEXT_OUT_FILE Y WW>.DST.ENTR CNUMD DONEFMPBUILDPATH FMPPARSEPATHMOVESTRINGOPEN_WRITE_FILE PAS.1 PAS.2 PAS.3 PAS.NONCDS STRDSCTRIMLEN WKK`p`@p AA    AA   & AA - ' ;>p`P(G`@p`PzzKBB@(M(Qp (`h  `A@paA  f `pA p vp ` P(/` p`zp A(P?5''@bR??Xl.]OUT_EOF 91781-16003 REV.5000 000000 870220.1258 RJE/PCO/RJEXX.MAC::USR? OUT_EOF ) ~~ .CBT.DST.ENTR .MBT.SBTBLANKFILL CLOSE_FILE EXEC FMPRPPROGRAMLOG_FILE_MSGMOVESTRINGNEXT_OUT_FILE PAS.1 PAS.2 PAS.3 PAS.BLANKFILL PAS.NONCDSQUEUE_FILE_ERROR STRDSC TRIMLEN ~tBBA`p( (p`@6ph6`A((%(`@p 0JA 8p`(Q`@6h6.BGGh6A`6P઄ (XA ]c`@pA k rAAxA {ph6@H``@p`<<)_p ((A(`h H(<55A( PC  GdPPRU,nnnnn, +,Z5@[.y@@Xtl0]UNBLOCK_DATA91781-16003 REV.5000 000000 870220.1258RJE/PCO/RJEXX.MAC::USR@UNBLOCK_DATA;4 .AS2EB.DLD.DST.ENTR .LBT.SBTADDRESSOF EXPAND_TABS FMPPOST FMPWRITELOG_FILE_MSG MOVESTRINGOUT_EOF PAS.1 PAS.2 PAS.3 PAS.BITMASK1PAS.BOUNDINTEGERPAS.NONCDSQUEUE_FILE_ERROR""4c ROUND_UPSTRDSC TADDR TRACE TRACE_OTHERWISE_"**w)`ĆA@( `@p` p*""U ( `%@p" "@p#"$ ( @p`p- . (&`(5`Pp9`9:;99`p9(/h6@HHP(MP(UP(UP(](`p-`(T#(`p-`(\#(h6@HAH (vP(vP(vP(qP(vP(v(y--`33Ttp(`p( p~`p(`p p3UbBB(>  ` p`}A@(* A:(h`6`@ȄHP((h`6H@HP((--A  ((h`6@H%@@P(( AW(W p 0 0JA Wp(`Ap  `@_pYYp 0`Z@pYA Y 0(! BBAZ(`Z@hZHA ((`ZA@pY'Yp#(` p@ ,Ha@(F @ ,HHa@(Vph`6hb6  O`Z@hAVZ[ \;;AZ(  h6h6@@ ,H@p`p`(p`A@}((`Ǫp`P(P(P(([l([I~ ([HD( pA(c   /4STZ[PRPUUN@3@@Xjc l1]START_READER91781-16003 REV.5000 000000 870220.1258RJE/PCO/RJEXX.MAC::USR@hSTART_READER11J>BLOCK_DATANEXT_IN_FILEPAS.1 PAS.2 PAS.3 PAS.BLANKFILL PAS.NONCDS1;;x pSpZHP((Ap(`S0pSp;;( P@@AAXl2]UI_LTS_DATA 91781-16003 REV.5000 000000 870220.1258 RJE/PCO/RJEXX.MAC::USRA({UI_LTS_DATA }}c.DSTABORT_RDR_JOB ABORT_RDR_QUEUE CATATONIC_PSI CL_WR_RDCNUMD GET_MSG IAND LOG_LINE MOVESTRINGPAS.1 PAS.2 PAS.3 PAS.NONCDSSTART_READERSTRDSC TADDR TRACE_OTHERWISE_TRIMLEN } WAITUQDDA`ptt}(/ ~AApsA}u`spw`s@px(wxAAy .Duy t(7`pZ(>t(S`pZ`S&(G`SbbD//0pS(S`S'(NH(X(S pwASwt(rA[ `Zp~`ZP(dP(k(mA jT~(nA(n q{b s|( d @nTAAXMl3]PSI_RECEIVE 91781-16003 REV.5000 000000 870220.1258 RJE/PCO/RJEXX.MAC::USRA:>PSI_RECEIVE __.LBTCATATONIC_PSI ENTER_TRACE GET_MSG LOG_LINE PAS.1 PAS.2 PAS.3 PAS.NONCDSPSI_READ TADDR TRACE_OTHERWISE_UI_LTS_DATA UNBLOCK_DATA_wwh==` PJ( PK(PL(PFA((6@A(<BC(wC?(  @;AAXV#l4]BAD_REQUEST 91781-16003 REV.5000 000000 870220.1258 RJE/PCO/RJEXX.MAC::USRA5BAD_REQUEST 0PAS.1 PAS.2 PAS.3 PAS.NONCDSDD p~` 4( ` 4P ( `!p~`{(`{P (`"p~`~p`Dd` p(   @KBBXjl4]ABORT_REQUEST 91781-16003 REV.5000 000000 870220.1258 RJE/PCO/RJEXX.MAC::USRB[ABORT_REQUEST ;; BBAD_REQUEST PAS.1 PAS.2 PAS.3 PAS.NONCDSPSI_CNTLREPLY TADDR TRACE_OTHERWISE_;{77@((X` S%`( p ~(X`  Pa(Pb(Pc(6(P` S(`dp ~(X` S&`('`  p Z` S0fp S p ~(X` S'`(/`gp ~(XpZ4Z@(X(XNN~O7##; 7]^` Pi(DP_ (A(Gp ~(N`ep ~(NHApZLZp ~(X(XpZUZ`hp ~(X[N_l\( @PoCBBX_l5]TRACE_REQUEST 91781-16003 REV.5000 000000 870220.1258 RJE/PCO/RJEXX.MAC::USRB NTRACE_REQUEST XXb .MBT.MVWBAD_REQUEST BLANKFILL BLANKPADCLBUF FMPCLOSEIANDOPEN_WRITE_FILE PAS.1 PAS.2 PAS.3 PAS.NONCDSPSI_CNTLREPLY X~~L%<<@((JJ`  pM` pLhU6`V6 PhW6`U6A PhX6`Y6 AQ! $  p ` (+` p ~(J / p ARL@^p : 7S `Mp ~""#<AhZ`[Th\6`W6 P Hp ~N"**O(P    d] f eLG*@l,AAXcl6]STATUS_REQUEST91781-16003 REV.5000 000000 870220.1258RJE/PCO/RJEXX.MAC::USRA)QSTATUS_REQUESTMM .MVWBAD_REQUEST BLANKFILL CL_WR_RD PAS.1 PAS.2 PAS.3 PAS.NONCDSREAD_LTSTADDR TRACE_OTHERWISE_TRIMLEN MS>>@((BA`  p  ` P\(P](P_(&P`(,Pa( Pb(2(8(O(@hV`WA S(@AhV`X T(@hV`YA T(@AhV`Z T(@hV`[A T(@HApP=P`^//Wv> p ~(Bp ~AE p ` pPO P ~UQ/**bR(Zl  3 l  DPRPURDUN*@FBBX:7Wl7]SHUTDOWN_REQUEST91781-16003 REV.5000 000000 870220.1258RJE/PCO/RJEXX.MAC::USRBKSHUTDOWN_REQUESTDD BAD_REQUEST DONE PAS.1 PAS.2 PAS.3 PAS.NONCDSPSI_CNTLREPLY TADDR TRACE TRACE_OTHERWISE_Do55@((H`  PP( PQ(1(A` (`Rp ~(H` S(`TAp ~(HM(`Vp ($$ 7NO` PV(((+` p (0`Sp ~` p (H(I` (=` 995p `Rp ~` p ` p H` p (IHApJFJ`Up ~K9\_L (  @6@@Xl7]SEND_REQUEST91781-16003 REV.5000 000000 870220.1258RJE/PCO/RJEXX.MAC::USR@M|SEND_REQUESTkkx.DST.MPYBAD_REQUEST BLANKPADCLBUF CL_WR_RDGET_MSG LOG_LINE MOVESTRINGPAS.1 PAS.2 PAS.3 PAS.BITMASK1PAS.NONCDSREPLY START_READER STRDSC TRIMLEN kBB@((pD ~J`pu` pt`pw`t(kpzpspv`sPtp{`vI0{Ipv@s ,HH@p{`vO0{Opv`@s@ ,H@ZZ PB00p{`vD0{Dpv`As@p{A S{x YxA ]xprA bxA h 2rvw8s8z(`S(oHH(q|ZDA} (Pu(@l,BBXjl8]ROUTE_REQUEST 91781-16003 REV.5000 000000 870220.1258 RJE/PCO/RJEXX.MAC::USRB3ROUTE_REQUEST }}yF.CBT.DST.ENTR .MBT.MVWBAD_REQUEST BLANKFILL BLANKPADCLBUF CLOSE_FILE FMPPURGE FMPRPPROGRAMNEXT_OUT_FILE OFF_PGM PAS.1 PAS.2 PAS.3 PAS.BLANKFILL PAS.NONCDSREPLY STRDSC}Y TADDR TRACE_OTHERWISE_8W??`@(`p(dAgh6`6(7(A6&¡A ) /p`p`@(6(dp `@6@h6SSg!?((AD  pp`(K(d ApPp`@ɄpYAA ^pAh` `p~S``**A(g6d (( ` P(PΈ(P((l((D(HA p`p~(H`((( Pcl YPRPUUN@ܞ^AAXЕl9]CONFIG_REQUEST91781-16003 REV.5000 000000 870220.1258RJE/PCO/RJEXX.MAC::USRA CONFIG_REQUEST++B.MVWBLANKPADCLBUF PAS.1 PAS.2 PAS.3 PAS.NONCDSREPLY + Hh` p Hp~ ! (Z 3 @@@XEl:]READ_REQUEST91781-16003 REV.5000 000000 870220.1258RJE/PCO/RJEXX.MAC::USR@MREAD_REQUEST00qBAD_REQUEST LURQPAS.1 PAS.2 PAS.3 PAS.NONCDSPSI_READREPLY 0&&@(( A` 5p 8  7@p{& (  @c-<<X<l;]INIT91781-16003 REV.5000 000000 870220.1258RJE/PCO/RJEXX.MAC::USR< &INIT# {{8.DST.MBT.OPSY BLANKFILL CLRQDTACH INIT_TRACELOG_LINELOG_O NO_ABORT_ERROROFF_PGM PAS.1 PAS.2 PAS.3 PAS.BLANKFILL PAS.NONCDSPAS.NUMERICPARMSPNAME RJTAB_LOADSTRDSC{##} TABFILL TADDR TIME_STAMPTRACE_OTHERWISE_ WAIT#\@@Apypz`A(  A JA&JA-4JA9<A >`P~~ @<<(EDJ`(dDLAOARUXD \ P(`(dAcA`p 3il 3p 1r@ 1 p 2zJ 2 `~|EEp 4`p{p GAoߡh6A`6h6`6h6`6Ah6`6A   Jpp|`|CCP(P(ЈP(P(ʀ(p(ۊ`p(`p(`p( pܨC55\Y(Pd@ Y1RDPRPUUN5@!@Z??Xl]CLEANUP 91781-16003 REV.5000 000000 870220.1258 RJE/PCO/RJEXX.MAC::USR? pCLEANUP  }}/.DST.ENTR ABORT_RDR_QUEUE CLOSE_FILECLRQFMPCLOSEFMPPURGEGET_MSG LOG_LINE LURQOFF_PGM PAS.1 PAS.2 PAS.3 PAS.NONCDSPNAME POST_LINE PSI_CNTL REPLY RJTAB_STORE STRDSC} WAIT11|Ap`@|(`@}pArsp1*~AAA(% 7tuA* 7tv/ 5Atv 2`~p~8l;>DAwD ExAI p OyAzzT{ 1Y{ 2 Ap 1 _ 311^ 1`(g `pp~J `|P(k(onHp1 q( P@RSCE d@z>>Xl]RJEXX 91781-16003 REV.5000 000000 870220.1258 RJE/PCO/RJEXX.MAC::USR>''PAS.1 PAS.2 PAS.3 PAS.STOP(RJEXX 'yy ABORT_REQUEST CLEANUP CL_GETCONFIG_REQUESTDRIVER_RETURN EXECINITLOG_D LOG_H LOG_LINEPAS.BLANKFILL PAS.INITIALIZEPAS.NONCDSPAS.TRACECLOSE PSI_RECEIVE PSI_SENDREAD_REQUESTySS ixROUTE_REQUEST SEND_REQUESTSHUTDOWN_REQUEST STATUS_REQUESTTADDR TIME_STAMPTRACE TRACE_CL_BUFTRACE_OTHERWISE_ TRACE_REQUEST SS(MM-A4 &st`vpr`sP( .CBTAPPENDFMPRUNPROGRAM INITIALIZE_STAT_PAS.1 PAS.2 PAS.200 PAS.BLANKFILL PAS.NONCDSRECOVER_BUFFERHPP_&&D PQ&RA ~&Ap}`}(`(D(hS6`T6A R((%NPBO(P@HHXRm4-OUTPUT_RESPONSE_91781-16004 REV.2427 000000 840920.1546/USR/RJE/HP1000/CON.MAC:::3:96:35 Ht)GOUTPUT_RESPONSE_uu.DST.LBTPAS.1 PAS.2 PAS.200 PAS.CLOSEFILE PAS.ENDOFFILE PAS.NONCDS PAS.RANGEINTEGER PAS.READLINE PAS.READSTRINGPAS.RESET_FILEPAS.WRITECHAR PAS.WRITELINE STRDSCTRIMLEN uUBBAKJNIIJ ( /USR/RJE/HP1000/RJTAB.MAC:::4:4:33 A 0RJTAB  @8WFMT.REL::RJE:5:13:127 644 0 0 6400 5300430360 33074 FMT.REL::RJE:5:13:127 $  FMT REL +0+0+0 SFST ,,X$McFMT 91781-16021 REV.2427 <840920.1534>,]]BFMT .NFOP .NFCL .NFIN .NFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN ]ttZ.EIO. .IIO. .FIO. .DTA. .CPM .SIO. .IOOP .IOCL .EXIT .FFRW .FIOI .SBST .SCO.SST.LBT.SBT.IDLP .IBTE .CBTMESSS PNAME .OPSY LURQGETST t ( RR)+<<R wU XgOF, nnnnnn,8,NP,WW882`hD/(((D#D+-`(<h 8WoError on input file open, err#= ;;-3$$AA + H `( @ )O)'`(`h \;Error on output file open, err#=}}-WDDAA % H `(pp`hm # `H88(dp`h~ `(A`h (((hP((p( hP((`3p( }}}8u88hP((`p( hP((p( hP((`3p( hP((`p( hP((`p( hP(Ȉ(`p( hP(Ј(`p( }CC99hP(؈(`p( hP((`p( hP(興(`p( hP((`p( hP((`p( hP((`p( hP(( p(  GGp(pH`h`h   H``(Xp`(Wp`h2 ! `H`(p(A((S(Sp`p`hJ ! `H88(Ap(}};SDD88()(`(@1H(`hk ! H``(Ap((((p`p`h ! H`88(zp((X(t@(p`ph (}~~QIIp`h ! `H88(p`p`h ! `H88(p`p`h ! `H88(`D`@~%%  )P((ig% 4(A)  ee<<NUSEEXkeep unknown 6 old , ##"Ȑ"( *e99(( CB*MLKJIHGFEDATS/!< 9@ÐROUTE.REL::RJE:5:40:128 644 0 0 24000 5300430362 33572 ROUTE.REL::RJE:5:40:128 $( (ROUTE REL +0+0+0(RFST EEXmPAS.GLOBALINFO91781-16023 REV.2540 000000 851016.0826/USR/PTC/ROUTE.MAC:::3:144:35 E@dFFX;mOPEN_HOST_STREAM91781-16023 REV.2540 000000 851016.0826/USR/PTC/ROUTE.MAC:::3:144:35 Fq0OPEN_HOST_STREAM<< .DLD.DSTFMPOPEN PAS.1 PAS.2 PAS.200 PAS.FIXEDSTRING PAS.NONCDS PAS.STRAPPENDPAC<VV,,AJ2A 6A45A8,A6.,.3p0`0P:()`0(!D(%`:p(D((`0p(H(+p0Vp7A`Gp676p`(Dp((4hC 6`@HHH`F`Gppp8 2A8@<<?`8p59hQ&:(P???? P@uPDDXeimTRIM_AND_CAT91781-16023 REV.2540 000000 851016.0826/USR/PTC/ROUTE.MAC:::3:144:35 DEITRIM_AND_CATdd^.DLD.DST.ENTR PAS.1 PAS.2 PAS.200 PAS.NONCDSPAS.STRAPPENDPAC PAS.STRAPPENDSTR PAS.STRDELETE PAS.STRLTRIM PAS.STRPOS PAS.STRRANGER PAS.STRRTRIMdTT`z@f@hp{A \OA{PQAA| ^\SQ \^SAAQ|A%^\TQ .\^T AA8`UOVA =\`Vpy`y(M`hy@p{ M\y{WX VbFFT%%AdZ [b\ZX1 ddbZ`(v`p{ n\{[Pg(sH(uH(xHIF55JAGGpz( #$ ') ,0| ŀ1,5@6UEEXmREAD_HOST_FILE91781-16023 REV.2540 000000 851016.0826/USR/PTC/ROUTE.MAC:::3:144:35 E READ_HOST_FILE(``'.DLD.DST .ENTR .LBT .SBTFMPREAD PAS.1 PAS.2 PAS.200 PAS.NONCDS PAS.SETSTRLEN PAS.STRAPPENDPACPAS.STRPOSPAS.STRRANGER TRIM_AND_CAT`@@@AJ1ppp΀`ΆA@(ǀ`(`(`p#p@`(((P(,(.p`(`p`p`(Npph6(.@FFH@H pAIH` 8͈8(=`pA U _dp`(Apnˀ0A(xބp`(}@(P((p`({{BB`p`p`(pp̀h6@̈́H p䄈` 88ψ(`p AAA Ap̈`P((À׀((n( {''1gA (YZ]tux'@dDDXS4mSET_DEFAULTS91781-16023 REV.2540 000000 851016.0826/USR/PTC/ROUTE.MAC:::3:144:35 DQ&SET_DEFAULTS00u.DLD.DST.MPYPAS.1 PAS.2 PAS.200 PAS.NONCDSPAS.STRAPPENDPAC0CC##AJ(A 0*A+,-JA-JE`3p$p#`2#@/p%-%8#8$(&C!' (aPE*@t:4FFXUm PARSE_OUT_PARAME91781-16023 REV.2540 000000 851016.0826/USR/PTC/ROUTE.MAC:::3:144:35 FmPARSE_OUT_PARAME"``3.DLD.DST.MPYPAS.1 PAS.2 PAS.200 PAS.NONCDSPAS.STR PAS.STRAPPENDPAC PAS.STRAPPENDSTR PAS.STRDELETE PAS.STRLTRIM PAS.STRPOSPAS.STRRTRIM`RRp`p   p`(?AA@p&`@phۄ` 8A >(Z H`@phzRQQ` ZAA`@A@`A kA`A@pAh`AA }`A@@``@ph` `A5 @(`(''(,P E 1*'@7FFXm!SET_UP_PARAMETER91781-16023 REV.2540 000000 851016.0826/USR/PTC/ROUTE.MAC:::3:144:35 F\hSET_UP_PARAMETER\\ {.DLD.DST.MPYPAS.1 PAS.2 PAS.200 PAS.NONCDSPAS.STRAPPENDPAC PAS.STRAPPENDSTR PAS.STRCOMPARE PAS.STRDELETE PAS.STRPOS PAS.STRRANGER \PPp p p `p6ApjA7`@@`AAa alj  $lA aA -m(nc9 op >pP(A(c` (HH`p((JAp  Pqor+`PKKAAj7A Ysj bs(ncm ot rtP(u(` (|H`p((~Ap  qouA qv@p`P(P(P(P((w?JJyqz(w{|(AJwA{}(w~(`pHA((AAcA P((` (`Dp((p  q<<B!!j7 AjJAE (H`p(886( ` D(`p(h<SSKi55(PaE7 acE*S@=EEX m"FIND_USER_CARD91781-16023 REV.2540 000000 851016.0826/USR/PTC/ROUTE.MAC:::3:144:35 E!FIND_USER_CARDEE 5FMPCLOSEPARSE_OUT_PARAME PAS.1 PAS.2 PAS.200 PAS.NONCDSREAD_HOST_FILESET_DEFAULTSSET_UP_PARAMETERE88^A ` D(D @p ` (` P(H((p Hp (8 ( @m-GGXs/m"CREATE_NEW_FILE 91781-16023 REV.2540 000000 851016.0826 /USR/PTC/ROUTE.MAC:::3:144:35 Ga&CREATE_NEW_FILE **wFMPCOPY PAS.1 PAS.2 PAS.200 PAS.FIXEDSTRING PAS.NONCDS*22,A`.pA(  A*"A,$ "$p@`((&2X'( @J FFX4m#CHAIN_NEXT_PROCE91781-16023 REV.2540 000000 851016.0826/USR/PTC/ROUTE.MAC:::3:144:35 F`CHAIN_NEXT_PROCEPYY W.DLD.DSTFMPRUNPROGRAM PAS.1 PAS.2 PAS.200 PAS.FIXEDSTRING PAS.NONCDS PAS.STRAPPENDPAC PAS.STRAPPENDSTR PAS.STRCOMPARE PAS.STRRPTY[[A ^A (]`  A A % .AA AA <A BAJA3 KO^SX^Dp` a[(]( 88 (IL, O PE^`  3RU, 8@QBBX m$ROUTE 91781-16023 REV.2540 000000 851016.0826 /USR/PTC/ROUTE.MAC:::3:144:35 B((FPAS.1 vPAS.2 >PAS.200 APAS.STOP(ROUTE (||/K.DLD.DSTCHAIN_NEXT_PROCECREATE_NEW_FILE EXECFIND_USER_CARDGET_FILE_NAME OPEN_HOST_STREAM PAS.CLOSEFILE PAS.INITFILE PAS.INITIALIZEPAS.NONCDSPAS.SREADAOCPAS.STRAPPENDPACPAS.STRAPPENDSTR|++H;PAS.STRRTRIMPAS.SWRITEAOC PAS.SWRITEINT PAS.TRACECLOSE XLUEX +d(XX -L 5MNOPpDpD`(D`(AAAQ 9AMlnSQVnAlSTAA c`pVWAepnWkpXWYtrpW`(`p r \[SSA[Or \O` p 8(-`P (P ވ(P (P (P ((AAY Atr]t^]Yrt](-Y tAr_t`_AAYArtA_(-YAA traa]]AtAbaYAArta(-AAY AtrctdcYrtc(-Y tAre tfeAAYArtAe(-YAA trg$thgY-rtgp @}0]]7r i^ZO` p 8`p Aj^A GQQI LkOPkbl puvwxy{~ 9 c ***USER ROapadapd DEST= PARM= CHAIN=ROUTE errokk4NNr on Bad RJE parameter Bad //*USER card parameterNon type 3 file DEST= parameter not found Duplicate Parameter USEROUT : FMP error Undetermined err or k @(( exit less lda =d-1 ; Less exit  end DDD63.REL::RJE:5:4:128 644 0 0 2000 5300430363 32737 DDD63.REL::RJE:5:4:128 $ 0DDD63 REL +0+0+0FST NQEDDD63,TX:17,DT:63B 0APA;;X 8X:]DDD63 91781-16030 REV.4010 <860624.1526> RJE/R4010/DDD63.MAC::USR; DDD63 JJmU$DV12 $DV13 $DV15 $DV16 $DV17 $DV18 $DV19 $DV21 $DV22 $DV5$DV6$DV7$IF6 $IFSZ $IFTX J*WGGp@ImqqH`u(pDtPt@(" D H(pP~(0P}(DP|(,(HH((0(HPr(4(H z @  H@ (: HH Hv(I@@ kk>G>>@ H`t zhXt0{Xx0y (\0wDH{@(j(jH@0sH(q`u(q88CE ?@k@`~6e搮浮ӮM  C묀ӬD浬 搫e6|Wɫ9匫!M ɫ䆫C!㿫9〫WC| ֫⧬ |DW9!C M!9W|6⧯e֯ CAMERI.REL::RJE:5:4:127 644 0 0 2000 5300430365 33263 AMERI.REL::RJE:5:4:127 $ 4AMERI REL +0+0+0FST FFXt6AMERICAN91781-16200 REV.2427 <840920.1537>/USR/RJE/HP1000/LANGUAGE/AMERI.MAC:::3:24:38 FaeAS2EB EB2AS r``7-./% <=2&?'@Z{[lP}M]\Nk`Kaz^L~no|໺myjС !"#$()*+, 01345689:;>AdbtrsvwO_hHiIJ```BREQDTCSgVGUpcXqWYefFuxϭʷ    .<(+&!$*);-/ء|,%_>?ܤ妧`:#@'="WWY@@abcdefghijklmnopqrӺ~stuvwxyz[^]{ABCDEFGHI}JKLMNOPQR\STUVWXYZ0123456789ۭW@;ZL 0, 0, buffer1, -receive_length, t1,CANAD.REL::RJE:5:4:127 644 0 0 2000 5300430367 33204 CANAD.REL::RJE:5:4:127 $ 8CANAD REL +0+0+0FST JJX]6%CANADIAN_FRENCH 91781-16201 REV.2427 <840920.1537>/USR/RJE/HP1000/LANGUAGE/CANAD.MAC:::3:24:38 JaeAS2EB EB2AS r``7-./% <=2&?'@Z{[lP}M]\Nk`Kaz^L~no|໺myjС !"#$()*+, 01345689:;>AdbtrsvwO_hHiIJ```BREQDTCSgVGUpcXqWYefFuxϭʷ    .<(+&!$*);-/ء|,%_>?ܤ妧`:#@'="WWY@@abcdefghijklmnopqrӺ~stuvwxyz[^]{ABCDEFGHI}JKLMNOPQR\STUVWXYZ0123456789ۭW@mu5DANIS.REL::RJE:5:4:127 644 0 0 2000 5300430370 33317 DANIS.REL::RJE:5:4:127 $ <DANIS REL +0+0+0FST EEX=6/DANISH91781-16202 REV.2427 <840920.1537>/USR/RJE/HP1000/LANGUAGE/DANIS.MAC:::3:24:38 EaeAS2EB EB2AS -``7-./% <=2&?'@OJglP}M]\Nk`Kaz^L~no_mypG !"#$()*+, 01345689:;>AdbtrsvwhHiIZ```BREQDTCS̡[V|{UjcXqWYefFuxϭʷ    }#.<(+!&޺*);^-/ء$,%_>?|ܤ妧`:'="WW@@@abcdefghijklmnopqr{[]stuvwxyzABCDEFGHIJKLMNOPQR~\STUVWXYZ0123456789ۭW@[RIGHTS * !!* RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, * !!* REPRODUCED, OR TRANSLATED TO ANOTHER PROGRAMDUTCH.REL::RJE:5:4:127 644 0 0 2000 5300430372 33373 DUTCH.REL::RJE:5:4:127 $ @DUTCH REL +0+0+0FST EEX&67DUTCH 91781-16203 REV.2427 <840920.1537>/USR/RJE/HP1000/LANGUAGE/DUTCH.MAC:::3:24:38 EaeAS2EB EB2AS r``7-./% <=2&?'@Z{[lP}M]\Nk`Kaz^L~no|໺myjС !"#$()*+, 01345689:;>AdbtrsvwO_hHiIJ```BREQDTCSgVGUpcXqWYefFuxϭʷ    .<(+&!$*);-/ء|,%_>?ܤ妧`:#@'="WWY@@abcdefghijklmnopqrӺ~stuvwxyz[^]{ABCDEFGHI}JKLMNOPQR\STUVWXYZ0123456789ۭW@>% end;  $include '[TRDCT'$ $include '[PSI63'$ $include '[TFCOM'$ $include '[TRACE'$   ENGLI.REL::RJE:5:4:127 644 0 0 2000 5300430374 32764 ENGLI.REL::RJE:5:4:127 $ DENGLI REL +0+0+0FST FFX=7ENGLISH 91781-16204 REV.2427 <840920.1537>/USR/RJE/HP1000/LANGUAGE/ENGLI.MAC:::3:24:38 FaeAS2EB EB2AS ``7-./% <=2&?'@Z{JlP}M]\Nk`Kaz^L~no|໺myjм !"#$()*+, 01345689:;>AdbtrsvwO_hHiI[?```BREQDTCSgVGUpcXqWYefFuxϭʷ    $.<(+&!*);-/ء|,%_>?ܤ妧`:#@'="WW4+@@abcdefghijklmnopqrӺstuvwxyz[^]~{ABCDEFGHI}JKLMNOPQR\STUVWXYZ0123456789ۭW@de '[INCTL'$  { begin DCTF1 source text }  procedure file_check (index: integer); $direct$var string: packed arFINNI.REL::RJE:5:4:127 644 0 0 2000 5300430376 33025 FINNI.REL::RJE:5:4:127 $ HFINNI REL +0+0+0FST FFXN7FINNISH 91781-16205 REV.2427 <840920.1537>/USR/RJE/HP1000/LANGUAGE/FINNI.MAC:::3:24:38 FaeAS2EB EB2AS /``7-./% <=2&?'@OcglP}M]\Nk`Kaz^L~noq_mQCG !"#$()*+, 01345689:;>AdbtrsvwhHiIZJN```BREyDTSj[VUp{X|WYefFuxϭʷ    {}.<(+!&`޺*);^-/#$,%_>?\妧:'="WW7@@abcdefghijklmnopqr]stuvwxyz[ABCDEFGHI|JKLMNOPQR~ܟSTUVWXYZ@0123456789ۭW@U\t 'F': input_sub_id := 0;  END; { Case } END; { Force EOF on reader devicFRENC.REL::RJE:5:4:127 644 0 0 2000 5300430407 31437 FRENC.REL::RJE:5:4:127 $ LFRENC REL +1+1+1FST ((EEX$7FRENCH91781-16206 REV.2427 <840920.1538>/USR/RJE/HP1000/LANGUAGE/FRENC.MAC:::3:24:38 EaeAS2EB EB2AS ``7-./% <=2&?'@O[lP}M]\Nk`Kaz^L~noDH_mQT !"#$()*+, 01345689:;>AdbtrsvwyJhiI{Z```BRE|jCSgVGUpcXqWYefFuxϭʷ    @\.<(+!&{}޽$*);^-/ء,%_>?ܤ妧:'="WW^@@abcdefghi[jklmnopqrӺ`stuvwxyz#]~ABCDEFGHIJKLMNOPQR|STUVWXYZ0123456789ۭW@Nmtemp_lu[1] := 6; temp_lu[2] := 0;   { xluex(2, log_lu, 'DCTF1 running.', -13); }   opsy(os_type,dGERMA.REL::RJE:5:4:127 644 0 0 2000 5300430411 31452 GERMA.REL::RJE:5:4:127 $ PGERMA REL +1+1 +1 FST EEX57$GERMAN91781-16207 REV.2427 <840920.1538>/USR/RJE/HP1000/LANGUAGE/GERMA.MAC:::3:24:38 EaeAS2EB EB2AS R``7-./% <=2&?'@O{[lP}M]\Nk`Kaz^L~noc_myCY !"#$()*+, 01345689:;>AdbtrsvwhHiI|```BREQDTSjgVGUpJXZqWefFuxϭʷ    {.<(+!&~$*);^-/[,%_>?ܤ妧`:#'="WW3@@abcdefghijklmnopqrӺstuvwxyz@ABCDEFGHI|JKLMNOPQR}ڟSTUVWXYZ\0123456789]W@nݍs, dccmd_cl_index );  load( tf_input_class, dctf1_cl_index );  load( mrfil_class, mrfil_cl_index );  ITALI.REL::RJE:5:4:127 644 0 0 2000 5300430413 31522 ITALI.REL::RJE:5:4:127 $ TITALI REL +1 +1 +1 FST FFXZ7.ITALIAN 91781-16208 REV.2427 <840920.1538>/USR/RJE/HP1000/LANGUAGE/ITALI.MAC:::3:24:38 FaeAS2EB EB2AS ``7-./% <=2&?'@O[lP}M]\Nk`Kaz^L~noHQ_m݁DTX !"#$()*+, 01345689:;>AdbtrsvwJhiI{|M```BREZjyCSgVGUpcqWYefFuxϭʷ    {\.<(+!&]}~$*);^-/ء,%_>?ܤ妧:'="WWK2@@abcdefghi[jklmnopqrӺstuvwxyz#@ABCDEFGHI|JKLMNOPQR`STUVWXYZ0123456789ۭW@ { if (os_type = -45) AND (input_msg_id <> 61) then begin }# { if (os_type = -17) and (input_msg_id <> 61) then begNORWE.REL::RJE:5:4:127 644 0 0 2000 5300430415 31655 NORWE.REL::RJE:5:4:127 $ XNORWE REL +1 +1 +1  FST GGXc8NORWEGIAN 91781-16209 REV.2427 <840920.1538>/USR/RJE/HP1000/LANGUAGE/NORWE.MAC:::3:24:38 GaeAS2EB EB2AS -``7-./% <=2&?'@OJglP}M]\Nk`Kaz^L~no_mypG !"#$()*+, 01345689:;>AdbtrsvwhHiIZ```BREQDTCS̡[V|{UjcXqWYefFuxϭʷ    }#.<(+!&޺*);^-/ء$,%_>?|ܤ妧`:'="WW@@@abcdefghijklmnopqr{[]stuvwxyzABCDEFGHIJKLMNOPQR~\STUVWXYZ0123456789ۭW@sbuffer1.psi.head.data_type, six_str);  FOR i := 1 TO 6 DO  out_str[i+24] := six_str[i];  PORTU.REL::RJE:5:4:127 644 0 0 2000 5300430417 31754 PORTU.REL::RJE:5:4:127 $ \PORTU REL +1+1+1&FST GGXz8 PORTUGUESE91781-16210 REV.2427 <840920.1538>/USR/RJE/HP1000/LANGUAGE/PORTU.MAC:::3:24:38 GaeAS2EB EB2AS *``7-./% <=2&?'@Of[lP}M]\Nk`Kaz^L~noJhZ_myFϾH !"#$()*+, 01345689:;>AdbtrsvwлiIn4```BREQDTCSgVGUpcXqWYe{ux|jʷ    {~[.<(+!&]$*);^-/ء#\,%_>?ܤ妧`:'="WWp@@abcdefghijklmnopqrӺstuvwxyz}ABCDEFGHI|JKLMNOPQRSTUVWXYZ@0123456789ۭW@ ?Z<<<<<<<<< END OF TRACE BLOCK >>>>>>>>>>>>>>>>>>>>>>>>>>>>>> } '   if t_cntl[tr_input,tr_get] then beginSPANI.REL::RJE:5:4:127 644 0 0 2000 5300430421 31631 SPANI.REL::RJE:5:4:127 $ `SPANI REL +1+1+1,FST FFX^8SPANISH 91781-16211 REV.2427 <840920.1538>/USR/RJE/HP1000/LANGUAGE/SPANI.MAC:::3:24:38 FaeAS2EB EB2AS e``7-./% <=2&?'@i[lP}M]\Nk`Kaz^L~no|JZmyIн !"#$()*+, 01345689:;>AdbtrsvwO_hH{j1m```BREQDTCSgVGUpcXqWYefFuxϭʷ    |[.<(+&]$*);-/ء#,%_>?ܤ妧`:@'="WWf@@abcdefghijklmnopqrӺstuvwxyz^!~{ABCDEFGHI}JKLMNOPQR\STUVWXYZ0123456789ۭW@t } " end;  tfcl_cntl : case input_sub_id of  tfcl_cntl_config SWEDI.REL::RJE:5:4:127 644 0 0 2000 5300430422 31653 SWEDI.REL::RJE:5:4:127 $ dSWEDI REL +1+1+12FST FFXh8 SWEDISH 91781-16212 REV.2427 <840920.1538>/USR/RJE/HP1000/LANGUAGE/SWEDI.MAC:::3:24:38 FaeAS2EB EB2AS /``7-./% <=2&?'@OcglP}M]\Nk`Kaz^L~noq_mQCG !"#$()*+, 01345689:;>AdbtrsvwhHiIZJN```BREyDTSj[VUp{X|WYefFuxϭʷ    {}.<(+!&`޺*);^-/#$,%_>?\妧:'="WW7@@abcdefghijklmnopqr]stuvwxyz[ABCDEFGHI|JKLMNOPQR~ܟSTUVWXYZ@0123456789ۭW@\v{6fcl_resume : in_resume( id_to_index( input_sub_id ));} '# tfcl_prompt : read_next_record( input_sub_id )((KATAK.REL::RJE:5:4:127 644 0 0 2000 5300430424 31615 KATAK.REL::RJE:5:4:127 $ hKATAK REL +1+1+18FST FFX~78KATAKANA91781-16213 REV.2427 <840920.1538>/USR/RJE/HP1000/LANGUAGE/KATAK.MAC:::3:15:38 FaeAS2EB EB2AS 4``7-./% <=2&?'@O{[lP}M]\Nk`Kaz^L~no|JZ_myYbcdefghivwxpqrsutjС !"#$()*+, 01345689:;>WABCDEFGHIQRSTUVX֭```    [.<(+!&a]$*);^-/bcdefghi|,%_>?npqrutjkl`:#@'="WW@@movsw~yzx{ABCDEFGHI}JKLMNOPQR\STUVWXYZ0123456789W@ ) end;   lu_open: begin {LU open from DCCMD} ' dummy := lock_lu ( inpNATIV.REL::RJE:5:4:127 644 0 0 2000 5300430426 31742 NATIV.REL::RJE:5:4:127 $ lNATIV REL +1+1+1>FST HHX~8&NATIVE_3000 91781-16214 REV.2427 <840920.1538>/USR/RJE/HP1000/LANGUAGE/NATIV.MAC:::4:15:38 HaeAS2EB EB2AS m``7-./% <=2&?'@O{[lP}M]\Nk`Kaz^L~no|JZ_myjС !"#$()*+, 01345689:;>ABCDEFGHIQRSTUVWXYbcdefghipqrstu4```vwx    [.<(+!&]$*);^-/|,%_>?`:#@'="WWV@@abcdefghijklmnopqr~stuvwxyz{ABCDEFGHI}JKLMNOPQR\STUVWXYZ0123456789W@hen {=0 for download, abort }!' if devices.list[ i ].state.bit[ d_state_eof_wait ] ' DDV63.REL::RJE:5:2:95 644 0 0 1000 5300430430 31353 DDV63.REL::RJE:5:2:95 $ p_DDV63 REL +1+1+1DFST @@Xk-6 DDV63 91781-16777 REV.2427 <840920.1534>/USR/RJE/HP1000/DDV63.MAC:::4:22:35 @ DDV63 __--( ( %P%( ,0+*P)(P'((h( (`&CE@3_@W end until input_msg_id = tfcl_quit;   if trace_state  THEN twrit(tdcb,zero,0,0,deallocate_class);# RJE.HELP::RJE:4:5:39 644 0 0 2400 5300430432 31204 RJE.HELP::RJE:4:5:39 $ t'RJE HELP+1+1+1VHFST & 91781-17000 REV.2427 <840920.1534>&"RJE -- Operation and control of the RJE (Remote Job Entry) subsystem. " Usage: RJE   RJE STATUS & RJE SEND ,[, ... ,[]]..] & RJE TRACE  RJE ROUTE [] RJE CLOSE [NOW] RJE ABORT   n subsystem reference number sec subsystem security code  file1..n data files to be transmitted (n <= 8) mode1..n Binary/Ascii selection for each file monitor control trace option bit map for RJExx PSI control trace option bit map for PSI logfile file where log & trace data will be written  device logical output device ('PR'/'PU'/'UN')$ filemask the first characters of an output queue file sequence $ postprocessor output postprocessor type-6 file abort_option 'CUrrent', 'QUeue', or 'REceive'RJE.CMD::RJE:4:5:39 644 0 0 2400 5300430443 31051 RJE.CMD::RJE:4:5:39 $ |'RJE CMD +1!+1#+1#c$PFST * 91781-17001 REV.5000 <870219.1102> * set log = on* * * Run String for CI (RTE-A): 'TR,RJE.CMD' * Run String for CI (RTE-6): 'TR,RJE.CMD,6' * "* WARNING !!! This transfer file assumes that PASCAL.LIB is in the "#* current directory or ::LIBRARIES. It may be necessary #"* to copy PLIBN.REL to one of the above directories as "* PASCAL.LIB.* &***************************************************************************** &* * Link the programs * link rje.lod rje.run::programs +ro rjelb.lib $fmp$1 rje.rellink rje.lod con.run::programs +ro rjelb.lib $fmp$1 con.rel link rje.lod route.run::programs +ro $fmp$1 route.rel * !* For character sets other than HP-native, replace 'native.rel' !* with the appropriate native language support module.* $link rje.lod rinit.run::programs +ro rjelb.lib $fmp$1 rinit.rel nativ.rel $&link rje.lod rjexx.run::programs +ro rjelb.lib $fmp$1 rjexx.rel nativ.rel +su &* * Install help file * co rje.help rje::help d * * Install PSI download file* co rje.dat @.@::system d * * Done ! STD3780.TXT::RJE:4:8:38 644 0 0 4000 5300430445 32075 STD3780.TXT::RJE:4:8:38 $ &STD3780 TXT +1$+1%+1%XFST %STD3780.TXT 91781-17002 REV.2427 RJE-II Example Configuration File %NOECHO ,(2) echo during init1 ,(3) subsystem number ,(4) subsystem password RJEXX ,(5) subsystem monitor file name 30 ,(6) PSI read LU 31 ,(7) PSI write LURJE.DAT::SYSTEM ,(8) PSI download file name3780 ,(9) workstation typeSLAVE ,(10) workstation mode MO ,(11) modem connect type 240 ,(12) modem connect timeoutHALF ,(13) duplex "216 ,(14) nontransparent blocking factor "!6 ,(15) transparent blocking factor!512 ,(16) block size 80 ,(17) maximum record size240 ,(18) inactivity timeout 7 ,(19) retry limit!NO ,(20) don't append trailing blanks !YES ,(21) generate WACK/TTD0 ,(22) Monitor trace control0 ,(23) PSI trace control/SYSTEM/RJE/RJELOG P ,(24) system log file/USR/PAYROLL/PRDATA ,(25) printer outpu((t file mask /USR/PAYROLL/VFC/CHECKS.RUN ,(26) printer postprocessorUSR/CADCAM/SCHEMATIC ,(27) punch output file mask USR/CADCAM/PHOTOPLOT.RUN ,(28) punch postprocessor RS::17 ,(29) unrouted output file mask /PROGRAM/SPOOL_RJE_MSGS.RUN ,(30) unrouted postprocessor  /*SIGNON REMOTEnn sza,rss any errors?  jmp ld.exit.3 no and =b77 mask error code number RJE.LOD::RJE:4:1:25 644 0 0 400 5300430446 31025 RJE.LOD::RJE:4:1:25 $ RJE LOD +1%+1&+1&Y bFST * RJE.LOD 91781-17003 REV.5000 <870220.1033>* * RJE-2 link command file * * IF,A,PC,31,0* LI,PASCAL.LIB * END CON.PAS::RJE:4:40:38 644 0 0 24000 5300430451 31714 CON.PAS::RJE:4:40:38 $( (&CON PAS +1(+1)+1)(fFST $PASCAL ',4,109 91781-16004 REV.2427 000000'$  $RECURSIVE OFF$ $HEAP 0$ { NAME: CON.PAS SOURCE: 91781-18004 RELOC: 91781-16004 PGMR: N.N.  PURPOSE: RJE Console Service Routine  DATE: <840920.1534> }  PROGRAM con; {  This source file provides a simple example of controlling RJE/1000 II through programmatic EXEC and FMP calls. It is an installation-specific implementation of a "console" function. Although the 2780/3780 workstation definition does ! not include an operator's console, the function can be simulated ! by placing a host (i.e. JES2) command in a file, sending the  file to the host with "RJE SEND", and retrieving the resulting  output file.   Data may arrive asynchronously from the host at any time. In order to capture the correct output file, this program waits until the reader queue is empty and the link is idle  before issuing the SEND request. It then polls the printer  file assignment until it increments (indicating that a file has returned) and assumes that this file is the command response. Note that this approach is not necessarily valid  if link traffic is heavy. } LABEL 99;  TYPE { primitive types }  integer = -32768..32767;  dbl_int = -2147483648..2147483647;  byte = 0..255;  xlu_arr = array[1..2] OF integer; string_descriptor = dbl_int;  rmpar_type = array[1..5] OF integer; string80 = packed array[1..80] OF char;  $page$ "{ For programmatic RJE status calls, there are three possible buffer" formats... } TYPE# device_status = record { description of a virtual device } # header: integer; {HP internal use only} file_num: integer; {file sequence number} # rec_num: integer; {number of records in file}# q_file: string80; {output file name} " pgm_file: string80; {post-process type 6 file} " reserved: integer; {HP internal use only} $ class: integer; {assigning program's class #}$ open_time: dbl_int; {$TIME of last open}  close_time: dbl_int; {$TIME of last close} END;  TYPE monitor_config = record { RJExx configuration data }  monitor_num: integer; {subsystem number}  monitor_sec: integer; {security code} lu_r: xlu_arr; {PSI read LU} lu_w: xlu_arr; {PSI write LU}  linktype: integer; {2780 or 3780}  maxblock: integer; {max block size}  maxrec: integer; {max record size} truncate: integer; {0= append}# host_id: string80; {config file comment string} #! log_file: string80; {current log-file name}! END;  TYPE link_statistics = packed record { PSI data }  header : dbl_int; {HP internal use only}  brdtype : byte; {this is rje firmware}  linkstat : byte; {link status} revcode : integer; {revision code} lts_file : integer; {files sent (Etx's Ack'd)}  lts_gr : integer; {garbled responses} lts_rt : integer; {receive time-outs} lts_nakr : integer; {naks received} lts_bbr : integer; {bad blocks received}" lts_bsr : integer; {blocks successfully received} " lts_bss : integer; {blocks successfully sent} END; TYPE status_response_type = record CASE integer OF 0: (LS: link_statistics); 1: (DV: device_status); 2: (MC: monitor_config);  END; $page$ CONST status_response_length = -89;  comma = ','; reader_stat = 'RD'; printer_stat = 'PR'; link_stat = 'LS';  idle = 4;  temp_file_name = 'rjtemp::0';  ascii_specifier = 'A'; VAR temp_file, output_file, userin, userout : text;  length, error : integer;& run_string, runname, jes_command, current_printer_file, line : string80;& passwd, n : string80; parms : rmpar_type;  sd_runstring, sd_runname : string_descriptor;  status_buf : status_response_type; $page$ PROCEDURE exec14( ecode, rcode : integer; VAR buffer : status_response_type;  length : integer);  $ALIAS 'exec'$ EXTERNAL; PROCEDURE recover_buffer(VAR buff : status_response_type); BEGIN exec14(14,1,buff,status_response_length);  END;  FUNCTION StrDsc80(buff : string80; start, n : integer) : string_descriptor; $ALIAS 'StrDsc'$ EXTERNAL;  FUNCTION TrimLen(sd : string_descriptor) : integer;  EXTERNAL;   PROCEDURE append (VAR destination : string80; source : string80); VAR d_len, s_len, ptr : integer;BEGIN  d_len := TrimLen(StrDsc80(destination,1,80)); s_len := TrimLen(StrDsc80(source,1,80)); " for ptr := 1 to s_len DO destination[d_len+ptr] := source[ptr];"END; PROCEDURE initialize_stat_runstring; $DIRECT$ BEGIN  run_string := 'RU,RJE,STAT,'; append(run_string,n);  append(run_string,comma); append(run_string,passwd);  append(run_string,comma);END; PROCEDURE initialize_send_runstring; $DIRECT$ BEGIN  run_string := 'RU,RJE,SEND,'; append(run_string,n);  append(run_string,comma); append(run_string,passwd);  append(run_string,comma); append(run_string,temp_file_name);  append(run_string,comma); append(run_string,ascii_specifier);END; FUNCTION FmpRunProgram( runstring : string_descriptor;  VAR parms : rmpar_type;" VAR runname : string_descriptor) : integer;" EXTERNAL;  $page$ PROCEDURE set_up_string_descriptors; $DIRECT$  BEGIN sd_runname := StrDsc80(runname,1,80); sd_runstring := StrDsc80(run_string,1,80);  END;  PROCEDURE get_user_inputs; $DIRECT$  BEGIN reset(userin,'1'); rewrite(userout,'1');  prompt(userout,'Subsystem number? '); readln(userin,n);  prompt(userout,'Security code? ');  readln(userin,passwd);  prompt(userout,'Host command? '); readln(userin,jes_command); END;  PROCEDURE create_temp_file; $DIRECT$ BEGIN  rewrite(temp_file,temp_file_name,'NOCCTL'); writeln(temp_file,jes_command); close(temp_file);  END;  PROCEDURE wait_until_reader_is_idle; $DIRECT$  BEGIN initialize_stat_runstring;  append(run_string,reader_stat); REPEAT  BEGIN error := FmpRunProgram(sd_runstring,parms,sd_runname); IF (error <> 0) or (parms[1] <> 0) THEN GOTO 99; recover_buffer(status_buf);  END UNTIL status_buf.dv.file_num = 0; END;  PROCEDURE wait_until_link_is_idle; $DIRECT$  BEGIN initialize_stat_runstring;  append(run_string,link_stat); REPEAT  BEGIN error := FmpRunProgram(sd_runstring,parms,sd_runname); IF (error <> 0) or (parms[1] <> 0) THEN GOTO 99; recover_buffer(status_buf);  END UNTIL status_buf.ls.linkstat = idle; END;  ((PROCEDURE get_current_printer_filename; $DIRECT$ BEGIN initialize_stat_runstring;  append(run_string,printer_stat);  error := FmpRunProgram(sd_runstring,parms,sd_runname);  IF (error <> 0) or (parms[1] <> 0) THEN GOTO 99;  recover_buffer(status_buf); current_printer_file := status_buf.dv.q_file; END;  PROCEDURE send_console_command; $DIRECT$ BEGIN initialize_send_runstring;  error := FmpRunProgram(sd_runstring,parms,sd_runname);  IF (error <> 0) or (parms[1] <> 0) THEN GOTO 99;  END;  PROCEDURE wait_until_job_received; $DIRECT$  BEGIN REPEAT  BEGIN initialize_stat_runstring; append(run_string,printer_stat); error := FmpRunProgram(sd_runstring,parms,sd_runname); IF (error <> 0) or (parms[1] <> 0) THEN GOTO 99; recover_buffer(status_buf);  END UNTIL current_printer_file <> status_buf.dv.q_file; END;  PROCEDURE output_response_to_terminal; $DIRECT$  VAR c_pos : integer;  BEGIN reset(output_file,current_printer_file);  WHILE not eof(output_file) DO BEGIN readln(output_file,line); $ length := TrimLen(StrDsc80(line,1,80)); { skip first two chars }$ for c_pos := 3 to length DO  write(userout,line[c_pos]); writeln(userout);  END;  close(output_file);  END;  $page$  BEGIN { main }  set_up_string_descriptors; get_user_inputs; create_temp_file;  wait_until_reader_is_idle; wait_until_link_is_idle; get_current_printer_filename;  send_console_command;  wait_until_job_received; output_response_to_terminal; 99: { Jump here for error exit. }  IF (error <> 0) OR (parms[1] <> 0) THEN writeln(userout,'Error encountered.'); END . FMT.FTN::RJE:4:43:39 644 0 0 25400 5300430453 32142 FMT.FTN::RJE:4:43:39 $+ +'FMT FTN +1*+1++1++FST FTN77,Q C C NAME: FMT.FTN C SOURCE: 91781-18021C RELOC: 91781-16021 C PGMR: M.H.T. C PURPOSE: Example Post-processor C DATE: <840920.1534>C $ALIAS OPSY = '.OPSY',DIRECT$FILES 0,2 PROGRAM fmt(),91781-16021 REV.2427 <840920.1534>* %* This is an example postprocessor program for the RJE/1000-II product. %$* FMT is an IBM-compatible pretty-printer that takes the output file$* from RJE then formats and prints it on the printer. * !* FMT formats the text for a print window that is 60 lines long !#* (page_len), 132 columns wide (page_wid), has a 3 line top margin##* (page_head), and a 3 line bottom margin (page_tail). These values #!* are set in the PARAMETER statement below and can be changed.!* * The output destination is determined by two statements. The #* first is the DATA statement for luary (LU array). This sets luary #"* to LU 6. The other statement is the first OPEN statement (with"$* FILE equal to '6'). These two statements set the printer LU number. $* #* FMT also implements a virtual carriage control tape. In the DATA##* statements for the tape array below, any 1 in a bit position 0-11 ##* is interpreted as a hole in the carriage control tape. Currently#* the virtual tape is set only for the form-feed character. * *********************************************************** * VARIABLES:* * Line_cnt is the count of lines printed. * Page_len and page_wid are the length and width of the  * print window. * Page_head and page_tail determine the number of lines  * between pages. "* String and buffer are for finding and using the input filename. "* Line is the record read from the data file. * Esc is the escape character.!* Tape is the array of numbers (specified in octal in the DATA!* statements) that are the carriage control tape.* Luary is the printer LU number. * Track is the track number to skip to. "* Skip is the number of lines to skip (when not using the tape)."* Ios is the IO status or error code. *  CHARACTER esc, string*40, line*200 INTEGER page_len, page_wid, luary(2), page_head, page_tail " PARAMETER (page_len=60, page_wid=132, page_head=3, page_tail=3) "" INTEGER buffer(40), ios, line_cnt, tape(page_len), track, skip" INTEGER mesbuf(8),opsy EQUIVALENCE (buffer, string)* ***********************************************************  * INITIALIZATIONS: * * Initialize the variable line_cnt. * DATA line_cnt / 1 / * * Initialize the variable luary to the printer LU number. * DATA luary(1) / 6 / * !* Initialize the virtual carriage control tape. Currently only!%* the form-feed character is in place (in track 1). A one means a hole%* (an active location in the tape). *  DATA tape(1) / Z'0001' / DATA (tape(i),i=2,page_len)/ 59*Z'0000' / !59=page_len-1 * !* Initialize the string variable with blanks to avoid problems!#* with odd byte-length filenames. FORTRAN needs a terminating blank # * at the end of the filename in the open statement. This data * statement insures a blank will follow the filename. * DATA string / ' ' / * * Initialize RTE-6 MESSS buffer *  DATA mesbuf/16HOF, nnnnnn,8,NP,/* * Initialize the escape character.* esc = char(27) * *********************************************************** * OPEN INPUT AND OUTPUT:* %* Get the input filename from the parameters, it is the only parameter. %'* Then correct for (remove) the possible comma on the end of the filename.'*  CALL getst(buffer, -80, ios) IF (string(ios:ios) .EQ. ',') THEN string(ios:ios) = ' '  ENDIF * !* Now try to open the file, if there is a file open error then! * abort the program. *  OPEN (UNIT=200, FILE=string, IOSTAT=ios, STATUS='old') IF (ios .NE. 0) THEN  WRITE (1,*) 'Error on input file open, err#=', ios  GOTO 9999  ENDIF * #* Lock and open the printer LU number as the output file. If there#* is an error then abort the program. *  CALL lurq (000001b, luary) OPEN (UNIT=201, FILE='6', IOSTAT= ios, STATUS='unknown') IF (ios .NE. 0) THEN  WRITE (1,*) 'Error on output file open, err#=', ios GOTO 9999  ENDIF * ***********************************************************  * PROCESS THE FILE: * $* Write the top margin of the first page to the printer. The specific $$* device driver-printer combination that this was written for prints$$* two blank lines at the top of the first page printed. The minus two $* compensates for this help.*  DO i=1, (page_head-2), 1 WRITE (UNIT=201, FMT=10) ' '  ENDDO * %* The read loop. Read a line, translate the escape sequences to either%%* number of lines to skip or track of carraige control tape to skip to. %#* Then print the line with vertical spacing suppressed. Use single#%* line spacing to do vertical format according to the escape sequences. %%* The exit from the loop is via the END condition in the READ statement % * (exit to label 100). * * *****START OF READ LOOP****** DO WHILE (.TRUE.) ! track = 0 !Reset track number. !" READ (UNIT=200, FMT=10, END=100) line !On eof goto line 100"* $* Translate the escape sequences into skip amounts or track numbers.$#* The comments to the right show the IBM standard for the 3780 type # * remote unit. *  IF (line(1:1) .EQ. esc) THEN " IF (line(2:2) .EQ. '/') THEN !esc/ then single space " skip = 1 " ELSE IF (line(2:2) .EQ. 'S') THEN !escS then double space " skip = 2 " ELSE IF (line(2:2) .EQ. 'T') THEN !escT then triple space " skip = 3 " ELSE IF (line(2:2) .EQ. 'A') THEN !escA then skip track1" track = 1 $ ELSE IF (line(2:2) .EQ. 'B') THEN !escB then skip on track 2$ track = 2 % ELSE IF (line(2:2) .EQ. 'C') THEN !If escC then skip on track 3 % track = 3 % ELSE IF (line(2:2) .EQ. 'D') THEN !If escD then skip on track 4 % track = 4 % ELSE IF (line(2:2) .EQ. 'E') THEN !If escE then skip on track 5 % track = 5 % ELSE IF (line(2:2) .EQ. 'F') THEN !If escF then skip on track 6 % track = 6 % ELSE IF (line(2:2) .EQ. 'G') THEN !If escG then skip on track 7 % track = 7 % ELSE IF (line(2:2) .EQ. 'H') THEN !If escH then skip on track 8 % track = 8 % ELSE IF (line(2:2) .EQ. 'I') THEN !If escI then skip on track 9 % track = 9 & ELSE IF (line(2:2) .EQ. 'J') THEN !If escJ then skip on track 10& track = 10 & ELSE IF (line(2:2) .EQ. 'K') THEN !If escK then skip on track 11& track = 11 & ELSE IF (l((ine(2:2) .EQ. 'L') THEN !If escL then skip on track 12& track = 12 " ELSE IF (line(2:2) .EQ. 'M') THEN !If escM then form feed " track = 1 # ELSE !Any other, just single space.# skip = 1  ENDIF % ELSE !If not esc seq. just single space. % skip = 1  ENDIF* * Print the line to the printer with no vertical spacing, the * spacing will come after print.* & line (2:2) = '*' !Print line w/o vertical spacing.& WRITE (UNIT=201, FMT=10) line (2:(page_wid+2)) * "* Do the carriage control (vertical spacing) now. If track is not ""* zero then skip to that track number. Otherwise use the carriage " * control character. * # IF (track .EQ. 0) THEN !If not using tape then # DO i=1, skip, 1 ! WRITE (UNIT=201, FMT=10) ' ' !Skip line on page! line_cnt = line_cnt + 1 !Correct line_cnt & IF (line_cnt .GT. page_len) THEN !If end of page, do margin& DO j=1, (page_tail+page_head), 1 WRITE (UNIT=201, FMT=10) ' ' ENDDO ! line_cnt = 1 !Correct line_cnt. ! ENDIF  ENDDO " ELSE !On tape skip then "& DO WHILE (.NOT. BTEST(tape(line_cnt),(track-1))) !while not hole& WRITE (UNIT=201, FMT=10) ' ' line_cnt = line_cnt + 1% IF (line_cnt .GT. page_len) THEN !If end of page, do margin % DO j=1, (page_head+page_tail), 1 WRITE (UNIT=201, FMT=10) ' ' ENDDO ! line_cnt = 1 !Correct line_cnt! ENDIF  ENDDO  ENDIF ENDDO * * **********END OF READ LOOP************* * * End of input file. Realign paper and close files. * %100 DO I=(line_cnt-1), page_len, 1 !Space till end of print window% WRITE (UNIT=201, FMT=10) ' ' ENDDO % DO I=1, (page_tail), 1 !Write the tail margin of last page.% WRITE (UNIT=201, FMT=10) ' ' ENDDO # DO I=1, (page_head + page_len + page_tail + 1), 1 !Eject a page # WRITE (UNIT=201, FMT=10) ' ' ENDDO # CLOSE (UNIT=200, STATUS='keep') !Keep the file, do not purge it # CLOSE (UNIT=201, STATUS='keep') # CALL lurq (000000b, luary) !Release the printer LU number. #C &C If running under RTE-6, terminate by calling MESSS('OF,PNAME,8,NP',N).&C This will free this program's ID segment. C 9999 IF (OPSY() .EQ. -17) THEN  CALL pname(mesbuf(3))  CALL messs(mesbuf,16)  ENDIF 10 FORMAT (A) STOP END e--need 15 columns }% THEN BEGIN { go to next line } ! FOR X := 1 TO width DO write (formatrace, t_buffer[X]); ! writeln (formatrace); ! FOR X := 1 TO wSTAT.FTN::RJE:4:20:36 644 0 0 12000 5300430455 32341 STAT.FTN::RJE:4:20:36 $ $STAT FTN +1,+1-+1- vFST ftn7x,l   C Name: STAT.FTN C Source: 91781-18022 C Reloc: 91781-16022 C Pgmr: E.W. C Purpose: Example FORTRAN Use of RJE/1000-II   program stat(),91781-16022 REV.2427 <840920.1534>  !C This source illustrates the control of RJE/1000-II through simple ! C FORTRAN calls. The program produces a status display similar to C the one produced by the RJE,STATUS command. The runstring is C "STAT,". The output is directed to the logical unit number C given in the runstring. The subsystem number and password are "C hardcoded into the program so that they do not need to be included" C in the runstring.   integer irje(3),ipram(5),ibuf(5),jbuf(100) integer iparms(5) integer irmane(3)  integer*4 lopen,lclose character*19 rstring character*16 tbuf character*2 device(4)  character*1 underscore equivalence (lopen,jbuf(86)),(lclose,jbuf(88))C assumes subsystem #1, security code = "sc" data rstring/'ru,rje,stat,1,sc,mc'/  data device/'rd','pr','pu','un'/,underscore/'_'/  C send output to the indicated LU, as long as it is less than 64 call rmpar(iparms) lu =iparms (1)  if (lu .le. 0 .or. lu .gt. 63) lu =1 C get the 'monitor configuration' status call FmpRunProgram(rstring,iparms,irname) C abort on error if (iparms(1) .ne. 0) stop C recover the status buffer  call exec(14,1,jbuf,-120) C print formatted display of monitor configuration data  write(lu,'(/" [ RJE STATUS ] ")')  write(lu,'(" read lu.........",i4,5x,"_")') jbuf(3)  write(lu,'(" write lu........",i4,5x,"_")') jbuf(5)  write(lu,'(" link type.......",i4)') jbuf(7) write(lu,'(" max block size..",i4,5x,"_")') jbuf(8)  write(lu,'(" max record size.",i4,5x,"_")') jbuf(9)  write(lu,'(" truncate........",i4)') jbuf(10)  C get the 'link status' data rstring(18:19)='ls'  call FmpRunProgram(rstring,iprams,irname) C abort on error if (iparms(1) .ne. 0) stop C recover the status buffer  call exec(14,1,jbuf,11) C print the formatted link status information  iboard = jbuf(3)/256  if (iboard .eq. 8) then  write(lu,'(" hardware correct")')  else$ write(lu,'(" hardware or firmware incompatible with rje!!!")')$ end if lstat = jbuf(3) - iboard * 256 if ( lstat .eq. 1 .or. lstat .eq. 2 ) then write(lu,'(" link down")') else if ( lstat .eq. 4 ) then write(lu,'(" link up and idle")')  else  if ( lstat .eq. 8 ) then write(lu,'(" link up and transmitting")') else  if ( lstat .eq. 16 ) then write(lu,'(" link up and receiving")')  else ! write(lu,'(" unknown link status")') ! endif endif  endif  endif ! write(lu,'(" firmware rev code..............",i6.6)') jbuf(4) !! write(lu,'(" number of files sent...........",i6.6)') jbuf(5) !! write(lu,'(" number of garbled responses....",i6.6)') jbuf(6) !! write(lu,'(" number of receive time outs....",i6.6)') jbuf(7) !! write(lu,'(" number of NAKS received........",i6.6)') jbuf(8) !! write(lu,'(" number of bad blocks received..",i6.6)') jbuf(9) !" write(lu,'(" number of good blocks received.",i6.6)') jbuf(10)"" write(lu,'(" number of good blocks sent.....",i6.6)') jbuf(11)" C get 'device status' for each of the four virtual devices do idevice=1,4   rstring(18:19) = device (idevice)  call FmpRunProgram(rstring,iparms,irmane) C abort on error if (iparms(1) .ne. 0) stop C recover the status buffer  call exec(14,1,jbuf,90) C output the formatted data for this device $ write(lu,'(/" ************************** status of ",a," *********$ >****************")') rstring(18:19) " write(lu,'(" file name .............",20a2)') (jbuf(i),i=4,23)"$ write(lu,'(" file sequence number..........",i6.6," _")') jbuf(2)$! write(lu,'(" number of records.............",i6.6)') jbuf(3)! call NumericTime(lopen,tbuf) tbuf(16:16) = underscore write(lu,'(" time of last open......",16a,5x)') tbuf call NumericTime(lclose,tbuf)  write(lu,'(" time of last close.....",14a)') tbuf " write(lu,'(" post processor name....",20a2)') (jbuf(i),i=44,63) "  end do  end   *} "" {* PROCEDURE FILE_TRAILER *} "" {* *} "" {* Assigns a message to the ouROUTE.PAS::RJE:4:90:34 644 0 0 55000 5300430456 33053 ROUTE.PAS::RJE:4:90:34 $Z Z"ROUTE PAS +1.+1.+1.Z,FST $PASCAL ',4,109 91781-16023 REV.2540 000000'$ {   NAME: ROUTE.PAS SOURCE: 91781-18023 RELOC: 91781-16023 PGMR: P.T.C.  PURPOSE: RJE post processor to rename files DATE: <851016.0826>   } $RECURSIVE OFF$ $RANGE off$ $HEAP 0$ PROGRAM route; {  ROUTE is a post-processor for the RJE/1000 II subsystem which  supports the r((elocation of incoming print/punch streams. The  post-processor uses a special comment card in the source JCL,  called the //*USER card, to determine the destination of the stream. Only host streams which contain the //*USER card in the listing of the JCL may be redirected by ROUTE.  The Pascal constant "max_lines_read" determines the bounds on  the number of records in the host's stream which are to be searched for the //*USER card. This constant may be changed to suit the users needs.   The //*USER card contains three parameters which determine the destination of the stream, special functions to perform during  the relocation, and the name of a second post-processor which  may be scheduled after the successful completion of ROUTE. The later two parameter may be omitted if desired.  The //*USER card is designed to appear like other JCL control  statements and must meet the following conditions:  1. The letters //*USER must start in column 1 of the JCL.  2. The //*USER card must be typed in all capital letters.  3. A parameter string follows the //*USER identifier, sep- arated by at least on blank.  4. The parameters are to be separated by a single comma  with no imbedded blanks.  5. A comment field may follow the parameters, separated by at least one blank.  6. The entire card must not exceed 80 columns in length, but it is possible to continue the statement on another line. 7. If the statement is continued on another line, the split  in the first line may only occur between parameters, and  the comma MUST NOT be omitted. The //*USER identifier  must appear in column 1 of all continued lines.  The 3 parameters are keyword parameters and are not position-  ally dependant. They can be used anywhere in the operand  field with respect to one another. There is no need to indi-  cate the absence of a parameter, but parameters may only be  listed once. The following example of the //*USER card shows  the format of the parameters. The "filename", "xx" and  "progname" below are to be filled in by the user.   //*USER DEST=filename,PARM=xx,CHAIN=progname COMMENT FIELD   DEST=filename : The DEST parameter specified the destination file for the incoming stream.  PARM=xx : The PARM parameter is a numeric value which deter- mines the special functions to perform during the routing of  the stream. If this parameter is omitted, a default value  of 0 is used. The following numbers are legal:  0 : Perform a simple file copy  1 : Copy the file and purge the source  2 : Overwrite the existing file during the copy.  3 : Copy the file overwriting an existing copy and purge  the source.   CHAIN=progname : The CHAIN parameter determines the file name  of a second post-processor which will run after ROUTE has terminated normally. ROUTE passes this second post-processor  the new name of the stream as a run-string parameter. The  second post-processor will NOT run if ROUTE has not succes- sfully copied the stream.  } $PAGE$ LABEL 99;   CONST  max_inp = 80; {maximum input character count}  max_buff = 544; {dcb buffer, smallest is 288} buff_count = 4; {number of buffers in DCB}  param_pos = 1; {parm position in runstring}  error_lu = 1; {LU to send error messages}! valid_ftype = 3; {Only type 3 files are processed}!! E_O_F = -1; {end of file length from FmpRead}! user_card = '***USER'; {appearance of user card in JCL}  blank = ' '; {a blank character} open_option = 'RO'; {open for read of existing file}  option_0 = 'a'; {FmpCopy ascii file option} option_1 = 'ap'; {FmpCopy ascii,purge option}  option_2 = 'ad'; {FmpCopy ascii,overwrite option} option_3 = 'apd'; {FmpCopy ascii,purge,overwrite}  max_lines_read = 150; {line scanning limit} max_parms = 3; {maximum number of user parms}  delimiter = ','; {delimiter in user card}  destination = 'DEST='; {destination identifier}  copy_option = 'PARM='; {copy option identifier}  chain_parm = 'CHAIN='; {chain program identifier}  err_header = 'ROUTE error on '; {error message header}  error_1 = 'Bad RJE parameter'; error_2 = 'Bad //*USER card parameter';  error_3 = 'Non type 3 file ';  error_4 = 'DEST= parameter not found'; error_5 = 'Duplicate Parameter'; TYPE int = -32768..32767; rmpar_type = ARRAY[1..5] OF int;  xluex_cntwd = ARRAY[1..2] OF int;  op_str = STRING[4]; str80 = STRING[80];  str135 = STRING[135]; str256 = STRING[256]; pac80 = PACKED ARRAY[1..80] OF CHAR; pac135 = PACKED ARRAY[1..135] OF CHAR;  dcb_type = ARRAY[1..max_buff] OF int; parsed_parms = ARRAY[1..max_parms] OF str80;  VAR  error : int; {error code from fmp calls} parms : rmpar_type; {parameters}  console : xluex_cntwd; {Conole LU} userout : text; {user's output file}  found : BOOLEAN; {true if user card detected}  open_ops : op_str; {open options for host file}  option : op_str; {option in FMP copy}  dcb_buffer : dcb_type; {2 DCBs for FMP copy} dcb : dcb_type; {DCB of host's input file}  ftype : int; {file type of opened file}  user_parms : str256; {the parameters for user card}  inp_buf : pac135; {buffer read from FmpRead}  inp_rec : str135; {record read from host's file}  error_str : str135; {output error string} error_buff : pac135; {error message printed} error_msg_len : int; {length of error message} old_file_name : pac80; {name of file in runstring} file_name_length : int; {length of file name} old_file_str : str80; {name of file in runstring} new_file_str : str80; {name of file to be created}  chain_name : str80; {name of next post processor}  parm_list : parsed_parms;{array of parsed parameters}  run_string : str135; {run string for FmpRunProg} run_name : str80; {the RTE name for scheduling}  d : int; {dummy variable}   {**************************************************************}   PROCEDURE print $ALIAS 'XLUEX'$  ( icode : int; {request code}  cntwd : xluex_cntwd; {control words} bufr : pac135; {buffer}  buf_len : int); {length of buffer}  EXTERNAL;  FUNCTION Pas_Parameters $ALIAS 'Pas.Parameters'$  ( position : int; {number of returned parms}  VAR parameter : pac80; {actual returned parameter} length : int): int; {maximum length of parameter}  EXTERNAL; FUNCTION FmpCopy $FIXED_STRING ON$  ( source : str80; {name of source file} VAR err1 : int; {error code}  dest : str80; {destination file}  VAR err2 : int; {error code}  VAR buffer : dcb_type; {DCB buffer}  length : int; {length of buffer}  option : op_str):int; {copy option} $FIXED_STRING OFF$  EXTERNAL;  $PAGE$ FUNCTION FmpOpen $FIXED_STRING ON$  (VAR dcb : dcb_type; {DCB buffer}  VAR error : int; {error code}  filename : str135; {file name} options : op_str; {open options}  buffers : int):int; {number of DCB buffers} $FIXED_STRING OFF$  EXTERNAL; FUNCTION FmpClose  (VAR dcb : dcb_type; {DCB buffer}  VAR error : int):int; {error code}  EXTERNAL; FUNCTION FmpRead $FIXED_STRING ON$  (VAR dcb : dcb_type; {DCB buffer}  VAR error : int; {error Code}  VAR line : pac135; {string input}  maxlength : int):int; {maximum record}  $FIXED_STRING OFF$  EXTERNAL;  FUNCTION FmpRunProgram $FIXED_STRING ON$  ( run_str : str135; {Run string} VAR return_parms : rmpar_type; {Return parameters}  VAR name : str80):int; {run string parameters}  $FIXED_STRING OFF$  EXTERNAL;  $PAGE$ PROCEDURE open_host_stream; $DIRECT$ {Open the host's printer stream and determine the end of file}  BEGIN  {open host's printer stream}  open_ops:=open_option;  ftype:=FmpOpen(dcb,error,old_file_str,open_ops,buff_count); IF ftype <> valid_ftype THEN  IF ftype>0 THEN {Invalid file type} BEGIN error:=3; goto 99;  END ELSE {FMP error} BEGIN error:=ftype; goto 99;  END ELSE error:=0; {Opened correctly} END; PROCEDURE get_file_name; $DIRECT$ { return the file name found in the run string that was initiated by RJE during post-processsor scheduling.}   VAR pnum,maxlen : int; {parameter ((position, maximum length} t : int; {used for PAC to string converstion}  BEGIN   {get file name from run string that RJE created}   old_file_str:='????'; pnum:=param_pos; maxlen:=max_inp;  file_name_length:=Pas_Parameters(pnum,old_file_name,maxlen);   {check for file name and convert to STRING if present}   IF file_name_length < 0 THEN {file name not present}  BEGIN  error:=1; GOTO 99;  END  ELSE {convert to STRING}  BEGIN  old_file_name[file_name_length+1]:=' '; SETSTRLEN(old_file_str,0);  STRWRITE(old_file_str,1,t,old_file_name); END;END;  PROCEDURE trim_and_cat(start:int;VAR done:BOOLEAN);  {remove //*USER identifier and comments from card, leave  only the parameters. Concatenate the string to the  user_parms variable. If a comma is the last character then there are more user cards to find.} VAR x : int; {index into a string} BEGIN  {remove //*USER identifier} STRDELETE(inp_rec,1,start+STRLEN(user_card)-1);  {remove leading and trailing blanks}  inp_rec:=STRLTRIM(inp_rec); inp_rec:=STRRTRIM(inp_rec);  {remove any comments if present}  x:=STRPOS(inp_rec,blank); IF x<>0 THEN  STRDELETE(inp_rec,x,STRLEN(inp_rec)-x+1);   {concatenate input record to parameter string}  user_parms:=user_parms+inp_rec;  {check for more user cards by checking for comma} IF STRLEN(inp_rec) <> 0 THEN  IF inp_rec[STRLEN(inp_rec)]<>delimiter THEN  done:=TRUE {no comma, no more cards}  ELSE done:=FALSE {comma, expect more cards} ELSE  done:=TRUE; {null line, must be done} END; $PAGE$ PROCEDURE read_host_file(VAR done:BOOLEAN);  {locate user card in hostfile text and return flag}  VAR  count,i : int; {counter}  index : int; {identifier index in input record} user_col : int; {copy of index}  found : BOOLEAN; {true when a user card is found} length : int; {length of the line read}  end_of_file : BOOLEAN; {true if length -1 on read}  BEGIN  user_parms:=''; {initialize parameter string} found:=FALSE; {set flags and counters}  done:=FALSE;  end_of_file:=FALSE;  count:=0;  WHILE (count0 THEN GOTO 99; IF length = E_O_F THEN end_of_file:=TRUE;  IF NOT end_of_file THEN BEGIN  {map buffer into string variable} SETSTRLEN(inp_rec,135); FOR i:=1 TO length DO inp_rec[i]:=inp_buf[i]; SETSTRLEN(inp_rec,length);   {look for //*USER identifier in record} user_col:=STRPOS(inp_rec,user_card);   IF user_col <> 0 THEN {USER card found}  BEGIN   found:=TRUE;   {create parameter string from USER card}  trim_and_cat(user_col,done);   {look for more USER cards}  WHILE (NOT done) AND (NOT end_of_file) DO BEGIN   {read next line}  length:=FmpRead(dcb,error,inp_buf,135); IF error<>0 THEN GOTO 99; IF length = E_O_F THEN end_of_file:=TRUE;  IF NOT end_of_file THEN BEGIN  {map buffer into string variable} SETSTRLEN(inp_rec,135);" FOR i:=1 TO length DO inp_rec[i]:=inp_buf[i];" SETSTRLEN(inp_rec,length);   {look for //*USER identifier in record} index:=STRPOS(inp_rec,user_card); ! IF index=user_col THEN {another USER card}!! trim_and_cat(index,done) {add to parms}! ELSE {not a USER card}  done:=TRUE; {quit reading}  END; {of NOT end_of_file}  END; {of WHILE}  END; {of user card found}  END; {of NOT end_of_file}  END; {of WHILE} END;  PROCEDURE set_defaults; $DIRECT$  {set up default values for the creation of the new file}  VAR i : int; {loop counter} BEGIN  option:=option_0; {standard Fmp Copy}  new_file_str:=''; {No new file name for copy}  chain_name:=''; {No second post processor name}  FOR i:=1 TO max_parms DO parm_list[i]:=''; END; $PAGE$ PROCEDURE parse_out_parameters; $DIRECT$  {break up user card into parameters}  VAR ct,l : int; {counter and location pointer}  BEGIN  ct:=0;  REPEAT  ct:=ct+1;   {look for parameter delimeter} l:=STRPOS(user_parms,delimiter);  IF l<>0 THEN {delimeter found, line contains } {multiple parameters. } BEGIN {separate and remove parameter}  parm_list[ct]:=STR(user_parms,1,l-1);  STRDELETE(user_parms,1,l); END  ELSE {delimeter NOT found, only 1 } {parameter on the line } parm_list[ct]:=user_parms;   {remove leading and trailing blanks} parm_list[ct]:=STRLTRIM(parm_list[ct]);  parm_list[ct]:=STRRTRIM(parm_list[ct]);   UNTIL (ct >= max_parms) OR (l=0);END; $PAGE$ PROCEDURE set_up_parameters; $DIRECT$ {set the values for the creation of the new file} VAR dest_set, {true when file name is found} parm_set, {true when parm number is found} chain_set : BOOLEAN; {true when program name is found}  i,t,opt : int; {loop and work variables}  p : str80; {parameter}  BEGIN  {initialize flags which determine if a parameter is set}  dest_set:=FALSE;parm_set:=FALSE;chain_set:=FALSE;  {check each parameter in parms array} FOR i:=1 TO max_parms DO  BEGIN  p:=parm_list[i];   IF p<>'' THEN {there is a parameter to check}   {check destination parameter} IF (STRPOS(p,destination) = 1) THEN BEGIN   {check for duplicate parm}  IF dest_set THEN  BEGIN  error:=5; GOTO 99;  END  ELSE  dest_set:=TRUE; {set flag}   STRDELETE(p,1,STRLEN(destination)); {remove DEST=}  new_file_str:=p; {store parm}  END   {check operation number for FmpCopys in PARM parameter} ELSE IF (STRPOS(p,copy_option)=1) THEN  BEGIN   {check for duplicate parm}  IF parm_set THEN  BEGIN  error:=5; GOTO 99;  END  ELSE  parm_set:=TRUE; {set flag}   STRDELETE(p,1,STRLEN(copy_option)); {remove PARM=}  opt:=ORD(p[1])-ORD('0'); {convert to INTEGER}   CASE opt OF  0 : option:=option_0; 1 : option:=option_1; 2 : option:=option_2; 3 : option:=option_3; OTHERWISE BEGIN error:=2;  GOTO 99; END;  END;  END   {check chain program parameter} ELSE IF (STRPOS(p,chain_parm)=1) THEN BEGIN   {check for duplicate parm}  IF chain_set THEN BEGIN  error:=5; GOTO 99;  END  ELSE  chain_set:=TRUE; {set flag}   STRDELETE(p,1,STRLEN(chain_parm)); {remove CHAIN=}  chain_name:=p; {store parm}  END   {otherwise illegal parameter} ELSE  BEGIN  error:=2; GOTO 99;  END; END;  {make sure DEST parameter is set} IF NOT dest_set THEN  BEGIN  error:=4; GOTO 99;  END;END; $PAGE$ PROCEDURE find_user_card; $DIRECT$ {get the desired new name from the text in the JCL  of the host's stream.}  VAR err : int; {dummy error code}  BEGIN   {look for user card and create parameter string if found} read_host_file(found);   IF found THEN {set up global variables from parameters} BEGIN  set_defaults;  parse_out_parameters; set_up_parameters;  error:=FmpClose(dcb,err); IF (error<>0) and (error<>-7) THEN GOTO 99; END  ELSE {no //*USER card in search area, QUIT! }  BEGIN  error:=0; parms[1]:=0;  GOTO 99;  END;END;  PROCEDURE create_new_file; $DIRECT$ {create a new copy of the host's file using FmpCopy call} VAR err1,err2 : int; {error codes} buflen : int; {leng((th of dcb buffer}  BEGIN  buflen:=max_buff;  error := FmpCopy(old_file_str,err1,new_file_str,err2, dcb_buffer,buflen,option); IF error <> 0 THEN GOTO 99 END; $PAGE$ PROCEDURE chain_next_processor; $DIRECT$  {initiate the next post processor if program name not null} BEGIN  IF chain_name <> '' THEN  BEGIN  {set up run string}  run_string:='RU,'+chain_name+','+new_file_str;   {initialize scheduled name} run_name:=STRRPT(' ',5);   {schedule program}  error:=FmpRunProgram(run_string,parms,run_name);   IF error <> 0 THEN GOTO 99; END;END; $PAGE$  BEGIN { main-line }   {initialize control words for error messages to console}  console[1]:=error_lu;  console[2]:=0;   get_file_name;  open_host_stream; find_user_card; create_new_file; chain_next_processor;  99: {Jump here for error exit}  IF (error <> 0) OR (parms[1] <>0) THEN  BEGIN  {set up error message}  old_file_str:=STRRTRIM(old_file_str); error_str:=err_header+old_file_str+' : ';  {determine type of message and print it}  IF error<0 THEN  STRWRITE(error_str,STRLEN(error_str),d,' FMP error ',  error:1)   ELSE  CASE error OF  1 : error_str:=error_str+error_1; 2 : error_str:=error_str+error_2; 3 : error_str:=error_str+error_3; 4 : error_str:=error_str+error_4; 5 : error_str:=error_str+error_5; OTHERWISE  error_str:=error_str+'Undetermined error';  END; {of CASE}   STRREAD(error_str,1,d,error_buff);  error_msg_len:=STRLEN(error_str); print(2,console,error_buff,error_msg_len);  END; END.RJE.DAT::RJE:4:137:36 644 0 0 104400 5300430460 32112 RJE.DAT::RJE:4:137:36 $ \$RJE DAT +1/+10+10D h0FST  91781-18100 REV.5010 <881121.1552>  Loaded with #LOAD::SY <881121.1552>$:1EC0000053C953C953C953C953C953C953C953C953C953C9F4D808D953C946C9010031 $:0CC01E0000010126C006C4020000090158 :02C0320026C026 :02C0440006C430 :01C02A000213 :02C0340074C0D6 :02C0460043CBEA :01C02B000311 :02C036001DC02B :02C048000DC425 :01C02C00040F :02C038001DC029 :02C04A00F4C33D :01C02D00050D :02C03A0057C0ED :02C04C0043CBE4 :01C02E00060B :02C03C001DC025 :02C04E0013C419 :01C02F000709 :02C03E001DC023 :02C0500030C4FA :01C030000807 :02C040001DC021 :02C0520085C4A3 :01C031000905 :02C042001DC01F  :07C05400C3C403EBC00501AA :02C05F0026C0F9 :02C0690006C40B :01C05B000ADA :02C0610026C0F7 :02C06B0006C409 :01C05C000BD8 :02C063001DC0FE :02C06D00C9C444 :01C05D000CD6 :02C065001DC0FC :02C06F00E1C42A :01C05E000DD4 :02C067001DC0FA  :07C0710071C80438C10C0185 :02C0830026C0D5 :02C09B0006C4D9 :01C078000EB9 :02C0850074C085 :02C09D00F9C4E4 :01C0790009BD :02C087001DC0DA :02C09F00C3C418 :01C07A000FB6 :02C089001DC0D8 :02C0A1004DC58B :01C07B0010B4 :02C08B00B4C03F :02C0A3009FC537 :01C07C0011B2 :02C08D001DC0D4 :02C0A500D8C5FC :01C07D0012B0 :02C08F001DC0D2 :02C0A7000CC6C5 :01C07E0013AE :02C09100C2C02B :02C0A90059C676 :01C07F0014AC :02C093001DC0CE :02C0AB00BAC613 :01C0800015AA :02C095001DC0CC :02C0AD00EFC6DC :01C0810016A8 :02C097001DC0CA :02C0AF001BC7AD :01C0820017A6 :02C099001DC0C8  :07C0B10027C70549C1020188 :02C0B9001DC0A8 :02C0BD0088C732 :01C0B800186F :02C0BB00D0C0F3  :07C0BF0043CB0649C1020159 :02C0C7001DC09A :02C0CB0088C724 :01C0C6001960 :02C0C900DEC0D7  :07C0CD0043CB075DC1020136 :02C0D5001DC08C :02C0D90088C716 :01C0D4001A51 :02C0D7001DC08A  :07C0DB00BFC7085DC10201AF :02C0E3001DC07E :02C0E70088C708 :01C0E2001A43 :02C0E5001DC07C $:1EC0E9000FC83E0AFDCB014EC0AF32FF3FFDCB004E28272168D8BE28033E0BC92AC871 $$:1EC10700C3BD2018BC201521DCC3BE200C2158D8BE2006217CD8BE28033E0CC9FDCB59 $$:1EC12500017EC8DD2164D8DD7EFDDDBEFC3E00F83E0DC9AF2AF03FCB7D28082AF15F48 $$:1EC1430022C5C33E0EC9AFFDCB0076280CFDCB006E28043E1918023E18C9AF2AF03F04 $:12C16100CB7D280D2AF15F23B4B520043E1A1801AFC93C $:1EC37300000000000000000000000000000000000000000000000000000000000000AC $$:1EC391000000000000000000000000000000030100000000000000000000000000008A $$:1EC3AF00000000007B09010800000300000000000000000000000000000000000000E0 $$:1EC3CD0000000000000000000000000000000000000000BAC31A00BAC31A00FDCB015B $$:1EC3EB008EEB210060722373C921000022C8C322BDC322BFC322CAC3C3E8C3CD82C821 $$:1EC4090032C7DAC9210000C3E8C3FDCB015E280CFDCB019EFDCB01A6FDCB02863EFF2C $$:1EC4270032FF3F210000C3E8C3FDCB015E20052103C01847FDCB019EFDCB0246280DBD $$:1EC44500FDCB01BEFDCB02862104041830FDCB01662012DD2ABBC3CDF2D7DD6E02DDEB $$:1EC46300660322C8C31818FDCB01A6DD216CD8CDF2D7DD6E02DD6603DD216CD8CD1775 $$:1EC48100D8C3E8C32AC8C37CB520062103C0C3E8C33AC3C321D3C3BE20103ACEC3FECB $$:1EC49F000F2015DD2ABBC3CD17D8180C21D4C3BE28062102C0C3E8C321000022C8C313 $$:1EC4BD0022BFC3C3E8C32ACCC3C3E8C3FDCB01E6FDCB01DEDD216CD8CDF2D7DD6E00AF $$:1EC4DB00DD6601C3E8C3FDCB01A6CD22C9DD22BBC33AD3C36F2605FDCB01DEC3E8C36E $$:1EC4F9003AC4C3FDCB004E2021FEC3281DFDCB0176281CFDCB01462821FEC4280DFE37 $$:1EC51700C12809FEC228052100C01821CD94C81821FDCB0146281321D3C3180321D49A $$:1EC53500C33AC3C3BE20052104C0180321008022CCC33E0932C7DAC93AC3C321D4C3D5 $$:1EC55300BE28052102C018413ACFC3FE0D2827FE0F28062103C0C3E8C3DD2164D8DDD9 $$:1EC571007EFDDDBEFCFA95C5DD2180D8DD7EFCB72012210404C3E8C3FDCB004E20D70C $$:1EC58F00212C02C3E8C3210000FDCB01FEC3E8C3ED4BC5C3783E07A0473ACFC3FE0D40 $$:1EC5AD0020052173C1180FC5DD2164D8CDDFD7DD6E00DD6601C1ED5BBDC319EB092206 $$:1EC5CB00BDC3FDCB00AE210060CDC5C8C921C5C33AC3C3FDCB004E28052103C01820F0 $$:1EC5E900CB462009FDCB01F632D4C31810FDCB01C632D3C3FDCB0176200332D4C321A7 $$:1EC607000000C3E8C33AC5C3E6F00F0F0F0F473AC3C321D3C3BE201078FE0F28062153 $$:1EC6250003C0C3E8C332CEC3182421D4C3BE28062102C0C3E8C378FE0F2810FE0D20EA $$:1EC6430008FDCB004E20DA1804FE0E20D432CFC3210000C3E8C33AC3C332D0C321D4D8 $$:1EC66100C3BE200921BAC3FDCB01D61817DD2ABBC3CDF2D7DD6E00DD6601FDCB024EE3 $$:1EC67F002804FDCB01D6AFED4BBFC3B0B1280CFDCB01562003091803AFED42ED4BC593 $$:1EC69D00C378E60747ED43C5C3EB2ABFC30922BFC3EB110060FDCB00EECDC5C8C9FDE2 $$:1EC6BB00CB016E28052103C01827FDCB005620F506023AC5C3CB4F28080603CB47284D $$:1EC6D900020601FDCB01EE783286C33E0132D5C3210000C3E8C3FDCB0056200BFDCBE7 $$:1EC6F700016E20052101C018123AC5C332D7C3F60132D2C3FDCB01EE210BC0C3E8C328 $$:1EC71500210000C3E8C33AC5C326003AB5C36FC3E8C32103C03AC6C3FE0220303AC50A $$:1EC73300C3ED4BC7C3B9284732C7C3E6F028023E0132DBC33AC7C3B7280F79B720313D $$:1EC75100CDD7DA3AC7C3B7282B1826CD1ADB1821FE0320083AC5C33279C31815FE04BD $$:1EC76F0020143AB5C3CB67280532D6C318052105C01803210000C3E8C3FDCB00A63E43 $$:1EC78D00FF32FD3FFDCB006E200821000022BDC3181721D4C33AD0C3BE210000280540 $$:1EC7AB0022C8C3180322CAC322BFC33AC4C3FE43C0C3E8C3FDCB00A63EFF32FD3FFD0F $$:1EC7C900CB00B63AC6C3CB5F2806210000C3E8C33ACFC3FE0D200BCD25E9CD89C9CD5E $$:1EC7E700ECC91817DD2164D8CDDFD72ABDC3DD7502DD7403DD2164D8CD04D82100003D $$:1EC8050022BDC33ACFC36FC3E8C3FDCB00A63EFF32FD3FFDCB00B6ED4BC5C33AD0C3A6 $$:1EC8230021D4C3BE20122ACAC3ED4222CAC32035CDECC93ACFC31827AF2AC8C3ED4245 $$:1EC8410022C8C32022DD2ABBC3CD17D8AF21E0C3ED5BBBC3ED52200632A3C332A4C3DA $$:1EC85F003ACEC321000022BFC3FDCB018E67220060C9FDCB01DEFDCB02C626013AD4B6 $$:1EC87D00C36FC3E8C33AC4C3CB7F28043E02181F21ADC8E60718083AC4C3E60F21B520 $$:1EC89B00C80100004F097EFE0920062103C022CCC3C90304050607080909090F1011E9 $$:1EC8B900120909130914150909161709FDCB00E6AF32FD3FCB4120010B3E7DD31C7D86 $$:1EC8D700D31C7CD31C79D31C78D31C3E14FDCB01562806FDCB0196CBA7D31C3E10FD70 $$:1EC8F500CB005E2806FDCB009ECBA7D31C3E8DD31C7BD31C7AD31C3ECFD31CFDCB00B6 $$:1EC913006E20033A01603EABD31C3E87D31CC9FDCB02CEDD21E0C3DD7EFCB7C0FDCBB6 $$:1EC93100028EDD2180D8DD7EFCB7C0DD215CD8DD7EFCB7C0FF083E8BD31CFDCB00F6B7 $$:1EC94F0008FBED4DFBED4DF5E52AF15FCB7C7C201AFE422804FDCB01CEFDCB006620B6 $$:1EC96D00113E0132C7DA22C3C3E1F1ED4532016018E53EC3D31C3E83D31C18E53E0171 $$:1EC98B00473E01110400DD215CD8DD6E00DD66012377DD1910F43AD1C3473E02110434 $$:1EC9A90000DD2180D8DD6E00DD66012377210402DD7502DD7403DD1910EBFDCB00CE9B $$:1EC9C700AF32FE3FC932B5C3CB572809FDCB00D6FDCB01AEC9CB47C8FDCB0096FDCB90 $$:1EC9E50001AEAF32D2C3C9DD216CD8CDDFD73E05DD77013AC3C3DD7700211A00DD7548 $$:1ECA030002DD740322CAC3DD216CD8CD04D8C9AF21D5C3B6C83A08D2B728033E05C974 $$:1ECA21003A86C30601FE0128080602FE022802060378C9AFDD2144D8DDBEFCC0DD21A4 $$:1ECA3F005CD8DDBEFCC0DD2180D8DDBEFCC0DD21E0C3DDBEFCC03E24C93AF73FCB7FC4 $$:1ECA5D002802AFC93E08C93AF53FCB7F2802AFC93E09C93E10F3D336DB36FBE608CA92 $$:1ECA7B0029CB3E24C93AD2C3B728033E07C92103D2B6C02105D2BE7728033E23C921B0 $$:1ECA99004CD8B6CA29CB3E0CC93AD2C3B728033E07C92103D2B6C01877AF21DAC3BEEF $$:1ECAB70028033E1FC9214CD8BE286DDD2150D8CDF2D7DD6E00DD66013AB5C3CB6F2819 $$:1ECAD5000423CBD62BCB7628103A88C3FE002009CDE0D0F2EECAAF18473E21C93AD6BE $$:1ECAF300C3B7200DCDE0D0F20CCBAF21DAC3B6282B3E063238D53E1FC93E22C93A02B4 $$:1ECB1100D2C9CDA7D13A04D2C8AFC9CDA7D1200E3A03D2B7C01807AF21FFD1B6201137 $$:1ECB2F0021D7C3B620082101D2B6C83E1DC93E07C93E0BC9C9CDEBD0F33A84C3B70617 $$:1ECB4D00002810075F160021D1D1197ED339237ED339047832F03FAF013702ED79EDEA $$:1ECB6B00411100C0ED59CD5CDC3A86C3FE02CC5BD0FBC93E0132A3C3DD21E0C((3CD04C8 $$:1ECB8900D8C9CD44CBCD5BD0C93A86C3FE03CC5BD03A7CC3B720013C7F119BD1219596 $$:1ECBA700D9CDD8D8C9AF3292D9AF3201D23AF53FCB7F3E2520083A85C3E603C03E2481 $$:1ECBC50032C2DAC9AF3296D9AF32D5C3010B0011A2C321A1C33600EDB01110D2218A7A $$:1ECBE300C3EDA0218FC3EDA03A8CC312132191C3EDA00104002193C31213EDA0EAFB21 $$:1ECC0100CBDD216CD8CDDFD73AD3C30602DD7700DD7001AFDD7702DD7703DD216CD86D $$:1ECC1F00CD04D8DD216CD8CDDFD73AD4C30602DD7700DD7001AFDD7702DD7703DD21B4 $$:1ECC3D006CD8CD04D8C36CD018123AD6DA32A1C33A7AC3B7280C3208D2AF18153AD6E9 $$:1ECC5B00DA32A1C33E18013600F3ED41ED79FBAF3208D232D5C332D8C332D7C3CDC889 $$:1ECC7900D8CDEBD03E01CDCCC9CD1ADBC9C33800CD17CDCD70D121FDD1CD92D0C379FD $$:1ECC9700D0CD17CDF3CD2CDFFBCDEBD03ADBC34F1102002112D2CDCBDC3AD6DA32A140 $$:1ECCB500C3C9F3CD2CDFFBCDF8D01E01218FC3C317D1F3CD2CDFFBAF328AD9AF32D87A $$:1ECCD300C3CD17CD3A79C3B728063E1D32C2DAC93A7FC3119BD1218DD9CDD8D8C9CDEF $$:1ECCF100FBD03A9FC3119BD1218DD9CDD8D8AF3200D23ADBC34F110000210000CD2B39 $$:1ECD0F00DDC9CD17CDC379D0AF328AD9AF3201D2C9AF328AD9CDF8D03207D23209D2F1 $$:1ECD2D003C3200D21E022114D2C31ED11E012192C3C317D1CDF8D032D8C33ADBC34F06 $$:1ECD4B00110000210000CD2BDDC9CDFBD03ADBC34F110000210000CD2BDD3A87C37F31 $$:1ECD6900119BD1218DD9CDD8D8C9CD64D1F3CD2CDFFB21FED1CD92D01E01218FC3C326 $$:1ECD870017D13EFFCD4ED13A7FC3119BD1218DD9CDD8D8C9AF328AD9CDFBD03206D2D1 $$:1ECDA500DD2150D8CDF2D7DD6E00DD6601CB7628183A88C3FE002011DDE5CDE0D0FAB7 $$:1ECDC30012CECDA8D0DDE13E011805CD33D13EFF3200D23E80DD6E00DD660146A0329C $$:1ECDE100DAC311040019E5DD6E02DD6603B7ED52EBE13E10A020041B1B2323CB482866 $$:1ECDFF0002CBEFCB702802CBD74F3ADBC3B14FCDE7DCC9DDE1AF328AD9CDFBD03E01FA $$:1ECE1D003206D2ED443200D21E022110D2C310D1AF328AD9CDFBD03ADBC34F110100DC $$:1ECE3B002191C3CDCBDCC93E0432A3C3CDB8D13A9FC3119BD1218DD9CDD8D8AF32DA1F $$:1ECE5900C3C36CD0CD70D121FCD118103A06D2B720672AABC32322ABC321FBD1AF326C $$:1ECE7700DAC332FDD132FCD1CD92D0C38ECDAF18023EFFED4B06D2CB4120502109D226 $$:1ECE9500BE20D32F772AA5C32322A5C3DD2150D8CDF2D7DD6E00DD66017EE6C0280A48 $$:1ECEB3003E0832A3C3CD78D1181223CB56280DAF2F32DAC33E0232A3C3CDB8D1CDD84A $$:1ECED100D0CDF8D0C38ECD3E20CDCCC93A09D218A83E2032C2DAC9473A00D23DFA1A92 $$:1ECEEF00CF3E0832A3C3CD78D12AA5C32322A5C3AF32DAC3CDD8D03E12B820093E10B1 $$:1ECF0D00CDCCC9CDBACFC92107D2C391CF7832C2DAC9CD70D121FED1CD92D01813CD34 $$:1ECF2B0064D121FDD1CD92D0181021FCD1CD92D01804AF32FCD1AF32FDD11E01218F08 $$:1ECF4900C33A00D2B7CA17D1F21ED1C310D13E063238D53A07D2B7CA79D0C36CD0CDE1 $$:1ECF670070D13AFBD1B7C2BACF3A09D22114D2B7E281CF28082116D21803211AD21EDF $$:1ECF850002C31ED1C9AF2107D2B6200F3601AF3296D93E10CDCCC9AF32FBD1AF32FDC1 $$:1ECFA300D132FCD132FED1C92AA9C32322A9C321FBD1CD92D018001E012192C3C31EE5 $$:1ECFC100D13AD6C3B7C0CDF8D02AA7C32322A7C3210AD23E0CA62819473E03A63A8346 $$:1ECFDF00C3200ACB76C2ABCFB728271806B7200378AE77DD2144D8CDDFD7DD5E00DD7A $$:1ECFFD005601EDA02A0BD2DD7502DD7403DD2144D8CD04D83A7FC3119BD1218DD9CD73 $$:1ED01B00D8D8C9AF328AD9CDF8D03C3200D2AF1109D221D9C3BE2802773C2FEBCB2E5F $$:1ED03900AE77C370CF3EFF3200D21E022118D2C310D1CDF8D03A7FC3119BD1218DD98D $$:1ED05700CDD8D8C93A80C3320ED221A1D1ED5B0ED2CDE3D8C9CDEBD021A1D1ED5B7304 $$:1ED07500C3CDE3D83E04CDCCC9CDFBD03200D23ADBC34F110000210000CD2BDDC93AE1 $$:1ED09300D7C3B73E0720093A7BC33C34BEC03E1E32C2DAE1C9CDFBD0DD2144D8CDDF28 $$:1ED0B100D73AB5C3E6283E042002CBFF21DBC3CB462802CBC7DD6E00DD66011104006C $$:1ED0CF0019ED5BC1C3CD68DDC9DD2150D8CD17D8C9DD2144D8DD7EFDDD96FCC9AF324D $$:1ED0ED00D6C332D9C321000022FFD1CD06D12100002201D22203D2AFC921000022FB44 $$:1ED10B00D122FDD1C9D5E5CD33D1180CD5E5CD42D11805D5E5CDA8D0E1D116003ADB3A $$:1ED12900C3E601CBD74FCDCBDCC93ADBC3E601CBD7110A00211CD218053ADBC3E601A9 $$:1ED14700CD68DDCDFBD0C93209D2AF3296D9CDEBD032D8C332DAC33E08CDCCC9C9FE67 $$:1ED165001D20082AADC32322ADC3C92AAFC32322AFC3C92AB1C32322B1C3DD21E0C33B $$:1ED18300CD04D8C9AF32C2DA3208D211C2DA21D2E5CDFBD9CDEBD0C93E013201D2C90F $$:1ED1A1003E0132FFD1C93A85C3CB57C83E10F3D336DB36FBE608C93AA0C3B720052F45 $$:1ED1BF003205D2C93E05327ED5DD21E0C3CD04D8DD2150D8DD7EFCB7C8CD17D818F2AC $$:1ED1DD002718120C0780076007400730072047C0071047604730471847C047C0471044 $ :05D20500000000000024 :02D20E0000001E  :05D230000184D202019F :02D236003FD2E5 :02D23A00F0D230 :01D2350006F2 :02D2380031D2F1  :07D23C0043CB028DD2020278 :02D244004DD2C9 :02D2480046D3CB :01D2430006E4 :02D246003FD2D5  :07D24A00B0D3039FD20404DE :02D254003FD2C7 :02D25C007CD381 :01D2510003D9 :02D2560065D29F :02D25E0064D397 :01D2520007D4 :02D258003FD2C3 :02D2600043CBBE :01D2530006D4 :02D25A004DD2B3  :07D26200B0D3047CD20401EB :02D26C004DD2A1 :02D27400F6D2F0 :01D2690005BF :02D26E0031D2BB :02D2760043CBA8 :01D26A0006BD :02D2700031D2B9 :02D27800A4D33D :01D26B0008BA :02D2720031D2B7 $:1ED27A00ABD33AB5C3FE013E08C8AF2140D8BEC83E01C9DD215CD8DD7EFDDDBEFCFAC8 $$:1ED298009DD23E02C9AFC93A37D5CB472011CB4F20033E03C9CD1BD528F8CDCDD31856 $$:1ED2B6001BCD1BD528EE3A37D5CB672805CDE7D3180A3A88C3FE0128F4CDF9D3C02AFB $$:1ED2D40025D546234E23092225D52A27D52B2BAFED4228052227D518B23E03C9CD35C8 $$:1ED2F200D33237D5CD35D3F5E5DDE5E603473A37D5E603280BB82808CD7CD33E07328F $$:1ED3100038D5DDE1E1F13237D5110400192225D546234E232229D5ED432DD5DD6E0261 $$:1ED32E00DD66032227D5C9DD2144D8CDF2D7DD6E00DD66017EE67FC9DD215CD8CDDFEB $$:1ED34C00D7DD6E00DD66012231D5110400192235D52100042233D5C9DD2144D8CD17C5 $$:1ED36A00D83A37D547E6C078C8CD81D33E053238D5C93A37D5E63F2A31D5772A35D5A8 $$:1ED38800ED5B31D5B7ED52DD215CD8CDDFD7DD7502DD7403DD215CD8CD04D8C93A37D1 $$:1ED3A600D5CBFF18D63A37D518D1DD2144D83E01DDBEFC20062137D5CBFEC9CD2CD807 $$:1ED3C400DD6E00DD6601CBFEC92A25D546234E23CD82D4C0B0B12802EDB0ED5335D5D7 $$:1ED3E200CD07D5AFC9CD62D4CD82D4C02A29D5CDABD4CD07D5AFC9CD18D4CD82D4C0F5 $$:1ED40000CDC6D4CD07D52A2FD5222DD5AFB4B5C82A2BD52229D518E12A29D5E511006B $$:1ED41E0000ED4B2DD5AFB0B1200FED432FD5C1B7ED4219E5C12A29D5C97ECD79D4282C $$:1ED43C001D3A99C3BE2804230B18DCAF0BB0B128DB237EE63F1B1B835F30EC1418E9E6 $$:1ED45A000B23222BD52B18C62A25D546234E232229D5AFB0B1C8092B7ECD79D4C00BCE $$:1ED47800C9FE01C0FE02C0FE03C9EB21FE03AFED42F28FD401FE032A33D52B2BAFED1E $$:1ED4960042F29ED43E04B7C92233D52A35D570237123EBAFC9DD21F3C1AFB0B1200541 $$:1ED4B400ED5335D5C97E32BFD4DD7E001213230B18E9DD21F3C1AFB0B12005ED5335F9 $$:1ED4D200D5C93A99C3BE280D7E32E0D4DD7E001213230B18E3237E23E5E63F28156796 $$:1ED4F0003A98C332F8D4DD7E0012130BAFB0B128032520ECE118C32A33D5CB45C82BA3 $$:1ED50E002233D52A35D5AF77232235D5C9AFED4B27D50B0BB0B1C90000000000000040 $$:1ED52C000000000000000000000000000084D233D2008FD545D5018FD5010155D5383F $:0FD54A00D702C3D6010643D5B7D503B8D504021F :02D55C006DD58B :02D5640030D7BE :01D5590004CD :02D55E0076D580 :02D5660060D78C :01D55A0005CB :02D560004CD5A8 :02D56800B7D535 :01D55B0007C8 :02D5620043D5AF $:1ED56A0030D704A1D5010155D538D705ACD5010355D594D700000000000000000000C8 $$:1ED5880000000000000000AF327ED5FDCB004EC8CD94D73A98C3327AD6DD2164D8CD1D $$:1ED5A600F2D73E011809DD2150D8CDDFD73E03F0AFC93A7ED5B7C0ED4B89D5AFB0FAF9 $$:1ED5C400C9D5B1203C2181D57EB720273A8CD5CB4F2820773A86D5B720023E20218BBF $$:1ED5E200D547CDD0D72802CBE07EE6022002CBC7B0773E04C9AF3281D53A86D5B73EB9 $$:1ED6000007C03E02C9217FD5CDCAD728032180D5AFB628CA352A87D546234EC5030324 $$:1ED61E002A84D5ED42C138B8C5030303CB81AF2A89D5ED422289D5AF2A87D5E5092246 $$:1ED63C0087D5E12323ED5B82D5C1D5C5C5DD21F3C24FCDD0D728021313E3AFB4B528A5 $$:1ED65A0036CDCAD7202ACDE6D6AFB44D28020EFFAF47ED42E3414F7E233278D6DD7E40 $$:1ED6780000FE0028080C0DC4E6D612130D0C10E918CBE3C1EDB0E11814CDE6D6E1C13A $$:1ED69600CDD0D72805CDD6D728053A9BC31213EBD12282D5AFED52EBCDD0D728061BA6 $$:1ED6B4001B722373132A84D5AFED522284D5C9AF2160D8BEC8DD2164D8CDF2D7DD6EC4 $$:1ED6D20000DD6601E5DD2164D8CD17D8E17EE6C0C83E06C9F50C0D2843CDD0D72036FE $$:1ED6F00079D60338313A8CD5CB47282A3A99C3121379D63F3E3F300179F53A9EC3B7AB $$:1ED70E00F12807F640E218D7CBFFF640E67F1213E63FED44814F18C13A98C312130D86 $$:1ED72C0020FBF1C9DD2164D8CD17D8C9DD2164D8CDF2D7DDE5E11187D5CDC1D72A8755 $$:1ED74A00D5ED4B89D57EE6C03286D5CDC1D72287D5ED4389D5C9DD2150D8CDDFD7DDE5 $$:1ED768005E00DD56012A82D5AFED52444DDD7102DD7003218BD5CDC1D7CDD0D72006F1 $$:1ED78600EB0B0B702371DD2150D8CD04D8C9DD2150D8CDDFD7DD5E00DD5601CDC1D76B $$:1ED7A400CDD0D7CCC5D7ED5382D53A81C3327FD53A82C33280D52A75C32284D5C9ED57 $$:1ED7C200A0EDA0EDA0EDA0C93A8BD5CB4FC93A88C3FE00C9E52A77C3B7ED42E1C9DDBA $$:1ED7E0007EFDDDBEFCF8DD4EFECB21CB210600DD09C93EFFDD86FCF8DD4EFFCB21CBF6 $$:1ED7FE00210600DD09C9DD7EFDDDBEFCF8DD34FCDD35FEF0DD77FEAFC93EFFDD86FCDD $$:1ED81C00F8DD35FCDD35FFF0DD7EFDDD77FF3CC9DD7EFC3DF847DD7EFF90F23CD8DD97 $:0AD83A0086FD4FC3FBD7000100007C  :04D84C0000010000D7 :04D8580000000000CC :04D8600000000000C4 :04D8680000030000B9 :04D87C00000900009F $:1ED8A800011000118BD9218AD93600EDB0F33EB7D33A3E90D33A3ED7D33B3E0AD33B3C $$:1ED8C600FBC9F3011000118BD9218AD93600EDB0FBC9B7C8722B732B772B360AC9AFD8 $$:1ED8E400B2B3C82299D9ED5397D93E0A3296D9C9F53A92D9B72809E52193D935CC848A $$:1ED90200D9E1F1FBED4DF5FB3AC7C3B7281E3A07DC3CE63F2013C5ED4B08DC0378E683 $$:1ED920003F47ED4308DCCD39DBC1AF3207DCF3E53AB5C3E60320073AF53FCB7F203344 $$:1ED93E00218AD9CD76D9218ED9CD76D9AF2196D9BE281B3520182A97D92B2297D97C07 $$:1ED95C00B528073E0A3296D918062A99D9CD89D9E1F1FBED4DCD38DC18F6AFBEC83597 $:10D97A00C02335CA84D92B360AC9237E23666FE9A8 $:1ED99B00E923E55E2356B3C2A8D9B2280CE5EBCD9BD9E10600B7C2D2D9E1C8194FAFEE $$:1ED9B900B67919192BCAE2D9E137C90600C3CFD9AF47B628CE7023E523235E2356EBCB $$:1ED9D7004E595009EDB920D72309191B4B5E23562309094E236669E3EBEDA0EDA0EBCB $$:1ED9F500732372E1B7C913EDA0EDA0EB732372C921C2DACDC9D9282532D6DA3803CD5F $$:1EDA13009BD93AC7C3CB4F2816DD2AC5DADD7EFDF6E0F3320EDC3AD6DA320FDCCD347A $$:1EDA3100DB21C7DACDC9D9282732D6DA3803CD9BD93AC7C3CB4728183AD6DAF640F3F5 $$:1EDA4F00320FDCDD2ACADADD7EFDF6E0320EDCCD34DB213DD5CDC9D9282732D6DA38C0 $$:1EDA6D0003CD9BD93AC7C3CB5728183AD6DAF680F3320FDCDD2A40D5DD7EFDF6E03245 $$:1EDA8B000EDCCD34DB2138D5CDC9D9282732D6DA3803CD9BD93AC7C3CB5F28183AD62F $$:1EDAA900DAF6C0F3320FDCDD2A3BD5DD7((EFDF6E0320EDCCD34DBC305DA0012CAD4E54B $$:1EDAC7000000001FC00000000000000000000000F3DD2180D8DD7EFDDDBEFCF2EEDA70 $$:1EDAE500AF32C7C332DBC3FBC9CDDFD7DD6E00DD660111040019220ADC210002CB2CC2 $$:1EDB0300CB1D220CDC21C001220EDCCDA3DBED4B08DCCD39DBFBC9AF21C7C3BEC8F345 $$:1EDB21007721C002220EDCCDA3DBDD2180D8CD04D8FBC9CDA3DBFBC9F3E5D5F578F653 $$:1EDB3F0080320EDC79320FDCCDA3DBF1D1E1FBC9F5320FDC3AC7C3CB77282B1818F554 $$:1EDB5D00320FDC3AC7C3CB67283A1829F5320FDC3AC7C3CB7F2811D5C5E53A07DCF609 $$:1EDB7B0040320EDCCDA3DBE1C1D1F1C9F5320FDC3AC7C3CB6F280FD5C5E53A07DC32A3 $$:1EDB99000EDCCDA3DBE1C1D1F1C9DDE5AF2A0CDCB4B52817ED5B0ADC2B220CDC01027B $$:1EDBB70000210EDCEDB0ED530ADCDDE1C9DD2180D8DD7EFD3DDDBEFCF2EDDBCDDFD73C $$:1EDBD500DD6E00DD660111040019EB2114DC010200EDB021FE011814CD04D8CDDFD761 $$:1EDBF300DD6E00DD660101040009EB210002CB2CCB1D18AA00000000000000000000C8 $$:1EDC1100000000C003D9793EC0A1FE802008CBD9CB49CBC9201379D9D53A7EC3111653 $$:1EDC2F00DC2191D9CDD8D8D1C9D9793E0A32C2DACD2CDF79D9C9D9793E1D18F1D5E58E $$:1EDC4D003A7DC31145DC2191D9CDD8D8E1D1C93E0F32B8E52186E51108C0010800ED13 $$:1EDC6B00B001000079D901360B217BE5EDA3EDA3EDA3EDA3EDA3EDA33A90C3573E064D $$:1EDC8900ED79ED513CED79ED51EDA35E3A85C3B72802CBCBED5923EDA3EDA3EDA311E8 $$:1EDCA70000003A8CC3CD02DEED53CBE53A8AC3CD02DEED53CFE53A8AC3110000CD02AA $$:1EDCC500DEED53CDE5C9CDC6DD7B32C8E5EB2190E5060579E605F6C0CDD2DD2153E365 $$:1EDCE300CD7EDDC9CDC6DDCB69280BF33E06D3363A8CC3D336FBCB61280AED53C6E545 $$:1EDD0100CD33DE7818057A32C1E57B32C8E5EB2197E506063A90C37723772B79E635F4 $$:1EDD1F00F6C0CDD2DD217BE3CD7EDDC9CDC6DD79CD68DD7A32C1E5433E05A11600CDED $$:1EDD3D00D2DD217FDF220CC00E36AF32C0E511D113211511F3ED51ED59ED61ED69ED9E $$:1EDD5B0079FB210000220BD2AF320AD2C932B9E51B1B1BED53BCE522C2E522C4E523D7 $$:1EDD79002322BAE5C922B6E52126DF22C9E52198E42208C001360011071121E615F336 $$:1EDD9700ED51ED59ED61ED69ED41ED78CB6F280AD979CDD8DD79D9FB18B23A7DC311D1 $$:1EDDB50038DC2191D9CDD8D8D979CBF179D9FB189DE521B8E53E0FED6FE1C8E1C94F36 $$:1EDDD300F379D9FBC93E15D3363EEED336AFD3363A90C3D334CB89CBB1CB41C44FDB82 $$:1EDDF100D5E53A7EC31116DC2191D9CDD8D8E1D1C918195A572600EA0EDE2607371FF8 $$:1EDE0F00CB1CAA1FCB1C170F577BAC5FE1C9CB692006B7E227DECBC3CBBFAA57C9D106 $$:1EDE2D00113800D5ED4D56235E23E52AC6E52B2BB7ED5222C6E5E1F82002CBA17A329F $$:1EDE4B00C1E543C93AC1E5FEF0C8E5ED5BC4E5B7ED522B2BEB722373210AD2CBE6E1CD $$:1EDE690022C4E52323B4C93AC1E5FEF0C8E5ED5BC2E5B7ED52220BD23A0AD2CB67283E $$:1EDE870006E1CD55DEB4C92B2BEB722373E17AB3C0210AD2CBFEB4C9CB59C0CD4BDCE7 $$:1EDEA500CBD9C9CB59C8CD4BDCCB99C9410E3621E4153A85C3B72802CBCDED61ED69A7 $$:1EDEC3003E06ED793A90C3ED7921D113ED61ED69217FDF220CC0211D11ED61ED69217A $$:1EDEE100D3E42208C0AF328ED93AB9E5CB7F200C3A7DC31145DC2191D9CDD8D83AB945 $$:1EDEFF00E5E6054FCB51280CED5BBCE57A32C1E5432ABAE5AF5732C0E5180CF3D97909 $$:1EDF1D00CD2CDF79D9C9CD2CDF79D908FBED4D410E363E28ED7921E4D53A85C3B72800 $$:1EDF3B0002CBCDED61ED6921D3E42208C0210511ED61ED6921C013ED61ED69AFED7940 $$:1EDF5900DB34DB34DB3421DCE4220CC026063A90C3ED61ED79AFED79AF328ED93E0F97 $$:1EDF770032B8E53E41A04FC908D979DB345FCB49C290E0CB41C45CDBCB69C2BAE0CB16 $$:1EDF950061C217E03A90C3BB2006CD9FDEC3FFE0CDA8DE3A8AC3BB2019CB51280DCB10 $$:1EDFB300C93A0AD2CBC7320AD2C3EEE03E183203D2C323DF3A89C3BB200A3E18320328 $$:1EDFD100D21E04C3D4E03A8CC3BB2005CBE1C3FFE03A92C3BB20083E173203D2C3235C $$:1EDFEF00DF3A91C3BB200AAFB2C288E0CBE9C3FFE03A8FC3BB20083E113203D2C32336 $$:1EE00D00DF14CB62CAFFE0C388E0CBA13A8AC3BB20153E183203D21E02CBE9CB51CA07 $$:1EE02B0023DF3EE1A14FC3E0E03A89C3BB200C3E183203D2CBE91E08C3D4E03A91C39A $$:1EE04900BB2004CBE118A63A93C3BB20083E153203D2C323DF3A94C3BB20083E1632E4 $$:1EE0670003D2C323DF3A95C3BB20083E133203D2C323DF3A96C3BB20083E143203D2A0 $$:1EE08500C323DF3E0E3203D2C323DF3A8FC3BB2817733E183203D21105E1ED530CC047 $$:1EE0A3001100003EC1A14FC31BE1CB41C45CDB3E123203D2C323DF3A97C3BB20C8CB7B $$:1EE0C1006120083E103203D2C323DF3E0F3203D2C323DFCB51CA23DF3AB9E5E606B128 $$:1EE0DF004F3A0AD2B3320AD21105E1ED530CC0E53A7DC31145DC2191D9CDD8D8E1116F $$:1EE0FD00000079D908FBED4D08D979DB3477CB69CA1BE1CB61CA48E13A8CC3BE2834DA $$:1EE11B003A90C3BE286B3A8DC3BE28713A8EC3BECAD1E13A8BC3BECACCE13A8FC3BE5B $$:1EE13900CA44E2CB51CA56E13A8AC3BECA0BE23A8CC3BECA51E23E06A17EE273E13EA4 $$:1EE15700FF8047DA71E13AC1E53DF26EE13EF032C1E506007E180532C1E57E23CB412E $$:1EE17500C487DBCBA1CD02DECB592805CD4BDCCB9979D908FBED4DCB41C45CDBCD9FA2 $$:1EE19300DECBA118EECB41C45CDBCD02DECD5BE2EB28053E0132C0E5CB51CAB4E1CBEC $$:1EE1B100492803CD4FDE11F8E2CB69200311B5E2ED530CC0CBA1CB99C386E13640C3B9 $$:1EE1CF00D3E13620CB41C45CDBCD02DECD5BE2EB201A3A0AD2B6320AD23AC0E5B720B5 $$:1EE1ED000DCD70DE28103E1C3204D2C323DF3E1B3204D2C323DF3E1A3204D2C323DF42 $$:1EE20B00CB41C45CDBCB6128063A8CC3CD02DECB91CB492805D5CD4FDED13A0AD2CB40 $$:1EE2290069C239E2CB61C237E2CBC7C33BE2CBE9CBCF320AD23A8AC3C378E1CB41C449 $$:1EE247005CDB3E193204D2C323DFCB41C45CDBCBE1C386E1CBE1EBE322C9E5216CE2C8 $$:1EE26500220CC0EBD1182508D979DB34CB41C45CDBCB612012CD02DE7AB31105E1ED28 $$:1EE28300530CC0ED5BC9E5EBE9CD02DECBA179D908FBED4DEBE322C9E521A6E2220C77 $$:1EE2A100C0EBD118EB08D979DB34CB41C45CDBCD1DDE18C908D979DB3477CB41C45CBB $$:1EE2BF00DB3A90C3BE282DCB592805CD4BDCCB991105E1ED530CC03A8AC3BE200AEDBE $$:1EE2DD005BCDE579D908FBED4D3A8FC3BECA44E2110000C31BE1CD9FDE18E808D979D9 $$:1EE2FB00DB3477CB41C45CDBCB61281CCBA13A8AC3BE201ECDA8DE1105E1ED530CC0C3 $$:1EE31900ED5BCFE579D908FBED4D3A8CC3BE2004CBE118F03A90C3BE2005CD9FDE186A $$:1EE33700E5CDA8DE3A8FC3BECA44E23E0132C0E51105E1ED530CC011000018CA08D969 $$:1EE3550079CB69C266E3CBE9CD8AE479D908FBED4D060421A1E5CD8AE43E0D3202D237 $$:1EE37300CB51C2B1DEC323DF08D979CB59202A3EFF8047380A3AC1E53DFAD2E332C18D $$:1EE39100E53A8CC3BE28267E23D334CB89CB41C469DBCD02DE79D908FBED4DCB99ED57 $$:1EE3AF0053BEE5118EE5CD83E4ED5BBEE518E8CD02DEED53BEE511A5E5CD83E4ED5B10 $$:1EE3CD00BEE52318D4CB61285B3A9EC3B720373A8DC3CD02DEEB2297E506082195E5BF $$:1EE3EB00CB692015060323CBE9CD8AE4CBA9CD33DEFA2CDE11000018A2CD8AE4CD3334 $$:1EE40900DEFA2CDEED5BCFE518933A8DC3CD1DDEB7E21FE4CBFFEB32AAE5060721A832 $$:1EE42700E5CB6920D823060218C13A9EC3B7202C3A8EC3CB5128033A8BC3329EE5CD48 $$:1EE4450002DEED539FE50608219DE5CB6920040523CBE9CD8AE43E0D3202D2C3B1DE52 $$:1EE463003A8EC3CB5128033A8BC332B0E5CD1DDEB7E279E4CBFF32B1E5060721AFE568 $$:1EE4810018CD7832C8E5EB4623E322C9E52198E42208C0E1C39BE408D9793A8CC3BEEF $$:1EE49F00C2ADE4CB69C2ADE42310F4C3BAE47ED334CB89CB41C44FDB2310132AB6E51F $$:1EE4BD002208C03AC8E5472AC9E5E5210000EBC979D908FBED4D083E28D33608FBEDA1 $$:1EE4DB004D08D979DB34CB41C45CDB79D908FBED4D08D9793AF53FCB7F28083E0A321B $$:1EE4F900C2DAC323DF3E10D3363A85C3E60328263A92D9B7DB362016CB5F201CD5E5D1 $$:1EE517003A7CC31138DC2195D9CDD8D8E1D11808CB5F2806AF3292D9DB36CB79281B2E $$:1EE53500CB712809CB6F2813CDD8DD180EDB36CB6F20083E0A32C2DAC323DF79D90896 $$:1EE55300FBED4D08D9793AF53FCB7F28083E0A32C2DAC323DF3E01D336DB36AFD33647 $#:1DE571003E30D33679D908FBED4D00180410010405E003C000D3E4ECE4DCE456E52C # :05E5D1000112CA050162 :02E5DA00F8E562 :02E5E40043CB27 :01E5D6000341 :02E5DC0006E651 :02E5E60044CB24 :01E5D7000241 :02E5DE0006E64F :02E5E80044CB22 :01E5D800053D :02E5E00006E64D :02E5EA0044CB20 :01E5D9000041 :02E5E200D2E580 :10E5EC0045CC0234CA0124D2E57ECB0358CA0208BA :02E5FD0006E630 :02E601008BCBC1 :01E5FC00001E :02E5FF00EFE546  :07E6030045CC0464CA0209C2 :02E60B0014E613 :02E60F0092CBAC :01E60A00000F :02E60D00EFE537  :07E6110045CC0528CB021DDA :02E6190022E6F7 :02E61D00ACCB84 :01E618000001 :02E61B00EFE529  :07E61F0045CC0670CA03257B :02E6280006E604 :02E62E0043CBDC :01E6260024CF :02E62A0043E6C5 :02E63000C9CB54 :01E6270000F2 :02E62C00EFE518  :07E6320045CC070FCB020AE3 :02E63A00EFE50A :02E63E005FCCAF :01E639000DD3 :02E63C00EFE508  :07E640004DCC0880CA0A0A54 :02E65000EFE5F4 :02E6640059CC8F :01E647001EB4 :02E6520035E6AB :02E666009BCC4B :01E6480007CA :02E6540035E6A9 :02E668009BCC49 :01E649000BC5 :02E6560035E6A7 :02E66A009BCC47 :01E64A000FC0 :02E65800EFE5EC :02E66C0047CC99 :01E64B000CC2 :02E65A00D5E603 :02E66E00B7CC27 :01E64C0011BC :02E65C00AAE62C :02E67000D4CC08 :01E64D0023A9 :02E65E0079E65B :02E67200F0CCEA :01E64E0010BB :02E6600043E68F :02E6740079D05B :01E64F0000CA :02E6620043E68D  :07E676008CCC09A2CA090ABD :02E68500EFE5BF :02E6970059CC5C :01E67D001E7E :02E6870035E676 :02E6990098CC1B :01E67E000794 :02E6890035E674 :02E69B0098CC19 :01E67F000B8F :02E68B0035E672 :02E69D0098CC17 :01E680000F8A :02E68D00EFE5B7 :02E69F0047CC66 :01E681001187 :02E68F00AAE6F9 :02E6A100D4CCD7 :01E682001D7A :02E6910043E65E :02E6A30011CD97 :01E683001086 :02E6930043E65C :02E6A50011CD95 :01E684000095 :02E6950043E65A  :07E6A70089CC0AF1CA050A43 :02E6B200EFE592 :02E6BC0059CC37 :01E6AE000764 :02E6B40035E649 :02E6BE009BCCF3 :01E6AF001F4B :02E6B60067E714 :02E6C0002DCE5D :01E6B0001D4C :02E6B800C7E6B3 :02E6C20039CD50 :01E6B1002246 :02E6BA002AE84C  :07E6C40020CD0B0FCB020A71 :02E6CC00EFE578 :02E6D00059CC23 :01E6CB000D41 :02E6CE0043E621  :07E6D20043CB0C0FCB030A40 :02E6DB00EFE569 :02E6E10059CC12 :01E6D9001E22 :02E6DD0035E620 :02E6E3009BCCCE :01E6DA000D32 :02E6DF00E8E66B  :07E6E50043CB0D1CCB090A19 :02E6F400EFE550 :02E7060059CCEC :01E6EC000726 :02E6F600EFE54E :02E7080047CCFC :01E6ED000F1D :02E6F800EFE54C :02E70A0047CCFA :01E6EE001E0D :02E6FA0035E603 :02E70C009BCCA4 :01E6EF00101A :02E6FC0079E6BD :02E70E00F0CC4D :01E6F0001712 :02E6FE0079E6BB :02E71000F0CC4B :01E6F1001117 :02E7000019E717 :02E7120055CDE3 :01E6F2001512 :02E7020040E7EE :02E7140089CDAD :01E6F3000026 :02E70400D5E658  :07E7160073CD0E1CCB070AB6 :02E72300EFE520 :02E7310059CCC1 :01E71D000FEC :02E72500EFE51E :02E7330047CCD1 :01E71E0007F3 :02E7270035E((6D5 :02E735009BCC7B :01E71F0010E9 :02E7290043E6C5 :02E7370041CDD2 :01E720001DDB :02E72B00D5E631 :02E7390073CD9E :01E7210011E6 :02E72D00AAE65A :02E73B00C7CC49 :01E7220000F6 :02E72F00D5E62D  :07E73D0073CD0FB2CA070AF9 :02E74A00EFE5F9 :02E7580059CC9A :01E744001EB6 :02E74C0035E6B0 :02E75A009BCC56 :01E7450007CC :02E74E0035E6AE :02E75C009BCC54 :01E746001FB3 :02E7500067E779 :02E75E002DCEBE :01E7470020B1 :02E75200CDE711 :02E760001FCFC9 :01E748001DB3 :02E7540075E767 :02E7620014CED3 :01E7490021AE :02E7560075E765  :07E764009BCD100FCB020A50 :02E76C00EFE5D7 :02E7700059CC82 :01E76B000DA0 :02E76E0043E680  :07E7720056CE110FCB020A85 :02E77A00EFE5C9 :02E77E0059CC74 :01E779000D92 :02E77C0083E731  :07E7800043CB121CCB0E0A73 :02E79400EFE5AF :02E7B00059CC42 :01E78700078A :02E79600EFE5AD :02E7B20047CC52 :01E788000F81 :02E79800EFE5AB :02E7B40047CC50 :01E78900107F :02E79A0079E61E :02E7B60042CE51 :01E78A000E80 :02E79C00CDE7C7 :02E7B8002ACF66 :01E78B001D70 :02E79E00CDE7C5 :02E7BA002ACF64 :01E78C001379 :02E7A000CDE7C3 :02E7BC003DCF4F :01E78D00117A :02E7A20040E74E :02E7BE005DCE2E :01E78E001773 :02E7A40040E74C :02E7C00065CE24 :01E78F001475 :02E7A60040E74A :02E7C200D8CEAF :01E790001672 :02E7A80040E748 :02E7C40088CEFD :01E791001572 :02E7AA0040E746 :02E7C60085CEFE :01E792001274 :02E7AC002AE859 :02E7C800E8CE99 :01E79300186D :02E7AE0078E809  :07E7CA00E8CE130FCB030A98 :02E7D300EFE570 :02E7D90059CC19 :01E7D1001E29 :02E7D50035E627 :02E7DB009BCCD5 :01E7D2000D39 :02E7D700E0E779  :07E7DD0043CB141CCB0E0A14 :02E7F100EFE552 :02E80D0059CCE4 :01E7E400072D :02E7F300EFE550 :02E80F0047CCF4 :01E7E5000F24 :02E7F500EFE54E :02E8110047CCF2 :01E7E6001022 :02E7F70079E6C1 :02E8130042CEF3 :01E7E7001D14 :02E7F900CDE76A :02E815002ACF08 :01E7E8000E22 :02E7FB00CDE768 :02E817002ACF06 :01E7E900111E :02E7FD00CDE766 :02E8190035CFF9 :01E7EA00131B :02E7FF00CDE764 :02E81B003DCFEF :01E7EB001716 :02E8010040E7EE :02E81D0065CEC6 :01E7EC001418 :02E8030040E7EC :02E81F00D8CE51 :01E7ED001615 :02E8050040E7EA :02E8210088CE9F :01E7EE001515 :02E8070040E7E8 :02E8230085CEA0 :01E7EF001217 :02E809002AE8FB :02E82500E8CE3B :01E7F0001810 :02E80B0078E8AB  :07E82700E8CE150FCB040A37 :02E83100EFE511 :02E8390059CCB8 :01E82E001ECB :02E8330035E6C8 :02E83B009BCC74 :01E82F000DDB :02E8350042E8B7 :02E83D0043CBCB :01E8300012D5 :02E83700CDE72B  :07E83F002ACF161CCB0A0AC8 :02E84F00EFE5F3 :02E8630059CC8E :01E846000FC2 :02E85100EFE5F1 :02E8650047CC9E :01E8470007C9 :02E85300EFE5EF :02E8670047CC9C :01E848001DB2 :02E855002AE8AF :02E869002ACFB4 :01E849000EC0 :02E857002AE8AD :02E86B002ACFB2 :01E84A0010BD :02E8590043E694 :02E86D0057CF83 :01E84B0012BA :02E85B002AE8A9 :02E86F00BACF1E :01E84C0011BA :02E85D002AE8A7 :02E8710066CF70 :01E84D0018B2 :02E85F0078E857 :02E873008ACF4A :01E84E0000C9 :02E861002AE8A3  :07E875001FCF1713CB080AA7 :02E88300EFE5BF :02E8930059CC5E :01E87C001883 :02E8850018E990 :02E8950043CB73 :01E87D001288 :02E88700CDE7DB :02E897002ACF86 :01E87E001D7C :02E889002AE87B :02E89900ABCF03 :01E87F00197F :02E88B002AE879 :02E89B00ABCF01 :01E880001A7D :02E88D002AE877 :02E89D00ABCFFF :01E881001B7B :02E88F002AE875 :02E89F00ABCFFD :01E882001C79 :02E89100A4E8F9  :07E8A100C2CF18F1CA050AFD :02E8AC00EFE596 :02E8B60059CC3B :01E8A8000768 :02E8AE0035E64D :02E8B8009BCCF7 :01E8A9001F4F :02E8B00067E718 :02E8BA002DCE61 :01E8AA001D50 :02E8B200C1E8BB :02E8BC003ED04C :01E8AB00224A :02E8B4002AE850  :07E8BE001ED0190FCB030A65 :02E8C700EFE57B :02E8CD0059CC24 :01E8C5001E34 :02E8C90035E632 :02E8CF009BCCE0 :01E8C6000D44 :02E8CB00D4E88F  :07E8D10043CB1A1CCB090A1E :02E8E000EFE562 :02E8F20059CCFF :01E8D8000F30 :02E8E200EFE560 :02E8F40047CC0F :01E8D9000737 :02E8E400EFE55E :02E8F60047CC0D :01E8DA001D20 :02E8E600C1E887 :02E8F8002ACF25 :01E8DB000E2E :02E8E800C1E885 :02E8FA002ACF23 :01E8DC001823 :02E8EA0005E93E :02E8FC0043CB0C :01E8DD00102A :02E8EC0043E601 :02E8FE0057CFF2 :01E8DE001128 :02E8EE00A4E89C :02E900004BD0FA :01E8DF000038 :02E8F000C1E87D  :07E902001FCF1B13CB030A1A :02E90B00EFE536 :02E9110059CCDF :01E909001DF0 :02E90D00C1E85F :02E913002ACF09 :01E90A00000C :02E90F00C1E85D  :07E915001FCF1C13CB020A07 :02E91D00EFE524 :02E9210059CCCF :01E91C0000FA :02E91F00CDE742 $:1EE923002ACFDD2173C3DD7E00DD4601DD7701DD7000DD2177C3DD7E00DD4601DD777D $$:1EE9410001DD7000DD2175C3DD7E00DD4601DD7701DD70002173C2CDF5EA2173C1CDEF $$:1EE95F00F5EA3A83C34F060003032A75C3093A88C3FE0128043E0118033A81C34F0995 $$:1EE97D000922C1C33E02C60247EB2104001910FDEB2180FF0125E9AFED42AFED52F2F0 $$:1EE99B00A0E9C300001104043E0147AFED52FA9DE910F81104043E0147AFED52FA9DD9 $$:1EE9B900E910F8060A110402DD2180D8AFED52FACDE910F83E0A9028CB32D1C33DDD81 $$:1EE9D7002180D8DD77FD2AC1C311040019EB2125E9DD2144D83E02CDE0EADD2150D84B $$:1EE9F5003E02CDE0EADD2180D83AD1C3110402CDE0EADD215CD83E01110404CDE0EA3A $$:1EEA1300DD2164D83E01110404CDE0EA3A90C3573A8CC34F3A8AC3473A8DC3218EE514 $$:1EEA3100360423712372237123722372237223712377232323722372237123702371B8 $$:1EEA4F00232323233A97C3772377237723772336022371237121A8E53A8DC37123777E $$:1EEA6D0023237223722371237023712323233A97C3772377237723772197E23A9EC30C $$:1EEA8B00B7280822A1E122DCE1180B2110EC1102DE010200EDB03A9AC3E603C8473A69 $$:1EEAA9009BC3DD217AD4DD77003ADFEADD770105281D3A9CC3DD217DD4DD77003ADF5A $$:1EEAC700EADD770105280A3A9DC3DD2180D4DD77003ADEEADD7701C9C8B7C847DD757B $$:1EEAE50000DD23DD740019DD23DD23DD2310EFC9E51190EB018000EDB01110EB0180C5 $:0DEB030000EDB0D12110EB010001EDB0C913 $:1EEC1000E5ABF331F0FFFD21CCDAED5E2100C07CED472110C07DD3383E5FD3383E0C38 $$:1EEC2E00D3383E03D339D33AD33BAF32FC3F2F32FD3F32FE3F32FF3F211AC07D328192 $$:1EEC4C00EC011C05217EECEDB3AF2F32F13F32F23F32F33F3E18D336D3372156C93E83 $:19EC6A00C322FDFF32FCFFCDA8D8FB210000220160C305DAC39112008A05 :00EC120101 OH(`(? 4LLLNL`(?:P~=:  ?POHC(poF RWOFd @AAX VDA91781::RJE:4:14:39 644 0 0 7000 5300430462 31373 A91781::RJE:4:14:39 $ 'A91781 +11+4r+123FST  *A91781 91781-18999 REV.6000 <921016.1112> % ************************************************************************ %% * * %% * SNF FILE A91781 * %% * * %% * PRODUCT: 91781A REV.6000 * %% * * %% ************************************************************************ %& Directory: /RJE/ & FILENAME PART NUMBER REV. TYPE DESCRIPTION ' --------------------- ----------- ---- ---- --------------------------------'' A91781 91781-18999 6000 4 SNF FILE '' AMERI.REL 91781-16200 2427 5 USA TRANSLATE TABLE '' CANAD.REL 91781-16201 2427 5 CANADIAN TRANSLATE TABLE '' CON.PAS 91781-18004 2427 4 PROGRAMMATIC DEMO SOURCE '' CON.REL 91781-16004 2427 5 PROGRAMMATIC DEMO RELOC '' DANIS.REL 91781-16202 2427 5 DANISH TRANSLATE TABLE '' DDD63.REL 91781-16030 4010 5 RTE-A LOGICAL DRIVER '' DDV63.REL 91781-16777 2427 5 RTE-6 LOGICAL DRIVER '' DUTCH.REL 91781-16203 2427 5 DUTCH TRANSLATE TABLE '' ENGLI.REL 91781-16204 2427 5 ENGLAND TRANSLATE TABLE '' FINNI.REL 91781-16205 2427 5 FINNISH TRANSLATE TABLE '' FMT.FTN 91781-18021 2427 4 POSTPROCESSOR SOURCE '' FMT.REL 91781-16021 2427 5 POSTPROCESSOR RELOC '' FRENC.REL 91781-16206 2427 5 FRENCH TRANSLATE TABLE '" GERMA.REL 91781-16207 2427 5 GERMAN TRANSLATE TABLE"# ITALI.REL 91781-16208 2427 5 ITALIAN TRANSLATE TABLE #$ KATAK.REL 91781-16213 2427 5 KATA KONA TRANSLATE TABLE $" NATIV.REL 91781-16214 2427 5 NATIVE LANGUAGE TABLE "$ NORWE.REL 91781-16209 2427 5 NORWEGIAN TRANSLATE TABLE $$ PORTU.REL 91781-16210 2427 5 PORTUGESE TRANSLATE TABLE $! REFERENCE_MANUAL 91781-90001 2410 0 RJE PROG REF MANUAL !" RINIT.REL 91781-16002 5000 5 ((INITIALIZATION MODULE "$ RJE.CMD 91781-17001 5000 4 INSTALLATION COMMAND FILE $ RJE.LOD 91781-17003 5000 4 LINK COMMAND FILE RJE.DAT 91781-18100 5010 4 PSI DOWNLOAD CODE  RJE.HELP 91781-17000 2427 4 HELP FILE " RJE.REL 91781-16001 2540 5 USER INTERFACE MODULE " RJELB.LIB 91781-12001 4010 5 GENERAL LIBRARY  RJEXX.REL 91781-16003 5000 5 MONITOR  RJTAB.REL 91781-16005 2427 5 OP SYS TABLE AREA ! ROUTE.PAS 91781-18023 2540 4 POSTPROCESSOR SOURCE!! ROUTE.REL 91781-16023 2540 5 POSTPROCESSOR RELOC !# SPANI.REL 91781-16211 2427 5 SPANISH TRANSLATE TABLE # STAT.FTN 91781-18022 2427 4 FTN STATUS SOURCE $ STD3780.TXT 91781-17002 2427 4 EXAMPLE CONFIGURATION FILE$' SWEDI.REL 91781-16212 2427 5 SWEDISH TRANSLATE TABLE '/PCIF/AB/HPHPHP:::4:8:34 644 0 0 4000 5303165641 33245 /PCIF_AB/AB/HPHPHP:::4:8:34 $ ["HPHPHP + +$v+ *FST * "* MATERIAL LIST: 94202-13301 REV: 6000 CT-94202A 2204"* * (SAME AS MATERIAL LIST: 94202-13502 REV: 6000 ) * (SAME AS MATERIAL LIST: 94202-13601 REV: 6000 ) * * Directory: /PCIF/AB/ * 94202-12001 5005 01 01 5 /PCIF/AB/$ABLIB:::5:47 94202-12002 5005 01 01 5 /PCIF/AB/$ABLBC:::5:51 94202-16001 6000 01 01 5 /PCIF/AB/%PCPAB:::5:89 94202-16002 6000 01 01 5 /PCIF/AB/%PCHAB:::5:47 94202-16003 6000 01 01 4 /PCIF/AB/!PCFAB:::4:47 94202-16006 5005 01 01 5 /PCIF/AB/%ABUP:::5:2994202-16007 5005 01 01 5 /PCIF/AB/%ABDN:::5:3294202-16008 2435 01 01 5 /PCIF/AB/%ABTST:::5:12 94202-16012 6000 01 01 5 /PCIF/AB/%PCPAC:::5:11694202-16013 6000 01 01 5 /PCIF/AB/%PCHAC:::5:59 94202-16016 5005 01 01 5 /PCIF/AB/%PCCHA:::5:15 94202-16019 5005 01 01 5 /PCIF/AB/%PCP2B:::5:54 94202-16020 5005 01 01 5 /PCIF/AB/%PCP2C:::5:67 94202-17001 5005 01 01 4 /PCIF/AB/*AB:::4:1294202-17002 5005 01 01 4 /PCIF/AB/#ABUP:::4:2 94202-17003 5005 01 01 4 /PCIF/AB/#ABDN:::4:2 94202-17004 5005 01 01 4 /PCIF/AB/#ABTST:::4:294202-17009 5005 01 01 3 /PCIF/AB/!PCCA6:::3:12 94202-17010 2606 01 01 4 /PCIF/AB/"PCCA6:::4:694202-17999 6000 01 01 4 /PCIF/AB/A94202:::4:13 94202-18004 5005 01 01 4 /PCIF/AB/[PCPAB:::4:394202-18005 5005 01 01 4 /PCIF/AB/[PCHAB:::4:394202-18006 5005 01 01 4 /PCIF/AB/&ABUP:::4:104 94202-18007 5005 01 01 4 /PCIF/AB/&ABDN:::4:108 94202-18008 2435 01 01 4 /PCIF/AB/&ABTST:::4:33 94202-18009 5005 01 01 4 /PCIF/AB/&ABLIB:::4:15194202-18010 5005 01 01 4 /PCIF/AB/[PCPAC:::4:394202-18011 5005 01 01 4 /PCIF/AB/[PCHAC:::4:394202-18018 5005 01 01 4 /PCIF/AB/&ABLBC:::4:15194202-18021 5005 01 01 4 /PCIF/AB/[PCP2B:::4:394202-18022 5005 01 01 4 /PCIF/AB/[PCP2C:::4:3* * END MATERIAL LIST * /AB/&A/PCIF/AB/$ABLIB:::5:47:128 644 0 0 27400 5303156022 33101 /PCIF_AB/AB/$ABLIB:::5:47:128 $/ [/$ABLIB + + + /FST ,66X>DIAG_STATUS 94202-12001 REV.5005 <880307.1614>&ABLIB::GO6?DIAG_STATUS  .ENTR PC_TRANS}}DDApp`p`p`p`~p*(/`h+`(p|`h(H| (D (G`  }jjǣI33(K(g`h$ `h(` (Y(\ (f`(p|`h(H| (m  `h( `h-`(.j_~ @ @@ry9,,Xw_ AB_ERROR B.Pascal <880307 &ABLIB::GO, )]AB_ERROR .S.ENTR .CPM /)`` No Error. $The command or data size is illegal. 4The remote PC had a faul```t, is off, or disconnected. An IO error occurred at the PC. 4The address is not allowed by protection at the PC. e`` 0The requested function is not allowed by the PC. The PC is in the wrong mode.  ``.The communication zone is incorrect at the PC. (The destination is out of buffer space. The PC is in the wrong mod&~``e. &Error in conversion of block address. ,Improper word format or PLC not responding. `` (Error in file address or Hwy contention. Invalid symbol. &a@``Improper symbol specification format. Invalid PLC_3 word address. Improper file size. x`` ,File size changed during message execution. File size too large. r`` Message size too large. 0Write privileges not granted to remote station. (Up```load/download access is not available. 6Requesting station already has upload/download access. (Shutdown request could not be X``executed. 8Requesting station does not have upload/download access. &Not an error from an Allen-Bradley PC. l `` &Out of range for an Allen-Bradley PC. Unknown status code = 0''9@P`p     'BBA@pMp]((A`\pY((`[p`^pp(`p`@PP((p`UpL`@Mh pH`QxI@I@OH8AA8L(p`Q@N(`(Fp`UpK`@Mh pH`QxI@I@OH88K(`S@MhZ`T@phXp`X@hWp`X@pH`WPP#%%@Hp`S@MhSHMHVH`R@MhVHpH`(H`R@MhVHpH`R@MH`Q@NPN|) 0 d @-L&&XkvPC_WRITED_UNP &ABLIB::GO&#PC_WRITED_UNP Y:.DAD.ENTR PC_TRANSBSWAP ~~}DDA}@p`p{`ʀ(`̈px|(`͐(`̐px|(@p@x||`ˈ@@ppŀ}~{~$@?@tB##X}IT_QUITS&ABLIB::GO# 4IT_QUITS kEXEC.ENTR PCIF_CLOSEPC_UNLOCK %%A  %@&&X}/REPORT_FMP_ERR&ABLIB::GO&5REPORT_FMP_ERR.EIO. .IIO. .DTA. .ENTR .EXIT  ((1(2/,"&dB FMP error during file operation : ",I4,/) (Ah.A-(H`- . @Y7''XREPORT_PCIF_ERR &ABLIB::GO'X(GREPORT_PCIF_ERR --.EIO. .IIO. .DTA. .ENTR .CPM.EXIT AB((_ERRORPCIF_ERROR-222UEEF(U(UTF(ZZFEhw2(Em`@p||ͦ` `@p}p`}(vp~r 88~(mH`G\(///,"&dB",67A2 ,/) "@p11X=t CONVERT_PC_TYPE B.Pascal <880307.1 &ABLIB::GO1\6GCONVERT_PC_TYPE   d.ENTR .MBT \\#DD PLC PLC-2 2/20-LP1 MINI PLC_3 2/20-LP2 2/15 2/30 PLC-4 ?? ?? PLC_5 ?? ?? ?? COMPUTER????????\IIE%%EFxrAhr`plpD`spkEPD(Z(d`D#@npmhr`mAl8D8k(VGIzGl@00X CONVERT_IF_TYPE B.Pascal <880307.&ABLIB::GO0UuCONVERT_IF_TYPE   d.ENTR .MBT (`` 1771-KC/KD 1771-KA 1774-KA 1771-KE/KF 1771-KG ?? 1775-KA Highway 1775-KA Modem 1773-KA Highway 1773-KA Modem ?? 1785-KA Highway ?? ..V` ?? ?? ?? ??????????????.JJە&&xAh`p`pP((`@ph`88(J !a? {@_00XT CONVERT_PC_MODE B.Pascal <880307.&ABLIB::GO0R'CONVERT_PC_MODE   d.ENTR .MBT 44/$$ PROGRAM TEST RUN ?? REM PROGREM TESTRUN/PROG ?? ????????4II%%%%&xRAhR`PLp$`SpK%P$(:(D`$#@NpMhR`MAL8$8K(6'IyL@@m311X @ CONVERT_FW_REV B.Pascal <880307.1614&ABLIB::GO1CONVERT_FW_REV.ENTR .LBT.SBTABCDEFGHIJKLMNOPQRSTUVWXYZ??????HHc$$x>h<h>p`?p7P(&(0`@:p9h9h>887("(/H ? y8 @Utu""XOBSWAP &ABLIB::GO" IBSWAP  A2.ENTR MOD }}HDDA@pK@pJ@pGp`G(.pI`@JhHKpFN(hHKpGLh(HGF88I(2M(D@@J    @HKpFLF} E L @ѽ%%XX$PLC2_FREEZE &ABLIB::GO% PLC2_FREEZE .ENTR PC_TRANS88I `#p`"p`!pp @8@֯o$$X$PLC2_STOP &ABLIB::GO$y PLC2_STOP .ENTR PC_TRANS88G `#p`"p`!pp @8@d'$$X:$PLC2_START&ABLIB::GO${ PLC2_START.ENTR PC_TRANS88H `#p`"p`!pp @8@is3''X+2PLC2_SET_T_SIZE &ABLIB::GO'g PLC2_SET_T_SIZE .ENTR PC_TRANSHH &&A`1p`.p`-pp @0@p @/p*  H--@@?C^&&XM;AB_MEM_CONFIG &ABLIB::GO&)AB_MEM_CONFIG j.DDE.ENTR BSWAP PC_TRANSPC_IDENT/?~~0#EE#p"p!%&'(B$"!#$(G)`p`p`P(O(Q`p`p `p`pb$"!# $(g(F`~pph<<h+x`(q(F`p`(y(F`P(}('(@(((`%''@''&`@@((Fpʻ@@@  @&Eh>>>~~ AB_ERRORlAB_MEM_CONFIG (/BSWAP "CONVERT_FW_REV -CONVERT_IF_TYPE HCONVERT_PC_MODE >CONVERT_PC_TYPE 0 DIAG_STATUS IT_QUITSaPC_WRITED_UNP f PLC2_FREEZE #o~~~*PLC2_SET_T_SIZE ' PLC2_START%} PLC2_STOP $wREPORT_FMP_ERR^REPORT_PCIF_ERR  T_PC_MODE >CONVERT_PC_TYPE 0 DIAG_STATUS IT_QUITSaPC_WRITED_UNP f PLC2_FREEZE #o~AAxxp,pBA(@xAxx (BHp (Q`i`k~~@FDD`l`m`ӆA@c([(B~(d`j?5AAOxA m(o(o/PCIF/AB/$ABLBC:::5:51:128 644 0 0 31400 5303156023 32646 /PCIF_AB/AB/$ABLBC:::5:51:128 $3 [83$ABLBC + + + 3FST 066X)RzDIAG_STATUS 94202-12002 REV.5005 <880310.1546>&ABLBC::GO6?DIAG_STATUS  .EXIT0.CCQB PC_TRANSSDIAG_STATUS t?= `H xpp`p`p`@p`@ p" """J(-`h+ `(p`h(H  (B (E`  rrG33(I(e`h$ `h(` (W(Z (d`(p`h(H (k  `h(`h-`(,r@.n,,XK AB_ERROR B.Pascal <880310 &ABLBC::GO, $AB_ERROR  .CPM.EXIT0.CCQB |SAB_ERROR/)`` No Error. $The command or data size is illegal. 4The remote PC had a faul```t, is off, or disconnected. An IO error occurred at the PC. 4The address is not allowed by protection at the PC. e`` 0The requested function is not allowed by the PC. The PC is in the wrong mode.  ``.The communication zone is incorrect at the PC. (The destination is out of buffer space. The PC is in the wrong mod&~``e. &Error in conversion of block address. ,Improper word format or PLC not responding. `` (Error in file address or Hwy contention. Invalid symbol. &a@``Improper symbol specification format. Invalid PLC_3 word address. Improper file size. x`` ,File size changed during message execution. File size too large. r`` Message size too large. 0Write privileges not granted to remote station. (Up```load/download access is not available. 6Requesting station already has upload/download access. (Shutdown request could not be X``executed. (( 8Requesting station does not have upload/download access. &Not an error from an Allen-Bradley PC. l `` &Out of range for an Allen-Bradley PC. Unknown status code = 0''9@P`p     '== `H x @p !p((`pA((!(!`p`pp(U`p`@|P(7(Tp`؈p `@ h p `)xC::(@@ 88 (;p`)@(%`(p`؈p `@ h p `)x@@ 88 (\` @ h `@php`d rrH}33@hp`d @p ` @ p` @ h H H0H` @ h0Hp `( ` @ h0Hp ` @  `)@@r  d @Ԋ&&XTPC_WRITED_UNP &ABLBC::GO&" PC_WRITED_UNP .DAD.EXIT0.CCQB PC_TRANSBSWAP }W SPC_WRITED_UNP ~~ A; `H x@ p `p`@ (!`? p x(4` (,`? p( x(4 @p @x0"+ 0"`@@@p p@ ~OJ "" ""  @2iQ)##X IT_QUITS&ABLBC::GO# 4IT_QUITS *EXEC.EXIT0.CCQB PCIF_CLOSEPC_UNLOCK SIT_QUITS))  `H x+ 0+@@)  @k+&&X DREPORT_FMP_ERR&ABLBC::GO&AŽ!FORMAT_BUFFER5$REPORT_FMP_ERR!!^!EIO. !IIO. !DTA. .EXIT0!EXIT .CCQB !w SREPORT_FMP_ERR8$  `H x ))Y (2/,"&dB FMP error during file operation : ",I4,/) ))) ,h  %;0 @ `(?(BP )@R''XS[REPORT_PCIF_ERR &ABLBC::GO'A  !FORMAT_BUFFERWREPORT_PCIF_ERR 22 m!EIO. !IIO. !DTA. .CPM .EXIT0!EXIT .CCQB AB_ERRORPCIF_ERROR2 SREPORT_PCIF_ERR ..yc S`H x A(()"()0( (/@" .ݰ (///,"&dB",67A2,/) d/h P % R$aD`@p ` $7 ` @p p` (OpK88(D%O p ` (V(Y    @11XG6 CONVERT_PC_TYPE B.Pascal <880310.1 &ABLBC::GO1\ CONVERT_PC_TYPE .EXIT0.CCQB .LDX.MB00  SCONVERT_PC_TYPE \\#DD PLC PLC-2 2/20-LP1 MINI PLC_3 2/20-LP2 2/15 2/30 PLC-4 ?? ?? PLC_5 ?? ?? ?? COMPUTER????????\YY ,, `H x `( h `FEp`pP($(0`#@Dp `p h ` E88( Y uD @=00Xw.7 CONVERT_IF_TYPE B.Pascal <880310.&ABLBC::GO0U CONVERT_IF_TYPE .EXIT0.CCQB .LDX.MB00  SCONVERT_IF_TYPE (`` 1771-KC/KD 1771-KA 1774-KA 1771-KE/KF 1771-KG ?? 1775-KA Highway 1775-KA Modem 1773-KA Highway 1773-KA Modem ?? 1785-KA Highway ?? ..V` ?? ?? ?? ??????????????.[[ -- `H x `( h `p`pP($(1`@p `p h ` AH88( @[._ ? @z00Xs'6 CONVERT_PC_MODE B.Pascal <880310.&ABLBC::GO0Q CONVERT_PC_MODE .EXIT0.CCQB .LDX.MB00  SCONVERT_PC_MODE 44/$$ PROGRAM TEST RUN ?? REM PROGREM TESTRUN/PROG ?? ????????4YY= ,, `H x `( h `&%p`pP($(0`#@$p `p h ` %88( Y t$@ @K11X4 CONVERT_FW_REV B.Pascal <880310.1546&ABLBC::GO1 CONVERT_FW_REV P.EXIT0.CCQB .LBT.SBTS SCONVERT_FW_REVABCDEFGHIJKLMNOPQRSTUVWXYZ??????YY9 ++ `H x `(H hh @p`pP("(.`@p `p h H@h H88((-Y-  ?  @y""XMBSWAP &ABLBC::GO" RBSWAP  .EXIT0MOD .CCQB #SBSWAP }}B@ `H x @p @p @pp`(4p `@ hH p (hH ph(H 88 ( !(K@@     @H }Gp    @/%%Xsp&PLC2_FREEZE &ABLBC::GO%"PLC2_FREEZE .EXIT0.CCQB PC_TRANS SPLC2_FREEZE :: `H x `p`p`@p p " ""  " :@$$X;+%PLC2_STOP &ABLBC::GO$yPLC2_STOP .EXIT0.CCQB PC_TRANSҞSPLC2_STOP :: `H x `p`p`@p p " ""  " :@F-$$X=Q%PLC2_START&ABLBC::GO$|PLC2_START.EXIT0.CCQB PC_TRANSSPLC2_START:: `H x `p`p`@p p " ""  " :@4x''X)E1PLC2_SET_T_SIZE &ABLBC::GO'g PLC2_SET_T_SIZE .EXIT0.CCQB PC_TRANSê SPLC2_SET_T_SIZE OO '% `H x `p`p`@pp  @@ p @"p "" "  @O@ک&&XV" AB_MEM_CONFIG &ABLBC::GO&y AB_MEM_CONFIG ""^-.DDE.EXIT0.CCQB BSWAP PC_TRANSPC_IDENT"_8 SAB_MEM_CONFIG /?~~W D@ "`H x p p   "" (-`p`@ p`P(5(7`@p`p`p`@p@ "" ""(N~wwEM@<(,`h+x`(X(,`p`(`(,`P(d(r" P $  (`"P  @   `@@ (,w  @zu+++~~ AB_ERRORuAB_MEM_CONFIG ,/BSWAP %CONVERT_FW_REV#CONVERT_IF_TYPE hCONVERT_PC_MODE  CONVERT_PC_TYPE & DIAG_STATUS IT_QUITS)PC_WRITED_UNP  PLC2_FREEZE '~~~PLC2_SET_T_SIZE *q PLC2_START)R PLC2_STOP (3REPORT_FMP_ERRLREPORT_PCIF_ERR AT_PC_MODE  CONVERT_PC_TYPE & DIAG_STATUS IT_QUITS)PC_WRITED_UNP  PLC2_FREEZE '~ ``` /PCIF/AB/%PCPAB:::5:89:128 644 0 0 54400 5303156025 33465 /PCIF_AB/AB/%PCPAB:::5:89:128 $Y [lY%PCPAB + + + Y,^x>FST ((99Xư8PCPAC 94202-16001 REV.6000 <901214.1 901218.0854 &PCPAB::BIN39 )PCPAC  PCPAC PCPAC 901218.0854 1 0 PCPAC PCPAC 901218.0854 1 0MMFTYPE BYTE=-128..127;WORD=-32768..32767;MSG_TYPE=RECORD OFFSET:WORD;LENGTH:WORD;STATUS:WORD;CASE INTEGER OF 0:(FONCTION:WORD;PARAM1:WORD;PARAM2:WORD;MNN PARAM3:WORD;PARAM4:WORD;);1:(WORD_ARRAY:ARRAY[1..5]OF WORD;);2:(BYTE_ARRAY:PACKED ARRAY[1..10]OF BYTE;);END;ACTIVATION_CONTEXT_TYPE=RECORD EVENT:WORD NMM-;ACTION_FLAG:PACKED ARRAY[1..16]OF BOOLEAN;ACTION_CODE:WORD;PC_TYPE:WORD;PC_CAPABILITY:PACKED ARRAY[1..16]OF BOOLEAN;APPL_ID:WORD;REQUEST:MSG_TYPE; MKKSUB_REQUEST:MSG_TYPE;END;BUFFER_AREA_TYPE=PACKED ARRAY[1..8192]OF BYTE;HEADER_AREA_TYPE=PACKED ARRAY[1..17]OF BYTE;CONST PC_READD=1;PC_WRITED=2;KNNd0PC_READP=3;PC_WRITEP=4;PC_TRANS=8;PC_READD_EXT=9;PC_WRITED_EXT=10;PC_READP_EXT=11;PC_WRITEP_EXT=12;PC_WRITEB_EXT=13;PC_FREEZE=15;PC_START=16;PC_STOP= NLL17;PC_ENUNSOL=18;PC_DIUNSOL=19;PC_CONNECT=20;PC_DISC=21;PC_PCSTAT=22;PC_SYSTAT=23;PC_CANCEL=24;PC_LOCK=25;PC_UNLOCK=26;PC_GETKEY=27;PC_RELKEY=28; LMMկPC_CLOSE=29;PC_IDENT=30;PC_ASSOC=31;PC_CALIBRATE=32;PC_CONTINUE=33;PC_CYL_STOP=34;PC_DIR=35;PC_DISASSOC=36;PC_HOLD=37;PC_MAPIDENT=38;PC_MAPSTAT=39; MJJ:fPC_PRGM_DEL=40;PC_PRGM_SEL=41;PC_RLNQCNTL=42;PC_TAKECNTL=43;PC_CALL0=64;PC_CALL63=127;INITIALIZATION=1;REQUEST_INITIATION=3;REQUEST_REENTRY=4;JGGÿ#SUB_REQUEST_COMPLETION=6;UNSOLICITED_SUB_REQUEST=7;REQUEST_CANCELATION=8;NO_ACTION=1;SEND_SUB_REQUEST_WAIT=2;SEND_SUB_REQUEST_NOWAIT=3; GJJëSEND_REQUEST_COMPLETION=4;SEND_REQUEST_SUB_REQUEST=5;RESET_HIGHWAY_HANDLER=6;WAIT_REQUEST_BUFFER=7;WAIT_SUB_REQUEST_BUFFER=8;CAPABILITY_RW=1; JCCËCAPABILITY_PR=2;CAPABILITY_TR=3;CAPABILITY_UN=4;CAPABILITY_ST=5;ACTION_FLAG_EI=16;ACTION_FLAG_EU=15;SR_STATUS_MSG_SKELETON=235; CJJG\SR_STATUS_NO_AVAILABLE_MEMORY=236;SR_STATUS_NO_MATCH_FOUND=237;SR_STATUS_BUFFER_ALREADY_ALLOCATED=239;SR_STATUS_MORE_THAN_ONE_CREATE_UNS=240; JNNPSR_STATUS_CALL_MADE_BY_PC_HANDLER=243;SR_STATUS_NO_MSG=245;SR_STATUS_EXCEED_BUFFER_SIZE=246;SR_STATUS_NEGATIVE_OFFSET=247;SR_STATUS_NO_UP_BUFFER=248; NNN\sSR_STATUS_NO_ALLOCATED_BUFFER=249;SR_STATUS_INVALID_MSG=250;SR_STATUS_INVALID_MSG_TYPE=251;SR_STATUS_INVALID_CALL=252;SR_STATUS_LENGTH_TOO_LARGE=253; NIIeSR_STATUS_INVALID_LENGTH=254;SR_STATUS_UNKNOWN_MSG_TYPE=255;TYPE GT_BIT=0..1;GT_NIBBLE=0..15;GT_BYTE=0..255;GT_WORD_BYTE_TAG=(B16,B08,B01); IMMGT_WORD_BYTE=PACKED RECORD CASE BOOLEAN OF TRUE:(WD:WORD;);FALSE:(BT:PACKED ARRAY[1..2]OF BYTE;);END;GT_BUF_LEN_TYPE=PACKED RECORD CASE BOOLEAN OF MMMß1TRUE:(WD:WORD;);FALSE:(TYP:0..3;SIZ:0..16383;);END;GT_WORD_BYTE_BIT=PACKED RECORD CASE GT_WORD_BYTE_TAG OF B16:(WD:WORD;);B08:(BT:PACKED ARRAY[1..2]MNNùOF BYTE;);B01:(BI:PACKED ARRAY[1..16]OF GT_BIT;);END;GT_PC2_CONTEXT=RECORD IO_LENGTH:WORD;DATA_UNIT:WORD;DATA_LENGTH:WORD;DATA_INDEX:WORD;PLC_ADDRESS NJJ×2:GT_WORD_BYTE;WAIT_COMPL_BUFR_FLAG:BOOLEAN;END;GT_PC_CONTEXT=RECORD MAX_PKT_SIZE:WORD;LAST_PKT_SIZE:WORD;NO_OF_PACKET:WORD;BUFFER_INDEX:WORD; JHHwTOTAL_TRAN:GT_WORD_BYTE;PACKET_OFFSET:GT_WORD_BYTE;LOGICAL_ADDR:PACKED ARRAY[1..20]OF GT_BYTE;LOGICAL_ADDR_LEN:WORD;UP_DOWN_FLAG:BOOLEAN; HLL_WAIT_COMPL_BUFR_FLAG:BOOLEAN;END;GT_HW_CONTEXT=RECORD TNS:WORD;TNS_UNSOLICITED:WORD;UNSOL_DST:WORD;UNSOL_SRC:WORD;UNSOL_CMD:WORD;UNSOL_ERROR:WORD;LMMUNSOL_LENGTH:WORD;CONNECT_FLAG:BOOLEAN;WAIT_BUFR_FLAG:BOOLEAN;STEP:WORD;BAUD_RATE:WORD;END;GT_BYTE_BIT_TAG=(BIT08,BIT01);GT_BYTE_BIT=PACKED RECORD MNNCASE GT_BYTE_BIT_TAG OF BIT08:(BYT:BYTE;);BIT01:(BIT:PACKED ARRAY[1..8]OF GT_BIT;);END;GT_BYTE_NIBBLE=PACKED RECORD CASE BOOLEAN OF TRUE:(BYT:BYTE;); NMMhFALSE:(NIB:PACKED ARRAY[1..2]OF GT_NIBBLE;);END;COMPLETION_TYPE=WORD;CONST IDLE=1;COMMAND=2;PLC=1774;PLC2=1771;PLC3=1775;PLC5=1785;PLC2_DATA_LENGTH=MMM242;PLC5_MAX_READ=122;PLC5_MAX_WRITE=119;GC_CTL30B=1536;GC_CTL33B=1728;GC_PC_H_ENTER_ERRORED=234;GC_PC_H_NOT_ALLOWED=128;GC_PC_H_INVLD_LGT_UNIT=132;MGGGC_PC_H_INVLD_LGT=133;GC_MESS_LENGTH_250=250;GC_TRANSPARENT=-32760;GC_CONNECT=-32748;GC_HW_H_ERROR_OFFSET=512;GC_HW_H_ENTER_ERRORED=361;GGGy+GC_CARD_ERRORED=256;GC_HW_H_CANT_ARM_IO=360;GC_NACK_10_RECEIVED=257;GC_PROTECTED_WRITE=0;GC_UNPROTECTED_READ=1;GC_PROTECTED_BIT_WRITE=2;GHHGC_PRIVILEGED_WRITE=3;GC_PRIVILEGED_READ=4;GC_DIAGNOSTICS=6;GC_OUTPUT_CONTROL=7;GC_WORD_RANGE_WRITE=0;GC_WORD_RANGE_READ=1;GC_BIT_WRITE=2;HFFmbGC_FILE_WRITE=3;GC_FILE_READ=4;GC_DOWNLOAD_REQUEST=5;GC_UPLOAD_REQUEST=6;GC_SHUTDOWN_REQUEST=7;GC_PHYSICAL_WRITE=8;GC_PHYSICAL_READ=9;FJJjGC_RESTART_REQUEST=10;GC_PLC3_DIAGNOSTICS=11;PROCEDURE PC_PC_HAND_AB$ALIAS'PC_PC_HAND_AB'$(VAR ACTIVATION_CONTEXT:ACTIVATION_CONTEXT_TYPE;VAR J$$dDATA_AREA:BUFFER_AREA_TYPE;VAR PC_CONTEXT:GT_PC_CONTEXT);IMPLEMENT$ PCPAC PCPAC 901218.0854 1 0@&;D==X9[ư8PC_PC_HAND_AB 94202-16001 REV.6000 <901214.1 901218.0854 &PCPAB::BIN3=PC_PC_HAND_AB yy.DIV.ENTR .LBT .SBTALLOCATE_BUFFER CREATE_UNSOL_REQFLUSH_SUB_REQUES PAS.BITDEPOSIT1 PAS.BITEXTRACT1 PAS.BITMASK1 PAS.BOUNDINTEGERPAS.NONCDSPAS.SETINIT PAS.SINGLEMOD RELEASE_BUFFERyt??`py`pzp`wP$( P%(&(@`y@)Pv(%`y@)(Ap`y@)hv$p(B`y@1Pv(?`y@1A(65p`y@1hv>p~~?77(B`Ip`y@)@% px`z@5 `P#(SPD(V(kpx(t`wP$(Z(^`y@%h*`wP%(b(f`y@%h+`z@5 (t`y@)@%h`y@%h'`x}~Q8~==A{{pw|pv`%px(`p`p`P$(P%((`@1hH@A@(`@1h@pp`@%p`A@(`@)@@@ZlFFp p`@1@@@ZpA `@)@@@Zp p`@1@@@Zp `@%p(((`@)ԬCC@@@ZpA  p`@1@@@Zp (`@)hH@A@(3`@)h@pp`@%p`A@(`@1@'DFF@@ZpA Op`@)@@@Zp _`@1@@A@Zp mp`@)@@A@Zp ~`@%Ap(5((@@!a `@1@@@Zp p`@)@@A@Zp (@,>>Apppp(`pT`pU`T@)hTH)H)@ZpVA VGpV`NHP0VHpN`T@)hTH)H)@ZpV VGpV`NP0VpNt>>`NPY((`T@)@)P%( P'(P)(P+(P-(%(,`U@)@6H (2`U@)@6`& (2`U@)@H6`* (2`U@)@6`2 (2`U@)@6` pQ4CC`%pR`T@)@) %(pVpS`T@)@Q@ZpWA SWGpW`PHP0WHpP`T@)@QA@ZpW iWGpW`PP0WpP`PA@G(w??`U@)@6@RH`GH hP(`U@)@6pW`R@ZHH`W hP`U@)@6pW`R@%@ZH`W `R@%pR(hP(`U@)@6pW@RH`WH `Q@%pQ`RpR8S8V(F`U@@@3HR(M`U@)@H6 `T@)@)(pVpS`T@)@S@Z@ZpW WhUH)6pW`S@ZH`W 8S8V(`U@)@6`T@)@)@%@ZH `U@3<(Bp>@@(`)p?`B@3(=pCp@`B@)@6@@HHpD`A@1@?@@@ZpE :ED8@8C("`A@)@&P,(HP-(hP0((=`A@1@)@ZpC VCUAA`A@1hBH3@.A@ZpC gC>(=`A@1@)@ZpC vC`A@)@)@%hBH&pC`B@3@.pDCD>`B@&hBH&H>`> @~~@@%hBH(H`B@((=`A@1@)@ZpC C `A@)hAH)H)@%A@ZpC CpC`A@1@*hBH3@ZpD DC`A@)hAH)H)~oCC@%@ZpC CpC`A@1@+hBH3A@ZpD DC`A@)hAH)H)@%@&@ZpC CpC`A@1@,hBH3A@ZpD DC`ALL_|%%@)hAH)H)@%@%A@ZpC *CpC`A@1@-hBH3@ZpD <DC(=FLFG<<8F(`pˈ`p`@&PK(S(ʈ`@)@&P$(hP%(wP&(hP'(wP0(P2(P3(P4((`@1@)@Zp v (ʈ`@1@)A@Zp EE (`ˈ@1@)@Zp (`@1@)@ZpA  (`@4 `@1@)@Zp  (ʈ`@4 `@1@)A@Zp  (ʨ (<<8(I`pꈈ`p`@1@&hH)H&`@)@&P$(ꈈP&(P9(P;((`ꈀ@)@' p}숁p(}p(}p(p逈`(`C ::@)@&P$()P%(/P&()P'(/P+(?P,(\P-(gP0(P2(P3(P4(P9(P;((}-p(`@)@' @.p}=p(`@)@'p`VE<<.&P$(J(N`Mp舀(S`M p`@)p}Zp(`눈@3@/p}e숈p(`@%(m(y`@3@.p}wp(`@3@.h pJs::}숈p(`@3@*@'p}숁p(}p(`(`ꈈ@%h%`ꈈ@)@&P$(P%(P&(P'(P+(P,(P-(P0(P2(ZP3(P4(P78F@@(P9(P;((È(F(ለ`@1@&hN`@)@)ph(x`@1@%@ZpA 숈`@1@&A@Zp `(pp`@)9DD@@Z@Zp p`@1@@(@ZpA 툈88((ለ`@1@%A@Zp )`@4(=`ꈈ@1@)@Zp <(K`@1v?GG@)@ZpA K`@1@&A@Zp Y(`ꈈ@1@%@Zp h`@1@)@Zp v`ꈈ@1@&@Zp (` GG@1@%@Zp `@1@)@Zp `ꈈ@1@&@Zp (`@1@%@ZpA `@1@)A@Zp `22C>@1@&@Zp (`@1@&hO(၀2d~668(`p p ` @)@'p ` @)@(p ` @)@&P$( )P%( )P&( )P'( )P+( kP,( P-( P0( P2( P3( P4( P5( P6( {P7( P8( zP9( P:( z'  &AAP;( ( ` @)@& p !( K ` @` x ,H @ ( K`@p ( M`?p ` .&( e` M( W( e` Mp` A@( ep ( j` @)~~A g<<@%hB( ` ( q` ( w` @)@%hB( yp ( ( ` @X( ` @0%( ` @)@)h H)H'@A@( p ( ` @)@%hB~ ( p ( ` @)@%hA`  ff //A `%p ( `p `p  ( ` @)@&P,( P-( P0( ( X  ( X (  ` @Y( ` @%h' f u DD8 ( `p Z` Z@)@Zp [  [` Z@1@)@Zp [   [P#( :ư3PC_HW_HAND_AB 94202-16002 REV.6000 <901214.1 901218.0850 &PCHAB::BIN3='`PC_HW_HAND_AB {{ .ENTR ALLOCATE_BUFFER CREATE_UNSOLICITEXCHANGE_BUFFER FLUSH_IO_MSG PAS.BITDEPOSIT1 PAS.BITEXTRACT1 PAS.BITMASK1 PAS.BOUNDINTEGERPAS.NONCDSPAS.SETINIT RELEASE_BUFFERRETRIEVE_MSGSET_WINDOW{~~JrDD`]pd`_pe`d@wpf`d@}@pgA e^gddf`d@}A@pf "e^fddfeA@(-e(0eeep[h[(xf`d@}@v@pgA De^gddf~FFȢD h[xf`d@}@w@pg Ue^gddf`d@x@ye`d@}@uht`d@ththFUiBB8h(`]pˈ`_p`@}@p {e^ddhHt`@}@p e^ddhHu`@}@t@p e^ddhHv`@}@w@p e^ddEE$ p`[H0̀Hp[`@}@vA@p e^ddp`[0p[`h[EAA8(k`]pH`_pI`I@upJ`H@}A@pK e^KddJ`I@tpJ`H@}@pK e^KddJ`I@v@pJ`H@}@tA@pK  e^KddJ`H@}@u@pJ@ jj088e^Jddd`Ip[h[(xJ`H@}@v@pK -e^KddJh[xJ`H@}@wA@pK >e^KddJ`H@}@uht`H@thtLj/3M>>8L(`]p̈`_ppZ`Pt([Pu(u(`@xP(t`@xA(kjgpZ`@xhsgpZ(`@}P(`@}(AhpZ`@}hɄP99hpZ(`pZ`@}@t p`ZPr(P((p`@z (`Pu((`@thz`Pt((`@thy`@z (`̈@}@thZ`@t `?)@y `ˀI88A pʈp`tpˈ(O`]p`_p`@}@t(`ˆ@{Ps(Pt(Pu(8Pv(TPw(p(`@}@uh`@vy((@h_H|hH}Hv`@0v$ 77`@thu`@{hH{ (`@}@uh`@vy@h_H|hH}Hv`@0v`@thu`ˆ@{hH{ (`@}@uh`@}@v>@::h`@{hH{ `@0v`@thu(`@}@uh`@}@vh`@0v`@thu`@{hH{ (thi(`@}@uhwUz88`@x@u(`@thw(`@tht`@{ `@y (`@}@t(`@x@th`@thv`@y `@{ ((`@x@thH}Ht'' `@thv`@{ `@y 'I@@8(`]pT`_pU`T@}@w@pVA e^VddpV`[H0VHp[`T@}@v@pV e^VddpV`[A0Vp[[pZ`Z(I`T@}@ypVgV(H`TQ>>@x@thTH}Ht`T@}@y(7pVpS`T@}@S@@pW $e^WddpW`T@x@S@@pXA 4e^XddW8S8V(`T@x@thTH}Ht`T@}@u..KBhw`T@thw(R`T@}@uhw`T@thtY.RRwZ((8Y(`]p`_p`@wh`@z(kkohj(Ls`@}@u@p e^ddRI>>A p(\`]ph`_pi`h@}@w@pj e^jddpj`[H0jHp[`h@}@v@pjA e^jddpj`[0jp[`iP[(b`ih[`h@}@teEEA@pj e^jddpj`gH0jHpg`g(~P~((`h@}@x@pj e^jddpfkhkdhf`@`gxj(~ ,HjH@ ($`g(~P~( (^`f@  FF!(^@|gkdl`@`fx ,HH@ (^`h@}@p 1e^ddp6dpZ`Z(Z<>pZADhmjpZ`h@x@yh`i@xhhH}Hy..OQLS`h@0z(]]h(aan(eed.?w@@8(k|`]p`_p`@x@yA(opZ`Z(pZ`@xpg(`@x@thH}Ht`@x(䀈pp`@}@@A@p e^dn<<dp`@x@@@p e^dd88(È`@}@uhw`@thw(hi(`@tht`@}@uhw(`@}@t(`@x@thH}Ht% `@thv(`@t t!>>8(`]p~`_p`~@}@t(r`~@}@yA@x(r`~@}@yp`A@(r`~@}@tA@p Ne^ddp`}H0Hp}`~@}@u@GG[!!p ce^ddp|`}.sPs(l`|(oYn(qq({`~@}@uhw`~@thtG ::8(`]p`_p`@}@xp`!sPs(`@}@uPt(Pw(((`@z((`@wp(`@t (`@{ `@y  @ h998(`]p`_p`@thv`@y(`@x@uP((`@x@uP(㈈`@x@th`@y((pZ`Z(h`@0z(`@x@thZMM##8(`]p&`_p''`' `'@y `'@{ `'@z `&@t `&@0s(Mpp)118((`]p\\Ps(9Pu((YA(YD(Y`\@thvAKh\HxHt(Y`\@thv`\@x@th`paA ](+(g//rr  @hil@/@-'`' `'@y `'@{ `'@z `&@t `&@0s(Mpp)118((`]p\\Ps(9Pu/PCIF/AB/!PCFAB:::4:47:36 644 0 0 27400 5303156036 33427 /PCIF_AB/AB/!PCFAB:::4:47:36 $/ [/$!PCFAB + + + /1FST #:1E40100021F94222EC5721B546226C5821F84722EC58213F48226C5921864822EC5924 ##:1E402E0021CD48226C5A21144922EC5A215B49226C5B21A24922EC5B21E949226C5C10 ##:1E404C0021A24A22EC5C21F24A226C5D316E57211241110155017401EDB00178002119 ##:1E406A007456117556EDB0DD2101553E54ED47ED5E3E90D30A21D4512201403EA5D386 ##:1E4088003A3E90D33A3E5FD32A3E01D32A3E55D30AD31A3E30D30A3E0CD31A21FF40F0 ##:1E40A6003E1706024FEDB3D602FE0F20F521534206093C4FEDB3FE1720F3010807216D ##:1E40C4000A41EDB3FB210000220020C38642801590801560401583C055D6401560C0B8 ##:1E40E2005560405560405540C0550C80550C40550C80550340550340550C40550C02EA ##:1E41000080027002600250011400C391129800008A09141514141514151400000100B1 ##:1E411E000000000000EC5700010000000000006C580001000000000000EC5800010035 ##:1E413C0000000000006C590001000000000000EC5900010000000000006C5A00010092 ##:1E415A000000000000EC5A00010000000000006C5B0001000000000000EC5B000100F0 ##:1E41780000000000006C5C0001000000000000EC5C00010000000000006C5D8C5D0065 ##:1E4196000000878C5E000000000000008C5F000000878C60000000000000008C61004F ##:1E41B4000000878C62000000000000008C63000000878C64000000000000008C650021 ##:1E41D2000000878C66000000000000008C67000000878C68000000000000008C6900F3 ##:1E41F0000000878C6A000000000000008C6B000000878C6C0000000000000000008C32 ##:1E420E006D00008C6E0000008C6F00008C700000008C7100008C720000008C7300003A ##:1E422C008C740000008C7500008C760000008C7700008C780000008C7900008C7A005F ##:1E424A0000008C7B00008C7C00044603C10568011600FFFFFFFFFFFFFFFFFFFFFFFFC1 ##:1E426800FFFFFFFFF6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F60415151515151515150030 ##:1E42860000FD210A550E0CDD7E00FDA60057DD7E01FDA601B257DD7E02FDA602B2571A ##:1E42A400DD7E03FDA603B257DD7E04FDA604B257DD7E05FDA605B257DD7E06FDA606C5 ##:1E42C200B257DD7E07FDA607B22820C5FDE5ED73EC56FD6E08FD6609F9C9210000398B ##:1E42E000ED7BEC56FDE1FD7508FD7409C1110A00FD190DC28D42C38742FDCB0186FDDC ##:1E42FE00CB00C6FDCB07C6CDDC42FDCB0086FDCB0786DDCB004620183A805DFE012092 ##:1E431C0004DDCB0586DDCB0786210020AF77237718CF3A6F5DE6C0F21446DBFFCB474B ##:1E433A0020FA2A013022705D214843C31746A6465A43804367440B4520451A453445B1 ##:1E435800F7453A6E5D215256010800EDB9280601D0BAC3A64621A75609CB562805CBE6 ##:1E437600DEC3A34601FE00C3A6463A6E5DCD6C4DC50CDDCB008621FB551109000D28A7 ##:1E439400031918FAED4B705D78CB9623E607470B232323235E23562371E5D578FEFF77 ##:1E43B20020053A0120187179FE0020183A0120DBFFCB472809DDCB074628F4C35D4448 ##:1E43D0003A00201218543E7DD3082100207DD3087CD30879D30878D3083E14D3083E5F ##:1E43EE0010D3083E8DD3087BD3087AD3083ECFD3083EABD3083E87F3320120D308FBE8 ##:1E440C00FDCB02C6FDCB07C6CDDC42FDCB0286FDCB0786DDCB0246CA5D44DDCB028652 ##:1E442A00ED4B705DCB4128033A0120D1E13EFFBE2003C11809C1F321015509CBDEFB53 ##:1E444800DBFFCB472809DDCB074628F4C321433A0120C3FD42D1E1C13EC3D308C32171 ##:1E446600433A705D4FE6073C21FB551109003D28031918FA79CB7F2004CB861802CB3B ##:1E448400C6214B56E6075F160019D53A715DE620FE203A6E5D200411080019D1773A39 ##:1E44A200715D47790F0F0FE60FCAA3460E0ACB6028020E1AD521D2401103003D280380 ##:1E44C0001918FA3A4356E63FB6324356D1237EED79237EED793A715D4FE60F473A434B ##:1E44DE0056E6F0B032435679E6C0473A4556E63FB03245563A4756E69FCB38B03247B4 ##:1E44FC00563E10834F2142560609EDB3C3A346CD884D11050019ED4B705D71C3A34625 ##:1E451A000100C0C3A646CD884D11090019AF23232323ED4B705D23C3A346CD884DC5C8 ##:1E453800DDCB0086ED4B705D7E235623863001145F3E7DD3087BD3087AD30879D30859 ##:1E45560078D308CB412806EB093E2077EB3E14D3083E10D3083E8DD3083E00D3083EB3 ##:1E45740020D3083ECFD3083EABD3083E87D308E5C5FDCB02C6FDCB07C6CDDC42FDCB60 ##:1E4592000286FDCB0786D1E1C1DDCB0246CAF045DDCB0286237E937728062B7B867720 ##:1E45B0001824EB21A75609CB8ECB462819E5CBCEEBC52B2B2BF3CDAC4DFBC121015559 ##:1E45CE0009CBCECBE6E1CB86DDCB0846C27F46DBFFCB4720FA3A0020CB7F28F93A01C7 ##:1E45EC0020C3FD423EC3D308C32143F33A0120ED4B705D110155210020DBFFCB472085 ##:1E460A00F7EDA0EDA0E2015518EE212F460100003A6F5DE63FFE09F2A64607856F3071 ##:1E46280001245E2356EBE9A64641464546B34650465A468646A046B346F3C31040DDE9 ##:1E464600CB05C6DDCB0086C3FD42DDCB03C6ED4B825D184CCD884DDDCB08C6AFE521D7 ##:1E466400A75609F3CB4EE12807FB232323C3B24511090019772323772377FBDDCB084C ##:1E46820086C3A346CD884D11090019AF77232377237721A75609F3CB8ECB86CBBEFB4E ##:1E46A000C3A346010000DDCB0086210020702371C3FD4218F1FDCB0186FDCB00CEFDEF ##:1E46BE00CB01CEFDCB02CEFDCB03CEFDCB04CEFDCB05CEFDCB06CEFDCB07CECDDC42BA ##:1E46DC00FDCB008EFDCB018EFDCB028EFDCB038EFDCB048EFDCB058EFDCB068EFDCB89 ##:1E46FA00078EDDCB004EC44347DDCB014EC44F47DDCB024EC45B47DDCB034EC46747AF ##:1E471800DDCB044EC47347DDCB054EC47F47DDCB064EC((48B47DDCB074EC4364718831B ##:1E473600ED5BEE550E07DDCB078EC39547ED5B85550E00DDCB008E1846ED5B94550EE6 ##:1E47540001DDCB018E183AED5BA3550E02DDCB028E182EED5BB2550E03DDCB038E183E ##:1E47720022ED5BC1550E04DDCB048E1816ED5BD0550E05DDCB058E180AED5BDF550EC8 ##:1E47900006DDCB068E2153560600097EF321A75609FEFF2014CBA6CBBECB8E2101555D ##:1E47AE0009CBA621C45609CB86FBC9CB66280CCBA6C5FB06044FCDE94CC1F3E521016E ##:1E47CC005509CB66200921C45609CB86FBE1C9CBA6E1C5CB7E2804CBBECBF206054FB1 ##:1E47EA00FBCDE94CF3C121C45609CB86FBC9FDCB0186FDCB00DECDDC42FDCB009EDD84 ##:1E480800CB009EDDCB0056201021A756CBD6FDCB00D6CDDC42FDCB0096DDCB009621F6 ##:1E4826003748E521A756E5210000E521FB55C3304A21A756CB96C3FC47FDCB0186FD88 ##:1E484400CB01DECDDC42FDCB019EDDCB019EDDCB0156201021A856CBD6FDCB01D6CDB8 ##:1E486200DC42FDCB0196DDCB0196217E48E521A856E5210100E5210456C3304A21A824 ##:1E48800056CB96C34348FDCB0186FDCB02DECDDC42FDCB029EDDCB029EDDCB02562063 ##:1E489E001021A956CBD6FDCB02D6CDDC42FDCB0296DDCB029621C548E521A956E521C7 ##:1E48BC000200E5210D56C3304A21A956CB96C38A48FDCB0186FDCB03DECDDC42FDCB75 ##:1E48DA00039EDDCB039EDDCB0356201021AA56CBD6FDCB03D6CDDC42FDCB0396DDCB4E ##:1E48F8000396210C49E521AA56E5210300E5211656C3304A21AA56CB96C3D148FDCBAF ##:1E4916000186FDCB04DECDDC42FDCB049EDDCB049EDDCB0456201021AB56CBD6FDCBF6 ##:1E49340004D6CDDC42FDCB0496DDCB0496215349E521AB56E5210400E5211F56C330C0 ##:1E4952004A21AB56CB96C31849FDCB0186FDCB05DECDDC42FDCB059EDDCB059EDDCB13 ##:1E4970000556201021AC56CBD6FDCB05D6CDDC42FDCB0596DDCB0596219A49E521ACF0 ##:1E498E0056E5210500E5212856C3304A21AC56CB96C35F49FDCB0186FDCB06DECDDC56 ##:1E49AC0042FDCB069EDDCB069EDDCB0656201021AD56CBD6FDCB06D6CDDC42FDCB069D ##:1E49CA0096DDCB069621E149E521AD56E5210600E5213156C3304A21AD56CB96C3A6DD ##:1E49E80049FDCB0186FDCB07DECDDC42FDCB079EDDCB079EDDCB0756201021AE56CBA2 ##:1E4A0600D6FDCB07D6CDDC42FDCB0796DDCB079621284AE521AE56E5210700E5213A98 ##:1E4A240056C3304A21AE56CB96C3ED49CB562004CB8E1802CBCE235E2356233E00773F ##:1E4A420023234E73234672237E2B2B2B772B2B702B71D1C5030303030ACB0321DC56AC ##:1E4A60001977030A2377CB0BC10A4BCBE1ED40CB5028FAF321BC5619CBC6215B561944 ##:1E4A7E0036F62163561936F63E10CD604DED79E1CB5EFBC8CB9E0601214B56194E112A ##:1E4A9C00FE00CDE94CC9FDCB0186FDCB04C6CDDC42FDCB0486DDCB048601000021744D ##:1E4ABA0056F3CB7E281634CB7E2011EB215B56097EFE00201121015509CBEEEBFB0CC2 ##:1E4AD8003E08B928C92318DB3421A75609CBEECD604D3E10ED79EBC3D64AFDCB01865B ##:1E4AF600FDCB00EEFDCB01EEFDCB02EEFDCB03EEFDCB04EEFDCB05EEFDCB06EEFDCBCB ##:1E4B140007EECDDC42FDCB00AEFDCB01AEFDCB02AEFDCB03AEFDCB04AEFDCB05AEFDD3 ##:1E4B3200CB06AEFDCB07AEDDCB006EC4744BDDCB016EC4964BDDCB026EC4B84BDDCB8D ##:1E4B5000036EC4DC4BDDCB046EC4FE4BDDCB056EC41F4CDDCB066EC4404CDDCB076EF1 ##:1E4B6E00C4614CC3F64A01000021A75609F3CB4E205A21C45609CB462052218855E55D ##:1E4B8C0021FC55DDCB00AEC3844C01010021A75609F3CB4E203821C45609CB4620307E ##:1E4BAA00219755E5210556DDCB01AEC3844C01020021A75609F3CB4E201621C45609E5 ##:1E4BC800CB46200E21A655E5210E56DDCB02AEC3844CFBC901030021A75609F3CB4E24 ##:1E4BE60020F221C45609CB4620EA21B555E5211756DDCB03AEC3844C01040021A75693 ##:1E4C040009F3CB4E20D021C45609CB4620C821C455E5212056DDCB04AE1865010500BD ##:1E4C220021A75609F3CB4E20AF21C45609CB4620A721D355E5212956DDCB05AE1844D1 ##:1E4C400001060021A75609F3CB4E208E21C45609CB46208621E255E5213256DDCB06DF ##:1E4C5E00AE182301070021A75609F3CB4EC2DA4B21C45609CB46C2DA4B21F155E52184 ##:1E4C7C003B56DDCB07AE18005E2356260069E34E2346E56069010600EBEDB0EB2B2B96 ##:1E4C9A002B36FFE12323360623360811F6FF19C1EB21A75609CB4E202EEBC5CDAC4D09 ##:1E4CB800C121A75609CBCE21015509CBCECBE621C45609CBC621BC56093600210155D5 ##:1E4CD60009CBD621A75609CB96FBC9CBC618E8CDE94CC9C5D5DDCB0646200BFDCB06E7 ##:1E4CF400C6CDDC42FDCB0686DDCB0686DDCB0546200BFDCB05C6CDDC42FDCB0586D1A9 ##:1E4D1200C1ED53825DDDCB0586210020702371C5FDCB03C6FDCB05C6CDDC42FDCB038C ##:1E4D300086FDCB0586C1DDCB034628DBDDCB0386DDCB06C6C9CBE1ED40CBA1CB5028E1 ##:1E4D4E00F8ED790600C9CBE10603210741EDB3CBA1C9CBE12159420603EDB3CBA1C9E1 ##:1E4D6C00215A56011000EDB9200B3EF881CB7F20014F0600C9C101D0BAC3A6463A6E93 ##:1E4D8A005D215A56010800EDB92807C101D0BAC3A646C50C218255110F000D280319CA ##:1E4DA80018FAC1C95E23562BED53B756EB21060001050019EDB02BEB21BB56010500E6 ##:1E4DC600EDB8C9D90821FF550E00183FD9082108560E011836D9082111560E02182D2B ##:1E4DE400D908211A560E031824D9082123560E04181BD908212C560E051812D908216F ##:1E4E020035560E061809D908213E560E0718000600EB21AF5609CB5E2805CB9EC3B9B4 ##:1E4E20004ECB662805CBA6C3C84E21A75609CB6E201721BC5609CB4E2023CBCE21CCC9 ##:1E4E3E00560936003E02ED79C3FB51CBAE3E05CD544DED793E04CDC950CD544DC3FB28 ##:1E4E5C0051CB5E2805CB9EC3E14EEB7E3C2BBE2825C546342B562B5EEB16005819C1DF ##:1E4E7A007EEBFE10200621BC5609CBDE21CC56098677EBEDA3C3FB5121BC5609CB6658 ##:1E4E98002845CB562848CBA6CB9621CC56097EED44ED793E04CDC95021AF5609CBDECB ##:1E4EB600C3FB51CB4E2814CB8E3E10CBE6ED79C3FB51216C56097E3615ED79CD544D24 ##:1E4ED40021BC5609CB8ECB86C3FB51CBE63E10C3EA4ECBD63E03ED79C3FB51D90E0093 ##:1E4EF2002187551836D90E01219655182ED90E0221A5551826D90E0321B455181ED9B8 ##:1E4F10000E0421C3551816D90E0521D255180ED90E0621E1551806D90E0721F05508F2 ##:1E4F2E000600ED78EB21BC5609FE102860CB7E2829CBBEFE06286CFE152833FE0528E9 ##:1E4F4C0029FE022812CB6E281EFE032805CBFEC3FB51CBF6C3FB51CBEEC3FB51CB6E8E ##:1E4F6A002807CB762009C36C50C3FB51C3E44FC3FC4FC3C74FCB4620F021AF5609CB0A ##:1E4F88004E28E8CB8EED79216C56097E3615ED79C3FB51CB7E2809CBBECB6E28CEC3CF ##:1E4FA6006C50CB762050CBFEC3FB51AFCDC95021015509CBD6C3C44F21015509CBEEE3 ##:1E4FC400C3FB51AFCDC950216356097EFE0028EA34CDDA50CD604D21BC5609CBC6C385 ##:1E4FE200E14ECB46207B21AF5609CBE6CD604D3E10ED79C3FB51E1C3FB5121BC56098D ##:1E500000CBAECBB6E521D4560986360021C45609CB46200C21A75609CB4E20DCFE00E8 ##:1E501E00280CEB2323232336003E15C32E503E06216C560977E1CB46202BF5CD604DAC ##:1E503C003E1021AF5609CBE6ED79F1FE06200B3E0821AF5609CBD6C35950C3FB51EB26 ##:1E505A00232323232377C39A5021AF5609CBCEC3475021A75609CB46280B21BC56099C ##:1E507800CBAECBBEC3FB51EB235E23562323C54E34EB09C177CDD150EB3EFEBEC2FBDB ##:1E5096005123CBEE11F6FF19EB21A75609CB4E201DEBC5CDAC4DC121A75609CBCE2130 ##:1E50B400015509CBCECBE621C45609CBC6C3FB51CBC6C3FB51ED442174560977C9212B ##:1E50D200D4560600098677C9D5E579ED44210000110900FE002805193CC3E55011FE9B ##:1E50F00055193600E1D1C9D90E101821D90E11181CD90E121817D90E131812D90E14E0 ##:1E510E00180DD90E151808D90E161803D90E170806003E10ED79ED78CBA1073822AF89 ##:1E512C00B92010DBFFCB5F280A3E40D3FFAFD3FFC3FB5121015509CBCE21A75609CB5B ##:1E514A00E6180621AF5609CBC6C3FB51D9218C550E001836D9219B550E01182ED92104 ##:1E516800AA550E021826D921B9550E03181ED921C8550E041816D921D7550E05180ED7 ##:1E518600D921E6550E061806D921F5550E0708EB21AF56060009CB462804CB8618037A ##:1E51A400EBCBF6ED78CBE13E30ED79C3FB51D90821A456343E64BEC2FB51DDCB04C63D ##:1E51C2003600C3FB51FBF53E8BD308DDCB02C6F1ED4DF5E52A01307CFE432009DDCB98 ##:1E51E00007C622805D1810DDCB00C6226E5DE6C0FEC020033A0120E1F1ED45D908FBA0 #:0351FE00ED4D1262 #:1E545000D24DFC50F74E5E51C94DF750EF4E5651E44D0651074F6E51DB4D0151FF4E3A ##:1E546E006651F64D1051174F7E51ED4D0B510F4F7651084E1A51274F8E51FF4D15510D #:14548C001F4F8651B251B251B251B251C751C751C751C7515B :00401001AF /PCIF/AB/%ABUP:::5:29:127 644 0 0 16400 5303156037 33062 /PCIF_AB/AB/%ABUP:::5:29:127 $ \(%ABUP + + + 9:FST ++X'> c ABUP94202-16006 REV.5005&ABUP::GO +]]VABUP.NFOP .NFCL .NFIN .NFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN ]N\.DCO.EIO. .IIO. .JIO. .FIO. .DTA. .CPM.SIO. .IOCL .EXIT !.FFRW .FIOI .SCO IT_QUITSREPORT_FMP_ERR FMPCLOSEFMPWRITEFMPOPEN REPORT_PCIF_ERR PLC2_STARTPC_STARTPC_READPRR PLC2_STOP PLC2_FREEZE PC_FREEZE CONVERT_PC_TYPE AB_MEM_CONFIG DIAG_STATUS PC_LOCK PC_CONNECT PCIF_OPEN LOGLU RMPAR RM wPCPCPCPCPCPC''bppLpKpMp'CCÞ00(2/,T21,"Welcome to the PCIF/1000 Upload"," Program ",2/,T34,"&dB ABUP &d@",T69,"Rev.5xxx")CA`h H.`.Ab( (@(/,"Enter the PC Identifier : _") &&7 A`h @H.`.`h A. `.&77cQ&&(/,"Do you have any messages in the memory of"," this PLC3 ( Y or N ) ? _") 7EE]%%A`h QH.&`.`h AT.1A `.H` Ph X (Bp(D` πpE11w!!("Do you wish to upload the PLC2's Data Table ?"," ( Y or N ) _") 1}}7DDDA`h wH.K`.`h AT.VA `.H` Ph X (gp(i` ϊp l`(v s v |LK`(  }''`(  ` p`(/'--("Enter the name of the storage file "," (/E to quit) : _") -jj(==A`h H.`.`h A^JAAFF\(((Ap*FZ(0*(ʈA`h XH.`. FVbp` P(ր(jRR8b<<("&dB File already exists with the name :",5X,A64,/,"Do you want to overwrite it ( Y or N ) ? _")RPPl--A`h A.FH`.A`h TA. H`.` ̀Ph ̀X 0(FRbp`(PAA..("Error ",I6," trying to re- open file"," :",/,A64," of type : ",I6,2/) A,,qA`h A. AAF H`.(p(.`(,,--6 ("Error ",I6," in opening file :",/,A64," of type : ",I6,/)-GGA`h  A.' AAF H`.((.p瀈(pO` Êp=9=pD`(DA D`OpOTIG`(^ [ ^`(n33ɞ>##("&dB PC is not connected to the interface" " module ! I quit.",2/)3++aA`h >H.h`. n` PI(r(`(+''C\a("PLC5/15 is not in program ","mode PC no is ",I2)'~~{ZuFFA`h aA.~ H`. ` ˀpG pވ ` NJpSLKUS`(  ` p=U=pD`( `OpO~22(G`(Ρ   ((2**z("Memory is too large for this program; ",I12," words") *$$A`h zA.H`. `p$ (/,T9,"&dB PC Type = _"),,uA`h H.`.`I( `h P.@`.,AA..(/,"This program cannot handle the PLC"," model of Programmable Controller. Sorry...",2/) Aiii66A`h H.`.   IH`h N.H`.H`(&`@pH`OpF`pP(0pވ`GpHpF`OpE`pP` pi))V(T32,"A","&dB Maximum Memory Size (words) =",I6," "))Q2 A`h A.; H`.,, (T9,"&dB",T37,"Maximum Words to Read = ",5X,I6," &d@",/),KK_/>&&A`h .L`H@p* *`.H`@`hHHG`@`hHH pTpN`PP(d(oK ("Now uploading PC Data Table ...") Xd A`h  H.k`.(y("Now uploading PC Program Area ...") ~~yoGGA`h H.v`.`cPIh XI 0(LK` ψpM` PIh XI 0(ֈ`cPh (LK` pMPh (~DDLK` πpMPAp* (*h  (֡LK` pM`(  `P@`p*`N*(`P@`((`pS(`P@`pShH~~vBB@ءLKUS`(  `cPIh ȀXI (H`PP( (HpՀ`S(Hp-`@aP (-(3@pS` pN(H`@aPp*`~QQL<&&*(D`ՈpS` pN(H88-('`S@p=QU=pD`(\Y \`OpO`T@SpTQc.(T50,"ATotal words read = ",I6)IIb##A`h .A.k TH`.`P@`hPH`p*`S*`H@SpH`P@`(`PP((`pPI_>(/,"Now Uploading Program Area...") ~~EEA`h >H.`.`OpE(` pN(`cPIh XI 0M(LK` PIh XI 0M(LK`(  AJ`~(( g( JFLp`(($$sP(///,"Cannot re-OPEN ",A16," FMP error",I6,/) $aaw11A`h PA.FAH `. ` p>`Ip?@Hp@`GpA`FpB`EpC` p=>=pD`(    a//mZg (//,"&dB PC Memory Uploading Complete !",T50,"File = ",A64,/) /886 A`h gA.FH`. p`(%% (@8\\/99KErwou(A8)(" PLC ")rwo (A2)rwc (2/)/E/e(A64) @N^`d hrvz~PT@!\%%n  "#! PC $y Y %@Є/NEWDATAFILES/A13362 * 1K/PCIF/AB/%ABDN:::5:32:127 644 0 0 20000 5303156040 32572 /PCIF_AB/AB/%ABDN:::5:32:127 $ \H %ABDN + + + @FST ++X 9c ABDN94202-16007 REV.5005&ABDN::GO +]]ߩ?ABDN.NFOP .NFCL .NFIN .NFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN ]zzbD.DCO.EIO. .IIO. .JIO. .FIO. .DTA. .CPM.SIO. .EXIT !.FFRW .FIOI .SCO.IDLP IT_QUITS REPORT_PCIF_ERR PLC2_STARTPC_STARTPC_WRITEP REPORT_FMP_ERRFMPCLOSEFMPREAD zYY RqPLC2_SET_T_SIZE PLC2_STOP PC_STOP CONVERT_PC_TYPE AB_MEM_CONFIG DIAG_STATUS FMPOPEN PC_LOCK PC_CONNECT PCIF_OPEN LOGLU RMPAR Y wRO **Z? pxp{pzp|pORpy*FF22(2/,T20,"Welcome to the PCIF/1000 Download"," Program ",2/,T34,"&dB ABDN &d@",T69,"Rev.5xxx",/) FÈSA`yh 'H Z` A (b(vi`@("Enter the PC Identifier : _") ObEEA`yh '@H i` `yh *A s `  yx`x( yx  x{z`x( yx x`x( yx p`(8--֔P("Enter the name of the storage file "," (/E to quit) : _") -jjV==A`yh 'PH ` `yh (A  AA   (Ap   (0 (؈A`yh ) H `  x ʈp ` 7Px((j**HTn("&dB File does not exist with the name" " :",5X,A64,/)*!!A`yh 'nA  H` (`x(!""("Error ",I6," in opening file :",/,A64,/)"ggɺ77A`yh 'A  xAH ` (p` 8p`(7` 6pxp`x(yx `p` 5PhX 0(7gFF:]22(/,"&dB This file was not created by"," the ABUP program. Try another file...",2/) FTT+//A`yh 'H 2` p(Ex } `x(O Lyx O` Ph -X (T-- ("Do you want to download the Data Table"," ( Y or N ) ? _")-II.Z((A`yh 'H a` h (A lA ` H` .Ph /X 0(}` 8p(p`(I33##(" &db PC is not connected to the interface" " module! I quit.",2/) 3++A`yh 'H `  ` -P((`(+''C ("PLC5/15 is not in program ","mode PC no is ",I2)'VV[00A`yh 'A  H`  ` 4p $p(x`x( yx A "((V))+("Memory is too large for this program; "I12," words"))++A`yh '+A H`  `p} +[?F(/,T11,"&dB PC Type = ",A8) % A`yh 'FA  H` **iU(T38,"A","&dBMaximum Memory Size = ",I6," words.",2/) *''DA`yh 'UA  H` `P}(R} 'q(/,6X,"&dB PC ",I6," is a ",A8,". _")## A`yh 'qA  AH `   #$$b(" This file was created from a ",A8," PC.")$" A`yh 'A  H` `((11J$!!(/,"Sorry - This program does not"," work with the model PLC.",2/)1a  A`yh 'H "`  (44$$(/,"Do you wish to proceed with the" "(( download anyway ? (Y or N) : _") 4T(IIA`yh 'H /` h (A :A ` H`yh ) DH` ` /Ph .X (` ,P}h +X} 0 X  p ` p ` h X  p ` p ` ;;q0  (`@p` 3@h 2'p` 8p((;``(/,"&dB Required Data Table Size = ",I6,10X,"Available Data Table Size = ",I6,2/,"You can either : Reconfigure the PC's Data Table with the"," Industrial Terminal,"/,T18,"Download only the POOO@99rogram, and","not the Data Table, or ",/,T18,"Download a different file to"," this PC.",/,"Try again !",2/) OiuGGA`yh 'A  AH ` (`p`p` ˀP}h -X} 0(x{z` 8p|` ,P}h +X} 0(` P h (x{z` 8p|P ~~gEEh (x{z` 8p|P p  1( h  (x{z` 8p|`x(  yx  `(x{z`x( yx ~""`pp` 0p`(^`(N"QQ<9y;;("&dB This file does not contain a Data ","Table.",/," Do you wish to download only the program "," ( Y or N ) ? _") QOO)**A`yh 'yH 0` `yh (A ;A ` H` /Ph .X 0(Lp(M((]`@p` pO#(/,"Now downloading PC Data Table !") ~~FS@@A`yh 'H Z` (((@p ` ̈Aph  ʈ(p `@p vx p`x(~yx `p88 (m` -P}((p` &p `@ h~PP&&H 88 (`@p x p`x(yx P( `P((` p`pP {(/,"Now downloading PC Program Area...") ^^22A`yh 'H ` `p` -P}(`ph@~`@px{z~`x( yx `@p^ (T50,"ATotal words sent = ",I6)BBC""A`yh 'A  H` `@@p`p(  p ` (  y B""(2/,T27,"&dB Downloading Complete !",2/)"11 A`yh 'H ` P h  ( ;` +P}( &( 11@@B--("It may be necessary to cycle power on"," the PC to start the Industrial Terminal !",2/) @fl & A`yh 'H -` ( ;881b-''("Wait 5 seconds before operating the ","Industrial Terminal with this PC.",/)8s 1DDA`yh '-H 8` ` -P}( ?( T` +p ~p` &p `@ hH 88 ( I( ]p`ph@~ fx{z~`x( p myx p` ˀP}h -VVE u..X} 0|(  x{z` ,P}h +X} 0|(  x{z`x(  yx  V?? %%(A2)(/) (2/)/E/e(A64) @ VZ^bdf@!?''r  #"! y Y $PC '@ |?NSIGMOD.DS_SIGAWA||I.ENTR .LBT BODEC.3 DS_ENTERCRITICALDS_LEAVECRITICAL DS_MM.2 DS_RNSTOREELEMENDS_SOFETCHELEMENDS_SOSTOREELEMEN N$MMDEC.3 PAS.NONCDSRNRQSIGMOD.1SIGMOD.IPCWEABORSIGM/PCIF/AB/%ABTST:::5:12:128 644 0 0 6000 5303156042 33145 /PCIF_AB/AB/%ABTST:::5:12:128 $ \h %ABTST + !+ "+ " "@FST ((X.Y ABTST 94202-16008 REV.2435 (ss%ABTST .NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN s#.EIO. .IIO. .FIO. .DTA. EXEC.CPM.SIO. .FION .NFEX IT_QUITSCONVERT_FW_REVCONVERT_PC_MODE CONVERT_PC_TYPE CONVERT_IF_TYPE REPORT_PCIF_ERR DIAG_STATUS PC_CONNECT PCIF_OPEN RMPAR  4\\,DD(2/,T12,"Greetings from the Allen-Bradley"," Diagnostic Status Program",2/,T35,"&dB ABTST &d@"," Rev.2435",2/)\fA`hH`A((ijJ("Enter the PC Identifier : _") [[11A`hJH``hA` \`\( \  \^]`\( \ [##wZ("Now sending the diagnostic request ... _")#KK ++A`hZH` \X[ZYWVUTS`\(`hAH` \ Kksp("Complete ! Status = ",I6,2/)5A`hpA\H``[(%%J.("PC is disconnected from interface module !",/)% p<A`hH`(\Z ("Interface Type = &dB ",A15," &d@ _") &&A`hAH``Z(R)Y&("Processor Type = &dB ",A8," &d@_") 5)A`hA2H`9X At(" Mode = &dB ",A8," &d@",/)pq9 A`hABH`//  ("Program Start Address = ",O6," OCTAL (byte address).") /++DEA`hANWH`(\`hY@`+22""(/,"Diagnostic Counters Address = ",O6," OCTAL (byte address).",/) 2 4\A`hAeVH`lU ""V1("Firmware : Revision = ",A1," _") " 6lA`hAuH`|T M% (" Series = ",A1,/)qY| A`h%AH`J0("Option switches = ",O6," OCTAL") 22A`h0ASH`A`hH` 255m(/,"&dB",80("*"),/)(/)   J ^" !5@9pMSG_FILE94250-1X543 REV.2520 <850607.1326>0BF_MSSGF_FILEeTRM_MSG_FILECC 4.ENTR .CPM /PCIF/AB/%PCPAC:::5:116:128 644 0 0 72000 5303156044 34234 /PCIF_AB/AB/%PCPAC:::5:116:128 $t \tt%PCPAC + #+ $+ $t9NFST 99X_ư6!PCPAC 94202-16012 REV.6000 <901214.1 901218.0853 &PCPAC::BIN39 )PCPAC PCPAC PCPAC 901218.0853 1 0PCPAC PCPAC 901218.0853 1 0MMFTYPE BYTE=-128..127;WORD=-32768..32767;MSG_TYPE=RECORD OFFSET:WORD;LENGTH:WORD;STATUS:WORD;CASE INTEGER OF 0:(FONCTION:WORD;PARAM1:WORD;PARAM2:WORD;MNN PARAM3:WORD;PARAM4:WORD;);1:(WORD_ARRAY:ARRAY[1..5]OF WORD;);2:(BYTE_ARRAY:PACKED ARRAY[1..10]OF BYTE;);END;ACTIVATION_CONTEXT_TYPE=RECORD EVENT:WORD NMM-;ACTION_FLAG:PACKED ARRAY[1..16]OF BOOLEAN;ACTION_CODE:WORD;PC_TYPE:WORD;PC_CAPABILITY:PACKED ARRAY[1..16]OF BOOLEAN;APPL_ID:WORD;REQUEST:MSG_TYPE; MKKSUB_REQUEST:MSG_TYPE;END;BUFFER_AREA_TYPE=PACKED ARRAY[1..8192]OF BYTE;HEADER_AREA_TYPE=PACKED ARRAY[1..17]OF BYTE;CONST PC_READD=1;PC_WRITED=2;KNNd0PC_READP=3;PC_WRITEP=4;PC_TRANS=8;PC_READD_EXT=9;PC_WRITED_EXT=10;PC_READP_EXT=11;PC_WRITEP_EXT=12;PC_WRITEB_EXT=13;PC_FREEZE=15;PC_START=16;PC_STOP= NLL17;PC_ENUNSOL=18;PC_DIUNSOL=19;PC_CONNECT=20;PC_DISC=21;PC_PCSTAT=22;PC_SYSTAT=23;PC_CANCEL=24;PC_LOCK=25;PC_UNLOCK=26;PC_GETKEY=27;PC_RELKEY=28; LMMկPC_CLOSE=29;PC_IDENT=30;PC_ASSOC=31;PC_CALIBRATE=32;PC_CONTINUE=33;PC_CYL_STOP=34;PC_DIR=35;PC_DISASSOC=36;PC_HOLD=37;PC_MAPIDENT=38;PC_MAPSTAT=39; MJJ:fPC_PRGM_DEL=40;PC_PRGM_SEL=41;PC_RLNQCNTL=42;PC_TAKECNTL=43;PC_CALL0=64;PC_CALL63=127;INITIALIZATION=1;REQUEST_INITIATION=3;REQUEST_REENTRY=4;JGGÿ#SUB_REQUEST_COMPLETION=6;UNSOLICITED_SUB_REQUEST=7;REQUEST_CANCELATION=8;NO_ACTION=1;SEND_SUB_REQUEST_WAIT=2;SEND_SUB_REQUEST_NOWAIT=3; GJJëSEND_REQUEST_COMPLETION=4;SEND_REQUEST_SUB_REQUEST=5;RESET_HIGHWAY_HANDLER=6;WAIT_REQUEST_BUFFER=7;WAIT_SUB_REQUEST_BUFFER=8;CAPABILITY_RW=1; JCCËCAPABILITY_PR=2;CAPABILITY_TR=3;CAPABILITY_UN=4;CAPABILITY_ST=5;ACTION_FLAG_EI=16;ACTION_FLAG_EU=15;SR_STATUS_MSG_SKELETON=235; CJJG\SR_STATUS_NO_AVAILABLE_MEMORY=236;SR_STATUS_NO_MATCH_FOUND=237;SR_STATUS_BUFFER_ALREADY_ALLOCATED=239;SR_STATUS_MORE_THAN_ONE_CREA((TE_UNS=240; JNNPSR_STATUS_CALL_MADE_BY_PC_HANDLER=243;SR_STATUS_NO_MSG=245;SR_STATUS_EXCEED_BUFFER_SIZE=246;SR_STATUS_NEGATIVE_OFFSET=247;SR_STATUS_NO_UP_BUFFER=248; NNN\sSR_STATUS_NO_ALLOCATED_BUFFER=249;SR_STATUS_INVALID_MSG=250;SR_STATUS_INVALID_MSG_TYPE=251;SR_STATUS_INVALID_CALL=252;SR_STATUS_LENGTH_TOO_LARGE=253; NIIeSR_STATUS_INVALID_LENGTH=254;SR_STATUS_UNKNOWN_MSG_TYPE=255;TYPE GT_BIT=0..1;GT_NIBBLE=0..15;GT_BYTE=0..255;GT_WORD_BYTE_TAG=(B16,B08,B01); IMMGT_WORD_BYTE=PACKED RECORD CASE BOOLEAN OF TRUE:(WD:WORD;);FALSE:(BT:PACKED ARRAY[1..2]OF BYTE;);END;GT_BUF_LEN_TYPE=PACKED RECORD CASE BOOLEAN OF MMMß1TRUE:(WD:WORD;);FALSE:(TYP:0..3;SIZ:0..16383;);END;GT_WORD_BYTE_BIT=PACKED RECORD CASE GT_WORD_BYTE_TAG OF B16:(WD:WORD;);B08:(BT:PACKED ARRAY[1..2]MNNùOF BYTE;);B01:(BI:PACKED ARRAY[1..16]OF GT_BIT;);END;GT_PC2_CONTEXT=RECORD IO_LENGTH:WORD;DATA_UNIT:WORD;DATA_LENGTH:WORD;DATA_INDEX:WORD;PLC_ADDRESS NJJ×2:GT_WORD_BYTE;WAIT_COMPL_BUFR_FLAG:BOOLEAN;END;GT_PC_CONTEXT=RECORD MAX_PKT_SIZE:WORD;LAST_PKT_SIZE:WORD;NO_OF_PACKET:WORD;BUFFER_INDEX:WORD; JHHwTOTAL_TRAN:GT_WORD_BYTE;PACKET_OFFSET:GT_WORD_BYTE;LOGICAL_ADDR:PACKED ARRAY[1..20]OF GT_BYTE;LOGICAL_ADDR_LEN:WORD;UP_DOWN_FLAG:BOOLEAN; HLL_WAIT_COMPL_BUFR_FLAG:BOOLEAN;END;GT_HW_CONTEXT=RECORD TNS:WORD;TNS_UNSOLICITED:WORD;UNSOL_DST:WORD;UNSOL_SRC:WORD;UNSOL_CMD:WORD;UNSOL_ERROR:WORD;LMMUNSOL_LENGTH:WORD;CONNECT_FLAG:BOOLEAN;WAIT_BUFR_FLAG:BOOLEAN;STEP:WORD;BAUD_RATE:WORD;END;GT_BYTE_BIT_TAG=(BIT08,BIT01);GT_BYTE_BIT=PACKED RECORD MNNCASE GT_BYTE_BIT_TAG OF BIT08:(BYT:BYTE;);BIT01:(BIT:PACKED ARRAY[1..8]OF GT_BIT;);END;GT_BYTE_NIBBLE=PACKED RECORD CASE BOOLEAN OF TRUE:(BYT:BYTE;); NMMhFALSE:(NIB:PACKED ARRAY[1..2]OF GT_NIBBLE;);END;COMPLETION_TYPE=WORD;CONST IDLE=1;COMMAND=2;PLC=1774;PLC2=1771;PLC3=1775;PLC5=1785;PLC2_DATA_LENGTH=MMM242;PLC5_MAX_READ=122;PLC5_MAX_WRITE=119;GC_CTL30B=1536;GC_CTL33B=1728;GC_PC_H_ENTER_ERRORED=234;GC_PC_H_NOT_ALLOWED=128;GC_PC_H_INVLD_LGT_UNIT=132;MGGGC_PC_H_INVLD_LGT=133;GC_MESS_LENGTH_250=250;GC_TRANSPARENT=-32760;GC_CONNECT=-32748;GC_HW_H_ERROR_OFFSET=512;GC_HW_H_ENTER_ERRORED=361;GGGy+GC_CARD_ERRORED=256;GC_HW_H_CANT_ARM_IO=360;GC_NACK_10_RECEIVED=257;GC_PROTECTED_WRITE=0;GC_UNPROTECTED_READ=1;GC_PROTECTED_BIT_WRITE=2;GHHGC_PRIVILEGED_WRITE=3;GC_PRIVILEGED_READ=4;GC_DIAGNOSTICS=6;GC_OUTPUT_CONTROL=7;GC_WORD_RANGE_WRITE=0;GC_WORD_RANGE_READ=1;GC_BIT_WRITE=2;HFFmbGC_FILE_WRITE=3;GC_FILE_READ=4;GC_DOWNLOAD_REQUEST=5;GC_UPLOAD_REQUEST=6;GC_SHUTDOWN_REQUEST=7;GC_PHYSICAL_WRITE=8;GC_PHYSICAL_READ=9;FJJjGC_RESTART_REQUEST=10;GC_PLC3_DIAGNOSTICS=11;PROCEDURE PC_PC_HAND_AB$ALIAS'PC_PC_HAND_AB'$(VAR ACTIVATION_CONTEXT:ACTIVATION_CONTEXT_TYPE;VAR J$$dDATA_AREA:BUFFER_AREA_TYPE;VAR PC_CONTEXT:GT_PC_CONTEXT);IMPLEMENT$PCPAC PCPAC 901218.0853 1 0@S==X(6ư6&OPC_PC_HAND_AB 94202-16012 REV.6000 <901214.1 901218.0853 &PCPAC::BIN3="I-PC_PC_HAND_AB ||.DIV.EXIT0.LBT .SBT .SDSP ALLOCATE_BUFFER CREATE_UNSOL_REQFLUSH_SUB_REQUES PAS.BITDEPOSIT1 PAS.BITEXTRACT1 PAS.BITMASK1PAS.BOUNDINTEGERPAS.CDS PAS.SETCLEARPAS.SETINIT PAS.SINGLEMOD | 5RELEASE_BUFFER ~~^><SPC_PC_HAND_AB SGET_PC_BUFFER ` @p` @p` @ ` P(&P(F(f`@P (E`@(9@h H `@h ~TT@>'!Ph H (j`@P (e`@(Y@h H `@h Ph H T,e11(j` @ hi`@@ p `@ ` @ P(}P((p (` P((`@h` P((`@h`@ (`B77@@h H `@h`  (` H p p `p (SSWAP_BUFFER ` @p` @p`P(P(s(`@h H@A@(}>:`@h@pp ` @p`A@(A` @p`@ @@ @pp` @p`@@@ @pWWO4)%` @p`@@@ @pp` @p`@@@ @pWq=?9` @p ((J(r` @p`@@@ @pp` @p`@@@ @p(`@hH@A}}z|:8@(`@h@pp ` @p`A@(` @p`@@@ @pp` @p`@@@ @p}4w %=7` @p`@@@ @pp` @p`@@@ @p` @p (((` @p`@ii40@@ @pp` @p`@@@ @p@(,`H@  ppp p(i~~0:8S CONVERT_LOGICAL_ADDR`@p`@p`@p`@hHH@pp` H0Hp `@p`@hH~nnxj.,H@pp` 0p ` P((M`@@P(P(P(P(P ((`@@H6 (n;::`@@6` (` @@6`H (`@@6` (`@@ H6` (`@@6`? p `p `@@ &(Gpp`@pff+/+`@@ @pp` H0Hp `@p`@@ @pp` 0p fYu<< ` A@(1`@@6@ H`H h (`@@6 p` @HH` h `@@6p` @@H` ` @p (>h (`@@6p@ H`~~=:8H ` @p ` p 88(`@H (`@@6 `@@(~pp`@p`@@@@phH6p`~w@H` 88(^~33`@@6`@@@@HH `@hHHH`@P((`@hH P ((`@@6`@@HH (` xxs33(`@@6`@@HH h (`@@6p`@ @H`H h `@@6p`@@@H` `@hHHx77@)`0@H (=SMULTI_PACKET`@p `@p ` @ ` @ ` @@h HH@@h H` @@P (__Dc0,(` (%` @@   ` @ @ h H` @ p  h _DK?;@#`@H (SFORM_READP`@p `@p `@p ` @@@p `@p ` @@@p 464` @P((` @@ p ` @@ p (` @@p ` @@p h (x `@p` @@@pj V:6h x `@p` @@@p h (x `@p` @@ @p h x `@p` @@ @p]P95 ` @@P(` @@P((E`@p ` @@@p  ` @@ p `@p` @38 @ @p DB>(j`@p ` @@@p  ` @@ p `@ %`UH@ (]SFORM_EXT_CALL `@p `@p RR&"`@p` @@@p`@p` @@@pRN95` @@P (#` p ` @(x`@p` @@@p` @x`@p` @@@pjj91-` @(x`@p` @@ @p` @x`@((p` @@ @pj}}ڶ:8` @( ` p (" p (%`p ` @(Opp ` @@6@ HHp`@p` @@ @ @p8 8(/` }uuP3/@@P (ZP (P ((`@p` @@@p`@p` @h H@ @p u~~(95(`@p` @@@p` @@@h Hp` @@ p` ` @h HH ` A&h ~84HH` @(`@p` @@@p `@p` @h HH@ @pp`@p` @%%$@h H@p%73`@p` @h HH@@pp`@p` @@h H@p`@p` @h HHk;:4@@@pp`@p` @@ h H@p`@p` @h HH@@@p88+up`@p` @@ h H@p8~~66 (&`tH (~SCHANGE_PLC3_FUNC`@p `@p ` @P((F` @@P(P(ڨP(P(ڨP (P(.P(~*Z;5P((F`@p ` @@@p    (F`@p ` @@@p  (F`@p ` @@@p  .-(F }}\84`@p ` @@@p  (F` @ `@p ` @@@p  (F` @ `@p ` @@}bb8:0.@p  @(F#`H@ (SFORM_SUB_MESG `@p`@p`@@hHHb}}yj:4`@@P(wP(wP(P((`@@ p`p(`p(`p(p`( `@@}51P(P(ȨP(P(ȨP(P (P ( P ( /P( >P( >P( >P( >P( >( G`p( G`@@ @ p` p( G "73`@@ p ` .P((` ?p (` ? p ` @p`p( G`@@ p`p( G`@( ( `@nn, 5-@ p`p( .`@@ h p`p( G`@@@p`p( G`p( GnP4 G/-`( `@h`@@P( oP( oP( oP( oP( {P ( uP ( uP ( uP( 6P( P( pP( P( P( ( ꈸ`k( `||X v93( `@@h`@@p h (x`@p`@@@p`@p`@@@p|" ;7` ( pp `@p`@@ @@pp`@p`@@ @@p8 8( ( ꊈ`@p`@ssX4 82@@p`@( `@p`@@@p( "`@p`@@@psÅ "<6`@p`@@@p( `@p`@@@p`@p`@@@p`@ttl ^82p`@@@p( ꊈ`@p`@@@p`@p`@@@pt <6`@p`@@@p( `@p`@@@p`@p`@@@p`@^^ʀ 0,p`@@@p( ꊪ`@@h( ` G)`PH (ZSVALIDATE_REQ^e --`@p p ` @@p ` @@p ` @@P( ;P( ;P( ;P( ;P( P ( P ( P ( P( P( P( P( Pqq /80( P( P( P( P( P( ( Ê` @@p!( g&`@&@`x ,HH@ ( g`zp ( iq g77`wp ` .( ` ?( s( ` ?p` A@( p ( ` @@h( Ȁ` ( ` ( ` @@h( p ( ( Ȁ` @( ~~Z 77` @0( ` @@h HH@A@( p ( ` @@h( p ( ` @@h`  8` H `p ( ~N ?5SRQ_INITIATION `@p `@p ` ( ` @@P ( P ( P ( ( ``L( `刋( ` ` @``F /-( ` @@h#` H@ ( SCOMPL_PCSTAT`@p `@p ` @@p  `P C:4`@p ` @@@p  P( P( pP( \( `@p ` @@p   ( `@p ` @ @p ZZy }.* ( `@p ` @@p   ( `@p ` @ @p  Z` A=@#` $@H ( -SCOMPL_IDENT `@p `@p ` @@p  `@p ` @@p   `@p ` WW6Y ($@@@p   p `@p ` @@@p  p ` 0 p W >8` A'p h (x `@p ` @@@p  `@p ` @@@p  `@p ` @ @p kk R3/ p `@p ` @@@p   `p `p `@p ` @@ @p 8 8 ( ok+ ==@%` @H ( SMOVE_TRANSPARENT`@p `@p` p ` .P( ( ` ?p ( ` ? p ` @@A@ ( ` @tt 62@p ` ( pp `@p` @@ @@pp`@p` @@ @@p8 8( t =;@'` @H p ( S CHECK_MORE_PACKET `@p `@p ` @(R` @@P ($(R` @p ` @@p` tt5..` @h H @h H` @@ A&h HH` @` @(\` @h(` @@P (c(qtc:6` @@ p ` p (` @pA@( p (` p ` @@ @ p ` p ` (` @h` @h Haac-+H`@%`H@ (SSUB_RQ_COMPL`@p `@p` @h` @@(a~~ 42`@(6` @(6`@p` @@@pP(P(P(((6` @@h(6((p `@p` @~sst62.@@pp` 0p ` @@h H(6p `@p` @@@pp` 0p s~~j0,,` @@h H` @@(` @@P(iP(P(iP(P(P (yP (yP (P(P(P(P(P(]P(c~yyj\=1(` (` (` @@p`(`(` @P((`@(@hH `p yh=7` (`@p` @@@p`@p` @@@p`@p` @@@p` uu^ .,@h`@ (` @@P((`@ (`@ (` @@p` (((` @@h HHu@>` @P( (` @0@'`@H (SGET_ADDR_LEVEL`@p p `@p ` @@ @p p `  &HH1D'#(F(V @ p ` A&p (=` @ p   p ` &`H ($Hk@:S MOVE_UNSOL_EXTENDED `@p `@p`bp `@p` @@@p!`@p` @@ @ptth62p`@p` @@@pp `p ` (xpp `@p` @@ @ @pP((4t߮<6`@p` @@ @@pp`@p` @@ @p`@p` @@ @ @pp`YY*&@p` @@ @p` @p (r`@p` @@ @pYQG;7`@p` @@ @ @pp`@p` @ @ @p` p ` @p 8 8(` @ p` @h @OO*(@p`  '`kH (xS MOVE_UNSOL_SYMBOLIC `@p `@p O=7`@p` @@@pp `@p` @@ @ @p(`@p` @@ @ @paa\-)p`@p` @@ @@p` p (`@p` @@ @@paw:4` p `@p` @@@pP$(`@p` @@ @ @pp`@p` @@ @@pP95`@p` @@ @@pP(k(`@p` @@ @ @pp`@p` @@@ @i p~~S;5`@p` @@ @ @pp`@p` @@@ @p` @p (€` p  "P((J`p `~<8@p` @@ @p(` p (` @p ` A@ (`@p` @@ @@pp`@p` @ @ @p~~\:6@ p (芈`@p` @@ @p#` p ` @p` @ p` @@h @p`(b` @p` @ p` ~YYQ.,@@h @p` &`H (SFORM_UNSOLICITED`@p `@p Y@6`@p ` @@@p  P((`$`@p ` @@ @p  p ` (`(`c` ]]Ƅ-+@@h(` @@p ` ` @@h $`lH (wSCAL_UNSOL_SIZE]84`@p `@p`@p` @@@pP(` @@p (x`@p` @@ @p(7` ww$93@@p%h H HHx (x`bp p ` (gpp `@p` @@ @ @pP(](aw1&]<<` @p (d` p 8 8(G` @p` @@h @@p ` @'`@H (SUNSOL_SUB_RQ`@p `@p ` @@VVK*"(` @(0hH (`@ `@ (ψ`zp ` (`V64` @h@hH (` @ (` @  $`H (`p `p P(P(P(P( P((#` @ ` @ tt3+` @ (,`  (,` (,` (,` @0` @h`h HH(,` @h` @@ht, @&`@H  (99+((( &   RUSPAB.2 9@q1(P(P(/PCIF/AB/%PCHAC:::5:59:128 644 0 0 35400 5303156045 33677 /PCIF_AB/AB/%PCHAC:::5:59:128 $; \;%PCHAC + %+ %+ %;WWFST 99XVư4 PCHAC 94202-16013 REV.6000 <901214.1 901218.0851 &PCHAC::BIN39 )PCHAC  PCHAC PCHAC 901218.0851 1 0 PCHAC PCHAC 901218.0851 1 0MMFTYPE BYTE=-128..127;WORD=-32768..32767;MSG_TYPE=RECORD OFFSET:WORD;LENGTH:WORD;STATUS:WORD;CASE INTEGER OF 0:(FONCTION:WORD;PARAM1:WORD;PARAM2:WORD;MLL7cPARAM3:WORD;PARAM4:WORD;);1:(WORD_ARRAY:ARRAY[1..5]OF WORD;);2:(BYTE_ARRAY:PACKED ARRAY[1..10]OF BYTE;);END;ACTIVATION_CONTEXT_TYPE=PACKED RECORD LMMEVENT:WORD;ACTION_FLAG:PACKED ARRAY[1..16]OF BOOLEAN;ACTION_CODE:WORD;HIGHWAY_TYPE:WORD;HIGHWAY_CAPABILITY:PACKED ARRAY[1..13]OF BOOLEAN;PORT:0..7; MNNÏPC_STATION_NUMBER:WORD;SUB_REQUEST:MSG_TYPE;IO_MSG:MSG_TYPE;END;BUFFER_AREA_TYPE=PACKED ARRAY[1..8192]OF BYTE;HEADER_AREA_TYPE=PACKED ARRAY[1..17]OF NNNBYTE;CONST INITIALIZATION=1;SUB_REQUEST_INITIATION=3;SUB_REQUEST_REENTRY=4;IO_MSG_COMPLETION=6;SUB_REQUEST_CANCELATION=8;NO_ACTION=1;SEND_IO_MSG_WAIT NJJØ=2;SEND_IO_MSG_NOWAIT=3;SEND_SUB_REQUEST_COMPLETION=4;SEND_SUB_REQUEST_IO_MSG=5;WAIT_SUB_REQUEST_BUFFER=7;WAIT_IO_MSG_BUFFER=8;CONTROL_LU1=0; JMMÝCONTROL_LU2=1;WRITE_LU1=2;WRITE_LU2=3;READ_LU1=4;READ_LU2=5;CAPABILITY_UN=4;ACTION_FLAG_EI=16;ACTION_FLAG_EU=15;ACTION_FLAG_SC=14;ACTION_FLAG_RB=13;MBBîIO_STATUS_ERROR_ON=350;IO_STATUS_RTE_REFUSED_TO_DO_IO=351;IO_STATUS_IMPOSSIBLE_TO_DOWNLOAD=352;IO_STATUS_NO_ASSOCIATED_LU=353;BEETIO_STATUS_WRONG_FUNCTION=354;IO_STATUS_BUFFER_NOT_ON_WORD_BOUNDARY=355;SR_STATUS_MSG_SKELETON=363;SR_STATUS_NO_AVAILABLE_MEMORY=364;EHHx!SR_STATUS_NO_MATCH_FOUND=365;SR_STATUS_NO_PC_RETRIEVED=366;SR_STATUS_BUFFER_ALREADY_ALLOCATED=367;SR_STATUS_MORE_THAN_ONE_CREATE_UNS=368; HBBSR_STATUS_INVALID_WHICH_LU=369;SR_STATUS_CALL_MADE_BY_HIGHWAY_HANDLER=370;SR_STATUS_INVALID_PC_MASK=372;SR_STATUS_NO_MSG=373; BNNPSR_STATUS_EXCEED_BUFFER_SIZE=374;SR_STATUS_NEGATIVE_OFFSET=375;SR_STATUS_NO_UP_BUFFER=376;SR_STATUS_NO_ALLOCATED_BUFFER=377;SR_STATUS_INVALID_MSG=378 NNNO;SR_STATUS_INVALID_MSG_TYPE=379;SR_STATUS_INVALID_CALL=380;SR_STATUS_LENGTH_TOO_LARGE=381;SR_STATUS_INVALID_LENGTH=382;SR_STATUS_UNKNOWN_MSG_TYPE=383 NNNì~;TYPE GT_BIT=0..1;GT_NIBBLE=0..15;GT_BYTE=0..255;GT_WORD_BYTE_TAG=(B16,B08,B01);GT_WORD_BYTE=PACKED RECORD CASE BOOLEAN OF TRUE:(WD:WORD;);FALSE:(BT: NLLÊ8PACKED ARRAY[1..2]OF BYTE;);END;GT_BUF_LEN_TYPE=PACKED RECORD CASE BOOLEAN OF TRUE:(WD:WORD;);FALSE:(TYP:0..3;SIZ:0..16383;);END;GT_WORD_BYTE_BIT=LMMdjPACKED RECORD CASE GT_WORD_BYTE_TA((G OF B16:(WD:WORD;);B08:(BT:PACKED ARRAY[1..2]OF BYTE;);B01:(BI:PACKED ARRAY[1..16]OF GT_BIT;);END;GT_PC2_CONTEXT=MNNÆRECORD IO_LENGTH:WORD;DATA_UNIT:WORD;DATA_LENGTH:WORD;DATA_INDEX:WORD;PLC_ADDRESS:GT_WORD_BYTE;WAIT_COMPL_BUFR_FLAG:BOOLEAN;END;GT_PC_CONTEXT=RECORD NNNpMAX_PKT_SIZE:WORD;LAST_PKT_SIZE:WORD;NO_OF_PACKET:WORD;BUFFER_INDEX:WORD;TOTAL_TRAN:GT_WORD_BYTE;PACKET_OFFSET:GT_WORD_BYTE;LOGICAL_ADDR:PACKED ARRAY NLL[1..20]OF GT_BYTE;LOGICAL_ADDR_LEN:WORD;UP_DOWN_FLAG:BOOLEAN;WAIT_COMPL_BUFR_FLAG:BOOLEAN;END;GT_HW_CONTEXT=RECORD TNS:WORD;TNS_UNSOLICITED:WORD; LNNUNSOL_DST:WORD;UNSOL_SRC:WORD;UNSOL_CMD:WORD;UNSOL_ERROR:WORD;UNSOL_LENGTH:WORD;CONNECT_FLAG:BOOLEAN;WAIT_BUFR_FLAG:BOOLEAN;STEP:WORD;BAUD_RATE:WORD; NMMɰEND;GT_BYTE_BIT_TAG=(BIT08,BIT01);GT_BYTE_BIT=PACKED RECORD CASE GT_BYTE_BIT_TAG OF BIT08:(BYT:BYTE;);BIT01:(BIT:PACKED ARRAY[1..8]OF GT_BIT;);END; MKKàLGT_BYTE_NIBBLE=PACKED RECORD CASE BOOLEAN OF TRUE:(BYT:BYTE;);FALSE:(NIB:PACKED ARRAY[1..2]OF GT_NIBBLE;);END;COMPLETION_TYPE=WORD;CONST IDLE=1;KHHÜCOMMAND=2;PLC=1774;PLC2=1771;PLC3=1775;PLC5=1785;PLC2_DATA_LENGTH=242;PLC5_MAX_READ=122;PLC5_MAX_WRITE=119;GC_CTL30B=1536;GC_CTL33B=1728; HKK*oGC_PC_H_ENTER_ERRORED=234;GC_PC_H_NOT_ALLOWED=128;GC_PC_H_INVLD_LGT_UNIT=132;GC_PC_H_INVLD_LGT=133;GC_MESS_LENGTH_250=250;GC_TRANSPARENT=-32760;KHH;#GC_CONNECT=-32748;GC_HW_H_ERROR_OFFSET=512;GC_HW_H_ENTER_ERRORED=361;GC_CARD_ERRORED=256;GC_HW_H_CANT_ARM_IO=360;GC_NACK_10_RECEIVED=257; HMMÁZGC_PROTECTED_WRITE=0;GC_UNPROTECTED_READ=1;GC_PROTECTED_BIT_WRITE=2;GC_PRIVILEGED_WRITE=3;GC_PRIVILEGED_READ=4;GC_DIAGNOSTICS=6;GC_OUTPUT_CONTROL=7;MEEGC_WORD_RANGE_WRITE=0;GC_WORD_RANGE_READ=1;GC_BIT_WRITE=2;GC_FILE_WRITE=3;GC_FILE_READ=4;GC_DOWNLOAD_REQUEST=5;GC_UPLOAD_REQUEST=6; EDDOGC_SHUTDOWN_REQUEST=7;GC_PHYSICAL_WRITE=8;GC_PHYSICAL_READ=9;GC_RESTART_REQUEST=10;GC_PLC3_DIAGNOSTICS=11;PROCEDURE PC_HW_HAND_AB DLL$ALIAS'PC_HW_HAND_AB'$(VAR ACTIVATION_CONTEXT:ACTIVATION_CONTEXT_TYPE;VAR DATA_AREA:BUFFER_AREA_TYPE;VAR HIGHWAY_CONTEXT:GT_HW_CONTEXT);IMPLEMENT L PCHAC PCHAC 901218.0851 1 0@==XZZư4$2PC_HW_HAND_AB 94202-16013 REV.6000 <901214.1 901218.0851 &PCHAC::BIN3=)tQPC_HW_HAND_AB Hs .EXIT0 .SDSP ALLOCATE_BUFFER CREATE_UNSOLICITEXCHANGE_BUFFER FLUSH_IO_MSG PAS.BITDEPOSIT1 PAS.BITEXTRACT1 PAS.BITMASK1PAS.BOUNDINTEGERPAS.CDS PAS.SETCLEARPAS.SETINIT RELEASE_BUFFERRETRIEVE_MSG }SET_WINDOW B{C?SPC_HW_HAND_AB SBUILD_COMMAND `@p `@p ` @p `@p ` @@p   `@p ` @@p   ^^1SC,* A@(O (R  `@ `@ (x `@p ` @@@p   ^}}2o:8`@ x `@p ` @@@p   ` @@ ` @@h` @h@ #` @H (SSAVE_HEADER `}kk0,@p `@p `@p ` @@p  h H`@p ` @ @p  h Hk84`@p ` @@@p  h H`@ p `@p ` @@@p  p H0 H `@ p `@]].,p ` @@@p  p 0 ` hH   #`H (SBUILD_REPLY ]N?95`@p `@p ` @p `@p ` @@p   ` @p `@p ` @@p   ` @@@p `Fx95@p ` @@@p   `@p ` @@@p  `@ h  `@ (x `@p ` @@1 @p  T;9`@ x `@p ` @@@p   ` @@h` @h #`6H (?SGET_HWY_BUFFER` @p` @bb+'p` @  ` P(P(#(C`@P ("`@(0h H `@h h H bv/"73(G`@P (B`@(60h H `@h h H (G` @ hi`@@ p ` @ P(VPl(](rp `NY44@ (` P(a(e`@h` P(i(m`@h`@ (`@@h H `@ `@ `  (`H p ;$p `p (33SCONNECT_HIGHWAY `@p `@p ` @@(z` @ P(P(ިP(P(P(;(y` @@h` @@hH00H h HH` @0` @h` @ h H  (y` @@h` @@hHH h HH` @ 0 s//` @h` @ h H  (y` @@h` @@h@` @ h H  ` @0` @h(y` @@h` @2&31@h@` @0` @h` @ h H  (y`(a` @@h` @@(T` @h(X` @h` ̽Y@ '\00` @ (x` @@(x` @@hh` @h` @ ` @ (y(` @@h HH` @h` @  ` @{{;9@  #`H@ (SREPLY_FROM_AB `@p `@p `@ p `@p ` @@@p p H0 H {[93`@ p `@p ` @@@p p 0 `@ p p hH `@ (N` @@p ` (M` @ 95@h HH` @@([[8(/pcif/ab/!PCCA6 HWY_TYPEHWY_NO NEW_OLD AddingNEW_OLD UpdateBRG_0 BRG_1 B_300 B_1200 B_2400 B_4800 B_9600 B_19200 A`up[h6HPApAm  lMMh6Ppp`0(`p`̀(`p`(A(`ApAڀHh6PAAph6HP@t)RRp h6Pڄp$h6Pp(h6Pp,h6Pp`(pӈ`0z ==(`(`(`(`(`pՀ`(/`(/`(/`(/`(/`(/`pӈ` (B`(B`(B`(B`(B`p`҈0 (SLH<<`(S`(S`(S`p`Ҁ0(d`Ј (d`(d`(d`pӈ`0(u`(u`ψ (u`(u`p`0(`(`(`Έ ( LL`p`(`p(` hH`(`و@hHH`(A048A<A@D`A(Hـ`6h6A x !(vcYY8(Q!BRG_0 BRG_1 BRG_0 BRG_1 B_300 B_1200 B_2400 B_4800 B_9600 B_19200 B_300 B_1200 B_2400 B_4800 B_9600 B_19200 COvpppppWA\w\HH`P(vP(fP(sPA(y(mIrI(u(x(`P(}(p(A`pIـ`6h6A !(`pAI`6Ah6KK x%% !`؈p`(`(`(`PA((W`P((w`(wxKQQCy44Aqq)prp`shtpۀ(IPXI!"PCCA6COCO XQ@v6/PCIF/AB/%PCP2B:::5:54:128 644 0 0 33000 5303156050 33114 /PCIF_AB/AB/%PCP2B:::5:54:128 $6 ]46%PCP2B + '+ (+ (6QFST 88X;E& PCP2C 94202-16019 REV.5005 <880518.0 880518.0837 ^PCP2B::P18 PCP2C !sPCP2C PCP2C 880518.0837 1 0!uPCP2C PCP2C 880518.0837 1 0MMFTYPE BYTE=-128..127;WORD=-32768..32767;MSG_TYPE=RECORD OFFSET:WORD;LENGTH:WORD;STATUS:WORD;CASE INTEGER OF 0:(FONCTION:WORD;PARAM1:WORD;PARAM2:WORD;MNN PARAM3:WORD;PARAM4:WORD;);1:(WORD_ARRAY:ARRAY[1..5]OF WORD;);2:(BYTE_ARRAY:PACKED ARRAY[1..10]OF BYTE;);END;ACTIVATION_CONTEXT_TYPE=RECORD EVENT:WORD NMM-;ACTION_FLAG:PACKED ARRAY[1..16]OF BOOLEAN;ACTION_CODE:WORD;PC_TYPE:WORD;PC_CAPABILITY:PACKED ARRAY[1..16]OF BOOLEAN;APPL_ID:WORD;REQUEST:MSG_TYPE; MKKSUB_REQUEST:MSG_TYPE;END;BUFFER_AREA_TYPE=PACKED ARRAY[1..8192]OF BYTE;HEADER_AREA_TYPE=PACKED ARRAY[1..17]OF BYTE;CONST PC_READD=1;PC_WRITED=2;KNNd0PC_READP=3;PC_WRITEP=4;PC_TRANS=8;PC_READD_EXT=9;PC_WRITED_EXT=10;PC_READP_EXT=11;PC_WRITEP_EXT=12;PC_WRITEB_EXT=13;PC_FREEZE=15;PC_START=16;PC_STOP= NLL17;PC_ENUNSOL=18;PC_DIUNSOL=19;PC_CONNECT=20;PC_DISC=21;PC_PCSTAT=22;PC_SYSTAT=23;PC_CANCEL=24;PC_LOCK=25;PC_UNLOCK=26;PC_GETKEY=27;PC_RELKEY=28; LMMկPC_CLOSE=29;PC_IDENT=30;PC_ASSOC=31;PC_CALIBRATE=32;PC_CONTINUE=33;PC_CYL_STOP=34;PC_DIR=35;PC_DISASSOC=36;PC_HOLD=37;PC_MAPIDENT=38;PC_MAPSTAT=39; MJJ:fPC_PRGM_DEL=40;PC_PRGM_SEL=41;PC_RLNQCNTL=42;PC_TAKECNTL=43;PC_CALL0=64;PC_CALL63=127;INITIALIZATION=1;REQUEST_INITIATION=3;REQUEST_REENTRY=4;JGGÿ#SUB_REQUEST_COMPLETION=6;UNSOLICITED_SUB_REQUEST=7;REQUEST_CANCELATION=8;NO_ACTION=1;SEND_SUB_REQUEST_WAIT=2;SEND_SUB_REQUEST_NOWAIT=3; GJJëSEND_REQUEST_COMPLETION=4;SEND_REQUEST_SUB_REQUEST=5;RESET_HIGHWAY_HANDLER=6;WAIT_REQUEST_BUFFER=7;WAIT_SUB_REQUEST_BUFFER=8;CAPABILITY_RW=1; JCCËCAPABILITY_PR=2;CAPABILITY_TR=3;CAPABILITY_UN=4;CAPABILITY_ST=5;ACTION_FLAG_EI=16;ACTION_FLAG_EU=15;SR_STATUS_MSG_SKELETON=235; CJJG\SR_STATUS_NO_AVAILABLE_MEMORY=236;SR_STATUS_NO_MATCH_FOUND=237;SR_STATUS_BUFFER_ALREADY_ALLOCATED=239;SR_STATUS_MORE_THAN_ONE_CREATE_UNS=240; JNNPSR_STATUS_CALL_MADE_BY_PC_HANDLER=243;SR_STATUS_NO_MSG=245;SR_STATUS_EXCEED_BUFFER_SIZE=246;SR_STATUS_NEGATIVE_OFFSET=247;SR_STATUS_NO_UP_BUFFER=248; NNN\sSR_STATUS_NO_ALLOCATED_BUFFER=249;SR_STATUS_INVALID_MSG=250;SR_STATUS_INVALID_MSG_TYPE=251;SR_STATUS_INVALID_CALL=252;SR_STATUS_LENGTH_TOO_LARGE=253; NIIeSR_STATUS_INVALID_LENGTH=254;SR_STATUS_UNKNOWN_MSG_TYPE=255;TYPE GT_BIT=0..1;GT_NIBBLE=0..15;GT_BYTE=0..255;GT_WORD_BYTE_TAG=(B16,B08,B01); IMMGT_WORD_BYTE=PACKED RE((CORD CASE BOOLEAN OF TRUE:(WD:WORD;);FALSE:(BT:PACKED ARRAY[1..2]OF BYTE;);END;GT_BUF_LEN_TYPE=PACKED RECORD CASE BOOLEAN OF MMMß1TRUE:(WD:WORD;);FALSE:(TYP:0..3;SIZ:0..16383;);END;GT_WORD_BYTE_BIT=PACKED RECORD CASE GT_WORD_BYTE_TAG OF B16:(WD:WORD;);B08:(BT:PACKED ARRAY[1..2]MNNùOF BYTE;);B01:(BI:PACKED ARRAY[1..16]OF GT_BIT;);END;GT_PC2_CONTEXT=RECORD IO_LENGTH:WORD;DATA_UNIT:WORD;DATA_LENGTH:WORD;DATA_INDEX:WORD;PLC_ADDRESS NJJ×2:GT_WORD_BYTE;WAIT_COMPL_BUFR_FLAG:BOOLEAN;END;GT_PC_CONTEXT=RECORD MAX_PKT_SIZE:WORD;LAST_PKT_SIZE:WORD;NO_OF_PACKET:WORD;BUFFER_INDEX:WORD; JHHwTOTAL_TRAN:GT_WORD_BYTE;PACKET_OFFSET:GT_WORD_BYTE;LOGICAL_ADDR:PACKED ARRAY[1..20]OF GT_BYTE;LOGICAL_ADDR_LEN:WORD;UP_DOWN_FLAG:BOOLEAN; HLL_WAIT_COMPL_BUFR_FLAG:BOOLEAN;END;GT_HW_CONTEXT=RECORD TNS:WORD;TNS_UNSOLICITED:WORD;UNSOL_DST:WORD;UNSOL_SRC:WORD;UNSOL_CMD:WORD;UNSOL_ERROR:WORD;LMMUNSOL_LENGTH:WORD;CONNECT_FLAG:BOOLEAN;WAIT_BUFR_FLAG:BOOLEAN;STEP:WORD;BAUD_RATE:WORD;END;GT_BYTE_BIT_TAG=(BIT08,BIT01);GT_BYTE_BIT=PACKED RECORD MNNCASE GT_BYTE_BIT_TAG OF BIT08:(BYT:BYTE;);BIT01:(BIT:PACKED ARRAY[1..8]OF GT_BIT;);END;GT_BYTE_NIBBLE=PACKED RECORD CASE BOOLEAN OF TRUE:(BYT:BYTE;); NMMhFALSE:(NIB:PACKED ARRAY[1..2]OF GT_NIBBLE;);END;COMPLETION_TYPE=WORD;CONST IDLE=1;COMMAND=2;PLC=1774;PLC2=1771;PLC3=1775;PLC5=1785;PLC2_DATA_LENGTH=MMM242;PLC5_MAX_READ=122;PLC5_MAX_WRITE=119;GC_CTL30B=1536;GC_CTL33B=1728;GC_PC_H_ENTER_ERRORED=234;GC_PC_H_NOT_ALLOWED=128;GC_PC_H_INVLD_LGT_UNIT=132;MGGGC_PC_H_INVLD_LGT=133;GC_MESS_LENGTH_250=250;GC_TRANSPARENT=-32760;GC_CONNECT=-32748;GC_HW_H_ERROR_OFFSET=512;GC_HW_H_ENTER_ERRORED=361;GGGy+GC_CARD_ERRORED=256;GC_HW_H_CANT_ARM_IO=360;GC_NACK_10_RECEIVED=257;GC_PROTECTED_WRITE=0;GC_UNPROTECTED_READ=1;GC_PROTECTED_BIT_WRITE=2;GHHGC_PRIVILEGED_WRITE=3;GC_PRIVILEGED_READ=4;GC_DIAGNOSTICS=6;GC_OUTPUT_CONTROL=7;GC_WORD_RANGE_WRITE=0;GC_WORD_RANGE_READ=1;GC_BIT_WRITE=2;HFFmbGC_FILE_WRITE=3;GC_FILE_READ=4;GC_DOWNLOAD_REQUEST=5;GC_UPLOAD_REQUEST=6;GC_SHUTDOWN_REQUEST=7;GC_PHYSICAL_WRITE=8;GC_PHYSICAL_READ=9;FKKÚ&GC_RESTART_REQUEST=10;GC_PLC3_DIAGNOSTICS=11;PROCEDURE PC_PC2_HAND_AB$ALIAS'PC_PC2_HAND_AB'$(VAR ACTIVATION_CONTEXT:ACTIVATION_CONTEXT_TYPE;VAR K%%ŐDATA_AREA:BUFFER_AREA_TYPE;VAR PC_CONTEXT:GT_PC2_CONTEXT);IMPLEMENT %!wPCP2C PCP2C 880518.0837 1 0@_;;XX@E&PC_PC2_HAND_AB94202-16019 REV.5005 <880518.0 880518.0837^PCP2B::P1;IPC_PC2_HAND_ABqq å.DIV.ENTR ALLOCATE_BUFFER CREATE_UNSOL_REQFLUSH_SUB_REQUESPAS.BITDEPOSIT1 PAS.BITEXTRACT1 PAS.BITMASK1 PAS.BOUNDINTEGERPAS.NONCDS PAS.SETINIT PAS.SINGLEMOD RELEASE_BUFFERq??`py`pzp`wP( P(&(@`y@!Pv(%`y@!(Ap`y@!hv$p(B`y@$Pv(?`y@$A(65 p`y@$hv> p~~]?77(B`4p`y@!@ px`z@  `P(SP0(V(kpx(t`wP(Z(^`y@h"`wP(b(f`y@h#`z@ (t`y@!@h`y@h`x}~~==A{{pw|pv`px(`p`p`P(P((`@$hH@A@(`@$h@pp`@p`A@(`@!@@@?FFp    p`@$@@@?pA   `@!@@@?p    p`@$@@@?p   `@p(   ((`@!MCC@@@?pA     p`@$@@@?p   (`@!hH@A@(3`@!h@pp`@p`A@(`@$@RDFF@@?pA O   p`@!@@@?p_   `@$@@A@?p m   p`@!@@A@?p~   `@Ap(5   ((@@j `@$@@@?p    p`@!@@A@?p   (@L==Apppp(`p`p p`.p`.P(P(݈P((`6 p(`6p(`6pA (`6 A#p(##`6 #p(p` ` #. BBA (`p`p`ӈ@$@@?p     `@(x`ӈ@$@!@?p4   `@x`@$@"@?pAG   Ո`@!@P(TMDDP(P(qP((`ӈ@$@@?pb   `@$@#@?pp   (҈`@$@A@?p   `@$@#@?pA   Ԉ(`@$yyBB@@?p   `Ԉ@pԈ(`P(`@$@@?pA    (`@$@@?p    `Ԉ@pԈ(Ҩy<<8(`p`p`@$@hH!H`@!@P(P(P+(P-((`@p}p( } p( }p( p`(`@A@1f<<(`1(`@`@!@P(1P(7P(1P(7P#(@P+(IP-(I(O}5 p(O`#p}> p(O@!p}G p(O}M p(O`P99(`@h`@!@P(kP(kP(kP(kP#(P)( P+(ވP-((`(|`@!@! hH(`@hH!H!`@ CBB(`@$@h7`@!@!ph(x`@$@@?p   `@$@@?p    (݀pp`@!@@?A@?p    pDD`@$@@ @?p   88((`@$@@?p   `@$@!@?p   `@$@@?p    (`@$@h8(O4`@ f::8(`pc`pdpb`c@!@P(4P'(WP((PP*(PP,(P(^pb`d@p`1A@(O`dP(H(O`c@!@h.pb(``c@=(`*W `c@0(`pb`be^^ f++Ae`pb(`p`p`@hH!H`@p |h e(`@>(`@h^\DD8(k`p`@!@?p    `@$@!@?p    P(؈P(P!((`@!@?p    (`@!A@?p    (`770@!@?p   (`@!@?pA   7FEE8(`p`@!@?p    `@!@?p   `@!@@?p&    p`@$@"@?p 5   2p`90p` >FF&ph(x`@!@A@?pT   `@!@@?pAb    `@$A@?p o   p`@!@ @?pA~   `;p`!p`@!##^@@?pA    88(#BB8(`p㈁`p p`@$@`@hH@@p`1A@(Q`1p`@!@@ p!(v@ p `@`x ,HH@ \\c o))(v}t p(~`#@p}} p`(`@hHH1`@hHH1`@h`\<<8(`p[`p\`[@h`[@0`[@$@(Q`\@ (&`[@$(&`[@$@@?p]A  ]  P:(P?(P(( (&`[@!@h3g==(&pZ`[@$@!@?p]  ]  2p]`Z90]pZ`[@!@hZH5(&pZ`[@$@@?p]  ]  2p]`Z90]pZ`[@!@hZH5`[@!@ll+//(P`[@!@P(EP(EP(EP(EP#(HP+(?P-(B(PA(PD(PG(P`[@!@ p]O](P(Y`[@!@h[H$H^l_==8^(`p`p`@$@(`@$@A@?p x   P((%(`@ (Ap(p`(`@$@`@@@h`@$@<p   p(`@ (`@ @998(a`p`pP(P(P!(P"(P#((`@  `@ ((^߈((`@0`@AhhH!H(`@h`@!@h/!!A(( AB!66V%%i?6@%dD$ CLB  STB $DV16,I CLEAR DVT EXT STATUS ISZ IDS44  JMP IDS44,I DO WAIT RETURN* PULSE LDA $IFTX OUTPUT 10 US PULSE ADA B2 LDA A,I GET BASIC CONTROL WORD IOR B100K INCLUDE /PCIF/AB/%PCP2C:::5:67:128 644 0 0 41400 5303156051 33211 /PCIF_AB/AB/%PCP2C:::5:67:128 $C ]lC%PCP2C + )+ )+ )C!^LFST 88XE0PCP2C 94202-16020 REV.5005 <880518.0 880518.0816 ^PCP2C::P18 PCP2C  qPCP2C PCP2C 880518.0816 1 0 sPCP2C PCP2C 880518.0816 1 0MMFTYPE BYTE=-128..127;WORD=-32768..32767;MSG_TYPE=RECORD OFFSET:WORD;LENGTH:WORD;STATUS:WORD;CASE INTEGER OF 0:(FONCTION:WORD;PARAM1:WORD;PARAM2:WORD;MNN PARAM3:WORD;PARAM4:WORD;);1:(WORD_ARRAY:ARRAY[1..5]OF WORD;);2:(BYTE_ARRAY:PACKED ARRAY[1..10]OF BYTE;);END;ACTIVATION_CONTEXT_TYPE=RECORD EVENT:WORD NMM-;ACTION_FLAG:PACKED ARRAY[1..16]OF BOOLEAN;ACTION_CODE:WORD;PC_TYPE:WORD;PC_CAPABILITY:PACKED ARRAY[1..16]OF BOOLEAN;APPL_ID:WORD;REQUEST:MSG_TYPE; MKKSUB_REQUEST:MSG_TYPE;END;BUFFER_AREA_TYPE=PACKED ARRAY[1..8192]OF BYTE;HEADER_AREA_TYPE=PACKED ARRAY[1..17]OF BYTE;CONST PC_READD=1;PC_WRITED=2;KNNd0PC_READP=3;PC_WRITEP=4;PC_TRANS=8;PC_READD_EXT=9;PC_WRITED_EXT=10;PC_READP_EXT=11;PC_WRITEP_EXT=12;PC_WRITEB_EXT=13;PC_FREEZE=15;PC_START=16;PC_STOP= NLL17;PC_ENUNSOL=18;PC_DIUNSOL=19;PC_CONNECT=20;PC_DISC=21;PC_PCSTAT=22;PC_SYSTAT=23;PC_CANCEL=24;PC_LOCK=25;PC_UNLOCK=26;PC_GETKEY=27;PC_RELKEY=28; LMMկPC_CLOSE=29;PC_IDENT=30;PC_ASSOC=31;PC_CALIBRATE=32;PC_CONTINUE=33;PC_CYL_STOP=34;PC_DIR=35;PC_DISASSOC=36;PC_HOLD=37;PC_MAPIDENT=38;PC_MAPSTAT=39; MJJ:fPC_PRGM_DEL=40;PC_PRGM_SEL=41;PC_RLNQCNTL=42;PC_TAKECNTL=43;PC_CALL0=64;PC_CALL63=127;INITIALIZATION=1;REQUEST_INITIATION=3;REQUEST_REENTRY=4;JGGÿ#SUB_REQUEST_COMPLETION=6;UNSOLICITED_SUB_REQUEST=7;REQUEST_CANCELATION=8;NO_ACTION=1;SEND_SUB_REQUEST_WAIT=2;SEND_SUB_REQUEST_NOWAIT=3; GJJëSEND_REQUEST_COMPLETION=4;SEND_REQUEST_SUB_REQUEST=5;RESET_HIGHWAY_HANDLER=6;WAIT_REQUEST_BUFFER=7;WAIT_SUB_REQUEST_BUFFER=8;CAPABILITY_RW=1; JCCËCAPABILITY_PR=2;CAPABILITY_TR=3;CAPABILITY_UN=4;CAPABILITY_ST=5;ACTION_FLAG_EI=16;ACTION_FLAG_EU=15;SR_STATUS_MSG_SKELETON=235; CJJG\SR_STATUS_NO_AVAILABLE_MEMORY=236;SR_STATUS_NO_MATCH_FOUND=237;SR_STATUS_BUFFER_ALREADY_ALLOCATED=239;SR_STATUS_MORE_THAN_ONE_CREATE_UNS=240; JNNPSR_STATUS_CALL_MADE_BY_PC_HANDLER=243;SR_STATUS_NO_MSG=245;SR_STATUS_EXCEED_BUFFER_SIZE=246;SR_STATUS_NEGATIVE_OFFSET=247;SR_STATUS_NO_UP_BUFFER=248; NNN\sSR_STATUS_NO_ALLOCATED_BUFFER=249;SR_STATUS_INVALID_MSG=250;SR_STATUS_INVALID_MSG_TYPE=251;SR_STATUS_INVALID_CALL=252;SR_STATUS_LENGTH_TOO_LARGE=253; NIIeSR_STATUS_INVALID_LENGTH=254;SR_STATUS_UNKNOWN_MSG_TYPE=255;TYPE GT_BIT=0..1;GT_NIBBLE=0..15;GT_BYTE=0..255;GT_WORD_BYTE_TAG=(B16,B08,B01); IMMGT_WORD_BYTE=PACKED RECORD CASE BOOLEAN OF TRUE:(WD:WORD;);FALSE:(BT:PACKED ARRAY[1..2]OF BYTE;);END;GT_BUF_LEN_TYPE=PACKED RECORD CASE BOOLEAN OF MMMß1TRUE:(WD:WORD;);FALSE:(TYP:0..3;SIZ:0..16383;);END;GT_WORD_BYTE_BIT=PACKED RECORD CASE GT_WORD_BYTE_TAG OF B16:(WD:WORD;);B08:(BT:PACKED ARRAY[1..2]MNNùOF BYTE;);B01:(BI:PACKED ARRAY[1..16]OF GT_BIT;);END;GT_PC2_CONTEXT=RECORD IO_LENGTH:WORD;DATA_UNIT:WORD;DATA_LENGTH:WORD;DATA_INDEX:WORD;PLC_ADDRESS NJJ×2:GT_WORD_BYTE;WAIT_COMPL_BUFR_FLAG:BOOLEAN;END;GT_PC_CONTEXT=RECORD MAX_PKT_SIZE:WORD;LAST_PKT_SIZE:WORD;NO_OF_PACKET:WORD;BUFFER_INDEX:WORD; JHHwTOTAL_TRAN:GT_WORD_BYTE;PACKET_OFFSET:GT_WORD_BYTE;LOGICAL_ADDR:PACKED ARRAY[1..20]OF GT_BYTE;LOGICAL_ADDR_LEN:WORD;UP_DOWN_FLAG:BOOLEAN; HLL_WAIT_COMPL_BUFR_FLAG:BOOLEAN;END;GT_HW_CONTEXT=RECORD TNS:WORD;TNS_UNSOLICITED:WORD;UNSOL_DST:WORD;UNSOL_SRC:WORD;UNSOL_CMD:WORD;UNSOL_ERROR:WORD;LMMUNSOL_LENGTH:WORD;CONNECT_FLAG:BOOLEAN;WAIT_BUFR_FLAG:BOOLEAN;STEP:WORD;BAUD_RATE:WORD;END;GT_BYTE_BIT_TAG=(BIT08,BIT01);GT_BYTE_BIT=PACKED RECORD MNNCASE GT_BYTE_BIT_TAG OF BIT08:(BYT:BYTE;);BIT01:(BIT:PACKED ARRAY[1..8]OF GT_BIT;);END;GT_BYTE_NIBBLE=PACKED RECORD CASE BOOLEAN OF TRUE:(BYT:BYTE;); NMMhFALSE:(NIB:PACKED ARRAY[1..2]OF GT_NIBBLE;);END;COMPLETION_TYPE=WORD;CONST IDLE=1;COMMAND=2;PLC=1774;PLC2=1771;PLC3=1775;PLC5=1785;PLC2_DATA_LENGTH=MMM242;PLC5_MAX_READ=122;PLC5_MAX_WRITE=119;GC_CTL30B=1536;GC_CTL33B=1728;GC_PC_H_ENTER_ERRORED=234;GC_PC_H_NOT_ALLOWED=128;GC_PC_H_INVLD_LGT_UNIT=132;MGGGC_PC_H_INVLD_LGT=133;GC_MESS_LENGTH_250=250;GC_TRANSPARENT=-32760;GC_CONNECT=-32748;GC_HW_H_ERROR_OFFSET=512;GC_HW_H_ENTER_ERRORED=361;GGGy+GC_CARD_ERRORED=256;GC_HW_H_CANT_ARM_IO=360;GC_NACK_10_RECEIVED=257;GC_PROTECTED_WRITE=0;GC_UNPROTECTED_READ=1;GC_PROTECTED_BIT_WRITE=2;GHHGC_PRIVILEGED_WRITE=3;GC_PRIVILEGED_READ=4;GC_DIAGNOSTICS=6;GC_OUTPUT_CONTROL=7;GC_WORD_RANGE_WRITE=0;GC_WORD_RANGE_READ=1;GC_BIT_WRITE=2;HFFmbGC_FILE_WRITE=3;GC_FILE_READ=4;GC_DOWNLOAD_REQUEST=5;GC_UPLOAD_REQUEST=6;GC_SHUTDOWN_REQUEST=7;GC_PHYSICAL_WRITE=8;GC_PHYSICAL_READ=9;FKKÚ&GC_RESTART_REQUEST=10;GC_PLC3_DIAGNOSTICS=11;PROCEDURE PC_PC2_HAND_AB$ALIAS'PC_PC2_HAND_AB'$(VAR ACTIVATION_CONTEXT:ACTIVATION_CONTEXT_TYPE;VAR K%%ŐDATA_AREA:BUFFER_AREA_TYPE;VAR PC_CONTEXT:GT_PC2_CONTEXT);IMPLEMENT % uPCP2C PCP2C 880518.0816 1 0@;;Xt,E44PC_PC2_HAND_AB94202-16020 REV.5005 <880518.0 880518.0816^PCP2C::P1;g #PC_PC2_HAND_AB}} .DIV.EXIT0.SDSP ALLOCATE_BUFFER CREATE_UNSOL_REQFLUSH_SUB_REQUES PAS.BITDEPOSIT1 PAS.BITEXTRACT1 PAS.BITMASK1 PAS.BOUNDINTEGERPAS.CDS PAS.SETCLEARPAS.SETINIT PAS.SINGLEMOD RELEASE_BUFFER}~~><SPC_PC2_HAND_ABSGET_PC_BUFFER ` @p` @p` @ ` P(&P(F(f`@P (E`@(9@h H `@h ~TT@>'!Ph H (j`@P (e`@(Y@h H `@h Ph H T,e11(j` @ hi`@@ p `@ ` @ P(}P((p (` P((`@h` P((`@h`@ (`B77@@h H `@h`  (` Hp p `p (SSWAP_BUFFER ` @p` @p`P(P(s(`@h H@A@(}>:`@h@pp ` @p`A@(A` @p`@ @@ @pp` @p`@@@ @pWWN)%` @p`@@@ @pp` @p`@@@ @pW=?9` @p ((J(r` @p`@@@ @pp` @p`@@@ @p(`@hH@A}}z|:8@(`@h@pp ` @p`A@(` @p`@@@ @pp` @p`@@@ @p}4W %@=7` @p`@@@ @pp` @p`@@@ @p` @p (((` @p`@ii40@@ @pp` @p`@@@ @p@(,`H@ ppp p(ik60;9SGET_LENGTH_UNIT `@p `@p  p ` . p ` .P(SP(YP(]({` ? p (}` ?p (}` ?p(r` ? MM$k++Ap (z` ? Ap (}p `  ` &`0H(;S FORM_READD_WRITED M:6`@p `@p `@p ` @@@p  ` @(x `@p ` @@@p    ` @x `ss2.@p ` @@@p    ` @@P(P(]P(P(=(`@p ` @((@@p  s~~<6`@p ` @@@p   (`@p ` @@@p  `@p ` @@@p    (`~tt>82@p ` @@@p    `` @p   (` P(v`@p ` @@@p  (tzv@<`@p ` @@@p  `` @p   (@#`@H(SFORM_SUBREQUEST `@p `@p ` @@]]u'#h HH` @@P(P(P(P((`` @pp (舱`p (]5@73` p (p ` (#` @A @(` (` @ ` @@P(P(P(P(P($P(0P(0(9`G93 p (9`` pp (9` @pp (9` p (9` (#` @h` @@P(UP(UP(UP(UP$M(wP(P(P((U53` (f` @@ h H(m` @h HH` @ `(#` @@h` @@p h (x`@p` ~~ >8@@@p`@p` @@@p (pp `@p` @@ @@pp`~33b"@p` @@ @@p8 8(3~~<6(#`@p` @@@p `@p` @@@p `@p` @@@p(#` ~}}66@@h(#` @  &`H(SVALIDATE_REQST`@p `@p p ` @@P(PP(sP(lP(lP(l(z}A;P::p ` @p`A@(k` P(d(k` @@hp (|` @(|` @0(|p ` $`-H`p (7Sbb$/)REQUEST_INIT`@p `@p ` @h HH`` @p  h `~(`$b/<:` @(` @h #`H(SCOMPL_PCSTAT`@p `@p ` @@p  `@p ` @@ttr93@p  P(.P(P((B`@p ` @@p   (U`@p ` @ @p  (Ut.A=`@p ` @@p  (U`@p ` @@p    #`H(SCOMPL_IDENT `@p `@jjo5/p ` @@p  `@p ` @ @p  `@p ` @@@p  jc<8p `@p ` @@@p  p ` 0 p ` Ap h (x `@p ` @@@p  `@p ll55/` @@@p  `@p ` @ @p  p `@p ` @@@p  l?;`p `p `@p ` @@ @p 8 8 (@%`_@H(hSMOVE_BUFFER `@p `@p` p ` @(5T<8@A@ (c` @@p ` (pp `@p` @@ @@pp`@p` @@ @@p&8 8(kpF>@'`9@Hp (BSDO_NEXT_PACKET`@p `@p ` @(` @@p !($ `@$@` x ,TT('%H@ (`` @p` @@p ` @h H @A@(xTGB:` @` @h H@ @p `A@ (`p ` @@p !(Q$ `@$@` x ,HH@ [[4GE($(Q` p (\``@ p  p ` (x` @h HH` @h HH[~~m:8` @h` ` 6`H(SSUBREQ_COMPL`@p `@p ` @h` @0` @@( F` @~~~31( ` @( `@p ` @@@p   P(P(P((( ` @@h( p `@p ` @@@p ~ Z  p ` 0 p ~~s420` @@h H( p `@p ` @@@p  p ` 0 p ` @@h H` @@( E` @@P~yy( 4,( 4P( 4P( 4P( 4P( :P( (P( .( E`V( E`0( E`y( E`` @@p  ( E( N` @@h HHyZ N=9@$`@H(SUNSOL_SUBREQ`@p `@p ` @@( `@p ` @@@p  P( ` @( 0{{W 62hH ( `@ `@ ( `` @@p  p ` ( Ȋ` @@h` @h`` @@p  {}} 64@hH ( ` @ ( ` @  $` XH( a`p `p P( 쨨P( P( P( P( ( ` @ ` @ ( "` }ttx 5-( "`  O( "`  ( "` @0` @h`h HH( "` @h` @@h &`H ( t""( ABfp"@8, CPA TEMP,I SAME?  RSS YES,CONTINUE JMP REJ25 NO,REJECT IT INB WORD 16 OF IDSEG (STATUS)  LDA B,I GET STATUS AND B77 BITS 5-0 SZA DORMANT?/PCIF/AB/*AB:::4:12:45 644 0 0 6000 5303156052 32302 /PCIF_AB/AB/*AB:::4:12:45 $ ] -*AB + *+ *+ * 5FST * *AB SOURCE: 94202-17001 REV.5005 <880311.0927>#* transfer file for installing PCIF/1000 Allen-Bradley on user's site #* SET LOG = ON)*&dB************************** WARNING ***************************************** )-*&dB &d@ &dB * --*&dB &d@ The following LINK command files : &dB * --*&dB &d@ &dB * --*&dB &d@ #ABTST #ABUP #ABDN &dB * --*&dB &d@ &dB * --*&dB &d@ WILL NEED UPDATING for path names, SNAP file, and PASCAL Library &dB * --*&dB &d@ if your system does not match the defaults listed below: &dB * --*&dB &d@ &dB * --*&dB &d@ Defaults Used in these Lo((ad Files : &dB * --*&dB &d@ &dB * --*&dB &d@ Path name where Allen-Bradley software resides = /pcif/ab &dB * --*&dB &d@ Snap File of RTE-A System = "SNAP" &dB * --*&dB &d@ Name of Pascal Compiler Library = "Pascal.LIB::libraries" &dB * --*&dB &d@ and "Pascal_cds.LIB::libraries" &dB * --*&dB &d@ Security Code of all these files = "1" &dB * -)*&dB**************************************************************************** )* ******************************* * ** * PCIF/1000 linking process ** * ** ******************************* * * linking ABTST ( Allen-Bradley Verification Program ) LINK /pcif/ab/#ABTST * * linking ABUP ( Allen-Bradley Upload Program ) LINK /pcif/ab/#ABUP * * linking ABDN ( Allen-Bradley Download Program ) LINK /pcif/ab/#ABDN *  **************************************************************** * * * loading of PCIF/1000 Allen-Bradley programs completed ! * * * **************************************************************** !* Do a directory list on the directory to show all loaded files : !$* If all of the following files are present, PCIF A-B loaded correctly :$*  * ABDN ABTST ABUP &* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * &*  DL,/pcif/runtime/ab@ *  SET LOG = OF `̂,9( `D,HDDH@ 9p`*BV0Bp*` (A p `G,H@A(`p/PCIF/AB/#ABUP:::4:2:26 644 0 0 1000 5303156053 32663 /PCIF_AB/AB/#ABUP:::4:2:26 $ ]#ABUP + ++ ++ + FST ********************************************* * #ABUP SOURCE: 94202-17002 REV.5005 <880311.0905> * link file for ABUP Allen-Bradley Upload Program * Path name & Security Code may need updating.* command file MAY NEED UPDATING for Snap Shotsn,snap pc,31,0  li,/pcif/runtime/pclib.lib li,/libraries/pascal.lib re,/pcif/ab/%abup se,/pcif/ab/$ablib en,/pcif/runtime/abup /PCIF/AB/#ABDN:::4:2:26 644 0 0 1000 5303156054 32610 /PCIF_AB/AB/#ABDN:::4:2:26 $ ]#ABDN + ,+ ,+ , FST ************************************************* #ABDN SOURCE: 94202-17003 REV.5005 <880310.1404> * link file for ABDN Allen-Bradley Download Program * Path names & Security Code may need updating* command file MAY NEED UPDATING for Snap Shotsn,snap pc,31,0  li,/pcif/runtime/pclib.lib li,/libraries/pascal.lib re,/pcif/ab/%abdn se,/pcif/ab/$ablib en,/pcif/runtime/abdn /PCIF/AB/#ABTST:::4:2:28 644 0 0 1000 5303156056 33236 /PCIF_AB/AB/#ABTST:::4:2:28 $ ]#ABTST + -+ .+ .FST ********************************************************* #ABTST SOURCE: 94202-17004 REV.5005 <880310.1406> * link file for ABTST Allen-Bradley Test PRogram* Path name & Security Code may need updating * command file NEEDS UPDATING for Snap Shot ********************************************************* sn,snap pc,31,0  li,/pcif/runtime/pclib.lib li,/libraries/pascal.lib re,/pcif/ab/%abtst se,/pcif/ab/$ablib en,/pcif/runtime/abtst /PCIF/AB/!PCCA6:::3:12:107 644 0 0 6000 5303156057 33226 /PCIF_AB/AB/!PCCA6:::3:12:107 $ ] k!PCCA6 + .+ /+ / )FST <vFO !PCCA6 94202-17009 Rev.5005 PCIF Screen 6 for ALLEN-BRADLEY <880323>   Y F01 V02OC #< > NEW_OLD DC.D065E05creen 6 for ALLEN-BRAD > HWY_TYPEDC.D065E05*creen 6 for ALLEN-BRAD > HWY_NO 9DI.D065E05acreen 6 for ALLEN-BRAD > BRG_0  "OC.B065C052creen 6 for ALLEN-BRAD > BRG_1  "OC.B065C052creen 6 for ALLEN-BRAD > B_300 OC.B065C05+creen 6 for ALLEN-BRAD > B_1200 "OC.B065C05Jcreen 6 for ALLEN-BRAD > B_2400 )OC.B065C05icreen 6 for ALLEN-BRAD > B_4800 0OC.B065C05creen 6 for ALLEN-BRAD > B_9600 7OC.B065C05creen 6 for ALLEN-BRAD > B_19200 >OC.B065C05creen 6 for ALLEN-BRAD (N&v02S ** SCREEN 6 **(&v02S )P&v02SPCIF/1000 Configuration Editor : Highway ALLEN-BRADLEY Special Information)&v02S *&v02S&v06S&dD] ]&v02S&d@ &v02S ;t&v02S Highway type : &v06S&dD] ]&v02S&d@ Number : &v06S&dD] ]&v02S&d@;&v02S &v02S !@&v02S Baud rate Generator 0: &v06S&dB[ ]&v02S&d@!&v02S !@&v02S Baud rate Generator 1: &v06S&dB[ ]&v02S&d@!&v02S &v02S $F&v02S 300 1200 2400 4800 9600 19200$k&v02S Baud rate : &v06S&dB[ ]&v02S&d@ or &v06S&dB[ ]&v02S&d@ or &v06S&dB[ ]&v02S&d@ or &v06S&dB[ ]&v02S&d@ or &v06S&dB[ ]&v02S&d@ or &v06S&dB[ ]&v02S&d@k&v02S &v02S 'K&v02S WARNING ! For the same MUX card, choose compatible baud rates for '/&v02S the same baud rate generator. &v02S )O )&v02S )O )KFO HELP REFRESH ABORT PCCON KKFO KKFO KKFO KKFO KHDDH@ 9p`*BV0Bp*` (A p `G,H@A(`p/PCIF/AB/"PCCA6:::4:6:39 644 0 0 3000 5303156070 33004 /PCIF_AB/AB/"PCCA6:::4:6:39 $ ]'"PCCA6 + 7+ 8+ 8FST * "PCCA6 94202-17010 REV.2606 <860219.1716> 'The message CREATING is displayed if this highway has not previously been''created, or MODIFYING if it has. The validation flag is not set if any of the'required information on this screen is not supplied. !Baud rate generator: enter an X to define the baud rate generator.! %Baud rate: enter an X to define the required baud rate. The rate entered %$ must agree with the baud rate setting on the SMARTEYE controller box. $ 'Note that the operator defines the relationship between generator and baud'&rate the first time a highway is configured for the MUX card. The baud&$rates are 300 and 1200 in one group and 2400, 4800, and 9600 in a second$&group. When a baud rate is assigned to a baud rate generator only baud rates&%in that group can be assigned for other highways using the same baud rate %generator ON THE SAME MUX CARD.  'If the softkey ABORT PCCON is depressed, a confirmation will be required.(( The''key must be pressed again to confirm. The configuration editor will then be''terminated. If the ABORT PCCON key is pressed once in error, pressing another'key disables the ABORT request.  Press the HOME UP key to return to screen 6. h    P   `  h6`6 @L 0 @ &`@H p ( N @ @FeBGGX</PCIF/AB/A94202:::4:13:39 644 0 0 6400 5303156071 32552 /PCIF_AB/AB/A94202:::4:13:39 $ ] 'A94202 + 9+ 9+ 9 .FST * A94202 SOURCE: 94202-17999 REV.6000 <901218.1010>  **************************************************************  * PCIF/1000 ALLEN-BRADLEY HANDLER SOFTWARE NUMBERING FILE *  * FILE FILE NAME: A94202 *  * *  * PRODUCT: 94202A REV.6000 *  * *  **************************************************************   Directory: /PCIF/AB/    FILENAME PART NUMBER REV. TYPE DESCRIPTION ' --------------------- ----------- ---- ---- --------------------------------'  A94202 94202-17999 6000 4 PCIF/1000 A-B SNC  %PCPAB 94202-16001 6000 5 PC handler (A-B)! %PCPAC 94202-16012 6000 5 PC handler CDS (A-B)!! %PCHAB 94202-16002 6000 5 Highway handler (A-B) !# %PCHAC 94202-16013 6000 5 Highway handler CDS (A-B) #" %PCP2B 94202-16019 5005 5 Non-CDS PLC2 PC Handler " %PCP2C 94202-16020 5005 5 CDS PLC2 PC Handler $ !PCFAB 94202-16003 6000 4 Z80 protocol handler (A-B)$ [PCPAB 94202-18004 5005 4 A-B : PC descriptor " [PCPAC 94202-18010 5005 4 A-B : CDS PC descriptor "# [PCHAB 94202-18005 5005 4 A-B : highway descriptor#% [PCHAC 94202-18011 5005 4 A-B : CDS highway descriptor%" [PCP2B 94202-18021 5005 4 Non-CDS PLC2 descriptor " [PCP2C 94202-18022 5005 4 CDS PLC2 descriptor & *AB 94202-17001 5005 4 CI cmd file for installing A-B&% &ABUP 94202-18006 5005 4 A-B PC Upload Utility Source%$ %ABUP 94202-16006 5005 5 A-B PC Upload Utility Reloc $& #ABUP 94202-17002 5005 4 A-B PC Upload Utility LINK cmds && &ABDN 94202-18007 5005 4 A-B PC Download Utility Source&& %ABDN 94202-16007 5005 5 A-B PC Download Utility Reloc.&& #ABDN 94202-17003 5005 4 A-B PC Download Utility LINK cm &' &ABTST 94202-18008 2435 4 A-B PC Diagnostic Utility Source'' %ABTST 94202-16008 2435 5 A-B PC Diagnostic Utility Reloc.'' #ABTST 94202-17004 5005 4 A-B PC Diagnostic Util LINK cmds'% &ABLIB 94202-18009 5005 4 A-B PC Subroutine Lib Source%% $ABLIB 94202-12001 5005 5 A-B PC Subroutine Lib Indexed %# &ABLBC 94202-18018 5005 4 A-B PC CDS Sub Lib Source #$ $ABLBC 94202-12002 5005 5 A-B PC CDS Sub Lib Indexed$$ %PCCHA 94202-16016 5005 5 Config screen 6 processing$# !PCCA6 94202-17009 5005 3 Config form file screen 6 ## "PCCA6 94202-17010 2606 4 Config help file screen 6 #creen 6 $BODEC.3 DS_MM.2 N$MMDEC.3 N$TUSER.1 PAS.CDS PAS.DOUBLEMOD SODEC.3 MNN ,8,SCONVERTTIME  @x @    x     x@ /PCIF/AB/[PCPAB:::4:3:33 644 0 0 1400 5303156073 33312 /PCIF_AB/AB/[PCPAB:::4:3:33 $ ]![PCPAB + :+ ;+ ;>FST * [PCPAB 94202-18004 REV.5005 <880310.1324>  --PCIF DESCRIPTION FILE---  HANDLER TYPE = PC BRAND =ALLEN-BRADLEY! COMMENT=The ALLEN-BRADLEY PC handler support the following PC's: ! COMMENT=PLC-3,PLC5  TYPE = 1775/PLC-3.FAMILY  TYPE = 1785/PLC-5.FAMILY  IO = MULTI  RUN TIME FILE = /PCIF/AB/%PCPAB  RUN TIME ENTRY = PC_PC_HAND_AB  CONTEXT SIZE = 38 SUPPORTED HIGHWAY = 94202  CAPABILITY = 0000011111111111 --PCIF END OF DESCRIPTION-- = 20--PCIF END OF DESCRIPTION-- /PCIF/AB/[PCHAB:::4:3:36 644 0 0 1400 5303156073 33346 /PCIF_AB/AB/[PCHAB:::4:3:36 $ ]$[PCHAB + ;+ ;+ ;^FST * [PCHAB 94202-18005 REV.5005 <880310.1321>  --PCIF DESCRIPTION FILE---  HANDLER TYPE = HIGHWAY 94202  BRAND =ALLEN-BRADLEY$ COMMENT=The ALLEN-BRADLEY highway handler supports the following PC's: $ COMMENT= mini PLC-/15,PLC-2,PLC-2/20,PLC-2/30,PLC,PLC-3,plc5  TYPE = 1771/Data Highway  IO = LU=2 RUN TIME FILE = /PCIF/AB/%PCHAB  RUN TIME ENTRY = PC_HW_HAND_AB  CONFIGURATOR FILE = /PCIF/AB/%PCCHA  CONFIGURATOR ENTRY = PC_CONF_HY_AB  DOWNLOAD FILE = /PCIF/AB/!PCFAB  CONTEXT SIZE = 22 --PCIF END OF DESCRIPTION--/PCIF/AB/&ABUP:::4:104:39 644 0 0 64000 5303156075 34132 /PCIF_AB/AB/&ABUP:::4:104:39 $h ]h'&ABUP + <+ =+ =h32FST ftn7x,l,t,c $FILES(2,2)  PROGRAM ABUP (4,99),94202-16006 REV.5005"C*******************************************************************""C NAME : ABUP *""C PGMR : B.Pascal <880310.1346> *""C *""C SOURCE: 94202-18006 * ""C *""C **************************************************************""C * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1984. ALL RIGHTS *""C * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, RE- *""C * PRODUCED, OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH- *""C * OUT THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. *""C **************************************************************""C *""C This program reads a PC's memory up to the end of the ladder *""C logic program and saves it in a file. It is run as follows: *""C *""C RU, ABUP , pc *""C *""C pc - LOGICAL Identifier of PC *""C *""C Note: Any parameters that are left out will be prompted for. *""C *""C*******************************************************************""C *""C Modification History: *""C *""C 1) Modified 860210/860326 Added PLC-3 capability and *""C Ken((t Garliepp modified to use new ABLIB calls. *""C *""C 2) Modified 1/12/88 Added PLC5 upload capability. *""C Francis Tang Memory map of the user memory: *""C REV 5005 14 bytes from address 0000 *""C All bytes between A00 to 3600 hex *""C *""C*******************************************************************"c... c... Declarations c...# INTEGER ibuf(128) ! scratch buffer for file transfers# $ CHARACTER*64 file_name ! name of file to contain PC memory $  INTEGER file, ! unit number of file % + dcb ( 144 ), ! Data Control Block for file accesses% + file_type, ! type of file + error, ! error return variable # + blanks(6), ! placekeeper of zeros for PC file#' + file_header(6), ! 6-word header for file holding pc memory'$ + len_to_write, ! length in bytes of buffer to write$$ + len_written ! length in bytes of buffer written $ $ INTEGER FmpWrite, ! Declare these functions as INTEGER$$ + FmpRead, ! so that the returns are correct. $ + FmpOpen, + FmpClose   INTEGER status, ! status of PCIF call & + tag, ! tag identifier for no-wait PCIF calls &$ + key, ! access key for no-wait PCIF calls $ + pc, ! pc station address% + subfunction ! PC_TRANS call parameter for CMD byte% ! INTEGER*4 pcadr ! pc memory address parameter !  INTEGER read_length, ! length of read from pc" + max_length ! maximum length of read from pc" % INTEGER reallu, ! system LU of terminal invoking this % + ! program ! + yes_no ! user "yes" or "no" response ! " INTEGER params(5), ! buffer for run-time parameters"' + start_addr, ! address of first word to read in memory ' + start_addr_byte, ! start address in bytes' + end_marker ! value of the END delimiter in pc memory '' LOGICAL done_flag ! flag to indicate the END marker surfaced' INTEGER pc_type, ! type of pc + memory_size, ! size of pc's memory # + words_to_get (2), ! how many words remaining to read#% ! 1 - Data Table, 2 - Program Area %% + data_table, ! index to words_to_get for Data Table%& + program_area, ! index to words_to_get for Program Area&$ + which_mem_area, ! which memory area are we accessing$' ! ( 1 = data_table, 2 = program_area ) '' + program_rec, ! file record containing start of program '$ + data_table_rec, ! file record - start of data table $' + record_pointer ! pointer to next record to access in file'& LOGICAL messages_in_mem, ! flag to indicate that this PC has some&' ! messages in its memory, so upload all '& + file_not_ready, ! flag to indicate FMP file is not ready&' + want_data_table ! flag to say if data table should be read'  CHARACTER*8 ASCII_pc_type ! type of PC as ASCII string  ' INTEGER key_position, ! position of PC key switch ( RUN, PROG...'' + pc_connected, ! is the PC connected to the data highway ' + station_type, ! type of interface module% + diag_address, ! address of diagnostic counters in PC%" + fw_rev, ! revision of interface firmware"! + fw_series, ! series of interface firmware!% + option_switches, ! switch settings on interface module % + prog_start_addr, ! pc program start address$ + total_words_read, ! total number of words read from pc$& + start_table_addr, ! start of table (860210)&& + end_table_addr ! end of table (860210)&& INTEGER*4 end_mem_addr ! EO used mem (double INTEGER) (860210)&& LOGICAL upload_flag ! indicates if upload cmd used (860210)& !--------------------------------------------- ! table of pc type and memory (860210) - ! diagnostic status return : - ! - ! Table(n,1) Table(n,2) - ! Index PC Type Type code Mem size - ! - ! 1 = PLC 0 12K - ! 2 = PLC-2 1 2K - ! 3 = MINI 2 2K - ! 4 = 2/20-LP1 3 8K - ! 5 = 2/20-LP2 5 8K - ! 6 = 2/15 6 2K - ! 7 = 2/30 7 16K - !--------------------------------------------- ! EQUIVALENCE (pc,params(1)) ! RUN STRING PARAMETERS ! DATA max_length / 119 / DATA file /32767/  DATA file_type / 3 /  DATA blanks / 6*2hPC /   DATA data_table / 1 /, program_area / 2 /$PAGE c------------------------------------------------------------ c Set up the enviroment in which the upload program - c is going to run. - c - c------------------------------------------------------------  status = 0 tag = 0 key = 0 upload_flag = .FALSE. c...c... Get parameters from the run string c...  CALL RMPAR(params) ! Get first 5 parameters " log_lu = LOGLU ( REALLU ) ! Get real lu of invoking terminal "c...c... Say HELLO !c...! WRITE ( log_lu, '(2/,T21,"Welcome to the PCIF/1000 Upload", !" + " Program ",2/,T34,"&dB ABUP &d@",T69,"Rev.5xxx")') " c...c... Prompt for parameters that are left out or erroneous c... c...c... First check the PC number. c... 2 CONTINUE IF ( pc .LE. 1 ) THEN  WRITE ( log_lu, '(/,"Enter the PC Identifier : _")' )  READ ( log_lu, * ) pc  ENDIF c...c... Find out if the user has messages in memory or not.!c... This will determine whether or not this program should upload!!c... all of PC's memory, or just until the end of program marker. !c...# WRITE ( log_lu, '(/,"Do you have any messages in the memory of",# + " this PLC3 ( Y or N ) ? _")' )  READ ( log_lu, '(A2)' ) yes_no  IF ( yes_no .NE. 2hY .AND. yes_no .NE. 2hy ) THEN  messages_in_mem = .FALSE. ELSE messages_in_mem = .TRUE.  ENDIF c...!c... Find out if the user wishes to upload the data table as well ! c... as the program. c...$ WRITE (log_lu,'("Do you wish to upload the PLC2''s Data Table ?", $ + " ( Y or N ) _")')  READ ( log_lu, '(A2)' ) yes_no  IF ( yes_no .NE. 2hY .AND. yes_no .NE. 2hy ) THEN want_data_table = .FALSE.  ELSE want_data_table = .TRUE. ENDIF c...c... Establish communication with PCIF c... Do a PCIF_OPEN. c... CALL PCIF_OPEN ( status )  IF ( status .NE. 0 ) THEN  CALL report_pcif_err ( log_lu, status )  CALL it_quits ( pc ) ENDIF c...c... Establish connection with the AB PLCs. c... CALL PC_CONNECT ( status, tag, key, pc ) IF ( status .NE. 0 ) THEN  CALL report_pcif_err ( log_lu, status )  CALl it_quits ( pc ) ENDIF c...#c.. Lock the PC so noone else messes with it while this is going on...#c... CALL PC_LOCK ( status, pc )  IF ( status .NE. 0 ) THEN  CALL report_pcif_err ( log_lu, status )  CALL it_quits ( pc ) ENDIF $PAGE "c------------------------------------------------------------------ ""c Get the name of the file in which to store the PC program. - ""c Create the file if it does not exist. If it already exists, - ""c prompt for instructions. - ""c------------------------------------------------------------------ " 200 file_not_ready = .TRUE.  DO WHILE ( file_not_ready )  " WRITE ( log_lu , '("Enter the name of the storage file ", " + " (/E to quit) : _")') READ ( log_lu , '(A64)', iostat = error ) file_name ! IF ( file_name .EQ. '/e' .OR. file_name .EQ. '/E' ) THEN! WRITE ( log_lu , '(2/)' )  CALL it_quits ( pc ) ENDIF  ! 210 file_type = FMPOPEN ( dcb, status, file_name, 'rwc', 1 )!  IF ( status .EQ. -2 ) THEN" WRITE ( log_lu , '("&dB File already exists with the "# + name :", 5X,A64,/,"Do you want to overwrite it ( Y or N # + ) ? _")') file_name  READ ( log_lu , '(A2)' ) yes_no  (( IF ( yes_no .EQ. 2hY .OR. yes_no .EQ. 2hy ) THEN $ file_type = FMPOPEN (dcb, status, file_name, 'rwo',1) $ IF ( status .LT. 0 ) THEN " WRITE ( log_lu , '("Error ",I6," trying to re-"" + open file"," :", /,A64," of type : ",I6,2/)')" + status, file_name, file_type ELSE  file_not_ready = .FALSE. ENDIF ENDIF  ELSE IF ( status .LT. 0 ) THEN ! WRITE ( log_lu , '("Error ",I6," in opening file :",!# + /,A64," of type : ",I6,/)') status,file_name, file_type# GOTO 200  ELSE file_not_ready = .FALSE. ENDIF  ENDDO  ' record_pointer = 1 ! this points to which record in the disk file '" ! which is currently being accessed "c...c... Write a 6-word record as a place-saver at the beginning c... of the file. This record is written last.c... len_to_write = 12 ! len_written = FMPWRITE ( dcb, status, blanks, len_to_write )! IF ( status .NE. 0 ) THEN  CALL report_fmp_err ( log_lu, status ) CALL it_quits ( pc ) ENDIF  record_pointer = record_pointer + 1 $PAGE #c---------------------------------------------------------------------##c Check the type of PC and its online status. Obtain the -##c diagnostics information from the PC which may conatin the program -##c start address and pc type. This subroutine resides in $ABLIB - -##c it gets the status using the PC_TRANS call. -##c---------------------------------------------------------------------# CALL diag_status ( pc, status, key_position, pc_connected, + station_type, pc_type, prog_start_addr, diag_address,  + fw_rev, fw_series, option_switches )   IF ( status .NE. 0 ) THEN  CALL report_pcif_err ( log_lu, status )  CALL it_quits ( pc ) ENDIF  c...c... Check to see that the PC is connected to the data highway c... interface module.   IF ( pc_connected .NE. 0 ) THEN $ WRITE ( log_lu, '("&dB PC is not connected to the interface" $ + " module ! I quit.",2/)') CALL it_quits ( pc ) ENDIF c...c... Get the start and end address of the program area andc... data area of the plcs. c... IF ( pc_type .EQ. 11) THEN ! plc5  ! plc5 should be in program mode  IF ( key_position .NE. 0 ) THEN WRITE(log_lu, '("PLC5/15 is not in program ",  + "mode PC no is ",I2)') pc  CALL it_quits( pc )  ENDIF $ prog_start_addr = 2400B ! starting word address is 500 hex.$$ end_mem_addr = 17770B ! Ending word address is 1FF8 hex. $% want_data_table = .FALSE. ! data area + program area mixed in. % ! read off the first 14 bytes at address 0 ! ! for plc5  pcadr = 0 ! read address 0 read_length = 7 ! 14 bytes CALL PC_READP ( status, tag, key, pc, ibuf,  + read_length, pcadr ) IF ( status .NE. 0 ) THEN  CALL report_PCIF_err ( log_lu, status )  CALL it_quits ( pc ) ENDIF  len_to_write = 14 " len_written = FMPWRITE ( dcb, status, IBUF, len_to_write )" IF ( status .NE. 0 ) THEN  CALL report_fmp_err ( log_lu, status ) CALL it_quits ( pc ) ENDIF  record_pointer = record_pointer + 1  ELSE CALL ab_mem_config( pc,status,start_table_addr, " + end_table_addr, prog_start_addr,end_mem_addr ) " IF( status .NE. 0 )THEN  CALL report_pcif_err( log_lu, status ) CALL it_quits( pc )  ENDIF  IF ( end_mem_addr .GT. 32767 ) THEN # WRITE(log_lu, '("Memory is too large for this program; "# + ,I12," words")') end_mem_addr  CALL it_quits( pc )  ENDIF  ENDIF " memory_size = end_mem_addr ! Good for 32k words !"  90 WRITE ( log_lu, '(/,T9,"&dB PC Type = _")')  IF ( pc_type .EQ. 0 ) THEN WRITE ( log_lu, '(" PLC ")' ) " WRITE ( log_lu, '(/,"This program cannot handle the PLC","! + " model of Programmable Controller. Sorry...",2/)')! CALL it_quits ( pc )  ENDIF c...c... Convert this number into an ASCII string for printout. c... CALL convert_pc_type ( pc_type, ASCII_pc_type )  WRITE ( log_lu, '(A8)' ) ASCII_pc_type $PAGE !c---------------------------------------------------------------- !!c Establish the first word in PC memory to read, and the last - !!c word of the program area. - !!c These are the same for all PLC-2 family processors. - !!c---------------------------------------------------------------- !" IF ( (want_data_table) .AND. (start_table_addr .GE. 0) ) then " start_addr = start_table_addr*2  data_table_rec = record_pointer  which_mem_area = data_table  ELSE want_data_table = .FALSE.  start_addr = prog_start_addr data_table_rec = 0 program_rec = record_pointer which_mem_area = program_area  ENDIF ' end_marker = 22001B ! This code is a PROGRAM END statement for PCs' # WRITE ( log_lu,'(T32,"A","&dB Maximum Memory Size (words) =", # + I6," ")') memory_size! WRITE ( log_lu, '(T9,"&dB",T37,"Maximum Words to Read = ", ! + 5X,I6," &d@",/)') memory_size - start_addr +1c...c... Read loop to get data from PC to disk file.c... Initialize the number of words to get from the pc. c... words_to_get (data_table) = prog_start_addr - start_addr words_to_get (program_area) = memory_size - start_addr + 1 total_words_read = 0 done_flag = .FALSE.  IF ( which_mem_area .EQ. data_table ) THEN! WRITE ( log_lu, '("Now uploading PC Data Table ...")') ! ELSE" WRITE ( log_lu, '("Now uploading PC Program Area ...")') " ENDIF c... c.. If the 1771-KA revision is 4(E) or earlier, skip this step. c.. It puts the PC into DOWNLOAD mode, which can only be done c.. with REV 5. This only applies to PLC-2/15s and PLC-2/30s. c...! IF(( pc_type .EQ .4 ) .OR. ( pc_type .EQ. 11 )) THEN ! PLC3!$ CALL pc_freeze( status,tag,key,pc ) ! PLC5 also!$ upload_flag = .TRUE. END IF' IF( pc_type .EQ. 6 .OR. pc_type .EQ. 7) THEN ! PLC-2 15/30 '& IF( station_type .EQ. 4 .AND. fw_series .GT. 0 ) THEN ! 1771 KG & CALL plc2_freeze( status,tag,key,pc )  upload_flag = .TRUE. ENDIF ' IF( station_type .EQ. 1 .AND. fw_series .GT. 0 ) THEN ! 1771 KA-2 ' CALL plc2_freeze( status,tag,key,pc )  upload_flag = .TRUE. ENDIF $ IF( station_type .EQ. 1 .AND. fw_rev .GE. 5 .AND. ! 1771 KA$$ + fw_series .eq. 0 ) THEN ! REV F $ CALL plc2_stop( status,tag,key,pc )  upload_flag = .TRUE. ENDIF  ENDIF  IF ( status .NE. 0 ) THEN  CALL report_pcif_err ( log_lu, status )  CALL it_quits ( pc ) ENDIF $PAGE c...c... Perform the read in 119-word segments. c... DO WHILE ( words_to_get (which_mem_area) .GT. 0  + .AND. .NOT. (done_flag ) )" IF ( words_to_get (which_mem_area) .GT. max_length ) THEN " read_length = max_length ELSE read_length = words_to_get (which_mem_area)  ENDIF  pcadr = start_addr  CALL PC_READP ( status, tag, key, pc, ibuf,  + read_length, pcadr ) IF ( status .NE. 0 ) THEN  CALL report_PCIF_err ( log_lu, status )  CALL it_quits ( pc ) ENDIF c... For PLC2s, if we are now reading the Program area,c... check for the end of user memory, c... by looking for the end_marker value.c... If we find a -1, this means thatc... we have gone past the end of memory in the PC. ! IF (( pc_type .NE. 4 ) .AND. ( pc_type .NE. 11 ) ) THEN ! IF ( which_mem_area .EQ. program_area ) THEN' DO 80 I = 1, read_length ! Check for -1 :End of memory ' IF ( ibuf(i) .EQ. -1 ) THEN  read_length = I - 1 done_flag = .TRUE.  GOTO 120 ENDIF ' IF (ibuf(i) .EQ. end_marker .AND. !Check for end_mark ' % + ( .NOT. messages_in_mem ) ) THEN ! if no mess % read_length = I  done_flag = .TRUE. GOTO 120 ENDIF  80 CONTINUE ENDIF  ENDIF !pc_type # 4 c...#c... Write the buffer into the disk file and echo it to the terminal. #c... 120 len_to_write = read_length * 2" len_written = FMPWRITE ( dcb, status, IBUF, len_to_write )" IF ( status .NE. 0 ) THEN  CALL report_fmp_err ( log_lu, status ) CALL it_quits ( pc ) ENDI((F  record_pointer = record_pointer + 1  total_words_read = total_words_read + read_length WRITE ( log_lu ,'(T50,"ATotal words read = ",I6)')  + total_words_readc...!c... Update the number of words to get and the starting address. !c...$ words_to_get (which_mem_area) = words_to_get (which_mem_area) $ + - read_length  start_addr = start_addr + read_length c...$c.. Check to see if we have read all of this section of memory. If so, $&c.. either change pointers to do the program area next, or exit the program.&  IF ( words_to_get (which_mem_area) .LE. 0 ) THEN IF ( which_mem_area .EQ. data_table ) THEN which_mem_area = program_area $ WRITE ( log_lu, '(/,"Now Uploading Program Area...")')$ program_rec = record_pointer ELSE  done_flag = .TRUE.  ENDIF  ENDIF  ENDDO  c..  c.. Exit Upload Mode. c.. This only applies to REV. 5 or greater on the 1771-KA.c.. " IF(( pc_type .EQ. 4 .OR. pc_type .EQ. 11) .AND. upload_flag ) " + CALL pc_start( status,tag,key,pc )% IF( (pc_type .EQ. 6 .OR. pc_type .EQ. 7) .AND. upload_flag) !% + CALL plc2_start( status,tag,key,pc ) IF ( status .NE. 0 ) THEN  CALL report_pcif_err ( log_lu, status )  CALL it_quits ( pc ) ENDIF 'c**************************************************************************** ''c Update the File Header information. * ''c Now update the pc type, last memory address used, program area start * ''c address, and record numbers of the start of data table and program areas.* ''c**************************************************************************** ' CLOSE ( file, iostat = status )  IF ( status .NE. 0 ) THEN  CALL report_fmp_err ( log_lu, status ) CALL it_quits ( pc ) ENDIF c...c... Re-open file in Update mode. c... file_type = FMPOPEN ( dcb, error, file_name, 'rwou' )  IF ( status .LT. 0 ) THEN " WRITE ( log_lu ,'(///,"Cannot re-OPEN ",A16," FMP error", " + I6,/)') file_name, status  CALL it_quits ( pc ) ENDIF  %c*************************************************************************%%c Create the header WORD 1 contains the letters "PC" *%%c for the disk file: WORD 2 indicates the PC type *%%c WORD 3 is the last Memory Address used *%%c WORD 4 is the program start address *%%c WORD 5 is the first record containing Data Table *%%c WORD 6 is the first record containing PC Program *%%c data. *%%c*************************************************************************% file_header(1)= 2HPC  file_header(2)= pc_type  file_header(3)= start_addr - 1 file_header(4)= prog_start_addr  file_header(5)= data_table_rec file_header(6)= program_rec   len_to_write = 12 $ len_written = FMPWRITE ( dcb, status, file_header, len_to_write ) $ IF ( status .NE. 0 ) THEN  CALL report_fmp_err ( log_lu, status ) CALL it_quits ( pc ) ENDIF  ! WRITE ( log_lu ,'(//,"&dB PC Memory Uploading Complete !",! + T50,"File = ",A64, /)') file_name  status = FMPCLOSE ( dcb, status )  IF ( status .NE. 0 )  + CALL report_fmp_err ( log_lu, status ) CALL it_quits ( pc )  END  ENT &DS_OSSTATEOFDSAMWDS_STOREELEMENT JJ** .-`(`A@,((/PCIF/AB/&ABDN:::4:108:39 644 0 0 66000 5303156076 33434 /PCIF_AB/AB/&ABDN:::4:108:39 $l ^\l'&ABDN + =+ >+ >l5XHFST FTN7X,L,t,c $FILES(2,2)  PROGRAM ABDN (4,99),94202-16007 REV.5005"C*******************************************************************""C NAME : ABDN *""C PGMR : B.Pascal <880310.1346> *""C *""C *""C SOURCE: 94202-18007 *""C *""C **************************************************************""C * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1984. ALL RIGHTS *""C * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, RE- *""C * PRODUCED, OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH- *""C * OUT THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. *""C **************************************************************""C *""C *""C This program reads a disk file created by the ABUP program and *""C downloads it into a PC using PCIF/1000. *""C *""C Modification history: *""c --------------------- *""c *""C Modified 860210/860326 Added PLC-3 capability and modified*""C Kent Garliepp to use ABLIB CALLs. *""C *""C Re-submitted 860827 *""C Kent Garliepp REV.4010 *""C *""C Modified 1/12/88 Added PLC5 download capability *""C Francis Tang REV 5005 *""c*******************************************************************" c... c... Declarations c... CHARACTER*64 file_name ! name of file CHARACTER*8 options ! file open options  $ INTEGER ibuf (128), ! scratch buffer for file transfers $% + dcb ( 144 ), ! data Control Block for file accesses% + file_type, ! type of file + error, ! error return variable $ + len_to_write, ! length in bytes of buffer to write$$ + len_to_read, ! length in bytes of buffer to read $$ + len_written, ! length in bytes of buffer written $! + fmp_length_bytes, ! length of FMP reads in bytes!% + header(6) ! PC memory file header, containing : % ! Word 1 : letters PC  ! 2 : PC Type& ! 3 : Last memory Address Used &$ ! 4 : Program Start Address$% ! 5 : First data Table Record%& ! 6 : First Program Area Record&  INTEGER last_addr, ! scratch variable! + record_pointer, ! which file record to access !& + program_rec, ! which record contains start of program&' + data_table_rec, ! which record contains start of data tabl'' + first_prog_word, ! value of the first word in program area '$ + data_table_words, ! number of words in the data table $ & + FmpWrite, ! Declare these functions to be INTEGERs&' + FmpRead, ! so that the return variables are typed ' + FmpOpen, ! correctly.  + FmpClose,   + status, ! status of PCIF CALL & + tag, ! tag identifier for no-wait PCIF CALLs &$ + key, ! access key for no-wait PCIF CALLs $ + pc ! pc station address " INTEGER*4 pcadr ! 2-word INTEGER for pc address " % INTEGER subfunction, ! PC_TRANS CALL parameter for CMD byte%! + record1 (7), ! saves first record for plc5!! + write_buffer(128), ! data to be sent to the pc  + write_length, ! length of write to pc # + max_length, ! maximum length of read in words #% + reallu ! system LU of terminal invoking this % ! program " INTEGER params(5), ! buffer for run-time parameters"' + start_addr, ! address of first word to read in memory ' + start_addr_byte, ! start address in bytes' + end_marker ! value of the END delimiter in pc memory '  INTEGER pc_type, ! type of pc + memory_size, ! size of pc's memory # + words_to_get, ! how many words remaining to read# + prog_start_addr, ! pc program start address& + (( total_words_sent, ! total number of words downloaded to pc& + data_table, ! pointer to data table  + prog_area, ! pointer to program area ' + which_mem_area, ! indicator of which memory area to write ' " + key_position, ! pc mode ( RUN, PROGRAM, etc. )"" + pc_connected, ! is pc connected to i/f module "% + station_type, ! type of i/f module ( 1771-KA, etc. )%% + diag_address, ! address of diagnostic counters in PC% + fw_rev, ! revision of i/f firmware + fw_series, ! series of i/f firmware" + option_switches, ! switch settings on i/f module "& + start_table_addr, ! start of table (860210)&# + end_table_addr, ! end of table ! ## + data_table_size ! calculated data size ! ## INTEGER*4 end_mem_addr ! EO used mem (double INTEGER) ! #& LOGICAL send_data_table, ! indicator that user wants to send data&& + file_ready, ! indicator that disk file is opened and& ! contains a proper file.# + download_flag, ! download enabled flag ! ## + set_data_table_flag ! need data table set ! #C ! table of pc type and memory to match  ! diagnostic status return : (860210)  ! ! ! Table(n,1) Table(n,2) ! ! Index PC Type Type code Mem size !  ! 1 = PLC 0 12K  ! 2 = PLC-2 1 2K  ! 3 = MINI 2 2K  ! 4 = 2/20-LP1 3 8K  ! 5 = 2/20-LP2 5 8K  ! 6 = 2/15 6 2K  ! 7 = 2/30 7 16K  " CHARACTER*8 ASCII_pc_type ! CHARACTER strings for PC types" % INTEGER current_pc_index, ! pointer to type of pc being accessed%' + file_pc_index, ! pointer to type of pc as stored in file '' + unknown_pc_type ! variable containing an undefined pc type' ! EQUIVALENCE (pc,params(1)) ! RUN STRING PARAMETERS !  DATA max_length / 119 / DATA options / 'RO' / DATA file_type / 3 /  DATA data_table / 1 /, prog_area / 2 /   DATA unknown_pc_type / -1 /$PAGE c------------------------------------------------------------ c - c Set up the enviroment in which the download program - c is going to run . - c - c------------------------------------------------------------ c...c... Initialize parameters c... status = 0 tag = 0 key = 0 download_flag = .FALSE.  set_data_table_flag = .FALSE.  c...c... Get parameter from runstring.c...  CALL RMPAR(params) ! Get first 5 parameters " log_lu = LOGLU ( REALLU ) ! Get real lu of invoking terminal " " WRITE ( log_lu, '(2/,T20,"Welcome to the PCIF/1000 Download", "" + " Program ",2/,T34,"&dB ABDN &d@",T69,"Rev.5xxx",/)')" c...!c... Prompt for parameters that are left out from the run strings ! c... or out of range.  c...c... First check the PC number. c... IF ( pc .LE. 1 ) THEN  WRITE ( log_lu, '("Enter the PC Identifier : _")' )  READ ( log_lu, * ) pc  ENDIF  c...c... Establish communication with PCIF.  c... Do a PCIF_OPEN. c..  CALL PCIF_OPEN ( status )  IF ( status .NE. 0 ) THEN  CALL report_pcif_err ( log_lu, status )  CALL it_quits ( pc ) ENDIF c...c.. Establish connection with the AB PLCs.c... CALL PC_CONNECT ( status, tag, key, pc ) IF ( status .NE. 0 ) THEN  CALL report_pcif_err ( log_lu, status )  CALL it_quits ( pc ) ENDIF c... c... Lock the PC. c... CALL PC_LOCK ( status, pc )  IF ( status .NE. 0 ) THEN  CALL report_pcif_err ( log_lu, status )  CALL it_quits ( pc ) ENDIF  $PAGE #c-------------------------------------------------------------------- ##c ! ##c Get the name of the file from which to retrieve the PC program. ! ##c if the file does not exist, prompt for instructions. ! ##c ! ##c-------------------------------------------------------------------- # 200 file_ready = .FALSE.  DO WHILE ( .NOT. file_ready ) " WRITE ( log_lu , '("Enter the name of the storage file ", " + " (/E to quit) : _")') READ ( log_lu , '(A64)', iostat = error ) file_name ! IF ( file_name .EQ. '/e' .OR. file_name .EQ. '/E' ) THEN! WRITE ( log_lu , '(2/)' )  CALL it_quits ( pc ) ENDIF  " file_type = FMPOPEN ( dcb, status, file_name, options, 1 )" IF ( status .EQ. -6 ) THEN% WRITE ( log_lu ,'("&dB File does not exist with the name", % + " :", 5X,A64,/)') file_name   ELSEIF ( status .LT. 0 ) THEN ! WRITE ( log_lu , '("Error ",I6," in opening file :",! + /,A64,/)') status, file_name  ELSE' record_pointer = 1 ! point to the first record in the fil' file_ready = .TRUE.  ENDIF c...!c... Read the 6-WORD header. If the first word is not "PC", !$c... this file was not created by ABUP and is therefore not usable.$c... IF ( file_ready ) THEN$ len_to_read = 12 ! 6-word header ( 12 bytes ) $# len_read = FMPREAD ( dcb, status, header, len_to_read ) # IF ( status .NE. 0 ) THEN  CALL report_fmp_err ( log_lu, status ) CALL it_quits ( pc ) ENDIF  record_pointer = record_pointer + 1  $ IF(header(1) .NE. 2hPC .OR. len_read.NE.len_to_read )THEN $" WRITE ( log_lu,'(/,"&dB This file was not created"" + by"," the ABUP program. Try another file...",2/)')" file_ready = .FALSE.  ENDIF  ENDIF  ENDDO $PAGE  c--------------------------------------------------------------- c Check the type of PLCs and it's online status - c Obatin the diagnostics information from the PC which - c may contain the program start address and type of pc. - c--------------------------------------------------------------- CALL diag_status ( pc, status, key_position, pc_connected, + station_type, pc_type, prog_start_addr,  + diag_address, fw_rev, fw_series,  + option_switches ) IF ( status .NE. 0 ) THEN  CALL report_pcif_err ( log_lu, status )  CALL it_quits ( pc ) ENDIF  c...c... Ask if the data table in the file is to be sent to the PCc... if it is not a PLC-3, KA-2, or KG. c... The PLC-3 data table is in the program file.  ! IF (( header(2) .NE. 4 ) .AND. ( header(2) .NE. 11 )) THEN !# WRITE ( log_lu, '("Do you want to download the Data Table", # + " ( Y or N ) ? _")') READ ( 1, '(A2)' ) iyes  IF ( iyes .EQ. 2hy .OR. iyes .EQ. 2hY ) THEN send_data_table = .TRUE. ELSE send_data_table = .FALSE.  ENDIF  ENDIF   C Is the PC connected?   IF ( pc_connected .NE. 0 ) THEN # WRITE( log_lu, '(" &db PC is not connected to the interface"# + " module! I quit.",2/)')  CALL it_quits( pc )  ENDIF c... c... Get the program area and data table area address of the plc c... IF ( header(2) .EQ. 11 ) THEN  ! plc5 should be in program mode  IF ( key_position .NE. 0 ) THEN WRITE(log_lu, '("PLC5/15 is not in program ",  + "mode PC no is ",I2)') pc  CALL it_quits( pc )  ENDIF # prog_start_addr = 2400B ! starting word addr is 500 hex #" end_mem_addr = 17770B ! ending word address is 1FF8 " send_data_table = .FALSE.  ELSE$ CALL ab_mem_config(pc,status,start_table_addr, end_table_addr $ + , prog_start_addr, end_mem_addr ) IF( status .NE. 0 ) THEN CALL report_pcif_err( log_lu, status ) CALL it_quits( pc )  ENDIF  ENDIF  IF ( end_mem_addr .GT. 32767 ) THEN " WRITE( log_lu, '("Memory is too large for this program; " " + I12," words")') end_mem_addr CALL it_quits( pc )  ENDIF  # memory_size = end_mem_addr ! good for 32k words ! ! # CALL convert_pc_type ( pc_type, ASCII_pc_type )  WRITE ( log_lu, '(/,T11,"&dB PC Type = ",A8)') + ASCII_pc_type  WRITE ( log_lu,'(T38,"A","&dBMaximum Memory Size = ",I6,  + " words.",2/)') memory_s((ize  c...#c.. Check to see that the type of PC specified matches the type of PC#c... which was read, to form the disk file.   IF ( header(2) .NE. pc_type ) THEN CALL convert_pc_type ( pc_type, ASCII_pc_type ) " WRITE ( log_lu, '(/,6x,"&dB PC ",I6," is a ",A8,". _")') " + pc, ASCII_pc_type   CALL convert_pc_type ( header(2), ASCII_pc_type )  WRITE ( log_lu, '(" This file was created from a ",  + A8," PC.")') ASCII_pc_type  IF ( header(2).EQ. 0 ) THEN ! WRITE ( log_lu, '(/,"Sorry - This program does not",! + " work with the model PLC.",2/)' )  CALL it_quits ( pc ) ENDIF   WRITE ( log_lu, '(/,"Do you wish to proceed with the"  + " download anyway ? (Y or N) : _")')  READ ( 1, '(A2)' ) iyes  WRITE ( log_lu, '(/)' )  IF ( iyes .NE. 2hY .AND. iyes .NE. 2hy ) GOTO 200 ENDIF $PAGE c...c... Determine whether or not this pc has a large enough data c... table area to hold the contents of the disk file.c... if this is connected to a 1771 KA-2 or 1771 KG highway c... interface, figure it out for for ourselvs andc... set the data table size. c...% IF( (pc_type .EQ. 6 .OR. pc_type .EQ. 7) .AND. ! PLC-2 15/30%$ +((station_type .EQ. 1 .AND. fw_series .GT. 0) .OR. ! 1771 KA-2$# +(station_type .EQ. 4 .AND. fw_series .GT. 0)) ) THEN ! 1771 KG# data_table_size = 1 + header(4) - start_table_addr! data_table_size = ((data_table_size + 127) / 128) * 128 ! set_data_table_flag = .TRUE. ELSE$ IF( prog_start_addr .LT. header(4) .AND. send_data_table)THEN $$ write ( log_lu,'(/,"&dB Required Data Table Size = ",I6,10X $ + ,"Available Data Table Size = ",I6,2/,$ + "You can either : Reconfigure the PC''s Data Table with the", $$ + " Industrial Terminal,"/,T18,"Download only the Program, and" $# + ,"not the Data Table, or ",/,T18,"Download a different file # + to"," this PC.",/,"Try again !",2/)')  + header(4), prog_start_addr  GOTO 200  ENDIF  ENDIF c...&c.. Program_rec is the record in the disk file containing the first program &$c.. word. Data_table_rec is the first record containing data table info.$"c.. Header(4) is the address of the first program word in pc memory,""c.. as stored in the disk file when the memory was uploaded by ABUP."#c.. Header(5) is the data_table_rec, and header(6) is the program_rec.#c... data_table_rec = header(5) program_rec = header(6) c...c...For 1771-KA module of revision F (5), set Download Mode.c...Only applies to PLC2/15s and 2/30s. c...Set up Download Mode ! CMD 7, Subfunction 4  IF (( pc_type .EQ .4 ) .OR. ( pc_type .EQ. 11 ) ) THEN CALL pc_stop( status,tag,key,pc )  download_flag = .TRUE. ENDIF ' IF ( pc_type .EQ. 6 .OR. pc_type .EQ. 7) THEN ! PLC-2 15/30'& IF( station_type .EQ. 4 .AND. fw_series .GT. 0 ) THEN ! 1771 KG & CALL plc2_stop( status,tag,key,pc )  download_flag = .TRUE. ENDIF ' IF( station_type .EQ. 1 .AND. fw_series .GT. 0 ) THEN ! 1771 KA-2 ' CALL plc2_stop( status,tag,key,pc )  download_flag = .TRUE. ENDIF & IF ( station_type .EQ. 1 .AND. fw_rev .GE. 5 .AND. ! 1771 KA&$ + fw_series .eq. 0 ) THEN ! REV F$ CALL plc2_stop( status,tag,key,pc )  download_flag = .TRUE. ENDIF  ENDIF  IF ( status .NE. 0 ) THEN  CALL report_pcif_err ( log_lu, status ) CALL it_quits ( pc )  ENDIF   IF ( set_data_table_flag ) THEN ! CALL plc2_set_t_size( status,tag,key,pc,data_table_size)! IF( status .NE. 0 ) THEN CALL report_pcif_err( log_lu, status ) CALL it_quits( pc )  ENDIF  prog_start_addr = data_table_size  ENDIF $PAGE c...c... Set up starting addresses and countersc... Loop to download data into the plc. c... total_words_sent = 0 end_marker = 22001B   IF ( send_data_table ) THEN 'c... Check to see if there is indeed a Data Table contained in this file.'c... if there isn't, inform the user.  IF ( data_table_rec .LE. 0 ) THEN $ WRITE (log_lu,'("&dB This file does not contain a Data ",$$ + "Table.",/," Do you wish to download only the program ", $ + " ( Y or N ) ? _")')  READ ( log_lu, '(A2)' ) iyes IF ( iyes .EQ. 2hY .OR. iyes .EQ. 2hy ) THEN send_data_table = .FALSE.  ELSE GOTO 200 ENDIF  ELSE C... OK, if there is indeed a data table,C... set up the starting parameters. ! start_addr = start_table_addr *2 ! physical addr ! which_mem_area = data_table $ WRITE ( log_lu, '(/,"Now downloading PC Data Table !")')$ ENDIFc...$c... if the user does not want to download the data table, but the file$#c... was created with the data table, THEN read all of the data table#c... record to position the file to the program part.c... For PLC5, this technique is used to postpone the sending!c... of the first record, till all other records are downloaded. !c... ELSEIF ( program_rec .GT. record_pointer ) THEN DO k = 2, program_rec - 1# fmp_length_bytes = FMPREAD ( dcb, status, write_buffer, # + max_length * 2 )  IF ( status .NE. 0 ) THEN  CALL report_fmp_err ( log_lu, status ) CALL it_quits ( pc ) ENDIF  record_pointer = record_pointer + 1  ENDDO  IF ( pc_type .EQ. 11 ) THEN c..."c... The first record is to be downloaded to addr 0 and the" c... rest of records downloaded to address A00 to 3FF0 c... The first record is downloaded the last.c... DO i = 1, 7  record1 (i) = write_buffer (i) ENDDO  ENDIF  ENDIF  $PAGE  c--------------------------------------------------------------- c Start the downloading process. - c Read from disk file and write to PC. - c Execute the FMP Read to get the stuff to send to the PC. - c---------------------------------------------------------------  70 CONTINUE$ fmp_length_bytes = FMPREAD (dcb, status,write_buffer,max_length*2)$ IF ( status .NE. 0 ) THEN  CALL report_fmp_err ( log_lu, status ) CALL it_quits ( pc ) ENDIF  c...c... Check for end of file - if found, get out of this loop.   IF ( fmp_length_bytes .EQ. -1 ) GOTO 7000 c... c... Check to see if this record is the one containing the first c... record of the PC program. if so, change the pointer to c.. indicate that we need to do the program area.c... IF ( record_pointer .EQ. program_rec ) THEN  which_mem_area = prog_area  start_addr = prog_start_addr # WRITE ( log_lu, '(/,"Now downloading PC Program Area...")')#$ first_prog_word = write_buffer(1) ! Save the 1st prog. word $  IF ( pc_type .NE. 11 ) $ + write_buffer(1) = end_marker ! Don't write the real 1st$$ ENDIF ! word until the download $ ! is complete.c...c... Issue the write to the PC. c... pcadr = start_addr % write_length = ( fmp_length_bytes + 1 ) / 2 ! send in word units % CALL PC_WRITEP( status, tag, key, pc, write_buffer,  + write_length, pcadr )  IF ( status .NE. 0 ) THEN  CALL report_pcif_err ( log_lu, status )  CALL it_quits ( pc ) ENDIF  total_words_sent = total_words_sent + write_length WRITE ( log_lu,'(T50,"ATotal words sent = ",I6)') + total_words_sent c...c... Increment the record_pointer and the startingc... write address and continue looping.c... start_addr = start_addr + ( fmp_length_bytes / 2 ) record_pointer = record_pointer + 1  GOTO 70$PAGE c... Clean up the file and PC. c... The end of the file has been reached ! Close the file and c... write the first program word into the PC.c... 7000 error = FMPCLOSE ( dcb, error )  IF ( error .NE. 0 ) CALL report_fmp_err ( log_lu, error )  " WRITE ( log_lu, '(2/,T27,"&dB Downloading Complete !",2/)') "c...#c...For PLC 2/30s, most often it is necessary to cycle power on the pc#"c... to get the industrial terminal to work again. This is true for ""c... firmware revisions E (4) or earlier. if the firmware is Rev. E""c... or earlier, most of the time, the PC will respond again to the "c... Industrial terminal after about 5 seconds. c..." IF ( station_type .EQ. 1 .AND. fw_series .EQ. 0 ) THEN ! " IF ( pc_type .EQ. 7 ) THEN $ WRITE ( log_lu, '("It may be necessary to cycle power on", $" + " the PC to start the Industrial Terminal !",2/)') " ELSE # WRITE ( log_lu, '("Wait 5 seconds before operating the ",# + "Industrial Terminal with this PC.",/)' ) ENDIF ENDIF ((c...c... Download the first program word to get the pc going.c... For PLC5, download the first record now.c... IF ( pc_type .EQ. 11 ) THEN  write_length = 7 pcadr = 0 DO i= 1, 7  write_buffer (i) = record1 (i) ENDDO  ELSE write_length = 1  write_buffer(1) = first_prog_word  pcadr = prog_start_addr  ENDIF  $ CALL PC_WRITEP ( status, tag, key, pc, write_buffer, write_length,$ + pcadr )  IF ( status .NE. 0 ) THEN  CALL report_pcif_err ( log_lu, status )  CALL it_quits ( pc ) ENDIF  "c... Exit DOWNLOAD Mode if the revision of the 1771-KA firmware is 5"$c... or greater. Once again, this only applies to PLC-2/15s and 2/30s.$ " IF( (pc_type .EQ. 4 .OR. pc_type .EQ. 11) .AND. download_flag)" + CALL pc_start( status,tag,key,pc ) " IF( (pc_type .EQ. 6 .OR. pc_type .EQ. 7) .AND. download_flag) " + CALL plc2_start( status,tag,key,pc )  IF ( status .NE. 0 ) THEN  CALL report_pcif_err ( log_lu, status )  CALL it_quits ( pc ) ENDIF   CALL it_quits ( pc )   END  @'E@@Xv25;DS_FETCHELEMENT 91790-1X120 REV.5000 <880222.1646> /TESTINT1/SRC2/MMMAC.MAC@0DS_FETCHELEMENT 22q.DAD/PCIF/AB/&ABTST:::4:33:39 644 0 0 20400 5303156100 33554 /PCIF_AB/AB/&ABTST:::4:33:39 $! ^!'&ABTST + ?+ @+ @!FST ftn7x,l  program ABTST ( 3, 89 ),94202-16008 REV.2435 C C This program is a test routine to interrogate Allen-Bradley !C Programmable Controllers using the PCIF/1000 Software Package. !C C Programmer: B.Pascal <850626.1021>C C SOURCE: 94202-18008 C %C Modified: July 2, 1984 by B.Pascal to display the diagnostic counters %&C address for 1771-KC/KD/KE/KF modules as well as &$C for 1771-KA modules as was done previously. $C C "C **************************************************************""C * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1984. ALL RIGHTS *""C * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, RE- *""C * PRODUCED, OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH- *""C * OUT THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. *""C **************************************************************"C !C ************************************************************** !C Declarations  # integer log_lu, ! Terminal LU number for interaction# + params(5), ! Run-time Parameters   + status, ! PCIF call status + tag, ! User-defined tag variable " + key, ! Access key for no-wait requests " + pc, ! PC logical identifier  + subfunction, ! CMD byte for AB PCs & + write_buffer (128),! buffer containing message to write to PC&$ + write_length, ! length of message to transmit to PC $# + read_buffer(128), ! buffer containing message from PC ## + read_length, ! length of message received from PC#! + error_message(40), ! ASCII decoding of error codes !" + error_length, ! length in bytes of error message"# + security_code, ! PCIF security code for disconnects# ! + key_position, ! 0 = program, 1 = test, 2 = run!" + pc_connected, ! 0 = connected, 1 = disconnected "% + if_type, ! 0 = 1771-KC/KD 6 = 1775-KA Highway%$ ! 1 = 1771-KA 7 = 1775-KA Modem$% ! 2 = 1774-KA 8 = 1773-KA Highway%$ ! 3 = 1771-KF 9 = 1773-KA Modem$ ! 4 = 1771-KG  + processor_type, ! type of PC processor + program_address, ! start of program address + diag_address, ! diagnostic counters address ! + firmware_rev, ! revision level of the firmware! + firmware_series, ! series level of the firmware + option_switches ! switch settings for options  & character*8 ASCII_pc_type,! string containing pc type ( PLC, etc. ) && + ASCII_pc_mode ! string containing pc mode ( RUN, etc. ) &' character*15 ASCII_if_type ! string containing if type ( 1771-KA, etc )'& character*1 ASCII_fw_rev, ! string containing firmware rev (A,etc. )&' + ASCII_fw_series !string containing firmware series (A,etc.)'  equivalence ( params(1), pc )   data log_lu /1/  !C ****************** initialization ************************** !  call rmpar ( params )  ! write ( log_lu ,'(2/,T12,"Greetings from the Allen-Bradley",!! + " Diagnostic Status Program",2/,T35,"&dB ABTST &d@", ! + " Rev.2435", 2/)' )!C ************************************************************** ! C Get the PC number.   1 if ( pc .le. 1 ) then  write ( log_lu, '("Enter the PC Identifier : _")' ) read ( log_lu, * ) PC end if !C ************************************************************** !%C Execute a PCIF OPEN to establish communication with the PCIF modules. %  call PCIF_OPEN ( status )   if ( status .NE. 0 ) then  call report_pcif_err ( log_lu, status ) call it_quits ( pc )  end if !C ************************************************************** !$C Execute a PCIF Connect call to establish communications with the PC.$  call PC_CONNECT ( status, tag, key, pc )  if ( status .NE. 0 ) then  call report_pcif_err ( log_lu, status )  call it_quits ( pc ) end if !C ************************************************************** ! C Send the message...  # write ( log_lu, '("Now sending the diagnostic request ... _")' )#  call diag_status ( pc, status, key_position, pc_connected, ! + if_type, processor_type, program_address,!# + diag_address, firmware_rev, firmware_series, # + option_switches ) if ( status .NE. 0 ) then  write ( log_lu, '(/)' ) call report_pcif_err ( log_lu, status ) call it_quits ( pc )  end if" write ( log_lu, '("Complete ! Status = ",I6, 2/ )' ) status " !C ************************************************************** !C Write out data if any...   if ( pc_connected .NE. 0 ) then $ write ( log_lu, '("PC is disconnected from interface module !",$ + /)' )  else  call convert_if_type ( if_type, ASCII_if_type )$ write ( log_lu, '("Interface Type = &dB ",A15," &d@ _")' ) $ + ASCII_if_type  &C Check to see if this is a 1771-KC/KD module. If so, the mode and pc_type&C parameters will be invalid, so don't print them.   if ( if_type .NE. 0 ) then  " call convert_pc_type ( processor_type, ASCII_pc_type ) "" write ( log_lu,'("Processor Type = &dB ",A8," &d@_") " + ') ASCII_pc_type  ! call convert_pc_mode ( key_position, ASCII_pc_mode ) ! write ( log_lu, '(" Mode = &dB ",A8," &d@",/) + ')ASCII_pc_mode  ! write ( log_lu,'("Program Start Address = ",O6,!! + " OCTAL (byte address).")') program_address ! #C ************* START MOD 6/15/84 ************************** # C Put in 2 line feeds if this is a KC/KD/KE/KF module, so that $C the display will look nicer. Put the diagnostic counters address $"C computation outside of the if_type test, so that it will always"C be shown.  else  write ( log_lu, '(/)' )#C ************* FINISH MOD 6/15/84 ************************** #  end if   end if #C ************* START MOD 6/15/84 ************************** #!C Put this here instead of inside the "if_type = 0" test, so that!"C no matter what type of interface it is, the diagnostic counters " C address will be shown.   write ( log_lu, '(/,"Diagnostic Counters Address = ",O6, + " OCTAL (byte address).",/)') diag_address #C ************* FINISH MOD 6/15/84 ************************** #  call convert_fw_rev ( firmware_rev, ASCII_fw_rev )" write ( log_lu, '("Firmware : Revision = ",A1," _")' ) " + ASCII_fw_rev  call convert_fw_rev ( firmware_series, ASCII_fw_series )! write ( log_lu, '(" Series = ", A1,/ )' ) ASCII_fw_series!  write ( log_lu, '("Option switches = ",O6," OCTAL")' )  + option_switches  !C ************************************************************** ! C That's all, folks !   write ( log_lu, '(/,"&dB",80("*"),/)' )  C That's all for now !   call it_quit((s ( pc )   end  !!.ENTR .LBT.SBTPAS.1 PAS.3 PAS.NONCDS!EE`A@(( h&6@HP'(`ph&6@H``p E/PCIF/AB/&ABLIB:::4:151:39 644 0 0 113400 5303156102 34454 /PCIF_AB/AB/&ABLIB:::4:151:39 $ ^'&ABLIB + A+ B+ BKKFST ftn7x,l,t,c $CDS OFF#C *******************************************************************#C Programmer : B.Pascal Time Stamp <880307.1614> C C REV.5005C C NAME: ABLIB Source Code C C SOURCE: 94202-18009 NON CDSC %C Modified : July 2, 1984 by B.Pascal to make the routine "diag_status"%%C return the actual diagnostic counters address%$C for 1771-KC/KD/KE/KF modules as well as for$%C the 1771-KA modules, as was done previously. %C "C Modified : Jan 19, 1988. To change diag_status subroutine to"C francis Tang return PLC5 typesC #C *******************************************************************#C %C This is the ABLIB source. It is a collection of subroutines which make%&C programming with PCIF/1000 and Allen-Bradley Programmable Controllers & C much more enjoyable. C C Included in this library are the following : C %C DIAG_STATUS - returns all of the information available from a CMD 6,%#C subfunction 3 data highway command, in a processed#C ready-to-use format C #C PC_WRITED_UNP - does an unprotected write to a PC, with the same#$C parameters as the PCIF PC_WRITED call ( which does a$C protected write ) C 'C IT_QUITS - closes out a program from PCIF and terminates the program 'C 'C REPORT_FMP_ERR - displays a File Management Package error on a terminal 'C $C REPORT_PCIF_ERR - displays a PCIF error on a terminal or other LU $C 'C AB_ERROR - processes the Allen-Bradley-specific errors which PCIF_ERROR 'C doesn't handle. C %C CONVERT_PC_TYPE : converts the Allen-Bradley code for a PC type into%"C an ASCII string ( i.e. 0 converts to ' PLC '. ) "C $C CONVERT_IF_TYPE : converts the Allen-Bradley code for an interface$C module into an ASCII stringC ( i.e. converts 0 to ' 1771-KC/KD ' ) C $C CONVERT_PC_MODE : converts the Allen-Bradley code for the mode of $&C a PC into an ASCII string ( i.e. converts 0 to ' PROGRAM' ) &C &C CONVERT_FW_REV : converts the Allen-Bradley code for firmware revision&#C level into an ASCII string ( i.e. converts 0 to 'A' ) #C #C BSWAP : swaps the bytes in a source buffer and stores them into#$C a destination buffer. This is required whenever you use $$C PC_TRANS, for data items which are words, not bytes. The$%C reason is that Allen-Bradley stores integers with the bytes%!C in the reverse order form Hewlett-Packard standard.!C %C PLC2_FREEZE : causes a PLC-2 to enter the upload mode. In some cases%#C the interface module will prevent the data table from #C being changed.%C PLC2_STOP : causes a PLC-2 to enter the download mode. In some cases%C the interface module will stop the processor. C "C PLC2_START : causes a PLC-2 to exit the upload/download mode. "C C PLC2_SET_T_SIZE : sets the PLC-2 data table size. C !C AB_MEM_CONFIG : returns the starting and ending addresses of!!C the data table, the starting address of the !#C program, and the ending address of used memory. #C #C *******************************************************************# # subroutine diag_status ( pc, status, key_position, pc_connected,#$ + station_type, processor_type, program_address, diag_address,$$ + firmware_rev, firmware_series, option_switches ),94202-12001$ + REV.5005 <880307.1614> #C B.Pascal <880307.1614>#C C $C This subroutine interrogates an Allen-Bradley PC and returns to the $$C calling routine the various pieces of diagnostic status available. $ !C ************************************************************** !C Declarations  integer status ! PCIF call status integer tag ! User-defined tag variable " integer key ! Access key for no-wait requests " integer pc ! PC logical identifier  integer subfunction ! CMD byte for AB PCs & integer write_buffer (128) ! buffer containing message to write to PC&$ integer write_length ! length of message to transmit to PC $# integer read_buffer(128) ! buffer containing message from PC ## integer read_length ! length of message received from PC# ! integer key_position ! 0 = program, 1 = test, 2 = run!" integer pc_connected ! 0 = connected, 1 = disconnected "% integer station_type ! 0 = 1771-KC/KD 6 = 1775-KA Highway%$ ! 1 = 1771-KA 7 = 1775-KA Modem$% ! 2 = 1774-KA 8 = 1773-KA Highway%$ ! 3 = 1771-KF 9 = 1773-KA Modem$ ! 4 = 1771-KG  integer processor_type ! type of PC processor" ! 0 = PLC 5 = 2/20-LP2 " ! 1 = PLC-2 6 = 2/15 ! 2 = MINI 7 = 2/30 ! 3 = 2/20-LP1 11 = PLC5 " ! 4 = PLC-3 15 = Computer " integer program_address ! start of program address integer diag_address ! diagnostic counters address ! integer firmware_rev ! revision level of the firmware! integer firmware_series ! series level of the firmware integer option_switches ! switch settings for options  $C *********************************************************************$ C Initialization   tag = 0 ! Who cares ?" key = 0 ! Specify operation WITH wait"' subfunction = 6 ! CMD byte = 6 for AB Diagnostic status'' write_buffer(1) = 3 * 400b ! FNC byte = 3 for AB Diagnostic status'" write_length = 1 + 40000b ! specify 1 byte to transmit "" read_length = 10 + 40000b ! specify 10 bytes to receive" !C ************************************************************** ! C Send the message...  # call PC_TRANS ( status, tag, key, pc, subfunction, write_buffer,# + write_length, read_buffer, read_length ) if ( status .NE. 0 ) return  !C ************************************************************** ! C Get the results...  ! pc_connected = ishft ( iand ( read_buffer(1), 4000B ), -11 )!  diag_address = ishft ( iand ( read_buffer(4), 377B) , 8 ) " + + ishft ( iand ( read_buffer(4), 177400b ), -8 )" !C Test bit 3 ( bit 11 in byte-swapped form ) to see if the pc is!"C connected to the KA module. If not, don't bother computing the"%C invalid returns of pc_type, interface_type, prog start address, etc. %  if ( pc_connected .NE. 0 ) then  station_type = -1  else station_type = iand ( read_buffer(1), 17b )  end if 'C Check to see if this is a 1771-KC/KD module ( type = 0 ). If so, the mode ' C and pc_type parameters will be invalid, so don't print them.   if ( station_type .GT. 0 ) then # processor_type = ishft ( iand ( read_buffer(1), 360B ), -4 )## key_position = ishft ( iand ( read_buffer(1), 3400B ), -8 ) # IF(processor_type .EQ. 4) then program_address = 0 ELSE$ program_address = ishft ( iand ( read_buffer(2), 377B ), 8 ) $" + + ishft ( iand ( read_buffer(2), 177400b ), -8 )" END IF &C If this is a KC module, or the pc is unconnected, the processor-specific&&C information is undefined, so assign it to -1 as a flag to the calling &C program.   else  processor_type = -1  key_position = -1  program_address = -1  end if ! firmware_rev = ishft ( iand ( read_buffer(5), 17400B ), -8 )!# firmware_series = ishft ( iand ( read_buffer(5), 160000B), -13 )# option_switches = iand ( read_buffer(5), 377B )   return end  %C ***********************************************************************%  %C ***********************************************************************%  ' subroutine AB_ERROR ( status, message, length ), B.Pascal <880307.1614>'C C Modified 860131 Extended messages.((C Kent Garliepp C C Modified 860327 Changed error 514 C Kent Garliepp C C Modified 860814 changed error 519 C Kent Garliepp  $C This subroutine converts an error message from the PCIF format into $ C an ASCII message.   ! integer status ! error code from PCIF!$ integer ab_status ! error code STS or ext STS $% integer message ( 40 ) ! ASCII error message returned%& integer message_array (41,28) ! array containing all messages &' integer error_code_index (28) ! array containing all error codes'& integer last_message ! Number of last message in data&& integer length ! how many bytes in the message &# logical not_a_match ! search for match between#' ! ab_status and error_code_index '$ integer ones, tens, hundreds ! digits of unknown STS codes$ $C ADD additional messages before the last three messages. The first $%C data is the length followed by 80 characters. UPDATE the array sizes% C of message_array and error_code_index. UPDATE the data in C last_message and error_code_index.C #C This table does now consider local errors (I.E. 512 & 513). They#"C overlap remote errors from the PLC-3 extended error bytes. See"C the PCIF/1000 Allen-Bradley documentation.C  data last_message/28/   data message_array /  + 10,10hNo Error. ,  + 35*2h , + 36,36hThe command or data size is illegal., + 22*2h ,! + 52,52hThe remote PC had a fault, is off, or disconnected. ,! + 14*2h , + 32,32hAn IO error occurred at the PC. , + 24*2h ,! + 52,52hThe address is not allowed by protection at the PC. ,! + 14*2h , + 48,48hThe requested function is not allowed by the PC., + 16*2h , + 28,28hThe PC is in the wrong mode., + 26*2h , + 46,46hThe communication zone is incorrect at the PC., + 17*2h , + 40,40hThe destination is out of buffer space. , + 20*2h , + 28,28hThe PC is in the wrong mode., + 26*2h , + 38,38hError in conversion of block address. , + 21*2h ,$ + 44,44hImproper word format or PLC not responding. , !860327 $! + 18*2h , ! !! + 40,40hError in file address or Hwy contention., ! !! + 20*2h , ! ! + 16,16hInvalid symbol. , + 32*2h , + 38,38hImproper symbol specification format. , + 21*2h , + 28,28hInvalid PLC_3 word address. , + 26*2h ,$ + 22,20hImproper file size. , !(860814) $" + 30*2h , ! """ + 44,44hFile size changed during message execution. , + 18*2h , + 20,20hFile size too large., + 30*2h , + 24,24hMessage size too large. , + 28*2h , + 48,48hWrite privileges not granted to remote station. , + 16*2h , + 40,40hUpload/download access is not available., + 20*2h ," + 54,54hRequesting station already has upload/download access.," + 13*2h , + 40,40hShutdown request could not be executed. , + 20*2h ,# + 56,56hRequesting station does not have upload/download access.,# + 12*2h , + 38,38hNot an error from an Allen-Bradley PC., + 21*2h , + 38,38hOut of range for an Allen-Bradley PC. , + 21*2h , + 26,26hUnknown status code = , + 27*2h /  data error_code_index / 512,528,560,576,592,608,624,640,  + 656,688,513,514,515,516,517,518,519,520,521,522,523, + 524,525,526,527,1001,1002,1003/  ab_status = status  IF(ab_status .GE. 768) ab_status = 1002  IF(ab_status .LT. 512) ab_status = 1001   not_a_match = .TRUE.  C Search through the known error codes to find a match.   i = 0  do while ( not_a_match .AND. (i .LT. last_message) )  i = i + 1  if ( error_code_index(i) .EQ. ab_status ) then   do k = 1, 40  message (k) = message_array ( k+1, i )  end do  not_a_match = .FALSE. length = message_array ( 1, i )  end if   end do "C The STS code was not in the table, so write in the message buffer"C "Unknown status code = ".  if ( not_a_match ) then   do k = 1, 40 ! message(k) = message_array ( k+1, last_message)! end do  %C The unknown STS code must be converted to Hollerith format to get stuck% C in the ASCII buffer.  # message ( 12 ) = 20000B ! make a blank in left byte#  ab_status = ab_status - 512 ! return real STS  hundreds = ab_status / 100  tens = ( ab_status - 100 * hundreds ) / 10  ones = ab_status - hundreds * 100 - tens * 10 & message ( 12 ) = message(12) + 60B + hundreds ! hundreds digit &" message ( 13 ) = ( 60B + tens ) * 400B ! tens digit"$ message ( 13 ) = ( 60B + ones ) + message ( 13 ) ! ones digit$ length = message_array ( 1, last_message)  end if return end  "C *****************************************************************"!C This subroutine uses PC_TRANS to do an unprotected write to the! C data table of a PC. It is called in the same fashion as is C PC_WRITED, which does a protected write. This subroutine is "C useful when the PC Memory Access Rungs in the Communication Zone"C do not allow access to the complete Data Table.    subroutine PC_WRITED_UNP ( status, tag, key, pc, + write_buffer, write_length, pcadr )  integer status ! status return  integer tag, key ! parameters for no-wait calls" integer pc ! logical pc identifier for PCIF calls"$ integer write_buffer(128) ! buffer to hold the info to be sent $ integer write_length ! length of write buffer" integer*4 pcadr ! address in pc memory to be accessed "! integer read_buffer ! dummy buffer for read for PC_TRANS!' integer read_length ! length of data to be read by PC_TRANS ( = 0 ) '  integer mem_addr ! single-word integer for above  integer subfunction ! CMD byte value for PC_TRANS call   integer trans_buffer(120) ! buffer PC_TRANS uses# integer trans_length ! length of trans_buffer in bytes #  C Set the subfunction to indicate Unprotected Write.   subfunction = 8  C Check to see what units the length parameter is in. C Bytes ...  if ( IAND ( write_length, 40000B ) .NE. 0 ) then trans_length = IAND ( write_length, 37777B )  mem_addr = pcadr C Bits ...   else if ( IAND ( write_length, 100000B ) .NE. 0 ) then  trans_length = IAND ( write_length, 37777B )  mem_addr = pcadr C Words ...  else trans_length = write_length * 2 mem_addr = pcadr * 2  end if  $C Copy the write_buffer into the trans_buffer. BSWAP is needed for all $C word-level operations with PC_TRANS. " call BSWAP ( write_buffer(1), trans_buffer(2), trans_length ) " %C Put the memory address into the single-word integer, and then put this %C into the first word of the buffer to be written. C Again, byte-swapping is necessary...   call BSWAP ( mem_addr, trans_buffer(1), 2 )  'C Add in the two remaining bytes for the memory address, and 40000B for byte 'C addressing.   trans_length = trans_length + 2 + 40000B C Set up the remaining parameters...   read_length = 0  C Issue the PC_TRANS call and return to the program...  # call PC_TRANS ( status, tag, key, pc, subfunction, trans_buffer,# + trans_length, read_buffer, read_length )   return end  $C *********************************************************************$C Subroutine to handle program ending.  subroutine IT_QUITS ( pc ) integer pc, status   call PC_UNLOCK ( status, pc )  call PCIF_CLOSE ( status ) call exec ( 6, 0, 0 )  return end C #C*********************************************************************#&C This subroutine reports an FMP error to a Logical Unit, then terminates & C the program. C  subroutine report_fmp_err ( log_lu, status )  integer status, log_lu $ write (log_lu ,'(2/,"&dB FMP error during file operation : ",I4, $ + /)') status  return end C #C ******************************************************************* #C This subroutine handles PCIF Error reporting to an LU. C  subroutine report_pcif_err ( log_lu, status )   integer error_message(67), error_length, status, log_lu   if ( status .LT. 512 ) then  call PCIF_ERROR ( status, error_message, error_length )  else call AB_ERROR ( status, error_message, error_length ) end if ! write ( log_lu , '(///,"&dB",67A2,/)') ( error_message (k),! + k = 1, (error_length+1)/2 ) ((  return end  $C *********************************************************************$ & subroutine convert_pc_type ( pc_type, ASCII ), B.Pascal <880307.1614>&C #C Modified 860201 Expanded table to all PC types. # C Kent Garliepp C C Modified 860814 reversed mini & 2/20-LP1 C Kent Garliepp C c Modified Jan 19, 1988. Add plc5 type processor. c Francis Tang  'C This subroutine converts an integer-format pc type, as returned by Allen- 'C Bradley PCs, into an equivalent ASCII representation. & character*8 pc_type_table (17), ! table of all possible pcs&$ + ASCII ! ASCII return variable$% integer pc_type ! integer format pc type % ' data pc_type_table / ' PLC ',' PLC-2 ','2/20-LP1',' MINI ', !8608'$ + ' PLC_3 ','2/20-LP2',' 2/15 ',' 2/30 ',$$ + ' PLC-4 ',' ?? ',' ?? ',' PLC_5 ',$$ + ' ?? ',' ?? ',' ?? ','COMPUTER',$ + '????????'/   ASCII = pc_type_table(17)   do i = 0, 15  if ( pc_type .EQ. i ) ASCII = pc_type_table (i+1)  end do return end  $C *********************************************************************$ ' subroutine convert_if_type ( if_type, ASCII ), B.Pascal <880307.1614> 'C C modified 860201 Added all possible if_types. C Kent Garliepp C c modified Jan 19, 1988 Added 1785 KA for PLC5c  &C This subroutine converts the integer-format Allen-Bradley interface type& C into an ASCII format.  & character*15 if_type_table(17), ! table of all possible types &# + ASCII ! ASCII return variable#" integer if_type ! value supplied by AB"   data if_type_table / ' 1771-KC/KD ',' 1771-KA ', + ' 1774-KA ',' 1771-KE/KF ', + ' 1771-KG ',' ?? ', + '1775-KA Highway',' 1775-KA Modem ', + '1773-KA Highway',' 1773-KA Modem ', + ' ?? ','1785-KA Highway', + ' ?? ',' ?? ', + ' ?? ',' ?? ',  + '???????????????'/ " ASCII = if_type_table (17) ! initialize to blank "  do i = 0, 15  if ( if_type .EQ. i ) ASCII = if_type_table ( i+1 )  end do return end  $C *********************************************************************$ ' subroutine convert_pc_mode ( pc_mode, ASCII ), B.Pascal <880307.1614> 'C C Modified 860201 Expanded mode_table.  C Kent Garliepp C  &C This subroutine converts the integer-format "PC MODE" as returned by the &!C Allen-Bradley Diagnostic Status command into an ASCII format.!  $ integer pc_mode ! PC mode as passed by AB $$ character*8 mode_table (9), ! table of possible modes $# + ASCII ! ASCII return variable # $ data mode_table / ' PROGRAM', ' TEST ', ' RUN ',' ?? ', $$ + 'REM PROG', 'REM TEST', 'RUN/PROG',' ?? ', $ + '????????' /  " ASCII = mode_table (9) ! initialize to blank "  do i = 0, 7  if ( pc_mode .EQ. i ) ASCII = mode_table ( i+1 ) end do  return end  $C *********************************************************************$ % subroutine convert_fw_rev ( fw_rev, ASCII ), B.Pascal <880307.1614> %C C modified 860201 Added all possible revisionC Kent Garliepp numbers. C  &C This subroutine converts the integer representation of the Allen-Bradley&&C firmware revision code, as returned by the PC during Diagnostic Status,&C to a one-letter ASCII format. & character*1 fw_table (33), ! table of all possible rev.s & + ASCII ! return variable % integer fw_rev ! integer fw_rev code of AB % # data fw_table / 'A','B','C','D','E','F','G','H','I','J','K', ## + 'L','M','N','O','P','Q','R','S','T','U','V', ## + 'W','X','Y','Z','?','?','?','?','?','?','?'/ # $ ASCII = fw_table (33) ! initialize to blank for $ ! " NOT FOUND"  do i = 0, 31  if ( fw_rev .EQ. i ) then  ASCII = fw_table ( i + 1 ) return  end if end do  return end  #C *******************************************************************##C This subroutine swaps the bytes in a buffer to convert from HP1000#"C format to Allen-Bradley format and vice-versa, and stores them "C into a destination buffer.   subroutine BSWAP ( source, destination, byte_length )   integer source(*), destination(*), byte_length   do i = 1, (byte_length)/2 ! word 1 through last word  ! destination(i) = ISHFT ( IAND ( source(i), 377B ), 8 ) !# + + ISHFT ( IAND ( source(i), 177400B ), -8 ) #  end do #C If the number of bytes is odd, pass the last byte straight through.#  if ( MOD ( byte_length, 2 ) .NE. 0 ) + destination ( (byte_length+1)/2 ) =  + IAND ( source ( (byte_length+1)/2 ) , 177400B )   C That's all, folks !   return end !C ************************************************************** ! subroutine PLC2_FREEZE( status,tag,key,pc) C Kent Garliepp <880307.1614>  C This subroutine puts a PLC_2 in upload mode. !C ************************************************************** !C Declarations  integer status ! PCIF call status integer tag ! User-defined tag variable " integer key ! Access key for no-wait requests " integer pc ! PC logical identifier  integer subfunction ! CMD byte for AB PCs & integer write_buffer (1) ! buffer containing message to write to PC&$ integer write_length ! length of message to transmit to PC $# integer read_buffer(1) ! buffer containing message from PC ## integer read_length ! length of message received from PC# $C *********************************************************************$ C Initialization   subfunction = 7 ! CMD byte  write_buffer(1) = 6 * 400b ! FNC byte " write_length = 1 + 40000b ! specify 1 byte to transmit "" read_length = 0 ! specify 0 bytes to receive " !C ************************************************************** ! C Send the message...  # call PC_TRANS ( status, tag, key, pc, subfunction, write_buffer,# + write_length, read_buffer, read_length )  return  end !C ************************************************************** ! subroutine PLC2_STOP( status,tag,key,pc) C Kent Garliepp <880307.1614>  C This subroutine puts a PLC_2 in download mode. !C ************************************************************** !C Declarations  integer status ! PCIF call status integer tag ! User-defined tag variable " integer key ! Access key for no-wait requests " integer pc ! PC logical identifier  integer subfunction ! CMD byte for AB PCs & integer write_buffer (1) ! buffer containing message to write to PC&$ integer write_length ! length of message to transmit to PC $# integer read_buffer(1) ! buffer containing message from PC ## integer read_length ! length of message received from PC# $C *********************************************************************$ C Initialization   subfunction = 7 ! CMD byte  write_buffer(1) = 4 * 400b ! FNC byte " write_length = 1 + 40000b ! specify 1 byte to transmit "" read_length = 0 ! specify 0 bytes to receive " !C ************************************************************** ! C Send the message...  # call PC_TRANS ( status, tag, key, pc, subfunction, write_buffer,# + write_length, read_buffer, read_length )  return  end !C ************************************************************** ! subroutine PLC2_START (status,tag,key,pc)  C Kent Garliepp <880307.1614>   C This subroutine releases a PLC_2 from upload/download mode.  !C ************************************************************** !C Declarations  integer status ! PCIF call status integer tag ! User-defined tag variable " integer key ! Access key for no-wait requests " integer pc ! PC logical identifier  integer subfunction ! CMD byte for AB PCs & integer writ((e_buffer (1) ! buffer containing message to write to PC&$ integer write_length ! length of message to transmit to PC $# integer read_buffer(1) ! buffer containing message from PC ## integer read_length ! length of message received from PC# $C *********************************************************************$ C Initialization   subfunction = 7 ! CMD byte  write_buffer(1) = 5 * 400b ! FNC byte " write_length = 1 + 40000b ! specify 1 byte to transmit "" read_length = 0 ! specify 0 bytes to receive " !C ************************************************************** ! C Send the message...  # call PC_TRANS ( status, tag, key, pc, subfunction, write_buffer,# + write_length, read_buffer, read_length )  return  end !C ************************************************************** ! subroutine PLC2_SET_T_SIZE( status,tag,key,pc,table_size) C Kent Garliepp <880307.1614>  C This subroutine sets the data table size for a PLC-2.  !C ************************************************************** !C Declarations  integer status ! PCIF call status integer tag ! User-defined tag variable " integer key ! Access key for no-wait requests " integer pc ! PC logical identifier  integer table_size ! Data table size (words)  integer subfunction ! CMD byte for AB PCs & integer write_buffer (2) ! buffer containing message to write to PC&$ integer write_length ! length of message to transmit to PC $# integer read_buffer(1) ! buffer containing message from PC ## integer read_length ! length of message received from PC# $C *********************************************************************$ C Initialization   subfunction = 6 ! CMD byte  write_buffer(1) = 8 * 400b ! FNC byte " write_length = 3 + 40000b ! specify 3 bytes to transmit"" read_length = 0 ! specify 0 bytes to receive " !C ************************************************************** ! C Set up data...   write_buffer(1) = write_buffer + iand( (table_size * 2), ! + 377b)! write_buffer(2) = iand( (table_size * 2), 177400b)  C Send the message...  # call PC_TRANS ( status, tag, key, pc, subfunction, write_buffer,# + write_length, read_buffer, read_length )  return  end #C *******************************************************************#  subroutine AB_MEM_CONFIG( pc, status, start_datatable, + end_datatable, start_program, end_memory ) $C Kent Garliepp <880307.1614> $C C $C This subroutine interrogates an Allen-Bradley PC and returns to the $#C calling routine the various pieces of diagnostic status available#$C about the memory address. All values are words. Items not returned $C by the status call are assumed. !C ************************************************************** !C Declarations  integer status ! PCIF call status integer tag ! User-defined tag variable " integer key ! Access key for no-wait requests " integer pc ! PC logical identifier  integer subfunction ! CMD byte for AB PCs & integer write_buffer(1) ! buffer containing message to write to PC&$ integer write_length ! length of message to transmit to PC $# integer read_buffer(10) ! buffer containing message from PC ## integer read_length ! length of message received from PC# " integer pc_connected ! 0 = connected, 1 = disconnected "% integer station_type ! 0 = 1771-KC/KD 6 = 1775-KA Highway%$ ! 1 = 1771-KA 7 = 1775-KA Modem$% ! 2 = 1774-KA 8 = 1773-KA Highway%$ ! 3 = 1771-KF 9 = 1773-KA Modem$ ! 4 = 1771-KG  integer processor_type ! type of PC processor" ! 0 = PLC 5 = 2/20-LP2 " ! 1 = PLC-2 6 = 2/15 ! 2 = MINI 7 = 2/30 " ! 3 = 2/20-LP1 15 = COMPUTER " ! 4 = PLC-3  integer start_datatable ! physical address in words  integer end_datatable ! physical address in words  integer start_program ! physical address in words " integer*4 end_memory ! physical address in words of the"# ! last used word (double integer). # $ integer pc_table(16) ! table of pc type and memory to match$ ! diagnostic status return : ! Mem size  ! Index PC Type Words ! ! 1 = PLC 12K ! 2 = PLC-2 2K  ! 3 = MINI 1K  ! 4 = 2/20-LP1 8K  ! 5 = PLC-3 -1  ! 6 = 2/20-LP2 8K  ! 7 = 2/15 2K  ! 8 = 2/30 16KC  data pc_table / 12287,2047,1023,8191,-1,8191,2047,16383,  + -1,-1,-1,-1,-1,-1,-1,-1/  $C *********************************************************************$ C Initialization   tag = 0 ! Who cares ?" key = 0 ! Specify operation WITH wait" start_datatable = -1 ! no information  end_datatable = -1 ! no information  start_program = -1 ! no information  end_memory = -1 ! no information ! ! (double integer = -1) ! ! begin bytes to receive  call pc_ident( status,tag,key,pc,read_buffer,10 )  IF( status .NE. 0 ) return  processor_type = read_buffer(2) read_length = 10 + 40000b  IF( processor_type .EQ. 4 ) read_length = 18 + 40000b  ! end bytes to receive  ' subfunction = 6 ! CMD byte = 6 for AB Diagnostic status'' write_buffer(1) = 3 * 400b ! FNC byte = 3 for AB Diagnostic status'" write_length = 1 + 40000b ! specify 1 byte to transmit " !C ************************************************************** ! C Send the message...  # call PC_TRANS ( status, tag, key, pc, subfunction, write_buffer,# + write_length, read_buffer, read_length ) if ( status .NE. 0 ) return  !C ************************************************************** ! C Get the results...  ! pc_connected = ishft ( iand ( read_buffer(1), 4000B ), -11 )! !C Test bit 3 ( bit 11 in byte-swapped form ) to see if the pc is!C connected. If not, don't bother computing the returns.   IF(pc_connected .NE. 0) return "C If this is a 1771-KC/KD module ( type = 0 ) the mode and pc_type "C parameters will be invalid. Don't return them.  station_type = iand( read_buffer(1), 17b ) IF ( station_type .EQ. 0 ) return    IF(processor_type .EQ. 4) then start_program = 0 call bswap(read_buffer(6),end_memory ,4)  end_memory =( end_memory - 1 )   ELSE start_datatable = 8 call bswap( read_buffer(2), start_program, 2 ) start_program = (start_program + 1) / 2 end_datatable = start_program - 1 end_memory = pc_table(processor_type + 1) END IF  return end  /PCIF/AB/[PCPAC:::4:3:33 644 0 0 1400 5303156102 33032 /PCIF_AB/AB/[PCPAC:::4:3:33 $ _![PCPAC + B+ B+ B>tFST * [PCPAC 94202-18010 REV.5005 <880310.1323>  --PCIF DESCRIPTION FILE---  HANDLER TYPE = PC BRAND =ALLEN-BRADLEY! COMMENT=The ALLEN-BRADLEY PC handler support the following PC's: ! COMMENT=PLC-3,PLC5  TYPE = 1775/PLC-3.FAMILY  TYPE = 1785/PLC-5.FAMILY  IO = MULTI  RUN TIME FILE = /PCIF/AB/%PCPAC  RUN TIME ENTRY = PC_PC_HAND_AB  CONTEXT SIZE ((= 38 SUPPORTED HIGHWAY = 94202  CAPABILITY = 0000011111111111 --PCIF END OF DESCRIPTION-- = 20--PCIF END OF DESCRIPTION-- /PCIF/AB/[PCHAC:::4:3:36 644 0 0 1400 5303156103 33071 /PCIF_AB/AB/[PCHAC:::4:3:36 $ _$[PCHAC + C+ C+ C^zFST * [PCHAC 94202-18011 REV.5005 <880310.1322>  --PCIF DESCRIPTION FILE---  HANDLER TYPE = HIGHWAY 94202  BRAND =ALLEN-BRADLEY$ COMMENT=The ALLEN-BRADLEY highway handler supports the following PC's: $ COMMENT= mini PLC-/15,PLC-2,PLC-2/20,PLC-2/30,PLC,PLC-3,plc5  TYPE = 1771/Data Highway  IO = LU=2 RUN TIME FILE = /PCIF/AB/%PCHAC  RUN TIME ENTRY = PC_HW_HAND_AB  CONFIGURATOR FILE = /PCIF/AB/%PCCHA  CONFIGURATOR ENTRY = PC_CONF_HY_AB  DOWNLOAD FILE = /PCIF/AB/!PCFAB  CONTEXT SIZE = 22 --PCIF END OF DESCRIPTION--/PCIF/AB/&ABLBC:::4:151:39 644 0 0 113400 5303156104 34151 /PCIF_AB/AB/&ABLBC:::4:151:39 $ _'&ABLBC + D+ D+ DKIFST ftn7x,l,t,c $CDS ON #C *******************************************************************#C Programmer : B.Pascal Time Stamp <880310.1546> C C REV.5005C C NAME: ABLIB Source Code C C SOURCE: 94202-18018 CDSC %C Modified : July 2, 1984 by B.Pascal to make the routine "diag_status"%%C return the actual diagnostic counters address%$C for 1771-KC/KD/KE/KF modules as well as for$%C the 1771-KA modules, as was done previously. %C "C Modified : Jan 19, 1988. To change diag_status subroutine to"C francis Tang return PLC5 typesC #C *******************************************************************#C %C This is the ABLIB source. It is a collection of subroutines which make%&C programming with PCIF/1000 and Allen-Bradley Programmable Controllers & C much more enjoyable. C C Included in this library are the following : C %C DIAG_STATUS - returns all of the information available from a CMD 6,%#C subfunction 3 data highway command, in a processed#C ready-to-use format C #C PC_WRITED_UNP - does an unprotected write to a PC, with the same#$C parameters as the PCIF PC_WRITED call ( which does a$C protected write ) C 'C IT_QUITS - closes out a program from PCIF and terminates the program 'C 'C REPORT_FMP_ERR - displays a File Management Package error on a terminal 'C $C REPORT_PCIF_ERR - displays a PCIF error on a terminal or other LU $C 'C AB_ERROR - processes the Allen-Bradley-specific errors which PCIF_ERROR 'C doesn't handle. C %C CONVERT_PC_TYPE : converts the Allen-Bradley code for a PC type into%"C an ASCII string ( i.e. 0 converts to ' PLC '. ) "C $C CONVERT_IF_TYPE : converts the Allen-Bradley code for an interface$C module into an ASCII stringC ( i.e. converts 0 to ' 1771-KC/KD ' ) C $C CONVERT_PC_MODE : converts the Allen-Bradley code for the mode of $&C a PC into an ASCII string ( i.e. converts 0 to ' PROGRAM' ) &C &C CONVERT_FW_REV : converts the Allen-Bradley code for firmware revision&#C level into an ASCII string ( i.e. converts 0 to 'A' ) #C #C BSWAP : swaps the bytes in a source buffer and stores them into#$C a destination buffer. This is required whenever you use $$C PC_TRANS, for data items which are words, not bytes. The$%C reason is that Allen-Bradley stores integers with the bytes%!C in the reverse order form Hewlett-Packard standard.!C %C PLC2_FREEZE : causes a PLC-2 to enter the upload mode. In some cases%#C the interface module will prevent the data table from #C being changed.%C PLC2_STOP : causes a PLC-2 to enter the download mode. In some cases%C the interface module will stop the processor. C "C PLC2_START : causes a PLC-2 to exit the upload/download mode. "C C PLC2_SET_T_SIZE : sets the PLC-2 data table size. C !C AB_MEM_CONFIG : returns the starting and ending addresses of!!C the data table, the starting address of the !#C program, and the ending address of used memory. #C #C *******************************************************************# # subroutine diag_status ( pc, status, key_position, pc_connected,#$ + station_type, processor_type, program_address, diag_address,$$ + firmware_rev, firmware_series, option_switches ),94202-12002$ + REV.5005 <880310.1546> #C B.Pascal <880310.1546>#C C $C This subroutine interrogates an Allen-Bradley PC and returns to the $$C calling routine the various pieces of diagnostic status available. $ !C ************************************************************** !C Declarations  integer status ! PCIF call status integer tag ! User-defined tag variable " integer key ! Access key for no-wait requests " integer pc ! PC logical identifier  integer subfunction ! CMD byte for AB PCs & integer write_buffer (128) ! buffer containing message to write to PC&$ integer write_length ! length of message to transmit to PC $# integer read_buffer(128) ! buffer containing message from PC ## integer read_length ! length of message received from PC# ! integer key_position ! 0 = program, 1 = test, 2 = run!" integer pc_connected ! 0 = connected, 1 = disconnected "% integer station_type ! 0 = 1771-KC/KD 6 = 1775-KA Highway%$ ! 1 = 1771-KA 7 = 1775-KA Modem$% ! 2 = 1774-KA 8 = 1773-KA Highway%$ ! 3 = 1771-KF 9 = 1773-KA Modem$ ! 4 = 1771-KG  integer processor_type ! type of PC processor" ! 0 = PLC 5 = 2/20-LP2 " ! 1 = PLC-2 6 = 2/15 ! 2 = MINI 7 = 2/30 ! 3 = 2/20-LP1 11 = PLC5 " ! 4 = PLC-3 15 = Computer " integer program_address ! start of program address integer diag_address ! diagnostic counters address ! integer firmware_rev ! revision level of the firmware! integer firmware_series ! series level of the firmware integer option_switches ! switch settings for options  $C *********************************************************************$ C Initialization   tag = 0 ! Who cares ?" key = 0 ! Specify operation WITH wait"' subfunction = 6 ! CMD byte = 6 for AB Diagnostic status'' write_buffer(1) = 3 * 400b ! FNC byte = 3 for AB Diagnostic status'" write_length = 1 + 40000b ! specify 1 byte to transmit "" read_length = 10 + 40000b ! specify 10 bytes to receive" !C ************************************************************** ! C Send the message...  # call PC_TRANS ( status, tag, key, pc, subfunction, write_buffer,# + write_length, read_buffer, read_length ) if ( status .NE. 0 ) return  !C ************************************************************** ! C Get the results...  ! pc_connected = ishft ( iand ( read_buffer(1), 4000B ), -11 )!  diag_address = ishft ( iand ( read_buffer(4), 377B) , 8 ) " + + ishft ( iand ( read_buffer(4), 177400b ), -8 )" !C Test bit 3 ( bit 11 in byte-swapped form ) to see if the pc is!"C connected to the KA module. If not, don't bother computing the"%C invalid returns of pc_type, interface_type, prog start address, etc. %  if ( pc_connected .NE. 0 ) then  station_type = -1  else station_type = iand ( read_buffer(1), 17b )  en((d if 'C Check to see if this is a 1771-KC/KD module ( type = 0 ). If so, the mode ' C and pc_type parameters will be invalid, so don't print them.   if ( station_type .GT. 0 ) then # processor_type = ishft ( iand ( read_buffer(1), 360B ), -4 )## key_position = ishft ( iand ( read_buffer(1), 3400B ), -8 ) # IF(processor_type .EQ. 4) then program_address = 0 ELSE$ program_address = ishft ( iand ( read_buffer(2), 377B ), 8 ) $" + + ishft ( iand ( read_buffer(2), 177400b ), -8 )" END IF &C If this is a KC module, or the pc is unconnected, the processor-specific&&C information is undefined, so assign it to -1 as a flag to the calling &C program.   else  processor_type = -1  key_position = -1  program_address = -1  end if ! firmware_rev = ishft ( iand ( read_buffer(5), 17400B ), -8 )!# firmware_series = ishft ( iand ( read_buffer(5), 160000B), -13 )# option_switches = iand ( read_buffer(5), 377B )   return end  %C ***********************************************************************%  %C ***********************************************************************%  ' subroutine AB_ERROR ( status, message, length ), B.Pascal <880310.1546>'C C Modified 860131 Extended messages.C Kent Garliepp C C Modified 860327 Changed error 514 C Kent Garliepp C C Modified 860814 changed error 519 C Kent Garliepp  $C This subroutine converts an error message from the PCIF format into $ C an ASCII message.   ! integer status ! error code from PCIF!$ integer ab_status ! error code STS or ext STS $% integer message ( 40 ) ! ASCII error message returned%& integer message_array (41,28) ! array containing all messages &' integer error_code_index (28) ! array containing all error codes'& integer last_message ! Number of last message in data&& integer length ! how many bytes in the message &# logical not_a_match ! search for match between#' ! ab_status and error_code_index '$ integer ones, tens, hundreds ! digits of unknown STS codes$ $C ADD additional messages before the last three messages. The first $%C data is the length followed by 80 characters. UPDATE the array sizes% C of message_array and error_code_index. UPDATE the data in C last_message and error_code_index.C #C This table does now consider local errors (I.E. 512 & 513). They#"C overlap remote errors from the PLC-3 extended error bytes. See"C the PCIF/1000 Allen-Bradley documentation.C  data last_message/28/   data message_array /  + 10,10hNo Error. ,  + 35*2h , + 36,36hThe command or data size is illegal., + 22*2h ,! + 52,52hThe remote PC had a fault, is off, or disconnected. ,! + 14*2h , + 32,32hAn IO error occurred at the PC. , + 24*2h ,! + 52,52hThe address is not allowed by protection at the PC. ,! + 14*2h , + 48,48hThe requested function is not allowed by the PC., + 16*2h , + 28,28hThe PC is in the wrong mode., + 26*2h , + 46,46hThe communication zone is incorrect at the PC., + 17*2h , + 40,40hThe destination is out of buffer space. , + 20*2h , + 28,28hThe PC is in the wrong mode., + 26*2h , + 38,38hError in conversion of block address. , + 21*2h ,$ + 44,44hImproper word format or PLC not responding. , !860327 $! + 18*2h , ! !! + 40,40hError in file address or Hwy contention., ! !! + 20*2h , ! ! + 16,16hInvalid symbol. , + 32*2h , + 38,38hImproper symbol specification format. , + 21*2h , + 28,28hInvalid PLC_3 word address. , + 26*2h ,$ + 22,20hImproper file size. , !(860814) $" + 30*2h , ! """ + 44,44hFile size changed during message execution. , + 18*2h , + 20,20hFile size too large., + 30*2h , + 24,24hMessage size too large. , + 28*2h , + 48,48hWrite privileges not granted to remote station. , + 16*2h , + 40,40hUpload/download access is not available., + 20*2h ," + 54,54hRequesting station already has upload/download access.," + 13*2h , + 40,40hShutdown request could not be executed. , + 20*2h ,# + 56,56hRequesting station does not have upload/download access.,# + 12*2h , + 38,38hNot an error from an Allen-Bradley PC., + 21*2h , + 38,38hOut of range for an Allen-Bradley PC. , + 21*2h , + 26,26hUnknown status code = , + 27*2h /  data error_code_index / 512,528,560,576,592,608,624,640,  + 656,688,513,514,515,516,517,518,519,520,521,522,523, + 524,525,526,527,1001,1002,1003/  ab_status = status  IF(ab_status .GE. 768) ab_status = 1002  IF(ab_status .LT. 512) ab_status = 1001   not_a_match = .TRUE.  C Search through the known error codes to find a match.   i = 0  do while ( not_a_match .AND. (i .LT. last_message) )  i = i + 1  if ( error_code_index(i) .EQ. ab_status ) then   do k = 1, 40  message (k) = message_array ( k+1, i )  end do  not_a_match = .FALSE. length = message_array ( 1, i )  end if   end do "C The STS code was not in the table, so write in the message buffer"C "Unknown status code = ".  if ( not_a_match ) then   do k = 1, 40 ! message(k) = message_array ( k+1, last_message)! end do  %C The unknown STS code must be converted to Hollerith format to get stuck% C in the ASCII buffer.  # message ( 12 ) = 20000B ! make a blank in left byte#  ab_status = ab_status - 512 ! return real STS  hundreds = ab_status / 100  tens = ( ab_status - 100 * hundreds ) / 10  ones = ab_status - hundreds * 100 - tens * 10 & message ( 12 ) = message(12) + 60B + hundreds ! hundreds digit &" message ( 13 ) = ( 60B + tens ) * 400B ! tens digit"$ message ( 13 ) = ( 60B + ones ) + message ( 13 ) ! ones digit$ length = message_array ( 1, last_message)  end if return end  "C *****************************************************************"!C This subroutine uses PC_TRANS to do an unprotected write to the! C data table of a PC. It is called in the same fashion as is C PC_WRITED, which does a protected write. This subroutine is "C useful when the PC Memory Access Rungs in the Communication Zone"C do not allow access to the complete Data Table.    subroutine PC_WRITED_UNP ( status, tag, key, pc, + write_buffer, write_length, pcadr )  integer status ! status return  integer tag, key ! parameters for no-wait calls" integer pc ! logical pc identifier for PCIF calls"$ integer write_buffer(128) ! buffer to hold the info to be sent $ integer write_length ! length of write buffer" integer*4 pcadr ! address in pc memory to be accessed "! integer read_buffer ! dummy buffer for read for PC_TRANS!' integer read_length ! length of data to be read by PC_TRANS ( = 0 ) '  integer mem_addr ! single-word integer for above  integer subfunction ! CMD byte value for PC_TRANS call   integer trans_buffer(120) ! buffer PC_TRANS uses# integer trans_length ! length of trans_buffer in bytes #  C Set the subfunction to indicate Unprotected Write.   subfunction = 8  C Check to see what units the length parameter is in. C Bytes ...  if ( IAND ( write_length, 40000B ) .NE. 0 ) then trans_length = IAND ( write_length, 37777B )  mem_addr = pcadr C Bits ...   else if ( IAND ( write_length, 100000B ) .NE. 0 ) then  trans_length = IAND ( write_length, 37777B )  mem_addr = pcadr C Words ...  else trans_length = write_length * 2 mem_addr = pcadr * 2  end if  $C Copy the write_buffer into the trans_buffer. BSWAP is needed for all $C word-level operations with PC_TRANS. " call BSWAP ( write_buffer(1), trans_buffer(2), trans_length ) " %C Put the memory address into the single-word integer, and then put this %C into the first word of the buffer to be written. C Again, byte-swapping is necessary...   call BSWAP ( mem_addr, trans_buffer(1), 2 )  'C Add in the two remaining bytes for the memory address, and 40000B for byte 'C addressing.   trans_length = trans_length + 2 + 40000B C Set up the remaining parameters...   read_length = 0  C Issue the PC_TRANS call and return to the program...  # ((call PC_TRANS ( status, tag, key, pc, subfunction, trans_buffer,# + trans_length, read_buffer, read_length )   return end  $C *********************************************************************$C Subroutine to handle program ending.  subroutine IT_QUITS ( pc ) integer pc, status   call PC_UNLOCK ( status, pc )  call PCIF_CLOSE ( status ) call exec ( 6, 0, 0 )  return end C #C*********************************************************************#&C This subroutine reports an FMP error to a Logical Unit, then terminates & C the program. C  subroutine report_fmp_err ( log_lu, status )  integer status, log_lu $ write (log_lu ,'(2/,"&dB FMP error during file operation : ",I4, $ + /)') status  return end C #C ******************************************************************* #C This subroutine handles PCIF Error reporting to an LU. C  subroutine report_pcif_err ( log_lu, status )   integer error_message(67), error_length, status, log_lu   if ( status .LT. 512 ) then  call PCIF_ERROR ( status, error_message, error_length )  else call AB_ERROR ( status, error_message, error_length ) end if ! write ( log_lu , '(///,"&dB",67A2,/)') ( error_message (k),! + k = 1, (error_length+1)/2 )   return end  $C *********************************************************************$ & subroutine convert_pc_type ( pc_type, ASCII ), B.Pascal <880310.1546>&C #C Modified 860201 Expanded table to all PC types. # C Kent Garliepp C C Modified 860814 reversed mini & 2/20-LP1 C Kent Garliepp C c Modified Jan 19, 1988. Add plc5 type processor. c Francis Tang  'C This subroutine converts an integer-format pc type, as returned by Allen- 'C Bradley PCs, into an equivalent ASCII representation. & character*8 pc_type_table (17), ! table of all possible pcs&$ + ASCII ! ASCII return variable$% integer pc_type ! integer format pc type % ' data pc_type_table / ' PLC ',' PLC-2 ','2/20-LP1',' MINI ', !8608'$ + ' PLC_3 ','2/20-LP2',' 2/15 ',' 2/30 ',$$ + ' PLC-4 ',' ?? ',' ?? ',' PLC_5 ',$$ + ' ?? ',' ?? ',' ?? ','COMPUTER',$ + '????????'/   ASCII = pc_type_table(17)   do i = 0, 15  if ( pc_type .EQ. i ) ASCII = pc_type_table (i+1)  end do return end  $C *********************************************************************$ ' subroutine convert_if_type ( if_type, ASCII ), B.Pascal <880310.1546> 'C C modified 860201 Added all possible if_types. C Kent Garliepp C c modified Jan 19, 1988 Added 1785 KA for PLC5c  &C This subroutine converts the integer-format Allen-Bradley interface type& C into an ASCII format.  & character*15 if_type_table(17), ! table of all possible types &# + ASCII ! ASCII return variable#" integer if_type ! value supplied by AB"   data if_type_table / ' 1771-KC/KD ',' 1771-KA ', + ' 1774-KA ',' 1771-KE/KF ', + ' 1771-KG ',' ?? ', + '1775-KA Highway',' 1775-KA Modem ', + '1773-KA Highway',' 1773-KA Modem ', + ' ?? ','1785-KA Highway', + ' ?? ',' ?? ', + ' ?? ',' ?? ',  + '???????????????'/ " ASCII = if_type_table (17) ! initialize to blank "  do i = 0, 15  if ( if_type .EQ. i ) ASCII = if_type_table ( i+1 )  end do return end  $C *********************************************************************$ ' subroutine convert_pc_mode ( pc_mode, ASCII ), B.Pascal <880310.1546> 'C C Modified 860201 Expanded mode_table.  C Kent Garliepp C  &C This subroutine converts the integer-format "PC MODE" as returned by the &!C Allen-Bradley Diagnostic Status command into an ASCII format.!  $ integer pc_mode ! PC mode as passed by AB $$ character*8 mode_table (9), ! table of possible modes $# + ASCII ! ASCII return variable # $ data mode_table / ' PROGRAM', ' TEST ', ' RUN ',' ?? ', $$ + 'REM PROG', 'REM TEST', 'RUN/PROG',' ?? ', $ + '????????' /  " ASCII = mode_table (9) ! initialize to blank "  do i = 0, 7  if ( pc_mode .EQ. i ) ASCII = mode_table ( i+1 ) end do  return end  $C *********************************************************************$ % subroutine convert_fw_rev ( fw_rev, ASCII ), B.Pascal <880310.1546> %C C modified 860201 Added all possible revisionC Kent Garliepp numbers. C  &C This subroutine converts the integer representation of the Allen-Bradley&&C firmware revision code, as returned by the PC during Diagnostic Status,&C to a one-letter ASCII format. & character*1 fw_table (33), ! table of all possible rev.s & + ASCII ! return variable % integer fw_rev ! integer fw_rev code of AB % # data fw_table / 'A','B','C','D','E','F','G','H','I','J','K', ## + 'L','M','N','O','P','Q','R','S','T','U','V', ## + 'W','X','Y','Z','?','?','?','?','?','?','?'/ # $ ASCII = fw_table (33) ! initialize to blank for $ ! " NOT FOUND"  do i = 0, 31  if ( fw_rev .EQ. i ) then  ASCII = fw_table ( i + 1 ) return  end if end do  return end  #C *******************************************************************##C This subroutine swaps the bytes in a buffer to convert from HP1000#"C format to Allen-Bradley format and vice-versa, and stores them "C into a destination buffer.   subroutine BSWAP ( source, destination, byte_length )   integer source(*), destination(*), byte_length   do i = 1, (byte_length)/2 ! word 1 through last word  ! destination(i) = ISHFT ( IAND ( source(i), 377B ), 8 ) !# + + ISHFT ( IAND ( source(i), 177400B ), -8 ) #  end do #C If the number of bytes is odd, pass the last byte straight through.#  if ( MOD ( byte_length, 2 ) .NE. 0 ) + destination ( (byte_length+1)/2 ) =  + IAND ( source ( (byte_length+1)/2 ) , 177400B )   C That's all, folks !   return end !C ************************************************************** ! subroutine PLC2_FREEZE( status,tag,key,pc) C Kent Garliepp <880310.1546>  C This subroutine puts a PLC_2 in upload mode. !C ************************************************************** !C Declarations  integer status ! PCIF call status integer tag ! User-defined tag variable " integer key ! Access key for no-wait requests " integer pc ! PC logical identifier  integer subfunction ! CMD byte for AB PCs & integer write_buffer (1) ! buffer containing message to write to PC&$ integer write_length ! length of message to transmit to PC $# integer read_buffer(1) ! buffer containing message from PC ## integer read_length ! length of message received from PC# $C *********************************************************************$ C Initialization   subfunction = 7 ! CMD byte  write_buffer(1) = 6 * 400b ! FNC byte " write_length = 1 + 40000b ! specify 1 byte to transmit "" read_length = 0 ! specify 0 bytes to receive " !C ************************************************************** ! C Send the message...  # call PC_TRANS ( status, tag, key, pc, subfunction, write_buffer,# + write_length, read_buffer, read_length )  return  end !C ************************************************************** ! subroutine PLC2_STOP( status,tag,key,pc) C Kent Garliepp <880310.1546>  C This subroutine puts a PLC_2 in download mode. !C ************************************************************** !C Declarations  integer status ! PCIF call status integer tag ! User-defined tag variable " integer key ! Access key for no-wait requests " integer pc ! PC logical identifier  integer subfunction ! CMD byte for AB PCs & integer write_buffer (1) ! buffer containing message to write to PC&$ integer write_length (( ! length of message to transmit to PC $# integer read_buffer(1) ! buffer containing message from PC ## integer read_length ! length of message received from PC# $C *********************************************************************$ C Initialization   subfunction = 7 ! CMD byte  write_buffer(1) = 4 * 400b ! FNC byte " write_length = 1 + 40000b ! specify 1 byte to transmit "" read_length = 0 ! specify 0 bytes to receive " !C ************************************************************** ! C Send the message...  # call PC_TRANS ( status, tag, key, pc, subfunction, write_buffer,# + write_length, read_buffer, read_length )  return  end !C ************************************************************** ! subroutine PLC2_START (status,tag,key,pc)  C Kent Garliepp <880310.1546>   C This subroutine releases a PLC_2 from upload/download mode.  !C ************************************************************** !C Declarations  integer status ! PCIF call status integer tag ! User-defined tag variable " integer key ! Access key for no-wait requests " integer pc ! PC logical identifier  integer subfunction ! CMD byte for AB PCs & integer write_buffer (1) ! buffer containing message to write to PC&$ integer write_length ! length of message to transmit to PC $# integer read_buffer(1) ! buffer containing message from PC ## integer read_length ! length of message received from PC# $C *********************************************************************$ C Initialization   subfunction = 7 ! CMD byte  write_buffer(1) = 5 * 400b ! FNC byte " write_length = 1 + 40000b ! specify 1 byte to transmit "" read_length = 0 ! specify 0 bytes to receive " !C ************************************************************** ! C Send the message...  # call PC_TRANS ( status, tag, key, pc, subfunction, write_buffer,# + write_length, read_buffer, read_length )  return  end !C ************************************************************** ! subroutine PLC2_SET_T_SIZE( status,tag,key,pc,table_size) C Kent Garliepp <880310.1546>  C This subroutine sets the data table size for a PLC-2.  !C ************************************************************** !C Declarations  integer status ! PCIF call status integer tag ! User-defined tag variable " integer key ! Access key for no-wait requests " integer pc ! PC logical identifier  integer table_size ! Data table size (words)  integer subfunction ! CMD byte for AB PCs & integer write_buffer (2) ! buffer containing message to write to PC&$ integer write_length ! length of message to transmit to PC $# integer read_buffer(1) ! buffer containing message from PC ## integer read_length ! length of message received from PC# $C *********************************************************************$ C Initialization   subfunction = 6 ! CMD byte  write_buffer(1) = 8 * 400b ! FNC byte " write_length = 3 + 40000b ! specify 3 bytes to transmit"" read_length = 0 ! specify 0 bytes to receive " !C ************************************************************** ! C Set up data...   write_buffer(1) = write_buffer + iand( (table_size * 2), ! + 377b)! write_buffer(2) = iand( (table_size * 2), 177400b)  C Send the message...  # call PC_TRANS ( status, tag, key, pc, subfunction, write_buffer,# + write_length, read_buffer, read_length )  return  end #C *******************************************************************#  subroutine AB_MEM_CONFIG( pc, status, start_datatable, + end_datatable, start_program, end_memory ) $C Kent Garliepp <880310.1546> $C C $C This subroutine interrogates an Allen-Bradley PC and returns to the $#C calling routine the various pieces of diagnostic status available#$C about the memory address. All values are words. Items not returned $C by the status call are assumed. !C ************************************************************** !C Declarations  integer status ! PCIF call status integer tag ! User-defined tag variable " integer key ! Access key for no-wait requests " integer pc ! PC logical identifier  integer subfunction ! CMD byte for AB PCs & integer write_buffer(1) ! buffer containing message to write to PC&$ integer write_length ! length of message to transmit to PC $# integer read_buffer(10) ! buffer containing message from PC ## integer read_length ! length of message received from PC# " integer pc_connected ! 0 = connected, 1 = disconnected "% integer station_type ! 0 = 1771-KC/KD 6 = 1775-KA Highway%$ ! 1 = 1771-KA 7 = 1775-KA Modem$% ! 2 = 1774-KA 8 = 1773-KA Highway%$ ! 3 = 1771-KF 9 = 1773-KA Modem$ ! 4 = 1771-KG  integer processor_type ! type of PC processor" ! 0 = PLC 5 = 2/20-LP2 " ! 1 = PLC-2 6 = 2/15 ! 2 = MINI 7 = 2/30 " ! 3 = 2/20-LP1 15 = COMPUTER " ! 4 = PLC-3  integer start_datatable ! physical address in words  integer end_datatable ! physical address in words  integer start_program ! physical address in words " integer*4 end_memory ! physical address in words of the"# ! last used word (double integer). # $ integer pc_table(16) ! table of pc type and memory to match$ ! diagnostic status return : ! Mem size  ! Index PC Type Words ! ! 1 = PLC 12K ! 2 = PLC-2 2K  ! 3 = MINI 1K  ! 4 = 2/20-LP1 8K  ! 5 = PLC-3 -1  ! 6 = 2/20-LP2 8K  ! 7 = 2/15 2K  ! 8 = 2/30 16KC  data pc_table / 12287,2047,1023,8191,-1,8191,2047,16383,  + -1,-1,-1,-1,-1,-1,-1,-1/  $C *********************************************************************$ C Initialization   tag = 0 ! Who cares ?" key = 0 ! Specify operation WITH wait" start_datatable = -1 ! no information  end_datatable = -1 ! no information  start_program = -1 ! no information  end_memory = -1 ! no information ! ! (double integer = -1) ! ! begin bytes to receive  call pc_ident( status,tag,key,pc,read_buffer,10 )  IF( status .NE. 0 ) return  processor_type = read_buffer(2) read_length = 10 + 40000b  IF( processor_type .EQ. 4 ) read_length = 18 + 40000b  ! end bytes to receive  ' subfunction = 6 ! CMD byte = 6 for AB Diagnostic status'' write_buffer(1) = 3 * 400b ! FNC byte = 3 for AB Diagnostic status'" write_length = 1 + 40000b ! specify 1 byte to transmit " !C ************************************************************** ! C Send the message...  # call PC_TRANS ( status, tag, key, pc, subfunction, write_buffer,# + write_length, read_buffer, read_length ) if ( status .NE. 0 ) return  !C ************************************************************** ! C Get the results...  ! pc_connected = ishft ( iand ( read_buffer(1), 4000B ), -11 )! !C Test bit 3 ( bit 11 in byte-swapped form ) to see if the pc is!C connected. If not, don't bother computing the returns.   IF(pc_connected .NE. 0) return "C If this is a 1771-KC/KD module ( type = 0 ) the mode and pc_type "C parameters will be invalid. Don't return them.  station_type = iand( read_buffer(1), 17b ) IF ( station_type .EQ. 0 ) return    IF(processor_type .EQ. 4) then start_program = 0 call bswap(read_buffer(6),end_memory ,4)  end_memory =( end_memory - 1 )   ELSE start_datatable = 8 call bswap( read_buffer(2), start_program, 2 ) start_program = (start_program + 1) / 2 end((_datatable = start_program - 1 end_memory = pc_table(processor_type + 1) END IF  return end  /PCIF/AB/[PCP2B:::4:3:33 644 0 0 1400 5303156105 32536 /PCIF_AB/AB/[PCP2B:::4:3:33 $ `,![PCP2B + E+ E+ EVFST * [PCP2B SOURCE: 94202-18021 REV.5005 <880310.1325>  --PCIF DESCRIPTION FILE---  HANDLER TYPE = PC BRAND =ALLEN-BRADLEY! COMMENT=The ALLEN-BRADLEY PC handler support the following PC's: ! COMMENT=mini PLC-2,mini PLC-2/15,PLC-2,PLC-2/20,PCL-2/30,PLC  TYPE = 1771/PLC-2.FAMILY  TYPE = 1774/PLC.FAMILY  IO = MULTI  RUN TIME FILE = /PCIF/AB/%PCP2B  RUN TIME ENTRY = PC_PC2_HAND_AB CONTEXT SIZE = 12 SUPPORTED HIGHWAY = 94202  CAPABILITY = 0000011111111111 --PCIF END OF DESCRIPTION--/PCIF/AB/[PCP2C:::4:3:33 644 0 0 1400 5303156106 32557 /PCIF_AB/AB/[PCP2C:::4:3:33 $ `0![PCP2C + F+ F+ FV FST * [PCP2C SOURCE: 94202-18022 REV.5005 <880310.1326>  --PCIF DESCRIPTION FILE---  HANDLER TYPE = PC BRAND =ALLEN-BRADLEY! COMMENT=The ALLEN-BRADLEY PC handler support the following PC's: ! COMMENT=mini PLC-2,mini PLC-2/15,PLC-2,PLC-2/20,PCL-2/30,PLC  TYPE = 1771/PLC-2.FAMILY  TYPE = 1774/PLC.FAMILY  IO = MULTI  RUN TIME FILE = /PCIF/AB/%PCP2C  RUN TIME ENTRY = PC_PC2_HAND_AB CONTEXT SIZE = 12 SUPPORTED HIGHWAY = 94202  CAPABILITY = 0000011111111111 --PCIF END OF DESCRIPTION--/PCIF/GM/HPHPHP:::4:7:34 644 0 0 3400 5303174330 33105 /PCIF_GM/GM/HPHPHP:::4:7:34 $ `D"HPHPHP + +$v+ S#&FST * "* MATERIAL LIST: 94203-13301 REV: 6000 CT-94203A 2204"* * (SAME AS MATERIAL LIST: 94203-13502 REV: 6000 ) * (SAME AS MATERIAL LIST: 94203-13601 REV: 6000 ) * * Directory: /PCIF/GM/ * 94203-12001 5000 01 01 5 /PCIF/GM/GMLBC.LIB:::5:4494203-16007 5000 01 01 5 /PCIF/GM/GMUP.REL:::5:16094203-16008 5000 01 01 5 /PCIF/GM/GMDN.REL:::5:20894203-16011 5000 01 01 5 /PCIF/GM/GMUP0.REL:::5:2894203-16012 5000 01 01 5 /PCIF/GM/GMDN0.REL:::5:3894203-16014 5000 01 01 5 /PCIF/GM/PCPGC.REL:::5:180 94203-16015 6000 01 01 5 /PCIF/GM/PCHGC.REL:::5:179 94203-16018 5005 01 01 5 /PCIF/GM/PCC06.REL:::5:2294203-16019 5000 01 01 5 /PCIF/GM/PCC10.REL:::5:1094203-17001 5000 01 01 4 /PCIF/GM/GMUP.LOD:::4:294203-17002 5000 01 01 4 /PCIF/GM/GMDN.LOD:::4:294203-17005 5000 01 01 4 /PCIF/GM/GM.CMD:::4:11 94203-17007 5005 01 01 3 /PCIF/GM/PCC06.FRM:::3:1394203-17008 5000 01 01 4 /PCIF/GM/PCC06.HLP:::4:5 94203-17009 5000 01 01 3 /PCIF/GM/PCC10.FRM:::3:8 94203-17010 5000 01 01 4 /PCIF/GM/PCC10.HLP:::4:5 94203-17999 6000 01 01 4 /PCIF/GM/A94203.SNF:::4:11 94203-18007 5000 01 01 4 /PCIF/GM/GMUP.PAS:::4:26694203-18008 5000 01 01 4 /PCIF/GM/GMDN.PAS:::4:32094203-18010 5000 01 01 4 /PCIF/GM/GMLBC.FTN:::4:5294203-18011 5000 01 01 4 /PCIF/GM/GMUP0.PAS:::4:3594203-18012 5000 01 01 4 /PCIF/GM/GMDN0.PAS:::4:5094203-18016 5000 01 01 4 /PCIF/GM/[PCHGC:::4:294203-18017 5000 01 01 4 /PCIF/GM/[PCPGC:::4:3* * END MATERIAL LIST * :4:26694203-18008 5000 01 01 4 /PCIF/GM/GMDN.PAS:::4:32094203-18010 5000 /PCIF/GM/GMLBC.LIB:::5:44:127 644 0 0 26000 5303173435 34147 /PCIF_GM/GM/GMLBC.LIB:::5:44:127  $, `L,GMLBC LIB + + + ,O0FST * --XTGMLIB 94203-12001 REV.5000 <870316.1125>- >GMLIB  kIp@YGx..XW[ UGM_ERROR94203-1X010 REV.5000 <870316.1605>. *GM_ERROR  .CPM.EXIT0.CCQB SGM_ERRORx``ERR = 00 No Error &MODBUS ERROR Illegal Function (01) *MODBUS ERROR Illegal Da```ta Address (02) 0MODBUS ERROR Illegal Data Value (03) 2MODBUS ERROR Failure In Associated Device (04) `` MODBUS ERROR Acknowledge (05) ,MODBUS ERROR Busy, Rejected Message (06) 22' ``MODBUS ERROR Nak, Negative Acknowledgement (07) 8MODBUS ERROR Invalid Command (Poll 14 "01" response) 8MODBUS ERROR Invalid Addr> ``ess (Poll 14 "02" response) MODBUS ERROR Invalid Parameter (Poll 14 "08" response) :MODBUS ERROR Controller Run``ning (Poll 14 "09" response) 6MODBUS ERROR Not Logged In (Poll 14 "10" response) MODBUS ERROR Illegal Configuration (Poll 14 "13" response) 8MODBvY```US ERROR Illegal Message (Poll 14 "14" response) BMODBUS ERROR Illegal Sequence Of Insert (Poll 14 "15" response) 6MODBUS ERROR Parity or Framin5``g Error (01) 6MODBUS ERROR Controller Overrun Error (02) 6MODBUS ERROR Incorrect Checksum Error (03) L `` 6MODBUS ERROR Incorrect Address Range (04) 6MODBUS ERROR Incorrect Address Boundary (05) 6MODBUS<`` ERROR Illegal Command (06) (( 6MODBUS ERROR Invalid Data (0A) 6MODBUS ERROR Memory protect on l^``(0B) 6MODBUS ERROR System not stopped (0C) 6MODBUS ERROR Incorrect Length J470 Error (0D) @`` 6MODBUS ERROR Memory Full (11) 6MODBUS ERROR Illegal function 6MODBUS E>``RROR Failure in associated device 6MODBUS ERROR MESSAGE ACK (issue a POLL) 6MODBUS ERROR BUSY (re-issue comma~Q``nd) 6MODBUS ERROR Normal response to POLL or ABORT 6MODBUS ERROR PACKET ACK (issue next packet) ``` 6MODBUS ERROR Message size is too large for the PC 6MODBUS ERROR Message BUSY (reset link req.) 6MODBUS ERR``OR Message sequence err (reset link req.) 6MODBUS ERROR Sequencing err (re-issue PCIF call) 6MODBUS ERROR Response is greater thg ``an PC's max. len 6MODBUS ERROR Another user already logged on 6MODBUS ERROR Invalid passcode `` 6MODBUS ERROR The requested search failed 6MODBUS ERROR PC must be stopped for this request 6MODBUS ERROR.`` Memory is write protected 6MODBUS ERROR PC is already started 6MODBUS ERROR PC is already stopped @`` 6MODBUS ERROR Current state does not allow PC starts 6MODBUS ERROR Logout issued without an initial login L`` 6MODBUS ERROR PC is crashed 6MODBUS ERROR Requested coil is already used 6MODBUS ERROR > `` Requested latch is already used 6MODBUS ERROR Non-contiguous network no. input 6MODBUS ERROR User logic full, can't insJ ```ert network 6MODBUS ERROR User logic full, can't replace network 6MODBUS ERROR Network skipped by logic solver H `` 6MODBUS ERROR Improper string format 6MODBUS ERROR Data may not be read or written to 6MODBUS ERROR 6d ``Incorrect passcode table boundary 6MODBUS ERROR Improper scan interval, request denied 6MODBUS ERROR Unimplemented feature kQ `` 6MODBUS ERROR Excess user logic 6MODBUS ERROR Unknown network opcode (check options)  `` &Undecipherable Message , ERR Code = ABCDEFGHIJKLMNOefghijklmno%&'()*3u @+,-./0123456789:;== `H x @p ppp`pA  T(J`p`@ P(,(Ip`p `@ h p`)(x@@88 (0`p@pC==*`)@(`(p`p ` @ h H 88 (R`(h`p`@ h-(l`@ h  S((h Rp`d@h Qp}}44 `d@p` @p`@ hH H0H`@ h0Hp`(`@ h0Hp`@ `*(` p`p `@ h 88 (}`  Q dD @Sr..XUY IT_QUITS94203-1X010 REV.5000 <870316.1605>. 4IT_QUITS *EXEC.EXIT0.CCQB PCIF_CLOSEPC_UNLOCK SIT_QUITS))  `H x+ 0+@@)  @h11XVT DREPORT_FMP_ERR94203-1X010 REV.5000 <870316.1605>1AŽ!FORMAT_BUFFER5$REPORT_FMP_ERR!!,^!EIO. .IIO. .DTA. .EXIT0!EXIT .CCQB !w SREPORT_FMP_ERR8$  `H x ))Y (2/,"&dB FMP error during file operation : ",I4,/) ))) ,h  %;0 @ `(?(BP )@,K22XS[REPORT_PCIF_GM_E94203-1X010 REV.5000 <870316.1605>2A  !FORMAT_BUFFERgREPORT_PCIF_GM_E22 !EIO. .IIO. .DTA. .CPM .EXIT0!EXIT .CCQB GM_ERRORPCIF_ERROR2 SREPORT_PCIF_GM_E..yc S`H x A(()"()0( (/@" .ݰ (///,"&dB",67A2,/) d/h P % R$aD`@p ` $7 ` @p p` (OpK88(D%O p ` (V(Y    @t~444~~3GMLIB GM_ERROR^IT_QUITS#$REPORT_FMP_ERR$RREPORT_PCIF_GM_E&R ~/PCIF/GM/GMUP.REL:::5:160:128 644 0 0 120000 5303173436 35266 /PCIF_GM/GM/GMUP.REL:::5:160:128  $ `xGMUP REL + + + OW^FST ??XHE *PAS.GLOBALINFO94203-16007 REV.5000 <870518.1 870518.1508/PCIF/GM/GMUP.MAC ?GMUP0 GMUP0 870316.1109 1 1@oF>>XM 9E *FINISH_UP 94203-16007 REV.5000 <870518.1 870518.1508 /PCIF/GM/GMUP.MAC >y,FINISH_UP FF .EXIT0 .SDSP EXECFMPCLOSEGMUP0.1 GMUP0.2 GMUP0.3 PAS.CDS PAS.CLOSEFILE PCIF_CLOSEPC_UNLOCK F^^9-SFINISH_UP cP p ` ("  0 @ '`H p p (^  @@@XFE *PAS.ERRORCATCHER94203-16007 REV.5000 <870518.1 870518.1508/PCIF/GM/GMUP.MAC @9*PAS.ERRORCATCHERTT m .EXIT0.LDX .MW00 .SDSP EXECFINISH_UP GMUP0.1 GMUP0.2 GMUP0.3 PAS.CDS PAS.ERRORPRINTER PAS.RANGEINTEGERPC_UNLOCK TwwF<S CATCH_PASCAL_ERROR`X(P()`pX@ W0 W w`H ppp` Ah HH p( w:K@C aAAX6ZE +HALT_PCIF_ERROR 94203-16007 REV.5000 <870518.1 870518.1508 /PCIF/GM/GMUP.MAC AIMHALT_PCIF_ERROR YY >.EXIT0 .LBT .SDSP FINISH_UP GMUP0.1 GMUP0.2 GMUP0.3 GM_ERRORPAS.CDS PAS.RANGEINTEGER PAS.WRITECHAR PAS.WRITELINE PCIF_ERRORYIN@SHALT_PCIF_ER ROR `A@ (@  ( 0  ` (?p6p `@@6` H@H p7c78 86((cc @ PݖN `H@ p p (  MP8 ((@1AAX$E +PRINT_FMP_ERROR 94203-16007 REV.5000 <870518.1 870518.1508 /PCIF/GM/GMUP.MAC AQPRINT_FMP_ERROR ``A.EXIT0.LBT.LDX .MW20 .SBT .SDSP CNUMD GMUP0.1 GMUP0.2 GMUP0.3 PAS.BLANKFILL PAS.CDS PAS.RANGEINTEGERPAS.WRITECHAR PAS.WRITELINE `C=SPRINT_FMP_ER ROR P`p7`)p `@@6` @H` H 8 87(` (5` @@6H `- ` p ` (e 0 `p7p `@ BBC"@6` @HK hH6p8` @ @H`8H 8 87(AB^^e0*`p7p `@@6`  H@Hp8c88 87(i ce`H ` hAH  p ( ^(PPS_bP Fmp error occurred in file @ޠ`??X֭!E ,HALT_FMP_ERROR94203-16007 REV.5000 <870518.1 870518.1508/PCIF/GM/GMUP.MAC ?$HALT_FMP_ERROR66".EXIT0.SDSP FINISH_UP GMUP0.1 GMUP0.2 GMUP0.3 PAS.CDS PRINT_FMP_ERROR 699!SHALT_FMP_ERROR  0  &`Hp p ( 9@8?==X)E ,RESTART 94203-16007 REV.5000 <870518.1 870518.1508 /PCIF/GM/GMUP.MAC = RESTART  55r.EXIT0.SDSP GMUP0.1 GMUP0.2 GMUP0.3 HALT_PCIF_ERROR PAS.CDS PC_START5KKʊ)%SRESTART p (0 TV ` (   '`Hp (K@-K>>XbDE -#FIND_INTEGER94203-16007 REV.5000 <870518.1 870518.1508/PCIF/GM/GMUP.MAC >XFIND_INTEGER5 TTA.DAD .DDE.DLD .DMP .DNG.DST .EXIT0 .LBT.LDX.MW20 .SDSP GMUP0.1 GMUP0.2 GMUP0.3 PAS.CDS PAS.RANGEINTEGERTaB>SFIND_INTEGERp p `YA@E ('h6`Y@H P (# ('`YpY ( h6`Y@H P-(5(:p `Y pYp @ ` __B1+(`OA@Y (h6`Y@H p p p` p `@'@6`  @H P (s(u_s@< p`(` A@ (``(h  @@@ D p (p ` P*(` Pa(` PA(` P/( (h6`Y  J@H PEdd,1/ (h6`Y  J@H Pe ((p (`YpY(@` (@D @`  -`H@`h `p ( dP  Z'0123456789@j*??XDE .%FIND_NUMBER 94203-16007 REV.5000 <870518.1 870518.1508 /PCIF/GM/GMUP.MAC ?"9FIND_NUMBER II 0.DCO.DLD.EXIT0 .SDSP FIND_INTEGERGMUP0.1 GMUP0.2 GMUP0.3 PAS.CDS PAS.RANGEDOUBLE PAS.RANGEINTEGERIuuD>SFIND_NUMBER 0 p ` (5`(5p  (!(2 (((((2@ (4p (7@p ` '`H@  `p ( uw@&>>X?dE /(GET_INPUT 94203-16007 REV.5000 <870518.1 870518.1508 /PCIF/GM/GMUP.MAC >kSGET_INPUT oo+.EXIT0.LBT.LDX.MW00 .SDSP GMUP0.1 GMUP0.2 GMUP0.3 PAS.CDS PAS.ENDOFFILE PAS.PROMPT PAS.RANGEINTEGER PAS.READLINEPAS.READSTRINGPAS.RESET_FILEPAS.WRITECHAR oAAH<SGET_INPUT p ` (R` (,p!p `@ @6` @Hp"c"8 8!(c(Bp (QZ;;HpYp ( @;`@H `hH AHp (;Z(P@Qo@@XߠE /-GET_IN_STRING 94203-16007 REV.5000 <870518.1 870518.1508 /PCIF/GM/GMUP.MAC @ GET_IN_STRING Dbb{z.EXIT0.LBT.LDX.MB00 .MW20 .SBT .SDSP GMUP0.1 GMUP0.2 GMUP0.3 PAS.BLANKFILL PAS.BOUNDINTEGERPAS.CDS PAS.COMPAREBYTESPAS.RANGEINTEGERbXCASGET_IN_STRING h6A` 6@p `PA@Y(2` (2h6`YJ@HP (.p (1`YpY(p p `PA@Y(` (h6SS8 C*$`YJ@HP (O(Rp (`PA@ (` p h 6`Y@Hp S6VmL>`   (v(` @  p (h6`  @H`   `YpY` p (6& (`@(@6`6 ((' P`@P@666SA`6 ((( @py`H@ `h  ( 6!!PP$az&) (Z&! BE/E/e @ ==X5M3E 0.GET_PC_NUM94203-16007 REV.5000 <870518.1 870518.1508/PCIF/GM/GMUP.MAC =*GET_PC_NUMEE .EXIT0 .SDSP FIND_NUMBER FINISH_UP GET_INPUT GMUP0.1 GMUP0.2 GMUP0.3 PAS.CDS PAS.RANGEINTEGEREXX3+SGET_PC_NUM0p `(@(%` (% ` 0 ( $`H (X "C @,gK'==X| E 14GET_YES 94203-16007 REV.5000 <870518.1 870518.1508 /PCIF/GM/GMUP.MAC = JGET_YES w  bb .EXIT0.LDX .MB00 .MW00 .MW20 .SDSP FINISH_UP GET_INPUT GET_IN_STRING GMUP0.1 GMUP0.2 GMUP0.3 PAS.BLANKFILL PAS.CDS PAS.COMPAREBYTESbCNBSGET_YES `@ @6` 6 0 af`@f@6`@ 6 (A(*`@@6`@ 6 (A(D(Dp (cf`@f@@KON#@6`@ 6 (q(Z`@@6`@ 6 (q(t(t@jjZq71p (`(}PW(@  h 6`A@ 6 ((` @ `@H ` h  `hH  p `p (j PYN P(a?YESNO/E/e@Փ@@XCE 15GET_FILE_NAME 94203-16007 REV.5000 <870518.1 870518.1508 /PCIF/GM/GMUP.MAC @:GET_FILE_NAME OO k .EXIT0.LDX .MB00 .SDSP FINISH_UP GET_INPUT GET_IN_STRING GMUP0.1 GMUP0.2 GMUP0.3 PAS.CDS PAS.COMPAREBYTESOpp5sC9SGET_FILE_NAME h6A`6K  0`(PWh6`6 ()(.(.@(h6A`6 ((9 $`H ( pv P((@(GJ@@X E 2;GET_HEADER_RECOR94203-16007 REV.5000 <870518.1 870518.1508/PCIF/GM/GMUP.MAC @AGET_HEADER_RECOR[ffD.EXIT0 .LBT.LDX .MB00 .MW20 .SBT .SDSP FINISH_UP GET_INPUT GMUP0.1 GMUP0.2 GMUP0.3 PAS.BLANKFILL PAS.CDS PAS.COMPAREBYTESPAS.RANGEINTEGERf~~B@S GET_HEADER_RECORD h6` 6AJ `PA@Y(-h 6`Y@H P ()(-`Y pY(`PA@Y(d`YhPAH(> (dx p h 6~EBL>` K@H h6p `Y@ @H`  8 (b8 (@$&`@&@6`6A ((y%N`@N@6`6 (( ( UU0(@Wh 6`6 (((0Ph 6`6A ( (w`H ` h AH ( U PP (Z$ B0/E/e @??XE 3<GET_START_FLAG94203-16007 REV.5000 <870518.1 870518.1508/PCIF/GM/GMUP.MAC ?GET_START_FLAG55_.EXIT0.SDSP GET_YES GMUP0.1 GMUP0.2 GMUP0.3 PAS.CDS PAS.RANGEINTEGER555SGET_START_FLAG < $`H( 5 % @>>X8{=E 3?PRINT_MSG 94203-16007 REV.5000 <870518.1 870518.1508 /PCIF/GM/GMUP.MAC >e,PRINT_MSG NN ;.EXIT0.LBT.LDX.MW00 .SDSP GMUP0.1 GMUP0.2 GMUP0.3 PAS.CDS PAS.RANGEINTEGER PAS.WRITECHAR PAS.WRITELINE Npp)=7SPRINT_MSG ` ('pHp `@ @6` ((H@HpIcI8 8H( cb`H `hH p (p 0x< @|ܛ@@X%,E 4GPRINT_ERR_WMSG_N94203-16007 REV.5000 <870518.1 870518.1508/PCIF/GM/GMUP.MAC @r2PRINT_ERR_WMSG_NSPPH .EXIT0 .LBT.LDX.MPY .MW00 .SBT .SDSP CNUMD GMUP0.1 GMUP0.2 GMUP0.3 PAS.CDS PAS.RANGEINTEGERPRINT_MSG P7I?S PRINT_ERR_WMSG_NUM`p}p`A@@6`@H h HA6p~`@HH`~ 88}(`(Q` @A@6` @Hoo$gI91`- `p`p`(P`p}p` @@6` @HK  h HA6p~`@@ @H`~ 88}(]o0%D<`((`(p}p` @@6` K@H h HA6p~`@@@H`~ 88}(@@A `H@ pp%%p p` Ah HH p p( % (xPP @9@@X}ME 5IGET_FRAGMENT_PAR94203-16007 REV.5000 <870518.1 870518.1508/PCIF/GM/GMUP.MAC @B@GET_FRAGMENT_PAR22O.DIV.EXIT0.SDSP GMUP0.1 GMUP0.2 GMUP0.3 PAS.CDS PAS.SINGLEMOD 2nB@S GET_FRAGMENT_PARMS`A@(`@@ ` `@@ (?`@@ ` @ @@ (:(?` @@ *`B H pp(   @_~>>XTE 5LGET_MEM_BUFF94203-16007 REV.5000 <870518.1 870518.1508/PCIF/GM/GMUP.MAC >{GET_MEM_BUFFDnn{ .DAD .DDI.DIV.DST.EXIT0.LBT.LDX.MPY.MW00 .SBT.SDSP GET_FRAGMENT_PAR GMUP0.1 GMUP0.2 GMUP0.3 HALT_PCIF_ERROR PAS.CDS PAS.RANGEINTEGERPC_READPnJBSGET_MEM_BUFFp` O  (%pp`0@@ 88(` O @(pp  T V `(Ip ` OSSJ,&(vpp@ O@0@h 6Hxh 6p`0@H0Hh88(QS vI=h O @  @88 (7 T V `(p` (Āpp@ O@0 @h 6Hxh 6p`0 @H0 88"lh88 (3`H p`h H p( 8U%/8 @c@@XE 6OGET_DATA_BUFF 94203-16007 REV.5000 <870518.1 870518.1508 /PCIF/GM/GMUP.MAC @hGET_DATA_BUFF Dnn{ .DAD .DDI.DIV.DST.EXIT0.LBT.LDX.MPY.MW00 .SBT.SDSP GET_FRAGMENT_PAR GMUP0.1 GMUP0.2 GMUP0.3 HALT_PCIF_ERROR PAS.CDS PAS.RANGEINTEGERPC_READDn~~JBSGET_DATA_BUFF p` O A (&pp`0@@ 88(` O @(pp T V  `(Jp~VV_J-'` O(wppJ@ O@0@h 6Hxh 6p`0K@H0h88(RV wI=h O @  @88 (8 T V `(p` (ŀpp@ O@0 @h 6Hxh 6p`0 @H0 88"oh88 (3`H p`h H p( 8NXa @ @@XՅ:E 7QGET_LOGIC_BUFFER94203-16007 REV.5000 <870518.1 870518.1508/PCIF/GM/GMUP.MAC @#$'GET_LOGIC_BUFFERBB .DIV .EXIT0.LDX .MW00 .SDSP GMUP0.1 GMUP0.2 GMUP0.3 HALT_PCIF_ERROR PAS.CDS PC_READPBee:6SGET_LOGIC_BUFFERp ` p P TV ` (&@@  .`H@ p`h HAH p( e  @ψH@@X"E 8YWRITE_584_CFG_TA94203-16007 REV.5000 <870518.1 870518.1508/PCIF/GM/GMUP.MAC @!WRITE_584_CFG_TA]`` .DAD.DIV.DST .EXIT0 .LBT.LDX .MW00 .SDSP FMPWRITEGMUP0.1 GMUP0.2 GMUP0.3 HALT_FMP_ERRORPAS.CDS PAS.DOUBLEMOD PAS.RANGEINTEGER`JDS WRITE_584_CFG_TABLE `p`0p`p` (gpp` @p`p`H`@` @h6H h@ 66%J`  @@h6H h@  @@  88( 6gI=`p`pp` @@6` @HH h   88(m` p` (P `p`  p` (P  @  @ 11B `H pp`h H p( 1!! =!@@@XxE 8`WRITE_484_CFG 94203-16007 REV.5000 <870518.1 870518.1508 /PCIF/GM/GMUP.MAC @rWRITE_484_CFG SS .DAD.DST .EXIT0 .LBT .SDSP FMPWRITEGMUP0.1 GMUP0.2 GMUP0.3 HALT_FMP_ERRORPAS.CDS PAS.DOUBLEMOD PAS.RANGEINTEGERS4VFDSWRITE_484_CFG `p``p`p`ph6  h@ Hh6 h  `p `pp` @@6`@H h@ @88AAF#(/@  p ` (W0 `p @  p ` (i0 A++ "i@@ .`H@ pp( +@1@@XE 9fWRITE_884_CFG 94203-16007 REV.5000 <870518.1 870518.1508 /PCIF/GM/GMUP.MAC @rWRITE_884_CFG SS .DAD.DST .EXIT0 .LBT .SDSP FMPWRITEGMUP0.1 GMUP0.2 GMUP0.3 HALT_FMP_ERRORPAS.CDS PAS.DOUBLEMOD PAS.RANGEINTEGERSGESWRITE_884_CFG `pp`p`ph6  h@ Hh6 h  `p `pp` @@6`@H h@ @88(/==fmG"@  p ` (W0 p @   p ` (i0 =++ "i@@ .`H@ pp( +'@2iQ)@@X uE :oWRITE_DATA_SECTI94203-16007 REV.5000 <870518.1 870518.1508/PCIF/GM/GMUP.MAC @Z WRITE_DATA_SECTIjj .DAD.DLD.DST .EXIT0 .LBT.SDSP FMPWRITEGET_DATA_BUFF GET_FRAGMENT_PAR GMUP0.1 GMUP0.2 GMUP0.3 HALT_FMP_ERRORPAS.CDS PAS.DOUBLEMOD PAS.RANGEINTEGERjGAS WRITE_DATA_SECTION@@` MPt(pP`p`p@(p"p@ `p`p`p#p` @@6`@H@ ::5Gh @@  88#(:p p `(b ``pp#p:fD:h 6`@HH h   88#(f`pp   p `(` @  `@Hp88"(+@ `p`p`p`BB#p"p` @@6` @H h@  @ 88"(p p B~~wJ@`(``(p"ph 6` H@H h    88"(p   p `(` @  @ <`@H p~p p( V%07 < @@@X E ;zWRITE_DX_FN_NUMS94203-16007 REV.5000 <870518.1 870518.1508/PCIF/GM/GMUP.MAC @VFWRITE_DX_FN_NUMS>ll .DAD.DST .EXIT0 .LBT .SDSP FMPWRITEGMUP0.1 GMUP0.2 GMUP0.3 HALT_FMP_ERRORHALT_PCIF_ERROR PAS.CDS PAS.DOUBLEMOD PAS.RANGEINTEGERPAS.SINGLEMOD PC_READPl)F>SWRITE_DX_FN_ NUMS(pp @`* p`H0Hp`p`0p`@pP TV` (E@ `KKʄF#!p`((p`p`p`pp` @@6`@H h@  @ 88(QKiKA`p `(y0`pp`   @h6HH h ` @ @h6HH h    88(}`p`MM}($p `(088( @  @ 7`@H  ppp( M WTXdku@oD??X` mE WRITE_CHECKSUM94203-16007 REV.5000 <870518.1 870518.1508/PCIF/GM/GMUP.MAC ?bWRITE_CHECKSUMaaJ .DAD.DLD.DST .EXIT0 .LBT .SDSP FMPWRITEGMUP0.1 GMUP0.2 GMUP0.3 HALT_FMP_ERRORPAS.CDS PAS.DOUBLEMOD PAS.RANGEDOUBLE PAS.RANGEINTEGERaͤG?SWRITE_CHECKSUM`pp`p`p `pp `@@6` @HH h  8 8(P  p `  (>@ W`p @GG,WG&   x P  p `  (a@ W@ ,`@H p( G @[9y>>XLPE WRITE_HEADER94203-16007 REV.5000 <870518.1 870518.1508/PCIF/GM/GMUP.MAC >y;WRITE_HEADERnn‡ .DAD.DST .EXIT0 .LBT.LDX.MW00 .SBT.SDSP CNUMD FMPWRITE GMUP0.1 GMUP0.2 GMUP0.3 HALT_FMP_ERRORPAS.CDS PAS.DOUBLEMOD PAS.RANGEINTEGERPAS.TIMESTRINGnlJ<SWRITE_HEADER `p`P`pPp h6`  @HK  h6pQ`  @HH`Q8 8P(`pPp h6`  K@H  qqJ:2h6pQ`(@  @H`Q8 8P(<`pPp ` @@6`   @H   h6pQ`B@   @HH`Q8 8P(aqE9`pPp ` @@6`   K@H   h6pQ`H@   @H`Q8 8P(`pPp h6`  @H  h6pQ`b@  [[+)@H`Q8 8P(`p`pp`p`pPp ` @@6`  @H h@  @ 8 8P([nL@p p`(@`("pPp h6`  @HH h   8 8P( p  p`(2@ @@  j`H&&I@@ ppp` h H(AH( &00ۤ(P   #0@1PAAXݭNE WRITE_484_LOGIC 94203-16007 REV.5000 <870518.1 870518.1508 /PCIF/GM/GMUP.MAC A?WRITE_484_LOGIC gg .DAD.DST .EXIT0 .LBT .SDSP FMPWRITEGET_FRAGMENT_PARGET_LOGIC_BUFFERGMUP0.1 GMUP0.2 GMUP0.3 HALT_FMP_ERRORPAS.CDS PAS.DOUBLEMOD PAS.RANGEINTEGERggB>SWRITE_484_LOGIC  `p`p `H0 Hp`@p@`p`p`P(0p (2p p` (0`p` pEE*B$ `p p` @@6`H@H h    88 (F`p EgfB:`(nP`pp ph6`H@H h    88 (r`p p` @P((p p88 (`p `p DD%!`(P @  `@p`p@A@(p (4`(>D}}SD<0`p`p` p`p p` @@6` @H h@  @ 88 (`p `(P`($p ph6`}DD%@H h@  @ 88 (`p`p `(6PD00d6 @@  :`H@ ppp( 0""#("@4SAAX7E WRITE_884_LOGIC 94203-16007 REV.5000 <870518.1 870518.1508 /PCIF/GM/GMUP.MAC A WRITE_884_LOGIC Kaa .DAD.DST .EXIT0 .LBT .SBT .SDSP FMPWRITEGET_LOGIC_BUFFERGMUP0.1 GMUP0.2 GMUP0.3 HALT_FMP_ERRORPAS.CDS PAS.DOUBLEMOD PAS.RANGEINTEGERa3A?SWRITE_884_LOGIC  p` p`H0Hp`p`p`(pp0h H6  p ` p`p` p`pp` @@6`SSA,&@H h@  @ 88(<Pp `(d@` @@(p`pSmK=h 6`@HH h   h 6`@H h 6p`@@H`H 88(m P p `(@ @44 `p88(& 6`H ppp( 4KRS Y@j*@@XE READ_584_CFG_TAB94203-16007 REV.5000 <870518.1 870518.1508/PCIF/GM/GMUP.MAC @SREAD_584_CFG_TAB?? .DIV.DST.EXIT0 .SDSP GET_MEM_BUFFGMUP0.1 GMUP0.2 GMUP0.3 PAS.CDS PAS.RANGEINTEGER?~~V#HDS READ_584_CFG_TABLESADD_LOAD_ENTRY`@ h HH``@ h HH ` *` H  ppp ~HHʎH (  `p`H0Hp`0p`0p@`pp HhF:` @p`p` H` @@8 8(h` : ` :  ` `@ p: ` `@p: `77}?p`p ` :  8 8(@/`@H  p(I7r 0A@MKl >>XfoE READ_484_CFG94203-16007 REV.5000 <870518.1 870518.1508/PCIF/GM/GMUP.MAC >dREAD_484_CFG99 ~.DST.EXIT0 .SDSP GMUP0.1 GMUP0.2 GMUP0.3 HALT_PCIF_ERROR PAS.CDS PC_READP9~~B>SREAD_484_CFGp `p`H0Hp``pp @TV `(.0``P(6(9` (A` ~vvBB--P(OP(OP(TP(YP(^P (^(c` `~ (c` ` (c` `| (c` ` (c.`H p( v@U>>XfFE READ_884_CFG94203-16007 REV.5000 <870518.1 870518.1508/PCIF/GM/GMUP.MAC >;READ_884_CFG== H+.DST.EXIT0 .LBT .SDSP GMUP0.1 GMUP0.2 GMUP0.3 HALT_PCIF_ERROR PAS.CDS PC_READP=zC?SREAD_884_CFGp `cp`p p@TV`('0` @@H6  ```@ ` `@ @` 0`H@ Cp( @==X53E STOP_GM_PC94203-16007 REV.5000 <870518.1 870518.1508/PCIF/GM/GMUP.MAC = (STOP_GM_PC55p.EXIT0.SDSP GMUP0.1 GMUP0.2 GMUP0.3 HALT_PCIF_ERROR PAS.CDS PC_STOP 5aar3-SSTOP_GM_PCp 0 TV ` P((0 TV ` ('` P+('   %`Hp (a@|p0@@X-JE SETUP_USER_INPUT94203-16007 REV.5000 <870518.1 870518.1508/PCIF/GM/GMUP.MAC @y%;SETUP_USER_INPUTxx.DST.EXIT0.LBT.LDX.MW00 .SDSP FMPOPEN GET_FILE_NAME GET_HEADER_RECOR GET_PC_NUMGET_START_FLAGGET_YES GMUP0.1 GMUP0.2 GMUP0.3 HALT_PCIF_ERROR PAS.BLANKFILL PAS.CDS x==nGPAS.COMPAREBYTESPAS.RANGEINTEGER PC_CONNECT PC_LOCK PRINT_ERR_WMSG_N PRINT_FMP_ERROR STRDSC=QES SETUP_USER_INPUTS SVALIDATE_PCNUMp  TU ` P#(#(6p)@ )(Q` (? (Q ` (M (Qp ` pW//AQ ` R` Hp (S VALIDATE_FILE_NAME/ѮjD:ph6`@6 ((x@@`p ((  p ` P((`Pp ` ((`@@6`  @HP ((>>ؒ!@ p (`#@ p;@;  (`p !>hhD93  p ` (`$@ p;@ ;  (p(` ((p( ` U`^H`hH(jh ( OOm. p  ` S(!(p` (2p(%PO))6@` s`H@ `Ah H1H()] P[$'%(@;::X*<RE INIT94203-16007 REV.5000 <870518.1 870518.1508/PCIF/GM/GMUP.MAC : u.@INIT xx7.DST .EXIT0 .LBT.LDX .MB00 .MW20 .SBT.SDSP GMUP0.1 GMUP0.2 GMUP0.3 HALT_PCIF_ERROR PAS.BLANKFILL PAS.CDS PAS.RANGEINTEGERPAS.RESET_FILEPAS.REWRITE_FILEPAS.TIMESTRINGx PAS.WRITECHAR PAS.WRITELINE PCIF_OPEN 4D<SINITpY`PA@P(`PpP`P(Spph6`@H h6p`@H`h6`@HJ P,(D(PZZ D+'h6`@H` 88 (`PhPAH(] (oxph6`@HH` 8(m8(_ZqoA=`pp(88(sh6`6 pTpU pVpW `pOpQ pR JKh6`@06 h6`@26  \\cF6(0cP ` (Ű@ ` Pc`؀pph6`  @H p@c88(\B6`pph6` @HH p@c88(Pc`怈pp`@ @6`@H p@c88(Pc`pph6HHN(& ` H@H p@c88(&P c 5`H`hAH (H@@EP 1( Z(!   N0@ ENrwc rwo @c==X&,E GET_PCTYPE94203-16007 REV.5000 <870518.1 870518.1508/PCIF/GM/GMUP.MAC =s!GET_PCTYPE55^.EXIT0.SDSP GMUP0.1 GMUP0.2 GMUP0.3 HALT_PCIF_ERROR PAS.CDS PC_IDENT5QQؾ,(SGET_PCTYPE` p p 0 TV ` (   ( `@1`@Hp (Q@ѐ;;XE UP_48494203-16007 REV.5000 <870518.1 870518.1508/PCIF/GM/GMUP.MAC ; FUP_484s C .EXIT0.LDX.MW20 .SDSP GMUP0.1 GMUP0.2 GMUP0.3 PAS.BLANKFILL PAS.CDS PAS.WRITELINE PAS.WRITESTRING PRINT_MSG READ_484_CFGWRITE_484_CFG WRITE_484_LOGIC WRITE_CHECKSUMWRITE_DATA_SECTI WRITE_HEADER UP:SUP_484  c% cP N # K //0 N  N K //@ N  K @/--A{P/p N K //-YYk6*p N  K //` K ,// l`HA`h H(Y=(xP % [ Begin 484 PC upload @Nlm,;;XE UP_58494203-16007 REV.5000 <870518.1 870518.1508/PCIF/GM/GMUP.MAC ; GUP_584E .DST.EXIT0.LDX.MPY.MW20 .SDSP GMUP0.1 GMUP0.2 GMUP0.3 PAS.BLANKFILL PAS.CDS PAS.RANGEINTEGERPAS.WRITELINE PAS.WRITESTRING PRINT_MSG READ_584_CFG_TAB WRITE_584_CFG_TAWRITE_CHECKSUM WRITE_DATA_SECTIWRITE_DX_FN_NUMSWRITE_HEADER"J6SUP_584P c"@ cP N Q ` N # K ,, N Q K ,,`p `p`0WWJ60 @(`0 @ @ `0 @ p  N KWIuO=`0 A@p   ,,88 (F N  K ,,p  K ,,@,i`H@`h(##H(x   ϥ"#! Begin 584 PC upload.  @;;XE UP_88494203-16007 REV.5000 <870518.1 870518.1508/PCIF/GM/GMUP.MAC ; JUP_8842 K .EXIT0.LDX.MW20 .SDSP GMUP0.1 GMUP0.2 GMUP0.3 PAS.BLANKFILL PAS.CDS PAS.WRITELINE PAS.WRITESTRING PRINT_MSG READ_884_CFGWRITE_884_CFG WRITE_884_LOGIC WRITE_CHECKSUMWRITE_DATA_SECTI WRITE_HEADER P:SUP_884  c' cP N # K 110 N  N  K 11@ N K @00}P11p N K 1107zmR:p N K 11p N  K h11p N K |11p N K 1##ū1` K ,11#!!Δ@ n`@H`h(!'' t(xANQ_ ''$ Begin 884 PC upload @$::X3l}E GMUP94203-16007 REV.5000 <870518.1 870518.1508/PCIF/GM/GMUP.MAC :RGMUPPAS.2 rPAS.STOP||zd.SDSP EXEC FINISH_UP GETST GET_PCTYPEGMUP0.1 GMUP0.2 GMUP0.3 GMUP0.4 GMUP0.5 INITPAS.CDS PAS.INITIALIZEPAS.TRACECLOSEPAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRING RESTART |##xSETUP_USER_INPUTSTOP_GM_PCUP_484UP_584UP_884#0F2SGMUP`h x 0 0pXP`pNQR#`R(0NPNMpcPcM`MMF&c`MP(OPH(SPt(W([@([0([ ([NQpc `cMml N(s 0@ ))h  pc_type = Successfully completed upload.)@;vZ,/PCIF/GM/GMDN.REL:::5:208:128 644 0 0 150000 5303173437 35336 /PCIF_GM/GM/GMDN.REL:::5:208:128  $ aGMDN REL + + + gFST ??XEPAS.GLOBALINFO94203-16008 REV.5000 <870519.1 870519.1001/PCIF/GM/GMDN.MAC ?ɺGMDN0 GMDN0 870316.1106 1 1@DcO>>XGX9EFINISH_UP 94203-16008 REV.5000 <870519.1 870519.1001 /PCIF/GM/GMDN.MAC >y,FINISH_UP FF } .EXIT0 .SDSP EXECFMPCLOSEGMDN0.1 GMDN0.2 GMDN0.3 PAS.CDS PAS.CLOSEFILE PCIF_CLOSEPC_UNLOCK F^^y9-SFINISH_UP  S 2P p ` ("  0 @ '`H p p (^  @o/@@XAFEPAS.ERRORCATCHER94203-16008 REV.5000 <870519.1 870519.1001/PCIF/GM/GMDN.MAC @9*PAS.ERRORCATCHERTT : .EXIT0.LDX .MW00 .SDSP EXECFINISH_UP GMDN0.1 GMDN0.2 GMDN0.3 PAS.CDS PAS.ERRORPRINTER PAS.RANGEINTEGERPC_UNLOCK TwwXF<S CATCH_PASCAL_ERROR` '(P()`p '@  &0  & w`H ppp` Ah HH p( wR5K@>X\E#FIND_INTEGER94203-16008 REV.5000 <870519.1 870519.1001/PCIF/GM/GMDN.MAC >XFIND_INTEGER5 TTT;.DAD .DDE.DLD .DMP .DNG.DST .EXIT0 .LBT.LDX.MW20 .SDSP GMDN0.1 GMDN0.2 GMDN0.3 PAS.CDS PAS.RANGEINTEGERTxB>SFIND_INTEGERp p ` (A@E ('h6` (@H P (# ('` (p ( ( h6` (@H P-(5(:p ` ( p (p @ ` __B1+(`OA@ ( (h6` (@H p p p Q` p `@'@6`  @H P (s(u_Ps@< p Q` Q(` A@ (`` Q(h  @@@ D p (p ` P*(` Pa(` PA(` P/( (h6` (  J@H PEdd?1/ (h6` (  J@H Pe ((p R (` (p ((@` (@D @`  -`H@`h `p ( dP   )'0123456789@6G??XDE%FIND_NUMBER 94203-16008 REV.5000 <870519.1 870519.1001 /PCIF/GM/GMDN.MAC ?"9FIND_NUMBER II .DCO.DLD.EXIT0 .SDSP FIND_INTEGERGMDN0.1 GMDN0.2 GMDN0.3 PAS.CDS PAS.RANGEDOUBLE PAS.RANGEINTEGERIuuD>SFIND_NUMBER 0 p ` (5` R(5p  (!(2 (((((2@ (4p (7@p ` '`H@  `p ( u@>>>X9dE(GET_INPUT 94203-16008 REV.5000 <870519.1 870519.1001 /PCIF/GM/GMDN.MAC >kSGET_INPUT ooc%.EXIT0.LBT.LDX.MW00 .SDSP GMDN0.1 GMDN0.2 GMDN0.3 PAS.CDS PAS.ENDOFFILE PAS.PROMPT PAS.RANGEINTEGER PAS.READLINEPAS.READSTRINGPAS.RESET_FILEPAS.WRITECHAR o^H<SGET_INPUT p ` (R` (,p!p `@ @6` @Hp" 2"8 8!( 2 S(B Sp (Q S );; 3H Sp (p ( @;`@H `hH AHp (;r( P@>]@@XE-GET_IN_STRING 94203-16008 REV.5000 <870519.1 870519.1001 /PCIF/GM/GMDN.MAC @ GET_IN_STRING DbbHt.EXIT0.LBT.LDX.MB00 .MW20 .SBT .SDSP GMDN0.1 GMDN0.2 GMDN0.3 PAS.BLANKFILL PAS.BOUNDINTEGERPAS.CDS PAS.COMPAREBYTESPAS.RANGEINTEGERbpCASGET_IN_STRING h6A` 6@p `PA@ ((2` (2h6` (J@HP (.p (1` (p ((p p `PA@ ((` (h6SSAC*$` (J@HP (O(Rp (`PA@ (` p h 6` (@Hp S?mL>`   (v(` @  p (h6`  @H`   ` (p (` p (6& (`@(@6`6 ((' P`@P@666"A`6 ((( @p Ry`H@ `h  ( 6!!dPP-4<az>A ( )&! BE/E/e @r2==X/3E.GET_PC_NUM94203-16008 REV.5000 <870519.1 870519.1001/PCIF/GM/GMDN.MAC =*GET_PC_NUMEE .EXIT0 .SDSP FIND_NUMBER FINISH_UP GET_INPUT GMDN0.1 GMDN0.2 GMDN0.3 PAS.CDS PAS.RANGEINTEGEREXX]3+SGET_PC_NUM0p ` R(@(%` (% ` 0 R ( $`H (X ;\ @y9==X E4GET_YES 94203-16008 REV.5000 <870519.1 870519.1001 /PCIF/GM/GMDN.MAC = JGET_YES w  bb .EXIT0.LDX .MB00 .MW00 .MW20 .SDSP FINISH_UP GET_INPUT GET_IN_STRING GMDN0.1 GMDN0.2 GMDN0.3 PAS.BLANKFILL PAS.CDS PAS.COMPAREBYTESbCNBSGET_YES `@ @6` 6 0 af`@f@6`@ 6 (A(*`@@6`@ 6 (A(D(Dp (cf`@f@@KON#@6`@ 6 (q(Z`@@6`@ 6 (q(t(t@jjdq71p (` R(}P &(@  h 6`A@ 6 ((` @ `@H ` h  `hH  p `p (j PYN P(a?YESNO/E/e@x@@X@CE 5GET_FILE_NAME 94203-16008 REV.5000 <870519.1 870519.1001 /PCIF/GM/GMDN.MAC @:GET_FILE_NAME OO 8 .EXIT0.LDX .MB00 .SDSP FINISH_UP GET_INPUT GET_IN_STRING GMDN0.1 GMDN0.2 GMDN0.3 PAS.CDS PAS.COMPAREBYTESOpp?C9SGET_FILE_NAME h6A`6K  0` R(P &h6`6 ()(.(.@'h6A`6 ((9 $`H ( pv P((@o/@@Xƒ-E!6GET_884_PASSCODE94203-16008 REV.5000 <870519.1 870519.1001/PCIF/GM/GMDN.MAC @$GET_884_PASSCODEEE ߇ .EXIT0.LDX .MB00 .SDSP FINISH_UP GET_INPUT GET_IN_STRING GMDN0.1 GMDN0.2 GMDN0.3 PAS.CDS ELLg-'SGET_884_PASSCODEh6`6 @ 0` R(#P  & $`H ( Ln P (@(F??XNE!7GET_START_FLAG94203-16008 REV.5000 <870519.1 870519.1001/PCIF/GM/GMDN.MAC ?GET_START_FLAG55,.EXIT0.SDSP GET_YES GMDN0.1 GMDN0.2 GMDN0.3 PAS.CDS PAS.RANGEINTEGER555SGET_START_FLAG ; $`H( 5 $ @|o/>>X2=E":PRINT_MSG 94203-16008 REV.5000 <870519.1 870519.1001 /PCIF/GM/GMDN.MAC >e,PRINT_MSG NN 5.EXIT0.LBT.LDX.MW00 .SDSP GMDN0.1 GMDN0.2 GMDN0.3 PAS.CDS PAS.RANGEINTEGER PAS.WRITECHAR PAS.WRITELINE Npp3N=7SPRINT_MSG ` ('pHp `@ @6` H@HpI 2I8 8H(  2b`H `hH p (p Fx< @Ml((@@XtE"BPRINT_ERR_WMSG_N94203-16008 REV.5000 <870519.1 870519.1001/PCIF/GM/GMDN.MAC @r2PRINT_ERR_WMSG_NSPPB .EXIT0 .LBT.LDX.MPY .MW00 .SBT .SDSP CNUMD GMDN0.1 GMDN0.2 GMDN0.3 PAS.CDS PAS.RANGEINTEGERPRINT_MSG P7I?S PRINT_ERR_WMSG_NUM`p}p`A@@6`@H h HA6p~`@HH`~ 88}(`(Q` @A@6` @Hoo$gI91`- `p`p`(P`p}p` @@6` @HK  h HA6p~`@@ @H`~ 88}(]o0%D<`((`(p}p` @@6` K@H h HA6p~`@@@H`~ 88}(@@A `H@ pp%%p p` Ah HH p p( % Q (xP @@@XME#DGET_FRAGMENT_PAR94203-16008 REV.5000 <870519.1 870519.1001/PCIF/GM/GMDN.MAC @B@GET_FRAGMENT_PAR22.DIV.EXIT0.SDSP GMDN0.1 GMDN0.2 GMDN0.3 PAS.CDS PAS.SINGLEMOD 2nB@S GET_FRAGMENT_PARMS`A@(`@@ ` `@@ (?`@@ ` @ @@ (:(?` @@ *`B H pp(   @'&E>>XNE$GGET_MEM_BUFF94203-16008 REV.5000 <870519.1 870519.1001/PCIF/GM/GMDN.MAC >{GET_MEM_BUFFDnnH .DAD .DDI.DIV.DST.EXIT0.LBT.LDX.MPY.MW00 .SBT.SDSP GET_FRAGMENT_PAR GMDN0.1 GMDN0.2 GMDN0.3 HALT_PCIF_ERROR PAS.CDS PAS.RANGEINTEGERPC_READPn4JBSGET_MEM_BUFF `   (#pp`0@@  88(`  p@(pp  # % {`(Ip ` SSJ,&(vpp@ @0@h 6Hxh 6p`0@H0Hh88(QS vI=h  @  @88 (7 # % { `(p` (Āpp@ @0 @h 6Hxh 6p`0 @H0 88"lh88 (3`H p`h H p( 83=HQ {@Srw@@XW>E$LWRITE_PC_BUFF 94203-16008 REV.5000 <870519.1 870519.1001 /PCIF/GM/GMDN.MAC @%WRITE_PC_BUFF ?? R.EXIT0.LDX .MW00 .SDSP GMDN0.1 GMDN0.2 GMDN0.3 HALT_PCIF_ERROR PAS.CDS PC_WRITED ?ttOC>:SWRITE_PC_BUFF p `@@p @  # % ` P(` ($0 @.`@H  p`Ah HH p` Ah HH ( t  @}=@@X@E%QWRITE_884_NETWOR94203-16008 REV.5000 <870519.1 870519.1001/PCIF/GM/GMDN.MAC @'''WRITE_884_NETWOR?? R.EXIT0.LDX .MW00 .SDSP GMDN0.1 GMDN0.2 GMDN0.3 HALT_PCIF_ERROR PAS.CDS PC_WRITEP ?vv@<S WRITE_884_NETWORK p `@@ p @  # % ` P(` (&0@ .`H@ p`h HAH p` h HAH ( v  @o:/??Xf?E%TWRITE_484_BUFF94203-16008 REV.5000 <870519.1 870519.1001/PCIF/GM/GMDN.MAC ?&WRITE_484_BUFFCC /.DIV .EXIT0.LDX .MW00 .SDSP GMDN0.1 GMDN0.2 GMDN0.3 HALT_PCIF_ERROR PAS.CDS PC_WRITEP Coo?;SWRITE_484_BUFFp ` Ap P  # % ` (%@   .`H p`h H p` h H ( o  @XAAX)=E&USKIP_TO_SECTION 94203-16008 REV.5000 <870519.1 870519.1001 /PCIF/GM/GMDN.MAC A[2SKIP_TO_SECTION 44s.EXIT0.SDSP FMPREAD GMDN0.1 GMDN0.2 GMDN0.3 HALT_FMP_ERRORPAS.CDS 4ss=5SSKIP_TO_SECT ION `{P (1`}p 0 { p `  (   & 0 {p `  (0   & ( '`Hp ( s  @)@@XDE&cDNLD_DATA_SECTIO94203-16008 REV.5000 <870519.1 870519.1001/PCIF/GM/GMDN.MAC @5 DNLD_DATA_SECTIOjbb.DLD.DST .EXIT0.SDSP FMPREAD GMDN0.1 GMDN0.2 GMDN0.3 HALT_FMP_ERRORPAS.CDS SKIP_TO_SECTION WRITE_484_BUFFWRITE_884_NETWORWRITE_PC_BUFF bRA9S DNLD_DATA_SECTION ` {P(@ ` {P((` }p   { p ` ()  ` |p` P(?PH(7Pt(\(p  {(`P``A)%(C(T`  p`H0HpP  {([p  {(`P(jP({P({P({P({P((`<jE;`@p` H0Hp`  {(p  {( p  {((   {p ` ( ( -`Hpp ( C\_ @"iA)==XWE'lGET_DX_FNS94203-16008 REV.5000 <870519.1 870519.1001/PCIF/GM/GMDN.MAC =p)GET_DX_FNS]]I.DST .EXIT0 .LBT.LDX .MB00 .SBT .SDSP GMDN0.1 GMDN0.2 GMDN0.3 HALT_PCIF_ERROR PAS.CDS PAS.RANGEINTEGERPAS.SINGLEMOD PC_READP] E?SGET_DX_FNS(~pph  `*p `H0 Hp`@p p P  # %{ ` (:@ @h 6 @p `p p FF"E#h 6` @ @K@H hH6p!` @H`! 8 8 (EFDDh$"` @ @6`A@6H 88(@ 9`H@ p(Dd{@O.m??XE(uGET_FDX_FNS 94203-16008 REV.5000 <870519.1 870519.1001 /PCIF/GM/GMDN.MAC ?KzGET_FDX_FNS ``G .DAD.DST .EXIT0 .LBT.LDX .MB00 .SBT.SDSP FMPREAD GMDN0.1 GMDN0.2 GMDN0.3 HALT_FMP_ERRORPAS.CDS PAS.DOUBLEMOD PAS.RANGEINTEGER`?B:SGET_FDX_FNS P{p`(@ &`p"ph6`@H hJ   J 88"(`{P(`}p P { p`GGcB$ (H@ &` (fp"ph6`@HH h    88"(PG~~ f@8 P{p` (v@ &`p"ph6`@HH h    88"(z  J (3p `{P((w`dA@ ~rrl1<2(w`}p P{ p`(@ &` ( p"ph6` @H  hH6p#` @HH`# 88"(rzD<` (p"ph6`@HH h    88"(@h6 @p `p"ph6` @@@H  hH6p#`IIb&&"@H`#H 88"( `  @@6`A@6H ` p P{pIooL93`(T@  &`p"ph6`H@H h    88"(X J ( <`Hp( o00I;ELNZ[_dah j{{0@GfAAXh E*yGET_484_CHK_SUM 94203-16008 REV.5000 <870519.1 870519.1001 /PCIF/GM/GMDN.MAC AGET_484_CHK_SUM oWW= .DAD.DLD.DST .EXIT0 .LBT .SDSP FMPREAD GMDN0.1 GMDN0.2 GMDN0.3 HALT_FMP_ERRORPAS.CDS PAS.DOUBLEMOD PAS.RANGEINTEGERWOB:SGET_484_CHK_ SUM P{p`(@ &`pp h 6` @H h JJ   8 8(`{P(`}p P{ pKKB&"`(J@  &` (hpp h 6` H@H h    8 8(RK(({{<1hA9 P{p` (x@ &`pp h 6` @HH h    8 8(|  J (5 0`H @@( {$  {{@7JV AAXl E*}GET_884_CHK_SUM 94203-16008 REV.5000 <870519.1 870519.1001 /PCIF/GM/GMDN.MAC AGET_884_CHK_SUM oWW= .DAD.DLD.DST .EXIT0 .LBT .SDSP FMPREAD GMDN0.1 GMDN0.2 GMDN0.3 HALT_FMP_ERRORPAS.CDS PAS.DOUBLEMOD PAS.RANGEINTEGERWSB:SGET_884_CHK_ SUM P{p`(@ &`pp h 6` @H h JJ   8 8(`{P (`}p P{ pKKB&"`(J@  &` (hpp h 6` H@H h    8 8(RK{{<1hA9 P{p` (x@ &`pp h 6` @HH h    8 8(|  J (5 0`H @@( {  {{@Cb@@XNE+~VALIDATE_CHECKSU94203-16008 REV.5000 <870519.1 870519.1001/PCIF/GM/GMDN.MAC @[AVALIDATE_CHECKSUYYk .DCO.DLD.DST .EXIT0 .SDSP FMPREAD GMDN0.1 GMDN0.2 GMDN0.3 HALT_FMP_ERROR PAS.BLANKFILL PAS.CDS PAS.DOUBLEMOD PRINT_MSG YdNDS VALIDATE_CHECKSUM `}p `  { p ` (P  & @ h{ @ (>(. +(@((@@ e`H@  ( 6(x@:>>X3UE,CHECK_HEADER94203-16008 REV.5000 <870519.1 870519.1001/PCIF/GM/GMDN.MAC >[LCHECK_HEADER}}< .DAD.DST .EXIT0.LBT.SBT.SDSP FMPREAD GET_YES GMDN0.1 GMDN0.2 GMDN0.3 HALT_FMP_ERRORHALT_PCIF_ERROR PAS.BLANKFILL PAS.CDS PAS.DOUBLEMOD PAS.RANGEINTEGERPC_IDENTPRINT_MSG }*F<SCHECK_HEADER   {p `(P &` }p`pp h6` 0@Hh @@ 8 8(  {p `(EP &`AAF%!(cpp h6` 0@Hh @@ 8 8(M  A~~kD8`pp h6`B@ 0 @H0  hH6p` 0 @H`H8 8(o`pp h6`b@ 0 @H0  h6p` 0 ~__'#@H`8 8(p` p p  # % &  ` (` &(` p ` P(PH(٨Pt((_E7`4p(`5p(`8p (h6HEK0 p`P(!`P4(P5(P8(( ?/0/( /0/( S/0>>oJ%/((#(K O/0/ /0/>))Ƭ@@ w0 l`H( )//P(x#! { { /@|@@X)LE-GET_484_MEMORY_S94203-16008 REV.5000 <870519.1 870519.1001/PCIF/GM/GMDN.MAC @3AGET_484_MEMORY_S%%C.EXIT0.SDSP GMDN0.1 GMDN0.2 GMDN0.3 PAS.CDS %.88S GET_484_MEMORY_SIZE h `P((` (h ` P(,P(,P(1P(6P(;P (;(@``| (@`` (@`22l8`| (@` ` (@@'`@H p ( 2@_??XE.GET_FCFG_TABLE94203-16008 REV.5000 <870519.1 870519.1001/PCIF/GM/GMDN.MAC ?GET_FCFG_TABLEOWW; .DAD.DIV.DST .EXIT0 .LBT .SDSP FMPREAD GMDN0.1 GMDN0.2 GMDN0.3 HALT_FMP_ERRORPAS.CDS PAS.DOUBLEMOD PAS.RANGEINTEGERWggo>:SGET_FCFG_TABLESAD_LD_ENTRY ` @h` @@h  *` H@ ppp (g (_ PPQ>*$ P{p ` (N@ &`pp h6` @HH h  8 8(RPPmhE;`}p P { p `(z@  &`pp `  @p`  @8 8(~` (pp h6` H@H h  FF3*"8 8(`/`/ ``V p/FDDv_!`/a`p`p `/ 8 8( *`H (>D44G ghu{|0APz{{4@` >>X ~E.GET_484_FCFG94203-16008 REV.5000 <870519.1 870519.1001/PCIF/GM/GMDN.MAC >s[uGET_484_FCFG]] .DAD.DST .EXIT0 .LBT .SDSP FMPREAD GET_484_MEMORY_SGMDN0.1 GMDN0.2 GMDN0.3 HALT_FMP_ERRORPAS.CDS PAS.DOUBLEMOD PAS.RANGEINTEGER]BF<SGET_484_FCFG P {p ` (@  &`pp h 6` @H h@  @8 8(`}p P { p ` (E@  &`{==Fp ` (epp h 6` @H h@  @8 8(O=33e @0     (`H ( 3 {{@ǰ>>X$ wE/GET_884_FCFG94203-16008 REV.5000 <870519.1 870519.1001/PCIF/GM/GMDN.MAC >w[nGET_884_FCFGSS e.DAD.DST .EXIT0 .LBT .SDSP FMPREAD GMDN0.1 GMDN0.2 GMDN0.3 HALT_FMP_ERRORPAS.CDS PAS.DOUBLEMOD PAS.RANGEINTEGERSFF<SGET_884_FCFG @ {p ` (0  &`pp h 6` @H h@ @8 8(`}p @ { p ` (E0  &`{==Fp ` (epp h 6` @H h@ @8 8(O=""de @@ (`H@ ( " {{@X4v>>X`FLE0READ_584_CFG94203-16008 REV.5000 <870519.1 870519.1001/PCIF/GM/GMDN.MAC >AREAD_584_CFG;; %.DST.EXIT0.SDSP GET_MEM_BUFFGMDN0.1 GMDN0.2 GMDN0.3 PAS.CDS PAS.RANGEINTEGER;ZB<SREAD_584_CFG  `p`H0Hp`0p`0p0`pp `@p`p` H` @8 @8((.B `H@p( @`>>X`:CE0READ_484_CFG94203-16008 REV.5000 <870519.1 870519.1001/PCIF/GM/GMDN.MAC >8READ_484_CFGCC .DST .EXIT0 .SDSP GET_484_MEMORY_SGMDN0.1 GMDN0.2 GMDN0.3 HALT_PCIF_ERROR PAS.CDS PC_READPC~~6B<SREAD_484_CFG  `p` H0Hp ``pp p P  # %  ` (.@ `p 0      +`H p ~ B( @%>>X`JHE1READ_884_CFG94203-16008 REV.5000 <870519.1 870519.1001/PCIF/GM/GMDN.MAC >=READ_884_CFGBB =.DST.EXIT0 .SDSP GMDN0.1 GMDN0.2 GMDN0.3 HALT_PCIF_ERROR PAS.CDS PAS.SINGLEMOD PC_READPBqzH@SREAD_884_CFG  `cp `pp  p @  # %   ` P(# (-@  # %   ` (5 0 p @+`@H p (  " @;5>>XF8E1RESET_884_PC94203-16008 REV.5000 <870519.1 870519.1001/PCIF/GM/GMDN.MAC >X-RESET_884_PC559.EXIT0.SDSP GMDN0.1 GMDN0.2 GMDN0.3 HALT_PCIF_ERROR PAS.CDS PC_TRANS5ii84SRESET_884_PC `p `@'h00p p p `@'p0  # %   ` (,  @(`@Hp ( i@??XE2POLL_884_PC 94203-16008 REV.5000 <870519.1 870519.1001 /PCIF/GM/GMDN.MAC ? POLL_884_PC k\\h .EXIT0 .LBT.LDX ((.MW20 .SDSP FINISH_UP GMDN0.1 GMDN0.2 GMDN0.3 HALT_PCIF_ERROR PAS.CDS PAS.WRITELINE PAS.WRITESTRING PC_TRANS\~~i11SPOLL_884_PC `p `@(h05`@(`@(@hFF`@(@h01`@(@h01`@(@h37`p ` p p `@(p~~~m1<8P  # %   `@(hH(  ` @@6H J P0(O(W`@@6H  P5(.`@(` (d0 ` @@6H J P0(m(~m `@@6H  P8(v(ssDv93`@@6H P0((`@@ J6H P0(((`@(p 2 2@   6`H `hH( p( s   Unable to clear PC memory.@g#'==X* ?E3CVT_INT 94203-16008 REV.5000 <870519.1 870519.1001 /PCIF/GM/GMDN.MAC = 7-CVT_INT  99<.EXIT0.SDSP GMDN0.1 GMDN0.2 GMDN0.3 PAS.BOUNDINTEGERPAS.CDS PAS.RANGEINTEGER9ppU?5SCVT_INT ` p (p ( ()`0@ p (+`7@ p (+`0p ` @%`@H p `p (pN qro@ׯ>>X/&E4LOGIN_884_PC94203-16008 REV.5000 <870519.1 870519.1001/PCIF/GM/GMDN.MAC >gLOGIN_884_PCxx0 .EXIT0 .LBT.LDX .MW20 .SBT.SDSP CVT_INT FINISH_UP GMDN0.1 GMDN0.2 GMDN0.3 HALT_PCIF_ERROR PAS.CDS PAS.RANGEINTEGERPAS.WRITELINE PAS.WRITESTRING PC_TRANSPOLL_884_PC xU53SLOGIN_884_PC `01`p `@*h0D`@*`@*@hFF`@*@h01`@*@h01`@*@h01`pph6`tt#D5>4@H P (h6`K@H p`H0Hp` @ @hH*6H `x, p0 ht"sD:`  @  @hH*6H`x (p0  h(` @  @hH*6HH`0` @  @hH*6H`0DD;!H88(.`p ` p p `@* pp # %   ` (P DnA9`@@6H  P0(ሠ(`@@ J6H  P5((@(`@*p  2 2`  8`H`hH* p(  ̀P  ^ Unable to clear PC memory.@tr2@@XRE4LOGOUT_884_PC 94203-16008 REV.5000 <870519.1 870519.1001 /PCIF/GM/GMDN.MAC @fvLOGOUT_884_PC dd .EXIT0 .LBT.LDX .MW20 .SDSP FINISH_UP GMDN0.1 GMDN0.2 GMDN0.3 HALT_PCIF_ERROR PAS.CDS PAS.WRITELINE PAS.WRITESTRING PC_TRANSPOLL_884_PC d22SLOGOUT_884_PC `p `@(h05`@(`@(@hFF`@(@h01`@(@h01`@(@h02`p ` p p `@(puu@2>4`  # %   ` (F@ `@@6H  P0(O(a`@@ J6H  P5(X(a0(u`@(p 2 2u//pP  6`H `hH( p( / y  Unable to clear PC memory.@&[E>>X(IE5CLEAR_884_PC94203-16008 REV.5000 <870519.1 870519.1001/PCIF/GM/GMDN.MAC >z[CLEAR_884_PC}}? .EXIT0.LBT.LDX.MW20 .SDSP FINISH_UP GMDN0.1 GMDN0.2 GMDN0.3 HALT_PCIF_ERROR LOGIN_884_PCLOGOUT_884_PC PAS.CDS PAS.WRITELINE PAS.WRITESTRING PC_TRANSPOLL_884_PC RESET_884_PC}EO73SCLEAR_884_PC `@ `p `@(h05`@(h `@(@hFF`@(@h01`@(@h01`@(@h38`p ` p p cc71+`@(p # %   ` (N p `04p `@@ J6H P0(Y(h`@@6H P5(b(hP (|cNNh+#`@(p  2 2 0   6`H`hH(p( N   Unable to clear PC memory.@Ts==X/+E6STOP_GM_PC94203-16008 REV.5000 <870519.1 870519.1001/PCIF/GM/GMDN.MAC =  STOP_GM_PC55=.EXIT0.SDSP GMDN0.1 GMDN0.2 GMDN0.3 HALT_PCIF_ERROR PAS.CDS PC_STOP 5RR'+'SSTOP_GM_PCp 0  # % ` P( ` (` P+(   %`Hp (R@Ժ??Xt&E7PRINT_584_DIFF94203-16008 REV.5000 <870519.1 870519.1001/PCIF/GM/GMDN.MAC ?ļPRINT_584_DIFF3uuzs.DIV .EXIT0.LDX.MPY .MW20 .SDSP GET_YES GMDN0.1 GMDN0.2 GMDN0.3 PAS.CDS PAS.RANGEINTEGER PAS.SINGLEMOD PAS.WRITECHAR PAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRING ulC7SPRINT_584_DIFF 20 2 27 2 2Y 2`p`p`p`#p`p`%p`((B`p (D`TTC+% p `((L`p(N`p` p ` p  2{ 2  2T~~nL2 2 2 2  2 2  2 2 2 2 2 2 2 2~66Y 2 p  p ` A@ (6JB` p   (` A%p (` A%p ` (Rpp`P( 2`pp@%@ @!p 2 8JJ^")#8(  2`ppA@%@ @"p 2 88(0J<KG3 288( 2 2V 2 2 2 2a 2 2`A@V( 2<<Q 2 2 2 pf`A @a((<YYH4( 2 2 2 2 phPc  `H `#h$AH  ( Y::GL%% DKDEHdOQ(/)0 i 0:``pc type = 584 Download File PC Downloading To ------------------------- ------------------------ Bit size Mem size pg 0 State tbyE``l pg F DX functions Number of coils Number of holding regs Too many discrete outputs in the file. The discrete outputs will not be downloaded. Too many holding 44$$registers in the file. The holding registers will not be downloaded.4 % @ue%??XrvE8PRINT_484_DIFF94203-16008 REV.5000 <870519.1 870519.1001/PCIF/GM/GMDN.MAC ?üPRINT_484_DIFF.mm.DDI.DST .EXIT0.LDX .MW20 .SDSP GET_YES GMDN0.1 GMDN0.2 GMDN0.3 PAS.CDS PAS.RANGEINTEGER PAS.WRITEDOUBLE PAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRING m$P:SPRINT_484_DIFF 2" 2 2) 2 2K 2 2m 2  2u 2  2|]] P:. 2 2` @@  2  2`  @@  2  2]P: 2 2h  @   2 h  @   2  2 ` A@ (к 2   2@c  ##A  `H `hAH ( #L D  P"``pc type = 484 Download File PC Downloading(( To ------------------------- ------------------------ Memory size WORDS(8-BIT) WORDS(8-Bit>>J,,) Number of I/O POINTS POINTS Number of holding regs File size is too large. >@??XvE9"PRINT_884_DIFF94203-16008 REV.5000 <870519.1 870519.1001/PCIF/GM/GMDN.MAC ?ǼPRINT_884_DIFF [[ =s.EXIT0.LDX.MW20 .SDSP GET_YES GMDN0.1 GMDN0.2 GMDN0.3 PAS.CDS PAS.RANGEINTEGER PAS.WRITEINTEGER PAS.WRITELINE PAS.WRITESTRING [M7SPRINT_884_DIFF 2" 2 2) 2 2K 2 2m 2  2  2``p  2wPP^yM) 2  2  2`@p  2 2  2 PvE/ 2`p  2 2  2  2`@p  2 2  2  2` p  2EER# 2  2  2` A@ ( 2 2E11$0c  `H A` h  H( 1I D ( P"``pc type = 884 Download File PC Downloading To ------------------------- ------------------------ Number of networks Number of 0XXXX pts.NuQQ6X;;mber of 2XXXX regsNumber of 4XXXX regsNumber of 5XXXX regsNumber of 9XXXX pts.Remaining user networks will be cleared.Q@YCx@@X'4E;-SETUP_USER_INPUT94203-16008 REV.5000 <870519.1 870519.1001/PCIF/GM/GMDN.MAC @yWSETUP_USER_INPUT{{.DLD.DST".EXIT0.LDX#.MW00 $.SDSP CHECK_HEADERFMPOPEN GET_484_CHK_SUM GET_484_FCFGGET_884_CHK_SUM GET_884_FCFGGET_884_PASSCODEGET_DX_FNS GET_FCFG_TABLEGET_FDX_FNS GET_FILE_NAME {zz>6GET_PC_NUMGET_START_FLAG GMDN0.1 GMDN0.2 !GMDN0.3 HALT_PCIF_ERROR %PAS.BLANKFILL PAS.CDS &PAS.COMPAREBYTES'PAS.RANGEDOUBLE PC_CONNECTPC_LOCK PRINT_484_DIFFPRINT_584_DIFFPRINT_884_DIFFz>>/PRINT_ERR_WMSG_NPRINT_FMP_ERROR READ_484_CFG READ_584_CFGREAD_884_CFGSTRDSCVALIDATE_CHECKSU><RFS SETUP_USER_INPUTS SVALIDATE_PCNUMp p   # $ ` P#(%(8P)@ )(S` (A (S ` (O (Sp ` 22N`R@p &` "R` H@$p (S VALIDATE_FILE_NAME2~~ulC9J  ph6`@6` (*(~ @@`p    p` ((&p  ` P䊊(PH(Pt((` (~>>" ` (`@p< <` (J p  x<  <>DE7` (`@p<0 <(` (  ` (`@p< <` ( (`  ( ` (`@p< <` ( JJ%! (`  (  ` (%p(* `"V``H$`hH#(lJ  ( ~~V;E3p  p ` (` U(Y(Lp ~` , ~(jp ~(]` P(wPH(rPt(|(p (` (` ~22(P ((E@P"s`H@$ `Ah H1H#(;2 P (@Ji??X1E.REWIND_FILE 94203-16008 REV.5000 <870519.1 870519.1001 /PCIF/GM/GMDN.MAC ?(REWIND_FILE ;; M.EXIT0 .SDSP FMPREAD FMPREWIND GMDN0.1 GMDN0.2 GMDN0.3 HALT_FMP_ERRORPAS.CDS ;XX1)SREWIND_FILE @ p ` (   &0 {p` ('   & %`H ( X  @y49::X%%{E=INIT94203-16008 REV.5000 <870519.1 870519.1001/PCIF/GM/GMDN.MAC : u.gINIT xxW1.DST .EXIT0 .LBT.LDX .MB00 .MW20 .SBT.SDSP GMDN0.1 GMDN0.2 GMDN0.3 HALT_PCIF_ERROR PAS.BLANKFILL PAS.CDS PAS.RANGEINTEGERPAS.RESET_FILEPAS.REWRITE_FILEPAS.TIMESTRINGx PAS.WRITECHAR PAS.WRITELINE PCIF_OPEN $D<SINITp (`PA@P(`PpP`P(Spph6`@H h6p`@H`h6`@HJ P,(D(PZZ D+'h6`@H` 88 (`PhPAH(] (oxph6`@HH` 8(m8(_Z}}Qo@<`pp(88(sh6`6 p #p $ p %p & `p p p ! J `pp` @@6`@06AH `}CCk&" @@6`@26 88(h6`@46AK    SC}}H80 2p P ` (@  ` P 2`pph 6`@H p@ 288(`pph!6`H@H p}OO^( @ 288(P 2`pp`@ @6`@H p@ 288(.O[[wE0(P 2`pph"6`H@H p@ 288(MP  2 7`H`#h$AH ([JJά%%Pefh dvw1( )~(  k  u0JJSu rso @;;Xl^E@DN_58494203-16008 REV.5000 <870519.1 870519.1001/PCIF/GM/GMDN.MAC ; EEDN_584 ii .EXIT0.LDX.MPY .MW20 .SDSP DNLD_DATA_SECTIOGMDN0.1 GMDN0.2 GMDN0.3 PAS.BLANKFILL PAS.CDS PAS.RANGEINTEGERPAS.WRITELINE PAS.WRITESTRING PRINT_MSG iqN@SDN_584 2" 2`p `p` @ (A@  `A @ p  -P-8@8 ( j`H@ ` VNh  (  (x _SS"tS Begin 584 PC download    @;;Xl PEDDN_48494203-16008 REV.5000 <870519.1 870519.1001/PCIF/GM/GMDN.MAC ; D7DN_484 ii .EXIT0.LDX.MPY .MW20 .SDSP DNLD_DATA_SECTIOGMDN0.1 GMDN0.2 GMDN0.3 PAS.BLANKFILL PAS.CDS PAS.RANGEINTEGERPAS.WRITELINE PAS.WRITESTRING PRINT_MSG ivviE9SDN_484 2" 2`p `p@ `@A @p  -P-8@8 ( j`H@ ` h  (v  (x SE"fE Begin 484 PC download    @p䏤;;XmAEIDN_88494203-16008 REV.5000 <870519.1 870519.1001/PCIF/GM/GMDN.MAC ; HDN_884 qqi .EXIT0.LDX.MPY .MW20 .SDSP CLEAR_884_PCDNLD_DATA_SECTIOGMDN0.1 GMDN0.2 GMDN0.3 PAS.BLANKFILL PAS.CDS PAS.RANGEINTEGERPAS.WRITELINE PAS.WRITESTRING PRINT_MSG qNP:SDN_884 2" 2@  W-`-` (8P  -`-`p `pP @A @ p ,,@cP -`-88 (<`p `pP ,II=e*$`@ @ p  -`-88 (` j`H ` h AH  (I (x  S" Begin 884 PC download.   @2Q::X7ByEMGMDN94203-16008 REV.5000 <870519.1 870519.1001/PCIF/GM/GMDN.MAC :KGMDNPAS.1 nPAS.STOP^.SDSP DN_484DN_584DN_884EXEC FINISH_UP GETST GMDN0.1 GMDN0.2 GMDN0.3 GMDN0.4 GMDN0.5 INITPAS.BLANKFILL PAS.CDS PAS.INITIALIZEPAS.TRACECLOSE PRINT_MSG RESTART REWIND_FILE 6SETUP_USER_INPUTSTOP_GM_PC}}8B0SGMDN`h x P 0p 'PPp   !` !(/(( `` P(:PH(>Pt(B(F0(F@(F}@@UB& (F  ` ([@@@h  (o 0`0(x@J/PCIF/GM/GMUP0.REL:::5:28:127 644 0 0 16000 5303173440 34630 /PCIF_GM/GM/GMUP0.REL:::5:28:127  $ aGMUP0 REL + + +  1FST <<XZ 0"% ]GMUP0 94203-16011 REV.5000 <870312.1 870316.1109 GM/GMUP0.MAC::PCIF<22GMUP0 GMUP0.1 GMUP0.2 GMUP0.3 GMUP0.4 GMUP0.5 26.EXIT0PAS.CLOSEFILE PAS.INITFILEGMUP0 GMUP0 870316.1109 1 0@``IN_FILE OUT_FILEEnter the PC Identifier: Do you want to overwrite it (Y or N) ? Enter the upload file name (/E to quit):Re-start PC after upload (Y or N) ? Enter upload filF```e title: File already exists with the name: Error trying to reopen file: Error in opening file: Illegal pc number in run string. Unknown 0``PC Identifier: Header record written to file. Configuration table written to file. Discrete output values written to file. Holding register values written to file.u ``Available DX functions written to file. LRC Checksum written to file. User logic values written to file. Input and coil values written to file. Sequencer reg. values written to`` file. Double precision regs. written to file. Latch values written to file. PCIF/1000 Upload utility GMUP 94203-16007 REV.5000 <870312.1814> (Type /E to quit)  GMUP0 GMUP0 870316.1109 1 1GGØTCONST NUMBER_UPLD_FILE_SECTIONS=11;NUMBER_BANNER_LINES=3;NUMBER_ERR_MSGS=5;NUMBER_PROMPT_MSGS=5;MAX_READ_LENGTH=1024;CFG_TABLE_SIZE=128;GNNòNUM_DX_FNS_IDX=51;READ_DX_FN=42;READ_DX_FN_BYTE_LEN=16;UPLD_FILE_DATA_REC_SIZE=144;FILE_DESCRIPT_REC_LEN=6;NUM_DCB_BUFFS=4;DCB_BUFF_SIZE=528;BAD_PC=0 NLLϙ;GOOD_PC=1;BAD_FILENAME=0;GOOD_FILENAME=1;TYPE WORD=-32768..32767;ABS_WORD=0..65535;BYTE=-128..127;ABS_BYTE=0..255;ERROR_TYPE=(RUN,EMA,IO,FMP,SEG,LLLWARN);FILE_NAME=PACKED ARRAY[1..150]OF CHAR;STRING2=PACKED ARRAY[1..2]OF CHAR;STRING3=PACKED ARRAY[1..3]OF CHAR;STRING4=PACKED ARRAY[1..4]OF CHAR;LJJáSTRING6=PACKED ARRAY[1..6]OF CHAR;STRING26=PACKED ARRAY[1..26]OF CHAR;STRING40=PACKED ARRAY[1..40]OF CHAR;STRING80=PACKED ARRAY[1..80]OF CHAR;JMMvSTRING120=PACKED ARRAY[1..120]OF CHAR;MSG_ARRAY_TYPE=ARRAY[1..11]OF STRING40;BANNER_MSG_ARRAY_TYPE=ARRAY[1..3]OF STRING40;ERR_MSG_ARRAY_TYPE=ARRAY[1MLL..5]OF STRING40;PROMPT_MSG_ARRAY_TYPE=ARRAY[1..5]OF STRING40;DCB_BUFFR=ARRAY[1..528]OF WORD;CONST PROMPT_MSG_ARRAY=PROMPT_MSG_ARRAY_TYPE[STRING40[LNNo'Enter the PC Identifier: '],STRING40['Do you want to overwrite it (Y or N) ? '],STRING40['Enter the upload file name (/E to quit):'] NLL,STRING40['Re-start PC after upload (Y or N) ? ',' '],STRING40['Enter upload file title: ']];PROMPT_PCNUM=1;PROMPT_PCNUM_LEN=25;LKKZPROMPT_OVERWRITE=2;PROMPT_OVERWRITE_LEN=39;PROMPT_UPLD_NAME=3;PROMPT_UPLD_NAME_LEN=40;PROMPT_START_PC=4;PROMPT_START_PC_LEN=37;PROMPT_HEADER=5; K>>/PROMPT_HEADER_LEN=25;ERROR_MSG_ARRAY=ERR_MSG_ARRAY_TYPE[STRING40['File already exists with the name: '],STRING40[>NNÒ'Error trying to reopen file: '],STRING40['Error in opening file: '],STRING40['Illegal pc number in run string. '] NJJә,STRING40['Unknown PC Identifier: ']];ERR_MSG_LEN=40;ERR_FILE_EXISTS=1;ERR_FILE_EXISTS_LEN=35;ERR_FILE_EXISTS_FMP_OFFSET=36; JGGÅ%ERR_REOPEN=2;ERR_REOPEN_LEN=36;ERR_REOPEN_ERR_OFFSET=8;ERR_REOPEN_FMP_OFFSET=37;ERR_OPEN=3;ERR_OPEN_ERR_OFFSET=8;ERR_OPEN_FMP_OFFSET=31;GIIERR_ILLEGAL_PCNUM_IN_RSTRING=4;ERR_ILLEGAL_PCNUM_IN_RSTRING_LEN=34;ERR_UNKNOWN_PC_ID=5;ERR_UNKNOWN_PC_ID_LEN=30;ERR_UNKNOWN_PC_ID_OFFSET=24;IMMSTATUS_MSG_ARRAY=MSG_ARRAY_TYPE[STRING40['Header record written to file. '],STRING40['Configuration table written to file. '],STRING40[ MNN'Discrete output values written to file. '],STRING40['Holding register values written to file.'],STRING40['Available DX functions written to file. '] N==A,STRING40['LRC Checksum written to file. '],STRING40['User logic values written to file. '],STRING40[=NNӑ'Input and coil values written to file. '],STRING40['Sequencer reg. values written to file. '],STRING40['Double precision regs. written to file. '] NMM.`,STRING40['Latch values written to file. ']];BANNER_MSG_ARRAY=BANNER_MSG_ARRAY_TYPE[STRING40['PCIF/1000 Upload utility GMUP 94203-1600'], MHHÕSTRING40['7 REV.5000 <870312.1814> '],STRING40[' (Type /E to quit) ']];BANNER1_INDEX=1;BANNER1_LEN=40;HGG4BANNER2_INDEX=2;BANNER2_LEN=26;BANNER3_INDEX=3;BANNER3_LEN=29;TYPE NAMR_TYPE=ARRAY[1..33]OF WORD;IDENT_BUFFER_TYPE=ARRAY[1..10]OF WORD; GIICFG_BUFFER_TYPE=ARRAY[1..128]OF WORD;SECT_DATA_TYPE=RECORD START_ADDRESS:WORD;LENGTH:WORD;END;LOAD_TABLE_TYPE=ARRAY[1..11]OF SECT_DATA_TYPE;INNÞPCIF_BUFFER_TYPE=RECORD CASE INTEGER OF 1:(WD:ARRAY[1..512]OF WORD;);2:(BY:PACKED ARRAY[1..1024]OF CHAR;);3:(ABS_BY:PACKED ARRAY[1..1024]OF ABS_BYTE; NJJù<);END;PCADR_TYPE=PACKED RECORD CASE INTEGER OF 1:(HI_BYTE:BYTE;MED_HI_BYTE:BYTE;MED_LO_BYTE:BYTE;LO_BYTE:BYTE;);2:(HI_WD:WORD;LO_WD:WORD;);3:(JJJçHI_ABS_WD:ABS_WORD;LO_ABS_WD:ABS_WORD;);4:(DOUBLE_WD:INTEGER;);END;LRC_TYPE=PACKED RECORD CASE INTEGER OF 1:(HI_ABS_BYTE:ABS_BYTE;LO_ABS_BYTE:JLL3ABS_BYTE;);2:(WD:WORD;);END;UPLD_DESCRIPTOR_REC_TYPE=PACKED RECORD CASE INTEGER OF 1:(SECT_NUM:WORD;START_ADR:WORD;LEN:WORD;);2:(LRC_BYTES:PACKED LKKyARRAY[1..6]OF ABS_BYTE;);END;MULTI_WORD_TYPE=PACKED RECORD CASE INTEGER OF 1:(HI_BIT:0..1;LOW_BITS:0..32767;);2:(WD:WORD;);END;SINGLE_WORD_TYPE=KMMwPACKED RECORD CASE INTEGER OF 1:(WD:WORD;);2:(BY1:BYTE;BY2:BYTE;);END;VAR RUN_STRING_BUFF:STRING80;BLANK_STRING80:STRING80;RUN_STRING_BUFF_LEN:WORD;MHH ,CFG_BUFFER:CFG_BUFFER_TYPE;LOAD_TABLE:LOAD_TABLE_TYPE;MEM_CONTENTS_ARRAY:PCIF_BUFFER_TYPE;UPLD_FILE_NAME:STRING80;UPLD_FILE_DCB:DCB_BUFFR;HMMMOPEN_CREATE_FILE:STRING3;OPEN_OVERWRITE_FILE:STRING3;HEADER_MSG:STRING80;CHK_SUM:INTEGER;PC_TYPE:WORD;LOGICAL_PC:WORD;PCIF_BUFFER_SIZE:WORD;SECTION:MKK]nWORD;START_PC:BOOLEAN;STOP_PC:BOOLEAN;PCIF_STAT:WORD;PCIF_TAG:WORD;PCIF_CONTWD:WORD;PCIF_KEY:WORD;PCIF_PC:WORD;ERR_CATCHER_ALREADY_HERE:BOOLEAN;KAACOMMAND_PTR:WORD;COMMAND_STRING:STRING80;FOUND_FLAG:BOOLEAN;STOP_FLAG:BOOLEAN;IN_FILE:$BUFFERS 1,LINESIZE 128$TEXT;OUT_FILE:A$BUFFERS 1,LINESIZE 128$TEXT;IMPLEMENTGMUP0 GMUP0 870316.1109 1 100" 0Q0r  Q r0O@z/PCIF/GM/GMDN0.REL:::5:38:127 644 0 0 23000 5303173442 34366 /PCIF_GM/GM/GMDN0.REL:::5:38:127  $& b&GMDN0 REL + !+ "+ "&@FST <<XK@"%]GMDN0 94203-16012 REV.5000 <870312.1 870316.1106 GM/GMDN0.MAC::PCIF<22LqGMDN0 GMDN0.1 GMDN0.2 GMDN0.3 GMDN0.4 GMDN0.5 26.EXIT0PAS.CLOSEFILE PAS.INITFILEɸGMDN0 GMDN0 870316.1106 1 0``IN_FILE OUT_FILE 5842Kn,X ` %KEnter the PC Identifier: Enter the dnload file name (/E to quit):Re-start PC after download (Y or N)? Download file titl ```e is: Proceed with download (Y or N)? Is this the correct file (Y or N)? Enter the 8 character passcode: Illegal dnload file (model not 584). Error 8`` in opening file: Illegal pc number in run string. Unknown PC Identifier: Illegal dnload file (bad header fmt). Illegal dnload file (bad cfg table fmt).IlP( ``legal dnload file (bad dx fn format). Illegal dnload file (bad checksum). Illegal dnload file (model not 484). Illegal dnload file (model not 884). `` Discrete output values written to PC. Holding register values written to PC. PC start((ed. Successfully completed dowaf``nload. User logic values written to PC. Discrete output values written to PC. Holding register values written to PC. Sequence register values written to PC. Dbl precision reg.@`` values written to PC.Latch values written to PC. PC memory cleared. PCIF/1000 Upload utility GMDN 94203-16008 REV.5000 <870312.1815> (Type /E Bto quit) ɻGMDN0 GMDN0 870316.1106 1 1II ICONST NUMBER_UPLD_FILE_SECTIONS=13;NUMBER_CFG_DNLD_PARTS=3;NUMBER_BANNER_LINES=3;NUMBER_ERR_MSGS=10;NUMBER_PROMPT_MSGS=7;CFG_TABLE_SIZE=128;IIICFG_TABLE_START_ADDRESS=48;NUM_DX_FNS_IDX=51;READ_DX_FN=42;READ_DX_FN_BYTE_LEN=16;MAX_READ_LENGTH=1024;MAX_DX_FNS=100;FILE_DESCR_REC_LEN=6; IKKô'UPLD_FILE_DATA_REC_SIZE=144;NUM_DCB_BUFFS=4;DCB_BUFF_SIZE=528;READ_MEM=3;READ_DX=42;BAD_PC=0;GOOD_PC=1;BAD_FILENAME=0;GOOD_FILENAME=1;TYPE WORD=KNN߾-32768..32767;ABS_WORD=0..65535;BYTE=-128..127;ABS_BYTE=0..255;NIBBLE=0..15;GT_BIT=0..1;ERROR_TYPE=(RUN,EMA,IO,FMP,SEG,WARN);FILE_NAME=PACKED ARRAY[1 NKKRT..150]OF CHAR;WORD16=ARRAY[0..15]OF WORD;STRING2=PACKED ARRAY[1..2]OF CHAR;STRING3=PACKED ARRAY[1..3]OF CHAR;STRING4=PACKED ARRAY[1..4]OF CHAR; KMMÒSTRING6=PACKED ARRAY[1..6]OF CHAR;STRING7=PACKED ARRAY[1..7]OF CHAR;STRING9=PACKED ARRAY[1..9]OF CHAR;STRING26=PACKED ARRAY[1..26]OF CHAR;STRING40= MIIæXPACKED ARRAY[1..40]OF CHAR;STRING80=PACKED ARRAY[1..80]OF CHAR;STRING120=PACKED ARRAY[1..120]OF CHAR;MSG_ARRAY_TYPE=ARRAY[1..13]OF STRING40;INNBANNER_MSG_ARRAY_TYPE=ARRAY[1..3]OF STRING40;ERR_MSG_ARRAY_TYPE=ARRAY[1..10]OF STRING40;PROMPT_MSG_ARRAY_TYPE=ARRAY[1..7]OF STRING40;DCB_BUFFR=ARRAY[ NIIɱ1..528]OF WORD;DX_NODE_TYPE=PACKED RECORD CASE INTEGER OF 1:(NUM_NODES2:BYTE;RANGE2:BYTE;FILL7:STRING7;ASCII_NAME2:STRING4;SPARE2:BYTE;);2:(ILLNUM_NODES3:BYTE;RANGE3:BYTE;FILL9:STRING9;ASCII_NAME3:STRING4;SPARE3:BYTE;);3:(BY:PACKED ARRAY[1..16]OF CHAR;);END;CFG_WORD_54_TYPE=PACKED RECORD LJJbCASE INTEGER OF 1:(PORT1_SETUP:GT_BIT;PORT2_SETUP:GT_BIT;PORT1_ADDR_SET:GT_BIT;PORT2_ADDR_SET:GT_BIT;FILL11:GT_BIT;FILL10:GT_BIT;FILL9:GT_BIT;JKK/TBIT_SIZE:GT_BIT;POWER_OK:GT_BIT;RUN_LIGHT:GT_BIT;MEM_PROTECT:GT_BIT;BATTERY_OK:GT_BIT;FILL3_0:0..15;);2:(WD:WORD;);END;CFG_WORD_83_TYPE=PACKED KMM.RECORD CASE INTEGER OF 1:(HI_BYTE:BYTE;COMM_MODE:GT_BIT;PARITY_SELECT:GT_BIT;PARITY_TYPE:GT_BIT;STOP_BITS:GT_BIT;BAUD_RATE:0..15;);2:(WD:WORD;);END;MMMèCONST MODEL_584=STRING6[' 584'];BAUD_RATE_TABLE=WORD16[50,75,110,134,150,300,600,1200,1800,2000,2400,3600,4800,7200,9600,19200];PROMPT_MSG_ARRAY= MHH×PROMPT_MSG_ARRAY_TYPE[STRING40['Enter the PC Identifier: '],STRING40['Enter the dnload file name (/E to quit):'],STRING40[ HNN1'Re-start PC after download (Y or N)? '],STRING40['Download file title is: '],STRING40['Proceed with download (Y or N)? '] NKKÀi,STRING40['Is this the correct file (Y or N)? '],STRING40['Enter the 8 character passcode: ']];PROMPT_PCNUM=1;PROMPT_PCNUM_LEN=25; KHH*PROMPT_DNLD_NAME=2;PROMPT_DNLD_NAME_LEN=40;PROMPT_START_PC=3;PROMPT_START_PC_LEN=36;PROMPT_HEADER=4;PROMPT_HEADER_LEN=25;PROMPT_DO_DNLD=5;HEE<;PROMPT_DO_DNLD_LEN=32;PROMPT_ACCEPT_TITLE=6;PROMPT_ACCEPT_TITLE_LEN=35;PROMPT_884_PASSCODE=7;PROMPT_PASSCODE_LEN=32;ERROR_MSG_ARRAY=EFFn|ERR_MSG_ARRAY_TYPE[STRING40['Illegal dnload file (model not 584). '],STRING40['Error in opening file: '],STRING40[FNNj'Illegal pc number in run string. '],STRING40['Unknown PC Identifier: '],STRING40['Illegal dnload file (bad header fmt). '] N==,STRING40['Illegal dnload file (bad cfg table fmt).'],STRING40['Illegal dnload file (bad dx fn format). '],STRING40[=NNM'Illegal dnload file (bad checksum). '],STRING40['Illegal dnload file (model not 484). '],STRING40['Illegal dnload file (model not 884). '] NLLl];ERR_MSG_LEN=40;ERR_ILLEGAL_MODEL_584=1;ERR_ILLEGAL_MODEL_484=9;ERR_ILLEGAL_MODEL_884=10;ERR_OPEN=2;ERR_OPEN_ERR_OFFSET=8;ERR_OPEN_FMP_OFFSET=31;LDDRERR_ILLEGAL_PCNUM_IN_RSTRING=3;ERR_ILLEGAL_PCNUM_IN_RSTRING_LEN=34;ERR_BAD_CHKSUM=8;ERR_UNKNOWN_PC_ID=4;ERR_UNKNOWN_PC_ID_LEN=30; D@@xERR_UNKNOWN_PC_ID_OFFSET=24;STATUS_MSG_ARRAY=MSG_ARRAY_TYPE[STRING40[' '],STRING40[@NNQ~' '],STRING40['Discrete output values written to PC. '],STRING40['Holding register values written to PC. '] N==[,STRING40['PC started. '],STRING40['Successfully completed download. '],STRING40[=NN/2'User logic values written to PC. '],STRING40['Discrete output values written to PC. '],STRING40['Holding register values written to PC. '] N==|,STRING40['Sequence register values written to PC. '],STRING40['Dbl precision reg. values written to PC.'],STRING40[=KK>T'Latch values written to PC. '],STRING40['PC memory cleared. ']];PC_RESTARTED=5;DNLD_COMPLETE=6;PC_CLEARED=13; KLL BANNER_MSG_ARRAY=BANNER_MSG_ARRAY_TYPE[STRING40['PCIF/1000 Upload utility GMDN 94203-1600'],STRING40['8 REV.5000 <870312.1815> '], LMMþSTRING40[' (Type /E to quit) ']];BANNER1_INDEX=1;BANNER1_LEN=40;BANNER2_INDEX=2;BANNER2_LEN=26;BANNER3_INDEX=3;BANNER3_LEN=29; MLLWTYPE NAMR_TYPE=ARRAY[1..33]OF WORD;IDENT_BUFFER_TYPE=ARRAY[1..10]OF WORD;CFG_BUFFER_TYPE=ARRAY[1..128]OF WORD;SECT_DATA_TYPE=RECORD START_ADDRESS:LNNZ>WORD;LENGTH:WORD;END;LOAD_TABLE_TYPE=ARRAY[1..13]OF SECT_DATA_TYPE;PCIF_BUFFER_TYPE=RECORD CASE INTEGER OF 1:(WD:ARRAY[1..512]OF WORD;);2:(BY:PACKED NMMnARRAY[1..1024]OF CHAR;);3:(ABS_BY:PACKED ARRAY[1..1024]OF ABS_BYTE;);END;PCADR_TYPE=PACKED RECORD CASE INTEGER OF 1:(HI_BYTE:BYTE;MED_HI_BYTE:BYTE; MLLMhMED_LO_BYTE:BYTE;LO_BYTE:BYTE;);2:(HI_WD:WORD;LO_WD:WORD;);3:(HI_ABS_WD:ABS_WORD;LO_ABS_WD:ABS_WORD;);4:(DOUBLE_WD:INTEGER;);END;LRC_TYPE=PACKED LLLRECORD CASE INTEGER OF 1:(HI_ABS_BYTE:ABS_BYTE;LO_ABS_BYTE:ABS_BYTE;);2:(WD:WORD;);END;UPLD_DESCRIPTOR_REC_TYPE=PACKED RECORD CASE INTEGER OF 1:( LNNmoSECT_NUM:WORD;START_ADR:WORD;LEN:WORD;);2:(LRC_BYTES:PACKED ARRAY[1..6]OF ABS_BYTE;);END;SINGLE_WORD_TYPE=PACKED RECORD CASE INTEGER OF 1:(WD:WORD;); NKKÍ-2:(BY1:BYTE;BY2:BYTE;);END;SINGLE_BYTE_TYPE=PACKED RECORD CASE INTEGER OF 1:(BY:BYTE;);2:(HI_NIB:NIBBLE;LO_NIB:NIBBLE;);END;VAR RUN_STRING_BUFF:KLL$STRING80;BLANK_STRING80:STRING80;RUN_STRING_BUFF_LEN:WORD;CFG_BUFFER:CFG_BUFFER_TYPE;CFG_TABLE:CFG_BUFFER_TYPE;FCFG_TABLE:CFG_BUFFER_TYPE;DX_FNS: LII3lARRAY[1..100]OF STRING4;FDX_FNS:ARRAY[1..100]OF STRING4;LOAD_TABLE:LOAD_TABLE_TYPE;MEM_CONTENTS_ARRAY:PCIF_BUFFER_TYPE;FILE_CONTENTS_ARRAY: IKKPCIF_BUFFER_TYPE;FILE_DESCRIPTOR_REC:UPLD_DESCRIPTOR_REC_TYPE;DNLD_FILE_NAME:STRING80;PASSCODE:STRING80;DNLD_FILE_DCB:DCB_BUFFR;OPEN_READ_FILE: KNNésSTRING3;HEADER_MSG:STRING80;CHK_SUM:INTEGER;CFG_484_BUFFER:SINGLE_WORD_TYPE;FCFG_484_BUFFER:SINGLE_WORD_TYPE;FLEN_LOGIC:WORD;FLEN_STAT:WORD;FLEN_REG: NMM߄WORD;LEN_LOGIC:WORD;LEN_STAT:WORD;LEN_REG:WORD;IDENT_BUF:IDENT_BUFFER_TYPE;PC_TYPE:WORD;LOGICAL_PC:WORD;PCIF_BUFFER_SIZE:WORD;SECTION:WORD;START_PC:MMMBOOLEAN;STOP_PC:BOOLEAN;PCIF_STAT:WORD;PCIF_TAG:WORD;PCIF_CONTWD:WORD;PCIF_KEY:WORD;PCIF_PC:WORD;ERR_CATCHER_ALREADY_HERE:BOOLEAN;COMMAND_PTR:WORD; MLLCOMMAND_STRING:STRING80;FOUND_FLAG:BOOLEAN;STOP_FLAG:BOOLEAN;IN_FILE:$BUFFERS 1,LINESIZE 128$TEXT;OUT_FILE:$BUFFERS 1,LINESIZE 128$TEXT;IMPLEMENT LɽGMDN0 GMDN0 870316.1106 1 100/" 0 0      0UO@f2&/PCIF/GM/PCPGC.REL:::5:180:128 644 0 0 132000 5303173443 35470 /PCIF_GM/GM/PCPGC.REL:::5:180:128 !$ b,PCPGC REL + "+ #+ #YFST <<X9%;]PCPGM 94203-16014 REV.5000 <870316.1 870316.1057 GM/PCPGC.MAC::PCIF<F9PCPGM PCPGM.3 -PCPGM PCPGM 870316.1057 1 0OO99<x;v2d :t8p  "  Pz@@@pp @O-PCPGM PCPGM 870316.1057 1 0MMFTYPE BYTE=-128..127;WORD=-32768..32767;MSG_TYPE=RECORD OFFSET:WORD;LENGTH:WORD;STATUS:WORD;CASE INTEGER OF 0:(FONCTION:WORD;PARAM1:WORD;PARAM2:WORD;MNN PARAM3:WORD;PARAM4:WORD;);1:(WORD_ARRAY:ARRAY[1..5]OF WORD;);2:(BYTE_ARRAY:PACKED ARRAY[1..10]OF BYTE;);END;ACTIVATION_CONTEXT_TYPE=RECORD EVENT:WORD NMM-;ACTION_FLAG:PACKED ARRAY[1..16]OF BOOLEAN;ACTION_CODE:WORD;PC_TYPE:WORD;PC_CAPABILITY:PACKED ARRAY[1..16]OF BOOLEAN;APPL_ID:WORD;REQUEST:MSG_TYPE; MKKSUB_REQUEST:MSG_TYPE;END;BUFFER_AREA_TYPE=PACKED ARRAY[1..8192]OF BYTE;HEADER_AREA_TYPE=PACKED ARRAY[1..17]OF BYTE;CONST PC_READD=1;PC_WRITED=2;KNNd0PC_READP=3;PC_WRITEP=4;PC_TRANS=8;PC_READD_EXT=9;PC_WRITED_EXT=10;PC_READP_EXT=11;PC_WRITEP_EXT=12;PC_WRITEB_EXT=13;PC_FREEZE=15;PC_START=16;PC_STOP= NLL17;PC_ENUNSOL=18;PC_DIUNSOL=19;PC_CONNECT=20;PC_DISC=21;PC_PCSTAT=22;PC_SYSTAT=23;PC_CANCEL=24;PC_LOCK=25;PC_UNLOCK=26;PC_GETKEY=27;PC_RELKEY=28; LMMկPC_CLOSE=29;PC_IDENT=30;PC_ASSOC=31;PC_CALIBRATE=32;PC_CONTINUE=33;PC_CYL_STOP=34;PC_DIR=35;PC_DISASSOC=36;PC_HOLD=37;PC_MAPIDENT=38;PC_MAPSTAT=39; MJJ:fPC_PRGM_DEL=40;PC_PRGM((_SEL=41;PC_RLNQCNTL=42;PC_TAKECNTL=43;PC_CALL0=64;PC_CALL63=127;INITIALIZATION=1;REQUEST_INITIATION=3;REQUEST_REENTRY=4;JGGÿ#SUB_REQUEST_COMPLETION=6;UNSOLICITED_SUB_REQUEST=7;REQUEST_CANCELATION=8;NO_ACTION=1;SEND_SUB_REQUEST_WAIT=2;SEND_SUB_REQUEST_NOWAIT=3; GJJëSEND_REQUEST_COMPLETION=4;SEND_REQUEST_SUB_REQUEST=5;RESET_HIGHWAY_HANDLER=6;WAIT_REQUEST_BUFFER=7;WAIT_SUB_REQUEST_BUFFER=8;CAPABILITY_RW=1; JCCËCAPABILITY_PR=2;CAPABILITY_TR=3;CAPABILITY_UN=4;CAPABILITY_ST=5;ACTION_FLAG_EI=16;ACTION_FLAG_EU=15;SR_STATUS_MSG_SKELETON=235; CJJG\SR_STATUS_NO_AVAILABLE_MEMORY=236;SR_STATUS_NO_MATCH_FOUND=237;SR_STATUS_BUFFER_ALREADY_ALLOCATED=239;SR_STATUS_MORE_THAN_ONE_CREATE_UNS=240; JNNPSR_STATUS_CALL_MADE_BY_PC_HANDLER=243;SR_STATUS_NO_MSG=245;SR_STATUS_EXCEED_BUFFER_SIZE=246;SR_STATUS_NEGATIVE_OFFSET=247;SR_STATUS_NO_UP_BUFFER=248; NNN\sSR_STATUS_NO_ALLOCATED_BUFFER=249;SR_STATUS_INVALID_MSG=250;SR_STATUS_INVALID_MSG_TYPE=251;SR_STATUS_INVALID_CALL=252;SR_STATUS_LENGTH_TOO_LARGE=253; NNNû"SR_STATUS_INVALID_LENGTH=254;SR_STATUS_UNKNOWN_MSG_TYPE=255;TYPE GT_BIT=0..1;GT_NIBBLE=0..15;GT_BYTE=PACKED RECORD CASE INTEGER OF 1:(ABS_BYTE:0..255 NLL;);2:(PM_BYTE:-128..127;);3:(BITS:PACKED ARRAY[1..8]OF GT_BIT;);END;GT_TASK_TYPE=(SYNCHRONIZATION,LOGOUT584,REGULAR_CMD,POLL,PCTRANS,RESET884SEQ);LLLlGT_CTL30B_TYPE=PACKED RECORD CASE BOOLEAN OF TRUE:(WD:WORD;);FALSE:(BITS_PER_CHAR:0..3;BIT13:GT_BIT;BRG:GT_BIT;STOP_BITS:0..3;PARITY:0..3;ENQ_ACK:LKKïGT_BIT;BAUD_RATE:0..15;PORT_NUM:0..7;);END;GT_PC_CONTEXT=RECORD NUM_BUFFS_TO_SEND:WORD;REMAINDER_BUF_BIT_COUNT:WORD;REMAINDER_BUF_BYTE_LEN:WORD;KMMLREMAINDER_BUF_WDNODE_COUNT:WORD;TOT_LENGTH_BYTES:WORD;NEXT_MSG_PCMEMADR:WORD;CUMULATIVE_BYTE_COUNT:WORD;PSTEP:WORD;STATUS_FLAGS:PACKED ARRAY[1..16] MLLjOF GT_BIT;PASS_CODE:PACKED ARRAY[1..8]OF BYTE;SEQUENCE_CNT:BYTE;END;GT_HW_CONTEXT=RECORD IO_CNTL_30B_PRAM1:GT_CTL30B_TYPE;IO_CNTL_33B_PRAM1:WORD; LNNg0RETRY_COUNTER:WORD;RETRY_VALUE:WORD;BUSY_RETRY_COUNTER:WORD;BUSY_RETRY_VALUE:WORD;MBUS_ERROR:WORD;SEQ884:WORD;STEP:WORD;NEXT_STEP:WORD;HFONCTION:WORD NLLA;HSUBFN:WORD;HMSG_LEN:WORD;HPCMEMADR:WORD;HPAGE_OR_MSEG:WORD;HLENGTH:WORD;HTASK:GT_TASK_TYPE;CONNECT_FLAG:BOOLEAN;END;COMPLETION_TYPE=WORD;CONST LJJbaGC_CTL30B=1536;GC_CTL33B=1728;GC_CTL27B=1472;GC_TRANSPARENT=-32759;GC_CONNECT=-32747;GC_DISC=-32746;GC_IDENT=-32737;GC_HW_H_ENTER_ERRORED=361;JNNޭGC_LINEFEED=10;ENABLED=TRUE;DISABLED=FALSE;CONNECTED=TRUE;DISCONNECTED=FALSE;ON=1;OFF=0;SYNCHRO_FLAG=1;LOGOUT_FLAG=2;TYPE BUFFSZ_TBL_TYPE=ARRAY[0..2] NLL÷OF COMPLETION_TYPE;BOUNDARY_TYPE=(WORD_BOUNDARY,BIT_BOUNDARY,THREE_BYTE_BOUNDARY,BYTE_BOUNDARY);GT_LENGR_TYPE=PACKED RECORD CASE BOOLEAN OF TRUE:(LLLÜBIT15_14:0..3;BIT13_0:0..16383;);FALSE:(LNG_WD:COMPLETION_TYPE;);END;GT_ADDRESS=PACKED RECORD CASE INTEGER OF 1:(WD:COMPLETION_TYPE;);2:(ADDR:0.. LKK65535;);3:(HI_BIT:0..1;LOW_BITS:0..32767;);END;GT_PARM4_TYPE=PACKED RECORD CASE BOOLEAN OF TRUE:(WD:COMPLETION_TYPE;);FALSE:(SYNCH_FLAG:GT_BIT; KKK|LOGMEOFF_FLAG:GT_BIT;UNUSED:0..63;PG_OR_MSEG:0..255;);END;GT_A_REG_TYPE=PACKED RECORD CASE BOOLEAN OF TRUE:(WD:COMPLETION_TYPE;);FALSE:(AV:0..3;KKKñJDVC_TYPE:0..63;DC_LINE_DOWN:GT_BIT;FILL6:GT_BIT;CNTL_D:GT_BIT;FILL4:GT_BIT;PARITY_TRANS:GT_BIT;FILL2:GT_BIT;TIME_OUT:GT_BIT;E_BIT:GT_BIT;);END; KLLÏGT_TWO_WD_TYPE=PACKED RECORD CASE BOOLEAN OF TRUE:(BIG:INTEGER;);FALSE:(HI_ABS:COMPLETION_TYPE;LO_ABS:COMPLETION_TYPE;);END;GT_LG_INT_TYPE=PACKED LJJrhRECORD CASE INTEGER OF 1:(INT:INTEGER;);2:(WD1:COMPLETION_TYPE;WD2:COMPLETION_TYPE;);3:(ABS_WD1:0..65535;ABS_WD2:0..65535;);4:(HI_PMBYTE:BYTE;JGGÁMED_HI_PMBYTE:BYTE;MED_LO_PMBYTE:BYTE;LO_PMBYTE:BYTE;);5:(HI_ABYTE:0..255;MED_HI_ABYTE:0..255;MED_LO_ABYTE:0..255;LO_ABYTE:0..255;);END;GLLNGT_TWO_ABS_BYTE_TYPE=PACKED RECORD CASE BOOLEAN OF TRUE:(WD:COMPLETION_TYPE;);FALSE:(HI_BYTE:0..255;LO_BYTE:0..255;);END;GT_FOUR_ABS_NIBBLES_TYPE=LLLwPACKED RECORD CASE INTEGER OF 1:(WD:COMPLETION_TYPE;);2:(HI_ABYTE:0..255;LO_ABYTE:0..255;);3:(HI_PMBYTE:BYTE;LO_PMBYTE:BYTE;);4:(HI_NIB:GT_NIBBLE;LJJVBMED_HI_NIB:GT_NIBBLE;MED_LO_NIB:GT_NIBBLE;LO_NIB:GT_NIBBLE;);END;CONST GC_MESS_LENGTH_READD=BUFFSZ_TBL_TYPE[60,120,960];GC_MESS_LENGTH_RD_EXT=JHHMBUFFSZ_TBL_TYPE[59,118,944];GC_MESS_LENGTH_WRITED_COIL=BUFFSZ_TBL_TYPE[50,100,800];GC_MESS_LENGTH_WRITED_REG=BUFFSZ_TBL_TYPE[58,116,928]; HIIôGC_MESS_LENGTH_WT_EXT=BUFFSZ_TBL_TYPE[56,112,896];GC_MESS_LENGTH_RWN=BUFFSZ_TBL_TYPE[10,30,0];GC_MESS_LENGTH_RWM=BUFFSZ_TBL_TYPE[16,32,256];IGGq!GC_MESS_LENGTH_WA=BUFFSZ_TBL_TYPE[17,34,272];GC_MESS_LENGTH_RC=BUFFSZ_TBL_TYPE[16,32,256];GC_MESS_LENGTH_RDX=BUFFSZ_TBL_TYPE[8,16,128]; GJJ/GC_MESS_LENGTH_RS=BUFFSZ_TBL_TYPE[5,10,80];GC_MESS_LENGTH_TRANS=BUFFSZ_TBL_TYPE[122,244,1952];GC_MESS_LENGTH_1N_2N=BUFFSZ_TBL_TYPE[8,16,128]; JNN:GC_MESS_LENGTH_RD_884=BUFFSZ_TBL_TYPE[64,128,1024];GC_MESS_LENGTH_WD_884=BUFFSZ_TBL_TYPE[64,128,1024];GC_MESS_LENGTH_WD9_884=BUFFSZ_TBL_TYPE[4,8,64]; NNNNzGC_MESS_LENGTH_RP_884=BUFFSZ_TBL_TYPE[112,224,1792];GC_MESS_LENGTH_WP_884=BUFFSZ_TBL_TYPE[112,224,1792];GC_MESS_LENGTH_IDENT=BUFFSZ_TBL_TYPE[10,16404 NFF,-32607];GC_ALLOCATE_REQ_BUFF=1;GC_ALLOCATE_SBREQ_BUFF=2;GC_MAX_MUX_MSG=242;GC_PORT_STATUS_ADDR_584=142;GC_READ_LOGIN_STATUS_LENGTH=4;FNNðGC_484_READ_STATUS_LENGTH=2;GC_584_READ_STATUS_LENGTH=10;GC_884_READ_STATUS_LENGTH=8;GC_884_PASS_CODE_LEN=8;GC_884_SEQ_CNT_LEN=1;GC_REPT_SLAVE_ID_584 NMM =9;GC_REPT_SLAVE_ID_484=5;GC_REPT_SLAVE_ID_884=8;GC_STATUS_RET_LEN=2;GC_IDENT_RET_LEN=20;GC_MBUS_FN20_FILENO_LIMIT=10;GC_MBUS_FN21_FILENO_LIMIT=10; MMM_GC_PC_H_NOT_ALLOWED=128;GC_PC_H_INVLD_LGT_UNIT=132;GC_PC_INVALID_SUBFNC_PARM=1;PC_H_ERR_ILLEGAL_LENGTH_TYPE=132;PC_HANDLER_ERROR_ILLEGAL_REFNUM=133;MJJjPC_H_ERR_ILLEGAL_PCADR_PARM=134;PC_H_ERR_ILLEGAL_LENGTH_BYTE=135;PC_H_ERR_ILLEGAL_BUFF_LEN_NODE_BNDS=136;PC_H_ERR_ILLEGAL_LEN_NONWD_BNDRY=137;JIIPC_HANDLER_ERROR_CANT_WRITE_THESE_LOCS=138;PC_H_ERR_ILLEGAL_MBUS_SUBFN=139;PC_H_ERR_ILLEGAL_LENGTH=140;PC_H_ERR_ILLEGAL_BUFFSZ_PCTRANS=141; ILL^PC_H_ERR_ILLEGAL_READ_STATUS_LENGTH=142;PC_H_ERR_ILLEGAL_READ_CFG_LENGTH=143;PC_H_ERR_ILLEGAL_FILENO_PARM=144;PC_H_ERR_ILLEGAL_READ_DX_LENGTH=145;LEEw!PC_H_ERROR_ILLEGAL_IDENT_LEN=146;PC_H_ERROR_UNKNOWN_MODEL=147;PC_H_ERROR_ENTERED_ERROR=148;PC_H_ERROR_INVOKE_GETWINDOW_WO_BUFF=149; EMMÝPC_H_SERIOUS_LOGIC_ERROR=150;PC_H_INVALID_FN_ENTRY=151;PC_H_ERR_ILLEGAL_STEP=152;PC_H_ERR_ILLEGAL_MBUS_FUNC_ON_ENTRY=153;PC_H_ERROR_NO_CPBL_ENUNSOL=MGG154;PC_H_ERROR_END_REQ_WO_EI=155;PC_H_ERR_LEN_OUT_OF_BOUNDS=156;PC_H_ILLEGAL_MBUS_FN_GETWINDOW=157;PC_H_ERR_ILLEGAL_LEN_TWOWD_BNDRY=158;GKK)PC_H_ERR_ILLEGAL_SYSTEM_STATE=159;MODBUS_HWY_CODE=478;ERRMBUSOFFSET=512;ERR584OFFSET=576;ERR484OFFSET=612;ERR884OFFSET=676;ERR884CMDOFFSET=804; KMMæHW_H_ERR_RETRY_LIMIT=257;HW_H_ERR_ILLEGAL_HWY_TYPE=258;HW_H_ERR_INSUF_ROOM_IN_BUFF=259;HW_H_ERR_LOGIN_REFUSED=260;HW_H_ERR_UNEXPECTED_RESPONSE=261; MDD:HW_H_ERR_LINE_DOWN=262;HW_H_ERR_INVALID_RESP_LENGTH=263;HW_H_ERR_ILLEGAL_STEP=300;HW_H_ERR_BAD_LRC=301;HW_H_ERR_SPURIOUS_RESP=302;DMMHW_H_ERR_ILLEGAL_TRANS_ENTRY=303;HW_H_ERR_ILLEGAL_MBUS_FN=304;HW_H_ERR_ILLEGAL_MBUS_SUBFN=305;HW_H_ERR_BAD_CHKSUM=306;HW_H_ERR_MODBUS_BUSY=518;ACK= MDD×:517;BUSY=518;NAK=519;SEQERR=690;TEMP_RETRY=10;TEMP_IO_CNTL30=18264;TEMP_IO_CNTL33=-22464;TEMP_TIMEOUT=500;PROCEDURE PC_PC_HAND_GM DIIl$ALIAS'PC_PC_HAND_GM'$(VAR ACTIVATION_CONTEXT:ACTIVATION_CONTEXT_TYPE;VAR DATA_AREA:BUFFER_AREA_TYPE;VAR PC_CONTEXT:GT_PC_CONTEXT);IMPLEMENTI-PCPGM PCPGM 870316.1057 1 0@>2\@@XD\%; p]PC_PC_HAND_GM 94203-16014 REV.5000 <870316.1 870316.1057 GM/PCPGC.MAC::PCIF@5PC_PC_HAND_GM ||/ .DAD .DCO .DDE .DDI.DIV.DLD.DST.EXIT0.LBT.SBT.SDSP ALLOCATE_BUFFER FLUSH_SUB_REQUESPAS.BITDEPOSIT1 PAS.BITEXTRACT1 PAS.BOUNDINTEGERPAS.CDS PAS.DOUBLEMOD PAS.INLINEERROR |""PAS.SINGLEMOD PCPGM.3 RELEASE_BUFFERSET_WINDOW"y<<SPC_PC_HAND_GM SSET_FLAG_VALUES `@p `@p p ` @/ p ` O0 Op ` @P(A` @Pt(A` @ .p ` ZZϐ<** N0 Np `  %` H(SRESET_FLAGS `@p ` @@` @@Zaf><@#`M@H(VS GET_SEQ_CNT_BUFFER`@p ` @@ ` @(` @ pp ` P(P((p (p ` @h(ffi,,*p ` @@h (p ` @@(Ѐ` (`@p ` @ p `@p` @@p  f~~T;;` @@(` @@h%`pH@(|S GET_WINDOW_AND_PARMS pP((4`(4`P(P(P(P(P (P (~ddA ,(P(P(P(;P(P((u` (w` (w@ (2@ (,(8` `@(:` `@ d764(:`p(w A[p`(eP(KP(K(b`@@@p#p#p`P (\(_` (a` (d`p(t`P(oP(oP(oPggIm/+(o(r` (t`p(w`p`(`P(` p( `@p`@(`@h ppg22`P(P((p(p`@h(p`@@h(p`@@( `( `@p ` @ p#`@((p$`@@rrf0;5p% $%#`( p#p`@p$`@ H@@p%0$%p$`@p%`@@@p& %&$r i >>88#( @ p`P (( @@ @((    (1(1`p(3`(A(`P(TP(TP(YP(YP (^}G--P (P(P(P(P( P((`  ` Hp(` ` p(P(hP(hP (hP((h(` $ ` %pP(vP(vP (yP( 7t(y(| v--`(~`((~`p(`p(P(P(P(P(P*(P9((`  ` p(`  ` p(`  ` p(`  ` pL53(`p(`  ` p(` ` p( A[p`(P(P((`@@@ppp`P (Ҋ(` / ` .p(` '1p ` (p1/(`@@@ppp`P ((` .p` / (` * ` +p(`p( `P(P(P(P(( ` 1p` 2 ( `p(xxU 40`  ` p(` ` p(`p`(&`P(&` p(`@p!`!@(R`!@h pp`P(@P(C(Jx@86p(Qp`!@h(Qp`!@@h(Tp`!@@(`(`@p"`"@ p`@p `!@@p#  #`hhJ?x2.(pp`@p `!@ H@@p#0 #p `@p#`!@@@p$ #$ 88(~h/T@@ @ p`P ((h @@ (    ((((`@p(A (((`p(`(`p`@p`9\\,,`H@p p p p(SGET_SIZEp     ` .P(`P((\9<:`p(` .P(%P(OP(ᨈP((`?pp!   `? @ (I  `?  (`? XXoR+)`?pp" `P(P(P(P(f( AW    (XW^}HD  (p #( AW    (  (`p(p $%( AX  (  (`MMy$"p(  @ (  (h`(`P(&P(bP((MF@`?pp&'(#`?pp( Z AY `? @ (  `? AY (%`p(`?pp)>>/!(_`?pp* AZ  `? @ >[PFB (V  `? Y (a`p(`?pp+ p &,(`? Y Y (`? Y AY `VVe%#? @ (  (`p(`p( h``(`@@@P((V4A=`@@@pp-p`P((p ./(`p`@p`1`H@ppp(SCALC_MSG_LENGTH p`p`?(ff%7$$`p(` .P((`p(`P( P( P()P()P (2P (GP(P(P(P(P((f 64`.@pp (`.@pp(`@ (; (D`.@pp(F`p(`P(YP(YP(bP(bP((kP)(tP*(}ooV//P9((` .@pp(`.@p`p (`.@pp(`.@pp(` .@ppo88 (`.@pp(`p (`.@pp(`.@ pp(` [p`(`P(P((`P((` .@ }}J11p(`.@ p`@@@p`P (p (`.@ pp(`p(`P(訨P(P(計P((` .@ p}c$:8`p(` .@p`p(`p(` .@pp(`.@pp(`p`(C`  p`(C`P ()ssS(..(C`P((1P)(7P*(=(C P (6`p(C P (<`p(C P (B`p(C`@p`5`H@ppp(s??> $        ' * - 0 3  ?V::S CALC_CMD_AND_ADDR p`p`p`@p`@P(PH(xPt( P؈(x( `P(P(NP(P(1(Պ` @@6H ` @@6@WW0,@ 0P02H@ A 3(( (`'A (`p(  (`'A (W=CC`p`( 3(( (`p( 3(((` A ( A(먄`p( 5(( 7(( 9(( ;( ( 3((([[p"" (` (` (` (` (`p(` ` @@6 P(' P(' P*('[42%<:`p` ` @@6  (ר` ` @H@6 P(D P(D P*(D`p` ` @@H6  (` @@6 ` @@6KP0= RRaa+)  0 3(~(p ({`'A (}`p(  (`'A (R;a??`p`( 3(( (`p( 3(((` A (`p( 5(Ƅ( 7(τ( 9(τ( ;(Ʉ( 3(̈((` (` ccJ+)(` (Ԩ`p(`p(`p( `P(⨨P( SP( EP( L( ` @@6 ` @@D6  >cUCAP>@H@ A 3( (  ( `A ( `p( `p`( D 3( #(  ( #`p( D 5( 6( ) 7( 9( - 9( <( 1 ;( ?( 5( B ( D__1 9(&` ( D` ( D` ( D`p( ` ` ` ( ` ` ` ( ` @@6P>AH _~~t a><@ >@ ( t`A ( v`p`@( A 5( ( A 7( ( A 9( ( A ;( ( A 3( ( ( ` ( ` ( `p( `p( `p( ~TT +'`P( P( MP( P( *( ` @@6@ 0@PH0B ( `'A ( T ;;`p`(  5( (  7( (  C( (  9( (  ;( (  E( (  G( ( ( ` ` `  (  ( ` ( ` ( ` ( `ffW{ --p( ` ` @@6H ` A[p`P( P( ( '( )` @@6  ( )`p( ` ` @@6 f 2D@` A[p`P( AP( B( J( L` @@6  ( L`p( ` @@6KP0I   0 ( n`'A ( p`p`(  IIb v""5( ( y 7( ( } C( (  9( (  ;( (  E( (  G( ( ( ` ` ` I 77  ( ` ( ` ( `p( `p( `p( `@h`@@h((`p` 4`VH ppp(bSINIT_RDWT ~~ 20`@p `@p `` @@p` @@p` @@p` @@p` @@p` @@p` @@p h H~  H X 53` @@( 2`` @@p` @@p` @@p` p` @p` @p` @pG h HH` @@( cuu) 81/` @( a` @h Hpp ` P( OP( R( Yp ( `p ` @h( `p ` @@h ( cp ` @@( ue i20` ( `@p ` @h HH` @ `` @@p` @@p` p` @p` @p` @p` @@p` @p   :8 h HH` @@( `` @@pD` @h` @@( ` @h` @0 %` H m ( f 97SINIT_PCSTAT `@p ` @@ ` @( ` @hpp ` P( P( ( p ( p ` @h( p ` @@h ( vv ..p ` @@( \` ( \` @( Z` @P䊊( +PH( 1Pt( 7P( 1( = ` @h( =` @ h ( = ` @h( =v~~  =53pp ` P( HP( K( Rp ( Yp ` @h( Yp ` @@h ( \p ` @@( `  ( `@p` @@ `` ~~~m r.,@@pD` @h` @P( PH( Pt( P( ( ` @@h ` @@h ` @@h(` @@ ( ` @~; @h N ,,` @@h` @@h` @@h`( ъ` @@h` @@h` @@ ` @@ ( ` @h` @@0b 88h` @@( ۊ` @h@'` @H( S INIT_484_STARTSTOP`@p `@p ` @@( 4` @@h ` @@   W 1/` @@P( ( ` @@h( ` @@h` @@ ` @@ ` @h`` @@p D ( 8` @h#yy :75` H@( SINIT_LOGIN`@p ` @@ ` @( z` @ hpp ` P( hP( k( rp ( yp ` @hy q//( yp ` @@h ( |p ` @@( ` ( `@p ` @@h ` @@h` @@h` @@h` @@ttL 64 ` @ `` @@p D ` @h` @@( ` @h@%` B@H( JSINIT_884_LOGIN`@p tz 64` @@ ` @(` @ h pp ` P( P( ( p (p ` @h(p ` @@h (p ` @@(z` }}0 31(z`@p ` @@h` @@ ` @@ ` @@ ` @@ ` @ p`@p` @@p }?<6`pp ` @ p@ p0p`@p` @@ @p 8 8(C` @ `` @@pD` @h` vv/{11@@(` @h &` H( SINIT_IDENT`@p ` @@P 6(` @@P 7(` @@P 8(vw42` @@h(` @@ ` @(ފ ` @hpp ` P(P((p (p ` @h(p ` @@h (p yys1/` @@(+` (+` @()` @P(PH(Pt(P؈(( ` @ h( ` @h ( ` @ h( pp y 22` P(P((!p ((p ` @h((p ` @@h (+p ` @@(}`  (}`@p` @@h` @P(J(C//PH(PPt(VP(P(\` @@h(\` @@h (\` @@h(\` @@ ` @@ ` @@ `@ `` ar@@pD~~py66` @h` @@(` @@h'`H@(SINIT_TRANS`@p`@p`@@p `@@p `` .~ss31@p`p`@p`@p  hHH` (ԊP((Ԩ` "p (` (` p (p `@@(s97`` .@p`p`@p`@p`@p  hHH`@(` P( (`@h "`@p` A@^^`,*(!`@p `@@(eA(7A@ (=`@@h(e` hHH^G..`@@hH`@@h `@@h `@@ `@@hHH`@@(p`@h(t`@hu (`H(  ! ^^~0.SINIT_884_WRITED `@@@p `@@@ p   0   C(( E(( G(((^~~:6`(`  '`~H(SDISC_LOGOUT `@p `@p ` @PH(Pt(P((I` @h` @@ ` ~sshg.*@@h ` @@h` @@ ` @@ ` @@ ` @@`` @@p D (I`s~~..` @h` @@ ` @@h` @@h` @@ ` @@ ` @@ ` @@`` @@p ~~~CD=7D (I #`H(SCOMPL_RDWT`@p`@p`@@P(oPp (`@ hHH`@@ppJp~~~<8`@@ [p ` (2` P(P((1`@p` @@p0hKH 6Pp ` (`@ @6@hH `~ddL0,@p`@p`p ` (Pp ` (ڊ`@@h (1p `@@ YhH Hx d™=9` hHAH( (+xp` p `@p`@H @@p0p`@p`@H@@p 8()8ll*0.(Pp (1(`@@P(9(`P (p `@@ hH Hx ` hHAH(X (xpl;Z>8` p `@p`@H @@p0p`@p`@H@@p 8(8(ZPp (p `@@ ;9AYhH Hx ` hHAH( (xp` p `@p`@H @@p0p`@p`@H@@j p f518(8(Pp (犨`@@(H`g(`@h(G`@@hH((``@@p`@@p`p`@p`nnS00,@p`@p`@@p`@p hHH`@@(C``@@pD`@hnB66(G`@h(Z`@@0`@@hHH`@h@*`S@H([SCOMPL_WRITEP`@p `@p ` @@}}x51(` @@P((` @P((` @P(P(-P(GP(y(`g`@p ` @@p 0  (}_0.Ph HH` @h` @@h ` @@ ` @@h` @@ ` @@0@` @h("`@p ` pp6.@@@p 0  p `@p ` @@p 0 P ((Ph HH` ͊` @@0@p352.` @P(` @h("` @@h` @@(,` @h(`g` ͊` @@0@` @P(F` @hE1/( (K(W`[` @@0@(x` @P䈪(p` @@h ` @@ ` @@h` @@ ` @h` @ Nvh ^x/-(`g` @@h HH` @h(` @@h` @h(` @@0` @@h HH` @h~~bO97@#`d@H(mSCOMPL_884_WRITE `@p `@p ` @ h HHPh HH` @@(K` @P(P(~kP(/(A77/`g` ` @@0@` @P(` @h(J (( `[` @@0@(.`` @h` @@h~/-` @@ ` @@h` @@ ` @h(J`g` @@h HH` @h(J` @@h` @h oI J88(]` @@0` @@h HH` @h #`H(SCOMPL_884_WRITED`@@@p `@@@@p  YYo5/@ 0 @A  CA(( EA(( G(((`^(`@['`gH@(rSCOMPL_STARTSTOP Y1/`@p `@p ` @@(` @@P(̈(` @P((` @P(ިP(P(P((`g`@p ` ~~31 @@p 0  (` @h` @@ ` @@0@` @@h ` @@ ` @@h` @@ ` ~D@h84(`@p ` @@@p 0 p `@p ` @@p 0 P (G(v` @h` @h` @@ ` @+;V--@h ` @@ ` @@ ` @@P(j(p` @@h(u` @@ (` @h` @@h(` @h pH ..` @h` @@ ` @@h ` @@ ` @@ ` @@P((` @@h(` @@ (` @h/-` @@h ` @@ ` @@h` @@ ` @h(`g` @h` @@h HH(` @@)) h` @h(` @@0):8` @h` @@h HH@#`@H(S COMPL_884_STARTSTOP `@p `@p ` @ h HHPh HHww:f(-+` @@(` @P(8P(rP((`` @@(q` @h` @h` @@ ` @@hw~~wU/-` @@ ` @@ ` @@P(f(l` @@h(q` @@h(`ۊ` @@(` @h` @@~*/-h` @@ ` @@h` @@ ` @h(`g` @h` @@h HH(` @@h` @  h(` @@0\66` @h` @@h HH@#`@H(SCOMPL_PCSTAT`@p `@p ` @@(s` @P(PH(Pt(mm4.P((j`g`@p ` @@p   `@p ` @@p 0 p ` H0 Hp m&;7` .P(,(F` -P(2(F`@p ` @@p   (s` .P(L(``@p ` @@p   $(s`uu3a60@p ` @@p    ` @h` @@h HH(s`g`@p ` @@p    uޅ<8`@p ` @@p 0   p ` H0 Hp ` /P( (` ,(`@p ` @@p   (` /mm(,* (` ,P((`@p ` @@p    (` @@h` @h` @@h HHm7=7(s`g`@p ` @@p    `@p ` @@p 0 p ` H0 Hp h `(J`@p ` @bbJ<-)@p   (]`@p ` @@p   ` @h` @@h HHb,{i66(s` @@h` @h` @@(` @@0` @h` @@h HH@$`H@(SCOMPL_IDENT ` 51@p`@p`@@( `@P(P((`g`@p`@@p0p ` P(P(P(P ( 2( @@<`@p`@@p K`@p`@@p L` P( P(P(P ((M (A@O (QA (Scc0,@ (h x`@p`@@@p h (x`@p`@@@p c~~dE64` 6  @@(hp`p `@p`@@ @p 8 8(R`@h`@@`@h`@@ ~r{64`@@ `@@ `@@h`@@ `@@ (` 6 @(pp `@p`@@ @p M8 8(~~B64`@@h`@h( `@@  h x`@p`@@@p h (x`@p`@@@~qq/+p `@@hHH`@h( h `(`@@0`@h`@@hHHq~~97@)`@H(SRQ_INITIATION `@((p `@p ` @P䊊(DPH(DPt(DP(D(#` @@@UV (P(lP(rP(l~zz,U/+P(P(P(P(ǨP(P(樨P(P(P( P(P((` ("` @P(~PH(~Pt(P(~(` (z*u9/`(("` @P(PH(Pt(P((` @h`(`(` (("`u("` @.P((`kk-.&J(` @h("` @P䊊(PH(Pt(P((券` 9(券`(券` (刪("` @@hk=I1-` @h("`@p ` @@ ` @@h` @h("`("` ("` @@h` @h("` @@T55h` @h(,` @h` @@h@#`&@H(0SSUB_RQ_COMPL`@p `@@P(QPH(QPt(QP(Q($5bQ/-` @@P(lP(rP(lP(P(P(P(P(ɨP(P(ꨈP((`[(#` @P(~PH(~Pt(P(~(`N6.[(`((#` @P(PH(Pt(P((`(`^((#` @P䊊(PH(Pt(P((Ȋ`@@hЍ60`(Ȉ`(Ȉ`(Ȉ(#`@p `@p ` @@(` @@0` @h` @@h HH(#`zz3-(#`(#`@p `@p ` @@( ` @@0(`g` @h` @@ (#` @@hzta64` @h(-` @h` @@@h#`6H@(?`p ` @ P(IP(cP(iP(o(` g`@ ` @llXhU/)0` @` @ (` -(` .(`p `p h HH` @@0` @hlkk)**(` @h P((` @@h(` @@h` @P((` @0@%`@H (7kddJJ( (9V_kx',? (GMHt@ d@%WD/PCIF/GM/PCHGC.REL:::5:179:128 644 0 0 131400 5303173444 36132 /PCIF_GM/GM/PCHGC.REL:::5:179:128 !$ bPCHGC REL + $+ $+ $YAFST ;;X>@$`D@H(MSSTORE_BYTES pp@p `A@(`p(` @p` @p`@ P((`@@ AGP(ZZ+'(`p`p ` @p`@@p0` @p`@@p0Zd>:` (pp` @p`@@@@p@p ` @p`@@@@p0 88(`p `/`rH VV))ppp({SSTORE_SWP_BYTS` @ppp`@@p`A@(8`p(V~~5h8B<` AD(p"p` @p#`@@p$@#$p` @p#`@@@p$0#$` @p#`@@p$@#$~JJz$ p` @p#`@@@p$0#$`@p88"(EppJ~~@<`@(p"p` p88"( (+`((+ ` @p"`@@@p#@"#p"`H0"Hp` @p"~hh4.`@@@p#@"#p"`0"ph   hx"` @p#`@@@@p$0#$"h=9h(x"` @p#`@@@@p$0#$"( (4( @`@@p ` @p ` @p!` @ @6 JP (N(e` eex~O-)@p"`@@p#@"#p"`0"p(|` @p"`@@@p#@"#p"`0"pe|F@ (h  @h(x ` @p!`@@@@p"0!" `p` 9`H ppp p( S FORMAT_RESWW""P_BUFFERp `@p`@p`@P(׊(`/p `@P(䊊`@P((W  `@ ` !(@@ 4P G:6(((+(+(K(K(L(Y((f(((=((K(K(((K(ሊ(K(`@p`@@@p@p`@p`@ p`p (EE5+ `@p`@@@p@p`@p`p (EK>6(`@p` p (֊`@p`p (`@p`@@@p@@p`@p`p (֊`@XXa+%p`p (`@p`@@@p@p`@p`p (X\_>6`@p` p (`@p`@@@p@p`@p`p (`@p`@@@p@PP#l'!@p`@p`p (`@ ` (` (P(P((:(<PLJ51`@p`@@@p@@p`@p`p (<`1p (֊`@ P(_P(_P(`P(_P(P(_P(_{{yN62P (_P(P(_P((P)(P*(רP7(_P9(_((`@p`@@@p@ p`@p`p ({?<6`@p`@@@p@AEp`@p`p (`@p`@@@p@(`p (`@pbb1+`p (抈`@p`p (`@p`p (`1p (`@@ AGp b62` (N`@@P7(N` P(P(P((P((K(M`@p`@@@p@@p`@@p`p 4'51(M`@p`@@@p@@p`@@p`p (M`1p (`@@P(aP(aP(aP(aP(b<\P(aP7(a(Ua95(`@@p `@ @6 P (p(`@p`@@@p@@p `@p(@ p `@@p`@ pmmB60` p (`@p`@@@p@@p`@@p`@ p`p m*77(`1p (֨`0p ` p ` (`H(SPRCESS_RESP `@p `@p p ` @P(nP(P-(P.(P2(P(?(` yy4:1/@h H ` @h ` @P.((` @h` @h H@A@(>` @ P(/(4`i` @hy842` @((h H (` @ P(E(J`i` @h H ` @h H@A@(i` @h H ` @h` @hyyl2.(`p ` @h H ` @h (` @h H p ` @P(` @P(pp ` @@(` p yzHB ` %`H(SCVT_HEX ` ` (` ((` @Јp (` @Ɉp (p ` &`Hp (SCVT_INT ` ` (JJ!` ((`0@ p (`7@ p (`0p ` &`Hp `p (J:8SVERIFY_BUFFER `@p`@pp`@@p`@p`@@p@P (4(_@p`@p`@@pXXzUA.*@p`@p`@@p0 `p (ap @ D@(ppXnoD<`@p` hHH H Hx@p`p`@p` hHHH Hx@p` ZZ9|-)@hH 6H`@ @6@p !p`@ @6p`@p`@@@p0Z~~:688(o`@ `@p`@@p@P:(`@h.`@p`@@p@hH 6`@ @6Hh~ccs,(H@P(#`@h.`@p`@@@p@p"#hH @P(F`@h.cHTF88`(M`@h-`@A@(\`@h`@( `@ P (kP ( P( K(  ` D@ @(p`p`ff$~73@p`@@@p@ p` H0Hp `@ @6h @@ 88(} & p$(f~~_:8`@p` ADhHHHHx@ p` H0Hp `@ @6h @ ((㊨`@h2`@p`@@~hh 0,@p@p` H0Hp `@ @6JP( ( `@p`@@@p@@dhHh 93( `@p`@@@p@( J`@p`@@@p@@hH( `@p`@@@p@ff X/+( `@p`@@@p@p")hH`@P( P( P( P( ( f~~ 20`@h( `@h( `@ ( `@h( `@hHH`@p`@@@p@P( ( `@~إ ;3p`@@ @p@( ኈ`@p`@@ @p@@$hH`i( `@p`@@@p@Ȟ ( u <:`@p`@@@p@@hH@-`@H(SCHECK_IO_RESULTS`@p `@p` @@p ` @ 755@p ` 'P( @ ( G` %( G`p ` ( P` @@( U` P( U( |p `@hH `@hH@A@( z  l<:`@ P( r( w`i`p ( |` P^( ( p ` p `  '` H( &SSWAP_BITS `p`H0 Hp p` H0H`` //p `( pp ` @@` @ @x ,H@p` @ @@ x ,H@p`@ `(\ A?8 8( h @+` H@ pp( SFMT_BYTEp ` p` 0p ` @ @6 h@  @` @p` $p` pdd` D@( pp` @p`@@p@p`  M ` @AA !p`@@p@p`  M `@p88(  A8 A;` @p`@@p@p`H0Hp` @p`@@p@p`0ph@  @ @h(x` dd^ +91 M hx`  M ( ` D( pp` @p`@@p@p`  M d~~ dA;` @p`@@p@p`  M `@p88( K ` @p`@@p@p`0ph  ~PP *$@ ` @@6 P ( ( `  M h(x`   ` p`0pPJ B@h(x`  M@ 5` H@ pp( SFORMAT_WRITE_MSG`@p`@p`@@hp @ @p `@pNN("`@@@p0.`p`@p` M`@ p` MN9=9`@P(?(p `@@ D(pp`@p`@@ @p@p`@p`@@@p0UU.9v)%`@p`@@ @p@p`@p`@@@p0U~~E=`@p`@@ @p@p`h@ `@p`@@ @p@p` @@ @@ `~RR @p` @p 88(Q(V`@ P(P(P(P(P()` !(@@R @P ~?7(()()()(2()(*(*()((K(((T`@ p` ~`@ p` ~(V(V`@ p` ~`@ p` ~`@pVVC($` M`@ P(Q(a`@ p`@p` ܀(`@@(ppVk@8`@p`@@@p@p` M88(k(V`@ P((` M/(`@@p h (x` M`JJf(  M`@p` ~`@ p` ~`@(( p` ~J~~a<6`@ P((`@@(pp`@p`@@@p@p` M88((V` M`@ p`~__3) M`@ p `@ ` (l` (/P(P(('` M`@ p` ~_BFB`@ @6 h@ `@ @6Hh `@   0 2   &()`@@p` M`@ p` ~`@@II 2$ (pp`@p`@@@p@p` M88(IIG` ~`@ @6 h @`@ H@6h `@ !`@   0 ! 4   &`@(pp`@pCC? #`@@@@p@h  88(()` MCr64`@ A  0AA 6 &@()`1p ` M(V`@ P(TP(TP(hP(P(hP(P(P (hP(TP(TP((TP)(P*jjdN8.(P7(P9((` M `@ p` M(` M`@ p` M`@ p` MjyxC7`@p` M`@ p` ~(`@@p` M`@ p` M`@ p` M`@p` Mjjq5/`@ p` ~`@@(pp`@p`@@@p@p` M88(jD8(` M`@ p` M`@ p` M(`@@p` M`@ p` M`@ p` ~`yyvB=5@p` M`@ p` M`@@(pp`@p`@@@p@p` M88(ay~~}5F<(`1p (V`@@ AD@p` M`@p` M` M8` M ` M `@  Gp ` ~NN"(J`@ P7(J` P(P(P(P(E(G` M9`@ p:p N~~F<` M ` M`@@p `@ @H6 p` M`@ p` ~`@ Fp `@ @6Hp` M~99- `@ @6 p` M` M(I` M9MF<`@ p;p ` M ` M`@@p `@ @H6 p` M`@ p` ~`@ Fp `@ @6::!Hp` M`@ @6 p` M` M:~~C;`@ AF(ဈpp`@p`@@@p@p` M88((I` M<` M `@ p`~;;" ~(I` M ` M `@ p` ~;~~ě?9`@ AF(Fpp`@p`@@@p@p` M88(((I`1p (J`@ p` M`@ ~qqX1-P(gP(P(P(P(P(ѨP7((H`pp`@p`@@@p@p` M88(kq@:(J(J`@@p `@ @6 JP((`@ ADp` M(`@ p` M`@ @H6 p` M`@ p`PP ($ ~(J`@@p `@ @6 JP((`@ ADp` M(PbYA9`@ p` M`@ @H6 p` M`@ p` ~`@ @6 JP ((1`@ p`@@p` ܀(G`KKT2$ @ p`@@p` (J`1p (V` M(V`0p KVB8p$=Hx ` $p`p`@p`@@@p0` p`p`@p`@@ @p0``++` p `1` H( SMMSG_LEN`@p p ` @P((`@@@@p (` 5b ` @ ` !(娀@@ GP 1z11((((鈈(((((((((G(((((((((`p (`p (`p (`p (`p (`p (`p (`p (`p (oo3/`p (` @ @p (` p (`p (` @ @p (` @ ` (7` (4P(AP(A(Do4//`p (F` @ @p (F`p (F`1p (` @ P(iP(iP(rP(xP(rP(xP(P (uP(oP(oP((lP)(P*~~wc44(P7(P9((` p (` p (` p (`p (`p (` @ @p (` @ @p (` @ @p (` ~ 0p ( ˍ44`1p (` @ Gp ` (` @ P7(֊` P(P(P(P((`p (` @@  @p (ը`#p (` @@ ,11 @#p (`1p (` @ P(P(먨P(P(먨P(P(P7( ( `#p (`p (`p (` @@ @p ` @p>( 77` @p (`p (`1p (`0p ` p `@@h @` '`H@(SMRSP_LEN`@p `@pp `@P(=(C00=` @@p (`@ ` !(e@@0 IPP MM`P (f(f(p(p(z(z((}((((((((((h((((`@  @ p (M~~؅p44`@ @ p (`p (`p (` p (`p (`p (` p (` @@ @ p (`p (` p (`@ ~ttd#73@ p (`@ @p (`@ ` (` (P(ۨP((`@ @p (`@ @p (t:95`p (`1p (` @@` (` (P( P( (`@ @p (`@ @p (`p (`1p (`@ ]//P(6P(6P(9P(CP(FP(9P(CP(IP (SP(VP(VP((YP)(\P*(_P7(bP9(b(e` p (g`@ @p (gDC44` p (g` p (g`@  @p (g` p (g` p (g`p (g`Mp (g`+p (g` p (g`1p (`@  Gp ` (`@ ~~sAw//P7(` P(P(P(P((`@ @p (`p (`p (`p (`1p (`@ P(P(P(P(P(~P(P7((755`p (`p (`@  @p (`p (` @@ AGp ` (늊` P(P(P(P((`@  @p (`00p (`p (`p (ꨈ`1p (` @@P(P(P(((P(P(P( (`p (`p (`@  @p (`p (`1 p }}88(`1p ` @p (`0p ` @h ` @p ` '`&H@(-SPROCESS_REQUEST `@p`@p`@P (XP (pP (}ww|,I-+P (P(P(.P(HP(P(P(!(Y`@@ `@@ `@@ `@h `@h(c`p w~~6+v62` (~p ` (`@hH ` Pl((`@h` (`@hH `@h (c`p ` (`@h `~uu\ 1-@h(`@hH `@h (c` p ` (`@hH `@h (` (`@h (pp u62`@(`@hH `@h (` (`@h(`@hH `@h (c`$p ` (p ` (`@B00hH ` Pl(( `@h` (-`@hH `@h (c`@@h`@@h@`@@ p `@hC62`@h(c`  p ` (m` (mpp ` (b`@h (l`@hH `@h (` (u`@h(`@hH DAy93`@h (cp `@P(` `p ` (`@hH `@h (`@p`@@p@P (( ˔86`@@@hH@A@(Ǩ`p (`@@@p`@p` p (`@@hH@A@(`p ({{0.`@@p`@p`p `@hH `@h (c`@@h`@@h@`@@ p `@h{62`@h(c`  p ` (F` (Fpp ` (;`@h (E`@hH `@h (X` (N`@h (X`@hH kkR//`@h (c`@hH `@h, (`-H(8SDO_REQUEST`@p `@p ` @ k31` @ ` @`? (P(P(ᨨP($P(lP(P(̨P(PP(y(` @ ` @ ` @ ` @@p ` /~~̌00P((` @ h` @ ` @ ` @ ` @ ` @ ` @ ` @ h` @h (` @h(` @@~ ֳp `42` @(` @p `9 ` .P((` @ h ` @ h` @  ` @  ` @ ` @ ` @ ` @ h200` @h (#` @h(` @P(.P(3P(3(b` @h(k` @ h` @ ` @ ` @ ` @ ` @  vJ dK40` @h` @ h` @h ` @P(](a` @ h(k` @p `9 (` @(`@p ` @@p @ zz:2. @@p `9 (` @p `9 (` @ h HH` @ h HH` @ h HH` @ h HHzR..` @h HH` @h H ` @h` @ h` @h (` @P(׊` @P((` @@P (ވ(` --@ h` @ ` @@P ((` @ h ` @  ` @@P((` @ h` @ h7` @h` @ h"" ` @h ` @P(("٧00` @ h(O` @P(!(F` @ h` @ ` @ ` @ ` @ ` @ ` @h` @ h` @h (Ouu F80` @p `9 (` @(o`@p ` @@p @ @@p `9 (x` @p `9 (` @(u~A9` @ `9@(` @p `9 (`d(`9A` @@P($`mH@(uSDO_TRANS_FN `@@ `@ff׻(&p `@p ` @`? (P(ԨP( (` @h H` @h H` @ h HHf]51` @ ` @ ` @ ` @ ` @h H ` @h` @ h` @h (!` @p `9 (!`d(!`979A` @P(@#`@H(SDO_CONNECT_FN `@p `@p ` @@(` @P(VP(xP(P(P( U( ~~oV--` @@h` @ h HH` @h` P(n(s` @h(w` @h(` @@h` @@ ` ~CI..@h` @h(ފ` @@h` P((` @@h@(` @@h` @h` @h(` P((` $$V[ @@h(` @@h$¤:4` @@h` @h` @h(` @ `9` @ (`9A(銨` @@p `9 @#`0@H(:`p ooG++`p P(P( P(P((` @ ` @ ` @h ` @h ` @ ` @ ` @0(o 42` @ ` @` @P(0(~` @@P(7(G` @@p @ h H` @@P (RP(XP(j(x` aaT1%'(}` @(c` (i` 9(}` @@h H` 9(}` (` 9B(aiiF 6*` @@P (P((` '(` ꈋ(` (`p ` 9 (` 9C@%`@H (i\\ZDD(!( U09AF:w',i \@1@h H` 9(}` (` 9B(aiiF 6*` @/PCIF/GM/PCC06.REL:::5:22:128 644 0 0 13000 5303173445 34143 /PCIF_GM/GM/PCC06.REL:::5:22:128  $ cPCC06 REL + %+ %+ % FST DDX/* 23PCC06 94203-16018 REV.5005 <880324.1 880324.1350 /PCIF/GM/SOURCE/REV5005/PCC06.MAC DPAS.3 PAS.SEGMENTRTN  @n,HHXz* 24PC_CONF_HY_GM 94203-16018 REV.5005 <880324.1 880324.1350 /PCIF/GM/SOURCE/REV5005/PCC06.MAC H!aPC_CONF_HY_GM t.ENTR .LBT.MVW F_ACTIVATEFORMF_DEACTIVATEFORMF_GETSTRING F_INITFIELDS ((F_PUTINTEGER F_PUTSTRING F_SETCURSOR F_SHOWALTERNATE F_SHOWFORMF_SHOWHELP F_SHOWINDOW F_WAITEVENT PAS.3 PAS.BITMASK1//^PAS.BLANKFILL PAS.BOUNDINTEGERPAS.NONCDSPAS.RANGEINTEGERPAS.SETINIT /OO`p`pA mvA Am nm`pA(,%# +m(A3* 9&m#jPc(IPd(WPf(ePg(sPh(Pi((POXX V-m(A^ d1Am(l r5m(Az 9Am( =m(A Am(`P`((AddHCC Em,`P` pa`aA( Im(A MAm( Qm mdRR8(HWY_TYPEHWY_NUM NEW_OLD AddingNEW_OLD UpdateB_300 B_1200 B_2400 B_4800 B_9600 B_19200 C_MUX BRG_0 BRG_1 D_MUX `p`p ph  t0u  w0r 2gLL 0q  x pgpfpepdpcApb"qimh 6Dp !( $"#`!@` x ,H@(Apg&qimh 6Dp !(OO $"#`!@` x ,H@(Apf*qimh 6Dp !( $"#`!@` x ,H@(Ape.qimh 6Dp !( WOO@ $"#`!@` x ,HH@(pd!2qimh @6p !(A@ $"#`!@` x ,HH@(ApcI6qimh @6p !=hQQQ(i $"#`!@` x ,H@(ipb`g@f@e@d@c@bP`(phAz:mA>mBmFmAJmANmR% &m?66km(`gP`(( y0k (ڈ`fP`(( y0l (`eP`(( y0m (`dP`(( y0n (`cP`(( y0o (ڈ`bP`((ڈ ybyNN0p `h(h(h` AoqimDh 6p !(% $"#`!@` x ,H@(`A sqimh 6Dp !(A, $"#Qr&II`!@` x ,H@(A`(<(@`ha(H`(H(hphRwmAW{m^%A d&Amhm( v oOOpap`zqimh @6p !(@J $"#`!@` x ,HH@(paqimh @6p !(@N $"#`!@` x ,HH@EII(p``Pa((`a0`(A'(`a0`(ވ`a`(A((`a( 0s (phAmm &mm  [2__8(U B_300 B_1200 B_2400 B_4800 B_9600 B_19200 B_300 B_1200 B_2400 B_4800 B_9600 B_19200 *** EXACTLY ONE "X" IS NEEDED IN ONE OF THE BOXES B_300 C_MUX D_MUX C_MUX D_MUfE}``X *** EXACTLY ONE "X" IS NEEDED IN ONE OF THE BOXES C_MUX BRG_0 BRG_1 Baud rate generator not configurable for D MUXEXACTLY ONE "X" IS NEEDED IN ONE OF THE BOXES BRG_0 BRG_1 BRG_0 nHH /)A ~lm`m(Rpqprpsptpu*km`kP_(Pb( Pd(PeA((38)lm(@(@(@`jPe("(%p^(2ee?%99A,A+ 2&Am(@:T, @&m`kpj`k(H`h(O`^(O`mP`A(O(Rm`mP`(V(X`^(]eYYA spppo`h.-pn(PXXx1.-%v/PCIF/GM/PCC06.FRM/PCIF/GM/PCC06.HLP*** PRESS ABORT KEY AGAIN TO ABORT... *** UNDEFINED SOFTKEY ''|Ka 08HPX`?@'@p0F : Internal ErrorNSINF : Error writing to output LU : NSINF : Valid LU choices are 0 to 255.NSINF : No access to DSAM permitted.** Disaster: State of DS/PCIF/GM/PCC10.REL:::5:10:128 644 0 0 5000 5303173447 34071 /PCIF_GM/GM/PCC10.REL:::5:10:128  $ c PCC10 REL + &+ '+ ' FST <<XG%]PCC10 94203-16019 REV.5000 <870316.1 870316.1104 GM/PCC10.MAC::PCIF<PAS.3 PAS.SEGMENTRTN  @f@@X#d%]PC_CONF_PC_GM 94203-16019 REV.5000 <870316.1 870316.1104 GM/PCC10.MAC::PCIF@%wPC_CONF_PC_GM  .ENTR .LBT.MVW.SBT F_ACTIVATEFORMF_DEACTIVATEFORMF_GETSTRING F_PUTINTEGERF_PUTSTRING F_SHOWFORMF_SHOWHELPF_SHOWINDOW F_WAITEVENT PAS.3 PAS.BITDEPOSIT1 PAS.BITEXTRACT1 PAS.BLANKFILL ǤPAS.NONCDSPAS.RANGEINTEGER WWA`tp  A#*A/`A(@9?(AGM`pp`@pτ`||{WII@pa(`@p`A@ЄpsAh6p`@H`(hA6`@H`H88(QA ـ|%PP8(/PCIF/GM/PCC10.FRMPC_TYPE PC_NUM NEW_OLD AddingNEW_OLD UpdatePASSCODE`tpKpuATو`pLpJhS6`J@HH P(5hSA6`J@H ApM`MJJ"((`K@pN`JƈA@pO4NOM(F`K@pM`J@pNAFMN8J8L( PJy]QEE8P(PASSCODEh6 P(^(uppppplqو`P(PɈ({P(PˈA((HH((P(`P((p(@mmw==A  ل( A `pր`(`(`(`P((lو`P((v`(v(uvwmxYYA pppqp`rhspڀ(XP(P%/PCIF/GM/PCC10.HLP*** PRESS ABORT KEY AGAIN TO ABORT... *** UNDEFINED SOFTKEY  8@0O/PCIF/GM/GMUP.LOD:::4:2:28 644 0 0 1000 5303173450 34046 /PCIF_GM/GM/GMUP.LOD:::4:2:28 $ cGMUP LOD + '+ (+ ( FST ********************************************* * GMUP.LOD SOURCE: 94203-17001 REV.5000 <870518.1225>* link file for GMUP Gould-Modicon Upload Program * command file NEEDS UPDATING for CI directory path name* command file MAY NEED UPDATING for Snap Shot* sn,snap pc,31,0  li,/pcif/runtime/pclbc.lib li,/pcif/gm/gmlbc.lib li,/libraries/pascal_cds.lib re,/pcif/gm/gmup0.rel re,/pcif/gm/gmup.rel en,/pcif/runtime/gmup /PCIF/GM/GMDN.LOD:::4:2:27 644 0 0 1000 5303173451 33740 /PCIF_GM/GM/GMDN.LOD:::4:2:27 $ cGMDN LOD + )+ )+ ) FST ********************************************* * GMDN.LOD SOURCE: 94203-17002 REV.5000 <870518.1226> * link file for GMDN Gould-Modicon Download Program * command file MAY NEED UPDATING for Snap Shot* sn,snap st,4000 pc,31,0  li,/pcif/runtime/pclbc.lib li,/pcif/gm/gmlbc.lib li,/libraries/pascal_cds.lib re,/pcif/gm/gmdn0.rel re,/pcif/gm/gmdn.rel en,/pcif/runtime/gmdn ((/PCIF/GM/GM.CMD:::4:11:45 644 0 0 5400 5303173453 33326 /PCIF_GM/GM/GM.CMD:::4:11:45 $ c -GM CMD + *+ ++ + O4FST * *GM 94203-17005 REV.5000 <870313.1325>"* transfer file for installing PCIF/1000 Gould-Modicon on user's site "* SET LOG = ON(*&dB************************** WARNING ***************************************** (,*&dB &d@ &dB * ,,*&dB &d@ The following LINK command files : &dB * ,,*&dB &d@ &dB * ,,*&dB &d@ GMUP.LOD GMDN.LOD &dB * ,,*&dB &d@ &dB * ,,*&dB &d@ WILL NEED UPDATING for SNAP file, and PASCAL Library &dB * ,,*&dB &d@ if your system does not match the defaults listed below: &dB * ,,*&dB &d@ &dB * ,,*&dB &d@ Defaults Used in these Load Files : &dB * ,,*&dB &d@ &dB * ,,*&dB &d@ Directory where PCIF and Gould Handler software resides = /PCIF/GM &dB * ,,*&dB &d@ Snap File of RTE-A System = "SNAP" &dB * ,,*&dB &d@ Name of Pascal Compiler Library = "Pascal.LIB::libraries" &dB * ,,*&dB &d@ and "Pascal_cds.LIB::libraries" &dB * ,(*&dB**************************************************************************** (* ******************************* * ** * PCIF/1000 linking process ** * ** ******************************* * change working directory * wd /pcif/gm * * linking GMUP ( Gould-Modicon Upload Program ) LINK /PCIF/GM/GMUP.LOD * * linking GMDN ( Gould-Modicon Download Program ) LINK /PCIF/GM/GMDN.LOD * **************************************************************** * * * loading of PCIF/1000 Gould-Modicon programs completed ! * * * **************************************************************** "* Do a directory list on the CI directory to show all loaded files :"$* If all of the following files are present, PCIF G-M loaded correctly :$* * GMDN.RUN GMUP.RUN %* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * %* DL,/PCIF/GM/@.@ * SET LOG = OF  /PCIF/GM/PCC06.FRM:::3:13:75 644 0 0 6400 5303173454 34003 /PCIF_GM/GM/PCC06.FRM:::3:13:75 $ c KPCC06 FRM + ++ ,+ , )+FST <vFO *PCC06.FRM 94203-17007 REV.5005 PCIF Configurator Screen 6 for Gould-Modicon  5 Y B01 N05OC #< >NEWOLD NEW_OLD DC7B06VC05PCIF Configurator Scre >HTYPE HWY_TYPEDC7B06VC05(PCIF Configurator Scre >HNUM HWY_NUM =DI7B06VC05ePCIF Configurator Scre >H B_19200  OC7B06VC05(PCIF Configurator Scre >C B_2400  &OC7B06VC05NPCIF Configurator Scre >A B_9600  OC7B06VC05(PCIF Configurator Scre >D B_1200  &OC7B06VC05NPCIF Configurator Scre >B B_4800  OC7B06VC05(PCIF Configurator Scre >E B_300  &OC7B06VC05NPCIF Configurator Scre >I C_MUX 2OC7B06VC05BPCIF Configurator Scre >J D_MUX 2OC7B06VC05BPCIF Configurator Scre >F BRG_0 $OC7B06VC054PCIF Configurator Scre >G BRG_1 $OC7B06VC054PCIF Configurator Scre 2a&v05S&v06S&dB] ]&v05S&d@ ** SCREEN 6 ** 2&v05S "A&v05S PCIF/1000 Configuration Editor : Gould PLC Interface "&v05S <v&v05S HIGHWAY TYPE &v06S&dB] ]&v05S&d@ HIGHWAY NUMBER &v06S&dB] ]&v05S&d@<&v05S ,&v05S Select Baud Rate for Highway: &v05S /\&v05S 19200 &v06S&dB[ ]&v05S&d@ 2400 &v06S&dB[ ]&v05S&d@/3d&v05S 9600 &v06S&dB[ ]&v05S&d@ 1200 &v06S&dB[ ]&v05S&d@ 3/\&v05S 4800 &v06S&dB[ ]&v05S&d@ 300 &v06S&dB[ ]&v05S&d@/ &v05S 8&v05S Select 12040 MUX Interface Revision Code: &v05S )P&v05S Revision C &v06S&dB[ ]&v05S&d@))P&v05S Revision D &v06S&dB[ ]&v05S&d@) &v05S '&v05S If 12040C MUX Interface, .&v05S Select Baud rate generator: &v05S "B&v05S 0 &v06S&dB[ ]&v05S&d@""B&v05S 1 &v06S&dB[ ]&v05S&d@"&v05S )O )KFO HELP REFRESH ABORT PCCON KKFO KKFO KKFO KKFO KBBXJN$DSINF.MAINFO91790-1X036 REV.5005 <860923.1 880223.2026/TESTINT1/SRC/DSINF.PAS BdN$DSINF.MAINFO/PCIF/GM/PCC06.HLP:::4:5:39 644 0 0 2400 5303173455 33736 /PCIF_GM/GM/PCC06.HLP:::4:5:39 $ c'PCC06 HLP + ,+ -+ -YFST * PCCG6.HLP 94203-17008 REV.5000 <870313.1316> &dBPCIF-Gould PLC Interface&d@  &dBConfigurator Screen 6 HELP Screen&d@  %The message "Adding" is displayed in the upper left corner if this highway%$has not previously been created, otherwise the message "Update" is shown. $ $The validation flag is not set if any of the required information on this $screen is not supplied. Since the Gould interface only has one  user-configurable parameter, the required information is trivial.  $Simply place an "X" (upper or lower case) in the box corresponding to the $%BAUD rate that is desired. When the ENTER key is pressed, this information %%will be stored away and used when the highway is connected (using the PCIF% PC_CONNECT function.  'If the softkey ABORT PCCON is depressed, a confirmation will be required. The''key must be pressed again to confirm. The configuration editor will then be''terminated. If the ABORT PCCON key is pressed once in error, pressing another'key disables the ABORT request.  & &dBPress the HOME UP key to return to screen 6.&/PCIF/GM/PCC10.FRM:::3:8:75 644 0 0 4000 5303173456 34222 /PCIF_GM/GM/PCC10.FRM:::3:8:75 $ cKPCC10 FRM + .+ .+ ."FST ((<vFO *PCC10.FRM 94203-17009 REV.5000 PCIF Configurator Screen 10 for Gould-Modicon   Y B01 N05OC!< >NEWOLD NEW_OLD DC9A06VC05CIF Configurator Scree >PC_TYPE PC_TYPE DC9B06VC05#CIF Configurator Scree >PNUM PC_NUM 8DI9B06VC05`CIF Configurator Scree >PASSCODE PASSCODEOC9B06VC05/CIF Configurator Scree 2b&v05S&v06S&dA] ]&v05S&d@ ** SCREEN 10 **2&v05S &v05S !A&v05S PCIF/1000 Configuration Editor : Gould PLC Interface !&v05S 9q&v05S PC TYPE &v06S&dB] ]&v05S&d@ LOGICAL PC ID &v06S&dB] ]&v05S&d@ 9&v05S &v05S &v05S &v05S  &v05S 7&v05S (ENTER 8 character pass code) &v05S #D&v05S &v06S&dB[ ]&v05S&d@#&v05S &v05S &v05S &v05S &v05S &v05S &v05S &v05S &v05S (O (KFO HELP REFRESH ABORT PCCON KKFO KKFO KKFO KKFO K/PCIF/GM/PCC10.HLP:::4:5:39 644 0 0 2400 5303173460 33770 /PCIF_GM/GM/PCC10.HLP:::4:5:39 $ c'PCC10 HLP + /+ 0+ 0ZFST * PCC10.HLP 94203-17010 REV.5000 <870313.1316> &dBPCIF-Gould PLC Interface&d@  &dBConfigurator Screen 10 HELP Screen&d@  %The message "Adding" is displayed in the upper left corner if this highway%$has not previously been created, otherwise the message "Update" is shown. $ $The validation flag is not set if any of the required information on this $screen is not supplied. Since the Gould interface only has one $user-configurable parameter for this screen, the required information is$trivial. $Simply input the 8 character or less 884 passcode in the box using upper $#or lower case letters conforming to the PC's passcode standards. Lower #"characters will be upshifted to upper case and leading blanks will be "stripped.  'If the softkey ABORT PCCON is depressed, a confirmation will be required. The''key must be pressed again to confirm. The configuration editor will then be''terminated. If the ABORT PCCON key is pressed once in error, pressing another'key disables the ABORT request.  & &dBPress the HOME UP key to return to screen 10. &/PCIF/GM/A94203.SNF:::4:11:39 644 0 0 5400 5303173461 33734 /PCIF_GM/GM/A94203.SNF:::4:11:39  $ c 'A94203 SNF + 0+ 1+ 1 (FST * A94203.SNF SOURCE: 94203-17999 REV.6000 <901218.1011>  **************************************************************  * PCIF/1000 GOULD-MODICON HANDLER SOFTWARE NUMBERING FILE *  * FILE NAME: A94203.SNF *  * *  * PRODUCT: 94203A REV.6000 *  * *  **************************************************************   Directory: /PCIF/GM/    FILENAME PART NUMBER REV. TYPE DESCRIPTION ' --------------------- ----------- ---- ---- --------------------------------'  A94203.SNF 94203-17999 6000 4 PCIF/1000 G-M SNC ! PCPGC.REL 94203-16014 5000 5 CDS PC handler (G-M)!# PCHGC.REL 94203-16015 6000 5 CDS Highway handler (G-M) #" [PCPGC 94203-18017 5000 4 G-M : CDS PC descriptor "% [PCHGC 94203-18016 5000 4 G-M : CDS Highway descriptor%& GM.CMD 94203-17005 5000 4 CI cmd file for installing G-M&% GMUP.PAS 94203-18007 5000 4 CDS G-M PC Upload Util Source %% GMUP0.PAS 94203-18011 5000 4 CDS G-M PC Upload Util Source %% GMUP.REL 94203-16007 5000 5 CDS G-M PC Upload Util Reloc%% GMUP0.REL 94203-16011 5000 5 CDS G-M PC Upload Util Reloc%$ GMUP.LOD 94203-17001 5000 4 G-M PC Upload Util LINK cmd $& GMDN.PAS 94203-18008 5000 4 CDS G-M PC Download Util Source && GMDN0.PAS 94203-18012 5000 4 CDS G-M PC Download Util Source && GMDN.REL 94203-16008 5000 5 CDS G-M PC Download Util Reloc&& GMDN0.REL 94203-16012 5000 5 CDS G-M PC Download Util Reloc&% GMDN.LOD 94203-17002 5000 4 G-M PC Download Util LINK cmd %' GMLBC.FTN 94203-18010 5000 4 CDS G-M PC Subroutine Lib Source'' GMLBC.LIB 94203-12001 5000 5 CDS G-M PC Subroutine Lib Indexd'" PCC06.REL 94203-16018 5005 5 CDS G-M Screen 06 Reloc "" PCC10.REL 94203-16019 5000 5 CDS G-M Screen 10 Reloc "$ PCC06.FRM 94203-17007 5005 3 CDS G-M Screen 06 Form File $$ PCC10.FRM 94203-17009 5000 3 CDS G-M Screen 10 Form File $$ PCC06.HLP 94203-17008 5000 4 CDS G-M Screen 06 Help File $% PCC10.HLP 94203-17010 5000 4 CDS G-M Screen 10 Help File % TRANS H ENGR H"PRAMS P1PEDTA P A    $!%# "    /PCIF/GM/GMUP.PAS:::4:266:39 644 0 0 205000 5303173462 34526 /PCIF_GM/GM/GMUP.PAS:::4:266:39 $ d 'GMUP PAS + 1+ 2+ 2 sFST $PASCAL '94203-16007 REV.5000 <870518.1508>'"{ }""{ NAME : GMUP }""{ SOURCE: 94203-18007 }""{ RELOC.: 94203-16007 }""{ PRGMR : CGY }""{ }""{ MODIFIED 2/10/86 : Add 484 PC support by MWC }""{ MODIFIED 2/23/87 : Add 884 PC support by MWC }""{ **************************************************************** }""{ * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1985. ALL RIGHTS * }""{ * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED * }""{ * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT * }""{ * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY * }""{ **************************************************************** }""{ }"$ HEAP 0 $$ CDS ON $$ DEBUG OFF $ $ RUN_STRING 0 $$ RECURSIVE OFF ; RANGE ON $  $ TITLE 'GMUP 484/584/884 Upload program' $  PROGRAM GMUP ;  $search 'gmup0.rel'$ import gmup0;   {------------------------------------------------}{ }{ RTE SERVICE PROCEDURE (FMP, EXEC, ...) }{ }{------------------------------------------------}  PROCEDURE print_pascal_error $ALIAS 'Pas.ErrorPrinter'$  (err_type : ERROR_TYPE; err_number : WORD; err_line : WORD; err_file : FILE_NAME;  err_flen : WORD); EXTERNAL;  PROCEDURE RTE_GET_run_string $ALIAS 'GETST'$ (VAR run_string : STRIN((G80 ;  length : WORD ;  VAR tlog : WORD) ;EXTERNAL ;  $FIXED_STRING ON $ FUNCTION RTE_FMPOPEN $ALIAS 'FmpOpen'$ (VAR dcb : DCB_BUFFR ; VAR ierr : WORD ;  VAR fname : INTEGER;  VAR iopt : INTEGER; ! VAR num_dcb_bufs : WORD): WORD;!EXTERNAL; FUNCTION RTE_fname_desc $ALIAS 'STRDSC'$ (VAR buf : STRING80; startchar : WORD ;  length : WORD): INTEGER;  EXTERNAL;  FUNCTION RTE_fopts_desc $ALIAS 'STRDSC'$ (VAR buf : STRING3;  startchar : WORD ;  length : WORD): INTEGER;  EXTERNAL;   FUNCTION RTE_FMPCLOSE $ALIAS 'FMPCLOSE'$ (VAR dcb : DCB_BUFFR ; " VAR ierr : WORD ) : WORD;"EXTERNAL;  !FUNCTION RTE_FMPREAD $ALIAS 'FMPREAD'$ (VAR dcb : DCB_BUFFR ;! VAR ierr : WORD ;  VAR ibuf : WORD ; " VAR maxlen : WORD) : WORD;"EXTERNAL;  "FUNCTION RTE_FMPWRITED $ALIAS 'FMPWRITE'$ (VAR dcb : DCB_BUFFR ; " VAR ierr : WORD ; ! VAR ibuf : UPLD_DESCRIPTOR_REC_TYPE;! VAR maxlen : WORD) : WORD;EXTERNAL; "FUNCTION RTE_FMPWRITEA $ALIAS 'FMPWRITE'$ (VAR dcb : DCB_BUFFR ; " VAR ierr : WORD ; $ VAR ibuf : PCIF_BUFFER_TYPE;$" VAR maxlen : WORD) : WORD;"EXTERNAL;  $FIXED_STRING OFF$  PROCEDURE RTE_PARSE $ALIAS 'PARSE'$  ( ubuf : STRING80 ;  count : WORD; VAR pbuff : NAMR_TYPE); EXTERNAL;  PROCEDURE RTE_CVT_INT_ASC $ALIAS 'CNUMD'$  ( num : WORD; VAR bufr : STRING6); EXTERNAL;  PROCEDURE RTE_STOP_PGM $ALIAS 'EXEC'$  ( ecode : WORD;  prog : WORD);EXTERNAL;  PROCEDURE get_time $ALIAS 'Pas.TimeString'$  (VAR time_string : STRING26); EXTERNAL; {----------------------------------------------------}{ }{ PCIF/1000 LIBRARY : PROCEDURE CALL DEFINITIONS }{ }{----------------------------------------------------}  PROCEDURE PC_CANCEL (VAR stat : WORD ; pc : WORD ; oldtag : WORD ; typec : WORD) ; EXTERNAL;   PROCEDURE PCIF_CLOSE (VAR stat : WORD);  EXTERNAL;  PROCEDURE PC_CONNECT (VAR stat : WORD ; tag : WORD ; contwd : WORD ; pc : WORD) ; EXTERNAL;   PROCEDURE PC_DISC (VAR stat : WORD ; pc : WORD ; password : WORD) ; EXTERNAL;    PROCEDURE PCIF_ERROR ( stat : WORD ; VAR buffer : STRING80 ; VAR length : WORD) ; EXTERNAL ;  PROCEDURE PC_GETKEY (VAR stat : WORD ; VAR akey : WORD);  EXTERNAL;  PROCEDURE PC_LOCK (VAR stat : WORD ; pc : WORD) ; EXTERNAL;   PROCEDURE PCIF_OPEN (VAR stat : WORD); EXTERNAL;   PROCEDURE PC_PCSTAT (VAR stat : WORD ; tag : WORD ; contwd : WORD ; pc : WORD ;  VAR buffr : PCIF_BUFFER_TYPE) ;EXTERNAL;  PROCEDURE PC_READD (VAR stat : WORD ; tag : WORD ; contwd : WORD ; pc : WORD ;  VAR buffr : PCIF_BUFFER_TYPE ;  lengt : WORD ;  pcadr : PCADR_TYPE); EXTERNAL;   PROCEDURE PC_READP (VAR stat : WORD ; tag : WORD ; contwd : WORD ; pc : WORD ;  VAR buffr : PCIF_BUFFER_TYPE ;  lengt : WORD ;  pcadr : PCADR_TYPE); EXTERNAL;   PROCEDURE PC_RELKEY (VAR stat : WORD ; VAR akey : WORD);  EXTERNAL;  PROCEDURE PC_START  (VAR stat : WORD ; tag, contwd, pc : WORD) ; EXTERNAL;   PROCEDURE PC_STOP  (VAR stat : WORD ; tag, contwd, pc : WORD) ; EXTERNAL;   PROCEDURE PC_SYSTAT (VAR stat : WORD ; pc : WORD ;  VAR buffr : PCIF_BUFFER_TYPE);EXTERNAL;   PROCEDURE PC_TRANS  (VAR stat : WORD ; tag, contwd, pc, subfct : WORD ; VAR buffs : PCIF_BUFFER_TYPE ; lengs : WORD ; VAR buffr : PCIF_BUFFER_TYPE ; lengr : WORD) ; EXTERNAL;   PROCEDURE PC_UNLOCK (VAR stat : WORD ; pc : WORD) ; EXTERNAL;  PROCEDURE PC_WRITED  (VAR stat : WORD ; tag, contwd, pc : WORD ; VAR buffr : PCIF_BUFFER_TYPE ; lengt : WORD ; pcadr : PCADR_TYPE); EXTERNAL;   PROCEDURE PC_WRITEP  (VAR stat : WORD ; tag, contwd, pc : WORD ; VAR buffr : PCIF_BUFFER_TYPE ; lengt : WORD ; pcadr : PCADR_TYPE);EXTERNAL;   PROCEDURE PC_IDENT  (VAR stat : WORD;  tag, contwd, pc : WORD;  VAR buffr : IDENT_BUFFER_TYPE; VAR lengr : WORD) ; EXTERNAL;   PROCEDURE GM_ERROR  ( err_num : WORD;  VAR buffer : STRING80 ;  VAR len : WORD) ;EXTERNAL;  {---------------------------------------} { } { f i n i s h _ u p } { } {---------------------------------------} PROCEDURE finish_up (stat, pc : WORD); VAR err : WORD;  BEGIN {finish_up}  close (in_file); close (out_file);  err := rte_fmpclose (upld_file_dcb, err);  IF (pc <> 0) THEN pc_unlock (stat,pc);  pcif_close(err); rte_stop_pgm(6,0); END; {finish_up}  {---------------------------------------} { } { c a t c h _ p a s c a l _ e r r o r } { } {---------------------------------------} PROCEDURE catch_pascal_error $ALIAS 'Pas.ErrorCatcher'$  (err_type : ERROR_TYPE; err_number : WORD; err_line : WORD; err_file : FILE_NAME;  err_flen : WORD); VAR  stat : WORD;   BEGIN {catch_pascal_error}  IF (err_catcher_already_here) THEN rte_stop_pgm (6,0)  ELSE BEGIN {First invocation, shut down the program.}& print_pascal_error(err_type, err_number, err_line, err_file, err_flen); & err_catcher_already_here := TRUE;  pc_unlock (stat, pcif_pc); finish_up (0, pcif_pc);  END; END; {catch_pascal_error}   {---------------------------------------} { } { h a l t _ p c i f _ e r r o r } { } {---------------------------------------} PROCEDURE halt_pcif_error(err, pc_id : WORD);  VAR  buffr : STRING80; length, i : WORD;   BEGIN {halt_pcif_error}   IF (err <= 512) THEN pcif_error (err, buffr, length) ELSE gm_error(err, buffr, length); FOR i := 1 TO length DO write (out_file, buffr[i]);  writeln (out_file); writeln (out_file); finish_up (err, pc_id);   END; {halt_pcif_error}  {---------------------------------------} { } { p r i n t _ f m p _ e r r o r } { } {---------------------------------------} PROCEDURE print_fmp_error(err_num : WORD); CONST  FMP_ERR_MSG = STRING40  ['Fmp error occurred in file '];VAR  i : WORD;  ascii_num : STRING6; buffr : STRING80;  length : WORD;  BEGIN {print_fmp_error}   buffr := fmp_err_msg;   FOR i := 41 TO 80 DO buffr[i] := ' ';  IF (err_num < 0) THEN  BEGIN {Insert minus sign in the buffer}  buffr[11] := '-'; err_num := -err_num;  END;  IF (err_num <> 0) THEN  BEGIN  rte_cvt_int_asc (err_num, ascii_num);  FOR i := 1 to 6 DO  buffr[i + 11] := ascii_num[i]; END;  FOR i := 1 TO 80 DO write ( out_file, buffr[i]); writeln (out_file);   END; {print_fmp_error}  {---------------------------------------} { } { h a l t _ f m p _ e r r o r } { } {---------------------------------------} PROCEDURE halt_fmp_error(err_num, pc_id : WORD);  BEGIN {halt_fmp_error}  print_fmp_error (err_num); finish_up (err_num, pc_id);   END; {halt_fmp_error}  {---------------------------------------} { } { r e s t a r t } { } {---------------------------------------} PROCEDURE restart (pc : WORD;  VAR restart_pc : BOOLEAN);  VAR err, stat : WORD; ((  BEGIN {restart}  stat := 0; IF restart_pc THEN pc_start (stat, pcif_tag, pcif_key, pc);  restart_pc := FALSE;  IF (stat <> 0) THEN halt_pcif_error (stat, pc); END; {restart} {---------------------------------------} { } { f i n d _ i n t e g e r } { } {---------------------------------------}  FUNCTION find_integer(VAR number : INTEGER) : BOOLEAN ;  CONST  char_digit ='0123456789' ;  VAR  index1 : WORD ; command_char : CHAR ;  end_number_flag : BOOLEAN ; negative_flag : BOOLEAN ; BEGIN   negative_flag := FALSE ; find_integer:= FALSE ;  WHILE (command_ptr<69) AND (command_string[command_ptr]=' ')  DO command_ptr := command_ptr + 1 ; IF (command_string[command_ptr]='-')  THEN BEGIN  negative_flag := TRUE ; command_ptr := command_ptr+1 ;  END ;  end_number_flag := FALSE ;  number := 0 ; WHILE (NOT end_number_flag) AND (command_ptr<=79) DO  BEGIN command_char := command_string[command_ptr] ;  index1 := 0 ; found_flag := FALSE ;  REPEAT BEGIN index1 := index1 + 1 ; IF (char_digit[index1]=command_char) THEN found_flag := TRUE ;  END ; { end REPEAT }  UNTIL  found_flag OR (index1>=10) ;  IF found_flag  THEN BEGIN number := number * 10 + index1 - 1 ; find_integer:= TRUE ;  END ELSE BEGIN end_number_flag := TRUE ;  END ; { end if found_flag }  IF (command_char='*')  OR  (command_char='a')  OR  (command_char='A')  OR " ((command_char='/') AND ((command_string[command_ptr+1]='E') "% OR (command_string[command_ptr+1]='e'))) % THEN stop_flag := TRUE ELSE command_ptr := command_ptr + 1 ;  END ; { end WHILE NOT end_number_flag } IF (negative_flag) THEN number := -number ; END ; { end of PROCEDURE find_integer}{---------------------------------------} { } { f i n d _ n u m b e r } { } {---------------------------------------}  FUNCTION find_number (VAR number : WORD) : BOOLEAN ; VAR  long_number : INTEGER ; flag : BOOLEAN ;  BEGIN   flag := find_integer (long_number) ;  IF flag AND (NOT stop_flag) THEN BEGIN  find_number := TRUE ; IF (long_number>=-32768) AND (long_number<=32767) THEN number := long_number  ELSE find_number := FALSE ; END  ELSE BEGIN  find_number := FALSE ;  END  ; { end IF flag } END ; { end of PROCEDURE find_number }{-----------------------------------} { } { g e t _ i n p u t } { } {-----------------------------------}  PROCEDURE get_input (ask : STRING40; len : WORD) ; VAR  eof_flag : BOOLEAN ;  i : WORD; BEGIN  eof_flag := TRUE ; WHILE eof_flag DO  BEGIN  FOR i := 1 TO len DO write (out_file, ask[i]);  PROMPT(out_file);  IF EOF(in_file) THEN BEGIN  RESET(in_file) ; eof_flag := TRUE ; END ELSE BEGIN  READLN(in_file, command_string) ; command_ptr := 1 ;  eof_flag := FALSE ; END ; { end IF EOF } END ; { end WHILE ... }  END ; { end of PROCEDURE get_input }{---------------------------------------} { } { g e t _ i n _ s t r i n g } { } {---------------------------------------}  PROCEDURE get_in_string (VAR in_string: STRING80); VAR  flag : BOOLEAN ;  index : WORD ;  temp : CHAR ;  shift : WORD ;   BEGIN {get_in_string}   in_string := blank_string80;  flag := TRUE ;  WHILE (command_ptr<=80) AND flag DO BEGIN IF (command_string[command_ptr]<>' ') THEN flag:=FALSE ELSE command_ptr := command_ptr+1 ;  END ; flag:=TRUE ;  index := 1 ;  WHILE (command_ptr<=80) AND flag DO BEGIN IF (command_string[command_ptr]=' ') THEN BEGIN flag:=FALSE ;  END ELSE BEGIN IF (index<=80) THEN BEGIN  shift := ORD('a')-ORD('A') ; temp := command_string[command_ptr] ;  CASE temp OF 'a'..'z': temp := CHR(ORD(temp)-shift);  OTHERWISE ;  END ; { end CASE ... } in_string[index]:=temp ; END  ; { end IF ... } command_ptr := command_ptr+1 ; index := index + 1 ; END ; { end IF ... }  END ;" IF (in_string = '/E') OR (in_string = '/e') THEN stop_flag := TRUE; " END ; { end of PROCEDURE get_in_string} {-----------------------------------} { } { g e t _ p c _ n u m } { } {-----------------------------------}  PROCEDURE get_pc_num (VAR pc : WORD);  VAR  flag : BOOLEAN ;   BEGIN {get_pc_num}   pc := 0; REPEAT flag := find_number(pc) ;  IF stop_flag THEN finish_up (0, pc) ELSE IF NOT flag THEN ! get_input (prompt_msg_array[prompt_pcnum],prompt_pcnum_len);! UNTIL (flag OR stop_flag) ;   END ; {get_pc_num} {-----------------------------------} { } { g e t _ y e s } { } {-----------------------------------}  FUNCTION get_yes (prompt : STRING40; len : WORD):BOOLEAN ; CONST  yes = STRING3 ['YES'] ; c_no= STRING2 ['NO'] ; quit= STRING2 ['/E'] ; quit2= STRING2 ['/e'] ;  VAR  yes_no : STRING80; BEGIN  yes_no := blank_string80;  REPEAT get_in_string (yes_no);  IF (yes_no=yes) OR (yes_no='Y')  THEN get_yes := TRUE ELSE IF (yes_no=c_no) OR (yes_no='N') THEN get_yes := FALSE  ELSE IF stop_flag THEN BEGIN  finish_up (0, pcif_pc);  END  ELSE get_input (prompt, len) ; UNTIL (yes_no <> blank_string80); END ; { end of PROCEDURE get_yes }{--------------------------------------------}{ }{ g e t _ f i l e _ n a m e }{ }{--------------------------------------------} PROCEDURE get_file_name (VAR fname : STRING80);  VAR  index : WORD ;   BEGIN {get_file_name}   fname := blank_string80;  REPEAT get_in_string (fname);  IF (stop_flag = TRUE) THEN finish_up (0, pcif_pc); IF fname=blank_string80 THEN get_input (prompt_msg_array[prompt_upld_name],  prompt_upld_name_len); UNTIL (fname<>blank_string80) ;   END ; {get_file_name}  {--------------------------------------------}{ }{ g e t _ h e a d e r _ r e c o r d }{ }{--------------------------------------------} PROCEDURE get_header_record (VAR header_rec : STRING80); VAR  i, index : WORD ;   BEGIN {get_header_record}   header_rec := blank_string80;  REPEAT" WHILE (command_ptr <= 80) AND (command_string[command_ptr] = ' ') " DO command_ptr := command_ptr + 1; IF command_ptr <= 80 THEN  FOR i := command_ptr TO 80 DO header_rec[i-command_ptr+1] := command_string[i];  IF (header_rec = '/E') OR (header_rec = '/e')  THEN finish_up (0,pcif_pc); IF header_rec=blank_string80 THEN  get_input (prompt_msg_array[prompt_header], prompt_header_len);  UNTIL (header_rec<>blank_string80) ;  END ; {get_header_record}  {--------------------------------------------}{ }{ g e t _ s t a r t _ f l a g }{ }{--------------------------------------------} PROCEDURE get_start_flag (VAR start_pc : BOOLEAN); VAR  index : WORD ;   BEGIN {get_start_flag}   start_pc := get_yes (prompt_msg_array[prompt_start_pc],  prompt_start_pc_len); END ; {get_start_flag}    PROCEDURE print_msg (msg : STRING120; len : WORD);VAR  i : WORD; BEGIN {print_msg}  FOR i := 1 TO len DO write (out_file, msg[i]); writeln(out_file); END; {print_msg}    %PROCEDURE print_err_wmsg_num (msg_num, {Index to msg array; text template} % msg_len, {Length of total msg.}$ err_num, {Error number to include in msg.} $$ err_offset : WORD; {Offset to put err num}$" add_txt : STRING80; {Extra msg segment} " add_txt_len, {Length}$ add_txt_offset : WORD); {loc of extra msg}$ {Prints the message contained ((in msg_num index to err_msg_array, and inserts the ascii coded err_num into the msg at err_offset. !If the err_num is not zero, it will be added in at the err_offset.!#If the add_txt_len is not zero, the extra msg segment will be added in#at the add_txt_offset location of the buffer. Prints the message of total length msg_len.} VAR  ascii_num : STRING6; error_text : STRING120;  i : WORD;  BEGIN {print_err_wmsg_num}  FOR i := 1 TO err_msg_len DO error_text[i] := error_msg_array[msg_num,i];  IF (err_num < 0) THEN  BEGIN {Insert minus sign in the buffer}  error_text[err_offset] := '-';  err_offset := err_offset + 1; err_num := -err_num;  END;  IF (err_num <> 0) THEN  BEGIN  rte_cvt_int_asc (err_num, ascii_num);  FOR i := 1 to 6 DO  error_text[i+err_offset-1] := ascii_num[i];  END;  IF (add_txt_len > 0) THEN  FOR i := 1 TO add_txt_len DO error_text[i+add_txt_offset-1] := add_txt[i];  print_msg (error_text, msg_len);  END; {print_err_wmsg_num}  {---------------------------------------} { } { g e t _ f r a g m e n t _ p a r m s } { } {---------------------------------------} PROCEDURE get_fragment_parms ( max_buff_size, buff_len : WORD; VAR num_reads, lengr, remainder_lengr, remainder_chars : WORD);{There is always a remainder buffer included in num_reads, and!this will result in values in remainder_lengr and remainder_chars,!#even if these values are of max_buff_size (as for the 1 to num_reads-1#buffers).}  BEGIN {get_fragment_parms}   IF (buff_len <= max_buff_size) THEN  BEGIN  lengr := buff_len + 16384; {byte length}  num_reads := 1;  remainder_chars := buff_len; remainder_lengr := buff_len + 16384; END  ELSE BEGIN  lengr := max_buff_size + 16384;  num_reads := buff_len DIV max_buff_size; remainder_chars := buff_len MOD max_buff_size; remainder_lengr := remainder_chars + 16384;  IF (remainder_chars <> 0) THEN num_reads := num_reads + 1  ELSE BEGIN {remainder of 0, so put full buff in remainder.} remainder_chars := max_buff_size;  remainder_lengr := remainder_chars + 16384;  END; END;   END; {get_fragment_parms}  {---------------------------------------} { } { g e t _ m e m _ b u f f } { } {---------------------------------------} PROCEDURE get_mem_buff ( pc : WORD; pcadr : PCADR_TYPE;  buff_len : WORD; {in bytes}  VAR buff : PCIF_BUFFER_TYPE); {Reads a byte of length buff_len of absolute memory locations using READP starting at the address in PCADR.} VAR  i, j, lengr, stat : WORD;  num_reads, remainder_chars : WORD; remainder_lengr : WORD;   BEGIN {get_mem_buff}   stat := 0; FOR i := 1 TO pcif_buffer_size DIV 2 DO buff.wd[i] := 0; get_fragment_parms(pcif_buffer_size,buff_len, num_reads, lengr, remainder_lengr, remainder_chars);  FOR i := 1 TO num_reads - 1 DO BEGIN  pc_readp (stat, pcif_tag, pcif_key, pc,  mem_contents_array, lengr,pcadr);  IF (stat <> 0) THEN halt_pcif_error (stat, pc);  FOR j := 1 TO pcif_buffer_size DO # buff.by[j+(i-1)*pcif_buffer_size] := mem_contents_array.by[j];#" pcadr.double_wd := pcadr.double_wd + (pcif_buffer_size DIV 2);" {add word address}  END;  pc_readp (stat, pcif_tag, pcif_key, pc, mem_contents_array,  remainder_lengr, pcadr); IF (stat <> 0) THEN halt_pcif_error (stat, pc);  FOR i := 1 TO remainder_chars DO buff.by[i+(num_reads-1)*pcif_buffer_size] :=  mem_contents_array.by[i]; END; {get_mem_buff}  {---------------------------------------} { } { g e t _ d a t a _ b u f f } { } {---------------------------------------} PROCEDURE get_data_buff ( pc : WORD; pcadr : PCADR_TYPE;  buff_len : WORD; {in bytes}  VAR buff : PCIF_BUFFER_TYPE); {Reads data using READD starting at PCADR for length buff_len.}  VAR  i, j, lengr, stat : WORD;  num_reads, remainder_chars : WORD; remainder_lengr : WORD;   BEGIN {get_data_buff}  stat := 0; FOR i := 1 TO pcif_buffer_size DIV 2 DO buff.wd[i] := 0; get_fragment_parms(pcif_buffer_size,buff_len, num_reads, lengr, remainder_lengr, remainder_chars);  FOR i := 1 TO num_reads - 1 DO BEGIN  pc_readd (stat, pcif_tag, pcif_key, pc,  mem_contents_array, lengr,pcadr);  IF (stat <> 0) THEN halt_pcif_error (stat, pc);  FOR j := 1 TO pcif_buffer_size DO # buff.by[j+(i-1)*pcif_buffer_size] := mem_contents_array.by[j];#" pcadr.double_wd := pcadr.double_wd + (pcif_buffer_size DIV 2);" {add word address}  END;  pc_readd (stat, pcif_tag, pcif_key, pc, mem_contents_array,  remainder_lengr, pcadr); IF (stat <> 0) THEN halt_pcif_error (stat, pc);  FOR i := 1 TO remainder_chars DO buff.by[i+(num_reads-1)*pcif_buffer_size] :=  mem_contents_array.by[i]; END; {get_data_buff}  {--------------------------------------}{ }{ g e t _ l o g i c _ b u f f e r }{ }{--------------------------------------}PROCEDURE get_logic_buffer ( pc : WORD;  pcadr : PCADR_TYPE; buff_len : WORD; {in bytes}% VAR buff : PCIF_BUFFER_TYPE); {rtn data buffer}%%{This procedure reads data from the 484 PC's user logic into buff of length %% buff_len. For the 884 PC, the maximum allowable network size per read is%& 77 words. Any network larger than 77 words will cause a fatal PCIF error.}& VAR lengr, stat : WORD; {len in words}  BEGIN {get_logic_buffer}  stat := 0; lengr := buff_len DIV 2;  pc_readp (stat, pcif_tag, pcif_key, pc, buff, lengr, pcadr); IF (stat <> 0) THEN halt_pcif_error (stat, pc); END; {----------------------------------------}{ }{ w r i t e _ 5 8 4 _ c f g _ t a b l e }{ }{----------------------------------------}PROCEDURE write_584_cfg_table ( sect, pc : WORD;  cfg_buffer : CFG_BUFFER_TYPE;  cfg_buff_len : WORD; VAR chk_sum : INTEGER); {Write the PCs config table out to the data file.}VAR  i, wd_len, actual_length, fmp_error : WORD;  descriptor_rec : UPLD_DESCRIPTOR_REC_TYPE;  BEGIN {write_584_cfg_table}  descriptor_rec.sect_num := sect; descriptor_rec.start_adr := 48;  descriptor_rec.len := cfg_buff_len;   FOR i := 1 TO cfg_buff_len DIV 2 DO  BEGIN  mem_contents_array.wd[i] :=cfg_buffer[i];  chk_sum := chk_sum + mem_contents_array.abs_by[2*i-1]  + mem_contents_array.abs_by[2*i]; END;  wd_len := file_descript_rec_len; FOR i := 1 TO file_descript_rec_len DO" chk_sum:= chk_sum+ descriptor_rec.lrc_bytes[i];" actual_length := rte_fmpwrited (upld_file_dcb, fmp_error,  descriptor_rec, wd_len); IF (fmp_error <> 0) THEN halt_fmp_error(fmp_error, pc);   wd_len := cfg_buff_len;  actual_length := rte_fmpwritea (upld_file_dcb, fmp_error,  mem_contents_array, wd_len);  IF (fmp_error <> 0) THEN halt_fmp_error (fmp_error, pc); chk_sum := chk_sum MOD 256;   END; {write_584_cfg_table}  {---------------------------------------} { } { w r i t e _ 4 8 4 _ c f g } { } {---------------------------------------} PROCEDURE write_484_cfg ( pc : WORD;! cfg_484_buffer : SINGLE_WORD_TYPE;! VAR chk_sum : INTEGER);{Write the PCs config table out to the data file.}VAR  i, wd_len, actual_length, fmp_error : WORD;  descriptor_rec : UPLD_DESCRIPTOR_REC_TYPE;  BEGIN {write_484_cfg}  descriptor_rec.sect_num := 2; descriptor_rec.start_adr := 24766; descriptor_rec.len := 2;  mem_contents_array.wd[1] := cfg_484_buffer.wd; chk_sum := chk_sum + mem_contents_array.abs_by[1]  + mem_contents_array.abs_by[2];  wd_len := file_descript_rec_len; FOR i := 1 TO file_descript_rec_len DO" chk_sum:= chk_sum+ descriptor_rec.lrc_bytes[i];" actual_length := rte_fmpwrited (upld_file_dcb, fmp_error,  descriptor_rec, wd_len); IF (fmp_error <> 0) THEN halt_fmp_error(fmp_error, pc);   wd_len := 2; actual_length := rte_fmpwritea (upld_file_dcb, fmp_error,  mem_contents_array, wd_len);  IF (fmp_error <> 0) THEN halt_fmp_error (fmp_error, pc); chk_sum := chk_sum MOD 256;  END; {write_484_cfg((}  {---------------------------------------} { } { w r i t e _ 8 8 4 _ c f g } { } {---------------------------------------} PROCEDURE write_884_cfg ( pc : WORD; len_logic : WORD; VAR chk_sum : INTEGER);{Write the number of user logic network for 884 PC} VAR  i, wd_len, actual_length, fmp_error : WORD;  descriptor_rec : UPLD_DESCRIPTOR_REC_TYPE;  BEGIN {write_884_cfg}  descriptor_rec.sect_num := 2; descriptor_rec.start_adr := 0; descriptor_rec.len := 2;  mem_contents_array.wd[1] := len_logic; chk_sum := chk_sum + mem_contents_array.abs_by[1]  + mem_contents_array.abs_by[2];  wd_len := file_descript_rec_len; FOR i := 1 TO file_descript_rec_len DO" chk_sum:= chk_sum+ descriptor_rec.lrc_bytes[i];" actual_length := rte_fmpwrited (upld_file_dcb, fmp_error,  descriptor_rec, wd_len); IF (fmp_error <> 0) THEN halt_fmp_error(fmp_error, pc);   wd_len := 1; actual_length := rte_fmpwritea (upld_file_dcb, fmp_error,  mem_contents_array, wd_len); IF (fmp_error <> 0) THEN halt_fmp_error (fmp_error, pc); chk_sum := chk_sum MOD 256;   END; {write_884_cfg}  {---------------------------------------} { } { w r i t e _ d a t a _ s e c t i o n } { } {---------------------------------------} PROCEDURE write_data_section ( sect,  pc : WORD;  start_addr : INTEGER;" len : WORD; {in bytes} " VAR chk_sum : INTEGER); {Writes data out to the data file.}  VAR  num_reads, lengr, rem_lengr, rem_chars : WORD; pcadr : PCADR_TYPE;  i, j, fmp_error, wd_len, actual_length : WORD; descript_rec : UPLD_DESCRIPTOR_REC_TYPE;  BEGIN {write_data_section}  pcadr.double_wd := start_addr; IF (pc_type <> 884) THEN  BEGIN { mask off the top part of the pcadr } pcadr.hi_wd := 0;  END; { mask off the top part of the pcadr } " get_fragment_parms (upld_file_data_rec_size, len, num_reads, lengr, " rem_lengr, rem_chars); descript_rec.sect_num := sect; descript_rec.len := upld_file_data_rec_size;    FOR i := 1 TO num_reads -1 DO  BEGIN  get_data_buff (pc, pcadr, upld_file_data_rec_size, mem_contents_array); descript_rec.start_adr := pcadr.lo_wd; wd_len := file_descript_rec_len; FOR j := 1 TO file_descript_rec_len DO$ chk_sum := chk_sum + descript_rec.lrc_bytes[j];$ actual_length := rte_fmpwrited (upld_file_dcb, fmp_error,  descript_rec, wd_len); IF (fmp_error <> 0) THEN halt_fmp_error(fmp_error, pc);   FOR j := 1 TO upld_file_data_rec_size DO BEGIN  chk_sum := chk_sum + mem_contents_array.abs_by[j]; END; wd_len := upld_file_data_rec_size; actual_length := rte_fmpwritea (upld_file_dcb, fmp_error,  mem_contents_array, wd_len); IF (fmp_error <> 0) THEN halt_fmp_error (fmp_error, pc); chk_sum := chk_sum MOD 256;  {Now increment word address by word value.} ! pcadr.lo_wd := pcadr.lo_wd + (upld_file_data_rec_size DIV 2)! END;  {Now write remainder record.}  get_data_buff (pc, pcadr, rem_chars, mem_contents_array);  descript_rec.start_adr := pcadr.lo_wd; descript_rec.len := rem_chars; wd_len := file_descript_rec_len; FOR i := 1 TO file_descript_rec_len DO" chk_sum := chk_sum + descript_rec.lrc_bytes[i];" actual_length := rte_fmpwrited (upld_file_dcb, fmp_error,  descript_rec, wd_len); IF (fmp_error <> 0) THEN halt_fmp_error(fmp_error, pc);   FOR i := 1 TO rem_chars DO BEGIN  chk_sum := chk_sum + mem_contents_array.abs_by[i]; END; actual_length := rte_fmpwritea (upld_file_dcb, fmp_error,  mem_contents_array, rem_chars); IF (fmp_error <> 0) THEN halt_fmp_error (fmp_error, pc); chk_sum := chk_sum MOD 256;   END; {write_data_section}  {---------------------------------------} { } { w r i t e _ d x _ f n _ n u m s } { } {---------------------------------------} PROCEDURE write_dx_fn_nums ( sect,  pc,  dx_count : WORD; VAR chk_sum : INTEGER); {Reads the DX function descriptors from the PCusing READP and writes them to the data file.} VAR  wd_len, fmp_error, i, j, lengr : WORD; actual_length, stat : WORD;  pcadr : PCADR_TYPE;  descriptor_rec : UPLD_DESCRIPTOR_REC_TYPE;  BEGIN {write_dx_fn_nums}  " FOR i := 1 TO (dx_count MOD 256) DO { only keeping the low byte }" BEGIN  pcadr.double_wd := 0;  pcadr.hi_byte := READ_DX_FN; pcadr.lo_byte := i;  lengr := READ_DX_FN_BYTE_LEN + 16384; {byte length}  pc_readp (stat, pcif_tag, pcif_key, pc,  mem_contents_array, lengr,pcadr);  IF (stat <> 0) THEN halt_pcif_error (stat, pc);   descriptor_rec.sect_num := sect; descriptor_rec.start_adr := i; descriptor_rec.len := READ_DX_FN_BYTE_LEN;  wd_len := file_descript_rec_len; FOR j := 1 TO file_descript_rec_len DO" chk_sum:= chk_sum+ descriptor_rec.lrc_bytes[j];" actual_length := rte_fmpwrited (upld_file_dcb, fmp_error,  descriptor_rec, wd_len); IF (fmp_error <> 0) THEN halt_fmp_error(fmp_error, pc);   FOR j := 1 TO READ_DX_FN_BYTE_LEN DIV 2 DO BEGIN  chk_sum := chk_sum + mem_contents_array.abs_by[2*j-1]  + mem_contents_array.abs_by[2*j]; END;  wd_len := READ_DX_FN_BYTE_LEN; actual_length := rte_fmpwritea (upld_file_dcb, fmp_error,  mem_contents_array, wd_len);  IF (fmp_error <> 0) THEN halt_fmp_error (fmp_error, pc); END;  chk_sum := chk_sum MOD 256;   END; {write_dx_fn_nums}   {---------------------------------------} { } { w r i t e _ c h e c k s u m } { } {---------------------------------------} PROCEDURE write_checksum ( sect : WORD; VAR chk_sum : INTEGER); {Calculates the checksum for the file and writesit out.} VAR  wd_len, i, actual_length, fmp_error : WORD;  descriptor_rec : UPLD_DESCRIPTOR_REC_TYPE;  BEGIN {write_checksum}  descriptor_rec.sect_num := sect;  descriptor_rec.start_adr := -1;  descriptor_rec.len := 2;  wd_len := file_descript_rec_len; FOR i := 1 TO file_descript_rec_len DO" chk_sum:= chk_sum+ descriptor_rec.lrc_bytes[i];" actual_length := rte_fmpwrited (upld_file_dcb, fmp_error,  descriptor_rec, wd_len);  IF (fmp_error <> 0) THEN halt_fmp_error(fmp_error, pcif_pc);  wd_len := 2; chk_sum := chk_sum MOD 256;  mem_contents_array.wd[1] := chk_sum; actual_length := rte_fmpwritea (upld_file_dcb, fmp_error,  mem_contents_array, wd_len);  IF (fmp_error <> 0) THEN halt_fmp_error (fmp_error, pcif_pc);  END; {write_checksum}    {---------------------------------------} { } { w r i t e _ h e a d e r } { } {---------------------------------------} PROCEDURE write_header ( sect, model, pc_id : WORD;  header_buff : STRING80; VAR chk_sum : INTEGER); VAR  fmp_error : WORD; ascii_model : STRING6; time_string : STRING26;  header_length, actual_length, wd_len,  i : WORD;  descript_rec : UPLD_DESCRIPTOR_REC_TYPE; BEGIN {write_header}   header_length := 178;  rte_cvt_int_asc (model, ascii_model);  get_time (time_string);  FOR i := 1 TO 40 DO mem_contents_array.by[i] :=  banner_msg_array[banner1_index, i];  FOR i := 1 TO 26 DO mem_contents_array.by[40+i] := banner_msg_array[banner2_index, i]; ! FOR i := 1 to 6 DO mem_contents_array.by[66+i] := ascii_model[i]; !" FOR i := 1 TO 26 DO mem_contents_array.by[72+i] := time_string[i];"! FOR i := 1 TO 80 DO mem_contents_array.by[98+i] :=header_msg[i];!  wd_len := file_descript_rec_len; descript_rec.sect_num := sect; descript_rec.start_adr:= -1; descript_rec.len := header_length;  FOR i := 1 TO file_descript_rec_len DO" chk_sum := chk_sum + descript_rec.lrc_bytes[i];" actual_length := rte_fmpwrited (upld_file_dcb, fmp_error,  descript_rec, wd_len); IF (fmp_error <> 0) THEN halt_fmp_error(fmp_error, pc_id);  FOR i := 1 TO header_length DO chk_sum := chk_sum + " mem_contents_array.abs_by[i]; " actual_length := rte_fmpwritea (upld_file_dcb, fmp_error, " m((em_contents_array, header_length);" IF (fmp_error <> 0) THEN halt_fmp_error (fmp_error, pc_id);  chk_sum := chk_sum MOD 256;   END; {write_header}  {--------------------------------------}{ }{ w r i t e _ 4 8 4 _ l o g i c }{ }{______________________________________}PROCEDURE write_484_logic ( sect, pc_id,  len : WORD; VAR chk_sum : INTEGER);VAR  num_reads, rem_lengr, lengr, rem_chars : WORD; pcadr : PCADR_TYPE;  i, j, fmp_error, byte_len, actual_length : WORD; descript_rec :UPLD_DESCRIPTOR_REC_TYPE;  last_buffer : BOOLEAN;   BEGIN {write_484_logic} pcadr.double_wd := 0; pcadr.lo_wd := 2;  pcadr.hi_byte := 16; {READP MBUS SUBFN} & len := len - 2; {first two locations are used for system error chk}&& get_fragment_parms (upld_file_data_rec_size, {max num data in bytes(=144)}&& len, {total len in bytes for upld}&% num_reads, {rtn number of get_buffers}%$ lengr, {in words for user logic}$ rem_lengr, {rtn} rem_chars);{rtn} descript_rec.sect_num := sect;  descript_rec.len := upld_file_data_rec_size; IF (num_reads <> 1) THEN  last_buffer := FALSE  ELSE last_buffer := TRUE;  i := 1;   WHILE NOT last_buffer DO  BEGIN  get_logic_buffer(pc_id,pcadr,upld_file_data_rec_size, ! mem_contents_array); {rtn data} !  descript_rec.start_adr := pcadr.lo_wd; byte_len := 10; $ For j := 1 TO 6 DO chk_sum := chk_sum + descript_rec.lrc_bytes[j];$ actual_length := rte_fmpwrited (upld_file_dcb, fmp_error,  descript_rec, byte_len); IF (fmp_error <> 0) THEN halt_fmp_error(fmp_error, pc_id);   FOR j := 1 TO upld_file_data_rec_size DO chk_sum := chk_sum + mem_contents_array.abs_by[j];  FOR j := 1 TO upld_file_data_rec_size DIV 2 DO IF (mem_contents_array.wd[j] = 1024) THEN  BEGIN  last_buffer := TRUE; rem_chars := 0;  END; byte_len := upld_file_data_rec_size;! actual_length := rte_fmpwritea (upld_file_dcb, fmp_error, !$ mem_contents_array, byte_len); $" IF (fmp_error <> 0) THEN halt_fmp_error(fmp_error, pc_id);" chk_sum := chk_sum MOD 256; # pcadr.lo_wd := pcadr.lo_wd + 144; {inc address for next get} # i := i + 1;  IF (i > num_reads - 1) THEN last_buffer := TRUE; END;  {Write last record}  IF rem_chars <> 0 THEN {check for last buff get}  BEGIN ! get_logic_buffer (pc_id, pcadr, rem_chars, mem_contents_array); ! rem_chars := byte_len;  descript_rec.start_adr := pcadr.lo_wd; byte_len := 10;  FOR i := 1 to file_descript_rec_len DO chk_sum := chk_sum + descript_rec.lrc_bytes[i];  actual_length := rte_fmpwrited (upld_file_dcb, fmp_error,  descript_rec, byte_len);  IF (fmp_error <> 0) THEN halt_fmp_error(fmp_error, pc_id);  FOR i := 1 TO rem_chars DO chk_sum := chk_sum + mem_contents_array.abs_by[i]; byte_len := rem_chars;  actual_length := rte_fmpwritea (upld_file_dcb, fmp_error, ! mem_contents_array, byte_len);! IF (fmp_error <> 0) THEN halt_fmp_error(fmp_error, pc_id); chk_sum := chk_sum MOD 256;  END; END; {write_484_logic}  {--------------------------------------}{ }{ w r i t e _ 8 8 4 _ l o g i c }{ }{______________________________________}PROCEDURE write_884_logic ( sect, pc_id,  len : WORD; VAR chk_sum : INTEGER);VAR  pcadr : PCADR_TYPE;  i, j, fmp_error, byte_len, network_len, actual_length : WORD;  descript_rec :UPLD_DESCRIPTOR_REC_TYPE;   BEGIN {write_884_logic} pcadr.double_wd := 0; pcadr.lo_wd := 1;  pcadr.hi_byte := 32; {READP MBUS SUBFN - Read Str code}  descript_rec.sect_num := sect;  descript_rec.len := upld_file_data_rec_size;  FOR i := 1 to len DO  BEGIN  get_logic_buffer(pc_id,pcadr,upld_file_data_rec_size, ! mem_contents_array); {rtn data} !  network_len := mem_contents_array.abs_by[2]; descript_rec.len := network_len; descript_rec.start_adr := pcadr.lo_wd;  byte_len := 10; $ For j := 1 TO 6 DO chk_sum := chk_sum + descript_rec.lrc_bytes[j];$ actual_length := rte_fmpwrited (upld_file_dcb, fmp_error,  descript_rec, byte_len); IF (fmp_error <> 0) THEN halt_fmp_error(fmp_error, pc_id);   FOR j := 3 TO network_len+2 DO BEGIN  chk_sum := chk_sum + mem_contents_array.abs_by[j];$ mem_contents_array.abs_by[j-2] := mem_contents_array.abs_by[j]; $ END;  actual_length := rte_fmpwritea (upld_file_dcb, fmp_error, # mem_contents_array, network_len); # IF (fmp_error <> 0) THEN halt_fmp_error(fmp_error, pc_id);  chk_sum := chk_sum MOD 256;  pcadr.lo_wd := pcadr.lo_wd + 1; {inc address for next get}  END; END; {write_884_logic}  {---------------------------------------} { } { r e a d _ 5 8 4 c f g _ t a b l e } { } {---------------------------------------} PROCEDURE read_584_cfg_table ( pc_id : WORD;  VAR cfg_buff : CFG_BUFFER_TYPE; VAR load_tbl : LOAD_TABLE_TYPE); {Reads the config table of the PC (starting atabsolute address 48 decimal) using readp calls.} VAR  lengr, num_reads : WORD; pcadr : PCADR_TYPE;  stat : WORD;  buff : PCIF_BUFFER_TYPE;  i, j : WORD;  {***********************} { } { add_load_entry } { } {***********************}  PROCEDURE add_load_entry (sect,  start, len : WORD); {Len is length in word or node units.}   VAR  adr : MULTI_WORD_TYPE;   BEGIN {add_load_entry}  load_tbl[sect].start_address := start; load_tbl[sect].length := len; END; {add_load_entry}   BEGIN {read_584_cfg_table} pcadr.double_wd := 0; pcadr.hi_byte := 3; pcadr.lo_byte := 48;  get_mem_buff (pc_id, pcadr, CFG_TABLE_SIZE*2, buff);  FOR i := 1 TO CFG_TABLE_SIZE DO cfg_buff[i] := buff.wd[i]; "{Now build the load table, used in uploading other memory locations.} "  {section, start address, length} add_load_entry (1,0,0); {File header.} add_load_entry (2,48,CFG_TABLE_SIZE); {Config table.} add_load_entry (3,1,CFG_BUFF[6] DIV 16);{Output coils.}  add_load_entry (4,-25535,CFG_BUFF[17]);{output registers}  FOR i := 5 TO 6 DO  add_load_entry (i, 0, 0); {Avail DX and checksum}  END; {read_584_cfg_table}  {---------------------------------------} { } { r e a d _ 4 8 4 _ c f g } { } {---------------------------------------} PROCEDURE read_484_cfg ( pc_id : WORD;! VAR cfg_484_buffer : SINGLE_WORD_TYPE;!" VAR len_logic,len_stat, len_reg : WORD );"{Reads the two bytes from the PC (starting at absolute address 60276 octal) using a readp call.} VAR  pcadr : PCADR_TYPE; stat, lengr : WORD;  buff : PCIF_BUFFER_TYPE;  BEGIN {read_484_cfg}  stat := 0; pcadr.double_wd := 0;  pcadr.hi_byte := 16; {READP MBUS_subfn for 484 PC}  pcadr.lo_wd := 24766; {octal address 60276}  lengr := 1; {length to receive is one word}  pc_readp (stat,pcif_tag,pcif_key,pc_id,buff,lengr,pcadr);  IF (stat <> 0) THEN halt_pcif_error (stat, pc_id);  cfg_484_buffer.wd := buff.wd[1]; IF (cfg_484_buffer.by1 = 1) THEN! len_logic := 8192 {8192-8 bit words}! ELSE len_logic := cfg_484_buffer.by1 * 32; CASE len_logic OF   256, 512 : BEGIN  len_stat := 8;  len_reg := 126;  END;   1024 : BEGIN  len_stat := 16; len_reg := 252;  END;   2048 : BEGIN  len_stat := 24; len_reg := 380;  END;   4096, 8192 : BEGIN  len_stat := 32; len_reg := 508;  END;  OTHERWISE;  END; {CASE} END; {read_484_cfg}   {---------------------------------------} { } { r e a d _ 8 8 4 _ c f g } { } {---------------------------------------} PROCEDURE read_884_cfg ( pc_id : WORD; VAR len_logic,  (( len_0XXXX,  len_2XXXX,  len_4XXXX,  len_5XXXX,  len_9XXXX : WORD ); '{ ** NOTE: For the 884 PLC, there exists only one version to date (1/20/87) }''{ in which the data areas are fixed and user logic varies with the Rev. }''{ of the PLC. Should a new 884 be introduced (other than the 884-1), this}''{ procedure must then be modified. }' VAR  pcadr : PCADR_TYPE; stat, lengr : WORD;  buff : PCIF_BUFFER_TYPE;   BEGIN {read_884_cfg}  stat := 0; pcadr.double_wd := 0; " pcadr.hi_wd := 25344; {READP MBUS_subfn for 884 PC - Read Table}" pcadr.lo_wd := 5; {table offset 5} lengr := 1; {length to receive is one word}  pc_readp (stat,pcif_tag,pcif_key,pc_id,buff,lengr,pcadr);  IF (stat <> 0) THEN halt_pcif_error (stat, pc_id);  len_logic := 0; " len_logic := buff.abs_by[2]; {number of valid networks}" len_0XXXX := 96; len_2XXXX := 64; len_4XXXX := 1728; len_5XXXX := 64; len_9XXXX := 32;   END; {read_884_cfg}  {---------------------------------------} { } { s t o p _ g m _ p c } { } {---------------------------------------} PROCEDURE stop_gm_pc (pc_id : WORD);VAR  stat : WORD;BEGIN {stop_pc}  stat := 0; pc_stop (stat, pcif_tag, pcif_key, pc_id); & IF (stat = 690) THEN {check for initial reset if out of sequence for 884}& pc_stop (stat, pcif_tag, pcif_key, pc_id); & IF (stat <> 0) AND (stat <> 811) THEN {check 811 for 884 response}&& halt_pcif_error (stat, pc_id); {of already stopped }& END; {stop_pc}   {---------------------------------------} { } { s e t u p _ u s e r _ i n p u t s } { } {---------------------------------------} PROCEDURE setup_user_inputs (VAR logical_pc : WORD;  run_string : STRING80;  VAR start_pc_flag,  stop_pc_flag : BOOLEAN; VAR header_buff : STRING80);  VAR  pbuff : NAMR_TYPE; i, j, istart : WORD;     {***********************} { } { validate_pcnum } { } {***********************}  FUNCTION validate_pcnum (pcnum : WORD):WORD; VAR  stat : WORD; ascii_num : STRING6; BEGIN {validate_pcnum}   validate_pcnum := BAD_PC;  pc_connect(stat, pcif_tag, pcif_contwd, pcnum);   IF (stat = 35) THEN {unknown pc_id}  BEGIN % print_err_wmsg_num (err_unknown_pc_id,err_unknown_pc_id_len,pcnum,% err_unknown_pc_id_offset,' ',0,0);  END  ELSE IF (stat <> 0) THEN BEGIN  halt_pcif_error (stat,pcnum);  END  ELSE BEGIN {Connect ok, now lock} pc_lock (stat, pcnum); IF (stat <> 0) THEN halt_pcif_error (stat,pcnum) ELSE" BEGIN {Use this pc number, set global for error catching.}" validate_pcnum := GOOD_PC; pcif_pc := pcnum;  END; END; END; {validate_pcnum} {***********************} { } { validate_file_name } { } {***********************}  FUNCTION validate_file_name (fname : STRING80):WORD;  VAR  file_type, fmp_error, len, num_dcbs : WORD;  fmp_option,  fmp_name : INTEGER; {File string descriptors for fmp.}   BEGIN {validate_file_name} validate_file_name := BAD_FILENAME;  IF (fname <> blank_string80) THEN BEGIN  fmp_option := rte_fopts_desc (open_create_file, 1, 3); fmp_name := rte_fname_desc (fname, 1,80);   num_dcbs := num_dcb_buffs; file_type := RTE_FmpOpen (upld_file_dcb, fmp_error,  fmp_name, fmp_option,num_dcbs);  IF (fmp_error = -2) THEN BEGIN  len := 80; WHILE (len>0) AND (fname[len] = ' ') DO len := len -1; % print_err_wmsg_num (err_file_exists,err_file_exists_len+len, 0,0, % fname, len, err_file_exists_fmp_offset);  IF (get_yes (prompt_msg_array[prompt_overwrite], prompt_overwrite_len)) THEN BEGIN  num_dcbs := num_dcb_buffs;# fmp_option := rte_fopts_desc (open_overwrite_file, 1, 3); # file_type := RTE_fmpOpen (upld_file_dcb, fmp_error,  fmp_name, fmp_option, num_dcbs);  IF (fmp_error < 0) THEN  BEGIN " print_err_wmsg_num (err_reopen, err_reopen_len+len, "! fmp_error, err_reopen_err_offset, !" fname, len, err_reopen_fmp_offset); " END ELSE  validate_file_name := GOOD_FILENAME; END; END # ELSE IF (fmp_error > 0) THEN validate_file_name := GOOD_FILENAME # ELSE print_fmp_error (fmp_error); END; END; {validate_file_name}   BEGIN {setup_user_inputs}  istart := 1; logical_pc := 0; start_pc_flag := FALSE; stop_pc_flag := TRUE;   get_pc_num(logical_pc);  WHILE (validate_pcnum(logical_pc) = BAD_PC)  DO get_pc_num(logical_pc);  get_file_name(upld_file_name);  WHILE (validate_file_name (upld_file_name) = BAD_FILENAME) DO get_file_name(upld_file_name);   get_start_flag (start_pc_flag);   get_header_record (header_buff);  END; {setup_user_inputs}    {---------------------------------------} { } { i n i t } { } {---------------------------------------} PROCEDURE init; {Initialize the variables needed.}  VAR  stat, i : WORD;  time_string : STRING26;  BEGIN {init}  command_ptr := 1;  IF run_string_buff_len > 80 THEN run_string_buff_len := 80;  FOR i := 1 TO run_string_buff_len DO BEGIN  command_string[i] := run_string_buff[i]; ! IF (command_string[i] = ',') THEN command_string[i] := ' ';! END;" FOR i := run_string_buff_len + 1 TO 80 DO command_string[i] := ' '; " FOR i := 1 TO 80 DO blank_string80 := ' '; upld_file_name := blank_string80;  pcif_tag := 0; pcif_contwd := 0;  pcif_key := 0; pcif_pc := 0; $ pcif_buffer_size := 512; {512 bytes is size used to comm with monitor}$ start_pc := FALSE; stop_pc := TRUE;  chk_sum := 0;   open_create_file := 'rwc'; open_overwrite_file := 'rwo';  reset (in_file, '1'); rewrite (out_file, '1');   pcif_open (stat);  IF (stat <> 0) THEN halt_pcif_error(stat, 0);   get_time (time_string); writeln (out_file);  FOR i := 1 TO banner1_len DO write (out_file, % banner_msg_array[banner1_index, i]);% FOR i := 1 TO banner2_len DO write (out_file, % banner_msg_array[banner2_index, i]);% writeln (out_file);  FOR i := 1 TO 26 DO write (out_file, time_string[i]);  writeln (out_file);  FOR i := 1 TO banner3_len DO write (out_file, % banner_msg_array[banner3_index, i]);% writeln (out_file); END; {init} {-----------------------------------} { } { g e t _ p c t y p e } { } {-----------------------------------} PROCEDURE get_pctype (pc_id : word; VAR pc_type : word); VAR  stat, lengr : WORD;  ident_buf : IDENT_BUFFER_TYPE; BEGIN  lengr := 10; stat := 0; pc_ident (stat, pcif_tag, pcif_key, pc_id, ident_buf, lengr);  IF (stat <> 0) THEN  halt_pcif_error (stat, pc_id) ELSE pc_type := ident_buf[2]; END; {-----------------------------------} { } { u p _ 4 8 4 } { } {-----------------------------------} PROCEDURE up_484;  VAR  cfg_484_buffer : SINGLE_WORD_TYPE; len_logic, len_stat, len_reg : WORD; BEGIN  writeln (out_file,'Begin 484 PC upload');  write_header (1,484,logical_pc,header_msg,chk_sum);  print_msg (status_msg_array[1], 40); read_484_cfg (logical_pc,  cfg_484_buffer, {rtn data word}" len_logic, {rtn len in bytes of logic mem area} "# len_stat, {rtn len in bytes of status mem area}#$ len_reg ); {rtn len in bytes of register mem area}$ write_484_cfg (logical_pc, cfg_484_buffer, chk_sum); print_msg (status_msg_array[2], 40);  write_484_logic (3, logical_pc, len_logic, chk_sum); print_msg (status_msg_array[7], 40);  write_data_section (4, logical_pc, 1, len_stat, chk_sum);  print_msg (status_msg_array[3], 40);  write_data_section (5, logical_pc, 4001, len_reg, chk_sum);  print_msg (status_msg_array[4], 40);  write_checksum (6, chk_sum); print_msg (status_msg_array[6], 40);END; {------------------------------}{ }(({ u p _ 5 8 4 }{ }{------------------------------}PROCEDURE up_584; {Upload the proper areas for a 584 PC}   VAR section : word;  BEGIN {up_584}  writeln (out_file, 'Begin 584 PC upload.');  read_584_cfg_table (logical_pc, cfg_buffer, load_table); write_header (1, 584, logical_pc, header_msg, chk_sum);  print_msg (status_msg_array[1], 40);& write_584_cfg_table (2, logical_pc, cfg_buffer, cfg_table_size*2,chk_sum);& print_msg (status_msg_array[2], 40); " FOR section := 3 TO 4 DO IF (load_table[section].length <> 0) THEN" BEGIN " write_data_section (section, logical_pc," load_table[section].start_address,  load_table[section].length*2,  chk_sum); # print_msg (status_msg_array[section], 40);# END;$ write_dx_fn_nums (5, logical_pc, cfg_buffer[NUM_DX_FNS_IDX], chk_sum);$ print_msg (status_msg_array[5], 40);  write_checksum (6, chk_sum); print_msg (status_msg_array[6], 40); END; {up_584}  {-----------------------------------} { } { u p _ 8 8 4 } { } {-----------------------------------} PROCEDURE up_884;  '{ ** NOTE: For the 884 PLC, there exists only one version to date (1/20/87) }''{ in which the data areas are fixed and user logic varies with the Rev. }''{ of the PLC. Should a new 884 be introduced (other than the 884-1), this}''{ procedure must then be modified. }' VAR  len_logic, len_0XXXX, len_2XXXX, len_4XXXX, len_5XXXX, len_9XXXX : WORD;  BEGIN  writeln (out_file,'Begin 884 PC upload');  write_header (1,884,logical_pc,header_msg,chk_sum);  print_msg (status_msg_array[1], 40); read_884_cfg (logical_pc,  len_logic, {rtn len number of networks} % len_0XXXX, {rtn len in bytes of coil/discrete output} %% len_2XXXX, {rtn len in bytes of sequence registers } %% len_4XXXX, {rtn len in bytes of holding registers } %% len_5XXXX, {rtn len in bytes of dbl precision regs } %% len_9XXXX ); {rtn len in bytes of latches } %  write_884_cfg (logical_pc, len_logic, chk_sum);  print_msg (status_msg_array[2], 40);  write_884_logic (3, logical_pc, len_logic, chk_sum); print_msg (status_msg_array[7], 40);  write_data_section (4, logical_pc, 1, len_0XXXX, chk_sum); print_msg (status_msg_array[3], 40);  write_data_section (5, logical_pc, 40001, len_4XXXX, chk_sum);  print_msg (status_msg_array[4], 40);  write_data_section (6, logical_pc, 20100, len_2XXXX, chk_sum);  print_msg (status_msg_array[9], 40);  write_data_section (7, logical_pc, 50001, len_5XXXX, chk_sum);  print_msg (status_msg_array[10], 40);  write_data_section (8, logical_pc, 90001, len_9XXXX, chk_sum);  print_msg (status_msg_array[11], 40);   write_checksum (9, chk_sum); print_msg (status_msg_array[6], 40); END; {-----------------------------------} { } { G M U P M A I N } { } {-----------------------------------} BEGIN {gmup} err_catcher_already_here := FALSE; rte_get_run_string (run_string_buff, -80, run_string_buff_len);  init; ' setup_user_inputs (logical_pc,run_string_buff,start_pc,stop_pc, header_msg);' IF (stop_pc) THEN stop_gm_pc (logical_pc); get_pctype (logical_pc, pc_type);  writeln(out_file,'pc_type = ',pc_type);  CASE pc_type OF  484 : up_484; 584 : up_584; 884 : up_884;   OTHERWISE; {do nothing}  END;{CASE}  restart (logical_pc, start_pc);   writeln (out_file, 'Successfully completed upload.');  " finish_up(0, logical_pc); {Unlock, start, close pcif, close files.} " END. {gmup}/PCIF/GM/GMDN.PAS:::4:320:39 644 0 0 240000 5303173464 34562 /PCIF_GM/GM/GMDN.PAS:::4:320:39 $@ e @'GMDN PAS + 3+ 4+ 4@FST $PASCAL '94203-16008 REV.5000 <870519.1001>'"{ }""{ NAME : GMDN }""{ SOURCE: 94203-18008 }""{ RELOC.: 94203-16008 }""{ PRGMR : CGY }""{ }""{ MODIFIED 2/6/86 : Add 484 PC support by MWC }""{ MODIFIED 2/23/87 : Add 884 PC support by MWC }""{ **************************************************************** }""{ * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1985. ALL RIGHTS * }""{ * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED * }""{ * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT * }""{ * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY * }""{ **************************************************************** }""{ }"$ DEBUG OFF $ $ CDS ON $$ HEAP 0 $$ RUN_STRING 0 $$ RECURSIVE OFF ; RANGE ON $  $ TITLE 'GMDN 484/584/884 Download program' $  PROGRAM GMDN ;  $search 'GMDN0.REL'$ import GMDN0;   {------------------------------------------------}{ }{ RTE SERVICE PROCEDURE (FMP, EXEC, ...) }{ }{------------------------------------------------}  PROCEDURE print_pascal_error $ALIAS 'Pas.ErrorPrinter'$  (err_type : ERROR_TYPE; err_number : WORD; err_line : WORD; err_file : FILE_NAME;  err_flen : WORD); EXTERNAL;  PROCEDURE RTE_GET_run_string $ALIAS 'GETST'$ (VAR run_string : STRING80 ;  length : WORD ;  VAR tlog : WORD) ;EXTERNAL ;  $FIXED_STRING ON $ FUNCTION RTE_FMPOPEN $ALIAS 'FmpOpen'$ (VAR dcb : DCB_BUFFR ; VAR ierr : WORD ;  VAR fname : INTEGER;  VAR iopt : INTEGER; ! VAR num_dcb_bufs : WORD): WORD;!EXTERNAL; FUNCTION RTE_fname_desc $ALIAS 'STRDSC'$ (VAR buf : STRING80; startchar : WORD ;  length : WORD): INTEGER;  EXTERNAL;  FUNCTION RTE_fopts_desc $ALIAS 'STRDSC'$ (VAR buf : STRING3;  startchar : WORD ;  length : WORD): INTEGER;  EXTERNAL;   FUNCTION RTE_FMPCLOSE $ALIAS 'FMPCLOSE'$ (VAR dcb : DCB_BUFFR ; " VAR ierr : WORD ) : WORD;"EXTERNAL; !FUNCTION RTE_FMPREWIND $ALIAS 'FMPREWIND'$ (VAR dcb : DCB_BUFFR ; !# VAR ierr : WORD ) : WORD;#EXTERNAL;   !FUNCTION RTE_FMPREADD $ALIAS 'FMPREAD'$ (VAR dcb : DCB_BUFFR ; ! VAR ierr : WORD ; ! VAR ibuf : UPLD_DESCRIPTOR_REC_TYPE;! maxlen : WORD) : WORD;EXTERNAL; "FUNCTION RTE_FMPREADDX $ALIAS 'FMPREAD'$ (VAR dcb : DCB_BUFFR ;" VAR ierr : WORD ;  VAR ibuf : DX_NODE_TYPE; maxlen : WORD) : WORD;EXTERNAL; !FUNCTION RTE_FMPREADA $ALIAS 'FMPREAD'$ (VAR dcb : DCB_BUFFR ; ! VAR ierr : WORD ; $ VAR ibuf : PCIF_BUFFER_TYPE;$" maxlen : WORD) : WORD;"EXTERNAL; !FUNCTION RTE_FMPREADG $ALIAS 'FMPREAD'$ (VAR dcb : DCB_BUFFR ; ! VAR ierr : WORD ; # VAR ibuf : CFG_BUFFER_TYPE; #" maxlen : WORD) : WORD;"EXTERNAL;  $FIXED_STRING OFF$ PROCEDURE RTE_PARSE $ALIAS 'PARSE'$  ( ubuf : STRING80 ;  count : WORD; VAR pbuff : NAMR_TYPE); EXTERNAL;  PROCEDURE RTE_CVT_INT_ASC $ALIAS 'CNUMD'$  ( num : WORD; VAR bufr : STRING6); EXTERNAL;  PROCEDURE RTE_STOP_PGM $ALIAS 'EXEC'$  ( ecode : WORD;  prog : WORD);EXTERNAL;  PROCEDURE get_time $ALIAS 'Pas.TimeString'$  (VAR time_string : STRING26); EXTERNAL; {-------------------------------------------------((---}{ }{ PCIF/1000 LIBRARY : PROCEDURE CALL DEFINITIONS }{ }{----------------------------------------------------}  PROCEDURE PC_CANCEL (VAR stat : WORD ; pc : WORD ; oldtag : WORD ; typec : WORD) ; EXTERNAL;   PROCEDURE PCIF_CLOSE (VAR stat : WORD);  EXTERNAL;  PROCEDURE PC_CONNECT (VAR stat : WORD ; tag : WORD ; contwd : WORD ; pc : WORD) ; EXTERNAL;   PROCEDURE PC_DISC (VAR stat : WORD ; pc : WORD ; password : WORD) ; EXTERNAL;    PROCEDURE PCIF_ERROR ( stat : WORD ; VAR buffer : STRING80 ; VAR length : WORD) ; EXTERNAL ;  PROCEDURE PC_GETKEY (VAR stat : WORD ; VAR akey : WORD);  EXTERNAL;  PROCEDURE PC_LOCK (VAR stat : WORD ; pc : WORD) ; EXTERNAL;   PROCEDURE PCIF_OPEN (VAR stat : WORD); EXTERNAL;   PROCEDURE PC_PCSTAT (VAR stat : WORD ; tag : WORD ; contwd : WORD ; pc : WORD ;  VAR buffr : PCIF_BUFFER_TYPE) ;EXTERNAL;  PROCEDURE PC_READD (VAR stat : WORD ; tag : WORD ; contwd : WORD ; pc : WORD ;  VAR buffr : PCIF_BUFFER_TYPE ;  lengt : WORD ;  pcadr : PCADR_TYPE); EXTERNAL;   PROCEDURE PC_READP (VAR stat : WORD ; tag : WORD ; contwd : WORD ; pc : WORD ;  VAR buffr : PCIF_BUFFER_TYPE ;  lengt : WORD ;  pcadr : PCADR_TYPE); EXTERNAL;  PROCEDURE PC_READPDX $ALIAS 'PC_READP'$  (VAR stat : WORD ; tag : WORD ; contwd : WORD ; pc : WORD ;  VAR buffr : DX_NODE_TYPE ;  lengt : WORD ;  pcadr : PCADR_TYPE); EXTERNAL;   PROCEDURE PC_RELKEY (VAR stat : WORD ; VAR akey : WORD);  EXTERNAL;  PROCEDURE PC_START  (VAR stat : WORD ; tag, contwd, pc : WORD) ; EXTERNAL;   PROCEDURE PC_STOP  (VAR stat : WORD ; tag, contwd, pc : WORD) ; EXTERNAL;   PROCEDURE PC_SYSTAT (VAR stat : WORD ; pc : WORD ;  VAR buffr : PCIF_BUFFER_TYPE);EXTERNAL;   PROCEDURE PC_TRANS  (VAR stat : WORD ; tag, contwd, pc, subfct : WORD ; buffs : PCIF_BUFFER_TYPE ; lengs : WORD ; VAR buffr : PCIF_BUFFER_TYPE ; lengr : WORD) ; EXTERNAL;   PROCEDURE PC_UNLOCK (VAR stat : WORD ; pc : WORD) ; EXTERNAL;  PROCEDURE PC_WRITED  (VAR stat : WORD ; tag, contwd, pc : WORD ; VAR buffr : PCIF_BUFFER_TYPE ; lengt : WORD ; pcadr : PCADR_TYPE);EXTERNAL;   PROCEDURE PC_WRITEP  (VAR stat : WORD ; tag, contwd, pc : WORD ; VAR buffr : PCIF_BUFFER_TYPE ; lengt : WORD ; pcadr : PCADR_TYPE);EXTERNAL; PROCEDURE PC_WRITEPCFG $ALIAS 'PC_WRITEP'$  (VAR stat : WORD ; tag, contwd, pc : WORD ; VAR buffr : CFG_BUFFER_TYPE ;  lengt : WORD ; pcadr : PCADR_TYPE);EXTERNAL;   PROCEDURE gm_error  ( err_num : WORD; VAR buffer : STRING80 ;  VAR len : WORD) ;EXTERNAL;  PROCEDURE PC_IDENT  (VAR stat : WORD;  tag, contwd, pc : WORD;  VAR buffr : IDENT_BUFFER_TYPE; VAR lengr : WORD);EXTERNAL;  {---------------------------------------} { } { f i n i s h _ u p } { } {---------------------------------------} PROCEDURE finish_up (stat, pc : WORD); VAR err : WORD;  BEGIN {finish_up}  close (in_file); close (out_file);  err := rte_fmpclose (dnld_file_dcb, err);  IF (pc <> 0) THEN pc_unlock (stat,pc);  pcif_close(err); rte_stop_pgm(6,0); END; {finish_up}  {---------------------------------------} { } { c a t c h _ p a s c a l _ e r r o r } { } {---------------------------------------} PROCEDURE catch_pascal_error $ALIAS 'Pas.ErrorCatcher'$  (err_type : ERROR_TYPE; err_number : WORD; err_line : WORD; err_file : FILE_NAME;  err_flen : WORD); VAR  stat : WORD;  BEGIN {catch_pascal_error}  IF (err_catcher_already_here) THEN rte_stop_pgm (6,0)  ELSE BEGIN {First invocation, shut down the program.}& print_pascal_error(err_type, err_number, err_line, err_file, err_flen); & err_catcher_already_here := TRUE;  pc_unlock (stat, pcif_pc); finish_up (0, pcif_pc);  END; END; {catch_pascal_error}    {---------------------------------------} { } { h a l t _ p c i f _ e r r o r } { } {---------------------------------------} PROCEDURE halt_pcif_error(err, pcif_pc : WORD);  VAR  buffr : STRING80; length, i : WORD;   BEGIN {halt_pcif_error}   IF (err <= 512) THEN pcif_error (err, buffr, length) ELSE gm_error(err, buffr, length); FOR i := 1 TO length DO write (out_file, buffr[i]);  writeln (out_file); writeln (out_file); finish_up (err, pcif_pc);   END; {halt_pcif_error}  {---------------------------------------} { } { p r i n t _ f m p _ e r r o r } { } {---------------------------------------} PROCEDURE print_fmp_error(err_num : WORD); CONST  FMP_ERR_MSG = STRING40  ['Fmp error occurred in file '];VAR  i : WORD;  ascii_num : STRING6; buffr : STRING80;  length : WORD;  BEGIN {print_fmp_error}   buffr := fmp_err_msg;   FOR i := 41 TO 80 DO buffr[i] := ' ';   IF (err_num < 0) THEN  BEGIN {Insert minus sign in the buffer}  buffr[11] := '-'; err_num := -err_num;  END;  IF (err_num <> 0) THEN  BEGIN  rte_cvt_int_asc (err_num, ascii_num);  FOR i := 1 TO 6 DO  buffr[i + 11] := ascii_num[i]; END;  FOR i := 1 TO 80 DO write ( out_file, buffr[i]); writeln (out_file);   END; {print_fmp_error}  {---------------------------------------} { } { h a l t _ f m p _ e r r o r } { } {---------------------------------------} PROCEDURE halt_fmp_error(err_num, pcif_pc : WORD);  BEGIN {halt_fmp_error}  print_fmp_error (err_num); finish_up (err_num, pcif_pc);   END; {halt_fmp_error}  {---------------------------------------} { } { r e s t a r t } { } {---------------------------------------} PROCEDURE restart (pc : WORD;  VAR restart_pc : BOOLEAN);  VAR err, stat : WORD;  BEGIN {restart}  stat := 0; IF restart_pc THEN pc_start (stat, pcif_tag, pcif_key, pc);  IF (stat <> 0) THEN halt_pcif_error (stat, pc); END; {restart} {---------------------------------------} { } { f i n d _ i n t e g e r } { } {---------------------------------------}  FUNCTION find_integer(VAR number : INTEGER) : BOOLEAN ;  CONST  char_digit ='0123456789' ;  VAR  index1 : WORD ; command_char : CHAR ;  end_number_flag : BOOLEAN ; negative_flag : BOOLEAN ; BEGIN   negative_flag := FALSE ; find_integer:= FALSE ;  WHILE (command_ptr<69) AND (command_string[command_ptr]=' ')  DO command_ptr := command_ptr + 1 ; IF (command_string[command_ptr]='-')  THEN BEGIN  negative_flag := TRUE ; command_ptr := command_ptr+1 ;  END ;  end_number_flag := FALSE ;  number := 0 ; WHILE (NOT end_number_flag) AND (command_ptr<=79) DO  BEGIN command_char := command_string[command_ptr] ;  index1 := 0 ; found_flag := FALSE ;  REPEAT BEGIN index1 := index1 + 1 ; IF (char_digit[index1]=command_char) THEN found_flag := TRUE ;  END ; { end REPEAT }  UNTIL  found_flag OR (index1>=10) ;  IF found_flag  THEN BEGIN number := number * 10 + index1 - 1 ; find_integer:= TRUE ;  END ELSE BEGIN end_number_flag := TRUE ;  END ; { end if found_flag }  IF (command_char='*')  OR  (command_char='a')  OR  (command_char='A')  OR " ((command_char='/') AND ((command_string[command_ptr+1]='E') "% OR (command_string[command_ptr+1]='e'))) % THEN stop_flag(( := TRUE ELSE command_ptr := command_ptr + 1 ;  END ; { end WHILE NOT end_number_flag } IF (negative_flag) THEN number := -number ; END ; { end of PROCEDURE find_integer}{---------------------------------------} { } { f i n d _ n u m b e r } { } {---------------------------------------}  FUNCTION find_number (VAR number : WORD) : BOOLEAN ; VAR  long_number : INTEGER ; flag : BOOLEAN ;  BEGIN   flag := find_integer (long_number) ;  IF flag AND (NOT stop_flag) THEN BEGIN  find_number := TRUE ; IF (long_number>=-32768) AND (long_number<=32767) THEN number := long_number  ELSE find_number := FALSE ; END  ELSE BEGIN  find_number := FALSE ;  END  ; { end IF flag } END ; { end of PROCEDURE find_number }{-----------------------------------} { } { g e t _ i n p u t } { } {-----------------------------------}  PROCEDURE get_input (ask : STRING40; len : WORD) ; VAR  eof_flag : BOOLEAN ;  i : WORD; BEGIN  eof_flag := TRUE ; WHILE eof_flag DO  BEGIN  FOR i := 1 TO len DO write (out_file, ask[i]);  PROMPT(out_file);  IF EOF(in_file) THEN BEGIN  RESET(in_file) ; eof_flag := TRUE ; END ELSE BEGIN  READLN(in_file, command_string) ; command_ptr := 1 ;  eof_flag := FALSE ; END ; { end IF EOF } END ; { end WHILE ... }  END ; { end of PROCEDURE get_input }{---------------------------------------} { } { g e t _ i n _ s t r i n g } { } {---------------------------------------}  PROCEDURE get_in_string (VAR in_string: STRING80); VAR  flag : BOOLEAN ;  index : WORD ;  temp : CHAR ;  shift : WORD ;   BEGIN {get_in_string}   in_string := blank_string80;  flag := TRUE ;  WHILE (command_ptr<=80) AND flag DO BEGIN IF (command_string[command_ptr]<>' ') THEN flag:=FALSE ELSE command_ptr := command_ptr+1 ;  END ; flag:=TRUE ;  index := 1 ;  WHILE (command_ptr<=80) AND flag DO BEGIN IF (command_string[command_ptr]=' ') THEN BEGIN flag:=FALSE ;  END ELSE BEGIN IF (index<=80) THEN BEGIN  shift := ORD('a')-ORD('A') ; temp := command_string[command_ptr] ;  CASE temp OF 'a'..'z': temp := CHR(ORD(temp)-shift);  OTHERWISE ;  END ; { end CASE ... } in_string[index]:=temp ; END  ; { end IF ... } command_ptr := command_ptr+1 ; index := index + 1 ; END ; { end IF ... }  END ;" IF (in_string = '/E') OR (in_string = '/e') THEN stop_flag := TRUE; " END ; { end of PROCEDURE get_in_string}  {-----------------------------------} { } { g e t _ p c _ n u m } { } {-----------------------------------}  PROCEDURE get_pc_num (VAR pc : WORD);  VAR  flag : BOOLEAN ;   BEGIN {get_pc_num}   pc := 0; REPEAT flag := find_number(pc) ;  IF stop_flag THEN finish_up (0, pc) ELSE IF NOT flag THEN ! get_input (prompt_msg_array[prompt_pcnum],prompt_pcnum_len);! UNTIL (flag OR stop_flag) ;   END ; {get_pc_num}  {-----------------------------------} { } { g e t _ y e s } { } {-----------------------------------}  FUNCTION get_yes (prompt : STRING40; len : WORD):BOOLEAN ; CONST  yes = STRING3 ['YES'] ; c_no= STRING2 ['NO'] ; quit= STRING2 ['/E'] ; quit2= STRING2 ['/e'] ;  VAR  yes_no : STRING80; BEGIN  yes_no := blank_string80;  REPEAT get_in_string (yes_no);  IF (yes_no=yes) OR (yes_no='Y')  THEN get_yes := TRUE ELSE IF (yes_no=c_no) OR (yes_no='N')  THEN get_yes := FALSE  ELSE IF stop_flag THEN BEGIN  finish_up (0, pcif_pc);  END  ELSE get_input (prompt, len) ; UNTIL (yes_no <> blank_string80); END ; { end of PROCEDURE get_yes } {--------------------------------------------}{ }{ g e t _ f i l e _ n a m e }{ }{--------------------------------------------} PROCEDURE get_file_name (VAR fname : STRING80);  VAR  index : WORD ;   BEGIN {get_file_name}   fname := blank_string80;  REPEAT get_in_string (fname);  IF (stop_flag = TRUE) THEN finish_up (0, pcif_pc); IF fname=blank_string80 THEN get_input (prompt_msg_array[prompt_dnld_name],  prompt_dnld_name_len); UNTIL (fname<>blank_string80) ;   END ; {get_file_name}  {--------------------------------------------}{ }{ g e t _ 8 8 4 _ p a s s c o d e }{ }{--------------------------------------------}PROCEDURE get_884_passcode (VAR pcode : STRING80); VAR  index : WORD ;   BEGIN {get_884_passcode} pcode := blank_string80;  get_input (prompt_msg_array[prompt_884_passcode],  prompt_passcode_len);  get_in_string (pcode);  IF (stop_flag = TRUE) THEN finish_up (0, pcif_pc); END ; {get_884_passcode}  {--------------------------------------------}{ }{ g e t _ s t a r t _ f l a g }{ }{--------------------------------------------} PROCEDURE get_start_flag (VAR start_pc : BOOLEAN); VAR  index : WORD ;   BEGIN {get_start_flag}   start_pc := get_yes (prompt_msg_array[prompt_start_pc],  prompt_start_pc_len);  END ; {get_start_flag}    {---------------------------------------} { } { p r i n t _ m s g } { } {---------------------------------------} PROCEDURE print_msg (msg : STRING120; len : WORD);VAR  i : WORD; BEGIN {print_msg}  FOR i := 1 TO len DO write (out_file, msg[i]); writeln(out_file); END; {print_msg}    {---------------------------------------} { } { p r i n t _ e r r _ w m s g _ n u m } { } {---------------------------------------} %PROCEDURE print_err_wmsg_num (msg_num, {Index to msg array; text template} % msg_len, {Length of total msg.}$ err_num, {Error number to include in msg.} $$ err_offset : WORD; {Offset to put err num}$" add_txt : STRING80; {Extra msg segment} " add_txt_len, {Length}$ add_txt_offset : WORD); {loc of extra msg}$ {Prints the message contained in msg_num index to err_msg_array, and inserts the ascii coded err_num into the msg at err_offset. !If the err_num is not zero, it will be added in at the err_offset.!#If the add_txt_len is not zero, the extra msg segment will be added in#at the add_txt_offset location of the buffer. Prints the message of total length msg_len.} VAR  ascii_num : STRING6; error_text : STRING120;  i : WORD;  BEGIN {print_err_wmsg_num}  FOR i := 1 TO err_msg_len DO error_text[i] := error_msg_array[msg_num,i];  IF (err_num < 0) THEN  BEGIN {Insert minus sign in the buffer}  error_text[err_offset] := '-';  err_offset := err_offset + 1; err_num := -err_num;  END;  IF (err_num <> 0) THEN  BEGIN  rte_cvt_int_asc (err_num, ascii_num);  FOR i := 1 TO 6 DO  error_text[i+err_offset-1] := ascii_num[i];  END;  IF (add_txt_len > 0) THEN  FOR i := 1 TO add_txt_len DO error_text[i+add_txt_offset-1] := add_txt[i];  print_msg (error_text, msg_len);  END; {print_err_wmsg_num}   {---------------------------------------} { } { g e t _ f r a g m e n t _ p a r m s } { } {---------------------------------------} PROCEDURE get_fragment_parms ( max_buff_size, buff_len : WORD; VAR num_reads, lengr, remainder_lengr, remainder_chars : WORD);{There is always a remainder buffer included in num_reads, and!this will result in values in remainder_lengr and remainder_chars,!#even if these values are of max_buff_size (as for the 1 to num_reads-1#buffers).}  BEGIN {get_fragment_parms}   IF (buff_len <= max_buff_size) THEN  BEGIN  lengr := buff_len + 16384; (({byte length}  num_reads := 1;  remainder_chars := buff_len; remainder_lengr := buff_len + 16384; END  ELSE BEGIN  lengr := max_buff_size + 16384;  num_reads := buff_len DIV max_buff_size; remainder_chars := buff_len MOD max_buff_size; remainder_lengr := remainder_chars + 16384;  IF (remainder_chars <> 0) THEN num_reads := num_reads + 1  ELSE BEGIN {remainder of 0, so put full buff in remainder.} remainder_chars := max_buff_size;  remainder_lengr := remainder_chars + 16384;  END; END;   END; {get_fragment_parms}  {---------------------------------------} { } { g e t _ m e m _ b u f f } { } {---------------------------------------} PROCEDURE get_mem_buff ( pc : WORD; pcadr : PCADR_TYPE;  buff_len : WORD; {in bytes}  VAR buff : PCIF_BUFFER_TYPE); VAR  i, j, lengr, stat : WORD;  num_reads, remainder_chars : WORD; remainder_lengr : WORD;   BEGIN {get_mem_buff}   FOR i := 1 TO pcif_buffer_size DIV 2 DO buff.wd[i] := 0; get_fragment_parms(pcif_buffer_size,buff_len, num_reads, lengr, remainder_lengr, remainder_chars);  stat := 0; FOR i := 1 TO num_reads - 1 DO BEGIN  pc_readp (stat, pcif_tag, pcif_key, pc,  mem_contents_array, lengr,pcadr);  IF (stat <> 0) THEN halt_pcif_error (stat, pc);  FOR j := 1 TO pcif_buffer_size DO # buff.by[j+(i-1)*pcif_buffer_size] := mem_contents_array.by[j];#" pcadr.double_wd := pcadr.double_wd + (pcif_buffer_size DIV 2);" {add word address}  END;  pc_readp (stat, pcif_tag, pcif_key, pc, mem_contents_array,  remainder_lengr, pcadr); IF (stat <> 0) THEN halt_pcif_error (stat, pc);  FOR i := 1 TO remainder_chars DO buff.by[i+(num_reads-1)*pcif_buffer_size] :=  mem_contents_array.by[i]; END; {get_mem_buff}  {---------------------------------------} { } { w r i t e _ p c _ b u f f } { } {---------------------------------------} PROCEDURE write_pc_buff ( pc : WORD; pcadr : PCADR_TYPE;  buff_len : WORD; {in bytes}  buff : PCIF_BUFFER_TYPE); {Assumes the pcif buffer size greater than the file rec size.} VAR  lengr, stat : WORD;   BEGIN {write_pc_buff}  stat := 0; lengr := buff_len + 16384; {len in bytes}  repeat pc_writed (stat, pcif_tag, pcif_key, pc, buff, lengr,pcadr);  until (stat <> 690);  IF (stat <> 0) THEN halt_pcif_error (stat, pc);  END; {write_pc_buff}  {---------------------------------------} { } { w r i t e _ 8 8 4 _ n e t w o r k } { } {---------------------------------------} PROCEDURE write_884_network ( pc : WORD; pcadr : PCADR_TYPE;  buff_len : WORD; {in bytes}  buff : PCIF_BUFFER_TYPE); {Assumes the pcif buffer size greater than the file rec size.} VAR  lengr, stat : WORD;   BEGIN {write_884_network}  stat := 0; lengr := buff_len + 16384; {len in bytes}  repeat pc_writep (stat, pcif_tag, pcif_key, pc, buff, lengr,pcadr);  until (stat <> 690);  IF (stat <> 0) THEN halt_pcif_error (stat, pc);  END; {write_884_network} {---------------------------------------} { } { w r i t e _ 4 8 4 _ b u f f } { } {---------------------------------------} PROCEDURE write_484_buff ( pc : WORD;  pcadr : PCADR_TYPE;  buff_len : WORD; {in bytes}  buff : PCIF_BUFFER_TYPE); {Assumes the pcif buffer size greater than the file rec size.} VAR  lengr, stat : WORD;   BEGIN {write_484_buff}  stat := 0; lengr := buff_len DIV 2; {len in words}  pc_writep (stat, pcif_tag, pcif_key, pc, buff, lengr,pcadr);  IF (stat <> 0) THEN halt_pcif_error (stat, pc);   END; {write_484_buff}  {---------------------------------------} { } { s k i p _ t o _ s e c t i o n } { } {---------------------------------------} PROCEDURE skip_to_section (section_no : WORD);VAR  actual_length, length,  fmp_error : WORD;   BEGIN {skip_to_section}  WHILE (file_descriptor_rec.sect_num <> section_no) DO  BEGIN   length := file_descriptor_rec.len; actual_length := rte_fmpreada (dnld_file_dcb, fmp_error, file_contents_array,length); ! IF (fmp_error <> 0) THEN halt_fmp_error (fmp_error, pcif_pc); ! actual_length := rte_fmpreadd (dnld_file_dcb, fmp_error," file_descriptor_rec, file_descr_rec_len); "! IF (fmp_error <> 0) THEN halt_fmp_error (fmp_error, pcif_pc); ! END;  END; {skip_to_section}   {---------------------------------------} { } { d n l d _ d a t a _ s e c t i o n } { } {---------------------------------------} PROCEDURE dnld_data_section ( sect,  pc : WORD); {Position to first record of section, read all sections. Download each section.} VAR  pcadr : PCADR_TYPE;  length,  fmp_error, actual_length : WORD;   BEGIN {dnld_data_section} {Find first record}   IF (file_descriptor_rec.sect_num <> sect) THEN skip_to_section (sect); {If cannot find sect, will abort.}  WHILE (file_descriptor_rec.sect_num = sect) DO BEGIN  length := file_descriptor_rec.len; actual_length := rte_fmpreada (dnld_file_dcb, fmp_error, file_contents_array, length); IF (fmp_error <> 0) THEN halt_fmp_error(fmp_error, pc);  pcadr.double_wd := 0;  pcadr.lo_wd := file_descriptor_rec.start_adr;  CASE pc_type OF & 584 : write_pc_buff (pc,pcadr,actual_length,file_contents_array);& 484 : BEGIN  IF (sect = 3) THEN BEGIN  pcadr.hi_byte := 32; {WRITEP MBUS_subfn}  write_484_buff (pc,pcadr,actual_length,  file_contents_array);  END ELSE  write_pc_buff (pc,pcadr,actual_length, file_contents_array);  END; 884 : BEGIN  CASE sect OF  3 : BEGIN  pcadr.hi_byte := 64;% write_884_network (pc,pcadr,actual_length,%% file_contents_array);% END; 4..7 : BEGIN # write_pc_buff (pc,pcadr,actual_length,## file_contents_array);# END; 8 : BEGIN  pcadr.double_wd := 90001; # write_pc_buff (pc,pcadr,actual_length,## file_contents_array);# END; OTHERWISE; END; {CASE sect}  END; {884} OTHERWISE;  END; {CASE}   actual_length := rte_fmpreadd (dnld_file_dcb, fmp_error," file_descriptor_rec, file_descr_rec_len);" IF (fmp_error <> 0) THEN halt_fmp_error(fmp_error, pc);   END; END; {dnld_data_section}    {---------------------------------------} { } { g e t _ d x _ f n s } { } {---------------------------------------} PROCEDURE get_dx_fns (VAR ok : BOOLEAN;  pc : WORD); VAR  i, j, lengr : WORD;  stat : WORD; pcadr : PCADR_TYPE; dx_fn : DX_NODE_TYPE; dx_name : STRING4; dx_name_index : WORD; BEGIN {get_dx_fns}  # FOR i := 1 TO (cfg_table[51] MOD 256) DO {no. of dx fnc in low byte} # BEGIN  pcadr.double_wd := i; {address is dx function number} pcadr.hi_byte := READ_DX_FN; lengr := READ_DX_FN_BYTE_LEN + 16384; {byte length}  stat := 0; pc_readp (stat, pcif_tag, pcif_key, pc,  mem_contents_array, lengr,pcadr);  IF (stat <> 0) THEN halt_pcif_error (stat, pc);   dx_name_index := mem_contents_array.abs_by[1]*2+6; FOR j := 1 TO 4 DO dx_name[j] :=mem_contents_array.by[" dx_name_index+j-1]; " dx_fns[i] := dx_name;   END;  ok := TRUE;   END; {get_dx_fns}  {---------------------------------------} { } { g e t _ f d x _ f n s } { (( } {---------------------------------------} PROCEDURE get_fdx_fns (VAR ok : BOOLEAN; pc : WORD); VAR  actual_length, fmp_error, i, lengr, length, stat, dx_num : WORD; pcadr : PCADR_TYPE; dx_fn : DX_NODE_TYPE; dx_name : STRING4; dx_name_index : WORD;   BEGIN {get_fdx_fns}   actual_length := rte_fmpreadd (dnld_file_dcb, fmp_error, file_descriptor_rec,  file_descr_rec_len);  IF (fmp_error <> 0) THEN halt_fmp_error (fmp_error, pcif_pc);  FOR i := 1 TO file_descr_rec_len DO chk_sum := chk_sum +$ file_descriptor_rec.lrc_bytes[i]; $  WHILE (file_descriptor_rec.sect_num <> 5 ) DO  BEGIN  length := file_descriptor_rec.len; actual_length := rte_fmpreada (dnld_file_dcb, fmp_error, file_contents_array,  length); ! IF (fmp_error <> 0) THEN halt_fmp_error (fmp_error, pcif_pc); ! FOR i := 1 TO length DO chk_sum := chk_sum +# file_contents_array.abs_by[i];#  actual_length := rte_fmpreadd (dnld_file_dcb, fmp_error, file_descriptor_rec,  file_descr_rec_len); ! IF (fmp_error <> 0) THEN halt_fmp_error (fmp_error, pcif_pc); ! FOR i := 1 TO file_descr_rec_len DO chk_sum := chk_sum +$ file_descriptor_rec.lrc_bytes[i]; $ chk_sum := chk_sum MOD 256;  END;  dx_num := 1; ! WHILE (file_descriptor_rec.sect_num = 5 ) AND (dx_num <= 100) DO! BEGIN   length := file_descriptor_rec.len; actual_length := rte_fmpreada (dnld_file_dcb, fmp_error, file_contents_array, length); ! IF (fmp_error <> 0) THEN halt_fmp_error (fmp_error, pcif_pc); !# FOR i := 1 TO length DO dx_fn.by[i] := file_contents_array.by[i]; # FOR i := 1 TO length DO chk_sum := chk_sum +# file_contents_array.abs_by[i];#  dx_name_index := file_contents_array.abs_by[1]*2+6;  FOR i := 1 TO 4 DO dx_name[i] :=file_contents_array.by[ " dx_name_index+i-1]; " fdx_fns[dx_num] := dx_name;  dx_num := dx_num + 1;   actual_length := rte_fmpreadd (dnld_file_dcb, fmp_error, file_descriptor_rec,  file_descr_rec_len); ! IF (fmp_error <> 0) THEN halt_fmp_error (fmp_error, pcif_pc); ! FOR i := 1 TO file_descr_rec_len DO chk_sum := chk_sum +$ file_descriptor_rec.lrc_bytes[i]; $ chk_sum := chk_sum MOD 256;  END;  ok := TRUE;   END; {get_fdx_fns}  {---------------------------------------} { } { g e t _ 4 8 4 _ c h k _ s u m } { } {---------------------------------------} PROCEDURE get_484_chk_sum (VAR ok : BOOLEAN; cksum : INTEGER);VAR  actual_length, fmp_error,  i, lengr, length, stat : WORD; pcadr : PCADR_TYPE;  BEGIN {get_484_chk_sum}   actual_length := rte_fmpreadd (dnld_file_dcb, fmp_error, file_descriptor_rec,  file_descr_rec_len);  IF (fmp_error <> 0) THEN halt_fmp_error (fmp_error, pcif_pc);  FOR i := 1 TO file_descr_rec_len DO chk_sum := chk_sum +$ file_descriptor_rec.lrc_bytes[i]; $  WHILE (file_descriptor_rec.sect_num <> 6 ) DO  BEGIN  length := file_descriptor_rec.len; actual_length := rte_fmpreada (dnld_file_dcb, fmp_error, file_contents_array,  length); ! IF (fmp_error <> 0) THEN halt_fmp_error (fmp_error, pcif_pc); ! FOR i := 1 TO length DO chk_sum := chk_sum +# file_contents_array.abs_by[i];#  actual_length := rte_fmpreadd (dnld_file_dcb, fmp_error, file_descriptor_rec,  file_descr_rec_len); ! IF (fmp_error <> 0) THEN halt_fmp_error (fmp_error, pcif_pc); ! FOR i := 1 TO file_descr_rec_len DO chk_sum := chk_sum +$ file_descriptor_rec.lrc_bytes[i]; $ chk_sum := chk_sum MOD 256;  END; END; {get_484_chk_sum}  {---------------------------------------} { } { g e t _ 8 8 4 _ c h k _ s u m } { } {---------------------------------------} PROCEDURE get_884_chk_sum (VAR ok : BOOLEAN; cksum : INTEGER);VAR  actual_length, fmp_error,  i, lengr, length, stat : WORD; pcadr : PCADR_TYPE; BEGIN {get_884_chk_sum}   actual_length := rte_fmpreadd (dnld_file_dcb, fmp_error, file_descriptor_rec,  file_descr_rec_len);  IF (fmp_error <> 0) THEN halt_fmp_error (fmp_error, pcif_pc);  FOR i := 1 TO file_descr_rec_len DO chk_sum := chk_sum +$ file_descriptor_rec.lrc_bytes[i]; $ WHILE (file_descriptor_rec.sect_num <> 9 ) DO  BEGIN  length := file_descriptor_rec.len; actual_length := rte_fmpreada (dnld_file_dcb, fmp_error, file_contents_array,  length); ! IF (fmp_error <> 0) THEN halt_fmp_error (fmp_error, pcif_pc); ! FOR i := 1 TO length DO chk_sum := chk_sum +# file_contents_array.abs_by[i];# actual_length := rte_fmpreadd (dnld_file_dcb, fmp_error, file_descriptor_rec,  file_descr_rec_len); ! IF (fmp_error <> 0) THEN halt_fmp_error (fmp_error, pcif_pc); ! FOR i := 1 TO file_descr_rec_len DO chk_sum := chk_sum +$ file_descriptor_rec.lrc_bytes[i]; $ chk_sum := chk_sum MOD 256;  END; END; {get_884_chk_sum}  {---------------------------------------} { } { v a l i d a t e _ c h e c k s u m } { } {---------------------------------------} PROCEDURE validate_checksum ( VAR ok : BOOLEAN;  cksum : INTEGER); VAR  length, fmp_error, actual_length : WORD; BEGIN {validate_checksum}  length := file_descriptor_rec.len; actual_length := rte_fmpreada (dnld_file_dcb, fmp_error, file_contents_array, length);  IF (fmp_error <> 0) THEN halt_fmp_error (fmp_error, pcif_pc);  cksum := cksum MOD 256;  IF (file_contents_array.wd[1] <> cksum) THEN  BEGIN  print_msg (error_msg_array[err_bad_chksum],40);  ok := FALSE;  END  ELSE ok := TRUE;   END; {validate_checksum}   {---------------------------------------} { } { c h e c k _ h e a d e r } { } {---------------------------------------} PROCEDURE check_header (VAR ok : BOOLEAN;  VAR chk_sum : INTEGER); VAR  test_char : CHAR; file_char : CHAR; fmp_error : WORD; ascii_model : STRING6;  stat,  header_length, actual_length, lengr, wd_len,  i : WORD;   BEGIN {check_header}   actual_length := rte_fmpreadd (dnld_file_dcb, fmp_error," file_descriptor_rec, file_descr_rec_len); " IF (fmp_error <> 0) THEN halt_fmp_error(fmp_error, pcif_pc);  header_length := file_descriptor_rec.len;  FOR i := 1 TO file_descr_rec_len DO  chk_sum := chk_sum + file_descriptor_rec.lrc_bytes[i];  actual_length := rte_fmpreada (dnld_file_dcb, fmp_error," file_contents_array, header_length);" IF (fmp_error <> 0) THEN halt_fmp_error (fmp_error, pcif_pc);  FOR i := 1 TO header_length DO chk_sum := chk_sum + " file_contents_array.abs_by[i]; " chk_sum := chk_sum MOD 256; ! FOR i := 1 TO 6 DO ascii_model[i]:= file_contents_array.by[66+i]; !" FOR i := 1 TO 80 DO header_msg[i] := file_contents_array.by[98+i];"  {** get pc_type from physical pc device} stat := 0; lengr := 10; pc_ident (stat, pcif_tag, pcif_key, pcif_pc, ident_buf, lengr); IF (stat <> 0) THEN  halt_pcif_error (stat, pcif_pc)  ELSE pc_type := ident_buf[2];  CASE pc_type OF  484 : test_char := '4'; 584 : test_char := '5'; 884 : test_char := '8';  OTHERWISE; END; {CASE}   {** do pc_type check}  file_char := file_contents_array.by[70]; IF (test_char <> file_char) THEN BEGIN  CASE file_char OF # '4' : print_msg (error_msg_array[err_illegal_model_484], 40);## '5' : print_msg (error_msg_array[err_illegal_model_584], 40);## '8' : print_msg (error_msg_array[err_illegal_model_884], 40);# OTHERWISE;  END; {CASE}  ok := FALSE;  END  ELSE ok := TRUE;  IF ok THEN BEGIN " print_msg (prompt_msg_array[prompt_header], prompt_header_len); " print_msg (header_msg, 80);  ok := get_yes (prompt_msg_array [prompt_accept_title], prompt_accept_title_len); END;  E((ND; {check_header}  {-------------------------------------} { } {g e t _ 4 8 4 _ m e m o r y _ s i z e} { } {-------------------------------------} PROCEDURE get_484_memory_size (cfg_484_buff : SINGLE_WORD_TYPE;  VAR leng_logic,  leng_stat, leng_reg :WORD); BEGIN{get_484_memory_size}  IF (cfg_484_buff.by1 = 1) THEN leng_logic := 8192  ELSE leng_logic := cfg_484_buff.by1 * 32;  CASE leng_logic OF 256, 512 : BEGIN  leng_stat := 8;  leng_reg := 124;  END; 1024 : BEGIN  leng_stat := 16; leng_reg := 252;  END; 2048 : BEGIN  leng_stat := 24; leng_reg := 380;  END; 4096, 8192 : BEGIN  leng_stat := 32; leng_reg := 508;  END;  OTHERWISE;  END; {CASE}  END;{get_484_memory_size}  {---------------------------------------} { } { g e t _ f c f g _ t a b l e } { } {---------------------------------------} PROCEDURE get_fcfg_table (VAR ok : BOOLEAN;  VAR chk_sum : INTEGER); VAR  fmp_error, lengr, num_reads : WORD;  i, actual_length, length : WORD;  {**********************} { } { ad_ld_entry } { } {**********************}   PROCEDURE ad_ld_entry (sect, start, len : WORD); TYPE MULTI_WORD_TYPE = PACKED RECORD CASE INTEGER OF  1 : (hi_bit : 0..1; low_bits : 0..32767); 2 : (wd : WORD);  END;  VAR  adr : MULTI_WORD_TYPE;   BEGIN {ad_ld_entry}  load_table[sect].start_address := start; load_table[sect].length := len; END; {ad_ld_entry}   BEGIN {get_fcfg_table} {read sect record} {read fcfg table}  {make sure no fmp error or length incorrect}   actual_length := rte_fmpreadd (dnld_file_dcb, fmp_error, file_descriptor_rec,  file_descr_rec_len);  IF (fmp_error <> 0) THEN halt_fmp_error (fmp_error, pcif_pc);  FOR i := 1 TO file_descr_rec_len DO chk_sum := chk_sum +$ file_descriptor_rec.lrc_bytes[i]; $ length := file_descriptor_rec.len; actual_length := rte_fmpreada (dnld_file_dcb, fmp_error, file_contents_array, length); IF (fmp_error <> 0) THEN halt_fmp_error (fmp_error, pcif_pc); & FOR i := 1 TO cfg_table_size DO fcfg_table[i] := file_contents_array.wd[i]; & FOR i := 1 TO length DO chk_sum := chk_sum +# file_contents_array.abs_by[i];#  chk_sum := chk_sum MOD 256;  "{Now build the load table, used in dnloading other memory locations.} "  {section, start address, length} ad_ld_entry (1,0,0); {File header.}  ad_ld_entry (2,48,CFG_TABLE_SIZE); {Config table.}  ad_ld_entry (3,1,fcfg_table[6] DIV 16);{Output state.} {Note -25535 is 40001 in 16 bit two's complement}  ad_ld_entry (4,-25535,fcfg_table[17]);{output registers}  FOR i := 5 TO 6 DO  ad_ld_entry (i, 0, 0); {Avail DX and checksum}   END; {get_fcfg_table}  {---------------------------------------} { } { g e t _ 4 8 4 _ f c f g } { } {---------------------------------------} PROCEDURE get_484_fcfg (VAR ok : BOOLEAN;  VAR chk_sum : INTEGER); VAR  fmp_error, i, actual_length, length : WORD;  BEGIN {get_484_fcfg} {read sect record} {read fcfg table}  {make sure no fmp error or length incorrect}   actual_length := rte_fmpreadd (dnld_file_dcb, fmp_error, file_descriptor_rec,  file_descr_rec_len);  IF (fmp_error <> 0) THEN halt_fmp_error (fmp_error, pcif_pc);  FOR i := 1 TO file_descr_rec_len DO chk_sum := chk_sum +$ file_descriptor_rec.lrc_bytes[i]; $ length := file_descriptor_rec.len; actual_length := rte_fmpreada (dnld_file_dcb, fmp_error, file_contents_array, length); IF (fmp_error <> 0) THEN halt_fmp_error (fmp_error, pcif_pc);  fcfg_484_buffer.wd := file_contents_array.wd[1]; FOR i := 1 TO length DO chk_sum := chk_sum +# file_contents_array.abs_by[i];# chk_sum := chk_sum MOD 256;  get_484_memory_size (fcfg_484_buffer,  flen_logic, {rtn in bytes}  flen_stat, {rtn in bytes}  flen_reg ); {rtn in bytes}   END; {get_484_fcfg}  {---------------------------------------} { } { g e t _ 8 8 4 _ f c f g } { } {---------------------------------------} PROCEDURE get_884_fcfg (VAR ok : BOOLEAN;  VAR chk_sum : INTEGER); VAR  fmp_error, i, actual_length, length : WORD;  BEGIN {get_884_fcfg} {read sect record} {read fcfg table}  {make sure no fmp error or length incorrect}   actual_length := rte_fmpreadd (dnld_file_dcb, fmp_error, file_descriptor_rec,  file_descr_rec_len);  IF (fmp_error <> 0) THEN halt_fmp_error (fmp_error, pcif_pc);  FOR i := 1 TO file_descr_rec_len DO chk_sum := chk_sum +$ file_descriptor_rec.lrc_bytes[i]; $ length := file_descriptor_rec.len; actual_length := rte_fmpreada (dnld_file_dcb, fmp_error, file_contents_array, length); IF (fmp_error <> 0) THEN halt_fmp_error (fmp_error, pcif_pc); $ flen_logic := file_contents_array.wd[1]; {rtn number of networks}$ FOR i := 1 TO length DO chk_sum := chk_sum +# file_contents_array.abs_by[i];# chk_sum := chk_sum MOD 256;   END; {get_884_fcfg}  {---------------------------------------} { } { r e a d _ 5 8 4 _ c f g } { } {---------------------------------------} PROCEDURE read_584_cfg (VAR ok : BOOLEAN;  pcif_pc : WORD); VAR  lengr, num_reads : WORD; pcadr : PCADR_TYPE;  stat : WORD;  buff : PCIF_BUFFER_TYPE;  i, j : WORD;   BEGIN {read_584_cfg} pcadr.double_wd := 0; pcadr.hi_byte := 3; pcadr.lo_byte := 48;  get_mem_buff (pcif_pc, pcadr, CFG_TABLE_SIZE*2, buff);  FOR i := 1 TO CFG_TABLE_SIZE DO cfg_table[i] := buff.wd[i];   END; {read_584_cfg}  {--------------------------------------}{ }{ r e a d _ 4 8 4 _ c f g }{ }{--------------------------------------}PROCEDURE read_484_cfg (VAR ok : BOOLEAN;  pcif_pc : WORD ); VAR  stat, lengr :WORD; pcadr : PCADR_TYPE;  buff : PCIF_BUFFER_TYPE;   BEGIN {read_484_config} pcadr.double_wd := 0;  pcadr.hi_byte := 16; {READP MBUS_subfn for 484 PC}  pcadr.lo_wd := 24766; {octal address 60276}  lengr := 1; {len in words} stat := 0; pc_readp (stat,pcif_tag,pcif_key,pcif_pc,buff,lengr,pcadr);  IF (stat<>0) THEN halt_pcif_error (stat, pcif_pc); cfg_484_buffer.wd := buff.wd[1]; get_484_memory_size (cfg_484_buffer, len_logic, {rtn in bytes} len_stat, {rtn in bytes} len_reg ); {rtn in bytes}END; {--------------------------------------}{ }{ r e a d _ 8 8 4 _ c f g }{ }{--------------------------------------}PROCEDURE read_884_cfg (VAR ok : BOOLEAN;  pcif_pc : WORD ); VAR  stat, lengr :WORD; pcadr : PCADR_TYPE;  buff : PCIF_BUFFER_TYPE;   BEGIN {read_884_config} pcadr.double_wd := 0;  pcadr.hi_wd := 25344; {READP MBUS_subfn for 884 PC}  pcadr.lo_wd := 5; {offset table address 5} lengr := 1; {len in words} stat := 0; pc_readp (stat,pcif_tag,pcif_key,pcif_pc,buff,lengr,pcadr);  IF (stat = 690) THEN  pc_readp (stat,pcif_tag,pcif_key,pcif_pc,buff,lengr,pcadr);  IF (stat<>0) THEN halt_pcif_error (stat, pcif_pc); len_logic := buff.wd[1] MOD 256;END; {--------------------------------------}{ }{ r e s e t _ 8 8 4 _ p c }{ }{--------------------------------------}PROCEDURE reset_884_pc (pcif_pc : WORD);  VAR  stat, pcif_subfct, lengw, lengr :WORD; buffw, buffr : PCIF_BUFFER_TYPE;   BEGIN {reset_884_pc}  $ {this command is sent out with the assumption that it will complete ok} $ pcif_subfct := 19; buffw.wd[1] := 12336; lengw := 1; lengr := 0;  stat := 0;! pc_trans (stat,pcif_tag,pcif((_key,pcif_pc,pcif_subfct,buffw,lengw, !" buffr,lengr);" IF (stat<>0) THEN halt_pcif_error (stat, pcif_pc);END; {reset_884} {--------------------------------------}{ }{ p o l l _ 8 8 4 _ p c }{ }{--------------------------------------}PROCEDURE poll_884_pc (VAR sequence_cnt : WORD; pcif_pc : WORD); VAR  stat, pcif_subfct, lengw, lengr : WORD;  buffw, buffr : PCIF_BUFFER_TYPE;  BEGIN {poll_884_pc}   pcif_subfct := 18;  buffw.wd[1] := 12341; {packet length = 5} buffw.wd[2] := sequence_cnt; {sequence byte = 2} buffw.wd[3] := 17990; {subfunction selector = FF} buffw.wd[4] := 12337; {current packet = 1}  buffw.wd[5] := 12337; {total packet = 1}  buffw.wd[6] := 13111; {subfn 55}  lengw := 6; lengr := 10;  stat := 0;  REPEAT" pc_trans (stat,pcif_tag,pcif_key,pcif_pc,pcif_subfct,buffw,lengw, "# buffr,lengr);#& buffw.wd[2] := buffw.wd[2] + 1; {inc. sequence cnt}&& UNTIL ((buffr.by[10] <> '0') OR (buffr.by[11] <> '5')); {check for ack}& sequence_cnt := buffw.wd[2]; IF (stat<>0) THEN halt_pcif_error (stat, pcif_pc); ' IF ((buffr.by[10] = '0') AND (buffr.by[11] = '8')) THEN {chk normal resp}'' IF ((buffr.by[18] = '0') AND (buffr.by[19] = '0')) THEN {chk cmd status }' BEGIN  {successful clear memory sequence - do nothing}  END  ELSE BEGIN  writeln (out_file,'Unable to clear PC memory.'); finish_up(stat, pcif_pc);  END; END; {poll_884_pc}   {-------------------------------------------------------------} { } { C V T _ I N T } { - Convert a nibble to ASCII-hex char... } {-------------------------------------------------------------} function CVT_INT (N:nibble): byte;begin  case N of  0..9 : CVT_INT := 48 + N; {handles "0"-"9"} 10..15: CVT_INT := 55 + N; {handles "A"-"F"} OTHERWISE CVT_INT := 48; {if out of range, "0"}  end;{case}end; {Cvt_Int} {--------------------------------------}{ }{ l o g i n _ 8 8 4 _ p c }{ }{--------------------------------------}PROCEDURE login_884_pc (VAR sequence_cnt : WORD;  pcif_pc : WORD);VAR  temp_byte : SINGLE_BYTE_TYPE; i, stat, pcif_subfct, lengw, lengr : WORD; buffw, buffr : PCIF_BUFFER_TYPE;  BEGIN {login_884_pc}   sequence_cnt := 12337; pcif_subfct := 18;  buffw.wd[1] := 12356; {packet length = 13}  buffw.wd[2] := sequence_cnt;{sequence byte = 1}  buffw.wd[3] := 17990; {subfunction selector = FF} buffw.wd[4] := 12337; {current packet = 1}  buffw.wd[5] := 12337; {total packet = 1}  buffw.wd[6] := 12337; {subfn 01}  FOR i := 1 TO 8 DO  IF(passcode[i] <> ' ') THEN  BEGIN  temp_byte.by := ORD (passcode[i]); buffw.abs_by[2*i+11] := CVT_INT(temp_byte.hi_nib); buffw.abs_by[2*i+12] := CVT_INT(temp_byte.lo_nib); END  ELSE BEGIN  buffw.abs_by[2*i+11] := ORD('0');  buffw.abs_by[2*i+12] := ORD('0');  END; lengw := 14; lengr := 10;  stat := 0; ! pc_trans (stat,pcif_tag,pcif_key,pcif_pc,pcif_subfct,buffw,lengw, !" buffr,lengr);" IF (stat<>0) THEN halt_pcif_error (stat, pcif_pc); % IF ((buffr.by[10] = '0') AND (buffr.by[11] = '5')) THEN {chk ack resp} % BEGIN  sequence_cnt := sequence_cnt + 1;  poll_884_pc (sequence_cnt, pcif_pc); END  ELSE BEGIN  writeln (out_file,'Unable to clear PC memory.'); finish_up(stat, pcif_pc);  END; END; {login_884_pc}  {--------------------------------------}{ }{ l o g o u t _ 8 8 4 _ p c }{ }{--------------------------------------}PROCEDURE logout_884_pc (VAR sequence_cnt : WORD;  pcif_pc : WORD);VAR  stat, pcif_subfct, lengw, lengr : WORD;  buffw, buffr : PCIF_BUFFER_TYPE;   BEGIN {logout_884_pc}   pcif_subfct := 18;  buffw.wd[1] := 12341; {packet length = 5} buffw.wd[2] := sequence_cnt;{sequence byte } buffw.wd[3] := 17990; {subfunction selector = FF} buffw.wd[4] := 12337; {current packet = 1}  buffw.wd[5] := 12337; {total packet = 1}  buffw.wd[6] := 12338; {subfn 01}  lengw := 6; lengr := 10;  stat := 0; ! pc_trans (stat,pcif_tag,pcif_key,pcif_pc,pcif_subfct,buffw,lengw, !" buffr,lengr);" IF (stat<>0) THEN halt_pcif_error (stat, pcif_pc); % IF ((buffr.by[10] = '0') AND (buffr.by[11] = '5')) THEN {chk ack resp} % BEGIN  sequence_cnt := sequence_cnt + 1;  poll_884_pc (sequence_cnt, pcif_pc); END  ELSE BEGIN  writeln (out_file,'Unable to clear PC memory.'); finish_up(stat, pcif_pc);  END; END; {logout_884_pc} {--------------------------------------}{ }{ c l e a r _ 8 8 4 _ p c }{ }{--------------------------------------}PROCEDURE clear_884_pc (pcif_pc : WORD);  VAR  seq_cnt, stat, pcif_subfct, lengw, lengr : WORD;  buffw, buffr : PCIF_BUFFER_TYPE;   BEGIN {clear_884_pc}   {first step is to reset the sequence cnt}  reset_884_pc (pcif_pc);   {second step is to send a login cmd} login_884_pc (seq_cnt, pcif_pc);  {third step is to send out initialize 884 pc command}  pcif_subfct := 18;  buffw.wd[1] := 12341; {packet length = 5}  buffw.wd[2] := seq_cnt; {sequence byte } buffw.wd[3] := 17990; {subfunction selector} buffw.wd[4] := 12337; {current packet = 1} buffw.wd[5] := 12337; {total packets = 1}  buffw.wd[6] := 13112; {subfunction = 56} lengw := 6; lengr := 10;  stat := 0;! pc_trans (stat,pcif_tag,pcif_key,pcif_pc,pcif_subfct,buffw,lengw, !" buffr,lengr);" IF (stat<>0) THEN halt_pcif_error (stat, pcif_pc);  {check response message} seq_cnt := 12340; $ IF ((buffr.by[10] = '0') AND (buffr.by[11] = '5')) THEN {chk msg ack}$ poll_884_pc (seq_cnt, pcif_pc) {message ACK} ELSE BEGIN writeln (out_file,'Unable to clear PC memory.');  finish_up(stat, pcif_pc); END;{ELSE}   {last step is to logout}  logout_884_pc (seq_cnt, pcif_pc);  END; {---------------------------------------} { } { s t o p _ g m _ p c } { } {---------------------------------------} PROCEDURE stop_gm_pc (pcif_pc : WORD);VAR  stat : WORD;BEGIN {stop_pc}  stat := 0; REPEAT pc_stop (stat, pcif_tag, pcif_key, pcif_pc); UNTIL (stat <> 690);   IF (stat <> 0) AND (stat <> 811) THEN  halt_pcif_error (stat, pcif_pc);END; {stop_pc}  {---------------------------------------} { } { p r i n t _ 5 8 4 _ d i f f } { } {---------------------------------------} PROCEDURE print_584_diff (VAR proceed : BOOLEAN); VAR  i, j : WORD; fcfg_54, cfg_54 : CFG_WORD_54_TYPE;  fcfg_83, fcfg_85,  cfg_83, cfg_85 : CFG_WORD_83_TYPE; cfg_bit_size, fcfg_bit_size, cfg_mem_size, fcfg_mem_size : WORD;  max_number_dx_fns : WORD;  real_number_dx_fns : WORD;  BEGIN {print_584_diff}  writeln (out_file,'pc type = 584');  writeln (out_file, $' Download File PC Downloading To ');$ writeln (out_file, $' ------------------------- ------------------------ ');$  fcfg_54.wd := fcfg_table[54];  cfg_54.wd := cfg_table[54];  fcfg_83.wd := fcfg_table[83];  cfg_83.wd := cfg_table[83];  fcfg_85.wd := fcfg_table[85];  cfg_85.wd := cfg_table[85]; % IF (fcfg_54.bit_size = 0) THEN fcfg_bit_size:=24 ELSE fcfg_bit_size:=16;%% IF ( cfg_54.bit_size = 0) THEN cfg_bit_size:=24 ELSE cfg_bit_size:=16;% fcfg_mem_size := fcfg_table[52]*4; cfg_mem_size := cfg_table[52]*4;  write (out_file, ' Bit size ', ); write (out_file, fcfg_bit_size:15, cfg_bit_size:26); writeln(out_file);  write (out_file, ' Mem size pg 0',);  write (out_file, fcfg_mem_size:15,'K', cfg_mem_size:25,'K'); writeln(out_file);  write (out_file, ' State tbl pg F', ); ! write (out_file, fcfg_table[53]:14,'K', cfg_table[53]:25,'K');! writeln(out_file);  write (out_file, ' DX functions ');" max_number_dx_fns := fcfg_table[51] MOD 256; {mask off upper byte} "" real_number_dx_fns := cfg_table[51] MOD 256; {mask off upper byte} " IF (max_number_dx_fns < real_number_dx_fns) THEN  max_number_dx_fns := real_number_dx_fns; IF (max_number_dx_fns MOD 5 = 0) THEN max_number_dx_fns := max_number_dx_fns DIV 5 ELSE max_number_dx_fns := (max_number_dx_fn((s DIV 5) + 1;   FOR j := 1 TO max_number_dx_fns DO  BEGIN IF (j <> 1) THEN write (out_file,' ');  FOR i := 1 TO 5 DO write(out_file,fdx_fns[i+(j-1)*5]:5);  write(out_file,' ');  FOR i := 1 TO 5 DO write(out_file,dx_fns[i+(j-1)*5]:5); writeln(out_file);  END;   writeln (out_file, ' Number of coils ',fcfg_table[6]:8, cfg_table[6]:26);  writeln (out_file, ' Number of holding regs',fcfg_table[17]:7,  cfg_table[17]:26);  proceed := TRUE;  IF (cfg_table[6] < fcfg_table[6]) THEN BEGIN " writeln (out_file, ' Too many discrete outputs in the file. '); "& writeln (out_file, ' The discrete outputs will not be downloaded.');& load_table[3].length := 0; END;  IF (cfg_table[17] < fcfg_table[17]) AND (proceed = TRUE) THEN  BEGIN # writeln (out_file, ' Too many holding registers in the file. ');#& writeln (out_file, ' The holding registers will not be downloaded.'); & load_table[4].length := 0; END;  proceed := get_yes (prompt_msg_array[prompt_do_dnld],  prompt_do_dnld_len);   END; {print_584_diff}  {-----------------------------------} { } { p r i n t _ 4 8 4 _ d i f f } { } {-----------------------------------} PROCEDURE print_484_diff (VAR proceed : BOOLEAN);   BEGIN {print_484_diff}  writeln (out_file,'pc type = 484');  writeln (out_file, $' Download File PC Downloading To ');$ writeln (out_file, $' ------------------------- ------------------------ ');$write (out_file, 'Memory size ',);' write (out_file,flen_logic:10,' WORDS(8-BIT)',len_logic:13,' WORDS(8-Bit)');' writeln (out_file); write (out_file, 'Number of I/O ',);% write (out_file, flen_stat*8:10,' POINTS ',len_stat*8:13,' POINTS'); % writeln (out_file); &write (out_file, 'Number of holding regs',flen_reg DIV 2:7,len_reg DIV 2:26); & writeln (out_file); proceed := TRUE;IF (flen_logic > len_logic) THEN BEGIN  writeln(out_file,' File size is too large. '); END;proceed := get_yes (prompt_msg_array[prompt_do_dnld],  prompt_do_dnld_len);  END; {print_484_diff}  {-----------------------------------} { } { p r i n t _ 8 8 4 _ d i f f } { } {-----------------------------------} PROCEDURE print_884_diff (VAR proceed : BOOLEAN);   BEGIN {print_884_diff}  writeln (out_file,'pc type = 884');  writeln (out_file, $' Download File PC Downloading To ');$ writeln (out_file, $' ------------------------- ------------------------ ');$!write (out_file, 'Number of networks ',flen_logic:9,len_logic:26); ! writeln (out_file); flen_reg := 96;  write (out_file, 'Number of 0XXXX pts.',flen_reg:9,flen_reg:26); writeln (out_file); flen_reg := 64;  write (out_file, 'Number of 2XXXX regs',flen_reg:9,flen_reg:26); writeln (out_file); flen_reg := 1728;  write (out_file, 'Number of 4XXXX regs',flen_reg:9,flen_reg:26); writeln (out_file); flen_reg := 64;  write (out_file, 'Number of 5XXXX regs',flen_reg:9,flen_reg:26); writeln (out_file); flen_reg := 32;  write (out_file, 'Number of 9XXXX pts.',flen_reg:9,flen_reg:26); writeln (out_file); proceed := TRUE;IF (flen_logic < len_logic) THEN BEGIN  writeln(out_file,'Remaining user networks will be cleared.');  END;proceed := get_yes (prompt_msg_array[prompt_do_dnld],  prompt_do_dnld_len);  END; {print_884_diff}  {---------------------------------------} { } { s e t u p _ u s e r _ i n p u t s } { } {---------------------------------------} PROCEDURE setup_user_inputs (VAR logical_pc : WORD;  run_string : STRING80;  VAR start_pc_flag,  stop_pc_flag : BOOLEAN);  VAR  pbuff : NAMR_TYPE; i, j, istart : WORD; continue : BOOLEAN;   {**********************} { } { validate_pcnum } { } {**********************}   FUNCTION validate_pcnum (pcnum : WORD):WORD; VAR  stat : WORD; ascii_num : STRING6; BEGIN {validate_pcnum}   validate_pcnum := BAD_PC;  stat := 0; pc_connect(stat, pcif_tag, pcif_contwd, pcnum);   IF (stat = 35) THEN {unknown pcif_pc}  BEGIN % print_err_wmsg_num (err_unknown_pc_id,err_unknown_pc_id_len,pcnum,% err_unknown_pc_id_offset,' ',0,0);  END  ELSE IF (stat <> 0) THEN BEGIN  halt_pcif_error (stat,pcnum);  END  ELSE BEGIN {Connect ok, now lock} pc_lock (stat, pcnum); IF (stat <> 0) THEN halt_pcif_error (stat,pcnum) ELSE" BEGIN {Use this pc number, set global for error catching.}" validate_pcnum := GOOD_PC; pcif_pc := pcnum;  END; END; END; {validate_pcnum}   {**********************} { } { validate_file_name } { } {**********************}  FUNCTION validate_file_name (fname : STRING80):WORD;  VAR  file_type, fmp_error, len, num_dcbs : WORD;  fmp_option,  fmp_name : INTEGER; {File string descriptors for fmp.}  ok : BOOLEAN;  BEGIN {validate_file_name} chk_sum := 0;  validate_file_name := BAD_FILENAME;  IF (fname <> blank_string80) THEN BEGIN  fmp_option := rte_fopts_desc (open_read_file, 1, 3); fmp_name := rte_fname_desc (fname, 1,80);   num_dcbs := num_dcb_buffs; file_type := RTE_FmpOpen (dnld_file_dcb, fmp_error,  fmp_name, fmp_option,num_dcbs);  IF (fmp_error > 0) THEN ! BEGIN {Check the header to ensure file is of proper format} !! {Read header record, read dx fns, validate checksum.} ! ok := FALSE;  check_header (ok, chk_sum);  CASE pc_type OF  584 : BEGIN IF ok THEN get_fcfg_table (ok, chk_sum); ! IF ok THEN read_584_cfg (ok, logical_pc);! IF ok THEN get_fdx_fns (ok, chk_sum); IF ok THEN get_dx_fns (ok, logical_pc); END;  484 : BEGIN IF ok THEN get_484_fcfg (ok, chk_sum); ! IF ok THEN read_484_cfg (ok, logical_pc);!! IF ok THEN get_484_chk_sum (ok, chk_sum); ! END;  884 : BEGIN IF ok THEN get_884_fcfg (ok, chk_sum); ! IF ok THEN read_884_cfg (ok, logical_pc);!! IF ok THEN get_884_chk_sum (ok, chk_sum);! END; OTHERWISE; END; {CASE}  IF ok THEN validate_checksum(ok, chk_sum); IF ok THEN validate_file_name := GOOD_FILENAME;  END  ELSE print_fmp_error (fmp_error); END; END; {validate_file_name}   BEGIN {setup_user_inputs}  istart := 1; logical_pc := 0; start_pc_flag := FALSE; stop_pc_flag := TRUE; continue := FALSE;   WHILE NOT continue DO  BEGIN  get_pc_num(logical_pc);   WHILE (validate_pcnum(logical_pc) = BAD_PC)  DO get_pc_num(logical_pc);  get_file_name(dnld_file_name);  WHILE (validate_file_name (dnld_file_name) = BAD_FILENAME)  DO get_file_name(dnld_file_name);   CASE pc_type OF  584 : print_584_diff (continue); 484 : print_484_diff (continue); 884 : BEGIN  get_884_passcode (passcode); print_884_diff (continue); END; OTHERWISE;  END; {CASE}  END; get_start_flag (start_pc_flag);   END; {setup_user_inputs}    {---------------------------------------} { } { r e w i n d _ f i l e } { } {---------------------------------------}  PROCEDURE rewind_file; VAR  fmp_error, err, actual_length : WORD; BEGIN {rewind_file}  err := rte_fmprewind (dnld_file_dcb, fmp_error); IF (fmp_error <> 0) THEN halt_fmp_error (fmp_error, pcif_pc);   actual_length := rte_fmpreadd (dnld_file_dcb, fmp_error," file_descriptor_rec, file_descr_rec_len); " IF (fmp_error <> 0) THEN halt_fmp_error(fmp_error, pcif_pc); END; {rewind_file}  {---------------------------------------} { } { i n i t } { } {---------------------------------------} PROCEDURE init; {Initialize the variables needed.}  VAR  stat, i : WORD;  time_string : STRING26;  BEGIN {init}  command_ptr := 1;  IF run_string_buff_len > 80 THEN run_string_buff_len := 80;  FOR i := 1 TO run_string_buff_len DO BEGIN  command_string[i] := run_string_buff[i]; ! IF (command_string[i] = ',') THEN command_string[i] := ' ';! (( END;" FOR i := run_string_buff_len + 1 TO 80 DO command_string[i] := ' '; " FOR i := 1 TO 80 DO blank_string80 := ' '; dnld_file_name := blank_string80;  pcif_tag := 0; pcif_contwd := 0;  pcif_key := 0; pcif_pc := 0;  pcif_buffer_size := 512; {512 bytes for comm with pcif }  start_pc := FALSE; stop_pc := TRUE;  chk_sum := 0;   FOR i := 1 TO max_dx_fns DO  BEGIN  fdx_fns[i] := ' '; dx_fns[i] := ' ';  END; open_read_file := 'rso';   reset (in_file, '1'); rewrite (out_file, '1');  stat := 0; pcif_open (stat);  IF (stat <> 0) THEN halt_pcif_error(stat, 0);  get_time (time_string); writeln (out_file);  FOR i := 1 TO banner1_len DO write (out_file, % banner_msg_array[banner1_index, i]);% FOR i := 1 TO banner2_len DO write (out_file, % banner_msg_array[banner2_index, i]);% writeln (out_file);  FOR i := 1 TO 26 DO write (out_file, time_string[i]);  writeln (out_file);  FOR i := 1 TO banner3_len DO write (out_file, % banner_msg_array[banner3_index, i]);% writeln (out_file); END; {init}  {-----------------------------------} { } { d n _ 5 8 4 } { } {-----------------------------------} PROCEDURE dn_584; {Download the proper areas for a 584 PC}  VAR  section : WORD;  BEGIN {dn_584} writeln (out_file,'Begin 584 PC download'); " FOR section := 3 TO 4 DO IF (load_table[section].length <> 0) THEN" BEGIN " dnld_data_section (section, logical_pc);"# print_msg (status_msg_array[section], 40);# END;END; {dn_584}  {-----------------------------------} { } { d n _ 4 8 4 } { } {-----------------------------------} PROCEDURE dn_484; {Download the proper areas for a 484 PC}  VAR  section : WORD;  BEGIN {dn_484} writeln (out_file,'Begin 484 PC download');  FOR section := 3 TO 5 DO  BEGIN " dnld_data_section (section, logical_pc);"% print_msg (status_msg_array[section + 4], 40);% END;END; {dn_484}  {-----------------------------------} { } { d n _ 8 8 4 } { } {-----------------------------------} PROCEDURE dn_884; {Download the proper areas for a 884 PC}  VAR  section : WORD;  BEGIN {dn_884} writeln (out_file,'Begin 884 PC download.'); {clear the 884 pc memory and download user logic networks} clear_884_pc(logical_pc); $ print_msg (status_msg_array[pc_cleared], 40); $ IF (flen_logic <> 0) THEN  BEGIN ! dnld_data_section (3, logical_pc);!" print_msg (status_msg_array[7], 40);" END; FOR section := 4 TO 5 DO  BEGIN " dnld_data_section (section, logical_pc);"% print_msg (status_msg_array[section - 1], 40);% END;  FOR section := 6 TO 8 DO  BEGIN " dnld_data_section (section, logical_pc);"% print_msg (status_msg_array[section + 4], 40);% END;END; {dn_884}  {-----------------------------------} { } { G M D N M A I N } { } {-----------------------------------} BEGIN {GMDN} err_catcher_already_here := FALSE; rte_get_run_string (run_string_buff, -80, run_string_buff_len);  init; ! setup_user_inputs (logical_pc,run_string_buff,start_pc,stop_pc);! IF (stop_pc) THEN stop_gm_pc (logical_pc); rewind_file; CASE pc_type OF  484 : dn_484; 584 : dn_584; 884 : dn_884;  OTHERWISE; {do nothing} END;{CASE} restart (logical_pc, start_pc); ! IF start_pc THEN print_msg (status_msg_array[pc_restarted], 40);!  print_msg (status_msg_array[dnld_complete], 40); " finish_up(0, logical_pc); {Unlock, start, close pcif, close files.} " END. {GMDN}/PCIF/GM/GMLBC.FTN:::4:52:39 644 0 0 32000 5303173465 34254 /PCIF_GM/GM/GMLBC.FTN:::4:52:39 $4 fL4'GMLBC FTN + 4+ 5+ 544DFST ftn7x,l $CDS ON #C *******************************************************************#C Programmer : CGY Time Stamp <870316.1605> C C MODIFIED 10/06/86 : Add 884 PC support by MWC C MODIFIED 2/10/86 : Add 484 PC support by MWC C C NAME: GMLBC Source Code C C SOURCE: 94203-18010 C RELOC: 94203-1X010 #C The Revision number can be found after each subroutine declaration. #"C Since this is all one source, all subroutines have the same part"C number. #C *******************************************************************#C C This is the GMLBC source. It is a collection of subroutines $C for use with PCIF/1000 and Gould-Modicon Programmable Controllers.$C C Included in this library are the following : C &C IT_QUITS - closes out a program from PCIF and terminates the program &C &C REPORT_FMP_ERR - displays a File Management Package error on a terminal &C %C REPORT_PCIF_GM_ERR - displays a PCIF error on a terminal or other LU%C &C GM_ERROR - processes the Gould-Modicon-specific errors which PCIF_ERROR &C doesn't handle. C #C *******************************************************************#  subroutine GM_ERROR ( status, message, length ) +,94203-1X010 REV.5000 <870316.1605>  #C This subroutine converts an error message from the PCIF format into # C an ASCII message.   ! integer status ! error code from PCIF!" integer gm_status ! error code ( ERR byte ) "% integer message ( 40 ) ! ASCII error message returned%% integer message_array (41, 69) ! array containing all messages %' integer error_code_index (68) ! array containing all error codes'% integer length ! how many bytes in the message %# logical found_a_match ! search for match between#& ! gm_status and error_code_index &$ integer ones, tens, hundreds ! digits of unknown ERR codes$  data message_array /  + 24,24hERR = 00 No Error,28*2h ,  + 38,38hMODBUS ERROR Illegal Function (01) , 21*2h , + 42,42hMODBUS ERROR Illegal Data Address (02) ,19*2h , # + 48,48hMODBUS ERROR Illegal Data Value (03) ,16*2h , # + 50,50hMODBUS ERROR Failure In Associated Device (04) ,  + 15*2h , + 32,32hMODBUS ERROR Acknowledge (05), 24*2h ,! + 44,44hMODBUS ERROR Busy, Rejected Message (06) ,18*2h , ! + 50,50hMODBUS ERROR Nak, Negative Acknowledgement (07),  + 15*2h , # + 56,56hMODBUS ERROR Invalid Command (Poll 14 "01" response) , # + 12*2h ,# + 56,56hMODBUS ERROR Invalid Address (Poll 14 "02" response) , # + 12*2h , + 60,48hMODBUS ERROR Memory protect is on (Poll 14 "0,  + 12h3" response) , 10*2h ,! + 52,52hMODBUS ERROR Memory Full (Poll 14 "04" response) , ! + 14*2h ,# + 58,56hMODBUS ERROR Invalid Node Type (Poll 14 "05" response, # + 2h) , 11*2h , # + 56,56hMODBUS ERROR Coil Is Used (Poll 14 "06" response) , # + 12*2h ,! + 64,52hMODBUS ERROR Invalid Reference Number (Poll 14 "0, ! + 12h7" response) , 8*2h ,# + 62,56hMODBUS ERROR Invalid Parameter (Poll 14 "08" response, # + 4h) , 10*2h , # + 58,56hMODBUS ERROR Controller Running (Poll 14 "09" respons, # + 2he),11*2h , " + 54,54hMODBUS ERROR Not Logged In (Poll 14 "10" response) , " + 13*2h , + 60,48hMODBUS ERROR Coil Not Disabled (Poll 14 "11" ,  + 12hresponse) , 10*2h , " + 54,54hMODBUS ERROR Search Failed (Poll 14 "12" response) , " + 13*2h ,# + 62,56hMODBUS ERROR Illegal Configuration (Poll 14 "13" resp, # + 6honse) , 9*2h , # + 56,56hMODBUS ERROR Illegal Message (Poll 14 "14" response) , # + 12*2h ," + 66,54hMODBUS ERROR Illegal Sequence Of Insert (Poll 14 "1, " + 12h5" response) , 7*2h ," + 54,54hMODBUS ERROR Parity or Framing Error (01) , " + 13*2h ," + 54,54hMODBUS ERROR Controller Overrun Error (02) , " + 13*2h ," + 54,54hMODBUS ERROR Incorrect Chec((ksum Error (03) , " + 13*2h ," + 54,54hMODBUS ERROR Incorrect Address Range (04) , " + 13*2h ," + 54,54hMODBUS ERROR Incorrect Address Boundary (05) , " + 13*2h ," + 54,54hMODBUS ERROR Illegal Command (06) , " + 13*2h ," + 54,54hMODBUS ERROR Invalid Data (0A) , " + 13*2h ," + 54,54hMODBUS ERROR Memory protect on (0B) , " + 13*2h ," + 54,54hMODBUS ERROR System not stopped (0C) , " + 13*2h ," + 54,54hMODBUS ERROR Incorrect Length J470 Error (0D) , " + 13*2h ," + 54,54hMODBUS ERROR Memory Full (11) , " + 13*2h ," + 54,54hMODBUS ERROR Illegal function , " + 13*2h ," + 54,54hMODBUS ERROR Failure in associated device , " + 13*2h ," + 54,54hMODBUS ERROR MESSAGE ACK (issue a POLL) , " + 13*2h ," + 54,54hMODBUS ERROR BUSY (re-issue command) , " + 13*2h ," + 54,54hMODBUS ERROR Normal response to POLL or ABORT , " + 13*2h ," + 54,54hMODBUS ERROR PACKET ACK (issue next packet) , " + 13*2h ," + 54,54hMODBUS ERROR Message size is too large for the PC , " + 13*2h ," + 54,54hMODBUS ERROR Message BUSY (reset link req.) , " + 13*2h ," + 54,54hMODBUS ERROR Message sequence err (reset link req.), " + 13*2h ," + 54,54hMODBUS ERROR Sequencing err (re-issue PCIF call) , " + 13*2h ," + 54,54hMODBUS ERROR Response is greater than PC's max. len, " + 13*2h ," + 54,54hMODBUS ERROR Another user already logged on , " + 13*2h ," + 54,54hMODBUS ERROR Invalid passcode , " + 13*2h ," + 54,54hMODBUS ERROR The requested search failed , " + 13*2h ," + 54,54hMODBUS ERROR PC must be stopped for this request , " + 13*2h ," + 54,54hMODBUS ERROR Memory is write protected , " + 13*2h ," + 54,54hMODBUS ERROR PC is already started , " + 13*2h ," + 54,54hMODBUS ERROR PC is already stopped , " + 13*2h ," + 54,54hMODBUS ERROR Current state does not allow PC starts, " + 13*2h ," + 54,54hMODBUS ERROR Logout issued without an initial login, " + 13*2h ," + 54,54hMODBUS ERROR PC is crashed , " + 13*2h ," + 54,54hMODBUS ERROR Requested coil is already used , " + 13*2h ," + 54,54hMODBUS ERROR Requested latch is already used , " + 13*2h ," + 54,54hMODBUS ERROR Non-contiguous network no. input , " + 13*2h ," + 54,54hMODBUS ERROR User logic full, can't insert network , " + 13*2h ," + 54,54hMODBUS ERROR User logic full, can't replace network, " + 13*2h ," + 54,54hMODBUS ERROR Network skipped by logic solver , " + 13*2h ," + 54,54hMODBUS ERROR Improper string format , " + 13*2h ," + 54,54hMODBUS ERROR Data may not be read or written to , " + 13*2h ," + 54,54hMODBUS ERROR Incorrect passcode table boundary , " + 13*2h ," + 54,54hMODBUS ERROR Improper scan interval, request denied, " + 13*2h ," + 54,54hMODBUS ERROR Unimplemented feature , " + 13*2h ," + 54,54hMODBUS ERROR Excess user logic , " + 13*2h ," + 54,54hMODBUS ERROR Unknown network opcode (check options), " + 13*2h , + 38,38hUndecipherable Message , ERR Code = ,21*2h /  " data error_code_index / 0, 513, 514, 515, 516, 517, 518, 519, "" + 577, 578, 579, 580, 581, 582, 583, 584, 585, 586, 587, 588, "" + 589, 590, 591, 613, 614, 615, 616, 617, 618, 619, 620, 621, "" + 622, 623, 677, 680, 681, 682, 684, 686, 687, 688, 689, 690, "" + 691, 805, 806, 807, 808, 809, 810, 811, 812, 813, 814, 815, "" + 816, 817, 818, 819, 820, 821, 822, 823, 824, 825, 826, 827/ "  gm_status = status  found_a_match = .FALSE.  C Search through the known error codes to find a match.   i = 0  do while ( .NOT. (found_a_match) .AND. ( i .LT. 68 ) )   i = i + 1  if ( error_code_index(i) .EQ. gm_status ) then   do k = 1, 40  message (k) = message_array ( k+1, i )  end do  found_a_match = .TRUE.  length = message_array ( 1, i )  end if   end do "C The ERR code was not in the table, so write in the message buffer"C "Undecipherable message".  if ( .NOT. ( found_a_match ) ) then  do k = 1, 40  message(k) = message_array ( k+1, 69 )  end do  %C The unknown ERR code must be converted to Hollerith format to get stuck% C in the ASCII buffer.   if ( gm_status .LT. 0 ) then  gm_status = - gm_status% message ( 20 ) = 26400B ! make a minus sign in% ! left byte  else " message ( 20 ) = 20000B ! make a blank in " end if ! left byte   if ( gm_status .LT. 1000 ) then  hundreds = gm_status / 100 tens = ( gm_status - 100 * hundreds ) / 10 ones = gm_status - hundreds * 100 - tens * 10  ' message ( 20 ) = message(20) + 60B + hundreds ! hundreds digit'# message ( 21 ) = ( 60B + tens ) * 400B ! tens digit #% message ( 21 ) = ( 60B + ones ) + message ( 21 ) ! ones digit % length = 42  else  !C The ERR code is over 1000 - this is clearly an error condition. !C Erase the "ERR code = " message and return.  do k = 12, 21  message(k) = 2h end do  length = 24 end if   end if return end  "C *****************************************************************" $C *********************************************************************$C Subroutine to handle program ending.  subroutine IT_QUITS ( pc ) +,94203-1X010 REV.5000 <870316.1605>   call PC_UNLOCK ( status, pc )  call PCIF_CLOSE ( status ) call exec ( 6, 0, 0 )  return end C #C*********************************************************************#%C This subroutine reports an FMP error to a Logical Unit, then terminates %C the program. C  subroutine report_fmp_err ( log_lu, status ) +,94203-1X010 REV.5000 <870316.1605>   integer status, log_lu # write (log_lu ,'(2/,"&dB FMP error during file operation : ",I4, # + /)') status  return end C "C ******************************************************************* "C This subroutine handles PCIF Error reporting to an LU forC Gould-Modicon and PCIF errors.C  subroutine report_pcif_gm_err ( log_lu, status ) +,94203-1X010 REV.5000 <870316.1605>   integer error_message(67), error_length, status, log_lu   if ( status .LT. 512 ) then  call PCIF_ERROR ( status, error_message, error_length )  else call GM_ERROR ( status, error_message, error_length ) end if ! write ( log_lu , '(///,"&dB",67A2,/)') ( error_message (k),! + k = 1, (error_length+1)/2 )   return end  $C *********************************************************************$/PCIF/GM/GMUP0.PAS:::4:35:39 644 0 0 21400 5303173466 34501 /PCIF_GM/GM/GMUP0.PAS:::4:35:39 $# f#'GMUP0 PAS + 5+ 6+ 6#^zFST $PASCAL '94203-16011 REV.5000 <870312.1814>'"{ }""{ NAME : GMUP0 }""{ SOURCE: 94203-18011 }""{ RELOC.: 94203-16011 }""{ PRGMR : CGY }""{ }""{ MODIFIED 2/10/86 : Add 484 PC support by MWC }""{ MODIFIED 2/23/87 : Add 884 PC support by MWC }""{ **************************************************************** }""{ * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1985. ALL RIGHTS * }""{ * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED * }""{ * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT * }""{ * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY * }""{ ************************************((**************************** }""{ }"$ HEAP 0 $$ CDS ON $$ RUN_STRING 0 $$ RECURSIVE OFF ; RANGE ON $  $ TITLE 'GMUP 484/584/884 Declarations' $  MODULE GMUP0; EXPORT CONST  number_upld_file_sections = 11;  number_banner_lines = 3; number_err_msgs = 5; number_prompt_msgs = 5; " max_read_length = 1024; {1024 bytes is max size of comm with pcif} " cfg_table_size = 128; {Must be a power of 2!!}& NUM_DX_FNS_IDX = 51; {Index into config table for number of dx fns in 584} & READ_DX_FN = 42;  READ_DX_FN_BYTE_LEN = 16; {length is 16 bytes.}  # upld_file_data_rec_size =144; {Max number of bytes in data record.}#" file_descript_rec_len =6; {File record descriptor record length} " num_dcb_buffs = 4;  dcb_buff_size = num_dcb_buffs*128 + 16;   BAD_PC = 0;  GOOD_PC = 1; BAD_FILENAME = 0; GOOD_FILENAME = 1;  TYPE WORD = -32768..32767; ABS_WORD = 0..65535; BYTE = -128..127; ABS_BYTE = 0..255;  ERROR_TYPE = (run, ema, io, fmp, seg, warn); FILE_NAME = PACKED ARRAY[1..150] OF CHAR;   STRING2 = PACKED ARRAY[1..2] OF CHAR; STRING3 = PACKED ARRAY[1..3] OF CHAR; STRING4 = PACKED ARRAY[1..4] OF CHAR; STRING6 = PACKED ARRAY[1..6] OF CHAR; STRING26 = PACKED ARRAY[1..26] OF CHAR;  STRING40 = PACKED ARRAY[1..40] OF CHAR;  STRING80 = PACKED ARRAY[1..80] OF CHAR;  STRING120= PACKED ARRAY[1..120] OF CHAR; " MSG_ARRAY_TYPE = ARRAY [1..number_upld_file_sections] OF STRING40;"" BANNER_MSG_ARRAY_TYPE = ARRAY [1..number_banner_lines] OF STRING40; " ERR_MSG_ARRAY_TYPE = ARRAY [1..number_err_msgs] OF STRING40;" PROMPT_MSG_ARRAY_TYPE = ARRAY [1..number_prompt_msgs] OF STRING40;" DCB_BUFFR = ARRAY[1..dcb_buff_size] OF WORD;  CONST  prompt_msg_array = PROMPT_MSG_ARRAY_TYPE [! STRING40['Enter the PC Identifier: '], !! STRING40['Do you want to overwrite it (Y or N) ? '], !! STRING40['Enter the upload file name (/E to quit):'], !! STRING40['Re-start PC after upload (Y or N) ? '],!" STRING40['Enter upload file title: ']];" prompt_pcnum = 1; prompt_pcnum_len = 25; prompt_overwrite = 2;  prompt_overwrite_len = 39; prompt_upld_name = 3;  prompt_upld_name_len = 40; prompt_start_pc = 4; prompt_start_pc_len =37; prompt_header = 5; prompt_header_len =25;   error_msg_array = ERR_MSG_ARRAY_TYPE [! STRING40['File already exists with the name: '], !! STRING40['Error trying to reopen file: '], !! STRING40['Error in opening file: '], !! STRING40['Illegal pc number in run string. '], !" STRING40['Unknown PC Identifier: ']];"  err_msg_len =40; err_file_exists = 1; err_file_exists_len =35; err_file_exists_fmp_offset =36; err_reopen = 2; err_reopen_len =36; err_reopen_err_offset = 8; err_reopen_fmp_offset =37; err_open = 3; err_open_err_offset = 8; err_open_fmp_offset =31; err_illegal_pcnum_in_rstring = 4; err_illegal_pcnum_in_rstring_len =34; err_unknown_pc_id = 5;  err_unknown_pc_id_len = 30; err_unknown_pc_id_offset = 24;  status_msg_array = MSG_ARRAY_TYPE [ ! STRING40['Header record written to file. '], !! STRING40['Configuration table written to file. '], !! STRING40['Discrete output values written to file. '], !! STRING40['Holding register values written to file.'], !! STRING40['Available DX functions written to file. '], !! STRING40['LRC Checksum written to file. '], !! STRING40['User logic values written to file. '], !! STRING40['Input and coil values written to file. '], !! STRING40['Sequencer reg. values written to file. '], !! STRING40['Double precision regs. written to file. '], !" STRING40['Latch values written to file. ']];"  banner_msg_array = BANNER_MSG_ARRAY_TYPE [ ! STRING40['PCIF/1000 Upload utility GMUP 94203-1600'], ! STRING40['7 REV.5000 <870312.1814> ' ! ], !" STRING40[' (Type /E to quit) ']];" banner1_index = 1; banner1_len = 40; banner2_index = 2; banner2_len = 26; banner3_index = 3; banner3_len = 29;    TYPE NAMR_TYPE = ARRAY[1..33] OF WORD;  IDENT_BUFFER_TYPE = ARRAY[1..10] OF WORD;  CFG_BUFFER_TYPE = ARRAY[1..cfg_table_size] OF WORD;  SECT_DATA_TYPE = RECORD  start_address,  length : WORD;  END; % LOAD_TABLE_TYPE = ARRAY[1..number_upld_file_sections] OF SECT_DATA_TYPE;% PCIF_BUFFER_TYPE = RECORD CASE INTEGER OF  1 : (wd : ARRAY[1..max_read_length DIV 2] OF WORD); ! 2 : (by : PACKED ARRAY[1..max_read_length] OF CHAR);!% 3 : (abs_by : PACKED ARRAY[1..max_read_length] OF ABS_BYTE);% END;  PCADR_TYPE = PACKED RECORD CASE INTEGER OF$ 1 : (hi_byte, med_hi_byte, med_lo_byte, lo_byte : BYTE);$ 2 : (hi_wd, lo_wd : WORD); 3 : (hi_abs_wd, lo_abs_wd : ABS_WORD); 4 : (double_wd : INTEGER); END;  LRC_TYPE = PACKED RECORD CASE INTEGER OF 1 : (hi_abs_byte, lo_abs_byte : ABS_BYTE); 2 : (wd : WORD); END;    UPLD_DESCRIPTOR_REC_TYPE = PACKED RECORD CASE INTEGER OF 1 : (sect_num, start_adr, len : WORD); 2 : (lrc_bytes : PACKED ARRAY[1..6] OF ABS_BYTE);  END;   MULTI_WORD_TYPE = PACKED RECORD CASE INTEGER OF  1 : (hi_bit : 0..1; low_bits : 0..32767); 2 : (wd : WORD);  END;   SINGLE_WORD_TYPE = PACKED RECORD CASE INTEGER OF 1 : (wd :WORD);  2 : (by1, by2 : BYTE); END; VAR  run_string_buff : STRING80;  blank_string80 : STRING80; run_string_buff_len : WORD;  cfg_buffer : CFG_BUFFER_TYPE;  load_table : LOAD_TABLE_TYPE;  mem_contents_array : PCIF_BUFFER_TYPE; upld_file_name : STRING80; upld_file_dcb : DCB_BUFFR;  open_create_file,  open_overwrite_file : STRING3;  header_msg : STRING80; chk_sum : INTEGER;   pc_type, logical_pc,  pcif_buffer_size, {Size used for actual i/o to monitor.}  section : WORD; % start_pc, {Indicates whether gmup should start pc after upload.} %% stop_pc : BOOLEAN; {indicates whether gmup should stop pc before upload.} %  pcif_stat, pcif_tag, pcif_contwd, pcif_key, pcif_pc : WORD; # err_catcher_already_here : BOOLEAN; {Used to prevent double invoke.} #  command_ptr : WORD; {Used for text input}  command_string : STRING80; {Used for text input}  found_flag, {Used for input.} ! stop_flag : BOOLEAN; {Used for input, stop pgm if * or A}!  in_file, out_file : TEXT; {Used for terminal i/o.} IMPLEMENT END./PCIF/GM/GMDN0.PAS:::4:50:39 644 0 0 31000 5303173467 34400 /PCIF_GM/GM/GMDN0.PAS:::4:50:39 $2 f2'GMDN0 PAS + 7+ 7+ 72%FST $PASCAL '94203-16012 REV.5000 <870312.1815>'"{ }""{ NAME : GMDN0 }""{ SOURCE: 94203-18012 }""{ RELOC.: 94203-16012 }""{ PRGMR : CGY }""{ }""{ MODIFIED 2/10/86 : Add 484 PC support by MWC }""{ MODIFIED 2/23/87 : Add 884 PC support by MWC }""{ **************************************************************** }""{ * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1985. ALL RIGHTS * }""{ * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED * }""{ * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT * }""{ * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY * }""{ **************************************************************** }""{ }"$ HEAP 0 $$ CDS ON $$ RUN_STRING 0 $$ RECURSIVE OFF ; RANGE ON $  $ TITLE 'GMDN 484/584/884 Declarations' $  MODULE GMDN0; EXPORT CONST % number_upld_file_sections = 13; {updated 2/23/87} % number_cfg_dnld_parts = 3;  number_banner_lines = 3; % number_err_msgs = 10; {updated 2/23/87} %(( number_prompt_msgs = 7;  cfg_table_size = 128; {Must be a power of 2!!} cfg_table_start_address = 48; & NUM_DX_FNS_IDX = 51; {Index into config table for number of dx fns in 584} & READ_DX_FN = 42;  READ_DX_FN_BYTE_LEN = 16; {length is 16 bytes.} % max_read_length = 1024; {Number of bytes to read from PCIF at one time.} %" MAX_DX_FNS = 100; {Max number of nodes readable from dnload file.} "  file_descr_rec_len = 6; {8 bytes per file descriptor record.} # upld_file_data_rec_size =144; {Max number of bytes in data record.}# num_dcb_buffs = 4;  dcb_buff_size = num_dcb_buffs*128 + 16;   READ_MEM = 3;  READ_DX =42;   BAD_PC = 0;  GOOD_PC = 1; BAD_FILENAME = 0; GOOD_FILENAME = 1;  TYPE WORD = -32768..32767; ABS_WORD = 0..65535; BYTE = -128..127; ABS_BYTE = 0..255;  NIBBLE = 0..15;  GT_BIT = 0..1; ERROR_TYPE = (run, ema, io, fmp, seg, warn); FILE_NAME = PACKED ARRAY[1..150] OF CHAR;   WORD16 = ARRAY[0..15] OF WORD; STRING2 = PACKED ARRAY[1..2] OF CHAR; STRING3 = PACKED ARRAY[1..3] OF CHAR; STRING4 = PACKED ARRAY[1..4] OF CHAR; STRING6 = PACKED ARRAY[1..6] OF CHAR; STRING7 = PACKED ARRAY[1..7] OF CHAR; STRING9 = PACKED ARRAY[1..9] OF CHAR; STRING26 = PACKED ARRAY[1..26] OF CHAR;  STRING40 = PACKED ARRAY[1..40] OF CHAR;  STRING80 = PACKED ARRAY[1..80] OF CHAR;  STRING120= PACKED ARRAY[1..120] OF CHAR;  " MSG_ARRAY_TYPE = ARRAY [1..number_upld_file_sections] OF STRING40;"" BANNER_MSG_ARRAY_TYPE = ARRAY [1..number_banner_lines] OF STRING40; " ERR_MSG_ARRAY_TYPE = ARRAY [1..number_err_msgs] OF STRING40;" PROMPT_MSG_ARRAY_TYPE = ARRAY [1..number_prompt_msgs] OF STRING40;" DCB_BUFFR = ARRAY[1..dcb_buff_size] OF WORD;  DX_NODE_TYPE = PACKED RECORD CASE INTEGER OF 1 : (num_nodes2, range2 : BYTE; fill7 : STRING7; ascii_name2 : STRING4; spare2 : BYTE);  2 : (num_nodes3, range3 : BYTE; fill9 : STRING9; ascii_name3 : STRING4; spare3 : BYTE);  3 : (by : PACKED ARRAY[1..16] OF CHAR); END;   CFG_WORD_54_TYPE = PACKED RECORD CASE INTEGER OF 1:(port1_setup, port2_setup, port1_addr_set,  port2_addr_set,  fill11, fill10, fill9, bit_size,  power_ok,  run_light, mem_protect, battery_ok : GT_BIT; fill3_0 : 0..15);  2:(wd : WORD);  END;  CFG_WORD_83_TYPE = PACKED RECORD CASE INTEGER OF 1:(hi_byte : BYTE;  comm_mode, parity_select, parity_type, stop_bits : GT_BIT;  baud_rate : 0..15);  2:(wd : WORD);  END; CONST  model_584 = STRING6 [' 584'];   baud_rate_table = WORD16 [ 50, 75, 110, 134, 150,  300, 600, 1200, 1800, 2000, 2400,  3600, 4800, 7200, 9600,19200];   prompt_msg_array = PROMPT_MSG_ARRAY_TYPE [! STRING40['Enter the PC Identifier: '], !! STRING40['Enter the dnload file name (/E to quit):'], !! STRING40['Re-start PC after download (Y or N)? '], !! STRING40['Download file title is: '], !! STRING40['Proceed with download (Y or N)? '], !! STRING40['Is this the correct file (Y or N)? '], !" STRING40['Enter the 8 character passcode: ']];" prompt_pcnum = 1; prompt_pcnum_len = 25; prompt_dnld_name = 2;  prompt_dnld_name_len = 40; prompt_start_pc = 3; prompt_start_pc_len =36; prompt_header = 4; prompt_header_len =25; prompt_do_dnld = 5; prompt_do_dnld_len =32; prompt_accept_title = 6; prompt_accept_title_len=35;  prompt_884_passcode = 7; prompt_passcode_len =32;  error_msg_array = ERR_MSG_ARRAY_TYPE [! STRING40['Illegal dnload file (model not 584). '], !! STRING40['Error in opening file: '], !! STRING40['Illegal pc number in run string. '], !! STRING40['Unknown PC Identifier: '], !! STRING40['Illegal dnload file (bad header fmt). '], !! STRING40['Illegal dnload file (bad cfg table fmt).'], !! STRING40['Illegal dnload file (bad dx fn format). '], !! STRING40['Illegal dnload file (bad checksum). '], !! STRING40['Illegal dnload file (model not 484). '], !' STRING40['Illegal dnload file (model not 884). ']]; {*added*}'' err_msg_len =40; {2/23/87}' err_illegal_model_584 = 1; err_illegal_model_484 = 9;' err_illegal_model_884 = 10; { added 2/23/87}' err_open = 2; err_open_err_offset = 8; err_open_fmp_offset =31; err_illegal_pcnum_in_rstring = 3; err_illegal_pcnum_in_rstring_len =34; err_bad_chksum = 8; err_unknown_pc_id = 4;  err_unknown_pc_id_len = 30; err_unknown_pc_id_offset = 24;  status_msg_array = MSG_ARRAY_TYPE [ ! STRING40[' '], !! STRING40[' '], !! STRING40['Discrete output values written to PC. '], !! STRING40['Holding register values written to PC. '], !! STRING40['PC started. '], !! STRING40['Successfully completed download. '], !! STRING40['User logic values written to PC. '], !! STRING40['Discrete output values written to PC. '], !! STRING40['Holding register values written to PC. '], !' STRING40['Sequence register values written to PC. '], {*******}'' STRING40['Dbl precision reg. values written to PC.'], {*added*}'' STRING40['Latch values written to PC. '], {*******}'' STRING40['PC memory cleared. ']]; {2/23/87}'  pc_restarted = 5; dnld_complete = 6; pc_cleared = 13;   banner_msg_array = BANNER_MSG_ARRAY_TYPE [ ! STRING40['PCIF/1000 Upload utility GMDN 94203-1600'], ! STRING40['8 REV.5000 <870312.1815> ' ! ], !" STRING40[' (Type /E to quit) ']];" banner1_index = 1; banner1_len = 40; banner2_index = 2; banner2_len = 26; banner3_index = 3; banner3_len = 29;    TYPE NAMR_TYPE = ARRAY[1..33] OF WORD;  IDENT_BUFFER_TYPE = ARRAY[1..10] OF WORD;  CFG_BUFFER_TYPE = ARRAY[1..cfg_table_size] OF WORD;  SECT_DATA_TYPE = RECORD  start_address,  length : WORD;  END; % LOAD_TABLE_TYPE = ARRAY[1..number_upld_file_sections] OF SECT_DATA_TYPE;% PCIF_BUFFER_TYPE = RECORD CASE INTEGER OF  1 : (wd : ARRAY[1..max_read_length DIV 2] OF WORD); ! 2 : (by : PACKED ARRAY[1..max_read_length] OF CHAR);!% 3 : (abs_by : PACKED ARRAY[1..max_read_length] OF ABS_BYTE);% END;  PCADR_TYPE = PACKED RECORD CASE INTEGER OF$ 1 : (hi_byte, med_hi_byte, med_lo_byte, lo_byte : BYTE);$ 2 : (hi_wd, lo_wd : WORD); 3 : (hi_abs_wd, lo_abs_wd : ABS_WORD); 4 : (double_wd : INTEGER); END;  LRC_TYPE = PACKED RECORD CASE INTEGER OF 1 : (hi_abs_byte, lo_abs_byte : ABS_BYTE); 2 : (wd : WORD); END;   UPLD_DESCRIPTOR_REC_TYPE = PACKED RECORD CASE INTEGER OF 1 : (sect_num, start_adr, len : WORD);" 2 : (lrc_bytes : PACKED ARRAY[1..file_descr_rec_len]" OF ABS_BYTE);  END;  SINGLE_WORD_TYPE = PACKED RECORD CASE INTEGER OF 1 : (wd :WORD);  2 : (by1, by2 : BYTE); END;  SINGLE_BYTE_TYPE = PACKED RECORD CASE INTEGER OF 1 : (by : BYTE); 2 : (hi_nib, lo_nib : NIBBLE); END; VAR  run_string_buff : STRING80;  blank_string80 : STRING80; run_string_buff_len : WORD;  cfg_buffer,  cfg_table, fcfg_table : CFG_BUFFER_TYPE;  dx_fns,  fdx_fns : ARRAY[1..MAX_DX_FNS] OF STRING4; load_table : LOAD_TABLE_TYPE;  mem_contents_array,  file_contents_array : PCIF_BUFFER_TYPE;  file_descriptor_rec : UPLD_DESCRIPTOR_REC_TYPE;  dnld_file_name : STRING80;% passcode : STRING80; {used for 884 pc}%% dnld_file_dcb : DCB_BUFFR; {** 2/23/87 **}%  open_read_file : STRING3;   header_msg : STRING80; chk_sum : INTEGER;   cfg_484_buffer, fcfg_484_buffer : SINGLE_WORD_TYPE;  flen_logic, flen_stat, flen_reg,' len_logic, len_stat, len_reg : WORD; {Used to store memory cfg for 484}'  ident_buf : ID((ENT_BUFFER_TYPE;  pc_type, logical_pc,  pcif_buffer_size, {Size used for actual i/o to monitor.}  section : WORD; % start_pc, {Indicates whether GMDN should start pc after upload.} %% stop_pc : BOOLEAN; {indicates whether GMDN should stop pc before upload.} %  pcif_stat, pcif_tag, pcif_contwd, pcif_key, pcif_pc : WORD; # err_catcher_already_here : BOOLEAN; {Used to prevent double invoke.} #  command_ptr : WORD; {Used for text input}  command_string : STRING80; {Used for text input}  found_flag, {Used for input.} ! stop_flag : BOOLEAN; {Used for input, stop pgm if * or A}!  in_file, out_file : TEXT; {Used for terminal i/o.} IMPLEMENT END./PCIF/GM/[PCHGC:::4:2:22 644 0 0 1000 5303173471 33715 /PCIF_GM/GM/[PCHGC:::4:2:22 $ f[PCHGC + 8+ 9+ 9 FST * [PCHGC 94203-18016 REV.5000 <870311.1112>  --PCIF DESCRIPTION FILE--- HANDLER TYPE = HIGHWAY 4204 BRAND = GOULD-MODICONTYPE = 478/MODBUS ASCII  IO = LU=1 RUN TIME FILE = /PCIF/GM/PCHGC.REL RUN TIME ENTRY = PC_HW_HAND_GMCONFIGURATOR FILE = /PCIF/GM/PCC06.REL CONFIGURATOR ENTRY = PC_CONF_HY_GM CONTEXT SIZE = 36 --PCIF END OF DESCRIPTION-- /PCIF/GM/[PCPGC:::4:3:22 644 0 0 1400 5303173472 33517 /PCIF_GM/GM/[PCPGC:::4:3:22 $ f[PCPGC + 9+ :+ :0FST * [PCPGC 94203-18017 REV.5000 <870311.1114>  --PCIF DESCRIPTION FILE --- HANDLER TYPE = PC BRAND = GOULD-MODICONTYPE = 984/984 PC TYPE = 884/884 PC TYPE = 584/584 PC TYPE = 484/484 PC RUN TIME FILE = /PCIF/GM/PCPGC.REL RUN TIME ENTRY = PC_PC_HAND_GMCONFIGURATOR FILE = /PCIF/GM/PCC10.REL CONFIGURATOR ENTRY = PC_CONF_PC_GM CONTEXT SIZE = 27 IO = MULTI SUPPORTED HIGHWAY = 4204 CAPABILITY = 0001011111111111  --PCIF END OF DESCRIPTION-- /PCIF/F1000/HPHPHP:::4:28:34 644 0 0 16000 5303666171 34206 /PCIF_GEN/F1000/HPHPHP:::4:28:34  $ "HPHPHP +iW+$vb+ly sFST * "* MATERIAL LIST: 94200-13302 REV: 6000 CT-94200B 2204"* * (SAME AS MATERIAL LIST: 94200-13503 REV: 6000 ) * * Directory: /PCIF/F1000/* Directory: /PCIF/PCIFGEN/* Directory: /PCIF/RUNTIME/* 92059-18027 2326 01 01 4 /PCIF/PCIFGEN/"CDSLB:::4:3194200-12001 4010 01 01 5 /PCIF/RUNTIME/PCLIB.LIB:::5:14494200-12002 4010 01 01 5 /PCIF/PCIFGEN/PCGEN.LIB:::5:23594200-12003 4010 01 01 5 /PCIF/RUNTIME/PCLBC.LIB:::5:16294200-16031 4010 01 01 5 /PCIF/PCIFGEN/PCCON.REL:::5:21 94200-16032 4010 01 01 5 /PCIF/PCIFGEN/PCCLI.REL:::5:49 94200-16033 4010 01 01 5 /PCIF/PCIFGEN/PCCT1.REL:::5:27 94200-16034 4010 01 01 5 /PCIF/PCIFGEN/PCCT2.REL:::5:21 94200-16035 4010 01 01 5 /PCIF/PCIFGEN/PCCT3.REL:::5:27 94200-16036 4010 01 01 5 /PCIF/PCIFGEN/PCCT4.REL:::5:18 94200-16037 4010 01 01 5 /PCIF/PCIFGEN/PCCT5.REL:::5:33 94200-16038 4010 01 01 5 /PCIF/PCIFGEN/PCCT7.REL:::5:25 94200-16039 4010 01 01 5 /PCIF/PCIFGEN/PCCT8.REL:::5:18 94200-16040 4010 01 01 5 /PCIF/PCIFGEN/PCCT9.REL:::5:48 94200-16041 4010 01 01 5 /PCIF/PCIFGEN/PCC11.REL:::5:38 94200-16042 4010 01 01 5 /PCIF/PCIFGEN/PCCCP.REL:::5:39 94200-16045 4010 01 01 5 /PCIF/PCIFGEN/PCFOI.REL:::5:40 94200-16046 4010 01 01 5 /PCIF/PCIFGEN/PCCUT.REL:::5:13 94200-16047 4010 01 01 5 /PCIF/PCIFGEN/PCMUX.REL:::5:594200-16107 4010 01 01 5 /PCIF/PCIFGEN/PCS0C.REL:::5:894200-16108 4010 01 01 5 /PCIF/PCIFGEN/PCS1C.REL:::5:494200-16109 4010 01 01 5 /PCIF/PCIFGEN/AUTOR.REL:::5:494200-16201 4010 01 01 5 /PCIF/PCIFGEN/PCMN0.REL:::5:594200-16202 4010 01 01 5 /PCIF/PCIFGEN/PCMN1.REL:::5:33 94200-16203 4010 01 01 5 /PCIF/PCIFGEN/PCMN2.REL:::5:11 94200-16204 5005 01 01 5 /PCIF/PCIFGEN/PCMN3.REL:::5:20694200-16205 4010 01 01 5 /PCIF/PCIFGEN/PCMN4.REL:::5:46 94200-16206 5005 01 01 5 /PCIF/PCIFGEN/PCMN5.REL:::5:10394200-16207 5005 01 01 5 /PCIF/PCIFGEN/PCMN6.REL:::5:79 94200-16208 4010 01 01 5 /PCIF/PCIFGEN/PCMN7.REL:::5:16 94200-16209 4010 01 01 5 /PCIF/PCIFGEN/PCS0.REL:::5:7 94200-16210 4010 01 01 5 /PCIF/PCIFGEN/PCS1.REL:::5:4 94200-16220 4010 01 01 5 /PCIF/PCIFGEN/PCDMX.REL:::5:48 94200-16221 4010 01 01 5 /PCIF/PCIFGEN/PCOPN.REL:::5:394200-16222 4010 01 01 5 /PCIF/PCIFGEN/PCTMO.REL:::5:14 94200-16223 4010 01 01 5 /PCIF/PCIFGEN/PCHLT.REL:::5:12 94200-16359 4010 01 01 5 /PCIF/PCIFGEN/DDP61.REL:::5:394200-16404 4010 01 01 5 /PCIF/PCIFGEN/PCTST.REL:::5:14394200-16412 4010 01 01 5 /PCIF/PCIFGEN/PCMC0.REL:::5:594200-16413 4010 01 01 5 /PCIF/PCIFGEN/PCMC1.REL:::5:37 94200-16414 4010 01 01 5 /PCIF/PCIFGEN/PCMC2.REL:::5:12 94200-16415 5005 01 01 5 /PCIF/PCIFGEN/PCMC3.REL:::5:24394200-16416 4010 01 01 5 /PCIF/PCIFGEN/PCMC4.REL:::5:50 94200-16417 5005 01 01 5 /PCIF/PCIFGEN/PCMC5.REL:::5:13994200-16418 5005 01 01 5 /PCIF/PCIFGEN/PCMC6.REL:::5:11394200-16419 4010 01 01 5 /PCIF/PCIFGEN/PCMC7.REL:::5:20 !94200-17001 4010 01 01 4 /PCIF/PCIFGEN/PCIF_BUILD.CMD:::4:20!94200-17002 5000 01 01 4 /PCIF/PCIFGEN/PCLGE.LOD:::4:294200-17004 5000 01 01 4 /PCIF/PCIFGEN/PCFOC.LOD:::4:394200-17005 4010 01 01 4 /PCIF/RUNTIME/PCERR.ERR:::4:40 94200-17011 4010 01 01 3 /PCIF/PCIFGEN/PCP01.FRM:::3:894200-17012 4010 01 01 4 /PCIF/PCIFGEN/PCP01.HLP:::4:594200-17013 4010 01 01 3 /PCIF/PCIFGEN/PCP02.FRM:::3:25 94200-17014 4010 01 01 4 /PCIF/PCIFGEN/PCP02.HLP:::4:494200-17015 4010 01 01 3 /PCIF/PCIFGEN/PCP03.FRM:::3:10 94200-17016 4010 01 01 4 /PCIF/PCIFGEN/PCP03.HLP:::4:494200-17017 4010 01 01 3 /PCIF/RUNTIME/PCC01.FRM:::3:894200-17018 4010 01 01 4 /PCIF/RUNTIME/PCC01.HLP:::4:594200-17019 4010 01 01 3 /PCIF/RUNTIME/PCC02.FRM:::3:10 94200-17020 4010 01 01 4 /PCIF/RUNTIME/PCC02.HLP:::4:594200-17021 4010 01 01 3 /PCIF/RUNTIME/PCC03.FRM:::3:894200-17022 4010 01 01 4 /PCIF/RUNTIME/PCC03.HLP:::4:694200-17023 4010 01 01 3 /PCIF/RUNTIME/PCC04.FRM:::3:19 94200-17024 4010 01 01 4 /PCIF/RUNTIME/PCC04.HLP:::4:594200-17025 4010 01 01 3 /PCIF/RUNTIME/PCC05.FRM:::3:994200-17026 4010 01 01 4 /PCIF/RUNTIME/PCC05.HLP:::4:694200-17027 4010 01 01 3 /PCIF/RUNTIME/PCCB5.FRM:::3:10 94200-17028 4010 01 01 4 /PCIF/RUNTIME/PCCB5.HLP:::4:694200-17029 4010 01 01 3 /PCIF/RUNTIME/PCC07.FRM:::3:894200-17030 4010 01 01 4 /PCIF/RUNTIME/PCC07.HLP:::4:694200-17031 4010 01 01 3 /PCIF/RUNTIME/PCC08.FRM:::3:19 94200-17032 4010 01 01 4 /PCIF/RUNTIME/PCC08.HLP:::4:594200-17033 4010 01 01 3 /PCIF/RUNTIME/PCC09.FRM:::3:13 94200-17034 4010 01 01 4 /PCIF/RUNTIME/PCC09.HLP:::4:694200-17035 4010 01 01 3 /PCIF/RUNTIME/PCCB9.FRM:::3:14 94200-17036 4010 01 01 4 /PCIF/RUNTIME/PCCB9.HLP:::4:694200-17037 4010 01 01 3 /PCIF/RUNTIME/PCC11.FRM:::3:11 94200-17038 4010 01 01 4 /PCIF/RUNTIME/PCC11.HLP:::4:794200-17101 4010 01 01 4 /PCIF/RUNTIME/PCMSG.ERR:::4:45 94200-17102 4010 01 01 4 /PCIF/RUNTIME/PCMER.ERR:::4:31 94200-17103 5000 01 01 4 /PCIF/PCIFGEN/PCLDM.LOD:::4:294200-17104 5000 01 01 4 /PCIF/PCIFGEN/PCLOP.LOD:::4:294200-17105 5000 01 01 4 /PCIF/PCIFGEN/PCLTM.LOD:::4:294200-17106 5000 01 01 4 /PCIF/PCIFGEN/PCLHL.LOD:::4:294200-17108 5000 01 01 4 /PCIF/PCIFGEN/AUTOR.LOD:::4:294200-17404 5000 01 01 4 /PCIF/PCIFGEN/PCTST.LOD:::4:294200-17995 6000 01 01 4 /PCIF/PCIFGEN/M94200.MNF:::4:8 94200-17999 6000 01 01 4 /PCIF/PCIFGEN/B94200:::4:4494200-18010 5000 01 01 4 /PCIF/PCIFGEN/PCPGE.DAT:::4:21 94200-18109 4010 01 01 4 /PCIF/PCIFGEN/AUTOR.FTN:::4:12 94200-18301 2525 01 01 4 (( /PCIF/PCIFGEN/[PCPHL:::4:2294200-18302 2618 01 01 4 /PCIF/PCIFGEN/[PCHHL:::4:2194200-18404 4010 01 01 3 /PCIF/PCIFGEN/PCTST.PAS:::3:28794200-18407 5000 01 01 4 /PCIF/PCIFGEN/PCPGF.DAT:::4:30 94250-12523 6000 01 01 5 /PCIF/F1000/FLULB.LIB:::5:27794250-12528 6000 01 01 5 /PCIF/F1000/FOFLL.LIB:::5:10094250-12538 6000 01 01 5 /PCIF/F1000/FOPRL.LIB:::5:10994250-12546 2520 01 01 5 /PCIF/F1000/FRULB.LIB:::5:26 94250-16504 5010 01 01 5 /PCIF/F1000/FOBLK.REL:::5:694250-16505 6000 01 01 5 /PCIF/F1000/FOCLO.REL:::5:53 94250-16514 2520 01 01 5 /PCIF/F1000/FUSE9.REL:::5:294250-16613 5010 01 01 5 /PCIF/F1000/FCOMM.REL:::5:194250-17542 2520 01 01 4 /PCIF/F1000/FOLCL.TXT:::4:28 * * END MATERIAL LIST * 2204"* * (SAME AS MATERIAL LIST: 94200-13503 REV: 6000 ) * * Directory: /PCIF/F1000/* Directory: /PCIF/PCIFGEN/* Directory: /PCIF/RUNTIME/* 9205/PCIF/F1000/FLULB.LIB:::5:277:128 644 0 0 212400 5303664744 35315 /PCIF_GEN/F1000/FLULB.LIB:::5:277:128 !%$ 8FLULB LIB +i+i+iiFST  ;;X+rFLULB 94250-12523 REV.6000 <921002.1056>/SRC_94250/R6000/FLULB.FTN; @FLULB  kIp@״==X|7rTRM_SETUP 94250-1X543 REV.5010 <880930.1648>/SRC_94250/R5010/FOTRM.FTN=''DAF_INFOF_SFK_STORAGE F_USERBUFFF_TERMBUFF'|^dTRM_SETUP ss˶.ENTR .CPM .SST.LBT.SBT .NFEX .MBT .CBTDVR_RDBLK DVR_INFORMUTL_WRITE TRM_PACK_ESCUTL_INIT_BUFTRM_RTE_USE2 TRM_GETYPE TRM_CHECK2645ATRM_RTE_USE1TRM_LOCK_KYBD s,,'/22A23A24B26A27A82A47A47F48A92A20A50A24A45A93A94A97A90A82, 0,NL 0/!NL 04$NN 55'SL 58*SL 0;-NL 0>0NL 0A3NL 0F6NN 0G9NL ab2NL2 ae"2NL2 ah%2NL2 cr(4SL4 cn+4NL2 aq.2NL2 a{12SL4 aw42NL2 cz72NN2 ((@;__(bAAbbx`p[`p``p]`hH`hH`h`h`hH`hc`pJ0(`c(Ap0(`@@c(`pJ0(`cc([cc([cc(Ā[cp  J  cc(Ԉ``h  ( cc(`dAAA`h  (((`c`p__((.`耀_@p`h ((*(*h``_p`耀_@phHHh`_@pބhh`耀_@Hphh@R$<< `_@p`p_`_p_(`(Fh` phhhhhh`;pc(J[Mcc(Q[P(U(cY\P_N~~9`;;bcc(f]icc(m]`pСxSTcc(|]Jp\((`p\pp(p_J_((`_@pވ`_@phH@h~ooiS55`_p_(OQcc(]cc(]`PR((^cc(Ũ]`\(`\cc(Ψ[do :2 #B (LL2622A 26212645A  P`>=;:9<  :FJH 0$L@B??X rTRM_LOCK_KYBD 94250-1X543 REV.2520 <880930.1648>/SRC_94250/R5010/FOTRM.FTN? AAF_INFO TRM_LOCK_KYBD .ENTR UTL_WRITE TRM_PACK_ESCUTL_INIT_BUF  773A`p (7@*-H@@XbrTRM_UNLOCK_KYBD 94250-1X543 REV.2520 <880930.1648>/SRC_94250/R5010/FOTRM.FTN@ AAF_INFO eTRM_UNLOCK_KYBD .ENTR UTL_WRITE TRM_PACK_ESCUTL_INIT_BUF  773A`p (7@==XlFrTRM_GETYPE94250-1X543 REV.2520 <880930.1648>/SRC_94250/R5010/FOTRM.FTN=B F_USERBUFF F_TERMBUFFp,TRM_GETYPE 113.ENTR .CPM.LBT.SBTDVR_READUTL_WRITE TRM_PACK_ESCUTL_INIT_BUF1  qq99xD@Dp=`Ep(#(;pA(-(;`@=pA`@Bp?h?HHhA`p((qy>;@???X:rTRM_CHECK2645A94250-1X543 REV.2520 <880930.1648>/SRC_94250/R5010/FOTRM.FTN?BF_USERBUFFF_TERMBUFF} TRM_CHECK2645A).ENTR .SST.NFEX .MBTTRM_GET_STATUS  EE%%x2`9pA173( `3(*h2`6A1 Eϫ- 2645A  Z`*@_p~0??X[VrTRM_GET_STATUS94250-1X543 REV.2520 <880930.1648>/SRC_94250/R5010/FOTRM.FTN?B F_USERBUFF F_TERMBUFF TRM_GET_STATUS 113.ENTR .CPM.LBT.SBTDVR_READUTL_WRITE TRM_PACK_ESCUTL_INIT_BUF1  @@AxQ@QpJ`Rp@`ShQ((`Up( `Tp"%((,0(Hp(:(H`@JpN`@OpLhLhND`p(5}iK H "!@>\>>X$rTRM_RTE_USE194250-1X543 REV.2520 <880930.1648>/SRC_94250/R5010/FOTRM.FTN> AAF_INFO xTRM_RTE_USE1&&.ENTR DVR_INFORMUTL_WRITE TRM_PACK_ESCUTL_INIT_BUF&  EE+!!A`#p ((!!E@jv>>XrTRM_RTE_USE294250-1X543 REV.2520 <880930.1648>/SRC_94250/R5010/FOTRM.FTN> AAF_INFO xTRM_RTE_USE2^t.ENTR TRM_CONFIG2   ((|(A`p((@L ??XrTRM_FORMS_USE 94250-1X543 REV.2520 <880930.1648>/SRC_94250/R5010/FOTRM.FTN? AAF_INFO  TRM_FORMS_USE 2f.ENTR TRM_CONFIG2 TRM_RTE_USE1  66A`p ((6@U>>XrTRM_CONFIG2 94250-1X543 REV.2520 <880930.1648>/SRC_94250/R5010/FOTRM.FTN> AAF_INFO PTRM_CONFIG2 338<.ENTR .CBTUTL_WRITE TRM_PACK_ESCDVR_STRAPSDVR_SEPARATOR UTL_INIT_BUF3 # %==`p"`P(&(*) (-- `h(5(8(88:`P (>(AA`P  hX  0hX 0(TppQ66TWP([(m^`h(f(l(lil(~p`h(x(~(~{~(p 2 /N   $@ "@ @==Xz\NrTRM_RESET 94250-1X543 REV.2520 <880930.1648>/SRC_94250/R5010/FOTRM.FTN=''DAF_INFOF_SFK_STORAGE F_USERBUFF F_TERMBUFF'}TRM_RESET DD =z.ENTR .CBT TRM_UNLOCK_KYBD UTL_WRITE TRM_PACK_ESCUTL_MOVETBUTL_INIT_BUFTRM_RTE_USE2TRM_RTE_USE1D  >>A`Mp`Lp(( P( (="'JF`IhGF(/(2(2 2 5(9(= @]B(D 2 lF @ p9D@?>>Xx((rTRM_MSG_FILE94250-1X543 REV.2520 <880930.1648>/SRC_94250/R5010/FOTRM.FTN>BF_MSSGF_FILEeTRM_MSG_FILECC 4.ENTR .CPM .ARTN .SBST .SST .INDX .LBT.SBT.NFEX .MBTFMP_CLOSE FMP_READFMP_OPENC   FO--MSG- >> 88M~''FR001 FR002 FR003 SHIFT1 SHIFT2 SHIFT3 SHIFT4 End of FORMS ACCESS ROUTINES8udBBAd`op_`np\A`mpbcidH`shf`rhXc`dd(`_dbp[A[((4KgH`[@lp99a`dd(`_d`p[(0`[ @2HH Yap^_A Y_p^_`p@[T@VpU YTp^_`q@[#@SpR YQAp^_ Y]p^`^(`p[`_d(0`[ \`_@^@PpO BBhO h\\`p@[I@MpJhJ`L I\`q@[&@HpG`Q@^p9 9YD9wHF9\Ap]v]((,`]@kH]p9`uhpH]@9`]p](`t0p\Q0 `[p[(7e  - dd7O<<< FOLCL.TXT::F1000 @PP`" `!2"P`"Z$ @vxzy70-+Hd@1PI<<XLrTRM_SFK 94250-1X543 REV.2520 <880930.1648>/SRC_94250/R5010/FOTRM.FTN< AAF_INFO " TRM_SFK  c.ENTR .CPMUTL_PACKa2LllK :: `Hp p J ((#` @Gh HF` p ( hI  0(22`K hI  0(C pC lmFC@i>>XʷarTRM_PACK_ESC94250-1X539 REV.6000 <920728.1544>/SRC_94250/R6000/FOTR0.FTN>˜KTRM_PACK_ESC.ENTR UTL_PACKZ-``*s^jkd_&q4te2{0Z&s1j1K&s0j0K&s1L&s0L&k0M&jR&k0K&jS&k1K&jB&q4te2{30f29R&q4te2{31Xr```f30RKHUZbckXRm&s0d0g0H&k0a0B&k0LHJ4BD5H*ddlteQ&s0a0b0CZ&k0ARmkXW&k]``1B&s0D&k1B&s1D&k0B&s0DHJ&j@&k0Z^~&s0a0b0C&s0C&s1C $).3<EIWegkmoq;; ))  +   ;((JAJJ@`JH_H^p\x]Z\]K( R^# @<<X5rTRM_SHOW94250-1X540 REV.2520 <921002.1652>/SRC_94250/R6000/FOTR1.FTN< AAF_INFO &TRM_SHOW ##x.ENTR .CBTUTL_WRITE TRM_PACK_ESCUTL_INIT_BUF# # RRZ))A`4p`Pp/`3h10(#0/(**-R 2 0 @-@Đ==XdrTRM_DSPTXT94250-1X540 REV.2520 <921002.1652>/SRC_94250/R6000/FOTR1.FTN=AAG F_FILE_PARAMF_FIELD_STORAGE AF_INFOYF_FILEF_FIELDS F_USERBUFFF_TERMBUFFAqOTRM_DSPTXTFF $.ENTR .CPM.SBT.CBTUTL_WRITE UTL_MOVETB UTL_CLEAN_MOVE TRM_POS_CUR UTL_INIT_BUF FOMOV FMP_READF.@ FO &   ~~?;>>A`pH`h`͈p`h(,(/(/`p (1 `p @pp p (=(`pH(P` p `(`p~#U==(W(`ǀ@@P (`(`@@p`ǀ@@p@p`ǀ@@p  (`p`p`p(R   `h@HHE##(((`@p  ((` p ` p (8H 4 S 7 V --$ p"  Y [v-@J==XkEWrTRM_DSWDW 94250-1X540 REV.6000 <921002.1652>/SRC_94250/R6000/FOTR1.FTN=--E-F_FILE_PARAMYF_FILEAF_INFO F_USERBUFF F_TERMBUFF-wTRM_DSWDW <<.ENTR UTL_WRITE TRM_PACK_ESC TRM_POS_CUR UTL_MOVETBTRM_PREP_ENHFMP_READUTL_INIT_BUF<0 $%FO~~u::A`Tp `Vp `p "`1P(&(<.  (4`U 6 ; R (G`4P(@(G D+G~ mHJM P p"P @"A<<XT{rTRM_DSFK94250-1X540 REV.2520 <921002.1652>/SRC_94250/R6000/FOTR1.FTN<%%D F_SFK_TABLE F_FILE_PARAMAF_INFOF_FILE% TRM_DSFK DD .ENTR .CPM .CBTUTL_WRITE TRM_PACK_ESC TRM_PAINT TRM_DSFKAT4 TRM_DSFKAT2 UTL_INIT_BUFFMP_READD,FOD ==A `yp `@@p    ($`P(*`z p `p (3(@` @xhHw` p `p(.B EA`vht mIIJ""(M(R(R Qm(` T`rhpA m(\(`(` `m cf  (jI 7V 2 ""fm P" 0[ 0j"@W==XR^rTRM_DSDISP94250-1X540 REV.2520 <921002.1652>/SRC_94250/R6000/FOTR1.FTN=00EAF_INFOF_FIELD_STORAGE F_FIELDS F_USERBUFF F_TERMBUFF0`6TRM_DSDISP..|p.ENTR UTL_WRITE TRM_PACK_ESCUTL_MOVETBTRM_POS_CUR UTL_INIT_BUF.  x AAA `\p  `( `p`(P`]@@[p `]@@[p 5 `]@@[p `]@@[pH Y`]@@[N p( SV Y  V@/@N==X`FIrTRM_DSUNP 94250-1X540 REV.2520 <921002.1652>/SRC_94250/R6000/FOTR1.FTN=00EAF_INFOF_FIELD_STORAGE F_FIELDS F_USERBUFF F_TERMBUFF0n TRM_DSUNP &&.ENTR UTL_WRITE UTL_MOVETBTRM_PACK_ESCUTL_INIT_BUF&o I mm8 66A `Gp  `( `p ` (>`H @@Fp `H @@Fp 6 D `H @@Fp ( A mD A@Qp>>XrTRM_PREP_ENH94250-1X540 REV.2520 <921002.1652>/SRC_94250/R6000/FOTR1.FTN> AAF_INFO Ǖ*TRM_PREP_ENHxJ.CPMMOD .LBT.SBT.CBTUTL_PACK&a00r0C&d@&v00S{*@@*p*`p(`p&p'&'(8(B`'@h'H`'p'(3 @+h@p @+pwQw@HphhyH`hx(_(b(b`p&(qA`}h{x(j(o(o##rj `.@p(q`p&u&*# 0%N 0$N &&$x J  YH  X Zu 0 &@??X0erTRM_DISP_RESET94250-1X540 REV.5000 <921002.1652>/SRC_94250/R6000/FOTR1.FTN?Cf AF_INFOF_FIELD_STORAGE F_FIELDS TRM_DISP_RESET33.ENTR .LBT.SBT.CBT UTL_WRITE TRM_PACK_ESCTRM_FLD_ENH UTL_INIT_BUF3 ( ??A `cp  `p`(S`d@@bp`]ha\(+(K(K/Hh_h]H`d@@bh @ 7p 7` 7(Cp(J`d@@b**uIp(R`d@@bp(V Y  * 3R /N X\   Y@˟>>XtyrTRM_DSFKAT2 94250-1X540 REV.2520 <921002.1652>/SRC_94250/R6000/FOTR1.FTN>ByN F_SFK_TABLE AF_INFOw#TRM_DSFKAT2 ''%#.ENTR .CPMTRM_PACK_ESCTRM_SFK UTL_MOVETBUTL_PACK' &f2ak16d o~~(( !AA!!r`vp p(3(=`@uhHt`p(."p`xpDp(K(i`w@pRV[r`@pb~%%b`@p`p(Flo#%ro0@3O>>XvJrTRM_DSFKAT4 94250-1X540 REV.2520 <921002.1652>/SRC_94250/R6000/FOTR1.FTN> A F_SFK_TABLE bTRM_DSFKAT4 .CPMTRM_SFK UTL_PACK &f2akoffVg11p`Hpp  ( (*` @Gh HF` p (p J (1(C`I@ p8 `@ p ? ` p (,f F C0 @!==Xd~rTRM_PAINT 94250-1X540 REV.2520 <921002.1652>/SRC_94250/R6000/FOTR1.FTN=ByMAF_INFO F_SFK_TABLE r%TRM_PAINT )).ENTR .CPMTRM_PACK_ESCUTL_PACKUTL_MOVETBTRM_POS_CUR )--&dB&d@CCCCCCCC-!#@@##x@p`p"$p$p p(;(`@pBp!!(I(xMR `@P!(Y(^](q`!P(b(j`TTc%%@pi(q`@pq`!p!`@ p (D`@p `p(6`P((%T @\{R>>XarTRM_POS_CUR 94250-1X540 REV.2520 <921002.1652>/SRC_94250/R6000/FOTR1.FTN>xTRM_POS_CUR .ENTR .CPMMOD UTL_PACK &a00r00C}}<EE`]pp(#(-`@\hH[`p(h`@_p pZ<Z`@_p^(T(Th`@_ppZRZ`@_pX }[ X0 @~>==XcrTRM_READRQ94250-1X541 REV.2520 <920728.1548>/SRC_94250/R6000/FOTR2.FTN= C F_SFK_TABLE F_FIELD_STORAGE AF_INFO j-TRM_READRQ]] .ENTR .SBT .IBTS DVR_RDBLK TRM_SETUP_BLKRD UTL_WRITE TRM_PACK_ESCUTL_INIT_BUFTRM_LOCK_KYBD DVR_WREAD TRM_UNLOCK_KYBD TRM_SETUP_WREAD ] RE??`p ``hJ`h&(* -(1 5(9 <(@ BE H(L `P(PPO@@(S` `P(W(Z`(c`@`@@pA PhX 0( t(x ` (`P((p    ( ` AAs9(` ( < ( ` P<((`(`A  2  H@>>XDrTRM_ANALYZE 94250-1X541 REV.2520 <920728.1548>/SRC_94250/R6000/FOTR2.FTN>BF_FIELD_STORAGE AF_INFO\ TRM_ANALYZE (('.ENTR FRM_COMPLETETRM_ERR_CASEFRM_PARSE FRM_TYP_CHECK (.H{{jQ<<`Cp `(  (`P(#(.`)  (-(A1`P(?`:  (>(AA A{@:Y>>XHrTRM_ERR_CASE94250-1X541 REV.6000 <920728.1548>/SRC_94250/R6000/FOTR2.FTN>C F_MSSG F_FIELDSAF_INFO TRM_ERR_CASE<<n.ENTR UTL_WRITE UTL_TAB TRM_PACK_ESCUTL_MOVETBTRM_PREP_ENHUTL_INIT_BUFTRM_REQ_ERR < $%P~~ >> `Gp    ( "$`D @FpE.D147: :  (> `p4p: PB~@@@XV$rTRM_SETUP_WREAD 94250-1X541 REV.2520 <920728.1548>/SRC_94250/R6000/FOTR2.FTN@\TRM_SETUP_WREAD &&.ENTR DVR_INFORMUTL_WRITE TRM_PACK_ESCUTL_INIT_BUF&  EE+!!A`#p ((!!E@ @@XG# rTRM_SETUP_BLKRD 94250-1X541 REV.2520 <920728.1548>/SRC_94250/R6000/FOTR2.FTN@MTRM_SETUP_BLKRD &&.ENTR DVR_INFORMUTL_WRITE TRM_PACK_ESCUTL_INIT_BUF&  ??@A`p ((?@8|@@X] rTRM_RESET_READS 94250-1X541 REV.2520 <920728.1548>/SRC_94250/R6000/FOTR2.FTN@dTRM_RESET_READS &&.ENTR DVR_INFORMUTL_WRITE TRM_PACK_ESCUTL_INIT_BUF&  ??@A`p ((?@Gsf3>>XrTRM_REQ_ERR 94250-1X541 REV.2520 <920728.1548>/SRC_94250/R6000/FOTR2.FTN>CbAF_INFOF_FIELD_STORAGE F_FIELDScTRM_REQ_ERR 33.ENTR .LBT.SBT.CBT UTL_WRITE TRM_PACK_ESC TRM_FLD_ENH UTL_INIT_BUF3 `@@A`p `p `8@9p ` h (x` @ @p`hA(p`h(@(G(G`phHHh(bA`h(O(Y(YttRO77`ph h@9p9(b`phh`9p9 f @ p ` @ @h` @ @p (!{ ~( p8t 3R ,K %D /N    @lM>>XrTRM_FLD_ENH 94250-1X541 REV.2520 <920728.1548>/SRC_94250/R6000/FOTR2.FTN>BAF_INFOF_FIELDS|%TRM_FLD_ENH "".ENTR .LBT.SBT.CBTUTL_PACKTRM_POS_CUR "\ &d@&v00S #AA#`p!`pp `(=p` @h H8 8(3`$@@p`$@@p`$@@phHPHphP0(c@puugd::g`$@@p#@phh`hA(~((`p(`h(((`#p`$@@@p (`p%u /N /N 00 8pY6pX in0 0@멫==XbrTRM_ERROR 94250-1X542 REV.2520 <850607.1308>/SRC_94250/R5000/FOTR3.FTN=nTRM_ERROR Q`.ENTR TRM_PACK_ESCTRM_FLD_ENH   ))`p )@Z#==XYrTRM_DSPHLP94250-1X542 REV.2520 <850607.1308>/SRC_94250/R5000/FOTR3.FTN=B AF_INFO YF_FILEe@TRM_DSPHLPII ".ENTR .CPM.SBT .CBTUTL_WRITE UTL_MOVETB UTL_CLEAN_MOVETRM_POS_CUR UTL_INIT_BUFFMP_READTRM_PACK_ESCIQ  & mDDA@p`p`p`h'*@@p269(=Ap   (H(` pS{{*U??(Y` p ([`@ pb`h (j(r(r q (w w z(` p ` p (Ch 0({ - L t "   v@h>>X2rTRM_CONF_HLP94250-1X542 REV.2520 <850607.1308>/SRC_94250/R5000/FOTR3.FTN> AAF_INFO w TRM_CONF_HLP-- .ENTR UTL_WRITE UTL_PACKTRM_PACK_ESCTRM_POS_CUR UTL_INIT_BUF- UJPP (( `1p   P((%!$(,(,/  /P@ *??XrTRM_QUICK_HLP 94250-1X542 REV.2520 <850607.1308>/SRC_94250/R5000/FOTR3.FTN?TRM_QUICK_HLP .ENTR UTL_WRITE TRM_PACK_ESCUTL_INIT_BUF  ))LA`p )@Vu{>>X`((rTRM_SHOWHELP94250-1X542 REV.2520 <850607.1308>/SRC_94250/R5000/FOTR3.FTN>TRM_SHOWHELP--5.ENTR TRM_CONF_HLPFMP_CLOSE TRM_DSPHLPFMP_OPENTRM_QUICK_HLP -  BB`ကppP(((((`(ň`p""(`(ۈ``"@0==XNrFRM_FLDPTR94250-1X532 REV.2520 <850607.0818>/SRC_94250/R5000/FOFRM.FTN=$$D|F_FIELDSF_FILEF_USERBUFF F_TERMBUFF$U@FRM_FLDPTRF.ENTR .CPM.LBT.SBT.CBT V DDA `p P((# @@(-@@@@ @@ ` @@ ` @@HH` @@p`h(R}}XQ@@p`h(\0(` @@p ` @@p `p pA (z(` @p` @phHHh` p ` p `p(u@@}$$HHp`x @@$ Ji *I ))CL p!  ?)@l??XK}rFRM_FIELD_NAME94250-1X532 REV.2520 <850607.0818>/SRC_94250/R5000/FOFRM.FTN?))D]F_FIELD_STORAGE F_FIELDSF_USERBUFFF_TERMBUFF)FRM_FIELD_NAME.ENTR .CPM.CBT   ~~ AAA  xu`yp ` p`p {(#(p` (j`z @@xp`pr`z @r@xp`{@pr`z @r@xp`|@pr`z @r@x~SSL&&p`whut(_`z @@xp (i` `  `p `{p(%`p `p(St p@Dc??XGrFRM_TYP_CHECK 94250-1X532 REV.2520 <850607.0818>/SRC_94250/R5000/FOFRM.FTN?B8F_FIELD_STORAGE F_FIELDS6FRM_TYP_CHECK %%Z.ENTR .CBTFRM_POS_FLAGUTL_GET_FIELD UTL_INIT_BUF% ~~s\4AA4`p354Ap/`p0`0(M21`0@@P2(Z`5p0(`0@@p`1Pp`hA(n(xv0~%%H*u/`4`0@@p0`/p/(E6% 3R    @޸>>XBrFRM_POS_FLAG94250-1X532 REV.2520 <850607.0818>/SRC_94250/R5000/FOFRM.FTN>BAF_INFOF_FIELDSFRM_POS_FLAG.ENTR .LBT.SBT.CBT  bb00`@p`:(p:`A@@?p`8h>7(!()()h/SRC_94250/R5000/FOFRM.FTN=B8F_FIELD_STORAGE F_FIELDS^(8FRM_PARSE ;;}h.ENTR .LBT.CBT FRM_POS_FLAGMIS_CONVERT MIS_ASCII_TO_DINUTL_GET_FIELD UTL_INIT_BUF;  ~~17BBA7`p67A`p-p.`-(M25`-@@p`h(ohP(`(gf237(oo21/77P(s(~`-@@~""yp-`.p.( -.p-(E8" $C    D@9>>XTrFRM_COMPLETE94250-1X532 REV.2520 <850607.0818>/SRC_94250/R5000/FOFRM.FTN>00EAF_INFOF_FIELD_STORAGE F_FIELDSF_USERBUFF F_TERMBUFF0mFRM_COMPLETE).CPM.LBT.SBTUTL_INIT_BUF  ~~-;;p`Rp`p`(Hp`S@@Qp`S@@QpA()(=`@PpN`3@OpLhLHHhN`p`3p3`p ($`3p3`S~C@@Qp(K H@mw==XJxWrFRM_CLEARB94250-1X532 REV.2520 <850607.0818>/SRC_94250/R5000/FOFRM.FTN=((D;AF_INFOF_FIELD_STORAGE F_USERBUFFF_TERMBUFF(QFRM_CLEARB  l.ENTR .SBT  a@@A`UpPX 0(+`(+p`=(+pQ`@TpS`VhSH88Q(!PX 0(M`=pp`>(MpP`@TpS`VhS F `p88P(@hRPM @==XDrFRM_INITB 94250-1X532 REV.2520 <850607.0818>/SRC_94250/R5000/FOFRM.FTN=CaF_FIELD_STORAGE AF_INFO F_FIELDSK  FRM_INITB "".ENTR .CPM.LBT.CBTFRM_INCOM FRM_INITV "    AA `|p  P((S`@p `(Np(%(N`~@@{p`xhzw(4HpvhxP}0v(JC  (J` `pggJ,,`p(  (R(t P(W(f`(e_/  (e` (t`(tn0  (t`  g *I Kw  ti@==XIhYrFRM_INCOM 94250-1X532 REV.2520 <850607.0818>/SRC_94250/R5000/FOFRM.FTN=BAF_INFOF_FIELDSP FRM_INCOM  }.ENTR .LBT.CBTFRM_INITV   -DDA`Vp (N p`(N`W@@Up`RhTQ()pPhRHPX0P(F8  (>p(E`W@@Up(M`W@@UCLp(  *I Q Ni@6==XXq]rFRM_INITV 94250-1X532 REV.2520 <850607.0818>/SRC_94250/R5000/FOFRM.FTN=..ElgF_FILE_PARAMF_FIELDSF_FILE F_USERBUFF F_TERMBUFF._  FRM_INITV 9.ENTR .CPM.LBT.SBTFMP_READ *!FO ~~? @@A `Yp ` @[p     ($p`\p`Z @@Xp`Z @@XpA(;(O`@WpU`@VpShSHHhU`p`~ Jp`p(6 KR @!O?@ӭm==XXrFRM_BASIS 94250-1X532 REV.2520 <850607.0818>/SRC_94250/R5000/FOFRM.FTN=99FkF_FILE_PARAM F_FIELD_STORAGE AF_INFOF_FILEF_USERBUFF F_TERMBUFF9^ FRM_BASIS .ENTR .CPM .LBT.SBT .CBTFMP_READ (FO }}&A88`p`pp p `h p+`h@p.` hp/ p0p1 p4p5 p6p7 p8p9 p:p; p<p= p>E}~~(?55(I`P(O``pJ([([`J (c(c``@@ hHp`@~7t22@@H 0(``p `p h h`p+h h`p.h h`p1`p=`@p>`@@@>p<`p tt422`p ` @p p  p `hA (p؈A`h ((ʈH`h(͈J`h`@ p`@p`@1p t %D -L :Y 88I `` ` Y  X   [ ZNSA 8@>==X@c\rFRM_FIELD 94250-1X532 REV.2520 <850607.0818>/SRC_94250/R5000/FOFRM.FTN=AAGfF_FILE_PARAMF_FIELD_STORAGE AF_INFOF_FILE F_FIELDS F_USERBUFFF_TERMBUFFAF FRM_FIELD %%C.ENTR .CPM .LBT.SBT .CBT FRM_FLDPTRFMP_READ%6 FO>>>`Spp`=@>(+(5`((@GpF`YhF`p($Jp(<(;@@pH(N`p(7`T@@Rh`>W;;p=`T@=@Rh`Z@p=`T@=@Rh`[@p=`T@=@Rh`T@@Rh`T@@Rh`T@@Rh`UhMJ`XhI`P((~~@@H`WhM`VhI`T@ @Rh[H(`T@ @RhZH`T@@Rh`T@@R `T@@R hD hKhB h@`T@ @Rh`T@ @R~??h` p=`T@=@Rh`T@@Rp`Uh@`QhOA ?(((hM hK(hIHJ hK`0 p0`T@ @Rh`Zp`=p \\,,0(7((hM hKH(%hI hKJ `/p/`T@ @Rhpp 7/`p(7\ %D 77ڑ? E A$%" ;NinI 7@q>>XcrMIS_CONVERT 94250-1X526 REV.6000 <921002.1647>/SRC_94250/R6000/FOMIS.FTN> A?F_MSSG <MIS_CONVERT "".ENTR .CPM.ARTN .LBT.SBT.CBT.FMUI " 1j Bz H~ 1n 5r 9v :o 11 22 24  21 33 41  21 35 46 35  35 41 z E N W r F s J v L T /22253146568<898984?435>46568<8989(J6868686868 11 22 &24 @A3= 98 AB3= UI9898 =D57 98 "7: (+7; U@9191 GG݈x<x:@:phHhBhFh8h4h6`Zh0H`Yh.hDh2H`Xh,`Wh*RpЈ`Vp`@Q 88(pp$>>pp`Pp`Op`Np`MppTppЈ(:(`TpψA`(D(G(G`bp(I``pppSڈ(R(`bPڈ(V(`@p$`$h0(`h~~Rdb>>Hx p` h.(`A(x((`@@LpS(`Tڈ@@KpS`p`pڈ(`aP((`@p A` h,(hHx$p`$~~~p>>h*(0(`T@@KpS`pΈ`p(`Ј@p$`@(p `$h ((߈(`((Ԉ(`@π@LpS(ۀ`T@π@KpS`ڈp`~~~Δ>>p`pڈ(M`S(鈈`jp(h@HHh'`]TpT`]Sp`Pj((p`\(`A((3(3` 2 pɨpɈ`@p`pȀ~~~BBp`\@pA_((((`\͈`@%p `Ј@p$h$h (`AEHMEgQjuKpɨpɨppp`\@pA_(\(\`[͈`@%~0R^<>@P((`]U@p`\p`p(`@р^@p`]U@p`TpT`шp`pЈ(5(È`((و(`@πA@J`\~yyCC(`TΈ@@I`\pppȨ`@pȀ`@p`(( (  VȀl(VȀmǀ`(`[y  +I nnEDD          xi 2U eE90 (n@ *>>X̀FrMIS_TO_ASCI 94250-1X526 REV.6000 <921002.1647>/SRC_94250/R6000/FOMIS.FTN> AEF_MSSG j8MIS_TO_ASCI CC @.FSB..FCM .ENTR .CPM .ARTN MOD .SBST .SST .NFEX .CBT UTL_MOVE_DATA .FMUR .FMUO C @ ~~2II22x)3x'`7p1`6p+`5p,7`)h/!(Q(e(e5Ap50(d`C7,(}6(}6Ap6D 0(}`C~{BB7,pAE((`@4 `p(`)h/!(((5`p0(6`p0@0p0-`@-p`(4p.(4~~pCCp.`)h/!(((.((`C7A,(&!4 A , `(p &4(p*Ap/>.((`C7(4pp`p6(p`Dp~K??(`((b@.(;(;A((`p`pp(:A.($($`p`@p(8@.p`@.@9p2-`@-p`-(`>(C`C7(a`>p`@.(R(R`p`p(a`@.p`p^-`@-p(p*`=p`@<.((@`.@B(v({`p`p(`/}}az}@@p/`.@@8p`p-`@-p`-pA</(`p@`((`@4h?`p(((`@.(p`(ňp`@4}~~n==hH488(`?p`@@<.((`8@.p(p`p`;@.p-(`Ap`@@.((`p`p(`@.p`p~~~FTOO-`@-p7A(,&!4 A , ` NrrA&A  0 @HpxA&A  * `8@pp`@@(=(N&D  0@ @~~~ IJJp`p(5 V&`@0 ?@"A>>Xm(rMIS_UPSHIFT 94250-1X526 REV.4010 <921002.1647>/SRC_94250/R6000/FOMIS.FTN> A;F_MSSG =MIS_UPSHIFT .ENTR .LBT.SBT  55Qx&x$`'Hph&h"H`@ Hphh$@5} @@u@@XVjprMIS_RTE_UPSHIFT 94250-1X526 REV.4010 <921002.1647>/SRC_94250/R6000/FOMIS.FTN@`MIS_RTE_UPSHIFT &&z.ENTR MIN0.SBST .SCO.SST.LBT.SBT.NFEX &}}C9PPAhf`np`op`fp\A\p]p`](ZpaA\hA\l(.p\]hD]j\(VA\fA^hh_@Dhe}8S H\d88a(#Mb z a  Z @UtNNXW_rMIS_ASCII_TO_DIN 94250-1X526 REV.4010 <921002.1647> /SRC_94250/R6000/FOMIS.FTNNNN3MIS_ASCII_TO_DIN ++1.ENTR .CPM.SBST .SCO.SST.LBT.NFEX DECIMALTODINT +/FF//xJ@Jp1`Up)2V1p+0p*`^p.`]p(`+@1pHhHP\Ap-*+-(b`+p+(L`*@1pHhHP\p-A*+-(x~~nNu==@*p*(b`+P*h+H1xHp-hHHP\((h+H1xFp.hFPZ0.h+H1xDp.hDP[0.-()`+p-`+@1HpDhDP[h+H1xFp-hFPZ0-~EE(`-p-A*-((`-@1pFhF@Yh-H1xDp-hDH@X0-(`.2)`-Ap-(KSp,0(p0-KH,,`,A@1pD-C8,A80(-K+*@]]Y66-Q(p-.K+*D.O( A0-p-.K+*A.M(0-( `(2)$K212(+`(23]EE2---2147483649 21474836492147483648 P d p z++- E@!NNX rMIS_DINT_TO_ASCI 94250-1X526 REV.4010 <921002.1647> /SRC_94250/R6000/FOMIS.FTNNI>MIS_DINT_TO_ASCI AA &&.DIN.DDE.DNG.DCO.ITOJ .ENTR .SBST .SST .INDX .SBT.NFEX .MBT DINTTODECIMAL A  |PPx@p`p p݈0(5` @  (b(b ADAApD (Z0(a`~~.1_EE (~ (i(~(~Ap݈A0(~` @p (p` @爄p`h 8 8(A(((h` ( ~kkU99Ah`  @p P ((`p `p (` p ` h H  (` @ @p D @@ p (k..l -2147483648     e6 .@֨h**XrDUMMY /SRC_94250/R6000/FOMIS.FTN* JDUMMY  kIp@.Mp>>X rUTL_INIT_BUF94250-1X544 REV.2520 <850607.1334>/SRC_94250/R5000/FOUTL.FTN>CAF_INFOF_USERBUFFF_TERMBUFFiUTL_INIT_BUF7F p` pp3@;NZ<<X /rUTL_PACK94250-1X544 REV.2520 <850607.1334>/SRC_94250/R5000/FOUTL.FTN<CAF_INFOF_USERBUFFF_TERMBUFF UTL_PACK .ENTR .CPM.LBT.SBTNN%%@p(`.ppA((&`@(p`3@-p*h,h*`3p3`p(Nx) p&@@_==X^IrUTL_WRITE 94250-1X544 REV.2520 <850607.1334>/SRC_94250/R5000/FOUTL.FTN= AAF_INFO jUTL_WRITE .ENTR .CPMDVR_WRITE DVR_PACK_ESC77=A`pA3(( @3p7  @==Xpx<rUTL_MOVETB94250-1X544 REV.2520 <850607.1334>/SRC_94250/R5000/FOUTL.FTN=CAF_INFOF_USERBUFFF_TERMBUFF|UTL_MOVETBA.ENTR .CPM.SBST .SST.NFEX ^^^11Ax:`;p(pp((2`3@8p749D64J `3p3`p`p(^s602@+==XbbrUTL_FROMTB94250-1X544 REV.2520 <850607.1334>/SRC_94250/R5000/FOUTL.FTN=BF_USERBUFFF_TERMBUFFn'UTL_FROMTB .ENTR FOMOV  00V:@p`p(0  @6U}??X3KrUTL_CLEAN_MOVE94250-1X544 REV.2520 <850607.1334>/SRC_94250/R5000/FOUTL.FTN? UTL_CLEAN_MOVE "".&.ENTR .CPM.SBST .INDX .NFEX UTL_MOVETB"tt!@@AxIxG`Jppp`(BDHDDFp`(.`p(1@p6H`@Ap(A(Ap( tFB@|n.??X1prUTL_GET_FIELD 94250-1X544 REV.2520 <850607.1334>/SRC_94250/R5000/FOUTL.FTN?CF_USERBUFFF_TERMBUFFAF_INFO UTL_GET_FIELD G.ENTR .CPM.LBT.SBT.CBT  >>Axi@ipb`npp`opa`@bHpghkhgH88a(`p`J(_3<(4(4p([`3@epg`ghmc(?(B(Bp([EE{D@bpg`3@epdhdHJhg`3@epd`dhkAc([``3 p3() E  Oc P_@4??XErUTL_MOVE_DATA 94250-1X544 REV.2520 <850607.1334>/SRC_94250/R5000/FOUTL.FTN?  UTL_MOVE_DATA .ENTR .LBT.SBTnn77@p=xC@Cp<`Dppp p`(#(8`@=p`@ :@[Zz<<X&rUTL_TAB 94250-1X544 REV.2520 <850607.1334>/SRC_94250/R5000/FOUTL.FTN< UTL_TAB  c.ENTR .CPMUTL_PACKHI::"A`%pp@(("`p(: %" @&==XsrDVR_SETUP 94250-1X726 REV.6000 <920729.0910>/SRC_94250/R6000/FODVR.FTN= AAF_INFO qDVR_SETUP 55 ^EXEC.ENTR .CPM.LBT.SBT DVR_CONFIG HPCRTSSRCDRIVER LOGLU OS_STATIC 5              ЄAAA`p p pp,(0`P A(4(G(D(D`ApC(&`p`@(P(m`@@@P(XmW88(i`@@@p`@phh`@p`p(I`P (q(P(u(zxp(|`p p`h 0(`(  (  @^}==XV{rDVR_CONFIG94250-1X726 REV.6000 <920729.0910>/SRC_94250/R6000/FODVR.FTN= AAF_INFO T2DVR_CONFIG.ENTR OS_CNTL   @         T s a      2  }}ܪ@@`up@@t  HHspqxr-qr(1`zP  X 0  (X @@t@y  HHspqxrTqr}BBS(X`P(\(oP(`(fewx(kkwv(oBso@ ==X`I0rDVR_WRITE 94250-1X726 REV.4010 <920729.0910>/SRC_94250/R6000/FODVR.FTN= AAF_INFO _DVR_WRITE  .ENTR OS_I_O  JJ/&&`-p`/p` PhX 0(`.p(!p*J ]-*@ @/SRC_94250/R6000/FODVR.FTN< DVR_READ 8,.ENTR OS_I_ODVR_FLUSH HH2%%`)ppp("`('`*'H@ u)5==XZrDVR_RDBLK 94250-1X726 REV.4010 <920729.0910>/SRC_94250/R6000/FODVR.FTN=CAF_INFO F_USERBUFF F_TERMBUFFY DVR_RDBLK 66.ENTR .CBTOS_I_OUTL_WRITE TRM_PACK_ESCUTL_MOVETBUTL_INIT_BUFDVR_FLUSH 6E @@ `p p!#p * -0(4`P(8(B P(<(?`p (A`p (U`PhX 0nnL77(Pp (U`p`p p ` (d`PhX 0((s(@p`hA (~((n    @9XS==X\l/((rDVR_INFORM94250-1X726 REV.4010 <920729.0910>/SRC_94250/R6000/FODVR.FTN= AAF_INFO [0DVR_INFORMsM.ENTR OS_CNTL DVR_FLUSH   OOA''A`-ppp`PhX 0(`.p&(*O Z-*@ @==X^1rDVR_FLUSH 94250-1X726 REV.4010 <920729.0910>/SRC_94250/R6000/FODVR.FTN= AAF_INFO ]DVR_FLUSH  *OS_CNTL  22 p`p`P hX 0(2 z @|==Xp[ rDVR_STRAPS94250-1X726 REV.4010 <920729.0910>/SRC_94250/R6000/FODVR.FTN= AAF_INFO o-DVR_STRAPS.ENTR TRM_PACK_ESC==GA`PhX 0(((=@>>XrDVR_PACK_ESC94250-1X726 REV.4010 <920729.0910>/SRC_94250/R6000/FODVR.FTN> AAF_INFO WDVR_PACK_ESC TRM_PACK_ESC //p`PhX (/@==X\rDVR_WREAD 94250-1X726 REV.5000 <920729.0910>/SRC_94250/R6000/FODVR.FTN=CAF_INFO F_USERBUFF F_TERMBUFFZ DVR_WREAD $$.ENTR .CPM.LBT.SBT.CBTOS_I_ODVR_FLUSH $    ?o ~~ ??`p` PhX 0(-p(/`p8 (<`P(@(`(F` (P(J(X`hA(R(U(U`~~~ S==(W`(`h(b`(`h(ipA`h0(y`(hh`@(`P((`p`0(` ~@@(((`(`h(`(`h(pA`h0(`(hh`@(`P((H`(` (G`}}@@(`(G`(A((`(P((A`h(((`(`(`hA(pA`h(0p`hA0}~~- CC(`(hh`@(G`h(%p`h(.0p`h0(?`(GhHHh`@(Ph  ~űS@@(W` (P([(iA`h(c(f(f`(h`(`hA(s`(A`h(zp`h0(`(hHHh`@ l X w Q p   ++/SRC_94250/R6000/FODVR.FTN? AAF_INFO }DVR_SEPARATOR  TRM_PACK_ESC OOO]((p`P hX 0(&`PhX 0(#"(&&O@<<X-BrFMP_OPEN94250-1X529 REV.2520 <850606.1704>/SRC_94250/R5000/FOFMP.FTN< FMP_OPEN  Um.ENTR .MBTFMPOPEN [[$22:@p7p`Ap6`@7 886(h=`?A <.:<@p(4[[8 rsoq p@Cbo==XG rFMP_CLOSE 94250-1X529 REV.2520 <850606.1704>/SRC_94250/R5000/FOFMP.FTN=PFMP_CLOSE .ENTR FMPCLOSE!!wpA@p`p!  @ȘX<<X'QrFMP_READ94250-1X529 REV.2520 <850606.1704>/SRC_94250/R5000/FOFMP.FTN< AF_FILE  FMP_READ .ENTR FMPREAD FMPSETPOSITION (FO "CC@ pL`Mp  @`@pN+  (1 7   (=`P  (C P(G(I`  J MMI @QpO>>XܮhrOS_LU_SETUP 94250-1X535 REV.5000 <870218.1659>/SRC_94250/R5000/FOOS1.FTN> AAF_INFO VOS_LU_SETUP .ENTR .CPM.OPSY  ?~~>>`bp pp xAp g (&(3` @aP (,(/ ` p (!`fP (7(: p(<`ep(@ `@`p^Ac~((=M0^(V`d(Z p(`\ @ 0);;XrOS_I_O94250-1X535 REV.2520 <870218.1659>/SRC_94250/R5000/FOOS1.FTN;CAF_INFOF_USERBUFFF_TERMBUFF OS_I_O .ENTR XLUEX .LBTRMPAR   ~~>??A`zp`p `pp ptA/ t(cx5 P(9(K` }p ` h X (K` @P(O(b`~MM P$$`P(U(b`p `pp a (cpHxhy@|~pthwH@t@|@{Mv r? 8@'oF/<<X(:rOS_CNTL 94250-1X535 REV.2520 <870218.1659>/SRC_94250/R5000/FOOS1.FTN< AAF_INFO + OS_CNTL  &.ENTR XLUEX .LBT  PPb((A`5p `9p`ppA(pHxh4@78p/h2H@/@7@6  P¯1 - @:E==XzarOS_STATIC 94250-1X535 REV.2520 <870218.1659>/SRC_94250/R5000/FOOS1.FTN= AAF_INFO |OS_STATIC .ENTR .CPMXLUEX .LBTCC`up``~p `p p )  (^` z(1`` ypo}0o(C`|`yp `Ph X DDQ(T` `P(X(]`xpxhtH@w{Hpohr@o@w@vDq m? # @;;X5~  8FOMOV 94250-1X610 REV.2520 <850607.1542>/SRC_94250/R5000/FOMOV.MAC; HFOMOV  d.ENTR .MBT ))TAp`6h6A)@www~~ DUMMY ` DVR_CONFIG0 DVR_FLUSH W DVR_INFORMv DVR_PACK_ESCB DVR_RDBLK '5?dDVR_READtDVR_SEPARATOR   DVR_SETUP r  DVR_STRAPS DVR_WREAD c~~~  DVR_WRITE FLULB  FMP_CLOSE ,FMP_OPENPFMP_READ?FOMOV w FRM_BASIS u FRM_CLEARBL FRM_COMPLETEm5 FRM_FIELD FRM_FIELD_NAMEx6 FRM_FLDPTRt* FRM_INCOM R~~~S  FRM_INITB  FRM_INITV  FRM_PARSE k(@L*5 FRM_POS_FLAG~=FRM_TYP_CHECK {G(*5MIS_ASCII_TO_DINI MIS_CONVERT MIS_DINT_TO_ASCIMIS_RTE_UPSHIFT  MIS_TO_ASCI ;HR~~~c MIS_UPSHIFT AOS_CNTL %OS_I_O' OS_LU_SETUP ] OS_STATIC   TRM_ANALYZE W`2TRM_CHECK2645Ai TRM_CONFIG2 Of5d TRM_CONF_HLPnK5SdTRM_DISP_RESETE35dTR~~~ TRM_DSDISP<l5?dTRM_DSFK9"05d TRM_DSFKAT2 HN?S TRM_DSFKAT4 K=S TRM_DSPHLPjN5?d TRM_DSPTXT15?d TRM_DSUNP ?g5?d TRM_DSWDW 65?dR~~~0S  TRM_ERROR i( TRM_ERR_CASEZH5?[d TRM_FLD_ENH e=STRM_FORMS_USE L TRM_GETYPE7E5dTRM_GET_STATUShE5dTRM_LOCK_KYBD  5d TRM_MSG_FILE!j TRM_PACK_ESC*#S~~~% TRM_PAINT MD?S TRM_POS_CUR PuS TRM_PREP_ENHB-STRM_QUICK_HLP pD5d TRM_READRQS 6p5d TRM_REQ_ERR a@5d TRM_RESET g5?dTRM_RESET_READS _q 5d_ESC*#U~((~~ TRM_RTE_USE1D 5d TRM_RTE_USE2" TRM_SETUP l 65dTRM_SETUP_BLKRD ^" 5dTRM_SETUP_WREAD \L 5dTRM_SFK (!STRM_SHOW/5d TRM_SHOWHELPqt<(RW_ESC*#U~~~7 TRM_UNLOCK_KYBD  j5dUTL_CLEAN_MOVE6? UTL_FROMTBsUTL_GET_FIELD 9 UTL_INIT_BUF3 UTL_MOVETBrUTL_MOVE_DATA FUTL_PACKEUTL_TAB 4S UTL_WRITE /++1ARW_ESC*#U~?z 2?P x @ 0Z  }N dFS :  L  37  E /PCIF/F1000/FOFLL.LIB:::5:100:128 644 0 0 62000 5303664745 35211 /PCIF_GEN/F1000/FOFLL.LIB:::5:100:128 !%$d PdFOFLL LIB +i+i+id1FST `;;X5rFOFLL 94250-12528 REV.6000 <920729.0943>/SRC_94250/R6000/FOFLL.FTN; CFOFLL  kIp@??X7rF_ACTIVATEFORM94250-1X528 REV.2520 <920729.0943>/SRC_94250/R6000/FOFLL.FTN?Cч F_FIELD_STORAGE AF_INFOF_FILEF_ACTIVATEFORM BB L.ENTR .CPM.SST.NFEX TRM_FORMS_USE TRM_LOCK_KYBD FRM_FIELD FRM_BASIS FMP_CLOSE FMP_OPENB~~P>>y@px`}pp`pw`@x 8A8w(2((((`J2(0(0`6y(:`(C`~vv*@77BJ{y K(O S(W Z(^ a(e`p2` `@xh `@xh=`~@xh>vyy @0u @vX>>XrF_ACTIVATERM94250-1X528 REV.2520 <920729.0943>/SRC_94250/R6000/FOFLL.FTN>ByL F_SFK_TABLE AF_INFO] F_ACTIVATERMXX w.ENTR .CPM.SST.NFEX .CBTDVR_CONFIGTRM_UNLOCK_KYBD TRM_RTE_USE2 TRM_RTE_USE1 TRM_SETUP DVR_SETUP TRM_MSG_FILEOS_LU_SETUP X  #! ~~ @@  x`p`p A`p`2(%` A p 0(3`  p`(;` ?  (CF  (J~~~"I==`p2 O  P X 0(]p2 (a`p2 g  (k`hA (s hX (~` `p2 A(2~66B((  2(( p2 6 4 "" @> "@8@@X?(1rF_DEACTIVATEFORM94250-1X528 REV.2520 <920729.0943>/SRC_94250/R6000/FOFLL.FTN@B F_FILEAF_INFOEF_DEACTIVATEFORM,,r.ENTR .CPMTRM_RTE_USE2TRM_RTE_USE1TRM_LOCK_KYBD FMP_CLOSE ,dd$00A`-pA02((`/`.p2( ($'(++ d@h??XJrF_DEACTIVATERM94250-1X528 REV.6000 <920729.0943>/SRC_94250/R6000/FOFLL.FTN? AAF_INFO  F_DEACTIVATERM --.CPM.ENTP TRM_GET_STATUSDVR_CONFIGTRM_RESET F_DEACTIVATEFORM-wwX<<` pD`DDpD@p`DE((p`GpI2((((`H+ p20(48(<AEE wpE A @V,t>>XrF_GETBUFFER 94250-1X528 REV.6000 <920729.0943>/SRC_94250/R6000/FOFLL.FTN>ChAF_INFOF_USERBUFF F_TERMBUFF0 F_GETBUFFER .ENTR .CPMMIN0.SBST .SST.NFEX   wIIA`p A 2( ( ` Ap0(0` `pA6pDHp0(O` O::P(S(X`=pp(gP(\(b`>p`=p(g`=@>pp`(kA(u(up` (w`p`((`p` ` A D`@@pAA  0: @s3>>XurF_GETINTEGER94250-1X528 REV.2520 <920729.0943>/SRC_94250/R6000/FOFLL.FTN>$$D7AF_INFOF_FIELDSF_USERBUFF F_TERMBUFF$}F_GETINTEGER!!i.ENTR .CPM.CBTMIS_CONVERT FRM_FIELD_NAME!  }}@@Axk`op t2(&(&`s -j  ` P(1(4`p `p @@npA`ihme(E`r `p @@np ` @gpf}--vO`p @@npd]hed`(b`q- *I eb  @4==XQ}rF_GETREAL 94250-1X528 REV.6000 <920729.0943>/SRC_94250/R6000/FOFLL.FTN=$$D:AF_INFOF_FIELDS F_USERBUFF F_TERMBUFF$UF_GETREAL ))Z.ENTR .CPM.CBTMIS_TO_ASCI MIS_CONVERT FRM_FIELD_NAME)  lBBAx}`p 2('('` .|  ` P(2(5` `@@p`{hAw(F` `@@p ` @ypxKKhP&&`@@pv^zwv` @ypx`@@pvozwv`(t`K 3R ##Vwt #@@>>XCrF_GETSTRING 94250-1X528 REV.2520 <920729.0943>/SRC_94250/R6000/FOFLL.FTN>$$D@AF_INFO F_FIELDS F_USERBUFF F_TERMBUFF$lF_GETSTRING //.ENTR .CPM.SBST .SST.NFEX .CBT MIS_UPSHIFT FRM_FIELD_NAME/3 P~~DDx4@p+x2`:pAA2(5(5`BAp @ (<(b ;(K(K` @+(J`A`@p (^` @+h H+p)@,0)~~~YAA(^`A`@p ` p (7(fp)A0)(y`?3`P((`<`<@@9p`0h8,(`>`<~~~AA@@9p)1D,D)5((`=(``<@@9p p p`;@+P((@ p pp  ((` p ` @.p-`-h6@~~~CC,(`;p` A@ ((` @p `p ` p (P((p  (('P((` @.p-)1J  ,)( A)1  ` @.p-)~x ,` p ` p ( $ C   **',P ' *@9W>>XErF_INITFIELDS94250-1X528 REV.2520 <920729.0943>/SRC_94250/R6000/FOFLL.FTN> AAF_INFO |F_INITFIELDS[.ENTR .CPMFRM_INITB FRM_CLEARB  rrd<;;A`>pAD2((`Cp=AB0=("`AAp=@0=(0`?3P(7(;;r>; @ >>XrF_PUTBUFFER 94250-1X528 REV.2520 <920729.0943>/SRC_94250/R6000/FOFLL.FTN>CfAF_INFOF_USERBUFFF_TERMBUFF= F_PUTBUFFER A.ENTR .CPM.SBST .SST.NFEX   kAAx`pA 2((` Ap0(,` pA0(:` P(>(C`=pp(R((P(G(MxxDG??`>p`=p(R`=@>pp`(V`@@pDD(i(lp(p`p` `@@pDD@ x 00p @@^>>XlrF_PUTINTEGER94250-1X528 REV.2520 <920729.0943>/SRC_94250/R6000/FOFLL.FTN>$$D7AF_INFOF_FIELDSF_USERBUFF F_TERMBUFF$F_PUTINTEGER!!.ENTR .CPM.CBTMIS_TO_ASCI FRM_FIELD_NAME!  }}6@@Axc`gp k2(#(#`j *b  ` P(.(1`h `h@@fp`aheA](B`i `h@@fp ` @_p^`h}GN@@fp\Z`]\ *I ]Z @1P==XXtkrF_PUTREAL 94250-1X528 REV.2520 <920729.0943>/SRC_94250/R6000/FOFLL.FTN=$$D7AF_INFOF_FIELDSF_USERBUFF F_TERMBUFF$_F_PUTREAL !!.ENTR .CPM.CBTMIS_TO_ASCI FRM_FIELD_NAME!  }}  @@A xb`fp j2("("`i )a  ` P(-(0`g `g@@ep``hdA\(A`h `g@@ep`@^p]`g}<M@@ep[Y_\[ 3R \Y @{>>XOrF_PUTSTRING 94250-1X528 REV.2520 <920729.0943>/SRC_94250/R6000/FOFLL.FTN>$$D:AF_INFOF_USERBUFF F_TERMBUFF F_FIELDS$sF_PUTSTRING !!.ENTR .CPM.LBT.SBT.CBTFRM_FIELD_NAME!   }}4DDxֈx@pˈ`p A2(,(,` Àp0(?` F ` P(J(M` `݀ @@p}DT@@A`h(^` pA(e(v`@pψA`h(r(p(r``p(`(z `݀ @@p`݀ @@p Ap ((`@phooF66h`p`p( ((` p `(p p` @@Ap ((`@p`@ˈHphhH`p`p(o  $C --.  P -@>>Xċ@rF_SETCURSOR 94250-1X528 REV.2520 <920729.0943>/SRC_94250/R6000/FOFLL.FTN> AAF_INFO FF_SETCURSOR -.ENTR .CPMFRM_FIELD_NAMEHIgg 44 x:`;p A?2( ( `> '9  ` P(+(.`= ` P(2(5`< `p;7g@RqT@@X3rF_SHOWALTERNATE 94250-1X528 REV.2520 <920729.0943>/SRC_94250/R6000/FOFLL.FTN@BAF_INFO F_FIELDS9F_SHOWALTERNATE 77 {y.ENTR .CPM.LBT.SBT.CBT UTL_WRITE TRM_ERROR UTL_INIT_BUFFRM_FIELD_NAME7   QAAAx`p 2(#(#` * ` P(.(1` p0(?` ` @@pP(J(\hh`~~O==h(V(Y(Yp([pH(mhhH`h(h(k(kp(mpo s  v(z hHHh` @@h` P((`9@p9~_(`7@p7 3R /N !!$    !@>>XrrF_SHOWFIELDS94250-1X528 REV.2520 <920729.0943>/SRC_94250/R6000/FOFLL.FTN> AAF_INFO vF_SHOWFIELDS22.ENTR .CPMTRM_DSUNP TRM_DSDISPTRM_DSWDW TRM_DISP_RESETTRM_REQ_ERR 2~~==`mpq2((`ppln0l( `o`9(,&(*p9`7(82(6p7`4(D>~[[w,>..(B p4p;hn 0(XT(Xhn 0(jf(j[mj@s53==X]ErF_SHOWFORM94250-1X528 REV.2520 <920729.0943>/SRC_94250/R6000/FOFLL.FTN= AAF_INFO d'F_SHOWFORM&&2.ENTR .CPMTRM_DSFKTRM_DSWDW TRM_DSPTXTTRM_SHOW&~~n;;A`ApAD2((`C p6p4 p5p7 p:p; p?p@$((+(/2(69(=~< `Bp2? @==XY_*rF_SHOWHELP94250-1X528 REV.2520 <920729.0943>/SRC_94250/R6000/FOFLL.FTN= AAF_INFO `(F_SHOWHELPC.ENTR .CPMTRM_SHOWHELPOOpl))A%`'pA)2((`(5%(! p?#O@@@X=~rF_SHOWSFKLABELS 94250-1X528 REV.2520 <920729.0943>/SRC_94250/R6000/FOFLL.FTN@ByQ  F_SFK_TABLE AF_INFOC F_SHOWSFKLABELS DD .ENTR .CPM.CBT UTL_WRITE TRM_PACK_ESC TRM_PAINT TRM_DSFKAT4 TRM_DSFKAT2 UTL_INIT_BUFTRM_DSFKD  ~~iBBA x`p 2((` pA0(0` `P  (=` p@(JE  (I(~zz|J<<LO`h(W(\(\[(j ^A`h(f(j(j jm p  (`p6p(|(`@h`p(w z 7V 2 &&  0[ 0 & $&@$C>>XrF_SHOWINDOW 94250-1X528 REV.6000 <920729.0943>/SRC_94250/R6000/FOFLL.FTN> AAF_INFO 5F_SHOWINDOW GG .ENTR .CPM.SBST .SST.NFEX TRM_DSWDW UTL_WRITE TRM_PACK_ESC UTL_MOVETB TRM_PREP_ENHUTL_INIT_BUFGP$%j51LL12x`p0A42(G(G`A403p30(Z`4011 0(i`401(m(AAA33\\S},,A   44(`p4( 44(`p45\1 PPPZ@>>XrF_WAITEVENT 94250-1X528 REV.2520 <920729.0943>/SRC_94250/R6000/FOFLL.FTN> AAF_INFO P F_WAITEVENT QQ .ENTR .CPM TRM_RESET_READS TRM_DSWDW TRM_REQ_ERR TRM_ANALYZE TRM_READRQUTL_WRITE UTL_TAB TRM_PACK_ESCUTL_INIT_BUFQ  ~~y@@A`pA 2((`A 0(&` `?(8+.1;4  (8p?p`(|pG ~~~tG99 ({P(y`P(Q(x U  (x`P(\(_p(x`9(j e  (jp9 (x`4(x s  (x p4({p?(< ( ~ #  @$Ch@@XrF_DEFINELOCALSFK94250-1X528 REV.2520 <920729.0943>/SRC_94250/R6000/FOFLL.FTN@ByV F_SFK_TABLE AF_INFO$3:F_DEFINELOCALSFK HH .ENTR .CPMMOD .SBST .SST.LBT.SBT.NFEX .CBTUTL_WRITE TRM_PACK_ESC UTL_MOVETB UTL_INIT_BUFH    &f1a k16d +    0 &a c R &dvs &d@22230110192844536271o4KK45x6x`p39h}HHhh}HHhh}HHhh}HDh2(_(_`93z4Apo40o(r`A93z7po7kKK0o(`A9388 0(`934@p07Ap27p1o(( H`0@h{D ozDoH`2D@h{ Hoz`h poxpo@op~~)DD`1@h{A oz  `h z(((  - - 7-8P((  (g`v@pooDo Jo  -~~~KHH 7-`h z((g(gp/`ps`,poAo,o`/@A@ypw ov`+pooH+o`0@@xpw Jov F-@/#p.`@hH.poxpp~33SVJ.p ^op- c -8/8s( jm9:3 #B - L 7V 2 XX8t22  D@ < 5,  P < , P[  P m  X@???X<rF_GETFIELDINFO94250-1X528 REV.2520 <920729.0943>/SRC_94250/R6000/FOFLL.FTN?C` F_FIELDSF_FIELD_STORAGE AF_INFOF_GETFIELDINFO%%@g.ENTR .CPM.SCO.SST .LBT.NFEX .MBT.CBT%  FFx(x&@px$`2p;2(2(2`:p0(@`9pA'+(K(R`3%+DWEE@#+p`8p`@ 88(^(lp(pD)+p`*h(A%((`p`3@1p`3@0p`3@/p`32pCC@.p(r`*h(%(`3(`3@1p`3@0p`3@/p`3@.ph&`*A %`3@ @-p`$p Ah `" `3@ @-wwo88`6@p`3@ @-`$Hph P7((`@h6H(`@h6Hp`=`5@p`3@ @-`4@p`3@ @-w<<l  8  D$ <@f>>XrF_SHOWFIELD 94250-1X528 REV.2520 <920729.0943>/SRC_94250/R6000/FOFLL.FTN>00E F_USERBUFFF_TERMBUFFF_FIELDSF_FIELD_STORAGE AF_INFO0UF_SHOWFIELD ?? +.ENTR .CPM.SST.NFEX .CBT UTL_WRITE TRM_PACK_ESC UTL_MOVETB TRM_POS_CUR UTL_INIT_BUF? DDx`pA2($($``(*`pAJp`h(?(_`p`@p`@p`}})/T@@@p`@p(0`h(i``@@p `@@p `@@p `@ @p       }P ++ 8+@P??XurF_GETDINTEGER 94250-1X528 REV.2520 <920729.0943>/SRC_94250/R6000/FOFLL.FTN?$$D7AF_INFOF_FIELDSF_USERBUFF F_TERMBUFF$F_GETDINTEGER ## .ENTR .CPM.CBTMIS_ASCII_TO_DINFRM_FIELD_NAME#  kH BBA xi`mp nt2(&(&`s -h  ` P(1(4`p `p@@lp`ghkAc(E`r `p@@lp`@epd**O`p@@lpb[cb`(``q* %D ##c` #@??XhrF_PUTDINTEGER 94250-1X528 REV.2520 <920729.0943>/SRC_94250/R6000/FOFLL.FTN?$$D7AF_INFOF_FIELDSF_USERBUFF F_TERMBUFF$F_PUTDINTEGER ##.ENTR .CPM.CBTMIS_DINT_TO_ASCIFRM_FIELD_NAME#  }} @@A x_`cpg2(!(!`f(^  ` P(,(/`d`d@@bp`]haAY(@`e`d@@bp`@[pZ`d}L @@bpXVYX  %D YV @Sr==XBB+rF_ENABLEMA94250-1X528 REV.2520 <920729.0943>/SRC_94250/R6000/FOFLL.FTN=BFOEMA_USE AF_INFOIF_ENABLEMA .S.ENTR .CPM IIǶ$$A`&pJ2*((`)p%A(0%(!`'pIY&#' @x藨~~ FOFLL F_ACTIVATEFORMl F_ACTIVATERM;F_DEACTIVATEFORM F_DEACTIVATERM !F_DEFINELOCALSFKF F_ENABLEMA^ F_GETBUFFER  "F_GETDINTEGER XF_GETFIELDINFOMz F_GETINTEGER~~~ F_GETREAL  F_GETSTRING A F_INITFIELDSa F_PUTBUFFER qF_PUTDINTEGER [ F_PUTINTEGER#( F_PUTREAL &" F_PUTSTRING ) F_SETCURSOR .F_SHOWALTERNATE /} F_SHOWFIELD Se F_SHOWFIELDS4~~~ F_SHOWFORM7 F_SHOWHELP96 F_SHOWINDOW >}F_SHOWSFKLABELS :~ F_WAITEVENT B; F_PUTINTEGER#( F_PUTREAL &" F_PUTSTRING ) F_SETCURSOR .F_SHOWALTERNATE /} F_SHOWFIELD Se F_SHOWFIELDS4~6@U>>XrTRM_CONFIG2 94250-1X543 REV.2520 <880930.1648>/SRC_94250/R5010/FOTRM.FTN> AAF_INFO PTRM_CONFIG2 338<.ENTR .CBTUTL_WRITE /PCIF/F1000/FOPRL.LIB:::5:109:128 644 0 0 66400 5303664747 35664 /PCIF_GEN/F1000/FOPRL.LIB:::5:109:128 !%$m mFOPRL LIB +i+i+im6zFST f;;X5rFOPRL 94250-12538 REV.6000 <921002.1706>/SRC_94250/R6000/FOPRL.FTN; IFOPRL  kIp@??X|rFACTIVATEFORM 94250-1X538 REV.2520 <921002.1706>/SRC_94250/R6000/FOPRL.FTN? AF_COMM ض(FACTIVATEFORM !!.ENTR .SST.NFEX .MBTOS_WAIT1OS_SEND !  }}$@@$$q@%pp`xp#A's qP̈(@`{'#Ahv`ts Myyy''(Q#Vyd''(Z#`j'`k&p"`zpo`"@p}rd h"Hw8"8o(b(q @ @@ kl@=>>XgrFACTIVATERM 94250-1X538 REV.2520 <921002.1706>/SRC_94250/R6000/FOPRL.FTN> AF_COMM L FACTIVATERM //.ENTR .CPM.MBTOS_TAKEDOWN_COMMOS_WAIT1OS_SEND OS_SETUP_COMM /  ~~?@@x^`bp`apAcp\f0\((`epP(00P(4pp@dcc(D~33EIcd(M`jh^``A](ZZ 3] 0TZ@Xww7@@X.rFDEACTIVATEFORM 94250-1X538 REV.2520 <921002.1706>/SRC_94250/R6000/FOPRL.FTN@ AF_COMM FDEACTIVATEFORM ,.ENTR OS_WAIT1OS_SEND   XXd++A`*p P(`-,++("+d(&`j(X@a!??XJrFDEACTIVATERM 94250-1X538 REV.2520 <921002.1706>/SRC_94250/R6000/FOPRL.FTN? AF_COMM ΐFDEACTIVATERM "" 6.CPM.ENTP OS_TAKEDOWN_COMMOS_WAIT1OS_SEND "  ]==`pD`DDpD`Fp`EpP(`I`D@G(%(%p(' p/HGG(38Gd(<`jA B EA>@g'==X/SRC_94250/R6000/FOPRL.FTN= AF_COMM <$ FGETBUFFER n.ENTR .CPMREC_LONG_BUFOS_WAIT1OS_SEND  ==AO`Qp P(`Tp`O(%(%`Op((('p/SRR(38Rd(<`j`k#{A GOR`(L` OL@Ȩ>>Xm=rFGETINTEGER 94250-1X538 REV.2520 <921002.1706>/SRC_94250/R6000/FOPRL.FTN> AF_COMM *FGETINTEGER .ENTR .MBTOS_WAIT1OS_SEND   rr::Ax7`:pP(`6h9`76#<;;(',;d(0`j`k 4r@kD<<X?rFGETREAL94250-1X538 REV.2520 <921002.1706>/SRC_94250/R6000/FOPRL.FTN< AF_COMM FGETREAL .ENTR .MBTOS_WAIT1OS_SEND   ssz<<Ax9`==(',=d(0`jk 6s@B==XarFGETSTRING94250-1X538 REV.2520 <921002.1706>/SRC_94250/R6000/FOPRL.FTN= AF_COMM b" FGETSTRING **..ENTR .CPM.SBST .SST.NFEX .MBTOS_WAIT1OS_SEND *   !}AAx@p~x`p  P̈( ` Ah`p p`p}`@hH~88}(+=  (AFdYYE44  (J`j `kpyy pyyA(wyA{A y{ Y P P   wQ@ >>XR4rFINITFIELDS 94250-1X538 REV.2520 <921002.1706>/SRC_94250/R6000/FOPRL.FTN> AF_COMM FINITFIELDS ,.ENTR OS_WAIT1OS_SEND   ff11A`0p P̈(`3pp211(#(1d(,`j. f@(!==XKh;rFPUTBUFFER94250-1X538 REV.2520 <921002.1706>/SRC_94250/R6000/FOPRL.FTN= AF_COMM L)FPUTBUFFER.ENTR OS_WAIT1SEND_LONG_BUF   mmQ88x5`6p P̈(`:pp#479(',8d(0`j02 m@">>Xv=rFPUTINTEGER 94250-1X538 REV.2520 <921002.1706>/SRC_94250/R6000/FOPRL.FTN> AF_COMM 3FPUTINTEGER .ENTR .MBTOS_WAIT1OS_SEND   rrxR::Ax7`:pP(`6h9`76p %<;;().;d(2`j 4 r@<<X?rFPUTREAL94250-1X538 REV.2520 <921002.1706>/SRC_94250/R6000/FOPRL.FTN< AF_COMM FPUTREAL .ENTR .MBTOS_WAIT1OS_SEND   ssR<<Ax9`==(+0=d(4`j 6 s@7==XqurFPUTSTRING94250-1X538 REV.2520 <921002.1706>/SRC_94250/R6000/FOPRL.FTN= AF_COMM r$FPUTSTRING **..ENTR .CPM.SBST .SST.NFEX .MBT OS_WAIT1OS_SEND *  ~~IIxlxj`qpP(`krApei0e(.`thp`lAkp emDrgirDegH@@p~55ZMTsrr(X ]rd(a`j5i P P  c @U==XRw:rFSETCURSOR94250-1X538 REV.2520 <921002.1706>/SRC_94250/R6000/FOPRL.FTN= AF_COMM S5FSETCURSOR.ENTR .MBTOS_WAIT1OS_SEND   kkN77x4`7p P(`3h6`4A 3"988(&+8d(/`j  1k@p.0??X=rFSHOWALTERNATE94250-1X538 REV.2520 <921002.1706>/SRC_94250/R6000/FOPRL.FTN? AF_COMM FSHOWALTERNATE.ENTR .MBTOS_WAIT1OS_SEND   rr"::Ax7`:pP(`6ph9`76%<;;().;d(2`j 4r@6/T>>X_1rFSHOWFIELDS 94250-1X538 REV.2520 <921002.1706>/SRC_94250/R6000/FOPRL.FTN> AF_COMM #FSHOWFIELDS ,.ENTR OS_WAIT1OS_SEND   __..`-pP(`0p/..( %.d()`j+_@%~==Xd$.rFSHOWFORM 94250-1X538 REV.2520 <921002.1706>/SRC_94250/R6000/FOPRL.FTN= AF_COMM dFSHOWFORM ,.ENTR OS_WAIT1OS_SEND   XXr++A`*p P(`-,++("+d(&`j(X@cg==X]WerFSHOWHELP 94250-1X538 REV.2520 <921002.1706>/SRC_94250/R6000/FOPRL.FTN= AF_COMM ^ &FSHOWHELP !!.ENTR .SST.NFEX .MBTOS_WAIT1OS_SEND !   ||n#BBA##[`ap"A%] [P̈(;`d%"Ah``^] Hcbb%%(L"Qbd%%(U"`j%`k$& @ @@ Y|@42R??X>rFSHOWSFKLABELS94250-1X538 REV.2520 <921002.1706>/SRC_94250/R6000/FOPRL.FTN? AF_COMM FSHOWSFKLABELS.ENTR .MBTOS_WAIT1OS_SEND  A ss$;;Ax7`:pP(`=ph9`76%<;;().;d(2`j 4s@1D==XelrFSHOWINDOW94250-1X538 REV.2520 <921002.1706>/SRC_94250/R6000/FOPRL.FTN= AF_COMM fFSHOWINDOW&&.ENTR .CPM.SBST .SST.NFEX OS_WAIT1OS_SEND &  ~~bHHxd`gp P̈(`kAhp_c0_(+`jpp_ehDacDhH_a@@pNih~--NLh(RWhd([`j-c PP ]@==XbN4rFWAITEVENT94250-1X538 REV.2520 <921002.1706>/SRC_94250/R6000/FOPRL.FTN= AF_COMM cFWAITEVENT,.ENTR OS_WAIT1OS_SEND   ffc11A`0p P̈(`3p211(!&1d(*`j`k.f@@@X+&nrFDEFINELOCALSFK 94250-1X538 REV.2520 <921002.1706>/SRC_94250/R6000/FOPRL.FTN@ AF_COMM + FDEFINELOCALSFK %%i.ENTR .CPM.SST.NFEX .MBTOS_WAIT1OS_SEND %   ~~EExda`ip P(`mA jp`e0`(1`l phh`dcAeapp@@pO~44WMIkjj  (SXjd  (\`j  4a  P " ^@,MK ??XorFGETFIELDINFO 94250-1X538 REV.2520 <921002.1706>/SRC_94250/R6000/FOPRL.FTN? AF_COMM ۇ FGETFIELDINFO .ENTR .MBTOS_WAIT1OS_SEND   ~~ BBxcxa@p]x_`kp P(#`` phi`c`2nll  (6;ld  (?ha`g`p~11F`mp\`@]hHj88\(HAh_`e^ `}  1""~^ ((    mY"@%D==X]G:rFSHOWFIELD94250-1X538 REV.2520 <921002.1706>/SRC_94250/R6000/FOPRL.FTN= AF_COMM ^FSHOWFIELD.ENTR .MBTOS_WAIT1OS_SEND   kkN77x4`7p P(`3h6`4A 3"988(&+8d(/`j  1k@%C>>X?rFGETDINTEGER94250-1X538 REV.2520 <921002.1706>/SRC_94250/R6000/FOPRL.FTN> AF_COMM hFGETDINTEGER.ENTR .MBTOS_WAIT1OS_SEND   ssz<<Ax9`==(',=d(0`jk 6s@b>>X?rFPUTDINTEGER94250-1X538 REV.2520 <921002.1706>/SRC_94250/R6000/FOPRL.FTN> AF_COMM qFPUTDINTEGER.ENTR .MBTOS_WAIT1OS_SEND   ss`<<Ax9`==(+0=d(4`j 6s@,^K==X?*OrFENABLEMA 94250-1X538 REV.2520 <921002.1706>/SRC_94250/R6000/FOPRL.FTN= AF_COMM ?FENABLEMA !!.ENTR .CPMOS_WAIT1OS_SEND OS_SETUP_COMM !  ~~@@A`JpAKpIN0I( `MpP(((P(,pp8LKK(<AKd~EuC(E`jvJG@3??XGrF_ACTIVATEFORM94250-1X530 REV.2520 <850606.1714>/SRC_94250/R5000/FOFPA.FTN?,F_ACTIVATEFORM 44 ga.ENTR .CPM.SBST .SST.LBT.SBT.NFEX .CBT FACTIVATEFORM FSTRC 4 " @  (GG(@(p@)p`p&p'`p`'@h'H8'8(;p%hHDh %(Pp`hA(ZA(l%%A`%p%(K@`h@@0o""(t X% 0(`+&`@%p (# #)*+,@ !  B D@"@z7:>>XrrF_ACTIVATERM94250-1X530 REV.2520 <850606.1714>/SRC_94250/R5000/FOFPA.FTN>VF_ACTIVATERM4D.ENTR FACTIVATERM FSTRC ..x_@p.  @אP@@X5 rF_DEACTIVATEFORM94250-1X530 REV.2520 <850606.1714>/SRC_94250/R5000/FOFPA.FTN@EF_DEACTIVATEFORM.ENTR FDEACTIVATEFORM h' A@???X rF_DEACTIVATERM94250-1X530 REV.2520 <850606.1714>/SRC_94250/R5000/FOFPA.FTN?F_DEACTIVATERM.ENTR FDEACTIVATERM h' A@X>>X]6rF_GETBUFFER 94250-1X530 REV.2520 <850606.1714>/SRC_94250/R5000/FOFPA.FTN>,F_GETBUFFER e.ENTR .CPMFGETBUFFERFSTRC PPR--A@p1`2pp0500( `4%3.P m2.0 @ r>>XrF_GETINTEGER94250-1X530 REV.2520 <850606.1714>/SRC_94250/R5000/FOFPA.FTN>pF_GETINTEGERP&.ENTR FGETINTEGER FSTRC ++;A@p+  @z]==XFrF_GETREAL 94250-1X530 REV.2520 <850606.1714>/SRC_94250/R5000/FOFPA.FTN=UF_GETREAL .ENTR FGETREALFSTRC ++;A@p+  @Gf>>XMrF_GETSTRING 94250-1X530 REV.2520 <850606.1714>/SRC_94250/R5000/FOFPA.FTN>\ F_GETSTRING .ENTR .CPMFGETSTRINGFSTRC kk??@pG@pF@pE`HpAIpDL0D(,`K 1IJ8IB   kHBP@On`>>X{ rF_INITFIELDS94250-1X530 REV.2520 <850606.1714>/SRC_94250/R5000/FOFPA.FTN>zF_INITFIELDSH.ENTR FINITFIELDS  A @">>Xk4rF_PUTBUFFER 94250-1X530 REV.2520 <850606.1714>/SRC_94250/R5000/FOFPA.FTN>:F_PUTBUFFER u.ENTR .CPMFPUTBUFFERFSTRC MM++@p/`0pp.A30.(`2$1,M i0,0 @IhM>>XrF_PUTINTEGER94250-1X530 REV.2520 <850606.1714>/SRC_94250/R5000/FOFPA.FTN>F_PUTINTEGER`/.ENTR FPUTINTEGER FSTRC ++;A@p+  @F==XOrF_PUTREAL 94250-1X530 REV.2520 <850606.1714>/SRC_94250/R5000/FOFPA.FTN=^F_PUTREAL .ENTR FPUTREALFSTRC ++;A@p+  @j>>XErF_PUTSTRING 94250-1X530 REV.2520 <850606.1714>/SRC_94250/R5000/FOFPA.FTN>e F_PUTSTRING .ENTR .CPMFPUTSTRINGFSTRC ``;N88@p?@p>`@pAAp=D0=('`C,AB3A; `@;P@">>XXrF_SETCURSOR 94250-1X530 REV.2520 <850606.1714>/SRC_94250/R5000/FOFPA.FTN><F_SETCURSOR 3.ENTR FSETCURSORFSTRC ))~!@p)  @ @@X*rF_SHOWALTERNATE 94250-1X530 REV.2520 <850606.1714>/SRC_94250/R5000/FOFPA.FTN@9F_SHOWALTERNATE .ENTR FSHOWALTERNATEFSTRC ++;A@p+  @ )>>X rF_SHOWFIELDS94250-1X530 REV.2520 <850606.1714>/SRC_94250/R5000/FOFPA.FTN>uF_SHOWFIELDS~X.ENTR FSHOWFIELDS q  @z==XT8 rF_SHOWFORM94250-1X530 REV.2520 <850606.1714>/SRC_94250/R5000/FOFPA.FTN=d&F_SHOWFORM2 .ENTR FSHOWFORM h' A@3R==XPrF_SHOWHELP94250-1X530 REV.2520 <850606.1714>/SRC_94250/R5000/FOFPA.FTN=`N+F_SHOWHELP22 .ENTR .CPM.SBST .SST.LBT.SBT.NFEX .CBT FSHOWHELP FSTRC 2 " @ CL(HHA(@(p`p&p'`p`'@h'H8'8(7p%hHDh %(Lp`hA(VA(h%%A`%p%(GA`h(p77!Fp X% 0({`*&`@%p (# #)*+7 !  B D@"@ڎN@@X3 rF_SHOWSFKLABELS 94250-1X530 REV.2520 <850606.1714>/SRC_94250/R5000/FOFPA.FTN@CF_SHOWSFKLABELS .ENTR FSHOWSFKLABELSFSTRC 00A@p`p0 | @0>>X7rF_SHOWINDOW 94250-1X530 REV.2520 <850606.1714>/SRC_94250/R5000/FOFPA.FTN>TF_SHOWINDOW .ENTR .CPMFSHOWINDOWFSTRC PP=..@p2`3pA4p1601("`5'4/P 3/P @B>>X[ rF_WAITEVENT 94250-1X530 REV.2520 <850606.1714>/SRC_94250/R5000/FOFPA.FTN>IF_WAITEVENT 0D.ENTR FWAITEVENT A @o|@@XAIrF_DEFINELOCALSFK94250-1X53((0 REV.2520 <850606.1714>/SRC_94250/R5000/FOFPA.FTN@$ F_DEFINELOCALSFK UE.ENTR .CPMFDEFINELOCALSFK FSTRC eeW<<@pC@pB`DpEpAAH0A()`G .EF5E?  eD?P@)??X=rF_GETFIELDINFO94250-1X530 REV.2520 <850606.1714>/SRC_94250/R5000/FOFPA.FTN? F_GETFIELDINFO s.ENTR FGETFIELDINFO FSTRC TT+711@p9@p8@ p7:<$:<+ :;5  T :  @:YV>>XcrF_SHOWFIELD 94250-1X530 REV.2520 <850606.1714>/SRC_94250/R5000/FOFPA.FTN>GF_SHOWFIELD  .ENTR FSHOWFIELDFSTRC ))~!@p)  @q??XrF_GETDINTEGER 94250-1X530 REV.2520 <850606.1714>/SRC_94250/R5000/FOFPA.FTN?wF_GETDINTEGER 6d.ENTR FGETDINTEGERFSTRC ++;A@p+  @;i??XrF_PUTDINTEGER 94250-1X530 REV.2520 <850606.1714>/SRC_94250/R5000/FOFPA.FTN?F_PUTDINTEGER Fm.ENTR FPUTDINTEGERFSTRC ++;A@p+  @>]==X9rF_ENABLEMA94250-1X530 REV.2520 <850606.1714>/SRC_94250/R5000/FOFPA.FTN=IF_ENABLEMA .ENTR FENABLEMA  )A`p @O;;X6 ~ 8 8FSTRC 94250-1X611 REV.2520 <850607.1543>/SRC_94250/R5000/FSTRC.MAC; MFSTRC .ENTR m Ah H @\{{;iii~~4` FACTIVATEFORM l FACTIVATERM 6FDEACTIVATEFORM "FDEACTIVATERM FDEFINELOCALSFK .O FENABLEMA : FGETBUFFER 7 FGETDINTEGER6FGETFIELDINFO 1; FGETINTEGER  xFGETREALu~~~, FGETSTRINGo FINITFIELDS FOPRL  FPUTBUFFERp FPUTDINTEGER8 FPUTINTEGER eFPUTREALb FPUTSTRING\ FSETCURSORFFSHOWALTERNATE : FSHOWFIELD4 FSHOWFIELDS "9 FSHOWFORM $~~~ FSHOWHELP %| FSHOWINDOW* FSHOWSFKLABELS( FSTRC d FWAITEVENT,dF_ACTIVATEFORM<D" F_ACTIVATERM?J"F_DEACTIVATEFORM@tF_DEACTIVATERMA{&F_DEFINELOCALSFK[Y1" F_ENABLEMAc=~~~],  F_GETBUFFER BF"F_GETDINTEGER `@O"F_GETFIELDINFO]HY" F_GETINTEGERDPd" F_GETREAL Ewn" F_GETSTRING G" F_INITFIELDSI F_PUTBUFFER J"F_PUTDINTEGER ai" F_PUTINTEGERK\"~~~>  F_PUTREAL M" F_PUTSTRING N&" F_SETCURSOR P "F_SHOWALTERNATE Q-" F_SHOWFIELD _" F_SHOWFIELDSRY F_SHOWFORMS\ F_SHOWHELPTZ" F_SHOWINDOW Y"F_SHOWSFKLABELS WQ"~~~x' F_WAITEVENT ZT) F_PUTSTRING N& F_SETCURSOR P F_SHOWALTERNATE Q- F_SHOWFIELD _ F_SHOWFIELDSRY F_SHOWFORMS\ F_SHOWHELPTZ F_SHOWINDOW YF_SHOWSFKLABELS WQ~TRM_RESET F_DEACTIVATEFORM-wwX<<` pD`DDpD@p`DE((p`GpI2((((`H+ p20(48(</PCIF/F1000/FRULB.LIB:::5:26:128 644 0 0 15000 5303664750 35150 /PCIF_GEN/F1000/FRULB.LIB:::5:26:128 $$ $FRULB LIB +i+i+i EFST  --XgFRULB 94250-12546 REV.2520 <850607.1339>- FFRULB  kIp@th(11XӷOS_SETUP_COMM 94250-1X536 REV.2520 <850607.0847>1 AF_COMM (AOS_SETUP_COMM RR EXEC.ENTR .CPM.SST .LBT .SBT.NFEX .MBTOS_TAKEDOWN_COMMABREG CLRQ RMPAR FMPRPPROGRAMINTTODECIMALLOGLU R̄ FOCLO.RUN::PROGRAMS   @@A`p`p%`(`%`p`ppp pPۈ((#p$`#(p#(A`p#A#h`A#((DDh h (#( ( h`A(Ah`  "`"hX" (#`"@`pA 0( 4p`p`p`p{=88p`pDP(FJ`(P``pp`p\P(^b`(h``p`p`p`p`p`p== uA`p ((` `pp̀(= $ C II**FO000       $   ( .  m dI@o22X&OS_TAKEDOWN_COMM94250-1X536 REV.2520 <850607.0847>2 AF_COMM F! OS_TAKEDOWN_COMM)) EXEC.ENTR .CPMIDRPD ABREG .OPSY CLRQOS_SEND )?, <<A `p  J((=p!&`P(*(4.؀  (4`  `(9` pp`(J`pF~~F99 P(Hpʠ`(W`pSP(UpP([(`p`πpppp`pp r(t(v`p{`P((~@@B؀  (`  `(` pp  @m@@,ZK..XWGOS_SEND 94250-1X536 REV.2520 <850607.0847>. AF_COMM  OS_SEND  :_EXEC.ENTR  ssRo99@p=`>p`F ``E@=h`p`D@=h`C@=`B@=`@@=`?p8Aɀ(;  sz> ;p@dσ..Xэ~OS_WAIT 94250-1X536 REV.2520 <850607.0847>. AF_COMM &OS_WAIT  EXEC.ENTR .CPMABREG ~~D@@A@pr`sp`}`|@pA`zpȊ(n"((((PhyHrX 0(6`x@rP(<`w@r{hw~UUJE++@Hrpp0p(Q`v@r(W`t@rAuhtHr pp0p(lUGs n q@Srj..X@ OS_WAIT194250-1X536 REV.2520 <850607.0847>. &OS_WAIT1 Wl.ENTR OS_TAKEDOWN_COMMOS_WAIT 77lA@p`p`((7 mq @11XSEND_LONG_BUF 94250-1X533 REV.2520 <850607.0820>1 AF_COMM SEND_LONG_BUF  y.ENTR .CPM.SBST .SST.NFEX OS_SEND j DD xƈ`p`p pA0(-` pp`@ p `@@p h p` P(K`p`(Pp}}vQHHp(W(` p A` p (b(b`p`(f(`@@͈p` @@͈p(A AA(D DH`@p}SS((((d(`p`@p`@p`p(RS% 00 0@<`[ 00XhREC_LONG_B((UF94250-1X533 REV.2520 <850607.0820>0 AF_COMM gREC_LONG_BUF .ENTR .CPM.SBST .SST.NFEX OS_WAIT ~~}  AAA  x`҈p`p (" ԀpA0(5` pp`@p (D`p(F`i p`@@p ~~~MNCCh p ` P([` p ` P(a` p(h(` pA` p (s(s`p`@@ӈp`@@ӈp(AAA(~hh66AA`@p`@p`pA((((d(`p(ch 00 0q@Ź~~=FRULB OS_SEND  OS_SETUP_COMM ^ OS_TAKEDOWN_COMMD OS_WAIT  OS_WAIT1V - REC_LONG_BUFa-SEND_LONG_BUF z ~>Xv .PCSTP 94200-16208 REV.2435 <840823.1 840823.1045%PCMN7.MAC::IRV:4:72:30 > qPCIF_HALT &m.CBT.DAD.ENTR .LBPR .LBT.LPX.LPXR .MBT.SBTABREG /PCIF/F1000/FOBLK.REL:::5:6:65 644 0 0 3000 5303664752 34257 /PCIF_GEN/F1000/FOBLK.REL:::5:6:65 "$ @AFOBLK REL +i+i+i FST ==Xw//F_INFO/94250-16504 REV.5010 <880930.1632>FOBLK.FTN::B94250_5010_SRCS = AAF_INFO 2 @AAX[/F_FIELD_STORAG/94250-16504 REV.2520 <880930.1632>FOBLK.FTN::B94250_5010_SRCS AA!F_FIELD_STORAGE @J @@X:/F_SFK_TABLE/ 94250-16504 REV.2520 <880930.1632>FOBLK.FTN::B94250_5010_SRCS @ A F_SFK_TABLE  @-AAX`/F_SFK_STORAGE/ 94250-16504 REV.2520 <880930.1632>FOBLK.FTN::B94250_5010_SRCS AAZF_SFK_STORAGE @m@@XV/F_FILE_PARAM/94250-16504 REV.2520 <880930.1632>FOBLK.FTN::B94250_5010_SRCS @ A)F_FILE_PARAM  @Y==Xf7/F_FILE/94250-16504 REV.2520 <880930.1632>FOBLK.FTN::B94250_5010_SRCS = AYF_FILE  @l==XrE/F_MSSG/94250-16504 REV.2520 <880930.1632>FOBLK.FTN::B94250_5010_SRCS = A8F_MSSG @<},K(,(K&рBҀ;Ճ.kfk&f_,P֠,Mä杚(,<,+֠,MK&рVҀ,E,+ԗ ,5,m,[l _KJ@,5룙,9KJΜ/PCIF/F1000/FOCLO.REL:::5:53:128 644 0 0 32400 5303664753 35222 /PCIF_GEN/F1000/FOCLO.REL:::5:53:128 $$5 H5FOCLO REL +i+i+i5EFST ;;Xa-rFOCLO 94250-16505 REV.6000 <921002.1101>/SRC_94250/R6000/FOCLO.FTN;B!FOEMA_USE F_COMMssyFOCLO .NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN s{{EXEC .CPM .ARTN .FION 'F_DEACTIVATERM&C_F_ENABLEMA%C_F_PUTDINTEGER $C_F_GETDINTEGER #C_F_SHOWFIELD "C_F_GETFIELDINFO!C_F_DEFINELOCALS C_F_WAITEVENT C_F_SHOWINDOW C_F_SHOWSFKLABELC_F_SHOWHELP{:EC_F_SHOWFORMC_F_SHOWFIELDSC_F_SHOWALTERNATC_F_SETCURSOR C_F_PUTSTRING C_F_PUTREAL C_F_PUTINTEGERC_F_PUTBUFFER C_F_INITFIELDSC_F_GETSTRING C_F_GETREAL C_F_GETINTEGERC_F_GETBUFFER C_F_DEACTIVATERM88C_F_DEACTIVATEFO C_F_ACTIVATERM C_F_ACTIVATEFORM CLRQOS_WAIT RMPAR PRTNPNAME 8dddJJ FC001: INCORRECT SCHEDULING PARAMETERS FC002: MAIN PROGRAM ABORTED OR CLASS I/O ERROR FC003: FCOMM BLOCK DATA SUBPROGRAM OMMITTED FROM LINKd}}HH`pp`(,I`PhX 0(GP爈((`P(7A(+.36(}~~y7AA`p`pp`(E`(`@   hH p @ 0 (i`p bP(di`@  ~PxCC    Q<< !"#$%&!!b(='AAH !E@ 0@@ʰ@@X/rC_F_ACTIVATEFORM94250-16505 REV.2520 <921002.1101>/SRC_94250/R6000/FOCLO.FTN@ AF_COMM DC_F_ACTIVATEFORM.ENTR OS_SEND F_ACTIVATEFORM  ;;+A`plkjd @0 ;@c#??X rC_F_ACTIVATERM94250-16505 REV.2520 <921002.1101>/SRC_94250/R6000/FOCLO.FTN? AF_COMM C_F_ACTIVATERM.ENTR OS_SEND F_ACTIVATERM  ==:A`pjd 0=@ag@@X!rC_F_DEACTIVATEFO94250-16505 REV.2520 <921002.1101>/SRC_94250/R6000/FOCLO.FTN@ AF_COMM 6C_F_DEACTIVATEFOK8.ENTR OS_SEND F_DEACTIVATEFORM  11 A`pjd1@,K@@X/$rC_F_DEACTIVATERM94250-16505 REV.6000 <921002.1101>/SRC_94250/R6000/FOCLO.FTN@ AF_COMM BC_F_DEACTIVATERM.ENTR OS_SEND F_DEACTIVATERM  HH!!A`!p P((j(jd#""H@ϱ??X%rC_F_GETBUFFER 94250-16505 REV.2520 <921002.1101>/SRC_94250/R6000/FOCLO.FTN? AF_COMM C_F_GETBUFFER [.ENTR SEND_LONG_BUF F_GETBUFFER   EE`""x!`"p kj k$#0E@Ъ??XrC_F_GETINTEGER94250-16505 REV.2520 <921002.1101>/SRC_94250/R6000/FOCLO.FTN? AF_COMM C_F_GETINTEGER.ENTR OS_SEND F_GETINTEGER  99dA`pkjd0 9@ګ>>XCrC_F_GETREAL 94250-16505 REV.2520 <921002.1101>/SRC_94250/R6000/FOCLO.FTN> AF_COMM FC_F_GETREAL [:.ENTR OS_SEND F_GETREAL   99eA`pkjd0 9@P??XHrC_F_GETSTRING 94250-16505 REV.2520 <921002.1101>/SRC_94250/R6000/FOCLO.FTN? AF_COMM C_F_GETSTRING -3.ENTR .CPMOS_SEND F_GETSTRING    ww,<<A`EpC  Akj`p`kAp@Gk@h Ap@G @(6` @@p>dCFFw>A P00 >Q@?6??XrC_F_INITFIELDS94250-16505 REV.2520 <921002.1101>/SRC_94250/R6000/FOCLO.FTN? AF_COMM C_F_INITFIELDS.ENTR OS_SEND F_INITFIELDS  88,5A`pj((d 8@??X0rC_F_PUTBUFFER 94250-16505 REV.2520 <921002.1101>/SRC_94250/R6000/FOCLO.FTN? AF_COMM C_F_PUTBUFFER S.ENTR OS_SEND F_PUTBUFFER REC_LONG_BUF  XXY--x+`,p*-( *j(d/..0( X@do??XrC_F_PUTINTEGER94250-16505 REV.2520 <921002.1101>/SRC_94250/R6000/FOCLO.FTN? AF_COMM C_F_PUTINTEGER.ENTR OS_SEND F_PUTINTEGER  99A`p jd0  9@n>>XSrC_F_PUTREAL 94250-16505 REV.2520 <921002.1101>/SRC_94250/R6000/FOCLO.FTN> AF_COMM VC_F_PUTREAL dJ.ENTR OS_SEND F_PUTREAL   99 A`p jd0  9@$??X"rC_F_PUTSTRING 94250-16505 REV.2520 <921002.1101>/SRC_94250/R6000/FOCLO.FTN? AF_COMM C_F_PUTSTRING .ENTR OS_SEND F_PUTSTRING   >>A`p jd!   P00  >@??XrC_F_SETCURSOR 94250-16505 REV.2520 <921002.1101>/SRC_94250/R6000/FOCLO.FTN? AF_COMM C_F_SETCURSOR Ќ.ENTR OS_SEND F_SETCURSOR   66,A`pjd 0 6@㡣@@X#rC_F_SHOWALTERNAT94250-16505 REV.2520 <921002.1101>/SRC_94250/R6000/FOCLO.FTN@ AF_COMM 8"C_F_SHOWALTERNAT?7.ENTR OS_SEND F_SHOWALTERNATE   99A`pjd09@0??XrC_F_SHOWFIELDS94250-16505 REV.2520 <921002.1101>/SRC_94250/R6000/FOCLO.FTN? AF_COMM C_F_SHOWFIELDS.ENTR OS_SEND F_SHOWFIELDS  55@A`pjd5@>>XrC_F_SHOWFORM94250-16505 REV.2520 <921002.1101>/SRC_94250/R6000/FOCLO.FTN> AF_COMM C_F_SHOWFORMi}.ENTR OS_SEND F_SHOWFORM  11 A`pjd1@,9J>>XrC_F_SHOWHELP94250-16505 REV.2520 <921002.1101>/SRC_94250/R6000/FOCLO.FTN> AF_COMM C_F_SHOWHELPev.ENTR OS_SEND F_SHOWHELP   99A`pkjd@0 9@b"@@X rC_F_SHOWSFKLABEL94250-16505 REV.2520 <921002.1101>/SRC_94250/R6000/FOCLO.FTN@ AF_COMM 4C_F_SHOWSFKLABELI$.ENTR OS_SEND F_SHOWSFKLABELS  A 99 A`pjd09@گo??Xީ rC_F_SHOWINDOW 94250-16505 REV.2520 <921002.1101>/SRC_94250/R6000/FOCLO.FTN? AF_COMM C_F_SHOWINDOW .ENTR OS_SEND F_SHOWINDOW   ==A`pjd P0=@)??X֣rC_F_WAITEVENT 94250-16505 REV.2520 <921002.1101>/SRC_94250/R6000/FOCLO.FTN? AF_COMM C_F_WAITEVENT .ENTR OS_SEND F_WAITEVENT   88,A`pkjd8@9p@@X $rC_F_DEFINELOCALS94250-16505 REV.2520 <921002.1101>/SRC_94250/R6000/FOCLO.FTN@ AF_COMM !C_F_DEFINELOCALS)F.ENTR OS_SEND F_DEFINELOCALSFK   EEGi!!A`!pjd#"" P0" 0E@:@@X&rC_F_GETFIELDINFO94250-16505 REV.2520 <921002.1101>/SRC_94250/R6000/FOCLO.FTN@ AF_COMM -C_F_GETFIELDINFO.ENTR OS_SEND F_GETFIELDINFO  FFZ##A`#p!n}d%$$  0 00F@ *+??XɟrC_F_SHOWFIELD 94250-16505 REV.2520 <921002.1101>/SRC_94250/R6000/FOCLO.FTN? AF_COMM ޣC_F_SHOWFIELD .ENTR OS_SEND F_SHOWFIELD   66,A`pjd 0 6@@@X)rC_F_GETDINTEGER 94250-16505 REV.2520 <921002.1101>/SRC_94250/R6000/FOCLO.FTN@ AF_COMM >C_F_GETDINTEGER .ENTR OS_SEND F_GETDINTEGER   99wA`pkjd0 9@@@X2rC_F_PUTDINTEGER 94250-16505 REV.2520 <921002.1101>/SRC_94250/R6000/FOCLO.FTN@ AF_COMM GC_F_PUTDINTEGER  .ENTR OS_SEND F_PUTDINTEGER   99A`p jd0 9@>>Xw_rC_F_ENABLEMA94250-16505 REV.2520 <921002.1101>/SRC_94250/R6000/FOCLO.FTN> AF_COMM dC_F_ENABLEMANX.ENTR OS_SEND F_ENABLEMA  88,GA`pjd8@FA`pkjd8@9p/PCIF/F1000/FUSE9.REL:::5:2:48 644 0 0 1000 5303664754 34527 /PCIF_GEN/F1000/FUSE9.REL:::5:2:48 "$ 0FUSE9 REL +i+i+iFFST //X/F_FIELDS/94250-16514 REV.2520 <850606.1329>/ AF_FIELDS @00XYo/F_USERBUFF/94250-16514 REV.2520 <850606.1329>0 AOF_USERBUFF  @m00XF{/F_TERMBUFF/94250-16514 REV.2520 <850606.1329>0 Aai F_TERMBUFF F0$0 @j*/PCIF/F1000/FCOMM.REL:::5:1:61 644 0 0 400 5303664756 34357 /PCIF_GEN/F1000/FCOMM.REL:::5:1:61 "$ =FCOMM REL +i+i+i{JFST ==X/F_COMM/94250-16613 REV.5010 <881004.1004>FCOMM.FTN::B94250_5010_SRCS = AF_COMM L-dFO   @ISh/PCIF/F1000/FOLCL.TXT:::4:28:39 644 0 0 16000 5303664760 35322 /PCIF_GEN/F1000/FOLCL.TXT:::4:28:39 #$ 'FOLCL TXT +i+i+i NFST ((* FOLCL 94250-17542 REV.2520 **FO--MSG--2520** <850612.1705> * * F/1000 LOCALIZATION FILE >>>>> "FOLCL <<<<<* * Contains the F/1000 localizable parameters such as:* * 1. F/1000 error messages* 2. Character upshift table* 3. F/1000 Form Builder parameters * * For instructions on how to use this file, please see line 118 * * Please read the instructions before making ANY modifications. * %*---------------------- Start of FORMS ACCESS ROUTINES ------------------*% * v Decimal point is >> . << * * #* 1 2 3 4 5 6 7#'*FORMS MESSAGES ------------------------------------- UP TO 80 BYTES --------V' FR001 REQUIRED FIELD(S) MISSING. PLEASE ENTER MISSING VALUE(S). " FR002 DATA ENTERED DOES NOT MATCH FIELD TYPE. PLEASE REENTER VALUE."" FR003 DATA ENTERED IS OUTSIDE ACCEPTED RANGE. PLEASE REENTER VALUE."$* 0----5----0----5----0----5----0----5----0----5----0----5----0--3$$*UPSHIFT TABLE --------------------------------------------------------V$$SHIFT1 {These characters set by F/1000} !"#$%&'()*+,-./0123456789:;<=>?$#SHIFT2 @ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~ #SHIFT3SHIFT4%*----------------------- End of FORMS ACCESS ROUTINES -----------------*%%*...............................FB--MSG--2520.............................. %'* --------------------------- Screen Design labels (level 1) -----------------' f1 < START FIELD > f2 < STOP FIELD > f3 <[ START FIELD > f4 < STOP FIELD ]> f5 < HELP > f6 < user keys > f7  f8 < ABORT TO MAIN> '* -------------------------------- Screen Design labels (level 2) ------------' f1 < >  f2 < >  f3 < >  f4 < >  f5 < >  f6 < > f7 < > f8 < RETURN > JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC[]CEDVN1YNBUIHVNORDCIDRRC*+^ FBD001. FORMS ERROR : ....  FBD002. FMP ERROR : -....  FBD003. CANNOT ACCESS HELP FILE. # FBD004. CANNOT ACCESS FORM FILE OR SPECIFIED FILE IS NOT A FORM FILE.# FBD005. WRONG VALUE. PLEASE CORRECT INDICATED DATA. FBD006. NO FORM ENTERED. PLEASE PRESS ENTER KEY.  FBD007. TOO MANY FIELDS. PLEASE DELETE SOME.  FBD008. PRESS KEY AGAIN TO REFRESH. FBD009. OVERFLOW ON LINE : ..  FBD010. INCOMPATIBLE SPECIFICATIONS. PLEASE CORRECT.  FBD011. CANNOT ACCESS A FORM BUILDER FILE. >>> This is your window line.  FBD013. DUPLICATE FIELD NAMES. PLEASE CORRECT. & FBD014. FIELD NAMES IN OLD AND NEW FORM DO NOT MATCH : ........ && FBD015. FIELD PARAMETERS IN OLD AND NEW FORM DO NOT MATCH : ........ & FBD016. PRESS KEY AGAIN TO ABORT. FBD017. NO MORE ROOM ON CARTRIDGE.  FBD018. CANNOT ACCESS MESSAGE FILE. FBD019. ERROR DURING SEGMENT LOADING." Writing on list file." Verifying forms.  Writing on form file.  FBD023. FILE NOT FOUND : .................... FBD024. INCORRECT FILE SECURITY CODE : ...................  FBD025. FILE ALREADY EXISTS : ...................  FBD026. FILE NAME MANDATORY. PLEASE REENTER.  FBD027. INCONSISTANT FIELD ON LINE :  Working ...  Compiling form ... FBD030. CANNOT ALLOCATE SCRATCH FILE.& Page .. F/1000 Rev. 2520 & FIELD DESCRIPTION ' #... Field name : ........ Brief name : ............' Length : .. Row : .. Column : .. & Field type : . Normal video enhancement / color pair : ..../ .. && Data type : . Alternate video enhancement / color pair : ..../ .. & Initial value :'********************************FL--MSG--2520*********************************' SCREEN DESIGN '---------1---------2---------3---------4---------5---------6---------7--------' >>> This is the window line ...........'------------------------------------------------------------------------------' '.' is used to show unprotected fields (required / optional).  '.' is used to show display-only fields. Total number of fields : ... Total size of fields : .... (bytes) Total number of display-only fields : ... Total size of display-only fields : .... (bytes) IDENTIFICATION Name : ....................  Last modification date : ......................... Comment line :  FORM PARAMETERS  Color specified : . (Yes,No)  Window line number : .. (1 to 24)' Window video enhancements : .... (Blink,Underline,Inverse,Half-bright)' Window color pair : .. (00 to 07)  Text color pair : .. (00 to 07)  Softkey labels on 264x : . (Visible,Not visible)$ Field type default value : . (Optional,Required,Display only) $& Data type default value : . (Character,Integer,Double int,Real)& Default window :  SOFT KEYS $ Set Physical position Label Logical key $* * %*************************************************************************** %%* HOW TO USE THIS FILE * %%*************************************************************************** %* * ****** WARNING ****** * * DO NOT remove ANY lines in this file.* * Information is located by line number. * * ****** PLEASE ****** * $* Before making ANY modifications to this file, please see Chapter 4 of $#* the F/1000 Reference manual for instructions on how to use this file#* to localize F/1000 for local language use.* #* If the file is modified incorrectly, error number 3 ("Unable to read##* Localization File") will be returned by the F_ACTIVATERM subroutine,# * and the F/1000 Forms Builder will terminate with the message: * FBD018. CANNOT ACCESS MESSAGE FILE. * &*************************************************************************** &&* END OF THE F/1000 LOCALIZATION FILE * &&*************************************************************************** &/PCIF/PCIFGEN/"CDSLB:::4:31:39 644 0 0 17400 5303664531 33613 /PCIF_GEN/PCIFGEN/"CDSLB:::4:31:39 "$ '"CDSLB +iY+iY+iY lFST macro,m,l,t * *  * NAME: "CDSLB * SOURCE: 92059-18027 REV.2326 820930 * RELOC: None* Pgmr: R.S.N., M.O.S., G.W.K.*  * ************************************************************ * * (C) Copyright Hewlett-Packard Company 1983. All rights * * * reserved. No part of this program may be photocopied, * * * reproduced or translated to another program language * * * without the prior written consent of Hewlett-Packard * * * Company. * * ************************************************************ * * * ENTRY macro comments$* Brief Description: This macro sets up a subroutine that will be$#* called using the standard calling format for CDS (PCALL SUBR#%* address, DEF P1, DEF P2, etc.). It gives the subroutine formal %#* parameters names. The CDS hardware automatically fills the #* actual parameter value in at run time.* Registers Affected: all are clobbered * Unusual Side Effects/ Miscellaneous Notes: None so far * Parameters: * &NAME is the subroutine name%* &FP1,&FP2,...,&FP10 are the formal parameters of the subroutine %%* Alternate Calling Formats/ Default Parameters: may be called with%%* 2 to 10 of the macro parameters &FP1 to &FP10; the ones not used%* will default to ''. *  MACRO  &NAME ENTRY &FP1,&FP2,&FP3,&FP4,&FP5,&FP6,&FP7,&FP8,&FP9,&FP10  AIF :T:&.LocalMacroUsed <> 'U' AIF &.LocalMacroUsed <> 'Used last on END' $ MNOTE 'The LOCAL statement should not be used before ENTRY'$ AENDIF  AENDIF RELOC CODE ENT &NAME &NAME DEF !#!LocalCount ;set up by END macro RELOC LOCAL AIF &FP1 <> '' &FP1 NOP  AENDIF AIF &FP2 <> '' &FP2 NOP  AENDIF AIF &FP3 <> '' &FP3 NOP  AENDIF AIF &FP4 <> '' &FP4 NOP  AENDIF AIF &FP5 <> '' &FP5 NOP  AENDIF AIF &FP6 <> '' &FP6 NOP  AENDIF AIF &FP7 <> '' &FP7 NOP  AENDIF AIF &FP8 <> '' &FP8 NOP  AENDIF AIF &FP9 <> '' &FP9 NOP  AENDIF AIF &FP10 <> '' &FP10 NOP  AENDIF (( RELOC CODE  ENDMAC* * EXIT macro comments $* Brief description: This macro exits a subroutine that has been $* entered with the ENTRY macro. * Registers Affected: none  MACRO  EXIT OCT 105417  ENDMAC * * EXIT1 macro comments$* Brief description: This macro exits a subroutine that has been $* entered with the ENTRY macro. * Registers Affected: none  MACRO  EXIT1  OCT 105415  ENDMAC * * EXIT2 macro comments$* Brief description: This macro exits a subroutine that has been $* entered with the ENTRY macro. * Registers Affected: none  MACRO  EXIT2  OCT 105416  ENDMAC * LOCAL macro comments$* Brief description: This macro is used to declare the names and $ * sizes of the local variables in a CDS user's program. !* It is used both to assure that the users will not try to!%* to initialize their variables (either overtly like 'FOO DEC 12' %"* or accidently like 'FOO NOP') and to assure that no locals"#* precede the ENTRY macro. This is done via an assembly time # * variable. * Only data is generated. #* The current relocation space counter is modified to be LOCAL. #*  MACRO  &Lname LOCAL &size  AIF :T:&.LocalMacroUsed = 'U' &.LocalMacroUsed CGLOBAL 'Used last on LOCAL'  AELSE &.LocalMacroUsed CSET 'Used last on LOCAL'  AENDIF RELOC LOCAL &Lname bss &size  ENDMAC  * END macro comments %* Brief description: Used only to set up the variable !#!LocalCount%'* to contain a count of the number of local words used by the program '%* This is put into the first word of the code via the ENTRY macro.%  MACRO  END ¶m RELOC LOCAL !#!LocalCount equ *  AIF :T:&.LocalMacroUsed <> 'U' &.LocalMacroUsed CSET 'Used last on END' AENDIF  :OP:END ¶m  ENDMAC * * CALL macro comments $* Brief Description: This macro generates the code to call a sub-$* routine with 0 to 10 parameters.* Registers Affected: depends on subroutine called* Unusual Side Effects/ Miscellaneous Notes: none  * Parameters: * &NAME is subroutine name* &P1,&P2,...,&P10 are the subroutine parameters%* Alternate Calling Formats/ Default Parameters: may be called with %$* 0 to 10 of the macro parameters &P1 to &P10; the ones not used$* will default to ''!* Example: To generate the code, call CALL as follows:!* pcal exec,1,1,0 CALL EXEC,=D6 *  MACRO  CALL &NAME,&P1,&P2,&P3,&P4,&P5,&P6,&P7,&P8,&P9,&P10  EXT &NAME &parms ilocal &.pcount-1  pcal &NAME,&parms,1,0  .CALLPARS &P1,&P2,&P3,&P4,&P5  AIF &.PCOUNT > 6  .CALLPARS &P6,&P7,&P8,&P9,&P10  AENDIF ENDMAC   * PCALL macro comments$* Brief Description: This macro generates the code to call a CDS $* subroutine with 0 to 10 parameters. * Registers Affected: depends on subroutine called* Unusual Side Effects/ Miscellaneous Notes: none  * Parameters: * &NAME is subroutine name* &P1,&P2,...,&P10 are the subroutine parameters%* Alternate Calling Formats/ Default Parameters: may be called with %$* 0 to 10 of the macro parameters &P1 to &P10; the ones not used$* will default to ''"* Example: To generate the code, call PCALL as follows: "* pcal sub,1,3,0 PCALL SUB, P1*  MACRO  PCALL &NAME,&P1,&P2,&P3,&P4,&P5,&P6,&P7,&P8,&P9,&P10 EXT &NAME &parms ilocal &.pcount-1  pcal &NAME,&parms,3,0  .CALLPARS &P1,&P2,&P3,&P4,&P5  AIF &.PCOUNT > 6  .CALLPARS &P6,&P7,&P8,&P9,&P10  AENDIF ENDMAC  * Macro to do the parameters for the CALLx guys. * Does 5 at a time; this makes CALLs * with fewer than 6 parameters faster. * * Macro seems to do something strange, making pcount NOT * be what you might think it would be. *  MACRO  .CALLPARS &P1,&P2,&P3,&P4,&P5  AIF &P1 <> '' DEF &P1  AENDIF AIF &P2 <> '' DEF &P2  AENDIF AIF &P3 <> '' DEF &P3  AENDIF AIF &P4 <> '' DEF &P4  AENDIF AIF &P5 <> '' DEF &P5  AENDIF ENDMAC  end  AENDIF AIF &P3 <> '' DEF &P3  AENDIF AIF &P4 <> '' DEF &P4  AENDIF AIF &P5 <> '' DEF &P5  AENDIF ENDM/PCIF/PCIFGEN/PCGEN.LIB:::5:235:128 644 0 0 165400 5303664535 36603 /PCIF_GEN/PCIFGEN/PCGEN.LIB:::5:235:128 #'$ PCGEN LIB +i\+i]+i]uWFST @@X{ 9]PAS.GLOBALINFO94200-12002 REV.4010 <860903.1 860903.1157PCGEN.MAC::PCGEN_CI @@Y;;XA{ 9]NEXT94200-12002 REV.4010 <860903.1 860903.1157PCGEN.MAC::PCGEN_CI ; NEXT  00.MPYPAS.1 PAS.3 PAS.ENTRY1PAS.EXIT1 PAS.NONCDSPAS.RANGEINTEGER0++b`,DA?@0p`.D@@Hx(%+88=D App(A`p=`=.8 ? @Ec==X{ 9]PCGEN 94200-12002 REV.4010 <860903.1 860903.1157 PCGEN.MAC::PCGEN_CI ='' JPAS.1 7PAS.2 FPAS.3 PAS.STOP(PCGEN ': .MBT.MPY.SBT ACTIVATERM DEACTIVATERMEXECGENERATION_LINK GENERATION_MACRONEXTPAS.INITIALIZEPAS.INITMEMINFO1PAS.NONCDSPAS.RANGEINTEGERPAS.SEGMENTLOAD PAS.TOPOFSTACK1 PAS.TRACECLOSE TASK_1 TASK_2TASK_3 %(EE-!/p] 6]YpU`ppOh16`O"L@H`8O8(<`ppOh26`OA$M@HH`8O8(M`ppOh36`O&P@H`h46`O&,2mOOQ@H`H8O8(^`ppO`O(U @+@6`26 %`O(V @,@6`26 %`O(W @-@6`26 %`O(X @.@6`26 %`O(ƎMMY@/@6`16A #`OA(Z@0@6A`16 #8O8(yh56`66A *pX`XP(눈P(P(P(( A7 ( :A( A=(  YA@C@gg AAA ( XJpX`XP((`JP(( Y!'P?g g IFPCPT1 PCPT2 PCPT3 PCPMA PCPL K CODC g   (@z(==Xl"]PCFOI 94200-16045 REV.4010 <860804.2 860804.2133 PCFOI.MAC::PCGEN_CI =@ZAAXZll"]RETURN_CODE_PROC94200-16045 REV.4010 <860804.2 860804.2133PCFOI.MAC::PCGEN_CI Ao>RETURN_CODE_PROCllI .LBT .MBT .SBTF_DEACTIVATEFORMF_DEACTIVATERMF_SHOWINDOW IMESS PAS.1 PAS.3 PAS.ENTRY1PAS.EXIT1 PAS.NONCDSPAS.RANGEINTEGERPC_CONV_INT_ASC PC_ERROR_MESSAGEl!!^!A=A= NO=(=!1HHA (A=(`gphW6`X6 N=p=(0(9`dp䀀hW6`Y6A N=A@j(C`hpI`Z6h[6 P=A@j(=A@ip`nq^GGp倈`ph[A6`Q@kH Pe(t`Pg(t(b`A@f(h\6D Sh[6p:`AQ@kHH`: h\D6  Sh[6p:`Q@kH`: h\6@H_ ooR::Sh[6p:`@_Q@kH`: `(=P`(È=Pa(=Pb(=Pc((pA==((ӁhW6A`Y6 N(J`;oFFk?--A >;Ap<Up(>>(PP]^FOCO $*OPF@AAXR?l"]GET_TERMINAL_TYP94200-16045 REV.4010 <860804.2 860804.2133PCFOI.MAC::PCGEN_CI Ag2GET_TERMINAL_TYP,,LOGLU PAS.1 PAS.3 PAS.ENTRY1PAS.EXIT1 PAS.NONCDSXLUEX ,LL''A,p-`,p.p/A;.+*)((`)=p)`)>p)`)' 6,]""q8A)76Ap3()77FGH@"@3 Q??X!&l"]ACTIVATEFORM94200-16045 REV.4010 <860804.2 860804.2133PCFOI.MAC::PCGEN_CI ?:ACTIVATEFORM55F_ACTIVATEFORMPAS.1 PAS.3 PAS.ENTRY1PAS.EXIT1 PAS.NONCDSRETURN_CODE_PROC5''WP%( p(!'l A(A@~>>>X^-l"]ACTIVATERM94200-16045 REV.4010 <860804.2 860804.2133PCFOI.MAC::PCGEN_CI >t"ACTIVATERM<<F>F_ACTIVATERMPAS.1 PAS.3 PAS.ENTRY1PAS.EXIT1 PAS.NONCDSRETURN_CODE_PROCSET_IDT_MODE<..!P,(+pA !pA!(' .n # A"(A""H@m==X!l"]SHOWFORM94200-16045 REV.4010 <860804.2 860804.2133PCFOI.MAC::PCGEN_CI = SHOWFORM 33/F_SHOWFORMPAS.1 PAS.3 PAS.ENTRY1PAS.EXIT1 PAS.NONCDSRETURN_CODE_PROC3##P ( pA (#l A(A@Š??Xv'l"]PUTSTRING 94200-16045 REV.4010 <860804.2 860804.2133 PCFOI.MAC::PCGEN_CI ?kPUTSTRING 44f]F_PUTSTRING PAS.1 PAS.3 PAS.ENTRY1PAS.EXIT1 PAS.NONCDSRETURN_CODE_PROC4''׫P&( p(" 'l A(A@nٍ>>XI%l"]PUTINTEGER94200-16045 REV.4010 <860804.2 860804.2133PCFOI.MAC::PCGEN_CI >`PUTINTEGER44ZF_PUTINTEGERPAS.1 PAS.3 PAS.ENTRY1PAS.EXIT1 PAS.NONCDSRETURN_CODE_PROC4%%=P$(Ap( %l A(A@!@g??Xt'l"]SHOWINDOW 94200-16045 REV.4010 <860804.2 860804.2133 PCFOI.MAC::PCGEN_CI ?iSHOWINDOW 44dQF_SHOWINDOW PAS.1 PAS.3 PAS.ENTRY1PAS.EXIT1 PAS.NONCDSRETURN_CODE_PROC4''׫P&( p(" 'l A(A@hu>>X>#l" ]SHOWFIELDS94200-16045 REV.4010 <860804.2 860804.2133PCFOI.MAC::PCGEN_CI >USHOWFIELDS44O|F_SHOWFIELDSPAS.1 PAS.3 PAS.ENTRY1PAS.EXIT1 PAS.NONCDSRETURN_CODE_PROC4$$6P"(p($l A(A@ *H??X_#l"!]SHOWFIELD 94200-16045 REV.4010 <860804.2 860804.2133 PCFOI.MAC::PCGEN_CI ?TSHOWFIELD 44OIF_SHOWFIELD PAS.1 PAS.3 PAS.ENTRY1PAS.EXIT1 PAS.NONCDSRETURN_CODE_PROC4$$6P"(p($l A(A@,J>>X.%l"!]INITFIELDS94200-16045 REV.4010 <860804.2 860804.2133PCFOI.MAC::PCGEN_CI >EINITFIELDS44?F_INITFIELDSPAS.1 PAS.3 PAS.ENTRY1PAS.EXIT1 PAS.NONCDSRETURN_CODE_PROC4%%=P$(Ap( %l A(A@Цf??Xl(l""]WAITEVENT 94200-16045 REV.4010 <860804.2 860804.2133 PCFOI.MAC::PCGEN_CI ?aWAITEVENT 44\NF_WAITEVENT PAS.1 PAS.3 PAS.ENTRY1PAS.EXIT1 PAS.NONCDSRETURN_CODE_PROC4**UP&(`' pA("*m A(A@n_==X$l""]SHOWHELP94200-16045 REV.4010 <860804.2 860804.2133PCFOI.MAC::PCGEN_CI = SHOWHELP 33(F_SHOWHELPPAS.1 PAS.3 PAS.ENTRY1PAS.EXIT1 PAS.NONCDSRETURN_CODE_PROC3%%O8P#(Ap(%l A(A@ΘX@@Xh!l"#]DEACTIVATEFORM94200-16045 REV.4010 <860804.2 860804.2133PCFOI.MAC::PCGEN_CI @}DEACTIVATEFORM66F_DEACTIVATEFORMPAS.1 PAS.3 PAS.ENTRY1PAS.EXIT1 PAS.NONCDSRETURN_CODE_PROC6##P ( pA (#l A(A@Lj??X%l"#]DEACTIVATERM94200-16045 REV.4010 <860804.2 860804.2133PCFOI.MAC::PCGEN_CI ?-DEACTIVATERM==F_DEACTIVATERMPAS.1 PAS.3 PAS.ENTRY1PAS.EXIT1 PAS.NONCDSRETURN_CODE_PROCSET_IDT_MODE=''P$(pA #('m A(AF@??Xm+l"#]GETSTRING 94200-16045 REV.4010 <860804.2 860804.2133 PCFOI.MAC::PCGEN_CI ?b!GETSTRING 44]MF_GETSTRING PAS.1 PAS.3 PAS.ENTRY1PAS.EXIT1 PAS.NONCDSRETURN_CODE_PROC4)) P*(  p (& )l" A!(A!!@l->>X@%l"$]GETINTEGER94200-16045 REV.4010 <860804.2 860804.2133PCFOI.MAC::PCGEN_CI >WGETINTEGER44QpF_GETINTEGERPAS.1 PAS.3 PAS.ENTRY1PAS.EXIT1 PAS.NONCDSRETURN_CODE_PROC4%%=P$(Ap( %l A(A@|%<AAX)l"$]SHOWALTERNATE 94200-16045 REV.4010 <860804.2 860804.2133 PCFOI.MAC::PCGEN_CI A~SHOWALTERNATE >>֠F_SETCURSOR F_SHOWALTERNATE PAS.1 PAS.3 PAS.ENTRY1PAS.EXIT1 PAS.NONCDSRETURN_CODE_PROC>**,P((A Ap($*l A(A@Ctb4@@XaEl"%]SET_TIMEOUT 94200-16045 REV.4010 <860804.2 860804.2133 PCFOI.MAC::PCGEN_CI @24SET_TIMEOUT 44 .MPYEXECLOGLU PAS.1 PAS.3 PAS.ENTRY1 PAS.EXIT1 PAS.NONCDSRMPAR 4EE!U##`Bp(`+PAA((  %p)( `+Ap%`*Cp&`%@Dp'A('&,`-3(=1"E!!5A41p+2p*(A 44dE!@cAAXW@l"&]WAITEVENT_WITH_T94200-16045 REV.4010 <860804.2 860804.2133PCFOI.MAC::PCGEN_CI Am 5WAITEVENT_WITH_TGG .DCO .DIN.DLD.DSTPAS.1 PAS.3 PAS.ENTRY1 PAS.EXIT1 PAS.HALTPAS.NONCDSSET_TIMEOUT WAITEVENT GTTۧ..`:;( A 234() AA0234A0 0AJ06A(&(&#k01 &>3((:2-Tn=6 A *5(A *55@==Xp.]PCCUT 94200-16046 REV.4010 <860813.1 860813.1446 PCCUT.MAC::PCGEN_CI =@BBX~^p.]PC_CONV_INT_ASC 94200-16046 REV.4010 <860813.1 860813.1446 PCCUT.MAC::PCGEN_CI BYAPC_CONV_INT_ASC AA .DIV.LBT.SBTPAS.1 PAS.3 PAS.ENTRY1PAS.EXIT1 PAS.NONCDS PAS.RANGEINTEGER PAS.SINGLEMOD Aiio99`=(`=p=`[p;@;p; =LMp`; Rd@]H`>H`= \p=`;PZ(4((H ?8i..7+BA5A?Ap=(5AA c U0123456789 .@HfAAXy%p.]PC_ERROR_MESSAGE94200-16046 REV.4010 <860813.1 860813.1446PCCUT.MAC::PCGEN_CI APC_ERROR_MESSAGEK jj. .CBT.DST .LBT .MBT .SBTFMPCLOSEFMPOPEN FMPREAD PAS.1 PAS.3 PAS.BLANKFILL PAS.ENTRY1PAS.EXIT1 PAS.NONCDSPAS.RANGEINTEGERPC_CONV_INT_ASC STRDSCjPLL`P((Dh6 h6H h6 D h6  A(5h6 Ah6 h6A  h6 D 5`p`ph6`@D@H h6Ap`LII@H`H 88(9AY`ApAk`p`pph6`A@HH` 8A8(qވp`pph6`A@AH nDDh6p`A@HH` 8刀8(h6A`6 ((`(m`(h6`6 `(`AP(ǂh6H` h6HH` `(`PA((ŘJJ((pAhA6 h6 h6  AhD6  `p`ph6`@@HD €h6p`A@HH` 8刈8(`pph6`r#FF@H` 88(2p݈`pp倄h6`@HD ʀh6p`A@HH` 8刀8(7h6A`6 (](Z`(`(rgǂˀh6˧iFFHH` h6H` (vp`ph6`ֈH@H P(`P((x`A@(h6 Ah6p`A@HH` hD6  h6p`MM)O++@܈@H` h6H Ah6p`@A@HH` h6`6 A(MooyNNApp(A?PRO /PCIF/RUNTIME/PCERR.ERR FM $-?NPo@H==XS{ 7]PCPT1 94200-1X002 REV.4010 <860903.1 860903.1200 PCPT1.MAC::PCGEN_CI =PAS.3 PAS.SEGMENTRTN  @[z<<X{ 8]TASK_194200-1X002 REV.4010 <860903.1 860903.1200PCPT1.MAC::PCGEN_CI < TASK_1  .CBT.DST.LBT.MBT.SBTACTIVATEFORM DEACTIVATEFORMDESCRIPTOR_COMPIFMPCLOSEFMPOPEN GETSTRING INITFIELDSPAS.1 PAS.3 PAS.ENTRY1PAS.EXIT1 PAS.NONCDSPAS.RANGEINTEGERPC_ERROR_MESSAGE22SHOWALTERNATE SHOWFIELDSSHOWFORM SHOWHELPSHOWINDOW STRDSC WAITEVENT 299**h'6`(6Ah)6`*6AA(#9~~7TTA(A+?K/PCIF/PCIFGEN/PCP01.FRM /PCIF/PCIFGEN/PCP01.HLP A pt~s({x|@@Au{(kAu{{ Aph{6A`|6`p Bp`ph}6`T@HDTh~6pH`AT@ވHH`H`P((hCC6`~6((Ȁ(p(᠈` ((p`Ap`^ @z6h~6((`P ((`a @z6Ah~6(((`p`(CCR`(h6`6A `p(p`phA6`y@HAyh6pH`y@H`H`P܈A(1(6(!=AAFoBDD!ň`P(K`ؤpO`(`P(V(p`ph6`A@ބAHh6pH`@H`H`P(v(XA{(!AAFDD!`P(A`p`(p`ph6`D@Hh6ApH`@H`HH`P((h6`6A(((!4j==AA!`P(`Pӈ(`p`(h{6A`6AI`6h6A`ݤp  h63 A`6(vaqvvur<(`hx(h 6` 6 (((` :(` ?戈(e`P 9((` =(pp`p`ph 6`eD@ eH  eh6 BBAp`e@ eH`H`P ](((e` YA@(` @(k`pph 6A` 6 `ph 6`v@ eHH P Q( `ph 6`yH@ eH P T( h /AAA6`z@ eH A zh 6p`z@ eH``P ](h 6`As@ eH P T((`P ]((` A$x`(*` >(k` ?@A@ e@hxpp 5BB`ph A6`@ eH P Q(g`ph 6`A@ eAH  h @H@A@ ex S@@6`@ eH``P ](k(5(e`P :(p(s` B(p`wBBp`ph 6`@ eHD  h :H@@ exA S@@A6`@ eH`H`P ]((u`p(e`P 9((` =(pp`ph A6`@ e~~@@H P Q(؀`ph A6`@ eH A h䀈H ^6p`A@ eHH``P ](`P Z(h 6`A@ eH P W(ꈈ(`P Z(h 6`@ eHH P W((~Y'??` C(e`P 9((` =(4pp`ph 6`A@ eH P Q(0`ph A6`@ eH A h䀈H `6p`A@ eHH``P ](4((e`P 9(98AA(<` =(p`@ : p`ph A6`@ eH P Q(m`ph 6`A@ eAH  hH a6Ap`@ eH`H`P ](`P Z(h A6`y@@H@ eH P W((D`P Z(h 6`A@ eH P W((` C(e`P 9((` =(pp`ph 6`H@ eH P Q(`ph 6`@ eHD  ,BBhH b6p`@ eH`((`P ](((e`P 9(Έ(` =(pph 6` 6A `ph 6`H@ eH P Q(`ph 6`@ eHD  h 6 ??Ap`@ eH`H`P ](( x`((` >戈(`@ ;hx(e`P 9(( ` =怀(vpp`ph 6`.@ eHH P Q(fh A6`0@ eH2d:>>H P U(Kh A6`0@ eH P V(K` D(f`ph 6`4@ eHD  4hH c6p`4@ eH``P ](p`P I(pP D(p($`P I(t(v` D(e`x??P 9({(~` =(pp`ph 6`AG@ eH P Q(`ph A6`J@ eH A Jh 6p` J@ eH``P ](`P I((`P I((` EjDD(e` YA@~(` F(`~p~ph 6` 6 `p`ph 6``D@ eH  `h 6Ap``@ eH`H`P ]((x`(` >` [@@@~e@ e@hx(e`}P 9(( ` =(bp}P :((` O怈(bp`ph 6`xH@ eH P Q(?`ph 6`{@ eHD  {hH d6p`{~~;<<@ eH``P ](Q`P Z(Qh 6`uH@ eH P W(Q(`P Z(`h 6`A@ eH P W(`(b` C(epw(k`w(H(l`(t` G戈(x`@ =h~Dw==(}` I`~(P :((` H(`@ >h~h 6`6A (((` J`@ ^6h 6 (((` K`@ `6Ah 6 (((` L`@ a6ӷCCAh 6 (((Ȉ`@ b6h 6 ((` M`@ b6h 6 (((`䀀@ a6h 6A (߈(` N`䀀@ c6h 6A (((p`p`@ c@6`A===@ eH` V`P G((숈P 9(P :(<(lh 6A` 6 (((`@ < (4h 6` 6 ((#(#`刈@ p(`Ip(hLh36A`46. FFp`Ap`#$E@,@6`$@OHD%$h36p`A)$@OHH`h3A6`)"@OHPD(4`PH(4(`(`A@G(h46`36((H9HDDh36`)*@OH`Fh36A`)+@OH`FHh56A%,h36p`@:A),@OHH`h5D6 %-h36p`@;)-@OH``P9(P:(P;((` ٣MM'0 @-@6`36(` A'1 @.@6`36A(` '2 @/@6`36(hM88(` A'7E@0@6A`66 A` ':E@1@> 6`76(0jjN?<>`((8`ڈA@p  `6h6A  `P((7pph6A h6A/e`(5`3@@p(7pኈ(A`P(<(?p(AA`pE`Ap88(h6`6(X([([p(`(c_AA$j#"s$"?Ns88`(w(A}`6Ah6  `P((p(`P((p(`pA`(iiJI22`6h6A `Ap`(`A(`6h6A (2iZZA(A%Ee_WO RO 9:;<MNVJ/PCIF/PCIFGEN/PCLCO.LOD PCCTB.MAC i`` /PCIF/PCIFGEN/PCLRT.LOD PCRTB.MAC /PCIF/PCIFGEN/PCCTB.REL Q`` /PCIF/PCIFGEN/PCRTB.REL /PCIF/RUNTIME/PCCON.RUN /PCIF/RUNTIME/PCIF.RUN )88  02pp ;`P(mP(EP(KP(N(uA J?(M(`P(R(Up(lA`p]`6h6da66A`p l (o`(tt(A`p}`6h6A`p  `p`(`(`(^^9**`(`P((6`(D(`p`(`(`P(H`P((6A `P((`Hp(:^22A(.A p h6`6A(y2LL122A(A?P? 6K_PCCON PCIF  $>?PXL@==X A{ :0]PCPLI 94200-1X006 REV.4010 <860903.1 860903.1158 PCPLI.MAC::PCGEN_CI =@ A>>XT^{ :1]LISTING 94200-1X006 REV.4010 <860903.1 860903.1158 PCPLI.MAC::PCGEN_CI > tLISTING zzGx.DST.LBT.MBT.SBTFMPCLOSEFMPOPEN FMPWRITEFTIME PAS.1 PAS.3 PAS.ENTRY1PAS.EXIT1 PAS.INLINEERROR PAS.NONCDSPAS.RANGEINTEGERPC_CONV_INT_ASC PC_ERROR_MESSAGE SHOWALTERNATE zaU SHOWINDOW STRDSCggfh88hn6`o6A} ;a  `p6hn6}`pcp:hn6`:@A~:@AH:hn6pd`:~:@H`d8:8c((j.e7gSfDDA4e(A4ee ;p p p  | _A~lA ~j lj~` (` P(`p ` P((`peA`pd ~j lj~ @@` (`p ` (AI `6Ah6}   `pch6`6Apae`pqp`hA6``l@HAlh6pr`@`MDDA~l@HH`r8`A8q( c`paeA Ac   c`paeA n`pqp`h6``@HDh6pr`@`~@H`r8.??8`8q(7 c` (;(p `  p `pq`paeFAL ch6A`6}`pc`aP(_P(P(P(ڈ(`prAp``  @@~~mDDA6``@HAh6ps`@`A~@HH`s8`8r(c(`prp`` A @@6``@HDh6ps`@`~@H`s8`8r((~ FF`prp``  @@6``A@AHh6psA`@`~@H`sH8`8r((`prAp``  @@6``D@Hh6ps`==@`~@H`s8`8r((Dh  c8a8q(DA  c` P ((=` (`p h6`6A) ` (F2I  `6UU4**Ah6}h6`6A E  A (SLI `6h6A} Y    (yt]UvvuJJAZt(qAZttPP?L ?D    I  n  WO WC PLCOFN((AMR #$(NPv@n==X'{ ]PCPMA 94200-1X007 REV.4010 <860903.1 860903.1159 PCPMA.MAC::PCGEN_CI =PAS.3 PAS.SEGMENTRTN  @ϤAAXH$ { ]GENERATION_MACRO94200-1X007 REV.4010 <860903.1 860903.1159PCPMA.MAC::PCGEN_CI Aj- GENERATION_MACROq||.CBT.DST.LBT.MBT.MPY.SBT FMPCLOSE FMPOPEN FMPREAD FMPWRITEIMESS PAS.1 PAS.3 PAS.BITMASK1PAS.BLANKFILL PAS.BOUNDINTEGERPAS.ENTRY1PAS.EXIT1 PAS.NONCDSPAS.RANGEINTEGER|$$1PAS.SETINIT PC_CONV_INT_ASC PC_ERROR_MESSAGE STRDSC$CCB""p ` p h16`26 A 9   p     ` P$(((-%!CL'HHA&%Ap$(&&  p ` kp Ո` np hE6A`F6  E A  A Ll    U    ` P A(Y(g ^o   g   ` tp ` ~p$Ap!sAoHH 9   ӈp 8!8$(mhG6`H6A & p ` p ` A @A6hI6 ((hG6`H6A  r   ` p$p!` A  w@B@6`!A @  w@@6` >D@ H >h 6p`@ l >@ H`88(-U    ` P (Y(& \ p ` yp ` p h 6` 6 @vCkHHq 9   pp` A [ w@@6`A [@ HP u(`  ]A w@@A6` ]@ HA ]h 6p` m@A ]@ HH``p(p`(`A@ sll%99(uh 6` m@A c@ DH` x    h 6` 6 A Y       ` P ((`& A   ( l\ZZA(A   PCRTB.MAC WC WO namr ASC 32,' LDA =D EXT PCALL @P1, @P2, @P3 ; CD OLLS MACRO ROUTINE CALL EXIT ` ( q` p Ҩ` p h !6A` "6 ( |p p h !6A` #6  A  A f     9   ` (    ` $[[GN 116h %6A     ( A ` $6Ah %6    8 ` (  (  A 9 ( & [΢ ]]A ( bA  P?P?%/ .   @E(C  & F /PCIF/PCIFGEN/PCPGF.DAT /PCIF/PCIFGEN/PCPGKK O66E.DAT RO   '(,@OPcK@@_U==X+{ ;]PCPLK 94200-1X008 REV.4010 <860903.1 860903.1158 PCPLK.MAC::PCGEN_CI =PAS.3 PAS.SE((GMENTRTN  @BBXZ{ ;]GENERATION_LINK 94200-1X008 REV.4010 <860903.1 860903.1158 PCPLK.MAC::PCGEN_CI BcGENERATION_LINK }}.CBT.DLD.DST.LBT.MBT.MVW.SBT FMPCLOSE FMPOPEN FMPPURGE FMPREAD FMPRUNPROGRAM FMPWRITEIMESS PAS.1 PAS.3 PAS.BLANKFILL PAS.ENTRY1PAS.EXIT1 PAS.NONCDSPAS.RANGEINTEGER}jLPC_ERROR_MESSAGE STRDSCEE0_$$`'(p(p&h56`66A =Ap8&8(((1)#E11=+A *)Ap'( ***: >(KFB1U GFFA?F(7A?FF`(a`Tp p  \=p8 8 (V(o`Up Ap  k=p8 8 (e`Opph6`6A AA < FF`PXA(( ? `Sp*` ((p` p` @6Ah6((h6`6ABp ` p hh766` @@6` A @YAH h6p A` @N  @YH` H` PR((`P ((F( h>SSA (OA  /PCIF/PCIFGEN/PCLCO.LOD WC WO RE, `Opph6A`6 TAA [ dtaFF`PX(h(v mAA v`Sp*{ `  ((p`ph6`6A`VpAp`] @܂@6`]@YHOOc''D]h6p`Є@N ]@YH`88(`P (Ĉ(* F(O,MMA(DAӨӡ/PCIF/PCIFGEN/PCLRT.LOD WC WO RE , `(`(`p`ph6`6(&pph6!JJA`6 +AA 2h ;=`(QD`6h6AP(U SUA Y=`Pp`Wpph6A`6h6`6ukPPh6A` 6h!`A ~p`A(`6h6Ah6`"6Ah!`A 8EEp`(A`6Ah6h6A`#6h6`$6Ah!``Qp`6h6AA 'KKAAAA p`(#`6h6A#h6`%6h!`A5`6h6AAFA KKIIAAAAVp`(q``6h6Alqh6A`&6 | AAph6`'6A  Ѓp(VuG\\A( AP?"PE(0FGHI(Hk +/PCIF/PCIFGEN/PCPGF.DAT /PCIF/PCIFGEN/PCPGE.DAT T`` RO MACRO RU,MACRO,PCCTB.MAC,1,/PCIF/PCIFGEN/PCCTB.REL RU,MACRO,PCRTB.MAC,1,/PCIF/PCIFGEN``/PCRTB.REL LINK RU,LINK,/PCIF/PCIFGEN/PCLCO.LOD RU,LINK,/PCIF/PCIFGEN/PCLRT.LOD PCCTB.MAC __VFF PCRTB.MAC ,+CR:'?Pu_@ ^/PCIF/PCIFGEN/PCCON.REL:::5:21:128 644 0 0 12400 5303664540 34620 /PCIF_GEN/PCIFGEN/PCCON.REL:::5:21:128 "&$ PPCCON REL +i_+i`+i` S#|FST @@X&q 1]PAS.GLOBALINFO94200-16031 REV.4010 <860805.1 860814.1048PCCON.MAC::PCCON_CI @@f&>>XRgq 1]PC_NEXT 94200-16031 REV.4010 <860805.1 860814.1048 PCCON.MAC::PCCON_CI > KPC_NEXT  55FPAS.1 PAS.3 PAS.ENTRY2PAS.EXIT2 PAS.NONCDSPAS.RANGEINTEGERPAS.RECVALPARM5--*`3a @7p`5a@fHx(, -ee;D DDApp(A`pd`d 4            e 'f @(yG9AAXqhq 1]PC_LOAD_TYP_LIST94200-16031 REV.4010 <860805.1 860814.1048PCCON.MAC::PCCON_CI AjmPC_LOAD_TYP_LIST}}" .DAD .DDE.DLD .DMP.DST .LBPR .LPX.LPXR PAS.1 PAS.3 PAS.BITEXTRACT2 PAS.CHECKPTR2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDSPAS.RANGEINTEGERPAS.SEGMENTLOAD PC_DESCRIPTOR_COPC_DESCR_DIR}G<< Ap>>? pB pOpC`CpCC?A`P(#( pD`DpD`BpBAj`Bvh A  x(r mbFTTn44A_m(A_mmdI(P@   nPCCCP @dT@EEM,20 ==Xq 1]PCCON 94200-16031 REV.4010 <860805.1 860814.1048 PCCON.MAC::PCCON_CI =''o.PAS.1 PAS.2 'PAS.3 PAS.STOP(PCCON '||x.DAD.DDE.DLD.DMP.DST.LPX.MBTACTIVATERMDEACTIVATERMEXECPAS.CHECKPTR2 PAS.INITIALIZEPAS.INITMEMINFO2PAS.NONCDS PAS.RANGEINTEGERPAS.SEGMENTLOAD PAS.TOPOFSTACK2 !PAS.TRACECLOSE|oo;WPC_DESCRIPTOR_COPC_DESCR_DIRPC_LOAD_TYP_LISTPC_NEXT PC_TASK_1 PC_TASK_11PC_TASK_2 PC_TASK_3 PC_TASK_4 PC_TASK_5 PC_TASK_7 PC_TASK_8 PC_TASK_9 PC_USER PURVM o`(BB-/p6h6A`6pw`wPw(WPx(jPy(pPz(vP{(|P|(P}(P~($P(*P(TP((p\A^`jPy(cc`jPy(i`(Y(jSSAm Ao(s  u(Ay A{(A`y h AAAr@ArAxllmA (Al{j`j(`ypj`ptpq`@q GLLh ArA@Au`y hD uAr`q @8q8t(Ar`y h AAArx`Pw((`0wp(`p  VVr`yA h AArA`(!A #(A' )(-`y h DrrxlGlAmNQ!AS(^l{j`j~~E_LL(c`ypj`ptpqA`@q (( h ArA@ Au`y  hD uAr`q  @8q8t(gAr`y h AAArx`Pw~bPP((`0wp(`pr`yA h AArA`($A(wjpw`wP((?AA!A@  KKZ33*+-ՀPCCT1 PCCT2 PCCT3 PCCT4 PCCCP PCCT5 PCCT7 PCCT8 PCCCP PCCT9 PCC11 error CO DCKw @}P(/PCIF/PCIFGEN/PCCLI.REL:::5:49:128 644 0 0 30400 5303664541 35103 /PCIF_GEN/PCIFGEN/PCCLI.REL:::5:49:128 "&$1 h1PCCLI REL +ia+ia+ia1_7FST ==Xq 3 ]PCCLI 94200-16032 REV.4010 <860808.1 860814.1050 PCCLI.MAC::PCCON_CI =@4>>XK q 3]PC_LISTING94200-16032 REV.4010 <860808.1 860814.1050PCCLI.MAC::PCCON_CI > PC_LISTING}}.CBT.DAD.DDE.DDI.DIN.DIV.DLD.DMP.DNG.DST.LBT.LPX.LPXR .MBT.SBTFMPCLOSEFMPOPEN FMPWRITE FTIME PAS.1 PAS.3 PAS.BITDEPOSIT2 PAS.BITEXTRACT2 PAS.BITMASK1}0tPAS.BLANKFILL PAS.CHECKPTR2 PAS.DOUBLEMOD !PAS.ENTRY2"PAS.EXIT2 PAS.NONCDS#PAS.RANGEDOUBLE $PAS.RANGEINTEGER%PAS.RECVALPARM&PAS.RECVARPARM'PAS.SINGLEMOD PC_ERROR_MESSAGE SHOWINDOW STRDSC WAITEVENT gHH`v$ @ ,H@(<` pwpuJ@AA x`u$ A@ pz) xz  $ h6pz` @u$ @ H`z8u8w((g` pwpuJ@AA xNNTH**`u$ A@ pzU xz  $ h6pz` @u$ @ H`z8u8w(@m 'n@ ( {qN``I}22A!n|%{pv(A"n||T@` pph6`$ D@ H$ h6p` @$ @ H`88((`ggzk::A!(A" @` pJp@A A`$ @ pA  $ h6p` @$ @ H`88(( gLLA!(A"@` pAp|`|$ @ p  8|8(h}A ~A~(&AD~~` p{A@{p{ 0~ A#  x|h6`|A$ @ AH$ p`{$UUE33 @ pAQ  AA~ A~`{P (_~ ((`}(s@{p{`{$ A@ ps   (wU{MMA!t%p}&("t0123456789 h6A`6   @ A 'n@ h6A`6  x  @ ` ppÀh6`$ CC@ HA$ h6p` @A$ @ HH`8ÈA8( 'n@ h6`6A  x @ ` pՈ` ph6`$ ܈@ H` 88(` pp~~5EE`$ ވA@ p$   $ ހh6p` @$ ވ@ H`88(: ` p` phA6`$ @ HA$ h6p` @A$ @ HH`8ÈA8(>_ '~b\GGn@ h6`6 ` pAp AA׈A`@ $ @ p~ A $ h6pրA`$ @ H`H88(j` ppÀh6`$ @ HD$ h6p==~1A`@ $ @ H`H88(A 'nA@  'nU (=_BBA!(A"٨٪@UĀ p` ppp p pnh {6` |6 (((` Ap (Q     A  A 'n   `n(`nP (` U<<p `n(!(Q'  n` }6h ~6A  4hpqA 9g q` P (QAB n` }6Ah ~6 p  Qhpq`nP (U(h Z XAAA  Ac 'n   `n(h` p J@.A ` p ` ( ` ( `q(   n` }6h ~6A  hpqp  h 6` 6@! HHA  A x  @  'n@   x   @ A 'n@ ` p ` p ` $ P@ yp  h 6A` 6 A` $ Rh gHH ! #  % A x  @A ` $ S@ y((A  'n@ 8 8 ( h 6` 6A  A 'x " @ $* 'n@)<< ` p Ap ` $ )h@ z 8 8 (.`(G`(G`(G`(G`(Ip #p ` (O(pC`CpC`(X(p p ` Jp @A| ~~{eCC`C$ -|h D /  +x | ` A$ 1|h AA 3 A P ((p ` (` P((\`CP(` (Q` (p $`((~== pC`CpCJ@A `C$ -hD  /  5xT`T! (̨`T (p %`CP((` ((pC`CpCA `C$ 1kDDh D 3  7xT`T! (`T (p &`CP((؀h 6` 6A ` # $ % &(  9x   @ A 'n@ (h ;x +  )HHA@ 1 'n@ ` p p ` $ )@ z(eh 6` 6A ` A$ )h AA # AA = A x _ A@ e 'n@ 8 8 (5n 'nU t 'lJqDDnU ` p `(z(HpC`C pC`((p p ` p  `CA$ -h AA / A +x J@A ` $ 1hD  3 KDD P ((` p ` P((` @  @ p ` @ p ` A@ (܈` p ` p A `C$ -h A /AA  +x  h 6 LLA` 6  ?x   @ A  'n@ A Ax A  @ p p ` p `C$ -hD  /  x ` A$ Ch AA E WjEGGJ@A P J(O(@A `C$ -h D /  Gx  ` A$ Ch AA E A GP ((p ` PB(` ( ` (` p =IIp ` $ IhD   ` A$ Ch AA E AA + $ h 6p ` @ $ @ H` 8 8 ((ƁA 'n@ ` p p h 6` 6@GMM ` $ )hD  #  K A x  @ ` @ $ MhD   `CA$ -h AA / A x  ` P (` (+` P (#"HH(.` A@ (.-(0A06 'n@ 8 8 ( A `C$ - h A /AA  5AxT A Ox [ @ |^ JA Qx Ai  @ |jLLl h 6A` 6  Sx ~  @ ` p `((8p p ` p  `CA$ -h AA / A +x J@A ` $ 1hD  3 GG P ((. ` A$ 1h AA 3 A +x  ` p ` (h 6` $ @ H` p ` A@ (` p h 6` A$ $@ @H` wAA(  'n@ h 6` 6 p ` p p ` p h A6` $ 3@ HA$ 3h 6p ` $ 3@ H` 8 8 ረ(` P(2(8 'n@ > 'nU 7u>CCAD 'nU `CP(H(|` (L( pC`CpCA@Cp 'Y  U(`` p J`@AR `C$ 1Rh D 3  +x {  h 6` 6 LL Vx  (( @ A 'n@ A Ax A  @ p p ` p `C$ 1`hD  3 ` x ` A$ C`h AA E J@`|GGA P J(( @A` `C$ 1`h D 3  Gx ` ` A$ C`h AA E A GP ( ( p ` PO( ` (` ( H` p @p ` $ LL IehD  e ` A$ Ceh AA E AA + $ eh 6p ` @ $ e@ H` 8 8 ( ( JA J P 'n@ h 6` 6A  Xx  b c9 `KKJ@ @An `C$ 1nh D 3  x  }  ` (  (   'n@  Zx  J@ @Ay `C$ 1yh D 3  \ HHx  J @Az `C$ 1zh D 3  7xT`T" (  ψ(   'n@  ^x   @ J@A `C$ 1hD  } GG 3  `x  ` ( ` p p h 6` $ D@ H$ h 6p ` @ $ @ H` 8 8 ᄤ(  `CA$ 1h AA 3 A bP ( ;P ( e :JJ( ` p p  d  ` A$ @ p  R  A$ h 6p ` @ A$ @ HH` 8 8 ( ?( ` p p  f A ` $ @ p  | A $ h 6p ` @ B HHA$ @ HH` 8 8 ( i( ( ` p p AA  A ` $ @ p A  $ h 6p ` @ $ @ H` 8 8 (  'n@ h 6` 6A  KAA  hR IIx   @ J@A `C$ 1hD  3  5x  ` (  (   'n@ h 6` 6 A jx A   @   'n@ 4 HHJ@A `C$ 1hD  3  lxT`TP ( 0( Hh 6` 6A  A nx  B @  H 'n@ ` p p ` A@ $ @ ,HH @~~ ]LL( h 6` 6 ` $ ph D #  r  x A  @  'n@ 8 8 ( LJ@A `C$ 1hD  3  7xT tx  ~~~GR AA@ |  J vx   @ |  'nU  'nU `CP( (N`n( ` p A 'l` (  n` }6h ~6 (   x~55n n` }6Ah ~6 ` ( A hpq(  5c __A! (A"  P  -1((?6KL+g@  {od GUUWL( /CD "}  @U TWO WC   $&( ),/8:>BDP@M; /PCIF/PCIFGEN/PCCT1.REL:::5:27:128 644 0 0 15400 5303664543 35007 /PCIF_GEN/PCIFGEN/PCCT1.REL:::5:27:128 "&$ PCCT1 REL +ib+ic+ic J#FST ==X{ ]PCCT1 94200-16033 REV.4010 <860903.1 860903.1206 PCCT1.MAC::PCCON_CI =PAS.3 PAS.SEGMENTRTN  @Sr??X>{  ]PC_TASK_1 94200-16033 REV.4010 <860903.1 860903.1206 PCCT1.MAC::PCCON_CI ?T{DPC_TASK_1 G}}L.CBT.DAD.DDE.DIV.DLD.DMP.DST.LBT.LPX.MBT.SBTACTIVATEFORM DEACTIVATEFORMFMPCLOSEFMPOPEN FMPREAD GETSTRING INITFIELDSPAS.1 PAS.3 PAS.BITDEPOSIT2 PAS.CHECKPTR2 }kk' PAS.ENTRY2!PAS.EXIT2 "PAS.INLINEERROR #PAS.NEW2PAS.NONCDS$PAS.RANGEINTEGERPC_ERROR_MESSAGE SHOWALTERNATE SHOWFIELDSSHOWFORM SHOWHELPSHOWINDOW STRDSCWAITEVENT k77 h)6`*6AMh+6`,6AMyqAq(% 7~~]!TTA  (A!  y-M/PCIF/RUNTIME/PCC01.FRM /PCIF/RUNTIME/PCC01.HLP Arimqvm~[[ݰu,,q`(h6`6ANn`6h6OA`pphpqh6`6AN(,[&::A (mA!̨̪p=mqh6`6P`puA usq pC`C pCh6`CA$Q@AH$Sh6p`C$l==U@H``CPو((h6A`6M(p( QMAA &QW/nQ`n(7`nP(7`p=`n(;(@`nP(@`Ҫp=`nP(D(l1D:: ApL@ph6A$Sh6h6A $Sh6 H`P(j`P(j`Ҩ p=(lpApl`=( xjqA~=n..*~`6h6AO`ڤpphpq(N.:i@@A (A!ߨߡ}@FILNAM RO pn`J(p<`A( QM AQWAnQ`nP((ppC`C << ApC(@ph6A$Sh6h6A $Sh6 JA`C$X@h`CP(H( p@` (N(pC`CpCp`pA^OQ\JJ@phA6$Sh6h6 A$ShH6 `A$Zh AJ@AƤ`C$\h D^``P((` pÀ` PHH(`pÈ`@p`P((U`A@(UA`C$\h A^AA`p`@A@J(@AĤ`C$\h D^`!@@x@`CP((PpN`(( pC`CpCp`p @pDh6$S h6Hh6 D$S h6 `$bh D&.HHA`C$dh AfAAĈ``Pψ(D(X` ALjp` P(U`p`È@p`PÈ(\(`ΆA@J(@AĤ`C$dh Dfv??`p`NA@(`CA$dh AAfA`xN`CP((Al`(p@pN pC`CpC`C$X*@ M `CP((`p( ˕99A (A!ȨȪ@RO  ف p ApP䪪gJq`JP(P(P(P(( nq(0(0`PP̈ ((p(`p=55X=n`6h6AO`ڤpphpq(0(0`Ѥp=!X=n`6h6O`ppA0hpq`JpP`J(8`=II687(?`(?`qP(?(ߠ`(ED(G`p>A#(A##0FNAMR Ap=:mq`J(h6`6 Apu Nusqh6D$ph6`6 Apu fub::sqDh6$ph6`6  puA ~usqDh6$p`숈P3(`P:(`-p=h6`6A jq`=(f88`P3(`눊P:(`-p=h6`6A jq`=(`ꈈP3(`P:(`-p=h6`6A Ǫjq`눈P:((`ꈈP:((`숊P:((`=7==(`.p=h6`6A jqh6`6A jqh6`6A jq`P:((!`P:((!`=(!`.p=h6`6 @99jqh6`6A !jq`P:(%(F`P:()(F`=(F`.p=h6`6 A:jqh6`6 AFjq`P:(J(k~~ݔJ;;`P:(N(k`=(k`.p=h6`6 A_jqh6`6 Akjq`P3(o(`P3(s(`P3(w(`=( p=h6A`6 ~88jqh6`6A jqh6`6A jq`=( h6A`6 `7pu usq pC`CpCh6`CŵCC"@hD @L<P$(K`CP(K(,(NL?? JpC@AL`C >h D@L<P$(g(j`(y`Up=h6`6A6xjq(`Cp#`((pI`IpI`IP(EEAL`I DhD FLBP$((L`IA Dh AAFLABP$((`Vp=A8H6jq`=((`&P_(((`~~|BB ((pC`CpCAL`C >h A@AAL<P$(`CP((` (p((L`CA >h AA@LA<P$(&~ssO33p`P\((%`Yp=h6`6A6%jq(( p`=(@1N=n`6h67`^ppA@hpq({2vDswUUAAv(2AAvvNADDMOD FDELET HWYNUM FDELET ADDMOD FDELET ADDMOD ADDMOD FDELET HWYNUM HWYNUM HWYNUM HWYNUMHWYNUM `J(L`%PX~~??((L`$pA`(' p<`p `pKpC`CpC`CA Ih AJZ@A\`K >h D@\Z`CP`((Z~~~{  ??`K >h D@Z<`A`@A@A(&`Ap@(L `Mp<pC`CpC`CJP(J@AZ`C >h D@Z<PA(J(+~%% J `CpK`JPL(P(R`Op<(c^V%~~C_88AS^(AS^^ik ppPA tgJq`JPK(PL(PM(PP(PR(PS(( nq((Ǩ`PPS(( p(`Mp=~~~155=n`$6h%67`^ppAhpq((v(`Tp==n`$6h%67A`^ppǪhpq`JpP`J(~WWk $$`JPL((Ӡ`=(`(`qPL((o`(^(A`Np< 媈q`qPL(鈨(`Np<( ,WG)AAA(gA(`%P_(,(`Sh AA@'A<P@ (J(pD p@`DpDZ'`DA >Zh}}]@@D @'<p`@A@(`DJPC(@A['`D >[h D@'<x@`DP((N`CA@ (`CpC pD`D}%JJApD`D Ifh A'J@fA)`C >fhD @)'x+`DA Ifh AJ'@Af) A@C >fh A@AA)'`+`DP`((nn99`C >hh D'h'x+@C >hh D'h'`+`CP((@p`J(`%P_(&(1 ,nMMM#-66A,(&A,,?PP@   )23@JPXM@/PCIF/PCIFGEN/PCCT4.REL:::5:18:128 644 0 0 11000 5303664547 35067 /PCIF_GEN/PCIFGEN/PCCT4.REL:::5:18:128 "&$ PCCT4 REL +ig+ig+igFST ==X{ ]PCCT4 94200-16036 REV.4010 <860903.1 860903.1209 PCCT4.MAC::PCCON_CI =PAS.3 PAS.SEGMENTRTN  @^}??XG2_{ ]PC_TASK_4 94200-16036 REV.4010 <860903.1 860903.1209 PCCT4.MAC::PCCON_CI ?W0PC_TASK_4 {{.DAD.DDE.DLD.DMP.DST.LBT.LPX.MBT.MPY.SBTACTIVATEFORM DEACTIVATEFORMGETSTRING INITFIELDSPAS.1 PAS.3 PAS.BLANKFILL PAS.CHECKPTR2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDS{OO PAS.RANGEINTEGERPC_ERROR_MESSAGEPC_LISTINGPUTSTRING SHOWALTERNATE SHOWFIELDSSHOWFORM SHOWHELPSHOWINDOW WAITEVENT O FF`Xpu@/ pC`CpC`u(Dpiph`h9Oh DjOAl`C;Oh A=AAl?AjAOhy6Apn`hCO@^H`nH8h8i(`/BBFA@C9QQ@xpiV9iEFA\̪uq`CP.(`((t odB,pPPAao(AaoowFTYP01FTYP02FTYP03FTYP04FTYP05FTYP06FTYP07FTYP08FTYP09FTYP10FTYP11FTYP12FTYP13FTYP14FTYP15h6`6Gh6A`6Gynq`B((o8 q(~~TTA(Ą̡y/PCIF/RUNTIME/PCC04.FRM /PCIF/RUNTIME/PCC04.HLP A imq "m~DD!q`B(:A+BDn`s6Aht6D`[pp:hpq(o,j>D=k;;A;j(A;jjAB y mqp= pup pC`CApC`C9Q@6p9EFAusqHh76PZ(`(`Sp=(~~99`CppHh76P\(`Rp=(`Cp-`=(jq`=PS((`A9QA@6p9EFjq`/@.PC(ۈ(`(~FF2!p=`=(A=n`86Ah96D`[pphpq(21-F.RRA-(uA--7FSEL01FSEL02FSEL03FSEL04FSEL05FSEL06FSEL07FSEL08FSEL09FSEL10FSEL11FSEL12FSEL13FSEL14FSEL15@/@-ApC`C;h A=AJ@AֈxII`KHh DJ`؄`CA;h AA=ALxJ@A`KHhD JL``J (p<`J: PO((`Pp<(~~h77A(gA٨فj ppP`PppA gJq`B(`JPU(`TpJ`JPN(8PO(8PP(5PQ(rPR(;PS( PT(PU(( n~[Z88q(j(`PPU((p(4A`Pp=%=n`6h6AD`[pp4hpq(A7(-:(`/@Xp`BA@(V`B@]p/~~$I@@`/A(Sp/`Bp.(f`/@Wp/`/@Wp.`BA@.(f`Bp. kqomA qq(`/@]A(p/`Xp.`BA@X(`Bp.~77(`/@]p/`/@Wp. qAo q(`Vp=᪨=n`6h6D`[ppAhpq`JpP`J(`JPO((`=(`CC(`qPO((`((ΊA`Qp< Ѫq`qPO(Ո(`Qp<(. C@@$ A (A  p/`BA@Y(!`Bp.(#`Xp. %(50)@CC1..A&0(A&00dP?@  PXC@Ê((/PCIF/PCIFGEN/PCCT5.REL:::5:33:128 644 0 0 20400 5303664551 34331 /PCIF_GEN/PCIFGEN/PCCT5.REL:::5:33:128 "&$! !PCCT5 REL +ih+ii+ii!!(0FST ==X{ ]PCCT5 94200-16037 REV.4010 <860903.1 860903.1209 PCCT5.MAC::PCCON_CI =PAS.3 PAS.SEGMENTRTN  @bt??XO?|{ ]PC_TASK_5 94200-16037 REV.4010 <860903.1 860903.1209 PCCT5.MAC::PCCON_CI ?[+%PC_TASK_5 zz .DAD.DDE.DLD.DMP.DST.LBT.LPX.MBT.SBTACTIVATEFORM DEACTIVATEFORMGETINTEGERGETSTRING INITFIELDSPAS.1 PAS.3 PAS.BITEXTRACT2 PAS.BLANKFILL PAS.CHECKPTR2 PAS.ENTRY2zdd \ PAS.EXIT2 PAS.NONCDS!PAS.RANGEINTEGERPC_ERROR_MESSAGEPC_LISTINGPUTINTEGERPUTSTRING SHOWALTERNATE SHOWFIELDSSHOWFORM SHOWHELPSHOWINDOW WAITEVENT d?@@`Pb((h6`6A.h6`6.(!h6`6.h6A`6.'ynqh6`6/`(4`tp=(6A`up=<=n`6h6M@??A0 pC`CpCh6`C@fA!1Y@{AH!3Yh6pʤ`C!1Y@{H``CPv(d(EA`wpuluqh6`6A/h6`6A015KK 0`lpuA̪uqh6A`6/ `ApooqAq(-K@WWA(A ˨ˡy!AaeUi/PCIF/RUNTIME/PCC05.FRM /PCIF/RUNTIME/PCC05.HLP /PCIj#VVF/RUNTIME/PCCB5.FRM /PCIF/RUNTIME/PCCB5.HLP NEWUPD TYPNAM HWYNAUM  rimq` (pC`C-y??ApC`C!6|h A8AJy@A|yxt`CP(`tP>((w`CPK(w`tP>((`CPK(Ay`C!6h A8AAy:xx(LL`spx`hpupwpv(y`KA!6h AA8yA:xxJ@Ay`K!6hD 8y<xwAy`K!6h A8AAy>!FFJxv@Ay`K!6h D8y@xuh6`6/A)xqh6`6/A5wq`Pc(9(Eh6`6/AEvqh6`6QQJ''/`uPhA(P(XW1B10(`h6A`u@r!3 puAh̪Auq lmq( {pQ|HHAm{(mA m{{FPRIOR FLU1 FLU2 FPOR T p=A mqh6`6A/qh6`6A/q`Pc((ɀh6`6A/?==q(ph6`6 /puAusq`(`xA@(`mp=h6`6/Ajq((`yA@(`(<<`jp=h6A`6/jq`yA@(`((`jp=h6`6A/(jq`P(,(Q`(0(Q`Pc(4(Q`=(Q`pp=h6`6d=99A/Ejqh6`6A/QjqHh6Pn(W(Z`hp(pC`C pC`CPh(kh6hCHq@P(k(\`CPh(o(h6JhCHq@Pqqv33(`=(`op=h6A`6/jq(@Cp`=(=n`6h60`wppAhpq(,q~~TTA(A Ԩԡ FPRIOR FLU1 FLU2 FPORT FPRIOR FLU2 FLU1 FLU2 FLU1 FPORJT @A`K!6h D8C~)LLxT`KA!6h AA8A:(`KA!6h AA8A<(`KA!6h AA8A>(v`Pb(vvv4uAA(`KA!6h AA8A@A@h(`T0cpT(`TzpT`KA!6h AA8AC`T(vGGA(A  pCpp`CpC`CA!6h AA8A<P(`CA!6h AA8A>P((`((`C@CCPK(pJ@A`C!6hD 8<P(8J@A`C!6hD 8>P(8(A`(<(A`CPK(Ap`CP(E(`F<<(Th6A`6/Tjq`(ch6`6/Acjq`0(mEn`6h60`wppA|hApq gq`JKKU##P((pp=(AFn`6Ah60hpq(p(1KΆKKA(A ըաFLU1 FLU2  `J( Jp<@AJk`K!6Jh D8k:`Kk`KA!6Kh AA8kA<`J@uu!GGLk`KA!6Lh AA8kA>`J@MAk`K!6MhD 8k@`NAk`K!6Nh A8AAkG`(rmgu}}Zn88Adm(A dmmx{z ppPAp gJq`JPa(Pc(Pe(Pg(Ph(( nq({(ۨ`PPh(( p(`cp=}~~866=n`96h:60`wppAhpq((`=((`kp=A=n`96Ah:60`wpphpq`J~aa))pP`J(栈`=(`(`(`qPb((~`(m(`dp< q`qPb((`dp<(5,0a6%1LLA0(vA 00J@A `K!6h D8 IAxR`K!6h A8AJ @A Jx>@A `K!6h D8 K~~}@@xMpC`C pC`g@CA!M@ZPR(`CP(( pD`DpDJ@A `h@CA!Oh AAQ A `D!1@{p"AS "33!3h\6~BBAp"`D!T@{H`"J`DPl(ʊA(`K!6h A J@A ``p0 pC`CpC`i@C!VhD  #`KA!6h 00vA8AA# `C!X@[`CPy(((*%0{{&VVA%(;A %%?PP@ ,KI(g01234567  +-/0245JPc{@K#i/PCIF/PCIFGEN/PCCT7.REL:::5:25:128 644 0 0 14400 5303664553 34452 /PCIF_GEN/PCIFGEN/PCCT7.REL:::5:25:128 "&$ $PCCT7 REL +ij+ik+ik :!TFST ==X.{ 5]PCCT7 94200-16038 REV.4010 <860903.1 860903.1210 PCCT7.MAC::PCCON_CI =PAS.3 PAS.SEGMENTRTN  @hև??XR{ 6]PC_TASK_7 94200-16038 REV.4010 <860903.1 860903.1210 PCCT7.MAC::PCCON_CI ?ZPC_TASK_7 !.DAD.DDE.DLD.DMP.DST.LBT.LPX.MBT.SBTACTIVATEFORM DEACTIVATEFORMGETINTEGERGETSTRING (( INITFIELDSPAS.1 PAS.3 PAS.CHECKPTR2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDSPAS.RANGEINTEGERLL PC_ERROR_MESSAGEPC_LISTINGPUTINTEGERPUTSTRING SHOWALTERNATE SHOWFIELDSSHOWFORM SHOWHELPSHOWINDOW WAITEVENT Lu==h6`6Ah6`6Aynqh6`6A `(!`p=(#`p=)d=n`6h6 pC`C pCh6`C@B@OO=$$AHBh6p`CB@H``CP(Q(2A`puYuqA\q(-`OWWA](A]yd/PCIF/RUNTIME/PCC07.FRM /PCIF/RUNTIME/PCC07.HLP NEWUPD A iqq55mq`NA@(h&6A`'6 `NpoAoqh&6`(6h)6` ApuuqA mq("q@@A(A*.PCNUM ADDMOD Ap= 8mqh36A`46puIusqh5A6jph36A`66puauA^<<sqh5A6pph36A`76tq`P(x(`P(|(`p=h36`86Ajqh36`96Ajq`P((~~::`P((`J(`= (p=h36`:6Ajqh36`;6Ajq`=(`P(`P(`p=h36`<6Aժj~+`;;q`=(숈`P(`P(`p=h36`=6Ajq`=(`(`J(p=h36`>6Ajq`=(`A@(`==(`p=h36`?6Ajq`=({`P(&({`(*(L pC`CpCJ@A`ChD P(K`CP(K(,(NL== JpC@A`Ch DP(g(j`(y`p=h36`@6Axjq({`Cp`=(`P((` ((pC`CCJBB JpC@A`CÀh DP(`CP((`(p(J@A`ChD P( p`P((ff*?..`p=h36A`A6jq(p`=(A=n`B6AhC6`pphpq(/2*f+TTA*(2A**DHLPTX\`dhlptADDMOD FDELET PCNUM FDELET ADDMOD FDELET ADDMOD ADDMOD FDELET PCNUM PCNUM PCNUM PCNUM  `J(`P((@@`pL`(p<` p`pK pC`CApC`Ch A J@A `KhD   `CP((A `K>>h AAA ƨ`L`NA @L(`LpN(`p< pC`CpC`CP(A `Ch AAA ƊPL((ܪ`CpKL[ `JP((`p<(~~S88A(xA ppPA %gJq`JP(^P(^P([P(3P(9P(<(a 8nq(x;(x`PP(@(C p(Z`Фp=K~~~H55=n`6h6`ppAZhpq(x](x*`(x`p=i=n`6h6A`ppxhpq`JpP`J(~WWc]}$$`JP((`=(`(`qPψ(( `((A`p< q`qP((`p<(,W<AAA(Ąو`P((`Dpk;;A;j(A;jj Bp=A {mq pup pC`CApC`C9Q@6p9EFAusqHh76PZ(`(`Sp=(~~99`CppHh76P\(`Rp=(`Cp-`=(jq`=PS((`A9QA@6p9EFjq`/@.PC(ۈ(`(~FF2!p=`=(A=n`86Ah96D`[pphpq(21-F.RRA-(uA--7FSEL01FSEL02FSEL03FSEL04FSEL05FSEL06FSEL07FSEL08FSEL09FSEL10FSEL11FSEL12FSEL13FSEL14FSEL15@/@-ApC`C;h A=AJ@AֈxII`KHh DJ`؄`CA;h AA=ALxJ@A`KHhD JL``J (p<`J: PO((`Pp<(~~u77A(gA٨فj ppP`PppA gJq`O(`JPU(`TpJ`JPN(8PO(8PP(5PQ(rPR(;PS( PT(PU(( n~[t88q(j(`PPU((p(4A`Pp=%=n`6h6AD`[pp4hpq(A7(-:(`/@Xp((`OA@(V`O@]p/~~eI@@`/A(Sp/`Op.(f`/@Wp/`/@Wp.`OA@.(f`Op. kqomA qq(`/@]A(p/`Xp.`OA@X(`Op.~77(`/@]p/`/@Wp. qAo q(`Vp=᪨=n`6h6D`[ppAhpq`JpP`J(`JPO((`=(`CC(`qPO((`((ΊA`Qp< Ѫq`qPO(Ո(`Qp<(. C@@$ A (A  p/`OA@Y(!`Op.(#`Xp. %(50)@CC1..A&0(A&00dP?   PXC@WvF/PCIF/PCIFGEN/PCCT9.REL:::5:48:128 644 0 0 30000 5303664556 35235 /PCIF_GEN/PCIFGEN/PCCT9.REL:::5:48:128 "&$0 T0PCCT9 REL +im+in+in0:FST ==X{ ]PCCT9 94200-16040 REV.4010 <860903.1 860903.1211 PCCT9.MAC::PCCON_CI =PAS.3 PAS.SEGMENTRTN  @fx??XW> w{ ]PC_TASK_9 94200-16040 REV.4010 <860903.1 860903.1211 PCCT9.MAC::PCCON_CI ?c PC_TASK_9 $~~^.DAD.DCO.DDE.DIV.DLD.DMP.DST.LBPR .LBT.LPX.MBT.MPY.MVW .SBTACTIVATEFORM DEACTIVATEFORM GETINTEGER GETSTRING INITFIELDSPAS.1 PAS.3 !PAS.BITEXTRACT2 "PAS.BITMASK1~~~#PAS.BLANKFILL $PAS.CHECKPTR2 %PAS.ENTRY2&PAS.EXIT2 PAS.NONCDS'PAS.RANGEINTEGER(PAS.RECVALPARM)PAS.RECVARPARM*PAS.SINGLEMOD PC_ERROR_MESSAGEPC_LISTINGPUTINTEGERPUTSTRING SHOWALTERNATE SHOWFIELDS~ZvSHOWFORM SHOWHELPSHOWINDOW WAITEVENT L9AAApA` Q pD`DpDh) A6`D' P@ vHAP b(A(Ih) A6`D' T@ vHP c(:h)6`D' TH@ vHP d(:(Ih)6`D' W@ v;A@@HP d(F(Hp( pCpޠ`CpCh* A6`C' _@ vH p h)6`DA' _@ vHP (f(hp`(o`CP W(o(M`( hC  )EE A AA (((`߈AP O(A (((P((@ W@CA@ vp ` (` P(A`DP o(( AP Q( @))mAp ` (A(%:)HHA%(Ah) ) A)(A& I` P O(/(>h6A`6 h6`6 (Lh6`6 h6`6A Rynqh6`6 `(_` i~~ ]99p=(a` jp=Ag=n`6Ah6 pC`C pCh6A`C@ T' @ vHA' h6p`C' @ vH` `CP n((p` opuA̠u~[[Q++qh6`6 A#   ` Zpuuqh6`6A Lqq(0[[XXA%(+A&y%Ee/PCIF/RUNTIME/PCC09.FRM /PCIF/RUNTIME/PCC09.HLP /PCIF/RU IVVNTIME/PCCB9.FRM /PCIF/RUNTIME/PCCB9.HLP NEWUPD TYPNAM PCNUM Aimq`(.pp pC??`CpC`CA' h AA J@$Ax`CP(`P>((`CPK(`P>((%`CPK(%$`CA' h AA A ]JJx$`CA' h AA A xJ@$A`C' hD   x$A`C' h A AA xT(-` `p` P(KKp` hpJpT(@A$`K' ހh D  !x$`KA' h AA A #xJ@$A`K' hD   xcsJJJ@$A`K' hD   x$A`K' h A AA JxT@A$`K' h D  xpupC`CkEE pC`C' % @6Ah6  `C@ [A' '@ v ,HH@"(#  )  (#  * A uq`CP S((h6`6A iDDqh6`6A q` 툈P P((h6`6 h6A`6 ` Tpu$A`K' h A AA +xT`T" O(`(Hh6}}*F@@` d ` UpC @CpC`A(Y*U  - pD(`*^  . pDh6`D' D@ vH' h6Ap`C' @ vH`H `  Wp`CP P((JA}HHZy##uqh6A`6 qh6A`6 Aqmq( HGOHHA%(A& TU IFPRIOR HWYNUM FPCADD FTO FTOUNI p=mqh%6`&6 A  qh%6`'6 A  q` P P(77(Fh%6`(6 A` Tpu usq` sp` Uph)6`' ,@ vH` b 88(&*,`P O(*(,` lp=`P P(0(2` ap=`=(:55>>A:jq`(?p `P Q(C(Ep 쀀(Jp p h%6`.6 A V qh%6`/6 A b qpu pC`CpC`C' %E @#6y[s==Ah%6  usqh)6A' Hh06p`C' %H@ vH` `CP S((f`=(` (` qA@ (` ]p=h%6A`16 jà==q`=(Ƞ`(` (` \p=h%6`26A jq`=(`  (pC`CpC`CJP(@A$\`C' 1\h D 3 /P (BB((`CPJ((@A$``C' 1`h D 3 /P (` \p=h%6`36A jq`=(Xpp`p`C' 1phD Y/>>$p` m@' 5p@$@(?(Ap`P(G`( `(X` `p=h%6`46 AXjq`=(` P O(_(ppꀄ`p$`emDDA' h AA A !P J((@A$`' h D  /PM(pꊈ`P(`(c`(` kp=h%6`56A jq`=DD(` P P((`(` ( ppC`CpC$A`C' h A AA #P ((`CPK($A`C' h A AA !::P ((` (p`CP(`(`(` _p=h%6`66A jq`=()` ()` ^p=h%6`76A )jq`=(L` (L/::` (5p=(=` P O(=` P P(=` ep=`=(Lh%6`86 ALjq`=( pC`C pCh06`CA' %@ vHP p(h06`C' %@ vHHP bi??(` Rp=`CA' % @#6h%6A jq`CP S((Q`= (pC`CpCh0 A6`C' %@ vHP p(($ 7`CA' @ vp!== 9  P g((Ɗ` fp=`C' % @#6Ah%6 jq`CP S((`=(=n`96h:6 ` oppAhpq(4  ~~nUUA%(A& ;?C GK OSW[_cgkFPRIOR HWYNUM FPCADD FTO FTOUNI FPRIOR HWYNUM HWYNUM HWYNUM HWYNUM FPCADD FTO FTOUNI @~~~ppLL$A -`K' h A AA(( - +JxT@A$ -`K' h D  - !J( @A$ -`K' h D  - J(@A$ -~KK`K' h D  - J( @A$ -`K' h D  - ( `T" O(` 툄P O(( $A -`K' h A AA - ( GGW ##`T0 PpT( `T tpT$A -`K' h A AA - +`T( 4 / )G 0LLA% & /(oA& & / /`J( =p<$ D`KA' h AA  DA !` J@$A D`K' hD   D #` $A D`K' h A ~~ |HHAA D +xT` ' :`TB  u0 BpTJ@$A D`K' hD   D +`T$A D`K' h A AA D J` @A$ D`K' ~~~ HHh D  D ` $ D`KA' h AA  DA ` J@$A D`K' hD   D `pTpC`C pCh O6`C' %~ee 55H@ vHP b( ( !`C@ [' '@ v ,H P@"$ D`KA' h AA  DA `T`CP S( <( ( K F @e~~l G88A% = F( 8A& = F F T S  Up ApP ^gJq`JP N( P P( P S( jP U( pP V( s(   onq(  r( `PP V( w( z p( ` Pp= ~~~(^ 55=n` 6h 6 ` oppA hpq(  (  ( ` Yp= =n` 6h 6 A` opp hpq`JpP`J( ~QQ( ""`=( `( `qP O( ( Y`(  F  / ( ` Qp@@$J}Q Q@@A `K' Jh A AA  / xMpC`CpC` U@C' 5M@ FPR( u`CP( u( e pD`DpD$T ` V@C' <Th D >  `D FFA' T@ vp ! 9 A' Th H6p `D' @T@ vH`  `DP Z( ( w`p   pC`CpC` X@C' B`h D $`A `K' `h A A ))A A `C' D`@ G`CP r( ( (   )J ZZA% ( A&  P (?  X @I(  g0123456789// W  +-./1245?AGJPXc/@4a/PCIF/PCIFGEN/PCC11.REL:::5:38:128 644 0 0 23000 5303664557 35074 /PCIF_GEN/PCIFGEN/PCC11.REL:::5:38:128 "&$& &PCC11 REL +in+io+io&/FST ==X{ ]PCC11 94200-16041 REV.4010 <860903.1 860903.1212 PCC11.MAC::PCCON_CI =PAS.3 PAS.SEGMENTRTN  @Xow->>X%\ { ]PC_TASK_1194200-16041 REV.4010 <860903.1 860903.1212PCC11.MAC::PCCON_CI >Y: zPC_TASK_11}}nj.CBT.DAD.DDE.DIV.DLD .DMP.DST!.LBT".LPX#.MBT.MPY$.SBTACTIVATEFORMDEACTIVATEFORM FMPCLOSE FMPOPEN FMPREAD FMPREWIND FMPWRITEGETINTEGERGETSTRING INITFIELDSPAS.1 }}}WPAS.3 %PAS.BLANKFILL &PAS.CHECKPTR2 'PAS.ENTRY2(PAS.EXIT2 PAS.NONCDS)PAS.RANGEINTEGER*PAS.SINGLEMOD PC_ERROR_MESSAGEPC_LISTINGPUTINTEGERPUTSTRING SHOWALTERNATE SHOWFIELDSSHOWFORMSHOWHELP}SHOWINDOW STRDSCWAITEVENT ==h6`6A# h6`6#A ynqh6`6A # `(!` p=(#` p=)g=n`6h6# pC`C pCh6`C@ ) @ OO$=$$AH!) h6p`C) @ H`$`CP (Q(2A` puYuqA\q(0`OWWA'](A(]yg/PCIF/RUNTIME/PCC11.FRM /PCIF/RUNTIME/PCC11.HLP NEWUPD Ai Z;;mq`(`(`(` ňpW` pV` pU(`pW`pV`pU`pTha6A`b6# Wqha6A`c6# Vqha6A`d6# &aa#..Uqha6`e6#A 2Tq` puha6`f6# A%B   HuqLmq(]XPaYDDA'MX(A(MXXgkoswREQLGT QUELGT NBKEYS FSECURITFILNAAM  mqp=h 6`!6A# ` puusqpC`C pCh"6`C) ~~DDD@ H!) h#6Ap`C) @ H`J$`CP ((h$6`#6 (((`J (p=h$6`#6A (5(  ZA  SA 2   Q n S Q `n~~~88(`nP (犠` p=`n((`nP (` p=`nP ((/p @pDh%6!) h&6H$h%6 D!) h&6 $` MP (` MP (` p=~vO99(/n`n('A 'n@`n(-` p=(/Ap K 3 lp`=(Dh 6`'6#A Djq`=(eh 6A`(6# S EDR<<q` E(^` ƆA@ E(eA` p=ejq`=(~h 6A`)6# t Dq` D(~` p=~jq`=(h 6`*6#A  Cq` Czz::(` A@ C(` p=Ajqh 6`+6# A Iq`=(A=n`,6Ah-6# ` pphpq(PzdJJA'({A(. Z}@ M59=AEFILNAM RWO FILNAM REQLGT QUELGT NBKEYS FSECURITMmqp=h6`6#A [ Eq` E(f` ƆA@ E3b==(mA` p=mjq`=(h6A`6# | Dq` D(` p=jq`=(h6`6#A  Cq` C(` A@ Cll11(` p=jqh6`6A#  Iq`=(=n` 6h 6# A` pp˪hpq(,l#_@@A'(IA( REQLGT QUELGT NBKEYS FSECURITh6`6# ` Ep` Dp` Cp` Ip`J(/p<`JP (3(5` p<pn`<<<p J`(A(npC`C JpC@A&x`C) h D x" xD*bD (g`DpD` J@Dp J`CP(n(C` (r(pC`CpCIqx>>&Ax`C) h A AAx" AxD*D  (`DpD` J@Dp J`CP((t` Jpp=  A S` K(` p G` Jpz` J~~/BB@ @z  p F A  QA n S Q (A    Q n S Q `n(F{ n`6h6# ` ppAh pqp pC~Q@@`CpC`CA) @p Nh6D!) ɀHh6$hD6 !) h6A $ n@`CP ( (`($( pC`CpC&x`CA) h }}8HHAA xA"  @ p H` H pzJ@&Ax`C) hD   x" `z(g` Hp H` H @ p HpD`DpD`DA) h AJx@A&}~@@`C) ݀h D "xx Nh6!A) h6$h6A !) h6 D$ n@`DP H((l`CP((&`((F pC`CpCJ@&((8IIAx`C) hD   x"  A@ p H` H pz&Ax`C) h A AAx" `z(` Hp H` H@ p HpD`D pD`D) h *H CCAxJ@&A`C) hD   "xx NhA6!) h6$h6 !A) hD6 $ >n@`DP H(B(`CP(F( Jl`n[[L))(ph6`6# AYjq` p=a{=n`6h6# A` ppphpq(1t[~~-[>>A'q(A(q Z{ N@WC WO FILNAM p`(Ҡ`(` E(` D(` C(p`("pC`C pCpDp`DpD~kCC&&A`C) &h A AA" Jx@A&&`D) &h D " P((p`(`DP((ઈ`CP("`(`(&(Qe'== pC`CpCJ@&0A`C) 0hD   " xT`T (K`T! (Mp`CP(Q((` (U(pC`CpC&;A`C) ;[[-d++h D " xT`T (z`T! (|p`CP((W`(` Ȩp`(` p([<>` K(A n`P6AhQ6# hpqgq`JP((p(p`(p L` LA( n`P6hQ6A# hpq(L/G~~QH88A'G(A(GGT XVpp Kp L ApPcgJq`JP (P (P (P (qP (wP (z(vnq(Xy(`PP (~(p~77(` p= =n` 76h 86# A` pphpq(`=(` Ep` Dp` CpA` Ip(`=(`=(G(` ~~r44p= =n` 76h 86# ` ppAhpq`JpP`J(`JP ((`=(` L(`(㨈`qP ((^`((` p<~<<`=(`qP (`RETURN_CODE_PROCllI .LBT .MBT .SBTF_DEACTIVATEFORMF_DEACTIVATERMF_SHOWINDOW IMESS PAS.1 PAS.3 PAS.ENTRY1PAS.EXIT1 PAS.NONCDSPAS.RANGEINTEGERPC_CONV_INT_ASC PC_ERROR_MESSAGEl!!^!A=A= NO=(=!1HHA (A=(`gphW6`X6 N=p=(0(9`dp䀀hW6`Y6A N=A@j(C`hpI`Z6h[6 P=A@j(=A@ip`nq^GGp倈`ph[A6`Q@kH Pe(t`Pg(t(b`A@f(h\6D Sh[6p:`AQ@kHH`: h\D6  Sh[6p:`Q@kH`: h\6@H_ ooR::Sh[6p:`@_Q@kH`: `(=P`(È=Pa(=Pb(=Pc((pA==((ӁhW6A`Y6 N(J`;oFFk?--A >;Ap<Up(>>(PP]^FOCO $*OPF@AAXR?l"]GET_TERMINAL_TYP94200-16045 REV.4010 <860804.2 860804.2133PCFOI.MAC::PCGEN_CI Ag2GET_TERMINAL_TYP,,LOGLU PAS.1 PAS.3 PAS.ENTRY1PAS.EXIT1 PAS.NONCDSXLUEX ,LL''A,p-`,p.p/A;.+*)((`)=p)`)>p)`)' 6,]""q8A)76Ap3()77FGH@"@3 Q??X!&l"]ACTIVATEFORM94200-16045 REV.4010 <860804.2 860804.2133PCFOI.MAC::PCGEN_CI ?:ACTIVATEFORM55F_ACTIVATEFORMPAS.1 PAS.3 PAS.ENTRY1PAS.EXIT1 PAS.NONCDSRETURN_CODE_PROC5''WP%( p(!'l A(A@~>>>X^-l"]ACTIVATERM94200-16045 REV.4010 <860804.2 860804.2133PCFOI.MAC::PCGEN_CI >t"ACTIVATERM<<F>F_ACTIVATERMPAS.1 PAS.3 PAS.ENTRY1PAS.EXIT1 PAS.NONCDSRETURN_CODE_PROCSET_IDT_MODE<..!P,(+pA !pA!(' .n # A"(A""H@m==X!l"]SHOWFORM94200-16045 REV.4010 <860804.2 860804.2133PCFOI.MAC::PCGEN_CI = SHOWFORM 33/F_SHOWFORMPAS.1 PAS.3 PAS.ENTRY1PAS.EXIT1 PAS.NONCDSRETURN_CODE_PROC3##P ( pA (#l A(A@Š??Xv'l"]PUTSTRING 94200-16045 REV.4010 <860804.2 860804.2133 PCFOI.MAC::PCGEN_CI ?kPUTSTRING 44f]F_PUTSTRING PAS.1 PAS.3 PAS.ENTRY1PAS.EXIT1 PAS.NONCDSRETURN_CODE_PROC4''׫P&( p(" 'l A(A@nٍ>>XI%l"]PUTINTEGER94200-16045 REV.4010 <860804.2 860804.2133PCFOI.MAC::PCGEN_CI >`PUTINTEGER44ZF_PUTINTEGERPAS.1 PAS.3 PAS.ENTRY1PAS.EXIT1 PAS.NONCDSRETURN_CODE_PROC4%%=P$(Ap( %l A(A@!@g??Xt'l"]SHOWINDOW 94200-16045 REV.4010 <860804.2 860804.2133 PCFOI.MAC::PCGEN_CI ?iSHOWINDOW 44dQF_SHOWINDOW PAS.1 PAS.3 PAS.ENTRY1PAS.EXIT1 PAS.NONCDSRETURN_CODE_PROC4''׫P&( p(" 'l A(A@hu>>X>#l" ]SHOWFIELDS94200-16045 REV.4010 <860804.2 860804.2133PCFOI.MAC::PCGEN_CI >USHOWFIELDS44O|F_SHOWFIELDSPAS.1 PAS.3 PAS.ENTRY1PAS.EXIT1 PAS.NONCDSRETURN_CODE_PROC4$$6P"(p($l A(A@ *H??X_#l"!]SHOWFIELD 94200-16045 REV.4010 <860804.2 860804.2133 PCFOI.MAC::PCGEN_CI ?TSHOWFIELD 44OIF_SHOWFIELD PAS.1 PAS.3 PAS.ENTRY1((PAS.EXIT1 PAS.NONCDSRETURN_CODE_PROC4$$6P"(p($l A(A@,J>>X.%l"!]INITFIELDS94200-16045 REV.4010 <860804.2 860804.2133PCFOI.MAC::PCGEN_CI >EINITFIELDS44?F_INITFIELDSPAS.1 PAS.3 PAS.ENTRY1PAS.EXIT1 PAS.NONCDSRETURN_CODE_PROC4%%=P$(Ap( %l A(A@Цf??Xl(l""]WAITEVENT 94200-16045 REV.4010 <860804.2 860804.2133 PCFOI.MAC::PCGEN_CI ?aWAITEVENT 44\NF_WAITEVENT PAS.1 PAS.3 PAS.ENTRY1PAS.EXIT1 PAS.NONCDSRETURN_CODE_PROC4**UP&(`' pA("*m A(A@n_==X$l""]SHOWHELP94200-16045 REV.4010 <860804.2 860804.2133PCFOI.MAC::PCGEN_CI = SHOWHELP 33(F_SHOWHELPPAS.1 PAS.3 PAS.ENTRY1PAS.EXIT1 PAS.NONCDSRETURN_CODE_PROC3%%O8P#(Ap(%l A(A@ΘX@@Xh!l"#]DEACTIVATEFORM94200-16045 REV.4010 <860804.2 860804.2133PCFOI.MAC::PCGEN_CI @}DEACTIVATEFORM66F_DEACTIVATEFORMPAS.1 PAS.3 PAS.ENTRY1PAS.EXIT1 PAS.NONCDSRETURN_CODE_PROC6##P ( pA (#l A(A@Lj??X%l"#]DEACTIVATERM94200-16045 REV.4010 <860804.2 860804.2133PCFOI.MAC::PCGEN_CI ?-DEACTIVATERM==F_DEACTIVATERMPAS.1 PAS.3 PAS.ENTRY1PAS.EXIT1 PAS.NONCDSRETURN_CODE_PROCSET_IDT_MODE=''P$(pA #('m A(AF@??Xm+l"#]GETSTRING 94200-16045 REV.4010 <860804.2 860804.2133 PCFOI.MAC::PCGEN_CI ?b!GETSTRING 44]MF_GETSTRING PAS.1 PAS.3 PAS.ENTRY1PAS.EXIT1 PAS.NONCDSRETURN_CODE_PROC4)) P*(  p (& )l" A!(A!!@l->>X@%l"$]GETINTEGER94200-16045 REV.4010 <860804.2 860804.2133PCFOI.MAC::PCGEN_CI >WGETINTEGER44QpF_GETINTEGERPAS.1 PAS.3 PAS.ENTRY1PAS.EXIT1 PAS.NONCDSRETURN_CODE_PROC4%%=P$(Ap( %l A(A@|%<AAX)l"$]SHOWALTERNATE 94200-16045 REV.4010 <860804.2 860804.2133 PCFOI.MAC::PCGEN_CI A~SHOWALTERNATE >>֠F_SETCURSOR F_SHOWALTERNATE PAS.1 PAS.3 PAS.ENTRY1PAS.EXIT1 PAS.NONCDSRETURN_CODE_PROC>**,P((A Ap($*l A(A@Ctb4@@XaEl"%]SET_TIMEOUT 94200-16045 REV.4010 <860804.2 860804.2133 PCFOI.MAC::PCGEN_CI @24SET_TIMEOUT 44 .MPYEXECLOGLU PAS.1 PAS.3 PAS.ENTRY1 PAS.EXIT1 PAS.NONCDSRMPAR 4EE!U##`Bp(`+PAA((  %p)( `+Ap%`*Cp&`%@Dp'A('&,`-3(=1"E!!5A41p+2p*(A 44dE!@cAAXW@l"&]WAITEVENT_WITH_T94200-16045 REV.4010 <860804.2 860804.2133PCFOI.MAC::PCGEN_CI Am 5WAITEVENT_WITH_TGG .DCO .DIN.DLD.DSTPAS.1 PAS.3 PAS.ENTRY1 PAS.EXIT1 PAS.HALTPAS.NONCDSSET_TIMEOUT WAITEVENT GTTۧ..`:;( A 234() AA0234A0 0AJ06A(&(&#k01 &>3((:2-Tn=6 A *5(A *55@/PCIF/PCIFGEN/PCCUT.REL:::5:13:128 644 0 0 6400 5303664564 34743 /PCIF_GEN/PCIFGEN/PCCUT.REL:::5:13:128 "&$  PCCUT REL +is+it+it 2FST ==Xp.]PCCUT 94200-16046 REV.4010 <860813.1 860813.1446 PCCUT.MAC::PCGEN_CI =@BBX~^p.]PC_CONV_INT_ASC 94200-16046 REV.4010 <860813.1 860813.1446 PCCUT.MAC::PCGEN_CI BYAPC_CONV_INT_ASC AA .DIV.LBT.SBTPAS.1 PAS.3 PAS.ENTRY1PAS.EXIT1 PAS.NONCDS PAS.RANGEINTEGER PAS.SINGLEMOD Aiio99`=(`=p=`[p;@;p; =LMp`; Rd@]H`>H`= \p=`;PZ(4((H ?8i..7+BA5A?Ap=(5AA c U0123456789 .@HfAAXy%p.]PC_ERROR_MESSAGE94200-16046 REV.4010 <860813.1 860813.1446PCCUT.MAC::PCGEN_CI APC_ERROR_MESSAGEK jj. .CBT.DST .LBT .MBT .SBTFMPCLOSEFMPOPEN FMPREAD PAS.1 PAS.3 PAS.BLANKFILL PAS.ENTRY1PAS.EXIT1 PAS.NONCDSPAS.RANGEINTEGERPC_CONV_INT_ASC STRDSCjPLL`P((Dh6 h6H h6 D h6  A(5h6 Ah6 h6A  h6 D 5`p`ph6`@D@H h6Ap`LII@H`H 88(9AY`ApAk`p`pph6`A@HH` 8A8(qވp`pph6`A@AH nDDh6p`A@HH` 8刀8(h6A`6 ((`(m`(h6`6 `(`AP(ǂh6H` h6HH` `(`PA((ŘJJpAhA6 h6 h6  AhD6  `p`ph6`@@HD €h6p`A@HH` 8刈8(`pph6`r#FF@H` 88(2p݈`pp倄h6`@HD ʀh6p`A@HH` 8刀8(7h6A`6 (](Z`(`(rgǂˀh6˧iFFHH` h6H` (vp`ph6`ֈH@H P(`P((x`A@(h6 Ah6p`A@HH` hD6  h6p`MM)O++@܈@H` h6H Ah6p`@A@HH` h6`6 A(MooyNNApp(A?PRO /PCIF/RUNTIME/PCERR.ERR FM $-?NPo@H/PCIF/PCIFGEN/PCMUX.REL:::5:5:127 644 0 0 2400 5303664565 34411 /PCIF_GEN/PCIFGEN/PCMUX.REL:::5:5:127 !%$  PCMUX REL +it+iu+iu1BFST ;;Xs ]PCMUX 94200-16047 REV.4010 <860818.1916>UTILS/PCMUX.MAC::PCIF_CI; >PCMUX Z$CWD >> }$ABRQ $LIBR $LIBX $LUT# $LUTA $SJS0 .ENTR .XLA1 IDNUMBERTOADD IXGET XLUEX >bbBBp @(p@@p(p@ppAppAp *p(6A@p 20p(8p`A(DP(DP(D{{lCHH(@p B`Bp Bbc`P(p(uJhA`0pppppppA{  pQ  ? ~@d;;XWs"]LSTLU 92077-16660 REV.2340 <860818.1916> UTILS/PCMUX.MAC::PCIF_CI; D((LSTLU )$LUT# .XLA1 q@Ed/PCIF/PCIFGEN/PCS0C.REL:::5:8:128 644 0 0 4000 5303664567 34503 /PCIF_GEN/PCIFGEN/PCS0C.REL:::5:8:128 !%$ PCS0C REL +iv+iw+iwJFST AAXɊs]PC_ERR_BUILDER94200-16107 REV.4010 <860818.1 860818.1924LIB/PCS0C.MAC::PCIF_CIA@ɊBBX> Ns]PCIF_BUILD_ERROR94200-16107 REV.4010 <860818.1 860818.1924LIB/PCS0C.MAC::PCIF_CIB}'PCIF_BUILD_ERRORNN5.DST .EXIT0 .LBT.LDX .MW00 .MW20 .SBT.SDSP FMPCLOSEFMPOPEN FMPREAD PAS.CDS PCIF_CONV_INT_ASSTRDSCNݏNDS PCIF_BUILD_ERROR_MSG @p@@pe`Pp`pp` @=@6@HH`  88(2Pe=p` @@6H p` @=|N<<H@6 P(T(` @@6  p` @=@H6  P(d(` @@6H p` @=@ H6H P(t(` @@6H p` @=@ H6H P((` @@6H  p` @=@ H6H P(`(. Y88`(`pp` @@6H@H h H=6p@H` 88(`p`p` @@6` @H h H=6p@H`H 88(`p`ppp86` @@6@H h H=6p@H`H 88(ΰ`e` `@P( pp  ` @=@6@H h 6p H` p >>88( P(h 6 H P (( ( `LA (#`L  @ `@H `h `h AH `Ah HH pp .Dp( @9 ?P FPI FROS RI#/I????? ????@V/PCIF/PCIFGEN/PCS1C.REL:::5:4:128 644 0 0 2000 5303664570 34504 /PCIF_GEN/PCIFGEN/PCS1C.REL:::5:4:128 !%$ PCS1C REL +ix+ix+ix TFST CCX*gj6]PC_CONV_INT_ASC 94200-16108 REV.4010 <860801.1 860801.1053 LIB/PCS1C.MAC::PCIF_CIC@ *gBBXxj6]PCIF_CONV_INT_AS94200-16108 REV.4010 <860801.1 860801.1053LIB/PCS1C.MAC::PCIF_CIB``PCIF_CONV_INT_ASAA ?.DDI.DIN.DLD.DNG.DST.EXIT0 .LBT.LDX .MW20 .SBT .SDSP PAS.CDS PAS.DOUBLEMOD AMIS PCIF_CONV_INT_ASC p ` ($h  @@ (!p (*h  @`p`p Hx `@,@6@ H h6p@ H` @P @IIM##@ p 8(.`  ([h6`-H (_h6@`  2`H@ `h p ( Ij  PFp)|p~p0000000123456789@6/PCIF/PCIFGEN/AUTOR.REL:::5:4:127 644 0 0 2000 5303664572 34652 /PCIF_GEN/PCIFGEN/AUTOR.REL:::5:4:127 !%$  AUTOR REL +iy+iz+iz ZFST ..XqAUTOR 94200-16109 REV.4010 <860819.1020> .ssAUTOR .NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN s77 ׻ EXECMOD .FION PCMUX LURQ ABREG IFTTY DTACH LSTLU TMVAL RMPAR 7 z OAAk ! h o@pA+ opp2p`(fpj`pp>(_`p`npIk(b NP(R(Tp`mp`&&kX(_^k(b b8A8j(9 il&hk@n@{:"/PCIF/PCIFGEN/PCMN0.REL:::5:5:128 644 0 0 2400 5303664573 34332 /PCIF_GEN/PCIFGEN/PCMN0.REL:::5:5:128 !%$ $PCMN0 REL +i{+i{+i{H `FST CCX~ s]PAS.GLOBALINFO94200-16201 REV.4010 <860731.1 860818.1913NONCDS/PCMN0.MAC::PCIF_CI C@_M~ @@Xs]PCMON 94200-16201 REV.4010 <860731.1 860818.1913 NONCDS/PCMN0.MAC::PCIF_CI @ PAS.1 cPAS.3 WPAS.STOPPCMON rr . .MBT EXEC PAS.INITIALIZE PAS.INITMEMINFO2PAS.NONCDSPAS.TOPOFSTACK2 PAS.TRACECLOSEPCIF_DEBUGGER_TOPCIF_DISPATCH PCIF_INITIALIZE PCIF_LOAD_SEGMENPCIF_SCHEDULERPCIF_STOP_MONITOrQQ ] ha6`b6 ^p$AcfA( `( ((W`EA())]`K(8A/iA2]5f7(V`M(LA>f@`N(KAFiI_pN(VAOfQǵQ\\`M0K0E(O(  Z ]`oPCINIPCKERPCDBGPCSTP @ PCIF>MIMKINFMPCOPN PCTMO PCDMX /PCIF/RUNTIME/PCMER.ERR   @2/PCIF/PCIFGEN/PCMN1.REL:::5:33:128 644 0 0 20400 5303664575 34665 /PCIF_GEN/PCIFGEN/PCMN1.REL:::5:33:128 "&$! ,!PCMN1 REL +i|+i}+i}!ghFST CCXks]PCMON_ERROR 94200-16202 REV.4010 <860731.1 860818.1914 NONCDS/PCMN1.MAC::PCIF_CI C@M4kAAXN5s]PCIF_01 94200-16202 REV.4010 <860731.1 860818.1914 NONCDS/PCMN1.MAC::PCIF_CI A _,PCIF_01 ,, <.DAD.DLD .DMP.DST.MPYEXECPAS.1 PAS.3 PAS.NONCDS,WW_**A/`P(`p0h J*`4@* 2*h *,W#(-8,( Q<<@2PDDX-s]PCIF_LOAD_SEGMEN94200-16202 REV.4010 <860731.1 860818.1914NONCDS/PCMN1.MAC::PCIF_CI DNPCIF_LOAD_SEGMEN//K.CBT.ENTR .MBT.MVWPAS.1 PAS.3 PAS.NONCDSPAS.SEGMENTLOAD /22nch*6`+6A((( h+6`,6(Ah+6`*6(21n A`h*A)( @a〣AAX@&s]PCIF_02 94200-16202 REV.4010 <860731.1 860818.1914 NONCDS/PCMN1.MAC::PCIF_CI A -`PCIF_02  c.ENTR .MVWPAS.1 PAS.3 PAS.NONCDS))`:P(( `:P(( p( p`)9 A`h"A!`%p( % @-AAX…j((s]PCIF_03 94200-16202 REV.4010 <860731.1 860818.1914 NONCDS/PCMN1.MAC::PCIF_CI A __PCIF_03 ++).LBT.SBTIMESS PAS.1 PAS.3 PAS.NONCDSXLUEX XREIO +|<<`ip]pZhe6@ZHhf6p^@ZH`^8Z8](`h(2`hp[`gp\`hpY`-p]'Y[]()(1`-p]A1b](X`i(Pp[`gp\`-p]>><AEc[]ddi(G(O`-Ap]Ob](X`-p]Xb]_>h` 8_(  @UtAAXy^s]PCIF_04 94200-16202 REV.4010 <860731.1 860818.1914 NONCDS/PCMN1.MAC::PCIF_CI A `NPCIF_04  %%EM.ENTR .LBT.MVW.SBTPAS.1 PAS.3 PAS.NONCDS%j(@@pG`-p-pH`-A@](F`HA@Z(F`HpH`G(2hX6H@HHP\(.hX6H@HHP[(.(2`HPZ(2(EhX6@HHhY6pL@-H`L+/@`-p-pG(NOAM`MhXAW(I 0P@%\DAAX/s]PCIF_05 94200-16202 REV.4010 <860731.1 860818.1914 NONCDS/PCMN1.MAC::PCIF_CI A ` PCIF_05  )).ENTR PAS.1 PAS.3 PAS.NONCDSPCIF_04 PCIF_CONV_INT_AS)C*A A  7A  p(@0DDXBs]BUILD_ERROR_MSG194200-16202 REV.4010 <860731.1 860818.1914NONCDS/PCMN1.MAC::PCIF_CI D1BUILD_ERROR_MSG1|IIt.DAD.DDE.DMP.DST .ENTR .LBT .LPX .MBT .SBTPAS.1 PAS.3 PAS.BITEXTRACT2 PAS.NONCDSPCIF_05 I~~8f??`}p{`}((`A@}(`p}h~ D .@6h6 `p-`-P(2h6H@-H P (.(2@-p-("p|`-A@(``|p|~{{?<<`-p-h} AJA@|pWh6p@-H` (4`-P(p h6@-H P(l(p@-p- (``-p-`}P(w(zAz{{$$:A p~p}(P ( 8P$@8DDXs]PCIF_STOP_MONITO94200-16202 REV.4010 <860731.1 860818.1914NONCDS/PCMN1.MAC::PCIF_CI DoPCIF_STOP_MONITO**.ENTR PAS.1 PAS.3 PAS.NONCDSPCIF_HALT PCIF_LOAD_SEGMEN*T Ap  A 7A  p (@DDX[s]MONITOR_ABORT 94200-16202 REV.4010 <860731.1 860818.1914 NONCDS/PCMN1.MAC::PCIF_CI DMONITOR_ABORT 22PAS.1 PAS.3 PAS.NONCDSPCIF_DEBUGGER_TOPCIF_LOAD_SEGMENPCIF_STOP_MONITO211O p`(p`0(A1 ( @>ACCX`s]PCIF_ERROR0 94200-16202 REV.4010 <860731.1 860818.1914 NONCDS/PCMN1.MAC::PCIF_CI C PCIF_ERROR0 ))Y.ENTR BUILD_ERROR_MSG1PAS.1 PAS.3 PAS.NONCDSPCIF_03 )BAA 8z Ap(@CCXas]PCIF_ERROR1 94200-16202 REV.4010 <860731.1 860818.1914 NONCDS/PCMN1.MAC::PCIF_CI CPCIF_ERROR1 //.ENTR BUILD_ERROR_MSG1PAS.1 PAS.3 PAS.NONCDSPCIF_03 PCIF_05 /uG A A  'A  p  p (@]BBXA s]PCIF_ERROR1S94200-16202 REV.4010 <860731.1 860818.1914NONCDS/PCMN1.MAC::PCIF_CI BOPCIF_ERROR1S33 Q.ENTR .MVWBUILD_ERROR_MSG1PAS.1 PAS.3 PAS.NONCDSPCIF_03 PCIF_04 3uN A A  @9 Ap A`h( @r2BBXB(:s]PCIF_ERROR2S94200-16202 REV.4010 <860731.1 860818.1914NONCDS/PCMN1.MAC::PCIF_CI BP'PCIF_ERROR2S== .ENTR .MVW .SBTBUILD_ERROR_MSG1PAS.1 PAS.3 PAS.NONCDSPCIF_03 PCIF_04 PCIF_05 =<<ٚA4 A!`-A@9(@-p-h66 @-H`8D A'<''(A$$p A`%h7 5&p(!/P'@1CCXSs]PCIF_ABORT0 94200-16202 REV.4010 <860731.1 860818.1914 NONCDS/PCMN1.MAC::PCIF_CI C PCIF_ABORT0 22.ENTR BUILD_ERROR_MSG1MONITOR_ABORT PAS.1 PAS.3 PAS.NONCDSPCIF_03 2[XAAH 8 A  p(@CCXTs]PCIF_ABORT1 94200-16202 REV.4010 <860731.1 860818.1914 NONCDS/PCMN1.MAC::PCIF_CI CPCIF_ABORT1 88.ENTR BUILD_ERROR_MSG1MONITOR_ABORT PAS.1 PAS.3 PAS.NONCDSPCIF_03 PCIF_05 8 A A  /A  p p (@²DDXs]PAS.ERRORCATCHER94200-16202 REV.4010 <860731.1 860818.1914NONCDS/PCMN1.MAC::PCIF_CI D9yPAS.ERRORCATCHERPP  .CBT .ENTR BUILD_ERROR_MSG1INIT_PASCAL_ERROMONITOR_ABORT PAS.1 PAS.3 PAS.INLINEERROR PAS.NONCDSPCIF_03 PCIF_05 PI88prh6A`6 }(j( tP(P(CP(IP(QP(FP(N(VuP()P(,P(/P(2P(5P(8P(;(>`ps(B`ps(B`ps(B`ps(B`ps(BrrZ!8::`ps(B`ps(B`psupr(Yps(Y`ps(Y`psupr(Y`ps(Y`psupr(YhD ]~s`r(cAcrAfvhHA(qqtuvwxyr,,zA t(  [\^*,@_ /PCIF/PCIFGEN/PCMN2.REL:::5:11:128 644 0 0 5400 5303664576 34576 /PCIF_GEN/PCIFGEN/PCMN2.REL:::5:11:128 "&$ P PCMN2 REL +i}+i~+i~ ;FST BBXs ]PCMON_EMA 94200-16203 REV.4010 <860818 860818.1915 NONCDS/PCMN2.MAC::PCIF_CI B@AAXs ]PCIF_41 94200-16203 REV.4010 <860818 860818.1915 NONCDS/PCMN2.MAC::PCIF_CI A ePCIF_41 s @@ .DIV.DLD.DSB.DST .ENTR .LBPR .LPXR .MPYPAS.1 PAS.3 PAS.NONCDS PAS.SINGLEMOD @ HHA p` A@p zp` zp`("`zp(%`p}A@(Kp (9(K`A@(K`pA@ bbH99A(3 (UA (} A` @J}A x  `z@AJ{AJ{bB" A p(FG@2AAX~os ]PCIF_42 94200-16203 REV.4010 <860818 860818.1915 NONCDS/PCMN2.MAC::PCIF_CI A -d]PCIF_42  // ޣ.DAD.DLD.DST.ENTR .LBPR .LPXR PAS.1 PAS.3 PAS.NONCDS/RRHHAAUWA WgAHnxQ Wg`Q`Q((pR(OpRAAUSA@S ($(3A@SAShzJ {J{(hz {{SY Yi`zAYx[8H }[U}`R]^ AA\\AU`mpR( 1m @SAAX0 s ]PCIF_43 94200-16203 REV.4010 <860818 860818.1915 NONCDS/PCMN2.MAC::PCIF_CI A dPCIF_43  &&G.DLD.DST.ENTR .LPXR PAS.1 PAS.3 PAS.NONCDS& XAAAA x` \ AAA(@$AAXss ]PCIF_44 94200-16203 REV.4010 <860818 860818.1915 NONCDS/PCMN2.MAC::PCIF_CI A fdPCIF_44  77 .DAD.DDE.DLD.DST.ENTR .LBPR .LPX .LPXR PAS.1 PAS.3 PAS.NONCDS7Z_HH`rpUpVAAY[A`Up^ [nAH^( (Gx]`^pW`VpV`X(1hWD _p[ _@V@c(ChW A_AAp[A _@V@c8W(E8]( ((H [YpUY (d3eAaapXAAbY(@/PCIF/PCIFGEN/PCMN3.REL:::5:206:128 644 0 0 147000 5303664577 36567 /PCIF_GEN/PCIFGEN/PCMN3.REL:::5:206:128 #'$ \PCMN3 REL +i+i+ifFST DDX.#% PCKER 94200-16204 REV.5005 <880310.1 880310.1914 /PCIF_CI/REV5005/NONCDS/PCMN3.MAC DPAS.3 PAS.SEGMENTRTN  @EEX<8#% PCIF_11 94200-16204 REV.5005 <880310.1 880310.1914 /PCIF_CI/REV5005/NONCDS/PCMN3.MAC E b,PCIF_11  .. {.DAD.DDE.DMP.DST.ENTR .LPXR PAS.1 PAS.3 PAS.NONCDS.HH $$`'p%`%p$`$(#h% AJ4AA( (6x$`$A(  (6`&("`$p%(,H- A**p'+p&(@ sEEX=#% PCIF_12 94200-16204 REV.5005 <880310.1 880310.1914 /PCIF_CI/REV5005/NONCDS/PCMN3.MAC E bPCIF_12 w 77 .DAD.DDE.DMP.DST.ENTR .LBPR .LPX .LPXR PAS.1 PAS.3 PAS.NONCDS7FFh D ({(s !pp|ph AJAA x~ !p`A@(ap|`(C(F`(Shh}F66h} D `h AJA `(k`~A(k `p|`p}`~p`|((u` hCAp(@d>HHX/I#% GET_TASK_FROM_QU94200-16204 REV.5005 <880310.1 880310.1914/PCIF_CI/REV5005/NONCDS/PCMN3.MAC H9GET_TASK_FROM_QU 66 .DAD.DDE.DMP.DST.ENTR .LPX .LPXR .MVWPAS.1 PAS.3 PAS.NONCDS6[[} 227p47D ?5 5AAx2 5A 5C0H`3(.7 D? @hE @`27`49[C: A78p3( B H @2 PHHX(J#% SWAP_CONTEXT_RAM94200-16204 REV.5005 <880310.1 880310.1914/PCIF_CI/REV5005/NONCDS/PCMN3.MAC Hr<SWAP_CONTEXT_RAM-- AW.DAD.DIN.DLD.DST.ENTR .LPXPAS.1 PAS.3 PAS.NONCDS-aa11`3p2p1AA75`2( (0`4(5  `H@1($AJ5  `H@1AD55`1p1`2@Ip2(<a= A99p4AA:7;p3( @nHHXXfZ#% GET_RAM_CONTEXT_94200-16204 REV.5005 <880310.1 880310.1914/PCIF_CI/REV5005/NONCDS/PCMN3.MAC HI)MGET_RAM_CONTEXT_AA ]`.DAD.DDE.DLD .DMP.DST .ENTR .LBPR .LPXR PAS.1 PAS.3 PAS.NONCDSSWAP_CONTEXT_RAMAooCChD D SUE ExC`C(B` (4h  AJ SAAUGA GXI GxK4WIKA EXG@SGC`Dp Mo?N A LLpD(@2gQ'FFXհV#%QUEUE_UP_MSG94200-16204 REV.5005 <880310.1 880310.1914/PCIF_CI/REV5005/NONCDS/PCMN3.MAC FwEQUEUE_UP_MSG:: N.DAD.DDE .DMP.DST .ENTR .LPXR PAS.1 PAS.3 PAS.NONCDSPCIF_11 PCIF_12 :gg<<h= D M> >O`<h< D Q@ @S(' @S`=(0 @SxBA0B=A @OU(;;<Eg FA CCp=Dp<( @GGXj#%QUEUE_DOWN_MSG94200-16204 REV.5005 <880310.1 880310.1914/PCIF_CI/REV5005/NONCDS/PCMN3.MAC G VQUEUE_DOWN_MSG:: N.DAD.DDE .DMP.DST .ENTR .LPXR PAS.1 PAS.3 PAS.NONCDSPCIF_11 PCIF_12 :ȧLLhN D ^O O` xS O`A`S O`(!A O``ihM A bJAQA QdA(8 Qd`N(AA QdxSASN Qfh(LALM eLV $$ WA TTpNUpM($@a|<IIX%;#%IS_MSG_IN_QUEUE 94200-16204 REV.5005 <880310.1 880310.1914 /PCIF_CI/REV5005/NONCDS/PCMN3.MAC I*IS_MSG_IN_QUEUE )).DAD.DDE.DMP.ENTR .LPXPAS.1 PAS.3 PAS.NONCDS)JJF_##p$`&p#`#(`$(`%P#((p$(h# A6JA4x#(`$p'`'*JR+ A((p&)p%`:p'( : @ίoEEX>#%PCIF_13 94200-16204 REV.5005 <880310.1 880310.1914 /PCIF_CI/REV5005/NONCDS/PCMN3.MAC E b|PCIF_13  22 ,.DAD.DDE.DMP.DST.ENTR .LPX .LPXR PAS.1 PAS.3 PAS.NONCDS2eXGGhq Ds sxp`pPr((/hr Du uxyA s`y u(n`p(g`ppoho D xp`rPp(E(ghpJJo0G((D w wxyhoD  `y w`p(n`rPp(n(/|J}Azzpr{pq(@*HHXl#%ALLOCATE_RAM_BUF94200-16204 REV.5005 <880310.1 880310.1914/PCIF_CI/REV5005/NONCDS/PCMN3.MAC H\ALLOCATE_RAM_BUF?33 pX .DCO.DIV.DLD.DST .ENTR .MPYPAS.1 PAS.3 PAS.NONCDSPCIF_44 3[>>`(`π@ `Հpppp`A@(_`(_` @@A ('(*(*p(^`>P([`?P([`@p`(8(;@p`ш@hZ>AA` @ (Op`p([`A@([`p`p`p(`(d`p`@h`(o`@h@y A`VV>K11 @`(A ((`p`(`pA` @pAAV--oA pApA( =d-@cւEEX?h#%PCIF_14 94200-16204 REV.5005 <880310.1 880310.1914 /PCIF_CI/REV5005/NONCDS/PCMN3.MAC E /bPPCIF_14  OO. .DAD .DDE.DLD .DMP.DST .ENTR .LBPR .LPXR ALLOCATE_RAM_BUFPAS.1 PAS.3 PAS.NONCDSPCIF_41 PCIF_ABORT0 Ooo^DD`F(( `gA@F(AZIFI (pH(BhG  AJ [ AA ]KA KxMIMK_AKa`F@c[IEDpH`HPo&&QA NNpGOpF`fpH(,& +f @EEXAC#%PCIF_15 94200-16204 REV.5005 <880310.1 880310.1914 /PCIF_CI/REV5005/NONCDS/PCMN3.MAC E aPCIF_15 ? __ .DAD .DCO .DDE.DLD.DMP.DST.ENTR .LBPR .LPXR GET_TASK_FROM_QU PAS.1 PAS.3 PAS.NONCDSPCIF_12 PCIF_14 PCIF_42 PCIF_ERROR0 _ލJJh D     ((Xp`(G` (Gpp` @@A (5(D(D` @pA `@ 88((xcJLLA Ap` (`(h D   ̀!(yшx(~xh D    ˈAx22(A ӄp (p` ((Z2** Ap( 0  *@0SOEEXAh#%PCIF_16 94200-16204 REV.5005 <880310.1 880310.1914 /PCIF_CI/REV5005/NONCDS/PCMN3.MAC E dUPCIF_16  VVS .DAD .DDE.DIV.DLD .DMP.DST .ENTR .LBPR .LPXR ALLOCATE_RAM_BUFPAS.1 PAS.3 PAS.NONCDSPAS.SINGLEMOD PCIF_ERROR0 Vuu:HHSThL D  ]  _O OMM ((:OaAxHOcxI.]KMSTS@HSS ((AgAT?Sbe(GS(GAGfUu##gVA QQpLRpK(\ #@I EEXCC#%PCIF_17 94200-16204 REV.5005 <880310.1 880310.1914 /PCIF_CI/REV5005/NONCDS/PCMN3.MAC E 2aPCIF_17 K  KK.DAD.DDE.DLD.DMP.DST .ENTR .LBPR .LPX .LPXR PAS.1 PAS.3 PAS.BITMASK0PAS.BITMASK1PAS.NONCDSK ::`v(p`(# `wA@t( pw(`w pw@w ,HH@p( @vpv@w ,HH@ `wp`xpx`xP(9(;ؾ:KKpxhw AJAAAAA xMӀ0M `xA  xA A  `Pψ(vP(v(A  (FF##A`pphD  88(ĥ&x xC0C(p`F))ZA p( )c@\{HHX{#%MSG_IN_OVERFLOW_94200-16204 REV.5005 <880310.1 880310.1914/PCIF_CI/REV5005/NONCDS/PCMN3.MAC HMSG_IN_OVERFLOW_ G.ENTR PAS.1 PAS.3 PAS.NONCDS$$'E `uA@v( p( p`$A`p(  @q1EEXCF#%PCIF_18 94200-16204 REV.5005 <880310.1 880310.1914 /PCIF_CI/REV5005/NONCDS/PCMN3.MAC E a:PCIF_18  QQG.DAD .DDE .DMP.DST .ENTR .LBPR .LPXR GET_TASK_FROM_QUPAS.1 PAS.3 PAS.BITMASK1PAS.NONCDSPCIF_12 PCIF_15 Qggq55h6 D  @7A6 7B 7E@6 ,HHD@`vpv`6pw`A(4.Cp535(':gl; A 99p6( @EEX<#%PCIF_21 94200-16204 REV.5005 <880310.1 880310.1914 /PCIF_CI/REV5005/NONCDS/PCMN3.MAC E bPCIF_21  )).DDE.DMP.ENTR .LPX.MVWPAS.1 PAS.3 PAS.NONCDS)h D@h Ap(B@ՠEEX=#%PCIF_22 94200-16204 REV.5005 <880310.1 880310.1914 /PCIF_CI/REV5005/NONCDS/PCMN3.MAC E bPCIF_22  )).DDE.DMP.ENTR .LPX.MVWPAS.1 PAS.3 PAS.NONCDS)Oh DA` Ap(B@,KEEX>##%PCIF_23 94200-16204 REV.5005 <880310.1 880310.1914 /PCIF_CI/REV5005/NONCDS/PCMN3.MAC E .cPCIF_23  !!.ENTR PAS.1 PAS.3 PAS.BITMASK1PAS.NONCDS!##`p` ,H@p`# App`"p( " @p0GGXQ#%GET_USER_AK 94200-16204 REV.5005 <880310.1 880310.1914 /PCIF_CI/REV5005/NONCDS/PCMN3.MAC G5?GET_USER_AK ].ENTR .MPYPAS.1 PAS.3 PAS.NONCDSss 577>`P9@I@OP8( (p7(3>p7`!A>(3`7A(3`N>@Jp;`;P8(((/;P9(,(/p7(2>>(`7p:`:?s @ A<5 5@P3((p1(`2p2`A@2('`1(`1(-`2p4(/p4`48b> d.DAD .DDE.DLD .DMP.DST .ENTR .LPXR PAS.1 PAS.3 PAS.NONCDSPCIF_11 PCIF_18 >VEE`zpupv`u(ohu  AJ AA|AA|~Aps |xt |`yP(;PA(*(E |Px(1(: |Pw(8(:ps([ |Pw(B(Dps([\\gE..A |`Py(N([ps`xA([ |Pw([ps`s(bau(l`v(h`upv(llvu`tpu(`vp{`{\00ѸA pzpypxpw(0 a @ҪjEEXAG#%PCIF_25 94200-16204 REV.5005 <880310.1 880310.1914 /PCIF_CI/REV5005/NONCDS/PCMN3.MAC E ePCIF_25 T ;; >}.DAD.DCO.DDE.DLD .DMP.DST .ENTR .LBPR .LPXR PAS.1 PAS.3 PAS.NONCDS;P\EE`p`(h A JAAAApA #ʀ&p`P(IP(8P('(S PA(.(7 P(5(7p(iJAA xAA(HxE??(Hp(iA P(P(RAp(i `P(\(ip`(iA P(ip`(`-(`.(`P(z(`+(`0ˈp(`//n0ph&x xC0AC x(/<<-S##A pppp(@<@1FFX#% PCIF_WAIT 94200-16204 REV.5005 <880310.1 880310.1914 /PCIF_CI/REV5005/NONCDS/PCMN3.MAC FpPCIF_WAIT (EXECPAS.1 PAS.3 PAS.NONCDS  AaA8( ( (N8( @((FEEXdA1#%!CLEAN_USER94200-16204 REV.5005 <880310.1 880310.1914/PCIF_CI/REV5005/NONCDS/PCMN3.MAC ETCLEAN_USERZZ] .DAD .DDE.DMP.DST.ENTR .LPXR .MPY PAS.1 PAS.3 PAS.NONCDSPCIF_12 PCIF_18 PCIF_24 PCIF_25 PCIF_ERROR1SPCIF_ERROR2SZN==` (Tp `0pAp`-@'@*P ((`p 88( ` (4` !(4pp`)@(P (+(1`)A@(p 88("` (T`-A @'p ` =EE@,(I` @+p H(T` @+p` A@,pT` (` h AH(` (x p h  A JA  A !xx pA !` #~~ DDx  #(   %x`(`)@(pP (( %x.pH/0HA %(`P A(( %x.p/0~>>8 (8 (b f p f` !(p p`)@(pP (〈(` 88 (`- @'p`@)(`@)p  `@) `@* _  11YXAp p (* $ U 1@NmGGX"#%#CLASS_IO_ERROR94200-16204 REV.5005 <880310.1 880310.1914/PCIF_CI/REV5005/NONCDS/PCMN3.MAC GCLASS_IO_ERROR""PAS.1 PAS.3 PAS.NONCDSPCIF_02 PCIF_ABORT0 "88`6HAz{7Nx5h5~D@@ AJTA;`3nA(^;Vx;XAx4(i;Zx;\x4`}Px(m(9LPs(t(`r5@fp=`=@p @wpp(`tp}(99`"@wphhJ6`u`|zp|`|{04p|`3{p3`3p`}A( `9Pm(Pn(Po((`}Px((A7Nx=6H=(`4 @gp>`>jDD(`>h6(`>Ap= A=67&n(6(`}Px(ڈA(`r5@fp?`?@qA 9R`:9^`;A7Nx=6`=( a(@(`6@WWo22( @A6(  Ab9R`:9^`;A7Nx=6c=(- A#]7Nx=-6d=(2 2@6BWXXFC99A@Ap6(d&"_bi| ?X@}GGX#%+SEND_IO_MSG 94200-16204 REV.5005 <880310.1 880310.1914 /PCIF_CI/REV5005/NONCDS/PCMN3.MAC G.SEND_IO_MSG sddD4 .DAD .DDE .DMP.DST.ENTR .LPXR .MPYASK_DOWNLOADASK_SCHEDULE PAS.1 PAS.3 PAS.INLINEERROR PAS.NONCDSPCIF_11 PCIF_ABORT0 PROCESS_IO_CABLEdDDh D    .P(P(0P(5PA(((`@p`@(+A+/ (A4 ("x`@p`@D==P(MP(eP(eP(w(|`@h`@(^`@p](b`@Ahd(`@(r`@pq(v`@h({ (Hh( h ,,c4App(   UX,@WFFXؓ8#%,TRY_IO_AGAIN94200-16204 REV.5005 <880310.1 880310.1914/PCIF_CI/REV5005/NONCDS/PCMN3.MAC FX1TRY_IO_AGAIN33 /'.DAD.DDE.DMP.DST .LPXR PAS.1 PAS.3 PAS.NONCDSPROCESS_IO_CABLE3XX>--h D4/p. /6Ax- /6.`.(!`-p(& /6`-`.(,`(1XB281(@:HHXIG#%-DO_CLASS_IO_WRIT94200-16204 REV.5005 <880310.1 880310.1914/PCIF_CI/REV5005/NONCDS/PCMN3.MAC Hu6DO_CLASS_IO_WRIT++f.ENTR ABREG CLASS_IO_ERROREXECPAS.1 PAS.3 PAS.NONCDS+XXF"))`/@Ep/`+p*p9p)D)3,.-/*((<=:;`9((`:PF (&((p96X&&7A00p/1p.2p-4p,5p+(&@`< HHXrHx#%.SEND_SERVICE_CAB94200-16204 REV.5005 <880310.1 880310.1914/PCIF_CI/REV5005/NONCDS/PCMN3.MAC HbZSEND_SERVICE_CAB@@ K.DAD.DDE.DLD .DMP.DST .ENTR .LPX .LPXR DO_CLASS_IO_WRITPAS.1 PAS.3 PAS.NONCDS@?DDhS D bTdTV VfAxn Thxo VfPs(&Pt(&Pu(&('(B TjxQ`Q(=hQ AJ nA lxp(B Vpxp`Rpr''CqD `mw0vpmAPkRtnrmZ'11&[A XXpSYpR( @?1@Ivh6HHX!D#%/SEND_MSG_COMPLET94200-16204 REV.5005 <880310.1 880310.1914/PCIF_CI/REV5005/NONCDS/PCMN3.MAC HzSEND_MSG_COMPLETTT;H .DAD .DDE.DLD .DMP.DST .ENTR .LPX.LPXR .SBTDO_CLASS_IO_WRITPAS.1 PAS.3 PAS.NONCDSPCIF_16 SEND_SERVICE_CABTFFh D   xlh.6`AJ`mC0lpm!Axk#xt'   %xgA2Ahi(`(# )P/~FEE()P0()P1()P2()P3()P4()P5()P6()P9()P:()P;()P<(;CC)P=(A)AP7()P8(A)A@>()A@?(`mBA0@pm)P8((+Axɡkt*m(`i((55pi`-@ipAktgm((`j(pu`t(`g(pu`upru`u(`9(pj`jP/((`mB0@pm!!N `-@ipkgm!EE,,A p( m #&'@`?E@YEEX#%1SEND_REPLY94200-16204 REV.5005 <880310.1 880310.1914/PCIF_CI/REV5005/NONCDS/PCMN3.MAC Eu zSEND_REPLYhh .DAD .DDE .DMP.DST.ENTR .LBPR .LPXR CLEAN_USER PAS.1 PAS.3 PAS.INLINEERROR PAS.NONCDSPCIF_11 PCIF_15 PCIF_18 PCIF_ABORT0 SEND_MSG_COMPLEThGGhu D    v`tA(v`tv(uAv(`(0vP(,(0A/u(rAvA0v` fA(nAu` 9P(MP(SPXXG,,(VP(fPA(f(jPup j(m`up f(mvxs_uAc ks p j(mi(mh(rr fuzX..R{Axxpuypt(( .@IIX#%2TRY_REPLY_AGAIN 94200-16204 REV.5005 <880310.1 880310.1914 /PCIF_CI/REV5005/NONCDS/PCMN3.MAC I]TRY_REPLY_AGAIN WW/(( .DAD .DDE .DMP.DST .LBPR .LPXR CLEAN_USERPAS.1 PAS.3 PAS.INLINEERROR PAS.NONCDSPCIF_18 PCIF_ABORT0 SEND_MSG_COMPLETWCCf.""`fp}h}D    " "Axf " }pj`f(!p~$C%AA8$(p~hf D    *A(K (`(N P(K(N$M(uQf`9P(]P(`P(cP(nP(n(r$_(uAp~(u 00=zfx|mk|(uAq(uHh`~({`f('0 >8('( @)HpIIXz#%5EXECUTE_REQUEST 94200-16204 REV.5005 <880310.1 880310.1914 /PCIF_CI/REV5005/NONCDS/PCMN3.MAC II%lEXECUTE_REQUEST .DAD.DDE.DLD.DMP.DST.ENTR .LBPR .LPX.LPXR .MPY.SBTFIND_PC_TASK GET_USER_AK PAS.1 PAS.3 PAS.BITMASK1PAS.BOUNDINTEGERPAS.NONCDS PCIF_12 PCIF_24 PCIF_25 QUEUE_UP_MSG sSEND_REPLY *GGh^ Dt ]]v(]v`_(N`  pZ]vx\`\p[`[(N`Z('(Nh\ AJx A_@ZpZ_vx[`[(K`Z(EAD_z(J_++֗Gv`_(M`[p\( ]{A(Y Y ^a+bII8a(h^D t }&(z`p(A}@x ,HH@(`p(Ap(`(h_ AJx AA(`$$ P ((0(`p`$.. Ap(dժp ` (Ёa(_ .IIApՈ(h^ AtJA 9A9}((h>D69}(h>6 A9(`( `8A0p89`(`80p89v(!9($--!`80p8h_ AJx AA{A`87_t;->AAic@@ (UP(P(P(P(P(P(P(P(P(P(!(@@(3(3(3(;(>(A(D(7(G(J(M(Q@+!(@@è(AA(((( ((((((#('(+(/(Y(](](]|(]w(](](](]|(](](](]ZCC(] (](](](](](]"(]&(]*(].(]2(]6(]:(]=(]:@(]C(]F(];I..I(](L(]P (]Tt(]X(]A]_l.;;հm%%Ajjp`kp_(>% !# ;**  !$()*+@*@)yH9HHXS#%8FREE_TIME_OUTED_94200-16204 REV.5005 <880310.1 880310.1914/PCIF_CI/REV5005/NONCDS/PCMN3.MAC HDFREE_TIME_OUTED_wPP0 .DAD .DCO .DDE.DLD.DMP.DST.LPXR PAS.1 PAS.3 PAS.NONCDSPCIF_01 PCIF_11 PCIF_12 PCIF_25 SEND_REPLYPIIA` h AH( (|xph A JA Ax~p`~(Wh~D   Ax} x (J(JI~aa I44(T`(P`~p(TT~`}Ap~(`(xAxmA(xx 8(z8( aL8(&@dAFFXM#&GET_CABLE 94200-16204 REV.5005 <880310.1 880310.1914 /PCIF_CI/REV5005/NONCDS/PCMN3.MAC FnVGET_CABLE wwq!.DAD".DCO#.DDE.DLD$.DMP.DST%.ENTR &.LBPR '.LBT(.LPX).LPXR .MPY*.SBTABREG ASK_DOWNLOAD CLASS_IO_ERRORCLEAN_USERDO_CLASS_IO_WRITEXECEXECUTE_REQUEST FIND_PC_TASKw~~FREE_TIME_OUTED_GET_USER_AK MSG_IN_OVERFLOW_ PAS.1 PAS.3 +PAS.INLINEERROR PAS.NONCDSPCIF_01 PCIF_14 PCIF_16 PCIF_17 PCIF_18 PCIF_23 PCIF_ABORT0 PCIF_ERROR0 PCIF_ERROR1SPCIF_ERROR2S~--PCIF_WAIT SEND_IO_MSG SEND_IO_MSG_COMP SEND_IO_MSG_DMUXSEND_REPLY-66D h! D#$! "!"$)"A)$ ` ! (6_)<pA` !A@A(`>(`/A@RpC`CP((CP((p>`C@.(` h AH( (xHp?h? A#$JA! DUgCCA)D`PA(݄()DxIBpJIHI0JHI8?(8H(C`C `ApA(`>(9` t(9pCp@h@ #AJ$! AAF&F-3P-@((6)MM ''FPA((6)F`P(&(6)FxHBpIHIA0IH)F8@A8C(=B>LM]]M,,A%KKpB( U`=pypz`zApz`/z@p||(npy`|`|h`|@. `zP !(t`y(Wx{y~]~~<p<8=8H(hNH6`A*`;K0>p;`;J0?p;`;p?`;J0@p;`;p@` ypA`<(`6>@MpF`F@4pG`F@. `F@/ ??F`F@1h`F `F@2pD D`G`Gh`G@.h`F@5hp:(`9p:A#:?먈` 9P,()P-(((.(1+p(6A0(646,q6` 9P-(J?KFF8J( $;ApS`6@,p`@2p%JA %`@/(j`@/p%Aj%`@/ `@. u p`(hD #$!  ! "p) DDA`) x`Bp%HI0%H) `AAp) x`Bp%I0%)"A`)"`)"`A)"`) `р`(` AA(`P:(P;(P<(((~(LA(((((`6@,p$(((`$@/h`$@.h`$@0hp(փA`&'AAA%&`.p(O $`6@p`@.(`@/p`A@.pAp`A(OGJ(O {A"(z(z`@/pX`@p`@.ptf `@/4h??p`@/ `@. `@0py(p遈~`@/p`@/ `@. `@0p(p(`@/(`@/pAp`@/ `@. `p`HHI $$A%`.p(- $ p`7A@(!A(`6@(A!(p`ܨHIIA%`.p܊( $`@A(A"( @p(`("(`ph A#$JA! AA!AA)`)'HH)A`) `6p`(?p`Cp(JAA!A(xpNp D#$! )#./P.(c(`(p 2pp)#RR>o,,"@A1@p`@/P/(}(`@/A `(p`@pt A Ro<p`(`&/P,(P-(P.(P/((J(5((z(hDH+(`&/P,(^^Ѽ..P-(P.(҈P/((p((&p(((ځp(܁(! (hE+`^FFx..A%p`.p(}2!$ %3.)F11 ,!! '?@^p @?1@=EEX={#&PCIF_31 94200-16204 REV.5005 <880310.1 880310.1914 /PCIF_CI/REV5005/NONCDS/PCMN3.MAC E ddPCIF_31  << .DAD.DDE.DLD .DMP.DST .ENTR .LPXR .MVWPAS.1 PAS.3 PAS.NONCDSPCIF_16 <~~(HH`Z @up\`[(4h[D  l] ]o@h\Hw AnqAA]_A*[ZYX`Y\A _s`\(W`\@wpa`v@Z \`\ a`a `a~''ҪH@w `a@x `a@y `a@z d',,UeA bbp[cpZ(#=,@̱EEX><#&PCIF_32 94200-16204 REV.5005 <880310.1 880310.1914 /PCIF_CI/REV5005/NONCDS/PCMN3.MAC E d,PCIF_32  22 ,.DAD.DDE.DMP.DST.ENTR .LPXR .MVWPAS.1 PAS.3 PAS.NONCDS2DD$$`9@$ `%(#h% AJ4A&`$ @:p(`(@;p)A &7`)A 6,D##Me-A**p%+p$(=##@:kY+HHXHH#&PCIF_DISPATCH 94200-16204 REV.5005 <880310.1 880310.1914 /PCIF_CI/REV5005/NONCDS/PCMN3.MAC H5PCIF_DISPATCH y .DAD.DDE.DLD.DMP.DST.ENTR .LBPR .LPX.LPXR .MPY .SBTGET_RAM_CONTEXT_GET_TASK_FROM_QU IS_MSG_IN_QUEUE PAS.1 PAS.3 PAS.NONCDSPCIF_11 PCIF_12 PCIF_13 PCIF_17 PCIF_18 OO >PCIF_31 PCIF_32 PCIF_ABORT0 PCIF_ERROR0 PCIF_ERROR1 PCIF_HANDLER QUEUE_DOWN_MSGQUEUE_UP_MSGSEND_IO_MSG SEND_REPLYO{{_3>>A p=h= D>`P.((> `;(#> A`O> `;> `<`<(=h< AJAx@A>`@A{1xBHH8A(h;D  x !A,p ", (x<h< DxA`(p<NN))x=h=D Ax`A AE FN~~"DD8(Dh;D x=`=(`(h= D x<;`P3(B(]`|.,p`|MG0Mp|`|,,p`|KG0KTTzU''p|`|>p|`|?p|(``|=p|(nh< Dx>(B$#2p`)D0p)`<(?h< AJAx*(Ap*(T`AP,(F(Th< D  x*psA(A9pb%`==A fA<jA=  x`&,pDG0D x`&!,pCG0C`P,((`'P,(Ap 04 B>>(`'P,(P-(P.(ΈP/(P0(؈P2(P3(( =`<((`<(xA<((( =(>>͠p<(s&(s'(('`(A ,(`>>>((A`-p(z/ +)>**C2, &?*@@GGXH#& PCIF_SCHEDULER94200-16204 REV.5005 <880310.1 880310.1914/PCIF_CI/REV5005/NONCDS/PCMN3.MAC GCPCIF_SCHEDULERUU .DLDFREE_TIME_OUTED_GET_CABLE MSG_IN_OVERFLOW_ PAS.1 PAS.3 PAS.NONCDSPCIF_DISPATCH PCIF_WAIT TRY_IO_AGAINTRY_REPLY_AGAIN U4@@` ( FpA pB(GpB` (` f(p@(p@`@(?` A($$` f()) +pB` (2` f(<`B(9 {(<;(>p@(COD8C(@ N@SLANOPENLINES` o((W` ((W0p `0@(CpS`p ` ApT`pU`U@TpT T8 8S /PCIF/PCIFGEN/PCMN4.REL:::5:46:128 644 0 0 27000 5303664601 35314 /PCIF_GEN/PCIFGEN/PCMN4.REL:::5:46:128 "&$. ,.PCMN4 REL +i+i+i.tjFST @@Xs]PCMSR 94200-16205 REV.4010 <860818.1 860818.1920 NONCDS/PCMN4.MAC::PCIF_CI @@o+@@Xys]SR_REPLY94200-16205 REV.4010 <860818.1 860818.1920NONCDS/PCMN4.MAC::PCIF_CI @ &SR_REPLY !!.ENTR PAS.1 PAS.3 PAS.NONCDSPCIF_ERROR1 !&&h `j( `@A@jpjA j&BAp (J@A`wDDXos]SR_VERIFY_BUFFER94200-16205 REV.4010 <860818.1 860818.1920NONCDS/PCMN4.MAC::PCIF_CI DK`SR_VERIFY_BUFFER!!.ENTR PAS.1 PAS.3 PAS.NONCDSPCIF_ABORT0 !~~00`Ph((Afpj`]Ph(Pi(Pj(%(/`APh((`>AP` j( ` m( `fp j` j(Gh kD   [  ]RR A(<& k m(9 Ap j0 k lNO` l @`hN(;`dp j(>`ep j~,,S>` j(F`a@ A@ jp j(JJ_` jpQ`QU,EV A TTpP( #J dlo~ @UtCCXpIs]RELEASE_BUFFER94200-16205 REV.4010 <860818.1 860818.1920NONCDS/PCMN4.MAC::PCIF_CI C9RELEASE_BUFFER CC 1.DAD .DDE.DLD .DMP .ENTR .LPXPAS.1 PAS.3 PAS.NONCDSPCIF_15 SR_REPLYSR_VERIFY_BUFFERCiiIJ55A5`j(.hkD   A ? (`Hpj( k`D@l `l @Ep77`7 A(11C`jp6`69iH: A 88p5(=# Hy @AAXs]SET_WINDOW94200-16205 REV.4010 <860818.1 860818.1920NONCDS/PCMN4.MAC::PCIF_CI ASET_WINDOW@ VV= .CFER .DAD .DDE.DLD .DMP.DST .ENTR .LBPR .LPX.LPXR PAS.1 PAS.3 PAS.NONCDSPCIF_43 SR_REPLYSR_VERIFY_BUFFERVi77A`j(`n( `pj`(`pj`(`ܪpj`kP<((`=p`ֈp("`po`?p>`op?h<  AJ AAy yAxuh= A  JA{A {xAq {__тB**xuh< D  } }xq`+po`,pn`3pm`4pl`op3`np4`mp+`lp,`jpp`p_m A ( u @<BBXvps]RETRIEVE_MSG94200-16205 REV.4010 <860818.1 860818.1920NONCDS/PCMN4.MAC::PCIF_CI B>RETRIEVE_MSG} PP+ .DAD .DDE.DLD .DMP.DST .ENTR .LPX.LPXR PAS.1 PAS.3 PAS.NONCDSPCIF_11 PCIF_13 PCIF_31 PCIF_ABORT0 PCBB` P((A` <(` 2P{((p|(w`@ A@p|h ;D    }pz}xy`z(w`y(whyD     P{(CnnB77(q` <(]A}A(R}` <([A}x[ <p >`yp <cy ;g <x *p|pz(vxy((`|n((UA p{( J( m @Yfx&DDXGs]CREATE_UNSOLICIT94200-16205 REV.4010 <860818.1 860818.1920NONCDS/PCMN4.MAC::PCIF_CI DnCREATE_UNSOLICIT aaN .DAD .DDE.DLD.DMP.DST.ENTR .LBPR .LPX.LPXR PAS.1 PAS.3 PAS.NONCDSPCIF_01 PCIF_11 PCIF_17 PCIF_31 PCIF_ABORT0 SR_REPLYa <<` P?((A%` s (p j`(`P?(`Cp j(`Bp j` j(h ;D  & ` j(y` AP@(,(yA(xp`(X`(W`(W}}<@@h D &  *P(N(Qp(V,x(6(qp `(q` P(qh D &  ,x` p (Z`(y` j(y`Ap j` j(}|CC` <(.(.(.xA < Ap > p >(`Pc( (  X`APd((@h; D  YMpj`IPc(#Pd()(/ M[xK(1 M]xK(1`epj`j(?ApL<_KPQ(>(?(B`fpjBAE``jpJ`JR SA OOpI( ocqs_@;/PCIF/PCIFGEN/PCMN5.REL:::5:103:128 644 0 0 63400 5303664602 35757 /PCIF_GEN/PCIFGEN/PCMN5.REL:::5:103:128 #'$g \gPCMN5 REL +i+i+ig3cFST DDX?#PCINI 94200-16206 REV.5005 <880310.1 880310.1848 /PCIF_CI/REV5005/NONCDS/PCMN5.MAC DPAS.3 PAS.SEGMENTRTN  @HHXJ#SET_INITIAL_TIME94200-16206 REV.5005 <880310.1 880310.1848/PCIF_CI/REV5005/NONCDS/PCMN5.MAC HS SET_INITIAL_TIME""F.DSTEXECPAS.1 PAS.3 PAS.NONCDSPCIF_01 "!! A`p JA  ! 8 ( @R}q=HHXo5#APPEND_ERROR_NUM94200-16206 REV.5005 <880310.1 880310.1848/PCIF_CI/REV5005/NONCDS/PCMN5.MAC Hw.APPEND_ERROR_NUM!!.ENTR .LBT.SBTPAS.1 PAS.3 PAS.NONCDS!ZZ8++`-p-p+`-A@4(*`+A@3(*`+p+h-6@+Hh26p,@-H`,`-p-(.Zi/A-(P@tIIXI#BUILD_ERROR_MSG 94200-16206 REV.5005 <880310.1 880310.1848 /PCIF_CI/REV5005/NONCDS/PCMN5.MAC I0 BUILD_ERROR_MSG ##z.ENTR PAS.1 PAS.3 PAS.NONCDSPCIF_BUILD_ERROR#} A*  - $A  p  p (@HHX#SEND_MSG_NOT_STA94200-16206 REV.5005 <880310.1 880310.1848/PCIF_CI/REV5005/NONCDS/PCMN5.MAC HSEND_MSG_NOT_STA22.LBTPAS.1 PAS.3 PAS.NONCDSPCIF_03 PCIF_BUILD_ERRORPCIF_STOP_MONITO2--A*-h6HAP(A-pE8(?@:GGXN#INIT_ERROR0 94200-16206 REV.5005 <880310.1 880310.1848 /PCIF_CI/REV5005/NONCDS/PCMN5.MAC G4 INIT_ERROR0 ))Y.ENTR BUILD_ERROR_MSG PAS.1 PAS.3 PAS.NONCDSPCIF_03 )C*AA 7x Ap(@8GGXI#INIT_ABORT0 94200-16206 REV.5005 <880310.1 880310.1848 /PCIF_CI/REV5005/NONCDS/PCMN5.MAC G/INIT_ABORT0 ++Y`.ENTR INIT_ERROR0 PAS.1 PAS.3 PAS.NONCDSSEND_MSG_NOT_STA+A7t Ap(@ԃCGGX[#INIT_ABORT1 94200-16206 REV.5005 <880310.1 880310.1848 /PCIF_CI/REV5005/NONCDS/PCMN5.MAC G0INIT_ABORT1 GG # .ENTR APPEND_ERROR_NUMBUILD_ERROR_MSG PAS.1 PAS.3 PAS.NONCDSPCIF_03 PCIF_CONV_INT_ASSEND_MSG_NOT_STAGwAAA  WA pp(@̡aHHX=I=#INIT_APPEND_RTE_94200-16206 REV.5005 <880310.1 880310.1848/PCIF_CI/REV5005/NONCDS/PCMN5.MAC HF3INIT_APPEND_RTE_&&H.LBT.SBTAPPEND_ERROR_NUMPAS.1 PAS.3 PAS.NONCDS&YYƹ//`:p/h66Hh76h66 h76 `;p/h66Hh76H8Hh66 Hh76H9Hh76H:`<h76DH;`<.03Y4 83(/0 @x8IIXI #INIT_ABORT0_RTE 94200-16206 REV.5005 <880310.1 880310.1848 /PCIF_CI/REV5005/NONCDS/PCMN5.MAC I0INIT_ABORT0_RTE ==s.ENTR BUILD_ERROR_MSG INIT_APPEND_RTE_PAS.1 PAS.3 PAS.NONCDSPCIF_03 SEND_MSG_NOT_STA= A AAA 7Ap (@ IIXJ!#INIT_ABORT1_RTE 94200-16206 REV.5005 <880310.1 880310.1848 /PCIF_CI/REV5005/NONCDS/PCMN5.MAC I1INIT_ABORT1_RTE QQ .ENTR APPEND_ERROR_NUMBUILD_ERROR_MSG INIT_APPEND_RTE_ PAS.1 PAS.3 PAS.NONCDSPCIF_03 PCIF_CONV_INT_ASSEND_MSG_NOT_STAQ!!AAA  !dA pp(@㰣GGX #INIT_FMP_ABORT94200-16206 REV.5005 <880310.1 880310.1848/PCIF_CI/REV5005/NONCDS/PCMN5.MAC GINIT_FMP_ABORT;;.ENTR BUILD_ERROR_MSG INIT_ERROR0 PAS.1 PAS.3 PAS.NONCDSPCIF_03 SEND_MSG_NOT_STA;d A   8A  p ( @tDHHX5#INIT_PASCAL_ERRO94200-16206 REV.5005 <880310.1 880310.1848/PCIF_CI/REV5005/NONCDS/PCMN5.MAC H=FINIT_PASCAL_ERRO9mmh .ENTR .LBT .MVW.SBTAPPEND_ERR((OR_NUMBUILD_ERROR_MSG INIT_ABORT0 INIT_ABORT1 PAS.1 PAS.3 PAS.INLINEERROR PAS.NONCDSPCIF_03 PCIF_CONV_INT_ASSEND_MSG_NOT_STAmZZ++` -p -p+` -A@(*`+A@(*`+p+h/6@+H h06p,@ -H`,` -p -(-Z:.::( `P(?P(uP(}P(P(yP((p`P(KP(NP(QP(T(W`p([`p([`p([`p([`p`p_ `(iAfAiVVEVh66mpAArt(x (| ( A( (  -(DhV::z A pppA`h p(1 K P:@,"JHHXl #CREATE_ERROR_MSG94200-16206 REV.5005 <880310.1 880310.1848/PCIF_CI/REV5005/NONCDS/PCMN5.MAC HrCREATE_ERROR_MSG-{{ .DAD .DDE.DMP.DST.LBT.LPX.MBT.MPY.SBTFMPCLOSEFMPOPEN FMPREAD INIT_ABORT0 PAS.1 PAS.3 PAS.BITDEPOSIT2 PAS.BOUNDINTEGERPAS.NEW2PAS.NONCDSPCIF_CONV_INT_AS STRDSC{~~uHHA ` pp+h+D   xπHh6pЀςH0Hh+D   xπh6 p0Ј`+p/;/;hH6Hpπh+ D  ~QHRR ShH6Hpπh+ D   khH6Hpπh+ D   h+  AJ AAh+ XQQD   h+  AJ AAh+D   `p`p.h+ A JA @.p8.8HH(8+8(` pp+`pp.h+ D   .A@.p 8.8ψ(8+8(A  *9 A7p5A*>597`5(`p2p*`p@3CCp.h6@.H`H8.8(5AE>5 2p1h6ph6P(P([h6 Hph6 P(sHh6p΀Hh6PΈ(e(ph6 phH6 PΈ(s`5(1`5(*vBBp+p)`p.`.A@(h6@.H@09 ((p,h6@,Hph6@.HHP(`,p,(`.p.`+@,@ p+(p)(|`)(`+(~~HH(h6ph6P((hH6 p΀h6 P((`A@+(h+  AJ .6`6(`A@+(h+  AJ 6`6(~QQMF))p*`*(1A>5p)` pp.h.D   .(P((p)8.8(`)(((QYY3888(( ?P  . ;  0123456789ROS  8PY@TsHHX:#5#CREATE_TASK_TABL94200-16206 REV.5005 <880310.1 880310.1848/PCIF_CI/REV5005/NONCDS/PCMN5.MAC HACREATE_TASK_TABL99 3s.DLD.DST.ENTR INIT_ABORT0 PAS.1 PAS.3 PAS.BOUNDINTEGER PAS.NEW2PAS.NONCDS9/SS`@ (f1@ (!0 (@  (@ ( ( (@ (@ ( ( (@ (@ (q (ap (@Q` (AD(STTP (~1@ (x@!0 (r  (l( k3( q3( w3( }3( 3( 3( 3 ( 3  ( 3( 3( 3hh4CC( 3( 3( 3( 3 "( 3#%( 3&(( 3)+( 3,.( 3/1(A2AAJh__,DDAp( m@n`opqrs t u @v `w xyz{| }@~`_@~0HHXrZ#!CREATE_CONTEXT_T94200-16206 REV.5005 <880310.1 880310.1848/PCIF_CI/REV5005/NONCDS/PCMN5.MAC Hy3CREATE_CONTEXT_T11z.DLD.DST.ENTR PAS.1 PAS.3 PAS.BOUNDDOUBLE PAS.NEW2PAS.NONCDS1WOWWA@0 ( (@ ( @@ ( (x (@dx (Pd@ (@P (8@ (@08 ((0@ (WVV@ ($( ( $ (@  (@ ( ( (@  ( @ ( A((!};=(!A}>A@(!}AUUAC(!}DF(!A}GAI(!}JL(!A}MAO(!}PR(!A}SAU(!}VX(!A}YA[(!}\^(!A}_Aa(!}bd(!A}eAg(!}hj(!A}kmGG**(!}np(!}qs(!}tv(!}wy(! }z|(!,.. p#3Gff@D4KKAA22A0(  (08@Pdx@Հ,f@GGX -##INITIALIZE_EMA94200-16206 REV.5005 <880310.1 880310.1848/PCIF_CI/REV5005/NONCDS/PCMN5.MAC GINITIALIZE_EMA_LL#.DAD .DCO .DIN.DLD .DMP .DSB.DST .ENTR .LBPR INIT_ABORT0 PAS.1 PAS.3 PAS.GETMEMINFO2 PAS.NONCDSLfPPA `pz JA{ ` @   (#( (#A#} h   (I(F(Ip(Kp`A(]WWP33xhpA AA(dxAAAAAA`hA D h {{`(7WfA p(@ +PHHXW8r#$INITIALIZE_BUFFE94200-16206 REV.5005 <880310.1 880310.1848/PCIF_CI/REV5005/NONCDS/PCMN5.MAC H_bINITIALIZE_BUFFEJJ kk .DCO .DDI.DIV.DLD .DMP.DST.MPYINITIALIZE_EMAINIT_ABORT0 PAS.1 PAS.3 PAS.NONCDS PAS.SINGLEMOD JiDD` y Aop]  yef(`]p]`q ]p  `pA@ ("`pp ` (p ?ACg11GcD { h j {` A]@` { `([(X([A[lb1 c8b(-@   @0HHXn#'INITIALIZE_MSG_M94200-16206 REV.5005 <880310.1 880310.1848/PCIF_CI/REV5005/NONCDS/PCMN5.MAC HvINITIALIZE_MSG_M/NN .DAD.DCO .DDI.DLD .DSB.DSTPAS.1 PAS.3 PAS.BITMASK1PAS.GETMEMINFO2 PAS.INLINEERROR PAS.NEW2PAS.NONCDSN~~DDA hy   p`pp`@ (-(/`p88(`P(HP(NP(TP(ZP(`P(fP(lP(rP~}DOO(xP(~(A MA( S(A YA( _(A eA( k(A qA( w(A }A( (Dh `@ptJJ `@pu `tpvpw`t(pp@ ,HH@ 88Ѐ(pxJii{KK8( @&/9BL@ &2Pdx i@HHXE#(INITIALIZE_SEND_94200-16206 REV.5005 <880310.1 880310.1848/PCIF_CI/REV5005/NONCDS/PCMN5.MAC H]INITIALIZE_SEND_PAS.1 PAS.3 PAS.NONCDS& pjpf ( @E:cIIXu .#/PCIF_INITIALIZE 94200-16206 REV.5005 <880310.1 880310.1848 /PCIF_CI/REV5005/NONCDS/PCMN5.MAC IX~PCIF_INITIALIZE {{$.CBT%.DAD&.DDE'.DIN.DIV.DLD(.DMP.DST).ENTR *.LBPR +.LBT,.LPX-.LPXR ..MBT.MPY/.MVW0.SBT!ABREG CLRQ CREATE_CONTEXT_T CREATE_ERROR_MSG CREATE_TASK_TABLEXECFMPCLOSE{zzՃFMPOPEN FMPREAD GETST IDGET INITIALIZE_BUFFEINITIALIZE_MSG_MINITIALIZE_SEND_INIT_ABORT0 INIT_ABORT0_RTE INIT_ABORT1 INIT_ABORT1_RTE INIT_ERROR0 INIT_FMP_ABORTLURQ#PAS.1 "PAS.3 znng1PAS.BITMASK12PAS.BLANKFILL 3PAS.BOUNDINTEGER4PAS.INLINEERROR PAS.NONCDS5PAS.SETINIT 6PAS.SINGLEMOD PCIF_02 PCIF_03 PCIF_DOWNLOAD RMPA((R SET_INITIAL_TIMESTRDSCXLUEX nNAA`#pnpmh6@mHH`08m8n(plpm`A@(k` A@m(k`l(kh6H@H+P(0P(0(3pl(Ah6@HH+h6pn@mH`n@0RRA++`mP (E(d@5so`@xh6pn`@@-H+ ,Hn@1(dAd`mpm`p(R&DDA)(oppp` A@儁(`(Ȁh6@@H+309 ((ph6@H+ph6H@H+P(`pA(@@-`p(AAp(`h AH( (xph6H@H+P(p8䈈(8(`AGGA)`p(0123456789`A@(`ph6@H`0(p#p#p#p#p#h6`6.h6`6A.h6`6.p2 ~~c2@@5B`*pph6@HH+h6p@H`H088(9Mbh6`6$((VHh6+P(\(}`$pph6`@-HH+h6p@H`H088(`~usrBBh6H `H0{#hbp(#ibph6`6A$((`( p#hp#ih6`6A$((#p`(Ah6`6$((( >>##h6`6$((Āh6`6A$(Έ((h6A`6$(((##p##p`(p#p#p#p# p#p#Ap#(DLL8( #bB##R2D2 p# `#p#`#ph# &AJ(%#AA*xH"0H-vDD @#`#p#*xA!0Ah"(x-x 0-A--A-0A-A0-,`A@(@yy=GGA@%*`-x @ Ap6_(d`p`(`(ppAJ% ,# @@ 'A 88(o`y~~lDDA)ppp(hU6`*0`,p#(0/.8p'h' &AJ(%#AA1*10A-1`+-1A`--1`,h*A(x3-1x44H 03H4~KuEEh"(x3-1x44 034-1`(A-1`)-1x3p43H 04AH3-1x3p43 043h( A&(JA%#,Ax3-1`3h( &@(l7%#,`'?ZZ@%%A)55p06p/7p.9p-:p,;p+p((#)`#p ` (q q `@}h#>`}p}`~@,p~(`E\HHA)p~ (^ zp#"A #"A((!#<#=\!#:#;`#:A( A A    ` (  ` P(`)p Ap  #>==p ` (A  ` @ h#>8 ꈈ8 (` PA(((` P(` p#y`#yA@(`p#y `A@#y(A`p#y6 #y ( `#yp#y` er @@p# ` p#!` A@#!( ` p#!` p#$` p ` p ` A@ p   h     ( ` ( ^p p `(p Ap  : #>p ` ( AA A ` @ h#>8 ?j FAA8 ( 4 K 9 W  {   ` @ h Lj8 8 ( 0` p#` ( ݀p p `'p p  s #>p ` ( z z ` @ h#>8 8 ( m ` p  ==` O,0 Op ` !p ` N,0 Np ` "p ` M,0 Mp ` #p ` L,0 Lp ` $p ` K,0 Kp ` ( p p ` @ ꈈP ( ( ŀ` CC $$p 8 8 ( ` @  p ?  {  8 8 ( i  ` ( A  C : 8 (  * RO <   ++N ( `#>( SC05  [p X` X( &p W( Sp W` dp ^` d@p _` d@p `` d@p a = Y [d^_`aA( ?( D! C#<#= ! H#:#; Ke` W( S`#:( S`p W` Wp Z` Z f}~~L g<>P( ( ` AP#"(  A(  A(  A(  ( hD4 "'A(  `p `#"p `#h( Ϡ`#hp ( נ`#i( `#ip ( p  f "$ P( P( 22q P( P( P( ( ( A ( A ( A ( Hh4 2 <<( tp#rp#p#p#g p#  p#p#p#p#f`&p}Ap ` @p{{`{@ `{@ `{@ `{ 8 8}( "p#v`!p{+  AAAp ` @ ` @ 8 8{( Bp#w`"p{p `A @p||`| `|@ 8 8{ ( \p#3 p#4p#1 p#((2 y  | ~ p#rHHž !!AJ -#.ɂ@6h6.`p#-`#-P( h6H@#-H+P ( ( @#-Ap#-(  ~H XX8~(  ,? F  4+ ./0 -!$#%PP#$##U#( --V -LLѢ77  ()*,-1235>?@P^fx ) @?@R2R4hhL@o!//PCIF/PCIFGEN/PCMN6.REL:::5:79:128 644 0 0 47400 5303664603 35440 /PCIF_GEN/PCIFGEN/PCMN6.REL:::5:79:128 "&$O OPCMN6 REL +i+i+iO'{^FST DDX4#5PCDBG 94200-16207 REV.5005 <880310.1 880310.1848 /PCIF_CI/REV5005/NONCDS/PCMN6.MAC DPAS.3 PAS.SEGMENTRTN  @HHX.h#5PCIF_DEBUGGER_TO94200-16207 REV.5005 <880310.1 880310.1848/PCIF_CI/REV5005/NONCDS/PCMN6.MAC H|PCIF_DEBUGGER_TO ~~w" .DAD .DCO .DDE.DIV.DLD.DMP.DST.ENTR .LBPR .LBT.LPX.LPXR .MBT.MPY.MVW.SBT PAS.1 PAS.3 PAS.BITMASK1PAS.BOUNDINTEGERPAS.CLOSEFILE PAS.ENDOFFILE PAS.GETMEMINFO2 ~yy NPAS.INITFILEPAS.INLINEERROR PAS.LINEPOSITIONPAS.NONCDSPAS.READLINEPAS.READSTRING PAS.RESET_FILE!PAS.REWRITE_FILE"PAS.SINGLEMOD #PAS.WRITECHAR $PAS.WRITEDOUBLE %PAS.WRITEINTEGER&PAS.WRITELINE y 'PAS.WRITESTRING PCIF_DOWNLOAD PCIF_STOP_MONITO ) AA  AA A~~uXPPAAA (`>(\p'%_A%*&`?p'5jA%:&`>!_p'GuA%L&`fpPp=@=@J ,HH\@(hh]6~cSS@=H`[(oh]6@=H`Z8=8P(R'yA'&`Ap'A%&`Bp'A%&`Cp'A%&EMMA'$A&`DpA'%A&`D ADp"D(倈`p`A(<'p=p`†A@=(5`  P((`[@=paa4::(h=  E AAJ   Ax%`PJ((.##A&pA'.`p`=Ap=(#:&RaKS\\AQ`Qh^A(  @> handler : scheduler ring : priority : state : UP queue : current set : DOWN queue : cont\PPext EMA offset : context size (BYTE) :  `(Ԋ(` A@Ą('A&(h  AJ AAՀ.EPB(PC( PDA(P('WW% A&('A%&h  AJ A@hR+Ax'7#A%<&xA'J.%OAA&x9VMMA']9%bA&`fpAp@x ,HH@(h6@H`[(h6@H`Z88(h'DA'&`fpplNN@@Jx ,H@(h6@H`(h6@H`ZH88(A'O'A&Ax'ZA%& xA'e`AWW%A&A x'pA% & (x`( '{A&(.''A%,& x`A(A'>&(OA'H?_HWWA%M&(A'W%\A&hD   @hRoxA'{%AA&x'A%&Ax'KKA%&`fpp@x ,H@(h6@H`(h6@H`ZH88(A''A&`fppA@@Jx-JJ ,HH@(h6@H`[(h6@H`Z88('A'&.EPB(&PC(0PD(aPE((A'-&A('7-4TT& Axx#AIp#O%TA%Y%^A&('hA'o&(\p|A xAxUU 77#Ip'A'%A%%A&('#A&(h`(haU^^Apā( invalid task index---- free area for task ----- index = ------------ PC ----------- index = time out (sec.) : identification : PC type : capa7K``bility : status : highway task index : PC ring : station number : PC not locked PC locked for user : unsolicited disabled unsolicited AK : ----------``-- Highway ------ index = time out : 1st PC index : highway type : capability : downloadable I/O status : NIL_IO : standard I/O<<A )) port # LU_1 LU_2port # LU_1 LU_2 I/O = PROG ++++ not supported;<A%  ?& = VV8 ( #   +++++ RAM BUFFER USE +++++ --> RAM # no associated buffer length = words. Msg count = EMA ptr= count= RAM_locks =`ppA'%A&`pTTA'$%)A&`@Dpp'7A%<&`p'IA%N&`@Dp'[A%`&`@Ep'mA%rBBwq((&`@Fp'A%&`@Gp'A%&BH``A( buffer : length : status : function : param1 : param2 : param3 : param4 / label :'  LLA % ;'  A&A` %p'%A&`dpp@ ,HH@(6h6@H`[(=h6@H`Z88(!'GA'N|IPP&` 'p'Y$A%^&` (p'i/A%n&` APD(t(` *p'}:A%&` )AIp'E%A&h6`6QLLA`fpp@ ,H@(h6@HH`[(h6@HH`Z8A8('P'AA&'[$$%A & +'g% A%% & 3Ma\\8( &t ) ====== TASK # ===== event : action flag : action code : handler type : PC station number : MUX port : capabilityZ`` : ---------- UP message # ---------- DOWN message #00000000 A &'&A&&A')$AA&'4$A&A'?$AA&'J\\WCC$A&A'U$AA&'`$A&A'k$ AA&'v$A &A& \__8 (| +++++ HEAP INFORMATION - current status +++++ top_of_stack = top_of_heap = init_top_of_stack = init_top_of_heap = high_top_of_stack = high_top_of_heap = curwmUUr_free = curr_mark = A` p'6%A&A` p'A%A&A` p'L%A&A` p'W%A&` fNNp'bA%&'mA&A'''&`dp,Ap`M@1p((PC((5`(p`(@Gp`(@H@A`(@J6h56A% #SSA'%A#!(`(@Lp-A%)-%.A$3&88,(砄` !(E'B"A"&('LAA&'U&` !(p(p`EA@2~~+cLLp))(~A%l)`)p,A%t,`)@Dp,A%|,&88((_` v('A&('!A!&A'&` v(p(Ap`G@3p*`*~-OOp)%)`*@Dp)%A)%*`*A@Fp)%)&88((` w('A&('))AA&'&**&` w(p(p` @@4p+%+++`+p)% )A&88((  .+k/XX8.( $ U   READY H TASK Q : MEMORY WAIT Q : MSG Q : IO Q : REPLY Q : +++++ OPEN APPLICATION TABLE IS +++++* user_id pn``ame lock_number reply_class last_time_action +++++ ACCESS KEY TABLE IS EMPTY +++++ +++++ ACCESS KEY TABLE IS +++++ user_id key #_unsolicited +++++ NO DOWNLOADABLE CARDS +++++ +++++ZZ IO_CARD_TABLE IS +++++ select_code file_index LU card_IO_Q +++++ IO_MAP_TABLE IS EMPTY +++++ +++++ IO_MAP_TABLE IS +++++ highway_H_task_# IO_msg_wait_Q `cpph6@H`W}^AAA88(:p`A@^(c`(c`ph6@HHPW(_PY(_(`(bp(Fpp`Wp`^A@(`(h6@HHph6@HPWYY,,(PY((p(`@az ((`@p(h6@H``p`\A@(p`p(iYpCCA(62h6@HPW(È(`p(p p` ( `^A@( h6@Hp pp`ph6@HP ((p`(`A@K++G(`(`K@숀@gp(p `p(˨ +3OO8 (20123456789p`(p`(]'(cA&A(9A 6+`p(V?2,` A(M'K2,,&ha6H]`XppA(\p(¦]??pp숀`pha6@Hh^H@P(|ha6@Hh_H@P(|(`p`pha6H@Hh^H@P(ha6H@Hh_H@P((%::p`@Dp(`p숈(`@Dp쀈`(`A@V(a`숈PD(PF(߈PH(PJ(PK(PM(PN(0PO(>ph6H@HPЈ(h6H@HPр(p`p8(ˈ8(`ר>e@@Apֈ`ep(/p`ep&`rpp`kA@pለPd((F`fp&( >`-p-p`-A@n((`A@g((`p`@i@6@HHh6p6<< @-H`J `-p-(`@j(B`-A@n(Bh6 @-H`mH`@jpABpF8 8(p`g((R?p`i([ `ippi[DDA]`qpph6@H`lH88(a`(p`pi`h(`op`hpA`pp@A((ABA:( A@Cp`(Dp`(((4p`((E`(R`(p(8($NO( F;;;GGG(( Ap(p( H*  @ ( @(  @( eCC(`)(`r("`sp&('`r('p&`(h\6`]6DA(f(3 6p'h^6A`]6Dh]6`\6D`'(fp( SI*J&;;;(U(V Z|X>>:;`((f`:(fAp&fAH* oI!K;;;;(q(r`r(`4(A }L';((A L$B((`r(`rp1p%`kA%@Zp--PdBB((`-@gp228%81(`!(p-p%`fA%@[p..(`.p118%8-(`(p-p%h% DM//.fPe((/O7BB.fPd(/O.fPeA((/Rx. Q".((/Tx.A Q".((8%8-( V"( A(   W((`)Pe((AXA N D;;J&("YA$4II5--A33p)(P(  -PCR2 @ $U_* Id /P!@$+ 5001+w/ w U+/嘇+++w/Z++T//+?/?//PCIF/PCIFGEN/PCS0.REL:::5:7:127 644 0 0 3400 5303664606 34135 /PCIF_GEN/PCIFGEN/PCS0.REL:::5:7:127 $$ $PCS0 REL +i+i+i hFST AAX]ss#]PC_ERR_BUILDER94200-16209 REV.4010 <860818.1 860818.1925LIB/PCS0.MAC::PCIF_CI A@>]sBBXs%]PCIF_BUILD_ERROR94200-16209 REV.4010 <860818.1 860818.1925LIB/PCS0.MAC::PCIF_CI B}PCIF_BUILD_ERROR@@ }.DST.ENTR .LBT .MVW .SBTFMPCLOSEFMPOPEN FMPREAD PAS.NONCDSPCIF_CONV_INT_ASSTRDSC@b JJAAp AAJ` p` pph6@H` 88(!1J"ph6H ph6H P(<(kh6  ph6 H P(H(kh6J>>H phH6H Pڈ(T(kh6H phH6H Pڈ(`(kh6H phH6H Pڈ(n`(`(`pph6@HH h6p@H`H 88(u` pN@@`ph6`@HH h6p@H`H 88(` p`ph6@H h6p@H` 88ڄ(J``@ (pph6@ZZd++H h6pH` 88ڈ(P(h6ᄈH P(ဈ((` A(` ZII--A`hA ݈pp߈p(? "ROS ????? ???? LPI@b"6/W/a/Y/X?. /'///7/?Pas.Stop Pas.TopOfStack1 Pas.TopOfStack2 Pas.Initialize //L/NW/VW/fW/f/p/X/[//^//a//e///s/i//l//o//soe/u/wWw///PCIF/PCIFGEN/PCS1.REL:::5:4:128 644 0 0 2000 5303664610 34352 /PCIF_GEN/PCIFGEN/PCS1.REL:::5:4:128 $$ ,PCS1 REL +i+i+i rFST CCXWj6']PC_CONV_INT_ASC 94200-16210 REV.4010 <860801.1 860801.1054 LIB/PCS1.MAC::PCIF_CI C@WBBXqj6']PCIF_CONV_INT_AS94200-16210 REV.4010 <860801.1 860801.1054LIB/PCS1.MAC::PCIF_CI B`YPCIF_CONV_INT_AS44 0.DDI.DIN.DLD.DNG.DST.ENTR .LBT .SBT PAS.DOUBLEMOD PAS.NONCDS4UIIpO`R(hR ASAS (_SpO(hR AS`ppUA`mpP 'SacxQhd6H@QHhX6pV@PDH`V SaS@PpP8U("`O(JhX6`o@ pI(NhX6`nH Y''arZAWWpR( Fh0000000123456789 -'@X Y=&=(,,:Q9֊1++u',' -11@ u⊬ 1󈀀1eV -L-M-11 ,N%-11V -a-j 11-o1o122 uሀ11e-1!1--~1((/PCIF/PCIFGEN/PCDMX.REL:::5:48:128 644 0 0 30000 5303664611 35561 /PCIF_GEN/PCIFGEN/PCDMX.REL:::5:48:128 "&$0 80PCDMX REL +i+i+i0|xFST BBXrp:]PAS.GLOBALINFO94200-16220 REV.4010 <860813.1 860813.1457UTILS/PCDMX.MAC::PCIF_CIB@mrBBX*p:]RTE_EXEC_ERROR94200-16220 REV.4010 <860813.1 860813.1457UTILS/PCDMX.MAC::PCIF_CIBRTE_EXEC_ERROR$.CBTPAS.1 PAS.3 PAS.NONCDSGGDh"6`#6A!( ((h$6A`%6!(((`)p(`(p` p"`!p#G 8(& '!IO02@B??X+p:]CHECK_LU94200-16220 REV.4010 <860813.1 860813.1457UTILS/PCDMX.MAC::PCIF_CI? %CHECK_LU ''4ABREG PAS.1 PAS.3 PAS.NONCDSRTE_EXEC_ERRORXLUEX 'FFUe `p#p$Ap  (#" A((A !` p!`(`!*(`)p%FN{&8%( ?@> \CCX.2p:]OPEN_DOWNLOAD_FI94200-16220 REV.4010 <860813.1 860813.1457UTILS/PCDMX.MAC::PCIF_CICM'OPEN_DOWNLOAD_FI##.DSTFMPOPEN PAS.1 PAS.3 PAS.NONCDSSTRDSC#EET!!A *+% -*,A #p%A-%%#*`%P0(P1((( `0p'Ee( 8'(?RO @CCX p:]CLOSE_DOWNLOAD_F94200-16220 REV.4010 <860813.1 860813.1457UTILS/PCDMX.MAC::PCIF_CICBCLOSE_DOWNLOAD_FFFMPCLOSEPAS.1 PAS.3 PAS.NONCDShA-% 8( @bCCXp: ]DOWNLOAD_FILE 94200-16220 REV.4010 <860813.1 860813.1457 UTILS/PCDMX.MAC::PCIF_CICDOWNLOAD_FILE yFF I.DIV .ENTR .LBTABREG FMPREAD FMPREWIND PAS.1 PAS.3 PAS.NONCDSRMPAR RTE_EXEC_ERRORXLUEX F4<< Ap  fC ((  !^]j`jp`` (B``P(0P(1P(4P(7P(:P(=(@(B`p (B`p (B`p (B`p '<(B` p (B` p E@@FA DDpC(p Xh (Z(`A^  !AA`d  !e@f778e(K` ph`pi` pf`pgEs` (ex` (`  (`^(`p (` !(`p ` (E` (e`  !(` <<(`p ` ( - %papo - %opbPb(`b Apb`opch6 P(ƀ(pa`a(h6H P(`p ` ( ` pd`pe??Pb(` %A(dob ((  ! - %opbPb(`b Apb(٠` %( ` ( `p ` (e` !#(` 44(`p ` (ME"` (M`lp_`_P(8P(9P(>P(GP(G(Jp(Xh6@넀Hh6p@H``p`p(.`(e`p(qh6`6(o(q(q`ppp`A@(`(BBh6@너HP(h6@너HP((`p뀈(p(up`A@(`(h6D@H 09 ((ph6@HHph6@HP(YY''`p(`@ꊀ@p`p(p(`( `A@(`p`(`( pY,, 8(?ͪ  0123456789  ,?P,@GfdCCX5Op:"]BUILD_R2D2_RUN_P94200-16220 REV.4010 <860813.1 860813.1457UTILS/PCDMX.MAC::PCIF_CIC\HBUILD_R2D2_RUN_P.LBT.SBTPAS.1 PAS.3 PAS.NONCDS~~!<< p`p`p`p`ppF`NA@F(.hK6@FHPM(.hK6@FHhL6pG@FH`G`FpF( `FhNAH(7 (DxGpEhL6~< @EH`M8E(B8G(9H@I8H( ?@@#??X)p:"]PUT_CHAR94200-16220 REV.4010 <860813.1 860813.1457UTILS/PCDMX.MAC::PCIF_CI?  PUT_CHAR !!.ENTR .LBT.SBTPAS.1 PAS.3 PAS.NONCDS!EEu`TA@(( h&6@THP'(`TpTh&6@TH``TpT EFs!Ap(, O@TsaCCXjhp:#]APPEND_REPLY_NUM94200-16220 REV.4010 <860813.1 860813.1457UTILS/PCDMX.MAC::PCIF_CICgZAPPEND_REPLY_NUM--.ENTR .LBTPAS.1 PAS.3 PAS.NONCDSPCIF_CONV_INT_ASPUT_CHAR-wDDATUA`pSpQ`TA@g(P`SA@c(P`SpShb6@SHPe('(+*a(O`Q(Chb6@SHPf(?hb6@SHPd(?(C`SPc(C(O!D pQhb6H@SHpXAOX( ZB6[ AYYpT( -U -0P@BCaCCX26p:$]APPEND_REPLY_MSG94200-16220 REV.4010 <860813.1 860813.1457UTILS/PCDMX.MAC::PCIF_CICu/APPEND_REPLY_MSG.LBTPAS.1 PAS.3 PAS.NONCDSPUT_CHARPP--A1`T@4p-`5A@-(,h26HAp..h26 HAp..h36p.$.h36 p.,./Pc0( "#P@[EzCCXQNp:$]APPEND_REPLY_NAM94200-16220 REV.4010 <860813.1 860813.1457UTILS/PCDMX.MAC::PCIF_CICSEAPPEND_REPLY_NAM++".CBT.LBTPAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDSPUT_CHAR+AA ""`Mp#p"A IHI$JhK6`L6J((hL6@"HpDD8"8#(EA)F8E( ?$ @KjxCCX^5p:%]BUILD_REPLY_TO_U94200-16220 REV.4010 <860813.1 860813.1457UTILS/PCDMX.MAC::PCIF_CICb &BUILD_REPLY_TO_U11\\.ENTR .MBTPAS.1 PAS.3 PAS.INLINEERROR PAS.NONCDSPCIF_BUILD_ERROR1GG&h""`P2(P3((h/6A`06.(h/6A`16.(h4D!+#".,T&G$$J)'A$$p#%p"()$@0kCCXWPp:%]SEND_MSG_TO_OPER94200-16220 REV.4010 <860813.1 860813.1457UTILS/PCDMX.MAC::PCIF_CICyHSEND_MSG_TO_OPER##IMESS PAS.1 PAS.3 PAS.NONCDSXLUEX XREIO #Vs<<`(`pE`NpF`OpD`TpGADE)G((`TpGK)G(C`(;pE`NpF`TpG0LE)GMM(2(:`TpG:K)G(C`TC<ApGCK)GHpsI8H( @d@CCXlp:&]REPLY_TO_USER 94200-16220 REV.4010 <860813.1 860813.1457 UTILS/PCDMX.MAC::PCIF_CIC7]REPLY_TO_USER FFAPPEND_REPLY_MSGAPPEND_REPLY_NAMAPPEND_REPLY_NUMBUILD_REPLY_TO_UPAS.1 PAS.3 PAS.NONCDSSEND_MSG_TO_OPERF~~W88A `P`(Pa(9Pb( Pc(=Pd(=Pe( Pf(=Pg(=Ph(=Pi(GPj(G(IA(LA"`T@cpT`kA@T(/`kpT1`%p\A8 \~OOc8$$(L<(L@AC F!(L(LL`T@cpT`kA@T(Y`kpT[]O?^8]( P@<CCXy_((p:']REPLY_TO_R2D2_MO94200-16220 REV.4010 <860813.1 860813.1457UTILS/PCDMX.MAC::PCIF_CICDSREPLY_TO_R2D2_MOuABREG EXECPAS.1 PAS.3 PAS.NONCDS  p 448(`% ( ( p% p`pJ`p`pª`p`%p pp pPpA*VWXY(,(2A0"#A26 !`668(E` P^(=(EDZW[W\(GpP`P(`(O`]pS64T 8S( @nCCXp:(]PAS.ERRORCATCHER94200-16220 REV.4010 <860813.1 860813.1457UTILS/PCDMX.MAC::PCIF_CIC9PAS.ERRORCATCHER00 .ENTR EXECPAS.1 PAS.3 PAS.NONCDSREPLY_TO_R2D2_MOREPLY_TO_USER 0$$7A`p`P(( AA $jA(@~??Xbp:(]PCDMX 94200-16220 REV.4010 <860813.1 860813.1457 UTILS/PCDMX.MAC::PCIF_CI? PAS.1 PAS.3 PAS.STOPPCDMX xxnb .SBTBUILD_FMGR_RUN_PBUILD_R2D2_RUN_P CHECK_LUCLOSE_DOWNLOAD_FDOWNLOAD_FILE EXECOPEN_DOWNLOAD_FI PAS.BLANKFILL PAS.INITIALIZEPAS.INLINEERROR PAS.NONCDSPAS.TRACECLOSEREPLY_TO_R2D2_MOx*REPLY_TO_USER RMPAR iEE ˈ`apXp"h6@"HH`^ 8"A8X(  ppA 'p!p `ˈP`(/(<`(3(6`p (<`(<`p!`P`(BAA(DD`3HEDDPZ(tP[(LP\((`A(Q Q`(VV`(n`]p'pA_`(e@'p'`(n`'(n`(([`(sAs(`A(y y`(~~`(A( TT(`(`]p`PY(PZ((A(`(A(Ah_ AA ?PPCDMX PCIF>PCDMX>DMFM 99&& /PCIF/RUNTIME/PCMER.ERR 9CY  R3@[</PCIF/PCIFGEN/PCOPN.REL:::5:3:115 644 0 0 1400 5303664613 34722 /PCIF_GEN/PCIFGEN/PCOPN.REL:::5:3:115 !%$ hsPCOPN REL +i+i+iBFST --Xg=cPCOPN 94200-16221 REV.4010 <860801.1032>-ssPCOPN .NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN svEXEC.FION DTACH PRTNRMPAR  09R2PC hh559pp`P((`p`(``1j <>> p1h6  h6p@1H` `1A@Մ(U`1p1h6 h6p@1H` `1A@(k`1p1hH6  h 6p@1HH` (x`7:6z77(`7p:`֨p;`p9`1Ap9: ˆ((`1p̡ (`8 (p:`p;`1pͪ: 8((`1p M (`1p̡ ¨++Ap(  P +@aK CCX@p5]RTE_CLASS_IO_ERR94200-16222 REV.4010 <860813.1 860813.1502UTILS/PCTMO.MAC::PCIF_CICM!RTE_CLASS_IO_ERRPAS.1 PAS.3 PAS.NONCDSX`p 8( @NAAX;p6]RTE_ERROR 94200-16222 REV.4010 <860813.1 860813.1502 UTILS/PCTMO.MAC::PCIF_CIAcRTE_ERROR PAS.1 PAS.3 PAS.NONCDSX`p 8( @$CCX p6]REMOVE_FROM_TIME94200-16222 REV.4010 <860813.1 860813.1502UTILS/PCTMO.MAC::PCIF_CICxREMOVE_FROM_TIME(EXECPAS.1 PAS.3 PAS.NONCDSA  8(@8CCXp6]PAS.ERRORCATCHER94200-16222 REV.4010 <860813.1 860813.1502UTILS/PCTMO.MAC::PCIF_CIC9 PAS.ERRORCATCHER,,.ENTR PAS.1 PAS.3 PAS.NONCDSREMOVE_FROM_TIMESEND_ERROR_MSG,A  fb A( @ -'??Xc5p7]PCTMO 94200-16222 REV.4010 <860813.1 860813.1502 UTILS/PCTMO.MAC::PCIF_CI? ƻPAS.1 ePAS.3 VPAS.STOPPCTMO GG Y_ABREG EXECPAS.INITIALIZEPAS.NONCDS PAS.TRACECLOSEREMOVE_FROM_TIMERMPAR RTE_CLASS_IO_ERRSEND_ERROR_MSGG+LL\`P(A]^\_`A(`p`((#p`p(0`(,`pp(0ppAp9`\a\bCc\\\\\d(E(KIKZZ_L>>N`(SS(0 Y\^ @ PCIF>TM/PCIF/RUNTIME/PCMER.ERR Z 4R4 @ʕ"m6"HeċgWWe-u=u-vvf-ݘWRhRYfAF.vvfAF.1f.1n6FH ./PCIF/PCIFGEN/PCHLT.REL:::5:12:128 644 0 0 6000 5303664616 35305 /PCIF_GEN/PCIFGEN/PCHLT.REL:::5:12:128 "&$ | PCHLT REL +i+i+i #FST BBXQp2]PAS.GLOBALINFO94200-16223 REV.4010 <860813.1 860813.1501UTILS/PCHLT.MAC::PCIF_CIB@2QBBX }p3]SEND_ERROR_MSG94200-16223 REV.4010 <860813.1 860813.1501UTILS/PCHLT.MAC::PCIF_CIB7nSEND_ERROR_MSG>> .ENTR .LBT .SBTEXECIMESS PAS.1 PAS.3 PAS.NONCDSPCIF_BUILD_ERRORXLUEX XREIO >H;;Aht `|pkpghx6@gH hy6pl@gH`l 8g8k( `8(:`8pi`zpj`{pf` pk/fik(1(9` pkA9uk(``9VVw];++(Xpi`zpj` pkMvikww9(O(W` pkWuk(`` pkA`uketwwnV loA mmph(   @Cnb.CCXp3]PAS.ERRORCATCHER94200-16223 REV.4010 <860813.1 860813.1501UTILS/PCHLT.MAC::PCIF_CIC9 PAS.ERRORCATCHER""4Z.ENTR PAS.1 PAS.3 PAS.NONCDSSEND_ERROR_MSG" A  f^ A( @9XnCCX=p3]RTE_CLASS_IO_ERR94200-16223 REV.4010 <860813.1 860813.1501UTILS/PCHLT.MAC::PCIF_CICM!RTE_CLASS_IO_ERRePAS.1 PAS.3 PAS.NONCDSSEND_ERROR_MSG ((A 8( @CCXp4]RTE_SCHEDULE_ERR94200-16223 REV.4010 <860813.1 860813.1501UTILS/PCHLT.MAC::PCIF_CICWRTE_SCHEDULE_ERRePAS.1 PAS.3 PAS.NONCDSSEND_ERROR_MSG A 8( @ +`??XUIp4]PCHLT 94200-16223 REV.4010 <860813.1 860813.1501 UTILS/PCHLT.MAC::PCIF_CI? PAS.1 zPAS.3 kPAS.STOPPCHLT GG BrEXECIDGET PAS.INITIALIZEPAS.NONCDS PAS.TRACECLOSERMPAR RTE_CLASS_IO_ERRRTE_SCHEDULE_ERRSEND_ERROR_MSGG'==q`P(P߈(P((p(`߈p(`pو(`p`(($p`p(0`(,`pp(0ppۈ`p`݈p`܂!݈p`܂"݀pX =XXApBzp`(JIr(kPsztq(R(TTW`(]]uAgvqwqx(i(kAk nqyPCPCOPN HT PCIF>/PCIF/RUNTIME/PCMER.ERR    @  ]))g/w?w/g  /˜)WWØnWٯ:o:Q7'g/w?g/w?ww/.//,//W,.Y/ go WWWw//PCIF/PCIFGEN/DDP61.REL:::5:3:116 644 0 0 1400 5303664617 34465 /PCIF_GEN/PCIFGEN/DDP61.REL:::5:3:116 !%$ tDDP61 REL +i+i+iFST 0APAEDDP61,TX:34,TO:0,QU:FI  #UDT:61B,DX:13,DP:1:0 ::XA<s/]DDP61 94200-16359 REV.4010 <860819.1018>UTILS/DDP61.MAC::PCIF_CI: DDP61 ##&$DV12 $DV13 $DV16 $DV4$DV6$DV7$DVTP #tte<<H 5( `6.(3P7(P8(P9(P6($88(3HD0:@.(3`6H.h9(3H;(3H`6.08H(3h.H8t@Ts-u=e-u=YtX,eue-.u-7euiY5YuYYYY'U-LYY'U-L-aYY׈ -U-aYY׈Y*Y_Yu-YY'U-j-vYYوY*YtYu-Yݘ'YYu/PCIF/PCIFGEN/PCTST.REL:::5:143:128 644 0 0 107400 5303664621 36300 /PCIF_GEN/PCIFGEN/PCTST.REL:::5:143:128 #'$ PCTST REL +i+i+iG(FST BBXs"]PAS.GLOBALINFO94200-16404 REV.4010 <860818.1 860818.1732PCTST/PCTST.MAC::PCIF_CIB@tBBXs"]PRINT_ERR_STAT94200-16404 REV.4010 <860818.1 860818.1732PCTST/PCTST.MAC::PCIF_CIBHPRINT_ERR_STAT11DPAS.1 PAS.2 PAS.3 PAS.5 PAS.NONCDSPAS.WRITELINE PAS.WRITESTRING 1}}l@@`P( P(P( P(*P(4(>ARKKLA(G^MML(GA'qNNLA(G1OOL(GA;PPLA(GE}`@QQLHI__8H(& -> invalid number input -> negative octal numbers not allowed -> radix type not supported -> invalid octal value -> embedded spaces not allowed -> unsupported error codLe @a/!CCX s"]FIND_FIRST_DIGIT94200-16404 REV.4010 <860818.1 860818.1732PCTST/PCTST.MAC::PCIF_CICdFIND_FIRST_DIGITQ66.ENTR .LBTPAS.1 PAS.2 PAS.3 PAS.BOUNDINTEGERPAS.NONCDSPAS.RANGEINTEGER6z>>`A @΄(%h6`H@HP (!h6`A@HP(! (%`pΈ (h6`A@@H09 (P(P(nP(@P(P(P/>;;((`ph A6`@H@09 (dP(^P(aP(eP(aP(a(k`(mp (m(m`(j(m(` ph6`Auuy44D@H09 (P(P(P(P(P((` (p ((`(((p ((`((`P((`u!!)A( P *+-.AOPac!@@_BBXs"]FIND_LAST_CHAR94200-16404 REV.4010 <860818.1 860818.1732PCTST/PCTST.MAC::PCIF_CIBFIND_LAST_CHARQ66.ENTR .LBTPAS.1 PAS.2 PAS.3 PAS.BOUNDINTEGERPAS.NONCDSPAS.RANGEINTEGER6q==p`(`A@΄(h A6` @H@09 (|P(8P(}P(P(}P(PP(PP(PP(PP(}Pˆ(PP(PPĈ(PP(P(pkg=>> @ph A6`@HA`p(P(T(V h6`H@HP(c(yph A6`@HA @p({jj{00 ((p (`((p @ph A6`4@HA4`p(`(` p(j''A( P *.ABDHOabdho'@B??Xn=s"]POWER_FN94200-16404 REV.4010 <860818.1 860818.1732PCTST/PCTST.MAC::PCIF_CI? B2POWER_FN  **,.DLD.DMP.DST.ENTR PAS.1 PAS.2 PAS.3 PAS.NONCDS*HH((`)( +(!h* A+`)@<(!p/`P|(KP~(1P(KP(>(N`hp 7j =mji~dd<,, (P`hp ADj AJmji (P`wp (P`wp ` (^plZki ` p (f` P}(f` (fAf`lndoA m`vpl(dv BDHObcdho@VuBBX?s"]FIND_NUMBER 94200-16404 REV.4010 <860818.1 860818.1732 PCTST/PCTST.MAC::PCIF_CIB0FIND_NUMBER BB 0-.DCO.DLD.ENTR FIND_INTEGERPAS.1 PAS.2 PAS.3 PAS.NONCDS PAS.RANGEDOUBLE PAS.RANGEINTEGERBPPL++A- 6p+`+('` ('p,-8(($-:((($AA- 8:/(&p,()p,`,0P(1 A/`>p,( > ((@eXAAX2ps"]GET_INPUT 94200-16404 REV.4010 <860818.1 860818.1732 PCTST/PCTST.MAC::PCIF_CIAkSGET_INPUT mmT.CBT.ENTR .MVWPAS.1 PAS.2 PAS.3 PAS.4 PAS.5 PAS.ENDOFFILE PAS.NONCDS PAS.PROMPT PAS.READLINE PAS.READSTRINGPAS.RESET_FILEPAS.WRITELINE PAS.WRITESTRING mX;CCpK`K(Jhb6`c6\(((`A(d]]^ L\\^JJ  A(1.^_^__pK(I 7`^ ` (EAC``^,CJ ppK(S//]TAR`RhcA a( PL [Append 'o' for octal]/@\3zAAX\gs"]GET_FUNCTION94200-16404 REV.4010 <860818.1 860818.1732PCTST/PCTST.MAC::PCIF_CIA[GET_FUNCTIONr55.LBT.SBTPAS.1 PAS.2 PAS.3 PAS.BOUNDINTEGERPAS.NONCDSPAS.RANGEINTEGER5@@`pph6`7@H`88(p`A@΄(0`(0h6`;H@HP(,p(/`p(pp `A@(`(hL@DD A6`B@HP(K(Np(`A@(`ph6`J@HDJ@p`az (l(t`@Lp(th6`O@H`OJ `p`p(4 8(P_ P @LkBBXLs" ]FIND_STRING 94200-16404 REV.4010 <860818.1 860818.1732 PCTST/PCTST.MAC::PCIF_CIB(FIND_STRING 00w.ENTR .LBT.SBTPAS.1 PAS.2 PAS.3 PAS.NONCDSPAS.RANGEINTEGER0@@`p~p{h6`{j@H`8{8~(`A@΄ ()h6`Ak@HP(% ()`p΀(p|p{p}`A@΄(u`|(uh6`tww0@::H@HP(F(Ip| (th6`Ay@AHypz`zP (Z(_p p|(tp}h6`{A@AH`z`{ p{`p΀(/@{pO`}wk A`p}( P_ *P@عy>>Xss" ]GET_PC94200-16404 REV.4010 <860818.1 860818.1732PCTST/PCTST.MAC::PCIF_CI> lGET_PC 22fFIND_NUMBER GET_INPUT PAS.1 PAS.2 PAS.3 PAS.NONCDSPAS.RANGEINTEGER2//Akp`0 ( (A`0 (/8(@I@@Xs" ]GET_SUBFNC94200-16404 REV.4010 <860818.1 860818.1732PCTST/PCTST.MAC::PCIF_CI@b GET_SUBFNC22fFIND_NUMBER GET_INPUT PAS.1 PAS.2 PAS.3 PAS.NONCDSPAS.RANGEINTEGER2//Anp`0 ( (A$`0 (/8(@ɾ@@Xs" ]GET_LENGTH94200-16404 REV.4010 <860818.1 860818.1732PCTST/PCTST.MAC::PCIF_CI@lGET_LENGTH22fFIND_NUMBER GET_INPUT PAS.1 PAS.2 PAS.3 PAS.NONCDSPAS.RANGEINTEGER2//Amp`0 ( (A `0 (/8(@߬??XWs" ]GET_LOGR94200-16404 REV.4010 <860818.1 860818.1732PCTST/PCTST.MAC::PCIF_CI? GET_LOGR 22fFIND_NUMBER GET_INPUT PAS.1 PAS.2 PAS.3 PAS.NONCDSPAS.RANGEINTEGER2//Arp`0 ( (A`0 (/8(@ )jAAXps" ]GET_PASSWORD94200-16404 REV.4010 <860818.1 860818.1732PCTST/PCTST.MAC::PCIF_CIASGET_PASSWORD22fFIND_NUMBER GET_INPUT PAS.1 PAS.2 PAS.3 PAS.NONCDSPAS.RANGEINTEGER2//"Asp`0 ( (A*`0 (/8(@}휭@@X8s" ]GET_TAG 94200-16404 REV.4010 <860818.1 860818.1732 PCTST/PCTST.MAC::PCIF_CI@ GET_TAG 22fFIND_NUMBER GET_INPUT PAS.1 PAS.2 PAS.3 PAS.NONCDSPAS.RANGEINTEGER2//AJp`0 ( (A0`0 (/8(@9uX5DDXps"]GET_TYPE_CANCEL 94200-16404 REV.4010 <860818.1 860818.1732 PCTST/PCTST.MAC::PCIF_CIDRGET_TYPE_CANCEL 22fFIND_NUMBER GET_INPUT PAS.1 PAS.2 PAS.3 PAS.NONCDSPAS.RANGEINTEGER2//6AG8p`0 ( (A6`0 (/8(@AAX(s"]GET_PCADR 94200-16404 REV.4010 <860818.1 860818.1732 PCTST/PCTST.MAC::PCIF_CIAaGET_PCADR 22FIND_INTEGERGET_INPUT PAS.1 PAS.2 PAS.3 PAS.NONCDSPAS.RANGEINTEGER2//[ApRp`0 ( (A`0 (/8(@|<CCXos"]FIND_LONG_NUMBER94200-16404 REV.4010 <860818.1 860818.1732PCTST/PCTST.MAC::PCIF_CICmVFIND_LONG_NUMBER NN .DCO.DLD.DNG .DSB .ENTR .LBTFIND_INTEGERPAS.1 PAS.2 PAS.3 PAS.NONCDS PAS.RANGEDOUBLE PAS.RANGEINTEGERN}},&HHAS \mpQ`Q(:pRAS(AAS^(((S `^rU(9Sb(%(7Sd(,(,(7AA] SD `^tU(9pR(<pRhh6` f{@nHH Pl(H(O}VH `Pm(OppR`RV##SWA U`kpR( P# k c @AAX3Ys"]FIND_ADDR 94200-16404 REV.4010 <860818.1 860818.1732 PCTST/PCTST.MAC::PCIF_CIAIFIND_ADDR ::[I.ENTR FIND_LONG_NUMBERFIND_STRING PAS.1 PAS.2 PAS.3 PAS.NONCDSPAS.RANGEINTEGER:DDpH`XA @NA( AOpG`G(`WA@O(pH(CpF Ap%EOpG`G0A(9`FQ@ShE`FpFpH`G("@F pO`H PDI J AI`VpH( ^ "V @AAXC s"]GET_EXT_ADDR94200-16404 REV.4010 <860818.1 860818.1732PCTST/PCTST.MAC::PCIF_CIAyGET_EXT_ADDR11\ FIND_ADDR GET_INPUT PAS.1 PAS.2 PAS.3 PAS.NONCDSPAS.RANGEINTEGER1,,AAp`0 ( (`0 (,8(@kq1BBXa>s"]GET_ACCESS_KEY94200-16404 REV.4010 <860818.1 860818.1732PCTST/PCTST.MAC::PCIF_CIB5GET_ACCESS_KEY22fFIND_NUMBER GET_INPUT PAS.1 PAS.2 PAS.3 PAS.NONCDSPAS.RANGEINTEGER2lld44AE8p4`E('`EA@=(`EA:@<pE`EA@=(%`E('p4`40 (,(/A/<`40 (5l3685(U@J @@Xs"]GET_OFFSET94200-16404 REV.4010 <860818.1 860818.1732PCTST/PCTST.MAC::PCIF_CI@YGET_OFFSET22fFIND_NUMBER GET_INPUT PAS.1 PAS.2 PAS.3 PAS.NONCDSPAS.RANGEINTEGER2// ANp`0 ( (AN`0 (/8(@h(CCXws"]GET_READ_WRITE_P94200-16404 REV.4010 <860818.1 860818.1732PCTST/PCTST.MAC::PCIF_CICvGET_READ_WRITE_P;; +/GET_ACCESS_KEYGET_LENGTHGET_PCGET_PCADR GET_TAG PAS.1 PAS.2 PAS.3 PAS.NONCDS;!!AA Ap ` ( ! 8( @~CCXns"]GET_READ_WRITE_E94200-16404 REV.4010 <860818.1 860818.1732PCTST/PCTST.MAC::PCIF_CICvGET_READ_WRITE_ECC wGET_ACCESS_KEYGET_EXT_ADDRGET_LENGTHGET_OFFSETGET_PCGET_TAG PAS.1 PAS.2 PAS.3 PAS.NONCDSC$$AAA p A ` ($ 8( @ԶCCXs"]GET_ERROR_NUMBER94200-16404 REV.4010 <860818.1 860818.1732PCTST/PCTST.MAC::PCIF_CICIGET_ERROR_NUMBER22fFIND_NUMBER GET_INPUT PAS.1 PAS.2 PAS.3 PAS.NONCDSPAS.RANGEINTEGER2//mAj:p`0 ( (AH`0 (/8(@zǙ@@X}Ts"]GET_YES 94200-16404 REV.4010 <860818.1 860818.1732 PCTST/PCTST.MAC::PCIF_CI@ JBGET_YES :: .CBT.ENTR GET_FUNCTIONGET_INPUT PAS.1 PAS.2 PAS.3 PAS.BLANKFILL PAS.NONC((DS:PP/ --AB HOI.JhL6`M6AJ(&( HKH8JhN6`M6AJ(&()()p-(+p-`-BP0CAB`Sp-(Y._8YES S @TAAXns"]GET_BUFFR 94200-16404 REV.4010 <860818.1 860818.1732 PCTST/PCTST.MAC::PCIF_CIAXQGET_BUFFR HH .ENTR .LBT .MBT .SBTCNUMD FIND_NUMBER GET_INPUT PAS.1 PAS.2 PAS.3 PAS.NONCDS PAS.RANGEINTEGERHhDDhc6`d6A WA@JpNNK`lpNpGhe6`G XqD@mH  Zqhc6ApO`G \q@mH`OH 8G8N(A/H ^spI`I0 (?`JA `v@bhH(BB`I0  D(,Q 11HRAPPpJ(  fK ? 1@CCX¢`s"]PRINT_FMP_MSG 94200-16404 REV.4010 <860818.1 860818.1732 PCTST/PCTST.MAC::PCIF_CICDPRINT_FMP_MSG @@ .ENTR PAS.1 PAS.2 PAS.3 PAS.5 PAS.NONCDSPAS.WRITELINE PAS.WRITESTRING PCIF_BUILD_ERROR@..VAVNJA OKKL MJMLD.,,EACCp(PFM file error : "PCMER ,@8gW'CCXm\s"]GET_FILE_NAME 94200-16404 REV.4010 <860818.1 860818.1732 PCTST/PCTST.MAC::PCIF_CICvBGET_FILE_NAME BB h].CBT.LBT .MBT .SBTGET_FUNCTIONGET_INPUT PAS.1 PAS.2 PAS.3 PAS.NONCDS PAS.RANGEINTEGERBuuq??AhL6A`M6E( ((A(5hN6`M6A E`Zp@p?hNA6`? F@[HA HhO6pA`? J@[H`A 8?8@(hL6`M6E((>Bu//C8B(P_ /@ҰCCXs"]PRINT_PCIF_FUNCT94200-16404 REV.4010 <860818.1 860818.1732PCTST/PCTST.MAC::PCIF_CICaPRINT_PCIF_FUNCTJ--.ENTR PAS.1 PAS.2 PAS.3 PAS.5 PAS.NONCDSPAS.WRITESTRING -G<<`P($P(,P(4P( PC run mode=OFF ON; download accept=OFF ON; PC not online @@۳CCX!=s"]PRINT_PC_SYSTEM_94200-16404 REV.4010 <860818.1 860818.1732PCTST/PCTST.MAC::PCIF_CIC{PRINT_PC_SYSTEM_766.ENTR PAS.1 PAS.2 PAS.3 PAS.5 PAS.NONCDSPAS.WRITELINE PAS.WRITESTRING 6~~vEE`j(`Ljp`Ƃ,<A(1`Ƃ'<A( ()A'0Є(88Ѐ`Ƃ&<(GD@~~~ݒEDDA(PN`%<(_A\A(hf`$<(wAtA(~ `Ƃ/~oo ==<(`Ƃ.<(#`Ƃ-<(*`Ƃ,<(0`Ƃ+<(6Jo^^Apǀ(  -> unsolicited DISABLEdENABLEd -> DISConnected CONNECTED LOCKED UNlocked pending rqst NO rqst pending capability : WriteData WriteProg""[(ram TRansparent UNsolicited STart/STop "@EdCCXs"]PRINT_PC_IDENT_S94200-16404 REV.4010 <860818.1 860818.1732PCTST/PCTST.MAC::PCIF_CICrZPRINT_PC_IDENT_SWW l.ENTR .LBTPAS.1 PAS.2 PAS.3 PAS.5 PAS.NONCDSPAS.RANGEINTEGER PAS.WRITECHAR PAS.WRITEINTEGER PAS.WRITELINE PAS.WRITESTRING WSEE`j(TYpV f^^_`pWpUhe6`U`J@HHApX X_8UJ8W( A +qbb_ 2scc_`YpW :JWd A C{bb_ J%%m^E}cc_`Y@pWA RWd Z%AA;v[--AY(V -> Vendor = Model number = Station ID = A@@@X Ts"]PC_TEST 94200-16404 REV.4010 <860818.1 860818.1732 PCTST/PCTST.MAC::PCIF_CI@FF=ePAS.1  UPAS.2 PAS.3 PAS.4 aPAS.5  OPAS.9910 JPAS.9960 PAS.STOPPC_TEST F}}7.CBT8.DDE.DIV9.DSB.DST:EXECFTIME GET_ACCESS_KEY GET_BUFFR GET_ERROR_NUMBERGET_FILE_NAME GET_FUNCTIONGET_INPUT GET_LENGTHGET_LOGRGET_PASSWORDGET_PCGET_PCADR GET_READ_WRITE_E}yy GET_READ_WRITE_PGET_SUBFNCGET_TAG GET_TYPE_CANCEL GET_YES ;PAS.BITDEPOSIT1 <PAS.BITMASK0=PAS.BLANKFILL >PAS.CLOSEFILE ?PAS.ENDOFFILE @PAS.INITFILEAPAS.INITIALIZEBPAS.INITMEMINFO1PAS.NONCDSyww 7CPAS.RANGEDOUBLE DPAS.RANGEINTEGEREPAS.READNONTEXT FPAS.RESET_FILEGPAS.REWRITE_FILEHPAS.SINGLEMOD 6PAS.TOPOFSTACK1 IPAS.TRACECLOSEJPAS.WRITEDOUBLE KPAS.WRITEINTEGERLPAS.WRITELINE MPAS.WRITENONTEXTwNPAS.WRITESTRING 3PCIF_CLOSE-PCIF_ERROR*PCIF_OPEN 5PC_CALL 4PC_CANCEL 2PC_CONNECT1PC_DISC 0PC_DIUNSOL/PC_ENQUIRY.PC_ENUNSOLPC_FREEZE ,PC_GETKEY (PC_IDENT+PC_LOCK )PC_PCSTAT 'PC_READDPC_READD_EXTxx&PC_READP%PC_RELKEY $PC_START#PC_STOP "PC_SYSTAT !PC_TRANS PC_UNLOCK PC_WRITEB_EXT PC_WRITED PC_WRITED_EXT PC_WRITEP PRINT_PCIF_FUNCTPRINT_PC_IDENT_SPRINT_PC_STATUS PRINT_PC_SYSTEM_x\\A @   y    @h w    @a X    @% U    F-     G5a     B7LaN@a [   AALaENLa   AALaLap^p_ppppfM\GGphpgp`Rpip`D i@ L88i(fp`Qpip`D m@ Mhۈ`AA@ۄ(p(`p8ڈA8i(v=   !=  | "j !h P6` Q6A7 !QQA( (=  } t !h R6` Q67 !( (pppApf=  j !h P6A` Q67 !((=   "t !h R6A` Q67 !((M(MANa  # # LaNa $ $ @Ll``aLaNa %A % LaANa  & & LaNa ' ' AALaNa ( ( LaLaN$a  ) ) AALaN-a  ) ) LaN6a O )A ) LaAALaNAa j ) ) LaNJa (A ( La( =T  9 j !8`TTTh P6` Q6A7 !(^A((Nea ;   `g(oANoa D " " Nva E *A * LaANa  + + Na ,A , LaA (`g(pg(pg(Na - - ALa( =  K j !h P6kOOA` Q67 !(((A `f('`( =  j !h P6A` Q67 !(((A `f(&`( =  j !h P6A` Q67 !(((A `f(~~LL`( A=   j !h P6` Q67 !((( `fA(`( A=&   j !h P6` Q67 !(0(( 2`f(`IA@҄(?`Ip҈`pehe~)CLLAxi`iD .`D 0@Sp~A;W 2~  ihe(xi`iD .A`@AD 0@Sp~;n 2~  iwҀ`(pip7`7D ƈ@ Np`7D @ O878i(JJ( =  3j !h P6` Q6A7 !(A(7(7 `f(6`IA@҄(`Ip`pehexi`iD .`AD 0@Sp~; 2~  ihe(Axi`iD .`@AD 0@Sp~A;II 2~  i`(-pip7`7D @ M((pehex~`~D .؀`7 @ShHAAH`D 0@Sp; 2  ~he(x~`~AD .`7 hHAH`AD 0@SpF"MMA;* 2  ~878i(6҄( =>  3j !h P6` Q6A7 !(HA(( J`f(`Ap`pehexi`iD .`AD 0@Sp~;g 2~  ihe(Axi`iD .oKKA`@AD 0@Sp~;~ 2~  i``pehexi`iD .A`@BD 0@Sp~; 2~  ihe(xi`iAD .`@CD 0A@Sp~; 2~  i`apehexi`iAD .`@DD 0PP@Sp~; 2~  ihe(xi`iAD .`@ED 0A@Sp~; 2~ A i( A=   j !h P6` Q67 !(( ( `gA(A`f(  ( SR OOA=   j !h P6` Q67 !(((*τ( =&  j !h P6` Q6A7 !(0A(4(433A( =;  j !h P6` Q67 !(E(O(OG`f(NA+NЄ( =V  j !h P6` Q-YOO67 !(`(j(jb`f(iA iЄ( =q  4j !h P6` Q6A7 !({A((}`g(`fA(2Є( =  j !h P6` Q6A7 !((=  5t !h R6` QOO67 !(((`fA(1( A=   j !h P6` Q67 !(((`gA(A`f()`A`( A=   j !h P6` Q67 !(( ( PP`g(`fA( ( A` 5 A`( =  j !h P6` Q67 !((,(, `f(+A"(`+`( =3  j !h P6` Q6A7 !(=A(P(P?`g(FDF`fNGPPA(O$OЄ( =W   j !h P6` Q6A7 !(aA(t(tc`g(jhj`fA(s#sЄ( ={   j !h P6` Q6A7 !(A((AAA`g(`f(RqLLA!```(`pҀ`OA@(`(`KA@҄(`A@L(`MA@҄(`A@N(`KAp( =   j !h P6` Q67 !QQ((*(*,`(()`FA@Ä(`AD |@ LAhNa 3 3 K aA Na  4 4 KaA La`p()AN"a  4 4 K'a ALa( =1   j !h P6` QB4GG67 !(;(p(p=`f(ep pA%H`(L(e`p`AD @ LP(X(Zp ` (e`چA@F(L` (o`D @ L( A=w   j !h P6` Q6{PPA7 !(A((AA`f(4A( =   j !h P6` Q67 !(((p`g(AA`f(5``(̀`HA@(2/MMp`KA@҄(`Kp҄( =   4j !h P6` Q6A7 !(A((h AA9 6C 8 :x`fA(/` <` ApAH " =(`p`("ZZ`(tN"a # >A > K'a N.a - 5 5 `(?N8a 2 ? ? `pi>i(INFa 9 5A 5 INPa > 4 4 AKUa LaN^a J >A > Kca Nja B 4A 4 Koa La`GrPPAp(N{a T @ @ LaNa f $A $ La( =  | j !h P6` Q6A7 !(A((`p`f(/` <׀` AApH " A(`p`P@((Na}XX > > AKa `(ANa  ? ? `ApiAi(Na 5 5 ANa F 4 4 Ka AALaNa > > KaA Na 4 4 K aA La`p(( A=   4j !h P~~LL6` Q67 !(#(0(0%'`f(/A./A( =7  4j !h P6` Q67 !(A(K(KC`f(JA0JЄ( =R  j !h P6` Q6A7 !(\( i( i`҆A@L(`~/fLL(h(`(piphD 8J|aA Na  A `D  @ Np~Ka~ 4ALa88i(p( h`( `p`ԀN AGpf`f(̀piph 8AAJWLLa Na   `D @ Np~AKa~ 4La8ڈ8i(`NpiHi B C( A`fD @ Npe`Np~H~ B D@G( pip`NpAH BA E@D F@S ,`-JJHH S@<88i(K aAf N a   K aAe 4La( h`@P AApf`f hHPP( /`fpf`f( hpiAp`D &@ Npehex~K Fa~ 4ALa HJJ`چA@f( Z`f hHPP( Z( ehe(Ax~K ca~ 4La88i( 7( = p  j !h P6` Q6A7 !( zA( ( N a ( ( Lap`JA@ڄ( `f( ` MMp ڀ( pf( A=   j !h P6` Q67 !( ( (  p `gA(  AA  `f( F    T  p? ( `چA@K( `pڄ`D LA@ MpiE i RR(  `A>   ( A=   j !h P6` Q67 !( ( I( I p  `g( AA  `f( H G h   T  `KA@҄( &`Kp& /  `Հ`~~ 1LL( Cpip`D f@ Np~AMh~8ڈA8i( 7> Hh  ( A= P   j !h P6` Q67 !( Z( ]( ] \( A= d  N "j !h P6` Q67 !( ~( mA= t  H t !h R6` Q67 !( ~( ~ }PPA( ( =   j !h P6` Q67 !( ( ( Aph( =   "j !h P6` Q67 !A( ( =   t !h R6` Q67 !( ( ( 3A N a I I LaAp( N a J J La`f{ [[( `A( ( - N a KA K N a   La( ALa( N a %A % LaA(>   > h  A> a  > A  I A:  O7P?,+.4D (``25 0(   #! __jteIINPUT OUTPUT PCIF/1000 exercizer 94200-16404 REV.4010 <860818.1732> ABUPABDOWNEXEXIT?? PCIF/1000 acces ``s routines may be called via their name (without typing PC_ or PCIF_) Calls may be made in : in synchronous mode (tag & key always=0) or asynchronous (tag and access key are asPL ``ked) Mode is changed by using the function : MODE Parameters may be entered at once on the same line but missing parameters will be explicitly asked MODE current mode is asynchr H``onous READD ** Input can be stopped by entering "*","a" or "A" Special functions are : MODE BUFRD BUFWR EXIT EX DWLOAD UPLOAD ERROR ECHO to change mode typee `` "YES". All other input will not do any change NO change made READP WRITEDWRITEPREADDEXTWRITEDEXT WRITEBEXT FREEZEOPENCLOSE LOCKUNLOCKCONNECT DISCDISCONNECTPCSTATIDENT SYSTATSTART STOPTRANS GE ``TKEY index : key : key : RELKEYCANCELCALLENQUIRY message get for PC reply to unsolicited reply to typer= logr = typer= tag no message currently in access key To v h``wait on enquiry use function : ENQUIRYW ENQUIRYW message get for PC unsolicited reply to tag logr = ENUNSOL DIUNSOL BUFRD -> -> -> BUFWR enter values as INTEGER, enter ag ``'*' or 'a' to stopDWLOADUPLOADERROR ECHOEXEXIT -> end of PCTEST program -> unknown test function name -> error : -> function not executed pctest > pc ? length ? logr ? XX(==pcadr ? file ? subfnc ? passwd ? tag ? typec ? key ? YES/NO ? error# ? offs et ? 6AX v6@@C @,KHInJ]HIj,HIjIo HIoIoHJ.IounHInJ],HJ0J.J0JVIlJ.JVIjIlJ[Vk,,׊IlJ^IoJ2JV}nIon-ei- Il! ,,Ij! ,,,J2JV}n n- HIjIoHIl'IoIo HIo/PCIF/PCIFGEN/PCMC0.REL:::5:5:127 644 0 0 2400 5303664623 34457 /PCIF_GEN/PCIFGEN/PCMC0.REL:::5:5:127 !%$ PCMC0 REL +i+i+iy fFST ((AAXas]PAS.GLOBALINFO94200-16412 REV.4010 <860731.1 860818.1900CDS/PCMC0.MAC::PCIF_CIA@Ba>>Xw(4s]PCMON 94200-16412 REV.4010 <860731.1 860818.1900 CDS/PCMC0.MAC::PCIF_CI> TSPAS.1 PAS.3 wPAS.STOPPCMON {{7.LDX .MB00 .SDSP EXECPAS.CDS PAS.INITIALIZEPAS.INITMEMINFO2 PAS.TOPOFSTACK2 PAS.TRACECLOSEPCIF_DEBUGGER_TOPCIF_DISPATCH PCIF_INITIALIZE PCIF_LOAD_SEGMENPCIF_SCHEDULERPCIF_STOP_MONITO{GS=SPCMO N `h x@ h6`6 pűp P(4`k(4(+(v`(>@`(Q 0 `(u` KS (i ``(h 0 --Zfp(u ``0쀈0(m(4(x-ooSSSPCINIPCKERPCDBGPCSTP @ PCIF>MIMKINFMPCOPN PCTMO PCDMX /PCIF/RUNTIME/PCMER.ERR o@TsO/PCIF/PCIFGEN/PCMC1.REL:::5:37:128 644 0 0 22400 5303664624 35046 /PCIF_GEN/PCIFGEN/PCMC1.REL:::5:37:128 "&$% $%PCMC1 REL +i+i+i%LgnFST AAXPrs]PCMON_ERROR 94200-16413 REV.4010 <860731.1 860818.1901 CDS/PCMC1.MAC::PCIF_CIA@1Pr??XCs]PCIF_01 94200-16413 REV.4010 <860731.1 860818.1901 CDS/PCMC1.MAC::PCIF_CI? o:PCIF_01 55 T[.DAD.DLD .DMP.DST .EXIT0.MPY .SDSP EXECPAS.1 PAS.3 PAS.CDS 5zzIC?S UPDATE_CURRENT_TIME P`P(`ph  J`< @  h   "`H ( z7 Q<@%BBX<<s]PCIF_LOAD_SEGMEN94200-16413 REV.4010 <860731.1 860818.1901CDS/PCMC1.MAC::PCIF_CIBN-PCIF_LOAD_SEGMEN?? .EXIT0.LDX.MB00 .MW00 .SDSP PAS.1 PAS.3 PAS.CDS PAS.COMPAREBYTESPAS.SEGMENTLOAD ?ff<8S PCIF_LOAD_SEGMENT `@ @6A`6 (,(h6`60 h6`@ 6@&`@H `hH AH( f @ J??X-s]PCIF_02 94200-16413 REV.4010 <860731.1 860818.1901 CDS/PCMC1.MAC::PCIF_CI? -pPCIF_02  &&.EXIT0.LDX.MW00 .SDSP PAS.1 PAS.3 PAS.CDS &ZZ --S CHECK_RTE_ERROR_CODE `:P ((`:P ((p (p `  )`H`hH `p ( Z  @???Xts ]PCIF_03 94200-16413 REV.4010 <860731.1 860818.1901 CDS/PCMC1.MAC::PCIF_CI? okPCIF_03 44 F.EXIT0.LBT .SBT .SDSP IMESS PAS.1 PAS.3 PAS.CDS XLUEX XREIO 4cbA=S SEND_MSG_TO_OPERATOR `p p h6H@ Hh6p @ HH`  8 8 (`h(A`hp ` p `p`-p 0   (7(@`-p @ (jTTA)#`i(ap ` p `-p    i(W(``-p @ (j`-p @ Tj @&`@H (  @ϣ??Xfs]PCIF_04 94200-16413 REV.4010 <860731.1 860818.1901 CDS/PCMC1.MAC::PCIF_CI? mWPCIF_04  .. mL.EXIT0.LBT.LDX.MW00 .SBT .SDSP PAS.1 PAS.3 PAS.CDS .@@SAPPEND_STRING p `-p-p `-A@P(V` A@(V` p ` (@`@ @6J@ HP0(<`@ @6@ HJP (<(@` P(@(UQQ@&&`@ @6@ Hh6p@-H``-p-@p ((`H@ `AhH H( Q   @{;??Xs]PCIF_05 94200-16413 REV.4010 <860731.1 860818.1901 CDS/PCMC1.MAC::PCIF_CI? mPCIF_05  --.EXIT0.SDSP PAS.1 PAS.3 PAS.CDS PCIF_04 PCIF_CONV_INT_AS-44gSAPPEND_NUMBER 0    '`Hp ( 4@帥BBXs]BUILD_ERROR_MSG194200-16413 REV.4010 <860731.1 860818.1901CDS/PCMC1.MAC::PCIF_CIB1BUILD_ERROR_MSG1RR>.DAD.DDE .DMP.DST .EXIT0 .LBT.LDX .LPX .MB00 .SBT.SDSP PAS.1 PAS.3 PAS.BITEXTRACT2 PAS.CDS PCIF_05 RI)A?SBUILD_ERROR_MSG1` p ` ((`8A@ (`p h  J  .@6h6AJ `Pp-`-P(? h6@-H P (;(?@-p-(/p VVWA.* `-A@P(p` p `- p-h K  @ ph6p@-H`V``Ymo*((A`-P( h6@-H P (|(@-p- (p`-p-` P((@@  (`H@p p ( `QP(@:XBBXW&s]PCIF_STOP_MONITO94200-16413 REV.4010 <860731.1 860818.1901CDS/PCMC1.MAC::PCIF_CIBp PCIF_STOP_MONITO..^G.EXIT0.SDSP PAS.1 PAS.3 PAS.CDS PCIF_HALT PCIF_LOAD_SEGMEN.BB& S PCIF_STOP_MONITOR  p  0 @$`@Hp ( B@8jW*BBX+s]MONITOR_ABORT 94200-16413 REV.4010 <860731.1 860818.1901 CDS/PCMC1.MAC::PCIF_CIB "MONITOR_ABORT ;;.EXIT0.SDSP PAS.1 PAS.3 PAS.CDS PCIF_DEBUGGER_TOPCIF_LOAD_SEGMENPCIF_STOP_MONITO;OO+%SMONITOR_ABOR T p`(p`0(0@  "`H( O  @g8AAXEs]PCIF_ERROR0 94200-16413 REV.4010 <860731.1 860818.1901 CDS/PCMC1.MAC::PCIF_CIA'PCIF_ERROR0 --.EXIT0.SDSP BUILD_ERROR_MSG1PAS.1 PAS.3 PAS.CDS PCIF_03 -22SPCIF_ERROR0   0$`Hp ( 2  @Ih{AAXF#s]PCIF_ERROR1 94200-16413 REV.4010 <860731.1 860818.1901 CDS/PCMC1.MAC::PCIF_CIA(PCIF_ERROR1 33 .EXIT0.SDSP BUILD_ERROR_MSG1PAS.1 PAS.3 PAS.CDS PCIF_03 PCIF_05 3;;#SPCIF_ERROR1   0 @ &`Hp p ( ;  @?@@X%'s]PCIF_ERROR1S94200-16413 REV.4010 <860731.1 860818.1901CDS/PCMC1.MAC::PCIF_CI@[PCIF_ERROR1S<< 3R.EXIT0.LDX .MW00 .SDSP BUILD_ERROR_MSG1PAS.1 PAS.3 PAS.CDS PCIF_03 PCIF_04 <BB('!SPCIF_ERROR1S 0 @ P (`H p `hH  ( B  @|O@@X&?s"]PCIF_ERROR2S94200-16413 REV.4010 <860731.1 860818.1901CDS/PCMC1.MAC::PCIF_CI@\,PCIF_ERROR2SFF .EXIT0.LDX .MW00 .SBT .SDSP BUILD_ERROR_MSG1PAS.1 PAS.3 PAS.CDS PCIF_03 PCIF_04 PCIF_05 FppJ?7SPCIF_ERROR2S 0 P `-A @P ($@-p-h6@-H`/ @ ` *`H p `h H  p ( p u @^AAX8 s#]PCIF_ABORT0 94200-16413 REV.4010 <860731.1 860818.1901 CDS/PCMC1.MAC::PCIF_CIA"PCIF_ABORT0 66.EXIT0.SDSP BUILD_ERROR_MSG1MONITOR_ABORT PAS.1 PAS.3 PAS.CDS PCIF_03 655 SPCIF_ABORT0 0 @@ $`H@p ( 5  @3RAAX9&s$]PCIF_ABORT1 94200-16413 REV.4010 <860731.1 860818.1901 CDS/PCMC1.MAC::PCIF_CIA#PCIF_ABORT1 << 3.EXIT0 .SDSP BUILD_ERROR_MSG1MONITOR_ABORT PAS.1 PAS.3 PAS.CDS PCIF_03 PCIF_05 <>>Ѳ&SPCIF_ABORT1 0(( @ P @&`@H p p ( >  @{;BBXs7]PAS.ERRORCATCHER94200-16413 REV.4010 <860731.1 860818.1901CDS/PCMC1.MAC::PCIF_CIB9PAS.ERRORCATCHER^^ .EXIT0.LDX .SDSP BUILD_ERROR_MSG1INIT_PASCAL_ERROMONITOR_ABORT PAS.1 PAS.3 PAS.CDS PAS.COMPAREBYTES PAS.INLINEERROR PCIF_03 PCIF_05 ^~~97S PASCAL_RUN_TIME_ERROR p h6`6A ((P()P(SP(YP(aP(VP(^(fP(9P(>dK@`zx} @}` )`H@   `p ( >  @??X&s ]PCIF_43 94200-16414 REV.4010 <860818 860818.1902 CDS/PCMC2.MAC::PCIF_CI? pPCIF_43  **0.DLD.DST.EXIT0.LPXR .SDSP PAS.1 PAS.3 PAS.CDS *@@-&&&SSHARE_BUFFER    x  ` @%`@H ( @  @??Xms ]PCIF_44 94200-16414 REV.4010 <860818 860818.1902 CDS/PCMC2.MAC::PCIF_CI? r^PCIF_44  ;; TD.DAD.DDE.DLD.DST.EXIT0 .LBPR .LPX .LPXR .SDSP PAS.1 PAS.3 PAS.CDS ;@*KKSSWAP_BUFFER `p p ` p AH( (Px`p ` p `(:h  @A@@ @ @(Lh D  @ @@@R%K""8 (N8(! p  @( +`H@ p( @  @Wucccrcc/cc/ccc㱉c/ U!w戀c //䈀c //䈀c!c//ؙzcc/zcc/wg L LW#W!Uc눀c鈀cgw//PCIF/PCIFGEN/PCMC3.REL:::5:243:128 644 0 0 171400 5303664627 36755 /PCIF_GEN/PCIFGEN/PCMC3.REL:::5:243:128 #'$ XPCMC3 REL +i+i+iy FST BBX#%PCKER 94200-16415 REV.5005 <880310.1 880310.1913 /PCIF_CI/REV5005/CDS/PCMC3.MACB@ECCX|>#%PCIF_11 94200-16415 REV.5005 <880310.1 880310.1913 /PCIF_CI/REV5005/CDS/PCMC3.MACC p1PCIF_11  22 .DAD.DDE.DMP.DST.EXIT0 .LPXR .SDSP PAS.1 PAS.3 PAS.CDS 2ppVM><SPUT_MSG_IN_QUEUE` p ` p ` (0h K p  x ` (- ` (/` @p ((`H@ p p ( p  @&=CCX#%PCIF_12 94200-16415 REV.5005 <880310.1 880310.1913 /PCIF_CI/REV5005/CDS/PCMC3.MACC qPCIF_12 | ;; UP.DAD.DDE.DMP.DST.EXIT0 .LBPR .LPX .LPXR .SDSP PAS.1 PAS.3 PAS.CDS ;LHS PUT_TASK_IN_QUEUE h Kp  ((  !pp p h  Jp @@ x   !p`A@44mL(up ` (S(V`(eh K p  `4ii3e64h Kp  ` (` ( `p ` p ` p ` (-(@` @+`@H p( i@|/FFX+N#%GET_TASK_FROM_QU94200-16415 REV.5005 <880310.1 880310.1913/PCIF_CI/REV5005/CDS/PCMC3.MACFCGET_TASK_FROM_QU ?? .DAD.DDE.DMP.DST .EXIT0.LDX .LPX .LPXR .MW00 .SDSP PAS.1 PAS.3 PAS.CDS ?LHS GET_TASK_FROM_QUEUE p  J @@  x   @ 0` (?  J @hAH ` @`  '`H@  .Lp ( B@e%FFX(O#% SWAP_CONTEXT_RAM94200-16415 REV.5005 <880310.1 880310.1913/PCIF_CI/REV5005/CDS/PCMC3.MACFs >SWAP_CONTEXT_RAM11 Ů.DAD.DIN.DLD.DST.EXIT0 .LPX .SDSP PAS.1 PAS.3 PAS.CDS 1NFFS SWAP_CONTEXT_RAM_EMA` p p ` ((=`('@J  `@ (1  `@ @` p ` @p (-`H 0F @p@p (   @X[wFFXWb#% GET_RAM_CONTEXT_94200-16415 REV.5005 <880310.1 880310.1913/PCIF_CI/REV5005/CDS/PCMC3.MACFI:WGET_RAM_CONTEXT_EE .DAD.DDE.DLD .DMP.DST .EXIT0 .LBPR .LPXR .SDSP PAS.1 PAS.3 PAS.CDS SWAP_CONTEXT_RAME~~QxTLS GET_RAM_CONTEXT_INDEX h K     x ` (V` (Gh   JA@@   x@ @@ @ ~##T@` p  %`H@ p (#@Wvv6DDX{X#% QUEUE_UP_MSG94200-16415 REV.5005 <880310.1 880310.1913/PCIF_CI/REV5005/CDS/PCMC3.MACDƃKQUEUE_UP_MSG>> h.DAD.DDE .DMP.DST .EXIT0 .LPXR .SDSP PAS.1 PAS.3 PAS.CDS PCIF_11 PCIF_12 >`OGSQUEUE_UP_MSGh   J@ @ ` h   J@@ @(4 ` (>@ x@ @ (J0@  &`HFO  p p ( @q;1EEX j#%QUEUE_DOWN_MSG94200-16415 REV.5005 <880310.1 880310.1913/PCIF_CI/REV5005/CDS/PCMC3.MACE ]QUEUE_DOWN_MSG>> h.DAD.DDE .DMP.DST .EXIT0 .LPXR .SDSP PAS.1 PAS.3 PAS.CDS PCIF_11 PCIF_12 >PJSQUEUE_DOWN_MSGh ((K     x  `@ @(- `h  J @@ (F@ ` @(P x@ 66P@ (\0@  &`H@ p p ( 6 @j*GGX>?#%IS_MSG_IN_QUEUE 94200-16415 REV.5005 <880310.1 880310.1913 /PCIF_CI/REV5005/CDS/PCMC3.MACG0IS_MSG_IN_QUEUE -- @ .DAD.DDE.DMP.EXIT0.LPX .SDSP PAS.1 PAS.3 PAS.CDS -xxi?=SIS_MSG_IN_QUEUE p ` p ` (,` (,` P ((p (+h  K` x (` p `)`H p p `p( x  @ݙYCCX#%PCIF_13 94200-16415 REV.5005 <880310.1 880310.1913 /PCIF_CI/REV5005/CDS/PCMC3.MACC vPCIF_13  66 .DAD.DDE.DMP.DST.EXIT0 .LPX .LPXR .SDSP PAS.1 PAS.3 PAS.CDS 6NJSREMOVE_MSG_FROM_CURRENT_SET h  p J@@ x ` P ('(Dh  p J@@ x @` (` (` p h  33KZNJp A x ` P (\(h  Kp 3WWi.,@ xh  p JA @` ` (` P @((D(`H@ p p (W@FFX#%ALLOCATE_RAM_BUF94200-16415 REV.5005 <880310.1 880310.1913/PCIF_CI/REV5005/CDS/PCMC3.MACF\ALLOCATE_RAM_BUFN77 .DCO.DIV.DLD.DST .EXIT0.MPY .SDSP PAS.1 PAS.3 PAS.CDS PCIF_44 7^xDDS ALLOCATE_RAM_BUFFER_SPACE `(`@ `耀pppp `A@ (o`(o` @@@ (7(:(:p(n`>P (k`?P (k`@ pFF3D##`(H(K@p`@ h` @ (_p` p(k`A@(kF#gCA`p` p` p (`(t`p `@ hd`(`@h J@ y    ` @`(@ ((` p`KK)'`(` p`` @p  2`H p@p@(KH=@@__CCX f#%PCIF_14 94200-16415 REV.5005 <880310.1 880310.1913 /PCIF_CI/REV5005/CDS/PCMC3.MACC /sWPCIF_14  SS% .DAD .DDE.DLD .DMP.DST .EXIT0 .LBPR .LPXR .SDSP ALLOCATE_RAM_BUFPAS.1 PAS.3 PAS.CDS PCIF_41 PCIF_ABORT0 SxTLS ALLOCATE_BUFFER_ENTRY ` ((`A@ (`P  (+p(Uh   J  A@ @ x@` @  ,,_T@p` +`H@p p `p(, ,@ؼCCX>#%PCIF_15 94200-16415 REV.5005 <880310.1 880310.1913 /PCIF_CI/REV5005/CDS/PCMC3.MACC pPCIF_15 G cc .DAD .DCO .DDE.DLD.DMP.DST.EXIT0.LBPR .LPXR .SDSP GET_TASK_FROM_QU PAS.1 PAS.3 PAS.CDS PCIF_12 PCIF_14 PCIF_42 PCIF_ERROR0 c5PLS FREE_BUFFER_ENTRY h K      ('(gpp ` (V` (Vpp ` @ (D(S(S` @p `,,P@ 8 @8(7x @,QOgLDp ` (` (Ġh  K    !( x (x h K     x@ (P  ;;?[p `  (p ` ( (i+`Hp( ;0  @&ECCX h#%PCIF_16 94200-16415 REV.5005 <880310.1 880310.1913 /PCIF_CI/REV5005/CDS/PCMC3.MACC u[PCIF_16  ZZ0 .DAD .DDE.DIV.DLD .DMP.DST .EXIT0 .LBPR .LPXR .SDSP ALLOCATE_RAM_BUFPAS.1 PAS.3 PAS.CDS PAS.SINGLEMOD PCIF_ERROR0 ZSMS GET_RAM_BUFFER_OFFSET  hK       (-(Kx @x P @    (Z,,S(Z`  -`H pp(,g \ @m-CCXA#% "PCIF_17 94200-16415 REV.5005 <880310.1 880310.1913 /PCIF_CI/REV5005/CDS/PCMC3.MACC 2nPCIF_17 V  XX.DAD.DDE.DLD .DMP.DST .EXIT0 .LBPR .LDX .LPX .LPXR .MW20 .SDSP PAS.1 PAS.3 PAS.BITMASK0PAS.BITMASK1PAS.CDS X??SGET_MSG_ENTRY `v(p ` (-`wA @t (pw ( `wpw @w ,HH@p (@vpv @w ,HH@`wp `xpxMMs?'%`xP(C(E pxhwK      xM0 M@ `xMfHH@  x@ @  ` P(P((@  (  `pp h  @ 8 8(h&&x@ x C0C00 (p `  (`H`hAHp ( 0!!&!  @g'FFX!%'#%!$MSG_IN_OVERFLOW_94200-16415 REV.5005 <880310.1 880310.1913/PCIF_CI/REV5005/CDS/PCMC3.MACF"MSG_IN_OVERFLOW_ c.EXIT0.SDSP PAS.1 PAS.3 PAS.CDS II''S MSG_IN_OVERFLOW_AREA `uA@v(p(p` #`H`p( I@"CCXO#%!&PCIF_18 94200-16415 REV.5005 <880310.1 880310.1913 /PCIF_CI/REV5005/CDS/PCMC3.MACC nDPCIF_18  UU.DAD .DDE .DMP.DST .EXIT0 .LBPR .LPXR .SDSP GET_TASK_FROM_QUPAS.1 PAS.3 PAS.BITMASK1PAS.CDS PCIF_12 PCIF_15 UpH@SFREE_MSG_ENTRYh K     0   @ @ ,H@`v pv` pw`(C@p P (4 %`HtHp ( d@.nCCX'#%"'PCIF_21 94200-16415 REV.5005 <880310.1 880310.1913 /PCIF_CI/REV5005/CDS/PCMC3.MACC pPCIF_21  22 .DDE.DMP.EXIT0.LDX.LPX .MW00 .SDSP PAS.1 PAS.3 PAS.CDS 2CC~:'%SGET_COPY_OF_TASKh  J` A@hD  $`H p ( C9 B@0ORCCX$#%#(PCIF_22 94200-16415 REV.5005 <880310.1 880310.1913 /PCIF_CI/REV5005/CDS/PCMC3.MACC nPCIF_22  22 .DDE.DMP.EXIT0.LDX.LPX .MW00 .SDSP PAS.1 PAS.3 PAS.CDS 2??b$"SUPDATE_TASK h  ` J`@ $`H@ p ( ?9 B@OnwCCX(#%$+PCIF_23 94200-16415 REV.5005 <880310.1 880310.1913 /PCIF_CI/REV5005/CDS/PCMC3.MACC .lPCIF_23  %%*/.EXIT0.SDSP PAS.1 PAS.3 PAS.BITMASK1PAS.CDS %QQT((SBIT_ON` p `@ @` x ,H@p ` @(`@Hp p `p (Q@EEXO#%%0GET_USER_AK 94200-16415 REV.5005 <880310.1 880310.1913 /PCIF_CI/REV5005/CDS/PCMC3.MACEA@GET_USER_AK !!H.EXIT0.MPY.SDSP PAS.1 PAS.3 PAS.CDS !,5@@SGET_USER_AK ` @ @@P ((p (<p `!A(<` (<`@p`P (1(8P (5(8p (;(` p`&&@ )`H p p `p( &D$U@"hDDXvG#%&1FIND_PC_TASK94200-16415 REV.5005 <880310.1 880310.1913/PCIF_CI/REV5005/CDS/PCMC3.MACD]<FIND_PC_TASK 22 .DAD.DDE.DMP.DST.EXIT0 .LPXR .SDSP PAS.1 PAS.((3 PAS.CDS 2FDSFIND_PC_TASK `p p h  p J@ @ P (!($p ('` p `A@ (2` ( ` (8` p (:p ` '`H p F(  @CCX&#%'4PCIF_24 94200-16415 REV.5005 <880310.1 880310.1913 /PCIF_CI/REV5005/CDS/PCMC3.MACC /uPCIF_24  BB ?.DAD .DDE.DLD .DMP.DST .EXIT0 .LPXR .SDSP PAS.1 PAS.3 PAS.CDS PCIF_11 PCIF_18 B<IGS CANCEL_MSG_IN_QUEUE `pp`(h K  p  x @ `P(JP(9(T P@(@(I P(G(Ip @@vI(j  P(Q(Sp (j `P(](jp `(j  P(j@[[vxh-)p ` (r@(}`(x`p(}P` p(`p` /`H ppp p( [@eCCXU#%(=PCIF_25 94200-16415 REV.5005 <880310.1 880310.1913 /PCIF_CI/REV5005/CDS/PCMC3.MACC tPCIF_25 e ?? .DAD.DCO.DDE.DLD .DMP.DST .EXIT0 .LBPR .LPXR .SDSP PAS.1 PAS.3 PAS.CDS ?=FDS FLAG_MSG_IN_QUEUE `p`(h  J@A@@p @ #&p `P(WP(FP(5(a P@(<(E P(C(Ep (wFF"F$$J@@ x@@(V(Vp (w  P(^(`p (w `P(j(wFWj<<p `(w  P(wp ` (` - (` .(`P((` +(` 0p (` 0@p h &x xC0@C x(++C@ -`@H  ppp p( +/@SDDXG;8#%)?PCIF_WAIT 94200-16415 REV.5005 <880310.1 880310.1913 /PCIF_CI/REV5005/CDS/PCMC3.MACDp/PCIF_WAIT !!=.EXIT0.SDSP EXECPAS.1 PAS.3 PAS.CDS !ZZv84SPCIF_WAIT S RTE_TIME_LIST_ERROR  #`H( ()(.`@"`H@(Z d  @CCX a %#%*HCLEAN_USER94200-16415 REV.5005 <880310.1 880310.1913/PCIF_CI/REV5005/CDS/PCMC3.MACCT%CLEAN_USER^^ .DAD .DDE.DMP.DST.EXIT0.LPXR .MPY.SDSP PAS.1 PAS.3 PAS.CDS PCIF_12 PCIF_18 PCIF_24 PCIF_25 PCIF_ERROR1SPCIF_ERROR2S^p%==SCLEAN_USER`(^p `p@p `  @ @P((` p 8 8(` (<` !(``9P(P(P((#`}P((xp (` @ptQQD<`(`h (`p @&( (=`}P((` @p`@  `:@`;xp (IIM&("(=(` (" (= `:@`;xp IDD='!(Mxp (S @,`@H` h! p ( D88y""d&"_ b|Pd'8ld wd @bDEEXa#%4SEND_IO_MSG 94200-16415 REV.5005 <880310.1 880310.1913 /PCIF_CI/REV5005/CDS/PCMC3.MACE:SEND_IO_MSG nhhȒ .DAD .DDE .DMP.DST.EXIT0.LPXR .MPY.SDSP ASK_DOWNLOADASK_SCHEDULE PAS.1 PAS.3 PAS.CDS PAS.INLINEERROR PCIF_11 PCIF_ABORT0 PROCESS_IO_CABLEhF<SSEND_IO_MSG h    J@  @  .P(%P(>P(DP(*((` @p`@(8P @  (@ @ ( PPF"@x ` @p`@P(\P(vP(vP((`@h`@(nPAeA5`@pp (r`@h `(`@(`@pp (`@h (@  (hU (hX '`Hp  p (    @%DDXB#%5TRY_IO_AGAIN94200-16415 REV.5005 <880310.1 880310.1913/PCIF_CI/REV5005/CDS/PCMC3.MACDd9TRY_IO_AGAIN<< F.DAD.DDE.DMP.DST .EXIT0 .LPXR .SDSP PAS.1 PAS.3 PAS.CDS PROCESS_IO_CABLE<uuB>STRY_IO_AGAIN h  J@ @p  x  0 ` (-`p(2 `` (8`( @ $`@H ( u  @hFFX*N#%6DO_CLASS_IO_WRIT94200-16415 REV.5005 <880310.1 880310.1913/PCIF_CI/REV5005/CDS/PCMC3.MACFu;DO_CLASS_IO_WRIT//5.EXIT0.SDSP ABREG CLASS_IO_ERROREXECPAS.1 PAS.3 PAS.CDS /E=S DO_CLASS_IO_WRITE_READ`@p`pp9p0 ($(,@<= @:;`9(:`:P(8(: @p9/`H@ pE pp p p( a @_FFXo#%7SEND_SERVICE_CAB94200-16415 REV.5005 <880310.1 880310.1913/PCIF_CI/REV5005/CDS/PCMC3.MACFbbSEND_SERVICE_CABDD .DAD.DDE.DLD .DMP.DST .EXIT0 .LPX .LPXR .SDSP DO_CLASS_IO_WRITPAS.1 PAS.3 PAS.CDS DJFS SEND_SERVICE_CABLEh  K    @xn xo P(4P(4P(4(5(R  x ` (Mh  J A XX4J%#xp(R xp` pr`m?0@pm@k tn m '`H p p ( X( @гsFFX1/#%9SEND_MSG_COMPLET94200-16415 REV.5005 <880310.1 880310.1913/PCIF_CI/REV5005/CDS/PCMC3.MACFz$SEND_MSG_COMPLETXX .DAD .DDE.DLD .DMP.DST .EXIT0 .LPX.LPXR .SBT.SDSP DO_CLASS_IO_WRITPAS.1 PAS.3 PAS.CDS PCIF_16 SEND_SERVICE_CABXHDS SEND_MSG_COMPLETION h    J@  @  xlh6``m@0lpm xk xtA@  A xg` @hi (n(HBB`(   P( P( P( P ( P ( P ( P ( P ( P( llW77P( P#( P&( P'( P( P( A@@(@ A@`(lW:4`m?0pm@ P(( x Pkt m(저`i(pi`@ipPkt gm(@ (#`j(pu`t(yy40`g(pu`upr@ u`u(`9( pj`jP((#`m?0pm`@ipPkgm@ %`@Hp ( y""Um"@%DSCCX+@ #%:SEND_REPLY94200-16415 REV.5005 <880310.1 880310.1913/PCIF_CI/REV5005/CDS/PCMC3.MACCuSEND_REPLYll9 .DAD .DDE .DMP.DST.EXIT0.LBPR .LPXR .SDSP CLEAN_USER PAS.1 PAS.3 PAS.CDS PAS.INLINEERROR PCIF_11 PCIF_15 PCIF_18 PCIF_ABORT0 SEND_MSG_COMPLETl~~*JDSSEND_REPLYh  K     ` @( `  ('`  (`(<@ P(7(<P@ ( 0@ ` f(~IIwJ 0 ` 9P(ZP(aP(dP(vP(v({P p j(` @p f( x IMMhj* P @ k p j( (h  (p@ f '`H@p p (M- (@`4~GGX4\ #%;TRY_REPLY_AGAIN 94200-16415 REV.5005 <880310.1 880310.1913 /PCIF_CI/REV5005/CDS/PCMC3.MACG])TRY_REPLY_AGAIN ``@X .DAD .DDE .DMP.DST .EXIT0 .LBPR .LPXR .SDSP CLEAN_USERPAS.1 PAS.3 PAS.CDS PAS.INLINEERROR PCIF_18 PCIF_ABORT0 SEND_MSG_COMPLET`kTGCSTRY_REPLY_AGAIN SFREE_REPLY_Q`@ hf`@ K      @xf `@ p P pj`f(A`@  #` HMM:G*(@(p hfK       *(q@ (`(w P(q(wMHq@4`B(0f`9P(P(P(P(P((`B(p ( x@k(` (h ۸` (`f(K %`H(K% (@GGX#)#&EXECUTE_REQUEST 94200-16415 REV.5005 <880310.1 880310.1913 /PCIF_CI/REV5005/CDS/PCMC3.MACGJ_ EXECUTE_REQUEST l{{#.DAD.DDE.DLD.DMP.DST.EXIT0.LBPR .LPX.LPXR .MPY.SBT.SDSP FIND_PC_TASK GET_USER_AK PAS.1 PAS.3 PAS.BITMASK1PAS.BOUNDINTEGERPAS.CDS PCIF_12 PCIF_24 PCIF_25 {W QUEUE_UP_MSGSEND_REPLY4~KISEXECUTE_REQUEST S PUT_REQUEST_IN_UP_QUEUE `@  K    (7 `@ (v`  p  x ` p ` (v` (G(vh  ==&4K K  @@ p x ` (s` (k`@ pP (r=kFB@`@ (u` p (@ (`@ p @&` @H(STEST_CAPABILITY `@  J  @@   &(DDR""`!p ( @ x ,H@(Ȩ`$p (p  (`(DXEA`@ K     (((`P ((0(` p ` @&`@Hp (S EXECUTE_IF_CAPABILITY ` p ` FF%!(`('`@ p P  %`Hp (SEXECUTE_SYSTATF=FD`@ K     ((hH 6D (hH 6 D (`(p` 0 p  `({` 0p @ @( CCbR"(` 0p `@   JA A ` `@ p P C~~,FB@$`3@H(=S EXECUTE_LOCK_UNLOCK `p ` (`@   J@  `  @p  (`(` (` h  ~IIB  H(` (` h   x` p0`@ p P I0 @%`@Hp (  $ cIGSEXECUTE_DISCSTEST_LOCKED_MSG p` p ` (Xh  J  @@x  #@(U`P (U` p` p (/`@)` @H`p (+SFREE_LOCKED_MSG B;pH@` p ` (h   J@ @x P ` p (r@(`e@Hp (p`@ K    `p ` ccN3-(` x Z p ` (`@  x Z p ` (`@   JA A P $(c<<:`+p ` (E` x @   x ` (` @p ` @h HH@ x p H0 H `@ p `@ ``'0,p  @ @0@ @ x p 0 (M`@ p P @ $`H@(` & U zWHBSEXECUTE_CONNECT `@   J@  @  &(@ `@ p `@ p  (`@ p P@ #`WH@(bSTTȢ-)EXECUTE_CANCEL`p ` (` P (( p `@  K     T~~9GA@ x  x `@  K  xp  @ p`(x`   (`@ p~>>j" `@ pP %`H(SEXECUTE_ENUNSOL >5HB`p ` (ʊ`@ K     `( x `@   J@  A@ @` @p `VV}.*(`*p (`(p (`@   J@ A@@@x@ x p Vs:6` ( x` pH0H` @p`@hH (`p ` (`@ p`@ p(ኋ`@ pP @ %`*J@H(5 & U JJ*&SEXECUTE_DIUNSOL `p ` (T`@   J@  @ x J*><` (`)p (T`@  K     @` @@p `(@`*p (T`@hHH@ x p H0HIIS"` (c`@ p`@ p(k`@ pP @$`@H(I ' U  Ru p pzPJh  K    ` (@` P ( x  ` h  K  J  @@ @x@@!YY %!#$ (P(P(P("P()P(0P (7P (>P (EP (LP (S%&!(@@Y 7P 33b((((ʈ((((È(((('(!(@@3 7P E5(Z(a(h(o(v(}(((((((((`((`("(`((`((`( (`((`("(`(!!~J (`((`("(!8ZK5`((`((`((`((`((`((`((`((`((`((`(88r(`((`((`((`((8}I3`((`∋(`l(`(`N(`(`!(` (` (`((P & '`(b @Hp p (u33##% !# @+3@|ϛFFX_#&FREE_TIME_OUTED_94200-16415 REV.5005 <880310.1 880310.1913/PCIF_CI/REV5005/CDS/PCMC3.MACFD,FREE_TIME_OUTED_zYY?[ .DAD .DCO .DDE.DLD.DMP.DST.EXIT0.LPXR .SDSP PAS.1 PAS.3 PAS.CDS PCIF_01 PCIF_11 PCIF_12 PCIF_25 SEND_REPLYY NHS FREE_TIME_OUTED_REQU ESTS` h AH( (xp h   J  @@  x p ` (mh  K    x@ --SNx (_(_@ (j` (e` p (j-ee)Qe93p `@p (1 `  ( xP  (`  8 (8 (&`H(e3&@DDX(3#& !GET_CABLE 94200-16415 REV.5005 <880310.1 880310.1913 /PCIF_CI/REV5005/CDS/PCMC3.MACDoGET_CABLE c ||@!.DAD".DCO#.DDE.DLD$.DMP.DST%.EXIT0&.LBPR '.LBT(.LPX).LPXR .MPY*.SBT+.SDSP ABREG ASK_DOWNLOAD CLASS_IO_ERRORCLEAN_USERDO_CLASS_IO_WRITEXECEXECUTE_REQUEST FIND_PC_TASK|}}7yFREE_TIME_OUTED_GET_USER_AK MSG_IN_OVERFLOW_ PAS.1 PAS.3 PAS.CDS ,PAS.INLINEERROR PCIF_01 PCIF_14 PCIF_16 PCIF_17 PCIF_18 PCIF_23 PCIF_ABORT0 PCIF_ERROR0 PCIF_ERROR1SPCIF_ERROR2S}--PCIF_WAIT SEND_IO_MSG SEND_IO_MSG_COMP SEND_IO_MSG_DMUXSEND_REPLY-:PLSGET_CABLE SMEMORY_SHORTAGE h  #J@ ! @A  @@! @) )` p  %'`H+p p (SREAD_CABLEp 9` "@ p HH3P `P(T(W` @p `(]` @@p ` @p` @ p (p(xHap71 < = < =` @h <` @h =` 9(` @(` @ `p 9(` @ @h%-`CH@+ pp pLLk.*(KSFREE_CABLE``@p  % #`H+(SEXECUTE_CL OSE p Ld@>`@ p @ %%`H@+p (SEXECUTE_RELKEY`p p ` !A@ (Y` (Y`@ @p`hHH((U`@ (RR)'(Up `@(O` h AH(& (Oxp h  #J@ ! @@)`P (>(KR~~w>@>@)x p H0H8 (M8((` ` p (` (` t(pp h K #@  ! & -P(y()`@~TTb~)'@@@(()`@ @(()xp0@)8 8(dp Tn @%)`@H+p( 7 U W?=SEXECUTE_GETKEY`'p p ` @p ` @p (p `@ ` hHH` @ ` P !(` (p % '`H+ p ( 8(( U 88SEXECUTE_OPENp `pp ` @ @p`@p(J`@((J`hH ((J`@hHH(&(J`@ hHH,(/(J/<6 `@ (?(H`@ p(Q` p p 8 8(` @ @6`H*` 0 p ` ?0@p ` p` ?0p ` p` yffk++p` (`  @p`@p`@ `@ `@hH ` `@p `@f73`hH `@hHH`@ hHHp (`p `@ p`@ p  ` 9P(P(ψ(``@ 88X((ܱ `` 9P(@%-`@H+(8  $ ))SBUILD_REQUEST p `@ A2@p )D<` @p ` @(` @p0` @ ` @ Pp ` (h  #J@ ! @A @@!`@@p  p )` NNݤC#!@)x `@  p H0H )`@ `@ p `@ p  p Nf;9@)x ` p 0 )!`@@)`@@@)#`@@@)%`@@@)`@`` ( `kkQg4*@(ߊ`@P(P(P((` (` (ވ` (@(Ո``@@p 6  (k ;3`@@p ` (`@ 2@p@(``@@p 6 (`@h `@hH`@hHHp (0 `  @%'`@H+ `p (  $ HH%$"S BUILD_DATA_REQUEST`@ 2@p`@(`@p`@ppp H@@8` (N@J(N {A"'(~(~`@p` ``@ p`@p `@p `@ `@ `@p` (`@ RRy%! ``@p `@ `@ ``@p6 p (`@(ROOo %!`@p0`p `@ `@ ` p ` %(`H+`p ((O $ ii$X84STEST_OPEN p `@ p`A@()(`@ A2@()(p ` @%$`@H+ `p (i  $ S RECEIVE_IO_COMPLETION MC`A("`*( @p(1`(;`*(`p h  #J@ ! @A @@!@)#`)#55])%`@@)`@`@p p 5uFB` (}p`^p (A@%!A(#xp `@p p K #@ ! )+.P((` (p 2p p)+"A@1@pEE"`@P((`@ `  `(p`` @p E , @%+`@H+( f  :8S RECEIVE_MUX_CABLE `@ p ` 4(-(Y` 4@ p ` P((M` @P((H` @p ` @ ` @h` (G` p h 44 'K #@  !  ) #@x ) #) x 4@@WF"( (L-(T` @p p 4`@%&`@H+(@    {{o%hF>S RECEIVE_TIME_CABLE`P` 3(` 2(` 1(`p 1.(@ 1p 1` 1(p 2% #`hH+(tS RECEIVE_BREAK_CABLE {.22`@ P(P(P(P((`@ (p (p `@@(p ( p `@@( p (p (`@P $kkފ9/ ((p (/(0(`@P $((p p g(/(`@%#`@H+(p` k]>2` 9(`@ @6'P(-)`(` ?p ` (]` &P(?P(EP(KP(Q(W`(\`(\`_(\`(\WWW)! hp(` &P(iP(rP(P((` p(`(`p(Wggi8*`(`(`p(`()`( h`@%5`@H+p`p(g99 ((2!$ %3.) 9@0wCCX x#&&PCIF_31 94200-16415 REV.5005 <880310.1 880310.1913 /PCIF_CI/REV5005/CDS/PCMC3.MACC wkPCIF_31  EE.DAD .DDE.DLD .DMP.DST .EXIT0.LDX .LPXR .MW00 .SDSP PAS.1 PAS.3 PAS.CDS PCIF_16 ENJS UPDATE_ACTIVATION_CONTEXT ` @ p` (Gh K    @hHA @@P  `  `(j`@p` @  77ӎN` ` `@ `@ `@ 7++qf`@ @ (`@Hp p (+  #=@]{CCX=#&(PCIF_32 94200-16415 REV.5005 <880310.1 880310.1913 /PCIF_CI/REV5005/CDS/PCMC3.MACC q0PCIF_32  ;; <1.DAD.DDE.DMP.DST .EXIT0.LDX .LPXR .MW00 .SDSP PAS.1 PAS.3 PAS.CDS ;ll=;SUPDATE_MESSAGE`@  ` (/h   J@ ` @p`@@p A`D   &`H p p ( l =#@FFXj%#&MPCIF_DISPATCH 94200-16415 REV.5005 <880310.1 880310.1913 /PCIF_CI/REV5005/CDS/PCMC3.MACF6ePCIF_DISPATCH N }}.DAD.DDE.DLD.DMP.DST.EXIT0.LBPR .LPX.LPXR .MPY .SBT!.SDSP GET_RAM_CONTEXT_GET_TASK_FROM_QU IS_MSG_IN_QUEUE PAS.1 PAS.3 PAS.CDS PCIF_11 PCIF_12 PCIF_13 PCIF_17 }UU & PCIF_18 PCIF_31 PCIF_32 PCIF_ABORT0 PCIF_ERROR0 PCIF_ERROR1 PCIF_HANDLER QUEUE_DOWN_MSGQUEUE_UP_MSGSEND_IO_MSG SEND_REPLYUr2GCSPCIF_DISPATCH SBUILD_DOWN_MSGp=h= J @ `P@(*(0 `;(:@ `O @`; `<`<(Vh<@ @@٤G%#J A x @ ` #` H!(S MEMORY_WAIT_EVENT @lHDh; K   x !p@  " ( x:@ *(<(]`AP@((S '( x ` (<( x` p0` @p xpH\\`+)0H@ `p<(R P(8P("(=h(x x0 0\``D340@(M@(M ((M@(M`&p<@(] x@<%`H@!(` /U dd6g1/SWAIT_FOR_MEM ORY h; J @ ` P((`=pk@`pl 0(`(T`'P(E0 p 0 (`'P(dP(P(P(P(P(P((=`<( (wTTq."@ `<@( x  <(`(` (`^=(`^Tbbx3+ p<`(` !(` "(@#'`( (*`  '`H!`p (b55 ##/ +)5@FesEEX[#&NPCIF_SCHEDULER94200-16415 REV.5005 <880310.1 880310.1913/PCIF_CI/REV5005/CDS/PCMC3.MACERPCIF_SCHEDULER^^ N=.DLD .EXIT0 .SDSP FREE_TIME_OUTED_GET_CABLE MSG_IN_OVERFLOW_ PAS.1 PAS.3 PAS.CDS PCIF_DISPATCH PCIF_WAIT TRY_IO_AGAINTRY_REPLY_AGAIN ^~~\aG9SPCIF_SCHEDULER` (@p 0p (@p ` ("` f(%p('p`(QP` (3p` f(9`p ` (C` f(N` (J@~++kG {(N(Pp('@ %`@H ( +  @`3 DS_MM.2 LAN8.3LANINIT.1 N$DRES.3 N$INITMULTI.1 N$INITMULTI.3 N$INIT_.CHECKXLUN$INIT_.HANDLEAB N$INIT_DEC.1 N$INIT_DEC.3N$INIT_RTE_IF.2 N$IPDEC.1 11N$IPDEC.3 N$LK.3/PCIF/PCIFGEN/PCMC4.REL:::5:50:128 644 0 0 31000 5303664631 35545 /PCIF_GEN/PCIFGEN/PCMC4.REL:::5:50:128 "&$2 L2PCMC4 REL +i+i+i2tFST >>Xss3]PCMSR 94200-16416 REV.4010 <860818.1 860818.1906 CDS/PCMC4.MAC::PCIF_CI>@Ts>>X= s3]SR_REPLY94200-16416 REV.4010 <860818.1 860818.1906CDS/PCMC4.MAC::PCIF_CI> &SR_REPLY %%/8.EXIT0.SDSP PAS.1 PAS.3 PAS.CDS PCIF_ERROR1 %CC{ SSR_R EPLY`j(`@A@jpj  @ j$`H@p (C J @#ABBXxs4 ]SR_VERIFY_BUFFER94200-16416 REV.4010 <860818.1 860818.1906CDS/PCMC4.MAC::PCIF_CIBK)mSR_VERIFY_BUFFER%%!3.EXIT0.SDSP PAS.1 PAS.3 PAS.CDS PCIF_ABORT0 %!64S SR_VERIFY_BUFFER_OPT ION `P(( pj` P(!P(+P(5(?`AP(%((``=pk(A`pj`j(I`k(I`zpj`j(l`kP< (P(Spl(U`pl`l @p ` pm pn `yA@m /g(l $$&yj@`}pj$`H@p ($  # @΢CCXjs4 ]ALLOCATE_BUFFER 94200-16416 REV.4010 <860818.1 860818.1906 CDS/PCMC4.MAC::PCIF_CICt_ALLOCATE_BUFFER RR; .DAD .DDE.DLD .DMP.DST .EXIT0.LBPR .SDSP PAS.1 PAS.3 PAS.CDS PCIF_14 PCIF_16 SR_REPLYSR_VERIFY_BUFFERR+G?SALLOCATE_BUF FER @  ` j(` m(`~p j` j(Wh k K        (Lp k m(Ip j` k l ` l @h UU׺G#!(K`lp j(N`op j` j(V`@ A@ jp j([P` jp `  '`Hp ( U  #J@UAAXVaOs5]RELEASE_BUFFER94200-16416 REV.4010 <860818.1 860818.1906CDS/PCMC4.MAC::PCIF_CIADRELEASE_BUFFER GG .DAD .DDE.DLD .DMP .EXIT0 .LPX .SDSP PAS.1 PAS.3 PAS.CDS PCIF_15 SR_REPLYSR_VERIFY_BUFFERGzG?SRELEASE_BUFFER0 `j(p `?p>` p?h< K   xh=K   ??E&$J@@ x@  xh<K    x ?MM2k`+p `,p `3p `4p` p3` p4` p+`p,`jp `  /`H ( M@9@@X\Ls7]RETRIEVE_MSG94200-16416 REV.4010 <860818.1 860818.1906CDS/PCMC4.MAC::PCIF_CI@JRETRIEVE_MSG TTJ .DAD .DDE.DLD .DMP.DST .EXIT0.LPX.LPXR .SDSP PAS.1 PAS.3 PAS.CDS PCIF_11 PCIF_13 PCIF_31 PCIF_ABORT0 T~~D>SRETRIEVE_MSG ` P( (P` <(` 2P ((p (`@ A@mp h ;K     p  x ` (` (h K    ~II>%D&$   P (Q(` <(l@ @(` ` <(j@  xp <IVVj+' p >` p <@ ;`@ <  x *p p (@x (4`  '`Hp ( V}J@iBBXа8s8&]CREATE_UNSOLICIT94200-16416 REV.4010 <860818.1 860818.1906CDS/PCMC4.MAC::PCIF_CIBo+CREATE_UNSOLICIT ee .DAD .DDE.DLD.DMP.DST.EXIT0.LBPR .LPX.LPXR .SDSP PAS.1 PAS.3 PAS.CDS PCIF_01 PCIF_11 PCIF_17 PCIF_31 PCIF_ABORT0 SR_REPLYe@<S CREATE_UNSOLICITED_MSG` P((`` s($p j`(#`P(#`tp j(&`pp j` j(h ;  J  @` j(` AP(=(NNS;@)'x p `(k` (j` (jh    J@ @P (a(d@p (ix NiB>(G(p ` (` P (h K    x ` p (m` (` j(`np j` j(` <( ( ( x <OO &"p > p <h < K     x @0` ;` AP((O}}]JD@` h    JA @x`x *(xpH0@HP@   x p}@@ <("@` j(' p s` jp `*`Hpp (@%%|  %@1 OBBXs9']CREATE_UNSOL_REQ94200-16416 REV.4010 <860818.1 860818.1906CDS/PCMC4.MAC::PCIF_CIB CREATE_UNSOL_REQ '' .EXIT0.SDSP CREATE_UNSOLICITPAS.1 PAS.3 PAS.CDS '33S CREATE_UNSOL_REQUEST  @p`#`H@( 3  @RBBX$s:(]CREATE_UNSOL_SUB94200-16416 REV.4010 <860818.1 860818.1906CDS/PCMC4.MAC::PCIF_CIBCREATE_UNSOL_SUB '' .EXIT0.SDSP CREATE_UNSOLICITPAS.1 PAS.3 PAS.CDS '??$"S CREATE_UNSOL_SUB_REQ UEST  p ` @'`@Hp p (?@3R}BBXWs:,]FLUSH_SUB_REQUES94200-16416 REV.4010 <860818.1 860818.1906CDS/PCMC4.MAC::PCIF_CIBe8FLUSH_SUB_REQUESu XX .DAD .DDE .DMP.DST .EXIT0.LPX.LPXR .SDSP PAS.1 PAS.3 PAS.CDS PCIF_12 PCIF_24 PCIF_25 PCIF_ABORT0 PCIF_ERROR1 X~~(F>S FLUSH_SUB_REQUESTS` P((0p` AP(("`rp@(` <(h ;   J@  h < K    x p x ~;;6\F`  <@ pp   `  x qh q K    ;oo6[e;5@ x `  < pp  ` @ @( x P  < p@ (p  q` #`H( or @8uW5>>XUs;6]FLUSH_IO94200-16416 REV.4010 <860818.1 860818.1906CDS/PCMC4.MAC::PCIF_CI> FLUSH_IOA XX .DAD .DDE .DMP.DST .EXIT0.LPXR .MPY.SDSP CLRQ PAS.1 PAS.3 PAS.CDS PAS.INLINEERROR PCIF_24 PCIF_25 PCIF_ABORT0 X~~E?SFLUSH_IOSRTE_CLRQ_ERROR `_p j #`H(` P(!(%Pp j` AP(+(.`sp j(۠h ; K      xp ~SSE)' < p `@  .P(V(n "@A@p`@pp < hHSMnF@@  .P(}P(~P(~P(}((@ ` @p` @ <   ` @p` < ` ( x@ "AAu!((` x@ "((͈`p  < p A,, (h-@ &`@Hp p (,##8 @  #@i)@@XC3s7]FLUSH_IO_MSG94200-16416 REV.4010 <860818.1 860818.1906CDS/PCMC4.MAC::PCIF_CI@u*FLUSH_IO_MSG 99 .DAD.DDE.DMP .EXIT0 .LPX .SDSP FLUSH_IOPAS.1 PAS.3 PAS.CDS SR_REPLY9]]ˮ3-SFLUSH_IO_MSGpj`<("h<K   xp p0`jp` #`H ( ]@k>>XFs8]FLUSH_LU94200-16416 REV.4010 <860818.1 860818.1906CDS/PCMC4.MAC::PCIF_CI> 2FLUSH_LU ))J.EXIT0.SDSP FLUSH_IOPAS.1 PAS.3 PAS.CDS SR_REPLY)66tSFLUS H_LU ;0`jp` #`H(6 1 @ BBX_ {s?]DEVICE_STATUS 94200-16416 REV.4010 <860818.1 860818.1906 CDS/PCMC4.MAC::PCIF_CIB;pDEVICE_STATUS EE .DAD .DDE .DMP.DST .EXIT0 .LPXR .SDSP PAS.1 PAS.3 PAS.CDS PCIF_ABORT0 SR_REPLYXLUEX EEASDEVICE_STATUS S DEVICE_STATUS_ER ROR `_ pj #` H (`P('(+P`AP(/(fh;   J@ pj` P(DP(J(P@ @@E x (R x (R`qpj`j(ep@ (`(e` @22e(h`spj0`jp ` @ )`@H  p (#2j1  @Xv/PCIF/PCIFGEN/PCMC5.REL:::5:139:128 644 0 0 105400 5303664632 36011 /PCIF_GEN/PCIFGEN/PCMC5.REL:::5:139:128 #'$ PCMC5 REL +i+i+iE FST ((BBX#+PCINI 94200-16417 REV.5005 <880310.1 880310.1731 /PCIF_CI/REV5005/CDS/PCMC5.MACB@=FFX##+SET_INITIAL_TIME94200-16417 REV.5005 <880310.1 880310.1731/PCIF_CI/REV5005/CDS/PCMC5.MACFT SET_INITIAL_TIME++.DST.EXIT0.SDSP EXECPAS.1 PAS.3 PAS.CDS PCIF_01 +??#SSET_INITIAL_ TIME@`pJ  0"`H( ?  @ɂFFX6A#+APPEND_ERROR_NUM94200-16417 REV.5005 <880310.1 880310.1731/PCIF_CI/REV5005/CDS/PCMC5.MACFw8APPEND_ERROR_NUM%%D.EXIT0.LBT.SBT.SDSP PAS.1 PAS.3 PAS.CDS %||oAAS APPEND_ERROR_NUMBER `-p-p `-A @P(7` A @(7` p h6H@ Hh 6p @-JH` `- p-( $`H( |  @m-GGX"#+BUILD_ERROR_MSG 94200-16417 REV.5005 <880310.1 880310.1731 /PCIF_CI/REV5005/CDS/PCMC5.MACG1 BUILD_ERROR_MSG ''.EXIT0.SDSP PAS.1 PAS.3 PAS.CDS PCIF_BUILD_ERROR'@@p" SBUILD_ERROR_ MSG  * @-&`H@p p ( @  @[!FFXW-#+SEND_MSG_NOT_STA94200-16417 REV.5005 <880310.1 880310.1731/PCIF_CI/REV5005/CDS/PCMC5.MACF$SEND_MSG_NOT_STA;; (.EXIT0.LBT .SDSP PAS.1 PAS.3 PAS.CDS PCIF_03 PCIF_BUILD_ERRORPCIF_STOP_MONITO;QQcz-'S SEND_MSG_NOT_STARTED 0*-h6HP?( @ "`H ( Q q @BaEEX"#+ INIT_ERROR0 94200-16417 REV.5005 <880310.1 880310.1731 /PCIF_CI/REV5005/CDS/PCMC5.MACE@INIT_ERROR0 --.EXIT0.SDSP BUILD_ERROR_MSG PAS.1 PAS.3 PAS.CDS PCIF_03 -44SINIT_ERROR0   0$`Hp ( 4@[EEXy#+ INIT_ABORT0 94200-16417 REV.5005 <880310.1 880310.1731 /PCIF_CI/REV5005/CDS/PCMC5.MACE;INIT_ABORT0 //ݴ.EXIT0.SDSP INIT_ERROR0 PAS.1 PAS.3 PAS.CDS SEND_MSG_NOT_STA/004OSINIT_ABORT0   0@$`@Hp ( 0@$[EEXz.+#+ INIT_ABORT1 94200-16417 REV.5005 <880310.1 880310.1731 /PCIF_CI/REV5005/CDS/PCMC5.MACE<INIT_ABORT1 KK _ .EXIT0 .SDSP APPEND_ERROR_NUMBUILD_ERROR_MSG PAS.1 PAS.3 PAS.CDS PCIF_03 PCIF_CONV_INT_ASSEND_MSG_NOT_STAKFF++!SINIT_ABORT1 0 ` @ P  )`H p p ( F@4FFX0V#+INIT_APPEND_RTE_94200-16417 REV.5005 <880310.1 880310.1731/PCIF_CI/REV5005/CDS/PCMC5.MACFF-MINIT_APPEND_RTE_//a.EXIT0.LBT.SBT.SDSP APPEND_ERROR_NUMPAS.1 PAS.3 PAS.CDS /@@S INIT_APPEND_RTE_CODE `:p`@@6hH 6`@@6 hH J6 `;p`@@6hH H6H`@@6 HhH 6H`@ @6H` ..ޠ@H`@ @ 6H` @  &`H@( .@z:GGX%#+INIT_ABORT0_RTE 94200-16417 REV.5005 <880310.1 880310.1731 /PCIF_CI/REV5005/CDS/PCMC5.MACG0INIT_ABORT0_RTE AA .EXIT0 .SDSP BUILD_ERROR_MSG INIT_APPEND_RTE_PAS.1 PAS.3 PAS.CDS PCIF_03 SEND_MSG_NOT_STAA==.%SINIT_ABORT0_ RTE @ P 0'`H p ( =@PGGX0#+INIT_ABORT1_RTE 94200-16417 REV.5005 <880310.1 880310.1731 /PCIF_CI/REV5005/CDS/PCMC5.MACG1#INIT_ABORT1_RTE UU  .EXIT0 .SDSP APPEND_ERROR_NUMBUILD_ERROR_MSG INIT_APPEND_RTE_ PAS.1 PAS.3 PAS.CDS PCIF_03 PCIF_CONV_INT_ASSEND_MSG_NOT_STAUKK*0$SINIT_ABORT1_ RTE @ p P @`0 )`H@ p p ( K@ZysEEXԍ%#+ INIT_FMP_ABORT94200-16417 REV.5005 <880310.1 880310.1731/PCIF_CI/REV5005/CDS/PCMC5.MACEINIT_FMP_ABORT?? X.EXIT0 .SDSP BUILD_ERROR_MSG INIT_ERROR0 PAS.1 PAS.3 PAS.CDS PCIF_03 SEND_MSG_NOT_STA?==%SINIT_FMP_ABORT  @ P 0$`H p ( =  @SFFX#+ #INIT_PASCAL_ERRO94200-16417 REV.5005 <880310.1 880310.1731/PCIF_CI/REV5005/CDS/PCMC5.MACF=iINIT_PASCAL_ERRO|vv .EXIT0 .LBT.LDX.MW00 .SBT.SDSP APPEND_ERROR_NUMBUILD_ERROR_MSG INIT_ABORT0 INIT_ABORT1 PAS.1 PAS.3 PAS.CDS PAS.INLINEERROR PCIF_03 PCIF_CONV_INT_ASSEND_MSG_NOT_STAvEES INIT_PASCAL_ERROR SAPPEND_FILE_ MSG ` - p -p ` -A@P(G`@p` A@(G` p `@@6H@ H h 6p @ -JH` ` - E @p -( $` H@(   KKQ`P(_P(P(P(P(P((p `P(kP(nP(qP(t(wKkL4`p({`p({`p({`p({` p`p ` ` ( ppP(@(@(0(0(` **  p` HP(h*:: P |`H ppp` h H p(Q:3 K@s3FFX4p##+ 6CREATE_ERROR_MSG94200-16417 REV.5005 <880310.1 880310.1731/PCIF_CI/REV5005/CDS/PCMC5.MACFroCREATE_ERROR_MSG .DAD.DDE.DMP.DST.EXIT0.LBT.LDX.LPX.MB00 .MPY.MW20 .SBT.SDSP FMPCLOSE FMPOPEN FMPREAD INIT_ABORT0 PAS.1 PAS.3 PAS.BITDEPOSIT2 PAS.BOUNDINTEGERPAS.CDS PAS.NEW2WqPCIF_CONV_INT_AS STRDSCKCS CREATE_ERROR_MSG_TABLE`pp h K   xHh6pH0Hh K   xh6 p0` p99K"`` @@6HHph K    p 9mQE`@@6Hph  J  @p  `@@ H6Hph  K  p h K    p  h ##d J  @p #~~9OCh  K  p h K    p `p` p h  K  @ pp  8 8(8 8(~CCr"$ `pp `pp h  K  .@ pp  8 8(*CFG?8 8(& * p`(K`Ppp `pp h6@ H` H8 8(n p ph6Hph6HP((h6 @@ù Hph6 P(Hh6pHh6P((h6 phH6 P(`(j@:HA?`(Ap p`p ` A@(h6K@ H (̀(p `@Ƃ@6H@ Hph6@ HP(〈` p (΀` p ` A"@ @p (OO''p(`(@` ((@h6ph6P(('hH6 ph6 P( ('` A@ ('O~~JBh  K  .6`6AH(@`8A@ (@h  K  6`6AH(Cp ` (jp`pp h K   . (~FFP2_#!P (b(dp8 8(Q`(nP `H`hAH ` h! (F<<p""( ?09P  . P  P<U0123456789 ROS " @$CAFFXe#+ 9CREATE_TASK_TABL94200-16417 REV.5005 <880310.1 880310.1731/PCIF_CI/REV5005/CDS/PCMC5.MACFBCREATE_TASK_TABLa== .DLD.DST.EXIT0.SDSP INIT_ABORT0 PAS.1 PAS.3 PAS.BOUNDINTEGERPAS.CDS PAS.NEW2=~~%ZDS CREATE_TASK_TABLE ((`  ( ( ( (w  (j   (]  (P (C (6 () (~]]Z@. ( ( ( ( ( ! ("# ($% (&' ((]rF< `@ @`@(*(`@ @` +-(`@ @@`.0(`@ @ `13( `@ @`@46(`@ @`==" 79(`@ @@`:<(`@ @ `=?(=F< `@ @`@@B(`@ @` CE(`@ @@`FH(`@ @ `IK( `@ @`@LN(`@ @`==H" OQ(`@ @@`RT(`@ @ `UW(=jJ@ `@ @`@XZ(`@ @` [](`@ @@`^`(`@ @ `ac(@@d @@  J@(`H@ p ( n%``1@!0 qapQ`AP1@!0  l@m`nopqr s t @u `v wxyz{ |@}``~@FFX;n#+<CREATE_CONTEXT_T94200-16417 REV.5005 <880310.1 880310.1731/PCIF_CI/REV5005/CDS/PCMC5.MACFyCREATE_CONTEXT_T:55 .DLD.DST.EXIT0.SDSP PAS.1 PAS.3 PAS.BOUNDDOUBLE PAS.CDS PAS.NEW25\FS CREATE_CONTEXT_TABLE   ( (  (  ( ( (z (m (` " (S$& (F(* (9oo\N8,. (,02 (46 (8: (<> (@B (DF (HJ (ޱLN (PR (TV ((oXF< `@ @`@2X(`@ @` VY(`@ @@`RZ(`@ @ `N[(Ȋ `@ @`@J\(`@ @`==Ρ" F](`@ @@`B^(`@ @ `>_(=ZF< `@ @`@0`(`@ @` 6a(`@ @@`.b(`@ @ `*c(Ȋ `@ @`@&d(`@ @`==εX" "e(`@ @@`f(`@ @ `g(=@zF< `@ @`@h(`@ @` i(`@ @@` j(`@ @ `k(Ȋ `@ @`@l(`@ @`99L  @m( @@  J  p#@)`@H ( 9``@xdxPd@P8@08(0$( $   $l`@Ejd*EEX#+?INITIALIZE_EMA94200-16417 REV.5005 <880310.1 880310.1731/PCIF_CI/REV5005/CDS/PCMC5.MACEINITIALIZE_EMAsPPu.DAD .DCO .DIN.DLD .DMP .DSB.DST .EXIT0.LBPR .SDSP INIT_ABORT0 PAS.1 PAS.3 PAS.CDS PAS.GETMEMINFO2 PTNSINITIALIZE_EMA @ ` pzJ { `@@`@#P#` @@#@@ A@  #(5(1(5@}  h   88rT (](Z(]p (_p ` @(qxh p%@ A@%(x8WWѧq11@x% %` h   @h J {J{`  (I =`Hp ( W@FFXF }#+BINITIALIZE_BUFFE94200-16417 REV.5005 <880310.1 880310.1731/PCIF_CI/REV5005/CDS/PCMC5.MACF_tINITIALIZE_BUFFESS .DCO .DDI.DIV.DLD .DMP.DST .EXIT0.MPY.SDSP INITIALIZE_EMAINIT_ABORT0 PAS.1 PAS.3 PAS.CDS PAS.SINGLEMOD S*+HFSINITIALIZE_BUFFER_MANAGEMENT ` y  p  y(#` p `   p  `A@ (4`p ` (Np p` @p   ` KKH'!@ 8 8 (<p > p ?`J { J  {`  @@J  {@ (s(o(sKo @p $`H@(  ,@  @#BFFX7J%A#+TINITIALIZE_MSG_M94200-16417 REV.5005 <880310.1 880310.1731/PCIF_CI/REV5005/CDS/PCMC5.MACFvINITIALIZE_MSG_M``$q.DAD .DCO .DDI.DLD .DSB.DST .EXIT0.LDX .MW20 .SDSP PAS.1 PAS.3 PAS.BITMASK1PAS.CDS PAS.GETMEMINFO2 PAS.INLINEERROR PAS.NEW2`*NHS INITIALIZE_MSG_MANAGEMENT  `@@`@#P#@@ @ hy  A@#@  #@ p `p%p`@8 `@@`@##(`@@` ## !(h`@` 1~gg4,`,$hop (`,$iop `@@6`@o6A!` ((` ( p$hp$i`@@6`@O6!` ($(guF6$p ` ($#`@H6hAH6!` (2(6(6$`$`$``@@6`@6!` (v(V`@@6`6A!>>^ ` (d(q(q`@@6A`6!` (u(q%(`,$$p >``~.*`,$$p `   (p$ p$p$ p$p$ p$p$(%) ` H2A`h&H0(A`L$$$#33##R2D2 3~~yB@S INITIALIZE_H_TASK  p$ `$p$`$ph$ &J '%$@@* xH0H- )@$`$p$*xA0Ah#(x-+x~GG$$0--@-/-1@-+0@-+@0-+G*M5IE`A@(AA34@@%@*`@-)` @@x@@ kp,6(h`p`(`(pp` @@D&,$ @@ EE~` @h @HpD'88(s`) .`H2 ppp(EIESINITIALIZE_PC h6H`1`p$(` ph & 'J@%$@*?@0@-7`-9`@-;`h(x@-=x H0HJJ+## h#(x@-=x 0 @-?`-A@`- Cx p H0 HJ C?@-Cx p 0 h &J '%$A,9x@-E`h & 'JA%$,9@`)7`H@2ppp p p p3L ppp( $) 33S##S INITIALIZE_HIGHWAYSASK_SCHEDULES SCHEDULE_PROGRAM_ERROR3NNtv" `$E?S GET_LU_SELECT_CODES DEVICE_STATUS_ERROR `$`$wp$w`@A@$w(M- Ex `$wp H0@H - Cx `$w p H0H - A@- O- ?`$w @p **#`@ `  @)$`@H2(* $ ..G5S VERIFY_AND_SET_IO_CARD``@p p.OA7`(Z`@pJ` (e`@pQ`P1(p`@p`@(``@p p ` (`@pJ` P(`JJ& @pR`P1(`@p`@ K& '%$p `$v(J~~a:8p ` (` P$v(̀` p `@ @P((p (` (`$vp$v`A@$v(S`$vp `@H @hH` @p`~qq:{0.@`h`@hH`@h`@ `@H @hH(T-?x` pF0Fq @)*`5@H2(C $ *FB`p$(h6H`1` ph &J '%$@@*?0@-7`-9@-;`h@(x!-=x""H0!H"h#(x!-=FF/p!x""0!"`@p!`@3p"` !"`A@(`A@(F??`@p `p`@@6+Hh 61`@@6 H+h 6 H1`p`@@6+h 6H1`@@6 +h 6H1`p`@@6 +h 6H1h 6@H` 1\\*&`@h(`@3p @* U7!`@76hH6A!` ((`@h(`(`@ (\/M=3`@ @-?x `@p! N!N `@P( P( P( P( +( 7( <`( <``! p$3( <`,`( <II 7! hwp) X`SH2ppp p p p ppp(*IW$$)**_ XS READ_CONFIGURATION_FILE S CLASS_REQUEST_ERROR *C* t?9`$*h H ` @ ( ` @ p  ` @SS &"H @h$>` p ` @p ( @)'` @H2p ( p$"G$"( (  $<$=Sr F6` } $:$;`$:( `@Hp@*!.*"@`@Pp`@ p*`@ ( `@ p`@ P( KK_ !V`pp `@Pp`@ p$>*hH `@ ( @`@ pK @93`@"H @h$>8 8( $`@"pPh( Q( VU( ]Ph( ]V`@p$y`$yA@( k`p$y`A@$y( u`p$y$yFi y42,W( `$yp$y`@p$ `@p$!`@A@$!( `@p$!`@p$$`@h `@hH`@hHp((~ =7`@@ `@( ,pp `pp `@Pp`@ p $>*hH `@ ( `@ p`@*H @h$>ww! 628 8( `@*p``@p ``@p`@p`@p`p`@p`@p`@p`@p ='w~~v 64`@H @hH8 8( Ê`@p$`@( pp `pp `@Pp`@ p$>*hH `@ ( [`@ ~Hb V73p`@=H @h$>8 8( ?`@=p``@ p `@p`@p O0O`@p`@!pN0N ]e  4 55`@p` @" pM0M`@p`@#pL0L`@p`@ $p K0K`@( ׀pM 33p `@H @hH( Ј( `@ h 8 8( Ŋ`@*p`hHh@Hp ``@p`@ p`@p`@p`p`,,B @p`@p`@ p 8 ,]] .*8 8( ;`@Pp`@ p`@ ( %`@ p@)2` XH@2`h.0A`h.H0( ] MPP 9. <+  9RO C < A <<  ?QMSINITIALIZE_EXTERNAL_RESOURCES SLURQ_ERRORX@)$` Q@H2( YS LAUNCH_R2D2_PROGRAM S SCHEDULE_PROGRAM_ERROR `$a#&%BPCIF_DEBUGGER_TO94200-16418 REV.5005 <880310.1 880310.1730/PCIF_CI/REV5005/CDS/PCMC6.MACF7PCIF_DEBUGGER_TOxx .DAD .DCO.DDE.DIV.DLD.DMP.DST.EXIT0.LBPR .LBT.LDX.LPX.LPXR .MB00 .MPY.MW00 .MW20 .SBT.SDSP PAS.1 PAS.3 PAS.BITMASK1PAS.BOUNDINTEGERPAS.CDS x{{ 4yPAS.CLOSEFILE PAS.ENDOFFILE PAS.GETMEMINFO2 PAS.INITFILEPAS.INLINEERROR PAS.LINEPOSITION!PAS.READLINE"PAS.READSTRING#PAS.RESET_FILE$PAS.REWRITE_FILE%PAS.SINGLEMOD &PAS.WRITECHAR 'PAS.WRITEDOUBLE {33;(PAS.WRITEINTEGER)PAS.WRITELINE *PAS.WRITESTRING PCIF_DOWNLOAD PCIF_STOP_MONITO3TRS PCIF_DEBUGGER_TOOLS GET_EMA_PTR_VALUE @@  @@ @@*` H@ (SPRINT_TASKS PRINT_TASK_GENERAL` (?hH` @ p722&&T3`@p4`@h &]:fF:` @ pB223`@p4` !hH` @ pM223`@p4`pp `@@@ @x ,H@ffsG60(`@@6@ HH`1(Ŋ`@@6@ H`0H8 8(` @ pX223`@p553fG9`@h` @ pc223`@p4`@h` @ pn223`@p4`@h` @ py223LLr2),"`@p4`@p@@` @ p223`@pp6LnUE;`@h` @ p223`@p4` AhH P78(`@ hH  `@ (` @ p993YYh((p `@ `@ A@ (`@P  ((`@ hH (͊`@h p  @Y6>6@`@D  `@ ` @ p`@ p:`@ P((` @ p`;3`@ ` @ p993`@ hH KK6($ ` p (` @ p`;3 `8HA`h>3"(fh K ?    .P(P(䨈P((a`@ p""CAA3"BKKNq.$"(f`@ p""VCC3"B"`h J ? @hHx=xKFR@@ Dx`@ p""h223"4"@ Fx`@ p""s223"4"@ Hx`@ p""~223"4"`p"p 77t.b@ J@ x# ,HH#@(}`@@6@ H`1(7~~}D>`@@6@ H`0H8 8"(b`@ p""223"553 "`p"p  J@ @x# ,H#H@(`@@6@ H`1(`~==6c"@@6@ H`08 8"(`@ p""223"553"=rvTB@ Lx`@ p""223"4(("@ Nx`@ p""223"4"@ Px`@ p""223"4"@ R(''x7x`(K`@ p"">>3"(`'KS?`@ p""223"4" Rx`(y`@ p""TT3"(`@ p""TT3"U"(f`@ p""CC3"22jOB"`hK  ? @AhHx=Kx2R@@ Dx`@ p""223"4"@ Fx`@ p""223"4"@ Hx`@ p""223"4"`p"p 77y/ @ J@ x# ,HH#@((`@@6@ H`1(17~~(D>`@@6@ H`0H8 8"( `@ p""223"553 "`p"p  J@ @x# ,H#H@(k`@@6@ H`1(t`~==:Xl"@@6@ H`08 8"(O`@ p""3223"553"=E;@ L .P(P(P(P(K([`@ p"">223"(``@ p""IVV3@" Px  Wx @ L #p`@ p"`FFD1#";3"4" 4" 4"(``@ p"")>>3"Z==3"F,DRB@ (?p@  Px  Wx @ L #p`@ p""cGG3">>3"4" 4" 4"(``@ p""h;;3FFO{V& "(`h*(f@h,`0H@`hYA`hZHp(F DwPP|9v3 |`` invalid task index---- free area for task ----- index = ------------ PC ----------- index = time out (sec.) : identification : PC type : capability : `` status : highway task index : PC ring : station number : PC not locked PC locked for user : unsolicited disabled unsolicited AK : ------------ Highway ------ PP<::index = time out : 1st PC index : highway type : capability : downloadable I/O Pv]] status : NIL_IO : standard I/O port # LU_1 LU_2port # LU_1 LU_2 I/O = PROG ++++ not supportedSPRINT_MSG SPRINT_EMA_BUFFER@+`HJ  @@pp (KGSPRINT_RAM_BUFFER@ y@p@ p` pP7[( `p`(ipp` @ p/==3`A@(\`@p 33$+` @ p :`P(8(R` @ p`;33jj[E93p` @ p8==3`p`p`p(` @ p`;3@B`H@ `h =ppp(j E ~/ /~WM S PRINT_BUFFER_CONTENT\  (` @ p1>>3( p@^x` @ p;223B` 55" #` @ pF993p65IIEpp ` A@ ( `( ` @@ px ( ( ( p( ` p (`( I` @ pM==3` `@x^22ڈ @x( p` @ pVTT3 B2FFƻ ^%#@` `x^xj @b`@H ` h bpp(F N   1 l SS nil_buffer buffer length(BYTE) : buffer PTR : buffer in EMA buffer in RAM slot # S PRINT_MSG_GENERAL `p$p `@@@ @x% ,H%@( `,,V @ @6@ H`1( `@ @6@ H`0, H:8 8$( ` @ p$$=223$ GG3$`@ h` @ p$$H223`@ p%$%4$`@ h` @ p$$S223`@ p%AA~ 0&$%4$`@ h` @ p$$^223`@ p%$%4$A VG9``@ @@`& q&?4`@ h` @ p$$i223`@ p%$%4$`@ h` @ p$$t223`@ p%$%4$`>>C @ h` @ p$$223`@ p%$%4$`@ h>}}B F8` @ p$$223`@ p%$%4$`@ h` @ p$$223`@ p%$%4$`@ h` @ p$$223`@ p%}88CO $%4@$` H@` hc`hHd( 8 >/ P != )f !`` state : creation counter : associated task : link : status : function : param1 : param2 : pa% ram3 : label/param4 : NB` ( ( ` tA@ ( `@ p(ee3(@ ,HH@( `@ p9ff3 g(h   hJ@ @II #-P( P( P( DP( P(:(`@ pMjj3 gIn RB`@ p\kk3`h   hJ @hH|d@ |Nx @N(x `@ po223 B B@P&&i Rx `@ pz223 4&=7 hVB@Rx `@ p223 4@W `@ p223p 6(`@ pCC3 g`h  K && h @AhH|dK |Nx &\ VB@N(x `@ p223 B B@Px `@ p223 4@Rx `@ p223 4-- '@W `@ p223p 6-A CO?(`@ pCC3 g`h K  h @AhH|dK |Nx `@ p223 4Px `@ p%% 223 4@Rx % T@`@ p223 4Wx `@ p 223 4(䊋`@ p"CC3 g`h   hJ @h88* "H|d@ |Nx `@ p223 48{RB@Px `@ p4223 4(`@ p?ee3 g`h K  h @AhH|dK |Nx N(//nqx `@ pP223 B B/~~SA@Px `@ p[223 4@Rx `@ pf223 4@W `@ pq223p 6(hI~11k `H`hAHY`hlp ( 1 (" `` ---- invalid message index ----- ------- free area for msg ----- index = - error NIL MSG ----- index = trying interpretation as request ???? user id/AK : user reply class : Z`` user tag : time out :--------- request --------- index = user id/AK : user reply class : user tag : time out :--------- sub_request ----- inPP::dex = associated request : rqst creation count : PC destination : reply task : associated sub_rqt :Po``--------- IO_msg ---------- index = s/rq creation count :------((--- reply --------- index = user AK : user reply class : user tag : time out :SPRINT_RA-yTM_STATUSYOE`@ p)mm 3` (pp `@ p7GG3 U` @@@@ (`@ p<TT3(`@x ^55!x `@ pGEE3 BLdd3 B5~~6N<`#@ `@ pVEE3p 6`@ p[::3`@ pB`@ p`;38 8(p`@ p_663 >6~//w; ?6@f`NH@`hn(Y/LP  0)0[[ +++++ RAM BUFFER USE +++++ --> RAM # no associated buffer length = words. Msg count = EMA ptr= count= RAM_locks =S PRINT_ACTIVATION_CONTEXTSPRINT_MSG_PART`p `@ ,,?` @ p  $223`@ p 4 ,FD8`@ h ` @ p  /223`@ p 4 ` @p `@ ` @ p  :223`@ p 4 `@ h  ` ^^v5)@ p  E223`@ p 4 `@ h H` @ p  P223`@ p 4 ^cB6`@ h H` @ p  [223`@ p 4 `@ h H` @ p  f223`@ p 4 `@ h HFFPv^'!` @ p  q223`@ p 4@ }`{H@`ho(F EP$ #^\ buffer : length : status : function : param1 : param2 : param3 : param4 / label :`@ p%%iA4OO 3 ;6;443%D<` %p `@ p>223 4 `pp @ ,H@(,`@ @6@ HH`1(5`@ @6@ H`0H8 8(`@ p>>`E>(I223 SS3 ` 'p `@ pT223 4>KfK9` (p `@ p_223 4 ` AP((` *p `@ pj223 4` )p `@ pu223 4`66@ @6`A@,6SJ`pp @ ,H@(6I;`@ @6@ H`1H(`@ @6@ HH`08 8(`@ p223 SS3`@ ppp3 4`w +`QQ.&@ pqq3 4`@w 3`lH@`hrA`h5H(QP & )B4P,B`` ====== TASK # ===== event : action flag : action code : handler type : PC station number : MUX port : capability : ---------- UP message # ---------- DOWN message #>00000000 DT@SPRINT_HEAP_INFO `@ @` p`@ p`@ p2ss3`@ pITT3p 6`@ pTTT3p 6%%`@ p_TT3p 6%4$V>`@ pjTT3p6`@ puTT3p6`@ pTT3p6`@ pTT3p6`@ Kz pTT3p6--v`@ p `H` h!AHt(- H P2 `` +++++ HEAP INFORMATION - current status +++++ top_of_stack = top_of_heap = init_top_of_stack = init_top_of_heap = high_top_of_stack = high_top_of_heap = curr_free --r = curr_mark = S PRINT_SYSTEM_INFORMATION-h3!N:` p `@ p!!6223! 4 !` p `@ p!!A223! 4!` p `@ p!!L223!  4!` p `@ p!!::2o%W223! 4!` fp `@ p!!b223! 4!:$gC;`@ p!!mff3!`@ p!!uu3!`p!p `  @"pP((`p `@p `@`@6hH64`TTJ;)@ p"" 5`";3"443" G`"v3`@ p#"#B" Gp"6"T#G;8 8!(` !((`@ pkk3(x`@ p;;3`@ pAA3` !(xpp ` @#p(u`@ p!55[Y!5`p"!"4`@p"!"6!8 8(N5xJ<` v(`@ pVV3(`@ pjj3`@ pff3 ` v(p@p ` @$p`@ p`p!!600`@p!!66`@p!!60$J<8 8(` w(`@ pVV3(:`@ pww3`@ p&xx3` w(:pp ` @%p `@ p11R( 6` p68 8(`"`1))RD@7`@H`&h'y`(h)AHS(!)_" $ U  PPX6H&bX`` READY H TASK Q : MEMORY WAIT Q : MSG Q : IO Q : REPLY Q : +++++ OPEN APPLICATION TABLE IS +++++* user_id pname lock_number reply_class la2``st_time_action +++++ ACCESS KEY TABLE IS EMPTY +++++ +++++ ACCESS KEY TABLE IS +++++ user_id key #_unsolicited +++++ NO DOWNLOADABLE CARDS +++++ +++++ IO_CARD_TABLE IS +++++ selecCC00t_code file_index LU card_IO_Q +++++ IO_MAP_TABLE IS EMPTY +++++ +++++ IO_MAP_TABLE IS +++++ChHII highway_H_task_# IO_msg_wait_Q S COMMAND_INTERPRETER SSET_FILE_N AMR `pph6@H` 88(sp`@ A@P(`(`@ hH aa** `@P@6`@ @HP (P,(((p(pp` p `@ p`PA@(`(a]<:`@P@6`@ @Hp `@P@6`@ @HJP (P,((p(` z{ ((怈` @ p (h6@H` `p`?A@[[Q++(p`@ hH  ( *`eH(oSFIND_NUMBER `@P@6`@ @HP ("(*[i"77`@ hH  (p `@  ` (`@ p`PA@(`@P@6`@ H@Hp `@ `@ `@ hH  wwbY22`@%@6`@ @HP (f(j`@ `@(y`@ A@ (R`@(`@ AhH @hH (w884Vp `@ hH  @(0+` H@`*h+g(8 M*P% ]I=0123456789p ` (]p`(`@ pxxEE3x`@pxx(`@px`@0py0x3|y??p(`@px xP} 3x` FF$(`@ pxxP}}3x`@P@6@HM`!p p`@pxx(F;;p(pp ` p `@P@6@ HHpx`@py`y@ Px(=`@P@6@ Hpx`@pz`z@ Px(=(p` p ` p `@P@6@ HpxrrLL22`@py`y@ Px(f`@P@6@ Hpx((`@pz`z@ Px(f(lp` @p (o` p (s` @p `(~` A @(r~~i~40` P(P(P(P(P (P (P(/P(AP(SP(eP(wP(P(P(P(L(M`@ pxx663x p (\p ~YYc'6$U(\`@ pxxVV3x`E`/(\`` (\``g Y/\H:(\`@ pxxpp3x`E` (pxp `g 8 8x(` t(pxp ` 8 8x(`@ pxxpp3x(\`77k0 @ pxx~~3 xp (\`@ pxx>>3x7~~+PJ: p (\`@ pxx!dd3 xp (\`@ pxx+dd3x p (\`@ pxx5>>3 xp (\`@ pxx?>>3x`~>>܉#0`@鈨px`@0py0x3|y??(\`@ pxxIdd3x>DSSRE DS_MM.2 N$ALLOC.DS_GETSM N$DRES.3N$INAO N$INITMULTI.1 N$INITMULTI.3 N$INIT_DEC.1 N$INIT_DEC.3/PCIF/PCIFGEN/PCMC7.REL:::5:20:128 644 0 0 12000 5303664634 35310 /PCIF_GEN/PCIFGEN/PCMC7.REL:::5:20:128 "&$ PCMC7 REL +i+i+i !FST >>Xss ]PCSTP 94200-16419 REV.4010 <860801.1 860818.1912 CDS/PCMC7.MAC::PCIF_CI>@ds@@X"O/s ]PCIF_HALT 94200-16419 REV.4010 <860801.1 860818.1912 CDS/PCMC7.MAC::PCIF_CI@sfPCIF_HALT }}.DAD.DDE.DMP.DST.EXIT0.LBPR .LBT.LDX.LPX.LPXR .MB00 .MPY.MW20 .SBT.SDSP ABREG CLRQ EXEC IDGET IMESS LURQPAS.1 PAS.3 PAS.BITEXTRACT2 PAS.BLANKFILL }66PAS.BOUNDINTEGERPAS.CDS PAS.COMPAREBYTESPCIF_03 PCIF_05 PCIF_ERROR1SXREIO 6{jDBSPCIF_HALT SBUILD_STOP_MSGh K 0 .@6h6`Pp-`-P(6h6@-HJP (2(6 @-p-(&`-p- %`Hp D(  OO5bE+'STEST_ANSWER ` p`Pp`P(th K0 .@pP (p(tOpGA@p(R`p `A@ (hK 0 .@ pP ((` p (vpp` hAH( (xph K0 .22T@@pp `   (   ((2AA`@ p (` @p (` p h6@HHP (h6@HHP (p`p8(8( `.`EHp`p(NS USER_REQUEST_TO_STOPnn)1/p `@ h`p<@p `  @p;;P(((~`@ h`: `-p-p `-A@P(^` A@(^n*G=9` p `;@@6H@ Hh 6p=@-JH`=`- p-(7`;@ (y `-A@P(y h6@-HH`/`;@ p=P=p p8 8<(p` VV`M($g(`:p `i( `ip pip`p;p `@@6@ H` 8 8;(` (VXdF:` pi`h(`!p`hp`p  ((T(`p ` (`p ` (p` (`:` //(`( @pV`H@`h(/P$T3OKNOSSEND_LOST_CABLE SCLASS_IO_ERR@OR$`H@( (4(9`@%`H@p ('SLAUNCH_RTE_ERROR`@ `@--XVp ` @#`E@H(PSSCHEDULE_ERROR-VpEC@#`f@H(pSCLRQ_ERR@OR#`zH@(SLURQ_ERROR@#`@H(` (``r(`p (`r(p `(CCyP#`@*@6A`,6 ((p `@@6`,6AHh,6`@*6A@C-kH:` (p  ((`]:;` (`:(p `!( (`q`r($`4($'(($`<<r q$(,(1`q`r(`pp `  @*p<=B<P(A(J``@p:8 8(8`!(ipp ` @+p(f``p:8 8(U`(pp h  K0 OO%# .P((.P(.P((@!x "((OK5`#x "((`8 8(q%"(ň(`&((Ո`` P(`:'p `:())g p.`H`-h.AH)p ()BBi**P(azAZ  -PCR2 @ $UP*B  H+ @i$)/PCIF/PCIFGEN/PCIF_BUILD.CMD:::4:20:45 644 0 0 12000 5303664636 36744 /PCIF_GEN/PCIFGEN/PCIF_BUILD.CMD:::4:20:45 &*$ -PCIF_BUILD CMD +i+i+i lFST ((* PCIF_BUILD.CMD 94200-17001 REV.4010 <860818.1614> "* transfer file for installing PCIF/1000 with CDS or NON CDS monitor"* on user's siteSET LOG = ON)*&dB************************** WARNING ***************************************** )-*&dB &d@ &dB * --*&dB &d@ The PCIF_BUILD.CMD file will need updating if the directory &dB * --*&dB &d@ /LIBRARIES does not exist on your system. &dB * --*&dB &d@ &dB * --*&dB &d@ The following LINK command files : &dB * --*&dB &d@ PCLOP.LOD PCLDM.LOD PCLTM.LOD PCLHL.LOD &dB * --*&dB &d@ PCLGE.LOD PCFOC.LOD PCTST.LOD AUTOR.LOD &dB * --*&dB &d@ should be in directory /PCIF/PCIFGEN. &dB * --*&dB &d@ &dB * --*&dB &d@ WILL NEED UPDATING for SNAP file and PASCAL Library &dB * --*&dB &d@ if your system does not match the defaults listed below: &dB * --*&dB &d@ &dB * --*&dB &d@ &dB * --*&dB &d@ Defaults Used in these Load Files : &dB * --*&dB &d@ &dB * --*&dB &d@ Snap File of RTE-A System = "SNAP" &dB * --*&dB &d@ Name of Pascal Compiler Library = "Pascal.LIB::libraries" &dB * --*&dB &d@ and "Pascal_cds.LIB::libraries" &dB * -)*&dB**************************************************************************** )* ******************************* * ** * PCIF/1000 library building ** * process. ** ******************************* '* Build PCIFM.LIB CDS macro library used by PCGEN when CDS code is selected. '"* Note: "CDSLB comes with RTE-A OS as source code (92059-18027). " * Copy it to &pcifm * Run macro on it to generate $pcifm * Copy $pcifm to /libraries/pcifm.lib. Do not lindx this. * co /pcif/pcifgen/"cdslb &pcifm dmacro &pcifm,0,-co $pcifm /libraries/pcifm.libpu,&pcifm pu,$pcifm * * ******************************* * ** * PCIF/1000 linking process ** * ** ******************************* * * linking PCOPN (PCIF "OPEN" program) LINK /PCIF/PCIFGEN/PCLOP.LOD* * linking PCDMX (PCIF MUX Download program) LINK /PCIF/PCIFGEN/PCLDM.LOD* * linking PCTMO (PCIF Time Out program) LINK /PCIF/PCIFGEN/PCLTM.LOD* * linking PCHLT (PCIF Monitor halt) LINK /PCIF/PCIFGEN/PCLHL.LOD* * linking FOCLO (F/1000 Monitor)LINK /PCIF/PCIFGEN/PCFOC.LOD* !* linking PCGEN (Pre-Configurator -- CDS_NON-CDS Monitor version) !LINK /PCIF/PCIFGEN/PCLGE.LOD* * linking PCTST ( PCIF/1000 Exerciser Program ) LINK /PCIF/PCIFGEN/PCTST.LOD* !* linking AUTOR ( PCIF/1000 Power fail processing for 12040C MUX) !LINK /PCIF/PCIFGEN/AUTOR.LOD* *************************************************** ** loading of PCIF/1000 programs completed ! ** ***************************************************$* Do a directory list on the cartridge in $1 to show all loaded files : $"* If all of the following files are present, PCIF loaded correctly :"*  * On /PCIF/RUNTIME : PCDMX.RUN PCTMO.RUN PCHLT.RUN PCOPN.RUN * PCTST.RUN AUTOR.RUN * On /PCIF/PCIFGEN : PCGEN.RUN* On /programs : FOCLO.RUN* On /libraries : $PCIFM &* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * &*  DL,/PCIF/RUNTIME/@.RUN DL,/PCIF/PCIFGEN/@.RUN DL,FOCLO.RUN::PROGRAMS DL,PCIFM.LIB::LIBRARIES * ******************************************************* * * * If the loading completed successfully, then * * build the PCIF Configurator Program "PCCON" * * and the PCIF/1000 monitor program "PCIF" by *  * entering &dB RU, /PCIF/PCIFGEN/PCGEN &d@ and answering * * the questions. * * * * If it did not load correctly, contact your * * HP representative for assistance. * ******************************************************* SET LOG = OF   /PCIF/PCIFGEN/PCLGE.LOD:::4:2:30 644 0 0 1000 5303664637 35151 /PCIF_GEN/PCIFGEN/PCLGE.LOD:::4:2:30 $$ PCLGE LOD +i+i+i FST * PCLGE.LOD 94200-17002 REV.5000 <870518.1240>* link file for PCIF/1000 PCGEN (Pre-Configurator)* Path name, security and security code MAY need updating.* command file NEEDS UPDATING for Snap Shot & PASCAL library* SN,SNAP pc,31,0  LI,/F1000/FOPRL.LIB LI,/F1000/FRULB.LIB LI,/LIBRARIES/PASCAL.LIB RE,/F1000/FCOMM.REL RE,/PCIF/PCIFGEN/PCGEN.LIB EN,/PCIF/PCIFGEN/PCGEN.RUN /PCIF/PCIFGEN/PCFOC.LOD:::4:3:38 644 0 0 1400 5303664641 34312 /PCIF_GEN/PCIFGEN/PCFOC.LOD:::4:3:38 $$ &PCFOC LOD +i+i+iFST * PCFOC.LOD 94200-17004 REV.5000 <870518.1243>* link file for FOCLO F/1000 monitor used by PCIF/1000&* ------------------------------------------ Pre-Configurator & Configurator&* Path name, security and security code MAY need updating.* command file NEEDS UPDATING for Snap Shot * SN,SNAP pc,31,0  LI,/F1000/FOFLL.LIB LI,/F1000/FLULB.LIB LI,/F1000/FRULB.LIB RE,/F1000/FOCLO.REL RE,/F1000/FOBLK.REL RE,/F1000/FUSE9.REL RE,/F1000/FCOMM.REL EN,FOCLO.RUN::PROGRAMS /PCIF/PCIFGEN/PCP01.FRM:::3:8:75 644 0 0 4000 5303664644 34613 /PCIF_GEN/PCIFGEN/PCP01.FRM:::3:8:75 $$ KPCP01 FRM +i+i+iFST <vFO *PCP01.FRM 94200-17011 REV.4010 PCIF/1000 Preconfigurator SCREEN 1   Y B01 V02OC?< >FILNAM FILNAM ? OC1B06VC05 PCIF/1000 Preconf *Q&v02SPCIF/1000 (REV.4010) HP94200 (c) COPYRIGHT Hewlett-Packard Co. 1986 *&v02S &v02S +T&v02S ** SCREEN 1 **+&v02S !@&v02S PCIF/1000 Preconfigurator: Descriptor File Name!&v02S &v02S &v02S 4&v02S Descriptor Filename :&v02S 4f&v02S &v06S&dB[ ]&v02S&d@ 4&v02S &v02S &v02S &v02S &v02S &v02S &I&v02S Pressing ENTER key is the normal way to activate next screen &&v02S &v02S )O ) )O )KFO EXIT HELP REFRESH ABORT PCGEN KKFO KKFO KKFO KKFO K((/PCIF/PCIFGEN/PCP01.HLP:::4:5:39 644 0 0 2400 5303664646 34446 /PCIF_GEN/PCIFGEN/PCP01.HLP:::4:5:39 $$ 'PCP01 HLP +i+i+iVFST * PCP01.HLP 94200-17012 REV.4010 <860729.1407>'This screen asks for the RTE name of a descriptor file which contains relevant'%information on the PC to be configured. If the name is unknown it may be %&found in the PCIF Software Numbering Catalogue. This name may be a full CI &path and filename with up to 63 characters.  'The handler, possibly the partial configurator and possibly the download files'"that are named in a descriptor file must exist in the directory path"specified. &When the field has been filled, the operator must press ENTER to proceed to &screen 2. 'If the softkey EXIT is depressed, screen 3 is displayed. A file namr entered '"on this screen is ignored by the preconfigurator. The acceptance of"&descriptor file names into the preconfigurator occurs with the validation of&screen 2.  'If the softkey ABORT PCGEN is depressed, a confirmation will be required. The '$key must be pressed again to confirm. The preconfigurator will then be $'terminated. If the ABORT PCGEN key is pressed once in error, pressing another 'key disables the ABORT request.  Press the HOME UP key to return to screen 1./PCIF/PCIFGEN/PCP02.FRM:::3:25:104 644 0 0 14400 5303664647 35021 /PCIF_GEN/PCIFGEN/PCP02.FRM:::3:25:104 "&$ hPCP02 FRM +i+i+i 'FFST <vFO *PCP02.FRM 94200-17013 REV.4010 PCIF/1000 Preconfigurator SCREEN 2  Y B01 V02DC(&SQ< >DESNAM DESNAM ?DC3@06VB05! PCIF/1000 Preconfigu >FBRAND FBRAND DC3@06VB05! PCIF/1000 Preconfigu >HANNAM HANNAM ?DC3@06VB05! PCIF/1000 Preconfigu >CONNAM CONNAM ?DC3@06VB05! PCIF/1000 Preconfigu >SUTY01 SUTY01  !DC3@06VB051 PCIF/1000 Preconfigu >SUTY02 SUTY02  1DC3@06VB05Y PCIF/1000 Preconfigu >SUTY03 SUTY03  ADC3@06VB05 PCIF/1000 Preconfigu >SUTY04 SUTY04  DC3@06VB05 PCIF/1000 Preconfigu >SUTY05 SUTY05  DC3@06VB059 PCIF/1000 Preconfigu >SUTY06 SUTY06  !DC3@06VB05a PCIF/1000 Preconfigu >SUTY07 SUTY07  1DC3@06VB05 PCIF/1000 Preconfigu >SUTY08 SUTY08  ADC3@06VB05 PCIF/1000 Preconfigu >SUTY09 SUTY09  DC3@06VB05 PCIF/1000 Preconfigu >SUTY10 SUTY10  DC3@06VB059 PCIF/1000 Preconfigu >SUTY11 SUTY11  !DC3@06VB05a PCIF/1000 Preconfigu >SUTY12 SUTY12  1DC3@06VB05 PCIF/1000 Preconfigu >SUTY13 SUTY13  ADC3@06VB05 PCIF/1000 Preconfigu >SUTY14 SUTY14  DC3@06VB05 PCIF/1000 Preconfigu >SUTY15 SUTY15  DC3@06VB059 PCIF/1000 Preconfigu >SUTY16 SUTY16  !DC3@06VB05a PCIF/1000 Preconfigu >SUTY17 SUTY17  1DC3@06VB05 PCIF/1000 Preconfigu >SUTY18 SUTY18  ADC3@06VB05 PCIF/1000 Preconfigu >SUTY19 SUTY19 DC3@06VB05 PCIF/1000 Preconfigu >SUTY20 SUTY20 DC3@06VB059 PCIF/1000 Preconfigu >SUTY21 SUTY21 !DC3@06VB05a PCIF/1000 Preconfigu >SUTY22 SUTY22 1DC3@06VB05 PCIF/1000 Preconfigu >SUTY23 SUTY23 ADC3@06VB05 PCIF/1000 Preconfigu >SUTY24 SUTY24 DC3@06VB05 PCIF/1000 Preconfigu >SUTY25 SUTY25 DC3@06VB059 PCIF/1000 Preconfigu >SUTY26 SUTY26 !DC3@06VB05a PCIF/1000 Preconfigu >SUTY27 SUTY27 1DC3@06VB05 PCIF/1000 Preconfigu >SUTY28 SUTY28 ADC3@06VB05 PCIF/1000 Preconfigu >SUTY29 SUTY29 DC3@06VB05 PCIF/1000 Preconfigu >SUTY30 SUTY30 DC3@06VB059 PCIF/1000 Preconfigu >SUTY31 SUTY31 !DC3@06VB05a PCIF/1000 Preconfigu >SUTY32 SUTY32 1DC3@06VB05 PCIF/1000 Preconfigu >FINFO1 FINFO1 PDC3@06VB05 PCIF/1000 Preconfigu >FINFO2 FINFO2 PDC3@06VB05 PCIF/1000 Preconfigu >Y FYES 'OC3B06VC057 PCIF/1000 Preconfigu >N FNO 6OC3B06VC05^ PCIF/1000 Preconfigu +T&v02S ** SCREEN 2 **+&v02S &I&v02S PCIF/1000 Preconfigurator: Descriptor File Information &&v02S 8m&v02SDescriptor File:&v06S&d@] ]&v02S&d@ 8"B&v02SPC Brand Name: &v06S&d@] ]&v02S&d@"8m&v02SHandler File: &v06S&d@] ]&v02S&d@ 88m&v02SConfig File: &v06S&d@] ]&v02S&d@ 8&v02S P&v02S32 first supported types: &v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ Ph&v02S&v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ hh&v02S&v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ hh&v02S&v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ hh&v02S&v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ hh&v02S&v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ hT&v02S&v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ T&v02SGeneral information:2b&v02S&v06S&d@] 23d&v02S]&v06S&d@] 3 &v02S B&v02SDo you want to validate ? Yes: &v06S&dB[ ]&v02S&d@ No: &v06S&dB[ ]&v02S&d@ B)O )&v02S )O )KFO EXIT HELP REFRESH ABORT PCGEN KKFO KKFO KKFO KKFO K/XOmOOtlO3Ot/AmO9OqOghW/@xO@OhOq/QOGOxOhOmOkjOKOOkhONOmhOQOk/XhOVOhOqOXkO]OqOOh/OvOa*P"?**P_O^Ox`Ovwh/PCIF/PCIFGEN/PCP02.HLP:::4:4:39 644 0 0 2000 5303664651 34405 /PCIF_GEN/PCIFGEN/PCP02.HLP:::4:4:39 $$ 'PCP02 HLP +i+i+i4FST * PCP02.HLP 94200-17014 REV.4010 <860729.1407>'This screen describes the descriptor file whose namr was entered in screen 1. ' Only 32 supported types are shown here. &If more than 32 types are supported by this descriptor, they will be listed &by PCIF/1000 Configuration Editor, on screen 4 or 8. &The operator must confirm whether the displayed information is valid for the&&required configuration. This validation is achieved by entering an X in the &YES field followed by pres((sing ENTER or EXIT.  If the key ENTER is depressed, screen 1 is displayed. If the softkey EXIT is depressed, screen 3 is displayed. 'If the softkey ABORT PCGEN is depressed, a confirmation will be required. The '$key must be pressed again to confirm. The preconfigurator will then be $'terminated. If the ABORT PCGEN key is pressed once in error, pressing another 'key disables the ABORT request.  Press the HOME UP key to return to screen 2./PCIF/PCIFGEN/PCP03.FRM:::3:10:75 644 0 0 5000 5303664652 34426 /PCIF_GEN/PCIFGEN/PCP03.FRM:::3:10:75 !%$  KPCP03 FRM +i+i+i $:FST <vFO *PCP03.FRM 94200-17015 REV.4010 PCIF/1000 Preconfigurator SCREEN 3  ) Y B01 V02OCD< >FNAMR FNAMR ? OC5B06VG05 PCIF/1000 Preconfi >Y FYES  ,OC5B06VG05< PCIF/1000 Preconfi >N FNO  ;OC5B06VG05c PCIF/1000 Preconfi >C FCDS ,OC5B06VC05< PCIF/1000 Preconfi >X FNCDS ;OC5B06VC05c PCIF/1000 Preconfi >A FADDIN ,OC5B06VG05< PCIF/1000 Preconfi +T&v02S ** SCREEN 3 **+&v02S #C&v02S PCIF/1000 Preconfigurator: Completion Information #&I&v02S &&v02S 3&v02S Listing File Name: &v02S 4f&v02S &v06S&dB[ ]&v02S&d@ 4&v02S &v02S &v02S ;t&v02S Preconfiguration completion: Yes: &v06S&dB[ ]&v02S&d@ No: &v06S&dB[ ]&v02S&d@ ;&v02S &v02S :q&v02S Code Generation: CDS: &v06S&dB[ ]&v02S&d@ Non-CDS: &v06S&dB[ ]&v02S&d@ :&v02S  &v02S &J&v02S Adding other descriptor: &v06S&dB[ ]&v02S&d@&&v02S &v02S &v02S )O )  KFO HELP REFRESH ABORT PCGEN KKFO KKFO KKFO KKFO K?y?w8G_UV `V V`V V-aUV V .+.rV .1.rVV4VvVV.vVV?VvVV.vf.Sf.S/VRVVV.qf._f._/V^VVV.qf.lVfV/VkVVV.q/VqVVV.V .x.|V{V.V /PCIF/PCIFGEN/PCP03.HLP:::4:4:39 644 0 0 2000 5303664653 34457 /PCIF_GEN/PCIFGEN/PCP03.HLP:::4:4:39 $$ 'PCP03 HLP +i+i+iFFST * PCP03.HLP 94200-17016 REV.4010 <860729.1404> %Listing File Name: a file name must be entered if the preconfiguration is %' completed. The listing can be selected alone or simultaneously with "adding '% other descriptor". Screen 3 stays displayed if it is selected alone. A % full CI path may also be entered with the file name. #Code Generation: the type of code to be generated for PCCON (the PCIF #$ configurator) and PCIF (the runtime code) must be chosen here. An "X"$ should be placed in the appropriate box (default is CDS).  #If "adding other descriptor" is selected, screen 1 is displayed again.# &Confirmation requests will be displayed after pressing ENTER if one of the 6&'work files or the list file already exists. Pressing ENTER again will overlay 'this file with the latest preconfiguration data.The softkey ABORT PCGEN is processed as on screen 1 or 2.  Press the HOME UP key to return to screen 3./PCIF/PCIFGEN/PCLDM.LOD:::4:2:30 644 0 0 1000 5303664720 34770 /PCIF_GEN/PCIFGEN/PCLDM.LOD:::4:2:30 $$ PPCLDM LOD +i+i+i LFST * PCLDM.LOD 94200-17103 REV.5000 <870518.1246>* LINK file for PCIF/1000 download MUX : PCDMX* Path name, security and security code MAY need updating.* command file NEEDS UPDATING for Snap Shot & PASCAL library* SN,SNAP SUpc,31,0  LI,/LIBRARIES/PASCAL.LIB RE,/PCIF/PCIFGEN/PCDMX.REL RE,/PCIF/PCIFGEN/PCS0.REL RE,/PCIF/PCIFGEN/PCS1.REL EN,/PCIF/RUNTIME/PCDMX /PCIF/PCIFGEN/PCLOP.LOD:::4:2:29 644 0 0 1000 5303664722 35002 /PCIF_GEN/PCIFGEN/PCLOP.LOD:::4:2:29 $$ TPCLOP LOD +i+i+i PFST * PCLOP.LOD 94200-17104 REV.5000 <870518.1245>* link file for PCIF/1000 PCOPN * Path name, security and security code MAY need updating.* command file NEEDS UPDATING for Snap Shot * SN,SNAP pc,31,0 SU RE,/PCIF/PCIFGEN/PCOPN.REL EN,/PCIF/RUNTIME/PCOPN /PCIF/PCIFGEN/PCLTM.LOD:::4:2:30 644 0 0 1000 5303664723 35075 /PCIF_GEN/PCIFGEN/PCLTM.LOD:::4:2:30 $$ XPCLTM LOD +i+i+i TFST * PCLTM.LOD 94200-17105 REV.5000 <870518.1247> * link file for PCIF/1000 PCTMO * Path name, security and security code MAY need updating.* command file NEEDS UPDATING for Snap Shot & PASCAL library* SN,SNAP pc,31,0 SU LI,/LIBRARIES/PASCAL.LIB RE,/PCIF/PCIFGEN/PCS0.REL RE,/PCIF/PCIFGEN/PCS1.REL RE,/PCIF/PCIFGEN/PCTMO.REL EN,/PCIF/RUNTIME/PCTMO /PCIF/PCIFGEN/PCLHL.LOD:::4:2:30 644 0 0 1000 5303664724 35036 /PCIF_GEN/PCIFGEN/PCLHL.LOD:::4:2:30 $$ \PCLHL LOD +i+i+i XFST * PCLHL.LOD 94200-17106 REV.5000 <870518.1243>* link file for PCIF/1000 PCHLT * Path name, security and security code MAY need updating.* command file NEEDS UPDATING for Snap Shot & PASCAL library* SN,SNAP pc,31,0  LI,/LIBRARIES/PASCAL.LIB RE,/PCIF/PCIFGEN/PCS0.REL RE,/PCIF/PCIFGEN/PCS1.REL RE,/PCIF/PCIFGEN/PCHLT.REL EN,/PCIF/RUNTIME/PCHLT /PCIF/PCIFGEN/AUTOR.LOD:::4:2:29 644 0 0 1000 5303664726 35143 /PCIF_GEN/PCIFGEN/AUTOR.LOD:::4:2:29 $$ `AUTOR LOD +i+i+i \FST * AUTOR.LOD 94200-17108 REV.5000 <870518.1238>* link file for PCIF/1000 AUTOR * Path name, security and security code MAY need updating.* command file NEEDS UPDATING for Snap Shot * SN,SNAP SUsc,31,0  RE,/PCIF/PCIFGEN/AUTOR.REL RE,/PCIF/PCIFGEN/PCMUX.REL EN,/PCIF/RUNTIME/AUTOR.RUN ((/PCIF/PCIFGEN/PCTST.LOD:::4:2:29 644 0 0 1000 5303664727 35207 /PCIF_GEN/PCIFGEN/PCTST.LOD:::4:2:29 $$ dPCTST LOD +i+i+i `FST * PCTST.LOD 94200-17404 REV.5000 <870518.1245>* link file for PCTST PCIF/1000 Exerciser Program* Path name, security and security code MAY need updating.* command file MAY NEED UPDATING for Snap Shotpc,31,0 SU LI,/PCIF/RUNTIME/PCLIB.LIB LI,/LIBRARIES/PASCAL.LIB RE,/PCIF/PCIFGEN/PCTST.REL EN,/PCIF/RUNTIME/PCTST /PCIF/PCIFGEN/M94200.MNF:::4:8:39 644 0 0 4000 5303664730 34650 /PCIF_GEN/PCIFGEN/M94200.MNF:::4:8:39 !%$ h'M94200 MNF +i+i+idFST  * M94200.MNF 94200-17995 REV.6000 <921120.1419>$ ************************************************************************ $$ * * $$ * PCIF/1000 and Handlers Manual Numbering File * $$ * * $$ * Product: 94200B REV. 6000 * $$ * * $$ ************************************************************************ $ $ The following is a list of manuals supplied with PCIF/1000 software and$% its associated Handlers. The edition number, update number and print code % are current for the software Revision Code shown above. ' Print'& Part Number Manual Title Ed/Up Code &' ----------- -------------------------------------------------- ----- -----'' 94200-90002 HP Programmable Controller Interface/1000 3/- E1186'' 94200-90003 Getting Started with PCIF/1000 User Manual 1/- E0684'' 94202-90001 Using PCIF/1000 with Allen Bradley Programmable 4/- E0388' Controllers' 94203-90001 Using PCIF/1000 with Gould Programmable Controllers 5/- E0787'' 94204-90001 Using PCIF/1000 with SIEMENS Programmable Controllers 1/- E0186'' 94205-90001 Using PCIF/1000 with TELEMECANIQUE Programmable 1/- E0785' Controllers' 94206-90001 Using PCIF/1000 with General Electric Programmable 2/- E1186' Controllers' 94207-90001 Using PCIF/1000 with Texas Instruments Programmable 1/- E0388' Controllersp  p--`*!RCp ^-0 pd.A hhh.:dp ` Dp ' .:l܋T..:K.' .:.=j./PCIF/PCIFGEN/B94200:::4:44:39 644 0 0 26000 5303664731 34326 /PCIF_GEN/PCIFGEN/B94200:::4:44:39 "$, x,'B94200 +i+9T+i,nFST * B94200 94200-17999 REV.6000 <880315.1358>     ************************************************************** * PCIF/1000 SOFTWARE NUMBERING FILE FILE NAME: B94200 * * * * PRODUCT: 94200B REV.6000 * * * **************************************************************   Directory: /PCIF/PCIFGEN/    FILENAME PART NUMBER REV. TYPE DESCRIPTION ' --------------------- ----------- ---- ---- --------------------------------'  "CDSLB 92059-18027 2326 4 CDS MACRO LIBRARY  PCGEN.LIB 94200-12002 4010 5 Pre-configurator  PCCON.REL 94200-16031 4010 5 Config main  PCCLI.REL 94200-16032 4010 5 Config listing$ PCCT1.REL 94200-16033 4010 5 Config screen 1 processing$$ PCCT2.REL 94200-16034 4010 5 Config screen 2 processing$$ PCCT3.REL 94200-16035 4010 5 Config screen 3 processing$$ PCCT7.REL 94200-16038 4010 5 Config screen 7 processing$$ PCCT9.REL 94200-16040 4010 5 Config screen 9 processing$% PCC11.REL 94200-16041 4010 5 Config screen 11 processing %! PCCUT.REL 94200-16046 4010 5 Pcon & con utilities! $ PCMC0.REL 94200-16412 4010 5 Monitor : CDS main program$% PCMC1.REL 94200-16413 4010 5 Monitor : CDS error handling%% PCMC2.REL 94200-16414 4010 5 Monitor : CDS EMA management%! PCMC3.REL 94200-16415 5005 5 Monitor : CDS kernal!& PCMC4.REL 94200-16416 4010 5 Monitor : CDS service routines&% PCMC5.REL 94200-16417 5005 5 Monitor : CDS initialization%$ PCMC6.REL 94200-16418 5005 5 Monitor : CDS debug tools $ PCMC7.REL 94200-16419 4010 5 Monitor : CDS stop % PCS0C.REL 94200-16107 4010 5 Error message builder (CDS) %% PCS1C.REL 94200-16108 4010 5 Decimal to ASCII conv (CDS) %$ PCMN0.REL 94200-16201 4010 5 Monitor main pgm (non CDS)$& PCMN1.REL 94200-16202 4010 5 Monitor err handling (nonCDS) &" PCMN2.REL 94200-16203 4010 5 Monitor EMA management" PCMN3.REL 94200-16204 5005 5 Monitor kernel# PCMN4.REL 94200-16205 4010 5 Monitor service routines#" PCMN5.REL 94200-16206 5005 5 Monitor initialization"! PCMN6.REL 94200-16207 5005 5 Monitor debug tools ! PCMN7.REL 94200-16208 4010 5 Monitor stop% PCS0.REL 94200-16209 4010 5 Error msg bldr nonCDS PCLIB %$ PCS1.REL 94200-16210 4010 5 Dec to ascii nonCDS PCLIB $ ' AUTOR.FTN 94200-18109 4010 4 Pwr fail auto restart for DD.00 '% AUTOR.REL 94200-16109 4010 5 Pwr fail auto restart reloc %& AUTOR.LOD 94200-17108 5000 4 Pwr fail auto restart cmd file&% PCMUX.REL 94200-16047 4010 5 PCMUX Powerfail recovery pgm% % PCPGF.DAT 94200-18407 5000 4 Assemb & link file (CDS Mon)% & M94200.MNF 94200-17995 6000 4 PCIF/1000 Manual Numbering File && B94200 94200-17999 6000 4 PCIF/1000 Software Number Cat.& $ PCCT4.REL 94200-16036 4010 5 Config screen 4 processing$$ PCCT5.REL 94200-16037 4010 5 Config screen 5 processing$$ PCCT8.REL 94200-16039 4010 5 Config screen 8 processing$% PCCCP.REL 94200-16042 4010 5 Config descriptor compilator%$ PCFOI.REL 94200-16045 4010 5 Preconfig&config f1000 i/f$ PCDMX.REL 94200-16220 4010 5 Mux download! PCTMO.REL 94200-16222 4010 5 Time out management ! PCHLT.REL 94200-16223 4010 5 Stop PCIF monitor  # PCLGE.LOD 94200-17002 5000 4 Preconfig link cmd file #$ PCFOC.LOD 94200-17004 5000 4 F/1000 FOCLO link cmd file$ & PCPGE.DAT 94200-18010 5000 4 assemb & link include cmd file&% [PCPHL 94200-18301 2525 4 global vars for PC handlers % " PCTST.PAS 94200-18404 4010 3 PCIF Exerciser program"# PCTST.REL 94200-16404 4010 5 PCIF Exerciser pgm reloc# $ PCP01.FRM 94200-17011 4010 3 Preconfig scrn 1 form file$  PCOPN.REL 94200-16221 4010 5 PCIF-OPEN mailbox # DDP61.REL 94200-16359 4010 5 device driver for IDS00 ## PCLDM.LOD 94200-17103 5000 4 link cmd file for PCDMX ## PCLOP.LOD 94200-17104 5000 4 link cmd file for PCOPN ## PCLTM.LOD 94200-17105 5000 4 link cmd file for PCTMO ## PCLHL.LOD 94200-17106 5000 4 link cmd file for PCHLT #% [PCHHL 94200-18302 2618 4 global vars for hwy handler %% PCTST.LOD 94200-17404 5000 4 LINK Command File for PCTST %% PCIF_BUILD.CMD 94200-17001 4010 4 CI cmd file to install PCIF % $ PCP01.HLP 94200-17012 4010 4 PreCon help file screen 1 $$ PCP02.FRM 94200-17013 4010 3 PreCon form file screen 2 $$ PCP02.HLP 94200-17014 4010 4 PreCon help file screen 2 $$ PCP03.FRM 94200-17015 4010 3 PreCon form file screen 3 $$ PCP03.HLP 94200-17016 4010 4 PreCon help file screen 3 $  Directory: /PCIF/RUNTIME/ PCLBC.LIB 94200-12003 4010 5 PCIF Library (CDS) " PCLIB.LIB 94200-12001 4010 5 PCIF Library (nonCDS) " & PCERR.ERR 94200-17005 4010 4 Preconfig&config err msg file & # PCC01.FRM 94200-17017 4010 3 Config scrn 1 form file ((#$ PCC01.HLP 94200-17018 4010 4 Config help file screen 1 $$ PCC02.FRM 94200-17019 4010 3 Config form file screen 2 $$ PCC02.HLP 94200-17020 4010 4 Config help file screen 2 $$ PCC03.FRM 94200-17021 4010 3 Config form file screen 3 $$ PCC03.HLP 94200-17022 4010 4 Config help file screen 3 $$ PCC04.FRM 94200-17023 4010 3 Config form file screen 4 $$ PCC04.HLP 94200-17024 4010 4 Config help file screen 4 $$ PCC05.FRM 94200-17025 4010 3 Config form file screen 5 $$ PCC05.HLP 94200-17026 4010 4 Config help file screen 5 $& PCCB5.FRM 94200-17027 4010 3 Config form file screen 5 bis && PCCB5.HLP 94200-17028 4010 4 Config help file screen 5 bis &$ PCC07.FRM 94200-17029 4010 3 Config form file screen 7 $$ PCC07.HLP 94200-17030 4010 4 Config help file screen 7 $$ PCC08.FRM 94200-17031 4010 3 Config form file screen 8 $$ PCC08.HLP 94200-17032 4010 4 Config help file screen 8 $$ PCC09.FRM 94200-17033 4010 3 Config form file screen 9 $$ PCC09.HLP 94200-17034 4010 4 Config help file screen 9 $& PCCB9.FRM 94200-17035 4010 3 Config form file screen 9 bis && PCCB9.HLP 94200-17036 4010 4 Config help file screen 9 bis &$ PCC11.FRM 94200-17037 4010 3 Config form file screen 11$$ PCC11.HLP 94200-17038 4010 4 Config help file screen 11$% PCMSG.ERR 94200-17101 4010 4 Err msg file - User routines%" PCMER.ERR 94200-17102 4010 4 Err msg file - Monitor"  Directory: /PCIF/F1000/  ' FOFLL.LIB 94250-12528 6000 5 F/1000 Library:Integral FORTRAN '' FLULB.LIB 94250-12523 6000 5 Common Routines for F/1000 Lib. '% FRULB.LIB 94250-12546 2520 5 Utility Lib for Non-Integral%# FOPRL.LIB 94250-12538 6000 5 F/1000 Lib: Non-Integral# FOBLK.REL 94250-16504 5010 5 Block Data #1 % FUSE9.REL 94250-16514 2520 5 Block Data #9 (User selects)%& FOCLO.REL 94250-16505 6000 5 Forms Monitor Program (Cloned)&$ FCOMM.REL 94250-16613 5010 5 Block Data for PTOP Comm. $# FOLCL.TXT 94250-17542 2520 4 F/1000 Localization File#  Directory: /PCIF/GSWPCIF/  # GMOD1.CRS 94200-16511 5000 1 first gm run-time module#$ GMOD2.CRS 94200-16512 5000 1 Second GM run-time module $# GMOD3.CRS 94200-16513 5000 1 Third GM run-time module#$ GMOD4.CRS 94200-16514 5000 1 Fourth GM run-time module $# GMOD5.CRS 94200-16515 5000 1 Fifth GM run-time module## ABMOD1.CRS 94200-16518 5000 1 first gm runtime module #$ ABMOD2.CRS 94200-16519 5000 1 Second AB run-time module $# ABMOD3.CRS 94200-16520 5000 1 Third AB run-time module#$ ABMOD4.CRS 94200-16521 5000 1 Fourth AB run-time module $# ABMOD5.CRS 94200-16522 5000 1 Fifth AB run-time module## GEMOD1.CRS 94200-16530 5000 1 First GE run-time module#$ GEMOD2.CRS 94200-16531 5000 1 Second GE run-time module $# GEMOD3.CRS 94200-16532 5000 1 Third GE run-time module#$ GEMOD4.CRS 94200-16533 5000 1 Fourth GE run-time module $# GEMOD5.CRS 94200-16534 5000 1 Fifth GE run-time module#% COURSE0.REL 94200-16502 2606 5 Pilot relocatable - module 1% MAINMENU.CRS 94200-16523 5000 1 Online Main Menu$ CSCR06.TXT 94200-17234 2618 3 Get start AB Screen 6 file$$ CSCR16.TXT 94200-17236 2618 3 Get start GE Screen 6 file$# PCHAB.TXT 94200-17211 5000 4 AB HWY HANDLER DESCRIPOR#$ PCHGE.TXT 94200-17501 5000 4 GE HWY HANDLER DESCRIPTOR $$ PCHGM.TXT 94200-17213 5000 4 GM HWY HANDLER DESCRIPTOR $$ PCPAB.TXT 94200-17212 5000 4 AB HWY HANDLER DESCRIPTOR $$ PCPGE.TXT 94200-17502 5000 4 GE HWY HANDLER DESCRIPTOR $$ PCPGM.TXT 94200-17214 5000 4 GM HWY HANDLER DESCRIPTOR $ APPA 94200-17503 5005 4 Sample PC handler " APPB 94200-17504 5005 4 Sample highway handler"' APPC 94200-17505 5005 4 Sample handler global variables '# APPD 94200-17506 5005 4 Sample firmware skeleton#" APPE 94200-17507 5005 4 Sample screen 6 and 10"! APPF 94200-17508 5005 4 Sample stress tests ! APPG 94200-17509 5005 4 Sample shell tests # APPH 94200-17510 5005 4 Sample performance tests# APPI 94200-17511 5005 4 Sample emulator OD 94200-17106 5000 4 link cmd file for PCHLT #%/PCIF/PCIFGEN/PCPGE.DAT:::4:21:39 644 0 0 12400 5303664733 35527 /PCIF_GEN/PCIFGEN/PCPGE.DAT:::4:21:39 !%$ 'PCPGE DAT +i+i+i *FST * PCPGE.DAT 94200-18010 REV.5000 <870518.1242>* ASSEMBLER & LINK COMMAND FILES* SOURCE: 94200-18010* RELOCATABLE: non-existent * PRGMR: OK, CGY updated to 2520 F1000.  * ************************************************************ * * (C) COPYRIGHT HEWLETT-PACKARD 1983. ALL RIGHTS RESERVED. * * * NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, REPRODUCED, * * * OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT THE * * * PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. * * ************************************************************ * * DESCRIPTION:* Contains text for building!* - PCCTB.MAC by routine GENERATION_MACRO in file PCPMA.PAS!!* - PCRTB.MAC by routine GENERATION_MACRO in file PCPMA.PAS!!* - PCLCO.LOD by routine GENERATION_LINK in file PCPLK.PAS !!* - PCLRT.LOD by routine GENERATION_LINK in file PCPLK.PAS !* * WARNING: DO NOT remove or modify ANY lines in this file.* Information is located by line number. %* 860730 mja - Changed D10 and D-10 to D32 and D-32 for 64 char filenames %'******************************************************************************'* * MACRO,R {1} NAM PCCTB  ENT PC_descr_dir  ENT PC_user  EXT .ENTR {5} EXT Pas.SegmentLoad namr1_add DEF namr001 count DEC 0 source DEC 0 case_add DEC 0 {10}hand_nb DEC 0 hand_max DEC 0 descr_nam DEC 0 PC_descr_dir NOP JSB .ENTR {15} DEF hand_nb LDA @hand_nb ADA =D-1 MPY =D32  ADA namr1_add {20} STA source LDA =D-32 STA count loop LDA @source  STA @descr_nam {25} ISZ source ISZ descr_nam ISZ count JMP loop  STA @hand_max {30} JMP @PC_descr_dir conf_nb DEC 0 P1 DEC 0 P2 DEC 0 P3 DEC 0 {35}  P4 DEC 0 P5 DEC 0 valid DEC 0 action DEC 0 PC_user NOP {40}  JSB .ENTR DEF conf_nb LDA @conf_nb ADA =D-1  ADA case1_add {45}  STA case_add JMP @case_add case1_add DEF case001 retu LDA =D1 {60}  STA @valid STA @action JMP @PC_user  END *********************************************** * Partial assembler source code for PCRTB.MAC * *********************************************** MACRO,R {1}  NAM PCRTB ENT PCIF_download ENT PCIF_handler  EXT .ENTR {5} n1 DEF namr001count DEC 0 source DEC 0 hand_add DEC 0 hand_nb DEC 0 {10} hand_max DEC 0 dwnlo_nam DEC 0  PCIF_download NOP  JSB .ENTR DEF hand_nb {15} LDA @hand_nb  ADA =D-1  MPY =D32  ADA n1  STA source {20}  LDA =D-32 STA countloop LDA @source STA @dwnlo_nam  ISZ source {25}  ISZ dwnlo_nam  ISZ count JMP loop  STA @hand_max  JMP @PCIF_download {30} h_nb DEC 0 P1 DEC 0 P2 DEC 0 P3 DEC 0 PCIF_handler NOP JSB .ENTR  DEF h_nb LDA @h_nb  ADA =D-1 {40}  MPY =D6  ADA =D1  ADA hand1_add STA hand_add  JMP @hand_add {45} hand1_add DEF h1h1 NOP  END ******************************* * Link command file PCLCO.LOD * ******************************* ****** SN,SNAPpc,31,0 **************VM LI,/F1000/FOPRL.LIB LI,/F1000/FRULB.LIB LI,/LIBRARIES/PASCAL.LIB RE,/F1000/FCOMM.REL RE,/PCIF/PCIFGEN/PCCON.REL RE,/PCIF/PCIFGEN/PCCTB.REL RE,/PCIF/PCIFGEN/PCFOI.REL RE,/PCIF/PCIFGEN/PCCUT.REL RE,/PCIF/PCIFGEN/PCCLI.REL RE,/PCIF/PCIFGEN/PCCT1.REL RE,/PCIF/PCIFGEN/PCCT2.REL RE,/PCIF/PCIFGEN/PCCT3.REL RE,/PCIF/PCIFGEN/PCCT4.REL RE,/PCIF/PCIFGEN/PCCT5.REL RE,/PCIF/PCIFGEN/PCCT7.REL RE,/PCIF/PCIFGEN/PCCT8.REL RE,/PCIF/PCIFGEN/PCCT9.REL RE,/PCIF/PCIFGEN/PCC11.REL RE,/PCIF/PCIFGEN/PCCCP.REL EN,/PC((IF/RUNTIME/PCCON ******************************* * Link command file PCLRT.LOD * ******************************* ****** SN,SNAPSUpc,31,0 ************** LI,/LIBRARIES/PASCAL.LIB RE,/PCIF/PCIFGEN/PCMN0.REL RE,/PCIF/PCIFGEN/PCMN1.REL RE,/PCIF/PCIFGEN/PCMN2.REL RE,/PCIF/PCIFGEN/PCRTB.REL RE,/PCIF/PCIFGEN/PCS1.REL RE,/PCIF/PCIFGEN/PCMN3.REL RE,/PCIF/PCIFGEN/PCMN4.REL RE,/PCIF/PCIFGEN/PCMN5.REL RE,/PCIF/PCIFGEN/PCS0.REL RE,/PCIF/PCIFGEN/PCMN6.REL RE,/PCIF/PCIFGEN/PCMN7.REL EN,/PCIF/RUNTIME/PCIF /PCIF/PCIFGEN/AUTOR.FTN:::4:12:34 644 0 0 6000 5303664735 35742 /PCIF_GEN/PCIFGEN/AUTOR.FTN:::4:12:34 !%$  "AUTOR FTN +i+i+i `FST FTN7X,L,D   PROGRAM AUTOR(3,1),94200-16109 REV.4010 <860819.1020>  C NAME: AUTOR C SOURCE: 94200-18109 C RELOC: 94200-16109 C PGMR: DOH, dkg, CGY C  C REV. 2525 BY CGY to avoid writing a message to locked LUs, !C and to use pcmux instead of muxup. PCMUX will!C send a cn,lu,6 request to locked andC unlocked lus. C REV. 2320 BY TH TO BRING UP MUX LU'S AFTER POWERFAIL. "C REV. 4010 by mja Changed name to AUTOR.FTN for CI file system " $ALIAS LSTLU, DIRECT $ALIAS XLUEX, NOABORT $ALIAS LURQ, NOABORT   IMPLICIT INTEGER(A-Z)   INTEGER when(5), tbuf(5),stat1,stat2,lastlu,lu INTEGER year, day INTEGER cntwd(2)  INTEGER luary(1), option, areg, breg, errnum LOGICAL iftty LOGICAL unlocked   DATA byear/1976/  C See when RTE said power failed   CALL RMPAR(when)  "C Unpack into EXEC-11 style buffer: ticks, seconds, minutes, hours "  CALL tmval(when, tbuf) C Figure out what year this is from passed number of days  year = when(3)/366 + byear C Now see what day of the year it is   day = MOD (when(3),366)+1  C C ******************************** C C The following loop may be altered if desired.C C 1) It wakes up the terminal driver so that it will reset C the I/O cards, re-enabling the terminalsC C FOR PCIF/1000 Gould-Modicon Handlers: C Must make sure the MUX card is "touched" in order to restore C the configuration parameters to the card from the interfaceC driver. PCMUX will do this with a CN,LU,6 command.C *********************************  ! Get the last LU in the system. lastlu = lstlu() CALL DTACH (errnum)   DO 10 LU=1,lastlu  ! Skip any locked LUs  unlocked = .TRUE.  IF (iftty(lu)) THEN  luary(1) = lu  option = 140001b CALL LURQ (option, luary,1,*998) CALL abreg (areg, breg)  IF (areg .EQ. 1) THEN  unlocked = .FALSE. ENDIF  option = 40000b  IF (unlocked) THEN CALL LURQ (option, luary,1,*998) ! Unlock LU ENDIF  ENDIF  ! Muxup aborts any pending I/O on a mux lu.  CALL pcmux(lu) !! WAKE UP MUX TERMINALS !!  998 CONTINUE  10 CONTINUE C ****************************** C C User power fail recovery code can be added here. C C ******************************   STOP END   t]#\\]]&]td-=]{]]\Ι]]]]{]Ι]:]t-?te\-E-Tdu{]|]\]Ι]T]]{]|]Z\\ș]`\\]]f\\]tdT-y]]-q-y-y]]-wtdŬ@z / /PCIF/PCIFGEN/[PCPHL:::4:22:34 644 0 0 13000 5303664736 35553 /PCIF_GEN/PCIFGEN/[PCPHL:::4:22:34 "$ "[PCPHL +i+i+i FST "{ [PCPHL 94200-18301 REV.2525 <850610.1814> }""{ NAME : [PCPHL "GLOBAL VARIABLES FOR PC HANDLER" }""{ SOURCE: 94200-18301 }""{ RELOC.: NONE }""{ }""{ Modified 4/1/84 Added declarations for PLC-3 }""{ by Ross Jay Goldman }""{ HP NOVI, MICH }""{ }""{ Modified 4/27/85 Added declaration for PC_IDENT cmd. }""{ by CGY }""{ }""{ }""{ **************************************************************** }""{ * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1983. ALL RIGHTS * }""{ * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED * }""{ * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT * }""{ * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY * }""{ **************************************************************** }""{ }" "{ this file contains the global declarations for }""{ PC handler writing. These declarations are only }""{ TYPE and non structured CONSTANT }" TYPE  BYTE = -128..127 ; WORD = -32768..32767 ;   MSG_TYPE = RECORD offset : WORD ; length : WORD ; status : WORD ; CASE INTEGER OF  0 : (fonction : WORD ;  param1 : WORD ;  param2 : WORD ;  param3 : WORD ;  param4 : WORD ) ;  1 : (word_array : ARRAY[1..5] OF WORD) ;  2 : (byte_array : PACKED ARRAY[1..10] OF BYTE) ;  END ;   ACTIVATION_CONTEXT_TYPE = RECORD  event : WORD ;  action_flag : PACKED ARRAY [1..16] OF BOOLEAN ; action_code : WORD ;  pc_type : WORD ;  pc_capability : PACKED ARRAY [1..16] OF BOOLEAN ; dummy : WORD ;  request : MSG_TYPE ;  sub_request : MSG_TYPE ;  END ;  BUFFER_AREA_TYPE = PACKED ARRAY[1..8192] OF BYTE ;  ! HEADER_AREA_TYPE = PACKED ARRAY[1..17] OF BYTE ; {RJG 3/15/84}! CONST  {----------- user request function codes ---------------} PC_READD = 1 ; PC_WRITED = 2 ; PC_READP = 3 ; PC_WRITEP = 4 ; PC_TRANS = 8 ;   PC_READD_EXT = 9 ; { RJG 1/20/84 } PC_WRITED_EXT = 10 ; { RJG 1/20/84 } PC_READP_EXT = 11 ; { RJG 1/20/84 } PC_WRITEP_EXT = 12 ; { RJG 1/20/84 } PC_WRITEB_EXT = 13 ; { RJG 3/13/84 }  PC_FREEZE = 15 ; { RJG 2/25/84 } PC_START = 16 ; PC_STOP = 17 ; PC_ENUNSOL = 18 ; PC_DIUNSOL = 19 ; PC_CONNECT = 20 ; PC_DISC = 21 ; PC_PCSTAT = 22 ; PC_SYSTAT = 23 ; PC_CANCEL = 24 ; PC_LOCK = 25 ; PC_UNLOCK = 26 ; PC_GETKEY = 27 ; PC_RELKEY = 28 ; PC_CLOSE = 29 ; PC_IDENT = 30 ; PC_CALL0 = 64 ; PC_CALL63 = 127 ;   { EVENT activation codes }  initialization = 1 ; request_initiation = 3 ; request_reentry = 4 ; sub_request_completion = 6 ; unsolicited_sub_request = 7 ; request_cancelation = 8 ;  { ACTION_CODE values }  no_action = 1 ;  send_sub_request_wait = 2 ;  send_sub_request_nowait = 3 ;  send_request_completion = 4 ;  send_request_sub_request = 5 ;  reset_highway_handler = 6 ;  wait_request_buffer = 7 ;  wait_sub_request_buffer = 8 ;   { capability array bit definition } capability_RW = 1 ; capability_PR = 2 ; capability_TR = 3 ; capability_UN = 4 ; capability_ST = 5 ;   { action_flag bit definition }  action_flag_EI = 16 ; action_flag_EU = 15 ;   { ---- call to PCIF service routines : status codes ---- }  SR_status_msg_skeleton = 235 ;  SR_status_no_available_memory = 236 ;  SR_status_no_match_found = 237 ;  SR_status_buffer_already_allocated = 239 ;  SR_status_more_than_one_create_UNS = 240 ;  SR_status_call_made_by_PC_handler = 243 ;  SR_status_no_msg = 245 ;  SR_status_exceed_buffer_size = 246 ;  SR_status_negative_((offset = 247 ;  SR_status_no_up_buffer = 248 ;  SR_status_no_allocated_buffer = 249 ;  SR_status_invalid_msg = 250 ;  SR_status_invalid_msg_type = 251 ;  SR_status_invalid_call = 252 ;  SR_status_length_too_large = 253 ;  SR_status_invalid_length = 254 ;  SR_status_unknown_msg_type = 255 ;  /PCIF/PCIFGEN/[PCHHL:::4:21:34 644 0 0 12400 5303664740 35274 /PCIF_GEN/PCIFGEN/[PCHHL:::4:21:34 "$ "[PCHHL +i+i+i 7{FST "{ [PCHHL 94200-18302 REV.2618 <860501.1016> }""{ NAME : [PCHHL "GLOBAL VARIABLES FOR HIGHWAY HANDLER" }""{ SOURCE: 94200-18302 }""{ RELOC.: NONE }""{ }""{ **************************************************************** }""{ * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1983. ALL RIGHTS * }""{ * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED * }""{ * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT * }""{ * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY * }""{ **************************************************************** }""{ }""{ Modified (860501) Added BUFFER_AREA _TYPE }""{ by Kent rev2618 }""{ }""{ }""{ }"  "{ this file contains the global declarations for }""{ highway handler writing. These declarations are only }""{ TYPE and non structured CONSTANT }" TYPE  BYTE = -128..127 ; WORD = -32768..32767 ;   MSG_TYPE = RECORD offset : WORD ; length : WORD ; status : WORD ; CASE INTEGER OF  0 : (fonction : WORD ;  param1 : WORD ;  param2 : WORD ;  param3 : WORD ;  param4 : WORD ) ;  1 : (word_array : ARRAY[1..5] OF WORD) ;  2 : (byte_array : PACKED ARRAY[1..10] OF BYTE) ;  END ;   ACTIVATION_CONTEXT_TYPE = PACKED RECORD  event : WORD ;  action_flag : PACKED ARRAY [1..16] OF BOOLEAN ;  action_code : WORD ;  highway_type : WORD ;  highway_capability : PACKED ARRAY [1..13] OF BOOLEAN ;  port : 0..7 ;  pc_station_number : WORD ;  sub_request : MSG_TYPE ;  IO_msg : MSG_TYPE ;  END ;   BUFFER_AREA_TYPE = PACKED ARRAY[1..8192] OF BYTE ;   HEADER_AREA_TYPE = PACKED ARRAY[1..17] OF BYTE; {860501}   CONST  { EVENT activation codes }  initialization = 1 ; sub_request_initiation = 3 ; sub_request_reentry = 4 ; IO_msg_completion = 6 ; sub_request_cancelation = 8 ;  { ACTION_CODE values }  no_action = 1 ; send_IO_msg_wait = 2 ; send_IO_msg_nowait = 3 ; send_sub_request_completion = 4 ; send_sub_request_IO_msg = 5 ; wait_sub_request_buffer = 7 ; wait_IO_msg_buffer = 8 ;  { IO commands }  control_LU1 = 0 ; control_LU2 = 1 ; write_LU1 = 2 ; write_LU2 = 3 ; read_LU1 = 4 ; read_LU2 = 5 ;  { capability array bit definition } capability_UN = 4 ;   { action_flag bit definition }  action_flag_EI = 16 ; action_flag_EU = 15 ; action_flag_SC = 14 ; action_flag_RB = 13 ;   { -- status return code at end of IO_msg -- } IO_status_error_ON = 350 ;  IO_status_RTE_refused_to_do_IO = 351 ;  IO_status_impossible_to_download = 352 ;  IO_status_no_associated_LU = 353 ;  IO_status_wrong_function = 354 ;  IO_status_buffer_not_on_word_boundary = 355 ;  { ---- call to PCIF service routines : status codes ---- }  SR_status_msg_skeleton = 363 ;  SR_status_no_available_memory = 364 ;  SR_status_no_match_found = 365 ;  SR_status_no_PC_retrieved = 366 ;  SR_status_buffer_already_allocated = 367 ;  SR_status_more_than_one_create_UNS = 368 ;  SR_status_invalid_which_LU = 369 ;  SR_status_call_made_by_highway_handler = 370 ;  SR_status_invalid_PC_mask = 372 ;  SR_status_no_msg = 373 ;  SR_status_exceed_buffer_size = 374 ;  SR_status_negative_offset = 375 ;  SR_status_no_up_buffer = 376 ;  SR_status_no_allocated_buffer = 377 ;  SR_status_invalid_msg = 378 ;  SR_status_invalid_msg_type = 379 ;  SR_status_invalid_call = 380 ;  SR_status_length_too_large = 381 ;  SR_status_invalid_length = 382 ;  SR_status_unknown_msg_type = 383 ; ters!{ num_of_pids IN The number of entries in IP's PidList. !{}{ Side Effects { Global Data Structares { This rou/PCIF/PCIFGEN/PCTST.PAS:::3:287:39 644 0 0 217400 5303664742 36607 /PCIF_GEN/PCIFGEN/PCTST.PAS:::3:287:39 "&$ 'PCTST PAS +i+i+iOFST $PASCAL '94200-16404 REV.4010 <860818.1732>'"{ }""{ NAME : PCTST }""{ SOURCE: 94200-18404 }""{ RELOC.: 94200-16404 }""{ COMMAND FILE : 94200-17404 }""{ PRGMR : SGR }""{ }""{ Modified Added PC_IDENT command processing. }""{ 5-8-85 }""{ by CGY Added run_string 0 option, so it can be }""{ (rev.2525) used serial reusable in a memory based }""{ system. }""{ }""{ 851230/860205 Added extended calls, retain tag, split }""{ by Kent input and output buffers, retain eight }""{ (rev.2604) keys, and implement echo. }""{ }""{ 860326 Fixed to allow odd length symbol and }""{ by kent file names in ext calls. }""{ (rev.2614) }""{ }""{ by Matt Add octal conversion of PCADR parm }""{ (rev.2622) (6/4/86) }""{ (rev.4010) }""{ }""{***************************************************************** }""{ * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1984. ALL RIGHTS * }""{ * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED * }""{ * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT * }""{ * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY * }""{ **************************************************************** }""{ }" $ RECURSIVE OFF $ $ RUN_STRING 0 $ $ TITLE 'PCIF/1000 exerciser' $  PROGRAM PC_test (input, output) ; $PAGE CONST $ headerline = ' PCIF/1000 exercizer 94200-16404 REV.4010 <860818.1732>'$ ; TYPE WORD = -32768..32767 ; BYTE = -128..127 ; BIT_TYPE = 0..1;  idcb_type =ARRAY[1..144] OF WORD ; ibuf_type =ARRAY[1..128] OF WORD ; name_type =PACKED ARRAY[1..6] OF CHAR ; isize_type =ARRAY[1..2] OF WORD ; isecu_icr_type =WORD ;  BUF_TYPE = ARRAY [1..512] OF WORD ; STRING80 = PACKED ARRAY [1..80] OF CHAR ; STRING20 = PACK((ED ARRAY [1..20] OF CHAR ; STRING6 = PACKED ARRAY [1..6] OF CHAR ; STRING2 = PACKED ARRAY [1..2] OF CHAR ; STRING3 = PACKED ARRAY [1..3] OF CHAR ; STRING9 = PACKED ARRAY [1..9] OF CHAR ; STRING11 = PACKED ARRAY [1..11] OF CHAR ;  EQ_WRD_BYTE = PACKED RECORD CASE INTEGER OF {*CGY* Added bit_array} 1: (wrd: word);$ 2: (bit_array : PACKED ARRAY [1..16] OF BIT_TYPE); $ 3: (bt1: byte; bt2: byte);  END;   {*CGY* For printing bufrd with bit lengths.}  BIT_LENGTH_TYPE = PACKED RECORD CASE INTEGER OF 1: (wd: word);  2: (hi_bit : 0..1;  lo_bits : 0..32767);  END;  {-851230- Extended calls } buff3_type = PACKED RECORD CASE INTEGER OF 1: (num: ARRAY[1..512] OF WORD); ! 2: (str: PACKED ARRAY[1..1024] OF CHAR); !& 3: (byt: PACKED ARRAY[1..1024] OF BYTE); {860326} & END;  VAR  tempo: eq_wrd_byte;  nb_displayed: WORD;  zero:WORD;  abup,abdown:FILE OF WORD; key,oldtag,typec,typer,contwd,tag,oldstat:WORD;$ lenga,lengb,offset,addr_length : word ; {12/30/85 extended calls}$$ addr : ARRAY[1..6] OF word ; { " " " }$$ oldkey : array[1..8] OF word ; { " " " }$ oldkey_index : word ; {860127}  buff3 : buff3_type ; {860127}  func : STRING20;  length, stat,pc,buffr,lengt,subfnc:WORD; ! bit_length : BIT_LENGTH_TYPE; {*CGY* Added bit_length} ! pcadr:INTEGER;  logr : WORD ; password : WORD ; lengr,i,j:WORD;  error_buffer : STRING80 ; error_length : WORD ; ' err_stat : WORD ; {MWC rev 2622} '' ext_flag : BOOLEAN; {MWC rev 2622} '' dec_flag : BOOLEAN; {MWC rev 2622} ' eof_flag, found_flag, command_flag : BOOLEAN ;  command_string : PACKED ARRAY [1..80] OF CHAR ; command_ptr : WORD ; command_index : WORD ; ' last_char_ptr : WORD ; {MWC rev 2622} '' last_block_add : BOOLEAN; {MWC rev 2622} ' index1 : WORD ; number : WORD ; idcb:idcb_type ; ibuf:ibuf_type ; file_name:name_type ; file_namr : STRING20 ;  len,ierr,c,number_of_cut,cut_number,il: WORD ;  isize: isize_type ;  icr,isecu:isecu_icr_type ;  buff1 : BUF_TYPE ;  buff2 : BUF_TYPE ; {851230}  ask_bufval : STRING11 ; stop_flag : BOOLEAN ; asynch_flag : BOOLEAN ; echo_flag : BOOLEAN ;  CONST  ask_command = STRING11 [' pctest > '] ;  ask_pc = STRING11 [' pc ? '] ;  ask_lengt = STRING11 [' length ? '] ;  ask_logr = STRING11 [' logr ? '] ;  ask_pcadr = STRING11 [' pcadr ? '] ;  ask_file = STRING11 [' file ? '] ;  ask_subfnc = STRING11 [' subfnc ? '] ;  ask_passwd = STRING11 [' passwd ? '] ;  ask_tag = STRING11 [' tag ? '] ;  ask_type_ca = STRING11 [' typec ? '] ;  ask_key = STRING11 [' key ? '] ;  ask_yes = STRING11 [' YES/NO ? '] ;  ask_error = STRING11 [' error# ? '] ;  ask_offset = STRING11 [' offset ? '] ;  $ INVALID_INPUT = 1; {MWC rev 2622}$$ INVALID_NEG_OCTAL = 2; {MWC rev 2622}$$ INVALID_RADIX = 3; {MWC rev 2622}$$ INVALID_OCTNUM = 4; {MWC rev 2622}$$ NO_EMBEDDED_SPC = 5; {MWC rev 2622}$$ PROMPT_AGAIN = 99; {MWC rev 2622}$$PAGE {----------------------------------------------------}{ }{ PCIF/1000 LIBRARY : PROCEDURE CALL DEFINITIONS }{ }{----------------------------------------------------}  PROCEDURE PC_CALL (VAR stat : WORD ; tag : WORD ; contwd : WORD ; pc : WORD ; subfnc : WORD ;  VAR buffr : BUF_TYPE ;  lengt : WORD ;  pcadr : INTEGER) ; EXTERNAL ;  PROCEDURE PC_CANCEL (VAR stat : WORD ; pc : WORD ; oldtag : WORD ; typec : WORD) ; EXTERNAL;   PROCEDURE PCIF_CLOSE (VAR stat : WORD);  EXTERNAL;  PROCEDURE PC_CONNECT (VAR stat : WORD ; tag : WORD ; contwd : WORD ; pc : WORD) ; EXTERNAL;   PROCEDURE PC_DISC (VAR stat : WORD ; pc : WORD ; password : WORD) ; EXTERNAL;   PROCEDURE PC_DIUNSOL (VAR stat : WORD ; pc : WORD); EXTERNAL; $PAGE  PROCEDURE PC_ENQUIRY (VAR stat : WORD ; oldstat : WORD ; VAR oldtag : WORD ; contwd : WORD ; pc : WORD ;  VAR buffr : BUF_TYPE;  lengr : WORD ; VAR typer : WORD ; VAR logr : WORD) ; EXTERNAL;   PROCEDURE PC_ENUNSOL (VAR stat : WORD ; pc : WORD ; akey : WORD) ; EXTERNAL;   PROCEDURE PCIF_ERROR ( stat : WORD ;  VAR buffer : STRING80 ;  VAR length : WORD) ; EXTERNAL ;  PROCEDURE PC_GETKEY (VAR stat : WORD ; VAR akey : WORD);  EXTERNAL;  PROCEDURE PC_LOCK (VAR stat : WORD ; pc : WORD) ; EXTERNAL;   PROCEDURE PCIF_OPEN (VAR stat : WORD); EXTERNAL;   PROCEDURE PC_PCSTAT (VAR stat : WORD ; tag : WORD ; contwd : WORD ; pc : WORD ;  VAR buffr : BUF_TYPE) ;EXTERNAL;  PROCEDURE PC_IDENT (VAR stat : WORD ; tag : WORD ; contwd : WORD ; pc : WORD ; VAR buffr : BUF_TYPE; lengt : WORD) ; EXTERNAL; $PAGE  PROCEDURE PC_READD (VAR stat : WORD ; tag : WORD ; contwd : WORD ; pc : WORD ;  VAR buffr : BUF_TYPE ;  lengt : WORD ; pcadr : INTEGER); EXTERNAL;   PROCEDURE PC_READP (VAR stat : WORD ; tag : WORD ; contwd : WORD ; pc : WORD ;  VAR buffr : BUF_TYPE ;  lengt : WORD ; pcadr : INTEGER); EXTERNAL;   PROCEDURE PC_RELKEY (VAR stat : WORD ; VAR akey : WORD);  EXTERNAL;  PROCEDURE PC_START  (VAR stat : WORD ; tag, contwd, pc : WORD) ; EXTERNAL;   PROCEDURE PC_STOP  (VAR stat : WORD ; tag, contwd, pc : WORD) ; EXTERNAL;   PROCEDURE PC_SYSTAT (VAR stat : WORD ; pc : WORD ; VAR buffr : BUF_TYPE); EXTERNAL;   PROCEDURE PC_TRANS  (VAR stat : WORD ; tag, contwd, pc, subfct : WORD ; VAR buffs : BUF_TYPE ; lengs : WORD ; VAR buffr : BUF_TYPE ; lengr : WORD) ; EXTERNAL;   PROCEDURE PC_UNLOCK (VAR stat : WORD ; pc : WORD) ; EXTERNAL; $PAGE  PROCEDURE PC_WRITED  (VAR stat : WORD ; tag, contwd, pc : WORD ; VAR buffr : BUF_TYPE ; lengt : WORD ; pcadr : INTEGER); EXTERNAL;   PROCEDURE PC_WRITEP  (VAR stat : WORD ; tag, contwd, pc : WORD ; VAR buffr : BUF_TYPE ; lengt : WORD ; pcadr : INTEGER); EXTERNAL;  PROCEDURE PCIF_build_error_msg ( file_namr : STRING20 ;  tag : STRING2 ; error : WORD ;  promptof : WORD ;  VAR buffer : STRING80 ;  VAR length : WORD) ;EXTERNAL ;{ }{12/30/85 extended calls }{ }  PROCEDURE PC_READD_EXT (VAR stat : WORD ; tag : WORD ; contwd : WORD ; pc : WORD ;  VAR buffr : BUFF3_TYPE ;  lenga : WORD ; lengb : WORD) ; EXTERNAL;   PROCEDURE PC_WRITED_EXT (VAR stat : WORD ; tag : WORD ; contwd : WORD ; pc : WORD ;  VAR buffr : BUFF3_TYPE ;  lenga : WORD ; lengb : WORD) ; EXTERNAL;   PROCEDURE PC_WRITEB_EXT (VAR stat : WORD ; tag : WORD ; contwd : WORD ; pc : WORD ;  VAR buffr : BUFF3_TYPE ;  lenga : WORD ; lengb : WORD) ; EXTERNAL;   PROCEDURE PC_FREEZE (VAR stat : WORD ; tag : WORD ; contwd : WORD ; pc : WORD) ; EXTERNAL;  {------------------------------------------------}{ }{ RTE LIBRARY : PROCEDURE CALL DEFINITIONS }{ }{------------------------------------------------} PROCEDURE RTE_CNUMD $ALIAS 'CNUMD'$  ( number : WORD ((;  VAR ascii : STRING6) ; EXTERNAL ; PROCEDURE RTE_FTIME $ALIAS 'FTIME'$  (VAR buffer : STRING80) ; EXTERNAL ;$PAGE {---------------------------------------} { } { p r i n t _ e r r _ s t a t } { } {---------------------------------------}  PROCEDURE print_err_stat; BEGIN  CASE err_stat OF   INVALID_INPUT : WRITELN(' -> invalid number input'); % INVALID_NEG_OCTAL : WRITELN(' -> negative octal numbers not allowed'); % INVALID_RADIX : WRITELN(' -> radix type not supported');  INVALID_OCTNUM : WRITELN(' -> invalid octal value');! NO_EMBEDDED_SPC : WRITELN(' -> embedded spaces not allowed');!   OTHERWISE WRITELN(' -> unsupported error code');  END;{CASE}END;{---------------------------------------} { } { f i n d _ f i r s t _ d i g i t } { } {---------------------------------------} {This procedure is added for rev 2622 }  PROCEDURE find_first_digit (VAR negative_flag : BOOLEAN; VAR err_stat : WORD); BEGIN  negative_flag := FALSE ; " WHILE (command_ptr<=79) AND ((command_string[command_ptr]=' ') OR" (command_string[command_ptr] = '.')) DO command_ptr := command_ptr + 1 ;   CASE command_string[command_ptr] OF  '-' : BEGIN  negative_flag := TRUE ; command_ptr := command_ptr+1 ;   CASE command_string[command_ptr] OF  ' ' : BEGIN err_stat := NO_EMBEDDED_SPC;  END;   'A','a','*' : BEGIN stop_flag := TRUE;  END;   '0'..'9' : BEGIN {Do Nothing}  END;  '.' : BEGIN IF (NOT ext_flag) THEN  err_stat := INVALID_INPUT;  END;  OTHERWISE BEGIN err_stat := INVALID_INPUT;  END;  END; {CASE} END ;   '+' : BEGIN  negative_flag := FALSE; command_ptr := command_ptr+1 ;   CASE command_string[command_ptr] OF  ' ' : BEGIN err_stat := NO_EMBEDDED_SPC;  END;   'A','a','*' : BEGIN stop_flag := TRUE;  END;   '0'..'9' : BEGIN {Do Nothing}  END;  '.' : BEGIN IF (NOT ext_flag) THEN  err_stat := INVALID_INPUT;  END;  OTHERWISE BEGIN err_stat := INVALID_INPUT;  END;  END; {CASE} END ; {+}   'A','a','*' : BEGIN  stop_flag := TRUE;  END;   '0'..'9' : BEGIN  {Do Nothing}  END; '.' : BEGIN  IF (NOT ext_flag) THEN  err_stat := INVALID_INPUT; END;  OTHERWISE IF (command_ptr = 80) THEN err_stat := PROMPT_AGAIN;  END;{CASE}   END;{find_first_digit}  {---------------------------------------} { } { f i n d _ l a s t _ c h a r } { } {---------------------------------------} {This procedure is added for rev 2622} PROCEDURE find_last_char (VAR command_char : char; VAR pcadr_len, err_stat : word);  &{This procedure locates the last char of the PCADR string while checking }&&{for embedded characters. The last character will be used by find_integer }&&{to determine the proper PCADR conversion routine. NOTE: find_first_char }&&{must be called prior to calling this procedure }& VAR  last_flag : BOOLEAN;  BEGIN   last_flag := FALSE; pcadr_len := 1;  WHILE (NOT last_flag) AND (command_ptr <= 79) DO  BEGIN CASE command_string[command_ptr] OF  ' ' : BEGIN  last_flag := TRUE; pcadr_len := pcadr_len - 1;  command_ptr := command_ptr - 1; # command_char := command_string[command_ptr];# last_char_ptr := command_ptr;  END; & 'o','O','d','D','b','B','h','H' : BEGIN {possibly valid if last char} & {BEGIN}& IF (pcadr_len = 1) THEN err_stat := INVALID_INPUT;&$ IF (command_string[command_ptr+1] = ' ') THEN $ BEGIN  last_flag := TRUE; pcadr_len := pcadr_len - 1; % command_char := command_string[command_ptr];% last_char_ptr := command_ptr - 1;  END  ELSE BEGIN  err_stat := INVALID_INPUT; END  END;  '0'..'9' : BEGIN  {Valid char, Do Nothing} END;  'a','A','*' : BEGIN  stop_flag := TRUE; END;  '.' : BEGIN  IF (NOT ext_flag) THEN err_stat := INVALID_INPUT  ELSE BEGIN  last_flag := TRUE; pcadr_len := pcadr_len - 1;  command_ptr := command_ptr - 1; % command_char := command_string[command_ptr];% last_char_ptr := command_ptr;  END; END;  OTHERWISE BEGIN {invalid PCADR}  err_stat := INVALID_INPUT; END;  END; {CASE} IF (NOT last_flag) THEN  BEGIN pcadr_len := pcadr_len + 1; command_ptr := command_ptr + 1; END;  END; {WHILE}  END; {find_last_char}  {---------------------------------------} { } { P O W E R _ F N } { } {---------------------------------------} {This function is added for rev 2622}  FUNCTION power_fn (num, exp : WORD) : INTEGER;VAR  i : WORD;  answer : INTEGER;  BEGIN  IF (exp = 0) THEN  answer := 1  ELSE BEGIN  answer := num; FOR i := 2 to exp DO  answer := answer * num;  END; power_fn := answer; END; {---------------------------------------} { } { c v t _ d e c } { } {---------------------------------------} {This procedure is added for rev 2622} PROCEDURE cvt_dec (VAR number : INTEGER; negative_flag : BOOLEAN; pcadr_len : WORD ; VAR err_stat : WORD); VAR  n, ptr_save : WORD;  BEGIN  number := 0; n := pcadr_len; ptr_save := command_ptr;  command_ptr := last_char_ptr; {set ptr to last char} REPEAT IF (ext_flag) THEN  IF (command_string[command_ptr] = '.') THEN  command_ptr := command_ptr - 1;# number := number +(ORD(command_string[command_ptr]) - ORD('0')) # * power_fn(10,pcadr_len-n); n := n - 1;  command_ptr := command_ptr - 1;  UNTIL (err_stat <>0) OR (n = 0); command_ptr := ptr_save; {reset command_ptr} IF negative_flag THEN number := - number; END; {---------------------------------------} { } { c v t _ o c t } { } {---------------------------------------} {This procedure is added for rev 2622} PROCEDURE cvt_oct (VAR number : INTEGER;  negative_flag : BOOLEAN;  pcadr_len : WORD; VAR err_stat : WORD);  VAR  n, ptr_save : WORD;  BEGIN  number := 0; n := pcadr_len; ptr_save := command_ptr;  command_ptr := last_char_ptr;  IF negative_flag THEN  err_stat := INVALID_NEG_OCTAL;  IF (err_stat = 0) THEN  BEGIN  REPEAT CASE command_string[command_ptr] OF  '0'..'7' : BEGIN' number := number + (ORD(command_string[command_ptr]) '$ (( - ORD('0'))*power_fn(8,pcadr_len-n);$ END;  OTHERWISE err_stat := INVALID_OCTNUM;  END;{CASE}   n := n - 1;  command_ptr := command_ptr - 1;  UNTIL (err_stat <> 0) OR (n = 0);  command_ptr := ptr_save; {reset ptr} END;{IF} END;{cvt_oct}   {---------------------------------------} { } { f i n d _ i n t e g e r } { } {---------------------------------------} {This procedure is modified for rev 2622}  FUNCTION find_integer(VAR number : INTEGER) : BOOLEAN ;  VAR  command_char : CHAR ;  negative_flag : BOOLEAN ; pcadr_len : WORD ;  ptr_save : WORD ;  BEGIN  ptr_save := command_ptr;  find_integer := FALSE;   err_stat := 0;  negative_flag := FALSE ;  find_first_digit (negative_flag, err_stat);  IF (err_stat = 0) THEN  BEGIN  find_last_char (command_char, pcadr_len, err_stat);  END;  IF (err_stat = 0) AND (NOT stop_flag) THEN   BEGIN  CASE command_char OF '0'..'9','d','D' : BEGIN  command_ptr := ptr_save;$ find_first_digit (negative_flag, err_stat); $' cvt_dec (number,negative_flag,pcadr_len,err_stat);' END;  'o','O' : BEGIN  command_ptr := ptr_save;$ find_first_digit (negative_flag, err_stat); $' cvt_oct (number,negative_flag,pcadr_len,err_stat);' END; 'h','H','b','B' : BEGIN  err_stat := INVALID_RADIX; END;  OTHERWISE err_stat := INVALID_RADIX; END;{CASE}   END;{IF}  IF (err_stat = 0) THEN  BEGIN  find_integer := TRUE;  find_last_char (command_char, pcadr_len, err_stat);  command_ptr := command_ptr + 1;  END  ELSE  IF (err_stat <> PROMPT_AGAIN) AND (NOT stop_flag) THEN PRINT_ERR_STAT;  END ; { end of PROCEDURE find_integer}$PAGE {---------------------------------------} { } { f i n d _ n u m b e r } { } {---------------------------------------}  FUNCTION find_number (VAR number : WORD) : BOOLEAN ; VAR  long_number : INTEGER ; flag : BOOLEAN ;  BEGIN   flag := find_integer (long_number) ;  IF flag AND (NOT stop_flag) THEN BEGIN  find_number := TRUE ; IF (long_number>=-32768) AND (long_number<=32767) THEN number := long_number  ELSE find_number := FALSE ; END  ELSE BEGIN  find_number := FALSE ;  END  ; { end IF flag }  END ; { end of PROCEDURE find_number }$PAGE {-----------------------------------} { } { g e t _ i n p u t } { } {-----------------------------------}  PROCEDURE get_input (ask : STRING11) ; VAR  eof_flag : BOOLEAN ;  BEGIN  eof_flag := TRUE ; WHILE eof_flag DO  BEGIN  IF (ask = ask_pcadr) AND (NOT ext_flag) THEN  WRITE(' [Append ''o'' for octal]');  PROMPT(ask) ; IF EOF THEN BEGIN RESET ;  eof_flag := TRUE ; END ELSE BEGIN  READLN(command_string) ; ! IF echo_flag THEN WRITELN(command_string) ;! command_ptr := 1 ;  eof_flag := FALSE ; END ; { end IF EOF } END ; { end WHILE ... }  END ; { end of PROCEDURE get_input }$PAGE {---------------------------------------} { } { g e t _ f u n c t i o n } { } {---------------------------------------}  PROCEDURE get_function ;  VAR  flag : BOOLEAN ; index : WORD ; temp : CHAR ; shift : WORD ; BEGIN   FOR index:=1 TO 20 DO func[index]:=' ' ; flag := TRUE ;  WHILE (command_ptr<=80) AND flag DO BEGIN IF (command_string[command_ptr]<>' ') THEN flag:=FALSE ELSE command_ptr := command_ptr+1 ;  END ; flag:=TRUE ;  index := 1 ;  WHILE (command_ptr<=80) AND flag DO BEGIN IF (command_string[command_ptr]=' ') THEN BEGIN flag:=FALSE ;  END ELSE BEGIN IF (index<=20) THEN BEGIN  shift := ORD('a')-ORD('A') ; temp := command_string[command_ptr] ;  CASE temp OF 'a'..'z': temp := CHR(ORD(temp)-shift);  OTHERWISE ;  END ; { end CASE ... } func[index]:=temp ;  END  ; { end IF ... } command_ptr := command_ptr+1 ; index := index + 1 ; END ; { end IF ... }  END ; END ; { end of PROCEDURE get_function }  $PAGE {-------------------------------------851230---------}{ }{ F I N D _ S T R I N G }{ }{----------------------------------------------------} FUNCTION find_string : BOOLEAN ; VAR   flag : BOOLEAN ; index : word ; string : char ;  BEGIN  FOR index := 1 TO 40 DO buff3.str[index] := ' ' ;$ WHILE (command_ptr <= 80) AND (command_string[command_ptr] = ' ')$ DO command_ptr := command_ptr + 1 ;  flag := TRUE ; index := 1 ;  find_string := FALSE ;   WHILE (command_ptr <= 80) AND flag  DO BEGIN  IF (command_string[command_ptr] = ' ') THEN BEGIN  flag := FALSE ; END ELSE BEGIN  string := command_string[command_ptr] ; IF (string = '*') THEN BEGIN  stop_flag := TRUE ;  flag := FALSE ;  END ELSE BEGIN  find_string := TRUE ;  buff3.str[index] := string ; index := index + 1 ; command_ptr := command_ptr + 1 ; END ; END ; END ; {WHILE}  #{ addr_length := (index DIV 2) * 2 ; |even number of bytes| 860326}## addr_length := (index -1) {860326}# END ; {FUNCTION find_string} $PAGE {-----------------------------------} { } { g e t _ p c } { } {-----------------------------------}   PROCEDURE get_pc ;  VAR  flag : BOOLEAN ;  BEGIN   REPEAT  flag := find_number(pc) ;  IF flag OR stop_flag  THEN BEGIN END ELSE BEGIN get_input (ask_pc) ; END ; { end IF }  UNTIL (flag OR stop_flag) ; END ; $PAGE {---------------------------------------} { } { g e t _ s u b f n c } { } {---------------------------------------}   PROCEDURE get_subfnc;  VAR  flag : BOOLEAN ;  BEGIN   REPEAT  flag := find_number(subfnc) ;  IF flag OR stop_flag  THEN BEGIN END ELSE BEGIN get_input (ask_subfnc) ; END ; { end IF }  UNTIL (flag OR stop_flag) ; END ; $PAGE {-----------------------------------} { } { g e t _ l e n g t h } { } {-----------------------------------}   PROCEDURE get_length ;  VAR  flag : BOOLEAN ;  BEGIN   REPEAT  flag := find_number(lengt) ; IF flag OR stop_flag  THEN BEGIN END ELSE BEGIN get_input (ask_lengt) ;  END ; { end IF }  UNTIL (flag OR stop_flag) ; END ; $PAGE {-----------------------------------} { } { g e t _ l o g r } { } {-----------------------------------}   PROCEDURE get_logr ;  VAR  flag : BOOLEAN ;  BEGIN   REPEAT  flag := find_number(logr) ;  IF flag OR stop_flag  THEN BEGIN END ELSE BEGIN get_input (ask_logr) ; END ; { end IF }  UNTIL (flag OR stop_flag) ; END ; $PAGE {--------------------------------------}{ }{ g e t _ p a s s w o r d }{ }{--------------------------------------}  PROCEDURE get_password ;  VAR  flag : BOOLEAN ;  BEGIN   REPEAT  flag := find_number(password) ;  IF flag OR stop_flag  THEN BEGIN E((ND ELSE BEGIN get_input (ask_passwd);  END ; { end IF }  UNTIL (flag OR stop_flag) ; END ; $PAGE {-----------------------------------} { } { g e t _ t a g } { } {-----------------------------------}   PROCEDURE get_tag ;  VAR  flag : BOOLEAN ;  BEGIN   REPEAT  flag := find_number(tag) ; IF flag OR stop_flag  THEN BEGIN END ELSE BEGIN get_input (ask_tag) ;  END ; { end IF }  UNTIL (flag OR stop_flag) ; END ; $PAGE {--------------------------------------------}{ }{ g e t _ t y p e _ c a n c e l }{ }{--------------------------------------------} PROCEDURE get_type_cancel ;  VAR  flag : BOOLEAN ;  BEGIN   REPEAT  flag := find_number(typec) ; IF flag OR stop_flag  THEN BEGIN END ELSE BEGIN get_input (ask_type_ca) ;  END ; { end IF }  UNTIL (flag OR stop_flag) ; END ; $PAGE {-----------------------------------} { } { g e t _ p c a d r } { } {-----------------------------------}  PROCEDURE get_pcadr;  VAR  flag : BOOLEAN ;  BEGIN   REPEAT  flag := find_integer (pcadr) ; IF flag OR stop_flag  THEN BEGIN END ELSE BEGIN get_input (ask_pcadr) ;  END ; { end IF }  UNTIL (flag OR stop_flag) ; END ;  $PAGE {-------------------------------------851230----------} { } { F I N D _ L O N G _ N U M B E R } { } {-----------------------------------------------------}  FUNCTION find_long_number(VAR number : word) : BOOLEAN ; VAR  long_number : INTEGER ; flag : BOOLEAN ;  BEGIN   flag := find_integer (long_number) ;  IF flag THEN BEGIN  find_long_number := TRUE ;  IF (long_number >= 0) AND (long_number <= 32767)  THEN number := long_number " ELSE IF (long_number >= 32768) AND (long_number <=65535) " THEN number := -(65536 - long_number) ELSE find_long_number := FALSE ;  END  ELSE BEGIN  find_long_number := FALSE ; END  ; { end IF flag } $ IF (command_string[command_ptr] = ' ') AND (err_stat <> PROMPT_AGAIN)$ THEN BEGIN  last_block_add := TRUE;  find_long_number := FALSE; END;END ; { end of PROCEDURE find_long_number } $PAGE {----------------------------------851230----}{ }{ F I N D _ A D D R }{ }{--------------------------------------------} FUNCTION find_addr : BOOLEAN ; VAR  flag : BOOLEAN ; index : word ; number : word ;  BEGIN  find_addr := FALSE ; IF (offset > -2)  THEN BEGIN {symbol or file addressing} flag := find_string ;  IF (flag AND (addr_length <= 8 ) ) THEN find_addr := TRUE ;  END {symbol or file addressing}  ELSE BEGIN {block addressing}  index := 1 ;  last_block_add := FALSE; REPEAT  flag := find_long_number(number) ;  IF (flag) OR (last_block_add) THEN  BEGIN  buff3.num[index] := number ;  index := index + 1 ;  find_addr := TRUE ; END;  UNTIL (NOT flag) ; addr_length := (index-1) * 2 ; END {end block addressing} ; {END IF}  END ; {find_addr}  $PAGE {----------------------------------851230---} { } { g e t _ e x t _ a d d r } { } {-------------------------------------------}   PROCEDURE get_ext_addr ;  VAR  flag : BOOLEAN ;  BEGIN  REPEAT  flag := find_addr ; IF flag OR stop_flag  THEN BEGIN END ELSE BEGIN  get_input(ask_pcadr) ; END ;   UNTIL (flag OR stop_flag) ; END ; {get_ext_addr}  $PAGE {-------------------------------------------} { } { g e t _ a c c e s s _ k e y } { } {-------------------------------------------}   PROCEDURE get_access_key ;  VAR  flag : BOOLEAN ;  BEGIN   REPEAT  flag := find_number(key) ;$ IF(key < 0) {Then use key from one of eight oldkeys} {860127} $$ THEN BEGIN { " } $$ IF(key >= -8) THEN key := oldkey[-key] ; { " } $$ IF (key < -8) OR (key < 0) THEN flag := FALSE ; { " } $$ END ; {IF} { " } $ IF flag OR stop_flag  THEN BEGIN END ELSE BEGIN get_input (ask_key); END ; { end IF }  UNTIL (flag OR stop_flag) ; END ;  $PAGE {----------------------------851230---------} { } { g e t _ o f f s e t } { } {-------------------------------------------}   PROCEDURE get_offset ;  VAR  flag : BOOLEAN ;  BEGIN   REPEAT  flag := find_number(offset) ;  IF flag OR stop_flag  THEN BEGIN END ELSE BEGIN get_input (ask_offset);  END ; { end IF }  UNTIL (flag OR stop_flag) ;  END ; {get_offset}  $PAGE  {-----------------------------------------851230---------------} { } { g e t _ r e a d _ w r i t e _ p a r a m e t e r s } { } {--------------------------------------------------------------}  PROCEDURE get_read_write_parameters ;  BEGIN   get_pc ;  get_length ;  ext_flag := FALSE; {MWC rev 2622}  get_pcadr ; IF asynch_flag  THEN BEGIN  get_tag ; get_access_key ;  END ;  END ; { end of PROCEDURE get_read_write_parameters } $PAGE  {--------------------------------------------------------------} { } { g e t _ r e a d _ w r i t e _ e x t _ p a r m s } { } {--------------------------------------------------------------}  PROCEDURE get_read_write_ext_parms ; BEGIN   get_pc ;  get_length ;  get_offset ; # ext_flag := TRUE; {MWC rev 2622}# get_ext_addr ; IF asynch_flag  THEN BEGIN  get_tag ; get_access_key ;  END ; END ; { end of PROCEDURE get_read_write_ext_parms } $PAGE {----------------------------------------------}{ }{ g e t _ e r r o r _ n u m b e r }{ }{----------------------------------------------} PROCEDURE get_error_number ; VAR  flag : BOOLEAN ;  BEGIN   REPEAT  flag := find_number(stat) ;  IF flag OR stop_flag  THEN BEGIN END ELSE BEGIN get_input (ask_error) ;  END ; { end IF }  UNTIL (flag OR stop_flag) ; END ; $PAGE {-----------------------------------} { } { g e t _ y e s } { } {-----------------------------------}  FUNCTION get_yes : BOOLEAN ; CONST  yes = STRING3 ['YES'] ;  BEGIN   get_input (ask_yes) ;  get_function ;  IF (func=yes) OR (func='Y')  THEN get_yes := TRUE  ELSE get_yes := FALSE ;  END ; { end of PROCEDURE get_yes }$PAGE {-----------------------------------} { } { g e t _ b u f f r } { } {-----------------------------------}  PROCEDURE get_buffr (index : WORD) ; CONST  init_ask = STRING11[' ? '] ;   VAR  flag : BOOLEAN ; value : WORD ; temp : STRING6 ; index2 : WORD ;  BEGIN   ask_bufval := init_ask ;  RTE_CNUMD(index-1,temp) ; FOR index2:=1 TO 6 DO ask_bufval[index2]:=temp[index2] ;  REPEAT  flag := find_number (value) ;  IF flag OR stop_flag  THEN BEGIN buff1[index] := value ;  END ELSE BEGIN get_input (ask_bufval) ; END ; { en((d IF }  UNTIL (flag OR stop_flag) ; END ; $PAGE {--------------------------------------------}{ }{ p r i n t _ F M P _ e r r o r }{ }{--------------------------------------------} PROCEDURE print_FMP_msg (error : WORD) ;CONST  error_file_namr =STRING20['"PCMER '] ; VAR  err_buff : STRING80 ; err_len : WORD ;  BEGIN   PCIF_build_error_msg (error_file_namr,  'FM',error,0,err_buff,err_len) ;  WRITELN(' file error : ',err_buff) ;   END ; $PAGE {--------------------------------------------}{ }{ g e t _ f i l e _ n a m r }{ }{--------------------------------------------}  PROCEDURE get_file_name ; CONST  no_namr = STRING20[' '] ;  VAR  index : WORD ;  BEGIN   REPEAT  get_function ; IF func=no_namr  THEN BEGIN get_input (ask_file) ; END ELSE BEGIN file_namr := func ; "{-} FOR index:=1 TO 6 DO file_name[index]:=file_namr[index];" END ; { end IF ... } UNTIL (func<>no_namr) ;  END ; $PAGE {-----------------------------------------------------} { } { p r i n t _ P C I F _ f u n c t i o n _ n a m e } { } {-----------------------------------------------------}  PROCEDURE print_PCIF_function_name (function_code : WORD) ;  BEGIN   CASE function_code OF 1 : WRITE ('READD') ; 2 : WRITE ('WRITED') ; 3 : WRITE ('READP') ; 4 : WRITE ('WRITEP') ; 8 : WRITE ('TRANS') ;  9 : WRITE ('READD_EXT') ; {851230} 10: WRITE ('WRITED_EXT') ;  11: WRITE ('READP_EXT') ; 12: WRITE ('WRITEP_EXT') ;  13: WRITE ('WRITEB_EXT') ;  15: WRITE ('FREEZE') ; 16: WRITE ('START') ; 17: WRITE ('STOP') ; 20: WRITE ('CONNECT') ; 21: WRITE ('DISC') ; 22: WRITE ('PCSTAT') ; 30: WRITE ('IDENT') ;  OTHERWISE WRITE ('unknown') ; END ; { end CASE function_code }  END ; { end of PROCEDURE print_PCIF_function_name } $PAGE {--------------------------------------------}{ }{ p r i n t _ P C _ s t a t u s }{ }{--------------------------------------------} PROCEDURE print_PC_status (status : WORD) ;  TYPE STAT_TYPE = RECORD CASE INTEGER OF  0 : (word_access : WORD) ;  1 : (bit_access : PACKED ARRAY [1..16] OF BOOLEAN) ; END ;  VAR  temp_stat : STAT_TYPE ;  BEGIN   IF (stat=0) THEN BEGIN  temp_stat.word_access := status ; WRITE(' -> PC run mode=') ; IF temp_stat.bit_access[16] THEN WRITE('OFF') ELSE WRITE('ON') ; WRITE('; download accept=') ; IF temp_stat.bit_access[15] THEN WRITE('OFF') ELSE WRITE('ON') ; IF temp_stat.bit_access[14] THEN WRITE('; PC not online') ; WRITELN ; ENd ; { end IF }  END ; { end of PROCEDURE print_PC_status }$PAGE {---------------------------------------------------} { } { p r i n t _ s y s t e m _ s t a t u s } { } {---------------------------------------------------}  PROCEDURE print_PC_system_status (status : WORD) ; TYPE STAT_TYPE = RECORD CASE INTEGER OF  0 : (word_access : WORD) ;  1 : (bit_access : PACKED ARRAY [1..16] OF BOOLEAN) ; END ;  VAR  temp_stat : STAT_TYPE ;  BEGIN   IF (stat=0) THEN BEGIN  temp_stat.word_access := status ; IF (NOT temp_stat.bit_access[4])  THEN BEGIN  WRITE(' -> unsolicited ') ; IF temp_stat.bit_access[9] THEN WRITELN('DISABLEd') ELSE WRITELN('ENABLEd') ;  WRITE(' ') ;  END  ELSE WRITE(' ->') ;  IF temp_stat.bit_access[10] THEN WRITELN(' DISConnected') ELSE WRITELN(' CONNECTED') ; IF temp_stat.bit_access[11] THEN WRITELN(' LOCKED')  ELSE WRITELN(' UNlocked') ; IF temp_stat.bit_access[12] THEN WRITELN(' pending rqst')  ELSE WRITELN(' NO rqst pending') ;  WRITE(' capability :') ; IF (NOT temp_stat.bit_access[1])  THEN WRITE(' WriteData') ; IF (NOT temp_stat.bit_access[2])  THEN WRITE(' WriteProgram') ;  IF (NOT temp_stat.bit_access[3])  THEN WRITE(' TRansparent') ; IF (NOT temp_stat.bit_access[4])  THEN WRITE(' UNsolicited') ; IF (NOT temp_stat.bit_access[5])  THEN WRITE(' STart/STop') ;  WRITELN ; END ; { end IF (stat=0) }  END ; { end of PROCEDURE print_PC_system_status } $PAGE {---------------------------------------------------} { } { p r i n t _ p c _ i d e n t _ s t a t u s } { } {---------------------------------------------------}  PROCEDURE print_pc_ident_status (VAR buff : BUF_TYPE) ; TYPE V_TYPE =  RECORD CASE INTEGER OF  0 : (word_access : WORD) ;  1 : (char_access : STRING2) ;  END ;  VAR  vendor : V_TYPE ;  i : WORD; BEGIN {print_pc_ident_status}   IF (stat=0) THEN BEGIN  vendor.word_access := buff[1];  WRITE(' -> Vendor = ') ; FOR i := 1 TO 2 DO WRITE (vendor.char_access[i]); WRITELN;  WRITE(' ') ;  WRITELN(' Model number =',buff[2]:6); WRITE(' '); WRITELN(' Station ID =', buff[3]:6) ; END ; { end IF (stat=0) }  END ; { end of PROCEDURE print_PC_ident_status }$PAGE  {*************************************************************} { } { P C I F / 1 0 0 0 E X E R C I Z E R : M A I N } { } {*************************************************************}  BEGIN WRITELN ;  WRITELN(headerline) ; RTE_FTIME (error_buffer) ; WRITELN(error_buffer) ; WRITELN ; icr:=0 ;isecu:=0 ;tag := 0 ;key := 0 ;contwd := 0 ;  stop_flag := FALSE ; echo_flag := FALSE ; asynch_flag := FALSE ; oldkey_index := 1 ; {860127} FOR i := 1 TO 8 DO oldkey[i] := -1 ; { " } j:=1;  FOR i:=1 TO 512 DO  BEGIN buff1[i]:=j;  IF (j>2) THEN j:=1 ELSE j:=j+1; END; func:='?' ; $PAGE WHILE (func<>'EX') AND (func<>'EXIT') DO BEGIN stat:=0;  tag := 0 ;  key := 0 ;  stop_flag := FALSE ;  get_input (ask_command) ; get_function ;  IF (func='?') OR (func='??')  THEN BEGIN " WRITELN(' PCIF/1000 access routines may be called via') ;"" WRITELN(' their name (without typing PC_ or PCIF_)') ; " WRITELN ;  WRITELN(' Calls may be made in :');# WRITELN(' in synchronous mode (tag & key always=0)'); #& WRITELN(' or asynchronous (tag and access key are asked)') ;&% WRITELN(' Mode is changed by using the function : MODE') ;% WRITELN ; ' WRITELN(' Parameters may be entered at once on the same line') ; '' WRITELN(' but missing parameters will be explicitly asked') ; '' WRITELN(' Input can be stopped by entering "*","a" or "A"') ; ' WRITELN ; ' WRITELN(' Special functions are : MODE BUFRD BUFWR EXIT EX') ; '% WRITELN(' DWLOAD UPLOAD ERROR ECHO') ;% END $PAGE  ELSE IF (func='MODE')  THEN BEGIN  WRITE(' current mode is ') ;  IF asynch_flag THEN WRITE(' a') ; WRITELN('synchronous') ; # WRITELN(' to change mode type "YES". All other input will',# ' not do any change') ; IF get_yes THEN BEGIN  IF asynch_flag THEN asynch_flag := FALSE  ELSE asynch_flag := TRUE ; END ELSE BEGIN  WRITELN(' NO change made') ;  END ;  END $PAGE  ELSE IF (func='READD')  THEN BEGIN  get_read_write_parameters ;  IF (NOT stop_flag) THEN PC_READD (stat,tag,key,pc,buff2,lengt,pcadr) END  ELSE IF (func='READP')  THEN BEGIN  get_read_write_parameters ;  IF (NOT stop_flag) THEN PC_READP (stat,tag,key,pc,buff2,lengt,pcadr) END  ELSE IF (func='WRITED') THEN BEGIN  get_read_write_parameters ;  IF (NOT stop_flag) THEN PC_WRITED (stat,tag,key,pc,buff1,lengt,pcadr)  END  ELSE IF (func='WRITEP') THEN BEGIN  get_read_write_parameters ;  IF (NOT stop_flag) THEN PC_WRITEP (stat,tag,key,pc,buff1,lengt,pcadr)  END $PAGE { } { 12/30/85 extended calls (( } { }  ELSE IF (func='READDEXT') THEN BEGIN  get_read_write_ext_parms ; IF (NOT stop_flag) THEN BEGIN IF (lengt > 505 ) then lengt := 505 ; ' tempo.wrd := offset ; {860326} '$ buff3.byt[ addr_length + 1] := tempo.bt1; {} $$ buff3.byt[ addr_length + 2] := tempo.bt2; {} $ '{ buff3.num[(addr_length div 2) +1] := offset ; 860326} ' $ PC_READD_EXT (stat,tag,key,pc,buff3,addr_length,lengt) ;$ FOR index1 := 1 TO lengt DO buff2[index1] := buff3.num[index1] ;  END;  END  ELSE IF (func='WRITEDEXT')  THEN BEGIN  get_read_write_ext_parms ; IF (NOT stop_flag) THEN BEGIN IF (lengt > 505 ) then lengt := 505 ; '{ FOR index1 := (addr_length div 2 + 2) TO lengt 860326} ''{ DO buff3.num[index1] := buff1[index1] ; } ''{ buff3.num[(addr_length DIV 2) + 1] := offset ; } '' tempo.wrd := offset ; {860326} '' buff3.byt[addr_length + 1] := tempo.bt1; {} '' buff3.byt[addr_length + 2] := tempo.bt2; {} '' {} '' FOR index1 := 1 TO lengt DO {} '' BEGIN {} '' tempo.wrd := buff1[index1]; {} '' buff3.byt[addr_length + 2 + (index1 * 2 - 1)] := tempo.bt1;{} '' buff3.byt[addr_length + 2 + (index1 * 2) ] := tempo.bt2; {} '' END ; {} '' {} '% PC_WRITED_EXT (stat,tag,key,pc,buff3,addr_length,lengt) ; % END ;  END  ELSE IF (func='WRITEBEXT')  THEN BEGIN  get_read_write_ext_parms ; IF (NOT stop_flag) THEN BEGIN  lengt := 2 ;'{ buff3.num[(addr_length DIV 2) + 1] := offset ; 860326} ''{ buff3.num[(addr_length DIV 2) + 2] := buff1[1] ; } ''{ buff3.num[(addr_length DIV 2) + 3] := buff1[2] ; } '' tempo.wrd := offset; {860326} '' buff3.byt[addr_length + 1] := tempo.bt1; {} '' buff3.byt[addr_length + 2] := tempo.bt2; {} '' tempo.wrd := buff1[1]; {} '' buff3.byt[addr_length + 3] := tempo.bt1; {} '' buff3.byt[addr_length + 4] := tempo.bt2; {} '' tempo.wrd := buff1[2]; {} '' buff3.byt[addr_length + 5] := tempo.bt1; {} '' buff3.byt[addr_length + 6] := tempo.bt2; {} '' {} '% PC_WRITEB_EXT (stat,tag,key,pc,buff3,addr_length,lengt) ; % END ;  END  ELSE IF (func='FREEZE') THEN BEGIN  get_pc ; IF asynch_flag THEN BEGIN get_tag ;  get_access_key ;  END ;  IF (NOT stop_flag) THEN PC_FREEZE (stat,tag,key,pc) ;  END $PAGE  ELSE IF (func='OPEN')  THEN BEGIN  PCIF_OPEN (stat);  END  ELSE IF (func='CLOSE')  THEN BEGIN  PCIF_CLOSE (stat)  END  ELSE IF (func='LOCK')  THEN BEGIN  get_pc;  IF (NOT stop_flag) THEN PC_LOCK (stat,pc); END  ELSE IF (func='UNLOCK') THEN BEGIN  get_pc;  IF (NOT stop_flag) THEN PC_UNLOCK (stat,pc); END  ELSE IF (func='CONNECT')  THEN BEGIN  get_pc; IF asynch_flag THEN BEGIN get_tag ;  get_access_key ; END ; IF (NOT stop_flag) THEN PC_CONNECT (stat,tag,key,pc);  END  ELSE IF (func='DISC') OR (func='DISCONNECT')  THEN BEGIN  get_pc; get_password ;  IF (NOT stop_flag) THEN PC_DISC (stat,pc,password) ; END $PAGE  ELSE IF (func='PCSTAT') THEN BEGIN  get_pc; IF asynch_flag THEN BEGIN get_tag ;  get_access_key ; END ;  IF (NOT stop_flag) THEN BEGIN  PC_PCSTAT (stat,tag,key,pc,buff2); print_PC_status(buff2[1]) ;  END ;  END  ELSE IF (func='IDENT')  THEN BEGIN  get_pc; IF asynch_flag THEN BEGIN get_tag ;  get_access_key ; END ;  IF (NOT stop_flag) THEN BEGIN  PC_IDENT (stat,tag,key,pc,buff2,10); print_PC_ident_status(buff2) ; END ;  END  ELSE IF (func='SYSTAT') THEN BEGIN  get_pc;  IF (NOT stop_flag) THEN BEGIN  PC_SYSTAT (stat,pc,buff2); print_PC_system_status(buff2[1]) ; END ;  END  ELSE IF (func='START')  THEN BEGIN  get_pc; IF (asynch_flag) THEN BEGIN get_tag ;  get_access_key ; END ;  IF (NOT stop_flag) THEN PC_START (stat,tag,key,pc);  END  ELSE IF (func='STOP')  THEN BEGIN  get_pc; IF asynch_flag THEN BEGIN get_tag ;  get_access_key ; END ;  IF (NOT stop_flag) THEN PC_STOP (stat,tag,key,pc); END $PAGE  ELSE IF (func='TRANS')  THEN BEGIN  get_pc ; get_length ; get_logr ; get_subfnc; IF asynch_flag THEN BEGIN  get_tag ;  get_access_key ; END ;  IF (NOT stop_flag) THEN BEGIN  PC_TRANS (stat,tag,key,pc,subfnc,  buff1,lengt,buff2,logr); IF (stat=0) THEN lengt:=logr ; IF ((lengt > -24576) AND (lengt < 0)) OR ((lengt > 512) AND (lengt < 16384)) OR  ((lengt > 17384) AND (lengt < 32767)) THEN lengt := 512;  END ;  END  ELSE IF (func='GETKEY') THEN BEGIN  PC_GETKEY (stat,key); ' IF(stat <> 0) {860127}'' THEN BEGIN {}'' END {}'' ELSE IF(oldkey_index <= 8) {Save up to eight keys } {}'' THEN BEGIN {}'' oldkey[oldkey_index] := key ; {}'' WRITELN (' index : ',oldkey_index:6,' key : ',key:6) ;{}'' oldkey_index := oldkey_index + 1 ; {}'' END {}'' ELSE WRITELN (' key : ',key:6) ; {}' END  ELSE IF (func='RELKEY') THEN BEGIN " get_access_key ; {Real key and may not be in oldkey array}" IF (NOT stop_flag) THEN BEGIN ' found_flag := FALSE ; {860127} '' i := 0 ; {} ' PC_RELKEY (stat,key) ; ' IF(stat <> 0) {} '' THEN BEGIN {} '' END {} '' ELSE REPEAT {} '' i := i + 1 ; {} '' IF(key = oldkey[i]) THEN found_flag := TRUE ; {} '' UNTIL found_flag OR (i >= 8) ; {} '' END; {} '' IF found_flag THEN oldkey[i] := -1 ; {} ' END  ELSE IF (func='CANCEL') THEN BEGIN  get_pc ; get_tag ;  get_type_cancel ; ! IF (NOT stop_flag) THEN PC_CANCEL (stat,pc,tag,typec); ! END $PAGE  ELSE IF (func='CALL')  THEN BEGIN  get_pc ; get_length ; get_subfnc ; " ext_flag := FALSE; {MWC rev 2622} " get_pcadr ; IF asynch_flag THEN BEGIN  get_tag ;  get_access_key ; END ;  IF (NOT stop_flag) THEN BEGIN  (( PC_CALL (stat,tag,key,pc,subfnc, buff1,lengt,pcadr);  IF (stat=0) AND (subfnc>31) THEN lengt := 0 ;  IF (lengt>512) THEN lengt:=512 ; END ;  END  ELSE IF (func='ENQUIRY')  THEN BEGIN  get_access_key ;  contwd := key - 32768 ;  IF (NOT stop_flag) THEN BEGIN  PC_ENQUIRY (stat,oldstat,tag,contwd,  pc,buff2,256,typer,logr); lengt := logr DIV 2 ; IF ((logr MOD 2)<>0)  THEN lengt := lengt + 1 ;  IF (stat=0) THEN BEGIN  IF (typer<>0)  THEN BEGIN WRITE(' message get for PC',pc:6,  ' reply to ') ;  IF (typer<0) THEN BEGIN WRITE(' unsolicited '); " print_PCIF_function_name (-typer) ; " END ELSE BEGIN WRITE(' reply to ') ; ! print_PCIF_function_name (typer) ;! END ; { end IF (typer<0) } WRITELN(' typer=',typer:6);  WRITELN(' tag',tag:6, ' logr =',logr:6) ;  stat := oldstat ;  END ELSE BEGIN# WRITELN(' no message currently in access key') ; #& WRITELN(' To wait on enquiry use function : ENQUIRYW');& END ; { end IF (typer<>0) }  END ; { end IF (stat=0) } END ; { end IF (NOT stop_flag) }  END $PAGE  ELSE IF (func='ENQUIRYW') THEN BEGIN  get_access_key ; contwd := key ;  IF (NOT stop_flag) THEN BEGIN  PC_ENQUIRY (stat,oldstat,tag,contwd,  pc,buff2,256,typer,logr); lengt := logr DIV 2 ; IF ((logr MOD 2)<>0)  THEN lengt := lengt + 1 ;  CASE stat OF  0 : BEGIN  WRITE(' message get for PC',pc:6) ; IF (typer<0)  THEN BEGIN  WRITE(' unsolicited ');  print_PCIF_function_name (-typer) ;  END ELSE BEGIN WRITE(' reply to ') ;  print_PCIF_function_name (typer) ; END ; { end IF (typer<0) } WRITELN(' typer=',typer:6);  WRITELN(' tag',tag:6, ' logr =',logr:6) ;  stat := oldstat ;  END ;  OTHERWISE BEGIN END ; END ; { end CASE stat } END ; { end IF (NOT stop_flag) }  END $PAGE  ELSE IF (func='ENUNSOL')  THEN BEGIN  get_pc ; get_access_key ;  IF (NOT stop_flag) THEN PC_ENUNSOL (stat,pc,key);  END  ELSE IF (func='DIUNSOL')  THEN BEGIN  get_pc ;  IF (NOT stop_flag) THEN PC_DIUNSOL (stat,pc);  END $PAGE  ELSE IF (func='BUFRD')  THEN BEGIN  IF (lengt < 16384) AND (lengt > 0) THEN FOR i:=1 TO lengt DO WRITELN(i-1:6,' -> ',buff2[i]:7)  ELSE " {*CGY* Added below to print bit length lengt buffers}" IF (lengt < 0)  THEN BEGIN  bit_length.wd := lengt;  nb_displayed := bit_length.lo_bits DIV 16; FOR i := 1 TO nb_displayed DO  writeln (i-1:6,' -> ',buff2[i]:7); IF (bit_length.lo_bits MOD 16 <> 0) THEN" BEGIN {print remainder, zero out unused bits} " tempo.wrd := buff2[nb_displayed + 1]; & FOR i := 1 TO (16 - (bit_length.lo_bits MOD 16)) DO && tempo.bit_array[(bit_length.lo_bits MOD 16)+i]:=0;& writeln (nb_displayed:6,' -> ',  tempo.wrd:7); END; END  {*CGY* End of mod.}  ELSE BEGIN  nb_displayed:= (lengt - 16384) DIV 2;  IF (2 * nb_displayed <> lengt-16384) THEN  nb_displayed:= nb_displayed + 1;  FOR i:=1 TO nb_displayed DO  BEGIN tempo.wrd:= buff2[i]; WRITELN (tempo.bt1:7);  IF (i512) THEN lengt:=512;  PC_READP (stat,0,0,pc,buff2,lengt,pcadr);  FOR i:=1 TO lengt DO BEGIN  write (abup,buff2[i]);  END;{FOR}  close (abup);  END ;  END $PAGE  ELSE IF (func='ERROR')  THEN BEGIN  get_error_number ;  END  ELSE IF( (func='**') OR (func='!') ) {860205} THEN BEGIN  END  ELSE IF (func='ECHO')  THEN BEGIN  echo_flag := TRUE ;  END  ELSE IF (func='EX') OR (func='EXIT')  THEN BEGIN  PCIF_CLOSE (stat) ; WRITELN (' -> end of PCTEST program') ;  stat := 0 ;  END  ELSE WRITELN (' -> unknown test function name'); IF (NOT stop_flag)  THEN BEGIN  IF (stat>0) THEN BEGIN  PCIF_ERROR(stat,error_buffer, error_length) ; WRITELN(' -> error : ',error_buffer) ;  END ELSE BEGIN WRITELN ;  END ; { end IF (stat>0) }  END  ELSE BEGIN  WRITELN(' -> function not executed') ;  END ; { end IF stop_flag } END; END./PCIF/PCIFGEN/PCPGF.DAT:::4:30:39 644 0 0 17000 5303664743 35415 /PCIF_GEN/PCIFGEN/PCPGF.DAT:::4:30:39 !%$ 'PCPGF DAT +i+i+iFST * PCPGF.DAT 94200-18407 REV.5000 <870518.1245>* ASSEMBLER & LINK COMMAND FILES* SOURCE: 94200-18407* RELOCATABLE: non-existent  * PRGMR: OK, VRA enhance 4/21/86 to gen CDS &PCRTB code. * ************************************************************ * * (C) COPYRIGHT HEWLETT-PACKARD 1983. ALL RIGHTS RESERVED. * * * NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, REPRODUCED, * * * OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT THE * * * PRIOR WRITT((EN CONSENT OF HEWLETT-PACKARD COMPANY. * * ************************************************************ * * DESCRIPTION:* Contains text for building!* - PCCTB.MAC by routine GENERATION_MACRO in file PCPMA.PAS!!* - PCRTB.MAC by routine GENERATION_MACRO in file PCPMA.PAS!!* - PCLCO.LOD by routine GENERATION_LINK in file PCPLK.PAS !!* - PCLRT.LOD by routine GENERATION_LINK in file PCPLK.PAS !* * WARNING: DO NOT remove or modify ANY lines in this file.* Information is located by line number. $* 860730 mja - Changed D10 and D-10 to D32 and D-32 for 64 char filename$'******************************************************************************'* * MACRO,R {1} NAM PCCTB  ENT PC_descr_dir  ENT PC_user  EXT .ENTR {5} EXT Pas.SegmentLoad namr1_add DEF namr001 count DEC 0 source DEC 0 case_add DEC 0 {10}hand_nb DEC 0 hand_max DEC 0 descr_nam DEC 0 PC_descr_dir NOP JSB .ENTR {15} DEF hand_nb LDA @hand_nb ADA =D-1 MPY =D32  ADA namr1_add {20} STA source LDA =D-32 STA count loop LDA @source  STA @descr_nam {25} ISZ source ISZ descr_nam ISZ count JMP loop  STA @hand_max {30} JMP @PC_descr_dir conf_nb DEC 0 P1 DEC 0 P2 DEC 0 P3 DEC 0 {35}  P4 DEC 0 P5 DEC 0 valid DEC 0 action DEC 0 PC_user NOP {40}  JSB .ENTR DEF conf_nb LDA @conf_nb ADA =D-1  ADA case1_add {45}  STA case_add JMP @case_add case1_add DEF case001 retu LDA =D1 {60}  STA @valid STA @action JMP @PC_user  END *********************************************** * Partial assembler source code for PCRTB.MAC * *********************************************** MACRO,R  MACLIB 'PCIFM.LIB::LIBRARIES' & NAM GET_DOWNLD_FILE ; Dummy, required for each subroutine&' CDS ON ; Code and Data Separation On, Required' & ENT PCIF_download ; Subroutine entry point declaration &  RELOC DATA ; Begin the DATA segment &n1 DEF namr001 ; Contains address of first file namr&count DEC 0 ; loop counter 'source DEC 0 ; computed address of desired file namr'  RELOC CODE ; Begin the CODE segment PCIF_download ENTRY hand_nb, hand_max, dwnlo_nam " LDA @hand_nb ; first parameter -->> A-REG " ADA =D-1 ; decrement the A-REG SSA ; IF (A-REG < 0) ! EXIT ; THEN EXIT, ELSE CONTINUE !% MPY =D32 ; multiply by 10 (words of offset) %$ ADA n1 ; add address of first file namr $ STA source ; save the address # LDA =D-32 ; negative loop value ->> A-REG# STA count ; A-REG ->> count"loop LDA @source ; next word of namr ->> A-REG"$ STA @dwnlo_nam ; A-REG ->> parameter3(11+count) $" ISZ source ; point to next word of namr "% ISZ dwnlo_nam ; point to next word of parameter3 %& ISZ count ; bump loop counter, exit after 10th & JMP loop ; repeat the loop STA @hand_max ; A-REG ->> parameter2 ! EXIT ; Return to calling routine!% END ; GET_DOWNLD_FILE, required for NAM%  & NAM CALL_HANDLER_N ; Dummy, required for each subroutine&& CDS ON ; Code and Data Separation, Required &  & ENT PCIF_handler ; Subroutine entry point declaration &  RELOC DATA ; Resume DATA segment'hand1_add DEF h1 ; Location address before handler call '  RELOC CODE ; Resume CODE segmentPCIF_handler ENTRY h_nb,P1,P2,P3! LDA @h_nb ; first parameter ->> A-REG!# ADA =D-1 ; (handler#-1)*(#lines/call)+1 # SSA ; IF (A-REG < 0) ! EXIT ; THEN EXIT, ELSE CONTINUE !$ MPY =D7 ; There are 7 words/handler call $% ADA =D1 ; Increment calculated address by 1%' ADA hand1_add ; add offset to the (address-1) of the ' JMP @A ; jump to A-reg indirectly  %h1 NOP ; location just before handler calls % & END ; CALL_HANDLER_N required for each NAM &******************************* * Link command file PCLCO.LOD * ******************************* ****** SN,SNAPpc,31,0 **************VM LI,/F1000/FOPRL.LIB LI,/F1000/FRULB.LIB LI,/LIBRARIES/PASCAL.LIB RE,/F1000/FCOMM.REL RE,/PCIF/PCIFGEN/PCCON.REL RE,/PCIF/PCIFGEN/PCCTB.REL RE,/PCIF/PCIFGEN/PCFOI.REL RE,/PCIF/PCIFGEN/PCCUT.REL RE,/PCIF/PCIFGEN/PCCLI.REL RE,/PCIF/PCIFGEN/PCCT1.REL RE,/PCIF/PCIFGEN/PCCT2.REL RE,/PCIF/PCIFGEN/PCCT3.REL RE,/PCIF/PCIFGEN/PCCT4.REL RE,/PCIF/PCIFGEN/PCCT5.REL RE,/PCIF/PCIFGEN/PCCT7.REL RE,/PCIF/PCIFGEN/PCCT8.REL RE,/PCIF/PCIFGEN/PCCT9.REL RE,/PCIF/PCIFGEN/PCC11.REL RE,/PCIF/PCIFGEN/PCCCP.REL EN,/PCIF/RUNTIME/PCCON ******************************* * Link command file PCLRT.LOD * ******************************* ****** SN,SNAPSUpc,31,0 ** ST for Gould Modicon May 1987st,2500 **********LI,/LIBRARIES/PASCAL_CDS.LIB RE,/PCIF/PCIFGEN/PCMC0.REL RE,/PCIF/PCIFGEN/PCMC1.REL RE,/PCIF/PCIFGEN/PCMC2.REL RE,/PCIF/PCIFGEN/PCRTB.REL RE,/PCIF/PCIFGEN/PCS1C.REL RE,/PCIF/PCIFGEN/PCMC3.REL RE,/PCIF/PCIFGEN/PCMC4.REL RE,/PCIF/PCIFGEN/PCMC5.REL RE,/PCIF/PCIFGEN/PCS0C.REL RE,/PCIF/PCIFGEN/PCMC6.REL RE,/PCIF/PCIFGEN/PCMC7.REL EN,/PCIF/RUNTIME/PCIF /PCIF/RUNTIME/PCLIB.LIB:::5:144:128 644 0 0 110000 5303664533 35752 /PCIF_GEN/RUNTIME/PCLIB.LIB:::5:144:128 #'$ 0PCLIB LIB +iZ+i[+i[G4FST s AAXq']PCLIB_SHELL 94200-12001 REV.4010 <860815.1 860815.1600 LIB/PCLIB.MAC::PCIF_CIA@4>>Xq(]PCLIB 94200-12001 REV.4010 <860815.1 860815.1600 LIB/PCLIB.MAC::PCIF_CI> 1PCLIB e[PAS.NONCDS  8( @[>>Xq6]PCFCC 94200-1X102 REV.4010 <860815.1 860815.1552 LIB/PCFNC.MAC::PCIF_CI>@???X[q6]PCIF_16 94200-1X102 REV.4010 <860815.1 860815.1552 LIB/PCFNC.MAC::PCIF_CI? ePCIF_16 l --.ENTR PAS.NONCDSPCIF_01 PCIF_09 PCIF_10 PCIF_11 PCIF_15 -tt|o@@A(?pIpJpK`pFpHApBBO`gpA`fp@`ApE(*pC)HEIFCA(?1HEIF(?pF`ApDA?IFDt g}A( @Ba??X\q6]PCIF_17 94200-1X102 REV.4010 <860815.1 860815.1552 LIB/PCFNC.MAC::PCIF_CI? cPCIF_17  ''ާ.ENTR PAS.NONCDSPCIF_01 PCIF_10 PCIF_11 PCIF_15 'UUQ..A~~(-}p7p9`p4p6p1A1=`Up3`Up/A6374~~(-p4A`/p2-74.2~U gVA}( @=\k??X]q6]PCIF_18 94200-1X102 REV.4010 <860815.1 860815.1552 LIB/PCFNC.MAC::PCIF_CI? hPCIF_18 Z AA h.DLD.DST .ENTR PAS.NONCDS PCIF_01 PCIF_04 PCIF_06 PCIF_09 PCIF_10 PCIF_11 PCIF_15 AUGGA A(  (NpXpYpZp[\`pUpWpQ#Q^`vpP`upO`PpT(7ApR6WTXUR(N>WTXU(NDpU`OpS~GANUS gA ( @&??X_ q6]PCIF_19 94200-1X102 REV.4010 <860815.1 860815.1552 LIB/PCFNC.MAC::PCIF_CI? hPCIF_19 1 AA h.DLD.DST .ENTR PAS.NONCDS PCIF_01 PCIF_04 PCIF_06 PCIF_09 PCIF_10 PCIF_11 PCIF_15 AhEEA A(  ǀ(wpȈpp̄p((`p~ppz%z`py`px`yp}(Pp{A8}~{ǀ(?(?(OBp~pVVDE33A`xp}O}~{(wW}~(i]̀p~p`xp}i}~ǀ(wp~`yp|w~|ǨV gA ( @ԧ>>XDpq6]PC_READD94200-1X102 REV.4010 <860815.1 860815.1552LIB/PCFNC.MAC::PCIF_CI> PC_READD d.ENTR PAS.NONCDSPCIF_18 M Ap    elA( @Yxj>>XD~q6]PC_READP94200-1X102 REV.4010 <860815.1 860815.1552LIB/PCFNC.MAC::PCIF_CI> PC_READP d.ENTR PAS.NONCDSPCIF_18 ) A`p    fpA( @5T@@Xq6]PC_WRITED 94200-1X102 REV.4010 <860815.1 860815.1552 LIB/PCFNC.MAC::PCIF_CI@|PC_WRITED e.ENTR PAS.NONCDSPCIF_19 ) A`p    foA( @C9@@Xq6]PC_WRITEP 94200-1X102 REV.4010 <860815.1 860815.1552 LIB/PCFNC.MAC::PCIF_CI@PC_WRITEP e.ENTR PAS.NONCDSPCIF_19 ) A`p    fqA( @2EQ>>XMq6]PC_IDENT94200-1X102 REV.4010 <860815.1 860815.1552LIB/PCFNC.MAC::PCIF_CI> $PC_IDENT .DST.ENTR PAS.NONCDSPCIF_18  Q`p AA fA( @׷??Xvaq6]PC_LOCK 94200-1X102 REV.4010 <860815.1 860815.1552 LIB/PCFNC.MAC::PCIF_CI? ,z PC_LOCK  c.ENTR PAS.NONCDSPCIF_17 kA`p   fw A ( @`@@Xĸq6 ]PC_UNLOCK 94200-1X102 REV.4010 <860815.1 860815.1552 LIB/PCFNC.MAC::PCIF_CI@z PC_UNLOCK c.ENTR PAS.NONCDSPCIF_17 kA`p   fx A ( @g??Xq6 ]PC_CONNECT94200-1X102 REV.4010 <860815.1 860815.1552LIB/PCFNC.MAC::PCIF_CI?rPC_CONNECTb.ENTR PAS.NONCDSPCIF_16 , A`p    fxA ( @??Xhq6 ]PC_DISC 94200-1X102 REV.4010 <860815.1 860815.1552 LIB/PCFNC.MAC::PCIF_CI? PC_DISC ~ ''ާ.ENTR PAS.NONCDSPCIF_01 PCIF_10 PCIF_11 PCIF_15 'YYK00A(/`p9p;p<`p6p8Ap33?`Wp5A`Wp1!8596(/p6`1p4A/9604YhpA( @@@XCq6 ]PC_PCSTAT 94200-1X102 REV.4010 <860815.1 860815.1552 LIB/PCFNC.MAC::PCIF_CI@}PC_PCSTAT l--.ENTR PAS.NONCDSPCIF_01 PCIF_09 PCIF_10 PCIF_11 PCIF_15 -tt|@@A(?`pIpJpK`pFpHApBBO`gpA`fp@`ApE(*pC)HEIFCA(?1HEIF(?pF`@pDA?FDthA( @1;@@X5q6 ]PC_SYSTAT 94200-1X102 REV.4010 <860815.1 860815.1552 LIB/PCFNC.MAC::PCIF_CI@PC_SYSTAT ~''ާ.ENTR PAS.NONCDSPCIF_01 PCIF_10 PCIF_11 PCIF_15 'YYz00A(/`p9p;`p6p8p2A2?`Wp1`Vp0A`1p5!8596(/p6`0p4A/634YhrA( @33@@X)q6 ]PC_CANCEL 94200-1X102 REV.4010 <860815.1 860815.1552 LIB/PCFNC.MAC::PCIF_CI@bPC_CANCEL y''ާ.ENTR PAS.NONCDSPCIF_01 PCIF_10 PCIF_11 PCIF_15 'bb)=44A(3`p=p?p@pA`p:p<p6A6C`[p5`Zp4A`5p9%<9=:(3p:`5p8A3=:78bh|A( @aM>>Xaq6 ]PC_START94200-1X102 REV.4010 <860815.1 860815.1552LIB/PCFNC.MAC::PCIF_CI> 8PC_START b.ENTR PAS.NONCDSPCIF_16 , A`p    ftA ( @qz:??X|q6 ]PC_STOP 94200-1X102 REV.4010 <860815.1 860815.1552 LIB/PCFNC.MAC::PCIF_CI? 6PC_STOP  b.ENTR PAS.NONCDSPCIF_16 , A`p    fuA ( @O@@Xq6 ]PC_FREEZE 94200-1X102 REV.4010 <860815.1 860815.1552 LIB/PCFNC.MAC::PCIF_CI@nPC_FREEZE b.ENTR PAS.NONCDSPCIF_16 , A`p    fsA ( @??Xq6 ]PC_ENQUIRY94200-1X102 REV.4010 <860815.1 860815.1552LIB/PCFNC.MAC::PCIF_CI? PC_ENQUIRY AA -i .ENTR .MBTCHECK_PROG_STAT PAS.NONCDSPCIF_01 PCIF_05 PCIF_06 PCIF_13 PCIF_14 PCIF_15 A@@A(h6A`6 (@p`p`/pp#``p`ňp`pp`@P(3(588(-(@`(@`v@GG(GG(`p`p`p`p`(`_(jAj(`(s(````(ApA`p''1(`(`('cA (PCIF  @>>X\} q6]PC_TRANS94200-1X102 REV.4010 <860815.1 860815.1552LIB/PCFNC.MAC::PCIF_CI> 2PC_TRANS 99 mY .ENTR PAS.NONCDSPCIF_01 PCIF_05 PCIF_06 PCIF_09 PCIF_10 PCIF_11 PCIF_15 9@@AA(  (((P (P (((P (&P (&((`(` pppppp` p<p@@JJA@(LJp(PAOpApV`p`p`p(pi(p(p(Aspp`pA(<< \!!(pp`p(p`p<,jA ( @@Ge??Xjhq6]PC_CALL 94200-1X102 REV.4010 <860815.1 860815.1552 LIB/PCFNC.MAC::PCIF_CI?  PC_CALL  KK .DLD.DST .ENTR PAS.BOUNDINTEGERPAS.NONCDS PCIF_01 PCIF_04 PCIF_06 PCIF_09 PCIF_10 PCIF_11 PCIF_15 K~~DDA ( ? ( ((( (`pppp` pA@(86p(:ppA@`p`p~DJJ`p(spSA@(r(bA(b(reppA`pr(zA@((pp`pAAo$$(A@(p`p(p`pA Aj A ( @@>>X]iq6]PCIF_EXT94200-1X102 REV.4010 <860815.1 860815.1552LIB/PCFNC.MAC::PCIF_CI> 3PCIF_EXT  AA h.DLD.DST .ENTR PAS.NONCDS PCIF_01 PCIF_04 PCIF_06 PCIF_09 PCIF_10 PCIF_11 PCIF_15 AOl??A ((P(P(P(P(P( P(#(&(((((((((((((/ /(pppApA`9@?IIpCppJ`ƈp`p`p(uAp](d(d(tgpp`ptA(|(App`p@**}0(p`p*m A ( @NZm@@X(+q6]PC_READD_EXT94200-1X102 REV.4010 <860815.1 860815.1552LIB/PCFNC.MAC::PCIF_CI@B&PC_READD_EXTs.DLD.DST.ENTR PAS.NONCDSPCIF_EXT00`*p%$ppA$pAA !"#&0 f'A( @EBBX`+q6]PC_WRITED_EXT 94200-1X102 REV.4010 <860815.1 860815.1552 LIB/PCFNC.MAC::PCIF_CIB&PC_WRITED_EXT s.DLD.DST.ENTR PAS.NONCDSPCIF_EXT00`*p%$p((pA$pAA !"#&0 f'A( @Rp@@X5+q6]PC_READP_EXT94200-1X102 REV.4010 <860815.1 860815.1552LIB/PCFNC.MAC::PCIF_CI@N&PC_READP_EXTs.DLD.DST.ENTR PAS.NONCDSPCIF_EXT00`*p%$ppA$pAA !"#&0 f'A( @` BBXl+q6]PC_WRITEP_EXT 94200-1X102 REV.4010 <860815.1 860815.1552 LIB/PCFNC.MAC::PCIF_CIB"&PC_WRITEP_EXT s.DLD.DST.ENTR PAS.NONCDSPCIF_EXT00`*p%$ppA$pAA !"#&0 f'A( @jBBX^+q6]PC_WRITEB_EXT 94200-1X102 REV.4010 <860815.1 860815.1552 LIB/PCFNC.MAC::PCIF_CIB&PC_WRITEB_EXT s.DLD.DST.ENTR PAS.NONCDSPCIF_EXT00`*p%$ppA$pAA !"#&0 f'A( @Nl@@Xƈq6]PC_GETKEY 94200-1X102 REV.4010 <860815.1 860815.1552 LIB/PCFNC.MAC::PCIF_CI@{PC_GETKEY 2<< .ENTR ABREG CLRQPAS.NONCDS PCIF_01 PCIF_07 PCIF_08 PCIF_10 PCIF_11 PCIF_15 <ڟIIA (z͈A`p((A|{A|{(e`p͈p`ppp+`p`p}6(Dp`}p~D~̀(ep[[II22AM`A@(c`p`҈@`ӄpb(e`̀(z`لpn(p(wt|{A|{z[ A ( '@@@T@@XƩq6]PC_RELKEY 94200-1X102 REV.4010 <860815.1 860815.1552 LIB/PCFNC.MAC::PCIF_CI@{PC_RELKEY << .ENTR ABREG CLRQPAS.NONCDS PCIF_01 PCIF_07 PCIF_08 PCIF_10 PCIF_11 PCIF_15 <GGA (`pp`pppA`p`pA(-pA`p-(Ap6pp``A@(W`(W BGBB`@(M(Sp`p`p(<(l`p`(b(ifAl(`@ `p`A@(`@h H`@ !!_`p(u@p`p! A ( @@F??Xq6]PC_ENUNSOL94200-1X102 REV.4010 <860815.1 860815.1552LIB/PCFNC.MAC::PCIF_CI?~PC_ENUNSOLM55ʚ.ENTR .MBTCHECK_PROG_STAT PAS.NONCDSPCIF_01 PCIF_10 PCIF_11 PCIF_15 5@@A(h6A`6f(7Ap^^o``p``p_`pp]`@](*(,8]8($(7(7`([`pipkpl55ٔ@`pcpeA``pbMebic([pc``paA[ic\a5= A(pfPCIF @??Xq6]PC_DIUNSOL94200-1X102 REV.4010 <860815.1 860815.1552LIB/PCFNC.MAC::PCIF_CI?y PC_DIUNSOLc.ENTR PAS.NONCDSPCIF_17 kA`p   fq A ( @@@X7q6]PCIF_OPEN 94200-1X102 REV.4010 <860815.1 860815.1552 LIB/PCFNC.MAC::PCIF_CI@y%PCIF_OPEN RR"_.ENTR .MBTABREG CLRQEXECIDGET PAS.NONCDS PCIF_07 PCIF_08 PCIF_10 PCIF_11 PCIF_15 PNAME RMPAR USNUM RHH$pA 䀈`(`(`2$$('p`3p (($! A'$$(h*6A`+6)4Јp`(;`1$(P`6p`5pDƈA(F(MJ HIIA P$$([V`([`1$$(`pň`p`pA`/p jAmopۈ`0ppA {́$$(`0pA Ł$$(pA `VV?..p`p`p`/p $($P2(`4p (( App`/p %V&A$(,PCOPN  @@PC@??Xhq6]PCIF_CLOSE94200-1X102 REV.4010 <860815.1 860815.1552LIB/PCFNC.MAC::PCIF_CI?zPCIF_CLOSEP<< .ENTR ABREG CLRQPAS.NONCDS PCIF_01 PCIF_07 PCIF_08 PCIF_10 PCIF_11 PCIF_15 <JJA ([`ph`pepgApccn`pdA`p^gdhe(+pe`^p_A+he`_([`pbA4boA(6(=:A]\]\@popn`(Sp))#Jpa`@a 8a8(Lp`pc[cn)QA (o @@>>X]5q6]PC_ASSOC94200-1X102 REV.4010 <860815.1 860815.1552LIB/PCFNC.MAC::PCIF_CI> 4.PC_ASSOC s.DLD.DST.ENTR PAS.NONCDSPCIF_EXT?? `3p",p ` 4,,-p!` /2p#,p$#%'()*"+!%.?/A'(@} =@@Xq6]PC_CALIBRATE94200-1X102 REV.4010 <860815.1 860815.1552LIB/PCFNC.MAC::PCIF_CI@&PC_CALIBRATEb.ENTR PAS.NONCDSPCIF_16 , A`p    fA ( @x8AAXq6]PC_CONTINUE 94200-1X102 REV.4010 <860815.1 860815.1552 LIB/PCFNC.MAC::PCIF_CIAPC_CONTINUE b.ENTR PAS.NONCDSPCIF_16 , A`p    fA (! @JAAX9q6]PC_CYL_STOP 94200-1X102 REV.4010 <860815.1 860815.1552 LIB/PCFNC.MAC::PCIF_CIA PC_CYL_STOP b.ENTR PAS.NONCDSPCIF_16 , A`p    fA (" @O==XGq6]PC_DIR94200-1X102 REV.4010 <860815.1 860815.1552LIB/PCFNC.MAC::PCIF_CI= dPC_DIR .DST.ENTR PAS.NONCDSPCIF_18  Q`p AA fA(# @&sE3AAX#q6]PC_DISASSOC 94200-1X102 REV.4010 <860815.1 860815.1552 LIB/PCFNC.MAC::PCIF_CIA(PC_DISASSOC b.ENTR PAS.NONCDSPCIF_16 , A`p    fA ($ @b??Xo}q6]PC_HOLD 94200-1X102 REV.4010 <860815.1 860815.1552 LIB/PCFNC.MAC::PCIF_CI? %PC_HOLD  b.ENTR PAS.NONCDSPCIF_16 , A`p    fA (% @lVAAX%q6]PC_MAPIDENT 94200-1X102 REV.4010 <860815.1 860815.1552 LIB/PCFNC.MAC::PCIF_CIA PC_MAPIDENT .DST.ENTR PAS.NONCDSPCIF_18  Q`p AA fA(& @??Xq6]PC_MAPSTAT94200-1X102 REV.4010 <860815.1 860815.1552LIB/PCFNC.MAC::PCIF_CI?hPC_MAPSTAT.DST.ENTR PAS.NONCDSPCIF_18  Q`p AA fA(' @?^AAX 2q6]PC_PRGM_DEL 94200-1X102 REV.4010 <860815.1 860815.1552 LIB/PCFNC.MAC::PCIF_CIA,PC_PRGM_DEL .DST.ENTR PAS.NONCDSPCIF_19  Q`p AA fA(( @+4AAX2q6]PC_PRGM_SEL 94200-1X102 REV.4010 <860815.1 860815.1552 LIB/PCFNC.MAC::PCIF_CIA,PC_PRGM_SEL .DST.ENTR PAS.NONCDSPCIF_19  Q`p AA fA() @4,RAAX$q6]PC_RLNQCNTL 94200-1X102 REV.4010 <860815.1 860815.1552 LIB/PCFNC.MAC::PCIF_CIA&PC_RLNQCNTL b.ENTR PAS.NONCDSPCIF_16 , A`p    fA (* @gAAX#q6]PC_TAKECNTL 94200-1X102 REV.4010 <860815.1 860815.1552 LIB/PCFNC.MAC::PCIF_CIA%PC_TAKECNTL b.ENTR PAS.NONCDSPCIF_16 , A`p    fA (+ @f>>Xj(]PCIFN 94200-1X103 REV.4010 <860801.1 860801.1606 LIB/PCSER.MAC::PCIF_CI>@_CCXj)]CHECK_PROG_STAT 94200-1X103 REV.4010 <860801.1 860801.1606 LIB/PCSER.MAC::PCIF_CIC]CHECK_PROG_STAT &&.ENTR ((.LBT.MBT.SBTMESSS PAS.NONCDSPCIF_15 &?DDh6`6A`ppxh6@xHHh6pለ`x@@H`8x8( `p{#|{pzh6HHh6hH6Hh@6 px(b`A@x(b`@xbbD33H@6pHh6P(N(^`@x@6 ph6 HP(\(^``xpx(7P(f(vpwAlwppA`pwvwbLL^66A(H|yPS, ABOFHL@k؊??X2Xj)]PCIF_01 94200-1X103 REV.4010 <860801.1 860801.1606 LIB/PCSER.MAC::PCIF_CI? `SPCIF_01  a.ENTR PAS.NONCDSPCIF_15 &&RpA`(`(`WRS& fTAR( @ ??X4gj*]PCIF_03 94200-1X103 REV.4010 <860801.1 860801.1606 LIB/PCSER.MAC::PCIF_CI? .__PCIF_03 a.ENTR PAS.NONCDSPCIF_15 99>5Ap`fA@1(p1`1p1`1p`ep`_9 f`A_( c(e @x??X5j*]PCIF_04 94200-1X103 REV.4010 <860801.1 860801.1606 LIB/PCSER.MAC::PCIF_CI? aPCIF_04 x ##J.DIV.ENTR PAS.INLINEERROR PAS.NONCDSPCIF_15 #~~?@@pDADFpE`E.P(P(P(!P(((+`Y ApC(.`YpC(.`Y pC(.`(.h(B`Ep`CA@(@`E(B~f#@`Y A(?@g'??X6j+]PCIF_05 94200-1X103 REV.4010 <860801.1 860801.1606 LIB/PCSER.MAC::PCIF_CI? aPCIF_05 x ##J.DIV.ENTR PAS.INLINEERROR PAS.NONCDSPCIF_15 #~~=@@pDADFpE`E.P(P(P(!P(((+`Y ApC(.`YpC(.`Y pC(.`(.h(B`Ep`CA@(@`E(B~f#@` A('?@ĔT??X7Jj+]PCIF_06 94200-1X103 REV.4010 <860801.1 860801.1606 LIB/PCSER.MAC::PCIF_CI? 1`9PCIF_06  &&?.DIV.ENTR PAS.INLINEERROR PAS.NONCDSPAS.SINGLEMOD &iiC33`5p4`4.FPC( PD(PE((,`4I p3(/`4Ip3(/`4I Gp3`4Ip7&7?@(+`3p3(/HhH`3p6`69i;:A88p5(N)iCQ?@??X9Pj,]PCIF_07 94200-1X103 REV.4010 <860801.1 860801.1606 LIB/PCSER.MAC::PCIF_CI? "aPCIF_07  .CBTPAS.NONCDSPCIF_15 AA`p`pph,6A`-6+((:(:h.6`/6A+(((`Hpӈ(9h06`/6+('(*(*`Jp(9h16A`/6+(4(7(7`Lp(9`Lp(h26A`-6+~~A@@(D(a(ah36`/6+(N(Q(Q`Ip(`h46`/6A+([(^(^`Lpӈ(``Lp(h56`-6A+(k((h66A`/6+(u(x(x`Hp(h76`/6+((~^_<<(`Mp(`Lp(h86`-6+(((h96`/6+(((`Mp(`LpӀ(p`(`PN(PO(PF((`Hpӈ(`Kp(p(`Lpp++`ӈp`PH(ƀ(pp`Gpר+ZZ+66`(p8`(!p8ppՀ(:;<=>?@ABCDEIO000407CL0102SC0510OP23Z@Rq??X9[j-]PCIF_08 94200-1X103 REV.4010 <860801.1 860801.1606 LIB/PCSER.MAC::PCIF_CI? `VPCIF_08  a.ENTR PAS.NONCDSPCIF_15 ))Ap`)U`)(p)`ZpV) fWAU( @7??X:j-]PCIF_09 94200-1X103 REV.4010 <860801.1 860801.1606 LIB/PCSER.MAC::PCIF_CI? ePCIF_09 h **(.ENTR ABREG EXECPAS.NONCDSPCIF_07 PCIF_08 PCIF_15 *2XDDpPAPQ``ppO`@O((8O8((!(!`(Ipe`pN`Q@pLApM8NMLA(:(A>AKJKJDD(I| A(R@P??X1yj.]PCIF_10 94200-1X103 REV.4010 <860801.1 860801.1606 LIB/PCSER.MAC::PCIF_CI? esPCIF_10  **(.ENTR ABREG EXECPAS.NONCDSPCIF_07 PCIF_08 PCIF_15 *EE!((rp-A-.pB`xp,`.p*qp+,wp+n/*o(($!)()(A'rsEDtAn(@??X33j/]PCIF_11 94200-1X103 REV.4010 <860801.1 860801.1606 LIB/PCSER.MAC::PCIF_CI? ePCIF_11 - ...DIV.ENTR ABREG EXECPAS.NONCDSPCIF_07 PCIF_08 PCIF_15 .DDAp`ppppp`p`p`@وp`(|`(|`A@(+`ppp`(o`p@@pA(C(Jss D99G~}A~}M`(Q(^p(X`Ҁ(]p(n`P(b(n`P(f(m`pp(m(n(-`@p` @p(s A( @F??X4f j0]PCIF_12 94200-1X103 REV.4010 <860801.1 860801.1606 LIB/PCSER.MAC::PCIF_CI? iPCIF_12 **(.ENTR ABREG EXECPAS.NONCDSPCIF_07 PCIF_08 PCIF_15 *n==Ap`p` ` pp`@((88((!(!` (pppp`p` p@ p`(`(`A2=FF@(F`ppp`(`p@@p\(^(ebAiAl`(tpp(`(x(p(p(`P(TT%%(`((`pp(((H`@p`@p(4(`@h@h@T3 A( @ҿ??X4tj0]PCIF_13 94200-1X103 REV.4010 <860801.1 860801.1606 LIB/PCSER.MAC::PCIF_CI? hPCIF_13  ^.ENTR PAS.NONCDSPCIF_12 g Ap  eoA( @OnQ??X5vj1]PCIF_14 94200-1X103 REV.4010 <860801.1 860801.1606 LIB/PCSER.MAC::PCIF_CI? hPCIF_14  ^.ENTR PAS.NONCDSPCIF_12 B&A`p  pA( @p//Xr@?PCIF_15 '94200-1X104 REV.4010 <860818.1931>'/ lPCIF_15  .ENTR WW1@@Wmmd66@p;`>p((!p`(!p:`@;hH<88:(`=(%(6p`(6p9`@<hH;889(,m TA<p@ @GAAX]ss#]PC_ERR_BUILDER94200-16209 REV.4010 <860818.1 860818.1925LIB/PCS0.MAC::PCIF_CI A@>]sBBXs%]PCIF_BUILD_ERROR94200-16209 REV.4010 <860818.1 860818.1925LIB/PCS0.MAC::PCIF_CI B}PCIF_BUILD_ERROR@@ }.DST.ENTR .LBT .MVW .SBTFMPCLOSEFMPOPEN FMPREAD PAS.NONCDSPCIF_CONV_INT_ASSTRDSC@b JJAAp AAJ` p` pph6@H` 88(!1J"ph6H ph6H P(<(kh6  ph6 H P(H(kh6J>>H phH6H Pڈ(T(kh6H phH6H Pڈ(`(kh6H phH6H Pڈ(n`(`(`pph6@HH h6p@H`H 88(u` pN@@`ph6`@HH h6p@H`H 88(` p`ph6@H h6p@H` 88ڄ(J``@ (pph6@ZZd++H h6pH` 88ڈ(P(h6ᄈH P(ဈ((` A(` ZII--A`hA ݈pp߈p(? "ROS (( ????? ???? LPI@b"CCXWj6']PC_CONV_INT_ASC 94200-16210 REV.4010 <860801.1 860801.1054 LIB/PCS1.MAC::PCIF_CI C@WBBXqj6']PCIF_CONV_INT_AS94200-16210 REV.4010 <860801.1 860801.1054LIB/PCS1.MAC::PCIF_CI B`YPCIF_CONV_INT_AS44 0.DDI.DIN.DLD.DNG.DST.ENTR .LBT .SBT PAS.DOUBLEMOD PAS.NONCDS4UIIpO`R(hR ASAS (_SpO(hR AS`ppUA`mpP 'SacxQhd6H@QHhX6pV@PDH`V SaS@PpP8U("`O(JhX6`o@ pI(NhX6`nH Y''arZAWWpR( Fh0000000123456789 -'@BBXs9]PCIF_ERROR_SHELL94200-16106 REV.4010 <860818.1 860818.1923LIB/PCS2.MAC::PCIF_CI B@%??XACs9]PCIF_ERROR94200-16106 REV.4010 <860818.1 860818.1923LIB/PCS2.MAC::PCIF_CI ?|PCIF_ERRORg.ENTR PAS.NONCDSPCIF_BUILD_ERROR++&m`( `BA@( `Bp"! +<<((Ap(PC/PCIF/RUNTIME/PCMSG.ERR <@Բ~~w CHECK_PROG_STAT YPCIF_01 \WPCIF_03 ]{PCIF_04 _=PCIF_05 a^PCIF_06 cPCIF_07 fPCIF_08 kPCIF_09 l.>GPCIF_10 n\>GPCIF_11 p6>GPCIF_12 sF>G~~~ PCIF_13 w7qPCIF_14 xOqPCIF_15 yiPCIF_16 P[fPCIF_17 [fPCIF_18 $6P[fPCIF_19 >$6P[fPCIF_BUILD_ERROR|W PCIF_CLOSEE\>G[fPCIF_CONV_INT_ASk~~~  PCIF_ERRORPCIF_EXT+^$6P[f PCIF_OPEN A5>G[fPCLIB QPC_ASSOCH2 PC_CALIBRATEIyPC_CALL 'd$6P[f PC_CANCEL f[f PC_CONNECTj PC_CONTINUE KINT_ASk~~~D  PC_CYL_STOP L*PC_DIRMC PC_DISASSOC NbPC_DISC [f PC_DIUNSOL@" PC_ENQUIRY -6 PC_ENUNSOL=A[f PC_FREEZE  PC_GETKEY 6b>G[fPC_HOLD O{T_ASk~~~@0 PC_IDENT#PC_LOCK D PC_MAPIDENT Q PC_MAPSTATR6 PC_PCSTAT kP[f PC_PRGM_DEL SY PC_PRGM_SEL TPC_READD ? PC_READD_EXT/<PC_READP U PC_READP_EXT21T_ASk~~~ w  PC_RELKEY 9o>G[f PC_RLNQCNTL V%PC_START\PC_STOP p PC_SYSTAT y[f PC_TAKECNTL W>PC_TRANS#-6P[f PC_UNLOCK VPC_WRITEB_EXT 5& PC_WRITED  mT_ASk~~~@PC_WRITED_EXT 0u PC_WRITEP PC_WRITEP_EXT 3jPC_STOP p PC_SYSTAT y  PC_TAKECNTL W>PC_TRANS#  PC_UNLOCK VPC_WRITEB_EXT 5& PC_WRITED  mT_ASk~/PCIF/RUNTIME/PCLBC.LIB:::5:162:128 644 0 0 121000 5303664536 36446 /PCIF_GEN/RUNTIME/PCLBC.LIB:::5:162:128 #'$ PCLBC LIB +i]+i^+i^PFST  AAX;q5]PCLIB_SHELL 94200-12003 REV.4010 <860815.1 860815.1600 LIB/PCLBC.MAC::PCIF_CIA@A;>>XVq6]PCLIB 94200-12003 REV.4010 <860815.1 860815.1600 LIB/PCLBC.MAC::PCIF_CI> :PCLIB j.EXIT0.SDSP PAS.CDS  1SPCLI@B "`H@( @2>>Xq8]PCFCC 94200-1X111 REV.4010 <860815.1 860815.1555 LIB/PCFCC.MAC::PCIF_CI>@hV??XܣUq8]PCIF_16 94200-1X111 REV.4010 <860815.1 860815.1555 LIB/PCFCC.MAC::PCIF_CI? oLPCIF_16  11.EXIT0.SDSP PAS.CDS PCIF_01 PCIF_09 PCIF_10 PCIF_11 PCIF_15 1zKASPC_S TSTO`(Kpp p` ppp `4p`3p `p (4 pP(K@(Kp`p0K @v`@H (@Z&??XݒBq8]PCIF_17 94200-1X111 REV.4010 <860815.1 860815.1555 LIB/PCFCC.MAC::PCIF_CI? m9PCIF_17  ++b.EXIT0.SDSP PAS.CDS PCIF_01 PCIF_10 PCIF_11 PCIF_15 +qq)B:SPC_R QWW P(8pp` ppp `2p`2p @(8p` p0 @t`@H (q@ c?#??X޺gq8]PCIF_18 94200-1X111 REV.4010 <860815.1 860815.1555 LIB/PCFCC.MAC::PCIF_CI? s^PCIF_18  EE .DLD.DST .EXIT0 .SDSP PAS.CDS PCIF_01 PCIF_04 PCIF_06 PCIF_09 PCIF_10 PCIF_11 PCIF_15 EKASPC_READ_DP( (] pp p p ` ppp@`7p`6p`p(Cp(]p33jlK(]P p`p` @ y`H@ (3@G ??Xq8]PCIF_19 94200-1X111 REV.4010 <860815.1 860815.1555 LIB/PCFCC.MAC::PCIF_CI? tPCIF_19 } EE .DLD.DST .EXIT0 .SDSP PAS.CDS PCIF_01 PCIF_04 PCIF_06 PCIF_09 PCIF_10 PCIF_11 PCIF_15 E~~]J@SPC_WRITE_DP ( ( pp p p@@ ` pP pp@`7p`6p`p(`p(M~33-J(M(_P pp`p (p3NNh-'(|P pp`pp (p`p`  y`H ( N@$@C>>Xŕq8 ]PC_READD94200-1X111 REV.4010 <860815.1 860815.1555LIB/PCFCC.MAC::PCIF_CI> PC_READD M.EXIT0.SDSP PAS.CDS PCIF_18 22?SPC_READDp  @ *`H@ (2@>>XŤq8 ]PC_READP94200-1X111 REV.4010 <860815.1 860815.1555LIB/PCFCC.MAC::PCIF_CI> PC_READP M.EXIT0.SDSP PAS.CDS PCIF_18 44OdSPC_R EADP`p  @ *`H@ (4@R@@XGq8 ]PC_WRITED 94200-1X111 REV.4010 <860815.1 860815.1555 LIB/PCFCC.MAC::PCIF_CI@|PC_WRITED M.EXIT0.SDSP PAS.CDS PCIF_19 66jSPC_WRITED `p    *`H (6@«@@XSq8 ]PC_WRITEP 94200-1X111 REV.4010 <860815.1 860815.1555 LIB/PCFCC.MAC::PCIF_CI@PC_WRITEP M.EXIT0.SDSP PAS.CDS PCIF_19 66lSPC_WRITEP `p    *`H (6@χ>>Xή"q8 ]PC_IDENT94200-1X111 REV.4010 <860815.1 860815.1555LIB/PCFCC.MAC::PCIF_CI> $PC_IDENT j.DST.EXIT0.SDSP PAS.CDS PCIF_18 99" SPC_I DENT`p  0 @+`H@ (9@F?d??Xq8!]PC_LOCK 94200-1X111 REV.4010 <860815.1 860815.1555 LIB/PCFCC.MAC::PCIF_CI? ,PC_LOCK  M.EXIT0.SDSP PAS.CDS PCIF_17 ..9SPC_L OCK `p   %`H(.@@@XEq8!]PC_UNLOCK 94200-1X111 REV.4010 <860815.1 860815.1555 LIB/PCFCC.MAC::PCIF_CI@zPC_UNLOCK M.EXIT0.SDSP PAS.CDS PCIF_17 //BSPC_UNLOCK `p  @%`H@(/@P??Xq8"]PC_CONNECT94200-1X111 REV.4010 <860815.1 860815.1555LIB/PCFCC.MAC::PCIF_CI?sPC_CONNECTM.EXIT0.SDSP PAS.CDS PCIF_16 22/ESPC_CONNECT`p   @'`@H (2@Φ??XDq8"]PC_DISC 94200-1X111 REV.4010 <860815.1 860815.1555 LIB/PCFCC.MAC::PCIF_CI? ;PC_DISC  ++b.EXIT0.SDSP PAS.CDS PCIF_01 PCIF_10 PCIF_11 PCIF_15 +vvD<SPC_D ISC P(((:`ppp` ppp `2p`2p @(:p` p0 @t`H@ (v@Ӱp@@XI4Vq8#]PC_PCSTAT 94200-1X111 REV.4010 <860815.1 860815.1555 LIB/PCFCC.MAC::PCIF_CI@}MPC_PCSTAT 11.EXIT0.SDSP PAS.CDS PCIF_01 PCIF_09 PCIF_10 PCIF_11 PCIF_15 1VJ@SPC_PCSTAT `(L`pp p` ppp `4p`3p `p(5pP(L@(Lp` p0 MJ @v`H@ (@@@X_*Eq8$ ]PC_SYSTAT 94200-1X111 REV.4010 <860815.1 860815.1555 LIB/PCFCC.MAC::PCIF_CI@<PC_SYSTAT ++b.EXIT0.SDSP PAS.CDS PCIF_01 PCIF_10 PCIF_11 PCIF_15 +xx{WE=SPC_SYSTAT P(;`pp` ppp  `2p `1p ` p@(;p` p0 t`H (x@[@@X. Iq8$#]PC_CANCEL 94200-1X111 REV.4010 <860815.1 860815.1555 LIB/PCFCC.MAC::PCIF_CI@b@PC_CANCEL ++b.EXIT0.SDSP PAS.CDS PCIF_01 PCIF_10 PCIF_11 PCIF_15 +~~N3H@SPC_CANCEL P(?`ppp p` ppp `3p `2p ` p@(?p` p0 u`H ~ H( @v6>>Xq8%%]PC_START94200-1X111 REV.4010 <860815.1 860815.1555LIB/PCFCC.MAC::PCIF_CI> 8PC_START M.EXIT0.SDSP PAS.CDS PCIF_16 11SPC_S TART`p    '`H (1@T??Xq8%']PC_STOP 94200-1X111 REV.4010 <860815.1 860815.1555 LIB/PCFCC.MAC::PCIF_CI? 6PC_STOP  M.EXIT0.SDSP PAS.CDS PCIF_16 11]SPC_S TOP `p    '`H (1@E1@@X: q8&)]PC_FREEZE 94200-1X111 REV.4010 <860815.1 860815.1555 LIB/PCFCC.MAC::PCIF_CI@nPC_FREEZE M.EXIT0.SDSP PAS.CDS PCIF_16 22+SPC_FREEZE `p   @'`@H (2@P??X2q8&2]PC_ENQUIRY94200-1X111 REV.4010 <860815.1 860815.1555LIB/PCFCC.MAC::PCIF_CI?PC_ENQUIRYY OO ! .EXIT0.LDX .MB00 .MW20 .SDSP CHECK_PROG_STAT PAS.CDS PCIF_01 PCIF_05 PCIF_06 PCIF_13 PCIF_14 PCIF_15 OB<SPC_ENQUIRY(`@@6`@6AK 0(Q p`p`/pp @&``>p`=p`pfp`@'pg`g@PQQB%#(D(F88f(;(Q`(Q`(Y (` p`>p`=p`p`(sQgKCp (~` (`( (` `!`" `$(P p`pp (`(`( ` @H `h ( ZP .PCIF @Mk>>X݌q8(8]PC_TRANS94200-1X111 REV.4010 <860815.1 860815.1555LIB/PCFCC.MAC::PCIF_CI> 2PC_TRANSE == .EXIT0 .SDSP PAS.CDS PCIF_01 PCIF_05 PCIF_06 PCIF_09 PCIF_10 PCIF_11 PCIF_15 =?9SPC_T RANS(p (p(2 P(' P@(' (2P(0P@(0(2`(`pp p pp@@?& p` p0 p`0A@`(Y0 p(^0pp  @~~"eL@`8p`7p`p(p`(((0 pp`p` (P(0 pp`pP ~00O(0p`p@ @ z`@H (0@[9??Xq8)<]PC_CALL 94200-1X111 REV.4010 <860815.1 860815.1555 LIB/PCFCC.MAC::PCIF_CI? PC_CALL @ OO EE.DLD.DST .EXIT0 .SDSP PAS.BOUNDINTEGERPAS.CDS PCIF_01 PCIF_04 PCIF_06 PCIF_09 PCIF_10 PCIF_11 PCIF_15 O/H@SPC_C ALL (  (((($ (`@ pp p@ p @` p A@ (DP p(FppKKyH($@`7p`6p`p(p A@ ((p(p(K5pMAP pp`p (p A@ ((P pp`pp (ƀ A@ (P p`p(p`%%p`  y`H (% ? @٩>>Xނq8*C]PCIF_EXT94200-1X111 REV.4010 <860815.1 860815.1555LIB/PCFCC.MAC::PCIF_CI> 3PCIF_EXTU EE .DLD.DST .EXIT0 .SDSP PAS.CDS PCIF_01 PCIF_04 PCIF_06 PCIF_09 PCIF_10 PCIF_11 PCIF_15 E@<SPC_EXTENDED (2 P (P (!P ($P ('P (*P(-(0(2(2(2(2(2(2(: ( pPP¨@+%p p p  ` pP pp@`7p`6p`p(pPdkOA(r(r(P pp`p (p(P pp`pp (P p`p` @ y`H@ ( @D#b@@X},q8+E]PC_READD_EXT94200-1X111 REV.4010 <860815.1 860815.1555LIB/PCFCC.MAC::PCIF_CI@N#PC_READD_EXT!!.DLD.DST.EXIT0.SDSP PAS.CDS PCIF_EXT!LL[,*SPC_READD_EXT ` p pp p @  @/`@H ( L@6BBX-q8+G]PC_WRITED_EXT 94200-1X111 REV.4010 <860815.1 860815.1555 LIB/PCFCC.MAC::PCIF_CIB$PC_WRITED_EXT !!.DLD.DST.EXIT0.SDSP PAS.CDS PCIF_EXT!MM-+SPC_WRITED_EXT ` p pp p@@@   /`H ( M@eS@@X},q8,I]PC_READP_EXT94200-1X111 REV.4010 <860815.1 860815.1555LIB/PCFCC.MAC::PCIF_CI@Z#PC_READP_EXT!!.DLD.DST.EXIT0.SDSP PAS.CDS PCIF_EXT!LLi,*SPC_READP_EXT ` p pp p @  @/`@H ( L@a!BBX-q8,K]PC_WRITEP_EXT 94200-1X111 REV.4010 <860815.1 860815.1555 LIB/PCFCC.MAC::PCIF_CIB"$PC_WRITEP_EXT !!.DLD.DST.EXIT0.SDSP PAS.CDS PCIF_EXT!MM-+SPC_WRITEP_EXT ` p pp p@@@   /`H ( M@ZBBX-q8-M]PC_WRITEB_EXT 94200-1X111 REV.4010 <860815.1 860815.1555 LIB/PCFCC.MAC::PCIF_CIB$PC_WRITEB_EXT !!.DLD.DST.EXIT0.SDSP PAS.CDS PCIF_EXT!MM-+SPC_WRITEB_EXT ` p pp p@@@   /`H ( M@_^~@@XGq8-V]PC_GETKEY 94200-1X111 REV.4010 <860815.1 860815.1555 LIB/PCFCC.MAC::PCIF_CI@{PC_GETKEY r@@ 4( .EXIT0 .SDSP ABREG CLRQPAS.CDS PCIF_01 PCIF_07 PCIF_08 PCIF_10 PCIF_11 PCIF_15 @L>SPC_GETKEY (`@pP(($  @ 0({`pp` ppp``3p`3p (Up` 00+Lp p ({p``1A@(y0hh!g8.`1p1`@p[`[@1`p`({`'(`@pP((  @ 0@ u`@H (h@m)@@XGq8.]]PC_RELKEY 94200-1X111 REV.4010 <860815.1 860815.1555 LIB/PCFCC.MAC::PCIF_CI@{PC_RELKEY L@((@ 4( .EXIT0 .SDSP ABREG CLRQPAS.CDS PCIF_01 PCIF_07 PCIF_08 PCIF_10 PCIF_11 PCIF_15 @J@SPC_RELKEY (*`pp` ppp``6p`6p (9p` p p (p`pp``4>>MJA@(g`(g`@p^`^@(](cp`p`p>~~f@8(I(`@pP(s(}  @  0(`@p^`^@ `p`A@4(`@p^`^@hHx_h_p``H``@~@@i!p^`^h @ `p(@4p4`p` x`H (@@??X(q8/d]PC_ENUNSOL94200-1X111 REV.4010 <860815.1 860815.1555LIB/PCFCC.MAC::PCIF_CI?~oPC_ENUNSOLCC L.EXIT0.LDX .MB00 .MW20 .SDSP CHECK_PROG_STAT PAS.CDS PCIF_01 PCIF_10 PCIF_11 PCIF_15 CGC=SPC_ENUNSOLp(` @@6` @w6AK 0(Hp @ ``6p`5p`p^p ` @p_`_@ (;(=8 8^(2(HLLC#!(H`(n`ppp` pp`p`(np`pL++ fP @{`H@ `h (+ P}w }PCIF @p??X#bq80f]PC_DIUNSOL94200-1X111 REV.4010 <860815.1 860815.1555LIB/PCFCC.MAC::PCIF_CI?yPC_DIUNSOLM.EXIT0.SDSP PAS.CDS PCIF_17 //A'SPC_DIUNSOL`p  @%`H@(/@%@@XF/q81q]PCIF_OPEN 94200-1X111 REV.4010 <860815.1 860815.1555 LIB/PCFCC.MAC::PCIF_CI@yPCIF_OPEN $``&.EXIT0.LDX.MB00 .MW20 .SDSP ABREG CLRQEXECIDGET PAS.CDS PCIF_07 PCIF_08 PCIF_10 PCIF_11 PCIF_15 PNAME RMPAR USNUM `K?SPCIF_OPEN p.`.(`/(`(5p`@p  ('(1`   (`@@6`@60p ` (M`22DK(g`p`PCpp(Y(c `  2gI;(s`(s`(`p`p.`p/`p.P"@p%` pp  "(` p( (p.`(pF??,`)pE`*pA`p.(㊊P(`@p  /((` ?>>ގ#   p.p/`p@.`H@`h(> P mPCOPN @??X%zq82w]PCIF_CLOSE94200-1X111 REV.4010 <860815.1 860815.1555LIB/PCFCC.MAC::PCIF_CI?zqPCIF_CLOSE@@ 4( .EXIT0 .SDSP ABREG CLRQPAS.CDS PCIF_01 PCIF_07 PCIF_08 PCIF_10 PCIF_11 PCIF_15 @~~%M?SPCIF_CLOSE(p`p` ppp``3p`3p (7p` p p (p`@pP(C(M  @ ~77M0pp`1(gp[p`@p\`\@ 88[(]7((gp1`p` u`H ((@|<>>X/1q83{]PC_ASSOC94200-1X111 REV.4010 <860815.1 860815.1555LIB/PCFCC.MAC::PCIF_CI> 4(PC_ASSOC !!.DLD.DST.EXIT0.SDSP PAS.CDS PCIF_EXT![[n1/SPC_A SSOC`p p` p`/p p@@@   0`H ([@T0@@Xmq83}]PC_CALIBRATE94200-1X111 REV.4010 <860815.1 860815.1555LIB/PCFCC.MAC::PCIF_CI@2PC_CALIBRATEM.EXIT0.SDSP PAS.CDS PCIF_16 33SPC_CALIBRATE ` p   '`H ( 3@6AAXq84]PC_CONTINUE 94200-1X111 REV.4010 <860815.1 860815.1555 LIB/PCFCC.MAC::PCIF_CIA*PC_CONTINUE M.EXIT0.SDSP PAS.CDS PCIF_16 33$SPC_CONTINUE `!p   '`H ( 3@JiAAXq84]PC_CYL_STOP 94200-1X111 REV.4010 <860815.1 860815.1555 LIB/PCFCC.MAC::PCIF_CIA,PC_CYL_STOP M.EXIT0.SDSP PAS.CDS PCIF_16 33JSPC_CYL_STOP `"p   '`H ( 3@۽==X!q85]PC_DIR94200-1X111 REV.4010 <860815.1 860815.1555LIB/PCFCC.MAC::PCIF_CI= mPC_DIR j.DST.EXIT0.SDSP PAS.CDS PCIF_18 88w!SPC_DIR`#p@ 0  +`H (8@ڸAAX~q86]PC_DISASSOC 94200-1X111 REV.4010 <860815.1 860815.1555 LIB/PCFCC.MAC::PCIF_CIA4PC_DISASSOC M.EXIT0.SDSP PAS.CDS PCIF_16 33SPC_DISASSOC `$p   '`H ( 3@ '??X%q86]PC_HOLD 94200-1X111 REV.4010 <860815.1 860815.1555 LIB/PCFCC.MAC::PCIF_CI? %PC_HOLD  M.EXIT0.SDSP PAS.CDS PCIF_16 11cSPC_H OLD `%p    '`H (1@ߠ`AAX$q87]PC_MAPIDENT 94200-1X111 REV.4010 <860815.1 860815.1555 LIB/PCFCC.MAC::PCIF_CIA,PC_MAPIDENT j.DST.EXIT0.SDSP PAS.CDS PCIF_18 << $"SPC_MAPIDENT `&p 0 @+`@H ( <@ذ??X#q87]PC_MAPSTAT94200-1X111 REV.4010 <860815.1 860815.1555LIB/PCFCC.MAC::PCIF_CI?h PC_MAPSTATj.DST.EXIT0.SDSP PAS.CDS PCIF_18 ;;#!SPC_MAPSTAT`'p @0   +`H (;@继AAX$q88]PC_PRGM_DEL 94200-1X111 REV.4010 <860815.1 860815.1555 LIB/PCFCC.MAC::PCIF_CIA8PC_PRGM_DEL k.DST.EXIT0.SDSP PAS.CDS PCIF_19 <<$"SPC_PRGM_DEL `(p 0 @+`@H ( <@AAX$q88]PC_PRGM_SEL 94200-1X111 REV.4010 <860815.1 860815.1555 LIB/PCFCC.MAC::PCIF_CIA8PC_PRGM_SEL k.DST.EXIT0.SDSP PAS.CDS PCIF_19 <<($"SPC_PRGM_SEL `)p 0 @+`@H ( <@AAXq89]PC_RLNQCNTL 94200-1X111 REV.4010 <860815.1 860815.1555 LIB/PCFCC.MAC::PCIF_CIA2PC_RLNQCNTL M.EXIT0.SDSP PAS.CDS PCIF_16 33%SPC_RLNQCNTL `*p   '`H ( 3@N,lAAX~q89]PC_TAKECNTL 94200-1X111 REV.4010 <860815.1 860815.1555 LIB/PCFCC.MAC::PCIF_CIA1PC_TAKECNTL M.EXIT0.SDSP PAS.CDS PCIF_16 33SPC_TAKECNTL `+p   '`H ( 3@ ,'>>Xaj]PCIFN 94200-1X112 REV.4010 <860801.1 860801.1606 LIB/PCSEC.MAC::PCIF_CI>@BWaCCXj ]CHECK_PROG_STAT 94200-1X112 REV.4010 <860801.1 860801.1606 LIB/PCSEC.MAC::PCIF_CIC]CHECK_PROG_STAT r44 n.EXIT0.LBT.LDX.MB00 .MW20 .SBT .SDSP MESSS PAS.CDS PCIF_15 4~~?=SCHECK_PROG_STAT `@@6`A@6J`psp h6H@ HhH6pt` @@H`tH 8 8s(`Hp0p `@@6HhH 6 `~}}a??== @@6HHhH 6  p (`A@ (`@ps`s@ @6Hpt`@ H@6Pt(i(~`@pt`t@ @H6 pu`@ @6 Pu(|(~}\\|0,`` p (MP((p @ 3p3p4`p @ 3@`@H `h`hAH( \H$44H$$PS, 4 tABOF @Yx??X{#j]PCIF_01 94200-1X112 REV.4010 <860801.1 860801.1606 LIB/PCSEC.MAC::PCIF_CI? k((PCIF_01  M.EXIT0.SDSP PAS.CDS PCIF_15 AA#!SR2D2_OPEN p   ` (` (` d`H(A@t4??X/j]PCIF_03 94200-1X112 REV.4010 <860801.1 860801.1606 LIB/PCSEC.MAC::PCIF_CI? .i&PCIF_03 M.EXIT0.SDSP PAS.CDS PCIF_15 TT/+SMESS_NB p  `A@(p`p`p `p  ` d`H(T@;-Y??XXj]PCIF_04 94200-1X112 REV.4010 <860801.1 860801.1606 LIB/PCSEC.MAC::PCIF_CI? mOPCIF_04  '' .DIV.EXIT0.SDSP PAS.CDS PAS.INLINEERROR PCIF_15 'r@<SCHECK_LENGTHp 0 p ` .P( P((P(+P(2(5` Ap (:` p (:` p (:`(:h`(N` ?p44@` A@(L` ?(N@`g`H@( 4  @iS??XXj ]PCIF_05 94200-1X112 REV.4010 <860801.1 860801.1606 LIB/PCSEC.MAC::PCIF_CI? mOPCIF_05  '' .DIV.EXIT0.SDSP PAS.CDS PAS.INLINEERROR PCIF_15 '@<SCHECK_MAXLGTp 0 p ` .P( P((P(+P(2(5` Ap (:` p (:` p (:`(:h'`(N` ?p44@` A@(L` ?(N@`g`H@( 4  @gS??XGj']PCIF_06 94200-1X112 REV.4010 <860801.1 860801.1606 LIB/PCSEC.MAC::PCIF_CI? 1i<PCIF_06  **.DIV.EXIT0.SDSP PAS.CDS PAS.INLINEERROR PAS.SINGLEMOD *]>:SLBYTE ` p ` .P(P(P((3` ? p (8` ?p (8` ? p ` ?p ` (2` p (8hQP` p `  '`JB> Hp ( "N @ +E??X3j@]PCIF_07 94200-1X112 REV.4010 <860801.1 860801.1606 LIB/PCSEC.MAC::PCIF_CI? jPCIF_07  ,,g.EXIT0.LDX.MW20 .SDSP PAS.CDS PAS.COMPAREBYTESPCIF_15 ,@:SREPORT`p `p p `@i@6`@ 6p ((T(T`@j@6`@ 6Ap (*(-(-`p (S`@k@6`@ 6Ap (<(?(?`p (S`fflD@2,@l@6`A@ 6p (N(Q(Q`p (S`p (`@m@6`@ 6p (c((`@n@6`A@ 6p (r(u(ufjr=7`p (`@o@6`A@ 6p (((`p (`p (`@p@6`@ 6p (((`@q@6`A@ 6p (((`p (`@r@6aas/)`@ 6p (((`p (`p (`@s@6`A@ 6p (((`@t@6`@ 6p (((azU95`p (`p (p ` (` P(P(P((`p (`p (p (`p p 0 ` p$` P( ( pp`p 0@ v`$$H`hAHpp($ P 'i ' IO000407CL0102SC0510OP23@ذ??X&jB]PCIF_08 94200-1X112 REV.4010 <860801.1 860801.1606 LIB/PCSEC.MAC::PCIF_CI? jPCIF_08  M.EXIT0.SDSP PAS.CDS PCIF_15 DD&"SANALYSE p  ``(p`p  @d`@H(D@ª??XcjH]PCIF_09 94200-1X112 REV.4010 <860801.1 860801.1606 LIB/PCSEC.MAC::PCIF_CI? oZPCIF_09  ..l.EXIT0.SDSP ABREG EXECPAS.CDS PCIF_07 PCIF_08 PCIF_15 .s@<SSEND_NW  p`` `pUp` @pV`V@ ((! 88U( (, (,` (Yp)`p`@p pP<<0@# (F(P@ 0  (Y  o`H (<  @6??X>jJ]PCIF_10 94200-1X112 REV.4010 <860801.1 860801.1606 LIB/PCSEC.MAC::PCIF_CI? o5PCIF_10  ..l.EXIT0.SDSP ABREG EXECPAS.CDS PCIF_07 PCIF_08 PCIF_15 .ccPr>4SSEND_WW  p`p'`p`p pP(&(0@ 0 @  m`H@ (c  @n'??X3j N]PCIF_11 94200-1X112 REV.4010 <860801.1 860801.1606 LIB/PCSEC.MAC::PCIF_CI? pPCIF_11 } 22 $.DIV.EXIT0 .SDSP ABREG EXECPAS.CDS PCIF_07 PCIF_08 PCIF_15 2@D@SWAIT_REPLYpp`2p pppp`p`p`@ p`(`(`A@(4`ppp`(}`p@@p]`;;zD"](M(WP @ 0 ` (_(lp (f` ;aabf.. (kp(|`P(p(|`P(t({` pp({(|(6`@p` @p("@w`@H  (a  @ ??Xhj!U]PCIF_12 94200-1X112 REV.4010 <860801.1 860801.1606 LIB/PCSEC.MAC::PCIF_CI? sPCIF_12 N ..l.EXIT0.SDSP ABREG EXECPAS.CDS PCIF_07 PCIF_08 PCIF_15 .~~<:SGET_WWNWp`"`7p` `pbp`@#pc`c@((! 88b( (,(,` ( pppp`p`p!~XX,<.,@ p `(`(`A@(Q`ppp`(`p@@pbP! b (j(tXjC; @0@   `(pp(` ((p (p(`P((` ((` pp(((S`@p`@p(? (//` @h@h@ |`H(/@L j??Xj!V]PCIF_13 94200-1X112 REV.4010 <860801.1 860801.1606 LIB/PCSEC.MAC::PCIF_CI? qPCIF_13  M.EXIT0.SDSP PAS.CDS PCIF_12 22T3SGET_WWp  @ +`H@(2@??Xj"X]PCIF_14 94200-1X112 REV.4010 <860801.1 860801.1606 LIB/PCSEC.MAC::PCIF_CI? qPCIF_14  M.EXIT0.SDSP PAS.CDS PCIF_12 44&SGET_NW`p  @ +`H@(4@i//X\@?PCIF_15 '94200-1X113 REV.4010 <860818.1931>'/ vPCIF_15  o}.EXIT0.CCQB h6SPCIF_15 WW1@@Wxx899 `H x @p `@p(((p `((p ` @ h H8 8 (`(,(=p `(=p` @h H 8 8(3@x@,AAXɊs]PC_ERR_BUILDER94200-16107 REV.4010 <860818.1 860818.1924LIB/PCS0C.MAC::PCIF_CIA@ɊBBX> Ns]PCIF_BUILD_ERROR94200-16107 REV.4010 <860818.1 860818.1924LIB/PCS0C.MAC::PCIF_CIB}'PCIF_BUILD_ERRORNN5.DST .EXIT0 .LBT.LDX .MW00 .MW20 .SBT.SDSP FMPCLOSEFMPOPEN FMPREAD PAS.CDS PCIF_CONV_INT_ASSTRDSCNݏNDS PCIF_BUILD_ERROR_MSG @p@@pe`Pp`pp` @=@6@HH`  88(2Pe=p` @@6H p` @=|N<<H@6 P(T(` @@6  p` @=@H6  P(d(` @@6H p` @=@ H6H P(t(` @@6H p` @=@ H6H P((` @@6H  p` @=@ H6H P(`(. Y88`(`pp` @@6H@H h H=6p@H` 88(`p`p` @@6` @H h H=6p@H`H 88(`p`ppp86` @@6@H h H=6((p@H`H 88(ΰ`e` `@P( pp  ` @=@6@H h 6p H` p >>88( P(h 6 H P (( ( `LA (#`L  @ `@H `h `h AH `Ah HH pp .Dp( @9 ?P FPI FROS RI#/I????? ????@VCCX*gj6]PC_CONV_INT_ASC 94200-16108 REV.4010 <860801.1 860801.1053 LIB/PCS1C.MAC::PCIF_CIC@ *gBBXxj6]PCIF_CONV_INT_AS94200-16108 REV.4010 <860801.1 860801.1053LIB/PCS1C.MAC::PCIF_CIB``PCIF_CONV_INT_ASAA ?.DDI.DIN.DLD.DNG.DST.EXIT0 .LBT.LDX .MW20 .SBT .SDSP PAS.CDS PAS.DOUBLEMOD AMIS PCIF_CONV_INT_ASC p ` ($h  @@ (!p (*h  @`p`p Hx `@,@6@ H h6p@ H` @P @IIM##@ p 8(.`  ([h6`-H (_h6@`  2`H@ `h p ( Ij  PFp)|p~p0000000123456789@6BBX s"]PCIF_ERROR_SHELL94200-16114 REV.4010 <860818.1 860818.1923LIB/PCS2C.MAC::PCIF_CIB@H ??XUs#]PCIF_ERROR94200-16114 REV.4010 <860818.1 860818.1923LIB/PCS2C.MAC::PCIF_CI?}PCIF_ERROR&&| .EXIT0.LDX.MW20 .SDSP PAS.CDS PCIF_BUILD_ERROR&\\M42SPCIF_ERROR` (`A@ (`p 0%E @G`@H `h`hAHp (\ 4E5% 2=4PC Y5 //5 /PCIF/RUNTIME/PCMSG.ERR /@*VIkkk~~x CHECK_PROG_STAT biPCIF_01 g7PCIF_03 hkPCIF_04 j2PCIF_05 lsPCIF_06 o4PCIF_07 q_PCIF_08 wPCIF_09 y6>GPCIF_10 |>GPCIF_11 }}>GPCIF_12 3>G~~~ PCIF_13 FqPCIF_14 kqPCIF_15 PCIF_16 "P[fPCIF_17 H[fPCIF_18 >$6P[fPCIF_19  $6P[fPCIF_BUILD_ERROR PCIF_CLOSEM/>G[fPCIF_CONV_INT_ASq~~~  PCIF_ERRORWPCIF_EXT/x$6P[f PCIF_OPEN H!>G[fPCLIB QPC_ASSOCP+ PC_CALIBRATERPC_CALL +M$6P[f PC_CANCEL [f PC_CONNECTG PC_CONTINUE S)INT_ASq~~~  PC_CYL_STOP TSPC_DIRU} PC_DISASSOC W)PC_DISC m[f PC_DIUNSOLF~ PC_ENQUIRY#-6 PC_ENUNSOLCJ[f PC_FREEZE !h PC_GETKEY ;v>G[fPC_HOLD XST_ASq~~~@v PC_IDENTSPC_LOCK  PC_MAPIDENT Yw PC_MAPSTAT[. PC_PCSTAT hP[f PC_PRGM_DEL \a PC_PRGM_SEL ^PC_READD 3 PC_READD_EXT3xPC_READP W PC_READP_EXT7T_ASq~~~  PC_RELKEY ?->G[f PC_RLNQCNTL _OPC_START!PC_STOP  D PC_SYSTAT [f PC_TAKECNTL `yPC_TRANS'D-6P[f PC_UNLOCK #PC_WRITEB_EXT :( PC_WRITED }T_ASq~~~@PC_WRITED_EXT 5B PC_WRITEP (PC_WRITEP_EXT 8ZPC_STOP  D PC_SYSTAT   PC_TAKECNTL `yPC_TRANS'D  PC_UNLOCK #PC_WRITEB_EXT :( PC_WRITED }T_ASq~A"* ERROR MESSAGE FILE FOR PRECONFIGURATOR & CONFIGURATION EDITOR "* PRGMR : OK* "* modified Added configuration listing message "program" to support"* 3-18-86 robot class 2 descriptor file command io=prog.* by vra* !* Modified Changed all messages with FMGR filenames and replaced !#* 8/12/86 with the corresponding CI filename (i.e. with extensions).#'* by mja Also added C0086 and modified C0074 for confirmation for replacing'%* (rev.4010) PCIF and PCCON run files. Added FM204-FM207, and FM209 for %* FMP errors on directories.* PL001 PCIF/1000 PreconfigurationPL002 Ver. 4010 PL003 Number of descriptors: PL004 Descriptor name: PL005 Handler name: PL006 Partial configurator name:  PL007 Download file: CO001 Required field missing - Enter value in field. CO002 Do you really want to abort? if yes, depress abort again. CO003 Non descriptor file. CO004 X required. CO005 Conflicting answers. CO007 Non compatible handlers.CO009 Already existing file. CO010 Invalid LU number. CO011 No task selected. CO013 Undefined soft key. CO014 Invalid configuration file name.CO019 Non existing highway number.CO022 PCs still defined with this highway.CO025 Non existing PC identifier. CO026 Invalid priority number.CO027 Time-out out of range.CO028 Invalid PC station number.CO029 Already allocated PC station number.CO030 Non compatible highway.  CO031 Out of range data. CO034 Corrupted descriptor. CO035 No associated handler (or FMP error on this file).CO036 Fmp error number -xxx.#CO037 No associated partial configurator (or FMP error on this file). #CO038 Already entered descriptor file namr. CO039 Configuration editor linking in process...CO040 PCIF run-time monitor linking in process...  CO041 Full highway list. CO042 Full PC list. CO043 Invalid port number. %CO044 Already allocated LU. For confirmation, depress the same key again. %&CO045 Invalid LU numbers: for this highway type, the LUs must be different. &CO046 Invalid time-out unit: 1 or 2 must be entered.%CO047 Entered capability does not match with the features of this PC type.%%CO048 Non validated configuration. For confirmation, depress the same key.%%CO049 Do you really want to replace the configuration file? yes: same key.%CO050 Creating configurationCO051 Modifying configuration CO052 CreatingCO053 Modifying &CO054 Do you really want to replace the list file ? (yes: depress same key) &CO056 Undefined listing file. $CO057 Can the file PCLCO.LOD be replaced ? (if yes, depress ENTER again)$%CO058 Can the file PCCTB.MAC be replaced ? (if yes, depress ENTER again)%&CO059 Can the file PCLRT.LOD be replaced ? (if yes, depress ENTER again)&'CO060 Can the file PCRTB.MAC be replaced ? (if yes, depress ENTER again)'#CO061 No associated download file (or FMP error on the download file).#CO062 No entered descriptor file name. CO063 Already defined PC on this highway (point-to-point link). CO064 Only one LU is required for this highway type.CO065 Data entered does not match field type. Reenter.CO066 Invalid LSA (the LSAs mus be entered in growing order). CO067 MACRO scheduled, and executing...  CO068 Listing is done. Please continue. CO069 Unable to access file PCPGE.DAT CO070 Unable to schedule MACRO for source file PCCTB.MACCO071 Unable to schedule MACRO for source file PCRTB.MAC$CO072 Unable to schedule LINK with command file /PCIF/PCIFGEN/PCLCO.LOD $$CO073 Unable to schedule LINK with command file /PCIF/PCIFGEN/PCLRT.LOD $%CO074 Replace the file /PCIF/RUNTIME/PCIF.RUN ? (yes: depress ENTER again)%CO075 Not confirmed answer. Please continue.CO076 Writing on list file. 'CO077 Can the file PCCTB.REL be replaced ? (yes: depress ENTER again) ''CO078 Can the file PCRTB.REL be replaced ? (yes: depress ENTER again) 'CO079 Writing on configuration file.CO080 No available types. Abort PCCON. Check preconfiguration.CO081 Unable to schedule MACRO for source file &PCRTC.&CO082 Can the file PCRTC.MAC be replaced ? (yes: depress ENTER again) &&CO083 Can the file PCRTC.REL be replaced ? (yes: depress ENTER again) &CO084 Unable to access file PCPGF.DAT #CO085 Already allocated PROGRAM. Duplicate program names not allowed.#&CO086 Replace the file /PCIF/RUNTIME/PCCON.RUN ? (yes: depress ENTER again) & DC001 Non descriptor file. DC002 Corrupted descriptor (unable to read next record) DC003 Corrupted descriptor (invalid description command)DC004 Corrupted descriptor (file header not in first line)DC005 Corrupted descriptor (duplicated command) %DC006 Corrupted descriptor (unable to convert ascii string in an integer) %DC007 Corrupted descriptor (invalid handler type declaration) DC008 Corrupted descriptor (out of range number of types) DC009 ((Corrupted descriptor (undefined type) !DC010 Corrupted descriptor (out of range number of comment lines) !DC011 Corrupted descriptor (invalid file name)DC012 Corrupted descriptor (invalid CAPABILITY command) DC013 Corrupted descriptor (invalid IO command) &DC014 Corrupted descriptor (out of range number of supported highways types)&DC015 Corrupted descriptor (no defined supported types) DC016 Corrupted descriptor (no defined compatible highway)DC017 Corrupted descriptor (undefined handler type) DC018 Corrupted descriptor (undefined brand)DC019 Corrupted descriptor (undefined handler)DC020 Corrupted descriptor (undefined handler entry)DC021 Corrupted descriptor (undefined partial configurator) !DC022 Corrupted descriptor (undefined partial configurator entry) !DC023 Corrupted descriptor (download file in a PC descriptor) DC036 Fmp error number -xxx on descriptor fileLL000 Page LL001 Number of PCs: LL002 Number of highways: LL003 Maximum request length:LL004 Maximum queue length:LL005 Number of access keys:  LL006 Security code: LL007 Validated configurationLL008 Non validated configuration:  LL009 Highway number: LL010 PC number: LL011 Type: LL012 Undefined type LL013 PCs on this highway: LL014 screen 5 validation: LL015 screen 6 validation: LL016 screen 9 validation: LL017 screen 10 validation:LL018 LU 1:LL019 LU 2: LL020 priority: LL021 port number: LL022 connected highway:  LL023 station number: LL024 time-out: LL025 capabilities: LL026 none  LL027 - write data LL028 - write program LL029 - transparent functionsLL030 - unsolicited interrupts LL031 - start and stop PC memory LL032 - undefined general data LL033 - highway without PC LL034 - highway not completely defined LL035 - PC not completely definedLL036 PCIF/1000 Configuration LL037 Ver. 4010 Config file: LL038 yes LL039 no LL040 undefined LL041 mnLL042 s LL043 programFM001 Disc error FM002 Duplicate file name FM006 File not found FM007 Bad file security codeFM008 File open or lock rejected FM013 Disc locked FM014 Directory full FM015 Illegal name FM032 Cartridge not found FM033 Not enough room on disc cartridge  FM036 Lock error on device FM103 Disc directory corrupt FM104 Extent not found FM204 File read protected FM205 File write protected FM206 Directory read protectedFM207 Directory write protected  FM209 No such directory FO001 (Forms error) Non-supported operating systemFO002 (Forms error) Terminal already activatedFO003 (Forms error) Unable to read localization fileFO004 (Forms error) Invalid LUFO005 (Forms error) LU not availableFO006 (Forms error) Driver type not supported FO007 (Forms error) Terminal type not supported FO008 (Forms error) Terminal not yet activatedFO009 (Forms error) Form already activatedFO010 (Forms error) Specified file is not a form file FO011 (Forms error) Inernal data buffer overflowFO012 (Forms error) Field count overflowFO013 (Forms error) Form not yet activatedFO014 (Forms error) Format error in forms fileFO015 (Forms error) Named field does not existFO016 (Forms error) Wrong field data type for callFO017 (Forms error) Form not yet displayedFO018 (Forms error) Invalid fields selection flag FO019 (Forms error) Invalid read selection valueFO020 (Forms error) Invalid edit actions values FO021 (Forms error) Warning: string truncated FO022 (Forms error) Field type is not unprotected FO023 (Forms error) Invalid string length FO024 (Forms error) Invalid action code FO025 (Forms error) Read error or terminal malfunctionFO026 (Forms error) Conversion overflow FO027 (Forms error) Invalid initial value FO028 (Forms error) Warning: sfk attributes too longFO029 (Forms error) Non displayable value suppliedFO030 (Forms error) Missing or invalid block data FO031 (Forms error) Help file not a type 4 file FO100 (Forms error) Not enough class numbersFO101 (Forms error) Duplicate monitor clone nameFO102 (Forms error) No ID segments availableFO103 (Forms error) Monitor program not found FO104 (Forms error) FMP open error on monitor fileFO105 (Forms error) FMP close error on monitor file FO106 (Forms error) FMP RP error on monitor fileFO107 (Forms error) Monitor program busyFO109 (Forms error) Monitor program schedule errorFO112 (Forms error) PTOP error: main to clone FO113 (Forms error) PTOP error: clone to main  FO200 RTE I/O error * (check the RTE manual or driver manual) ?w?W,,<,o?w?W,#,;?w?<~<-FILNAM FILNAM ? OC7B06VC05 PCIF/1000 Configurati *Q&v02SPCIF/1000 (REV.4010) HP94200 (c) COPYRIGHT Hewlett-Packard Co. 1986 *&v02S $E&v02S $,V&v02S ** SCREEN 1 **,&v02S #C&v02S PCIF/1000 Configuration Editor: File Selection #&v02S &v02S &v02S 9&v02S Configuration file name : &v02S 4f&v02S &v06S&dB[ ]&v02S&d@ 4&v02S &v02S &v02S &v02S &v02S &v02S &J&v02S Pressing ENTER key is the normal way to activate next screen&&v02S &v02S )O )  KFO HELP REFRESH ABORT PCCON KKFO KKFO KKFO KKFO K/PCIF/RUNTIME/PCC01.HLP:::4:5:39 644 0 0 2400 5303664656 34427 /PCIF_GEN/RUNTIME/PCC01.HLP:::4:5:39 $$  'PCC01 HLP +i+i+i4FST * PCC01.HLP 94200-17018 REV.4010 <860811.1029>%Configuration file name: this is the name of the file that will be used by%' the PCIF run-time monitor for information on this particular configuration. ' ' It may have been used for a previous configuration which requires updating: '% the configuration editor checks if this will be a new configuration or a% confguration update.  It may be in standard CI format (including pathname).  ' If the field is left blank, it is assumed that this is a new configuration, '! of which the name may be defined in screen 11 at the end of the !& configuration program. The file is not created, or updated until screen 11& is processed.  The provided name is validated by pressing the ENTER key.  'If the softkey ABORT PCCON is depressed, a confirmation will be required. The '&key must be pressed again to confirm. The configuration editor will then be&'terminated. If the ABORT PCCON key is pressed once in error, pressing another 'key disables the ABORT request.  Press the HOME UP key to return to screen 1._E'WWU..ъ_&_G ..ъ_&_G_)C^_)w!._&_E'WWV..抬_&_I_)C^_)w!._M'_&_KYw!_&_M@oP_OD^_+_Qg!G"pgXA/PCIF/RUNTIME/PCC02.FRM:::3:10:75 644 0 0 5000 5303664660 34743 /PCIF_GEN/RUNTIME/PCC02.FRM:::3:10:75 !%$ ( KPCC02 FRM +i+i+i #FST ((<vFO *PCC02.FRM 94200-17019 REV.4010 PCIF/1000 Configuration editor SCREEN 2 " Y B01 V02OCP< >NEWUPD NEWUPD PDC9A01VC05 PCIF/1000 Configurat >A HWYCNF  4OC9B06VG05D PCIF/1000 Configurat >B PCCONF  4OC9B06VG05D PCIF/1000 Configurat >C FEXIT  4OC9B06VG05D PCIF/1000 Configurat >FNAMR FNAMR ? OC9B06VC05 PCIF/1000 Configurat +T&v02S ** SCREEN 2 **+&v02S #C&v02S PCIF/1000 Configuration Editor: Work Selection #&v02S &v02S 2b&v02S&v01S&dA] 2&v02S &v02S *R&v02S Highway configuration: &v06S&dB[ ]&v02S&d@*&v02S *R&v02S PC configuration: &v06S&dB[ ]&v02S&d@*&v02S *R&v02S Exit: &v06S&dB[ ]&v02S&d@*&v02S 4&v02S Listing file name :&v02S 4e&v02S &v06S&dB[ ]&v02S&d@ 4&v02S "B&v02S ( must be defined if LIST is pressed on this"6&v02S screen or subsequent screens )&v02S )O )  KFO LIST HELP REFRESH ABORT PCCON KKFO KKFO KKFO KKFO K/ccψc˜ccccՈc c"c/ccW//ccшcc !{ !{ !j::cĈĉc/ cc g/cc%This is the main screen in the configuration editor program and it informs%%the operator whether the current configuration is a creation (CREATING) or% a modification (MODIFYNG).  &Listing file name is the name of the file that will be used to store a hard &© listing of the current configuration. The softkey command LIST is used&to create the file or update its contents. &The screen provides the option for selecting the subsequent screen sequence:& $PC/highway configuration selects the configuration of either a PC or a $ highway (a highway must be configured before its associated PC). Exit provides the oportunity to leave the configuration process. Enter an X in the appropriate field. Press ENTER to validated the selected field. 'If the softkey ABORT PCCON is depressed, a confirmation will be required. The '&key must be pressed again to confirm. The configuration editor will then be&'terminated. If the ABORT PCCON key is pressed once in error, pressing another 'key disables the ABORT request.  Press the HOME UP key to return to screen 2./PCIF/RUNTIME/PCC03.FRM:::3:8:75 644 0 0 4000 5303664663 35135 /PCIF_GEN/RUNTIME/PCC03.FRM:::3:8:75 $$ <KPCC03 FRM +i+i+i"FST <vFO *PCC03.FRM 94200-17021 REV.4010 PCIF/1000 Configuration Editor SCREEN 3  YRB01EV02OCWP< >NEWUPD NEWUPD PDC1A01VC05 PCIF/1000 Configurat >C HWYNUM  4OI1B06VG05D PCIF/1000 Configurat >A ADDMOD  4OC1B06VG05D PCIF/1000 Configurat >B FDELET 4OC1B06VG05D PCIF/1000 Configurat +T&v02S ** SCREEN 3 **+&v02S %G&v02S PCIF/1000 Configuration Editor: Highway Selection %&v02S &v02S 2b&v02S&v01S&dA] 2&v02S &v02S &v02S ,V&v02S Highway number: &v06S&dB[ ]&d@&v02S,&v02S &v02S *R&v02S Add/modify: &v06S&dB[ ]&d@&v02S*&v02S &v02S *R&v02S Delete: &v06S&dB[ ]&d@&v02S*&v02S &v02S &v02S &v02S &v02S )O )  KFO PREVIOUS SCREEN LIST HELP REFRESH ABORT PCCON KKFO KKFO KKFO KKFO K/PCIF/RUNTIME/PCC03.HLP:::4:6:39 644 0 0 3000 5303664664 34773 /PCIF_GEN/RUNTIME/PCC03.HLP:::4:6:39 $$ D'PCC03 HLP +i+i+iFST * PCC03.HLP 94200-17022 REV.4010 <860811.1505>&Highway number: must be a positive integer smaller than 32768. The proposed && value is n+1, where n is the largest highway number already allocated. If &' the proposed value is entered, the operator creates a new highway and screen'' 4 will be displayed. However, the operator must define whether a highway is '# to be modified or deleted if an existing highway number is entered. # %Add/Modify: this field allows the operator to add a highway to an existing%% configuration, or to modify the highway defined with the highway number %& field. If modifying an existing highway, the next displayed screen will be& screen 5.  'Delete: allows deletion of the selected highway from the current configuration' as long as this highway is free of any PCs.  Enter an X in the appropriate field.#Entered data are validated by pressing ENTER. Pressing PREVIOUS SCREEN#$displays screen 2, and if field Delete is selected, deletes the highway.$ 'If the softkey ABORT PCCON is depressed, a confirmation will be required. The '&key must be pressed again to confirm. The configuration editor will then be&'terminated. If the ABORT PCCON key is pressed once in error, pressing another 'key disables the ABORT request.  Press the HOME UP key to return to screen 3.m9PQmNmOmM-LePE[mPM\-B-FdmFmYPePE]QePSmPRuO-+ e-efmem:mjmmurmm-e-u-m6EHmMe/PCIF/RUNTIME/PCC04.FRM:::3:19:113 644 0 0 11400 5303664666 35303 /PCIF_GEN/RUNTIME/PCC04.FRM:::3:19:113 "&$ LqPCC04 FRM +i+i+i r=FST <vFO *PCC04.FRM 94200-17023 REV.4010 PCIF/1000 Configuration Editor SCREEN 4  YRB01EV02OC@1<HNEWHW NEWHW PDC3A01VC05 PCIF/1000 ConfigPNew highway adding H >FTYP01 FTYP01  DC3@06VC05 PCIF/1000 ConfigPNe >A FSEL01  OC3B06VC05< PCIF/1000 ConfigPNe >FTYP02 FTYP02  DC3@06VC05^ PCIF/1000 ConfigPNe >B FSEL02  /OC3B06((VC05 PCIF/1000 ConfigPNe >FTYP03 FTYP03  8DC3@06VC05 PCIF/1000 ConfigPNe >C FSEL03  IOC3B06VC05 PCIF/1000 ConfigPNe >FTYP04 FTYP04  DC3@06VC05 PCIF/1000 ConfigPNe >D FSEL04  OC3B06VC05< PCIF/1000 ConfigPNe >FTYP05 FTYP05  DC3@06VC05^ PCIF/1000 ConfigPNe >E FSEL05  /OC3B06VC05 PCIF/1000 ConfigPNe >FTYP06 FTYP06  8DC3@06VC05 PCIF/1000 ConfigPNe >F FSEL06  IOC3B06VC05 PCIF/1000 ConfigPNe >FTYP07 FTYP07 DC3@06VC05 PCIF/1000 ConfigPNe >G FSEL07 OC3B06VC05< PCIF/1000 ConfigPNe >FTYP08 FTYP08 DC3@06VC05^ PCIF/1000 ConfigPNe >H FSEL08 /OC3B06VC05 PCIF/1000 ConfigPNe >FTYP09 FTYP09 8DC3@06VC05 PCIF/1000 ConfigPNe >I FSEL09 IOC3B06VC05 PCIF/1000 ConfigPNe >FTYP10 FTYP10 DC3@06VC05 PCIF/1000 ConfigPNe >J FSEL10 OC3B06VC05< PCIF/1000 ConfigPNe >FTYP11 FTYP11 DC3@06VC05^ PCIF/1000 ConfigPNe >K FSEL11 /OC3B06VC05 PCIF/1000 ConfigPNe >FTYP12 FTYP12 8DC3@06VC05 PCIF/1000 ConfigPNe >L FSEL12 IOC3B06VC05 PCIF/1000 ConfigPNe >FTYP13 FTYP13 DC3@06VC05 PCIF/1000 ConfigPNe >M FSEL13 OC3B06VC05< PCIF/1000 ConfigPNe >FTYP14 FTYP14 DC3@06VC05^ PCIF/1000 ConfigPNe >N FSEL14 /OC3B06VC05 PCIF/1000 ConfigPNe >FTYP15 FTYP15 8DC3@06VC05 PCIF/1000 ConfigPNe >O FSEL15 IOC3B06VC05 PCIF/1000 ConfigPNe +T&v02S ** SCREEN 4 **+&v02S %H&v02S PCIF/1000 Configuration Editor: Highway Type Selection%&v02S &v02S 2b&v02S&v01S&dA] 2&v02S 7&v02S Available Highway types: &v02S &v02S q&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S q&v02S q&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S q&v02S q&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S q&v02S q&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S q&v02S q&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S q&v02S &v02S )O )  KFO PREVIOUS SCREEN LIST PREVIOUS TYPES NEXT TYPES HELP REFRESH ABORT PCCON KKFO KKFO KKFO KKFO K/PCIF/RUNTIME/PCC04.HLP:::4:5:39 644 0 0 2400 5303664667 34714 /PCIF_GEN/RUNTIME/PCC04.HLP:::4:5:39 $$ `'PCC04 HLP +i+i+i>FST * PCC04.HLP 94200-17024 REV.4010 <860811.1506>#This screen is used to add a highway to an existing configuration. It #%displays a list of the supported highway types as found in the descriptor %$files. The names are the same as those displayed in the preconfiguration$ program at screen 2.  "Select the highway type by entering an X in the appropriate square. "Only one type can be selected at a time. $The list of supported types may be too long to be displayed on a single $#screen. The soft keys PREVIOUS TYPES and NEXT TYPES display either the# previous or the next list.  $Once a highway type has been selected, press ENTER or PREVIOUS SCREEN to$%validate this selection. Pressing PREVIOUS SCREEN redisplays screen 3, and%pressing ENTER displays screen 5.  'If the softkey ABORT PCCON is depressed, a confirmation will be required. The '&key must be pressed again to confirm. The configuration editor will then be &'terminated. If the ABORT PCCON key is pressed once in error, pressing another 'key disables the ABORT request.  Press the HOME UP key to return to screen 4./PCIF/RUNTIME/PCC05.FRM:::3:9:75 644 0 0 4400 5303664671 35142 /PCIF_GEN/RUNTIME/PCC05.FRM:::3:9:75 $$ h KPCC05 FRM +i+i+i w$FST <vFO *PCC05.FRM 94200-17025 REV.4010 PCIF/1000 Configuration Editor SCREEN 5  YRB01EV02OIjd< >NEWUPD NEWUPD PDC5A01VC05 PCIF/1000 Configurat >TYPNAM TYPNAM  DC5D06VE05) PCIF/1000 Configurat >A HWYNUM  BDI5D06VE05j PCIF/1000 Configurat >B FPRIOR  6OI5B06VC05F PCIF/1000 Configurat >C FPORT 6OC5B06VC05F PCIF/1000 Configurat >D FLU1 6OI5B06VC05F PCIF/1000 Configurat +T&v02S ** SCREEN 5 **+&v02S %G&v02S PCIF/1000 Configuration Editor: Highway Configuration %&v02S &v02S 2b&v02S&v01S&dA] 2&v02S &v02S ?|&v02S Highway type: &v06S&dD] ]&d@&v02S Number: &v06S&dD] ]&d@&v02S?&v02S &v02S &v02S ,U&v02S Priority: &v06S&dB[ ]&d@&v02S ,&v02S +T&v02S Port number: &v06S&dB[ ]&d@&v02S+&v02S 1`&v02S LU number: &v06S&dB[ ]&d@&v02S 1&v02S &v02S &v02S &v02S )O )  KFO LIST HELP REFRESH ABORT PCCON KKFO KKFO KKFO KKFO K/PCIF/RUNTIME/PCC05.HLP:::4:6:39 644 0 0 3000 5303664672 35225 /PCIF_GEN/RUNTIME/PCC05.HLP:::4:6:39 $$ t'PCC05 HLP +i+i+iFST ((* PCC05.HLP 94200-17026 REV.4010 <860811.1506>%This screen informs the operator whether this highway has been configured % before (MODIFYING) or if it has never been configured (ADDING).  %LU: allocates an LU to the highway. Enter an integer between 1 and 255. A %' warning message will appear after pressing ENTER if the LU has already been '$ allocated to a highway. Pressing ENTER again confirms this selection. $$ A value 0 may be entered temporarily but must be redefined with this $ screen to validate the configuration.  &Priority: defines the priority of the handler associated with this highway. &' The priority will be used by the PCIF monitor program at run-time. Enter an '& integer between 1 and 99. A value 0 may be entered temporarily but must be& redefined with this screen to validate the configuration.  &Port number: provides the port number of this highway on the interface card.&% Enter an integer between 0 and 7. A blank may be entered temporarily but%" must be redefined with this screen to validate the configuration. " 'If the softkey ABORT PCCON is depressed, a confirmation will be required. The '&key must be pressed again to confirm. The configuration editor will then be&'terminated. If the ABORT PCCON key is pressed once in error, pressing another 'key disables the ABORT request.  Press the HOME UP key to return to screen 5./PCIF/RUNTIME/PCCB5.FRM:::3:10:75 644 0 0 5000 5303664673 35461 /PCIF_GEN/RUNTIME/PCCB5.FRM:::3:10:75 !%$ | KPCCB5 FRM +i+i+i %FST <vFO *PCCB5.FRM 94200-17027 REV.4010 PCIF/1000 Configuration Editor SCREEN 5  YRB01EV02OImd< >NEWUPD NEWUPD PDC7A01VC05 PCIF/1000 Configurat >TYPNAM TYPNAM  DC7D06VE05) PCIF/1000 Configurat >A HWYNUM  BDI7D06VE05j PCIF/1000 Configurat >B FPRIOR  6OI7B06VC05F PCIF/1000 Configurat >C FPORT 6OC7B06VC05F PCIF/1000 Configurat >D FLU1 6OI7B06VC05F PCIF/1000 Configurat >E FLU2 6OI7B06VC05F PCIF/1000 Configurat +T&v02S ** SCREEN 5 **+&v02S %G&v02S PCIF/1000 Configuration Editor: Highway Configuration %&v02S &v02S 2b&v02S&v01S&dA] 2&v02S &v02S &v02S ?|&v02S Highway type: &v06S&dD] ]&d@&v02S Number: &v06S&dD] ]&d@&v02S?&v02S &v02S 8n&v02S Priority: &v06S&dB[ ]&d@&v02S 8&v02S +T&v02S Port number: &v06S&dB[ ]&d@&v02S+&v02S 1`&v02S First LU number: &v06S&dB[ ]&d@&v02S 1&v02S ,V&v02S Second LU number: &v06S&dB[ ]&d@&v02S,&v02S &v02S )O )  KFO LIST HELP REFRESH ABORT PCCON KKFO KKFO KKFO KKFO K/PCIF/RUNTIME/PCCB5.HLP:::4:6:39 644 0 0 3000 5303664675 35017 /PCIF_GEN/RUNTIME/PCCB5.HLP:::4:6:39 $$ 'PCCB5 HLP +i+i+i FST * PCCB5.HLP 94200-17028 REV.4010 <860811.1507>%This screen informs the operator whether this highway has been configured % before (MODIFYING) or if it has never been configured (ADDING).  'LUs: allocates 2 LUs to the highway. Enter two diferent integers between 1 and'' 255. A warning message will appear after pressing ENTER if a LU has already '$ been allocated to a highway. Pressing ENTER another time confirms this$' selection. A value 0 may be entered temporarily but must be redefined with ' this screen to validate of the configuration.  &Priority: defines the priority of the handler associated with this highway. &' The priority will be used by the PCIF monitor program at run-time. Enter an '& integer between 1 and 99. A value 0 may be entered temporarily but must be& redefined with this screen to validate of the configuration. &Port number: provides the port number of this highway on the interface card.&% Enter an integer between 0 and 7. A blank may be entered temporarily but%' must be redefined with this screen, for the validation of the configuration.' 'If the softkey ABORT PCCON is depressed, a confirmation will be required. The '&key must be pressed again to confirm. The configuration editor will then be&'terminated. If the ABORT PCCON key is pressed once in error, pressing another 'key disables the ABORT request.  Press the HOME UP key to return to screen 5./PCIF/RUNTIME/PCC07.FRM:::3:8:75 644 0 0 4000 5303664676 35071 /PCIF_GEN/RUNTIME/PCC07.FRM:::3:8:75 $$ KPCC07 FRM +i+i+i"FST <vFO *PCC07.FRM 94200-17029 REV.4010 PCIF/1000 Configuration Editor SCREEN 7  YRB01EV02OCWP< >NEWUPD NEWUPD PDC9A01VC05 PCIF/1000 Configurat >PCNUM PCNUM  4OI9B06VG05D PCIF/1000 Configurat >A ADDMOD  4OC9B06VG05D PCIF/1000 Configurat >B FDELET 4OC9B06VG05D PCIF/1000 Configurat +T&v02S ** SCREEN 7 **+&v02S "B&v02S PCIF/1000 Configuration Editor: PC Selection"&v02S &v02S 2b&v02S&v01S&dA] 2&v02S &v02S &v02S ,V&v02S PC Logical Identifier: &v06S&dB[ ]&d@&v02S,&v02S &v02S *R&v02S Add/modify: &v06S&dB[ ]&d@&v02S*&v02S &v02S *R&v02S Delete: &v06S&dB[ ]&d@&v02S*&v02S &v02S &v02S &v02S &v02S )O )  KFO PREVIOUS SCREEN LIST HELP REFRESH ABORT PCCON KKFO KKFO KKFO KKFO K/PCIF/RUNTIME/PCC07.HLP:::4:6:39 644 0 0 3000 5303664700 34645 /PCIF_GEN/RUNTIME/PCC07.HLP:::4:6:39 $$ 'PCC07 HLP +i+i+iFST * PCC07.HLP 94200-17030 REV.4010 <860811.1507>'PC logical identifier: this must be a positive integer smaller than 32768. The'# proposed value is n+1, where n is the largest PC identifier already #& allocated. If the proposed value is entered, the operator creates a new PC&' and screen 8 will be displayed. However, the operator must define whether a '" PC is to be modified or deleted if an existing number is entered. " #Add/Modify: this field allows the operator to add a PC to an exi((sting #& configuration, or to modify the PC defined with the PC logical identifier &# field. If modifying an existing PC the next displayed screen will be# screen 9.  %Delete: allows deletion of the selected PC from the current configuration.% Enter an X in the appropriate field. #Entered data are validated by pressing ENTER. Pressing PREVIOUS SCREEN#displays screen 2, and, if required, deletes the PC. 'If the softkey ABORT PCCON is depressed, a confirmation will be required. The '&key must be pressed again to confirm. The configuration editor will then be&'terminated. If the ABORT PCCON key is pressed once in error, pressing another 'key disables the ABORT request.  Press the HOME UP key to return to screen 7. 7b7|7.d7|779:99:979/79! ///~/ш9! ///}/јU79!:////9! ///~/9! ///}/U79!:////|/n}~|n/PCIF/RUNTIME/PCC08.FRM:::3:19:113 644 0 0 11400 5303664702 35225 /PCIF_GEN/RUNTIME/PCC08.FRM:::3:19:113 "&$ qPCC08 FRM +i+i+i p=$FST <vFO *PCC08.FRM 94200-17031 REV.4010 PCIF/1000 Configuration Editor SCREEN 8  YRB01EV02OC@1<HNEWHW NEWHW PDC1A01VC05 PCIF/1000 ConfiPNew PC adding H >FTYP01 FTYP01  DC1@06VC05 PCIF/1000 ConfiPNe >A FSEL01  OC1B06VC05< PCIF/1000 ConfiPNe >FTYP02 FTYP02  DC1@06VC05^ PCIF/1000 ConfiPNe >B FSEL02  /OC1B06VC05 PCIF/1000 ConfiPNe >FTYP03 FTYP03  8DC1@06VC05 PCIF/1000 ConfiPNe >C FSEL03  IOC1B06VC05 PCIF/1000 ConfiPNe >FTYP04 FTYP04  DC1@06VC05 PCIF/1000 ConfiPNe >D FSEL04  OC1B06VC05< PCIF/1000 ConfiPNe >FTYP05 FTYP05  DC1@06VC05^ PCIF/1000 ConfiPNe >E FSEL05  /OC1B06VC05 PCIF/1000 ConfiPNe >FTYP06 FTYP06  8DC1@06VC05 PCIF/1000 ConfiPNe >F FSEL06  IOC1B06VC05 PCIF/1000 ConfiPNe >FTYP07 FTYP07 DC1@06VC05 PCIF/1000 ConfiPNe >G FSEL07 OC1B06VC05< PCIF/1000 ConfiPNe >FTYP08 FTYP08 DC1@06VC05^ PCIF/1000 ConfiPNe >H FSEL08 /OC1B06VC05 PCIF/1000 ConfiPNe >FTYP09 FTYP09 8DC1@06VC05 PCIF/1000 ConfiPNe >I FSEL09 IOC1B06VC05 PCIF/1000 ConfiPNe >FTYP10 FTYP10 DC1@06VC05 PCIF/1000 ConfiPNe >J FSEL10 OC1B06VC05< PCIF/1000 ConfiPNe >FTYP11 FTYP11 DC1@06VC05^ PCIF/1000 ConfiPNe >K FSEL11 /OC1B06VC05 PCIF/1000 ConfiPNe >FTYP12 FTYP12 8DC1@06VC05 PCIF/1000 ConfiPNe >L FSEL12 IOC1B06VC05 PCIF/1000 ConfiPNe >FTYP13 FTYP13 DC1@06VC05 PCIF/1000 ConfiPNe >M FSEL13 OC1B06VC05< PCIF/1000 ConfiPNe >FTYP14 FTYP14 DC1@06VC05^ PCIF/1000 ConfiPNe >N FSEL14 /OC1B06VC05 PCIF/1000 ConfiPNe >FTYP15 FTYP15 8DC1@06VC05 PCIF/1000 ConfiPNe >O FSEL15 IOC1B06VC05 PCIF/1000 ConfiPNe +T&v02S ** SCREEN 8 **+&v02S $E&v02S PCIF/1000 Configuration Editor: PC Type Selection $&v02S &v02S 2b&v02S&v01S&dA] 2&v02S 5&v02S Available PC types: &v02S &v02S q&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S q&v02S q&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S q&v02S q&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S q&v02S q&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S q&v02S q&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S q&v02S &v02S )O )  KFO PREVIOUS SCREEN LIST PREVIOUS TYPES NEXT TYPES HELP REFRESH ABORT PCCON KKFO KKFO KKFO KKFO K/PCIF/RUNTIME/PCC08.HLP:::4:5:39 644 0 0 2400 5303664703 34627 /PCIF_GEN/RUNTIME/PCC08.HLP:::4:5:39 $$ 'PCC08 HLP +i+i+i5:FST * PCC08.HLP 94200-17032 REV.4010 <860811.1508>&This screen is used to add a PC to an existing configuration. It displays a &'list of the supported PC types as found in the descriptor files. The names are'$the same as those displayed in the preconfiguration program at screen 2.$ Select the PC type by entering an X in the appropriate square. Only one type can be selected at a time. $The list of supported types may be too long to be displayed on a single $#screen. The soft keys PREVIOUS TYPES and NEXT TYPES display either the# previous or the next list.  "Once a PC type has been selected, press ENTER or PREVIOUS SCREEN to "%validate this selection. Pressing PREVIOUS SCREEN redisplays screen 3, and%pressing ENTER displays screen 5.  'If the softkey ABORT PCCON is depressed, a confirmation will be required. The '&key must be pressed again to confirm. The configuration editor will then be&'terminated. If the ABORT PCCON key is pressed once in error, pressing another 'key disables the ABORT request.  Press the HOME UP key to return to screen 8.ww/ 0 P&CC/w/ؙ&CC/w/CCw/CC99bCCgw/gwdCCg CC?//PCIF/RUNTIME/PCC09.FRM:::3:13:75 644 0 0 6400 5303664705 35155 /PCIF_GEN/RUNTIME/PCC09.FRM:::3:13:75 !%$  KPCC09 FRM +i+i+i y*BFST <vFO *PCC09.FRM 94200-17033 REV.4010 PCIF/1000 Configuration Editor SCREEN 9  YRB01EV02OC sd< >NEWUPD NEWUPD PDC3A01VC05 PCIF/1000 Configurat >TYPNAM TYPNAM DC3D06VE05' PCIF/1000 Configurat >A PCNUM @DI3D06VE05h PCIF/1000 Configurat >B HWYNUM  OI3B06VC05' PCIF/1000 Configurat >D FTO  OI3B06VC05' PCIF/1000 Configurat >E FTOUNI  @OI3B06VG05h PCIF/1000 Configurat >F FPRIOR  OI3B06VC05' PCIF/1000 Configurat >G CAPAWD @OC3F06VG05P PCIF/1000 Configurat >H CAPAWP @OC3F06VG05P PCIF/1000 Configurat >I CAPATR @OC3F06VG05P PCIF/1000 Configurat >J CAPAUN @OC3F06VG05P PCIF/1000 Configurat >K CAPAST @OC3F06VG05P PCIF/1000 Configurat +T&v02S ** SCREEN 9(( **+&v02S #C&v02S PCIF/1000 Configuration Editor: PC Configuration #&v02S 2b&v02S&v01S&dA] 2&v02S B&v02S PC type: &v06S&dD] ]&d@&v02S Number: &v06S&dD] ]&d@&v02S B&v02S $F&v02S Highway number: &v06S&dB[ ]&d@&v02S $&v02S C&v02S Time out: &v06S&dB[ ]&d@&v02S Time out unit: &v06S&dB[ ]&d@&v02S 1: minute C+S&v02S 2: second +8n&v02S Priority: &v06S&dB[ ]&d@&v02S 8&v02S &v02S 8n&v02S Capabilities: Write data allowed: &v06S&dF[ ]&d@&v02S 88n&v02S Write program allowed: &v06S&dF[ ]&d@&v02S 88n&v02S Transparent functions allowed: &v06S&dF[ ]&d@&v02S 81`&v02S Unsolicited PC requests allowed: &v06S&dF[ ]&d@&v02S 18n&v02S Start/stop allowed: &v06S&dF[ ]&d@&v02S 8&v02S )O )  KFO LIST HELP REFRESH ABORT PCCON KKFO KKFO KKFO KKFO K/PCIF/RUNTIME/PCC09.HLP:::4:6:39 644 0 0 3000 5303664706 35163 /PCIF_GEN/RUNTIME/PCC09.HLP:::4:6:39 $$ 'PCC09 HLP +i+i+iRFST * PCC09.HLP 94200-17034 REV.4010 <860811.1508>&Highway number: the highway on which this PC is to be connected. This number& was defined at screen 3. Only one PC per highway is allowed. %Time-out and unit: define the time-out value for the PC. The time-out is a%# two digits positive integer, and the unit is selected to be either 1#' (minutes) or 2 (seconds). A zero time-out value signifies no timeout defined'% for this PC. If a time-out value is entered a unit must also be entered.% #Priority: defines the priority of the handler associated with this PC.#' The priority will be used by the PCIF monitor program at run-time. Enter an '& integer between 1 and 99. A value 0 may be entered temporarily but must be&# redefined with this screen, for the validation of the configuration.# %The capabilities are selected if an X is entered in the appropriate field.%$ Refer to the relevant PC brand information to check that the selected $ capability is supported  $All supplied information for this screen is validated by pressing ENTER.$'If the softkey ABORT PCCON is depressed, a confirmation will be required. The '&key must be pressed again to confirm. The configuration editor will then be&'terminated. If the ABORT PCCON key is pressed once in error, pressing another 'key disables the ABORT request.  Press the HOME UP key to return to screen 9./PCIF/RUNTIME/PCCB9.FRM:::3:14:75 644 0 0 7000 5303664707 35444 /PCIF_GEN/RUNTIME/PCCB9.FRM:::3:14:75 !%$ KPCCB9 FRM +i+i+i+ZFST <vFO *PCCB9.FRM 94200-17035 REV.4010 PCIF/1000 Configuration Editor SCREEN 9  YRB01EV02OC yd< >NEWUPD NEWUPD PDC5A01VC05 PCIF/1000 Configurati >TYPNAM TYPNAM DC5D06VE05' PCIF/1000 Configurati >A PCNUM DDI5D06VE05l PCIF/1000 Configurati >B HWYNUM  OI5B06VC05' PCIF/1000 Configurati >C FPCADD  DOC5B06VC05l PCIF/1000 Configurati >D FTO  OI5B06VC05' PCIF/1000 Configurati >E FTOUNI  DOI5B06VG05l PCIF/1000 Configurati >F FPRIOR  OI5B06VC05' PCIF/1000 Configurati >G CAPAWD DOC5F06VG05T PCIF/1000 Configurati >H CAPAWP DOC5F06VG05T PCIF/1000 Configurati >I CAPATR DOC5F06VG05T PCIF/1000 Configurati >J CAPAUN DOC5F06VG05T PCIF/1000 Configurati >K CAPAST DOC5F06VG05T PCIF/1000 Configurati +T&v02S ** SCREEN 9 **+&v02S #C&v02S PCIF/1000 Configuration Editor: PC Configuration #&v02S 2b&v02S&v01S&dA] 2&v02S D&v02S PC type: &v06S&dD] ]&d@&v02S Number: &v06S&dD] ]&d@&v02S D&v02S A&v02S Highway number: &v06S&dB[ ]&d@&v02S PC Station number: &v06S&dB[ ]&d@&v02S A&v02S D&v02S Time out: &v06S&dB[ ]&d@&v02S Time out unit: &v06S&dB[ ]&d@&v02S 1: minute D,U&v02S 2: second ,8n&v02S Priority: &v06S&dB[ ]&d@&v02S 8&v02S &v02S 8n&v02S Capabilities: Write data allowed: &v06S&dF[ ]&d@&v02S 88n&v02S Write program allowed: &v06S&dF[ ]&d@&v02S 88n&v02S Transparent functions allowed: &v06S&dF[ ]&d@&v02S 83d&v02S Unsolicited PC requests allowed: &v06S&dF[ ]&d@&v02S 38n&v02S Start/stop allowed: &v06S&dF[ ]&d@&v02S 8&v02S )O )  KFO LIST HELP REFRESH ABORT PCCON KKFO KKFO KKFO KKFO KtS,Pd`tS,Pd_tS,PdgtS,PdhtS,PlpdSUTTTtRdotS,(,-./0123456789N Wԙ8TuTt8TyTDtd,q/PCIF/RUNTIME/PCCB9.HLP:::4:6:39 644 0 0 3000 5303664710 35317 /PCIF_GEN/RUNTIME/PCCB9.HLP:::4:6:39 $$ 'PCCB9 HLP +i+i+ijFST * PCCB9.HLP 94200-17036 REV.4010 <860811.1509>'Highway number: the highway on which this PC is to be connected (see screen 3)' #PC station number: physical adress of the PC on the highway. PC brand # dependent; refer to relevant PC brand information. %Time-out and unit: define the time-out value for the PC. The time-out is a%# two digits positive integer, and the unit is selected to be either 1#' (minutes) or 2 (seconds). A zero time-out value signifies no timeout defined'% for this PC. If a time-out value is entered a unit must also be entered.% &Priority: defines the priority of the handler associated with this PC. Enter&& an integer between 1 and 99. A value 0 may be entered temporarily but must&% be redefined with this screen, for the validation of the configuration. % 'The capabilities are selected if an X is entered in the appropriate field. See'% the relevant PC brand information to check if a capability is supported.% $All supplied informa((tion for this screen is validated by pressing ENTER.$'If the softkey ABORT PCCON is depressed, a confirmation will be required. The '&key must be pressed again to confirm. The configuration editor will then be&'terminated. If the ABORT PCCON key is pressed once in error, pressing another 'key disables the ABORT request.  Press the HOME UP key to return to screen 9./PCIF/RUNTIME/PCC11.FRM:::3:11:75 644 0 0 5400 5303664712 35101 /PCIF_GEN/RUNTIME/PCC11.FRM:::3:11:75 !%$  KPCC11 FRM +i+i+i $rFST <vFO *PCC11.FRM 94200-17037 REV.4010 PCIF/1000 Configuration Editor SCREEN 11  Y B01 V02OCP< >NEWUPD NEWUPD PDC7A01VC05 PCIF/1000 Configurat >A REQLGT  5OI7B06VC05E PCIF/1000 Configurat >B QUELGT  5OI7B06VC05E PCIF/1000 Configurat >C NBKEYS  5OI7B06VC05E PCIF/1000 Configurat >D FSECURIT5OI7B06VC05E PCIF/1000 Configurat >FILNAM FILNAM ? OC7B06VG05 PCIF/1000 Configurat +T&v02S ** SCREEN 11 **+&v02S &v02S %H&v02S PCIF/1000 Configuration Editor: General Information %&v02S 2b&v02S&v01S&dA] 2&v02S +&v02S Maximum length of application 1_&v02S program requests or replies: &v06S&dB[ ]&v02S&d@ (bytes) 15&v02S 2b&v02S Maximum PC request queue length: &v06S&dB[ ]&v02S&d@ (requests)2&v02S +T&v02S Maximum number of access keys: &v06S&dB[ ]&v02S&d@+&v02S $&v02S PC_DISC Security code 8m&v02S (also used for scheduling PCHLT): &v06S&dB[ ]&v02S&d@ 8&v02S 8&v02S Configuration file name :4e&v02S &v06S&dB[ ]&v02S&d@ 4&v02S .&v02SDepress ENTER to complete PCCON. )O )  KFO PREVIOUS SCREEN LIST HELP REFRESH ABORT PCCON KKFO KKFO KKFO KKFO Ke,u,euO\]u]]]]5'GUD,]]5'GUE,,]]7 ,,]]7]P\]u,늬]]5'GUF,,֊]]9]P\]u,눀]=']];Iu]]=@m@]?Q\]]AeEpeHA@,eEHue-u/PCIF/RUNTIME/PCC11.HLP:::4:7:39 644 0 0 3400 5303664714 35016 /PCIF_GEN/RUNTIME/PCC11.HLP:::4:7:39 $$ 'PCC11 HLP +i+i+i FST * PCC11.HLP 94200-17038 REV.4010 <860811.1505> Maximum length (length unit: byte): integer between 0 and 1024.  If the entered value is 0 the validation flag is not set. &PC request queue length: limits the number of requests waiting for the same &$ PC. Integer between 0 and 32767. If 0, the validation flag is not set.$'Maximum number of access keys: integer between 0 and 64. If the entered value ' is 0 the validation flag is not set.'Security code: integer between -32768 and 32767. If value 0 is entered, it is '& assumed that the field is not taken and the validation flag is unaffected.&%Configuration file name: the proposed name is the same as that entered in %% screen 1 and may be changed if required. A disc file will be updated or % created with the name entered in this field. $The supplied data are validated if ENTER or PREVIOUS SCREEN is pressed. $'If ENTER is pressed, the configuration file name must be entered. If the file '&already exists, or if the configuration contains unvalidated data, a warning&%message is shown; the ENTER key must be pressed again for the affirmative.%If PREVIOUS SCREEN is pressed, screen 2 is redisplayed.  'If the softkey ABORT PCCON is depressed, a confirmation will be required. The '&key must be pressed again to confirm. The configuration editor will then be&'terminated. If the ABORT PCCON key is pressed once in error, pressing another 'key disables the ABORT request.  Press the HOME UP key to return to screen 11. W`\aa6`X`aaa7UW,,Baa9a7UY,),Baa9a9UV,7,Baa9aY`Aa,EY`Eae`IaaIaa;}aa ,W,aa7UW,bUX,UZ,,aa9aa9'aa='aaa9'aa=}/PCIF/RUNTIME/PCMSG.ERR:::4:45:34 644 0 0 26400 5303664715 35332 /PCIF_GEN/RUNTIME/PCMSG.ERR:::4:45:34 !%$- -"PCMSG ERR +i+i+i-3FST * PCMSG.ERR 94200-17101 REV.4010 <860813.1443>* PCIF/1000 PCLIB routines error messages file : PCMSG.DEF* Modified 860310 mja : Added PC356 error "* Modified 860507 mja : Corrected grammar for 237, 256, 361 & 362 "* user status from return of PC access subroutines PC000 request completed PC001 invalid SUBFNC parameterPC002 length of buffer to transmit too long or null  PC003 invalid length unit PC016 missing PCIF_OPEN for this programPC017 contact with PCIF monitor lost PC018 illegal access key PC019 illegal buffer address PC020 not enough SAM PC021 not enough EMA PC022 RTE EXEC error while dialoging with PCIF monitorPC023 PCIF_OPEN already made by this programPC024 lacking RTE resources to use PCIF subsystem PC025 maximum number of possible OPEN's exceededPC026 requested function not implemented on current systemPC032 locked PC  PC033 disconnected PC PC035 unknown PC logical identifier PC036 PC is missing capability to perform user requestPC037 maximum number of waiting request on PC reached PC038 time outPC039 no available access keysPC040 PC already enabled (unsolicited) for this program PC041 PC is not enabled (unsolicited) for this programPC042 PC already enabled (unsolicited) for another programPC043 invalid PCIF security code* PC handler detected errors PC128 invalid request PC129 PC in run mode PC130 invalid logical PC memory address !PC131 logical PC memory address not allowed for this request type !PC132 see specific PC message PC133 see specific PC message PC134 see specific PC message PC135 see specific PC message PC136 see specific PC message PC137 see specific PC message PC138 see specific PC message PC139 see specific PC message PC140 see specific PC message PC141 see specific PC message PC142 see specific PC message PC143 see specific PC message PC144 see specific PC message PC145 see specific PC message PC146 see specific PC message PC147 see specific PC message PC148 see specific PC message PC149 see specific PC message PC150 see specific PC message PC151 see specific PC message PC152 see specific PC message PC153 see specific PC message PC154 see specific PC message PC155 see specific PC message PC156 see specific PC message PC157 see specific PC message PC158 see specific PC message PC159 see specific PC message PC160 see specific PC message PC161 see specific PC message PC162 see specific PC message PC163 see specific PC message PC164 see specific PC message PC165 see specific PC message PC166 see specific PC message PC167 see specific PC message PC168 see specific PC message PC169 see specific PC message PC170 see specific PC message PC171 see specific PC message PC172 see specific PC message PC173 see specific PC message PC174 see specific PC message PC175 see specific PC message PC176 se((e specific PC message PC177 see specific PC message PC178 see specific PC message PC179 see specific PC message PC180 see specific PC message PC181 see specific PC message PC182 see specific PC message PC183 see specific PC message PC184 see specific PC message PC185 see specific PC message PC186 see specific PC message PC187 see specific PC message PC188 see specific PC message PC189 see specific PC message PC190 see specific PC message PC191 see specific PC message PC192 see specific PC message PC193 see specific PC message PC194 see specific PC message PC195 see specific PC message PC196 see specific PC message PC197 see specific PC message PC198 see specific PC message PC199 see specific PC message PC200 see specific PC message PC201 see specific PC message PC202 see specific PC message PC203 see specific PC message PC204 see specific PC message PC205 see specific PC message PC206 see specific PC message PC207 see specific PC message PC208 see specific PC message PC209 see specific PC message PC210 see specific PC message PC211 see specific PC message PC212 see specific PC message PC213 see specific PC message PC214 see specific PC message PC215 see specific PC message PC216 see specific PC message PC217 see specific PC message PC218 see specific PC message PC219 see specific PC message PC220 see specific PC message PC221 see specific PC message PC222 see specific PC message PC223 see specific PC message PC224 see specific PC message PC225 see specific PC message PC226 see specific PC message PC227 see specific PC message PC228 see specific PC message PC229 see specific PC message PC230 see specific PC message PC231 see specific PC message PC232 see specific PC message PC233 see specific PC message PC234 PC handler failure : monitor dialog problem PC235 PC handler failure : buffer created with NIL messagePC236 PC handler failure : no available memoryPC237 PC handler failure : no match found for retrieve messagePC239 PC handler failure : buffer already allocated  PC240 PC handler failure : too many calls to create unsolicited PC243 PC handler failure : call to service routine not allowedPC244 PC handler failure : invalid parameterPC245 PC handler failure : NIL requestPC246 PC handler failure : buffer exceeds maximum request sizePC247 PC handler failure : invalid parameterPC248 PC handler failure : no buffer with request PC249 PC handler failure : missing buffer PC250 PC handler failure : invalid request/sub request (NIL)PC251 PC handler failure : invalid parameterPC252 PC handler failure : invalid call PC253 PC handler failure : parameter length too large PC254 PC handler failure : invalid parameter length PC255 PC handler failure : invalid parameter* highway handler detected errors PC256 dialog with MUX timed out PC257 maximum retry number with PC exceeded PC258 see specific Highway messagePC259 see specific Highway messagePC260 see specific Highway messagePC261 see specific Highway messagePC262 see specific Highway messagePC263 see specific Highway messagePC264 see specific Highway messagePC265 see specific Highway messagePC266 see specific Highway messagePC267 see specific Highway messagePC268 see specific Highway messagePC269 see specific Highway messagePC270 see specific Highway messagePC271 see specific Highway messagePC272 see specific Highway messagePC273 see specific Highway messagePC274 see specific Highway messagePC275 see specific Highway messagePC276 see specific Highway messagePC277 see specific Highway messagePC278 see specific Highway messagePC279 see specific Highway messagePC280 see specific Highway messagePC281 see specific Highway messagePC282 see specific Highway messagePC283 see specific Highway messagePC284 see specific Highway messagePC285 see specific Highway messagePC286 see specific Highway messagePC287 see specific Highway messagePC288 see specific Highway messagePC289 see specific Highway messagePC290 see specific Highway messagePC291 see specific Highway messagePC292 see specific Highway messagePC293 see specific Highway messagePC294 see specific Highway messagePC295 see specific Highway messagePC296 see specific Highway messagePC297 see specific Highway messagePC298 see specific Highway messagePC299 see specific Highway messagePC300 see specific Highway messagePC301 see specific Highway messagePC302 see specific Highway messagePC303 see specific Highway messagePC304 see specific Highway messagePC305 see specific Highway messagePC306 see specific Highway messagePC307 see specific Highway messagePC308 see specific Highway messagePC309 see specific Highway messagePC310 see specific Highway messagePC311 see specific Highway messagePC312 see specific Highway messagePC313 see specific Highway messagePC314 see specific Highway messagePC315 see specific Highway messagePC316 see specific Highway messagePC317 see specific Highway messagePC318 see specific Highway messagePC319 see specific Highway messagePC320 see specific Highway messagePC321 see specific Highway messagePC322 see specific Highway messagePC323 see specific Highway messagePC324 see specific Highway messagePC325 see specific Highway messagePC326 see specific Highway messagePC327 see specific Highway messagePC328 see specific Highway messagePC329 see specific Highway messagePC330 see specific Highway messagePC331 see specific Highway messagePC332 see specific Highway messagePC333 see specific Highway messagePC334 see specific Highway messagePC335 see specific Highway messagePC336 see specific Highway messagePC337 see specific Highway messagePC338 see specific Highway messagePC339 see specific Highway messagePC340 see specific Highway messagePC341 see specific Highway messagePC342 see specific Highway messagePC343 see specific Highway messagePC344 see specific Highway messagePC345 see specific Highway messagePC346 see specific Highway messagePC347 see specific Highway messagePC348 see specific Highway messagePC349 see specific Highway message PC350 error on RTE I/O PC351 RTE refused to do I/O PC352 impossible to download MUX card PC353 no LU associated with highway PC354 HWY handler failure : wrong I/O function code PC355 HWY handler failure : I/O buffer not on a word boundary PC356 HWY handler failure : no Highway programPC360 HWY handler failure : can't arm I/O PC361 HWY handler failure : monitor dialog errorPC362 HWY handler failure : MUX dialog errorPC363 HWY handler failure : buffer created on a NIL message PC364 HWY handler failure : no available memory PC365 HWY handler failure : no match found for RETRIEVE_MSG PC366 HWY handler failure : no PC station for unsolicited PC367 HWY handler failure : buffer already allocated PC368 HWY handler failure : too many calls to create unsolicited PC370 HWY handler failure : call to service routine not allowed PC372 HWY handler failure : invalid parameter PC373 HWY handler failure : NIL sub_request  PC374 HWY handler failure : buffer exceeds maximum request size PC375 HWY handler failure : invalid parameter PC376 HWY handler failure : no buffer with sub_requestPC377 HWY handler failure : missing bufferPC378 HWY handler failure : invalid sub_request/IO_msgPC379 HWY handler failure : invalid parameter PC380 HWY handler failure : invalid callPC381 HWY handler failure : parameter length too largePC382 HWY handler failure : invalid parameter lengthPC383 HWY handler failure : invalid parameter * specific PC & highway brand messagesPC512 ????* in case of unknown (<0 or >999) status value =PC999 invalid PCIF ERROR value?DtHO5_'EM`Vcc Y5V[S`L&KTD^< K&N. / pA@4V/PCIF/RUNTIME/PCMER.ERR:::4:31:33 644 0 0 17400 5303664717 35546 /PCIF_GEN/RUNTIME/PCMER.ERR:::4:31:33 !%$ 0!PCMER ERR +i+i+iFST * PCMER.ERR 94200-17102 REV.4010 <860814.1536>* PCIF/1000 Monitor error messages file : "PCMER* Modified 860310 mja : Added MK052..MK056* Modified 860408 mja : Added MI049..MK053* Modified 860714 mja : Added MI018 (rev.4010)* (downloadable MUX) PCDMX error messages  DM000 MUX card downloaded DM001 no LU given in the run string DM002 not a downloadable card on LU DM003 FMP error on download fileDM004 invalid download file DM005 invalid DMX function code DM006 card not in download mode on LU DM007 self test error on card LUDM008 FMP error on download fileDM009 error during download on card LUDM010 card status not OK after download on LU DM011 card does not answer on LUDM012 no download file name DM013 invalid download file nameDM014 RTE exec call error = DM015 MUX card not ready on LUDM016 MUX card dialog time out on LUDM017 IDS00 : transmission error on LU DM018 write protected LU DM019 IDS00 : datacommunic((ation error on LU DM020 IDS00 : undefined error on LU DM021 illegal length of record on file for LU DM022 incorrect checksum on file for LU DM023 Z80 address out of range for downloaded code on LU!DM024 incorrect download file length specified within record on LU!DM025 unrecognized download file record format for LU DM026 no entry address specified in download file for LUDM027 IDS00 : multiple errors during download on LU  DM028 non existing LU DM029 impossible to answer to PCIF monitorDM030 PCDMX program failure * PCTMO (time out) program ERRORs TM001 invalid parameters given in call to PCTMO TM002 impossible to communicate with PCIF monitor TM003 RTE error TM004 PCTMO program failure * PCHLT (halt PCIF) program ERRORsHT001 PCOPN program not found HT002 invalid PCOPN program HT003 PCIF subsystem not startedHT004 impossible to communicate with PCIF monitor HT005 PCHLT program failure * PCIF run time monitor initialization - error messages  MI000 monitor not started MI001 error in dereferencing pointer line # MI002 undefined CASE (PASCAL) in line # MI003 not enough EMA space for this configuration MI004 NIL pointer (PASCAL) dereferenced line #MI005 PASCAL value out of range line #MI006 PASCAL IO error (error #/line #)MI007 PASCAL FMP error (error #/line #) MI008 PASCAL warning error (error #/line #) MI009 PASCAL undefined error (error #/ line #)MI010 error in loading monitor segmentMI011 missing configuration file in RUN stringMI012 no ID segment exists for the emergency programMI013 invalid configuration nameMI014 too many parameters in run string MI015 missing information messages (INxxx type) MI016 associated handler generates invalid ACTION.MI017 handler context too big MI018 configuration file name is too largeMI019 too many highways are used in this configurationMI020 configuration file not validatedMI021 file is not a configuration fileMI022 too many MUX or I/O cards on this configuration MI023 two highways of two different types on the same MUX MI024 unknown LUMI025 two LU's of one highway are on different I/O cards MI026 device status error MI027 too many PC & highwaysMI029 PCOPN program not found  MI030 corrupted PCOPN MI031 no available ID segment for PCOPN MI032 impossible to access PCOPNMI033 no available ID segment for PCDMX MI034 PCDMX program not found MI035 PCTMO program not found MI036 no ID segment for PCTMO MI037 impossible to access PCTMOMI038 no class table generated in the system (RTE CL01) MI039 class number error (RTE CL02) MI040 down LU MI041 busy LU  MI042 down & busy LU MI043 impossible to access LU MI044 no available class number MI045 some LU's needed are currently locked MI046 device driver type not supported on LUMI047 interface driver must be IDS00 on LUMI048 device driver must be DDP61 on LU MI049 Highway program not found MI050 Highway program not callableMI051 No ID segment for Highway program MI052 Highway program already scheduled MI053 No available class number for Highway program  * RTE FMP error codes FM001 DISC ERROR : disc down (FMP -1) FM005 illegal record length (FMP -5)FM006 FILE not found (FMP -6) FM007 bad security code (FMP -76) FM008 file locked or open (FMP -8)FM012 EOF or SOF error on file (FMP -12)FM013 locked cartridge (FMP -13)FM015 illegal file name (FMP -15) FM032 cartridge not found (FMP -32) FM036 lock error on device (FMP -36)FM103 disc directory corrupt (FMP -103) FM104 extent not found (FMP -104) * PCIF localizable messages (info)IN001 warning : IN002 ABORT : IN003 running IN004 stopped  IN005 aborted by operator IN006 NOIN007 YES IN008 Do you want to abort ?IN009 program is currently connected to PCIF :IN010 please answer YES or NO : IN011 continuing* PCIF run time monitor - error messagesMK001 error in dereferencing pointer line # MK002 undefined CASE (PASCAL) in line # MK003 ran out of EMA space, line #MK004 NIL pointer (PASCAL) dereferenced line #MK005 PASCAL value out of range line # MK006 PASCAL IO error # MK007 PASCAL FMP error # MK008 PASCAL warning error (error #/line #) MK009 PASCAL undefined error (error #/ line #)MK010 error in loading monitor segmentMK011 PASCAL NIL pointer dispose'd line # MK012 PASCAL invalid variant dispose'd line # MK013 PASCAL bad pointer dispose'd line # MK014 unknown error number : MK015 handler's call to a service routine during initialization MK016 wrong I/O function emitted by highway handler MK017 error in handler's call to ALLOCATE_BUFFERMK018 error in handler's call to RELEASE_BUFFER MK019 error in handler's call to SET_WINDOW MK020 error in handler's call to EXCHANGE_BUFFERMK021 error in handler's call to RETRIEVE_MSG MK022 error in handler's call to CREATE_UNSOLICITED_MSG MK023 error in handler's call to FLUSH_SUB_REQUESTS MK024 error in handler's call to FLUSH_IO_MSG MK025 error in handler's call to DEVICE_STATUSMK026 IO option not supported MK027 PCDMX program not found MK028 no available ID segment for PCDMX MK029 impossible to access PCDMXMK030 DOWNLOAD program PCDMX did not answer since 1 minuteMK031 invalid message received into PCIF class #MK032 buffer not on a word_boundary MK033 impossible to send reply OPEN cable MK034 problems in sending I/O messagesMK035 RTE refused to process I/O messages (class I/O) MK036 invalid I/O message received by PCIFMK037 MUX message received out of sequenceMK038 monitor class number disappearedMK039 a program is doing RTE EXEC 21 on PCIF class number MK040 RTE class I/O problemsMK041 monitor was aborted by operator MK042 impossible to answer to program MK043 wrong action code emitted by handlerMK044 requested buffer length too big MK045 emergency program not callable MK046 wrong stop password MK047 temporary (??) EMA shortage for request buffers MK048 EMA shortage RECOVEREDMK049 error in handler's call to FLUSH_LU MK050 two OPEN's for same program, oldest flushed:MK051 MUX powerfail recovered MK052 Highway program not found MK053 Highway program not callableMK054 No ID segment for Highway program MK055 Highway program already scheduled MK056 No available class number for Highway program g7e17@o7e1;g7e}~..1+1-.1.1!7Im.//a}~._7vZ.17J//^/+}.Ԋ197q..Ԙp.7]19l.19.1=7G7].1=177q..zV.wip.7]17gi.x.131;.7]1;._7s^W.7w[1=/PCIF/GS/HPHPHP:::4:18:34 644 0 0 11000 5303671205 34042 /PCIF_GS/GS/HPHPHP:::4:18:34 $ "HPHPHP +n3+$v+rNFST * "* MATERIAL LIST: 94200-13303 REV: 6000 CT-GET_STRT 2204"* * (SAME AS MATERIAL LIST: 94200-13504 REV: 6000 ) * * Directory: /PCIF/GS/ * Directory: /PCIF/GSWPCIF/* 94200-12100 6000 01 01 5 /PCIF/GS/FLIB1.LIB:::5:9794200-12101 6000 01 01 5 /PCIF/GS/FLIB2.LIB:::5:267 94200-12500 2525 01 01 5 /PCIF/GS/ZMNTL.LIB:::5:3194200-16500 2525 01 01 5 /PCIF/GS/SCRNS.REL:::5:1094200-16501 2525 01 01 5 /PCIF/GS/TEACHME.REL:::5:7 94200-16502 2606 01 01 5 /PCIF/GSWPCIF/COURSE0.REL:::5:88 94200-16503 2525 01 01 5 /PCIF/GS/COURSE1.REL:::5:177 94200-16504 2525 01 01 5 /PCIF/GS/COURSE2.REL:::5:7794200-16505 2525 01 01 5 /PCIF/GS/COURSE3.REL:::5:2194200-16507 2525 01 01 5 /PCIF/GS/FDBLK.REL:::5:5 94200-16508 2525 01 01 5 /PCIF/GS/FOUSE.REL:::5:2 94200-16511 5000 01 01 1 /PCIF/GSWPCIF/GMOD1.CRS:::1:50 94200-16512 5000 01 01 1 /PCIF/GSWPCIF/GMOD2.CRS:::1:10094200-16513 5000 01 01 1 /PCIF/GSWPCIF/GMOD3.CRS:::1:10094200-16514 5000 01 01 1 /PCIF/GSWPCIF/GMOD4.CRS:::1:15094200-16515 5000 01 01 1 /PCIF/GSWPCIF/GMOD5.CRS:::1:10094200-16518 5000 01 01 1 /PCIF/GSWPCIF/ABMOD1.CRS:::1:5094200-16519 5000 01 01 1 /PCIF/GSWPCIF/ABMOD2.CRS:::1:100 94200-16520 5000 01 01 1 /PCIF/GSWPCIF/ABMOD3.CRS:::1:100 94200-16521 5000 01 01 1 /PCIF/GSWPCIF/ABMOD4.CRS:::1:150 94200-16522 5000 01 01 1 /PCIF/GSWPCIF/ABMOD5.CRS:::1:100  94200-16523 5000 01 01 1 /PCIF/GSWPCIF/MAINMENU.CRS:::1:50 94200-16530 5000 01 01 1 /PCIF/GSWPCIF/GEMOD1.CRS:::1:5094200-16531 5000 01 01 1 /PCIF/GSWPCIF/GEMOD2.CRS:::1:100 94200-16532 5000 01 01 1 /PCIF/GSWPCIF/GEMOD3.CRS:::1:100 94200-16533 5000 01 01 1 /PCIF/GSWPCIF/GEMOD4.CRS:::1:150 94200-16534 5000 01 01 1 /PCIF/GSWPCIF/GEMOD5.CRS:::1:100 94200-17200 2525 01 01 3 /PCIF/GS/XFER.CMD:::3:694200-17206 2525 01 01 3 /PCIF/GS/GMLADLOG.TXT:::3:794200-17208 2525 01 01 4 /PCIF/GS/SCRNS.LOD:::4:2 94200-17209 2525 01 01 4 /PCIF/GS/TEACHME.LOD:::4:1 94200-17211 5000 01 01 4 /PCIF/GSWPCIF/PCHAB.TXT:::4:394200-17212 5000 01 01 4 /PCIF/GSWPCIF/PCPAB.TXT:::4:394200-17213 5000 01 01 4 /PCIF/GSWPCIF/PCHGM.TXT:::4:294200-17214 5000 01 01 4 /PCIF/GSWPCIF/PCPGM.TXT:::4:294200-17215 2525 01 01 3 /PCIF/GS/PSCR01.TXT:::3:594200-17216 2525 01 01 3 /((PCIF/GS/PSCR02.TXT:::3:22 94200-17217 2525 01 01 3 /PCIF/GS/PSCR03.TXT:::3:794200-17218 2525 01 01 3 /PCIF/GS/CSCR01.TXT:::3:594200-17219 2525 01 01 3 /PCIF/GS/CSCR02.TXT:::3:794200-17220 2525 01 01 3 /PCIF/GS/CSCR03.TXT:::3:694200-17221 2525 01 01 3 /PCIF/GS/CSCR04.TXT:::3:17 94200-17222 2525 01 01 3 /PCIF/GS/CSCR05.TXT:::3:794200-17223 2525 01 01 3 /PCIF/GS/CSCR07.TXT:::3:694200-17224 2525 01 01 3 /PCIF/GS/CSCR08.TXT:::3:17 94200-17225 2525 01 01 3 /PCIF/GS/CSCR09.TXT:::3:11 94200-17226 2525 01 01 3 /PCIF/GS/CSCR11.TXT:::3:894200-17232 2525 01 01 3 /PCIF/GS/COURSE.LOD:::3:294200-17233 2525 01 01 4 /PCIF/GS/ABLADLOG.TXT:::4:23 94200-17234 2618 01 01 3 /PCIF/GSWPCIF/CSCR06.TXT:::3:11 94200-17235 2618 01 01 3 /PCIF/GSWPCIF/GELADLOG.TXT:::3:14 94200-17236 2618 01 01 3 /PCIF/GSWPCIF/CSCR16.TXT:::3:1194200-17501 5000 01 01 4 /PCIF/GSWPCIF/PCHGE.TXT:::4:294200-17502 5000 01 01 4 /PCIF/GSWPCIF/PCPGE.TXT:::4:294200-17503 5005 01 01 4 /PCIF/GSWPCIF/APPA:::4:194 94200-17504 5005 01 01 4 /PCIF/GSWPCIF/APPB:::4:185 94200-17505 5005 01 01 4 /PCIF/GSWPCIF/APPC:::4:3794200-17506 5005 01 01 4 /PCIF/GSWPCIF/APPD:::4:459 94200-17507 5005 01 01 4 /PCIF/GSWPCIF/APPE:::4:5094200-17508 5005 01 01 4 /PCIF/GSWPCIF/APPF:::4:162 94200-17509 5005 01 01 4 /PCIF/GSWPCIF/APPG:::4:138 94200-17510 5005 01 01 4 /PCIF/GSWPCIF/APPH:::4:297 94200-17511 5005 01 01 4 /PCIF/GSWPCIF/APPI:::4:362 94200-17997 6000 01 01 4 /PCIF/GS/Z94200:::4:21 94200-18509 2525 01 01 3 /PCIF/GS/GMSODA.FTN:::3:45 94200-18510 2525 01 01 4 /PCIF/GS/ABSODA.FTN:::4:58 94200-18535 2618 01 01 4 /PCIF/GSWPCIF/GESODA.FTN:::4:48* * END MATERIAL LIST * 01 01 4 /PCIF/GSWPCIF/APPG:::4:138 94200-17510 5005 01 01 4 /PCIF/GSWPCIF/APPH:::4:297 94200-17511 500/PCIF/GS/FLIB1.LIB:::5:97:128 644 0 0 60400 5303667065 34326 /PCIF_GS/GS/FLIB1.LIB:::5:97:128  $a aFLIB1 LIB +n4+n5+n5a0%FST DDXTȠ7FLIB1.LIB 94200-12100 REV.6000 <921116.1547>/GARYT/REL60/B94200/GET_START/FLIB1.MAC D@ƔT;;X5rFOFLL 94250-12528 REV.6000 <920729.0943>/SRC_94250/R6000/FOFLL.FTN; CFOFLL  kIp@??X7rF_ACTIVATEFORM94250-1X528 REV.2520 <920729.0943>/SRC_94250/R6000/FOFLL.FTN?Cч F_FIELD_STORAGE AF_INFOF_FILEF_ACTIVATEFORM BB L.ENTR .CPM.SST.NFEX TRM_FORMS_USE TRM_LOCK_KYBD FRM_FIELD FRM_BASIS FMP_CLOSE FMP_OPENB~~P>>y@px`}pp`pw`@x 8A8w(2((((`J2(0(0`6y(:`(C`~vv*@77BJ{y K(O S(W Z(^ a(e`p2` `@xh `@xh=`~@xh>vyy @0u @vX>>XrF_ACTIVATERM94250-1X528 REV.2520 <920729.0943>/SRC_94250/R6000/FOFLL.FTN>ByL F_SFK_TABLE AF_INFO] F_ACTIVATERMXX w.ENTR .CPM.SST.NFEX .CBTDVR_CONFIGTRM_UNLOCK_KYBD TRM_RTE_USE2 TRM_RTE_USE1 TRM_SETUP DVR_SETUP TRM_MSG_FILEOS_LU_SETUP X  #! ~~ @@  x`p`p A`p`2(%` A p 0(3`  p`(;` ?  (CF  (J~~~"I==`p2 O  P X 0(]p2 (a`p2 g  (k`hA (s hX (~` `p2 A(2~66B((  2(( p2 6 4 "" @> "@8@@X?(1rF_DEACTIVATEFORM94250-1X528 REV.2520 <920729.0943>/SRC_94250/R6000/FOFLL.FTN@B F_FILEAF_INFOEF_DEACTIVATEFORM,,r.ENTR .CPMTRM_RTE_USE2TRM_RTE_USE1TRM_LOCK_KYBD FMP_CLOSE ,dd$00A`-pA02((`/`.p2( ($'(++ d@h??XJrF_DEACTIVATERM94250-1X528 REV.6000 <920729.0943>/SRC_94250/R6000/FOFLL.FTN? AAF_INFO  F_DEACTIVATERM --.CPM.ENTP TRM_GET_STATUSDVR_CONFIGTRM_RESET F_DEACTIVATEFORM-wwX<<` pD`DDpD@p`DE((p`GpI2((((`H+ p20(48(<AEE wpE A @V,t>>XrF_GETBUFFER 94250-1X528 REV.6000 <920729.0943>/SRC_94250/R6000/FOFLL.FTN>ChAF_INFOF_USERBUFF F_TERMBUFF0 F_GETBUFFER .ENTR .CPMMIN0.SBST .SST.NFEX   wIIA`p A 2( ( ` Ap0(0` `pA6pDHp0(O` O::P(S(X`=pp(gP(\(b`>p`=p(g`=@>pp`(kA(u(up` (w`p`((`p` ` A D`@@pAA  0: @s3>>XurF_GETINTEGER94250-1X528 REV.2520 <920729.0943>/SRC_94250/R6000/FOFLL.FTN>$$D7AF_INFOF_FIELDSF_USERBUFF F_TERMBUFF$}F_GETINTEGER!!i.ENTR .CPM.CBTMIS_CONVERT FRM_FIELD_NAME!  }}@@Axk`op t2(&(&`s -j  ` P(1(4`p `p @@npA`ihme(E`r `p @@np ` @gpf}--vO`p @@npd]hed`(b`q- *I eb  @4==XQ}rF_GETREAL 94250-1X528 REV.6000 <920729.0943>/SRC_94250/R6000/FOFLL.FTN=$$D:AF_INFOF_FIELDS F_USERBUFF F_TERMBUFF$UF_GETREAL ))Z.ENTR .CPM.CBTMIS_TO_ASCI MIS_CONVERT FRM_FIELD_NAME)  lBBAx}`p 2('('` .|  ` P(2(5` `@@p`{hAw(F` `@@p ` @ypxKKhP&&`@@pv^zwv` @ypx`@@pvozwv`(t`K 3R ##Vwt #@@>>XCrF_GETSTRING 94250-1X528 REV.2520 <920729.0943>/SRC_94250/R6000/FOFLL.FTN>$$D@AF_INFO F_FIELDS F_USERBUFF F_TERMBUFF$lF_GETSTRING //.ENTR .CPM.SBST .SST.NFEX .CBT MIS_UPSHIFT FRM_FIELD_NAME/3 P~~DDx4@p+x2`:pAA2(5(5`BAp @ (<(b ;(K(K` @+(J`A`@p (^` @+h H+p)@,0)~~~YAA(^`A`@p ` p (7(fp)A0)(y`?3`P((`<`<@@9p`0h8,(`>`<~~~AA@@9p)1D,D)5((`=(``<@@9p p p`;@+P((@ p pp  ((` p ` @.p-`-h6@~~~CC,(`;p` A@ ((` @p `p ` p (P((p  (('P((` @.p-)1J  ,)( A)1  ` @.p-)~x ,` p ` p ( $ C   **',((P ' *@9W>>XErF_INITFIELDS94250-1X528 REV.2520 <920729.0943>/SRC_94250/R6000/FOFLL.FTN> AAF_INFO |F_INITFIELDS[.ENTR .CPMFRM_INITB FRM_CLEARB  rrd<;;A`>pAD2((`Cp=AB0=("`AAp=@0=(0`?3P(7(;;r>; @ >>XrF_PUTBUFFER 94250-1X528 REV.2520 <920729.0943>/SRC_94250/R6000/FOFLL.FTN>CfAF_INFOF_USERBUFFF_TERMBUFF= F_PUTBUFFER A.ENTR .CPM.SBST .SST.NFEX   kAAx`pA 2((` Ap0(,` pA0(:` P(>(C`=pp(RP(G(MxxDG??`>p`=p(R`=@>pp`(V`@@pDD(i(lp(p`p` `@@pDD@ x 00p @@^>>XlrF_PUTINTEGER94250-1X528 REV.2520 <920729.0943>/SRC_94250/R6000/FOFLL.FTN>$$D7AF_INFOF_FIELDSF_USERBUFF F_TERMBUFF$F_PUTINTEGER!!.ENTR .CPM.CBTMIS_TO_ASCI FRM_FIELD_NAME!  }}6@@Axc`gp k2(#(#`j *b  ` P(.(1`h `h@@fp`aheA](B`i `h@@fp ` @_p^`h}GN@@fp\Z`]\ *I ]Z @1P==XXtkrF_PUTREAL 94250-1X528 REV.2520 <920729.0943>/SRC_94250/R6000/FOFLL.FTN=$$D7AF_INFOF_FIELDSF_USERBUFF F_TERMBUFF$_F_PUTREAL !!.ENTR .CPM.CBTMIS_TO_ASCI FRM_FIELD_NAME!  }}  @@A xb`fp j2("("`i )a  ` P(-(0`g `g@@ep``hdA\(A`h `g@@ep`@^p]`g}<M@@ep[Y_\[ 3R \Y @{>>XOrF_PUTSTRING 94250-1X528 REV.2520 <920729.0943>/SRC_94250/R6000/FOFLL.FTN>$$D:AF_INFOF_USERBUFF F_TERMBUFF F_FIELDS$sF_PUTSTRING !!.ENTR .CPM.LBT.SBT.CBTFRM_FIELD_NAME!   }}4DDxֈx@pˈ`p A2(,(,` Àp0(?` F ` P(J(M` `݀ @@p}DT@@A`h(^` pA(e(v`@pψA`h(r(p(r``p(`(z `݀ @@p`݀ @@p Ap ((`@phooF66h`p`p( ((` p `(p p` @@Ap ((`@p`@ˈHphhH`p`p(o  $C --.  P -@>>Xċ@rF_SETCURSOR 94250-1X528 REV.2520 <920729.0943>/SRC_94250/R6000/FOFLL.FTN> AAF_INFO FF_SETCURSOR -.ENTR .CPMFRM_FIELD_NAMEHIgg 44 x:`;p A?2( ( `> '9  ` P(+(.`= ` P(2(5`< `p;7g@RqT@@X3rF_SHOWALTERNATE 94250-1X528 REV.2520 <920729.0943>/SRC_94250/R6000/FOFLL.FTN@BAF_INFO F_FIELDS9F_SHOWALTERNATE 77 {y.ENTR .CPM.LBT.SBT.CBT UTL_WRITE TRM_ERROR UTL_INIT_BUFFRM_FIELD_NAME7   QAAAx`p 2(#(#` * ` P(.(1` p0(?` ` @@pP(J(\hh`~~O==h(V(Y(Yp([pH(mhhH`h(h(k(kp(mpo s  v(z hHHh` @@h` P((`9@p9~_(`7@p7 3R /N !!$    !@>>XrrF_SHOWFIELDS94250-1X528 REV.2520 <920729.0943>/SRC_94250/R6000/FOFLL.FTN> AAF_INFO vF_SHOWFIELDS22.ENTR .CPMTRM_DSUNP TRM_DSDISPTRM_DSWDW TRM_DISP_RESETTRM_REQ_ERR 2~~==`mpq2((`ppln0l( `o`9(,&(*p9`7(82(6p7`4(D>~[[w,>..(B p4p;hn 0(XT(Xhn 0(jf(j[mj@s53==X]ErF_SHOWFORM94250-1X528 REV.2520 <920729.0943>/SRC_94250/R6000/FOFLL.FTN= AAF_INFO d'F_SHOWFORM&&2.ENTR .CPMTRM_DSFKTRM_DSWDW TRM_DSPTXTTRM_SHOW&~~n;;A`ApAD2((`C p6p4 p5p7 p:p; p?p@$((+(/2(69(=~< `Bp2? @==XY_*rF_SHOWHELP94250-1X528 REV.2520 <920729.0943>/SRC_94250/R6000/FOFLL.FTN= AAF_INFO `(F_SHOWHELPC.ENTR .CPMTRM_SHOWHELPOOpl))A%`'pA)2((`(5%(! p?#O@@@X=~rF_SHOWSFKLABELS 94250-1X528 REV.2520 <920729.0943>/SRC_94250/R6000/FOFLL.FTN@ByQ  F_SFK_TABLE AF_INFOC F_SHOWSFKLABELS DD .ENTR .CPM.CBT UTL_WRITE TRM_PACK_ESC TRM_PAINT TRM_DSFKAT4 TRM_DSFKAT2 UTL_INIT_BUFTRM_DSFKD  ~~iBBA x`p 2((` pA0(0` `P  (=` p@(JE  (I(~zz|J<<LO`h(W(\(\[(j ^A`h(f(j(j jm p  (`p6p(|(`@h`p(w z 7V 2 &&  0[ 0 & $&@$C>>XrF_SHOWINDOW 94250-1X528 REV.6000 <920729.0943>/SRC_94250/R6000/FOFLL.FTN> AAF_INFO 5F_SHOWINDOW GG .ENTR .CPM.SBST .SST.NFEX TRM_DSWDW UTL_WRITE TRM_PACK_ESC UTL_MOVETB TRM_PREP_ENHUTL_INIT_BUFGP$%j51LL12x`p0A42(G(G`A403p30(Z`4011 0(i`401(m(AAA33\\S},,A   44(`p4( 44(`p45\1 PPPZ@>>XrF_WAITEVENT 94250-1X528 REV.2520 <920729.0943>/SRC_94250/R6000/FOFLL.FTN> AAF_INFO P F_WAITEVENT QQ .ENTR .CPM TRM_RESET_READS TRM_DSWDW TRM_REQ_ERR TRM_ANALYZE TRM_READRQUTL_WRITE UTL_TAB TRM_PACK_ESCUTL_INIT_BUFQ  ~~y@@A`pA 2((`A 0(&` `?(8+.1;4  (8p?p`(|pG ~~~tG99 ({P(y`P(Q(x U  (x`P(\(_p(x`9(j ((e  (jp9 (x`4(x s  (x p4({p?(< ( ~ #  @$Ch@@XrF_DEFINELOCALSFK94250-1X528 REV.2520 <920729.0943>/SRC_94250/R6000/FOFLL.FTN@ByV F_SFK_TABLE AF_INFO$3:F_DEFINELOCALSFK HH .ENTR .CPMMOD .SBST .SST.LBT.SBT.NFEX .CBTUTL_WRITE TRM_PACK_ESC UTL_MOVETB UTL_INIT_BUFH    &f1a k16d +    0 &a c R &dvs &d@22230110192844536271o4KK45x6x`p39h}HHhh}HHhh}HHhh}HDh2(_(_`93z4Apo40o(r`A93z7po7kKK0o(`A9388 0(`934@p07Ap27p1o H`0@h{D ozDoH`2D@h{ Hoz`h poxpo@op~~)DD`1@h{A oz  `h z(((  - - 7-8P((  (g`v@pooDo Jo  -~~~KHH 7-`h z((g(gp/`ps`,poAo,o`/@A@ypw ov`+pooH+o`0@@xpw Jov F-@/#p.`@hH.poxpp~33SVJ.p ^op- c -8/8s( jm9:3 #B - L 7V 2 XX8t22  D@ < 5,  P < , P[  P m  X@???X<rF_GETFIELDINFO94250-1X528 REV.2520 <920729.0943>/SRC_94250/R6000/FOFLL.FTN?C` F_FIELDSF_FIELD_STORAGE AF_INFOF_GETFIELDINFO%%@g.ENTR .CPM.SCO.SST .LBT.NFEX .MBT.CBT%  FFx(x&@px$`2p;2(2(2`:p0(@`9pA'+(K(R`3%+DWEE@#+p`8p`@ 88(^(lp(pD)+p`*h(A%((`p`3@1p`3@0p`3@/p`32pCC@.p(r`*h(%(`3(`3@1p`3@0p`3@/p`3@.ph&`*A %`3@ @-p`$p Ah `" `3@ @-wwo88`6@p`3@ @-`$Hph P7((`@h6H(`@h6Hp`=`5@p`3@ @-`4@p`3@ @-w<<l  8  D$ <@f>>XrF_SHOWFIELD 94250-1X528 REV.2520 <920729.0943>/SRC_94250/R6000/FOFLL.FTN>00E F_USERBUFFF_TERMBUFFF_FIELDSF_FIELD_STORAGE AF_INFO0UF_SHOWFIELD ?? +.ENTR .CPM.SST.NFEX .CBT UTL_WRITE TRM_PACK_ESC UTL_MOVETB TRM_POS_CUR UTL_INIT_BUF? DDx`pA2($($``(*`pAJp`h(?(_`p`@p`@p`}})/T@@@p`@p(0`h(i``@@p `@@p `@@p `@ @p       }P ++ 8+@P??XurF_GETDINTEGER 94250-1X528 REV.2520 <920729.0943>/SRC_94250/R6000/FOFLL.FTN?$$D7AF_INFOF_FIELDSF_USERBUFF F_TERMBUFF$F_GETDINTEGER ## .ENTR .CPM.CBTMIS_ASCII_TO_DINFRM_FIELD_NAME#  kH BBA xi`mp nt2(&(&`s -h  ` P(1(4`p `p@@lp`ghkAc(E`r `p@@lp`@epd**O`p@@lpb[cb`(``q* %D ##c` #@??XhrF_PUTDINTEGER 94250-1X528 REV.2520 <920729.0943>/SRC_94250/R6000/FOFLL.FTN?$$D7AF_INFOF_FIELDSF_USERBUFF F_TERMBUFF$F_PUTDINTEGER ##.ENTR .CPM.CBTMIS_DINT_TO_ASCIFRM_FIELD_NAME#  }} @@A x_`cpg2(!(!`f(^  ` P(,(/`d`d@@bp`]haAY(@`e`d@@bp`@[pZ`d}L @@bpXVYX  %D YV @Sr==XBB+rF_ENABLEMA94250-1X528 REV.2520 <920729.0943>/SRC_94250/R6000/FOFLL.FTN=BFOEMA_USE AF_INFOIF_ENABLEMA .S.ENTR .CPM IIǶ$$A`&pJ2*((`)p%A(0%(!`'pIY&#' @x藨OWSFKLABELS DD .ENTR .CPM.CBT UTL_WRITE TRM_PACK_ESC TRM_PAINT TRM_DSFKAT4 TRM_DSFKAT2 UTL_INIT_BUFTRM_DSFKD /PCIF/GS/FLIB2.LIB:::5:267:128 644 0 0 205400 5303667066 33640 /PCIF_GS/GS/FLIB2.LIB:::5:267:128 !$ 4 FLIB2 LIB +n6+n6+n6 E`TFST DDXoȠ7:FLIB2.LIB 94200-12101 REV.6000 <921116.1548>/GARYT/REL60/B94200/GET_START/FLIB2.MAC D@ʯo;;X+rFLULB 94250-12523 REV.6000 <921002.1056>/SRC_94250/R6000/FLULB.FTN; @FLULB  kIp@״==X|7rTRM_SETUP 94250-1X543 REV.5010 <880930.1648>/SRC_94250/R5010/FOTRM.FTN=''DAF_INFOF_SFK_STORAGE F_USERBUFFF_TERMBUFF'|^dTRM_SETUP ss˶.ENTR .CPM .SST.LBT.SBT .NFEX .MBT .CBTDVR_RDBLK DVR_INFORMUTL_WRITE TRM_PACK_ESCUTL_INIT_BUFTRM_RTE_USE2 TRM_GETYPE TRM_CHECK2645ATRM_RTE_USE1TRM_LOCK_KYBD s,,'/22A23A24B26A27A82A47A47F48A92A20A50A24A45A93A94A97A90A82, 0,NL 0/!NL 04$NN 55'SL 58*SL 0;-NL 0>0NL 0A3NL 0F6NN 0G9NL ab2NL2 ae"2NL2 ah%2NL2 cr(4SL4 cn+4NL2 aq.2NL2 a{12SL4 aw42NL2 cz72NN2 ((@;__(bAAbbx`p[`p``p]`hH`hH`h`h`hH`hc`pJ0(`c(Ap0(`@@c(`pJ0(`cc([cc([cc(Ā[cp  J  cc(Ԉ``h  ( cc(`dAAA`h  (((`c`p__((.`耀_@p`h ((*(*h``_p`耀_@phHHh`_@pބhh`耀_@Hphh@R$<< `_@p`p_`_p_(`(Fh` phhhhhh`;pc(J[Mcc(Q[P(U(cY\P_N~~9`;;bcc(f]icc(m]`pС((xSTcc(|]Jp\((`p\pp(p_J_((`_@pވ`_@phH@h~ooiS55`_p_(OQcc(]cc(]`PR((^cc(Ũ]`\(`\cc(Ψ[do :2 #B (LL2622A 26212645A  P`>=;:9<  :FJH 0$L@B??X rTRM_LOCK_KYBD 94250-1X543 REV.2520 <880930.1648>/SRC_94250/R5010/FOTRM.FTN? AAF_INFO TRM_LOCK_KYBD .ENTR UTL_WRITE TRM_PACK_ESCUTL_INIT_BUF  773A`p (7@*-H@@XbrTRM_UNLOCK_KYBD 94250-1X543 REV.2520 <880930.1648>/SRC_94250/R5010/FOTRM.FTN@ AAF_INFO eTRM_UNLOCK_KYBD .ENTR UTL_WRITE TRM_PACK_ESCUTL_INIT_BUF  773A`p (7@==XlFrTRM_GETYPE94250-1X543 REV.2520 <880930.1648>/SRC_94250/R5010/FOTRM.FTN=B F_USERBUFF F_TERMBUFFp,TRM_GETYPE 113.ENTR .CPM.LBT.SBTDVR_READUTL_WRITE TRM_PACK_ESCUTL_INIT_BUF1  qq99xD@Dp=`Ep(#(;pA(-(;`@=pA`@Bp?h?HHhA`p((qy>;@???X:rTRM_CHECK2645A94250-1X543 REV.2520 <880930.1648>/SRC_94250/R5010/FOTRM.FTN?BF_USERBUFFF_TERMBUFF} TRM_CHECK2645A).ENTR .SST.NFEX .MBTTRM_GET_STATUS  EE%%x2`9pA173( `3(*h2`6A1 Eϫ- 2645A  Z`*@_p~0??X[VrTRM_GET_STATUS94250-1X543 REV.2520 <880930.1648>/SRC_94250/R5010/FOTRM.FTN?B F_USERBUFF F_TERMBUFF TRM_GET_STATUS 113.ENTR .CPM.LBT.SBTDVR_READUTL_WRITE TRM_PACK_ESCUTL_INIT_BUF1  @@AxQ@QpJ`Rp@`ShQ((`Up( `Tp"%((,0(Hp(:(H`@JpN`@OpLhLhND`p(5}iK H "!@>\>>X$rTRM_RTE_USE194250-1X543 REV.2520 <880930.1648>/SRC_94250/R5010/FOTRM.FTN> AAF_INFO xTRM_RTE_USE1&&.ENTR DVR_INFORMUTL_WRITE TRM_PACK_ESCUTL_INIT_BUF&  EE+!!A`#p ((!!E@jv>>XrTRM_RTE_USE294250-1X543 REV.2520 <880930.1648>/SRC_94250/R5010/FOTRM.FTN> AAF_INFO xTRM_RTE_USE2^t.ENTR TRM_CONFIG2   ((|(A`p((@L ??XrTRM_FORMS_USE 94250-1X543 REV.2520 <880930.1648>/SRC_94250/R5010/FOTRM.FTN? AAF_INFO  TRM_FORMS_USE 2f.ENTR TRM_CONFIG2 TRM_RTE_USE1  66A`p ((6@U>>XrTRM_CONFIG2 94250-1X543 REV.2520 <880930.1648>/SRC_94250/R5010/FOTRM.FTN> AAF_INFO PTRM_CONFIG2 338<.ENTR .CBTUTL_WRITE TRM_PACK_ESCDVR_STRAPSDVR_SEPARATOR UTL_INIT_BUF3 # %==`p"`P(&(*) (-- `h(5(8(88:`P (>(AA`P  hX  0hX 0(TppQ66TWP([(m^`h(f(l(lil(~p`h(x(~(~{~(p 2 /N   $@ "@ @==Xz\NrTRM_RESET 94250-1X543 REV.2520 <880930.1648>/SRC_94250/R5010/FOTRM.FTN=''DAF_INFOF_SFK_STORAGE F_USERBUFF F_TERMBUFF'}TRM_RESET DD =z.ENTR .CBT TRM_UNLOCK_KYBD UTL_WRITE TRM_PACK_ESCUTL_MOVETBUTL_INIT_BUFTRM_RTE_USE2TRM_RTE_USE1D  >>A`Mp`Lp(( P( (="'JF`IhGF(/(2(2 2 5(9(= @]B(D 2 lF @ p9D@?>>XxrTRM_MSG_FILE94250-1X543 REV.2520 <880930.1648>/SRC_94250/R5010/FOTRM.FTN>BF_MSSGF_FILEeTRM_MSG_FILECC 4.ENTR .CPM .ARTN .SBST .SST .INDX .LBT.SBT.NFEX .MBTFMP_CLOSE FMP_READFMP_OPENC   FO--MSG- >> 88M~''FR001 FR002 FR003 SHIFT1 SHIFT2 SHIFT3 SHIFT4 End of FORMS ACCESS ROUTINES8udBBAd`op_`np\A`mpbcidH`shf`rhXc`dd(`_dbp[A[((4KgH`[@lp99a`dd(`_d`p[(0`[ @2HH Yap^_A Y_p^_`p@[T@VpU YTp^_`q@[#@SpR YQAp^_ Y]p^`^(`p[`_d(0`[ \`_@^@PpO BBhO h\\`p@[I@MpJhJ`L I\`q@[&@HpG`Q@^p9 9YD9wHF9\Ap]v]((,`]@kH]p9`uhpH]@9`]p](`t0p\Q0 `[p[(7e  - dd7O<<< FOLCL.TXT::F1000 @PP`" `!2"P`"Z$ @vxzy70-+Hd@1PI<<XLrTRM_SFK 94250-1X543 REV.2520 <880930.1648>/SRC_94250/R5010/FOTRM.FTN< AAF_INFO " TRM_SFK  c.ENTR .CPMUTL_PACKa2LllK :: `Hp p J ((#` @Gh HF` p ( hI  0(22`K hI  0(C pC lmFC@i>>XʷarTRM_PACK_ESC94250-1X539 REV.6000 <920728.1544>/SRC_94250/R6000/FOTR0.FTN>˜KTRM_PACK_ESC.ENTR UTL_PACKZ-``*s^jkd_&q4te2{0Z&s1j1K&s0j0K&s1L&s0L&k0M&jR&k0K&jS&k1K&jB&q4te2{30f29R&q4te2{31Xr```f30RKHUZbckXRm&s0d0g0H&k0a0B&k0LHJ4BD5H*ddlteQ&s0a0b0CZ&k0ARmkXW&k]``1B&s0D&k1B&s1D&k0B&s0DHJ&j@&k0Z^~&s0a0b0C&s0C&s1C $).3<EIWegkmoq;; ))  +   ;((JAJJ@`JH_H^p\x]Z\]K( R^# @<<X5rTRM_SHOW94250-1X540 REV.2520 <921002.1652>/SRC_94250/R6000/FOTR1.FTN< AAF_INFO &TRM_SHOW ##x.ENTR .CBTUTL_WRITE TRM_PACK_ESCUTL_INIT_BUF# # RRZ))A`4p`Pp/`3h10(#0/(**-R 2 0 @-@Đ==XdrTRM_DSPTXT94250-1X540 REV.2520 <921002.1652>/SRC_94250((/R6000/FOTR1.FTN=AAG F_FILE_PARAMF_FIELD_STORAGE AF_INFOYF_FILEF_FIELDS F_USERBUFFF_TERMBUFFAqOTRM_DSPTXTFF $.ENTR .CPM.SBT.CBTUTL_WRITE UTL_MOVETB UTL_CLEAN_MOVE TRM_POS_CUR UTL_INIT_BUF FOMOV FMP_READF.@ FO &   ~~?;>>A`pH`h`͈p`h(,(/(/`p (1 `p @pp p (=(`pH(P` p `(`p~#U==(W(`ǀ@@P (`(`@@p`ǀ@@p@p`ǀ@@p  (`p`p`p(R   `h@HHE##(((`@p  ((` p ` p (8H 4 S 7 V --$ p"  Y [v-@J==XkEWrTRM_DSWDW 94250-1X540 REV.6000 <921002.1652>/SRC_94250/R6000/FOTR1.FTN=--E-F_FILE_PARAMYF_FILEAF_INFO F_USERBUFF F_TERMBUFF-wTRM_DSWDW <<.ENTR UTL_WRITE TRM_PACK_ESC TRM_POS_CUR UTL_MOVETBTRM_PREP_ENHFMP_READUTL_INIT_BUF<0 $%FO~~u::A`Tp `Vp `p "`1P(&(<.  (4`U 6 ; R (G`4P(@(G D+G~ mHJM P p"P @"A<<XT{rTRM_DSFK94250-1X540 REV.2520 <921002.1652>/SRC_94250/R6000/FOTR1.FTN<%%D F_SFK_TABLE F_FILE_PARAMAF_INFOF_FILE% TRM_DSFK DD .ENTR .CPM .CBTUTL_WRITE TRM_PACK_ESC TRM_PAINT TRM_DSFKAT4 TRM_DSFKAT2 UTL_INIT_BUFFMP_READD,FOD ==A `yp `@@p    ($`P(*`z p `p (3(@` @xhHw` p `p(.B EA`vht mIIJ""(M(R(R Qm(` T`rhpA m(\(`(` `m cf  (jI 7V 2 ""fm P" 0[ 0j"@W==XR^rTRM_DSDISP94250-1X540 REV.2520 <921002.1652>/SRC_94250/R6000/FOTR1.FTN=00EAF_INFOF_FIELD_STORAGE F_FIELDS F_USERBUFF F_TERMBUFF0`6TRM_DSDISP..|p.ENTR UTL_WRITE TRM_PACK_ESCUTL_MOVETBTRM_POS_CUR UTL_INIT_BUF.  x AAA `\p  `( `p`(P`]@@[p `]@@[p 5 `]@@[p `]@@[pH Y`]@@[N p( SV Y  V@/@N==X`FIrTRM_DSUNP 94250-1X540 REV.2520 <921002.1652>/SRC_94250/R6000/FOTR1.FTN=00EAF_INFOF_FIELD_STORAGE F_FIELDS F_USERBUFF F_TERMBUFF0n TRM_DSUNP &&.ENTR UTL_WRITE UTL_MOVETBTRM_PACK_ESCUTL_INIT_BUF&o I mm8 66A `Gp  `( `p ` (>`H @@Fp `H @@Fp 6 D `H @@Fp ( A mD A@Qp>>XrTRM_PREP_ENH94250-1X540 REV.2520 <921002.1652>/SRC_94250/R6000/FOTR1.FTN> AAF_INFO Ǖ*TRM_PREP_ENHxJ.CPMMOD .LBT.SBT.CBTUTL_PACK&a00r0C&d@&v00S{*@@*p*`p(`p&p'&'(8(B`'@h'H`'p'(3 @+h@p @+pwQw@HphhyH`hx(_(b(b`p&(qA`}h{x(j(o(o##rj `.@p(q`p&u&*# 0%N 0$N &&$x J  YH  X Zu 0 &@??X0erTRM_DISP_RESET94250-1X540 REV.5000 <921002.1652>/SRC_94250/R6000/FOTR1.FTN?Cf AF_INFOF_FIELD_STORAGE F_FIELDS TRM_DISP_RESET33.ENTR .LBT.SBT.CBT UTL_WRITE TRM_PACK_ESCTRM_FLD_ENH UTL_INIT_BUF3 ( ??A `cp  `p`(S`d@@bp`]ha\(+(K(K/Hh_h]H`d@@bh @ 7p 7` 7(Cp(J`d@@b**uIp(R`d@@bp(V Y  * 3R /N X\   Y@˟>>XtyrTRM_DSFKAT2 94250-1X540 REV.2520 <921002.1652>/SRC_94250/R6000/FOTR1.FTN>ByN F_SFK_TABLE AF_INFOw#TRM_DSFKAT2 ''%#.ENTR .CPMTRM_PACK_ESCTRM_SFK UTL_MOVETBUTL_PACK' &f2ak16d o~~ !AA!!r`vp p(3(=`@uhHt`p(."p`xpDp(K(i`w@pRV[r`@pb~%%b`@p`p(Flo#%ro0@3O>>XvJrTRM_DSFKAT4 94250-1X540 REV.2520 <921002.1652>/SRC_94250/R6000/FOTR1.FTN> A F_SFK_TABLE bTRM_DSFKAT4 .CPMTRM_SFK UTL_PACK &f2akoffVg11p`Hpp  ( (*` @Gh HF` p (p J (1(C`I@ p8 `@ p ? ` p (,f F C0 @!==Xd~rTRM_PAINT 94250-1X540 REV.2520 <921002.1652>/SRC_94250/R6000/FOTR1.FTN=ByMAF_INFO F_SFK_TABLE r%TRM_PAINT )).ENTR .CPMTRM_PACK_ESCUTL_PACKUTL_MOVETBTRM_POS_CUR )--&dB&d@CCCCCCCC-!#@@##x@p`p"$p$p p(;(`@pBp!!(I(xMR `@P!(Y(^](q`!P(b(j`TTc%%@pi(q`@pq`!p!`@ p (D`@p `p(6`P((%T @\{R>>XarTRM_POS_CUR 94250-1X540 REV.2520 <921002.1652>/SRC_94250/R6000/FOTR1.FTN>xTRM_POS_CUR .ENTR .CPMMOD UTL_PACK &a00r00C}}<EE`]pp(#(-`@\hH[`p(h`@_p pZ<Z`@_p^(T(Th`@_ppZRZ`@_pX }[ X0 @~>==XcrTRM_READRQ94250-1X541 REV.2520 <920728.1548>/SRC_94250/R6000/FOTR2.FTN= C F_SFK_TABLE F_FIELD_STORAGE AF_INFO j-TRM_READRQ]] .ENTR .SBT .IBTS DVR_RDBLK TRM_SETUP_BLKRD UTL_WRITE TRM_PACK_ESCUTL_INIT_BUFTRM_LOCK_KYBD DVR_WREAD TRM_UNLOCK_KYBD TRM_SETUP_WREAD ] RE??`p ``hJ`h&(* -(1 5(9 <(@ BE H(L `P(PPO@@(S` `P(W(Z`(c`@`@@pA PhX 0( t(x ` (`P((p    ( ` AAs9(` ( < ( ` P<((`(`A  2  H@>>XDrTRM_ANALYZE 94250-1X541 REV.2520 <920728.1548>/SRC_94250/R6000/FOTR2.FTN>BF_FIELD_STORAGE AF_INFO\ TRM_ANALYZE (('.ENTR FRM_COMPLETETRM_ERR_CASEFRM_PARSE FRM_TYP_CHECK (.H{{jQ<<`Cp `(  (`P(((#(.`)  (-(A1`P(?`:  (>(AA A{@:Y>>XHrTRM_ERR_CASE94250-1X541 REV.6000 <920728.1548>/SRC_94250/R6000/FOTR2.FTN>C F_MSSG F_FIELDSAF_INFO TRM_ERR_CASE<<n.ENTR UTL_WRITE UTL_TAB TRM_PACK_ESCUTL_MOVETBTRM_PREP_ENHUTL_INIT_BUFTRM_REQ_ERR < $%P~~ >> `Gp    ( "$`D @FpE.D147: :  (> `p4p: PB~@@@XV$rTRM_SETUP_WREAD 94250-1X541 REV.2520 <920728.1548>/SRC_94250/R6000/FOTR2.FTN@\TRM_SETUP_WREAD &&.ENTR DVR_INFORMUTL_WRITE TRM_PACK_ESCUTL_INIT_BUF&  EE+!!A`#p ((!!E@ @@XG# rTRM_SETUP_BLKRD 94250-1X541 REV.2520 <920728.1548>/SRC_94250/R6000/FOTR2.FTN@MTRM_SETUP_BLKRD &&.ENTR DVR_INFORMUTL_WRITE TRM_PACK_ESCUTL_INIT_BUF&  ??@A`p ((?@8|@@X] rTRM_RESET_READS 94250-1X541 REV.2520 <920728.1548>/SRC_94250/R6000/FOTR2.FTN@dTRM_RESET_READS &&.ENTR DVR_INFORMUTL_WRITE TRM_PACK_ESCUTL_INIT_BUF&  ??@A`p ((?@Gsf3>>XrTRM_REQ_ERR 94250-1X541 REV.2520 <920728.1548>/SRC_94250/R6000/FOTR2.FTN>CbAF_INFOF_FIELD_STORAGE F_FIELDScTRM_REQ_ERR 33.ENTR .LBT.SBT.CBT UTL_WRITE TRM_PACK_ESC TRM_FLD_ENH UTL_INIT_BUF3 `@@A`p `p `8@9p ` h (x` @ @p`hA(p`h(@(G(G`phHHh(bA`h(O(Y(YttRO77`ph h@9p9(b`phh`9p9 f @ p ` @ @h` @ @p (!{ ~( p8t 3R ,K %D /N    @lM>>XrTRM_FLD_ENH 94250-1X541 REV.2520 <920728.1548>/SRC_94250/R6000/FOTR2.FTN>BAF_INFOF_FIELDS|%TRM_FLD_ENH "".ENTR .LBT.SBT.CBTUTL_PACKTRM_POS_CUR "\ &d@&v00S #AA#`p!`pp `(=p` @h H8 8(3`$@@p`$@@p`$@@phHPHphP0(c@puugd::g`$@@p#@phh`hA(~((`p(`h(((`#p`$@@@p (`p%u /N /N 00 8pY6pX in0 0@멫==XbrTRM_ERROR 94250-1X542 REV.2520 <850607.1308>/SRC_94250/R5000/FOTR3.FTN=nTRM_ERROR Q`.ENTR TRM_PACK_ESCTRM_FLD_ENH   ))`p )@Z#==XYrTRM_DSPHLP94250-1X542 REV.2520 <850607.1308>/SRC_94250/R5000/FOTR3.FTN=B AF_INFO YF_FILEe@TRM_DSPHLPII ".ENTR .CPM.SBT .CBTUTL_WRITE UTL_MOVETB UTL_CLEAN_MOVETRM_POS_CUR UTL_INIT_BUFFMP_READTRM_PACK_ESCIQ  & mDDA@p`p`p`h'*@@p269(=Ap   (H(` pS{{*U??(Y` p ([`@ pb`h (j(r(r q (w w z(` p ` p (Ch 0({ - L t "   v@h>>X2rTRM_CONF_HLP94250-1X542 REV.2520 <850607.1308>/SRC_94250/R5000/FOTR3.FTN> AAF_INFO w TRM_CONF_HLP-- .ENTR UTL_WRITE UTL_PACKTRM_PACK_ESCTRM_POS_CUR UTL_INIT_BUF- UJPP (( `1p   P((%!$(,(,/  /P@ *??XrTRM_QUICK_HLP 94250-1X542 REV.2520 <850607.1308>/SRC_94250/R5000/FOTR3.FTN?TRM_QUICK_HLP .ENTR UTL_WRITE TRM_PACK_ESCUTL_INIT_BUF  ))LA`p )@Vu{>>X`rTRM_SHOWHELP94250-1X542 REV.2520 <850607.1308>/SRC_94250/R5000/FOTR3.FTN>TRM_SHOWHELP--5.ENTR TRM_CONF_HLPFMP_CLOSE TRM_DSPHLPFMP_OPENTRM_QUICK_HLP -  BB`ကppP(((((`(ň`p""(`(ۈ``"@0==XNrFRM_FLDPTR94250-1X532 REV.2520 <850607.0818>/SRC_94250/R5000/FOFRM.FTN=$$D|F_FIELDSF_FILEF_USERBUFF F_TERMBUFF$U@FRM_FLDPTRF.ENTR .CPM.LBT.SBT.CBT V DDA `p P((# @@(-@@@@ @@ ` @@ ` @@HH` @@p`h(R}}XQ@@p`h(\0(` @@p ` @@p `p pA (z(` @p` @phHHh` p ` p `p(u@@}$$HHp`x @@$ Ji *I ))CL p!  ?)@l??XK}rFRM_FIELD_NAME94250-1X532 REV.2520 <850607.0818>/SRC_94250/R5000/FOFRM.FTN?))D]F_FIELD_STORAGE F_FIELDSF_USERBUFFF_TERMBUFF)FRM_FIELD_NAME.ENTR .CPM.CBT   ~~ AAA  xu`yp ` p`p {(#(p` (j`z @@xp`pr`z @r@xp`{@pr`z @r@xp`|@pr`z @r@x~SSL&&p`whut(_`z @@xp (i` `  `p `{p(%`p `p(St p@Dc??XGrFRM_TYP_CHECK 94250-1X532 REV.2520 <850607.0818>/SRC_94250/R5000/FOFRM.FTN?B8F_FIELD_STORAGE F_FIELDS6FRM_TYP_CHECK %%Z.ENTR .CBTFRM_POS_FLAGUTL_GET_FIELD UTL_INIT_BUF% ~~s\4AA4`p354Ap/`p0`0(M21`0@@P2(Z`5p0(`0@@p`1Pp`hA(n(xv0~%%H*u/`4`0@@p0`/p/(E6% 3R    @޸>>XBrFRM_POS_FLAG94250-1X532 REV.2520 <850607.0818>/SRC_94250/R5000/FOFRM.FTN>BAF_INFOF_FIELDSFRM_POS_FLAG.ENTR .LBT.SBT.CBT  bb00`@p`:(p:`A@@?p`8h>7(!()()h/SRC_94250/R5000/FOFRM.FTN=B8F_FIELD_STORAGE (( F_FIELDS^(8FRM_PARSE ;;}h.ENTR .LBT.CBT FRM_POS_FLAGMIS_CONVERT MIS_ASCII_TO_DINUTL_GET_FIELD UTL_INIT_BUF;  ~~17BBA7`p67A`p-p.`-(M25`-@@p`h(ohP(`(gf237(oo21/77P(s(~`-@@~""yp-`.p.( -.p-(E8" $C    D@9>>XTrFRM_COMPLETE94250-1X532 REV.2520 <850607.0818>/SRC_94250/R5000/FOFRM.FTN>00EAF_INFOF_FIELD_STORAGE F_FIELDSF_USERBUFF F_TERMBUFF0mFRM_COMPLETE).CPM.LBT.SBTUTL_INIT_BUF  ~~-;;p`Rp`p`(Hp`S@@Qp`S@@QpA()(=`@PpN`3@OpLhLHHhN`p`3p3`p ($`3p3`S~C@@Qp(K H@mw==XJxWrFRM_CLEARB94250-1X532 REV.2520 <850607.0818>/SRC_94250/R5000/FOFRM.FTN=((D;AF_INFOF_FIELD_STORAGE F_USERBUFFF_TERMBUFF(QFRM_CLEARB  l.ENTR .SBT  a@@A`UpPX 0(+`(+p`=(+pQ`@TpS`VhSH88Q(!PX 0(M`=pp`>(MpP`@TpS`VhS F `p88P(@hRPM @==XDrFRM_INITB 94250-1X532 REV.2520 <850607.0818>/SRC_94250/R5000/FOFRM.FTN=CaF_FIELD_STORAGE AF_INFO F_FIELDSK  FRM_INITB "".ENTR .CPM.LBT.CBTFRM_INCOM FRM_INITV "    AA `|p  P((S`@p `(Np(%(N`~@@{p`xhzw(4HpvhxP}0v(JC  (J` `pggJ,,`p(  (R(t P(W(f`(e_/  (e` (t`(tn0  (t`  g *I Kw  ti@==XIhYrFRM_INCOM 94250-1X532 REV.2520 <850607.0818>/SRC_94250/R5000/FOFRM.FTN=BAF_INFOF_FIELDSP FRM_INCOM  }.ENTR .LBT.CBTFRM_INITV   -DDA`Vp (N p`(N`W@@Up`RhTQ()pPhRHPX0P(F8  (>p(E`W@@Up(M`W@@UCLp(  *I Q Ni@6==XXq]rFRM_INITV 94250-1X532 REV.2520 <850607.0818>/SRC_94250/R5000/FOFRM.FTN=..ElgF_FILE_PARAMF_FIELDSF_FILE F_USERBUFF F_TERMBUFF._  FRM_INITV 9.ENTR .CPM.LBT.SBTFMP_READ *!FO ~~? @@A `Yp ` @[p     ($p`\p`Z @@Xp`Z @@XpA(;(O`@WpU`@VpShSHHhU`p`~ Jp`p(6 KR @!O?@ӭm==XXrFRM_BASIS 94250-1X532 REV.2520 <850607.0818>/SRC_94250/R5000/FOFRM.FTN=99FkF_FILE_PARAM F_FIELD_STORAGE AF_INFOF_FILEF_USERBUFF F_TERMBUFF9^ FRM_BASIS .ENTR .CPM .LBT.SBT .CBTFMP_READ (FO }}&A88`p`pp p `h p+`h@p.` hp/ p0p1 p4p5 p6p7 p8p9 p:p; p<p= p>E}~~(?55(I`P(O``pJ([([`J (c(c``@@ hHp`@~7t22@@H 0(``p `p h h`p+h h`p.h h`p1`p=`@p>`@@@>p<`p tt422`p ` @p p  p `hA (p؈A`h ((ʈH`h(͈J`h`@ p`@p`@1p t %D -L :Y 88I `` ` Y  X   [ ZNSA 8@>==X@c\rFRM_FIELD 94250-1X532 REV.2520 <850607.0818>/SRC_94250/R5000/FOFRM.FTN=AAGfF_FILE_PARAMF_FIELD_STORAGE AF_INFOF_FILE F_FIELDS F_USERBUFFF_TERMBUFFAF FRM_FIELD %%C.ENTR .CPM .LBT.SBT .CBT FRM_FLDPTRFMP_READ%6 FO>>>`Spp`=@>(+(5`@GpF`YhF`p($Jp(<(;@@pH(N`p(7`T@@Rh`>W;;p=`T@=@Rh`Z@p=`T@=@Rh`[@p=`T@=@Rh`T@@Rh`T@@Rh`T@@Rh`UhMJ`XhI`P((~~@@H`WhM`VhI`T@ @Rh[H(`T@ @RhZH`T@@Rh`T@@R `T@@R hD hKhB h@`T@ @Rh`T@ @R~??h` p=`T@=@Rh`T@@Rp`Uh@`QhOA ?(((hM hK(hIHJ hK`0 p0`T@ @Rh`Zp`=p \\,,0(7((hM hKH(%hI hKJ `/p/`T@ @Rhpp 7/`p(7\ %D 77ڑ? E A$%" ;NinI 7@q>>XcrMIS_CONVERT 94250-1X526 REV.6000 <921002.1647>/SRC_94250/R6000/FOMIS.FTN> A?F_MSSG <MIS_CONVERT "".ENTR .CPM.ARTN .LBT.SBT.CBT.FMUI " 1j Bz H~ 1n 5r 9v :o 11 22 24  21 33 41  21 35 46 35  35 41 z E N W r F s J v L T /22253146568<898984?435>46568<8989(J6868686868 11 22 &24 @A3= 98 AB3= UI9898 =D57 98 "7: (+7; U@9191 GG݈x<x:@:phHhBhFh8h4h6`Zh0H`Yh.hDh2H`Xh,`Wh*RpЈ`Vp`@Q 88(pp$>>pp`Pp`Op`Np`MppTppЈ(:(`TpψA`(D(G(G`bp(I``pppSڈ(R(`bPڈ(V(`@p$`$h0(`h~~Rdb>>Hx p` h.(`A(x((`@@LpS(`Tڈ@@KpS`p`pڈ(`aP((`@p A` h,(hHx$p`$~~~p>>h*(0(`T@@KpS`pΈ`p(`Ј@p$`@(p `$h ((߈(`((Ԉ(`@π@LpS(ۀ`T@π@KpS`ڈp`~~~Δ>>p`pڈ(M`S(鈈`jp(h@HHh'`]TpT`]Sp`Pj((p`\(`A((3(3` 2 pɨpɈ`@p`pȀ~~~((BBp`\@pA_((((`\͈`@%p `Ј@p$h$h (`AEHMEgQjuKpɨpɨppp`\@pA_(\(\`[͈`@%~0R^<>@P((`]U@p`\p`p(`@р^@p`]U@p`TpT`шp`pЈ(5(È`((و(`@πA@J`\~yyCC(`TΈ@@I`\pppȨ`@pȀ`@p`(( (  VȀl(VȀmǀ`(`[y  +I nnEDD          xi 2U eE90 (n@ *>>X̀FrMIS_TO_ASCI 94250-1X526 REV.6000 <921002.1647>/SRC_94250/R6000/FOMIS.FTN> AEF_MSSG j8MIS_TO_ASCI CC @.FSB..FCM .ENTR .CPM .ARTN MOD .SBST .SST .NFEX .CBT UTL_MOVE_DATA .FMUR .FMUO C @ ~~2II22x)3x'`7p1`6p+`5p,7`)h/!(Q(e(e5Ap50(d`C7,(}6(}6Ap6D 0(}`C~{BB7,pAE((`@4 `p(`)h/!(((5`p0(6`p0@0p0-`@-p`(4p.(4~~pCCp.`)h/!(((.((`C7A,(&!4 A , `(p &4(p*Ap/>.((`C7(4pp`p6(p`Dp~K??(`((b@.(;(;A((`p`pp(:A.($($`p`@p(8@.p`@.@9p2-`@-p`-(`>(C`C7(a`>p`@.(R(R`p`p(a`@.p`p^-`@-p(p*`=p`@<.((@`.@B(v({`p`p(`/}}az}@@p/`.@@8p`p-`@-p`-pA</(`p@`((`@4h?`p(((`@.(p`(ňp`@4}~~n==hH488(`?p`@@<.((`8@.p(p`p`;@.p-(`Ap`@@.((`p`p(`@.p`p~~~FTOO-`@-p7A(,&!4 A , ` NrrA&A  0 @HpxA&A  * `8@pp`@@(=(N&D  0@ @~~~ IJJp`p(5 V&`@0 ?@"A>>Xm(rMIS_UPSHIFT 94250-1X526 REV.4010 <921002.1647>/SRC_94250/R6000/FOMIS.FTN> A;F_MSSG =MIS_UPSHIFT .ENTR .LBT.SBT  55Qx&x$`'Hph&h"H`@ Hphh$@5} @@u@@XVjprMIS_RTE_UPSHIFT 94250-1X526 REV.4010 <921002.1647>/SRC_94250/R6000/FOMIS.FTN@`MIS_RTE_UPSHIFT &&z.ENTR MIN0.SBST .SCO.SST.LBT.SBT.NFEX &}}C9PPAhf`np`op`fp\A\p]p`](ZpaA\hA\l(.p\]hD]j\(VA\fA^hh_@Dhe}8S H\d88a(#Mb z a  Z @UtNNXW_rMIS_ASCII_TO_DIN 94250-1X526 REV.4010 <921002.1647> /SRC_94250/R6000/FOMIS.FTNNNN3MIS_ASCII_TO_DIN ++1.ENTR .CPM.SBST .SCO.SST.LBT.NFEX DECIMALTODINT +/FF//xJ@Jp1`Up)2V1p+0p*`^p.`]p(`+@1pHhHP\Ap-*+-(b`+p+(L`*@1pHhHP\p-A*+-(x~~nNu==@*p*(b`+P*h+H1xHp-hHHP\h+H1xFp.hFPZ0.h+H1xDp.hDP[0.-()`+p-`+@1HpDhDP[h+H1xFp-hFPZ0-~EE(`-p-A*-((`-@1pFhF@Yh-H1xDp-hDH@X0-(`.2)`-Ap-(KSp,0(p0-KH,,`,A@1pD-C8,A80(-K+*@]]Y66-Q(p-.K+*D.O( A0-p-.K+*A.M(0-( `(2)$K212(+`(23]EE2---2147483649 21474836492147483648 P d p z++- E@!NNX rMIS_DINT_TO_ASCI 94250-1X526 REV.4010 <921002.1647> /SRC_94250/R6000/FOMIS.FTNNI>MIS_DINT_TO_ASCI AA &&.DIN.DDE.DNG.DCO.ITOJ .ENTR .SBST .SST .INDX .SBT.NFEX .MBT DINTTODECIMAL A  |PPx@p`p p݈0(5` @  (b(b ADAApD (Z0(a`~~.1_EE (~ (i(~(~Ap݈A0(~` @p (p` @爄p`h 8 8(A(((h` ( ~kkU99Ah`  @p P ((`p `p (` p ` h H  (` @ @p D @@ p (k..l -2147483648     e6 .@֨h**XrDUMMY /SRC_94250/R6000/FOMIS.FTN* JDUMMY  kIp@.Mp>>X rUTL_INIT_BUF94250-1X544 REV.2520 <850607.1334>/SRC_94250/R5000/FOUTL.FTN>CAF_INFOF_USERBUFFF_TERMBUFFiUTL_INIT_BUF7F p` pp3@;NZ<<X /rUTL_PACK94250-1X544 REV.2520 <850607.1334>/SRC_94250/R5000/FOUTL.FTN<CAF_INFOF_USERBUFFF_TERMBUFF UTL_PACK .ENTR .CPM.LBT.SBTNN%%@p(`.ppA((&`@(p`3@-p*h,h*`3p3`p(Nx) p&@@_==X^IrUTL_WRITE 94250-1X544 REV.2520 <850607.1334>/SRC_94250/R5000/FOUTL.FTN= AAF_INFO jUTL_WRITE .ENTR .CPMDVR_WRITE DVR_PACK_ESC77=A`pA3(( @3p7  @==Xpx<rUTL_MOVETB94250-1X544 REV.2520 <850607.1334>/SRC_94250/R5000/FOUTL.FTN=CAF_INFOF_USERBUFFF_TERMBUFF|UTL_MOVETBA.ENTR .CPM.SBST .SST.NFEX ^^^11Ax:`;p(pp((2`3@8p749D64J `3p3`p`p(^s602@+==XbbrUTL_FROMTB94250-1X544 REV.2520 <850607.1334>/SRC_94250/R5000/FOUTL.FTN=B((F_USERBUFFF_TERMBUFFn'UTL_FROMTB .ENTR FOMOV  00V:@p`p(0  @6U}??X3KrUTL_CLEAN_MOVE94250-1X544 REV.2520 <850607.1334>/SRC_94250/R5000/FOUTL.FTN? UTL_CLEAN_MOVE "".&.ENTR .CPM.SBST .INDX .NFEX UTL_MOVETB"tt!@@AxIxG`Jppp`(BDHDDFp`(.`p(1@p6H`@Ap(A(Ap( tFB@|n.??X1prUTL_GET_FIELD 94250-1X544 REV.2520 <850607.1334>/SRC_94250/R5000/FOUTL.FTN?CF_USERBUFFF_TERMBUFFAF_INFO UTL_GET_FIELD G.ENTR .CPM.LBT.SBT.CBT  >>Axi@ipb`npp`opa`@bHpghkhgH88a(`p`J(_3<(4(4p([`3@epg`ghmc(?(B(Bp([EE{D@bpg`3@epdhdHJhg`3@epd`dhkAc([``3 p3() E  Oc P_@4??XErUTL_MOVE_DATA 94250-1X544 REV.2520 <850607.1334>/SRC_94250/R5000/FOUTL.FTN?  UTL_MOVE_DATA .ENTR .LBT.SBTnn77@p=xC@Cp<`Dppp p`(#(8`@=p`@ :@[Zz<<X&rUTL_TAB 94250-1X544 REV.2520 <850607.1334>/SRC_94250/R5000/FOUTL.FTN< UTL_TAB  c.ENTR .CPMUTL_PACKHI::"A`%pp@(("`p(: %" @&==XsrDVR_SETUP 94250-1X726 REV.6000 <920729.0910>/SRC_94250/R6000/FODVR.FTN= AAF_INFO qDVR_SETUP 55 ^EXEC.ENTR .CPM.LBT.SBT DVR_CONFIG HPCRTSSRCDRIVER LOGLU OS_STATIC 5              ЄAAA`p p pp,(0`P A(4(G(D(D`ApC(&`p`@(P(m`@@@P(XmW88(i`@@@p`@phh`@p`p(I`P (q(P(u(zxp(|`p p`h 0(`(  (  @^}==XV{rDVR_CONFIG94250-1X726 REV.6000 <920729.0910>/SRC_94250/R6000/FODVR.FTN= AAF_INFO T2DVR_CONFIG.ENTR OS_CNTL   @         T s a      2  }}ܪ@@`up@@t  HHspqxr-qr(1`zP  X 0  (X @@t@y  HHspqxrTqr}BBS(X`P(\(oP(`(fewx(kkwv(oBso@ ==X`I0rDVR_WRITE 94250-1X726 REV.4010 <920729.0910>/SRC_94250/R6000/FODVR.FTN= AAF_INFO _DVR_WRITE  .ENTR OS_I_O  JJ/&&`-p`/p` PhX 0(`.p(!p*J ]-*@ @/SRC_94250/R6000/FODVR.FTN< DVR_READ 8,.ENTR OS_I_ODVR_FLUSH HH2%%`)ppp("`('`*'H@ u)5==XZrDVR_RDBLK 94250-1X726 REV.4010 <920729.0910>/SRC_94250/R6000/FODVR.FTN=CAF_INFO F_USERBUFF F_TERMBUFFY DVR_RDBLK 66.ENTR .CBTOS_I_OUTL_WRITE TRM_PACK_ESCUTL_MOVETBUTL_INIT_BUFDVR_FLUSH 6E @@ `p p!#p * -0(4`P(8(B P(<(?`p (A`p (U`PhX 0nnL77(Pp (U`p`p p ` (d`PhX 0((s(@p`hA (~((n    @9XS==X\l/rDVR_INFORM94250-1X726 REV.4010 <920729.0910>/SRC_94250/R6000/FODVR.FTN= AAF_INFO [0DVR_INFORMsM.ENTR OS_CNTL DVR_FLUSH   OOA''A`-ppp`PhX 0(`.p&(*O Z-*@ @==X^1rDVR_FLUSH 94250-1X726 REV.4010 <920729.0910>/SRC_94250/R6000/FODVR.FTN= AAF_INFO ]DVR_FLUSH  *OS_CNTL  22 p`p`P hX 0(2 z @|==Xp[ rDVR_STRAPS94250-1X726 REV.4010 <920729.0910>/SRC_94250/R6000/FODVR.FTN= AAF_INFO o-DVR_STRAPS.ENTR TRM_PACK_ESC==GA`PhX 0(((=@>>XrDVR_PACK_ESC94250-1X726 REV.4010 <920729.0910>/SRC_94250/R6000/FODVR.FTN> AAF_INFO WDVR_PACK_ESC TRM_PACK_ESC //p`PhX (/@==X\rDVR_WREAD 94250-1X726 REV.5000 <920729.0910>/SRC_94250/R6000/FODVR.FTN=CAF_INFO F_USERBUFF F_TERMBUFFZ DVR_WREAD $$.ENTR .CPM.LBT.SBT.CBTOS_I_ODVR_FLUSH $    ?o ~~ ??`p` PhX 0(-p(/`p8 (<`P(@(`(F` (P(J(X`hA(R(U(U`~~~ S==(W`(`h(b`(`h(ipA`h0(y`(hh`@(`P((`p`0(` ~@@(((`(`h(`(`h(pA`h0(`(hh`@(`P((H`(` (G`}}@@(`(G`(A((`(P((A`h(((`(`(`hA(pA`h(0p`hA0}~~- CC(`(hh`@(G`h(%p`h(.0p`h0(?`(GhHHh`@(Ph  ~űS@@(W` (P([(iA`h(c(f(f`(h`(`hA(s`(A`h(zp`h0(`(hHHh`@ l X w Q p   ++/SRC_94250/R6000/FODVR.FTN? AAF_INFO }DVR_SEPARATOR  TRM_PACK_ESC OOO]((p`P hX 0(&`PhX 0(#(("(&&O@<<X-BrFMP_OPEN94250-1X529 REV.2520 <850606.1704>/SRC_94250/R5000/FOFMP.FTN< FMP_OPEN  Um.ENTR .MBTFMPOPEN [[$22:@p7p`Ap6`@7 886(h=`?A <.:<@p(4[[8 rsoq p@Cbo==XG rFMP_CLOSE 94250-1X529 REV.2520 <850606.1704>/SRC_94250/R5000/FOFMP.FTN=PFMP_CLOSE .ENTR FMPCLOSE!!wpA@p`p!  @ȘX<<X'QrFMP_READ94250-1X529 REV.2520 <850606.1704>/SRC_94250/R5000/FOFMP.FTN< AF_FILE  FMP_READ .ENTR FMPREAD FMPSETPOSITION (FO "CC@ pL`Mp  @`@pN+  (1 7   (=`P  (C P(G(I`  J MMI @QpO>>XܮhrOS_LU_SETUP 94250-1X535 REV.5000 <870218.1659>/SRC_94250/R5000/FOOS1.FTN> AAF_INFO VOS_LU_SETUP .ENTR .CPM.OPSY  ?~~>>`bp pp xAp g (&(3` @aP (,(/ ` p (!`fP (7(: p(<`ep(@ `@`p^Ac~((=M0^(V`d(Z p(`\ @ 0);;XrOS_I_O94250-1X535 REV.2520 <870218.1659>/SRC_94250/R5000/FOOS1.FTN;CAF_INFOF_USERBUFFF_TERMBUFF OS_I_O .ENTR XLUEX .LBTRMPAR   ~~>??A`zp`p `pp ptA/ t(cx5 P(9(K` }p ` h X (K` @P(O(b`~MM P$$`P(U(b`p `pp a (cpHxhy@|~pthwH@t@|@{Mv r? 8@'oF/<<X(:rOS_CNTL 94250-1X535 REV.2520 <870218.1659>/SRC_94250/R5000/FOOS1.FTN< AAF_INFO + OS_CNTL  &.ENTR XLUEX .LBT  PPb((A`5p `9p`ppA(pHxh4@78p/h2H@/@7@6  P¯1 - @:E==XzarOS_STATIC 94250-1X535 REV.2520 <870218.1659>/SRC_94250/R5000/FOOS1.FTN= AAF_INFO |OS_STATIC .ENTR .CPMXLUEX .LBTCC`up``~p `p p )  (^` z(1`` ypo}0o(C`|`yp `Ph X DDQ(T` `P(X(]`xpxhtH@w{Hpohr@o@w@vDq m? # @;;X5~  8FOMOV 94250-1X610 REV.2520 <850607.1542>/SRC_94250/R5000/FOMOV.MAC; HFOMOV  d.ENTR .MBT ))TAp`6h6A)@("`('`*'H@ u)5==XZ/PCIF/GS/ZMNTL.LIB:::5:31:127 644 0 0 17400 5303667070 33676 /PCIF_GS/GS/ZMNTL.LIB:::5:31:127  $ @ZMNTL LIB +n7+n8+n8_bFST > $AAX^8!ZMNTL.LIB 94200-12500 REV.2525 <850618.1639>/LESLI/GSWPCIF/ZMNTL.MAC:::4:1:28 A@"--XXxZZMNTR 92862-12002 REV.2440 <850125.0940>-ss7ZMNTR .NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN s**qEXEC.ARTN .FION MOF2L MOFFL MNEWL MBEGL RMPAR *uu7AAt= ` p5` p6`wP5(LJvt 6` p5P5`(p`5(p`5^^djpc5 (pi5 (po5 (psu(:u@-J7--XrqMNEWL 92862-1X333 REV.2440 <850125.0954>- vMNEWL  {{uEXEC.ENTR .CPM .EXIT .SBST .MBTMMESS MDALL MESSS MPRGW MALCL SPUTMRNAM FMPRPPROGRAMFMPOPEN MACTV IDGET MCKNM FMPLASTFILENAME SMOVE LOGLU LUTRU MOPSY {99#((OSU OF, , , , , , 9~~*s??As@sp@tp@upArr&((qpp(qppp`ppn`@pe`@pf`@pg`@pd`@@pt~~~BBh` uu(}  p (7`@p J shpo`h(鈈`hu(}`Po(`u(}pjpi`~\@@A@p  h`Ph(`hu`h(7`h(}`u(j`j(!` pk`!pl`"pmnk `pj(`i()) `@!p!`ipii((}};4@@`u(}<bhe`h(B`hu(jGah `h(M`hu(jSUed `cpU`bp]`ap^`uf `````U(ju(}` p)`!p*`"p+t'%}CC3tp`yb`}a``pT`p`T@hTH8T8(`pSuSvC66R @@@F2T  \q -w 6@Q0--Xk@MOFFL 92862-1X335 REV.2420 <840410.1503>- WMOFFL  a.ENTR MMESS MDALL MPRGR ZZ͕ //A @ p<@ p;@ p: `>@;p`=@;p,0 `?p8 Z = @#A--Xj=MOF2L 92862-1X334 REV.2420 <840410.1503>- B MOF2L  7.ENTR CLRQMPRGR WW$ --A @ p9@ p8@ p7 `;@8p`:@8p+<(.p2<(5p W : @[--Xr.MBEGL 92862-1X331 REV.2440 <850125.0958>- ?MBEGL   .ENTR .CPMMMESS MOPSY   IIl&&@p,@p+`Pp*(0*((`-(I - @--Xu`MRNAM 92862-1X325 REV.2420 <840410.1504>- M MRNAM   .ENTR .CPMSMOVE SGETSPUTKCVT~~@@A@pX@pW`_pAp^("(""Y]`Z@WhZHX`Y@WhYHX`[p7Y`\P(;(=`YpBZ`\P(F(H~$$F`Zp@p`[pT $Y 0 ..@}6--XoHMACTV 92862-1X303 REV.2420 <840410.1502>- HMACTV   y1.ENTR IXGET IDGET ||;;A@pBp`(=`F@pAAp`Fp`(:`E@pA'Aph,`Cp`(:`D@pA6Ap`(=`Gp(?p`|f2C@Ӫ--Xk$MALCL 92862-1X330 REV.2420 <840410.1502>- 7MALCL   .ENTR ABREG CLRQ==-4A@p!#(P((`"= 5"O @$b--Xc((MDALL 92862-1X332 REV.2420 <840410.1503>- >MDALL  E`.ENTR CLRQ ''p (p'@\--XpMMESS 92862-1X314 REV.2420 <840410.1503>- OMMESS  :^EXEC.ENTR $$@pA(($ b @x{;--Xy5MPRGR 92862-1X320 REV.2420 <840410.1504>- QMPRGR  .ENTR WW2,,@p2@p1@p0p`4p/`@1h H2`@0h3HH288/(`3@2W 3 @--X4MPRGW 92862-1X321 REV.2420 <840410.1504>- QMPRGW  .ENTR WW,,@p1@p0@p/p`3p.`@1hH0`2@@1hH/88.(`2@1W 2 @o??X3  0MCKNM 92862-1X352 REV.2420 <840403.1909>/GRAPHICS/DG/MCKNM.MAC:::4:12:35 ? 7MCKNM yS.ENTR NAM.. q AA` m@<[`??XX 6MOPSY 92862-1X216 REV.2420 <840405.0936>/GRAPHICS/DD/MOPSY.MAC:::4:18:39 ? HMOPSY .ENTR .OPSY AH@ ),,,~~ .DNCL Q.DNCN Q.DNIN Q.DNOP Q.DSCL Q.DSCN Q.DSIN Q.DSOP Q.FFCL Q.FFCN Q.FFIN Q~~~" .FFOP Q.NFCL Q.NFIN Q.NFOP QMACTV rMALCL WMBEGL  MCKNM YMDALL xMMESS rMNEWL !MOF2L  ^ MOFFL   ~~~MOPSY TMPRGR uMPRGW 'MRNAM XZMNTR QQMACTV rMALCL WMBEGL  MCKNM YMDALL xMMESS rMNEWL !MOF2L  ^MOFFL  ~------------------------------- #c 12. Return c  9000 continue Return END $FILES 0,0$page 'c*****************************************************************************'c SUBROUTINE /PCIF/GS/SCRNS.REL:::5:10:127 644 0 0 5000 5303667072 33765 /PCIF_GS/GS/SCRNS.REL:::5:10:127  $ ` SCRNS REL +n9+n:+n: FST --X|ZSCRNS 94200-16500 REV.2525 <850618.1601>-ssQSCRNS .NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN s.EIO. .IIO. .RIO. .DTA. EXEC.FION .NFEX .MBT .CBT FERRORF_DEACTIVATERMF_DEACTIVATEFORMF_WAITEVENT F_SHOWFORMF_PUTSTRING F_PUTINTEGER F_ACTIVATEFORMF_ACTIVATERMGETST RMPAR ww'YYHWYNUM PCNUM FTO FTOUNI FPRIOR REQLGT QUELGT NBKEYS FSECURITDESNAM FBRAND HANNAM SUTY01 FINFO1 Y N ADDMOD FILNAM X ^CSODA::TAwII<Q**W\h``piA`h^A0xAH `0 I ^(I6,I3) ~~u]{FF`(  `( `hA (((`h (((A`h (~~~$FF((`hA (߈((`( ~JJ))p`( !`(- -A0J&OOCSCR11.TXTCSCR09.TXTCSCR07.TXTCSCR03.TXT  XP H@ 80 (        l v  `P@@@ @2@U/QX}2FERROR ʋFERROR //.EIO. .IIO. .DTA. .ENTR .EXIT F_DEACTIVATERMF_DEACTIVATEFORM///A Ah1A0+AH`0/N(/,'FORMS ERROR =',I6,' at step ',I3)  . 1 @|ÛPNA0502/PC10SRC/XLATESEG2.MAC:::3:384:33 M_B820_CHECK_E_H_AKCC .DIV.DLD.DST.ENTR .LBT.MPY .SBTPAS.1 PAS.2 PAS.BLANKFILL PAS./PCIF/GS/TEACHME.REL:::5:7:128 644 0 0 3400 5303667073 34006 /PCIF_GS/GS/TEACHME.REL:::5:7:128 !$ lTEACHME REL +n:+n;+n;'FST IIX:J5PAS.GLOBALINFO94200-16501 REV.2525 <850529.1 850529.1517/LESLI/GSWPCIF/TEACHME.MAC:::3:24:32 I@:HHXZJ5RTEASCHEDULE94200-16501 REV.2525 <850529.1 850529.1517/LESLI/GSWPCIF/TEACHME.MAC:::3:24:32 H?;RTEASCHEDULEGG .DLD.DSTFMPRUNPROGRAM PAS.1 PAS.2 PAS.ENTRY1PAS.EXIT1 PAS.FIXEDSTRING PAS.NONCDS PAS.STRAPPENDPACG??ӿ##A`Yp%DJA HLFGA`Yp H7`Xp)A J9A7-9p(@;"?11<A;(A;;@! (course,mainmenu.crs,1,1 @1@9XGGXxAEJ6TEACHME 94200-16501 REV.2525 <850529.1 850529.1517 /LESLI/GSWPCIF/TEACHME.MAC:::3:24:32 G//PAS.1 PAS.2 PAS.4 fPAS.5 rPAS.STOP(TEACHME /}}&EXECPAS.CLOSEFILE PAS.INITFILEPAS.INITIALIZEPAS.INITMEMINFO1PAS.NONCDS PAS.RESET_FILE PAS.REWRITE_FILEPAS.TOPOFSTACK1 PAS.TRACECLOSE PAS.WRITEINTEGER PAS.WRITELINE PAS.WRITESTRING RTEASCHEDULE}̽(__-5=EfM U ]f_a`d(rAkf pfdA fxA}fA22 AA O INPUT OUTPUTINP OUT ERRO R=2@V(PAS.2 PAS.NONCDSW000_GET_LENGTH W997_SEND *66`p` p Ap p@פpר67/PCIF/GS/COURSE1.REL:::5:177:128 644 0 0 130400 5303667077 35736 /PCIF_GS/GS/COURSE1.REL:::5:177:128 #$ COURSE1 REL +n>+n?+n?X2wFST DDX*:^/ CRS194200-16503 REV.2525 <850708.1 850708.1745/LESLI/GSWPCIF/COURSE1.MAC:::3:576:33 D##PAS.2 PAS.200 PAS.300 PAS.400 PAS.SEGMENTRTN#  @= GGX N^/ SUBSCRIPTS94200-16503 REV.2525 <850708.1 850708.1745/LESLI/GSWPCIF/COURSE1.MAC:::3:576:33 GY$FSUBSCRIPTSGG 9C .LBTERROR PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDSSCAN_SUBSCRIPTS SKIP_SPACES UPSHIFT G-]>>AhJ6 @ (H pE EPK((B` ( Ap (` $p #hJ6 @ (H pE EPM(#(+` ( Ap (( p (-p hJ6H@ (H pEA7EPL(<<I` (&>p (p (D p F;G 8F(S (),@U sEEXMU^/ FER 94200-16503 REV.2525(( <850708.1 850708.1745 /LESLI/GSWPCIF/COURSE1.MAC:::3:576:33 E FER ++.ENTR PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDS+%% `  ( `@ Pp ` %A`p (   @%gD'GGX)^/ RESTACK 94200-16503 REV.2525 <850708.1 850708.1745 /LESLI/GSWPCIF/COURSE1.MAC:::3:576:33 G RESTACK  44 [$ .ENTR .MPYERROR PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDS4AAW` A@(( A %(`' @& `' @&h ` p AJ A p(E +@]L| GGX+^/R1STACK 94200-16503 REV.2525 <850708.1 850708.1745 /LESLI/GSWPCIF/COURSE1.MAC:::3:576:33 G o!R1STACK  >> .DLD.DST .ENTR ERROR PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDSRESTACK >==6.` JA@ K(  )(` K A@*pAA K@ Kp K!=" AA  A(R (@9FFX1^/STRSTACK94200-16503 REV.2525 <850708.1 850708.1745/LESLI/GSWPCIF/COURSE1.MAC:::3:576:33 F $STRSTACK 44 [$ .ENTR .MPYERROR PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDS4MM ` P0((A,(`/ @-h/`/ @-h!J`/ @-@.h ` p $MEK% A ""p!#p (E +@_~XHHX<\6^/UNRESTACK 94200-16503 REV.2525 <850708.1 850708.1745 /LESLI/GSWPCIF/COURSE1.MAC:::3:576:33 Hi,UNRESTACK << W_.DLD.DST .ENTR .MPYERROR PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDS<SS++ A@ (A +A0(* @ p `5J @2AP4(J1`5 @2 @@3A+,SR- A +(E T + (@HgGGX&u8^/UNSTRSTACK94200-16503 REV.2525 <850708.1 850708.1745/LESLI/GSWPCIF/COURSE1.MAC:::3:576:33 Gu .UNSTRSTACK44 [$ .ENTR .MPYERROR PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDS4^^,, A@ (`7,-A2(+ @ p `6J @4AP6(J3`6 @4,`6 @4@5-.^/ A ,(E T + '@FFX ^/CMPREALS94200-16503 REV.2525 <850708.1 850708.1745/LESLI/GSWPCIF/COURSE1.MAC:::3:576:33 F CMPREALS :: v&.DLD .ENTR .FSBPAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDSUNRESTACK :==A J  J  ((   ((= eA ( @fKJJX^/CMPCHARACTERS 94200-16503 REV.2525 <850708.1 850708.1745 /LESLI/GSWPCIF/COURSE1.MAC:::3:576:33 JdCMPCHARACTERS //cP.ENTR .LBTPAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDS/11((h6H(`1jA(L @OnGGX >^/CMPSTRINGS94200-16503 REV.2525 <850708.1 850708.1745/LESLI/GSWPCIF/COURSE1.MAC:::3:576:33 G[:CMPSTRINGS;;  .ENTR CMPCHARACTERS PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDSUNSTRSTACK;gg(44A75A86p4`4(.`6(`5((.A 68 57` P (-p4` @ (+9(-9( `4(39:g e;A 9( @fpHHX[^/CPRELATIONAL94200-16503 REV.2525 <850708.1 850708.1745/LESLI/GSWPCIF/COURSE1.MAC:::3:576:33 HBCPRELATIONAL|YYh.DLD.DST.ENTR .MPYCMPREALSCMPSTRINGSERROR PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.INLINEERROR PAS.NONCDSR1STACK Y3@@` A@( A ( A@ @P(((`P(*P(7P(DP(QP(_P(m(z`(2 (6 J (}`(? J (C@@@ (}`(L (PJ  (}`(U(Z (^ J (}`(c(h  (lAJ (}`(uJ  (y (}hD   $$6Ap(S@ + m$@`VIIX^/STOW_CHARACTER94200-16503 REV.2525 <850708.1 850708.1745/LESLI/GSWPCIF/COURSE1.MAC:::3:576:33 ISTOW_CHARACTER//cW.ENTR .SBTPAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDS/'' h6@ 'JH`` ' p '` $p $'EAp(L@(FFX $^/DN_SCALE94200-16503 REV.2525 <850708.1 850708.1745/LESLI/GSWPCIF/COURSE1.MAC:::3:576:33 F DN_SCALE CC .DLD.DST .ENTR .FDV .FSB PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDSPOWER_OF_TENC44r+A  (AJA  J ` %p %47A p(@8WFFX(^/UP_SCALE94200-16503 REV.2525 <850708.1 850708.1745/LESLI/GSWPCIF/COURSE1.MAC:::3:576:33 F & UP_SCALE GG L.DLD.DST .ENTR .FDV .FMP .FSB PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDSPOWER_OF_TENG66dA&   (JJ   @ %p % 6y!A p(@@GfJJX^/FLT_TO_STRING 94200-16503 REV.2525 <850708.1 850708.1745 /LESLI/GSWPCIF/COURSE1.MAC:::3:576:33 JFLT_TO_STRING 7{{..FCM .DIV.DLD.DST.FAD.FDV.FIXD .FLT.FMP.FSBDN_SCALE ERROR PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDSPAS.SINGLEMOD POWER_OF_TENSTOW_CHARACTERUP_SCALE{CC`ap #` #p 'p %p $`p `a@p`A@A( (`a@pa(/AA/(98Є(  (StcCMMAFAILOAR(hJA A(h\_AbAeh` %(l(xo %AAAJ (` %p % %AJ JA AAA(@OUBB ` %p %p`A@A(Hx`A`@hH )`p(`p`@P((@p(` %(` %A@(~~@@` %(y` %@A@(y`p` %((`p@ %p %(` %(@p` % p %(A@((p`A@A(`p~ (FF(p`A@('`ވA@p#`p((xp`A@(D`A@(D`@p@`p(*`A@A(dO`p`A@XEE(c`@pA_`p(Q(xp`@@A@(xtЀ`p(f(|A`߈p`A@(`@pA`p(` %(Ϡ` %44p %` % @ )pA %@ )pȀ4..8(R-0P@S.E  0 (.@l{;DDX;&^/X_OR94200-16503 REV.2525 <850708.1 850708.1745/LESLI/GSWPCIF/COURSE1.MAC:::3:576:33 D 5X_OR ?? Z.DLD.DST .FSB PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDSR1STACK UNRESTACK ?@@A J  A "(JA  "A($J (   @  8(@@FFX&^/X_AND 94200-16503 REV.2525 <850708.1 850708.1745 /LESLI/GSWPCIF/COURSE1.MAC:::3:576:33 F RX_AND ?? Z.DLD.DST .FSB PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDSR1STACK UNRESTACK ?@@A J  A "(JA  "A($J (   @  8(@@~o/FFX}w^/X_CONCAT94200-16503 REV.2525 <850708.1 850708.1745/LESLI/GSWPCIF/COURSE1.MAC:::3:576:33 F pX_CONCAT @@ .LBT .SBTERROR PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDSSTRSTACKUNSTRSTACK@_lCCAljAmk`k@j((pi` a@uA@i(s@mpm`k@l@vplpn`kA@n(>ht6`m@n@vHH ht6po` a@n@vH`o `npn("`kpn`iARRߴC&&@n(]ht6`l@n@vHH ht6po` a@n@vH`o `npn(A` apodoi` a@ip apR݂q 8p(R L (@ GGXGR^/X_POWER 94200-16503 REV.2525 <850708.1 850708.1745 /LESLI/GSWPCIF/COURSE1.MAC:::3:576:33 G 4IX_POWER YYG ..FCM .DLD.DST .FMP.FSB ALOGEXP PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.ERROREXIT PAS.NONCDSR1STACK UNRESTACK Y}} @@A J  AL(JJ  J (E N( J (E AN()AJP (E N(;D   JD J (ED   }@ D  H IQdJ8I(@@@([GFFX=^/XNAME 94200-16503 REV.2525 <850708.1 850708.1745 /LESLI/GSWPCIF/COURSE1.MAC:::3:576:33 F @6XNAME 99 ,M .LBT .SBTERROR PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDSSTRSTACK9uu55`apaaV`a@Vp`6@ HH h?6p9 @aH`9J  ` p `apa(:{; 8:(R L (@QpmIIX ^/X_STR_FUNCTION94200-16503 REV.2525 <850708.1 850708.1745/LESLI/GSWPCIF/COURSE1.MAC:::3:576:33 I X_STR_FUNCTION<< FLT_TO_STRING PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDSSTRSTACKUNRESTACK <% A  # $   8 ( @sIIXYY^/X_FLO_FUNCTION94200-16503 REV.2525 <850708.1 850708.1745/LESLI/GSWPCIF/COURSE1.MAC:::3:576:33 IAX_FLO_FUNCTIONvvY.DLD.DST.FAD.FDV.FLT.FMP.LBT.MPYA_DIGIT ERROR PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.BITMASK1PAS.NONCDSPAS.SETINIT POWER_OF_TENR1STACK UNSTRSTACKvGGJ  A`Wp  +*`+@*@@Xp*,GFDE`O@xhP6p=@+H ,H=H@(AhP6H@+Hp>A3>(A`*A@+(A`+p+(`*A@+QG??A(L LHhP6H@+HPTA(U(]IJ `+Ap+(aKJ hP6@+Hp `*A@+(` PU(xAv (` PU(|(p (` )@ A@?>> M? `+p+` p hP6J@+Hp (h` (( AJ? AJ? JJ  J `*A@+(&hP6@+HPV((&`+p+e??hP6@+HPT(͈(`+p+ p (p p hP6@+HHPS((　`+p+p "`QA@ "(hP6J@+Hp `*A@+( A @( ` YYX'' Rh )H @p `+ p+` "p "(` (A ? ? (&A"   ) AY((B8A(.-A@P,L +-.E(@.KKXA{N^/STRING_TO_FLOAT 94200-16503 REV.2525 <850708.1 850708.1745 /LESLI/GSWPCIF/COURSE1.MAC:::3:576:33 KnDSTRING_TO_FLOAT II .LBT .SBTERROR PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDSSTRSTACKUNRESTACK X_FLO_FUNCTIONI188 ` `p ap ` a@Lp`MA@(G(B` a p #` a@Lp a` #p ` # @KA@ (9 hI6@ !H hJ6pC@ H`C ` ! p !` p n8 (= #H?B DE 8D(R L (@$IIX.+^/X_INT_FUNCTION94200-16503 REV.2525 <850708.1 850708.1745/LESLI/GSWPCIF/COURSE1.MAC:::3:576:33 I$X_INT_FUNCTIONII Օ.DLD.DST .FIXD .FLTD .FSB PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDSR1STACK UNRESTACK IJJL$$A   '(  D  ( JD   J ( JD   AJ ) A# $J%8$(@@IIX'*^/X_SGN_FUNCTION94200-16503 REV.2525 <850708.1 850708.1745/LESLI/GSWPCIF/COURSE1.MAC:::3:576:33 I!X_SGN_FUNCTION?? Z.DLD.DST .FSB PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDSR1STACK UNRESTACK ?DD\/!!A   ($J ( A &(AJ( (   !D"8!(@@_#IIXD@^/X_RND_FUNCTION94200-16503 REV.2525 <850708.1 850708.1745/LESLI/GSWPCIF/COURSE1.MAC:::3:576:33 I ;X_RND_FUNCTIONRR ..FCM .DLD.DST .FIXD .FLTD .FMP.FSB PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDSR1STACK UNRESTACK Roo99A  * , * * D 9 *9 * *>(!D ,   *  (5D  D *  949(88 *;o><8;(@sIIX()^/X_CHR_FUNCTION94200-16503 REV.2525 <850708.1 850708.1745/LESLI/GSWPCIF/COURSE1.MAC:::3:576:33 I#X_CHR_FUNCTIONEE y^.DLD .FIXD .SBTERROR PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDSSTRSTACKUNRESTACK ENN/##A   x ` a p a` aA@(A(&h'6@ aH`  Ap " a #N$ 8#(R L (@(GIIX^/X_INS_FUNCTION94200-16503 REV.2525 <850708.1 850708.1745/LESLI/GSWPCIF/COURSE1.MAC:::3:576:33 IX_INS_FUNCTION~__ .DAD .DDE.DLD.DSB.DST.FIXD .FLT.FSB.LBT PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDSR1STACK UNRESTACK UNSTRSTACK_8-HHA}{A~|A  (   `~p A h~ AH  x~JD `|h x|`|A@{(vpz p @{A@ mmypH22(bh6`}@ @Hph6`~@ @HP(^pz` p (B`z(o` @~J p|(u`~p~@|Ap|(6y m&8(@ L@.DDX)b^/DOOP94200-16503 REV.2525 <850708.1 850708.1745/LESLI/GSWPCIF/COURSE1.MAC:::3:576:33 D v$DOOP xxY ..FCM .DIV.DLD.DST!.ENTR ".FAD#.FDV$.FIXD %.FLT&.FLTD '.FMP(.FSB).LBT.MPYALOGATANCOS CPRELATIONALERROR *EXP PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 xE+PAS.BOUNDINTEGER,PAS.ERROREXIT -PAS.INLINEERROR PAS.NONCDSR1STACK .SIN /SQRTUNRESTACK UNSTRSTACKXNAME XPERB X_AND X_CHR_FUNCTIONX_CONCAT X_FLO_FUNCTIONX_INS_FUNCTION X_INT_FUNCTIONX_OR$$ X_POWER X_RND_FUNCTION X_SGN_FUNCTION X_STR_FUNCTION$>>` ApA@ (@ @p `  Ap ` ((` A@ބ(`J  @ @p ` +(!(^@@67(_(b(e(i(m(q(u>@@(y(}((((((̈((((((((((,(9(F(R(d(g(t(w(z(((((((a(Ad(h(l(p(t(x(|(p~CCA(  JJ " AAA(  JJ ( AAA(  JJ ' AAA(  JJ # AA@(FFJ  D (J  A((AJ (   ((A` %A(A ( A( ( JD .,AAA( TJJD /,( JD *,AAA(   D((,'+(/ JD ,AA8A(<  D,E(JI  DQfQCC(U JA (J(` D  c ( Af(j  $D&s( Av(y(~  h6D@ H)%AAA(( @ ` %|>>AAA(((A`%A(A`%A(@h-@ p ((ʠ` (`߈P((@ p (`@ h` p (`߈P(($$U3 (`P(݊`@ h` p $..IA!p߀( @o-S L&d@.@i)FFX{^/DOOP3 94200-16503 REV.2525 <850708.1 850708.1745 /LESLI/GSWPCIF/COURSE1.MAC:::3:576:33 F EDOOP3  //O.ENTR DOOPPAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDS/&\A`p (8z Ap(@a !FFXy^/DOOP1 94200-16503 REV.2525 <850708.1 850708.1745 /LESLI/GSWPCIF/COURSE1.MAC:::3:576:33 F E DOOP1  //O.ENTR DOOPPAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDS/Y p (p A 7~ A  p(@c#FFXz^/DOOP2 94200-16503 REV.2525 <850708.1 850708.1745 /LESLI/GSWPCIF/COURSE1.MAC:::3:576:33 F E DOOP2  //O.ENTR DOOPPAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDS/f `p (p A 8 A  p(@t4EEXz^/SCANOP94200-16503 REV.2525 <850708.1 850708.1745/LESLI/GSWPCIF/COURSE1.MAC:::3:576:33 E f[SCANOP eeL .CBT .LBT.SBTDOOPDOOP1 DOOP2 DOOP3 PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.BITMASK1PAS.INLINEERROR PAS.NONCDSPAS.SETINIT UPSHIFT e}}H@@ h6@ (H pI Ip h 6` (@ᄄH pIIp p (vJcb^_`a` @` xI ,HI@(` p (` PȈ(=/,% 6fgACEFILRS  J BSSCTNHROS<<**XPIXLONSNTENOGNDGNINQRTR!%&)*+,-/<=>ABCEFIJLNRST^&<@yFFX=^/!SCANC 94200-16503 REV.2525 <850708.1 850708.1745 /LESLI/GSWPCIF/COURSE1.MAC:::3:576:33 F 65SCANC 33 .LBT .SBTERROR PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDS3ll44 h:6@(Hh;6p4@aH`4 `aA@<A(8(`apa`)A@(()(9 (,`(p( h:6@(Hp 5lN685(REL (@i)EEXzl^/!EXPROC94200-16503 REV.2525 <850708.1 850708.1745/LESLI/GSWPCIF/COURSE1.MAC:::3:576:33 E rEXPROCj ..LBT.MPY.SBT A_DIGIT DOOPERROR MAKE_A_SYMBOL PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.BITMASK1PAS.NONCDSPAS.SETINIT RESTACK SCANC SCANOP SKIP_SPACES STRSTACK SUBSCRIPTS SYMBOL_COPY X_FLO_FUNCTION88`pK``pap p p   h6J@(Hp ` P(`(A@)()"` P((((` P(-(:`@ ` p `(p(~~s833p ( ` P(>(\`ap `(p(h6@(HHP(NM(C`( p(` @ap Y  p ( ` P(d b (`ap ` P(n l~k@@ (qp(f` PA(u(w@s`@` x ,HH@(  (A(h6@aH` ` A@ap A   p ( 66` ((  ` (` ( ` p & ` &p ` (?` (p $`@ p !` !P(Є(( ` !P(؈J( ` @p "`J B<<@p ` @@p !` #A@ (` $A@ !(` # !@ "@ $pA(>` @p "` $A (p $` #AD$::(3` #@ $@hJ@x @@A@A(66` "@ #@p "> " $(|`@ P(E(U` @Jp` @@pT(|```W,, @P (](t@Kp`JA@(kk`JpJ`J @hJJ` A@p|p ( A`66b8(S-+ BRE   L"(.:E6@4JJX^/#SET_PROBLEM_AREA94200-16503 REV.2525 <850708.1 850708.1745/LESLI/GSWPCIF/COURSE1.MAC:::3:576:33 JIwSET_PROBLEM_AREAJJ .LBTPAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.BITMASK1 PAS.INLINEERROR PAS.NONCDS PAS.SETINIT UPSHIFT J$?? `(A@)(d p p p p p h6 @(Hpee p `(p(@ fz{|}~`@` xe ,HeH@ (\` P(MP(GPXX8?&&(SP(JP(PP(V(Y p (\ p (\p (\p (\ p (\p V(\hJ `(A@)(wX##jx8w(GSEWULfEGLSUW#@b"JJXbq^/$JUMP_TO_LABEL 94200-16503 REV.2525 <850708.1 850708.1745 /LESLI/GSWPCIF/COURSE1.MAC:::3:576:33 JaJUMP_TO_LABEL II .LBT .MBT .SBTLABEL_COPYPAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.INLINEERROR PAS.NONCDSUPSHIFT Io88 hg6@(H Pk( (,hg6`(@pH p``p ` Pl(#Pm( Pn(((p (+ p (+` 誨p ` p (+Hho (_A/d` (@`  @fp \\l8((`  @fp (_hh6`i6A ehi@6`j p ` p ` 窪p ` Wp ` Xp ` A(_p a\$$b8a(   @AMP$@ :(KKX;^/$LINK_NEW_COURSE 94200-16503 REV.2525 <850708.1 850708.1745 /LESLI/GSWPCIF/COURSE1.MAC:::3:576:33 KgLINK_NEW_COURSE I`` .LBT .MBT.SBTERROR INITIALIZEJUMP_TO_LABEL OPEN_NEW_PROGRAM PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDSPAS.OPEN_FILE UPSHIFT `AAh6`6A `ɀpph6@H`88( ph6@ (HHA p!P(D` (A@ )(Dh6@ (HHA p5h6p((@H`H`p` (ABB p ((p up tP p t` u(aAXh6`6 ((` (ffp p p p Vp Wx zh6H@ (H pA P((` (p ($$@28(PD ޠ SHAREDSHARED ,$@*JJX!^/%USE_A_SUBROUTINE94200-16503 REV.2525 <850708.1 850708.1745/LESLI/GSWPCIF/COURSE1.MAC:::3:576:33 JF%USE_A_SUBROUTINE44.ERROR JUMP_TO_LABEL PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDS4@@O@` P ((A(` @h `  @h ` p A@D 8(U @x5IIX%^/%END_OF_SECTION94200-16503 REV.2525 <850708.1 850708.1745/LESLI/GSWPCIF/COURSE1.MAC:::3:576:33 I END_OF_SECTION//DJUMP_TO_LABEL PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDS/JJƾ ` P$((@(@ p ` @#p ` @#p `(A@)( Jډ!8 ( @7GGXT^/&X_INDIRECT94200-16503 REV.2525 <850708.1 850708.1745/LESLI/GSWPCIF/COURSE1.MAC:::3:576:33 G^IX_INDIRECT?? ej .LBT.MPY .SBTERROR PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDSSYMBOL_COPY ?::A`  ( `M@ PR(L(G`RJ @NJp #`R @N@Qp $ `SA@ $(& `Sp $p ) ` $A@ )(E hO6@ #H hP6pH++[:@ )H`H ` #p #` ) p )((` $p )I+J 8I(X L O@-LDDX%%^/&MTCH94200-16503 REV.2525 <850708.1 850708.1745/LESLI/GSWPCIF/COURSE1.MAC:::3:576:33 D s MTCHS **.LBTPAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDS*55 p `(pp`p`pp`ph6@Hp ` P((0`P(((`ph6@Hp (*`p `P ڈ(.(0`p ` P(A` Pl5>>(Ah6J@HP (A`p`p`p`A @)(`h6@HP(`h6@HP(`(`(j` ({`P(j({h6H@HP(s(zpps55`p`p(({(`p`A@ ڄ(`A@)(h6@HHP((`p((`p(p `  (p pU 8(  !%&*@j<HHXn{^/'ACCEPT_INPUT94200-16503 REV.2525 <850708.1 850708.1745/LESLI/GSWPCIF/COURSE1.MAC:::3:576:33 HQHACCEPT_INPUTyyR.DLD.DST.LBT.MPY.SBT DOWNSHIFT ERROR GETCHAR INPUT_CHARACTER JUMP_TO_LABEL PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.BITMASK1PAS.INLINEERROR PAS.NONCDSPAS.SETINIT y--[ SKIP_SPACES STRING_TO_FLOAT SYMBOL_COPY UPSHIFT USE_A_SUBROUTINE-11` P (( ` P (( ` p ( p ` p ` p p p ` (` ` Ph( (8` (8` p ` (7` P`(-(7h\6@ ~~144JH` ` p (X` (K` (B A p ` (IA H p p h\6 @ H` J` Pg(X` p ` Pg(_` Pq(_((nc h\6~e@@` h\6H `g`ap ` (Hh\6Pn(w(h]6`rh]6H `uh]6Ha`rh]6Hb`t@p(`dp)(5` (|h\6p6 6Po((|h\6 HAp6 ==6Pp((|h\6Hap6 6Ps((|h\H6Hbp6A 6Pp((|`dp h\6HcPh((`ep p !` p p` A@ (h\6@ HHAp6 6}}44h]6p6@ !H`6h\6` H@zHPk((`  p` p ` !p !` p (pppp`p h\6H@ HPk((u` @c}.??p p@ p `pL7VUKLMNOPQRST`^@xh\6p6@@ H ,H6@(h h\6@ H@yhXH`P`(TPa(WPb(Z(]}U88p(``fp(``vp(`Hhw`XJ@@p(k@ph\6 @ @zHHPk(u( p(` !p)A{(5 ~`(A@)(5 h]6@(H>99HAp6 6p ` Pi(` Pj(A W(4`(p( `  ( W(1`Y@ Pb((`bJ @Z p @ A@ (@ p `b  88@Z@ah `b @Z p #p ! ` A@ !( h\6@ !Hh_6p6@ #H`6` # p #` !p ! ((1p p !` A @ ڄ(` !چ66(h\6J@ Hp ` Pl(` Pm(` @x(` @y(` p !` p (` !(  p (1p A$`b @Z @[p6 6`( p( @4(~H VV]I228H(0123456789  V  ( 7L #$,-.@GOPSTXYdUV@DDX#F^/)EDIT94200-16503 REV.2525 <850708.1 850708.1745/LESLI/GSWPCIF/COURSE1.MAC:::3:576:33 D qEDIT2 QQ& .LBT.MPY.SBTERROR FER PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDSSKIP_SPACES SYMBOL_COPY UPSHIFT Q<<` (p ( (` @p ` @҈@@ @ڪp !` (A@ )('h6@ (HHA p1p ` (p (` P(9(Lh6<::H@ H pACh 6p@ HH`(˨` P(P(q` p "` !A @ "(ph6 @ "H pd̀h6p@ "H`` "p "(R(` P(u(h v776@ (HJ p h6` (@HJ p ` (@ժp (` p #` p "` !A@ "(h6J@ "H P (h6H@ "H h 6p@ #JH`` # p #(RR ` P(h6@ #H` ` # p #` "p "(@ #p !` @Ҋ @h H ! (R 8(V LCU\@ IIXb^/*TYPE_IT_OUT 94200-16503 REV.2525 <850708.1 850708.1745 /LESLI/GSWPCIF/COURSE1.MAC:::3:576:33 ICTYPE_IT_OUT `kk(#.DLD.DST.LBT.MPYFLT_TO_STRING PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.5 PAS.NONCDSPAS.PROMPTPAS.WRITECHAR PAS.WRITELINE SYMBOL_COPY UPSHIFT k88 p ` (A @ )(h6 @ (Hp ` P(` P( (` (p ` ( Ap ($`  (< h6@ (Hp2P(K ` (A@ )~877(K` p (h6 @ (HpJ (`@ P(QJ(c` @p #`J @@p $` #@ $@p $(x`J @ @ qqJo00` `p at` #@ $@p $` #p ` $A@ (h6@ HHAp `  p (z` ( p ((` J( ( q%% 8( ( L #$%@,JJJX^/+DIMENSION_A_STRI94200-16503 REV.2525 <850708.1 850708.1745/LESLI/GSWPCIF/COURSE1.MAC:::3:576:33 JADIMENSION_A_STRIpSS .LBT.MPYERROR MAKE_A_SYMBOL PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDSSKIP_SPACES SUBSCRIPTSSYMBOL_COPY SB==AA` (  (` A(` p !h6H p ` ( A(` P($(P` `@A @ #A(21(`@ !h` !@h ` =77` !@ h #`J !@@ ` `@ # p `(`  (Up $` #p #` $ p $` # $H Kp` JH`A@(po(`@ !hHHt` !@h J `J !@h #` !@@h $J` # $@ Jp JH8 8(VS R $ (@nGGX>A h6 @(Hp 몈p ` P(((稈` P((h6`(H@HpA#pꨤ`(@p( )h6H@(HpA3P(9 8 (`(p(A>>::`P(B(JAE  x (`P(N(AR # $ `A@ $(\ `p $p p ` $A @ (h6 @ #Hh6p@ H`` #x;; p #` p ڠ` p (` h6@ ڈHH`(A (( ` A( (` ( ` p ` (` #p頊` (` $p(p耈(p`A@}}l@@P(( @Kp`JA@( (`A@hJ `JpJ h6@(HHApP( (`( Ap(爀`@A@A(A}f?? P(A(`@ J@p A(@`A@Ap `ꀊ@p `@@p !`A@ (/`A@ !(/`@P(3A 2]:2::J(` !@ @ J@p A(E # $P(I(`A@Ap `ꀊ@p ` A@ $(`` p $`@@h $p !` $A¹l>>@ !(h6H@ #Hh 6p@ JH`` # p #`  p ` !p !(i(`@p `A(p`A(`@@h@xAx;;@@A@A( (`@  @pp  `A@ (砈` $(`p (h6 @ #H p ` #p # @ $p $h6@H` `p` p (338(SVRB  (L  %=ABO\3@WvHrror CODE values : c ------------------ c c COMMON variables c ---------------- c Accessed : $c - C_DVTYPE Driver t/PCIF/GS/COURSE2.REL:::5:77:128 644 0 0 46400 5303667101 34743 /PCIF_GS/GS/COURSE2.REL:::5:77:128 "$M MCOURSE2 REL +n@+nA+nAM&UNFST DDX-_^0.CRS294200-16504 REV.2525 <850708.1 850708.1747/LESLI/GSWPCIF/COURSE2.MAC:::3:288:33 D##PAS.2 PAS.200 PAS.300 PAS.400 PAS.SEGMENTRTN#  @b$ EEX.\^0.GOTOXY94200-16504 REV.2525 <850708.1 850708.1747/LESLI/GSWPCIF/COURSE2.MAC:::3:288:33 E ~KGOTOXY TT S.ENTR PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.5 PAS.NONCDS PAS.PROMPT PAS.WRITECHAR PAS.WRITEINTEGER PAS.WRITESTRING T~EE`[A@H( `[pH(`H(pH`ZA@G(`ZpG( `G( pG`G@ZpGA )ST 0YUUTA 5GV :AWT ?HV DXT@  3[EK CLAIIpHJpG( rC&aO @ JJX^0.GRAF_TO_ALPHA 94200-16504 REV.2525 <850708.1 850708.1747 /LESLI/GSWPCIF/COURSE2.MAC:::3:288:33 JsGRAF_TO_ALPHA UUW .DCO.DIV.DLD.DST .ENTR .FDV.FLT.FMPGOTOXY PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDSPAS.REALROUND UDKKAJ{ vAAo oohn  o(({ vooxn(#`n(#pn} xo,oAohmA  oA(A(A}JA xoA?oxm(F`m(Fpm`nJ@ v<<K""oOoxn`n pnJ`m xAAo`oxm`m Apmlnms<Nht A qqpnrpm(YY @MlFFX| ^0/INIT2 94200-16504 REV.2525 <850708.1 850708.1747 /LESLI/GSWPCIF/COURSE2.MAC:::3:288:33 F G INIT2 &&#PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDS&  ppت`p`pր  8 ( @FFXm^0/DRAWLINE94200-16504 REV.2525 <850708.1 850708.1747/LESLI/GSWPCIF/COURSE2.MAC:::3:288:33 F VDRAWLINE ^^ :.ENTR PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.5 PAS.INLINEERROR PAS.NONCDS PAS.PROMPT PAS.WRITECHAR PAS.WRITEINTEGER PAS.WRITESTRING ^~~dFF`PPj(PkA()(L `a fbAba Rc daA !Qc &Jea (O .A`a 5hbba :ARc ?da DQcA I~,F ea (OhlH V**eWASSpRTpQUpP( ,Z*pah*pbhs*@=4[HHXK^00DRAWGRAPH 94200-16504 REV.2525 <850708.1 850708.1747 /LESLI/GSWPCIF/COURSE2.MAC:::3:288:33 H8DRAWGRAPH yy.DLD.DST .ENTR .FMPDRAWLINEERROR INIT2 PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.5 PAS.BOUNDINTEGERPAS.INLINEERROR PAS.NONCDSPAS.PROMPTPAS.REALROUND PAS.WRITECHAR y!!PAS.WRITEDOUBLE PAS.WRITEINTEGERPAS.WRITESTRING !CfDD`!(@J@ ((j((((((A(f(($(L(t(A((A! ( JA / 6  A JA xA?F `DFFA K   R AY "   ` Ag & (`p ׊A`p s z (A   A  ~~;; J (`p `p p  ժ  (`PA((`Ap(`PB((pA  )A   J p `~}}@@p `p    A  *JA   ,A ;  J (`PC(( A -}~~c<< (`PDA( (  /J `p `p  Ap $   `PD(((@- A4 19 ; A>  (~A22` @p p K ժ  ` @p S ժ  `A@ p \   ` @ p e   Ԋ(` @p` @pq Axis@@ 2} A     JA    A  A   (` PE(PF(PG(PH(( A iGG 3A   J (# Aԡ 4 A ޡ A (#  5A   J (# xCC`P?(( A  6J (`P@(( A 8A (##A() 0 :J `P?(8P@A(@(H=  =DDJ (KE J (KK(Q AX ; `P?(`P@(h(pe J (sm J (ss(y A <@@ `P?(P@(( J ( J (( A(( = `P?(P@(( J ( J (\\//( A > `P?(؈P@(( J ( J ((hI\qqtOOA ppp(Y O,JAFNMQSPEKLRCD*dA *d0,*paf0,0Z*pE *m*m*pD *m*m4A*m1A*m*m*m*m*m*dS *dT *m*d*d*d*dCORSBq@EEXzc^03CIRCLE94200-16504 REV.2525 <850708.1 850708.1747/LESLI/GSWPCIF/COURSE2.MAC:::3:288:33 E YCCIRCLE pp/H ..FCM .DAD.DLD.DST .ENTR .FAD.FDV.FLT.FMP.FSB COS DRAWLINE PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.ERROREXIT PAS.NONCDSPAS.REALROUND SIN pUUA< AA>QA>(A <A(QA<(S< <(&UA6(*WAA6:A >AAQ>A(J:AY(CAA:QA:(I:Q:(*`5(N(\`5A@aKUWW(\[66`5A@a(r`5A@b(r]66<Y( :(:Q: <(:Y(:Q::_:<_<: D>`5D><VVAA>>>h   A>x4:DA>A`5>AA>>>h    >x3p A43 :<8D8 >:D >(+:6:D: D>`5>>>ZZds11A>h A  >x4:D>`5D>>>A>h A  >x3p *43 Ԁ(p 2   ԀCZ11DA @@p5AAA(?(Z([(((((τ(.GA.L(A(.T.YJ((.aA.f((A.n.sJ(EpuBB(.{A.(((.J((.A.((τ(.A.(A(..J((.$DDA..A.((J0(.A1(((h6@(HHApvvP( `(p( ` $A@( lBBB` $@(pvpw. J(8w8v(((.A1(((.'A.,((τ(.5A.:((@=FFA((.D.IJA(.P1WJ(((h6 @(HpvevAP(j j `(p(A o` $"!(@-Ey` @` $mDDxv ,Hv@!A(.1A/ $.J(((A..J((.A.(((.b??A((.((π h6@(HpvvP(܊ (`(p(((U` PA((J`vAAw+wx`JAxwA+wxAڤ(U6==` P( (X`(p(D`vw+wx`Dxw+"wx` P('(-,(W` P(1(W.6A1=/B@.C==GA/L.QJ(A Wي(U` P(\(x^`Dvw+gwDx`xw+qwxwي(U` P(|(~`@->>JAvwA+wxڤJ`xAAw+Awx(U` P((A`JAvwA+wxڤJ`xAAw+Awx(U` P((ACM==J`vAAw+wx`JAxwA+wxAڨ(U` PA((ޤJ`vAAw+wx`JAxwA+wxAڨ(U` P(P<<(L` P((.A1 (`( p(((` P(((.A1"( `(p((P*/  ` P(3(KA.8sy7@@1?A/D;.IJ((U` P(P(R`Dvw+[wDx`xw+ewxk٨` P(o(A.t1{w;;A/;.J((U` P( (`(p(AJ 9JAx(U` P((Ӡ`(p( 9x` P(P((BBA(.1A/Ū.J(`p;( (U` P(ׄ( 9x.A1/A.(~~O177(U` P숨(($` P(` P( ( `(p(AJ 9Jx` P(P((AA((Hh'(#A #(U` P(((R` P(/~+@@` P(/(N`(p( 49x` P(>P(D(JC(MI(Mh'(Q Q(U U`(A @)(ph6 @(HpvgvAP(m lQk (p`(Ap((#vB]]8&(@ Sd r DhJA12345B mlZCK,O  GyFIGFILE SHARED*m1A*m&d@ &dB *d0,359O*m*d*m1A*m1A*m*m*m$$7*m ,;ABCDEFGLMOPQRSTX$@Z/PCIF/GS/COURSE3.REL:::5:21:128 644 0 0 12400 5303667103 34541 /PCIF_GS/GS/COURSE3.REL:::5:21:128 "$ COURSE3 REL +nB+nC+nC I?FST DDXU^1CRS394200-16505 REV.2525 <850708.1 850708.1749/LESLI/GSWPCIF/COURSE3.MAC:::3:48:32 D##PAS.2 PAS.200 PAS.300 PAS.400 PAS.SEGMENTRTN#  @X HHXB0^1RTEASCHEDULE94200-16505 REV.2525 <850708.1 850708.1749/LESLI/GSWPCIF/COURSE3.MAC:::3:48:32 H?*RTEASCHEDULE88 b.DSTFMPRUNPROGRAM PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDSSTRDSC8221u` )@/p -JA -.  p *2 +8*(@0CCX!^1FC94200-16505 REV.2525 <850708.1 850708.1749/LESLI/GSWPCIF/COURSE3.MAC:::3:48:32 C ( FC 88PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDSSCAN_SUBSCRIPTS SYMBOL_COPY 8!!g_ Ap` $p`(p(  !  8 ( @$EEX8n^1FER 94200-16505 REV.2525 <850708.1 850708.1749 /LESLI/GSWPCIF/COURSE3.MAC:::3:48:32 E FER ++.ENTR PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDS+%% `  ( `@ Pp ` %A`p (   @/@DDX ^1FGET94200-16505 REV.2525 <850708.1 850708.1749/LESLI/GSWPCIF/COURSE3.MAC:::3:48:32 D nFGET << D.DSTPAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDSPAS.READNONTEXT PAS.SEEKFILE<""ah AA J>" 8( @i)FFXv^1FSETK 94200-16505 REV.2525 <850708.1 850708.1749 /LESLI/GSWPCIF/COURSE3.MAC:::3:48:32 F LFSETK &&#PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDS&s p ! 8( @k7+FFXx e^1IFILE 94200-16505 REV.2525 <850708.1 850708.1749 /LESLI/GSWPCIF/COURSE3.MAC:::3:48:32 F 7ZIFILE GG .LBT.MPY.SBTERROR FCFER FGETFSETK PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDSG/c;;A` ӆA @ ҄(` ((](X`bJ @^p `cA @ ((`cp `b @^@ah `bJ @^p #7` !p ` !@ EESk; @dA@ (X h_6@ H h`6pY@ #H`Y` # p #` p (9ZE[ 8Z(F > L@ZFFX~O^1OFILE 94200-16505 REV.2525 <850708.1 850708.1749 /LESLI/GSWPCIF/COURSE3.MAC:::3:48:32 F 7OFILE h ff.DST.LBT.MPY.SBTERROR FCFER FGETFSETK PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDSPAS.OPEN_FILE PAS.SEEKFILEPAS.WRITENONTEXTf'S;;AAA(  (` @p #` @@p "` (M` p Ӏ h6@ @H`p ` "A@ (Bh6H@ #Hh 6p@ @H`~~;<<` #p #`  p (%J p (` ӆA @ ҄A(YXA([A]` !p ` !@A@ (` "(l(zh6J@ #Hp ` #p #~IIw@ "p "(|`p h6@ H` ` p (_h  AAJ   >I''P8(F   L >SHARED '@]JJXNY^1 RTEARUNSTRING 94200-16505 REV.2525 <850708.1 850708.1749 /LESLI/GSWPCIF/COURSE3.MAC:::3:48:32 JPRTEARUNSTRING ?? V9 .LBT .SBTA_DIGIT ERROR PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDSUPSHIFT ?b9DD`XpOpNhT6@NHH`V 8N8O(hU6 @ (H pOOpOOA("!S(MpN ` (A@ )(M`WA@N(M hU6@ (H pO>OhT6pO@NHsrD `O `N pN` (p (($PQ 8P(S  @@PokGGX^1 RUNRTEA 94200-16505 REV.2525 <850708.1 850708.1749 /LESLI/GSWPCIF/COURSE3.MAC:::3:48:32 G  RUNRTEA << ERROR PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDSRTEARUNSTRING RTEASCHEDULE<p AA` (    ( 8 (K @[/PCIF/GS/FDBLK.REL:::5:5:50 644 0 0 2400 5303667105 33515 /PCIF_GS/GS/FDBLK.REL:::5:5:50 $ 2FDBLK REL +nD+nE+nE& FST ((..X/F_INFO/94200-16507 REV.2525 <850610.1826>. Aj)F_INFO  @7iV)22X/F_FIELD_STORAG/94250-16504 REV.2520 <850610.1826>2A!F_FIELD_STORAGE @11X}/F_SFK_TABLE/ 94250-16504 REV.2520 <850610.1826>1 A F_SFK_TABLE  @22X/F_SFK_STORAGE/ 94250-16504 REV.2520 <850610.1826>2AZF_SFK_STORAGE @Y11X/F_FILE_PARAM/94250-16504 REV.2520 <850610.1826>1 A)F_FILE_PARAM  @..X/F_FILE/94250-16504 REV.2520 <850610.1826>. AYF_FILE  @*KI ..X/F_MSSG/94250-16504 REV.2520 <850610.1826>. A8F_MSSG @a\h6@ H`h6`6A~BB`~`#p `@@p` p`A@p`@Ap/PCIF/GS/FOUSE.REL:::5:2:48 644 0 0 1000 5303667106 34151 /PCIF_GS/GS/FOUSE.REL:::5:2:48 $ 0FOUSE REL +nE+nF+nFFST //X/F_FIELDS/94200-16508 REV.2525 <850610.1825>/ AF_FIELDS @00X_h/F_USERBUFF/94200-16508 REV.2525 <850610.1825>0 AOF_USERBUFF  @s00XLt/F_TERMBUFF/94200-16508 REV.2525 <850610.1825>0 Aai F_TERMBUFF F0$0 @c#/PCIF/GS/XFER.CMD:::3:6:37 644 0 0 3000 5303667132 33405 /PCIF_GS/GS/XFER.CMD:::3:6:37 $ %XFER CMD +nY+nZ+nZFST * XFER.CMD 94200-17200 REV. 2525 <850625.1446>#* transfer file for installing Getting Started with PCIF/1000 (GSWPCIF) #* on user's site%******************************* WARNING **********************************%%* The following LINK command files: *%%* *%%* TEACHME.LOD SCRNS.LOD COURSE.LOD *%%* *%%* will need updating for CI directory and Pascal library if your system *%%* does not match the defaults listed below: *%%* *%%* CI directory where GSWPCIF software resides = /GSWPCIF *%%* Name of Pascal compiler library = "PASCAL.LIB::LIBRARIES" *%%* Security code of all these files = "1" *%%**************************************************************************% * move to /GSWPCIF WD /GSWPCIF * * linking TEACHME (program for executing TEACHME command)  LINK /GSWPCIF/TEACHME.LOD * !* linking SCRNS (program for accessing PCIF configuration screens)! LINK /GSWPCIF/SCRNS.LOD * * linking COURSE0, COURSE1, COURSE2, COURSE3 (Pilot modules) LINK /GSWPCIF/COURSE.LOD  /PCIF/GS/GMLADLOG.TXT:::3:7:39 644 0 0 3400 5303667134 34367 /PCIF_GS/GS/GMLADLOG.TXT:::3:7:39 !$ 'GMLADLOG TXT +n[+n\+n\F&FST * GMLADLOG.TXT 94200-17206 REV.2525 <850530.1546> &* Getting Started with PCIF/1000 - Gould-Modicon example ladder logic program &&****************************************************************************& |  | 10 _____ 00001  |----| |----| 60 |----------------------------------------O | 00001 |T1.0 | Minute Timer  |----|/|----|40001|  |  | 10 _____ 00002  |----| |----| 2 |----------------------------------------O | 00002 |T1.0 | Simulates a bottle |----|/|----|40002| every 2 seconds |  | 00002 _____ 00003  |----|^|----| 999 |----------------------------------------O | 00003 |UCTR | | _____ Counts # bottles 00004  |----|/|----|40004| |---| 999 |------------------------O | 00004 |UCTR |  |-------------------|/|-----|40005|  |  | 10 _____ Simulates 1 defective 00005  |----| |----| 15 |----------------------------------------O | 00005 |T1.0 | bottle every 15 secs. |----|/|----|40003|  |  | 00005 _____ Counts defective bottles 00006  |----|^|----| 999 |----------------------------------------O | 00006 |UCTR | | _____ 00007  |----|/|----|40006| |---| 999 |------------------------O | 00007 |UCTR |  |-------------------|/|-----|40007|  |  |  |  |  |  | /PCIF/GS/SCRNS.LOD:::4:2:38 644 0 0 1000 5303667135 33623 /PCIF_GS/GS/SCRNS.LOD:::4:2:38 $  &SCRNS LOD +n]+n]+n] FST * SCRNS.LOD 94200-17208 REV.2525 <850610.1559>* Command file for linking SCRNS program&****************************************************************************&LI, FLIB1.LIB LI, FLIB2.LIB RE, FDBLK.REL RE, FOUSE.REL RE, SCRNS.REL EN, SCRNS.RUN @(`D(ChGH6`O J|i^KAF( -0@|q1LLX)NJ8D1111_INTEGER_AS33922-16087 REV.2523 <850528.1 850528.1626/SPNA0502/PC10SRC//PCIF/GS/TEACHME.LOD:::4:1:38 644 0 0 400 5303667137 34012 /PCIF_GS/GS/TEACHME.LOD:::4:1:38  $ $&TEACHME LOD +n^+n_+n_|FST * TEACHME.LOD 94200-17209 REV.2525 <850529.1513>* Command file for linking TEACHME program&****************************************************************************& LI, PASCAL.LIB::LIBRARIES RE, TEACHME.REL EN, TEACHME.RUN /PCIF/GS/PSCR01.TXT:::3:5:75 644 0 0 2400 5303667146 34017 /PCIF_GS/GS/PSCR01.TXT:::3:5:75 $ 8KPSCR01 TXT +ne+nf+nfLFST <vFO $ *PSCR01.TXT 94200-17215 REV.2525 PCIF/1000 Preconfigurator SCREEN 1 5 Y B01 V02OC< >FILNAM FILNAM  'OC1B06EC057 PCIF/1000 Precon *Q&v02SPCIF/1000 (A.85.00.2525) HP94200 (c) COPYRIGHT Hewlett-Packard Co. 1985 *&v02S &v02S +T&v02S ** SCREEN 1 **+&v02S !@&v02S PCIF/1000 Preconfigurator: Descriptor File Namr!&v02S &v02S ((&v02S &v02S /\&v02S Descriptor file namr: &v06S&dB[ ]&d@&v02S /&v02S &v02S &v02S &v02S &v02S &v02S &v02S &I&v02S Pressing ENTER key is the normal way to activate next screen &&v02S &v02S )O ) )O )KFO $ EXIT HELP REFRESH ABORT PCGEN K/PCIF/GS/PSCR02.TXT:::3:22:104 644 0 0 13000 5303667150 34616 /PCIF_GS/GS/PSCR02.TXT:::3:22:104 !$ @hPSCR02 TXT +ng+nh+nh BFST <vFO $ *PSCR02.TXT 94200-17216 REV.2525 PCIF/1000 Preconfigurator SCREEN 2  Y B01 V02DC(&< >DESNAM DESNAM $DC1@06EB054 PCIF/1000 Preconfig >FBRAND FBRAND $DC1@06EB054 PCIF/1000 Preconfig >HANNAM HANNAM $DC1@06EB054 PCIF/1000 Preconfig >CONNAM CONNAM $DC1@06EB054 PCIF/1000 Preconfig >SUTY01 SUTY01  !DC1@06EB051 PCIF/1000 Preconfig >SUTY02 SUTY02  1DC1@06EB05Y PCIF/1000 Preconfig >SUTY03 SUTY03  ADC1@06EB05 PCIF/1000 Preconfig >SUTY04 SUTY04  DC1@06EB05 PCIF/1000 Preconfig >SUTY05 SUTY05  DC1@06EB059 PCIF/1000 Preconfig >SUTY06 SUTY06  !DC1@06EB05a PCIF/1000 Preconfig >SUTY07 SUTY07  1DC1@06EB05 PCIF/1000 Preconfig >SUTY08 SUTY08  ADC1@06EB05 PCIF/1000 Preconfig >SUTY09 SUTY09  DC1@06EB05 PCIF/1000 Preconfig >SUTY10 SUTY10  DC1@06EB059 PCIF/1000 Preconfig >SUTY11 SUTY11  !DC1@06EB05a PCIF/1000 Preconfig >SUTY12 SUTY12  1DC1@06EB05 PCIF/1000 Preconfig >SUTY13 SUTY13  ADC1@06EB05 PCIF/1000 Preconfig >SUTY14 SUTY14  DC1@06EB05 PCIF/1000 Preconfig >SUTY15 SUTY15  DC1@06EB059 PCIF/1000 Preconfig >SUTY16 SUTY16  !DC1@06EB05a PCIF/1000 Preconfig >SUTY17 SUTY17  1DC1@06EB05 PCIF/1000 Preconfig >SUTY18 SUTY18  ADC1@06EB05 PCIF/1000 Preconfig >SUTY19 SUTY19 DC1@06EB05 PCIF/1000 Preconfig >SUTY20 SUTY20 DC1@06EB059 PCIF/1000 Preconfig >SUTY21 SUTY21 !DC1@06EB05a PCIF/1000 Preconfig >SUTY22 SUTY22 1DC1@06EB05 PCIF/1000 Preconfig >SUTY23 SUTY23 ADC1@06EB05 PCIF/1000 Preconfig >SUTY24 SUTY24 DC1@06EB05 PCIF/1000 Preconfig >SUTY25 SUTY25 DC1@06EB059 PCIF/1000 Preconfig >SUTY26 SUTY26 !DC1@06EB05a PCIF/1000 Preconfig >SUTY27 SUTY27 1DC1@06EB05 PCIF/1000 Preconfig >SUTY28 SUTY28 ADC1@06EB05 PCIF/1000 Preconfig >SUTY29 SUTY29 DC1@06EB05 PCIF/1000 Preconfig >SUTY30 SUTY30 DC1@06EB059 PCIF/1000 Preconfig >SUTY31 SUTY31 !DC1@06EB05a PCIF/1000 Preconfig >SUTY32 SUTY32 1DC1@06EB05 PCIF/1000 Preconfig >FINFO1 FINFO1 PDC1@06EB05 PCIF/1000 Preconfig >FINFO2 FINFO2 PDC1@06EB05 PCIF/1000 Preconfig >Y FYES 'OC1B06EC057 PCIF/1000 Preconfig >N FNO 6OC1B06EC05^ PCIF/1000 Preconfig +T&v02S ** SCREEN 2 **+&v02S &I&v02S PCIF/1000 Preconfigurator: Descriptor File Information &&v02S 4f&v02SDescriptor file namr: &v06S&d@] ]&v02S&d@ 4,U&v02SPC Brand Name: &v06S&d@] ]&v02S&d@ ,7k&v02SHandler file namr: &v06S&d@] ]&v02S&d@ 76j&v02SPartial configurator file namr: &v06S&d@] ]&v02S&d@ 6&v02S P&v02S32 first supported types: &v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ Ph&v02S&v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ hh&v02S&v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ hh&v02S&v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ hh&v02S&v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ hh&v02S&v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ hT&v02S&v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ T&v02SGeneral information:2b&v02S&v06S&d@] 23d&v02S]&v06S&d@] 3 &v02S B&v02SDo you want to validate ? Yes: &v06S&dB[ ]&d@&v02S No: &v06S&dB[ ]&d@&v02S B)O )&v02S )O )KFO $ EXIT HELP REFRESH ABORT PCGEN K/PCIF/GS/PSCR03.TXT:::3:7:75 644 0 0 3400 5303667152 34211 /PCIF_GS/GS/PSCR03.TXT:::3:7:75 $ XKPSCR03 TXT +ni+nj+njf FST <vFO $ *PSCR03.TXT 94200-17217 REV.2525 PCIF/1000 Preconfigurator SCREEN 3  Y B01 V02OC#< >ROTSC ROTSC ,OC1B06EG05< PCIF/1000 Preconf >ROTCR ROTCRN  ,OC1B06EG05< PCIF/1000 Preconf >FNAMR FNAMR  ,OC1B06EG05< PCIF/1000 Preconf >Y FYES ,OC1B06EG05< PCIF/1000 Preconf >N FNO ;OC1B06EG05c PCIF/1000 Preconf >A FADDIN ,OC1B06EG05< PCIF/1000 Preconf +T&v02S ** SCREEN 3 **+&v02S #C&v02S PCIF/1000 Preconfigurator: Completion Information #&v02S &v02S &I&v02S &)O&v02S SC for PCIF/1000 created files: &v06S&dB[ ]&d@&v02S )&v02S ,&v02S )P&v02S CRN for PCIF/1000 work cartridge: &v06S&dB[ ]&d@&v02S )&v02S &v02S 6i&v02S Listing namr: &v06S&dB[ ]&d@&v02S 6&v02S &v02S ;t&v02S Preconfiguration completion: Yes: &v06S&dB[ ]&d@&v02S No: &v06S&dB[ ]&d@&v02S ;&v02S  &v02S &J&v02S Adding other descriptor: &v06S&dB[ ]&d@&v02S&&v02S &v02S )O )  KFO $ HELP REFRESH ABORT PCGEN K/PCIF/GS/CSCR01.TXT:::3:5:75 644 0 0 2400 5303667153 33505 /PCIF_GS/GS/CSCR01.TXT:::3:5:75 $ `KCSCR01 TXT +nj+nk+nkIFST ((<vFO $ *CSCR01.TXT 94200-17218 REV.2525 PCIF/1000 Configuration Editor SCREEN 1  Y B01 V02OC< >FILNAM FILNAM  .OC1B06EC05> PCIF/1000 Configurat *Q&v02SPCIF/1000 (A.85.00.2525) HP94200 (c) COPYRIGHT Hewlett-Packard Co. 1985 *&v02S $E&v02S $,V&v02S ** SCREEN 1 **,&v02S #C&v02S PCIF/1000 Configuration Editor: File Selection #&v02S &v02S &v02S &v02S 1`&v02S Configuration file namr: &v06S&dB[ ]&d@&v02S 1&v02S &v02S &v02S &v02S &v02S &v02S &v02S &J&v02S Pressing ENTER key is the normal way to activate next screen&&v02S &v02S )O )  KFO $ HELP REFRESH ABORT PCCON K/PCIF/GS/CSCR02.TXT:::3:7:75 644 0 0 3400 5303667155 33543 /PCIF_GS/GS/CSCR02.TXT:::3:7:75 $ hKCSCR02 TXT +nl+nm+nm<FST <vFO $ *CSCR02.TXT 94200-17219 REV.2525 PCIF/1000 Configuration editor SCREEN 2  Y B01 V02OCgP< >NEWUPD NEWUPD PDC1A01EC05 PCIF/1000 Configura >FNAMR FNAMR  *OC1B06EC05: PCIF/1000 Configura >A HWYCNF 4OC1B06EG05D PCIF/1000 Configura >B PCCONF 4OC1B06EG05D PCIF/1000 Configura >C FEXIT 4OC1B06EG05D PCIF/1000 Configura +T&v02S ** SCREEN 2 **+&v02S #C&v02S PCIF/1000 Configuration Editor: Work Selection #&v02S &v02S 2b&v02S&v01S&dA] 2&v02S &v02S /[&v02S Listing file namr: &v06S&dB[ ]&d@&v02S /&v02S ;&v02S ( must be defined if LIST is pressed on this /&v02S screen or subsequent screens ) &v02S &v02S *R&v02S Highway configuration: &v06S&dB[ ]&d@&v02S*&v02S *R&v02S PC configuration: &v06S&dB[ ]&d@&v02S*&v02S *R&v02S Exit: &v06S&dB[ ]&d@&v02S*&v02S &v02S )O )  KFO $ LIST HELP REFRESH ABORT PCCON K----------- c Accessed : c - C_ESCBPTR Terminal buffer pointer c - C_TERMB Terminal buffer c /PCIF/GS/CSCR03.TXT:::3:6:75 644 0 0 3000 5303667157 33766 /PCIF_GS/GS/CSCR03.TXT:::3:6:75 $ pKCSCR03 TXT +nn+no+noFST <vFO $ *CSCR03.TXT 94200-17220 REV.2525 PCIF/1000 Configuration Editor SCREEN 3  Y B01 V02OCWP< >NEWUPD NEWUPD PDC2A01EC05 PCIF/1000 Configura >C HWYNUM  4OI2B06EG05D PCIF/1000 Configura >A ADDMOD  4OC2B06EG05D PCIF/1000 Configura >B FDELET 4OC2B06EG05D PCIF/1000 Configura +T&v02S ** SCREEN 3 **+&v02S %G&v02S PCIF/1000 Configuration Editor: Highway Selection %&v02S &v02S 2b&v02S&v01S&dA] 2&v02S &v02S &v02S ,V&v02S Highway number: &v06S&dB[ ]&d@&v02S,&v02S &v02S *R&v02S Add/modify: &v06S&dB[ ]&d@&v02S*&v02S &v02S *R&v02S Delete: &v06S&dB[ ]&d@&v02S*&v02S &v02S &v02S &v02S &v02S )O )  KFO $PREVIOUS SCREEN LIST HELP REFRESH ABORT PCCON K R_string(L_i) = Blank  END DO$page c &c --------------------------------/PCIF/GS/CSCR04.TXT:::3:17:113 644 0 0 10400 5303667160 34074 /PCIF_GS/GS/CSCR04.TXT:::3:17:113 !$ xqCSCR04 TXT +np+np+np>9 FST <vFO $ *CSCR04.TXT 94200-17221 REV.2525 PCIF/1000 Configuration Editor SCREEN 4  Y B01 V02OC@1<HNEWHW NEWHW PDC2A01EC05 PCIF/1000 ConfiPNew highway adding H >FTYP01 FTYP01  DC2@06EC05 PCIF/1000 ConfiPNe >A FSEL01  OC2B06EC05< PCIF/1000 ConfiPNe >FTYP02 FTYP02  DC2@06EC05^ PCIF/1000 ConfiPNe >B FSEL02  /OC2B06EC05 PCIF/1000 ConfiPNe >FTYP03 FTYP03  8DC2@06EC05 PCIF/1000 ConfiPNe >C FSEL03  IOC2B06EC05 PCIF/1000 ConfiPNe >FTYP04 FTYP04  DC2@06EC05 PCIF/1000 ConfiPNe >D FSEL04  OC2B06EC05< PCIF/1000 ConfiPNe >FTYP05 FTYP05  DC2@06EC05^ PCIF/1000 ConfiPNe >E FSEL05  /OC2B06EC05 PCIF/1000 ConfiPNe >FTYP06 FTYP06  8DC2@06EC05 PCIF/1000 ConfiPNe >F FSEL06  IOC2B06EC05 PCIF/1000 ConfiPNe >FTYP07 FTYP07 DC2@06EC05 PCIF/1000 ConfiPNe >G FSEL07 OC2B06EC05< PCIF/1000 ConfiPNe >FTYP08 FTYP08 DC2@06EC05^ PCIF/1000 ConfiPNe >H FSEL08 /OC2B06EC05 PCIF/1000 ConfiPNe >FTYP09 FTYP09 8DC2@06EC05 PCIF/1000 ConfiPNe >I FSEL09 IOC2B06EC05 PCIF/1000 ConfiPNe >FTYP10 FTYP10 DC2@06EC05 PCIF/1000 ConfiPNe >J FSEL10 OC2B06EC05< PCIF/1000 ConfiPNe >FTYP11 FTYP11 DC2@06EC05^ PCIF/1000 ConfiPNe >K FSEL11 /OC2B06EC05 PCIF/1000 ConfiPNe >FTYP12 FTYP12 8DC2@06EC05 PCIF/1000 ConfiPNe >L FSEL12 IOC2B06EC05 PCIF/1000 ConfiPNe >FTYP13 FTYP13 DC2@06EC05 PCIF/1000 ConfiPNe >M FSEL13 OC2B06EC05< PCIF/1000 ConfiPNe >FTYP14 FTYP14 DC2@06EC05^ PCIF/1000 ConfiPNe >N FSEL14 /OC2B06EC05 PCIF/1000 ConfiPNe >FTYP15 FTYP15 8DC2@06EC05 PCIF/1000 ConfiPNe >O FSEL15 IOC2B06EC05 PCIF/1000 ConfiPNe +T&v02S ** SCREEN 4 **+&v02S %H&v02S PCIF/1000 Configuration Editor: Highway Type Selection%&v02S &v02S 2b&v02S&v01S&dA] 2&v02S 7&v02S Available Highway types: &v02S &v02S q&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S q&v02S q&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S q&v02S q&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S q&v02S q&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S &v06S&d@] ]&v02S((&d@ &v06S&dB[ ]&d@&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S q&v02S q&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S q&v02S &v02S )O )  KFO $PREVIOUS SCREEN LIST PREVIOUS TYPES NEXT TYPES HELP REFRESH ABORT PCCON K,L_Char)c ASSIGN 9000 to Exit c $page c &c ------------------------------/PCIF/GS/CSCR05.TXT:::3:7:75 644 0 0 3400 5303667162 33713 /PCIF_GS/GS/CSCR05.TXT:::3:7:75 $ KCSCR05 TXT +nq+nr+nrC 4FST <vFO $ *CSCR05.TXT 94200-17222 REV.2525 PCIF/1000 Configuration Editor SCREEN 5  Y B01 V02OIjd< >NEWUPD NEWUPD PDC2A01EC05 PCIF/1000 Configura >TYPNAM TYPNAM  DC2D06EE05) PCIF/1000 Configura >A HWYNUM  BDI2D06EE05j PCIF/1000 Configura >B FPRIOR  6OI2B06EC05F PCIF/1000 Configura >C FPORT 6OC2B06EC05F PCIF/1000 Configura >D FLU1 6OI2B06EC05F PCIF/1000 Configura +T&v02S ** SCREEN 5 **+&v02S %G&v02S PCIF/1000 Configuration Editor: Highway Configuration %&v02S &v02S 2b&v02S&v01S&dA] 2&v02S &v02S ?|&v02S Highway type: &v06S&dD] ]&d@&v02S Number: &v06S&dD] ]&d@&v02S?&v02S &v02S &v02S ,U&v02S Priority: &v06S&dB[ ]&d@&v02S ,&v02S +T&v02S Port number: &v06S&dB[ ]&d@&v02S+&v02S 1`&v02S LU number: &v06S&dB[ ]&d@&v02S 1&v02S &v02S &v02S &v02S )O )  KFO $ LIST HELP REFRESH ABORT PCCON K/PCIF/GS/CSCR07.TXT:::3:6:75 644 0 0 3000 5303667164 34126 /PCIF_GS/GS/CSCR07.TXT:::3:6:75 $ KCSCR07 TXT +ns+nt+nt>FST <vFO $ *CSCR07.TXT 94200-17223 REV.2525 PCIF/1000 Configuration Editor SCREEN 7  Y B01 V02OCWP< >NEWUPD NEWUPD PDC2A01EC05 PCIF/1000 Configura >PCNUM PCNUM  4OI2B06EG05D PCIF/1000 Configura >A ADDMOD  4OC2B06EG05D PCIF/1000 Configura >B FDELET 4OC2B06EG05D PCIF/1000 Configura +T&v02S ** SCREEN 7 **+&v02S "B&v02S PCIF/1000 Configuration Editor: PC Selection"&v02S &v02S 2b&v02S&v01S&dA] 2&v02S &v02S &v02S ,V&v02S PC Logical Identifier: &v06S&dB[ ]&d@&v02S,&v02S &v02S *R&v02S Add/modify: &v06S&dB[ ]&d@&v02S*&v02S &v02S *R&v02S Delete: &v06S&dB[ ]&d@&v02S*&v02S &v02S &v02S &v02S &v02S )O )  KFO $PREVIOUS SCREEN LIST HELP REFRESH ABORT PCCON K Call UTL_PACK (L_seq,TAB) c L_i = L_i + 1 c  END DOc &c --/PCIF/GS/CSCR08.TXT:::3:17:113 644 0 0 10400 5303667166 34247 /PCIF_GS/GS/CSCR08.TXT:::3:17:113 !$ qCSCR08 TXT +nu+nv+nv<9FFST <vFO $ *CSCR08.TXT 94200-17224 REV.2525 PCIF/1000 Configuration Editor SCREEN 8  Y B01 V02OC@1<HNEWHW NEWHW PDC2A01EC05 PCIF/1000 ConfPNew PC adding H >FTYP01 FTYP01  DC2@06EC05 PCIF/1000 ConfPNe >A FSEL01  OC2B06EC05< PCIF/1000 ConfPNe >FTYP02 FTYP02  DC2@06EC05^ PCIF/1000 ConfPNe >B FSEL02  /OC2B06EC05 PCIF/1000 ConfPNe >FTYP03 FTYP03  8DC2@06EC05 PCIF/1000 ConfPNe >C FSEL03  IOC2B06EC05 PCIF/1000 ConfPNe >FTYP04 FTYP04  DC2@06EC05 PCIF/1000 ConfPNe >D FSEL04  OC2B06EC05< PCIF/1000 ConfPNe >FTYP05 FTYP05  DC2@06EC05^ PCIF/1000 ConfPNe >E FSEL05  /OC2B06EC05 PCIF/1000 ConfPNe >FTYP06 FTYP06  8DC2@06EC05 PCIF/1000 ConfPNe >F FSEL06  IOC2B06EC05 PCIF/1000 ConfPNe >FTYP07 FTYP07 DC2@06EC05 PCIF/1000 ConfPNe >G FSEL07 OC2B06EC05< PCIF/1000 ConfPNe >FTYP08 FTYP08 DC2@06EC05^ PCIF/1000 ConfPNe >H FSEL08 /OC2B06EC05 PCIF/1000 ConfPNe >FTYP09 FTYP09 8DC2@06EC05 PCIF/1000 ConfPNe >I FSEL09 IOC2B06EC05 PCIF/1000 ConfPNe >FTYP10 FTYP10 DC2@06EC05 PCIF/1000 ConfPNe >J FSEL10 OC2B06EC05< PCIF/1000 ConfPNe >FTYP11 FTYP11 DC2@06EC05^ PCIF/1000 ConfPNe >K FSEL11 /OC2B06EC05 PCIF/1000 ConfPNe >FTYP12 FTYP12 8DC2@06EC05 PCIF/1000 ConfPNe >L FSEL12 IOC2B06EC05 PCIF/1000 ConfPNe >FTYP13 FTYP13 DC2@06EC05 PCIF/1000 ConfPNe >M FSEL13 OC2B06EC05< PCIF/1000 ConfPNe >FTYP14 FTYP14 DC2@06EC05^ PCIF/1000 ConfPNe >N FSEL14 /OC2B06EC05 PCIF/1000 ConfPNe >FTYP15 FTYP15 8DC2@06EC05 PCIF/1000 ConfPNe >O FSEL15 IOC2B06EC05 PCIF/1000 ConfPNe +T&v02S ** SCREEN 8 **+&v02S $E&v02S PCIF/1000 Configuration Editor: PC Type Selection $&v02S &v02S 2b&v02S&v01S&dA] 2&v02S 5&v02S Available PC types: &v02S &v02S q&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S q&v02S q&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S q&v02S q&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S q&v02S q&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S q&v02S q&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S &v06S&d@] ]&v02S&d@ &v06S&dB[ ]&d@&v02S q&v02S &v02S )O )  KFO $PREVIOUS SCREEN LIST (( PREVIOUS TYPES NEXT TYPES HELP REFRESH ABORT PCCON K 3 : no actionc 4 : no actionc 5 : hel/PCIF/GS/CSCR09.TXT:::3:11:75 644 0 0 5400 5303667167 34145 /PCIF_GS/GS/CSCR09.TXT:::3:11:75  $  KCSCR09 TXT +nv+nw+nw E&ZFST <vFO $ *CSCR09.TXT 94200-17225 REV.2525 PCIF/1000 Configuration Editor SCREEN 9  Y B01 V02OC sd< >NEWUPD NEWUPD PDC2A01EC05 PCIF/1000 Configura >TYPNAM TYPNAM DC2D06EE05' PCIF/1000 Configura >A PCNUM @DI2D06EE05h PCIF/1000 Configura >B HWYNUM  OI2B06EC05' PCIF/1000 Configura >D FTO  OI2B06EC05' PCIF/1000 Configura >E FTOUNI  @OI2B06EG05h PCIF/1000 Configura >F FPRIOR  OI2B06EC05' PCIF/1000 Configura >G CAPAWD @OC2F06EG05P PCIF/1000 Configura >H CAPAWP @OC2F06EG05P PCIF/1000 Configura >I CAPATR @OC2F06EG05P PCIF/1000 Configura >J CAPAUN @OC2F06EG05P PCIF/1000 Configura >K CAPAST @OC2F06EG05P PCIF/1000 Configura +T&v02S ** SCREEN 9 **+&v02S #C&v02S PCIF/1000 Configuration Editor: PC Configuration #&v02S 2b&v02S&v01S&dA] 2&v02S B&v02S PC type: &v06S&dD] ]&d@&v02S Number: &v06S&dD] ]&d@&v02S B&v02S $F&v02S Highway number: &v06S&dB[ ]&d@&v02S $&v02S C&v02S Time out: &v06S&dB[ ]&d@&v02S Time out unit: &v06S&dB[ ]&d@&v02S 1: minute C+S&v02S 2: second +8n&v02S Priority: &v06S&dB[ ]&d@&v02S 8&v02S &v02S 8n&v02S Capabilities: Write data allowed: &v06S&dF[ ]&d@&v02S 88n&v02S Write program allowed: &v06S&dF[ ]&d@&v02S 88n&v02S Transparent functions allowed: &v06S&dF[ ]&d@&v02S 81`&v02S Unsolicited PC requests allowed: &v06S&dF[ ]&d@&v02S 18n&v02S Start/stop allowed: &v06S&dF[ ]&d@&v02S 8&v02S )O )  KFO $ LIST HELP REFRESH ABORT PCCON K/PCIF/GS/CSCR11.TXT:::3:8:75 644 0 0 4000 5303667171 34265 /PCIF_GS/GS/CSCR11.TXT:::3:8:75 $ KCSCR11 TXT +nx+ny+ny hFST <vFO $ *CSCR11.TXT 94200-17226 REV.2525 PCIF/1000 Configuration Editor SCREEN 11 " Y B01 V02OCuP< >NEWUPD NEWUPD PDC2A01EC05 PCIF/1000 Configura >A REQLGT  5OI2B06EC05E PCIF/1000 Configura >B QUELGT  5OI2B06EC05E PCIF/1000 Configura >C NBKEYS 5OI2B06EC05E PCIF/1000 Configura >D FSECURIT5OI2B06EC05E PCIF/1000 Configura >FILNAM FILNAM 5OC2B06EG05E PCIF/1000 Configura +T&v02S ** SCREEN 11 **+&v02S &v02S %H&v02S PCIF/1000 Configuration Editor: General Information %&v02S 2b&v02S&v01S&dA] 2&v02S &v02S +&v02S Maximum length of application 1_&v02S program requests or replies: &v06S&dB[ ]&d@&v02S (bytes) 15&v02S 2b&v02S Maximum PC request queue length: &v06S&dB[ ]&d@&v02S (requests)2&v02S +T&v02S Maximum number of access keys: &v06S&dB[ ]&d@&v02S+&v02S $&v02S PC_DISC Security code 8m&v02S (also used for scheduling PCHLT): &v06S&dB[ ]&d@&v02S 8&v02S 4f&v02S Configuration file namr: &v06S&dB[ ]&d@&v02S4&v02S .&v02SDepress ENTER to complete PCCON. )O )  KFO $PREVIOUS SCREEN LIST HELP REFRESH ABORT PCCON K character*4 string character kw  integer rc integer n c c c c  call kw_output (9,/PCIF/GS/COURSE.LOD:::3:2:38 644 0 0 1000 5303667173 34274 /PCIF_GS/GS/COURSE.LOD:::3:2:38 $ &COURSE LOD +nz+n{+n{ rFST * COURSE.LOD 94200-17232 REV.2525 <850625.1447> * Command file for linking COURSE program &****************************************************************************&lb li,pascal.lib::libraries li,zmntl.libre,course0.relre,course1.relre,course2.relre,course3.relen,course.run  if (rc .ne. 0) goto 1000c  call kw_output (15,16,c_sofkloc,kw)  call f_putstring (FB4_SOFKLOC,kw,1,rc) if (rc .ne. 0) goto 1000c  call conv_in/PCIF/GS/ABLADLOG.TXT:::4:23:39 644 0 0 13400 5303667174 35107 /PCIF_GS/GS/ABLADLOG.TXT:::4:23:39 "$ 'ABLADLOG TXT +n{+n|+n| UovFST ABLADLOG.TXT 94200-17233 REV.2525 <850530.1557> %Getting Started with PCIF/1000 - Allen-Bradley example ladder logic program %Programmer : B.M. &****************************************************************************& LADDER LOGIC FOR SARSAPARILLA SODA PCIF NETWORK &This ladder logic diagram program simulates a bottling line. It uses timers&$and counters to simulate 15 bottles going by a check point every minute.$%Two of the 15 bottles are defective bottles. Every time a minute elapses,%#the programmable controller interrupts the computer on the network and#&sends it an unsolicited request. This unsolicited request tells the computer &%that it is time to compute the production data for the last minute to pass%$the total number of bottles that have gone through the checkpoint on the$bottling line. %The first four rungs in the program are the Communication Zone rungs. The%#Memory Access rung (the second rung) indicates that station 11 (octal), #$which is the computer, can write to word addresses 040 - 056 in the data$#table. The third rung, the Command Rung, specifies that when the start #$bit 032/10 is ON (the minute timer has timed out), an unsolicited request $%will be sent to station 11 (octal). The message will contain the contents%of the word addresses 050 - 052. #The Display Rung allows the contents of the word addresses of the GETs##to be viewed at the same time (when looking at the Industrial Terminal#display).  $The Minute Timer rung keeps timing a minute. When it times out, the next $#rung latches the start bit long enough for the command rung to execute. #%The following rung unlatches the start bit when the done bit in ON and the%timed bit is OFF, or when one of the two fault bits is ON. #The two TON timers simulate the bottles. The timer with the address of ##042 causes the CTU counter 050 to increment and count a bottle every 2#%seconds. Then TON timer 044 causes the CTU counter ((054 to increment every%$15 seconds. This simulates that 2 out of every 15 bottles are defective. $These timers are reset automatically every time they time out. %The last six rungs keep count of the total number of bottles and the total%#number of defective bottles. Counters 050 and 052 are cascaded so that ##the number of bottles counted can be greater than 999. It will enable#"up to 999,000 bottles to counted. The CTR counter reset instruction"#resets the 050 counter after it overflows. The rungs which control the #054 and 056 CTU counters behave exactly the same as above.  The ladder logic program:   013 077 034 02707  ---[G]-----[G]-----[G]----------------------(L)---   011 040 056 02707  |--[G]-----[G]-----[G]---|------------------( )---   03210 01100 011 050 052 02707  ---] [-----] [-----[G]-----[G]-----[G]------( )---  02707  --------------------------------------------(U)---   Display Rung  040 042 050 052 044 054 056 01300 ---[G]---[G]---[G]---[G]---[G]---[G]---[G]---( )---  04015 Minute Timer 040  ---]/[--------------------------------------(TON)-- 1.0  PR 060  AC 000  04015 03210 ---] [---------------------------------------(L)---  03200 04015 03210 ---] [-----]/[---|---------------------------(U)--- 03300 | -----] [---------| 03310 | -----] [---------|  04215 Simulates every bottle on line 042  ---]\[--------------------------------------(TON)-- 1.0  PR 002  AC 000  04415 Simulates defective bottle on line 044  ---]/[--------------------------------------(TON)-- 1.0  PR 015  AC 000  04215 Counts every bottle (0-999) 050  ---] [--------------------------------------(CTU)-- PR 999  AC 000  05014 (1,000-999,000) 052  ---] [--------------------------------------(CTU)-- PR 999  AC 000  05014 04215 052  ---] [-----]/[------------------------------(CTR)-- PR 999  AC 000  04415 Counts defective bottles (0-999) 054  ---] [--------------------------------------(CTU)-- PR 999  AC 000  05414 (1,000-999,000) 056  ---] [--------------------------------------(CTU)-- PR 999  AC 000  05414 04415 054  ---] [-----]/[------------------------------(CTR)-- PR 999  AC 000 /PCIF/GS/Z94200:::4:21:39 644 0 0 12400 5303667217 33043 /PCIF_GS/GS/Z94200:::4:21:39 $ ƈ'Z94200 +n+n+n 'KFST * Z94200 94200-17997 REV.6000 <921116.1552>    **************************************************************  * PCIF/1000 GETTING STARTED MANUAL *  * FILE FILE NAME: Z94200 *  * *  * PRODUCT: 94200Z REV.6000 *  * *  **************************************************************   Directory: /PCIF/GS/    FILENAME PART NUMBER REV. TYPE DESCRIPTION ' --------------------- ----------- ---- ---- --------------------------------' % Z94200 94200-17997 6000 4 Getting Started PCIF/1000 SNC %% XFER.CMD 94200-17200 2525 3 Transfer cmd file for install %# MAINMENU.CRS 94200-16523 5000 1 Main menu run-time module ## GMOD1.CRS 94200-16511 5000 1 First GM run-time module## GMOD2.CRS 94200-16512 5000 1 Second GM run-time module ## GMOD3.CRS 94200-16513 5000 1 Third GM run-time module## GMOD4.CRS 94200-16514 5000 1 Fourth GM run-time module ## GMOD5.CRS 94200-16515 5000 1 Fifth GM run-time module## ABMOD1.CRS 94200-16518 5000 1 First AB run-time module## ABMOD2.CRS 94200-16519 5000 1 Second AB run-time module ## ABMOD3.CRS 94200-16520 5000 1 Third AB run-time module## ABMOD4.CRS 94200-16521 5000 1 Fourth AB run-time module ## ABMOD5.CRS 94200-16522 5000 1 Fifth AB run-time module## GEMOD1.CRS 94200-16530 5000 1 First GE run_time module## GEMOD2.CRS 94200-16531 5000 1 Second GE run_time module ## GEMOD3.CRS 94200-16532 5000 1 Third GE run_time module## GEMOD4.CRS 94200-16533 5000 1 Fourth GE run_time module #" GEMOD5.CRS 94200-16534 5000 1 Fith GE run_time module "' SCRNS.REL 94200-16500 2525 5 Program called to access screens'' TEACHME.REL 94200-16501 2525 5 Pgm for execution of TEACHME cmd'& SCRNS.LOD 94200-17208 2525 4 Link cmd file for SCRNS program &% TEACHME.LOD 94200-17209 2525 4 Link cmd file for TEACHME pgm %' COURSE.LOD 94200-17232 2525 3 Link cmd file for COURSE program'' GMLADLOG.TXT 94200-17206 2525 3 Txt for GM exmpl laddr logic pgm'' ABLADLOG.TXT 94200-17233 2525 4 Txt for AB exmpl laddr logic pgm'' GELADLOG.TXT 94200-17236 2618 4 Txt for GE exmpl laddr logic pgm'' GMSODA.FTN 94200-18509 2525 3 Source for exmpl application pgm'' ABSODA.FTN 94200-18510 2525 4 Source for exmpl application pgm'' GESODA.FTN 94200-18535 2618 4 Source for exmpl application pgm'% COURSE0.REL 94200-16502 2606 5 Pilot relocatable - module 1%% COURSE1.REL 94200-16503 2525 5 Pilot relocatable - module 2%% COURSE2.REL 94200-16504 2525 5 Pilot relocatable - module 3%% COURSE3.REL 94200-16505 2525 5 Pilot relocatable - module 4% ZMNTL.LIB 94200-12500 2525 5 Pilot library ! PCHAB.TXT 94200-17211 5000 4 ASCII descriptor file !! PCPAB.TXT 94200-17212 5000 4 ASCII descriptor file !! PCHGM.TXT 94200-17213 5000 4 ASCII descriptor file !! PCPGM.TXT 94200-17214 5000 4 ASCII descriptor file !! PCHGE.TXT 94200-17501 5000 4 ASCII descriptor file !! PCPGE.TXT 94200-17502 5000 4 ASCII descriptor file !& PSCR01.TXT 94200-17215 2525 3 Preconfig : form file screen 1&& PSCR02.TXT 94200-17216 2525 3 Preconfig : form file screen 2&& PSCR03.TXT 94200-17217 2525 3 Preconfig : form file screen 3&$ CSCR01.TXT 94200-17218 2525 3 Config : form file screen 1 $$ CSCR02.TXT 94200-17219 2525 3 Config : form file screen 2 $$ CSCR03.TXT 94200-17220 2525 3 Config : form file screen 3 $$ CSCR04.TXT 94200-17221 2525 3 Config : form file screen 4 $$ CSCR05.TXT 94200-17222 2525 3 Config : form file screen 5 $$ CSCR06.TXT 94200-17234 2618 3 Config : form file screen 6 $$ CSCR07.TXT 94200-17223 2525 3 Config : form file screen 7 $$ CSCR08.TXT 94200-17224 2525 3 Config : form file screen 8 $$ CSCR09.TXT 94200-17225 2525 3 Config : form file screen 9 $% CSCR11.TXT 94200-17226 2525 3 Config : form file screen 11%% CSCR16.TXT 94200-17236 2618 3 Config : form file screen 16%% FLIB1.LIB 94200-12100 6000 5 F/1000 library: integral FTN%& FLIB2.LIB 94200-12101 6000 5 Common routines for F/1000 lib. &" FDBLK.REL 94200-16507 2525 5 F/1000 : block data #1"" FOUSE.REL 94200-16508 2525 5 F/1000 : block data #2" \`7/! `I IH`L ^w < ]##r ^`((/PCIF/GS/GMSODA.FTN:::3:45:36 644 0 0 26400 5303667221 34526 /PCIF_GS/GS/GMSODA.FTN:::3:45:36  $- ƨ-$GMSODA FTN +n+n+n--FST ftn7x,l $files 3,3 program gmsoda, 94200-18509 REV.2525 C ********************************************************* !C This is an example program which uses PCIF/1000 to communicate!C with Gould-Modicon Programmable Controllers.C C Programmer : B.A.M. C C SOURCE : 94200-18509 C No relocatable or command file. C C *********************************************************   C Variable Declarations  $ integer*4 write_addr ! word addr in PC memory for PC_WRITED$# integer*4 read_addr ! word addr in PC memory for PC_READD # integer bottles ! # of bottles in last minute ! integer buffr ! contains data retrieved from PC !$ integer contkey ! wait bit + access key ( PC_ENQUIRY )$# integer current_bottles ! total number from most recent min.## integer current_defective ! total number from most recent min.#! integer data_buffer(128) ! data retrieved from PC_ENQUIRY!# integer defective ! # of defective bottles in last min. #" integer good ! # of good bottles in last minute"# integer interval ! # of minutes between writes to file # integer ios ! FORTRAN I/O status integer lengr ! length and type of buffr integer loglu ! terminal to log messages to # integer logr ! returned message data length-bytes#" integer min ! decimal value of PC minute timer" integer minutes ! number of minutes elapsed ! integer no_key ! contains 0 for PCARs with wait!! integer no_tag ! contains 0 for PCARs with wait! integer oldstat ! status of retrieved request # integer oldtag ! user's identifier for request rec'd ## integer pc1 ! bottling line PC logical identifier #! integer previous_bottles ! total number from previous min. !! integer previous_defective ! total number from previous min. !" integer read_buffer(128) ! contains message received from PC "# integer read_length ! length of message received from PC# integer start ! a data word  integer stat ! PCIF access routine status integer subfunction ! CMD byte for A-B PCs integer tag ! user-defined tag variable  integer typer ! type of message retrieved ! integer wdkey ! access key for no-wait request!! integer write_buffer(128) ! contains message to write to PC !# integer write_length ! length of message to transmit to PC # C Variable Initialization   data no_key/0/, no_tag/0/,start/0/  data pc1/1/, tag/32765/, lengr/128/! data minutes/0/, current_bottles/0/, current_defective/0/! data loglu/1/, interval/2/  C Establish communications with the PCIF monitor  call PCIF_OPEN ( stat )  if ( stat .GT. 0 ) call error ( stat ) write ( loglu, * ) 'Opened communication with PCIF.' C Establish communications with the PC on line #1   call PC_CONNECT ( stat, no_tag, no_key, pc1 )  if ( stat .GT. 0 ) call error ( stat ) write ( 1, * ) 'Established communication with PC.'  C Get one access key for write data without wait  call PC_GETKEY ( stat, wdkey ) if ( stat .GT. 0) call error ( stat )  write ( loglu, * ) 'Got the necessary access key.' C Lock the PC from access by other application programs   call PC_LOCK ( stat, pc1 ) if ( stat .GT. 0 ) call error ( stat ) write ( loglu, * ) 'Locked the PC.'  !C Reset the counters and timers in the programmable controller!  do i = 1,7 write_buffer(i) = 0 end do  write_length = 7 ! write 7 words of data! write_addr = 40001 ! starting word address to write data!  call PC_WRITED ( stat, no_tag, no_key, pc1, write_buffer,  + write_length, write_addr )   if ( stat .GT. 0 ) call error ( stat )  write ( loglu, * ) 'Initialized counters and timers in PC.'  C Start timers by setting START bit 10001   write_addr = 10  write_buffer = ibset ( start, 15 ) write_length = 1 + 100000b  call PC_WRITED ( stat, no_tag, no_key, pc1, write_buffer,  + write_length, write_addr )  if ( stat .GT. 0 ) call error (stat)  write ( loglu, * ) 'Executed bit write to start timers.' C Unlock the PC from this application program   call PC_UNLOCK ( stat, pc1 ) if ( stat .GT. 0 ) call error ( stat ) write ( loglu, * ) 'Unlocked the PC.'  C Open file to write productions stats on bottling line #1 " OPEN ( 50, FILE='PROD_STATS_1',IOSTAT=IOS,ERR=98,STATUS='OLD' ) " #C********************************************************************** # C Start continuous monitoring of the bottling line.  C Check the break bit for operator intervention and terminate C the program gracefully.  2000 if ( IFBRK() .LT. 0 ) then  C Reset START bit   write_addr = 10 write_buffer = start  write_length = 1 + 100000b  call PC_WRITED ( stat, no_tag, no_key, pc1, write_buffer,  + write_length, write_addr )  if ( stat .GT. 0 ) call error ( stat ) C Close file PROD_STATS_1  close (50)  C Release Resources (keys)  call PC_RELKEY ( stat, wdkey ) if ( stat .GT. 0 ) call error ( stat ) write ( loglu, * ) 'Released access key.'  C Cancel all requests from the PC   call PC_CANCEL ( stat, pc1, no_tag, 0 )  if ( stat .GT. 0 ) call error ( stat ) write ( loglu, * ) 'Cancelled all requests.' C Close program to PCIF   call PCIF_CLOSE ( stat ) if ( stat .GT. 0 ) call error ( stat ) write ( loglu, * ) 'Closed PCIF. Terminated program.'  stop  end if C Get current status of PC ... Is it up and running ?   call PC_PCSTAT ( stat, no_tag, no_key, pc1, buffr )  if ( stat .GT. 0 ) call error ( stat )  if ( buffr .EQ. 1 .OR. buffr .EQ. 3 ) then write ( 1,1005 )  write ( 50, 1005, IOSTAT=ios, ERR=99 )1005 format ("PC on bottling line 1 down !!") end if C Check if data for the last minute is ready yet 100 read_buffer(1) = 0 read_length = 1 read_addr = 40001   call PC_READD ( stat, no_tag, no_key, pc1, read_buffer,  + read_length, read_addr ) if ( stat .GT. 0 ) call error ( stat )  if ( read_buffer(1) .ne. 60 ) go to 1500  C Get current total number bottles and defective bottles  " read_length = 4 ! counter uses four words in PC memory" read_addr = 40004   call PC_READD ( stat, no_tag, no_key, pc1, read_buffer,  + read_length, read_addr ) if ( stat .GT. 0 ) call error ( stat ) C Compute production figures for the last minute " minutes = minutes +1 ! Another minute has elapsed " previous_bottles = current_bottles current_bottles = read_buffer(1) if ( read_buffer(2) .GT. 0 ) then $ current_bottles = current_bottles + (1000 * read_buffer(2))$ end if previous_defective = current_defective current_defective = read_buffer(3) if ( read_buffer(4) .GT. 0 ) then $ current_defective = current_defective+(1000*read_buffer(4))$ end if bottles = current_bottles - previous_bottles defective = current_defective - previous_defective good = bottles - defective  write ( loglu, 1010 ) bottles, defective, good!1010 format (/"Total Bottles:", i6, 2x, "Defective:", i6, 2x,! + "Good:", i6) C check if specified interval has elapsed yet ...   if ( minutes .EQ. interval ) then  C Reset bottle counters in the PC on the bottling line  do i = 1,4 ! re-initialize the buffer write_buffer (i) = 0  end do  write_length = 4 ! write four words of data " write_addr = 40004 ! starting word address to write data "  call PC_WRITED ( stat, tag, wdkey, pc1, write_buffer,  + write_length, write_addr )   if ( stat .GT. 0 ) call error ( stat )  minutes = 0 ! reset minute counter C Write production totals to PROD_STATS file  write ( 50, 1020, IOSTAT=ios, ERR=99 ) current_bottles,  + current_defective  1020 format ( 2i5 )  C Check to s((ee if WRITED executed properly  contkey = wdkey ! Do call with wait  call PC_ENQUIRY ( stat, oldstat, oldtag, contkey, pc1,  + data_buffer, lengr, typer, logr )   if ( stat .GT. 0 ) call error ( stat )  if ( oldtag. EQ. tag ) then  if ( oldstat .GT. 0 ) call error ( oldstat ) end if  current_bottles = 0 ! Re-initialize variables  current_defective = 0   end if C Take a half second break to free up computerC Return to beginning of the loop  1500 call exec ( 12, 0, 1, 0, 50 )   go to 2000  C Error Messages  98 continue write ( loglu, 1098 ) ios 1098 format ("Open Error ",i3," on file PROD_STATS_1")  stop 99 continue write ( loglu, 1099 ) ios 1099 format ("Write Error ",i3," in file PROD_STATS_1")  end   subroutine error ( istat ) C Print out error message to log terminal C Close PCIF and terminate application program  integer err_mess(40) integer err_len   data loglu/1/   call PCIF_ERROR ( istat, err_mess, err_len ) " write ( loglu, 10 ) istat, ( err_mess(k),k=1,(err_len + 1)/2 )"10 format (/,i5,2x,"",40A2, 2/ )   call PCIF_CLOSE ( istat )  stop  end   /SPNA0502/PC10SRC/XCOMP.MAC:::3:384:33 JvD400_HEADER RR .CBT.MBT.MPYPAS.1 PAS.2 PAS.200 PAS.5 PAS.NONCDS PAS.RANGEINTEGER PAS.WRITEINTEGER PAS.WRITELINE PAS.WRITESTRING R/PCIF/GS/ABSODA.FTN:::4:58:36 644 0 0 35000 5303667222 35415 /PCIF_GS/GS/ABSODA.FTN:::4:58:36  $: :$ABSODA FTN +n+n+n:FST ftn7x,l $files 3,3 program absoda( 3, 99 ), 94200-18510 REV.2525  C ********************************************************* !C This is an example program which uses PCIF/1000 to communicate!C with Allen-Bradley Programmable Controllers.C C Programmer : B.A.M. C C SOURCE : 94200-18510 C No relocatable or command file. C C *********************************************************     C Variable Declarations  $ integer*4 write_addr ! word addr in PC memory for PC_WRITED$# integer*4 read_addr ! word addr in PC memory for PC_READD #! integer bottles ! decimal value of total_bottles!" integer buffr ! contains data retrieved from PC "" integer c_bottles ! decimal value of current_bottles"# integer c_defective ! decimal value of current_defective#$ integer contkey ! wait bit + access key ( PC_ENQUIRY )$# integer current_bottles ! total number from most recent min.## integer current_defective ! total number from most recent min.#" integer data(8) ! contains diagnostic status info."! integer data_buffer(128) ! data retrieved from PC_ENQUIRY!" integer defective ! decimal value of total_defective" integer good ! decimal value of total_good $ integer interval ! # of minutes between writes to file $ integer ios ! FORTRAN I/O status integer lengr ! length and type of buffr integer loglu ! terminal to log messages to # integer logr ! returned message data length-bytes# integer minutes ! number of minutes elapsed ! integer no_key ! contains 0 for PCARs with wait!! integer no_tag ! contains 0 for PCARs with wait! integer oldstat ! status of retrieved request $ integer oldtag ! user's identifier for request rec'd $$ integer pc1 ! bottling line PC logical identifier $" integer previous_bottles ! total number from previous min. "" integer previous_defective ! total number from previous min. "# integer read_buffer(128) ! contains message received from PC ## integer read_length ! length of message received from PC# integer stat ! PCIF access routine status integer subfunction ! CMD byte for A-B PCs integer tag ! user-defined tag variable ! integer total_bottles ! number bottles in last minute !# integer total_defective ! number of defective in last minute#$ integer total_good ! number of good bottles in last min. $ integer typer ! type of message retrieved # integer uskey ! access key for unsolicited request#! integer wdkey ! access key for no-wait request!" integer write_buffer(128) ! contains message to write to PC "$ integer write_length ! length of message to transmit to PC $ C Variable Initialization   data no_key/0/, no_tag/0/ data pc1/1/, tag/32765/, lengr/128/! data minutes/0/, current_bottles/0/, current_defective/0/! data read_addr/44/, loglu/1/, interval/2/ C Establish communications with the PCIF monitor  call PCIF_OPEN ( stat )  if ( stat .GT. 0 ) call error ( stat ) write ( loglu, * ) 'Opened communication with PCIF.' C Establish communications with the PC on line #1   call PC_CONNECT ( stat, no_tag, no_key, pc1 )  if ( stat .GT. 0 ) call error ( stat ) write ( 1, * ) 'Established communication with PC.'  C Get two access keys for unsolicited requests andC write data without wait   call PC_GETKEY ( stat, uskey ) if ( stat .GT. 0 ) call error ( stat ) call PC_GETKEY ( stat, wdkey ) if ( stat .GT. 0) call error ( stat )  write ( loglu, * ) 'Got the necessary access keys.'  !C Enable unsolicited requests from the programmable controller!  call PC_ENUNSOL ( stat, pc1, uskey ) if ( stat .GT. 0 ) call error ( stat ) write ( loglu, * ) 'Enabled unsolicited requests.' C Lock the PC from access by other application programs   call PC_LOCK ( stat, pc1 ) if ( stat .GT. 0 ) call error ( stat ) write ( loglu, * ) 'Locked the PC.'  C Get the full diagnostic status of the PC $ subfunction = 6 ! CMD byte = 6 for A-B Diag. Stat. $$ write_buffer(1) = 3 * 400b ! FNC byte = 3 for A-B Diag. Stat. $! write_length = 1 + 40000b ! specify 1 byte to transmit !! read_length = 10 + 40000b ! specify 10 bytes to receive!  call PC_TRANS ( stat, no_tag, no_key, pc1, subfunction, # + write_buffer, write_length, read_buffer, read_length )#  if ( stat .GT. 0 ) call error ( stat ) C Get the results ... first, mask off the top two bits ...  read_length = IAND ( read_length, 3777B )  C Open a file to contain diagnostic status information $ OPEN (50, FILE='PROD_STATS_1', IOSTAT=ios, ERR=98, STATUS='OLD' ) $ C Parse data and write to the file if there is any ...  if ( read_length .GT. 0 ) then  C Key Position data(1) = ishft ( iand ( read_buffer(1), 1400B ), -8 )   C Interface Type  data(2) = iand ( read_buffer(1), 17B )  C Processor Type  data(3) = ishft ( iand ( read_buffer(1), 60B ), -4 ) C Starting Address of Program (byte swap)  data(4) = ishft ( iand ( read_buffer(2), 377B ), 8 )! + + ishft ( iand ( read_buffer(2), 177400B ), -8 )! C Diagnostic Counters Address (byte swap)  data(5) = ishft ( iand ( read_buffer(4), 377B ), 8 )! + + ishft ( iand ( read_buffer(4), 177400B ), -8 )! C Firmware Revision ! data(6) = ishft ( iand ( read_buffer(5), 17400B ), -8 ) !  C Firmware Series " data(7) = ishft ( iand ( read_buffer(5), 160000B ), -13 ) " C Option Switches Settings data(8) = iand ( read_buffer(5), 377B )  C Write data to the file PROD_STATS_1 ! write ( 50, 1000, IOSTAT=ios, ERR=99 ) ( data(i),i=1,8 )! 1000 format ( 8i6)   end if !C Reset the counters and timers in the programmable controller!  do i = 1,15  write_buffer(i) = 0 end do  write_length = 15 ! write 15 words of data" write_addr = 32 ! starting word address to write data "  call PC_WRITED ( stat, no_tag, no_key, pc1, write_buffer,  + write_length, write_addr )   if ( stat .GT. 0 ) call error ( stat ) ! write ( loglu, * ) 'Initialized counters and timers in PC.' ! C Unlock the PC from this application program   call PC_UNLOCK ( stat, pc1 ) if ( stat .GT. 0 ) call error ( stat ) write ( loglu, * ) 'Unlocked the PC.'  $C*************************((********************************************* $ C Start continuous monitoring of the bottling line. !C Check the break bit for operator intervention and terminate !C the program gracefully.  2000 if ( IFBRK() .LT. 0 ) then C Disable unsolicited requests from the PC  call PC_DIUNSOL ( stat, pc1 )  if ( stat .GT. 0 ) call error ( stat ) write ( loglu, * ) 'Disabled unsolicited requests.'  C Release Resources (keys)  call PC_RELKEY ( stat, uskey ) if ( stat .GT. 0 ) call error ( stat ) call PC_RELKEY ( stat, wdkey ) if ( stat .GT. 0 ) call error ( stat ) write ( loglu, * ) 'Released access keys.' C Cancel all requests from the PC   call PC_CANCEL ( stat, pc1, no_tag, 0 )  if ( stat .GT. 0 ) call error ( stat ) write ( loglu, * ) 'Cancelled all requests.' C Close program to PCIF   call PCIF_CLOSE ( stat ) if ( stat .GT. 0 ) call error ( stat )! write ( loglu, * ) 'Closed PCIF. Terminated program.' ! stop  end if C Get current status of PC ... Is it up and running ?   call PC_PCSTAT ( stat, no_tag, no_key, pc1, buffr )  if ( stat .GT. 0 ) call error ( stat )  if ( buffr .EQ. 1 .OR. buffr .EQ. 3 ) then write ( 1,1005 )  write ( 50, 1005, IOSTAT=ios, ERR=99 ) 1005 format ("PC on bottling line 1 down for 5 seconds !")  end if C Check if data for the last minute is ready yet  do i = 1, lengr ! Initalize returned buffer  data_buffer(i) = 0  end do  logr = 0 typer = 0  contkey = uskey + 100000b   call PC_ENQUIRY ( stat, oldstat, oldtag, contkey, pc1, + data_buffer, lengr, typer, logr )   if ( stat .GT. 0 ) call error ( stat )  if ( typer .LT. 0 .AND. logr .GT. 0) then # minutes = minutes +1 ! Another minute has elapsed # previous_bottles = current_bottles current_bottles = data_buffer(2) if ( data_buffer(4) .GT. 0 ) then $ current_bottles = current_bottles + (1000 * data_buffer(4))$ end if C Get current total number of defective bottles  # read_length = 3 ! counter uses three words in PC memory # ! call PC_READD ( stat, no_tag, no_key, pc1, read_buffer, ! + read_length, read_addr ) if ( stat .GT. 0 ) call error ( stat ) C Compute production figures for the last minute  previous_defective = current_defective current_defective = read_buffer(1) if ( read_buffer(3) .GT. 0 ) then $ current_defective = current_defective+(1000*read_buffer(3))$ end if total_bottles = current_bottles - previous_bottles! total_defective = current_defective - previous_defective! total_good = total_bottles - total_defective C Display the production results for the last minuteC Convert bcd values to decimal first   call convert ( total_bottles, bottles )  call convert ( total_defective, defective )  good = bottles - defective  write ( loglu, 1010 ) bottles, defective, good!1010 format (/"Total Bottles:", i6, 2x, "Defective:", i6, 2x,! + "Good:", i6)  end if C check if specified interval has elapsed yet ...   if ( minutes .EQ. interval ) then  C Reset bottle counters in the PC on the bottling line  do i = 1,7 ! re-initialize the buffer write_buffer (i) = 0  end do  write_length = 7 ! write seven words of data # write_addr = 40 ! starting word address to write data #  call PC_WRITED ( stat, tag, wdkey, pc1, write_buffer,  + write_length, write_addr )   if ( stat .GT. 0 ) call error ( stat )  minutes = 0 ! reset minute counter C Write production totals to PROD_STATS fileC Convert bcd values to decimal first   call convert ( current_bottles, c_bottles )  call convert ( current_defective, c_defective )  $ write ( 50, 1020, IOSTAT=ios, ERR=99 ) c_bottles, c_defective $ 1020 format ( 2i5 )  C Check to see if WRITED executed properly  contkey = wdkey ! Do call with wait  call PC_ENQUIRY ( stat, oldstat, oldtag, contkey, pc1,  + data_buffer, lengr, typer, logr )   if ( stat .GT. 0 ) call error ( stat )  if ( oldtag. EQ. tag ) then  if ( oldstat .GT. 0 ) call error ( oldstat ) end if  current_bottles = 0 ! Re-initialize variables  current_defective = 0   end if C Take a 5 second break to free up computer C Return to beginning of the loop   call exec ( 12, 0, 2, 0, -5 )   go to 2000  C Error Messages  98 continue write ( loglu, 1098 ) ios 1098 format ("Open Error ",i3," on file PROD_STATS_1")  stop 99 continue write ( loglu, 1099 ) ios 1099 format ("Write Error ",i3," in file PROD_STATS_1")  end   subroutine error ( istat ) C Print out error message to log terminal C Close PCIF and terminate application program  integer err_mess(40) integer err_len   data loglu/1/   call PCIF_ERROR ( istat, err_mess, err_len ) " write ( loglu, 10 ) istat, ( err_mess(k),k=1,(err_len + 1)/2 )"10 format (/,i5,2x,"",40A2, 2/ )   call PCIF_CLOSE ( istat )  stop  end    subroutine convert ( bcd_num,decimal ) C Converts the bcd values from the counters in the PC C to decimal values to be output to the log terminalC and the production statistic file   implicit integer (a-z) C Mask off the top four status bits  bcd_num = iand ( bcd_num, 7777b )   C Get hundreds  hundreds = ishft ( iand ( bcd_num, 7400b ), -8 ) C Get tens tens = ishft ( iand ( bcd_num, 360b ), -4) C Get ones ones = iand ( bcd_num, 17b ) C Convert to the decimal equivalent  decimal = ( hundreds * 100 ) + ( tens * 10 ) + ones   return end /PCIF/GSWPCIF/COURSE0.REL:::5:88:128 644 0 0 54000 5303667075 36025 /PCIF_GS/GSWPCIF/COURSE0.REL:::5:88:128 $'$X tXCOURSE0 REL +n=+n=+n=X+FST JJXjZ&%PAS.GLOBALINFO94200-16502 REV.2606 <860219.1 860219.1936 /LESLI/GSWPDEV/COURSE0.MAC:::3:288:35 J@LjKKXZ&&PAS.ERRORCATCHER94200-16502 REV.2606 <860219.1 860219.1936 /LESLI/GSWPDEV/COURSE0.MAC:::3:288:35 K9PAS.ERRORCATCHER2XX .ENTR .MVWPAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.5 PAS.ERRORPRINTER PAS.INLINEERROR PAS.NONCDS PAS.PROMPT PAS.WRITECHAR X~~"BB`}P(P戈(P(P興(>P(PA((v}|{~z J A ! &A + 0A 5 :J H((y`t(F~hhB88pt`|pu(uAM}|{~z RJA  Y ^A c hA m rJH ((yHh h77ĨA p}p|p{A`h pz(@K~T7@bK GGX%Z&'SEGCHECK94200-16502 REV.2606 <860219.1 860219.1936 /LESLI/GSWPDEV/COURSE0.MAC:::3:288:35 G SEGCHECK AA õ.CBT .ENTR .MBT .MVWPAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDSPAS.SEGMENTLOAD A))xdh#6`$6A!(( h#6`$6 !A6) A `h$A "(6@OmGGXrZ&(RANDOMIZE 94200-16502 REV.2606 <860219.1 860219.1936/LESLI/GSWPDEV/COURSE0.MAC:::3:288:35 G`bRANDOMIZE ]]?.DLD.DST .FAD .FDV .FIXD .FLT.FLTD .FMP.FSB.LBT.MPY PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDSPAS.TIMESTRING]ի@@A <  *hkH6HmPq(hk6HmJh )@ADl * *hkJ6Hnh )D@ * *hkJ6Hoh )D@ e * *hk6HpJh )@D g GG@ * * * , * * D` *` * *i(_ , *bG?mc8b(Pd <  @2~Q>KKXӀZ&)OPEN_NEW_PROGRAM94200-16502 REV.2606 <860219.1 860219.1936 /L((ESLI/GSWPDEV/COURSE0.MAC:::3:288:35 KV OPEN_NEW_PROGRAM88_PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDSPAS.READNONTEXT PAS.SEEKFILE877A J >`>p pp `p p `p 78(@t4FFX,Z&)UPSHIFT 94200-16502 REV.2606 <860219.1 860219.1936/LESLI/GSWPDEV/COURSE0.MAC:::3:288:35 F HUPSHIFT  ++.ENTR PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDS+88\`p`(A@(`A@)(`@+p(`p`8Ap`*p( (`{ @DGGX:,Z&*DOWNSHIFT 94200-16502 REV.2606 <860219.1 860219.1936/LESLI/GSWPDEV/COURSE0.MAC:::3:288:35 GDOWNSHIFT ++.ENTR PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDS+88\p`p`A@)(`*A@(`@(p(`p`8Ap`+p( ( AZ @aIIXA#Z&+GETSTATEMENT94200-16502 REV.2606 <860219.1 860219.1936 /LESLI/GSWPDEV/COURSE0.MAC:::3:288:35 I]GETSTATEMENTo}}.DLD.DST.LBT.SBTOPEN_NEW_PROGRAM PAS.1 PAS.2 PAS.200 PAS.300 PAS.4 PAS.400 PAS.5 PAS.BLANKFILL PAS.ENDOFFILE PAS.NONCDSPAS.OPEN_FILE PAS.PARAMETERSPAS.PROMPTPAS.READLINE}IIgPAS.READNONTEXT PAS.READSTRINGPAS.RESET_FILEPAS.SEEKFILEPAS.WRITECHAR PAS.WRITELINE PAS.WRITESTRING UPSHIFT I88 ` A@ ( p )(h    >8@@ 8(P 䈈("(i`pph6@H`Hh6@H`A; 688(&`"pph6@H`H88(BAQ ApW LpA] ~\??ph6JAp g pHh6@ p r Aw  h6P(( p l(p l` P(P(P((J  vJ  x( v,DDJ x( v x(J  vJ  xHh6PA((  A  J A   JJ  UCCA( D(  `pph6@HHAph6p@H`H88( p up tA  p t` u(W! @q"EE& A+  4 J A; @ AE J AO T J D(_ ap `p p -g44` p X` P (p` p p` p p )`A@ (p `  p  h6@ 焪Hp ` p ` @!(` )p )h6@ )H` 66>` P ((` p ` P (` )P((t` p 61UU8( Pm[EUU@hJ'*10@  L I  > Please input the name of the course you wish to run. (hit RETURN to end COURSE) =>SHAREDERROR GETTING FI--LE - CHECK WITH TRAINING MANAGERSHARED 123P-@ĉIFFXtZ&.GETCHAR 94200-16502 REV.2606 <860219.1 860219.1936/LESLI/GSWPDEV/COURSE0.MAC:::3:288:35 F p GETCHAR  33 .ENTR .LBTPAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDSREIO3 A h6H   mA (A @JJXqbZ&/INPUT_CHARACTER 94200-16502 REV.2606 <860219.1 860219.1936/LESLI/GSWPDEV/COURSE0.MAC:::3:288:35 J<UINPUT_CHARACTER [[.ENTR .LBT .SBTPAS.1 PAS.2 PAS.200 PAS.300 PAS.4 PAS.400 PAS.ENDOFFILE PAS.ENDOFLINE PAS.NONCDS PAS.READCHARPAS.RESET_FILE[N;;`(Ep``pS`A@a(E`SJP_(E A(![[\YY`_pS(. (+ S`_pS(. S`SP^(2(:` (6(9@p(D`;;; ph]6 @H`SH (h]6 @H T`p @pU;V AT(1Z P@#EEX+cZ&0ERROR 94200-16502 REV.2606 <860219.1 860219.1936/LESLI/GSWPDEV/COURSE0.MAC:::3:288:35 E G}ERROR  }} .ENTR .LBT .SBTPAS.1 PAS.2 PAS.200 PAS.300 PAS.4 PAS.400 PAS.5 PAS.BOUNDINTEGER PAS.ENDOFFILE PAS.NONCDSPAS.READLINEPAS.RESET_FILEPAS.WRITECHAR PAS.WRITELINE PAS.WRITESTRING }<>>Jh6 P (y`l(yA zA`z AM!(5@@'((D(N(X(b(l(v(((((((P(PԈ(P(Pֈ(P>DD(P(PوA((K(!AUA(!_(!AiA(!s(!A}A(!}}MDD(!AA(!(!A A(!.A(!A=}DDA(!ϡK(!A[A(!i(!AxA(!(!AA(! ~~ ??(!AA(!p `)A@ (;h6H@ H p{A7{ ` p (#p ` A@((PL~hh,I11`  p (?UJJh6`  A`)p(f (vt(y(y(y}ha~\\A ||pz(*() ^1-error- (Arithmetic error) (Value out of bounds) (Invalid Compute instruction) (Disk access error - file may not exist!) (InvaiT``lid expression) (File input/output error) (Invalid Graphic instruction) (Improper format to schedule a program) (Invalid function argument) (Invalid Jump destination) (Unable to schedule pro=:``gram (Link file does not exist) (Invalid modifier/conditioner) (Invalid instruction code) (Too many arrays or strings) (Invalid synatax or format) (Invalid expression type) (Too many subYYAAroutines) (Invalid variable name) (Invalid execute instruction) (Unknown error code) - Press RETURN to continue -ORSTUVXY@v6IIXN EZ&2POWER_OF_TEN94200-16502 REV.2606 <860219.1 860219.1936 /LESLI/GSWPDEV/COURSE0.MAC:::3:288:35 Id5POWER_OF_TEN 77 j.DLD.DST .ENTR .FMPPAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDS7RR..AA=04( ?.(AAA.44p 4A@ ('. 00`  p (0225R8e6 A 4 A2(@Pfff@^`} HHXZ&3INITIALIZE94200-16502 REV.2606 <860219.1 860219.1936 /LESLI/GSWPDEV/COURSE0.MAC:::3:288:35 HdrINITIALIZEccO.DLD.DST.MBT.SBTEXECMOPSY PAS.1 PAS.2 PAS.200 PAS.300 PAS.4 PAS.400 PAS.5 PAS.NONCDSPAS.RESET_FILEPAS.REWRITE_FILERANDOMIZE c~99 p Jp ` p Vp p p W p X`p p p  p p p p p p p p p h~6A`6up p h6`Hh6`@zzQz999`p `p p `p KAJv ,A Gp  p p  p `p )AY zzxxAa zz{Ad ` P(q` P(q` P(qAq|}rz44ms8r(eK1 A   <y NOCCTL  04@K}j=HHXiZ&5LABEL_COPY94200-16502 REV.2606 <860219.1 860219.1936 /LESLI/GSWPDEV/COURSE0.MAC:::3:288:35 HQ[LABEL_COPYAA j .CBT .ENTR .LBT.MPY .SBTPAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDSUPSHIFT AE:: p `fA @ (4hc6 @(H pYYp ` @h(!`(A@)(#`gp hd6@ H`  ` Pg (0`(p(` p (`X(Wp E((EZ:p ` VA@ J(W`e @b6hd6A a(P (S(Sp  (W` p (;[E!!\ A ZZpX(_  !@)HHX!vZ&5SKIP_SPACES 94200-16502 REV.2606 <860219.1 860219.1936/LESLI/GSWPDEV/COURSE0.MAC:::3:288:35 HSKIP_SPACES **.LBTPAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDS*&&a h6@(HP( ( `(p((&ͪ8( @JFFX_Z&6A_DIGIT 94200-16502 REV.2606 <860219.1 860219.1936/LESLI/GSWPDEV/COURSE0.MAC:::3:288:35 F #A_DIGIT  ++.ENTR PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDS+  ` @(` @p ` :Ap `p ( v @G5eHHX6Z&7SYMBOL_COPY 94200-16502 REV.2606 <860219.1 860219.1936/LESLI/GSWPDEV/COURSE0.MAC:::3:288:35 H"SYMBOL_COPY }>>  .CBT .LBT .SBTA_DIGIT PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDSUPSHIFT >~~H:: p h6H ` h6H` h6@(H pp ` @( ` @( ('` P('` P('(h J6`  `( p(h6 @(H p8p ~":<<p > (Sh6 J `  `( p(h6 @(H pRp ` P(W(_h6H`  `(p(p p ` A@ (`  @6Ah6 "".v (z(}(} p (`  p (c"  8( W  $./ @bIIX}1Z&8MAKE_A_SYMBOL 94200-16502 REV.2606 <860219.1 860219.1936/LESLI/GSWPDEV/COURSE0.MAC:::3:288:35 I!_%MAKE_A_SYMBOL 33 .MBT.MPYERROR PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDS3SSy%%` P/((A(($` p ` p `  @*@6`-6 )`+@  `. @,h0%S& 8%(T W   d@řFFXGZ&9SCREAL94200-16502 REV.2606 <860219.1 860219.1936 /LESLI/GSWPDEV/COURSE0.MAC:::3:288:35 F YSCREALI tt..FCM .DLD.DST.FAD.FDV.FLT.FMP.LBT.MPYA_DIGIT ERROR PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDSPOWER_OF_TENSKIP_SPACES SYMBOL_COPY UPSHIFT t??ppAA` (&` (`@ P( (%`J @ @9(h6 @(Hp 0p 4 (@` PÊ(@` P(@A ?5?99(` P(D(Tp`( p(h6 @(Hp Sp  9[ (a` PĈ(a(` PĈ(e(up`(p(h6@(HHAp tp ` )@ rrYx::D99`(` p`(p( h6@(Hp p (X`((A99`J(9D9r"" 8(SP   (-."@JJXnrZ&:SCAN_SUBSCRIPTS 94200-16502 REV.2606 <860219.1 860219.1936/LESLI/GSWPDEV/COURSE0.MAC:::3:288:35 JteSCAN_SUBSCRIPTS XXt.DLD.FIXD .LBT.MPYA_DIGIT ERROR PAS.1 PAS.2 PAS.200 PAS.300 PAS.400 PAS.NONCDSSKIP_SPACES SYMBOL_COPY UPSHIFT X p@@AA` ("` (`j@ Pn(h(!`oJ @k @lx $(Shm6 @ (Hpd,dp 0 A(55hp $: (S` $ph )MM@$$ H @p $` (p (hm6@ (HHApdQdp (7` $(^`qA @ $A(aaiceM f 8e(SB (   @$CbEEXFDZ'COURS 94200-16502 REV.2606 <860219.1 860219.1936/LESLI/GSWPDEV/COURSE0.MAC:::3:288:35 EFF5(COURS sPAS.1 !PAS.2 PAS.200 PAS.300 aPAS.4 PAS.400 @PAS.5 PAS.STOPFzzpp.CBT.DLD .FSB!.LBT".MBT.MPY#.SBTACCEPT_INPUT COMPUTE_ANSWER DIMENSION_A_STRIEND_OF_SECTIONERROR EXECEXPROCGETSTATEMENTGRAPHSIFILE INITIALIZEJUMP_TO_LABEL LABEL_COPYznlLINK_NEW_COURSE MTCHOFILE $PAS.BITMASK1%PAS.BLANKFILL &PAS.BOUNDINTEGER'PAS.INITFILE(PAS.INITIALIZE)PAS.INITMEMINFO1*PAS.INLINEERROR PAS.NONCDS+PAS.PROMPT,PAS.RESET_FILE-PAS.REWRITE_FILE.PAS.SETINIT tt?PAS.TOPOFSTACK1 /PAS.TRACECLOSE0PAS.WRITECHAR 1PAS.WRITESTRING RUNRTEA SEGCHECKSET_PROBLEM_AREASKIP_SPACES TYPE_IT_OUT UNRESTACK UPSHIFT USE_A_SUBROUTINE WAIT_A_BITX_INDIRECTt(__(-'57'=|4'E40'M@-'Ua*']''e1!)g,oa-w@=yh6`6"A%CK BBAK`YpW`ZpX`(`((`PC((A(`q(pq`]pY`^pZ((`ph6@H`#Aph6@H!pN NP"(Ȉ( `RFFAp`ɆA@=( `ʆA@W(`PW(( `ˆA@X( `Wp`Xp`pɄ`@@6`6A"` @hW` @hX`qAA(h6`6(((pq(( `A@()(h6@H!pN 3Np{`p`{P5(>`{P;(>(B`p(T`{P,(F(Th6@HHA!pN PN/^PHHp{`p`{P'(X(a`r(\(@p`8p{prpxpjpkplpmpypwpvpu.qO     ` @xh6pN@H!p` x@@` ,HHN@$(h6@HHA!p` `&19 (P)(ɈP+(P.(ψP0(P3(ƈP7(P;(؈P<((pj(pk(pm(pl(py(pw(px(R>>pv(h6@HHA!pN N@@pu(Hh>*`p(u`o(`{P5((po((`p(`{P2((pp((`j( `s( (`k(`s((`m(rDD`n((`l(!`t(!(`u(%()`uPz()(h6@HHA!pN 3NP!(6(JAA8;`t(?( (Hpn(pnh6@H!pN TNP'(ZAY(`OZII`ph6@HHA!pN gNP (j(m`p`{P8(q(~%xEAK{K}(`{P(((A%GKAK(`{P0((%IKAK(`{P2(PP(%KKAK(`{P)A((%MKKA (`{P5((%OAKK(`{P9((A%QKAK㈈(`{P+((%SKAKKK(`{P*A((%UKKA (`{P;( (%WAKK((`{P6((((`{P/("(9%)YAK,K.%5[AK8K(`{P4@(=(T% >SSD]AKGKI%P_AKSK(`{P1A(X(e%_aKbKAd(`{P:(i(v%pcAKsK u(`{P7(z(A%eKAK A%gKK(QII`{P-((`PP#(P$(P%(P&((((A%iKAKA%kKK((((`#PA(ˈ`#PB(`#AP?(A0@0@AA+@0@ ``A1@m+@AA/ O(8 1DJYNCEHSX12345679Mm @s_bOCOURSE_FILE DUMMY INPUT OUTPUTDATAFILEDFILE STUDENSS:99T_FILENOCCTL CRS1CRS1CRS1CRS1CRS1CRS1CRS1CRS1CRS1CRS1CRS1CRS3CRS1CRS3CRS1CRS1CRS1CRS3CRS1CRS2CRS1*d aletQ (S66-%% (*0123:ACDEFGHIJLMNOPRSTUWXYd6@(/PCIF/GSWPCIF/GMOD1.CRS:::1:50:128 644 0 0 31000 5303667107 34760 /PCIF_GS/GSWPCIF/GMOD1.CRS:::1:50:128 "%$2 2GMOD1 CRS +nG+nG+nG22nFST (($94200-16511 REV.5000 <870601.1742> PR:UE J:INIT *PRBINC C(J=0):W=W+1 C:C=C+1 C(W=C):J=0 T(J=0): : : : : : : : : : : : : : : : : : : : : : : C:C$=CHR(27) T(J=0): $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A T(J=0): HE for help $N$ :Screen# #C C: N=LEN(M$)-2 E: *INPUT C:J=0 TH:NEXT? A: M:ME&* JN:NEXT1 C:J=1 C:J$="E:"!!U$(3,6) XI:J$ *NEXT1 M:+**!-** JN:NEXT2 C:W1=W C:T$="C:W=C"!!%B C(T$="C:W=C-"!T$="C:W=C+"):T$=T$!!"1" XI:T$ T(W<=0):You are trying to jump back past the beginning of the module T(W<=0):Type return to continue with the next frame. A(W<=0): C(W<=0):W=W1+1 J(W<=0):RETURN C:J=1 C:J$="E:"!!M$(3,6) XI:J$ *NEXT2 M:EX**!EN** JN:NEXT3 C:F=1 C:J=1 C:J$="E:"!!M$(3,3)!!"EX" XI:J$ *NEXT3 M:CI JN: NEXT4 C:J=1 S:CI C:W=W+1 J:RETURN *NEXT4 M:HE!? JN:NEXT5 T: T: ********************* Commands ********************** T: * * T: * MENU, ME............Return to main menu * T: * +n..................go forward n screens * T: * -n..................go back n screens * T: * EXIT, EX, END, EN...Exit training package * T: * CI..................Run CI * T: * HELP, HE, ??, ?.....Help * T: * * T: ***************************************************** C:J=1 TH: Press RETURN to continue with the current screen: A: C:J$="E:"!!M$(3,6) XI:J$ *NEXT5 C:T$=" " C:T$= %B C:N=ASC(T$) T(N<>32): Sorry, I don't recoginze that command. Use ? for help. TH(N<>32): NEXT? J(N<>32): @A *RETURN E: *ANSWER C: B$="[" C: P1=INS(1,R$,B$) C: B$="]" C: P2=INS(P1,R$,B$) C: P1=P1-1 C: M1$= "M:"!!R$(1,P1) C: P1=P1+2 C: P3=P2-P1 C: T1$= R$(P1,P3) C: P4=LEN(R$)-P2 C: P2=P2+1 C: X1$= R$(P2,P4) XI:M1$ TY: : $T1$ CN: X1$="R:" E: *INIT D:T$(80) D:J$(80) D:M$(40) D:N$(40) D:S$(6) D:R$(256) D:M1$(128) D:T1$(128) D:X1$(15) D:C$(1) D:B$(1) D:U$(40) C:U$="J:INMENU" C:M$="J:INTIN" *INMENU T: : : : : : : : : : : : : : : : : : : : : : : C:C$=CHR(27) T: $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A C:W=0 C:C=0 C: J=0 T: : : : ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ : { } : { } : { Getting Started with PCIF/1000 } : { ------------------------------ } : { INtroduction } : { CAse study } : { PReconfigurator } : { COnfiguration editor } : { APplication program } : { EXit } : { } : ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ : : : Please type the name (1st 2 letters will suffice) of the section you TH: would like to study: C: F=1 C: T$=" " A: $T$ T: : : : : M:IN&* JY:INTIN M:CA&* JY:INTCA M:PR&* JY:INTPR M:CO&* JY:INTCO M:AP&* JY:INTAP M:EX&* JY:INTEX M: CY:F=0 XIY:M$ C:N=ASC(T$) C(N=32):F=0 XI(N=32):M$ TN: ***** : Sorry, but I don't recoginze that section name. : Here's the menu so you can try again! : ***** XIN:U$ PR: *INTIN C:J=0 C:W=0 C:M$="J:INTIN1" *INTIN1 C:N$="Introduction" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :Hello!! : :Welcome to Getting Started with PCIF/1000. : :This training package introduces you to the main features of PCIF/1000, :the Programmable Controller Interface Software for HP 1000 Computer :Systems. : :The package is directed towards systems engineers and application :programmers who are unfamiliar with PCIF/1000. Any one else in your :organization who needs an overview of PCIF/1000 would also benefit :from this training package. : :This introductory section overviews the case study approach used to :present PCIF/1000 and describes how to manuever through the training :package. : (press return) :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :To provide an overview of the features of PCIF/1000, this on-line :training package focuses on one specific case -- a fictious company :purchases PCIF/1000 to solve a particular problem. Because PCIF/1000 :is designed to interface with a variety of Programmable Controllers :and because each company using PCIF/1000 has different needs, a :comprehensive training package which explains each situation would :be needlessly long and repetitive. The best way to provide you with :a quick overview of PCIF/1000 is to study a typical manufacturing :problem and the development of a PCIF/1000 system which solves the :problem. By understanding how the main elements of PCIF/1000 work :in the sample case, you can formulate uses and applications for :PCIF/1000 in your situation. : :As you work through this training package, you may want to note any :questions and concerns about the application of PCIF/1000 for your :own use. : (press return) :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :This training package is divided as follows: : : * Module 1, The Case Study, describes the fictious company and : the problem to be solved. : : * Module 2, The Preconfigurator, allows you to create a : preconfiguration file for your fictious system by stepping : through each of the Preconfigurator screens. : : * Module 3, The Configuration Editor, allows you to create the : configuration file as you step through the Configuration : Editor screens. : : * Module 4, The Application Program, displays the process of : running the application program (written in Fortran), which : controls the overall operation of the PCIF/1000 software at : run-time. : (press return) :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== : :Enter commands after the : : NEXT? : :prompt at the bottom of each screen. : :As already shown, you press the return key to continue on to the next :screen. If you press the return key whenever a menu appears, you will :automatically progress sequentially through the course. : :Press return now to continue on to the next screen. : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :You can also move backwards to previous screens by typing a minus :sign and the number of screens you wish to move back. : :For example, to move backwards 4 screens, type: : : NEXT?-4 : :Similarly, to move forward, type a plus sign and the number of screens :to move forward. For example, : : NEXT?+4 : :Try this now. Type a "-1" and then a "+2" to reach the next screen. : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The following lists the remaining commands: : : : CI...................run RTE-A CI : : EXIT (EX, EN, END)...exit PCIF Getting Started : : HELP (HE, ?, or ??)..list the commands : : MENU (ME)............move back to the last menu : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *INTCA C:J=0 C:W=0 C:M$="J:INTCA1" XI(F=0):U$ *INTCA1 C:N$="The Case Study" C:F=0 C:C=0 S:COURSE,GMOD2.CRS,1,1 PR: *INTPR C:J=0 C:W=0 C:M$="J:INTPR1" XI(F=0):U$ *INTPR1 C:N$="The Preconfigurator" C:F=0 C:C=0 S:COURSE,GMOD3.CRS,1,1 PR: *INTCO C:J=0 C:W=0 C:M$="J:INTCO1" XI(F=0):U$ *INTCO1 C:N$="The Configuration Editor" C:F=0 C:C=0 S:COURSE,GMOD4.CRS,1,1 PR: *INTAP C:J=0 C:W=0 C:M$="J:INTAP1" XI(F=0):U$ *INTAP1 C:N$="The Application Program" C:F=0 C:C=0 S:COURSE,GMOD5.CRS,1,1 PR: *INTEX C:J=0 C:W=0 C:M$="J:INTEX1" XI(F=0):U$ *INTEX1 C:F=0 E:  'BDM_DISPATCHER')# CALL MFU_Init_Message(rtn_code) ! Initialize messsage handler. #c $c Suspend on Buffer Management's class request queue. When a request $$c (or data to a previous request) is received, go off and process it. $c  DO WHILE (.NOT. shutdown_req)  CALL EXEC(21+NO_ABORT, bm_class_no, req_bufr, bufr_len,  + op_code, rtn_class_no, dummy_parm, user_val, *10) rtn_code = 0 d CALL TM_MON_I2(1, op_code, 1, 'Request received. Type =') c c "c Use a computed goto to jump to the section of code for handling "c the specific request which was received.c & GOTO (100, ! BM_SETUP - Initialize BMARs to talk to dispatcher.& + 200, ! BM_ADD_RECORD - Add a record to a buffer." + 300, ! BM_DELETE_REC - Deletes a record from a buffer."! + 400, ! BM_REPLACE_REC - Replaces a record in a buffer. ! + 500, ! BM_READ_RECORD - Reads a record in a buf((fer. " + 600, ! BM_INSERT_REC - Inserts a record into a buffer."% + 700, ! BM_READ_INFO - Returns status information on buffers. %# + 800, ! BM_CLEAR_BUFR - Deletes all records from a buffer. #& + 900, ! BM_DEV_DWNLOAD - Downloads a record of data to a device.&" + 1000, ! BM_READ_BUFR - Returns all records in a buffer. "" + 1100, ! BM_BLK_SIGNAL - Need next block of recs signal."$ + 1200, ! BM_LOAD_BUFR - Setups to reload a buffer with data. $" + 1300, ! BM_RECORD_DATA - Buffer data for reload request."# + 1400, ! BM_LOAD_CMPLT - End of the buffer reload request.# + 1495, ! BM_SHUTDOWN - Shutdown the Dispatcher. % + 1500), Op_code ! Op_Code contains the request number. %c*#c*--------------------------------------------------------------------* #c* This the error return point for the Exec call above.c* 10 CONTINUE CALL abreg(areg, breg) iaux(1) = areg iaux(3) = breg  aux_bufr(3:4) = CHAR(30) // ' '  CALL MFU_Save_Message(104, err_group, 0100, iaux,  + err_opts, iaux, rtn_code)  shutdown_req = .TRUE.  GOTO 9999 $PAGE c*#c*--------------------------------------------------------------------* ##c* B M _ S E T U P * ##c* * ##c* This request initializes and sychronizes the BMARs for com- * ##c* munication with the dispatcher. The dispatcher will return * ##c* on the Access routines class number the logical name of each * ##c* buffer, the length of the key area, the length of the data * ##c* area, and the buffer type (random or keyed). The dispatcher * ##c* will also return the number of buffers configured. The access * ##c* routines will pick this info up and store it into a common * ##c* area, using it to do as much request validation as possible * ##c* before actually sending the request to the dispatcher. * ##c* * ##c*--------------------------------------------------------------------* # 100 CONTINUE IF (nbufrs .EQ. 0) THEN  rtn_code = NO_BUFFERS CALL Exec(20+no_abort, 0, rtn_bufr, -1, nbufrs, + rtn_code, rtn_class_no,/PCIF/GSWPCIF/GMOD2.CRS:::1:100:128 644 0 0 62000 5303667111 35133 /PCIF_GS/GSWPCIF/GMOD2.CRS:::1:100:128 #&$d (dGMOD2 CRS +nH+nI+nId2dFST B94200-16512 REV.5000 <870601.1741> PR:UE J:INIT *PRBINC C(J=0):W=W+1 C:C=C+1 C(W=C):J=0 T(J=0): : : : : : : : : : : : : : : : : : : : : : : C:C$=CHR(27) T(J=0): $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A T(J=0): HE for help $N$ :Screen# #C C: N=LEN(M$)-2 E: *INPUT C:J=0 TH:NEXT? A: M:ME&* JN:NEXT1 C:J=1 C:J$="E:"!!U$(3,6) XI:J$ *NEXT1 M:+**!-** JN:NEXT2 C:W1=W C:T$="C:W=C"!!%B C(T$="C:W=C-"!T$="C:W=C+"):T$=T$!!"1" XI:T$ T(W<=0):You are trying to jump back past the beginning of the module T(W<=0):Type return to continue with the next frame. A(W<=0): C(W<=0):W=W1+1 J(W<=0):RETURN C:J=1 C:J$="E:"!!M$(3,6) XI:J$ *NEXT2 M:EX**!EN** JN:NEXT3 C:F=1 C:J=1 C:J$="E:"!!M$(3,3)!!"EX" XI:J$ *NEXT3 M:CI JN: NEXT4 C:J=1 S:CI C:W=W+1 J:RETURN *NEXT4 M:HE!? JN:NEXT5 T: T: ********************* Commands ********************** T: * * T: * MENU, ME............return to main menu * T: * +n..................go forward n screens * T: * -n..................go back n screens * T: * EXIT, EX, END, EN...exit training package * T: * CI..................run CI * T: * HE, HELP, ??, ?.....help * T: * * T: ***************************************************** C:J=1 TH: Press RETURN to continue with the current screen: A: C:J$="E:"!!M$(3,6) XI:J$ *NEXT5 C:T$=" " C:T$= %B C:N=ASC(T$) T(N<>32): Sorry, I don't recoginze that command. Use ? for help. TH(N<>32): NEXT? J(N<>32): @A *RETURN E: *ANSWER C: B$="[" C: P1=INS(1,R$,B$) C: B$="]" C: P2=INS(P1,R$,B$) C: P1=P1-1 C: M1$= "M:"!!R$(1,P1) C: P1=P1+2 C: P3=P2-P1 C: T1$= R$(P1,P3) C: P4=LEN(R$)-P2 C: P2=P2+1 C: X1$= R$(P2,P4) XI:M1$ TY: : $T1$ CN: X1$="R:" E: *INIT D:T$(80) D:J$(80) D:M$(40) D:N$(40) D:S$(6) D:R$(256) D:M1$(128) D:T1$(128) D:X1$(15) D:C$(1) D:B$(1) D:U$(40) C:U$="J:CAMENU" C:M$="J:CASPR" *CAMENU T: : : : : : : : : : : : : : : : : : : : : : : C:C$=CHR(27) T: $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A C:W=0 C:C=0 C: J=0 T: : : : ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ : { } : { } : { Case Study Menu } : { ------------------------ } : { PRoblem } : { SOlution } : { EXit } : { } : ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ : : : Please type the name (1st 2 letters will suffice) of the section you TH: would like to study: C: F=1 C: T$=" " A: $T$ T: : : : : M:PR&* JY:CASPR M:SO&* JY:CASSO M:EX&* JY:CASEX M: CY:F=0 XIY:M$ C:N=ASC(T$) C(N=32):F=0 XI(N=32):M$ TN: ***** : Sorry, but I don't recoginze that section name. : Here's the menu so you can try again! : ***** XIN:U$ PR: *CASPR C:J=0 C:W=0 C:M$="J:CASPR1" *CASPR1 C:N$="The Problem" C:F=0 C:C=0 PR: D:N4$(20) U:PRBINC J(W<>C):@P T:==================================================================== :The Problem :----------- :The typical manufacturing problem studied here involves a fictious :soft drink manufacturer named Sarsaparilla Soda, Inc. : :The new Systems Engineer has just arrived at the plant to study their :current production problem. : :NOTE:The configuration of your PCIF/1000 system is brand dependent. :For purposes of illustration only, Sarsaparilla Soda, Inc. is using :Gould-Modicon 584 Programmable Controllers. The Gould-Modicon Handler :also supports the 984,884 and 484 Programmable Controllers. : :==================================================================== : U(J=0):INPUT XI(J=1):J$ PR: D:N4$(20) U:PRBINC J(W<>C):@P D:E$(1) C:E$=CHR(27) D:B$(4) C:B$=E$!!"&dA" D:O$(4) C:O$=E$!!"&d@" T:==================================================================== : ________________________________________________ : : | S A R S A P A R I L L A | : | | : | S O D A $B$ _$O$ | : | $B$ | |$O$ | : | $B$ | |$O$ | : | $B$ / \$O$ | : | CANNED AND BOTTLED $B$ / \$O$ | : | SOFT DRINKS $B$ | _ |$O$ | : | $B$ | |s| |$O$ | : | $B$ | |s| |$O$ | : | $B$ |_____|$O$ | : |________________________________________________| : : : :==================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== : : : : : : Welcome to Sarsaparilla Soda! : TH: Would you please sign in? A: C:N4$=%B T: : : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :Congratulations, $N4$ , on becoming our new Systems Engineer. : :Our medium-sized company manufactures and bottles soft drinks. : :We have three production lines, two producing canned soda, and one :producing bottled soda. Each line is controlled by an autonomous :programmable controller (PC). : :Your production manager, Sam Sharp, is having difficulty obtaining :accurate information on the production of each line. For example, :he does not know how many bottles or cans are coming off each line :per hour. He also needs to know the status of each line at certain :times during production. : :Thank you for visiting us. Sam will be sending you a memo detailing :our problem. :==================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== : Sarsaparilla Soda, Inc. : :MEMO : :TO: $N4$ : :FROM: Sam Sharp : :RE: Automation of Canning and Bottling Lines : :We are very pleased with your performance to date. In the short time :you have been with the company, you have automate((d the production lines :with Programmbale Controllers. The automation system, however, is :lacking in two important respects: : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== : * Hourly production totals for each line. If possible, I would : like this data stored in a file. The MIS group could use this : data for their reporting programs. : : * Continuous monitoring of the status of the lines, including: : : 1) Whether each line is up or down. : : 2) Number of units each line is producing per minute. : :I am confident that you can meet these needs in the near future. After :all, you convinced me to support your effort to purchase all that fancy :equipment from Hewlett-Packard. : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *CASSO C:J=0 C:W=0 C:M$="J:CASSO1" XI(F=0):U$ *CASSO1 C:N$="The Solution" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :The Solution :------------ :Being a competent Systems Engineer, you make a few phone calls. You :set up meetings with several salespersons. Within a week, you have :a solution. Your solution is sent to the Production Manager in the :following memo. : : : : : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== : Sarsaparilla Soda, Inc. : :MEMO : :TO: Sam Sharp, Production Manager : :FROM: $N4$ : :RE: Automation of Canning and Bottling Lines : :I have carefully considered your needs for more accurate and timely :data about the production lines. I think a solution can be implemented :quickly. I talked with my PC salesperson, who informs me that we can :connect our PCs with what she calls a MODBUS network. : :According to my Hewlett-Packard salesperson, I can hook up this MODBUS :to our HP A700 computer with an HP product called PCIF/1000. :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :By using an application program which my department will write, we :can extract data from a given PC and store it in a file on the HP :A700. This file is then available for networking to the MIS system :on a regular basis. : :Since I will need your support to purchase PCIF/1000, you should know :a little about it. PCIF/1000 is a software interface which allows the :connection of our Programmable Controllers (or PCs of different :manufacturers and types) to the HP A700 computer (or any HP 1000 A-series :computer). Program access is provided through PC Access Routines, which :use the operating system of the HP 1000. : :PCIF/1000 allows easy supervision of our PCs to provide us with the :information we want. It is able to provide data and status information :through the use of an application program. PCIF/1000 also allows us :to write data and programs to the PCs connected to our system. The :application program does not have to be changed each time we change :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :the number or types of PCs in the line. : :We connect our PCs to the HP 1000 with the HP 12040B multiplexer :interface card. Before an application program is run, an operator :must create a preconfiguration file (which defines the PC manufacturer) :and a configuration file (which provides specific details about the :connected PCs). If we ever change the type or brand of PC, we can :easily update the files without having to rewrite the application :program. : :Run on the HP 1000, the application program uses the configuration file :to identify the target PCs. The PCIF/1000 monitor program supervises :any information exchange between the application program and the PCs. : :If we order the required equipment from Hewlett-Packard right away, I :hope to have the project on-line in time for the summer rush. I trust :this will be satisfactory. :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :Please let me know if you have any questions. : :On the next page, I have outlined the necessary steps to implement :PCIF/1000. : : : : : : : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== : Sarsaparilla Soda, Inc. : PCIC/1000 Implementation Plan : :A. Order the Equipment : : 1. Order the equipment -- The hardware and software necessary to set : up a system. : : a. Hardware : : 1) 12040B Mux Card (can connect PCs and terminals on same Mux) : : 2) MODBUS Hardware : : 3) Cables (refrence manufacturer's manuals) : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== : b. Software : : 1) PCIF/1000 : : a) Menu-driven Configuration Program : : b) Library of High-level PC Access Routines : : c) Monitor Program (which controls the overall operation of : the PCIF/1000 Software at run-time) : : d) A Set of Handler Programs (which interface between : PCIF/1000 and the PCs) : :B. Install and Test the Data Highway : : 1. PC Manufacturer Instructions :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :C. Install and Test the 12040B Mux Card : : 1. One type of Connection Method is Available : : a. Data Communication Standard RS232C : :D. Install PCIF/1000 on the HP A700 : : 1.RTE-A Operating System : : 2.Macro Assembler Program (resident in operating system) : : 3.FORTRAN 77 or PASCAL language : : 4. HP Block Mode Terminals (most are supported) : : 5. HP 12040B Multiplexer and 12828A Connection Panel :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :E. Configure PCIF/1000 : : 1. Preconfigurator Program : : a. Define the Manufacturer(s) of the PCs installed : : 2. The Configuration Editor : : a. Define Specific Details on the PCs defined in the Preconfigurator : program : : b. Attach a Logical PC address to each installed PC : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :F. Design the Monitoring Application Program : : 1. Flow Chart Program : : 2. Design Files : :G. Code the Application Program : :H. Finalize the System : : 1. Test the System : : 2. Train Production : : 3. Bring the System On-line : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :Your Production Manager is delighted with your solution. With his :help, you are able to purchase the necessary hardware and software from :HP. Since your HP A700 computer meets all the requirements of PCIF/1000, :you immediately install the system when the equipment arrives. : :The Sarsaparilla Soda manufacturing network is shown on the next page. : : : : : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== : Production Lines : ______ --------------- ------ : 1 |______|<---------->| 584 PC |<-------| J478 |----- : |_______________| |______| | : ______ --------------- ______ | : 2 |______|<---------->| 584 PC |<-------| J478 |----- M : |_______________| |______| | O : ______ --------------- ______ | D : 3 |______|<---------->| 584 PC |<-------| J478 |----- B : |_______________| |______| | U : ______ ______ | S : |12040B| | J478 | | : |------|----------------| modem|------------------------- : |A-700 | |______| : ------ : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *CASEX C:J=0 C:W=0 C:M$="J:CASEX1" XI(F=0):U$ *CASEX1 C:F=0 E:  *##c*-------------------------------------------------------------------*# 1100 CONTINUE hdr_addr = ((bufrn - 1) * hdr_size) + offset ival = iema(hdr_addr + pclass_no)  IF (ival .EQ. nil) THEN  GOTO 9999  END IF  iaddr(1) = iema(hdr_addr + pqueue_addr)  iaddr(2) = iema(hdr_addr + pqueue_addr + 1)  rec_size = iema(hdr_addr + prec_len)! CALL Send_data_block(iema(hdr_addr+1), iema(daddr), ((rec_size) ! GOTO 9999 c*c*#c*-------------------------------------------------------------------*##c* B M _ L O A D _ B U F R *##c* *##c* This section of code prepares the Dispatcher to receive an *##c* entire buffer's worth of data records. It will initialize *##c* the header area and then suspend back on its queue waiting *##c* for the data records to arrive. *##c* *##c*-------------------------------------------------------------------*# 1200 CONTINUE hdr_addr = ((bufrn - 1) * hdr_size) + offset ival = iema(hdr_addr + pclass_no)  IF (ival .NE. nil) THEN  rtn_code = req_pending  CALL Exec(20+no_abort, 0, rtn_bufr, -1, user_val, + rtn_code, rtn_class_no, *9000)  GOTO 9999  END IF  iema(hdr_addr + pclass_no) = req_bufr(4) iema(hdr_addr + pblk_size) = req_bufr(3) iema(hdr_addr + puser_val) = user_val  iema(hdr_addr + prec_count) = 0  CALL Exec(20+no_abort, 0, rtn_bufr, -1, user_val,  + rtn_code, rtn_class_no, *9000) GOTO 9999 $PAGE c*#c*-------------------------------------------------------------------*##c* B M _ B U I L D _ D A T A *##c* *##c* This section of code accepts the records for a load buffer *##c* request and stores them into EMA. The Load Buffer access *##c* routine must have been called prior to sending data records *##c* or the header area will not be setup correctly. After the *##c* dispatcher has receive the number of records indicated by *##c* block size, the dispatcher will send back a signal to the *##c* application telling it to send the next block of records. *##c* *##c*-------------------------------------------------------------------*# 1300 CONTINUE hdr_addr = ((bufrn - 1) * hdr_size) + offset ival = iema(hdr_addr + pclass_no) $ IF (ival .EQ. nil) GOTO 9999 ! No load buffer issued ? $ iaddr(1) = iema(hdr_addr + pqueue_addr)  iaddr(2) = iema(hdr_addr + pqueue_addr + 1)  rec_size = iema(hdr_addr + prec_len)c*"c* The next section of code checks for a trigger which is waiting" c* to be sent to a device. If this record is to be sent, then c* it will not be added to the queue.c* IF (iema(hdr_addr + ptrigger_pend) .NE. nil) THEN  send_rec = .FALSE.  ilen = iema(hdr_addr + pkey_len)  IF (iema(hdr_addr + pbufr_type) .EQ. FIFO) THEN send_rec = .TRUE.  ELSE  CALL Compare_keys(req_bufr(3), + iema(daddr+2), ilen, send_rec) END IF   IF (send_rec) THEN  iema(hdr_addr + ptrigger_pend) = nil buf_pos = iema(hdr_addr + pkey_len) + 1  end_pos = iema(hdr_addr + pdata_len) + buf_pos - 1 tstring3 = tstring2(buf_pos:end_pos) ilen = hdr_addr + pdev_name - 1  ival = hdr_addr + pdev_addr - 1  DO i = 1, 8  rtn_bufr(i) = iema(ilen + i)  rtn_bufr(i+8) = iema(ival + i)  END DO  rtn_bufr(17) = iema(hdr_addr + paddr_len)  rtn_bufr(18) = 0 ilen = buf_pos + iema(hdr_addr+pdata_len) + 35 CALL Exec(20+no_abort, 0, rtn_bufr, -ilen, + 0, bufrn, wrt_class_no, *9000)" GOTO 1220 ! Return completion status to the user." END IF  END IF c*c* The record does not have a trigger pending for it, add it  c* to the buffer queue. c* CALL Add_record(iema(hdr_addr+1), iema(daddr), + rec_size, req_bufr(3)) IF (rtn_code .NE. 0) THEN  ilen = iema(hdr_addr + prec_count)  ival = iema(hdr_addr + pclass_no) user_val = iema(hdr_addr + puser_val) iema(hdr_addr + pclass_no) = nil  iema(hdr_addr + pblk_size) = nil  iema(hdr_addr + prec_count) = 0 CALL Exec(20+no_abort, 0, rtn_bufr, -1, + user_val, rtn_code, ival, ilen, *9000)  GOTO 9999  END IF c  1220 CONTINUE! iema(hdr_addr + prec_count) = iema(hdr_addr + prec_count) + 1 ! ival = iema(hdr_addr + prec_count) ilen = iema(hdr_addr + pblk_size)  IF (ival .EQ. ilen) THEN iema(hdr_addr + prec_count) = 0 ival = iema(hdr_addr + pclass_no)  user_val = iema(hdr_addr + puser_val)  CALL Exec(20+no_abort, 0, rtn_bufr, -1,  + user_val, -2, ival, ilen, *9000) END IF GOTO 9999 $PAGE c*#c*-------------------------------------------------------------------*##c* B M _ L O A D _ C M P L T *##c* *##c* This section handles the completion signal for a load buffer *##c* request. It indicates that all of the records have been *##c* received. The Dispatcher will reset its buffer header area *##c* to indicate there is no load buffer request in progress. *##c* *##c*-------------------------------------------------------------------*# 1400 CONTINUE hdr_addr = ((bufrn - 1) * hdr_size) + offset iema(hdr_addr + pclass_no) = nil iema(hdr_addr + pblk_size) = nil iema(hdr_addr + prec_count) = 0  GOTO 9999 c*#c*-------------------------------------------------------------------*##c* B M _ S H U T D O W N *##c* *##c* Set the flag to cause the dispatcher to unlock the ema *##c* partition and then terminate. *##c* *##c*-------------------------------------------------------------------*#c* 1495 CONTINUE shutdown_req = .TRUE.  GOTO 9999 c*#c*-------------------------------------------------------------------*##c* This is an unimplemented subroutine call ! Return an error. *##c*-------------------------------------------------------------------*# 1500 CONTINUE rtn_code = UNIMPLEMENTED CALL EXEC(20+no_abort, 0, dummy, 1,  + user_val, rtn_code, rtn_class_no, *9000)c*#c*-------------------------------------------------------------------*#c* General Exec Error Processing section for Class I/O c* communications to the application program.c* 9000 CONTINUE CALL abreg(areg, breg) iaux(1) = areg iaux(3) = breg  aux_bufr(3:4) = CHAR(30) // ' ' !d CALL TM_MON_CH(1, iaux, 5, 'Class I/O failure. Registers =') ! CALL MFU_Save_Message(104, err_group, 0120, iaux,  + err_opts, iaux, rtn_code) c*#c*-------------------------------------------------------------------*#c* End of the request loop.c* 9999 CONTINUEd CALL TM_MON_I2(1, op_code, 1, 'Request Complete. ') END DOc  CALL ulema CALL MFU_End_Message()d CALL TM_STOP_TRACE(1, 'BDM_DISPATCHER')  CALL Exec(6, 0, 3)  END  $PAGE $c***********************************************************************$$c* /PCIF/GSWPCIF/GMOD3.CRS:::1:100:128 644 0 0 62000 5303667112 35055 /PCIF_GS/GSWPCIF/GMOD3.CRS:::1:100:128 #&$d dGMOD3 CRS +nI+nJ+nJd2dFST >94200-16513 REV.5000 <870601.1742> PR:UE J:INIT *PRBINC C(J=0):W=W+1 C:C=C+1 C(W=C):J=0 T(J=0): : : : : : : : : : : : : : : : : : : : : : : C:C$=CHR(27) T(J=0): $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A T(J=0): HE for help $N$ :Screen# #C C: N=LEN(M$)-2 E: *INPUT C:J=0 TH:NEXT? A: M:ME&* JN:NEXT1 C:J=1 C:J$="E:"!!U$(3,6) XI:J$ *NEXT1 M:+**!-** JN:NEXT2 C:W1=W C:T$="C:W=C"!!%B C(T$="C:W=C-"!T$="C:W=C+"):T$=T$!!"1" XI:T$ T(W<=0):You are trying to jump back past the beginning of the module T(W<=0):Type return to continue with the next frame. A(W<=0): C(W<=0):W=W1+1 J(W<=0):RETURN C:J=1 C:J$="E:"!!M$(3,6) XI:J$ *NEXT2 M:EX**!EN** JN:NEXT3 C:F=1 C:J=1 C:J$="E:"!!M$(3,3)!!"EX" XI:J$ *NEXT3 M:CI JN: NEXT4 C:J=1 S:CI C:W=W+1 J:RETURN *NEXT4 M:HE!? JN:NEXT5 T: T: ********************* Commands ********************** T: * * T: * MENU................return to main menu * T: * +n..................go forward n screens * T: * -n..................go back n screens * T: * EXIT, EX, END, EN...exit training package * T: * CI..................run CI * T: * HELP, HE, ??, ?.....help * T: * * T: ********((********************************************* C:J=1 TH: Press RETURN to continue with the current screen: A: C:J$="E:"!!M$(3,6) XI:J$ *NEXT5 C:T$=" " C:T$= %B C:N=ASC(T$) T(N<>32): Sorry, I don't recoginze that command. Use ? for help. TH(N<>32): NEXT? J(N<>32): @A *RETURN E: *ANSWER C: B$="[" C: P1=INS(1,R$,B$) C: B$="]" C: P2=INS(P1,R$,B$) C: P1=P1-1 C: M1$= "M:"!!R$(1,P1) C: P1=P1+2 C: P3=P2-P1 C: T1$= R$(P1,P3) C: P4=LEN(R$)-P2 C: P2=P2+1 C: X1$= R$(P2,P4) XI:M1$ TY: : $T1$ CN: X1$="R:" E: *INIT D:T$(80) D:J$(80) D:M$(40) D:N$(40) D:S$(6) D:R$(256) D:M1$(128) D:T1$(128) D:X1$(15) D:C$(1) D:B$(1) D:U$(40) D:E$(1) D:I$(4) D:O$(4) C:E$=CHR(27) C:I$=E$!!"&dB" C:O$=E$!!"&d@" C:U$="J:PRMENU" C:M$="J:PREST" *PRMENU T: : : : : : : : : : : : : : : : : : : : : : : C:C$=CHR(27) T: $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A C:W=0 C:C=0 C: J=0 T: : : : ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ : { } : { } : { Preconfigurator Menu } : { ------------------------ } : { STarting preconfiguration } : { SOftkeys } : { DEscriptor file loop } : { COmpletion information } : { ENding preconfiguration } : { EXit } : { } : ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ : : : Please type the name (1st 2 letters will suffice) of the section you TH: would like to study: C: F=1 C: T$=" " A: $T$ T: : : : : M:ST&* JY:PREST M:SO&* JY:PRESO M:DE&* JY:PREDE M:CO&* JY:PRECO M:EN&* JY:PREEN M:EX&* JY:PREEX M: CY:F=0 XIY:M$ C:N=ASC(T$) C(N=32):F=0 XI(N=32):M$ TN: ***** : Sorry, but I don't recoginze that section name. : Here's the menu so you can try again! : ***** XIN:U$ PR: *PREST C:J=0 C:W=0 C:M$="J:PREST1" *PREST1 C:N$="Starting the Preconfigurator" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :Starting Preconfiguration :------------------------- :All your equipment has arrived; the Data Highway is in place and :functioning; and PCIF/1000 is installed. (For detailed information :on installation, see the Installation Overview chapter and the :Installation chapter in the PCIF/1000 Reference Manual.) You are now :ready to configure the PCIF/1000 system. : :Configuration consists of two menu-driven programs: the Preconfigurator :FOLLOWED by the Configuration Editor. Each program uses a sequence of :formatted screens displayed and managed by an internal program (F/1000). : :Before starting Preconfiguration, you invite Sam Sharp to attend the :session. During the session, you guide Sam through the Preconfigurator. : :This section steps through the Preconfiguration screens. Continue :on now and follow the instructions as if you were Sam. :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :Preconfiguration involves three screens which allow you to specify :the type of PC being used. PCIF stores this information in the :Preconfigurator file and uses it to create the Configuration Editor :and the Run-time Monitor. : :The name of the Preconfigurator program is PCGEN. It is located in :the subdirectory of /pcif/pcifgen/ . You may locate the file by enter- :ing the following CI command: : : CI> DL /pcif/pcifgen/PCGEN.@ : :To experiment with this, enter CI (by typing "CI" after the "NEXT?" :prompt) and type in the command. RTE responds by displaying the :directory reference in which PCGEN resides. Since PCGEN is a type :6 runtime file it is listed with a .run type extension. : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :To start the Preconfigurator, make /pcif/pcifgen/ your working direc- :tory and start the Preconfigurator. enter the following CI commands: : : CI> WD /PCIF/PCIFGEN : CI> PCGEN : :NOTE: Do not enter CI and try this command yet. You will want to :finish going through this training package before you actually run :any part of PCIF. : :The next section describes the softkeys available on the :Preconfiguration screens. Because this training package does not :actually run PCIF, these softkeys do not function within the training :package. : :However, the ENTER key does function. You must press the ENTER key to :continue after a Preconfiguration screen has been displayed. :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *PRESO C:J=0 C:W=0 C:M$="J:PRESO1" XI(F=0):U$ *PRESO1 C:N$="The Preconfigurator Softkeys" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :Preconfigurator Softkeys :------------------------ : ---- : | F1 | - EXIT; displays Screen 3 which completes Preconfiguration : ---- NOTE: If you exit before you validate the information about : your Highway and PCs, Preconfiguration will be incomplete. : ---- : | F5 | - HELP; displays a one-screen Help panel about the current : ---- screen : : ---- : | F7 | - REFRESH; refreshes previously entered information : ---- : ---- : | F8 | - ABORT PCGEN; aborts the PCGEN program : ---- NOTE: To prevent accidental abort, the Preconfigurator : requires you to press the F8 key again for confirmation. :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *PREDE C:J=0 C:W=0 C:M$="J:PREDE1" XI(F=0):U$ *PREDE1 C:N$="Descriptor File Loop" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :Descriptor File Loop :-------------------- :The first screen for the Preconfigurator asks for the Descriptor file :namr. : :The term namr is an abbreviation for name record and refers to :the name of the file and its attributes (e.g. security code and disc :location). The Descriptor file contains important information about :the PC or Highway to be configured. : :Each PC manufacturer has a different PC Descriptor file namr and Highway :Descriptor file namr. The Descriptor file namrs for Gould-Modicon PCs :are listed below: : CDS : ------ : Highway Descriptor file namr .......... [PCHGC : : PC Descriptor file namr ............... [PCPGC :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :Screen 1 of the Preconfigurator (coming up next!!) contains one :required field: : : : Descriptor file namr: $I$ $O$ : : :In this field, type the name of the Highway descriptor file and your :own cartridge reference for the file. For example: : : : Descriptor file namr: $I$ /pcif/gm/[PCHGM $O$ : :NOTE: Since this training package does not actually run the :Preconfigurator, the function keys do not operate as they would :during real PCIF Preconfiguration. Only the ENTER key operates :normally. :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S: SCRNS,PSCR01.TXT U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :After you press the ENTER key, the Preconfigurator displays Screen 2. :This screen contains a number of display-only fields which describe :the information included in the Highway Descriptor file entered in Screen 1. : :You should check each of the display-only fields to make sure that the :information is correct. The PC brand name, the Handler file namr, and :the partial configurator file namr must be correct. The PC Highway :you are using must also be supported. For Sarsaparilla Soda, assume :that the information is correct. : :Screen 2 has two required fields: : : Do you want to validate ? Yes: $I$ X$O$ No: $I$ $O$ : :Since the information on the screen is correct, type an "X" in the "Yes" :field. Be sure to leave the "No" field blank. : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S: SCRNS,PSCR02.TXT U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :Pressing the ENTER key returns you to Screen 1. At this time the :Preconfigurator stores the information displayed on Screen 2 in the MACRO :and LINK programs for later use. : :The Preconfigurator loops between Screen 1 and Screen 2 until all PC and :Highway file namrs have been entered (Screen 1) and validated (Screen 2). :When this file namr entering is complete, press F1 (EXIT) to go to :Screen 3. : :This time you must enter the PC Descriptor file namr into the only :available field on Screen 1. For example: : : : Descriptor file namr: $I$ /pcif/gm/[PCPGM $O$ : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S: SCRNS,PSCR01.TXT U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :Pressing the ENTER key returns you to Screen 2 once agai((n. : :This time Screen 2 displays important information included in the PC :Descriptor file, [PCPGM. Again check the information for accuracy and, :assuming that it is all correct, type an "X" in the "Yes" field as :shown below: : : Do you want to validate ? Yes: $I$ X$O$ No: $I$ $O$ : : : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S: SCRNS,PSCR02.TXT U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :If you needed to enter additional Descriptor file namrs, you would now :return to Screen 1 again by pressing the ENTER key. However, since :you have already specified the Highway Descriptor file namr and the :PC Descriptor file namr, you want to exit the Preconfigurator loop. : :To exit the loop, press the F1 key (EXIT) to display Screen 3. : : : : : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *PRECO C:J=0 C:W=0 C:M$="J:PRECO1" XI(F=0):U$ *PRECO1 C:N$="Completion Information" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :Completion Information :---------------------- :Screen 3 allows you to complete the Preconfigurator. The :fields require you to enter the following information: : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== : : * The first field asks whether you are done with Preconfiguration. : The default is "No". That's why an "X" appears in the "No" field: : : Preconfiguration completion: Yes: $I$ $O$ No: $I$ X$O$ : : Since you want to complete Preconfiguration, type an "X" in the : "Yes" field and be sure to delete the "X" in the "No" field. : : * The second field asks if you wish to link a RTE system that uses : is has Code and Data Separation. Ours dose so leave put "X" in : the CDS field. : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== : * The last field, which asks whether you want to add another : descriptor, applies only if you are continuing Preconfiguration: : : Adding other descriptor: $I$ $O$ : : If you were continuing, you would enter an "X", but since you : are not, enter nothing. : :NOTE: You may move from field to field by pressing the TAB key or the : SHIFT key and the TAB key. : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S: SCRNS,PSCR03.TXT U(J=0):INPUT XI(J=1):J$ PR: *PREEN C:J=0 C:W=0 C:M$="J:PREEN1" XI(F=0):U$ *PREEN1 C:N$="Ending Preconfiguration" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :Ending Preconfiguration :----------------------- :To end Preconfiguration, press the ENTER key to clear Screen #3. : :At this time, the Preconfigurator generates the Configuration Editor and :the Run-time Monitor using an assembler program, called MACRO, and a loader :program, called LINK. PCIF/1000 displays the progress of this generation :on the screen. : :If no error messages are displayed and the CI> prompt appears, then :Preconfiguration is complete. : :The next step is the completion of the Configuration file using the :Configuration Editor. The next module guides you through this process. : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *PREEX C:J=0 C:W=0 C:M$="J:PREEX1" XI(F=0):U$ *PREEX1 C:F=0 C:C=0 E:  rec_size, key, rec_index, #! + *),92560-1X277 REV.2614 <860401.1712>! IMPLICIT NONE c*$c*---------------------------------------------------------------------*$c* Parameter Declarationsc* EMA buf_hdr, bufr_q INTEGER*2 rec_size, + rec_index, + key(50),  + buf_hdr(hdr_size), + bufr_q(rec_size, 1000)c*$c*---------------------------------------------------------------------*$$INCLUDE BDM_DISPATCH_COM.FTNI,NOLIST c*$c*---------------------------------------------------------------------*$c* Local Variable Declarations c* LOGICAL found_rec   INTEGER*2 klen, + cur_rec c*#c*--------------------------------------------------------------------* #c* Start of the code for subroutine FIND_RECORD. c*d CALL TM_START_TRACE(2, 'Find_Record')  rec_index = buf_hdr(ptail) IF (key(1) .EQ. -1) GOTO 98  found_rec = .FALSE. cur_rec = rec_index  klen = buf_hdr(pkey_len) DO WHILE ((.NOT. found_rec) .AND. (cur_rec .NE. NIL)) # CALL Compare_Keys(key, bufr_q(3, cur_rec), klen, found_rec) # rec_index = cur_rec  cur_rec = bufr_q(last_rec, cur_rec)  END DO c* IF (found_rec) GOTO 98 rtn_code = rec_missingd CALL TM_STOP_TRACE(2, 'Find_Record') RETURN 1c* c* Normal Return Point c* 98 CONTINUEd CALL TM_STOP_TRACE(2, 'Find_Record') RETURN END  $PAGE $c***********************************************************************$$c* *$$c* NAME: C L E A R _ B U F F E R *$$c* PGMR: Scott A. Gulland *$$c* *$$c***********************************************************************$$c* *$$c* FUNCTIONAL DESCRIPTION: *$$c* *$$c* This subroutine will delete all of the records in a buffer *$$c* queue and add them to the free list. *$$c* *$$c***********************************************************************$$c* *$$c* CALLING SEQUENCE: *$$c* *$$c* CALL Clear_Buffer( , , ) *$$c* *$$c* WHERE *$$c* *$$c* Parm_name Parameter Description *$$c* ---------------- -------------------------------------------- *$$c* The header of the buffer queue. *$$c* *$$c* The buffer queue which needs to be cleared. *$$c* *$$c* The size of a record in the buffer queue. *$$c* *$$c***********************************************************************$$c* *$$c* REVISION HISTORY: *$$c* *$$c* Date Programmer Description of Change *$$c* --------- ---------- ----------------------------------------- *$$c* None *$$c* *$$c***********************************************************************$c* SUBROUTINE Clear_Buffer(buf_hdr, bufr_q, rec_size) + ,92560-1X277 REV.2614 <860401.1712>  IMPLICIT NONE c*$c*---------------------------------------------------------------------*$c* Parameter Declarationsc* EMA buf_hdr, bufr_q INTEGER*2 rec_size,  + buf_hdr(hdr_size), + bufr_q(rec_size, 1000)c*$c*---------------------------------------------------------------------*$$INCLUDE BDM_DISPATCH_COM.FTNI,NOLIST c*$c*---------------------------------------------------------------------*$c* Local Variable Declarations c* INTEGER*2 rec_index, lst_rec, nxt_rec c*#c*--------------------------------------------------------------------* #c* Start of the code for subroutine Clear_Buffer.c*d CALL TM_START_TRACE(2, 'Clear_Buffer') buf_hdr(pnfree_recs) = buf_hdr(pmax_recs)  rec_index = buf_hdr(phead) buf_hdr(phead) = NIL buf_hdr(ptail) = NIL  lst_rec = buf_hdr(pnext_free_rec)  DO WHILE (rec_index .NE. NIL)  nxt_rec = bufr_q(next_rec, rec_index) bufr_q(last_rec, rec_index) = NIL bufr_q(next_rec, rec_index) = lst_rec lst_rec = rec_index rec_index = nxt_rec END DO  buf_hdr(pnext_free_rec) = lst_rec d CALL TM_STOP_TRACE(2, 'Clear_Buffer')  RETURN END  $PAGE $c***********************************************************************$$c* *(($$c* NAME: D E L E T E _ R E C *$$c* PGMR: Scott A. Gulland *$$c* *$$c***********************************************************************$$c* *$$c* FUNCTIONAL DESCRIPTION: *$$c* *$$c* This subroutine will delete the specified record from the *$$c* buffer queue and add it to the free list. *$$c* *$$c***********************************************************************$$c* *$$c* CALLING SEQUENCE: *$$c* *$$c* CALL Delete_rec( , , , *$$c* *$$c* WHERE *$$c* *$$c* Parm_name Parameter Description *$$c* ---------------- -------------------------------------------- *$$c* The header of the buffer queue. *$$c* *$$c* The buffer queue which contains the record. *$$c* *$$c* The size of a record in the buffer queue. *$$c* *$$c* An index to the record to be deleted from *$$c* the buffer queue. *$$c* *$$c***********************************************************************$$c* *$$c* REVISION HISTORY: *$$c* *$$c* Date Programmer Description of Change *$$c* --------- ---------- ----------------------------------------- *$$c* None *$$c* *$$c***********************************************************************$c* SUBROUTINE Delete_rec(buf_hdr, bufr_q, rec_size, rec_num),  +92560-1X277 REV.2614 <860401.1712> IMPLICIT NONE c*$c*---------------------------------------------------------------------*$c* Parameter Declarationsc* EMA buf_hdr, bufr_q  INTEGER*2 rec_size, rec_num, + buf_hdr(hdr_size), + bufr_q(rec_size, 1000)c*$c*---------------------------------------------------------------------*$$INCLUDE BDM_DISPATCH_COM.FTNI,NOLIST c*$c*---------------------------------------------------------------------*$c* Local Variable Declarations c* INTEGER*2 rec_index, t1 /PCIF/GSWPCIF/GMOD4.CRS:::1:150:128 644 0 0 113000 5303667113 35766 /PCIF_GS/GSWPCIF/GMOD4.CRS:::1:150:128 #&$ GMOD4 CRS +nJ+nK+nKKnFST 94200-16514 REV.5000 <870601.1743> PR:UE J:INIT *PRBINC C(J=0):W=W+1 C:C=C+1 C(W=C):J=0 T(J=0): : : : : : : : : : : : : : : : : : : : : : : C:C$=CHR(27) T(J=0): $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A T(J=0): HE for help $N$ :Screen# #C C: N=LEN(M$)-2 E: *INPUT C:J=0 TH:NEXT? A: M:ME&* JN:NEXT1 C:J=1 C:J$="E:"!!U$(3,6) XI:J$ *NEXT1 M:+**!-** JN:NEXT2 C:W1=W C:T$="C:W=C"!!%B C(T$="C:W=C-"!T$="C:W=C+"):T$=T$!!"1" XI:T$ T(W<=0):You are trying to jump back past the beginning of the module T(W<=0):Type return to continue with the next frame. A(W<=0): C(W<=0):W=W1+1 J(W<=0):RETURN C:J=1 C:J$="E:"!!M$(3,6) XI:J$ *NEXT2 M:EX**!EN** JN:NEXT3 C:F=1 C:J=1 C:J$="E:"!!M$(3,3)!!"EX" XI:J$ *NEXT3 M:CI JN: NEXT4 C:J=1 S:CI C:W=W+1 J:RETURN *NEXT4 M:HE!? JN:NEXT5 T: T: ********************* Commands ********************** T: * * T: * MENU, ME............return to main menu * T: * +n..................go forward n screens * T: * -n..................go back n screens * T: * EXIT, EX, END, EN...end training package * T: * CI..................run CI * T: * HELP, HE, ??, ?.....help * T: * * T: ***************************************************** C:J=1 TH: Press RETURN to continue with the current screen: A: C:J$="E:"!!M$(3,6) XI:J$ *NEXT5 C:T$=" " C:T$= %B C:N=ASC(T$) T(N<>32): Sorry, I don't recoginze that command. Use ? for help. TH(N<>32): NEXT? J(N<>32): @A *RETURN E: *ANSWER C: B$="[" C: P1=INS(1,R$,B$) C: B$="]" C: P2=INS(P1,R$,B$) C: P1=P1-1 C: M1$= "M:"!!R$(1,P1) C: P1=P1+2 C: P3=P2-P1 C: T1$= R$(P1,P3) C: P4=LEN(R$)-P2 C: P2=P2+1 C: X1$= R$(P2,P4) XI:M1$ TY: : $T1$ CN: X1$="R:" E: *INIT D:T$(80) D:J$(80) D:M$(40) D:N$(40) D:S$(6) D:R$(256) D:M1$(128) D:T1$(128) D:X1$(15) D:C$(1) D:B$(1) D:U$(40) D:E$(1) D:O$(4) D:I$(4) D:U1$(4) D:U2$(4) D:B1$(4) C:E$=CHR(27) C:O$=E$!!"&d@" C:I$=E$!!"&dB" C:U1$=E$!!"&dD" C:U2$=E$!!"&dF" C:B1$=E$!!"&dA" C:U$="J:COMENU" C:M$="J:CONST" *COMENU T: : : : : : : : : : : : : : : : : : : : : : : C:C$=CHR(27) T: $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A C:W=0 C:C=0 C: J=0 T: : : : ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ : { } : { } : { Configuration Editor Menu } : { ------------------------- } : { STarting configuration editor } : { SOftkeys } : { FIle selection } : { HIghway selection and configuration } : { PC selection and configuration } : { ENding configuration editor } : { EXit } : { } : ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ : : : Please type the name (1st 2 letters will suffice) of the section you TH: would like to study: C: F=1 C: T$=" " A: $T$ T: : : : : M:ST&* JY:CONST M:SO&* JY:CONSO M:FI&* JY:CONFI M:HI&* JY:CONHI M:PC&* JY:CONPC M:EN&* JY:CONEN M:EX&* JY:CONEX M: CY:F=0 XIY:M$ C:N=ASC(T$) C(N=32):F=0 XI(N=32):M$ TN: ***** : Sorry, but I don't recoginze that section name. : Here's the menu so you can try again! : ***** XIN:U$ PR: *CONST C:J=0 C:W=0 C:M$="J:CONST1" *CONST1 C:N$="Starting the Configuration Editor" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :Starting the Configuration Editor :--------------------------------- :Once preconfiguration is complete, you and Sam are ready to use the :Configuration Editor. Sam enters data at the terminal while you provide :the following instructions. : :To complete configuration, you must access the Configuration Editor :program (PCCON). The Configuration Editor allows you to describe the :existing physical connection between your PC stations and the HP 1000. :This description is stored in an FMGR file which PCIF/1000 reads at :run-time. : :Like the Preconfigurator, the Configuration Editor consists of a series :of menus or screens. You supply appropriate information in the required :or optional fields included in the screens. : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :To start the Configuration Editor, you enter the subdirectory RUNTIME :and type the program name PCCON : : CI> WD /PCIF/RUNTIME : : CI> PCCON : :PCCON is the Configuration Editor file namr. It is located in the :Runtime subdirectory. After you type in these commands, Screen 1 is :displayed on your screen. : :Before discussing Screen 1, let's look at the softkeys available within :the Configuration Editor. Remember that these softkeys do not actually :function within this training package, but the ENTER key does. You :must press ENTER to continue after a Configuration Editor screen has :been displayed. : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *CONSO C:J=0 C:W=0 C:M$="J:CONSO1" XI(F=0):U$ *CONSO1 C:N$="Configuration Editor Softkeys" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :Configuration Edit((or Softkeys :----------------------------- : ---- : | F1 | - PREVIOUS SCREEN; returns you to previous screen : ---- : ---- : | F2 | - LIST; outputs a listing of the Configuration file as is : ---- NOTE: You must first provide a listing file namr in first : field of Screen 2. : : ---- : | F3 | - PREVIOUS TYPES; moves you to previous screenful of highway types : ---- : : ---- : | F4 | - NEXT TYPES; moves you to next screenful of highway types : ---- :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== : ---- : | F5 | - HELP; displays a one-screen Help panel about the current : ---- screen : : ---- : | F7 | - REFRESH; refreshes previously entered information : ---- : : ---- : | F8 | - ABORT PCCON; aborts the PCCON program : ---- : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *CONFI C:J=0 C:W=0 C:M$="J:CONFI1" XI(F=0):U$ *CONFI1 C:N$="File Selection" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :File Selection :-------------- :The File Selection screen allows you to name the configuration file :before you create it. The one field available for data is an optional :field: : : Configuration file namr: $I$ $O$ : :If you do not type the configuration file namr in this field, you must :name the file later, in Screen 11. If you are updating a configuration :file, you must type the namr in the field. : :The Configuration Editor checks to see if this session is a configuration :update or a new configuration. On each successive screen, the Configuration :Editor displays a blinking message specifying whether the session is for :CREATING or MODIFYING the configuration file. : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :It is best if the file namr use FMGR file convention. :In this case, the namr is shown below: : : : Configuration file namr: $I$ ^CSODA $O$ : :NOTE: It is helpful to keep all your configuration files straight by :adopting a naming convention. For example, make the first character of :all configuration files a carat ("^"), as shown above. You may be used :in conjunction with file extensions if you wish. : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S: SCRNS,CSCR01.TXT U(J=0):INPUT XI(J=1):J$ PR: *CONHI C:J=0 C:W=0 C:M$="J:CONHI1" XI(F=0):U$ *CONHI1 C:N$="Highway Selection and Configuration" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :Highway Selection and Configuration :----------------------------------- :After you hit the ENTER key, PCIF displays Screen 2, the Work :Selection screen. This screen allows you to specify the kind of :configuration you are about to perform -- highway or PC :configuration. : :In this section, you will configure your highway. : :Notice the flashing message telling you that you are creating a :configuration: : : $B1$ Creating configuration$O$ : :Each succeeding screen displays a similar message. : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The first field: : : Listing file namr: $I$ $O$ : :allows you to name, a listing file. You can produce a hard-copy :listing of the configuration file if you type the listing name. : :Type the following namr in this field. Be sure to include the cartridge :reference: : : Listing file namr: $I$ 'CSODA.LST $O$ : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The next three fields: : : Highway configuration: $I$ $O$ : : PC configuration: $I$ $O$ : : Exit: $I$ $O$ : :allow you to designate the kind of configuration you are performing. : :Remember that you are creating a new configuration. Therefore, you :must specify the highway configuration before you configure its :associated PC(s). : :The Configuration Editor also verifies the compatibility of the highway :with the required PCs. : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :Since you are now going to configure the highway, type an "X" in the :following field: : : Highway configuration: $I$ X$O$ : :Now let's take a look at Screen 2 of the Configuration Editor. : : : : : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S: SCRNS,CSCR02.TXT U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The next screen, Screen 3, allows you to select your highway. : :The first field identifies the data highway by number: : : Highway number: $I$ 1$O$ : :Since you are configuring the first and only data highway for Sarsaparilla :Soda, accept the default value shown, "1". : :The second field: : : Add/modify: $I$ X$O$ : :allows you to add or modify the highway identified by number in the first :field. You are adding the highway so again accept the default, "X". : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The last field: : : Delete: $I$ $O$ : :allows you to delete the selected highway from the configuration file. :Note, however, that you cannot delete any highway that has one or more :associated PCs. : :Leave this field blank because you are not deleting a highway. : :For more information on deletion of highways, see Chapter 8 in the :PCIF/1000 Reference Manual. : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S:RU,SCRNS,CSCR03.TXT,1 U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :Screen 4 of the Configuration Editor allows you to add Sarsaparilla :Soda's one data highway. : :The screen displays all supported highway types. The descriptor file :entered during Preconfiguration provides this information. : :Select the specific highway type by placing an "X" in the field next :to the chosen type. You want to choose the MODBUSASCII type, so :place an "X" in the associated field as shown below: : : MODBUSASCII $I$ X$O$ : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S: SCRNS,CSCR04.TXT U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The next screen, number 5, prompts you for more specific information :about the highway being configured. : :The first field: : : Priority: $I$ 50$O$ : :asks for a parameter that defines the priority of the highway. : :The priority of a highway controls the handling of simultaneously :received requests. The highway with the highest priority is handled :first. : :A highway's priority must be an integer between 1 and 99, inclusive, :the highest priority being 99 and the lowest being 1. : :In this case, accept the default priority of 50. :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The second field: : : Port number: $I$ $O$ : :allows you to specify the port number of your highway on the interface :card. : :The entered value should be an integer between 0 and 7, inclusive. :This number corresponds to one to the eight RS232C female connectors :on the MUX connection panel. : :Since the port number for the Sarsaparilla Soda highway is 0, enter a :"0" in this field. : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The last field on Screen 5: : : First LU number: $I$ 0$O$ : :allows you to allocate an LU to the highway. : :The LU number, which is allocated at system generation time, must be :an integer between 1 and 255, inclusive. : :Enter the LU number that corresponds to port 0 on the MUX card as :specified in your system generation file. : :For more information, see the Configuration chapter of the PCIF/1000 :Reference Manual. : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S: SCRNS,CSCR05.TXT U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :After you press ENTER, the Configuration Editor validates the information :entered in the highway selection and configuration fields. If there :are no errors, Screen 3, the highway selection screen, is redisplayed. : :NOTE: For certain PC brands, the Configuration Editor displays Screen :6 after Screen 5. Screen 6 allows you to define the baud rate for the :PC computer dialog. : :The screen loop from Screen 5 (or 6) to Screen ((3 is called the Highway :Configuration loop. The Configuration Editor repeats this loop until :all highways have been configured. : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The first field on Screen 3: : : Highway number: $I$ 2$O$ : :shows that the next highway to be selected is number 2. : :Since Sarsaparilla Soda uses only one highway, you do not need to :configure additional highways. Therefore, cancel the selected highway :by pressing F1, PREVIOUS SCREEN. : : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S:RU,SCRNS,CSCR03.TXT,2 U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :After you press F1, the Configuration Editor redisplays Screen 2. :You have now exited the Highway Configuration loop. : :Now we must configure the PCs. The next section guides you through :PC selection and configuration. : : : : : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *CONPC C:J=0 C:W=0 C:M$="J:CONPC1" XI(F=0):U$ *CONPC1 C:N$="PC Selection and Configuration" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :PC Selection and Configuration :------------------------------ :After you exit the Highway Configuration loop, Screen 2 is redisplayed. : :We now want to configure the PCs associated with the configured highway. :Type an "X" in the PC configuration field: : : PC configuration: $I$ X$O$ : : : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S: SCRNS,CSCR02.TXT U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :Pressing ENTER causes Screen 7 to be displayed, and you enter the PC :Configuration loop. : :Screen 7 allows you to define a new PC or modify the configuration of :an existing PC. The screen is similar to Screen 3, Highway Selection. : :The first field identifies the PC by number: : : PC Logical Identifier: $I$ 1$O$ : :The Configuration Editor provides the default value of n+1, where n is :the largest Logical Identifier already allocated. In this case, since :you are creating a configuration file and configuring the first PC, the :default is 1. : :Accept the default value. : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The second field on Screen 7: : : Add/modify: $I$ X$O$ : :allows you to add the PC identified by number in the previous field. :If you were modifying an existing configuration file, you could modify :the PC. In this case, you are adding PC Logical Identifier number 1, :so accept the default "X". : :The third and last field: : : Delete: $I$ $O$ : :allows you to delete the selected PC from the configuration file. In :this case, you are not deleting any PCs, so leave this field blank. : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S:SCRNS,CSCR07.TXT,1 U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :After you press ENTER, the Configuration Editor displays Screen 8. : :This screen is displayed only if you are adding a new PC. Note the :flashing message showing that you are adding a new PC: : : $B1$ New PC adding$O$ : :The supported PCs are displayed as specified in the descriptor file :of the Preconfigurator. : :You choose the PC type by typing an "X" in the appropriate field. :Only on type may be selected for each PC being configured. Type an :"X" in the field, as shown below: : : 584PC $I$ X$O$ : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S: SCRNS,CSCR08.TXT U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :After you select the PC type, you must enter more information about :the PC being configured. Screen 9 allows you to enter this information. : :The two display-only fields show the PC type and number (PC Logical :Identifier): : : PC type: $U1$ 584$O$ Number: $U1$ 1$O$ : :The first required field: : : Highway number: $I$ 0$O$ : :allows you to specify the highway number for the PC being added. Type :"1" for the Highway number. : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The next field: : : PC Station Number: $I$ $O$ : :is only displayed when the PC is to be connected using a multipoint :link. For more information, consult the Configuration chapter of the :PCIF/1000 Reference Manual and your PC brand chapter. : :Enter "11" for this PC station number. : :NOTE: Always enter the PC Station Number in decimal, NOT octal. : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The following two fields: : : Time out: $I$ 30$O$ Time out unit: $I$ 2$O$ 1: minute : 2: second : :together define the timeout value for the PC. Timeout is the amount :of time that the PCIF software waits for an answer from a PC before :sending an error message to the user's application. : :In this case, select the defaults, 30 and 2. : :NOTE: The "Time out" and "Time out unit" fields above are not required. :If, however, you enter a time out value, you must specify a time out :unit. : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The next field on Screen 9: : : Priority: $I$ 50$O$ : :defines the priority of the associated handler for the PC. : :This field requires an integer between 1 and 99. 99 is the highest :priority while 1 is the lowest priority. If two requests are received :simultaneously, the one with the highest priority is handled first. : :The priority number is only significant in comparison with the priorities :of the other PCs and highways. : :For PC number 1, accept the default priority of 50. : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The next five fields on Screen 9 prompt you for certain capabilities :of the PC being configured. You select any capability by typing an :"X" in the adjoining field. Any capability fields left blank will be :set to "off". : :For Sarsaparilla Soda, select the appropriate four capabilities, as :shown below: : : Write data allowed: $U2$ X$O$ : Write program allowed: $U2$ X$O$ : Transparent functions allowed: $U2$ X$O$ : Unsolicited PC requests allowed: $U2$ $O$ : Start/stop allowed: $U2$ X$O$ : :NOTE: You should consult the appropriate PC brand reference manual to :check that a selected capability is supported. For more information, :see the Configuration chapter in your PCIF/1000 Reference Manual. :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S: SCRNS,CSCR09.TXT,1 U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :After you press ENTER, the Configuration Editor validates the information :entered on Screen 9 and then redisplays Screen 7. : :Screen 7 allows you to configure additional PCs. You must continue :to return to this screen until all the PCs have been configured for :Highway number 1. This is called the PC Configuration Loop. : :The first field on Screen 7: : : PC Logical Identifier: $I$ 2$O$ : :shows that the next PC to be selected is PC number 2. Accept this :value and the "X" displayed in the Add/modify field. : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S:SCRNS,CSCR07.TXT,2 U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :After you press ENTER, the Configuration Editor redisplays Screen 8, :the PC Type Selection field. : :The PC type for PC number 2 is the same as the PC type for number 1. :Type an "X" in the field, as shown below: : : 584 $I$ X$O$ : : : : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S: SCRNS,CSCR08.TXT U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :Pressing ENTER moves you to Screen 9, where you complete the configuration :of PC number 2. : :Some of the information you enter here is different for this PC. :Notice that the PC type is the same, but the number is different. : :Since Sarsaparilla Soda only has only one highway, the highway number :is the same for all three PCs. Make sure that the "Highway number" :field contains a "1": : : Highway number: $I$ ((1$O$ : :Change the value for the PC station number to "15", as shown below: : : PC Station Number: $I$ 15$O$ : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The "Time out" and "Time out unit" fields are the same for the second :PC. Make sure the time out is set to 30 and the time out unit to "2", :as shown below: : : Time out: $I$ 30$O$ Time out unit: $I$ 2$O$ 1: minute : 2: second : :Change the "Priority" field to the following: : : Priority: $I$ 40$O$ : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The five capabilities for each of the three PCs are the same, as shown :below: : : Write data allowed: $U2$ X$O$ : Write program allowed: $U2$ X$O$ : Transparent functions allowed: $U2$ X$O$ : Unsolicited PC requests allowed: $U2$ $O$ : Start/stop allowed: $U2$ X$O$ : : : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S: SCRNS,CSCR09.TXT,2 U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :Pressing ENTER causes Screen 7 to be displayed again. You are ready :to configure the last PC. : :Now that you have been through the PC Configuration loop twice, you :should have no trouble configuring the last PC on your own. Beginning :with Screen 7, configure PC number 3 according to the following :specifications: : : PC number: 3 : Type: 584 : Connected highway: 1 : Station number: 12 : Time out: 20 : Priority: 50 : :(continued on next screen) : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== : Capabilities: : : - write data X : - write program X : - transparent functions X : - unsolicited requests : - start/stop X : : : : : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :After you go through the PC Configuration Loop, you return once more :to Screen 7. : :Notice that this time the PC logical identifier is 4: : : PC Logical Identifier: $I$ 4$O$ : :Since Sarsaparilla Soda only uses three PCs, you are finished with :the PC configuration. : :To cancel Screen 7, press F1, PREVIOUS SCREEN. : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S:SCRNS,CSCR07.TXT,4 U(J=0):INPUT XI(J=1):J$ PR: *CONEN C:J=0 C:W=0 C:M$="J:CONEN1" XI(F=0):U$ *CONEN1 C:N$="Ending the Configruation Editor" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :Ending the Configuration Editor :------------------------------- :After you press F1, Screen 2 is redisplayed. This screen allows you :to complete the configuration file. : :Type an "X" in the Exit field: : : Exit: $I$ X$O$ : : : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S:SCRNS,CSCR02.TXT U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :After you press ENTER, the Configuration Editor displays Screen 11, :General Information. : :This screen allows you to enter general information common to PCIF/1000. :This information describes in general terms the present highway and :PC configuration. : :The first field: : : Maximum length of application : program requests or replies: $I$ 512$O$ (bytes) : :defines the maximum length of the requests and replies in the application :program. This value must be an positive integer smaller than 1025. :Accept the default value, 512 bytes. : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The second field on Screen 11: : : Maximum PC request queue length: $I$ 8$O$ (requests) : :allows you to limit the number of requests waiting to be completed :for a given PC. Accept the default value, 8 requests. : :The next field: : : Maximum number of access keys: $I$ 64$O$ : :allows you to enter the maximum number of access keys available to :an application program. (Certain PC Access Routines use access keys. :See chapter on PC Access Routines in your PCIF/1000 Reference Manual.) : :Here you must enter a positive integer smaller than 65. Accept the :default value, 64. :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The fourth field on Screen 11: : : PC_DISC Security Code : (also used for scheduling PCHLT): $I$ 0$O$ : :allows you to establish a security code for use with the PC Access :Routine, PC_DISC, or with PCHLT, which stops the PCIF monitor. : :If you want to set a security code, type any integer within the range :-32768 and 32767. In this case, accept the default security code of :0. : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The last field on Screen 11: : : Configuration file namr: $I$ ^CSODA $O$ : :displays the configuration file namr entered in Screen 1. If you had :not specified this file namr in Screen 1, you would have to enter it :here; or you may also change the configuration file namr at this point. : :Remember that the namr must follow FMGR namr format. : :Since you already specified a namr in Screen 1, accept the file namr :displayed in this field. : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :$B1$ WARNING$O$ :To write all the configuration information to the specified list file, :including the validated data from Screen 11, you must: : : 1. Press PREVIOUS SCREEN to return to Screen 2 to validate the : entered data from Screen 11. : : 2. On Screen 2, select the exit option and press ENTER. Screen : 11 will be redisplayed. : : 3. On Screen 11, press F2, LIST, to store the validated data in : the list file. : :To complete the configuration process, press ENTER on Screen 11. The :data entered during this configuration is now stored into the disc file :namr already specified. : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S:SCRNS,CSCR11.TXT U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The configuration process is now complete. The next module will :demonstrate how an application program works with PCIF/1000 to solve :Sarsaparilla Soda's problem. : : : : : : : : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *CONEX C:J=0 C:W=0 C:M$="J:CONEX1" XI(F=0):U$ *CONEX1 C:F=0 C:C=0 E:  .NE. data_len) THEN  rtn_code = bad_rec_len  RETURN  END IF  len = ((len + 1) / 2) + 2  len2 = len - 2 DO i = 1, len2 j = i + 2  data_com_buf(j) = data(i) END DO  op_code = 2  r_class = rtn_class_no IF (class_no .NE. 0) r_class = class_no  CALL Exec(20+no_abort, 0, data_com_buf, len, + op_code, r_class, bm_class_no, user_val, *10)  CALL abreg(areg, breg) IF (areg .EQ. -2) THEN rtn_code = out_of_sam RETURN  END IF  IF (class_no .EQ. 0)  + CALL Exec(21+no_abort, r_class + bit13, + data_com_buf, 60, areg, rtn_code, *10)  RETURNc* 10 CONTINUE CALL abreg(areg, breg) rtn_code = class_err  20 CONTINUE RETURN END  $PAGE $c***********************************************************************$$c* *$$c* NAME: B M _ D E L E T E _ R E C *$$c* PGMR: Scott A. Gulland *$$c* TITLE: *$$c* *$$c***********************************************************************$$c* *$$c* FUNCTIONAL DESCRIPTION: *$$c* *$$c* This subroutine will delete a record from the given buffer. *$$c* (( *$$c***********************************************************************$$c* *$$c* CALLING SEQUENCE: *$$c* *$$c* CALL BM_DELETE_REC(bufr_name, key, rtn_code) *$$c* *$$c* WHERE *$$c* *$$c* Parm_name Parameter Description *$$c* ---------------- -------------------------------------------- *$$c* *$$c* See the buffer management functional specification *$$c* for a description of the parameters. *$$c* *$$c***********************************************************************$$c* *$$c* REVISION HISTORY: *$$c* *$$c* Date Programmer Description of Change *$$c* --------- ---------- -------/PCIF/GSWPCIF/GMOD5.CRS:::1:100:128 644 0 0 62000 5303667114 35067 /PCIF_GS/GSWPCIF/GMOD5.CRS:::1:100:128 #&$d dGMOD5 CRS +nK+nL+nLd2dFST A94200-16515 REV.5000 <870601.1743> PR:UE J:INIT *PRBINC C(J=0):W=W+1 C:C=C+1 C(W=C):J=0 T(J=0): : : : : : : : : : : : : : : : : : : : : : : C:C$=CHR(27) T(J=0): $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A T(J=0): HE for help $N$ :Screen# #C C: N=LEN(M$)-2 E: *INPUT C:J=0 TH:NEXT? A: M:ME&* JN:NEXT1 C:J=1 C:J$="E:"!!U$(3,6) XI:J$ *NEXT1 M:+**!-** JN:NEXT2 C:W1=W C:T$="C:W=C"!!%B C(T$="C:W=C-"!T$="C:W=C+"):T$=T$!!"1" XI:T$ T(W<=0):You are trying to jump back past the beginning of the module T(W<=0):Type return to continue with the next frame. A(W<=0): C(W<=0):W=W1+1 J(W<=0):RETURN C:J=1 C:J$="E:"!!M$(3,6) XI:J$ *NEXT2 M:EX**!EN** JN:NEXT3 C:F=1 C:J=1 C:J$="E:"!!M$(3,3)!!"EX" XI:J$ *NEXT3 M:CI JN: NEXT4 C:J=1 S:CI C:W=W+1 J:RETURN *NEXT4 M:HE!? JN:NEXT5 T: T: ********************* Commands ********************** T: * * T: * MENU, ME............return to main menu * T: * +n..................go forward n screens * T: * -n..................go back n screens * T: * EXIT, EX, END, EN...exit training package * T: * CI..................run CI * T: * HELP, HE, ??, ?.....help * T: * * T: ***************************************************** C:J=1 TH: Press RETURN to continue with the current screen: A: C:J$="E:"!!M$(3,6) XI:J$ *NEXT5 C:T$=" " C:T$= %B C:N=ASC(T$) T(N<>32): Sorry, I don't recoginze that command. Use ? for help. TH(N<>32): NEXT? J(N<>32): @A *RETURN E: *ANSWER C: B$="[" C: P1=INS(1,R$,B$) C: B$="]" C: P2=INS(P1,R$,B$) C: P1=P1-1 C: M1$= "M:"!!R$(1,P1) C: P1=P1+2 C: P3=P2-P1 C: T1$= R$(P1,P3) C: P4=LEN(R$)-P2 C: P2=P2+1 C: X1$= R$(P2,P4) XI:M1$ TY: : $T1$ CN: X1$="R:" E: *INIT D:T$(80) D:J$(80) D:M$(40) D:N$(40) D:S$(6) D:R$(256) D:M1$(128) D:T1$(128) D:X1$(15) D:C$(1) D:B$(1) D:U$(40) C:U$="J:APMENU" C:M$="J:APPOV" *APMENU T: : : : : : : : : : : : : : : : : : : : : : : C:C$=CHR(27) T: $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A C:W=0 C:C=0 C: J=0 T: : : : ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ : { } : { } : { Running the Application Program Menu } : { ------------------------------------ } : { OVerview } : { COmpiling and linking the program } : { CReating the data file } : { STarting the pcif subsystem } : { INitializing pcif } : { RUnning the program } : { HAlting the pcif monitor } : { EXit } : { } : ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ : : : Please type the name (1st 2 letters will suffice) of the section you TH: would like to study: C: F=1 C: T$=" " A: $T$ T: : : : : M:OV&* JY:APPOV M:CO&* JY:APPCO M:CR&* JY:APPCR M:ST&* JY:APPST M:IN&* JY:APPIN M:RU&* JY:APPRU M:HA&* JY:APPHA M:EX&* JY:APPEX M: CY:F=0 XIY:M$ C:N=ASC(T$) C(N=32):F=0 XI(N=32):M$ TN: ***** : Sorry, but I don't recoginze that section name. : Here's the menu so you can try again! : ***** XIN:U$ PR: *APPOV C:J=0 C:W=0 C:M$="J:APPOV1" *APPOV1 C:N$="Overview" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :Overview :-------- :While Sam is completing configuration, you put the finishing touches :on your application program. Because you want to make a trial run of :your application program, you write the program to address only one :of the bottling lines. : :You write the application program to solve the following problems: : : 1) Count the number of bottles coming off a line per hour : (divided between defective and good bottles). : : 2) Monitor the status of the line at certain times during : production. Record the number of units produced per minute : and the status of the line (i.e. is it up or down?) : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :Remember that besides writing an application program, you need to :write a ladder logic program for the PC. Print GMLADLOG.TXT to obtain :a listing and a description of the ladder logic program used by :Sarsaparilla Soda. : :Because Sam is not a programmer, you decide to give him only an :overview of the application program. After the ladder logic below, :you will find this overview. : :NOTE: The file, GMSODA.FTN, contains the source code for the application :program described here. You can print it right now if you like. Just :type "CI" after the "NEXT?" prompt below and then execute you print :statement. : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :1. Initialize PCIF : : a) PCIF_OPEN : : b) PCIF_CONNECT : :2. Get needed access keys : : a) PC_GETKEY : :3. Disable other programs from accessing PC : : a) PC_LOCK : :4. Reset to 0 counters and timers in PC : : a) PC_WRITED :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :5. Turn on start bit : :6. Enable other programs to access PC : : a) PC_UNLOCK : :7. Was break entered? : : a) if yes, go to 20 : : b) if no, continue : :8. Status of PC : : a) PC_PCSTAT : : :==================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :9. Is PC running? : : a) if no, report down PC and continue : : b) if yes, continue : :10. Is one minute up? : : a) if no, wait one second and go to 10 : : b) if yes, continue : :11. Get number of good and defective bottles : : a) PC_READD : :12. Increment number of minutes :==================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :13. Compute production figures : :14. Display production statistics for last minute : :15. Is one hour up? : : a) if no, go to 7 : : b) if yes, continue : :16. Reset bottle counters without wait : : a) PC_WRITED : :17. Write production statistics to file : : :==================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :18. Check if PC_WRITED completed : : a) PC_ENQUIRY : :19. Go to 7 : :20. Cancel all pending requests : : a) PC_CANCEL : :21. Release resources : : a) PC_RELKEY : :22. Close program to PCIF : : a) PCIF_CLOSE :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *APPCO C:J=0 C:W=0 C:M$="J:APPCO1" XI(F=0):U$ *APPCO1 C:N$="Compiling and Linking the Application Program" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:======================((============================================== :Compiling and Linking the Application Program :--------------------------------------------- :After the application program is written and you are ready to run it, :you must first compile the program. Enter the following RTE command: : : CI> FTN7X,GMSODA.FTN,_,_ : : :Next you must link the PASCAL library and the PCIF library of access :routines to the application program. Enter the RTE link command: : : CI> LINK : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :RTE responds with a message and a link prompt, as shown below: : : LINK Rev. XXXX Use ? for help : LINK: : :At the "LINK:" prompt, enter the three commands shown below: : : LINK: LI,/LIBRARIES/PASCAL.LIB : LINK: LI,$PCLIB::TA : LINK: RE,GMSODA.RUN : LINK: EN,GMSODA.RUN : :The first two commands link the PASCAL library and PCIF. The last :command includes a relocatable file called "SODA.REL". RTE responds :by displaying the application program namr and names of the subroutines. : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :Now you execute the commands by entering: : : LINK: EX : :RTE responds with a listing of the PASCAL library, the PCIF library, :and the relocatables. RTE then creates the load map and displays it. : :When link is successfully completed, RTE displays this message: : : Program GMSODA.RUN:::6: 169 ready: 21 pages : Runnable only on an RTE-A system : CI> : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *APPCR C:J=0 C:W=0 C:M$="J:APPCR1" XI(F=0):U$ *APPCR1 C:N$="Creating the Data File" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :Creating the Data File :---------------------- :The application program requires the creation of an additional file. :PCIF writes the requested data to this data file. Use the RTE command :and file namr shown below: : : CI> CR,PROD_STATS_1 : : : : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *APPST C:J=0 C:W=0 C:M$="J:APPST1" XI(F=0):U$ *APPST1 C:N$="Starting the PCIF Subsystem" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :Starting the PCIF Subsystem :--------------------------- :You must start the PCIF subsystem before PCIF can access the :application program. You use RTE commands to assign ID segments to :the various program parts of the PCIF subsystems. : :Enter the RTE commands shown below. After each command, RTE displays :a message: : : WD> /PCIF/RUNTIME : : CI> RP,PCOPN CI> RP,PCIF : RP'ed PCOPN RP'ed PCIF : CI> RP,PCTMO CI> RP,PCHLT : RP'ed PCTMO RP'ed PCHLT : CI> RP,PCDMX : RP'ed PCDMX : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *APPIN C:J=0 C:W=0 C:M$="J:APPIN1" XI(F=0):U$ *APPIN1 C:N$="Initializing PCIF" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :Initializing PCIF :----------------- :You initialize PCIF by entering the following command at the RTE-A :prompt: : : CI>XQ,PCIF,GESODA : :You start by including the configuration file name, GESODA. :If there are no errors, press RETURN until the message is :displayed: : : PCIF>running : :Initialization is now complete. : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *APPRU C:J=0 C:W=0 C:M$="J:APPRU1" XI(F=0):U$ *APPRU1 C:N$="Running the Program" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :Running the Program :------------------- :Once the "PCIF>running" message is displayed, you are ready to execute :the application program. : :Enter the application program name after the "CI>" prompt. PCIF then :displays a series of messages, and the program displays the data to :be written to the data file: : : CI> GMSODA : Opened communication with PCIF. : Established communication with PCIF. : Got the necessary access keys. : Locked the PC. : Initialized counters and timers in PC. : Unlocked the PC. : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== : Total Bottles: 30 Defective: 4 Good: 26 : : Total Bottles: 30 Defective: 4 Good: 26 : : Total Bottles: 30 Defective: 4 Good: 26 : : Total Bottles: 30 Defective: 4 Good: 26 : PC on bottling line is down !! : : Total Bottles: 34 Defective: 4 Good: 30 : : Total Bottles: 30 Defective: 4 Good: 26 : :When PCIF/1000 finds PCIF_OPEN, a link between the application program :and the monitor is established. The application program can then issue :the other PC Access Routines. The dialog of requests to the PC and :its associated replies is established. :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :Allow the program to run for approximately 10 minutes. : :If you studied the application program, you may have noted that it :contains an endless loop. To stop the execution of the application :program, enter an RTE break command. Press RETURN to display a "CM>" :prompt and enter the command shown below. The application program :then displays a series of messages telling you the program is :terminated: : : CM> BR : Released access keys. : Cancelled all requests. : Closed PCIF. Terminated program. : CI> : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :You can list the data contained in the data file by entering the RTE :command shown below: : : CI> LI PROD_STATS_1 : 2 1 3 256 -3884 5 0 0 : 60 8 : 60 8 : PC on bottling line is down !! : 64 8 : :The data in the list file, PROD_STATS_1, contains production totals :for every two minutes of run time. This interval is specified in the :application program. : :The actual data in your data file may be different. But this data :will match the displayed data during the running of the application :program. :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *APPHA C:J=0 C:W=0 C:M$="J:APPHA1" XI(F=0):U$ *APPHA1 C:N$="Halting the PCIF Monitor" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :Halting the PCIF Monitor :------------------------ :Once the application program has stopped, you need to halt PCIF. :At the "CI>" prompt, enter the PCIF halt command, PCHLT, and the :security code (you entered the security code in Screen 11 during the :configuration process): : : CI> PCHLT,0 : CI> : PCIF>stopped : :Now that one PC can be monitored by the application program, you can :write the application program to include the other two PCs. Sam :Sharp is very satisfied with the results, and he was able to understand :the process. : :Congratulations! You get a big raise. :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *APPEX C:J=0 C:W=0 C:M$="J:APPEX1" XI(F=0):U$ *APPEX1 C:F=0 C:C=0  *$$c***********************************************************************$$c* *$$c* FUNCTIONAL DESCRIPTION: *$$c* *$$c* This subroutine initiates the transfer of all records in a *$$c* buffer to the caller. *$$c* *$$c***********************************************************************$$c* *$$c* CALLING SEQUENCE: *$$c* *$$c* CALL BM_READ_BUFR(, , , *$$c* , ) *$$c* *$$c* WHERE *$$c* *$$c* Parm_name Parameter Description *$$c* ---------------- -------------------------------------------- *$$c* *$$c* See the BM functional specifications. *$$c* *$$c* *$$c***********************************************************************$$c* (( *$$c* REVISION HISTORY: *$$c* *$$c* Date Programmer Description of Change *$$c* --------- ---------- ----------------------------------------- *$$c* None *$$c* *$$c***********************************************************************$c* SUBROUTINE BM_READ_BUFR(bufr_name, class_no, + user_val, num_recs, rtn_code)  + ,92560-1X279 REV.2614 <860402.1540> IMPLICIT NONE c*$c*---------------------------------------------------------------------*$c* Parameter Declarationsc* INTEGER*2 class_no, + user_val, + num_recs, + rtn_code  INTEGER*2 BUFR_NAME(8)c*$c*---------------------------------------------------------------------*$$INCLUDE BMAR_COM10.ftni,NOLIST c*$c*---------------------------------------------------------------------*$c* Local Variable Declarations c* INTEGER*2 max_recs, bufrn  DATA max_recs/-1/ c*#c*--------------------------------------------------------------------* #c* Start of the code for subroutine BM_READ_BUFR.c* rtn_code = 0  IF ((num_recs .LE. 0) .OR. (num_recs .GT. 50)) THEN  rtn_code = Bad_num_recs RETURN  END IF  IF (class_no .LE. 0) THEN  rtn_code = Invalid_class  RETURN  END IF  CALL Get_bufr_num(rtn_code, bufr_name, bufrn, *20) op_code = 10  data_com_buf(3) = max_recs data_com_buf(4) = num_recs data_com_buf(5) = class_no CALL Exec(20+no_abort, 0, data_com_buf, 5, op_code,  + rtn_class_no, bm_class_no, user_val, *10)  CALL abreg(areg, breg) IF (areg .EQ. -2) THEN rtn_code = Out_of_SAM RETURN  END IF  CALL Exec(21+no_abort, rtn_class_no + bit13, + data_com_buf, 60, areg, rtn_code, *10) RETURNc* 10 CONTINUE CALL abreg(areg, breg) rtn_code = class_err  20 CONTINUE RETURN END  $PAGE $c***********************************************************************$$c* *$$c* NAME: B M _ S E N D _ S I G N A L *$$c* PGMR: Scott A. Gulland *$$c* TITLE: *$$c* *$$c***********************************************************************$$c* *$$c* FUNCTIONAL DESCRIPTION: *$$c* *$$c* This subroutine sends a signal to the dispatcher to indicate *$$c* that the application has picked up the block of records sent *$$c* by the dispatcher. This will cause the dispatcher to send *$$c* the next block of records. *$$c* *$$c***********************************************************************$$c* *$$c* CALLING SEQUENCE: *$$c* *$$c* CALL BM_SEND_SIGNAL(bufr_name, rtn_code) *$$c* *$$c* WHERE *$$c* *$$c* Parm_name Parameter Description *$$c* ---------------- -------------------------------------------- *$$c* *$$c* See the BM functional specifications. *$$c* *$$c* *$$c***********************************************************************$$c* *$$c* REVISION HISTORY: *$$c* *$$c* Date Programmer Description of Change *$$c* --------- ---------- ----------------------------------------- *$$c* None *$$c* *$$c***********************************************************************$c* SUBROUTINE BM_SEND_SIGNAL(bufr_name, rtn_code) + ,92560-1X279 REV.2614 <860402.1540> IMPLICIT NONE c*$c*---------------------------------------------------------------------*$c* Parameter Declarationsc* INTEGER*2 BUFR_NAME(8)  INTEGER*2 rtn_code c*$c*---------------------------------------------------------------------*$$INCLUDE BMAR_COM10.ftni,NOLIST c*$c*---------------------------------------------------------------------*$c* Local Variable Declarations c* INTEGER*2 bufrn c*#c*--------------------------------------------------------------------* #c* Start of the code for subroutine BM_SEND_SIGNAL.c* rtn_code = 0  CALL Get_bufr_num(rtn_code, bufr_name, bufrn, *20) op_code = 11  CALL Exec(20+no_abort, 0, data_com_buf, 3, + op_code, 0, bm_class_no, 0, *10) CALL abreg(areg, breg) IF (areg .EQ. -2) THEN rtn_code = Out_of_SAM RETURN  END IF  RETURNc* 10 CONTINUE CALL abreg(areg, breg) rtn_code = class_err  20 CONTINUE RETURN END  $PAGE $c***********************************************************************$$c* *$$c* NAME: B M _ L O A D _ B U F R *$$c* PGMR: Scott A. Gulland *$$c* TITLE: *$$c* *$$c*********************************************************/PCIF/GSWPCIF/ABMOD1.CRS:::1:50:128 644 0 0 31000 5303667115 35120 /PCIF_GS/GSWPCIF/ABMOD1.CRS:::1:50:128 #&$2 2ABMOD1 CRS +nL+nM+nM22lFST $94200-16518 REV.5000 <870601.1659> PR:UE J:INIT *PRBINC C(J=0):W=W+1 C:C=C+1 C(W=C):J=0 T(J=0): : : : : : : : : : : : : : : : : : : : : : : C:C$=CHR(27) T(J=0): $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A T(J=0): HE for help $N$ :Screen# #C C: N=LEN(M$)-2 E: *INPUT C:J=0 TH:NEXT? A: M:ME&* JN:NEXT1 C:J=1 C:J$="E:"!!U$(3,6) XI:J$ *NEXT1 M:+**!-** JN:NEXT2 C:W1=W C:T$="C:W=C"!!%B C(T$="C:W=C-"!T$="C:W=C+"):T$=T$!!"1" XI:T$ T(W<=0):You are trying to jump back past the beginning of the module T(W<=0):Type return to continue with the next frame. A(W<=0): C(W<=0):W=W1+1 J(W<=0):RETURN C:J=1 C:J$="E:"!!M$(3,6) XI:J$ *NEXT2 M:EX**!EN** JN:NEXT3 C:F=1 C:J=1 C:J$="E:"!!M$(3,3)!!"EX" XI:J$ *NEXT3 M:CI JN: NEXT4 C:J=1 S:CI C:W=W+1 J:RETURN *NEXT4 M:HE!? JN:NEXT5 T: T: ********************* Commands ********************** T: * * T: * MENU, ME............Return to main menu * T: * +n..................go forward n screens * T: * -n..................go back n screens * T: * EXIT, EX, END, EN...Exit training package * T: * CI..................Run CI * T: * HELP, HE, ??, ?.....Help * T: * * T: ***************************************************** C:J=1 TH: Press RETURN to continue with the current screen: A: C:J$="E:"!!M$(3,6) XI:J$ *NEXT5 C:T$=" " C:T$= %B C:N=ASC(T$) T(N<>32): Sorry, I don't recoginze that command. Use ? for help. TH(N<>32): NEXT? J(N<>32): @A *RETURN E: *ANSWER C: B$="[" C: P1=INS(1,R$,B$) C: B$="]" C: P2=INS(P1,R$,B$) C: P1=P1-1 C: M1$= "M:"!!R$(1,P1) C: P1=P1+2 C: P3=P2-P1 C: T1$= R$(P1,P3) C: P4=LEN(R$)-P2 C: P2=P2+1 C: X1$= R$(P2,P4) XI:M1$ TY: : $T1$ CN: X1$="R:" E: *INIT D:T$(80) D:J$(80) D:M$(40) D:N$(40) D:S$(6) D:R$(256) D:M1$(128) D:T1$(128) D:X1$(15) D:C$(1) D:B$(1) D:U$(40) C:U$="J:INMENU" C:M$="J:INTIN" *INMENU T: : : : : : : : : : : : : : : : : : : : : : : C:C$=CHR(27) T: $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A C:W=0 C:C=0 C: J=0 T: : : : ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ : { (( } : { } : { Getting Started with PCIF/1000 } : { ------------------------------ } : { INtroduction } : { CAse study } : { PReconfigurator } : { COnfiguration editor } : { APplication program } : { EXit } : { } : ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ : : : Please type the name (1st 2 letters will suffice) of the section you TH: would like to study: C: F=1 C: T$=" " A: $T$ T: : : : : M:IN&* JY:INTIN M:CA&* JY:INTCA M:PR&* JY:INTPR M:CO&* JY:INTCO M:AP&* JY:INTAP M:EX&* JY:INTEX M: CY:F=0 XIY:M$ C:N=ASC(T$) C(N=32):F=0 XI(N=32):M$ TN: ***** : Sorry, but I don't recoginze that section name. : Here's the menu so you can try again! : ***** XIN:U$ PR: *INTIN C:J=0 C:W=0 C:M$="J:INTIN1" *INTIN1 C:N$="Introduction" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :Hello!! : :Welcome to Getting Started with PCIF/1000. : :This training package introduces you to the main features of PCIF/1000, :the Programmable Controller Interface Software for HP 1000 Computer :Systems. : :The package is directed towards systems engineers and application :programmers who are unfamiliar with PCIF/1000. Any one else in your :organization who needs an overview of PCIF/1000 would also benefit :from this training package. : :This introductory section overviews the case study approach used to :present PCIF/1000 and describes how to manuever through the training :package. : (press return) :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :To provide an overview of the features of PCIF/1000, this on-line :training package focuses on one specific case -- a fictious company :purchases PCIF/1000 to solve a particular problem. Because PCIF/1000 :is designed to interface with a variety of Programmable Controllers :and because each company using PCIF/1000 has different needs, a :comprehensive training package which explains each situation would :be needlessly long and repetitive. The best way to provide you with :a quick overview of PCIF/1000 is to study a typical manufacturing :problem and the development of a PCIF/1000 system which solves the :problem. By understanding how the main elements of PCIF/1000 work :in the sample case, you can formulate uses and applications for :PCIF/1000 in your situation. : :As you work through this training package, you may want to note any :questions and concerns about the application of PCIF/1000 for your :own use. : (press return) :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :This training package is divided as follows: : : * Module 1, The Case Study, describes the fictious company and : the problem to be solved. : : * Module 2, The Preconfigurator, allows you to create a : preconfiguration file for your fictious system by stepping : through each of the Preconfigurator screens. : : * Module 3, The Configuration Editor, allows you to create the : configuration file as you step through the Configuration : Editor screens. : : * Module 4, The Application Program, displays the process of : running the application program (written in Fortran), which : controls the overall operation of the PCIF/1000 software at : run-time. : (press return) :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== : :Enter commands after the : : NEXT? : :prompt at the bottom of each screen. : :As already shown, you press the return key to continue on to the next :screen. If you press the return key whenever a menu appears, you will :automatically progress sequentially through the course. : :Press return now to continue on to the next screen. : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :You can also move backwards to previous screens by typing a minus :sign and the number of screens you wish to move back. : :For example, to move backwards 4 screens, type: : : NEXT?-4 : :Similarly, to move forward, type a plus sign and the number of screens :to move forward. For example, : : NEXT?+4 : :Try this now. Type a "-1" and then a "+2" to reach the next screen. : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The following lists the remaining commands: : : : CI...................run RTE-A CI : : EXIT (EX, EN, END)...exit Getting Started with PCIF/1000 : : HELP (HE, ?, or ??)..list the commands : : MENU (ME)............move back to the last menu : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *INTCA C:J=0 C:W=0 C:M$="J:INTCA1" XI(F=0):U$ *INTCA1 C:N$="The Case Study" C:F=0 C:C=0 S:COURSE,ABMOD2.CRS,1,1 PR: *INTPR C:J=0 C:W=0 C:M$="J:INTPR1" XI(F=0):U$ *INTPR1 C:N$="The Preconfigurator" C:F=0 C:C=0 S:COURSE,ABMOD3.CRS,1,1 PR: *INTCO C:J=0 C:W=0 C:M$="J:INTCO1" XI(F=0):U$ *INTCO1 C:N$="The Configuration Editor" C:F=0 C:C=0 S:COURSE,ABMOD4.CRS,1,1 PR: *INTAP C:J=0 C:W=0 C:M$="J:INTAP1" XI(F=0):U$ *INTAP1 C:N$="The Application Program" C:F=0 C:C=0 S:COURSE,ABMOD5.CRS,1,1 PR: *INTEX C:J=0 C:W=0 C:M$="J:INTEX1" XI(F=0):U$ *INTEX1 C:F=0 E:  ((/PCIF/GSWPCIF/ABMOD2.CRS:::1:100:128 644 0 0 62000 5303667116 35300 /PCIF_GS/GSWPCIF/ABMOD2.CRS:::1:100:128 $'$d  dABMOD2 CRS +nN+nN+nNd2dFST C94200-16519 REV.5000 <870601.1702> PR:UE J:INIT *PRBINC C(J=0):W=W+1 C:C=C+1 C(W=C):J=0 T(J=0): : : : : : : : : : : : : : : : : : : : : : : C:C$=CHR(27) T(J=0): $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A T(J=0): HE for help $N$ :Screen# #C C: N=LEN(M$)-2 E: *INPUT C:J=0 TH:NEXT? A: M:ME&* JN:NEXT1 C:J=1 C:J$="E:"!!U$(3,6) XI:J$ *NEXT1 M:+**!-** JN:NEXT2 C:W1=W C:T$="C:W=C"!!%B C(T$="C:W=C-"!T$="C:W=C+"):T$=T$!!"1" XI:T$ T(W<=0):You are trying to jump back past the beginning of the module T(W<=0):Type return to continue with the next frame. A(W<=0): C(W<=0):W=W1+1 J(W<=0):RETURN C:J=1 C:J$="E:"!!M$(3,6) XI:J$ *NEXT2 M:EX**!EN** JN:NEXT3 C:F=1 C:J=1 C:J$="E:"!!M$(3,3)!!"EX" XI:J$ *NEXT3 M:CI JN: NEXT4 C:J=1 S:CI C:W=W+1 J:RETURN *NEXT4 M:HE!? JN:NEXT5 T: T: ********************* Commands ********************** T: * * T: * MENU, ME............return to main menu * T: * +n..................go forward n screens * T: * -n..................go back n screens * T: * EXIT, EX, END, EN...exit training package * T: * CI..................run CI * T: * HE, HELP, ??, ?.....help * T: * * T: ***************************************************** C:J=1 TH: Press RETURN to continue with the current screen: A: C:J$="E:"!!M$(3,6) XI:J$ *NEXT5 C:T$=" " C:T$= %B C:N=ASC(T$) T(N<>32): Sorry, I don't recoginze that command. Use ? for help. TH(N<>32): NEXT? J(N<>32): @A *RETURN E: *ANSWER C: B$="[" C: P1=INS(1,R$,B$) C: B$="]" C: P2=INS(P1,R$,B$) C: P1=P1-1 C: M1$= "M:"!!R$(1,P1) C: P1=P1+2 C: P3=P2-P1 C: T1$= R$(P1,P3) C: P4=LEN(R$)-P2 C: P2=P2+1 C: X1$= R$(P2,P4) XI:M1$ TY: : $T1$ CN: X1$="R:" E: *INIT D:T$(80) D:J$(80) D:M$(40) D:N$(40) D:S$(6) D:R$(256) D:M1$(128) D:T1$(128) D:X1$(15) D:C$(1) D:B$(1) D:U$(40) C:U$="J:CAMENU" C:M$="J:CASPR" *CAMENU T: : : : : : : : : : : : : : : : : : : : : : : C:C$=CHR(27) T: $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A C:W=0 C:C=0 C: J=0 T: : : : ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ : { } : { } : { Case Study Menu } : { ------------------------ } : { PRoblem } : { SOlution } : { EXit } : { } : ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ : : : Please type the name (1st 2 letters will suffice) of the section you TH: would like to study: C: F=1 C: T$=" " A: $T$ T: : : : : M:PR&* JY:CASPR M:SO&* JY:CASSO M:EX&* JY:CASEX M: CY:F=0 XIY:M$ C:N=ASC(T$) C(N=32):F=0 XI(N=32):M$ TN: ***** : Sorry, but I don't recoginze that section name. : Here's the menu so you can try again! : ***** XIN:U$ PR: *CASPR C:J=0 C:W=0 C:M$="J:CASPR1" *CASPR1 C:N$="The Problem" C:F=0 C:C=0 PR: D:N4$(20) U:PRBINC J(W<>C):@P T:==================================================================== :The Problem :----------- :The typical manufacturing problem studied here involves a fictious :soft drink manufacturer named Sarsaparilla Soda, Inc. : :The new Systems Engineer has just arrived at the plant to study their :current production problem. : :NOTE:The configuration of your PCIF/1000 system is brand dependent. :For purposes of illustration only, Sarsaparilla Soda, Inc. is using :Allen-Bradley PLC-2/30 Programmable Controllers. :PCIF can interface to all PLC-2 and PLC-3 family programmable cont- :rollers via Allen-Bradley Data Highway protocol. :==================================================================== : U(J=0):INPUT XI(J=1):J$ PR: D:N4$(20) U:PRBINC J(W<>C):@P D:E$(1) C:E$=CHR(27) D:B$(4) C:B$=E$!!"&dA" D:O$(4) C:O$=E$!!"&d@" T:==================================================================== : ________________________________________________ : : | S A R S A P A R I L L A | : | | : | S O D A $B$ _$O$ | : | $B$ | |$O$ | : | $B$ | |$O$ | : | $B$ / \$O$ | : | CANNED AND BOTTLED $B$ / \$O$ | : | SOFT DRINKS $B$ | _ |$O$ | : | $B$ | |s| |$O$ | : | $B$ | |s| |$O$ | : | $B$ |_____|$O$ | : |________________________________________________| : : : :==================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== : : : : : : Welcome to Sarsaparilla Soda! : TH: Would you please sign in? A: C:N4$=%B T: : : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :Congratulations, $N4$ , on becoming our new Systems Engineer. : :Our medium-sized company manufactures and bottles soft drinks. : :We have three production lines, two producing canned soda, and one :producing bottled soda. Each line is controlled by an autonomous :programmable controller (PC). : :Your production manager, Sam Sharp, is having difficulty obtaining :accurate information on the production of each line. For example, :he does not know how many bottles or cans are coming off each line :per hour. He also needs to know the status of each line at certain :times during production. : :Thank you for visiting us. Sam will be sending you a memo detailing :our problem. :==================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== : Sarsaparilla Soda, Inc. : :MEMO : :TO: $N4$ : :FROM: Sam Sharp : :RE: Automation of Canning and Bottling Lines : :We are very pleased with your performance to date. In the short time :you have been with the company, you have automated the production lines :with Programmbale Controllers. The automation system, however, is :lacking in two important respects: : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== : * Hourly production totals for each line. If possible, I would : like this data stored in a file. The MIS group could use this : data for their reporting programs. : : * Continuous monitoring of the status of the lines, including: : : 1) Whether each line is up or down. : : 2) Number of units each line is producing per minute. : :I am confident that you can meet these needs in the near future. After :all, you convinced me to support your effort to purchase all that fancy :equipment from Hewlett-Packard. : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *CASSO C:J=0 C:W=0 C:M$="J:CASSO1" XI(F=0):U$ *CASSO1 C:N$="The Solution" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :The Solution :------------ :Being a competent Systems Engineer, you make a few phone calls. You :set up meetings with several salespersons. Within a week, you have :a solution. Your solution is sent to the Production Manager in the :following memo. : : : : : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== : Sarsaparilla Soda, Inc. : :MEMO : :TO: Sam Sharp, Production Manager : :FROM: $N4$ : :RE: Automation of Canning and Bottling Lines : :I have carefully considered your needs for more accurate and timely :data about the production lines. I think a solution can be implemented :quickly. I talked with my PC salesperson, who informs me that we can :connect our PCs with what she calls a Allen Bradley "Data Highway". : :According to my Hewlett-Packard salesperson, I can hook up this "Data :Highway" to our HP A700 computer with an HP product called PCIF/1000. :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :By using an application p((rogram which my department will write, we :can extract data from a given PC and store it in a file on the HP :A700. This file is then available for networking to the MIS system :on a regular basis. : :Since I will need your support to purchase PCIF/1000, you should know :a little about it. PCIF/1000 is a software interface which allows the :connection of our Programmable Controllers (or PCs of different :manufacturers and types) to the HP A700 computer (or any HP 1000 A-series :computer). Program access is provided through PC Access Routines, which :use the operating system of the HP 1000. : :PCIF/1000 allows easy supervision of our PCs to provide us with the :information we want. It is able to provide data and status information :through the use of an application program. PCIF/1000 also allows us :to write data and programs to the PCs connected to our system. The :application program does not have to be changed each time we change :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :the number or types of PCs in the line. : :We connect our PCs to the HP 1000 with the HP 12041B multiplexer :interface card. Before an application program is run, an operator :must create a preconfiguration file (which defines the PC manufacturer) :and a configuration file (which provides specific details about the :connected PCs). If we ever change the type or brand of PC, we can :easily update the files without having to rewrite the application :program. : :Run on the HP 1000, the application program uses the configuration file :to identify the target PCs. The PCIF/1000 monitor program supervises :any information exchange between the application program and the PCs. : :If we order the required equipment from Hewlett-Packard right away, I :hope to have the project on-line in time for the summer rush. I trust :this will be satisfactory. :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :Please let me know if you have any questions. : :On the next page, I have outlined the necessary steps to implement :PCIF/1000. : : : : : : : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== : Sarsaparilla Soda, Inc. : PCIC/1000 Implementation Plan : :A. Order the Equipment : : 1. Order the equipment -- The hardware and software necessary to set : up a system. : : a. Hardware : : 1) 12041B Mux Card : : 2) Allen Bradley Data Highway Hardware : : 3) Interface Cables : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== : b. Software : : 1) PCIF/1000 : : a) Menu-driven Configuration Program : : b) Library of High-level PC Access Routines : : c) Monitor Program (which controls the overall operation of : the PCIF/1000 Software at run-time) : : d) A Set of Handler Programs (which interface between : PCIF/1000 and the PCs) : :B. Install and Test the Data Highway : : 1. PC Manufacturer Instructions :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :C. Install and Test the 12041B Mux Card : : 1. One type of Connection Method is Available : : a. Data Communication Standard RS232C : :D. Install PCIF/1000 on the HP A700 : : 1. RTE-A Operating System : : 2. Macro Assembler Program (resident in operating system) : : 3. FORTRAN 77 or PASCAL language : : 4. HP Block Mode Terminals (most are supported) : : 5. HP 12041B Multiplexer :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :E. Configure PCIF/1000 : : 1. Preconfigurator Program : : a. Define the Manufacturer(s) of the PCs installed : : 2. The Configuration Editor : : a. Define Specific Details on the PCs defined in the Preconfigurator : program : : b. Attach a Logical PC address to each installed PC : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :F. Design the Monitoring Application Program : : 1. Flow Chart Program : : 2. Design Files : :G. Code the Application Program : :H. Finalize the System : : 1. Test the System : : 2. Train Production : : 3. Bring the System On-line : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :Your Production Manager is delighted with your solution. With his :help, you are able to purchase the necessary hardware and software from :HP. Since your HP A700 computer meets all the requirements of PCIF/1000, :you immediately install the system when the equipment arrives. : :The Sarsaparilla Soda manufacturing network is shown on the next page. : : : : : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== : Production lines : ______ --------------- D : 1 |______|<---------->| PLC-2/30 |<-------------------- A : |_______________| | T : ______ --------------- | A : 2 |______|<---------->| PLC-2/30 |<--------------------| : |_______________| | H : ______ --------------- | I : 3 |______|<---------->| PLC-2/30 |<--------------------| G : |_______________| | H : ________ _______________ | W : |Junc.Box|<-------->| 1771 KE |<-------------------- A : -------- --------------- Y : | : ___V____ ---------> PRINTER : |_12041B_| | TERMINALS : | A-700 |------ :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *CASEX C:J=0 C:W=0 C:M$="J:CASEX1" XI(F=0):U$ *CASEX1 C:F=0 E:  $ CDS ON'*----------------------------------------------------------------------------*''*----- This subroutines is used to format a mmfs message with a -----*'*----- or primitive.'*----------------------------------------------------------------------------*' SUBROUTINE Cii_Mmfs_Pd ( Out_msg, Out_len, In_data, ! 2 In_len, Tn, Nn, Code, Logical, F_name, Err), ! 3 92560-16NNN REV.2614 <860408.1428>   IMPLICIT None " INTEGER*2 Out_msg(500) ! Formatted message"" INTEGER*2 Out_len ! Length of message"! INTEGER*2 In_data(500) ! Data in message! INTEGER*2 In_len ! Length of data " INTEGER*2 Tn ! Transaction number "# INTEGER*2 Nn ! Notification number#! INTEGER*2 Code ! Type of message! INTEGER*2 Err ! Type of error $ INTEGER*2 Logicali(8) ! Logical name (integer) $# INTEGER*2 F_namei(8) ! File name (integer)# INTEGER*2 I,Ist ! Loop counter % CHARACTER*16 Logicalc ! Logical name (character) %$ CHARACTER*16 F_namec ! File name (character)$$ CHARACTER*16 Logical ! Logical name (passed)$" CHARACTER*16 F_name ! File name (passed) " INTEGER*2 T3,T4 CHARACTER*1 T1(2),T2(2) EQUIVALENCE (T1(1),T3)  EQUIVALENCE (T2(1),T4)  EQUIVALENCE (Logicali(1),Logicalc)  EQUIVALENCE (F_namei(1),F_namec)  '* ------------------------------------------------------------------ *''* ----- Codes received to format message ----- *''* ----((- ----- *''* ----- 1 = ----- *''* ----- 2 = ----- *''* ----- 3 = ----- *''* ----- 4 = ----- *''* ----- 5 = ----- *''* ----- 6 = ----- *''* ----- ----- *''* ------------------------------------------------------------------ *'  Logicalc = Logical F_namec = F_name  GOTO (1000, !  2 1000, !  3 3000, !  4 4000, !  5 3000, !  6 4000) Code !  '* ------------------------------------------------------------------ *'$* ----- and -----$'* ------------------------------------------------------------------ *' 1000 Continue  If (In_Len .Gt. 48) Then  Ist = 1  Out_msg(1) = 386 !  Out_msg(2) = In_len*2 !  Else  Out_msg(1) = 286 + (In_len*2) !  Ist = 0  End If  Out_msg(2+Ist) = 8066 !  Out_msg(3+Ist) = Tn !  If (Code .Eq. 1) Then Out_msg(4+Ist) = 8194 !  Else  Out_msg(4+Ist) = 8195 !  End If  Out_msg(6+Ist) = 9477 !  Out_msg(5+Ist) = 15104 + NN !  Out_msg(7+Ist) = 2448 !  Do I=1,8 " Out_msg(7+I+Ist) = Logicali(I) ! " End Do  T3 = 1280 T4 = In_Len*2 T1(2) = T2(1) T2(1) = T2(2) T2(2) = Char(0)  Out_Msg(16+Ist) = T3  Out_Msg(17+Ist) = T4   Do I=1,In_len  Out_msg(17+i+IST) = In_data(I)  End Do  Out_len = In_len + 17 + Ist Go To 8000  '* ------------------------------------------------------------------ *'* ----- and '* ------------------------------------------------------------------ *' 3000 CONTINUE  Out_msg(1) = 286 !  Out_msg(2) = 8066 !  Out_msg(3) = Tn !  Out_msg(4) = 8196 !  If (Code .Eq. 3) Then  Out_msg(6) = 9477 !  Else Out_msg(6) = 9473 !  End If  Out_msg(5) = 15104 + nn !  Out_msg(7) = 2448 !  Do I=1,8 Out_msg(7+I) = Logicali(I) ! End Do " Out_msg(16) = 9984 + Err ! Error code <27XX>" Out_len = 16   Go To 8000 '* ------------------------------------------------------------------ *''* ----- and ----- *''* ------------------------------------------------------------------ *'  4000 CONTINUE  Out_msg(1) = 284 !  Out_msg(2) = 8066 !  Out_msg(3) = Tn !  If (Code .Eq. 4) Then  Out_msg(4) = 8193 !  Out_msg(6) = 9477 !  Else Out_msg(4) = 8195 !  Out_msg(6) = 9473 !  End If  Out_msg(5) = 15104 + nn !  Out_msg(7) = 2448 !  DO I=1,8 Out_msg(7+I) = Logicali(I) ! END DO Out_len = 15 8000 RETURN  END$ CDS ON$ TITLE Cii Disc buffering / Transmit module$ INCLUDE /xdba/ema.ftni,LIST  $ FILES 0,1,1 '*----------------------------------------------------------------------------*'*----- PROGRAM NAME: CII_X.FTN *----- PROGRAMMER: Ashwath Shekar#*----- WHAT IT DOES: Routes messages from CII sub modules to NET2X #*----- Buffers messages on disc file.'*-----------------------------------------------------------------------/PCIF/GSWPCIF/ABMOD3.CRS:::1:100:128 644 0 0 62000 5303667117 35222 /PCIF_GS/GSWPCIF/ABMOD3.CRS:::1:100:128 $'$d dABMOD3 CRS +nO+nO+nOd2dFST >94200-16520 REV.5000 <870601.1703> PR:UE P: W: Short for WHERE_WE_WANT_TO_BE, contains frame number J:INIT *PRBINC C(J=0):W=W+1 C:C=C+1 C(W=C):J=0 T(J=0): : : : : : : : : : : : : : : : : : : : : : : C:C$=CHR(27) T(J=0): $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A T(J=0): HE for help $N$ :Screen# #C C: N=LEN(M$)-2 E: *INPUT C:J=0 TH:NEXT? A: M:ME&* JN:NEXT1 C:J=1 C:J$="E:"!!U$(3,6) XI:J$ *NEXT1 M:+**!-** JN:NEXT2 C:W1=W C:T$="C:W=C"!!%B C(T$="C:W=C-"!T$="C:W=C+"):T$=T$!!"1" XI:T$ T(W<=0):You are trying to jump back past the beginning of the module T(W<=0):Type return to continue with the next frame. A(W<=0): C(W<=0):W=W1+1 J(W<=0):RETURN C:J=1 C:J$="E:"!!M$(3,6) XI:J$ *NEXT2 M:EX**!EN** JN:NEXT3 C:F=1 C:J=1 C:J$="E:"!!M$(3,3)!!"EX" XI:J$ *NEXT3 M:CI JN: NEXT4 C:J=1 S:CI C:W=W+1 J:RETURN *NEXT4 M:HE!? JN:NEXT5 T: T: ********************* Commands ********************** T: * * T: * MENU................return to main menu * T: * +n..................go forward n screens * T: * -n..................go back n screens * T: * EXIT, EX, END, EN...exit training package * T: * CI..................run CI * T: * HELP, HE, ??, ?.....help * T: * * T: ***************************************************** C:J=1 TH: Press RETURN to continue with the current screen: A: C:J$="E:"!!M$(3,6) XI:J$ *NEXT5 C:T$=" " C:T$= %B C:N=ASC(T$) T(N<>32): Sorry, I don't recoginze that command. Use ? for help. TH(N<>32): NEXT? J(N<>32): @A *RETURN E: *ANSWER C: B$="[" C: P1=INS(1,R$,B$) C: B$="]" C: P2=INS(P1,R$,B$) C: P1=P1-1 C: M1$= "M:"!!R$(1,P1) C: P1=P1+2 C: P3=P2-P1 C: T1$= R$(P1,P3) C: P4=LEN(R$)-P2 C: P2=P2+1 C: X1$= R$(P2,P4) XI:M1$ TY: : $T1$ CN: X1$="R:" E: *INIT D:T$(80) D:J$(80) D:M$(40) D:N$(40) D:S$(6) D:R$(256) D:M1$(128) D:T1$(128) D:X1$(15) D:C$(1) D:B$(1) D:U$(40) D:E$(1) D:I$(4) D:O$(4) C:E$=CHR(27) C:I$=E$!!"&dB" C:O$=E$!!"&d@" C:U$="J:PRMENU" C:M$="J:PREST" *PRMENU T: : : : : : : : : : : : : : : : : : : : : : : C:C$=CHR(27) T: $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A C:W=0 C:C=0 C: J=0 T: : : : ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ : { } : { } : { Preconfigurator Menu } : { ------------------------ } : { STarting preconfiguration } : { SOftkeys } : { DEscriptor file loop } : { COmpletion information } : { ENding preconfiguration } : { EXit } : { } : ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ : : : Please type the name (1st 2 letters will suffice) of the section you TH: would like to study: C: F=1 C: T$=" " A: $T$ T: : : : : M:ST&* JY:PREST M:SO&* JY:PRESO M:DE&* JY:PREDE M:CO&* JY:PRECO M:EN&* JY:PREEN M:EX&* JY:PREEX M: CY:F=0 XIY:M$ C:N=ASC(T$) C(N=32):F=0 XI(N=32):M$ TN: ***** : Sorry, but I don't recoginze that section name. : Here's the menu so you can try again! : ***** XIN:U$ PR: *PREST C:J=0 C:W=0 C:M$="J:PREST1" *PREST1 C:N$="Starting the Preconfigurator" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==========================================((========================== :Starting Preconfiguration :------------------------- :All your equipment has arrived; the Data Highway is in place and :functioning; and PCIF/1000 is installed. (For detailed information :on installation, see the Installation Overview chapter and the :Installation chapter in the PCIF/1000 Reference Manual.) You are now :ready to configure the PCIF/1000 system. : :Configuration consists of two menu-driven programs: the Preconfigurator :FOLLOWED by the Configuration Editor. Each program uses a sequence of :formatted screens displayed and managed by an internal program (F/1000). : :Before starting Preconfiguration, you invite Sam Sharp to attend the :session. During the session, you guide Sam through the Preconfigurator. : :This section steps through the Preconfiguration screens. Continue :on now and follow the instructions as if you were Sam. :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :Preconfiguration involves three screens which allow you to specify :the type of PC being used. PCIF stores this information in the :Preconfigurator file and uses it to create the Configuration Editor :and the Run-time Monitor. : :The name of the Preconfigurator program is PCGEN.RUN It is in the :subdirectory /PCIF/PCIFGEN/ . You may locate the file by entering :the following CI command: : : CI> DL,/pcif/pcifgen/ : :To experiment with this, enter CI (by typing "CI" after the "NEXT?" :prompt) and type in the command. RTE responds by displaying the :a directory list of the files in PCIFGEN : : NOTE: PCGEN.RUN is a type 6 runtime program : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :To start the Preconfigurator, enter the following CI commands: : : CI> WD /pcif/pcifgen (Get in working directory) : CI> PCGEN (Run PCGEN) : :NOTE: Do not enter CI and try this command yet. You will want to :finish going through this training package before you actually run :any part of PCIF. : :The next section describes the softkeys available on the :Preconfiguration screens. Because this training package does not :actually run PCIF, these softkeys do not function within the training :package. : :However, the ENTER key does function. You must press the ENTER key to :continue after a Preconfiguration screen has been displayed. :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *PRESO C:J=0 C:W=0 C:M$="J:PRESO1" XI(F=0):U$ *PRESO1 C:N$="The Preconfigurator Softkeys" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :Preconfigurator Softkeys :------------------------ : ---- : | F1 | - EXIT; displays Screen 3 which completes Preconfiguration : ---- NOTE: If you exit before you validate the information about : your Highway and PCs, Preconfiguration will be incomplete. : ---- : | F5 | - HELP; displays a one-screen Help panel about the current : ---- screen : : ---- : | F7 | - REFRESH; refreshes previously entered information : ---- : ---- : | F8 | - ABORT PCGEN; aborts the PCGEN program : ---- NOTE: To prevent accidental abort, the Preconfigurator : requires you to press the F8 key again for confirmation. :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *PREDE C:J=0 C:W=0 C:M$="J:PREDE1" XI(F=0):U$ *PREDE1 C:N$="Descriptor File Loop" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :Descriptor File Loop :-------------------- :The first screen for the Preconfigurator asks for the Descriptor file :namr. (NOTE: PCIF was orginally written using fmgr naming conventions) : :The term namr is an abbreviation for name record and refers to :the name of the file and its attributes (e.g. security code and disc :location). The Descriptor file contains important information about :the PC or Highway to be configured. They are located in the Handler :subdirectory, in this case /pcif/ab/. : :Each PC manufacturer has a different PC Descriptor file namr and Highway :Descriptor file namr. The Descriptor file namrs for Allen-Bradley PCs :are listed below: : non-CDS CDS : ------- ------ : Highway Descriptor file namr .......... [PCHAB [PCHAC : : PC Descriptor file namr ............... [PCPAB [PCPAC :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :Screen 1 of the Preconfigurator (coming up next!!) contains one :required field: : : : Descriptor file namr: $I$ $O$ : : :In this field, type the full path name of the Highway descriptor :file. For example: : : : Descriptor file namr: $I$ /pcif/ab/[PCHAC $O$ : :NOTE: Since this training package does not actually run the :Preconfigurator, the function keys do not operate as they would :during real PCIF Preconfiguration. Only the ENTER key operates :normally. :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S: SCRNS,PSCR01.TXT U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :After you press the ENTER key, the Preconfigurator displays Screen 2. :This screen contains a number of display-only fields which describe :the information included in the Highway Descriptor file entered in Screen 1. : :You should check each of the display-only fields to make sure that the :information is correct. The PC brand name, the Handler file namr, and :the partial configurator file namr must be correct. The PC Highway :you are using must also be supported. For Sarsaparilla Soda, assume :that the information is correct. : :Screen 2 has two required fields: : : Do you want to validate ? Yes: $I$ X$O$ No: $I$ $O$ : :Since the information on the screen is correct, type an "X" in the "Yes" :field. Be sure to leave the "No" field blank. : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S: SCRNS,PSCR02.TXT U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :Pressing the ENTER key returns you to Screen 1. At this time the :Preconfigurator stores the information displayed on Screen 2 in the MACRO :and LINK programs for later use. : :The Preconfigurator loops between Screen 1 and Screen 2 until all PC and :Highway file namrs have been entered (Screen 1) and validated (Screen 2). :When this file namr entering is complete, press F1 (EXIT) to go to :Screen 3. : :This time you must enter the PC Descriptor file namr into the only :available field on Screen 1. For example: : : : Descriptor file namr: $I$ /pcif/ab/[PCPAB $O$ : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S: SCRNS,PSCR01.TXT U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :Pressing the ENTER key returns you to Screen 2 once again. : :This time Screen 2 displays important information included in the PC :Descriptor file, [PCPAC. Again check the information for accuracy and, :assuming that it is all correct, type an "X" in the "Yes" field as :shown below: : : Do you want to validate ? Yes: $I$ X$O$ No: $I$ $O$ : : : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S: SCRNS,PSCR02.TXT U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :If you needed to enter additional Descriptor file namrs, you would now :return to Screen 1 again by pressing the ENTER key. However, since :you have already specified the Highway Descriptor file namr and the :PC Descriptor file namr, you want to exit the Preconfigurator loop. : :To exit the loop, press the F1 key (EXIT) to display Screen 3. : : : : : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *PRECO C:J=0 C:W=0 C:M$="J:PRECO1" XI(F=0):U$ *PRECO1 C:N$="Completion Information" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :Completion Information :---------------------- :Screen 3 allows you to complete the Preconfigurator. The :fields require you to enter the following information: : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== : * The first field asks you whether you are done with Preconfig- : uration The default is "No". Thats why an "X" appears in the : "No" field. : : Since you want to complete Preconfiguration, type an "X" in the : "Yes" field and be sure to delete the "X" in the "No" field. : : * The second field reconfirms your choice as to which RTE system : you are linking to. Our RTE system is has Code and Data separ- : ation so enter a "X" in the CDS field. : : * The final field asks whether you wish to add another discriptor : file. Since we are not leave this field blank. : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:((==================================================================== : :NOTE: You may move from field to field by pressing the TAB key or the : SHIFT key and the TAB key. : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S: SCRNS,PSCR03.TXT U(J=0):INPUT XI(J=1):J$ PR: *PREEN C:J=0 C:W=0 C:M$="J:PREEN1" XI(F=0):U$ *PREEN1 C:N$="Ending Preconfiguration" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :Ending Preconfiguration :----------------------- :To end Preconfiguration, press the ENTER key to clear Screen #3. : :At this time, the Preconfigurator generates the Configuration Editor and :the Run-time Monitor using an assembler program, called MACRO, and a loader :program, called LINK. PCIF/1000 displays the progress of this generation :on the screen. : :If no error messages are displayed and the CI> prompt appears, then :Preconfiguration is complete. : :The next step is the completion of the Configuration file using the :Configuration Editor. The next module guides you through this process. : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *PREEX C:J=0 C:W=0 C:M$="J:PREEX1" XI(F=0):U$ *PREEX1 C:F=0 C:C=0 E:   CALL Cii_close_otn ( Tn) GOTO 8000  END IF &*---------------------------------------------------------------------------* &&*----- Send an Upload request -----* &&*---------------------------------------------------------------------------* & % Tn1 = Tn ! Save Tn of original req%# CALL Cii_get_tn ( Tn) ! Get Tn for req # CALL Cii_Mmfs_Pd ( Out_msg, Out_len, In_data, In_len, 2 Tn, Nn, 4, Logical, F_name, 0)  CALL Cii_cio_put( Out_msg, Out_len, Parm(2), Status)  &*---------------------------------------------------------------------------* &&*----- Set Download flag to True, Open a file for the program -----* &&*---------------------------------------------------------------------------* &  Downl = .TRUE. Drec = 1 Dptr = 1 ! OPEN (UNIT=11,FILE=Pdtdirc(1:Dblank)//Logical(1:Fblank),! 1 ACCESS='DIRECT',RECL=256,IOSTAT=Ios, 2 STATUS='NEW',ERR=5000) GOTO 8000  &*---------------------------------------------------------------------------* &&*----- Download, End of program transfer -----* &&*---------------------------------------------------------------------------* &  3000 CONTINUE  K = 0  3010 DO I = 1,128 K = K+1  IF ( K .GT. INT((In_msg(20)+1)/2) )GOTO 3500 In_data (Dptr) = In_msg(20+K)  Dptr = Dptr + 1  If ( Dptr .GT. 128)GOTO 3020 END DO '* ------------------------------------------------------------------ *''* ----- Write a 128 word record to the device prg file. ----- *''* ------------------------------------------------------------------ *' 3020 WRITE (11,REC=Drec,ERR=5000,IOSTAT=Ios)In_data Drec = Drec + 1 Dptr = 1 GOTO 3010  '* ------------------------------------------------------------------ *''* ----- Call PDT to perform the download. ----- *''* ------------------------------------------------------------------ *'  3500 CONTINUE   Pdt_File = Pdtdirc(1:Dblank)//Logical(1:Fblank) ! CALL Download ( Logicali, Pdt_filei, Retry, Ios, F_name)!  IF (Ios .Eq. 0) Then Status = 6  Else Status = 5  End If  CALL Cii_Mmfs_Pd ( Out_msg, Out_len, In_data, In_len,  2 Tn1, Nn, Status, Logical, F_name, Ios)  CALL Cii_cio_put (Out_msg, Out_len, Parm(2), Status)  CALL FMPPURGE( Logical)  Downl = .FALSE. GOTO 8000  '*----------------------------------------------------------------------------*''*----- message received -----*''*----------------------------------------------------------------------------*'  4000 CONTINUE  K = 0  4010 DO I=1,128 K = K + 1  IF ( K .GT. INT((In_msg(20)+1)/2) )GOTO 8000 In_data(Dptr) = In_msg(20+K) Dptr = Dptr + 1  IF ( Dptr .GT. 128)GOTO 4020 END DO '* ------------------------------------------------------------------ *''* ----- Write a 128 word record to the device prg file. ----- *''* ------------------------------------------------------------------ *' 4020 WRITE (11,REC=Drec,ERR=5000,IOSTAT=Ios)In_data Drec = Drec + 1 Dptr = 1 GOTO 4010  '*----------------------------------------------------------------------------*''*----- message received -----*''*----------------------------------------------------------------------------*'4900 Ios = 0  5000 Continue  Close(11,Status='DELETE')  Downl = .FALSE.  Call Cii_Mmfs_Pd ( Out_msg, Out_len, In_data, In_len,  2 Tn, Nn, 5, Logical, F_name, Ios)  Call Cii_cio_put (Out_msg, Out_len, Parm(2), Status) 8000 END DO '*----------------------------------------------------------------------------*''*----- Shutdown section ---*''*----------------------------------------------------------------------------*'9999 Call Cii_Cio_Put (Out_msg, Out_len, Parm(2), Status)  If (G_Trace) Write(1,*) ' Shutting down'  Stop   Endftn7x,l,s $CDS ON $FILES 3,5c  Subroutine Cii_Log_Up (Class_no, Trans_no),  1 92560-16NNN REV.2614 <860414.1803>#c*********************************************************************##c* *##c* PROGRAMMER: A. N. Shekar *##c* *##c* FUNCTIONAL DESCRIPTION: *##c* *##c* This routine reads the ASCII configuration file specified *##c* and constructs a MMFS message to be sent to the area manager *##c* The message contains all the fields associated with a logical *##c* name, as described in the file. BDM and BI type logical *##c* names are not processed. Since a call to Cii_Buf_Up is *##c* expected after this call, all messages are formatted as *##c* messages *##c* *##c* CALLING SEQUENCE: *##c* *##c* Call Cii_Log_Up (Class_no,Trans_no) *##c* *##c*********************************************************************#  Implicit None  Character*80 Scanln,Token,Nextln Common /Log_Up/ Scanln,Token Logical Done,Skip,Valid,Eof,No_Buffers,Next_Time" Integer*2 Class,Scanerr,Ios,I,J,Ntimes,Toklen,Msg(500),Msg_len" Integer*2 Len,Temp_msg(500),Dat(500),Logi(8),Log(8)  Integer*2 Class_no,Trans_no,Status,Lbuf(500) Character*960 Temp Character*16 Logc  Equivalence (Temp,Temp_msg(1)) Equivalence (Logc,Logi(1))  Call LgBuf(Lbuf,500)  " Open (3,File='/XSET/RUN/STA/BDM/BUFR_DIRECTORY.DAT',Iostat=Ios, " 1 Err=3000,Status='OLD') READ (3,'(A)',End=3000,Err=3000) Scanln  READ (3,'(A)',End=3000,Err=3000) Scanln  Close (3)  No_buffers = .False.  Go To 3500  3000 No_buffers = .True.  Write (1,*) 'CII_LOG_UP No buffer logical names' Close(3,Err=3500)  3500 Continue ! Open (File='/XSET/RUN/FUL/DB_UPLOAD.INP',Unit=32,Iostat=Ios,! 1 Err=3600)  Read (32,'(A)',Err=3600,Iostat=Ios,End=3600) Scanln  Read (32,'(A)',Err=3600,Iostat=Ios,End=3700) Nextln  Eof = .False. Next_time = .True.  Go To 3800  3600 If (No_buffers) Then Go To 8000  Else Return End If  3700 Eof = No_buffers Next_time = .False.   3800 Done = .False.  Len = 0  Do While (.NOT. Done)   Done = .Not. Next_Time skip = .FALSE.  Call Scantok (Skip,Token,Toklen,Valid,Scanerr,*6000) If (token(1:2) .EQ. '%D') then ntimes = 23  Else If (token(1:2) .EQ. '%I') then  ntimes = 15  Else If (token(1:2) .EQ. '%O') then  ntimes = 15  Else If (token(1:3) .EQ. '%BI') then ntimes = 4  Else If (token(1:2) .EQ. '%R') then  ntimes = 8  Else If (t((oken(1:2) .EQ. '%V') then  ntimes = 11  Else If (token(1:4) .EQ. '%BDM') then  ntimes = 2  Else Go To 4000  End If  Temp = ' ' If (.NOT. Skip) then Do i = 1,Toklen  Temp(i:i) = Token(i:i) End Do  Len = Toklen + 1 Temp(Len:Len) = ','   Do i = 1,ntimes  Call Scantok(Skip,Token,Toklen,Valid,Scanerr,*6000)  If (i.eq.1) then Logc = ' '  Logc = Token(1:toklen)  End If If (Valid) then  Do j = 1,Toklen  Temp(j+len:j+len) = token(j:j)  End do  Len = Len + Toklen + 1 Temp(Len:Len) = ','  End If  End Do  Do i = 1,8  Log(i) = Logi(i) End Do  Do i = 1,(Len+1)/2  Dat(i) = Temp_M/PCIF/GSWPCIF/ABMOD4.CRS:::1:150:128 644 0 0 113000 5303667120 36124 /PCIF_GS/GSWPCIF/ABMOD4.CRS:::1:150:128 $'$ ABMOD4 CRS +nP+nP+nPKlFST 94200-16521 REV.5000 <870601.1704> PR:UE J:INIT *PRBINC C(J=0):W=W+1 C:C=C+1 C(W=C):J=0 T(J=0): : : : : : : : : : : : : : : : : : : : : : : C:C$=CHR(27) T(J=0): $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A T(J=0): HE for help $N$ :Screen# #C C: N=LEN(M$)-2 E: *INPUT C:J=0 TH:NEXT? A: M:ME&* JN:NEXT1 C:J=1 C:J$="E:"!!U$(3,6) XI:J$ *NEXT1 M:+**!-** JN:NEXT2 C:W1=W C:T$="C:W=C"!!%B C(T$="C:W=C-"!T$="C:W=C+"):T$=T$!!"1" XI:T$ T(W<=0):You are trying to jump back past the beginning of the module T(W<=0):Type return to continue with the next frame. A(W<=0): C(W<=0):W=W1+1 J(W<=0):RETURN C:J=1 C:J$="E:"!!M$(3,6) XI:J$ *NEXT2 M:EX**!EN** JN:NEXT3 C:F=1 C:J=1 C:J$="E:"!!M$(3,3)!!"EX" XI:J$ *NEXT3 M:CI JN: NEXT4 C:J=1 S:CI C:W=W+1 J:RETURN *NEXT4 M:HE!? JN:NEXT5 T: T: ********************* Commands ********************** T: * * T: * MENU, ME............return to main menu * T: * +n..................go forward n screens * T: * -n..................go back n screens * T: * EXIT, EX, END, EN...end training package * T: * CI..................run CI * T: * HELP, HE, ??, ?.....help * T: * * T: ***************************************************** C:J=1 TH: Press RETURN to continue with the current screen: A: C:J$="E:"!!M$(3,6) XI:J$ *NEXT5 C:T$=" " C:T$= %B C:N=ASC(T$) T(N<>32): Sorry, I don't recoginze that command. Use ? for help. TH(N<>32): NEXT? J(N<>32): @A *RETURN E: *ANSWER C: B$="[" C: P1=INS(1,R$,B$) C: B$="]" C: P2=INS(P1,R$,B$) C: P1=P1-1 C: M1$= "M:"!!R$(1,P1) C: P1=P1+2 C: P3=P2-P1 C: T1$= R$(P1,P3) C: P4=LEN(R$)-P2 C: P2=P2+1 C: X1$= R$(P2,P4) XI:M1$ TY: : $T1$ CN: X1$="R:" E: *INIT D:T$(80) D:J$(80) D:M$(40) D:N$(40) D:S$(6) D:R$(256) D:M1$(128) D:T1$(128) D:X1$(15) D:C$(1) D:B$(1) D:U$(40) D:E$(1) D:O$(4) D:I$(4) D:U1$(4) D:U2$(4) D:B1$(4) C:E$=CHR(27) C:O$=E$!!"&d@" C:I$=E$!!"&dB" C:U1$=E$!!"&dD" C:U2$=E$!!"&dF" C:B1$=E$!!"&dA" C:U$="J:COMENU" C:M$="J:CONST" *COMENU T: : : : : : : : : : : : : : : : : : : : : : : C:C$=CHR(27) T: $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A C:W=0 C:C=0 C: J=0 T: : : : ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ : { } : { } : { Configuration Editor Menu } : { ------------------------- } : { STarting configuration editor } : { SOftkeys } : { FIle selection } : { HIghway selection and configuration } : { PC selection and configuration } : { ENding configuration editor } : { EXit } : { } : ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ : : : Please type the name (1st 2 letters will suffice) of the section you TH: would like to study: C: F=1 C: T$=" " A: $T$ T: : : : : M:ST&* JY:CONST M:SO&* JY:CONSO M:FI&* JY:CONFI M:HI&* JY:CONHI M:PC&* JY:CONPC M:EN&* JY:CONEN M:EX&* JY:CONEX M: CY:F=0 XIY:M$ C:N=ASC(T$) C(N=32):F=0 XI(N=32):M$ TN: ***** : Sorry, but I don't recoginze that section name. : Here's the menu so you can try again! : ***** XIN:U$ PR: *CONST C:J=0 C:W=0 C:M$="J:CONST1" *CONST1 C:N$="Starting the Configuration Editor" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :Starting the Configuration Editor :--------------------------------- :Once preconfiguration is complete, you and Sam are ready to use the :Configuration Editor. Sam enters data at the terminal while you provide :the following instructions. But first you must get in the RUNTIME :subdirectory /PCIF/RUNTIME. To do this simply type: : : CI> WD /PCIF/RUNTIME : :To complete configuration, you must access the Configuration Editor :program (PCCON). The Configuration Editor allows you to describe the :existing physical connection between your PC stations and the HP 1000. :This description is stored in an RTE-A file which PCIF/1000 reads at :run-time. : :Like the Preconfigurator, the Configuration Editor consists of a series :of menus or screens. You supply appropriate information in the required :or optional fields included in the screens. : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :To start the Configuration Editor, you enter the program name : : CI> PCCON : :After you type in this command, Screen 1 is displayed on your screen. : :Before discussing Screen 1, let's look at the softkeys available within :the Configuration Editor. Remember that these softkeys do not actually :function within this training package, but the ENTER key does. You :must press ENTER to continue after a Configuration Editor screen has :been displayed. : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *CONSO C:J=0 C:W=0 C:M$="J:CONSO1" XI(F=0):U$ *CONSO1 C:N$="Configuration Editor Softkeys" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :Configuration Editor Softkeys :----------------------------- : ---- : | F1 | - PREVIOUS SCREEN; returns you to previous screen : ---- : ---- : | F2 | - LIST; outputs a listing of the Configuration file as is : ---- NOTE: You must first provide a listing file namr in first : field of Screen 2. : : ---- : | F3 | - PREVIOUS TYPES; moves you to previous screenful of highway types : ---- : : ---- : | F4 | - NEXT TYPES; moves you to next screenful of highway types : ---- :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== : ---- : | F5 | - HELP; displays a one-screen Help panel about the current : ---- screen : : ---- : | F7 | - REFRESH; refreshes previously entered information : ---- : : ---- : | F8 | - ABORT PCCON; aborts the PCCON program : ---- : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *CONFI C:J=0 C:W=0 C:M$="J:CONFI1" XI(F=0):U$ *CONFI1 C:N$="File Selection" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :File Selection :-------------- :The File Selection screen allows you to name the configuration file :before you create it. The one field available for data is an optional :field: : : Configuration file namr: $I$ $O$ : :If you do not type the configuration file namr in this field, you must :name the file later, in Screen 11. If you are updating a configuration :file, you must type the namr in the field. : :The Configuration Editor checks to see if this session is a configuration :update or a new configuration. On each successive screen, the Configuration :Editor displays a blinking message specifying whether the session is for :CREATING or MODIFYING the configuration file. : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :It is helpful if the file namr is a name for a FMGR file. : : Configuration file namr: $I$ ^CSODA.lst $O$ : :NOTE: It is helpful to keep all your configuration files straight by :adopting a naming convention. For example, make the first character of :all configuration files a carat ("^"), as shown above. Due to the his- :tory of PCIF (previous editions were written for FMGR directory :structures) pcif ((used both FMGR and CI naming conventions. : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S: SCRNS,CSCR01.TXT U(J=0):INPUT XI(J=1):J$ PR: *CONHI C:J=0 C:W=0 C:M$="J:CONHI1" XI(F=0):U$ *CONHI1 C:N$="Highway Selection and Configuration" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :Highway Selection and Configuration :----------------------------------- :After you hit the ENTER key, PCIF displays Screen 2, the Work :Selection screen. This screen allows you to specify the kind of :configuration you are about to perform -- highway or PC :configuration. : :In this section, you will configure your highway. : :Notice the flashing message telling you that you are creating a :configuration: : : $B1$ Creating configuration$O$ : :Each succeeding screen displays a similar message. : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The first field: : : Listing file namr: $I$ $O$ : :allows you to name a listing file. You can produce a hardcopy :listing of the configuration file if you type the listing namr. : :Type the following namr in this field: : : Listing file namr: $I$ 'CSODA.LST $O$ : :NOTE: The symbol ' is FMGR. convention for a list file. The :discriptor .LST is CI convention. : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The next three fields: : : Highway configuration: $I$ $O$ : : PC configuration: $I$ $O$ : : Exit: $I$ $O$ : :allow you to designate the kind of configuration you are performing. : :Remember that you are creating a new configuration. Therefore, you :must specify the highway configuration before you configure its :associated PC(s). : :The Configuration Editor also verifies the compatibility of the highway :with the required PCs. : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :Since you are now going to configure the highway, type an "X" in the :following field: : : Highway configuration: $I$ X$O$ : :Now let's take a look at Screen 2 of the Configuration Editor. : : : : : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S: SCRNS,CSCR02.TXT U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The next screen, Screen 3, allows you to select your highway. : :The first field identifies the data highway by number: : : Highway number: $I$ 1$O$ : :Since you are configuring the first and only data highway for Sarsaparilla :Soda, accept the default value shown, "1". : :The second field: : : Add/modify: $I$ X$O$ : :allows you to add or modify the highway identified by number in the first :field. You are adding the highway so again accept the default, "X". : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The last field: : : Delete: $I$ $O$ : :allows you to delete the selected highway from the configuration file. :Note, however, that you cannot delete any highway that has one or more :associated PCs. : :Leave this field blank because you are not deleting a highway. : :For more information on deletion of highways, see Chapter 8 in the :PCIF/1000 Reference Manual. : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S:RU,SCRNS,CSCR03.TXT,1 U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :Screen 4 of the Configuration Editor allows you to add Sarsaparilla :Soda's one data highway. : :The screen displays all supported highway types. The descriptor file :entered during Preconfiguration provides this information. : :Select the specific highway type by placing an "X" in the field next :to the chosen type. You want to choose the PLC-PLC2.FAMILY type, so :place an "X" in the associated field as shown below: : : PLC-PLC2.FAMILY $I$ X$O$ : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S: SCRNS,CSCR04.TXT U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The next screen, number 5, prompts you for more specific information :about the highway being configured. : :The first field: : : Priority: $I$ 50$O$ : :asks for a parameter that defines the priority of the highway. : :The priority of a highway controls the handling of simultaneously :received requests. The highway with the highest priority is handled :first. : :A highway's priority must be an integer between 1 and 99, inclusive, :the highest priority being 99 and the lowest being 1. : :In this case, accept the default priority of 50. :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The second field: : : Port number: $I$ $O$ : :allows you to specify the port number of your highway on the interface :card. : :The entered value should be an integer between 0 and 7, inclusive. :This number corresponds to one to the eight RS232C female connectors :on the MUX connection panel. : :Since the port number for the Sarsaparilla Soda highway is 0, enter a :"0" in this field. : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The last two fields on Screen 5: : : First LU number: $I$ 0$O$ : : Second LU number: $I$ 0$O$ : :allow you to allocate one or two LUs to the highway. The LU number, :which is allocated at system generation time, must be an integer :between 1 and 255, inclusive. : :Since you are allocating two LUs, you must make sure that they have :different numbers. In this case, specify the first LU number to be :91 and the second to be 92. : :Enter the two LU numbers that correspond to port 0 on the downloadable :MUX card as specified in your system generation file. (For more :information, see Chapter 8 of the PCIF/1000 Reference Manual.) :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S: SCRNS,CSCR05_5.TXT,1 U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :After you press ENTER, the Configuration Editor validates the information :entered in the highway selection and configuration fields. If there :are no errors, Screen 6, the special information screen is displayed. :This screen allows you to define the baud rate for the P.C. dialog. After :the baud rate generator (0 or 1) is associated with the approprate speed :it is necessary to maintain that relationship for any other highways confi- :gured with the same rate. : :In our example use generator $I$ 0 $O$ and the $I$ 96000 $O$ baud rate. : :The screen loop from Screen 5 (or 6) to Screen 3 is called the Highway :Configuration loop. The Configuration Editor repeats this loop until :all highways have been configured. : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S:SCRNS,CSCR06.TXT,1 U(J=0):INPUT XI(J=1):J$ qqqpcreen #15 PR: U:PRBINC J(W<>C):@P T:==================================================================== :The first field on Screen 3: : : Highway number: $I$ 2$O$ : :shows that the next highway to be selected is number 2. : :Since Sarsaparilla Soda uses only one highway, you do not need to :configure additional highways. Therefore, cancel the selected highway :by pressing F1, PREVIOUS SCREEN. : : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S:RU,SCRNS,CSCR03.TXT,2 U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :After you press F1, the Configuration Editor redisplays Screen 2. :You have now exited the Highway Configuration loop. : :Now we must configure the PCs. The next section guides you through :PC selection and configuration. : : : : : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *CONPC C:J=0 C:W=0 C:M$="J:CONPC1" XI(F=0):U$ *CONPC1 C:N$="PC Selection and Configuration" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :PC Selection and Configuration :------------------------------ :After you exit the Highway Configuration loop, Screen 2 is redisplayed. : :We now want to configure the PCs associated with the configured highway. :Type an "X" in the PC configuration field: : : PC configuration: $I$ X$O$ : : : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S: SCRNS,CSCR02.TXT U(J=0):INPUT XI(J((=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :Pressing ENTER causes Screen 7 to be displayed, and you enter the PC :Configuration loop. : :Screen 7 allows you to define a new PC or modify the configuration of :an existing PC. The screen is similar to Screen 3, Highway Selection. : :The first field identifies the PC by number: : : PC Logical Identifier: $I$ 1$O$ : :The Configuration Editor provides the default value of n+1, where n is :the largest Logical Identifier already allocated. In this case, since :you are creating a configuration file and configuring the first PC, the :default is 1. : :Accept the default value. : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The second field on Screen 7: : : Add/modify: $I$ X$O$ : :allows you to add the PC identified by number in the previous field. :If you were modifying an existing configuration file, you could modify :the PC. In this case, you are adding PC Logical Identifier number 1, :so accept the default "X". : :The third and last field: : : Delete: $I$ $O$ : :allows you to delete the selected PC from the configuration file. In :this case, you are not deleting any PCs, so leave this field blank. : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S:SCRNS,CSCR07.TXT,1 U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :After you press ENTER, the Configuration Editor displays Screen 8. : :This screen is displayed only if you are adding a new PC. Note the :flashing message showing that you are adding a new PC: : : $B1$ New PC adding$O$ : :The supported PCs are displayed as specified in the descriptor file :of the Preconfigurator. : :You choose the PC type by typing an "X" in the appropriate field. :Only one type may be selected for each PC being configured. Type an :"X" in the field, as shown below: : : PLC-2.FAMILY $I$ X$O$ : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S: SCRNS,CSCR08.TXT U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :After you select the PC type, you must enter more information about :the PC being configured. Screen 9 allows you to enter this information. : :The two display-only fields show the PC type and number (PC Logical :Identifier): : : PC type: $U1$ PLC-2.FAMILY$O$ Number: $U1$ 1$O$ : :The first required field: : : Highway number: $I$ 0$O$ : :allows you to specify the highway number for the PC being added. Type :"1" for the Highway number. : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The next field: : : PC Station Number: $I$ $O$ : :is only displayed when the PC is to be connected using a multipoint :link. For more information, consult the Configuration chapter of the :PCIF/1000 Reference Manual and your handler-specific manual. : :Enter "11" for this PC station number. : :NOTE: Always enter the PC Station Number in decimal, NOT octal. : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The following two fields: : : Time out: $I$ 30$O$ Time out unit: $I$ 2$O$ 1: minute : 2: second : :together define the timeout value for the PC. Timeout is the amount :of time that the PCIF software waits for an answer from a PC before :sending an error message to the user's application. : :In this case, select the defaults, 30 and 2. : :NOTE: The "Time out" and "Time out unit" fields above are not required. :If, however, you enter a time out value, you must specify a time out :unit. : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The next field on Screen 9: : : Priority: $I$ 50$O$ : :defines the priority of the associated handler for the PC. : :This field requires an integer between 1 and 99. 99 is the highest :priority while 1 is the lowest priority. If two requests are received :simultaneously, the one with the highest priority is handled first. : :The priority number is only significant in comparison with the priorities :of the other PCs and highways. : :For PC number 1, accept the default priority of 50. : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The next five fields on Screen 9 prompt you for certain capabilities :of the PC being configured. You select any capability by typing an :"X" in the adjoining field. Any capability fields left blank will be :set to "off". : :For Sarsaparilla Soda, select the appropriate four capabilities, as :shown below: : : Write data allowed: $U2$ X$O$ : Write program allowed: $U2$ X$O$ : Transparent functions allowed: $U2$ X$O$ : Unsolicited PC requests allowed: $U2$ X$O$ : Start/stop allowed: $U2$ $O$ : :NOTE: You should consult the appropriate PC brand reference manual to :check that a selected capability is supported. For more information, :see the Configuration chapter in your PCIF/1000 Reference Manual. :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S: SCRNS,CSCR09.TXT,1 U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :After you press ENTER, the Configuration Editor validates the information :entered on Screen 9 and then redisplays Screen 7. : :Screen 7 allows you to configure additional PCs. You must continue :to return to this screen until all the PCs have been configured for :Highway number 1. This is called the PC Configuration Loop. : :The first field on Screen 7: : : PC Logical Identifier: $I$ 2$O$ : :shows that the next PC to be selected is PC number 2. Accept this :value and the "X" displayed in the Add/modify field. : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S:SCRNS,CSCR07.TXT,2 U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :After you press ENTER, the Configuration Editor redisplays Screen 8, :the PC Type Selection field. : :The PC type for PC number 2 is the same as the PC type for number 1. :Type an "X" in the field, as shown below: : : PLC-2.FAMILY $I$ X$O$ : : : : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S: SCRNS,CSCR08.TXT U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :Pressing ENTER moves you to Screen 9, where you complete the configuration :of PC number 2. : :Some of the information you enter here is different for this PC. :Notice that the PC type is the same, but the number is different. : :Since Sarsaparilla Soda only has only one highway, the highway number :is the same for all three PCs. Make sure that the "Highway number" :field contains a "1": : : Highway number: $I$ 1$O$ : :Change the value for the PC station number to "15", as shown below: : : PC Station Number: $I$ 15$O$ : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The "Time out" and "Time out unit" fields are the same for the second :PC. Make sure the time out is set to 30 and the time out unit to "2", :as shown below: : : Time out: $I$ 30$O$ Time out unit: $I$ 2$O$ 1: minute : 2: second : :Change the "Priority" field to the following: : : Priority: $I$ 40$O$ : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The five capabilities for each of the three PCs are the same, as shown :below: : : Write data allowed: $U2$ X$O$ : Write program allowed: $U2$ X$O$ : Transparent functions allowed: $U2$ X$O$ : Unsolicited PC requests allowed: $U2$ X$O$ : Start/stop allowed: $U2$ $O$ : : : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S: SCRNS,CSCR09.TXT,2 U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :Pressing ENTER causes Screen 7 to be displayed again. You are ready :to configure the last PC. : :Now that you have been through the PC Configuration loop twice, you :should have no trouble configuring the last PC on your own. Beginning :with Screen 7, configure PC number 3 according to the following :specifications: : : PC number: 3 : Type: PLC-2.FAMI((LY : Connected highway: 1 : Station number: 12 : Time out: 20 : Priority: 50 : :(continued on next screen) : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== : Capabilities: : : - write data X : - write program X : - transparent functions X : - unsolicited requests X : - start/stop : : : : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :After you go through the PC Configuration Loop, you return once more :to Screen 7. : :Notice that this time the PC logical identifier is 4: : : PC Logical Identifier: $I$ 4$O$ : :Since Sarsaparilla Soda only uses three PCs, you are finished with :the PC configuration. : :To cancel Screen 7, press F1, PREVIOUS SCREEN. : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S:SCRNS,CSCR07.TXT,4 U(J=0):INPUT XI(J=1):J$ PR: *CONEN C:J=0 C:W=0 C:M$="J:CONEN1" XI(F=0):U$ *CONEN1 C:N$="Ending the Configruation Editor" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :Ending the Configuration Editor :------------------------------- :After you press F1, Screen 2 is redisplayed. This screen allows you :to complete the configuration file. : :Type an "X" in the Exit field: : : Exit: $I$ X$O$ : : : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S:SCRNS,CSCR02.TXT U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :After you press ENTER, the Configuration Editor displays Screen 11, :General Information. : :This screen allows you to enter general information common to PCIF/1000. :This information describes in general terms the present highway and :PC configuration. : :The first field: : : Maximum length of application : program requests or replies: $I$ 512$O$ (bytes) : :defines the maximum length of the requests and replies in the application :program. This value must be an positive integer smaller than 1025. :Accept the default value, 512 bytes. : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The second field on Screen 11: : : Maximum PC request queue length: $I$ 8$O$ (requests) : :allows you to limit the number of requests waiting to be completed :for a given PC. Accept the default value, 8 requests. : :The next field: : : Maximum number of access keys: $I$ 64$O$ : :allows you to enter the maximum number of access keys available to :an application program. (Certain PC Access Routines use access keys. :See chapter on PC Access Routines in your PCIF/1000 Reference Manual.) : :Here you must enter a positive integer smaller than 65. Accept the :default value, 64. :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P :==================================================================== :The fourth field on Screen 11: : : PC_DISC Security Code : (also used for scheduling PCHLT): $I$ 0$O$ : :allows you to establish a security code for use with the PC Access :Routine, PC_DISC, or with PCHLT, which stops the PCIF monitor. : :If you want to set a security code, type any integer within the range :-32768 and 32767. In this case, accept the default security code of :0. : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The last field on Screen 11: : : Configuration file namr: $I$ ^CSODA.lst $O$ : :displays the configuration file namr entered in Screen 1. If you had :not specified this file namr in Screen 1, you would have to enter it :here; or you may also change the configuration file namr at this point. : :Remember that it is best to follow FMGR namr format. : :Since you already specified a namr in Screen 1, accept the file namr :displayed in this field. : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :$B1$ WARNING$O$ :To write all the configuration information to the specified list file, :including the validated data from Screen 11, you must: : : 1. Press PREVIOUS SCREEN to return to Screen 2 to validate the : entered data from Screen 11. : : 2. On Screen 2, select the exit option and press ENTER. Screen : 11 will be redisplayed. : : 3. On Screen 11, press F2, LIST, to store the validated data in : the list file. : :To complete the configuration process, press ENTER on Screen 11. The :data entered during this configuration is now stored into the disc file :namr already specified. : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S:SCRNS,CSCR11.TXT U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The configuration process is now complete. The next module will :demonstrate how an application program works with PCIF/1000 to solve :Sarsaparilla Soda's problem. : : : : : : : : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *CONEX C:J=0 C:W=0 C:M$="J:CONEX1" XI(F=0):U$ *CONEX1 C:F=0 C:C=0 E:  IF (send_error <> SUCCESS) THEN  BEGIN ! WRITELN ('A_Assoc_req error = ', send_error);! test_OK := FALSE; END ELSE $ WRITELN ('Received association number = ',assoc_n);$ WRITELN ('A_assoc_req completed. ');  END;   '2':% BEGIN { A_Assoc_rsp }% WRITELN;  PROMPT ('Input association number: '); READLN (assoc_n);  PROMPT ('Do you wish to respond OK ? (Y or N)'); READLN (temp_char); ( IF ( temp_char = 'Y') THEN response := TRUE ELSE response := FALSE; (! IF response = TRUE THEN reason := 0 ELSE reason := 1; !  setstrlen (to_AT_str, 0);  to_AT := '';  PROMPT ('Input to_AT title: ');  READLN (to_AT_str);  to_AT_len := strlen (to_AT_str); strmove (to_AT_len, to_AT_str, 1, to_AT, 1);  setstrlen (from_AT_str, 0);  from_AT := '';  PROMPT ('Input from_AT title: ');  READLN (from_AT_str);  from_AT_len := strlen (from_AT_str); strmove (from_AT_len, from_AT_str, 1, from_AT, 1);  send_error := A_Assoc_rsp (assoc_n, response, # a_context_len, a_context,## a_u_data_len, a_u_data); #  IF (send_error <> SUCCESS) THEN  BEGIN  WRITELN ('A_Assoc_rsp error = ',send_error);  test_OK := FALSE; END  ELSE WRITELN ('A_assoc_rsp completed. ');  END;   '3':& BEGIN { A_Release_req }& WRITELN;  PROMPT ('Input association number: '); READLN (assoc_n); $ send_error := A_rel_req ( assoc_n, a_u_data_len, a_u_data );$  IF (send_error <> SUCCESS) THEN  BEGIN  WRITELN ('A_Release_req error = ',send_error);  test_OK := FALSE; END  ELSE WRITELN ('A_release_req completed. ');  END;   '4':& BEGIN { A_Release_rsp }& WRITELN;  PROMPT ('Input association number: '); READLN (assoc_n);  response := TRUE; reason := 0;' send_error := A_rel_rsp ( assoc_n,resp/PCIF/GSWPCIF/ABMOD5.CRS:::1:100:128 644 0 0 62000 5303667122 35230 /PCIF_GS/GSWPCIF/ABMOD5.CRS:::1:100:128 $'$d dABMOD5 CRS +nQ+nR+nRd2dFST A94200-16522 REV.5000 <870601.1704> PR:UE J:INIT *PRBINC C(J=0):W=W+1 C:C=C+1 C(W=C):J=0 T(J=0): : : : : : : : : : : : : : : : : : : : : : : C:C$=CHR(27) T(J=0): $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A T(J=0): HE for help $N$ :Screen# #C C: N=LEN(M$)-2 E: *INPUT C:J=0 TH:NEXT? A: M:ME&* JN:NEXT1 C:J=1 C:J$="E:"!!U$(3,6) XI:J$ *NEXT1 M:+**!-** JN:NEXT2 C:W1=W C:T$="C:W=((C"!!%B C(T$="C:W=C-"!T$="C:W=C+"):T$=T$!!"1" XI:T$ T(W<=0):You are trying to jump back past the beginning of the module T(W<=0):Type return to continue with the next frame. A(W<=0): C(W<=0):W=W1+1 J(W<=0):RETURN C:J=1 C:J$="E:"!!M$(3,6) XI:J$ *NEXT2 M:EX**!EN** JN:NEXT3 C:F=1 C:J=1 C:J$="E:"!!M$(3,3)!!"EX" XI:J$ *NEXT3 M:CI JN: NEXT4 C:J=1 S:CI C:W=W+1 J:RETURN *NEXT4 M:HE!? JN:NEXT5 T: T: ********************* Commands ********************** T: * * T: * MENU, ME............return to main menu * T: * +n..................go forward n screens * T: * -n..................go back n screens * T: * EXIT, EX, END, EN...exit training package * T: * CI..................run CI * T: * HELP, HE, ??, ?.....help * T: * * T: ***************************************************** C:J=1 TH: Press RETURN to continue with the current screen: A: C:J$="E:"!!M$(3,6) XI:J$ *NEXT5 C:T$=" " C:T$= %B C:N=ASC(T$) T(N<>32): Sorry, I don't recoginze that command. Use ? for help. TH(N<>32): NEXT? J(N<>32): @A *RETURN E: *ANSWER C: B$="[" C: P1=INS(1,R$,B$) C: B$="]" C: P2=INS(P1,R$,B$) C: P1=P1-1 C: M1$= "M:"!!R$(1,P1) C: P1=P1+2 C: P3=P2-P1 C: T1$= R$(P1,P3) C: P4=LEN(R$)-P2 C: P2=P2+1 C: X1$= R$(P2,P4) XI:M1$ TY: : $T1$ CN: X1$="R:" E: *INIT D:T$(80) D:J$(80) D:M$(40) D:N$(40) D:S$(6) D:R$(256) D:M1$(128) D:T1$(128) D:X1$(15) D:C$(1) D:B$(1) D:U$(40) C:U$="J:APMENU" C:M$="J:APPOV" *APMENU T: : : : : : : : : : : : : : : : : : : : : : : C:C$=CHR(27) T: $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A C:W=0 C:C=0 C: J=0 T: : : : ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ : { } : { } : { Running the Application Program Menu } : { ------------------------------------ } : { OVerview } : { COmpiling and linking the program } : { CReating the data file } : { STarting the pcif subsystem } : { INitializing pcif } : { RUnning the program } : { HAlting the pcif monitor } : { EXit } : { } : ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ : : : Please type the name (1st 2 letters will suffice) of the section you TH: would like to study: C: F=1 C: T$=" " A: $T$ T: : : : : M:OV&* JY:APPOV M:CO&* JY:APPCO M:CR&* JY:APPCR M:ST&* JY:APPST M:IN&* JY:APPIN M:RU&* JY:APPRU M:HA&* JY:APPHA M:EX&* JY:APPEX M: CY:F=0 XIY:M$ C:N=ASC(T$) C(N=32):F=0 XI(N=32):M$ TN: ***** : Sorry, but I don't recoginze that section name. : Here's the menu so you can try again! : ***** XIN:U$ PR: *APPOV C:J=0 C:W=0 C:M$="J:APPOV1" *APPOV1 C:N$="Overview" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :Overview :-------- :While Sam is completing configuration, you put the finishing touches :on your application program. Because you want to make a trial run of :your application program, you write the program to address only one :of the bottling lines. : :You write the application program to solve the following problems: : : 1) Count the number of bottles coming off a line per hour : (divided between defective and good bottles). : : 2) Monitor the status of the line at certain times during : production. Record the number of units produced per minute : and the status of the line (i.e. is it up or down?). : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :Remember that besides writing an application program, you need to :write a ladder logic program for the PC. Print ABLADLOG.TXT to :obtain a listing and a description of the ladder logic program used :by Sarsaparilla Soda. : :Because Sam is not a programmer, you decide to give him only an :overview of the application program. : :NOTE: The file, ABSODA.FTN, contains the source code for the application :program described here. You can print it right now if you like. Just :type "CI" after the "NEXT?" prompt below and then execute you print :statement. : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :1. Initialize PCIF : : a) PCIF_OPEN : : b) PCIF_CONNECT : :2. Get needed access keys : : a) PC_GETKEY : :3. Disable other programs from accessing PC : : a) PC_LOCK : :4. Reset to 0 counters and timers in PC : : a) PC_WRITED :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :5. Turn on start bit : :6. Enable other programs to access PC : : a) PC_UNLOCK : :7. Was break entered? : : a) if yes, go to 20 : : b) if no, continue : :8. Status of PC : : a) PC_PCSTAT : : :==================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :9. Is PC running? : : a) if no, report down PC and continue : : b) if yes, continue : :10. Is one minute up? : : a) if no, wait one second and go to 10 : : b) if yes, continue : :11. Get number of good and defective bottles : : a) PC_READD : :12. Increment number of minutes :==================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :13. Compute production figures : :14. Display production statistics for last minute : :15. Is one hour up? : : a) if no, go to 7 : : b) if yes, continue : :16. Reset bottle counters without wait : : a) PC_WRITED : :17. Write production statistics to file : : :==================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :18. Check if PC_WRITED completed : : a) PC_ENQUIRY : :19. Go to 7 : :20. Cancel all pending requests : : a) PC_CANCEL : :21. Release resources : : a) PC_RELKEY : :22. Close program to PCIF : : a) PCIF_CLOSE :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *APPCO C:J=0 C:W=0 C:M$="J:APPCO1" XI(F=0):U$ *APPCO1 C:N$="Compiling and Linking the Application Program" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :Compiling and Linking the Application Program :--------------------------------------------- :After you write the application program, you must compile it. :Enter the following RTE command: : : CI> FTN7X,ABSODA.FTN,-,- : :where "ABSODA.FTN" is the application program source file name. : :Next you must link the PASCAL library and the PCIF library of access :routines to the application program. Enter the RTE link command: : : CI> LINK : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :RTE responds with a message and a link prompt, as shown below: : : LINK Rev. XXXX Use ? for help : LINK: : :At the "LINK:" prompt, enter the three commands shown below: : : LINK: LI,/LIBRARIES/PASCAL.LIB : LINK: LI,/PCIF/RUNTIME/$PCLIB : LINK: RE,ABSODA.REL : :The first two commands link the PASCAL library and PCIF. The last :command includes a relocatable file called "ABSODA.REL". RTE responds :by displaying the application program namr and the names of the :subroutines. : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :Now you execute the commands by entering: : : LINK: EX : :RTE responds with a listing of the PASCAL library, the PCIF library, :and the relocatables. RTE then creates the load map and displays it. : :When link is successfully completed, RTE displays this message: : : Program ABSODA.RUN:::6: 169 ready: 21 pages : Runnable only on an RTE-A system : CI> : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *APPCR C:J=0 C:W=0 C:M$="J:APPCR1" XI(F=0):U$ *APPCR1 C:N$="Creating the Data File" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :Creating the Data File :---------------------- :The application program requires the creation of an additional file. :PCIF writes the requested data to this data file. Use the RTE command :and file namr shown below: : : CI> CR,PROD_STATS_1 : : : : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *APPST C:J=0 C:W=0 C:M$="J:APPST1" XI(F=0):U$ *APPST1 C:N$="Starting the PCIF Subsystem" C:F=0 C((:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :Starting the PCIF Subsystem :--------------------------- :You must start the PCIF subsystem before PCIF can access the :application program. You use RTE commands to assign ID segments to :the various program parts of the PCIF subsystems. : :Enter the RTE commands shown below. After each command, RTE displays :a message: : : CI> RP,/PCIF/RUNTIME/PCOPN CI> RP,/PCIF/RUNTIME/PCIF : RP'ed PCOPN RP'ed PCIF : CI> RP,/PCIF/RUNTIME/PCTMO CI> RP/PCIF/RUNTIME/PCHLT : RP'ed PCTMO RP'ed PCHLT : CI> RP,/PCIF/RUNTIME/PCDMX : RP'ed PCDMX : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *APPIN C:J=0 C:W=0 C:M$="J:APPIN1" XI(F=0):U$ *APPIN1 C:N$="Initializing PCIF" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :Initializing PCIF :----------------- :You initialize PCIF by entering the following command at the RTE-A :prompt: : : CI>XQ,PCIF,/PCIF/RUNTIME/^CSODA : :You start by including the configuration file namr, ^CSODA, and the :path name /pcif/runtime. If there are no errors, press RETURN until :the message is displayed: : : PCIF>running : :Initialization is now complete. : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *APPRU C:J=0 C:W=0 C:M$="J:APPRU1" XI(F=0):U$ *APPRU1 C:N$="Running the Program" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :Running the Program :------------------- :Once the "PCIF>running" message is displayed, you are ready to execute :the application program. : :Enter the application program name after the "CI>" prompt. PCIF then :displays a series of messages, and the program displays the data to :be written to the data file: : : CI> ABSODA : Opened communication with PCIF. : Established communication with PCIF. : Got the necessary access keys. : Locked the PC. : Initialized counters and timers in PC. : Unlocked the PC. : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== : Total Bottles: 30 Defective: 4 Good: 26 : : Total Bottles: 30 Defective: 4 Good: 26 : : Total Bottles: 30 Defective: 4 Good: 26 : : Total Bottles: 30 Defective: 4 Good: 26 : PC on bottling line is down !! : : Total Bottles: 34 Defective: 4 Good: 30 : : Total Bottles: 30 Defective: 4 Good: 26 : :When PCIF/1000 finds PCIF_OPEN, a link between the application program :and the monitor is established. The application program can then issue :the other PC Access Routines. The dialog of requests to the PC and :its associated replies is established. :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :Allow the program to run for approximately 10 minutes. : :If you studied the application program, you may have noted that it :contains an endless loop. To stop the execution of the application :program, enter an RTE break command. Press RETURN to display a "CM>" :prompt and enter the command shown below. The application program :then displays a series of messages telling you the program is :terminated: : : CM> BR : Released access keys. : Cancelled all requests. : Closed PCIF. Terminated program. : CI> : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :You can list the data contained in the data file by entering the RTE :command shown below: : : CI> LI PROD_STATS_1 : 2 1 3 256 -3884 5 0 0 : 60 8 : 60 8 : PC on bottling line is down !! : 64 8 : :The data in the list file, PROD_STATS_1, contains production totals :for every two minutes of run time. This interval is specified in the :application program. : :The actual data in your data file may be different. But this data :will match the displayed data during the running of the application :program. :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *APPHA C:J=0 C:W=0 C:M$="J:APPHA1" XI(F=0):U$ *APPHA1 C:N$="Halting the PCIF Monitor" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :Halting the PCIF Monitor :------------------------ :Once the application program has stopped, you need to halt PCIF. :At the "CI>" prompt, enter the PCIF halt command, PCHLT, and the :security code (you entered the security code in Screen 11 during the :configuration process): : : CI> PCHLT,0 : CI> : PCIF>stopped : :Now that one PC can be monitored by the application program, you can :write the application program to include the other two PCs. Sam :Sharp is very satisfied with the results, and he was able to understand :the process. : :Congratulations! You get a big raise. :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *APPEX C:J=0 C:W=0 C:M$="J:APPEX1" XI(F=0):U$ *APPEX1 C:F=0 C:C=0  2$؀2add DEF namr001 ((namr001 ASC 32,'/PCIF/GM/[PCHGC '((namr002 ASC 32,'/PCIF/GM/[PCPGC '((count DEC 0 ((source DEC 0 ((case_add DEC 0 {10} ((hand_nb DEC 0 ((hand_max DEC 0 ((descr_nam DEC 0 ((PC_descr_dir NOP (( JSB .ENTR {15} (( DEF hand_nb (( LDA @hand_nb (( ADA =D-1 (( MPY =D32 (( ADA namr1_add {20} (( STA source (( LDA =D-32 (( STA count ((loop LDA @source (( STA @descr_nam {25} (( ISZ source (( ISZ descr_nam (( ISZ count (( JMP loop ( LDA =D002 ( STA @hand_max {30} (( JMP @PC_descr_dir ((conf_nb DEC 0 ((P1 DEC 0 ((P2 DEC 0 ((P3 DEC 0 {35} ((P4 DEC 0 ((P5 DEC 0 ((valid DEC 0 ((action DEC 0 ((PC_user NOP {40} (( JSB .ENTR (( DEF conf_nb (( LDA @conf_nb (( ADA =D-1 (( ADA case1_add {45} (( STA case_add (( JMP @case_add ((case1_add DEF case001 (case001 JMP retu case002 JMP retu (retu LDA =D1 {60} (( STA @valid (( STA @action (( ((JMP @PC_user (( END ((( STA @action (( DMAC MACRO  END ¶m  RELOC LOCAL !#!LocalCount equ *  AIF :T:&.LocalMacroUsed <> 'U' &.LocalMacroUsed CSET 'Used last on END' AENDIF  :OP:END ¶m  ENDMAC MACRO ;! CALL &NAME,&P1,&P2,&P3,&P4,&P5,&P6,&P7,&P8,&P9,&P10 G EXT &NAME W&parms ilocal &.pcount-1 i pcal &NAME,&parms,1,0  .CALLPARS &P1,&P2,&P3,&P4,&P5  AIF &.PCOUNT > 6 .CALLPARS &P6,&P7,&P8,&P9,&P10  AENDIF ENDMAC MACRO ! PCALL &NAME,&P1,&P2,&P3,&P4,&P5,&P6,&P7,&P8,&P9,&P10 EXT &NAME &parms ilocal &.pcount-1  pcal &NAME,&parms,3,0 ) .CALLPARS &P1,&P2,&P3,&P4,&P5 8 AIF &.PCOUNT > 6P .CALLPARS &P6,&P7,&P8,&P9,&P10 Z AENDIF ENDMACn MACRO  .CALLPARS &P1,&P2,&P3,&P4,&P5  AIF &P1 <> ''  DEF &P1  AENDIF AIF &P2 <> ''  DEF &P2  AENDIF AIF &P3 <> ''  DEF &P3  AENDIF0zAB /PCIF/GSWPCIF/MAINMENU.CRS:::1:50:128 644 0 0 31000 5303667123 35761 /PCIF_GS/GSWPCIF/MAINMENU.CRS:::1:50:128 %($2 2MAINMENU CRS +nR+nS+nS22jFST 94200-16523 REV.5000 <870604.0752> PR:UE J:INIT *PRBINC C(J=0):W=W+1 C:C=C+1 C(W=C):J=0 T(J=0): : : : : : : : : : : : : : : : : : : : : : : C:C$=CHR(27) T(J=0): $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A T(J=0): HE for help $N$ :Screen# #C C: N=LEN(M$)-2 E: *INPUT C:J=0 TH:NEXT? A: M:ME&* JN:NEXT1 C:J=1 C:J$="E:"!!U$(3,6) XI:J$ *NEXT1 M:+**!-** JN:NEXT2 C:W1=W C:T$="C:W=C"!!%B C(T$="C:W=C-"!T$="C:W=C+"):T$=T$!!"1" XI:T$ T(W<=0):You are trying to jump back past the beginning of the module T(W<=0):Type return to continue with the next frame. A(W<=0): C(W<=0):W=W1+1 J(W<=0):RETURN C:J=1 C:J$="E:"!!M$(3,6) XI:J$ *NEXT2 M:EX**!EN** JN:NEXT3 C:F=1 C:J=1 C:J$="E:"!!M$(3,3)!!"EX" XI:J$ *NEXT3 M:CI JN: NEXT4 C:J=1 S:CI C:W=W+1 J:RETURN *NEXT4 M:HE!? JN:NEXT5 T: T: ***************** HELLO Commands ******************** T: * * T: * Menu................Return to main menu * T: * +n..................go forward n screens * T: * -n..................go back n screens * T: * ex, en, exit, end...End Hello * T: * CI..................Run CI * T: * HE, HELP, ??, ?.....HELP * T: * * T: ***************************************************** C:J=1 TH: Press RETURN to continue with the current screen: A: C:J$="E:"!!M$(3,6) XI:J$ *NEXT5 C:T$=" " C:T$= %B C:N=ASC(T$) T(N<>32): Sorry, I don't recoginze that command. Use ? for help. TH(N<>32): NEXT? J(N<>32): @A *RETURN E: *ANSWER C: B$="[" C: P1=INS(1,R$,B$) C: B$="]" C: P2=INS(P1,R$,B$) C: P1=P1-1 C: M1$= "M:"!!R$(1,P1) C: P1=P1+2 C: P3=P2-P1 C: T1$= R$(P1,P3) C: P4=LEN(R$)-P2 C: P2=P2+1 C: X1$= R$(P2,P4) XI:M1$ TY: : $T1$ CN: X1$="R:" E: *INIT D:T$(80) D:J$(80) D:M$(40) D:N$(40) D:S$(6) D:R$(256) D:M1$(128) D:T1$(128) D:X1$(15) D:C$(1) D:B$(1) D:U$(40) C:U$="J:MAMENU" C:M$="J:MAIAB" *MAMENU T: : : : : : : : : : : : : : : : : : : : : : : C:C$=CHR(27) T: $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A C:W=0 C:C=0 C: J=0 T: PCIF/1000 (A.85.00.2525) HP94200 (c) COPYRIGHT Hewlett-Packard Co. 1985 : : : ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ : { } : { } : { Getting Started with PCIF/1000 } : { ------------------------------ } : { Allen-Bradley (AB) } : { General-Electric (GE) } : { Gould-Modicon (GM) } : { Siemens (SI) } : { Telemecanique (TE) } : { Exit (EX) } : { } : ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ : : : Please type the brand name of the programmable controller connected to TH: your PCIF system. Type only the specified two-letter mnemonic: C: F=1 C: T$=" " A: $T$ T: : : : : M:AB JY:MAIAB M:GE JY:MAIGE M:GM JY:MAIGM M:SI JY:MAISI M:TE JY:MAITE M:EX JY:MAIEX M: CY:F=0 XIY:M$ C:N=ASC(T$) C(N=32):F=0 XI(N=32):M$ TN: ***** : Sorry, but I don't recoginze that section name. : Here's the menu so you can try again! : ***** XIN:U$ PR: *MAIAB C:J=0 C:W=0 C:M$="J:MAIAB1" *MAIAB1 C:N$="Allen-Bradley" C:F=0 C:C=0 S:COURSE,ABMOD1.CRS,1,1 PR: *MAIGE C:J=0 C:W=0 C:M$="J:MAIGE1 " *MAIGE1 C:N$="GENERAL ELECTRIC" C:F=0 C:C=0 S:COURSE,GEMOD1.CRS,1,1 PR: *MAIGM C:J=0 C:W=0 C:M$="J:MAIGM1" XI(F=0):U$ *MAIGM1 C:N$="Gould-Modicon" C:F=0 C:C=0 S:COURSE,GMOD1.CRS,1,1 PR: *MAISI C:J=0 C:W=0 C:M$="J:MAISI1" XI(F=0):U$ *MAISI1 C:N$="Siemens" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== : : : : : : : : : NOT AVAILABLE WITH THIS RELEASE : : : : : : : : (press return to continue) :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *MAITE C:J=0 C:W=0 C:M$="J:MAITE1" XI(F=0):U$ *MAITE1 C:N$="Telemecanique" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== : : : : : : : : : NOT AVAILABLE WITH THIS RELEASE : : : : : : : : (press return to continue) :=============================================================((======== : U(J=0):INPUT XI(J=1):J$ PR: *MAIEX C:J=0 C:W=0 C:M$="J:MAIEX1" XI(F=0):U$ *MAIEX1 C:F=0 E:  GIN  WRITELN ('A_DeRegister error = ', send_error);  test_OK := FALSE; END  ELSE WRITELN ('A_DeRegister request completed. '); END;   'A':& BEGIN { A_Events } && send_error := A_Events ( event_data, event,response, reason, & to_at_len, to_at,  from_at_len, from_at, ! a_context_len, a_context, !! a_u_data_len, a_u_data ); !  WRITELN ('response = ',response); WRITELN ('reason = ',reason); WRITELN ('to_at_len = ', to_at_len); WRITELN ('to_at = ', to_at); WRITELN ('from_at_len = ', from_at_len); WRITELN ('from_at = ', from_at); WRITELN ('a_context_len = ', a_context_len); WRITELN ('a_context = ', a_context); WRITELN ('a_u_data_len = ', a_u_data_len);  WRITELN ('a_u_data = ', a_u_data);   IF ( send_error <> SUCCESS ) THEN WRITELN ( ' A_Events error = ',send_error )  ELSE  WRITELN (' A_Events request completed '); END; { A_Events }   OTHERWISE WRITELN ('Invalid selection.');  END; {CASE u_req}   GOTO 10;  99: END. {MAIN}  ELSE  WRITELN (' A_Events request completed '); END; { A_Events }   EXTERNAL; FUNCTION A_Rel_req $ALIAS 'A_Rel_req'$ (VAR assoc_n: Int16; VAR a_u_data_len: Int16;  VAR a_u_data: charbuf64): Int16; EXTERNAL; FUNCTION A_Rel_rsp $ALIAS 'A_Rel_rsp'$ (VAR assoc_n: Int16; VAR response: Boolean;  VAR a_u_data_len: Int16;  VAR a_u_data: charbuf64): Int16; EXTERNAL; FUNCTION A_Abort $ALIAS 'A_Abort'$ (VAR assoc_n: Int16; VAR reason: integer): Int16; EXTERNAL; FUNCTION A_Transfer $ALIAS 'A_Transfer'$ (VAR assoc_n: Int16; VAR count: Int16;  VAR user_data: data_array_type; VAR eom: boolean): Int16; EXTERNAL;  FUNCTION A_Receive $ALIAS 'A_Receive'$ (VAR assoc_n: Int16; VAR event: Int16; VAR count: Int16;  VAR user_data: data_array_type; VAR no_wait_flag: boolean;  VAR eom: boolean): Int16; EXTERNAL;  FUNCTION A_Events $ALIAS 'A_Events'$ (VAR user_data: data_array_type; VAR event: Int16;  VAR response: boolean;  VAR reason: integer;  VAR to_AT_len: Int16; VAR to_AT: charbuf64; VAR from_AT_len: Int16; VAR from_AT: charbuf64; VAR a_context_len: Int16; VAR a_context: charbuf64; VAR a_u_data_len: Int16;  VAR a_u_data: charbuf64): Int16; EXTERNAL;  $HEAPPARMS OFF$  PROCEDURE Pas_NumericParms $ALIAS 'Pas.NumericParms'$  (VAR p: PARMS); EXTERNAL;   {_________________________________________________________  _  _ This "display_menu" procedure displays a selection menu  _ for the tester.  _  _________________________________________________________}  PROCEDURE display_menu;   BEGIN {display_menu}  WRITELN;& WRITELN (' MAP APPLICATION SIMULATION '); && WRITELN (' __________________________ '); & WRITELN ('CASE Library Functions:'); WRITELN ('----------------------');  WRITELN; WRITELN (' ?: Display Menu');  WRITELN (' 0: Exit Program');  WRITELN (' 1: A_assoc_req'); WRITELN (' 2: A_assoc_rsp'); WRITELN (' 3: A_rel_req'); WRITELN (' 4: A_rel_rsp'); WRITELN (' 5: A_abort'); WRITELN (' 6: A_Transfer');  WRITELN (' 7: A_Init');  WRITELN (' 8: A_END') ;  WRITELN (' 9: A_Receive'); WRITELN (' A: A_Events');  WRITELN (' B: A_Register');  WRITELN (' C: A_DeRegister');  END; {display_menu}  BEGIN {MAIN}   a_context_len := 7; a_context := 'MAPCASE'; a_u_data_len := 0; a_u_data := '';  11: % display_menu; {_ Prompt for request _} %10:  WRITELN;  PROMPT ('Please enter your selection: '); READLN (u_req);  IF u_req = '?' THEN GOTO 11; % IF u_req = '0' THEN GOTO 99; {_ Terminate program _}%  test_ok := TRUE;   CASE u_req OF  '1': BEGIN% { A_Assoc_req }% setstrlen (to_AT_str, 0);  to_AT := ''; WRITELN;  PROMPT ('Input to_AT title: ');  READLN (to_AT_str);  to_AT_len := strlen (to_AT_str); strmove (to_AT_len, to_AT_str, 1, to_AT, 1);  setstrlen (from_AT_str, 0);  from_AT := ''; PROMPT ('Input from_AT title: ');  READLN (from_AT_str);  from_AT_len := strlen (from_AT_str);" strmove (from_AT_len, from_AT_str, 1, from_AT, 1);" $ send_error := A_Assoc_req (assoc_n, to_at_len, to_at, $! from_at_len, from_at,!# a_context_len, a_context,## a_u_data_len, a_u_data); #  IF (send_error <> SUCCESS) THEN  BEGIN ! WRITELN ('A_Assoc_req error = ', send_error);! test_OK := FALSE; END ELSE $ WRITELN ('Received association number = ',assoc_n);$ WRITELN ('A_assoc_req completed. ');  END;   '2':% BEGIN { A_Assoc_rsp }% WRITELN;  PROMPT ('Input association number: '); READLN (assoc_n);  PROMPT ('Do you wish to respond OK ? (Y or N)'); READLN (temp_char); ( IF ( temp_char = 'Y') THEN response := TRUE DDXid%']PAS.GLOBALINFO92560-18232 REV.2601 <111111. 860316.1459 CASE/CASE_TEST.PAS::XNILNEW D 4   &b AA̓INI_GLOBALS INI_GLOBALS 860314.1551 1 0@VCCXd%(]DISPLAY_MENU92560-18232 REV.2601 <111111. 860316.1459 CASE/CASE_TEST.PAS::XNILNEW CgDISPLAY_MENUPP  .EXIT0.LDX/PCIF/GSWPCIF/GEMOD1.CRS:::1:50:128 644 0 0 31000 5303667124 34743 /PCIF_GS/GSWPCIF/GEMOD1.CRS:::1:50:128 #&$2 2GEMOD1 CRS +nS+nT+nT22FST $94200-16530 REV.5000 <870601.1726> PR: UE J:INIT *PRBINC C(J=0):W=W+1 C:C=C+1 C(W=C):J=0 T(J=0): : : : : : : : : : : : : : : : : : : : : : : C:C$=CHR(27) T(J=0): $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A T(J=0): HE for help $N$ :Screen# #C C: N=LEN(M$)-2 E: *INPUT C:J=0 TH:NEXT? A: M:ME&* JN:NEXT1 C:J=1 C:J$="E:"!!U$(3,6) XI:J$ *NEXT1 M:+**!-** JN:NEXT2 C:W1=W C:T$="C:W=C"!!%B C(T$="C:W=C-"!T$="C:W=C+"):T$=T$!!"1" XI:T$ T(W<=0):You are trying to jump back past the beginning of the module T(W<=0):Type return to continue with the next frame. A(W<=0): C(W<=0):W=W1+1 J(W<=0):RETURN C:J=1 C:J$="E:"!!M$(3,6) XI:J$ *NEXT2 M:EX**!EN** JN:NEXT3 C:F=1 C:J=1 C:J$="E:"!!M$(3,3)!!"EX" XI:J$ *NEXT3 M:CI JN: NEXT4 C:J=1 S:CI C:W=W+1 J:RETURN *NEXT4 M:HE!? JN:NEXT5 T: T: ********************* Commands ********************** T: * * T: * MENU, ME............Return to main menu * T: * +n..................go forward n screens * T: * -n..................go back n screens * T: * EXIT, EX, END, EN...Exit training package * T: * CI..................Run CI * T: * HELP, HE, ??, ?.....Help * T: * * T: ***************************************************** C:J=1 TH: Press RETURN to continue with the current screen: A: C:J$="E:"!!M$(3,6) XI:J$ *NEXT5 C:T$=" " C:T$= %B C:N=ASC(T$) T(N<>32): Sorry, I don't recoginze that command. Use ? for help. TH(N<>32): NEXT? J(N<>32): @A *RETURN E: *ANSWER C: B$="[" C: P1=INS(1,R$,B$) C: B$="]" C: P2=INS(P1,R$,B$) C: P1=P1-1 C: M1$= "M:"!!R$(1,P1) C: P1=P1+2 C: P3=P2-P1 C: T1$= R$(P1,P3) C: P4=LEN(R$)-P2 C: P2=P2+1 C: X1$= R$(P2,P4) XI:M1$ TY: : $T1$ CN: X1$="R:" E: *INIT D:T(($(80) D:J$(80) D:M$(40) D:N$(40) D:S$(6) D:R$(256) D:M1$(128) D:T1$(128) D:X1$(15) D:C$(1) D:B$(1) D:U$(40) C:U$="J:INMENU" C:M$="J:INTIN" *INMENU T: : : : : : : : : : : : : : : : : : : : : : : C:C$=CHR(27) T: $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A C:W=0 C:C=0 C: J=0 T: : : : ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ : { } : { } : { Getting Started with PCIF/1000 } : { ------------------------------ } : { INtroduction } : { CAse study } : { PReconfigurator } : { COnfiguration editor } : { APplication program } : { EXit } : { } : ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ : : : Please type the name (1st 2 letters will suffice) of the section you TH: would like to study: C: F=1 C: T$=" " A: $T$ T: : : : : M:IN&* JY:INTIN M:CA&* JY:INTCA M:PR&* JY:INTPR M:CO&* JY:INTCO M:AP&* JY:INTAP M:EX&* JY:INTEX M: CY:F=0 XIY:M$ C:N=ASC(T$) C(N=32):F=0 XI(N=32):M$ TN: ***** : Sorry, but I don't recoginze that section name. : Here's the menu so you can try again! : ***** XIN:U$ PR: *INTIN C:J=0 C:W=0 C:M$="J:INTIN1" *INTIN1 C:N$="Introduction" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :Hello!! : :Welcome to Getting Started with PCIF/1000. : :This training package introduces you to the main features of PCIF/1000, :the Programmable Controller Interface Software for HP 1000 Computer :Systems. : :The package is directed towards systems engineers and application :programmers who are unfamiliar with PCIF/1000. Any one else in your :organization who needs an overview of PCIF/1000 would also benefit :from this training package. : :This introductory section overviews the case study approach used to :present PCIF/1000 and describes how to manuever through the training :package. : (press return) :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :To provide an overview of the features of PCIF/1000, this on-line :training package focuses on one specific case -- a fictious company :purchases PCIF/1000 to solve a particular problem. Because PCIF/1000 :is designed to interface with a variety of Programmable Controllers :and because each company using PCIF/1000 has different needs, a :comprehensive training package which explains each situation would :be needlessly long and repetitive. The best way to provide you with :a quick overview of PCIF/1000 is to study a typical manufacturing :problem and the development of a PCIF/1000 system which solves the :problem. By understanding how the main elements of PCIF/1000 work :in the sample case, you can formulate uses and applications for :PCIF/1000 in your situation. : :As you work through this training package, you may want to note any :questions and concerns about the application of PCIF/1000 for your :own use. : (press return) :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :This training package is divided as follows: : : * Module 1, The Case Study, describes the fictious company and : the problem to be solved. : : * Module 2, The Preconfigurator, allows you to create a : preconfiguration file for your fictious system by stepping : through each of the Preconfigurator screens. : : * Module 3, The Configuration Editor, allows you to create the : configuration file as you step through the Configuration : Editor screens. : : * Module 4, The Application Program, displays the process of : running the application program (written in Fortran), which : controls the overall operation of the PCIF/1000 software at : run-time. : (press return) :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== : :Enter commands after the : : NEXT? : :prompt at the bottom of each screen. : :As already shown, you press the return key to continue on to the next :screen. If you press the return key whenever a menu appears, you will :automatically progress sequentially through the course. : :Press return now to continue on to the next screen. : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :You can also move backwards to previous screens by typing a minus :sign and the number of screens you wish to move back. : :For example, to move backwards 4 screens, type: : : NEXT?-4 : :Similarly, to move forward, type a plus sign and the number of screens :to move forward. For example, : : NEXT?+4 : :Try this now. Type a "-1" and then a "+2" to reach the next screen. : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The following lists the remaining commands: : : : CI...................run RTE-A CI : : EXIT (EX, EN, END)...exit Getting Started with PCIF/1000 : : HELP (HE, ?, or ??)..list the commands : : MENU (ME)............move back to the last menu : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *INTCA C:J=0 C:W=0 C:M$="J:INTCA1" XI(F=0):U$ *INTCA1 C:N$="The Case Study" C:F=0 C:C=0 S:COURSE,GEMOD2.CRS,1,1 PR: *INTPR C:J=0 C:W=0 C:M$="J:INTPR1" XI(F=0):U$ *INTPR1 C:N$="The Preconfigurator" C:F=0 C:C=0 S:COURSE,GEMOD3.CRS,1,1 PR: *INTCO C:J=0 C:W=0 C:M$="J:INTCO1" XI(F=0):U$ *INTCO1 C:N$="The Configuration Editor" C:F=0 C:C=0 S:COURSE,GEMOD4.CRS,1,1 PR: *INTAP C:J=0 C:W=0 C:M$="J:INTAP1" XI(F=0):U$ *INTAP1 C:N$="The Application Program" C:F=0 C:C=0 S:COURSE,GEMOD5.CRS,1,1 PR: *INTEX C:J=0 C:W=0 C:M$="J:INTEX1" XI(F=0):U$ *INTEX1 C:F=0 E:  ( PAS.RUNTIMEERROR 92833-16213,REV.2440,850215 850215.17 ( 10630 1. 37560 14.( PAS.FILEERROR 92833-16213,REV.2440,850215 850215.17 ( 10631 2. 37576 21.( PAS.IOERROR 92833-16213,REV.2440,850215 850215.17 ( 10633 2. 37623 21.( PAS.STRIOERROR 92833-16213,REV.2440,850215 850215.17 ( 10635 2. 37650 14.( PAS.IOWARNING 92833-16213,REV.2440,850215 850215.17 ( 10637 2. 37666 21.( PAS.ERRORCATCHER 92833-16213,REV.2440,850215 850215.17 ( 10641 5. 37713 41.( PAS.ERRORPRINTER 92833-16213,REV.2440,850215 850215.17 ( 10646 614. 37764 1428.$ CP Link address information ( Physical address - transform =$& Physical Xform Module Module relative address )& 37764 37764 0  40137 40273 153 ( PAS.TRACEBACK 92833-16128,REV.2440,850215 850215.17 ( 12014 63. 43037 812." !NFEX 24998-1X572 REV.2540 850927 " 12113 41. 45022 154." ER0.T 24998-1X572 REV.2540 850927 " 12164 2. " TRACE_BACK 24998-1X574 REV.2540 850927 " 12166 48. 45254 INT16);PROCEDURE PARSE_CMD$ALIAS'PARSE_CMD'$( N00ÔVAR CM:CSCMD_CMD_TYPE;VAR C:INT16;VAR LEN:INT16;VAR P:PARM_TYPE;VAR INDEX:INT16);IMPLEMENT0ĤINI_CS_EXT INI_CS_EXT 860330.1718 1 0  iGC_BW LEN_BW @BBXgJd~,%]BUILD_CMD 92560-18238 REV.2601 <111111.1 860330.1718 CASE/INI_CS_EXT.PAS::XNIL B:qBUILD_CMD 77 Vb.DST.EXIT0.LBT.SBT.SDSP INI_CGLBL.3 INI_CS_EXT.1PAS.CDS PAS.STRMOVE 7 ;BUILD_CMD $ ;%BUILD_CMD % ;}BUILD_CMD & \??SBUILD_CMD `p` pHh6h6p HH`hH6 h6p @H`Hh6h6p @@H`h6 h6p @@H`H @\\v\?1/ h `h`    @ H ph6h6p H`h6 h6 p @@H`\3  7Ap"";p@)`@H pp ("J,<  7CM XC 2 ⁰ LEN 3 E INDEX  Q P 'AJ@ٌLBBX%d_,& ]PARSE_CMD 92560-18238 REV.2601 <111111.1 860330.1718 ((CASE/INI_CS_EXT.PAS::XNIL BQVPARSE_CMD 77 Vb.DST.EXIT0.LBT.SBT.SDSP INI_CGLBL.3 INI_CS_EXT.1PAS.CDS PAS.STRMOVE 7 SPARSE_CMD $ SPARSE_CMD % So^PARSE_CMD & ~~ @@SPARSE_CMD  pph6 Hh6Hh6 @Hh6 H`(Uh6 @@HHh6h6 @@Hh6  @ `/PCIF/GSWPCIF/GEMOD2.CRS:::1:100:128 644 0 0 62000 5303667125 35521 /PCIF_GS/GSWPCIF/GEMOD2.CRS:::1:100:128 $'$d LdGEMOD2 CRS +nT+nU+nUd2dFST C94200-16531 REV.5000 <870601.1726> PR:UE J:INIT *PRBINC C(J=0):W=W+1 C:C=C+1 C(W=C):J=0 T(J=0): : : : : : : : : : : : : : : : : : : : : : : C:C$=CHR(27) T(J=0): $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A T(J=0): HE for help $N$ :Screen# #C C: N=LEN(M$)-2 E: *INPUT C:J=0 TH:NEXT? A: M:ME&* JN:NEXT1 C:J=1 C:J$="E:"!!U$(3,6) XI:J$ *NEXT1 M:+**!-** JN:NEXT2 C:W1=W C:T$="C:W=C"!!%B C(T$="C:W=C-"!T$="C:W=C+"):T$=T$!!"1" XI:T$ T(W<=0):You are trying to jump back past the beginning of the module T(W<=0):Type return to continue with the next frame. A(W<=0): C(W<=0):W=W1+1 J(W<=0):RETURN C:J=1 C:J$="E:"!!M$(3,6) XI:J$ *NEXT2 M:EX**!EN** JN:NEXT3 C:F=1 C:J=1 C:J$="E:"!!M$(3,3)!!"EX" XI:J$ *NEXT3 M:CI JN: NEXT4 C:J=1 S:CI C:W=W+1 J:RETURN *NEXT4 M:HE!? JN:NEXT5 T: T: ********************* Commands ********************** T: * * T: * MENU, ME............return to main menu * T: * +n..................go forward n screens * T: * -n..................go back n screens * T: * EXIT, EX, END, EN...exit training package * T: * CI..................run CI * T: * HE, HELP, ??, ?.....help * T: * * T: ***************************************************** C:J=1 TH: Press RETURN to continue with the current screen: A: C:J$="E:"!!M$(3,6) XI:J$ *NEXT5 C:T$=" " C:T$= %B C:N=ASC(T$) T(N<>32): Sorry, I don't recoginze that command. Use ? for help. TH(N<>32): NEXT? J(N<>32): @A *RETURN E: *ANSWER C: B$="[" C: P1=INS(1,R$,B$) C: B$="]" C: P2=INS(P1,R$,B$) C: P1=P1-1 C: M1$= "M:"!!R$(1,P1) C: P1=P1+2 C: P3=P2-P1 C: T1$= R$(P1,P3) C: P4=LEN(R$)-P2 C: P2=P2+1 C: X1$= R$(P2,P4) XI:M1$ TY: : $T1$ CN: X1$="R:" E: *INIT D:T$(80) D:J$(80) D:M$(40) D:N$(40) D:S$(6) D:R$(256) D:M1$(128) D:T1$(128) D:X1$(15) D:C$(1) D:B$(1) D:U$(40) C:U$="J:CAMENU" C:M$="J:CASPR" *CAMENU T: : : : : : : : : : : : : : : : : : : : : : : C:C$=CHR(27) T: $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A C:W=0 C:C=0 C: J=0 T: : : : ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ : { } : { } : { Case Study Menu } : { ------------------------ } : { PRoblem } : { SOlution } : { EXit } : { } : ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ : : : Please type the name (1st 2 letters will suffice) of the section you TH: would like to study: C: F=1 C: T$=" " A: $T$ T: : : : : M:PR&* JY:CASPR M:SO&* JY:CASSO M:EX&* JY:CASEX M: CY:F=0 XIY:M$ C:N=ASC(T$) C(N=32):F=0 XI(N=32):M$ TN: ***** : Sorry, but I don't recoginze that section name. : Here's the menu so you can try again! : ***** XIN:U$ PR: *CASPR C:J=0 C:W=0 C:M$="J:CASPR1" *CASPR1 C:N$="The Problem" C:F=0 C:C=0 PR: D:N4$(20) U:PRBINC J(W<>C):@P T:==================================================================== :The Problem :----------- :The typical manufacturing problem studied here involves a fictious :soft drink manufacturer named Sarsaparilla Soda, Inc. : :The new Systems Engineer has just arrived at the plant to study their :current production problem. : :NOTE:The configuration of your PCIF/1000 system is brand dependent. :For purposes of illustration only, Sarsaparilla Soda, Inc. is using :General Electric Series Six Model 600. :==================================================================== : U(J=0):INPUT XI(J=1):J$ PR: D:N4$(20) U:PRBINC J(W<>C):@P D:E$(1) C:E$=CHR(27) D:B$(4) C:B$=E$!!"&dA" D:O$(4) C:O$=E$!!"&d@" T:==================================================================== : ________________________________________________ : : | S A R S A P A R I L L A | : | | : | S O D A $B$ _$O$ | : | $B$ | |$O$ | : | $B$ | |$O$ | : | $B$ / \$O$ | : | CANNED AND BOTTLED $B$ / \$O$ | : | SOFT DRINKS $B$ | _ |$O$ | : | $B$ | |s| |$O$ | : | $B$ | |s| |$O$ | : | $B$ |_____|$O$ | : |________________________________________________| : : : :==================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== : : : : : : Welcome to Sarsaparilla Soda! : TH: Would you please sign in? A: C:N4$=%B T: : : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :Congratulations, $N4$ , on becoming our new Systems Engineer. : :Our medium-sized company manufactures and bottles soft drinks. : :We have three production lines, two producing canned soda, and one :producing bottled soda. Each line is controlled by an autonomous :programmable controller (PC). : :Your production manager, Sam Sharp, is having difficulty obtaining :accurate information on the production of each line. For example, :he does not know how many bottles or cans are coming off each line :per hour. He also needs to know the status of each line at certain :times during production. : :Thank you for visiting us. Sam will be sending you a memo detailing :our problem. :==================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== : Sarsaparilla Soda, Inc. : :MEMO : :TO: $N4$ : :FROM: Sam Sharp : :RE: Automation of Canning and Bottling Lines : :We are very pleased with your performance to date. In the short time :you have been with the company, you have automated the production lines :with Programmbale Controllers. The automation system, however, is :lacking in two important respects: : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== : * Hourly production totals for each line. If possible, I would : like this data stored in a file. The MIS group could use this : data for their reporting programs. : : * Continuous monitoring of the status of the lines, including: : : 1) Whether each line is up or down. : : 2) Number of units each line is producing per minute. : :I am confident that you can meet these needs in the near future. After :all, you convinced me to support your effort to purchase all that fancy :equipment from Hewlett-Packard. : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *CASSO C:J=0 C:W=0 C:M$="J:CASSO1" XI(F=0):U$ *CASSO1 C:N$="The Solution" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :The Solution :------------ :Being a competent Systems Engineer, you make a few phone calls. You :set up meetings with several salespersons. Within a week, you have :a solution. Your solution is sent to the Production Manager in the :following memo. : : : : : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== : Sarsaparilla Soda, Inc. : :MEMO : :TO: Sam Sharp, Production Manager : :FROM: $N4$ : :RE: Automation of Canning and Bottling Lines : :I have carefully considered your needs for more accurate and timely :data about the production lines. I think a solution can be implemented :quickly. I talked with my PC salesperson, who informs me that we can :connect our PCs with what she calls a "GEnet network". :(( :According to my Hewlett-Packard salesperson, I can hook up this "GEnet :network" to our HP A700 computer with an HP product called PCIF/1000. :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :By using an application program which my department will write, we :can extract data from a given PC and store it in a file on the HP :A700. This file is then available for networking to the MIS system :on a regular basis. : :Since I will need your support to purchase PCIF/1000, you should know :a little about it. PCIF/1000 is a software interface which allows the :connection of our Programmable Controllers (or PCs of different :manufacturers and types) to the HP A700 computer (or any HP 1000 A-series :computer). Program access is provided through PC Access Routines, which :use the operating system of the HP 1000. : :PCIF/1000 allows easy supervision of our PCs to provide us with the :information we want. It is able to provide data and status information :through the use of an application program. PCIF/1000 also allows us :to write data and programs to the PCs connected to our system. The :application program does not have to be changed each time we change :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :the number or types of PCs in the line. : :We connect our PCs to the HP 1000 with the HP 12041B multiplexer :interface card. Before an application program is run, an operator :must create a preconfiguration file (which defines the PC manufacturer) :and a configuration file (which provides specific details about the :connected PCs). If we ever change the type or brand of PC, we can :easily update the files without having to rewrite the application :program. : :Run on the HP 1000, the application program uses the configuration file :to identify the target PCs. The PCIF/1000 monitor program supervises :any information exchange between the application program and the PCs. : :If we order the required equipment from Hewlett-Packard right away, I :hope to have the project on-line in time for the summer rush. I trust :this will be satisfactory. :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :Please let me know if you have any questions. : :On the next page, I have outlined the necessary steps to implement :PCIF/1000. : : : : : : : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== : Sarsaparilla Soda, Inc. : PCIC/1000 Implementation Plan : :A. Order the Equipment : : 1. Order the equipment -- The hardware and software necessary to set : up a system. : : a. Hardware : : 1) 12041B Mux Card : : 2) CCM Module (GE communications modules) : : 3) Cables (ref. manufacturer documentation) : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== : b. Software : : 1) PCIF/1000 : : a) Menu-driven Configuration Program : : b) Library of High-level PC Access Routines : : c) Monitor Program (which controls the overall operation of : the PCIF/1000 Software at run-time) : : d) A Set of Handler Programs (which interface between : PCIF/1000 and the PCs) : :B. Install and Test the Communication Cables : : 1. PC Manufacturer Instructions :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :C. Install and Test the 12041B Mux Card : : 1. One type of Connection Method is Available : : a. Data Communication Standard RS232C : :D. Install PCIF/1000 on the HP A700 : : 1. RTE-A Operating System : : 2. Macro Assembler Program (resident in operating system) : : 3. FORTRAN 77 or PASCAL language : : 4. HP Block Mode Terminals (most are supported) : : 5. HP 12041B Multiplexer :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :E. Configure PCIF/1000 : : 1. Preconfigurator Program : : a. Define the Manufacturer(s) of the PCs installed : : 2. The Configuration Editor : : a. Define Specific Details on the PCs defined in the Preconfigurator : program : : b. Attach a Logical PC address to each installed PC : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :F. Design the Monitoring Application Program : : 1. Flow Chart Program : : 2. Design Files : :G. Code the Application Program : :H. Finalize the System : : 1. Test the System : : 2. Train Production : : 3. Bring the System On-line : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :Your Production Manager is delighted with your solution. With his :help, you are able to purchase the necessary hardware and software from :HP. Since your HP A700 computer meets all the requirements of PCIF/1000, :you immediately install the system when the equipment arrives. : :The Sarsaparilla Soda manufacturing network is shown on the next page. : : : : : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== : Production lines : ______ --------------- D : 1 |______|<---------->| GE SERIES SIX |<-------------------- A : |_______________| | T R : ______ --------------- | A S : 2 |______|<---------->| GE SERIES SIX |<-----------| | : |_______________| | | H 2 : ______ --------------- | | I 3 : 3 |______|<---------->| GE SERIES SIX |<--| | | G 2 : |_______________| | | | H : | | | W : |--------------------------------------| | | A : | |-------------------------------------------| | Y : | | |-------------------------------------------------| : _|___|__|_ PRINTER : |_12041B_| |--------> TERMINALS : | A-700 |------| :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *CASEX C:J=0 C:W=0 C:M$="J:CASEX1" XI(F=0):U$ *CASEX1 C:F=0 E:  rand name of the programmable controller connected to CTH: your PCIF system. Type only the specified two-letter mnemonic: C: F=1 C: T$=" " A: $T$T: : : : :M:ABJY:MAIABM:GEJY:MAIGEM:GMJY:MAIGMM:SIJY:MAISIM:TEJY:MAITEM:EXJY:MAIEX:R: *******************************************************:R: * If the user enters spaces and a carriage return, *:R: * go on to the next section, which is in M$ *:R: *******************************************************M:CY:F=0XIY:M$;R: ******************************************************** ;R: * If the user enters a null string (CR) we just go on * ;R: * to the first section (getting started) * ;R: * * ;R: * Otherwise, the user has entered an invalid section * ;R: * name, so back to the menu we go! * ;R: ******************************************************** R: C:N=ASC(T$) C(N=32):F=0 XI(N=32):M$ TN: ***** 5 : Sorry, but I don't recoginze that section name. + : Here's the menu so you can try again!  : ***** XIN:U$  R:HR:**********************************************************************1R: Beginning of Allen-Bradley section HR:**********************************************************************R:PR: *MAIABC:J=0 C:W=0 C:M$="J:MAIAB1" *MAIAB1 C:N$="Allen-Bradley"C:F=0 C:C=0 S:COURSE,ABMOD1.CRS,1,1  LR: *************************************************************************4R: BEGINNING OF GENERAL ELECTRIC SECTIONLR: *************************************************************************R:R:PR: *MAIGEC:J=0 C:W=0 C:M$="J:MAIGE " *MAIGE1 C:N$="GENERAL ELECTRIC" C:F=0 C:C=0 S:COURSE,GEMOD1.CRS,1,1  R:HR:**********************************************************************1R: Beginning of Gould-Modicon section HR:**********************************************************************R:PR: *MAIGMC:J=0 C:W=0 C:M$="J:MAIGM1" XI(F=0):U$*MAIGM1 C:N$="Gould-Modicon"C:F=0 C:C=0 S:COURSE,GMOD1.CRS,1,1  R:HR:**********************************************************************+R: (( Beginning of Siemens section HR:**********************************************************************R:PR: *MAISIC:J=0 C:W=0 C:M$="J:MAISI1" XI(F=0):U$*MAISI1 C:N$="Siemens"C:F=0 C:C=0 R:S:COURSE,SIMOD1.CRS,1,1  PR: U:PRBINC J(W<>C):@PFT:==================================================================== : : : : : : : :7 : NOT AVAILABLE WITH THIS RELEASE  : : : : : : :G : (press return to continue) G :=====================================================================  : U(J=0):INPUT XI(J=1):J$ R:HR:**********************************************************************1R: Beginning of Telemecanique section HR:**********************************************************************R:PR: *MAITEC:J=0 C:W=0 C:M$="J:MAITE1" XI(F=0):U$*MAITE1 C:N$="Telemecanique"C:F=0 C:C=0 R:S:COURSE,TEMOD1.CRS,1,1  PR: U:PRBINC J(W<>C):@PFT:==================================================================== : : : : : : : :7 : NOT AVAILABLE WITH THIS RELEASE  : : : : : : :G : (press return to continue) G :=====================================================================  : U(J=0):INPUT XI(J=1):J$    R:HR:**********************************************************************(R: Beginning of EXIT sectionHR:**********************************************************************R:PR: *MAIEXC:J=0 C:W=0 C:M$="J:MAIEX1" XI(F=0):U$*MAIEX1 C:F=0 E:run from?R: HELLO. It also increments where-we-want-to-be (W) since 1R: we want to end : : : : : : : : : : : : : : : : : : C:C$=CHR(27)CT(J=0): $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A > : $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A+T(J=0): HE for help $N$ :Screen# #C C: N=LEN(M$)-2E:.R: *****************************************R: end of PRBINC.R: ****************************************R:*INPUTIR:*********************************************************************** (R: This is general input parsing routineIR:*********************************************************************** C:J=0 TH:NEXT?A:AR:*********************MENU COMMAND****************************** @R: This command sends the user back to the main menu. The jump8R: flag is set, and the command J:MENU is placed in J$."R: J$ will be XI'd by the caller.AR:*************************************************************** R:M:ME&*JN:NEXT1C:J=1 C:J$="E:"!!U$(3,6)XI:J$ *NEXT1HR:******************** +n or -n command ********************************DR: This section allows the user to jump backwards or forwards to anyDR: screen within the current module. To get here the user has typedDR: @+n or @-n, where n is a the number of screens to go back (-n) orER: forward (+n). An error occurs if the user tries to go back beyond BR: the beginning of the current module. If the user tries to jumpFR: beyond the end of the current module, he is sent to the next screen:R: of the next sequential module. In the following routine=R: we want to change the Where-we-want-to-be flag(w) based on @R: what the user typed in, which will be -,+, and a number, i.e.BR: -4 or +3. The first statements build a command something like:DR: "W=C-3". This is executed, and then the jump flag is set to sendDR: the program back to the beginning of the module. J$ will containR: command "J:module_name"IR:*********************************************************************** M:+**!-** JN:NEXT2C:W1=WC:T$="C:W=C"!!%B%C(T$="C:W=C-"!T$="C:W=C+"):T$=T$!!"1" XI:T$ DT(W<=0):You are trying to jump back past the beginning of the module4T(W<=0):Type return to continue with the next frame.A(W<=0):C(W<=0):W=W1+1J(W<=0):RETURNC:J=1 C:J$="E:"!!M$(3,6)XI:J$ IR:******************* End command**************************************** AR: the end command just sets the jump flag and places the command R: "J:exitname" into J$ AR: exitname is built from the first 3 letters of the section nr : : : : : : : : : : : : : C:C$=CHR(27)>T: $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A> : $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ AC:W=0 C:C=0 C: J=0JT: PCIF/1000 (A.85.00.2525) HP94200 (c) COPYRIGHT Hewlett-Packard Co. 1985 : :C : ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ C : { } C : { } C : { Getting Started with PCIF/1000 } C : { ------------------------------ } C : { Allen-Bradley (AB) } C : { General-Electric (GE) } C : { Gould-Modicon (GM) } C : { Siemens (SI) } C : { Telemecanique (TE) } C : { Exit (EX) } C : { } C : ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  : :I : Please type the brand name of the programmable controller connected to CTH: your PCIF system. Type only the specified two-letter mnemonic: C: F=1 C: T$=" " A: $T$T: : : : :M:ABJY:MAIABM:GEJY:MAIGEM:GMJY:MAIGMM:SIJY:MAISIM:TEJY:MAITEM:EXJY:MAIEX:R: *******************************************************:R: * If the user enters spaces and a carriage return, *:R: * go on to the next section, which is in M$ *:R: *******************************************************M:/PCIF/GSWPCIF/GEMOD3.CRS:::1:100:128 644 0 0 62000 5303667126 35443 /PCIF_GS/GSWPCIF/GEMOD3.CRS:::1:100:128 $'$d dGEMOD3 CRS +nU+nV+nVd2d8FST >94200-16532 REV.5000 <870601.1727> PR:UE J:INIT *PRBINC C(J=0):W=W+1 C:C=C+1 C(W=C):J=0 T(J=0): : : : : : : : : : : : : : : : : : : : : : : C:C$=CHR(27) T(J=0): $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A T(J=0): HE for help $N$ :Screen# #C C: N=LEN(M$)-2 E: *INPUT C:J=0 TH:NEXT? A: M:ME&* JN:NEXT1 C:J=1 C:J$="E:"!!U$(3,6) XI:J$ *NEXT1 M:+**!-** JN:NEXT2 C:W1=W C:T$="C:W=C"!!%B C(T$="C:W=C-"!T$="C:W=C+"):T$=T$!!"1" XI:T$ T(W<=0):You are trying to jump back past the beginning of the module T(W<=0):Type return to continue with the next frame. A(W<=0): C(W<=0):W=W1+1 J(W<=0):RETURN C:J=1 C:J$="E:"!!M$(3,6) XI:J$ *NEXT2 M:EX**!EN** JN:NEXT3 C:F=1 C:J=1 C:J$="E:"!!M$(3,3)!!"EX" XI:J$ *NEXT3 M:CI JN: NEXT4 C:J=1 S:CI C:W=W+1 J:RETURN *NEXT4 M:HE!? JN:NEXT5 T: T: ********************* Commands ********************** T: * * T: * MENU................return to main menu * T: * +n..................go forward n screens * T: * -n..................go back n screens * T: * EXIT, EX, END, EN...exit training package * T: * CI..................run CI * T: * HELP, HE, ??, ?.....help * T: * * T: ***************************************************** C:J=1 TH: Press RETURN to continue with the current screen: A: C:J$="E:"!!M$(3,6) XI:J$ *NEXT5 C:T$=" " C:T$= %B C:N=ASC(T$) T(N<>32): Sorry, I don't recoginze that command. Use ? for help. TH(N<>32): NEXT? J(N<>32): @A *RETURN E: *ANSWER C: B$="[" C: P1=INS(1,R$,B$) C: B$="]" C: P2=INS(P1,R$,B$) C: P1=P1-1 C: M1$= "M:"!!R$(1,P1) C: P1=P1+2 C: P3=P2-P1 C: T1$= R$(P1,P3) C: P4=LEN(R$)-P2 C: P2=P2+1 C: X1$= R$(P2,P4) XI:M1$ TY: : $T1$ CN: X1$="R:" E: *INIT D:T$(80) D:J$(80) D:M$(40) D:N$(40) D:S$(6) D:R$(256) D:M1$(128) D:T1$(128) D:X1$(15) D:C$(1) D:B$(1) D:U$(40) D:E$(1) D:I$(4) D:O$(4) C:E$=CHR(27) C:I$=E$!!"&dB" C:O$=E$!!"&d@" C:U$="J:PRMENU" C:M$="J:PREST" *PRMENU T: : : : : : : : : : : : : : : : : : : : : : : C:C$=CHR(27) T: $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A C:W=0 C:C=0 C: J=0 T: : : : ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ : { } : { } : { Preconfigurator Menu } : { ------------------------ } : { STarting preconfiguration } : { SOftkeys } : { DEscriptor file loop } : { COmpletion information } : { ENding preconfiguration } : { EXit } : { } : ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ : : : Please type the name (1st 2 letters will suffice) of the section you TH: would like to study: C: F=1 C: T$=" " A: $T$ T: : : : : M:ST&* JY:PREST M:SO&* JY:PRESO M:((DE&* JY:PREDE M:CO&* JY:PRECO M:EN&* JY:PREEN M:EX&* JY:PREEX M: CY:F=0 XIY:M$ C:N=ASC(T$) C(N=32):F=0 XI(N=32):M$ TN: ***** : Sorry, but I don't recoginze that section name. : Here's the menu so you can try again! : ***** XIN:U$ PR: *PREST C:J=0 C:W=0 C:M$="J:PREST1" *PREST1 C:N$="Starting the Preconfigurator" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :Starting Preconfiguration :------------------------- :All your equipment has arrived; the GEnet Network is in place and :functioning; and PCIF/1000 is installed. (For detailed information :on installation, see the Installation Overview chapter and the :Installation chapter in the PCIF/1000 Reference Manual.) You are now :ready to configure the PCIF/1000 system. : :Configuration consists of two menu-driven programs: the Preconfigurator :FOLLOWED by the Configuration Editor. Each program uses a sequence of :formatted screens displayed and managed by an internal program (F/1000). : :Before starting Preconfiguration, you invite Sam Sharp to attend the :session. During the session, you guide Sam through the Preconfigurator. : :This section steps through the Preconfiguration screens. Continue :on now and follow the instructions as if you were Sam. :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :Preconfiguration involves three screens which allow you to specify :the type of PC being used. PCIF stores this information in the :Preconfigurator file and uses it to create the Configuration Editor :and the Run-time Monitor. : :The name of the Preconfigurator program is PCGEN. It should be :in the subdirectory /pcif/pcifgen/ . You may locate the file by :entering the following CI command: : : CI> DL /PCIF/PCIFGEN/ : :To experiment with this, enter CI (by typing "CI" after the "NEXT?" :prompt) and type in the command. RTE responds by displaying the :list of files in the subdirectory PCIFGEN. : : NOTE: The file you are looking for is a type 6 runtime file and there- : for has a .run discriptor added to it's name. :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :To start the Preconfigurator, enter the following CI commands: : : CI> wd /pcif/pcifgen/ : : CI> PCGEN : :NOTE: Do not enter CI and try this command yet. You will want to :finish going through this training package before you actually run :any part of PCIF. : :The next section describes the softkeys available on the :Preconfiguration screens. Because this training package does not :actually run PCIF, these softkeys do not function within the training :package. : :However, the ENTER key does function. You must press the ENTER key to :continue after a Preconfiguration screen has been displayed. :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *PRESO C:J=0 C:W=0 C:M$="J:PRESO1" XI(F=0):U$ *PRESO1 C:N$="The Preconfigurator Softkeys" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :Preconfigurator Softkeys :------------------------ : ---- : | F1 | - EXIT; displays Screen 3 which completes Preconfiguration : ---- NOTE: If you exit before you validate the information about : your Highway and PCs, Preconfiguration will be incomplete. : ---- : | F5 | - HELP; displays a one-screen Help panel about the current : ---- screen : : ---- : | F7 | - REFRESH; refreshes previously entered information : ---- : ---- : | F8 | - ABORT PCGEN; aborts the PCGEN program : ---- NOTE: To prevent accidental abort, the Preconfigurator : requires you to press the F8 key again for confirmation. :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *PREDE C:J=0 C:W=0 C:M$="J:PREDE1" XI(F=0):U$ *PREDE1 C:N$="Descriptor File Loop" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :Descriptor File Loop :-------------------- :The first screen for the Preconfigurator asks for the Descriptor file :namr. (NOTE: PCIF was written using fmgr naming conventions) : :The term namr is an abbreviation for name record and refers to :the name of the file and its attributes (e.g. security code and disc :location). The Descriptor file contains important information about :the PC or Highway to be configured. : :Each PC manufacturer has a different PC Descriptor file namr and Highway :Descriptor file namr. The Descriptor file namrs for General Electric :PCs are listed below: : non-CDS CDS : ------- ------ : Highway Descriptor file namr .......... [PCH6 [PCH6C : : PC Descriptor file namr ............... [PCP6 [PCP6C :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :Screen 1 of the Preconfigurator (coming up next!!) contains one :required field: : : : Descriptor file namr: $I$ $O$ : : :In this field, type the name of the Highway descriptor file and your :own cartridge reference for the file. For example: : : : Descriptor file namr: $I$ /pcif/ge/[PCH6C $O$ : :NOTE: Since this training package does not actually run the :Preconfigurator, the function keys do not operate as they would :during real PCIF Preconfiguration. Only the ENTER key operates :normally. :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S: SCRNS,PSCR01.TXT U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :After you press the ENTER key, the Preconfigurator displays Screen 2. :This screen contains a number of display-only fields which describe :the information included in the Highway Descriptor file entered in Screen 1. : :You should check each of the display-only fields to make sure that the :information is correct. The PC brand name, the Handler file namr, and :the partial configurator file namr must be correct. The PC Highway :you are using must also be supported. For Sarsaparilla Soda, assume :that the information is correct. : :Screen 2 has two required fields: : : Do you want to validate ? Yes: $I$ X$O$ No: $I$ $O$ : :Since the information on the screen is correct, type an "X" in the "Yes" :field. Be sure to leave the "No" field blank. : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S: SCRNS,PSCR02.TXT U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :Pressing the ENTER key returns you to Screen 1. At this time the :Preconfigurator stores the information displayed on Screen 2 in the MACRO :and LINK programs for later use. : :The Preconfigurator loops between Screen 1 and Screen 2 until all PC and :Highway file namrs have been entered (Screen 1) and validated (Screen 2). :When this file namr entering is complete, press F1 (EXIT) to go to :Screen 3. : :This time you must enter the PC Descriptor file namr into the only :available field on Screen 1. For example: : : : Descriptor file namr: $I$ /PCIF/GE/[PCP6C $O$ : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S: SCRNS,PSCR01.TXT U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :Pressing the ENTER key returns you to Screen 2 once again. : :This time Screen 2 displays important information included in the PC :Descriptor file, [PCP6C . Again check the information for accuracy and, :assuming that it is all correct, type an "X" in the "Yes" field as :shown below: : : Do you want to validate ? Yes: $I$ X$O$ No: $I$ $O$ : : : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S: SCRNS,PSCR02.TXT U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :If you needed to enter additional Descriptor file namrs, you would now :return to Screen 1 again by pressing the ENTER key. However, since :you have already specified the Highway Descriptor file namr and the :PC Descriptor file namr, you want to exit the Preconfigurator loop. : :To exit the loop, press the F1 key (EXIT) to display Screen 3. : : : : : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *PRECO C:J=0 C:W=0 C:M$="J:PRECO1" XI(F=0):U$ *PRECO1 C:N$="Completion Information" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :Completion Information :---------------------- :Screen 3 allows you to complete the Preconfigurator. The :fields require you to enter the following information: : : * The first field inquires if you have completed configuration : the default has a "X" in the yes box. : : If you wish to change this or any default merely bring : the cursor into the box and hit the space bar on your : terminal. :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== : * The second field requires you to reconfirm weather you are : (( linking to a RTE system that uses Code and Data sepration. : Our system is cds so mark "X" in yes. : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== : * The last field, which asks whether you want to add another : descriptor, applies only if you are continuing Preconfiguration: : : Adding other descriptor: $I$ $O$ : : If you were continuing, you would enter an "X", but since you : are not, enter nothing. : : NOTE: You may move from field to field by pressing the TAB key : or the SHIFT key and the TAB key. : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S: SCRNS,PSCR03.TXT U(J=0):INPUT XI(J=1):J$ PR: *PREEN C:J=0 C:W=0 C:M$="J:PREEN1" XI(F=0):U$ *PREEN1 C:N$="Ending Preconfiguration" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :Ending Preconfiguration :----------------------- :To end Preconfiguration, press the ENTER key to clear Screen #3. : :At this time, the Preconfigurator generates the Configuration Editor and :the Run-time Monitor using an assembler program, called MACRO, and a loader :program, called LINK. PCIF/1000 displays the progress of this generation :on the screen. : :If no error messages are displayed and the CI> prompt appears, then :Preconfiguration is complete. : :The next step is the completion of the Configuration file using the :Configuration Editor. The next module guides you through this process. : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *PREEX C:J=0 C:W=0 C:M$="J:PREEX1" XI(F=0):U$ *PREEX1 C:F=0 C:C=0 E:  n Editor and :the Run-time Monitor using an assembler program, called MACRO, and a loader :program, called LINK. PCIF/1000 displays the progress of this generation :on the screen. : :If no error messages are displayed and the CI> prompt appears, then :Preconfiguration is complete. : :The next step is the completion of the Configuration file using the :Configuration Editor. The next module guides you through this process. : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *PREEX C:J=0 C:W=0 C:M$="J:PREEX1" XI(F=0):U$ *PREEX1 C:F=0 C:C=0 E:  AMILY$O$ Number: $U1$ 1$O$  : :The first required field:  :& : Highway number: $I$ 0$O$ :H :allows you to specify the highway number for the PC being added. Type :"1" for the Highway number.  : : :G :=====================================================================  : U(J=0):INPUT XI(J=1):J$ R: Screen #9PR: U:PRBINC J(W<>C):@PFT:==================================================================== :The next field:  :P2-P1 : : : ' : PC Station Number: $I$ $O$  :E :is only displayed when the PC is to be connected using a multipoint G :link. For more information, consult the Configuration chapter of the > :PCIF/1000 Reference Manual and your handler-specific manual. :( :Enter "11" for this PC station number. :A :NOTE: Always enter the PC Station Number in decimal, NOT octal.  : : : : : :G :=====================================================================  : U(J=0):INPUT XI(J=1):J$ R: Screen #10 PR: U:PRBINC J(W<>C):@PFT:==================================================================== :The following two fields:  :I : Time out: $I$ 30$O$ Time out unit: $I$ 2$O$ 1: minute 9 : 2: second  :F :together define the timeout value for the PC. Timeout is the amountE :of time that the PCIF software waits for an answer from a PC before 5 :sending an error message to the user's application.  :. :In this case, select the defaults, 30 and 2. :I :NOTE: The "Time out" and "Time out unit" fields above are not required. F :If, however, you enter a time out value, you must specify a time out :unit.  : : :G :=====================================================================  : U(J=0):INPUT XI(J=1):J$ R: Screen #11 PR: U:PRBINC J(W<>C):@PFT:==================================================================== :The next field on Screen 9:  :# : Priority: $I$ 50$O$  :< :defines the priority of the associated handler for the PC. :E :This field requires an integer between 1 and 99. 99 is the highest H :priority while 1 is the lowest priority. If two requests are receivedE :simultaneously, the one with the highest priority is handled first.  :K :The priority number is only significant in comparison with the priorities :of the other PCs and highways. :5 :For PC number 1, accept the default priority of 50.  : : :G :=====================================================================  : U(J=0):INPUT XI(J=1):J$ R: Screen #12 PR: U:PRBINC J(W<>C):@PFT:====================================================================F :The next five fields on Screen 9 prompt you for certain capabilitiesE :of the PC being configured. You select any capability by typing an G :"X" in the adjoining field. Any capability fields left blank will be  :set to "off".  :E :For Sarsaparilla Soda, select the appropriate four capabilities, as  :shown below: :7 : Write data allowed: $U2$ X$O$ 7 : Write program allowed: $U2$ X$O$ 7 : Transparent functions allowed: $U2$ X$O$ 7 : Unsolicited PC requests allowed: $U2$ X$O$ 7 : Start/stop allowed: $U2$ $O$  :G :NOTE: You should consult the appropriate PC brand reference manual to G :check that a selected capability is supported. For more information, C :see the Configuration chapter in your PCIF/1000 Reference Manual. G :=====================================================================  : U(J=0):INPUT XI(J=1):J$ R: Screen #13 PR: U:PRBINC J(W<>C):@PS: SCRNS,CSCR09.TXT,1 U(J=0):INPUT XI(J=1):J$ R: Screen #14 PR: U:PRBINC J(W<>C):@PFT:====================================================================K :After you press ENTER, the Configuration Editor validates the information 3 :entered on Screen 9 and then redisplays Screen 7.  :E :Screen 7 allows you to configure additional PCs. You must continue E :to return to this screen until all the PCs have been configured for > :Highway number 1. This is called the PC Configuration Loop. : :The first field on Screen 7: :. : PC Logical Identifier: $I$ 2$O$ :D :shows that the next PC to be selected is PC number 2. Accept this6 :value and the "X" displayed in the Add/modify field. : :G :=====================================================================  : U(J=0):INPUT XI(J=1):J$ R: Screen #15 PR: U:PRBINC J(W<>C):@PS:SCRNS,CSCR07.TXT,2 U(J=0):INPUT XI(J=1):J$ R: Screen #16 PR: U:PRBINC J(W<>C):@PFT:====================================================================F :After you press ENTER, the Configuration Editor redisplays Screen 8, :the PC Type Selection field. :F :The PC type for PC number 2 is the same as the PC type for number 1.+ :Type an "X" in the field, as shown below:  : : PLC-2.FAMILY $I$ X$O$ : : : : : : : : : :G :=====================================================================  : U(J=0):INPUT XI(J=1):J$ R: Screen #17 PR: U:PRBINC J(W<>C):@PS: SCRNS,CSCR08.TXT U(J=0):INPUT XI(J=1):J$ R: Screen #18 PR: U:PRBINC J(W<>C):@PFT:====================================================================L :Pressing ENTER moves you to Screen 9, where you complete the configuration :of PC number 2.  :B :Some of the information you enter here is different for this PC.C :Notice that the PC type is the same, but the number is different.  :G :Since Sarsaparilla Soda only has only one highway, the highway number E :is the same for all three PCs. Make sure that the "Highway number"  :field contains a "1":  :& : Highway number: $I$ 1$O$ :E :Change the value for the PC station number to "15", as shown below:  :& : PC Station Number: $I$ 15$O$ : :G :=====================================================================  : U(J=0):INPUT XI(J=1):J$ R: Screen #19 PR: U:PRBINC J(W<>C):@PFT:====================================================================G :The "Time out" and "Time out unit" fields are the same for the second H :PC. Make sure the time out is set to 30 and the time out unit to "2", :as shown below:  :K : Time out: $I$ 30$O$ Time out unit: $I$ 2$O$ 1: minute ; : 2: second  :/ :Change the "Priority" field to the following:  :# : Priority: $I$ 40$O$  : : : : : : :G :=====================================================================  : U(J=0):INPUT XI(J=1):J$ R: Screen #20 PR: U:PRBINC J(W<>C):@PFT:====================================================================H :The five capabilities for each of the three PCs are the same, as shown :below: :7 : Write data allowed: $U2$ X$O$ 7 : Write program allowed: $U2$ X$O$ 7 : Transparent functions allowed: $U2$ X$O$ 7 : Unsolicited PC requests allowed: $U2$ X$O$ 7 : Start/stop allowed: $U2$ $O$  : : : : : : : : :G :=====================================================================  : U(J=0):INPUT XI(J=1):J$ R: Scr((een #20.5 PR: U:PRBINC J(W<>C):@PS: SCRNS,CSCR09.TXT,2 U(J=0):INPUT XI(J=1):J$ R: Screen #21 PR: U:PRBINC J(W<>C):@PFT:====================================================================F :Pressing ENTER causes Screen 7 to be displayed again. You are ready :to configure the last PC.  :E :Now that you have been through the PC Configuration loop twice, you H :should have no trouble configuring the last PC on your own. BeginningA :with Screen 7, configure PC number 3 according to the following  :specifications:  :& : PC number: 31 : Type: PLC-2.FAMILY & : Connected highway: 1' : Station number: 12 ' : Time out: 20 ' : Priority: 50  : :(continued on next screen) :G :=====================================================================  : U(J=0):INPUT XI(J=1):J$ R: Screen #22 PR: U:PRBINC J(W<>C):@PP2-P1 : : : REV.1941 790606 # 14075 18. " IDADDTONAME 92077-1X511 REV.2326 830323 " 14117 65. # IFBRK 92071-1X199 REV.2041 800409 # 14220 23. # IXGET 92071-1X319 REV.2041 800715 # 14247 12. % LIMEM 92077-1X441 REV.2326 <830221.1845> % 14263 28. ' LOGLU /PCIF/GSWPCIF/GEMOD4.CRS:::1:150:128 644 0 0 113000 5303667127 35756 /PCIF_GS/GSWPCIF/GEMOD4.CRS:::1:150:128 $'$ GEMOD4 CRS +nW+nW+nWKFST 94200-16533 REV.5000 <870601.1727> PR:UE J:INIT *PRBINC C(J=0):W=W+1 C:C=C+1 C(W=C):J=0 T(J=0): : : : : : : : : : : : : : : : : : : : : : : C:C$=CHR(27) T(J=0): $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A T(J=0): HE for help $N$ :Screen# #C C: N=LEN(M$)-2 E: *INPUT C:J=0 TH:NEXT? A: M:ME&* JN:NEXT1 C:J=1 C:J$="E:"!!U$(3,6) XI:J$ *NEXT1 M:+**!-** JN:NEXT2 C:W1=W C:T$="C:W=C"!!%B C(T$="C:W=C-"!T$="C:W=C+"):T$=T$!!"1" XI:T$ T(W<=0):You are trying to jump back past the beginning of the module T(W<=0):Type return to continue with the next frame. A(W<=0): C(W<=0):W=W1+1 J(W<=0):RETURN C:J=1 C:J$="E:"!!M$(3,6) XI:J$ *NEXT2 M:EX**!EN** JN:NEXT3 C:F=1 C:J=1 C:J$="E:"!!M$(3,3)!!"EX" XI:J$ *NEXT3 M:CI JN: NEXT4 C:J=1 S:CI C:W=W+1 J:RETURN *NEXT4 M:HE!? JN:NEXT5 T: T: ********************* Commands ********************** T: * * T: * MENU, ME............return to main menu * T: * +n..................go forward n screens * T: * -n..................go back n screens * T: * EXIT, EX, END, EN...end training package * T: * CI..................run CI * T: * HELP, HE, ??, ?.....help * T: * * T: ***************************************************** C:J=1 TH: Press RETURN to continue with the current screen: A: C:J$="E:"!!M$(3,6) XI:J$ *NEXT5 C:T$=" " C:T$= %B C:N=ASC(T$) T(N<>32): Sorry, I don't recoginze that command. Use ? for help. TH(N<>32): NEXT? J(N<>32): @A *RETURN E: *ANSWER C: B$="[" C: P1=INS(1,R$,B$) C: B$="]" C: P2=INS(P1,R$,B$) C: P1=P1-1 C: M1$= "M:"!!R$(1,P1) C: P1=P1+2 C: P3=P2-P1 C: T1$= R$(P1,P3) C: P4=LEN(R$)-P2 C: P2=P2+1 C: X1$= R$(P2,P4) XI:M1$ TY: : $T1$ CN: X1$="R:" E: *INIT D:T$(80) D:J$(80) D:M$(40) D:N$(40) D:S$(6) D:R$(256) D:M1$(128) D:T1$(128) D:X1$(15) D:C$(1) D:B$(1) D:U$(40) D:E$(1) D:O$(4) D:I$(4) D:U1$(4) D:U2$(4) D:B1$(4) C:E$=CHR(27) C:O$=E$!!"&d@" C:I$=E$!!"&dB" C:U1$=E$!!"&dD" C:U2$=E$!!"&dF" C:B1$=E$!!"&dA" C:U$="J:COMENU" C:M$="J:CONST" *COMENU T: : : : : : : : : : : : : : : : : : : : : : : C:C$=CHR(27) T: $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A C:W=0 C:C=0 C: J=0 T: : : : ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ : { } : { } : { Configuration Editor Menu } : { ------------------------- } : { STarting configuration editor } : { SOftkeys } : { FIle selection } : { HIghway selection and configuration } : { PC selection and configuration } : { ENding configuration editor } : { EXit } : { } : ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ : : : Please type the name (1st 2 letters will suffice) of the section you TH: would like to study: C: F=1 C: T$=" " A: $T$ T: : : : : M:ST&* JY:CONST M:SO&* JY:CONSO M:FI&* JY:CONFI M:HI&* JY:CONHI M:PC&* JY:CONPC M:EN&* JY:CONEN M:EX&* JY:CONEX M: CY:F=0 XIY:M$ C:N=ASC(T$) C(N=32):F=0 XI(N=32):M$ TN: ***** : Sorry, but I don't recoginze that section name. : Here's the menu so you can try again! : ***** XIN:U$ PR: *CONST C:J=0 C:W=0 C:M$="J:CONST1" *CONST1 C:N$="Starting the Configuration Editor" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :Starting the Configuration Editor :--------------------------------- :Once preconfiguration is complete, you and Sam are ready to use the :Configuration Editor. Sam enters data at the terminal while you provide :the following instructions. : :To complete configuration, you must access the Configuration Editor :program (PCCON). The Configuration Editor allows you to describe the :existing physical connection between your PC stations and the HP 1000. :This description is stored in an FMGR file which PCIF/1000 reads at :run-time. : :Like the Preconfigurator, the Configuration Editor consists of a series :of menus or screens. You supply appropriate information in the required :or optional fields included in the screens. : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :To start the Configuration Editor, you enter the following CI :commands:: : : CI> wd /pcif/runtime/ : : CI> PCCON : :PCCON is the Configuration Editor file namr, and PC (in this case) is :the cartridge reference. After you type in this command, Screen 1 is :displayed on your screen. : :Before discussing Screen 1, let's look at the softkeys available within :the Configuration Editor. Remember that these softkeys do not actually :function within this training package, but the ENTER key does. You :must press ENTER to continue after a Configuration Editor screen has :been displayed. : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *CONSO C:J=0 C:W=0 C:M$="J:CONSO1" XI(F=0):U$ *CONSO1 C:N$="Configuration Editor Softkeys" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :Configuration Editor Softkeys :----------------------------- : ---- : | F1 | - PREVIOUS SCREEN; returns you to previous screen : ---- : ---- : | F2 | - LIST; outputs a listing of the Configuration file as is : ---- NOTE: You must first provide a listing file namr in first : field of Screen 2. : : ---- : | F3 | - PREVIOUS TYPES; moves you to previous screenful of highway types : ---- : : ---- : | F4 | - NEXT TYPES; moves you to next screenful of highway types : ---- :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== : ---- : | F5 | - HELP; displays a one-screen Help panel about the current : ---- screen : : ---- : | F7 | - REFRESH; refreshes previously entered information : ---- : : ---- : | F8 | - ABORT PCCON; aborts the PCCON program : ---- : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *CONFI C:J=0 C:W=0 C:M$="J:CONFI1" XI(F=0):U$ *CONFI1 C:N$="File Selection" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :File Selection :-------------- :The File Selection screen allows you to name the configuration file :before you create it. The one field available for data is an optional :field: : : Configuration file namr: $I$ $O$ : :If you do not type the configuration file namr in this field, you must :name the file later, in Screen 11. If you are updating a configuration :file, you must type the namr in the field. : :The Configuration Editor checks to see if this session is a configuration :update or a new configuration. On each successive screen, the Configuration :Editor displays a blinking message specifying whether the session is for :CREATING or MODIFYING the configuration file. : :===================================================================== : U(J=0):INPUT XI(J=1):((J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The file namr should be a name for a FMGR file. You can also include :a name extension if you wish. In this case, the full path namr without :.extension was typed as shown below: : : Configuration file namr: $I$ /pcif/runtime/^CSODA $O$ : :NOTE: It is helpful to keep all your configuration files straight by :adopting a naming convention. For example, make the first character of :all configuration files a carat ("^"), as shown above. : : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S: SCRNS,CSCR01.TXT U(J=0):INPUT XI(J=1):J$ PR: *CONHI C:J=0 C:W=0 C:M$="J:CONHI1" XI(F=0):U$ *CONHI1 C:N$="Highway Selection and Configuration" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :Highway Selection and Configuration :----------------------------------- :After you hit the ENTER key, PCIF displays Screen 2, the Work :Selection screen. This screen allows you to specify the kind of :configuration you are about to perform -- highway or PC :configuration. : :In this section, you will configure your highway. : :Notice the flashing message telling you that you are creating a :configuration: : : $B1$ Creating configuration$O$ : :Each succeeding screen displays a similar message. : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The first field: : : Listing file namr: $I$ $O$ : :allows you to name a listing file. This allows you to produce :a hard-copy listing of the configuration file if you type the listing :namr. In this case we used a mixed naming convention. : :Type the following namr in this field. You do not have to include a :full path name if you wish to default to your current working directory. : : Listing file namr: $I$ 'CSODA.lst $O$ : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The next three fields: : : Highway configuration: $I$ $O$ : : PC configuration: $I$ $O$ : : Exit: $I$ $O$ : :allow you to designate the kind of configuration you are performing. : :Remember that you are creating a new configuration. Therefore, you :must specify the highway configuration before you configure its :associated PC(s). : :The Configuration Editor also verifies the compatibility of the highway :with the required PCs. : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :Since you are now going to configure the highwayS, type an "X" in the :following field: : : Highway configuration: $I$ X$O$ : :Now let's take a look at Screen 2 of the Configuration Editor. : : : : : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S: SCRNS,CSCR02.TXT U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The next screen, Screen 3, allows you to select your highway. : :The first field identifies the data highway by number: : : Highway number: $I$ 1$O$ : :Since you are configuring the first data highway for Sarsaparilla :Soda, accept the default value shown, "1". : :The second field: : : Add/modify: $I$ X$O$ : :allows you to add or modify the highway identified by number in the first :field. You are adding the highway so again accept the default, "X". : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The last field: : : Delete: $I$ $O$ : :allows you to delete the selected highway from the configuration file. :Note, however, that you cannot delete any highway that has one or more :associated PCs. : :Leave this field blank because you are not deleting a highway. : :For more information on deletion of highways, see Chapter 8 in the :PCIF/1000 Reference Manual. : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S:RU,SCRNS,CSCR03.TXT,1 U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :Screen 4 of the Configuration Editor allows you to add Sarsaparilla :Soda's first data highway. : :The screen displays all supported highway types. The descriptor file :entered during Preconfiguration provides this information. : :Select the specific highway type by placing an "X" in the field next :to the chosen type. You want to choose the GE SERIES SIX type, so :place an "X" in the associated field as shown below: : : GE SERIES SIX $I$ X$O$ : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S: SCRNS,CSCR04.TXT U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The next screen, number 5, prompts you for more specific information :about the highway being configured. : :The first field: : : Priority: $I$ 50$O$ : :asks for a parameter that defines the priority of the highway. : :The priority of a highway controls the handling of simultaneously :received requests. The highway with the highest priority is handled :first. : :A highway's priority must be an integer between 1 and 99, inclusive, :the highest priority being 99 and the lowest being 1. : :In this case, accept the default priority of 50. :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The second field: : : Port number: $I$ $O$ : :allows you to specify the port number of your highway on the interface :card. : :The entered value should be an integer between 0 and 7, inclusive. :This number corresponds to one to the eight RS232C female connectors :on the MUX connection panel. : :Since the port number for the Sarsaparilla Soda highway is 0, enter a :"0" in this field. : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The last two fields on Screen 5: : : First LU number: $I$ 0$O$ : : Second LU number: $I$ 0$O$ : :allow you to allocate one or two LUs to the highway. The LU number, :which is allocated at system generation time, must be an integer :between 1 and 255, inclusive. : :Since you are allocating two LUs, you must make sure that they have :different numbers. In this case, specify the first LU number to be :91 and the second to be 92. : :Enter the two LU numbers that correspond to port 0 on the downloadable :MUX card as specified in your system generation file. (For more :information, see Chapter 8 of the PCIF/1000 Reference Manual.) :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S: SCRNS,CSCR05.TXT,1 U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :After you press ENTER, the Configuration Editor validates the information :entered in the highway selection and configuration fields. If there :are no errors, Screen 6, the special information screen is displayed. :this screen allows you to define the baud rate for the P.C. dialog. : :In our example use the $I$ 0 $O$ baudrate generator : :for the $I$ 9600 $O$ baudrate : : :The screen loop from Screen 5 (or 6) to Screen 3 is called the Highway :Configuration loop. The Configuration Editor repeats this loop until :all highways have been configured. Continue to add highways two and :three using consecutive ports and LUs keeping all other information :the same. use the information provided below. : : port number LU numbers : : 1 93 , 94 : 2 95 , 96 : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S: SCRNS,CSCR16.TXT,1 U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The first field on Screen 3: : : Highway number: $I$ 2$O$ : :shows that the next highway to be selected is number 2. : :continue on using the information provided. When you are finished :configuring additional highways, cancel the highway selection :by pressing F1, PREVIOUS SCREEN. : : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S:RU,SCRNS,CSCR03.TXT,2 U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :After you press F1, the Configuration Editor redisplays Screen 2. :You have now exited the Highway Configuration loop. : :Now we must configure the PCs. The next section guides you through :PC selection and configuration. : : : : : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *CONPC C:J=0 C:W=0 C:M$="J:CO((NPC1" XI(F=0):U$ *CONPC1 C:N$="PC Selection and Configuration" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :PC Selection and Configuration :------------------------------ :After you exit the Highway Configuration loop, Screen 2 is redisplayed. : :We now want to configure the PCs associated with the configured highway. :Type an "X" in the PC configuration field: : : PC configuration: $I$ X$O$ : : : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S: SCRNS,CSCR02.TXT U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :Pressing ENTER causes Screen 7 to be displayed, and you enter the PC :Configuration loop. : :Screen 7 allows you to define a new PC or modify the configuration of :an existing PC. The screen is similar to Screen 3, Highway Selection. : :The first field identifies the PC by number: : : PC Logical Identifier: $I$ 1$O$ : :The Configuration Editor provides the default value of n+1, where n is :the largest Logical Identifier already allocated. In this case, since :you are creating a configuration file and configuring the first PC, the :default is 1. : :Accept the default value. : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The second field on Screen 7: : : Add/modify: $I$ X$O$ : :allows you to add the PC identified by number in the previous field. :If you were modifying an existing configuration file, you could modify :the PC. In this case, you are adding PC Logical Identifier number 1, :so accept the default "X". : :The third and last field: : : Delete: $I$ $O$ : :allows you to delete the selected PC from the configuration file. In :this case, you are not deleting any PCs, so leave this field blank. : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S:SCRNS,CSCR07.TXT,1 U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :After you press ENTER, the Configuration Editor displays Screen 8. : :This screen is displayed only if you are adding a new PC. Note the :flashing message showing that you are adding a new PC: : : $B1$ New PC adding$O$ : :The supported PCs are displayed as specified in the descriptor file :of the Preconfigurator. : :You choose the PC type by typing an "X" in the appropriate field. :Only one type may be selected for each PC being configured. Type an :"X" in the field, as shown below: : : GE SERIES SIXTY $I$ X$O$ : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S: SCRNS,CSCR08.TXT U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :After you select the PC type, you must enter more information about :the PC being configured. Screen 9 allows you to enter this information. : :The two display-only fields show the PC type and number (PC Logical :Identifier): : : PC type: $U1$ GE SERIES SIXTY $O$ Number: $U1$ 1$O$ : :The first required field: : : Highway number: $I$ 1$O$ : :allows you to specify the highway number for the PC being added. Type :"1" for the Highway number. : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The next field: : : PC Station Number: $I$ $O$ : :is displayed when the PC is to be connected using a multipoint :link. For more information, consult the Configuration chapter of the :PCIF/1000 Reference Manual and your handler-specific manual. : :Enter "11" for this PC station number. : :NOTE: Always enter the PC Station Number in decimal, NOT octal. : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The following two fields: : : Time out: $I$ 30$O$ Time out unit: $I$ 2$O$ 1: minute : 2: second : :together define the timeout value for the PC. Timeout is the amount :of time that the PCIF software waits for an answer from a PC before :sending an error message to the user's application. : :In this case, select the defaults, 30 and 2. : :NOTE: The "Time out" and "Time out unit" fields above are not required. :If, however, you enter a time out value, you must specify a time out :unit. : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The next field on Screen 9: : : Priority: $I$ 50$O$ : :defines the priority of the associated handler for the PC. : :This field requires an integer between 1 and 99. 99 is the highest :priority while 1 is the lowest priority. If two requests are received :simultaneously, the one with the highest priority is handled first. : :The priority number is only significant in comparison with the priorities :of the other PCs and highways. : :For PC number 1, accept the default priority of 50. : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The next five fields on Screen 9 prompt you for certain capabilities :of the PC being configured. You select any capability by typing an :"X" in the adjoining field. Any capability fields left blank will be :set to "off". : :For Sarsaparilla Soda, select the appropriate four capabilities, as :shown below: : : Write data allowed: $U2$ X$O$ : Write program allowed: $U2$ X$O$ : Transparent functions allowed: $U2$ X$O$ : Unsolicited PC requests allowed: $U2$ X$O$ : Start/stop allowed: $U2$ $O$ : :NOTE: You should consult the appropriate PC brand reference manual to :check that a selected capability is supported. For more information, :see the Configuration chapter in your PCIF/1000 Reference Manual. :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S: SCRNS,CSCR09.TXT,1 U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :After you press ENTER, the Configuration Editor validates the information :entered on Screen 9 and then redisplays Screen 7. : :Screen 7 allows you to configure additional PCs. You must continue :to return to this screen until all the PCs have been configured for :proper Highway numbers. This is called the PC Configuration Loop. : :The first field on Screen 7: : : PC Logical Identifier: $I$ 2$O$ : :shows that the next PC to be selected is PC number 2. Accept this :value and the "X" displayed in the Add/modify field. : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S:SCRNS,CSCR07.TXT,2 U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :After you press ENTER, the Configuration Editor redisplays Screen 8, :the PC Type Selection field. : :The PC type for PC number 2 is the same as the PC type for number 1. :Type an "X" in the field, as shown below: : : GE SERIES SIXTY $I$ X$O$ : : : : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S: SCRNS,CSCR08.TXT U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :Pressing ENTER moves you to Screen 9, where you complete the configuration :of PC number 2. : :Some of the information you enter here is different for this PC. :Notice that the PC type is the same, but the number is different. : :Since Sarsaparilla Soda only has three highways the highway number :is different for all three PCs. Make sure that the "Highway number" :field contains a the approproate highway number. : : Highway number: $I$ 1$O$ : :Keep the value for the PC station number to "11", as shown below: : : PC Station Number: $I$ 11$O$ : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The "Time out" and "Time out unit" fields are the same for the second :PC. Make sure the time out is set to 30 and the time out unit to "2", :as shown below: : : Time out: $I$ 30$O$ Time out unit: $I$ 2$O$ 1: minute : 2: second : :Keep the "Priority" field to the samesince no line requires service be- :fore a nother: : : Priority: $I$ 40$O$ : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The five capabilities for each of the three PCs are the same, as shown :below: : : Write data allowed: $U2$ X$O$ : Write program allowed: $U2$ X$O$ : Transparent functions allowed: $U2$ X$O$ : Unsolicited PC requests allowed: $U2$ X$O$ : Start/stop allowed: (( $U2$ $O$ : : : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S: SCRNS,CSCR09.TXT,2 U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :Pressing ENTER causes Screen 7 to be displayed again. You are ready :to configure the last PC. : :Now that you have been through the PC Configuration loop twice, you :should have no trouble configuring the last PC on your own. Beginning :with Screen 7, configure PC number 3 according to the following :specifications: : : PC number: 3 : Type: GE SERIES SIXTY : Connected highway: 3 : Station number: 11 : Time out: 20 : Priority: 50 : :(continued on next screen) : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== : Capabilities: : : - write data X : - write program X : - transparent functions X : - unsolicited requests X : - start/stop : : : : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :After you go through the PC Configuration Loop, you return once more :to Screen 7. : :Notice that this time the PC logical identifier is 4: : : PC Logical Identifier: $I$ 4$O$ : :Since Sarsaparilla Soda only uses three PCs, you are finished with :the PC configuration. : :To cancel Screen 7, press F1, PREVIOUS SCREEN. : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S:SCRNS,CSCR07.TXT,4 U(J=0):INPUT XI(J=1):J$ PR: *CONEN C:J=0 C:W=0 C:M$="J:CONEN1" XI(F=0):U$ *CONEN1 C:N$="Ending the Configruation Editor" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :Ending the Configuration Editor :------------------------------- :After you press F1, Screen 2 is redisplayed. This screen allows you :to complete the configuration file. : :Type an "X" in the Exit field: : : Exit: $I$ X$O$ : : : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S:SCRNS,CSCR02.TXT U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :After you press ENTER, the Configuration Editor displays Screen 11, :General Information. : :This screen allows you to enter general information common to PCIF/1000. :This information describes in general terms the present highway and :PC configuration. : :The first field: : : Maximum length of application : program requests or replies: $I$ 512$O$ (bytes) : :defines the maximum length of the requests and replies in the application :program. This value must be an positive integer smaller than 1025. :Accept the default value, 512 bytes. : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The second field on Screen 11: : : Maximum PC request queue length: $I$ 8$O$ (requests) : :allows you to limit the number of requests waiting to be completed :for a given PC. Accept the default value, 8 requests. : :The next field: : : Maximum number of access keys: $I$ 64$O$ : :allows you to enter the maximum number of access keys available to :an application program. (Certain PC Access Routines use access keys. :See chapter on PC Access Routines in your PCIF/1000 Reference Manual.) : :Here you must enter a positive integer smaller than 65. Accept the :default value, 64. :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The fourth field on Screen 11: : : PC_DISC Security Code : (also used for scheduling PCHLT): $I$ 0$O$ : :allows you to establish a security code for use with the PC Access :Routine, PC_DISC, or with PCHLT, which stops the PCIF monitor. : :If you want to set a security code, type any integer within the range :-32768 and 32767. In this case, accept the default security code of :0. : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The last field on Screen 11: : : Configuration file namr: $I$ /PCIF/RUNTIME/^CSODA $O$ : :displays the configuration file namr entered in Screen 1. If you had :not specified this file namr in Screen 1, you would have to enter it :here; or you may also change the configuration file namr at this point. : :Remember that the namr must follow FMGR namr format. : :Since you already specified a namr in Screen 1, accept the file namr :displayed in this field. : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :$B1$ WARNING$O$ :To write all the configuration information to the specified list file, :including the validated data from Screen 11, you must: : : 1. Press PREVIOUS SCREEN to return to Screen 2 to validate the : entered data from Screen 11. : : 2. On Screen 2, select the exit option and press ENTER. Screen : 11 will be redisplayed. : : 3. On Screen 11, press F2, LIST, to store the validated data in : the list file. : :To complete the configuration process, press ENTER on Screen 11. The :data entered during this configuration is now stored into the disc file :namr already specified. : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P S:SCRNS,CSCR11.TXT U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :The configuration process is now complete. The next module will :demonstrate how an application program works with PCIF/1000 to solve :Sarsaparilla Soda's problem. : : : : : : : : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *CONEX C:J=0 C:W=0 C:M$="J:CONEX1" XI(F=0):U$ *CONEX1 C:F=0 C:C=0 E:  maplu.number,  4 - maplu_length) ; group_descriptor := 'f' ;  field_description := file1_name ;  maximum_write_length := 10 ; field_length := FmpWrite(fmp_file1_dcb,  return_code,  maplu.buffer_in, ! maximum_write_length) ;! message_number := -return_code ; IF return_code = 0 THEN  BEGIN  message_number := 250 ; maplu_number := maplu_number + 1 ;  field_name := 'RN' ; f_putinteger(field_name,  maplu_number,  return_code) ;  END ;  END ; {get maplu} END ; {maplu place}  END ; {maplu read} END ; {cell name} END ; {with f_var} END ; {nil_case_write}  #{********************************************************************}##{* *}##{* TITLE: update the local fields for cii config and write *}##{* NAME: nil_cii_write *}##{* PGMR: whk *}##{* *}##{********************************************************************}##{* *}##{* FUNCTIONAL DESCRIPTION: *}##{* *}##{* This procedure writes the data to the disk for permanent *}##{* storage and updates the local parameters for the nil cii *}##{* configuration. *}##{* *}##{********************************************************************}##{* *}##{* CALLING SEQUENCE: *}##{* *}##{* nil_cii_write(f_var) ; *}##{* /PCIF/GSWPCIF/GEMOD5.CRS:::1:100:128 644 0 0 62000 5303667130 35447 /PCIF_GS/GSWPCIF/GEMOD5.CRS:::1:100:128 $'$d dGEMOD5 CRS +nX+nX+nXd2d6FST ((A94200-16534 REV.5000 <870601.1728> PR:UE J:INIT *PRBINC C(J=0):W=W+1 C:C=C+1 C(W=C):J=0 T(J=0): : : : : : : : : : : : : : : : : : : : : : : C:C$=CHR(27) T(J=0): $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A T(J=0): HE for help $N$ :Screen# #C C: N=LEN(M$)-2 E: *INPUT C:J=0 TH:NEXT? A: M:ME&* JN:NEXT1 C:J=1 C:J$="E:"!!U$(3,6) XI:J$ *NEXT1 M:+**!-** JN:NEXT2 C:W1=W C:T$="C:W=C"!!%B C(T$="C:W=C-"!T$="C:W=C+"):T$=T$!!"1" XI:T$ T(W<=0):You are trying to jump back past the beginning of the module T(W<=0):Type return to continue with the next frame. A(W<=0): C(W<=0):W=W1+1 J(W<=0):RETURN C:J=1 C:J$="E:"!!M$(3,6) XI:J$ *NEXT2 M:EX**!EN** JN:NEXT3 C:F=1 C:J=1 C:J$="E:"!!M$(3,3)!!"EX" XI:J$ *NEXT3 M:CI JN: NEXT4 C:J=1 S:CI C:W=W+1 J:RETURN *NEXT4 M:HE!? JN:NEXT5 T: T: ********************* Commands ********************** T: * * T: * MENU, ME............return to main menu * F: * +n..................go forward n screens * T: * -n..................go back n screens * T: * EXIT, EX, END, EN...exit training package * T: * CI..................run CI * T: * HELP, HE, ??, ?.....help * T: * * T: ***************************************************** C:J=1 TH: Press RETURN to continue with the current screen: A: C:J$="E:"!!M$(3,6) XI:J$ *NEXT5 C:T$=" " C:T$= %B C:N=ASC(T$) T(N<>32): Sorry, I don't recoginze that command. Use ? for help. TH(N<>32): NEXT? J(N<>32): @A *RETURN E: *ANSWER C: B$="[" C: P1=INS(1,R$,B$) C: B$="]" C: P2=INS(P1,R$,B$) C: P1=P1-1 C: M1$= "M:"!!R$(1,P1) C: P1=P1+2 C: P3=P2-P1 C: T1$= R$(P1,P3) C: P4=LEN(R$)-P2 C: P2=P2+1 C: X1$= R$(P2,P4) XI:M1$ TY: : $T1$ CN: X1$="R:" E: *INIT D:T$(80) D:J$(80) D:M$(40) D:N$(40) D:S$(6) D:R$(256) D:M1$(128) D:T1$(128) D:X1$(15) D:C$(1) D:B$(1) D:U$(40) C:U$="J:APMENU" C:M$="J:APPOV" *APMENU T: : : : : : : : : : : : : : : : : : : : : : : C:C$=CHR(27) T: $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A $C$ A : $C$ A $C$ A $C$ A $C$ A C:W=0 C:C=0 C: J=0 T: : : : ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ : { } : { } : { Running the Application Program Menu } : { ------------------------------------ } : { OVerview } : { COmpiling and linking the program } : { CReating the data file } : { STarting the pcif subsystem } : { INitializing pcif } : { RUnning the program } : { HAlting the pcif monitor } : { EXit } : { } : ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ : : : Please type the name (1st 2 letters will suffice) of the section you TH: would like to study: C: F=1 C: T$=" " A: $T$ T: : : : : M:OV&* JY:APPOV M:CO&* JY:APPCO M:CR&* JY:APPCR M:ST&* JY:APPST M:IN&* JY:APPIN M:RU&* JY:APPRU M:HA&* JY:APPHA M:EX&* JY:APPEX M: CY:F=0 XIY:M$ C:N=ASC(T$) C(N=32):F=0 XI(N=32):M$ TN: ***** : Sorry, but I don't recoginze that section name. : Here's the menu so you can try again! : ***** XIN:U$ PR: *APPOV C:J=0 C:W=0 C:M$="J:APPOV1" *APPOV1 C:N$="Overview" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :Overview :-------- :While Sam is completing configuration, you put the finishing touches :on your application program. Because you want to make a trial run of :your application program, you write the program to address only one :of the bottling lines. : :You write the application program to solve the following problems: : : 1) Count the number of bottles coming off a line per hour : (divided between defective and good bottles). : : 2) Monitor the status of the line at certain times during : production. Record the number of units produced per minute : and the status of the line (i.e. is it up or down?). : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :Remember that besides writing an application program, you need to :write a ladder logic program for the PC. Print GELADLOG.TXT to :obtain a listing and a description of the ladder logic program used :by Sarsaparilla Soda. : :Because Sam is not a programmer, you decide to give him only an :overview of the application program. : :NOTE: The file, GESODA.FTN, contains the source code for the application :program described here. You can print it right now if you like. Just :type "CI" after the "NEXT?" prompt below and then execute you print :statement. : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :1. Initialize PCIF : : a) PCIF_OPEN : : b) PCIF_CONNECT : :2. Get needed access keys : : a) PC_GETKEY : :3. Disable other programs from accessing PC : : a) PC_LOCK : :4. Reset to 0 counters and timers in PC : : a) PC_WRITED :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :5. Turn on start bit : :6. Enable other programs to access PC : : a) PC_UNLOCK : :7. Was break entered? : : a) if yes, go to 20 : : b) if no, continue : :8. Status of PC : : a) PC_PCSTAT : : :==================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :9. Is PC running? : : a) if no, report down PC and continue : : b) if yes, continue : :10. Is one minute up? : : a) if no, wait one second and go to 10 : : b) if yes, continue : :11. Get number of good and defective bottles : : a) PC_READD : :12. Increment number of minutes :==================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :13. Compute production figures : :14. Display production statistics for last minute : :15. Is one hour up? : : a) if no, go to 7 : : b) if yes, continue : :16. Reset bottle counters without wait : : a) PC_WRITED : :17. Write production statistics to file : : :==================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :18. Check if PC_WRITED completed : : a) PC_ENQUIRY : :19. Go to 7 : :20. Cancel all pending requests : : a) PC_CANCEL : :21. Release resources : : a) PC_RELKEY : :22. Close program to PCIF : : a) PCIF_CLOSE :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *APPCO C:J=0 C:W=0 C:M$="J:APPCO1" XI(F=0):U$ *APPCO1 C:N$="Compiling and Linking the Application Program" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :Compiling and Linking the Application Program :--------------------------------------------- :After you write the application program, you must compile it. :Enter the following RTE command: : : CI> FTN7X,GESODA.FTN,-,- : :where "GESODA.FTN" is the application program source file name. : :Next you must link the PASCAL library and the PCIF library of access :routines to the application program. Enter the RTE link command: : : CI> LINK : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :RTE responds with a message and a link prompt, as shown below: : : LINK Rev. XXXX Use ? for help : LINK: : :At the "LINK:" prompt, enter the three commands shown below: : : LINK: LI,/LIBRARIES/PASCAL.LIB : LINK: LI,/libtraries/$PCLIB : LINK: RE,GESODA.REL : :The first two commands link the PASCAL library and PCIF. The last :command includes a relocatable file called "GESODA.REL". RTE responds :by displaying the application program namr and the names of the :subroutines. : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :Now you execute the commands by entering: : : LINK: EX : :RTE responds with a listing of the PASCAL library, the PCIF library, :and the relocatables. RTE then creates the load map and displays it. : :When link is successfully completed, RTE displays this message: : : Program GESODA.RUN:::6: 169 ready: 21 pages : Runnable only on an RTE-A system : CI> : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *APPCR C:J=0 C:W=0 C:M$="J:APPCR1" XI(F=0):U$ *APPCR1 C:N$="Creating the Data File" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:=============================================((======================= :Creating the Data File :---------------------- :The application program requires the creation of an additional file. :PCIF writes the requested data to this data file. Use the RTE command :and file namr shown below: : : CI> CR,PROD_STATS_1 : : : : : : : : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *APPST C:J=0 C:W=0 C:M$="J:APPST1" XI(F=0):U$ *APPST1 C:N$="Starting the PCIF Subsystem" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :Starting the PCIF Subsystem :--------------------------- :You must start the PCIF subsystem before PCIF can access the :application program. You use RTE commands to assign ID segments to :the various program parts of the PCIF subsystems. : :Enter the RTE commands shown below. After each command, RTE displays :a message: : : : CI> WD RUNTIME : : CI> RP,PCOPN CI> RP,PCIF : RP'ed PCOPN RP'ed PCIF : CI> RP,PCTMO CI> RP,PCHLT : RP'ed PCTMO RP'ed PCHLT : CI> RP,PCDMX : RP'ed PCDMX : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *APPIN C:J=0 C:W=0 C:M$="J:APPIN1" XI(F=0):U$ *APPIN1 C:N$="Initializing PCIF" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :Initializing PCIF :----------------- :You initialize PCIF by entering the following command at the RTE-A :prompt: : : CI>XQ,PCIF,^CSODA : :You start by including the configuration file namr, ^CSODA, and the :cartridge reference, TA. If there are no errors, press RETURN until :the message is displayed: : : PCIF>running : :Initialization is now complete. : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *APPRU C:J=0 C:W=0 C:M$="J:APPRU1" XI(F=0):U$ *APPRU1 C:N$="Running the Program" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :Running the Program :------------------- :Once the "PCIF>running" message is displayed, you are ready to execute :the application program. : :Enter the application program name after the "CI>" prompt. PCIF then :displays a series of messages, and the program displays the data to :be written to the data file: : : CI> GESODA : Opened communication with PCIF. : Established communication with PCIF. : Got the necessary access keys. : Locked the PC. : Initialized counters and timers in PC. : Unlocked the PC. : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== : Total Bottles: 30 Defective: 4 Good: 26 : : Total Bottles: 30 Defective: 4 Good: 26 : : Total Bottles: 30 Defective: 4 Good: 26 : : Total Bottles: 30 Defective: 4 Good: 26 : PC on bottling line is down !! : : Total Bottles: 34 Defective: 4 Good: 30 : : Total Bottles: 30 Defective: 4 Good: 26 : :When PCIF/1000 finds PCIF_OPEN, a link between the application program :and the monitor is established. The application program can then issue :the other PC Access Routines. The dialog of requests to the PC and :its associated replies is established. :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :Allow the program to run for approximately 10 minutes. : :If you studied the application program, you may have noted that it :contains an endless loop. To stop the execution of the application :program, enter an RTE break command. Press RETURN to display a "CM>" :prompt and enter the command shown below. The application program :then displays a series of messages telling you the program is :terminated: : : CM> BR : Released access keys. : Cancelled all requests. : Closed PCIF. Terminated program. : CI> : : : :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: U:PRBINC J(W<>C):@P T:==================================================================== :You can list the data contained in the data file by entering the RTE :command shown below: : : CI> LI PROD_STATS_1 : 2 1 3 256 -3884 5 0 0 : 60 8 : 60 8 : PC on bottling line is down !! : 64 8 : :The data in the list file, PROD_STATS_1, contains production totals :for every two minutes of run time. This interval is specified in the :application program. : :The actual data in your data file may be different. But this data :will match the displayed data during the running of the application :program. :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *APPHA C:J=0 C:W=0 C:M$="J:APPHA1" XI(F=0):U$ *APPHA1 C:N$="Halting the PCIF Monitor" C:F=0 C:C=0 PR: U:PRBINC J(W<>C):@P T:==================================================================== :Halting the PCIF Monitor :------------------------ :Once the application program has stopped, you need to halt PCIF. :At the "CI>" prompt, enter the PCIF halt command, PCHLT, and the :security code (you entered the security code in Screen 11 during the :configuration process): : : CI> PCHLT,0 : CI> : PCIF>stopped : :Now that one PC can be monitored by the application program, you can :write the application program to include the other two PCs. Sam :Sharp is very satisfied with the results, and he was able to understand :the process. : :Congratulations! You get a big raise. :===================================================================== : U(J=0):INPUT XI(J=1):J$ PR: *APPEX C:J=0 C:W=0 C:M$="J:APPEX1" XI(F=0):U$ *APPEX1 C:F=0 C:C=0  he PC type, you must enter more information about J :the PC being configured. Screen 9 allows you to enter this information. :E :The two display-only fields show the PC type and number (PC Logical  :Identifier): :I : PC type: $U1$ PLC-2.FAMILY$O$ Number: $U1$ 1$O$  : :The first required field:  :& : Highway number: $I$ 0$O$ :H :allows you to specify the highway number for the PC being added. Type :"1" for the Highway number.  : : :G :=====================================================================  : U(J=0):INPUT XI(J=1):J$ R: Screen #9PR: U:PRBINC J(W<>C):@PFT:==================================================================== :The next field:  :P2-P1 /:/C/L/U/^/g/pj FILES NEEDED FOR THE PCIF CORE  TroyE--------------------------------------------------------------------- Source:   Configuration:   Support NodeF---------------------------------------------------------------------- Relocatables:   Configuration:  Run-time:    Cell Controller F----------------------------------------------------------------------Configuration: !PCC01!PCC02!PCC03!PCC04!PCC05!PCC07!PCC08!PCC09!PCC11!PCCB5!PCCB9"PCC01"PCC02"PCC03"PCC04"PCC05"PCC07"PCC08"PCC09"PCC11"PCCB5"PCCB9"PCERRPCCON  Run-time:  PCDMX PCHLT PCIFPCOPN PCTMO "PCMER"PCMSG PCTST (only for troubleshooting)AUTOR  TOR  ----------------------------------------------Configuration: !PCC01!PCC02!PCC03!PCC04!PCC05!PCC07!PCC08!PCC09!PCC11!PCCB5!PCCB9"PCC01"PCC02"PCC03"PCC04"PCC05"PCC07"PCC08"PCC09"PCC11"PCCB5"PCCB9PCCON "P"PCERR B5!PCCB9"PCC01"PCC02"PCC03"PCC04"PCC05"PCC07"PCC08"PCC09"PCC11"PCCB5"PCCB9PCCON "PCERR P1) SMRTI.RUN (SMRTI::P1)   Cell Controller F--------------------------------------------------------P ` PN ((P `Pp p  ,(P ` PN ((P`P~III'!p p  .(PJJ  `Pp p  0(IU=K=P`(Kh2H6(Oh26` `Pp p  3(PPPP(`(`Pp p  &(88BPP` PO((P(P8H:(`( `Pp p  &(PPPJ(J `Pp p  0(PP (J44J `Pp p  0(!PP"4CCB/ H(`p(*J` PO((h56`c (h66`K 79#$%`pC•x   =f  ’F   =  [$      !!*@ @`@H`;h<( !llQ&== 0@.-`/12   @     K 2 K9!lh99((format_apdu   B*#99 @b"EEXVd%,2Q]FORMAT_INICB92560-18239 REV.2601 <111111.1 860330.1722CASE/INI_FORMAT_PARSE.PAS::XNIL E} FORMAT_INICB llN .EXIT0.LDX .MB00 .MW20 .SBT.SDSP INI_CGLBL.3 INI_CM_COM.1INI_CS_COM.1INI_CS_COM.2 INI_FORMAT_PAR.1INI_FORMAT_PAR.3PAS.BLANKFILL PAS.CDS TRACE_PROCEDURE ltFORMAT_INICB$+FORMAT_INICB%$FORMAT_INICB&% SFORMAT_INICB FORMAT_CB_HDR ! FORMAT_CB_HDR $FORMAT_CB_HDR %*FORMAT_CB_HDR &44 SFORMAT_CB_HDR ` pE pF`pG pH`@ pI4 8   @ %` @Hp (  Q REQUEST 1  FORMAT_CB_HDR " ++71)/0/`8(B`(B`@p(D`p`P(XP(dP(P(pP(|P(P7(P8(P9(( `  `pJ`@ -bp( `  j80`pJ`@ p( `   pJ`@ p( `   pJ`@ p( `   pJ`@ p( `  p `(p ` ww%`64pJ`pK`pp h6@ H 8 8(`@p( `   pJpK`pLh6`6  `pp h6@ HH 8 8(wpp2.`P@p( `  pJpK`pLh6A`6 J `pp h6@ H 8 8(`P@p( `  ` p( p @+  ’R1j  y //͊ @ H`@H `h  ppp (+/,, 0  1@23LM@m),3.format_INIcb  ;ASSOC_N 2 V AP_CLASS3 g CB_EOM QREQUEST 1 ⁅( TEMP @ #99 @%FFXdn,3U]PARSE_INICB 92560-18239 REV.2601 <111111.1 860330.1722 CASE/INI_FORMAT_PARSE.PAS::XNIL F<ZPARSE_INICB cc s .EXIT0.LDX .MW20 .SDSP INI_CGLBL.3 INI_CM_COM.1INI_CS_COM.1INI_CS_COM.2 INI_FORMAT_PAR.1INI_FORMAT_PAR.3 PAS.BLANKFILL PAS.CDS TRACE_PROCEDURE c⁠TPARSE_INICB $⁠^ PARSE_INICB %⁠mPARSE_INICB &ؓB>SPARSE_INICB (.0 .`E`F`Gp`8(C`(Cpp `@P(0(4p ``p` (B`A@(*AA vB(E``I P (MP (M(Y`Jp p`  (Vp`Kp(YA  1    !!͹Y@ G`@H  `h ( ! 0h($7hparse_INIcb   fINI_EVENT  ASSOC_N  7 AP_CLASS i CB_EOM  CHANNEL_FOUND !RETURN_CODE  ⁅*TEMP @EY#99 @?FFXRd+,4Y]FORMAT_HDLC 92560-18239 REV.2601 <111111.1 860330.1722 CASE/INI_FORMAT_PARSE.PAS::XNIL F8"FORMAT_HDLC OO ۽.DST .EXIT0 .SBT .SDSP INI_CGLBL.3 INI_CM_COM.1INI_CS_COM.1INI_CS_COM.2INI_FORMAT_PAR.1INI_FORMAT_PAR.3PAS.CDS O⁤TFORMAT_HDLC $⁤^ FORMAT_HDLC %⁤*FORMAT_HDLC &EEA!!SFORMAT_HDLC  h6` H h6   p?J @`pB JC`@pE   1! @ "`@H (  >  @jDDX]d,5Z]PARSE_HDLC92560-18239 REV.2601 <111111.1 860330.1722CASE/INI_FORMAT_PARSE.PAS::XNIL D_ PARSE_HDLCKK Z.EXIT0 .LBT .SDSP INI_CGLBL.3 INI_CM_COM.1INI_CS_COM.1INI_CS_COM.2INI_FORMAT_PAR.1INI_FORMAT_PAR.3PAS.CDS K `)PARSE_HDLC$ `2PARSE_HDLC% `EPARSE_HDLC& !/PCIF/GSWPCIF/PCHAB.TXT:::4:3:36 644 0 0 1400 5303667141 34265 /PCIF_GS/GSWPCIF/PCHAB.TXT:::4:3:36 #$ ($PCHAB TXT +n`+na+na) FST * "DFHAB 94200-17211 REV.5000 <870604.0716>  --PCIF DESCRIPTION FILE---  HANDLER TYPE = HIGHWAY 94202  BRAND =ALLEN-BRADLEY# COMMENT=The ALLEN-BRADLEY highway handler supports the following PC's: # COMMENT= PLC, mini PLC-/15,PLC-2,PLC-2/20,PLC-2/30, PLC3  TYPE = 1771/PLC-PLC2.FAMILY 1775/PLC3 IO = LU=2 RUN TIME FILE = %PCHAB RUN TIME ENTRY = PC_HW_HAND_AB  DOWNLOAD FILE = !PCFAB CONTEXT SIZE = 6  --PCIF END OF DESCRIPTION--/PCIF/GSWPCIF/PCPAB.TXT:::4:3:34 644 0 0 1400 5303667142 34430 /PCIF_GS/GSWPCIF/PCPAB.TXT:::4:3:34 #$ ,"PCPAB TXT +na+nb+nbiFST * "DFPAB 94200-17212 REV.5000 <870604.0719>  --PCIF DESCRIPTION FILE---  HANDLER TYPE = PC BRAND =ALLEN-BRADLEY COMMENT=The ALLEN-BRADLEY PC handler support the following PC's: " COMMENT=PLC, mini PLC-2,mini PLC-2/15,PLC-2,PLC-2/20,PCL-2/30, PLC3" TYPE = 1771/PLC-2.FAMILY  TYPE = 1774/PLC.FAMILY  TYPE = 1775/PLC-3.FAMILY  IO = MULTI  RUN TIME FILE = %PCPAB RUN TIME ENTRY = PC_PC_HAND_AB  CONTEXT SIZE = 12 SUPPORTED HIGHWAY = 94202  CAPABILITY = 0000111111111111 --PCIF END OF DESCRIPTION--/PCIF/GSWPCIF/PCHGM.TXT:::4:2:22 644 0 0 1000 5303667143 34550 /PCIF_GS/GSWPCIF/PCHGM.TXT:::4:2:22 #$ 0PCHGM TXT +nb+nc+nc FST * "DFHGM 94200-17213 REV.5000 <870604.0720>  --PCIF DESCRIPTION FILE--- HANDLER TYPE = HIGHWAY 4204 BRAND = GOULD-MODICONTYPE = 478/MODBUS ASCII  IO = LU=1 RUN TIME FILE = %PCHGM RUN TIME ENTRY = PC_HW_HAND_GM CONTEXT SIZE = 36 --PCIF END OF DESCRIPTION-- /PCIF/GSWPCIF/PCPGM.TXT:::4:2:22 644 0 0 1000 5303667144 34655 /PCIF_GS/GSWPCIF/PCPGM.TXT:::4:2:22 #$ 4PCPGM TXT +nd+nd+nd FST * [PCPGM 94200-17214 REV.5000 <870604.0745>  --PCIF DESCRIPTION FILE --- HANDLER TYPE = PC BRAND = GOULD-MODICONTYPE = 584/984, 484, 884 PCS RUN TIME FILE = %PCPGM RUN TIME ENTRY = PC_PC_HAND_GM CONTEXT SIZE = 18 IO = MULTI SUPPORTED HIGHWAY = 4204 CAPABILITY = 0001011111111111  --PCIF END OF DESCRIPTION-- ((/PCIF/GSWPCIF/CSCR06.TXT:::3:11:92 644 0 0 5400 5303667176 35370 /PCIF_GS/GSWPCIF/CSCR06.TXT:::3:11:92 "%$  \CSCR06 TXT +n}+n~+n~ r(FST <vFO CSCR06 94200-17234 Rev. 2618 PCIF Screen 6 for ALLEN-BRADLEY <860506>  6 Y F01 V02OC "< > NEW_OLD DC.D061E05Screen 6 for ALLEN-BRA > HWY_TYPEDC.D061E05*Screen 6 for ALLEN-BRA > HWY_NO 9DI.D061E05aScreen 6 for ALLEN-BRA > BRG_0  "OC.B061C052Screen 6 for ALLEN-BRA > BRG_1  "OC.B061C052Screen 6 for ALLEN-BRA > B_300 OC.B061C05+Screen 6 for ALLEN-BRA > B_1200 "OC.B061C05JScreen 6 for ALLEN-BRA > B_2400 )OC.B061C05iScreen 6 for ALLEN-BRA > B_4800 0OC.B061C05Screen 6 for ALLEN-BRA > B_9600 7OC.B061C05Screen 6 for ALLEN-BRA (N&v02S ** SCREEN 6 **(&v02S )P&v02SPCIF/1000 Configuration Editor : Highway ALLEN-BRADLEY Special Information)&v02S *&v02S&v06S&dD] ]&v02S&d@ &v02S ;t&v02S Highway type : &v06S&dD] ]&v02S&d@ Number : &v06S&dD] ]&v02S&d@;&v02S &v02S !@&v02S Baud rate Generator 0: &v06S&dB[ ]&v02S&d@!&v02S !@&v02S Baud rate Generator 1: &v06S&dB[ ]&v02S&d@!&v02S &v02S !@&v02S 300 1200 2400 4800 9600 !\&v02S Baud rate : &v06S&dB[ ]&v02S&d@ or &v06S&dB[ ]&v02S&d@ or &v06S&dB[ ]&v02S&d@ or &v06S&dB[ ]&v02S&d@ or &v06S&dB[ ]&v02S&d@ \&v02S &v02S 'K&v02S WARNING ! For the same MUX card, choose compatible baud rates for '/&v02S the same baud rate generator. &v02S )O )&v02S )O )KFO HELP REFRESH ABORT PCCON KKFO KKFO KKFO KKFO K/PCIF/GSWPCIF/GELADLOG.TXT:::3:14:38 644 0 0 7000 5303667177 36217 /PCIF_GS/GSWPCIF/GELADLOG.TXT:::3:14:38 $'$ &GELADLOG TXT +n+n+nFFST * GELADLOG.TXT 94200-17235 REV.2618 < > $* Getting Started with PCIF/1000 - General Elecrtic example ladder logic$* program  * PROGRAMMER D.D. 4/24/86 &****************************************************************************& |-------|START PROG|--------- ! | note: use output adress for input (PC_WRITED constraint ) ! |  |  | O00001 CONST O0020  |----------| |---------------------|PRESC|---------(TS)-----+  | 060 ( ) | MINUTE TIMER ( ) | ( ) | ( ) | ( ) | O0020 R0001 ( ) |---------| |----------------------|ACCRG|---------( R)-----+  |  |  | O0001 CONST O0021  |---------| |----------------------|PRESC|---------(TS)-----+  | 002 ( ) | ( ) | SIMULATES BOTTLE EVERY 2 SECONDS ( ) | ( ) | ( ) | O0021 R0002 ( )! |---------| |----------------------|ACCRG|---------( R)-------+! |  |  | O0021 R0003 O0022! |---------| |----------------------|PRESC|---------(CU)-------+! | ( ) | ( ) | COUNTS # OF BOTTLES ( ) | ( ) | ( ) | O0022 R0004 ( )! |---------| |----------------------|ACCRG|---------( R)-------+! |  |  | O0001 CONST O0023 ! |---------| |---------------------|PRESEC|---------(TS)-------+! | 015 ( ) | SIMULATES 1 DEFECTIVE BOTTLE EVERY ( ) | 15 SECONDS ( ) | ( ) | ( ) | O0023 R0005 ( )! |---------| |---------------------|ACCRG|----------( R)-------+! |  |  | O0023 R0006 O0024 ! |---------| |---------------------|PRESC|----------(CU)-------+! | ( ) | COUNTS DEFECTIVE BOTTLES ( ) | ( ) | ( ) | ( ) | O0024 R0070 ( )" |---------| |----------------------|ACCRG|---------( R)--------+ " |  |  |  |  |---------|ENDSW|--------  |  |  | `!`(`!(<@p 0/PCIF/GSWPCIF/CSCR16.TXT:::3:11:75 644 0 0 5400 5303667201 35403 /PCIF_GS/GSWPCIF/CSCR16.TXT:::3:11:75 "%$  KCSCR16 TXT +n+n+n R'FST <vFO CSCR16 94200-17236 Rev. 2618 PCIF General Electric Screen 6 <860506.1508>  Y B01 V05OC )$< >NEWOLD NEW_OLD DC.B061C05 General Electric Scre >HTYPE HWY_TYPEDC.B061C05( General Electric Scre >HNUM HWY_NUM =DI.B061C05e General Electric Scre &IMESSAGE1 MESSAGE1 DC.B061C05/ General Electric P BAUD RATE & >A B_9600  )OC.B061C059 General Electric P B >B B_4800 )OC.B061C059 General Electric P B >C B_2400 )OC.B061C059 General Electric P B >D B_1200 )OC.B061C059 General Electric P B >E B_300 )OC.B061C059 General Electric P B 2a&v05S&v06S&dB] ]&d@&v05S ** SCREEN 6 ** 2&v05S &v05S %H&v05S PCIF/1000 Configuration Editor : General Electric Interface%&v05S <v&v05S HIGHWAY TYPE &v06S&dB] ]&d@&v05S HIGHWAY NUMBER &v06S&dB] ]&d@&v05S<&v05S &v05S %G&v05S &v06S&dB] ]&d@&v05S % &v05S ;&v05S (Place an "X" in the desired box) &v05S %G&v05S 9600 &v06S&dB[ ]&d@&v05S %&v05S %G&v05S 4800 &v06S&dB[ ]&d@&v05S %&v05S %G&v05S 2400 &v06S&dB[ ]&d@&v05S %&v05S %G&v05S 1200 &v06S&dB[ ]&d@&v05S %&v05S %G&v05S 300 &v06S&dB[ ]&d@&v05S %)O )&v05S )O )KFO HELP (( REFRESH ABORT PCCON KKFO KKFO KKFO KKFO K/PCIF/GSWPCIF/PCHGE.TXT:::4:2:22 644 0 0 1000 5303667202 34665 /PCIF_GS/GSWPCIF/PCHGE.TXT:::4:2:22 #$ PCHGE TXT +n+n+n FST * "DFHGE 94200-17501 REV.5000 <870604.0736>  --PCIF DESCRIPTION FILE--- HANDLER TYPE = HIGHWAY 94206BRAND = GENERAL ELECRTIC TYPE = GE PROTOCOL IO = LU=2 RUN TIME FILE = %PCHGE RUN TIME ENTRY = PC_HW_HAND_GE CONTEXT SIZE = 36 --PCIF END OF DESCRIPTION-- /PCIF/GSWPCIF/PCPGE.TXT:::4:2:22 644 0 0 1000 5303667203 34773 /PCIF_GS/GSWPCIF/PCPGE.TXT:::4:2:22 #$  PCPGE TXT +n+n+n FST * [PCPGE 94200-17502 REV.5000 <870604.0736>  --PCIF DESCRIPTION FILE --- HANDLER TYPE = PC BRAND = GENERAL ELECTRIC TYPE = SERIES SIX FAMILY RUN TIME FILE = %PCPGE RUN TIME ENTRY = PC_PC_HAND_GM CONTEXT SIZE = 18 IO = MULTI SUPPORTED HIGHWAY = 94206 CAPABILITY = 0001011111111111  --PCIF END OF DESCRIPTION-- /PCIF/GSWPCIF/APPA:::4:194:40 644 0 0 141000 5303667205 35456 /PCIF_GS/GSWPCIF/APPA:::4:194:40  $ (APPA +n+n+n`FST  SOURCE: 94200-17503 REV.5005 APPA The following code is provided strictly as an example of PCIF software and does not imply any HP support.  # { **************************************************************** } ## { * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1986. ALL RIGHTS * } ## { * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED * } ## { * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT * } ## { * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY * } ## { **************************************************************** } ## { } # $CDS ON$  $AUTOPAGE ON$ $RANGE OFF$ $HEAP 0$   $RECURSIVE OFF$ MODULE PCP6C; EXPORT  $INCLUDE '[PCPHL'$ $INCLUDE '[PCGGE'$   PROCEDURE PC_PC_HAND_GE $ALIAS 'PC_PC_HAND_GE'$  (VAR activation_context : ACTIVATION_CONTEXT_TYPE; VAR data_area : BUFFER_AREA_TYPE;  VAR pc_context : GT_PC_CONTEXT);   IMPLEMENT ' {--------------------- EXTERNAL PROCEDURE DECLARATION ---------------------} '  FUNCTION FLUSH_SUB_REQUESTS : COMPLETION_TYPE;  EXTERNAL;   FUNCTION ALLOCATE_BUFFER  (msg_type : BYTE) : COMPLETION_TYPE; EXTERNAL;   FUNCTION SET_WINDOW (msg_type : BYTE; buffer_offset : WORD;  buffer_length : WORD) : COMPLETION_TYPE;  EXTERNAL;   FUNCTION RELEASE_WINDOW $ALIAS 'RELEASE_BUFFER'$  (msg_type : BYTE) : COMPLETION_TYPE; EXTERNAL;   FUNCTION RELEASE_BUFFER  (msg_type : BYTE) : COMPLETION_TYPE; EXTERNAL;   FUNCTION CREATE_UNSOL_REQUEST : COMPLETION_TYPE;  EXTERNAL;  ' {=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-} '  PROCEDURE PC_PC_HAND_GE  (VAR activation_context : ACTIVATION_CONTEXT_TYPE; VAR data_area : BUFFER_AREA_TYPE;  VAR pc_context : GT_PC_CONTEXT);   VAR previous_flag_EI : BOOLEAN; ' {**************************************************************************} '  FUNCTION get_req_buf (length : WORD) : BOOLEAN; # (* Get_req_buf allocates a request buffer with a length specified by #$ the first parameter. Request.status is set to the allocation status$$ in the case of an allocation error...otherwise it is unchanged. The$( function return parameter tells whether a buffer was successfully obtained. (% This procedure alters REQUEST.LENGTH and REQUEST.OFFSET, and may alter% REQUEST.STATUS and ACTION_CODE. *)  VAR status : WORD;   BEGIN {get_req_buf}  WITH activation_context DO  BEGIN request.length := length;  status := allocate_buffer (GC_ALLOCATE_REQ_BUFF); {=1} CASE status OF  0 : get_req_buf := TRUE; SR_status_no_available_memory :  BEGIN (* Need to wait for a request buffer *)  get_req_buf := FALSE; action_code := wait_request_buffer; END; OTHERWISE  BEGIN (* error on allocation *)  get_req_buf := FALSE; request.status := status; END; END; {CASE}  END; {WITH} END; {get_req_buf}  ' {**************************************************************************} '  FUNCTION get_subreq_buf (length : WORD) : BOOLEAN;  % (* Get_subreq_buf does the same thing as get_req_buf, except it allocates% a subrequest buffer instead of a request buffer.$ This procedure alters SUB_REQUEST.LENGTH and SUB_REQUEST.OFFSET, and$ may alter REQUEST.STATUS and ACTION_CODE. *)  VAR status : WORD;   BEGIN {get_subreq_buf}  WITH activation_context DO  BEGIN (* Need to allocate subrequest buffer *) sub_request.length := length;  status := allocate_buffer(GC_ALLOCATE_SBREQ_BUFF); {=2} CASE status OF  0 : get_subreq_buf := TRUE; SR_status_no_available_memory :! BEGIN (* Need to wait for a subrequest buffer *) ! get_subreq_buf := FALSE;  action_code := wait_sub_request_buffer; END; OTHERWISE  BEGIN (* error on allocation *) get_subreq_buf := FALSE;  request.status := status; END; END; {CASE} END; {WITH} END; {get_subreq_buf}  % {***********************************************************************}%  FUNCTION get_window_and_parms" (rem_bit_count, (* Last buffer bit length *) "" rem_byte_count, (* Last buffer byte length *)"" rem_wd_cnt : WORD; (* Last buffer word length *)"( VAR buff_num, (* Number of buffs to send (countdown)*) (& cumul_byte_count, (* Cumulative count of bytes sent *) && next_msg_memadr : WORD) (* Start addr of next buffer *)& : WORD; (* Return status *)  $ (* For READP, READD, WRITEP, WRITED: The needed buffer window size is $# calculated and allocated (conforming with the maximum message size## for reads/writes). Also calculated is the length to read/write in#$ bytes, and the next address to read/write from (in the next message $% to be sent). The number of buffers (messages to be subsequently sent)% is decremented. *)   VAR  stat : WORD; (* Holds error conditions, if any *)# nmbr : GT_TWO_WD_TYPE; (* Used to check the next message address *)#  BEGIN {get_window_and_parms}  nmbr.big := 0; stat := 0;   IF (buff_num = 1) AND (rem_byte_count <> 0) THEN ! BEGIN (* Send the "remainder" buffer -- last one to send *)! buff_num := 0; (* No more buffers after this! *) " stat := set_window (2, cumul_byte_count, rem_byte_count);" cumul_byte_count := cumul_byte_count + rem_byte_count;  ! (* Calculate new address from old address in PC Context *) ! nmbr.lo_abs := next_msg_memadr; & (* Check memory type...add PC Context WORD or BYTE count as needed *)& CASE ((activation_context.sub_request.param1 OF (* 49 = Register Table, 55 = User Logic, *) (* 57 = Diagnostic Status Words; *) (* These three memory types use Word Addressing *)  49, 55, 57 : nmbr.big := nmbr.big + rem_wd_cnt;   OTHERWISE nmbr.big := nmbr.big + rem_byte_count;  END; {CASE}   IF (nmbr.big > 65535) THEN  stat := PC_H_ERR_LEN_OUT_OF_BOUNDS  ELSE  next_msg_memadr := nmbr.lo_abs; END  ELSE IF (buff_num >= 1) THEN  BEGIN (* Send a maximum size buffer *) buff_num := buff_num - 1;  " stat := set_window(2, cumul_byte_count, GC_MAX_MESS_LEN[1]); "! cumul_byte_count := cumul_byte_count + GC_MAX_MESS_LEN[1]; ! ! (* Calculate new address from old address in PC Context *) ! nmbr.lo_abs := next_msg_memadr; & (* Check memory type...add PC Context WORD or BYTE count as needed *)& CASE activation_context.sub_request.param1 OF (* 49 = Register Table, 55 = User Logic, *) (* 57 = Diagnostic Status Words; *) (* These three memory types use Word Addressing *)  49, 55, 57 : nmbr.big := nmbr.big + GC_MAX_MESS_LEN[0]  ! OTHERWISE nmbr.big := nmbr.big + GC_MAX_MESS_LEN[1]; ! END; {CASE}   IF (nmbr.big > 65535) THEN  stat := PC_H_ERR_LEN_OUT_OF_BOUNDS ELSE  next_msg_memadr := nmbr.lo_abs;  END " ELSE (* Error -- cannot invoke this function w/o buffs to send *)" stat := PC_H_ERR_INVOKE_GETWINDOW_WO_BUFF;   get_window_and_parms := stat;  END; {get_window_and_parms}  ' {**************************************************************************} ' ( FUNCTION calc_msg_length (PCIF_lengx : WORD; (* LENGR or LENGW param *) (( VAR num_send_buffs, (* Full + remainder buffs *) (( rem_bit_count, (* Last buffer bit count *) (( rem_byte_count, (* Last buffer byte count *) (( rem_wd_count, (* Last buffer word count *) (( tot_len_bytes : WORD) (* Total msg length *) (( : WORD; (* Return status *) ( # (* Calculates the bit, byte, and word (or number of nodes) remainder #" of a msg with total length of message in bytes for READP, READD,"# WRITEP, and WRITED calls. Makes sure legal length is specified in## LENGR or LENGW for a given call. Bit, byte, and word lengths are # allowed for all calls. It also makes sure that length > 0.  Called by procedures : init_readwrite, init_trans. *)  VAR& lengr : GT_LENGR_TYPE; (* Holds LENGR or LENGW PCAR parameter *)&& stat, (* Holds error occurrance in function *)&& temp : WORD; (* Temporary location to hold MOD calculation *)&  BEGIN {calc_msg_length}  stat := 0;  lengr.lng_wd := PCIF_lengx; IF (lengr.bit13_0 = 0) THEN stat := PC_H_ERR_ILLEGAL_LENGTH ELSE  BEGIN& (* Calculate number of full buffers to send (= # messages needed) *) && num_send_buffs := lengr.bit13_0 DIV GC_MAX_MESS_LEN[lengr.bit15_14]; && temp := lengr.bit13_0 MOD GC_MAX_MESS_LEN[lengr.bit15_14]; &  CASE lengr.bit15_14 OF  0 : BEGIN (*** WORDS ***) rem_wd_count := temp; rem_byte_count := rem_wd_count * 2; rem_bit_count := rem_wd_count * 16;  END;  1 : BEGIN (*** BYTES ***) rem_byte_count := temp; rem_bit_count := rem_byte_count * 8; IF (rem_byte_count MOD 2 = 0) THEN  rem_wd_count := rem_byte_count DIV 2  ELSE rem_wd_count := (rem_byte_count DIV 2) + 1; END;  2 : BEGIN (*** BITS ***)  (* Signal that this is a BIT READ/WRITE *)  activation_context.sub_request.param4 := -1;  rem_bit_count := temp; IF (rem_bit_count MOD 16 = 0) THEN  rem_wd_count := rem_bit_count DIV 16  ELSE rem_wd_count := (rem_bit_count DIV 16) + 1;  IF (rem_bit_count MOD 8 = 0) THEN rem_byte_count := rem_bit_count DIV 8 ELSE rem_byte_count := (rem_bit_count DIV 8) + 1; END; OTHERWISE  stat := PC_H_ERR_ILLEGAL_LENGTH_TYPE; END; {CASE}  ' tot_len_bytes := num_send_buffs * GC_MAX_MESS_LEN[1] + rem_byte_count; ' $ (* Reset number of buffers to send counting non-full remainder *)$ IF (rem_byte_count > 0) THEN  num_send_buffs := num_send_buffs + 1;  END; {ELSE}  calc_msg_length := stat;   END; {calc_msg_length}  ' {**************************************************************************} ' ( FUNCTION calc_memtype_and_addr (PCIF_func, (* e.g. READD *) (( pcadr1, (* ho reference number *) (( pcadr2 : WORD; (* lo reference number *) (( VAR data_flow_dir, (* READ or WRITE direc. *) (( memory_type, (* Series 6 memory type *) (( memory_addr : WORD) (* Memory address *) (( : WORD; (* Return status *) ( $ (* Converts a PCIF function and double integer address as given in the $& PCAR to a GE memory type and data address parameter. Used by functions & READD, READP, WRITED, WRITEP. *)  VAR$ pcadr : GT_TWO_WD_TYPE; (* Holds nnnnnn reference number *) $$ abs_addr : INTEGER; (* Holds address value 0..65535 *) $$ stat : WORD; (* Holds error occurrance in function *) $  BEGIN {calc_memtype_and_addr} WITH pc_context DO  BEGIN stat := 0;  pcadr.hi_abs := pcadr1; pcadr.lo_abs := pcadr2; memory_type := pcadr.big DIV 100000; abs_addr := pcadr.big MOD 100000;  CASE PCIF_func OF % PC_READD : BEGIN (* Legal memory types for READD : 1, 2, 3, 8 *)% data_flow_dir := GC_READ_DATA_FLOW;  # (* Check for BIT READDs (param4 = -1)...only *) ## (* allow lengths in multiples of 16. *) #% IF ((activation_context.sub_request.param4 = -1) AND%# (remainder_buf_bit_count MOD 16 <> 0)) THEN # stat := PC_H_ERR_BIT_LEN_NON_16_MULT;  % CASE memory_type OF (* Check for legal addresses *)%  1 : BEGIN (*** Register Table ***) " (* Set byte-swap signal (param4) *)"& activation_context.sub_request.param4 := 1;&' IF (abs_addr < 1) OR (abs_addr > 16384) THEN '! stat := PC_H_ERR_ILLEGAL_ADDR; !! (* Check for even byte length *) !' IF (remainder_buf_byte_count MOD 2 <> 0) THEN'" stat := PC_H_ERR_ODD_BYTE_LENGTH;" END;   2,3 : BEGIN (*** I/O Tables ***) & IF (abs_addr < 1) OR (abs_addr > 1024) THEN& stat := PC_H_ERR_ILLEGAL_ADDR & (* Check for beginning of byte boundary *) &" ELSE IF (abs_addr MOD 8 <> 1) THEN "( stat := PC_H_ERR_ILLEGAL_BYTE_BOUNDARY; ( END;  % 8 : (*** CCM2 Quick Access Buffer ***) % IF (abs_addr > 1023) THEN stat := PC_H_ERR_ILLEGAL_ADDR;   OTHERWISE ! stat := PC_H_ERR_ILLEGAL_MEM_TYPE; ! END; {CASE}  END;  ( PC_READP : BEGIN (* Legal memory types for READP : 0, 4, 5, 6, 7, 9 *) ( data_flow_dir := GC_READ_DATA_FLOW;  # (* Check for BIT READPs (param4 = -1)...only *) ## (* allow lengths in multiples of 16. *) #% IF ((activation_context.sub_request.param4 = -1) AND%# (remainder_buf_bit_count MOD 16 <> 0)) THEN # stat := PC_H_ERR_BIT_LEN_NON_16_MULT;  % CASE memory_type OF (* Check for legal addresses *)%  0 : ; (*** Absolute Memory ***) ( (* No check necessary here, 0..65535 is legal *) ( " 4,5 : BEGIN (*** I/O Override Tables ***)"& IF (abs_addr < 1) OR (abs_addr > 1024) THEN& stat := PC_H_ERR_ILLEGAL_ADDR & (* Check for beginning of byte boundary *) &" ELSE IF (abs_addr MOD 8 <> 1) THEN "( stat := PC_H_ERR_ILLEGAL_BYTE_BOUNDARY; ( (( END;  # 6 : (*** CPU Scratchpad Memory ***)# IF (abs_addr > 255) THEN  stat := PC_H_ERR_ILLEGAL_ADDR;  ! 7 : BEGIN (*** User Logic Memory ***)!" (* Set byte-swap signal (param4) *)"& activation_context.sub_request.param4 := 1;& IF (abs_addr > 32767) THEN ! stat := PC_H_ERR_ILLEGAL_ADDR; !! (* Check for even byte length *) !' IF (remainder_buf_byte_count MOD 2 <> 0) THEN'" stat := PC_H_ERR_ODD_BYTE_LENGTH;" END;  ' 9 : BEGIN (*** CCM2 Diagnostic Status Words ***) '" (* Set byte-swap signal (param4) *)"& activation_context.sub_request.param4 := 1;&% IF (abs_addr < 1) OR (abs_addr > 20) THEN%! stat := PC_H_ERR_ILLEGAL_ADDR; !! (* Check for even byte length *) !' IF (remainder_buf_byte_count MOD 2 <> 0) THEN'" stat := PC_H_ERR_ODD_BYTE_LENGTH;" END;   OTHERWISE ! stat := PC_H_ERR_ILLEGAL_MEM_TYPE; ! END; {CASE}  END;  $ PC_WRITED : BEGIN (* Legal memory types for WRITED : 1, 3, 8 *)$ data_flow_dir := GC_WRITE_DATA_FLOW;% CASE memory_type OF (* Check for legal addresses *)%  1 : BEGIN (*** Register Table ***) " (* Set byte-swap signal (param4) *)"& activation_context.sub_request.param4 := 1;&' IF (abs_addr < 1) OR (abs_addr > 16384) THEN '! stat := PC_H_ERR_ILLEGAL_ADDR; !! (* Check for even byte length *) !' IF (remainder_buf_byte_count MOD 2 <> 0) THEN'" stat := PC_H_ERR_ODD_BYTE_LENGTH;" END;   3 : BEGIN (*** Input Table ***)& IF (abs_addr < 1) OR (abs_addr > 1024) THEN& stat := PC_H_ERR_ILLEGAL_ADDR & (* Check for beginning of byte boundary *) &" ELSE IF (abs_addr MOD 8 <> 1) THEN "( stat := PC_H_ERR_ILLEGAL_BYTE_BOUNDARY; ( END;  % 8 : (*** CCM2 Quick Access Buffer ***) %% IF (abs_addr < 0) OR (abs_addr > 1023) THEN% stat := PC_H_ERR_ILLEGAL_ADDR;   OTHERWISE ! stat := PC_H_ERR_ILLEGAL_MEM_TYPE; ! END; {CASE}  END;  ' PC_WRITEP : BEGIN (* Legal memory types for WRITEP : 0, 4, 5, 6, 7 *)' data_flow_dir := GC_WRITE_DATA_FLOW;% CASE memory_type OF (* Check for legal addresses *)%  0 : ; (*** Absolute Memory ***) ( (* No check necessary here, 0..65535 is legal *) ( " 4,5 : BEGIN (*** I/O Override Tables ***)"& IF (abs_addr < 1) OR (abs_addr > 1024) THEN& stat := PC_H_ERR_ILLEGAL_ADDR & (* Check for beginning of byte boundary *) &" ELSE IF (abs_addr MOD 8 <> 1) THEN "( stat := PC_H_ERR_ILLEGAL_BYTE_BOUNDARY; ( END;  # 6 : (*** CPU Scratchpad Memory ***)# IF (abs_addr > 255) THEN  stat := PC_H_ERR_ILLEGAL_ADDR;  ! 7 : BEGIN (*** User Logic Memory ***)!" (* Set byte-swap signal (param4) *)"& activation_context.sub_request.param4 := 1;& IF (abs_addr > 32767) THEN ! stat := PC_H_ERR_ILLEGAL_ADDR; !! (* Check for even byte length *) !' IF (remainder_buf_byte_count MOD 2 <> 0) THEN'" stat := PC_H_ERR_ODD_BYTE_LENGTH;" END;   OTHERWISE ! stat := PC_H_ERR_ILLEGAL_MEM_TYPE; ! END; {CASE}  END;   OTHERWISE (* Illegal calc_... entry *)  stat := PC_H_ERR_INVALID_FN_ENTRY;  END; {CASE}  # (* Change memory type value to ASCII-coded hex decimal value *)# memory_type := memory_type + 48;  & (* Change memory address from INTEGER back to WORD type for return *)& pcadr.big := abs_addr;  memory_addr := pcadr.lo_abs;   calc_memtype_and_addr := stat;   END; {WITH} END; {calc_memtype_and_addr} ' {**************************************************************************} '  PROCEDURE init_readwrite;   (* This procedure will set up everything so that a sequence of buffers can be passed to the highway handler. It will  send the first buffer, but if any subsequent buffers need  to be sent, procedure compl_readwrite will do that. *)  VAR buffer_flag : BOOLEAN;  BEGIN {init_readwrite}  WITH activation_context, pc_context DO  BEGIN request.status := calc_msg_length& (request.param1, (* LENGR or LENGW *) && num_buffs_to_send, (* Return *) && remainder_buf_bit_count, (* Return *) && remainder_buf_byte_count, (* Return *) && remainder_buf_wd_count, (* Return *) && tot_length_bytes); (* Return *) &  IF (request.status = 0) THEN  request.status := calc_memtype_and_addr( (request.fonction, (* READ/WRITE PCAR *) (( request.param2, (* ho PCADR *) (( request.param3, (* lo PCADR *) (( sub_request.fonction, (* Return data flow dir *) (( sub_request.param1, (* Return memory type *) (( sub_request.param3); (* Return memory addr *) (  IF (request.status = 0) THEN % IF (request.offset = 0) THEN (* Allocate buffer for READ data *) % buffer_flag := get_req_buf(tot_length_bytes)  ELSE (* Request buffer already allocated *) buffer_flag := TRUE;   IF (request.status = 0) THEN  IF (buffer_flag) THEN& BEGIN (* If request OK and have buffer, calculate length of *)&& (* first msg, set window, and calc amount to read/write *)& next_msg_pcmemadr := sub_request.param3;  cumulative_byte_count := 0;  request.status := get_window_and_parms  (remainder_buf_bit_count,  remainder_buf_byte_count, remainder_buf_wd_count,& num_buffs_to_send, (* Return updated *)&& cumulative_byte_count, (* Return updated *)&& next_msg_pcmemadr); (* Return updated *)&  IF (request.status = 0) THEN  action_code := send_sub_request_wait;  END;  # IF (request.status <> 0) THEN (* Error occurred -- Return! *)# action_code := send_request_completion;  END; {WITH} END; {init_readwrite}  & {*************************************************************************}&  PROCEDURE init_pcstat;   (* This procedure will set up a read of PC status, putting the  result of the physical status into an allocated subrequest# buffer. Compl_pcstat will transform the results into the standard#! PCIF return status word and put that in the allocated request !" buffer. Status is read from addresses 00H to 07H of Series Six " Scratchpad Memory. *)   VAR rq_buffer_flag,  sbrq_buffer_flag : BOOLEAN;  BEGIN {init_pcstat}  WITH activation_context DO  BEGIN request.status := 0;   (** Request Buffer Check **) $ IF (request.offset = 0) THEN (* No request buffer allocated *) $ (* Allocate buffer for standard stat return data *)  rq_buffer_flag := get_req_buf (GC_STATUS_RET_LEN)  ELSE % rq_buffer_flag := TRUE; (* Request buffer already allocated *) %  (** Subrequest Buffer Check **) IF (request.status = 0) THEN  IF (rq_buffer_flag) THEN & BEGIN (* ((Got a req buff, see if we need to get a subreq buff *)& IF (sub_request.offset = 0) THEN % sbrq_buffer_flag := get_subreq_buf (GC_READ_STATUS_LENGTH) % ELSE ( sbrq_buffer_flag := TRUE; (* Subreq buffer already allocated *) ( END;  % IF (request.status = 0) THEN (* No req or subreq buffer errors *) % BEGIN IF (rq_buffer_flag) AND (sbrq_buffer_flag) THEN' BEGIN (* Request OK and have rq and sbrq buffers; Now set up *)'' (* subrequest parameters to put data into subreq buffer. *)'  % { ****** GENERAL ELECTRIC PROPRIETARY INFORMATION ****** } %   action_code := send_sub_request_wait; END;  END ELSE (* Error occured in buffer allocation --- return *)  action_code := send_request_completion;  END; {WITH} END; {init_pcstat}  & {*************************************************************************}&  PROCEDURE init_startstop;  & (* This procedure will set up a write to the PC Scratchpad Memory addresses&& 00H and 01H. A subrequest buffer of length = 2 bytes is allocated, and && values are put into the buffer: a 128 into each byte to STOP the PC, or & a 1 into each byte to START the PC. *)   VAR sbrq_buffer_flag : BOOLEAN;  BEGIN {init_startstop}  WITH activation_context DO  BEGIN request.status := 0;  % IF (sub_request.offset = 0) THEN (* Allocate subrequest buffer *) %" sbrq_buffer_flag := get_subreq_buf (GC_START_STOP_LENGTH) " ELSE (* Subrequest buffer already allocated *) sbrq_buffer_flag := TRUE;  # IF (request.status = 0) THEN (* No subrequest buffer errors *)# BEGIN IF (sbrq_buffer_flag) THEN " BEGIN (* Request OK and have sbrq buffer; Now set up *)"" (* subrequest parameters & load subreq buffer. *)"  % { ****** GENERAL ELECTRIC PROPRIETARY INFORMATION ****** } %   action_code := send_sub_request_wait; END; {sbrq_buffer_flag IF}  END;  # IF (request.status <> 0) THEN (* Error occured --- return! *)# action_code := send_request_completion;  END; {WITH} END; {init_startstop}  & {*************************************************************************}&  PROCEDURE init_ident;  & (* This procedure will just set up a message to the highway handler to get &' the vendor and PC information from the highway handler activation context.'% General Electric does provide any means to easily discern the model of% PC from that PC's memory.  Note that LENGR must equal the equivalent of 10 words. *)   VAR rq_buffer_flag : BOOLEAN;  BEGIN {init_ident}  WITH activation_context DO  BEGIN IF ((request.param1 <> GC_MESS_LENGTH_IDENT[0]) AND (request.param1 <> GC_MESS_LENGTH_IDENT[1]) AND (request.param1 <> GC_MESS_LENGTH_IDENT[2])) THEN request.status := PC_H_ERR_ILLEGAL_IDENT_LEN ELSE  BEGIN  request.status := 0;  IF (request.offset = 0) THEN # (* Allocate buffer to put standard stat return data into *)# rq_buffer_flag := get_req_buf (GC_IDENT_RET_LEN)  ELSE (* Request buffer already allocated *) rq_buffer_flag := TRUE; END; {request.param1 IF}  IF (request.status = 0) THEN  IF (rq_buffer_flag) THEN ! BEGIN (* If request OK and have request buffer, set *) !! (* up subrequest to get physical PC station *) !! (* number from the highway handler. *) ! sub_request.fonction := 0;  sub_request.param1 := 0;  sub_request.param2 := GC_IDENT; sub_request.param3 := 0;  sub_request.param4 := 0;  action_code := send_sub_request_wait; END;  $ IF (request.status <> 0) THEN (* Error -- Hit the road, Jack! *)$ action_code := send_request_completion;  END; {WITH} END; {init_ident}  & {*************************************************************************}&  PROCEDURE init_connect;   BEGIN {init_connect}  WITH activation_context DO  BEGIN sub_request.fonction := 0;  sub_request.param1 := 0;  sub_request.param2 := GC_CONNECT; sub_request.param3 := 0;  sub_request.param4 := 0;  action_code := send_sub_request_wait; END; {WITH}  END; {init_connect}  & {*************************************************************************}&  PROCEDURE init_trans;  " (* Get the two lengths LENGR, LENGW converted to bytes. Since the "# buffer is already allocated by the monitor, set the window to the # greater of LENGR or LENGW, then send the subrequest. *)   TYPE  GT_SUBFCT_TYPE = PACKED RECORD CASE BOOLEAN OF  TRUE : (rdwt_bit15 : 0..1;  mem_type : 0..32767); FALSE : (full_wd : WORD); END;   VAR lengw, % lengr : GT_LENGR_TYPE; (* Hold the lengths passed in *)%% subfct : GT_SUBFCT_TYPE; (* Holds SUBFCT PC_TRANS parameter *)%% buff_count, (* Holds num bufs needed to send LENGR *)%% max_len, (* Holds max of LENGR, LENGW, in bytes *)%% byte_len_w : WORD; (* Holds LENGW in bytes *)%  BEGIN {init_trans}  WITH activation_context, pc_context DO  BEGIN lengw.lng_wd := request.param1; lengr.lng_wd := request.param2; subfct.full_wd := request.param3;  (* Calculate message size for LENGW *)  request.status := calc_msg_length" (* Subtract header size from LENGW *)"( (lengw.lng_wd - GC_HEADER_LEN_TRANS[lengw.bit15_14], ( " num_buffs_to_send, (* Return *)"" remainder_buf_bit_count, (* Return *)"" byte_len_w, (* Return *)"" remainder_buf_wd_count, (* Return *)"" tot_length_bytes); (* Return *)"  IF (request.status = PC_H_ERR_ILLEGAL_LENGTH) THEN $ request.status := 0; (* Ignore zero length for TRANS WRITE *) $ & max_len := GC_HEADER_LEN_TRANS[1]; (* TRANS header part in bytes *) & IF (byte_len_w = 0) AND (num_buffs_to_send = 1) THEN  max_len := max_len + GC_MAX_MESS_LEN[1] ELSE  max_len := max_len + byte_len_w;   IF (request.status = 0) THEN  (* Calculate message size for LENGR *)  request.status := calc_msg_length (lengr.lng_wd, # buff_count, (* Return *)## remainder_buf_bit_count, (* Return *)## remainder_buf_byte_count, (* Return *)## remainder_buf_wd_count, (* Return *)## tot_length_bytes); (* Return *)#  IF (request.status = PC_H_ERR_ILLEGAL_LENGTH) THEN # request.status := 0; (* Ignore zero length for TRANS READ *)# ! IF (remainder_buf_byte_count = 0) AND (buff_count = 1) THEN! (* READ length equals maximum READ length *)  remainder_buf_byte_count := GC_MAX_MESS_LEN[1];  IF (remainder_buf_byte_count > max_len) THEN  (* READ length is greater than WRITE length *)  max_len := remainder_buf_byte_count;   IF (request.status = 0) THEN  BEGIN IF (num_buffs_to_send > 1) OR (buff_count > 1) THEN# (* Limit for PC_TRANS is one buffer (message) to send *) # request.status := PC_H_ERR_ILLEGAL_BUFFSZ_PCTRANS  ELSE ! BEGIN (* Legal request, set up other parameters *)!" (* Window length set to maximum of LENGR and LENGW *)" request.status := set_window (2, 0, max_len); ! (* Get data flow direction from TRANS parameters *)!# IF (lengr.bit13_0 = 0) AND (subfct.rdwt_bit15 = 1) THEN# sub_request.fonction := GC_WRITE_DATA_FLOW & ELSE IF (lengw.bit13_0 = GC_HEADER_LEN_TRANS[lengw.bit15_14])& AND (subfct.rdwt_bit15 = 0) THEN  sub_request.fonction := GC_READ_DATA_FLOW ELSE  request.status := PC_H_ERR_TRANS_DATA_FLOW;  (* Get memory type from SUBFCT parameter *) CASE subfct.mem_type OF' (* Add 48 to change memory type to ASCII-coded hex *) '" 0..9 : sub_request.param1 := subfct.mem_type + 48; " OTHERWISE " request.status := PC_H_ERR_ILLEGAL_MEM_TYPE;" END; {CASE}   sub_request.param2 := GC_TRANSPARENT; sub_request.param3 := 0;  sub_request.param4 := 0;  END; {legal request IF} END; {request.status IF}   IF (request.status = 0) THEN  action_code := send_sub_request_wait ELSE  action_code := send_request_completion; ((  END; {WITH} END; {init_trans}  & {*************************************************************************}&  PROCEDURE init_631x;   BEGIN {init_631x}  WITH activation_context DO  CASE request.fonction OF   PC_CONNECT : init_connect;   PC_CANCEL, PC_DISC, PC_DIUNSOL,  PC_ENUNSOL : action_code := send_request_completion;   PC_IDENT : init_ident;   PC_PCSTAT : init_pcstat;  PC_READD,  PC_READP,  PC_WRITED, PC_WRITEP : init_readwrite;   PC_START,  PC_STOP : init_startstop;   PC_TRANS : init_trans;   PC_CALL0.. PC_CALL63 : BEGIN  request.status := GC_PC_H_NOT_ALLOWED ;! action_code := send_request_completion ; ! END;   OTHERWISE BEGIN  request.status := GC_PC_H_ENTER_ERRORED;! action_code := send_request_completion ; ! END; END; {CASE, WITH} END; {init_631x}  & {************************************************************************} &  PROCEDURE compl_readwrite;  ' (* This procedure is called at the completion of a READ or WRITE subrequest. '& If the original request needed to be split into different messages, and && there are still unsent messages, the new window is set here and the new &$ subrequest is sent out. If this procedure is called after the last $& message has been sent, it terminates the READ/WRITE request normally. *)&  VAR buffer_status : WORD;   BEGIN {compl_readwrite}  WITH activation_context, pc_context DO  BEGIN( buffer_status := release_window(2); (* Assume read/write completes OK *) ( IF (sub_request.status = 0) THEN  BEGIN IF (num_buffs_to_send = 0) THEN (* No more buffers, all done with request! *) action_code := send_request_completion  ELSE  BEGIN (* Send the next window *) sub_request.param3 := next_msg_pcmemadr;   request.status := get_window_and_parms  (remainder_buf_bit_count,  remainder_buf_byte_count, remainder_buf_wd_count,( num_buffs_to_send, (* Return decremented *) (( cumulative_byte_count, (* Return updated *) (( next_msg_pcmemadr); (* Return updated *) (  IF (request.status = 0) THEN ! (* No problems with new window, send it away!! *)! action_code := send_sub_request_wait  ELSE  (* Bad request status, complete request *)  action_code := send_request_completion; END; {num_buffs_to_send IF} END ELSE  BEGIN (* Bad subrequest status returned *) request.status := sub_request.status; action_code := send_request_completion;  END;  END; {WITH} END; {compl_readwrite}  & {************************************************************************} &  PROCEDURE unsol_sub_rq;   VAR i : WORD; rq_buffer_flag : BOOLEAN;  BEGIN {unsol_sub_rq}  WITH activation_context DO  BEGIN request.status := 0;   (* Check for valid unsolicited message (WRITEs only) *) IF (sub_request.fonction <> GC_WRITE_DATA_FLOW) THEN  request.status := GC_PC_H_ENTER_ERRORED;   IF (request.status = 0) THEN  BEGIN (* Create request skeleton *) i := CREATE_UNSOL_REQUEST; request.status := i;  request.fonction := -PC_WRITED; END;   IF (request.status = 0) THEN ' IF (request.offset = 0) THEN (* Get request buffer for unsol data *)' rq_buffer_flag := get_req_buf (sub_request.length)  ELSE (* Request buffer already allocated *)  rq_buffer_flag := TRUE;  IF (request.status = 0) THEN  BEGIN IF (rq_buffer_flag) THEN  BEGIN # (* Transfer subrequest buffer data to request buffer *)# FOR i := 0 TO sub_request.length - 1 DO data_area[request.offset + i] := ' data_area[sub_request.offset + i]; '  action_code := send_request_completion; END;  END ELSE (* Some type of error..request.status <> 0 *) action_code := send_request_completion;  END; {WITH} END; {unsol_sub_rq}  ' {**************************************************************************} '  PROCEDURE compl_pcstat;   BEGIN {compl_pcstat}  WITH activation_context DO  BEGIN IF (sub_request.status = 0) THEN  BEGIN  # { ****** GENERAL ELECTRIC PROPRIETARY INFORMATION ****** } #   END; {sub_request.status IF}   action_code := send_request_completion; request.status := sub_request.status;  END; {WITH} END; {compl_pcstat}  ' {**************************************************************************} '  PROCEDURE compl_ident;  # (* This procedure fills in the request buffer for the IDENT call with#$ values for the vendor (GE), model number (obtained from "pc_type" in$# the PC handler activation context), and the PC physical station ID#$ (obtained from "pc_station_number" in the highway handler activation$ context. *)   CONST ASCII_G = 71; ASCII_E = 69;  TYPE TWO_BYTE_TYPE = PACKED RECORD CASE BOOLEAN OF  TRUE : (wd : WORD); FALSE : (hi_byte, lo_byte : BYTE); END;   VAR temp : TWO_BYTE_TYPE;   BEGIN {compl_ident}  WITH activation_context DO  BEGIN IF (sub_request.status = 0) THEN  BEGIN data_area[request.offset ] := ASCII_G; data_area[request.offset + 1] := ASCII_E;  temp.wd := pc_type; data_area[request.offset + 2] := temp.hi_byte;  data_area[request.offset + 3] := temp.lo_byte;  % (* Extract physical PC station number from subrequest param1 *)% temp.wd := sub_request.param1;  data_area[request.offset + 4] := temp.hi_byte;  data_area[request.offset + 5] := temp.lo_byte;  END ELSE (* Error condition *)  request.status := sub_request.status;  action_code := send_request_completion; END; {WITH} END; {compl_ident}  % {**********************************************************************} %  PROCEDURE compl_631x;   BEGIN {compl_631x}  WITH activation_context DO  CASE request.fonction OF   PC_READD,  PC_READP,  PC_WRITED, PC_WRITEP : compl_readwrite;  PC_IDENT : compl_ident;  PC_PCSTAT : compl_pcstat;   PC_CONNECT,  PC_START,  PC_STOP, PC_TRANS : BEGIN  request.status := sub_request.status;  action_code := send_request_completion;  END;   OTHERWISE BEGIN  request.status := GC_PC_H_ENTER_ERRORED; action_code := send_request_completion ; END; END; {CASE, WITH} END; {compl_631x}  $ {*********************************************************************}$  PROCEDURE rq_initiation;  % (* This procedure is called on the entry of a request to the PC Handler. %" Procedure init_631x is called if the pc_type is a valid General " Electric model. *)   BEGIN {rq_initiation}  WITH activation_context DO  CASE pc_type OF  6316, (* Series Six PC *) 6313, (* Series Three PC *) 6311, (* Series One PC *) 6310 : init_631x; (* Series One Jr. PC *) OTHERWISE BEGIN  action_code := send_request_completion ; request.status := GC_PC_H_ENTER_ERRORED;  END; END; {CASE, WITH} END; {rq_initiation}  % {***********************************************************************}%  PROCEDURE sub_rq_compl;  # (* This procedure is called on the completion of a subrequest to the ## Highway Handler. Procedure compl_631x is called if the pc_type is# a valid General Electric model. *)   BEGIN {sub_rq_compl}  WITH activation_context DO  CASE pc_type OF  6316, (* Series Six PC *) 6313, (* Series Three PC *) 6311, (* Series One PC *) 6310 : compl_631x; (* Series One Jr. PC *) OTHERWISE BEGIN  action_code := send_request_completion ; request.status := GC_PC_H_ENTER_ERRORED;  END; END; {CASE, WITH} END; {sub_rq_compl}  & {************************************************************************} &  PROCEDURE rq_cancelation;   BEGIN {rq_cancelation}  WITH activation_context DO (( BEGIN request.status := flush_sub_requests; action_code := send_request_completion;  END;  END; {rq_cancelation}  & {************************************************************************} && {*************************** MAIN PROGRAM ***************************} && {************************************************************************} &  BEGIN {PC_PC_HAND_GE}  WITH activation_context DO BEGIN   (* Disable the PC Handler to any other *) (* calls before the end of the request. *) previous_flag_EI := action_flag[action_flag_EI];  action_flag[action_flag_EI] := DISABLED;   CASE event OF  initialization : BEGIN % action_flag[action_flag_EI] := ENABLED; %& action_code := no_action; & END; request_initiation : rq_initiation; sub_request_completion : sub_rq_compl;  unsolicited_sub_request: unsol_sub_rq;  request_cancelation : rq_cancelation;  OTHERWISE BEGIN & action_code := send_request_completion;&% request.status := GC_PC_H_ENTER_ERRORED;% END;  END; {CASE}  IF (event = unsolicited_sub_request) THEN action_flag[action_flag_EI] := previous_flag_EI   ELSE IF (action_code = send_request_completion) THEN  action_flag[action_flag_EI] := ENABLED  ELSE IF (action_code = send_sub_request_wait) THEN  action_flag[action_flag_EU] := ENABLED;   END; {WITH}  END; {PC_PC_HAND_GE}  END. .copy off  .number off;number on;number on 0 /PCIF/GSWPCIF/APPB:::4:185:40 644 0 0 134400 5303667206 35435 /PCIF_GS/GSWPCIF/APPB:::4:185:40  $ (APPB +n+n+n\ieFST SOURCE: 94200-17504 REV.5005 APPB  The following code is provided strictly as an example of PCIF software and does not imply any HP support.   $DEBUG OFF$# { } ## { **************************************************************** } ## { * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1986. ALL RIGHTS * } ## { * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED * } ## { * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT * } ## { * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY * } ## { **************************************************************** } ## { } # $CDS ON$  $AUTOPAGE ON$ $RANGE OFF$ $HEAP 0$  $RECURSIVE OFF$  MODULE PCH6C; EXPORT  $INCLUDE '[PCHHL'$ $INCLUDE '[PCGGE'$   PROCEDURE PC_HW_HAND_GE $ALIAS 'PC_HW_HAND_GE'$ (VAR activation_context : ACTIVATION_CONTEXT_TYPE; VAR data_area : BUFFER_AREA_TYPE;  VAR highway_context : GT_HW_CONTEXT);   IMPLEMENT {------------ EXTERNAL PROCEDURE DECLARATION --------------}   FUNCTION ALLOCATE_BUFFER  (msg_type : BYTE) : COMPLETION_TYPE;  EXTERNAL;  FUNCTION SET_WINDOW (msg_type : BYTE; buffer_offset : WORD;  buffer_length : WORD) : COMPLETION_TYPE; EXTERNAL;  FUNCTION RETRIEVE_MSG  (msg_label : WORD) : COMPLETION_TYPE; EXTERNAL;  FUNCTION FLUSH_IO_MSG : COMPLETION_TYPE;  EXTERNAL;   FUNCTION CREATE_UNSOLICITED (PC_mask : WORD; PC_station_number : WORD) : COMPLETION_TYPE;  EXTERNAL;   FUNCTION RELEASE_BUFFER  (msg_type : BYTE) : COMPLETION_TYPE; EXTERNAL;  % {=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=}%  PROCEDURE PC_HW_HAND_GE  (VAR activation_context : ACTIVATION_CONTEXT_TYPE; VAR data_area : BUFFER_AREA_TYPE;  VAR highway_context : GT_HW_CONTEXT);  % {***********************************************************************}%  FUNCTION get_IO_buf (length : WORD) : BOOLEAN;  $ (* Get_IO_buf allocates an IO message buffer with a length specified by$$ the first parameter. IO_msg.status is set to the allocation status $$ in the case of an allocation error...otherwise it is unchanged. The$( function return parameter tells whether a buffer was successfully obtained. ($ This procedure alters IO_MSG.LENGTH and IO_MSG.OFFSET, and may alter$ SUB_REQUEST.STATUS and ACTION_CODE. *)  VAR status : WORD;   BEGIN {get_IO_buf}  WITH activation_context DO  BEGIN IO_msg.length := length; status := allocate_buffer (GC_ALLOCATE_IO_BUFF); {=3}  CASE status OF  0 : get_IO_buf := TRUE;  SR_status_no_available_memory :  BEGIN (* Need to wait for a request buffer *)  get_IO_buf := FALSE;  action_code := wait_IO_msg_buffer;  END; OTHERWISE  BEGIN (* error on allocation *)  get_IO_buf := FALSE;  sub_request.status := status; END; END; {CASE}  END; {WITH} END; {get_IO_buf}  % {***********************************************************************}%  FUNCTION dec_to_4_ascii_hex ( number : WORD;$ VAR digit : GT_ASCII_HEX_BYTE_ARRAY) : WORD; $ $ (* This function takes a decimal WORD value, uses the positive INTEGER $% value for it (values 0..65535 instead of -32768..32767), and converts %$ it to its equivalent four hexadecimal digits. These hex digits are $$ then converted to their ASCII-coded hex equivalents for return. *) $  TYPE NIBBLE_ARRAY = PACKED ARRAY [0..3] OF GT_NIBBLE; # VAR temp : INTEGER; (* Temporary holder for calculations *)## i : WORD; (* Used as status and loop variable *)## newnum : GT_TWO_WD_TYPE; (* Decimal value to be converted *)## dig : NIBBLE_ARRAY; (* Holds the ASCII-coded hex digits *)#  BEGIN {dec_to_4_ascii_hex}  newnum.lo_abs := number;  newnum.hi_abs := 0; temp := newnum.big;   i := 0;  dig[2] := 0;  dig[3] := 0;   (* Calculate the two lowest hex digits *) dig[0] := temp MOD 16; temp := temp DIV 16; dig[1] := temp MOD 16;  $ IF (temp > 15) THEN (* Get third digit, if third and fourth <> 0 *)$ BEGIN temp := temp DIV 16;  dig[2] := temp MOD 16;   IF (temp > 15) THEN (* Get fourth digit, if <> 0 *) BEGIN temp := temp DIV 16;  dig[3] := temp MOD 16;  $ IF (temp > 15) THEN (* > four hex digits, number too big! *)$ i := HW_H_ERR_HEX_OVERFLOW; END;  END;   dec_to_4_ascii_hex := i;   FOR i := 0 TO 3 DO # (* Convert single hex digits in "dig" nibble array to the *)## (* ASCII-coded hex equivalents and put into "digit" byte array *)# CASE dig[i] OF  0..9 : digit[i] := dig[i] + 48; 10..15 : digit[i] := dig[i] + 55; OTHERWISE digit[i] := 48;  END; {CASE}   END; {dec_to_4_ascii_hex}  % {***********************************************************************}%  FUNCTION dec_from_2_ascii_hex (index : WORD) : WORD;  VAR nib_16s, (* Nibble to hold sixteens hex digit *) nib_1s : GT_NIBBLE; (* Nibble to hold ones hex digit *)  % {-----------------------------------------------------------------------}%  FUNCTION cvt_ascii_hex_int  (n : BYTE) : GT_NIBBLE; " (* Takes an ASCII-coded hex decimal value and converts it to its "% corresponding hex value. For out of range values, 0 is returned. *)%  BEGIN {cvt_ascii_hex_int} CASE n OF 48..57 : cvt_ascii_hex_int := n - 48;  65..70 : cvt_ascii_hex_int := n - 55;  OTHERWISE cvt_ascii_hex_int := 0; END; {CASE} END; {cvt_ascii_hex_int} % {-----------------------------------------------------------------------}%  BEGIN {dec_from_2_ascii_hex}  WITH activation_context DO  BEGIN nib_16s := cvt_ascii_hex_int (data_area[index ]);  nib_1s := cvt_ascii_hex_int (data_area[index + 1]);   dec_from_2_ascii_hex := nib_16s * 16 + nib_1s;   END; {WITH} END; {dec_from_2_ascii_hex} % {***********************************************************************}%  FUNCTION set_message_ID  (port_num, physical_pc_ID : WORD)  : WORD; # (* This function calculates a unique message ID number for a request.#" The calculation is made from the port number and the physical PC"$ ID. Since all PCs on a given port must have a unique ID number, and$$ since there can only be one message being processed for any one PC, $# this is all the information th((at is needed for a unique message ID## number (The physical PC ID number alone is not sufficient, because#% it is allowable to have the same physical ID on two different ports). % # The message ID has the format Pnnn, where P is the port and nnn is#$ the physical ID (e.g. 5123 = port 5, PC ID 123). The maximum number$ for the PC physical ID is 255. *)  BEGIN set_message_ID := port_num * 1000 + physical_pc_ID; END;  % {***********************************************************************}%  PROCEDURE build_header;  # (* Procedure Build_header puts the proper ASCII-coded hex values into#" the first 14 bytes of the IO_msg buffer, as per the GE protocol."$ It also sets sub_request.param4 (Label) to an ID number so that the $' correct activation_context can be reobtained for the IO msg completion. *)'  CONST ASCII_HEX_ZERO = 48;   VAR hex_dig : GT_ASCII_HEX_BYTE_ARRAY;  stat, remainder_bytes : WORD;  BEGIN {build_header}  WITH activation_context DO  BEGIN (* Change target PC's physical ID to ASCII-coded hex *) stat := dec_to_4_ascii_hex (pc_station_number, hex_dig);   IF (stat = 0) THEN  BEGIN$ data_area[IO_msg.offset ] := hex_dig[1]; (* TARGET ID *)$ data_area[IO_msg.offset + 1 ] := hex_dig[0];   (* DATA FLOW DIRECTION from PC Handler *)! data_area[IO_msg.offset + 2 ] := sub_request.fonction; !  (* TARGET MEMORY TYPE from PC Handler *)  data_area[IO_msg.offset + 3 ] := sub_request.param1;   (* Change target memory address to ASCII-coded hex *) " stat := dec_to_4_ascii_hex (sub_request.param3, hex_dig);" END;   IF (stat = 0) THEN  BEGIN data_area[IO_msg.offset + 4 ] := hex_dig[3]; $ data_area[IO_msg.offset + 5 ] := hex_dig[2]; (* TARGET *)$$ data_area[IO_msg.offset + 6 ] := hex_dig[1]; (* ADDRESS *)$ data_area[IO_msg.offset + 7 ] := hex_dig[0];   (* Number of full data blocks is always zero *)% data_area[IO_msg.offset + 8 ] := ASCII_HEX_ZERO; (* # DATA *)%% data_area[IO_msg.offset + 9 ] := ASCII_HEX_ZERO; (* BLOCKS *)% & (* Get # bytes in last block from sub_request (window length) *) & remainder_bytes := sub_request.length;   (* Change # bytes in last block to ASCII-coded hex *) ! stat := dec_to_4_ascii_hex (remainder_bytes, hex_dig); ! END;   IF (stat = 0) THEN  BEGIN& data_area[IO_msg.offset + 10] := hex_dig[1]; (* # BYTES IN *) && data_area[IO_msg.offset + 11] := hex_dig[0]; (* LAST BLOCK *) &  (* Put SOURCE ID = FEH (HP1000) into header *) " data_area[IO_msg.offset + 12] := GC_HP1000_ID_HI_BYTE; "" data_area[IO_msg.offset + 13] := GC_HP1000_ID_LO_BYTE; " # (* Get IO message ID number for IO message completion *) #& sub_request.param4 := set_message_ID (port, pc_station_number);&  END;   sub_request.status := stat;  END; {WITH} END; {build_header}  % {***********************************************************************}%  PROCEDURE do_trans_fn;  # (* This procedure allocates the IO message buffer for a TRANS request#$ This buffer is then filled with the header information from the PCAR$# buffer and parameters. For a TRANS READ, the data is read by the #$ pending read put out for unsolicited messages. As in the DO_READ_FN$% procedure, an extra byte is added to the IO buffer to hold the decimal% length to be read (for use by the firmware). *) & CONST TRANS_HDR = 10; (* Length of Header passed in buffer for a TRANS *)&  VAR IO_buffer_flag : BOOLEAN; i : WORD;  hex_dig : GT_ASCII_HEX_BYTE_ARRAY; temp_word : GT_BYTE_TYPE;   BEGIN {do_trans_fn}  WITH activation_context DO  BEGIN sub_request.status := 0;  # IF (IO_msg.offset = 0) THEN (* No IO buffer allocated yet *) #  (* Allocate IO buffer for TRANS READ/WRITE *) CASE sub_request.fonction OF  GC_READ_DATA_FLOW : " IO_buffer_flag := get_IO_buf (GC_HEADER_LEN + 1); " GC_WRITE_DATA_FLOW :  IO_buffer_flag := get_IO_buf (GC_HEADER_LEN ' + sub_request.length - TRANS_HDR); ' OTHERWISE % sub_request.status := HW_H_ERR_ILLEGAL_TRANS_DATA_FLOW; % END {CASE}   ELSE  IO_buffer_flag := TRUE;  IF (sub_request.status = 0) THEN  BEGIN IF (IO_buffer_flag) THEN  BEGIN $ (* Build IO message mapping 10 bytes from sbrq buffer. *)$$ (* Change target PC's physical ID to ASCII-coded hex. *)$ sub_request.status := dec_to_4_ascii_hex # (pc_station_number, hex_dig);#  IF (sub_request.status = 0) THEN  BEGIN & data_area[IO_msg.offset ] := hex_dig[1]; (* TARGET *) && data_area[IO_msg.offset + 1] := hex_dig[0]; (* ID *) &  (* DATA FLOW DIRECTION from PC Handler *)$ data_area[IO_msg.offset + 2] := sub_request.fonction;$  (* TARGET MEMORY TYPE from PC Handler *)# data_area[IO_msg.offset + 3] := sub_request.param1;#  (* Other bytes from sub_request buffer *) FOR i := 0 TO 9 DO  data_area[IO_msg.offset + 4 + i] :=! data_area[sub_request.offset + i];!  CASE sub_request.fonction OF  GC_WRITE_DATA_FLOW : ! (* Transfer WRITE data from sub_request *) !! (* to IO_msg buffer *) !% FOR i := 0 TO sub_request.length - TRANS_HDR - 1 DO% $ (* Byte-swap the data if byte_swap_flag is set *) $' IF (highway_context.byte_swap_flag) THEN (* Byte swap *)' # IF (i MOD 2 = 0) THEN (* Even byte *)#% data_area[IO_msg.offset + GC_HEADER_LEN + i] := %' data_area[sub_request.offset + TRANS_HDR + i + 1]'# ELSE (* Odd byte *)#% data_area[IO_msg.offset + GC_HEADER_LEN + i] := %' data_area[sub_request.offset + TRANS_HDR + i - 1]'' ELSE (* Don't byte swap *) '$ data_area[IO_msg.offset + GC_HEADER_LEN + i] := $& data_area[sub_request.offset + TRANS_HDR + i]; &  GC_READ_DATA_FLOW :  BEGIN (* Put decimal READ length in *)  (* byte 15 for firmware *)  temp_word.wd := sub_request.length;" data_area[IO_msg.offset + GC_HEADER_LEN] :="& temp_word.lobyte; & END;   OTHERWISE( sub_request.status := HW_H_ERR_ILLEGAL_TRANS_DATA_FLOW; ( END; {CASE} & (* Get IO message ID number for IO message completion *) & sub_request.param4 := set_message_ID & (port, pc_station_number); &  IO_msg.fonction := WRITE_LU1; action_code := send_IO_msg_wait;  END;  END ELSE  action_code := wait_IO_msg_buffer;  END;  ! IF (sub_request.status <> 0) THEN (* Error --- Return! *) ! action_code := send_sub_request_completion;  END; {WITH} END; {do_trans_fn}  % {***********************************************************************}%  PROCEDURE do_write_fn;  # (* This procedure allocates the IO message buffer for a WRITE request#" (data flow direction = 56). This buffer is then filled with the"# proper header information (bytes 1-14) followed by the data to be # written (bytes 15..). *)   VAR IO_buffer_flag : BOOLEAN; i : WORD;   BEGIN {do_write_fn}  WITH activation_context DO  BEGIN sub_request.status := 0;  # IF (IO_msg.offset = 0) THEN (* No IO buffer allocated yet *) #% IO_buffer_flag := get_IO_buf (GC_HEADER_LEN + sub_request.length)% ELSE  IO_buffer_flag := TRUE;  IF (sub_request.status = 0) THEN  BEGIN IF (IO_buffer_flag) THEN  BEGIN # (* Build IO message (header & data) and send away!! *) # build_header; & (* Fill IO buffer with WRITE values from subrequest buffer *)& FOR i := 0 TO sub_request.length - 1 DO " (* Byte-swap the data if byte_swap_flag is set *)"& IF (highway_context.byte_swap_flag) THEN (* Byte swap *) & " IF (i MOD 2 = 0) THEN (* Even byte *) "# data_area[IO_msg.offset + GC_HEADER_L((EN + i] :=# data_area[sub_request.offset + i + 1] " ELSE (* Odd byte *) "# data_area[IO_msg.offset + GC_HEADER_LEN + i] :=# data_area[sub_request.offset + i - 1] % ELSE (* Don't byte swap *)%" data_area[IO_msg.offset + GC_HEADER_LEN + i] :=" data_area[sub_request.offset + i];  IO_msg.fonction := WRITE_LU1; action_code := send_IO_msg_wait;  END ELSE  action_code := wait_IO_msg_buffer;  END ELSE (* Error -- sub_request.status <> 0; Return! *) action_code := send_sub_request_completion;  END; {WITH} END; {do_write_fn}  % {***********************************************************************}%  PROCEDURE do_read_fn;  # (* This procedure allocates the IO message buffer for a READ request #" (data flow direction = 48). The buffer length equals the header"" length PLUS one...the extra byte is used by the MUX firmware to "# save an ASCII-hex to decimal reconversion. The decimal number of #% bytes to be read is placed into the extra byte. Bytes 1-14 are filled%& with the proper header info by procedure build_header. The data is read& by the pending read put out for unsolicited messages. *)   VAR IO_buffer_flag : BOOLEAN; temp_word : GT_BYTE_TYPE;   BEGIN {do_read_fn}  WITH activation_context DO  BEGIN sub_request.status := 0;  # IF (IO_msg.offset = 0) THEN (* No IO buffer allocated yet *) # IO_buffer_flag := get_IO_buf (GC_HEADER_LEN + 1)  ELSE  IO_buffer_flag := TRUE;  IF (sub_request.status = 0) THEN  BEGIN IF (IO_buffer_flag) THEN  BEGIN ( (* Build IO message (only the header is needed) & send away!! *) ( build_header; ( (* Put the # bytes to be read into byte 15 (for the firmware) *) ( temp_word.wd := sub_request.length;& data_area[IO_msg.offset + GC_HEADER_LEN] := temp_word.lobyte;&  IO_msg.fonction := WRITE_LU1; action_code := send_IO_msg_wait;  END ELSE  action_code := wait_IO_msg_buffer;  END ELSE (* Error -- sub_request.status <> 0; Return! *) action_code := send_sub_request_completion;  END; {WITH} END; {do_read_fn}  % {***********************************************************************}%  PROCEDURE do_connect_fn;  % (* If not already successfully connected (indicated by the connect flag),%$ this routine will send the function 30b and 33b to the highway LU to$ initialize that port on the MUX.$ Called by procedure sub_rq_initiation for step 1, then by procedure $ do_completion for all subsequent steps. *)  CONST% BIT_12 = 4096; (* 10000B - Baud Rate Generator 1 is used when bit *) %% (* 12 is set, otherwise BRG 0 is used *) %% BIT_13 = 8192; (* 20000B - Used to distinguish READ and WRITE LUs *) %% (* Having bit 13 set means READ LU *) %  VAR IO_buffer_flag : BOOLEAN;  BEGIN {do_connect_fn}  WITH activation_context, highway_context DO BEGIN IF (IO_msg.status = 0) THEN CASE step OF   1 : BEGIN (* ----------- TRANSMITTER ----------- *) (* First send the control 30b request *) (* to set the port ID for the WRITE LU *)  IO_msg.fonction := GC_CTL30B;  # IF (port = 0) THEN (* Use Baud Rate Generator 0 *) # IO_msg.param1 := IO_cntl_30b_pram1.wd ELSE % IO_msg.param1 := IO_cntl_30b_pram1.wd + BIT_12 + port;%  action_code := send_IO_msg_wait; step := 2; END;   2 : BEGIN (* ------------- RECEIVER ----------- *) (* Next send the control 30b request *) (* to set the port ID for the READ LU *)  IO_msg.fonction := GC_CTL30B + 1;  # IF (port = 0) THEN (* Use Baud Rate Generator 0 *) #" IO_msg.param1 := IO_cntl_30b_pram1.wd + BIT_13 " ELSE  IO_msg.param1 := IO_cntl_30b_pram1.wd  + BIT_12 + BIT_13 + port;   action_code := send_IO_msg_wait; step := 3; END;  % 3 : BEGIN (* ---------------- TRANSMITTER ---------------- *) %% (* Send the control 33b request to configure the *) %% (* interface driver response for the WRITE LU *) % IO_msg.fonction := GC_CTL33B;  IO_msg.param1 := IO_cntl_33b_pram1; action_code := send_IO_msg_wait; step := 4; END;  % 4 : BEGIN (* ----------------- RECEIVER ------------------ *) %% (* Send the control 33b request to configure the *) %% (* interface driver response for the READ LU *) % IO_msg.fonction := GC_CTL33B + 1;  IO_msg.param1 := IO_cntl_33b_pram1; action_code := send_IO_msg_wait; step := 5; END;  $ 5 : BEGIN (* Successful -- now create a pending read for *) $$ (* unsolicited requests coming on this port *) $% IO_msg.fonction := read_LU2; (* Pending read to LU 2 *) % & IF (IO_msg.offset = 0) THEN (* Allocate IO msg buffer *)&# IO_buffer_flag := get_IO_buf(GC_PENDING_READ_LEN) #( ELSE (* IO buffer already allocated *) ( IO_buffer_flag := TRUE;   IF (sub_request.status = 0) THEN BEGIN  IF (IO_buffer_flag) THEN! BEGIN (* Status OK and have IO message *)!! (* buffer, so send out pending *)!! (* read -- Successful Connect!!! *)! IO_msg.param1 := 0;  IO_msg.param3 := 0; ! action_code := send_sub_request_IO_msg; ! connect_flag := CONNECTED;! action_flag[action_flag_EI] := ENABLED; ! step := 0; END;" (* ELSE need to wait for IO message buffer *) " END " ELSE (* Buffer allocation error -- Return! *) " action_code := send_sub_request_completion;   END;   OTHERWISE BEGIN  sub_request.status := HW_H_ERR_ILLEGAL_STEP;" action_code := send_sub_request_completion;" END;   END {CASE}  $ ELSE (* Error occured somewhere (IO_msg.status <> 0); Return! *)$ BEGIN sub_request.status := IO_msg.status;  action_code := send_sub_request_completion;  END;   END; {WITH} END; {do_connect_fn}  % {***********************************************************************}%  PROCEDURE do_ident_fn;  " (* Will simply return to the PC handler the physical PC identifier "! from the activation context. Placed in subrequest param1. *) !  BEGIN {do_ident_fn}  WITH activation_context DO  BEGIN sub_request.param1 := pc_station_number;  sub_request.status := 0;  action_code := send_sub_request_completion; END; {WITH} END; {do_ident_fn}  % {***********************************************************************}%  PROCEDURE sub_rq_initiation;   BEGIN {sub_rq_initiation}  WITH activation_context, highway_context DO BEGIN step := 1; (* Initialize step for this request *)  % (* Set up byte swap flag (TRUE for WORD and BIT READs/WRITEs). *) %% (* Sub_request.param4 was set in CALC_MSG_LENGTH in PC Handler. *) % IF (sub_request.param4 > 0) THEN  byte_swap_flag := TRUE ELSE  byte_swap_flag := FALSE;   IF (highway_type = GC_GENERAL_ELECTRIC_HWY_CODE) THEN  CASE sub_request.param2 OF  GC_TRANSPARENT : do_trans_fn;  GC_CONNECT : IF (connect_flag = DISCONNECTED) THEN  do_connect_fn  ELSE BEGIN  sub_request.status := 0;% action_code := send_sub_request_completion; % END;  GC_IDENT : do_ident_fn;  OTHERWISE CASE sub_request.fonction OF GC_WRITE_DATA_FLOW : do_write_fn;  GC_READ_DATA_FLOW : do_read_fn; OTHERWISE  BEGIN( sub_request.status := HW_H_ERR_ILLEGAL_DATA_FLOW; (% action_code := send_sub_reques((t_completion; % END;  END; {sub_request.fonction CASE}  END {sub_request.param2 CASE}   ELSE (* Error -- not a General Electric highway *) BEGIN sub_request.status := HW_H_ERR_ILLEGAL_HWY_TYPE;  action_code := send_sub_request_completion;  END;  END; {WITH} END; {sub_rq_initiation}  % {***********************************************************************}%  PROCEDURE process_cancel;   BEGIN {process_cancel}  WITH activation_context DO  BEGIN (* Service routine cancels IO msgs *) sub_request.status := flush_IO_msg; action_code := send_sub_request_completion;  END; {WITH} END; {process_cancel}  % {***********************************************************************}%  PROCEDURE unsol_treatment;  $ (* This procedure processes unsolicited messages coming from a General $% Electric PLC. The IO message buffer contains the unsolicited message,% which will be in the following format :   UNSOLICITED FORMAT & 1 2 3 4 ... 12 13 14 15 ... 254 max &$ +----+----+----+--------------+----+----+----------------------+$$ | | | | | | | |$$ | 70 69 | 56 | ... | ?? ?? | WRITE DATA |$$ | | | | | | | (240 bytes max) |$$ +----+----+----+--------------+----+----+----------------------+$ TARGET DATA SOURCE PC ID FLOW PC ID' (FEH) (56 = WRITE) *) '  VAR status, physical_pc_ID : WORD;  IO_buffer_flag : BOOLEAN;  BEGIN {unsol_treatment}  WITH activation_context DO  BEGIN IF (action_code = wait_IO_msg_buffer) THEN  BEGIN$ (* This is here to take care of the case where not enough *)$$ (* buffer space was available when the pending read buffer *)$$ (* was needed (get_IO_buf call below). The HWY Handler is *)$$ (* exited, and when a buffer is available this part will *)$$ (* be executed, not the part below. *)$ IO_msg.fonction := READ_LU2;   (* Send the unsolicited to the PC *)  (* Handler, send the new pending READ *)  action_code := send_sub_request_IO_msg; END $ ELSE IF (data_area[IO_msg.offset + 2] = GC_WRITE_DATA_FLOW) THEN $  BEGIN (* Only unsolicited WRITEs are allowed!!! *)  (* Unsolicited READs will be ignorede!!!! *)  IF (IO_msg.status = 0) THEN BEGIN ( (* Get physical PC ID from message (SOURCE ID = bytes 13, 14) *) (% physical_pc_ID := dec_from_2_ascii_hex(IO_msg.offset + 12);%  (* Create sub_request skeleton for unsolicited *) status := create_unsolicited(0, physical_pc_ID);   IF (status = 0) THEN # (* Set sub_request window to the IO message buffer *)# status := set_window(2, 0, IO_msg.param4);   IF (status = 0) THEN  (* Get rid of IO message buffer *)  status := release_buffer(3);   IF (status = 0) THEN  BEGIN  sub_request.fonction := GC_WRITE_DATA_FLOW; " (* Allocate another IO buffer for pending read *)"# IO_buffer_flag := get_IO_buf(GC_PENDING_READ_LEN); #  IF (IO_buffer_flag) THEN  BEGIN  IO_msg.fonction := READ_LU2;  ! (* Send unsolicited to PC Handler, send *) !! (* out the new pending READ *) !! action_code := send_sub_request_IO_msg;! END; END;  END; {IO_msg.status IF} END;   (* ELSE ignore unsolicited *)   END; {WITH} END; {unsol_treatment}  % {***********************************************************************}%  PROCEDURE reply_treatment;  % (* This procedure processes a successful reply to a READ or WRITE request%% to a GE PLC. The IO message buffer contains the reply, which will be %$ in one of two formats (the information in bytes 1 to 14 is put into $ the IO message by the MUX firmware) :   READ REPLY FORMAT & 1 2 3 4 ... 12 13 14 15 ... 254 max &$ +----+----+----+--------------+----+----+----------------------+$$ | | | 0 | | | | |$$ | ?? ?? | to | ... | 70 69 | WRITE DATA |$$ | | | 7 | | | | (240 bytes max) |$$ +----+----+----+--------------+----+----+----------------------+$ TARGET PORT SOURCE PC ID NUM. PC ID (FEH)  WRITE REPLY FORMAT  1 2 3 4 ... 12 13 14  +----+----+----+--------------+----+----+  | | | 0 | | | |  | ?? ?? | to | ... | 70 69 |  | | | 7 | | | |  +----+----+----+--------------+----+----+  TARGET PORT SOURCE PC ID NUM. PC ID' (FEH) *) '  VAR status, physical_pc_ID,  msg_ID, port_num, i : WORD;   BEGIN {reply_treatment}  WITH activation_context DO  BEGIN IF (IO_msg.status = 0) THEN BEGIN& (* Get physical PC ID from IO message (TARGET ID = bytes 1, 2) *)&! physical_pc_ID := dec_from_2_ascii_hex(IO_msg.offset); ! & (* Get port number from message (placed in byte 3 by firmware) *)& port_num := data_area[IO_msg.offset + 2]; % (* Recalculate message ID from physical PC ID & port number *) % msg_ID := set_message_ID(port_num, physical_pc_ID);  (* Retrieve activation context for this reply *)  status := retrieve_msg(msg_ID);  IF (status = 0) THEN  BEGIN  CASE sub_request.fonction OF  % GC_WRITE_DATA_FLOW : ; (* Successful WRITE; do nothing *)% & GC_READ_DATA_FLOW : (* Successful READ; transfer data *)&& (* from IO buffer to sbrq buffer *)&# FOR i := 0 TO IO_msg.param4 - GC_HEADER_LEN - 1 DO# $ (* Byte-swap the data if byte_swap_flag is set *) $' IF (highway_context.byte_swap_flag) THEN (* Byte swap *)' # IF (i MOD 2 = 0) THEN (* Even byte *)# data_area[sub_request.offset + i] :=' data_area[IO_msg.offset + GC_HEADER_LEN + i + 1] '# ELSE (* Odd byte *)# data_area[sub_request.offset + i] :=' data_area[IO_msg.offset + GC_HEADER_LEN + i - 1] '' ELSE (* Don't byte swap *) ' data_area[sub_request.offset + i] :=% data_area[IO_msg.offset + GC_HEADER_LEN + i];%  OTHERWISE " sub_request.status := HW_H_ERR_ILLEGAL_RTN_DATA;" END; {CASE}  $ (* Send reply back to PC Handler, resend pending READ *) $ action_code := send_sub_request_IO_msg; END ELSE  (* Resend pending READ *) action_code := send_IO_msg_wait;  END ELSE  (* Resend pending READ *) action_code := send_IO_msg_wait;   END; {WITH} END; {reply_treatment}  % {***********************************************************************}%  PROCEDURE handle_MUX_error; % (* This procedure processes an error message received from the MUX. The %% error message is received in the place of a successful reply response.%! The error message in the IO buffer has the following format : !  ERROR MESSAGE FORMAT  1 2 3 4 +----+----+----+----+  | 0 | | | |  | to | ?? ?? | ?? |  | 7 | | | |  +----+----+----+----+  PORT TARGET ERROR ' NUM. PC ID CODE *) '  VAR status, physical_pc_ID,  msg_ID, port_num : WORD;   BEGIN {handle_MUX_error}  WITH activation_context DO  BEGIN$ (* Get port number from message (placed in byte 1 by firmware) *)$ port_num := data_area[IO_msg.offset];  (* Get physical PC ID from IO message *)  (* (placed in bytes 2, 3 by firmware) *) ! physical_pc_ID := dec_from_2_ascii_hex(IO_msg.offset + 1); ! # (* Recalculate message ID from physical PC ID & port number *) # msg_ID := set_message_ID(port_num, physical_pc_ID);  (* Retr((ieve activation context for this error *)  status := retrieve_msg(msg_ID);  IF (status = 0) THEN  BEGIN' (* Set sub_request status to error code in byte 4 of IO message *) ' sub_request.status := data_area[IO_msg.offset + 3]  + GC_MUX_ERROR_OFFSET;  " (* Send back error to PC Handler, resend pending READ *) " action_code := send_sub_request_IO_msg;  END ELSE  (* Resend pending READ *) action_code := send_IO_msg_wait;   END; {WITH} END; {handle_MUX_error}  % {***********************************************************************}%  PROCEDURE compl_request;  ( (* This procedure handles incoming messages from the General Electric PLC. *) (( (* The four legal return messages are : *) (( (* *) (( (* 1. READ REPLY - Header (with port # in byte 3) + Read Data *) (( (* 2. WRITE REPLY - Header (with port # in byte 3) *) (( (* 3. UNSOLICITED *) (( (* MESSAGE - Header + Unsolicited Write Data *) (( (* 4. ERROR INFO - Four bytes: Byte 1 contains the port # *) (( (* Bytes 2, 3 contain the target PLC ID *) (( (* Byte 4 contains the error code *) (( (* *) (( (* The following diagram shows the coordination between the highway handler *) (( (* and the General Electric PLC. Arrows pointing down represent data sent *) (( (* from Highway Handler to the PLC, and arrows pointing up represent data *) (( (* sent from the PLC to the Highway Handler. Information in the middle of *) (( (* an arrow represents data added by the firmware (not part of GE protocol).*) (( (* =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= ( ' action_code : sub_rq_initiation IO_msg_completion IO_msg_completion '$ IO_msg.fonction : WRITE_LU1 WRITE_LU1 READ_LU2$ & HEADER ^ ^ or ^&& | | | |&' R E A D | | HEADER+DATA ERROR'& | | | |&& v | DATA |& ' event : send_IO_msg_wait no_action send_sub_rq_compl ' ( =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- ( ' action_code : sub_rq_initiation IO_msg_completion IO_msg_completion '$ IO_msg.fonction : WRITE_LU1 WRITE_LU1 READ_LU2$ & HEADER+DATA ^ ^ or ^&& | | | |&' W R I T E | | HEADER ERROR'& | | | |&& v | | |&  ' event : send_IO_msg_wait no_action send_sub_rq_compl ' ( =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= *) (  VAR status : COMPLETION_TYPE ; byte1_recv,  byte2_recv : BYTE;  A_register : GT_A_REG_TYPE;   BEGIN {compl_request}  WITH activation_context DO  BEGIN A_register.wd := IO_msg.param3; (* Get A register *) & IF (A_register.download_bit = 1) THEN (* MUX card not downloaded *) & BEGIN$ (* Set up variables and do a CONNECT to initialize drivers *)$$ (* Firmware will be downloaded by the Monitor *)$ sub_request.status := GC_CARD_ERRORED;  highway_context.connect_flag := DISCONNECTED; highway_context.step := 1;  do_connect_fn;  END # ELSE IF (A_register.e_bit = 1) THEN (* Communications error *)# BEGIN" (* E bit is set on return from MUX...abort message and *)"" (* return to PC Handler (and resend pending READ). *)" sub_request.status := IO_msg.status;  action_code := send_sub_request_IO_msg;  END  ELSE (* No download (power fail) error -- proceed *)  CASE IO_msg.fonction OF  WRITE_LU1 : BEGIN (* Exec write completion *) IF (IO_msg.status = 0) THEN  (* Wait for IO_msg_completion *) (* with IO_msg.fonction = READ_LU2 *)  action_code := no_action   ELSE ' BEGIN (* IO write error -- return to PC Handler *)'( action_code := send_sub_request_completion; (! sub_request.status := IO_msg.status; ! END;  END;  READ_LU2 : BEGIN" byte1_recv := data_area[IO_msg.offset ];"" byte2_recv := data_area[IO_msg.offset + 1];"  IF (byte1_recv IN [0..7]) THEN  ' (* Byte 1 of read buffer holds a port number; *) '' (* therefore read buffer holds an error message *) ' handle_MUX_error  % ELSE IF ((byte1_recv = GC_HP1000_ID_HI_BYTE) AND %& (byte2_recv = GC_HP1000_ID_LO_BYTE)) THEN & % (* Target ID bytes of message equal the *)%% (* HP1000 ID, therefore the read buffer *)%% (* holds an unsolicited message. *)% unsol_treatment  % ELSE (* Message is a reply to a successful *)%% (* READ or WRITE request. *)% reply_treatment;  END;   OTHERWISE BEGIN' sub_request.status := HW_H_ERR_ILLEGAL_IO_MSG_RETURN;'& action_code := send_sub_request_completion; & END;  END; {CASE}    END; {WITH} END; {compl_request}  % {***********************************************************************}%  PROCEDURE do_completion;   BEGIN {do_completion}  WITH activation_context DO  BEGIN CASE sub_request.param2 OF  GC_CONNECT : do_connect_fn; OTHERWISE compl_request; END; {CASE}  END; {WITH} END; {do_completion}  % {***********************************************************************}%  PROCEDURE hw_init;   BEGIN {hw_init} WITH highway_context, activation_context DO BEGIN connect_flag := DISCONNECTED;  action_code := no_action; action_flag[action_flag_EI] := ENABLED; END;  END; {hw_init}  % {***********************************************************************}%% {*************************** MAIN PROGRAM **************************}%% {***********************************************************************}%  BEGIN {PC_HW_HAND_GE}  WITH activation_context DO BEGIN CASE event OF  initialization : hw_init;  sub_request_initiation : sub_rq_initiation;  IO_msg_completion : do_completion;  sub_request_cancelation : process_cancel; OTHERWISE BEGIN# action_code := send_sub_request_completion;#$ sub_request.status := GC_HW_H_ENTER_ERRORED; $ END;   END; {CASE} END; {WITH} END; {PC_HW_HAND_GE}  END {this END added for modules} ..copy off  .number off;number on;number on 0 /PCIF/GSWPCIF/APPC:::4:37:40 644 0 0 22400 5303667206 34261 /PCIF_GS/GSWPCIF/APPC:::4:37:40 $% %(APPC +n+n+n%mdFST SOURCE: 94200-17505 REV.5005 APPC  The following code is provided strictly as an example of PCIF software and does not imply any HP support.  # { **************************************************************** } ## { * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1986. ALL RIGHTS * } ## { * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED * } ## { * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT * } ## { * THE PRIOR WRITTEN CONSENT OF HEWLETT-P((ACKARD COMPANY * } ## { **************************************************************** } # # { **************************************************************** } ## { ***** GLOBAL DECLARATIONS FOR THE GENERAL ELECTRIC HANDLERS **** } ## { **************************************************************** } #  TYPE  GT_BIT = 0..1;   GT_NIBBLE = 0..15;   COMPLETION_TYPE = WORD;   GT_CTL30B_TYPE = PACKED RECORD CASE BOOLEAN OF TRUE : (wd : WORD); FALSE : (bits_per_char : 0..3; bit_13, brg : GT_BIT; stop_bits,  parity : 0..3; enq_ack : GT_BIT; baud_rate : 0..15;  port_num : 0..7);  END;   GT_PC_CONTEXT = RECORD  num_buffs_to_send,( remainder_buf_bit_count, (* Number of bits *) (( remainder_buf_byte_count, (* Rounded up # bytes *) (( remainder_buf_wd_count, (* Rounded up # words *) ( tot_length_bytes, ( next_msg_pcmemadr, (* PCmemadr to use next *) (( cumulative_byte_count : WORD; (* Bytes sent up to now *) ( END;   GT_HW_CONTEXT = PACKED RECORD  io_cntl_30b_pram1 : GT_CTL30B_TYPE; io_cntl_33b_pram1 : WORD; connect_flag : BOOLEAN;  byte_swap_flag : BOOLEAN;  step : 0..16383; END; {RECORD}   CONST GC_CTL30B = 1536; (* 30B *) GC_CTL33B = 1728; (* 33B *)  % GC_TRANSPARENT = -32759; (* 8 + bit 16 set to 1 : Gould, GE *)%% GC_CONNECT = -32747; (* 20 + bit 16 set to 1 : Gould, GE *)%% GC_IDENT = -32737; (* 30 + bit 16 set to 1 : Gould, GE *)%  GC_CARD_ERRORED = 256;   ENABLED = TRUE; DISABLED = FALSE; CONNECTED = TRUE; DISCONNECTED = FALSE;   TYPE  BUFFSZ_TBL_TYPE = ARRAY [0..2] OF WORD; ' (* Used by calc_msg_length & init_trans, it is the PCAR LENGR param type *)' GT_LENGR_TYPE = PACKED RECORD CASE BOOLEAN OF( TRUE : (bit15_14 : 0..3; (* length code: 0=wd, *) (( bit13_0 : 0..16383); (* 1=byte, 2=bit *) ( FALSE : (lng_wd : WORD);  END;  % (* Type GT_ASCII-HEX-BYTE-ARRAY is used for decimal to ASCII-coded hex % conversions for the header in the Highway Handler *) GT_ASCII_HEX_BYTE_ARRAY = PACKED ARRAY [0..3] OF BYTE;   GT_A_REG_TYPE = PACKED RECORD CASE BOOLEAN OF TRUE : (wd : WORD); FALSE : (unused : 0..1023; cntl_d, fill4, fill3, type_ahead_bit, download_bit, e_bit : GT_BIT);  END;   GT_TWO_WD_TYPE = PACKED RECORD CASE BOOLEAN OF  TRUE : (big : INTEGER); FALSE : (hi_abs, lo_abs : WORD); END;   GT_BYTE_TYPE = PACKED RECORD CASE BOOLEAN OF  TRUE : (wd : WORD);  FALSE : (hibyte, lobyte : -128..127); END;  ' (* =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= *)'' (* =-=-=-=-=-=-=-=-= PC HANDLER CONSTANTS -=-=-=-=-=-=-=-=-=-=-= *)'' (* =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= *)'  CONST$ (* words bytes bits *)$$ (* | | | *)$$ (* v v v *)$$ GC_MAX_MESS_LEN = BUFFSZ_TBL_TYPE [120, 240, 1920]; $ $ GC_MESS_LENGTH_IDENT = BUFFSZ_TBL_TYPE [ 10, 16404,-32607]; $$ GC_HEADER_LEN_TRANS = BUFFSZ_TBL_TYPE [ 5, 10, 80]; $ ( GC_ALLOCATE_REQ_BUFF = 1; (* Allocate function request buffer param *) (( GC_ALLOCATE_SBREQ_BUFF = 2; (* Allocate function subrequest buffer param *) (( GC_ALLOCATE_IO_BUFF = 3; (* Allocate function IO buffer param *) ( % GC_STATUS_RET_LEN = 2; (* Return request buff size for PCSTAT *) %% GC_IDENT_RET_LEN = 20; (* Return request buff size for IDENT *) %  GC_PC_TRANS_READ = -1;  GC_PC_TRANS_WRITE = -2;   GC_SCRATCHPAD_MEMORY = 54;   GC_READ_DATA_FLOW = 48;  GC_WRITE_DATA_FLOW = 56;   (* PC Handler errors numbers 132..233 may be used *) # (* PC Handler External errors -- could be seen by user: 132..141 *)# ' GC_PC_H_NOT_ALLOWED = 128; (* Invalid request *)'' PC_H_ERR_ILLEGAL_ADDR = 131; (* Illegal address *)'' PC_H_ERR_ILLEGAL_LENGTH_TYPE = 132; (* LENGR unit type = 3 *)'' PC_H_ERR_ILLEGAL_MEM_TYPE = 133; (* Illegal memory type *)'' PC_H_ERR_ILLEGAL_BYTE_BOUNDARY = 134; (* Not on byte boundary *)'& PC_H_ERR_TRANS_DATA_FLOW = 135; (* Data flow direction does &' not match TRANS buffers *)'' PC_H_ERR_ODD_BYTE_LENGTH = 136; (* Odd byte length for User *)'' (* Logic, Reg Table, or *)'' (* Diagnostic Status Words *)'' PC_H_ERR_BIT_LEN_NON_16_MULT = 137; (* Bit READ length not a *)'' (* multiple of 16 *)'' PC_H_ERR_ILLEGAL_LENGTH = 140; (* Zero length *)'' PC_H_ERR_ILLEGAL_BUFFSZ_PCTRANS = 141; (* Length too large for ??? *)'' PC_H_ERR_ILLEGAL_IDENT_LEN = 232; (* Illegal LENGR if not equal '' to 10 wds or equivalent *)' & (* PC Handler Internal errors -- should not be seen by user: 142..233 *) & ' PC_H_ERR_INVOKE_GETWINDOW_WO_BUFF = 200; (* Getwnd called w/o buffer *)'' PC_H_ERR_LEN_OUT_OF_BOUNDS = 202; (* Tot len > 65535 bits/wds *)' PC_H_ERR_INVALID_FN_ENTRY = 201;  ' GC_PC_H_ENTER_ERRORED = 234; (* Invalid PC type, event, *)'' (* or request *)' ' (* =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= *)'' (* =-=-=-=-=-=-=-=-= HIGHWAY HANDLER CONSTANTS =-=-=-=-=-=-=-=-=-=-= *)'' (* =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= *)'  GC_GENERAL_ELECTRIC_HWY_CODE = 631;  GC_PENDING_READ_LEN = 256; ( GC_HEADER_LEN = 14; (* Header length without *) (( (* protocol characters *) (( GC_HP1000_ID_HI_BYTE = 70; (* Host Source ID for Header *) (( GC_HP1000_ID_LO_BYTE = 69; (* in ASCII-coded hex (FEH) *) (  (* Highway Handler error numbers 258..349 may be used *) & (* Highway Handler External errors -- could be seen by user: 258..309 *) & ( GC_MUX_ERROR_OFFSET = 300; (* Errors 301.. = MUX errors *) ( $ (* Highway Handler Internal errors -- never seen by user: 310..349 *)$ " HW_H_ERR_ILLEGAL_STEP = 310; (* Bad step in CONNECT *)"( HW_H_ERR_HEX_OVERFLOW = 311; (* Hex num too lrg for conversion *) ( HW_H_ERR_ILLEGAL_DATA_FLOW = 312; HW_H_ERR_ILLEGAL_TRANS_DATA_FLOW = 313; HW_H_ERR_ILLEGAL_RTN_DATA = 314;' HW_H_ERR_ILLEGAL_IO_MSG_RETURN = 315; (* IO message.fonction <> READ_LU2 ' or WRITE_LU1 *)  HW_H_ERR_ILLEGAL_HWY_TYPE = 316;  GC_HW_H_ENTER_ERRORED = 361;.copy off  .number off;number on;number on 0 /PCIF/GSWPCIF/APPD:::4:459:37 644 0 0 345400 5303667210 35730 /PCIF_GS/GSWPCIF/APPD:::4:459:37  $ %APPD +n+n+nR FST SOURCE: 94200-17506 REV.5005 APPD  The following code is provided strictly as an example of PCIF software and does not imply any HP support.  # ; * ## ; PCIF/1000 SKeleton Mux Firmware * ## ; (Use Cross Assembler ZASM) * ## ; * ## ; (( * ## ; *************************************************** * ## ; * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1986. * * ## ; * ALL RIGHTS RESERVED. NO PART OF THIS PROGRAM * * ## ; * MAY BE PHOTOCOPIED, REPRODUCED OR TRANSLATED * * ## ; * TO ANOTHER PROGRAM LANGUAGE WITHOUT THE PRIOR * * ## ; * WRITTEN CONSENT OF THE HEWLETT-PACKARD COMPANY. * * ## ; *************************************************** * ## ; * ## ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; MACRO DEFINITIONS  ;# ;******************************************************************* # ; ; Macro BSS  ; BSS MACR #CNT ORG $+#CNT  ENDM  ; ; Macro STACK  ; STACK MACR #NAME ORG $+80H  #NAME EQU $  ENDM  ; ; Macro PROCES  ; PROCES MACR #NAM #NAME: BSS STBYTS+2 NUMPRS DEFL NUMPRS+1  ENDM  ; ; Macro ENTRY  ; ENTRY MACR  RES STRUN.MOD.8,(IY+STRUN/8) ENDM  ; ; Macro SBIT  ; SBIT MACR #NAME #NAME EQU STBIT STBIT DEFL STBIT+1  ENDM  ; ; Macro SUSPND  ; SUSPND MACR #BITNAM  SET #BITNAM.MOD.8,(IY+#BITNAM/8) CALL SUSPSB  RES #BITNAM.MOD.8,(IY+#BITNAM/8) ENDM  *EJECT  ; ; Macro SSPND2  ; SSPND2 MACR #BITNM1,#BITNM2  SET #BITNM1.MOD.8,(IY+#BITNM1/8) SET #BITNM2.MOD.8,(IY+#BITNM2/8) CALL SUSPSB  RES #BITNM1.MOD.8,(IY+#BITNM1/8) RES #BITNM2.MOD.8,(IY+#BITNM2/8) ENDM  ; ; Macro SSPND4  ; SSPND4 MACR #BITNM1,#BITNM2,#BITNM3,#BITNM4  SET #BITNM1.MOD.8,(IY+#BITNM1/8) SET #BITNM2.MOD.8,(IY+#BITNM2/8) SET #BITNM3.MOD.8,(IY+#BITNM3/8) SET #BITNM4.MOD.8,(IY+#BITNM4/8) CALL SUSPSB  RES #BITNM1.MOD.8,(IY+#BITNM1/8) RES #BITNM2.MOD.8,(IY+#BITNM2/8) RES #BITNM3.MOD.8,(IY+#BITNM3/8) RES #BITNM4.MOD.8,(IY+#BITNM4/8) ENDM  ; ; Macro SSPND8  ; SSPND8 MACR #B1,#B2,#B3,#B4,#B5,#B6,#B7,#B8  SET #B1.MOD.8,(IY+#B1/8) SET #B2.MOD.8,(IY+#B2/8) SET #B3.MOD.8,(IY+#B3/8) SET #B4.MOD.8,(IY+#B4/8) SET #B5.MOD.8,(IY+#B5/8) SET #B6.MOD.8,(IY+#B6/8) SET #B7.MOD.8,(IY+#B7/8) SET #B8.MOD.8,(IY+#B8/8) CALL SUSPSB  RES #B1.MOD.8,(IY+#B1/8) RES #B2.MOD.8,(IY+#B2/8) RES #B3.MOD.8,(IY+#B3/8) RES #B4.MOD.8,(IY+#B4/8) RES #B5.MOD.8,(IY+#B5/8) RES #B6.MOD.8,(IY+#B6/8) RES #B7.MOD.8,(IY+#B7/8) RES #B8.MOD.8,(IY+#B8/8) ENDM  *EJECT  ; ; Macro POST  ; POST MACR #NAME  SET #NAME.MOD.8,(IX+#NAME/8) ENDM  ; ; Macro TEST  ; TEST MACR #NAME  BIT #NAME.MOD.8,(IX+#NAME/8) ENDM  ; ; Macro CLEAR  ; CLEAR MACR #NAME  RES #NAME.MOD.8,(IX+#NAME/8) ENDM  ; ; Macro POSTMUX - assumes BC has the port # ; POSTMUX MACR #BIT LD HL,STATUS ADD HL,BC SET #BIT,(HL)  ENDM  ; ; Macro TESTMUX - assumes BC has the port # ; TESTMUX MACR #BIT LD HL,STATUS ADD HL,BC BIT #BIT,(HL)  ENDM  ; ; Macro CLEARMUX - assumes BC has the port #  ; CLEARMUX MACR #BIT LD HL,STATUS ADD HL,BC RES #BIT,(HL)  ENDM ; ; Macro PROCIN  ; PROCIN MACR #NAM  DEFB 0,1,0,0,0,0,0,0  DEFW SP#NAM-2  ENDM  *EJECT  ; ; Macro TXTBL  ; TXTBL MACR #BUF DEFW #BUF DEFB 0,0 DEFW #BUF+256  DEFB 0 ENDM  ; ; Macro RXTBL  ; RXTBL MACR #BUF DEFW #BUF DEFB 0,0,0,0,0 DEFW #BUF+256 DEFB 0,0,0  ENDM  ;# ;******************************************************************* # ; ; End of MACRO Definitions  ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; EQUATES ;# ;******************************************************************* # ; ; System Equates  ; MONRAM EQU 4000H ;monitor RAM space 4000-4100H. RAMADR EQU 5800H ;starting address for data area ! NMIPTR EQU MONRAM+1 ;location of address of NMI routine !! TICMAX EQU 1 ;TBG scale factor (1 => 10 millisec)! ; ; Command Equates (MUX to HOST) ; TXBUFAV EQU 01H ;transmit buffer available command  BREAK EQU 04H ;break detected command # RXAV1 EQU 05H ;received text available cmnd (1st word)## RXAV2 EQU 08H ;received text available cmnd (2nd word)#! RXAVM EQU 05H ;received text available cmnd M-bit !! RXAVP EQU 06H ;received text available cmnd P-bit !! RXAVT EQU 03H ;received text available cmnd T-bit ! ; ; Character Equates  ; ; ((( Insert Character Definitions Here ))) ; ; Backplane Parameters  ; TXBFSZ EQU 254 ;size of TX buffer BPLNF EQU 3000H ;backplane address-no flag set BPLF EQU 2000H ;backplane address-flag is set BPLSTS EQU 0FFH ;backplane status latch address  ; ; Protocol parameters ; ; ((( Insert Protocol Parameters Here ))) ;" ;******************************************************************" *EJECT " ;******************************************************************" ; ; I/O Address Equates  ;" ;******************************************************************" ; ; Counter-Timer Chips (CTCs) ;! CTC0 EQU 0AH ;CTC channel 0 (baud rate gen BPG0) !! CTC1 EQU 1AH ;CTC channel 1 (baud rate gen BPG1) ! CTC2 EQU 2AH ;CTC channel 2 (DMA pacer) CTC3 EQU 3AH ;CTC channel 3 (System timer)  ; ; DMA Chip  ; DMADR EQU 08H ;DMA chip address  ; ; SIO Chips - Note: to get I/O address for port #N,  ; add N to the parameters below  ; SIOFC EQU 10H ;SIO #1, CHAN A CONTROL-PORT 0 SIOFD EQU 00H ;SIO #1, CHAN A DATA -PORT 0 ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; STATUS WORD DEFINITIONS  ;# ;******************************************************************* # ; ; BIT NUMBERS FOR SPECIAL MUX BITS  ; STRXAN EQU 1 ;RX buffer available STRXFN EQU 2 ;RX buffer full  STTXAN EQU 3 ;TX data available STTXEN EQU 4 ;TX buffer empty STTMON EQU 5 ;timeout has occurred  ; ; BYTE0- PORT 0+STNMI ; STBIT DEFL 0 ;force byte 0  SBIT STNMI ;non-maskable interrupt  SBIT STRXA0 ;RX buffer available SBIT STRXF0 ;RX buffer full  SBIT STTXA0 ;TX data available SBIT STTXE0 ;TX buffer empty SBIT STTMO0 ;timeout has occurred  *EJECT  ; ; BYTE1- PORT 1+STRUN ; STBIT DEFL 8 ;force byte 1  SBIT STRUN ;this bit always set SBIT STRXA1 ;RX buffer available SBIT STRXF1 ;RX buffer full  SBIT STTXA1 ;TX data available SBIT STTXE1 ;TX buffer empty SBIT STTMO1 ;timeout has occurred  ; ; BYTE2- PORT 2+STDMA ; STBIT DEFL 16 ;force byte 2  SBIT STDMA ;DMA completion  SBIT STRXA2 ;RX buffer available SBIT STRXF2 ;RX buffer full  SBIT STTXA2 ;TX data available SBIT STTXE2 ;TX buffer empty SBIT STTMO2 ;timeout has occurred  *EJECT  ; ; BYTE3- PORT 3+STBACK  ; STBIT DEFL 24 ;force byte 3  SBIT STBACK ;backplane interrupt acknowledge SBIT STRXA3 ;RX buffer available SBIT STRXF3 ;RX buffer full  SBIT STTXA3 ;TX data available SBIT STTXE3 ;TX buffer empty SBIT STTMO3 ;timeout has occurred  ; ; BYTE4- PORT 4+STTMR ; STBIT DEFL 32 ;force byte 4  SBIT STTMR ;awaken timer process  SBIT STRXA4 ;RX buffer available SBIT STRXF4 ;RX buffer full  SBIT STTXA4 ;TX data available SBIT STTXE4 ;TX buffer empty SBIT STTMO4 ;timeout has occurred  *EJECT  ; ; BYTE5- PORT 5+STEIRQ  ; STBIT DEFL 40 ;force byte 5  (( SBIT STEIRQ ;interrupt requests enabled  SBIT STRXA5 ;RX buffer available SBIT STRXF5 ;RX buffer full  SBIT STTXA5 ;TX data available SBIT STTXE5 ;TX buffer empty SBIT STTMO5 ;timeout has occurred  ; ; BYTE6- PORT 6+STBAVL  ; STBIT DEFL 48 ;force byte 6  SBIT STBAVL ;backplane available SBIT STRXA6 ;RX buffer available SBIT STRXF6 ;RX buffer full  SBIT STTXA6 ;TX data available SBIT STTXE6 ;TX buffer empty SBIT STTMO6 ;timeout has occurred  *EJECT  ; ; BYTE7- PORT 7+STABRT  ; STBIT DEFL 56 ;force byte 7  SBIT STABRT ;BPL abort operation SBIT STRXA7 ;RX buffer available SBIT STRXF7 ;RX buffer full  SBIT STTXA7 ;TX data available SBIT STTXE7 ;TX buffer available SBIT STTMO7 ;timeout has occurred  ; ; Size of status byte area  ; STBYTS EQU (7+STBIT)/8 ;BYTES IN STATUS WORD  ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; FLAG WORD DEFINITIONS ;# ;******************************************************************* # ; ; MUXFLG (Special MUX Flags) Definitions ; RXFULL EQU 0 ;no more empty RX buffers  RXSNT EQU 1 ;RXEBF sent to host if 0 TXFULL EQU 2 ;no more empty TX buffers " INFOHOST EQU 3 ;inform host when TX buffer available " BREAKFLG EQU 4 ;break detected flag RXERROR EQU 7 ;RX error flag ; ; TXFLGS (Transmit Flags) Definitions  ; ; ((( Insert Transmit Flag Definitions Here ))) ; ; RXFLGS (Receiver Flags) Definitions  ; ; ((( Insert Receive Flage Definitions Here ))) ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; SEQCNT Definition ; ; SEQCNT is a group of 8 sequence counters, one for each ! ; port. Each counter keeps track of the state of the data ! ; comm protocol for the port. The state assignment is  ; as follows:  ; SEQIDL EQU 0 ;idle state  ; ; ((( Insert Remaining State Definitions Here ))) ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; RAM DATA STORAGE DEFINITIONS - WILL BE INITIALIZED ;# ;******************************************************************* # ; ORG RAMADR  ; ; Status Flags  ; STATUS: BSS STBYTS  ; ; Process State Tables  ;$ NUMPRS DEFL 0 ;initialize number of background processes$ PTABLE EQU $ ;process table area  PROCES PRBPL ;backplane process PROCES PRTMR ;timer process PROCES PRRCV ;receive process PROCES PRSEQ0 ;sequence process 0  PROCES PRSEQ1 ;sequence process 1  PROCES PRSEQ2 ;sequence process 2  PROCES PRSEQ3 ;sequence process 3  PROCES PRSEQ4 ;sequence process 4  PROCES PRSEQ5 ;sequence process 5  PROCES PRSEQ6 ;sequence process 6  PROCES PRSEQ7 ;sequence process 7  ; ; Receive buffer parameters ; RXSTRT EQU $ ;start of RX table RXABF0: BSS 2 ;active receive buffer address RXALN0: BSS 2 ;active receive buffer length  RXACT0: BSS 2 ;active receive buffer count RXAFL0: BSS 1 ;active receive buffer flags RXEBF0: BSS 2 ;extra receive buffer address RXELN0: BSS 2 ;extra receive buffer length  RXEFL0: BSS 1 ;extra receive buffer flags RXTBLN EQU $-RXSTRT ;length of RX table  ; RXABF1: BSS 7 RXEBF1: BSS 5 ; RXABF2: BSS 7 RXEBF2: BSS 5 ; RXABF3: BSS 7 RXEBF3: BSS 5 ; RXABF4: BSS 7 RXEBF4: BSS 5 ; RXABF5: BSS 7 RXEBF5: BSS 5 ; RXABF6: BSS 7 RXEBF6: BSS 5 ; RXABF7: BSS 7 RXEBF7: BSS 5 ; ; Transmit buffer parameters  ; TXSTRT EQU $ ;start of TX table TXABF0: BSS 2 ;active transmit buffer address  TXALN0: BSS 1 ;active transmit buffer length TXACT0: BSS 1 ;active transmit buffer count  TXEBF0: BSS 2 ;extra transmit buffer address  TXELN0: BSS 1 ;extra transmit buffer length TXTBLN EQU $-TXSTRT ;length of TX table  ; TXABF1: BSS 4 TXEBF1: BSS 3 ; TXABF2: BSS 4 TXEBF2: BSS 3 ; TXABF3: BSS 4 TXEBF3: BSS 3 ; TXABF4: BSS 4 TXEBF4: BSS 3 ; TXABF5: BSS 4 TXEBF5: BSS 3 ; TXABF6: BSS 4 TXEBF6: BSS 3 ; TXABF7: BSS 4 TXEBF7: BSS 3 ; ; SIO Programming Table ; SIOPROG EQU $ BSS 1 SIO4: BSS 1 ;SIO -WR4  BSS 1 SIO3: BSS 1 ;SIO -WR3  BSS 1 SIO5: BSS 1 ;SIO -WR5  BSS 1 SIO1: BSS 1 ;SIO -WR1  SIO0: BSS 1 ;SIO -WR0  ; ; EQT-Port Map Table  ; KEYTBL: BSS 8 ;# ;******************************************************************* # ; ; END OF INTIIALIZED RAM AREA  ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ;! ; RAM DATA AREA THAT NEEDS TO BE ZEROED FOR INITIALIZATION ! ;# ;******************************************************************* # ; ; Start of zero initialization area ; ZEROB: EQU $ ; ; Timeout timers and retry counters ; TICCNT: BSS 1 TIMERS: BSS 8 RETRYS: BSS 8 ; ; MUX state flags and sequence counters ; MUXFLG: BSS 8 SEQCNT: BSS 8 ; ; Protocol specific flag and state variables  ; ; ((( Insert Protocol Variables Here )))  ; ; End of zero initialization area ; ZEROE: EQU $ ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; STORAGE NOT NECESSARY TO BE INITIALIZED OR ZEROED ;# ;******************************************************************* # ; ; Stacks  ; SCSP: BSS 2 ;scheduler stack save word STACK SPSCHD ;scheduler stack STACK SPBPL ;BPL command process stack STACK SPTMR ;timer process stack STACK SPRCV ;receive process stack STACK SPSEQ0 ;sequence process 0 stack  STACK SPSEQ1 ;sequence process 1 stack  STACK SPSEQ2 ;sequence process 2 stack  STACK SPSEQ3 ;sequence process 3 stack  STACK SPSEQ4 ;sequence process 4 stack  STACK SPSEQ5 ;sequence process 5 stack  STACK SPSEQ6 ;sequence process 6 stack  STACK SPSEQ7 ;sequence process 7 stack  ; ; Backplane communication buffers ; BPBUF: BSS 18 ;BACKPLANE CNTRL WRD BUFFER  BPABRT: BSS 2 ;BACKPLANE ABRT WRD BUFF BPWRD2: BSS 2 ;MUX TO HOST 2ND WRD OF CMND ; ; Receive buffers (Active and extra)  ; RXBF0: BSS 512 RXBF1: BSS 512 RXBF2: BSS 512 RXBF3: BSS 512 RXBF4: BSS 512 RXBF5: BSS 512 RXBF6: BSS 512 RXBF7: BSS 512  ; ; Transmit buffers (Active and extra) ; TXBF0: BSS 512 TXBF1: BSS 512 TXBF2: BSS 512 TXBF3: BSS 512 TXBF4: BSS 512 TXBF5: BSS 512 TXBF6: BSS 512 TXBF7: BSS 512  ;# ;******************************************************************* # ; ; END OF RAM DATA AREA  ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; INITIALIZATION START UP CODE  ;# ;******************************************************************* # ; ORG 4010H ;origin for RAM code ; ; Initialize process stacks ; INIT: LD HL,PRBPL  LD (SPBPL-2),HL  LD HL,PRTMR  LD (SPTMR-2),HL  LD HL,PRRCV  LD (SPRCV-2),HL  LD HL,PRSEQ0  LD (SPSEQ0-2),HL LD HL,PRSEQ1  LD (SPSEQ1-2),HL LD HL,PRSEQ2  LD (SPSEQ2-2),HL LD HL,PRSEQ3  LD (SPSEQ3-2),HL LD HL,PRSEQ4  LD (SPSEQ4-2),HL LD HL,PRSEQ5  LD (SPSEQ5-2),HL LD HL,PRSEQ6  LD (SPSEQ6-2),HL LD HL,PRSEQ7  LD (SPSEQ7-2),HL ; ; Initialize scheduler stack  ; LD SP,SPSCHD  ; ; (( Initialize RAM data area  ; LD HL,RAMDAT LD DE,RAMADR  LD BC,RAMDTE-RAMDAT  LDIR  ; ; Zero out RAM data area  ; LD BC,ZEROE-ZEROB  LD HL,ZEROB LD DE,ZEROB+1  LDIR  *EJECT  ; ; Initialize status vector pointer for scheduler  ; LD IX,STATUS ;set IX = status vector address  ; ; Initialize interrupt mode registers ; LD A,INTTRP.SHR.8 ;set A = interrupt vector MSB LD I,A ;set I = interrupt vector MSB! IM 2 ;set interrupt mode 2 (vectored) ! ; ; Initialize CTC interrupt vector ; LD A,CTCTRP.AND.255 ;set A = interrupt vector LSB OUT (CTC0),A ;program CTC interrupt vector ; ; Initialize NMI interrupt routine  ; LD HL,NMITRP ;set HL = NMI routine address! LD (NMIPTR),HL ;install in reserved RAM location! ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; I/O DEVICE INITIALIZATION  ;# ;******************************************************************* # ; ; CTC Timer  ;# LD A,10100101B ;set A = timer control value (enbl int) # OUT (CTC3),A ;initialize time base generator " LD A,144 ;set A = time constant for 10 millisec" OUT (CTC3),A ;send to timer ; ; DMA Pacer  ; LD A,01011111B ;set A = DMA pacer control value OUT (CTC2),A ;initialize DMA pacer  LD A,1 ;set A = DMA pacer time constant OUT (CTC2),A ;send to timer ; ; Program baud rate generators BRG0 & BRG1. ; NOTE: SIO is programmed to X16 clock (default)  ; LD A,01010101B ;set A = TBG control value OUT (CTC0),A ;send to BRG0  OUT (CTC1),A ; and to BRG1  ; ; Default baud rate for port 0 is 2400 baud ;! LD A,48 ;set A = time constant for 2400 baud! OUT (CTC0),A ;send to BRG0  ; ; Default baud rate for ports 1-7 is 9600 baud  ;! LD A,12 ;set A = time constant for 9600 baud! OUT (CTC1),A ;send to BRG1  ; ; Program SIO chip interrupt vectors (Channel B reg WR2)  ;# LD HL,SIOIV ;set HL = interrupt vector table address# LD A,17H ;set A = SIO#4, channel B address  LOOP1: LD B,2 ;set B = byte count # LD C,A ;set C = SIO I/O control channel address#" OTIR ;output 2 bytes to SIO control channel" SUB 2 ;set A = next SIO address  CP 0FH ;all SIO chips done ? # JR NZ,LOOP1 ;no, loop back to program next SIO chip # *EJECT  ; ; Program other SIO chip registers  ;! ; NOTE: Reg A has 0FH (1ST SIO control channel address - 1)! ; from the previous step  ;$ LOOP2: LD HL,SIOIN ;set HL = SIO initialization table address$$ LD B,9 ;set B = SIO initialization table length $$ INC A ;set A = next SIO control channel address $$ LD C,A ;set C = next SIO control channel address $ OTIR ;output the table to the SIO chip  CP 17H ;all SIO chips done ? $ JR NZ,LOOP2 ;no, loop back to initialize next SIO chip$ ; ; DMA chip initialization ; LD C,DMADR ;set C = DMA I/O address  LD B,DMAIE-DMAII ;set B = DMA table length LD HL,DMAII ;set HL = DMA table address  OTIR ;program DMA chip  ; ; End of Initialization ; EI ;enable interrupts! LD HL,0000H ;tell A-series that self test passed!! LD (BPLF),HL ;also sets bp flag as a response to ! ; ; the reset command  ; ; Branch into scheduler (MUX operating system)  ; JP SCHDUL ;jump into MUX operating system  ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; ROM TABLES AND CONSTANTS  ;# ;******************************************************************* # ; ; CTC baud rate generator table ; 1st byte: SIO constant ; 2nd byte: CTC prescaler value  ; 3rd byte: CTC time constant  ; CTCTIM: DEFB 10000000B ;SIOX32  DEFB 15H ;PRESCALER - 16  DEFB 144 ;TIME CONST FOR 50 BAUD  CTCLEN EQU $-CTCTIM ;LEN-EACH ENTRY IN TBL DEFB 10000000B ;SIOX32  DEFB 15H ;PRESCALER - 16  DEFB 96 ;TIME CONSTANT FOR 75 BAUD DEFB 01000000B ;SIOX16  DEFB 15H ;PRESCALER - 16  DEFB 131 ;TIME CONST FOR 110 BAUD DEFB 11000000B ;SIOX64  DEFB 55H ;NO PRESCALER  DEFB 214 ;TIME CONST FOR 134.5 BAUD DEFB 01000000B ;SIOX16  DEFB 15H ;PRESCALER - 16  DEFB 96 ;TIME CONST FOR 150 BAUD DEFB 11000000B ;SIOX64  DEFB 55H ;NO PRESCALER  DEFB 96 ;TIME CONST FOR 300 BAUD DEFB 01000000B ;SIOX16  DEFB 55H ;NO PRESCALER  DEFB 96 ;TIME CONST FOR 1200 BAUD  DEFB 01000000B ;SIOX16  DEFB 55H ;NO PRESCALER  DEFB 64 ;TIME CONST FOR 1800 BAUD  DEFB 11000000B ;SIOX64  DEFB 55H ;NO PRESCALER  DEFB 12 ;2400 BAUD -DEFLT PORTS 4-7  DEFB 10000000B ;SIOX32  DEFB 55H ;NO PRESCALER  DEFB 12 ;TIME CONST FOR 4800 BAUD  DEFB 01000000B ;SIOX16  DEFB 55H ;NO PRESCALER  DEFB 12 ;9600 BAUD - DEFLT PORTS 0-3 DEFB 10000000B ;SIOX32  DEFB 55H ;NO PRESCALER  DEFB 3 ;TIME CONST FOR 19.2 K BAUD  *EJECT  ; ; The following baud rates are not announced in the ; manual. We will set baud rate 13 ti 38.4 K baud; ; baud rates 14 and 15 will be set to 9600 baud.  ; DEFB 01000000B ;SIOX16  DEFB 55H ;NO PRESCALER  DEFB 3 ;38.4K BAUD!!!!! DEFB 01000000B DEFB 55H  DEFB 12 ;9600 BAUD DEFB 01000000B DEFB 55H  DEFB 12 ;9600 BAUD ; ; SIO Interrupt Vector LSB (written to register WR2 ; of channel B for all SIO chips) ; SIOIV: DEFB 2 ;point to WR2. DEFB SIOI4.AND.255 ;port 6 & 7  DEFB 2 DEFB SIOI3.AND.255 ;port 4 & 5  DEFB 2 DEFB SIOI2.AND.255 ;port 2 & 3  DEFB 2 DEFB SIOI1.AND.255 ;port 0 & 1  ; ; DMA Initialization commands ; DMAII: DEFB 0C3H ;reset DMA chip  DEFB 10010001B ;interrupt control follows DEFB 00010010B ;interrupt control DEFB DMATRP.AND.255 ;interrupt vector LSB  DEFB 10001010B ;RDY line active high  DMAIE: EQU $ ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; RAM DATA INITIALIZATION TABLES  ;# ;******************************************************************* # ; ; Status Flags  ; RAMDAT: DEFB 00000000B ;ST VEC PORT0+STNMI  DEFB 00000001B ;ST VEC PORT1+STRUN  DEFB 00000000B ;ST VEC PORT2+STDMA  DEFB 00000000B ;ST VEC PORT3+STBACK DEFB 00000000B ;ST VEC PORT4+STTMR  DEFB 00000000B ;ST VEC PORT5+STEIRQ DEFB 00000001B ;ST VEC PORT6+STBAVL DEFB 00000000B ;ST VEC PORT7+STABRT ; ; Process Tables  ; PROCIN BPL ;backplane process PROCIN TMR ;timer process PROCIN RCV ;receive process PROCIN SEQ0 ;sequence process 0  PROCIN SEQ1 ;sequence process 1  PROCIN SEQ2 ;sequence process 2  PROCIN SEQ3 ;sequence process 3  PROCIN SEQ4 ;sequence process 4  PROCIN SEQ5 ;sequence process 5  PROCIN SEQ6 ;sequence process 6  PROCIN SEQ7 ;sequence process 7  ; ; Receive buffer tables ; RXTBL RXBF0 RXTBL RXBF1 RXTBL RXBF2 RXTBL RXBF3 RXTBL RXBF4 RXTBL RXBF5 RXTBL RXBF6 RXTBL RXBF7  ; ; Transmit buffer tables  ; TXTBL TXBF0 TXTBL TXBF1 TXTBL TXBF2 TXTBL TXBF3 TXTBL TXBF4 TXTBL TXBF5 TXTBL TXBF6 TXTBL TXBF7  *EJECT  ; ; SIO initialization - 2nd part (for channels A(( & B)  ; SIOIN: DEFB 4 ;WR4 DEFB 01000110B ;X16,1 stop bit, no parity DEFB 3 ;WR3 DEFB 11000001B ;RX 8 bits, RX enable  DEFB 5 ;WR5 DEFB 01101000B ;TX 8 bits, TX enable  SIOIN1: DEFB 1 ;WR1 DEFB 00010110B ;interrupt on TX, RX, RX special DEFB 0 ;WR0 ; ; EQT-Port Key table  ; DEFB 0FFH ;Port 0 key init DEFB 0FFH ;Port 1 key init DEFB 0FFH ;Port 2 key init DEFB 0FFH ;Port 3 key init DEFB 0FFH ;Port 4 key init DEFB 0FFH ;Port 5 key init DEFB 0FFH ;Port 6 key init DEFB 0FFH ;Port 7 key init ; ; End byte of preset data - this byte will clear out  ; the first location of the RAM zero-init area  ; DEFB 0 ;always last byte or ROM data  RAMDTE: EQU $ ;end of ROM data ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; SCHDUL - PROCESSES SCHEDULER  ;! ; The process table is searched for a process that is ready!! ; to execute. "STATUS" is compared to each process status ! ; entry. Any bit match means the process can be run. ;" ; Note: the process table contains the process stack pointer." ; All context must be saved in the stack between process ; activations. At all times, the TOS entry should be the  ; process restart address.  ;# ; There is no priority in scheduling. Each process is granted # ; an equal opportunity in a round-robin fashion.  ; SCHDUL: NOP ; ; Initialize for process table scan ; SCHD00 EQU $ LD IY,PTABLE ;set IY = process table address  LD C,NUMPRS ;set C = number of processes  ; ; Process table scan loop ; SCHD50: LD A,(IX+0) ;set A = 1st status byte  AND (IY+0) ;mask in 1st process byte  LD D,A ;accumlate in D  LD A,(IX+1) ;set A = 2nd status byte  AND (IY+1) ;mask in 2nd process byte  OR D ;accumulate in D LD D,A  LD A,(IX+2) ;set A = 3rd status byte  AND (IY+2) ;mask in 3rd process byte  OR D ;accumulate in D LD D,A  LD A,(IX+3) ;set A = 4th status byte  AND (IY+3) ;mask in 4th process byte  OR D ;accmulate in D  LD D,A  LD A,(IX+4) ;set A = 5th status byte  AND (IY+4) ;mask in 5th process byte  OR D ;accumulate in D LD D,A  LD A,(IX+5) ;set A = 6th status byte  AND (IY+5) ;mask in 6th process byte  OR D ;accmulate in D  LD D,A  *EJECT  LD A,(IX+6) ;set A = 7th status byte  AND (IY+6) ;mask in 7th process byte  OR D ;accmulate in D  LD D,A  LD A,(IX+7) ;set A = 8th status byte  AND (IY+7) ;mask in 8th process byte  OR D ;accumulate in D; ready to run ? JR Z,SCHD58 ;no, branch  ; ; Process is ready to run (IY = process table entry)  ; PUSH BC ;save scheduler registers  PUSH IY ; on scheduler stack LD (SCSP),SP ;save scheduler stack ptr  LD L,(IY+STBYTS) ;set HL = process stack address  LD H,(IY+STBYTS+1) LD SP,HL ;set SP = process stack address " RET ;restart process from suspension point" ;# ;******************************************************************* # ; ; SUSPEND ENTRY POINT ;" ; Called by current active process to wait for some event(s)." ; At entry, we are using process stack; no reg context is ; saved. All volatile info must be in the process stack  ; SUSPSB: LD HL,0 ;set HL = 0 ADD HL,SP ;set HL = process SP  LD SP,(SCSP) ;set SP = scheduler SP  POP IY ;recall process table address  LD (IY+STBYTS),L ;save process SP in PTABLE  LD (IY+STBYTS+1),H POP BC ;recall process count ;# ;******************************************************************* # ; ; Find next process entry to run  ; SCHD58: LD DE,STBYTS+2 ;set DE = process table size  ADD IY,DE ;point IY to next process" DEC C ;decrement process count; last ? "! JP NZ,SCHD50 ;no, loop back for next process! ; ; End or process table scan - reset pointers and rescan ; JP SCHD00 ;loop back for new scan ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; PRBPL - BACKPLANE PROCESS ;# ;******************************************************************* # ; ; Entry and suspension point - wait for NMI interrupt  ; (Normal or abort) ; PRBPL: ENTRY  PRBPL0: SSPND2 STNMI,STABRT  ; ; Classify NMI (normal or abort) ; TEST STNMI ;normal NMI received ? JR NZ,PRBPL1 ;yes, branch ; ; Host aborted command - see if the abort command is ; telling us to disable unsolicited status interrupts  ; LD A,(BPABRT) ;set A = abort type  CP 01H ;disable unsolicited abort ? JR NZ,PRBPABT ;no, continue abort processing! CLEAR STEIRQ ;yes, disable unsolicited interrupts! JR PRBPABT ; and continue abort processing  ; ; Normal command NMI ; PRBPL1: LD A,(BPBUF+1) ;set A = command MSB AND 0C0H ;set A = command type  CP 040H ;command type = 1 ?  JR Z,PRBPCT1 ;yes, branch to type 1 handler CP 0C0H ;command type = 3 ?  JR Z,PRBPCT3 ;yes, branch to type 3 handler ; ; If the command type is not 1 or 3, fall into the ; backplane abort handler  ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; BACKPLANE COMMAND ABORT HANDLER ;# ;******************************************************************* # ;! ; Clear the backplane abort flag, sent a zero status word ! ; to the host, and suspend the backplane process ; PRBPABT: CLEAR STABRT ;clear abort flag  LD HL,BPLF ;point HL to backplane latches XOR A ;set A = 0 LD (HL),A ;write zero LSB to latch INC HL  LD (HL),A ;write zero MSB to latch JR PRBPL0 ;suspend backplane process ;# ;******************************************************************* # ; ; BACKPLANE COMMAND EXIT HANDLER  ; ; Entry: BC = status to send to the host  ;! ; NOTE: To prevent a race condition, STNMI must be cleared! ; before the BPL hardware flag is set!!! ;# ;******************************************************************* # ; ; Entry point to return zero to the host ; PRBPLX0: LD BC,0 ;Set BC = 0  ; ; Normal Entry Point ;! PRBPLX: CLEAR STNMI ;Indicate that we are done with NMI ! LD HL,BPLF ;Set HL = backplane MSB address  LD (HL),B ;Write MSB to backplane  INC HL ;Set HL = backplane LSB address " LD (HL),C ;Write LSB and set backplane SRQ flag "$ JP PRBPL0 ;Branch back to suspend backplane process $ ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; TYPE 1 COMMANDS  ; ; 00 - nop ; 01 - reset  ; 02 - enable unsolicited status input  ; 03 - abort current operation  ; data byte: 00 - nop ; 01 - unsolicited interrupts  ; 02 - input/output DMA  ; 04 - acknowledge status interrupt ; 05 - cancel first received buffer ; 06 - cancel all received data ; 07 - fast binary read from terminal ;# ;******************************************************************* # ; PRBPCT1: LD HL,PRBPJT1 ;set HL = jump table 1 address JR PRBPJMP ;continue processing ;# ;******************************************************************* # ; ; Jump table for type 1 commands ; PRBPJT1: DEFW PRBPLX DEFW PRBP11 DEFW PRBP12 DEFW PRBPLX DEFW PRBP14 DEFW PRBP15 DEFW PRBP16 DEFW PRBPLX  ;# ;********((*********************************************************** # *EJECT # ;******************************************************************* # ; ; Type 3 COMMANDS  ; ; 00 - nop  ; 01 - request write buffer ; 02 - send write data  ; 03 - set port ID  ; 04 - set receive type ; 05 - set receive character count limit (binary length)  ; 06 - set port time out value  ; 07 - fetch receive data ;! ; At present all type 3 commands in the MUX assume only two!! ; words in the command. The following code will have to be!! ; modified if we ever have more than two words in a type 3 ! ; command.  ;# ;******************************************************************* # ; PRBPCT3: IN A,(BPLSTS) ;set A = backplane status  BIT 0,A ;BPRDY flag set ?  JR NZ,PRBPCT3 ;no, look again # LD HL,(BPLNF+1) ;yes, read 2nd word of command (no flag)# ; ; Note how above line gets BPLNF+2=BPLNF in H  ; LD (BPBUF+2),HL ;save 2nd word in buffer LD HL,PRBPJT3 ;point HL to command jump table  JR PRBPJMP ;continue processing ;# ;******************************************************************* # ; ; Jump table for type 3 commands  ; PRBPJT3: DEFW PRBPLX DEFW PRBP31 DEFW PRBP32 DEFW PRBP33 DEFW PRBPLX DEFW PRBPLX DEFW PRBPLX DEFW PRBP37  ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; Command jump table processor ; ; (HL = jump table address) ;# ;******************************************************************* # ; PRBPJMP: LD BC,0 ;set BC = default command response  LD A,(BPBUF+1) ;set A = command word MSB  AND 3FH ;mask off command type CP 08H ;command >= 8 ?  JP P,PRBPLX ;yes, treat command as NOP RLCA ;no, set A = 2 * command  LD D,0 ;set DE = 2 * command  LD E,A  ADD HL,DE ;set HL = jump table addr  LD E,(HL) ;set E = jump address LSB INC HL  LD D,(HL) ;set D = jump address MSB EX DE,HL ;set HL = jump address JP (HL) ;branch to routine ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; TYPE 1 COMMANDS  ;# ;******************************************************************* # ; ; **** RESET COMMAND ****  ; PRBP11: DI ;Disable interrupts  JP INIT ; and restart ;! ; Note that the initialization code will set the backplane ! ; response flag for this command  ;# ;******************************************************************* # ; ; **** ENABLE UNSOLICITED INTERRUPT **** ;# PRBP12: POST STEIRQ ;Enable unsolicited interrupts from mux #! CLEAR STNMI ;Indicate that we are done with NMI !# JP PRBPL0 ;Branch to suspend the backplane process# ;# ;******************************************************************* # ; ; **** ACK FROM HOST **** ;" PRBP14: POST STBACK ;Host acknowledged backplane interrupt" LD BC,(BPWRD2) ;Set BC = 2nd command word! JP PRBPLX ;Issue 2nd word and exit bp process ! ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; **** CANCEL FIRST RECEIVED BUFFER ****  ; PRBP15: LD A,(BPBUF) ;set A = port key CALL KEYSRC ;set BC = port number [0..7] ; ; See if we have something currently in the extra buffer  ; LD HL,MUXFLG ;set HL = MUXFLG(0) address  ADD HL,BC ;set HL = MUXFLG(n) address  BIT RXSNT,(HL) ;extra buffer loaded ? JP Z,PRBPLX0 ;no, set BP flag and exit  ; ; The extra buffer is loaded, so cancel it. Then see ; if the active buffer is also loaded.  ; RES RXSNT,(HL) ;reset extra buffer load flag  BIT RXFULL,(HL) ;active buffer loaded ?  JP Z,PRBPLX0 ;no, set BP flag and exit  ; ; The active buffer is loaded: swap RX buffers, set ; the flag to wake up the receive process, set the  ; backplane flag, and exit  ; RES RXFULL,(HL) ;clear active-buffer-loaded flag SET RXSNT,(HL) ;set extra-buffer-loaded flag CALL RXSWAP ;swap RX buffers POSTMUX STRXAN ;wake up the receive process JP PRBPLX0 ;set BP flag and exit  ;# ;******************************************************************* # ; ; **** CANCEL BOTH RCVD BUFFERS COMMAND **** ; PRBP16: LD A,(BPBUF) ;set A = port key CALL KEYSRC ;set BC = port number [0..7] LD HL,MUXFLG ;set HL = MUXFLG(0) address  ADD HL,BC ;set HL = MUXFLG(n) address  RES RXSNT,(HL) ;reset RXSNT flag  RES RXFULL,(HL) ;reset RXOFF flag  JP PRBPLX0 ;set BP flag and exit  ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; TYPE 3 COMMANDS ;# ;******************************************************************* # ; ; HOST IS REQUESTING A TRANSMIT BUFFER  ;# ;******************************************************************* # ; PRBP31: LD A,(BPBUF) ;set A = port key CALL KEYSRC ;set BC = port number [0..7] ;! ; If both TX buffers for this port are full, return a zero!! ; value to the host and set the INFOHOST flag to remember ! ; that the host is waiting for a buffer  ; LD HL,MUXFLG ;point HL to MUXFLG(0) ADD HL,BC ;point HL to MUXFLG(n) BIT TXFULL,(HL) ;both buffers full ? JR Z,PRBP31A ;no, branch  SET INFOHOST,(HL) ;yes, set flag JP PRBPLX0 ; and return 0 to host ; ; TX buffer available - return buffer size to the host ; PRBP31A: LD BC,TXBFSZ ;set buffer size = 256 JP PRBPLX ;return size to the host ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; HOST WANTS TO TRANSMIT DATA TO A PORT ;# ;******************************************************************* # ; ; COMMAND FORMAT:  ; ; +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ ; |1 |1 |0 |0 |0 |0 |1 |0 | PORT KEY | ; +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ ; | | | | | | | | | # OF CHARS TO XFER | ; +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ ;" ;******************************************************************" ; ; Calculate TXEBFn (TX table) address  ; PRBP32: LD A,(BPBUF) ;set A = port key  CALL KEYSRC ;set BC = port number [0..7]  CALL GETTXTB ;set HL = TX table address  LD DE,TXEBF0-TXSTRT ;set DE = TXEBFn offset ADD HL,DE ;set HL = TXEBFn address  ; ; Clear STNMI to allow host to abort the transfer  ; CLEAR STNMI  ; ; See how many bytes the host wants to transfer: ; if it is zero, we will special case (bizarre)  ; LD A,(BPBUF+2) ;set A = 2nd word LSB  CP 0 ;zero byte transfer ? JR NZ,PRBP32A ;no, branch ;# ;******************************************************************* # ; ; Zero byte case: set backplane flag and branch  ; to cleanup processing  ; LD A,(BPLF+1) ;set backplane flag JP PRBP32G ;continue processing  ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ;! ; Non-zero case: get extra buffer address for DMA and save! ; character count in TXEBFn. ; PRBP32A: LD E,(HL) ;set E = addr(TXEBFn) LSB INC HL  LD D,(HL) ;set D = addr(TXEBFn) MSB INC HL # LD (HL),A ;install buffer length in TX table # PUSH BC ;save port number on stack  ; ; Test for 1-byte transfer ; CP 1 ;1-byte transfer ? JR NZ,PRBP32D ;no, branch to use DMA ;# ;******************************************************************* # ; ; Do 1-character transfer manually (DMA does not work) ; LD A,(BPLF+1) ;first set the backplane flag  PRBP32B: IN A,(BPLSTS) ;set A = backplane status reg  BIT 0,A ;BPR((DY flag set ?  JR Z,PRBP32C ;yes, read the character" TEST STABRT ;no, has the driver aborted the xfer ?" JR Z,PRBP32B ;no, loop back to check again  ;! ; The host has aborted the 1-byte transfer - clear up the ! ; stack and branch to the abort processor  ; POP BC ;reset process stack JP PRBPABT ;continue abort processing ; ; The host has sent the single character ; PRBP32C: LD A,(BPLF) ;set A = the character LD (DE),A ;install in TXEBFn! LD A,(BPLF+1) ;set flag one more time (odd count) ! JR PRBP32F ;continue processing (skip DMA)  ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; Set up the DMA transfer  ; PRBP32D: DEC A ;set A = character count - 1 LD B,0 ;set BC = DMA count (#chars - 1) LD C,A  LD A,01111101B ;set A = DMA xfer command  OUT (DMADR),A ;output to DMA chip  LD HL,BPLF ;set HL = backplane address  LD A,L ;set A = port 'A' address LSB  OUT (DMADR),A ;output to DMA address LD A,H ;set A = port 'A' address MSB  OUT (DMADR),A ;output to DMA chip  LD A,C ;set A = byte count LSB  OUT (DMADR),A ;output to DMA chip  LD A,B ;set A = byte count MSB  OUT (DMADR),A ;output to DMA chip  LD A,00010100B ;set A = DMA 1B-port A DEF command  OUT (DMADR),A ;output to DMA chip  LD A,00010000B ;set A = DMA 1B-port B DEF command  OUT (DMADR),A ;output to DMA chip ! LD A,10001101B ;set A = DMA 2B-port B INFO follows ! OUT (DMADR),A ;output to DMA chip  LD A,E ;set A = port 'B' address LSB  OUT (DMADR),A ;output to DMA chip  LD A,D ;set A = port 'B' address LSB  OUT (DMADR),A ;output to DMA chip  LD A,0CFH ;set A = restart DMA command OUT (DMADR),A ;output to DMA chip " LD A,0ABH ;set A = EOB interrupt enable command " OUT (DMADR),A ;output to DMA chip  ; ; Disable interrupts before starting DMA. This avoids ; host timing out on first data word transfer  ; DI ;disable interrupts  LD A,087H ;set A = enable DMA xfer command LD (BPLF+1),A ;set backplane flag  OUT (DMADR),A ;start DMA transfer  EI ;re-enable MUX interrupts  *EJECT  ; ; Wait for DMA transfer to finish or host abort  ; SSPND2 STDMA,STABRT ;suspend process TEST STDMA ;DMA completion ?  JP NZ,PRBP32E ;yes, continue processing  ; ; The host has aborted the DMA transfer: clear the ; process stack, shut down the DMA chip, and continue  ; the abort processing ; POP BC ;pop port number from stack  LD A,0C3H ;set A = DMA reset opcode  OUT (DMADR),A ;output to DMA chip  JP PRBPABT ;continue abort processing ; ; End of successful DMA transfer - check for odd length  ; PRBP32E: CLEAR STDMA ;clear DMA completion flag LD BC,(BPBUF+2) ;set BC = 2nd command word BIT 0,C ;odd byte transfer ? JR Z,PRBP32F ;no, do not set last flag  LD A,(BPLF+1) ;yes, set flag one more time ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ;! ; End of DMA or manual transfer - set the flag indicating ! ; that data is available from the host to wake up the  ; sequence process  ; PRBP32F: POP BC ;recall port number  POSTMUX STTXAN ;set TX data available flag  ; ; The following code is needed for DCPC/DMA completion. ; The driver outputs an extra word: we will wait for it  ; to arrive before setting the flag once more. ; PRBP32G: IN A,(BPLSTS) ;set A = backplane status register  BIT 0,A ;BPRDY flag set ?  JR Z,PRBP32H ;yes, perform final processing TEST STABRT ;no, transfer aborted by host ?  JR Z,PRBP32G ;no, look again  JP PRBPABT ;yes, process abort  ; ; Final processing - set the flag one more time to tell  ; the host that we are done and suspend the BP process ; PRBP32H: LD A,(BPLF+1) ;set backplane flag  JP PRBPL0 ;suspend the BP process  ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; SET KEY COMMAND FROM HOST TO MUX  ;# ;******************************************************************* # ; ; +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ ; |1 |1 |0 |0 |0 |0 |1 |1 | PORT KEY(EQT) # | ; +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ ; |#BITS| |CT|#STOP| PAR | | BAUD RATE | PORT # | ; +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ ; ; BAUD RATE: 1-15 (13,14,15 reserved for future) ; : 0- do not change baud rate ; ; PARITY : X0 - no parity - default ; : 01 - odd parity ; : 11 - even parity ; ; #STOP : 00 - synchronous modes (not used)  ; BITS : 01 - 1 stop bit/char - default  ; PER : 10 - 1 1/2 stop bits/char  ; CHAR : 11 - 2 stop bits/char  ; ; #BITS : 00 - 5 bits/char ; PER : 01 - 7 bits/char ; CHAR : 10 - 6 bits/char ; : 11 - 8 bits/char - default ; ; CT : 0 - This port connected to CTC 0. ; : 1 - This port connected to CTC 1. ;# ;******************************************************************* # ; ; Install the indicated port key in the table ; PRBP33: LD A,(BPBUF+2) ;set A = 2nd cmnd word LSB  AND 07H ;set A = port # LD D,0 ;set DE = port # LD E,A  LD HL,KEYTBL ;point HL to key table(0)  ADD HL,DE ;point HL to key table(n)  LD A,(BPBUF) ;set A = port key  LD (HL),A ;store in key table  *EJECT  ; ; If the specified baud rate is zero, we are finished  ; LD A,(BPBUF+2) ;set A = 2nd cmnd word MSB  RRCA ;shift right 3 places RRCA RRCA" AND 0FH ;set A = baud rate field; zero ? "! JP Z,PRBPLX0 ;yes, do not program CTC or SIO! ; ; Find the entry in the baud rate table (put in HL)  ; LD HL,CTCTIM-CTCLEN ;set HL = adjusted table base LD BC,CTCLEN ;set BC = table entry length ! PRBP33A: ADD HL,BC ;set HL = indexed table address! DEC A ;decrement baud rate index  JR NZ,PRBP33A ;loop for index count ;! ; Install the baud rate constant in the SIO command table ! ; LD A,(SIO4) ;set A = SIO WR4 control word  AND 00111111B ;mask out old X clock field OR (HL) ;mask in new X clock field! LD (SIO4),A ;save new SIO WR4 control word ! ; ; Find out which CTC is connected to this port ; LD A,(BPBUF+3) ;set A = 2nd cmnd word MSB  LD C,CTC0 ;set C = BRG0 I/O address BIT 4,A ;port connected to BRG0 ? JR Z,PRBP33B ;yes, program CTC0 (BRG0).  LD C,CTC1 ;no, program CTC1 (BRG1).  ; ; Program the CTC chip ;! PRBP33B: INC HL ;set HL = control word address ! LD A,(HL) ;set A = control word value  OUT (C),A ;output to CTC chip! INC HL ;set HL = time constant address! LD A,(HL) ;set A = time constant value  OUT (C),A ;output to CTC chip *EJECT  ; ; Set up SIO chip parity and #stop bits ; LD A,(BPBUF+3) ;set A = 2nd cmnd word MSB! AND 00001111B ;isolate parity and stop bit fields !! LD B,A ;set B = parity and stop bit fields ! LD A,(SIO4) ;set A = SIO register WR4 value # AND 11110000B ;mask out old parity and stop bit fields## OR B ;mask in new parity and stop bit fields# LD (SIO4),A ;update SIO register WR4 value ; ; Set up SIO chip #RX bits per character  ; LD A,(BPBUF+3) ;set A = 2nd cmnd word MSB AND 11000000B ;isolate #bits/char field  LD B,A ;set B = #bits/char field  LD A,(SIO3) ;set A = SIO register WR3 value  AND 00111111B ;mask out old #RX bits/char field (( OR B ;mask in new #RX bits/char field  LD (SIO3),A ;update SIO register WR3 value ; ; Set up SIO chip #TX bits per character  ;! SRL B ;shift B right 1 bit (zero fill msb)! LD A,(SIO5) ;set A = SIO register WR5 value  AND 10011111B ;mask out old #TX bits/char field OR B ;mask in new #TX bits/char field  LD (SIO5),A ;update SIO register WR5 value ; ; Now program the SIO chip  ;$ LD A,SIOFC ;set A = SIO port 0 control channel addr $$ ADD A,E ;set A = SIO port n control channel addr $$ LD C,A ;set C = SIO port n control channel addr $# LD HL,SIOPROG ;set HL = control channel table address #" LD B,9 ;set B = control channel table length" OTIR ;program the SIO chip  ; ; Finish backplane processing ; JP PRBPLX0 ;finish backplane processing ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; HOST WANTS RECEIVED TEXT ;# ;******************************************************************* # ; ; Get RX table address  ; PRBP37: LD A,(BPBUF) ;set A = port key CALL KEYSRC ;set BC = port number [0..7] CALL GETRXTB ;set HL = RX table address ; ; Clear STNMI to allow host to abort the transfer ; CLEAR STNMI  ; ; Get the transfer specified by the host. Note that  ; the DMA transfer length will always be one more than  ; the number of bytes received. This will avoid special  ; handling of odd byte transfers, including 1 byte. ; PUSH BC ;save port number! LD BC,(BPBUF+2) ;set BC = host transfer length ! ; ; Get the starting address of the transfer  ; LD DE,RXEBF0-RXABF0 ;set DE = extra buffer offset " ADD HL,DE ;point HL to extra buffer address"" LD E,(HL) ;set E = extra buffer address LSB" INC HL " LD D,(HL) ;set D = extra buffer address MSB" ; ; Set up the DMA transfer ; LD A,01111101B ;set A = DMA transfer command  OUT (DMADR),A ;output to DMA chip LD A,E ;set A = port A address LSB OUT (DMADR),A ;output to DMA chip LD A,D ;set A = port A address MSB OUT (DMADR),A ;output to DNA chip LD A,C ;set A = transfer length LSB  OUT (DMADR),A ;output to DMA chip LD A,B ;set A = transfer length MSB  OUT (DMADR),A ;output to DMA chip *EJECT  ; ; Start the DMA transfer ; LD A,00010100B ;set A = DMA command  OUT (DMADR),A ;output to DMA chip# LD A,00010000B ;set A = cmnd 1B-port B definition # OUT (DMADR),A ;output to DMA chip$ LD A,10001101B ;set A = cmnd 2B-port B info follows $ OUT (DMADR),A ;output to DMA chip LD A,BPLF.AND.255 ;set A = port B address LSB OUT (DMADR),A ;output to DMA chip LD A,BPLF.SHR.8 ;set A = port B address MSB OUT (DMADR),A ;output to DMA chip LD A,0CFH ;set A = restart DMA command  OUT (DMADR),A ;output to DMA chip! LD A,0ABH ;set A = EOB interrupt command ! OUT (DMADR),A ;output to DMA chip LD A,087H ;set A = enable DMA command OUT (DMADR),A ;output to DMA chip ; ; Wait for DMA completion or host to abort the transfer  ; SSPND2 STDMA,STABRT ;suspend the process  POP BC ;set BC = port number TEST STDMA ;normal DMA completion ?  JP NZ,PRBP37A ;yes, branch  ; ; The host has aborted the DMA transfer: shut down the ; DMA chip and continue abort processing ; LD A,0C3H ;set A = DMA reset command  OUT (DMADR),A ;output to DMA chip JP PRBPABT ;continue abort processing  *EJECT  ; ; Successful DMA completion: clear the DMA completion  ; flag and the RX extra-buffer loaded flag.  ; PRBP37A: CLEAR STDMA ;clear DMA completion flag  LD HL,MUXFLG ;set HL = MUXFLG(0) address ADD HL,BC ;set HL = MUXFLG(n) address! RES RXSNT,(HL) ;clear extra-buffer-loaded flag! ; ; If the active buffer is also loaded, swap RX buffers ; and set the flag to wake up the receive process  ; BIT RXFULL,(HL) ;active buffer loaded ? JR Z,PRBP37B ;no, branch" RES RXFULL,(HL) ;clear active-buffer-loaded flag "" SET RXSNT,(HL) ;set extra-buffer-loaded flag " CALL RXSWAP ;swap RX buffers  POSTMUX STRXAN ;wake up receive process  ; ; The following code waits for the sync word that the  ; driver outputs to the card after every data transfer ; PRBP37B: IN A,(BPLSTS) ;set A = backplane status BIT 0,A ;BPRDY flag set ? JR NZ,PRBP37B ;no, look again PRBP37C: LD A,(BPLF) ;set A = last host word BIT 7,A ;word < 0 ? JR Z,PRBP37C ;no, look again ; ; We are synced up with the host's end-of-transfer:  ; set the flag to tell the host that we are finished ; with the transfer and suspend the backplane process  ; LD A,(BPLF+1) ;set backplane flag JP PRBPL0 ;suspend the BP process ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; PRTMR - TIMER PROCESS  ;# ;******************************************************************* # ; ; Entry and suspension point - suspend on timer flag  ; PRTMR: ENTRY PRTMR0: SUSPND STTMR ;suspend on STTMR flag CLEAR STTMR ;clear STTMR flag on wakeup  ; ; Set up for timer examination loop ; LD BC,7 ;set BC = port 7  LD HL,TIMERS+7 ;set HL = timer 7 address  ; ; Loop start - see if the timer is active ; PRTMLP: LD A,(HL) ;set A = timer value OR A ;timer active ?  JR Z,PRTMR1 ;no, branch to loop end  ; ; The timer is active - decrement and check for timeout ; DEC (HL) ;increment timer value; timeout ?  JR NZ,PRTMR1 ;no, branch to loop end  ; ; Timeout occurred - set the timeout flag for this port ; PUSH HL ;save timer address  POSTMUX STTMON ;set timeout flag  POP HL ;restore timer address ; ; Loop end - decrement counter and pointer; loop back ; PRTMR1: DEC HL ;decrement timer pointer DEC C ;decrement port count; all done ?  JP P,PRTMLP ;no, loop back JR PRTMR0 ;yes, suspend the process  ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; PRRCV - RECEIVE PROCESS  ;# ;******************************************************************* # ; ; Entry and suspension point - suspend on all 8 ports ; PRRCV: ENTRY$ PRRCV0: SSPND8 STRXA0,STRXA1,STRXA2,STRXA3,STRXA4,STRXA5,STRXA6,STRXA7 $ ; ; Test each bit to see which ports need service ; TEST STRXA0 CALL NZ,PRRX0 TEST STRXA1 CALL NZ,PRRX1 TEST STRXA2 CALL NZ,PRRX2 TEST STRXA3 CALL NZ,PRRX3 TEST STRXA4 CALL NZ,PRRX4 TEST STRXA5 CALL NZ,PRRX5 TEST STRXA6 CALL NZ,PRRX6 TEST STRXA7 CALL NZ,PRRX7  ; ; Processing done - suspend receive process ; JR PRRCV0  ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; PRRX0: CLEAR STRXA0 ;clear wakeup flag LD BC,0 ;set BC = port number  LD DE,RXABF0 ;set DE = RX table address JR RXCOM ;continue in common code ; PRRX1: CLEAR STRXA1 ;clear wakeup flag LD BC,1 ;set BC = port number  LD DE,RXABF1 ;set DE = RX table address JR RXCOM ;continue in common code ; PRRX2: CLEAR STRXA2 ;clear wakeup flag LD BC,2 ;set BC = port number  LD DE,RXABF2 ;set DE = RX table address JR RXCOM ;continue in common code ; PRRX3: CLEAR STR((XA3 ;clear wakeup flag LD BC,3 ;set BC = port number  LD DE,RXABF3 ;set DE = RX table address JR RXCOM ;continue in common code ; PRRX4: CLEAR STRXA4 ;clear wakeup flag LD BC,4 ;set BC = port number  LD DE,RXABF4 ;set DE = RX table address JR RXCOM ;continue in common code ; PRRX5: CLEAR STRXA5 ;clear wakeup flag LD BC,5 ;set BC = port number  LD DE,RXABF5 ;set DE = RX table address JR RXCOM ;continue in common code ; PRRX6: CLEAR STRXA6 ;clear wakeup flag LD BC,6 ;set BC = port number  LD DE,RXABF6 ;set DE = RX table address JR RXCOM ;continue in common code ; PRRX7: CLEAR STRXA7 ;clear wakeup flag LD BC,7 ;set BC = port number  LD DE,RXABF7 ;set DE = RX table address JR RXCOM ;continue in common code ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; RECEIVE PROCESS COMMON CODE  ;# ;******************************************************************* # ; ; Set up the RX available command word 1 for the host ; (B = command, C = port key)  ; RXCOM: LD HL,KEYTBL ;set HL = key table(0) address ADD HL,BC ;set HL = key table(n) address! LD B,RXAV1 ;set B = RX available cmnd 1st word! LD C,(HL) ;set C = port key ; ; Set up the RX available command word 2 for the host ; (D = command and flags, E = buffer length LSB)  ;" LD HL,RXELN0-RXABF0 ;set HL = extra length LSB offset"# ADD HL,DE ;set HL = extra length LSB address # LD E,(HL) ;set E = extra length LSB # INC HL ;set HL = extra length MSB address # LD D,(HL) ;set D = extra length MSB # INC HL ;set HL = extra buffer flag address#$ LD A,RXAV2 ;set A = RX available cmnd 2nd word $" OR (HL) ;set A = cmnd wrd 2 + flag bits "% OR D ;set A = cmnd wrd 2 + flag bits + MSB %% LD D,A ;set D = cmnd wrd 2 + flag bits + MSB % ; ; Send the command to the host and return ; CALL SBBPI ;send command to host RET ; and return  ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; Port 0 Sequence Process ;# ;******************************************************************* # ; ; Entry and suspension point ; PRSEQ0: ENTRY  PRSEQ00: SSPND4 STRXF0,STTXA0,STTXE0,STTMO0 ; ; Set port number and call common code ; LD BC,0 ;set BC = port # CALL SEQCOM ;utilize common code JR PRSEQ00 ;suspend the process ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; Port 1 Sequence Process ;# ;******************************************************************* # ; ; Entry and suspension point ; PRSEQ1: ENTRY  PRSEQ10: SSPND4 STRXF1,STTXA1,STTXE1,STTMO1 ; ; Set port number and call common code ; LD BC,1 ;set BC = port # CALL SEQCOM ;utilize common code JR PRSEQ10 ;suspend the process ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; Port 2 Sequence Process ;# ;******************************************************************* # ; ; Entry and suspension point ; PRSEQ2: ENTRY  PRSEQ20: SSPND4 STRXF2,STTXA2,STTXE2,STTMO2 ; ; Set port number and call common code ; LD BC,2 ;set BC = port # CALL SEQCOM ;utilize common code JR PRSEQ20 ;suspend the process ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; Port 3 Sequence Process ;# ;******************************************************************* # ; ; Entry and suspension point ; PRSEQ3: ENTRY  PRSEQ30: SSPND4 STRXF3,STTXA3,STTXE3,STTMO3 ; ; Set port number and call common code ; LD BC,3 ;set BC = port # CALL SEQCOM ;utilize common code JR PRSEQ30 ;suspend the process ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; Port 4 Sequence Process ;# ;******************************************************************* # ; ; Entry and suspension point ; PRSEQ4: ENTRY  PRSEQ40: SSPND4 STRXF4,STTXA4,STTXE4,STTMO4 ; ; Set port number and call common code ; LD BC,4 ;set BC = port # CALL SEQCOM ;utilize common code JR PRSEQ40 ;suspend the process ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; Port 5 Sequence Process ;# ;******************************************************************* # ; ; Entry and suspension point ; PRSEQ5: ENTRY  PRSEQ50: SSPND4 STRXF5,STTXA5,STTXE5,STTMO5 ; ; Set port number and call common code ; LD BC,5 ;set BC = port # CALL SEQCOM ;utilize common code JR PRSEQ50 ;suspend the process ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; Port 6 Sequence Process ;# ;********************************************************************# ; ; Entry and suspension point ; PRSEQ6: ENTRY  PRSEQ60: SSPND4 STRXF6,STTXA6,STTXE6,STTMO6 ; ; Set port number and call common code ; LD BC,6 ;set BC = port # CALL SEQCOM ;utilize common code JR PRSEQ60 ;suspend the process ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; Port 7 Sequence Process ;# ;******************************************************************* # ; ; Entry and suspension point ; PRSEQ7: ENTRY  PRSEQ70: SSPND4 STRXF7,STTXA7,STTXE7,STTMO7 ; ; Set port number and call common code ; LD BC,7 ;set BC = port # CALL SEQCOM ;utilize common code JR PRSEQ70 ;suspend the process ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; COMMON SEQUENCE PROCESS CODE ;# ;******************************************************************* # ; ; Continue processing based on the current port sequence  ; SEQCOM: LD HL,SEQCNT ;set HL = SEQCNT(0) address  ADD HL,BC ;set HL = SEQCNT(n) address  LD D,0 ;set D = 0  LD E,(HL) ;set E = sequence count RLC E ;set DE = 2 * sequence count LD HL,SEQJMP ;set HL = jump table start ADD HL,DE ;set HL = jump table entry LD E,(HL) ;set E = jump address LSB  INC HL  LD D,(HL) ;set D = jump address MSB  EX DE,HL ;set HL = jump address JP (HL) ;jump to sequence processor  ;# ;******************************************************************* # ; ; ((( Insert Sequence jump table here )))  ; SEQJMP: DEFW SEQ00 ;SEQIDL state  ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; SEQIDL State Handler  ;# ;******************************************************************* # ; ; Make sure that we have entered the idle state due to a  ; transmit data available flag  ; SEQ00: TESTMUX STTXAN ;transmit data available ? JR Z,SEQ00E ;no, branch to error handler CLEARMUX STTXAN ;yes, clear flag ; ; ((( Insert Idle State handler here )))  ; RET ;# ;******************************************************************* # ; ; SEQIDL Error Handler  ;# ;******************************************************************* # ; ; ((( Insert Idle State Error Handler here )))  ; SEQ00E: RET(( ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; SUBROUTINE GETRXTB  ; ; This routine finds the beginning address of an RX table  ; for a given port #. ; ; Entry: BC = port number ; ; Exit : BC = port number ; HL = RXTBL address ;# ;******************************************************************* # ; ; Set up to index into table via repeated addition ;! ; Note: for simplicity of coding, we will be going through!" ; the addition loop (port + 1) times, so we will pre-adjust " ; the table start address to compensate for this fact. ; GETRXTB: LD B,C ;set B = port number INC B ;set B = port number + 1" LD HL,RXSTRT-RXTBLN ;set HL = adjusted table address " LD DE,RXTBLN ;set DE = table entry length  ; ; Index into table by looped address addition ; GETRXLP: ADD HL,DE ;set HL = next entry address  DJNZ GETRXLP ;loop until done  ; ; Address has been calculated: return  ; RET  ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; SUBROUTINE GETTXTB  ; ; This routine finds the beginning address of an TX table  ; for a given port #. ; ; Entry: BC = port number ; ; Exit : BC = port number ; HL = TXTBL address ;# ;******************************************************************* # ; ; Set up to index into table via repeated addition ;! ; Note: for simplicity of coding, we will be going through!" ; the addition loop (port + 1) times, so we will pre-adjust " ; the table start address to compensate for this fact. ; GETTXTB: LD B,C ;set B = port number INC B ;set B = port number + 1" LD HL,TXSTRT-TXTBLN ;set HL = adjusted table address " LD DE,TXTBLN ;set DE = table entry length  ; ; Index into table by looped address addition ; GETTXLP: ADD HL,DE ;set HL = next entry address  DJNZ GETTXLP ;loop until done  ; ; Address has been calculated: return  ; RET  ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; SUBROUTINE KEYSRC ;! ; This routine searches for the port key in the key table. ! ; ; Entry: A = port key  ; Exit: BC = port number [0..7]  ; ; Note: if the search is unsuccessful, the routine will ; not return, but directly report a power fail  ; condition to the driver via backplane process ; exit point PRBPLX ;# ;******************************************************************* # ; ; Search for the key and return if found  ; KEYSRC: LD BC,8 ;Set BC = key table length# LD HL,KEYTBL+7 ;Set HL = key table address (last entry)# CPDR ;Key in table ?  JR NZ,NOKEY ;No, branch  RET ;Yes, return ;! ; Key not found in table - report a power fail condition to! ; the driver  ; NOKEY: POP BC ;Pop return address and discard  LD BC,0BAD0H ;Set BC = power fail status  JP PRBPLX ;Return status to driver ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; SUBROUTINE RESTRT ; ; This routine tells the host that the port is ready to ; handle a new request  ; ; Entry: BC = port number ;# ;******************************************************************* # ; ; Reset the TXFULL flag for this port to let the host ; know that we are open for business again  ; RESTRT: LD HL,MUXFLG ;set HL = MUXFLG(0) address  ADD HL,BC ;set HL = MUXFLG(n) address  RES TXFULL,(HL) ;reset TXFULL flag ; ; If the host has not been trying to output to this port  ; while the TXFULL flag was set, we can return  ; BIT INFOHOST,(HL) ;host wants TX buffer ?  RET Z ;no, return  ; ; The host has told us that it wants a TX buffer: reset ; the flag, inform the host that a buffer is now ready, ; and return  ; RES INFOHOST,(HL) ;reset host request flag LD HL,KEYTBL ;set HL = KEYTBL(0) address  ADD HL,BC ;set HL = KEYTBL(n) address  LD B,TXBUFAV ;set B = command  LD C,(HL) ;set C = port key LD DE,TXBFSZ ;set DE = buffer size  CALL SBBPI ;output command to host  RET ; and return ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; SUBROUTINE RXSWAP  ; ; This routine exchanges the active and extra receive ; buffers. The active buffer length and flag byte is ; copied to the extra buffer  ; ; Enter: BC = port number ;# ;******************************************************************* # ; ; Set up RX table addresses ; RXSWAP: PUSH BC ;save port number CALL GETRXTB ;set HL = RXABFn address  EX DE,HL ;set DE = RXABFn address  LD HL,RXEBF0-RXABF0 ;set HL = RXEBFn offset ADD HL,DE ;set HL = RXEBFn address  ; ; Swap buffer address LSB ;" LD A,(DE) ;set A = old active buffer address LSB"" LD B,(HL) ;set B = old extra buffer address LSB"" LD (HL),A ;install new extra buffer address LSB"" LD A,B ;set A = new active buffer address LSB"" LD (DE),A ;install new active buffer address LSB" ; ; Swap buffer address MSB ; INC DE ;bump active buffer pointer  INC HL ;bump extra buffer pointer " LD A,(DE) ;set A = old active buffer address MSB"" LD B,(HL) ;set B = old extra buffer address MSB"" LD (HL),A ;install new extra buffer address MSB"" LD A,B ;set A = new active buffer address MSB"" LD (DE),A ;install new active buffer address MSB" ; ; Copy active buffer length to extra buffer length  ;! INC DE ;set DE = active length LSB address !! INC HL ;set HL = extra length LSB address ! LD A,(DE) ;set A = active length LSB  LD (HL),A ;copy to extra length LSB ! INC DE ;set DE = active length MSB address !! INC HL ;set HL = extra length MSB address ! LD A,(DE) ;set A = active length MSB  LD (HL),A ;copy to extra length MSB  *EJECT  ; ; Copy active buffer flags to extra buffer flags  ; INC DE ;set DE = active count LSB address INC DE ;set DE = active count MSB address " INC DE ;set DE = active buffer flags address "" INC HL ;set HL = extra buffer flags address " LD A,(DE) ;set A = active buffer flags  LD (HL),A ;copy to extra buffer flags  ; ; Restore port number and return  ; POP BC ;restore port number RET ; and return ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; SUBROUTINE SBBPI - BACKPLANE INPUT ROUTINE ; ; Entry: BC = 1st word to send to backplane" ; DE = 2nd word to send to backplane (if 2 word cmnd) " ;# ;******************************************************************* # ; SBBPI: PUSH BC ;save 1st command word on stack  PUSH DE ;save 2nd command word on stack  ; ; If the backplane is not available at this time, suspend ; until it is  ; TEST STBAVL ;is the back plane available ? JR NZ,SBBPI1 ;yes, branch SUSPND STBAVL ;no, suspend until available ; ; The backplane is now available, so lock it to this  ; process; then see if the MUX card is enabled to ; send an unsolicited status interrupt to the host. ; If not, suspend until we are enabled  ;! SBBPI1: CLEAR STBAVL ;lock the backplane to this process ! TEST STEIRQ ;unsolicited interrupts enabled ?  JR NZ,SBBPI2 ;yes, branch SUSPND STEIRQ ;no, sunspend until enabled  ; ; We are now enabled and the only backplane user: recall  ; the two command words and save the 2nd word for the ; ACK p((rocess. (We will only send the 1st word here) ; SBBPI2: POP DE ;recall DE = 2nd command word  POP BC ;recall BC = 1st command word  LD (BPWRD2),DE ;save 2nd word for ACK process *EJECT  ; ; Send the first command word to the host ; SBBPI3: CLEAR STEIRQ ;disable unsolicited interrupts  LD HL,BPLF ;set HL = backplane latch address  LD (HL),B ;output command MSB  INC HL  LD (HL),C ;output command LSB and set flag ; ; Wait for an acknowledge or backplane interrupt enable ; PUSH BC ;save command word on stack  SSPND2 STBACK,STEIRQ ;suspend on ack or int enble POP BC ;recall command word ; ; If the command was not acknowledged, try sending it ; again. If it was acknowledged, clear the acknowledge ; flag, unlock the backplane for other processes, and ; return  ; TEST STBACK ;was the command acknowledged ?  JR Z,SBBPI3 ;no, try it again  CLEAR STBACK ;yes, clear acknowledge flag POST STBAVL ;unlock backplane for others RET ; and return ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; SUBROUTINE SETIMER  ; ; This routine initializes a timer for a given port.  ; Note that the timeout values are in multiples of 10 ; milliseconds; a value of zero disables the timer  ; ; Entry: A = timeout value (tens of milliseconds)  ; BC = port number ;# ;******************************************************************* # ; SETIMER: LD HL,TIMERS ;set HL = timer 0 address  ADD HL,BC ;set HL = timer n address  LD (HL),A ;set timer n value RET ; and return ;# ;******************************************************************* # ; ; SUBROUTINE TXSWAP  ; ; This subroutine exchanges the active and extra transmit ! ; buffers. The extra buffer length is copied to the active! ; buffer length.  ; ; Enter: HL = TX table pointer  ;# ;******************************************************************* # ; ; Save registers  ; TXSWAP: PUSH AF ;save registers AF PUSH BC ;save registers BC PUSH DE ;save registers DE PUSH HL ;save registers HL ; ; Set up TX table addresses ; EX DE,HL ;set DE = TXABFn address  LD HL,TXEBF0-TXABF0 ;set HL = TXEBFn offset ADD HL,DE ;set HL = TXEBFn address  *EJECT  ; ; Swap buffer address LSB ;" LD A,(DE) ;set A = old active buffer address LSB"" LD B,(HL) ;set B = old extra buffer address LSB"" LD (HL),A ;install new extra buffer address LSB"" LD A,B ;set A = new active buffer address LSB"" LD (DE),A ;install new active buffer address LSB" ; ; Swap buffer address MSB ; INC DE ;bump active buffer pointer  INC HL ;bump extra buffer pointer " LD A,(DE) ;set A = old active buffer address MSB"" LD B,(HL) ;set B = old extra buffer address MSB"" LD (HL),A ;install new extra buffer address MSB"" LD A,B ;set A = new active buffer address MSB"" LD (DE),A ;install new active buffer address MSB" ; ; Copy extra length to active buffer  ; INC DE ;bump active buffer pointer  INC HL ;bump extra buffer pointer  LD A,(HL) ;set A = extra buffer length LD (DE),A ;install in active buffer length ; ; Restore registers and return  ; POP HL ;restore registers HL  POP DE ;restore registers DE  POP BC ;restore registers BC  POP AF ;restore registers AF  RET ; and return ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; TRANSMIT INTERRUPT PROCESSES  ;# ;******************************************************************* # ; P0XMT: EXX ;save registers  LD BC,0 ;set BC = port # LD DE,TXABF0 ;set DE = TX table address JR TXICOM ;continue in common code ; P1XMT: EXX ;save registers  LD BC,1 ;set BC = port # LD DE,TXABF1 ;set DE = TX table address JR TXICOM ;continue in common code ; P2XMT: EXX ;save registers  LD BC,2 ;set BC = port # LD DE,TXABF2 ;set DE = TX table address JR TXICOM ;continue in common code ; P3XMT: EXX ;save registers  LD BC,3 ;set BC = port # LD DE,TXABF3 ;set DE = TX table address JR TXICOM ;continue in common code ; P4XMT: EXX ;save registers  LD BC,4 ;set BC = port # LD DE,TXABF4 ;set DE = TX table address JR TXICOM ;continue in common code ; P5XMT: EXX ;save registers  LD BC,5 ;set BC = port # LD DE,TXABF5 ;set DE = TX table address JR TXICOM ;continue in common code ; P6XMT: EXX ;save registers  LD BC,6 ;set BC = port # LD DE,TXABF6 ;set DE = TX table address JR TXICOM ;continue in common code ; P7XMT: EXX ;save registers  LD BC,7 ;set BC = port # LD DE,TXABF7 ;set DE = TX table address JR TXICOM ;continue in common code ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; COMMON CODE FOR XMIT INT PROCESSES  ;# ;******************************************************************* # ; ; Save remaining registers  ; TXICOM: EX AF,AF' ;save AF registers ; ; ((( Insert Transmit Interrupt Process Here )))  ; ; Turn off transmitter buffer empty interrupts  ; TXIOFF: LD A,28H ;set A = TBE reset command SET 4,C ;set C = SIO control address OUT (C),A ;output command to SIO device  ; ; Restore registers and return from interrupt ; TXIXIT: EXX ;restore registers EX AF,AF'  EI ;enable interrupts RETI ;return from interrupt ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; RECEIVE INTERRUPT PROCESSES  ;# ;******************************************************************* # ; P0RCV: EXX ;save registers  LD BC,0 ;set BC = port # LD DE,RXABF0 ;set DE = RX table address JR RXICOM ;continue in common code ; P1RCV: EXX ;save registers  LD BC,1 ;set BC = port # LD DE,RXABF1 ;set DE = RX table address JR RXICOM ;continue in common code ; P2RCV: EXX ;save registers  LD BC,2 ;set BC = port # LD DE,RXABF2 ;set DE = RX table address JR RXICOM ;continue in common code ; P3RCV: EXX ;save registers  LD BC,3 ;set BC = port # LD DE,RXABF3 ;set DE = RX table address JR RXICOM ;continue in common code ; P4RCV: EXX ;save registers  LD BC,4 ;set BC = port # LD DE,RXABF4 ;set DE = RX table address JR RXICOM ;continue in common code ; P5RCV: EXX ;save registers  LD BC,5 ;set BC = port # LD DE,RXABF5 ;set DE = RX table address JR RXICOM ;continue in common code ; P6RCV: EXX ;save registers  LD BC,6 ;set BC = port # LD DE,RXABF6 ;set DE = RX table address JR RXICOM ;continue in common code ; P7RCV: EXX ;save registers  LD BC,7 ;set BC = port # LD DE,RXABF7 ;set DE = RX table address JR RXICOM ;continue in common code ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; COMMON CODE FOR RCV INT PROCESSES ;# ;******************************************************************* # ; ; Save remaining registers  ; RXICOM:(( EX AF,AF' ;save AF registers ; ; ((( Insert Receive Interrupt Process Here ))) ; ; Restore registers and return from interrupt ; RXIXIT: EXX ;restore registers EX AF,AF'  EI ;enable interrupts RETI ;return from interrupt ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; EXT/STATUS CHANGE INTRPT PROCESSES  ;# ;******************************************************************* # ; P0EXT: EXX ;save registers  LD BC,SIOFC+0 ;set BC = SIO control I/O address  JR XTICOM ;continue in common code ; P1EXT: EXX ;save registers  LD BC,SIOFC+1 ;set BC = SIO control I/O address  JR XTICOM ;continue in common code ; P2EXT: EXX ;save registers  LD BC,SIOFC+2 ;set BC = SIO control I/O address  JR XTICOM ;continue in common code ; P3EXT: EXX ;save registers  LD BC,SIOFC+3 ;set BC = SIO control I/O address  JR XTICOM ;continue in common code ; P4EXT: EXX ;save registers  LD BC,SIOFC+4 ;set BC = SIO control I/O address  JR XTICOM ;continue in common code ; P5EXT: EXX ;save registers  LD BC,SIOFC+5 ;set BC = SIO control I/O address  JR XTICOM ;continue in common code ; P6EXT: EXX ;save registers  LD BC,SIOFC+6 ;set BC = SIO control I/O address  JR XTICOM ;continue in common code ; P7EXT: EXX ;save registers  LD BC,SIOFC+7 ;set BC = SIO control I/O address  ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; COMMON CODE FOR EXT INT PROCESSES  ; ; Note: The SIO chip will generate an external status ; interrupt at both the beginning and the end of a break  ; condition. It is also assumed in this routine that! ; none of the modem-type handshake lines (CTS,RTS,DCD,DTR, ! ; etc.) are being used, and thus only a break condition ; will cause this routine to be entered.  ;# ;******************************************************************* # ; XTICOM: EX AF,AF' ;save AF registers ; ; Reset the external status condition ;" LD A,10H ;set A = reset external status command"" OUT (C),A ;reset external status interrupt cndx " ; ; Set the break flag for this port  ; LD HL,MUXFLG ;set HL = MUXFLG(0) address  ADD HL,BC ;set HL = MUXFLG(n) address  SET BREAKFLG,(HL) ;set break flag for this port  ; ; Return from interrupt ; EXX ;restore registers EX AF,AF'  EI ;enable interrupts RETI ;return from interrupt ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; SPECIAL RCV COND INTRPT PROCESSES  ; ; For asynchronous data transmission, this means that we ; have had a received parity, overrun, or framing error.  ;# ;******************************************************************* # ; P0SPR: EXX ;save registers  LD BC,SIOFD+0 ;set BC = SIO data channel JR SPRCOM ;continue in common code ; P1SPR: EXX ;save registers  LD BC,SIOFD+1 ;set BC = SIO data channel JR SPRCOM ;continue in common code ; P2SPR: EXX ;save registers  LD BC,SIOFD+2 ;set BC = SIO data channel JR SPRCOM ;continue in common code ; P3SPR: EXX ;save registers  LD BC,SIOFD+3 ;set BC = SIO data channel JR SPRCOM ;continue in common code ; P4SPR: EXX ;save registers  LD BC,SIOFD+4 ;set BC = SIO data channel JR SPRCOM ;continue in common code ; P5SPR: EXX ;save registers  LD BC,SIOFD+5 ;set BC = SIO data channel JR SPRCOM ;continue in common code ; P6SPR: EXX ;save registers  LD BC,SIOFD+6 ;set BC = SIO data channel JR SPRCOM ;process common code ; P7SPR: EXX ;save registers  LD BC,SIOFD+7 ;set BC = SIO data channel JR SPRCOM ;process common code ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; COMMON CODE FOR SPECIAL RECEIVE COND INT PROCESSES  ;# ;******************************************************************* # ; SPRCOM: EX AF,AF' ;save AF register  ; ; Read (and discard) the character and reset the  ; special receive interrupt ; IN A,(C) ;set A = error character" SET 4,C ;set C = SIO control channel I/O addr " LD A,30H ;set A = error reset control code ! OUT (C),A ;output control code to SIO reg WR0 ! ; ; Set the RX error flag for this port ; LD HL,MUXFLG ;set HL = MUXFLG(0) address  ADD HL,BC ;set HL = MUXFLG(n) address  SET RXERROR,(HL) ;set overflow flag ; ; Restore registers and return from interrupt ; EXX ;restore registers EX AF,AF'  EI ;enable interrupts RETI ;return from interrupt ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; CTC INTERRUPT PROCESS  ;# ;******************************************************************* # ; ; This process will wake up the timer process every time  ; that the TBG tic counter (TICCNT) reaches its maximum ; value (TICMAX)  ; CTCINT: EX AF,AF' ;save AF registers LD A,(TICCNT) ;set A = tic counter INC A ;set A = tic counter + 1 CP TICMAX ;TICCNT = TICMAX ? JR NZ,CTCNXT ;no, branch  ;# ; Tic counter has reached maximum value: reset the tic counter # ; to zero and wake up the background timer process  ; XOR A ;set A = 0 POST STTMR ;wake up background timer process  ;$ ; Update tic counter, restore registers and return from interrupt$ ; CTCNXT: LD (TICCNT),A ;update tic counter  EX AF,AF' ;restore AF registers  EI ;enable interrupts RETI ;return from interrupt ;# ;******************************************************************* # ; ; DMA INTERRUPT PROCESS  ;# ;******************************************************************* # ; ; This process is entered when a DMA transfer completes.  ; It will reset the DMA chip and set the STDMA flag to  ; wake up the backplane process.  ; DMAINT: EX AF,AF' ;save registers " LD A,08BH ;set A = DMA EOB status reset command " OUT (DMADR),A ;reset EOB status in DMA chip  POST STDMA ;post DMA completion flag  EX AF,AF' ;restore registers EI ;enable interrupts RETI ;return from interrupt ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; NMI INTERRUPT HANDLER  ;# ;******************************************************************* # ; ; Save registers on the stack. (Note that the alternate  ; register set cannot be used because the NMI interrupt ; might be interrupting another interrupt routine.) ; NMITRP: PUSH AF ;save needed registers PUSH HL ; on the stack ; ; See if this host command is normal or an abort  ; LD HL,(BPLNF+1) ;set HL = host command LD A,H ;set A = host command MSB CP 043H ;abort command ? JR Z,NMIABT ;yes, branch POST STNMI ;no, post the NMI flag! LD (BPBUF),HL ; and save command for BP process ! ; ; Check for a type 3 command. This firmware assumes that  ; all type 3 command contain only 2 words. If we ever ! ; have more that 2 words in a type 3 command the following ! ; code must be modified.  ; AND 0C0H ;set A = command type  CP 0C0H ;type 3 command ?  JR NZ,NMITRX ;no, branch # LD A,(BPLF+1) ;yes, perform dummy read to set BP flag # ; ; Restore registers and return from(( interrupt ; NMITRX: POP HL ;restore used registers  POP AF ; from the stack! RETN ;return from non-maskable interrupt ! ;# ;******************************************************************* # ; ; Abort received from host: post the abort flag rather  ; than the standard NMI flag and return from interrupt  ; NMIABT: POST STABRT ;post abort flag LD (BPABRT),HL ;save command word for BP process  JR NMITRX ; and exit  ;# ;******************************************************************* # *EJECT # ;******************************************************************* # ; ; INTERRUPT VECTOR TABLE ; ; NOTE: This table must not cross a page boundary: i.e., the ; most significant byte off all address in the table ; must be the same. In addition, the table must always  ; start on an EVEN address.  ; ORG RAMADR-0100H  INTTRP: EQU $ ;# ;******************************************************************* # ; ; SIO Interrupt Vectors ; :P SIOI1: DEFW P1XMT ;XMT BUF EMPTY :O DEFW P1EXT ;EXT/STATUS CHANGE :R DEFW P1RCV ;RCV CHAR AVAILABLE :T DEFW P1SPR ;SPECIAL RCV COND :1 ; ; :P DEFW P0XMT ;XMT BUF EMPTY :O DEFW P0EXT ;EXT/STATUS CHANGE :R DEFW P0RCV ;RCV CHAR AVAILABLE :T DEFW P0SPR ;SPECIAL RCV COND :0 ; ; :P SIOI2: DEFW P3XMT ;XMT BUF EMPTY :O DEFW P3EXT ;EXT/STATUS CHANGE :R DEFW P3RCV ;RCV CHAR AVAILABLE :T DEFW P3SPR ;SPECIAL RCV COND :3 ; ; :P DEFW P2XMT ;XMT BUF EMPTY :O DEFW P2EXT ;EXT/STATUS CHANGE :R DEFW P2RCV ;RCV CHAR AVAILABLE :T DEFW P2SPR ;SPECIAL RCV COND :2 ; ; :P SIOI3: DEFW P5XMT ;XMT BUF EMPTY :O DEFW P5EXT ;EXT/STATUS CHANGE :R DEFW P5RCV ;RCV CHAR AVAILABLE :T DEFW P5SPR ;SPECIAL RCV COND :5 ; ; :P DEFW P4XMT ;XMT BUF EMPTY :O DEFW P4EXT ;EXT/STATUS CHANGE :R DEFW P4RCV ;RCV CHAR AVAILABLE :T DEFW P4SPR ;SPECIAL RCV COND :4 *EJECT  ; :P SIOI4: DEFW P7XMT ;XMT BUF EMPTY :O DEFW P7EXT ;EXT/STATUS CHANGE :R DEFW P7RCV ;RCV CHAR AVAILABLE :T DEFW P7SPR ;SPECIAL RCV COND :7 ; ; :P DEFW P6XMT ;XMT BUF EMPTY :O DEFW P6EXT ;EXT/STATUS CHANGE :R DEFW P6RCV ;RCV CHAR AVAILABLE :T DEFW P6SPR ;SPECIAL RCV COND :6 ; ; CTC CHIP 1 INTERRUPT VECTORS  ; CTCTRP: DEFW CTCINT ;CHAN 0 INTERRUPT  DEFW CTCINT ;CHAN 1 INTERRUPT  DEFW CTCINT ;CHAN 2 INTERRUPT  DEFW CTCINT ;CHAN 3 INTERRUPT  ; ; DMA INTERRUPT VECTORS ; DMATRP: DEFW DMAINT ;READY ACTIVE  DEFW DMAINT ;MATCH DEFW DMAINT ;END OF BLOCK  DEFW DMAINT ;MATCH, END OF BLOCK ;# ;******************************************************************* # END INIT .copy off  .number off;number on;number on 0 /PCIF/GSWPCIF/APPE:::4:50:40 644 0 0 31000 5303667211 34211 /PCIF_GS/GSWPCIF/APPE:::4:50:40 $2 Œ2(APPE +n+n+n2AZFST SOURCE: 94200-17507 REV.5005 APPE  Skeleton Code for Screen 6 or 10 The following code is provided strictly as an example of PCIF software and does not imply any HP support.   $PASCAL 'xxxxx-xxxxx REV.4010 <880310.1830>'  $CDS OFF$ $HEAP 0$  $STANDARD_LEVEL 'HP1000'$  $RECURSIVE OFF$ $SEGMENT$  PROGRAM pcchX;  ' {===========================================================================}'' { }'' { Purpose : To read in user-definable values needed by the PC handler }'' { (screen 10) or the highway handler (screen 6). This skeleton }'' { program may be used for either or both screens. }'' { }'' {===========================================================================}'  (*** GLOBAL DECLARATIONS SUCH AS [PCHHL, [PCPHL, ***) (*** AND DEVICE GLOBAL DECLARATIONS FILE GO HERE ***)  TYPE  WORD5 = PACKED ARRAY[1.. 5] OF WORD; WORD10 = PACKED ARRAY[1..10] OF WORD; STR2 = PACKED ARRAY[1.. 2] OF CHAR; STR8 = PACKED ARRAY[1.. 8] OF CHAR; STR15 = PACKED ARRAY[1..15] OF CHAR; STR80 = PACKED ARRAY[1..80] OF CHAR; ' {==================== FORMS/1000 External Declarations ===================}'  PROCEDURE activateform $ALIAS 'F_ACTIVATEFORM'$ ( formfile_name : STR80; VAR form_info : WORD10;  VAR fmp_error : WORD;  VAR return_code : WORD); EXTERNAL;  PROCEDURE showform $ALIAS 'F_SHOWFORM'$ (VAR return_code : WORD); EXTERNAL;  PROCEDURE putstring $ALIAS 'F_PUTSTRING'$ ( field_name : STR8;  fld_value : STR80; strg_len : WORD;  VAR return_code : WORD); EXTERNAL;  PROCEDURE putinteger $ALIAS 'F_PUTINTEGER'$ ( field_name : STR8;  int_fld_value : WORD;  VAR return_code : WORD); EXTERNAL;  PROCEDURE showindow $ALIAS 'F_SHOWINDOW'$ ( action_code : WORD;  msg : STR80; msg_len : WORD;  VAR return_code : WORD); EXTERNAL;  PROCEDURE waitevent $ALIAS 'F_WAITEVENT'$ ( read_selection : WORD; VAR softkey : WORD; VAR return_code : WORD);  EXTERNAL;  PROCEDURE showhelp $ALIAS 'F_SHOWHELP'$ ( helpfile_name : STR80; VAR fmp_error : WORD;  VAR return_code : WORD); EXTERNAL;  PROCEDURE deactivateform $ALIAS 'F_DEACTIVATEFORM'$ (VAR return_code : WORD); EXTERNAL;  PROCEDURE getstring $ALIAS 'F_GETSTRING'$ ( field_name : STR8; strg_len : WORD; edit_actions : WORD5;  VAR ret_pac : STR80;  VAR retlen : WORD; VAR return_code : WORD);  EXTERNAL;  PROCEDURE getinteger $ALIAS 'F_GETINTEGER'$ ( field_name : STR8;  VAR ret_value : WORD;  VAR return_code : WORD); EXTERNAL;  PROCEDURE showalternate $ALIAS 'F_SHOWALTERNATE'$ ( action_code : WORD;  field_name : STR8;  VAR return_code : WORD); EXTERNAL; ' {===========================================================================}' % (*** Procedure declaration for the Screen 6 or 10 program; the parameters% (*** should remain the same  PROCEDURE pc_conf_hy_XX ( new_old_flag : BOOLEAN;  highway_type_no : WORD; highway_type_pac : STR15;  highway_number : WORD; VAR highway_context : GT_HW_CONTEXT;  VAR validation_flag : BOOLEAN;  VAR action : BOOLEAN);  VAR return_code, fmp_error, softkey, previous_key,  retlen, error, b_3, b_12, b_24, b_48, b_96 : WORD; confirmed_abort : BOOLEAN;  form_info : WORD10; edit_actions : WORD5;  msg, ret_str : STR80;   C((ONST READ_SELECT_CONST = 7;  SHOWINDOW_ACTION_CODE = -1; SHOWALT_ACTION_CODE = 1;   ENTER = 0;  HELP = 5;  REFRESH = 7;  ABORT = 8;  ' TEMP_IO_CNTL33 = -23488; {= 10 10 01 00 01 000000 (33B Parameter)}' ' {***************************************************************************}'  PROCEDURE display;  ! (* Set up the fields and display the form for Screen 6 for GE *) !  BEGIN {display} WITH highway_context.io_cntl_30b_pram1 DO  BEGIN$ activateform('/PCIF/GE/!PCCG6', form_info, fmp_error, return_code);$ " putstring ( 'HWY_TYPE' , highway_type_pac, 15, return_code ) ; " putinteger( 'HWY_NUM ' , highway_number, return_code ) ;   IF (new_old_flag) THEN  BEGIN (* Form file contains Timeout and retry count *)  putstring ( 'NEW_OLD ', 'Adding', 6, return_code ); END ELSE  BEGIN (* Place existing context data onto screen *) putstring ( 'NEW_OLD ', 'Update', 6, return_code );( { **** Begin MOD 860812 dld } ( CASE baud_rate OF  6 : putstring( 'B_300 ', 'X', 1, return_code );  7 : putstring( 'B_1200 ', 'X', 1, return_code );  9 : putstring( 'B_2400 ', 'X', 1, return_code );  10 : putstring( 'B_4800 ', 'X', 1, return_code );  11 : putstring( 'B_9600 ', 'X', 1, return_code ); ' { 12 : putstring( 'B_19200 ', 'X', 1, return_code ); FUTURE ENHANCEMENTS } ' OTHERWISE; END; { case }  END; { place existing data }( { **** End MOD 860812 dld } ( showform( return_code ) ; END; { WITH context }  END; { display }  ' {**************************************************************************} '  PROCEDURE verification;  $ (* Verify that the operator entry values are o.k. If so, set up the *) $$ (* highway context parameter and set the validation flag to TRUE. *) $  BEGIN {verification} WITH highway_context DO  WITH io_cntl_30b_pram1 DO BEGIN error := 0;   (* Initialize 33B Parameter *)  io_cntl_33b_pram1 := TEMP_IO_CNTL33;   (* Now do the 30B Parameter *) ! wd := 0; (* Zero out entire 30B record *) ! % bits_per_char := 3; (* Select 8 bits per character *) %% stop_bits := 1; (* Select 1 stop bit *) %% parity := 1; (* Select odd parity *) %% enq_ack := 0; (* Select ENQ/ACK handshake disabled *) %  (* Zero out BAUD rate variables *)  b_3 := 0;  b_12 := 0;  b_24 := 0;  b_48 := 0;  b_96 := 0;   (* Read BAUD rate selection *)  ( getstring('B_300 ', 1, edit_actions, ret_str, retlen, return_code); ( IF (ret_str[1] IN ['X', 'x']) THEN  b_3 := 1;  ( getstring('B_1200 ', 1, edit_actions, ret_str, retlen, return_code); ( IF (ret_str[1] IN ['X', 'x']) THEN  b_12 := 1;  ( getstring('B_2400 ', 1, edit_actions, ret_str, retlen, return_code); ( IF (ret_str[1] IN ['X', 'x']) THEN  b_24 := 1;  & getstring ('B_4800 ',1,edit_actions,ret_str,retlen,return_code); & IF (ret_str[1] IN ['X', 'x']) THEN  b_48 := 1;  & getstring ('B_9600 ',1,edit_actions,ret_str,retlen,return_code); & IF (ret_str[1] IN ['X', 'x']) THEN  b_96 := 1;   validation_flag := TRUE;   (* Check for valid BAUD rate selection *)  IF (b_3 + b_12 + b_24 + b_48 + b_96 <> 1) THEN  ! BEGIN (* More than one "X" or no "X"s...ERROR!!! *) ! validation_flag := FALSE;  error := 1;  % showalternate(SHOWALT_ACTION_CODE, 'B_300 ', return_code); %% showalternate(SHOWALT_ACTION_CODE, 'B_1200 ', return_code); %% showalternate(SHOWALT_ACTION_CODE, 'B_2400 ', return_code); %% showalternate(SHOWALT_ACTION_CODE, 'B_4800 ', return_code); %% showalternate(SHOWALT_ACTION_CODE, 'B_9600 ', return_code); % % msg := '*** EXACTLY ONE "X" IS NEEDED IN ONE OF THE BOXES'; %# showindow(SHOWINDOW_ACTION_CODE, msg, 80, return_code); # END   ELSE IF (b_3 = 1) THEN  baud_rate := 6 (* 300 BAUD *)  ELSE IF (b_12 = 1) THEN  baud_rate := 7 (* 1200 BAUD *)  ELSE IF (b_24 = 1) THEN  baud_rate := 9 (* 2400 BAUD *)  ELSE IF (b_48 = 1) THEN  baud_rate := 10 (* 4800 BAUD *)  ELSE IF (b_96 = 1) THEN  baud_rate := 11; (* 9600 BAUD *)   END; {WITHs} END; {verification}  ' {**************************************************************************} '' {**************************** MAIN PROGRAM ****************************} '' {**************************************************************************} '  BEGIN {pcchg}  validation_flag := FALSE;  edit_actions[1] := 1; edit_actions[2] := 0; edit_actions[3] := 0; edit_actions[4] := 0; edit_actions[5] := 0;   display;  ' (* Only 3 softkeys are active. Listing is not a possibility since PCCON *) '' (* cannot include the context area in its list. *) ' REPEAT  waitevent(READ_SELECT_CONST, softkey, return_code);   CASE softkey OF  # HELP : showhelp('/PCIF/GE/"PCCG6', fmp_error, return_code); #  REFRESH : display;   ENTER : verification;   ABORT : BEGIN  IF (previous_key = ABORT) THEN  confirmed_abort := TRUE  ELSE  BEGIN $ msg := '*** PRESS ABORT KEY AGAIN TO ABORT...'; $( showindow(SHOWINDOW_ACTION_CODE, msg, 80, return_code); ( END; END;   OTHERWISE BEGIN  msg := '*** UNDEFINED SOFTKEY'; ' showindow ( SHOWINDOW_ACTION_CODE, msg, 80, return_code); ' END; END; {CASE}   previous_key := softkey ;   UNTIL ((softkey = ENTER) AND (error = 0)) OR  (confirmed_abort) OR  (return_code = 1);   deactivateform(return_code);   IF (return_code = 1) THEN action := FALSE ; IF (confirmed_abort) THEN action := FALSE ;  END; {pcchg}  ..copy off .number off;number on;number on 0 @p v߀`(A|h  `d  22 AAAAA(2/PCIF/GSWPCIF/APPF:::4:162:40 644 0 0 121000 5303667212 35440 /PCIF_GS/GSWPCIF/APPF:::4:162:40  $ (APPF +n+n+nPHFST SOURCE: 94200-17508 REV.5005 APPF .appendix Stress Test Examples The following code is provided strictly as an example of PCIF software and does not imply any HP support.  The following examples of Fortran code and load files wereused as part of the testing process for the Allen-Bradley and General Electric Handlers of PCIF.  The source for the MONTR program follows:   ftn7x,l,s  program MONTR ( 3, 99 ) % C This program is designed to make many copies of the HUP test program % C and to schedule all of them.   integer prog_names ( 3, 20 ), name(3), unsol_name(3) character*6 unsol_char_name   integer parms ( 5 )  integer a_reg, b_reg integer how_many_progs, counter   integer FmpRpProgram, error  integer max_progs  integer message(36), mess_nos(20)  character*1 ch1, ch2 character*6 rpname, char_names(20) character*6 options  integer start_time(15), end_time(15) integer unsol_only ! integer write_buffer(256),write_length, status, tag, key !" integer read_buffer(256), read_length, subfunction, pc(8,2)"' integer start_writes(20), stop_writes(20), fixed_buff_size, buff_size' integer*4 pcadr, start_bit_addr, preset_addr  ! integer how_many_pcs, which_pc, timeouts(8), bad_juju, id! % integer key_position, pc_connected, station_type, processor_type % integer program_address, diag_address, firmware_rev,  + firmware_series, option_switches  integer byte_no, value  character*60 description   common timeouts, bad_juju, pc   C ****************************************** data id /100/   data prog_names / 2hHU,2hP1,2h ,  + 2hHU,2hP2,2h ,  + (( 2hHU,2hP3,2h ,  + 2hHU,2hP4,2h ,  + 2hHU,2hP5,2h ,  + 2hHU,2hP6,2h ,  + 2hHU,2hP7,2h ,  + 2hHU,2hP8,2h ,  + 2hHU,2hP9,2h ,  + 2hHU,2hP1,2h0 ,  + 2hHU,2hP1,2h1 ,  + 2hHU,2hP1,2h2 ,  + 2hHU,2hP1,2h3 ,  + 2hHU,2hP1,2h4 ,  + 2hHU,2hP1,2h5 ,  + 2hHU,2hP1,2h6 ,  + 2hHU,2hP1,2h7 ,  + 2hHU,2hP1,2h8 ,  + 2hHU,2hP1,2h9 ,  + 2hHU,2hP2,2h0 /   data unsol_name / 2hUN,2hSO,2hL /, timer_address /96/  data options / ' ' / data char_names / 'HUP1 ', 'HUP2 ','HUP3 ','HUP4 ', + 'HUP5 ', 'HUP6 ','HUP7 ','HUP8 ', + 'HUP9 ', 'HUP10 ','HUP11 ','HUP12 ', + 'HUP13 ', 'HUP14 ','HUP15 ','HUP16 ', + 'HUP17 ', 'HUP18 ','HUP19 ','HUP20 '/   data unsol_char_name / 'UNSOL ' / data mess_nos / 2h1 ,2h2 ,2h3 ,2h4 ,2h5 ,2h6 ,2h7 , + 2h8 ,2h9 ,2h10,2h11,2h12,2h13,2h14, + 2h15,2h16,2h17,2h18,2h19,2h20 /  data max_progs /14/ data preset_addr /96/, start_bit_addr/300017/ data tag/0/, key/0/ do i = 1, 8 timeouts(i) = 0  end do   write (1, *) 'How many PCs do you wish to test?? _' read (1, *) how_many_pcs if (how_many_pcs .gt. 0) then write (1, *) 'Enter PC ID numbers' read (1,*) (pc(i,1), i = 1, how_many_pcs)  end if   write (1, *) 'Do you want to do Hup programs (Y/N)?? _' read (1, *) ch1   write (1, *) 'Do you want unsoliciteds (Y/N)?? _' read (1, *) ch2  if ((ch1 .EQ. 'N') .OR. (ch1 .EQ. 'n')) then  unsol_only = 1  else  unsol_only = 0 % write (1, *)'How many HUP programs do you wish to schedule?? _' % read (1, *) how_many_progs " write (1, *)'Fixed or variable length read/write buffer', " + 'buffer size?? (1=fixed, 2=variable) _'  read (1, *) fixed_buff_size if ( fixed_buff_size .eq. 1 ) then" write (1, *)'Enter size of buffer. (1 to 170 words) _' " read (1, *) buff_size if ( buff_size .gt. 170 ) buff_size = 170 if ( buff_size .lt. 1 ) buff_size = 1 end if end if   C Announce the program, print a banner heading for the screen.  " write ( 1, '("hJ&a0r26C&dB PCIF/1000 STRESS TEST ")') "  bad_juju = 0  if ( how_many_progs .GT. max_progs ) then write ( 1, '("Maximum number of Programs exceeded.",  + /,"Using ",I3," programs...",2/)') max_progs  how_many_progs = max_progs  end if   C Get the starting time and display it.  call FTIME ( start_time )$ write ( 1, '("&a1r15CTest Started : ",15A2,2/)') start_time$% write ( 1, '("&a",I1,"R",18X," ** Total Number of Timeouts from", % + " PC ** ",/7(I6,4X),I6,/8(I6,4X))') 2,  + (pc(i,1), i = 1, 8), (timeouts(i), i = 1, 8)   C Open communications with the PCIF system   call PCIF_OPEN ( status ) if ( status .NE. 0 ) then call report_pcif_err ( 1, status )  bad_juju = id  call it_quits ( pc, 100 ) C else  C write ( 1, '("OPEN call worked correctly.")' )  end if   C Connect the PC to the PCIF system.  do which_pc = 1, how_many_pcs  call PC_CONNECT ( status, tag, key, pc(which_pc, 1) )   if ( status .NE. 0 ) then call report_pcif_err ( 1, status )  bad_juju = id  call it_quits ( pc(which_pc,1), 100 ) else $ write ( 1, '("&a15c",I2,"RPC ",I5," Status : CONNECTED.")')$ + which_pc+4, pc(which_pc,1)  end if  end do  do which_pc = 1, how_many_pcs read_length = 10 $ call PC_IDENT ( status, tag, key, pc(which_pc,1), read_buffer,$ + read_length )  if ( read_buffer(2) .eq. 4 ) then  pc(which_pc,2) = 3 # else if ((read_buffer(2).eq.6) .or. (read_buffer(2).eq.3)# + .or. (read_buffer(2).eq.7)) then pc(which_pc,2) = 2  else pc(which_pc,2) = 999  write (1, '("&a15c",I2,"RPC ",I5,  + " Status : NOT SUPPORTED.")') end if end do   C Set up the loop for restoring all of the programs.  if ( unsol_only .NE. 1 ) then do counter = 1, how_many_progs   C RP a copy of the HUP program with the format "HUPxx", where  C xx is the number of the copy.   rpname = char_names ( counter ) ! error = FmpRpProgram ( 'HUP', rpname, options, error ) !  if ( error .NE. 0 ) then " write ( 1,'("Program ",A6," could not be restored.", " + " Error = ",I6,/)') rpname, error  bad_juju = id call it_quits ( 0, id ) C else % C write ( 1, '("Program ",A6," has been RP''ed. Yay !",/)') % C + rpname end if   end do  end if  $ error = FmpRpProgram ( 'UNSOL',unsol_char_name, options, error ) $ if ( error .NE. 0 .AND. error .NE. 239 ) then% write ( 1, '("Program UNSOL could not be restored. Error = ", % + I6,/)') error bad_juju = id  call it_quits ( 0, id)  end if   C Set up the loop for scheduling all of the programs.  if ( unsol_only .NE. 1 ) then do counter = 1, how_many_progs  % C Put the program name into the name buffer for the EXEC schedule call.%  do i = 1, 3  name(i) = prog_names ( i, counter ) end do   C Schedule the program.   C Schedule the program with number and number of pcs. parms(1) = counter  parms(2) = how_many_pcs parms(3) = fixed_buff_size  parms(4) = buff_size  C Schedule the program without wait. $ call EXEC ( 10, name, parms(1), parms(2), parms(3), parms(4))$' call ABREG ( a_reg, b_reg ) ! did the schedule call succeed ' if ( a_reg .NE. 0 ) then $ write ( 1, '("Program ",3A2," scheduling received error",$! + I6," I give up !",2/)') (name(i),i=1,3), a_reg! call it_quits ( 0, 0 )  C else $ C write ( 1, '("Program ",3A2," has been scheduled !",/)') $ C + (name(i),i=1,3) end if   end do  end if ! if ( bad_juju .NE. 0 ) call it_quits ( pc(which_pc,1), id )!  C Tell the PC(s) to start sending unsolicited messages.$ C Writing a 1 a memory location in the PC(s) will start the messages.$ C (PLC-2 needs a -1 written into memory).  if ( ch2 .EQ. 'y' .OR. ch2 .EQ. 'Y' ) then  do which_pc = 1, how_many_pcs" if (bad_juju.NE.0) call it_quits (pc(which_pc,1), id) "  if ( pc(which_pc,2) .eq. 2 ) then  start_writes(1) = -1  pcadr = 34 " call PC_WRITED ( status, tag, key, pc(which_pc,1), " + start_writes, 1, pcadr ) else if ( pc(which_pc,2) .eq. 3 ) then start_writes(1) = 2HST  start_writes(2) = 2HAR  start_writes(3) = 2HTS  start_writes(4) = 2HTP  start_writes(5) = -1  start_writes(6) = 1$ call PC_WRITED_EXT ( status, tag, key, pc(which_pc,1), $ + start_writes, 8, 1 ) end if  if ( status .NE. 0 ) then  write ( log, '("&a23R_")') call report_pcif_err ( 1, status )  call it_quits ( pc(which_pc,1), id )  end if end do  end if  C Schedule the unsolicited message handler program.   parms(1) = how_many_pcs # call EXEC ( 9, unsol_name, parms ) ! Schedule UNSOL with wait#  C call ABREG ( a_reg, b_reg ) C if ( a_reg .NE. 0 ) then % C write ( 1, '("UNSOL could not be scheduled. Error = ",I6,/)') % C + a_reg C bad_juju = id  C call it_quits ( 0, 0 )  C else  C write ( 1, '("UNSOL was scheduled correctly.",/)' ) C end if  ! C OK, that's enough ! Stand back and watch Das Blinkenlights !!  C if ( bad_juju .NE. 0 ) call it_quits ( pc(which_pc), id ) # C write ( 1, '(2/,"All done... Watch the Blinkenlights !",2/)')# C call EXEC ( 6, 0, 1 ) $ C *********************************************************************$$ C If this program is rescheduled, pick up execution here and off all $ C of the programs.   call RMPAR ( parms )  if ( bad_juju .NE. 0 (() then" write ( 1, '("&a25R&dB MONTR - Error Detected from", " + " program ",I3,/)' ) bad_juju else ! write ( 1,'("&a25R MONTR : Normal Completion...")') ! end if   call FTIME ( end_time )" write ( 1, '("&a28R Starting Time : ",15A2)' ) start_time "" write ( 1, '("&a29R Error Time : ",15A2,2/)' ) end_time"  if ( bad_juju .EQ. 0 ) then write ( 1, '("Now stopping all test programs...",/)' )  do counter = 1, how_many_progs  message(1) = 2hOF message(2) = 2h,H message(3) = 2hUP message(4) = mess_nos (counter) do i = 5, 36  message(i) = 2h end do   length = MESSS ( message, 72)  if ( length .NE. 0 ) then# write ( 1, '( 36A2,/)') (message(k),k=1,(-length+1)/2) # end if   end do end if   C Get rid of the UNSOL program.  C message(1) = 2hOF message(2) = 2h,U message(3) = 2hNS message(4) = 2hOL do i = 5, 36 message(i) = 2h  end do  length = MESSS ( message, 72, lu )  if ( length .NE. 0 ) then! write ( 1, '( 36A2,/)') (message(k),k=1,(-length+1)/2 )! end if  $ C Send a "0" to a memory loccation in the PC(s) to stop it (them) from$ C sending any more unsolicited messages.  do which_pc = 1, how_many_pcs if (bad_juju.NE.0) call it_quits (pc(which_pc,1), id)  if ( pc(which_pc,2) .eq. 2 ) then  start_writes(1) = 0 pcadr = 34 call PC_WRITED ( status, tag, key, pc(which_pc,1),  + start_writes, 1, pcadr ) else if ( pc(which_pc,2) .eq. 3 ) then start_writes(1) = 2HST  start_writes(2) = 2HAR  start_writes(3) = 2HTS  start_writes(4) = 2HTP  start_writes(5) = -1  start_writes(6) = 0" call PC_WRITED_EXT ( status, tag, key, pc(which_pc,1), " + start_writes, 8, 1 ) end if if ( status .NE. 0 ) then  write ( 1, '("&a35R_")') call report_pcif_err ( 1, status )  end if end do   write ( 1, '(/,"All done !" )' )   call PCIF_CLOSE ( status )   call it_quits ( pc(which_pc,1), id )  end C *********************************************************  C Quit executing.   subroutine it_quits ( pc, id ) integer prog_name(3), id, status  call PCIF_CLOSE ( status )  call EXEC ( 6 )  return  end  C ***********************************************************  C $ C ******************************************************************* $ C This subroutine handles PCIF Error reporting to an LU. C subroutine report_pcif_err ( log_lu, status )  integer error_message(67), error_length, status, log_lu   call PCIF_ERROR ( status, error_message, error_length ) " write ( log_lu , '(///,"&dB",67A2,/)') ( error_message (k), " + k = 1, (error_length+1)/2 )  return  end % C ********************************************************************* %.copy off  .subsection MONTR.LOD  The load file for the MONTR program follows: .copy on sc  li,pclib.lib  li /libraries/pascal  re,montr.rel  en .copy off  .section HUP.FTN The source for the HUP program follows:  .copy on ftn7x,l,s $FILES 3,3   program HUP ( 3, 99 ) " C The AB pc must be in stop mode before running this test. This "! C test will perform READP and READP calls beginning at physical! C location pcadr = 100  C# C The idea is to swamp the data highway with requests, to test the # C ability of PCIF to handle large numbers of requests.  C! C **************************************************************! C Declarations   $ integer log ! Terminal LU number for interaction $  integer status ! PCIF call status  integer read_status ! PCIF readd call status  integer write_status ! PCIF writed call status integer tag ! User-defined tag variable" integer key ! Access key for no-wait requests" integer pc(8,2) ! PC logical identifier integer subfunction ! CMD byte for AB PCs' integer write_buffer (256) ! buffer containing message to write to PC '$ integer write_length ! length of message to transmit to PC$$ integer write_length_a ! length of message to transmit to PC$$ integer write_length_b ! length of message to transmit to PC$# integer read_buffer(256) ! buffer containing message from PC#$ integer read_length ! length of message received from PC $$ integer read_length_a ! length of message received from PC $$ integer read_length_b ! length of message received from PC $! integer error_message(40) ! ASCII decoding of error codes!# integer error_length ! length in bytes of error message #$ integer security_code ! PCIF security code for disconnects $! integer*4 pcadr ! memory address for PCIF calls! " integer key_position ! 0 = program, 1 = test, 2 = run " integer station_type ! 1 = 1771-KA integer processor_type ! type of PC processor  integer program_address ! start of program address  integer diag_address ! diagnostic counters address " integer firmware_rev ! revision level of the firmware "! integer firmware_series ! series level of the firmware ! integer option_switches ! switch settings for options   integer which_pc, how_many_pcs & integer length ! the user defined or random length of write/read& integer plc_3 ! the value 3 which indicates PLC-3 integer plc_2 ! the value 2 which indicates PLC-2 integer break_bit ! integer params(5) ! run-time parameters  integer id ! which HUP program is this " integer timeouts(8)! number of timeouts that have occurred " integer bad_juju ! flag for all test programs# integer ncount ! counter to keep track of request number.#' integer fixed_buff_size ! 1 = fixed buffer size, other = variable size '  integer dcb(256) ! integer error ! integer buffers  integer buffer(256)  integer maxlen   character * 12 file_descriptor  character * 6 options logical no_file  integer error_time(15) integer file_status  integer error_count   common timeouts, bad_juju, pc   call rmpar ( params )  C Initialization   data max_length / 256 /   C Get run-time parameters. ! id = params(1) ! Set this programs id.!$ how_many_pcs = params(2) ! Number of pcs being tested.$% fixed_buff_size = params(3) ! = 1 if want fixed buff size. % bad_juju = 0 ( log = 1 ! Interact with LU 1 : session termimal ( no_file = .true. $ tag = 0 ! Tags are not being used here. $( key = 0 ! Specify operation WITH wait ( no key) (# security_code = 0 ! PCIF security code not used #  do i = 1, how_many_pcs  timeouts(i) = 0  end do   file_descriptor = 'HUP' // char(id+48) // 'E::P1:4' ! C **************************************************************! C Say Hello !  ! C write ( log,'(2/,T30,"HUP ",I3," is active !",2/)' ) id ! ! C **************************************************************!% C Execute a PCIF OPEN to establish communication with the PCIF modules.%   call PCIF_OPEN ( status )   if ( status .NE. 0 ) then ! call PCIF_ERROR ( status, error_message, error_length )! write ( log, '(" HUP ",I3," _")' ) id  write ( log, '(2/,"&dB",40A2,2/)' )  + ( error_message(k), k = 1, (error_length+1)/2 )  bad_juju = id  call it_quits ( pc(which_pc,1), id, bad_juju )   end if  ! C **************************************************************!% C Execute a PCIF Connect call to establish communications with the PC. %  do which_pc = 1, how_many_pcs call PC_CONNECT ( status, tag, key, pc(which_pc,1) ) if ( status .NE. 0 ) then  " call PCIF_ERROR ( status, error_message, error_length )" write ( log, '(" HUP ",I3," _")' ) id  write ( log, '(2/,"&dB",40A2,2/)')! + ( error_message(k), k = 1, ( error_length + 1 )/2 ) ! bad_juju = id  call it_quits ( pc(which_pc,1), id, bad_juju ) end if end do ! C **************************************************************! ncount = 0  do while ( break_bit .NE. -1 )   if ( bad_juju .NE. 0 ) call it_quits ( pc(which_pc,1),  + (( id, bad_juju ) # call zeros ( read_buffer, max_length ) ! zero the buffer#$ call zeros ( write_buffer, max_length ) ! zero the buffer $ ! C **************************************************************! C Get the address in PC memory to send this data to.   200 continue  ! C **************************************************************! C OK, write the data to the PC.   if ( fixed_buff_size .ne. 1 ) then if ( id .lt. 8 ) then" length = 2 ** id ! read variable number of words" else " length = 2 ** ( (8 - id) + 7 ) ! only works for 14 " end if  else length = params(4)  endif  ncount = ncount + 1   do which_pc = 1, how_many_pcs  if ( pc(which_pc,2) .eq. 2) then  pcadr = 128  write_length = length  do i = 1, write_length write_buffer(i) = i end do  call PC_WRITED ( write_status, tag, key," + pc(which_pc,1), write_buffer, write_length, pcadr ) "  else if (pc(which_pc,2) .eq. 3) then  write_buffer(1) = 2HHU write_buffer(2) = 2HPT write_buffer(3) = 2HES write_buffer(4) = 2HT1 write_buffer(5) = -1 write_length_a = 8 write_length_b = length  do j = 6, (length + 5) write_buffer(j) = j end do % call PC_WRITED_EXT ( write_status, tag, key, pc(which_pc, %! + 1), write_buffer, write_length_a, write_length_b )! else goto 100 end if  # C Position the cursor to the right window for writing to the screen,# C then write the message.   if (bad_juju.NE.0) call it_quits ( pc(which_pc,1),  + id, bad_juju )   if ( write_status .NE. 0 ) then error_count = error_count + 1 $ if (error_count .gt. 100) call it_quits( pc(which_pc,1),$ + id, bad_juju) " open ( 2, file='HUP'//char(id+48)//'E::P1:4',err=20,"$ + use='nonexclusive',iostat=error,access='sequential') $  if ( no_file ) then  rewind ( 2, err=20) no_file = .false. endif   call FTIME ( error_time )  % write ( 2, '(1X,I4," ERROR # ", I4, " : ERROR TIME WAS ", %! + 15A2," ON A WRITE")') error_count, ! + write_status, error_time  C close (2)  " write ( log, '("&a",I2,"R HUP ",I3,"&dB WRITE ", "" + "Failed. Status = ",I6," PC = ",I3)' ) id + 16," + id, write_status, pc(which_pc,1)  % C Check to see if this is a timeout - if it is, don't stop the program.% if (write_status.EQ.38) then timeouts(which_pc) = timeouts(which_pc) + 1 write ( log, '("&a4R", 8(I6,4x))') + (timeouts(j), j = 1, 8, 1)  C else  C write ( 1, '("&a21R_")') C call report_pcif_err ( log, write_status )  C bad_juju = id! C call it_quits ( pc(which_pc,1), id, bad_juju ) ! end if   else  write ( log, '("&a",I2,"R&d@ HUP ",I3, + "&d@ WRITEP executed",  + " normally on PC ",I2," Request # ",I15,I4)') $ + id+16, id, pc(which_pc,1), ncount,timeouts(which_pc) $# write ( log, '("&a",I2,"r32C&d@ Up and Running !")')# + which_pc + 4 end if 100 continue  end do  C Read the words back from the PC.  if ( bad_juju .NE. 0 ) call it_quits ( pc(which_pc,1),  + id, bad_juju )  do which_pc = 1, how_many_pcs  if ( pc(which_pc,2) .eq. 2) then  pcadr = 128  read_length = length do i = 1, read_length  read_buffer(i) = 0  end do  call PC_READD ( read_status, tag, key,! + pc(which_pc,1), read_buffer, read_length, pcadr ) !  else if (pc(which_pc,2) .eq. 3) then  read_buffer(1) = 2HHU  read_buffer(2) = 2HPT  read_buffer(3) = 2HES  read_buffer(4) = 2HT1  read_buffer(5) = -1  read_length_a = 8  read_length_b = length do j = 6, (length + 5) read_buffer(j) = 0  end do % call PC_READD_EXT ( read_status, tag, key, pc(which_pc,1) % + , read_buffer, read_length_a, read_length_b )  else goto 300 end if  $ C Position the cursor to the right place on the screen, then write the$ C message. " if ( bad_juju .NE. 0 ) call it_quits ( pc(which_pc,1), " + id, bad_juju )   if ( read_status .NE. 0 ) then  error_count = error_count + 1 $ if (error_count .gt. 100) call it_quits( pc(which_pc,1),$ + id, bad_juju)  open ( 2, file='HUP'//char(id+48)//'E::P1:4',  + err=20,use='nonexclusive' + ,iostat= error,access = 'sequential')   if ( no_file ) then  rewind ( 2, err=20) no_file = .false. endif   call FTIME ( error_time )  % write ( 2, '(1X,I4," ERROR # ", I4, " : ERROR TIME WAS ", % + 15A2, " ON A READ")') error_count, + read_status, error_time  C close (2)   $ write (log,'("&a",I2,"R HUP ",I3,"&dB READ failed.",$ + " Status = ",I6," PC = ",I3,2/)' )  + id + 16, id, read_status, pc(which_pc,1)  % C Check to see if this is a timeout - if it is, don't stop the program.% if (read_status.EQ.38) then  timeouts(which_pc) = timeouts(which_pc) + 1 write ( log, '("&a4R",8(I6,4x))')  + (timeouts(j), j = 1,8,1)' C else ! TimeOut ! ' C write ( log, '("&a21R_")') C call report_pcif_err ( log, read_status ) C bad_juju = id! C call it_quits ( pc(which_pc,1), id, bad_juju ) ! end if ( else ! No Error ! ( write ( log, '("&a",I2,"R&d@ HUP ",I3, + "&d@ READP executed normally on PC ",I2,  + ". Request # ",I15, I4)') id + 16,  + id, pc(which_pc,1), ncount,timeouts(which_pc) % write (log,'("&a",I2,"r32C&d@ Up and Running ! ")') % + which_pc + 4  end if   C Compare them for verification.  if ( fixed_buff_size .eq. 1 ) then # if ( bad_juju .NE. 0 ) call it_quits ( pc(which_pc,1),# + id, bad_juju ) # if (read_status.NE.38 .AND. write_status.NE.38) then # C' C Don't check location one. It may not be the same since other programs are ' C running that may be changing the value of location one.  C do i = 2, read_length" if ( read_buffer(i) .NE. read_buffer(i) ) then"% write ( log, '("&a",I2,"R&dB HUP ",I3,"&dB ", % + "Verification Failed in word ",I2)' ) + id + 16, id, i % write ( log, '("&a",I2,"r32C&dB Verification" %% + " Failed on PC ",I3)') which_pc+4,pc(which_pc,1) % % write ( log, '("&dB Read : ",I6," should be ", %" + I6, 2/)' ) read_buffer(i), write_buffer(i)" bad_juju = id$ call it_quits ( pc(which_pc,1), id, bad_juju ) $ end if end do end if end if 300 continue  end do C C Go back and do this again ! A testers work is never done !   break_bit = ifbrk ( ) $ if (bad_juju.NE.0) call it_quits (pc(which_pc,1),id,bad_juju) $ end do   C Normal completion.  ! write ( log, '(" HUP ",I3," Normal Completion !",2/)' ) id!  20 call PCIF_CLOSE ( status )   call it_quits ( 0, id, bad_juju ) end  C ********************************************************* ' C Quit executing - schedule the other program MONTR to turn off all copies.'  subroutine it_quits ( pc, id, bad_juju ) integer id, status, prog_name(3), bad_juju, pc   call PCIF_CLOSE ( status )   close (2)((" call EXEC ( 6 ) ! give up and go home " return  end  C *********************************************************   C Fill a buffer with zeros.  subroutine zeros ( buffer, length )  integer buffer(*), length  do i = 1, length buffer(i) = 0  end do  return  end C# C *******************************************************************# C This subroutine handles PCIF Error reporting to an LU. C subroutine report_pcif_err ( log_lu, status )  integer error_message(67), error_length, status, log_lu   call PCIF_ERROR ( status, error_message, error_length ) " write ( log_lu , '(///,"&dB",67A2,/)') ( error_message (k), " + k = 1, (error_length+1)/2 )  return  end % C ********************************************************************* %.copy off   .subsection HUP.LOD  The load file for the HUP program follows: .copy on sc  li,pclib.lib  li /libraries/pascal  re,hup.rel  en .copy off   .section UNSOL.FTN  The source for the UNSOL program follows:  .copy on ftn7x,l " program UNSOL ( 3, 99 ),94206-16107 REV.2606 <880310.1831> " % C Program to process unsolicited requests from a General Electric Series% C Six PLC. C" C This program is meant to be used with a PCIF configuration file" C configuring ONE TO EIGHT logical PCs numbered 1 through 8. C  C Initialization   integer log, parms(5), count(8), j  integer cont_mode, break_flag integer status, pc(8,2), tag, key, buffr $ integer oldtag, oldstat, contkey, lengr, typer, logr, logr_words $ integer write_buffer(256), write_length, enq_buffer(256)  integer err_mess(40), err_len, unsol_pc_no  integer*4 pcadr logical match_flag  $ integer which_pc, how_many_pcs, temp, timeouts(8), bad_juju, id $  common timeouts, bad_juju, pc   data log/1/, break_flag/0/  data tag/32767/, key/0/, count / 8 * 0 /  data lengr / 256 /, oldtag/0/, oldstat/0/, id/20/  C Get scheduling parameters.   call rmpar ( parms )  how_many_pcs = parms(1)  C Print a greeting...  $ write ( log,'("&a13RUNSOL Program Status : Initializing !")') $  C Open communications with the PCIF monitor.  call PCIF_OPEN ( status ) if ( status .NE. 0 ) then  call PCIF_ERROR ( status, err_mess, err_len )# write ( log, '(/,"&a15R&dB",40A2,2/)' ) (err_mess(k),k=1,# + (err_len+1)/2 ) bad_juju = id stop 0001  c else  c write ( log, 201 )  c201 format ( "PCIF_OPEN succeeded..." ) end if   C Connect this program with PC # 1 and 2.   do which_pc = 1, how_many_pcs  call PC_CONNECT ( status, tag, key, pc(which_pc,1) )  if ( status .NE. 0 ) then  call PCIF_ERROR ( status, err_mess, err_len )# write ( log, '(/,"&a15R&dB",40A2,2/)' ) (err_mess(k),k=1,# + (err_len+1)/2 ) bad_juju = id stop 0002  end if  end do   C Get an access key for use with unsolicited interrupts.  call PC_GETKEY ( status, key )   if ( status .NE. 0 ) then  call PCIF_ERROR ( status, err_mess, err_len )# write ( log, '(/,"&a15R&dB",40A2,2/)' ) (err_mess(k),k=1,# + (err_len+1)/2 ) bad_juju = 20 stop 0001  end if   C Enable unsolicited requests from the PC.  do which_pc = 1, how_many_pcs  call PC_ENUNSOL ( status, pc(which_pc,1), key )  if ( status .NE. 0 ) then  call PCIF_ERROR ( status, err_mess, err_len )# write ( log, '(/,"&a15R&dB",40A2,2/)' ) (err_mess(k),k=1,# + (err_len+1)/2 ) bad_juju = id stop 0001  end if  end do  # C ******************************************************************# C This is the start of a continuous loop.   1500 continue   C Do enquiry to find out if there is data to read yet... C set contkey = key + 100000B for Enquiry without wait.   contkey = key   do i = 1, lengr  enq_buffer(i) = 0  end do   logr = 0  typer = 0  do which_pc = 1, how_many_pcs # if (bad_juju.NE.0) call it_quits (pc(which_pc,1), id, bad_juju)# $ call PC_ENQUIRY ( status, oldstat, oldtag, contkey, unsol_pc_no, $ + enq_buffer, lengr, typer, logr ) $ if ( bad_juju .NE. 0 ) call it_quits ( unsol_pc_no, id, bad_juju)$  if ( status .NE. 0 ) then  write ( log, '("&a15R_")') call report_pcif_err ( log, status )  call it_quits ( unsol_pc_no, id, bad_juju )  else if ( logr .GT. 0 ) then   C LOGR is sent in bytes, so convert to words.   logr_words = logr / 2 & C Check the returned data for errors. Words 1-7 are the header info, while& C words 8-11 are the actual data.   C match_flag = .false.  C if ( enq_buffer( 8) .NE. 256 ) match_flag = .true. C if ( enq_buffer( 9) .NE. 512 ) match_flag = .true. C if ( enq_buffer(10) .NE. 768 ) match_flag = .true. C if ( enq_buffer(11) .NE. 1024 ) match_flag = .true. C C if ( match_flag ) then  C write ( log, '("&a25c13RData invalid from PC ",  C + I5," !",/,"Buffer = ",10(I6,1X),/)' )  C + pc(which_pc), ( enq_buffer(k),k=1,11 )  C call it_quits ( pc(which_pc), id, bad_juju ) C else   do j = 1, how_many_pcs$ if ( unsol_pc_no .eq. pc(j,1)) count(j) = count(j) + 1 $ end do  # write ( log, '("&a13r25CGetting Good Data from PC ",I3,# + " ! TOTAL UNSOLS: ")') unsol_pc_no write ( log, '("&a14r1C",8(I6,4X))')  + (count(j), j = 1, 8, 1)  logr = 0 C end if  else  % C Take a break of 0.1 seconds to give other programs a shot at the CPU. %  call EXEC ( 12, 0, 1, 10, -10 ) ! if ( bad_juju .NE. 0 ) call it_quits ( unsol_pc_no, id,! + bad_juju )  end if   C Return to the loop starting point to do more testing.  $ if ( bad_juju .NE. 0 ) call it_quits ( unsol_pc_no, id, bad_juju)$  end do   break_flag = ifbrk ( )  if (break_flag .EQ. -1) call it_quits (0, 0, 0)  go to 1500   end  C ********************************************************* ' C Quit executing - schedule the other program MONTR to turn off all copies.'  subroutine it_quits ( pc, id, bad_juju ) integer pc, id, status, prog_name(3), bad_juju  call PCIF_CLOSE ( status )   call EXEC ( 6 )  return  end   C# C *******************************************************************# C This subroutine handles PCIF Error reporting to an LU. C subroutine report_pcif_err ( log_lu, status )  integer error_message(67), error_length, status, log_lu   call PCIF_ERROR ( status, error_message, error_length ) " write ( log_lu , '(///,"&dB",67A2,/)') ( error_message (k), " + k = 1, (error_length+1)/2 )  return  end % C ********************************************************************* %.copy off   .subsection HUP.LOD  The load file for the HUP program follows: .copy on sc  li,pclib.lib  li /libraries/pascal  re,hup.rel  en .copy off  .number off;number on;number on 0 /PCIF/GSWPCIF/APPG:::4:138:40 644 0 0 105000 5303667213 35165 /PCIF_GS/GSWPCIF/APPG:::4:138:40  $ d(APPG +n+n+nD2FST SOURCE: 94200-17509 REV.5005 APPG   Shell Test Examples  The following code is provided strictly as an example of PCIF software and does not imply any HP support.   $DEBUG ON$  PROGRAM tpmon(input,output);  $TRACE 1$  { Include global PC handler declarations in file [PCPHL } { $INCLUDE '[PCPHL'$ }  # { **************************************************************** } ## { * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1983. ALL RIGHTS * } ## { * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED * } ## { * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT * } ## { * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY * } ## { **************************************************************** } ## { } # # { this file contains the global declarations for } ## { PC handler writing. These declarations are only (( } ## { TYPE and non structured CONSTANT } #  TYPE   BYTE = -128..127 ; WORD = -32768..32767 ;   MSG_TYPE =  RECORD  offset : WORD ;  length : WORD ;  status : WORD ;  CASE INTEGER OF  0 : (fonction : WORD ; param1 : WORD ; param2 : WORD ; param3 : WORD ; param4 : WORD ) ; 1 : (word_array : ARRAY[1..5] OF WORD) ; 2 : (byte_array : PACKED ARRAY[1..10] OF BYTE) ; END ;  ACTIVATION_CONTEXT_TYPE =  RECORD event : WORD ; action_flag : PACKED ARRAY [1..16] OF BOOLEAN ;  action_code : WORD ; pc_type : WORD ; pc_capability : PACKED ARRAY [1..16] OF BOOLEAN ; % appl_id : WORD ; { **** MOD 860310 mja } % request : MSG_TYPE ; sub_request : MSG_TYPE ; END ;   BUFFER_AREA_TYPE = PACKED ARRAY[1..8192] OF BYTE ; " HEADER_AREA_TYPE = PACKED ARRAY[1..17] OF BYTE ; {RJG 3/15/84} "  CONST {----------- user request function codes ---------------}  PC_READD = 1 ; PC_WRITED = 2 ; PC_READP = 3 ; PC_WRITEP = 4 ; PC_TRANS = 8 ;   PC_READD_EXT = 9 ; { RJG 1/20/84 }  PC_WRITED_EXT = 10 ; { RJG 1/20/84 }  PC_READP_EXT = 11 ; { RJG 1/20/84 }  PC_WRITEP_EXT = 12 ; { RJG 1/20/84 }  PC_WRITEB_EXT = 13 ; { RJG 3/13/84 }   PC_FREEZE = 15 ; { RJG 2/25/84 }  PC_START = 16 ; PC_STOP = 17 ; PC_ENUNSOL = 18 ; PC_DIUNSOL = 19 ; PC_CONNECT = 20 ; PC_DISC = 21 ; PC_PCSTAT = 22 ; PC_SYSTAT = 23 ; PC_CANCEL = 24 ; PC_LOCK = 25 ; PC_UNLOCK = 26 ; PC_GETKEY = 27 ; PC_RELKEY = 28 ; PC_CLOSE = 29 ; PC_IDENT = 30 ; ( { **** Begin MOD 860310 mja } ( PC_ASSOC = 31 ; PC_CALIBRATE = 32 ; PC_CONTINUE = 33 ; PC_CYL_STOP = 34 ; PC_DIR = 35 ; PC_DISASSOC = 36 ; PC_HOLD = 37 ; PC_MAPIDENT = 38 ; PC_MAPSTAT = 39 ; PC_PRGM_DEL = 40 ; PC_PRGM_SEL = 41 ; PC_RLNQCNTL = 42 ; PC_TAKECNTL = 43 ; ( { **** End MOD 860310 mja } ( PC_CALL0 = 64 ; PC_CALL63 = 127 ;   { EVENT activation codes } initialization = 1 ;  request_initiation = 3 ;  request_reentry = 4 ;  sub_request_completion = 6 ;  unsolicited_sub_request = 7 ;  request_cancelation = 8 ;   { ACTION_CODE values }  no_action = 1 ; send_sub_request_wait = 2 ; send_sub_request_nowait = 3 ;  send_request_completion = 4 ;  send_request_sub_request = 5 ;  reset_highway_handler = 6 ;  wait_request_buffer = 7 ;  wait_sub_request_buffer = 8 ;   { capability array bit definition }  capability_RW = 1 ; capability_PR = 2 ; capability_TR = 3 ; capability_UN = 4 ; capability_ST = 5 ;   { action_flag bit definition }  action_flag_EI = 16 ; action_flag_EU = 15 ;   { ---- call to PCIF service routines : status codes ---- }  SR_status_msg_skeleton = 235 ;  SR_status_no_available_memory = 236 ;  SR_status_no_match_found = 237 ;  SR_status_buffer_already_allocated = 239 ;  SR_status_more_than_one_create_UNS = 240 ;  SR_status_call_made_by_PC_handler = 243 ;  SR_status_no_msg = 245 ;  SR_status_exceed_buffer_size = 246 ;  SR_status_negative_offset = 247 ;  SR_status_no_up_buffer = 248 ;  SR_status_no_allocated_buffer = 249 ;  SR_status_invalid_msg = 250 ;  SR_status_invalid_msg_type = 251 ;  SR_status_invalid_call = 252 ;  SR_status_length_too_large = 253 ;  SR_status_invalid_length = 254 ;  SR_status_unknown_msg_type = 255 ;    TYPE  completion_type = word;   gt_pc_context = RECORD  ! (*** FILL IN PC CONTEXT STRUCTURE HERE ***) !  END;   eq_wd_byte = PACKED RECORD CASE BOOLEAN OF true: (b1 : byte; b2 : byte);  false:(wrd : word) END;   VAR name_entree, name_sortie : PACKED ARRAY [1..15] OF CHAR ; tempo_eq : eq_wd_byte;  I, offset, last_line,  loop_end, tempo : word;  lf : TEXT;  pc_context : gt_pc_context; activation_context : activation_context_type; data_area : buffer_area_type;  $ (********************************************************************) $$ (****** The following are dummy procedures which emulate the ******) $$ (****** functions of the PCIF Monitor service routines. ******) $$ (********************************************************************) $  FUNCTION set_window ( (msg_type, buffer_offset, buffer_length : word) : completion_type; (  BEGIN IF (msg_type = 2) THEN  BEGIN writeln ('What is status of set_window ?'); readln(I); set_window:= I; IF (I = 0) THEN  BEGIN writeln ('Subrequest buffer window is in req buff '); ' writeln (' from byte', buffer_offset+1:3,' to byte',buffer_length);' activation_context.sub_request.offset := ! activation_context.request.offset + buffer_offset; !" activation_context.sub_request.length := buffer_length ; " END;  END ELSE writeln('Illegal parameter passed to set_window'); END;  $ {=====================================================================}$  FUNCTION allocate_buffer (msg_type : word) : completion_type;  BEGIN IF (msg_type = 1) THEN  BEGIN writeln ('Status to return from allocate_buffer?'); readln(I);  allocate_buffer := I;! IF (I = 0) THEN activation_context.request.offset := 1001 ;!$ writeln('Request.length = ', activation_context.request.length); $$ writeln('Request.offset = ', activation_context.request.offset); $ END;  IF (msg_type = 2) THEN  BEGIN writeln ('Status to return from allocate subrq buff?'); readln(I);  allocate_buffer := I;! IF (I = 0) THEN activation_context.sub_request.offset := 1;!% writeln('Subreq.length = ', activation_context.sub_request.length);%% writeln('Subreq.offset = ', activation_context.sub_request.offset);% END;  END;  $ {=====================================================================}$  FUNCTION release_buffer (msg_type : word) : completion_type;   BEGIN CASE msg_type OF  1 : activation_context.request.offset := 0; 2 : activation_context.sub_request.offset := 0; OTHERWISE END;  release_buffer := 0;  END;  $ {=====================================================================}$  FUNCTION flush_sub_requests : completion_type;   BEGIN writeln('Flush sub requests');  flush_sub_requests := 0;  END;  $ {=====================================================================}$  FUNCTION create_unsol_request : completion_type;   BEGIN writeln('Create unsolicited request skeleton');  create_unsol_request := 0; END;  ! (***************************************************************)!! (* This is the external declaration of the actual PC handler. *)!! (* (REPLACE THE XX PART WITH THE ACTUAL PROCEDURE NAME USED) *)!! (***************************************************************)!  PROCEDURE pc_pc_hand $ALIAS 'pc_pc_hand_XX'$ $ (VAR activation_context : activation_context_type;$! VAR data_area : buffer_area_type; ! VAR pc_context : gt_pc_context);  EXTERNAL; $ (=====================================================================)$$ (========================= MAIN PROGRAM ============================)$$ (=====================================================================)$  BEGIN WITH activation_context, pc_context DO  BEGIN writeln('Please enter the input test file name'); writeln('(max 10 characters):');  readln(name_entree);   reset(lf, name_entree);   writeln ('Please enter the output file name:'); readln(name_sortie);   { Read in activation context from input file }  readln (lf); { Read and ignore comment line }  readln (lf, event);   { PC action flag ignored in file, set all bits to 0 } readln (lf);  FOR i := 1 to 16 DO  action_flag[i] := FALSE;  readln (lf, action_code); readln (lf, pc_type);   { PC capability ignored in file, set all bits to 0 }  readln (lf);  FOR i := 1 to 16 DO  pc_capability[i] := FALSE;   readln (lf, dummy);  readln (lf, request.offset);  readln (lf, req((uest.length);  readln (lf, request.status);  readln (lf, request.fonction);  readln (lf, request.param1);  readln (lf, request.param2);  readln (lf, request.param3);  readln (lf, request.param4);  readln (lf, sub_request.offset);  readln (lf, sub_request.length);  readln (lf, sub_request.status);  readln (lf, sub_request.fonction);  readln (lf, sub_request.param1);  readln (lf, sub_request.param2);  readln (lf, sub_request.param3);  readln (lf, sub_request.param4);  % { Read in request buffer (if offset and length non-zero) from infile } % IF ((request.offset > 0) AND  (request.length > 0)) THEN  BEGIN  readln (lf); { Read and ignore comment line }  FOR I := 1 TO request.length DO  BEGIN  readln (lf,tempo); tempo_eq.wrd := tempo; data_area[1000 + I] := tempo_eq.b2;  END; END; $ { Read in subrequest buffer (if offset and length non-zero, and } $$ { if subrequest offset is not equal to request offset) from infile } $ IF ((sub_request.offset > 0) AND  (sub_request.length > 0)) AND (sub_request.offset <> request.offset) THEN BEGIN  readln (lf); { Read and ignore comment line } FOR I := 0 TO sub_request.length - 1 DO  BEGIN  readln (lf,tempo); tempo_eq.wrd := tempo; data_area[sub_request.offset + I] := tempo_eq.b2;  END; END;  (*** READ IN PC CONTEXT FROM INPUT FILE HERE ***)  writeln('=== Entering PC Handler ==='); % { Call the PC Handler with the new activation_context and pc_context } % pc_pc_hand (activation_context, data_area, pc_context); writeln;  writeln('=== Done with PC Handler ===');   rewrite (lf, name_sortie) ;  writeln (lf, '=== Activation_context ==='); writeln (lf); writeln (lf,'event ',event:6);   write (lf, 'action_flag ');  FOR i := 1 to 16 DO  IF (action_flag[i]) THEN  write (lf, 'T ')  ELSE  write (lf, 'F ');  writeln (lf);  write (lf,'action_code ');  CASE action_code OF  1 : writeln(lf, 'NO_ACTION');  2 : writeln(lf, 'SEND_SUB_REQUEST_WAIT');  3 : writeln(lf, 'SEND_SUB_REQUEST_NOWAIT');  4 : writeln(lf, 'SEND_REQUEST_COMPLETION');  5 : writeln(lf, 'SEND_REQUEST_SUB_REQUEST'); 6 : writeln(lf, 'RESET_HIGHWAY_HANDLER');  7 : writeln(lf, 'WAIT_REQUEST_BUFFER');  8 : writeln(lf, 'WAIT_SUB_REQUEST_BUFFER');  END; {CASE}  writeln (lf,'pc_type ', pc_type:6); write (lf,'capability ');  FOR i := 1 to 16 DO  IF (pc_capability[i]) THEN  write (lf, 'T ')  ELSE  write (lf, 'F ');  writeln (lf);  writeln (lf,'request buf ',request.offset:6, " ' request length ', request.length:6); "  IF (request.status <> 0) THEN writeln (lf,'REQ STATUS ***',request.status:6, " ' req function ', request.fonction:6)" ELSE  writeln (lf,'req status ',request.status:6, # ' req function ', request.fonction:6); # writeln (lf,'req param1 ',request.param1:6, " ' req param2 ', request.param2:6); " writeln (lf,'req param3 ',request.param3:6, " ' req label ', request.param4:6); " writeln (lf,'subreq buf ',sub_request.offset:6, $ ' subreq length ', sub_request.length:6); $ writeln (lf,'subreq status ',sub_request.status:6, % ' subreq function', sub_request.fonction:6); % writeln (lf,'subreq param1 ',sub_request.param1:6, $ ' subreq param2 ', sub_request.param2:6); $ writeln (lf,'subreq param3 ',sub_request.param3:6, $ ' subreq label ', sub_request.param4:6); $ writeln (lf);  { Print out request buffer }  IF ((request.offset > 0) AND  (request.length > 0)) THEN  BEGIN  writeln (lf,'Request buffer (octets)');  loop_end := (request.length DIV 5) - 1;  last_line := request.length MOD 5;  IF (loop_end > -1) THEN  FOR I := 0 TO loop_end DO  writeln (lf, data_area[5 * I + 1001]:6,  data_area[5 * I + 1002]:6,  data_area[5 * I + 1003]:6,  data_area[5 * I + 1004]:6,  data_area[5 * I + 1005]:6);  IF (last_line > 0) THEN  FOR I := 1 TO last_line DO" write (lf, data_area[5 * (loop_end + 1) + I + 1000]:6); "  writeln (lf); writeln (lf);  END;  { Print out subrequest buffer } IF ((sub_request.offset > 0) AND  (sub_request.length > 0)) THEN  BEGIN  writeln (lf, 'Subrequest buffer (octets)');  loop_end := (sub_request.length DIV 5) - 1; last_line := sub_request.length MOD 5;  offset := sub_request.offset;  IF (loop_end > -1) THEN  FOR I := 0 TO loop_end DO  writeln (lf, data_area[5 * I + offset ]:6 , data_area[5 * I + offset + 1]:6,  data_area[5 * I + offset + 2]:6,  data_area[5 * I + offset + 3]:6,  data_area[5 * I + offset + 4]:6);  IF (last_line > 0) THEN  FOR I := 0 TO last_line - 1 DO" write (lf, data_area[5 * (loop_end + 1) + I + offset]); "  writeln (lf); writeln (lf);  END;  (*** PRINT OUT PC CONTEXT HERE ***)  writeln (lf, '=== PC context ===');    writeln (lf); writeln (lf);   END; {WITH} END. .copy off   .section THMON.PAS   .add /udi/udip/thmon.roff .copy on $PASCAL '94201-16xxx REV.4010 <880310.1833>'  $DEBUG ON$  PROGRAM thmon(input,output);  $TRACE 1$  { Include global highway handler declarations in file [PCHHL } { $INCLUDE '[PCHHL' } # { [PCHHL 94200-18302 REV.2340 <880310.1833> } ## { NAME : [PCHHL "GLOBAL VARIABLES FOR HIGHWAY HANDLER" } ## { SOURCE: 94200-18302 } ## { RELOC.: NONE } ## { } ## { **************************************************************** } ## { * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1983. ALL RIGHTS * } ## { * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED * } ## { * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT * } ## { * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY * } ## { **************************************************************** } ## { } #  # { this file contains the global declarations for } ## { highway handler writing. These declarations are only } ## { TYPE and non structured CONSTANT } #  TYPE   BYTE = -128..127 ;  WORD = -32768..32767 ;   MSG_TYPE =  RECORD  offset : WORD ;  length : WORD ;  status : WORD ;  CASE INTEGER OF  0 : (fonction : WORD ;  param1 : WORD ;  param2 : WORD ;  param3 : WORD ;  param4 : WORD ) ;  1 : (word_array : ARRAY[1..5] OF WORD) ;  2 : (byte_array : PACKED ARRAY[1..10] OF BYTE) ;  END ;   ACTIVATION_CONTEXT_TYPE =  PACKED RECORD  event : WORD ; ! action_flag : PACKED ARRAY [1..16] OF BOOLEAN ; ! action_code : WORD ;  highway_type : WORD ; ! highway_capability : PACKED ARRAY [1..13] OF BOOLEAN ; ! port : 0..7 ;  pc_station_number : WORD ;  sub_request : MSG_TYPE ;  IO_msg : MSG_TYPE ;  END ;   BUFFER_AREA_TYPE = PACKED ARRAY[1..8192] OF BYTE ;   CONST  { EVENT activation codes }  initialization = 1 ;  sub_request_initiation = 3 ;  sub_request_reentry = 4 ;  IO_msg_completion = 6 ;  sub_request_cancelation = 8 ;   { ACTION_CODE values }  no_action = 1 ;  send_IO_msg_wait = 2 ;  send_IO_msg_nowait = 3 ;  send_sub_request_completion = 4 ;  send_sub_request_IO_msg = 5 ;  wait_sub_request_buffer = 7 ;  wait_IO_msg_buffer = 8 ;   { IO commands }  control_LU1 = 0 ;  control_LU2 = 1 ;  write_LU1 = 2 ;  write_LU2 = 3 ;  read_LU1 = 4 ;  read_LU2 = 5 ;   { capability array bit definition }  capability_UN = 4 ;   { action_flag bit definition }  action_flag_EI = 16 ; action_flag_EU = 15 ; action_flag_SC = 14 ; action_flag_RB = 13 ;   { -- status return code at end of IO_msg -- }  IO_status_error_ON = 350 ;  IO_status_RTE_refused_to_do_IO (( = 351 ;  IO_status_impossible_to_download = 352 ;  IO_status_no_associated_LU = 353 ;  IO_status_wrong_function = 354 ;  IO_status_buffer_not_on_word_boundary = 355 ;  { ---- call to PCIF service routines : status codes ---- }  SR_status_msg_skeleton = 363 ;  SR_status_no_available_memory = 364 ;  SR_status_no_match_found = 365 ;  SR_status_no_PC_retrieved = 366 ;  SR_status_buffer_already_allocated = 367 ;  SR_status_more_than_one_create_UNS = 368 ;  SR_status_invalid_which_LU = 369 ;  SR_status_call_made_by_highway_handler = 370 ;  SR_status_invalid_PC_mask = 372 ;  SR_status_no_msg = 373 ;  SR_status_exceed_buffer_size = 374 ;  SR_status_negative_offset = 375 ;  SR_status_no_up_buffer = 376 ;  SR_status_no_allocated_buffer = 377 ;  SR_status_invalid_msg = 378 ;  SR_status_invalid_msg_type = 379 ;  SR_status_invalid_call = 380 ;  SR_status_length_too_large = 381 ;  SR_status_invalid_length = 382 ;  SR_status_unknown_msg_type = 383 ;   TYPE  completion_type = word;   gt_hw_context = RECORD  # (*** FILL IN HIGHWAY CONTEXT STRUCTURE HERE ***)#  END;   eq_wd_byte = PACKED RECORD CASE BOOLEAN OF true: (b1 : byte; b2 : byte);  false:(wrd : word);  END;   VAR name_entree, name_sortie : PACKED ARRAY [1..15] OF CHAR;  tempo_eq : eq_wd_byte;  I, offset, last_line,  loop_end, tempo : word;  lf : TEXT;  hw_context : gt_hw_context; activation_context : activation_context_type; data_area : buffer_area_type;  $ (********************************************************************) $$ (****** The following are dummy procedures which emulate the ******) $$ (****** functions of the PCIF Monitor service routines. ******) $$ (********************************************************************) $  FUNCTION set_window  (msg_type : BYTE; " buffer_offset, buffer_length : WORD) : completion_type;"  BEGIN IF (msg_type = 2) THEN  BEGIN writeln ('What is status of set_window ?'); readln (I); set_window := I;   IF (I = 0) THEN  BEGIN writeln ('Subrequest buffer window bytes located '); ' writeln ('from byte', buffer_offset+1:3,' to byte',buffer_length); '# activation_context.sub_request.offset := buffer_offset + 1;#! activation_context.sub_request.length := buffer_length;! END;  END ELSE writeln('Illegal param in call to set_window.'); END;  $ {====================================================================} $  FUNCTION allocate_buffer (msg_type: BYTE) : completion_type;   BEGIN IF (msg_type = 2) THEN  BEGIN writeln('Status to return from allocate subrq_buffer?'); readln(I);  allocate_buffer := I;# IF (I = 0) THEN activation_context.sub_request.offset := 1001; # END;  IF (msg_type = 3) THEN  BEGIN writeln('Status to return from allocate iomsg buffer?'); readln(I);  allocate_buffer := I; IF (I = 0) THEN activation_context.IO_msg.offset := 1;  END;  END;  $ {====================================================================} $  FUNCTION release_buffer (msg_type: BYTE) : completion_type;  BEGIN CASE msg_type OF  2 : activation_context.sub_request.offset := 0; 3 : activation_context.IO_msg.offset := 0;  OTHERWISE END;  release_buffer := 0;  END;  $ {====================================================================} $  FUNCTION flush_io_msg : completion_type;   BEGIN writeln('flush io msg');  flush_io_msg := 0;  END;  $ {====================================================================} $  FUNCTION create_unsolicited (PC_mask : WORD;  PC_station_number : WORD) : completion_type;  BEGIN writeln('Function Create_unsolicited called...'); writeln(' PC_mask = ', PC_mask); writeln(' PC_station_num = ', PC_station_number); create_unsolicited := 0;  END;  $ {====================================================================} $  FUNCTION retrieve_msg (msg_label : WORD) : completion_type;  BEGIN writeln('Function Retrieve_msg called...'); writeln(' Msg_label = ', msg_label); retrieve_msg := 0;  END;  $ (********************************************************************) $$ (* This is the external declaration of the actual highway handler. *) $$ (* (REPLACE THE XX PART WITH THE ACTUAL PROCEDURE NAME USED) *) $$ (********************************************************************) $  PROCEDURE pc_hw_hand $ALIAS 'pc_hw_hand_XX'$ $ (VAR activation_context : activation_context_type;$! VAR data_area : buffer_area_type; ! VAR hw_context : gt_hw_context);  EXTERNAL; $ {====================================================================} $$ {========================= MAIN PROGRAM ===========================} $$ {====================================================================} $  BEGIN WITH activation_context, hw_context DO  BEGIN writeln('Please enter the input test file name'); writeln('(max 6 characters): _'); readln(name_entree);   reset(lf, name_entree);   writeln('Please enter the output file name: _');  readln(name_sortie);   { Read in activation context from input file }  readln(lf); { Read and ignore comment line }  readln(lf, event);  readln(lf);  { Set bits in ACTION_FLAG to 0 }  FOR i := 1 to 16 DO  action_flag[i] := FALSE;   { Set EU Flag }  action_flag[15] := TRUE;   { === Read in data from input file === }   readln(lf, action_code);  readln(lf, highway_type);  { Highway_capability ignored in file, set all bits to 0 } readln(lf); FOR i := 1 to 13 DO  highway_capability[i] := FALSE;  readln(lf, port);  readln(lf, pc_station_number);  readln(lf, sub_request.offset); readln(lf, sub_request.length); readln(lf, sub_request.status); readln(lf, sub_request.fonction); readln(lf, sub_request.param1); readln(lf, sub_request.param2); readln(lf, sub_request.param3); readln(lf, sub_request.param4); readln(lf, IO_msg.offset);  readln(lf, IO_msg.length);  readln(lf, IO_msg.status);  readln(lf, IO_msg.fonction);  readln(lf, IO_msg.param1);  readln(lf, IO_msg.param2);  readln(lf, IO_msg.param3);  readln(lf, IO_msg.param4);  & { Read in sub_request buffer (if offset & length non-zero) from infile } & IF ((sub_request.offset > 0) AND  (sub_request.length > 0)) THEN  BEGIN readln(lf); { Read and ignore comment line } FOR I := 0 TO sub_request.length - 1 DO BEGIN readln(lf, tempo);  tempo_eq.wrd := tempo;  data_area[sub_request.offset + I] := tempo_eq.b2; END;  END;  # { Read in IO_msg buffer (if offset & length non-zero) from infile }# IF ((IO_msg.offset > 0) AND (IO_msg.length > 0)) THEN BEGIN readln(lf); { Read and ignore comment line } FOR I := 0 TO IO_msg.length - 1 DO  BEGIN readln(lf,tempo); tempo_eq.wrd := tempo;  data_area[IO_msg.offset + I] := tempo_eq.b2;  END;  END;   (*** READ IN HW CONTEXT FROM INPUT FILE HERE ***)  writeln('=== Entering HW Handler ===');! { Call the HW Handler with the new activation and HW context } ! pc_hw_hand (activation_context, data_area, hw_context); writeln;  writeln('=== Done with HW Handler ===');   rewrite (lf,name_sortie) ;   writeln (lf,'==========================='); writeln (lf,'====== R E S U L T S ======'); writeln (lf,'==========================='); writeln (lf); writeln (lf,'=== Activation_context ===');  writeln (lf);  write (lf,'event '); CASE event OF 1 : writeln(lf, 'INITIALIZATION'); 3 : writeln(lf, 'SUB_REQUEST_INITIATION'); 4 : writeln(lf, 'SUB_REQUEST_REENTRY');  6 : writeln(lf, 'IO_MSG_COMPLETION');  8 : writeln(lf, 'SUB_REQUEST_CANCELATION');  END; {CASE}  write (lf,'action-flag '); FOR i := 1 to 16 DO  IF (action_flag[i]) THEN  write(lf, 'T ')  ELSE  write(lf, 'F ');  writeln(lf);   write (lf,'action_code '); CASE action_code OF  1 : writeln(lf, 'NO_ACTION');  2 : writeln(lf, 'SEND_IO_MSG_WAIT'); 3 : writeln(lf, 'SEND_IO_MSG_NOWAIT'); 4 : writeln(lf, 'SEND_SUB_REQUEST_COMPLETION');  5 : writeln(lf, 'SEND_SUB_REQUEST_IO_MSG');  7 : writeln(lf, 'WAIT_SUB_REQUEST_BUFFER');  8 : writeln(lf, 'WAIT_IO_MSG_BUFFER'); END; {CASE} (( writeln (lf,'hw_type ', highway_type:6);   write (lf,'hw-capability '); FOR i := 1 to 13 DO  IF (highway_capability[i]) THEN write(lf, 'T ')  ELSE  write(lf, 'F ');  writeln(lf);   writeln (lf,'port ', port:6,# ' pc station num ', pc_station_number:6); # writeln (lf,'subrq buf ', sub_request.offset:6,# ' subreq lgt ', sub_request.length:6);#  IF (sub_request.status <> 0) THEN writeln (lf,'SUBRQ STATUS ***', sub_request.status:6,$ ' subrq function ', sub_request.fonction:6) $ ELSE  writeln (lf,'subrq status ', sub_request.status:6,$ ' subrq function ', sub_request.fonction:6);$  writeln (lf,'subrq param1 ', sub_request.param1:6,# ' subreq param2 ', sub_request.param2:6);# writeln (lf,'subrq param3 ', sub_request.param3:6,# ' subrq label ', sub_request.param4:6);# writeln (lf,'io-msg buf ', IO_msg.offset:6, ! ' io-msg lgt ', IO_msg.length:6); ! writeln (lf,'io-msg status ', IO_msg.status:6, " ' io-msg function', IO_msg.fonction:6); " writeln (lf,'io-msg param1 ', IO_msg.param1:6, ! ' io-msg param2 ', IO_msg.param2:6); ! writeln (lf,'io-msg param3 ', IO_msg.param3:6, ! ' io-msg label ', IO_msg.param4:6); ! writeln (lf);  { Print out sub_request buffer }  IF ((sub_request.offset > 0) AND  (sub_request.length > 0)) THEN  BEGIN writeln (lf,'subreq buffer (octets)');  loop_end := (sub_request.length DIV 5) - 1;  last_line := sub_request.length MOD 5;  IF (loop_end > -1) THEN FOR I := 0 TO loop_end DO writeln (lf,data_area[5 * I + 1001]:6,  data_area[5 * I + 1002]:6,  data_area[5 * I + 1003]:6,  data_area[5 * I + 1004]:6,  data_area[5 * I + 1005]:6); IF (last_line > 0) THEN FOR I := 1 TO last_line DO  write (lf, data_area[5 * (loop_end + 1) + I + 1000]:6); writeln (lf); writeln (lf);  END;   { Print out IO_msg buffer } IF ((IO_msg.offset > 0) AND (IO_msg.length > 0)) THEN BEGIN writeln (lf,'IO_msg buffer (octets)');  loop_end := (IO_msg.length DIV 5) - 1;  last_line := IO_msg.length MOD 5; offset := IO_msg.offset;  IF (loop_end > -1) THEN FOR I := 0 TO loop_end DO writeln (lf, data_area[5 * I + offset ]:6, data_area[5 * I + offset + 1]:6, data_area[5 * I + offset + 2]:6, data_area[5 * I + offset + 3]:6, data_area[5 * I + offset + 4]:6);  IF (last_line > 0) THEN FOR I := 0 TO last_line - 1 DO  write (lf, data_area[5 * (loop_end + 1) + I + offset]); writeln (lf); writeln (lf);  END;   (*** PRINT OUT HIGHWAY CONTEXT HERE ***)  writeln (lf, '=== HW context ===');   writeln (lf); writeln (lf); writeln (lf); END; {WITH} END. .copy off  .number off;number on;number on 0 /PCIF/GSWPCIF/APPH:::4:297:40 644 0 0 224400 5303667214 35022 /PCIF_GS/GSWPCIF/APPH:::4:297:40  $) )(APPH +n+n+n)YvFST SOURCE: 94200-17510 REV.5005 APPH   Performance Test Examples  The following code is provided strictly as an example of PCIF software and does not imply any HP support.   ftn7x,l,s" C **************************************************************** "" C * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1986. ALL RIGHTS * "" C * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED * "" C * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT * "" C * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY * "" C **************************************************************** "  program COUNT ( 3, 32000 )  $ C This program is designed to operate at the lowest possible priority $" C and update a counter in HP1000 system common. The PERF program"$ C reads this variable from common and infers CPU utilization from the$ C rate of this program's incrementation.   integer*4 count1, count2 common count1, count2 real temp  count1 = 0 count2 = 0   10 count1 = count1 + 1 do i = 1,20  temp = (12 + 15) / (23 + 100) / 3.14159265358 end do  if ( count1 .GE. 32767 ) then count2 = count2 + 1 count1= 0  end if   go to 10   end.copy off   .subsection COUNT.LOD  .copy on sc  su  pr,32767  re,count.rel  en,count.run .copy off   .section NLOAD.FTN  .copy on ftn7x,l,s" C **************************************************************** "" C * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1986. ALL RIGHTS * "" C * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED * "" C * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT * "" C * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY * "" C **************************************************************** " program nload ( 3, 89 )  C This program tests the COUNT program for counts per second.    real*4 elapsed_time, counts, stopped_counts real*4 accum_counts, accum_time  integer start_time(5), stop_time(5)  integer*4 count1, count2, max_counts integer*4 c1,c2  integer wait, max_samples  integer*4 ict1(100), ict2(100), ic1(100), ic2(100)  real*4 ielap(100), inter(100)   c common counts  common count1, count2   data max_samples/100/ data wait /5/   accum_time = 0.0 accum_counts = 0.0  # write ( 1, '("Do you want to see the individual samples ? _")')# read ( 1, '(A2)' ) iyes  write ( 1, '("How many samples to take ? _")')  read ( 1, * ) max_samples t_elap = float(wait)  do i = 1, max_samples   count1 = 0 count2 = 0  ( call exec ( 12, 0, 2, 0, - wait ) ! suspend for "wait" seconds (  c1 = count1 c2 = count2   r1 = float(c1) r2 = float(c2)  stopped_counts = r1 + (32767.0 * r2)  accum_counts = accum_counts + stopped_counts  accum_time = accum_time + t_elap  C ict1(i) = c1 C ict2(i) = c2  C ielap(i) = t_elap inter(i) = stopped_counts end do    do i = 1,max_samples  if ( iyes .EQ. 2hY .OR. iyes .EQ. 2hy ) then # write ( 1, '("Counts = ",F13.1,/,"Elapsed Time = ",F13.3, # + /,"Counts per second = ",F10.3,/,  + "Count1 = ",I13,/, + "Count2 = ",I13,/)') inter(i), ielap(i), + inter(i) / ielap(i), ict1(i), ict2(i)  end if  end do   write ( 1, '(2/,"Number of samples = ",I5)') max_samples  write ( 1, '("Average Counts per Second = ",F13.1,2/)') + accum_counts / accum_time  end.copy off   .subsection NLOAD.LOD  .copy on sc  su  li,$plib  li,perf.lib re,nload.rel  en,nload.run .copy off   .section PERF.FTN  .copy on ftn7x,s,d" C **************************************************************** "" C * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1986. ALL RIGHTS * "" C * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED * "" C * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT * "" C * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY * "" C **************************************************************** " $CDS ON $FILES ( 2,2,5 )  program perf ( 3,20 ) implicit none  common count1, count2  & C *********************************************************************** & C! C This program is used for performance testing of the PCIF/1000! C product. C C& C It tests the CPU Utilization and Data Transfer Rates for the following & C PCIF functions :  C C READD : Read Data from the Data Table of a PC  C WRITED: Write Data into the Data Table of a PC C READP : Read Program Information from a PC C WRITEP: Write Program Information into a PC  C# C This program will test up to five different PCs, all on the same #$ C data highway, or up to 36 PCs on up to ten seperate data highways.$ C% C When multiple PCs are used to check the influence of highway traffic %& C on data throughput, the PCs are accessed sequentially, and the time and& C utilization are measured for all PCs accessed.  C This means that we can measure how long$ C it takes to read 100 words, say, from PC 1, with a READD function, $$ C with PC 2 also transferring 100 words, and we can measure the data $" C(( throughput for both and the CPU utilization for both transfers." C" C The program does up to 100 loops through a given operation, and"$ C averages the results to produce a statistically accurate prediction$ C of PCIF performance.  C& C The user can specify up to 20 different buffer sizes to be tested with &% C a given function. This program will then compute an equation which %" C will linearize the data for all the different buffer sizes and" C allow the computation of "time to transfer" based upon the & C operation, the type of PC, and the number of bytes to be transferred. & C% C CPU utilization is determined by having only two programs running on %& C the computer at any one time : this program PERF, and another program,&$ C called COUNT, which runs at a lower priority and updates a counter $# C in system common which PERF will read at the start and end of the## C data transfer operations. The difference in the two counts will#% C be an indication of how much the COUNT program ran, from which we can%% C infer how much CPU was allotted to COUNT and how much was allotted to% C PERF. C& C This program can be run from a command file, as well as interactively. &# C If an error occurs, that particular set of commands is skipped, a#$ C message is written to the console and the file, and the next set of$ C commands is begun.  C C The format of the transfer file is as follows : C C Comments can follow the data in each line. C Comment lines by themselves are not allowed. C C READD ** Operation to be tested  C 20 ** Number of times to test each call C 2 ** Number of different-sized buffers to use  C 5 ** Size of Buffer 1  C 10 ** Size of Buffer 2  C 2 ** How many PCs involved in this test ?  C 2 ** ID of PC 1  C 28 ** ID of PC 2  C Y ** No-Wait calls to be used ?  C A10 ** Name of the storage file ? # C /E ** End of the Command list for this set of conditions.# C C C OK, that's the format.  C C On With The Show !!! C" C This program is again modified for performance testing on Gould "" C pc id=1 for 484; pc id=2 for 584; pc id=3 for 984 READD & WRITED" C If pc id = 4, it's an 884!% C ************************ Declarations... ************************** %  C PCIF parameters  " integer status, ! Status return from PCIF calls"$ + tlog, ! Number of words returned by GETST$ + tag, key, ! No-wait parameters & + pc, ! PC Identifier set up in configuration&# + subfunction, ! CMD byte used in PC_TRANS calls#$ + read_buffer(512), ! buffer to store info read from PC $" + read_length, ! how much data in read_buffer "# + write_buffer(512), ! buffer to store info sent to PC#" + write_length, ! how much data in write_buffer"" + oldstat, ! old status from ENQUIRY call "" + oldtag, ! old tag no. from ENQUIRY call"% + contkey, ! access key for all no-wait requests%! + typer, ! type of reply from ENQUIRY !" + logr, ! length of reply from ENQUIRY " ( integer readd, readp, ! identifiers for the different PCIF calls ( + writed, writep !  & integer replies, ! number of replies received in no-wait& + no_wait_bit, ! no-wait bit ( 100000B )# + error_table (100,2) ! table of errors that occurred # ' logical got_data (36), ! table of flags to indicate recv'd data '' + wait ! flag to indicate wait or no-wait calls '  integer*4 pcadr ! PC memory address ! integer pc_id_table(36,8), ! Table of PC config. info : !& ! ( PC ID is the index to this table )& ! (n,1) : highway number & ! (n,2) : pc type ( MINI, PLC, etc. )&( ! (n,3) : interface type ( 1771-KA, etc) (' ! (n,4) : station address ( 11B, etc. )'# ! (n,5) : starting data address#% ! for READD, WRITED calls %# ! (n,6) : starting prog address#% ! for READP, WRITEP calls %! ! (n,7) : firmware revision!! ! (n,8) : pc operating mode!" + pc_type , ! index of 2 for above array "" + station_addr , ! index of 4 for above array "" + data_start_addr, ! index of 5 for above array "" + prog_start_addr, ! index of 6 for above array " # + current_pc_type, ! pc type given by diag. status # + current_sta_addr, ! station address  ' + which_pcs_to_use(36),! table of which pcs are to be accessed ' ! for this test $ + first_pc, ! pointer to first pc in this list $' + how_many_pcs, ! how many pcs are included in this test '# + max_pcs, ! max no. of pcs for this program#& + which_pc, ! which pc is currently being accessed &' + how_many_buffers, ! how many different-sized buffers to use'$ + which_buffer, ! which buffer size is being tested$% + max_buffers, ! max no. of buffers for this program%$ + max_buffer_size, ! biggest buffer to use in the test$$ + how_many_loops, ! how many repetitions of each test$! + which_loop, ! which iteration are we in ?!$ + max_loops, ! max no. of loops for this program$' + how_many_hiways, ! how many data highways involved in test' + pcif_errors, !  + i !      C Performance Data Storage   integer*4 milliseconds, ! scan time (milliseconds)  + ElapsedTime ! scan time function & real*4 loop_data( 100,3) ! buffer containing elapsed time (n,1) &# ! counts (n,2) per loop iteration# ! scan time seconds (n,3)' integer loop_util, ! pointer to counts place in array above '' + loop_time, ! pointer to elapsed time in array above '% + scan_time ! pointer to scan time in array above%  real*4 buffer_results(20,3) ! buffer containing : # ! (n,1) buffer size (words)#' ! (n,2) avg data rate ( wds /sec ) '& ! (n,3) avg CPU util. per buffer &! integer buffer_size, ! index of 1 for above array !! + avg_xfer_time, ! index of 2 for above array !! + avg_CPU_util ! index of 3 for above array !% real*4 counts_sec_solo, ! how many counts per second can the %' + ! COUNT program do without this program '% + counts_sec_load, ! counts per second during PC access %' + accum_counts ! accumulated counts for an average of 10' real t_elap  % integer set_up_time, ! how long to set up a given function%( + transfer_rate, ! how many words/sec achieved for function (& + start_time(5), ! starting time of a transfer (EXEC 11)&& + stop_time(5), ! stopping time of a transfer (EXEC 11)&& + u_stop_time(5), ! stopping time of a transfer (EXEC 11)&& ! for determining total CPU utilization&& + baud_rate ! baud rate for COMPUTER - Data Highway& & integer*4 count1, ! No. of counts during transfer (ones) &' + count2 ! No. of counts during transfer (32767s) ' real*4 maxcount1, ! 32767 constant  + r1,r2 # real*4 data_rate, ! data rate for each buffer size #& + CPU_util, ! CPU utilization for each buffer size && + tCPU_util ! overall CPU utilization (MMC + PCIF) &' real elapsed_time ! function determining time between calls'& real*4 tavg_cpu_util(100) ! bufr holding MMC+PCIF cpu utilization&  C FMP variables  $ integer file, ! file number for FTN7X FMP calls $! + file_type, ! type of file this is ( 3 ) !# + cmd_file, ! file number for FTN7X FMP calls#& + read_lu, ! LU of device to read test parms from &% + line_counter, ! which line of cmd file is accessed %% + number_of_files, ! number of command files to execute % + file_number ! index into names(i) % character*20 file_name ! name of file to store test results % integer f_name(10) ! name of command file  character*8 file_options ! file access(( options integer error ! FMP error return variable  character*20 names(20) ! names of command files   C Miscellaneous Variables  real*4 prev_count integer IFBRK  integer time_buffer(15) ! holds the current time $ logical first_run ! indicates 1st time program is run$% integer log_lu ! lu to send messages and reports to % integer terminal ! lu of user terminal character*6 which_PCIF_call ! which PCIF call to test# integer time_stamp(9) ! buffer for storing time of test#$ character*3 response ! user response to yes/no questions$( integer how_many_fails ! how many failed tests have been executed (' integer comment ! two asterisks to indicate cmd comments ' integer*4 c1, c2  equivalence (f_name,file_name)  % C ************************ Initialization *************************** %  C PCIF variables  ! data tag / 0 /, key / 0 / ! values for with-wait calls ! data no_wait_bit / 100000B / data got_data / 36 * .FALSE. / data readd /1/, writed /2/, readp /3/, writep /4/   C PERF Configuration variables   data terminal /1/   data buffer_size/1/,avg_xfer_time /2/,avg_CPU_util /3/   data pc_type /2/, $ + station_addr /4/, data_start_addr /5/, prog_start_addr /6/$  data first_pc /1/  data loop_time /1/, loop_util /2/, scan_time /3/  data baud_rate / 9600 / % data how_many_hiways /0/, how_many_buffers/0/, how_many_loops/0/ % data max_loops /100/, max_pcs /36/, max_buffers /20/   data pc_id_table /  + 1, 1, 1, 1, 1, 1, ! hiway numbers  + 1, 1, 1, 1, 1, 1, + 1, 1, 1, 1, 1, 1, + 1, 1, 1, 1, 1, 1, + 1, 1, 1, 1, 1, 1, + 1, 1, 1, 1, 1, 1,  + 884, 984, 484, 584, 7, 7, ! PC types + 7, 7, 7, 7, 7, 7,  + 7, 7, 7, 7, 7, 7,  + 7, 7, 7, 7, 7, 7,  + 7, 7, 7, 7, 7, 7,  + 7, 7, 7, 7, 7, 7,  + 0, 0, 0, 0, 0, 0, ! interface types  + 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0,  + 1,2,3,50b,60b,70b, ! Station Addresses  + 140b,110b,120b,130b,15b,16b, + 40b,12b,13b,14b,15b,16b,  + 50b,12b,13b,14b,15b,16b,  + 60b,12b,13b,14b,15b,16b,  + 70b,12b,13b,14b,15b,16b,  + 0, 0, 0, 0, 0, 0, ! Starting Data Addresses + 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, $ + 0, 300b, 300b, 300b, 300b, 300b, ! Starting Program Addresses$ + 0, 300b, 300b, 300b, 300b, 300b,  + 0, 300b, 300b, 300b, 300b, 300b,  + 0, 300b, 300b, 300b, 300b, 300b,  + 0, 300b, 300b, 300b, 300b, 300b,  + 0, 300b, 300b, 300b, 300b, 300b, ! + -1, -1, -1, -1, -1, -1, ! initialize pc types ! + -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, + & + -1, -1, -1, -1, -1, -1, ! initialize firmware rev codes & + -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1 /   data file / 32767 /, cmd_file / 32766 /  % C ****************** Start Of The Code ****************************** %  maxcount1 = 32767.0 first_run = .TRUE. log_lu = terminal  CALL EXEC(11, start_time) C count1 = 0 C count2 = 0   C Get the command filename from the runstring.   file_name = ' '  call GETST (f_name,10,tlog) if (tlog .LE. 0) STOP  C Open the command file which contains command file names   OPEN ( cmd_file, IOSTAT = error, file = fILE_name,  + STATUS = 'OLD' )  if ( error .NE. 0 ) then  call report_fmp_err ( log_lu, error ) go to 2000  end if  read_lu = cmd_file ! Read answers from the cmd file   C Read the command file names   number_of_files = 1  101 read ( read_lu, '(A20)', IOSTAT = error,END = 102)  + names(number_of_files)  if ( error .NE. 0) THEN write ( log_lu, '("&dB Bad input in file ",8A2,/)') + file_name go to 2000  end if  number_of_files = number_of_files + 1 go to 101  102 number_of_files = number_of_files - 1 close ( cmd_file, IOSTAT = status )  C Open the command file.  do file_number = 1,number_of_files  ! OPEN ( cmd_file, IOSTAT = error, file = names(file_number),! + STATUS = 'OLD' )  if ( error .NE. 0 ) then  call report_fmp_err ( log_lu, error ) go to 1090  end if  line_counter = 0  read_lu = cmd_file ! Read answers from the cmd file   C Open communications with PCIF.   call PCIF_OPEN ( status ) if ( status .GT. 0 ) then call report_pcif_gm_err ( log_lu, status ) go to 2000  end if   C Initialize a few variables and begin the main loop.   1 how_many_hiways = 0 how_many_pcs = 0  % C Interrogate the user as to the number and IDs of the PCs to be tested,%$ C the number of times to test each operation, and the particular PCIF$ C operation to be tested. % C Enter the PCIF Operation to be tested (READD, WRITED, READP, WRITEP)? % % read ( read_lu, '(A6)', IOSTAT = error,END = 2000) which_PCIF_call % line_counter = line_counter + 1  if ( error .NE. 0 .OR. $ + ( which_PCIF_call.NE.'READD '.AND.which_PCIF_call.NE.'readd ' $$ +.AND.which_PCIF_call.NE.'READP '.AND.which_PCIF_call.NE.'readp ' $$ +.AND.which_PCIF_call.NE.'WRITED'.AND.which_PCIF_call.NE.'writed' $% +.AND.which_PCIF_call.NE.'WRITEP'.AND.which_PCIF_call.NE.'writep')) % + then  write ( log_lu, '("&dB Bad input in line ",I6,  + " of command file.",/)') line_counter  go to 2000  end if   C How many times to test each call?   2 read ( read_lu, *, IOSTAT = error ) how_many_loops  line_counter = line_counter + 1 % if ( how_many_loops .GT. max_loops .OR. how_many_loops .LT. 1 .OR. % + error .NE. 0 ) then  write ( log_lu, '("&dB Bad input in line ",I6,  + " of command file.",/)') line_counter  go to 2000  end if   C How many different-sized buffers to use?  3 read ( read_lu, *, IOSTAT = error ) how_many_buffers  line_counter = line_counter + 1 $ if ( how_many_buffers .GT. max_buffers .OR. how_many_buffers.LT.1$ + .OR. error .NE. 0 ) then write ( log_lu, '("&dB Bad input in line ",I6,  + " of command file.",/)') line_counter  go to 2000  end if   max_buffer_size = 0  do i = 1, how_many_buffers  C Size of Buffer i (words) : ! 4 read ( read_lu, *, IOSTAT = error ) buffer_results(i,1)! line_counter = line_counter + 1  C Check the buffer size for allowableness. " if ( buffer_results(i,1) .LT. 0 .OR. buffer_results(i,1) " + .GT. 128 .OR. error .NE. 0 ) then  write ( log_lu, '("&dB Bad input in line ",I6, + " of command file.",/)') line_counter go to 2000  $ C Since this size of buffer is OK, check to see if this buffer is the $ C biggest. If it is, update the "max_buffer_size" parameter.   else  if ( buffer_results(i,1) .GT. max_buffer_size ) + max_buffer_size = buffer_results(i,1) end if   end do   C How many PCs are involved in this test?   5 read ( read_lu, *, IOSTAT = error ) how_many_pcs  line_counter = line_counter + 1 " if ( how_many_pcs .GT. max_pcs .OR. how_many_pcs .LT. 1 .OR. " + error .NE. 0 ) then write ( log_lu, '("&dB Bad input in line ",I6,  + " of command file.",/)') line_counter  go to 2000  end if   do i = 1, how_many_pcs  C Enter the ID of PC i :  " read ( read_lu, *, IOSTAT = error ) which_pcs_to_use (i) " line_counter = line_counter + 1 " if ( error .NE. 0 .OR. which_pcs_to_use(i) .LT. 0 ) then " write ( log_lu, '("&dB Bad input in line ",I6, + " of command file.",/)') line_counter go to 2000 end if   end do   C Do you wish to use No-Wait calls ( Y or N )?  read ( read_lu, '(a2)', IOSTAT = error ) response line_counter = line_counter + 1  if ( error .NE. 0 ) then  write ( log_lu, '("&dB Bad input in line ",I6,  + " of command file.",/)') line_counter  go to 2000  end if   if ( response .EQ. 'Y' .OR. response .EQ. 'y' ) then  wait = .FALSE. ! els((e if ( response .EQ. 'N' .OR. response .EQ. 'n' ) then! wait = .TRUE.  else  write ( log_lu, '("&dB Bad input in line ",I6,  + " of command file.",/)') line_counter  go to 2000  end if   C Get the name of the file to store the test results into. ! C Create the file if it does not exist. If it already exists,! C prompt for instructions.  C Enter the name of the storage file (/E to quit) :  # 200 read ( read_lu, '(A16)', iostat = error, END = 2000 ) file_name# line_counter = line_counter + 1  C Close the command file   close ( cmd_file, IOSTAT = status )  if ( file_name .EQ. '/e' .OR. file_name .EQ. '/E' ) then  write ( log_lu, '(2/)' )  stop  end if  if (error .NE. 0) then % write ( log_lu, '("Bad input in line ",I6," of command file.", % + /)') line_counter  go to 2000  end if  " 210 OPEN ( file, IOSTAT = error, FILE=file_name, STATUS= 'NEW' ) "  if ( error .EQ. 502 ) then # OPEN ( file, IOSTAT = error, FILE=file_name, STATUS='OLD') # end if   if ( error .NE. 0 .AND. error .NE. file_type ) then  write ( log_lu, '("Error ",I6," in opening file :", + /,A16,/)') error, file_name go to 2000   end if   C Connect all of those specified PCs with PCIF.  do i = 1, how_many_pcs pc = which_pcs_to_use (i) call PC_CONNECT ( status, tag, key, pc )  if ( status .GT. 0 ) then call report_pcif_gm_err ( log_lu, status ) go to 2000 end if  end do  % C Get the Diagnostic status of all of the PCs involved and put this into% C the pc_id_table.   C Now verifying the PCs on this system ...  do i = 1, how_many_pcs  pc = which_pcs_to_use (i) call pc_ident (status, 0, 0, pc, ident_buf, 10) if ( status .GT. 0 ) then call report_pcif_gm_err ( log_lu, status ) go to 2000 end if     C Put the pc_mode and fw_rev into the pc_id_table...  ( C If the firmware is older than Rev F, then the PLC2/15 and the PLC 2/30 will (% C show up as type 2 (MINI). If this is the case, fix the pc_id_table. %  c if ( current_fw_rev .LE. 4 .AND.  c + ( pc_id_table ( pc, pc_type ) .EQ. 6 .OR.  c + pc_id_table ( pc, pc_type ) .EQ. 7 )) then c c pc_id_table ( pc, pc_type ) = 2 c end if  ! C Check the type of pc to make sure that it is what we expect...! current_pc_type = ident_buf (2)$ if ( pc_id_table ( pc, pc_type ) .NE. current_pc_type ) then $$ write (log_lu,'(/,"&dB PC ",I2," is a ",I8,5X,"_")') $ + pc, ident_buf(2)  write (log_lu,'("It should be a ",I8,2/)')  + pc_id_table (pc, pc_type) go to 2000  end if  $ C Find out how many seperate data highways are being used. This is an$ C important parameter for throughput.   end do  & C If no-wait calls are to be used, get the access key for all PCs to use.&  if ( .NOT. wait ) then  call PC_GETKEY ( status, key)  if ( status .GT. 0 ) then  call report_pcif_gm_err ( log_lu, status )  go to 2000 end if contkey = key  end if  % C ******************* Announce which test this is ! **************** %  log_lu = file  call Ftime (time_buffer) $ write ( log_lu, '("File containing this information : ",A16)') $ + file_name  write ( log_lu, '(15A2,/)') time_buffer # write ( log_lu, '("PCIF Call Tested : ",A6)') which_PCIF_call# if ( wait ) then  write ( log_lu, '("All calls done WITH WAIT.")')  else  write ( log_lu, '("All calls done WITHOUT WAIT.")') end if  % write ( log_lu, '("Baud Rate of COMPUTER <-> Data Highway Link =", % + I6,/)') baud_rate   write ( log_lu, '("Number of Data Highways Used = ",I1)') + how_many_hiways  " write ( log_lu, '("Number of PCs used = ",I2)') how_many_pcs "  write ( log_lu, '("Number of Samples Averaged = ",I4,/)')  + how_many_loops   write ( log_lu, '("Involved PCs : ",2/)')  do i = 1, how_many_PCs  pc = which_pcs_to_use (i)  current_pc_type = pc_id_table ( pc, pc_type )   current_sta_addr = pc_id_table ( pc, station_addr )   # write ( log_lu, '("PC ",I2," : ",T10,"PC Type : ",I8,T30,/ # + "Station Address : ",O3,"B",2/)') pc, + current_pc_type, current_sta_addr end do ! end of the "how_many_pcs" loop ( !C ***************** Determine No-Load Counts / Second ******************** ( & C This is the Utilization Constant for performance testing. This number &# C is specific to each CPU, and is measured by running two programs,# C COUNT, which adds single-integer values in an endless loop, ! C and NLOAD, which reads these values through system common and! C measures how fast the COUNT program can update them.  C% C This number symbolizes how fast the CPU can go with only one program %# C running. We assume that 100% CPU utilization corresponds to the #$ C number of counts per second contained in the utilization constant. $ % C This number can also be computed by this program by uncommenting the % C !-marked lines below.   ! counts_sec_solo = ?????? ! A600 Only !!! ! counts_sec_solo = ?????? ! A700 Only !!! counts_sec_solo = 18764.00 ! A900 Only !!!  ! !% ! write ( log_lu, '(/,"Now Determining No-load Counts/Second !",/)')% ! accum_counts = 0.0  ! ! do i = 1, 10  !! ! call EXEC ( 11, start_time ) ! get starting time! ! counts = 0.0 ( ! call EXEC ( 12, 0, 2, 0, -2 ) ! reschedule for 2 seconds later ( ! accum_counts = accum_counts + counts ! ! call EXEC ( 11, stop_time ) ! get stopping time!# ! write ( log_lu, '("Reading ",I2," = ",F10.1" counts.")') # ! + i, counts  ! end do !% ! counts_sec_solo = ( accum_counts / elapsed_time ( start_time,% ! + stop_time ) ) / 10.0$ ! write ( log_lu,'(/,"Average No-load Counts per Second = ", $ ! + F10.1,2/)') counts_sec_solo  !  how_many_loops = how_many_loops + 1 call ResetTimer  % C ********************** Set up the Looping ! *********************** %  do which_buffer = 1, how_many_buffers  write(1,'(" Beginning test for buffer size: ",I4/)')  + buffer_results(which_buffer, buffer_size)  prev_count = 0.0  count1 = 0 count2 = 0  % C ***************** Set up for WRITED or WRITEP if required ********* %% C If a WRITE operation is to be tested, first read the data from the PC%% C and fill the buffer to be written with it. That way, the memory of % C the PC does not change.   if ( which_PCIF_call .EQ. 'WRITED' .OR. + which_PCIF_call .EQ. 'writed' ) then   pc = which_pcs_to_use ( first_pc )  if (pc .EQ. 1) then pcadr = 40001 else  pcadr = 40001 end if  write_length = max_buffer_size   call PC_READD ( status, 0, 0, pc, write_buffer, + write_length, pcadr ) if ( status .GT. 0 ) then call report_PCIF_gm_err ( log_lu, status )  go to 2000  end if   else if ( which_PCIF_call .EQ. 'WRITEP' .OR.  + which_PCIF_call .EQ. 'writep' ) then   pc = which_pcs_to_use ( first_pc )  pcadr = pc_id_table ( pc, prog_start_addr ) write_length = max_buffer_size  % C Set upload mode so that this call can succeed if the PC is in PROGRAM % C mode.   C Get the data with the READP call.   call PC_READP ( status, 0, 0, pc, write_buffer, + write_length, pcadr ) if ( status .GT. 0 ) then call report_pcif_gm_err ( log_lu, status ) go to 2000 end if   C Exit Upload mode.    C Go to download mode.    C If this is a READP operation with REV F firmware,  C issue a SET UPLOAD MODE command first, to set up the  C 1771-KA properly.   else if ( which_PCIF_call .EQ. 'READP' .OR.  + which_PCIF_call .EQ. 'readp ' ) then   do i = 1, how_many_pcs pc = which_pcs_to_use ( i ) C call mode_change ( status, pc, upload ) C if ( status .NE. 0 ) then$ C call report_pcif_gm_err ( log_lu, status ) $ C go to 2000  C end if  (( end do end if   C Write out the log header   write ( log_lu, '(/,  +" Average",/, +" Buffer Transfer PCIF Data Rate",/, +"Scan Time Size Time CPU Util. Per PC",  +/,  +"(seconds) (wds) (seconds) ( % ) (wd/sec)",  +/,  +"--------- ------ ---------- ---------- ----------",  +/)')    do which_loop = 1, how_many_loops $ 500 pcif_errors = 0 ! set error count to 0$  C Get scan time   milliseconds = ElapsedTime() " loop_data(which_loop,scan_time) = float(milliseconds)" + / 1000.  call ResetTimer ( C Clear out the "got-data" flags on each of the access keys if no-wait option ( C is specified.   if ( .NOT. wait ) then  do i = 1, how_many_pcs  pc = which_pcs_to_use (i) got_data (pc) = .FALSE. end do end if  ' C Set up for ........................................................READD '  if ( which_PCIF_call .EQ. 'READD ' .OR. + which_PCIF_call .EQ. 'readd' ) then  % read_length =buffer_results(which_buffer,buffer_size) % c1 = count1  c2 = count2 # prev_count = (float(c1) + (float(c2) * maxcount1))# call EXEC ( 11, start_time ) % C Loop through this for all of the PCs that are supposed to be included.%' C The datacomm will presumably take much more time than the array accesses '! C and assignment statements... ( an engineering assumption ! )!  do i = 1, how_many_pcs   pc = which_pcs_to_use (i)  tag = pc if (pc .eq. 1) then  pcadr = 40001  else pcadr = 40001  end if% call PC_READD ( status, tag, key, pc,read_buffer, % + read_length, pcadr )  if ( status .GT. 0 ) then $ call report_pcif_gm_err ( log_lu, status ) $ pcif_errors = pcif_errors + 1 error_table(pcif_errors,1) = status  error_table(pcif_errors,2) = pc end if end do   C If no-wait calls are used, loop to get all of the answers.   if ( .NOT. wait ) then  replies = 0  do while ( replies .LT. how_many_pcs )  # call PC_ENQUIRY ( status, oldstat, oldtag, #" + contkey, pc, read_buffer, read_length, " + typer, logr )  if ( status .NE. 0 ) then% call report_pcif_gm_err ( log_lu, status ) % pcif_errors = pcif_errors + 1! error_table(pcif_errors,1) = status! error_table(pcif_errors,2) = pc else if (( oldstat .NE. 0 ) .AND. + ( typer .NE. 0 )) then % call report_pcif_gm_err ( log_lu, oldstat) % pcif_errors = pcif_errors + 1" error_table(pcif_errors,1) = oldstat " error_table(pcif_errors,2) = pc else if ( typer .EQ. readd ) then replies = replies + 1 got_data (pc) = .TRUE.  logr = 0  typer = 0 end if   end do  end if  c1 = count1  c2 = count2  call EXEC ( 11, stop_time )  ' C Store the time difference and CPU utilization into the loop_data array. '  t_elap = elapsed_time(start_time, stop_time) loop_data ( which_loop, loop_time ) = t_elap   r1 = float(c1) r2 = float(c2) cpu_util = (r1 + (r2 * maxcount1)) counts_sec_load = cpu_util - prev_count  prev_count = cpu_util  counts_sec_load = counts_sec_load / t_elap  if (counts_sec_load .GT. 18764.00)! + write(1,'("********************************")') !  loop_data ( which_loop, loop_util ) =  + ( ( counts_sec_solo - counts_sec_load ) + / counts_sec_solo ) * 100.  ' C That was so much fun, let's do ...................................READP ! '  else if ( which_PCIF_call .EQ. 'READP ' .OR.  + which_PCIF_call .EQ. 'readp' ) then   C Set up the READP call.  % read_length =buffer_results(which_buffer,buffer_size) % call EXEC ( 11, start_time )  do i = 1, how_many_pcs   pc = which_pcs_to_use (i)  tag = pc" pcadr = pc_id_table ( pc, prog_start_addr ) " call PC_READP ( status, tag, key, pc,  + read_buffer, read_length, pcadr )  if ( status .GT. 0 ) then $ call report_pcif_gm_err ( log_lu, status ) $ pcif_errors = pcif_errors + 1 error_table(pcif_errors,1) = status  error_table(pcif_errors,2) = pc end if end do   C If no-wait calls are used, loop to get all of the answers.   if ( .NOT. wait ) then  replies = 0  do while ( replies .LT. how_many_pcs )  # call PC_ENQUIRY ( status, oldstat, oldtag, #" + contkey, pc, read_buffer, read_length, " + typer, logr )  if ( status .NE. 0 ) then% call report_pcif_gm_err ( log_lu, status ) % pcif_errors = pcif_errors + 1! error_table(pcif_errors,1) = status! error_table(pcif_errors,2) = pc else if (( oldstat .NE. 0 ) .AND. + ( typer .NE. 0 )) then % call report_pcif_gm_err ( log_lu, oldstat) % pcif_errors = pcif_errors + 1" error_table(pcif_errors,1) = oldstat " error_table(pcif_errors,2) = pc else if ( typer .EQ. readp ) then replies = replies + 1 got_data (pc) = .TRUE.  logr = 0  typer = 0 end if  end do  end if  c1 = count1  c2 = count2  call EXEC ( 11, stop_time )  ' C Store the time difference and CPU utilization into the loop_data array. '  t_elap = elapsed_time(start_time, stop_time) loop_data ( which_loop, loop_time ) = t_elap   r1 = float(c1) r2 = float(c2) cpu_util = (r1 + (r2 * maxcount1)) counts_sec_load = cpu_util - prev_count  prev_count = cpu_util  counts_sec_load = counts_sec_load / t_elap  if (counts_sec_load .GT. 18764.00)! + write(1,'("********************************")') !  loop_data ( which_loop, loop_util ) =  + ( ( counts_sec_solo - counts_sec_load ) + / counts_sec_solo ) * 100.   else if ( which_PCIF_call .EQ. 'WRITED' .OR.  + which_PCIF_call .EQ. 'writed' ) then  ' C Set up for........................................................ WRITED' % write_length=buffer_results(which_buffer,buffer_size) % c1 = count1  c2 = count2 # prev_count = (float(c1) + (float(c2) * maxcount1))# call EXEC ( 11, start_time )  do i = 1, how_many_pcs   pc = which_pcs_to_use (i)  tag = pc if (pc .EQ. 1) then  pcadr = 40001  else pcadr = 40001  end if call PC_WRITED ( status, tag, key, pc, + write_buffer, write_length, pcadr )  if ( status .GT. 0 ) then $ call report_pcif_gm_err ( log_lu, sta((tus ) $ pcif_errors = pcif_errors + 1 error_table(pcif_errors,1) = status  error_table(pcif_errors,2) = pc end if end do   C If no-wait calls are used, loop to get all of the answers.   if ( .NOT. wait ) then  replies = 0  do while ( replies .LT. how_many_pcs )  # call PC_ENQUIRY ( status, oldstat, oldtag, #" + contkey, pc, read_buffer, read_length, " + typer, logr )  if ( status .NE. 0 ) then% call report_pcif_gm_err ( log_lu, status ) % pcif_errors = pcif_errors + 1! error_table(pcif_errors,1) = status! error_table(pcif_errors,2) = pc else if (( oldstat .NE. 0 ) .AND. + ( typer .NE. 0 )) then % call report_pcif_gm_err ( log_lu, oldstat) % pcif_errors = pcif_errors + 1" error_table(pcif_errors,1) = oldstat " error_table(pcif_errors,2) = pc else if ( typer .EQ. writed ) then  replies = replies + 1 got_data (pc) = .TRUE.  logr = 0  typer = 0 end if  end do  end if  c1 = count1  c2 = count2  call EXEC ( 11, stop_time )  ' C Store the time difference and CPU utilization into the loop_data array. '  t_elap = elapsed_time(start_time, stop_time) loop_data ( which_loop, loop_time ) = t_elap   r1 = float(c1) r2 = float(c2) cpu_util = (r1 + (r2 * maxcount1)) counts_sec_load = cpu_util - prev_count  prev_count = cpu_util  counts_sec_load = counts_sec_load / t_elap  if (counts_sec_load .GT. 18764.00)! + write(1,'("********************************")') !  loop_data ( which_loop, loop_util ) =  + ( ( counts_sec_solo - counts_sec_load ) + / counts_sec_solo ) * 100.  ( C OK, let's do the ...................................................WRITEP (  else if ( which_PCIF_call .EQ. 'WRITEP' .OR.  + which_PCIF_call .EQ. 'writep' ) then   C Set up the PC_WRITEP parameters... % write_length=buffer_results(which_buffer,buffer_size) % call EXEC ( 11, start_time )  do i = 1, how_many_pcs   pc = which_pcs_to_use (i)  tag = pc" pcadr = pc_id_table ( pc, prog_start_addr ) " call PC_WRITEP ( status, tag, key, pc, + write_buffer, write_length, pcadr )  if ( status .GT. 0 ) then $ call report_pcif_gm_err ( log_lu, status ) $ pcif_errors = pcif_errors + 1 error_table(pcif_errors,1) = status  error_table(pcif_errors,2) = pc end if end do   C If no-wait calls are used, loop to get all of the answers.   if ( .NOT. wait ) then  replies = 0  do while ( replies .LT. how_many_pcs )  # call PC_ENQUIRY ( status, oldstat, oldtag, #" + contkey, pc, read_buffer, read_length, " + typer, logr )  if ( status .NE. 0 ) then% call report_pcif_gm_err ( log_lu, status ) % pcif_errors = pcif_errors + 1! error_table(pcif_errors,1) = status! error_table(pcif_errors,2) = pc else if (( oldstat .NE. 0 ) .AND. + ( typer .NE. 0 )) then % call report_pcif_gm_err ( log_lu, oldstat) % pcif_errors = pcif_errors + 1" error_table(pcif_errors,1) = oldstat " error_table(pcif_errors,2) = pc else if ( typer .EQ. writep ) then  replies = replies + 1 got_data (pc) = .TRUE.  logr = 0  typer = 0 end if  end do  end if  c1 = count1  c2 = count2  call EXEC ( 11, stop_time )  ' C Store the time difference and CPU utilization into the loop_data array. '  t_elap = elapsed_time(start_time, stop_time) loop_data ( which_loop, loop_time ) = t_elap   r1 = float(c1) r2 = float(c2) cpu_util = (r1 + (r2 * maxcount1)) counts_sec_load = cpu_util - prev_count  prev_count = cpu_util  counts_sec_load = counts_sec_load / t_elap  if (counts_sec_load .GT. 18764.00)! + write(1,'("********************************")') !  loop_data ( which_loop, loop_util ) =  + ( ( counts_sec_solo - counts_sec_load ) + / counts_sec_solo ) * 100.   else  " write ( log_lu, '("I can''t understand the ", " + A6," request.",2/)') which_PCIF_call  go to 2000 " end if ! end of the which_PCIF_call test"  # C This is the end of the scan. Note: the storage file is left open.# C Make program dormant, saving resources.  C If the break flag is set, quit completely.  C Report any errors that may have occurred on this pass  if ( pcif_errors .GT. 0 ) then  $ write ( log_lu, '(2/,T27,"ERRORS DETECTED : ",I6,3/)')$ + pcif_errors   do i = 1, pcif_errors  status = error_table(i, 1) $ write(log_lu, '(t38,"PC : ",I2)') error_table(i,2) $ CALL report_pcif_gm_err(log_lu, status) end do   end if   C End of the main loop -- Now lets go do it again !  if (IFBRK() .LT. 0) go to 2000  call exec (6,0,1) IF (first_run) then first_run = .FALSE. go to 500 end if % end do ! end of the how_many_loops iterations %  % C ********************* Now Do The Reporting !!! ******************** %  do which_loop = 1 , how_many_loops  $ data_rate = ( buffer_results ( which_buffer, buffer_size )$$ + / loop_data (which_loop,loop_time )) $  CPU_util = loop_data (which_loop,loop_util)  write ( log_lu, '(F9.2,2X,I4,2X,F10.2,1X,F10.2,  + 1X,F10.2)' ) + loop_data (which_loop,scan_time), ! + buffer_results(which_buffer,buffer_size), ! + loop_data (which_loop,loop_time),  + CPU_util,  + data_rate   end do  $ C Now that many loops of a given buffer size have been done, compute $$ C the averages of the time spent and the number of counts read, and $ C store them into the results_buffer.   buffer_results ( which_buffer, avg_xfer_time ) = 0  buffer_results ( which_buffer, avg_CPU_util ) = 0 # C Sum up the total time for the transfers and the total counts/sec. #  tcpu_util = 0  do i = 2, how_many_loops  buffer_results ( which_buffer, avg_xfer_time ) = ! + ( buffer_results ( which_buffer, avg_xfer_time ) ! + + loop_data ( i, loop_time ) )   buffer_results ( which_buffer, avg_CPU_util ) = + buffer_results ( which_buffer, avg_CPU_util ) +  + loop_data ( i, loop_util )   tcpu_util = tcpu_util + tavg_cpu_util(i)   end do   C Divide the totals by the number of loops to get the C averages per loop for time and for utilization.  buffer_results ( which_buffer, avg_xfer_time ) =  + buffer_results (which_buffer,avg_xfer_time)  + / float ( how_many_loops - 1 )   buffer_results ( which_buffer, avg_CPU_util ) = + buffer_results (which_buffer,avg_CPU_util) + / f((loat ( how_many_loops - 1 )  " data_rate = ( buffer_results (which_buffer, buffer_size) "# + / buffer_results (which_buffer, avg_xfer_time))#  tcpu_util = tcpu_util / float ( how_many_loops - 1)  % C Write out the averages for the transfer time and PCIF CPU utilization % C for this buffer size.   write (log_lu,'(//, + "Buffer size = ",I4," words."/, # + "Average transfer time = ",F10.2," seconds.",/, # + "Average PCIF CPU utilization = ",F10.2," %.",/, # + "Average data rate per PC = ",F10.2," words/sec.", # + //)')  + buffer_results (which_buffer,buffer_size),  + buffer_results (which_buffer,avg_xfer_time),  + buffer_results (which_buffer,avg_CPU_util), + data_rate   C Now clear all performance counters and reset the start time  C for the next round of tests.   CALL EXEC( 11, start_time )  C count1 = 0 C count2 = 0  & end do ! end of the how_many_buffers iterations &  write (1, '("*** Finished with file ",A20," ***")') + names(file_number)   if ( .NOT. wait ) then  call PC_RELKEY ( status, key ) if ( status .GT. 0 ) then  call report_pcif_gm_err ( log_lu, status )  end if contkey = 0  key = 0  end if  # C If the operations were READP or WRITEP and the firmware revs were# C F or greater, issue "EXIT UPLOAD/DOWNLOAD MODE" commands.       call PC_UNLOCK (status,0) call PCIF_CLOSE (status)  CLOSE ( file, IOSTAT = status ) % 1090 end do ! end of the number_of_files iterations% ! write (1,'("*** Performance test DONE *** ISSUE br NOW")') ! 1100 if (IFBRK() .LT. 0) THEN call exec (6,0,3) else call exec (6,0,1) end if goto 1100 C Only go here to completely give up.  C If no-wait calls were used, release the access keys.   2000 if ( .NOT. wait ) then  call PC_RELKEY ( status, key ) if ( status .GT. 0 ) then  call report_pcif_gm_err ( log_lu, status )  end if contkey = 0  key = 0  end if  # C If the operations were READP or WRITEP and the firmware revs were# C F or greater, issue "EXIT UPLOAD/DOWNLOAD MODE" commands.   write(1,'("In 2000 routine")')  call PC_UNLOCK (status,0) call PCIF_CLOSE (status)  CLOSE ( file, IOSTAT = status ) call exec (6,0,3)  end .copy off   .subsection PERF.LOD  .copy on su  sc  li,perf.lib li,gmlbc.lib  li,$pclib li,/libraries/pascal.lib  re,perf.rel en perf.run.copy off   .section SCHED.FTN  .copy on ftn7x,s" C **************************************************************** "" C * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1986. ALL RIGHTS * "" C * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED * "" C * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT * "" C * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY * "" C **************************************************************** " program sched_gm   integer error, parms(5) integer FmpRunProgram, IFBRK, Messs integer filename(10)  integer break_perf(38)  integer iname(3)  character*16 filename_str character*28 runstring  character*6 runname   equivalence (filename,filename_str)  data runstring /'RU,PERF'/  data break_perf /'BR,PERF'/  iname(1) = 0 iname(2) = 0 iname(3) = 0  filename_str = ' ' call GETST (filename,10,tlog) if (tlog .LE. 0) STOP runstring(15:28) = filename_str  10 error = FmpRunProgram (runstring, parms, runname) c call exec(12, iname, 2, 0, -2)  if (error .LT. 0) then  write (1,'(A28," *** FMP error ",I6)') runstring,error  else if (IFBRK() .GE. 0) then go to 10  end if   C Stop the test program, PERF  i = Messs(break_perf,11)  error = FmpRunProgram (runstring, parms, runname) end.copy off   .subsection SCHED.LOD  .copy on su  re,sched.rel  en,sched.run .copy off   .section PERF_LIB.FTN  .copy on ftn7x,l,s $CDS ON" C **************************************************************** "" C * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1986. ALL RIGHTS * "" C * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED * "" C * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT * "" C * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY * "" C **************************************************************** " % C ********************************************************************* %  subroutine get_time ( time_string )  integer time_string ( 9 ), time_buf(6)  integer days_per_month (12,2) integer day_counter integer year, month integer normal_or_leap  integer index integer keeper  integer blank, colon, slash   integer byte, ones, tens  # data days_per_month / 31,28,31,30,31,30,31,31,30,31,30,31,# + 31,29,31,30,31,30,31,31,30,31,30,31/  data blank / 2h /, colon / 2h : /, slash / 2h //   ! C **************************************************************! C Get the system time.   call EXEC ( 11, time_buf, year )   C Is this a leap year ?   if ( MOD ( year, 4 ) .EQ. 0 ) then  normal_or_leap = 2  else  normal_or_leap = 1  end if   C Find out what month we're in...   day_counter = time_buf ( 5 )   do index = 1, 12  $ if ( day_counter .LE. days_per_month(index, normal_or_leap)) then$ month = index  keeper = day_counter  go to 100  else % day_counter =day_counter -days_per_month(index,normal_or_leap) % end if  end do   C Convert the year to two places...  100 if ( year .GT. 100 ) then year = year - 100 go to 100  end if   C Start filling the buffer !   C Hours...  ones = MOD ( time_buf(4), 10 )  tens = time_buf(4) / 10 byte = -1 call convert_byte ( byte, ones )  call put_byte ( time_string, 2, byte, error ) byte = -1 call convert_byte ( byte, tens )  call put_byte ( time_string, 1, byte, error )    C Minutes  ones = MOD ( time_buf(3), 10 )  tens = time_buf(3) / 10 byte = -1 call convert_byte ( byte, ones )  call put_byte ( time_string, 5, byte, error ) byte = -1 call convert_byte ( byte, tens )  call put_byte ( time_string, 4, byte, error )  C Seconds  ones = MOD ( time_buf(2), 10 )  tens = time_buf(2) / 10  byte = -1 call convert_byte ( byte, ones )  call put_byte ( time_string, 8, byte, error ) byte = -1 call convert_byte ( byte, tens )  call put_byte ( time_string, 7, byte, error )  C Months   ones = MOD ( month, 10 )  tens = month / 10  byte = -1 call convert_byte ( byte, ones )  call put_byte ( time_string, 12, byte, error )  byte = -1 call convert_byte ( byte, tens )  call put_byte ( time_string, 11, byte, error )   C Days   ones = MOD ( keeper, 10 ) tens = keeper / 10   byte = -1 call convert_byte ( byte, ones )  call put_byte ( time_string, 15, byte, error )  byte = -1 call convert_byte ( byte, tens )  call put_byte ( time_string, 14, byte, error )   C Year   ones = MOD ( year, 10 ) tens = year / 10   byte = -1 call convert_byte ( byte, ones )  call put_byte ( time_string, 18, byte, error )  byte = -1 call convert_byte ( byte, tens )  call put_byte ( time_string, 17, byte, error )   C Colons, slashes, and blanks to finish off this job !  call get_byte ( colon, 2, byte, error ) call put_byte ( time_string, 3, byte, error ) call put_byte ( time_string, 6, byte, error )  call get_byte ( blank, 2, byte, error ) call put_byte ( time_string, 9, byte, error ) call put_byte ( time_string,10, byte, error )  call get_byte ( slash, 2, byte, error ) call put_byte ( time_string, 13, byte, error )  call put_byte ( time_string, 16, byte, error )   return  end % C ********************************************************************* % C subroutine get_byte ( message, pointer, value, error )   C This subroutine retrieves a byte from a message buffer. C C! C **************************************************************! C Declarations   i((nteger message(80) ! Message buffer " integer pointer ! Which character in the message "! integer max_pointer ! maximum value of the pointer !! integer value ! Value of character in buffer ! integer error ! Error return  integer word ! Which word in the message" integer hi_byte_mask ! Mask to save only the high byte"" integer lo_byte_mask ! Mask to save only the low byte " ! C **************************************************************! C Error Codes are as follows : C C Error Meaning C ----- ------- C 0 No Error  C 1 Bad pointer value C C! C **************************************************************! C Initialization  ! value = 0 ! initialize the value to zero !' max_pointer = 160 ! maximum of 80 words, 160 bytes in message' hi_byte_mask = 177400B ! save the top 8 bits lo_byte_mask = 377B ! save the bottom 8 bits  ! C **************************************************************! C Check the input parameters for errors.   if ( pointer .GT. max_pointer ) then  error = 1 return  end if  ! C **************************************************************!# C Get the byte. If the pointer is odd, take the upper 8 bits. If # C the pointer is even, take the lower 8 bits.   word = ( pointer + 1 ) / 2  if ( MOD ( pointer, 2 ) .NE. 0 ) then$ value = ISHFT ( IAND ( message ( word ), hi_byte_mask ), -8 )$ else  value = IAND ( message ( word ), lo_byte_mask ) end if  ! C **************************************************************! C That's all, folks !   error = 0 return  end % C ********************************************************************* %    subroutine put_byte ( message, pointer, value, error )   C This subroutine retrieves a byte from a message buffer. C C! C **************************************************************! C Declarations   integer message(80) ! Message buffer " integer pointer ! Which character in the message "! integer max_pointer ! maximum value of the pointer !! integer value ! Value of character in buffer ! integer error ! Error return  integer word ! Which word in the message" integer hi_byte_mask ! Mask to save only the high byte"" integer lo_byte_mask ! Mask to save only the low byte " ! C **************************************************************! C Error Codes are as follows : C C Error Meaning C ----- ------- C 0 No Error  C 1 Bad pointer value' C 2 Value to be inserted is greater than 255 ( 1 byte )' C! C **************************************************************! C Initialization  ' max_pointer = 160 ! maximum of 80 words, 160 bytes in message' hi_byte_mask = 177400B ! save the top 8 bits lo_byte_mask = 377B ! save the bottom 8 bits  ! C **************************************************************! C Check the input parameters for errors.   if ( pointer .GT. max_pointer ) then  error = 1 return  else if ( value .GT. 255 ) then error = 2 return  end if  ! C **************************************************************!& C Put the byte into the message. If the pointer is odd, save the lower 8&$ C bits and insert "value" into the upper 8 bits. If the pointer is$& C even, save the upper 8 bits and insert "value" into the lower 8 bits.&  word = ( pointer + 1 ) / 2  if ( MOD ( pointer, 2 ) .NE. 0 ) then# message ( word ) = IAND ( message ( word ), lo_byte_mask ) # + + ISHFT ( value, 8 ) else # message ( word ) = IAND ( message ( word ), hi_byte_mask ) # + + value  end if  ! C **************************************************************! C That's all, folks !   error = 0 return  end % C ********************************************************************* %    subroutine convert_byte ( ASCII, hex ) ! C **************************************************************! C Declarations  " integer ASCII ! ASCII byte to be converted " integer hex ! hex value in binary% integer lookup_table(22,2) ! table of ASCII<-> hex conversions % ! C **************************************************************! C Initialization  # data lookup_table / 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, #! + 65, 66, 67, 68, 69, 70, 97, 98, 99, 100, 101, 102,!# + 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, # + 10, 11, 12, 13, 14, 15 / ! C **************************************************************!% C Decide which conversion is required : ASCII to hex, or hex to ASCII.%$ C The variable which does not contain -1 will be the one to convert.$ C If both are -1, return. If both are non(-1), return. C If ASCII is -1, convert the value in "hex" into "ASCII".  C If hex is -1, convert the value in "ASCII" into "hex".   if ( ASCII .EQ. -1 .and. hex .EQ. -1 ) return if ( ASCII .NE. -1 .and. hex .NE. -1 ) return ! C **************************************************************!& C ASCII -> hex : Loop through the lookup table to find a possible match. &  if ( hex .EQ. -1 ) then  do i = 1, 22   if ( lookup_table(i,1) .EQ. ASCII ) then   hex = lookup_table(i,2) return   end if   end do  ! C If no matches were found, leave the hex value at -1 and exit.!  return   end if  ! C **************************************************************! C hex -> ASCII. Check the lookup table.   if ( ASCII .EQ. -1 ) then  do i = 1, 22   if ( lookup_table(i,2) .EQ. hex ) then   ASCII = lookup_table(i,1) return   end if   end do return   end if  end % C ********************************************************************* % % C **********************************************************************% C Function to calculate the elapsed time between two samples.   real function elapsed_time ( start_time, stop_time )  integer*2 start_time(5), stop_time(5), time_diff(5)   do i = 1, 5  time_diff (i) = stop_time(i) - start_time(i) end do   elapsed_time = 0.0 # elapsed_time = elapsed_time + time_diff(1) / 100. ! .01 sec## elapsed_time = elapsed_time + time_diff(2) ! 1.0 sec## elapsed_time = elapsed_time + time_diff(3) * 60. ! minutes#" elapsed_time = elapsed_time + time_diff(4) * 3600. ! hours"$ elapsed_time = elapsed_time + time_diff(5) * 3600. * 24. ! days $  return  end % C **********************************************************************% .copy off  .number off;number on;number on 0 /PCIF/GSWPCIF/APPI:::4:362:41 644 0 0 265000 5303667216 35447 /PCIF_GS/GSWPCIF/APPI:::4:362:41  $j j)APPI +n+n+njFST SOURCE: 94200-17511 REV.5005 APPI   Emulator Code Examples  The following code is provided strictly as an example of PCIF software and does not imply any HP support.  # {------------------------------------------------------------------} ## { SOURCE: AB_EMUL.PAS } ## { Emulator Program for Allen Bradley Data Highway } ## { } ## { This program, in conjunction with downloadable firmware file } ## { !PCFAB, emulate a combination of up to 20 PLC-2's and PLC-3's. } ## { The program is started with the run string: } ## { } ## { RU,AB_EMUL , input file, [ ] } ## { } ## { If the input file parameter is not specified, the program will } ## { notify t((he user (via the output file) that it is missing. } ## { } ## { **************************************************************** } ## { * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1986. ALL RIGHTS * } ## { * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED * } ## { * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT * } ## { * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY * } ## { **************************************************************** } ## {------------------------------------------------------------------} #  $PAGE$   $DEBUG ON$ $CDS OFF$ $HEAP 2$  $RECURSIVE OFF$ $HEAPPARMS OFF$ $RANGE OFF$   PROGRAM ab_emul;   CONST REVISION = '3.0'; { Emulator revision } MAX_FILE_PATH = 63; DCB_WORDS = 288; MAX_NO_PLCS = 25;    TYPE  { Integer / character types }   BIT = 0..1; BYTE = 0..255;  WORD = -32768..32767;  WORD2 = PACKED ARRAY [1..2] OF WORD;  WORD5 = PACKED ARRAY [1..5] OF WORD;  DCB_BUFFER = ARRAY [1..DCB_WORDS] OF WORD; PATH = STRING [MAX_FILE_PATH]; CHAR1 = CHAR;  CHAR2 = PACKED ARRAY [1..2] OF CHAR;  CHAR6 = PACKED ARRAY [1..6] OF CHAR;  CHAR9 = PACKED ARRAY [1..9] OF CHAR;  CHAR20 = PACKED ARRAY [1..20] OF CHAR; CHAR80 = PACKED ARRAY [1..80] OF CHAR; WORD_BUFF = PACKED ARRAY [1..128] OF WORD;   { Shareable EMA declarations }  mem = RECORD CASE BOOLEAN OF % TRUE : (plc_2 : PACKED ARRAY [0..2399] OF BYTE); { 2400 bytes }%% FALSE : (plc_3 : PACKED ARRAY [0..1199] OF WORD); { 1200 words }% END;   { Variant record to twiddle bits in a 16-bit word }   word_var = RECORD CASE BOOLEAN OF  TRUE : (w : word);  FALSE : (b : PACKED ARRAY [0..15] OF bit); END;  $PAGE$  CONST  PLC = 0; { PLC processor } PLC_2 = 1; { PLC-2 processor } PLC_2_20_LP2 = 2; { PLC-2/20 (LP1) processor } PLC_2_MINI = 3; { Mini-PLC-2 processor } PLC_3 = 4; { PLC-3 processor } PLC_2_20_LP1 = 5; { PLC-2/20 (LP2) processor } PLC_2_15 = 6; { PLC-2/15 processor } PLC_2_30 = 7; { PLC-2/30 processor } PLC_4 = 8; { PLC-4 Microtol processor } COMPUTER = 15; { Computer }  PLC_2_CMD_GEN_UNSOL = 221; { DD hex }  PLC_2_CMD_UNSOL_RESPONSE = 67; { 43 hex }  PLC_2_CMD_UNSOL_REQUEST = 03; { 3 hex }  PLC_2_CMD_PROT_WRITE = 0; { 0 hex }  PLC_2_CMD_WRITE_UN_PROT = 8; { 8 hex }  PLC_2_CMD_PROT_BIT_WRITE = 2; { 2 hex }  PLC_2_CMD_WRITE_UN_PROT_BIT = 5; { 5 hex }  PLC_2_CMD_PRIV_WRITE = 3; { 3 hex }  PLC_2_CMD_READ_UN_PROT = 1; { 1 hex }  PLC_2_CMD_PRIV_READ = 4; { 4 hex }  PLC_2_CMD_DIAGNOSTICS = 6; { 6 hex }  PLC_2_FNC_DIAGNOSTICS = 3; { 3 hex }  PLC_3_CMD_GEN_UNSOL = 221; { DD hex }  PLC_3_CMD_UNSOL_RESPONSE = 79; { 4F hex }  PLC_3_CMD_UNSOL_REQUEST = 221; { DD hex }  PLC_3_CMD_FILE_WRITE = 15; { F hex }  PLC_3_CMD_BIT_WRITE = 15; { F hex }  PLC_3_CMD_PRIV_WRITE = 15; { F hex }  PLC_3_CMD_FILE_READ = 15; { F hex }  PLC_3_CMD_DIAGNOSTICS = 6; { 6 hex }  PLC_3_CMD_START = 15; { F hex }  PLC_3_CMD_STOP = 15; { F hex }  PLC_3_CMD_FREEZE = 15; { F hex }  PLC_3_FNC_FILE_WRITE = 0; { 0 hex }  PLC_3_FNC_BIT_WRITE = 2; { 2 hex }  PLC_3_FNC_PRIV_WRITE = 8; { 8 hex }  PLC_3_FNC_FILE_READ = 1; { 1 hex }  PLC_3_FNC_PRIV_READ = 9; { 9 hex }  PLC_3_FNC_DIAGNOSTICS = 3; { 3 hex }  PLC_3_FNC_START = 10; { A hex }  PLC_3_FNC_STOP_5 = 5; { 5 hex }  PLC_3_FNC_FREEZE_6 = 6; { 6 hex }  PLC_3_FNC_7 = 7; { 7 hex }  PLC_3_CMD_6 = 6; { 6 hex }  PLC_3_CMD_F = 15; { F hex }   # HEX_BASE = 32; { CMD/EXT hexadecimal base = 20H } #  $PAGE$  CONST # MAX_PLCS = 20; { Maximum Number of PLCs } ## NO_SWAP_BITS = 8; { Number of bits in swap table } ## SIZE_HEADER = 6; { Number of bytes in header } ## SIZE_ADDRESS = 2; { Number of bytes in address field } ## SIZE_BUFFER = 256; { Maximum size of header } #  # P_W = 0; { protected write : PCL_2 } ## U_P_R = 1; { unprotected read : PLC_2 } ## P_B_W = 2; { unprotected bit write : PLC_2 } ## PRIV_WR = 3; { privileged write : PLC_2 } ## PRIV_RD = 4; { privileged read : PLC_2 } ## U_P_B_W = 5; { unprotected bit write : PLC_2 } ## DIAG = 6; { diagnostics : PLC_2 } ## U_P_W = 8; { unprotected write : PLC_2 } # # F_W = 0; { file write : PLC_3 } ## F_R = 1; { file read : PLC_3 } ## B_W = 2; { bit write : PLC_3 } ## DIAGS = 3; { diagnostics : PLC_3 } ## STOP5 = 5; { stop plc : PLC_3 } ## FREEZE6 = 5; { freeze : PLC_3 } ## STOP7 = 7; { stop plc : PLC_3 } ## FREEZE7 = 77; { freeze : PLC_3 } ## PRIV_W = 8; { privileged write : PLC_3 } ## PRIV_R = 9; { priviliged read : PLC_3 } ## START = 10; { start plc : PLC_3 } #  KX_1771 = 1;  KA_1775 = 2;  $PAGE$  TYPE   { Command data buffer }   plc_data_type = PACKED RECORD  plc_id : BYTE; plc_type : BYTE;  plc_start_mem : ^mem; plc_end_of_physical_memory : INTEGER; CASE INTEGER OF ' KX_1771 : ( status_1771 : BYTE; { byte 1 }'' station_interface_1771: BYTE; { byte 2 }'' start_program_1771 : WORD; { bytes 3 and 4 }'' memory_size_1771 : WORD; { bytes 5 and 6 }'' loc_cnt_timers_1771 : WORD; { bytes 7 and 8 }'' series_revision_1771 : BYTE; { byte 9 }'' switch_setting_1771 : BYTE; ); { byte 10 }' ' KA_1775 : ( status_1775 : BYTE; { byte 1 }'' station_interface_1775: BYTE; { byte 2 }'' current_context_1775 : BYTE; { byte 3 }'' thumbwheel_no_1775 : BYTE; { byte 4 }'' mode_control_word_1775: WORD; { bytes 5 and 6 }'' loc_cnt_timers_1775 : WORD; { bytes 7 and 8 }'' series_revision_1775 : BYTE; { byte 9 }'' unused_1775 : BYTE; { byte 10 }'' unusd_sys_mem_1775 : INTEGER; { bytes 11 to 14 }'' sys_mem_size_1775 : INTEGER; ); { bytes 15 to 18 }' END; { end }   cmd_buffer_type = PACKED RECORD  CASE BOOLEAN OF  TRUE : ( DST : BYTE; SRC : BYTE; CMD : BYTE; sts_hi_nible : 0..15;  sts_lo_nible : 0..15;  TNS : WORD; CASE BOOLEAN OF % TRUE : ( DATA_BYTE : PACKED ARRAY [1..SIZE_BUFFER-%' SIZE_HEADER] OF BYTE;' LEN : WORD );& FALSE : ( DATA_WORD : PACKED ARRAY [1..((SIZE_BUFFER-&& SIZE_HEADER) DIV 2 )] OF WORD; & LEN1 : WORD ); );  FALSE : ( raw : WORD_BUFF); END;  $ PAGE $  VAR  { input and output files }  out_name : PATH; in_name : PATH;   otput : TEXT; inpt : TEXT;   { Data buffers }   buffer : cmd_buffer_type; { Host message r/w buffer } temp_buff : word_buff;   { Data tables }   plc_data : ARRAY [1..max_no_plcs] OF plc_data_type;   { Input / Output Parameters }  ! emulator_lu : word; { Emulator logical unit } !! emulator_port : word; { Emulator mux port } !! baud_rate : word; { Emulator mux prot baud rate } !   { Miscellaneous variables }  ! time : INTEGER; { Clock time for stamp }! no_of_plcs : WORD; temp : WORD; class_wd : WORD; class_str :(( PATH; len : INTEGER; infile : CHAR80; read_u_v : WORD; write_u_v : WORD; rtn_u_v : WORD;   { Emulator data areas }   $PAGE$   PROCEDURE control_exec $ALIAS 'XLUEX'$  ( icode : word; icmnd : word2; pram1 : word);  EXTERNAL;   PROCEDURE write_exec $ALIAS 'XLUEX'$  ( icode : word; icmnd : word2;  buffr : cmd_buffer_type; bufln : word);  EXTERNAL;   PROCEDURE class_read $ALIAS 'XLUEX'$  ( icode : word; icmnd : word2; buffr : word_buff; bufln : word; parm1 : word; parm2 : word; class : word; u_v : word);  EXTERNAL;   PROCEDURE class_write $ALIAS 'XLUEX'$ ( icode : word; icmnd : word2; buffr : word_buff; bufln : word; parm1 : word; parm2 : word; class : word; u_v : word);  EXTERNAL;   PROCEDURE class_get $ALIAS 'EXEC'$  ( icode : WORD; class : WORD; buffr : WORD_BUFF; bufln : WORD; rtn1 : WORD; rtn2 : WORD; rtn3 : WORD; rtn_u_v : WORD);  EXTERNAL;   PROCEDURE time_exec $ALIAS 'EXEC'$  ( icode : word; time : word5);  EXTERNAL;   PROCEDURE class_request $ALIAS 'CLRQ'$  ( func : WORD; VAR class : WORD);  EXTERNAL;   PROCEDURE abreg $ALIAS 'ABREG'$  ( VAR a_reg : word; VAR b_reg : word);  EXTERNAL;   FUNCTION strdsc $ALIAS 'strdsc'$  ( str : CHAR9; start, finish : INTEGER ) : INTEGER;  EXTERNAL;   FUNCTION optdsc $ALIAS 'strdsc'$  ( str : CHAR1; start, finish : INTEGER ) : INTEGER;  EXTERNAL;   PROCEDURE schedule_exec $ALIAS 'EXEC',NOABORT$  ( icode : WORD; name : CHAR6; pram1 : WORD; pram2 : WORD; pram3 : WORD; pram4 : WORD; pram5 : WORD; buffr : CHAR20; bufln : WORD );  EXTERNAL;   FUNCTION ifbrk $ALIAS 'IFBRK'$  : word;  EXTERNAL;   $page$   $HEAPPARMS OFF$  FUNCTION Pas_Sparameters  $ALIAS 'Pas.Sparameters'$ ( position : WORD;  VAR parameter: STRING): WORD; EXTERNAL;    $FIXED_STRING ON$  { PROCEDURE FmpClose  ( VAR dcb : DCB_BUFFER; VAR err : WORD); EXTERNAL;   PROCEDURE FmpCopy ( name1 : PATH; VAR err1 : WORD; name2 : PATH; VAR err2 : WORD;  VAR dcb : DCB_BUFFER; buflen : WORD;  opts : PATH); EXTERNAL;   PROCEDURE FmpError ( err : WORD;  VAR mess: PATH); EXTERNAL;  PROCEDURE FmpOpen  ( VAR dcb : DCB_BUFFER; VAR err : WORD; name : PATH; opts : PATH;  bufs : WORD); EXTERNAL;  } FUNCTION FmpPurge  ( name : PATH): WORD; EXTERNAL;   FUNCTION FmpRunProgram (runstring : PATH; parms : WORD5; runname : PATH;  alterstring : BOOLEAN): WORD; EXTERNAL;  FUNCTION FmpSetWorkingDir  (directory : PATH): WORD; EXTERNAL;   FUNCTION FmpWorkingDir  (directory : PATH): WORD; EXTERNAL;   $FIXED_STRING OFF$  { PROCEDURE Rmpar (parms : WORD5); EXTERNAL;  PROCEDURE Prtn  (parms : WORD5); EXTERNAL; } $HEAPPARMS ON$   $PAGE$   FUNCTION bit_set(bit : word) : word;  {-------------------------------------------------------------} { This function will set bit 'bit' ([15..0]) in a word of 0 } {-------------------------------------------------------------}   VAR temp : word_var;   BEGIN temp.w := 0; temp.b[15-bit] := 1;  bit_set := temp.w;  END;     FUNCTION bit_test(x,b : word) : word; {------------------------------------------------}  { This function will test bit 'b' in word 'x'. }  {------------------------------------------------}   VAR temp : word_var;   BEGIN temp.w := x;  bit_test := temp.b[15-b];  END;   $PAGE$   FUNCTION byte_sub(x : byte) : CHAR; {------------------------------------------------------------} { This function will translate a byte into a hex character } {------------------------------------------------------------}   BEGIN IF x IN [0..9] THEN  byte_sub := CHR(x + ORD('0')) ELSE byte_sub := CHR(X + ORD('A') - 10); END;     FUNCTION byte_to_hex(x : byte) : char2; {-------------------------------------------------------------} { This function will translate a byte into 2 hex characters } {-------------------------------------------------------------}   BEGIN byte_to_hex[1] := byte_sub(x DIV 16);  byte_to_hex[2] := byte_sub(x MOD 16);  END;   $PAGE$   FUNCTION get_buffer(VAR buff : cmd_buffer_type) : word; {-----------------------------------------------------} { This function gets a buffer from the MUX card and } { returns its length (-1 if an error occurred) } {-----------------------------------------------------}  CONST SC_BIT = 13; { Save Class number } ICODE = 21; { CLASS get command opcode }  VAR a_reg : WORD; b_reg : WORD; cmnd : WORD; rtn1 : WORD; rtn2 : WORD; rtn3 : WORD; size : WORD; temp_buff: WORD_BUFF;   BEGIN  { Set up EXEC call parameters }   cmnd := class_wd + bit_set ( SC_BIT ); size := size_buffer;   REPEAT( class_get ( ICODE, cmnd, temp_buff, - size, rtn1, rtn2, rtn3, rtn_u_v ); ( abreg(a_reg,b_reg)  UNTIL rtn_u_v <> write_u_v;    buff.raw := temp_buff;   { Return the length of the buffer (-1 if error) }   IF (bit_test(a_reg,0)=1) THEN  get_buffer := -1  ELSE get_buffer := b_reg;  END;  $PAGE$  PROCEDURE issue_read ( buff : CMD_BUFFER_TYPE );  {-----------------------------------------------------} { This procedure will issue a read request to the } { mux card. } {-----------------------------------------------------}  CONST BB_BIT = 15; { Driver Bypass bit } BI_BIT = 6; { Binary data bit } ICODE = 17; { CLASS read command opcode } TR_BIT = 10; { Transparency mode bit } UE_BIT = 13; { User error handling bit }  VAR temp_buff : WORD_BUFF; icmnd : word2;   BEGIN  { Set up EXEC call parameters }   icmnd[1] := emulator_LU;# icmnd[2] := bit_set(BI_BIT) + bit_set(TR_BIT) + bit_set(UE_BIT) + # bit_set(BB_BIT);  { Issue the EXEC call and retrieve the status and log }  % class_read(ICODE,icmnd,temp_buff,- SIZE_BUFFER,0,0,class_wd,read_u_v);% buff.raw := temp_buff;  END;  $PAGE$   PROCEDURE get_status(VAR x : cmd_buffer_type);  {-------------------------------------------------------------} { This procedure gets the 1-byte status buffer from the MUX } { card and displays an appropriate error message if needed } {-------------------------------------------------------------}   VAR len : word;   BEGIN len := get_buffer(x);   CASE ORD(x.raw[1]) OF  0 : ; 1 : WRITELN(otput,'*** DATACOMM ERROR ***');  2 : WRITELN(otput,'*** TIMEOUT ERROR ***');  OTHERWISE  BEGIN writeln ( otput, ' Destination = ', x.dst );  writeln ( otput, ' Source = ', x.src ); writeln ( otput, ' Command = ', x.cmd );  writeln ( otput, ' Tns = ', x.tns );  WRITELN(otput,'*** ILLEGAL ERROR ***');  END;  END; END;     PROCEDURE get_data(VAR x : cmd_buffer_type); ! {--------------------------------------------------------------} !! { This procedure gets a data buffer from the MUX card and } !! { installs its length. If the length is negative, an error } !! { has occurred and a call will be made to display the status } !! {--------------------------------------------------------------} !  BEGIN x.len := get_buffer(x) - SIZE_HEADER;   IF x.cmd = PLC_2_CMD_UNSOL_RESPONSE THEN x.len := 6  ELSE IF (x.len < 0) THEN get_status(x);  END;  $PAGE$  PROCEDURE get_params;  {--------------------------------------------------------}  { This procedure gets the emulator operating parameters }  { from the user, performing error checking as needed, }  { and installs the parameters in the global variables. }  {--------------------------------------------------------}   CONST BELL = 7; LU_MAX = 255; NO_ABORT = -32768;  ICODE = NO_ABORT + 10;   VAR parms : WORD5; i : WORD;  unsol_data_file : PATH;  error : WORD;  runname : PATH;  runstring : PATH;  alterstring : BOOLEAN; directory : PATH;  inlen : WORD;  outlen : WORD;  name : CHAR6; enable_unsols : BYTE((;   BEGIN  { initialize the user defined tag field in the class reads }   read_u_v := 1; { value 1 = emulation program } write_u_v := 2; { value 2 = emulation program }   { Get parameters from the run string (if there) }  ' inlen := Pas_Sparameters ( 1, in_name ); { get 1st param-input file name}'" outlen := Pas_Sparameters ( 2, out_name ); { output file name }" If outlen <= 0 THEN out_name := '1';  rewrite ( otput, out_name ); IF (inlen > 0) THEN  BEGIN reset ( inpt, in_name );" WRITELN(otput,'Allen Bradley emulator revision ',REVISION," ' running '); & { get input file name for timer program, get class number, then } && { schedule timer program to run. } &  readln ( inpt, unsol_data_file );   class_request ( 1, class_wd ); & { Schedule the timer program to run. } &  directory := ( ' '; ( error := FmpWorkingDir ( directory );  runstring := 'XQ,DEBUG50,+LU:57,'; { runstring := 'XQ,'; }  IF error < 0 THEN  strappend ( runstring, 'ABTIM::P1,' ) ELSE BEGIN  i := strpos ( directory, ' ' );  IF i <> 0 THEN strdelete ( directory, i, 63 - i + 1 ); strappend ( runstring, directory );  strappend ( runstring, '/ABTIM.RUN,' );  END;  i := strpos ( unsol_data_file, ' '); IF i <> 0 THEN ( strdelete ( unsol_data_file, i, strlen(unsol_data_file) - i + 1 ); ( strappend ( runstring, unsol_data_file );  strappend ( runstring, ',' );  setstrlen ( class_str, 0 );  strwrite ( class_str, 1, i, class_wd:16 ); class_str := strltrim ( class_str ); strappend ( runstring, class_str );   readln ( inpt, enable_unsols );  IF enable_unsols = 1 THEN  BEGIN " error := FmpRunProgram ( runstring, parms, runname, " alterstring );  IF error < 0 THEN BEGIN ' writeln(otput, ' Unable to Execute Timer Prog - error = ', ' error); writeln(otput, ' '); halt (1); END; { end if } END;   { input lu, port number and baud rate parameters }  readln ( inpt, emulator_lu );  readln ( inpt, emulator_port );  readln ( inpt, baud_rate );   i := 0;  WHILE NOT eof(inpt) DO BEGIN i := i + 1;  WITH plc_data[i] DO BEGIN readln ( inpt, plc_id ); readln ( inpt, plc_type ); CASE plc_type OF PLC_2: BEGIN  new ( plc_data[i].plc_start_mem ); plc_end_of_physical_memory := 1199; " readln(inpt,plc_data[i].status_1771 ); "' readln(inpt,plc_data[i].station_interface_1771); '% readln(inpt,plc_data[i].start_program_1771); %$ readln(inpt,plc_data[i].memory_size_1771 );$% readln(inpt,plc_data[i].loc_cnt_timers_1771);%& readln(inpt,plc_data[i].series_revision_1771); &% readln(inpt,plc_data[i].switch_setting_1771);% END; PLC_3: BEGIN  new ( plc_data[i].plc_start_mem ); plc_end_of_physical_memory := 1199; ! readln(inpt,plc_data[i].status_1775);!' readln(inpt,plc_data[i].station_interface_1775); '& readln(inpt,plc_data[i].current_context_1775); &% readln(inpt,plc_data[i].thumbwheel_no_1775); %' readln(inpt,plc_data[i].mode_control_word_1775); '% readln(inpt,plc_data[i].loc_cnt_timers_1775);%& readln(inpt,plc_data[i].series_revision_1775); &! readln(inpt,plc_data[i].unused_1775);!% readln(inpt,plc_data[i].unusd_sys_mem_1775); %$ readln(inpt,plc_data[i].sys_mem_size_1775);$ END; OTHERWISE# writeln( otput, 'Invalid PLC data type ' ); # END; { end case }  END; { end with } END; { end while } no_of_plcs := i;  END ELSE % { Parameters not specified: notify user that input file is required } %  BEGIN  { Print welcome message with revision number }  WRITELN(otput); WRITELN(otput); ' WRITELN(otput,' ' : 10,'{----------------------------------------}');'' WRITELN(otput,' ' : 10,'{ Allen Bradley Emulation Program }');'# WRITE (otput,' ' : 10,'{ Revision ',REVISION); # WRITELN(otput,' ' : 10,' }'); ' WRITELN(otput,' ' : 10,'{----------------------------------------}');'' WRITELN(otput,' ' : 10,'{ To execute emulator use: }');'' WRITELN(otput,' ' : 10,'{ }');'' WRITELN(otput,' ' : 10,'{ RU,AB_EMUL,,[]}');'' WRITELN(otput,' ' : 10,'{ }');'' WRITELN(otput,' ' : 10,'{----------------------------------------}');' close ( otput ); halt(1);  END;  close ( inpt );  END;   $PAGE$  PROCEDURE init_port;  {------------------------------------------------------}  { Init emulator MUX port and flush port input buffers }  {------------------------------------------------------}   CONST" CNTRL26 = octal('002600'); { Flush input buffers req }"$ CNTRL30 = octal('003000'); { Set port ID }$$ CNTRL33 = octal('003300'); { Configure driver response }$$ CNTRL26_CMD = octal('000001'); { Flush all buffers }$$ CNTRL30_CMD_WR = octal('142000'); { Baud rate, parity, etc. }$$ CNTRL30_CMD_RD = octal('162000'); { Baud rate, parity, etc. }$' CNTRL33_CMD = -22976; { octal('123100') Type ahead enable} '$ BAUD_RATE_0 = octal('000000'); { Baud rate generator 0 }$$ BAUD_RATE_1 = octal('010000'); { Baud rate generator 1 }$$ ICODE = 3; { EXEC control request opcode }$  VAR icmnd : word2; parm_rd : word; parm_wr : word;  temp : word;  BEGIN  { Initialize the emulator port ID }   icmnd[1] := emulator_lu; icmnd[2] := CNTRL30;   IF emulator_port = 0 THEN  BEGIN' parm_rd := CNTRL30_CMD_RD + emulator_port + BAUD_RATE_0 + baud_rate;'' parm_wr := CNTRL30_CMD_WR + emulator_port + BAUD_RATE_0 + baud_rate;' END ELSE BEGIN' parm_rd := CNTRL30_CMD_RD + emulator_port + BAUD_RATE_1 + baud_rate;'' parm_wr := CNTRL30_CMD_WR + emulator_port + BAUD_RATE_1 + baud_rate;' END;   control_exec(ICODE,icmnd,parm_rd); icmnd[1] := icmnd[1] + 1;  control_exec(ICODE,icmnd,parm_wr);  { Configure driver responses }  icmnd[1] := emulator_lu; icmnd[2] := CNTRL33; temp := cntrl33_cmd;  control_exec(ICODE,icmnd,CNTRL33_CMD); icmnd[1] := icmnd[1] + 1;  control_exec(ICODE,icmnd,CNTRL33_CMD);  { Flush input buffers (using two calls instead of parm2=1) }   icmnd[1] := emulator_lu; icmnd[2] := CNTRL26;  control_exec(ICODE,icmnd,CNTRL26_CMD); control_exec(ICODE,icmnd,CNTRL26_CMD); icmnd[1] := icmnd[1] + 1;  { control_exec(ICODE,icmnd,CNTRL26_CMD); control_exec(ICODE,icmnd,CNTRL26_CMD); }  END;   $PAGE$   FUNCTION length_check(actual,expected : byte) : BOOLEAN;  {-------------------------------------------------------------} { This function will check the length of a received message } {-------------------------------------------------------------}   BEGIN IF (actual >= 0) THEN  IF (actual <> expected) THEN  BEGIN % WRITE (otput,'*** LENGTH ERROR: EXPECTED = ',expected : 4); % WRITELN(otput,' ACTUAL = ',actual : 4,' ***'); END; length_check := (actual = expected); END;   $PAGE$   PROCEDURE put_buffer(VAR x : cmd_buffer_type);  {----------------------------------------------}  { This procedure sends a message to the host }  {----------------------------------------------}   CONST BI_BIT = 6; { Binary data bit } ICODE = 18; { EXEC write command opcode } TR_BIT = 10; { Transparency mode bit } UE_BIT = 13; { User error handling bit }  VAR icmnd : word2; temp_buff : WORD_BUFF; size : WORD;   BEGIN { Set up command word parameters } icmnd[1] := emulator_LU + 1;" icmnd[2] := bit_set(BI((_BIT) + bit_set(TR_BIT) + bit_set(UE_BIT);"  { Perform the write }  size := size_header + x.len; temp_buff := x.raw; $ class_write (ICODE,icmnd,temp_buff,- (size),0,0,class_wd,write_u_v);$ END;  $PAGE$  PROCEDURE writed ( VAR buff : cmd_buffer_type; index : BYTE ); ' {---------------------------------------------------------------------------}'' { Allen Bradley PLC-2 Protected Write command. CMD = 0 }'' {===========================================================================}'' { This procedure interprets the PLC-2 writed command. The command is }'' { checked to see if the write is within the memory bounds of the PLC-2 }'' { that is being written to. If so, the status response is set to 0 and }'' { the data is stored into the PLC's memory. If not, then the status }'' { will indicate an error and no data is stored into memory. }'' { Finally, the procedure put_buffer is called which will send the response }'' { buffer back to PCIF. }'' {---------------------------------------------------------------------------}' TYPE  pcadr_type = PACKED RECORD CASE INTEGER OF 1 : ( ms_byte, ls_byte : BYTE );  2 : ( wd : WORD );  END;  VAR write_addr : pcadr_type; end_addr : pcadr_type; response : cmd_buffer_type;  i,j : word;  ' { NOTE: PLC-2 memory referencing is done in byte mode. Word addressing } '' { is multiplied by 2 in PCIF and is received by emulator as byte } '' { addressing. } '  BEGIN write_addr.ls_byte := buff.data_byte[1]; write_addr.ms_byte := buff.data_byte[2];" end_addr.wd := write_addr.wd + ( buff.len - SIZE_ADDRESS - 1 ); " response.dst := buff.src;  response.src := buff.dst;  response.cmd := 64; { 40 hex }  response.tns := buff.tns; & IF (end_addr.wd DIV 2) > plc_data[index].plc_end_of_physical_memory THEN& BEGIN# response.sts_hi_nible := 5; { 5 hex in hi nible of sts } # response.sts_lo_nible := buff.sts_lo_nible;' response.data_byte[1] := 6; { Attempt to write past end of mem } '( response.len := 1; { len ->amount of data being returned} ( END ELSE BEGIN response.sts_hi_nible := buff.sts_hi_nible; response.sts_lo_nible := buff.sts_lo_nible; response.len := 0; { no data returned }   j := 3;  FOR i := write_addr.wd TO end_addr.wd DO BEGIN% plc_data[index].plc_start_mem^.plc_2[i] := buff.data_byte[j];% j := j + 1;  END; END;  put_buffer ( response );  END;   $PAGE$   PROCEDURE plc_2_unsol ( VAR buff : cmd_buffer_type );' {---------------------------------------------------------------------------}'' { Emulator Command. CMD = 221 }'' {===========================================================================}'' { This procedure takes input from the ABTIM auxiliary program and sends out}'' { an unsolicited request from a given PLC to PCIF. This is done by }'' { switching the dst and src values, changing the cmd type and then calling }'' { put_buffer with the modified unsolicited request. }'' {---------------------------------------------------------------------------}' VAR temp : BYTE; BEGIN temp := buff.dst; buff.dst := buff.src; buff.src := temp;  buff.cmd := PLC_2_CMD_UNSOL_REQUEST; put_buffer ( buff );  END;   $PAGE$  $ PROCEDURE plc_2_rsp_unsol ( VAR buff : cmd_buffer_type; index : BYTE );$' {---------------------------------------------------------------------------}'' { Emulator Command. CMD = 67. }'' {===========================================================================}'' { Check the response from PCIF to the unsolicited command that was sent to }'' { see if an error occurred. If an error did occur then print out a message}'' { indicating this. }'' { Future Enhancements: In the future we will need to add a table that has }'' { has a list of who sent out unsolicited requests. Once we get a reply we }'' { need to check to see if it is a correct reply for the given PLC }'' {---------------------------------------------------------------------------}' BEGIN ! IF (buff.sts_hi_nible <> 0) AND (buff.sts_lo_nible <> 0) THEN ! BEGIN buff.cmd := 0; ' writeln ( otput, ' Error return on unsol - error = ', buff.raw[4]); ' END;  END;   $PAGE$  " PROCEDURE plc_3_unsol ( VAR buff : cmd_buffer_type; index : BYTE );"' {---------------------------------------------------------------------------}'' { Emulator Command. CMD = 221. }'' {===========================================================================}'' { This procedure takes input from the ABTIM auxiliary program and sends out}'' { an unsolicited request from a given PLC to PCIF. This is done by }'' { switching the dst and src values, changing the cmd type and then calling }'' { put_buffer with the modified unsolicited request. }'' {---------------------------------------------------------------------------}' VAR temp : BYTE; BEGIN temp := buff.dst; buff.dst := buff.src; buff.src := temp; put_buffer ( buff );  END;   $PAGE$  $ PROCEDURE plc_3_rsp_unsol ( VAR buff : cmd_buffer_type; index : BYTE );$' {---------------------------------------------------------------------------}'' { Emulator Command. CMD = 67. }'' {===========================================================================}'' { Check the response from PCIF to the unsolicited command that was sent to }'' { see if an error occurred. If an error did occur then print out a message}'' { indicating this. }'' { Future Enhancements: In the future we will need to add a table that has }'' { has a list of who sent out unsolicited requests. Once we get a reply we }'' { need to check to see if it is a correct reply for the given PLC }'' {---------------------------------------------------------------------------}' BEGIN ! IF (buff.sts_hi_nible <> 0) AND (buff.sts_lo_nible <> 0) THEN !% writeln ( otput, ' Error return on unsol - error = ', buff.raw[4]);%  END;   $PAGE$   PROCEDURE trans ( VAR x : cmd_buffer_type; index : BYTE ); ' {---------------------------------------------------------------------------}'' { Allen Bradley Commands: }'' { Unprotected Write. CMD = 8 }'' { Unprotected Bit Write CMD = 5 }'' {===========================================================================}'' { This procedure will interpret the trans command for the PLC-2. }'' { Needs to be implemented. Future Enhancement. }'' {---------------------------------------------------------------------------}' BEGIN writeln(otput,'Not implemented');  END;   $PAGE$   PROCEDURE writep ( VAR buff : cmd_buffer_type; index : BYTE ); ' {---------------------------------------------------------------------------}'' { Allen Bradley Privileged Write Command. CMD = 3 }'' {===========================================================================}'' { This procedure interprets the PLC-2 writep command. The command is }'' { is checked to see if the write is within the memory bounds of the PLC-2 }'' { that is being written to. If so, the status response is set to 0 and }'' { the data is stored into the PLC's memory. If not, then the status }'' { will indicate an error and no data is stored into memory. }'' { Finally, the procedure put_buffer is called which will send the response }'' { buffer back to PCIF. }'' {---------------------------------------------------------------------------}' TYPE  pcadr_type = PACKED RECORD CASE INTEGER OF 1 : ( ms_byte, ls_byte : BYTE );  2 : ( wd : WORD );  END;  VAR write_addr : pcadr_type; end_addr : pcadr_type; response : cmd_buffer_type;  i,j : word;   BEGIN write_addr.ls_byte := buff.data_byte[1]; write_addr.ms_byte := buff.data_byte[2];" end_addr.wd := write_addr.wd + ( buff.len - SIZE_ADDRESS - 1 ); " response.dst := buff.src;  response.src := buff.dst;  response.cmd := 67; { 43 hex }  response.tns := buff.tns; & IF (end_addr.wd DIV 2) > plc_data[index].plc_end_of_physical_memory THEN& BEGIN# response.sts_hi_nible := 5; { 5 hex in hi nible of sts } # response.sts_lo_nible := buff.sts_lo_nible;' response.data_byte[1] := 6; { Attempt to write past end of mem } '( response.len := 1; { len ->amount of data being returned} ( END ELSE BEGIN response.sts_hi_nible := buff.sts_hi_nible; response.sts_lo_nible := buff.sts_lo_nible; response.len := 0; { no data returned }   j := 3;  FOR i := write_addr.wd TO end_addr((.wd DO BEGIN% plc_data[index].plc_start_mem^.plc_2[i] := buff.data_byte[j];% j := j + 1;  END; END;  put_buffer ( response );  END;   $PAGE$   PROCEDURE readp ( VAR buff : cmd_buffer_type; index : BYTE );' {---------------------------------------------------------------------------}'' { Allen Bradley PLC-2 Privileged Read Command. CMD = 4 }'' {===========================================================================}'' { This procedure interprets the PLC-2 readp command. The command is }'' { checked to see if the read is within the memory bounds of the PLC-2 that }'' { is being read from. If so, the status response is set to 0 and the data }'' { is read fromt the PLC's memory ( NOTE: Byte swapping must be done so that}'' { the bytes will be in the correct order after PCIF manipulates them). }'' { If the read is out-of-bounds then an error is set and the read is not }'' { done. }'' { Finally, the procedure put_buffer is called which will send the response }'' { buffer back to PCIF. }'' {---------------------------------------------------------------------------}' TYPE  pcadr_type = PACKED RECORD CASE INTEGER OF 1 : ( ms_byte, ls_byte : BYTE );  2 : ( wd : WORD );  END;  VAR read_addr : pcadr_type;  end_addr : pcadr_type;  swap_bytes: pcadr_type;  response : cmd_buffer_type; i,j : WORD;   BEGIN read_addr.ls_byte := buff.data_byte[1];  read_addr.ms_byte := buff.data_byte[2];  end_addr.wd := read_addr.wd + ( buff.data_byte[3] - 1 ); response.dst := buff.src;  response.src := buff.dst;  response.cmd := 68; { 44 hex }  response.tns := buff.tns;  & IF (end_addr.wd DIV 2) > plc_data[index].plc_end_of_physical_memory THEN& BEGIN" response.sts_hi_nible := 5; { 5 hex in hi nible of sts }" response.sts_lo_nible := buff.sts_lo_nible; & response.data_byte[1] := 7; { Attempt to read past end of mem } & response.len := 1; { one data error byte returned } END ELSE BEGIN response.sts_hi_nible := buff.sts_hi_nible;  response.sts_lo_nible := buff.sts_lo_nible;  response.len := buff.data_byte[3];  j := 1;  FOR i := read_addr.wd TO end_addr.wd DO BEGIN ( response.data_byte[j] := plc_data[index].plc_start_mem^.plc_2[i]; ( j := j + 1;  END; END;   put_buffer ( response ); END;   $PAGE$  ! PROCEDURE read_p_d ( VAR buff : cmd_buffer_type; index : BYTE ); !' {---------------------------------------------------------------------------}'' { Allen Bradley PLC-3 Priviliged Read Command. CMD = 15 FNC = 9 }'' {===========================================================================}'' { This procedure implements the PLC-3 readd and readp commands. }'' { }'' { NEEDS TO BE TESTED!!!!! 10/1/86 How does it fit in with extended calls? }'' {---------------------------------------------------------------------------}' TYPE  pcadr_type = PACKED RECORD CASE INTEGER OF 1 : ( msw_msb, msw_lsb, lsw_msb, lsw_lsb : BYTE );  2 : ( ms_word, ls_word : WORD );  3 : ( address : INTEGER );  END; pc_buffer = PACKED RECORD CASE INTEGER OF  1 : ( ms_byte, ls_byte : BYTE );  2 : ( data_word : WORD);  END;  VAR read_addr : pcadr_type;  end_addr : pcadr_type;  response : cmd_buffer_type; i : INTEGER; j : BYTE; swap_bytes: pc_buffer;   BEGIN read_addr.msw_lsb := buff.data_byte[2];  read_addr.msw_msb := buff.data_byte[3];  read_addr.lsw_lsb := buff.data_byte[4];  read_addr.lsw_msb := buff.data_byte[5]; $ end_addr.address := read_addr.address + ( buff.data_byte[6] DIV 2 );$ response.dst := buff.src;  response.src := buff.dst;  response.cmd := 79; { 4F hex }  response.tns := buff.tns;  % IF end_addr.address > plc_data[index].plc_end_of_physical_memory THEN % BEGIN" response.sts_hi_nible := 5; { 5 hex in hi nible of sts }" response.sts_lo_nible := buff.sts_lo_nible; & response.data_byte[1] := 7; { Attempt to read past end of mem } & response.len := 1; { one data error byte returned } END ELSE BEGIN response.sts_hi_nible := buff.sts_hi_nible;  response.sts_lo_nible := buff.sts_lo_nible;  response.len := buff.data_byte[4];  j := 1; ! FOR i := read_addr.address TO end_addr.address DO BEGIN !' swap_bytes.data_word := plc_data[index].plc_start_mem^.plc_3[i];' response.data_byte[j] := swap_bytes.ms_byte; j := j + 1;  response.data_byte[j] := swap_bytes.ls_byte; j := j + 1;  END; END;   put_buffer ( response );  END;  $PAGE$ $ PROCEDURE plc2stat_trans ( VAR buff : cmd_buffer_type; index : BYTE ); $' {---------------------------------------------------------------------------}'' { Allen Bradley PLC-2 Diagnostics Command. CMD = 6 FNC = 3 }'' {===========================================================================}'' { This command implements the PLC-2 pcstat or trans command. This }'' { procedure returns the current status of the given PLC-2. }'' { Future Enhancements: Currently the status values are based upon the }'' { ones specified by the user in the input command file. In the future the }'' { emulator will then proceed to modify these values based upon the }'' { commands that are issued via PCIF. }'' {---------------------------------------------------------------------------}' VAR response : cmd_buffer_type;  BEGIN response.dst := buff.src;  response.src := buff.dst;  response.cmd := 70; { 46 hex }  response.tns := buff.tns;  response.data_byte[1] := plc_data[index].status_1771; " response.data_byte[2] := plc_data[index].station_interface_1771;"' response.data_word[2] := plc_data[index].start_program_1771; {bytes 3+4}'' response.data_word[3] := plc_data[index].memory_size_1771; {bytes 5+6}'' response.data_word[4] := plc_data[index].loc_cnt_timers_1771; {bytes 7+8}'! response.data_byte[9] := plc_data[index].series_revision_1771;!! response.data_byte[10] := plc_data[index].switch_setting_1771;! response.len := 10;   put_buffer ( response );  END;   $PAGE$  $ PROCEDURE plc3stat_trans ( VAR buff : cmd_buffer_type; index : BYTE ); $' {---------------------------------------------------------------------------}'' { Allen Bradley PLC-3 Diagnostics Command. CMD = 6 FNC = 3 }'' {===========================================================================}'' { This command implements the PLC-3 pcstat or trans command. This }'' { procedure returns the current status of the given PLC-2. }'' { Future Enhancements: Currently the status values are based upon the }'' { ones specified by the user in the input command file. In the future the }'' { emulator will then proceed to modify these values based upon the }'' { commands that are issued via PCIF. }'' {---------------------------------------------------------------------------}' VAR response : cmd_buffer_type;  BEGIN response.dst := buff.src;  response.src := buff.dst;  response.cmd := 70; { 46 hex }  response.tns := buff.tns;  response.data_byte[1] := plc_data[index].status_1775; " response.data_byte[2] := plc_data[index].station_interface_1775;"! response.data_byte[3] := plc_data[index].current_context_1775;! response.data_byte[4] := plc_data[index].thumbwheel_no_1775; ( response.data_word[3] := plc_data[index].mode_control_word_1775; {bytes5+6} (( response.data_word[4] := plc_data[index].loc_cnt_timers_1775; {bytes7+8} (! response.data_byte[9] := plc_data[index].series_revision_1775;! response.data_byte[10]:= plc_data[index].unused_1775; ' response.data_word[6] := plc_data[index].unusd_sys_mem_1775; {bytes11-14}'' response.data_word[8] := plc_data[index].sys_mem_size_1775; {bytes15-18}' response.len := 18;   put_buffer ( response );  END;   $PAGE$ ! PROCEDURE readd_ext ( VAR buff : cmd_buffer_type; index : BYTE );!' {---------------------------------------------------------------------------}'' { Allen Bradley PLC-3 Word Range Read Command. CMD = 15 FNC = 01 }'' {===========================================================================}'' { This procedure implements the PLC-3 readd_ext command. The read is }'' { able to do word symbol, file symbol, or logical symbol addressing. The }'' { procedure has to interpret the command format, determine the type of }'' { memory that is being written to, validate the command, and then either }'' { carry out the read command or report an error. }'' { Future Enhancements: Currently the command only handles a limited subset}'' { of the possible combinations for this command. In the future the rest }'' { will need to be implemented. Refer to AB EMULATOR DOCUMENTATION. (( }'' {---------------------------------------------------------------------------}' TYPE  pcadr_type = PACKED RECORD CASE INTEGER OF 1 : (ms_byte, ls_byte : BYTE ); 2 : (wd : WORD );  END;  VAR response : cmd_buffer_type; context_offset,i,j : INTEGER; type_offset : INTEGER; struc_offset,struc_size : INTEGER; word_offset : INTEGER; file_offset : INTEGER; end_addr,read_addr : pcadr_type;  swap_bytes : pcadr_type;   BEGIN IF (buff.data_byte[6] <> 0) THEN BEGIN { Logical addressing-- } response.dst := buff.src;  response.src := buff.dst;  response.cmd := 79; {4F hex}  response.tns := buff.tns;   read_addr.wd := 0; context_offset := 1;! type_offset := 0; { DEFAULT EXTENDED ADDRESSES } ! file_offset := 0;  struc_offset := 0; word_offset := 0;   i := 7;  { IF (bit 0 of buff.data_byte[6] = true) THEN } BEGIN  {?? future handling of other areas ??} i := i+1; END;  { IF (bit 1 of buff.data_byte[6] = true) THEN } BEGIN  context_offset := buff.data_byte[i]; i := i+1; END;  { IF (bit 2 of buff.data_byte[6] = true) THEN } BEGIN  type_offset := buff.data_byte[i];  i := i+1; END;  { IF (bit 3 of buff.data_byte[6] = true) THEN } BEGIN  IF (buff.data_byte[i] = 256) THEN  BEGIN  file_offset := buff.data_byte[i+2]*256; $ file_offset := file_offset + buff.data_byte[i+1]; $ i := i+3;  END ELSE BEGIN  file_offset := buff.data_byte[i]; i := i+1; END; END;  { IF (bit 4 of buff.data_byte[6] = true) THEN }  BEGIN  IF (buff.data_byte[i] = 256) THEN  BEGIN  struc_offset := buff.data_byte[i+2]*256;% struc_offset := struc_offset + buff.data_byte[i+1]; % i := i+3;  END ELSE BEGIN  struc_offset := buff.data_byte[i]; i := i+1;  END; END;  { IF (bit 5 of buff.data_byte[6] = true) THEN } BEGIN  IF (buff.data_byte[i] = 256) THEN BEGIN  word_offset := buff.data_byte[i+2]*256;# word_offset := word_offset + buff.data_byte[i+1];# i := i+3; END ELSE BEGIN  word_offset := buff.data_byte[i]; i := i+1; END; END;  ) { read_addr.wd := read_addr.wd + (context_offset * context_block_size); } ) read_addr.wd := read_addr.wd + ((type_offset-5)*200); & { read_addr.wd := read_addr.wd + (file_offset * file_block_size); } & CASE type_offset OF  {output image} 1: ; {input image} 2: ; {timer} 3: struc_size := 3;  {counter} 4: struc_size := 3;  {integer} 5: struc_size := 1;  {float} 6: struc_size := 2;  {decimal} 7: struc_size := 1;  {binary} 8: struc_size := 1;  {ASCII} 9: struc_size := 1;  {dbl integer} 10: struc_size := 2;  {pointer} 12: ; {status} 13: ; OTHERWISE ; END; {case} # read_addr.wd := read_addr.wd + (struc_offset * struc_size); # read_addr.wd := read_addr.wd + word_offset; ! end_addr.wd := read_addr.wd + (buff.data_byte[i] DIV 2);! & IF (end_addr.wd > PLC_data[index].plc_end_of_physical_memory) THEN& BEGIN {Error: read past end-of-memory--} response.sts_hi_nible := 5;  response.sts_lo_nible := buff.sts_lo_nible;  response.data_byte[1] := 7;  response.len := 1; END ELSE BEGIN  response.sts_hi_nible := buff.sts_hi_nible;  response.sts_lo_nible := buff.sts_lo_nible;  j := 1;  FOR i := read_addr.wd TO end_addr.wd DO BEGIN & swap_bytes.wd := plc_data[index].plc_start_mem^.plc_3[i];& response.data_byte[j] := swap_bytes.ms_byte;  j := j+1; response.data_byte[j] := swap_bytes.ls_byte;  j := j+1; END; {for}  response.len := j-1; END;  put_buffer ( response ); END {logical addressing}  ELSE { Word Symbol or File Symbol addressing... } BEGIN writeln (otput, 'No PLC3 word/file symbol addressing!');  END;  END;  $PAGE$ " PROCEDURE writed_ext ( VAR buff : cmd_buffer_type; index : BYTE ); "' {---------------------------------------------------------------------------}'' { Allen Bradley PLC-3 Word Range Write Command. CMD = 15 FNC = 0 }'' {===========================================================================}'' { This procedure implements the PLC-3 writed_ext command. The read is }'' { able to do word symbol, file symbol, or logical symbol addressing. The }'' { procedure has to interpret the command format, determine the type of }'' { memory that is being written to, validate the command, and then either }'' { carry out the write command or report an error. }'' { Future Enhancements: Currently the command only handles a limited subset}'' { of the possible combinations for this command. In the future the rest }'' { will need to be implemented. Refer to AB EMULATOR DOCUMENTATION. }'' {---------------------------------------------------------------------------}' TYPE  pcadr_type = PACKED RECORD CASE INTEGER OF 1 : (ms_byte, ls_byte : BYTE ); 2 : (wd : WORD );  END;  VAR response : cmd_buffer_type; context_offset,i,j : word;  type_offset : word;  struc_offset,struc_size : word;  word_offset : word;  file_offset : word;  end_addr,write_addr : pcadr_type;  write_word : pcadr_type;   BEGIN IF (buff.data_byte[6] <> 0) THEN BEGIN { Logical addressing-- } response.dst := buff.src;  response.src := buff.dst;  response.cmd := 79; {4F hex}  response.tns := buff.tns;   write_addr.wd := 0;  context_offset := 1;! type_offset := 0; { DEFAULT EXTENDED ADDRESSES } ! file_offset := 0;  struc_offset := 0; word_offset := 0;   i := 7;  { IF (bit 0 of buff.data_byte[6] = true) THEN } BEGIN  {?? future handling of other areas ??} i := i+1; END;  { IF (bit 1 of buff.data_byte[6] = true) THEN } BEGIN  context_offset := buff.data_byte[i]; i := i+1; END;  { IF (bit 2 of buff.data_byte[6] = true) THEN } BEGIN  type_offset := buff.data_byte[i];  i := i+1; END;  { IF (bit 3 of buff.data_byte[6] = true) THEN } BEGIN  IF (buff.data_byte[i] = 256) THEN  BEGIN  file_offset := buff.data_byte[i+2]*256; $ file_offset := file_offset + buff.data_byte[i+1]; $ i := i+3;  END ELSE BEGIN  file_offset := buff.data_byte[i]; i := i+1; END; END;  { IF (bit 4 of buff.data_byte[6] = true) THEN }  BEGIN  IF (buff.data_byte[i] = 256) THEN  BEGIN  struc_offset := buff.data_byte[i+2]*256;% struc_offset := struc_offset + buff.data_byte[i+1]; % i := i+3;  END ELSE BEGIN  struc_offset := buff.data_byte[i]; i := i+1;  END; END;  { IF (bit 5 of buff.data_byte[6] = true) THEN } BEGIN  IF (buff.data_byte[i] = 256) THEN BEGIN  word_offset := buff.data_byte[i+2]*256;# word_offset := word_offset + buff.data_byte[i+1];# i := i+3; END ELSE BEGIN  word_offset := buff.data_byte[i]; i := i+1; END; END;  & { write_addr.wd:=write_addr.wd+(context_offset*context_block_size);}&! wr((ite_addr.wd := write_addr.wd + ((type_offset-5)*200); !# { write_addr.wd:=write_addr.wd+(file_offset*file_block_size);}# CASE type_offset OF  {output image} 1: ; {?? future handling ??}  {input image} 2: ; {?? future handling ??}  {timer} 3: struc_size := 3;  {counter} 4: struc_size := 3;  {integer} 5: struc_size := 1;  {float} 6: struc_size := 2;  {decimal} 7: struc_size := 1;  {binary} 8: struc_size := 1;  {ASCII} 9: struc_size := 1;  {dbl integer} 10: struc_size := 2;  {pointer} 12: ; {status} 13: ; OTHERWISE ; END; {case} $ write_addr.wd := write_addr.wd + (struc_offset * struc_size); $ write_addr.wd := write_addr.wd + word_offset;  end_addr.ms_byte := buff.data_byte[5]; end_addr.ls_byte := buff.data_byte[4]; end_addr.wd := write_addr.wd + end_addr.wd;  & IF (end_addr.wd > PLC_data[index].plc_end_of_physical_memory) THEN& BEGIN {Error: Write past end-of-memory--}  response.sts_hi_nible := 5;  response.sts_lo_nible := buff.sts_lo_nible;  response.data_byte[1] := 6;  response.len := 1; END ELSE BEGIN  response.sts_hi_nible := buff.sts_hi_nible;  response.sts_lo_nible := buff.sts_lo_nible;  FOR j := write_addr.wd TO end_addr.wd DO BEGIN write_word.ms_byte := buff.data_byte[i];  i := i+1; write_word.ls_byte := buff.data_byte[i];  i := i+1;& plc_data[index].plc_start_mem^.plc_3[j] := write_word.wd;& END; {for}  response.len := 0; {no data returned} END;  put_buffer ( response ); END {logical addressing}  ELSE { Word Symbol or File Symbol addressing... }! writeln (otput, 'PLC3 word/file symbols not implemented'); ! END;   $PAGE$  " PROCEDURE writeb_ext ( VAR buff : cmd_buffer_type; index : BYTE ); "' {---------------------------------------------------------------------------}'' { Allen Bradley PLC-3 Bit Write Command. CMD = 15 FNC = 02 }'' {===========================================================================}'' { This procedure implements the PLC-3 writeb_ext command. The write is }'' { able to do word symbol, file symbol, or logical symbol addressing. The }'' { procedure has to interpret the command format, determine the type of }'' { memory that is being written to, validate the command, and then either }'' { carry out the write command or report an error. }'' { Future Enhancements: The command needs to be implemented. }'' {---------------------------------------------------------------------------}' BEGIN writeln(otput,'Not implemented');  END;   $PAGE$  ! PROCEDURE write_p_d ( VAR buff : cmd_buffer_type; index : BYTE );!' {---------------------------------------------------------------------------}'' { Allen Bradley PLC-3 Priviledged Write Command. CMD = 15 FNC = 8 }'' {===========================================================================}'' { This procedure implements the PLC-3 writed and writep commands. }'' { }'' { This routine needs to be TESTED! Also, PLC-3 memory area needs to be }'' { taken into account. Where does this write write to? }'' {---------------------------------------------------------------------------}'  TYPE  pcadr_type = PACKED RECORD CASE INTEGER OF 1 : ( msw_msb, msw_lsb, lsw_msb, lsw_lsb : BYTE );  2 : ( ms_word, ls_word : WORD );  3 : ( address : INTEGER );  END; wd_byte_type = PACKED RECORD CASE INTEGER OF 1 : ( msb, lsb : BYTE );  2 : ( wd : WORD );  END;  VAR write_addr : pcadr_type; end_addr : pcadr_type; allign_word: wd_byte_type; response : cmd_buffer_type;  i,j : word;   BEGIN write_addr.msw_lsb := buff.data_byte[2]; write_addr.msw_msb := buff.data_byte[3]; write_addr.lsw_lsb := buff.data_byte[4]; write_addr.lsw_msb := buff.data_byte[5];' end_addr.address := write_addr.address + (buff.len DIV 2)-SIZE_ADDRESS-1; ' response.dst := buff.src;  response.src := buff.dst;  response.cmd := 79; { 4F hex }  response.tns := buff.tns; % IF end_addr.address > plc_data[index].plc_end_of_physical_memory THEN % BEGIN# response.sts_hi_nible := 5; { 5 hex in hi nible of sts } # response.sts_lo_nible := buff.sts_lo_nible;' response.data_byte[1] := 6; { Attempt to write past end of mem } '( response.len := 1; { len ->amount of data being returned} ( END ELSE BEGIN response.sts_hi_nible := buff.sts_hi_nible; response.sts_lo_nible := buff.sts_lo_nible; response.len := 0; { no data returned }   j := 6; ! FOR i := write_addr.address TO end_addr.address DO BEGIN! allign_word.msb := buff.data_byte[j]; j := j + 1;  allign_word.lsb := buff.data_byte[j];$ plc_data[index].plc_start_mem^.plc_3[i] := allign_word.wd; $ j := j + 1;  END; END;  put_buffer ( response );  END;   $PAGE$   PROCEDURE readd ( VAR buff : cmd_buffer_type; index : BYTE );' {---------------------------------------------------------------------------}'' { Allen Bradley PLC-2 Read Unprotected Command. CMD = 1 }'' {---------------------------------------------------------------------------}'' { This procedure interprets the PLC-2 readd command. The command is }'' { checked to see if the read is within the memory bounds of the PLC-2 }'' { that is being read from. If so, the status response is set to 0 and the }'' { data is read fromt the PLC's memory ( NOTE: Byte swapping must be done }'' { so that the bytes will be in the correct order after PCIF manipulates }'' { them). If the read is out-of-bounds then an error is set and the read }'' { is not done. }'' { Finally, the procedure put_buffer is called which will send the response }'' { buffer back to PCIF. }'' {---------------------------------------------------------------------------}'  TYPE  pcadr_type = PACKED RECORD CASE INTEGER OF 1 : ( ms_byte, ls_byte : BYTE );  2 : ( wd : WORD );  END;  VAR read_addr : pcadr_type;  end_addr : pcadr_type;  swap_bytes: pcadr_type;  response : cmd_buffer_type; i,j : WORD;   BEGIN read_addr.ls_byte := buff.data_byte[1];  read_addr.ms_byte := buff.data_byte[2];  end_addr.wd := read_addr.wd + ( buff.data_byte[3] - 1);  response.dst := buff.src;  response.src := buff.dst;  response.cmd := 79; { 4F hex }  response.tns := buff.tns;  & IF (end_addr.wd DIV 2) > plc_data[index].plc_end_of_physical_memory THEN& BEGIN" response.sts_hi_nible := 5; { 5 hex in hi nible of sts }" response.sts_lo_nible := buff.sts_lo_nible; & response.data_byte[1] := 7; { Attempt to read past end of mem } & response.len := 1; { one data error byte returned } END ELSE BEGIN response.sts_hi_nible := buff.sts_hi_nible;  response.sts_lo_nible := buff.sts_lo_nible;  response.len := buff.data_byte[3];  j := 1;  FOR i := read_addr.wd TO end_addr.wd DO BEGIN ( response.data_byte[j] := plc_data[index].plc_start_mem^.plc_2[i]; ( j := j + 1;  END; END;   put_buffer ( response ); END;   $PAGE$   PROCEDURE start_pc ( VAR buff : cmd_buffer_type ); ' {---------------------------------------------------------------------------}'' { Allen Bradley PLC-3 Restart Request Command. CMD = 15 FNC = 10 }'' {===========================================================================}'' { This procedure will implement the PLC-3 start command. }'' {---------------------------------------------------------------------------}' BEGIN writeln(otput,'Not implemented');  END;   $PAGE$   PROCEDURE stop_pc ( VAR buff : cmd_buffer_type );' {---------------------------------------------------------------------------}'' { Allen Bradley PLC-3 Download Request Command. CMD = 15 FNC = 05 }'' {===========================================================================}'' { This procedure will implement the PLC-3 stop command. }'' {---------------------------------------------------------------------------}' BEGIN writeln(otput,'Not implemented');  END;   $PAGE$   PROCEDURE freeze ( VAR buff : cmd_buffer_type ); ' {---------------------------------------------------------------------------}'' { Allen Bradley Commands: }'' { Shutdown Request Command. CMD = 15 FNC = 07 }'' { Upload Re((quest Command. CMD = 15 FNC = 06 }'' {===========================================================================}'' { This procedure will implement the PLC-3 freeze command. }'' {---------------------------------------------------------------------------}' BEGIN writeln(otput,'Not implemented');  END;   $PAGE$   PROCEDURE shut_down ( VAR buff : cmd_buffer_type );' {---------------------------------------------------------------------------}'' { Allen Bradley Shutdown Request Command. CMD = 15 FNC = 7 }'' {===========================================================================}'' { This procedure will implement the PLC-3 Shutdown Command. }'' {---------------------------------------------------------------------------}'  BEGIN writeln(otput,'Not implemented');  END;   $PAGE$   PROCEDURE writed_bit ( VAR x : cmd_buffer_type; index : BYTE ); ' {---------------------------------------------------------------------------}'' { Allen Bradley PLC-2 Protected Bit Write Command. CMD = 2 }'' {===========================================================================}'' { This procedure will implement the PLC-2 Protected Bit Write command. }'' {---------------------------------------------------------------------------}'  BEGIN writeln(otput,'Not implemented');  END;   $PAGE$   PROCEDURE xlate_buffer(VAR buff : cmd_buffer_type);' {---------------------------------------------------------------------------}'' { This procedure will execute the appropriate Allen Bradley Commands. }'' { First we need to find the appropriate context for the command that we }'' { have received. If destination id does not match any of the configured }'' { ids then an error has occurred. Otherwise we have found the destination }'' { plc's context we are ready to process the command. }'' {---------------------------------------------------------------------------}' { If the timer number is legal, translate the command }  VAR index : BYTE; i : BYTE;  ( BEGIN { find context of the PLC -- match PLC ID value to destination val} ( i := 1; & WHILE ( (i <= no_of_plcs)AND(buff.dst <> plc_data[i].plc_id) ) DO BEGIN & i := i + 1 END; { end while }   IF i > no_of_plcs THEN writeln ( otput, ' PLC ID UNDEFINED -- ID = ', buff.dst )  ELSE BEGIN index := i;  CASE plc_data[index].plc_type OF  PLC_2: CASE buff.cmd OF " PLC_2_CMD_GEN_UNSOL : plc_2_unsol(buff);"' PLC_2_CMD_UNSOL_RESPONSE : plc_2_rsp_unsol(buff,index);'# PLC_2_CMD_PROT_WRITE : writed(buff,index); #" PLC_2_CMD_WRITE_UN_PROT : trans(buff,index);"% PLC_2_CMD_PROT_BIT_WRITE : writed_bit(buff,index); %" PLC_2_CMD_WRITE_UN_PROT_BIT : trans(buff,index);"# PLC_2_CMD_PRIV_WRITE : writep(buff,index); #" PLC_2_CMD_READ_UN_PROT : readd(buff,index);"" PLC_2_CMD_PRIV_READ : readp(buff,index);" PLC_2_CMD_DIAGNOSTICS :  CASE buff.data_byte[1] OF PLC_2_FNC_DIAGNOSTICS :  plc2stat_trans(buff,index);  OTHERWISE { error}% writeln ( otput,' PLC 2 CMD ERROR -', %& ' CMD = ', buff.cmd ); & END;  END;   PLC_3: CASE buff.cmd OF $ PLC_3_CMD_GEN_UNSOL : plc_3_unsol(buff,index); $& PLC_3_CMD_UNSOL_RESPONSE : plc_3_rsp_unsol(buff,index); & PLC_3_CMD_F: CASE buff.data_byte[1] OF( PLC_3_FNC_FILE_READ : readd_ext(buff,index); (( PLC_3_FNC_FILE_WRITE: writed_ext(buff,index);(( PLC_3_FNC_BIT_WRITE : writeb_ext(buff,index);(' PLC_3_FNC_PRIV_READ : read_p_d(buff,index);'( PLC_3_FNC_PRIV_WRITE: write_p_d(buff,index); ($ PLC_3_FNC_START : start_pc(buff);$$ PLC_3_FNC_STOP_5 : stop_pc(buff); $# PLC_3_FNC_FREEZE_6 : freeze(buff);#% PLC_3_FNC_7 : shut_down(buff); % OTHERWISE& writeln ( otput, ' PLC 3 FNC ERROR -',&' ' FNC = ', buff.data_byte[1]);' END; { end case } PLC_3_CMD_6: CASE buff.data_byte[1] OF PLC_3_FNC_DIAGNOSTICS :  plc3stat_trans(buff,index);  OTHERWISE { error}' writeln ( otput, ' PLC 3 FNC ERROR -', '( ' FNC = ', buff.data_byte[1]); ( END;  OTHERWISE ( writeln ( otput, ' PLC 3 CMD ERROR - CMD = ', buff.cmd); ( END; { end case } OTHERWISE # writeln ( otput, ' ILLEGAL PLC TYPE FOR GIVEN COMMAND '); # END; { end case } END; { end if }  END;  $PAGE$   { Begin main program }   BEGIN  { Get user parameters and initialize }  get_params;  init_port;  { Issue a pending read to the mux card }   issue_read ( buffer ); issue_read ( buffer ); issue_read ( buffer );   { Get messages from the host and translate them }   REPEAT  get_data( buffer );   IF (buffer.len >= 0) THEN xlate_buffer(buffer);   IF ifbrk <> 0 THEN  BEGIN # WRITELN(otput,'*** ALLEN BRADLEY operator shutdown ***');# halt(1);  END;  IF rtn_u_v = read_u_v THEN  issue_read ( buffer ); rtn_u_v := 0;   UNTIL FALSE;  END. .copy off .page 0  .subsection AB_EMUL.LOD .copy on EMA,32  li,pascal.lib::libraries  re,ab_emul.rel  en .copy off .page 0  .subsection ABTIM.PAS .copy on $PASCAL ',3,90 94xxx-16xxx REV.xxxx <880310.1835>'  # {------------------------------------------------------------------} ## { SOURCE: ABTIM.PAS } ## { Timer Program for Allen Bradley Emulator Program. } ## { } ## { Non-CDS Version: } ## { NAME : SMTIM } ## { SOURCE: 94xxx-18xxx } ## { RELOC : 94xxx-16xxx } ## { PRGMR : DLD } ## { } ## { **************************************************************** } ## { * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1985. ALL RIGHTS * } ## { * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED * } ## { * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT * } ## { * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY * } ## { **************************************************************** } ## {------------------------------------------------------------------} #  $ DEBUG ON $  $CDS OFF$ $HEAP 2$  $RECURSIVE OFF$ $RANGE OFF$ $HEAPPARMS OFF$  PROGRAM abtim;  " {-----------------------------------------------------------------}"" { }"" { This program is used in conjunction with the Allen Bradley }"" { emulation program. It is scheduled by that program, }"" { receiving a class number in PRAM1 and the timeout }"" { value in PRAM2. }"" { }"" { The program will suspend itself for the timeout value (in }"" { tens of milliseconds) and then do a class write/read }"" { to the parent program. }"" { }"" {-----------------------------------------------------------------}"  $PAGE  CONST ' TIMEOUT = 200; { Delay value in milliseconds : 200 = .2 SEC } ' MSG_SIZE = 2;  MAX_FILE_PATH = 63;  DCB_WORDS = 288;  KX_1771 = 1;  KA_1775 = 2;  PLC = 0; { PLC processor } PLC_2 = 1; { PLC-2 processor } PLC_2_20_LP2 = 2; { PLC-2/20 (LP1) processor } PLC_2_MINI = 3; { Mini-PLC-2 processor } PLC_3 = 4; { PLC-3 processor } PLC_2_20_LP1 = 5; { PLC-2/20 (LP2) processor } PLC_2_15 = 6; { PLC-2/15 processor } PLC_2_30 = 7; { PLC-2/30 processor } PLC_4 = 8; { PLC-4 Microtol processor } COMPUTER = 15; { C((omputer } PCIF_COMPUTER_ID = 11; { PCIF DESTINATION ID }# GEN_UNSOLICITED_MESSAGE_CMD = 221; { DD hex } #   TYPE   BYTE = 0..255;  WORD = -32768..32767;  WORD3 = ARRAY [1..3] OF word; WORD5 = ARRAY [1..5] OF word; PATH = STRING [MAX_FILE_PATH]; CHAR20 = PACKED ARRAY [1..20] OF CHAR; FILETYPE = PACKED ARRAY [1..64] OF CHAR; DCB_BUFFER = ARRAY [1..DCB_WORDS] OF WORD;  { Shareable EMA declarations }  mem = PACKED ARRAY [1..1000] OF WORD;   { Message to be sent to parent program }  cmd_buffer_type = PACKED ARRAY [1..128] OF WORD;  { Command data buffer }   plc_data_type = PACKED RECORD  plc_id : BYTE; plc_type : BYTE; plc_rate_of_unsols_msec : INTEGER;  plc_unsol_dst : BYTE; plc_timer_count : INTEGER;  plc_start_mem : ^mem; plc_end_of_physical_memory : INTEGER; CASE INTEGER OF ' KX_1771 : ( size_data_buffer : WORD; { WORD 1 }' CASE BOOLEAN OF ( TRUE : ( data_byte : PACKED ARRAY [1..256] OF BYTE); (! FALSE : ( data_word : CMD_BUFFER_TYPE); ! );  ' KA_1775 : ( status_1775 : BYTE; { byte 1 }'' station_interface_1775: BYTE; { byte 2 }'' current_context_1775 : BYTE; { byte 3 }'' thumbwheel_no_1775 : BYTE; { byte 4 }'' mode_control_word_1775: WORD; { bytes 5 and 6 }'' loc_cnt_timers_1775 : WORD; { bytes 7 and 8 }'' series_revision_1775 : BYTE; { byte 9 }'' unused_1775 : BYTE; { byte 10 }'' add_unusd_sys_mem_1775: INTEGER; { bytes 11 to 14 }'' sys_mem_size_1775 : INTEGER; ); { bytes 15 to 18 }' END; { end }   $ PAGE $   VAR" message : cmd_buffer_type; { Message to send to parent } " plc_data : ARRAY [1..20] OF PLC_DATA_TYPE;" parms : word5; { Run time parameters } " in_name : PATH; class_str : PATH; class_wd : WORD; infile : TEXT; outfile : TEXT; no_of_plcs : INTEGER; u_v : WORD;  global_tns_count : WORD;  $ PAGE $  $FIXED_STRING ON$   PROCEDURE FmpClose  ( VAR dcb : DCB_BUFFER; VAR err : WORD); EXTERNAL;   PROCEDURE FmpError ( err : WORD;  VAR mess: PATH); EXTERNAL;  PROCEDURE FmpOpen  ( VAR dcb : DCB_BUFFER; VAR err : WORD; name : PATH; opts : PATH;  bufs : WORD); EXTERNAL;   $FIXED_STRING OFF$   FUNCTION Pas_Sparameters $ALIAS 'Pas.Sparameters'$  ( position : WORD; VAR parameter : STRING) : WORD; EXTERNAL;  $page$  PROCEDURE wait_exec $ALIAS 'EXEC'$ ( ecode : word; name : word3; units : word; often : word; delay : word);  EXTERNAL;   PROCEDURE Get_Buffer $ALIAS 'EXEC'$ ( ecode : WORD; rcode : WORD; buffer: CHAR20; bufln : WORD);  EXTERNAL;   PROCEDURE class_write_read $ALIAS 'EXEC'$ ( ecode : word; cntwd : word;  buffr : cmd_buffer_type; bufln : word; pram1 : word; pram2 : word; class : word; u_v : word);  EXTERNAL;  $ FUNCTION strdsc ( str : filetype; start, finish : INTEGER ) : INTEGER; $ EXTERNAL;   $ HEAPPARMS ON $  $PAGE$   PROCEDURE send_message;  {-----------------------------------------------------------} { This procedure will send a message to the parent program } {-----------------------------------------------------------}  CONST ICODE = 20; { Class I/O write/read opcode }  VAR index : INTEGER;  temp_buffer : CMD_BUFFER_TYPE; TEMP : WORD;   BEGIN FOR index := 1 TO no_of_plcs DO  WITH plc_data[index] DO BEGIN' plc_timer_count := plc_timer_count + TIMEOUT + 50; { COUNT IN MSEC }'! IF plc_timer_count >= plc_rate_of_unsols_msec THEN BEGIN! global_tns_count := global_tns_count + 1; IF global_tns_count = 0 THEN global_tns_count := 1;  data_word[3] := global_tns_count; plc_timer_count := 0; temp_buffer := data_word; TEMP := SIZE_DATA_BUFFER*2 + 6; class_write_read ( ICODE, 0, temp_buffer, -temp,  0, 0, class_wd, u_v ); END; { end if }  END; { end with }  END;   $ PAGE $   PROCEDURE init_unsol_info;  {-----------------------------------------------------------} { This procedure will read in unsolicited data information. } {-----------------------------------------------------------}  VAR value : INTEGER; in_len : WORD; cl_len : WORD; i, j, k : INTEGER; temp : BYTE;   BEGIN ' u_v := 22; { user defined tag in class_write_read requests: 22 = unsol }' in_len := Pas_Sparameters ( 1, in_name );  cl_len := Pas_Sparameters ( 2, class_str );  rewrite ( outfile, '1' );  IF cl_len > 0 THEN  strread ( class_str, 1, cl_len, class_wd )  ELSE BEGIN' writeln ( outfile, ' Unable to get class number in timer program ');' writeln ( outfile, ' Halting timer program ' );  halt (1);  END;  IF in_len > 0 THEN  reset ( infile, in_name ) ELSE BEGIN' writeln (outfile,' Unable to get input file name - aborting timer');' halt (1);  END;  i := 0;  WHILE NOT eof ( infile ) DO BEGIN  i := i + 1;  WITH plc_data[i] DO BEGIN readln ( infile, plc_type ); readln ( infile, plc_id ); readln ( infile, plc_rate_of_unsols_msec );  readln ( infile, plc_unsol_dst );  plc_timer_count := 0;  CASE plc_type OF PLC_2: BEGIN  readln ( infile, size_data_buffer );& data_byte[1] := plc_id; { dst }&& data_byte[2] := pcif_computer_id; { src }&& data_byte[3] := gen_unsolicited_message_cmd; { cmd }&& data_byte[4] := 0; { sts }&& data_word[3] := 0; { tns }& k := 7; $ FOR j := 4 TO ( size_data_buffer + 3 ) DO BEGIN $ read ( infile, data_word[j] );  temp := data_byte[k]; data_byte[k] := data_byte[k+1]; data_byte[k+1] := temp; k := k + 2; END; { end for loop } readln ( infile ); END; PLC_3: BEGIN END; OTHERWISE  END; { end case } END; { end with } END; { end while } no_of_plcs := i; close ( infile );  END;   $PAGE$   PROCEDURE wait(delay : word);! {--------------------------------------------------------------} !! { This procedure will suspend the program for 'delay' seconds } !! {--------------------------------------------------------------} !  CONST ICODE = 12; { Program schedule EXEC call }  OFTEN = 0; { Dummy parameter }  UNITS = 1; { Units = 'milliseconds' }   VAR name : word3;    BEGIN name[1] := 0; { Set program 'name' = 0 }  name[2] := 0; name[3] := 0;   IF delay > 0 THEN  wait_exec(ICODE,name,UNITS,OFTEN,-delay); END;   $PAGE$   { Main Program }   BEGIN wait ( 4000 ); init_unsol_info;  writeln ( outfile, ' class number = ', class_wd );% { Do forever loop -- run until program is stopped by parent program } %  REPEAT  { Delay for the timeout value }  wait(timeout);  # { Send a timeout message to the parent program and terminate } #  send_message;    UNTIL FALSE   END. .copy off .page 0  .subsection ABTIM.LOD .copy on li,pascal.lib::libraries  re,abtim.rel  en .copy off  .number off;number on;number on 0 /PCIF/GSWPCIF/GESODA.FTN:::4:48:36 644 0 0 30000 5303667224 35333 /PCIF_GS/GSWPCIF/GESODA.FTN:::4:48:36 "%$0 0$GESODA FTN +n+n+n0CVFST ((ftn7x,l $files 3,3 program gesoda( 3, 99 ), 94200-16535 REV.2618  C ********************************************************* !C This is an example program which uses PCIF/1000 to communicate!C with General Electric Programmable Controllers. C  C Programmer : D.D. C  C SOURCE : 94200-18535 C No relocatable or command file. C C *********************************************************    C Variable Declarations  $ integer*4 write_addr ! word addr in PC memory for PC_WRITED$$ integer*4 read_addr ! word addr in PC memory for PC_READD $! integer bottles ! decimal value of total_bottles!" integer buffr ! contains data retrieved from PC "" integer c_bottles ! decimal value of current_bottles"# integer c_defective ! decimal value of current_defective#$ integer contkey ! wait bit + access key ( PC_ENQUIRY )$# integer current_bottles ! total number from most recent min.## integer current_defective ! total number from most recent min.#" integer data(8) ! contains diagnostic status info."! integer data_buffer(128) ! data retrieved from PC_ENQUIRY!" integer defective ! decimal value of total_defective" integer good ! decimal value of total_good $ integer interval ! # of minutes between writes to file $ integer ios ! FORTRAN I/O status integer lengr ! length and type of buffr integer loglu ! terminal to log messages to # integer logr ! returned message data length-bytes# integer minutes ! number of minutes elapsed ! integer no_key ! contains 0 for PCARs with wait!! integer no_tag ! contains 0 for PCARs with wait! integer oldstat ! status of retrieved request $ integer oldtag ! user's identifier for request rec'd $$ integer pc1 ! bottling line PC logical identifier $" integer previous_bottles ! total number from previous min. "" integer previous_defective ! total number from previous min. "# integer read_buffer(128) ! contains message received from PC ## integer read_length ! length of message received from PC# integer stat ! PCIF access routine status integer subfunction ! CMD byte for A-B PCs integer tag ! user-defined tag variable ! integer total_bottles ! number bottles in last minute !# integer total_defective ! number of defective in last minute#$ integer total_good ! number of good bottles in last min. $ integer typer ! type of message retrieved # integer uskey ! access key for unsolicited request#! integer wdkey ! access key for no-wait request!" integer write_buffer(128) ! contains message to write to PC "$ integer write_length ! length of message to transmit to PC $ C Variable Initialization   data no_key/0/, no_tag/0/ data pc1/1/, tag/32765/, lengr/128/! data minutes/0/, current_bottles/0/, current_defective/0/! data read_addr/44/, loglu/1/, interval/2/ C Establish communications with the PCIF monitor  call PCIF_OPEN ( stat )  if ( stat .GT. 0 ) call error ( stat ) write ( loglu, * ) 'Opened communication with PCIF.' C Establish communications with the PC on line #1   call PC_CONNECT ( stat, no_tag, no_key, pc1 )  if ( stat .GT. 0 ) call error ( stat ) write ( 1, * ) 'Established communication with PC.'  C Get two access keys for unsolicited requests andC write data without wait   call PC_GETKEY ( stat, uskey ) if ( stat .GT. 0 ) call error ( stat ) call PC_GETKEY ( stat, wdkey ) if ( stat .GT. 0) call error ( stat )  write ( loglu, * ) 'Got the necessary access keys.'  !C Enable unsolicited requests from the programmable controller!  call PC_ENUNSOL ( stat, pc1, uskey ) if ( stat .GT. 0 ) call error ( stat ) write ( loglu, * ) 'Enabled unsolicited requests.' C Lock the PC from access by other application programs   call PC_LOCK ( stat, pc1 ) if ( stat .GT. 0 ) call error ( stat ) write ( loglu, * ) 'Locked the PC.'     !C Reset the counters and timers in the programmable controller!  do i = 1,7 write_buffer(i) = 0 end do  write_length = 7 ! write 15 words of data" write_addr = 100001 ! starting word address to write data "  call PC_WRITED ( stat, no_tag, no_key, pc1, write_buffer,  + write_length, write_addr )   if ( stat .GT. 0 ) call error ( stat ) ! write ( loglu, * ) 'Initialized counters and timers in PC.' !  C Start timers by setting contact one in output register  write_addr = 300001 write_buffer = 1 write_length = 2   call PC_WRITED ( stat, no_tag, no_key, pc1, write_buffer,  + write_length, write_addr )  if ( stat .GT. 0 ) call error (stat) write ( loglu, * ) 'executed bit write to start timers'  C Unlock the PC from this application program   call PC_UNLOCK ( stat, pc1 ) if ( stat .GT. 0 ) call error ( stat ) write ( loglu, * ) 'Unlocked the PC.'  C Open file to write productions stats on bottling line #1 " OPEN ( 50, FILE='PROD_STAT_1',IOSTAT=IOS,ERR=98,STATUS='OLD' )"   $C********************************************************************** $ C Start continuous monitoring of the bottling line. !C Check the break bit for operator intervention and terminate !C the program gracefully.  2000 if ( IFBRK() .LT. 0 ) then C Reset the start bit at 300001 adress   write_addr = 300001  write_buffer = 0 write length = 1 call PC_WRITED ( stat,no_tag, no_key, pc1, write_buffer,  + write_length, write_addr ) C Close file PROD_STATS_1  close (50)  C Disable unsolicited requests from the PC  call PC_DIUNSOL ( stat, pc1 )  if ( stat .GT. 0 ) call error ( stat ) write ( loglu, * ) 'Disabled unsolicited requests.'  C Release Resources (keys)  call PC_RELKEY ( stat, uskey ) if ( stat .GT. 0 ) call error ( stat ) call PC_RELKEY ( stat, wdkey ) if ( stat .GT. 0 ) call error ( stat ) write ( loglu, * ) 'Released access keys.' C Cancel all requests from the PC   call PC_CANCEL ( stat, pc1, no_tag, 0 )  if ( stat .GT. 0 ) call error ( stat ) write ( loglu, * ) 'Cancelled all requests.' C Close program to PCIF   call PCIF_CLOSE ( stat ) if ( stat .GT. 0 ) call error ( stat )! write ( loglu, * ) 'Closed PCIF. Terminated program.' ! stop  end if C Get current status of PC ... Is it up and running ?   call PC_PCSTAT ( stat, no_tag, no_key, pc1, buffr )  if ( stat .GT. 0 ) call error ( stat )  if ( buffr .EQ. 1 .OR. buffr .EQ. 3 ) then write ( 1,1005 )  write ( 50, 1005, IOSTAT=ios, ERR=99 ) 1005 format ("PC on bottling line 1 down for 5 seconds !")  end if C Check if data for the last minute is ready yet read_buffer( 1 ) = 1  read_length = 2 read_add = 100001   call PC_READD ( stat, no_tag, no_key, pc1, read_buffer, + read_length, read_addr ) if (stat .GT. 0 ) call error ( stat )   if ( read_buffer (1) .ne. 60 ) go to 1500  C Get current total number of defective bottles      C Compute production figures for the last minute # minutes = minutes +1 ! Another minute has elapsed # previous_bottles = current_bottles current_bottles = read_buffer(1) if ( read_buffer(2) .GT. 0 ) then $ current_bottles = current_bottles + (1000 * read_buffer(2))$ end if previous_defective = current_defective current_defective = read_buffer(3) if ( read_buffer(4) .GT. 0 ) then $ current_defective = current_defective+(1000*read_buffer(4))$ end if bottles = current_bottles - previous_bottles defective = current_defective - previous_defective good = bottles - defective  write ( loglu, 1010 ) bottles, defective, good!1010 format (/"Total Bottles:", i6, 2x, "Defective:", i6, 2x,! + "Good:", i6) C check if specified interval has elapsed yet ...   if ( minutes .EQ. interval ) then  C Reset bottle counters in the PC on the bottling line  do i = 1,7 ! re-initialize the buffer write_buffer (i) = 0  end do  write_length = 2 ! write two words of data # write_addr = 30001 ! starting word address to write data #  call PC_WRITED ( stat, tag, wdkey, pc1, write_buffer,  + write_length, write_addr )   if ( stat .GT. 0 ) call error ( stat )  minu((tes = 0 ! reset minute counter C Write production totals to PROD_STATS file ! write ( 50, 1020, IOSTAT=ios, ERR=99 ) current_bottles, ! + current_defective  1020 format ( 2i5 )  C Check to see if WRITED executed properly  contkey = wdkey ! Do call with wait  call PC_ENQUIRY ( stat, oldstat, oldtag, contkey, pc1,  + data_buffer, lengr, typer, logr )   if ( stat .GT. 0 ) call error ( stat )  if ( oldtag. EQ. tag ) then  if ( oldstat .GT. 0 ) call error ( oldstat ) end if  current_bottles = 0 ! Re-initialize variables  current_defective = 0   end if C Take a half second break to free up computerC Return to beginning of the loop  1500 call exec ( 12, 0, 1, 0, 50 )   go to 2000  C Error Messages  98 continue write ( loglu, 1098 ) ios 1098 format ("Open Error ",i3," on file PROD_STATS_1")  stop 99 continue write ( loglu, 1099 ) ios 1099 format ("Write Error ",i3," in file PROD_STATS_1")  end   subroutine error ( istat ) C Print out error message to log terminal C Close PCIF and terminate application program  integer err_mess(40) integer err_len   data loglu/1/   call PCIF_ERROR ( istat, err_mess, err_len ) " write ( loglu, 10 ) istat, ( err_mess(k),k=1,(err_len + 1)/2 )"10 format (/,i5,2x,"",40A2, 2/ )   call PCIF_CLOSE ( istat )  stop  end   HOUT{ THE PRIOR WRITTEN CONSENT OF THE HEWLETT PACKARD COMPANY. { {-------------------------------------------------------------{} {} { NAME: IPPATH { SOURCE: 91790-18103 { RELOC:HPHPHP::FORMS:4:16:34 644 0 0 10400 5303657170 31501 HPHPHP::FORMS:4:16:34 $ th".HPHPHP +I?+$sr+^x RFST * "* MATERIAL LIST: 94250-13301 REV: 6000 CT-94250A 2204"* * (SAME AS MATERIAL LIST: 94250-13502 REV:6000 )* * Directory: /FORMS/ * 94250-12001 5000 01 01 5 /FORMS/%FBILD:::5:30194250-12002 2340 01 01 5 /FORMS/$FBUTI:::5:50 94250-12003 2505 01 01 5 /FORMS/$FOFLL:::5:68 94250-12004 6000 01 01 5 /FORMS/$FLULB:::5:25494250-12005 2505 01 01 5 /FORMS/$FOPLL:::5:97 94250-12006 2340 01 01 5 /FORMS/$FOFRL:::5:49 94250-12007 2340 01 01 5 /FORMS/$FRULB:::5:24 94250-12008 2340 01 01 5 /FORMS/$FOPRL:::5:77 94250-16171 2340 01 01 5 /FORMS/%FOBLK:::5:594250-16172 2340 01 01 5 /FORMS/%FUSE1:::5:294250-16173 2340 01 01 5 /FORMS/%FUSE2:::5:294250-16174 2340 01 01 5 /FORMS/%FUSE3:::5:294250-16175 2340 01 01 5 /FORMS/%FUSE4:::5:294250-16176 2340 01 01 5 /FORMS/%FUSE5:::5:294250-16177 2340 01 01 5 /FORMS/%FUSE6:::5:294250-16178 2505 01 01 5 /FORMS/%FUSE7:::5:294250-16179 2505 01 01 5 /FORMS/%FUSE8:::5:294250-16180 2340 01 01 5 /FORMS/%FUSE9:::5:294250-16391 2340 01 01 5 /FORMS/%FOCLO:::5:40 94250-16393 5000 01 01 5 /FORMS/%FCOMM:::5:194250-17001 2340 01 01 4 /FORMS/*LFBEF:::4:294250-17002 2340 01 01 4 /FORMS/#LFBEF:::4:294250-17003 2340 01 01 4 /FORMS/*LFBAS:::4:294250-17004 6000 01 01 4 /FORMS/#LFBAS:::4:294250-17011 2340 01 01 4 /FORMS/*LFOEF:::4:294250-17012 2340 01 01 4 /FORMS/#LFOEF:::4:294250-17013 2340 01 01 4 /FORMS/*LFOAS:::4:294250-17014 2340 01 01 4 /FORMS/#LFOAS:::4:294250-17021 2340 01 01 4 /FORMS/*LFIEF:::4:294250-17022 2340 01 01 4 /FORMS/#LFIEF:::4:294250-17023 2340 01 01 4 /FORMS/*LFIAS:::4:394250-17024 2340 01 01 4 /FORMS/#LFIAS:::4:294250-17031 2340 01 01 4 /FORMS/*LFNEF:::4:294250-17032 2340 01 01 4 /FORMS/#LFNEF:::4:294250-17033 2340 01 01 4 /FORMS/*LFNAS:::4:394250-17034 2340 01 01 4 /FORMS/#LFNAS:::4:294250-17041 2340 01 01 4 /FORMS/*LPIEF:::4:294250-17042 2340 01 01 4 /FORMS/#LPIEF:::4:294250-17043 2340 01 01 4 /FORMS/*LPIAS:::4:394250-17044 2340 01 01 4 /FORMS/#LPIAS:::4:294250-17051 2340 01 01 4 /FORMS/*LPNEF:::4:294250-17052 2340 01 01 4 /FORMS/#LPNEF:::4:294250-17053 2340 01 01 4 /FORMS/*LPNAS:::4:394250-17054 2340 01 01 4 /FORMS/#LPNAS:::4:294250-17061 2340 01 01 4 /FORMS/*LFDEF:::4:294250-17062 2340 01 01 4 /FORMS/#LFDEF:::4:294250-17063 2340 01 01 4 /FORMS/*LFDAS:::4:294250-17064 2340 01 01 4 /FORMS/#LFDAS:::4:294250-17071 2340 01 01 4 /FORMS/"FBD01:::4:694250-17072 2340 01 01 4 /FORMS/"FBD02:::4:694250-17073 2340 01 01 4 /FORMS/"FBD03:::4:794250-17074 2340 01 01 4 /FORMS/"FBD04:::4:694250-17075 2340 01 01 4 /FORMS/"FBD05:::4:694250-17076 2340 01 01 4 /FORMS/"FBD06:::4:694250-17077 2340 01 01 4 /FORMS/"FBD07:::4:794250-17078 2340 01 01 4 /FORMS/"FBD08:::4:794250-17081 2340 01 01 4 /FORMS/"FDEM1:::4:594250-17091 2340 01 01 3 /FORMS/!FBD01:::3:594250-17092 2340 01 01 3 /FORMS/!FBD02:::3:694250-17093 2340 01 01 3 /FORMS/!FBD03:::3:14 94250-17094 2340 01 01 3 /FORMS/!FBD04:::3:994250-17096 2340 01 01 3 /FORMS/!FBD06:::3:13 94250-17097 2340 01 01 3 /FORMS/!FBD07:::3:11 94250-17098 2340 01 01 3 /FORMS/!FBD08:::3:794250-17101 2340 01 01 3 /FORMS/!FDEM1:::3:10 94250-17102 2340 01 01 3 /FORMS/!FDEM2:::3:10 94250-17103 2340 01 01 3 /FORMS/!FDEM3:::3:15 94250-17104 2340 01 01 3 /FORMS/!FDEM4:::3:15 94250-17899 5000 01 01 4 /FORMS/"FOLCL:::4:28 94250-17999 6000 01 01 4 /FORMS/A94250.SNF:::4:25 94250-18195 2505 01 01 4 /FORMS/&FUSEX:::4:12 94250-18500 2340 01 01 4 /FORMS/&FDEMO:::4:121* * END MATERIAL LIST * T-94250A 2204"* * (SAME AS MATERIAL LIST: 94250-13502 REV:6000 )* * Directory: /FORMS/ * 94250-12001 5000 01 01 5 /FORMS/%FBILD:::5:30194250-12002 2340 01 0%FBILD::FORMS:5:301:128 644 0 0 226400 5303444502 33275 %FBILD::FORMS:5:301:128 $- tx-%FBILD +IA+IB+IB-bFST 77XrFBNUM 94250-12001 REV.5000 <870420.1103>&FBNUM::SRC_94250A7 ?FBNUM  kIp@:::X-u/FB_GLOBAL/ 94250-1X002 REV.5000 <870420.1100>&FBINI::SRC_94250A: Ac2FB_GLOBAL ))RFMAIN FSELC FSOFK FPARM FDESN FFELD FSPEC FCREA FDISP ) !*  h 0 =FO  FO--MSG--FB--MSG--FL--MSG- )FR %"FOLCL D``!FBD01 !FBD02 !FBD03 !FBD04 !FBD06 !FBD07 !FBD08 "FBD01 "FBD02 WWc@@ "FBD03 "FBD04 "FBD05 "FBD06 "FBD07 "FBD08 W|l3 ]CEDVN1YNBUIHVNORDCIRRC  ^2 [ - @699X /FB_NAME/ 94250-1X002 REV.5000 <870420.1100>&FBINI::SRC_94250A9 Ai%FB_NAME H FB1_NAMEFB1_FUNC  FB2_DATE 4 FB2_COMT  FB2_NAME , 4FB3_LB11 M TFB3_LB12 0 8FB3_LB21 Q XFB3_LB22 4 <FB3_LB31 U \FB3_LB32 8 @FB3_LB41 Y `FB3_LB42 < DFB3_LB51 ] dFB3_LB52 @ HFB3_LB61 a hFB3_LB62 D LFB3_LB71 e lFB3_LB72 H PFB3_LB81 i pFB3_LB82 //  FB3_TAB1FB3_TAB2FB3_TAB3FB3_TAB4FB3_TAB5FB3_TAB6FB3_TAB7FB3_TAB8/; t``FB4_COLRFB4_WLINFB4_WENHFB4_WCLRFB4_WDEFFB4_SLOCFB4_TXCLFB4_DEFDFB4_DEFLFB6_FL01FB6_FL02FB6_FL03FB6_FL04FB6_FL05FB6_FL06FB6_FL07FB6_FL08FB6_FL09FB6_FL10FB6_FL11FB6_FL12FB6_FL13FB6_FL14FB6_FL15\\PY DDFB7_BREFFB7_LENGFB7_ROW FB7_COLNFB7_NAMEFB7_IVALFB7_ULINFB7_ENH FB7_COLRFB7_ERENFB7_ERCLFB7_DEFDFB7_DEFLFB8_FLNBFB8_FLSZFB8_NAMEFB8_LIST\ 9 FB8_FUNC + FB8_VERI @ 77Xc((FBULD 94250-1X003 REV.2505 <850103.1627>&FBULD::SRC_94250A7RRJ&HFB_SOFK \FB_PARM  FB_INFO FB_FIELDS %FB_NAME FB_LINE IFB_DCBFB_LAB FB_MSG2FB_GLOBAL Rss|IFBULD .NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN sIIEXEC.FION .IMAP .SBST .SST .LBT .SBT.NFEX .MBT.CBTWRITE_TERMSEGLD CLOSE READF OPENI~~OgI;;pp-V%`(_`hA(g h 0(`h({`((npC`p~ќ<<`(pA`pA`(`A@@C$@ph` 8A8(8C8(`(pBpA`p`BBA@p`@Bp BDH`@BpB8A8(`H(h hHH h hH h` h h h h h h pA`*(#p~~g==J `(p?`p`?@p ?A8?8(8A8(pA`+(LpA4`(p?`Έp`?@p@ ~~~S?>>?A8?8(;8A8(*O p`(j@pA`A@pa@`@(m`(i p(Qmp?`p`?@ʄp ?8?8~ 6}(q( I-FBD000. CANNOT ACCESS MESSAGE FILE G A   Xcc77   %    Z X S R M Q P  #Z:-c@I77X cFMAIN 94250-1X004 REV.2505 <850103.1628>&FMAIN::SRC_94250A7**EK,FB_LINE %FB_NAME IFB_DCB+ FB_MSG2FB_GLOBAL * \FMAIN ||.CPM.ARTN .EXIT %.IMAP .SBST .SCO.SST.SSTC .INDX .LBT.SBT.MBT*SEGRT )WRITE_TERM(PURGE 'F_DEACTIVATERM&F_DEACTIVATEFORM CONV_CHAR $F_SHOWFIELDS#F_INITFIELDS F_PUTSTRING |. KW_OUTPUT MSG_DISPLAY "F_SHOWHELP CLOSE !FF_WORK ERROR_FMP OPENNAMRF_SHOWALTERNATE F_SETCURSOR KW_INPUTF_GETSTRING F_WAITEVENT F_SHOWFORM F_ACTIVATEFORMTERM_IDENTF_ACTIVATERMCRETS   = }} \88p.p/p0pOp P-(k(H`׈pW`pY`p[~@XW`(` pN(t CXW`(` pN(t`}~~-==pY`p[0ߡFXW`(` pN(t=>N`N(t N`N (tP-( N`N(t  ~]??N`N(t N`N(t`(P(∀(` pPpV(` Ph X 0(`pPpV(pP `pV`߈pTh`PVTN`NQDD(tppRPR(sUN`N(tPU(n`U(1`U1rrrr,rBnp p!= TN`N(tH١ TN`N(tQS`S(f~~PTFFA(ZpՄhP (f`pS`S(mN`N(tuN`N(tSN`N(t(rN`N(tpQ`Q(A(~GHHQ((AQA(h`h`A(phHP 0(h`pQ2Q267HhP ((`~~88((`pN`N(t(r(`P(N`N(t(rh`AhH@hHp-hP((  `ppR()!S `S(%~QBB!N`N(t()`נppRp-(r"1N`N(APN(8(@?N(A(t(r P-(^ KN`N(t T ZN`N\@@(t(f#cN`N(t$jN`N(t(rpR p((`Nh XN 0h XN 0(` pP(` PN((`pP(pPpQ`p`Q@pA%QP8Q||998(PP(( Nh` ppO&N` (p'N(N@( NC(0NF`O() *N@| < SeeW<< : 1 ~   L   (  x }  DCe   )Z2e@$mB\99X@/F_FIELDS/94250-16172 REV.2340 <830913.1447>&FUSE1::SRC_94250A9 A'F_FIELDS @b:"::XO/F_USERBUFF/94250-16172 REV.2340 <830913.1447>&FUSE1::SRC_94250A: ALLeF_USERBUFF  @dž::X[/F_TERMBUFF/94250-16172 REV.2340 <830913.1447>&FUSE1::SRC_94250A: AY(F_TERMBUFF 0L @^88X E`FF_WORK 94250-1X024 REV.2505 <850103.1634>&FUTI3::SRC_94250A855FZFB_LINE  FB_INFO FB_FIELDS HFB_SOFK \FB_PARM 2FB_GLOBAL 5 "9FF_WORK  NN.ENTR .CPM.EXIT .IMAP .SBST .SCO.SST.LBT .SBT.IDLP .LBPR .MBT MSG_DISPLAY READ_FMPWRITE_FMP NW8EEA88hAPS(C(p1&B@p0`OpTX808(808(Mp p0`(~p`0@p`Ph 808}?? (t(p1p2 ڀ8328(Ҫ`P( WJ(J88(`V8(҈Ah?`% $p0`Rp`0@Ih_H0HF808(h#h= h!h; @h9` WBBhh7 h5`A hHHh3 hHJh1 `pU`2pV`8`9`:`;p pp4`(p`2p2 8328~~??(W4`4`4@p`QhH `4#@ph` `4@HphhH `4@ph h `4@ ph HHh `4@@ph` `4@phHHh `4@@p~}}=HHAh` p6`Mp`6@Fp64868(F` p74`74` X4` U4`[4`3^((A.BA.7`\@7}~~WHBBp&D]JW8$48(`4@pH`Qh (`4@p`Ph 84A8(p`ԊAp4hڈ(p`4@p`Ph 848(A(`Y~AAp5(p4A4p5p0`Op`2p2 828(`0P5((]U4p1&D11D(((`@1p1(`1p1`4@phHPN((@~~JJ&11DDH`1p1p6`Mp숄`6@Hp64868(4@Lp6A6Z(3(3`Zp6`1A@6p&1`6p,DH`4p4AA4(V~~~R@@(V`Yp5(\A4p5(dX808(808퀨(PU(o(`2p2 yڀ8328(h+`'A $(A*B`2p2 ڀ8328~??(`P( WJ(J88(`V8(`Up1p0`Kp`0$@p`TA@1p&1A`@1p1808(p0`Kp`0@GhSH0HF808( ?!9( ""ɜ @`@ff@@@@"EE [  P  p$ p# p p p p ppo pnpl pkph pgpc Ppp ^PZ P XW UTEE 59''RQPP0L?VD01C  <=>,E@ ::XnMSG_DISPLAY 94250-1X028 REV.2505 <850103.1635>&FUTI7::SRC_94250A: A FB_MSG n.MSG_DISPLAY ##jh.ENTR .EXIT .IMAP .SBST .SSTF_SHOWIN((DOW #^^_)66A)+gp(`mpf`(@kp_a()_8(8f(9*(W*,@lp_A_i*A__g]lii-.^ap_g P@Ӵt77X cFSELC 94250-1X005 REV.2505 <850103.1629>&FSELC::SRC_94250A7 Ac2FB_GLOBAL IFSELC [[ .ARTN .EXIT SEGRT F_DEACTIVATEFORMMSG_DISPLAY F_SHOWFIELDSSET_SELCVAL PROCESS_SELC F_SHOWHELPF_WAITEVENT F_SHOWFORMF_ACTIVATEFORM[  ikAA  `(`(`(ppP(' `(P(`(;`A;FQk>`(`pp(F==I`(`pp(P1(U(`\`((jc`(` pp(P1(o(zv`((}`(`p ?? p(P1((`((`(` pp( `(P((( ((P1((`??((`(`pp(`( `((P((pp(`(p(`p  @  < * /@::X_SET_SELCVAL 94250-1X005 REV.2505 <850103.1629>&FSELC::SRC_94250A:CT%FB_NAME \FB_PARM 2FB_GLOBAL 'SET_SELCVAL &&K.ENTR .SCO.LBTF_PUTSTRING SET_DATEF_INITFIELDS&qq) ??A RR X\($!ZXX  (JhSHP^ X. 0(J6VTT  (JhSP^(>(JANGPNN  (Jq&&Z\M  `LP`E&@W::XPROCESS_SELC94250-1X005 REV.2505 <850103.1629>&FSELC::SRC_94250A:CH%FB_NAME \FB_PARM 2FB_GLOBAL ]PROCESS_SELCv.ENTR F_GETSTRING 77RA p p!  p.p PP  7@v6699X@/F_FIELDS/94250-16172 REV.2340 <830913.1447>&FUSE1::SRC_94250A9 A'F_FIELDS @b:"::XO/F_USERBUFF/94250-16172 REV.2340 <830913.1447>&FUSE1::SRC_94250A: ALLeF_USERBUFF  @dž::X[/F_TERMBUFF/94250-16172 REV.2340 <830913.1447>&FUSE1::SRC_94250A: AY(F_TERMBUFF 0L @^::XnMSG_DISPLAY 94250-1X028 REV.2505 <850103.1635>&FUTI7::SRC_94250A: A FB_MSG n.MSG_DISPLAY ##jh.ENTR .EXIT .IMAP .SBST .SSTF_SHOWINDOW #^^_)66A)+gp(`mpf`(@kp_a()_8(8f(9*(W*,@lp_A_i*A__g]lii-.^ap_g P@Ӵt77X55cFSOFK 94250-1X006 REV.2505 <850103.1630>&FSOFK::SRC_94250A7 Ac2FB_GLOBAL DFSOFK oo.ARTN .EXIT .LBTSEGRT F_DEACTIVATEFORM MSG_DISPLAY F_SHOWFIELDS F_INITFIELDSSET_SOFKVAL PROCESS_SOFK F_SHOWHELPF_SHOWINDOW F_WAITEVENT F_SHOWFORMF_ACTIVATEFORMo  ~~^AA  %`(h*P+ X/ 0("`(%`(ppP(44`(P(Ph1X (PK~)dGCC,'3`(p`(^`^^m b`(`(l`2p p(P1(q(| x/,',`(( `(`(`/pp==(P1(( /,',`(( `(`(`1pp( #`(P(( 0,',`(((( P1((Ѡ FBB/,',`(( `(`(ߊ`.ppH(h*P+  X/ 0(`(( ,)`( )`((P(( p77c p( -,',`(p(,`p @7"" #  P  LEP."@P::XSSET_SOFKVAL 94250-1X006 REV.2505 <850103.1630>&FSOFK::SRC_94250A:BO%FB_NAME HFB_SOFK -SET_SOFKVAL C.ENTR F_PUTINTEGERF_PUTSTRING ~~-@@Ap`RpF`#@PpH`$@NpK`KpMGLG(C`#@OpM`$@NpK`K@GpH-LGG(C`#@IpH`@QpE<GE(C8~zbA8F( G @  P@@`?@::XPROCESS_SOFK94250-1X006 REV.2505 <850103.1630>&FSOFK::SRC_94250A:C: HFB_SOFK %FB_NAME 2FB_GLOBAL |PROCESS_SOFK66.ENTR .CPMF_GETSTRING MSG_DISPLAY F_SHOWALTERNATE F_SETCURSOR F_GETINTEGER6~~ CC  p p`p`#@p`@p%  (@`@hHp0(X (L`#@pG  (` `#@~jO@@pU  (88( (jf   ((p p!p`p`@hH`#@p`$@p`p   (`#>>Q@p`$@p`@p   (88(r p />%%p p`p  ?%@jO99XC/F_FIELDS/94250-16174 REV.2340 <830913.1448>&FUSE3::SRC_94250A9 A{F_FIELDS @E>::XQ/F_USERBUFF/94250-16174 REV.2340 <830913.1448>&FUSE3::SRC_94250A: ALF_USERBUFF  @m-::X]/F_TERMBUFF/94250-16174 REV.2340 <830913.1448>&FUSE3::SRC_94250A: AY(F_TERMBUFF 20L @̌::XnMSG_DISPLAY 94250-1X028 REV.2505 <850103.1635>&FUTI7::SRC_94250A: A FB_MSG n.MSG_DISPLAY ##jh.ENTR .EXIT .IMAP .SBST .SSTF_SHOWINDOW #^^_)66A)+gp(`mpf`(@kp_a()_8(8f(9*(W*,@lp_A_i*A__g]lii-.^ap_g P@Ӵt77XcFPARM 94250-1X007 REV.2505 <850103.1630>&FPARM::SRC_94250A7 Ac2FB_GLOBAL MFPARM oo.ARTN .EXIT .LBTSEGRT F_DEACTIVATEFORM MSG_DISPLAY F_SHOWFIELDS F_INITFIELDSSET_PARMVAL F_SHOWHELP PROCESS_PARMF_SHOWINDOW F_WAITEVENT F_SHOWFORMF_ACTIVATEFORMo  ~~ZAA  ̪`(hP X0 0("`(%`(ppP(4`(P(PhX (PK~QGDD`(p`(^`^m b`(`(l`pp( r`(P(y( `((((hHPzzp>> X0 0(`(( `( `((P((p p(p `((,`pza  d  LEP@t,::XSET_PARMVAL 94250-1X007 REV.2505 <850103.1630>&FPARM::SRC_94250A:BC\FB_PARM %FB_NAME $SET_PARMVAL 00.ENTR F_PUTINTEGERF_PUTSTRING KW_OUTPUT CONV_INTG CONV_ENH_STRING 0~~1GGA(~!(~(-(~6<(~CH(~~~~KDDQW(~`f (~PU(m(vs(~{V(~((PpZ(pW ~::ppXpUpTpRpQpP :@⡢::X0PROCESS_PARM94250-1X007 REV.2505 <850103.1630>&FPARM::SRC_94250A:C]\FB_PARM %FB_NAME 2FB_GLOBAL sPROCESS_PARM]].ENTR .CPM.SCO .LBT.SBT .MBTF_GETSTRING MSG_DISPLAY F_SHOWALTERNATE F_SETCURSOR KW_INPUT CONV_CHAR F_GETINTEGER CONV_STRING_ENH ]0EEp p!"  (+/$ ` (B3((B=(` G(`p-0}}MTDD(j(a\(`,f((t o+h` y (A p .0(((`,}DD(  (  ` (((` ( (` p -0(~~.BB((䈡`,((  +Ah`     ( *) ` (!( (`  ~~~ BB()  (2(' ` (I(A<(` F(Q  (Z&% ` (q(i~~~`CCd(` n((h P#Ap %(`$(( (( " ~!BB" ((p0 p p!  ( ( pU(HpUh hH` pVhHH hh` h hAh` Hh hHHh h@  OgII  WXUTRQPPZ       (     V  @o/99X@/F_FIELDS/94250-16172 REV.2340 <830913.1447>&FUSE1::SRC_94250A9 A'F_FIELDS @b:"::XO/F_USERBUFF/94250-16172 REV.2340 <830913.1447>&FUSE1::SRC_94250A: ALLeF_USERBUFF  @dž::X[/F_TERMBUFF/94250-16172 REV.2340 <830913.1447>&FUSE1::SRC_94250A: AY(F_TERMBUFF 0L @^::XnMSG_DISPLAY 94250-1X028 REV.2505 <850103.1635>&FUTI7::SRC_94250A: A FB_MSG n.MSG_DISPLAY ##jh.ENTR .EXIT .IMAP .SBST .SSTF_SHOWINDOW #^^_)66A)+gp(`mpf`(@kp_a()_8(8f(9*(W*,@lp_A_i*A__g]lii-.^ap_g P@Ӵt77XcFDESN 94250-1X008 REV.2505 <841226.1132>&FDESN::SRC_94250A733FXFB_LABFB_LINE IFB_DCBFB_FIELDS \FB_PARM 2FB_GLOBAL 3 WFDESN  .CPM .ARTN .EXIT .SST.LBT .LBPR .MBT.CBTSEGRT UTL_WRITE UTL_PACKUTL_INIT_BUFSOFK_DISPLAY WINDOW_DISPLAYSCREEN_DISPLAYHELP_DISPLAYCONV_CHAR TEXT_CREATE FIELD_CREATEWRITE_FMP ''SCREEN_PARSEREAD_LINE DVR_INFORM READ_WAIT DVR_STRAPS'  TT+==RlmXZHcb&k1B&k0B&s0D&k1A&k0Akg&a0r00C4BD5TYW@@pp@pBpCpEpFf`pAlApA tA xA{~@`@({hP((`pG(`pGG@`@({pLpDUp==PD({`pAA`pAA$`pAAA)`pAAA@`@({@`@({`pAA`pA`PL(~~lV??A A@`@({ L@`@({`pAAA `pAA$`pAAA) A`pAA-`pA~FFAA`pAA "@`@({(@`@({PChXL (BpC ?@`@({PEhXL (YpE V@`@({-YGG`L(g`LA gzzzz(0 :Wp1A A A A ApK GK((`KAPV(K@`@({ ((`KpJ`pK`pI(KI`I*S<<(`KpJ`pK(@K`@(`@(`pK`@pI(({`KpK({`I(ݡ @`@({̡G@`@(pD`p(P@(({~~[?DD(`I(ሀ(`PIhXI 0(Jh``pH(pH IH@`@({`h( p`h(0('`pA!A~~~- @@+$@`@({(z,F@`@({(z4@`@({`pB(zPE(>(JBG@`@({pFpE(V Q@`@({pE(zPB([(qPC(_(d~]]'`--pDp(p k@`@({pC(zu@`@({pB(`@p`pAA@@@]ff    @@N&& 150A 2620A ~z}| T.4:V<  @@mVW;;XSCREEN_DISPLAY94250-1X008 REV.2505 <841226.1132>&FDESN::SRC_94250A;Cͼ2FB_GLOBAL \FB_PARM FB_LINE  SCREEN_DISPLAYSS մ.ENTR .EXIT .SST .LBT.MBTUTL_WRITE UTL_PACKUTL_INIT_BUFSOFK_DISPLAYWINDOW_DISPLAY WRITE_LINE STRIP_ESC READ_FMPS|HJ&j@~~X == `p   PA( (&`p & )  (P1(`p  (_p` PV([@ɀ   (`Cp~9HAAh P0(T Tȡ X  (8 8(6( PCHph P( H h``pp  (p` PV(   (FF:J""8 8(Ā  ( `p    ( F11e&v00S &v  `U `P \dYN 1@%::X:HELP_DISPLAY94250-1X008 REV.2505 <841226.1132>&FDESN::SRC_94250A: Ac2FB_GLOBAL eHELP_DISPLAY..].ENTR WINDOW_DISPLAYUTL_WRITE UTL_PACKUTL_INIT_BUFTRM_SHOWHELP. 6X gg554`6p(2`(0P(%(-,9868(/`(20xg@ڭ::XSOFK_DISPLAY94250-1X008 REV.2505 <841226.1132>&FDESN::SRC_94250A:##D3FB_LINE FB_LAB\FB_PARM 2FB_GLOBAL #cSOFK_DISPLAYKK .ENTR .EXIT .SBST .SST .SSTC .LBT.SBT.MBTWRITE_LINE UTL_WRITE UTL_MOVETB UTL_INIT_BUFCONV_CHAR K// &f0a0k16d00L &f0a0k00L /."``&dB&d@1111111121212122[ ]&d@ [ ] &d@ t u v <<<** w w ]&v00S&d@<] &v00S&d h&jB 3aDDaD@b`͈HphhH`@phhhh PB(hل`hP((h`h`A`Ɉ@ph`A`Lj@ph`~~m@@A`p`p(A`p`p^p_`p`p`_@a@phhhh`_@a@p``PB(h`A`_@a$@ph`~}}HH`@`p H`_@aA@p `A((`@`p](gAh``@`pA `_@a@p D`H`@`p]hP(,(g`}~~-DDA@^p ^`_@a$@p`pA H`A@^p ^`_@a$@p`@p `@^p^`ֈP_(d(g`@^p^ i n] qb~ggKq44b(8_8(PB( }  bH(hP((`pAbb(Jbb(cg "@  ! 1GG   5 I   v \  l T h* HD , U Z LP *`Q `P TVY  0 @!;;XWINDOW_DISPLAY94250-1X008 REV.2505 <841226.1132>&FDESN::SRC_94250A;##D@ FB_LINE \FB_PARM  FB_MSG2FB_GLOBAL #;WINDOW_DISPLAY33 4#.ENTR .EXIT .IMAP .SBST .SST .SSTC .LBT .SBT.MBT WRITE_LINE3e(&d@&d@&v00S:6HHA68p5`p`5@p56858(F7(d79@pA7A PCphHP0(yh``p4(h`>>~ Ah``p4hHDh 4D H`Š@4p   V:;>L77Mi ae ^ P ^ Q R T PPNO7@X99XB/F_FIELDS/94250-16173 REV.2340 <830913.1448>&FUSE2::SRC_94250A9 A0F_FIELDS @<::XP/F_USERBUFF/94250-16173 REV.2340 <830913.1448>&FUSE2::SRC_94250A: AMF_USERBUFF  @a!::X\/F_TERMBUFF/94250-16173 REV.2340 <830913.1448>&FUSE2::SRC_94250A: AY(F_TERMBUFF &0L @::XESCREEN_PARSE94250-1X022 REV.2505 <850103.1633>&FUTI1::SRC_94250A:%%DFB_LINE FB_FIELDS \FB_PARM 2FB_GLOBAL %SCREEN_PARSETT-.ENTR .CPM .ARTN .EXIT .IMAP .SBST .SCO .SST.LBT.LBPR .MBT .CBT DEL_BUF INS_BUF FIELD_PARSE STRIP_ESC TB$ ``     ei   J[]{ ~u&d@] ~~GGh`Ah`hpppppppppPCpdhPd(J(>(>`pAdA  d `~}}q<<h j(((`hp(#`hA j( H( h@pdh@d(p( `hp`p`pv`@p`hA j(((`p88v((#`p`}~~AAp`pu`@p`hA j(((`p88u(`@@p`@@p` @=@DGJOTWZe)/`p(=p(=p(=`pp(=`~}}P@@pp(=`hp(=`p(=@pd ad`@p(=f (l(o`(^fpdAf`d`p`hhX 0(@p(`@pj}XCC((P((j`p`p`p@pd d`@p~`~@p`~@p(P((j`p`pfpdodO6OOAfpdAohdAf`xdpeod`efpdod`PhX 0( AfpdAod(fpdod Aj(#(#`~~<"FF(^fpdojd`m@pdAm`dA`h j(mpf(m(m`p~A~(O(a`~@pdAh~d(]`p~`~p~(JA(ifp~hAA(l`p(?(^p~`ptAf`~@xdpeh~de8~8t(t(($`pdD d(((`p`phHP((`@p~~[[HH((`dD d(`p($`@((``@p`h@pdAdAd d(`A@pddd Ad( ~EE(`@pdd(!`@hHApdxedde A d `@pdddD d(!!`@ppp(=@p`hp(=`hA j(=bb6.. :@p(`@p~`h@~p~hHP(J(Y`@~p~`h h(Y`@~p~~(^(``(_b [y Zx f `0 f0 0 0bbۣw;;00&v ]  &v00S @U@Pp 5YN  b@l,88XGZDEL_BUF 94250-1X022 REV.2505 <850103.1633>&FUTI1::SRC_94250A8BQ 2FB_GLOBAL FB_LINE  DEL_BUF  ##.ENTR .CPM.EXIT .SBST .SST.SSTC .MBT#}}HH( (pOAOUOASO(B(5(5pOOUYOHpQAQUQASXOQ(BpOAOUYAOSO@@Wp}HAhV`TS<S 00@|<88XWaINS_BUF 94250-1X022 REV.2505 <850103.1633>&FUTI1::SRC_94250A8BK2FB_GLOBAL FB_LINE  INS_BUF  Y.ENTR .CPM.EXIT .SBST .SSTC .MBT~~IIW`pA((` ("("``(Q(&(3S[D_Y^WSH(IpSS[D_SU[DY]SWU`~ueJ ph\`ZAY(0W     @q1::X},FIELD_PARSE 94250-1X022 REV.2505 <850103.1633>&FUTI1::SRC_94250A:CFB_LINE \FB_PARM 2FB_GLOBAL PFIELD_PARSE 55 z.ENTR .CPM .ARTN .EXIT .SBST .SST.LBT .CBT DEL_BUF MIS_UPSHIFT 5WW!@@   W []{ Z/KAAAKOxNpFHKpEpCPC(KAKK((`NLN`@LpJJ((`Jp`JK`PF((Kp@~~BBEDH`L(AKAKhP((`pH(h@((քh@ph@(pH(`pH`pI`p`I@p`h ((~`EE(`IpH8I8((߈`pHhP((`pH`F#@H@pG`F#@H@ApF`G 47KX`pLLNN DKKH(LLN~~|LLN DKKDN('(3AEAK`pF(KpD(LLNNKpDEH(KpEDJ \KKKK~UU=_//(KpAEAKpD(LLNNKKDH( DK@DK(pC(cPU//6  P  $ P/@::XtLFIELD_CREATE94250-1X023 REV.2505 <850103.1634>&FUTI2::SRC_94250A:%%DZ FB_INFO  FB_FIELDS \FB_PARM 2FB_GLOBAL %fFIELD_CREATE-- '.CPM .EXIT .IMAP .SST.LBT.SBT.LBPR .MBTCONV_CHAR -  ~~ FFph8HPE((H`Eh4`Gh2($`Gh4`Fh2Dpp `(pAp P(xp   (A(xpAp H (J(` p  ~UEEP(\p`Kp (_` p (EP(d(t; p; ` p ` p (:AP(; @0p#`Ch#8 8(/A ((pp `(hp; p >FF` (` @,p#h#PE(( p A@p A`p`(dh8PE(Ä( p @pA `Ap` ` p ` @0p#&H>>h#PC(` p  ((p ` P ((` p ` @0p#`DAh#; ` A P(( ;` #@/p. -;H (0p `Bp` @Ap.<< 8 8(` #@/p.h.`: -` @,Hp#h8h#J` @+p#h6h#` @*p#h4HJh#` @@)p&h&`@ ` @(p#h2HJh#` @@'p&h&ZII`> ` @$p#`Ch#8 A8( ApA`ApA`ApA` ApA` pp `(pp `Bp  p `'QQ8 8(A Ap `A Ap `AJ ApJ `A; Ap; `AI ApI `AH ApH `8 8(  ==0$ ff  ff =OOi ,,0506 ` `` ` ` ` ```XW @B01DCBO@T::X+TEXT_CREATE 94250-1X023 REV.2505 <850103.1634>&FUTI2::SRC_94250A:--EFB_LINE  FB_INFO FB_FIELDS \FB_PARM 2FB_GLOBAL -7TEXT_CREATE AA ]{.ENTR .CPM.EXIT .IMAP .SBST .SST.LBT.SBT .LBPR .MBT .CBTWRITE_FMP READ_FMPA~~BBh`h`Ath`Ah`p p (np{p` PV(;(BA`p (`It (np Hp hP(U(j~UJJA`h (eH`p `p (jAh`t y  (qApp t Pvp X (@ pp tp@ Axppq tvq@pp ((` pp #EEp pDpH`t@ p `t@ p pP([`ppA@ y  (( tt P (( t @pp`@p` @p J  (h (` }}HHA@pp p p`@pr rrDprH` @p `@pP(ZhP((3 t @@ph`tA t @phHHh`A@ pp p pAp}~~,CC`@ p `@ p (Q t @phh`@ pp pD pHp`@ p `@ p  t ` ` p (h`g (n8 8{(5~ Go Q`t`qq:|CC]&v &v00S&d@&d@&v00S      pp p p 0P 0U     Y POq@nU::XnMSG_DISPLAY 94250-1X028 REV.2505 <850103.1635>&FUTI7::SRC_94250A: A FB_MSG n.MSG_DISPLAY ##jh.ENTR .EXIT .IMAP .SBST .SSTF_SHOWINDOW #^^_)66A)+gp(`mpf`(@kp_a()_8(8f(9*(W*,@lp_A_i*A__g]lii-.^ap_g P@Ӵt77XcFFELD 94250-1X009 REV.2505 <850103.1631>&FFELD::SRC_94250A7%%DmFFB6_ROW FB_FIELDS %FB_NAME 2FB_GLOBAL % <FFELD uu.CPM .ARTN .EXIT .LBPR SEGRT F_DEACTIVATEFORMMSG_DISPLAY F_SHOWHELP PAGE_CHANGE LINE_CHANGE F_SHOWINDOW F_WAITEVENT F_SHOWALTERNATE F_SHOWFORMSET_FLDVALF_ACTIVATEFORMu  ~~;; (p(?@hp@hp` p`A@pJ(8(8 p`@ p(:` p`@ p~~~q@@@E`(K`(Q`(`(c`#@p ` `(ppP( o`(P(Ph X (~BB `(p`(` ` pp( `(( `(( `(( `(( s>>`(P((ա`((((`pAp(((`pp(P(뀠(pp(`(p(g`pA@&&p`00 @(0 P&@99X1]SET_FLDVAL94250-1X009 REV.2505 <850103.1631>&FFELD::SRC_94250A9$$D7FB6_ROW  FB_INFO FB_FIELDS %FB_NAME $VK.SET_FLDVALTT݂.ENTR .EXIT .IMAP .SST .SSTC .LBT .SBT.IDLP .MBTF_PUTSTRING KW_OUTPUT CONV_ENH_STRING CONV_CHAR F_INITFIELDST-DDA-`(6.;WW--( p(`Ap+hA( pFT`(p(,+p)Y+NAhE`C *p,`Xp`,@Vp A,+ 8,8(bhA`Q~~qIIA @`)#@=pD>+p**Nh<`6A +p**Nh:`6A *+p**Nh8`6A `)@4p"h" hM  LJh3`K@ ~cvEE,`)@A@/p( 0R'`)@.p"h"HJ hM  LJh-`K ,`)@@)p(A *R'`)@&p"\[!HhIHH h% `)@#p"ZY!HhI h  `(#@pHFF--( 8+8(G(5 yy CC/  (E  C  >:   6 2 N.+(   M : F GK L  46y@ګ::XCLINE_CHANGE 94250-1X009 REV.2505 <850103.1631>&FFELD::SRC_94250A:CFB6_ROW %FB_NAME 2FB_GLOBAL LINE_CHANGE .ENTR .CPMF_SHOWALTERNATE 55`( `#@@p?A>(<`p (#(#p`p(0B(-(-`p`p(0`p`#@@p?459B>(< ( `(@O::XZPAGE_CHANGE 94250-1X009 REV.2505 <850103.1631>&FFELD::SRC_94250A:%%Dm4FB6_ROW %FB_NAME  FB_FIELDS 2FB_GLOBAL %PAGE_CHANGE **u .ENTR .CPM.LBPR F_SHOWALTERNATE F_SHOWFIELDSSET_FLDVAL*~~_66`( `p ((p(X((`p p`Yp`V@pR(6(6A Rp`@p(8~==n6`Yp`p=(ODW(OLXT(O( =LR`0@%99XB/F_FIELDS/94250-16173 REV.2340 <830913.1448>&FUSE2::SRC_94250A9 A0F_FIELDS @<::XP/F_USERBUFF/94250-16173 REV.2340 <830913.1448>&FUSE2::SRC_94250A: AMF_USERBUFF  @a!::X\/F_TERMBUFF/94250-16173 REV.2340 <830913.1448>&FUSE2::SRC_94250A: AY(F_TERMBUFF &0L @::XnMSG_DISPLAY 94250-1X028 REV.2505 <850103.1635>&FUTI7::SRC_94250A: A FB_MSG n.MSG_DISPLAY ##jh.ENTR .EXIT .IMAP .SBST .SSTF_SHOWINDOW #^^_)66A)+gp(`mpf`(@kp_a()_8(8f(9*(W*,@lp_A_i*A__g]lii-.^ap_g P@Ӵt77X#*cFSPEC 94250-1X010 REV.2505 <850103.1631>&FSPEC::SRC_94250A7BFB_FIELDS 2FB_GLOBAL  CFSPEC ll9 .CPM.ARTN .EXIT .LBPR SEGRT F_DEACTIVATEFORMMSG_DISPLAY F_SHOWFIELDSSET_SPECVAL FIELD_UPDATE F_SHOWHELPF_SHOWINDOW F_WAITEVENT F_SHOWFORMF_ACTIVATEFORMl  BB (( `(`(&P((%! " "`((&()`(ppP(8)`(P(Ph&X ~~CHAA(TO" (`(p`(b`Ab f`(`(`p   (x(xp{`(P(((((  ~F<<`((( `(`(`&pp(( `(`(`'pp(( `(`(`&pp(( `G==(P(ʊ(%" "((( `(`(`$pp((`(P(((((  `((P(( pp(11 #" "`(p(0`p@1`  P,@~::XySET_SPECVAL 94250-1X010 REV.2505 <850103.1631>&FSPEC::SRC_94250A:--E FB_INFO FB_FIELDS FB_LINE %FB_NAME 2FB_GLOBAL -[7SET_SPECVAL MM .ENTR .EXIT .IMAP .SBST .SST .LBTF_PUTSTRING READ_FMPKW_OUTPUT F_PUTINTEGERCONV_INTG CONV_ENH_STRING M6DDA6A/[p1p5`sp9`5@qp-45-8589(DWmkk66(+A/1p3ei366A(+//p4sg466(+A/x~~J\zAAp4e466(+`1#@HpGcFF66(+`1@Ep<;[a[[66(+`1@@DpA@4_466(+`1@Cp<;[]~~~uHH[[66(+`1@@BpA@4Y466(+`1@?p<wv;SWS166(+`1@>p<ut;SUS166A(+ MAo  -M33 A -Q ~RRz** OMM66(+ IoH `1@=p&FSPEC::SRC_94250A:55F`%FB_NAME FB_LINE  FB_INFO FB_FIELDS \FB_PARM 2FB_GLOBAL 5pFIELD_UPDATE||<.ENTR .CPM.EXIT .IMAP .SBST .SCO.SST.LBT.SBT.LBPR .MBT.CBTWRITE_FMP READ_FMPF_GETSTRING MSG_DISPLAY F_SHOWALTERNATE F_SETCURSOR KW_INPUT CONV_CHAR F_GETINTEGER| Dy CONV_STRING_ENH ~~BBp ('( p p!3ǡ (pp`A(qpp`#@pȈA`h(S(m(m`P(m(c~~~IY@@ ^(`  h(` 88(Ay ( `(( (` ( ~}}DDAh0(( (` (( Ah`  ( `(퀊( }}}DD(` ( (Ah0((  (` (( Ah` &}}<!CC (/  `(F(> 9(` C(N (W`(n(f a(dEE` k((|x((Ap`@Ĉp`h(hP((ApA`pA@p`]^BB(`@phP((A@pA`pA`Ap``#@ph`A`@phh`@@ph`A`@phh_BB`@phH@hp p!Dp ` (Ԁ(- `(&`(,`@p`hH(3~~-??`@p`h`@p`h(>hHHxp`h(L0(p]`(c`A(p`@p~wwl@@hh@HApxA`@@pAh`HhP((`@hHpxAA`(`w  aa f`-?GG      pPP  PPPPPPPvY01D P @Ge99XC/F_FIELDS/94250-16174 REV.2340 <830913.1448>&FUSE3::SRC_94250A9 A{F_FIELDS @E>::XQ/F_USERBUFF/94250-16174 REV.2340 <830913.1448>&FUSE3::SRC_94250A: ALF_USERBUFF  @m-::X]/F_TERMBUFF/94250-16174 REV.2340 <830913.1448>&FUSE3::SRC_94250A: AY(F_TERMBUFF 20L @̌::XnMSG_DISPLAY 94250-1X028 REV.2505 <850103.1635>&FUTI7::SRC_94250A: A FB_MSG n.MSG_DISPLAY ##jh.ENTR .EXIT .IMAP .SBST .SSTF_SHOWINDOW #^^_)66A)+gp(`mpf`(@kp_a()_8(8f(9*(W*,@lp_A_i*A__g]lii-.^ap_g P@Ӵt77X7NcFCREA 94250-1X011 REV.2505 <850103.1632>&FCREA::SRC_94250A7,,Ey' FB_INFO &FB_FIELDS %FB_NAME IFB_DCB2FB_GLOBAL , g:FCREA ||E[.ARTN %.EXIT .IMAP .SCO .LBT.IDLP .LBPR .MBT.CBT$SEGRT #F_DEACTIVATEFORMMSG_DISPLAY "F_SHOWFIELDSSET_CREAVAL !F_INITFIELDS F_SHOWHELPCLOSE ERROR_FMP LOCFWORK_LI OPEN|]] U,CREAT NAMRWORK_FF VERIF F_GETSTRING GET_DATE F_SHOWALTERNATE F_SETCURSOR KW_INPUTF_SHOWINDOW F_WAITEVENT F_SHOWFORMF_ACTIVATEFORM]  ~~ʩ:AA A%`%(G%`%(M%`%(p&p'P'(\79%`%(P9(P&hX9 (xs7M%`%(p&`9(~~~<{DD`9p p!p3 1  %5%`%( LK%8`8(`8p3 1%`%(  1%`%( 3  '5%`%( @~~~ɖCCJ'8`8(`3( 3%`%(`8p3  3%`%(`3H(h& P=ph(H P;(  3%`%(  1%`%(`Ip3`3(DA~KBBpp4`(DpA H4p6`6#@ph0`A`4App `p7h  (@p H7p6`6#@p`0h(9(<(<`Gp3(D878('848( ljDAA`3(RN377%`%((T \- 5%`%( g+ )5%`%(h"`*Ap2w 2p4`>h( P;((777A`(%`%(((F77%`%(3%`%(`3h%0((h&H P:((ڡ~~~F<<777A`?P(١%`%(((`Ep00?`(%`%((D77%`%(%~~~X??,)+*`( %`%((`*@@)@8p(`((p(!(`%(+`%(((*((+(A#(p2h"` = 2`C~~~>??p0I0?A`BPph P9(((aa777A`(lg%`%(((s77%`%(z-%~~~};;,)+*`(%`%((`*@@)@8p(`((p((`%(`%((((( pp'(` pp'(`@pp'(~/>AA %`%(P%((ϡ?77%`%((((!7 %`%(%`%(" %`%((P&((p'p(>77%`%##w(p&(T`%p#%$%%#   U `````1::  p  ,-. (B80,'RVCd  P`@8˼:::XSET_CREAVAL 94250-1X011 REV.2505 <850103.1632>&FCREA::SRC_94250A:CG 2FB_GLOBAL %FB_NAME  FB_FIELDS 1 SET_CREAVAL 66 +.ENTR .EXIT .SSTC .LBT.SBT.LBPR F_PUTSTRING KW_OUTPUT F_PUTINTEGER6>g!!' 8L( RC!>@[zr77XwVERIF 94250-1X011 REV.2505 <850103.1632>&FCREA::SRC_94250A7,,EFB_LINE  FB_INFO  FB_FIELDS IFB_DCB2FB_GLOBAL , JVERIF  44 _.ENTR .CPM .IMAP .LBT.SBT.LBPR .MBT .CBT MSG_DISPLAY READ_FMP4pAAp p "  ` ((` (Ġ`8p `Ʉp  (2(9  ` (?` (h`hhhh` p`p +_QEEp  (Y(A p ` #@p`hA (k((p A Ph HxpƈA`h (0h H҈xp`hA (0(h`@__ǖ00`Ap (` p (R`P ((` p ` hބ`(` p (-(ġ Ԁ(_==" ``  0 00  F=@,IK 99X@/F_FIELDS/94250-16172 REV.2340 <830913.1447>&FUSE1::SRC_94250A9 A'F_FIELDS @b:"::XO/F_USERBUFF/94250-16172 REV.2340 <830913.1447>&FUSE1::SRC_94250A: ALLeF_USERBUFF  @dž::X[/F_TERMBUFF/94250-16172 REV.2340 <830913.1447>&FUSE1::SRC_94250A: AY(F_TERMBUFF 0L @^88XPwWORK_FF 94250-1X027 REV.2505 <850103.1635>&FUTI6::SRC_94250A855FUFB_LINE  FB_INFO FB_FIELDS HFB_SOFK \FB_PARM 2FB_GLOBAL 5 1 WORK_FF  FF!\.ENTR .CPM .EXIT .IMAP .SBST .SCO.SST.LBT.SBT.IDLP .LBPR .MBT WRITE_FMP READ_FMPF >>A`p`pAhG`[Fp`kp`v@@chHd88(hYhEhWhCAhA`UHhSh?Hh=`QhOh;hMh9`Up`Vp2~~FBBA p8A  p9A  p:A  p;p`up aA(pp`( pp rp`@7phPj(( rF~}}P@@( p`#@4p3h6`32`@phHHh1`@-phh/`@*Hphh,H`@@'p h)` `@$Hphh&H`@@!p h#` p}]FF`ip`A@cp 88(A  Ap   p A p Ap   opA t p`s@p`p (8A8(o~~H+BB(`qp(Ap pp`hp %p(`PA(,( opA HA `(>(B(B`@p(E`p r@phPg(Q~~~_PGG([ HD H^ `Ap @@fp`ph({p HD H\ 88(m`ApA((`qp(A p((`p`p ~~~;>>(88(PU((HHJ `Fp`p (`p`p`opp`ep`n@p HH `$@pH `~RR@&&@p88(p`ep`m@@chHb88(`lp`p ( R""  ` ff    "&EE ] [  @ 00 0$0  0#0 0 0 00 000 00 0o 0n0l 0k0h 0g0c P00 PpZpX pWpU pTpR pQpPP44N[p,.0?VD1C>v,4@88X!WORK_LI 94250-1X027 REV.2505 <850103.1635>&FUTI6::SRC_94250A8KKI9#DCB_LISTFB_LINE IFB_DCB  FB_INFO FB_FIELDS !HFB_SOFK \FB_PARM  FB_MSG2FB_GLOBAL K 4MWORK_LI  .ENTR .CPM .EXIT .IMAP .SBST .SST.SSTC .LBT.SBT .LBPR .MBT.CBTMSG_DISPLAY CLOSE SKIP_LIST WRITE_LISTREAD_FMPCONV_ENH_STRING KW_OUTPUT CONV_CHAR SET_DATESTRIP_ESC  OUREADF OPEN }}K@@K@KpYL%fL(XbL`h(jL0(XA`h (|LL(X(opA` p`@AhAHpbxc}}}HHibfc8A8(@ pG Gf fjLL(S L  L LpI s(AddIpH(`pH  LpA` p}}}A@@`APV((ߡ  L(cA LALJ(Sf((fd`APH( (YdIpB`B@p}GGhP (H(hhH(!hAhdIpJAdfIpcpD`c(EpbDJJ Hb `JpJ8D8(4`IpI sI(O(VAddIpH(X`㈠pH( ~~}ZII`áLL(S8A8( n L rdL y fL  fL AdL spE Ed  AL ypE Ed  ~}}RHHL wpE Ed  L upE Ed  L`dpG  L Gf fjLL(S L  L dL  }xIIL  L  L ǀL  L  L dL # fL (Vf / L3Š ~~Ds4MM: L A dL H dLN U fL[ b fLhɡ o fL v L }L L~~~FF  L dL  L dLpAA`p  AfhHHh`A$@p`p `A$@p`@p `A@pb ~FF˄bfhh ǀLL(S8AA8( `pFA spcpA`c(Sp`FApFF((`GpG  LL(S Gf  fjL ) EEL dL LpF(" "dLpD`p`D@pbAiDb8D8(& 8Afh`AdApB`B#@ph`ApD`p~`D@~~RGGpbnDAb8D8~(Ph` iǀLL(SpD`p}`D@pbiDb8D8}(pdfApE Edh`AddApE Edh~~~>ZFF`AdApE EdJ  ǀLpD`p|`D@pbiDb8D8|(`B@pɄh((h`B@ph``B@~BB@ph`A d ǀLpD`p{`D@pbiDb8D8{(`B@pɄhh`B@ph``B@@pAh`d  {{MB!AA'ǀL .jL`B@phP(6(K=LCBAdfA p JL(O OfL8A8(VM_ LL(S{))~d Xff)`)HH > <   )&d &v    WQ !   ;+ N  c cN 5 * ,\^P bc ||GGPZXWTURQPPg@@S@R @ @        !?1D"+|@=G::XnMSG_DISPLAY 94250-1X028 REV.2505 <850103.1635>&FUTI7::SRC_94250A: A FB_MSG n.MSG_DISPLAY ##jh.ENTR .EXIT .IMAP .SBST .SSTF_SHOWINDOW #^^_)66A)+gp(`mpf`(@kp_a()_8(8f(9*(W*,@lp_A_i*A__g]lii-.^ap_g P@Ӵt77X/1cFDISP 94250-1X012 REV.2505 <850103.1632>&FDISP::SRC_94250A7 Ac2FB_GLOBAL >FDISP //tV.EXIT SEGRT F_DEACTIVATEFORMF_WAITEVENT F_SHOWFORMF_ACTIVATEFORM/  bbiX//  -`(P((`0p(!`(!/`(!`p& p+@ b@`99XA/F_FIELDS/94250-16180 REV.2340 <830913.1449>&FUSE9::SRC_94250A9 AF_FIELDS @)H::XX/F_USERBUFF/94250-16180 REV.2340 <830913.1449>&FUSE9::SRC_94250A: AOF_USERBUFF  @˸::Xd/F_TERMBUFF/94250-16180 REV.2340 <830913.1449>&FUSE9::SRC_94250A: Aai F_TERMBUFF F0$0 @S$FBUTI::FORMS:5:50:128 644 0 0 31000 5303444504 33220 $FBUTI::FORMS:5:50:128 $2 u2$FBUTI +IC+ID+ID2FST /--XbFBUTI 94250-12002 REV.2340 <830913.1026>- >FBUTI  kIp@vN//Xu<READ_LINE 94250-1X025 REV.2340 <830913.1027>/ AFB_LINE c READ_LINE !!.ENTR .MBTUTL_FROMTBDVR_RDBLK CONV_CHAR !j&a00r0Cdd, 33  p8;`3h54#:6  (0`(, p(00  d@ȃ//XAWRITE_LINE94250-1X025 REV.2340 <830913.1027>/BLFB_LINE 2FB_GLOBAL c* WRITE_LINE--4[.ENTR .CPM.MBT UTL_WRITE UTL_MOVETBUTL_INIT_BUFCONV_CHAR -&a00r0Cnn]+ 88  J p((`p=@`6h8A 7&+;09? 3   0  n@5T//X VREAD_WAIT 94250-1X025 REV.2340 <830913.1027>/jREAD_WAIT '..ENTR DVR_WREAD //( ((( /@M|l<..Xs_READ_FMP94250-1X025 REV.2340 <830913.1027>.BPIFB_DCB2FB_GLOBAL  "READ_FMP &&.ENTR .CPM.ARTN .EXIT .SST ERROR_FMP READF & BBA @ pW A%.7$ ^ (?- ^ (?6  ^ (??0 ^ `(SA ](K(KY[J L N  (S   X P@@A_//XqWRITE_FMP 94250-1X025 REV.2340 <830913.1027>/BPIFB_DCB2FB_GLOBAL _WRITE_FMP **R@.ENTR .CPM.ARTN MOD .EXIT .SST ERROR_FMP WRITF *~~ BBA @ pip("@p ((@p  ` p  44<DL; (SC (SK  (S~99_MS0  `(g oA(_(_km  b  (g 9Cj `@*//XuERROR_FMP 94250-1X025 REV.2340 <830913.1027>/C;\FB_PARM FB_LINE 2FB_GLOBAL cERROR_FMP $$.ENTR .EXIT .SST.MBTMSG_DISPLAY CONV_CHAR $}}D66A`tp p A`fhba `( (#`hp(X`sP('(*`rp(X`qP(.(3`pp`kp (X`oP(7(<`np`kp (X`mP(@(E`lp`kp (X}WWLE00 `pNcj`ip`hp acH`gp _ a   0-W@0O//XWRITE_TERM94250-1X025 REV.2340 <830913.1027>/o(WRITE_TERM u.ENTR XLUEX \PA@p ( @Sr//XXWRITE_LIST94250-1X025 REV.2340 <830913.1027>/""D+DCB_LIST IFB_DCB  FB_MSG2FB_GLOBAL "hi4WRITE_LIST00 \B.ENTR .CPM.EXIT .IMAP .SBST .SST ERROR_FMP WRITF READF 0/IIA/1A/(]2(I(I`22pD2DH(/(ie`((zp.`p`.@p ./8.dd*x548(m0(02@pD02DH`p-  -`(4 33(3( Xd> Z`)P@v6//XmSKIP_LIST 94250-1X025 REV.2340 <830913.1027>/CwDCB_LISTIFB_DCB2FB_GLOBAL |+SKIP_LIST .ENTR .MBTERROR_FMP WRITF 99 (( 9uu)::)*)(4(@`khgf?l(V`ihgfp()(VpcRl8(8c(L`(a\**(a*+uF@d 1  (@vR..Xq8KW_INPUT94250-1X026 REV.2340 <830913.1027>. Ac2FB_GLOBAL 0KW_INPUT .ENTR .CPM.MBT.CBTii/ Ac2FB_GLOBAL KW_OUTPUT .ENTR .CPM.MBT.CBTgg77x7x5p((.`@3p1`7h16( (*(*`@2p1`1h5A4p`p( PLPdg@22XCONV_STRING_ENH 94250-1X026 REV.2340 <830913.1027>2FCONV_STRING_ENH -- 4.ENTR .EXIT .SBST .SCO.SST.IDLP .MBT.CBTKW_INPUT-}} HHAxxpp`pAA`hA(w`p`ph(GpD(@(C(C`(88(4M}uuWM88(`h(X(\(\`p(((w`h(d(h(h`@p(w`h(p(t(t`@p(w`@p88(`@p`h u44)U I B    @ 4@xח22XCONV_ENH_STRING 94250-1X026 REV.2340 <830913.1027>2 Ac2FB_GLOBAL eCONV_ENH_STRING /.ENTR .CPM.EXIT .SBST .SST.MBT  }}gIIxx`hA`h`h`hAp`h`@p(5(5AAp(@(PDH`@p`}ũNLLA@p(U(eDH`p`@p(j(zAA`p`@pP(~(AA(4  pZpY pXpW##p   #@U///X KCONV_INTG 94250-1X026 REV.2340 <830913.1027>/hCONV_INTG .ENTR .MBT.CBTDD AxEpp`Ep?`?hG>($`Ep?A`?hCB`H@Jp`E@Ip?`?hG>(9`E@Ip?`?hA@`H@p`@  F  @?//XCONV_CHAR 94250-1X026 REV.2340 <830913.1027>/m CONV_CHAR ##.ENTR .CPM.EXIT .SBST .SST.MBTCNUMD # dG0000 }}GGA x}|J(!(!p(3()()`p(3(1(1`p(3`p`@p (;(Lt|Dv~DHtv(q` (P}ffKO??(X`}p{`yh{z(q`h}|`A@pv|At~Avt d f@..X{GET_DATE94250-1X026 REV.2340 <830913.1027>. A\FB_PARM ,GET_DATE &EXEC.CPM.MBT.CBTCONV_INTG FTIME xJANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC,>>,p,2p+A`rhvuz+(>(T`w+@ppo`ohvn(K(P(P`+pX`yp+(S`+p+(9A`mhts ]s*`*pYdx$)`)pW`'pZ`&p[##ɐj ,BD #@L ..X!SET_DATE94250-1X026 REV.2340 <830913.1027>.B%\FB_PARM 2FB_GLOBAL  "*SET_DATE ))+.ENTR .CPM.EXIT .SBST .SST.MBT.CBTCONV_CHAR )) 22z)A))x`h(8(;(;`p'(=p'P'(A(G2 , : am fAA`h(L , : ~~/lGEEA`h QW`'@p&`@&pD&H`'@p&`A@&p&`X@pJ}Y`'@p&`&pD&~}}AA`Zp(P'((A (((`@pA`h (((`@(p((`((`p((`'@p&`&p&DJ[`'@}: p&`&pA&A*<<$$ pm2 J%TH. <@ 0//XSTRIP_ESC 94250-1X026 REV.2340 <830913.1027>/ AFB_LINE aSTRIP_ESC  jx.ENTR .EXIT .SBST .SST.SSTC .INDX ;MMvrxDrvp`(Az|`(m`pP(((6pprxDpHzr(N@pprxpH`poAtxoAz~rt<<O @ptxDrzDDtrrxDrvp((<6q 00@y"9//X>TERM_IDENT94250-1X026 REV.2340 <830913.1027>/ Ac2FB_GLOBAL zTERM_IDENTQ.CBT{{>>p`5h=4( (( pB(pBA`7h;6((( pC(pC`7h96(%((((pA(* pA2647F 2627A 264  } } X^ d{@9~~ CONV_CHAR  &CONV_ENH_STRING  CONV_INTG ;CONV_STRING_ENH hJ ERROR_FMP  mFBUTI GET_DATE#KW_INPUT@ KW_OUTPUT READ_FMPb0 READ_LINE ^ READ_WAIT Y~~~ SET_DATE%? SKIP_LIST x0 STRIP_ESC *5 TERM_IDENT-  WRITE_FMP 0 WRITE_LINEL WRITE_LISTT0 WRITE_TERM P@ KW_OUTPUT READ_FMPb READ_LINE ^ READ_WAIT Y~P'(A(G2 , : am fAA`h(L , : ~~/lGEEA`h QW`'@p&`@&pD&$FOFLL::FORMS:5:68:127 644 0 0 42000 5303444505 33141 $FOFLL::FORMS:5:68:127 $D uD$FOFLL +IE+IE+IED!FST dA $--XOFOFLL 94250-12003 REV.2505 <841228.1030>- CFOFLL  kIp@W_v11XF_ACTIVATEFORM94250-1X101 REV.2340 <830913.1457>1Cp F_FIELD_STORAGE )F_INFOF_FILEF_ACTIVATEFORM == n.ENTR .CPM.MBT TRM_FORMS_USE TRM_LOCK_KYBD FRM_FIELD FRM_BASIS FMP_CLOSE FMP_OPEN=~~ɇ ??  x@ p`p h`p `p` @ 8 A8(&(6(6`J (>(>` D(H `(Q~K::`P h`A Z(^  b(f  i(m  p(t `p`  `@h `@h&`@h' X  @  @xݗ00X]?F_ACTIVATERM94250-1X102 REV.2340 <830913.1457>0By4 F_SFK_TABLE )F_INFOXF_ACTIVATERMTT r.ENTR .CPM.SST.NFEX DVR_CONFIG TRM_UNLOCK_KYBD TRM_RTE_USE2 TRM_RTE_USE1 TRM_SETUP DVR_SETUP TRM_MSG_FILEOS_LU_SETUP T  ~~)@@x}`p`pA`}p{z~`( `Apx0x(.`p`(6`:(>A(E~qqD44`p J(N`p T|(X`p(v(b(k e h k(p(tt pq$y vZ @m-22X}1F_DEACTIVATEFORM94250-1X103 REV.2340 <830913.1457>2BF_FILE)F_INFOEF_DEACTIVATEFORM,,r.ENTR .CPMTRM_RTE_USE2TRM_RTE_USE1TRM_LOCK_KYBD FMP_CLOSE ,dd$h00A`-pA0((`/`.p( ($'(++ d@8Ww11X37F_DEACTIVATERM94250-1X104 REV.2505 <841227.1606>1 Al)F_INFO F_DEACTIVATERM--.ENTR .CPMTRM_GET_STATUSDVR_CONFIGTRM_RESET F_DEACTIVATEFORM-  __b00A`4pA6((`5p(#'(+0220 _@o00XW$F_GETBUFFER 94250-1X105 REV.2340 <830913.1457>0CN)F_INFOF_USERBUFFF_TERMBUFF/ F_GETBUFFER A.ENTR .CPM.SBST .SST.NFEX   )FFAx`p  ((` p0(/` DHp0(G` P(K(P`&xx/@L;;pp(((_P(T(Z`'p`&p(_`&@'pp`(c(m(mp` (o`p` H`@@pD@ x 00p @00XDGuF_GETINTEGER94250-1X106 REV.2340 <830913.1458>0$$D)F_INFOF_FIELDSF_USERBUFF F_TERMBUFF$}F_GETINTEGER!!i.ENTR .CPM.CBTMIS_CONVERT FRM_FIELD_NAME!.I  }}@@Axk`op t(&(&`s -j  ` P(1(4`p `p @@npA`ihme(E`r `p @@np ` @gpf}--vO`p @@npd]hed`(b`q- eb  @W//XxF_GETREAL 94250-1X107 REV.2340 <830913.1458>/$$D)F_INFOF_FIELDSF_USERBUFF F_TERMBUFF$UF_GETREAL !!i.ENTR .CPM.CBTMIS_CONVERT FRM_FIELD_NAME!7R  kBBAxl`pp qw('('`v .k  ` P(2(5`s `s@@op`jhnAf(F`u `s@@op ` @hpg--P`s@@ope^ife`(c`t-###fc #@100XRCF_GETSTRING 94250-1X108 REV.2340 <830913.1458>0$$D()F_INFO F_FIELDS F_USERBUFF F_TERMBUFF$lF_GETSTRING //.ENTR .CPM.SBST .SST.NFEX .CBT MIS_UPSHIFT FRM_FIELD_NAME/Nu  P C ~~DDx4@p+x2`:pAA(5(5`BAp @ (<(b ;(K(K` @+(J`A`@p (^` @+h H+p)@,0)~~~YAA(^`A`@p ` p (7(fp)A0)(y`?3`P((`<`<@@9p`0h8,(`>`<~~~AA@@9p)1D,D)5((`=(``<@@9p p p`;@+P((@ p pp  ((` p ` @.p-`-h6@~~~CC,(`;p` A@ ((` @p `p ` p (P((p  (('P((` @.p-)1J  ,)( A)1  ` @.p-)~x ,` p ` p (**',P ' *@&EY00X5&EF_INITFIELDS94250-1X109 REV.2340 <830913.1458>0 Al)F_INFO |F_INITFIELDS[.ENTR .CPMFRM_INITB FRM_CLEARB  rrd%;;A`>pAD((`Cp=AB0=("`AAp=@0=(0`?3P(7(;;r>; @00X]4F_PUTBUFFER 94250-1X110 REV.2340 <830913.1459>0CN)F_INFOF_USERBUFFF_TERMBUFF= F_PUTBUFFER A.ENTR .CPM.SBST .SST.NFEX   kAAx`pA ((` Ap0(,` pA0(:` P(>(C`&pp(RP(G(MxxG??`'p`&p(R`&@'pp`(V`@@pDD(i(lp(p`p` `@@pDD@ x 00p @00XIOlF_PUTINTEGER94250-1X111 REV.2340 <830913.1459>0$$D)F_INFOF_FIELDSF_USERBUFF F_TERMBUFF$F_PUTINTEGER!!.ENTR .CPM.CBTMIS_TO_ASCI FRM_FIELD_NAME!.I  }}@@Axc`gp k(#(#`j *b  ` P(.(1`h `h@@fp`aheA](B`i `h@@fp ` @_p^`h}GN@@fp\Z`]\]Z @a!//XkF_PUTREAL 94250-1X112 REV.2340 <830913.1459>/$$D)F_INFOF_FIELDSF_USERBUFF F_TERMBUFF$_F_PUTREAL !!.ENTR .CPM.CBTMIS_TO_ASCI FRM_FIELD_NAME!7R  }} @@A xb`fp j("("`i )a  ` P(-(0`g `g@@ep``hdA\(A`h `g@@ep`@^p]`g}<M@@ep[Y_\[\Y @u00XWF_PUTSTRING 94250-1X113 REV.2340 <830913.1459>0$$D")F_INFOF_USERBUFF F_TERMBUFF F_FIELDS$sF_PUTSTRING !!.ENTR .CPM.LBT.SBT.CBTFRM_FIELD_NAME!JC  }}DDxֈx@pˈ`p A(,(,` Àp0(?` F ` P(J(M` `݀ @@p}DT@@A`h(^` pA(e(v`@pψA`h(r(p(r``p(`(z `݀ @@p`݀ @@p Ap ((`@phooF66h`p`p( ((` p `(p p` @@Ap ((`@p`@ˈHphhH`p`p(o--.  P -@ a00Xp@F_SETCURSOR 94250-1X114 REV.2340 <830913.1459>0 Al)F_INFO FF_SETCURSOR -.ENTR .CPMFRM_FIELD_NAMEHIgg 44 x:`;p A?( ( `> '9  ` P(+(.`= ` P(2(5`< `p$7g@d22XF_SHOWALTERNATE 94250-1X115 REV.2340 <830913.1500>2B)F_INFO F_FIELDS9F_SHOWALTERNATE 77 {y.ENTR .CPM.LBT.SBT.CBT UTL_WRITE TRM_ERROR UTL_INIT_BUFFRM_FIELD_NAME7N R :AAAx`p (#(#` * ` P(.(1` p0(?` ` @@pP(J(\hh`~~ӴO==h(V(Y(Yp([pH(mhhH`h(h(k(kp(mpo s  v(z hHHh` @@h` P((`"@p"~_(` @p !!$    !@d$00X;LrF_SHOWFIELDS94250-1X116 REV.2340 <830913.1500>0 Al)F_INFO vF_SHOWFIELDS22.ENTR .CPMTRM_DSUNP TRM_DSDISPTRM_DSWDW TRM_DISP_RESETTRM_REQ_ERR 2~~==`mpq((`ppln0l( `o`"(,&(*p"` (82(6p `(D>~[[v>..(B pp$hn 0(XT(Xhn 0(jf(j[mj@ڴ//XCF_SHOWFORM94250-1X117 REV.2340 <830913.1500>/ Al)F_INFO d'F_SHOWFORM&&2.ENTR .CPMTRM_DSFKTRM_DSWDW TRM_DSPTXTTRM_SHOW&~~q;;A`?pAB((`A pp pp p#p$ p("(&)(-0(47(;`@~"<p= @lh(//X)F_SHOWHELP94250-1X118 REV.2340 <830913.1500>/ Al)F_INFO `'F_SHOWHELPC.ENTR .CPMTRM_SHOWHELPNN((Ax%`&p(((((`'$( p("N@Ԩh22XF_SHOWSFKLABELS 94250-1X119 REV.2340 <830913.1501>2By8  F_SFK_TABLE )F_INFOC F_SHOWSFKLABELS << R.ENTR .CPM.CBT UTL_WRITE TRM_PACK_ESC TRM_PAINT TRM_DSFKAT2 UTL_INIT_BUFTRM_DSFK<o:2 V ]]BBA xs`}p ((`  0(,` (72  (6(o9<A`{hyt(D(I(IHr(U`wQQTfJ''hut(Q(U(U UrX [  (o`ppA~(g(o`@|h`p(b Q##r  0- 0 o#@00XKeF_SHOWINDOW 94250-1X120 REV.2340 <830913.1501>0 Al)F_INFO 3F_SHOWINDOW GG .ENTR .CPM.SBST .SST.NFEX TRM_DSWDW UTL_WRITE TRM_PACK_ESC UTL_MOVETB TRM_PREP_ENHUTL_INIT_BUFGLPiP/LL/0x`p.A2(E(E`A2.1p10(X`2.// 0(g`2./(k(AAA11QQpW{&&A   22(`p( 22(`p3Q  P PP J@f&00XD7F_WAITEVENT 94250-1X121 REV.2340 <830913.1501>0 Al)F_INFO P F_WAITEVENT QQ .ENTR .CPM TRM_RESET_READS TRM_DSWDW TRM_REQ_ERR TRM_ANALYZE TRM_READRQUTL_WRITE UTL_TAB TRM_PACK_ESCUTL_INIT_BUFQ  ~~yJ@@A`pA ((`A 0(&` `((8+.1$4  (8p(p`(|pG ~~~G99 ({P(y`P(Q(x U  (x`P(\(_p(x`"(j e  (jp" (x`(x s  (x p({p((< ( ~ #  @~~IQ FOFLL F_ACTIVATEFORM^ F_ACTIVATERM1F_DEACTIVATEFORMF_DEACTIVATERM v! F_GETBUFFER  h F_GETINTEGER F_GETREAL  F_GETSTRING x F_INITFIELDSw F_PUTBUFFER y F_PUTINTEGER "~~~t F_PUTREAL # F_PUTSTRING %f F_SETCURSOR *)F_SHOWALTERNATE , F_SHOWFIELDS/w F_SHOWFORM2m F_SHOWHELP4} F_SHOWINDOW 9aF_SHOWSFKLABELS 66 F_WAITEVENT = F_PUTBUFFER y F_PUTINTEGER "~Ҁ@-рux ċр=ґ=W- m=WWe-fIuu=KI -uрxM-um -рHM-͝ёHґMDeH "-ԃрHёHґ=ёё=ґ @ =@0-=mґ}-=n@$FLULB::FORMS:5:254:128 644 0 0 177000 5303444507 34063 $FLULB::FORMS:5:254:128 $ v $FLULB +IF+IG+IG~2FFST {::X=rFLULB 94250-12004 REV.6000 <921028.1054>/SRC_94250/R6000/NN0002 : @FLULB  kIp@JXi<<X. TRM_SETUP 94250-1X153 REV.2505 <850114.1733>/SRC_94250/R5000/&FOTRM <''D)F_INFOF_SFK_STORAGE F_USERBUFFF_TERMBUFF'|IOTRM_SETUP ss˶.ENTR .CPM .SST.LBT.SBT .NFEX .MBT .CBTDVR_RDBLK DVR_INFORMUTL_WRITE TRM_PACK_ESCUTL_INIT_BUFTRM_RTE_USE2 TRM_GETYPE TRM_CHECK2645ATRM_RTE_USE1TRM_LOCK_KYBD s$$22A23A24B26A27A82A47A47F48A92A20A50A24A45ANL$ 0'NL 0,NN 5-SL 50"SL 03%NL 06(NL aZ2NL2 a]2NL2 a`2NL2 cj 4SL4 cf#4NL2 ai&2NL2 $$R)2SL4__$MAAMMx㈈`pF`pK`pH`hH`hH`h`h`hH`hN`pJ0(}`N(Ap0(`e@@N(`pJ0(`NN(FNN(FNN(FNp J  NN(K`h ( NN(ΨKa AAA`h (((و`NKpJJ((`ӀJ@p`ׄh (((h``Jp`ӀJ@phHHh`J@pɄhh`ӀJ@ЈHphh@O<< `J@p`pJ`JpJ(`(1h` phhhhhh`+pN(5F8NN(<FP(@(NDG;J9~~K;;MNN(QHTNN(XH`pc>?NN(gHJpG(u(u`pGpp(pJJJ(|(`J@pɈ`J@phH@h~oof 55`JpJ(w:<NN(HNN(H`P=((INN(H`G(`GNN(FOo%LL2622A 26212645A  P`.-+*), z*1JH 0$L@x>>XTRM_LOCK_KYBD 94250-1X153 REV.2505 <850114.1733>/SRC_94250/R5000/&FOTRM > An)F_INFO TRM_LOCK_KYBD .ENTR UTL_WRITE TRM_PACK_ESCUTL_INIT_BUF  773A`p (7@??XTRM_UNLOCK_KYBD 94250-1X153 REV.2505 <850114.1733>/SRC_94250/R5000/&FOTRM ? An)F_INFO eTRM_UNLOCK_KYBD .ENTR UTL_WRITE TRM_PACK_ESCUTL_INIT_BUF  773A`p (7@_<<X zFTRM_GETYPE94250-1X153 REV.2505 <850114.1733>/SRC_94250/R5000/&FOTRM <B F_USERBUFF F_TERMBUFFp,TRM_GETYPE 113.ENTR .CPM.LBT.SBTDVR_READUTL_WRITE TRM_PACK_ESCUTL_INIT_BUF1  qq99xD@Dp=`Ep(#(;pA(-(;`@=pA`@Bp?h?HHhA`p((qy>;@,>>Xs:TRM_CHECK2645A94250-1X153 REV.2505 <850114.1733>/SRC_94250/R5000/&FOTRM >BF_USERBUFFF_TERMBUFF} TRM_CHECK2645A).ENTR .SST.NFEX .MBTTRM_GET_STATUS  EE%%x2`9pA173( `3(*h2`6A1 Eϫ- 2645A  Z`*@]2>>XHVTRM_GET_STATUS94250-1X153 REV.2505 <850114.1733>/SRC_94250/R5000/&FOTRM >B F_USERBUFF F_TERMBUFF TRM_GET_STATUS 113.ENTR .CPM.LBT.SBTDVR_READUTL_WRITE TRM_PACK_ESCUTL_INIT_BUF1  @@AxQ@QpJ`Rp@`ShQ((`Up( `Tp"%((,0(Hp(:(H`@JpN`@OpLhLhND`p(5}iK H "!@==Xf$TRM_RTE_USE194250-1X153 REV.2505 <850114.1733>/SRC_94250/R5000/&FOTRM = Ao)F_INFO xTRM_RTE_USE1&&.ENTR DVR_INFORMUTL_WRITE TRM_PACK_ESCUTL_INIT_BUF&  EE+!!A`#p ((!!E@=K==XfTRM_RTE_USE294250-1X153 REV.2505 <850114.1733>/SRC_94250/R5000/&FOTRM = Al)F_INFO xTRM_RTE_US((E2^t.ENTR TRM_CONFIG2   ((|(A`p((@s!>>XTRM_FORMS_USE 94250-1X153 REV.2505 <850114.1733>/SRC_94250/R5000/&FOTRM > Am)F_INFO  TRM_FORMS_USE 2f.ENTR TRM_CONFIG2 TRM_RTE_USE1  66A`p ((6@]j|*==XATRM_CONFIG2 94250-1X153 REV.2505 <850114.1733>/SRC_94250/R5000/&FOTRM = Am)F_INFO TTRM_CONFIG2 **A.ENTR .CBTUTL_WRITE TRM_PACK_ESCDVR_STRAPSUTL_INIT_BUF*"" # "~~<<`p#&`P(*(.- (11 `h(9(<(<<`P hX 0(R`P(K(ON (RR `P ~&@T==(V(YY`P hX 0hX 0(lloP(s(v`hA(~(((A`h(((!!y(! 2 /N   ,@ *@ @R<<X.INTRM_RESET 94250-1X153 REV.2505 <850114.1733>/SRC_94250/R5000/&FOTRM <''D)F_INFOF_SFK_STORAGE F_USERBUFF F_TERMBUFF'}TRM_RESET DD =z.ENTR .CBT TRM_UNLOCK_KYBD UTL_WRITE TRM_PACK_ESCUTL_MOVETBUTL_INIT_BUFTRM_RTE_USE2TRM_RTE_USE1D  >>A`Mp`Lp(( P( (="'JF`IhGF(/(2(2 2 5(9(= @]B(D 2 jF @ p9D@CQb==X\^TRM_MSG_FILE94250-1X153 REV.2505 <850114.1733>/SRC_94250/R5000/&FOTRM =BF_MSSGF_FILESTRM_MSG_FILECC 4.ENTR .CPM .ARTN .SBST .SST .INDX .LBT.SBT.NFEX .MBTFMP_CLOSE FMP_READFMP_OPENC  FO--MSG-  >> 88M"''FR001 FR002 FR003 SHIFT1 SHIFT2 SHIFT3 SHIFT4 End of FORMS ACCESS ROUTINES8~~GRBBAR`UpM`TpJA`SpPKORH`YhJ`Xh>nNRR(t`ERPpIAI({( 1MH`I@Rp%%ONRR(`pI(`I ~HH ?GApLM ?EpLM`V@I:@<p; ?:pLM`W@I#@9p8 ?7pLMA ?CpL`L(`pI`ER(`I J`E@L@6p5h5 BBhBJ`V@I/@3p0h0`2 /J`W@I&@.p-`7@Lp% %?%]D,%HJpKA\K((`K@QHKp%`[hVHK@%`KpK(`Z0pJ`IqUpI(v#S ! - ]]y(66 "FOLCL@PP`"`! N>P`"v@ 6PRy#-+H]@a!;;XLTRM_SFK 94250-1X153 REV.2505 <850114.1733>/SRC_94250/R5000/&FOTRM ; Am)F_INFO " TRM_SFK  c.ENTR .CPMUTL_PACKa2LllK :: `Hp p J ((#` @Gh HF` p ( hI  0(22`K hI  0(C pC lmFC@;==X^STRM_PACK_ESC94250-1X154 REV.2505 <841227.1611>/SRC_94250/R5000/&FOTR0 =ˎ=TRM_PACK_ESC.ENTR UTL_PACKZ-``*s^jkd_&q4te2{0Z&s1j1K&s0j0K&s1L&s0L&k0M&jR&k0K&jS&k1K&jB&q4te2{30f29R&q4te2{31Xr```f30RKHUZbckXRm&s0d0g0H&k0a0B&k0LHJ4BD5H*ddlteQ&s0a0b0CZ&k0ARmkXW&k]``1B&s0D&k1B&s1D&k0B&s0DHJ&j@&k0Z^~&s0a0b0C $).3<EIWegkmoq ))  +   )((<A<<@R/SRC_94250/R5000/&FOTR1 ; Am)F_INFO &TRM_SHOW ##x.ENTR .CBTUTL_WRITE TRM_PACK_ESCUTL_INIT_BUF# # RRZ))A`4p`Pp/`3h10(#0/(**-R 2 0 @-@Kj<<X TRM_DSPTXT94250-1X155 REV.2340 <870420.1037>/SRC_94250/R5000/&FOTR1 <AAGF_FILE_PARAMF_FIELD_STORAGE )F_INFOYF_FILEF_FIELDS F_USERBUFFF_TERMBUFFAqOTRM_DSPTXTFF $.ENTR .CPM.SBT.CBTUTL_WRITE UTL_MOVETB UTL_CLEAN_MOVE TRM_POS_CUR UTL_INIT_BUF FOMOV FMP_READF.@ FO &   ~~?;>>A`pH`h`͈p`h(,(/(/`p (1 `p @pp p (=(`pH(P` p `(`p~#U==(W(`ǀ@@P (`(`@@p`ǀ@@p@p`ǀ@@p  (`p`p`p(R   `h@HHE##(((`@p  ((` p ` p (8H 4 S 7 V --$y p"  + -v-@%<<XQOTRM_DSWDW 94250-1X155 REV.2340 <870420.1037>/SRC_94250/R5000/&FOTR1 <--E,F_FILE_PARAMYF_FILE)F_INFO F_USERBUFF F_TERMBUFF-w TRM_DSWDW <<.ENTR UTL_WRITE TRM_PACK_ESC TRM_POS_CUR UTL_MOVETBTRM_PREP_ENHFMP_READUTL_INIT_BUF<.]FO~~- ::A `Lp  `Np`p `P(!(7)    (/`M  1 6J(B`P(;(B ?BE ~5F H  p"H@n;;XbzTRM_DSFK94250-1X155 REV.2340 <870420.1037>/SRC_94250/R5000/&FOTR1 ;%%D  F_SFK_TABLE F_FILE_PARAM)F_INFOF_FILE% TRM_DSFK DD .ENTR .CPM .CBT UTL_WRITE TRM_PACK_ESC TRM_PAINT TRM_DSFKAT4 TRM_DSFKAT2 UTL_INIT_BUFFMP_READD,FODɓ ==A `xp `p     (#`P()`y p `pJ (2(?` @whHv` p `p(-AD`uhs l(LGGJ!!(Q(Q Pl(_ S`qho l([(_(_ _lb e  (iG 7V 2 ""l @" - i"@b<<X^TRM_DSDISP94250-1X155 REV.2340 <870420.1037>/SRC_94250/R5000/&FOTR1 <00E)F_INFOF_FIELD_STORAGE F_FIELDS F_USERBUFF F_TERMBUFF0`6TRM_DSDISP..|p.ENTR UTL_WRITE TRM_PACK_ESCUTL_MOVETBTRM_POS_CUR UTL_INIT_BUF.  x AAA `\p  `( `p`(P`]@@[p `]@@[p 5 `]@@[p `]@@[pH Y`]@@[N p( SV Y  V@7<<XUITRM_DSUNP 94250-1X155 REV.2340 <870420.1037>/SRC_94250/R5000/&FOTR1 <00E)F_INFOF_FIELD_STORAGE F_FIELDS F_USERBUFF F_TERMBUFF0n TRM_DSUNP &&.ENTR UTL_WRITE UTL_MOVETBTRM_PACK_ESC((UTL_INIT_BUF&o I mm8 66A `Gp  `( `p ` (>`H @@Fp `H @@Fp 6 D `H @@Fp ( A mD A@==X`TRM_PREP_ENH94250-1X155 REV.2340 <870420.1037>/SRC_94250/R5000/&FOTR1 = Ak)F_INFO Ǖ*TRM_PREP_ENHxJ.CPMMOD .LBT.SBT.CBTUTL_PACK&a00r0C&d@&v00Sz*@@*p*`p(`p&p'&'(8(B`'@h'H`'p'(3 @h@p @pwQw@HphhyH`hx(_(b(b`p&(qA`}h{x(j(o(o##rj `@p(q`p&u&*# 0%N 0$N &&#x J  +H  * ,u 0 &@$>>XAeTRM_DISP_RESET94250-1X155 REV.5000 <870420.1037>/SRC_94250/R5000/&FOTR1 >CN )F_INFOF_FIELD_STORAGE F_FIELDS TRM_DISP_RESET33.ENTR .LBT.SBT.CBT UTL_WRITE TRM_PACK_ESCTRM_FLD_ENH UTL_INIT_BUF3 (Z ??A `cp  `p`(S`d@@bp`]ha\(+(K(K/Hh_h]H`d@@bh @ p ` (Cp(J`d@@b**uIp(R`d@@bp(V Y  * 3R /N X\   Y@$C?==XyTRM_DSFKAT2 94250-1X155 REV.2340 <870420.1037>/SRC_94250/R5000/&FOTR1 =By6 F_SFK_TABLE )F_INFOw#TRM_DSFKAT2 ''%#.ENTR .CPMTRM_PACK_ESCTRM_SFK UTL_MOVETBUTL_PACK' &f2ak16d o~~ !AA!!r`vp p(3(=`@uhHt`p(."p`xpDp(K(i`w@pRV[r`@pb~%%b`@p`p(Flo#%ro0@F==XJTRM_DSFKAT4 94250-1X155 REV.2340 <870420.1037>/SRC_94250/R5000/&FOTR1 = A F_SFK_TABLE bTRM_DSFKAT4 .CPMTRM_SFK UTL_PACK &f2akoffVg11p`Hpp  ( (*` @Gh HF` p (p J (1(C`I@ p8 `@ p ? ` p (,f F C0 @40R<<X TRM_PAINT 94250-1X155 REV.2340 <870420.1037>/SRC_94250/R5000/&FOTR1 <By5)F_INFO F_SFK_TABLE r%TRM_PAINT )).ENTR .CPMTRM_PACK_ESCUTL_PACKUTL_MOVETBTRM_POS_CUR )--&dB&d@CCCCCCCC-!#@@##x@p`p"$p$p p(;(`@pBp!!(I(xMR `@P!(Y(^](q`!P(b(j`TTc%%@pi(q`@pq`!p!`@ p (D`@p `p(6`P((%T @!H==XUaTRM_POS_CUR 94250,1X155 REV.2340 <870420.1037>/SRC_94250/R5000/&FOTR1 =xTRM_POS_CUR .ENTR .CPMMOD UTL_PACK &a00r00C}}<EE`]pp(#(-`@\hH[`p(h`@_p pZ<Z`@_p^(T(Th`@_ppZRZ`@_pX }[ X0 @qL<<XTRM_READRQ94250-1X156 REV.2340 <830913.1453>/SRC_94250/R5000/&FOTR2 < C F_SFK_TABLE F_FIELD_STORAGE )F_INFO j-TRM_READRQ]] .ENTR .SBT .IBTS DVR_RDBLK TRM_SETUP_BLKRD UTL_WRITE TRM_PACK_ESCUTL_INIT_BUFTRM_LOCK_KYBD DVR_WREAD TRM_UNLOCK_KYBD TRM_SETUP_WREAD ] RE??`p ``hJ`h&(* -(1 5(9 <(@ BE H(L `P(PPO@@(S` `P(W(Z`(c`@`@@pA PhX 0( t(x ` (`P((p    ( ` AAs (` ( % ( ` P%((`(`A  2  H@sx==X>DTRM_ANALYZE 94250-1X156 REV.2340 <830913.1453>/SRC_94250/R5000/&FOTR2 =BF_FIELD_STORAGE )F_INFO\ TRM_ANALYZE (('.ENTR FRM_COMPLETETRM_ERR_CASEFRM_PARSE FRM_TYP_CHECK (.H{{jQ<<`Cp `(  (`P(#(.`)  (-(A1`P(?`:  (>(AA A{@==XK@TRM_ERR_CASE94250-1X156 REV.2340 <830913.1453>/SRC_94250/R5000/&FOTR2 =C F_MSSG F_FIELDS)F_INFO TRM_ERR_CASE<<n.ENTR UTL_WRITE UTL_TAB TRM_PACK_ESCUTL_MOVETBTRM_PREP_ENHUTL_INIT_BUFTRM_REQ_ERR <ZPrr88`?p   (`<@>p=)<,/# 2  (6`p p# P:r@!???X$$TRM_SETUP_WREAD 94250-1X156 REV.2340 <830913.1453>/SRC_94250/R5000/&FOTR2 ?\TRM_SETUP_WREAD &&.ENTR DVR_INFORMUTL_WRITE TRM_PACK_ESCUTL_INIT_BUF&  EE+!!A`#p ((!!E@??X+ TRM_SETUP_BLKRD 94250-1X156 REV.2340 <830913.1453>/SRC_94250/R5000/&FOTR2 ?MTRM_SETUP_BLKRD &&.ENTR DVR_INFORMUTL_WRITE TRM_PACK_ESCUTL_INIT_BUF&  ??@A`p ((?@؄??X TRM_RESET_READS 94250-1X156 REV.2340 <830913.1453>/SRC_94250/R5000/&FOTR2 ?dTRM_RESET_READS &&.ENTR DVR_INFORMUTL_WRITE TRM_PACK_ESCUTL_INIT_BUF&  ??@A`p ((?@{;==XXTRM_REQ_ERR 94250-1X156 REV.2340 <830913.1453>/SRC_94250/R5000/&FOTR2 =CJ)F_INFOF_FIELD_STORAGE F_FIELDScTRM_REQ_ERR 33.ENTR .LBT.SBT.CBT UTL_WRITE TRM_PACK_ESC TRM_FLD_ENH UTL_INIT_BUF3 _@@A`p `p `!@"p ` h (x` @ @p`hA(p`h(@(G(G`phHHh(bA`h(O(Y(YttRO77`ph h@"p"(b`phh`"p" f @ p ` @ @h` @ @p (!{ ~( p!t 3R ,K %D /N    @ *==X6%TRM_FLD_ENH 94250-1X156 REV.2340 <830913.1453>/SRC_94250/R5000/&FOTR2 =B)F_INFOF_FIELDS|%TRM_FLD_ENH "".ENTR .LBT.SBT.CBTUTL_PACKTRM_POS_CUR "\ &d@&v00S #AA#`p!`pp `(=p` @h H8 8(3`$@@p`$@@p`$@@phHPHphP0(c@puugd::g`$@@p#@phh`hA(~((`p(`h(((`#p`$@@@p (`p%u /N /N 00X 8p+6p* in0 0@*((I?<<X )TRM_ERROR 94250-1X157 REV.2340 <830913.1453>/SRC_94250/R5000/&FOTR3 <nTRM_ERROR Q`.ENTR TRM_PACK_ESCTRM_FLD_ENH   ))`p )@d$<<XTRM_DSPHLP94250-1X157 REV.2340 <830913.1453>/SRC_94250/R5000/&FOTR3 <B )F_INFO YF_FILEe@TRM_DSPHLPII ".ENTR .CPM.SBT .CBTUTL_WRITE UTL_MOVETB UTL_CLEAN_MOVETRM_POS_CUR UTL_INIT_BUFFMP_READTRM_PACK_ESCIQ  & mDDA@p`p`p`h'*@@p269(=Ap   (H(` pS{{*U??(Y` p ([`@ pb`h (j(r(r q (w w z(` p ` p (Ch 0({ - L r "  v@-==X\2TRM_CONF_HLP94250-1X157 REV.2340 <830913.1453>/SRC_94250/R5000/&FOTR3 = Ap)F_INFO w TRM_CONF_HLP-- .ENTR UTL_WRITE UTL_PACKTRM_PACK_ESCTRM_POS_CUR UTL_INIT_BUF- UJPP (( `1p   P((%!$(,(,/  /P@t>>XTRM_QUICK_HLP 94250-1X157 REV.2340 <830913.1453>/SRC_94250/R5000/&FOTR3 >TRM_QUICK_HLP .ENTR UTL_WRITE TRM_PACK_ESCUTL_INIT_BUF  ))LA`p )@==XWzTRM_SHOWHELP94250-1X157 REV.2340 <830913.1453>/SRC_94250/R5000/&FOTR3 =TRM_SHOWHELP11;.ENTR .MBTTRM_CONF_HLPFMP_CLOSE TRM_DSPHLPFMP_OPENTRM_QUICK_HLP 1   AAx`pAh`p P (((( (ʈ`(ӈ`  p  --& (` (` ` -@y9<<XFRM_FLDPTR94250-1X152 REV.2340 <830913.1449>/SRC_94250/R5000/&FOFRM <$$D|F_FIELDSF_FILEF_USERBUFF F_TERMBUFF$U@FRM_FLDPTRF.ENTR .CPM.LBT.SBT.CBT V DDA `p P((# @@(-@@@@ @@ ` @@ ` @@HH` @@p`h(R}}XQ@@p`h(\0(` @@p ` @@p `p pA (z(` @p` @phHHh` p ` p `p(u@@}$$HHp`x @@$ Ji *I ))CL p!  ?)@j>>XI}FRM_FIELD_NAME94250-1X152 REV.2340 <830913.1449>/SRC_94250/R5000/&FOFRM >))D]F_FIELD_STORAGE F_FIELDSF_USERBUFFF_TERMBUFF)FRM_FIELD_NAME.ENTR .CPM.CBT   ~~ AAA  xu`yp ` p`p {(#(p` (j`z @@xp`pr`z @r@xp`{@pr`z @r@xp`|@pr`z @r@x~SSL&&p`whut(_`z @@xp (i` `  `p `{p(%`p `p(St p@>>XEFRM_TYP_CHECK 94250-1X152 REV.2340 <830913.1449>/SRC_94250/R5000/&FOFRM >B8F_FIELD_STORAGE F_FIELDS6FRM_TYP_CHECK %%Z.ENTR .CBTFRM_POS_FLAGUTL_GET_FIELD UTL_INIT_BUF% ~~s\4AA4`p354Ap/`p0`0(M21`0@@P2(Z`5p0(`0@@p`1Pp`hA(n(xv0~%%H*u/`4`0@@p0`/p/(E6% 3R    @Hg==XIBFRM_POS_FLAG94250-1X152 REV.2340 <830913.1449>/SRC_94250/R5000/&FOFRM =B)F_INFOF_FIELDSFRM_POS_FLAG.ENTR .LBT.SBT.CBT  bba00`@p`#(p#`A@@?p`8h>7(!()()h/SRC_94250/R5000/&FOFRM <B8F_FIELD_STORAGE F_FIELDS^&6FRM_PARSE --'.ENTR .CBTFRM_POS_FLAGMIS_CONVERT UTL_GET_FIELD UTL_INIT_BUF-  5CCA5`p45?`p-p.`-(wK|23`-@@p`{hz(aaz|21/55P(e(p`-@@p-`.p.(vt-.p-(C qx6 $C z  w@==XOTFRM_COMPLETE94250-1X152 REV.2340 <830913.1449>/SRC_94250/R5000/&FOFRM =00E)F_INFOF_FIELD_STORAGE F_FIELDSF_USERBUFF F_TERMBUFF0mFRM_COMPLETE).CPM.LBT.SBTUTL_INIT_BUF  ~~-L;;p`Rp`p`(Hp`S@@Qp`S@@QpA()(=`@PpN`@OpLhLHHhN`p`p`p ($`p`S~C@@Qp(K H@*:<<XvWFRM_CLEARB94250-1X152 REV.2340 <830913.1449>/SRC_94250/R5000/&FOFRM <((D#)F_INFOF_FIELD_STORAGE F_USERBUFFF_TERMBUFF(QFRM_CLEARB  l.ENTR .SBT  @@A`UpPX 0(+`(+p`&(+pQ`@TpS`VhSH88Q(!PX 0(M`&pp`'(MpP`@TpS`VhS F `p88P(@hRPM @ze%<<XFRM_INITB 94250-1X152 REV.2340 <830913.1449>/SRC_94250/R5000/&FOFRM <CIF_FIELD_STORAGE )F_INFO F_FIELDSK  FRM_INITB "".ENTR .CPM.LBT.CBTFRM_INCOM FRM_INITV "    AA `|p  P((S`@p `(Np(%(N`~@@{p`xhzw(4HpvhxP}0v(JC  (J` `pggcJ,,`p(  (R(t P(W(f`(e_  (e` (t`(tn  (t`  g *I Kw  ti@tZ<<XfYFRM_INCOM 94250-1X152 REV.2340 <830913.1449>/SRC_94250/R5000/&FOFRM <B)F_INFOF_FIELDSP FRM_INCOM  }.ENTR .LBT.CBTFRM_INITV   -DDA`Vp (N p`(N`W@@Up`RhTQ()pPhRHPX0P(F8  (>p(E`W@@Up(M`W@@UCLp(  *I Q Ni@<Z<<Xo]FRM_INITV 94250-1X152 REV.2340 <830913.1449>/SRC_94250/R5000/&FOFRM <..ElgF_FILE_PARAMF_FIELDSF_FILE F_USERBUFF F_TERMBUFF._  FRM_INITV 9.ENTR .CPM.LBT.SBTFMP_READ *!FO ~~? @@A `Yp ` @[p     ($p`\p`Z @@Xp`Z @@XpA(;(O`@WpU`@VpShSHHhU`p`~ Jp`((p(6 KR @!O?@k<<XFRM_BASIS 94250-1X152 REV.2340 <830913.1449>/SRC_94250/R5000/&FOFRM <99FkF_FILE_PARAM F_FIELD_STORAGE )F_INFOF_FILEF_USERBUFF F_TERMBUFF9^ FRM_BASIS .ENTR .CPM .LBT.SBT .CBTFMP_READ (FO }}$88`p`ppp `h p`h@p` hp pp pp pp p!p" p#p$ p%p& p'E}~~(?55(I`P(O``pJ([([`J (c(c``@@ hHp`@~6t22@@H 0(``p`p h h`ph h`ph h`p`p&`@p'`@@@'p%`p tt422`p ` @p p  p `hA (p؈A`h ((ʈH`h(͈J`h`@ p`@p`@p t %D -L :Y 88H `` ` +  *    - ,NSA 8@<<Xa\FRM_FIELD 94250-1X152 REV.2340 <830913.1449>/SRC_94250/R5000/&FOFRM <AAGNF_FILE_PARAMF_FIELD_STORAGE )F_INFOF_FILE F_FIELDS F_USERBUFFF_TERMBUFFAF FRM_FIELD %%C.ENTR .CPM .LBT.SBT .CBT FRM_FLDPTRFMP_READ%6 FO>>>`Spp`&@'(+(5`@GpF`YhF`p($Jp(<(;@@pH(N`p(7`T@@Rh`>W;;p=`T@=@Rh`Z@p=`T@=@Rh`[@p=`T@=@Rh`T@@Rh`T@@Rh`T@@Rh`UhMJ`XhI`P((~~@@H`WhM`VhI`T@ @Rh[H(`T@ @RhZH`T@@Rh`T@@R `T@@R hD hKhB h@`T@ @Rh`T@ @R~:??h` p=`T@=@Rh`T@@Rp`Uh@`QhOA ?(((hM hK(hIHJ hK` p`T@ @Rh`Zp`&p \\.,,(7((hM hKH(%hI hKJ `p`T@ @Rhpp 7`p(7\ %D 77ڑ? E A$%" ;NinI 7@Hg==XhaMIS_CONVERT 94250-1X159 REV.2340 <870420.1037>/SRC_94250/R5000/&FOMIS = A?F_MSSG <MIS_CONVERT "".ENTR .CPM.ARTN .LBT.SBT.CBT.FMUI " 1j Bz H~ 1n 5r 9v :o 11 22 24  21 33 41  21 35 46 35  35 41 z E N W r F s J v L T /22253146568<898984?435>46568<8989(J6868686868 11 22 &24 @A3= 98 AB3= UI9898 =D57 98 "7: (+7; U@9191 GG݈x:x8@8phFh@hDh6h2h4`Xh.H`Wh,hBh0H`Vh*`Uh(PpЈ`Tp`@O 88(pp~~$==p`Np`Mp`Lp`KppTpp(8(`Tp`:hU>>p(K`S(`jp(h>h%`[TpT`[Sp`Pj((pЈ`Z(`:h<((1(1`A 0 pɨpɨ`@p`ʈpȨpɈ`Z@~~VBBp](&(&`Z∈`@#p`@p"h"HHh(`CFKCeOhs~Ipɀpɨppp`Z@˄p](Z(Z`Y∈`@#p"`@~}}_<>((`[U@pш`Zp`pȈ(`@\@p`[U҈@p`RpT`p`p(3(`:h/SRC_94250/R5000/&FOMIS = AEF_MSSG j8MIS_TO_ASCI CC @.FSB..FCM .ENTR .CPM .ARTN MOD .SBST .SST .NFEX .CBT UTL_MOVE_DATA .FMUR .FMUO C @ ~~2II22x)3x'`7p1`6p+`5p,7`)h/!(Q(e(e5Ap50(d`C7,(}6(}6Ap6D 0(}`C~{BB7,pAE((`@4 `p(`)h/!(((5`p0(6`p0@0p0-`@-p`(4p.(4~~pCCp.`)h/!(((.((`C7A,(&!4 A , `(p &4(p*Ap/>.((`C7(4pp`p6(p`Dp~K??(`((b@.(;(;A((`p`pp(:A.($($`p`@p(8@.p`@.@9p2-`@-p`-(`>(C`C7(a`>p`@.(R(R`p`p(a`@.p`p^-`@-p(p*`=p`@<.((@`.@B(v({`p`p(`/}}az}@@p/`.@@8p`p-`@-p`-pA</(`p@`((`@4h?`p(((`@.(p`(ňp`@4}~~n==hH488(`?p`@@<.((`8@.p(p`p`;@.p-(`Ap`@@.((`p`p(`@.p`p~~~FTOO-`@-p7A(,&!4 A , ` NrrA&A  0 @HpxA&A  * `8@pp`@@(=(N&D  0@ @~~~ IJJp`p(5 V&`@0 ?@|==X`(MIS_UPSHIFT 94250-1X159 REV.2340 <870420.1037>/SRC_94250/R5000/&FOMIS = A;F_MSSG =MIS_UPSHIFT .ENTR .LBT.SBT55Qx&x$`'Hph&h"H`@ Hphh$@5} @@Ut==X UTL_INIT_BUF94250-1X158 REV.2340 <830913.1454>/SRC_94250/R5000/&FOUTL =C)F_INFOF_USERBUFFF_TERMBUFFiUTL_INIT_BUF7/ p` pp@;;X/UTL_PACK94250-1X158 REV.2340 <830913.1454>/SRC_94250/R5000/&FOUTL ;C)F_INFOF_USERBUFFF_TERMBUFF UTL_PACK .ENTR .CPM.LBT.SBTNNZ%%@p(`.ppA((&`@(p`@-p*h,h*`p`p(Nx) p&@o"/<<X!8UTL_WRITE 94250-1X158 REV.2340 <830913.1454>/SRC_94250/R5000/&FOUTL < Al)F_INFO jUTL_WRITE .ENTR .CPMDVR_WRITE DVR_PACK_ESC77A`pA(( @p7  @]<<X3g<UTL_MOVETB94250-1X158 REV.2340 <830913.1454>/SRC_94250/R5000/&FOUTL <C)F_INFOF_USERBUFFF_TERMBUFF|UTL_MOVETBA.ENTR .CPM.SBST .SST.NFEX ^^^@11Ax:`;p(pp((2`@8p749D64J `p`p`p(^s602@}<<X%QUTL_FROMTB94250-1X158 REV.2340 <830913.1454>/SRC_94250/R5000/&FOUTL <BF_USERBUFFF_TERMBUFFn'UTL_FROMTB .ENTR FOMOV  00V:@p`p(0  @l>>X"KUTL_CLEAN_MOVE94250-1X158 REV.2340 <830913.1454>/SRC_94250/R5000/&FOUTL > UTL_CLEAN_MOVE "".&.ENTR .CPM.SBST .INDX .NFEX UTL_MOVETB"tt!@@AxIxG`Jppp`(BDHDDFp`(.`p(1@p6H`@Ap(A(Ap( tFB@?]^>>X pUTL_GET_FIELD 94250-1X158 REV.2340 <830913.1454>/SRC_94250/R5000/&FOUTL >CF_USERBUFFF_TERMBUFF)F_INFO UTL_GET_FIELD G.ENTR .CPM.LBT.SBT.CBT  >>Axi@ipb`npp`opa`@bHpghkhgH88a(`p`J(_%(4(4p([`@epg`ghmc(?(B(Bp([EEzD@bpg`@epdhdHJhg`@epd`dhkAc([`` p() E  Mc P_@Whv(>>XEUTL_MOVE_DATA 94250-1X158 REV.2340 <830913.1454>/SRC_94250/R5000/&FOUTL >  UTL_MOVE_DATA .ENTR .LBT.SBTnn77@p=xC@Cp<`Dppp p`(#(8`@=p`@ :@I= ;;X&UTL_TAB 94250-1X158 REV.2340 <830913.1454>/SRC_94250/R5000/&FOUTL ; UTL_TAB  c.ENTR .CPMUTL_PACKHI::"A`%pp@(("`p(: %" @<<X$ |rDVR_SETUP 94250-1X161 REV.2340 <920729.0907>/SRC_94250/R6000/&FODVR < Ak)F_INFO qDVR_SETUP "".ENTR .CPM.LBT.SBTDVR_CONFIGOS_STATIC "              J<<A`yp p&(*`P (.(1`{p`@w(:(W`@@@wP(B(S`@ @@xp`@tpshsHJhv`EEP!!@wp`p(3`h 0(c`z(gk(oE}r  o@%bD"<<X7rDVR_CONFIG94250-1X161 REV.2340 <920729.0907>/SRC_94250/R6000/&FODVR < Ak)F_INFO T,DVR_CONFIG.ENTR OS_CNTL   @       Ts a     FF  ## `5p  6@@4  p0`6@@3p1*01(. F 73. @w<<X'rDVR_WRITE 94250-1X161 REV.2340 <920729.0907>/SRC_94250/R6000/&FODVR < Ak)F_INFO _DVR_WRITE  .ENTR OS_I_O  CCW""`$p`&p`P((`%p(p""@C@ W;;X+rDVR_READ94250-1X161 REV.2340 <920729.0907>/SRC_94250/R6000/&FODVR ; DVR_READ 8,.ENTR OS_I_ODVR_FLUSH HH2%%`)ppp("`('`*'H@ڹ<<X ~rDVR_RDBLK 94250-1X161 REV.2340 <920729.0907>/SRC_94250/R6000/&FODVR <C)F_INFO F_USERBUFF F_TERMBUFFY DVR_RDBLK 66.ENTR .CBTOS_I_OUTL_WRITE TRM_PACK_ESCUTL_MOVETBUTL_INIT_BUFDVR_FLUSH 6  K ?? w`{p p "p )w ,/(3`P(7(A P(;(>`}p(@`|p(M`P(E(Hp(M`XX J**p`|pp X (\`P(`(r(d(r@vpu`uhz t(o(r(rX  t r@<<X &rDVR_INFORM94250-1X161 REV.2340 <920729.0907>/SRC_94250/R6000/&FODVR < Al)F_INFO [/DVR_INFORMsM.ENTR OS_CNTL DVR_FLUSH   GGGm""A`$ppp`P((`%p(""@G@@<<XrDVR_FLUSH 94250-1X161 REV.2340 <920729.0907>/SRC_94250/R6000/&FODVR < Aj)F_INFO ]DVR_FLUSH  *OS_CNTL  22 p`p`P hX 0(2 z @-mL-<<X!rDVR_STRAPS94250-1X161 REV.2340 <920729.0907>/SRC_94250/R6000/&FODVR < Ak)F_INFO o,DVR_STRAPS.ENTR TRM_PACK_ESC11`P( (((1@==Xq rDVR_PACK_ESC94250-1X161 REV.2340 <920729.0907>/SRC_94250/R6000/&FODVR = Aj)F_INFO VDVR_PACK_ESC TRM_PACK_ESC !! p`P(  !@b9"<<X ArDVR_WREAD 94250-1X161 REV.6000 <920729.0907>/SRC_94250/R6000/&FODVR <C)F_INFO F_USERBUFF F_TERMBUFFZ DVR_WREAD 33 /.ENTR .CPM.LBT.SBT .IBTE .CBTHPCRTSSRCDRIVER OS_I_ODVR_FLUSH 3   = o ~~??`;p` PhX 0(,p(.`@p7 (;`P(?(` (E`(((P (I(W`4h2A+(Q(T(T`~#R>>(V`=(`4h:+(a`(`,h8+(hp)A`,h6+0)(x`(h,h.` @('`P((p(p`?AAp)`>0)(`( (`( < ((`(`4h:+(`(`,h8+(p)A`,h6+0)(`(h,h.` @}}^f@@('`<(`('` Ap) <0)(`=('P ((`4h0A+(((`(`=('A`4h:+(p)`,h8A+(0)p)}22A`,h6+0)(`=('h,h.` @2 X w Q p   ++;+    '+@d;;X2MFMP_OPEN94250-1X160 REV.2340 <830913.1455>/SRC_94250/R5000/&FOFMP ; FMP_OPEN  .ENTR OPENNAMR  ggT377@pH@pG`Kp`Jp`Ipp p 1 (A; (@`Lg IEA3 @V<<XFMP_CLOSE 94250-1X160 REV.2340 <830913.1455>/SRC_94250/R5000/&FOFMP <PFMP_CLOSE  .ENTR CLOSE !!wpA@p`p!  @,7;;XEFMP_READ94250-1X160 REV.2340 <830913.1455>/SRC_94250/R5000/&FOFMP ; AF_FILE  FMP_READ 1.ENTR READF POSNT  (FO {{`>>@pB`Cpp(#*(/`D(5P(9(<`(?@ { 9C? @==XlhOS_LU_SETUP 94250-1X162 REV.2505 <850114.1733>/SRC_94250/R5000/&FOOS1 = Ak)F_INFO VOS_LU_SETUP .ENTR .CPM.OPSY  ?~~>>`bp pp xAp g (&(3` @aP (,(/ ` p (!`fP (7(: p(<`ep(@ `@`p^Ac~((=M0^(V`d(Z p(`\ @-::X~_OS_I_O94250-1X162 REV.2505 <850114.1733>/SRC_94250/R5000/&FOOS1 :C)F_INFOF_USERBUFFF_TERMBUFF OS_I_O &.ENTR XLUEX .LBT   ??A `Yp`^ p`p p pSA'S(B x P(.(A` `P(4(A`]p`pp@(BpxhXH@[b\H \pShV@S@[@ZU Q @p0;;X:OS_CNTL 94250-1X162 REV.2505 <850114.1733>/SRC_94250/R5000/&FOOS1 ; Ak)F_INFO + OS_CNTL  &.ENTR XLUEX .LBT  PPb((A`5p `9p`ppA(pHxh4@78p/h2H@/@7@6  P¯1 - @}=<<X M[OS_STATIC 94250-1X162 REV.2505 <850114.1733>/SRC_94250/R5000/&FOOS1 < Ak)F_INFO |OS_STATIC &.ENTR XLUEX .LBT  fs @@ `Sp`  `Zp `pp & (<`X(.` `W `P(6(;`V pxhRH@UYHpMhP@M@U@T K YO K? @s::XlǬ6$FOMOV 94250-1X163 REV.2340 <830913.1446>/SRC_94250/R5000/&FOMOV : HFOMOV  d.ENTR .MBT ))TAp`6h6A)@+///~~w  DVR_CONFIG5S DVR_FLUSH hS DVR_INFORMS DVR_PACK_ESCE DVR_RDBLK f[$IDVR_READ4[ DVR_SETUP hl DVR_STRAPS  DVR_WREAD W[ DVR_WRITE u[FLULB ~~~ FMP_CLOSE FMP_OPEN)FMP_READ FOMOV @ FRM_BASIS + FRM_CLEARB FRM_COMPLETE( FRM_FIELD 6FRM_FIELD_NAMEw FRM_FLDPTRs FRM_INCOM   FRM_INITB M~~~h  FRM_INITV L FRM_PARSE L4 FRM_POS_FLAG}FRM_TYP_CHECK z* MIS_CONVERT 7 MIS_TO_ASCI j- MIS_UPSHIFT oOS_CNTL 3OS_I_Oo OS_LU_SETUP & OS_STATIC ~~~H TRM_ANALYZE VP&YTRM_CHECK2645Ar TRM_CONFIG2 SI TRM_CONF_HLPm#8ITRM_DISP_RESETD)jI TRM_DSDISP;e$ITRM_DSFK8I TRM_DSFKAT2 GC$8~~~y TRM_DSFKAT4 J18 TRM_DSPHLPi'$I TRM_DSPTXT0$I TRM_DSUNP >_$I TRM_DSWDW 5($I TRM_ERROR hj TRM_ERR_CASEXv%$@I TRM_FLD_ENH d8~~~RK TRM_FORMS_USE QS TRM_GETYPEA>ITRM_GET_STATUSp>ITRM_LOCK_KYBD  +I TRM_MSG_FILE! TRM_PACK_ESC)D8 TRM_PAINT L7$8 TRM_POS_CUR Og8 TRM_PREP_ENHA$8~~~TRM_QUICK_HLP oI TRM_READRQQ{/]I TRM_REQ_ERR `jI TRM_RESET Sa$ITRM_RESET_READS ^NI TRM_RTE_USE1KI TRM_RTE_USE2( TRM_PREP_ENHA$P~~~ TRM_SETUP k/SaITRM_SETUP_BLKRD ]ITRM_SETUP_WREAD [+ITRM_SFK 'C8TRM_SHOW.I TRM_SHOWHELPpJTRM_UNLOCK_KYBD  uIUTL_CLEAN_MOVE0$P~~~٨ UTL_FROMTBnUTL_GET_FIELD 2 UTL_INIT_BUF2 UTL_MOVETBnUTL_MOVE_DATA >UTL_PACKCUTL_TAB +8 UTL_WRITE ,$hpJ &,<TRM_UNLOCK_KYBD  u8MRUTL_CLEAN_MOVE0NP~$FOPLL::FORMS:5:97:127 644 0 0 60400 5303444510 32577 $FOPLL::FORMS:5:97:127 $a w a$FOPLL +IH+IH+IHa0=FFST \ $--X\FOPLL 94250-12005 REV.2505 <841228.1031>- CFOPLL  kIp@n_11XyFACTIVATEFORM 94250-1X201 REV.2340 <830913.1505>1Cp F_FIELD_STORAGE )F_INFOF_FILE؝FACTIVATEFORM == n.ENTR .CPM.MBT TRM_FORMS_USE TRM_LOCK_KYBD FRM_FIELD FRM_BASIS FMP_CLOSE FMP_OPEN=~~ɇ ??  x@ p`p h`p `p` @ 8 A8(&(6(6`J (>(>` D(H `(Q~K::`P h`A Z(^  b(f  i(m  p(t `p`  `@h `@h&`@h' X  @  @&El00X+-FACTIVATERM 94250-1X202 REV.2340 <830913.1505>0By4 F_SFK_TABLE )F_INFOKFACTIVATERM TT r.ENTR .CPM.SST.NFEX DVR_CONFIG TRM_UNLOCK_KYBD TRM_RTE_USE2 TRM_RTE_USE1 TRM_SETUP DVR_SETUP TRM_MSG_FILEOS_LU_SETUP T  ~~)@@x}`p`pA`}p{z~`( `Apx0x(.`p`(6`:(>A(E~qqD44`p J(N`p T|(X`p(v(b(k e h k(p(tt pq$y vZ @TN((s22Xa1FDEACTIVATEFORM 94250-1X203 REV.2340 <830913.1505>2BF_FILE)F_INFOFDEACTIVATEFORM ,,r.ENTR .CPMTRM_RTE_USE2TRM_RTE_USE1TRM_LOCK_KYBD FMP_CLOSE ,dd$h00A`-pA0((`/`.p( ($'(++ d@D11Xs(7FDEACTIVATERM 94250-1X204 REV.2505 <841227.1637>1 Al)F_INFO ΊFDEACTIVATERM --.ENTR .CPMTRM_GET_STATUSDVR_CONFIGTRM_RESET F_DEACTIVATEFORM-  __b00A`4pA6((`5p(#'(+0220 _@@_V//XFGETBUFFER94250-1X205 REV.2340 <830913.1506>/CN)F_INFOF_USERBUFFF_TERMBUFF<% FGETBUFFERA.ENTR .CPM.SBST .SST.NFEX   )FFAx`p  ((` p0(/` DHp0(G` P(K(P`&xx/@L;;pp(_P(T(Z`'p`&p(_`&@'pp`(c(m(mp` (o`p` H`@@pD@ x 00p @00XKuFGETINTEGER 94250-1X206 REV.2340 <830913.1506>0$$D)F_INFOF_FIELDSF_USERBUFF F_TERMBUFF$6FGETINTEGER !!i.ENTR .CPM.CBTMIS_CONVERT FRM_FIELD_NAME!.I  }}@@Axk`op t(&(&`s -j  ` P(1(4`p `p @@npA`ihme(E`r `p @@np ` @gpf}--vO`p @@npd]hed`(b`q- eb  @..XxFGETREAL94250-1X207 REV.2340 <830913.1506>.$$D)F_INFOF_FIELDSF_USERBUFF F_TERMBUFF$ FGETREAL !!i.ENTR .CPM.CBTMIS_CONVERT FRM_FIELD_NAME!7R  kBBAxl`pp qw('('`v .k  ` P(2(5`s `s@@op`jhnAf(F`u `s@@op ` @hpg--P`s@@ope^ife`(c`t-###fc #@%//X CFGETSTRING94250-1X208 REV.2340 <830913.1507>/$$D()F_INFO F_FIELDS F_USERBUFF F_TERMBUFF$b3FGETSTRING //.ENTR .CPM.SBST .SST.NFEX .CBT MIS_UPSHIFT FRM_FIELD_NAME/Nu  P C ~~DDx4@p+x2`:pAA(5(5`BAp @ (<(b ;(K(K` @+(J`A`@p (^` @+h H+p)@,0)~~~YAA(^`A`@p ` p (7(fp)A0)(y`?3`P((`<`<@@9p`0h8,(`>`<~~~AA@@9p)1D,D)5((`=(``<@@9p p p`;@+P((@ p pp  ((` p ` @.p-`-h6@~~~CC,(`;p` A@ ((` @p `p ` p (P((p  (('P((` @.p-)1J  ,)( A)1  ` @.p-)~x ,` p ` p (**',P ' *@"00X^EFINITFIELDS 94250-1X209 REV.2340 <830913.1507>0 Al)F_INFO FINITFIELDS [.ENTR .CPMFRM_INITB FRM_CLEARB  rrd%;;A`>pAD((`Cp=AB0=("`AAp=@0=(0`?3P(7(;;r>; @J //XFPUTBUFFER94250-1X210 REV.2340 <830913.1507>/CN)F_INFOF_USERBUFFF_TERMBUFFL, FPUTBUFFERA.ENTR .CPM.SBST .SST.NFEX   kAAx`pA ((` Ap0(,` pA0(:` P(>(C`&pp(RP(G(MxxG??`'p`&p(R`&@'pp`(V`@@pDD(i(lp(p`p` `@@pDD@ x 00p @ ([00XWlFPUTINTEGER 94250-1X211 REV.2340 <830913.1507>0$$D)F_INFOF_FIELDSF_USERBUFF F_TERMBUFF$>FPUTINTEGER !!.ENTR .CPM.CBTMIS_TO_ASCI FRM_FIELD_NAME!.I  }}@@Axc`gp k(#(#`j *b  ` P(.(1`h `h@@fp`aheA](B`i `h@@fp ` @_p^`h}GN@@fp\Z`]\]Z @6..XkFPUTREAL94250-1X212 REV.2340 <830913.1507>.$$D)F_INFOF_FIELDSF_USERBUFF F_TERMBUFF$ FPUTREAL !!.ENTR .CPM.CBTMIS_TO_ASCI FRM_FIELD_NAME!7R  }} @@A xb`fp j("("`i )a  ` P(-(0`g `g@@ep``hdA\(A`h `g@@ep`@^p]`g}<M@@ep[Y_\[\Y @ڴt//X`FPUTSTRING94250-1X213 REV.2340 <830913.1508>/$$D")F_INFOF_USERBUFF F_TERMBUFF F_FIELDS$r3FPUTSTRING !!.ENTR .CPM.LBT.SBT.CBTFRM_FIELD_NAME!JC  }}DDxֈx@pˈ`p A(,(,` Àp0(?` F ` P(J(M` `݀ @@p}DT@@A`h(^` pA(e(v`@pψA`h(r(p(r``p(`(z `݀ @@p`݀ @@p Ap ((`@phooF66h`p`p( ((` p `(p p` @@Ap ((`@p`@ˈHphhH`p`p(o--.  P -@//X@FSETCURSOR94250-1X214 REV.2340 <830913.1508>/ Al)F_INFO S>FSETCURSOR-.ENTR .CPMFRM_FIELD_NAMEHIgg 44 x:`;p A?( ( `> '9  ` P(+(.`= ` P(2(5`< `p$7g@.O11XFSHOWALTERNATE94250-1X215 REV.2340 <830913.1508>1B)F_INFO F_FIELDSFSHOWALTERNATE77 {y.ENTR .CPM.LBT.SBT.CBT UTL_WRITE TRM_ERROR UTL_INIT_BUFFRM_FIELD_NAME7N R :AAAx`p (#(#` * ` P(.(1` p0(?` ` @@pP(J(\hh`~~ӴO==h(V(Y(Yp([pH(mhhH`h(h(k(kp(mpo s  v(z hHHh` @@h` P((`"@p"~_(` @p !!$    !@400XYr((FSHOWFIELDS 94250-1X216 REV.2340 <830913.1508>0 Al)F_INFO !FSHOWFIELDS 22.ENTR .CPMTRM_DSUNP TRM_DSDISPTRM_DSWDW TRM_DISP_RESETTRM_REQ_ERR 2~~==`mpq((`ppln0l( `o`"(,&(*p"` (82(6p `(D>~[[v>..(B pp$hn 0(XT(Xhn 0(jf(j[mj@J //XCFSHOWFORM 94250-1X217 REV.2340 <830913.1508>/ Al)F_INFO dFSHOWFORM &&2.ENTR .CPMTRM_DSFKTRM_DSWDW TRM_DSPTXTTRM_SHOW&~~q;;A`?pAB((`A pp pp p#p$ p("(&)(-0(47(;`@~"<p= @v蕨//X r)FSHOWHELP 94250-1X218 REV.2340 <830913.1509>/ Al)F_INFO ]FSHOWHELP C.ENTR .CPMTRM_SHOWHELPNN((Ax%`&p(((`'$( p("N@.11XFSHOWSFKLABELS94250-1X219 REV.2340 <830913.1509>1By8  F_SFK_TABLE )F_INFO FSHOWSFKLABELS<< R.ENTR .CPM.CBT UTL_WRITE TRM_PACK_ESC TRM_PAINT TRM_DSFKAT2 UTL_INIT_BUFTRM_DSFK<o:2 V ]]BBA xs`}p ((`  0(,` (72  (6(o9<A`{hyt(D(I(IHr(U`wQQTfJ''hut(Q(U(U UrX [  (o`ppA~(g(o`@|h`p(b Q##r  0- 0 o#@Ut?//X /FSHOWINDOW94250-1X220 REV.2340 <830913.1509>/ Al)F_INFO fJ3FSHOWINDOWGG .ENTR .CPM.SBST .SST.NFEX TRM_DSWDW UTL_WRITE TRM_PACK_ESC UTL_MOVETB TRM_PREP_ENHUTL_INIT_BUFGLPiP/LL/0x`p.A2(E(E`A2.1p10(X`2.// 0(g`2./(k(AAA11QQpW{&&A   22(`p( 22(`p3Q  P PP J@=//XFWAITEVENT94250-1X221 REV.2340 <830913.1509>/ Al)F_INFO c FWAITEVENTQQ .ENTR .CPM TRM_RESET_READS TRM_DSWDW TRM_REQ_ERR TRM_ANALYZE TRM_READRQUTL_WRITE UTL_TAB TRM_PACK_ESCUTL_INIT_BUFQ  ~~yJ@@A`pA ((`A 0(&` `((8+.1$4  (8p(p`(|pG ~~~G99 ({P(y`P(Q(x U  (x`P(\(_p(x`"(j e  (jp" (x`(x s  (x p({p((< ( ~ #  @Dc]11X+"F_ACTIVATEFORM94250-1X251 REV.2340 <830913.1033>1F_ACTIVATEFORM .ENTR FACTIVATEFORM FSTRC 33@p@p !3   @M00XUF_ACTIVATERM94250-1X252 REV.2340 <830913.1033>0VF_ACTIVATERM4D.ENTR FACTIVATERM FSTRC ..x_@p.  @22XX F_DEACTIVATEFORM94250-1X253 REV.2340 <830913.1033>2EF_DEACTIVATEFORM.ENTR FDEACTIVATEFORM h' A@[zd11X F_DEACTIVATERM94250-1X254 REV.2340 <830913.1033>1F_DEACTIVATERM.ENTR FDEACTIVATERM h' A@}00XO6F_GETBUFFER 94250-1X255 REV.2340 <830913.1033>0,F_GETBUFFER e.ENTR .CPMFGETBUFFERFSTRC PPR--A@p1`2pp0500( `4%3.P m2.0 @00X;F_GETINTEGER94250-1X256 REV.2340 <830913.1033>0pF_GETINTEGERP&.ENTR FGETINTEGER FSTRC ++;A@p+  @(G//XmF_GETREAL 94250-1X257 REV.2340 <830913.1034>/UF_GETREAL .ENTR FGETREALFSTRC ++;A@p+  @Q00XJMF_GETSTRING 94250-1X258 REV.2340 <830913.1034>0\ F_GETSTRING .ENTR .CPMFGETSTRINGFSTRC kk??@pG@pF@pE`HpAIpDL0D(,`K 1IJ8IB   kHBP@00X- F_INITFIELDS94250-1X259 REV.2340 <830913.1034>0zF_INITFIELDSH.ENTR FINITFIELDS  A @9XG00XT4F_PUTBUFFER 94250-1X260 REV.2340 <830913.1034>0:F_PUTBUFFER u.ENTR .CPMFPUTBUFFERFSTRC MM++@p/`0pp.A30.(`2$1,M i0,0 @00XAF_PUTINTEGER94250-1X261 REV.2340 <830913.1034>0F_PUTINTEGER`/.ENTR FPUTINTEGER FSTRC ++;A@p+  @Fe//X~F_PUTREAL 94250-1X262 REV.2340 <830913.1034>/^F_PUTREAL .ENTR FPUTREALFSTRC ++;A@p+  @{4;00XOEF_PUTSTRING 94250-1X263 REV.2340 <830913.1034>0e F_PUTSTRING .ENTR .CPMFPUTSTRINGFSTRC ``;N88@p?@p>`@pAAp=D0=('`C,AB3A; `@;P@]00XhF_SETCURSOR 94250-1X264 REV.2340 <830913.1034>0<F_SETCURSOR 3.ENTR FSETCURSORFSTRC ))~!@p)  @tr222XkF_SHOWALTERNATE 94250-1X265 REV.2340 <830913.1034>29F_SHOWALTERNATE .ENTR FSHOWALTERNATEFSTRC ++;A@p+  @300X: F_SHOWFIELDS94250-1X266 REV.2340 <830913.1034>0uF_SHOWFIELDS~X.ENTR FSHOWFIELDS q  @)kH+//X F_SHOWFORM94250-1X267 REV.2340 <830913.1034>/d&F_SHOWFORM2 .ENTR FSHOWFORM h' A@K //XF_SHOWHELP94250-1X268 REV.2340 <830913.1034>/`(F_SHOWHELP.ENTR FSHOWHELP FSTRC ++;A@p+  @j22X\ F_SHOWSFKLABELS 94250-1X269 REV.2340 <830913.1034>2CF_SHOWSFKLABELS .ENTR FSHOWSFKLABELSFSTRC 00A@p`p0 | @V00XI7F_SHOWINDOW 94250-1X270 REV.2340 <830913.103((4>0TF_SHOWINDOW .ENTR .CPMFSHOWINDOWFSTRC PP=..@p2`3pA4p1601("`5'4/P 3/P @i00XB F_WAITEVENT 94250-1X271 REV.2340 <830913.1034>0IF_WAITEVENT 0D.ENTR FWAITEVENT A @#8<<XA FSTRC 94250-1X299 REV.2340 <830913.1034>/MARI/F2505/&FSTRC:::4:7:39 < MFSTRC .ENTR m Ah H @Ϲxxx~~^\ FACTIVATEFORM ^ FACTIVATERM 1FDEACTIVATEFORM FDEACTIVATERM  v FGETBUFFER h FGETINTEGER FGETREAL FGETSTRINGt FINITFIELDS qFOPLL  FPUTBUFFERs FPUTINTEGER  ~~~ FPUTREAL"} FPUTSTRING%\ FSETCURSOR*FSHOWALTERNATE, FSHOWFIELDS /g FSHOWFORM 2] FSHOWHELP 4m FSHOWINDOW9OFSHOWSFKLABELS6&FSTRC Z FWAITEVENT<pF_ACTIVATEFORM@B ~~~k  F_ACTIVATERMAfF_DEACTIVATEFORMCF_DEACTIVATERMC{& F_GETBUFFER Dq2 F_GETINTEGERF4; F_GETREAL GME F_GETSTRING HbM F_INITFIELDSJBV F_PUTBUFFER K:g F_PUTINTEGERLzp~~~Ee  F_PUTREAL N F_PUTSTRING O( F_SETCURSOR P}F_SHOWALTERNATE R F_SHOWFIELDSS1 F_SHOWFORMT& F_SHOWHELPU F_SHOWINDOW WPF_SHOWSFKLABELS V, F_WAITEVENT Y~$FOFRL::FORMS:5:49:127 644 0 0 30400 5303444512 32771 $FOFRL::FORMS:5:49:127 $1 w1$FOFRL +II+IJ+IJ1êFST .--X_FOFRL 94250-12006 REV.2340 <830913.0853>- IFOFRL  kIp@gf&11X\WF_ACTIVATEFORM94250-1X301 REV.2340 <830913.0853>1 AF_COMM F_ACTIVATEFORM !!.ENTR .MBTOS_WAIT1OS_SEND OS_SETUP_COMM !  ~~A>>xP@pN`TpP(P(`PhRQ,UUU(05Ud(9`j`kp`VpM`~YB @NhHS88M(A$O  kK@Ihr00X_OF_ACTIVATERM94250-1X302 REV.2340 <830913.0853>0 AF_COMM Y F_ACTIVATERM++EP.ENTR .MBTOS_TAKEDOWN_COMMOS_WAIT1OS_SEND OS_SETUP_COMM +  ~~K*==xH`Lp`Kp P( P̈(pp+NMM(/4Md(8`j`JhHG(E~gB E  ?E@ 22X|1F_DEACTIVATEFORM94250-1X303 REV.2340 <830913.0853>2 AF_COMM EF_DEACTIVATEFORMq.ENTR OS_WAIT1OS_SEND OS_SETUP_COMM   __b..A`.p P( P̈(0//(!&/d(*`j,_@11X49F_DEACTIVATERM94250-1X304 REV.2340 <830913.0853>1 AF_COMM F_DEACTIVATERM''ԥ.ENTR OS_TAKEDOWN_COMMOS_WAIT1OS_SEND OS_SETUP_COMM '  jjl44A`6p`5p P̊( P(!877(%*7d(.`j330j@dI00XXMF_GETBUFFER 94250-1X305 REV.2340 <830913.0853>0 AF_COMM - F_GETBUFFER %%U.ENTR REC_LONG_BUFOS_WAIT1OS_SEND OS_SETUP_COMM %  }}B==AxI`JpP(P(pp)LKK(-2Kd(6`j`kAHK}A `(F` 0F@00XFAF_GETINTEGER94250-1X306 REV.2340 <830913.0854>0 AF_COMM qF_GETINTEGER!!.ENTR .MBTOS_WAIT1OS_SEND OS_SETUP_COMM !  zz6>>Ax;`>pP(P(`;h=<'@??(+0?d(4`j`k 8z@ՖV//XCF_GETREAL 94250-1X307 REV.2340 <830913.0854>/ AF_COMM UF_GETREAL !!.ENTR .MBTOS_WAIT1OS_SEND OS_SETUP_COMM !  {{@@Ax=`@pP(P(`=h?>'BAA(+0Ad(4`jk :{@00XTAF_GETSTRING 94250-1X308 REV.2340 <830913.0854>0 AF_COMM [ F_GETSTRING 33 s.ENTR .CPM.SBST .SST .NFEX .MBTOS_WAIT1OS_SEND OS_SETUP_COMM 3   0AAAx@px`p  P̊(  P($A`hp p`p`@hH88(/A  (EbbE88Jd  (N`j `kp~~ p}}A({ AA    b"" P P   {Q"@Sir)00X77F_INITFIELDS94250-1X309 REV.2340 <830913.0854>0 AF_COMM }F_INITFIELDSq.ENTR OS_WAIT1OS_SEND OS_SETUP_COMM   llƘ44A`4p P̊( P(pp#655(',5d(0`j2 l@x\00X]>F_PUTBUFFER 94250-1X310 REV.2340 <830913.0854>0 AF_COMM :F_PUTBUFFER  X.ENTR OS_WAIT1SEND_LONG_BUF OS_SETUP_COMM  ttW;;x9`:p P̊( P(pp'8;=(+0<d(4`j06 t@~>00XK#AF_PUTINTEGER94250-1X311 REV.2340 <830913.0855>0 AF_COMM F_PUTINTEGER!!.ENTR .MBTOS_WAIT1OS_SEND OS_SETUP_COMM !  zzq>>Ax;`>pP(P(`;h=<p )@??(-2?d(6`j 8 z@Ts//XCF_PUTREAL 94250-1X312 REV.2340 <830913.0855>/ AF_COMM ^F_PUTREAL !!.ENTR .MBTOS_WAIT1OS_SEND OS_SETUP_COMM !  {{fo@@Ax=`@pP(P(`=h?>  +BAA(/4Ad(8`j : {@)H00XY:{F_PUTSTRING 94250-1X313 REV.2340 <830913.0855>0 AF_COMM dF_PUTSTRING 33 s.ENTR .CPM.SBST .SST.NFEX .MBT OS_WAIT1 OS_SEND OS_SETUP_COMM 3  ~~=LJJxqxo`vpP(((P(wApiz0i(2`y`qhuAtp lrDwjnwDljH@~==N@p Xxww(\ awd(e`j= 3jP P  g P@|<00Xr>F_SETCURSOR 94250-1X314 REV.2340 <830913.0855>0 AF_COMM =F_SETCURSOR !!.ENTR .MBTOS_WAIT1OS_SEND OS_SETUP_COMM !  ss* ;;x8`;p P( P̈(`8h:A 9&=<<(*/<d(3`j  5s@22XAF_SHOWALTERNATE 94250-1X315 REV.2340 <830913.0855>2 AF_COMM 9F_SHOWALTERNATE !!.ENTR .MBTOS_WAIT1OS_SEND OS_SETUP_COMM !  zz>>Ax;`>pP(P(p`;h=<)@??(-2?d(6`j 8z@*:H00XF4F_SHOWFIELDS94250-1X316 REV.2340 <830913.0856>0 AF_COMM xF_SHOWFIELDSq.ENTR OS_WAIT1OS_SEND OS_SETUP_COMM   ff11`1pP(P(p 322($)2d(-`j/f@Ut//X1F_SHOWFORM94250-1X317 REV.2340 <830913.0856>/ AF_COMM d)F_SHOWFORMq.ENTR OS_WAIT1OS_SEND OS_SETUP_COMM   __p..A`.p P( P̈(0//(!&/d(*`j,_@-LI//X AF_SHOWHELP94250-1X318 REV.2340 <830913.0856>/ AF_COMM `)F_SHOWHELP!!.ENTR .MBTOS_WAIT1OS_SEND OS_SETUP_COMM !   zzZ>>Ax;`>pP(P(`;h=<'@??(+0?d(4`j`k 8z@_1}22XyAF_SHOWSFKLABELS 94250-1X319 REV.2340 <830913.0856>2 AF_COMM CF_SHOWSFKLABELS !!.ENTR .MBTOS_WAIT1OS_SEND OS_SETUP_COMM ! A zz>>Ax;`>pP(P(p`;h=<)@??(-2?d(6`j 8z@DDc00XU%qF_SHOWINDOW 94250-1X320 REV.2340 <830913.0856>0 AF_COMM UF_SHOWINDOW //.ENTR .CPM.SBST .SST.NFEX OS_WAIT1OS_SEND OS_SETUP_COMM /  ~~7GGxi`lp P̊( P(Ampcp0c(/`oppfjmDdhDmHfd@@p~55<KRnmm(V [md(_`j5d PP aP@n፡00XM7F_WAITEVENT 94250-1X321 REV.2340 <830913.0856>0 AF_COMM LF_WAITEVENT q.ENTR OS_WAIT1OS_SEND OS_SETUP_COMM   ll844A`4p P̊( P(p!655(%*5d(.`j`k2l@<~~G FOFRL F_ACTIVATEFORM^ F_ACTIVATERMF_DEACTIVATEFORMDF_DEACTIVATERM) F_GETBUFFER  ! F_GETINTEGER E F_GETREAL  E F_GETSTRING D F_INITFIELDSc F_PUTBUFFER Q F_PUTINTEGERJ~~~ F_PUTREAL J F_PUTSTRING I F_SETCURSOR ?F_SHOWALTERNATE 8 F_SHOWFIELDS!< F_SHOWFORM#$ F_SHOWHELP% F_SHOWINDOW )F_SHOWSFKLABELS ' F_WAITEVENT +iF_PUTBUFFER Q F_PUTINTEGERJ~@DDc00XU%qF_SHOWINDOW 94250-1X320 REV.2340 <830913.0856>0 AF_COMM UF_SHOWINDOW //.ENTR .CPM.SBST .SST.NFEX OS_WAIT1OS_SEND OS_SET$FRULB::FORMS:5:24:127 644 0 0 14000 5303444514 33041 $FRULB::FORMS:5:24:127 $ w$FRULB +IK+IL+IL @FST --XiFRULB 94250-12007 REV.2340 <830913.0857>- FFRULB  kIp@v` 11X6;OS_SETUP_COMM 94250-1X396 REV.2340 <830913.0857>1 AF_COMM (.OS_SETUP_COMM $$EXEC.ENTR OS_TAKEDOWN_COMMABREG CLRQXQPRG $ FOCLO ~~::A`1p`0p`(`:`p`pppp `9p  `(`8@p`p`p`pp `4p ~~~p99 P2(  ` (`8`7 pp `4p  P2(  ` (`8`7 p`p`p`5p`p`p A`3p  ~CC"" (!($`6`5pp(...( md C@ZSy22X(OS_TAKEDOWN_COMM94250-1X396 REV.2340 <830913.0857>2 AF_COMM F! OS_TAKEDOWN_COMM)) EXEC.ENTR .CPMIDRPD ABREG .OPSY CLRQOS_SEND )}}=T ;;A `p  J((=p!&`P(*(4.؀  (4`  `(9` pp`(J`pF}E99P(Hp`(W`pSP(U pPˈ([(`p`pppp`ppA r(t(v`p{`P(BB\~ (  (`  `(` pp  @mB@ou5..XYGOS_SEND 94250-1X396 REV.2340 <830913.0857>. AF_COMM  OS_SEND  :_EXEC.ENTR ssRo99@p=`>p`F ``E@=h`p`D@=h`C@=`B@=`@@=`?p8Aɀ(;  sz> ;p@..XҎ}OS_WAIT 94250-1X396 REV.2340 <830913.0857>. AF_COMM &OS_WAIT  EXEC.ENTR .CPMABREG ~~D@@A@pq`rp`|`{@pA`ypȊ(n"((((PhxHqX 0(6`w@qP(<`v@qzhv~UUJE++@Hqpp0p(Q`u@q(W`s@qAthsHq pp0p(lUFr n q@TsT..XB OS_WAIT194250-1X396 REV.2340 <830913.0857>. &OS_WAIT1 Wl.ENTR OS_TAKEDOWN_COMMOS_WAIT 77lA@p`p`((7 mq @11XSEND_LONG_BUF 94250-1X397 REV.2340 <830913.0857>1 AF_COMM SEND_LONG_BUF  y.ENTR .CPM.SBST .SST.NFEX OS_SEND }}d BB xLj`p`p pA0(-` pp`@ p `@@p h p` P(K`p`(P}0OIIpp(W(` p ` pA (b(b`p`(f(`((@@p` @@pA( AA( DDH`@VV:u))p((d(`p`@p`@p`p(RV W 00 00@#[B00XtREC_LONG_BUF94250-1X397 REV.2340 <830913.0857>0 AF_COMM gREC_LONG_BUF .ENTR .CPM.SBST .SST.NFEX OS_WAIT ~~} AAA  x`ӈp`p (" ՀpA0(5` pp`@p (D`p(F`i p`@@p ~}}KNBBh p ` P([` p ` P(a` p(h(` pA` p (s(s`p`@@Ԉp`@@Ԉp(AAA(}iiY277DDH`@p`@p`p((((d(Ā`p(ci 00 0q0@---~~=FRULB OS_SEND uOS_SETUP_COMM ^ OS_TAKEDOWN_COMM- OS_WAIT  ^OS_WAIT1 4 - REC_LONG_BUFG-SEND_LONG_BUF  X ~-` pp`@ p `@@p h p` P(K`p`(P}0OIIpp(W(` p ` pA (b(b`p`(f(`$FOPRL::FORMS:5:77:127 644 0 0 46400 5303444516 33253 $FOPRL::FORMS:5:77:127 $M wM$FOPRL +IM+IN+INM&$FST H--XdFOPRL 94250-12008 REV.2340 <830913.1034>- IFOPRL  kIp@ve%11XyEWFACTIVATEFORM 94250-1X401 REV.2340 <830913.1038>1 AF_COMM ؕFACTIVATEFORM !!.ENTR .MBTOS_WAIT1OS_SEND OS_SETUP_COMM !  ~~A>>xP@pN`TpP(P(`PhRQ,UUU(05Ud(9`j`kp`VpM`~YB @NhHS88M(A$O  kK@E00X+OFACTIVATERM 94250-1X402 REV.2340 <830913.1039>0 AF_COMM L FACTIVATERM ++EP.ENTR .MBTOS_TAKEDOWN_COMMOS_WAIT1OS_SEND OS_SETUP_COMM +  ~~K*==xH`Lp`Kp P( P̈(pp+NMM(/4Md(8`j`JhHG(E~gB E  ?E@*I22Xd1FDEACTIVATEFORM 94250-1X403 REV.2340 <830913.1039>2 AF_COMM FDEACTIVATEFORM q.ENTR OS_WAIT1OS_SEND OS_SETUP_COMM   __b..A`.p P( P̈(0//(!&/d(*`j,_@11Xj&9FDEACTIVATERM 94250-1X404 REV.2340 <830913.1040>1 AF_COMM ΈFDEACTIVATERM ''ԥ.ENTR OS_TAKEDOWN_COMMOS_WAIT1OS_SEND OS_SETUP_COMM '  jjl44A`6p`5p P̊( P(!877(%*7d(.`j330j@m-//XMFGETBUFFER94250-1X405 REV.2340 <830913.1040>/ AF_COMM <# FGETBUFFER%%U.ENTR REC_LONG_BUFOS_WAIT1OS_SEND OS_SETUP_COMM %  }}B==AxI`JpP(P(pp)LKK(-2Kd(6`j`kAHK}A `(F` 0F@ɦ00XBAFGETINTEGER 94250-1X406 REV.2340 <830913.1040>0 AF_COMM *FGETINTEGER !!.ENTR .MBTOS_WAIT1OS_SEND OS_SETUP_COMM !  zz6>>Ax;`>pP(P(`;h=<'@??(+0?d(4`j`k 8z@..XdCFGETREAL94250-1X407 REV.2340 <830913.1041>. AF_COMM FGETREAL !!.ENTR .MBTOS_WAIT1OS_SEND OS_SETUP_COMM !  {{@@Ax=`@pP(P(`=h?>'BAA(+0Ad(4`jk :{@'//XFGETSTRING94250-1X408 REV.2340 <830913.1041>/ AF_COMM b" FGETSTRING 33 s.ENTR .CPM.SBST .SST .NFEX .MBTOS_WAIT1OS_SEND OS_SETUP_COMM 3   0AAAx@px`p  P̊(  P($A`hp p`p`@hH88(/A  (EbbE88Jd  (N`j `kp~~ p}}A({ AA    b"" P P   {Q"@ٷ00XU7FINITFIELDS 94250-1X409 REV.2340 <830913.1041>0 AF_COMM FINITFIELDS q.ENTR OS_WAIT1OS_SEND OS_SETUP_COMM   llƘ44A`4p P̊( P(pp#655(',5d(0`j2 l@L//X>FPUTBUFFER94250-1X410 REV.2340 <830913.1042>/ AF_COMM L)FPUTBUFFER X.ENTR OS_WAIT1SEND_LONG_BUF OS_SETUP_COMM  ttW;;x9`:p P̊( P(pp'8;=(+0<d(4`j06 t@\00XOAFPUTINTEGER 94250-1X411 REV.2340 <830913.1042>0 AF_COMM 3FPUTINTEGER !!.ENTR .MBTOS_WAIT1OS_SEND OS_SETUP_COMM !  zzq>>Ax;`>pP(P(`;h=<p )@??(-2?d(6`j 8 z@hV..XnCFPUTREAL94250-1X412 REV.2340 <830913.1043>. AF_COMM FPUTREAL !!.ENTR .MBTOS_WAIT1OS_SEND OS_SETUP_COMM !  {{fo@@Ax=`@pP(P(`=h?>  +BAA(/4Ad(8`j : {@E//X{FPUTSTRING94250-1X413 REV.2340 <830913.1043>/ AF_COMM r$FPUTSTRING 33 s.ENTR .CPM.SBST .SST.NFEX .MBT OS_WAIT1 OS_SEND OS_SETUP_COMM 3  ~~=LJJxqxo`vpP(P(wApiz0i(2`y`qhuAtp lrDwjnwDljH@~==N@p Xxww(\ awd(e`j= 3jP P  g P@j//X>FSETCURSOR94250-1X414 REV.2340 <830913.1044>/ AF_COMM S5FSETCURSOR((!!.ENTR .MBTOS_WAIT1OS_SEND OS_SETUP_COMM !  ss* ;;x8`;p P( P̈(`8h:A 9&=<<(*/<d(3`j  5s@11XIAFSHOWALTERNATE94250-1X415 REV.2340 <830913.1044>1 AF_COMM FSHOWALTERNATE!!.ENTR .MBTOS_WAIT1OS_SEND OS_SETUP_COMM !  zz>>Ax;`>pP(P(p`;h=<)@??(-2?d(6`j 8z@t00XR4FSHOWFIELDS 94250-1X416 REV.2340 <830913.1044>0 AF_COMM #FSHOWFIELDS q.ENTR OS_WAIT1OS_SEND OS_SETUP_COMM   ff11`1pP(P(p 322($)2d(-`j/f@x#//X1FSHOWFORM 94250-1X417 REV.2340 <830913.1045>/ AF_COMM dFSHOWFORM q.ENTR OS_WAIT1OS_SEND OS_SETUP_COMM   __p..A`.p P( P̈(0//(!&/d(*`j,_@' E//XAFSHOWHELP 94250-1X418 REV.2340 <830913.1045>/ AF_COMM ]FSHOWHELP !!.ENTR .MBTOS_WAIT1OS_SEND OS_SETUP_COMM !   zzZ>>Ax;`>pP(P(`;h=<'@??(+0?d(4`j`k 8z@Rqw11XSAFSHOWSFKLABELS94250-1X419 REV.2340 <830913.1046>1 AF_COMM FSHOWSFKLABELS!!.ENTR .MBTOS_WAIT1OS_SEND OS_SETUP_COMM ! A zz>>Ax;`>pP(P(p`;h=<)@??(-2?d(6`j 8z@//XqFSHOWINDOW94250-1X420 REV.2340 <830913.1046>/ AF_COMM fFSHOWINDOW//.ENTR .CPM.SBST .SST.NFEX OS_WAIT1OS_SEND OS_SETUP_COMM /  ~~7GGxi`lp P̊( P(Ampcp0c(/`oppfjmDdhDmHfd@@p~55<KRnmm(V [md(_`j5d PP aP@u5//X7FWAITEVENT94250-1X421 REV.2340 <830913.1046>/ AF_COMM cFWAITEVENTq.ENTR OS_WAIT1OS_SEND OS_SETUP_COMM   ll844A`4p P̊( P(p!655(%*5d(.`j`k2l@}=11X+"F_ACTIVATEFORM94250-1X251 REV.2340 <830913.1033>1F_ACTIVATEFORM .ENTR FACTIVATEFORM FSTRC 33@p@p !3   @M00XUF_ACTIVATERM94250-1X252 REV.2340 <830913.1033>0VF_ACTIVATERM4D.ENTR FACTIVATERM FSTRC ..x_@p.  @22XX F_DEACTIVATEFORM94250-1X253 REV.2340 <830913.1033>2EF_DEACTIVATEFORM.ENTR FDEACTIVATEFORM h' A@[zd11X F_DEACTIVATERM94250-1X254 REV.2340 <830913.1033>1F_DEACTIVATERM.ENTR FDEACTIVATERM h' A@}00XO6F_GETBUFFER 94250-1X255 REV.2340 <830913.1033>0,F_GETBUFFER e.ENTR .CPMFGETBUFFERFSTRC PPR--A@p1`2pp0500( `4%3.P m2.0 @00X;F_GETINTEGER94250-1X256 REV.2340 <830913.1033>0pF_GETINTEGERP&.ENTR FGETINTEGER FSTRC ++;A@p+  @(G//XmF_GETREAL 94250-1X257 REV.2340 <830913.1034>/UF_GETREAL .ENTR FGETREALFSTRC ++;A@p+  @Q00XJMF_GETSTRING 94250-1X258 REV.2340 <830913.1034>0\ F_GETSTRING .ENTR .CPMFGETSTRINGFSTRC kk??@pG@pF@pE`HpAIpDL0D(,`K 1IJ8IB   kHBP@00X- F_INITFIELDS94250-1X259 REV.2340 <830913.1034>0zF_INITFIELDSH.ENTR FINITFIELDS  A @9XG00XT4F_PUTBUFFER 94250-1X260 REV.2340 <830913.1034>0:F_PUTBUFFER u.ENTR .CPMFPUTBUFFERFSTRC MM++@p/`0pp.A30.(`2$1,M i0,0 @00XAF_PUTINTEGER94250-1X261 REV.2340 <830913.1034>0F_PUTINTEGER`/.ENTR FPUTINTEGER FSTRC ++;A@p+  @Fe//X~F_PUTREAL 94250-1X262 REV.2340 <830913.1034>/^F_PUTREAL .ENTR FPUTREALFSTRC ++;A@p+  @{4;00XOEF_PUTSTRING 94250-1X263 REV.2340 <830913.1034>0e F_PUTSTRING .ENTR .CPMFPUTSTRINGFSTRC ``;N88@p?@p>`@pAAp=D0=('`C,AB3A; `@;P@]00XhF_SETCURSOR 94250-1X264 REV.2340 <830913.1034>0<F_SETCURSOR 3.ENTR FSETCURSORFSTRC ))~!@p)  @tr222XkF_SHOWALTERNATE 94250-1X265 REV.2340 <830913.1034>29F_SHOWALTERNATE .ENTR FSHOWALTERNATEFSTRC ++;A@p+  @300X: F_SHOWFIELDS94250-1X266 REV.2340 <830913.1034>0uF_SHOWFIELDS~X.ENTR FSHOWFIELDS q  @)kH+//X F_SHOWFORM94250-1X267 REV.2340 <830913.1034>/d&F_SHOWFORM2 .ENTR FSHOWFORM h' A@K //XF_SHOWHELP94250-1X268 REV.2340 <830913.1034>/`(F_SHOWHELP.ENTR FSHOWHELP FSTRC ++;A@p+  @j22X\ F_SHOWSFKLABELS 94250-1X269 REV.2340 <830913.1034>2CF_SHOWSFKLABELS .ENTR FSHOWSFKLABELSFSTRC 00A@p`p0 | @V00XI7F_SHOWINDOW 94250-1X270 REV.2340 <830913.1034>0TF_SHOWINDOW .ENTR .CPMFSHOWINDOWFSTRC PP=..@p2`3pA4p1601("`5'4/P ((3/P @i00XB F_WAITEVENT 94250-1X271 REV.2340 <830913.1034>0IF_WAITEVENT 0D.ENTR FWAITEVENT A @#877X+  %9FSTRC 94250-1X299 REV.2340 <830913.1034>&FSTRCPE7 MFSTRC .ENTR m Ah H @Qpv~~[ FACTIVATEFORM ^ FACTIVATERM FDEACTIVATEFORM DFDEACTIVATERM ) FGETBUFFER ! FGETINTEGER  CFGETREAL C FGETSTRING@ FINITFIELDS ]FOPRL  FPUTBUFFERK FPUTINTEGER B~~~C FPUTREALB FPUTSTRING? FSETCURSOR3FSHOWALTERNATE* FSHOWFIELDS !, FSHOWFORM # FSHOWHELP $s FSHOWINDOW(sFSHOWSFKLABELS&qFSTRC G FWAITEVENT+UF_ACTIVATEFORM-AB~~~k!  F_ACTIVATERM.eF_DEACTIVATEFORM0F_DEACTIVATERM0z& F_GETBUFFER 1p1 F_GETINTEGER33: F_GETREAL 4LD F_GETSTRING 5aL F_INITFIELDS7AU F_PUTBUFFER 89f F_PUTINTEGER9yo~~~D  F_PUTREAL ; F_PUTSTRING <' F_SETCURSOR =|F_SHOWALTERNATE ? F_SHOWFIELDS@0 F_SHOWFORMA% F_SHOWHELPB F_SHOWINDOW DOF_SHOWSFKLABELS C+ F_WAITEVENT F~TF_SHOWINDOW .ENTR .CPMFSHOWINDOWFSTRC PP=..@p2`3pA4p1601("`5'4/P %FOBLK::FORMS:5:5:50 644 0 0 2400 5303444520 31562 %FOBLK::FORMS:5:5:50 $ x 2%FOBLK +IO+IP+IP& HFST ..X/F_INFO/94250-16171 REV.2340 <830913.1447>. Aj)F_INFO  @,tK422X/F_FIELD_STORAG/94250-16171 REV.2340 <830913.1447>2A!F_FIELD_STORAGE @11Xu/F_SFK_TABLE/ 94250-16171 REV.2340 <830913.1447>1 A F_SFK_TABLE  @22X /F_SFK_STORAGE/ 94250-16171 REV.2340 <830913.1447>2AZF_SFK_STORAGE @d11X/F_FILE_PARAM/94250-16171 REV.2340 <830913.1447>1 A)F_FILE_PARAM  @..X/F_FILE/94250-16171 REV.2340 <830913.1447>. AYF_FILE  @"VA..X/F_MSSG/94250-16171 REV.2340 <830913.1447>. A8F_MSSG @Ygx'0z& F_GETBUFFER 1p1 F_GETINTEGER33: F_GETREAL 4LD F_GETSTRING 5aL F_INITFIELDS7AU F_PUTBUFFER 89f F_PUTINTEGER9yo~%FUSE1::FORMS:5:2:48 644 0 0 1000 5303444522 32027 %FUSE1::FORMS:5:2:48 $ x(0%FUSE1 +IQ+IR+IRPFST //X/F_FIELDS/94250-16172 REV.2340 <830913.1447>/ A'F_FIELDS @׆F00XUs/F_USERBUFF/94250-16172 REV.2340 <830913.1447>0 ALLeF_USERBUFF  @dꃪ00XB/F_TERMBUFF/94250-16172 REV.2340 <830913.1447>0 AY(F_TERMBUFF 0L @e„22X %FUSE2::FORMS:5:2:48 644 0 0 1000 5303444524 32052 %FUSE2::FORMS:5:2:48 $ x,0%FUSE2 +IS+IT+ITTFST //X/F_FIELDS/94250-16173 REV.2340 <830913.1448>/ A0F_FIELDS @00XWs/F_USERBUFF/94250-16173 REV.2340 <830913.1448>0 AMF_USERBUFF  @hD00XD/F_TERMBUFF/94250-16173 REV.2340 <830913.1448>0 AY(F_TERMBUFF &0L @j≢22X %FUSE3::FORMS:5:2:48 644 0 0 1000 5303444526 32075 %FUSE3::FORMS:5:2:48 $ x00%FUSE3 +IU+IV+IVXFST //X/F_FIELDS/94250-16174 REV.2340 <830913.1448>/ A{F_FIELDS @g'00XXs/F_USERBUFF/94250-16174 REV.2340 <830913.1448>0 ALF_USERBUFF  @hO00XE/F_TERMBUFF/94250-16174 REV.2340 <830913.1448>0 AY(F_TERMBUFF 20L @i22X %FUSE4::FORMS:5:2:48 644 0 0 1000 5303444530 32111 %FUSE4::FORMS:5:2:48 $ x40%FUSE4 +IW+IX+IX\FST //X/F_FIELDS/94250-16175 REV.2340 <830913.1448>/ A\F_FIELDS @H00XYs/F_USERBUFF/94250-16175 REV.2340 <830913.1448>0 AMxF_USERBUFF ( @j400XF/F_TERMBUFF/94250-16175 REV.2340 <830913.1448>0 AY(F_TERMBUFF ^0L @l22X %FUSE5::FORMS:5:2:48 644 0 0 1000 5303444532 32134 %FUSE5::FORMS:5:2:48 $ x80%FUSE5 +IY+IZ+IZ`FST //X/F_FIELDS/94250-16176 REV.2340 <830913.1448>/ AF_FIELDS @00XZs/F_USERBUFF/94250-16176 REV.2340 <830913.1448>0 AMF_USERBUFF  2 @kb00XG/F_TERMBUFF/94250-16176 REV.2340 <830913.1448>0 AY(F_TERMBUFF &0L @m⌢22X %FUSE6::FORMS:5:2:48 644 0 0 1000 5303444533 32153 %FUSE6::FORMS:5:2:48 $ x<0%FUSE6 +IZ+I[+I[dFST //X/F_FIELDS/94250-16177 REV.2340 <830913.1448>/ AiF_FIELDS @U00X[s/F_USERBUFF/94250-16177 REV.2340 <830913.1448>0 AMF_USERBUFF , K @l{00XH/F_TERMBUFF/94250-16177 REV.2340 <830913.1448>0 AZF_TERMBUFF 0 @q:22X ((%FUSE7::FORMS:5:2:48 644 0 0 1000 5303444535 32176 %FUSE7::FORMS:5:2:48 $ x@0%FUSE7 +I\+I]+I]hFST //X"/F_FIELDS/94250-16178 REV.2505 <841226.0945>/ AmF_FIELDS @00X\v/F_USERBUFF/94250-16178 REV.2505 <841226.0945>0 AOF_USERBUFF E d @o{;00XI/F_TERMBUFF/94250-16178 REV.2505 <841226.0945>0 A]OzF_TERMBUFF 0 0 @}#%FUSE8::FORMS:5:2:48 644 0 0 1000 5303444537 32222 %FUSE8::FORMS:5:2:48 $ xD0%FUSE8 +I_+I_+I_lFST //X"/F_FIELDS/94250-16179 REV.2505 <841226.0948>/ A[F_FIELDS @ }00X`v/F_USERBUFF/94250-16179 REV.2505 <841226.0948>0 AOF_USERBUFF w  @sm00XM/F_TERMBUFF/94250-16179 REV.2505 <841226.0948>0 A]F_TERMBUFF 0 0 @O%FUSE9::FORMS:5:2:48 644 0 0 1000 5303444541 32235 %FUSE9::FORMS:5:2:48 $ xH0%FUSE9 +I`+Ia+IapFST //X /F_FIELDS/94250-16180 REV.2340 <830913.1449>/ AF_FIELDS @00XUt/F_USERBUFF/94250-16180 REV.2340 <830913.1449>0 AOF_USERBUFF  @i00XB/F_TERMBUFF/94250-16180 REV.2340 <830913.1449>0 Aai F_TERMBUFF F0$0 @o/22X %FOCLO::FORMS:5:40:128 644 0 0 24000 5303444543 33131 %FOCLO::FORMS:5:40:128 $( xL(%FOCLO +Ib+Ic+Ic(tFST --Xe-FOCLO 94250-16391 REV.2340 <830913.0856>- AF_COMM ssyFOCLO .NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN sEXEC.CPM .ARTN .FION F_DEACTIVATERMC_F_WAITEVENT C_F_SHOWINDOW C_F_SHOWSFKLABELC_F_SHOWHELPC_F_SHOWFORMC_F_SHOWFIELDSC_F_SHOWALTERNATC_F_SETCURSOR C_F_PUTSTRING C_F_PUTREAL C_F_PUTINTEGERww9bC_F_PUTBUFFER C_F_INITFIELDSC_F_GETSTRING C_F_GETREAL C_F_GETINTEGERC_F_GETBUFFER C_F_DEACTIVATERM C_F_DEACTIVATEFO C_F_ACTIVATERM C_F_ACTIVATEFORM CLRQOS_WAIT RMPAR PRTNPNAME wdddJJ FC001: INCORRECT SCHEDULING PARAMETERS FC002: MAIN PROGRAM ABORTED OR CLASS I/O ERROR FC003: FCOMM BLOCK DATA SUBPROGRAM OMMITTED FROM LINKd~~sHH`p堄`(,I`PhX 0(GP(&`AP(5&),14(`p~}}7CC`pp `(C `(`Մ@ hՈ@Hp0(g`p `䨄P(bg`@ }~~z>>   ~^^r11(; HA^D 0@@k22XkC_F_ACTIVATEFORM94250-16391 REV.2340 <830913.0856>2 AF_COMM DC_F_ACTIVATEFORM.ENTR OS_SEND F_ACTIVATEFORM  ;;A`plkjd 0 ;@}P11X C_F_ACTIVATERM94250-16391 REV.2340 <830913.0856>1 AF_COMM C_F_ACTIVATERM.ENTR OS_SEND F_ACTIVATERM  ==:A`pjd 0=@:22X_C_F_DEACTIVATEFO94250-16391 REV.2340 <830913.0856>2 AF_COMM 6C_F_DEACTIVATEFOK8.ENTR OS_SEND F_DEACTIVATEFORM  11 A`pjd1@/22X]C_F_DEACTIVATERM94250-16391 REV.2340 <830913.0856>2 AF_COMM BC_F_DEACTIVATERM.ENTR OS_SEND F_DEACTIVATERM  11 A`pjd1@ל11X%C_F_GETBUFFER 94250-16391 REV.2340 <830913.0856>1 AF_COMM C_F_GETBUFFER [.ENTR SEND_LONG_BUF F_GETBUFFER   EE`""x!`"p kj k$#0E@lY11X7C_F_GETINTEGER94250-16391 REV.2340 <830913.0856>1 AF_COMM C_F_GETINTEGER.ENTR OS_SEND F_GETINTEGER  99dA`pkjd0 9@GIf 00X>C_F_GETREAL 94250-16391 REV.2340 <830913.0856>0 AF_COMM FC_F_GETREAL [:.ENTR OS_SEND F_GETREAL   99eA`pkjd0 9@p11X?JC_F_GETSTRING 94250-16391 REV.2340 <830913.0856>1 AF_COMM C_F_GETSTRING -3.ENTR .CPMOS_SEND F_GETSTRING    ww<<<A`FpD  Bkj`p`kApAIkAh Ap@I @(6` @@p>dHGGwHB P00 >Q@11XtDC_F_INITFIELDS94250-16391 REV.2340 <830913.0856>1 AF_COMM C_F_INITFIELDS.ENTR OS_SEND F_INITFIELDS  88,5A`pjd 8@~B11X0C_F_PUTBUFFER 94250-16391 REV.2340 <830913.0856>1 AF_COMM C_F_PUTBUFFER S.ENTR OS_SEND F_PUTBUFFER REC_LONG_BUF  XXY--x+`,p*-( *j(d/..0( X@=11XGC_F_PUTINTEGER94250-16391 REV.2340 <830913.0856>1 AF_COMM C_F_PUTINTEGER.ENTR OS_SEND F_PUTINTEGER  99A`p jd0  9@b00XGC_F_PUTREAL 94250-16391 REV.2340 <830913.0856>0 AF_COMM VC_F_PUTREAL dJ.ENTR OS_SEND F_PUTREAL   99 A((`p jd0  9@S11X'"C_F_PUTSTRING 94250-16391 REV.2340 <830913.0856>1 AF_COMM C_F_PUTSTRING .ENTR OS_SEND F_PUTSTRING   >>A`p jd!   P00  >@N11XC_F_SETCURSOR 94250-16391 REV.2340 <830913.0856>1 AF_COMM C_F_SETCURSOR Ќ.ENTR OS_SEND F_SETCURSOR   66,A`pjd 0 6@=R\22XݏC_F_SHOWALTERNAT94250-16391 REV.2340 <830913.0856>2 AF_COMM 8"C_F_SHOWALTERNAT?7.ENTR OS_SEND F_SHOWALTERNATE   99A`pjd09@_11X@C_F_SHOWFIELDS94250-16391 REV.2340 <830913.0856>1 AF_COMM C_F_SHOWFIELDS.ENTR OS_SEND F_SHOWFIELDS  55@A`pjd5@B00XLC_F_SHOWFORM94250-16391 REV.2340 <830913.0856>0 AF_COMM C_F_SHOWFORMi}.ENTR OS_SEND F_SHOWFORM  11 A`pjd1@h00XHC_F_SHOWHELP94250-16391 REV.2340 <830913.0856>0 AF_COMM C_F_SHOWHELPev.ENTR OS_SEND F_SHOWHELP   99|A`pkjd0 9@O22X|C_F_SHOWSFKLABEL94250-16391 REV.2340 <830913.0856>2 AF_COMM 4C_F_SHOWSFKLABELI$.ENTR OS_SEND F_SHOWSFKLABELS  A 99 A`pjd09@11X C_F_SHOWINDOW 94250-16391 REV.2340 <830913.0856>1 AF_COMM C_F_SHOWINDOW .ENTR OS_SEND F_SHOWINDOW   ==A`pjd P0=@X11XC_F_WAITEVENT 94250-16391 REV.2340 <830913.0856>1 AF_COMM C_F_WAITEVENT .ENTR OS_SEND F_WAITEVENT   88,A`pkjd8@XݏC_F_SHOWALTERNAT94250-16391 REV.2340 <830913.0856>2 AF_COMM 8"C_F_SHOWALTERNAT%FCOMM::FORMS:5:1:56 644 0 0 400 5303444545 32202 %FCOMM::FORMS:5:1:56 $ xt8%FCOMM +Id+Ie+IekĞFST 88X/F_COMM/94250-16393 REV.5000 <870420.1050>&FCOMM::SRC_94250A8 AF_COMM LdFO @G*LFBEF::FORMS:4:2:35 644 0 0 1000 5303444546 32225 *LFBEF::FORMS:4:2:35 $ xx#*LFBEF +If+If+If ĢFST :* *LFBEF 94250-17001 REV.2340 <830913.1027>:SV,1,,IH #:DP,TRANSFER FILE NEEDS UPDATING FOR CARTRIGDE NUMBER & SECURITY CODE #:SE,P3,TR :OF,FBULD :DP,+-------------------------+ :DP,! Loading Forms Builder ! :DP,+-------------------------+  :RU,LINK,#LFBEF::1G,+CR:2G :SV,0,,IH ::(\uCCP(pP({P(vP(P(P(^P(sP(HP(P((  !"$%?7``#LFBEF::FORMS:4:2:33 644 0 0 1000 5303444550 32161 #LFBEF::FORMS:4:2:33 $ x|!#LFBEF +Ig+Ih+Ih ĦFST * #LFBEF 94250-17002 REV.2340 <830913.1027> ECHO!** COMMAND FILE NEEDS UPDATING FOR CARTIDGE NUMBER & SECURITY CODE!LL,'LFBEF:P3:P3 OP,EB EM,10 SZ,32 LI,$FBUTI::P3 LI,$FOFLL::P3 LI,$FLULB::P3 RE,%FOBLK::P3 RE,%FBILD::P3 EN,FBULD:P3:P3BEF::1G,+CR:2G :SV,0,,IH ::(\uCCP(pP({P(vP(P(P(^P(sP(HP(P((  !"$%?7``*LFBAS::FORMS:4:2:35 644 0 0 1000 5303444552 32345 *LFBAS::FORMS:4:2:35 $ x#*LFBAS +Ii+Ij+Ij ĪFST :* *LFBAS 94250-17003 REV.2340 <830913.1027>:SV,1,,IH :SE,P3,TR :OF,FBULD,ID:DP,TRANSFER FILE NEEDS UPDATING FOR USE UNDER CI #:DP,TRANSFER FILE NEEDS UPDATING FOR CARTRIDGE NUMBER & SECURITY CODE #:DP,+-------------------------+ :DP,! Loading Forms Builder ! :DP,+-------------------------+  :RU,LINK,#LFBAS::1G,+CR:2G :SV,0,,IH ::P(P(^P(sP(HP(P((  !"$%?7``#LFBAS::FORMS:4:2:33 644 0 0 1000 5303444553 32315 #LFBAS::FORMS:4:2:33 $ x!#LFBAS +Ik+Ik+IkĮFST * #LFBAS 94250-17004 REV.6000 <920729.0908> ECHO!** COMMAND FILE NEEDS UPDATING FOR CARTIDGE NUMBER & SECURITY CODE!** COMMAND FILE NEEDS UPDATING FOR SNAP SHOT FILE NAMEEBLL,'LFBAS:P3:P3 SN,SN4GTO EM,10 SZ,32 LI,$FBUTI::P3 LI,$FOFLL::P3 LI,$FLULB::P3 RE,%FOBLK::P3 RE,%FBILD::P3 EN,FBULD:P3:P3*LFOEF::FORMS:4:2:35 644 0 0 1000 5303444555 32354 *LFOEF::FORMS:4:2:35 $ x#*LFOEF +Il+Im+Im IJFST :* *LFOEF 94250-17011 REV.2340 <830913.0858>:SV,1,,IH #:DP,TRANSFER FILE NEEDS UPDATING FOR CARTRIDGE NUMBER & SECURITY CODE #:SE,P3:OF,FOCLO :DP,+--------------------------+:DP,! Loading Program 'FOCLO' !:DP,+--------------------------+ :RU,LINK,#LFOEF::1G :SV,0,,IH ::FBILD::P3 EN,FBULD:P3:P3G,+CR:2G :SV,0,,IH ::P(P(^P(sP(HP(P((  !"$%?7``#LFOEF::FORMS:4:2:34 644 0 0 1000 5303444557 32340 #LFOEF::FORMS:4:2:34 $ x"#LFOEF +In+Io+Io ĶFST ((* #LFOEF 94250-17012 REV.2340 <830913.0858> ECHO"** COMMAND FILE NEEDS UPDATING FOR CARTRIDGE NUMBER & SECURITY CODE "LL,'LFOEF:P3:P3 OP,EB LI,$FOFLL::P3 LI,$FLULB::P3 LI,$FRULB::P3 RE,%FOBLK::P3 RE,%FUSE9::P3 RE,%FCOMM::P3 RE,%FOCLO::P3 EN,FOCLO:P3:P3H ::FBILD::P3 EN,FBULD:P3:P3G,+CR:2G :SV,0,,IH ::P(P(^P(sP(HP(P((  !"$%?7``*LFOAS::FORMS:4:2:35 644 0 0 1000 5303444561 32474 *LFOAS::FORMS:4:2:35 $ x#*LFOAS +Ip+Iq+Iq ĺFST :* *LFOAS 94250-17013 REV.2340 <830913.0858>:SV,1,,IH :DP,TRANSFER FILE NEEDS UPDATING FOR USE UNDER CI #:DP,TRANSFER FILE NEEDS UPDATING FOR CARTRIDGE NUMBER & SECURITY CODE #:SE,P3:OF,FOCLO,ID:DP,+--------------------------+:DP,! Loading Program 'FOCLO' !:DP,+--------------------------+ :RU,LINK,#LFOAS::1G :SV,0,,IH ::::P(P(^P(sP(HP(P((  !"$%?7``#LFOAS::FORMS:4:2:34 644 0 0 1000 5303444563 32464 #LFOAS::FORMS:4:2:34 $ x"#LFOAS +Ir+Is+IsľFST * #LFOAS 94250-17014 REV.2340 <830913.0858> ECHO"** COMMAND FILE NEEDS UPDATING FOR CARTRIDGE NUMBER & SECURITY CODE "** COMMAND FILE NEEDS UPDATING FOR SNAP SHOT FILE NAMELL,'LFOAS:P3:P3 SN,SN4GTO LI,$FOFLL::P3 LI,$FLULB::P3 LI,$FRULB::P3 RE,%FOBLK::P3 RE,%FUSE9::P3 RE,%FCOMM::P3 RE,%FOCLO::P3 EN,FOCLO:P3:P3::P(P(^P(sP(HP(P((  !"$%?7``*LFIEF::FORMS:4:2:35 644 0 0 1000 5303444565 32546 *LFIEF::FORMS:4:2:35 $ x#*LFIEF +It+Iu+Iu FST :* *LFIEF 94250-17021 REV.2340 <830913.0858>:SV,1,,IH #:DP,TRANSFER FILE NEEDS UPDATING FOR CARTRIDGE NUMBER & SECURITY CODE #:DP,TRANSFER FILE NEEDS UPDATING FOR USER PROGRAM NAME:SE,P3:OF,FIUSE ":DP,+-------------------------------------------------------------+ "":DP,! Loading FORTRAN Program 'FIUSE' w/ Integral Forms Routines ! "":DP,+-------------------------------------------------------------+ " :RU,LINK,#LFIEF::1G :SV,0,,IH ::7``#LFIEF::FORMS:4:2:35 644 0 0 1000 5303444567 32444 #LFIEF::FORMS:4:2:35 $ x##LFIEF +Iv+Iw+Iw FST * #LFIEF 94250-17022 REV.2340 <830913.0858> ECHO"** COMMAND FILE NEEDS UPDATING FOR CARTRIDGE NUMBER & SECURITY CODE "#** COMMAND FILE NEEDS UPDATING FOR USER PROGRAM RELOCATABLE FILE NAME #LL,'LFIEF:P3:P3 OP,EB LI,$FOFLL::P3 LI,$FLULB::P3 RE,%FOBLK::P3 RE,%FUSE3::P3 RE,%FIUSE::P3 EN,FIUSE:P3:P3 Forms Routines ! "":DP,+-------------------------------------------------------------+ " :RU,LINK,#LFIEF::1G :SV,0,,IH ::7``*LFIAS::FORMS:4:3:35 644 0 0 1400 5303444571 32311 *LFIAS::FORMS:4:3:35 $ x#*LFIAS +Ix+Iy+Iy FST :* *LFIAS 94250-17023 REV.2340 <830913.0858>:SV,1,,IH :DP,TRANSFER FILE NEEDS UPDATING FOR USE UNDER CI #:DP,TRANSFER FILE NEEDS UPDATING FOR CARTRIDGE NUMBER & SECURITY CODE #:DP,TRANSFER FILE NEEDS UPDATING FOR USER PROGRAM NAME:SE,P3:OF,FIUSE,ID":DP,+-------------------------------------------------------------+ "":DP,! Loading FORTRAN Program 'FIUSE' w/ Integral Forms Routines ! "":DP,+-------------------------------------------------------------+ " :RU,LINK,#LFIAS::1G :SV,0,,IH ::C (( (`@h>>"׸͈((C(C ((`(C DH"ǀK(x(xAрp р#LFIAS::FORMS:4:2:35 644 0 0 1000 5303444573 32572 #LFIAS::FORMS:4:2:35 $ x##LFIAS +Iz+I{+I{ FST * #LFIAS 94250-17024 REV.2340 <830913.0859> ECHO"** COMMAND FILE NEEDS UPDATING FOR CARTRIDGE NUMBER & SECURITY CODE "#** COMMAND FILE NEEDS UPDATING FOR USER PROGRAM RELOCATABLE FILE NAME #** COMMAND FILE NEEDS UPDATING FOR SNAP SHOT FILE NAMELL,'LFIAS:P3:P3 SN,SN4GTO LI,$FOFLL::P3 LI,$FLULB::P3 RE,%FOBLK::P3 RE,%FUSE3::P3 RE,%FIUSE::P3 EN,FIUSE:P3:P3 Routines ! "":DP,+-------------------------------------------------------------+ " :RU,LINK,#LFIAS::1G *LFNEF::FORMS:4:2:35 644 0 0 1000 5303444574 32670 *LFNEF::FORMS:4:2:35 $ x#*LFNEF +I|+I|+I| FST :* *LFNEF 94250-17031 REV.2340 <830913.0859>:SV,1,,IH #:DP,TRANSFER FILE NEEDS UPDATING FOR CARTRIDGE NUMBER & SECURITY CODE #:DP,TRANSFER FILE NEEDS UPDATING FOR USER PROGRAM NAME:SE,P3:OF,FNUSE #:DP,+----------------------------------------------------------------+##:DP,! Loading FORTRAN Program 'FNUSE' w/ Non-integral Forms Routines !##:DP,+----------------------------------------------------------------+# :RU,LINK,#LFNEF::1G :SV,0,,IH ::+ " :RU,LINK,#LFIAS::1G #LFNEF::FORMS:4:2:35 644 0 0 1000 5303444576 32541 #LFNEF::FORMS:4:2:35 $ x##LFNEF +I~+I~+I~ FST * #LFNEF 94250-17032 REV.2340 <830913.0859> ECHO"** COMMAND FILE NEEDS UPDATING FOR CARTRIDGE NUMBER & SECURITY CODE "#** COMMAND FILE NEEDS UPDATING FOR USER PROGRAM RELOCATABLE FILE NAME #LL,'LFNEF:P3:P3 OP,EB LI,$FOFRL::P3 LI,$FRULB::P3 RE,%FCOMM::P3 RE,%FNUSE::P3 EN,FNUSE:P3:P3'FNUSE' w/ Non-integral Forms Routines !##:DP,+----------------------------------------------------------------+# :RU,LINK,#LFNEF::1G :SV,0,,IH ::+ " :RU,LINK,#LFIAS::1G *LFNAS::FORMS:4:3:35 644 0 0 1400 5303444600 32414 *LFNAS::FORMS:4:3:35 $ x#*LFNAS +I+I+I FST :* *LFNAS 94250-17033 REV.2340 <830913.0859>:SV,1,,IH :DP,TRANSFER FILE NEEDS UPDATING FOR USE UNDER CI #:DP,TRANSFER FILE NEEDS UPDATING FOR CARTRIDGE NUMBER & SECURITY CODE #:DP,TRANSFER FILE NEEDS UPDATING FOR USER PROGRAM NAME:SE,P3:OF,FNUSE,ID#:DP,+----------------------------------------------------------------+##:DP,! Loading FORTRAN Program 'FNUSE' w/ Non-Integral Forms Routines !##:DP,+----------------------------------------------------------------+# :RU,LINK,#LFNA((S::1G :SV,0,,IH :: (( (`@h>>"׸͈((C(C ((`(C DH"ǀK(x(xAрp р#LFNAS::FORMS:4:2:35 644 0 0 1000 5303444602 32660 #LFNAS::FORMS:4:2:35 $ x##LFNAS +I+I+I FST * #LFNAS 94250-17034 REV.2340 <830913.0859> ECHO"** COMMAND FILE NEEDS UPDATING FOR CARTRIDGE NUMBER & SECURITY CODE "#** COMMAND FILE NEEDS UPDATING FOR USER PROGRAM RELOCATABLE FILE NAME #** COMMAND FILE NEEDS UPDATING FOR SNAP SHOT FILE NAMELL,'LFNAS:P3:P3 SN,SN4GTO LI,$FOFRL::P3 LI,$FRULB::P3 RE,%FCOMM::P3 RE,%FNUSE::P3 EN,FNUSE:P3:P3' w/ Non-Integral Forms Routines !##:DP,+----------------------------------------------------------------+# :RU,LINK,#LFNA*LPIEF::FORMS:4:2:35 644 0 0 1000 5303444604 32770 *LPIEF::FORMS:4:2:35 $ x#*LPIEF +I+I+I FST :* *LPIEF 94250-17041 REV.2340 <830913.1047>:SV,1,,IH #:DP,TRANSFER FILE NEEDS UPDATING FOR CARTRIDGE NUMBER & SECURITY CODE #:DP,TRANSFER FILE NEEDS UPDATING FOR USER PROGRAM NAME:SE,P3:OF,PIUSE ":DP,+-------------------------------------------------------------+ "":DP,! Loading PASCAL Program 'PIUSE' w/ Integral Forms Routines ! "":DP,+-------------------------------------------------------------+ " :RU,LINK,#LPIEF::1G :SV,0,,IH ::-------------+# :RU,LINK,#LFNA#LPIEF::FORMS:4:2:35 644 0 0 1000 5303444606 32665 #LPIEF::FORMS:4:2:35 $ x##LPIEF +I+I+I FST * #LPIEF 94250-17042 REV.2340 <830913.1047> ECHO"** COMMAND FILE NEEDS UPDATING FOR CARTRIDGE NUMBER & SECURITY CODE "#** COMMAND FILE NEEDS UPDATING FOR USER PROGRAM RELOCATABLE FILE NAME #LL,'LPIEF:P3:P3 OP,EB LI,$FOPLL::P3 LI,$FLULB::P3 LI,$PLIBRE,%FOBLK::P3 RE,%FUSE3::P3 RE,%PIUSE::P3 EN,PIUSE:P3:P3nes ! "":DP,+-------------------------------------------------------------+ " :RU,LINK,#LPIEF::1G :SV,0,,IH ::-------------+# :RU,LINK,#LFNA*LPIAS::FORMS:4:3:35 644 0 0 1400 5303444610 32523 *LPIAS::FORMS:4:3:35 $ x#*LPIAS +I+I+I FST :* *LPIAS 94250-17043 REV.2340 <830913.1047>:SV,1,,IH :DP,TRANSFER FILE NEEDS UPDATING FOR USE UNDER CI #:DP,TRANSFER FILE NEEDS UPDATING FOR CARTRIDGE NUMBER & SECURITY CODE #:DP,TRANSFER FILE NEEDS UPDATING FOR USER PROGRAM NAME:SE,P3:OF,PIUSE,ID":DP,+-------------------------------------------------------------+ "":DP,! Loading PASCAL Program 'PIUSE' w/ Integral Forms Routines ! "":DP,+-------------------------------------------------------------+ " :RU,LINK,#LPIAS::1G :SV,0,,IH :::: (( (`@h>>"׸͈((C(C ((`(C DH"ǀK(x(xAрp р#LPIAS::FORMS:4:2:35 644 0 0 1000 5303444612 33006 #LPIAS::FORMS:4:2:35 $ x##LPIAS +I+I+I FST * #LPIAS 94250-17044 REV.2340 <830913.1048> ECHO"** COMMAND FILE NEEDS UPDATING FOR CARTRIDGE NUMBER & SECURITY CODE "#** COMMAND FILE NEEDS UPDATING FOR USER PROGRAM RELOCATABLE FILE NAME #** COMMAND FILE NEEDS UPDATING FOR SNAP SHOT FILE NAMELL,'LPIAS:P3:P3 LI,$FOPLL::P3 LI,$FLULB::P3 LI,$PLIBN::16 RE,%FOBLK::P3 RE,%FUSE3::P3 RE,%PIUSE::P3 EN,PIUSE:P3:P3tines ! "":DP,+-------------------------------------------------------------+ " :RU,LINK,#LPIAS::1G *LPNEF::FORMS:4:2:35 644 0 0 1000 5303444614 33105 *LPNEF::FORMS:4:2:35 $ x#*LPNEF +I+I+I FST :* *LPNEF 94250-17051 REV.2340 <830913.1048>:SV,1,,IH #:DP,TRANSFER FILE NEEDS UPDATING FOR CARTRIDGE NUMBER & SECURITY CODE #:DP,TRANSFER FILE NEEDS UPDATING FOR USER PROGRAM NAME:SE,P3:OF,PNUSE #:DP,+----------------------------------------------------------------+##:DP,! Loading PASCAL Program 'PNUSE' w/ Non-integral Forms Routines !##:DP,+----------------------------------------------------------------+# :RU,LINK,#LPNEF::1G :SV,0,,IH ::+ " :RU,LINK,#LPIAS::1G #LPNEF::FORMS:4:2:35 644 0 0 1000 5303444616 32764 #LPNEF::FORMS:4:2:35 $ x##LPNEF +I+I+I FST * #LPNEF 94250-17052 REV.2340 <830913.1048> ECHO"** COMMAND FILE NEEDS UPDATING FOR CARTRIDGE NUMBER & SECURITY CODE "#** COMMAND FILE NEEDS UPDATING FOR USER PROGRAM RELOCATABLE FILE NAME #LL,'LPNEF:P3:P3 OP,EB LI,$FOPRL::P3 LI,$FRULB::P3 LI,$PLIBRE,%FCOMM::P3 RE,%PNUSE::P3 EN,PNUSE:P3:P3on-integral Forms Routines !##:DP,+----------------------------------------------------------------+# :RU,LINK,#LPNEF::1G :SV,0,,IH ::+ " :RU,LINK,#LPIAS::1G *LPNAS::FORMS:4:3:35 644 0 0 1400 5303444620 32240 *LPNAS::FORMS:4:3:35 $ x#*LPNAS +I+I+I FST :* *LPNAS 94250-17053 REV.2340 <830913.1048>:SV,1,,IH :DP,TRANSFER FILE NEEDS UPDATING FOR USE UNDER CI #:DP,TRANSFER FILE NEEDS UPDATING FOR CARTRIDGE NUMBER & SECURITY CODE #:DP,TRANSFER FILE NEEDS UPDATING FOR USER PROGRAM NAME:SE,P3:OF,PNUSE,ID#:DP,+----------------------------------------------------------------+##:DP,! Loading PASCAL Program 'PNUSE' w/ Non-Integral Forms Routines !##:DP,+----------------------------------------------------------------+# :RU,LINK,#LPNAS::1G :SV,0,,IH :: (( (`@h>>"׸͈((C(C ((`(C DH"ǀK(x(xAрp р#LPNAS::FORMS:4:2:35 644 0 0 1000 5303444622 32506 #LPNAS::FORMS:4:2:35 $ x##LPNAS +I+I+I FST ((* #LPNAS 94250-17054 REV.2340 <830913.1048> ECHO"** COMMAND FILE NEEDS UPDATING FOR CARTRIDGE NUMBER & SECURITY CODE "#** COMMAND FILE NEEDS UPDATING FOR USER PROGRAM RELOCATABLE FILE NAME #** COMMAND FILE NEEDS UPDATING FOR SNAP SHOT FILE NAMELL,'LPNAS:P3:P3 LI,$FOPRL::P3 LI,$FRULB::P3 LI,$PLIBN::16 RE,%FCOMM::P3 RE,%PNUSE::P3 EN,PNUSE:P3:P3 Non-Integral Forms Routines !##:DP,+----------------------------------------------------------------+# :RU,LINK,#LPNA*LFDEF::FORMS:4:2:35 644 0 0 1000 5303444624 32443 *LFDEF::FORMS:4:2:35 $ x#*LFDEF +I+I+I FST :* *LFDEF 94250-17061 REV.2340 <830913.0859>:SV,1,,IH #:DP,TRANSFER FILE NEEDS UPDATING FOR CARTRIDGE NUMBER & SECURITY CODE #:SE,P3:OF,FDEMO ":DP,+-------------------------------------------------------------+ "":DP,! Loading FORTRAN Program 'FDEMO' w/ Integral Forms Routines ! "":DP,+-------------------------------------------------------------+ " :RU,LINK,#LFDEF::1G :SV,0,,IH ::#:DP,+----------------------------------------------------------------+# :RU,LINK,#LPNA#LFDEF::FORMS:4:2:34 644 0 0 1000 5303444626 32316 #LFDEF::FORMS:4:2:34 $ x"#LFDEF +I+I+I FST * #LFDEF 94250-17062 REV.2340 <830913.0859> ECHO"** COMMAND FILE NEEDS UPDATING FOR CARTRIDGE NUMBER & SECURITY CODE "LL,'LFDEF:P3:P3 OP,EB LI,$FOFLL::P3 LI,$FLULB::P3 RE,%FOBLK::P3 RE,%FUSE2::P3 RE,%FDEMO::P3 EN,FDEMO:P3:P3EMO' w/ Integral Forms Routines ! "":DP,+-------------------------------------------------------------+ " :RU,LINK,#LFDEF::1G :SV,0,,IH ::#:DP,+----------------------------------------------------------------+# :RU,LINK,#LPNA*LFDAS::FORMS:4:2:35 644 0 0 1000 5303444630 32564 *LFDAS::FORMS:4:2:35 $ x#*LFDAS +I+I+I FST :* *LFDAS 94250-17063 REV.2340 <830913.0900>:SV,1,,IH :DP,TRANSFER FILE NEEDS UPDATING FOR USE UNDER CI #:DP,TRANSFER FILE NEEDS UPDATING FOR CARTRIDGE NUMBER & SECURITY CODE #:SE,P3:OF,FDEMO,ID":DP,+-------------------------------------------------------------+ "":DP,! Loading FORTRAN Program 'FDEMO' w/ Integral Forms Routines ! "":DP,+-------------------------------------------------------------+ " :RU,LINK,#LFDAS::1G :SV,0,,IH ::---------------+# :RU,LINK,#LPNA#LFDAS::FORMS:4:2:34 644 0 0 1000 5303444632 32441 #LFDAS::FORMS:4:2:34 $ x"#LFDAS +I+I+I FST * #LFDAS 94250-17064 REV.2340 <830913.0900> ECHO"** COMMAND FILE NEEDS UPDATING FOR CARTRIDGE NUMBER & SECURITY CODE "** COMMAND FILE NEEDS UPDATING FOR SNAP SHOT FILE NAMELL,'LFDAS::P3 SN,SN4GTO LI,$FOFLL::P3 LI,$FLULB::P3 RE,%FOBLK::P3 RE,%FUSE2::P3 RE,%FDEMO::P3 EN,FDEMO:36:36 w/ Integral Forms Routines ! "":DP,+-------------------------------------------------------------+ " :RU,LINK,#LFDAS::1G :SV,0,,IH ::---------------+# :RU,LINK,#LPNA"FBD01::FORMS:4:6:42 644 0 0 3000 5303444634 32363 "FBD01::FORMS:4:6:42 $ x*"FBD01 +I+I+IFST &v06S* "FBD01 94250-17071 REV.2340 <830913.1025> &v06S&dDMAIN MENU HELP FILE&d@&v06S&&v06S +---------+ +-----------------+ &*&v06S | | ----- C or E -------- &dJENTER&d@ --->> | SELECTION MENU | **&v06S | &dBMAIN&d@ | +-----------------+ * &v06S | | *&v06S | &dBMENU&d@ | +*****************+ **&v06S | | ----- D ------------- &dJENTER&d@ --->> | FORM DISPLAYED | *&&v06S +---------+ +*****************+ &!&v06S ^ |!%&v06S ================== &dJENTER&d@ OR ANY SOFT KEY ==========%&v06S&v06S&v06S C Allows you to define a NEW form.&v06S E Allows you to modify an ALREADY EXISTING form. *&v06S D Allows you to display an ALREADY EXISTING form as it will appear to the *&v06S operator. The ENTER key verifies :'&v06S 1 - Default values are supplied for required fields, and'*&v06S 2 - For each field, the default value matches with data type. *&v06S)&v06S FORM FILE NAMR is mandatory with the E or D functions. With the C function,)*&v06S it may be specified in this MENU or in the FILE CREATION MENU.*&v06S)&v05S &dCPRESS the HOME UP key to return to MAIN MENU.&d@)pȄ"FBD02::FORMS:4:6:62 644 0 0 3000 5303444635 32450 "FBD02::FORMS:4:6:62 $ x>"FBD02 +I+I+I"FST &v06S* "FBD02 94250-17072 REV.2340 <830913.1025> &v06S&dDSELECTION MENU HELP FILE&d@ &v06S &v06S+-----------+ &v06S| SELECTION | )&v06S| |============================================================== ))&v06S| MENU | | | | | | )>&v06S+-----------+ &dB SOFT &d@ &dB PARAMS &d@ &dB FIELDS &d@ &dB CREATE &d@ &dB SCREEN &d@>>&v06S | &dB KEYS &d@ &dB &d@ &dB &d@ &dB FILE &d@ &dB DESIGN &d@>)&v06S | | | | | | ))&v06S | v v v v v )+&v06S | +------+ +-----------+ +-------------+ +----------+ +--------+++&v06S | | SOFT | | FORM | | FIELD | | FILE | | SCREEN |+/&v06S --&dB ENTER &d@-->| KEYS | | PARAMETER | | DESCRIPTION | | CREATION | | DESIGN |/+&v06S | MENU | | MENU | | MENU | | MENU | | MENU |++&v06S +------+ +-----------+ +-------------+ +----------+ +--------++&v06S&v06S&v06S)&v06SCOMMENT LINE: Enter any information you wish to describe the current form. )#&v06S This COMMENT LINE appears in the form file list. #&v06S&v06S)&v05S &dCPRESS the HOME UP key to return to SELECTION MENU.&d@)&v06SȄ"FBD03::FORMS:4:7:60 644 0 0 3400 5303444637 31563 "FBD03::FORMS:4:7:60 $ y<"FBD03 +I+I+I$*FST &v06S* "FBD03 94250-17073 REV.2340 <830913.1025> &v06S&dDSOFT KEY MENU HELP FILE&d@ &v06S &v06S+-----------+ &v06S| SOFT KEY | (&v06S| | ============================================================((&v06S| MENU | | | | |(:&v06S+-----------+ &dB PARAMS &d@ &dB FIELDS &d@ &dB CREATE &d@ &dB SCREEN &d@ :<&v06S | &dB &d@ &dB &d@ &dA &dB FILE &d@ &dB DESIGN &d@ <(&v06S | | | | |((&v06S | v v v v(*&v06S | +-----------+ +-------------+ +----------+ +--------+**&v06S | | FORM | | FIELD | | FILE | | SCREEN |*.&v06S --&dB ENTER &d@-->> | PARAMETER | | DESCRIPTION | | CREATION | | DESIGN |.*&v06S (( | MENU | | MENU | | MENU | | MENU |**&v06S +-----------+ +-------------+ +----------+ +--------+*&v06S&v06SLABELS Enter the desired label for each soft key.&v06S&&v06SLOGICAL Enter the relations between physical and logical keys. These&&&v06S KEYS LOGICAL values are returned to the application program when&#&v06S the operator depresses the corresponding PHYSICAL key.#&v06S)&v05S &dCPRESS the HOME UP key to return to SOFT KEY MENU.&d@)&v06S()PEEH((()s()V(;0(6Vт&(;# (5(;@@ "FBD04::FORMS:4:6:54 644 0 0 3000 5303444641 32062 "FBD04::FORMS:4:6:54 $ y6"FBD04 +I+I+I4FST &v06S* "FBD04 94250-17074 REV.2340 <830913.1025> &v06S&dDFORM PARAMETER MENU HELP FILE&d@ &v06S#&v06S +-----------+ +--------+##&v06S | FORM | | SCREEN |#'&v06S | PARAMETER | ----- &dJENTER&d@ --------------------->> | DESIGN |'#&v06S | MENU | | MENU |##&v06S +-----------+ +--------+#&v06S%&v06SCOLOR If you specify colors, you may assign a color pair for%&&v06S the window and the text. These are the standard values: &' 0 = White &v01S1 = Red &v02S2 = Green &v03S3 = Yellow ') &v04S4 = Blue &v05S5 = Magenta &v06S6 = Cyan &v07S7 = Black)&v06S#&v06SENHANCEMENTS Enter none, one or a combination of these values :#6&v06S &dAB&d@=Blinking &dDU&d@=Underlined &dBI&d@=Inverse video &dHH&d@=half bright6&v06S'&v06SFIELD TYPE O = optional R = required D = display only'#&v06SDATA TYPE C = character I = integer R = real#&v06S'&v06S! Warning ! If the 264X SOFTKEY LABELS are visible, the WINDOW LINE'&v06S NUMBER must be within the range 1 to 22.&v06S)&v05S &dCPRESS the HOME UP key to return to FORM PARAMETER MENU.&d@)&v06S depresses the corresponding PHYSICAL key.#&v06S)&v05S "FBD05::FORMS:4:6:41 644 0 0 3000 5303444643 32022 "FBD05::FORMS:4:6:41 $ y)"FBD05 +I+I+I<FST &v06S* "FBD05 94250-17075 REV.2340 <830913.1025> &v06S&dDSCREEN DESIGN MENU HELP FILE&d@&v06S%&v06S +--------+ +-------------+ %%&v06S | SCREEN | | FIELD | %)&v06S | DESIGN | ----- &dJENTER&d@ ---------------------->> | DESCRIPTION | )%&v06S | MENU | | MENU | %%&v06S +--------+ +-------------+ %&v06S&v06SYou are now ready to create or edit a form :&v06S &v06S&dDTEXT&d@ may be entered by typing characters normally. &v06S &v06S&dDCREATE a FIELD : (&v06S Position the cursor at the beginning of the field, press the ([) START ('&v06S FIELD key, then type a name, called the BRIEF NAME, then position'(&v06S the cursor at the end of the field, then press the STOP FIELD (]) key. ('&v06S The BRIEF NAME identifies the field. It must be lie within the field.'&v06S&&v06S&dDDELETE or SHORTEN fields or text&d@ > use DELETE CHAR key &&&v06S&dDEXTEND fields or text&d@ > use INSERT CHAR key &&v06S%&v06S! Warning ! 13 fields per line with color / 25 fields without color%&v06S)&v05S &dCPRESS the HOME UP key to return to SCREEN DESIGN MENU.&d@)&dCPRESS the HOME UP key to return to FORM PARAMETER MENU.&d@)&v06S depresses the corresponding PHYSICAL key.#&v06S)&v05S "FBD06::FORMS:4:6:45 644 0 0 3000 5303444645 32125 "FBD06::FORMS:4:6:45 $ y-"FBD06 +I+I+IDFST &v06S* "FBD06 94250-17076 REV.2340 <830913.1025> &v06S&dDFIELD DESCRIPTION MENU HELP FILE&d@&v06S &v06S+-------------+ &v06S| FIELD | #&v06S| DESCRIPTION | =============================================== ##&v06S| MENU | | | #-&v06S+-------------+ &dJ SPECIFY&d@ &dJ SCREEN &d@ --&v06S | &dJ FIELD &d@ &dJ DESIGN &d@ -#&v06S | v v #%&v06S | +----------+ +---------+ +--------+%%&v06S | | FILE | | SPECIFY | | SCREEN |%)&v06S -- &dJENTER&d@ -->> | CREATION | | FIELD | | DESIGN |)%&v06S | MENU | | MENU | | MENU |%%&v06S +----------+ +---------+ +--------+%&v06S&&v06SThis menu gives you an overview of the fields currently defined. You &&&v06Scan select a field using the Previous/Next Field or Previous/Next&&v06SPage soft keys and edit it in the SPECIFY FIELD MENU. &v06S%&v06SIf all field parameters are correct, press ENTER to display the% &v06SFILE CREATION menu. &v06S)&v05S &dCPRESS the HOME UP key to return to FIELD DESCRIPTION MENU.&d@)&v06SU.&d@)&v06S depresses the corresponding PHYSICAL key.#&v06S)&v05S "FBD07::FORMS:4:7:71 644 0 0 3400 5303444647 32033 "FBD07::FORMS:4:7:71 $ y G"FBD07 +I+I+IWLFST &v06S* "FBD07 94250-17077 REV.2340 <830913.1025> &v06S&dDSPECIFY FIELD MENU HELP FILE&d@ &v06S +------------+ &&v06S -->> | SPECIFY | ================================================ &&&v06S | | FIELD MENU | | | | &4&v06S | +------------+ &dJ FIELDS &d@ &dJ CREATE &d@ &dJ SCREEN &d@ 44&v06S | | &dJ &d@ &dJ FILE &d@ &dJ DESIGN &d@ 4*&v06S --- &dJENTER&d@ --- v v v *)&v06S (next field) +------------------+ +---------------+ +-------------+))&v06S | FIELD | | FILE | | SCREEN |))&v06S | DESCRIPTION MENU | | CREATION MENU | | DESIGN MENU |))&v06S +------------------+ +---------------+ +-------------+)&v06S+&v06SThis menu allows you to edit the attributes and the initial value of the field. +"&v06SFIELD NAME (required) is used for application program access. "&v06SG&v06S&dDCOLORS&d@ >> &v00S0:White &v01S1:Red &v02S2:Green &v03S3:Yellow &v04S4:Blue &v05S5:Magenta &v06S6:Cyan &v07S7:black G ?&v06S&dDEnhancement&d@ >> &dAB&d@ : Blinking &dDU&d@ : Underlined &dBI&d@ : Inverse video &dHH&d@:Half bright?&v06S/&v06S&dDField TYPE&d@ (required) >> O : Optional R : Required D : Display only /&v06S+&v06S&dDDATA TYPE&d@ (required) >> C : Character I : Integer R : Real +&v06S)&v05S &dBPRESS the HOME UP key to return to SPECIFY FIELD MENU.&d@)Vт&(;# (5(;@@ "FBD08::FORMS:4:7:46 644 0 0 3400 5303444651 31723 "FBD08::FORMS:4:7:46 $ y(."FBD08 +I+I+IVFST ((&v06S* "FBD08 94250-17078 REV.2340 <830913.1025> &v06S&dDFILE CREATION MENU HELP FILE&d@&v06S &v06S+----------+ &v06S| FILE | #&v06S| CREATION | ================================================== ##&v06S| MENU | | | #-&v06S+----------+ &dJ SELECT &d@ &dJ FIELDS &d@ --&v06S | &dJ &d@ &dJ &d@ -#&v06S | v v #&&v06S | +--------+ +-----------+ +-------------+&&&v06S | | MAIN | | SELECTION | | FIELD |&*&v06S -- &dJENTER&d@ -->> | | | | | DESCRIPTION |*&&v06S | MENU | | MENU | | MENU |&&&v06S +--------+ +-----------+ +-------------+&&v06S)&v06SThis menu allows you to CREATE / REPLACE a FORM file and CREATE a LIST file.)&v06S.&v06SIf you want to ensure the compatibility with your old program, use the &dDVERIFY&d@ .*&v06Soption. If verify is requested, checks are made to ensure that all field names*+&v06Sin the original form exist with the same length, same data type (char,int,real) +*&v06Sand same field type (opt.,req.,disp.only), in the new form. If not, an error * &v06Sis displayed. &v06S)&v05S &dCPRESS the HOME UP key to return to FILE CREATION MENU.&d@) C : Character I : Integer R : Real +&v06S)&v05S &dBPRESS the HOME UP key to return to SPECIFY FIELD MENU.&d@)Vт&(;# (5(;@@ "FDEM1::FORMS:4:5:44 644 0 0 2400 5303444653 32216 "FDEM1::FORMS:4:5:44 $ y0,"FDEM1 +I+I+It`FST * "FDEMO 94250-17081 REV.2340 <830913.0900>  *** F/1000 DEMO program : HELP SCREEN *** %This program computes the VOLUME and the WEIGHT of a liquid which fills a %$rectangular container, by the 3 dimensions HEIGHT, WIDTH, LENGTH of this$container and the SPECIFIC WEIGHT of the liquid.  --------------------'Enter your values in the 4 fields. You may choose fixed point, floating point ',or integer formats. For example: &dB12.34&d@ &dB1.2E1&d@ &dB 123 , Use the TAB key to move the cursor from one field to the next. 'Once your values are entered, press the ENTER key. Then, the computed results '%are displayed on a second form (FORM 2), with the values you have entered.%'FORM 2 contains only text and display-only fields. Hence, you will not be able'to enter any values on this form.  %When FORM 2 is displayed, you can return to FORM 1 by pressing the softkey%labelled "RETURN TO FORM1". !FORM 1 is then displayed again with the values previously entered.! To terminate the program, press the softkey EXIT in FORM 1.   &dBPress the "HOME UP" key to return to the form    names*+&v06Sin the!FBD01::FORMS:3:5:75 644 0 0 2400 5303444655 32144 !FBD01::FORMS:3:5:75 $ y8K!FBD01 +I+I+IphFST <vFO $ *!FBD01 94250-17091 REV.2340 F/1000 Form Builder Main menu (US Version)  Y F01 V02OC<!?F FB1_FUNC'RCEB063C057F/1000 Form BuildePC ! >NAME FB1_NAME 'OCEB063C057F/1000 Form BuildePC >&v02S * F/1000 Form Builder : Main menu * &v02S &v02S &v02S &v02S /\&v02S Select an appropriate function : &v06S&dB[ ]&d@&v02S C ... Create a form/'L&v02S E ... Edit an existing form')O&v02S D ... Display an existing form )&v02S &v02S &v02S &v02S -X&v02S Form file namr : &v06S&dB[ ]&d@&v02S-&v02S &v02S &v02S &v02S &v02S &v02S ,V&v02SPressing ENTER is the normal way to activate the next screen of the Form Builder,&v02S )O )  KFO $ HELP REFRESH QUIT K  names*+&v06Sin the!FBD02::FORMS:3:6:75 644 0 0 3000 5303444657 32331 !FBD02::FORMS:3:6:75 $ y@K!FBD02 +I+I+IpFST <vFO $*!FBD02 94250-17092 REV.2340 F/1000 Form Builder Selection menu (US Version) Y F01 V02OC}-< >NAME FB2_NAMEDCED063B05/1000 Form Builder Sel >DATE FB2_DATEDCED063B05/1000 Form Builder Sel >COMMENT FB2_COMTP OCEB063C051000 Form Builder Sel #C&v02S * F/1000 Form Builder : Selection menu * #&v02S &v02S &v02S )P&v02S Form file namr : &v06S&dD] ]&d@&v02S)&v02S ,U&v02S Last modification date : &v06S&dD] ]&d@&v02S ,&v02S &v02S &v02S 2&v02S Form file comment line :&v02S 2b&v02S&v06S&dB[ 2&v02S &v02S &v02S &v02S *Q&v02SIf the form already exists, you may use the soft keys to activate at random *3&v02Sany menu; otherwise press ENTER to proceed. &v02S &v02S )O )&v02S )O )KFO $ SOFT KEYS PARAMS FIELDS CREATE FILE HELP SCREEN DESIGN REFRESH ABORT TO MAINK If not, an error * &v06Sis displayed. &v06S)&v05S &dCPRESS the HOME UP key to return !FBD03::FORMS:3:14:140 644 0 0 7000 5303444661 32623 !FBD03::FORMS:3:14:140 $ yP!FBD03 +I+I+I2xFST <vFO $*!FBD03 94250-17093 REV.2340 F/1000 Form Builder Soft key menu (US version)  Y F01 V02OC< >LAB11 FB3_LB11 OCVB064C051000 Form Builder Soft >LAB21 FB3_LB21 OCVB064C0521000 Form Builder Soft >LAB31 FB3_LB31 OCVB064C05S1000 Form Builder Soft >LAB41 FB3_LB41 OCVB064C05t1000 Form Builder Soft >LAB51 FB3_LB51 -OCVB064C051000 Form Builder Soft >LAB61 FB3_LB61 6OCVB064C051000 Form Builder Soft >LAB71 FB3_LB71 ?OCVB064C051000 Form Builder Soft >LAB81 FB3_LB81 HOCVB064C051000 Form Builder Soft >LAB12 FB3_LB12 OCVB064C051000 Form Builder Soft >LAB22 FB3_LB22 OCVB064C0521000 Form Builder Soft >LAB32 FB3_LB32 OCVB064C05S1000 Form Builder Soft >LAB42 FB3_LB42 OCVB064C05t1000 Form Builder Soft >LAB52 FB3_LB52 -OCVB064C051000 Form Builder Soft >LAB62 FB3_LB62 6OCVB064C051000 Form Builder Soft >LAB72 FB3_LB72 ?OCVB064C051000 Form Builder Soft >LAB82 FB3_LB82 HOCVB064C051000 Form Builder Soft !?A FB3_TAB1RIVB064C051000 Form Builder P1 !!?B FB3_TAB2 RIVB064C0551000 Form Builder P2 !!?C FB3_TAB3RIVB064C05V1000 Form Builder P3 !!?D FB3_TAB4RIVB064C05w1000 Form Builder P4 !!?E FB3_TAB50RIVB064C05((1000 Form Builder P5 !!?F FB3_TAB69RIVB064C051000 Form Builder P6 !!?G FB3_TAB7BRIVB064C051000 Form Builder P7 !!?H FB3_TAB8KRIVB064C051000 Form Builder P8 !$F&v02S * F/1000 Form Builder : Soft key definition *$&v02S &v02S &v02S 6&v02S Physical position&v02S *Q&v02S f1 f2 f3 f4 f5 f6 f7 f8 *&v02S 1&v02S Label &v02S &v02S&v06S&dB[ ]&v02S&d@ &v06S&dB[ ]&v02S&d@ &v06S&dB[ ]&v02S&d@ &v06S&dB[ ]&v02S&d@ &v06S&dB[ ]&v02S&d@ &v06S&dB[ ]&v02S&d@ &v06S&dB[ ]&v02S&d@ &v06S&dB[ ]&v02S&d@ &v02S&v06S&dB[ ]&v02S&d@ &v06S&dB[ ]&v02S&d@ &v06S&dB[ ]&v02S&d@ &v06S&dB[ ]&v02S&d@ &v06S&dB[ ]&v02S&d@ &v06S&dB[ ]&v02S&d@ &v06S&dB[ ]&v02S&d@ &v06S&dB[ ]&v02S&d@ &v02S &v02S ;&v02S Corresponding logical key 2&v02S (1 to 8)&v02S &v02S &v06S&dB[ ]&v02S&d@ &v06S&dB[ ]&v02S&d@ &v06S&dB[ ]&v02S&d@ &v06S&dB[ ]&v02S&d@ &v06S&dB[ ]&v02S&d@ &v06S&dB[ ]&v02S&d@ &v06S&dB[ ]&v02S&d@ &v06S&dB[ ]&v02S&d@ &v02S &v02S &v02S )O )  KFO $ PARAMS FIELDS CREATE FILE HELP SCREEN DESIGN REFRESH ABORT TO MAINKO )  KFO $ PARAMS !FBD04::FORMS:3:9:75 644 0 0 4400 5303444662 32355 !FBD04::FORMS:3:9:75 $ y` K!FBD04 +I+I+I {#ňFST <vFO $ *!FBD04 94250-17094 Rev.2340 F/1000 Form Builder Parameters menu (US version) Y F01 V02OC ^<!?C FB4_COLR'RCRB062C0571000 Form Builder PY !!@TC FB4_TXCL'OIRB062C0571000 Form Builder P 2 !!@WL FB4_WLIN 'RIRB062C0571000 Form Builder P24 !"BWE FB4_WENH 'OCRB062C0571000 Form Builder PUI "!@WC FB4_WCLR 'OIRB062C0571000 Form Builder P 1 ! >WDEF FB4_WDEFP OCRB062C051000 Form Builder P 1 !?L FB4_SLOC'RCRB062C0571000 Form Builder PN !!?F FB4_DEFL>RCRB062C05N1000 Form Builder PO !!?D FB4_DEFD>RCRB062C05N1000 Form Builder PC !"A&v02S * F/1000 Form Builder : Form Parameters * "&v02S &v02S &v02S +S&v02S Do you want to specify colors ? : &v06S&dB[ ]&d@&v02S (Yes,No) +&v02S +S&v02S Text color pair : &v06S&dB[ ]&d@&v02S (0 to 7) +&v02S +T&v02S Window line number : &v06S&dB[ ]&d@&v02S (1 to 24)+*Q&v02S Window enhancements : &v06S&dB[ ]&d@&v02S (BUIH) *+S&v02S Window color pair : &v06S&dB[ ]&d@&v02S (0 to 7) +*&v02S Window default value :2b&v02S&v06S&dB[ 2&v02S -X&v02S 264x softkey labels : &v06S&dB[ ]&d@&v02S N = Not visible-<&v02S V = Visible&v02S 4f&v02S Default values for new fields to be created : Field type &v06S&dB[ ]&d@&v02S (O,R,D)44f&v02S Data type &v06S&dB[ ]&d@&v02S (C,I,R)4&v02S !&v02S Press ENTER to proceed. )O )&v02S )O )KFO $ HELP REFRESH ABORT TO MAINK!FBD06::FORMS:3:13:75 644 0 0 6400 5303444664 32454 !FBD06::FORMS:3:13:75 $ yl K!FBD06 +I+I+I g)ŔFST <vFO $*!FBD06 94250-17096 REV.2340 F/1000 Form Builder Field Desc Menu (US version) Y F01 V02OCff< >FB6_FL01 FB6_FL01:DCED063F061000 Form Builder Fiel >FB6_FL02 FB6_FL02:DCED063F061000 Form Builder Fiel >FB6_FL03 FB6_FL03: DCED063F061000 Form Builder Fiel >FB6_FL04 FB6_FL04: DCED063F061000 Form Builder Fiel >FB6_FL05 FB6_FL05: DCED063F061000 Form Builder Fiel >FB6_FL06 FB6_FL06: DCED063F061000 Form Builder Fiel >FB6_FL07 FB6_FL07: DCED063F061000 Form Builder Fiel >FB6_FL08 FB6_FL08:DCED063F061000 Form Builder Fiel >FB6_FL09 FB6_FL09:DCED063F061000 Form Builder Fiel >FB6_FL10 FB6_FL10:DCED063F061000 Form Builder Fiel >FB6_FL11 FB6_FL11:DCED063F061000 Form Builder Fiel >FB6_FL12 FB6_FL12:DCED063F061000 Form Builder Fiel >FB6_FL13 FB6_FL13:DCED063F061000 Form Builder Fiel >FB6_FL14 FB6_FL14:DCED063F061000 Form Builder Fiel >FB6_FL15 FB6_FL15:DCED063F061000 Form Builder Fiel #C&v02S * F/1000 Form Builder : Field Description * #&v02S &v02S  =&v02S Field Brief Field Video enh./Color "B&v02S # name name L R C normal altern. F D "&v02S 7l&v02S &v06S&dD] ]&v02S&d@ L : Field length 7.Z&v02S &v06S&dD] ]&v02S&d@ .6i&v02S &v06S&dD] ]&v02S&d@ R : Field row 6.Z&v02S &v06S&dD] ]&v02S&d@ .7k&v02S &v06S&dD] ]&v02S&d@ C : Field start 75g&v02S &v06S&dD] ]&v02S&d@ column 5.Z&v02S &v06S&dD] ]&v02S&d@ .6j&v02S &v06S&dD] ]&v02S&d@ F : Field type 6.Z&v02S &v06S&dD] ]&v02S&d@ .6i&v02S &v06S&dD] ]&v02S&d@ D : Data type 6.Z&v02S &v06S&dD] ]&v02S&d@ ..Z&v02S &v06S&dD] ]&v02S&d@ ..Z&v02S &v06S&dD] ]&v02S&d@ ..Z&v02S &v06S&dD] ]&v02S&d@ ..Z&v02S &v06S&dD] ]&v02S&d@ .)O )&v02S )O )KFO $PREVIOUS FIELD NEXT FIELD PREVIOUS PAGE NEXT PAGE HELP SCREEN DESIGN SPECIFY FIELD ABORT TO MAINK&v02S )O !FBD07::FORMS:3:11:77 644 0 0 5400 5303444666 32406 !FBD07::FORMS:3:11:77 $ y| M!FBD07 +I+I+I (ŤFST <vFO $*!FBD07 94250-17097 REV.2340 F/1000 Form Builder Specify Field Menu (US version)  Y F01 V02OC b< >BRIEF FB7_BREF DCVD064B05#0 Form Builder Specify >LG FB7_LENG2DIVD064B05Z0 Form Builder Specify >RW FB7_ROW FDIVD064B050 Form Builder Specify >CN FB7_COLNFDIVD064B05V0 Form Builder Specify >NAME FB7_NAMERCVB064C05#0 Form Builder Specify >INITIAL FB7_IVALP OCVB064C050 Fo((rm Builder Specify >UNDERLINE FB7_ULINP DCV@064@050 Form Builder Specify >NENH FB7_ENH OCVB064C05)0 Form Builder Specify >NC FB7_COLR9OIVB064C05a0 Form Builder Specify >AENH FB7_ERENOCVB064C05)0 Form Builder Specify >AC FB7_ERCL9OIVB064C05a0 Form Builder Specify >F FB7_DEFLRCVB064C05)0 Form Builder Specify >D FB7_DEFD9RCVB064C05a0 Form Builder Specify "B&v02S * F/1000 Form Builder : Specify field * "&v02S &v02S M&v02S Brief name : &v06S&dD] ]&d@&v02S Field length : &v06S&dD] ]&d@&v02S Row : &v06S&dD] ]&d@&v02S M5g&v02S Column : &v06S&dD] ]&d@&v02S 5&v02S :&v02S Field name : &v06S&dB[ ]&d@&v02S &v02S 3&v02S Initial value : 2b&v02S&v06S&dB[ 23d&v02S]&v06S&d@] 3&v02S (N&v02S Video enhancements (B,U,I,H) Color pair (0 to 7) (&v02S :r&v02S Normal : &v06S&dB[ ]&d@&v02S &v06S&dB[ ]&d@&v02S ::r&v02S Alternate : &v06S&dB[ ]&d@&v02S &v06S&dB[ ]&d@&v02S :&v02S &v02S @}&v02S Field type : &v06S&dB[ ]&d@&v02S (O,R,D) Data type : &v06S&dB[ ]&d@&v02S (C,I,R) @&v02S &v02S )O )  )P Pressing ENTER key will display the parameters for the NEXT field in the form )KFO $ FIELDS CREATE FILE HELP SCREEN DESIGN REFRESH ABORT TO MAINK  )P Pressing ENTER key will display the parameters for the NEXT field in the form )KFO $ FIELDS CREATE FILE HELP SCREEN !FBD08::FORMS:3:7:75 644 0 0 3400 5303444670 32427 !FBD08::FORMS:3:7:75 $ yK!FBD08 +I+I+IF ŲFST <vFO $*!FBD08 94250-17098 REV.2340 F/1000 Form Builder Creation Menu (US version)   Y F01 V02OC1< >F FB8_FUNCRCEB063C05!/1000 Form Builder Cre !?V FB8_VERI7RCEB063C05G/1000 Form BuilderPN ! >NAME FB8_NAME RCEB063C05'/1000 Form BuilderPN >LIST FB8_LISTOCEB063C05'/1000 Form BuilderPN >FLD FB8_FLNBDIED063E01)/1000 Form BuilderPN >SIZE FB8_FLSZJDIED063E01r/1000 Form BuilderPN "A&v02S * F/1000 Form Builder : File creation * "&v02S &v02S &v02S !@&v02S Function : &v06S&dB[ ]&d@&v02S C ... Create!)&v02S R ... Replace &v02S 4f&v02S Verification before replacing an existing form : &v06S&dB[ ]&d@&v02S V ... Verify4*Q&v02S N ... No verify *&v02S &v02S &I&v02S Form File namr : &v06S&dB[ ]&d@&v02S &&v02S &v02S 0^&v02S List File namr : &v06S&dB[ ]&d@&v02S (blank = none)0&v02S &v02S &v02S C&v02S Number of fields : &v06S&dD] ]&d@&v02S Total number of characters in fields : &v06S&dD] ]&d@&v02S C&v02S &v02S )O )  KFO $ SELECT FIELDS HELP REFRESH ABORT TO MAINK2S 4f&v02S Default values for new fields to be created : Field type &v06S&dB[ ]&d@&v02S (O,R,D)4!FDEM1::FORMS:3:10:75 644 0 0 5000 5303444672 33072 !FDEM1::FORMS:3:10:75 $ y K!FDEM1 +I+I+I &żFST <vFO $ *!FDEM1 94250-17101 REV.2340 F/1000 Demo Main menu (US Version)   Y F01 V02DC < >H HEIGHT (RRRB062C058/1000 Demo Main me >H_UNIT H_UNIT /DCR@062B05W/1000 Demo Main me >H_ERROR H_ERROR 2DCR@012B05*/1000 Demo Main me >W WIDTH  (RRRB062C058/1000 Demo Main me >W_UNIT W_UNIT  /DCR@062B05W/1000 Demo Main me >W_ERROR W_ERROR 2 DCR@012B05*/1000 Demo Main me >L LENGTH  (RRRB062C058/1000 Demo Main me >L_UNIT L_UNIT  /DCR@062B05W/1000 Demo Main me >L_ERROR L_ERROR 2 DCR@012B05*/1000 Demo Main me >SP SPWEIGHTRRRB062C05+/1000 Demo Main me >S_UNIT S_UNIT "DCR@062B05J/1000 Demo Main me >S_ERROR S_ERROR 2DCR@012B05/1000 Demo Main me "B&v02S *** F/1000 DEMO program : FORM 1 ***"&v02S &v02S &v02S CONTAINER DIMENSIONS :&v02S :q&v02S Height : &v06S&dB[ ]&v02S&d@ &v06S&d@] ]&v02S&d@ :7k&v02S &v01S&d@] ]&v02S&d@ 7&v02S :q&v02S Width : &v06S&dB[ ]&v02S&d@ &v06S&d@] ]&v02S&d@ :8m&v02S &v01S&d@] ]&v02S&d@ 8&v02S :q&v02S Length : &v06S&dB[ ]&v02S&d@ &v06S&d@] ]&v02S&d@ :7l&v02S &v01S&d@] ]&v02S&d@ 7&v02S  &v02S LIQUID CHARACTERISTICS :&v02S 3c&v02S Specific weight : &v06S&dB[ ]&v02S&d@ &v06S&d@] ]&v02S&d@ 38m&v02S &v01S&d@] ]&v02S&d@ 8&v02S .&v02S &v05SType your values and press ENTER.9&v02S &v05S(If you need help, press the HELP softkey). )O )  KFO $ EXIT HELP Kv(vHĄQPP(|(!FDEM2::FORMS:3:10:75 644 0 0 5000 5303444674 33027 !FDEM2::FORMS:3:10:75 $ y K!FDEM2 +I+I+I 'FST <vFO $ *!FDEM2 94250-17102 REV.2340 F/1000 Demo Second menu (US Version)   Y C01 V02DC TT< >VOLUME VOLUME $DR B06.B054F/1000 Demo Second m >V_UNIT V_UNIT /DC @06.B05WF/1000 Demo Second m >WEIGHT WEIGHT $DR B06.B054F/1000 Demo Second m >M_UNIT M_UNIT /DC @06.B05WF/1000 Demo Second m >H HEIGHT DR @06.B05,F/1000 Demo Second m >H_UNIT H_UNIT #DC @06.B05KF/1000 Demo Second m >W WIDTH DR @06.B05,F/1000 Demo Second m >W_UNIT W_UNIT #DC @06.B05KF/1000 Demo Second m >L LENGTH DR @06.B05,F/1000 Demo Second m >L_UNIT L_UNIT #DC @06.B05KF/1000 Demo Second m >SP SPWEIGHTDR @06.B05,F/1000 Demo Second m >S_UNIT S_UNIT #DC @06.B05KF/1000 Demo Second m "B&v02S *** F/1000 DEMO program : FORM 2 *** "&v02S &v02S $E&v02S RESULTS: $&v02S 7l&v02S Volume : &v06S&dB] ]&v02S&d@ &v06S&d@] ]&v02S&d@7&v02S 7l&v02S Weight : &v06S&dB] ]&v02S&d@ &v06S&d@] ]&v02S&d@7&v02S &v02S &v02S $F&v02S VALUES ENTERED: $&v02S 4e&v02S Heigh((t : &v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ 44e&v02S Width : &v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ 44e&v02S Length : &v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ 4&v02S 3d&v02S Specific weight : &v06S&d@] ]&v02S&d@ &v06S&d@] ]&v02S&d@ 3&v02S &v02S &v02S )O )  )P PRESS THE "RETURN TO FORM1" KEY TO ENTER NEW VALUES. )KFO $ RETURN TO FORM1 K HELP Kv(vHĄQPP(|(!FDEM3::FORMS:3:15:75 644 0 0 7400 5303444676 33066 !FDEM3::FORMS:3:15:75 $ yK!FDEM3 +I+I+Io+FST <vFO $ *!FDEM3 94250-17103 REV.2340 F/1000 Demo localization Form (US Version)   YrF01.N02OCll<$FH_UNIT H_UNIT DC B06.C05(F/1000 Demo locaPcm $#DH_CONV H_CONV 2DR B06.C05ZF/1000 Demo locaP0.01 #$FW_UNIT W_UNIT DC B06.C05(F/1000 Demo locaPcm $#DW_CONV W_CONV 2DR B06.C05ZF/1000 Demo locaP0.01 #$FL_UNIT L_UNIT  DC B06.C05(F/1000 Demo locaPcm $#DL_CONV L_CONV  2DR B06.C05ZF/1000 Demo locaP0.01 #$FS_UNIT S_UNIT  DC B06.C05(F/1000 Demo locaPkg/l $#DS_CONV S_CONV  2DR B06.C05ZF/1000 Demo locaP1.000 #$FV_UNIT V_UNIT  DC B06.C05(F/1000 Demo locaPliters $#DV_CONV V_CONV  2DR B06.C05ZF/1000 Demo locaP1.000 #$FM_UNIT M_UNIT  DC B06.C05(F/1000 Demo locaPkg $#DM_CONV M_CONV  2DR B06.C05ZF/1000 Demo locaP1.000 #9pH_ERROR H_ERROR 2DC B06.C05 F/1000 Demo locaPIncorrect value (allowed range : 0 to 200) 99pW_ERROR W_ERROR 2DC B06.C05 F/1000 Demo locaPIncorrect value (allowed range : 0 to 200) 99pL_ERROR L_ERROR 2DC B06.C05 F/1000 Demo locaPIncorrect value (allowed range : 0 to 200) 99pS_ERROR S_ERROR 2DC B06.C05 F/1000 Demo locaPIncorrect value (allowed range : 0 to 1.5) 9HWINDOW WINDOW PDC B06.C05F/1000 Demo locaP VALUE(S) OUT OF RANGE !!! Please correct. H<&v02S ***** LOCALIZATION FORM *****&v02S $&v02SUNITS AND CONVERSION FACTORS :%&v02S 'K&v02S Units (field name) Conversion (field name) '%H&v02S factors %B&v02S HEIGHT : &v06S&dB] ]&d@&v02S (H_UNIT) &v06S&dB] ]&d@&v02S (H_CONV) BB&v02S WIDTH : &v06S&dB] ]&d@&v02S (W_UNIT) &v06S&dB] ]&d@&v02S (W_CONV) BB&v02S LENGTH : &v06S&dB] ]&d@&v02S (L_UNIT) &v06S&dB] ]&d@&v02S (L_CONV) BB&v02S SPEC. WEIGHT : &v06S&dB] ]&d@&v02S (S_UNIT) &v06S&dB] ]&d@&v02S (S_CONV) BB&v02S VOLUME : &v06S&dB] ]&d@&v02S (V_UNIT) &v06S&dB] ]&d@&v02S (V_CONV) BB&v02S WEIGHT : &v06S&dB] ]&d@&v02S (M_UNIT) &v06S&dB] ]&d@&v02S (M_CONV) B&v02S +S&v02SPROGRAM MESSAGES : (field name) +&v02S 6i&v02S Message 1 : &v06S&dB] ]&d@&v02S (H_ERROR) 66i&v02S Message 2 : &v06S&dB] ]&d@&v02S (W_ERROR) 66i&v02S Message 3 : &v06S&dB] ]&d@&v02S (L_ERROR) 66i&v02S Message 4 : &v06S&dB] ]&d@&v02S (S_ERROR) 6 &v02S 4&v02S Window line message : (field name : WINDOW)2b&v02S&v06S&dB] 2&v02S )O )KFO $ KVOLUME : &v06S&dB] !FDEM4::FORMS:3:15:75 644 0 0 7400 5303444700 33125 !FDEM4::FORMS:3:15:75 $ yK!FDEM4 +I+I+Io+FST <vFO $ *!FDEM4 94250-17104 REV.2340 F/1000 Demo Localization form (US version)  aYcF01eN02OCll<$FH_UNIT H_UNIT DC B06.C05( F/1000 Demo LocaPinches $#DH_CONV H_CONV 2DR B06.C05Z F/1000 Demo LocaP0.0254 #$FW_UNIT W_UNIT DC B06.C05( F/1000 Demo LocaPinches $#DW_CONV W_CONV 2DR B06.C05Z F/1000 Demo LocaP0.0254 #$FL_UNIT L_UNIT  DC B06.C05( F/1000 Demo LocaPinches $#DL_CONV L_CONV  2DR B06.C05Z F/1000 Demo LocaP0.0254 #$FS_UNIT S_UNIT  DC B06.C05( F/1000 Demo LocaPlbs/gal $#DS_CONV S_CONV  2DR B06.C05Z F/1000 Demo LocaP0.120 #$FV_UNIT V_UNIT  DC B06.C05( F/1000 Demo LocaPgallons $#DV_CONV V_CONV  2DR B06.C05Z F/1000 Demo LocaP3.785 #$FM_UNIT M_UNIT  DC B06.C05( F/1000 Demo LocaPpounds $#DM_CONV M_CONV  2DR B06.C05Z F/1000 Demo LocaP0.454 #9pH_ERROR H_ERROR 2DC B06.C05 F/1000 Demo LocaPIncorrect value (allowed range : 0 to 78.7) 99pW_ERROR W_ERROR 2DC B06.C05 F/1000 Demo LocaPIncorrect value (allowed range : 0 to 78.7) 99pL_ERROR L_ERROR 2DC B06.C05 F/1000 Demo LocaPIncorrect value (allowed range : 0 to 78.7) 99pS_ERROR S_ERROR 2DC B06.C05 F/1000 Demo LocaPIncorrect value (allowed range : 0 to 12.5) 9HWINDOW WINDOW PDC B06.C05 F/1000 Demo LocaP VALUE(S) OUT OF RANGE !!! Please correct. H<&v02S ***** LOCALIZATION FORM *****&v02S $&v02SUNITS AND CONVERSION FACTORS :%&v02S 'K&v02S Units (field name) Conversion (field name) '%H&v02S factors %B&v02S HEIGHT : &v06S&dB] ]&v02S&d@ (H_UNIT) &v06S&dB] ]&v02S&d@ (H_CONV) BB&v02S WIDTH : &v06S&dB] ]&v02S&d@ (W_UNIT) &v06S&dB] ]&v02S&d@ (W_CONV) BB&v02S LENGTH : &v06S&dB] ]&v02S&d@ (L_UNIT) &v06S&dB] ]&v02S&d@ (L_CONV) BB&v02S SPEC. WEIGHT : &v06S&dB] ]&v02S&d@ (S_UNIT) &v06S&dB] ]&v02S&d@ (S_CONV) BB&v02S VOLUME : &v06S&dB] ]&v02S&d@ (V_UNIT) &v06S&dB] ]&v02S&d@ (V_CONV) BB&v02S WEIGHT : &v06S&dB] ]&v02S&d@ (M_UNIT) &v06S&dB] ]&v02S&d@ (M_CONV) B&v02S +S&v02SPROGRAM MESSAGES : (field name) +&v02S 6i&v02S Message 1 : &v06S&dB] ]&v02S&d@ (H_ERROR) 66i&v02S Message 2 : &v06S&dB] ]&v02S&d@ (W_ERROR) 66i&v02S Message 3 : &v06S&dB] ]&v02S&d@ (L_ERROR) 66i&v02S Message 4 : &v06S&dB] ]&v02S&d@ (S_ERROR) 6 &v02S 4&v02S Window line message : (field name : WINDOW)2b&v02S&v06S&dB] 2&v02S )O )KFO $ KVOLUME : &v06S&dB] (("FOLCL::FORMS:4:28:39 644 0 0 16000 5303444702 33707 "FOLCL::FORMS:4:28:39 $ y'"FOLCL +I+I+I FST * "FOLCL 94250-17899 REV.5000 **FO--MSG--5000** <870420.1056> * * F/1000 LOCALIZATION FILE >>>>> "FOLCL <<<<<* * Contains the F/1000 localizable parameters such as:* * 1. F/1000 error messages* 2. Character upshift table* 3. F/1000 Form Builder parameters *  * For instructions on how to use this file, please see line 118 *  * Please read the instructions before making ANY modifications. * %*---------------------- Start of FORMS ACCESS ROUTINES ------------------*% * v Decimal point is >> . << * * #* 1 2 3 4 5 6 7#'*FORMS MESSAGES ------------------------------------- UP TO 80 BYTES --------V'! FR001 REQUIRED FIELD(S) MISSING. PLEASE ENTER MISSING VALUE(S). !" FR002 DATA ENTERED DOES NOT MATCH FIELD TYPE. PLEASE REENTER VALUE."" FR003 DATA ENTERED IS OUTSIDE ACCEPTED RANGE. PLEASE REENTER VALUE."$* 0----5----0----5----0----5----0----5----0----5----0----5----0--3$$*UPSHIFT TABLE --------------------------------------------------------V$$SHIFT1 {These characters set by F/1000} !"#$%&'()*+,-./0123456789:;<=>?$$SHIFT2 @ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~ $SHIFT3SHIFT4%*----------------------- End of FORMS ACCESS ROUTINES -----------------*%%*...............................FB--MSG--5000.............................. %'* --------------------------- Screen Design labels (level 1) -----------------' f1 < START FIELD >  f2 < STOP FIELD >  f3 <[ START FIELD >  f4 < STOP FIELD ]>  f5 < HELP >  f6 < user keys >  f7  f8 < ABORT TO MAIN> '* -------------------------------- Screen Design labels (level 2) ------------' f1 < >  f2 < >  f3 < >  f4 < >  f5 < >  f6 < >  f7 < >  f8 < RETURN > JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC[]CEDVN1YNBUIHVNORDCIRRC*+^  FBD001. FORMS ERROR : ....  FBD002. FMP ERROR : -....  FBD003. CANNOT ACCESS HELP FILE. # FBD004. CANNOT ACCESS FORM FILE OR SPECIFIED FILE IS NOT A FORM FILE.# FBD005. WRONG VALUE. PLEASE CORRECT INDICATED DATA. FBD006. NO FORM ENTERED. PLEASE PRESS ENTER KEY.  FBD007. TOO MANY FIELDS. PLEASE DELETE SOME.  FBD008. PRESS KEY AGAIN TO REFRESH. FBD009. OVERFLOW ON LINE : ..  FBD010. INCOMPATIBLE SPECIFICATIONS. PLEASE CORRECT.  FBD011. CANNOT ACCESS A FORM BUILDER FILE. >>> This is your window line.  FBD013. DUPLICATE FIELD NAMES. PLEASE CORRECT. ' FBD014. FIELD NAMES IN OLD AND NEW FORM DO NOT MATCH : ........ '' FBD015. FIELD PARAMETERS IN OLD AND NEW FORM DO NOT MATCH : ........ ' FBD016. PRESS KEY AGAIN TO ABORT. FBD017. NO MORE ROOM ON CARTRIDGE.  FBD018. CANNOT ACCESS MESSAGE FILE. FBD019. ERROR DURING SEGMENT LOADING." Writing on list file." Verifying forms.  Writing on form file.  FBD023. FILE NOT FOUND : .................... FBD024. INCORRECT FILE SECURITY CODE : ................... FBD025. FILE ALREADY EXISTS : ...................  FBD026. FILE NAME MANDATORY. PLEASE REENTER.  FBD027. INCONSISTANT FIELD ON LINE :  Working ...  Compiling form ... FBD030. CANNOT ALLOCATE SCRATCH FILE.& Page .. F/1000 Rev. 5000 & FIELD DESCRIPTION ' #... Field name : ........ Brief name : ............' Length : .. Row : .. Column : .. ' Field type : . Normal video enhancement / color pair : ..../ .. '' Data type : . Alternate video enhancement / color pair : ..../ .. ' Initial value :'********************************FL--MSG--5000*********************************' SCREEN DESIGN '---------1---------2---------3---------4---------5---------6---------7--------' >>> This is the window line ...........'------------------------------------------------------------------------------'! '.' is used to show unprotected fields (required / optional). ! '.' is used to show display-only fields. Total number of fields : ... Total size of fields : .... (bytes) Total number of display-only fields : ... Total size of display-only fields : .... (bytes) IDENTIFICATION Name : ....................  Last modification date : ......................... Comment line :  FORM PARAMETERS  Color specified : . (Yes,No)  Window line number : .. (1 to 24)' Window video enhancements : .... (Blink,Underline,Inverse,Half-bright)' Window color pair : .. (00 to 07)  Text color pair : .. (00 to 07)  Softkey labels on 264x : . (Visible,Not visible)% Field type default value : . (Optional,Required,Display only) %! Data type default value : . (Character,Integer,Real) ! Default window :  SOFT KEYS % Physical position Label Logical key%* * &*************************************************************************** &&* HOW TO USE THIS FILE * &&*************************************************************************** &* * ****** WARNING ****** * * DO NOT remove ANY lines in this file.* * Information is located by line number. * * ****** PLEASE ****** * $* Before making ANY modifications to this file, please see Chapter 4 of $#* the F/1000 Reference manual for instructions on how to use this file#* to localize F/1000 for local language use.* #* If the file is modified incorrectly, error number 3 ("Unable to read##* Localization File") will be returned by the F_ACTIVATERM subroutine,# * and the F/1000 Forms Builder will terminate with the message: * FBD018. CANNOT ACCESS MESSAGE FILE. * &*************************************************************************** &&* END OF THE F/1000 LOCALIZATION FILE * &&*************************************************************************** &A94250.SNF::FORMS:4:25:38 644 0 0 14400 5303444703 33542 A94250.SNF::FORMS:4:25:38 $ y&A94250 SNF +I+a+I [WFST  * A94250.snf 94250-17999 REV.6000 <920818.1410> **************************************************************  * Software Numbering File *  * *  * *  * for: 94250A - RTE-6 FORMS *  * *  * created: Fri Aug 14, 1992 9:57:31 *  * *  **************************************************************    File Name Part Number Rev. Type Description  --------------------- ----------- ---- ---- ------------- % A94250.SNF 94250-17999 6000 3 Forms/1000 software no. file%! !FBD01 94250-17091 2340 3 Form file: Main menu!# !FBD02 94250-17092 2340 3 Form file: Selection menu #" !FBD03 94250-17093 2340 3 Form file: Softkey menu "# !FBD04 94250-17094 2340 3 Form file: Parameter menu #$ !FBD06 94250-17096 2340 3 Form file: Field desc menu$% !FBD07 94250-17097 2340 3 Form file: Specify field menu %# !FBD08 94250-17098 2340 3 Form file: Creation menu## !FDEM1 94250-17101 2340 3 Form file: Demo main menu #$ !FDEM2 94250-17102 2340 3 Form file: Demo second menu $% !FDEM3 94250-17103 2340 3 Form file: Localization info%% !FDEM4 94250-17104 2340 3 Form file: Localization info%! "FBD01 94250-17071 2340 4 Help file: Main menu!# "FBD02 94250-17072 2340 4 Help file: Selection menu #" "FBD03 94250-17073 2340 4 Help file: Softkey menu "# "FBD04 94250-17074 2340 4 Help file: Parameter menu #% "FBD05 94250-17075(( 2340 4 Help file: Screen design menu %$ "FBD06 94250-17076 2340 4 Help file: Field desc menu$% "FBD07 94250-17077 2340 4 Help file: Specify field menu %# "FBD08 94250-17078 2340 4 Help file: Creation menu## "FDEM1 94250-17081 2340 4 Help file: Demo main menu ## "FOLCL 94250-17899 5000 4 F/1000 Localization file#" #LFBAS 94250-17004 6000 4 Loader file for: *LFBAS "" #LFBEF 94250-17002 2340 4 Loader file for: *LFBEF "" #LFDAS 94250-17064 2340 4 Loader file for: *LFDAS "" #LFDEF 94250-17062 2340 4 Loader file for: *LFDEF "" #LFIAS 94250-17024 2340 4 Loader file for: *LFIAS "" #LFIEF 94250-17022 2340 4 Loader file for: *LFIEF "" #LFNAS 94250-17034 2340 4 Loader file for: *LFNAS "" #LFNEF 94250-17032 2340 4 Loader file for: *LFNAS "" #LFOAS 94250-17014 2340 4 Loader file for: *LFOAS "" #LFOEF 94250-17012 2340 4 Loader file for: *LFOEF "" #LPIAS 94250-17044 2340 4 Loader file for: *LPIAS "" #LPIEF 94250-17042 2340 4 Loader file for: *LPIEF "" #LPNAS 94250-17054 2340 4 Loader file for: *LPNAS "" #LPNEF 94250-17052 2340 4 Loader file for: *LPNEF "! $FBUTI 94250-12002 2340 5 Forms Builder Library !$ $FLULB 94250-12004 6000 5 Common routines F/1000 lib. $% $FOFLL 94250-12003 2505 5 F/1000 lib: integral: FORTRAN %% $FOFRL 94250-12006 2340 5 F/1000 lib: non-int: FORTRAN%% $FOPLL 94250-12005 2505 5 F/1000 lib: integral: PASCAL%$ $FOPRL 94250-12008 2340 5 F/1000 lib: non-int: PASCAL $% $FRULB 94250-12007 2340 5 Utility lib: for non-int Lib%! %FBILD 94250-12001 5000 5 Forms Builder Program !# %FCOMM 94250-16393 5000 5 Block data for PTOP com.# %FDEMO 94250-16500 2340 5 F/1000 demo program  %FOBLK 94250-16171 2340 5 Block data # 1$ %FOCLO 94250-16391 2340 5 Forms Monitor prog (cloned) $% %FUSE1 94250-16172 2340 5 Block data #2(usr selects 1)%% %FUSE2 94250-16173 2340 5 Block data #2(usr selects 1)%% %FUSE3 94250-16174 2340 5 Block data #2(usr selects 1)%% %FUSE4 94250-16175 2340 5 Block data #2(usr selects 1)%% %FUSE5 94250-16176 2340 5 Block data #2(usr selects 1)%% %FUSE6 94250-16177 2340 5 Block data #2(usr selects 1)%% %FUSE7 94250-16178 2505 5 Block data #2(usr selects 1)%% %FUSE8 94250-16179 2505 5 Block data #2(usr selects 1)%% %FUSE9 94250-16180 2340 5 Block data #2(usr selects 1)%$ &FDEMO 94250-18500 2340 4 F/1000 demo source program$% &FUSEX 94250-18195 2505 4 Source for Block data routine %" *LFBAS 94250-17003 2340 4 FBULD Load file: RTE-A"" *LFBEF 94250-17001 2340 4 FBULD Load file: RTE-VI "" *LFDAS 94250-17063 2340 4 FDEMO Load file: RTE-A"" *LFDEF 94250-17061 2340 4 FDEMO Load file: RTE-VI "$ *LFIAS 94250-17023 2340 4 Usr Prg:FTN integral: RTE-A $% *LFIEF 94250-17021 2340 4 Usr Prg:FTN integral: RTE-VI%$ *LFNAS 94250-17033 2340 4 Usr Prg:FTN non-int: RTE-A$$ *LFNEF 94250-17031 2340 4 Usr Prg:FTN non-int: RTE-VI $" *LFOAS 94250-17013 2340 4 FOCLO load file: RTE-A"" *LFOEF 94250-17011 2340 4 FOCLO load file: RTE-VI "# *LPIAS 94250-17043 2340 4 Usr Prg:PASCAL int: RTE-A #$ *LPIEF 94250-17041 2340 4 Usr Prg:PASCAL int: RTE-VI$% *LPNAS 94250-17053 2340 4 Usr Prg:PASCAL non-int: RTE-A %& *LPNEF 94250-17051 2340 4 Usr Prg:PASCAL non-int: RTE-VI&*  * * &FUSEX::FORMS:4:12:39 644 0 0 6000 5303444705 32770 &FUSEX::FORMS:4:12:39 $ z '&FUSEX +I+I+I M2FST Ftn7x,l c &c**************************************************************************** &c c PNAME: FUSEx  c SOURCE: 94250-18195 c RELOC: nonec PGMGR: R.M.c REV.2505 c &c**************************************************************************** &c c ************************************************************ c * (C) COPYRIGHT HEWLETT-PACKARD 1983. ALL RIGHTS RESERVED. * c * NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, REPRODUCED, * c * OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT THE * c * PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. * c ************************************************************ c  BLOCK DATA PARAMS,94250-18195 REV.2505 <841226.1002>c IMPLICIT none  INTEGER C_trm_maxlg,C_usr_maxlg,C_fld_maxnb c $c***********************************************************************$ c >>> THE FOLLOWING PARAMETERS CAN BE REDEFINED <<< c c C_FLD_MAXNB must be GREATER OR EQUAL to the MAXIMUM of: #c The total number of fields (display only and unprotected) of#c all the forms used. c c C_TRM_MAXLG must be GREATER OR EQUAL to the MAXIMUM of: c { ( Total size in char of all the Unprotected fields +!c Total number of Unprotected fields ) OR!c ( Total size in char of all Display_only fields + !c Total number of all Display_only fields * 9 ) OR!c ( Total number of all fields *19 ) }c c C_USR_MAXLG must be GREATER OR EQUAL to the MAXIMUM of: $c The total size in chararacters of all fields (display only and$c unprotected) of all the forms used. c c These values MUST be within the following ranges: c c C_FLD_MAXNB > or = to 0 c C_FLD_MAXNB < 256 c c C_TRM_MAXLG > 1019 c C_TRM_MAXLG < 4901 c c C_USR_MAXLG > or = to 0 c C_USR_MAXLG < 1841 c $c***********************************************************************$c >>>>>> THIS IS WHAT YOU MAY MODIFY <<<<<<c  PARAMETER (C_FLD_MAXNB = 25) PARAMETER (C_TRM_MAXLG = 1100) PARAMETER (C_USR_MAXLG = 500) $c***********************************************************************$c >>>>> DO NOT MODIFY BELOW HERE <<<<<c  CHARACTER C_termb, C_userbc " COMMON /F_termbuff/ C_trm_max, C_usr_max, C_termb(C_trm_maxlg) "c  COMMON /F_userbuff/ C_fldmax, C_userb (C_usr_maxlg)c  COMMON /F_fields/ C_last(2,2), C_field(15,C_fld_maxnb) c  INTEGER C_trm_max, C_usr_max, C_fldmax, C_field, C_last c  DATA C_trm_max /C_trm_maxlg/,  + C_usr_max /C_usr_maxlg/,  + C_fldmax /C_fld_maxnb/ c  END    name_type = PACKED ARRAY [0..5] OF CHAR;  xcnwd_type = ARRAY [0..1] OF int16;   parm_typ&FDEMO::FORMS:4:121:40 644 0 0 74400 5303444707 33703 &FDEMO::FORMS:4:121:40 $y z y(&FDEMO +I+I+Iy * * * *  * GENERAL SPECIFICATIONS. * ---------------------- %* This program computes the volume and the weight of a liquid which fills%%* a rectangular container, by the 3 dimensions, height, width and length,%* of this container and the specific weight of the liquid. * %* The 4 values for Height, width, length and specific weight are entered %&* by the operator on a first form FORM1 on which 4 fields of type real have&* been defined.%* Once the operator has entered his values and has pressed ENTER, and if %&* no errors have been detected on these values, either by F/1000 ((or by the &&* program itself, the values of VOLUME and WEIGHT are displayed on a second&* form FORM2, with the values entered on FORM1.$* FORM2 contains only display-only fields in which the operator is not $ * allowed to enter data. #* The operator can then return to FORM1 simply by pressing a softkey.#* '* When FORM1 is displayed, the operator can terminate the program by pressing'&* a softkey. He can also display a HELP screen by pressing another softkey.&*  * ERROR REPORTING. * --------------- &* Each value entered on FORM1 by the operator is tested to check that it is&* in the range defined in the program for this value."* If the value is out of range, an error message is displayed in a "&* display-only field under the field in which the incorrect value has been &&* entered. Also, the field in error is highlighted with its alternate video&&* enhancement and a general error message is displayed in the window line. &%* If the value is corrected by the operator, the video enhancement of the%$* field is reset to its normal definition, and the message is cleared. $%* When all the values are correct, the results are computed and FORM2 is %* displayed. *  * LOCALIZATION FEATURES. * --------------------- * This program has been designed to be easily localizable. '* A principal localization feature of the FDEMO program is the fact that all '&* the local parameters are stored in a form called the "LOCALIZATION FORM".&%* Local parameters include the error messages displayed by the program on%%* FORM1, the local units (inches,gallons,etc..) used by operator to enter%* his values, and conversion factors.* $* These local parameters are stored in the localization form as initial$* values of the fields defined in this form. $* To get them, the program simply activates the localization form, gets$%* the field values, i.e. the local parameters, by calling the appropriate%$* F_GET routines and deactivates the form. Hence, the localization form$* is not displayed at all at run-time. $page &* The advantage of this method is that it provides a friendly way to store &"* and edit the local parameters, by using the Form Builder program."$* Another advantage is the conversion capability provided by the F_GET $&* routines which convert numbers stored in ASCII code into integer or real &* numbers that are directly usable by the program. '* But the disadvantage is the disc space needed, because a form file occupies'$* more disc space than a standard EDIT file with the same information. $* &* Conversion factors are used by the program to convert the values entered &'* by the operator in local units into its own system of units, and to convert'"* the computed results back to the local units for proper display. "* The system of units used by the program is:* - meter for height, width, length,  * - liter for volume * - kilogram/liter for specific weight  * - kilogram for weight * #* The unit names are stored in the localization form because they are#'* displayed by the program in display-only fields beside the numeric values. '#* Thus, it is easy to localize this application in terms of units, by#"* changing the conversion factors and the corresponding unit names "* (gallons, inches, etc..) in the localization form. * * !* As a localization example, two localization forms are provided.!#* The system of units defined in the first form is : centimeter (cm),#$* kilogram (kg), liters, kilogram/liter (kg/l), whereas the second form$* defines: inches, pounds/gallon, gallons and pounds.%* The program always accesses the localization form whose form file name %* is !FDEM3. The other form is named !FDEM4. '* The system of units can then be changed simply by renaming the form files: ' * :RN,!FDEM3,!FDEMX * :RN,!FDEM4,!FDEM3 * %* All the local parameters in the localization forms can be displayed by %* using the Form Builder in "display mode".&* If it is desired to modify the local parameters, use the Form Builder in &&* "edit mode" to enter new initial values (in the "Specify Field Menu") in &* the corresponding fields.*  * F/1000 ERROR HANDLING. * ---------------------- $* RC and STEP are common variables used by the various routines of this$&* program to report errors detected when calling the Forms Access Routines.&'* After each call to a Forms Access Routine, STEP is set to the current step '$* number and the return code RC is tested to check if an error occured.$&* If this is the case, control is transferred to the end of the program in &(* which the error number contained in RC as well as the step number in STEP is (* displayed on the terminal before the program is terminated.* $page '******************************************************************************''* FDEMO MAIN PART *''******************************************************************************'* * The main part of the FDEMO program contains 3 major phases: *  * 1) the set-up phase * 2) the main loop * 3) the exit phase * * Set-up phase.* -------------#* The terminal is activated and the INIT_LOCAL_PAR routine is called ##* to get the local parameters stored in the localization form FORM3. #* * Main loop. * ---------- %* This loop continues while continue_prog is true (and no error has been %&* detected). The condition "continue_prog true" means that the operator has&* not requested to terminate the program.#* In this loop, a decision is made to process either FORM1 or FORM2. #* Next_form indicates which form must be processed.* * Exit phase.* -----------"* Here, RC is tested to check if an error was previously detected. "* !* - If not, the terminal is normally deactivated and the program! * terminates. * $* - If an error was detected, the possibly active form is deactivated $#* to close the form file and to clear the terminal screen, and the#* terminal is deactivated to put it in a clean state. $* Note that if no form is active at this stage, an error is returned$&* in RC1 after the call to F_DEACTIVATEFORM, and if the terminal was not&%* activated by the first call, an error is returned after the call to %* F_DEACTIVATERM, but this is ignored by the program. %* Afterwards, the error and step number (RC and STEP) are reported on %$* terminal, as well as the FMP error number in case of an FMP error.$* '******************************************************************************'$page  common/FLAGS/rc,step,fmp_err integer rc,rc1,step,fmp_err,next_form  logical continue_prog  character *5 type * * Set-up phase* ------------*  CALL F_ACTIVATERM(1,1,TYPE,RC) step=1 if (RC.eq.0) then  call INIT_LOCAL_PAR  if (RC.eq.0) then * * Main loop * --------- *  continue_prog=.true. * next_form = 1  do while (continue_prog.and.RC.eq.0) goto (10,20) next_form10 call PROCESS_FORM1 (next_form,continue_prog) goto 30 20 call PROCESS_FORM2 (next_form) 30 continue  end do*  endif  endif * * Exit phase* ----------*  if (RC.eq.0) then  CALL F_DEACTIVATERM (RC) else CALL F_DEACTIVATEFORM (RC1)  CALL F_DEACTIVATERM (RC1)  write (1,100)rc,step100 format ("F/1000 error",x,i4,x,"in step",x,i3)  if (RC.eq.-1) write (1,200) fmp_err 200 format ("FMP error",x,i4)  endif *  write (1,'(//,"end of F/1000 DEMO program.",//)') *  end  SUBROUTINE PROCESS_FORM1( ! +next_form,continue_prog),94250-16500 REV 2340 <830913.0857> !* * This routine handles FORM1 (form file name !FDEM1):* * 1) It activates the form.%* 2) It calls PUT_FLD_VAL to put the actual values in the various fields %* of FORM1. * 3) It displays the form. !* 4) It loops on a call to F_WAITEVENT while keep_form1 is true. !* This condition indicates that:$* - The operator has not pressed the "exit" softkey to terminate the$* program.'* - The operator has not entered correct data (correct means in the range '* accepted by the program).  * 5) It deactivates the form before returning to the main loop.  &* F_WAITEVENT returns control to the program if the operator has pressed a &* softkey or the ENTER key, or if a time-out occured.#* KEY_PRESSED is then tested to determine which key has been pressed.#%* (Remember that if the operator enters erroneous data, from F/1000 point%'* of view, i.e. incorrect type or range, F_WAITEVENT handles these errors and'* keeps control until the operator enters correct data). * %* - Key_pressed = 1 means the EXIT softkey has been pressed. The program% * must be terminated. &* - Key_pressed = 2 means the HELP softkey has been pressed. The help file&$* is displayed by calling F_SHOWHELP and the loop is entered again. $#* - Key_pressed = 0 means the ENTER key has been pressed and correct# * (for F/1000) field values have been read from the screen. &* PROCESS_VALUES is called to process them. If all the values have been &%* seen to be correct by PROCESS_VALUES, then FORM2 will be displayed. %* $* If any other softkey is pressed or if a time-out occurs, F_WAITEVENT $%* returns control but no action is taken in this program and the loop is % * entered again. * $* Note that no values are read from the screen if a softkey is pressed $%* because the first parameter in the call to F_WAITEVENT is set to zero((. %* '******************************************************************************'*  common /FLAGS/rc,step,fmp_err,value_ok integer next_form,rc,step,fmp_err,key_pressed,f_info(10) logical keep_form1,continue_prog,value_ok  character *20 form1_file_nam character *20 help_file_nam *  data form1_file_nam/'!FDEM1'/  data help_file_nam/'"FDEM1'/$page  CALL F_ACTIVATEFORM (FORM1_FILE_NAM,F_INFO,FMP_ERR,RC) step=107 if (RC.eq.0) then  call PUT_FLD_VAL(4)  if (RC.eq.0) then  CALL F_SHOWFORM (RC) step=108  if (RC.eq.0) then *  keep_form1=.true.  do while (keep_form1.and.RC.eq.0)  CALL F_WAITEVENT (0,KEY_PRESSED,RC)  step=109  if (RC.eq.0) then " goto (40,10,20,30,40,40,40,40,40,40) KEY_PRESSED + 2"* values of * key_pressed: -1 0 1 2 3 4 5 6 7 8 * * case of key_pressed is ENTER KEY * --------------------------------  10 call PROCESS_VALUES  if (value_ok.and.RC.eq.0) then keep_form1=.false. next_form=2  endif goto 40 * * case of key_pressed is EXIT KEY (logical softkey number 1) * ------------------------------- 20 continue_prog=.false.  keep_form1=.false. goto 40 * * case of key_pressed is HELP KEY (logical softkey number 2) * ------------------------------- 30 CALL F_SHOWHELP (HELP_FILE_NAM,FMP_ERR,RC) step=110 *  40 continue *  endif *  end do *  endif  endif  endif *  if (RC.eq.0) then  CALL F_DEACTIVATEFORM (RC) step=111 endif *  return end  SUBROUTINE PROCESS_FORM2(  +next_form),94250-16500 REV.2340 <830913.0857> * * This routine handles FORM2 (form file name !FDEM2):* * 1) It activates the form.%* 2) It calls PUT_FLD_VAL to put the actual values in the various fields %* of FORM2.  * 3) It displays the form '* 4) it loops on a call to F_WAITEVENT while the operator has not pressed the'* "return to form1" key.&* 5) It deactivates the form before returning to the main loop (which will &* activate FORM1 again).* '******************************************************************************'*  common /FLAGS/rc,step,fmp_err  integer next_form,rc,step,fmp_err,key_pressed,f_info(10) logical keep_form2  character *20 form2_file_nam*  data form2_file_nam/'!FDEM2'/ *  CALL F_ACTIVATEFORM (FORM2_FILE_NAM,F_INFO,FMP_ERR,RC) step=112 if (RC.eq.0) then  call PUT_FLD_VAL (6) if (RC.eq.0) then  CALL F_SHOWFORM(RC) *  keep_form2=.true. *  do while (keep_form2.and.RC.eq.0)  CALL F_WAITEVENT (0,KEY_PRESSED,RC)  step=113  if (KEY_PRESSED.eq.1) keep_form2=.false. end do*  endif  endif *  if (RC.eq.0) then  CALL F_DEACTIVATEFORM (RC) step=114 next_form=1  endif  return end  SUBROUTINE PUT_FLD_VAL ( +NUMBER_OF_FLD),94250-16500 REV.2340 <830913.0857> * &* This routine puts the actual values in the corresponding fields of either&* FORM1 or FORM2 before they are displayed by F_SHOWFORM.* '* F_PUTSTRING is used to put the names of the units (liters, kg, etc..)in the'$* corresponding display-only fields (4 fields in FORM1 and 6 in FORM2).$%* F_PUTREAL is used to put the numeric values (for height, width, etc..).%* '******************************************************************************'*  common/NUMERICS/var_fld_nam,var_fld_val  common/UNITS/unit_fld_nam,unit_fld_val common/FLAGS/rc,step *  character *8 var_fld_nam(6)  character *8 unit_fld_nam(6) character *8 unit_fld_val(6) real var_fld_val(6)  integer rc,step,number_of_fld *  i=1  do while (i.le.number_of_fld .and. RC.eq.0)  CALL F_PUTSTRING (UNIT_FLD_NAM(I),UNIT_FLD_VAL(I),8,RC)  step=201 if (RC.eq.0) then  CALL F_PUTREAL (VAR_FLD_NAM(I),VAR_FLD_VAL(I),RC)  step=202  endif  i=i+1  end do return end  SUBROUTINE PROCESS_VALUES( +),94250-16500 REV.2340 <830913.0857>* #* This routine processes the values entered by the operator on FORM1.#* #* The first step is to call GET_VALUES which obtains these values via# * F_GETREAL calls and which checks them against defined limits. * &* - If GET_VALUES has found at least one value out of the range accepted by&'* the program, DISPLAY_ERROR is called to report this error on the screen. '* %* - If all the values are OK, the results are calculated by COMPUTE_RES. %* '******************************************************************************'*  common /FLAGS/rc,step,x,values_ok  integer rc,step,x logical values_ok *  call GET_VALUES if (RC.eq.0) then  if (.not.values_ok) then call DISPLAY_ERROR else call COMPUTE_RES  endif  endif  return end  SUBROUTINE GET_VALUES( +),94250-16500 REV.2340 <830913.0857>* &* This routine gets the 4 unprotected field values entered by the operator &* on FORM1 by calling F_GETREAL. * %* Each field value is compared to predefined limits stored in the min_val% * and max_val arrays: "* - If a value is out of the allowed range, a flag is set for the "%* corresponding field in the field_error array, and value_ok is set to%* indicate that at least one field is erroneous.* "* Note that the values read are multiplied before comparison by the"%* corresponding conversion factor read from the localization form FORM3. %* '******************************************************************************'* # common/NUMERICS/var_fld_nam,var_fld_val,conv_fld_val,field_error# common/FLAGS/rc,step,x,values_ok*  character *8 var_fld_nam(6)  logical field_error(4),values_ok% real var_fld_val(6),conv_fld_val(6),min_val(4),max_val(4),conv_value% integer rc,step,x *  data min_val/4*0.0/,max_val/3*2.0,1.5/* *  values_ok=.true.  i=1 *  do while (i.le.4 .and. RC.eq.0)  CALL F_GETREAL (VAR_FLD_NAM(I),VAR_FLD_VAL(I),RC)  step=301 if (RC.eq.0) then  conv_value=VAR_FLD_VAL(I)*CONV_FLD_VAL(I)  if (conv_value.ge.min_val(I) .and. c conv_value.le.max_val(I)) then field_error(i)=.false. else values_ok=.false.  field_error(i)=.true.  endif  endif  i=i+1  end do*  return end  SUBROUTINE DISPLAY_ERROR(  +),94250-16500 REV.2340 <830913.0857>* "* This routine displays on FORM1 the errors detected by GET_VALUES."* It performs the following functions: * * - displaying of error messages under the fields in error.* - displaying a message in the window line. $* - setting the alternate video enhancement for the fields in error. $ * - pre-positionning the cursor on the first field in error. * '******************************************************************************'* # common/NUMERICS/var_fld_nam,var_fld_val,conv_fld_val,field_error# common/MESSAGES/message,field_mess,window_mess common/FLAGS/rc,step,x,values_ok*  character *8 var_fld_nam(6)  character *8 field_mess(4) character *50 message(4) character *80 window_mess  character *50 blank_mess logical field_error(4),values_ok real var_fld_val(6),conv_fld_val(6)  integer rc,step,x *  data blank_mess/' '/ * #* The following loop tests the field flag for each unprotected field:#* - If the field is in error (field_error true) the #* error message read from the localization form FORM3 is put in #"* the corresponding display-only field by calling F_PUTSTRING."$* - If the value is correct, the display-only field reserved for the$* error message is cleared. *  i=1  do while (i.le.4 .and. RC.eq.0)  if (field_error(i)) then CALL F_PUTSTRING (FIELD_MESS(I),MESSAGE(I),50,RC)  step=302  else CALL F_PUTSTRING (FIELD_MESS(I),BLANK_MESS,50,RC)  step=303  endif  i=i+1  end do$page %* Now, F_SHOWFIELDS is called to actually display the display-only fields%* which contain the error messages set by the previous loop. * The window message is then displayed by F_SHOWINDOW. *  if (RC.eq.0) then  CALL F_SHOWFIELDS (0,RC) step=304 if (RC.eq.0) then  CALL F_SHOWINDOW (-1,WINDOW_MESS,80,RC)  step=305  endif * %* The following loop tests the error flag for all the unprotected fields %%* to display the appropriate video enhancements and to pre-positioned the%&* cursor. This must be done after calling F_SHOWFIELDS because this routine&* resets the enhancements to their normal definition.* #* - If the field is in error (field_error true), the alternate video #'* enhancement is displayed. Also ((the cursor is pre-positioned to the field ''* being tested. Hence after the loop, the cursor will be pre-positioned on '"* the last field found in error (the first field on the screen). "%* Remember that the cursor will be actually positioned by the next call% * to F_WAITEVENT. %* - If the value is correct, the video enhancement for the field is reset%* (or maintained) to its normal definition.*  i=4  do while (i.gt.0 .and. RC.eq.0)  if (field_error(i)) then CALL F_SHOWALTERNATE (1,VAR_FLD_NAM(I),RC) step=306  if (RC.eq.0) then  CALL F_SETCURSOR (VAR_FLD_NAM(I),RC) step=307 endif  else CALL F_SHOWALTERNATE (0,VAR_FLD_NAM(I),RC) step=308  endif  i=i-1  end do*  endif  return end  SUBROUTINE COMPUTE_RES(  +),94250-16500 REV.2340 <830913.0857>* &* This routine computes VOLUME and WEIGHT from the values entered on FORM1.&&* Note that the routine always operates with the same sytem of units, that &* is: meters, kilograms, liters. $* Therefore, each value entered is converted by using the corresponding$%* conversion factor previously stored in the conv_fld_val array and read %$* from the localization form, and the results obtained are converted in$* the reverse way for display in the local units.* '******************************************************************************'*  common/NUMERICS/var_fld_nam,var_fld_val,conv_fld_val*  character *8 var_fld_nam(6)  real var_fld_val(6),conv_fld_val(6)  real volume,height,width,length,weight,spec_weight real cv,ch,cw,cl,cm,cs* ! equivalence (var_fld_val(1),height),(var_fld_val(2),width), !$ c (var_fld_val(3),length),(var_fld_val(4),spec_weight), $! c (var_fld_val(5),volume),(var_fld_val(6),weight),! c (conv_fld_val(1),ch),(conv_fld_val(2),cw), c (conv_fld_val(3),cl),(conv_fld_val(4),cs), c (conv_fld_val(5),cv),(conv_fld_val(6),cm)  *  volume=height*ch*width*cw*length*cl*1000.  weight=volume*spec_weight*cs volume=volume/cv weight=weight/cm  return end  SUBROUTINE INIT_LOCAL_PAR( +),94250-16500 REV.2340 <830913.0857>* %* This routine gets the local parameters stored in the localization form %* FORM3 (form file name !FDEM3) by:* * 1) Activating the localization form. &* 2) Calling the appropriate F_GET routines to obtain the local parameters &* stored as initial field values in the form. * 3) Deactivating the form.* '******************************************************************************'*  common/NUMERICS/var_fld_nam,var_fld_val,conv_fld_val common/UNITS/unit_fld_nam,unit_fld_val common/MESSAGES/message,field_mess,window_mess common/FLAGS/rc,step,fmp_err*  character *8 var_fld_nam(6)  character *8 unit_fld_nam(6) character *8 unit_fld_val(6) character *8 field_mess(4) character *50 message(4) character *8 conv_fld_nam(6) character *20 form3_file_nam character *8 window_fld_nam  character *80 window_mess  real var_fld_val(6),conv_fld_val(6)  integer f_info(10),ed_act(5),fmp_err,ret_len,rc,step*  data ed_act/5*0/  data form3_file_nam/'!FDEM3'/,window_fld_nam/'WINDOW'/# data conv_fld_nam/'H_CONV','W_CONV','L_CONV','S_CONV','V_CONV', # C 'M_CONV'/ $page  CALL F_ACTIVATEFORM (FORM3_FILE_NAM,F_INFO,FMP_ERR,RC) step=101 if (RC.eq.0) then * &* The following call gets the message which will be displayed in the window&%* line of FORM1 and which is the initial value of the field named WINDOW %* in FORM3.*  CALL F_GETSTRING (WINDOW_FLD_NAM,80,ED_ACT,WINDOW_MESS,  C RET_LEN,RC)  step=102 if (RC.eq.0) then * $* The following loop gets the 6 unit names (kg,liters,etc..) stored as $%* the initial values of the fields named H_UNIT,W_UNIT, etc.., in FORM3, %$* and also the 6 conversion factors stored as the initial values of the$#* fields named H_CONV,W_CONV, etc.., in FORM3. These items are stored#* respectively in the unit_fld_val and conv_fld_val arrays.'* Note that the conversion factors stored in ASCII in FORM3 are automatically'* converted in real numbers by F_GETREAL.*  i=1  do while (i.le.6 .and. RC.eq.0) $ CALL F_GETSTRING (UNIT_FLD_NAM(I),8,ED_ACT,UNIT_FLD_VAL(I), $ C RET_LEN,RC)  step=103  if (RC.eq.0) then ! CALL F_GETREAL (CONV_FLD_NAM(I),CONV_FLD_VAL(I),RC) ! step=104 endif i=i+1  end do* $* The following loop gets the 4 error messages which will be displayed $%* under the fields in error on FORM1 and which are stored as the initial % * values of the fields named H_ERROR, W_ERROR, etc.., in FORM3. *  i=1  do while (i.le.4 .and. RC.eq.0) ! CALL F_GETSTRING (FIELD_MESS(I),50,ED_ACT,MESSAGE(I), ! C RET_LEN,RC)  step=105 i=i+1  end do*  endif  if (RC.eq.0) then  CALL F_DEACTIVATEFORM (RC) step=106  endif  endif  return end  BLOCK DATA* #* This block data subprogram defines the common variables used by the#* various routines of the program. * $* NUMERICS contains the variables pertinent to the fields which contain$* numeric values in FORM1 and in FORM2:!* - var_fld_nam contains the field names: HEIGHT, WIDTH,etc.. !* - var-fld-val contains the values of these fields.$* - conv_fld_val contains the conversion factors used to convert the$$* values in var_fld_val. The conversion factors are read from the $ * localization form. '* - field_error contains, for each field read from FORM1 into var_fld_val,'&* a logical flag indicating whether the field value is correct or not.&* %* UNITS contains variables pertinent to the units used (kg,liters,etc..) % * in FORM1 and in FORM2: &* - unit_fld_nam contains the names of the display-only fields in which & * the names of the units (kg, liters, etc..) are written. #* - unit_fld_val contains the value of these fields, that is 'kg',# * 'liters',etc... * $* MESSAGES contains variables pertinent to the fields in which messages$$* are written on FORM1. All the messages are read from the localization$* form:"* - message contains the error messages which appear under each "* unprotected field in error. !* - field_mess contains the names of the field in which these !* messages are written: H_ERROR, etc... '* - window_mess contains the message which is displayed in the window line'* %* Note that all the elements of the arrays above are ordered so that all %%* the variables pertinent to a particular numeric field correspond (i.e. %'* field name, field value, conversion factor, error flag and error message). '&* For example, all variables for the first field (HEIGHT) are stored in the&* first element of each array. * '* FLAGS contains simple flags used by the routines to pass error information.'* '******************************************************************************'$page # common/NUMERICS/var_fld_nam,var_fld_val,conv_fld_val,field_error# common/UNITS/unit_fld_nam,unit_fld_val common/MESSAGES/message,field_mess,window_mess common/FLAGS/rc,step,fmp_err,values_ok*  character *8 var_fld_nam(6)  character *8 unit_fld_nam(6) character *8 unit_fld_val(6) character *8 field_mess(4) character *50 message(4) character *80 window_mess  logical field_error(4),values_ok real var_fld_val(6),conv_fld_val(6)  integer rc,step,fmp_err * # data var_fld_nam/'HEIGHT','WIDTH','LENGTH','SPWEIGHT','VOLUME', # C 'WEIGHT'/ data unit_fld_nam/'H_UNIT','W_UNIT','L_UNIT','S_UNIT', C 'V_UNIT','M_UNIT'/ data field_mess/'H_ERROR','W_ERROR','L_ERROR','S_ERROR'/*  end *  end$# C 'WEIGHT'/HPHPHP::IMAGE2:4:27:34 644 0 0 15400 5300473416 32705 HPHPHP::IMAGE2_6000:4:27:34 $ "HPHPHP +l+$u+w czƼFST * "* MATERIAL LIST: 92081-13502 REV: 6000 MT1600-IMAGEII 5104"* * (SAME AS MATERIAL LIST: 92081-13301 REV: 6000 ) * (SAME AS MATERIAL LIST: 92081-13601 REV: 6000 ) * * Directory: /IMAGE2/ * 92081-12001 5010 01 01 5 /IMAGE2/DBMS.REL:::5:597 92081-12002 2440 01 01 5 /IMAGE2/LOCAL.REL:::5:492081-12003 5010 01 01 5 /IMAGE2/RDBA.REL:::5:103 92081-12004 5010 01 01 5 /IMAGE2/REMOT.REL:::5:43 92081-12005 2440 01 01 5 /IMAGE2/N((O_DS.REL:::5:392081-12006 2540 01 01 5 /IMAGE2/DSDB.LIB:::5:9 92081-12007 5000 01 01 5 /IMAGE2/DBBLD.LIB:::5:17 92081-12008 5000 01 01 5 /IMAGE2/DBDS.LIB:::5:5992081-12009 5000 01 01 5 /IMAGE2/DBMON.LIB:::5:13692081-12010 5010 01 01 5 /IMAGE2/DBEMA.LIB:::5:34392081-12011 5000 01 01 5 /IMAGE2/DBUTL.LIB:::5:99 92081-12012 5010 01 01 5 /IMAGE2/QUERY.LIB:::5:11692081-12023 5010 01 01 5 /IMAGE2/CDS_DBMS.REL:::5:388 92081-12024 2440 01 01 5 /IMAGE2/CDS_LOCAL.REL:::5:492081-12025 5010 01 01 5 /IMAGE2/CDS_RDBA.REL:::5:112 92081-12026 5010 01 01 5 /IMAGE2/CDS_REMOT.REL:::5:46 92081-16013 5000 01 01 5 /IMAGE2/DBBLD.REL:::5:35 92081-16014 5000 01 01 5 /IMAGE2/DBDS.REL:::5:188 92081-16015 5010 01 01 5 /IMAGE2/DBMON.REL:::5:31892081-16016 5000 01 01 5 /IMAGE2/DBRBR.REL:::5:16292081-16017 5000 01 01 5 /IMAGE2/DBRFR.REL:::5:13592081-16018 5010 01 01 5 /IMAGE2/DBUTL.REL:::5:23492081-16019 5010 01 01 5 /IMAGE2/QUERY.REL:::5:30392081-16020 2540 01 01 5 /IMAGE2/RDBAP.REL:::5:18 92081-16021 2440 01 01 5 /IMAGE2/SAMAI.REL:::5:13 92081-16022 2440 01 01 5 /IMAGE2/SAM6I.REL:::5:13 92081-16060 2540 01 01 5 /IMAGE2/DBUPGRADE.REL:::5:57 92081-16067 2540 01 01 5 /IMAGE2/%AR000:::5:3 92081-16068 2540 01 01 5 /IMAGE2/%BL000:::5:8 92081-16069 2540 01 01 5 /IMAGE2/%DB000:::5:1792081-16070 2540 01 01 5 /IMAGE2/%EM000:::5:3 92081-16071 2540 01 01 5 /IMAGE2/%LB000:::5:5892081-16072 2540 01 01 5 /IMAGE2/%LO000:::5:3 92081-16073 5010 01 01 5 /IMAGE2/%QY000:::5:7092081-16074 2540 01 01 5 /IMAGE2/%RB000:::5:2092081-16075 5000 01 01 5 /IMAGE2/%RF000:::5:1492081-16076 5000 01 01 5 /IMAGE2/%SA000:::5:4 92081-16077 2540 01 01 5 /IMAGE2/%ST000:::5:2 92081-16078 5000 01 01 5 /IMAGE2/%UT000:::5:3292081-16281 2540 01 01 5 /IMAGE2/SHORT_DBOPN.REL:::5:192081-16410 2440 01 01 5 /IMAGE2/RDTB.REL:::5:3 92081-16560 5000 01 01 5 /IMAGE2/DBRFR.LIB:::5:49 92081-16577 2440 01 01 5 /IMAGE2/USNUM.REL:::5:392081-16630 5000 01 01 5 /IMAGE2/DBARC.REL:::5:44 92081-16670 5000 01 01 5 /IMAGE2/DBLOD.REL:::5:47 92081-16760 5000 01 01 5 /IMAGE2/DBRST.REL:::5:21 92081-16765 5000 01 01 5 /IMAGE2/DBSTR.REL:::5:45 92081-16770 5000 01 01 5 /IMAGE2/DBSPA.REL:::5:34 92081-16775 5000 01 01 5 /IMAGE2/DBSPL.REL:::5:60 92081-16780 5000 01 01 5 /IMAGE2/DBULD.REL:::5:29 92081-16830 5000 01 01 5 /IMAGE2/DBCLN.REL:::5:17 92081-16880 5000 01 01 5 /IMAGE2/RDBAM.REL:::5:11 92081-17001 5010 01 01 4 /IMAGE2/IMAGE6.CMD:::4:1992081-17002 5010 01 01 4 /IMAGE2/IMAGEA.CMD:::4:2192081-17004 5000 01 01 4 /IMAGE2/DBARC.LOD:::4:392081-17005 5000 01 01 4 /IMAGE2/DBBLD.LOD:::4:392081-17006 5000 01 01 4 /IMAGE2/DBDS.LOD:::4:2 92081-17007 5000 01 01 4 /IMAGE2/DBLOD.LOD:::4:392081-17008 5000 01 01 4 /IMAGE2/DBMON.LOD:::4:692081-17009 5000 01 01 4 /IMAGE2/DBRBR.LOD:::4:392081-17010 5000 01 01 4 /IMAGE2/DBRFR.LOD:::4:392081-17011 5000 01 01 4 /IMAGE2/DBRST.LOD:::4:392081-17012 5000 01 01 4 /IMAGE2/DBSPA.LOD:::4:392081-17013 5000 01 01 4 /IMAGE2/DBSPL.LOD:::4:392081-17014 5000 01 01 4 /IMAGE2/DBSTR.LOD:::4:392081-17015 5000 01 01 4 /IMAGE2/DBULD.LOD:::4:392081-17016 5000 01 01 4 /IMAGE2/DBUTL.LOD:::4:292081-17017 5000 01 01 4 /IMAGE2/DBCLN.LOD:::4:392081-17018 5000 01 01 4 /IMAGE2/QUERY.LOD:::4:392081-17021 2540 01 01 4 /IMAGE2/DBMS1.CMD:::4:192081-17022 2540 01 01 4 /IMAGE2/DBMS2.CMD:::4:192081-17023 2540 01 01 4 /IMAGE2/DBMS3.CMD:::4:192081-17024 5010 01 01 1 /IMAGE2/>QY000:::1:7792081-17025 5000 01 01 4 /IMAGE2/DBUTL.HLP:::4:33592081-17027 2540 01 01 4 /IMAGE2/DB6S1.CMD:::4:292081-17028 2540 01 01 4 /IMAGE2/DB6S2.CMD:::4:292081-17029 2540 01 01 4 /IMAGE2/DB6S3.CMD:::4:292081-17174 5010 01 01 4 /IMAGE2/RDBAMA.LOD:::4:2 92081-17175 2440 01 01 4 /IMAGE2/CDS_DBMS1.CMD:::4:192081-17176 2440 01 01 4 /IMAGE2/CDS_DBMS2.CMD:::4:192081-17177 2440 01 01 4 /IMAGE2/CDS_DBMS3.CMD:::4:192081-17178 5000 01 01 4 /IMAGE2/RDBCLN.LOD:::4:3 92081-17179 5000 01 01 4 /IMAGE2/RDBAM6.LOD:::4:1 92081-17180 2540 01 01 4 /IMAGE2/RDBAP6.LOD:::4:2 92081-17181 5010 01 01 4 /IMAGE2/RDBAPA.LOD:::4:2 92081-17182 5000 01 01 4 /IMAGE2/DBUPGRADE.LOD:::4:292081-17183 2540 01 01 4 /IMAGE2/CREATE_ZOO.CMD:::4:3 92081-17184 2540 01 01 4 /IMAGE2/INIT_IMAGE.UTL:::4:1192081-17185 2540 01 01 4 /IMAGE2/BACKUP_ZOO.UTL:::4:2 92081-17186 2540 01 01 4 /IMAGE2/NEW_LOGSET.CMD:::4:4 92081-17187 2540 01 01 4 /IMAGE2/NEW_LOGSET.UTL:::4:6 92081-17188 2540 01 01 4 /IMAGE2/STARTUP.UTL:::4:192081-17189 2540 01 01 4 /IMAGE2/SHUTDOWN.UTL:::4:1 92081-17190 2540 01 01 4 /IMAGE2/AC_ZOO.UTL:::4:9 92081-17191 2540 01 01 4 /IMAGE2/BK_ZOO.UTL:::4:2 92081-17192 2540 01 01 4 /IMAGE2/BACKUP_TF.CMD:::4:592081-17193 5000 01 01 4 /IMAGE2/RECOVER_RB.CMD:::4:3 92081-17194 2540 01 01 4 /IMAGE2/RECOVER_RB.UTL:::4:2 92081-17195 2540 01 01 4 /IMAGE2/RECOVER_RF.CMD:::4:3 92081-17196 2540 01 01 4 /IMAGE2/RECOVER_RF.UTL:::4:1492081-17197 2540 01 01 4 /IMAGE2/OHNO_GOTTA_GO.UTL:::4:492081-18831 2540 01 01 4 /IMAGE2/&ADD:::4:1692081-18832 2540 01 01 4 /IMAGE2/&SLOB:::4:15 92081-18833 2540 01 01 4 /IMAGE2/&CCRSH:::4:1092081-18834 2540 01 01 4 /IMAGE2/&TRADE:::4:1292081-18835 2540 01 01 4 /IMAGE2/&LOGGR:::4:1892081-18836 2540 01 01 4 /IMAGE2/&CRASH:::4:1992081-18837 2540 01 01 4 /IMAGE2/CMDZOO:::4:1 92081-18838 2540 01 01 4 /IMAGE2/ZOOBLD:::4:2 92081-18839 2540 01 01 4 /IMAGE2/ZOORT:::4:992081-18999 6000 01 01 4 /IMAGE2/A92081:::4:37* * END MATERIAL LIST * OkgmFvglFGfn Ofvw_Wޑ^Fv./avDBMS.REL::IMAGE2:5:597:128 644 0 0 452400 5300466271 34171 DBMS.REL::IMAGE2_6000:5:597:128 $U UDBMS REL +l+l+lU*k FST ;;X?ĨDBMS92081-12001 REV.5010 <880829.1705> /IMG2_5010/DBMS/DBHD1.MAC ;@!?FFXĨBACKUP_UTILITIES92081-1X056 REV.5010 881202.1415/IMG2_5010/UTILS/BACKUPLIB.PASF@QGGX,ĨBKP.REPORTERROR 92081-1X056 REV.5010 881202.1415 /IMG2_5010/UTILS/BACKUPLIB.PASGSBKP.REPORTERROR ~MM IMG.APPNDBANDSIMG.NLSBLANKIMG.SINTTOSSTRIMG.WRITLONGSTR MBCKLBNLREADREL PAS.1 PAS.ENTRY1 PAS.EXIT1 PAS.NONCDSMQQʡ//`8( 6Ap7A7((`8p"_6Ap7 A7A$89A(A9A-A8(/Q/(O3* A 0Ap8( 0@FFX7;ĨBKP.GETLINUSINFO92081-1X056 REV.5010 881202.1415/IMG2_5010/UTILS/BACKUPLIB.PASF^%BKP.GETLINUSINFO ,,iBKP.REPORTERROR PAS.1 PAS.ENTRY1PAS.EXIT1 PAS.NONCDSXLUEX ,77x>p!`!p"`:p#`!P9A( (3"$455((A6(p!7g(,$$$&A%`9p!(`!p7A%`7%$ >9@ @͔TEEXQĨBKP.CHECKREADY92081-1X056 REV.5010 881202.1415/IMG2_5010/UTILS/BACKUPLIB.PASEyBKP.CHECKREADYl YY e .LBTBKP.REPORTERROR IMG.NLSBLANKIMG.READSHORTSTRIMG.WRITLONGSTR MBCKLBNLREADREL PAS.1 PAS.ENTRY1 PAS.EXIT1 PAS.NONCDSUPSHIFT YppZ??pKpJA GTpHATH TI(AI(?A! LAIpF'LLh6 P(-(20(?(:h6H P(8(:pJ`J(pKp?(QC%%A @`pK(`KpA @`L% NY @;NGGX (ĨBKP.ATLOADPOINT 92081-1X056 REV.5010 881202.1415 /IMG2_5010/UTILS/BACKUPLIB.PASGQBKP.ATLOADPOINT !!-ISOTPAS.1 PAS.ENTRY1PAS.EXIT1 PAS.NONCDS!$$S`!P&((A!( p(p$/(y A`'p(`p$A`$ & @EEEXȶ-ĨBKP.REWINDTAPE92081-1X056 REV.5010 881202.1415/IMG2_5010/UTILS/BACKUPLIB.PASEZBKP.REWINDTAPE""98PAS.1 PAS.ENTRY1PAS.EXIT1 PAS.NONCDSXLUEX "33 -`!p`!P)(P*((A`,p((`+p((3P($l A(A(( ) @i)FFX-ĨBKP.REWINDOFFLIN92081-1X056 REV.5010 881202.1415/IMG2_5010/UTILS/BACKUPLIB.PASFKBKP.REWINDOFFLIN""98PAS.1 PAS.ENTRY1PAS.EXIT1 PAS.NONCDSXLUEX "33 -`!p`!P)(P*((A`,p((`+p((3P($l A(A )@ @V`u EEX>ĨBKP.ONLINETAPE92081-1X056 REV.5010 881202.1415/IMG2_5010/UTILS/BACKUPLIB.PASE#d+BKP.ONLINETAPE >>HBKP.CHECKREADYBKP.REPORTERROR BKP.REWINDTAPELOCAL PAS.1 PAS.ENTRY1PAS.EXIT1 PAS.NONCDS>FF""`!P<(( p*p)`)( !(A9((" Ap"_(p)(p*F"(2+& ||,A#+`=p*(`*p:A#+`:+ < @U DDXa!Ĩ BKP.WRITEEOF92081-1X056 REV.5010 881202.1415/IMG2_5010/UTILS/BACKUPLIB.PASD2BKP.WRITEEOF""98PAS.1 PAS.ENTRY1PAS.EXIT1 PAS.NONCDSXLUEX " z `!p` p`!P(( A  ( (lw A (A  #@ @ԡFFX OĨ!BKP.WRITERING 92081-1X056 REV.5010 881202.1415 /IMG2_5010/UTILS/BACKUPLIB.PASF h;BKP.WRITERING >>IBKP.CHECKREADYBKP.REPORTERROR BKP.REWINDTAPEPAS.1 PAS.ENTRY1PAS.EXIT1 PAS.NONCDSXLUEX >^^K//`!PM(PN(,(-p8p6`!p9p:`6(+I97`7"M((AJ (#(/p"_'(*p6((-(-p8^/(B;3!!~2<A0;`Np8(`8pKA0;`K; ! M @M FFX8XĨ"BKP.OPENDATABASE92081-1X056 REV.5010 881202.1415/IMG2_5010/UTILS/BACKUPLIB.PASFW9BKP.OPENDATABASE 44{.MBT.MVWBKP.REPORTERROR DBOPN PAS.1 PAS.ENTRY1PAS.EXIT1 PAS.NONCDS4BB##p+`W6`6@6A`Q6N6"P*,`,A(,(#`/PU(! O(#p+B#(G6'44:A$97p*`8hRP`Vp+(`+pS$9`S9 @ !,4 <U @&>DGGXvuĨ&BKP.PARSEPARAMS 92081-1X056 REV.5010 881202.1415 /IMG2_5010/UTILS/BACKUPLIB.PASGR@BKP.PARSEPARAMS yy6.CBT.LBT.MBTBKP.REPORTERROR CATI IMG.BUILDROOT IMG.CLOSEFILE IMG.DEFAULTFILE IMG.ISINTFILE IMG.ISLINUSTAPE IMG.ISTAPEFILEIMG.NLSBLANKIMG.OPENEXIST IMG.OPENFILEW IMG.READLONGSTR y^^  IMG.READSHORTSTRIMG.STRINGMGR IMG.WRITLONGSTR MBCKLBNLREADREL PAS.1 PAS.BLANKFILL PAS.ENTRY1PAS.EXIT1 PAS.NONCDSPAS.PARAMETERS UPSHIFT ^njEEAeA( ([NOpf`f(Ae( Ae([A#()(P([-e(/4QOpf`f(?he6`f6AOCe(IEBBAHe([ANRdOpf`f(YYNSNdOA`dNR!ePe(d(gAp!(kde(mApd(up!(Axd(}`rp!(AT([Ade(bLLAU!Opfpd`f(`dA(VbxAWpcxWc xeA( e(e([NXNWhg6`h6AW(Ӏ(pd WA!OWYYJJ( !AZ"P[pf`f(\bxWpcxAWc xe( "Pe(Ae([A "P"P[ ]h[pf`fA(NXNh[pdNXN8[EEhi6`j6A[('((`d(`"^(1`"^Pr(1(QA8^bxWpcA>xWc Cxe(LA Jhe(POe([(|`"^Pq(U(uA\_bxWpcAbxWc?bHHA gxe(p nheA(tse([(||N`NAh[ hh[pdhj6Pt((p"X(hj6HPs(( p"X(pd('(NkQ8[hi6A`j6[(((ՓII p"X(NlQ8[hi6A`j6[((( p"X(a([`"^(Y`!(Ybh[pf`fA(NXNh[pdNXN8[hi6A`j6[((-(-`d(,6qHHcbxAWpcxWc xeA(   he(e([ hh[pdHhj6Pt (( p"Y(+hj6Ps(&()p"Y(+pdA((Y4NmQ8[hi6`j6[??Z; (>(A(AAp"Y(YHNnQ8[hi6`j6[(R(U(UAp"Y(YXd([pg?[(G@_LLtOA..A\@`rpg(`gpoA\@`o@@8 Y8hABCOVENVL qNY @11GGXewĨ+BKP.SPACENEEDED 92081-1X056 REV.5010 881202.1415 /IMG2_5010/UTILS/BACKUPLIB.PASGaBKP.SPACENEEDED AA m.DAD.DCO .DDI .DIN.DIV.DLD .DMP.DST.MPYPAS.1 PAS.ENTRY1 PAS.EXIT1 PAS.NONCDSAfJJJ "Z`vp[pXA@Xt@`pZ`Z@Aj(@(@`u AZApYZY@l\hY ^`Z A^  \AJ\"ZAAnpAJ\"Z8X8[("Zj(Q(Q.wJ"Zrp"ZPQ(f `U xbA Ra(A RaaB@C t @ )PEEXĨ-BKP.READVOLHDR92081-1X056 REV.5010 881202.1415/IMG2_5010/UTILS/BACKUPLIB.PASEtBKP.READVOLHDRR hh9 .CBT .MBTBKP.READBUFFERBKP.REPORTERROR IMG.NLSBLANK IMG.PARSEDESC IMG.STRINGMGR IMG.WRITLONGSTR MBCKLBNLREADREL PAS.1 PAS.ENTRY1PAS.EXIT1 PAS.NONCDShHHp` "ph6`6 h6`6A  "((h6`6 ((($A'(`P "(/.(`P(3(r:p@AH "eeH99AM (O S W "Rh6`6 (d(`Ac(h6`6A (q(mpň((h6A`6 (({~(pej()99oA `шp(`pA`΀@ " "rR9  @GZfGGX8$Ĩ0BKP.WRITEVOLHDR 92081-1X056 REV.5010 881202.1415 /IMG2_5010/UTILS/BACKUPLIB.PASGdBKP.WRITEVOLHDR ''BKP.WRITEBUFFER PAS.1 PAS.ENTRY1PAS.EXIT1 PAS.NONCDS' `"p"" p (  zA `#p(`p!A `!C # @ВREEX0Ĩ1BKP.CLEARCACHE92081-1X056 REV.5010 881202.1415/IMG2_5010/UTILS/BACKUPLIB.PASEZBKP.CLEARCACHE ""98PAS.1 PAS.ENTRY1PAS.EXIT1 PAS.NONCDSXLUEX "..p`!p`/p`!P.A( (+(((p.I($ A`.p(`p,A`, 3.@ @+-FFX4Ĩ2BKP.POSTCACHE 92081-1X056 REV.5010 881202.1415 /IMG2_5010/UTILS/BACKUPLIB.PASFN BKP.POSTCACHE ,,iBKP.REPORTERROR PAS.1 PAS.ENTRY1PAS.EXIT1 PAS.NONCDSXLUEX ,22!p`!p`3p`!P2A( (.((A/(p2U(' !!!A `2p(`p0A `0 ! w2 @ʼFFXv^Ĩ6BKP.OPENTAPEWRIT92081-1X056 REV.5010 881202.1415/IMG2_5010/UTILS/BACKUPLIB.PASFn*BKP.OPENTAPEWRIT {{.DAD.DCO.DDE.DDI.DIV.DLD.DMP.DNG .DSB.DST.MPY BKP.ATLOADPOINT BKP.CLEARCACHE BKP.GETLINUSINFO BKP.ONLINETAPE BKP.REPORTERROR BKP.REWINDTAPEBKP.WRITERING BKP.WRITEVOLHDR {~~FMPIOOPTIONSFMPSETIOOPTIONS IMG.BUILDDESC IMG.NLSBLANKIMG.OPENBIGDCBIMG.PARSEDESC IMG.PURGEFILE IMG.WRITLONGSTR LURQMBCKLBNLREADREL PAS.1 !PAS.BLANKFILL "PAS.ENTRY1#PAS.EXIT1 PAS.NONCDS~8DDApnd`!( dm( m(a"Z "\"Z"Z(!8"Z`!PW()PX(PY((V"ZA::AAooA<(B(BAAo:D:Ao`pp|DGGAHdA!O>O? @Ud Am(`mAP\(_ ]m(a(`mP\(c( fm`"X(j(aplpk`l Xk(((` [Zp`(Apk(Ad!>Q?KKA @d Am((pl(n`l(Bh;piA;im( m(a((a(ZA!>S? @d Am( m(amj`m( m(aII`j0]pjmj`m( m(ap!p! ((aA (AA ((a(ZAC!>(( D(a q( (a EG(A(( AI(a@xxBBJ("Z((D(D`"X(0A .L(a(D7Mh;pi=A;iBm(DF (I(ap! Ap!J! J!(Z YN(a\(_(apnxa(1*eCCQ+**A"b*`Ypn(`npUA#b*`U*2@@$Aarwc rwc rwo CJW!@ FFXĨ:BKP.OPENTAPEREAD92081-1X056 REV.5010 881202.1415/IMG2_5010/UTILS/BACKUPLIB.PASFaBKP.OPENTAPEREADW zz.DLD.DSTBKP.ATLOADPOINT BKP.CLEARCACHE BKP.GETLINUSINFOBKP.ONLINETAPEBKP.READVOLHDR BKP.REPORTERROR BKP.REWINDTAPE FMPIOOPTIONS FMPSETIOOPTIONS IMG.OPENBIGDCB LURQPAS.1 PAS.BLANKFILL z_PAS.ENTRY1PAS.EXIT1 PAS.NONCDS~~8DDp`!PĄ( Ad(A (`!P( PÈ(!P(L(x(| &`(- ,(`0pA 5`((A(C~vvdD??(GGp!p!(|A Q!(S(W V(Y(\(A _ (b(p! Ap!JJ!! (s r( !(|A {(A~((pv]("**A`Ĉp(`pA`@$aro*  @HgGGXRĨBKP.READFILEHDR 92081-1X056 REV.5010 881202.1415 /IMG2_5010/UTILS/BACKUPLIB.PASGU~,BKP.READFILEHDR 44 L.CBTBKP.READBUFFERBKP.REPORTERROR PAS.1 PAS.ENTRY1PAS.EXIT1 PAS.NONCDS4AAK""Ap+"`)*( ("h<6A`=6:( (h>6`=6:( (A;("p+A"(3,&;;-""A#,`Qp+(`+pOA#,`O,a?"`GFILEHEAD21XX FILEHEAD2540 ; Q @';EFFX$ĨBKP.WRITEFILEHDR92081-1X056 REV.5010 881202.1415/IMG2_5010/UTILS/BACKUPLIB.PASFMBKP.WRITEFILEHDR ''BKP.WRITEBUFFER PAS.1 PAS.ENTRY1PAS.EXIT1 PAS.NONCDS'H `"p""` p (  zA `#p(`p!A `!@ # @ŠGGX'ĨBKP.READDATABFR 92081-1X056 REV.5010 881202.1415 /IMG2_5010/UTILS/BACKUPLIB.PASGUuBKP.READDATABFR &&'zBKP.READBUFFERPAS.1 PAS.ENTRY1PAS.EXIT1 PAS.NONCDS& Ap"( ( p, (y A `&p(`p$A `$ & @n=FFX"4ĨBKP.WRITEDATABFR92081-1X056 REV.5010 881202.1415/IMG2_5010/UTILS/BACKUPLIB.PASFCBKP.WRITEDATABFR ''BKP.WRITEBUFFER PAS.1 PAS.ENTRY1PAS.EXIT1 PAS.NONCDS'++`( "/p(`3@p"p+P(($$ Ap`2p(A`p0`0$ 72@ @FFX;ĨBKP.ENDOFTAPE 92081-1X056 REV.5010 881202.1415 /IMG2_5010/UTILS/BACKUPLIB.PASFc)BKP.ENDOFTAPE ))M.DCO.DLDIEOTPAS.1 PAS.ENTRY1PAS.EXIT1 PAS.NONCDS)MM!!`!P9((A!( p((p((!`!P:((!!((p((p((!p(M{!(0)%z{* A")`:p((`(p7A")`7) 9 @7EFFX ,PĨBKP.CLSETAPEWRIT92081-1X056 REV.5010 881202.1415/IMG2_5010/UTILS/BACKUPLIB.PASFp?BKP.CLSETAPEWRIT dd BKP.POSTCACHE BKP.POSTTAPEFILEBKP.REPORTERROR BKP.REWINDOFFLINBKP.REWINDTAPEBKP.WRITEEOFDCBOPEN IMG.CLOSEFILE PAS.1 PAS.ENTRY1 PAS.EXIT1 PAS.NONCDSdkkUx66p>` "_(4` !PO(A =(p>(6A((6A(` !('` "YA(%$(''` !APO(4 . d=(4A3=(6p>k6(F?:{t@ A 7?`Op>(`>pMA 7?`M? O @,~K>FFXBĨ BKP.CLSETAPEREAD92081-1X056 REV.5010 881202.1415/IMG2_5010/UTILS/BACKUPLIB.PASFc0BKP.CLSETAPEREAD ??lBKP.REPORTERROR BKP.REWINDTAPEDCBOPEN IMG.CLOSEFILE PAS.1 PAS.ENTRY1PAS.EXIT1 PAS.NONCDS?RR\''`!PA((p/('p/ .(p/('`"_(`!P@((d.(%$.('p/R'(70+z1 A(0`Ap/(`/p>A(0`>0 @ @:EEXh]Ĩ BKP.CLOSEDB 92081-1X056 REV.5010 881202.1415 /IMG2_5010/UTILS/BACKUPLIB.PASEBKP.CLOSEDB ""5DBCLS PAS.1 PAS.ENTRY1PAS.EXIT1 PAS.NONCDS"Q#A ( lU A(A@2aQ!EEX#Ĩ BKP.CLOSEFILES92081-1X056 REV.5010 881202.1415/IMG2_5010/UTILS/BACKUPLIB.PASEۆBKP.CLOSEFILES&&*WIMG.CLOSEFILE PAS.1 PAS.ENTRY1PAS.EXIT1 PAS.NONCDS&''VA!A( ( A('=(kA(A@ ;;X/Ĩ.IMCL 92081-1X171 REV.2440 <850416.1424>/IMG2_5010/UTILS/_IMCL.MAC;.IMCL WIMCL @ $IMCL .ENTR IXGET IXPUT ""p 8"@s;;X Ĩ*DBADR 92081-1X194 REV.2440 <850416.1403>/IMG2_5010/DBMS/DBADR.MAC ; -DBADR .ENTR U `@nG;;Xzĩ)-DBBUF 92081-1X195 REV.2440 <850416.1403>/IMG2_5010/DBMS/DBBUF.MAC ;݌V.SBUF B.STAT AAIRUN BTCNT CDBST CILAD WCILST CKEYS  COMBF DBBFDBBPT DBBUF DBCBF DBMMT DBSBF FNCLN MXMSG  MYCLS %%W MYNOD  OPNCT PNAMPRCID  SQCTR %AVLMENDMUNM2UNMEM -x`ۀ, AW@&;;X3Ĩ*8DBCBI 92081-1X197 REV.2440 <850416.1403>/IMG2_5010/DBMS/DBCBI.MAC ; +DBCBI g1.ENTR CILAD CILST <<p`p((8@p88( `<@rc#;;X[SĨ+DBCIX 92081-1X199 REV.2540 <850416.1403>/IMG2_5010/DBMS/DBCIX.MAC ; 3DBCIX e/.ENTR AIRUN DBFDI ܺDDApQH?:pLHBH@pMpKM:A(7pN$NOPR`O`RH@@=HQxQ8L8K(5M:(8M(`Q`D @p;;X7%Ĩ+-GETCL 92081-1X201 REV.2540 <851206.1447>/IMG2_5010/DBMS/DBCLQ.MAC ; /GETCL E`.ENTR CLRQ AA$$p$A(#$(A((#$"((`$A@k;;X Ĩ+.RETCL 92081-1X201 REV.2540 <851206.1447>/IMG2_5010/DBMS/DBCLQ.MAC ; .RETCL E`.ENTR CLRQ < AA @r;;XAĨ+.GETRN 92081-1X201 REV.2540 <851206.1447>/IMG2_5010/DBMS/DBCLQ.MAC ; >GETRN Tb.ENTR RNRQ 55p` `pA(`5@ʯ;;X1Ĩ+/RETRN 92081-1X201 REV.2540 <851206.1447>/IMG2_5010/DBMS/DBCLQ.MAC ; =RETRN Tb.ENTR RNRQ \o AA   @5?;;X$ĩ)DBCMW 92081-1X202 REV.5010 <880829.1653>/IMG2_5010/DBMS/DBCMW.MAC ;DBCBT DBCMW .CBT.CMW.ENTR >><_$$A`((hA(`h (">@;;XĨ, DBFDS 92081-1X209 REV.2540 <850416.1403>/IMG2_5010/DBMS/DBFDS.MAC ; /DBFDS .ENTR .MPYAIRUN DBCMW AAp`@xxH`@Hx`p`p(3@A@ @(|p`p@phH @`@hRACC p@ @phH @@pAV(x(j@@`ph@@@p(:`@`p@@@p(:``@@((++`  +@ ;;XĨ,"DBFDI 92081-1X209 REV.2540 <850416.1403>/IMG2_5010/DBMS/DBFDS.MAC ; /DBFDI .ENTR .MPYAIRUN DBCMW `AAHp`@xx`@HHx`p`p(4@@ @(}p`p@phH @`@'LACCh ׈p@ A@ph @@pW(y(k@@`ph@@@p(;`@`p@@@p(;``H@@(--g(  -@ ;;X;ĩ)DBFRT 92081-1X212 REV.2440 <850416.1403>/IMG2_5010/DBMS/DBFRT.MAC ; =DBFRT F.ENTR AIRUN BTCNT DBBPT hhJ88x8h x9( `p:9(`@:(5898:(`7(5h8 (5 (5H (5@8H@ (5x`8h@@@X0ĩ)IMG.GETPOINTERS 92081-1X212 REV.2440 <850416.1403>/IMG2_5010/DBMS/DBFRT.MAC @BIMG.GETPOINTERS  I.ENTR .SBUF AIRUN DBBFDBBPT DBSBF XX00HpHp`()()@-()H@()p@@p`.g X@k+;;Xĩ) DBFWW 92081-1X213 REV.2440 <850416.1403>/IMG2_5010/DBMS/DBFWW.MAC ; ADBFWW .ENTR ((Ap`8((@d$;;XĨ DBFWZ 92081-1X214 REV.2440 <850416.1403>/IMG2_5010/DBMS/DBFWZ.MAC ; @DBFWZ .ENTR &&*p 8( &@7;;Xrĩ)DBGBF 92081-1X215 REV.2440 <850416.1403>/IMG2_5010/DBMS/DBGBF.MAC ; -DBGBF l$.ENTR DBBPT GETBF ++N`Ap`+@aQ;;Xĩ)DBGRT 92081-1X217 REV.2440 <850416.1403>/IMG2_5010/DBMS/DBGRT.MAC ; <DBGRT l;.ENTR AIRUN DBBPT AH`Hx@;;X%ĨDBMDR 92081-1X224 REV.2440 <850416.1403>/IMG2_5010/DBMS/DBMDR.MAC ; .DBMDR O.ENTR CILAD CILST DBMVW EE*""AH`p## 8##x$8##Hx"A"$`@$ph$8#( E@DDX(Ĩ$'IMAGE_COMMUNICAT92081-1X226 REV.2540 881202.1631/IMG2_5010/DBMS/DBMSG.PAS D@xh(EEX5<Ĩ$(IMG.LCLSENDRQST 92081-1X226 REV.2540 881202.1631 /IMG2_5010/DBMS/DBMSG.PAS EZ0IMG.LCLSENDRQST ,,fy.ENTR DBADR DBSND IMG.LOCKRESNO IMG.UNLOCKRESNO PAS.NONCDS,GG@O''Ap+-)/( ('`)@;p,,/(('A-*/(%`)A@;p,",/($('p+G sG'`+0 1A-.p*`:p+( : @-:EEXN[Ĩ$)IMG.LCLSENDRPLY 92081-1X226 REV.2540 881202.1631 /IMG2_5010/DBMS/DBMSG.PAS E^OIMG.LCLSENDRPLY c.ENTR DBADR IMG.LCLSENDRQST PAS.NONCDS+<<ApILGN( (D`GpJ`J@YpF`J@YJ`FJ`J@ZpF`J@ZhJ `JhFA)LHNpI`GpK`K@YpF`K@YK`FK`K@ZpF`K@Z<hK `KhF sD`IO PALMpH`YpI( !Y @R0CCXeQĨ$*IMG.LCLGETMESG92081-1X226 REV.2540 881202.1631/IMG2_5010/DBMS/DBMSG.PAS Cu>IMG.LCLGETMESG ##d.ENTR DBADR DBTRV IMG.UNLOCKRESNO PAS.NONCDS#YYޖ..Ap5 42:;1=( (.3=((.A:0=((.`0p6`6@NP4($()`6@OP3(,`P=(.p5Y sf.`5> ##? A77p48p39p29CA( (0>;C((0`9p==p3`=Ap2#32N@A:CA(&(0+@8C(.(0p<T su0`<D E A>?p;Bp:`Qp<( Q @!a@!;;Xxĩ)DBMVW 92081-1X227 REV.2440 <850416.1403>/IMG2_5010/DBMS/DBMVW.MAC ; @DBMVW 4g.ENTR .MVW ApA`h@C a;;XWhĨ%DBPIL 92081-1X232 REV.2540 <850614.0928>/IMG2_5010/DBMS/DBPIL.MAC ; 4DBPIL 77 C.DIV.ENTR .MPYAIRUN CDBST CILAD CILST CKEYS DBCIX DBFDI NAMR73CC`@p-`@@@A 0-p-H`@p,`p(P(P((P(pHph (?x' H ((ap)p+BBzCA` p*hp(P(]P (]8)8*(興8(([(N (J`)((kBaCCh (k8'(8Ap(s q)+A( yh (`(HhX(P(H(`h 0hHH` &`&(hH(.(|::(0(0`@p(a (H,p'`,p%H@p%8%8'(%8%8'(ֈ8(`,p(`P-(݄(`EEI>,,(`-pp` <de@ @ 0 * ; Err*.77 xfh ׈xgH(CHPg(b(dH(cpe@HHHPg(b Ppf8e(c (U`f(r@6RUCCXĨ))PARSE_SET_LIST92081-1X033 REV.2540 881202.1637/IMG2_5010/DBMS/DBPSL.PAS C@o0EEXkpĨ))IMG.PARSENEXTID 92081-1X033 REV.2540 881202.1637 /IMG2_5010/DBMS/DBPSL.PAS EXbIMG.PARSENEXTID n.ENTR .LBT.SBTPAS.NONCDS>>p\a`op]pZh`6@ZHH`l8Z8](pZ`kA@Z(Xh^6_Hp[`[Pl(0`[Pn(0`[(0`[Pm(0(?`[Pm(4(7__p\`Z(>p\77S>(X__`ZpZ`kA@Z(Pa(Xh`6@ZH`[H(7 sX`\b cA^`jp\(j ,;@5SDDXĨ)*IMG.PARSESETLIST92081-1X033 REV.2540 881202.1637/IMG2_5010/DBMS/DBPSL.PAS D_IMG.PARSESETLIST` g.ENTR DBFDS IMG.PARSENEXTID PAS.NONCDS@@pp`A@(E`(`(`(p(`(@pp`@@p-`(4`(4(7`(`@@h88("0r@BB`p(ppp`A(T(`(\p(_`((Af`(m`(m(p`(`p`A@(~`(`@@@h(K`p t` A`p( 2d @O;;X ĩ)DBPTR 92081-1X236 REV.2440 <850416.1403>/IMG2_5010/DBMS/DBPTR.MAC ; >((DBPTR .ENTR m A@@ti;;Xrĩ)DBRBF 92081-1X237 REV.2440 <850416.1403>/IMG2_5010/DBMS/DBRBF.MAC ; +DBRBF T.ENTR DBBPT DBSBF RETBF ##8H@pA (`#@b"<<X[Ĩ*LOCKRN92081-1X238 REV.2540 <850416.1403> /IMG2_5010/DBMS/DBSEM.MAC <SIMG.LOCKRESNO  Tb.ENTR RNRQ **(A (`@*@_==X Ĩ*UNLOCKRN92081-1X238 REV.2540 <850416.1403> /IMG2_5010/DBMS/DBSEM.MAC =JIMG.UNLOCKRESNO  Tb.ENTR RNRQ **(A (`@*@`~>>XgĨ*LOCKNOWAIT92081-1X238 REV.2540 <850416.1403> /IMG2_5010/DBMS/DBSEM.MAC >IMG.LOCKNOWAIT Tb.ENTR RNRQ **?(A (`*@*;;XĨ5SLEEP 92081-1X241 REV.2440 <850416.1404>/IMG2_5010/DBMS/DBSLP.MAC ; YIMG.SLEEP :^.ENTR EXEC ''I+Ap '@wV;;Xj`Ĩ5DBSND 92081-1X242 REV.2440 <850416.1404>/IMG2_5010/DBMS/DBSND.MAC ; 8DBSND .ENTR EXECIMG.SLEEP AAAhHX(.0OpYpZp\p[ x^`@Zp]A!PQ][^_Y(0PR(=(9 x\8^(.`Z@[pZ(PR(=PS(9XT(9XU(=`V`[@h--NAHW (Hp[x^(8\M\`Z(IO0004-@4!;;Xĩ)#DBTRM 92081-1X243 REV.2440 <850416.1404>/IMG2_5010/DBMS/DBTRM.MAC ; <DBTRM (.ENTR DBBPT TRIM'!A@p @M ;;X^EĨ5'DBTRV 92081-1X244 REV.2440 <850416.1404>/IMG2_5010/DBMS/DBTRV.MAC ; ?DBTRV :^.ENTR EXEC yyX@@(:0< 0pppD`pA!=ABC(6(3x@h@Hx8B(:pD`?p((8`> y@S;;X_'eĨ6DRMNT 92081-1X257 REV.5000 <870209.1444>/IMG2_5010/UTILS/DRMNT.MAC; GDRMNT B9.ENTR .XLAIDGET IMG.OPSYFzFF`p (A((TpdA(8@`d@^_(V`d@[c(V`d@Z@(V@`d@\b(V(T@`d@]`(V`d@[c(V88GF@`d@Z(V`d@\@b(V(T(W x"8@dh==XdĨ6IMG.OPSY92081-1X257 REV.5000 <870209.1444> /IMG2_5010/UTILS/DRMNT.MAC= IMG.OPSY %$OPSY .ENTR .XLA::AJp@(@(@(@( `:@mC::XvsĨGICB92081-1X268 REV.2440 <850416.1404> /IMG2_5010/DBMS/GICB.MAC://LIMG.GETCOMMBUFUIMG.GETSTATUS MAKECOMMBUFFER/PUTCOMMBUFFER /$$f$IMCL .ENTR CLRQEXECIXGET IXPUT XLUEX $,,AAe(0jplflp((Xp(,%% 8eA(*%ilq(,A*el%::H0!!AA.5e(O0kpl?flmr(OA(9Kgq..qql(O(O//:))CVAQQpnApochnRSTU ) ?p  @::X: Ĩ2NODE92081-1X278 REV.2440 <850416.1404> /IMG2_5010/DBMS/NODE.MAC:NICNOD NODE No#CNOD #NODE  x`xH`@l@@XWlĨPDBMS 92081-1X283 REV.5010 881202.1712 /IMG2_5010/DBMS/PDBMS.PAS @@8WlDDXPĨIMG.MAKEBASELIST92081-1X283 REV.5010 881202.1712/IMG2_5010/DBMS/PDBMS.PAS D`AIMG.MAKEBASELIST q.ENTR .LBTDBBUF PAS.NONCDSrr55p;>p7HhG6PL( `M@(5Ap:p8`:p<`Np=p9`<@KH9@((`8p8`8@O@?h9898=(`8(1`M@(5`8?p;r sv5`;A BA>`Jp;(7J(@g@)HDDX/ĨIMG.SETGETTER 92081-1X283 REV.5010 881202.1712 /IMG2_5010/DBMS/PDBMS.PAS D&N%IMG.SETGETTER .ENTR DBFDS DBPTR PAS.NONCDS44Kp$A ""(`((`.$Ap(!#4 s$`% &A `-p( V-d @CCXI0ĨIMG.CHECKMODES92081-1X283 REV.5010 881202.1712/IMG2_5010/DBMS/PDBMS.PAS Cv!IMG.CHECKMODES 4.ENTR PAS.NONCDS@@RpP)(`/ (p`@,P+(`@,P-((`. (p@ s`! "A`*p()hs@HCCXT\ĨIMG.TEXTSTR 92081-1X283 REV.5010 881202.1712 /IMG2_5010/DBMS/PDBMS.PAS CMIMG.TEXTSTR .DIV.ENTR .MVW.SBTPAS.NONCDSzzÍCC`YAI(IA@Z(pG`XL(ChJ`HSIKI(AIpF`F V @FpE`F@V@[ AVKhJ6`F@[H`W@pGz sC`GM NAH`VpG(V @dEEXoĨIMG.SENDRECEIVE 92081-1X283 REV.5010 881202.1712 /IMG2_5010/DBMS/PDBMS.PAS EXIMG.SENDRECEIVE  ^^ .DAD.DLD .DSB.DST.ENTR .MPY.MVWDBMVW DBPTR IMG.ENDTIME IMG.LCLGETMESGIMG.LCLSENDRQST IMG.MATRIXADD IMG.STARTTIME PAS.NONCDS^F~::pjxpmypn`n@m`m `m@hnH `m@hnHH`m@hi`n@((p_(*p_`m@pozppho`n`iP(Q`o@hp:>>H`o@hpH`n@pf`o@puuO0_Ou(``o@ `m@@pf`o@@Aex}`_A(l jAkxpmAsmh(v(]xpq3|xCCqpa`qp``_(}pma`m~f((] Akky@@pm}@@pn mn`gyHH@pr}@ps`s@pm`r@ mv`r@dJJpmvm`s@pm@`r@AA mv`r@pmvm`s@pm`r@@A kAA mv`r@pmvm`s@pm`r@@A mAv`r@pmvm}pma`m~f(e?AA(]}pt`t@P((S`t@(S`t@@pdA@d(S~pe`d@(Qpm`pb/}ec`eA@fpn<a`c~n(?(]`c@pn~@po@55FJnco`e~@pe8b8m(*`e~}@([(]pj5 w ]`j ""PEAx{pi|phpg`pj(%" zU -Q6^ @KjGCCXV<ĨIMG.TRANSCHECK92081-1X283 REV.5010 881202.1712/IMG2_5010/DBMS/PDBMS.PAS C{IMG.TRANSCHECKm .DCO.DLD.DST.ENTR PAS.NONCDST@@p((`A(`( p(pp`@@p`()(1`A@(4`(`@H@(?`(`@==@H@p`@/(P`(A (]`(\`((\(`(d`((`P(h(v`@(q`((uA(A((|`&}(88(p te` ;Ap`p( (g@дCCXPAĨIMG.BASEFORMAT92081-1X283 REV.5010 881202.1712/IMG2_5010/DBMS/PDBMS.PAS C}4IMG.BASEFORMAT0G.DLD.DST.ENTR PAS.NONCDS]]**32p.`?p0p+`.@>H+@('`.@>H+@p/`/@=/<('333@@@3h+8+80(] !*4 [T5AA11A,(((<(@=[@@X@BĨDBBEG 92081-1X283 REV.5010 881202.1712 /IMG2_5010/DBMS/PDBMS.PAS @ 1'DBBEG  uu, .DAD.DIN.DLD.DSB.DST.ENTR .MVWIMG.BASEFORMAT IMG.ENDTIME IMG.GETPOINTERS IMG.MAKEBASELISTIMG.SENDRECEIVE IMG.STARTTIME IMG.TEXTSTR IMG.TRANSCHECKPAS.NONCDS RBBEG uDDph2`"A+$P3( P5(()"p(,`=A"(`"p((""%(&(((`p(,`?%(A 4%(7(`@8/3A(F E"#$%6DHH&(`(M K$P3(Q(_ (W(Z`@A%(_,e.%(h(`@7p`@;p`@:px#&%({(/0.%((`@7pBB@`@4A`%p`@4p`h `p`(pp`@>h H1HA@p`@4h88(`(`A@`숈(`@+(H`GBB(`@ (Q(Q(^`@@ ([`(]`(`Ȉ@p`@p`@.hH爈`@hĈ`@hÈ@HpAAddd88((`(`@pAD  A`@@A A`@߄p`@p̈`@p`΄@`@pAAd Y lA(gi Flv@Sjr*@@X@<Ĩ.DBEND 92081-1X283 REV.5010 881202.1712 /IMG2_5010/DBMS/PDBMS.PAS @ : DBEND  uu5 .DAD.DIN.DLD.DSB.DST.ENTR .MVWIMG.BASEFORMAT IMG.ENDTIME IMG.GETPOINTERS IMG.MAKEBASELISTIMG.SENDRECEIVE IMG.STARTTIME IMG.TEXTSTR IMG.TRANSCHECKPAS.NONCDS RBEND uDDph*`A$P+( P-(()p(,`6A(`p(("(&(((`p(,`9(A 4(7(`@0/+A(F EDHH(`(M KP+(Q(VVA\%(_(`@/p`@5p`@4pAo(r(`@2p&'((P:((`@/ jBBp`p`p`h `A@,pA`(pp`@7h H)H;@pA `@, 88(`(`@8pAA `@,AA{W## `@,pAA`@3p`@1p`@,@AAA`@.pA  #! A(h+ (Ts@[@@XB;Ĩ2DBFND 92081-1X283 REV.5010 881202.1712 /IMG2_5010/DBMS/PDBMS.PAS @ ;DBFND j qq.DAD.DIN.DIV.DLD.DSB.DST.ENTR .LBT.SBT DBFDI DBMVW DBPTR IMG.ENDTIME IMG.GETPOINTERS IMG.SENDRECEIVE IMG.SETGETTER IMG.STARTTIME PAS.NONCDSRBFND q/IIA( (5`@/A((o`A(" AA)|{(,(5`{@+P(6`A(5 <p~`(C`p(C(F`A(5 KIHH~}P(Q`(5`{@pxA Zxy`{@H@6pz`z pwA nywv`{@@6 pr`r(|`(5ptps`rA@t(`s(@t A==@v@6P((ps(`tpt(`s(`(5@t @v@H6 pu`@p`@h|`@hu`@h`@h}H`@p`@p ~~ŖDD`@@pAq((5`@p`{p`@@@6``@@@6 `t`@p `@h@HpA`@hHp`~FFp`@pA `@hHp`@h@HpA`@hHp`(k`@pAA C`@`A@pA`@p`-- X@p`@@AAA`@p` - o jA(i   efsxy @j@@XT,Ĩ7DBGET 92081-1X283 REV.5010 881202.1712 /IMG2_5010/DBMS/PDBMS.PAS @ 3zDBGET  }}:U .CBT.DAD.DIN.DLD.DSB.DST.ENTR .LBT.MPY.MVW.SBT DBMVW DBPIL IMG.ENDTIME IMG.GETPOINTERS IMG.SENDRECEIVE IMG.SETGETTER IMG.STARTTIME PAS.BLANKFILL PAS.NONCDSRBGET }<&IIAs_`a^v( ( `a@/A(stuvwxy(V`^(# !b*ta\[v(-( wpW``@pd`a@P(9(I@~oh6`6A (i(I2IAA`a@P(P(Wph6A`6 (a((`_@@6 (`d@@ `d@@6 `d@h[H`d@@@`d@@@AA`d@@@`d@@@6H `d@h(A w[Zvv(( `_@AhdHpX@XhdHH6 @(`XpX(`XAhdH``@pe`e|>>@@`yuP(P(P(P(P(0P(0P(e(q`e@h[Hpdd`e@ (`v( (t`e@h[Hpdd(t`[pf`e@pgg (/ AA`f@@@6 `f@pd dv`vph`h `h@pd Ad`h@pd d( (t`[pi`e@pj`i@+P(?`v( `i@@((@6 @(K`v J>>( uP(O(V`i@j(\@`i@AAjj (d`v( (t`[@+P(m(p`v( (t`v( `e@h\`e@u`[@@@6 HheHA)BB`_a]Yv(( `a@P((~dh6A`6 (((`_@@6H `]@pk`[pluP(P(P(P(P(P((`l@@@BuBB6 (`l@hk@HpdAd`l@hkHpdd(∈`l@hkHpdd`k@pd`k@pe dxe`vpm`mhkH`m@hkHpdd`m@pd ' HHAd`m@hkHpdd`m@hkHpd@Ad`^(V`^A@pnnDn A.bq@`n@AAqq`n@pdqd`n@pd`n@pe`n@edq`nA@pdq |TAd Vz {As(@*j oWpd((" Rosx{(@eF@@XLWĨDBINF 92081-1X283 REV.5010 881202.1712 /IMG2_5010/DBMS/PDBMS.PAS @ DBINF U ~~3.DAD.DIN.DIV.DLD.DSB.DST.ENTR .LBT.MBT.MPY.SBT DBFDI DBFDS DBFWW DBMVW DBPTR IMG.ENDTIME IMG.GETPOINTERS IMG.MATRIXADD IMG.SENDRECEIVE IMG.STARTTIME PAS.NONCDS~»RBINF hh44`7P*(( A ;<=( ;<=<( `6P*((`G(`F(,`($(&`F`(,<<(2p8(4p8h so4`8> ? A99p7:p6`+p8(jjH44p`p(upp`p>]~}(hPF(c(f(g(|(r`p`H@h~88(T``h j | 9Ap(H^EEP@(PA(PB(PC((t>((t`` (t>((t(`Ah6  u`p|`u@,6Ah|6`|@,@6`6hu6@kDDh|H16`|@1@6H `;huH6 p`u@+ h|H2`|@1@6HP?(`|@2 +h|H2hu6 h|H3`|@4pA (t` @4p7FF(t`p}p>$ ('(tA , `p~`~@,@6Hp`~@0Apv > v`(lp|pxh6@xHHpy>Ty(_PF(Z(](^66@](t(i`p`}H@h8x8|(F`h `}(t6 t v8( PP))p`@.@2hJ`@.@3A!"#((`@.p`@+`@-P 2 jWA( 4DDPI(PJ(PK(_PL(h(> ((` `(> (爀((`h:`(`p   ((A  `p`!DDA@6pA`@8ph6`6`@,@6A`6`@1@6 `;`@,+,p`P)(7P*(>P+(E(L`@1@6`<(O`@1@H6`>(O`@1@6;I??`=(O`G(`p`@2hH/`@4p (` @2pg (`p>q(t(` @2p`(~`pp`(ڀpp4EE`p> (A(  `@0p  `@,@6ppp`A@(`(h6@HP((p(`p(`(55c`p`H@h88(``h (5  |)8( ""A 3`(`Gp(p" {` A`+p(ʘHHPM( PN(()>' (*()A / `@,@6 p1`p6`6@0p, B ,`6@,@6p0`0 A+p- V-`1(Z(p/`1(p6bEEp2@2 @@6p3q(t()`(x(y(`,A/h H@p7@2 @@6 7`7h@2 @p3`3((()`((TAA`7@+ (`7@+h(`7@+ `/p/8286(d`/`/,h (` ()> (()  `@,+,p`@,@+@6p3AA`3(`D()(()p+`P+((`@0p6A  6*`@,@+@6 @V @*@6 p+`p8`((8(`8`8h+`h+() %)9 R:89( _C A(F( K PP(QPQ(x(`p`p`@1`@+hH3p@A`@-hH5p`@,@+@6 hH/(`p`p`@1LLR~&&p`@3h@H+pA`@5hH-p`@,@+@6 `@/H(`h0L  V8(< hh55` @.@2hT   !$#((`p`p`@@.@+A`@+hH.H-p@A눈`@+hH. `h-h  K8( EE`pe Ae`e@+pg g`e@-pgA g`e@/pg g`e@1pg Ag`e@3pg g`e@5pgA g`Upepd`7d@pg-g%8d8e(#`@Opf`fUU,4//@9pe`f@7pg`f@-gef`f@9pe`f@7@AeAh`f@1pehe Z&PSA(^(c c&U cj ډk8j( m@@Au   (x(` @//*A((`( P@(PA(PB(PC(PI(PJ(PK(PL(PM(PN(PP(PQ(PR(PS(PT(5|DD((Ł(9((`(j((`E`(`A@HpDA @`@+AA`@+p`@3p`@1p`@+P `A@-pA  A(m k AA,-)..  ADMXefgho|}-.4!A@g@@XP6Ĩ DBLCK 92081-1X283 REV.5010 881202.1712 /IMG2_5010/DBMS/PDBMS.PAS @ ޫDBLCK l  ||1K.DAD.DIN.DLD.DRCT .DSB.DST.ENTR .LBT IMG.ENDTIME IMG.GETPOINTERS IMG.LOCKRESNO IMG.PARSESETLISTIMG.SENDRECEIVE IMG.SETGETTER IMG.STARTTIME IMG.UNLOCKRESNO PAS.NONCDSRBLCK |O==( `,A(`0(`@@# `pu(qpwpt@u@ps`sP"((`1(`u@5@pr`r(kh|6P)(kh|6HP-(<(F`pp_=44@@"hHH"H4(k`u@5A@pxxpU(X(`@pv`v@#hvH# `v@$hvH#H5@h`u@spu8t8w(p qy ;z8y(r }BBA ((`@/A( (`(AA Ap A`@@"P(P(P(ˆP(P(ۈP(P (ވP!((`@@#>> (Ap((`@p`@# `@$h(y(`@@#p (((`.(`@ P!(`@ P(((`@@#EEppp(P/((5`(5p`@!@!p $('(`@!A@!p /(2(p(7p`( =A(~~HBDD`(`@3p `(~A@(i` @'h @H'pD` @*h H*p@AA(~` @(h H(p@D` @+h @H+pAAA@(~`?II` @h HpA(h  ` @%  ` @%pAA `@@p@` @&AA ` @&p p`(`@2p A  A  ` @@@T""AA  ` @p ` @#p` @!p ` @((  ` A@p A@ x` mA (}v9**  "$2@s4*@.U@@XRqĨDBMEM 92081-1X283 REV.5010 881202.1712 /IMG2_5010/DBMS/PDBMS.PAS @ 1DBMEM  uu, .DAD.DIN.DLD.DSB.DST.ENTR .MVWIMG.BASEFORMAT IMG.ENDTIME IMG.GETPOINTERS IMG.MAKEBASELISTIMG.SENDRECEIVE IMG.STARTTIME IMG.TEXTSTR IMG.TRANSCHECKPAS.NONCDS RBMEM uKDDph`AP( P(()p(,` A(`pԄ(("׀(&(((`pԈ(,`(A 4Ѐ(7(`ӈ@/A(F E~~?KDHH(`(M KP(Q(VVA\׀(_(`҈@p`@ p`@ pAo(r(`@ p((`p`h~ttAAH `@p`(`@pAA `@ `A@pA`@ p`@p@`@AAA`@pt   A(lq s@"CCXkhĨIMG.GETBUFFERS92081-1X283 REV.5010 881202.1712/IMG2_5010/DBMS/PDBMS.PAS CnWIMG.GETBUFFERS ""f.ENTR DBFRT DBGBF IMG.GETCOMMBUFPAS.NONCDS"kDDpPVA R]TVV(`cV(FS@apQQ(`eV(F`gpM`MU%TMNO`O(D`NA@b(4`dV(F(DA`NpM<TMNO`O(B`fV(F`MUXDpPV(KT sK`PW XAR``pP(`3gQ@b"@@XWĨDBOPN 92081-1X283 REV.5010 881202.1712 /IMG2_5010/DBMS/PDBMS.PAS @ ;0DBOPN  .ENTR .LBT.MBT.MPY.SBTDBCLS DBGBF DBGRT DBMVW DBPTR DBRBF DBTRM DRMNT GETCL IMG.BUILDROOT IMG.GETBUFFERSIMG.GETPOINTERS IMG.SENDRECEIVE PAS.BLANKFILL PAS.NONCDSPNAME RBOPN RETCL TMDAY USNUM q}@@pp`p*ph-6@HPo( h-6@HPs( h-6@H("p`(-h<6@H`o(;h-6H@Hh<6p+@HH`+88*(,pf9@DD,(D(F`~,,P~(PO,./(AX,  /(\/`p`@c(e`p*l*Ao`n p*`&t p+`t@+@*hHb`@d7CC(`@dp* *4(`w/(/.P^(P`(Pb(Pe((p(p(`v/(`@lp,/((A    4 @(Lj`{/(rDD` @bp p` @fpA6567`,p!`uA@( `!@6@HHPs( `!@6H@HPo( `!@6@HHh Hf6p@H``p(` @f- ??p` @p@6A`<68` @q.` @rh` @dh/  9:  ;/(2(` @bp"`"@_p`/@`h"Ha`"@bp`"@dp`"@cpxJ??p `/@bh" `"@ep`"@bp  \A a//(e(`p#`#@mH@h}`|@p`#@mH@A@(`#@mH@hp`pKDDp`#@mH@p`A@(`#@mH@p88(`A@(`(( 4//(`z/( 4//(`A(( 4/L??(//(`z/(`x/(ˆ`p`@lAh  ` @cp0` @hp` @iAp  p`(7pp@c@p$`(`$, BB$kp`A@(`$@0`$kp`A@(4`$@0p88(` @fp` @gp D `(pp@cN==Aj@p%`%@`$kp`A@(g`%@`@0(m`%@`@`%@`kp`A@(`%@`@0(`%@`@88(Lru88/` p&`&@ah`,`&@bh`&@c@`(`y/(`p'`'@ch'Hc `&@c@0`/p(`(h`(@_h`(@ah (/[[^x..pp̃,/`/p`(Ԅ( /(`,`p)`)@c(`)@d(`)@dp([ 0 AA1--A,( @3QUERY DBMON DBSPL DBCLN DBUTL DBRBR DBRFR DBSTR DBRST DBULD DBLOD A995M^((  ),-;?@s @9@K @@X^=ĨDBPUT 92081-1X283 REV.5010 881202.1712 /IMG2_5010/DBMS/PDBMS.PAS @ BDBPUT k @.CBT.DAD.DIN.DIV.DLD.DSB.DST.ENTR .LBT.MPY.SBT DBCBI DBFWW DBMDR DBPIL DBPTR IMG.CHECKMODESIMG.ENDTIME IMG.GETPOINTERS IMG.SENDRECEIVE IMG.SETGETTER IMG.STARTTIME cPAS.BLANKFILL PAS.NONCDS RBPUT HHA {yzx( (`z@/A( (``xA(" AA|'zA(*(1zrs(4(`sp`@/(@`(`@+(J`HDD(`@@6pq`@pu`z@pA ]zcpa`z@PA(f(vmh6`6((v`z@P(}(h6`6A(u#@@((`{@@6 (`{p`@@ `@@6 `@hsH`@@@`@@@`@@@`@@@6 (ςʞ@@sv((`s@pn zno`s@+P(P((P`vP(`(`s@@@6p t`t(`(R`s@@6 Pv( `(O`s@p FFH@6pl`l pkA okm`v(Opph@h @mph6p 5t`t(;`(L`(L`p Gt`t(L`8h8(%(R`pR@@(V(pb`{p`y@p`A@peu`q(pphho6@hHHpp@pA@cpHh6P(`@@(ppg`@hbHg@ 8g8??(`@@bpb8h8(m`{p`y@p`@p w`@pz`z@.hH`@hr`@hu`@upAy{zji((`zBB@PA((h6`6(((`{@@6 (`j@p`p`hw`@hHp`@hHp@A`@hHpqFF`@hHp@AP(#(*`hjHH`x(``x@pAA8|`@`A@pA`@p`@p@`@AAAS}Y`@p `  A(@*na **$ RXfklv*@J @@XQ8Ĩ$DBUND 92081-1X283 REV.5010 881202.1712 /IMG2_5010/DBMS/PDBMS.PAS @ :DBUND  uu5 .DAD.DIN.DLD.DSB.DST.ENTR .MVWIMG.BASEFORMAT IMG.ENDTIME IMG.GETPOINTERS IMG.MAKEBASELISTIMG.SENDRECEIVE IMG.STARTTIME IMG.TEXTSTR IMG.TRANSCHECKPAS.NONCDS RBUND uVDDph'`A!P(( P*(()p(,`3A(`p(("(&(((`p(,`5(A 4(7(`@-/(A(F EDHH(`(M KP((Q(VVA\"(_(`@,p`@2p`@1pAo(r(`@/p#$%((`@,p`pDD`h `@)p`p`(pp`@4h H&H7@p `@) 88(`(`A@6pD A@`@)AA ;;`@)p`@0p`@.p`@)((`A@+pA;  + A(o( (s @@@XYOĨ'DBUNL 92081-1X283 REV.5010 881202.1712 /IMG2_5010/DBMS/PDBMS.PAS @ 9DBUNL G RR O .DAD .DIN.DLD .DSB.DST .ENTR DBFDS IMG.ENDTIME IMG.GETPOINTERS IMG.SENDRECEIVE IMG.STARTTIME PAS.NONCDSRBUNL R_AAA( (n`@/A((`( AA P()P()`(n (/(2`͈(n`@PLj(?`@P(?(@(nl.AFFP(D([J`(P`(n`@p`@ `@ʈh`@Ĉ@k(n(n`(`@pA A|`@ `998A@pA`@Ɉp`@p@`@AA  A`@Äp9  jA (wBn ds@@@XQuĨ+DBUPD 92081-1X283 REV.5010 881202.1712 /IMG2_5010/DBMS/PDBMS.PAS @ =NDBUPD  zz8.CBT.DAD.DCO.DIN.DLD.DSB.DST.ENTR .LBT.MPY.MVW DBMVW DBPIL IMG.CHECKMODES IMG.ENDTIME IMG.GETPOINTERS IMG.SENDRECEIVE IMG.SETGETTER IMG.STARTTIME PAS.BLANKFILL zQPAS.NONCDSRBUPD IIA H=>?`mK(`9@c@AR(G(G(T`9@c~~rdIHH@ (Q`nK(S`oK(Lp3`>@apBA`UTUEVh[6`\6V(j((`=@l@@6 (yUWU3VA 398K( L98KK((p4p7`=@lhB~!AAHkXA@4_hBHkH6 (A@4_hBHkH H7x7`4p4(@4p5`B@jhq`>@aA@spB MB7`>@apC`C@dpB?B`?@b.]hCHf~~DD`C@gh:`C@hh9HcpBB`C@ih5`C@rh7`t@7pBA>=?YB;6ZK((`Kh7`<(2`<@ppDADDD  @AF`D@^@AFAF`D@^~66pBFB`D@epB`D@cpC`D@^CBF`D@`pBAAFB6 C2N zOAH(*@pE3%%] Rl&%@5T;;X~ĨCATDI 92081-1X172 REV.2440 <850416.1403>/IMG2_5010/DBMS/CATDI.MAC ; /CATDI T.DAD.DIN.DLD.DMP.DST.ENTR SGET ~~^DDA(r(rp(r(rp@(rp Ap#8@(up`P(1P(3P((>p88@(up`P(a@~zzPDEE(p@(p`@pAAA(pA(3 (p(p`(p(3f8@(up`P(a(p`(`(AD0 +-z@u5::XiVĨ+CATI92081-1X173 REV.2440 <850416.1403> /IMG2_5010/DBMS/CATI.MAC: xCATI .i.ENTR .MPY ??ApTpApSpR`LpU(2PO(PP(xS`MpU(2(@`RAI (/pR(`RhS  S hTX('HH5H!K8TPN(2&&i?U@Q(/@J(/@I(  +-&@- AAX._CATR 92081-1X174 REV.2440 <850416.1403>/IMG2_5010/DBMS/CATR.FTNA zc@CATR Nu.ENTR .CPM.IDLP .FMUI SGET**P .09+-DELdel'*:DD:@:p?`p6pp4p5pp;(X(<Ap<0(`>h> (;<@p;p9h(lp`p7~~"~CC:98`8P((`p7`8P((`p7A8(p 8((`p7`8P h8X  0(`p7`8P h8X 0h8X  0h8X 0h8~~~;;X 0h8X 0(`p7`7P(`7P((`6Ph6X 0(`6P(`p6(h`7P(ꈈ(`6P((`p6`8P ((p(`6P(((~~~==`p6`8p5(h`7P((M`6P(A6( (`p6`6Ph6X 0h6X 0(+`Ap('(`@h8`6P(/(2`4p4`6P(6(8`p6@~!!96(=(L`p6`hH8@p!~~CG>>A(L((h`7PA(Q(Y6((`p6(h`7PA(](h6((`(`p6(h898({`6P(p(}y=>`((`6P(`6Ph6~LL<&&X 0(`5P ((`p`@4p =>`(@`?(?(L:  @@_Z::XU3Ĩ:CITA92081-1X175 REV.2440 <850416.1403> /IMG2_5010/DBMS/CITA.MAC: xCITA '].DIV.ENTR VV++`%p,`*p+h)h(x- A&H'+8+8,(`-028`1008`/0. 0 -.V@fZ;;XkcTĨ CDITA 92081-1X176 REV.2440 <850416.1403>/IMG2_5010/DBMS/CDITA.MAC ; ?CDITA $$.DAD.DDI.DLD.DMP.DNG.DST.ENTR .SBT$HH`JpRh6x`GApSAM(ApSMAAOKAAMKDO`@IhHRHRxRM( (8S(>`!@;pA AZ%`!@;pc%4f%%`A(zm(r`%%(`%%((pq u`& $$'A!"p#p`:p(@^$G:"@^l},::X %Ĩ*COTA92081-1X190 REV.2440 <850416.1403>/IMG2_5010/DBMS/COTA.MAC: xCOTA  j.ENTR .SBT HH$$p`6ph @#hHx`p`"p$h`p!@#8$(0H@<[99X !CRTA92081-1X191 REV.2440 <850416.1403>/IMG2_5010/DBMS/CRTA.FTN9 z%CRTA A.EIO. .RIO. .DTA. .ENTR .EXIT CODE ++5@p h@`+ (G13.5)   @AAX(.Ĩ+ IMG.CLRCOMMPATH 92081-1X198 REV.2440 <850416.1403> /IMG2_5010/DBMS/DBCCP.MAC A,IMG.CLRCOMMPATH .ENTR EXECIMG.UNLOCKRESNO RR9..App(A(%`0,p*-+(#(`(!`)R@U;;X]RĨ,DBDIO 92081-1X206 REV.2540 <850416.1420>/IMG2_5010/UTILS/DBDIO.MAC; 6DBDIO N.ENTR IEOTXLUEX AA`@KpPpQA0ApP(-pOH(#`OI(9(& A(&)P(5PL(;XM(7XN(9(;`D(>`E(>`F(>`G(>(>]A@ MNOP?IO14-1@ƧDDXYĨIMAGE_FMP_ROUTIN92081-1X210 REV.5000 881202.1544/IMG2_5010/UTILS/DBFMP.PASD@:YEEXv["ĨIMG.DEFAULTFILE 92081-1X210 REV.5000 881202.1544 /IMG2_5010/UTILS/DBFMP.PASE5IMG.DEFAULTFILE ++9S.ENTR CITAIMG.SUPRS0LJUST LOGLU PAS.BLANKFILL PAS.NONCDS+!!LA p!   A( @@>CCX &!Ĩ IMG.FMPTOIMAGE92081-1X210 REV.5000 881202.1544/IMG2_5010/UTILS/DBFMP.PASC uIMG.FMPTOIMAGE 4.ENTR PAS.NONCDS))y#`p`(`A@ (`p`p) s` 7Ap(   @5KT DDX$Ĩ IMG.PARSEDESC 92081-1X210 REV.5000 881202.1544 /IMG2_5010/UTILS/DBFMP.PASDQIMG.PARSEDESC |$$.DST.ENTR .MVWFMPPARSEPATHPAS.NONCDSSTRDSC$LLA][`p}}AY`}@p~~AW`}@p~"~AU`}@p~,~AS`}@p~6~AQ`}@p~`}@p`}@p`}@pAP[YWUS~ wLQ P  A`hA(@ ] (089:;<@+DDX {Ĩ IMG.BUILDDESC 92081-1X210 REV.5000 881202.1544 /IMG2_5010/UTILS/DBFMP.PASD^kIMG.BUILDDESC )).DST.ENTR FMPBUILDPATHPAS.BLANKFILL PAS.NONCDSSTRDSC)xLLAjopboqojp`ipdAdop``dA@speeor^`d@tpeA)eor\`dA@upe3eorZ`d@zpeA=eopX`d@vpe`d@wpf`d@xpg`d@yph#iL Wb`^\ZefghX Wk tlAi(@ s (089:;<@DDX(Y?Ĩ IMG.BUILDROOT 92081-1X210 REV.5000 881202.1544 /IMG2_5010/UTILS/DBFMP.PASDg-IMG.BUILDROOT [[  .CBT.DST .ENTR .LBT .MBTFMPHIERARCHNAME FMPWORKINGDIR IMG.BUILDDESC IMG.PARSEDESC IMG.STRINGMGR PAS.BLANKFILL PAS.NONCDSSTRDSC[TTA,`p`(1A,A 2123h86`96 3(!(0(0 (2;4$5A0,3$526(h96 AP=(;23@p`(XAH,A O2<4$5W,3$KKvT00526(Hh:6 P>A(^(baA(q i272$5q3$526y3326h96`:6 3A,K t- I.A ,( @/:0:0 i=/: @?^^EEXxh Ĩ IMG.GETDEVICELU 92081-1X210 REV.5000 881202.1544 /IMG2_5010/UTILS/DBFMP.PASEWIMG.GETDEVICELU Y.ENTR DCBOPEN PAS.NONCDS((`@p(`@@p(p( s` exA( " @m-CCX0ĨIMG.INITDCBHDR92081-1X210 REV.5000 881202.1544/IMG2_5010/UTILS/DBFMP.PASCЄIMG.INITDCBHDR4.ENTR PAS.NONCDS He `pp `@@ 8 8(   egA( " @pbDDX*zqĨIMG.PURGEFILE 92081-1X210 REV.5000 881202.1544 /IMG2_5010/UTILS/DBFMP.PASD TbIMG.PURGEFILE :: p.CBT.DST.ENTR FMPCLOSEFMPPURGEIMG.FMPTOIMAGE PAS.BLANKFILL PAS.NONCDSSTRDSC:ff999a``p>A ihi?jhk6`>6j(&(`>@op__a >ijAA<%<aaPp(*(-a(10aaa(7p;(9p;f s9`;b Ic A``np;( @? Pn" @DDX))ĨIMG.ISINTFILE 92081-1X210 REV.5000 881202.1544 /IMG2_5010/UTILS/DBFMP.PASDXIMG.ISINTFILE J2.ENTR FMPINTERACTIVEPAS.NONCDSF `@p  Pp  r `  A`p ( " @jvDDXLnĨIMG.ISDEVICEFILE92081-1X210 REV.5000 881202.1544/IMG2_5010/UTILS/DBFMP.PASDLIMG.ISDEVICEFILE m.ENTR FMPDEVICE PAS.NONCDSq `@p( p( p r ` A`p( " @;CCXGBĨIMG.ISTAPEFILE92081-1X210 REV.5000 881202.1544/IMG2_5010/UTILS/DBFMP.PASCl5IMG.ISTAPEFILE ((%.ENTR IMG.GETDEVICELU IMG.ISDEVICEFILEPAS.NONCDSXLUEX (QQ,**A4(p1(*A 4p2Ap3;2/.-((p1(*`/(AP?(%`/(AP@(%((p1(*p1Q sU*`15 9=6A4`>p1(  k>? @KAjEEXqdĨIMG.ISLINUSTAPE 92081-1X210 REV.5000 881202.1544 /IMG2_5010/UTILS/DBFMP.PASEPQIMG.ISLINUSTAPE ##B.ENTR ABREG CATIIMG.OPSYPAS.NONCDSXLUEX #}}4EEAPWXNIpOYNLKJ((pM(EP_((:`L(cPb( (:A(ZNGW[\(*(-pM(E1IH`H(7pM(9pM(E`L(cPa(@(CpM(EpM} sE`MQ R AP``pM( _?@еuDDX5#ĨIMG.CLOSEFILE 92081-1X210 REV.5000 881202.1544 /IMG2_5010/UTILS/DBFMP.PASDWIMG.CLOSEFILE u=.ENTR FMPCLOSEIMG.FMPTOIMAGEPAS.NONCDS((`@"p (p(p( s` A`!p( !" @nGEEX}jĨIMG.OPENHANDLER 92081-1X210 REV.5000 881202.1544 /IMG2_5010/UTILS/DBFMP.PASE\RIMG.OPENHANDLER 99 D.DST.ENTR .MVWFMPFILENAME FMPOPEN FMPSIZE IMG.FMPTOIMAGEPAS.NONCDSSTRDSC9pp'??ApAO]^DFA]_B`O@hpNNQDB]QPe(!QPf(!($`iQ(?Q(6`OA@hpN/NQD`OA@gpN6ADN9QQQ(?pAp s?`AR }SAO`PhaA ``dpA(@Fd "-@qODDX+_ĨIMG.OPENEXIST 92081-1X210 REV.5000 881202.1544 /IMG2_5010/UTILS/DBFMP.PASD oIIMG.OPENEXIST "".ENTR IMG.OPENHANDLER PAS.BLANKFILL PAS.NONCDS"dd#<<Ap> OSP?QG?H(:HP^((#AOVR?Q G?H(#(<HP]('(6.OXRA?Q3G?H(6(<H(:(<p>d s<((`>I |JAG`\p>(rwosx wosxrosx \34 @ںDDX]gĨIMG.OPENNOEXTEND92081-1X210 REV.5000 881202.1544/IMG2_5010/UTILS/DBFMP.PASD]OIMG.OPENNOEXTEND "".ENTR IMG.OPENHANDLER PAS.BLANKFILL PAS.NONCDS"jj@@pC`B(  W\XDY(W^ZDYALDN(>NPf((:`BA(*)W`[DAY(11WaXDY6LDN(9(@(>N(>(@pCj s@`CO $$EPPALMpB`epC(rwo rwoswowos $ ^e4 @DDX(@)ĨIMG.TYPE1OPEN 92081-1X210 REV.5000 881202.1544 /IMG2_5010/UTILS/DBFMP.PASDXIMG.TYPE1OPEN "".ENTR IMG.OPENHANDLER PAS.BLANKFILL PAS.NONCDS"r A #!" p r `  A`(p(rwosf  ( @sWDDX2q_ĨIMG.OPENFILEW 92081-1X210 REV.5000 881202.1544 /IMG2_5010/UTILS/DBFMP.PASDRJIMG.OPENFILEW "".ENTR IMG.OPENHANDLER PAS.BLANKFILL PAS.NONCDS"hh==Ap? PTQ@RH@I(;IP]((%APVQ@R H@I($(=($(;IP^()(:0PXS@RA5H@I(9(=(9(;(=p?h s=`?J jKAH`\p?(rwoxrwcxwox  \\4 @fCCXeWĨIMG.APPENDFILE92081-1X210 REV.5000 881202.1544/IMG2_5010/UTILS/DBFMP.PASCmEIMG.APPENDFILE 22@.ENTR FMPAPPEND IMG.FMPTOIMAGEIMG.OPENHANDLER PAS.BLANKFILL PAS.NONCDS2__77Ap9 KNL:MC:D(&DPU((%AKPL:M C:D($(7($(&(7`C@VpB-BDD(5A3DD(7p9_ sz7`9E ^F AC`Tp9(wsoxwscx BT" @r2EEX4ĨIMG.READROOTHDR 92081-1X210 REV.5000 881202.1544 /IMG2_5010/UTILS/DBFMP.PASEb%IMG.READROOTHDR ''I.ENTR FMPREAD FMPSETPOSITIONIMG.FMPTOIMAGEPAS.NONCDS'99`"@3p! !$+-`"@3p!A!$A#/$$$(p (p 9 s(` % & A"`2p ( 2" @{JBBXĨIMG.ROOTOPEN92081-1X210 REV.5000 881202.1544/IMG2_5010/UTILS/DBFMP.PASBGIMG.ROOTOPEN 55.ENTR IMG.CLOSEFILE IMG.OPENHANDLER IMG.READROOTHDR PAS.BLANKFILL PAS.NONCDS5PEEp\`[( A(("A ݀("(7P(3P(0P(-(6`(6`(6`(6(J<](@(J(J`P](D(G`^))E(J`(J(Pp\(Xp\VZ(X) taX`\ Ap[`p\(rwo rwos} tuw@SDDX0@ĨIMG.OPENROOTF 92081-1X210 REV.5000 881202.1544 /IMG2_5010/UTILS/DBFMP.PASDg IMG.OPENROOTF .ENTR IMG.ROOTOPENPAS.NONCDS A  p r`  A `p(  @CCXAĨIMG.SHAREDROOT92081-1X210 REV.5000 881202.1544/IMG2_5010/UTILS/DBFMP.PASC IMG.SHAREDROOT .ENTR IMG.ROOTOPENPAS.NONCDS A  p r`  A `p(  @0CCXVEĨIMG.CREATEFILE92081-1X210 REV.5000 881202.1544/IMG2_5010/UTILS/DBFMP.PASCl3IMG.CREATEFILE "".ENTR IMG.OPENHANDLER PAS.BLANKFILL PAS.NONCDS"AA3&&Ap( 9=:);1)2($2PD((&($9?<);A!1)2($(&p(A sF&`(3 4 A1`Cp((rwcxwcx  <C4 @ EEX9Ĩ IMG.SCRATCHFILE 92081-1X210 REV.5000 881202.1544 /IMG2_5010/UTILS/DBFMP.PASEc&IMG.SCRATCHFILE //.DST.ENTR .MVWFMPUNIQUENAME IMG.STRINGLENGTHPAS.NONCDSSTRDSC/))A 2p# A1#A%13p) s`& 'A$`$h5A4`8p(@  8 @`EEXVĨ!IMG.READLONGSTR 92081-1X210 REV.5000 881202.1544 /IMG2_5010/UTILS/DBFMP.PASEfHIMG.READLONGSTR "".ENTR .SBTFMPREAD IMG.FMPTOIMAGEPAS.NONCDS"zz??`E@TpD DGFNpBPB((`RG(GGG(7`BA@U(7`BhUAH(* (7xDpAhF6@AHH`S8A(58D(,G(=pC(?pCz s?`CH IAE`QpC(Q "@¤dDDXqVĨ#IMG.READSHORTSTR92081-1X210 REV.5000 881202.1544/IMG2_5010/UTILS/DBFMP.PASDqHIMG.READSHORTSTR "".ENTR .SBTFMPREAD IMG.FMPTOIMAGEPAS.NONCDS"zz??`E@UpD DGFNpBPB((`RG(GGG(7`BA@S(7`BhSAH(* (7xDpAhF6@AHH`T8A(58D(,G(=pC(?pCz s?`CH IAE`QpC(wQ  "@EEXly'Ĩ$IMG.READDISCBLK 92081-1X210 REV.5000 881202.1544 /IMG2_5010/UTILS/DBFMP.PASEKIMG.READDISCBLK _.ENTR FMPREAD IMG.FMPTOIMAGEPAS.NONCDS++`@&p " (p(p+ s ` A`%p( %" @ *EEX=Ĩ$IMG.WRITLONGSTR 92081-1X210 REV.5000 881202.1544 /IMG2_5010/UTILS/DBFMP.PASEs1IMG.WRITLONGSTR "".ENTR .LBTFMPWRITEIMG.FMPTOIMAGEPAS.NONCDS"PPP((`(p8`7PI(PJ('PK($(2p9>(4`M>(4*:>p80>>(4`L>( e sr5`9? @A<`Jp9(@I)Q@ *eEEXhTĨ+IMG.FILETOASCII 92081-1X210 REV.5000 881202.1544 /IMG2_5010/UTILS/DBFMP.PASE'BIMG.FILETOASCII ~.CBT.ENTR PAS.BLANKFILL PAS.NONCDS33<AGFG HhK6`@6H((AG@HAI(AGLJAI3 $B <CA@( @ File not defined@CCXJĨ,IMG.GETPENDING92081-1X210 REV.5000 881202.1544/IMG2_5010/UTILS/DBFMP.PASCzIMG.GETPENDING .ENTR FMPPOSITION PAS.NONCDSA( p(p r` A`p(  @uDDX`"Ĩ-IMG.RETTOPENDING92081-1X210 REV.5000 881202.1544/IMG2_5010/UTILS/DBFMP.PASD`IMG.RETTOPENDING  Nj.DLD.DNG.ENTR FMPSETPOSITIONPAS.NONCDS $$;AHxA (p(p$ s` A`!p( ! @ BBX #Ĩ.IMG.POSTFILE92081-1X210 REV.5000 881202.1544/IMG2_5010/UTILS/DBFMP.PASB6IMG.POSTFILE y).ENTR FMPPOST IMG.FMPTOIMAGEPAS.NONCDS((u`@"pA( p(p( s` A`!p( !" @DDX1;Ĩ/IMG.GETDISCLU 92081-1X210 REV.5000 881202.1544 /IMG2_5010/UTILS/DBFMP.PASDMIMG.GETDISCLU .ENTR IMG.GETBITS PAS.NONCDS `@p  p  r `  gmA( " @XDDXjĨ0IMG.NOPROTECTION92081-1X210 REV.5000 881202.1544/IMG2_5010/UTILS/DBFMP.PASDiIMG.NOPROTECTION 88.DST.ENTR .MVWFMPSETPROTECTIONIMG.FMPTOIMAGEPAS.BLANKFILL PAS.NONCDSSTRDSC8LL--A4 <AA240200P((!$(+p/(-p/L t-`/ ""F A`hA`p/(@<RW"  @CCXnĨ0IMG.OPENBIGDCB92081-1X210 REV.5000 881202.1544/IMG2_5010/UTILS/DBFMP.PASCuTIMG.OPENBIGDCB 99 D.DST.ENTR .MVWFMPFILENAME FMPOPEN FMPSIZE IMG.FMPTOIMAGEPAS.NONCDSSTRDSC9pp("??ApBPabEGAacC`P@lpOOSECASPi(!SPj(!($`mS(?S(6`PA@lpO/OSE`PA@kpO6AEO9SSS(?pBp s?`BT $$PUAP`QheA dRpA`hpB(@G$h "-@o/EEX1Ĩ1IMG.WRITEBUFFER 92081-1X210 REV.5000 881202.1544 /IMG2_5010/UTILS/DBFMP.PASEf%IMG.WRITEBUFFER |K.ENTR FMPWRITEIMG.FMPTOIMAGEPAS.NONCDS44t`!@0p` p $" $$$(p(p4 s#`% &A!#p`/p( /" @(GoDDXl3Ĩ2IMG.POSITIONFILE92081-1X210 REV.5000 881202.1544/IMG2_5010/UTILS/DBFMP.PASDl%IMG.POSITIONFILE --.DLD.DNG.DST.ENTR FMPSETPOSITIONIMG.FMPTOIMAGEPAS.NONCDS-11A`"@2pA A$A $$$(p(p1 s `% u& AA"#A`1p( 1" @<[gDDX(Ĩ+IMAGE_SUICIDE_RO92081-1X218 REV.5000 881202.1625/IMG2_5010/DBMS/DBIHK.PAS D@h(CCXmFĨ,IMG.HARRYKERRY92081-1X218 REV.5000 881202.1625/IMG2_5010/DBMS/DBIHK.PAS CoIMG.HARRYKERRY,,+YDRMNT IMG.GETCOMMBUFIMG.LCLSENDRQST IMG.UNLOCKRESNO PAS.NONCDS,KKAe((^p`Apa v(`fpb`jpc`pd`r_(A|(.`hpbpc`pd,`r_A(.1y(@`gpbpc`pd>`r_(@ADj_A(FJk_##'"K(LPl_(RVm_(X\n_(^# ^o 66op$$8o(QUERY DBMON DBSPL DBCLN DBUTL DBRBR DBRFR DBSTR DBRST DBULD DBLOD 6 iW @Yvx6;;XM<Ĩ4DBIOC 92081-1X221 REV.2540 <860204.1643>/IMG2_5010/UTILS/DBIOC.MAC; 9DBIOC N.ENTR IEOTXLUEX kk.::A`@8p:09p;A/:(:($P0(&X5(&X6(((*`1(,`2(,`3(,`4(,IOMNOP14-1?k@3N;;X Ĩ;DBLEI 92081-1X223 REV.2440 <850416.1403>/IMG2_5010/DBMS/DBLEI.MAC ; -DBLEI .ENTR fA@@q;;X.Ĩ$9DBPGC 92081-1X231 REV.2440 <850416.1403>/IMG2_5010/DBMS/DBPGC.MAC ; 1DBPGC :^.ENTR EXEC ##~AA ((#@|<DDXĨ1STRING_MANIPULAT92081-1X239 REV.2540 881202.1642/IMG2_5010/UTILS/DBSMR.PASD@z虨EEXĨ1IMG.TRUNCATESTR 92081-1X239 REV.2540 881202.1642 /IMG2_5010/UTILS/DBSMR.PASEY IMG.TRUNCATESTR W.ENTR IMG.STRINGMGR PAS.NONCDSSIA    h A (@[5CCX3sFĨ1IMG.REPLACESTR92081-1X239 REV.2540 881202.1642/IMG2_5010/UTILS/DBSMR.PASC0IMG.REPLACESTR%%.ENTR .MVWIMG.FINDSTRINGIMG.STRINGMGR PAS.NONCDS%--6A->%?p`( (->%?@A->?B- 0 ''71A-`.hDAC`/hEC(%'@!=?DDX\D"Ĩ1IMG.APPENDSTR 92081-1X239 REV.2540 881202.1642 /IMG2_5010/UTILS/DBSMR.PASDSIMG.APPENDSTR ܖ.ENTR .MVWIMG.STRINGMGR PAS.NONCDSӅA   A`h!A ( @SEEXYĨ1IMG.APNDLONGSTR 92081-1X239 REV.2540 881202.1642 /IMG2_5010/UTILS/DBSMR.PASEBKIMG.APNDLONGSTR ܖ.ENTR .MVWIMG.STRINGMGR PAS.NONCDSԚAIT TUV K L AI`JhXAW(@ @(GxCCXS^Ĩ1IMG.SINTTOSSTR92081-1X239 REV.2540 881202.1642/IMG2_5010/UTILS/DBSMR.PASCIMG.SINTTOSSTRH.ENTR CITAIMG.SUPRS0LJUST PAS.NONCDS,C A A    8Ap (@mEEX!Ĩ1IMG.OCTALTOSSTR 92081-1X239 REV.2540 881202.1642 /IMG2_5010/UTILS/DBSMR.PASEWIMG.OCTALTOSSTR <^.ENTR .SBTCOTAPAS.NONCDS))A` p`ph6@HH`88()  7Ap(  @ ECCXLeĨ1IMG.LINTTOSSTR92081-1X239 REV.2540 881202.1642/IMG2_5010/UTILS/DBSMR.PASC IMG.LINTTOSSTR&&{&.DLD.DST.ENTR CDITA IMG.SUPRS0LJUST PAS.NONCDS&,S A A    [AAA ( @Dxc8DDXdĨ1IMG.POSAPPENDSTR92081-1X239 REV.2540 881202.1642/IMG2_5010/UTILS/DBSMR.PASDDSIMG.POSAPPENDSTRܖ.ENTR .MVWIMG.STRINGMGR PAS.NONCDSW ` pN O` aN ! S ""=((TAO`PhcAbQp Rp (@"@PWoCCX["Ĩ1IMG.APPNDBANDS92081-1X239 REV.2540 881202.1642/IMG2_5010/UTILS/DBSMR.PASC·IMG.APPNDBANDSܖ.ENTR .MVWIMG.STRINGMGR PAS.NONCDSӅA   A`h!A ( @-_CCXg:Ĩ1IMG.APPNDBANDF92081-1X239 REV.2540 881202.1642/IMG2_5010/UTILS/DBSMR.PASCz+IMG.APPNDBANDFܖ.ENTR .MVWIMG.STRINGMGR PAS.NONCDSA)4 567 + D,A)`*h9A8(@ @.DDX]MĨ1IMG.CRNTOSSTR 92081-1X239 REV.2540 881202.1642 /IMG2_5010/UTILS/DBSMR.PASDs9IMG.CRNTOSSTR )).ENTR .LBT.MBT.SBTCITAIMG.SUPRS0LJUST PAS.NONCDS)TT11h86`A6A?`3A@K((`LA@3((`3p2hB6Hh86hBH6 h8H6 (1A,34A148@T -19 U:A77p3(C2 ]hK ZZ @CCXĨ5 IMG.SUPRSLJUST92081-1X240 REV.2540 881202.1649/IMG2_5010/DBMS/DBSLJ.PAS C@qEEX NĨ5 IMG.SUPRS0LJUST 92081-1X240 REV.2540 881202.1649 /IMG2_5010/DBMS/DBSLJ.PAS E_zIMG.SUPRS0LJUST n.ENTR .LBT.SBTPAS.NONCDS~~(@@pspr`u(Tpvpthw6@tHpq`qP(Q`qP((#`s(#pshxH6`q`qA@(Q`A@q(Q`qP(7(:`r(=`qP(Q`sps~]]4@00`A@s(Qhx6@s@H`qpr8t8v( `s(]pshx6`H`sA@(p`spshx6@sHH`(]] pz 93{Awypu(  -09@do;;X>_DCITA 92081-1X247 REV.2540 <850823.1339>/IMG2_5010/DBMS/DCITA.FTN ; N DCITA  !!u.DSBR .DMP.DDI.DNG.DCO.ENTR SPUT!  cII@ pVp`\pU`@Vh^88U(`((`Xp`[pTAY(P(PAAWAx`]@pRK R@p8T(, Q {W 000@j*DDX^Ĩ%DISPLAY_IMAGE_ER92081-1X256 REV.2540 881202.1653/IMG2_5010/UTILS/DPERR.PASD@@^CCX&Ĩ)IMG.ISSUEERROR92081-1X256 REV.2540 881202.1653/IMG2_5010/UTILS/DPERR.PASCIMG.ISSUEERROR}II T.ENTR IMG.APPNDBANDSIMG.NLSBLANKIMG.SINTTOSSTRIMG.WRITLONGSTR MDPERRNLREADREL PAS.BOUNDINTEGERPAS.NONCDSIص77`8P(oP(rP(uP(xP({P(~P(P(P(P(P(P(P(P(P(P(P(P(~P({P(xP(uP(rP(oP(l d!(b@788@9:(((((((((((((((((È((((ψ((((ۈ((((爈((((((((((( !(@@jk( (((lo88(((( (#(&()(,(/(2(5(8(;(>(A(D(GP(JP(MP(PP(SP(VP(YP(\P(_P(bP(e !(@@(h(k(n(q(t(w(z(}((88((P(P(P(P(P(P(P(P(P(@ !(@@è(((((((((((( ( ((((((("(%(((+(.(1(4(7j88(:(=(@(C(F(IP(LP(OP(RP(UP(XP([P(^@ #!()@@(a(d(g(j(m(p(s(v(y(|(((((((((((((((((p55((((((((Lj((((ӈ((((߈((P(興P(P(P(P(P(P(P(P(P(P(P(P(P(P(P(P(P|L55(P(Pň(P(PLj(P(PɈ(P(Pˈ(P(P͈(P(Pψ(P(Pш(P(( `p4(`Ԉp4(`p4(`p4(`p4(`؈p4(`p4(855`p4(`ۈp4(`p4(`p4(`p4(`߈p4(`p4(`p4(`p4(`㈈p4(`p4(`p4(`p4(`爈p4(`p4(`p4(`p4(`p4q55(`p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4(`:55p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4(` p4(` p4(` p4(` p4(` p4(`p4( 55`p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4(` p4uU55(`!p4(`"p4(`#p4(`$p4(`%p4(`&p4(`'p4(`(p4(`)p4(`*p4(`+p4(`,p4(`-p4(`.p4(`/p4(`0p4(`1p4(`2^55p4(`3p4(`4p4(`5p4(`6p4(`7p4(`8p4(`9p4(`:p4(`;p4(`p4(`?p4(`@p4(`Ap4(`Bp4(`Cp4(55`Dp4(`Ep4(`Fp4(`Gp4(`Hp4(`Ip4(`Jp4(`Kp4(`Lp4(`Mp4(`Np4(`Op4(`Pp4(`Qp4(`Rp4(`Sp4(`Tp4(`Up4zN55(`Vp4(`Wp4(`Xp4(`Yp4(`Zp4(`[p4(`\p4(`]p4(`^p4(`_p4(``p4(`ap4(`bp4(`cp4(`dp4(`ep4(`fp4(`g)55p4(`hp4(`ip4(`jp4(`kp4(`lp4(`mp4(`np4(`op4(`pp4(`qp4(`rp4(`sp4(`tp4(`up4(`vp4(`wp4(`xp4(C^55`yp4(`zp4(`{p4(`|p4(`}p4(`~p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4~55(`p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4(`55p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4(`p4(__h66`p4(`p4(`p4(`p4(A5Ap6AA689AA9(,&45AAp6,A61A7(3_ y3 PaAp8(W``  !$%&'()*+,-JKMNOPQSTUVXZ^_`hijopqr``      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_<K```abcdefghijklmnopqrstuvwxyz{|}~$$ 7Qs$@CbaDDXZ}ĨGETDBCON_FILE_NA92081-1X267 REV.2540 881202.1708/IMG2_5010/UTILS/GDBFN.PASD@;Z}DDXJp$ĨIMG.GETDBCONNAME92081-1X267 REV.2540 881202.1708/IMG2_5010/UTILS/GDBFN.PASD[ IMG.GETDBCONNAME ;.ENTR PAS.BLANKFILL PAS.NONCDS_ A p  r `  ""XA `#p (@/IMAGE2/+DBCON:::1:512" # @:X;;XZĨHASH92081-1X272 REV.2440 <850416.1404> /IMG2_5010/DBMS/HASH.MAC; |HASH .DAD.DIV.DLD.DST.ENTR uEE@pV`@PpW ((((A6AT8V(J`WAR`WR HR xX`XhU@O(9pX`TxTh`XS`QpY`TAA8Y(?W@ET`W@PpW(T5 @@4;;X8Ĩ%ICKSM 92081-1X273 REV.2440 <850416.1404>/IMG2_5010/DBMS/ICKSM.MAC ; >ICKSM .ENTR 00VAp(H 8(0@+jJ*;;XS Ĩ+ISNGL 92081-1X274 REV.2440 <850416.1421>/IMG2_5010/UTILS/ISNGL.MAC; @ISNGL *K.DLD.ENTR nb AA@`@簧@@X;Ĩ -PARSR 92081-1X282 REV.2540 881202.1708 /IMG2_5010/UTILS/PARSR.PAS@@{;AAXt UĨ .IMG.PARSER92081-1X282 REV.2540 881202.1708/IMG2_5010/UTILS/PARSR.PASAZIMG.PARSER$$v.ENTR .LBT.MBT.MPY.SBTCATDI PAS.NONCDS$Ж>>pp`(8pph6@Hp`PO((`Npp(%`PN( (#p(%p`(+`PN(5`ph6@H`H88( `p`>BB(NppA@Qh H88(Bpp`(pph6@Hp`(`P(h(k`S(`pppA@Qh HHM6` 6 @@`PN((p@AQh H `(`PR((`T(`p@Qh HHM6@H`H88(Z`((A@Qh H ``^^//(ppA@Qh H@p`((`@Mp`@Pp  ((ꈈ`M88(^  jjKKApp( jkM ,BD@%'C;;XGĨ6RDCMP 92081-1X287 REV.2440 <850416.1404>/IMG2_5010/DBMS/RDCMP.MAC ; 7RDCMP  Z.CBT.ENTR 11ЦAP((`׈P((RDB1@4S~;;X!ĨRMCHK 92081-1X293 REV.2440 <850416.1404>/IMG2_5010/DBMS/RMCHK.MAC ; =RMCHK n.ENTR DEXEC **,AA (( c*@ ;;X@2ĨRMSER 92081-1X294 REV.5010 <880919.1644>/IMG2_5010/DBMS/RMSER.MAC ; :RMSER .ENTR .MVWDBCMW DBMVW RD.TB XXR00AH` (+x0@.p11-(`1@.80((+`1@/p1A%1-`1@-X@ƪjDDXĨSCHEDULE_PROGRAM92081-1X296 REV.2540 881202.1824/IMG2_5010/DBMS/SCHED.PAS D@FDDXĨIMG.SCHEDPROG 92081-1X296 REV.2540 881202.1824 /IMG2_5010/DBMS/SCHED.PAS D MIMG.SCHEDPROG  @@ .DST.ENTR .MVWFMPRUNPROGRAM IMG.APPENDSTR IMG.SINTTOSSTR PAS.BLANKFILL PAS.NONCDSSTRDSC@nnGGApK[N PAL S`ppJ@JA@p*AS 15[9[S8J8("AANLpI`I(GpKn t>G`K ##AA`hA`pK( ,@[#  @>:\::X1J6ĨSIZE92081-1X297 REV.2440 <850416.1404> /IMG2_5010/DBMS/SIZE.MAC: SIZE 0.DIN.DLD.DST.ENTR .MPYYY?33AA4A8  H4x4 85'p34'`h3(/(/(/A`2Y@FFX%Ĩ55TAPE_IO_LIBRARY 92081-1X055 REV.5000 881202.1828 /IMG2_5010/UTILS/TAPE_IO.PASF@e%DDX\+Ĩ56BKP.POKEBUFFER92081-1X055 REV.5000 881202.1828/IMG2_5010/UTILS/TAPE_IO.PASDޅBKP.POKEBUFFER3~PAS.1 PAS.ENTRY1PAS.EXIT1 PAS.NONCDS))`*A@( `)@h(`)@h)D(% ;% App(A l* @ )DDXV(Ĩ56BKP.PEEKBUFFER92081-1X055 REV.5000 881202.1828/IMG2_5010/UTILS/TAPE_IO.PASD؁BKP.PEEKBUFFER3~PAS.1 PAS.ENTRY1PAS.EXIT1 PAS.NONCDS))`'A@( `&@(`&@)?(" ) AAp( i' @CCX3bĨ57BKP.GETINPUT92081-1X055 REV.5000 881202.1828/IMG2_5010/UTILS/TAPE_IO.PASC4;BKP.GETINPUT __ Q.CBT .LBT .MVWBKP.REPORTERROR IMG.READLONGSTR IMG.STRINGMGR IMG.WRITLONGSTR PAS.1 PAS.BLANKFILL PAS.ENTRY1 PAS.EXIT1 PAS.NONCDSUPSHIFT _>XIIpypxA w(w(ozwpvzzN`!P]("P^(RP_A(R(f )OZPNhW6`X6N(3(7(76Q(o >ORONhW6A`X6N(Q(GOKK99I&&dSzNTTpx(jhX6 Pa(X([px(ehX6H P`(a(eAdU(o(jiV(o`x(pyKo(G:s77<A p;`:hY S`_py(`yp[ p;`[; @azAB7]NY@ \)EEX΃Ĩ58BKP.POSTTAPEFILE92081-1X055 REV.5000 881202.1828/IMG2_5010/UTILS/TAPE_IO.PASEomBKP.POSTTAPEFILE NN f .DAD .DDE .DDI.DLD.DSTBKP.REPORTERROR FMPWRITEIMG.POSTFILEPAS.1 PAS.ENTRY1 PAS.EXIT1 PAS.NONCDSXLUEX N"/==pg`!P( P(PA(/(Ydf(Af(_(]`!(. @! pl%fl`f(,A+f(_ p!(]`!J(X!Aj`!ph `pi@!plBB=""AE{hljkA(G(KJ|(_h!D   } !!p!(]A\(_pgB_(t mc%%#nA `m`pg(`gpA `m`ma%  @FFXmVĨ5:BKP.USEFMPWRITE 92081-1X055 REV.5000 881202.1828 /IMG2_5010/UTILS/TAPE_IO.PASFb?BKP.USEFMPWRITE 55BKP.REPORTERROR BKP.WRITEEOFFMPWRITEPAS.1 PAS.ENTRY1PAS.EXIT1 PAS.NONCDS5hh_22p:`"^PR((`9(`!PQ( (p:(2`9 p;A><;>PU(%>PT(%()`S>(2(0>(0A/>(2p:h2(H <6##@A3?=p9`Rp:(A`:pO3?`O?#Q @nEEXĨ5;BKP.MOVETODCB 92081-1X055 REV.5000 881202.1828 /IMG2_5010/UTILS/TAPE_IO.PASEKBKP.MOVETODCB 6 55BKP.POKEBUFFERBKP.POSTTAPEFILEDBMVW PAS.1 PAS.ENTRY1PAS.EXIT1 PAS.NONCDS5?EEp`AɄA( ((pp`(@h@p`A@(a@p`߆A(F`@@Ljp`pAEŀEAA(S`@ለ@p`ɄpS`@p@A[(^((`@p`߆A({`@@Ljp`pAzŀ(`@@p`ۈAp[[33@`AɄ(((AÀ`AɄ(((Ap€(p[( ((X(AȈp`p(A`p`ܨ( $ @EEX`wĨ6BKP.IMITATEWRITE92081-1X055 REV.5000 881202.1828/IMG2_5010/UTILS/TAPE_IO.PASET^BKP.IMITATEWRITE HH },.DAD.DCO .DDE.DLD .DMP.DSTBKP.MOVETODCB BKP.POSTTAPEFILEPAS.1 PAS.ENTRY1 PAS.EXIT1 PAS.NONCDSH~~PIDDpV`!Pt(Pu((KA [U!((M p!(KhU Wh! Y! nAY WAApWJA! nAW(@(5 (@`!p!A:(=(M`v](MAE[U~D !(H(M p!(KpVEM(g [Q(("_A N^\pU`upV(A`Vpr N^`r^( Gt @7FFX?sĨ6BKP.DOTAPEWRITE 92081-1X055 REV.50((00 881202.1828 /IMG2_5010/UTILS/TAPE_IO.PASFc\BKP.DOTAPEWRITE VV u/BKP.ENDOFTAPE BKP.IMITATEWRITEBKP.POSTTAPEFILEBKP.REPORTERROR BKP.USEFMPWRITE BKP.WRITEEOFPAS.1 PAS.ENTRY1 PAS.EXIT1 PAS.NONCDSVBBpX`!Po( Pp(PqA(A(JYW[((P(N`"^Pq(('YW[((P!(&`r[(P(@,YW[(/(P1(@`! Ap!8(;(P=`r[(P(NjBFYW[(I(P(NAMl(PpXBP(eYT$$n]A Q\ZpW`qpX(A`Xpm Q\`m\a$ Co @|<DDXyĨ6BKP.GETNEXTVOL92081-1X055 REV.5000 881202.1828/IMG2_5010/UTILS/TAPE_IO.PASDBKP.GETNEXTVOL WW dBKP.GETINPUTBKP.REPORTERROR IMG.APNDLONGSTR IMG.NLSBLANKIMG.STRINGMGR MTAPE_IONLREADREL PAS.1 PAS.ENTRY1 PAS.EXIT1 PAS.NONCDSWKKp_` !p^`^P( P( P( (MAZp[A[((S(QA'Zp[A-[5 d<Z`p[B`A[FA`I(LKA(S(QP(Sp_S(W))UA T`p_(`_pA T`@a)  @£DDXp{Ĩ6BKP.USEFMPREAD92081-1X055 REV.5000 881202.1828/IMG2_5010/UTILS/TAPE_IO.PASDw_BKP.USEFMPREAD BB .DIVBKP.ENDOFTAPE FMPREAD IMG.OPENBIGDCBPAS.1 PAS.BLANKFILL PAS.ENTRY1 PAS.EXIT1 PAS.NONCDSBS>>pS`"^Px((`!PvA( ( (`y^(L^\m]`"^Px((6`!Pv( (6]($(6A+nroTp1dTq^(4(L]^Pz(=](=(?`y >^^(C(L] w]pS EL(f\P''v,`AM_`wpS(`SptA M_`t_@rwo 'Bv @8WlDDXpzĨ6BKP.DOTAPEREAD92081-1X055 REV.5000 881202.1828/IMG2_5010/UTILS/TAPE_IO.PASD`aBKP.DOTAPEREAD ZZ; .DAD.DIV.DLD.DST BKP.REPORTERROR DBGETREGS FMPPOSITION FMPREAD FMPSETPOSITION PAS.1 PAS.ENTRY1PAS.EXIT1 PAS.NONCDSXLUEX ZVCCpX` !Pw(Px(+(HA VA[Y V[YA  V opWPW((##UW`W xpW(H !_` !p]`yp^;p] q_`(=(A @r(N !kC AJ s !(Hp !p !pXPN(haR&&cbA Oa`xpX(`XpuAOa`ua@ & w @ ],FFXĨ6 BKP.IMITATEREAD 92081-1X055 REV.5000 881202.1828 /IMG2_5010/UTILS/TAPE_IO.PASF7BKP.IMITATEREAD 6 >>\BKP.DOTAPEREADBKP.PEEKBUFFERBKP.REPORTERROR DBMVW PAS.1 PAS.ENTRY1PAS.EXIT1 PAS.NONCDS>z??p`!P܈(P((`!( (( `A@!(A((!!(%((`(`!p!`A@!(85(8(pp€`(?@@`!p`A@({`!@p `߆A@!(e`@!p`@@pAdŀ(r`@!p`@A@prŀ`ˆA@pw(z((`pxx:: `߆A@!(`@!p`@@pAŀ(`@!p`@A@pŀ`!@p!pÄ(<!`(A(`!p!(px( ##A`݈p(`pA`ڀa#1 @m-DDXV,Ĩ6 BKP.READBUFFER92081-1X055 REV.5000 881202.1828/IMG2_5010/UTILS/TAPE_IO.PASD{BKP.READBUFFERw `` ?BKP.CLSETAPEREADBKP.ENDOFTAPE BKP.GETNEXTVOLBKP.IMITATEREAD BKP.OPENTAPEREADBKP.REPORTERROR BKP.USEFMPREAD PAS.1 PAS.ENTRY1 PAS.EXIT1 PAS.NONCDS`C@@pp`({` !P(P(P(K(W(P((}([` "^("` "^PA("(0'(/P(.(}(.(/(JA5(DP(<(}(DAAww@==(D(}AF(J`([P(VP(V(}([Z(}P(_(xa(d(}Af(jA(}(ol(o(}` "^P(s(up(zp(pw}( A ~`p(`pA ~`a n @y9FFX4fĨ6 BKP.WRITEBUFFER 92081-1X055 REV.5000 881202.1828 /IMG2_5010/UTILS/TAPE_IO.PASFhMBKP.WRITEBUFFER PP  .DAD.DLD.DSTBKP.CLSETAPEWRITBKP.DOTAPEWRITE BKP.GETNEXTVOLBKP.OPENTAPEWRITPAS.1 PAS.ENTRY1 PAS.EXIT1 PAS.NONCDSPzz@@pIpGA JHL(/LPe((@(.A((@((@(."Z ] _"Z%(((@`!Pc(,(.pG(1pG`G(hH JA "\ _J"\pIz@(V JD((NA AMKpH`dpI(A`Ipa AM`aMC( 6c @;;Xǡ ĩ)'TMDAY 92081-1X305 REV.2440 <860206.0932>/IMG2_5010/DBMS/TMDAY.MAC ; 4TMDAY :^.ENTR EXEC 55mAA `h08`h08` 5@ଠ@@X(.ĩ)(IMG.STARTTIME 92081-1X305 REV.2440 <860206.0932> /IMG2_5010/DBMS/TMDAY.MAC @kIMG.STARTTIME W.DAD.DMP.DST.MPYEXEC??@''x )`,!@+A"@'h*'#'h)'% <<d ?@g܆??Xɇ7ĩ)(IMG.ENDTIME 92081-1X305 REV.2440 <860206.0932> /IMG2_5010/DBMS/TMDAY.MAC ? IMG.ENDTIME f.DAD.DMP.DSB.DST.ENTR .MPYEXEC II00AA'2A`5(@4)@A0h3AA0*A0h2AA0.AA, <<dC` I@z??Xֻĩ)(IMG.MATRIXADD 92081-1X305 REV.2440 <860206.0932>/IMG2_5010/DBMS/TMDAY.MAC ?VIMG.MATRIXADD x.DAD.DLD.DST.ENTR 22kZAp8(8888( 2@ #>CCX,Ĩ7UPSHIFTMAIN 92081-1X308 REV.2540 881202.1854 /IMG2_5010/UTILS/USHFT.PASC@,,AAXGĨ7 UPSHIFT 92081-1X308 REV.2540 881202.1854 /IMG2_5010/UTILS/USHFT.PASA (>UPSHIFT  n.ENTR .LBT.SBTPAS.NONCDSii1~66`9((6`9(6p:p8h;6@8Hp7`7A@D(,`EA@7(,h<6@8HH`7@F(3h<6@8HH`7888:( i 76> 8C?A;=p9( Daz @4LDDX%Ĩ7 IMG.STRINGLENGTH92081-1X308 REV.2540 881202.1854/IMG2_5010/UTILS/USHFT.PASDuIMG.STRINGLENGTH .ENTR .LBTPAS.NONCDS22`p`((h6@HP$((@p(`p2 s` 7Ap( $ @CCXOzĨ7 IMG.FINDSTRING92081-1X308 REV.2540 881202.1854/IMG2_5010/UTILS/USHFT.PASCynIMG.FINDSTRING .ENTR .LBTIMG.STRINGLENGTHPAS.NONCDSDDApfjepc ldpb`cA@b((]`c((]`b(pf(]`c(]pgpahl6phhj6@aHHPh(4(Zp_`b@x(Tph`xp`hl6@`H<<mDpihj6`a@`@y@yHHPi(Qp_8`8h(>`_(Z`apf(]8a8g('< s]`fn RoAjkpempd( <x @&DDX|W4Ĩ7 IMG.STRINGMGR 92081-1X308 REV.2540 881202.1854 /IMG2_5010/UTILS/USHFT.PASDU IMG.STRINGMGR **.ENTR .LBT.SBTIMG.FINDSTRINGIMG.STRINGLENGTHPAS.NONCDS*@@`((`((`(`A@(( App`P,(,P-(4P.(/IMG2_5010/DBMS/GETBITS.MAC ? IMG.GETBITS .ENTR //UAhH` ( ( hHH  @(/@}=GGXRDREC 92081-1X554 REV.2540 <830425.1816>, READ RECORD ONTO STACK/IMG2_5010/UTILS/RDREC.FTNG y5RDREC  .. \.ENTR .CPMREIOXLUEX .IDLP ADDSK ABREG LBYTE SBYTE .  <-.BBA.`z@.pv@/pu@0pt@1ps1p%p&3`p$`1h$ppxqAX}p0q(l]#22(a(c`34(j2(j(`n0wP(q@pDD(`$2(~(~2pp~0p`p-p,p(`,pp0pp+`P+((`,pp0pp+A+pp+0p(À`(@+@yp(`,p,(`(UU,,p(`,p,`,pp0pp+`P+((((p(`@(p+`((p+p)p&%(lU----Commands---mm*</IMG2_5010/UTILS/STRAP.MAC; ]#STRAP .ENTR IFTTY LOGLU XLUEX    `II!)ppp !"A2(x`P(`p> (AE (`(K(A`pQ (W^_Ap_ (xpրH (`phDD((m`p (piK&s1I &s0d0g1TSetting terminal straps to d g I T`؈p (`p ((Ɉ((pɈ((i((p(`(VV**`!` (`(`(`"#`ppp  `P885@!׈רV  @@粧<<XADDSK 92081-1X555 REV.2540 <850426.1114> /IMG2_5010/UTILS/ADDSK.FTN< SADDSK  .ENTR .CPMBLT CBYTE   DD`@p@p@p(`@Hp`p&`@Hpx1`@p<`@p((~~ 4GBB`@(M(`@pZ(@p`(c(`@h p`@pv`@hH@p(_`p(B(~(Q@,<<X @Ĩ;STSUB 92081-1X556 REV.2440 <850416.1423> /IMG2_5010/UTILS/STSUB.MAC<56BLT CBYTE LBYTE )SBYTE Z.CBT.ENTR .LBT.MVW.SBT--?A`@?h AH?((- Ah2HH?m7* A&h&2'H?()7 A3`3h4A56@gFFX/rĨ:9DBNLS_LIBRARY_RO92081-1X101 REV.2540 881202.1855/IMG2_5010/UTILS/DBNLS_LIB.PASF@/rEEX/Ĩ:9IMG.NLSTERM 92081-1X101 REV.2540 881202.1855 /IMG2_5010/UTILS/DBNLS_LIB.PASE'IMG.NLSTERM n.ENTR .LBT.SBTPAS.NONCDSDD##@$p$`$A(h%6@$HHP-(h%6@$H@(h%6`$@.@HD #' 7(A%&p$( - @A`?DDX(Ĩ::IMG.NLSBLANK92081-1X101 REV.2540 881202.1855/IMG2_5010/UTILS/DBNLS_LIB.PASD IMG.NLSBLANK.ENTR .SBTPAS.NONCDS33 `hAH(  (xph6@HH`'8(8( 3   App( ' @[0??XqDBGETREGS 92081-1X102 REV.2540 <860206.1235>/IMG2_5010/UTILS/DBGETREGS.FTN? AQFMPREGS ZDBGETREGS .ENTR  @-LOCAL.REL::IMAGE2:5:4:108 644 0 0 2000 5300466272 33443 LOCAL.REL::IMAGE2_6000:5:4:108 $ tlLOCAL REL +l+l+l2FST ==X=,LOCAL 92081-12002 REV.2440 <840912.1347>/IMG2/DBMS/LOCHD.MAC:::3:3:34 =@.=>>XIr,DBIDS 92081-1X331 REV.2440 <840912.1345>/IMG2/DBMS/DBIDL.MAC:::4:12:37 > .DBIDS x.ENTR DBFRT 44A(hA((`( 4@x>==XIG,RDBMS 92081-1X332 REV.2440 <840912.1348>/IMG2/DBMS/RDBMS.MAC:::3:8:35 =llydRBBEG RBCLS RBCTL RBDEL RBEND RBFND RBGET RBINF RBLCK RBMEM RBOPN RBPUT RBUND RBUNL RBUPD l.ENTR A` g@3BRAM LANGUAGE WITHOUT THE PRIOR WRITTEN!* CONSENT OF HEWLETT-PACKARD COMPANY. !****************************************************RDBA.REL::IMAGE2:5:103:128 644 0 0 63400 5300466274 34403 RDBA.REL::IMAGE2_6000:5:103:128 $g xgRDBA REL +l+l+lg3l8FST <<Xĩ2*RDBA92081-12003 REV.5010 <880829.1658> /IMG2_5010/REMOTE/DBHD2.MAC <@FFXKĩ REMOTE_DBMS 92081-1X341 REV.5010 881203.0050 /IMG2_5010/REMOTE/RDBA_SUBS.PAS F@,KGGXaPĩ RMT.MAKEBASELIST92081-1X341 REV.5010 881203.0050/IMG2_5010/REMOTE/RDBA_SUBS.PAS GvARMT.MAKEBASELIST q.ENTR .LBTDBBUF PAS.NONCDSrr55p;>p7HhG6PL( `M@(5Ap:p8`:p<`Np=p9`<@KH9@((`8p8`8@O@?h9898=(`8(1`M@(5`8?p;r sv5`;A BA>`Jp;(7J(@g@G.eFFXErĩ RMT.FINDSET 92081-1X341 REV.5010 881203.0050 /IMG2_5010/REMOTE/RDBA_SUBS.PAS F`RMT.FINDSET x<.ENTR .MPYDBCMW DBPTR PAS.NONCDSn??pW`pA[([((pU(pU\@n(OpYpV@Vm\HoAHxZ+\Z^^pX`UPi(?Pj(3(L`X@l[(9(>`X@l](S(L--Ƶ?ADX[f(K`X@l](S(L8V8Y(pW`q_- sS`W` aA[`kpW(((i  2d@6EEX rĩ RMT.FINDITEM92081-1X341 REV.5010 881203.0050/IMG2_5010/REMOTE/RDBA_SUBS.PAS E6`RMT.FINDITEM x<.ENTR .MPYDBCMW DBPTR PAS.NONCDSn??pW`qA[([((pU(pU\@n(OpYpV@Vm\HoAHxZ+\Z^^pX`UPi(?Pj(3(L`X@l[(9(>`X@l](S(L--ƴ?ADX[f(K`X@l](S(L8V8Y(pW`p_- sS`W` aA[`kpW(i  e@` GGXEĩ RMT.PRSEITEMLIST92081-1X341 REV.5010 881203.0050/IMG2_5010/REMOTE/RDBA_SUBS.PAS Gz+RMT.PRSEITEMLIST 66 ".ENTR .LBT.MPY.SBTDBBUF DBPTR PAS.BLANKFILL PAS.NONCDSRMT.FINDITEM6@@App`p#h&6P?(&(!`#@< `#@< `7()p(h&6PB(,h&6HP=(,(NA%9'H:Hx$:'$`#@< `#)@??@<&`7(`@8)p(&()`@A((((``C*(((p$p`@D@&Ap u '*(x(`#@>h`@8))88$(h`#@<( `#@<((@7((pppA 212 3(`(h&6@Hp`p`P;(`PA(€`;xAA(`P>(„( '*((((`#@<(H7HD@h`@8))A 212 3p`P>(p(`p`9A@(`C*(h46@33HH`(`#@<( `#@<((@7(p3 v"`+ ), A%`7p(  7 '*,02;@e@ԷFFX[;ĩ RMT.TEXTSTR 92081-1X341 REV.5010 881203.0050 /IMG2_5010/REMOTE/RDBA_SUBS.PAS F/RMT.TEXTSTR .DIV.ENTR PAS.NONCDSJJG''`9A,(,A@:(p*`8.(',(#, 7-(%,-p*J sE'`*/ 0A+`7p*( 7 @! HHXs\ĩ RMT.SENDRECEIVE 92081-1X341 REV.5010 881203.0050 /IMG2_5010/REMOTE/RDBA_SUBS.PAS Hn%RMT.SENDRECEIVE LL 8 .DAD.DLD.DST .ENTR .MPY .MVWDBBUF DBMVW IMG.ENDTIME IMG.STARTTIME PAS.NONCDSRBMAS RMT.GETDSPTRS L::ApA  p ` p`@Yp`@Xp`(p (p `P7(;P8(>P9(AP;(DP<(GP>(JP?(MP@(PPA(SPB(VPC(YPD(\PE(_PF(bPG(e~:55(h`Sp(k`Kp(k`Wp(k`Pp(k`Tp(k`Lp(k`Mp(k`Jp(k`Qp(k`Up(k`Ip(k`Op(k`Vp(k`Rp(k`Np(k`Z$(` p`p;<o::`=`PC(u(~`@9`@Dh(`@9hH:`@@h`@Ah`@B@` 3`@Eh>`p`@Gp`@Ep `P7(P<v@@(PB(PC(PE((`@F(`@Fh[(`@FhH9` ( ρ!$(҈(` (AA`Ah HYH@p`@=hH=p::h ` p`A@@h$ 4`PC((`@H$((p: v`% %%&A p p"p#p`8p( %66+7%% $%&'()*+,-./012<Q 6@b䁤FFX]ĩ "RMT.TRANSCHECK92081-1X341 REV.5010 881203.0050/IMG2_5010/REMOTE/RDBA_SUBS.PAS F|RMT.TRANSCHECKF .DCO.DIV.DLD.DST.ENTR PAS.NONCDS@@p((`ʆA(`( p(pp`@@p`()(1`ʆA@(4`(`@H@(?`(`@==@H@p`@Ȁ A p`@P([`( (h`(g`Έ((g(`(o`͈((`P(s(`@(|`((@UU}++(AA((`(`@  hHȈH`@@88(@pU t`  App`p( (g@FFXX1Iĩ #RMT.BASEFORMAT92081-1X341 REV.5010 881203.0050/IMG2_5010/REMOTE/RDBA_SUBS.PAS F~;RMT.BASEFORMAT0G.DLD.DST.ENTR PAS.NONCDSjjU00:9p4`Gp6p1`4@FH1@(-`4@FH1@p5`5@E/C(-`5@D8($(-:::@H@:h18186(j .0; [m<AA77A2((C(@#CCX? ĩ %RBBEG 92081-1X341 REV.5010 881203.0050 /IMG2_5010/REMOTE/RDBA_SUBS.PAS C 1 RBBEG  tt .DAD.DIN.DIV.DLD.DSB.DST.ENTR .MVW IMG.ENDTIME IMG.GETPOINTERS IMG.STARTTIME PAS.NONCDSRMT.BASEFORMAT RMT.MAKEBASELISTRMT.SENDRECEIVE RMT.TEXTSTR RMT.TRANSCHECKtCCph`A P( P(()p(,`A(`pڄ(( "(&(((`pڈ(,`(A 4ށ(7(`A(> > ߇.DLD .ENTR DBGBF DBRBF DLGOF IMG.GETPOINTERS PAS.NONCDSRMT.FINDSET RMT.SENDRECEIVE >JFFAɀ( ( ((`(`P(`P(`(`͈P(#(0*ǀ(-((A;߀(>(`@@ #F@@p`p`逈pp`р@H@p`ĆA@(c`@H@p88(M`@p`ĆA@(Avހ׀(z(`@ `((Aww::À((`@䈈h`@ApԀ((`(`pAр׀((`p`@㈈hHHꈈ``҈@(AԈ`w [ <A p̀( s@ⴢCCXEĩ +RBCTL 92081-1X341 REV.5010 881203.0050 /IMG2_5010/REMOTE/RDBA_SUBS.PAS C ?RBCTL 7 WW .DAD .DIN.DLD .DSB.DST.ENTR DBFWW DBGBF DBRBF IMG.ENDTIME IMG.GETPOINTERS IMG.STARTTIME PAS.NONCDSRMT.SENDRECEIVE WBBA( (`A( A`@ԀpLjP(!P(!P("P(F(\(^`(E`pA.(4`(0`@@ApC̀tBBBp(^`([`ֈApP€(V`(p݈(^`Aiŀπ(P(o(`pAvȀ(z(p`@@(`TT00(`@ׄp AA `@ `A@pA`@Ոp`@ `@pAAT @ kA( *=s @6CCXFA{ĩ /RBDEL 92081-1X341 REV.5010 881203.0050 /IMG2_5010/REMOTE/RDBA_SUBS.PAS C 0qRBDEL  PP X .DAD .DIN.DLD .DSB.DST .ENTR IMG.ENDTIME IMG.GETPOINTERS IMG.STARTTIME PAS.NONCDSRMT.FINDSET RMT.SENDRECEIVE P&NNAmab((c`p( (*``A(AAdncf^p((*A'mof\u\uvp(*(*``([``@zpiADi i8dAj`i@w@A jAj`i@wpljl`i@ypl`i@wN @A lAj`i@xpljl [q h7rA m( w F @u"CCX?ĩ 1RBEND 92081-1X341 REV.5010 881203.0050 /IMG2_5010/REMOTE/RDBA_SUBS.PAS C :RBEND  tt .DAD.DIN.DIV.DLD.DSB.DST.ENTR .MVW IMG.ENDTIME IMG.GETPOINTERS IMG.STARTTIME PAS.NONCDSRMT.BASEFORMAT RMT.MAKEBASELISTRMT.SENDRECEIVE RMT.TEXTSTR RMT.TRANSCHECKtLECCph`AP( P(()p(,` A(`pτ(( "ۀ(&(((`pψ(,`(A 4Ҁ(7(`A(> >M!!@`@AA `@p`@p`@@A A`@p> n hlA ( t s@s}=CCXQĩ 7RBGET 92081-1X341 REV.5010 881203.0050 /IMG2_5010/REMOTE/RDBA_SUBS.PAS C 3RBGET Y __[ .DAD .DIN.DLD .DSB.DST.ENTR DBMVW IMG.ENDTIME IMG.GETPOINTERS IMG.STARTTIME PAS.NONCDSRMT.FINDSET RMT.PRSEITEMLISTRMT.SENDRECEIVE _~~[HHA( (\`A( AA((\A$('(\P(-P(;(N`@A@p 7`@p(N`@@p`@p H~xx!HEE`@@Ap(NY(\(\`(`A@pD Aj@`@AA `@p`@p`@@A A`@px  hA( 8 @rCCXFĩ :RBINF 92081-1X341 REV.5010 881203.0050 /IMG2_5010/REMOTE/RDBA_SUBS.PAS C :RBINF h jj%z .DAD.DIN.DLD.DSB.DST.ENTR .MPY DBFWW IMG.ENDTIME IMG.GETPOINTERS IMG.MATRIXADD IMG.STARTTIME PAS.NONCDSRMT.FINDITEMRMT.FINDSET RMT.SENDRECEIVE jCCA( (A`A( AP((P((P(3P(3P(3P((P(3P(3P(3P(3(>A/~(2(A(>:(=(A(>P(^P(agMC66P(dP(gP(^P(jP(mP(mP(pP(sP(vP(yP(|P(|P((p|(`p|(`p|(`p|(`p|(`p|(`p|(`p|(`p|(ޚyAAp|(`p|(`p|(`(AP((`p}(p}}|((AP(P((A`pA `@p `@p A`@pEEA `@p `@p A`@p `pAp`@p`p`@@A`@h@x@@`@p`@p`A@@@EE`A@pA`@Ap`@@@AA `@p88(`pp`p`@p 588()P(<(A AP(HddD77P(H(J``({`@pAD XA`@@A A`@p`@p@`@AA`@pd { nA( 33## 13defgh|}-.!3@H7fCCXN1ĩ RBLCK 92081-1X341 REV.5010 881203.0050 /IMG2_5010/REMOTE/RDBA_SUBS.PAS C .RBLCK  aa6& .DAD .DIN.DIV.DLD .DRCT .DSB.DST.ENTR .LBT.MPY IMG.ENDTIME IMG.GETPOINTERS IMG.STARTTIME PAS.NONCDSRMT.FINDSET RMT.SENDRECEIVE a7AAAp ( (`(AA P((P((P(+P (+P!(FP"(FP#([P$([(p(`0p p`@HH88 (/@ ABB(C(pA(%p`(O(W`/A@(Z`,((`(A(m(i`*(ŀp(A ppp`(`.A@(h6@AAHP)(h6@HP'((p(`p(t`(`*(` p(`+(`@#P$(`@#P(A((((YY_22p`(`@-p A   A ` @ ` @p AA ` @&p ` @ ` A@ p A Y u` lA(  2;ds^ @3sCCXQzĩ RBMEM 92081-1X341 REV.5010 881203.0050 /IMG2_5010/REMOTE/RDBA_SUBS.PAS C 1RBMEM 3 pp:p .DAD .DIN.DLD.DSB.DST.ENTR .MVW IMG.ENDTIME IMG.GETPOINTERS IMG.STARTTIME PAS.NONCDSRMT.BASEFORMATRMT.MAKEBASELISTRMT.SENDRECEIVE RMT.TEXTSTR RMT.TRANSCHECKpFCCph`AʈP( P(()p(,`ۆA(`p(("(&(q((`p(,`(qA 4(7(q`A(>  io@`n@|AA oo`n@|pqo''Nq`n@~pq@`n@|AA qo`n@}pqoq' av hPwA r( i|  @դdCCXPOĩ RBUPD 92081-1X341 REV.5010 881203.0050 /IMG2_5010/REMOTE/RDBA_SUBS.PAS C =RBUPD s __[ .DAD .DIN.DLD .DSB.DST.ENTR DBMVW IMG.ENDTIME IMG.GETPOINTERS IMG.STARTTIME PAS.NONCDSRMT.FINDSET RMT.PRSEITEMLISTRMT.SENDRECEIVE _yOOA{|}z( (B`zA( AA~}x((BA$}wv('(B`w@@|pA 1v`w@vpuA?|ut(B(B`z(s`z@pAD PAAeO$$~`@ `A@pA`@p`@ `@pAAA s hA( &@REMOT.REL::IMAGE2:5:43:128 644 0 0 25400 5300466275 34637 REMOT.REL::IMAGE2_6000:5:43:128 $+ +REMOT REL +l+l+l+TɢFST <<Xĩ!:REMOT 92081-12004 REV.5010 <881103.1727>/IMG2_5010/REMOTE/DBHD3.MAC <@GGXĩ(REMOTE_ONLY 92081-1X371 REV.2540 881203.0034 /IMG2_5010/REMOTE/REMOTE_ONLY.PAS G@EDDX&ĩ(DBBEG 92081-1X371 REV.2540 881203.0034 /IMG2_5010/REMOTE/REMOTE_ONLY.PAS D 1 DBBEG  .ENTR PAS.NONCDSRBBEG $A    e^A( @xDDX-ĩ(DBCLS 92081-1X371 REV.2540 881203.0034 /IMG2_5010/REMOTE/REMOTE_ONLY.PAS D 7 DBCLS  .ENTR PAS.NONCDSRBCLS QA   e[ A( @4SdDDX8ĩ( DBCTL 92081-1X371 REV.2540 881203.0034 /IMG2_5010/REMOTE/REMOTE_ONLY.PAS D ? DBCTL  .ENTR PAS.NONCDSRBCTL QA   e[ A( @>DDX+ĩ("DBDEL 92081-1X371 REV.2540 881203.0034 /IMG2_5010/REMOTE/REMOTE_ONLY.PAS D 0 DBDEL  .ENTR PAS.NONCDSRBDEL QA   e[ A( @"ATDDX8ĩ($DBEND 92081-1X371 REV.2540 881203.0034 /IMG2_5010/REMOTE/REMOTE_ONLY.PAS D : DBEND  .ENTR PAS.NONCDSRBEND $A    e^A( @ܭDDX<ĩ(&DBFND 92081-1X371 REV.2540 881203.0034 /IMG2_5010/REMOTE/REMOTE_ONLY.PAS D ;DBFND  .ENTR PAS.NONCDSRBFND S:A    eaA ( @1DDX7ĩ((DBGET 92081-1X371 REV.2540 881203.0034 /IMG2_5010/REMOTE/REMOTE_ONLY.PAS D 3DBGET  !.ENTR PAS.NONCDSRBGET R A     edA ( @DDX>ĩ(*DBINF 92081-1X371 REV.2540 881203.0034 /IMG2_5010/REMOTE/REMOTE_ONLY.PAS D : DBINF  .ENTR PAS.NONCDSRBINF $A    e^A( @⿢DDX8ĩ(,DBLCK 92081-1X371 REV.2540 881203.0034 /IMG2_5010/REMOTE/REMOTE_ONLY.PAS D .DBLCK  .ENTR PAS.NONCDSRBLCK ™A  p  r`  eaA ( @2IQ DDX9ĩ(.DBMEM 92081-1X371 REV.2540 881203.0034 /IMG2_5010/REMOTE/REMOTE_ONLY.PAS D 1 DBMEM   .ENTR PAS.NONCDSRBMEM $A    e^A( @DDXDĩ(0DBOPN 92081-1X371 REV.2540 881203.0034 /IMG2_5010/REMOTE/REMOTE_ONLY.PAS D ; DBOPN  #.ENTR PAS.NONCDSRBOPN QA   e[ A( @IhDDXOĩ(2DBPUT 92081-1X371 REV.2540 881203.0034 /IMG2_5010/REMOTE/REMOTE_ONLY.PAS D BDBPUT  *.ENTR PAS.NONCDSRBPUT S:A    eaA ( @aDDXHĩ(4DBUND 92081-1X371 REV.2540 881203.0034 /IMG2_5010/REMOTE/REMOTE_ONLY.PAS D : DBUND  .ENTR PAS.NONCDSRBUND $A    e^A( @ݬDDXHĩ(6DBUNL 92081-1X371 REV.2540 881203.0034 /IMG2_5010/REMOTE/REMOTE_ONLY.PAS D 9 DBUNL  '.ENTR PAS.NONCDSRBUNL QA   e[ A( @UtDDXPĩ(8DBUPD 92081-1X371 REV.2540 881203.0034 /IMG2_5010/REMOTE/REMOTE_ONLY.PAS D =DBUPD  .ENTR PAS.NONCDSRBUPD S:A    eaA ( @@^;;Xĩ) DBFWW 92081-1X213 REV.2440 <850416.1403>/IMG2_5010/DBMS/DBFWW.MAC ; A((DBFWW .ENTR ((Ap`8((@d$;;Xĩ)DBGRT 92081-1X217 REV.2440 <850416.1403>/IMG2_5010/DBMS/DBGRT.MAC ; <DBGRT l;.ENTR AIRUN DBBPT AH`Hx@;;X ĩ)DBPTR 92081-1X236 REV.2440 <850416.1403>/IMG2_5010/DBMS/DBPTR.MAC ; >DBPTR .ENTR m A@@ti;;X;ĩ)DBFRT 92081-1X212 REV.2440 <850416.1403>/IMG2_5010/DBMS/DBFRT.MAC ; =DBFRT F.ENTR AIRUN BTCNT DBBPT hhJ88x8h x9( `p:9(`@:(5898:(`7(5h8 (5 (5H (5@8H@ (5x`8h@@@X0ĩ)IMG.GETPOINTERS 92081-1X212 REV.2440 <850416.1403>/IMG2_5010/DBMS/DBFRT.MAC @BIMG.GETPOINTERS  I.ENTR .SBUF AIRUN DBBFDBBPT DBSBF XX00HpHp`()()@-()H@()p@@p`.g X@k+;;Xxĩ)DBMVW 92081-1X227 REV.2440 <850416.1403>/IMG2_5010/DBMS/DBMVW.MAC ; @DBMVW 4g.ENTR .MVW ApA`h@C a;;X$ĩ)DBCMW 92081-1X202 REV.5010 <880829.1653>/IMG2_5010/DBMS/DBCMW.MAC ;DBCBT DBCMW .CBT.CMW.ENTR >><_$$A`hA(`h (">@;;Xrĩ)DBGBF 92081-1X215 REV.2440 <850416.1403>/IMG2_5010/DBMS/DBGBF.MAC ; -DBGBF l$.ENTR DBBPT GETBF ++N`Ap`+@aQ;;Xrĩ)DBRBF 92081-1X237 REV.2440 <850416.1403>/IMG2_5010/DBMS/DBRBF.MAC ; +DBRBF T.ENTR DBBPT DBSBF RETBF ##8H@pA (`#@b";;Xĩ)#DBTRM 92081-1X243 REV.2440 <850416.1404>/IMG2_5010/DBMS/DBTRM.MAC ; <DBTRM (.ENTR DBBPT TRIM'!A@p @M ;;Xǡ ĩ)'TMDAY 92081-1X305 REV.2440 <860206.0932>/IMG2_5010/DBMS/TMDAY.MAC ; 4TMDAY :^.ENTR EXEC 55mAA `h08`h08` 5@ଠ@@X(.ĩ)(IMG.STARTTIME 92081-1X305 REV.2440 <860206.0932> /IMG2_5010/DBMS/TMDAY.MAC @kIMG.STARTTIME W.DAD.DMP.DST.MPYEXEC??@''x )`,!@+A"@'h*'#'h)'% <<d ?@g܆??Xɇ7ĩ)(IMG.ENDTIME 92081-1X305 REV.2440 <860206.0932> /IMG2_5010/DBMS/TMDAY.MAC ? IMG.ENDTIME f.DAD.DMP.DSB.DST.ENTR .MPYEXEC II00AA'2A`5(@4)@A0h3AA0*A0h2AA0.AA, <<dC` I@z??Xֻĩ)(IMG.MATRIXADD 92081-1X305 REV.2440 <860206.0932>/IMG2_5010/DBMS/TMDAY.MAC ?VIMG.MATRIXADD x.DAD.DLD.DST.ENTR 22kZAp8(8888( 2@ #>;;Xzĩ)-DBBUF 92081-1X195 REV.2440 <850416.1403>/IMG2_5010/DBMS/DBBUF.MAC ;݌V.SBUF B.STAT AAIRUN BTCNT CDBST CILAD WCILST CKEYS  COMBF DBBFDBBPT DBBUF DBCBF DBMMT DBSBF FNCLN MXMSG  MYCLS %%W MYNOD  OPNCT PNAMPRCID  SQCTR %AVLMENDMUNM2UNMEM -x`ۀ, AW@&;;X_'eĨ6DRMNT 92081-1X257 REV.5000 <870209.1444>/IMG2_5010/UTILS/DRMNT.MAC; GDRMNT B9.ENTR .XLAIDGET IMG.OPSYFzFF`p (A((TpdA(8@`d@^_(V`d@[c(V`d@Z@(V@`d@\b(V(T@`d@]`(V`d@[c(V88GF@`d@Z(V`d@\@b(V(T(W x"8@dh==XdĨ6IMG.OPSY92081-1X257 REV.5000 <870209.1444> /IMG2_5010/UTILS/DRMNT.MAC= IMG.OPSY %$OPSY .ENTR .XLA::AJp@(@(@(@( `:@mCNO_DS.REL::IMAGE2:5:3:61 644 0 0 1400 5300466277 33404 NO_DS.REL::IMAGE2_6000:5:3:61 $  =NO_DS REL +l+l+l1 FST ==XZ4NO_DS 92081-12005 REV.2440 <840912.1345>/IMG2/DBMS/DBHD4.MAC:::3:3:34 =@<Z==X0& 4STUB92081-1X391 REV.2440 <840912.1349> /IMG2/DBMS/STUB.MAC:::3:4:34 =d#CNOD #NODE DEXEC RMCLN .ENTR  DS01@t4==X-4 RD.TB 92081-1X392 REV.2440 <850222.1442>/IMG2/DBMS/RDFAK.MAC:::3:4:34 = =RD.TB  @l, value for the conversion call c  call gasi1(stopos,end,string,i,exp,ierr)c "c If the conversion resulted in an error, then report a syntDSDB.LIB::IMAGE2:5:9:126 644 0 0 4400 5300466301 33115 DSDB.LIB::IMAGE2_6000:5:9:126 $  ~DSDB LIB +l+l+l  FST  99X"v /]$DSDB 92081-12006 REV.2540 <851212.0946>REMOTE/DBHD5.MAC::IMG29@"v99X`- /]RBMAS 92081-1X358 REV.2540 <851212.0939>REMOTE/RBMAS.MAC::IMG29 -RBMAS ^#MAST #RQB.DST.ENTR HH''A@h X*A@p((+,(`h (p'8`'(H J*$  @U>>X  /]RMT.GETDSPTRS 92081-1X358 REV.2440 <851212.0939> REMOTE/RBMAS.MAC::IMG2>QRMT.GETDSPTRS  $W#RQB.ENTR j ` @Q99Xa) /]RDEXT 92081-1X402 REV.2440 <850416.1432>REMOTE/RDEXT.MAC::IMG29 HRDEXT %x#NODE #RPB#SLAV .ENTR .MVWLL{)) AhH ` (`(0`hA%8L@MlM99XW & /"]RMCLN 92081-1X403 REV.2440 <850416.1432>REMOTE/RMCLN.MAC::IMG29 CRMCLN #MAST #NODE #RQB.ENTR .MVWGG&&AJ`$p`p p h`A#p%""" "` G@199Xf /]DSEXT 92081-1X359 REV.2440 <850416.1431>REMOTE/DSEXT.MAC::IMG29 PDSEXT #MAST   @3 Q"""~~DSEXT pRBMAS IRDEXT RMCLN >RMT.GETDSPTRS ~((BASI.PC_BUF BASI.PC_CURRENT {88,BASI.PC_NEXT BASI.PST_BASE BASI.P_TMP_BASE BASI.P_TMP_PTR BASI.TEMP_LISTBASI.TOP_OP 8~~DD(2DJ xf$mpefl(Pj(()`fhDBBLD.LIB::IMAGE2:5:17:127 644 0 0 10400 5300466302 33442 DBBLD.LIB::IMAGE2_6000:5:17:127 $ DBBLD LIB +l+l+l:FST ;;X,}DBBLH 92081-12007 REV.5000 <870317.1052>/IMG2_5*0/UTILS/DBBLH.FTN ; A CONST 7DBBLH  kMp@99Xtq[}SETD92081-1X421 REV.2540 <850416.1423>/IMG2_5*0/UTILS/SETD.FTN9 ACONST  SETD ""x.ENTR ERROT JSCOM UPSHIFT SMOVE CRDIM "$SET: $END~~ FFA p|p8|`|(  "1*VZV'Z/VZV|(5 (=VYV|(C (`X (G(I( (`(~ORWp(V@}=;;X }ERROT 92081-1X422 REV.5000 <870317.1046>/IMG2_5*0/UTILS/ERROT.FTN ;BL BDNLS CONST  |2ERROT  &&.ENTR .CPMOUTLN MERROTNLREADREL CITASMOVE &  1@@A11p{1(=11A1(B(t`1(t`TP(t`*pp`p0(U(U`p0`0p`@0@pd*h(t(t`@p`HHq@p(Lx1`p`p  p   `p2HvPd@ڦf;;X_}KEYWD 92081-1X423 REV.2540 <850416.1421>/IMG2_5*0/UTILS/KEYWD.FTN ; A CONST MKEYWD  ((.ENTR .CPMSGETSPUTHALTCRDIM UPSHIFT SFILL ( K ,; EEEA@p[\]*1C*^+^(#(#`(##3(*+x`+p+`xP(pw`xPhxX 0hxX 0(BG8wx`w&&gIpwO*3+x`+1p+w](Y(Y(A(0& a\@ @X::X}OUTLN 92081-1X424 REV.2540 <851118.1505>/IMG2_5*0/UTILS/OUTL.FTN:BMBDNLS CONST  OUTLN  .ENTR FMPWRITEMOUTL NLREADREL FMPOPEN HH&&1|`|(3|p1|(H ow1 N P@$#B99XPE}HALT92081-1X425 REV.2540 <850416.1421>/IMG2_5*0/UTILS/HALT.FTN9 ACONST w!HALT .EXIT PRTNFMPCLOSE((Ip: 0|8|`{p(@Po;;X}CRDIM 92081-1X426 REV.5000 <870317.1043>/IMG2_5*0/UTILS/CRDIM.FTN ; A CONST s/CRDIM  &&}.ENTR .CPMERROT OUTLN SMOVE SFILL FMPREAD &  ~~.??A..p-`p`-@h8-8(8F330|*Rp`(Lp`|(`p*`TP(U(p`p,`(]((d(d`p,`,pl`~RR[m((@,@pw*`@p~((`@p`@p(Wp+/|.(R0)OP@!5~~CRDIM  h,DBBLH ERROT +,HALT PKEYWD  OUTLN jSETDx~DBDS.LIB::IMAGE2:5:59:128 644 0 0 35400 5300466303 33771 DBDS.LIB::IMAGE2_6000:5:59:128 $; 0;DBDS LIB +l+l+l;FST 7EEX8SDBDS_LIBRARY_ROU92081-12008 REV.5000 870423.1404/IMG2_5*0/UTILS/DBDS_LIB.MACE@c+FFXf8SDBDS.SWITCHLIST 92081-12008 REV.5000 870423.1404 /IMG2_5*0/UTILS/DBDS_LIB.MACF*DBDS.SWITCHLIST ++IMG.CLOSEFILE IMG.DEFAULTFILE IMG.OPENFILEW PAS.1 PAS.NONCDS+$$9AA(  ($ 8( @ f)&EEX7z{8SDBDS.TOOMANYERRS92081-12008 REV.5000 870423.1404/IMG2_5*0/UTILS/DBDS_LIB.MACEhDBDS.TOOMANYERRS66zDBDS.FATALERROR DBDS.SWITCHLIST IMG.WRITLONGSTR PAS.1 PAS.BLANKFILL PAS.NONCDS6JJ{''`p`A@j(&kolA(m('(" ('A("&nhJ %i8h( Too many schema errors. @jM EEX>8SDBDS.NONFATALERR92081-12008 REV.5000 870423.1404/IMG2_5*0/UTILS/DBDS_LIB.MACE!DBDS.NONFATALERR9kk C .ENTR .SBTDBDS.FATALERROR DBDS.SWITCHLIST DBDS.TOOMANYERRSIMG.WRITLONGSTR MDBDS_LIB NLREADREL PAS.1 PAS.BLANKFILL PAS.BOUNDINTEGERPAS.NONCDS PAS.RANGEINTEGERkAA`(`P(`pࠄ`d(A(A `(&h6 `H (?`݆A@Ԅ(4h6HH` (?h6`A @DH` D~~qA<<(JJ Qτ`  !(@@Z[((((((((((((((((((̈((((؈((((䈈((((((((~M}55((((( ((((((( (#(&()(,(/(2(5(8(;(>(A(D(G(J(M(P`p(R`ֈp(R`p(R`p(R`p(R`ڈp(R`p(R`p(R`55p(R`p(R`p(R`p(R`ለp(R`p(R`p(R`p(R`刈p(R`p(R`p(R`p(R`鈈p(R`p(R`p(R`p(R`툈p(R`p(R"55`p(R`p(R`p(R`p(R`p(R`p(R`p(R`p(R`p(R`p(R`p(R`p(R`p(R`p(R`p(R`p(R`p(R`p/55(R`p(R`p(R`p(R`p(R`p(R`p(R`p(R`p(R` p(R` p(R` p(R` p(R` p(R`p(R`p(R`p(R`p(R`ZZQ00pYψph6` @H` `P(i(kAAkp({ty({`P (ZmmOOA p(  G^      !"#$% /m@DDX&8SDBDS.PEEKAHEAD92081-12008 REV.5000 870423.1404/IMG2_5*0/UTILS/DBDS_LIB.MACD}|DBDS.PEEKAHEAD ,,.ENTR .LBTDBDS.NONFATALERRPAS.1 PAS.NONCDSPAS.RANGEINTEGER,==h6`F@HDFpz`z@(`z@((`zA@(!p{(x`z@(,`z@(,p{(x`zP(ZP(pP(pP(pP(pP(pP(pP(Zy=::P(ZP(pP(ZP(ZP(pP(ZP(ZP(]P(ZP(pP(pP(p((P(pP(p(s`p{(xh6`Ac@HP(j(m`p{(op{(xAp{(xv`0wp{`{|} A|`p{(..T !#$%&'()*,./:;<=>?@^_.@aUEEX#hx8SDBDS.DETCHARTYPE92081-12008 REV.5000 870423.1404/IMG2_5*0/UTILS/DBDS_LIB.MACE'KDBDS.DETCHARTYPE j.ENTR PAS.1 PAS.NONCDSPAS.RANGEINTEGERO55`HPc(APd(APe(APf(APg(APh(APi(,Pj(/Pk(APl(2Pm(;Pn(APo(8Pp(5Pq(APr(>Ps(APt(APu(APv(APw(A(D`[pI(F`ZpI(F`\pI(F11y>5`]pI(F`^pI(F`_pI(F``pI(FpI(F`apI`IK1DL AJJVpH`bpI(--Z !#$%&'()*,./:;<=>?@^_-@7cV#CCX%8SDBDS.UPSHIFT92081-12008 REV.5000 870423.1404/IMG2_5*0/UTILS/DBDS_LIB.MACCxeDBDS.UPSHIFT!!3.ENTR NLSCANMOVEPAS.1 PAS.NONCDSUPSHIFT !22k`$p`(p(28Ap(/@¾CCX~8SDBDS.GETCHAR92081-12008 REV.5000 870423.1404/IMG2_5*0/UTILS/DBDS_LIB.MACCRDBDS.GETCHARr dd & .ENTR .LBTDBDS.FATALERROR DBDS.NONFATALERRDBDS.UPSHIFTIMG.READLONGSTR IMG.STRINGMGR IMG.WRITLONGSTR PAS.1 PAS.BLANKFILL PAS.NONCDS PAS.RANGEINTEGERdFF `A@(:A L(AL`d(3 NA(NA-NL(33L8 ph6` D@H  JF pM`p݈`MxA `pM(    @ǮFFXM@V8SDBDS.NEXTSIGNIF 92081-12008 REV.5000 870423.1404 /IMG2_5*0/UTILS/DBDS_LIB.MACFJDBDS.NEXTSIGNIF %%.LBTDBDS.GETCHARPAS.1 PAS.NONCDSPAS.RANGEINTEGER%ї@@pI`I(CMpG`GPR(`GPS(pI`GPR((MpG(`GPS("(@hQ6`OH@UHPS(.(@pHA2PT(5(<7PT(:(<pH`H(0(Bd@pI(@pݨJؼK 8J( <>@1eDDX8SDBDS.SEMICOLON92081-12008 REV.5000 870423.1404/IMG2_5*0/UTILS/DBDS_LIB.MACDƛ DBDS.SEMICOLON!!DBDS.GETCHARDBDS.NEXTSIGNIF PAS.1 PAS.NONCDS!n AAP((` p  8 (;@"FFX]#8SDBDS.TERMINATOR 92081-12008 REV.5000 870423.1404 /IMG2_5*0/UTILS/DBDS_LIB.MACF DBDS.TERMINATOR ++KJDBDS.GETCHARDBDS.NEXTSIGNIF PAS.1 PAS.NONCDSPAS.RANGEINTEGER+;;FAAA^p`P!(`P"((`P!((`p(` p;q8(,;@YEEX A8SDBDS.GETTOKEN 92081-12008 REV.5000 870423.1404 /IMG2_5*0/UTILS/DBDS_LIB.MACEmDBDS.GETTOKEN j cc *.DST .ENTR .SBTCATDI DBDS.DETCHARTYPEDBDS.GETCHARDBDS.NEXTSIGNIF DBDS.NONFATALERRDBDS.PEEKAHEAD PAS.1 PAS.BLANKFILL PAS.NONCDS PAS.RANGEINTEGERc~~HHAAA pAp  r`P(P(=(u`A@(#"(% h6p`A @HH` `Ap8 (p (`A@(IH~HFF(K h6Ap` @H`H `pA^P(=Ag r `A(rm  (`p (w pA~ p h6` JA `  p t}` ""A `p(  r" @&FFXZ*8SDBDS.SCANFORKEY 92081-12008 REV.5000 870423.1404 /IMG2_5*0/UTILS/DBDS_LIB.MACFDBDS.SCANFORKEY //J).CBT.ENTR .MVWDBDS.GETTOKEN PAS.1 PAS.NONCDSPAS.RANGEINTEGER/$$AA$ph(6A`)6&((($4A`h)A'( r@d$EEX(q8SDBDS.GETFILENAME92081-12008 REV.5000 870423.1404/IMG2_5*0/UTILS/DBDS_LIB.MACE DBDS.GETFILENAMEwSS v.CBT.LBT .SBTDBDS.GETCHARDBDS.NEXTSIGNIF DBDS.NONFATALERRDBDS.PEEKAHEADPAS.1 PAS.BLANKFILL PAS.NONCDS PAS.RANGEINTEGERS2BBA z`ppg P((+h6` H@HP (+h6`A @HP(+`p(M`A@g(:6`pA(e(M>Ap>A DCDrE (F`Mp(=PL(;`NA@>('$F`Mp(=) GNhK6p?`>A IN@OHH`?`>p>(p@rtA8@( r @DDXL8SDBDS.ITEMERROR92081-12008 REV.5000 870423.1404/IMG2_5*0/UTILS/DBDS_LIB.MACDܗDBDS.ITEMERRORhdd p .ENTR .MVW .SBTDBDS.SWITCHLIST DBDS.TOOMANYERRSIMG.STRINGMGR IMG.WRITLONGSTR MDBDS_LIB NLREADREL PAS.1 PAS.BLANKFILL PAS.NONCDS PAS.RANGEINTEGERd5IIA`Rp V`RP( ()OVpPh6`P @H` A(VS(<0OVpPh6`P @H` AAVQ(LEJVIQ(LN**^A pRA`h ( &'VS *@Dwc7EEXn8SDBDS.SETERROR 92081-12008 REV.5000 870423.1404 /IMG2_5*0/UTILS/DBDS_LIB.MACEȈDBDS.SETERROR bdd K .ENTR .MVW .SBTDBDS.FATALERROR DBDS.TOOMANYERRSIMG.STRINGMGR IMG.WRITLONGSTR MDBDS_LIB NLREADREL PAS.1 PAS.BLANKFILL PAS.NONCDS PAS.RANGEINTEGERd~~{)<<`Xp`XP(P(P(P(P(P(("`pT($`pT($`pT($`pT($`pT($`pT($`pTA +\2TU\pVh6`V @H~,,<A` F\YAK\W(QQWS,77""A pXA`h ( \Y ()*+,-.   7@~>FFXg<8SDBDS.POSTBUFFER 92081-12008 REV.5000 870423.1404 /IMG2_5*0/UTILS/DBDS_LIB.MACF*/DBDS.POSTBUFFER AA O.DIN.DLD.DSTDBDS.FATALERROR IMG.BLOCKIO PAS.1 PAS.NONCDSPAS.RANGEDOUBLE PAS.RANGEINTEGERA[[,,`((A 2⡡3,A(J,D46"p`;p.Ap-`- 8)@: 8-8.(!/[h0 8/(@+JEEX :8SDBDS.ADDENTRY 92081-12008 REV.5000 870423.1404 /IMG2_5*0/UTILS/DBDS_LIB.MACEe.DBDS.ADDENTRY ,,1.ENTR .LPXDBDS.POSTBUFFER PAS.1 PAS.NONCDSPAS.RANGEINTEGER,OO&&@((%p)p&`P9( (A`&4QhA ,`6Q@8` p8&8)(.OS/ A,-p(( @`l,CCXC8SDBDS.NLSTERM92081-12008 REV.5000 870423.1404/IMG2_5*0/UTILS/DBDS_LIB.MACCR9DBDS.NLSTERM&&LB.ENTR .LBT.SBTPAS.1 PAS.NONCDSPAS.RANGEINTEGER&ee33`4p6(2p5`6p3h76`3A?v@BHPA((+h76@3?vH@BHPA(+h76`3A?w@BHH85(.(2@3p3( 9e A :`Lp7(  < L @*DDXi&31DBM.UPDTUFHEADER92081-1X481 REV.5000 870113.2235/IMG2_5*0/DBMON/BMLOG.PAS DQTDBM.UPDTUFHEADER ^^ .DAD .DIN.DLD.DST .ENTR .LBPR .MVWDBM.WRAPSTATUSEMA.DISCTRANSFEREMA.MOVEWORDS EXECIMG.ENDTIME IMG.STARTTIME PAS.1 PAS.NONCDS^~~AAApL ?Q 5Q ?Rp A s E :`bAZ[ :O# O]cA(&(J (AAM2^ :_`S(5(J8MJJ $ $JD     ~A ` Ph(E(HAH_pL sJ`LT ""SUA Q`gpL(X  < *" 4g @[zeEEX2n&41DBM.OLDESTTRANS 92081-1X481 REV.5000 870113.2235 /IMG2_5*0/DBMON/BMLOG.PAS ECbDBM.OLDESTTRANS :: 6.DAD.DCO.DDE.DLD .DMP.DST .LBPR .LPXR DBM.WRAPSTATUSPAS.1 PAS.NONCDS:mLLAAe[`mpapZhZ D g_ _[(:((:A@ _Ai(:($A _k (-(: _[ @_kA]8Z8a([e(D(P(PJA?]A`5p6O##L q]6(UAUq]6]q# ~Yb Sc 8b( m @=\DDXu &41DBM.BUMPBEGOFTUF92081-1X481 REV.5000 870113.2235/IMG2_5*0/DBMON/BMLOG.PAS D)1DBM.BUMPBEGOFTUFgHH Pv.DAD .DCO .DIN.DLD .DSB.DST .ENTR DBM.DETTUFFULLDBM.OLDESTTRANS LOG.TUFLABELIOPAS.1 PAS.NONCDSHDD%%`5 4(AA, -(( (,((AA-((!`5(AA-((!,((*D %A*. e/A ,( DD"2%%`6 4(GAA^ _(B(=(B^Z(FAA_Z(S`6(OAA_Z(S^ZZ\D YWA\` fBaA ^(2 ~~x1d88Af`5 6J(?J q((q(`/A@ (.}?C=(JJ?=(`/A@ (`qC=(JJq=(`5(~0)<<`/A@ (`qCJ=(q=(à`/A@ (.?CJ=(?== (AJ=JD   $GGޮ!!J(=JJ ,*JA* (((= . A, JA*pG  W 8(d<   @=EEX.&61DBM.SPOOLSENDER 92081-1X481 REV.5000 870113.2235 /IMG2_5*0/DBMON/BMLOG.PAS E^DBM.SPOOLSENDER } GG =.DLD.DST .ENTR DBM.BUMPBEGOFTUFDBM.WRAPSTATUSDRMNT EMA.RECEIVEMSGEMA.SENDREQUEST PAS.1 PAS.NONCDSG ;;Apu( `(o` p 0` p 1` p 2` p 3`tp 4As((opq` /P("(m`tP(&(m`q(m2 r(5(o`|P(9(Mpqrrt;44`}(M~vG Cv 4AJv CAM`|P (Q(Sp ?`}(d`}p u`}P(b`}P(b`}P(b(d`}p ?`}P(h(lp /p ?(&pur t,o`u LL}00A ptps`pu(  0xQUERY DBMON DBSPL DBCLN DBUTL DBRBR DBRFR DBSTR DBRST DBULD DBLOD L KNQq@BBXk}&71DBM.DRAINTUB92081-1X481 REV.5000 870113.2235/IMG2_5*0/DBMON/BMLOG.PAS B+DBM.DRAINTUBc LL 8 .DCO .DDE .DIN.DLD .DSB.DST .ENTR DBM.SPOOLSENDER EXECLOG.TUFLABELIOLOG.WRITECHUNKPAS.1 PAS.NONCDSLk==`(P((p(p,,$J   `P( (#A#('(`/A@(JJ( (AJ5JD, 7%V=@@AB(Jpup/`3(a`BpBW$(Z(  J  p3JJ. ,D  ( (o(p3JA* JA*JA xB,,}JA,$((JD   p, t((` %%A p`p( & <%  @)GDDX&81DBM.GETNEWTUB 92081-1X481 REV.5000 870113.2235 /IMG2_5*0/DBMON/BMLOG.PAS D YDBM.GETNEWTUB ! ssc .DAD .DDE.DIV.DLD.DSB.DST.ENTR .LBPR .LPX.LPXR DBM.DRAINTUBDBM.INITTUB EMA.ADDRTOPTR EMA.CHECKSUM EMA.FILLWITHWORD PAS.1 PAS.NONCDSPAS.SINGLEMOD TMDAY sTCCp` (p Bh ( JA A((̨` (@p ( (@p`ψA@pAA׈A``x A6`@ (p (h (@  CCC  L(O(̨` (@p (h (  `` ( p (` ( Ap %` %A(o`(At (w(AA AA` %x{{iFFJA ,A  A , AA Ax pJ` ,JA @ %((h %  * *((p{ u@`Ш %%A`pЀ(D Ӏ% @ DDXc &91DBM.REMOVELOGREC92081-1X481 REV.5000 870113.2235/IMG2_5*0/DBMON/BMLOG.PAS DBDBM.REMOVELOGREC9PAS.1 PAS.NONCDSZ`)@(p(`&@)p&   8( @CCX&:1DBM.MAKELOGREC92081-1X481 REV.5000 870113.2235/IMG2_5*0/DBMON/BMLOG.PAS ChDBM.MAKELOGRECW jjM< .DAD .DIN.DLD.DST.ENTR .LBPR .LPX.LPXR DBM.BUMPBEGOFTUFDBM.DETTUFFULLDBM.GETNEWTUB EMA.ADDRTOPTR EMA.FILLWITHWORD EXEC PAS.1 PAS.NONCDS TMDAY j[r;;pA JD   ` ?(` ?(p ` (.` (.`P(.`P(.`` ;(-p 9p ;(`@ &p &` &(E8(;(;CC`@ &p &` &(E`Ĉ(h (J  Ah`AAVA(Y(_(b( ,` P(j(m m` (@p (`@`00~x hA  AAAA ``p )p0 t` &&'App`p(&i @sDDX/&;1DBM.COPYTUFLABEL92081-1X481 REV.5000 870113.2235/IMG2_5*0/DBMON/BMLOG.PAS DHDBM.COPYTUFLABEL &&b.ENTR DBW.MAKEBIMAGEEMA.ADDRTOPTR PAS.1 PAS.NONCDS&//Ap&(A( ("#%*ƀ((p/ s` ##A`.p(<# . @4DDX#&;1DBM.COPYTUFHEADE92081-1X481 REV.5000 870113.2235/IMG2_5*0/DBMON/BMLOG.PAS DKDBM.COPYTUFHEADE .ENTR DBW.MAKEBIMAGEPAS.1 PAS.NONCDS##Ap :ƀ((p# r` ?$ A`"p( " @5CCXv{'1DBM.SPOOLREPLY92081-1X481 REV.5000 870113.2235/IMG2_5*0/DBMON/BMLOG.PAS CjDBM.SPOOLREPLY;; :.DAD.DIN.DLD.DST .LPX .LPXR DBM.BUMPBEGOFTUFDBM.WRAPSTATUSPAS.1 PAS.NONCDS;)1.RCV.UPDATERECOR92081-1X575 REV.2540 870113.2139/IMG2_5*0/DBMON/DBPAS.PAS D4.RCV.UPDATERECOR##RPAS.1 PAS.NONCDSRCV.UPDATERECORDSAM.SAVEAREAOVFL#ss0..`YpZ`Y@;pY`Y@<A( (  `Z@7p0`Z@8@7p1`Z@9@7p2`Z@:@7p3A$0123*p0`0p/`Y@=pY`7@Yh/s %.4 !584(N8@RCCX )1.MON.INITALLOC92081-1X575 REV.2540 870113.2139/IMG2_5*0/DBMON/DBPAS.PAS C̆.MON.INITALLOC"" MON.INITALLOC PAS.1 PAS.NONCDSSAM.SAVEAREAOVFL">>`YpZ`YpY`Y@A( (  Ap`p@YpY`@Yh>  8(N  @e%CCX )1.MON.INITDBMON92081-1X575 REV.2540 870113.2139/IMG2_5*0/DBMON/DBPAS.PAS C•.MON.INITDBMON""MON.INITDBMON PAS.1 PAS.NONCDSSAM.SAVEAREAOVFL">>`YpZ`YpY`Y@A( (  Ap`p@YpY`@Yh>  8(N  @y9DDXj")1.DBW.INITWKHORSE92081-1X575 REV.2540 870113.2139/IMG2_5*0/DBMON/DBPAS.PAS D.DBW.INITWKHORSE##RDBW.INITWKHORSE PAS.1 PAS.NONCDSSAM.SAVEAREAOVFL#EE`YpZ`YpY`Y@!A( (  A*p`p@YpY` @YhE  8(N ! @HCCX )1.MON.EVALERROR92081-1X575 REV.2540 870113.2139/IMG2_5*0/DBMON/DBPAS.PAS Cғ.MON.EVALERROREMON.EVALERROR PAS.1 PAS.NONCDS1` @Yp   8(N@ @@X&71PICKR 92081-1X576 REV.2540 870113.2136 /IMG2_5*0/DBMON/DBPIC.PAS @@*CCX$&71MON.STARTDBMON92081-1X576 REV.2540 870113.2136/IMG2_5*0/DBMON/DBPIC.PAS CMON.STARTDBMON`PAS.1 PAS.NONCDSSAM.SEGMENTER  <A  8( @:DDX&81MON.UNDOTRANS 92081-1X576 REV.2540 870113.2136 /IMG2_5*0/DBMON/DBPIC.PAS DcMON.UNDOTRANS `PAS.1 PAS.NONCDSSAM.SEGMENTER  <A  8( @LkDDX z&81MON.TRANSCLEANUP92081-1X576 REV.2540 870113.2136/IMG2_5*0/DBMON/DBPIC.PAS DiMON.TRANSCLEANUP /p.ENTR PAS.1 PAS.NONCDSSAM.SEGMENTER   `Y@h`@Yp r ` AAp(N@%PDDX*O&81MON.UPDATERECORD92081-1X576 REV.2540 870113.2136/IMG2_5*0/DBMON/DBPIC.PAS DSMON.UPDATERECORD`PAS.1 PAS.NONCDSSAM.SEGMENTER  <A  8( @x8DDX7N&91RCV.UPDATERECORD92081-1X576 REV.2540 870113.2136/IMG2_5*0/DBMON/DBPIC.PAS D>RCV.UPDATERECORD /p.ENTR PAS.1 PAS.NONCDSSAM.SEGMENTER ||,33`Y@G8`Y@J@Gh8 `Y@K@G9`Y@L@Gh6`Y@M@Gh5F`G@Yp7`Y@G8`8 hYHJHG`Y@K@G9| sm3`7> <? A8:p6;p5( N J @I/gDDX&91MON.PUTRECORD 92081-1X576 REV.2540 870113.2136 /IMG2_5*0/DBMON/DBPIC.PAS DbMON.PUTRECORD `PAS.1 PAS.NONCDSSAM.SEGMENTER  <A  8( @BaDDXND&:1RCV.PUTRECORD 92081-1X576 REV.2540 870113.2136 /IMG2_5*0/DBMON/DBPIC.PAS D([7RCV.PUTRECORD /p.ENTR PAS.1 PAS.NONCDSSAM.SEGMENTER pp?..`Y@>2`Y@A@>h2 `Y@B@>3`Y@C@>Ah0=`>@Yp1`Y@>2`2hYHAH>`Y@B@>3p s[.`17 B!8A24p0( N A @"DDX!J&:1MON.DELETERECORD92081-1X576 REV.2540 870113.2136/IMG2_5*0/DBMON/DBPIC.PAS DJMON.DELETERECORD`PAS.1 PAS.NONCDSSAM.SEGMENTER  <A  8( @p0DDX.{D&;1RCV.DELETERECORD92081-1X576 REV.2540 870113.2136/IMG2_5*0/DBMON/DBPIC.PAS Dw7RCV.DELETERECORD /p.ENTR PAS.1 PAS.NONCDSSAM.SEGMENTER pp?..`Y@>2`Y@A@((>h2 `Y@B@>3`Y@C@>Ah0=`>@Yp1`Y@>2`2hYHAH>`Y@B@>3p s[.`17 B'8A24p0(N A @ +aDDX&;1MON.FINDCHAIN 92081-1X576 REV.2540 870113.2136 /IMG2_5*0/DBMON/DBPIC.PAS DDMON.FINDCHAIN `PAS.1 PAS.NONCDSSAM.SEGMENTER  <A  8( @5{DDX'1MON.GETRECORD 92081-1X576 REV.2540 870113.2136 /IMG2_5*0/DBMON/DBPIC.PAS DRMON.GETRECORD `PAS.1 PAS.NONCDSSAM.SEGMENTER  <A  8( @1P]DDX'1MON.INITALLOC 92081-1X576 REV.2540 870113.2136 /IMG2_5*0/DBMON/DBPIC.PAS Dc MON.INITALLOC /p.ENTR PAS.1 PAS.NONCDSSAM.SEGMENTER A`@Yp  r`   A (N@NmMDDX'1MON.INITDBMON 92081-1X576 REV.2540 870113.2136 /IMG2_5*0/DBMON/DBPIC.PAS DY MON.INITDBMON /p.ENTR PAS.1 PAS.NONCDSSAM.SEGMENTER A`@Yp  r`   A (N@lp0DDX @'1MON.CHANGESTATUS92081-1X576 REV.2540 870113.2136/IMG2_5*0/DBMON/DBPIC.PAS D3MON.CHANGESTATUS`PAS.1 PAS.NONCDSSAM.SEGMENTER  <A  8( @NEEX@9'1DBW.INITWKHORSE 92081-1X576 REV.2540 870113.2136 /IMG2_5*0/DBMON/DBPIC.PAS Eg DBW.INITWKHORSE /p.ENTR PAS.1 PAS.NONCDSSAM.SEGMENTER A`@Yp  r`   A (N@(9CCX'1MON.BACKUPINFO92081-1X576 REV.2540 870113.2136/IMG2_5*0/DBMON/DBPIC.PAS CMON.BACKUPINFO`PAS.1 PAS.NONCDSSAM.SEGMENTER  <A  8( @DDX9'1MON.ROOTFILEINFO92081-1X576 REV.2540 870113.2136/IMG2_5*0/DBMON/DBPIC.PAS DAMON.ROOTFILEINFO`PAS.1 PAS.NONCDSSAM.SEGMENTER  <A  8( @{;EEX<+'1MON.RESIGNATION 92081-1X576 REV.2540 870113.2136 /IMG2_5*0/DBMON/DBPIC.PAS ECMON.RESIGNATION `PAS.1 PAS.NONCDSSAM.SEGMENTER  <A  8( @?DDX'1MON.EVALERROR 92081-1X576 REV.2540 870113.2136 /IMG2_5*0/DBMON/DBPIC.PAS Dj MON.EVALERROR /p.ENTR PAS.1 PAS.NONCDSSAM.SEGMENTER `@YhA  At A  p(N@J# KKK~~ɷ .DBW.INITWKHORSE`Oj.MON.EVALERRORbB.MON.INITALLOC\}.MON.INITDBMON^f.MON.TRANSCLEANUT(`.RCV.DELETERECORX;.RCV.PUTRECORDV#.RCV.UPDATERECORZV CHECK_POINT 89~~~w DBM.BUMPBEGOFTUF(DBM.COMMITSNGLTN6!DBM.COPYTUFHEADE/=DBM.COPYTUFLABEL-G DBM.CREATEID4)DBM.DETTUFFULLy DBM.DRAINTUB#+DBM.GETNEWTUB "@ DBM.INITTUB  DBM.MAKELOGREC)~~~ DBM.OLDESTTRANS 7_DBM.REMOVELOGREC'XDBM.SPOOLREPLY1_DBM.SPOOLSENDER _DBM.UPDTUFHEADER_DBM.UPDTUFLABEL  N_DBM.WARNINGMESG #DBM.WRAPSTATUS WDBW.INITWKHORSE y[EC) ~~~ MON.BACKUPINFO{MON.CHANGESTATUSx:MON.CHKSETLOCKGtMON.DELETERECORDoMMON.EVALERROR ~tMON.FINDCHAIN sMON.FINDPROCESS A}MON.FIRSTTRANSJ<MON.GETRECORD t0MON.GLOBALPTRSNEC) ~~~ MON.INITALLOC uPMON.INITDBMON wMON.MESGHEADERQ{MON.PUTRECORD l MON.REMOVELOCKS EHMON.RESIGNATION }RMON.ROOTFILEINFO|1MON.STARTDBMONd3MON.TRANSCLEANUPfrMON.UNDOTRANS eR) ~~~:MON.UPDATERECORDh7RCV.DELETERECORDpnRCV.PUTRECORD m,RCV.UPDATERECORDiXREMOVELOCKS EHMON.RESIGNATION }RMON.ROOTFILEINFO|1MON.STARTDBMONd3MON.TRANSCLEANUPfrMON.UNDOTRANS eR) ~DBEMA.LIB::IMAGE2:5:343:128 644 0 0 253400 5300466307 34622 DBEMA.LIB::IMAGE2_6000:5:343:128  $W WDBEMA LIB +l+l+lW"ʾFST LDDXwĨ/EMA_LIBRARY_HEAD92081-12010 REV.5010 881202.2100/IMG2_5010/DBMON/EMAHD.PASD@wDDXkĨLOG_RECORD_PRINT92081-1X501 REV.2540 881202.2100/IMG2_5010/DBMON/LGDLR.PASD@LkEEXwĨLOG.DISPLAYPROC 92081-1X501 REV.2540 881202.2100 /IMG2_5010/DBMON/LGDLR.PASEhLOG.DISPLAYPROC { CC pY.ENTR .LPXR IMG.NLSBLANKIMG.NLSTERM IMG.WRITLONGSTR MLGDLRNLREADREL PAS.BLANKFILL PAS.NONCDSCCC))Ap.Ax 77,?A7p+?+$?('()p.C s)`. æ A`p.( W @CbOEEXwĨLOG.DISPLAYXACT 92081-1X501 REV.2540 881202.2100 /IMG2_5010/DBMON/LGDLR.PASEh|LOG.DISPLAYXACT KK }.DLD.DST .ENTR .LBPR IMG.LINTTOSSTRIMG.NLSBLANKIMG.NLSTERM IMG.WRITLONGSTR MLGDLRNLREADREL PAS.NONCDSK@@Ɍ((Ap, y@A-A -/A/A+7/p*7A* #z7{(&((p,@ s(`,| }A y`p,( K @}>=DDXYs'ĨLOG.DISPLAYRECRD92081-1X501 REV.2540 881202.2100/IMG2_5010/DBMON/LGDLR.PASDjLOG.DISPLAYRECRD bb.DLD.DST .ENTR .LBPR .MBT IMG.LINTTOSSTRIMG.NLSBLANKIMG.NLSTERM IMG.SINTTOSSTR IMG.WRITLONGSTR LOG.DISPLAYXACT MLGDLRNLREADREL PAS.NONCDSbqq KKApPA( (K @6h#6Ak xO Oc#c  Q -Q[1[ ;!N"kc[pMAA"M Fˁ(I(KpPq tyK`P * A `&pP(@k & @Ser%DDX`~ĨLOG.MAKETIMESTMP92081-1X501 REV.2540 881202.2100/IMG2_5010/DBMON/LGDLR.PASDP.LOG.MAKETIMESTMP{{*.DLD.DST.ENTR .LBPR .LPXR IMG.APPENDSTR IMG.APPNDBANDSIMG.NLSBLANKIMG.NLSTERM IMG.POSAPPENDSTR IMG.SINTTOSSTRMLGDLRNLFMTDATE NLLANGIDNLREADREL PAS.BLANKFILL PAS.BOUNDINTEGER{+PAS.NONCDSPAS.SINGLEMOD BBD$$A'23("`&Pt( ("'45A('67(p((p((!p(($p(B s<$`(+ ,A))p'*p&(j!3CCA 5p`A(,A8x(B(4:p)`ԂIz0)AIp,;%xp(`y0(p,;vp(`H|0(Hp,&wp(`ۈ{0(p,wp(`܂H{0(@HpvOO|AA=>Ղ-=p-=ր`܂(wpA A -ހ(pp<H?-=AA,&A&;%xp(&8x)+)ڈhGHHوH`A@('\AA(`uA@ڄA(&8x(+(hGHHHx`pڄ(&;%xh@p`@ !(@}@(( (((#(+(3(;(C(K(SA([(c <XXL2@(j<N2@(j<P2@(j"<R2@(j*<T2@(j2<V2@(j:<X2@(jB<Z2@(jJ<\2@(jR<^2@(jZ<`2@(jb<h^YYb2@(jj<dA@A n-A rA x-A@B<C<@ -&8Ax A -@DA&;Avp A -((@EA<F<@ -&&wp --A -A<F<@ Ƃ-&wpA A ӂ-- . \\=/CCA,(3d ,:e TIME = JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DECXXX \t  ?@DCCX ĨLOG.DISPLAYREC92081-1X501 REV.2540 881202.2100/IMG2_5010/DBMON/LGDLR.PASCxLOG.DISPLAYREC6 ~~ܝ.DAD.DIN.DLD.DST.ENTR .LPXR IMG.NLSBLANK IMG.NLSTERM IMG.WRITLONGSTR LOG.DISPLAYPROC LOG.DISPLAYRECRDLOG.DISPLAYTEXT LOG.DISPLAYXACT LOG.MAKETIMESTMP MLGDLR NLREADREL PAS.BLANKFILL ~ e]PAS.NONCDS ~~M<P(AP(DP(GP(JP(M(P`p(R`p(R`p刈(R`p(R`p(R`~Ls( !+(G`>$( (a`>$( KPP(a !x h!`AZ 6$A(]( A!( +P$( AAAA-A 1A AA AA\MM "#$AA3(((`?$( ` @Bp h  8$((  H x h  AAAh!`AA$(( (h!`A58$(??!!(  x ` (`?$( Ah!`AA 6$(( !( h@@?  % ##N &A  p(#n:  K@S1qDDXb?ĨLOG.INITGETLOGFC92081-1X503 REV.2440 881202.2122/IMG2_5010/DBMON/LOGLB.PASD94LOG.INITGETLOGFC --.DAD.DLD.DST.ENTR EMA.ADDRTOPTR LOG.READCHUNK PAS.NONCDS-55) A +,-#!1233( h" -%h0`>'%'3( 5  4 -5 AA+.A#/p"( b> @ ~CCX I4ĨLOG.TUFLABELIO92081-1X503 REV.2440 881202.2122/IMG2_5010/DBMON/LOGLB.PASC%LOG.TUFLABELIO ...DST.ENTR EMA.DISCTRANSFERIMG.ENDTIME IMG.STARTTIME PAS.NONCDS...AA#A  "-.$(p`3$(p#A#. s!`% & A !p`2p( 2 @:EEXx4ĨLOG.TUFHEADERIO 92081-1X503 REV.2440 881202.2122 /IMG2_5010/DBMON/LOGLB.PASE[%LOG.TUFHEADERIO ...DST.ENTR EMA.DISCTRANSFERIMG.ENDTIME IMG.STARTTIME PAS.NONCDS...AA#A  "-.$(p`3$(p#A#. s!`% & A !p`2p( 2 @}=CCXĨ$RECLS_UNOPN 92081-1X504 REV.2540 881202.2130 /IMG2_5010/DBMON/RECLS.PASC@8CCXG>Ĩ$RCV.DBASECLOSE92081-1X504 REV.2540 881202.2130/IMG2_5010/DBMON/RECLS.PASCi5RCV.DBASECLOSE 44;.ENTR CHECK_POINT DBW.FINDOPENROOTDBW.FREERUNTABLEDBW.ROOTCLOSE PAS.NONCDS4KKR **`3p/p.A 2,34( (*`,(((34((*A,34( (*A%,34(((*p.K sR*`.5 *6A2`=p.((( = @8WuBBXĨ--REDO_UNDO 92081-1X505 REV.2540 881202.2136 /IMG2_5010/DBMON/REDEL.PASB@DDX4Ĩ-/RCV.DELETERECORD92081-1X505 REV.2540 881202.2136/IMG2_5010/DBMON/REDEL.PASDwRCV.DELETERECORD= PP Z .DAD.DLD.DST .ENTR .LPXR DBW.CHECKBIFFULLDBW.DELETERECORDDBW.DETAILPTRSDBW.READRECORDEMA.COMPAREWORDSPAS.NONCDSPPP`ppApAA A x @AA!($(A*(-( Ҁ(pA x ҈@pA xRww3PII(U( ҈hA  AAAAAAAA AAA}(`(`ˆ((pA((p`(`܀w t` %%$A p`p(*+g "3% 4 @۾@@X3Ĩ6REOPN 92081-1X506 REV.2540 881202.2145 /IMG2_5010/DBMON/REOPN.PAS@@D3DDXVĨ6RCV.DBASEOPEN 92081-1X506 REV.2540 881202.2145 /IMG2_5010/DBMON/REOPN.PASDGRCV.DBASEOPEN  MM >.DAD.DDE.DLD .DMP.DST .ENTR .LBPR .LPXR .MVWDBW.FINDOPENROOTDBW.ROOTOPENIMG.READROOTHDR PAS.NONCDSMe-LL`ppXA ( (U(`(U(SA!($(U@`@AD   A @hHHA `وA@pKY;DL A(N(U `pX tWU`X # A `pX(705D"hz@LFkCCX(9ĨREPUT_UNDELETE92081-1X507 REV.2440 881202.2154/IMG2_5010/DBMON/REPUT.PASC@ y(9DDX>ĨRCV.PUTRECORD 92081-1X507 REV.2440 881202.2154 /IMG2_5010/DBMON/REPUT.PASD([RCV.PUTRECORD m EE .DAD.DLD.DST .ENTR .LPXR DBW.CHECKBIFFULLDBW.DETAILPTRSDBW.PUTRECORD DBW.READRECORDPAS.NONCDSE8SS`ppvApsAAA xt @AA!t{yw($(pA*{(-(p}}}}Dt(G(p (Z`u(Wps77T2S (Z`(pftr(i(ppv`s(p`7 t>p`v %A pu`pv(*+n3  @ݯoDDXĨ 7REDO_OR_UNDO_UPD92081-1X508 REV.2540 881202.2204/IMG2_5010/DBMON/REUPD.PASD@jDDXx3Ĩ 8RCV.UPDATERECORD92081-1X508 REV.2540 881202.2204/IMG2_5010/DBMON/REUPD.PASDRCV.UPDATERECORD_ XX .DAD.DLD.DST .ENTR .LPXR .MPY .MVWDBW.CHECKBIFFULLDBW.DETAILPTRS DBW.READRECORDDBW.UPDATERECORDEMA.COMPAREWORDSPAS.NONCDSX~5KK`ppApAA A x @AA x A@h  Ax3A(6(<(?(`(H`@p`p(M`p`WKTTA@pAhA  AAAhA  AAAA rA(u(AA h   p `(pAp`LJJJ@p`@@ph   h     (`(p(҈`(`@p88(゜((`(9`p wO` 00 XA pp`p(*+/0.p 0@~NDDXĨ.INIT_WORKHORSE_E92081-1X509 REV.2540 881202.2214/IMG2_5010/DBMON/WKIWE.PASD@{EEX]Ĩ/DBW.INITWKHORSE 92081-1X509 REV.2540 881202.2214 /IMG2_5010/DBMON/WKIWE.PASEgDBW.INITWKHORSE w ?? ب.DAD.DDE.DLD.DMP.DST.ENTR .LBP .LBPR .LPX .LPXR .MPY PAS.NEW2PAS.NONCDS?LL`pxpw`x@ `x@͂@`AA `x@ӂ@` `x@A@`A )`x@ς@` 4@`x@A x `x@Ԃ@` J`x@LMM@H xA `x `ppv@`x@AhvD y yA y y8v8(\`x@ `؀ppv`x@yhv AAAy{@ )PP{A { {x  {A { {8v8(`x@ `ppv`x@@AAyhvD y} } }A }xPeLLA8v8(`x@ `ʈ`x@ `x@ `x@ `ppv`x@Ay`v@y xAA  A  xx^5>>8v8(`x@ `ۀppv`x@Hv@8v8(D`x@ `x@`ڀppvhv y y8v8(\`x@ pwx w8s`w XXw>>A`pw( G|MSY*b37012456$"XAghjlm@DDXlĨ!/WORKHORSE_DELETE92081-1X510 REV.5000 881202.2219/IMG2_5010/DBMON/WKDEL.PASD@MlDDXRKĨ!/DBW.UPFREERECTBL92081-1X510 REV.5000 881202.2219/IMG2_5010/DBMON/WKDEL.PASDV=DBW.UPFREERECTBL )).DCO.DIN.DLD.DST.ENTR .LBPR .LPXR PAS.NONCDS)OOf11Ap3:AA44@D64x8AA68A@4AC((( `J9(1A4E<4Ex8;8p3O sf1`3= P> A9`Ip3( I @/DDX4gHĨ!1DBW.DELMASTER 92081-1X510 REV.5000 881202.2219 /IMG2_5010/DBMON/WKDEL.PASDK3DBW.DELMASTER GG '.DCO.DLD.DST .ENTR .LPXR DBW.READRECORDDBW.RECMODIFIED DBW.UPFREERECTBLEMA.FILLWITHWORDPAS.NONCDSG)WWAp2/-"( ("9(0(0+,"; 12((  <x*-*-+,9 12(0(A9+,->$12(<(A $?$& @&?AA &< &KWTTAb.$92A(e($AA(A-(p(y(y (?x*A*( (A?x*AA* (C (Ax*"* (MMM(Q`(w`P(U(^A[(^(w`P(dP((mv(y(wAxh A((wAABOOp`(`(pph AAAAA@ ((`(w88(Aӄ((wA(A(w(pA@GNNp`((`(pph DpA(Apx( (wh 6'7NNA(9(wJA(M(wW(((Z(wxA@pppp`(`A@(h JJAAA(PA((((p(`p(w`(`ԈA(wAAh D(((Ĉ`(wAAxTT ڄA((w@ (Ix x  ((wA((Hp`(8pApAAh D#NN@ (3@ (3(5p88(`(HAE(HA(w((S(a(aA`x @@AA(k(z(zA`x iqOO@Ƅ@ ((w88(`(pp` A@pA((A((wAAAhD `@x@@~~PP Ʉ((w@`@A((`@p((wh AAAAAx ((w88((~^TT(wA((w (#(wAxA AxAAA D(G(w(l(lV(Y(wx iCCd##(l(w(p`(wA t(w(wp(p( (`C ~` 99%%A`p( "J  ̀9qr@ĐPDDXĨ2WORKHORSE_PUT_OP92081-1X511 REV.5010 881202.2234/IMG2_5010/DBMON/WKPUT.PASD@EEXSĨ2DBW.ADDEDRECORD 92081-1X511 REV.5010 881202.2234 /IMG2_5010/DBMON/WKPUT.PASE@FDBW.ADDEDRECORD )) .DCO.DDE.DLD.DST.ENTR .LBPR .LPXR PAS.NONCDS)[[::Ap<BAA==@D?=xAAA?AA=LC(A(&(&=ALxADAAA=NC(8(0(8A=NxAAACAp<[ s:`<F xG AB`Rp<( R @REEX]Ĩ2DBW.MAKEMSTRREC 92081-1X511 REV.5010 881202.2234 /IMG2_5010/DBMON/WKPUT.PASEm<DBW.MAKEMSTRREC dd( .DAD .DCO .DIN.DLD.DST .ENTR .LBPR .LPXR DBW.ADDEDRECORD DBW.HASHREADDBW.MASTERPTRS DBW.READRECORDDBW.RECMODIFIED EMA.MOVEWORDS PAS.NONCDSdhTTAp 45 :;(( BxA@A D((( `X;(AA7A F[hA 1AH  1  R45 B8:;(UTMM(`([`Y;(6 (m(e (z`(z 9A (AA9 (  `:@\@Vp,`,@Wh,HWp3@D 39 D(( ?TT459J*:;A((*AKx,AA,45B*:;((  D(( ͂45 J*:;((*Mx,,45B*:;A(( 45B*:;A((*O(TT`Z;(*-@-MAA$-K"$ D(/(/ 45$J*:;((*Kx,",,45B*:;A(/("A D(T(TA >45"J*:;(A(A*Mx,AA$,nIVVAQ45B*:;(T( ]45I*:;(`(*//OAA (p(x(x/Qx,,@/KAA&/AMx,9AA,/AKx, AA,45 :;((* |TT F[hA  AAAA(7(;((‚45J*:;A((&;(( ((9 A( 45J*:;A((*AQx,AA,45B* :;((6p y`< &&њ=A 4`Up("  &UHjn0@^DDXc`Ĩ2DBW.GETKEYPTR 92081-1X511 REV.5010 881202.2234 /IMG2_5010/DBMON/WKPUT.PASD!]NDBW.GETKEYPTR 55 .DAD.DDE.DLD.DMP.DST.ENTR .LPX .LPXR DBW.DETAILPTRSPAS.NONCDS5XXK99Ap< GHCA?LMA((9JAA= CV_h AEh;D ZA X E===Kp<X s9`<N O AGIp;`^p<(  "^ @ ?DDXbV&Ĩ2!DBW.PUTRECORD 92081-1X511 REV.5010 881202.2234 /IMG2_5010/DBMON/WKPUT.PASD_DBW.PUTRECORD xx.CFER .DAD.DCO.DDE.DIN.DLD.DMP.DST.ENTR .FSB.LBPR .LPX.LPXR .TSUB DBW.ADDEDRECORD DBW.COPYFRECTBL DBW.DETAILPTRSDBW.GETKEYPTR DBW.HASHREAD DBW.MAKEITEMPTR xdd eDBW.MAKEMSTRREC DBW.MARKEOINTRIN DBW.MASTERPTRSDBW.READRECORDDBW.RECMODIFIED DBW.RUNTABLEPTR DBW.UNDOINTRINEMA.BYTESCOMPAREEMA.MOVEWORDS EXECPAS.NONCDSd+LLp[A trpn((;tAxZ((;`@%P($('A 't(P(2PA(@(1<(?(;(4AFl(I(; RLQQjfd(U(;d(^(^(a`!(; A(ndA(rAAAAj$pT`T(TppSl^hS AAAj ^^?OOAA^hAAhA(A$pRֈ$pW Wtrpn((;AƄS((;AڄWYX\((;`Y(t(P((`"`WKK(;( W(`WA(; WA((;AAt$pVpQ`V({ppUhU ArAA؈$(1(x($PRZ7QQA(9(x AAրhU D  hU A AA@AhU D  `UpQ8U8(!`Q(`#A(;hxP`PQQA(( P((;AAA pO`O( (pO(gx((;j$pAhAHxNA^hNA ^AA^^AA~xAA^hHH AA^^AA^|A($P(P( P (Q(dAP(P( (|p~A@℁( ApO(|@AA@~A((pO(`#(;(g!IIP()P(:(MA@|AA~@A(9pO(P~xAA|x`(LpO(P`#(;(gA p_~|(cpO(g`#(;`O(*jUUAAhS Dx(( `S @pAAڈ`@p(Є(x((;xhS AA@UUAxAAx(Є(;((߄x((;hS AAAAxAxxA((; WA( (; AAրhQOWW AA AA@DxAAA (9x A(FAxAANW(Q(;8S8(A]x(`(;AAAAxA kSS@AbA`A xA AxA ڀ`T(ppShS Dx߀`S @p߄8S8ڄ(d`A((;xA@^TTj$h AA^^AA^vAԄvZ(ׄ(;߄x((;AAbA((bxA((;xAx`AAx((;`(,(,`bb499x((;x xb)xA(,(;A(4`#A(;8(;(;pMA(I DM(H`M(Kp[b `K`[ 44 !!A`p[(" #  4  IRXik/@XwDDXĨ; WORKHORSE_UPDATE92081-1X512 REV.2540 881202.2250/IMG2_5010/DBMON/WKUPD.PASD@֡DDX9Ĩ; DBW.UPDATERECORD92081-1X512 REV.2540 881202.2250/IMG2_5010/DBMON/WKUPD.PASDsDBW.UPDATERECO((RD ffX .DAD.DLD.DST .ENTR .LPXR .MPYDBW.DETAILPTRS DBW.MARKEOINTRIN DBW.READRECORD DBW.RECMODIFIED DBW.UNDOINTRINEMA.COMPAREWORDSEMA.MOVEWORDS PAS.NONCDSfRMMAp ۀȀA(( ۀ܀րA((AAAApp(pp@A@p@A@@@ph  1MKKAAAAAhA  AAA@A@.(A@@-(@A@/(A(`A(€((`@p8BBQ$$A8(2 ۀ(( ((p((`(pB u*`Ũ A `pŀ( *p@\{PDDXpĨ'!INTRINSIC_ROLLBA92081-1X515 REV.2440 881202.2326/IMG2_5010/DBMON/WKULI.PASD@QpCCX1w4Ĩ'#DBW.UNDOINTRIN92081-1X515 REV.2440 881202.2326/IMG2_5010/DBMON/WKULI.PASCDBW.UNDOINTRIN ||.CBT.DAD.DCO.DDE.DIN.DLD.DMP.DSB.DST.ENTR .LBP.LBPR .LPXR .MBT.MPY.MVWDBW.BLOCKIO DBW.FLUSHBIBDBW.FREERUNTABLEDBW.POSTRECORDS EMA.CHECKSUM EMA.DISCTRANSFER|66 IMG.CLOSEFILE IMG.ENDTIME IMG.INITDCBHDR IMG.OPENEXIST IMG.STARTTIME PAS.NONCDS6dHH`p`*pp( (pA (`+((`+(`3pp`@.@AA`A@AAxA88ǀ("p`(A@<HLL(s`@/h AAAA (e(oj(o`+(`p(C`@({(}`@p`@@A`@p ʂ<HH(`)(`@1@pA`@!`@!pAALj`@ hH pA`@@AAAAApAP(`)(x`(~~tDD({`@h AAAAP(((`@1@p`@hHp@DpP(P(^P((p`(A@(]`(]`~ LL@/h AAAA(7(Y@6Ah66`6(M(Y(Y@hH0H"p(\`p((p`#A@(`(`H'lKK@-h AAAAA(@6h6A 6A`6(((A‚@hAH0H"p`p(`(`,((`)(`A(@6zJJhH06`@0p ÂAA`@0p ΂(`+(`@1@pA`@%`@%pAA`@$hH$pAA `.MM@0@"@`2A`@@AAhD #((`+(`@1@pA/@`@AA`@pAŀ`(wJ`@0a8NFFp S(U`@1@pA\@`@'AA`@'p`ƈ@&hH&p@D@p(`@h@HpAD`@(((`+((sW @`@H`p z` ;;''A`p(72&$0@3"';,, "2>@BDd~hz0,@.fM&DDX^ĨDATA_BUFFERING_R92081-1X513 REV.2540 881202.2259/IMG2_5010/DBMON/WKHRD.PASD@n^BBX [ĨDBW.HASHREAD92081-1X513 REV.2540 881202.2259/IMG2_5010/DBMON/WKHRD.PASBADBW.HASHREAD \\ .DAD .DCO .DIN.DLD.DST .ENTR .LBPR .LPXR DBW.MAKEITEMPTR DBW.MASTERPTRSDBW.READRECORDEMA.COMPAREWORDSEMA.HASHVALUE PAS.NONCDS\kUU`?p(pA ?@(O(A< <@UNN>)@)OAA:)Q(h9(j9: (rp(: 8((x23:I>?@((`(@Z@Xp+`+@Yh+HYp1@D 1< A<pAA:AA:;`pVUU( >,> I AA AAA4(67p`A(236>?@((( ;@,SAA (Ap( 23I>?@(00 (< A<`(@Z@Xp.`.@Yh.HYp+A +(p0 v*`A $$%TBA 25p`Wp($ $ WF0 @UCCX? ĨDATA_BUFFERING92081-1X514 REV.2540 881202.2308/IMG2_5010/DBMON/WKBUF.PASC@ M? CCX#ĨDBW.FINDSET 92081-1X514 REV.2540 881202.2308 /IMG2_5010/DBMON/WKBUF.PASCDBW.FINDSET oo .DAD .DDE .DIN.DLD .DMP.DST.ENTR .LBPR .LPXR .MBT.MVWDBW.CLOSEDATASET DBW.DETAILPTRSIMG.ENDTIME IMG.INITDCBHDRIMG.STARTTIME IMG.TYPE1OPEN PAS.NONCDSoFF`ppp`"pp`@@Ah D     ((`('`p('(;A(/(;(6(;`p(8A8(  GFFF(J(ꀈ`(p`@p`@hH `@p`A@(h`@A mA(p(@6hH 6@`@AhD     `~~KHHA@ p`@!@p`@ pA((A@`@AA `@p`@hHp@D `@ @p`AA~,,,N `@ A6p6``p, u` /A`p(3@ "2>@z0@vVCCX Ĩ DBW.SCANBUFFER92081-1X514 REV.2540 881202.2308/IMG2_5010/DBMON/WKBUF.PASCDBW.SCANBUFFER9 AA Q.DAD .DIN.DLD.DST .ENTR DBW.FINDSET DBW.MAPBUFFERSIMG.ENDTIME IMG.STARTTIME PAS.NONCDSATYEE`ppA Àŀ((`pp`@H@88(`@ AA"`@p`@p`@ڄp8Ā(;(A>p`(W~~6E<<`@@p`@؈hHp(`@ڀp(^(b`((ep`(pp`@H@p`(`@@p``@~SSP))hHp((p88(o`@@p`@hHׄp`@hHp@D S t`   AA Ap`p(3  Ag0@'ECCX'Ĩ&DBW.READRECORD92081-1X514 REV.2540 881202.2308/IMG2_5010/DBMON/WKBUF.PASCaDBW.READRECORD) ww1.DAD.DCO.DDE.DDI.DIN.DIV.DLD.DMP.DSB.DST.ENTR .LBPR .LPX.LPXR .MPY DBW.BLOCKIO DBW.COPYRECORDDBW.DETAILPTRS DBW.FREEBLOCKS DBW.MARKBLOCKS DBW.POSTRECORDwHHmxDBW.RUNTABLEPTR DBW.SCANBUFFEREMA.CHECKSUMIMG.ENDTIME IMG.STARTTIME PAS.DOUBLEMOD PAS.NONCDSPAS.SINGLEMOD HqqPP`ppA Є((AA߈A($($AAAxA('('`(xA @ph AAAADP]*PKKx`@@ pfЄՄ(i(`(ň`@(@A҈((` p`A@(ʀ` @p@ Ap`AHH@(AA((`p`A@(`pDŽՄ((`P((`@ hppp`(pp`@ p::H@p((`P(pp`p(`p( `P(`p`pp( `( p( p88π(p`@ p`P((S`(S}>>( (;p`p`@ h H@p`A@(((6p`@p(R@A@(Fp`@p`@p`p(Up`(`@ [>>P(`@ p`@(upp`@ H@88(kp`@hAH( (xp`@ H@pÈ`@`p8(8(h BBAhA AA(p`p`(pp`@ H@p`@`p88(`hAH( (xp`@ H@8(8(KK`@@p ((AAň(((`ň@hHp@D(`@hHpA` Ap A`@@Ah D`@ v&KKAhA AA 9̈́Մ(<(`@A@pC`Ƅ@`ƈA@pAAD`hAH(b (xp`@ H@p`@ i1qFFA`A@AALjxhpA D`A8(8(d `hHHAH( (xp`@ hH H@h8(8(()??p`(ň`@@`P(( ʄՄ((P((`@ @A@(`@  `@ p`@ hH H`hHHAH( s@@(xp`@ hH H@h8(8(`@ h ((`@@pAAɈ(((((`Ɉ@hHp@D(2`@hHpA` 6QQAp :A`@@Ah D`@ h  dՄ(g(`@@pnA`@@AA`@pA`.HH(pp`@ H@p@`@ AA`@AAAxhp ADA`88(`@ Ah `@ @p`_yHHP(( `@ Մ((`P((`@ Ap@p刈 hH @AhH  `@ ((UAKK`@ h@`@ AhA AAAA3Մ(6(((`p刈 p`@ h YpP(c`LLwb))(`pAHx`@ @Ah AAAApP(`(pL ` 88x##Ap`p(" &3n;8"" &Ag.0"@K DDXĨ4DATA_BUFFER_POST92081-1X516 REV.2440 881202.2339/IMG2_5010/DBMON/WKPDB.PASD@ĢCCX1SBĨ4DBW.MARKBLOCKS92081-1X516 REV.2440 881202.2339/IMG2_5010/DBMON/WKPDB.PASCi4DBW.MARKBLOCKS##4.DAD.DLD.DST.ENTR .LPX.MPYPAS.NONCDS#SS3**`3p-`-@A(*p/p+`-@@H+@p..('`-@?<A0`>.@0:`,8+8/( S !*4 O"5 A22p,( o>Ag @CCXAĨ4DBW.POSTRECORD92081-1X516 REV.2440 881202.2339/IMG2_5010/DBMON/WKPDB.PASC)vDBW.POSTRECORD bbӻ .DAD .DCO .DDE .DIN.DLD.DMP.DST.ENTR .LBPR .LPX.LPXR .MPYDBW.BLOCKIO DBW.FLUSHBIBEXECIMG.ENDTIME IMG.STARTTIME PAS.NONCDSbDD`~pupppepm`u@A@m(Wpdpkpj`u@Hm@piPi(S`u@@A A{`Ai@ {AP(6(Spk`iph`hpl@`u@AA {DLL`h@AA {vAvxfvsvAv`u@@(f(hpd`hph`k(`A@h(`u@@A Av`Ah@ vAx`u@Ap}xA62NN@}(pdx(xx}`u@@A AvhhD   vP}((hh A Av`u@@A A@vD vAxx}vA }(((xjHH`hph(pk(pk(k`l@hpj`l pg`u@Hm@ph`e d(A ~((bpe q`u@vhf  AA vAv`u@@Axhg hh+(&<.DAD.DLD.DST.ENTR .LBPR DBW.FLUSHBIBPAS.NONCDS(SS--`5p0p/@`0@AAA11 4`CA4(+56((-4`0@Bh0HBp3=3p/S sX-`/7 [8A4`Ap/(& +A @:CCXOĩDBW.MAKEBIMAGE92081-1X517 REV.2540 881202.2352/IMG2_5010/DBMON/WKBIF.PASC UDBW.MAKEBIMAGE$ HH .DAD.DDE.DIN.DLD .DMP.DST .ENTR .LBPR .LPXR .MBTDBW.NEXTBIBENTRYEMA.MOVEWORDS PAS.NONCDSH&xII`p`((( p(p`(ppA((`@@p`@hHpA`@@AAhD    A` @cIRR6h6 A 6`6A  xhp AD`@h AA AAAAh D ((A ``@ 88zK(p t` 00TA pAAp`p($@"00@CCXJĩDBW.COPYRECORD92081-1X517 REV.2540 881202.2352/IMG2_5010/DBMON/WKBIF.PASC{DBW.COPYRECORDQ :: +.DAD.DDE.DLD.DMP.DST .ENTR .LBPR .LPXR .MPYDBW.MAKEBIMAGEPAS.NONCDS::HH`pp`@(pp`@H@pA@(`@A`@ Ax x `@P(`@@A|)HPP` A@AAA`@@Ah Dr(u(`@A`@ `@A `@88(p t` ""}A `p(3"Ag@DDX9ĩDBW.CHECKBIFFULL92081-1X517 REV.2540 881202.2352/IMG2_5010/DBMON/WKBIF.PASDMDBW.CHECKBIFFULLW II'.DAD.DCO .DDE.DIV.DLD .DSB.DST .ENTR .LPX .LPXR .MPYCHECK_POINT PAS.DOUBLEMOD PAS.NONCDSI }??`pp`( p(`@hH  Ap (p`P(1P(CP(U(X`P(7P(:(?`p(B`p(B?EE`(([`P(IP(L(Q`pA(T`Èp(T`(([`p([`(`@ Ap`@@@AAr`@A AAAA @$${h ((((p$ t` A p`p( '(  gnp@st4EEXjPĩDBW.COPYFRECTBL 92081-1X517 REV.2540 881202.2352 /IMG2_5010/DBMON/WKBIF.PASE]sDBW.COPYFRECTBL ?? M|.DAD.DDE.DIV.DLD .DMP.DST .ENTR .LPXR DBW.MAKEBIMAGEDBW.RUNTABLEPTR PAS.NONCDS?UU`qpmpdA pkqr( (ake ky AAeeAAeiAAknA n{HH A@pc n} Ag`m@@Anp D nnVicgnq*U r(Y(aA k0pd sa`ds !!DŽtA p`pd(BCD7;!Gh@d $DDXUOĩ DBW.MARKEOINTRIN92081-1X517 REV.2540 881202.2352/IMG2_5010/DBMON/WKBIF.PASDiBDBW.MARKEOINTRIN 22 %.DAD.DDE.DLD.DMP.DST.ENTR .LBPR DBW.NEXTBIBENTRYPAS.NONCDS2\\u55`@p9p8`9( p8(5A7@A((5@`9@NAA: :A`7HAA:>h7 DJ>< <`Np8\ st5`8B C A@`Np8($ N @+EEXf8ĩ"DBW.RECMODIFIED 92081-1X517 REV.2540 881202.2352 /IMG2_5010/DBMON/WKBIF.PASEYvDBW.RECMODIFIED 77<.DLD.DST.ENTR .LPXR DBW.DETAILPTRSDBW.RUNTABLEPTR EMA.CHECKSUMPAS.NONCDS7~KK`tplpcA pjtu( (_pqhfdtu((_sm`bP(9Aj~((9AhApo3sopoAm`o`b(]Aj~((]Ahpa((KAhHaHxoWsaopom`opc( s_`cv ## wAprpb`pc(; "# Q @DDX^,ĩ;POINTER_CALCULAT92081-1X518 REV.2540 881203.0000/IMG2_5010/DBMON/WKPTS.PASD@?l^,EEX7wĩDBW.RUNTABLEPTR 92081-1X518 REV.2540 881203.0000 /IMG2_5010/DBMON/WKPTS.PASEneDBW.RUNTABLEPTR 66 :.DAD.DDE.DLD.DMP.DST.ENTR .LPX .LPXR DBW.READRUNTABLEPAS.NONCDS6UUpW`cpZ@`Z@vA]aD m] k A("acd("(U`c@v@A]a Dm][ @[kAAXXAAo]A [q _]_XXbpW sU`We f Aa`upW(27*4 uh @CCXĩDBW.MASTERPTRS92081-1X518 REV.2540 881203.0000/IMG2_5010/DBMON/WKPTS.PASC&DBW.MASTERPTRS% 66 I.DAD.DDE.DLD.DMP.DST.ENTR .LPX .LPXR DBW.RUNTABLEPTR PAS.NONCDS6??`p`@(.`ψ@( (.`@P((.p`@`τ@`@`τ@(pʈ`p`@ `@`@@h?SSD̀(G(ǀh D  AAAAA`@p  AAAAֈ`@p`وA@pAAAA 鈀h@ VVA55`وA@pAhD  A AAAA؈`@p`ـ@ pV u1`ʨ ''%ApɈ`p((?# B'M mnoprtvx@CCXsĩDBW.DETAILPTRS92081-1X518 REV.2540 881203.0000/IMG2_5010/DBMON/WKPTS.PASC"yDBW.DETAILPTRS* 66 I.DAD.DDE.DLD.DMP.DST.ENTR .LPX .LPXR DBW.RUNTABLEPTR PAS.NONCDS6{D@@`p`@((`ˈ@( ((`@P(((`˄@`@`˄@p(Ap0ɀԀ(3(`Ԉp`@ `@ψ`@h˓@SSh AAA  `ԈA@pAA  `@pAAˈ`@p h MME..`@ph AAA  `@pAAˈ`@ pM u `Ĩ ''%ApÈ`p((?# B'H mnoprtvx@vEEX Iĩ DBW.MAKEITEMPTR 92081-1X518 REV.2540 881203.0000 /IMG2_5010/DBMON/WKPTS.PASEg:DBW.MAKEITEMPTR 22 .DAD.DDE.DLD.DMP.DST.ENTR .LPXR DBW.RUNTABLEPTR PAS.NONCDS2CC++Ap.5189( (+1/h- AAB3A 1D /3//7p.C sX+`.: m; A56p-`Hp.(A H @DDXĩ ROOTFILE_ROUTINE92081-1X519 REV.2540 881203.0005/IMG2_5010/DBMON/WKRTF.PASD@eFDDXmHdĩ DBW.POSTRUNTABLE92081-1X519 REV.2540 881203.0005/IMG2_5010/DBMON/WKRTF.PASDo>DBW.POSTRUNTABLE QQ .DAD .DDE .DIN.DIV.DLD .DMP.DST .ENTR .LPXR DBW.BLOCKIO DBW.FLUSHBIBIMG.ENDTIME IMG.STARTTIME PAS.NONCDSQvTT` ((\?A ;`Zp'(720*45D;C(Y  hj0@㩣DDXTĩ DBW.FREERUNTABLE92081-1X519 REV.2540 (( 881203.0005/IMG2_5010/DBMON/WKRTF.PASDWDBW.FREERUNTABLEs :: ….DAD.DDE.DIV.DLD.DMP.DST .ENTR .LPX .LPXR DBW.POSTRUNTABLEPAS.NONCDS:GPP`pp@`@AD   ((# (#(|p`@ AAAA  (?(|  @Ap x PP|P,,x `@`hHHAH(h (|xp~h~A AAA 8~(z8(jP tO|` pA `p(2745hj@lBDDX]zĩ DBW.READRUNTABLE92081-1X519 REV.2540 881203.0005/IMG2_5010/DBMON/WKRTF.PASD_DBW.READRUNTABLEx XXQ.DAD .DDE .DIN.DLD .DMP.DST .ENTR .LBPR .LPX.LPXR DBW.BLOCKIO DBW.FREERUNTABLEIMG.ENDTIME IMG.STARTTIME PAS.NONCDSX~~HH`pvpo@`v@A~D   ~ (((gpo`v@ pn@`v@A~D   ~xl`v@@A@l(G`v@ `v~isHDD@hvHHlHAH(V (xxpjhj A~`v@@AA~xi`i(l(tAqi(t(g8j(v8(X`v@ pm`v@@pwAAp@`v@[RRA~D   ~~hn `v@hm ~l((gAp~@`w@AA~~`w@p~`w@hwHp@D w Aw~~5"HH@`v@Ax`v@hvHHlHAH( (xwpjhj ~x~8j(8w(`v@x  AA xAAzz`v@xw@AwAz`v~llDR&AA@xw wAzrrxz AA~xAA~rAArtAAtAA| | |`v@hvHHlpol w#g`o ##A `po(275*4;#P  (hjlm0@N<EEX'ĩ #DBW.POSTRUNTBLS 92081-1X519 REV.2540 881203.0005 /IMG2_5010/DBMON/WKRTF.PASEwDBW.POSTRUNTBLS i.ENTR DBW.POSTRUNTABLEPAS.NONCDS..ep`&pp`pA ((88(p. s` A`%p( % @_!DDXR ĩ "SYSTEM_INDEPENDE92081-1X520 REV.2440 881203.0010/IMG2_5010/DBMON/WKDDT.PASD@3MR CCXrIĩ "DBW.BLOCKIO 92081-1X520 REV.2440 881203.0010 /IMG2_5010/DBMON/WKDDT.PASC5DBW.BLOCKIO **.DLD.DST.ENTR .LBPR .MVWEMA.DISCTRANSFERPAS.NONCDS*??!!A`3p(/@h(HHHGAC`(A@Hp)$)2#&4p%`(@H@Gp)A/`)C? s@!`%5 6A..p$AA0&1p#`Fp%( F"z @ 0+DDXĩOPEN_CLOSE_LIBRA92081-1X521 REV.2540 881203.0013/IMG2_5010/DBMON/WKOCL.PASD@aDDXWNĩDBW.FINDROOTFILE92081-1X521 REV.2540 881203.0013/IMG2_5010/DBMON/WKOCL.PASDfnDBW.FINDROOTFILE xx .DAD .DDE.DIN.DLD.DMP.DST.ENTR .LBPR .LPXR .MBT DBW.DUPLICATEDCBIMG.CLOSEFILE IMG.ENDTIME IMG.INITDCBHDR IMG.PARSEDESC IMG.ROOTOPENIMG.STARTTIME PAS.1 PAS.NONCDSx~~*HH`lp_pAkj@6h_H6t`_@peAeA`_@pe"eum(%(`_@@~p`,Af``@@A fAf``@pefe``@h`@HpeDe`_~{!HIIA@p` R`lm(U(`(`_@p` _``;A(dA`_@p`m`m(o`_@@~paAvf@`a@AA ff`a@p`f``a@haHp`@D`^"FF`P|((`kpA((A`_@p``m(`_@@~pbAf@`b@AA ff`b@p`f``b@hbHp`@D`p`A@(k(@@##@`_@AfhD  v fccx(k(`k`p(p@ v-`n do Aj`}p(@70| >@BDdhz0@4DDXXĩDBW.FINDOPENROOT92081-1X521 REV.2540 881203.0013/IMG2_5010/DBMON/WKOCL.PASDhDBW.FINDOPENROOT8 @@ /.DAD.DDE.DLD.DMP.DST .ENTR .LBPR .LPXR .MBTDBW.DUPLICATEDCBPAS.1 PAS.NONCDS@4JJ`pp]A Ă@6hH6 `@لp[ZY((W`[("`ZP(Sp\`׆A@\(R(R`@h\ AAAA (N""jWJ (N`\ŀ`\p\(&(U`Yp]" tAW`]  A `p](@70dhz@ (DDX(pĩDBW.ROOTCLOSE 92081-1X521 REV.2540 881203.0013 /IMG2_5010/DBMON/WKOCL.PASD^DBW.ROOTCLOSE ? rr .DAD .DDE .DIN.DLD.DMP.DST.ENTR .LBPR .LPXR .MVW DBW.CLOSEDATASETDBW.FREERUNTABLEDBW.RUNTABLEPTR IMG.CLOSEFILE IMG.ENDTIME IMG.STARTTIME PAS.1 PAS.NONCDSrGKK`pp`pp@`@AhD   Ɉ( (:A(:`pA -(0(A88(`@  A@ KKKT(W(AA0bA(e(@hHHAp`A@py({`@@pA`@ `@pAA`@h((@HpD AxA p( t` ""ɞA`p(37;02"  "BDhz0@OBBXĩDBW.ROOTOPEN92081-1X521 REV.2540 881203.0013/IMG2_5010/DBMON/WKOCL.PASB>qDBW.ROOTOPEN KK.DAD.DDE.DLD .DMP.DST .ENTR .LBPR .LPXR .MBT.MVWIMG.INITDCBHDRIMG.ROOTOPENPAS.1 PAS.NONCDSK!JJ`opdpcA l@6hdH6 y`d@pgg`d@pggbp((``d@6pg l6`g y`d@@Ahm D zhe`d@@pg Ae`g|`d@6pg ''Je}6`gA y eA exgA gpc' s``cq ""xrA lnpb`pc(@702" P"hz @[cz#DDXetĩTEMPORARY_KLUDGE92081-1X521 REV.2540 881203.0013/IMG2_5010/DBMON/WKOCL.PASDUeTEMPORARY_KLUDGE66  .DAD.DDE.DMP.DST.ENTR .LBPR .LPX .LPXR .MVWPAS.1 PAS.NONCDS6CCp_`bb Di (p_(`rb`_(0b Di ('p_(/bbb(/p_(b(4(Ub Di` `k`;;kC `mA` `Ap`c o`d(^`sp*`<(^p9p<; ^e o2f Ab(  rd @먫DDX1ĩ&CHECK_DUPLICATE_92081-1X522 REV.2540 881203.0021/IMG2_5010/DBMON/WKCDD.PASD@Y1DDXprJ t'o`r !!zA{`pr(70@3!h@1@@XCĩ,DBW.MAPBUFFERS92081-1X523 REV.2440 <850416.1429> /IMG2_5010/DBMON/WKSCN.MAC@c DBW.MAPBUFFERS33 .DAD.DCO.DDE.DLD.DRCT .DSB .DST.ENTR .MPYEMA.LOCALIZEADDR3IIAAA ʈpp A ӈpp`pA A(*(AA 4(`@p@p`p`p((p`䈀p@(x IAA`@PA(O(xA(\(xAAӈ(\(\(xx` @p`@`(s`@(p`䈈@p8(B (&`` `~~<< `(`䈈@pPڈ(`@(`@(`ڈP(P(p(`@((`p`لp(8`(`pppب`pp~)I`@pب   ""&"@ ;;Xb4&ĩ0WKDIO 92081-1X524 REV.2440 <850416.1429>/IMG2_5010/DBMON/WKDIO.MAC; ?WKDIO $$.DLD.DRCT .DST.ENTR DBDIO EMA.LOCALIZEADDR$44^!!!!#%("4 # @ DDXPĩIMAGE_COMMUNICAT92081-1X525 REV.2440 881203.0025/IMG2_5010/DBMON/EMMSG.PASD@2?/A(+(-p1L se-`1B yC A<=p0@p/`Rp1(2 R @Ts??X{2$ĩEMA.ADDRTOPTR 92081-1X526 REV.2440 <850416.1427>/IMG2_5010/DBMON/EMADR.MAC?`EMA.ADDRTOPTR .DLD.DRCT .DST.ENTR EMA.LOCALIZEADDR22lAAAA"!A(A`#2@oAAXBĩ"EMA.COMPAREWORDS92081-1X527 REV.5010 <880829.1647> /IMG2_5010/DBMON/EMCMW.MACAtP"EMA.BYTESCOMPAREEMA.COMPAREWORDS$$.DLD.DST.ENTR DBCBT DBCMW EMA.LOCALIZEADDR$[[W>>AAAA>AA@>@A(?A> @3>!@!(;:?A!""[@.L??XZ"ĩ%EMA.CHECKSUM92081-1X528 REV.2440 <850416.1427> /IMG2_5010/DBMON/EMCSM.MAC? 1EMA.CHECKSUM .DLD.DST.ENTR EMA.LOCALIZEADDRICKSM ++)AAAAA(+  @AAX!$ĩ)EMA.FILLWITHWORD92081-1X529 REV.2440 <881110.1628> /IMG2_5010/DBMON/EMFWW.MACANEMA.FILLWITHWORD$$.DLD.DRCT .DST.ENTR DBFWW EMA.LOCALIZEADDR$22)b "(`#2   @B$??X,,ĩ,EMA.HASHVALUE 92081-1X530 REV.2440 <850416.1427>/IMG2_5010/DBMON/EMHSH.MAC?FEMA.HASHVALUE // 0.DAD.DDI.DLD.DMP.DSBR .DST.ENTR EMA.LOCALIZEADDRHASH/<<&&AAAA ((*+(#`)pAAA &AA& < * @]AAXOĩ0EMA.DISCTRANSFER92081-1X531 REV.2440 <850416.1427> /IMG2_5010/DBMON/EMRWD.MACA,EMA.DISCTRANSFER88 .DLD.DNG.DRCT .DST.ENTR EMA.LOCALIZEADDRFMPREAD FMPSETPOSITIONFMPWRITE8ii@@AAA H׀ppGHGLN(A`A@EpD J(J(:A (43I(::I`F"i L @AAXΣĩ4EMA.LOCALIZEADDR92081-1X532 REV.5000 <881027.1041> /IMG2_5010/DBMON/EMLCL.MACA"EMA.LOCALIZEADDR++  .DIV.DLD.DRCT .DST.ENTR .ESEG .LBP.MPYEMAST + BKK`A(̄`p (  x (  x(^x(@`@(9x3A@`(\h`pp@(L`~~TKDD(\ xhhW܈(H`(qxg@`(;@҈phpA xh@pՈhp`A@pAh~ttT@@`@(hA(Ljx`HhH(\@@  @ ͨxhۈH 8(`@p@(ts   d @ ??XI'ĩ8EMA.MOVEWORDS 92081-1X533 REV.2440 <881110.1629>/IMG2_5010/DBMON/EMMVW.MAC?OEMA.MOVEWORDS $$.DLD.DRCT .DST.ENTR DBMVW EMA.LOCALIZEADDR$77q"""$"$(#%`&7 & @ƺ@@X`,ĩEMA.MAKENEWPTR92081-1X534 REV.2440 <850416.1427> /IMG2_5010/DBMON/EMPTR.MAC@uEMA.MAKENEWPTR##2f.DAD.DLD.DRCT .DST.ENTR EMA.LOCALIZEADDR#>>J&&&(&*(*(" ')`+> * @3jR*@@XC ĩEMA.SENDMESSAGE 92081-1X535 REV.2440 <881110.1630>/IMG2_5010/DBMON/EMSND.MAC@/EMA.SENDMESSAGE $$.DLD.DRCT .DST.ENTR DBSND EMA.LOCALIZEADDR$++)AAAAA(+  @ժ@@Xd(ĩEMA.GETMESSAGE92081-1X536 REV.2440 <881110.1630> /IMG2_5010/DBMON/EMTRV.MAC@uEMA.GETMESSAGE$$.DLD.DRCT .DST.ENTR DBTRV EMA.LOCALIZEADDR$77<,""""$&(#`'7 $ @=`\ mmm~~RDBW.ADDEDRECORD hS DBW.BLOCKIO  DBW.CHECKBIFFULL@DBW.CLOSEDATASET$DBW.COPYFRECTBL a :DBW.COPYRECORD^ DBW.DELETERECORDYB5hcpTDBW.DELMASTER T8~~~S DBW.DETAILPTRSf:DBW.DUPLICATEDCB"nDBW.FINDOPENROOTCDBW.FINDROOTFILEe DBW.FINDSET 8( DBW.FLUSHBIBmDBW.FREEBLOCKSWXDBW.FREERUNTABLEODBW.GETKEYPTR s*0~~~H  DBW.HASHREAD:-pDBW.INITWKHORSE J3DBW.MAKEBIMAGEPDBW.MAKEITEMPTR :DBW.MAKEMSTRREC jlpDBW.MAPBUFFERS& DBW.MARKBLOCKSmDBW.MARKEOINTRINcDBW.MASTERPTRS(:~~~;vDBW.NEXTBIBENTRYBDBW.POSTRECORDvDBW.POSTRECORDS rDBW.POSTRUNTABLEtDBW.POSTRUNTBLS  oDBW.PUTRECORD uG5-:cp:T DBW.READRECORD0CX:GERPTRS(&~((~~DBW.READRUNTABLEzDBW.RECMODIFIED :DBW.ROOTCLOSE A(: DBW.ROOTOPEN DBW.RUNTABLEPTR WDBW.SCANBUFFER{LDBW.UNDOINTRIN9DBW.UPDATERECORD+cT(&~~~xp DBW.UPFREERECTBLR+EMA.ADDRTOPTR 6gEMA.BYTESCOMPARE8# EMA.CHECKSUM: EMA.COMPAREWORDS8#EMA.DISCTRANSFER>QEMA.FILLWITHWORD;=EMA.GETMESSAGEIDEMA.HASHVALUE <#(.5(&~~~1 EMA.LOCALIZEADDR@]EMA.MAKENEWPTRFAEMA.MOVEWORDS EEMA.RECEIVEMSG2 EMA.SENDMESSAGE H EMA.SENDREPLY /PEMA.SENDREQUEST ,k6EMA.XCHGMESSAGE 4@)PLOG.DISPLAYPROC  (&~~~ LOG.DISPLAYRECVmLOG.DISPLAYRECRD[LOG.DISPLAYTEXT `LOG.DISPLAYXACT =LOG.GETADJLOGREC*LOG.INITGETLOGFC/_LOG.MAKETIMESTMPCLOG.PRINTCHARSLOG.READCHUNK #R~~~\LOG.TUFHEADERIO 3ELOG.TUFLABELIO1SLOG.WRITECHUNK'-RCV.DBASECLOSE6"RCV.DBASEOPEN =0RCV.DELETERECORD8[ORCV.PUTRECORD @aRCV.UPDATERECORDDIe#R+/~~~TEMPORARY_KLUDGEWKDIO *gIO1S/LOG.WRITECHUNK'-+/5RCV.DBASECLOSE6 $RCV.DBASEOPEN = %RCV.DELETERECORD8[ !.RCV.PUTRECORD @a !RCV.UPDATERECORDDI !).#R+/~   /} / |:/ /+} $/) |:/fdQ@ ?-/C >> 1 _11!! 111 >!! 1zzJ\\ zI_>`` D``  @,vK6DDXȀSOPENDBCONFILE 92081-1X551 REV.5000 870223.1604 /IMG2_5*0/UTILS/DBU_3.PAS DjOPENDBCONFILE .55IMG.GETDBCONNAMEIMG.OPENEXIST PAS.1 PAS.NONCDSUTL.CREATEDBCON UTL.FATALERROR5@@@A\( \(`P((\((@  )8(  @k+DDXLSUTL.INITIMAGE 92081-1X551 REV.5000 870223.1604 /IMG2_5*0/UTILS/DBU_3.PAS DaDUTL.INITIMAGE 44[VGETCL GETRN MAKECOMMBUFFERPAS.1 PAS.NONCDSPUTCOMMBUFFER UTL.FATALERROR4yy_CCA(AG`Kp H(!H(!H(!H($$IA(HA(6.H(6A4HA(99J<A(AAGpy JCD kE8D( K @2GAAX7SUTL.FINISH92081-1X551 REV.5000 870223.1604/IMG2_5*0/UTILS/DBU_3.PAS AkUTL.FINISH~CC GIMG.CLOSEFILE IMG.ISINTFILE IMG.NLSBLANKIMG.WRITLONGSTR MDBU_3NLREADREL PAS.1 PAS.NONCDSPRTNC~~<>s((Ap`Ip(QUERY DBMON DBSPL DBCLN DBUTL DBRBR DBRFR DBSTR DBRST DBULD DBLOD > I @a怦CCXSUTL.RUNUTILITY92081-1X551 REV.5000 870223.1604/IMG2_5*0/UTILS/DBU_3.PAS CUTL.RUNUTILITYb||.CBT.DST.ENTR .LBT.MVWFMPDEVICE FMPRUNPROGRAM IMG.APNDLONGSTR IMG.APPENDSTR IMG.DEFAULTFILE IMG.ISINTFILE IMG.NLSBLANKIMG.OPENEXIST IMG.PURGEFILE IMG.READLONGSTR IMG.SCRATCHFILE |PP \ IMG.STRINGMGR IMG.WRITLONGSTR MDBU_3NLREADREL PAS.1 PAS.BLANKFILL PAS.INLINEERROR PAS.NONCDSSTRDSCUTL.NONFATALERR PLLAAA 0A(+ *0(6A.W 6WA=ADFA(O NF%LEE(dVA Z(\A d`@p  P(pP̈(tP(t(As(A{` A@p(h`p ` @@@(` @Հ(` @(A`@p  P(P̈(P((„((` @p A (h`p ` @(Ӏ` @eCCA(`@Ոp  P(ꈈP(P(A(((` @̈́p  (hHh6HHP(( A (]`@pP(XHHP(P(A(Z(](]`@A6p )h6` A(G(1`@6p <\h6` (G(DAGNAR`@̈́p Y (]h1\FFHh6HHP(d(π`@pP(pP̈(qP(u(̄(t(`@6p h6` ((`@6p A\hA6` (((AhDD(`@A6p h6` A(A((A((hHh6HHP(Pш(P(PӈA((㡪mpl(@@mpl(Ampl(mpl(hDAl  F(AAA%p4&BB`(2 -(/2A5hPބ(};(F A(CFA K(M`A(h UF(` [(]A` e(g(M443eh`P(t o(qtA xA(}}`(A4  AA$c,,A`hA(,@%&\RU, UTL ,AB ABCOVEV ,VE NV,NV A  DLRSUTg @7VCCXXSUTL.RUNRECOVER92081-1X551 REV.5000 870223.1604/IMG2_5*0/UTILS/DBU_3.PAS C[UTL.RUNRECOVER\8.CBT.DST.ENTR .LBT.MVWFMPRUNPROGRAM IMG.APNDLONGSTR IMG.APPENDFILEIMG.APPENDSTR IMG.CLOSEFILE IMG.DEFAULTFILE IMG.ISINTFILE IMG.NLSBLANK IMG.STRINGMGR IMG.WRITLONGSTR MDBU_3NLREADREL ::.&PAS.1 PAS.BLANKFILL PAS.INLINEERROR PAS.NONCDSSTRDSC UTL.FATALERRORUTL.NONFATALERR :6ELL`(Ad exfgeNhiAAejei#&0(1A 0g0kel(<4A <gkelACejeiG Og~~=\LDDkelVejeAiZA bgFkel`ZpȀHhs6P(j(|`@(|`@(|`@(Aejei'`Zp`@~DD(`@(`@(`@(ejeiA΀`Z@pʈP(P(P(((m(`@6peznght6`g((~EE`@6pAe{nghuA6`g((o`@p(hH`Z@pP(P(P(A(B(Em(E`@A6pe|nght6`Ag(/(eHH`@6pA$e}nghuA6`g(/(,A/o6ejei:`@pAAȀ(EhALe~pVhhv6`w6h(V(ֈ(`Z@pP(bP(cP(caCC((`Z@(tApejeit{ejeAi`@p(hH`Z@pP(P(P(((`Z@(`Z@@(IIenAi(`Z@(ejeiAAejei`͈A@pҡ(AhepVhhv6`w6h(((qmDDgpl(rmgplglA FC( FC(  C(egAAFHehD#FQDp (FC(- -CA 1C%%0/1A(66C`(@Jh16HHJ #.2 %%s3A00p/(9d< ?@ % H 0d @ߒEEX$SUTL.HEALTHCHECK 92081-1X551 REV.5000 870223.1604 /IMG2_5*0/UTILS/DBU_3.PAS E5UTL.HEALTHCHECK y~~~.CBT.LBT.MBTDRMNT IMG.CLOSEFILE IMG.HARRYKERRYIMG.NLSBLANK IMG.OPENEXIST IMG.READDBCON IMG.UNLOCKRESNO IMG.WRITEDBCON IMG.WRITLONGSTR MDBU((_3NLREADREL PAS.1 PAS.BLANKFILL PAS.NONCDS~  UTL.FATALERROR LLA(A( ((A( &(&\&(+A+&2gh6A`6(f(;h6`6A F&(``&P(L(`uELGGASm'plAY'l ^F'&(`A d&A(fm\&(rAr&ygh6`6((h6A`6 &(`&P((zbGGAm'plA'l F'&(A &A(\&(A&gh6`6((h6A`6 &( `&P(( o9CCA\&(&A\&(A&m'pl'lA  F'&(  &(`*(\`PŠ(`PrDDA((\&\&(++&h6HP(1(\h6`6A <&(V`&P(B(VIm'plO'Al TF'&(V Z&(\c\aDD&(hAh&h6@(uh6@(u(h6`6A &(`&P((m'pl'Al F'&( &(\8;;&(A&(`p(`0p(`p(Ĩ`0p(ͨ`p(Ш`0p\&(A&`*~~55(%`/(`+(`,(%`P(`P((% \&A(&p`p`˪p`p`p`0~''Tp`pA \&(%%&' o% [[f998( @1g@DBUT5 QUERY DBMON DBSPL DBCLN DBUTL DBRBR DBRFR DBSTR DBRST DBULD DBLOD [+@o@@X31DBUT4 92081-1X552 REV.5000 870113.2128 /IMG2_5*0/UTILS/DBU_4.PAS @@HEEX-D41UTL.SPECIALREAD 92081-1X552 REV.5000 870113.2128 /IMG2_5*0/UTILS/DBU_4.PAS E;>UTL.SPECIALREAD BB.ENTR FMPIOOPTIONSFMPSETIOOPTIONS IMG.FMPTOIMAGEIMG.ISINTFILE IMG.READSHORTSTRPAS.1 PAS.NONCDSB`` 66A;("`;@Bp:A :=9=(A==(6`9p8`8Cp8`;@Bp:":A=8';<=(),;(6`;@Bp:6:79` 76> e?A;( &B" @k]CCXH41UTL.RUNPROGRAM92081-1X552 REV.5000 870113.2128/IMG2_5*0/UTILS/DBU_4.PAS CUTL.RUNPROGRAM44.DST.ENTR .MVWFMPRUNPROGRAM PAS.1 PAS.NONCDSSTRDSCUTL.NONFATALERR 455cA# 'AA!#-!쀈(``-(A-5   A`hA(*  @CCX51UTL.LOGNAME 92081-1X552 REV.5000 870113.2128 /IMG2_5*0/UTILS/DBU_4.PAS CUTL.LOGNAME 4 }} .DAD .DCO .DDI.DIV.DLD .DNG.DST.ENTR .LBT.MBT.SBTIMG.APNDLONGSTR IMG.APPENDSTR IMG.LINTTOSSTRIMG.STRINGMGR PAS.1 PAS.BLANKFILL PAS.INLINEERROR PAS.NONCDSPAS.SINGLEMOD }IIp2p-A }ƈP(P(P(,(Z=(]p-$=؈`@p+=(]`@@6HP(5(Fp->=`@pE=(Y`@6dINNAh6UAY=(]hA (j`1 @`1 @3 3(|(y(|`(+ ((   A`-(h6`6`1PhOO(P(P(P((A}(A}(A}(Hh`1P(`1PA((5`0 @Dh60 ggEEA@hD6 0@h6HD}5`-(A}=( A}A}5!}5)}p2g v+`2 ``̉AAAp1p0`p2( /?d @=}5/IMAGE2/::::+BIF+TLF+RL :::1: ''`5  0d@fEEX=|71UTL.RENAMESPARE 92081-1X552 REV.5000 870113.2128 /IMG2_5*0/UTILS/DBU_4.PAS EkeUTL.RENAMESPARE 22P.DIV.ENTR .MBT.SBTIMG.RENAMEFILEPAS.1 PAS.NONCDSPAS.SINGLEMOD 2gg#>>hr6`b6Am`@ {@zhr6AHv@no Ay@zhr6HwD&@pq@zhrD6Hx0Bbd(5pA(>hb6`r6mpAg s>`Ae /Bf Abcp@`upA(@d' *Bu 0d@2 PCCX571UTL.SYSPROCESS92081-1X552 REV.5000 870113.2128/IMG2_5*0/UTILS/DBU_4.PAS C3%UTL.SYSPROCESS 11!.ENTR .MVWIDGET IMG.OPSYPAS.1 PAS.NONCDSSYSTEMPROCESS USNUM 144rA(Ap !pAp`(p (p (p 4 s%` % & A$`$h1A0`4p (! 4 @cႡ~~. OPENDBCONFILE 'UTL.BUILDBMHDR(UTL.CHECKPARMS#RUTL.CREATEDBCON y UTL.FINISH5UTL.HEALTHCHECK DD UTL.IDENTCMD!UTL.INITIMAGE | UTL.LOGNAME T`UTL.MAKEVOLNUMB/UTL.OPENCMDFILE ~~~P0 UTL.OPENLISTFILE&UTL.OPENLOGFILE O UTL.PARSECMDK UTL.READCMD oUTL.RENAMESPARE [0UTL.RUNPROGRAMRbUTL.RUNRECOVER6{UTL.RUNUTILITY*UTL.SPECIALREAD P6UTL.SYSPROCESS]lOPENCMDFILE ~QUERY.LIB::IMAGE2:5:116:128 644 0 0 72000 5300466311 35006 QUERY.LIB::IMAGE2_6000:5:116:128  $t  tQUERY LIB +l+l+lt9~FST p;;Xcĩ%QYHD2 92081-12012 REV.5010 <880829.1623>/IMG2_5010/QUERY/QYHD2.MAC;@Ec;;XʔSLSCAN 92081-1X591 REV.5010 <880829.1615>/IMG2_5010/QUERY/LSCAN.FTN; LLSCAN  ##.ENTR .CPM.ARTN SPUTSGETSMOVE INPUT # az }}8"PPA@p@@(((#`B@p`A}~~SZZ~~~r966`D(`R(pĈ`QP((È`P`OP((`N`MP((ψ`L`KP((`J`GP((ۈ`I`HP((`G(=~==Ap(=F(((((p(=p1`EP( (=`p?1?À0@pÈ(`D`C(::_ $A()p?(0?(7`A@p<(:&Ac"@  @f::X6]LOAD92081-1X592 REV.2540 <851118.1428>/IMG2_5010/QUERY/LOAD.FTN : p LOAD ""d.ENTR .EXIT QRIOMLOAD NLREADREL SEGLD "DDA@pV [1Xp`pU1WU#WZ`W@Vh\+23[Xp`pU<((W3U1BWZI a;E1YXp`pUSW1U  W16@V::XGTPRC 92081-1X593 REV.2540 <851118.14 /IMG2_5010/QUERY/GTPRC.FTN: bGTPRC  JJn.ENTR .CPM FMPCLOSEERIOMGTPRCNLREADREL SMOVE SGET JSCOM LSCAN INPUT FMPDEVICE FMERR GTPMJ  @@A @ p `p@ `P ("(?`p *@ `P (.(2@p(Q`P (6(?<@ `P (QF3p`p)KDD3P([3@ 3`(c8b(8fP(i(p3p`pz3 ~(桡 1@ `@ (( yDD 1@(`@P((1 @`PhX 0hX 0(p`p`@h88퀄(p  ((Ɉ`  11 1p`p3  p 11= RUF@?^::XGTPM92081-1X594 REV.2440 <840912.1414>/IMG2_5010/QUERY/GTPM.FTN : zGTPM  ''.ENTR .LBTFMPOPEN FMPBUILDNAMEFMPPARSENAMESTRDSC'}}eHH@p@pp h@ph@0(`(`p (}GG&&ր(ހ`(( `(( G77Jroworwo rwoc @@@ @ @  347@HgG;;XGETVL 92081-1X595 REV.2540 <851206.1131>/IMG2_5010/QUERY/GETVL.FTN; mGETVL << } .ENTR .CPMERIOMGETVLNLREADREL LSCAN SMOVE CATR CATDI CATISGETSFILL < % RX [DD@p@ppP(+(-`p@p9p p(zpI1@ `P(`P(PhnT??X (^`P(^(@Ĉp ` p C (i(n@ `P hX  0hX  0((a` p@ p `p`P(`P((` p (v`P}} @@(1p`p1(` @ (UP(P(`(` @ p   ` ((` @ p   ` (}}}DD(`(耀` @ p   ` ("(` @ p   ` ("  (U` @ A((4   (U1}tBBp`p!1()1p`p31(;1p`pE1` @ @ p U  ` p ppY99^ `P(`P(vk1p`pu1(88(B`P(3p`pp,; c@/M;;XISPTH 92081-1X596 REV.2440 <840912.1414>/IMG2_5010/QUERY/ISPTH.FTN; :ISPTH  .ENTR .IDLP DBINF SGET D }}b6DD6@6p@9p`p5L6799(T4`4P(h^6799(`8(g((o6799(`p`ph}--2z(p`@8(`@p8(}p5`5:-{-.ʀ@^}sDDXISSRT 92081-1X597 REV.2440 <840913.0754> /IMG2_5010/QUERY/ISSRT.FTND :ISSRT  .ENTR .IDLP DBINF SGET D k6DD6@6p@9pp5L6799(}T4`4P(X(}_6799(}`p`phA(zp`@8({`@p8(nxz(}`p5`5:z]-ʀ@;;XGTSRT 92081-1X598 REV.2440 <840912.1414>/IMG2_5010/QUERY/GTSRT.FTN; љAGTSRT  F0.ENTR .IDLP DBINF x=BB=@=p@@pp`p`@h88(N]=>2`2(`p`Aph(wp`@?(x`@p8(k(`@p<==$`<(=<2`2(p`p`@hH88(A=f- @འ;;XMEMBR 92081-1X599 REV.2440 <840912.1415>/IMG2_5010/QUERY/MEMBR.FTN; s:MEMBR  F0.ENTR .IDLP DBINF zzWL6??6@6py@9pxp5L68}99(s7([P(V(s`7(q`pv`|phv{(ppw`@z7(q88w(e(s`~p5`5:zwz@;;X6INPUT 92081-1X600 REV.5000 <870428.1458>/IMG2_5010/QUERY/INPUT.FTN; V INPUT  77 .CPM.IDLP LOAD ERIO MINPUTNLREADREL QRIOSPUTSMOVE SGETFMPCLOSE7 A;? _  HH p ppp`(A`("1 (53(%3`(L`(51 <1%4%`pp(hG1%3`(`h 0~~SDD(``p!^(3!2(e(`(om%p`@hH(y(p `(p$ `1P((`p8 8$(`@@@~=??p`p h%A&(p#1 `0P((@ p 8#(1%@8`@pÀ`(`P(3@0`p(@p  /3)p`p!~~FDD .1!(3(- ,1)p`p! 1(!( 1+)p`p! (1!( *1)p`p! 1(!~`'p 0($%  "H @k ;;XREPOP 92081-1X601 REV.2440 <840912.1417>/IMG2_5010/QUERY/REPOP.FTN; t5REPOP  gH.ENTR .CPMSMOVE JSCOM SGETLSCAN 66L%%SPACE SKIPADD COUNT AVERAGE A1A2A3A4A5B1B2B3B4B5EZE0E1E2E3E4E5E6E7E8E9AB6~~і2DDA2p0p1p-p+p*p&p)p(p/1P@23.`P.(23P(Y(Fa1@24(Fi@23.23(m(r@2,`,P$(v(~~~tv<<`0(p0p/@23.`P.(J`P.((`0@1@-@+@*p0` v#@h0`&@)@(p&` v#@h&45`,P#((`1(`p1({4(`p%~~~EE23P((@24(:`@%p%1@24(:`@%p%@24(:`@%p%1@24(:`@%p%@24(:~~~)OGGp%1@24(@`%p% @24(@`%p%1@24(@`%p%'@24(@`%p%41@24(@P/(S(`1(`%~~~7>CCp1({`0(`%p0({23P(L(T@24(` v#@p` v#@(p/1t@23.23(x(}1@2,`,P$((~AA`-(`p-({`,P#((6`+(`p+({23P((@24(`*(` vA#@p` v#@@0(`p*({23P(nEHH(1@24(`)(` v#@p` v#@0(`p)({23P(( 1@24(`((` v#@p` v#@! DD0(`p(({` vA#@p` v#@@0(23A(3(p%<@23'`'P({`p%`'P({`%p%`'P({`%p%`'rrN33P({`%p%`'P({`((%p%`'P({`%p%`'P({`%p%`'P({`%p%`'P ({`%p%`'P!({`%p%`'P"({(`&(`%p&({rn30NSR<;(d' @O;;XVALUE 92081-1X602 REV.2440 <840912.1418>/IMG2_5010/QUERY/VALUE.FTN; N VALUE  ##_.DNG.DCO.ENTR .CPMFMPREAD FMPSETPOSITION#~~-?IIA@php8@(:@@|,|`(p|151|8@ @p`pp`(zp~`@ H~QQhP,,   (v(v@@@|k|`(p|t11| 88~(J Q 0 @K;;XhCĩ&"WORKR 92081-1X603 REV.2440 <840912.1418>/IMG2_5010/QUERY/WORKR.MAC;INITX WORKX 55 .DDE .DLD.DMP.DNG.DSB .DST.ENTR FMPREAD FMPSETPOSITIONFMPWRITE5  <A :AAb))  <: >AA A%@>Ap (32@ A9@ A@pt4;;X^*ĩ&'QSORT 92081-1X604 REV.5010 <880829.1711>/IMG2_5010/QUERY/QSORT.MAC; QQSORT F.ENTR .MPY.MVWCMP L;;@p@(A@pA@(@p`p@pp鈈8`p`p`p`ph/`ވh.hHx`@߈@p`.h/(E(E`߈p`p~~B88`.h/`@@@((`.h0`/h1`p`p刈`@p`@(`h.`.h0(V`@p@(v`߈h/`/h1(((f`p@p~z55`.h/`ވh.`.h/((`߈p`p`.h/`.h0((`.h0`@p`p`1h/(V(V`/h1`∈@p`p刈(V`@pވ`P(`.h088(`0hވ`.h`P(`/h1(`1h`/h`@@h@(`܈p`@p`@p(߈`p`@p`@p`P(hH (d==`@((`P)@(p@ x`@x(`@ h`@ꈀh(#Apx(88(8pxh興pۀ""C$`8戀888 (2\"    ( @C|b<99X CMP 92081-1X605 REV.5010 <880829.1712>/IMG2_5010/QUERY/CMP.FTN9 CMP  ((v.DSB.FSB.TSUB .DCO.ENTR .IDLP STCOM SMOVE ( fIR ~~@@A`@p@p@pp`ph(Èp`@@p`@@p`؈@@p ` @@p `PhX (P W~R?? `P([(`P(p`(e`(h(`(`@(((`(w`(z(`(AA((ƈ(`P ((`P(`(`((rrJ<<`(Ɉ(((`(`((`A(`(((   ((ɀ(@p8(+p(p(p`rD Z<@KjFFXFCLVCHK 92081-1X606 REV.5010 <880829.1618>/IMG2_5010/QUERY/LVCHK.FTNF PLVCHK  B .ENTR SMOVE JSCOM FIELD kkg99A@p<@?PB(8@?H>p:x;1 :A@;`("(+)@@(8`4@@@= kI=30?KF@bꁪ;;XFIELD 92081-1X607 REV.5010 <880829.1621>/IMG2_5010/QUERY/FIELD.FTN; fFIELD  55 .ENTR .CPMSMOVE DCRTA CRTASZONE SPUTSGETCDITA CITASFILL 5IR -0~~ zAAA`@p@p@p(.1`@`@p`p`@p`@p ` P(K(R`~S??(\Y`(``p`pi`P(u`P(p(u`p|88݊(d`(]'AA pۡۀ (` P((㈊`( `鈡( `( Έ((``@pـ/   @f!&DDXiHSKIP92081-1X608 REV.5000 <870501.1320>/IMG2_5010/QUERY/SKIP.FTN D ,SKIP {1.ENTR .CPMQRIOPHDRI SFILL TOPAG   ||DDA`((-`(`pˡ p(-*E1G-3̈(((6(C<F E`p(- |@sPEEX2dPRTLN 92081-1X609 REV.5000 <870428.1459> /IMG2_5010/QUERY/PRTLN.FTNE WPRTLN  ##.ENTR .IDLP SFILL SKIPIFBRK QRIOSGET#~~9AA@p\@p[p``@[pXXpph]Aa(1pZ(`bP(,(1@p8Z(#`pX:]1 X`p@(T`_@[~,,TDh]H[pXxYMXYS^b(V`cp,hN] @_DDXܳHDLN92081-1X610 REV.2540 <850416.1736>/IMG2_5010/QUERY/HDLN.FTN D w- HDLN  ((ϕ.ENTR .CPM.IDLP TOPAG SFILL QRIOIFBRK SGET(  BB@p@pp(.p(,p%1 `p88(ph(Cp:`P(>(E@p8(5p`p~~YHCCN `pT(`@(w`@pp`(spl `p88(f` @ }3͈(( p(`~ p f} @t!::XYEDIT92081-1X611 REV.5000 <870501.1517>/IMG2_5010/QUERY/EDIT.FTN : qyTEDIT << .ENTR .CPMREIO .IDLP SMOVE SEDIT SFILL SPUT SGETLIT MEDIT NLREADREL <QX0$9* Z~~Q@QDDAQ@RpQ(^(sSp(g(g`pmr(pM` v(p`M#@Q(8M8(z1p`Apx1x~BB(v`M#@pxx`pOpM`(p~ ML`LP(8M8~(pOpNpM`(p} ML`OhLX px`LPpz`0zhLX66Q 0hLX 0xhOX px`LPpz`z0x(`NpN6]>>8M8}(pJSPN(aSN(((`O(`NS(aSpPpM`P('p| RML`LP((a`JpJSSSN(a(a8M8|((a`OP(,(8Spx}}~/@@5RxN`NS(a`JS@NpKSpMh (Xp{ KRML`M@KpxSRxL@MpM8{(F^RKS@KSS@J@px mRJx t}o R`ST23PN@8::XBUFLN 92081-1X612 REV.5010 <880829.162/IMG2_5010/QUERY/BUFLN.FTN: [ BUFLN  .ENTR SMOVE EDITFIELD LIT SPLIT  R ~~KCCA@p~@p}#@p{#@p|{|#@p`(-,(_#@p#@(y`@~p{#@p|H 1{@|`~__iI22@~hHX 0(_`@~p{_{#@pp`@p`(rp`py _9 33Q FUO33TPSR@<;;XPHDRI 92081-1X613 REV.5000 <870428.1459>/IMG2_5010/QUERY/PHDRI.FTN; [PHDRI  ''}.ENTR .CPMHD((LNSPLIT SMOVE SGETCITABUFLN ' a 2FFA@ppp `ŀpp ` v(p` #@pĈA(2((7(` h X 0(HH`p ` #@(VU (` #@Z??(`1`p `p `pk `P(o(v@ p 8 8(f` #@p` @p ` (p `@ p `p ` @ @p  ` #77\@p` #@p8 8((` (733SRQO3PN0@C??XTQRIO92081-1X614 REV.2540 <851118.1429>/IMG2_5010/QUERY/QRIO.FTN ? rCQRIO  :: 8.ENTR REIO LOAD FMERR MQRIO NLREADREL FMPWRITEFMPREAD RDREC FMPIOOPTIONS:~~h?AA?@@pB(OB@pB(UBp?(Y(`(~@(`(~e@<;`;(~rA@8`(y`p((~p`p(~~~ZDD@Ap`hX ((`?((`p@A`(`p==Cp3p`p(3p`~p(3HH&&p`p1p`Ap1 `p 8(H18 16@GGXLTOPAG 92081-1X615 REV.2440 <840913.0757>/IMG2_5010/QUERY/TOPAG.FTNG ATOPAG  Jd.ENTR QRIO %%hA@p% 1  @<(ZCCXOLERIO92081-1X617 REV.5000 <870428.1457>/IMG2_5010/QUERY/ERIO.FTN C q2ERIO .ENTR LOADSMOVE FMPCLOSEQRIO~~<BBp`J((`G`Kp`(`(8'.1EIE`ppʀ`(8`Hp(@`(>`Kp`FpC0~cD(16  @n;;XDBERR 92081-1X618 REV.2540 <851118.1427>/IMG2_5010/QUERY/DBERR.FTN; kDBERR  &&.ENTR .CPMERIOMDBERRNLREADREL CNUMD DBMES &SQ``  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_` `abcd yy(iDDiipAi0(`i@ph`h(h`pj(idpg3dp`pj1kyd@X<<XfDBMES 92081-1X619 REV.2540 <851118.1428> /IMG2_5010/QUERY/DBMES.FTN< 1DBMES  .ENTR MDBMESNLREADREL  tA 3p @}6<<X?FMERR 92081-1X620 REV.5000 <870428.1458> /IMG2_5010/QUERY/FMERR.FTN< s*FMERR  .ENTR FMPWRITESTRINGFMPERROR88'' 8--<((1(:6)'<`>p *M N-@Spr0GGXM^vSPLIT 92081-1X621 REV.2440 <840913.0757> /IMG2_5010/QUERY/SPLIT.FTNG NSPLIT  V1.ITOI .ENTR .EXIT aBBA@po`qp`rpn`@o 88n(p`(Bp`rpmhtt@p`(2`@ohhtp88m("`(B`q@o p`LLdF%%(i`up`ppltHph@p`(e`s@@oh`@p88l(KLEp @'2EEXb1LIT 92081-1X622 REV.2540 <850416.1740>/IMG2_5010/QUERY/LIT.FTNE LIT  .ENTR .CPMSMOVE RR++A@p-p+1@+/((``0h0H.p+x,)1@+,/R . @L;;X"*ĩ(STCOM 92081-1X623 REV.2440 <840912.1418>/IMG2_5010/QUERY/STCOM.MAC; NSTCOM H^.ENTR SGET ==% x&H&Ax'&(')`)@(8&h& ( =@ 3';;X]$DCRTA 92081-1X624 REV.2440 <840912.1413>/IMG2_5010/QUERY/DCRTA.FTN; JDCRTA  .EIO. .TIO. .DTA. .ENTR .EXIT ++p@p`6p!h"A #AH`+ (G24.17)  .4   ,@ @ơGGG~~BUFLN T3.=CMP ;nDBERR b: 5DBMES eODCRTA miEDITN/ERIO`1FIELD Aq'FMERR fYGETVL <5GTPM CGTPRC P5EUGTSRT FHDLNK INITX 3U~~~INPUT  m5ISPTH mISSRT !LIT jLOAD)LSCAN KLVCHK ?~=MEMBR |PHDRI W%nPRTLN HAQRIO[EQSORT 5>REPOP &=SKIPF> SPLIT h-U~~~ѤSTCOM lMTOPAG _VALUE 1WORKX 3ULOAD)LSCAN KLVCHK ?~MEMBR |PHDRI W%PRTLN HAQRIO[ QSORT 5>REPOP &=SKIPF> SPLIT h-U~BU,,6 mK-kXŵ==&ҵ 0=&-+ Z-=8-5c;-P B U-AkmǍkQ-W -Qc=-kQ3 -Z-UY6=__`K -neKKXe-g$3-Q -S - -CDS_DBMS.REL::IMAGE2:5:388:128 644 0 0 302000 5300466313 36267 CDS_DBMS.REL::IMAGE2_6000:5:388:128 #$  $CDS_DBMS REL +l+l+l;FST ;;XPĨCDBMS 92081-12023 REV.5010 <880829.1705>/IMG2_5010/DBMS/CDHD1.MAC ;@2P;;X#Ĩ.IMCL 92081-1X171 REV.2440 <850416.1424>/IMG2_5010/UTILS/_IMCL.MAC;.IMCL WIMCL @ $IMCL .ENTR IXGET IXPUT ""p 8"@wɖ;;X&Ĩ4DBADR 92081-1X194 REV.2440 <850416.1403>/IMG2_5010/DBMS/DBADR.MAC ; .DBADR    L`@;;Xuĩ1DBBUF 92081-1X195 REV.2440 <850416.1403>/IMG2_5010/DBMS/DBBUF.MAC ;:Q.SBUF =.STAT <AIRUN BTCNT CDBST CILAD RCILST CKEYS COMBF DBBFDBBPT DBBUF DBCBF DBMMT DBSBF FNCLN MXMSG MYCLS %%>MYNOD OPNCT PNAMPRCID SQCTR %AVLMENDMUNM2UNMEM  (`֋ '<R@Ec;;X  ĨDBCBI 92081-1X197 REV.2440 <850416.1403>/IMG2_5010/DBMS/DBCBI.MAC ; ,DBCBI qCILAD CILST   44pH`p  ((8  @p8 8 (`4  @;;XV6ĨDBCIX 92081-1X199 REV.2540 <850416.1403>/IMG2_5010/DBMS/DBCIX.MAC ; 3DBCIX oAIRUN DBFDI    jjϢ53pH׀p HH@p p  ׈(3p "  (` `@@Hx8 8 (1 (8 (`jN @;;X*  ĨGETCL 92081-1X201 REV.2540 <851206.1447>/IMG2_5010/DBMS/DBCLQ.MAC ; 0GETCL vCLRQ   88?pr(((('((`8  @ț;;X Ĩ((RETCL 92081-1X201 REV.2540 <851206.1447>/IMG2_5010/DBMS/DBCLQ.MAC ; 0RETCL vCLRQ        @aZ;;X3 ĨGETRN 92081-1X201 REV.2540 <851206.1447>/IMG2_5010/DBMS/DBCLQ.MAC ; ?GETRN RNRQ   ++p ` `p"( (` + b @XwQ;;X# ĨRETRN 92081-1X201 REV.2540 <851206.1447>/IMG2_5010/DBMS/DBCLQ.MAC ; ?RETRN RNRQ     "  @}ܜ;;X$ĩ1%DBCMW 92081-1X202 REV.5010 <880829.1653>/IMG2_5010/DBMS/DBCMW.MAC ;DBCBT DBCMW .CBT.CMW.ENTR >><_$$A`hA(`h (">@<;;XĨ(DBFDS 92081-1X209 REV.2540 <850416.1403>/IMG2_5010/DBMS/DBFDS.MAC ; .DBFDS  $.MPYAIRUN DBCMW     ȺAAHp`@ x x `@HHx`p`p(-@ @ (@  (wp ` p @p h H @`@h p@ zzIWBB@B@ ph @@"pp(s(e@ @ ` p h @@@ p (4` @ ` p @ @@ p (4`` @@(( z""M "@I ;;XĨ)DBFDI 92081-1X209 REV.2540 <850416.1403>/IMG2_5010/DBMS/DBFDS.MAC ; .DBFDI  $.MPYAIRUN DBCMW     AAp`@ x Hx `@Hx`p`p(.@ @ B@  (xp ` p @p h H @`@h p@||sBCA( @ ph @H@p'(t(f@ @ ` p h @@@ p (5` @ ` p @ @@ p (5`` H@@(( |""M "@q11;;X" 1ĩ1DBFRT 92081-1X212 REV.2440 <850416.1403>/IMG2_5010/DBMS/DBFRT.MAC ; <DBFRT wDAIRUN BTCNT DBBPT    ]]00@x h x (@`p  H(`@ (/8 8 ( `(/h (/ (/@H (/@ @H (/x`  ] J @P@@X" %ĩ1IMG.GETPOINTERS 92081-1X212 REV.2440 <850416.1403>/IMG2_5010/DBMS/DBFRT.MAC @BIMG.GETPOINTERS .SBUF AIRUN DBBFDBBPT DBSBF   GG$$p pH  `H(!(!@(!@(! HHp@ p` G ;g @};;XS Ĩ9DBFWW 92081-1X213 REV.2440 <850416.1403>/IMG2_5010/DBMS/DBFWW.MAC ; ADBFWW   T p`8( @;;X  ĩ1)DBGBF 92081-1X215 REV.2440 <850416.1403>/IMG2_5010/DBMS/DBGBF.MAC ; ,DBGBF dDBBPT GETBF   VH`p 'p `  @\y{9;;X  Ĩ DBGRT 92081-1X217 REV.2440 <850416.1403>/IMG2_5010/DBMS/DBGRT.MAC ; <DBGRT {AIRUN DBBPT   H`@x@h(;;X ĨDBMDR 92081-1X224 REV.2440 <850416.1403>/IMG2_5010/DBMS/DBMDR.MAC ; .DBMDR 0CILAD CILST DBMVW    == H`p  8  x 8  Hx 0" `@ ph 8 (=@)tH4DDX=Ĩ ,IMAGE_COMMUNICAT92081-1X226 REV.2540 881202.1905/IMG2_5010/DBMS/DBMSG.PAS D@}=EEX3TCĨ -IMG.LCLSENDRQST 92081-1X226 REV.2540 881202.1905 /IMG2_5010/DBMS/DBMSG.PAS EZ6IMG.LCLSENDRQST 00.EXIT0.SDSP DBADR DBSND IMG.LOCKRESNO IMG.UNLOCKRESNO PAS.CDS 0WWs4,SSEND_REQUESTp  ((4` @pP((40 (2` @p@(1(4p W%%@4 ` (`H p `p ( %@sEEX7k]Ĩ .IMG.LCLSENDRPLY 92081-1X226 REV.2540 881202.1905 /IMG2_5010/DBMS/DBMSG.PAS E^PIMG.LCLSENDRPLY ""J.EXIT0.SDSP DBADR IMG.LCLSENDRQST PAS.CDS "\>:SSEND_REPLYp0 ((N` p`@p `@` `@p `@h `h  p` p`@p `@++>` `@p `@h `h +%%YN `)`H p `p(%@][|CCX OĨ / IMG.LCLGETMESG92081-1X226 REV.2540 881202.1905/IMG2_5010/DBMS/DBMSG.PAS C<IMG.LCLGETMESG ''.EXIT0.SDSP DBADR DBTRV IMG.UNLOCKRESNO PAS.CDS 'ii:4SGET_MESSAGE p0  ((:@ ((:   (((:`p`@P(0(5`@P(8` (:pi33f: `/`H ppp p`p( 3@FEEXhPĨ 0 IMG.LCLXCHGMESG 92081-1X226 REV.2540 881202.1905 /IMG2_5010/DBMS/DBMSG.PAS EBAIMG.LCLXCHGMESG ++=.EXIT0.SDSP DBADR IMG.LCLGETMESGIMG.LCLSENDRQST PAS.CDS +eeDl?7SEXCHANGE_MESSAGEp@ ((?0 ((?`pp`p   (4(?@ (=(?pe**W? `3`H p p`p( *  @S;;Xĩ1!DBMVW 92081-1X227 REV.2440 <850416.1403>/IMG2_5010/DBMS/DBMVW.MAC ; @DBMVW 4g.ENTR .MVW ApA`h@K(i;;X _1Ĩ DBPIL 92081-1X232 REV.2540 <850614.0928>/IMG2_5010/DBMS/DBPIL.MAC ; 3DBPIL 22 u.DIV.MPYAIRUN CDBST CILAD CILST CKEYS DBCIX DBFDI NAMR2  1  AAH`@p-H`@ @ p0-p-`@p,H`p(P(P((P(pH׈ph (9x' H (([p)p+G` ;;rBp*hp(P(WP(W8)8*(8((U(H (D`)((e;M[E?h (e8'(8p(n" )+"("h (`H(hX(P(H(~`h 0hHH`"(&`&(hH(::((0(0`@p([ (H,p'`,p%HH@p׈%8%8'(%8%8'(8(`,Hp(`P-((H`(HH`-p@p` ..} <de@ @ 0 * ; .rr77 x/h ׈x0H(HP0((H(p.@HHHP0( Pp/8.( (`/(r@/ONCCXĨ PARSE_SET_LIST92081-1X033 REV.2540 881202.1911/IMG2_5010/DBMS/DBPSL.PAS C@-EEX:rsĨ IMG.PARSENEXTID 92081-1X033 REV.2540 881202.1911 /IMG2_5010/DBMS/DBPSL.PAS EXhIMG.PARSENEXTID .EXIT0.LBT.SBT.SDSP PAS.CDS %@@S PARSE_NEXT_IDENTIFIER p `pp h6@ H` H8 8(p `A@ (fh6Hp ` P (>` P;(>` (>` P,(>(M` P,MM@%%(B(Ep` (Lp(f` p(( `A@ (^ (fh6@ H` @M Qe(" !!+f `)`H `p(!@^DDX Ĩ" IMG.PARSESETLIST92081-1X033 REV.2540 881202.1911/IMG2_5010/DBMS/DBPSL.PAS D_IMG.PARSESETLISTr ""D.EXIT0.SDSP DBFDS IMG.PARSENEXTID PAS.CDS "DBS PARSE_DATA_SET_LIST pp `2A@ (S` (`d(` ('p(` (Npp` @@p0  `(B` (B(E`dDDl[D! (`@@h88(/` p(p pp`( (oDnne42(kp(n`d((0 `(}` (}(`d(` p `2A@ (`d(` @@h(Y` pn!!+G `5`H `p( !@F;;X8 Ĩ*DBPTR 92081-1X236 REV.2440 <850416.1403>/IMG2_5010/DBMS/DBPTR.MAC ; >DBPTR   }@@̲;;X# ĩ1.DBRBF 92081-1X237 REV.2440 <850416.1403>/IMG2_5010/DBMS/DBRBF.MAC ; ,DBRBF DBBPT DBSBF RETBF    *] @p0 ( ` g @9]X<<X0 Ĩ8LOCKRN92081-1X238 REV.2540 <850416.1403> /IMG2_5010/DBMS/DBSEM.MAC <TIMG.LOCKRESNO RNRQ   ( r(( ` #S@ @B==X Ĩ9UNLOCKRN92081-1X238 REV.2540 <850416.1403> /IMG2_5010/DBMS/DBSEM.MAC =JIMG.UNLOCKRESNO RNRQ   ( r(( ` #U@ @Ji>>X0 Ĩ9LOCKNOWAIT92081-1X238 REV.2540 <850416.1403> /IMG2_5010/DBMS/DBSEM.MAC >IMG.LOCKNOWAITRNRQ   ( r(( ` S @ ;;XĨSLEEP 92081-1X241 REV.2440 <850416.1404>/IMG2_5010/DBMS/DBSLP.MAC ; YIMG.SLEEP kEXEC     pww g @1;;Xf LĨ DBSND 92081-1X242 REV.2440 <850416.1404>/IMG2_5010/DBMS/DBSND.MAC ; 8DBSND EXECIMG.SLEEP     DmA?hH (*0p p p p x`@ p r" " (,P(9(5 x 8(*` @ p ( P(9P(5X(5X(9`` @hH (Dp B x(8  ` (  IO0004@;;X2 ĩ12DBTRM 92081-1X243 REV.2440 <850416.1404>/IMG2_5010/DBMS/DBTRM.MAC ; <DBTRM Y[DBBPT TRIM   5 @p "    @;;X$Z5ĨDBTRV 92081-1X244 REV.2440 <850416.1404>/IMG2_5010/DBMS/DBTRV.MAC ; <DBTRV kEXEC   hhr42(30 0p p  p` p " "( (/(,x   h H x 8(3p`p( (1` h c  @;;X ZĨ#DRMNT 92081-1X257 REV.5000 <870209.1444>/IMG2_5010/UTILS/DRMNT.MAC; HDRMNT sx.XLAIDGET IMG.OPSY   ̠G?`p( "(  (Tp(8`@(V`@@ (V`@(V`@(V(T`@(V`@@ (V`@&&gH@(V@`@(V(T(W x& "@ ?v==XVQĨ#IMG.OPSY92081-1X257 REV.5000 <870209.1444> /IMG2_5010/UTILS/DRMNT.MAC= IMG.OPSY )e$OPSY .XLA    --:^Jp@(@(@(@(- J ` @wږ::XsĨ)GICB92081-1X268 REV.2440 <850416.1404> /IMG2_5010/DBMS/GICB.MAC://LIMG.GETCOMMBUFUIMG.GETSTATUS MAKECOMMBUFFER/PUTCOMMBUFFER /$$f$IMCL .ENTR CLRQEXECIXGET IXPUT XLUEX $,,AAe(0jplflp((Xp(,%% 8eA(*%ilq(,A*el%::H0!!AA.5e(O0kpl?flmr(OA(9Kgq..qql(O(O//:))CVAQQpnApochnRSTU ) ?p  @::X: Ĩ0NODE92081-1X278 REV.2440 <850416.1404> /IMG2_5010/DBMS/NODE.MAC:NICNOD NODE No#CNOD #NODE  x`xH`@l@@X}ĨPDBMS 92081-1X283 REV.5010 881202.1916 /IMG2_5010/DBMS/PDBMS.PAS @@}DDX2.PĨIMG.MAKEBASELIST92081-1X283 REV.5010 881202.1916/IMG2_5010/DBMS/PDBMS.PAS D`EIMG.MAKEBASELIST .EXIT0.LBT.SDSP DBBUF PAS.CDS ><SMAKE_IBASE_LIST pp ` @ @6P@(`g(C pp `p`쀈pp `@(H @(6` p ` @@h 8 8(%` (?`g>(C` p!!*C `*`H `p( !@DDX2Ĩ IMG.SETGETTER 92081-1X283 REV.5010 881202.1916 /IMG2_5010/DBMS/PDBMS.PAS D&Y'IMG.SETGETTER |.EXIT0.SDSP DBFDS DBPTR PAS.CDS AAw%!SSET_GETTERp 0 (`((`d p(%  A!!*% `*`H `p(!@?^\CCX0ĨIMG.CHECKMODES92081-1X283 REV.5010 881202.1916/IMG2_5010/DBMS/PDBMS.PAS C%IMG.CHECKMODES j.EXIT0.SDSP PAS.CDS RR##SCHECK_MODES p P(`s(#p ` @P(` @P((!`h(#p R!!*# ` &`H `p ( !@q1CCX[ĨIMG.TEXTSTR 92081-1X283 REV.5010 881202.1916 /IMG2_5010/DBMS/PDBMS.PAS C#PIMG.TEXTSTR $$.DIV.EXIT0.LDX.MW00 .SBT.SDSP PAS.CDS $crGGSPROCESS_TEXT _STR`A(A@( p` (NAh`H (Lp` A @p `@@  h6`tG @H` @p!!*N `*`H `p( !   @f_EEXLĨ/IMG.SENDRECEIVE 92081-1X283 REV.5010 881202.1916 /IMG2_5010/DBMS/PDBMS.PAS EXvIMG.SENDRECEIVE gg5 .DAD.DLD.DSB.DST.EXIT0.LDX.MPY.MW00 .SDSP DBMVW DBPTR IMG.ENDTIME IMG.LCLGETMESG IMG.LCLSENDRQST IMG.MATRIXADD IMG.STARTTIME PAS.CDS g2::S SEND_RECEIVE_MESSAGEppp ` @` `@h H `@h HH`@h` @Q(5p(7p`@p!rrO:--p"h!` AH`P(^`!@h"H`!@h"H` @p`!@ p''O0O'(m`!@ `@@-prgF<`!@@` `@({p((tp##p`#p`( p ((t@Q@^p @PP*&$@p  `HQH@p$ @p%`%@p`$@ (`$@p@@(P<EC`%@p`$@ (`$@@p(@`%@p`$@  (`$@@ p(@`%@p`$@  (`$@ p@@((( p [[2X&&((t p&`&@P6("(j`&@(j`&@@pA@(j p`@(hp`p[ii >60` `@p  (U(t`@ p @p!p !` @p88(>` @(r(tpi..ӳt `9`H p p p`p( . % @b"CCXفĨ;IMG.TRANSCHECK92081-1X283 REV.5010 881202.1916/IMG2_5010/DBMS/PDBMS.PAS CIMG.TRANSCHECKz &5.DCO.DLD.DST.EXIT0.SDSP PAS.CDS ~~ BBS TRANSACTION_CHECKER p((`A(`g ( @p(pp ` @@p ` (6(>`A@ (A`g (`~RRkOB##@(H @(L`g (`@(H @p`@ /(]` ( (j`(iRffe,,` ((i(`(q` ((` P(u(`@(~` ((@(@((` (8 8(,pf%% `,`H p`p( %@CCX4HĨAIMG.BASEFORMAT92081-1X283 REV.5010 881202.1916/IMG2_5010/DBMS/PDBMS.PAS C;IMG.BASEFORMAT.DLD.DST.EXIT0.SDSP PAS.CDS ww@::S TRANSACTION_BASE_FORMATTERp`pp `@(H @(7`@(H @p` @/(7 @@h 8 8(wsl:@(`@H  (@@@XĨ"SDBBEG 92081-1X283 REV.5010 881202.1916 /IMG2_5010/DBMS/PDBMS.PAS @ ;DBBEG  ~~?.DAD.DIN.DLD.DSB.DST.EXIT0.LDX.MW00 .SDSP IMG.BASEFORMAT IMG.ENDTIME IMG.GETPOINTERS IMG.MAKEBASELISTIMG.SENDRECEIVE IMG.STARTTIME IMG.TEXTSTR IMG.TRANSCHECKPAS.CDS RBBEG ~ C?SDBBEGIN p` @@`P(P((3p(6`A(&`p(2 (0((2`p(6`s (ְ (B(`EE!oC# @/(R ( `(ZP(^(m (d(g` EfH@(P ` (w(`@p.`.@ p4`.@ p5 45 ((p  ((֊`@p/`/@` p0`0@@p.@.`0EEh/ `p1`(p.p ` @p/`/h @@h1H(H@p2E}}B@@@2`2@h8 8.(`( `@p33@3@6`3@@@6@6`3@p.6.`3@ p.`3@p/`3@/.6`3@p.@@6.}V @H`@H (Qe@~>@@XĨ'`DBCLS 92081-1X283 REV.5010 881202.1916 /IMG2_5010/DBMS/PDBMS.PAS @ ADBCLS ' HH .DLD .EXIT0 .SDSP DBGBF DBRBF IMG.GETPOINTERS IMG.SENDRECEIVE IMG.SETGETTER PAS.CDS RBCLS RETCL HH@SDBCL OSE ` (( ((` (`@/(+P ( P(1(=@ (;((CP(C`s (0 RRH(( (R(`@@ p`p`pp`@H@p`A@(wR1p@:`@H@p88(a`@p`A@(p ((`@ `(( ((`@h`@pp [[)%((`(`pp ((߈`p`@hHH`@(`@p([`@ ` @ 2`@H  ( ;f @@@XĨ+sDBCTL 92081-1X283 REV.5010 881202.1916 /IMG2_5010/DBMS/PDBMS.PAS @ JDBCTL 9 ``2 .DAD .DIN.DLD.DSB.DST.EXIT0.SDSP DBFWW DBGBF DBRBF IMG.ENDTIME IMG.GETPOINTERS IMG.SENDRECEIVE IMG.STARTTIME PAS.CDS RBCTL `~~'B<SDBCONTROL ` ((`@ p/($P (΀` (,@ P(8P((` p`@/(J`v (~EEAJ`@+(T`l (`@@A (](](j`@ (g` (iE gg@<` (`@p`@ p`@ .hH `@ h`@ h @Hp@@   ((`(`@Fp @OOu((@`@@@ @`@p`@ p`@p`@`@p@@O @0`@H (Fg@#?@@XJĨ4DBEND 92081-1X283 REV.5010 881202.1916 /IMG2_5010/DBMS/PDBMS.PAS @ CDBEND  ~~H.DAD.DIN.DLD.DSB.DST.EXIT0.LDX.MW00 .SDSP IMG.BASEFORMAT IMG.ENDTIME IMG.GETPOINTERS IMG.MAKEBASELISTIMG.SENDRECEIVE IMG.STARTTIME IMG.TEXTSTR IMG.TRANSCHECKPAS.CDS RBEND ~~~B>SDBEND p` @@`AHP(P((2p(5`A(%`p(1 (/(Ј(1`p(5`s ( (A(`~IIB*" @/(Q (`(YP(](cP ` (mIl@<(`@p,`,@ p2`,@ p3 23 ((`,@@ p2@2p  ( P((`@p-`p.` p/`/h- `/@@p,UU>''@,`(p,p ` @p/`/h @@h.H(H@p0 0`0@ 8 8,(`(Ubb42`@Tp1@11@4@`1@@@44`1@p,4,`1@ p,`1@p-`1@-,4`1@@p,4@,bM @F`@H (Zh@%@@XĨ9DBFND 92081-1X283 REV.5010 881202.1916 /IMG2_5010/DBMS/PDBMS.PAS @ DDBFND  uu;.DAD.DIN.DIV.DLD.DSB.DST.EXIT0.LBT.SBT.SDSP DBFDI DBMVW DBPTR IMG.ENDTIME IMG.GETPOINTERS IMG.SENDRECEIVE IMG.SETGETTER IMG.STARTTIME PAS.CDS RBFND u~~pJ@SDBFIND !" ((E`"@/(#p (`(+ #`" (6(E`@+P(@`x (E `(N~??ށJ`(N(Q`e (E"P(]`s (E`@p"?gFD`@@6p` Ap`@@6 p`(`y (Epp`A@(`(@ @@6P((p(`p(MMK!!`(`f (E@ @@6 Hp`!@((p%`%@ h`%@ h`%@ hM(<8`%@ hH`%@ p*`%@ p+ *+`%@ @p*P ! "* ((E`@p&`p'`'@@@6``'@@@6 ``'@WW ))p% %`'@ h&@Hp%@%`'@ h&Hp%%` p(`(@p%@ %`(@h&Hp%%W3B@`(@h&Hp%%`(@h&@Hp%@%`(|`@p)@D) )#,`)@,,`)@p%@@,%`)@ p%`)@p&`)@@@&@@%,u `)@p%,%`   @?`@H ( 7i  @D@@Xض ĨDBGET 92081-1X283 REV.5010 881202.1916 /IMG2_5010/DBMS/PDBMS.PAS @ <wDBGET  }} .DAD.DIN.DLD.DSB.DST.EXIT0.LBT.LDX.MPY.MW00 .SBT.SDSP DBMVW DBPIL IMG.ENDTIME IMG.GETPOINTERS IMG.SENDRECEIVE IMG.SETGETTER IMG.STARTTIME PAS.BLANKFILL PAS.CDS }(PAS.COMPAREBYTESRBGET J@SDBGET  ((?`@/($  (v`(,@p (7(? p`@p`@P(C(Y`'ggJ5/` @'@6` @6Ap ((Y`@P(`(`(` @(@6` @6p (w((`@R@6 @(gx44`@@ `@@6 `@hH`@@@`@@@`@@@`@@@6 `@hjj53(  ((?`@RAhH@p@ hHH6 @(`p(`A hH`@p`@ @` A@j,66P(P( P( P(P(GP(GP(|(`@ hHp`@  ( ` (?(`@ hHp(`p`@ p rr55(F`@@@6 `@p  ` p `  ` @p@ ` @p (?(`p!`@ p"`!@+P(VrkS88`x (?`!@@@6 (b`o (?P(f(m`!@ "(s`!@ @@"@" ({` (?(`@ +P((`{ (?(`s (?}}?9`@ h`@ `@@@H6 hH `  ((?`@P((`` @@6` @6p ((р(}]?77`@R@6H `@p#`p$P(P(P(P(P(P((`$@@@6 (`$@ h#Hp@@`$@ h#Hp(`$qq53@h#Hp@@`#@ p`#@p ` p%`%h#H`%@h#Hp`%@p @`%@h#HpqzzqJ6@>`%@h#Hp`(v`@p&@&&@)@`&@@@))`&@p)`&@ p`&@p`&@)`&@@p)@zv @6`@H (XS @*j    @»{@@XmĨ DBINF 92081-1X283 REV.5010 881202.1916 /IMG2_5010/DBMS/PDBMS.PAS @ gDBINF [ }}I8.DAD.DIN.DIV.DLD.DSB.DST.EXIT0.LBT.LDX.MB00 .MPY.MW20 .SBT.SDSP DBFDI DBFDS DBFWW DBMVW DBPTR IMG.ENDTIME IMG.GETPOINTERS IMG.MATRIXADD IMG.SENDRECEIVE }IMG.STARTTIME PAS.CDS RBINF :SDBINFO!>:S INF_GET_ITM_OR_SET`P((!` @p  (+` @p  ` @  (C`P(7(=` @ h(B` @ h}(V` HHQD@(I(N` @ h}` @(V  ` @ (_p(apH**Wa `+`H pp`p(* r><SINF_MODE_X03` @ ` @ p(pp ` p` c (` @ P}((` @ (((` @h H `??ph HH@h 8 8(` @` @ h H ? @,`r@Hp({ S ITEM_INFO_HANDLER 153`@Pe(Pf(Pg(Ph((H`@p`@p`@p`c((H`@ hH`@  (H`@ll3/p`@p`@p`c(*(H(0` @ h `@p`@p `@ p` @6h6A@lH@@`@@6`@)6h 6HhH6H`@@6 ` h 6 p` @ @hH `@@6PX(`@ AhH h H6 hXXM%#H `@ p (H`@hHH `@p`(H`@ p`@ X95`@p`@p`@p`c(Ĉ(H`@p`@p`@p`@p`@@6hH`@p `@``O0,p`@p `@(:pp `@@6H@ Hp `@p`@p`c (%`~~22`@ P}((#`@ ($(H(7`@hH `hHH@hH8 8(`@ hH `@(H~!!ZH@/`@H`h (! 5CPW) W ttQ\<:S GET_USED_RECORD_COUNT p`@@ hʈ`@@ ` @ pp   ((`@p`@@@ @`@@ t @+`\@H (jbbt.,SSET_INFO_HANDLER`@PɊ(P(Pˊ(P((`@p`@p`@p`c(b~~ȁ64(`@  `@ hH(`@p`@p`@p`c(((`@ h`@( `@hH~iiH0,`@p`@p`@p`@p``@ ('(`@p`@p`@pi96::`@ p`@ p`@@p@`@6h6AH`@@6`A@16H`@@6 ` `@@+hH`@Pll/(p++(vP(}P((`@@6`A(`@@ H6`M(`@@6`D(`@ h(`@p`@ hHl![95`@ p (`@hHH `@p`(`@ p`@p`@p`@p`c((`@hee,>.,HH `@(`@hHp `@(spp`p`@p`c(e:6`@ (p`@p`@p`@@p`@p`@p`@@@6p `@ p `@p` Abb<++@(a` (a`@@6`@H@HhH@P(V(Yp (``@hH (5` (p` p bBBE+g`H @hH88(` `@ h `@  (B!!;@7`@H`h (! 7P1  _ S PATH_INFO_HANDLER ^^i-+SGET_ITEM_ACCESS `@p `@p `@p `@p ((`@(`@ hp (p ^!!8 ` %`H`p (!JJ6`@P-(P.(ۈ(p`@p`@p`@p`c(JH=9(p`@p`@p`@p`@@@H6 p`@p`@p `@p`@p `@@6p` Ap ZZ8.*`@p`@ p `(H(p`(pp@ hH H6p`(gZof><(p`@(m(n(`hH  H@p@ hH HH6 `hH@ hH H x`(`((pee+**`@((`@ (`@hH(`@ `p88(R`@ hA`hH  e~~$95(`@  `@  (p`@p`@p`@p`c((p`@p`@p`@p`@@+~xx:40hH`@@@@6p`(`@ ho(p`(%(pp `@P(-(O`@p`@@p xxx;55`@@@@6 J@ @ @H6 p `@ p`@(Y(\(``@`h `@  `@ h(pxp @/`@H(FFPz&$S CURRENT_PATH_INFO_HANDLER `@p `@p`@p`c (F)75(`@p `@p`@p `@P(P((`@ p `@p ` @ ` @h @H p @ ` @h H p gg..@ ` @@@6 Hh H(`@ p `@p ` @p @@  ` @ h Hp  ` @ h @Hp @ g..R` @@@6 ` @(` @ h.> @#`z@H(z =;SLOG_INFO_HANDLER`@@@ h!`@p`@p`@p`@ pp   (N(y`@ p` p`@@`@..Mk]hHHp@@`@ @hH .!!z>n `@ `@ h!y @)` @H(+_DDS STATISTICS_HANDLER`@p @  ` @p   ` @p  @ ` @p   ` @p @  ` @ p   ` @ p  @ `p p `@,,[p ` hHHx   8 8 (,;9`@@4p ` @p ` @p ` @   ` @p @` @@@ ` @p  `@p `@ p  `@P( ( `@p  W @$`@H(11w* (6(`@/(F 1GCE5/(`(NPe(nPf(nPg(nPh(nP(tP(tP(tP(tP-(zP.(zP(P(P(P(P!((` I(` (oo&Sz=3` q(` (`(` !(` z(`| `(Ί`@p@@ @`@@@  `@p" "o33`@ p"`@p#`@@@#@@" `@p" "36 @9`@H (*  k   @G@@X bĨ4DBLCK 92081-1X283 REV.5010 881202.1916 /IMG2_5010/DBMS/PDBMS.PAS @ YDBLCK z  .CACQ .DAD.DIN.DLD.DRCT .DSB.DST.EXIT0.LBT.SDSP IMG.ENDTIME IMG.GETPOINTERS IMG.LOCKRESNO IMG.PARSESETLISTIMG.SENDRECEIVE IMG.SETGETTER IMG.STARTTIME IMG.UNLOCKRESNO PAS.CDS ʯRBLCK 7SDBLOCK~~<<S BUILD_PREDICATE_TABLE `@('`@p`2A@(/`@ h`( `@@@ `p `@(p~``B''p `@H @p ` P (V`@ hH`( `@h H@p ` (Ê`@ @6JP (`Hmi20`@ @6JP@(q(`@@@ hHHH H(`@h H@p hH`@p`@p`@p`@pll.,`@ pP(`( `@@p ` @ h H  ` @ h H H@hH` @ p 8 8(Cl @'`@H(:@8p (( `@/(` (W`(p @ `@@ P(P(P(P(P(8P(8P(>QQ%!P(>(L`@@ (O pP (,( `@p!`!@ `!@ h(OQ38<6` (O`@@ p!! (K( (O`s ( `@P(Z`@P(Z([( `@@ p pp@  (s XXLt*&P(w(`(p  `@@p!! (( `@@p!! (( p(p`(X~~><@ (`(`@4p"` ( A@(Ί`"@h"Hp!@!`"@"h"H"p!!(`"@h"Hp!@!`"@$h"H$~WW//p!!A@(`"@h"Hp!@D!(h @ $@`"@@@$$`"@p!$!W B@`@@p!@`"@@@!$`"@p!$!p`(W`@p#@##@$@`#@@@$$`#@p!$!`#@ p!`#@p"`#@"2IM !$`#@@p!$@!۫W `;`H ( v9 @l,@@X֫ĨDDBMEM 92081-1X283 REV.5010 881202.1916 /IMG2_5010/DBMS/PDBMS.PAS @ :DBMEM ' ~~?.DAD.DIN.DLD.DSB.DST.EXIT0.LDX.MW00 .SDSP IMG.BASEFORMAT IMG.ENDTIME IMG.GETPOINTERS IMG.MAKEBASELISTIMG.SENDRECEIVE IMG.STARTTIME IMG.TEXTSTR IMG.TRANSCHECKPAS.CDS RBMEM ~~~B>SDBMEMOp` @@`AHP(P((2p(5`A(%`p(1 (/((1`p(5`s ( (A(`~IIB*" @/(Q (`(YP(](cP ` (mI9ClB>(`@p+`+@ p.`+@ p/ ./ ((`+@@ p.@.p   ((` p,`,hH `,@p++`(`@҄p-YY-0.@--@0@`-@@@00`-@p+0+`-@ p+`-@p,`-@,+0`-@@p+0@+Y$ @E`@H (gl@_CCXOgĨMIMG.GETBUFFERS92081-1X283 REV.5010 881202.1916/IMG2_5010/DBMS/PDBMS.PAS C|\IMG.GETBUFFERS &&.EXIT0.SDSP DBFRT DBGBF IMG.GETCOMMBUFPAS.CDS &~~RD>SGET_BUFFER_AREA p 0 (`g (U@p@((` (U`Qp `  `(S `A@3(B` (U(S`p ~..0D  `(Q` (U` p (Z.!!*Z `+`H `p( !  @#q@@XR CĨ#vDBOPN 92081-1X283 REV.5010 881202.1916 /IMG2_5010/DBMS/PDBMS.PAS @ DDBOPN  zzi.EXIT0.LBT.LDX.MB00 .MPY((.MW20 .SBT.SDSP DBCLS DBGBF DBGRT DBMVW DBPTR DBRBF DBTRM DRMNT GETCL IMG.BUILDROOT IMG.GETBUFFERSIMG.GETPOINTERS IMG.SENDRECEIVE z++PAS.BLANKFILL PAS.CDS PNAME RBOPN RETCL TMDAY USNUM +a@@SDBOPENp+p/`pDp h6@ HP (&h6@ HP;(&h6@ H((p/`/(5` @6@6@ H` (Dh6H@ Hh H66pEII@%!@ H`E8 8D(p (M(O` P (Zp6 (.%&- (gIӠe?7 `.p9`9@(9`9pD0DP0`1 pD`0 &? pE`0?@E@Dh9H`9@(`9@pDD(` ( SS'#P(P(P(P((p(p(`s (`.@p,@.+ ((+&%SE?&%U(ڨ` (`%@p:p `:@ p99`p;`@A@ (`;@6J@ HP;(`;@6@ HJP (`;@6@@ HJJ\" h:H 6p9@ H`9H` p (`:@ p9@9`:@)@6` @66`:@,J275`:@-h`:@h+` %.&$# (I(`$@p<`<@p*` @hi.*@p9`<@p:9& :+) (~(`.p=`=@H+@h`@(p `=@H+@A@ (`m=;`=@H+@h p"`p9p `=@H @p`"A@(`=@H @p"8 89(`,A@"(`,(( (Ԩ` (VVc-'"! (`,((,! ( (` (` (`"p,`.@h,+&%V><`&@p990*9`&@ p`&@ p&p`(Up9p@ @p>`(=`>$p`*A@(=`>@0`>\\?,*p`*A@(R`>@0@p889( `&@ p`&@ p&`(p9p\~~hk88A@ @p?`?@$p`*A@(`?@@0(`?@@`?@p`*A@(`?@@0@(`?@@~vv,//889(k `&p@`@@h `+`@@h+`@@@`(` (ሊ`.pA`A@hAH `@@@0@vqe>8` pB`Bh*`B@h)`B@h'( p pP3 ` p+`+((+ (` `.pC`C@(`C@(`C@p9  9( !!@t`@H ` h (!q @3!"RG"!11ˬ"!!QUERY DBMON DBSPL DBCLN DBUTL DBRBR DBRFR DBSTR DBRST DBULD DBLOD 1   @ǎN@@X Ĩ)DBPUT 92081-1X283 REV.5010 881202.1916 /IMG2_5010/DBMS/PDBMS.PAS @ KDBPUT } xx.DAD.DIN.DIV.DLD.DSB.DST.EXIT0.LBT.LDX.MPY.MW20 .SBT.SDSP DBCBI DBFWW DBMDR DBPIL DBPTR IMG.CHECKMODESIMG.ENDTIME IMG.GETPOINTERS IMG.SENDRECEIVE x33 IMG.SETGETTER IMG.STARTTIME PAS.BLANKFILL PAS.CDS PAS.COMPAREBYTES RBPUT 3KASDBPUT (&'% ((F`'@/(# (`%(+  )' (4(F' (?(F` p.`. @/(K`v (FDDiK`.@+(U`l (F`.@@6p`.@p"`'@ p.'.D=i@8 p`'@P(r(.` @.@6` A@6 ((`'@P((9` @9@6` @6 ((ሠ(`(@R@__((@6 (`(p/`/@R@ `/@R@6H `/@Rh H`/@R@@`/@R@@_:6`/@R@@`/@R@@6H ( # (숨(F` @p'` @ +P(P((n`#P(`f (` @@@6VV_ .*Hp..!`!(`f (p` @@6 P#($`f (m` @@6Hp` pV}}[9@<`#(mp.p@ @p0Hh06p//!`!(X`f (j`0(j`0p//!`!(j`f 88.(A(p` (t(Fp`(p1`&}KK-y%#@p2`2@p.".G`(p.ph6H@HpA@ @p3h36JPX(K 986`3@@(p/p`2@hH@ 88/(`3@@p88.(`(p4`&@p5`5@p.. $`5@ p.'.`' @.h5H qq}G93`5@ h`5@ h"`@"p.p &('. ((F`'@P((.` @.@6` @6 (((qk;;`(@R@6H  (F`@p6` p7`7h$`7@h6Hp.@@.`7@h6Hp..`7@h6@Hp.@.`7@h6H p.. Pk(J(Qxx8J><` hHH `%(`%@p88@8)@:`8@@@:@:`8@p.:.`8@ p.`8@p/`8@/.:`8@p.@@:.x!!@I`@H `h(!Vz@*PnG }  @: X@@XQĨ/DBUND 92081-1X283 REV.5010 881202.1916 /IMG2_5010/DBMS/PDBMS.PAS @ CDBUND  ~~H.DAD.DIN.DLD.DSB.DST.EXIT0.LDX.MW00 .SDSP IMG.BASEFORMAT IMG.ENDTIME IMG.GETPOINTERS IMG.MAKEBASELISTIMG.SENDRECEIVE IMG.STARTTIME IMG.TEXTSTR IMG.TRANSCHECKPAS.CDS RBUND ~~~%B>SDBUNDOp` @@`AHP(P((2p(5`A(%`p(1 (/(͈(1`p(5`s ( (A(`~IIB*" @/(Q (`(YP(](cP ` (mI lC?(`@p,`,@ p2`,@ p3 23 ((`,@@ p2@2p  ((`@p-` p.`.h- `.@p,,`p/`TT#$$(p,p ` @p-`-h @@h/H(H@p0 0`0@ 8 8,(`(`@ p1TZZ1/@D1 14`1@44`1@p,@@4,`1@ p,`1@p-`1@@@-@@,4`1@p,4,ZJ @F`@H (no@Q@@XĨ3DBUNL 92081-1X283 REV.5010 881202.1916 /IMG2_5010/DBMS/PDBMS.PAS @ CDBUNL U VVW .DAD .DIN.DLD .DSB.DST .EXIT0.SDSP DBFDS IMG.ENDTIME IMG.GETPOINTERS IMG.SENDRECEIVE IMG.STARTTIME PAS.CDS RBUNL VC=SDBUN LOCK` ((z`@ /("P (`@(*P(3P(3`s (z (9(<` (z `@P(ITTdC#!`@P(I(J(zP(N(fp  ` ([`d (z`@p`@ `@ h TfEA`@@ @  (z(z`(`@p@D  `@ `@p@@`@ p`@p`@@@ @@ `0@@p@ @ 1`@H ( wB @@@X TĨ7DBUPD 92081-1X283 REV.5010 881202.1916 /IMG2_5010/DBMS/PDBMS.PAS @ GKDBUPD  #.DAD.DCO.DIN.DLD.DSB.DST.EXIT0.LBT.LDX.MPY.M((W00 .SDSP DBMVW DBPIL IMG.CHECKMODES IMG.ENDTIME IMG.GETPOINTERS IMG.SENDRECEIVE IMG.SETGETTER IMG.STARTTIME PAS.BLANKFILL `PAS.CDS PAS.COMPAREBYTES RBUPD 'KASDBUP DATE ((`@ /($ (J`(,@p (5( (@(`@+(J`l (`??(K@(S(S(`@`@ (]` (_` ( p`@p?;eKAp ` @ @6` @6 (|((`@R@6 @(p (  ((pp`@RhHA@@ hH??=?H6 (@A hHH Hx`p(@p`@h?J95`@@p `@p`@@ p@`@.hH `@ h`@ hHp`@h`@h`@p` RR~., ((` h`(J`@&p@D !`@!!`@p@@!R333`@ p`@p`@@@@@!`@p!3J @7`@H (U *@p   @kDDXĨ7IMAGE_FMP_ROUTIN92081-1X210 REV.5000 881202.2027/IMG2_5010/UTILS/DBFMP.PASD@EEXz3Ĩ7IMG.DEFAULTFILE 92081-1X210 REV.5000 881202.2027 /IMG2_5010/UTILS/DBFMP.PASE5"IMG.DEFAULTFILE 88 .EXIT0.LDX.MW20 .SDSP CITAIMG.SUPRS0LJUST LOGLU PAS.BLANKFILL PAS.CDS 800ח!SDEFAULT_FILE @ p 0 P0!!Q!@(`@H`h( !W_ @P0$70 0 @CCX9+Ĩ7IMG.FMPTOIMAGE92081-1X210 REV.5000 881202.2027/IMG2_5010/UTILS/DBFMP.PASC  IMG.FMPTOIMAGE j.EXIT0.SDSP PAS.CDS 99S FMP_TO_IMAGE_ERROR` p ` (` A@(` p ` p 9 { ` &`Hp ( @ԨhDDXŠrĨ7 IMG.PARSEDESC 92081-1X210 REV.5000 881202.2027 /IMG2_5010/UTILS/DBFMP.PASD_cIMG.PARSEDESC --+.DST.EXIT0.LDX.MW00 .SDSP FMPPARSEPATHPAS.CDS STRDSC-XqNBSPARSE_DESCRI PTOR@`p6@6`6@ p7@7@`6@(p7@7`6@0p7@7@ `6@SPURGE_FILE`p &`@&@6` 6A (6(!` @"p pP   ` P(:(=(B@(Hp (Jp |!!*J ` G`H `p (!  @ @Iih)DDXf%Ĩ7+IMG.ISINTFILE 92081-1X210 REV.5000 881202.2027 /IMG2_5010/UTILS/DBFMP.PASDhIMG.ISINTFILE ΃.EXIT0.SDSP FMPINTERACTIVEPAS.CDS ,,S IS_INTERACTIVE_FILE `@"p  Pp ,!!* ` $`H`p ( !@)8GDDX%Ĩ7.IMG.ISDEVICEFILE92081-1X210 REV.5000 881202.2027/IMG2_5010/UTILS/DBFMP.PASDLIMG.ISDEVICEFILE ".EXIT0.SDSP FMPDEVICE PAS.CDS --?XSIS_DEVICE_FILE`@"p  (p (p -!!* ` $`H`p ( !@d$CCXCĨ73IMG.ISTAPEFILE92081-1X210 REV.5000 881202.2027/IMG2_5010/UTILS/DBFMP.PASCx8IMG.ISTAPEFILE ,,]x.EXIT0.SDSP IMG.GETDEVICELU IMG.ISDEVICEFILEPAS.CDS XLUEX ,bba}60SIS_TAPE_FILE  (p(60pp@ (#(&p(6` (?P (1` (?P(1(4p(6pb!!*6 `+`H`p( ! a @EEXaĨ79IMG.ISLINUSTAPE 92081-1X210 REV.5000 881202.2027 /IMG2_5010/UTILS/DBFMP.PASEPVIMG.ISLINUSTAPE ''c.EXIT0.SDSP ABREG CATIIMG.OPSYPAS.CDS XLUEX '~~eKASIS_LINUS_TAPE @ pP ((!p(T0P(' (I`(?P(-(IP (8(;p(T  ` (Fp(Hp(T`(~K ?P(O(Rp(Tp!!*T `,`H`p( ! @7aDDX~*Ĩ7<IMG.CLOSEFILE 92081-1X210 REV.5000 881202.2027 /IMG2_5010/UTILS/DBFMP.PASDbIMG.CLOSEFILE "".EXIT0.SDSP FMPCLOSEIMG.FMPTOIMAGEPAS.CDS "55SCLOSE_FILE`@"p 0  (p (p 5!!* ` %`H`p (!@'EEXcĨ7DIMG.OPENHANDLER 92081-1X210 REV.5000 881202.2027 /IMG2_5010/UTILS/DBFMP.PASE\RIMG.OPENHANDLER BB l!.DST .EXIT0.LDX .MW00 .SDSP FMPFILENAME FMPOPEN FMPSIZE IMG.FMPTOIMAGEPAS.CDS STRDSCB`K?SFMP_OPEN_HANDLERp P P `@"p` P(/P(/(2`-(P(F`@"p`@ pp@gK(Pp ,,=P `  2`H `h H `p ( , @ @r2DDXgĨ7HIMG.OPENEXIST 92081-1X210 REV.5000 881202.2027 /IMG2_5010/UTILS/DBFMP.PASD(( ~PIMG.OPENEXIST //B.EXIT0.LDX.MW20 .SDSP IMG.OPENHANDLER PAS.BLANKFILL PAS.CDS /zzNBS OPEN_EXISTING_FILEp p$+0+(LP4("(3p'+0+(3(NP3(7(Hp)+0+(H(N(L(Np z))q0N ` 4`H`hAJ`p ( )m`$`rwosx wosxrosx@>`DDX?rĨ7KIMG.OPENNOEXTEND92081-1X210 REV.5000 881202.2027/IMG2_5010/UTILS/DBFMP.PASD]YIMG.OPENNOEXTEND //B.EXIT0.LDX.MW20 .SDSP IMG.OPENHANDLER PAS.BLANKFILL PAS.CDS / 5THSOPEN_EXISTING_NON_EXTENDIBLEp ` (p. ('p0 0 (UP4(3(Q` (?p2 (Gp3 0 (P(W(U(U T(Wp --W ` 6`H `hAHp `p (-Pk. krwo rwoswowos @]|eDDXƤ3Ĩ7MIMG.TYPE1OPEN 92081-1X210 REV.5000 881202.2027 /IMG2_5010/UTILS/DBFMP.PASDj IMG.TYPE1OPEN //B.EXIT0.LDX.MW20 .SDSP IMG.OPENHANDLER PAS.BLANKFILL PAS.CDS /--qS FORCE_TYPE_ONE_FILE_ OPENp$'0'p -))p ` 0`H`hAJ`p ()74P0$ ,0rwosf @wJDDXhĨ7QIMG.OPENFILEW 92081-1X210 REV.5000 881202.2027 /IMG2_5010/UTILS/DBFMP.PASDbRIMG.OPENFILEW //B.EXIT0.LDX.MW20 .SDSP IMG.OPENHANDLER PAS.BLANKFILL PAS.CDS /~~}PDS OPEN_FILE_FOR_WRITE p p$*0*(NP(#(6p&*0*(5(P(5(NP4(:(Mp(*0*(L(P(L(N(Pp ~))q2P ` 3`H`hAJ`p ( )lb$brwoxrwcxwox @pCCX`Ĩ7UIMG.APPENDFILE92081-1X210 REV.5000 881202.2027/IMG2_5010/UTILS/DBFMP.PASC}LIMG.APPENDFILE ?? .EXIT0.LDX.MW20 .SDSP FMPAPPEND IMG.FMPTOIMAGEIMG.OPENHANDLER PAS.BLANKFILL PAS.CDS ?vvJ>S OPEN_FILE_FOR_APPENDp $(0((7P(#(6&(0((5(J(5(7(J`@"p P (H@(Jp v))q)J ` 1`H`hAJ`p ( )`\$ \wsoxwscx @EEX!:Ĩ7XIMG.READROOTHDR 92081-1X210 REV.5000 881202.2027 /IMG2_5010/UTILS/DBFMP.PASEb/IMG.READROOTHDR ++.EXIT0.SDSP FMPREAD FMPSETPOSITIONIMG.FMPTOIMAGEPAS.CDS +LL-'S READ_ROOTFILE_HDR `@"p 0 `@"p @  (+p (-p L!!*- ` &`H `p ( !@&DBBXg~Ĩ7bIMG.ROOTOPEN92081-1X210 REV.5000 881202.2027/IMG2_5010/UTILS/DBFMP.PASBRhIMG.ROOTOPEN BB .EXIT0.LDX.MW20 .SDSP IMG.CLOSEFILE IMG.OPENHANDLER IMG.READROOTHDR PAS.BLANKFILL PAS.CDS BI?SOPEN_ROOT p ` (@((.@(.(CP(?P(.DST.EXIT0.LDX.MW00 .MW20 .SDSP FMPSETPROTECTIONIMG.FMPTOIMAGE PAS.BLANKFILL PAS.CDS STRDSCFccA7S REMOVE_FILE_PROTECTI ONS P  P `  P(2(4@(?p (Ap c44A ` `H `hAH `AhHJ`p (4@Y 4vYRW @CCXIcĨ70IMG.OPENBIGDCB92081-1X210 REV.5000 881202.2027/IMG2_5010/UTILS/DBFMP.PASCPIMG.OPENBIGDCB BB l!.DST .EXIT0.LDX .MW00 .SDSP FMPFILENAME FMPOPEN FMPSIZE IMG.FMPTOIMAGEPAS.CDS STRDSCBK?SOPEN_BIG_DCBp P P`@"p`  P(- P(-(0`- (N (D`@"p `@ pp@  K(Np 11N `  4`H `h H p `p ( 1 @ @yAEEX&b5Ĩ71IMG.WRITEBUFFER 92081-1X210 REV.5000 881202.2027 /IMG2_5010/UTILS/DBFMP.PASEf(IMG.WRITEBUFFER "".EXIT0.SDSP FMPWRITEIMG.FMPTOIMAGEPAS.CDS "BBd&"SWRITE_BUFFER`@"p` p0   ($p (&p B%%0& ` (`H p `p ( %@{;DDX q7Ĩ71IMG.POSITIONFILE92081-1X210 REV.5000 881202.2027/IMG2_5010/UTILS/DBFMP.PASDl(IMG.POSITIONFILE 11_Z.DLD.DNG.DST.EXIT0.SDSP FMPSETPOSITIONIMG.FMPTOIMAGEPAS.CDS 1@@_&"SPOSITION_FILE `@"p @P  @($p (&p @&&& ` (`H@ @ `p ( &@RCCX Ĩ8$UPSHIFTMAIN 92081-1X308 REV.2540 881202.2055 /IMG2_5010/UTILS/USHFT.PASC@I AAXIĨ8$UPSHIFT 92081-1X308 REV.2540 881202.2055 /IMG2_5010/UTILS/USHFT.PASA (>UPSHIFT  .EXIT0.LBT.SBT.SDSP PAS.CDS uuw==SUPSHIFT ` ( (=` (=pp h6@ HHp ` A @a(3`zA@ (3h6@ H` @(:h6@ H` 8 8(u = @(`@H p (@lDDX+,Ĩ8%IMG.STRINGLENGTH92081-1X308 REV.2540 881202.2055/IMG2_5010/UTILS/USHFT.PASDu!IMG.STRINGLENGTH ).EXIT0.LBT.SDSP PAS.CDS ??SSTRING_LENGTH ` p ` ((h6@ HP ((@ p ( ` p ?  ` '`Hp ( @MlCCXwĨ8& IMG.FINDSTRING92081-1X308 REV.2540 881202.2055/IMG2_5010/UTILS/USHFT.PASCjIMG.FINDSTRING !!R.EXIT0.LBT.SDSP IMG.STRINGLENGTHPAS.CDS !{#GCSFIND_STRING p p p`A@( (h`($(h`(*p(h`(hpph6Hph6@HP(?(e p `@(_pGG`G`p h6@ Hph6`@ @@HHP(\p 8 8(I` (e`p(hGe88(2$$}h `.`H p p( $@DDX{*Ĩ8'IMG.STRINGMGR 92081-1X308 REV.2540 881202.2055 /IMG2_5010/UTILS/USHFT.PASDbIMG.STRINGMGR ..%.EXIT0.LBT.SBT.SDSP IMG.FINDSTRINGIMG.STRINGLENGTHPAS.CDS .9A=SSTRING_MANAGER`((`((`(`A@((0p0p`P(8P(@P(HP(PP(WP(a(zpp`p({TTA(&p`pp({p`@pp({p`pp({`p`@p`pp({ pTni>>`(m(`@p`pp`@p({(P(`A@(@p(p`p`@p`A@(h6`@@Hh6p`@@((]],,@H`@p8((@(pp`@p`A@(Ӏh6`@H@Hh6p`@@H`]>>88(P(@(pp`@p`A@(h6` @Hh6p`@@H`H88(P(`hAH( (xph6@~2HH` 8(8( ++@3`@H p p p p( +@V;;XO ĩ17TMDAY 92081-1X305 REV.2440 <860206.0932>/IMG2_5010/DBMS/TMDAY.MAC ; 6TMDAY kEXEC   ..o" ` h08` h 08` .  @@@X ĩ18IMG.STARTTIME 92081-1X305 REV.2440 <860206.0932> /IMG2_5010/DBMS/TMDAY.MAC @nIMG.STARTTIME W.DAD.DMP.DST.MPYEXEC22 +r 0G` p@ @Bh BGBhBG2 <<d @??XQ %ĩ18IMG.ENDTIME 92081-1X305 REV.2440 <860206.0932> /IMG2_5010/DBMS/TMDAY.MAC ? IMG.ENDTIME آ.DAD.DMP.DSB.DST.MPYEXEC    889$"  x` @ G@(h $t(h $t p8. <<dC` @^??X^ ĩ19IMG.MATRIXADD 92081-1X305 REV.2440 <860206.0932>/IMG2_5010/DBMS/TMDAY.MAC ?VIMG.MATRIXADD L.DAD.DLD.DST   (($p$(8(8888((@8K::Xfl AĨ&CATI92081-1X173 REV.2440 <850416.1403> /IMG2_5010/DBMS/CATI.MAC: xCATI _.MPY   D==p pA p p `p(+P(P(x `p(+(9 ` G (( p (` h    h X( H5H!8 P(+@ ((@>((@(A9 U  +-@XAAX._CATR 92081-1X174 REV.2440 <850416.1403>/IMG2_5010/DBMS/CATR.FTNA zc@CATR Nu.ENTR .CPM.IDLP .FMUI SGET**P .09+-DELdel'*:DD:@:p?`p6pp4p5pp;(X(<Ap<0(`>h> (;<@p;p9h(lp`p7~~"~CC:98`8P((`p7`8P((`p7A8(p 8((`p7`8P h8X  0(`p7`8P h8X 0h8X  0h8X 0h8~~~;;X 0h8X 0(`p7`7P(`7P((`6Ph6X 0(`6P(`p6(h`7P(ꈈ(`6P((`p6`8P ((p(`6P(((~~~==`p6`8p5(h`7P((M`6P(A6( (`p6`6Ph6X 0h6X 0(+`Ap('(`@h8`6P(/(2`4p4`6P(6(8`p6@~!!96(=(L`p6`hH8@p!~~CG>>A(L((h`7PA(Q(Y6((`p6(h`7PA(](h6((`(`p6(h898({`6P(p(}y=>`((`6P(`6Ph6~LL<&&X 0(`5P ((`p`@4p =>`(@`?(?(L:  @@_ZCDS_LOCAL.REL::IMAGE2:5:4:108 644 0 0 2000 5300466315 35107 CDS_LOCAL.REL::IMAGE2_6000:5:4:108 "$  lCDS_LOCAL REL +l+l+lzFST ==X2-CLOCL 92081-12024 REV.2440 <840912.1325>/IMG2/DBMS/CDHD2.MAC:::4:3:34 =@2>>X| -DBIDS 92081-1X331 REV.2440 <840912.1345>/IMG2/DBMS/DBIDL.MAC:::4:12:37 > .DBIDS DBFRT    **M( h((r0 ( ` (*  @*sI3==XP -RDBMS 92081-1X332 REV.2440 <840912.1348>/IMG2/DBMS/RDBMS.MAC:::3:8:35 =lly(RBBEG RBCLS RBCTL RBDEL RBEND RBFND RBGET RBINF RBLCK RBMEM RBOPN RBPUT RBUND RBUNL RBUPD l.ENTR    F`  .g @-CDS_RDBA.REL::IMAGE2:5:112:128 644 0 0 70000 5300466316 36075 CDS_RDBA.REL::IMAGE2_6000:5:112:128 #$p  pCDS_RDBA REL +l+l+lp7΀FST <<Xĩ CRDBA 92081-12025 REV.5010 <880829.1658>/IMG2_5010/REMOTE/CDHD3.MAC <@uFFXݓĩ REMOTE_DBMS 92081-1X341 REV.5010 881203.0112 /IMG2_5010/REMOTE/RDBA_SUBS.PAS F@ݓGGXHhPĩRMT.MAKEBASELIST92081-1X341 REV.5010 881203.0112/IMG2_5010/REMOTE/RDBA_SUBS.PAS GvERMT.MAKEBASELIST .EXIT0.LBT.SDSP DBBUF PAS.CDS ><SMAKE_IBASE_LIST pp ` @ @6P@(`g(C pp `p`쀈pp `@(H @(6` p ` @@h 8 8(%` (?`g>(C` p!!*C `*`H `p( !@'!EFFXiĩRMT.FINDSET 92081-1X341 REV.5010 881203.0112 /IMG2_5010/REMOTE/RDBA_SUBS.PAS F^RMT.FINDSET !!.EXIT0.MPY.SDSP DBCMW DBPTR PAS.CDS !iP@>SFIND_SETp`2A(((p (p @ (XppA@H Hx@ p` P(GP(;(U`@(AAA#@(F`@(\(U0(T`@(\(U88($p`d A!!*\ `*`H `p(!   @yEEXjĩRMT.FINDITEM92081-1X341 REV.5010 881203.0112/IMG2_5010/REMOTE/RDBA_SUBS.PAS EA_RMT.FINDITEM !!.EXIT0.MPY.SDSP DBCMW DBPTR PAS.CDS !*@>SFIND_ITEM p`A(((p (p @ (Ypp@H Hx@ p` P(HP(<(V`@CC@(B(G`@(](V0(U`@(](V88(%p`e C!!*] `*`H `p(!   @$C_GGXM7ĩ*RMT.PRSEITEMLIST92081-1X341 REV.5010 881203.0112/IMG2_5010/REMOTE/RDBA_SUBS.PAS Gz,RMT.PRSEITEMLIST :: y.EXIT0.LBT.MPY.SBT .SDSP DBBUF DBPTR PAS.BLANKFILL PAS.CDS RMT.FINDITEM:kB@S PROCESS_REMOTE_ITEM_LISTpPp`ph6P0((1`@' `@' `  p(*h6P@(`A@(A`g (`~OO^B##@(H@(L`g (`@(H@p`@  p `@P(hOe;;` ( (u`(t` ((t(`(|` ((`P((`@ (` ((@@(((` (`@ A 33hHH`@@ 88(, @ p3**X `/`H pp`p( *  @IhFFXNĩiRMT.BASEFORMAT92081-1X341 REV.5010 881203.0112/IMG2_5010/REMOTE/RDBA_SUBS.PAS FARMT.BASEFORMAT.DLD.DST.EXIT0.SDSP PAS.CDS F==S TRANSACTION_BASE_FORMATTER p`pp `@(H @(=`@(H @p` @/(=`@(4(=  @@ h =8 8(su@@)`@H  (@7VCCX4ĩwRBBEG 92081-1X341 REV.5010 881203.0112 /IMG2_5010/REMOTE/RDBA_SUBS.PAS C >RBBEG  }}1.DAD.DIN.DIV.DLD.DSB.DST.EXIT0.LDX.MW00 .SDSP IMG.ENDTIME IMG.GETPOINTERS IMG.STARTTIME PAS.CDS RMT.BASEFORMAT RMT.MAKEBASELISTRMT.SENDRECEIVE RMT.TEXTSTR RMT.TRANSCHECK}~~sD@SREMOTE_DBBEGINp` @@`AHP(P((6p (9`A()`p (5 (3((5`p (9`s (  (E~CCD!(`(M`@pP(U(e ([(^` (`C~~+eJDp (p(  (z(  ((` @@@` A @p`p1`(p4p` @p5`5h @@~>>rh1H(H@@p2@2`2@h884(`(`@p3@33>JJ1'%@6@`3@@@66`3@p161`3@ p1`3@@@1@6`3@p161JA @K`@H (   @CCX(ĩRBCLS 92081-1X341 REV.5010 881203.0112 /IMG2_5010/REMOTE/RDBA_SUBS.PAS C DRBCLS 7 BB c.DLD .EXIT0 .SDSP DBGBF DBRBF DLGOF IMG.GETPOINTERS PAS.CDS RMT.FINDSET RMT.SENDRECEIVE BICSREMOTE_DBCLOSEP ((@ ((` ( `P(*`P(*`s (Ҋ`P(.(<@ (9( (Ұ0  HH1+I (K(`@@ p`p`pp `@H @p`A@(pH1/i@:`@H @p8 8(Z`@p`A@(` ((`@ `((p ((`@h`@p` UU '#((`(`p` ((҈`p`@hHH``@(а U `  @ 6`@H  p(   @*IdCCX7ĩ"RBCTL 92081-1X341 REV.5010 881203.0112 /IMG2_5010/REMOTE/RDBA_SUBS.PAS C MRBCTL C [[,h .DAD .DIN.DLD .DSB.DST.EXIT0.SDSP DBFWW DBGBF DBRBF IMG.ENDTIME IMG.GETPOINTERS IMG.STARTTIME PAS.CDS RMT.SENDRECEIVE [>C=SREMOTE_DBCON TROLP ((`(`@p P(.P(.P(/P(U(l(n`(T`pp (B` (HHn-C"0 `@=@pp(n`(k`p` (f` HmeB<(p(n`s @    (P((`p` ((p`@@(`(`@@*pD  `@@ @ `@@p@`@ p`@ `@p@@@ @1`@H (   @PoCCXuĩ%RBDEL 92081-1X341 REV.5010 881203.0112 /IMG2_5010/REMOTE/RDBA_SUBS.PAS C >lRBDEL  TT ~ .DAD .DIN.DLD .DSB.DST .EXIT0 .SDSP IMG.ENDTIME IMG.GETPOINTERS IMG.STARTTIME PAS.CDS RMT.FINDSET RMT.SENDRECEIVE TMSISREMOTE_DBDEL ETE ` ((9`( P (*(9@   (9(9`(k`@Fp@ @p@`@@@ `330S@@p@`@ p`@ `@p@@3k @ 3`@H  (   @hCCXiĩ'RBEND 92081-1X341 REV.5010 881203.0112 /IMG2_5010/REMOTE/RDBA_SUBS.PAS C FRBEND " }}1.DAD.DIN.DIV.DLD.DSB.DST.EXIT0.LDX.MW00 .SDSP IMG.ENDTIME IMG.GETPOINTERS IMG.STARTTIME PAS.CDS RMT.BASEFORMAT RMT.MAKEBASELISTRMT.SENDRECEIVE RMT.TEXTSTR RMT.TRANSCHECK}kD@SREMOTE_DBENDp` @@`P(P((5p (8`A((`p (4 (2((4`p (8`s (  (D(FFD%`(L@`p.P(((R(\`.@p2`.2`.@p2p2 (jF*iGC(  (t(  ((` A @p`p/`(p.p` @p2`2h @@h/H(H@p0@ 0`0@ EEI$"88.(`(`@@Tp11D 13`1@33`1@@p.3@.E))Ȍ`1@ p.`1@.3`1@@p.3@.)1 @H`@H (    @r(CCXĩ*RBFND 92081-1X341 REV.5010 881203.0112 /IMG2_5010/REMOTE/RDBA_SUBS.PAS C D{RBFND  \\Hp .DAD .DIN.DLD .DSB.DST .EXIT0.SDSP IMG.ENDTIME IMG.GETPOINTERS IMG.STARTTIME PAS.CDS RMT.FINDITEMRMT.FINDSET RMT.SENDRECEIVE \MCSDBFINDp ((H`(@` (%(HP  (0(HP(6`s (H`@p@   (H(H`(z`@11fMp @@ `@@@ @ `@p 1)){h`@ p`@  `@@p @)z @ 8`@H (  @ɳCCX)ĩ,RBGET 92081-1X341 REV.5010 881203.0112 /IMG2_5010/REMOTE/RDBA_SUBS.PAS C ?RBGET j cc .DAD .DIN.DLD .DSB.DST.EXIT0.SDSP DBMVW IMG.ENDTIME IMG.GETPOINTERS IMG.STARTTIME PAS.CDS RMT.FINDSET RMT.PRSEITEMLISTRMT.SENDRECEIVE c~~KASREMOTE_DBGET p ((l`( ` (((lP  (4(lP(:P(I(]`@@p `@p(]`~>>.K @@p`@p `@@p(]@   (l>``;k31(l`(`@p@ @@`@@@ `@p`@ p`@@@ @`@p` @6`@H (   @A`CCXKĩ0RBINF 92081-1X341 REV.5010 881203.0112 /IMG2_5010/REMOTE/RDBA_SUBS.PAS C GRBINF | nn .DAD.DIN.DLD.DSB.DST.EXIT0.MPY.SDSP DBFWW IMG.ENDTIME IMG.GETPOINTERS IMG.MATRIXADD IMG.STARTTIME PAS.CDS RMT.FINDITEMRMT.FINDSET RMT.SENDRECEIVE nC;SREMOTE_DBINFO  ((R`(@Pe(4Pf(4Ph(@P(@Pʊ(@P(4P-(@P.(@P(@P(@(L` (?(R(LpmmXC)) (K(R(LPe(lPf(oPg(rPh(uP(lP(xP({P({P-(~P.(P(P(P(P(P!((m}}ޣl00p (` p (`p (`p (`p (`3p (`1p (`p (`p (p (`p (`p (`| (RP((`p(p}jjl86P    ((RP(P((R` p @`@p   `@p @  `@p   `@p  @ j.`>>`@ p   `@ p  @ `pp`@ p`@p`@`@h@@x @@@@ `@p `@p!`@@ !SS;(( "`@@ p "@ `@@p `@@@@@ "`@p " 88(`pp` pS~~B:B<`@p88(8P(L(R Pd(Y Pe(Y([`} `(`@p@@"@`@@@ ""`@p"`~''|@ p`@@@@"`@p"' @5`@H (    @ςCCXĩ3RBLCK 92081-1X341 REV.5010 881203.0112 /IMG2_5010/REMOTE/RDBA_SUBS.PAS C ; RBLCK  ee .DAD .DIN.DIV.DLD .DRCT .DSB.DST.EXIT0.LBT.MPY.SDSP IMG.ENDTIME IMG.GETPOINTERS IMG.STARTTIME PAS.CDS RMT.FINDSET RMT.SENDRECEIVE eU?;SREMOTE_DBLOCK p ((`@(  P(4P(4P(7P(7P(VP(VP(kP(k(p(`p!p ` @p"`"NN'?(&@ H H8 8!(;p (S(pA(p`(_(g`ÆA@(jN~~lg><` ((`2A(}(y`d (p( ppp`(`^A@(h6@HP;(h6@HP ((p(~dd,0.`p(`(`d (` p(`s (`@P(`@P(ƈ((`  (dcc53(p`( `@Ąp   @ @#` @@@ #@#` @p!#!` @ p!@` @@@!#` @p!#!cى `:`H (    @]CCXĩ5RBMEM 92081-1X341 REV.5010 881203.0112 /IMG2_5010/REMOTE/RDBA_SUBS.PAS C >RBMEM S yyb .DAD.DIN.DLD.DSB.DST.EXIT0.LDX.MW00 .SDSP IMG.ENDTIME IMG.GETPOINTERS IMG.STARTTIME PAS.CDS RMT.BASEFORMAT RMT.MAKEBASELISTRMT.SENDRECEIVE RMT.TEXTSTR RMT.TRANSCHECKy~~D@SREMOTE_DBMEMO p` @@`AHP(P((6p(9`A()`p(5 (3((5`p(9`s ( (E~HH4D& (`(M`p-P(S(]`-@p/P-/`-@p/`/ (kH jJD(  (u(p   ((`(`@p.@D. .0`.@ 00`.@p-@@0-`.@ p-`.@-0`.@@p-0 @-  @G`@H (   @ ,FFXM[ĩ7RMT.GETBUFFERS92081-1X341 REV.5010 881203.0112/IMG2_5010/REMOTE/RDBA_SUBS.PAS F2|PRMT.GETBUFFERS h.EXIT0.SDSP DBFRT DBGBF PAS.CDS ~~הF@SGET_BUFFER_AREA p 0 (`g (I`8p `  `(G`A @(6` (I(G`p  `(E` (I` ~"F p (N!!*N `+`H `p( !  @>B]CCX ĩ9RBOPN 92081-1X341 REV.5010 881203.0112 /IMG2_5010/REMOTE/RDBA_SUBS.PAS C HRBOPN r ~~t.DST.EXIT0.LDX.MB00 .MPY.MW00 .SDSP DBBUF DBGBF DBGRT DBMVW DBPTR DBRBF DBTRM IMG.GETPOINTERS IMG.OPSYPAS.CDS PNAME RBCLS RMT.GETBUFFERSRMT.SENDRECEIVE TMDAY ~ USNUM #H>SREMOTE_DBOPEN pp ( `pM`M@(NM0P(1M(1` (`MpVV#`$ pV`# &? pW`#;;H?@W@VhMH `@pP (_(;~~eJ@pN`N6h H)6AH`N@p,`pM M-p &) ((`ApMM`pO@ O`O@ `O@h&~MMc`O@h`O@h`O@pPP0PP0@PPP`O@`pQ`pRMx75R pMQ@@MhOH`O@ RAQ@hOH `O@ Q`O@ h`O@ `O@ `O@pMM ((@mmZ33pp `pSS(+pMp@ hS H@pT`T@p` A@((`T@p 88M(`@ p`@H@hmh5E=`A@(s`(A(F (L` ( (m`(Z(b (d (j` (l` (`p`@h<<z ((`pU`U@hUH (` M( (`<$$GE@g`@H `h H&AH( $7 $  @g'CCXeĩ  RBPUT 92081-1X341 REV.5010 881203.0112 /IMG2_5010/REMOTE/RDBA_SUBS.PAS C KRBPUT  llO .DAD .DIN.DLD.DSB.DST.EXIT0.LDX.MW20 .SDSP DBMVW IMG.ENDTIME IMG.GETPOINTERS IMG.STARTTIME PAS.CDS RMT.FINDSET RMT.PRSEITEMLISTRMT.SENDRECEIVE la[RFSDBPUT  ((N`(@p (%(N`  (1 (N`@@p `@pP  (N(N`(`44R@@pD  `@ `@@p@4))zn`@ p`@`@@p@)!!@8`@H `h(!6 u @KiCCXĩ -RBUND 92081-1X341 REV.5010 881203.0112 /IMG2_5010/REMOTE/RDBA_SUBS.PAS C GRBUND " }}1.DAD.DIN.DIV.DLD.DSB.DST.EXIT0.LDX.MW00 .SDSP IMG.ENDTIME IMG.GETPOINTERS IMG.STARTTIME PAS.CDS RMT.BASEFORMAT RMT.MAKEBASELISTRMT.SENDRECEIVE RMT.TEXTSTR RMT.TRANSCHECK}~~1D@SREMOTE_DBUNDO p` @@`AHP(P((6p (9`A()`p (5 (3((5`p (9`s (  (E~HH5jD& (`(M`p.P(S(]`.@p2`.2`.@p2p2 (kH*jGC(  (u(  ((` A @p`p/`(p.p` @p2`2h @@h/H(H@p0@ 0`0@ EEJ$"88.(`(`@@ p11D 13`1@33`1@@p.3@.E))ȍ`1@ p.`1@.3`1@@p.3@.)3 @H`@H (    @gdžCCX]{ĩ 2RBUNL 92081-1X341 REV.5010 881203.0112 /IMG2_5010/REMOTE/RDBA_SUBS.PAS C GrRBUNL  TT ~ .DAD .DIN.DLD .DSB.DST .EXIT0 .SDSP IMG.ENDTIME IMG.GETPOINTERS IMG.STARTTIME PAS.CDS RMT.FINDSET RMT.SENDRECEIVE TKQGSREMOTE_DBUNL OCK ` ((?`(P(#(.P (.(?p @   (?(?`(q`@p @p@`@@Q @ `@@p@`@ p`@ `@p@@@q @ 2`@H  (   @?^CCX|ĩ 8RBUPD 92081-1X341 REV.5010 881203.0112 /IMG2_5010/REMOTE/RDBA_SUBS.PAS C KRBUPD  cc .DAD .DIN.DLD .DSB.DST.EXIT0.SDSP DBMVW IMG.ENDTIME IMG.GETPOINTERS IMG.STARTTIME PAS.CDS RMT.FINDSET RMT.PRSEITEMLISTRMT.SENDRECEIVE cQTHSREMOTE_DBUPD ATE p ((S`( ` (*(SP  (6(S`@@p `@p@  (S(S`::T(`@&p @@`@@@ @`@p:))~s`@ p`@ `@@p@) @7`@H (   @6T'gwm/Im/.nmmg/2o'1p'5/Dqoq 0/Dwg/Igq/Tr/Tw/Ggq/X/\r/\/gq/m/f/ss'ip'm/p/Gg/wg/g/t'CDS_REMOT.REL::IMAGE2:5:46:128 644 0 0 27000 5300466320 36136 CDS_REMOT.REL::IMAGE2_6000:5:46:128 #$.  .CDS_REMOT REL +l+l+l.FST <<XϪĩ*CRMOT 92081-12026 REV.5010 <881103.1737>/IMG2_5010/REMOTE/CDHD4.MAC <@ϪGGXbĩ01REMOTE_ONLY 92081-1X371 REV.2540 881203.0042 /IMG2_5010/REMOTE/REMOTE_ONLY.PAS G@C_bDDX5Iĩ01DBBEG 92081-1X371 REV.2540 881203.0042 /IMG2_5010/REMOTE/REMOTE_ONLY.PAS D ;DBBEG  .EXIT0.SDSP PAS.CDS RBBEG  SDBBE GIN    @'`@H (@]DDXBRĩ03DBCLS 92081-1X371 REV.2540 881203.0042 /IMG2_5010/REMOTE/REMOTE_ONLY.PAS D ADBCLS   .EXIT0.SDSP PAS.CDS RBCLS b SDBCL OSE    @&`@H (@vDDX;_ĩ06DBCTL 92081-1X371 REV.2540 881203.0042 /IMG2_5010/REMOTE/REMOTE_ONLY.PAS D JDBCTL  (.EXIT0.SDSP PAS.CDS RBCTL k SDBCONTROL    @&`@H (@ DDX/IMG2_5010/DBMS/DBFRT.MAC ; <DBFRT wDAIRUN BTCNT DBBPT    ]]00@x h x (@`p  H(`@ (/8 8 ( `(/h (/ (/@H (/@ @H (/x`  ] J @P@@X" %ĩ1IMG.GETPOINTERS 92081-1X212 REV.2440 <850416.1403>/IMG2_5010/DBMS/DBFRT.MAC @BIMG.GETPOINTERS .SBUF AIRUN DBBFDBBPT DBSBF   GG$$p pH  `H(!(!@(!@(! HHp@ p` G ;g @};;Xĩ1!DBMVW 92081-1X227 REV.2440 <850416.1403>/IMG2_5010/DBMS/DBMVW.MAC ; @DBMVW 4g.ENTR .MVW ApA`h@K(i;;X$ĩ1%DBCMW 92081-1X202 REV.5010 <880829.1653>/IMG2_5010/DBMS/DBCMW.MAC ;DBCBT DBCMW .CBT.CMW.ENTR >><_$$A`hA(`h (">@<;;XS Ĩ9DBFWW 92081-1X213 REV.2440 <850416.1403>/IMG2_5010/DBMS/DBFWW.MAC ; ADBFWW   T p`8( @;;X  Ĩ DBGRT 92081-1X217 REV.2440 <850416.1403>/IMG2_5010/DBMS/DBGRT.MAC ; <DBGRT {AIRUN DBBPT   H`@x@h(;;X8 Ĩ*DBPTR 92081-1X236 REV.2440 <850416.1403>/IMG2_5010/DBMS/DBPTR.MAC ; >DBPTR   }@@̲;;X  ĩ1)DBGBF 92081-1X215 REV.2440 <850416.1403>/IMG2_5010/DBMS/DBGBF.MAC ; ,DBGBF dDBBPT GETBF   VH`p 'p `  @\y{9;;X# ĩ1.DBRBF 92081-1X237 REV.2440 <850416.1403>/IMG2_5010/DBMS/DBRBF.MAC ; ,DBRBF DBBPT DBSBF RETBF    *] @p0 ( ` g @9]X;;X2 ĩ12DBTRM 92081-1X243 REV.2440 <850416.1404>/IMG2_5010/DBMS/DBTRM.MAC ; <DBTRM Y[DBBPT TRIM   5 @p "    @;;XO ĩ17TMDAY 92081-1X305 REV.2440 <860206.0932>/IMG2_5010/DBMS/TMDAY.MAC ; 6TMDAY kEXEC   ..o" ` h08` h 08` .  @@@X ĩ18IMG.STARTTIME 92081-1X305 REV.2440 <860206.0932> /IMG2_5010/DBMS/TMDAY.MAC @nIMG.STARTTIME W.DAD.DMP.DST.MPYEXEC22 +r 0G` p@ @Bh BGBhBG2 <<d @??XQ %ĩ18IMG.ENDTIME 92081-1X305 REV.2440 <860206.0932> /IMG2_5010/DBMS/TMDAY.MAC ? IMG.ENDTIME آ.DAD.DMP.DSB.DST.MPYEXEC    889$"  x` @ G@(h $t(h $t p8. <<dC` @^??X^ ĩ19IMG.MATRIXADD 92081-1X305 REV.2440 <860206.0932>/IMG2_5010/DBMS/TMDAY.MAC ?VIMG.MATRIXADD L.DAD.DLD.DST   (($p$(8(8888((@8K;;Xuĩ1DBBUF 92081-1X195 REV.2440 <850416.1403>/IMG2_5010/DBMS/DBBUF.MAC ;:Q.SBUF =.STAT <AIRUN BTCNT CDBST CILAD RCILST CKEYS COMBF DBBFDBBPT DBBUF DBCBF DBMMT DBSBF FNCLN MXMSG MYCLS %%>MYNOD OPNCT PNAMPRCID SQCTR %AVLMENDMUNM2UNMEM  (`֋ '<R@Ec;;X ZĨ#DRMNT 92081-1X257 REV.5000 <870209.1444>/IMG2_5010/UTILS/DRMNT.MAC; HDRMNT sx.XLAIDGET IMG.OPSY   ̠G?`p( "(  (Tp(8`@(V`@@ (V`@(V`@(V(T`@(V`@@ (V`@&&gH@(V@`@(V(T(W x& "@ ?v==XVQĨ#IMG.OPSY92081-1X257 REV.5000 <870209.1444> /IMG2_5010/UTILS/DRMNT.MAC= IMG.OPSY )e$OPSY .XLA    --:^Jp@(@(@(@(- J ` @wږDBBLD.REL::IMAGE2:5:35:128 644 0 0 21400 5300466321 33577 DBBLD.REL::IMAGE2_6000:5:35:128 $#  L#DBBLD REL +l+l+l#1T"FST ;;X}BDHD3 92081-16013 REV.5000 <870113.1652>/IMG2_5*0/UTILS/BDHD3.FTN ; A CONST 1BDHD3  kMp@d胨;;X0}ZDBBLD 92081-1X641 REV.2540 <851206.1512>/IMG2_5*0/UTILS/DBBL3.FTN ;BPBDNLS CONST ssgDBBLD .NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN s,,}EXEC.FION DBBUF OUTLN MDBBLDNLREADREL SEGLD GETST ,VV^i**BBLD3 A+ 18/)`)@p)|.-p"A,%, '*,V+(@5<<X}/CONST/ 92081-1X642 REV.2440 <850416.1420>/IMG2_5*0/UTILS/BDDA3.FTN < A CONST :;, @#;;Xk}ZBBLD3 92081-1X643 REV.2540 <851118.1501>/IMG2_5*0/UTILS/BBLD3.FTN ;BOBDNLS CONST  BBLD3 uu.CPM.EXIT .SCO.SST OUTLN MDBBLD NLREADREL SEGLD HALTERROT SETDDBOPN KEYWD CRDIM MBBLD3DECIMALTOINTSPLITSTRING FMPREPORTERROR FMPWRITEFMPOPEN STRDSCu  R ADERNOBCLO3 BINF3 1 }}VNDD`hpR`pS`pz`pTp1|Z\_`)(`jpp)_)BBR(((JBZDADR(A((DX3|DV}>>_`|(30|BT_`|(A(|D`|p{  1 | e $ _ ( _ / cbp 4 8 _ < _ @ _(INNjA**1E|B`|p{ IN@@RA(@P(YAp,@N(a0,(h`pS(I@LN~~-kDD(np,@J(v0,(}`Apz(I@H(Ap,@F(0,(`pT(I8@|pR`|(`Rp,iR,(I`hpRg(I`hpR~~~J66g  fbp (I8|`|( Lj` pU0Vp``p-`@^h 88-(`xP(⊈`xP((vU~TT8&&v_l`l(l pkkPk(`k(d:|  cbp TPPN !! a :| c((bp $ (a`p(PccK.==NOLISTNOERRHLTERADD AD rowoc 6 1 wo@ @V@ \b dj lp rt vz |~uH c@>@\?;;X+}ZBINF3 92081-1X644 REV.2540 <851118.1503>/IMG2_5*0/UTILS/BINF3.FTN ;BRBDNLS CONST  BINF3 OO.CPM MOD .EXIT .IDLP HALTOUTLN MDBBLD NLREADREL SEGLD MBINF3 SPUT CITAERROT SGETDBINF KEYWD O        b X IRBPUT3 BCLO3 ~~_s??`qp+1U8y`(ѡpv(O`p`y(`ypy`TP((u3Uy8`(ˈ`pp`ph`uAphho(%pj`~/>>@n(`p(`@np`@nh1U`(`@lpg~g`@kh(`@mh)`@kp`@lP(.(DP(2(7`@khq(C`uGG8P(;(@`@khw(CC|(_`@lP(J(_`uP(N(S`@kh{(_`}P(WG~~3V@@(\`@khz(__|`@k@@@p8R(k(kp@p`@mphp`h(pi`@k@pA8R((`@kpRA(( Rp88i(y`T~Q??P(!`p` p`!p `p`p `p`p`@lp o`p `p`@lPhHkX{ (ϡ ov`@lP~~^DDhHkXz ( oy`@lPhHkXq ( ox`@lPhHkXw (   ov`p   sr ~CC:p`p88j(`TP(8,u 3 trC||^=344p8<:| CsrpHLq`pS| Zsrp_cqe|''DLk33-+2 14 fhd'@Fd;;X }ZBPUT3 92081-1X645 REV.5000 <870113.1557>/IMG2_5*0/UTILS/BPUT3.FTN ;B[BDNLS CONST  NBPUT3 ZZؑ.CPM.IDLP OUTLN MDBBLDNLREADREL SEGLD HALTSETDDBUNL ERROT DBPUT DBLCK SMOVE CATR SFILL CATDI CATIIFBRK Z  ` X IRBCLO3 BINF3 ~~jN==` p T P ( ` P (^] ( ppeM(kj ؈( `p Ĉ` pGh  ( gp `G@ p pL` ( cp `G@ @+@ p`G@ pH@~~~Z>>R((P(` ϊp  P ( ` ψP ((Z1RH((`Hp(* R`@Rp`R@HpH(`G@ P((ơ3*+`@Hp( \`G@ ~FF%;!!P(( `G@ P (҈(`+@p 3*+ K ` ((`+@p 0*F~~:8BB1+ I ` (  `zP ( p K ` @p( \ I ` @p( \  `+@H@ p 1 *+  `G@ P ( &( 3 .  ~Q ,@@ ` ( ?( G( ?  ;  ` ( ?( R B `zP ( p N ` @p( \ Y ` @p`p+8L8 (8G8 (u`SP ( P\\G l//(  sU1y  1 {Uy  ` (   `z( 3 Uy ` p  ` ψP (^` (  :| \bbMU ((  p     |  Ϊ p   ̀`p( b? 30-+ P@,9BN;;X/}ZBCLO3 92081-1X646 REV.2540 <851118.1502>/IMG2_5*0/UTILS/BCLO3.FTN ;BPBDNLS CONST  FBCLO3 ++?.EXIT HALTOUTLN MBCLO3NLREADREL CITAERROT DBCLS +   }}yd88 UP((H`(""`('p{1+3{p8`SP (w`(KE{p}*9G00J(w`zP (^Pv(kX~{p](we}{pj(wr|{pww y{@1DBDS.REL::IMAGE2:5:188:128 644 0 0 136000 5300466323 35307 DBDS.REL::IMAGE2_6000:5:188:128 $  pDBDS REL +l+l+l]~HFST FFXzc1PAS.GLOBALINFO92081-16014 REV.5000 870113.1919 /IMG2_5*0/UTILS/DBDS_MAIN.PAS F@\$zFFXrc1DBDS.FATALERROR 92081-16014 REV.5000 870113.1919/IMG2_5*0/UTILS/DBDS_MAIN.PAS FDBDS.FATALERROR ccc P .ENTR .SBTDBDS.NLSTERMIMG.SINTTOSSTRIMG.STRINGMGR IMG.WRITLONGSTR MDBDS_MAINNLREADREL PAS.1 PAS.200 PAS.BLANKFILL PAS.NONCDS PAS.RANGEINTEGERc}}dHH`R((` p ` ( `Rp `R((`RA@(`RpRRS#S *A[2O[SpPh6`P @HA` F[AK}aH [Q(M( N hA pR( @[  d @V}EM,0AAXc1DBDS92081-16014 REV.5000 870113.1919 /IMG2_5*0/UTILS/DBDS_MAIN.PAS A''a+@DBDSPAS.1 tPAS.2 gPAS.200 lPAS.STOP' DBDS.CONTROLDBDS.CREATEROOT DBDS.CREATESETS DBDS.DATABASE DBDS.INITIALIZE DBDS.ITEMS DBDS.LEVELS DBDS.SEMANTICSDBDS.SETS DBDS.SUMMARYDBDS.TERMINATEEXECPAS.INITIALIZEPAS.INITMEMINFO2PAS.NONCDS * PAS.SEGMENTLOAD PAS.TOPOFSTACK2 PAS.TRACECLOSE >>B@,,ErG AJt LAA N PA Sw UWY \zAA^`AAb e}g Ajl> lo ''woArsDBDS1 DBDS2 DBDS3 DBDS4 DBDS1 '@_@BBX%1DBDS1 92081-1X651 REV.2540 870113.1921 /IMG2_5*0/UTILS/DBDS_SEG1.PAS B  PAS.SEGMENTRTN  @"XFFX1DBDS_SUBS_FOR_SE92081-1X655 REV.2540 870113.1922/IMG2_5*0/UTILS/DBDS_SUBA.PAS F@\GGX1DBDS.INITIALIZE 92081-1X655 REV.2540 870113.1922 /IMG2_5*0/UTILS/DBDS_SUBA.PAS G kDBDS.INITIALIZE pp .CBT DBDS.FATALERROR DBDS.NONFATALERRIMG.DEFAULTFILE IMG.OPENEXIST IMG.OPENFILEW IMG.WRITLONGSTR NLINFONLLANGID PAS.1 PAS.BLANKFILL PAS.NEW2PAS.NONCDSPAS.PARAMETERSp_EE p p  p p  Ap npqsA  (! ! &t up`A(-- 1 (7 7 <v up`(GA GtwtWEBBA uK (QA Q A Xtxty] A(c c p d p ep f p gp h p i`p j `p kp l p mp A~zy((A tv+yymAAuh6`6 uA(( t{Kuh6`6 u(((Ap m( |`p p ` (}  `A( ~  `A( ~y k 44l8k(%N@61  n p+KPUPURGE 4 7d @QpOFFX1DBDS.CONTROLOPTS92081-1X655 REV.25((40 870113.1922/IMG2_5*0/UTILS/DBDS_SUBA.PAS F/DBDS.CONTROLOPTSTGG |.CBT.DLDDBDS.GETTOKEN DBDS.NONFATALERRPAS.1 PAS.BLANKFILL PAS.NONCDSPAS.RANGEDOUBLE PAS.RANGEINTEGERGzIIAA p`P( ( (`AP(A(h6`6(#(&(&Apd(-h6`6(7(:(:Apd(Ah6`6(K~~lgIHH (N(Npe(Uh6`6A(_ (b(bpe(ih6`6A(s (v(vpf(}h6`6A( ((pf(~i<HHh6`6A( ((pl(h6`6A( ((pl(h6`6A(È ((pi(h6`6A(׈ ((phJJ(h6`6A( ((pg(h6`6A( ((pg( h6`6A(A(+(+AP(A(*AP(#"(*#KKJA xj(A2h6`6(<((>P(DC(FP(LK(Sh6`6A(](`(``pk(gh6`6Abbn44(q(t(tApk({h6`6(((Apk(A( #p`P(`P(`P((b  [[@@8( rLISTNOLISTROOTNOROOTSET NOSET LOG NOLOG CHECKSUMFIELD TABLE NOTABLE ERRORSACCESSRWRODI[ @%{DDX X1DBDS.CONTROL92081-1X655 REV.2540 870113.1922/IMG2_5*0/UTILS/DBDS_SUBA.PAS DLEDBDS.CONTROLZZ u.CBT .LBTDBDS.CONTROLOPTSDBDS.GETTOKEN DBDS.NEXTSIGNIF DBDS.NONFATALERRDBDS.SEMICOLONPAS.1 PAS.BLANKFILL PAS.NONCDS PAS.RANGEINTEGERZbb;;AAAPU(  H (;A IQJ=KhO6`P6K((0(0PV('$LA&(/)+ MYp<(;HhP6 PWA(6(;9L;b C;E F8E( =r$CONTROL EU$ @ )|FFXC'1DBDS.DATABASE 92081-1X655 REV.2540 870113.1922 /IMG2_5*0/UTILS/DBDS_SUBA.PAS FkjDBDS.DATABASE FF Z.CBT.MBTDBDS.GETFILENAMEDBDS.GETTOKEN DBDS.NONFATALERRDBDS.SEMICOLONPAS.1 PAS.BLANKFILL PAS.NONCDSFDMMA mxnboht6`u6o((Ap(_AP(() m{qboht6`u6Ao(-(),p(_/PA(2(B 9m}qboht6`u6oA(F(BEAp(_HAP(NMp&&GaM(_Phv6`w6ArYAP(^^As(aa& aj ((Uk8j(@brzBEGIN DATABASE( Q @6UEEXNl1DBDS.TERMINATE92081-1X655 REV.2540 870113.1922/IMG2_5*0/UTILS/DBDS_SUBA.PAS EΓDBDS.TERMINATEM]] 4d .SBTIMG.APPNDBANDSIMG.CLOSEFILE IMG.SINTTOSSTRIMG.WRITLONGSTR MDBDS_SUBANLREADREL PAS.1 PAS.BLANKFILL PAS.NONCDS PAS.RANGEINTEGERPRTN]~~LLA s seA(cspdh6A`d @H`D % k)sk. se(0A 7s>cspdh6`d @HA` O~//sL se(QU e(W[ e(]` pfbf/ b 8( s  @%BDBBX01DBDS2 92081-1X652 REV.2540 870113.1921 /IMG2_5*0/UTILS/DBDS_SEG2.PAS B  PAS.SEGMENTRTN  @%cFFX 1DBDS_SUBS_FOR_SE92081-1X656 REV.2540 870113.1924/IMG2_5*0/UTILS/DBDS_SUBB.PAS F@L FFXSI1DBDS.LEVELDEF 92081-1X656 REV.2540 870113.1924 /IMG2_5*0/UTILS/DBDS_SUBB.PAS Fr5DBDS.LEVELDEF 99].CBT.ENTR .MPYDBDS.NONFATALERRPAS.1 PAS.BLANKFILL PAS.NONCDSPAS.RANGEINTEGER9NNO,,p/`.((`HA@.A(=(,`.A>HG@B6p3">@>0AhC6`3A(,(*p/N sU,`/5 ]6A44p.`Fp/( 0 F @FFXZ1DBDS.DUPLEVEL 92081-1X656 REV.2540 870113.1924 /IMG2_5*0/UTILS/DBDS_SUBB.PAS F^GDBDS.DUPLEVEL 44$.CBT.ENTR .LBPR .MPYPAS.1 PAS.BLANKFILL PAS.NONCDSPAS.RANGEINTEGER4ggg99p=`<AOgX@S6pAOQO>RhT6`AR((p=(9`YpAAp;`;OkX@SA6pBFA6`BR(4(6(6p=8;8A(!g s9`=G LH AEEp<`Wp=(  > W @TEEXR1DBDS.LEVELS 92081-1X656 REV.2540 870113.1924 /IMG2_5*0/UTILS/DBDS_SUBB.PAS Ew+DBDS.LEVELS )~~0y .CBT.DLD .MBT.MPYDBDS.DUPLEVEL DBDS.GETIDENT DBDS.GETTOKEN DBDS.NEXTSIGNIF DBDS.NONFATALERRDBDS.SCANFORKEY DBDS.SEMICOLON PAS.1 PAS.BLANKFILL PAS.NONCDSPAS.RANGEDOUBLE PAS.RANGEINTEGER~KK`ppɄ`A@pAۀ8Ɉ8(pAP((-$ހh6`6A (0(-0A2P(AA7>AACP(r`(V` P(L[KKK(SNp(VAV` P(Z(lah6A`6 (k(l(l(oA q(p xɀ`((`A@(A A(AQQH00h6`6A ((((`A@@6A`6 P(AA  P((AQ ` 77p 8( : ޡ  r rLEVELSITEMS 7@m-FFXmM1DBDS.FINDITEM 92081-1X656 REV.2540 870113.1924 /IMG2_5*0/UTILS/DBDS_SUBB.PAS Fa9DBDS.FINDITEM GG 6.CBT.DAD.DDE.DLD.DMP.DST .ENTR .LPX .MVWPAS.1 PAS.CHECKPTR2 PAS.NONCDS PAS.RANGEINTEGERGTTjt..p1`(.p5Jp0p@A 6`0 Dh DF6 B@6hJ6H()(+(+`0p18085( T s].`19 :A 8`8hJA I( 2 @CCX1DBDS.ITEMS92081-1X656 REV.2540 870113.1924/IMG2_5*0/UTILS/DBDS_SUBB.PAS C:IDBDS.ITEMS{{9.CBT.DAD.DDE.DIV.DLD.DMP.DST.LBPR .LBT.LPXR .MBT.MPYDBDS.FINDITEM DBDS.GETIDENT DBDS.GETTOKEN DBDS.LEVELDEF DBDS.NONFATALERR DBDS.SCANFORKEY DBDS.SEMICOLON PAS.1 {99PTPAS.BLANKFILL PAS.CHECKPTR2 PAS.NONCDSPAS.RANGEDOUBLE PAS.RANGEINTEGERPAS.SINGLEMOD 9rVNNA P(AL` Ap* AMN.Oh|6`}6O( (` P( (.A#P*MNA.O -J.( p@AL6`*QLh DS6,h}H6HP(OLUA NsNII( ,W6`}6AV[ r(^(dAaY Ac(  fAP(nkZ m( AA p[ gp ` PJ(x( A]_kx+`+((`A@+(aA ( ,b`+@ gMM[sAp((,b` P((MdM.Oh|6A`}6O((MeM8Oh~6A`}6O((MfM@Oh6A`}6O((Ag ۄ( ,xh}6pH@ CChH P(Ag (  ]_x)A,P((`)P(`)P(((,P( (`)P(`)PA(((,P((-`)A((`A@)<'MM(-+gAA -,P(3(HA,b@)pHA@Hjk(HAEl G( ,P(N(^,b@AA)pH,m`H(k,b@A)pH,m`HA,o,q`tLL wPA(z( |AP(s ( JA ]_xHH(At A( ,JoxH A]_H P(ZA (  P(As (  ]_xHAHQLL(tA ( ,qxH ]_AH,opH,qA@HA(u ( A P(Av A(  A[p(` P(Aw ( ,x` p M33 N.Oh|6`}6AO(A(( AP(((!!z` ('A'{3 3'I VVJ<<8I(  IRX . r8@SETSSETSSETSV  IRX@DDXO1DBDS.INITSET92081-1X656 REV.2540 870113.1924/IMG2_5*0/UTILS/DBDS_SUBB.PAS DWDBDS.INITSETLXXH.DAD.DDE.DLD.DMP.DST.ENTR .LBPR .LPXR PAS.1 PAS.BITDEPOSIT2 PAS.BLANKFILL PAS.CHECKPTR2 PAS.NONCDSPAS.RANGEINTEGERXTTJ@n A`hD  xA  A  A  A  A  A  TPPx `pp`A&h AAAA A  A  88(]`pp`A/@p 88(  KK44Ap(2 @#$%&'()*+,-/K  @` FFX+1DBDS.MASTERITEMS92081-1X656 REV.2540 870113.1924/IMG2_5*0/UTILS/DBDS_SUBB.PAS F"DBDS.MASTERITEMS$xx .DAD .DCO.DDE.DLD.DMP.DST.ENTR .LBT.LPX.LPXR .MPYDBDS.FINDITEM DBDS.GETIDENT DBDS.GETTOKEN DBDS.NONFATALERR DBDS.SEMICOLON DBDS.TERMINATOR PAS.1 PAS.BITDEPOSIT2 x11PAS.BITEXTRACT2 PAS.CHECKPTR2 PAS.NONCDSPAS.RANGEDOUBLE PAS.RANGEINTEGER1 KKJp n@Acׄ`ch D A`'A`&(`P)(,(2A/ 1(h 6H%P((>A; A=(A rp`(KHA J(KMM`(rppAA A`@*pAfP͈A(i(ol n(88(S pA`h AAA AA x`x@JJHلxA`P#((1 pA`h AAA pA@A( (AP!(A J( J( A (((ZLL(  A( (AA(  (A xJA   @A%pHلxA`AP"(&# %(A`̈́-2.LLp` P%(=` P$(=:A <(`p`p A`@*pY pA`h AAA ApA@MfzKK(AxA`pA@لA(x`` P%((&`(A(A(A@τ(` j aaDDApЀ(2)*$ %#+'  & ra!   @f&DDXL 1DBDS.FINDSET92081-1X656 REV.2540 870113.1924/IMG2_5*0/UTILS/DBDS_SUBB.PAS DY8DBDS.FINDSET GG 6.CBT.DAD.DDE.DLD.DMP.DST .ENTR .LPX .MVWPAS.1 PAS.CHECKPTR2 PAS.NONCDS PAS.RANGEINTEGERGSSK~--p0`(-p4Jp/n@A 5`/ Ch DE5 A6A`I6G(((*(*`/p08/84( S sZ-`08 9A 7`7hIA H( 21 @FFX\j 1DBDS.DETAILITEMS92081-1X656 REV.2540 870113.1924/IMG2_5*0/UTILS/DBDS_SUBB.PAS F DBDS.DETAILITEMSzzM.DAD.DDE.DLD.DMP.DST.ENTR .LBPR .LBT.LPX.LPXR .MVWDBDS.FINDITEM DBDS.FINDSET DBDS.GETIDENT DBDS.GETTOKEN DBDS.ITEMERRORDBDS.NONFATALERR DBDS.SEMICOLONDBDS.SETERROR z@@| DBDS.TERMINATOR PAS.1 PAS.BITDEPOSIT2 PAS.BITEXTRACT2 PAS.CHECKPTR2 PAS.NONCDSPAS.RANGEINTEGER@uLLJp n@AO `Oh D A`e!A#`dppp 3`Ph(7(=A:% <(h^6HcHPg(IAF& H(L r~~ LLLp`(VAS' JU( p@Ax `(xh D* , x ,A` .x 0H x 0` `(p Ap2AA`4~(LLA@ip 6 P((A7 (88 ( PaA((!Pf((8A ( pA`(h A*AA9pA@A(; (stPPAA 騀 rp`(A`>hD Z@h_AOY88 (}\`  kk2LLAp(2)*'$ %+ /(# & rk`   @}FFXs@1DBDS.CHECKSET 92081-1X656 REV.2540 870113.1924 /IMG2_5*0/UTILS/DBDS_SUBB.PAS FXDBDS.CHECKSET o uu.CBT .DAD .DDE.DLD .DMP.DST .ENTR .LBPR .LBT.LPX.LPXR .MBT.MVWDBDS.NONFATALERRIMG.PARSEDESC IMG.STRINGMGR PAS.1 PAS.CHECKPTR2 PAS.NONCDSPAS.RANGEINTEGERu)JJAph6HP(A(Ah6`6A((,(,h6A`6(((,(,A+(@(bplAp`h A  AJn@A@hkk JCCAQmh6`6([(_(_^(88l(5J@nA`hD    j j6A`6jxll.pk ut` 55A `hAp`p(@2  .m5  @DDX1DBDS.SETS 92081-1X656 REV.2540 870113.1924 /IMG2_5*0/UTILS/DBDS_SUBB.PAS D1TDBDS.SETS }}*.CBT.DAD.DCO.DDE.DLD.DMP.DST.LBPR .LPXR .MBT.MVWDBDS.CHECKSET DBDS.DETAILITEMS DBDS.GETFILENAME DBDS.GETTOKEN DBDS.INITSETDBDS.MASTERITEMS DBDS.NONFATALERR DBDS.SCANFORKEY }GGZ DBDS.SEMICOLONDBDS.SETERROR PAS.1 PA((S.BLANKFILL PAS.CHECKPTR2 PAS.NONCDSPAS.RANGEDOUBLE PAS.RANGEINTEGERGVPP`p3p1 P( WAXY>Z >p1AX[>Zh6`6Z()(*A(*(1XY>Zh6`6ZA(I(: =WDXY>ZA G>p1`A@3PRR(_ T\A[X[>Z ^>( aP(h fWp1J@nAF`3]hD _F<3AA z3(A p1A<6`6aA P(A b p1(4A yOOAP( c Ap1(4XdX>Zh6`6ZA((XeHZh6`6Z(((<f(+XhX>Zh6`6AZ((XiHZh6`6AZwLL(((<f`(+XjX>Zh6`6AZ(( XiHZh6`6AZ(A(!(!<f(+A $cp1<fA` -AP(4 2kp1 6P(9(IA@X$=MMl>Zh6`6Z(N(IA Lmp1 PP(W UmAp1<fP(^(ba3(ee3A gP(j(zqXn>Zh6`6AZ((z }oAp1 AP( op1 gLLP((p(A(( rp1(A<sxPJAuAwhPA P(A kp1<y(<|@hA[{Qp1<fP(<~(<|A@h[~pJJQp1<xPA<HP`p`A@(<|@hA[Qp1`1(`p<p`A@(A<xX[>Zh6 w A`6Z((((A *P(/A / F/T xxUUU8T(2@A #DM-& +%$ >rzHQNAMEEND NAMENAMEEND AUTOMATIC DETAILMANUALENTRY CAPACITYEND x2@3BBX;1DBDS3 92081-1X653 REV.2540 870113.1921 /IMG2_5*0/UTILS/DBDS_SEG3.PAS B  PAS.SEGMENTRTN  @ (nFFX1DBDS_SUBS_FOR_SE92081-1X657 REV.5000 870113.1927/IMG2_5*0/UTILS/DBDS_SUBC.PAS F@PGGXj1DBDS.FINDOFFSET 92081-1X657 REV.5000 870113.1927 /IMG2_5*0/UTILS/DBDS_SUBC.PAS G4tDBDS.FINDOFFSET NN lQ.DAD.DDE.DLD.DMP.DST.ENTR .LPX .LPXR PAS.1 PAS.BITEXTRACT2 PAS.CHECKPTR2 PAS.NONCDS PAS.RANGEINTEGERN&NNJ@n Ao`k |hD ~om mxiphAAmAo`h @pqA /oq~~pg`gPj(Np  Ao`g  h AAAo Hixi`hph22qN`gPj(\ mA@h(`gPj(`(c`ipl(epl2 t e`lt --uArrpkspj(2$ &- R @EEXB.z1DBDS.SEMANTICS92081-1X657 REV.5000 870113.1927/IMG2_5*0/UTILS/DBDS_SUBC.PAS EADBDS.SEMANTICSxx .DAD .DDE.DLD .DMP.DST .LBPR .LPX.LPXR .MVWDBDS.FATALERROR DBDS.FINDOFFSET DBDS.NONFATALERRDBDS.SETERROR IMG.WRITLONGSTR PAS.1 PAS.BLANKFILL PAS.CHECKPTR2 PAS.NONCDSx CIPAS.RANGEINTEGER nMMAp DqEF` (Mp8p p<9`AG@h_@A/'A@BAA/C@DAE@h_@A/'A@GAA9 A!`.@ep&A;!&44pAA/C@HAIh^6\VPPHd`p&&/C@KLHxLx&A&A/C@NA$.6.C+OCph`6`P@eHA`cRPa(>(mT  ELL(lx&pȄ`Ph D E!V !P(`(ih/C@X(i88&(I(|AYP(t(||/C@XRPaA((T  (x&pV WW11!`APh  AAE !A[PňA((/C@]88&(  (A 08Ɉ8#(q88 (<W * MM:+668*(1 2 &  ,7#'/?+F'Mva %@ƦfDDXp 1DBDS.SUMMARY92081-1X657 REV.5000 870113.1927/IMG2_5*0/UTILS/DBDS_SUBC.PAS DWDBDS.SUMMARY##DBDS.FIELDREPORTDBDS.TABLEREPORTPAS.1 PAS.NONCDS# VAA  8( @ea!FFX1DBDS.BUILDGLOBAL92081-1X657 REV.5000 870113.1927/IMG2_5*0/UTILS/DBDS_SUBC.PAS FDBDS.BUILDGLOBALZ~~d.DAD.DCO.DDE.DIV.DLD.DMP.DST.ENTR .LBPR .LPXR .MBT.MPY((.MVW.SBTDBDS.ADDENTRY DBDS.FATALERROR DBDS.POSTBUFFER FMPPACKSIZE IMG.BUILDDESC IMG.BUILDROOT IMG.PARSEDESC ~>>PAS.1 PAS.BLANKFILL PAS.CHECKPTR2 PAS.NONCDSPAS.RANGEDOUBLE PAS.RANGEINTEGERSIZE TMDAY >tGG`p~p`@ 88~(`pBApC D GpJ AAK%M,Uh6`6A `iA+`}H 0iHp}`}p}`}p}`} p}`}G<< p}`} Ap}`l1`}B 0lBp}`kA2`} 0kp}p~`p`ߊp` @p`p`p@ p` p`p`p`puMM`@@ A@pp`p`(Ӏp~ppSA`Sh AAAtAtTh6DtUh6 AtxXHH88~(` Ap~`@@~p`(p~pnbAt`bh AAAtvAv@hA `p`pvxAvAHx!vԯQQt#t!`A(,A(,(9Av@6Ah69 <p vxA D愡Avx AJv@6h6A`ވApvAp`ނH 0HpAv@%iOOh6A vAh6AvAhD6 vx`p`ނ(P((Av @p(v`@ApvG-NN88~(`([p~pnt`Ah AAtAAxx  (Dxpxt`Ah AAtAAzxP(()zA$MMh6AzAhD6 zxAzxzAx((AAzh6AzAhD6 A8A8(xP(XAxxxyy.SNNxX88~(A]`(p~Jpn@At`Ȁh Dt|@|AA A AA|88~(eAy   _fXXApppp( @ 2 %$-!#&'(/+,B]B߀ w (@JimEEXN1DBDS.MAKESSORT92081-1X657 REV.5000 870113.1927/IMG2_5*0/UTILS/DBDS_SUBC.PAS EŭDBDS.MAKESSORT-WWWw.CBT.DAD.DLD.DST.ENTR .LPX .MBT.MPYPAS.1 PAS.BITDEPOSIT2 PAS.BITEXTRACT2 PAS.CHECKPTR2 PAS.NONCDSPAS.RANGEINTEGERW~~GHH`(ppDŽ`Ap`@p ۀ8Lj 8(@(Āpp`p`߆A@ƄJ(n@A ΄`A@p Eۀ~THRR@@AA @6h6A n A`@p jۀAA@@ 6`6A(A(`@p ۀp`A@p AKK**p`@pA ۀɄ`Ap`@p ۀ`p(*8Lj8('K Z w( A(2  a @l‹EEXN1DBDS.MAKEISORT92081-1X657 REV.5000 870113.1927/IMG2_5*0/UTILS/DBDS_SUBC.PAS EţDBDS.MAKEISORT-WWWw.CBT.DAD.DLD.DST.ENTR .LPX .MBT.MPYPAS.1 PAS.BITDEPOSIT2 PAS.BITEXTRACT2 PAS.CHECKPTR2 PAS.NONCDSPAS.RANGEINTEGERW~~HHH`(ppDŽ`*Ap`*@p ۀ8Lj 8(@(Āpp`p`ކA@ƄJ(p@A 3΄`3A@p Eۀ3~dHRR@@AA @6h6A p 3A`3@p jۀAA3@@ 6`6A(A(`6@p ۀp`A7@p AKK**7p`7@pA ۀɄ`8Ap`8@p ۀ`p(*8Lj8('K Z w A(  @o`GGXr1DBDS.BUILDLOCAL 92081-1X657 REV.5000 870113.1927 /IMG2_5*0/UTILS/DBDS_SUBC.PAS GHDBDS.BUILDLOCAL zz* .DAD .DDE.DIV.DLD .DMP.DST.ENTR .LBPR .LPXR .MBT.MPY.SBT DBDS.ADDENTRY DBDS.MAKEISORTDBDS.MAKESSORTDBDS.POSTBUFFER PAS.1 PAS.CHECKPTR2 PAS.NONCDSPAS.RANGEINTEGERzy??A pppp`p`0p`p`pp`p` p` @p` ވp`p`p`  AA@p  6P` (pB@p>?JJ pAC`Qh A  SAA C:A:Uh6D:WUh6 `p`p`p:Y[pE`D0EDp:][pE`0EeLLp:_Ax:b@6h6aA a88B(>`  ApB`  A@@Bp` (_pBp n:`Adh  AA f :AA<<h@6hHH6a`p`Ap<AjYpE`K0EKp`p<l[pE`D0EDp<n[pE`0Ep<pUDh6<rUh6-QQA <AtUh6h6 D<vx `p A<p  @pEA<r @@Ep     \x8A8B(b`  ApB nBmnRRAq`  ApB }B` (pBp nA:`dh A  fAA :>AAy >AA:>p  @ApE A:E>r  (xEp{ >XXT55A:`}h A  bAA :@A@Uh6D@_U؀h6 A@Yx `88E(88B(X H ffEIHHAFFpGp( 2 #)*&'+%/ !:f\ @@FFX 1DBDS.BUILDPASSWD92081-1X657 REV.5000 870113.1927/IMG2_5*0/UTILS/DBDS_SUBC.PAS F5DBDS.BUILDPASSWD""pDBDS.ADDENTRY DBDS.POSTBUFFER PAS.1 PAS.NONCDS"A A  8(-@GGX1DBDS.CREATEROOT 92081-1X657 REV.5000 870113.1927 /IMG2_5*0/UTILS/DBDS_SUBC.PAS GDBDS.CREATEROOT I}}I.DAD.DDE.DIV.DLD.DMP.DST.LPXR .MPY.SBTDBDS.BUILDGLOBALDBDS.BUILDLOCAL DBDS.BUILDPASSWDDBDS.FATALERROR DBDS.NLSTERMDBDS.NONFATALERRIMG.BUILDDESC IMG.CLOSEFILE IMG.CREATEFILE}xx8IMG.NOPROTECTIONIMG.OPENNOEXTEND IMG.OPSYIMG.PARSEDESC IMG.PURGEFILE IMG.SINTTOSSTRIMG.WRITLONGSTR MDBDS_SUBC NLREADREL PAS.1 PAS.BLANKFILL PAS.CHECKPTR2 PAS.NONCDS PAS.RANGEINTEGERx>>`(`e((`܀pp`A 2@ 88( p `Jp` @@p` Ap` Ap`Jp`J>GG@@@@Jp`߈Jp`ވ@@p`(ppnKA` Kh AAAA p€  A@ӈ@@peHHP(( @Ap(HHӈx88(U`@@ A p` p` @p`@@ A p` pDPP`@@ Aيp`d(AA(      A   ph6A` @H`D( pKKA `A@p 'A  +A  /A 3A: C  ph6` @HA`T(ZZ`@p`A@(g`p`hIIA@p nA  rA y   ph6A` @H`D(AT`(`p((p`@p`pT`m~~eGG((((A(סA وP((((~ r ,,8(2'&#1  ,  (@ )tBBXo 1DBDS4 92081-1X654 REV.2540 870113.1922 /IMG2_5*0/UTILS/DBDS_SEG4.PAS B  PAS.SEGMENTRTN  @ ,?FFX 1DBDS_SUBS_FOR_SE92081-1X658 REV.5000 870113.1930/IMG2_5*0/UTILS/DBDS_SUBD.PAS F@YFFXow 1DBDS.CREATEERROR92081-1X658 REV.5000 870113.1930/IMG2_5*0/UTILS/DBDS_SUBD.PAS FjDBDS.CREATEERRORdd.DAD .DDE.DLD .DMP.DST .ENTR .LBPR .LPX.MBTDBDS.FATALERROR IMG.CLOSEFILE IMG.PURGEFILE PAS.1 PAS.CHECKPTR2 PAS.NONCDSPAS.RANGEINTEGERd~~aMMAi^(`a(5pdJp_n@Ae`_rh D  teb b@6hi6vA0i^(28_8d(`aP(9(>=i`(]`aArh  AA tb@~Mn b@6hi6vA]i` ]j yk A ggpahp`(2@@EGGX9 1DBDS.CREATESETS 92081-1X658 REV.5000 870113.1930 /IMG2_5*0/UTILS/DBDS_SUBD.PAS G 9DBDS.CREATESETS 9yy%.DAD.DCO.DDE.DIN.DIS.DLD.DMP.DSBR .DST.LBPR .LPXR .MBT.SBTDBDS.CREATEERRORDBDS.FATALERROR IMG.CLOSEFILE IMG.CREATEFILE IMG.NOPROTECTION IMG.OPENBIGDCBIMG.OPSYy`` F IMG.PURGEFILE IMG.WRITEBUFFER IMG.WRITLONGSTR MDBDS_SUBDNLREADREL PAS.1 PAS.BLANKFILL PAS.CHECKPTR2 PAS.NONCDSPAS.RANGEDOUBLE PAS.RANGEINTEGER`!II`f( `( `e( (<`(Xp9JpBn@A9`B9̀h D9999@6h969`m(A 7 ?(A@Bp9AA9?  E ?(O@BLIPPp9O9A? S ?(U8B89(`(p9pBnA9`B9h A9AA99A9@6Ah96999999A 99?(A? P9A(( [NN ?(A? `9p9ApA`A9@9 8A89(@99AD99( (( AA99AACCD99AC9A9A99C(߈(( A`i(`gII@@@pp99x9A99AH9x9 9?A(? C9(A ?(8B89(``d(h96`>9$@9H`90 D 6E?(  ,>DBMON REL +l+l+l>FST DDXXĩ DBMON_PROGRAM_HE92081-16015 REV.5010 881203.0913/IMG2_5010/DBMON/MONHD.PASD@:(XDDX92ĩ 4PAS.GLOBALINFO92081-1X681 REV.5000 881203.0913 /IMG2_5010/DBMON/MON_M.PASD@89V}EM,0??X2ĩ DBMON 92081-1X681 REV.5000 881203.0913/IMG2_5010/DBMON/MON_M.PAS?4DBMON /PAS.1 "PAS.STOPff AEMAST EXECPAS.ERRORCATCHER PAS.INITIALIZE PAS.INITMEMINFO2PAS.NONCDS PAS.RETURNPARMS PAS.TOPOFSTACK2 PAS.TRACECLOSESAM.INITIALIZESAM.SEGMENTER SAM.START f77A?"" * Ayz{|`pvAuvwx`x(+xp",7 '" % % AA '*+  ~2 @gs1AAX6ĩ "MON.ERRORCATCHER92081-1X707 REV.2440 <850416.1428> /IMG2_5010/DBMON/MON_E.MACA$$PAS.ERRORCATCHER2SAM.TELLUSER4SAM.TRACEBACK1$EXECLOGLU REIOSAM.SEGMENTER XX668(p @0p0 p#"` AP!(1** DBMON FATAL ERROR ** 39024X@N9>>X.ĩ &SAM.TABLES92081-1X703 REV.2440 <850416.1427> /IMG2_5010/DBMON/DSEGT.MAC><<SAM.FIRSTSAMSEG SAM.NUMSEGS #SAM.PTNTABLEPTR SAM.SEGNAMEPTRSAM.SEGTABLEPTR <AA..DB00A DB01A DB02A DB03A DB04A $A@ݐ>>Xcĩ )IMG.MAIN_EXT92081-1X715 REV.5000 <870113.1451>/IMG2_5010/DBMON/MON_X.MAC>((nCHECK_POINT DBM.MAKELOGRECDBW.READRUNTABLEDBW.RUNTABLEPTR (@.;;Xĩ /DB00A 92081-1X688 REV.2540 <850416.1427>/IMG2_5010/DBMON/DB00A.MAC; U DB00 MON.STARTDBMONSGIN2 UMAIN **F(*@DDX{ĩ #'MON.STARTUPDBMON92081-1X710 REV.2540 881203.0929/IMG2_5010/DBMON/BMSTR.PASD@\R{CCX-zĩ #(MON.STARTDBMON92081-1X710 REV.2540 881203.0929/IMG2_5010/DBMON/BMSTR.PASCwMON.STARTDBMONT*.DAD.DLD.DST+.LBPR ,.LPX-.LPXR ..MVW CHECK_POINT DBFWW DBM.SPOOLREPLY#DBW.INITWKHORSE EMA.MOVEWORDS EMA.RECEIVEMSG EMA.SENDREQUEST IMG.ENDTIME IMG.STARTTIME 'MON.BACKUPINFO"MON.BEGINTRANSyy $MON.CHANGESTATUSMON.CLEANUP MON.CLEANUPPROG !MON.DBASECLOSEMON.DBASEOPEN MON.DELETERECORDMON.ENDTRANSMON.EVALERROR MON.FINDCHAIN MON.FINDPROCESS MON.GETINFO MON.GETMESSAGEMON.GETRECORD y~~d!&MON.INITALLOC %MON.INITDBMON MON.LOCKPROCMON.LOGMEMO MON.PUTRECORD MON.RESIGNATION MON.RESOURCELISTMON.ROOTFILEINFO MON.SENDREPLYMSGMON.UNDOTRANS MON.UNLOCKPROCMON.UPDATERECORD)PAS.1 PAS.NONCDS~ Dx(PAS.NUMERICPARMS NDD Ap)u()`)pZp[p\ z)*A()*&(#!)Ơ)*((A&)*(A%*(1A/)*1`)D(NA6pT`)A@(H `A@)$D@@(O`)P(O`)P(O(e}*),{/(epTAJ^)Ae){`)P(sP(sP(sP(sP(sP(s(}*)n-nAxW+nA@h.88-nAx) W)]V))*(`p)(:(pU`U(M`)P(ۈP(P(ለP(P(爈P(P(툈P(P(P(P(P( P(P(P(h@@P(P(P( P(P(P(P(#P(#P(#P(#P(P(P("P(.P(&(1"A(:!(: (:A(:A(:(:(:A(:A(:Qc(:q@@A(:(:(:A(:A (:$ (: )Ơ)*(`Ap)(:(:(:A(:'!(:(:J%(:-)}x)Ap)(:0(:`p)-)``p)*pU<88A?)*`)(C(`)9(`Q(`T(AO)))*)*)*)*) *)<*)@))*)*)*)"*)$*)>*)B))EtJJp)r-rAxv+pA`v+rAxv-p`v-rxvA-p`v-rAxv-p`v-p`AA}*pAAnnRA( )R( `)*P(~~L:: p);`)*P(p)<`)* P(p)=`)*P(p)>`)9(7`):(7)))*(A)* ))*(AJ)AAt+tA`)C-t-t~g;;A`)-t`) -t`A  )))*()*( )C{{)))*pS-)P( (%A"pU(*`p)uA*)*0)))*@(5@@*^3 5)*p)9`Q(L?))*pSpQ`)*(HpU(LpU L((1P@ Pw 00 x8w(NW X])c099$(( efghijklnoprstuvwyz{|((M9@͍MDDXĩ /!CLEANUP_UNDO_PRO92081-1X685 REV.2540 881203.1141/IMG2_5010/DBMON/BMCUP.PASD@|YDDX$Kĩ /!MON.RESOURCEPROC92081-1X685 REV.2540 881203.1141/IMG2_5010/DBMON/BMCUP.PASD{=MON.RESOURCEPROC 22 .DAD.DDE.DLD.DMP.DST .ENTR EMA.COMPAREWORDSPAS.1 PAS.NONCDS2QQhJ//<p1`1(-<A;(-<A<CAA:3< DE33(93G(,p1(`1p2Q sc/`2= g> A 9`Jp2(  J @m--EEX$Iĩ /"MON.CLEANUPPROG 92081-1X685 REV.2540 881203.1141 /IMG2_5010/DBMON/BMCUP.PASE^$MON.CLEANUPPROG ttn .DAD .DCO .DDE.DLD .DMP.DST.ENTR .LBPR .LPX.LPXR DBW.ROOTCLOSE EMA.COMPAREWORDSMON.EVALERROR MON.REMOVELOCKS MON.TRANSCLEANUP PAS.1 PAS.BITEXTRACT2 PAS.NONCDSt͒JJ`"ppp p ` (I`CA@ (Ih   AJ * AA,AA A)!.(Eh   AJ / AA@A 1(A(Ap (D` p (H` p (` "JHHA(mO (_`Ep uV *` *PD(Z(] p *(^((mh  A  /J x`Gpph  AJ 3 AA(, !.(A5HKKxpp `BA@(` (Ȁh D  7  A@p9**P((p `p A "(`Ap(`@F@Ah D  : VV++A<P@(("#(`Ep uA##(((A<AHHx<`@ p 88(qpV v`$ **յ%A!`Ap(  70*@ 2dh@iCCX ĩ /$MON.CLEANUP 92081-1X685 REV.2540 881203.1141 /IMG2_5010/DBMON/BMCUP.PASCMON.CLEANUP xSS.DAD.DCO .DDE.DLD .DMP.DST .LBPR .LPX .LPXR EMA.COMPAREWORDSMON.CLEANUPPROG PAS.1 PAS.BITEXTRACT2 PAS.NONCDSSMQQAJAAw w  (?xpvptps`s(g`A@t(ght D  yywhv  AA AAG(cht A  @pQKK{ {(_(_ps(b`tpt(f`tpt(`s(~wyhv  AA yA 0`pprhr A  JA}A }( wyhv F{QQD  yy}{y{( A }xqpppo`A@p(`o(hq D  yA@ppyPr((AAwAyhvD   y cNN0po(`pApp(AAwyhv D  y 08r8(wyhv  AA yA /(<wyhv A  AAyyA:yuff7l;33(<8v8(AJA (j A` `  x ` `p(lpp:f n **G8(   *^2dU @@7VDDX!ĩ REPLY_SENDING_RO92081-1X686 REV.2540 881203.1223/IMG2_5010/DBMON/BMSMS.PASD@ra!DDX#ĩ MON.SENDREPLYMSG92081-1X686 REV.2540 881203.1223/IMG2_5010/DBMON/BMSMS.PASDnMON.SENDREPLYMSG--o.DAD.DLD.LPXEMA.SENDREPLY MON.MESGHEADERPAS.1 PAS.NONCDS-::3`((A`P"A( ( JAA`E(:  8(  R"n @r2DDXqĩ &$DBMON_MESSAGE_GE92081-1X687 REV.2540 881203.1232/IMG2_5010/DBMON/BMIWM.PASD@RXqCCX: ĩ &$MON.GETMESSAGE92081-1X687 REV.2540 881203.1232/IMG2_5010/DBMON/BMIWM.PASCqsMON.GETMESSAGE$$.LPXR EMA.RECEIVEMSGIMG.SLEEP PAS.1 PAS.NONCDS$77pp`/Pz( `/P{( ( po(popq`|pr`p(a`/Pz(`/P{((2A% vow*(/`*(.`}p*(`(.(2App(`; oyyU777w*(]`*(D`}p*(`(\Gq@rpr`r(R`|pr`qpq`~A@q(\`~pq(`pp (`(p* pp9Jxxpuy ns Kt8s( zd@p(DDX ĩ :DATABASE_OPEN_RO92081-1X695 REV.2540 881203.1013/IMG2_5010/DBMON/BMOPN.PASD@kJ DDX6ĩ ;MON.DBASEOPEN 92081-1X695 REV.2540 881203.1013 /IMG2_5010/DBMON/BMOPN.PASDQyMON.DBASEOPEN zz-.CBT.DAD.DDE.DIV.DLD.DMP.DST.ENTR .LBPR .LPX.LPXR .MBT.MVW DBM.MAKELOGRECDBM.REMOVELOGREC DBW.BLOCKIO DBW.FINDROOTFILE DBW.ROOTCLOSE DBW.ROOTOPENEMA.COMPAREWORDSz>> 5EMA.SENDREPLY IMG.READDBCON MON.MESGHEADERPAS.1 PAS.BITDEPOSIT2 PAS.NONCDSTEMPORARY_KLUDGE> JJp`pJ}`߄88@hA8x8x!A8xw`怈pSp"h" AJAA::(v:8F8(vA J@@AA:P7(v`xp<:A@h<`<@҂@0`<@҂@0䈀`<@҂@0`<@҂@0 w( 8"8S(+8 8Ơ*(( Ҫ<<`(`< (p9 p<`p*( `(p(p`p`!P((p(p`(8 8*(( ph EEAJA.8A 8Ơ*(( `(`/J("̀(p'h AJ.AA==`'x>p`׆A@(`*(h AJACACA((CP((CP(P(P(P(ʈ(`!P(`!P(`ݨp*(`p*(`!>>P((`ݨp*(`!Pψ(`!P(Ҋ`p*(`٪p*`*(و( `p(x,hD .8h, : 8:*(( pKKp+p"p@6h6`ԆA@"(Oh"D @6h6(K(.p`+(5ph" AJAA8E8(Kp+`"p*`"ĩ "+DATABASE_CLOSE92081-1X696 REV.2440 881203.1027/IMG2_5010/DBMON/BMCLS.PASC@>CCXĩ "+MON.DBASECLOSE92081-1X696 REV.2440 881203.1027/IMG2_5010/DBMON/BMCLS.PASCrMON.DBASECLOSE qq .DAD .DDE.DLD .DMP.DST.LBPR .LPX.LPXR .MBT.MVWCHECK_POINT DBM.MAKELOGRECDBM.REMOVELOGRECDBW.ROOTCLOSE MON.FINDPROCESS MON.REMOVELOCKS PAS.1 PAS.NONCDSqBBJ`p  ` Ax x ΂@h A&  ê  *()(h  A  JA .(h > # *(A(nBHH #` A h   AJ  .A@6Ah66`6Am  h   AJ  .AA P(( Ơ *((A  pp?88 *((( Hx `h D    @ p ` *(h  A  JA .(` *( `p p 3p z ))8(17,@0 ) . @Z@@X ~ĩ ;7BMBEG 92081-1X691 REV.2540 881203.0953 /IMG2_5010/DBMON/BMBEG.PAS@@ ~CCX5Vĩ ;7MON.BEGINTRANS92081-1X691 REV.2540 881203.0953/IMG2_5010/DBMON/BMBEG.PASC|4MON.BEGINTRANSbb .DAD .DCO .DDE.DLD .DMP.DST.LBPR .LPX.LPXR .MVWDBM.CREATEIDDBM.MAKELOGRECDBM.REMOVELOGRECEMA.MOVEWORDS PAS.1 PAS.NONCDSTMDAY bBBA`Pp 7JA !A!9x h  A  =JA .;(A?A ((`Up *(p` p`(]`p`RA@(<p`P (@(J` =8BEE(Gp =p 9`Tp *(h D  9  A(Z(\(\p(,`p !DHQx)lC) # *(o(7  ##!@hNA:#AF`N:#x)@zQQ)!Dx)A#H`)J !0D #2!DAx)02) *((h  AJ J AA%%x))A!@hNA:%L`N:hD   9 'pp$??A'x))'Lx))'7A'F7  Fx)AA)(`Sp *` *(h D   = .;(A` *(`Op p 4 **584(17  **O d@Ih@@Xvĩ 2BMEND 92081-1X692 REV.2440 881203.1000 /IMG2_5010/DBMON/BMEND.PAS@@vBBXPĩ 2MON.ENDTRANS92081-1X692 REV.2440 881203.1000/IMG2_5010/DBMON/BMEND.PASB;MON.ENDTRANS^^/n .DAD .DCO .DDE.DLD .DMP.DST .LBPR .LPX.LPXR .MVWDBM.GETNEWTUB DBM.MAKELOGRECDBM.REMOVELOGRECEMA.MOVEWORDS PAS.1 PAS.NONCDS^VSDD`p`/(`p*(AJ AAx@Apˀh D   (:(+`p`A@˄(9`p*((hD    .jDOO(AAHxU#Π*(X(AJ #AA A@h`A xxA`ք  Axbb[77*((A*((hD     xAAxA ֠`*(h  AJ  .A(b n ''8( 17  'fd@eDDXD8ĩ (COMMENT_LOG_RECO92081-1X693 REV.2440 881203.1006/IMG2_5010/DBMON/BMMEM.PASD@%xD8CCXĩ )MON.LOGMEMO 92081-1X693 REV.2440 881203.1006 /IMG2_5010/DBMON/BMMEM.PASCMON.LOGMEMO gQQ.DAD .DDE.DLD .DMP.DST .LBPR .LPX .LPXR .MVWDBM.MAKELOGRECDBM.REMOVELOGRECEMA.MOVEWORDS PAS.1 PAS.NONCDSQJJA`pJAA xh A  JA. (r Hx(#*(+(# @hA `A @AA xkkmJ== xA ` Axn*(q(t(t`p*`*(h A  JA. (k  $$78(17   $  @@ DDXĩ DATABASE_INFO_OP92081-1X709 REV.2440 881203.1110/IMG2_5010/DBMON/BMINF.PASD@`CCXĩ MON.GETINFO 92081-1X709 REV.2440 881203.1110 /IMG2_5010/DBMON/BMINF.PASCMON.GETINFO /MM `.CBT.DAD.DLD .DSB.DST .LBPR .LPX .LPXR DBM.BUMPBEGOFTUFMON.GLOBALPTRSPAS.1 PAS.BLANKFILL PAS.NONCDSMXIFFA`pJA Ԉx`P興(P(W(AJAA x xA%*(((AJAJ @AJ   ܄x FJJ@AA AxA`p( dh6A`6(n((A`p* x AA x A(`/A(A xJJ. *A11A xJA( ܀x `p(`p*(1 ; ##8(   @#7 s!@DcDDXYĩ LOCK_UNLOCK_OPER92081-1X708 REV.2540 881203.1054/IMG2_5010/DBMON/BMLCK.PASD@:EYBBXĩ MON.LOCKPROC92081-1X708 REV.2540 881203.1054/IMG2_5010/DBMON/BMLCK.PASB4ZMON.LOCKPROC~~c .DAD .DDE .DIN.DLD .DMP.DST.LBPR .LPX.LPXR .MVWDBW.MASTERPTRSDRMNT IMG.LOCKNOWAITIMG.SLEEP MON.FINDPROCESS PAS.1 PAS.BITDEPOSIT2 PAS.BITEXTRACT2 PAS.NONCDSPAS.SINGLEMOD ~@BBA AJ] AAMM_xMaxAM@h|AcMdxAMfx  h``p A4   *(7(p`P~(KP(KP(P(~~BEEP(P(P(P((h A  jJA O`pWp@pXdlOX]]p`(`P(ph  AJ _ Am@h}Ac(` >(~+AAp 9p >`p *(88W(Z`(`pWp@pXlOX]]88W((`pWp`{@ 88W(`(pWphD  M]   oMEExhD   j Q@pXAlQX]]p`( `P( ph D  _  m@h}cA(` >(p 9p >`p *(( `{@ $ IIA     *(( q(P(q  sp`(pXphD   ph D  j  MA@pYRlMY]]p`(ZڥVAA`P(Z(i`{@(d A`{@ (ph A  _JA mA@h}c(` > (p 9 p >`p *(88X(388W(`(`pWxDDph A  jJA S`{@(@pXAlSX]]88W((`p *(`A(uvP~A((u *((`p *(] UUw00IGxWWUdxW WUhxW WUyxW W0 Z 55[##8Z(  k5~<@UtCCX Gĩ MON.UNLOCKPROC92081-1X708 REV.2540 (( 881203.1054/IMG2_5010/DBMON/BMLCK.PASCMON.UNLOCKPROCVgg.DAD .DDE.DLD .DMP.DST .LBPR .LPX .LPXR .MVWIMG.UNLOCKRESNO MON.FINDPROCESS MON.REMOVELOCKS PAS.1 PAS.BITDEPOSIT2 PAS.BITEXTRACT2 PAS.NONCDSg>BBAJAA A@h Ax x xA x ``pA0*(3(`P(7(<<ƈ`P(@(h BNND   `(pph  AAAA HxpP(s(h A AAA HĄx88(YAAm *( p*  $$#8(  $ =@) GDDX ĩ RESOURCE_LIST_PR92081-1X705 REV.2540 881203.1208/IMG2_5010/DBMON/BMRLG.PASD@hL DDXuĩ MON.RESOURCELIST92081-1X705 REV.2540 881203.1208/IMG2_5010/DBMON/BMRLG.PASD[MON.RESOURCELISTE;; %x.DAD.DDE.DLD.DMP.DST .LBPR .LPXR .MVWMON.RESOURCEPROCPAS.1 PAS.NONCDS;~~HHApJAJ P(( x `( `pphD  A(zAAAJAAD(z`~~~pHJJph AAAA Ƃ@h A ` A A A 88(" ƈJ`AA A` `  ~((A` `  ` `pp:(  ""78(   "~sU@b";;X ĩ 2DB01A 92081-1X701 REV.2540 <850416.1427>/IMG2_5010/DBMON/DB01A.MAC; U DB01 YY .MON.EVALERROR .MON.INITDBMON.MON.TRANSCLEANUMON.BACKUPINFO MON.CHANGESTATUSMON.RESIGNATION MON.ROOTFILEINFOMON.UNDOTRANS SGIN2 UMAIN Y88# (8@#BDDXTĩ .MON.UNDOTRANSACT92081-1X683 REV.2440 881203.1156/IMG2_5010/DBMON/BMUND.PASD@5CTDDX2Lĩ .MON.UNDOTRANS 92081-1X683 REV.2440 881203.1156 /IMG2_5010/DBMON/BMUND.PASDcMON.UNDOTRANS e**MON.TRANSCLEANUPMON.UNDOINITMON.UNDOWRAPUPPAS.1 PAS.NONCDS*,,A((A A((((`p, t 8( g @9EEXĩ MON.REMOVETRANS 92081-1X684 REV.2540 881203.1201 /IMG2_5010/DBMON/BMUNT.PASE@r DDX^qĩ MON.TRANSCLEANUP92081-1X684 REV.2540 881203.1201/IMG2_5010/DBMON/BMUNT.PASDiyMON.TRANSCLEANUP pp .DAD .DDE.DLD.DMP.DST.ENTR .LPX.LPXR DBW.FINDOPENROOTEXECLOG.TRANSSELECT MON.INITTRNCLNUP PAS.1 PAS.NONCDS RCV.DELETERECORD RCV.PUTRECORD RCV.UPDATERECORDpDDp` /(`p *(Āh D   *((pȨ` P($('A'`A(5 !Ϡ *(8(AAqAqP(IP(LDFFP(hP((p(AA qAA uAZuƪ  *(]( d  *(g((AA qAA uAvuƪ  *(y(   *(((AA qA jjG::AAuu  *((  *(((`p *(hD   ssAsAxwAAws`('pj u`ʨy %%&zAxxpɈ`p( % @9XEEXĩ 76MON.UNDOROUTINE 92081-1X706 REV.2440 881203.1147 /IMG2_5010/DBMON/BMINU.PASE@DDDXĩ 77MON.INITTRNCLNUP92081-1X706 REV.2440 881203.1147/IMG2_5010/DBMON/BMINU.PASDtoMON.INITTRNCLNUP LL *.DAD .DDE .DIN.DLD .DMP.DST .ENTR .LPXR CHECK_POINT LOG.INITGETLOGFCLOG.TUFLABELIOPAS.1 PAS.NONCDSLEEAƀn((`hm`gwg"n((` JhbD   xd dz(G @d|AAg d~xiBm!gil"nn(F??uE(`(^`mpf`f@pi`fA@pjZm!ijl"nn(^(`pc? s``co pA kkpb`pc( eQ @,4BBX}ĩ 78MON.UNDOINIT92081-1X706 REV.2440 881203.1147/IMG2_5010/DBMON/BMINU.PASBGMON.UNDOINIT PP.DAD.DCO .DDE.DLD .DMP.DST .ENTR .LBPR .LPX.LPXR .MVWDBM.MAKELOGRECEMA.MOVEWORDS PAS.1 PAS.NONCDSPGcIIApJAAx@AΠh D  . (%`p*(pp`A@Ʉ([`([h D  h  AJ @IEE (S(W(Wpʈ``p()`(a`p*(AJAD    (AAHx#̠*((AJ#AA ؀x^^88AAA ւ@hA`Ax`AAAAAAA*((p`*(`p^ u:`˨ ,,ҟA `pˀ( 17   ,r d@9EEXĩ 79LOG.TRANSSELECT 92081-1X706 REV.2440 881203.1147 /IMG2_5010/DBMON/BMINU.PASE]LOG.TRANSSELECT z ;; e.DAD.DCO.DLD.DSB.DST .ENTR .LPX .LPXR LOG.GETADJLOGRECPAS.1 PAS.NONCDS;PMMpv Awpt`t(p}~u"((r P(&P(.P(9PA(D(O Aw(OAA @Aw(O w(OAAA@ @>>jM%%Aw(OwA(V(o(opt{y{yAAyA@ A(pv> t3r`v  A }pu`pv(r @@CCXN'ĩ 7;MON.UNDOWRAPUP92081-1X706 REV.2440 881203.1147/IMG2_5010/DBMON/BMINU.PASC%MON.UNDOWRAPUP ,,.DDE.DMP.DST.ENTR .LPXCHECK_POINT PAS.1 PAS.NONCDS,//$ D"xAA*((p/ s` A`&p( & @B;`@@Xsĩ #BMBKU 92081-1X704 REV.2540 881203.1117 /IMG2_5010/DBMON/BMBKU.PAS@@sCCXpĩ $MON.BACKUPINFO92081-1X704 REV.2540 881203.1117/IMG2_5010/DBMON/BMBKU.PASCMON.BACKUPINFOill# .DAD .DDE.DLD.DMP.DST.LPXR .MBT.MVWDBW.FINDROOTFILEDBW.ROOTCLOSE DBW.ROOTOPENDBW.RUNTABLEPTR EMA.MOVEWORDS IMG.READDBCON PAS.1 PAS.NONCDS TMDAY lEEAJ AAx xq  *((k`q(8pn`qpqAxq  *("(khqD   .zzAz(A`q(?`Ѩp *(k(ApnGqsEBB  *(J(k xr`rPΈ(P(PЈA(W(WsAA|JA ~A|"pp|˄po~Ax|xB0BA~x|xa'GG0 A`p`o `(Z  s AuJA  AAxx *((kx s    *|PPA((k6`6A6`6A`  `(Z sA@h`AxxxxA`~~mII@6h6A6`6A@6h6A6`6Aׄ `(Z`p *(kAs0`n(khq ~=g *(k(k`p  m LL228(750; !#(( %& .u  L Bz{|BCD@MDlDDXhĩ &MON.ROOTFILEINFO92081-1X704 REV.2540 881203.1117/IMG2_5010/DBMON/BMBKU.PASDAMON.ROOTFILEINFO*cc .DAD .DDE.DLD .DMP.DST .LPX .LPXR .MBT.MVWDBW.FINDROOTFILEDBW.ROOTCLOSE DBW.ROOTOPENDBW.RUNTABLEPTR PAS.1 PAS.INLINEERROR PAS.NONCDScM EEAJ AA *((`(8`ppA*("(hD    . A (A`(?`p*((ApG/ECC*(J( ∈x`P(UP((AJ A xJAAAÀ`& (~ 怈" pAA A `A ``% A(  PPp  `Ʉ ∄`(  䀀/ ( A@h `A . (A @hA `A - ( BRRxA `Ʉ 䀀, ( @AA xAAA + (A @6h 6A 6` 6A * (. @6Ah 6 6` ~~`*HH6A ) (EA x xՂH0ɀH ( (\ xA xՀՂG0AG ' A(s x xF0ɀF~~~jrrCC 䀀& ( Ax xՂB0ɀBA % (A x 戈x0Ɉ(hD 戈0 `A(*((` ~ p O IIp338(750 ;!$'( * 2:<=>Ig  tJKV@DDX{ĩ )ERROR_PROCESSING92081-1X714 REV.2540 881203.1214/IMG2_5010/DBMON/BMERR.PASD@\^{DDX=ĩ )MON.TERMINATE 92081-1X714 REV.2540 881203.1214 /IMG2_5010/DBMON/BMERR.PASDZMON.TERMINATE đEXECPAS.1 PAS.NONCDS <A  8( @H EEXĩ *MON.RESIGNATION 92081-1X714 REV.2540 881203.1214 /IMG2_5010/DBMON/BMERR.PASECMON.RESIGNATION inn> .DDE.DLD.DMP.DST.LPX.MVW CHECK_POINT EMA.SENDREPLY IMG.CLOSEFILE IMG.HARRYKERRYIMG.READDBCON IMG.WRITEDBCON MON.MESGHEADERMON.TERMINATE PAS.1 PAS.NONCDSn%EEA  (`pphD   .@hA  @(88( `pph A J @hA 7 @(988(%A @ A(B F j7E66(H L H(NPW  (YJJ s ` 'p ` p ` p ` p ` p ` *(t` P(t` p {  88j^{A(}   *(` D(`p     *A(8  8( 73 bL @r82DDXyEIĩ *MON.ERRORPROCESS92081-1X714 REV.2540 881203.1214/IMG2_5010/DBMON/BMERR.PASDP8MON.ERRORPROCESS((.ENTR DBM.WARNINGMESG MON.RESIGNATION PAS.1 PAS.NONCDS(ee44`6P>(P?($P@(PA(PB($PC($PD(0PE(0PF(0PG(0PH(*(4A6A(4!6#(4A'6A)(4-6/(4A36(4e /48 839A77p6(> ~@_b~"DDX7ĩ +MON.EVALERROR 92081-1X714 REV.2540 881203.1214 /IMG2_5010/DBMON/BMERR.PASDjMON.EVALERROR ((-.ENTR DBM.WARNINGMESG MON.ERRORPROCESSPAS.1 PAS.NONCDS(&&`p`u( u pu`(&  7Ap(@67TDDXĩ 5INIT_DBMON_ENVIR92081-1X690 REV.5000 881203.0941/IMG2_5010/DBMON/BMIDE.PASD@rCCCX2Tĩ 5MON.INITLOGSYS92081-1X690 REV.5000 881203.0941/IMG2_5010/DBMON/BMIDE.PASC%MON.INITLOGSYS g.DAD.DDE.DLD.DMP.DSB.DST.ENTR .LBPR .LPX.LPXR .MBT DBM.INITTUB DBM.SPOOLSENDER EMA.ADDRTOPTR EMA.DISCTRANSFERGETCL IMG.OPENEXIST IMG.READDBCON LOG.TUFLABELIOMON.EVALERROR 9 PAS.1 PAS.NONCDS|e>>`#ppA ++  *(`Qp * *`@N@6`?6A,`A@Np " *()A`Pp *) *`@K `@L `@Mp A`@Np`~~K>BB@I. M- +0$(R`O$(` /( p (p %p ) b -+ $(e(h@6`?6A, p $(u`R$(  0 02 *~BBp 2p 34 , 0 .AC$((4 ?p A4 =  C -A$((p +- E+4$(( p 4p 5 Ap 66J (HHA0A $ (p `Spph D2 x"AA"8:x" "<88(p p ` /PI(` /PJA((   >=$4 A( ( C.(p v`% >>&!!A#`Ip(@   < +>I  ~@DDXFĩ 5 MON.INITDBMON 92081-1X690 REV.5000 881203.0941 /IMG2_5010/DBMON/BMIDE.PASDYMON.INITDBMON  xx$.CBT.DAD.DDE.DLD.DMP.DST.ENTR .LBPR .LPXR .MBTDTACH EMA.ADDRTOPTR EXEC IMG.APPENDFILE IMG.DEFAULTFILE IMG.GETCOMMBUFIMG.GETDBCONNAME IMG.OPENEXIST IMG.READDBCON x44MON.EVALERROR MON.INITLOGSYSPAS.1 PAS.BITDEPOSIT2 PAS.BLANKFILL PAS.NONCDS4,6@@Ap ( `p*H(`P(@`((J`p(`p*(`("!A(&&A)(+ /*(44A ;*(@@*U@??`p.`p/JJsA`p'Jqh6A`6\ h6`6A(fA(i(i iH mH*({ ArH vH*({A{ `pp~~LFF`ppрh D A@p 88(88(A*((ψ`ppҀh DA88(~b$ *(( pDpp ud`Ԩ 33hA`pԀ(@   H ׀+ 3@C,aDDXhĩ 5!MON.CHANGESTATUS92081-1X690 REV.5000 881203.0941/IMG2_5010/DBMON/BMIDE.PASD3MON.CHANGESTATUSkjjs .DAD .DDE .DMP .LPX .LPXR .MBTDBM.SPOOLSENDER IMG.APPENDFILEIMG.CLOSEFILE IMG.DEFAULTFILE IMG.OPENEXIST IMG.READDBCON PAS.1 PAS.INLINEERROR PAS.NONCDSjɊ;;J`p `*(( P(P(RP(UP(s(`/A@(8`A@A(83* (6(p?`p/`~~;>>(Q`pphD    . 88(A(`Ap.(YH*([h6`6AfH*(rkHAoH(q((`({pD~<<Kyp(~`p*((h@p;p<p=p>  `p*<  8(W17 @H M @uL ;;Xĩ 6DB02A 92081-1X694 REV.2540 <850416.1427>/IMG2_5010/DBMON/DB02A.MAC; U DB02 .RCV.PUTRECORDMON.PUTRECORD SGIN2 UMAIN ,,(,@ýmDDXĩ 6 DATABASE_PUT_OPE92081-1X700 REV.2540 881203.1044/IMG2_5010/DBMON/BMPUT.PASD@DDXg#ĩ 6 MON.PUTRECORD 92081-1X700 REV.2540 881203.1044 /IMG2_5010/DBMON/BMPUT.PASDbMON.PU((TRECORD .DAD.DDE.DLD.DMP.DST.LBPR .LPX.LPXR .MBT.MVW CHECK_POINT DBM.COMMITSNGLTNDBM.CREATEID DBM.MAKELOGRECDBM.REMOVELOGREC DBW.CHECKBIFFULLDBW.PUTRECORD EMA.ADDRTOPTR EMA.MOVEWORDS 44\MON.CHKSETLOCKMON.FINDPROCESS MON.FIRSTTRANSMON.GLOBALPTRSPAS.1 PAS.NONCDS4_??J` p`"Axx@hAx+*A(.(3*A(6( <*(?(?AAAx O*(R(Y*(\(h AJA.Ax n*(q(`( `!@pA ~#*(gMM(@AA#x (A(A@h`h D.vOOA@6Ah66`6A ` `A xA A`# *( (A AEZFF*( (`(.#A xAAJAA (B`(BB*`*(F(`(V(V S*A(V(JAAxAEEs_b**AAAxAAAxAAAxAAAxA`*(`(AE 9 LL9558( n 17 @)*+-3  L a 47 @\r{2DDXĨ2WORKHORSE_PUT_OP92081-1X511 REV.5010 881202.2234/IMG2_5010/DBMON/WKPUT.PASD@EEXSĨ2DBW.ADDEDRECORD 92081-1X511 REV.5010 881202.2234 /IMG2_5010/DBMON/WKPUT.PASE@FDBW.ADDEDRECORD )) .DCO.DDE.DLD.DST.ENTR .LBPR .LPXR PAS.NONCDS)[[::Ap<BAA==@D?=xAAA?AA=LC(A(&(&=ALxADAAA=NC(8(0(8A=NxAAACAp<[ s:`<F xG AB`Rp<( R @REEX]Ĩ2DBW.MAKEMSTRREC 92081-1X511 REV.5010 881202.2234 /IMG2_5010/DBMON/WKPUT.PASEm<DBW.MAKEMSTRREC dd( .DAD .DCO .DIN.DLD.DST .ENTR .LBPR .LPXR DBW.ADDEDRECORD DBW.HASHREADDBW.MASTERPTRS DBW.READRECORDDBW.RECMODIFIED EMA.MOVEWORDS PAS.NONCDSdhTTAp 45 :;(( BxA@A D((( `X;(AA7A F[hA 1AH  1  R45 B8:;(UTMM(`([`Y;(6 (m(e (z`(z 9A (AA9 (  `:@\@Vp,`,@Wh,HWp3@D 39 D(( ?TT459J*:;A((*AKx,AA,45B*:;((  D(( ͂45 J*:;((*Mx,,45B*:;A(( 45B*:;A((*O(TT`Z;(*-@-MAA$-K"$ D(/(/ 45$J*:;((*Kx,",,45B*:;A(/("A D(T(TA >45"J*:;(A(A*Mx,AA$,nIVVAQ45B*:;(T( ]45I*:;(`(*//OAA (p(x(x/Qx,,@/KAA&/AMx,9AA,/AKx, AA,45 :;((* |TT F[hA  AAAA(7(;((‚45J*:;A((&;(( ((9 A( 45J*:;A((*AQx,AA,45B* :;((6p y`< &&њ=A 4`Up("  &UHjn0@^DDXc`Ĩ2DBW.GETKEYPTR 92081-1X511 REV.5010 881202.2234 /IMG2_5010/DBMON/WKPUT.PASD!]NDBW.GETKEYPTR 55 .DAD.DDE.DLD.DMP.DST.ENTR .LPX .LPXR DBW.DETAILPTRSPAS.NONCDS5XXK99Ap< GHCA?LMA((9JAA= CV_h AEh;D ZA X E===Kp<X s9`<N O AGIp;`^p<(  "^ @ ?DDXbV&Ĩ2!DBW.PUTRECORD 92081-1X511 REV.5010 881202.2234 /IMG2_5010/DBMON/WKPUT.PASD_DBW.PUTRECORD xx.CFER .DAD.DCO.DDE.DIN.DLD.DMP.DST.ENTR .FSB.LBPR .LPX.LPXR .TSUB DBW.ADDEDRECORD DBW.COPYFRECTBL DBW.DETAILPTRSDBW.GETKEYPTR DBW.HASHREAD DBW.MAKEITEMPTR xdd eDBW.MAKEMSTRREC DBW.MARKEOINTRIN DBW.MASTERPTRSDBW.READRECORDDBW.RECMODIFIED DBW.RUNTABLEPTR DBW.UNDOINTRINEMA.BYTESCOMPAREEMA.MOVEWORDS EXECPAS.NONCDSd+LLp[A trpn((;tAxZ((;`@%P($('A 't(P(2PA(@(1<(?(;(4AFl(I(; RLQQjfd(U(;d(^(^(a`!(; A(ndA(rAAAAj$pT`T(TppSl^hS AAAj ^^?OOAA^hAAhA(A$pRֈ$pW Wtrpn((;AƄS((;AڄWYX\((;`Y(t(P((`"`WKK(;( W(`WA(; WA((;AAt$pVpQ`V({ppUhU ArAA؈$(1(x($PRZ7QQA(9(x AAրhU D  hU A AA@AhU D  `UpQ8U8(!`Q(`#A(;hxP`PQQA(( P((;AAA pO`O( (pO(gx((;j$pAhAHxNA^hNA ^AA^^AA~xAA^hHH AA^^AA^|A($P(P( P (Q(dAP(P( (|p~A@℁( ApO(|@AA@~A((pO(`#(;(g!IIP()P(:(MA@|AA~@A(9pO(P~xAA|x`(LpO(P`#(;(gA p_~|(cpO(g`#(;`O(*jUUAAhS Dx(( `S @pAAڈ`@p(Є(x((;xhS AA@UUAxAAx(Є(;((߄x((;hS AAAAxAxxA((; WA( (; AAրhQOWW AA AA@DxAAA (9x A(FAxAANW(Q(;8S8(A]x(`(;AAAAxA kSS@AbA`A xA AxA ڀ`T(ppShS Dx߀`S @p߄8S8ڄ(d`A((;xA@^TTj$h AA^^AA^vAԄvZ(ׄ(;߄x((;AAbA((bxA((;xAx`AAx((;`(,(,`bb499x((;x xb)xA(,(;A(4`#A(;8(;(;pMA(I DM(H`M(Kp[b `K`[ 44 !!A`p[(" #  4  IRXik/@XwCCX(9ĨREPUT_UNDELETE92081-1X507 REV.2440 881202.2154/IMG2_5010/DBMON/REPUT.PASC@ y(9DDX>ĨRCV.PUTRECORD 92081-1X507 REV.2440 881202.2154 /IMG2_5010/DBMON/REPUT.PASD([RCV.PUTRECORD m EE ((.DAD.DLD.DST .ENTR .LPXR DBW.CHECKBIFFULLDBW.DETAILPTRSDBW.PUTRECORD DBW.READRECORDPAS.NONCDSE8SS`ppvApsAAA xt @AA!t{yw($(pA*{(-(p}}}}Dt(G(p (Z`u(Wps77T2S (Z`(pftr(i(ppv`s(p`7 t>p`v %A pu`pv(*+n3  @ݯo;;Xĩ 9DB03A 92081-1X697 REV.2540 <850416.1427>/IMG2_5010/DBMON/DB03A.MAC; U DB03 33#.RCV.UPDATERECORMON.FINDCHAIN MON.GETRECORD MON.UPDATERECORDSGIN2 UMAIN 300x(0@DDX\ĩ DATABASE_UPDATE_92081-1X702 REV.5010 881203.1100/IMG2_5010/DBMON/BMUPD.PASD@> \DDXmJĩ MON.UPDATERECORD92081-1X702 REV.5010 881203.1100/IMG2_5010/DBMON/BMUPD.PASDSMON.UPDATERECORD{{.DAD.DDE.DLD.DMP.DST.LBPR .LPX.LPXR .MBT.MPY.MVWCHECK_POINT DBM.COMMITSNGLTN DBM.CREATEID DBM.MAKELOGREC DBM.REMOVELOGREC DBW.CHECKBIFFULLDBW.READRECORDDBW.UPDATERECORD{FF )EMA.ADDRTOPTR EMA.MOVEWORDS MON.CHKSETLOCKMON.FINDPROCESS MON.FIRSTTRANSMON.GLOBALPTRSPAS.1 PAS.NONCDSF~~&AKKJ`Cp`GAxxЂ@h;A x0 x/AFx.A@h<Ax-L=~~~K::*(O(AWJ#*(Z(_/*(b( hƠ*(k(Ar/#*A(u( z*(}(hD ~_yHH.(Op1`- @Hp,`H@-@Ip+ ,#6*((@AA #!x (MMA(!@ (`Ep*(J@h?A#`?A h AJ.A&@6Ah@6%6`@6A%(`*`/A,x@JJF.`+A0`-2A`.A4`<#44A62AA2:h+ AA42AA28(Qp1Z/F*(]((f`DdJJJp*(AA44AJB8Fp)p%`.(pp&`B&@:Ap(`B&@:@A@)p'B4h' 444@<4h% 444>`1HH(h%A :AA@(*((h% 8>(*((`%@(p%8&A8(~/F.P-<Ơ*((AJA@ (h ^^,,AJ.A(*`*((`1(`0A(*((p$`*(`1( `*("`Cp^ " [[IAA8( p17 @)*+-./0 MJP<[%A r9@uM DDXĨ; WORKHORSE_UPDATE92081-1X512 REV.2540 881202.2250/IMG2_5010/DBMON/WKUPD.PASD@֡DDX9Ĩ; DBW.UPDATERECORD92081-1X512 REV.2540 881202.2250/IMG2_5010/DBMON/WKUPD.PASDsDBW.UPDATERECORD ffX .DAD.DLD.DST .ENTR .LPXR .MPYDBW.DETAILPTRS DBW.MARKEOINTRIN DBW.READRECORD DBW.RECMODIFIED DBW.UNDOINTRINEMA.COMPAREWORDSEMA.MOVEWORDS PAS.NONCDSfRMMAp ۀȀA(( ۀ܀րA((AAAApp(pp@A@p@A@@@ph  1MKKAAAAAhA  AAA@A@.(A@@-(@A@/(A(`A(€((`@p8BBQ$$A8(2 ۀ(( ((p((`(pB u*`Ũ A `pŀ( *p@\{PDDXĨ 7REDO_OR_UNDO_UPD92081-1X508 REV.2540 881202.2204/IMG2_5010/DBMON/REUPD.PASD@jDDXx3Ĩ 8RCV.UPDATERECORD92081-1X508 REV.2540 881202.2204/IMG2_5010/DBMON/REUPD.PASDRCV.UPDATERECORD_ XX .DAD.DLD.DST .ENTR .LPXR .MPY .MVWDBW.CHECKBIFFULLDBW.DETAILPTRS DBW.READRECORDDBW.UPDATERECORDEMA.COMPAREWORDSPAS.NONCDSX~5KK`ppApAA A x @AA x A@h  Ax3A(6(<(?(`(H`@p`p(M`p`WKTTA@pAhA  AAAhA  AAAA rA(u(AA h   p `(pAp`LJJJ@p`@@ph   h     (`(p(҈`(`@p88(゜((`(9`p wO` 00 XA pp`p(*+/0.p 0@~NDDXxĩ ! DATABASE_FIND_OP92081-1X711 REV.2540 881203.1126/IMG2_5010/DBMON/BMFND.PASD@ZxDDX39ĩ ! MON.FINDCHAIN 92081-1X711 REV.2540 881203.1126 /IMG2_5010/DBMON/BMFND.PASDDMON.FINDCHAIN KK .DAD .DDE.DLD .DMP.DST .LBPR .LPX .LPXR DBW.HASHREADDBW.MASTERPTRSEMA.ADDRTOPTR PAS.1 PAS.NONCDSKK FFJ`3p `8 Ax  x "xAJA $xAJAA&A10*(4(AE  Ơ*/FDD(H(`(N`4p*(AX*([(* (7ppp`(`A@(h A  (7P((hD   7POO((p(`p(`p(h`(AA,AhD   $  (`5p*(  .x @.AA A$xA@ ))9@AA AxA(`6p*(`2p)  **g8(   *2 k1@=\DDXĩ (9DATABASE_GET_OPE92081-1X712 REV.2540 881203.1133/IMG2_5010/DBMON/BMGET.PASD@r.DDXCĩ (:MON.GETRECORD 92081-1X712 REV.2540 881203.1133 /IMG2_5010/DBMON/BMGET.PASDRMON.GETRECORD /qq$ .DAD .DCO .DDE.DIN.DLD.DMP.DST.LBPR .LBT.LPX.LPXR .MPY.MVWDBW.HASHREADDBW.READRECORDEMA.ADDRTOPTR EMA.MOVEWORDS MON.GLOBALPTRS PAS.1 PAS.NONCDSqHHAJ AAx$x"Ax!@AGAx A@h  x  6 $ *(9( 倈(pJ %`"H>>P(WP(zP(zP(WP(WP(WP((G(aG %(d(d`p *(Am $G7 Ơ *(p(A7(y`p *J((  +pp`"~~!CCP((G (AA+Gp`(`"P((p AGGAAG +((`p *((`(G AG(pG (((`p *( $G7 ~~~1k@@ *((A7P((p((  x#   *(( $EGCA?)=7  *((`(`p *(( `p *~ FF(pp7' 刀hA  'AA''A9p`(`A@@@6 (5p(`@p`@p`pp`(v`A@p̀h6OHH (s`@p`@@((hH@P(g(p`@p`p(rp(up(D9'h  ''';  h  MM; *((`@p`p(% A`AxGA`"P(`"P((7''5 5h!  AA AA@AAx@QQ//@AAAxA(x x ` *( `p (눠Hx Q  55j##8(  FIE5 kors@r2;;Xĩ DB04A 92081-1X699 REV.2540 <850906.1416>/IMG2_5010/DBMON/DB04A.MAC; UDB04 44.DBW.INITWKHORSE.MON.INITALLOC.RCV.DELETERECORMON.DELETERECORDSGIN2 UMAIN 400x(0@ޭWDDXtĩ ,DATABASE_DELETE_92081-1X698 REV.2540 881203.1034/IMG2_5010/DBMON/BMDEL.PASD@VtDDX!ĩ ,MON.DELETERECORD92081-1X698 REV.2540 881203.1034/IMG2_5010/DBMON/BMDEL.PASDJMON.DELETERECORDj.DAD.DDE.DLD.DMP.DST.LBPR .LPX.LPXR .MBT.MVWCHECK_POINT DBM.COMMITSNGLTNDBM.CREATEID DBM.MAKELOGREC DBM.REMOVELOGREC DBW.CHECKBIFFULLDBW.DELETERECORD DBW.READRECORDEMA.MOVEWORDS 44\MON.CHKSETLOCKMON.FINDPROCESS MON.FIRSTTRANSMON.GLOBALPTRSPAS.1 PAS.NONCDS4~~b GGJ`p` @hAxAx@AAAAxAxB*(E(J~G??*A(M( S*(V(]*(`((pAx@pAx *DDA(((`p*( *((h AJ.A(]p`A@p #*((AJAAJA|NNJA#AxJAAJA@ ((AJ@hA `A h AJ.A @6Ah6 6`6A `,8LLA`AxAJx`AAJh #Y*(\((_pfnn<d44*(i( (z`(zz*`*(~(`(`(A*((`*(`( `*(`pn D GG118( g "17@)*+-3G4r/@DDXlĨ!/WORKHORSE_DELETE92081-1X510 REV.5000 881202.2219/IMG2_5010/DBMON/WKDEL.PASD@MlDDXRKĨ!/DBW.UPFREERECTBL92081-1X510 REV.5000 881202.2219/IMG2_5010/DBMON/WKDEL.PASDV=DBW.UPFREERECTBL )).DCO.DIN.DLD.DST.ENTR .LBPR .LPXR PAS.NONCDS)OOf11Ap3:AA44@D64x8AA68A@4AC((( `J9(1A4E<4Ex8;8p3O sf1`3= P> A9`Ip3( I @/DDX4gHĨ!1DBW.DELMASTER 92081-1X510 REV.5000 881202.2219 /IMG2_5010/DBMON/WKDEL.PASDK3DBW.DELMASTER GG '.DCO.DLD.DST .ENTR .LPXR DBW.READRECORDDBW.RECMODIFIED DBW.UPFREERECTBLEMA.FILLWITHWORDPAS.NONCDSG)WWAp2/-"( ("9(0(0+,"; 12((  <x*-*-+,9 12(0(A9+,->$12(<(A $?$& @&?AA &< &KWTTAb.$92A(e($AA(A-(p(y(y (?x*A*( (A?x*AA* (C (Ax*"* (MMM(Q`(w`P(U(^A[(^(w`P(dP((mv(y(wAxh A((wAABOOp`(`(pph AAAAA@ ((`(w88(Aӄ((wA(A(w(pA@GNNp`((`(pph DpA(Apx( (wh 6'7NNA(9(wJA(M(wW(Z(wxA@pppp`(`A@(h JJAAA(PA((((p(`p(w`(`ԈA(wAAh D(((Ĉ`(wAAxTT ڄA((w@ (Ix x  ((wA((Hp`(8pApAAh D#NN@ (3@ (3(5p88(`(HAE(HA(w((S(a(aA`x @@AA(k(z(zA`x iqOO@Ƅ@ ((w88(`(pp` A@pA((A((wAAAhD `@x@@~~PP Ʉ((w@`@A((`@p((wh AAAAAx ((w88((~^TT(wA((w (#(wAxA AxAAA D(G(w(l(lV(Y(wx iCCd##(l(w(p`(wA t(w(wp(p( (`C ~` 99%%A`p( "J  ̀9qr@ĐPBBXĨ--REDO_UNDO 92081-1X505 REV.2540 881202.2136 /IMG2_5010/DBMON/REDEL.PASB@DDX4Ĩ-/RCV.DELETERECORD92081-1X505 REV.2540 881202.2136/IMG2_5010/DBMON/REDEL.PASDwRCV.DELETERECORD= PP Z .DAD.DLD.DST .ENTR .LPXR DBW.CHECKBIFFULLDBW.DELETERECORDDBW.DETAILPTRSDBW.READRECORDEMA.COMPAREWORDSPAS.NONCDSPPP`ppApAA A x @AA!($(A*(-( Ҁ(pA x ҈@pA xRww3PII(U( ҈hA  AAAAAAAA AAA}(`(((`ˆ((pA((p`(`܀w t` %%$A p`p(*+g "3% 4 @۾EEXĩ ) INIT_ALLOCATION 92081-1X689 REV.2540 881203.0935 /IMG2_5010/DBMON/BMIAE.PASE@y!DDX1Oĩ ) MON.INITALLOC 92081-1X689 REV.2540 881203.0935 /IMG2_5010/DBMON/BMIAE.PASDcMON.INITALLOC n FF m.DDE.DDI.DLD .DMP .DSB.DST .ENTR PAS.1 PAS.GETMEMINFO2 PAS.NEW2PAS.NONCDSPAS.SETMEMINFO2 Fg_QQp J J J J J J J J! JA: +A.AA AD @A EHAA AA @BBQ..AAAAZ _A d iA n sA x }pB tW` ]]\44A `p( ^ ~X     !:]  @$DDXĨ.INIT_WORKHORSE_E92081-1X509 REV.2540 881202.2214/IMG2_5010/DBMON/WKIWE.PASD@{EEX]Ĩ/DBW.INITWKHORSE 92081-1X509 REV.2540 881202.2214 /IMG2_5010/DBMON/WKIWE.PASEgDBW.INITWKHORSE w ?? ب.DAD.DDE.DLD.DMP.DST.ENTR .LBP .LBPR .LPX .LPXR .MPY PAS.NEW2PAS.NONCDS?LL`pxpw`x@ `x@͂@`AA `x@ӂ@` `x@A@`A )`x@ς@` 4@`x@A x `x@Ԃ@` J`x@LMM@H xA `x `ppv@`x@AhvD y yA y y8v8(\`x@ `؀ppv`x@yhv AAAy{@ )PP{A { {x  {A { {8v8(`x@ `ppv`x@@AAyhvD y} } }A }xPeLLA8v8(`x@ `ʈ`x@ `x@ `x@ `ppv`x@Ay`v@y xAA  A  xx^5>>8v8(`x@ `ۀppv`x@Hv@8v8(D`x@ `x@`ڀppvhv y y8v8(\`x@ pwx w8s`w XXw>>A`pw( G|MSY*b37012456$"XAghjlm@I`P@hHxU6`<`A(W(Y;;`a*X([^4bf`Zh  0(uu DBRBR.REL::IMAGE2:5:162:128 644 0 0 121000 5300466326 35314 DBRBR.REL::IMAGE2_6000:5:162:128  $ lDBRBR REL +l+l+lPFFST DDXS.21DBRBR_PROGRAM_HE92081-16016 REV.5000 870113.2249/IMG2_5*0/UTILS/RBRHD.PAS D@4nS.DDX([K41PAS.GLOBALINFO92081-1X731 REV.5000 870113.2250 /IMG2_5*0/UTILS/RBR_X.PAS D@ ([CCX% K41RBR.TERMINATE 92081-1X731 REV.5000 870113.2250/IMG2_5*0/UTILS/RBR_X.PAS CMRBR.TERMINATE aab0PAS.1 PAS.1100PAS.1200PAS.200 PAS.3 PAS.300 PAS.400 PAS.500 PAS.600 PAS.700 PAS.800 PAS.900 PAS.NONCDSPAS.SEGMENTLOAD RBR.WRAPUPaA(  8( @%EEXK41RBR.DISPLAYERROR92081-1X731 REV.5000 870113.2250 /IMG2_5*0/UTILS/RBR_X.PAS EeRBR.DISPLAYERRORqq[.ENTR PAS.1 PAS.1100PAS.1200PAS.200 PAS.3 PAS.300 PAS.400 PAS.500 PAS.600 PAS.700 PAS.800 PAS.900 PAS.NONCDSPAS.SEGMENTLOAD RBR.DISPLAYERRRBR.TERMINATE q##mvA`p `( Ap  #  7Ap(@DDX4kK41RBR.IMAGEERROR92081-1X731 REV.5000 870113.2250 /IMG2_5*0/UTILS/RBR_X.PAS DxRBR.IMAGEERROR}}a.DAD.DLD.DST.ENTR .LPX.MBTIMG.NLSTERM IMG.SINTTOSSTRIMG.WRITLONGSTR MRBR_XNLREADREL PAS.1 PAS.1100 PAS.1200PAS.200 PAS.3 PAS.300 PAS.400 PAS.500 PAS.600 PAS.700 } @PAS.800 PAS.900 PAS.NONCDSRBR.DISPLAYERROR kkAA Ap  AEH AHAAF@6h6AP$BHPpC*dD(,A3BppCA9dpD(;`A(AAEk A ""DAAAFpE(@ P"@RDDX;-K41RBR.CALCTLFPOS92081-1X731 REV.5000 870113.2250 /IMG2_5*0/UTILS/RBR_X.PAS Dp%RBR.CALCTLFPOSjj.DAD.DLD.DSB.DST.ENTR .LPXR PAS.1 PAS.1100PAS.1200PAS.200 PAS.3 PAS.300 PAS.400 PAS.500 PAS.600 PAS.700 PAS.800 PAS.900 PAS.NONCDSj)),AA!AA)AA+#"$) % i&A!(@e%V}EM,0??X; AK41DBRBR 92081-1X731 REV.5000 870113.2250/IMG2_5*0/UTILS/RBR_X.PAS ?pp(DBRBR PAS.1 TPAS.1100VPAS.1200^PAS.200 jPAS.3 6PAS.300 8PAS.400 @PAS.500 CPAS.600 HPAS.700 PPAS.800 RPAS.900 aPAS.STOPp||aEXECPAS.INITIALIZEPAS.INITMEMINFO2PAS.NONCDSPAS.SEGMENTLOAD PAS.TOPOFSTACK2 PAS.TRACECLOSEPRTNRBR.DISPLAYERROR RBR.INITENVIRON RBR.PASTEPHASERBR.PRINTSUMMARY RBR.PROCRUNSTRRBR.RECOVERRFLOG|qRBR.REDOPHASE RBR.SCANPHASE RBR.UNDOPHASE WW(99-g/p <4jAA 6 8p 9`G(E@s`F(EEHmA J`G(VPpAA RTAAVY|[A^ha <W ad ;;d&&AgiRBR01 RBR02 RBR03 RBR04 RBR05 RBR06 RBR07 RBR08 RBR09 RBR10 ;@ם(DDX/|:1DBRBR_CHECKPOINT92081-1X732 REV.2540 870113.2320/IMG2_5*0/UTILS/RBRCP.PAS D@/|CCX;1CHECK_POINT 92081-1X732 REV.2540 870113.2320 /IMG2_5*0/UTILS/RBRCP.PAS C1CHECK_POINT ^ yy? .DAD.DLD.DST.ENTR .LBP.LBPR .MVWDBW.FLUSHBIBDBW.MAKEBIMAGE DBW.POSTRECORDS DBW.POSTRUNTBLS EMA.DISCTRANSFEREMA.MOVEWORDS LOG.TUFHEADERIO PAS.1 PAS.NONCDSRBR.DISPLAYERRORybEE`ppA( ( A(( ((  X (#(, X(/(3J(6( J ` p J X`A@ vvE@@ XN (Q(A X  X ([(`@`@p`@@`p(uu`@p `@pv tv` ))A`p(X   )gS @XwDDX-61PAS.ERRORCATCHER92081-1X732 REV.2540 870113.2320/IMG2_5*0/UTILS/RBRCP.PAS D9 PAS.ERRORCATCHER.ENTR PAS.1 PAS.NONCDSRBR.DISPLAYERROR <A  g5 A( @ DDXFH1REDO_PHASE_LIBRA92081-1X733 REV.2540 870113.2304/IMG2_5*0/UTILS/RBR_E.PAS D@'FHDDX1> 1RBR.REDOTRANS 92081-1X733 REV.2540 870113.2304 /IMG2_5*0/UTILS/RBR_E.PAS D&N.RBR.REDOTRANS  v{.DCO.DLD.DST.ENTR PAS.1 PAS.NONCDS KKn&&p)p(`)(#`=A@((#`( @8+(((p)("`(p((`) ;p*K sC&`*. L/ AA--A+`>( (JD(`PqJ((DNOpOAd(Ak  d(A("A*3 (A D ==uLE))8D(RBR01 RBR02 RBR03 RBR04 RBR05 RBR06 RBR07 RBR08 RBR09 RBR10 =n @s3DDXMn "1UNDO_PHASE_LIBRA92081-1X734 REV.2540 870113.2307/IMG2_5*0/UTILS/RBR_F.PAS D@.MnDDX #1RBR.UNDOPHASE 92081-1X734 REV.2540 870113.2307 /IMG2_5*0/UTILS/RBR_F.PAS DQRBR.UNDOPHASE ~~I.DAD.DCO.DDE.DIN.DLD.DMP.DST.LBPR .LPX.LPXR CHECK_POINT IFBRK IMG.LINTTOSSTRIMG.NLSBLANKIMG.NLSTERM IMG.WRITLONGSTR MRBR_FNLREADREL PAS.1 PAS.BLANKFILL PAS.NONCDS~cc PAS.SEGMENTLOAD RBR.CALCTLFPOSRBR.DELETERECORDRBR.DISPLAYERROR RBR.DISPLAYREC RBR.GETADJLOGRECRBR.IMAGEERROR RBR.INITGETLOGFCRBR.PUTRECORD RBR.UPDATERECORDcZKK` ((`p}p.h. D{{(({1`(DA (13A,3A4);3p*:;A*?;(DDA{@(WGK??@{AA/{x-(]JA /A` p-` k Z/-   `(qqp,`,(y+P(|(A  Z  !BB `(J P(P(䈈P(4P(( @A1(((p,`(A);p*A;*;(A;~~#==A;(A  (A(AJ A@A1((3(3A  (A (3JA  Z~+ BB /-`A(3);Ap*;*!;A(&&)A . (33( 1(A((ADJ  (KAA(QP J(D\ Z /-`(Af);p*Al;*q;(vAvAy ~ (( }}أ@@A1((Ԅ(A   ( J(D Z /-`(A);p*A;*;(AA }@@ ((`P(ل(JA);Ap*;*d;A(A  d(A{{x~88Y< /~{`-(s{x~A~8.8}(# (((8 j( OO888( RBR01 RBR02 RBR03 RBR04 RBR05 RBR06 RBR07 RBR08 RBR09 RBR10 O @n@@XЧ4&1RBR01 92081-1X735 REV.2440 870113.2252 /IMG2_5*0/UTILS/RBR01.PAS @  PAS.SEGMENTRTN  @wDDXt881INITIALIZATION_L92081-1X736 REV.2540 870113.2254/IMG2_5*0/UTILS/RBR_A.PAS D@UtCCX*881RBR.PROCRUNSTR92081-1X736 REV.2540 870113.2254/IMG2_5*0/UTILS/RBR_A.PAS CRBR.PROCRUNSTR>vv7 .CBTIMG.APPENDFILEIMG.DEFAULTFILE IMG.ISINTFILE IMG.OPENEXIST IMG.OPENFILEW IMG.STRINGMGR IMG.TRUNCATESTR PAS.1 PAS.BLANKFILL PAS.NONCDSPAS.PARAMETERS RBR.DISPLAYERROR UPSHIFT v}}BDDABp`(  d(  dB d ('A d" d($A ' ,Bƈp`(4A3 ((A A% d ('.<p=4=A9 d (;d ; H A p?(@@u`CCX;1RBR.PASTEPHASE92081-1X738 REV.2540 870113.2257/IMG2_5*0/UTILS/RBR_B.PAS C dRBR.PASTEPHASEbzz .DAD .DCO.DDE.DLD.DMP.DSB.DST.LBPR .LPXR .MBTEMA.CHECKSUMEMA.DISCTRANSFER IMG.CLOSEFILE IMG.OPENROOTF IMG.TYPE1OPEN PAS.1 PAS.NONCDSRBR.DISPLAYERRORRBR.IGNOREDERRORzI>> pQp  p  p  p  J `Q(/    (J P($('pQ(.  J (  (9(9  C>HH    (HJH AAAA AWApP(aAaxP`Pp(8p`pOAJ AhOD  P((3$??P(P(PA((0@6h6AP((  (` (A  A(3( P((A  (` (FF  (3(A @AARJA hO D  R (` (A  A(3(   ((3AT  CC hO AA AA! T (/` (,*  (3(//(33@OpO8J(n(/ AE   (JAJ  N ))8('&$@" )  @l?@@Xك51RBR03 92081-1X739 REV.2440 870113.2252 /IMG2_5*0/UTILS/RBR03.PAS @  PAS.SEGMENTRTN  @ǕSDDX>r01SCAN_PHASE_LIBRA92081-1X740 REV.2540 870113.2259/IMG2_5*0/UTILS/RBR_C.PAS D@>rDDX[ C11RBR.SCANPHASE 92081-1X740 REV.2540 870113.2259 /IMG2_5*0/UTILS/RBR_C.PAS D RBR.SCANPHASE J,>.CBT.DAD.DCO.DDE.DIN.DLD.DMP.DST.ENTR .LBPR .LPX.LPXR .MBT.MPY!.MVW IMG.LINTTOSSTRIMG.NLSBLANKIMG.NLSTERM IMG.READDBCON IMG.WRITEDBCONIMG.WRITLONGSTR LOG.DISPLAYRECdd 6LOG.GETADJLOGRECLOG.INITGETLOGFCLOG.MAKETIMESTMPLOG.TUFHEADERIO MRBR_CNLREADREL PAS.1 "PAS.BLANKFILL PAS.NONCDS RBR.CALCTLFPOSRBR.DISPLAYERROR TMDAY duu BBpE` BpFApDK @6HD@xG :@J@6`G ((((BA@D :@J6hR6A (*A(?(?K @6HD@xG :@J@6`G pE(B8D8F(u sB`EL ̶MAJ` 9pE( 3&/S@@A V-]  X (bAb  X@h +! ` Bpp*`* @ (p 8*8(m Jp J  p J (`(J (p ("5DD( p ` Bpp*h* AJ AAx  A x AA 8*8(( `p  X A@h ,! ` ,k??A! ` Bpp*h* AJ AA@A ((`* @ (p8*A8(  Z     `(`P A((p)(H;;A (*Jp)  @h -!A  * Z   `)(7 Z    `P A(;(>p)(S`(ED (S @h -A!  S Z QCC  `)( P 8(cP ;(P =(P ?((p(p*`((`* @ ( (`* @ (p@ Ap(h* D  (`*~~pHHp*` @A@*A( (g(p'p*`'(`* @ (p x(((h* D  (`* @ (p ` @A@*~DD(h* A Jxp'(`*p*` @A@*( J((  x&((* ` Bpp*`* @ ( (.(.J`  HH@ )h*@x @@ (A8*8( ` Bpp*h* A JAA@A (`(`A A(`  x  ` 8*8(5 ({~~/\h??Ao #8 p$Au8(zz( #8 p$8 $A8(J X + Z+    `(~~~788`P A((p)((p)`)(A Z    `P A((p)(`(A`)J(  P 8(؀(p'p* ~AA  x%`'(`* @ )p x(A(( (p'`*p*` @A@*(p'((h% ("("}! ??A`p% )z ,(..`%(2(8h%J 6`&(<(>A`&p[ Ez ,(JAJ"Q 8 V8([A[b !U_==#8 p$Ah8 $m8(rAry "#8 p$8 $A8(A Z     `(`P A(( ::Ap)((p)` Bpp*` :*@ *@6` .6A 8*8(`)( Z    `P A((p)(`(( P :4>CC(P ;(P <(P =(P >A(( JA  ALx(A ((  A( AALxA( (^II(("#   h /6A` 06 (-(D(DA4 ##8 p$A:8 $?8(DADK !#8 p$Q8 $AV8([A["b 8 ~~AbEEAg8(lAls !#8A p$y8 $~8A( $#8 p$8A $8(A 18A8(~KK"  8 A8(`%((h%A A 0A0 %A &#8 0p$8A $ޡ8(A '#8 p$A8 $[[008(A !#8 p$A8 $ 8(A" A8 8(""[ " FF ,,8 (SX du- 3 x- F 8  d@@@Xӑ51RBR04 92081-1X741 REV.2440 870113.2253 /IMG2_5*0/UTILS/RBR04.PAS @  PAS.SEGMENTRTN  @aDDXYx-1ROLL_FORWARD_LOG92081-1X742 REV.5000 870113.2301/IMG2_5*0/UTILS/RBR_D.PAS ((D@:YxDDXrd-1RBR.DBSPLMESG 92081-1X742 REV.5000 870113.2301 /IMG2_5*0/UTILS/RBR_D.PAS DM/RBR.DBSPLMESG ++~@.DLD.DST.ENTR .LBPR .LPXR DRMNT PAS.1 PAS.NONCDS+KKs''Jp*AA++A`+7+9`A+;`+=A`)!E('p*`c.K sE'`*/ HH000A--p)`bp*(QUERY DBMON DBSPL DBCLN DBUTL DBRBR DBRFR DBSTR DBRST DBULD DBLOD H b @/1MCCX.1RBR.RFLCORRUPT92081-1X742 REV.5000 870113.2301/IMG2_5*0/UTILS/RBR_D.PAS C}RBR.RFLCORRUPTJRR sIMG.NLSBLANKIMG.READDBCON IMG.WRITEDBCONIMG.WRITLONGSTR MRBR_DNLREADREL PAS.1 PAS.BLANKFILL PAS.NONCDSRBR.DISPLAYERRORR.BBBA z , (  ` 80p 8 z , (A  "Av' dv ()0uvpt6vAt; dv (=DuXXB11vptJvtAO dv (QXuvpt^vtAc dv (e lAvq dv (sX s u 8(   @`: DDX301RBR.RECOVERRFLOG92081-1X742 REV.5000 870113.2301/IMG2_5*0/UTILS/RBR_D.PAS DZ*RBR.RECOVERRFLOGwwy$.CBT%.DAD&.DCO'.DDE.DLD(.DMP.DST).LBPR *.LPX+.LPXR ,.MBT-.MVW DBIOC EMA.ADDRTOPTR EMA.DISCTRANSFER EMA.RECEIVEMSG EMA.SENDREQUEST EMA.XCHGMESSAGE EXEC!IMG.CLOSEFILE w~~IMG.CLRCOMMPATH IMG.GETCOMMBUF"IMG.ISTAPEFILEIMG.NLSBLANKIMG.NLSTERM IMG.OPENNOEXTENDIMG.OPSYIMG.READDBCON IMG.READLONGSTR IMG.SCHEDPROG IMG.SINTTOSSTRIMG.SLEEP IMG.WRITLONGSTR LOG.READCHUNK ~^^ LOG.TUFHEADERIO LOG.TUFLABELIOMRBR_DNLREADREL #PAS.1 .PAS.BLANKFILL PAS.NONCDSRBR.DBSPLMESG RBR.DISPLAYERRORRBR.RFLCORRUPTUPSHIFT WKDIO ^-u@@Ap #-# X# #(J.)# XA@ha-/p# # (%`#(%# (%(,#z0-#,#A(11#`#](LA;1!/pAA!/0@IIF#!#(KAK#(A"O#(0X2!/p^!A/c#!#(hh#Al#,Ap3hb6`c6A,3{3hd6`e6,A4A4HH5!/pA!/#!#(A#.-6-A!/#!#(#Ap7!A/p!/#!#A(ʤ# #!#(=LLA!!/.-v8/hf6`g6A$/(((p(-.-w8/hf6`g6A$/(A((9!A/p!/ #!#A(#:(-;!/BBp#!A/(#!#(--#`(he6`h6,A4<#-#(AA#A"D#( K#<#(PAP#X-#=# #(]]#Ab~~_CC# i#(gg#AAA+>@6hk6$3(x((+@@6hc6A$3(A((+BP#,(ADp`(A-#=# #p`(`#P(~d+??`#P(`#P(`#P(#`#p`(`#P((p`(`(/E!/p!A/ѡ#!#(#AF!/pA!CCA/衠#!#(#AG!/pA!/#!#(A# HpA P(`P( #8#A(# #-#($A$#P$LLA )#<#(..#( p`(@ @%# Hl#A(MM#I%)x+KAA(ed(+K AA%rpGGh AAAA(M&((p܈(5((-#n-K#((Ҁhk6`p6A$3(((hc6A`q6$3(((`zP#,(ADOApހ`(-#FSII# -#A(## l#(A#+K(p(A+KAP(߈A((+IxI%*K %A(AA8#n-KAA#(A#! ##( A#(Q`#p`#pA###("A"#'#>#(,,#A.3-xR/7(<<SA E#>>A>>#J#A(JJTMU Ap#SV#(XAX# `#J#W#(ee#J+#Ix#`#(pAp#u# Zr#(x(O#-t# # r@@((O#P((p(pp`0A(### Z# # #`#P((p(`#((O(AAI%A*KA %Ah#A %~~T==J&#6((AAXA+IP((p(`(M### Z٪# # #`#P((p(L`#((O(LZ#A((OIAA%*KAxI@%~sGG#)Ax)AA)+Oxhp) %A')A #?#((Oh AA%h# AJ%&#6A(2(2XAA ;#>-#[#(C`#(B(O(B(LܥC;;J+#Ix#`#(L (O(p#A`#pU\#(ZAZ# _#J#A(dd# m#>>#[#(rAr#+#Ix#`#(}@}#+C~@@#]PA((d_#(A# #J#A(#+#Ix#`#(# p#`(A.-6-!/#!#A(#((e`!/p!A/͡#!#(#( * +UU8*(@   d  W##U#!#5#-ajr#COABXQ,DBSPL.RUNQUER..6]Y DBMON DBSPL DBCLN DBUTL DBRBR DBRFR DBSTR DBRST DBULD DBLOD . MNO@1@@Xם51RBR05 92081-1X743 REV.2440 870113.2253 /IMG2_5*0/UTILS/RBR05.PAS @  PAS.SEGMENTRTN  @ůmDDXP$1REDO_DEL_UNDO_PU92081-1X744 REV.2440 870113.2313/IMG2_5*0/UTILS/RBR_I.PAS D@1PDDX9x6%1RBR.DELETERECORD92081-1X744 REV.2440 870113.2313/IMG2_5*0/UTILS/RBR_I.PAS Ds)RBR.DELETERECORD ..&.DAD.DLD.DST.ENTR PAS.NONCDSRCV.DBASEOPEN RCV.DELETERECORD.44Ap"/AA%1AA##!'(((%!&'(((p"4 s/`") * A%`5p"(  5 @'@@Xۨ5%1RBR06 92081-1X745 REV.2440 870113.2253 /IMG2_5*0/UTILS/RBR06.PAS @  PAS.SEGMENTRTN  @ɺxCCXB1REPUT_UNDO_DEL92081-1X746 REV.2440 870113.2315/IMG2_5*0/UTILS/RBR_J.PAS C@BDDX>61RBR.PUTRECORD 92081-1X746 REV.2440 870113.2315 /IMG2_5*0/UTILS/RBR_J.PAS D$Y)RBR.PUTRECORD --{.DAD.DLD.DST.ENTR PAS.NONCDSRCV.DBASEOPEN RCV.PUTRECORD -44Ap"/AA%1AA##!'(((%!&'(((p"4 s/`") * A%`5p"(  5 @U @@Xߴ511RBR07 92081-1X747 REV.2440 870113.2253 /IMG2_5*0/UTILS/RBR07.PAS @  PAS.SEGMENTRTN  @DDX> )1SUMMARY_REPORTIN92081-1X748 REV.2540 870113.2309/IMG2_5*0/UTILS/RBR_G.PAS D@>DDXMT *1RBR.PRINTSUMMARY92081-1X748 REV.2540 870113.2309/IMG2_5*0/UTILS/RBR_G.PAS DiRBR.PRINTSUMMARY9kkK .DCO.DLDIMG.LINTTOSSTRIMG.NLSBLANKIMG.NLSTERM IMG.READDBCON IMG.WRITEDBCON IMG.WRITLONGSTR MRBR_GNLREADREL PAS.1 PAS.BLANKFILL PAS.NONCDSRBR.DISPLAYERRORk~~DDA  A(   (7(7 '{p|A-| 2  (7A7 (( > zͪ , (CAC ` 8~hh>ND66Ap 8 M z , (RAR Y ^  (cAc j{p|p|A u (zz h z  8(   @m@@X61RBR08 92081-1X749 REV.2440 870113.2253 /IMG2_5*0/UTILS/RBR08.PAS @  PAS.SEGMENTRTN  @ҖTDDX4 31DISPLAY_ERROR_LI92081-1X750 REV.2540 870113.2311/IMG2_5*0/UTILS/RBR_H.PAS D@4CCXm 41RBR.DISPLAYERR92081-1X750 REV.2540 870113.2311/IMG2_5*0/UTILS/RBR_H.PAS CkeRBR.DISPLAYERR;;.ENTR IMG.ISSUEERRORIMG.NLSBLANKIMG.WRITLONGSTR MRBR_HNLREADREL PAS.1 PAS.NONCDS;//|AdA k$lpA$ld$(/ @e ? fAddp(@!AAXTQ 41RBR.WRAPUP92081-1X750 REV.2540 870113.2311/IMG2_5*0/UTILS/RBR_H.PAS AtRBR.WRAPUPOee DBW.POSTRECORDS DBW.POSTRUNTBLS IMG.CLOSEFILE IMG.HARRYKERRYIMG.NLSBLANK IMG.READDBCON IMG.WRITEDBCON IMG.WRITLONGSTR MRBR_HNLREADREL PAS.1 PAS.NONCDSe>==AoqppA qp  dq (` (` ((A  A("&  ((` (.` A(D 5 z , (8(D` 8p 8Boo =11 z , (D H  (J N z (P T (V Z  (\ `  (b f (h l d (no n Ӕ8( x @@@Xޒ6 1RBR09 92081-1X751 REV.2440 870113.2254 /IMG2_5*0/UTILS/RBR09.PAS @  PAS.SEGMENTRTN  @̤bDDXd1REDO_UPD_UNDO_UP92081-1X752 REV.2540 870113.2317/IMG2_5*0/UTILS/RBR_K.PAS D@EdDDXFg81RBR.UPDATERECORD92081-1X752 REV.2540 870113.2317/IMG2_5*0/UTILS/RBR_K.PAS D|+RBR.UPDATERECORD ../.DAD.DLD.DST.ENTR PAS.NONCDSRCV.DBASEOPEN RCV.UPDATERECORD.55t Ap#1AA&3AA$$")*(( &"'()*(( p#5 s3 `#+ , A&`7p#(  7 @Zx@@XΠ61RBR10 92081-1X753 REV.2440 870113.2254 /IMG2_5*0/UTILS/RBR10.PAS @  PAS.SEGMENTRTN  @pDDX.+1GET_AND_DISPLAY_92081-1X754 REV.2440 870113.2319/IMG2_5*0/UTILS/RBR_L.PAS D@.DDX-x+1RBR.GETADJLOGREC92081-1X754 REV.2440 870113.2319/IMG2_5*0/UTILS/RBR_L.PAS D?RBR.GETADJLOGRECW.ENTR LOG.GETADJLOGRECPAS.NONCDS A     7Ap (@|DDX8$,1RBR.INITGETLOGFC92081-1X754 REV.2440 870113.2319/IMG2_5*0/UTILS/RBR_L.PAS DJRBR.INITGETLOGFC !!.DLD.DST.ENTR LOG.INITGETLOGFCPAS.NONCDS! A     -  AAA p (@ )CCX,,1RBR.DISPLAYREC92081-1X754 REV.2440 870113.2319/IMG2_5*0/UTILS/RBR_L.PAS C)k RBR.DISPLAYREC J.ENTR LOG.DISPLAYRECPAS.NONCDSHA  p r`  A `p(  @+DBRFR.REL::IMAGE2:5:135:128 644 0 0 103400 5300466327 35004 DBRFR.REL::IMAGE2_6000:5:135:128  $ DBRFR REL +l+l+lCFST DDX4:.SDBRFR_PROGRAM_HE92081-16017 REV.5000 870414.1758/IMG2_5*0/UTILS/RFRHD.PAS D@oBDDX>|Z4SPAS.GLOBALINFO92081-1X562 REV.5000 870415.1222 /IMG2_5*0/UTILS/RF_MN.PAS D@>|CCX9Z4SDBW.FLUSHBIB92081-1X562 REV.5000 870415.1222 /IMG2_5*0/UTILS/RF_MN.PAS CDBW.FLUSHBIB ggB).ENTR PAS.1 PAS.1100PAS.1200PAS.1300PAS.1400PAS.1500PAS.200 PAS.3 PAS.300 PAS.400 PAS.500 PAS.600 PAS.700 PAS.800 PAS.900 PAS.NONCDSg _p r` A`p(  @VunDDXZ4SDBW.GETBIBENTRY 92081-1X562 REV.5000 870415.1222/IMG2_5*0/UTILS/RF_MN.PAS DuDBW.GETBIBENTRY ggB).ENTR PAS.1 PAS.1100PAS.1200PAS.1300PAS.1400PAS.1500PAS.200 PAS.3 PAS.300 PAS.400 PAS.500 PAS.600 PAS.700 PAS.800 PAS.900 PAS.NONCDSg _p r`  A`p(  @e%DDXJZ4SDBW.COPYRECORD92081-1X562 REV.5000 870415.1222 /IMG2_5*0/UTILS/RF_MN.PAS D{DBW.COPYRECORD ggB).ENTR PAS.1 PAS.1100PAS.1200PAS.1300PAS.1400PAS.1500PAS.200 PAS.3 PAS.300 PAS.400 PAS.500 PAS.600 PAS.700 PAS.800 PAS.900 PAS.NONCDSg _p r` A`p(  @k+DDX>uZ4SDBW.MAKEBIMAGE92081-1X562 REV.5000 870415.1222 /IMG2_5*0/UTILS/RF_MN.PAS D UDBW.MAKEBIMAGE ggB).ENTR PAS.1 PAS.1100PAS.1200PAS.1300PAS.1400PAS.1500PAS.200 PAS.3 PAS.300 PAS.400 PAS.500 PAS.600 PAS.700 PAS.800 PAS.900 PAS.NONCDSg _p r` A`p(  @@EEX~Z4SDBW.CHECKBIFFULL92081-1X562 REV.5000 870415.1222 /IMG2_5*0/UTILS/RF_MN.PAS EM DBW.CHECKBIFFULL ggB).ENTR PAS.1 PAS.1100PAS.1200PAS.1300PAS.1400PAS.1500PAS.200 PAS.3 PAS.300 PAS.400 PAS.500 PAS.600 PAS.700 PAS.800 PAS.900 PAS.NONCDSg _p r`  A`p(  @[zDDXm'Z4SDBW.COPYFRECTBL 92081-1X562 REV.5000 870415.1222/IMG2_5*0/UTILS/RF_MN.PAS D]DBW.COPYFRECTBL vv3.ENTR .LPXR DBW.RUNTABLEPTR PAS.1 PAS.1100PAS.1200PAS.1300PAS.1400PAS.1500PAS.200 PAS.3 PAS.300 PAS.400 PAS.500 PAS.600 PAS.700 PAS.800 PAS.900 PAS.NONCDSv((kAp( (!0&p( s` A`%p(; % @S;qEEXZ4SDBW.MARKEOINTRIN92081-1X562 REV.5000 870415.1222 /IMG2_5*0/UTILS/RF_MN.PAS EiDBW.MARKEOINTRIN ggB).ENTR PAS.1 PAS.1100PAS.1200PAS.1300PAS.1400PAS.1500PAS.200 PAS.3 PAS.300 PAS.400 PAS.500 PAS.600 PAS.700 PAS.800 PAS.900 PAS.NONCDSg _p r` A`p(  @DDX`Z4SRFR.FATALERROR92081-1X562 REV.5000 870415.1222 /IMG2_5*0/UTILS/RF_MN.PAS DitRFR.FATALERROR4l.CBT.ENTR IMG.CLOSEFILE IMG.PURGEFILE PAS.1 PAS.1100 PAS.1200 PAS.1300 PAS.1400 PAS.1500PAS.200 PAS.3 PAS.300 PAS.400 PAS.500 PAS.600 PAS.700 PAS.800 PAS.900 PAS.BLANKFILL ,,iPAS.NONCDSPAS.SEGMENTLOAD PRTNRFR.DISPLAYERRORRFR.WRITEBLANKLI,CC`R(L`Rp z( Az{zS|h}6`~6|((#(#"((R((((RA,(QA(.2Q(4A8QA(:>>Q(@ADC Q(FJQ(LO@( Pt ~Qu AsspR( @S@UEEXZ4SPAS.ERRORCATCHER92081-1X562 REV.5000 870415.1222 /IMG2_5*0/UTILS/RF_MN.PAS E9PAS.ERRORCATCHER{{((!.ENTR PAS.1 PAS.1100 PAS.1200PAS.1300PAS.1400PAS.1500PAS.200 PAS.3 PAS.300 PAS.400 PAS.500 PAS.600 PAS.700 PAS.800 PAS.900 PAS.NONCDSPAS.SEGMENTLOAD RFR.ERRORPRINTER{  RFR.FATALERROR W A  A    e{A( @e%CCX7XZ4SRFR.REDOERROR 92081-1X562 REV.5000 870415.1222/IMG2_5*0/UTILS/RF_MN.PAS CT?RFR.REDOERROR }}.ENTR .LBPR IMG.NLSBLANK IMG.WRITLONGSTR MFR_MNNLREADREL PAS.1 PAS.1100PAS.1200PAS.1300 PAS.1400 PAS.1500PAS.200 PAS.3 PAS.300 PAS.400 PAS.500 PAS.600 PAS.700 PAS.800 }AA_PAS.900 PAS.NONCDS PAS.SEGMENTLOAD RFR.DISPLAYERRORRFR.FATALERRORRFR.LOGRECDISPLARFR.WRITEBLANKLIAnn88ACA D DEpA DE  D9(A RA>x:#:9(%)C` (0A/=(8A 3U8(=n :8? &&@A=(RFR.1 RFR.2 RFR.3 RFR.4 RFR.5 RFR.6 &@EBBX4Z4SCHECK_POINT 92081-1X562 REV.5000 870415.1222/IMG2_5*0/UTILS/RF_MN.PAS B1CHECK_POINT ggB).ENTR PAS.1 PAS.1100PAS.1200PAS.1300PAS.1400PAS.1500PAS.200 PAS.3 PAS.300 PAS.400 PAS.500 PAS.600 PAS.700 PAS.800 PAS.900 PAS.NONCDSg _p r` A`p(  @'F}DDXXmZ4SRFR.INREDOLIST92081-1X562 REV.5000 870415.1222 /IMG2_5*0/UTILS/RF_MN.PAS D&RFR.INREDOLIST; \.CBT.DAD.DCO.DDE.DDI.DIN.DLD.DMP.DSB.DST.ENTR .LBPR .LPX .MBTIMG.BLOCKIO PAS.1 PAS.1100 PAS.1200 PAS.1300PAS.1400PAS.1500PAS.200 PAS.3 PAS.300 PAS.400 BB PAS.500 PAS.600 PAS.700 PAS.800 PAS.900 !PAS.BITMASK1"PAS.DOUBLEMOD PAS.NONCDSRFR.FATALERRORB{EE` +(Ĉp(>pp` 'A@(8`(8h AJAh@6h6A h6`6(1(4(4p(7`p( `(>p(` @wELLp(( AA"bx (({(jrӡ (wAwJ (`AA(@ ,H@!|*p(p t` &&A`p(@7Z  &  @wEEXZ4SRFR.ADDTOSTARTTA92081-1X562 REV.5000 870415.1222 /IMG2_5*0/UTILS/RF_MN.PAS EVRFR.ADDTOSTARTTAQ}}.CBT.DLD.DST.ENTR .LPXR .MVW DBW.READRUNTABLE DBW.RUNTABLEPTR IMG.NLSBLANK IMG.POSAPPENDSTRMFR_MNNLREADREL PAS.1 PAS.1100PAS.1200PAS.1300PAS.1400PAS.1500PAS.200 PAS.3 }PP lPAS.300 PAS.400 PAS.500 PAS.600 PAS.700 PAS.800 PAS.900 PAS.NONCDS RCV.DBASECLOSERFR.FATALERRORRFR.INPUTLOGWRITPHH` 'p ' A(   (A((`ˆA(+A+ A@p@6h6A((B@6h׿H??6A((NU DAp[ D@hA i Dm D(rAr w(|| @ 'p '(`@A:< `p@A  -->A(Z    - d @EEXZ4!SRFR.PERFREDOOPER92081-1X562 REV.5000 870415.1222 /IMG2_5*0/UTILS/RF_MN.PAS ETRFR.PERFREDOOPER8'.DAD(.DDE).DIN.DLD.DST*.LBPR +.LPX,.LPXR -.MBT..MVWEMA.ADDRTOPTR IMG.NLSBLANKIMG.POSAPPENDSTRIMG.RDHISTENTRY IMG.WRITLONGSTR MFR_MNNLREADREL &PAS.1 PAS.1100PAS.1200PAS.1300{{8PAS.1400PAS.1500%PAS.200 PAS.3 $PAS.300 #PAS.400 "PAS.500 !PAS.600 PAS.700 PAS.800 PAS.900 PAS.NONCDSPAS.SEGMENTLOAD RFR.CHUNKREADER RFR.DATABASEOPENRFR.FATALERRORRFR.GETVOLUME {MM<RFR.INPUTLOGWRITRFR.INREDOLIST RFR.LOGRECDISPLA RFR.REDODELETERFR.REDOERROR RFR.REDOPUT RFR.REDOUPDATERFR.WRITEBLANKLIM~~>>ApNA&( && DAp&& D&& DT(T p& 1`& h& *H& HAH() (2xpX`& P(/(<6&>X{T(;A;T(HAC~M>@@&X{T(HHT`(opUT&& Dp&Z& D&A`& DA&dA&(i&(& DT(nnT(q`pU`U(.ppW`WpVA} ~>>XV{&TTpS`S(+`pT `TP((AT(`TP((pSpU`& @Xp& *&& Dͤp&& DA&& DT(AT`pT`TCIIP((pS(*pR @& . pQ`R(*hQ (JA'& 2AT(TpPAAYA,P(P(∈P(EP(P((',@6h6@-PPA,xM')AA[M(D`&  p &Y&T(-,T(DpP`N(<,A@h.pN,܂@hA.(AA'AA,ׂ@6h6-(UPPA,xM'A)Af[M(k `&  p tY&T({zT(pP`N(,܂@hA.pN,A@h.A(AA'A,ׂ@6h6-A,lKKxM')AA[M(`&  p Yҡ&T(AT〈(pP`NA(,܂@h.pNA,܂@h.('+xO`& +(AMAAAA'AA'A OT(pR(`& P($,҈P(Pꈈ(P(P숈(P(PA(($  Y&T(#A#T($A*HQxQ((8W8(x8X(08;;m1(+6Τ&(=&& Dͤp&C& DA&G& DT(LALT; L 44y8(@ )&Y[& <& ?4  O@tg'V}EM,0??X {Z4#SDBRFR 92081-1X562 REV.5000 870415.1222/IMG2_5*0/UTILS/RF_MN.PAS ?(DBRFR qPAS.1 PAS.1100PAS.1200PAS.13002PAS.1400PAS.1500GPAS.200 ]PAS.3 JPAS.300 =PAS.400 SPAS.500 jPAS.600 PAS.700 PAS.800 PAS.900 'JPAS.STOP .DLDCITAEXECIMG.LINTTOSSTRIMG.NLSBLANKIMG.POSAPPENDSTRIMG.WRITLONGSTR MFR_MNNLREADREL PAS.BLANKFILL PAS.INITIALIZEPAS.INITMEMINFO2PAS.NONCDSPAS.SEGMENTLOAD PAS.TOPOFSTACK2 PAS.TRACECLOSE~~ N RFR.DETRECOVSET RFR.DETRECOVSTARRFR.DETREDOLIST RFR.DISPTIMERFR.FATALERRORRFR.FINISH RFR.INITIALIZERFR.INPUTLOGWRITRFR.PERFREDOOPERRFR.POSTBUFFERS RFR.PROCESSDBLISRFR.PROCVOLUMELIRFR.WRITEBLANKLI~:(XX-P/A2` 4A7]pr=QD Ry SpxJ ASxN (SASWQ Y [` {APz(dbAQdAA fjAQq Ty ASpxw Sx~QUQA5VmVVA 5 5VxA A(` (A |(JA` A( Wy ASpx SxK A( |(JA]q(AXK Yy S~~XXpx ASxA 5 5VxAK (A Zy ASpx Sx 5 5Vx K (A [y Spx SxA" 5A( 5AVx-K ~//8.(22A5i (EA (E (E(GGJ |/ JM 88HM$$AP\ RFR.1 RFR.2 RFR.3 RFR.4 RFR.5 RFR.6 8 >z @ ]>(@@Xw4SRFR.1 92081-1X563 REV.2440 870414.1816 /IMG2_5*0/UTILS/RFR_1.PAS @  PAS.SEGMENTRTN  @ÉGCCX4'SINITIALIZE_RFR92081-1X564 REV.2540 870414.1802/IMG2_5*0/UTILS/RF_S1.PAS C@DDXF\H4(SRFR.DETRECOVSTAR92081-1X564 REV.2540 870414.1802/IMG2_5*0/UTILS/RF_S1.PAS DHARFR.DETRECOVSTAR ~Q.DCO.DLD.DSTPAS.1 PAS.3 PAS.NONCDS(( ;<<` PG(p ` +( AJD (=D ` '(8p@p>`> @Fp?@`?J (5()(5` PG(-(/?p `? 8>8@(` @ * -<p * A=A VB8A(  G @ڋEEXzHU4(SRFR.DETRECOVSET 92081-1X564 REV.2540 870414.1802 /IMG2_5*0/UTILS/RF_S1.PAS E[IRFR.DETRECOVSET bb nQ .MBTIMG.NLSBLANKIMG.READDBCON IMG.READLONGSTR IMG.TRUNCATESTR IMG.WRITLONGSTR MRF_S1NLREADREL PAS.1 PAS.3 PAS.NONCDSRFR.FATALERROR UPSHIFT b??` PT((A >LM H(NhR6`S6A  O` p *(G` (4$P  DQp * DAQ / ( DH(44HA9 v DH(>@>H R?C D DQA G D  SGI J 8I(   T @2DDXIrh4)SRFR.PROCESSDBLIS92081-1X564 REV.2540 870414.1802/IMG2_5*0/UTILS/RF_S1.PAS DKZRFR.PROCESSDBLIS{{.CBT.ENTR IFBRK IMG.BUILDROOT IMG.ISINTFILE IMG.NLSBLANKIMG.POSAPPENDSTRIMG.READLONGSTR IMG.STRINGMGR IMG.TRUNCATESTR IMG.WRITLONGSTR MRF_S1NLREADREL PAS.1 PAS.3 PAS.BLANKFILL {GGrPAS.NONCDS RCV.DBASEOPEN RFR.ADDTOSTARTTA RFR.FATALERRORRFR.FINISHRFR.INPUTLOGWRITRFR.WRITEBLANKLIUPSHIFT G~~ EEA DY(`YPf( (pXpY(hA^]^_h6`6_(!($($pX(hA) D D_1w` D_aa 4wA :ji(`A@ DoAGb~FFşE## D_pM D_AS DoAcW DY(\A \Y _i(h` 'Apk hjkF h A( DwnH>> pXp +` (Ap +(7(`XA( Pg((Aa`Y( YA((7 ^(`X(7 ̈Pg((Aad D_pww`99A# D_ (( DY(-A -Y0(`Y(6 6Y( ` (W` '(WDe D_pJ D_A O( DY(T ATYW w tWZ [ 8Z( @ 4f @ѨDDXa4+SRFR.PROCVOLUMELI92081-1X564 REV.2540 870414.1802/IMG2_5*0/UTILS/RF_S1.PAS DbRFR.PROCVOLUMELIK||].CBT.MBTCATIIFBRK IMG.CLOSEFILE IMG.NLSBLANKIMG.OPENEXIST IMG.OPENFILEW IMG.POSAPPENDSTR IMG.READLONGSTR IMG.READSHORTSTRIMG.SCRATCHFILE IMG.STRINGMGR IMG.TRUNCATESTR IMG.WRITLONGSTR |MM 1 IMG.WTHISTENTRY MRF_S1NLREADREL PAS.1 PAS.3 PAS.BLANKFILL PAS.NONCDS RFR.FATALERRORRFR.FINISHRFR.INPUTLOGWRITM EEAr r( "A"A A(% %pp`(A/ P҈A(2(55` (OA? DpAE DE<oIp(CACvHyIn{ |Hq r A n(@  KK @{ @ى@@Xك4"SRFR.2 92081-1X565 REV.2440 870414.1816 /IMG2_5*0/UTILS/RFR_2.PAS @  PAS.SEGMENTRTN  @ǕSAAX>4SPASSONE 92081-1X566 REV.2540 870414.1804 /IMG2_5*0/UTILS/RF_S2.PAS A@ >EEX4SRFR.PROCRUNSTRG 92081-1X566 REV.2540 870414.1804 /IMG2_5*0/UTILS/RF_S2.PAS EbRFR.PROCRUNSTRG A..6+.ENTR IMG.PARSERPAS.1 PAS.NONCDSRFR.FATALERRORRFR.PROCPARAMETE.ǗA `A(  @Ap( @7|CCX 4SRFR.INITIALIZE92081-1X566 REV.2540 870414.1804/IMG2_5*0/UTILS/RF_S2.PAS C nRFR.INITIALIZE7ii .CBT.DLD.DSTDBW.INITWKHORSE IMG.GETDBCONNAME IMG.OPENEXIST PAS.1 PAS.NEW2PAS.NONCDSPAS.PARAMETERSPNAME RFR.DEFFILEOPEN RFR.FATALERRORRFR.PROCRUNSTRG iGCCA pp  p 'p * p p , p . J  /p 1 p  J 6 J 8 J : J B J  4p A3 (6h6A`6 (B(? @B ooC==E >(GA K > (Pp (Rp `ހpp` @@ ` @pAAȈ88(VsAw A(| |o  %%'8(   2DBRFR % ? @PEEXc4SRFR.ADDREDOLIST 92081-1X566 REV.2540 870414.1804 /IMG2_5*0/UTILS/RF_S2.PAS E>]RFR.ADDREDOLIST RR1.DCO.DDI .DIN.DLD .DSB.DST .ENTR .MVWIMG.BLOCKIO PAS.1 PAS.BITMASK1PAS.DOUBLEMOD PAS.NONCDSRFR.FATALERRORRH+IIAJ\  ADa X\  ZZacHJ xV (AX(F(A$d (e WA())fXg(5(5hj`k i(B=eXe W(BABfXJ (@V NI ,Hj@ J 4  4 uU] yI^^^A \(d lCC00C@f&DDXS4SRFR.INITREDOLIST92081-1X566 REV.2540 870414.1804/IMG2_5*0/UTILS/RF_S2.PAS DoPRFR.INITREDOLIST 66.DST.ENTR .MVWIMG.BLOCKIO IMG.OPENFILEW PAS.1 PAS.BLANKFILL PAS.NONCDS6EEpK JA 4 V^WXO(#ViYAXO(#`O(Hh\`]ZJ  (`pLpJhJ AAM>[MV O(C`O(H8J8L E(0pK sH`KP Q\\AO`pK(@  p+DBRFR::SCRATCH:1:100 +DBRFR:::1:100[[$CC(([  @`^EEXx[j4SRFR.DETREDOLIST 92081-1X566 REV.2540 870414.1804 /IMG2_5*0/UTILS/RF_S2.PAS EQFRFR.DETREDOLIST }}Χ.DAD.DCO.DDE.DLD.DST.LBPR .LPX.LPXR EMA.ADDRTOPTR IMG.BLOCKIO IMG.NLSBLANKIMG.POSAPPENDSTRIMG.RDHISTENTRY IMG.READDBCON IMG.WRITLONGSTR MRF_S2 NLREADREL PAS.1 PAS.NONCDS}VV jRFR.ADDREDOLIST RFR.ASKUSER RFR.FATALERRORRFR.FINISH RFR.GETNEXTVOLRFR.INITREDOLISTRFR.INPUTLOGWRIT RFR.READNXTCHUNK RFR.WRITEBLANKLIVG @@A I(A J DKpA DK D(A JI( AL(%((((p(2A+(00p` *@ @ip` hAH(? (xA@<NI A(UU` *`(` Pa(a` Pb(a( hO DKpn DAK rA D vI(`(||gr|AA @ *p *(A>I((IA(`2(Ap P DAKp DK DQ( D(A(`1E==p`(pBpA`p Tp`(`hp`Ph((A (Ո`Pg((pp` @p * R DKp DAK DEE(A S DAKp  DK D(`fp`Pf((p(p@ . p`(hD  2C:C^A(??/ ?LLAA?A?TPb(RPc(Pd(RPe(RPf((`A(jVAA?T@D pe(jAj?V(V?T ((V?TxEAE(A?V~~j>> ((?VxEE(p(A?Hx()( X DKp DKA( D(88B(8(8A(A 4Y(([~LL$$ (I (A\ AI( ޡ] DAKp䡤 DK D(L F ))KG8F()<`  O@~>@@Xݏ4.SRFR.3 92081-1X567 REV.2440 870414.1816 /IMG2_5*0/UTILS/RFR_3.PAS @  PAS.SEGMENTRTN  @ˡ_CCXگ4 1SRFR_DEL_UPD 92081-1X568 REV.2540 870414.1807 /IMG2_5*0/UTILS/RF_S3.PAS C@گCCX J4 2SRFR.REDODELETE92081-1X568 REV.2540 870414.1807/IMG2_5*0/UTILS/RF_S3.PAS C"d;RFR.REDODELETE 88 Dž.DAD.DIN.DLD.DST .ENTR DBW.FINDOPENROOTPAS.1 PAS.NONCDSRCV.DELETERECORD8VV@O00` '((AAC7AAE5A529:((0`2(:p4(0$7239:()p4(0p4J 8 8V sd0`4; K< A 78p3`Ip4(  I @-CCXO4 2SRFR.REDOUPDATE92081-1X568 REV.2540 870414.1807/IMG2_5*0/UTILS/RF_S3.PAS C+l>RFR.REDOUPDATE 88 Ќ.DAD.DIN.DLD.DST .ENTR DBW.FINDOPENROOTPAS.1 PAS.NONCDSRCV.UPDATERECORD8XX11` '((AAH9AAJ7A73<=((1`3(=p6(1%9354<=(*p6(1p6JD 6 6X sj1`6> ? A 9:p5;p4`Np6(  N @;@@X4;SRFR.4 92081-1X569 REV.2440 870414.1816 /IMG2_5*0/UTILS/RFR_4.PAS @  PAS.SEGMENTRTN  @ϮlDDX`X4 SRFR_PUT_OPN_CLOS92081-1X570 REV.2540 870414.1809/IMG2_5*0/UTILS/RF_S4.PAS D@A`XCCXM4 SRFR.REDOPUT 92081-1X570 REV.2540 870414.1809 /IMG2_5*0/UTILS/RF_S4.PAS C =RFR.REDOPUT @@ *.DAD .DIN.DLD.DST .ENTR DBW.FINDOPENROOTPAS.1 PAS.NONCDSRCV.PUTRECORD RFR.FATALERROR@XX-22` '((AAE9AAG7A74;<(AI`4(<p6(2&945;<(+p6(2p6 : J :X sj2`6= 8> A 9:p5`Lp6(  L @^ @@Xn4 SRFR.5 92081-1X571 REV.2440 870414.1817 /IMG2_5*0/UTILS/RFR_5.PAS @  PAS.SEGMENTRTN  @ʀ>@@X14SRFR_MISC92081-1X572 REV.2540 870414.1812/IMG2_5*0/UTILS/RF_S5.PAS @@!1DDXN4SRFR.LOGRECDISPLA92081-1X572 REV.2540 870414.1812/IMG2_5*0/UTILS/RF_S5.PAS DcRFR.LOGRECDISPLA ''.ENTR LOG.DISPLAYRECPAS.1 PAS.NONCDSRFR.WRITEBLANKLI' A Ap   r `  A `p (  @%DBBXʗI4SRFR.DISPTIME92081-1X572 REV.2540 870414.1812/IMG2_5*0/UTILS/RF_S5.PAS B#?RFR.DISPTIMEJJ [IMG.APNDLONGSTR IMG.NLSBLANKIMG.WRITLONGSTR LOG.MAKETIMESTMPMRF_S5NLREADREL PAS.1 PAS.NONCDSRFR.FATALERRORJ~~G88AB  DCp A DC E  D  ڪ D (A &D  DCp , DC A0G A4 D A9  D~!8 (>>  @>? @ 8?( < ?@ƶDDX74SRFR.GETVOLUME 92081-1X572 REV.2540 870414.1812 /IMG2_5*0/UTILS/RF_S5.PAS D VRFR.GETVOLUME 1.ENTR PAS.1 PAS.NONCDSRFR.GETNEXTVOL*A    A  p  p(@#EEXq 4SRFR.CHUNKREADER 92081-1X572 REV.2540 870414.1812 /IMG2_5*0/UTILS/RF_S5.PAS EFRFR.CHUNKREADER y.ENTR PAS.1 PAS.NONCDSRFR.READNXTCHUNK A  eSA( @?^^DDXa4SRFR.ERRORPRINTER92081-1X572 REV.2540 870414.1812/IMG2_5*0/UTILS/RF_S5.PAS DV RFR.ERRORPRINTER| .ENTR PAS.1 PAS.ERRORPRINTERPAS.NONCDS$A    e_A( @Vue@@Xz4SRFR.6 92081-1X573 REV.2440 870414.1817 /IMG2_5*0/UTILS/RFR_6.PAS @  PAS.SEGMENTRTN  @ΌJBBX14 SRFR_ERROR 92081-1X574 REV.2540 870414.1814 /IMG2_5*0/UTILS/RF_S6.PAS B@q1DDXu"4 SRFR.DISPLAYERROR92081-1X574 REV.2540 870414.1814/IMG2_5*0/UTILS/RF_S6.PAS DeRFR.DISPLAYERROR++.CBT.ENTR IMG.ISSUEERRORPAS.1 PAS.NONCDSRFR.WRITEBLANKLI+((SUA (Ah6`6A!(((  9Ap(@@QpDBUTL.REL::IMAGE2:5:234:128 644 0 0 165000 5300466331 35747 DBUTL.REL::IMAGE2_6000:5:234:128  $ DBUTL REL +l+l+lt&tFST DDXZĩ;DBUTL_PROGRAM_HE92081-16018 REV.5010 881203.0504/IMG2_5010/UTILS/DBUHD.PASD@;VZDDX73ĩ PAS.GLOBALINFO92081-1X791 REV.5000 881203.0505 /IMG2_5010/UTILS/DBU_M.PASD@7DDXV3ĩ UTL.FATALERROR92081-1X791 REV.5000 881203.0505 /IMG2_5010/UTILS/DBU_M.PASD w UTL.FATALERRORPP .ENTR PAS.1 (( PAS.200 PAS.3 PAS.300 PAS.400 PAS.500 PAS.600 PAS.700 PAS.NONCDSPAS.SEGMENTLOAD UTL.SENDERROR P A` p  @(   7 A  p (@EEXo*3ĩ UTL.CRSHOCCURRED92081-1X791 REV.5000 881203.0505 /IMG2_5010/UTILS/DBU_M.PASED#UTL.CRSHOCCURRED]] IMG.READDBCON PAS.1 PAS.200 PAS.3 PAS.300 PAS.400 PAS.500 PAS.600 PAS.700 PAS.NONCDSPAS.SEGMENTLOAD UTL.FATALERRORUTL.SENDERROR ]DDƀ A` p!  \&' "("` ))(` /)(A(`!p D  # ΢$8#( ) @4SUDDXd0+3ĩ UTL.NONFATALERR 92081-1X791 REV.5000 881203.0505/IMG2_5010/UTILS/DBU_M.PASD:"UTL.NONFATALERR ggk.ENTR .MBTIMG.ISINTFILE PAS.1 PAS.200 PAS.3 PAS.300 PAS.400 PAS.500 PAS.600 PAS.700 PAS.NONCDSPAS.SEGMENTLOAD UTL.OPENCMDFILE UTL.SENDERROR g@@;'A` p  A 0(`  5(h)6`*6(A p @(((@ " <"#A!!p (@ 0 @m9EEXT3ĩ PAS.ERRORCATCHER92081-1X791 REV.5000 881203.0505 /IMG2_5010/UTILS/DBU_M.PASE9PAS.ERRORCATCHERZZ  .ENTR PAS.1 PAS.200 PAS.3 PAS.300 PAS.400 PAS.500 PAS.600 PAS.700 PAS.NONCDSPAS.SEGMENTLOAD UTL.ERRORPRINTERUTL.FATALERRORZQ A A    etA ( @Сa??X,3ĩ DBUTL 92081-1X791 REV.5000 881203.0505/IMG2_5010/UTILS/DBU_M.PAS?PPH(DBUTL PAS.1 KPAS.200 PAS.3 PAS.300 PAS.400 ?PAS.500 mPAS.600 pPAS.700 rPAS.STOPP].MPY'DBUTL.AC.CMD&DBUTL.AR.CMDDBUTL.BK.CMD%DBUTL.BL.CMDDBUTL.CL.CMD$DBUTL.EX.CMD#DBUTL.HE.CMD"DBUTL.LD.CMD!DBUTL.LG.CMD DBUTL.LL.CMDDBUTL.LO.CMDDBUTL.MW.CMDDBUTL.NS.CMD(DBUTL.QQ.CMDDBUTL.RB.CMDzzIDBUTL.RF.CMDDBUTL.RL.CMDDBUTL.RS.CMDDBUTL.SD.CMDDBUTL.SH.CMDDBUTL.SL.CMDDBUTL.ST.CMDDBUTL.SU.CMDDBUTL.TL.CMDDBUTL.TR.CMDDBUTL.UL.CMDDBUTL.WL.CMD+EXEC,PAS.BLANKFILL -PAS.BOUNDINTEGERzww C.PAS.INITIALIZEPAS.NONCDS*PAS.PARAMETERS/PAS.RETURNPARMS )PAS.SEGMENTLOAD 0PAS.TRACECLOSE UTL.CHECKPARMSUTL.CRSHOCCURREDUTL.FATALERROR UTL.FINISHUTL.HEALTHCHECK UTL.IDENTCMDUTL.INITIALIZEw&&UTL.NONFATALERR UTL.PARSECMDUTL.PROCRUNSTR UTL.READCMD &=Y(QQ.-z)0Ap4`+p(p`*@p),D|{|)}`@ 88((8MOp*V~p \B`F(bAbFeB lAAn sB`FA(yyF>yBBA |CpAA AB`A-!(@(((((((̈((((興((((( ((( ('(.(5(<(C(J(Q(X(_(f(j(mA)(B(m)A'AB(m)&VVB(m)AAB(m)%B(m)AB(mA)$B(m)A#AB(m)"B(m)A!B(mA) B(m)AAB(m)B(m)A B(mA)B`VV(m)AB(mA)B(m)A#&AB(m)*-B(m)1A4B(mA)8;B(m)A?BAB(m)FIB(m)MAPB(mA)TWB(m)A[^AB(m)beB(m g i(mm`(e r r0u 00uAA/w+z PDBUT1 DBUT2 DBUT5 DBUT7 DBUT8 .0 *( @3(??Xĩ "UTL.IN_MAIN 92081-1X821 REV.2540 <850416.1421> /IMG2_5010/UTILS/DBUM.MAC ?@i@@Xĩ -DBUT1 92081-1X792 REV.2440 881203.0513 /IMG2_5010/UTILS/DBU_1.PAS@  PAS.SEGMENTRTN  @QEEX`SĩARCHIVE_COMMAND 92081-1X793 REV.2540 881203.0522 /IMG2_5010/UTILS/UT_AR.PASE@A`SBBXlĩDBUTL.AR.CMD92081-1X793 REV.2540 881203.0522/IMG2_5010/UTILS/UT_AR.PASB&@DBUTL.AR.CMDzz$.CBT.ENTR .MBTIMG.APPENDFILEIMG.APPENDSTR IMG.CLOSEFILE IMG.ISINTFILE IMG.ISTAPEFILEIMG.NLSBLANKIMG.NLSTERM IMG.OPENFILEW IMG.STRINGMGR IMG.WRITLONGSTR MUT_ARNLREADREL PAS.1 z99}PAS.BLANKFILL PAS.INLINEERROR PAS.NONCDSUTL.FATALERRORUTL.NONFATALERR UTL.RUNPROGRAM9+pAA`?@fpPc( Pd(Pe(( AD(#AE(#`@epFGHH(#Hhg`?@hpPc(/Pd(3Pe(V(Z2D(]`A@ep>FGAHH BrABB(GAG J(OAOI S(U(]YI(]hi`?@kpPc(iPd(lPe(p(pq(oJ(`@e6p{KZLGhT6`G((II`@e6pAK[LGhUA6`G(((pq(M(AhjKNKGF(AhV6`W6FhX6A`Y6FFsFOl@GGmGAsplסGlFA(K\PGAK`Q7R7KSKA7RA7GFFAKH KSK7R7"EEGFAKH KSK7R$7,GFKH`q(:A6K^P7R:7 =F(EA CFrA(E K``(QAQ TF(_Z33XFr(_A_rfKNKAGkF(pp3 sp@ 77 A""A?(%@ ,sVEV RU, ,VE DBARC 7uc Dv@EEEX)ĩ 1LOAD_A_DATABASE 92081-1X796 REV.2540 881203.0607 /IMG2_5010/UTILS/UT_LD.PASE@hi)BBX ĩ 1DBUTL.LD.CMD92081-1X796 REV.2540 881203.0607/IMG2_5010/UTILS/UT_LD.PASBDBUTL.LD.CMD?.ENTR PAS.1 PAS.NONCDSUTL.RUNUTILITY A   = A(DBLOD @tn.DDXqĩROLLBACK_RECOVER92081-1X798 REV.5000 881203.0656/IMG2_5010/UTILS/UT_RB.PASD@R[qBBXDĩDBUTL.RB.CMD92081-1X798 REV.5000 881203.0656/IMG2_5010/UTILS/UT_RB.PASBDBUTL.RB.CMD NN ( .ENTR IMG.NLSBLANKIMG.READDBCON IMG.WRITLONGSTR MUT_RBNLREADREL PAS.1 PAS.NONCDSUTL.NONFATALERR UTL.RUNRECOVERN[[22A \u3(  3`)(`*A(. m5Ap l#5 l( F53A(--A3(22[ 2 [O A (DBRBR   @hAAX.ĩ RF_COMMAND92081-1X799 REV.2540 881203.0704/IMG2_5010/UTILS/UT_RF.PASA@n.BBXtĩ DBUTL.RF.CMD92081-1X799 REV.2540 881203.0704/IMG2_5010/UTILS/UT_RF.PASBDBUTL.RF.CMD$.ENTR PAS.1 PAS.NONCDSUTL.RUNRECOVER A   Q A(DBRFR @` DDXxZĩ6RESTORE_A_DATABA92081-1X801 REV.2540 881203.0720/IMG2_5010/UTILS/UT_RS.PASD@YxZBBX՘ĩ6DBUTL.RS.CMD92081-1X801 REV.2540 881203.0720/IMG2_5010/UTILS/UT_RS.PASB'DBUTL.RS.CMD?.ENTR PAS.1 PAS.NONCDSUTL.RUNUTILITY A   SA(DBRST @\CCX\ĩ9#STORE_DATABASE92081-1X803 REV.2540 881203.0751/IMG2_5010/UTILS/UT_ST.PASC@>)\BBX ĩ9$DBUTL.ST.CMD92081-1X803 REV.2540 881203.0751/IMG2_5010/UTILS/UT_ST.PASB(DBUTL.ST.CMD?.ENTR PAS.1 PAS.NONCDSUTL.RUNUTILITY A   RA(DBSTR @͉IEEXĩUNLOAD_DATABASE 92081-1X805 REV.2540 881203.0822 /IMG2_5010/UTILS/UT_UL.PASE@xWBBXmĩDBUTL.UL.CMD92081-1X805 REV.2540 881203.0822/IMG2_5010/UTILS/UT_UL.PASB DBUTL.UL.CMD?.ENTR PAS.1 PAS.NONCDSUTL.RUNUTILITY A   FA(DBULD @c#@@Xyĩ ((DBUT7 92081-1X079 REV.2540 881203.0910 /IMG2_5010/UTILS/DBU_7.PAS@  PAS.SEGMENTRTN  @ IDDX|Lĩ2CHANGE_LIST_FILE92081-1X812 REV.2540 881203.0623/IMG2_5010/UTILS/UT_LL.PASD@]|LBBXϖĩ2DBUTL.LL.CMD92081-1X812 REV.2540 881203.0623/IMG2_5010/UTILS/UT_LL.PASB  DBUTL.LL.CMDee u .ENTR .MBTIMG.CLOSEFILE IMG.NLSBLANKIMG.OPENFILEW IMG.STRINGMGR IMG.WRITLONGSTR MUT_LLNLREADREL PAS.1 PAS.INLINEERROR PAS.NONCDS UTL.NONFATALERR eAA` @p  P( P(P((pX(` @6h6A pX(hH `X(7A$ WA(&.  A2 W(7A 7W> m p lD//A  lL  Q F WA(V VW/ &V ! A  (@ Dg@DDX,ĩ&CHANGE_ERROR_LOG92081-1X797 REV.2540 881203.0630/IMG2_5010/UTILS/UT_LO.PASD@l,BBXiĩ&DBUTL.LO.CMD92081-1X797 REV.2540 881203.0630/IMG2_5010/UTILS/UT_LO.PASB#ZDBUTL.LO.CMDff a .ENTR .MBTIMG.CLOSEFILE IMG.NLSBLANKIMG.STRINGMGR IMG.WRITLONGSTR MUT_LONLREADREL PAS.1 PAS.INLINEERROR PAS.NONCDS UTL.NONFATALERR UTL.OPENLOGFILE f@@`Y@gpXXPd( Pe(Pf((pW(pW`X@f6Ahc6 ^(hhH `W(6A$ FVA(&. F_ ^A``0` (6 A6 =a m A^p lC//@ ^ lK ^ F_b`P F VA(U UV/ rUZ  q[ A Y(@ dD`@!@AAX&ĩRL_COMMAND92081-1X800 REV.5000 881203.0710/IMG2_5010/UTILS/UT_RL.PASA@f&BBXњ<ĩDBUTL.RL.CMD92081-1X800 REV.5000 881203.0710/IMG2_5010/UTILS/UT_RL.PASB6DBUTL.RL.CMD xx.CBT.DLD.DST.ENTR .LBT.MBT .MVWIMG.APPENDSTR IMG.CLOSEFILE IMG.CREATEFILEIMG.ISTAPEFILEIMG.NLSBLANK IMG.NOPROTECTION IMG.OPENFILEW IMG.OPSYIMG.READDBCON IMG.STRINGLENGTHx~~IMG.STRINGMGR IMG.TRUNCATESTR IMG.UNLOCKRESNO IMG.WRITEDBCON IMG.WRITLONGSTR IMG.WTHISTENTRY MUT_RLNLREADREL PAS.1 !PAS.BLANKFILL "PAS.INLINEERROR PAS.NONCDSTMDAY UTL.LOGNAME UTL.MAKEVOLNUM~oUTL.NONFATALERR UTL.RENAMESPARE q A A(      7Ap(vCCp`pȀ`@0(4`@2(4`@3(4`@6(4p`(`@0A@-p @p`.A@(LALS\(XX`YGG*,(`A``(,(hAho\(tt!{h6A`6(((` Ap!h6`6((`p(`S==p`9A@(`@2pɈP+(P,(P-((Á(ƈ`@-@6Hp(h4"`P0(`P1(ρ`P1((S`@3pʈP+(P,(P-fFFA((! (`@-6h6( (Ah5"A ( (A( (h6`6{#CC(&()()) h6H@;(6Hh6@:(6(S!=h6A`6(S(F`ApN@(SS`P0(W(`@6pˈP+(cP,(hP-(o(s@ :fGG(v`@/@A(vr (vh7"`@3pA (h6@;(h6@:A((!h6`6((`p@cGG(A (h6H@;(ĀHh6@:((!h6A`6((@(AP,(( (A$BB(mpll`h(! `p`h6`6`@0pP+(.P,(BP-A(B(J!56FF9=A7(M`@-pI7(M@h8"p?V\([[ch6`6h6` 6A 0 2|43|CCAh!`" p;\(`A(\(A! F(AmpllAG@@ F(AmpllA!h6`6(((mpll( {@@FA(mplAl!h6`6A(3(%)A7 .F(33A:mplA@?@@l!Gh6`6A(QA(_(_XmApl^l(gAg@A lF(qAqxmApl~l!UUa9..h6A`6((` FA(!A F(U f UUG44A( ' `@%8)@(774 U<+BDT'@JDDXĩ3 DEFINE_SPARE_LOG92081-1X802 REV.5000 881203.0742/IMG2_5010/UTILS/UT_SL.PASD@8BBXp!ĩ3 DBUTL.SL.CMD92081-1X802 REV.5000 881203.0742/IMG2_5010/UTILS/UT_SL.PASB DBUTL.SL.CMD||j.CBT.DLD.DST.ENTR .LBT.MBTIMG.APPENDSTR IMG.CLOSEFILE IMG.CREATEFILEIMG.ISTAPEFILEIMG.NLSBLANK IMG.NOPROTECTION IMG.OPENFILEW IMG.OPSY IMG.PURGEFILE IMG.READDBCON IMG.STRINGMGR |ff ^IMG.TRUNCATESTR IMG.WRITEDBCON IMG.WRITLONGSTR MUT_SLNLREADREL PAS.1 PAS.BLANKFILL PAS.INLINEERROR PAS.NONCDSUTL.LOGNAME UTL.MAKEVOLNUMUTL.NONFATALERR fOD@@AmtplA tlplpq`p`@(-`@(-`@(-`@(-pq`q(Ԁ`@pP(8(N`@6pAC@IIhA6`(L(N(Npl`l(YX(m`\pA(eep`(A(mmt\pA(yyp`l(uAh6`6W3AA(((`pn(`pn` A@n(Ah6`6A p(`@pP(P(P((A(Lj`@@6Hpm(h`mP(DD`mP(`mP((!`@pP(P(PA(((`@pA((hD p(Ap( p( CCAp(h6A`6((!(!A!`mP(%(u`@pP(1P(6P(=(A r(D@`@Ar(D@(Dh`@p`pSrQHHp(XAXp \p(aapAcP(f(o jp(oAopsp(uA|\p(ph6`6A`lA(`ph(ǀ`@p~~5@@P(P(P((At`ApA|A| `ph(`@pA` ph(AhΡ\p(p(\~dBBp(ApA Fp(pAmplAlh6`6A(A((mApl(CCAl(%%@A *Fp(//pA6mplA<lCh6`6A(Z(LP` UFp(ZAZpa8^  fFpA(kkp k AAq''A( @'%((ʪ@PURGE A/BDT`@M DDXdĩ9COMMAND_FILE_TRA92081-1X818 REV.2540 881203.0815/IMG2_5010/UTILS/UT_TR.PASD@`dBBXiĩ9DBUTL.TR.CMD92081-1X818 REV.2540 881203.0815/IMG2_5010/UTILS/UT_TR.PASB&DBUTL.TR.CMD>yyp .CBT .ENTR .MBTIMG.CLOSEFILE IMG.GETPENDINGIMG.ISINTFILE IMG.OPENEXIST IMG.RETTOPENDINGIMG.STRINGMGR PAS.1 PAS.BLANKFILL PAS.INLINEERROR PAS.NONCDS UTL.FATALERROR UTL.NONFATALERR y -0UTL.OPENCMDFILE FF`@pP( P҈(P((?p(Bh6A`6 ("( "`@ӄp- Ȁ1 (6 A6: (<p(Bh`(g#FKKH 0(TAO R (T  Tp h6`6Ah6`6Af(nȀh6`6A (xA({({ {h6`6A  0@(j  R A( p  ! BA ( @  0  DDf@EAAX.ĩ8 NS_COMMAND92081-1X814 REV.2540 881203.0646/IMG2_5010/UTILS/UT_NS.PASA@n.BBX}ĩ8DBUTL.NS.CMD92081-1X814 REV.2540 881203.0646/IMG2_5010/UTILS/UT_NS.PASBPGDBUTL.NS.CMD.CBT.DLD.DST.ENTR .MBT IMG.APPENDSTR IMG.APPNDBANDSIMG.NLSBLANK IMG.POSAPPENDSTRIMG.RDHISTENTRY IMG.READDBCON IMG.STRINGLENGTHIMG.STRINGMGR IMG.TRUNCATESTR IMG.UNLOCKRESNO IMG.WRITEDBCONTT A IMG.WRITLONGSTR MUT_NSNLREADREL PAS.1 PAS.BLANKFILL PAS.INLINEERROR PAS.NONCDSPAS.SINGLEMOD UTL.MAKEVOLNUMUTL.NONFATALERR T007A F(  `( (A0  8( F A (%% %& -'8&( j)BBhh6`i6AK(5(2p(7p`F@zp;;Pu(CPv(FPw(J(p(IL(Q\MNA(VV`)v(c`/v(ccO`*v(kkPkHH`;@wp=r=Qp`xA@(~A~R`;A@wp= =p(h{`(\SM(Ahj6`k6T((((AURphjKK6`k6ATNVNKNVN7TANVN@KNVNA`Tܡ\SM((UANVNAQ F(`(??('WmQpl AQl F(ANVNQ "FA(''.XmQpl4AQl 9F(>>"=<<ENVNQAGNYmAQplTQl XZaZmQplgQliAp[mQplAvQlx#yFFNVNAQ F(A\MM(J `|p\MM(AA(U(\SNA(}AANVN>Thl6A`j6T(((A\mQplAQl&(ANVNQ&]mQplAQl &ANVN;;Q&`(('A^mQplAQl&_mQpl$Ql&&(6.`mQpl4QlA&6aA;IIp`(p;p` @gp=AR\N=(WWA[AbNTQ` @gp<`<@yp= r=TczQ<KMM Qd&$$kefp88;(DANVNQ&$ G GGB`H--AF()@+ (  {F>VOLUME Gvu D@[z?@@X/lĩ8DBUT2 92081-1X806 REV.2440 881203.0656 /IMG2_5010/UTILS/DBU_2.PAS@  PAS.SEGMENTRTN  @~<<DDX\&ĩCHANGE_ACCESS_CO92081-1X807 REV.2540 881203.0513/IMG2_5010/UTILS/UT_AC.PASD@=f\&BBX=ĩ DBUTL.AC.CMD92081-1X807 REV.2540 881203.0513/IMG2_5010/UTILS/UT_AC.PASBDBUTL.AC.CMD.CBT.ENTR .MBTIMG.APPENDSTR IMG.BUILDROOT IMG.CLOSEFILE IMG.LCLXCHGMESG IMG.NLSBLANK IMG.OPENROOTF IMG.READDBCON IMG.READROOTHDR IMG.STRINGMGR IMG.WRITEDBCON IMG.WRITLONGSTR IMG.WRITROOTHDR AAqMUT_ACNLREADREL PAS.1 PAS.BLANKFILL PAS.INLINEERROR PAS.NONCDSUTL.BUILDBMHDRUTL.NONFATALERR A~~BCC`v(> \ǡr(Ar`* psA`up\r(""r`s(=)r(. pr(=pA8ɡprA(==Ar(LE\~jjC33r(JAJr`puSmͤplYl`upoAbomwplAhwΤllw qFr(vAvrj vw ˴x8w( uQzHH`@@pρ `v(r( r(Ar Mr(r`0upA Mr(Arr((h6`6BB`p?`?0䨤p?`up]pr(r`((!r( r(Ar Mr(r`pur((!h6`6h< UTL.NONFATALERR FF `4( h$6P( ( h$6 HP(( A   3(`3P((p4(( (F  ! j"8!( aa%--`4(ChV6P(ChV6 AP(C 8  3(B`3P(>(Ap4(BA( (% H  3(R`3P(N(Qp4(R( a hRS T8S(% qqW55A \  3(f`3P(b(ep4(f( `4(h6HP(hH6 P(y F 3(|(   3(`3P((p4(( (fq  ݙ8(W |??`@p>>P(P(P((p5(`>A@p??6p5(hA m p lA  l 3(`3P(( ( 3p4`5(~~EAAA  3(  `3P((p4(`3(( S`4(`p3( 1p06@h6A`6((P0((P0(! (  ~BBn\  3(`3P((p4((   $ 2(&`3(/`3P(/ /3B s/ S A(@ @   "D @+DDX ĩ CHANGE_LOGGING_S92081-1X811 REV.2540 881203.0613/IMG2_5010/UTILS/UT_LG.PASD@hJ BBXĩ DBUTL.LG.CMD92081-1X811 REV.2540 881203.0613/IMG2_5010/UTILS/UT_LG.PASB]DBUTL.LG.CMD@.CBT.ENTR .MBTIMG.APNDLONGSTR IMG.APPENDSTR IMG.BUILDROOT IMG.CLOSEFILE IMG.LCLXCHGMESG IMG.NLSBLANK IMG.OPENROOTF IMG.READDBCON IMG.READROOTHDR IMG.STRINGMGR IMG.WRITEDBCON IMG.WRITLONGSTR KK IMG.WRITROOTHDR MUT_LGNLREADREL PAS.1 PAS.BLANKFILL PAS.INLINEERROR PAS.NONCDSUTL.BUILDBMHDRUTL.NONFATALERR KVIIA\abR(  R`*($`A@W(!`WA@($$c`X(.\bbR(3A3R:bdbeh(6A`)6e(D(G(GAGf`Wa@IJJ(jQ\gbRA(VVR]bdbeh(6`)6Ae(gA(j(jjh`WP(q`WP(q(Ax\ibR(}}RAbdbeh(6`*6e(((jAsDD\aaR(R`* pU`Wp\aaRA(R`U(AkR(pR(plPmR(R(\abRA(``--R`pWnmoplolA`WpOOmYAoplYolY FRA(R` % {}&8%(+EE`\@@6h6Ao=eoAaa @`X(`W(Ip(KpAOpRA( UR(ZAZR _RA(ddR`W(k`p(n`0p s^pBBR(xxRA|R(~(h6`6e`p?`?0p?`W (p\(p\qPmR(R`((rR( R{BB(RA R(ARġR(ƀ`Ԃ"(p(p(h6`6e`p?`?0p?sPtR(R`(`!(><<p(pAumoplAol`(mA\abR(RA`pvmAopl#ol'`X(8`WP(84bM0AAwbxA8A =FR(BABRIymAoplOol`pOXOmYopl^YAolbAY gFR(llR(`WpOv66qOmYAopl|YolY FRA(R6  8(+ !AA`\@pP(P(P((Az(A{(Έ`@6p[Ab~goh}A6`[o(((pV(pV(hH`\@pP(ڈP(P(ဈ(CpX(F@EGG{(F`@6pbgoh}6`o(((pW(@`@A6pbgoh}6`Ao( ((pW(@`@6pbgoh}6`o(#(&(&`pWOO%))(@`@6p1bioh}6`o(:(=(=`pW(@A@|pX(FhH`V(L%K(NNO nN] 88u^&&A\(" @yDt& *%* INRBRFRFN 8 @D"@DDXDĩ.CHANGE_MAINT_WOR92081-1X813 REV.2540 881203.0638/IMG2_5010/UTILS/UT_MW.PASD@~DBBX{ĩ.DBUTL.MW.CMD92081-1X813 REV.2540 881203.0638/IMG2_5010/UTILS/UT_MW.PASB+XDBUTL.MW.CMDxxR.CBT.ENTR .MBT IMG.ISINTFILE IMG.NLSBLANKIMG.READDBCON IMG.READSHORTSTRIMG.WRITEDBCONIMG.WRITLONGSTR MUT_MVNLREADREL PAS.1 PAS.BLANKFILL PAS.INLINEERROR PAS.NONCDSUPSHIFT x[ UTL.NONFATALERR UTL.SPECIALREAD VAA`W@ypPv( Pw(Px((,p (/ \(/`@x6pV]u^_hh6`V_A()(& )`p (/Dhz 2 0(QA;a m _p lAA _ lADDAF  (K AK  P 0 ' ([A V 0 ' ([ A[ ` ' 'bg \c]  (lA l hi6`j6b((uhj6`k6Ab( ((p ( d2H==` (   0(Ae m _p lA _ l   (A    0 ' Af m _p lA _ l   (A   }}srHH 0   ' 'bA  bhl6`k6bA(( Ag(  0  (  A 'b \cc  A(  hj6`k6bA \cc  (    } % X 11KYAW( m  ' CH1vDq@<ZDDXKĩ*SHOW_SUBSYSTEM_S92081-1X816 REV.5010 881203.0733/IMG2_5010/UTILS/UT_SH.PASD@KBBX*ĩ*DBUTL.SH.CMD92081-1X816 REV.5010 881203.0733/IMG2_5010/UTILS/UT_SH.PASB DBUTL.SH.CMDee Q .CBT .ENTR IMG.APNDLONGSTR IMG.NLSBLANKIMG.READDBCON IMG.STRINGMGR IMG.WRITLONGSTR MUT_SHNLREADREL PAS.1 PAS.BLANKFILL PAS.NONCDSUTL.NONFATALERR eE??A \ (  A    A(` *(A(0) m Ap l/  l(=A7 m p lA=  lB~~j??99  (GGAN m p lAT  l` p] m p lc  lAg  Al  (qAqx m ~x;;p l~  l` @)p m p l A lA    (A m p lA  l  =@@  (A \ (A m p lA  l h$6`%6A (A((졪 m Ap l  l(CCA  A  (A  \ (A m Ap l  l %h$6A`%6 (/(=(=A6 m r(6BBp l<  l(E E  J  A(OOV \ A([[b(( m p lh A l oh$6`&6 (y(Ix@@(! m p l  l(     A(" m p l A l h$6`'6 (((``ɠ00# m p l  l(   @  (A A   (`  00l A  ( @몠   @0 ( @5TT@@Xĩ &DBUT8 92081-1X080 REV.2540 881203.0910 /IMG2_5010/UTILS/DBU_8.PAS@  PAS.SEGMENTRTN  @VDDXĩ&CHANGE_BIF_COMMA92081-1X795 REV.5000 881203.0530/IMG2_5010/UTILS/UT_BL.PASD@r=BBXĩ&DBUTL.BL.CMD92081-1X795 REV.5000 881203.0530/IMG2_5010/UTILS/UT_BL.PASB DBUTL.BL.CMD\d.CBT.DLD.DST.ENTR .MBTIMG.CLOSEFILE IMG.CREATEFILEIMG.NLSBLANK IMG.NOPROTECTIONIMG.OPSY IMG.PURGEFILE IMG.READDBCON IMG.STRINGMGR IMG.UNLOCKRESNO IMG.WRITEDBCONIMG.WRITLONGSTR MUT_BL;;G9NLREADREL PAS.1 PAS.BLANKFILL PAS.INLINEERROR PAS.NONCDSUTL.LOGNAME UTL.NONFATALERR ;WjAAp>`pA`A@(`A@(p>`>(`pB`B@P((<`B@@6pAA+ChA6`A(4(<(JJA(=h6`6A =A( <(A=h6A`6((=( <(A=ĈP(( =( <FF(=A=(h6A`6 \=A(=mplAl \=(A=h6`6(('HHS!!(' mpl&l(//4F=A(99=H 9 ))~A( @ CPURGE )BD@fn.DDXHĩ5CLEANUP_SUBSYSTE92081-1X808 REV.2540 881203.0546/IMG2_5010/UTILS/UT_CL.PASD@HBBXݦIĩ5DBUTL.CL.CMD92081-1X808 REV.2540 881203.0546/IMG2_5010/UTILS/UT_CL.PASB DBUTL.CL.CMDrr.ENTR .MBT.MPYCITA DRMNT IMG.LCLXCHGMESG IMG.NLSBLANK IMG.READDBCON IMG.WRITLONGSTR MUT_CLNLREADREL PAS.1 PAS.BLANKFILL PAS.NONCDSUTL.BUILDBMHDR UTL.NONFATALERR r)d@@A m p lA  l   (A   m p l$  lA)   (. . `@C(pp/A?C0@@@F m?p lL? lAS m7p lAY7 l` m;p lf;A lm m3Ap ls3 l@/HhHDH@p`@G/:LJJB(h6`6(h6`6`pK`@G.B(;P(3P`@G,B(h6`6(h6`6`@G/LL-B(h6`6(h6`6`@F(aA]( `@Ep]`@Fp0h6`6A C (  8/877$(8 m p l$ A l)   (. . 7 x.  A(G?7U;3Ya0etHHA  \  (  ` *B( A *( A A( A ( ¡    (A  A Ӫ   (  ` "((ZZ,,, (A  m p lA  l   (A  A    (  Z  LL1 66A (  #*sUQUERY DBMON DBSPL DBCLN DBUTL DBRBR DBRFR DBSTR DBRST DBULD DBLOD L6B @ɄDEEX@ĩ!&IMAGE_SHUT_DOWN 92081-1X815 REV.2540 881203.0726 /IMG2_5010/UTILS/UT_SD.PASE@@BBXHĩ!'DBUTL.SD.CMD92081-1X815 REV.2540 881203.0726/IMG2_5010/UTILS/UT_SD.PASBDBUTL.SD.CMD.ii .ENTR DBUTL.CL.CMD IMG.LCLXCHGMESG IMG.NLSBLANK IMG.READDBCON IMG.WRITEDBCONIMG.WRITLONGSTR MUT_SDNLREADREL PAS.1 PAS.NONCDSUTL.BUILDBMHDRUTL.NONFATALERR iR@@A  \ (  Р` *() m ٤p l A l# F (((Њ(` 'A(114A;۪ m p lAA +@DD lF F (KAK R \֡ (WAWp  ` \ A(eei(n np A x ݪ  A(}}` P(A !>> m p l  lA F (A(A`p    (` P( A m p lA!!YS  l F A(! d A (ry  8 @bnCCXIĩSTART_UP_IMAGE92081-1X817 REV.5000 881203.0757/IMG2_5010/UTILS/UT_SU.PASC@+1IBBXv ĩDBUTL.SU.CMD92081-1X817 REV.5000 881203.0757/IMG2_5010/UTILS/UT_SU.PASB)ZDBUTL.SU.CMD}}'.CBT.ENTR EXECIMG.CLRCOMMPATH IMG.HARRYKERRYIMG.LCLGETMESGIMG.NLSBLANK IMG.READDBCON IMG.SCHEDPROG IMG.UNLOCKRESNO IMG.WRITEDBCON IMG.WRITLONGSTR MUT_SUNLREADREL PAS.1 PAS.BLANKFILL }.PAS.INLINEERROR PAS.NONCDS UTL.NONFATALERR +@@ppppppppA \^_( ߠ`*(9(`mapl.Aal 3F(8 8߄(>(C>@EEA CHA(M MR(WA W\^A(a a e(j Aj n(sA s`Y@pP(P(P(( (#A b(#`HH@6p8_ycahu6`8a(((pp(`@6p8A_|cahuA6`8a(((pp܈(`@6p8_cahu6`8a((π(p}GGp(`@A6p8_dahu6`8Aa(((pppppp(`@6p8_cahu6`8a(((p(`@A6p8_eahu6F2DD`8a(((pp(#Dh *\^_(/A /`p`P(9`P(9p @\__A(E EL_f_9ghv6`w6Ag(VA(Y(Y Y^XIIh `\i_A(e e`(|Ao_f_9ghv6`w6g(y(|(| |jA \k_( ߈`P(`ވP((_f_9ghv6A`x6g(((@ HHl`p਀`p`(_maAA(A n((`(A_oa( n`0A(^^e( ߨ`p`p JJ`(_mAa(AA p((`A( _oa( p`0('A"^^e(' '`pꈨ`p`p쀄`(C7_3PPmaA;A(B?A Bq(n`(YM_oAaQ(XAAU Xq(n`(nc_raAgA(nkA nq`ڈ00(A|^^e( Aq t::\^^( `0p`L0ـLp`0p`0p \^^A( smaplAal F( 00 `0݀0(_tAa ЪF(((c0 Z [\\AY( @ 9XDBMONXDBSPLXDBCLNNONEUNLOCKPIGGY XQ,DBCLN.RUNXQ,CI,DEBUG_DBCLN::IMAGE2 XQ,DBSPL.RUNXQ,CI,DEBUG_DBSPL::IMAGE2 XQ,DBMON.RUNXQaaqHH,CI,DEBUG_DBMON::IMAGE2 XQ,/PROGRAMS/PIGGY.RUNDBUTL aborting for you to debug QUERY DBMON DBSPL DBCLN DBUTL DBRBR DBRFR DBSTR DBRST DBULD DBLOD a{ D@EcDDXĩDEFINE_TRANSACTI92081-1X804 REV.5000 881203.0807/IMG2_5010/UTILS/UT_TL.PASD@hYBBX*ĩDBUTL.TL.CMD92081-1X804 REV.5000 881203.0807/IMG2_5010/UTILS/UT_TL.PASB DBUTL.TL.CMD\j.CBT.DLD.DST.ENTR .MBT IMG.CLOSEFILE IMG.CREATEFILEIMG.NLSBLANK IMG.NOPROTECTIONIMG.OPSY IMG.PURGEFILE IMG.READDBCON IMG.STRINGMGR IMG.UNLOCKRESNO IMG.WRITEDBCON IMG.WRITLONGSTR MUT_TL;;G3NLREADREL PAS.1 PAS.BLANKFILL PAS.INLINEERROR PAS.NONCDSUTL.LOGNAME UTL.NONFATALERR ;WtAAp>`pA`A@(`A@(p>`>(`pB`B@P((<`B@@6pAA+ChA6`A(4(<( JJA(=h6`6A =A(<(A=h6A`6(( =(<(A=ĈP(( =(<3FF(=A =(h6A`6\=A(=mplAl\=(A=h6`6(('HHN!!(' mpl&l(// 4F=A(99=H 9 **>A( @ CPURGE *BD@:DDX'ĩ$DEFINE_WARNING_L92081-1X819 REV.5000 881203.0828/IMG2_5010/UTILS/UT_WL.PASD@g'BBX+ĩ$DBUTL.WL.CMD92081-1X819 REV.5000 881203.0828/IMG2_5010/UTILS/UT_WL.PASB DBUTL.WL.CMDL.ENTR .MBT IMG.CLOSEFILE IMG.CREATEFILE IMG.ISDEVICEFILEIMG.LCLXCHGMESG IMG.NLSBLANKIMG.NOPROTECTIONIMG.OPSYIMG.READDBCON IMG.STRINGMGR IMG.WRITEDBCONIMG.WRITLONGSTR MUT_WLNLREADREL PAS.1 ''1PAS.INLINEERROR PAS.NONCDS UTL.BUILDBMHDR UTL.NONFATALERR 'pCC`@pP( PÈ(P((?p(B`A@pA (#A #%P(((6A +(61(6 A6 :(<p(Bh`CFFA(L\(Q Qh6A`6_\A(d d`/A( m(rp(`Ĥp|( A\IIK##( AmplAlF(A I # 9 A(@y SD@S7@@Xĩ ;DBUT5 92081-1X820 REV.2440 881203.0901 /IMG2_5010/UTILS/DBU_5.PAS@  PAS.SEGMENTRTN  @ޤbAAXBĩ DBUTL_6 92081-1X034 REV.2540 881203.0902 /IMG2_5010/UTILS/DBU_6.PASA@$BDDXw ĩ UTL.ERRORPRINTER92081-1X034 REV.2540 881203.0902/IMG2_5010/UTILS/DBU_6.PASDSUTL.ERRORPRINTER''.ENTR PAS.1 PAS.ERRORPRINTERPAS.NONCDSUTL.FATALERROR'[ A      g|A ( @DDXSĩ UTL.SENDERROR 92081-1X034 REV.2540 881203.0902 /IMG2_5010/UTILS/DBU_6.PASDVUTL.SENDERROR .ENTR IMG.ISSUEERRORPAS.1 PAS.NONCDS%% `P((`p( `p F%   7Ap(  @=\BBX`0ĩ DBUTL.QQ.CMD92081-1X034 REV.2540 881203.0902/IMG2_5010/UTILS/DBU_6.PASB%$DBUTL.QQ.CMD11.ENTR PAS.1 PAS.INLINEERROR PAS.NONCDSUTL.NONFATALERR UTL.SENDERROR 1CCXt`#@-p""P)( P*(P+((`/p!(`"@,p!(((h.A!C $ g%A#(  )BD@zCCX)>ĩ UTL.INITIALIZE92081-1X034 REV.2540 881203.0902/IMG2_5010/UTILS/DBU_6.PASC|3UTL.INITIALIZE^^ * .CBTGETCL IMG.DEFAULTFILE IMG.GETCOMMBUFOPENDBCONFILE PAS.1 PAS.NONCDSPNAME UTL.FATALERRORUTL.INITIMAGE UTL.OPENLOGFILE UTL.SYSPROCESS^RR&..A F 0h96`:6A 6((p 0( Ap  (!!#' 7(, ,8p R $.3 4 83(;0DBUTL @w7CCX= eĩ UTL.PROCRUNSTR92081-1X034 REV.2540 881203.0902/IMG2_5010/UTILS/DBU_6.PASCEUTL.PROCRUNSTR}}:.CBT.ENTR .MBT IMG.CLOSEFILE IMG.DEFAULTFILE IMG.ISINTFILE IMG.NLSBLANK IMG.OPENEXIST IMG.OPENFILEW IMG.READDBCON IMG.STRINGMGR IMG.TRUNCATESTR IMG.WRITLONGSTR MDBU_6NLREADREL PAS.1 }@@PAS.BLANKFILL PAS.NONCDSUPSHIFT UTL.FATALERRORUTL.OPENCMDFILE UTL.OPENLISTFILEUTL.OPENLOGFILE @ZEE`D@`p>>(  0(*`>A@^pCCI0JIKK 0($$A (0A(*1MLMJp5`D@ap??A(>=(N`?@^p>F>~~EDDINJIKKP`A(VV`D@bp@@(aA`F(`@@^p>i>IAqJIKKA uA(zz ~(hQ6`R6AJ~BB`D@cpAA(hS6`T6N(`AA@^p>>I'`D@dpBB (p/(`B@_Ap/`(A¡\KM(OhT6`U6aaa`00AN(ڈ(hU6`S6N((( p(pA 0(PmIplAIl (a E ..YFAD(@  F'V .^BT@;HZ1-1X262 REV.2041 800409P92071/&IPUT::PCO 3 )IPUT .ZPRV  !A p8 QUERY.REL::IMAGE2:5:303:128 644 0 0 227400 5300466332 35117 QUERY.REL::IMAGE2_6000:5:303:128  $/ /QUERY REL +l+l+l/'`FST ;;X ĩ!1QYHDR 92081-16019 REV.5010 <880829.1623>/IMG2_5010/QUERY/QYHDR.MAC;@hM ;;X1ZQUERY 92081-1X841 REV.5010 <880829.1630>/IMG2_5010/QUERY/QRY_M.FTN;ssQUERY .NFOP .NFCL .NFIN .FFOP .FFCL .FFIN .FFCN .DNOP .DNCL .DNIN .DNCN .DSOP .DSCL .DSIN .DSCN s EXEC.FION DBBUF LOADFMPOPEN GETST FF ##+ 0`/p`.pˈ`-pp`-p`-p1)'+!A$,F5$ rwo 1 HL 21QY(@Wv88XZQY92081-1X842 REV.5000 <870428.1127>/IMG2_5010/QUERY/QY.FTN 83dQYZEXEC.CPM .ARTN .EXIT .SST.MBTQRIOMQY NLREADREL ERIO SMOVE #SPUT SFILL "LOAD!FMPDEVICE GTPMLSCAN FMPCLOSE DBFWW DBOPN IFBRK JSCOM INPUT SGETFMPSETIOOPTIONS FF FMPIOOPTIONSDBCLS FMPOPEN FMPBUILDNAMEFMPPARSENAMESTRDSCFMPWRITEFMPUNIQUENAME FMPPURGEDCBOPEN F  =`` FIND REPORT UPDATE CREATE DESTROY DISPLAY FORM EXIT HELP LIST EXECUTE SELECT((-FILE DATA-BASE XEQ TRANSBEGIN TRANSEND ``.`GG TRANSUNDO TRANSMEMO F U EX END EN E R FINDA FA YES NO`~~BB`pp`(1gppǡ1(1p`hX (t1(ġ1p`hX (tp`(~~~CCC3p`p3@ruv`Pv(  @ru1pp`p`p`@p g(!`@p~>> !!8(3p`p  3(Ƅ` >@CFILORUqt>}}\.@@ttttnnnn@FUUUUC>`p` pˈ(` p(` p(` p(` pˈ(`p(s`p(s`(k`1p`pj1(`p(}77sn`p(`p(`@p~@ruv҈`Pvp7~~oEE(`A Z gH`(h``Pv((1 g(`Pv( g(@ruv`Pv(( `rpt1@ru~ww<<v`Pv((@upu(`Pv(( 1@ruv`Pv(( 1@ut 1 g`g( (`vpV`p(1@g`(pgp`g(-w< EE3p`p3"1܈p`p,1(-`숊Pv(1(}5JDK1@g`g(g ~~OHHT∀҉0҉0ԉ:Qf@h(⡡n3p`p 3xH(`Pv((1@ruv`Pv((`rpt@ruv`Pv~vvP6@@((@upu(`Pv((1@ruv`Pv((`t@up1@t~}|{`|(`p|p}`p{~}|{v}}DD1@gPg((8҉(ơ1@ruv`وPv((`P(1zh`h(N   @1ru`r@u@py@ruv҈`Pv(I`}04CCPv((4 %@ru1y`y@u@rpy3@ruv҈`Pv(7(41 >@ruyE@ruv`Pv(I(4`(jS1܈p`p]1~~ԡ^EEbgx`xpjg1q@ruv`(zzgx1 `Pv(`r@u((4 1@ru@ruv҈`Pv((4`(~AAh!!1p`p11@ruv`rPu((4@r`ADD@p1@ruv`Pv(ъ(41h`h(W`PhhXh hXh (J`(!1܈p`p11@ruv`rQ2IIp 1@rg(!`rp @rg(E(1܈p`p21A9<w(D3h`PhhXh 0hXh cc{Q220(2`h(J`ip(`(n1 d 1i҈`p`pʊ(rrgy@ruv҈`Pv(}(`rpt1@rc}})@@uv`숀Pv((@upu(`눊Pv((@ruv`Pv((3@ut3g`g(S!P(S`p("psC(̈(`s@p}4?CC`@Èp`@sps(`s@hpx1 r((hr@rpr#r`rp31p`p ``w333 (3p`p 3(o%3p`p 3/H(o;0`9>>1p`p E1`p`p(`p`∈p`hp`߈p(Z3p`p d3 k1pʈ`p`gp`p({AA|w!!1܈p`p 1(1p`p1(EAQQ rwocx rwcxTMP SCRATCH qywocx6 @@N @@ @@N @@ @@2 @2 6  8 >  B F  N P 0 T?23" ^H $99վ(( B2413251608101109070200 69@#Q@::XZQY0092081-1X843 REV.5010 <880829.1643>/IMG2_5010/QUERY/QY00.FTN : cQY00 T!.DAD#.DNG".DCO.CPM.ARTN .EXIT .SCO.SST.IDLP LOAD%FMPWRITE$FMPSETPOSITIONLSCAN JSCOM ERIOMQY00 NLREADREL SMOVE CATRCATDI CATISPUTSGETINPUT QRIOSFILL EE XDBINF ISPTH MEMBR GTPRC FMERR FMPOPEN FMPBUILDNAME FMPUNIQUENAME FMPPURGEFMPCLOSEDCBOPEN E  @@ --AND OREND;ISIEINE ILT INLTIGT INGTISNOT NAMEFINDXRDWhat is the value of _@@AApt`pGpw`pF`t$@w@y 8w8F(8t8G(hpszψ`P(( 3p`p=3 =(L1q(1qFFAUWc  aY +UY_zW|SW`Spr 4qU]|`q(y ;q:B1p`p=L1=`pˡ: QX1p`p===c\b1=(Lj1p`p=t1= xq(LS={DD[(((3p`p=3=(Lpuzop vpCp v((1p`p=1=(L@wtvz`wp`tpX]AA`Pv(*p`~pE`Ԁ@h 88E(`@((ڈ`@p@y|3yp`p=1=(L1p`p=**P3=(L 3p`p=*~~FF3=(L3p`p=3)=(L01|`w@t(8(¡1?@wt|F@wtvzP v(J(j`@P(Q(jY1||x~~~FZ>>(j`Pv(_(jdx`x(Lp(`Pv(n(3u`(`p`(`p`P((@wtvz`wpӈ`tp`Pv((1|~~~~wHH`w@t((1@wt|@wtvz3`(`p` v$ @vh3(3`(` v$@xh~` v$@mh~~%'>>` v$@wh1 v|((@ vp=`=ph|A}(pD`Ѐ$@vP(@Јp8D(` v$@uh`pЈ`P((`@p`@pш(#` v$@up=`Ѐ$@u=~#FF` v$@t  .3(6` v$@t `(@3`(` v$@sp=L=` v$@sp` v$@rh` v$@qh`w@tAffxmiII1p`p=w1=(L` v$@j 1@wt|x(1@wt|x((f` v$@jh1@wt |x(` v$@jh @wt |x(` v$~~"FF @jh@wt|x((f` v$ @jh@wt |x(` v$@jh1@wt|x((f` v$@jh1@wt|x(f` v$@phu` v$@ohp~4` v$@n  @wtv`PvcAA(C`PhXv (`Pv((D@pt`tCptt(!(D&@t`PhX 0hX 0(7(`tp@tpt`pv` v$@n (VK~~GEE1p`p=U1=(L`w@tp`(}((u(uj3p`p=3t=(L|1@wt|(M|1@||`p~ww)<<`p`p`p`p`ppp`(1p`p=1=1` v$ @n @wtv`Pv((`P((v(7w~~EBB`PhXv (`Pv((@pt`t1ptt((1@t`PhX 0hX 0((ڈ`tp@tpt`pv` v$@n (( |~Nj @@1@|`p`p`pÈ`p`pǡ3p`p=3'=(}`w@tp`(771@wt|>1|@|`p`pĈ`p`pƈ`p`]]J//(Mp`p=U=`P(`P(` v$@mP(ph|`(`pp(w|`]}}YyDD(||`p(` v$@mP( |`(||`p( |`(||`p(`@p(}~~_FF3p`p=3=(L`u@eh`p>p~`>(pC`upuu((hs@!o=hr@A"=((Q@o#=$qo=`@p=%1q~((<1@=`q(chs@A!oopu`u@eh~Hl(}}G@@8~8C(ۈ`u@e ` v$@ip=` v$@i=` v$@kp=` v$@k=` v$@j(;(` v$@iP|(H3p`p=R3=(Lp}`~pB}hWAA`}@h 8}8B(W`tp}`w@@}(m(m`@wp}t1@w}y||1yp`p=3=(L1@wtvz`Pv(`Pv(`Pv(~~CC1p`p=1=(L`w@tP((á1@wt|x(` v$@g ` vp v(`w@tP((S1@wt|x(S` v$@gh(~@wt1HH|x(S1@wtvz`Pv((S` v$@gh@up>pt`>(pA`t@fhtHe8t8A(o0(2hs@A!o=hr@"=((Qo#=1$&qo=`@++(p=%/q@=`q(co`pˡ0 ;@+15HYY rwcxt TMP qySCRATCH @@2@^@3?J3xIGL3~NUK33HSRP33QOFT3ME01 ,;cfe/ 2 @::X{ZQY0192081-1X844 REV.5010 <880829.1643>/IMG2_5010/QUERY/QY01.FTN : d!QY01 Ơ.DAD.DIN.DSB.FSB.TSUB .DDE.DDI.DNG.DCO.CPM.ARTN .IDLP QRIO MQY01 NLREADREL DCITA FMPWRITEFMPSETPOSITIONSMOVE FMPREAD STCOM NAMEMATCH STRDSC VALUE DBGET pcIFBRK DBFND LOAD SGETJSCOM SFILL     RXP @~~NNp}0OQ:Q%hy1P,1PZx31Pdc19wvO`(sOQQ@#L@Q#`(41U@b`(4`PVP~aAA4(∀(i((`zp`TpSp pC` v(p9` ((` p$`Zph$P(p8`@Np#`C$@G#(888(` p ` @Np#`C$+ ??@G#8C89(~pp` v(p7`$@M(`$@=PP((`(Ĉ`p`$@<PP(ր`(`}p}`}@Jhp`$@AP((`$@@iif77PP(`$@EpD`$@D@E ED`$@?p$p`$(p6`Z@p#  #`uPhVX 0(886(i??887(( $ 1t]p`p# .Z1#(h`sp4ʈ`qP(H > r1]p`p# H1Z#`qP(L(] S p3]p`p#~~WDD ]Z1#Q`p`oph8`ZpAQ1wd1 @`(]`bp`cppJp}pIpH`zp(P}0(50(5@}p$p`$(5p5~@@`@Jp`$@Gp`p#`#ph}P(1p4`@Jp`$@Gp`P((-`$@EpD`$@Cp$p`$(-p3`D@Lp`$@Ep`$@Cp$p`$(%W >>p2`@Lp`P((`Dp`pp`( p1`@LhHL((`p`p881(`@LhHL`$@Kp#`$@K@\#`@< ??p882(`D@pD883(884(885(`nP`(9(Up~p`}(Up0`@Jp`$@K@~p~A~(Q(880(BP}(a`nP`(`00~~|p_AA(a(pJ`}(Yp/`J@JpC`C$@EpD`C$@D@E`C$@CpHpI`H(Up.pG`(p-`G@Ih8G8-( ED`(Q`C$@H~ZZ!O..Pn(`mpAO(`gpA`C$@Gp31Pˆ`lPhjX 0(Q`(]`p`pBZWBB(/1A 1@`kP(Y`jPhiX 0(Q`(]`p`ppp` v(Lp,p`$@Fp`$@?p`$@Ep`$@Dp`$@C~~D+>>p$p`$(0p+p`('p*`@Bh88*( ,`$@AP(`@@\p`$@AP(v`$@?PZ(Z`@>p`p`(O`(R~)NCC(`(`@(((`@>p`@>p`(j`(m(`(Q(((`$@@PP(h@(`G@@\p#@#h(@@((`$@?Pd(̈`@>p`@>p`PhX (`(`((`(A((`@>p`@>p`Z@@>p`h@@>pLL`PhX hX  hX  (`(`((`(#`#(`$A@=,,),,)`$A@=,,,)),`$A@=))99)9)p??*z+(988+(`$@=PZ(7(9p`p`$@<PP(HP(Mp?~~HGG88,((:`(O04QQ#`11@Q#`(4i@b`(4`(`f@p`fp`@@;(:`pA(҄(V(t(tWC@~}}HHUp`(p)Q@0Q4Q#1@1Q#`(4@b`(4p`[p(`@@;(:`Ap((88((88)(4W}MMUh@0QS0ωhV&@pS`S(`VpS`SpS1Se((@Q#@Q# @b`(4@Q0QpS`S@@;p##`(5Q@TTsm$11#,11@Q#12@1b`4(4ψ@0(Kp(Y0(Q(8I8.(TUUMM8J8/(h`S({8(c({Q@#r@Q#x@b`(4OQQ@#@Q#@b`(4`(QA~~^EEPd1cQ@#@Q#@b`(4p`Yp'`@: 88'( ԡ3 a]p`p# 1Z#`((/  `0~pp<<1]p`p# 3Z#(/ 3 _]p`p# 1Z#(/   1^]p`p# Z3#pp(/pYYM:AA3JG33?NUM3IKH31OFP3JLQ0 @EAk D23 -PICBY@9:::XuZQY0292081-1X845 REV.5010 <880829.1538>/IMG2_5010/QUERY/QY02.FTN : bQY02 }}.DNG .DCO.CPM.EXIT .SST.IDLP LSCAN ERIO MQY02 NLREADREL SMOVE SGETLOADFMPWRITEFMPSETPOSITIONDBINF CATIMEMBR SFILL REPOP JSCOM FTIME QRIOSPUTFMERR }%%FMPOPEN FMPBUILDNAMEFMPUNIQUENAME FMPREAD GTPRC %  BBhf//PAGENOTIMEDATEEDATE ETIME LINES ABDEFGHSTZ$X*9NAMEEND;ALL REPORT@B}}DDp@qpo`q@pP.((ܡ 1@q(1@qpo`;Po(ˊ(L$((;`(p@qpo`1Po((1@qpop}~~rFF@qpo`*Po(`q@pP)((L@qp" (L`tp( Q@Q@Q@s`(4") r3+p`p 3)~[[0223(C! ψ(>(PE3 q+p`p O)3(1X  .p(la3 o+p[bHH`p 3k)( s1nm  y ;:` p J    l 1w  `w(3 k+p`p )3/eDD8w(pp`(ppq`'p`p#@q@ `p#@ 8q8(8p8(p vp ypr@qpo1@qu`q@pP)((@qp  (`q@phhw77P1((.@qp  (L@qpo`;Po((L1 @qpo`q@pp1@q`(L`( (L`p͡0)@h~~)%CCqpo`*Po(-(L(`q@pA (6(L`uP(:(`qPp(>(D` v#@h-(bI@pu`%@upu uApu*0(L` v#@h-Hu i@qpo~6hDD`1Po(m(Lt@qpo`)Po(x(L`q@p*((L1  ;: 1@qp 19z`(1`zp3(`(1`p`jp( ` vII#@h1@qpo`#Po((@qpo`q@pp@qy`(L18z1@qpo`3Po((L yApy0(1` v#88O  @hy@qpo`*Po((L` v1p v vi(( h8~~UDD3+p`p 3)`@p( & g3+p`p 30)(`p:)3@A f1+p`p K1)( R d:~~~ 5SAA1pd(i(i`@pb)1&`e@p`&@Èp(T`@hpxu)Aqd((hqdd@qpq1qc`qp)1 ~~~EE1b+p`p )1(`uP((@pu`%@upu uApu*0(L` v#@haHu @qpo`1Po((L1@qpo`.Po~66!(`q@pP.hqHpX1 (h 11@q6~~|BB(`#ps` y@s@)hH@((` v#@h y s )@8 y`)@ yp y  8#@ y` y@sp y(}$  *1@q(`*ps` y@s@)hH@(2(7 ~7DD<)`^Ph6X (S M  : S) 4X``_P(\(ua `:P(e(l k  ^(r r  6`)@p` v# @h y V1{DDs )3@ y`)@ yp y 3 *@ y` y@sp y(} 1@q(`]ps` y@s@)hH((` v# @h y s )3@ y`)@ yp y 3?\@ y`1@ yp y NNv))[Z3@ y`.@ yp y 3Y<@ y`;@ yp y(} *@q(h`-ps` y@s@)hH(N~~)A::(` v#@h y s )@8 y`)@ yp y X8/@ y`.@ yp y`WP(( `Vp(Q`UP( (`Tp(Q`SP((`Rp(Q`QP((`Pp(Q`OP("(%~~~"66`Np(Q`MP()(,`Lp(Q`KP(0(3`Jp(Q`IP(7(:`Hp(Q`GP(>(A`Fp(Q`EP(E(H`Dp(Q`CP(L(O`Bp(Q`Ap`@p Z?>~@+XEE3@ y`.@ yp y d3=<@ y`1@ yp y(}`q@pP*(n(Lv ;@q(L` v#@  @qpo`1Po((L1@qpo`q@pp1@qy`pp4<<(L ypA0y0(L` v#@hy1@qpo`*Po(qp`(L(`q@pps`s(`)@ppq1(Ls((L` y@spBCC@)hH((` v#@h y  s3 )@ y`)@ yp y @qp3@ y` y@sp y(}`>(Lpt(`uP(f(s`)Ptht (L`)pt(`uP(w(`.Ptht (L`.pt(`uP((`t(L@vpv8(I`q@p/((L@p(L~m(`q@pCC0((L`q@pps` y@s@)@hH((s ((L` v#@h y  s3 )@ y`)@ yp y @qp3@ y` y@sp y`rprAr-(( 1,+p`--5p )3(1@qpo`*Po((L-lW[[rwctx TMP qySCRA TCH @2 @^@    33PNUO30Q?M X< 0042(fe  1211NO10OC 9SE 8AU 7LY 6NE 5Y 3R. 4AP 2FE 1JA((@[ 1P^H$d23DCB03(@Nf::XZQY0392081-1X846 REV.2540 <860107.1813>/IMG2_5010/QUERY/QY03.FTN : bm]QY03 \\.DIN.DNG.DCO.CPM.IDLP ERIO MQY03 NLREADREL LOADQRIOTOPAG SGET DBINF JSCOM SMOVE FMPREAD FMPSETPOSITIONLSCAN \  UU>> Record not yet been found Illegal lu lock request Select-file error Opened data-base isn't the one in the select file U~~<]CCpVpYi@[Z\҈`P\(`ሊP\(p(w@[Z\`P\(P\hX\ 0(`pV1@[Z\`P\(`P\((1@[Z\@[~~~{7LL[YhY@׈pY`YpY0(`[PZ((`V@YpV0ԉQ4Qȡ1@>1Q11@>`>(00T0:1`pS@Q0Q~~~3CC8((  1p`p 1Ȋ(  1(/  1p`p 1Ȋ( $ 1؈p`pȡ .1(~/3 6~~u4??>@`>(`@(=(`@p@`@p`pXh(}p`X@p`X @h 1Z>K`>(`X@hK`X@hL`X@hM`X@pȡqK`X@~~~/s>>hT`X@ˀhU8X8(II H`ފpʈ`p:  1؈p`pȡ1`>p`p:  1؈p`pȡ ~//~1Ȋ(  1؈p`pȡ 1(/443$$33??30??23 17 fhB@DC4@1P`]::XZQY0492081-1X847 REV.5010 <880923.0956>/IMG2_5010/QUERY/QY04.FTN : cYHQY04 ;; ު.ITOI .CPM.EXIT .IDLP LOAD SGET DBINF ERIOMQY04 NLREADREL QRIOCITA;  EXR0000 5AH@@p!P v(@ vpp#`(p`#p`Aph v(pp`p`@p`##@@88(f`#@@A((`#@@D((p$==`p`##@@p`#@@`#@@hH`@p`##@@((88(88(b8#8(Xp`p#p`p`@ `@ 88}}?@@(p` v([p`#@Ӏ(([`#@P(`#@P#(`@#p606p5`p414p`p3p!`#@p#}}}@@`#p#`#@p@pp"`(@p`"#@p`#@p`"#@p`#@p`"A#@(A8"8((TH}E 3p`pR~~'~OAA3p!`p88(͈`@#p#p` v(p`#@㈀(m(`#@(u(`#@p`#@Ԁp`P(#((~@EE1܈p`p1p!88(ep`p`@ 88(p` v(p`@#@((`A#@((`#@p`#@耀||==Ap((`ˈ@p#`#@h(`#@P9((3p`p3p!`#@p9p`p`@P9( (`@ (|}}aU@@88(()88(p`Ɉp`@()88((<01p`p:1p!`p#p` v(p`#@p A (O( }RAA(T(`#P h# X  0(`#@php5`p4t34p`p~1p!` p#88(Ep#p`p`@ 88++T(p` v(p`#@p  p@+~~:FF 0(` P#( Ap Ap#(p`p`@ 88(` p#p3`#@p`($p/`p`A($/~~~EEp1h11@p0`0@p`0(`/@( 3p`p3p!`/@ 8/8(`($Ap3 p 0~TThq3++(v`#@p2`2(v`#@p3h3耀@3(v1 R2`(Z`p`p( _T}}w^@@`P(c(vj1܈p`pt1p!`#@p.`.(`p/`p`.(H/p1h.11@.p0`0@.p.`0(Ј`P/((}~~`BB`#@(3p`p3p!(`3(1܈p`p1p!`.p38/8(`.h3  0(~kk881p`p1p!88(p.`p`.@ `.@ 8.8(p"p` v(p`#@p A (k~~@@( ((`#@p#`#(p.`"(Ip`.@p`#@h.Hp`x#@(a8.8(-`"p"A"(Q(`"@p`#@~~~XCC`"@p`#@`#@p`#@( #`(`p`p( `P((ڈ((0~cc,F441p`p1p!8A8("((1p`p1p!`!(1cDDp`p 1`pˀ(p`Āpp`Èp`€@@ 88(䀈88(pp pp` v(p`#@Ap  p B??(`#@p`(` (3` p`ph(3p`@P({88(*` p ` p`@h D3`(L`p`pˊ( Q```MdR..@h`P([`@p`@h`@h`@h`@p`#@Ӏ(t({`p`@h`#@h`&&GM88(`(`ъp ʈ`p(&aa]HH33TNu33 F 33O |SR1U(#P.;6M@Qe0506 23f '(d;3<-a@yfH::X ZQY0592081-1X848 REV.5010 <880829.1543>/IMG2_5010/QUERY/QY05.FTN : jp^QY05 }}.DIN .DMP.FMP.DDE .DDIR .DNG .DCO.CPMIFIX.FLTD .EXIT .SST.IDLP LOADFMPPURGEFMPCLOSEDCBOPEN WORKX SMOVE DBGET FMPREAD FMPSETPOSITIONINITX ERIOMQY05 }&&JNLREADREL FMERR FMPOPEN FMPBUILDNAME FMPUNIQUENAME &  ^JJ l04QQ =n11@@Q =1t@@1 v`@( "` pS4QQωTpSpX` v(ňp C`X#@ i@ ((`X#@ iA ~((`SpS`X#@ hpY`SK==@ ghYH f`S@ `hYH e`S@ _hYH d`S@ ap =`X#@ c =8X8 C(@SpypF` opXhS m(ڈp B`X@ `@FpF8X8 B(` t@F1pEE }((LL1 | xp`p =  o1 =( 6` {pB` ppC`E@hCp = =pD`DE@pMhD@ 00ωI4I j( ( hD@CC I ψ( %( ( %4II ) ] SA Q [DI@@ 1##VpU ? O S Y j Q mU z Q F1J O W m`J( cA O U QJ X@0 TLL1 y xp`p = b o1 =( 6 fBpP lKA`M@MP( s( 1 z o@MKpP@K1KS w( ( Q@ = @@Q = @@ v`@( "pS@Qj AA8Q`S@@ bQ`SpS1  t@SQ`P@TpP` oApOhS m( p A`O@ _hOH `p =`O@ a@ n =pN`O@ `@N@ np = S1N =@P`O@ `@PpP8O8 A( ~~ AA` uP@( `@( " Q m t@P` t@PpP@T00TT0( ( l`FpN`yp =` =pOh oA n( p @`O@ `@NpN`O@ _hN@OpO8 @( 1  o@MK` spˀ( 8~ g "0 & 66  %JP n( )( 11 -J 0 OpJ`@p` rpˈ( 8` qp ;6\\~ D== rwctx TMP SCRATCH qy@2@@@33U33u Fx3TN 2319rAT \@g~3^::XZQY0692081-1X849 REV.5010 <880829.1609>/IMG2_5010/QUERY/QY06.FTN : c.QY06 PPA .DIN.DNG.CFER .CPM.EXIT LOAD FMERR FMPREAD FMPSETPOSITION PHDRI SFILL ERIOMQY06 NLREADREL TOPAG P  00000000XrDD !1 Tpp` v(Jp`@#@(6(F`A#@(>(J`#@(Fp88(.p`p`@`@ `#@ `p `p~L_AA`#@ @ `#@ 8 8(_88(Np `p` @ 8 8(vp` v(-p`#@p  ((`P ()`@ p`@p`#@BB`@p`#@A() ((- (()`#@()`#@p`#@pp`p`#@p `#@p` (` PhX ()8((D8(3p`p0(BB1()`#@h`#@h `@PA( (  p`pp`p`@@@p 88(88(88(p `p` @}}1u5LL8 8(1@D J@0 yp R UQ@Qd@Q j@`(t q`p(00ψ00ωT4Q Q}B `pS`pˡ0@77&&33? FP33IUTK33FN:H0O15  ( 7@I/f::X|}^ZQY0792081-1X850 REV.2540 <851118.1431>/IMG2_5010/QUERY/QY07.FTN : bQY07 M.DNG.DCO.CPM.IDLP ERIO MQY07 NLREADREL QRIOSFILL DBINF LSCAN GETVL SGETMEMBR ISSRT ISPTH SMOVE IFBRK JSCOM FMPREAD FMPSETPOSITIONINPUT LOAD SPUTGTPRC   ""sNAMEADRIREPLACE ADD DELETE UPDATE"~~`wCCpXp3@0/.(`,P.((J`0@/PJ((((+7@04(1@0/.(`CP.((JC4`4(p@0/.(`,P.((J0@~~~jEE0V`0@/P+((`VP(`VP( `VP( (J`0@/]("(J(+]D/1@0/+6+] +(?+]+( H+]+( ~~~OcKCC1p[(a(a`@'pZ,1.`.@p`\@p(L`@'hpx m, s1+[DA0[((h0[[@0p0 10Z`0p0,~~~@@  1Y/p`p ,1(  X1/p`p 1,`6p(`$p`Wp(`Vp :@0/.(`7P.((J1@0~rFF/.(`0A@/:((J+CD@10/+1@0/.(`:P.((J19$`$(`(  U3/p`p 3,(`pCCpp1T$>`$(`>(`>p `,Ap=h +(p#`=@&(`=@&p3?<$`$(G;5` p2`5Ph5X 0(W`2@p29XWAA`!p1p<`-p"`<@%h68<8"(]p;n+C8+`( z S1/8p`p3,6(`p0h+(p!@07`D~~8BBP7(`RP7((808!(3$( 3 Q/p`p ,3(`$(3$(ޡ  P3/p`p ,~nVHH3(`$(15121@33@4`4(`((n`21@3p3`XpX`X@$h8=8#(.`X(`Opˀ(*04QQ11@$Q1 @$1N`$~~"EE(5 * 1M/p`p 4,1(<GF1+ψ(C(F(X M L3/p`p 3W,(`1+KJI(t i H0~gDD1/p`p s1,({1GF+1+CD`VP(@0/.(`:P.((J`p`( 3 E/p`p,3xEE@0/.(6(`:P.(`,P.((`0@/:((1+CD1@0/+@0/.(`CP.(1B$`$(  A1/p`~~SCCp ,3(`(   @1/p`p  1,(`p31$(+  1?/p`p *,1(`$(430~~~3DD$(I > >3/p`p 3H,(`$(R3$(f [ 1=/p`p e,1(1m<$`$(u;5` p2~~~,wDD`5Ph5X 0(`2@p2`!p13521@13@4`4(`21@3p3`XpX`X@$h(`0(@0/.(`:P.(((19~EE$`$(`(ա  83/p`p 3,(`0(+76 3 5/p`p,31+,`4Ph3X ==0h2X 0h1X 0(  10/p`p ,1(=PPu$::1W7=?y Y yeYE fe DCB@22;h1423^H$P@"`@[::X|qZQY0892081-1X851 REV.2540 <851118.1431>/IMG2_5010/QUERY/QY08.FTN : cQY08 TT.IDLP ERIOMQY08 NLREADREL LOADIFBRK QRIOSMOVE GTSRT ISPTH CITA SPUT SGETDBINF SFILL DCITA TOPAG T  DYES ~~CC`YP(k j1pUp`pBT 1B1p5`SpI`5@M 858I(o\1O1nU1p`pBT3 B~CCT OT O1m7`(`7((0`7pC`Tp6hCAO(pH`6@Np1l`(p5`RpG`5@MhY858G(p4~~EEO\1O $cp5`QpF`5@L 858F(( 5/Op5`PpE`5@K 858E(9 E)KT OQT O[k3U1/)p`~A^EEpBeT3 B1kT Or1jUp`pB|T 1BT O1i)`(`)((`)pC`Tp(hCAO(pD1 @Ohg`(@J}}HHp`(O^@f`p3e`(O\@d c'1 @b'""1^\@a""`\@_ (}~~ AAO^@]`P((1O\@[ T 1@Z (8(8D(868H(`Ypʈ`Xp(%W1Up`pB/T~..3 ,3B(7V3Up`pB3ATB(.88J''((.0623 %.#;fE Ph8@pW::X|ZQY0992081-1X852 REV.2540 <851118.1431>/IMG2_5010/QUERY/QY09.FTN : bwaQY09 EE !.CPM ERIOMQY09 NLREADREL FMPRUNPROGRAM STRDSC LOADLSCAN SMOVE SFILL QRIOSPUTJSCOM E  FHNAMEEND;RU,EDITRRU,EDIT, ~~0haFF i@HEDpqq@H(pKC((`K@opmsmrI`r@p`@KpK(u`K@ohpmxns1mnIH((hH@H~~~RCCpHqH~`Hpm3smI}1tp`pm 1sm(F@HEDp`xPD((s1@HEDp`sPD((s`HpF~~~DDD1@HEDp`zPD((@EpE@p( `|PD((s1@HEDp`sPD( (s{y  qvq1 @FE{`F@E@vpG+1@FEDp`zPD(/~uu.??(s 4qy ;qx Bp`(K`wp K: Pqv Wp`(Fb1utp`pm ls1m(Fu T0o0? P ^ H$ @!0~a::XunUZQY1092081-1X853 REV.2540 <851118.1431>/IMG2_5010/QUERY/QY10.FTN : c</QY10 KK%.CPM.EXIT LOAD FMPCLOSE FMERR ERIOMQY10 NLREADREL SMOVE QRIO GTPMLSCAN SPUTSFILL JSCOM K  ~KNAME ~~/DD 7@&%-@`&@%PT(=(GEAS@&(Cp.P(`(``.@?p;WE;C(`C@Èp`R@.p.(I`.@?hp;x<1lE;<(tAP~=WsFFQ&P((h&PP@&p&&O`&p;3E;(N1Fp`p; 1E;(4@&%-@`MP-((G1@&%-@`EP-(~~$sAA(`&p,@&%-@`LP-((@%p%(`KP-((1@&%-@`EP-(ڊ( 1@%,*1@`JP(G`IP(`(,A1@H`(0`~zzBbAA(,`p;E 1@;((p'`Bp=`'@> 8'8=(  @&%A"G3Fp`p; ,E1; 0 41`Dpˡ09@z$$8n>? 8^H $$@e-/::XwO5ZQY1192081-1X854 REV.2540 <851118.1431>/IMG2_5010/QUERY/QY11.FTN : c?1QY11 PP.CPMIFIX.EXIT LOAD FMPPURGE STRDSCLSCAN ERIOMQY11 NLREADREL SMOVE FMERR QRIOSPUTSFILL JSCOM P  ~INAME ~~#1DD 9@#`@P4(?(IG$3@(Cp0(`(``@"pY(&`&@p`2@p(K`@"hpxl(1r$010~buDD((h00@p/`p3(1.,p`p (1( 8(p`%p `@! 88 (1 ((@ $~~BAA-1, p`p 3((1@#`+P(֊(I@#`(P((`p1@#`*P((@p(`)P((@~HH;U$$#`(P((`pS`@p  1@ Hp`(`'pH 6!? ^H $ @1::X~Q2ZQY1292081-1X855 REV.5010 <880829.1610>/IMG2_5010/QUERY/QY12.FTN : eN?QY12 }}D .TSUB .TDIV .DCO .CFER .CPM.TFXD FLOAT .NGL .TFTS .BLE.EXIT LOAD ERIOMQY12 NLREADREL DBLEI PRTLN BUFLN SMOVE SFILL EDITCITASDIVDCITA DCRTA CRTA}OVF SZONE SPUTSGETSPLIT    IR0000000099*X~~?DDpppL1p` v(@pp#`#@p  #(_(U/`.p!(^)7(`P6(ve/p3k5(o`p#s3`-p!(z/`,p!(p`p`@ p~{ `@ @ A@p g;;88(`&p!`+P((`p#(`(p(`)p`p`&@@hH`@h*@p8(%*`)p)p"`(p(`'p'p&|CC*")('&`&p!`%p`p`@@hH88((`(7p` p` #@@p%`%(<%`p!`hX 0(!`#UUbV,,@p$p"`!@$p ` (&`p#p `$@!p"`#(//!6"! (<<U~~v/IMG2_5010/QUERY/QY13.FTN : hQY13 bbQ.CPM.EXIT .SCO.SST .IDLP .CBTERIOMQY13 NLREADREL QRIOSPUTSFILL LOADFMPCLOSE NLREADCAT JSCOM LSCAN SMOVE NLOPENSYSCATb  D$ ~~ BBp J>1e`(`Hp1@@`BP(`dP((`Ip`fpȈ(?((AF`d@( ( `d@p@A~~~ BB1@@`BP(.`dPʈ(l('1@@`BP(.`dP(r(`p 9@cA(<(l`p G@bA(L`fp( `p W@~$T@@aA(\`fp( `p g@`A(`fp( `fp`fpLjA`fp <(x({({`Ip(? :(((`_p(?A`h9 (((`^p(?`h7 ~~#<<(((`]Ap(? 4(((`\p(?`h3 (((`[p(?`h1A (((`Zpƈ(?`h/ ((Ĉ(`Yp(?A`h- (((ψ`Xp(? ~}}<<*((؈(`Wp(?A ((ވ((`Vpƈ(?`h' ((숈(`Up(?A`h% (((`Tp(?`h# (((`Sp(?`h!A ( ( ( `Rp} ==(? (((`Qp(?`hA ((!(!`Ppƈ(?`h ()(,(,`Op(?A (2(5(5`NpƄ(? (;(>(>`Mp(?(p`(J`ppȀ(_~~aI==(_`(T`L@pp(_(_`(^`K@ƀpp(_(_(`J@Ĉp`phA A(pۡ qA#Cp`(?`p1~B #88ۊ(iI~~~ 6EE3Cp`p3B`Hp`pB3@G((hGG@pAGFE`p3BD~3Cp`p3B(*TTFINDA XEQ UPDATETRANSMFINDTRANSUTRANSETRANSBREPORTFORMEXITDISPLADESTROSELECTDATA-BLISTCREATEEXECUTHELP >QY        TT+077      ^ H dN J8FPBh>:62.*'#(@Xp OPSYFUALT@3::X~ZQY1492081-1X857 REV.2540 <851118.1432>/IMG2_5010/QUERY/QY14.FTN : c(QY14 TT?.DIN.DDE.DNG.CPM DBUNL DBDEL DBUPD ERIO MQY14 NLREADREL LOADDBGET DBLCK IFBRK FMPREAD FMPSETPOSITIONT  YDR 4AHH`pS1S((:@Q04QQ/11@Q15@1`(pS`S@@ꈀT`SpSG(O3`(_`P(V(1\`(]_AA3h@8T`(u`( 1t (`VP(`VP(`p 8`p`p(}`( 1   1p`p 1({ GG`( 1  1p`p 1(18X@(ʡ3p `( 1 `(` p`4(ψ0({ (  023 sA@nh::XZQY1592081-1X858 REV.5010 <880829.1611>/IMG2_5010/QUERY/QY15.FTN : c QY15 NNWx.DIN.DDE.DNG.DCO.CPM.EXIT .IDLP LOAD LVCHK QRIO MQY15 NLREADREL DBGET FMPREAD FMPSETPOSITIONN  ~~ JJp1S((0@Q @Q&@pS4QQ`(V`S@@Ȉ `SpS`p4T(([K1 1@ T@8T`(p`P(^`~~~W==p`p(`p( e 1p`p o1 (PG(p`pĈ`@`̀@LjhHpx 88Ĉ(w`p`̈p`@P~33l((@p8((@T8T`phA (pˆ`@ 3..@p8€(PF(`p(`ЀppF.$$ 33?:B2012 23rA$@Fe ::XZQY1692081-1X859 REV.5000 <870428.1456>/IMG2_5010/QUERY/QY16.FTN : c%QY16 ?? ].DCO IFIX .EXIT PRTNFMPCLOSE FMPPURGEDCBOPEN QRIOMQY16 NLREADREL CITADBCLS ?  BBB`P(A1`(Ap`p`@ 88(#/71p`p}A3}E(J(S(S1N Q pOOT))W@`(_ ] pcgk os`({p {@ O @@2 @0::XyZQY1792081-1X860 REV.2540 <851118.1432>/IMG2_5010/QUERY/QY17.FTN : c QY17 @@ J=.DIN .DDE.DNG.CPM .EXIT ((LOADQRIOMQY17 NLREADREL DBGET FMPREAD FMPSETPOSITION@   C GG1S((>Q@@Q"@4QQpS`(>31p`p=1(|`S@@p 1K1@@`P(O(nVaa)R331p`p`1`S4pST TT0(y( `(|`SpS`pˡ8 y`p(`p`p 0@ a 023 18rA@5 ::XyWZQY1892081-1X861 REV.2540 <850416.1723>/IMG2_5010/QUERY/QY18.FTN : c$QY18 BB .DDE.CPM.EXIT .IDLP LOAD QRIOSFILL IFBRK SMOVE DCRTA CRTACDITA CITASPUTB   IRX @@pCKJ`Vp1VR("("`F@Vp`@p8`Hph8C(p;RV(1(B`@Bp`@Ap`@@pB1VU`@?p`@>p`@=p ` O99p `P(T(X` @@Dp p ` (p:`P(c(`HP(s` @/IMG2_5010/QUERY/QY19.FTN : c5QY19 || .DAD.DIN.DSBR .DMP.DDE.DDI .DNG.DCO.CPMFMPPURGEFMPCLOSEDCBOPEN ERIOMQY19 NLREADREL LOADFMPWRITE FMPSETPOSITION SMOVE WORKX FMPREAD QSORT IFBRK INITX |  ~~mKK #BIhD@4(A(A48x`(@`Dp(C`p0`E@p`ED@p%`p^&@0( (ro@&~‡jHH3FEy`p(#`p`@p`@Dp' #((`@Dp`@"p&@`@"p&:@3&FE1y (''A((`@"p)@'}}XHH()@8`@"p)0' `p`D@p`@@'p`@@@'p1 @@&' (# (`@"p&}~~BJJ1@&F3Ey`@"p#):*)1@%Q@Q  9@Q?@0`(ш`3pST`@p %`@ (V(e]~77iX &@0`F1p S2(j(Q@  u@Q{@7}}bxHH0`(pS@Q8Q`1@ p1 @  &` @Ep `S@@!p `S4pSTTT0((OPS(4Q 1 @1Q11@0`(}~~U==P'((1p`/pˊ(P'((1p`p`.pˈ(`-p3,*p`p)3( ~AApa +1*p`p 1)1P'((p(A##ٌ 3@2? 2306A#@ ::X}vWZQY2092081-1X863 REV.5010 <880829.1613>/IMG2_5010/QUERY/QY20.FTN : f3&QY20 hhj.FAD .TADD .FSB.FMP .DCO .CFER .CPMIFIXFLOAT .TFTS .TFTD .BLELOADPRTLN BUFLN SFILL ERIOMQY20 NLREADREL SADD OVF SMOVE h  IRX ĕ&DDp`Fp#`#@4(`;p%`Dp"`#@%@5p`#@%@58%8"(5`#@4p`#@3@`@)p#`@2pA:A`#AHp~~(jBB`@#@Ep`@1p$`$P(|@<`$P((`?P#A(`((`=P#( A( p`Dp!`@@@0p`@@A@0 ~~~#DD (`@@@/pA 688!((p` v( p `@.p`#@-(ш( `#@,A (( ( `A#@$Vp`#@$@U0~XXD--( `#@+TP<p`#@*RP<0(88 ((p`Dpp`Bp`@&p`AX~~AA@@@@'p 88(`OP({p`@)p=@<S`(RGR1Qp`pQ1;(p`Cp`@(PP(\(b8~}}A^@@8(V`Opp`Bp`A@@@@'h H&Apx 88(f88(88#(+<Nppp` v(p`#@$p`MAP(K}44pL0(`>@@%(`6p4}}uDD88(`(ʡ`(pp` v(p`#@$pJ((AI(∀(`Ph  0(`(`p}55ד88(Ӏ`( 1 `(`Hp8`Gp(5GGX$333N? 3 SR33UO N33 ^ FuP3IH@ 15;3(12 **99'$G@)Fi&::X}mZQY2192081-1X864 REV.5010 <880829.1602>/IMG2_5010/QUERY/QY21.FTN : eQY21 }}T=.DNG .EXIT .SCO.SST .LBT .MBT.CBTQRIOMQY21 NLREADREL LOADFMERR FMPOPEN STRAP FMPWRITEFMPSETPOSITIONSFILL ERIO FMPBUILDNAMEFMPUNIQUENAME SPLITSTRING FMPPARSENAME}pQFMPINTERACTIVESTRDSCLOGLU CITA  ~~LeDD`@ppS`(`Vp`_p 4*4<((,(,p %k,434P`(9(EB~3?=FF14N`(`lpJ0(NpS*A6*6<(Y(f(fA6L `(fAh7`5   q620.,h @Xph @W0(`(`(p OWII620.,1 6J`(* * <(((H : `(h!`5    20.,hH @XphH @W0(`(`(pޠ ~~GXGG 20.,1 J`(̡*(*p(<(A(H(pA`)hG(((p`jp͈`ippp`_p`_p`_pLj`_p~ MMpT4$DJ  B& +"&@R$hg$12@">`(K<3fYp`pFV3H"< (p`lpS1e_TTRQ}}`DD4Q1j@1Qp11@d`cpy3bYp3aYp1V``p3Vp`(`(p(p`_}~~{DDpʡ^3Yp`p3V(3]Yp`pV3(A : 1 8\1Yp`p1V~99`[p:1ZYp`pV1(9a_LLwoc 1 rwocx TMP qySCRATCH ECHOECwocx6 rwosx rosxt@@@P`Pd@@@4@t@@ &*,02++Q816 }B6+@::X}uXZQY2292081-1X865 REV.2540 <850416.1723>/IMG2_5010/QUERY/QY22.FTN : d"QY22 DBUNL DBPUT LOADDBLCK   Error no. xxxxxxT|BB 1W`(4`((VP(!(*'3S`(4`p`Up(1`Tp4:<1SX8@`pp`(I3IS`(O`p(*`(*(/ U23s @Ae`::X=ZQY2392081-1X866 REV.2540 <850416.1724>/IMG2_5010/QUERY/QY23.FTN : dQY23 e.CPM.EXIT LOADDBERR FMERR 77gHA8((`p(8`p7 d d @_::XZQY2492081-1X867 REV.2540 <851118.1433>/IMG2_5010/QUERY/QY24.FTN : e8'QY24 IIG .CPM.IDLP ERIO MQY24 NLREADREL QRIO SPUTSFILL LOADFMPRUNPROGRAM STRDSCSMOVE SGETLSCAN I  a EDIT ;,RU,  'AA .`PV(2(<7ވp`((C@op∈`Pp(G(`op`؈Aph㈡(]pV1@n`nP(^88(Q(e@pnhFF1o@`@@pءy؉ވp`(ƈ`p:`p 1@A ((h退@p 1`pRR[** 1 3 p`p3(  3p`p3(R$$DRU,EDIT ^H $@)'::XxZQY2592081-1X868 REV.2540 <851118.1433>/IMG2_5010/QUERY/QY25.FTN : dQY25 WW8.ARTN ERIO MQY25 NLREADREL LOAD QRIO DBUNL DBUND SMOVE LSCAN DBMEM DBEND DBBEG DBLCK DBINF SFILL JSCOM W  FF}22TRANSBEGIN TRANSEND TRANSMEMO TRANSUNDO  QUERY END QUERY BEGIN QUERY MEMOQUERY UNDOF}}@@pspu`ap\`v@upXuX_t(`sps`r@upu8\(`sNp<``p[`<@] 8<8[(@<=>^`>P(`>P(`>P((/}yEE1_ut1@<=_`?p?`?@]pX3s2X`2(A`?@]h? H] ("1_r@_p<`rp=(@1<=@_pr`?((`qprCC ?r2`2(`pP2((A1?_2`2(A`<@=pX1'@_2X`2hlX2 hoX2 (A`wp`oP2(<(M C n1cp`pX ~~MHFF3MbX(*U1@<=>^`>P(Y(e`1_i@_p<`mp=(p`>P(i(Fp@1<=@_`<@=pX }3@_2X`2hlX2 hkX2 (Ap~~~CC1 __2`2(A  1jcp`pX b1X(*@<=>^`>P(((_i@_p<`ip=(`>P((F1@<=@_`<@=pX~}}DD3@_2X`2(A(*@<=>^`>P((-_i@_p<`ip=(`>P((F1@<=@_`<@=pX1 @_2X`2(Ap __}~~@@2`2(A  h3cp`pX 3*bX`gp/ 63 fcp`pX@b3X(*`2p`epˊ(, M 1dcp`pXWb~ ^U1X(* ))?]>23  s  )@<&//`(3(a`;p&9A'.CA{(.)L*Op`ApRDBAP.REL::IMAGE2:5:18:128 644 0 0 11000 5300466334 34236 RDBAP.REL::IMAGE2_6000:5:18:128 $ RDBAP REL +l+l+l(ԒFST 99X%]BAPHD 92081-16020 REV.2540 <850416.1431>REMOTE/BAPHD.MAC::IMG29@99XSv(*]RDBAP 92081-1X891 REV.2440 <850416.1431>REMOTE/BAP_M.MAC::IMG29BP.GT RDBAP 77 #ATCH #GET .DSTBAPS1 BAPS2 BAPS3 DBBUF EXECRDEXT RMPAR SEGLD 7CAA#~A 3~(fpx`p `(   x(ghH (dH (dxX(.`p H12`(O`(O`(O`(O`(O`(O`(O`uAFF(O`(O`(O`(O`(O`(O`(O`p`@P(^@@ZD[((D( bhhh  xs~1`(`pA`p110~Anadg#HBAPS1 BAPS2 BAPS3 BAPS4 @Fd99X(!2]BAPS1 92081-1X892 REV.2540 <850416.1431>REMOTE/BAPS1.MAC::IMG29 >BAPS1 22 n .DST .MPYBP.GT DBCLS DBINF DBLCK DBOPN DBUNL EXECRDEXT 2x??#~`p`p`@  (J(J(J(J(J(B(/(J(J(J(J(J(( (`p`@(1`pA`p,33`p`p(7730 `(N8`0~?CCp8`p@@pM8(wp8A`1hHx  x  X@hHx888(T`@@pA1BEE8(p8A1hHp phH ` x`AP(1phHp  x  hX@mm_>>88(`  p@A  hHHx@(N`p@p`p`p (Nfg.D X mDwLL`pA330 `P`h(NA`p#33 `P(NH`x (N`@(:A393(@3@0 (N3H0 (Nhp(QxA  ^^$OS::A1Z~3(l`P(l`pAi@p`(`p`pA|11~0Aa1 ^@=]99X)9]BAPS2 92081-1X893 REV.2440 <850416.1431>REMOTE/BAPS2.MAC::IMG29 <BAPS2 99 .DSTBP.GT DBBEG DBCTL DBEND DBFND DBGET DBMEM DBUND DBUPD RDEXT 9HH8#`phH (h(_(V(M(D(p(p(p(p(5("((p(p(pA3 33 (t`@Ap4/3334 `h(t`@pCA33C (tA3K]]1H==30 (tT33A (t]330 (t3f3 (tA1 n3 (thp(wx   ~1(a2 ]@}1899X+E]BAPS3 92081-1X894 REV.2440 <850416.1431>REMOTE/BAPS3.MAC::IMG29 <BAPS3 Ћ.DSTBP.GT DBDEL DBPUT RDEXT xxDCC8#`BphH (/(/(/(/(/(/(/('((/(/(/(/(/(/`@p&A3$31& (33-0 (3hAp(6xA CA1?~3C@(a3 x@,K99X-=]BAPS4 92081-1X895 REV.2440 <850416.1431>REMOTE/BAPS4.MAC::IMG29.DSTDBCLS EXECRDEXT ^^[;;#`5p:A`2p9 :45;`;(8:89( ;~4;`3p`p,784~2644^@L=VXSAMAI.REL::IMAGE2:5:13:128 644 0 0 6400 5300466336 34221 SAMAI.REL::IMAGE2_6000:5:13:128 $  SAMAI REL +l+l+l sԦFST ((??X:"SAM.A 92081-16021 REV.2440 <840912.1411>/IMG2/DBMON/SAMAI.MAC:::4:166:39 ?~~rCSAM.ALLOC OSAM.DUMPSTACK 6SAM.DUMPSTACKFSAM.INITIALIZE`SAM.OFFPATHERRORSAM.RAISEEXCEPSAM.REGSEGeSAM.SAVEAREAOVFLSAM.SEGMENTER SAM.SETEXCEPcSAM.START SGIN2 ~ UMAIN ||$CON$EMAS $HIBP $HIGH $LIBR $LIBX .DIV!.DLD.DST .ENTR .LPMR .MPY.MVW.PMAP .SPMR .SWMP .XLA .XLB EXEC IDGET LIMEM PAS.LOWATERMARK2PAS.TOPOFSTACK2 PNAME |MM SAM.FIRSTSAMSEG SAM.NUMSEGS SAM.PTNTABLEPTR SAM.SEGNAMEPTRSAM.SEGTABLEPTR SAM.TELLUSERSAM.TRACEBACK1SEGLD VMAST MDAA`ppJ@p *pJ@[p p`PL(HOpHQ`HZHR0\ /S`@ *h@pp[@Yp//}wC A`A`BC QRS|/}}cAA _`@( (p@x`p`@(`a`_` *@`Thh]H`#bc(`U׈`V`W}1;;8p8@p^(```````#`@߈#hӀXӨ舀Hx57<<#pֈ(H(`耈ppp鈈`P(ـ(`戀p(-@(`戈pp8戈(` *p`~*EE `ֈ`(h@x @TЀHp`HYH`@ 8(GMN`N@pUV(^K`@[ *hHx`pHh`T׀x~~o@@A`h]Xph8H(k`TAh]X(Hh׀ *p`h`A(pppp8`P((~YY))ph`8(8hX҈(hHYXш(xӨ`M(pN@ppp`A@pY p@pp`A@p c  BB""8A(W hx TpH`HYH@`@ A8(B55J@ ``(#`#p4`N@p3gk5((+6 5!5M`l@ NpLnԂN6(LO O`l@ Np^nԨOU`  _`NA( e`O(n##Almmmh׈HY@@!8܀#@sSAM6I.REL::IMAGE2:5:13:128 644 0 0 6400 5300466340 34135 SAM6I.REL::IMAGE2_6000:5:13:128 $  SAM6I REL +l+l+l >ԶFST ??X:SAM.6 92081-16022 REV.2440 <840912.1411>/IMG2/DBMON/SAM6I.MAC:::4:159:39 ?~~oBNGDB <SAM.ALLOC 2SAM.DUMPSTACK SAM.DUMPSTACKFSAM.INITIALIZECSAM.OFFPATHERRORSAM.RAISEEXCEPSAM.REGSEGHSAM.SAVEAREAOVFLSAM.SEGMENTER  SAM.SETEXCEPdSAM.START ~SGIN2 UMAIN {{$LIBR $LIBX .CYB.DIV.DLD.DST .ENTR .MPY.MVW.PMAP .XLA EXEC IDGET L$PTE LIMEM PAS.LOWATERMARK2PAS.TOPOFSTACK2 PNAME SAM.FIRSTSAMSEG SAM.NUMSEGS SAM.PTNTABLEPTR {11SAM.SEGNAMEPTRSAM.SEGTABLEPTR SAM.TELLUSERSAM.TRACEBACK1SEGLD VMAST 1wwA::`pp눀`QDp *p`RDp p`̀PJ(HMpHO`H[HP0] )S`@ *h@pp`TD\@@Zpبw;;c<$$ :`؈:`;<@@D QRS|; dFF `a@( (p@x`pa@(Ȉab``` *@`Uhh^@``@\pD P(hԄ`LL ##@(( `@p`pP_ 88(H`cd(ˆ`V`W`XL;;8p߈8@NpM_(```߈M```߈`M`@Nh XHx<<p(((`pp刈p`P(B(7`p(T@(@`pp戈8(-`؈ *pPFF` ̀׈``(Hh``L@pij(rI`@\ *hH *ApY(hH *p`̀h֤==`A(ppNpp8`P((ph`8(8hX(hHZX(x`K(pL@ppp`@\@p p@pp`A@p c  CC7""8A(k 8`τ@ר`H `p`AHL@pgkC((* 0`Q@ Lp/S1(K2 2`Q@ LpAS2@&C  B`LA( H`M( gNS %%DVQRRRhHZ@@!8"%@<[ IF act_len < chars_in_short_str THEN  FOR index := act_len+1 TO chars_in_short_str DO  bufDBUPGRADE.REL::IMAGE2:5:57:128 644 0 0 34400 5300466342 35756 DBUPGRADE.REL::IMAGE2_6000:5:57:128 #$9 9DBUPGRADE REL +l+l+l9~tFST DDX* c7]PAS.GLOBALINFO92081-16060 REV.2540 860128.1552 UTILS/DBUPGRADE.MAC::IMG2 D@ J* BBXc7]DBUPG.ERROR 92081-16060 REV.2540 860128.1552UTILS/DBUPGRADE.MAC::IMG2 B }DBUPG.ERROR QQ { .ENTR IMG.APPENDSTR IMG.APPNDBANDFIMG.APPNDBANDSIMG.SINTTOSSTRIMG.WRITLONGSTR PAS.1 PAS.200 PAS.BLANKFILL PAS.NONCDSQBBHP))A`*p 3 *+3+ sA3sA 3{A%3)('(}B''Z~A {|p*( DBUPGRADE: Error on file'@ɼEEX^c7]DBUPG.CHECKLEVEL92081-16060 REV.2540 860128.1552 UTILS/DBUPGRADE.MAC::IMG2 E!zDBUPG.CHECKLEVELMM <.CBT.DST .ENTR .MPY .MVWDBUPG.ERROR IMG.BLOCKIO PAS.1 PAS.200 PAS.BLANKFILL PAS.NONCDS PAS.RANGEINTEGERMڭEEAnA(n`P((`(hJ r'rn(--npl`ptpm`mA j@6pxA Cuh6LL|E''`x(a(K`m Ak@@6`6(\(_(_pl(apl8m8t(3`lA(kkzL**={A y`yhA (t uo*@0YDDX>`@Kp`ZA@(`@ZpJ`J@KpI(`KpJpI`J((*`T$A@XpL'LJ`@Jp`IA(.(G3H(99H`JV.> A@YpLELI`IpNPO AMMpK( @6#TEEXc7]DBUPG.SIZINGPASS92081-16060 REV.2540 860128.1552 UTILS/DBUPGRADE.MAC::IMG2 EbnDBUPG.SIZINGPASS~~h.DIV.LBT.MPYDBUPG.BLOCKBOUNDDBUPG.ERROR DBUPG.POSITIONDBUPG.READOLDBUF IMG.BUILDDESC IMG.OPENFILEW IMG.PARSEDESC IMG.SCRATCHFILE PAS.1 PAS.200 PAS.BLANKFILL PAS.NONCDSPAS.RANGEINTEGER~GGA Hq` C(pjAp r8 8j(` A(>pjp As` At^@zpg` A+v_gh{6 hg h{6hgH8 A8j(Et|xkrIt*G@@k d(KA O d AVtw3yJpD` Apg` C @@gp ` A(pgp ` Atx@zphhP(v(~`h @ p (`h@ @p 8 8g(jXBBA `  p ` A @ p A `  p ` Jp ` AJpg` Ch HHHgx ` C Apg` A A@ @gp ` A(pgxxG>>Ap ` t@zpi`i@ Aph`i @ @hp 8 8g(` A@ p  ` p ` pE  d  d( dnx--xo8n(2   DBUPG TMP (-@ķEEXm[c7]DBUPG.WRITENEWBF92081-16060 REV.2540 860128.1552 UTILS/DBUPGRADE.MAC::IMG2 E0NDBUPG.WRITENEWBF;;z..ENTR DBMVW DBUPG.ERROR IMG.WRITDISCBLK PAS.1 PAS.200 PAS.NONCDSPAS.RANGEINTEGER;>>`@Kp`ZA@(`@ZpJ`J@KpI(`KpJpI`J((*`T݈A@XpL'LJ`@Jp`IA(.(G3dH(99dH`JV8> A@YpLELI`IpNQO AMMpK( @+IEEX.c7]DBUPG.POSTNEWBUF92081-16060 REV.2540 860128.1552 UTILS/DBUPGRADE.MAC::IMG2 Ea'DBUPG.POSTNEWBUF11¦DBUPG.ERROR IMG.WRITDISCBLK PAS.1 PAS.200 PAS.NONCDSPAS.RANGEINTEGER1MM;o$$`h-AH( (x&p$`$A*@, 8$(A8&( d%(!!d%p'Mr(8'(@RJq DDX0fOc7]DBUPG.UPGLOBAL92081-16060 REV.2540 860128.1552 UTILS/DBUPGRADE.MAC::IMG2 DsDBUPG.UPGLOBAL|| .DLD.DST.LBT.MBT.MPY.MVW.SBT DBUPG.ERROR DBUPG.POSITIONDBUPG.POSTNEWBUFDBUPG.READOLDBUFDBUPG.WRITENEWBFIMG.BUILDDESC IMG.CLOSEFILE IMG.OPENEXIST IMG.PARSEDESC IMG.POSITIONFILE|DD\ IMG.SINTTOSSTR IMG.STRINGMGR PAS.1 PAS.200 PAS.BLANKFILL PAS.NONCDSPAS.RANGEDOUBLE PAS.RANGEINTEGERD_CCA dA(  dpA`Jp p`A9@2 88 (`Ipph4`5 h6`7A  ` p!!#@h86`96%h:6`;C886%AKA`p8Q`>(Bp ` N`ӂH N0 HpӨ`0Gp`ӊ0Fp`Kp`LpӠ`>#Bp ` S`ӂCN0 Cp`>"{00Bp ` T`ӂB N0 BpӨ`Mpp@pժ`Ap`C @Gp`Cp`Gp @ pڠ `A p۪`p`pݪ`p`pnCC`Kp`LpA`C(ǀp pJ&JA&88 (`AEp `C @G@ p`A(p Ap%'Z(A A)%5OOA Z(%A Z(%A)%  Z(%  Z(% Z(# #Zh26`<6(`Hp`"(Dp`A *`HM0Hph=6%=HHA ,h>6 Hh?6A,h@6h?6A ,h@6 J`#p`p&!#z!#rZ(t`"(DPC(z(h?6 @ @p(h?6ۺEE hHCAHx.88 (٠`A(p p`/AD@3p  PC((`  Aph2`A`  pA(Ҁ` @CpAh2`AOO))` @Cp88 (G`A(p pA1h2`A1A18A8 (Ollu778(@:(2#+Z"$(@l@2CCXc7]DBUPG.UPLOCAL 92081-16060 REV.2540 860128.1552UTILS/DBUPGRADE.MAC::IMG2 CIDBUPG.UPLOCAL 4bbC.DIV.DST .LBT .MBT.MPY .MVW.SBTDBUPG.POSITIONDBUPG.POSTNEWBUFDBUPG.READOLDBUFDBUPG.WRITENEWBF PAS.1 PAS.200 PAS.NONCDSPAS.RANGEINTEGERb11A H J  p  p p  p ` 몊p ` 0p ` p `  p p ` p ` Ap ` C@骨p ` Cp `Ap ` A@ ~~,1@@p ` A A媠@ p ` C @ pG` C(pApRh6 A5h6h6A  6h6 J` p ` p ` p ` $~q==p`:` D 0ˀDp ` p`A ;` 0p ` p h6`6 A8Lj8(O` A(4pAph6`6 ` p ` ::p ` p ` +p˄`R` K0 Kp ` p ` $Ap` T` D0ˀDp ` p`U` 0p h6D VHh6h6 ~~WHHD Wh6 Dh6 Xh6Hh6 D Yh6 ` p `p J  J  J  A`Af@p`Ȉ@ Ap` @@~10JJp88(` A pA?hބ` ` A pAO` C ApZh`A  ` C Apj` A(pp`Ay@pzLL`@ Aph` `@ pA` pʈAh` ` p88Ȅ(rA Jh` AŨKKd;&&8( 2         @K@1REEX:c7]DBUPG.SWITCHROOT92081-16060 REV.2540 860128.1552 UTILS/DBUPGRADE.MAC::IMG2 EDDBUPG.SWITCHROOT((4~DBUPG.BLANKLINE DBUPG.ERROR IMG.BUILDDESC IMG.CLOSEFILE IMG.OPENFILEW IMG.OPENNOEXTEND IMG.PARSEDESC IMG.POSITIONFILEIMG.PURGEFILE IMG.READDISCBLK IMG.WRITDISCBLK IMG.WRITLONGSTR PAS.1 PAS.200 m.PAS.BLANKFILL PAS.NONCDS(FFA A( (AA(A "`p)A (A ,A(22A 6(8A=(CCHdF<FJJ(NANd`(pppA [dK(bad(mAgK(mm8A8(VrAy~A((A332 (A!A(3o__8(!*.1 Purging old root file. The root file has been upgraded. Access to the database has been disabled. You should now make a backup of the database. The backup is require&,d for roll-forward logging. @5wT7DDXUc7]DBUPG.TERMINATE 92081-16060 REV.2540 860128.1552UTILS/DBUPGRADE.MAC::IMG2 D9rDBUPG.TERMINATE >>[IMG.CLOSEFILE IMG.PURGEFILE IMG.WRITLONGSTR PAS.1 PAS.200 PAS.BLANKFILL PAS.NONCDSPRTN>QQ;,,Auxv2w 2,A(,(Ad,A(,( A$d,(&`p-A+-rQ]s8r( DBUPGRADE Finished @P2nAAXke c7]DBUPGRADE 92081-16060 REV.2540 860128.1552UTILS/DBUPGRADE.MAC::IMG2 A##i{@DBUPGRADE ZPAS.1 OPAS.200 QPAS.STOP#ZZ DBUPG.RUNSTRING DBUPG.SIZINGPASSDBUPG.SWITCHROOTDBUPG.TERMINATE DBUPG.UPGLOBALDBUPG.UPLOCAL EXEC PAS.INITIALIZEPAS.NONCDS PAS.TRACECLOSEZ**q@ EWGIKMOAQ TAWX  *@:\@%AR000::IMAGE2:5:3:128 644 0 0 1400 5300466343 32155 %AR000::IMAGE2_6000:5:3:128 $ $%AR000 +l+l+lYFST DDX0&]:$MDBARC92081-16067 REV.2540 <851206.1503> L IMAGE/1000 Data Base Build Utility (REV.2540)Illegal option:@ 6)DDXy]:$MBCLO392081-16068 REV.2540 <851118.1502>  +`` on transaction logIMAGE 344 : DBSPL could not access the DBCON fileIMAGE 346 : Illegal or corrupt roll forward logIMAGE 350 : Tape did not verify correctlyIMAGE 351 : Database access must b`c ``e disabledIMAGE 352 : Log set must be definedIMAGE 360 : DBMON is performing auto cleanupIMAGE 361 : DBSPL switching to spare rflIMAGE 362 : Transaction log file is fullIMAGE 367 : Transaction `` log file is > 90~% fullIMAGE 368 : Maximum transaction number reachedIMAGE 369 : DBSPL is terminatingIMAGE 370 : Roll forward log is fullIMAGE 201 : Illegal database nameIMAGE 202 : Incorre= K``ct security codeIMAGE 203 : Input device/file was emptyIMAGE 204 : Not enough data given for a recordIMAGE 205 : $SET or $END line not foundIMAGE 206 : Integer field was not validIMAGE 207 `` : Real number field not valid. IMAGE 208 : Utility error~! Database may be badIMAGE 209 : Unexpected input EOFIMAGE 210 : Specified device was illegalIMAGE 211 : Level word was not hB ``ighestIMAGE 212 : Backup storage input was badIMAGE 213 : Incorrect security codeIMAGE 214 : Database subchannels changed~!IMAGE 215 : Backup storage file not foundIMAGE 216 : Disc file s{ k``ize and backup size differIMAGE 217 : There is no data to unloadIMAGE 218 : Mode or column parameter is illegalIMAGE 219 : No room for root file on discIMAGE 220 : DBBLD encountered an I/O `` errorIMAGE 221 : DBRBR internal errorIMAGE 222 : DBRFR internal errorIMAGE 223 : Error creating scratch fileIMAGE 224 : DBRFR could not open log volumeIMAGE 225 : DBRFR scratch file I/O errorT +``IMAGE 226 : Wrong version store file/tape errorIMAGE 227 : Data set not empty for DBLODIMAGE 228 : DBSTR verify option parameter errorIMAGE 229 : I/O error; tape LU may have been illegalIMAGi ``E 230 : Magtape does not have a write-ringIMAGE 231 : Magtape is off-lineIMAGE 232 : Device lock errorIMAGE 233 : Device unlock errorIMAGE 235 : Not enough room in file for databaseIMAGE I ``236 : Not enough room on tape for databaseIMAGE 241 : Prompt device must be interactiveIMAGE 242 : Wrong volume was mountedIMAGE 243 : Root namr does not match storageIMAGE 244 : DBRST mu5K``st put root on same cartridgeIMAGE 245 : Cannot clone DBRFRIMAGE 247 : Program was brokenIMAGE 248 : Illegal abort optionIMAGE 249 : Illegal statistics optionIMAGE 250 : No such commandIMAGK``E 251 : IMAGE maintenance password is neededIMAGE 252 : YES or NO requiredIMAGE 253 : Illegal LU numberIMAGE 254 : Optional parameter was illegalIMAGE 255 : Not enough parametersIMAGE 256&} `` : Too many parametersIMAGE 257 : Parameter too longIMAGE 258 : Do soft crash recovery firstIMAGE 259 : Parameter was not a database namrIMAGE 260 : File size was below minimumIMAGE 261 :}k`` Parameter not proper typeIMAGE 262 : No file/device to transfer back toIMAGE 263 : Transfer files cannot be nestedIMAGE 264 : Wrong maintenance password was givenIMAGE 265 : New maintenanu``nce password unconfirmedIMAGE 266 : DBUTL help file not foundIMAGE 267 : No help information is availableIMAGE 268 : Command not useable when IMAGE activeIMAGE 269 : Unknown IMAGE error: +``Consult manualIMAGE 270 : Unknown FMP error: Consult manualIMAGE 271 : Parameter must be disc fileIMAGE 272 : Parameter must be a magtapeIMAGE 273 : Logging option was invalidIMAGE 274 : `` File size was illegalIMAGE 275 : Roll Forward Log history table fullIMAGE 276 : DBCON resource unlock errorIMAGE 277 : DBUTL internal errorIMAGE 278 : Error creating DBCON fileIMAGE 279 :`` DBCON resource lock errorIMAGE 280 : Spare is same device as RF LogIMAGE 281 : Program could not be scheduledIMAGE 282 : Before-image file not definedIMAGE 283 : Transaction log file not@BK`` definedIMAGE 284 : Roll Forward log is not definedIMAGE 285 : DBMON not schedulableIMAGE 286 : DBSPL not schedulableIMAGE 287 : DBCLN not schedulableIMAGE 288 : Volume not foundIMAGE 289`` : DBUTL cannot be clonedIMAGE 290 : Cannot execute while IMAGE is activeIMAGE 291 : Cannot execute while IMAGE shutdownIMAGE 293 : Missing parameterIMAGE 294 : Scratch file errorIMAGE 29- ``5 : New log set must be definedIMAGE 296 : Old log set name cannot be specifiedIMAGE 297 : FMP rename errorIMAGE 298 : DBCLN is not activeIMAGE 299 : Illegal command after crash occursIMAxJk``GE 300 : Cannot archive the current rfl fileIMAGE 301 : Illegal type for list or log fileIMAGE 396 : DBMON VM file needs more roomIMAGE 183 : Resources could not be recoveredUnexpected non-IMAGE error @x8.MAC::ROBIN -BASC.ADD_SHORT== .DAD.DDS .DLD .DST.ENTR .FAD.LPXR BASC.GET_ARR_PTRBASI.OVERFLOW SET_UP_FOR_ADD=eeT+ EE  %LO000::IMAGE2:5:3:68 644 0 0 1400 5300466355 32326 %LO000::IMAGE2_6000:5:3:68 $ D%LO000 +l+l+lhFST DDX 1(]:$MLOAD292081-16072 REV.2540 <851209.1521> d":Vp Syntax error Break requested - entry not processed Illegal access to data set !1 = _ Must enter path item value Q`` Must enter sort item value Select file error Record not yet been found Opened data-base isn't the one in the select file Item_ Illegal data item name User access not high enough Illegal pat^^EEh modification Illegal sort value modification Illegal data item name User access not high enough Ok to delete?(Yes/No)_ Did not delete ^@G`f DDX~ĩ/:$MQY08 92081-16073 REV.2540 <851118.1431> P Break requested - some records not processed Select file error<@DDXĩ/:$MQY15 92081-16073 REV.2540 <880829.1611>  X p     ♙   B T f INVALID DAT op``A SET NAME OR NUMBER. INVALID DATA ITEM NAME OR NUMBER. INVALID OR MISSING SEARCH OR SORT ITEM. DATA BASE NOT OPENED. OPEN MODE DOES NOT ALLOW THAT OPERATION. DETAIL DATA SET IS FULL. MASTE``R DATA SET IS FULL. NO MASTER ENTRY WITH KEY ITEM VALUE. REQUEST DIRECTED AT AN AUTOMATIC MASTER. NO CRASH HAS OCCURRED. DUPLICATE MASTER KEY VALUE NOT ALLOWED. NO CURRENT CHAIN OR BAD REC40``ORD NUMBER. CANNOT ALTER VALUE OF A KEY OR SORT ITEM. ENTRY BEING DELETED HAS NON-EMPTY CHAINS. RECORD IS EMPTY. INVALID MODE. FILE SPECIFIED IS NOT A ROOT FILE. ILLEGAL SECURITY CODE. DAThd``A SET IS NOT WRITE ENABLED. ROOT FILE CANNOT BE FOUND. DATA SET FOR OPERATION MUST BE A DETAIL. DETAIL DATA SET HAS NO PATHS. CANNOT PERFORM A CHAIN READ. DATA SET FOR OPERATION MUST BE A ``MASTER. INVALID DBINF MODE. BAD DATA SET OR DATA ITEM IN DBINF CALL. HARD CRASH HAS OCCURRED. CLASS NUMBER ERROR. PARTITION IS TOO SMALL. DATA BASE OPEN EXCLUSIVELY. DATABASE MUST BE BACKEDP`` UP. OPEN DATABASE TABLE IS FULL. NO RESURCE NUMBER AVAILABLE. CLASS READ ERROR. IMAGE IS NOT ACTIVE. DATA BASE CANNOT BE CLOSED DUE TO LOCK. DATA BASE ALREADY LOCKED TO ANOTHER USER. DATA ϶``BASE RN IS BEING USED ILLEGALLY. UNRECOGNIZED MESSAGE FROM CLASS READ. IMAGE HAS NOT BEEN INITIALIZED. UNABLE TO SCHEDULE DBCOP. INVALID PROGRAM REQUEST. TRANSACTION LOG FILE IS FULL. IMAGE NS/``OT STARTED. ERROR IN ATTACHING TO SESSION. LOGICALLY INCORRECT DATABASE. SOFT CRASH. INTERNAL COMMUNCIATIONS FAILURE. RECEIVED MESSAGE WAS CORRUPT. DBMON INTERNAL ERROR. DATA BASE ALREADY Op``PEN. TRANSACTION LOGGING OFF UNOBTAINABLE OPEN MODE. DATA BASE INACCESSIBLE WITH THAT LEVEL. DATA BASE CORRUPT - BAD CHAIN POINTER. BEGINNING OR END OF CHAIN ENCOUNTERED. DETAIL CHAIN IS EMP``TY. NO CURRENT RECORD FOR OPERATION. RTE-A REMOTE PROGS MUST BE NON-SESSION. DATA BASE MUST BE LOCKED. INTERNAL BUFFERS ARE CORRUPT. CHECKSUM INDICATES DATA IS CORRUPT. INTERNAL IMAGE CALL IK0``S INVALID. INTRINSIC NOT SUPPORTED IN 92069. TRANSACTION ALREADY IN PROGRESS. NO TRANSACTION IN PROGRESS. TOO MANY CHARACTERS IN TEXT STRING. IMAGE ERROR 167. TRANSACTION TABLE FULL. IMAGE Pk``ROGRAM SCHEDULING ERROR. DBSPL COMMUNICATION ERROR. TRANSACTION LOG OPEN ERROR. DATABASE ACCESS IS DISABLED. CANNOT CALL WITHIN TRANSACTION. GLOBAL LOCK TABLE FULL. NO MORE TRANSACTION NUMBE``RS. TRANSACTIONS CANNOT SPAN NODES. INVALID NUMBER OF LOCK DESCRIPTORS. INVALID LOCK DESCRIPTOR LENGTH. LOGICAL END OF TLF ENCOUNTERED. CAN NOT COMMUNICATE WITH DBMON. ROLL FORWARD LOG ERROR.5P`` EMA MAPPING ERROR - SOFT CRASH~! IMAGE ERROR 183 ILLEGAL IBASE IN DBEND, OR DBUND. CAN NOT MODIFY A READ-ONLY DATABASE. RELATED MASTER DATASETS NOT LOCKED. ILLEGAL LOCK DESCRIPTOR. FILE IS#`` NOT A DATASET. CORRUPT TRANSACTION LOG. DBCON OPEN ERROR. DBCON READ ERROR. DBCON WRITE ERROR. ERROR IN SPOOL INITIALIZATION. DATABASE CRASH FLAG SET. WARNING LOG FILE ACCESS ERROR. ROLKK66L FORWARD LOG GAP - MUST BACKUP~! IMAGE ERROR 197. IMAGE ERROR 198. TAPE PARITY ERROR IN ROLLFORWARD LOG.K@_~DDXĩ/":$MEDIT 92081-16073 REV.2540 <870501.1517> Th Value must have quotes - item ignored Illegal integer value Illegal real value Ascii value too long - right truncated Illegal terminator Illegal terminato T=[r @9DDX&ĩ/#:$MGTPRC92081-16073 REV.2540 <851118.1428> >NZ,,U)? _ ERROR OCCURRED OPENING VOLUME NUMBER OF SUBVOLUMES (ENTER INTEGER VALUE)? _>@,KDDX|4/S:$MRF_S292081-16075 REV.2540 <851118.1451> M40S:$MRFLL 92081-16075 REV.2540 <870414.1630> FOPZhp0TeDISABLEDREAD-ONLY READ-WRITEINTRINSIC ONLYROLLBACKROLLFWD SPOOLEDROLLFWD NOSPOOLIMAGE is ACTIVEIO``MAGE is SHUT DOWNSystem Access Mode=System Logging State=Warning Log File=Before-image File=Before-image file is not defined.Transaction Log File=Transaction log file is not defined.Roll-ForwaFFJ22rd Log=Roll-Forward Log is not defined.Spare Roll-Forward Log=Spare Roll-Forward Log is not defined.F@?^LDDX>-S:$MUT_SL92081-16078 REV.2540 <870113.1611> >nl 1W{VOLUMESpare Roll-Forward Log=Spare Roll-Forward Log is not defined.Spare Roll-Forward Log Logical Name=Z@EdDDX-S:$MUT_SU92081-16078 REV.2540 <870113.1612> SHORT_DBOPN REL +l+l+lnFST >>X$n ]SHORT_DBOPN 92081-16281 REV.2540 <850822.0942>DBMS/SHORT_DBOPN.MAC::IMG2>gIMG.BUILDROOT .ENTR  IA @RDTB.REL::IMAGE2:5:3:127 644 0 0 1400 5300466371 33251 RDTB.REL::IMAGE2_6000:5:3:127 $ (RDTB REL +l+l+l1 FST ??X &RD.TB 92081-16410 REV.2440 <840912.1419> /IMG2/REMOTE/RDTB.MAC:::4:10:38 ? =RD.TB Q6``[[$d`CC(([@7T  pad_char = ' '; (* pad character *)  VAR  act_len: short_int; (* actual string length *)  indDBRFR.LIB::IMAGE2:5:49:128 644 0 0 30400 5300466373 34035 DBRFR.LIB::IMAGE2_6000:5:49:128 $1 ,1DBRFR LIB +l+l+l1bFST .??X4*1SRFLIB 92081-16560 REV.5000 870415.1240 /IMG2_5*0/UTILS/RFLL.MAC?@q#CCX.4*1SRFR.INPUTLOGWRIT92081-16560 REV.5000 870415.1240/IMG2_5*0/UTILS/RFLL.MACC"RFR.INPUTLOGWRIT "".CBT.ENTR IMG.WRITLONGSTR PAS.1 PAS.NONCDS">>sAp( !( (h)6A`*6((( !((p`">Ō#A `-p(@( - @|jDDXV4*2SRFR.LCKUNLCKDEV 92081-16560 REV.5000 870415.1240 /IMG2_5*0/UTILS/RFLL.MACDj RFR.LCKUNLCKDEV .ENTR PAS.1 PAS.NONCDSjcp`   Ap`p(  @ CCX_4*2SRFR.WRITEBLANKLI92081-16560 REV.5000 870415.1240/IMG2_5*0/UTILS/RFLL.MACCSVRFR.WRITEBLANKLI00.ENTR IMG.WRITLONGSTR PAS.1 PAS.BLANKFILL PAS.NONCDSRFR.FATALERROR0 A]\]^ UA(V [WATTp( @T*r@@X*4*3SRFR.FINISH92081-16560 REV.5000 870415.1240/IMG2_5*0/UTILS/RFLL.MAC@nRFR.FINISHIii U} .ENTR IMG.CLOSEFILE IMG.NLSBLANK IMG.PURGEFILE IMG.READDBCON IMG.WRITEDBCONMRFLL NLREADREL PAS.1 PAS.NONCDS RFR.FATALERRORRFR.INPUTLOGWRITRFR.WRITEBLANKLIiAA`u(  vp v Avt(` PˆA((5! > t(& &t` äp 0 > tA(5 5t9 (@ vp ]]VA33AFv Jvt(L P (t(R V t(X \ t(^ b >t(d h t(j n t(p s]GQ A pu(@"DDX 4*3SRFR.DEFFILEOPEN 92081-16560 REV.5000 870415.1240 /IMG2_5*0/UTILS/RFLL.MACD>LRFR.DEFFILEOPEN ''c.ENTR IMG.DEFAULTFILE IMG.OPENEXIST PAS.1 PAS.NONCDS' AKK ( L\\"MCCAK( \@[&CCX4*4SRFR.PROCPARAMETE92081-16560 REV.5000 870415.1240/IMG2_5*0/UTILS/RFLL.MACCjHRFR.PROCPARAMETE~~IE.CBT.ENTR .MBT DBCMW IMG.APPENDFILEIMG.DEFAULTFILE IMG.ISINTFILE IMG.OPENEXIST IMG.OPENFILEW IMG.READDBCON IMG.STRINGMGR IMG.TRUNCATESTR PAS.1 PAS.BLANKFILL PAS.INLINEERROR PAS.NONCDS~ RFR.DEFFILEOPEN RFR.FATALERROR UPSHIFT EEAMLMNMLMN`F@p((($`@pA $(NOPPA((GA(0-( 0QA3((;8(A ;Q`F@pA(FEaEDD(Q`@pA QNOPPAUڂGA(Z ZG`F@p(eAd(p`@p pNOPPtG(}MLMNA G`F@pP(P(6DDP((Ap ( R(`@A6pM^SOhY6`AO( ((p (`@6pM_SOhY6`O(((p (A R(Hh`F@pDDP(P(׈P(( Ap ( T(`@A6pM`SOhY6`AO( ((p ( `@6pMaSOhY6`O(( ( p ( A  T(Hh`Fr??@p (p (0`@pA %NOPP Ap +ĂG(0A 0G`F@p(C` (@= p (B`p (k`@p NNOPPP66PHH (R(Up (Wp `A@p bvNOAPPfvG(kA kG`F@p(zhZ6A`[6U(`@p AO A>PM G( AVMLM>**Uh\6`]6UA((  W( XH*qI^^AF( @b> SUDECOAB c T d@BBX9|4*6SRFR.ASKUSER 92081-16560 REV.5000 870415.1240 /IMG2_5*0/UTILS/RFLL.MACB oRFR.ASKUSER GG / .ENTR .LBTIFBRK IMG.READSHORTSTRIMG.WRITLONGSTR PAS.1 PAS.NONCDSRFR.FATALERRORRFR.FINISHUPSHIFT GFFpb`b(a ̈P{( (spdA(md(Ad(ed((`dPv('A'd(`A-eetpchu6@cHH Px(8(D`cA@w(D`cpc(/pb==Fhu6@cH Pz(O(Rn(`hu6@cH Py([(^n(`pb(o=qp A m(e  NY@v6DDX+34*6SRFR.WRONGVOLUME 92081-16560 REV.5000 870415.1240 /IMG2_5*0/UTILS/RFLL.MACD^,RFR.WRONGVOLUME TT .ENTR IMG.NLSBLANKIMG.WRITLONGSTR MRFLL NLREADREL PAS.1 PAS.NONCDSRFR.ASKUSER RFR.FATALERRORRFR.FINISHRFR.WRITEBLANKLITXX**A0 (A (* ( A 1  DA2p  D2  D+#0 (+A())+,Xm-A *(@fBBXo4*7SRFR.GETNEXTVOL92081-16560 REV.5000 870415.1240/IMG2_5*0/UTILS/RFLL.MACB <RFR.GETNEXTVOLa.CBT.DLD.DST.ENTR .LBT.LPXR .MBT.MVWCITADBIOC EMA.ADDRTOPTR IFBRK IMG.BLOCKIO IMG.ISTAPEFILE IMG.NLSBLANK IMG.OPENEXIST IMG.POSAPPENDSTRIMG.STRINGMGR IMG.WRITLONGSTR MRFLL KK ? NLREADREL PAS.1 PAS.BLANKFILL PAS.NONCDSRFR.ASKUSER RFR.FATALERRORRFR.FINISHRFR.WRITEBLANKLIRFR.WRONGVOLUME K~~AA`9p+h+6H@m(ЀHh+6@lA(D+EAFFG(` ( $H DIp * DI`+@hp.3 D.D`(7(b >J Ip D~A>> D`A@gp.M D D.ATGKG DX `@g@p.b D D. g( D;(lAl; sL DIp y DIA DD7I<<(`(( M DIp  DAI DD( N DIp  DAIA  D DA ( D;(A; ûCCO DAIp ơ DI D`A(h:6`+6Ep`(  ̈Pn((AF :;((AD+EFFA P DIpA  D UBBAI DDA  ( D;(A; Q DAIp  DI! D`A(''(*p`(0:(W`:@ip.:.R;A(W@G( M@IIA GS DIpA M DIQ D`(WAW; _G:FG ;(dd;Ai`b;(nAn;AA,vAG(,T@6hd6D(((,VP(==A,VP(`jp(`kp  DIp  DIA DAp X DAIp  DI,Y@heA[ D/D ( D??;(̂;` Pf( \ DIp  DAIࡀ D`(;(`+@h6p.,YA6`.D(( ] DIp  DIA(( D!!b p( Ap ,^J  /p .<!OO=22A77p8p(@  :  / "O@OBBXw4*9SRFR.FILLBUFFER92081-16560 REV.5000 870415.1240/IMG2_5*0/UTILS/RFLL.MACBhRFR.FILLBUFFER@@ .DIV.DST .ENTR DBIOC DBW.BLOCKIO IMG.ISTAPEFILE PAS.1 PAS.NONCDSRFR.FATALERRORWKDIO @EEAc(&`c@q@`v^l^dme g(gPp(ggPp( (#f(%`rf([p]`c@qp`3l`ne]g(BgPu(9(<p](BgPt(BBg`] 00Esff([`cA@qp`T`o\(VgPu([gh0iA c(( "(MO@KjoCCXU4*9SRFR.READNXTCHUNK92081-16560 REV.5000 870415.1240/IMG2_5*0/UTILS/RFLL.MACCSRFR.READNXTCHUNK`` .DAD .DDE.DLD .DMP.DST.ENTR .LPX.LPXR EMA.ADDRTOPTR EMA.CHECKSUMIFBRK PAS.1 PAS.NONCDSRFR.FATALERRORRFR.FILLBUFFERRFR.FINISH`g@@A P(( A ` ,A( T / 2 -p .` .@ ,@p`٨P -(("p(B`p .h . A  JA 2A 5(:A:AA [@BBx`@يp` -A@(gh  / /\ T / 2 -䠈` -(e䈈P(d`䀪(p .h .  AJ  2AA w(||AAAyCCP(A(`(( x ,@ . pۈ`@p`A@p 2pAA APڄ(` 1P(( Ap 1p++5` 1A@(Ј`(x 1+$$A(Z O$@"sss~~  RFR.ASKUSER 3'RFR.DEFFILEOPEN eRFR.FILLBUFFER$~ RFR.FINISH&ARFR.GETNEXTVOLR'RFR.INPUTLOGWRITORFR.LCKUNLCKDEV 6RFR.PROCPARAMETE cRFR.READNXTCHUNK'l'~~~PRFR.WRITEBLANKLI^RFR.WRONGVOLUME 1'LLBUFFER$~ RFR.FINISH& RFR.GETNEXTVOLR RFR.INPUTLOGWRITORFR.LCKUNLCKDEV 6RFR.PROCPARAMETE cRFR.READNXTCHUNK'l~USNUM.REL::IMAGE2:5:3:72 644 0 0 1400 5300466374 33772 USNUM.REL::IMAGE2_6000:5:3:72 $ `HUSNUM REL +l+l+loFFST HHXI RTE6_SESSION_ID 92081-16577 REV.2440 850221.2306 /IMG2/DBMS/USNUM.MAC:::3:24:33 H@dICCX  USNUM 92081-16577 REV.2440 850221.2306 /IMG2/DBMS/USNUM.MAC:::3:24:33 C MUSNUM 4.ENTR PAS.NONCDSj]p` eRA( @=GGX%) SYSTEMPROCESS 92081-16577 REV.2440 850221.2306 /IMG2/DBMS/USNUM.MAC:::3:24:33 G&SYSTEMPROCESS 4.ENTR PAS.NONCDSjap`7kAp(@!DBARC.REL::IMAGE2:5:44:128 644 0 0 26000 5300466376 34346 DBARC.REL::IMAGE2_6000:5:44:128 $, d,DBARC REL +l+l+l,GLFST CCXù 11PAS.GLOBALINFO92081-16630 REV.5000 870127.1544/IMG2_5*0/UTILS/DBARC.MAC C@ùDDX , 11ERROR_HANDLER 92081-16630 REV.5000 870127.1544 /IMG2_5*0/UTILS/DBARC.MAC Dv ERROR_HANDLER !.CBT.ENTR .MVW IMG.CLOSEFILE IMG.NLSBLANKIMG.NLSTERM IMG.SINTTOSSTRIMG.STRINGMGR IMG.WRITLONGSTR MDBARCNLREADREL PAS.1 PAS.1100 PAS.1200 PAS.1300 PAS.1400PAS.200 PAS.3 PAS.300 77:PAS.400 PAS.500 PAS.600 PAS.700 PAS.800 PAS.900 PAS.BLANKFILL PAS.NONCDS7JJh'6`(6A( A((z`ypAyAA#! !h)6`(6(Q(,h'6`(6A(=(5=zAzJ"0#z\\5J..p0P#0(_Y$0#p0A_#0dx(fh*6`+6A(pA(w(w ty(vH( \88,EA  pyA` h(%` h+&(@   8@lAAX1( 11ERROR_EXIT92081-16630 REV.5000 870127.1544/IMG2_5*0/UTILS/DBARC.MAC A[5"ERROR_EXITssS(.ENTR ERROR_HANDLER IMG.CLOSEFILE PAS.1 PAS.1100PAS.1200PAS.1300PAS.1400PAS.200 PAS.3 PAS.300 PAS.400 PAS.500 PAS.600 PAS.700 PAS.800 PAS.900 PAS.NONCDSs<<^]AQA( ( AA((A "<7#A !p(@WvGDDXB 1 1PICK_UP_PARAMETE92081-16630 REV.5000 870127.1544/IMG2_5*0/UTILS/DBARC.MAC DiPICK_UP_PARAMETE+{{aQ.CBT.MBTERROR_EXITERROR_HANDLER IMG.APPENDFILE IMG.CLOSEFILE IMG.GETDBCONNAMEIMG.NLSBLANK IMG.OPENEXIST IMG.OPENFILEW IMG.STRINGMGR IMG.WRITLONGSTR MDBARCNLREADREL PAS.1 PAS.1100{ddPAS.1200PAS.1300PAS.1400PAS.200 PAS.3 PAS.300 PAS.400 PAS.500 PAS.600 PAS.700 PAS.800 PAS.900 PAS.BLANKFILL PAS.INLINEERROR PAS.NONCDSd Y<<`4P(P눈(P((AU(h6`6A(Dh#U '(Y`p20Up08U0A=U%/0 =@>h'6A %12@>h'6H<(@&&O)A&&p%(dJ M4  0&@CCXm 1 1VERIFY_TAPE 92081-16630 REV.5000 870127.1544 /IMG2_5*0/UTILS/DBARC.MAC C3VERIFY_TAPE D||W5.DAD.DIV.DSTDBCMW DBDIO DBIOC ((ERROR_EXIT IMG.APPNDBANDS IMG.BLOCKIO IMG.NLSBLANKIMG.WRITLONGSTR MDBARC NLREADREL PAS.1 PAS.1100PAS.1200PAS.1300PAS.1400PAS.200 PAS.3 |== XPAS.300 PAS.400 PAS.500 PAS.600 PAS.700 PAS.800 PAS.900 PAS.NONCDSUTL.MAKEVOLNUM=~~88A  0Up0A U0`F@pAA UAU('%0<(--20;p0`0A(::~ &8@@h0A AH%;(U`PȈA(N(SR(Up`(` Ap gQG(mmQh z;hx88Gp0`0A(A%;(`P(( p(U  0Up0 U0AU(%\A(  8(^:M@UDDXD 11HANDLE_END_OF_TA92081-16630 REV.5000 870127.1544/IMG2_5*0/UTILS/DBARC.MAC DlHANDLE_END_OF_TA,~~].CBT.DADDBIOC ERROR_EXIT IMG.APPNDBANDS IMG.BLOCKIO IMG.NLSBLANK IMG.READSHORTSTR IMG.WRITLONGSTR MDBARCNLREADREL PAS.1 PAS.1100PAS.1200PAS.1300PAS.1400PAS.200 PAS.3 PAS.300 ~NN PAS.400 PAS.500 PAS.600 PAS.700 PAS.800 PAS.900 PAS.BLANKFILL PAS.NONCDS UPSHIFT UTL.MAKEVOLNUMVERIFY_TAPE N>88 Ap%(`P(A(p0Up0 U0A %U(',%A(22`0(77hN~~%8<< Jx0`F@稀hFH L0U٤p0RU0`F@pYˤ ]U bU(dAkrh6~yt??A`6(({0Up0U0A U( A( h6A`6(((A(k::H%( ޡǠ(:$$8( GOAB:M$@y@@@X4N 11DBARC 92081-16630 REV.5000 870127.1544 /IMG2_5*0/UTILS/DBARC.MAC @(DBARC yPAS.1 iPAS.1100PAS.1200PAS.1300+PAS.1400PAS.2 PAS.200 PAS.3 PAS.300 PAS.400 PAS.500 *PAS.600 MPAS.700 aPAS.800 PAS.900  )>PAS.STOP {{.CBT.DAD.DLD .DRCT .DST.MBT DBIOC ERROR_EXITERROR_HANDLER EXECHANDLE_END_OF_TAIMG.BLOCKIO IMG.CLOSEFILE IMG.NLSBLANKIMG.OPENFILEW IMG.PARSERIMG.RDHISTENTRY IMG.READDBCON {tt&IMG.READSHORTSTRIMG.WRITLONGSTR IMG.WTHISTENTRY MDBARCNLREADREL PAS.BLANKFILL PAS.INITIALIZEPAS.NONCDS PAS.PARAMETERS PAS.TRACECLOSEPICK_UP_PARAMETE PRTNUPSHIFT VERIFY_TAPE t(TT-p~p/p8:AAE/(J`/Ap~(Q1U1/(\\/1A aAp i$/`/(Asw/(|`/p~(i|PPA/ @/(/ @p`@4Hp+`+A(`4LA@+(P4M(94/(A/h6`6A`@4E6h6-MMMA(҈((`+P4A((A9+/(/`@4E6h6A(((h6A`6(J(49p4848A 1/(AYUU49p48#A48(1/(*/1/(1A6=4:h6`6A(J(FJ`(eAT49p48AZ48_/(aAeA j/(ppC'nII|/`@4JA ||@/(A/AAÈ`4Cp47p`8P4G(8(`8P4G(A8p`ȆA@4I(`(`p` @4Cp`@€3QAAP4F((` @4Dp`ƈA@p4B Bp`@p(`ƈ@(p`4Gp8((`P4I((`pA|/(`/P4G(`/P4K(((@(NN|/h (`8P4G((`( /( `/P4K(|/( p/A %/(++|/`45A(00A79+/(==/`@4E6Ah6(HqFOO(j(jh6A`6(R(j(jh6`6A`@4Jpd9+/(jAj/An9/A(pt|/(vAz/A(|1/(A49p48A48/>]](//(`~py y  @1 J,(Z,54:|GOAB XX go GO D``::R''+BIF +TLF +RL :/4C  (:M @b(DBLOD.REL::IMAGE2:5:47:128 644 0 0 27400 5300466377 34647 DBLOD.REL::IMAGE2_6000:5:47:128 $/ /DBLOD REL +l+l+l/}zFST DDXCZ1PAS.GLOBALINFO92081-16670 REV.5000 870113.2001 /IMG2_5*0/UTILS/LODMN.PAS D@CEEX Z1PAS.ERRORCATCHER92081-16670 REV.5000 870113.2001 /IMG2_5*0/UTILS/LODMN.PAS E9PAS.ERRORCATCHER%%BKP.REPORTERROR PAS.1 PAS.200 PAS.300 PAS.NONCDS% eA(  28(a @KLj ??X,Z1DBLOD 92081-16670 REV.5000 870113.2001/IMG2_5*0/UTILS/LODMN.PAS ?00@DBLOD PAS.1 PAS.2 PAS.200 lPAS.300 PAS.STOP0yyHDBBUF DBLOD.INITIALIZEDBLOD.LOADDATADBLOD.OPENDBDBLOD.PREPSET DBLOD.READHEADERDBLOD.TERMINATE EXEC PAS.IMAGE1 PAS.INITIALIZEPAS.INITMEMINFO1PAS.NONCDS PAS.SEGMENTLOAD PAS.TOPOFSTACK1 y PAS.TRACECLOSE mm@DD EG AJLA OQ(T(A WY(\(A _a(d(`,$(p,p,#A oq(t(A wy(|(8,#8,(l Am  ,,A |DBLO1 DBLO3 DBLO2 DBLO2 DBLO4 DBLO2 ,@u@??XLZ"1DBLO1 92081-1X036 REV.2440 870113.2003/IMG2_5*0/UTILS/DBLO1.PAS ?  PAS.SEGMENTRTN  @:*XEEXZ1DBLOD_SEG1_LIBRA92081-1X045 REV.2540 870113.2003 /IMG2_5*0/UTILS/LOAD1.PAS E@EEXZ1DBLOD.INITIALIZE92081-1X045 REV.2540 870113.2003 /IMG2_5*0/UTILS/LOAD1.PAS EYDBLOD.INITIALIZE X.ENTR BKP.PARSEPARAMS PAS.1 PAS.NONCDS p `p"^A( ( p  r `  A`p (  @P??XQZ1DBLO2 92081-1X037 REV.2440 870113.2005/IMG2_5*0/UTILS/DBLO2.PAS ?  PAS.SEGMENTRTN  @?']EEXZ'1DBLOD_SEG2_LIBRA92081-1X046 REV.5000 870113.2005 /IMG2_5*0/UTILS/LOAD2.PAS E@DDXfZ(1BKP.READVOLHDR92081-1X046 REV.5000 870113.2005 /IMG2_5*0/UTILS/LOAD2.PAS DtBKP.READVOLHDR6 == 5.CBT.ENTR .MBTBKP.READBUFFERBKP.REPORTERROR DBCMW PAS.1 PAS.BLANKFILL PAS.NONCDS=KKpY`"pXh6`6h6`6A"WV((T "A'"(-,Մ(T 4рh6`6A(>(R(Rh6A`6(K(GJ(Tq((K `XP"(RQ(TpY t<T`Y 11qA`pY(@ b"Z"DBUNLOADDBUNLOAD25401  @]@|DDX3Z(1DBLOD.ADJUSTREC 92081-1X046 REV.5000 870113.2005/IMG2_5*0/UTILS/LOAD2.PAS DKDBLOD.ADJUSTREC c //.DIV.ENTR .LBT.MPYBKP.REPORTERROR DBINF PAS.1 PAS.NONCDS/ҧ??Ap +$+E`+E(A+E(`p(-pp`H@h p@H`88(p`P({ppp`({`H)???A@pH+$+E`+E(OAN+E(Hh6P(U(]`@p(b`@p`A@(pp@p(z`(t(wp(z`p(8` ~p ti` ""IAppp`p(hf" X @&EEEXZ)1DBLOD.READHEADER92081-1X046 REV.5000 870113.2005 /IMG2_5*0/UTILS/LOAD2.PAS E9DBLOD.READHEADER2 00a.CBT.ENTR .MVWBKP.OPENTAPEREADBKP.REPORTERROR PAS.1 PAS.NONCDS0N@@ApJ((Hh؄`h6`6A( ((p+(8p+h6`6(%((((p+(8h6`6A(2 (5(5p+(88נ`+(>`p+(F`+ @(D`p+(F`"p+pJ t%H`J 44w A`pJ(C"**DBUNLOAD21XX DBUNLOAD2540 4  @aCCXZ*1DBLOD.PREPSET 92081-1X046 REV.5000 870113.2005/IMG2_5*0/UTILS/LOAD2.PAS CODBLOD.PREPSET ~ ooq .ENTR .MBT.MVWBKP.READFILEHDR BKP.REPORTERROR DBINF DBLOD.ADJUSTREC IMG.APPNDBANDS IMG.NLSBLANKIMG.WRITLONGSTR MLOAD2 NLREADREL PAS.1 PAS.BLANKFILL PAS.NONCDSoYDDAp((p +h`` +0 +(h6A`6 (!h6A`6 ( +$ ,  +E +` +EP(,(OA 3pA 9@ , zADzD99AI (L( p +(V` +EA(VU +E(` + p +` +(d +$ + +E` +E(kj +E(` +0 +(r`ɨp +(t` "p + `A@ +(@ CC3T}##p AA ((A + + +((pC u` (( A `p(@ "` , "h( } @xv6DDXִ,Z+1DBLOD.TERMINATE 92081-1X046 REV.5000 870113.2005/IMG2_5*0/UTILS/LOAD2.PAS D-%DBLOD.TERMINATE 88VBKP.CLOSEDB BKP.CLOSEFILESBKP.CLSETAPEREADBKP.REPORTERROR PAS.1 PAS.NONCDSPRTN8>>A(+$+E (  `"_p`+p$`*p`)@ 8A8$(> % 1&8%( * @??XR7Z71DBLO3 92081-1X084 REV.2540 870113.2007/IMG2_5*0/UTILS/DBLO3.PAS ?  PAS.SEGMENTRTN  @@I_EEXZ )1DBLOD_SEG3_LIBRA92081-1X085 REV.2540 870113.2008 /IMG2_5*0/UTILS/LOAD3.PAS E@CCX]Z )1DBLOD.OPENDB92081-1X085 REV.2540 870113.2008 /IMG2_5*0/UTILS/LOAD3.PAS C'tDBLOD.OPENDB 55.DLD.ENTR .MBTBKP.OPENDATABASEBKP.REPORTERROR DBINF PAS.1 PAS.NONCDS5<<Ap`+$z+EA( (\+$^{+E+O`+E(A+E(\`+O(+prp_`@_hH_8_8r( `+O(Qprp_`A@_ps=+$s|+E@@C< a`+E(DAC+E(\An A(J(NM}(\8_8r(3h6`6~ p"p`@ s\``t ))uAt`p`(+O"DBUNLOAD2540 ) P @??XY7Z 51DBLO4 92081-1X087 REV.2540 870113.2009/IMG2_5*0/UTILS/DBLO4.PAS ?  PAS.SEGMENTRTN  @GIfEEXZ 1DBLOD_SEG4_LIBRA92081-1X088 REV.5000 870113.2009 /IMG2_5*0/UTILS/LOAD4.PAS E@DDXHZ 1BKP.READVOLHDR92081-1X088 REV.5000 870113.2009 /IMG2_5*0/UTILS/LOAD4.PAS DtBKP.READVOLHDR6 == 5.CBT.ENTR .MBTBKP.READBUFFERBKP.REPORTERROR DBCMW PAS.1 PAS.BLANKFILL PAS.NONCDS=KKpY`"pXh6`6h6`6A"WV((T "A'"(-,Մ(T 4рh6`6A(>(R(Rh6A`6(K(GJ(TpK `XP"(RQ(TpY t<T`Y 11qA`pY(@ b"Z"DBUNLOADDBUNLOAD25401  @f EEXBZ 1DBLOD.PRINTCHARS92081-1X088 REV.5000 870113.2009 /IMG2_5*0/UTILS/LOAD4.PAS E?;DBLOD.PRINTCHARSyW.ENTR .LBTPAS.1 PAS.NONCDSff;558p7h?6Hp6`6A@@(`AA@6(`@9(`69h?H6 p6`6A@@(0`AA@6(3`@:(5`6:f 35; f<A8(7 @ ~ @ J) DDXJZ 1DBLOD.DISPDATA92081-1X088 REV.5000 870113.2009 /IMG2_5*0/UTILS/LOAD4.PAS De&DBLOD.DISPDATA LL Y].ENTR .MPY .SBTDBLOD.PRINTCHARSIMG.APPENDSTR IMG.OCTALTOSSTR IMG.WRITLONGSTR PAS.1 PAS.BLANKFILL PAS.NONCDSLKKp`͆A@τA( 0912`Hpp`͆A@τ((`@@I@7p'(/A /0;343 :050A4>`p88(h86HF`EH `@HK??p`Gp`Hpp`A@τ(_`Dp`Dp(i`@@I@7p#i#h86@H`H h86`@IH`H `@@pǀ`p8̈8(R`Hpp@AB@Amm ;;@Ih86H`D 88(((`pˈ`PC((A 0602((Ap( 0602(À(pm u`Ѩ& --b'A$$pЈ%p`@pр(: " : ......-@  *:<@DDXeZ 1DBLOD.LOADDATA92081-1X088 REV.5000 870113.2009 /IMG2_5*0/UTILS/LOAD4.PAS D]DBLOD.LOADDATA jj .ENTR .MBTBKP.READDATABFR BKP.REPORTERROR DBLOD.DISPDATADBPUT IMG.APPNDBANDS IMG.NLSBLANKIMG.WRITLONGSTR MLOAD4 NLREADREL PAS.1 PAS.BLANKFILL PAS.NONCDSj~~ >>h6`6A  ppp`(`(>p((p`(#p(` +(>`p@(;p`p`@@hH@p8(/`@p~r>AA` +(`(P`@pO +$ + +E(]`@p[ +$ + +E +p` +EA(c +E j p pAw , { LL$$((A +((` +(p(`@ +p`@p`A@(p( pL u` ""A `p(  " #"* " `(@ @ODBRST.REL::IMAGE2:5:21:128 644 0 0 12400 5300466400 33064 DBRST.REL::IMAGE2_6000:5:21:128 $ DBRST REL +m+m+m !E֬FST DDXZSPAS.GLOBALINFO92081-16760 REV.5000 870223.1624 /IMG2_5*0/UTILS/RSTMN.PAS D@ EEXcF ZSPAS.ERRORCATCHER92081-16760 REV.5000 870223.1624 /IMG2_5*0/UTILS/RSTMN.PAS E9PAS.ERRORCATCHERBKP.REPORTERROR PAS.1 PAS.200 PAS.NONCDS eA(  28(a @??XU,((ZSDBRST 92081-16760 REV.5000 870223.1624/IMG2_5*0/UTILS/RSTMN.PAS ?((@DBRST qPAS.1 fPAS.2 YPAS.200 ^PAS.STOP(aa wDBBUF DBRST.INITIALIZEDBRST.RESTORDATADBRST.TERMINATE EXEC PAS.INITIALIZE PAS.INITMEMINFO1PAS.NONCDSPAS.SEGMENTLOAD PAS.TOPOFSTACK1 PAS.TRACECLOSEa11|@ Ed GILfAN(Q(YTiAV(Y(Y\lA^1 ^ a raAdeDBRS1 DBRS2 DBRS2  @@^@??X1Z/'1DBRS1 92081-1X038 REV.2440 870113.1947/IMG2_5*0/UTILS/DBRS1.PAS ?  PAS.SEGMENTRTN  @wCEEXuZ11DBRST_SEG1_LIBRA92081-1X049 REV.2540 870113.1947 /IMG2_5*0/UTILS/RSTR1.PAS E@WuEEXc?Z11DBRST.INITIALIZE92081-1X049 REV.2540 870113.1947 /IMG2_5*0/UTILS/RSTR1.PAS Eo*DBRST.INITIALIZE ++K.ENTR .MBTBKP.PARSEPARAMS PAS.1 PAS.BLANKFILL PAS.NONCDS+:: p!p"^A( (061"2h46`56A3p"p"p!: s-`!* $$+A*`>p!(  @"!DBSTORE 2540$ > @'??X-Z1!1DBRS2 92081-1X039 REV.2440 870113.1949/IMG2_5*0/UTILS/DBRS2.PAS ?  PAS.SEGMENTRTN  @|?EEXnZ3 1DBRST_SEG2_LIBRA92081-1X050 REV.5000 870113.1949 /IMG2_5*0/UTILS/RSTR2.PAS E@P#nEEXBI`Z3 1DBRST.BACKUPINDS92081-1X050 REV.5000 870113.1949 /IMG2_5*0/UTILS/RSTR2.PAS EUMDBRST.BACKUPINDS TT <.DLD.DST .ENTR .MBT .MVWBKP.REPORTERROR IMG.CLOSEFILE IMG.OPENROOTF IMG.READROOTHDR IMG.WRITROOTHDR PAS.1 PAS.NONCDST1@@ApL !K( A K(IA ! +K(K(IhU`V SJ` "p + "J +hW6A`X6 ThY6`Z6 T` ,^p ,` ,A_p ,; ! +K(A@K@ (IE !K(GpL sI`LM ''N A M`]pL ( +ܪ " + " + "' a] @9/WEEXgZ3!1DBRST.RESTORDATA92081-1X050 REV.5000 870113.1949 /IMG2_5*0/UTILS/RSTR2.PAS EzDBRST.RESTORDATA {{.CBT.ENTR .MBT.MVW BKP.CLSETAPEREADBKP.OPENTAPEREAD BKP.READDATABFR BKP.READFILEHDR BKP.REPORTERROR DBRST.BACKUPINDS IMG.CLOSEFILE IMG.NOPROTECTION IMG.OPENEXIST IMG.OPENFILEW IMG.OPSY{44IMG.PURGEFILE IMG.TYPE1OPEN IMG.WRITEBUFFER PAS.1 PAS.BLANKFILL PAS.NONCDS47HHAp((h6A`6(+("`6Ah6(+('*(`"Ap 2!(5(pp`(pp`(IA F(IHFF(h6`6`"X(]W+%(\\(n a+%(d(nA h+%A(jmA(r+%(A x+%A(~+%(A(AP((+%SDD(p`( ((`((h6`6(((ph `p(`A@p+%##A((( +%((88(A 1 A((((p uz` ;;A`p( @""P+%"h ""`FILEHEAD2540 ;  @<DDX.$Z3"1DBRST.TERMINATE 92081-1X050 REV.5000 870113.1949/IMG2_5*0/UTILS/RSTR2.PAS DCDBRST.TERMINATE &&HBKP.CLOSEFILESBKP.REPORTERROR PAS.1 PAS.NONCDSPRTN&// A `"_p`#p`"p`!@ 8A8( /  8( " @aDBSTR.REL::IMAGE2:5:45:128 644 0 0 26400 5300466402 33440 DBSTR.REL::IMAGE2_6000:5:45:128 $- -DBSTR REL +m+m+m-2FST DDXCZ4%&SPAS.GLOBALINFO92081-16765 REV.5000 870414.1835 /IMG2_5*0/UTILS/STRMN.PAS D@$GCEEXm Z4%'SPAS.ERRORCATCHER92081-16765 REV.5000 870414.1835 /IMG2_5*0/UTILS/STRMN.PAS E9PAS.ERRORCATCHER++yBKP.REPORTERROR PAS.1 PAS.200 PAS.300 PAS.400 PAS.NONCDS+ eA(  28(a @EEXKZ4%(SDBSTR.GETSETINFO92081-16765 REV.5000 870414.1835 /IMG2_5*0/UTILS/STRMN.PAS E\9DBSTR.GETSETINFO VV/ .DDI .DIN.DST .ENTR .MPYBKP.REPORTERROR DBADR IMG.BLOCKIO PAS.1 PAS.200 PAS.300 PAS.400 PAS.NONCDSPAS.SINGLEMOD VRR6..p3@2AJ@ ,p1h1 AD A 41BCp1D !4E ,W0(%$0(.`F@1p6A,68p3R s_.`39 : A 77p2`Ip3( ,W 6I( @t??X.-Z4%)SDBSTR 92081-16765 REV.5000 870414.1835/IMG2_5*0/UTILS/STRMN.PAS ?88f@DBSTR |PAS.1 nPAS.2 aPAS.200 YPAS.300 QPAS.400 fPAS.STOP8ii *ADBBUF DBSTR.INITIALIZEDBSTR.STOREDATA DBSTR.TERMINATE DBSTR.VERIFY EXEC PAS.INITIALIZE PAS.INITMEMINFO1PAS.NONCDSPAS.SEGMENTLOAD PAS.TOPOFSTACK1 PAS.TRACECLOSEi==@&& El GILnAN(Q(aTqAV(Y(a\tA^(a(adwAf= f i ##?iA lmDBST1 DBST2 DBST3 DBST 3  #@\{@??XZ4%6SDBST1 92081-1X040 REV.2440 870414.1837/IMG2_5*0/UTILS/DBST1.PAS ?  PAS.SEGMENTRTN  @EEXmZ4(SDBSTR_SEG1_LIBRA92081-1X051 REV.2540 870414.1837 /IMG2_5*0/UTILS/STOR1.PAS E@qmEEXZ4(SDBSTR.GETNUMSETS92081-1X051 REV.2540 870414.1837 /IMG2_5*0/UTILS/STOR1.PAS EDBSTR.GETNUMSETS ((.ENTR BKP.REPORTERROR IMG.READROOTHDR PAS.1 PAS.NONCDS())!Ap!+(  (`,p+$p) r` A`p(  @?EEXjZ4(SDBSTR.HIGHESTLEV92081-1X051 REV.2540 870414.1837 /IMG2_5*0/UTILS/STOR1.PAS EZDBSTR.HIGHESTLEV EE ;.CBT.DST .ENTR .MPYBKP.REPORTERROR IMG.BLOCKIO IMG.READROOTHDR PAS.1 PAS.BLANKFILL PAS.NONCDSEIIApv!+s(  s(ph, w !w ys(! s(ppupt`pApr`r@6p 6   h6`(@(>pt`r@p L JJII''`6h6(V(Z(Zpupt8r8()`t(dc(p`uA(n n   "PpvJ tp`v #A `pv( v"P  @ݯEEX Z4( SDBSTR.INITIALIZE92081-1X051 REV.2540 870414.1837 /IMG2_5*0/UTILS/STOR1.PAS En DBSTR.INITIALIZE; }}~.DAD.DIV.DLD.DST.ENTR .LBT.MBT.MPY.SBTBKP.PARSEPARAMS BKP.REPORTERROR BKP.SPACENEEDED DBSTR.GETNUMSETSDBSTR.GETSETINFODBSTR.HIGHESTLEV DRMNT FMPSIZE GETCL IMG.CLOSEFILE }__ dIMG.GETCOMMBUFIMG.GETDBCONNAME IMG.LCLXCHGMESG IMG.OPENEXIST IMG.OPENROOTF IMG.READDBCON PAS.1 PAS.BLANKFILL PAS.NONCDS RETCL STRDSCTMDAY _HH pTp"^A( (L !R(R(L((LA((L`+$(Lp pS)SO(,(LA 1O  U` AS@ p ` p ?UpR`R(GFR(L` U5HHH 8S8 (%AO@, A pN` N@AJ "ZAA  J"Z JA"\q " h 6` 6 ((A  " ` p pSh 6@SHHh 6p @SH` JJH8S8 ( `+$p"p"A"  (Aw( ӄ(LwR(R(Lw aR(AR(LAJk"Aw  aR(R(L`ap"h 6` 6 LLh 6` 6A wRA((J!R(A Q A(A (LW( (L`Qp)p*`Xp+`\p,` p-h 6` 6 A ) )P RA( R(L`.('&.GGä&&&(L3"`5p"h 6` 6 h 6A` 6  >QA(@D!R(JAIR(LpTG *L`T mmO5 EEA ` pT(@@  ;"!"P"""b.6>DBSTORE 2540QUERY DBMON DBSPL DBCLN DBUTL DBRBR DBRFR DBSTR DBRST DBULD DBLOD m z@@Xw??XZ4(SDBST2 92081-1X041 REV.2440 870414.1840/IMG2_5*0/UTILS/DBST2.PAS ?  PAS.SEGMENTRTN  @νEEXqZ4*SDBSTR_SEG2_LIBRA92081-1X052 REV.2540 870414.1840 /IMG2_5*0/UTILS/STOR2.PAS E@vqEEXXZ4*SDBSTR.COPYTOSTOR92081-1X052 REV.2540 870414.1840 /IMG2_5*0/UTILS/STOR2.PAS EvHDBSTR.COPYTOSTOR ;;v.DIV.ENTR BKP.REPORTERROR BKP.WRITEDATABFRFMPREAD FMPSETPOSITIONPAS.1 PAS.NONCDS;vv @@pEpD`G@VpF FCNP`C(AC(@`G@VpFFC##RpB`CPW("('pCpD(;`CA(.-C(@`B AUpB8B(;(@`D(pEv s@`EH ͇I AG`UpE( 1U" @DDXJZ4*SDBSTR.STOREDATA 92081-1X052 REV.2540 870414.1840/IMG2_5*0/UTILS/STOR2.PAS D6DBSTR.STOREDATA ]zz.DLD.DST .LBT.MBT.MVW BKP.OPENTAPEWRIT BKP.REPORTERROR BKP.WRITEDATABFRBKP.WRITEFILEHDRDBSTR.COPYTOSTOR DBSTR.GETSETINFOIMG.CLOSEFILE IMG.TYPE1OPEN PAS.1 PAS.BLANKFILL PAS.NONCDSzHHA ((  "` Ap " "h6`6h , J "`p "A&()(h6`6h6`6A>A # A !(D(` +$rHEE(ppA P(S(`ph6`6`@Â@6  hHĊp "`@@J "Ah`s(v(h6A`6 +%( ( +%((""@.A +%(88(L(("  ::U<8(  &@ 0 "h ! " " +%FILEHEAD2540DATAHEAD2540 : n "$ @&??XZ4*SDBST3 92081-1X042 REV.2440 870414.1842/IMG2_5*0/UTILS/DBST3.PAS ?  PAS.SEGMENTRTN  @–EEXZ4,#SDBSTR_SEG3_LIBRA92081-1X053 REV.5000 870414.1842 /IMG2_5*0/UTILS/STOR3.PAS E@y˜EEX!Z4,#SBKP.REWINDOFFLIN92081-1X053 REV.5000 870414.1842 /IMG2_5*0/UTILS/STOR3.PAS EKBKP.REWINDOFFLIN?PAS.1 PAS.NONCDSXLUEX 33 `!p`!P(P((A` p(`p(3  8( @ @ՉEEXk`Z4,$SDBSTR.BACKUPINDS92081-1X053 REV.5000 870414.1842 /IMG2_5*0/UTILS/STOR3.PAS ETMDBSTR.BACKUPINDS TT <.DLD.DST .ENTR .MBT .MVWBKP.REPORTERROR IMG.CLOSEFILE IMG.OPENROOTF IMG.READROOTHDR IMG.WRITROOTHDR PAS.1 PAS.NONCDST1@@ApL !K( A K(IA ! +K(K(IhU`V SJ` "p + "J +hW6A`X6 ThY6`Z6 T` ,^p ,` ,A_p ,; ! +K(A@K@ (IE !K(GpL sI`LM ''N A M`]pL ( +ܪ " + " + "' a] @aπCCXi xZ4,%SDBSTR.VERIFY92081-1X053 REV.5000 870414.1842 /IMG2_5*0/UTILS/STOR3.PAS C3 \DBSTR.VERIFY ||}.CBT.DIV.ENTR .MBT.MVWBKP.CHECKREADY BKP.CLSETAPEREADBKP.CLSETAPEWRITBKP.OPENTAPEREADBKP.READDATABFR BKP.READFILEHDR BKP.REPORTERROR BKP.REWINDOFFLINDBCMW DBSTR.BACKUPINDSFMPREAD |?? IMG.CLOSEFILE IMG.NLSBLANK IMG.TYPE1OPEN IMG.WRITLONGSTR MSTOR3 NLREADREL PAS.1 PAS.NONCDS?$UHHp`"Y(A( ( ((Ap(((A@"̄(< & b cp, cA 1(76(9(<( Ap"@(C(`"Ap JRHDD!(M(pp`(p [p`(aA^(a(h h6` i6 dA l+%(o(p`(Aw(z(`(~(h j6A` k6 e(((ppbbN66Ah l` k dA(+G[ f A wp[##( gA((q +%((88 [(YA ((A((pb }`Ψ \ 00 ]A \` wp΀(@ ^+%"h m""`FILEHEAD2540 0 ; w @S qDDXXe$Z4,&SDBSTR.TERMINATE 92081-1X053 REV.5000 870414.1842/IMG2_5*0/UTILS/STOR3.PAS DBDBSTR.TERMINATE &&HBKP.CLOSEFILESBKP.REPORTERROR PAS.1 PAS.NONCDSPRTN&// A `"_p`#p`"p`!@ 8A8( /  8( " @WDBSPA.REL::IMAGE2:5:34:128 644 0 0 21000 5300466403 33225 DBSPA.REL::IMAGE2_6000:5:34:128 $" "DBSPA REL +m+m+m"AFST DDXfc< SPAS.GLOBALINFO92081-16770 REV.5000 870501.1107 /IMG2_5*0/UTILS/DBSPA.MAC D@ئfDDXc< SDBSPA.TERMINATE 92081-16770 REV.5000 870501.1107/IMG2_5*0/UTILS/DBSPA.MAC D1DBSPA.TERMINATE NN [DBCLS IMG.CLOSEFILE IMG.NLSBLANKIMG.WRITLONGSTR MDBSPANLREADREL PAS.1 PAS.200 PAS.BLANKFILL PAS.NONCDSPRTNNrrT::A d:A  A A;(A  p A!  &  ;((A, ;A(.2 ;(4A` p<9<r58( @ҐPDDXc< SDBSPA.FATALERR92081-16770 REV.5000 870501.1107 /IMG2_5*0/UTILS/DBSPA.MAC DdzDBSPA.FATALERRRR  .ENTR IMG.NLSBLANKIMG.NLSTERM IMG.SINTTOSSTRIMG.STRINGMGR IMG.WRITLONGSTR MDBSPANLREADREL PAS.1 PAS.200 PAS.NONCDSRVV{..A`/p A/0 A0 xAA  80 p A%8 * 8.(,H( zVB{ A xyp/(@@Uet%CCX2c< SDBSPA.DBERROR 92081-16770 REV.5000 870501.1107/IMG2_5*0/UTILS/DBSPA.MAC CMDBSPA.DBERROR __ = .ENTR .MVWDBSPA.FATALERRIMG.NLSBLANKIMG.NLSTERM IMG.SINTTOSSTRIMG.WRITLONGSTR MDBSPANLREADREL PAS.1 PAS.200 PAS.BLANKFILL PAS.NONCDS___q44A` p A 5 A5 = 5}p A=       A% 4(., =4A(22H 4( _A `h A  ( @}@ )(DDX+2c< SDBSPA.RUNSTRING 92081-16770 REV.5000 870501.1107/IMG2_5*0/UTILS/DBSPA.MAC D@DBSPA.RUNSTRING x.MBTDBSPA.FATALERRIMG.CLOSEFILE IMG.DEFAULTFILE IMG.NLSBLANK IMG.OPENEXIST IMG.OPENFILEW IMG.OPENHANDLER IMG.READLONGSTR IMG.READSHORTSTRIMG.STRINGMGR IMG.WRITLONGSTR MDBSPANLREADREL PAS.1 ((PAS.200 PAS.BLANKFILL PAS.NONCDSPAS.PARAMETERSUPSHIFT (33uApA((  (`1pӨ3tdFF 8(pA #(%*^(/A/^6)A ;^(G`(GAD^(F(b`P/(K(N`/p(P`0pAS W(]]^LLa^(h&6`'6A m(ssx!^({(+ A^(`(`P-(`P.(`(A(^(A ^A(^(َGG^(h(6`'6A A(e("pA ա( (A(e##e@eWWVO++$ A(%Ap  A( (ա W--L(8(@ ^ROS ROS --@>CCXc< SDBSPA.OPENDB92081-16770 REV.5000 870501.1107 /IMG2_5*0/UTILS/DBSPA.MAC C(mDBSPA.OPENDBBB / .SBTDBINF DBOPN DBSPA.DBERROR MDBSPANLREADREL PAS.1 PAS.200 PAS.NONCDS PAS.RANGEINTEGERBL88 p`}pdA dp`P|A((dq p`(/ rs ph{6` tN@~H A/6dkv`ff822(O@ws ph{6` t]@~H AO`(iplpj`jA xd@zp`j xd@z8j8l(Wmf##n8m(2 #@DDX^c< SDBSPA.QUICKREP92081-16770 REV.5000 870501.1107 /IMG2_5*0/UTILS/DBSPA.MAC DCDBSPA.QUICKREP.DDI.DLD.DMP.DSB.DST.SBTDBINF DBSPA.DBERROR DBSPA.FATALERR IMG.APPNDBANDS IMG.LINTTOSSTRIMG.NLSBLANK IMG.SINTTOSSTR IMG.STRINGMGR IMG.WRITLONGSTR MDBSPA NLREADREL PAS.1 PAS.200 ''/PAS.BLANKFILL PAS.NONCDSPAS.RANGEDOUBLE PAS.RANGEINTEGER'ÕFFAGFGH A(A IAHpH$A(**`(p?Ap9GJGAH`K@[p@Fd@MgFGG`(` PNݡHph\ 6`G@]HA_A( dA hA pHOJPQJAAA zAA HOPRJASJAUWxCC=j''A A HOPYA A HOPZA(88?(2CC..JD8C(1 2 d '/.@ICCXc< SDBSPA.SLOWREP 92081-16770 REV.5000 870501.1107/IMG2_5*0/UTILS/DBSPA.MAC CQoDBSPA.SLOWREP ~~F.DCO.DIN.DLD.DSB.DST.SBTDBGET DBINF DBSPA.DBERROR DBSPA.FATALERRIFBRK IMG.APPENDSTR IMG.APPNDBANDSIMG.LINTTOSSTR IMG.NLSBLANK IMG.STRINGMGR IMG.WRITLONGSTR MDBSPA NLREADREL ~77PAS.1 PAS.200 PAS.BLANKFILL PAS.NONCDSPAS.RANGEDOUBLE PAS.RANGEINTEGER PNAME 7XEE`(B  rsp sAutu#s#A(%#()) 0vsp 6As;(AAA( I EMMwsp OAsVutu#s[#(dAb(hhoutuAx r yysp AsAuzucxc+HH(u{uA#s#( |sp As(`(pkp A`}F@pldl~~>>`( ݡsph 6`O@HAψP(((`}YA@pl dl`(+`P(* ~B??sph 6`c@HA)(*(4AAgѨ`P(8(`}nA@pl Edl`(^A Ospހh6`AwWOO@HA^eutuAsiAmA usxAyA sxJAAmAmA sxAJψ((( xp xPP((A( Axp x`p sx(AЈ88k(˨oPBBp**8o( '12 , 9 B@` ??Xc< SDBSPA 92081-16770 REV.5000 870501.1107/IMG2_5*0/UTILS/DBSPA.MAC ?!!@DBSPA XPAS.1 MPAS.200 OPAS.STOP!NN DBSPA.OPENDBDBSPA.QUICKREPDBSPA.RUNSTRING DBSPA.SLOWREP DBSPA.TERMINATE EXECPAS.INITIALIZEPAS.NONCDS PAS.TRACECLOSEN''Mu@EUGIKMOAA RU V'@eV@DBSPL.REL::IMAGE2:5:60:128 644 0 0 36000 5300466404 33120 DBSPL.REL::IMAGE2_6000:5:60:128 $< ,<DBSPL REL +m+m+m<FST DDX 21PAS.GLOBALINFO92081-16775 REV.5000 870113.2017 /IMG2_5*0/UTILS/DBSPL.MAC D@M EEX7j21DBSPL.INITIALIZE92081-16775 REV.5000 870113.2017 /IMG2_5*0/UTILS/DBSPL.MAC EHVDBSPL.INITIALIZEbb vIMG.GETCOMMBUFIMG.GETDBCONNAMEIMG.LCLSENDRQST IMG.OPENEXIST IMG.READDBCON PAS.1 PAS.200 PAS.3 PAS.300 PAS.ENTRY1 PAS.EXIT1 PAS.NONCDSRMPAR bt==AQ`RpNpO L_KD((  (H( `QP (H( `gp !p `fp " ('D`hp !( +  !(0`ip !( A7 `a !(<`ip !(  t= p !` Pe(B(Dp !([VH !!^+WA EV(A EVVDBSPL 'dX!@!CCX,2 1DBSPL.RCVMSG92081-16775 REV.5000 870113.2017 /IMG2_5*0/UTILS/DBSPL.MAC C DBSPL.RCVMSG 77%IMG.LCLGETMESGPAS.1 PAS.200 PAS.3 PAS.300 PAS.ENTRY1PAS.EXIT1 PAS.NONCDS7//ZCAp '  (((p( /!!{A`+p(`p)A`) ! + @QpCCXJ2 1DBSPL.SNDMSG92081-16775 REV.5000 870113.2017 /IMG2_5*0/UTILS/DBSPL.MAC C-0DBSPL.SNDMSG @@ k.DLD.DSTIMG.LCLSENDRQST PAS.1 PAS.200 PAS.3 PAS.300 PAS.ENTRY1 PAS.EXIT1 PAS.NONCDS@WW5%%p*`p `p `p p `)pA`(p+JJ!GJA F'(( p*(? -$W..q1A !0-p).p(/+`Ip*(`*pGA !0`G0 . I @$eC%EEXV/2 1SET_RFL_CORRUPT_92081-16775 REV.5000 870113.2017 /IMG2_5*0/UTILS/DBSPL.MAC Eh$#SET_RFL_CORRUPT_@@ wIMG.READDBCON IMG.WRITEDBCONPAS.1 PAS.200 PAS.3 PAS.300 PAS.ENTRY1 PAS.EXIT1 PAS.NONCDS@CCA,, !( `."(` 0-p ,, !(`."(("Cq*$ A#(A ##X@ DEEX 32 1CHECK_IMAGE_STAT92081-16775 REV.5000 870113.2017 /IMG2_5*0/UTILS/DBSPL.MAC E$CHECK_IMAGE_STAT77pIMG.READDBCON PAS.1 PAS.200 PAS.3 PAS.300 PAS.ENTRY1PAS.EXIT1 PAS.NONCDS7BB" A-. "( `1#(` A@0(` */(`2#()#Bt%A$(A$$Xq@0DDXa52 1DEVICE_CONTROL92081-16775 REV.5000 870113.2017 /IMG2_5*0/UTILS/DBSPL.MAC D2!DEVICE_CONTROL 33hDBIOC PAS.1 PAS.200 PAS.3 PAS.300 PAS.ENTRY1PAS.EXIT1 PAS.NONCDS300 `@4p  p (p(p(* 0##"A!p`3p(A`p1!`1!# 3" @L EEXW22(( 1RFL_FIND_END_OF_92081-16775 REV.5000 870113.2017 /IMG2_5*0/UTILS/DBSPL.MAC ERFL_FIND_END_OF_ 77FDEVICE_CONTROLPAS.1 PAS.200 PAS.3 PAS.300 PAS.ENTRY1PAS.EXIT1 PAS.NONCDS7..oAp-A( (.((p(&.!!| A`1p(`p/A`/ ! 1 @5%AAXO{"2 1WAIT_LOOP 92081-16775 REV.5000 870113.2017/IMG2_5*0/UTILS/DBSPL.MAC AWAIT_LOOP 55IMG.SLEEP PAS.1 PAS.200 PAS.3 PAS.300 PAS.ENTRY1PAS.EXIT1 PAS.NONCDS511A!`!@ p!`!A @!(`!p!(1_ A(Adp@r2EEX?I2 1TRY_REQUEST_AGAI92081-16775 REV.5000 870113.2017 /IMG2_5*0/UTILS/DBSPL.MAC EP:TRY_REQUEST_AGAIPP hCHECK_IMAGE_STATDBSPL.SNDMSGDEVICE_CONTROL PAS.1 PAS.200 PAS.3 PAS.300 PAS.ENTRY1 PAS.EXIT1 PAS.NONCDSWAIT_LOOP PjjM448p6`68(($`6($ 8Ep !E`Hp !6`68A((! 76p !E(#p !(`688(/.GEEp !E(A83j9;A 0:9Ap7( 0::p@EEEX)2 1RFL_LABEL_CREATE92081-16775 REV.5000 870113.2017 /IMG2_5*0/UTILS/DBSPL.MAC EXRFL_LABEL_CREATE6 {{݀.DDE.DLD.DST.MBT.MVWDEVICE_CONTROL IMG.BLOCKIO IMG.ISTAPEFILEIMG.RDHISTENTRY IMG.READDBCON IMG.WRITEDBCONIMG.WTHISTENTRY PAS.1 PAS.200 PAS.3 PAS.300 PAS.ENTRY1PAS.EXIT1 {PAS.NONCDSTRY_REQUEST_AGAI~~XDDp`pÈ`p`À`p`6hH6`@6hÀAH6`@Ĉ`@6hH6`@p`@hƈ@HpDh`~~~&DHHAh` LA(iS݁(]Y(]( e(h((h`A vفÁ(P(|(`(`ȈA@p؁(`~kk44 (p׈`@p؁á(`( ء (`(p  (`ɀ(p( k007A`爈p(`pA`@C 0Y   );=PX @|<CCX21RFL_CHUNK_IO92081-16775 REV.5000 870113.2017 /IMG2_5*0/UTILS/DBSPL.MAC CsRFL_CHUNK_IO }}4.DAD.DCO.DLD.DSB.DST.MVWCHECK_IMAGE_STATDBSPL.SNDMSGGET_NEW_ROLL_FOR IMG.BLOCKIO IMG.ENDTIME IMG.ISTAPEFILE IMG.STARTTIME PAS.1 PAS.200 PAS.3 PAS.300 PAS.ENTRY1PAS.EXIT1 }aPAS.NONCDSSET_RFL_CORRUPT_WAIT_LOOP AArP((@A  p!EpL`L(<`p!rrP ((p!pL`L(;r %!G /pgomr(1 4!GJ!Gr(;pL( r(@(V(SA NImopqrOGGAAN(AANNpbp_A ^pp]`](ropa@a @m@`(topa`](`q@pjha j((`Ar( JA!G pgamr(r(??rP((ANp!EAp^ p(rP(P((p_`r(p_(rP((p_`rrP(Ä( p!Ér`_( rp!EvJJA܁pq`r((V`]( p(@apa(`]( p(`apa@a @mA@``q@g  !G pgamr(N(A !G!G($iiF<`B@Sp@ @>ABD((7 Ap A('#PAQRBD(&(7(2,ARD(2DA(2(76ADp !E(L A;k"FA 8ECAp?( 8EE;@BEEXa?21GET_NEW_ROLL_FOR92081-16775 REV.5000 870113.2017 /IMG2_5*0/UTILS/DBSPL.MAC E GET_NEW_ROLL_FOR ||[=.CBT.MBTCHECK_IMAGE_STATDBSPL.SNDMSG IMG.CLOSEFILE IMG.OPENNOEXTEND IMG.RDHISTENTRY IMG.READDBCON IMG.WRITEDBCONIMG.WTHISTENTRY PAS.1 PAS.200 PAS.3 PAS.300 PAS.BLANKFILL PAS.ENTRY1|..'PAS.EXIT1 PAS.NONCDSRFL_ENDLOGRFL_LABEL_CREATETMDAY WAIT_LOOP .-DDApd #$n(`pz ((n((X((XOGG`e((P;(((A p!E((Xp_ #$n((Xh6`/6&A $(`_A(ǡ +(p!EAp_AςP=((KK(X(p```( #(n((X`npc`cpnh06A`/6&ph16`26A,$%$&$%$,h36`16A,p #(n(`<(X"vvʦ??n(%(X ,(c(1`<(X4h46A`6&h56`36, ApK(c(P`<(XpdAW -(p!E(\v??""AYpe`8pd(A`dp6Y`6 @KQiwf?b8KMXq@CDDXB21RFL_CONTINUELOG 92081-16775 REV.5000 870113.2017/IMG2_5*0/UTILS/DBSPL.MAC DDRFL_CONTINUELOG 9g.CBT.MBTDEVICE_CONTROLGET_NEW_ROLL_FOR IMG.BLOCKIO IMG.ISTAPEFILE IMG.OPENEXIST IMG.OPENNOEXTENDIMG.READDBCON PAS.1 PAS.200 PAS.3 PAS.300 PAS.ENTRY1PAS.EXIT1 PAS.NONCDSRFL_FIND_END_OF_RFL_LABEL_CREATETRY_REQUEST_AGAIHHA ( `(h6`6Aр(`Ɗ(` (.A& Ā(+`(Ap ( 1(? ;ррĀ(>((_DՀA(NJH@@A(N( VрĀ(_P(\(^`(ĈP(e`ƈ(`p`ˆ@P (m(`@6Ah6(x((`@6h6((`Ƅ( ee8:77A(À(P((AÀ!F((((A (`(h6`6A ŀ((( e55`A(AǨ@   JMPTUX 5@=c\#BBXk21SPOOL_CHUNK 92081-16775 REV.5000 870113.2017/IMG2_5*0/UTILS/DBSPL.MAC B@SPOOL_CHUNK kNN .DIN.DLD .DSB.DSTIMG.BLOCKIO PAS.1 PAS.200 PAS.3 PAS.300 PAS.ENTRY1 PAS.EXIT1 PAS.NONCDSRFL_CHUNK_ION??J  ` ( `J( AJ JH  xJA `()` p`A@(,`(` @@p` A@(M`@p`@p.?BBAG (J( p (Op ! @ @p`(g`p !(` @p ` !(`@px ({( p p !AJ ( A (A   ;V@6UuDDX 121TERMINATE_DBSPL 92081-16775 REV.5000 870113.2017/IMG2_5*0/UTILS/DBSPL.MAC D<&TERMINATE_DBSPL >> IMG.CLOSEFILE PAS.1 PAS.200 PAS.3 PAS.300 PAS.ENTRY1 PAS.EXIT1 PAS.NONCDSRFL_ENDLOG>;;s/%P0(( `!(  "#/ $A p! p!p (+ ";oM' A&(A &&q((@4??X"Y21DBSPL 92081-16775 REV.5000 870113.2017/IMG2_5*0/UTILS/DBSPL.MAC ?00DBSPL PAS.1 pPAS.200 }PAS.3 qPAS.300 qPAS.STOP0ll aDBSPL.INITIALIZEDBSPL.RCVMSGDBSPL.SNDMSG DTACH EXEC PAS.INITIALIZE PAS.INITMEMINFO1PAS.NONCDS PAS.TRACECLOSERFL_CONTINUELOG RFL_ENDLOGSPOOL_CHUNK TERMINATE_DBSPL lHH w p"p"  "M`"(qp""((pp"`P"U('P"V(0P"W(@P"X(K(W`"Pp /!O +"(XA`"Rp 8 +!O"`"(?p"p" (XA`"Qp H +x" HTTp" (X`"Sp `"Tp"U +!O"(q(X(p`"(a` ""p"L`"(pAj +A!O"o yzp"LA( tA w|qA``g +BIF +TLF +RL "P qW@-DBULD.REL::IMAGE2:5:29:128 644 0 0 16400 5300466405 32661 DBULD.REL::IMAGE2_6000:5:29:128 $ hDBULD REL +m+m+m"eVFST DDXZF,SPAS.GLOBALINFO92081-16780 REV.5000 870520.0705 /IMG2_5*0/UTILS/ULDMN.PAS D@<EEXkc ZF.SPAS.ERRORCATCHER92081-16780 REV.5000 870520.0705 /IMG2_5*0/UTILS/ULDMN.PAS E9PAS.ERRORCATCHERBKP.REPORTERROR PAS.1 PAS.200 PAS.NONCDS eA(  28(a @;??X,DZF.SDBULD 92081-16780 REV.5000 870520.0705/IMG2_5*0/UTILS/ULDMN.PAS ?((@DBULD PAS.1 PAS.2 PAS.200 PAS.STOP(}}DBBUF DBULD.INITIALIZ1DBULD.INITIALIZ2DBULD.OPENSTORAGDBULD.PROCESSHDRDBULD.TERMINATE DBULD.UNLOADDATA EXEC PAS.IMAGE1 PAS.INITIALIZEPAS.INITMEMINFO1PAS.NONCDS PAS.SEGMENTLOAD PAS.TOPOFSTACK1 } PAS.TRACECLOSE zz,@JJ EG AJLA OQ(T(A WY(\(A _a(d(`+(p,Cp,+`@,+A(r( uwA(z( }((8,+8,C(l Az  --jzA |+DBUL1 DBUL2 DBUL3 DBUL3 DBUL4 DBUL 1 -@-RK@??X&Z5-1DBUL1 92081-1X043 REV.2440 870113.1953/IMG2_5*0/UTILS/DBUL1.PAS ?  PAS.SEGMENTRTN  @8EEXiZ71DBULD_SEG1_LIBRA92081-1X058 REV.2540 870113.1953 /IMG2_5*0/UTILS/UNLD1.PAS E@KiEEXWnZ71DBULD.INITIALIZ192081-1X058 REV.2540 870113.1953 /IMG2_5*0/UTILS/UNLD1.PAS EbDBULD.INITIALIZ1H X.ENTR BKP.PARSEPARAMS PAS.1 PAS.NONCDSG p`p"^A( ( p s ` A`p(  @#!DDX),Z71DBULD.TERMINATE 92081-1X058 REV.2540 870113.1953/IMG2_5*0/UTILS/UNLD1.PAS D6%DBULD.TERMINATE 88cBKP.CLOSEDB BKP.CLOSEFILESBKP.CLSETAPEWRITBKP.REPORTERROR PAS.1 PAS.NONCDSPRTN8>>A(+$+E (  `"_p`+p$`*p`)@ 8A8$(> % 1&8%( * @Qo??X&Z7+1DBUL2 92081-1X044 REV.2440 870113.1955/IMG2_5*0/UTILS/DBUL2.PAS ?  PAS.SEGMENTRTN  @8EEXmZ91DBULD_SEG2_LIBRA92081-1X059 REV.2540 870113.1955 /IMG2_5*0/UTILS/UNLD2.PAS E@OmEEX\;Z91DBULD.INITIALIZ292081-1X059 REV.2540 870113.1955 /IMG2_5*0/UTILS/UNLD2.PAS EbjDBULD.INITIALIZ2 ]]W .DCO.DLD.DST .ENTR .LBT.MBT.MPYBKP.OPENDATABASE BKP.REPORTERROR BKP.SPACENEEDED DBINF PAS.1 PAS.BLANKFILL PAS.NONCDSTMDAY ]==Ap +$p +EA( ( +$q +E +O` +E(A  +E(` +O(+php`|@h|H88h( p` +O(xphp`|@piA? +$ir5s=DD +E` +E(F E +EA(`@}pgh~6H P(U (c`|@ g`gpi i(u`g`gpii s(u(u`p88h(5J{ "Z ( hheD99u(  "\vw "xh6A`6yvzv "{ `p "p "A "  "p "vzv "xAvzv "xph u`j 33LkA j`p( @  +OȪ " !DBUNLOAD25403 A @n.??X,Z9*1DBUL3 92081-1X083 REV.2540 870113.1957/IMG2_5*0/UTILS/DBUL3.PAS ?  PAS.SEGMENTRTN  @>EEXiZ;1DBULD_SEG3_LIBRA92081-1X082 REV.2540 870113.1957 /IMG2_5*0/UTILS/UNLD3.PAS E@K iEEXM2Z;1DBULD.OPENSTORAG92081-1X082 REV.2540 870113.1957 /IMG2_5*0/UTILS/UNLD3.PAS EXDBULD.OPENSTORAG ++r.ENTR .MBTBKP.OPENTAPEWRITPAS.1 PAS.BLANKFILL PAS.NONCDS+11›ph&6A`'6" A((#)$"`%p"p1 s` ##vA`1p( +(@ FILEHEAD2540# 1 @IhnEEXQOyZ;1DBULD.PROCESSHDR92081-1X082 REV.2540 870113.1957 /IMG2_5*0/UTILS/UNLD3.PAS E\_DBULD.PROCESSHDR FF ~U.DLD.DST.ENTR .LBT .SBTBKP.REPORTERROR BKP.WRITEFILEHDRDBINF PAS.1 PAS.BLANKFILL PAS.NONCDSF=;;p\`k@+Ap+ +$+e+E+`+E(A+E(Y`xp]p[hl6@[H hm6p^@[H`^ 8[8](`+p"+"1(4(YA ;fog"h>>;`xp]p[hl6@[H hn6p^@[H`^ 8[8](? Wfif# jp\> sY`\_ --o`A_`wp\(  0+O+"h"DATAHEAD2540- 6w @":??X+Z;'1DBUL4 92081-1X089 REV.2540 870113.1959/IMG2_5*0/UTILS/DBUL4.PAS ?  PAS.SEGMENTRTN  @=EEX.Z1DBULD_SEG4_LIBRA92081-1X090 REV.2540 870113.1959 /IMG2_5*0/UTILS/UNLD4.PAS E@ .EEX+tZ1DBULD.UNLOADDATA92081-1X090 REV.2540 870113.1959 /IMG2_5*0/UTILS/UNLD4.PAS E[cDBULD.UNLOADDATA --.ENTR BKP.REPORTERROR BKP.WRITEDATABFRDBGET PAS.1 PAS.NONCDS-e99 pap+# Ap++$+i+Ej+k`+EA(+E(_`+(M`+#@+p`sA@(,A'+# (*(_p+#`+#@npbA9+$+m+E+bjYY9&&`+EPr(=(B p+p+E(L`+E(IAH+E(_`+#@+p+#(`+#(Q(WAT+#A(W(_Zj(](_paY s_`ac d Ac`qpa(#" Cq  @VDBCLN.REL::IMAGE2:5:17:128 644 0 0 10400 5300466407 32544 DBCLN.REL::IMAGE2_6000:5:17:128 $ DBCLN REL +m+m+m*vFST ((DDX4SPAS.GLOBALINFO92081-16830 REV.5000 870414.1627 /IMG2_5*0/UTILS/DBCLN.MAC D@BBXbn4SDBCLN.INIT92081-16830 REV.5000 870414.1627 /IMG2_5*0/UTILS/DBCLN.MAC BJBDBCLN.INITDD PGETST IMG.GETCOMMBUFIMG.LCLSENDRQST PAS.1 PAS.2 PAS.200 PAS.BLANKFILL PAS.NONCDSREIORMPAR DRR,,A38E,`4p0p1A.G ((A (' HI JA&KHH L(`3HP (+(BR??C++8B( :<QUERY DBMON DBSPL DBCLN DBUTL DBRBR DBRFR DBSTR DBRST DBULD DBLOD ?@_~CCX_4SDBCLN.RCVMSG92081-16830 REV.5000 870414.1627 /IMG2_5*0/UTILS/DBCLN.MAC CDBCLN.RCVMSG##$@IMG.LCLGETMESGPAS.1 PAS.2 PAS.200 PAS.NONCDS#44jA    ( p` p ` p 4A8(U@ߜEEX4 34SDBCLN.CHECKLOCAL92081-16830 REV.5000 870414.1627 /IMG2_5*0/UTILS/DBCLN.MAC E+DBCLN.CHECKLOCAL##y.MPYDRMNT PAS.1 PAS.2 PAS.200 PAS.NONCDS#RRs=''`(&p)p'`0'@.p(`(p*A*((`(@/@02(#`(@/@18'8)(+R,8+( @EEX:2@4SDBCLN.CHECKREMOT92081-16830 REV.5000 870414.1627 /IMG2_5*0/UTILS/DBCLN.MAC E -DBCLN.CHECKREMOTCC J .MBT.MPY PAS.1 PAS.2 PAS.200 PAS.BLANKFILL PAS.NONCDSRDCMP REIORMCHK RMCLN RMSER CCCp` (wp)p`<@6p&`&Ap**(p`&p*`&@9p+`&@:p,A%*+,(((`&@:p*`&A@9p+3*+(C <0m1 2AB30 4(WC??h,`P?(J(i`p` @7p'`&@96Ah'6 5`'@8h&H:`&@;@0>(o`&@;@=(t`&@: 88)( `(p&p` &&@7p(`(@8p'(' 88&(-&"".8-((<  "@gCCX}(4SDBCLN.SNDMSG92081-16830 REV.5000 870414.1627 /IMG2_5*0/UTILS/DBCLN.MAC C&DBCLN.SNDMSG11IMG.LCLSENDRQST PAS.1 PAS.2 PAS.200 PAS.BLANKFILL PAS.NONCDSREIO1OOw`p `p ` p ` pA`'p   ("# $A%" &O 8(2<u@O;??X 4SDBCLN 92081-16830 REV.5000 870414.1627/IMG2_5*0/UTILS/DBCLN.MAC ?((DBCLN PAS.1 <PAS.2 .PAS.200 /PAS.STOP(]] 7DBCLN.CHECKLOCALDBCLN.CHECKREMOTDBCLN.INITDBCLN.RCVMSGDBCLN.SNDMSGDTACH EXEC PAS.BLANKFILL PAS.INITIALIZEPAS.NONCDS PAS.TRACECLOSEREIO]8VV 5p b`(/`P (P ((!(.p(. (67 e8A.96 e:( AA 2 5;6<IMAGE ERROR! DBCLN COULD NOT COMMUNICATE TO DBMONIM:V``AGE ERROR! DBCLN COULD NOT OBTAIN COMMUNICATIONS BUFFERIMAGE ERROR! DBCLN DISCOVERED CORRUPT IMAGE COMM BUFFERIMAGE ERROR! DBCLN RECEIVED ILLEGAL MESSAGE (IGNORED)IMAGE ERROR! DBCLN ENCOUNzTERED DS ERROR    @RDBAM.REL::IMAGE2:5:11:128 644 0 0 5400 5300466410 32651 RDBAM.REL::IMAGE2_6000:5:11:128 $  RDBAM REL +m+m+m t׊FST ;;X K SRDBAM 92081-16880 REV.5000 <870212.1409>/IMG2_5*0/REMOTE/RDBAM.MAC; T*RDBAM jjɬ#GETR #LOGR #OFF#PLOG #RQUE .CMW.DIV.DST.ENTR .MPY .MVWCLOSE DTACH EXECIDGET IDRPD IDRPL IMG.OPSYOPEN RD.TB RDEXT RMPAR j#HH# A .A13x[ph+0(EA+HE+`  (hx_ (hx` xdpb (cZ(^[(`8_(h8d`b@%8`(Tp~~kDDp*s#&W(`px]` (`(((([((((h8 (fHp`  (x_ (x` xdpb ((~&@@[(PV(̀8_(8d`b@%8`(((A@ %Hh HU@pb8(y` @$(^@#(^(/ہ&(e(`*(;`b@(p(h+`c(exeff(88H`cpd @T %h HU@pbp`& V` `eA V`%Ax [&&(`X(`0Y &(`8 (e(U2'fh+HH,RDBAP `\pdA@T %Hh HU@pb=(S[A(U GUQHR(SRDBAP copy dormant 8(c(hP"(e(ah(f8h(fhS(fhA@h (n(q`A(y x&&%s$&$`(h̀(habdg& K Q@@AH` x_ (x` xcxb xdpa (hV(((`apb(ʈ8_(`c((hd`cxc`a@%8d8`(`c(88hbH)XFF(X0Yppe &8e((ֈ` Yp(؀bDb A`b@(p@Vp \d8`b@(p h`b@)YYAx!P]&&&&8` Zp .&$A 7R:Q0/RDBAM - WARNING RDBAP MUST BE IN THE SYSTEMp @    `n00  zz|DDxPg(D i׈HHnH0lxphp m0p!(%A(A-ogff`6o^:o``Pjh8`h h(z@/XM*IMAGE6.CMD::IMAGE2:4:19:36 644 0 0 11400 5300466411 32776 IMAGE6.CMD::IMAGE2_6000:4:19:36 $ $IMAGE6 CMD +m +m +m  ]טFST ** IMAGE6.CMD 92081-17001 REV.5010 <880829.1724>**** YOU MUST BE MANAGER.SYS TO SUCCESSFULLY INSTALL IMAGE-II!!!**** To execute this command file, enter TR,IMAGE6.CMD**** This command file indexes IMAGE libraries** and loads the following IMAGE programs for RTE-6 systems:**** DBARC, DBMON, DBRBR, DBRFR, DBSPL, DBUTL,** DBCLN, QUERY, DBDS, DBBLD, DBRST, DBSTR,** DBLOD, DBULD, DBSPA, DBUPGRADE.**!** If desired and DS is available, RDBAM and RDBAP can be loaded. !!** See the installation notes at the end of this command file for !** instructions on loading RDBAM and RDBAP. **#** To load QUERY, LINK must have at least 40 pages of EMA for storing #$** symbols. LINK is shipped with fewer pages as a default, hence the EMA$** size for LINK may have to be increased.**RP,LINK SZ,LINK,40**** Set the protection on the /IMAGE2.DIR directory to RW/RW.** Necessary because some IMAGE-II programs run detached. ** PROT /IMAGE2.DIR RW/RW **!** The IMAGE help files must be present on the /SYSTEM directory. !**CO,/IMAGE2/>QY000,/CATALOGS/>QY000,D PROT,/CATALOGS/>QY000,R/R CO,/IMAGE2/DBUTL.HLP,/SYSTEM/DBUTL.HLP,D PROT,/SYSTEM/DBUTL.HLP,R/R ****** Merge and Index the appropriate IMAGE libraries. ** The default is local-only database accesss. (DBMX1.LIB) ** If you want local-and-remote, uncomment the DBMX2 part. ** If you want remote-only, uncomment the DBMX3 par((t.**** The indexed libraries (DBMX-) are useful for LINK. $** The non-indexed libraries (DBMS-) are the only ones usable by LOADR. $**** . Index the local-only library . **RU,MERGE,/IMAGE2/DB6S1.CMD,/IMAGE2/DBMS1.LIBRU,LINDX,/IMAGE2/DBMS1.LIB,/LIBRARIES/DBMX1.LIB,+NL **** . Index the local-and-remote library . ****RU,MERGE,/IMAGE2/DB6S2.CMD,/IMAGE2/DBMS2.LIB**RU,LINDX,/IMAGE2/DBMS2.LIB,/LIBRARIES/DBMX2.LIB,+NL **** . Index the remote-only library .****RU,MERGE,/IMAGE2/DB6S3.CMD,/IMAGE2/DBMS3.LIB**RU,LINDX,/IMAGE2/DBMS3.LIB,/LIBRARIES/DBMX3.LIB,+NL **** BEGIN LOADING IMAGE PROGRAMS ** ** . LINKING DBARC . RU,LINK,/IMAGE2/DBARC.LOD ** ** . LINKING DBMON . RU,LINK,/IMAGE2/SAM6I.REL,/IMAGE2/DBMON.LOD,+DC ** ** . LINKING DBRBR . RU,LINK,/IMAGE2/DBRBR.LOD,+DC ** ** . LINKING DBRFR . RU,LINK,/IMAGE2/DBRFR.LOD,+DC ** ** . LINKING DBSPL . RU,LINK,/IMAGE2/DBSPL.LOD,+DC ** ** . LINKING DBUTL . RU,LINK,/IMAGE2/DBUTL.LOD,+DC ** ** . LINKING DBCLN . **** Comment out one of the following lines for linking DBCLN:**** Link DBCLN with remote cleanup ability.**ECHO `Ignore any 'conflict with SSGA entry point' warnings.`**RU,LINK,/IMAGE2/RDBCLN.LOD,+DC**** Link DBCLN with local-only cleanup ability.RU,LINK,/IMAGE2/DBCLN.LOD,/IMAGE2/NO_DS.REL,+DC ** ** . LINKING QUERY . RU,LINK,/IMAGE2/QUERY.LOD ** ** . LINKING DBDS . RU,LINK,/IMAGE2/DBDS.LOD ** ** . LINKING DBBLD . RU,LINK,/IMAGE2/DBBLD.LOD ** ** . LINKING DBSTR . RU,LINK,/IMAGE2/DBSTR.LOD ** ** . LINKING DBRST . RU,LINK,/IMAGE2/DBRST.LOD ** ** . LINKING DBULD . RU,LINK,/IMAGE2/DBULD.LOD ** ** . LINKING DBLOD . RU,LINK,/IMAGE2/DBLOD.LOD ** ** . LINKING DBSPA . RU,LINK,/IMAGE2/DBSPA.LOD ****** If you have DS in your system and want to be able to access ** databases on THIS computer from a remote node, then uncomment ** the LINK run strings to link RDBAM and RDBAP.**!** NOTE: In your Boot-up welcome file, be sure to RP RDBAM before!** scheduling DINIT (since DINIT will schedule RDBAM). "** DO NOT RP RDBAP!!! RDBAM needs to be able to clone RDBAP."**"** RDBAP needs to be on an old FMGR LU. LU 2 is the default,"** and you must edit the link command line to place it  ** elsewhere. ** ** . Link RDBAM . **RU,LINK,/IMAGE2/RDBAM6.LOD,+DC** ** . Link RDBAP . **RU,LINK,/IMAGE2/RDBAP6.LOD,RDBAP::2 ****** The root file format has changed beginning at Rev.2540 !** A utility named DBUPGRADE was written to provide a quick means !!** of upgrading a root file from the old format (to prevent having!** to use DBULD and DBLOD). **** To run the upgrade utility, use the run string:**** RU DBUPGRADE database levelword **** database is the root file namr.** levelword is the highest level defined, if any.**** The upgrade is typically done in under 30 seconds. ** ** . Linking DBUPGRADE . RU,LINK,/IMAGE2/DBUPGRADE.LOD ******** ALL DONE! **IMAGEA.CMD::IMAGE2:4:21:35 644 0 0 12400 5300466413 33131 IMAGEA.CMD::IMAGE2_6000:4:21:35 $ #IMAGEA CMD +m +m +m  W׮FST ** IMAGEA.CMD 92081-17002 REV.5010 <881122.1527>****** This command file indexes IMAGE libraries** and loads the following IMAGE programs:**** DBARC, DBMON, DBRBR, DBRFR, DBSPL, DBUTL,** DBCLN, QUERY, DBDS, DBBLD, DBRST, DBSTR,** DBLOD, DBULD, DBSPA, DBUPGRADE.**!** If desired and DS is available, RDBAM and RDBAP can be loaded. !!** See the installation notes at the end of this command file for !** instructions on loading RDBAM and RDBAP. **** This command file is designed to load IMAGE/1000-II** on HP-1000 RTE-A systems.**** .** . PLEASE ENTER THE FOLLOWING COMMAND: ** . ** . TR,IMAGEA.CMD ** .**CO,/IMAGE2/>QY000,/CATALOGS/>QY000,D PROT /CATALOGS/>QY000 R/R CO,/IMAGE2/DBUTL.HLP,/SYSTEM/DBUTL.HLP,D PROT /SYSTEM/DBUTL.HLP R/R **** Merge and Index the appropriate IMAGE libraries. ** The default is local-only database accesss. (DBMX1.LIB) ** If you want local-and-remote, uncomment DBMX2.LIB ** If you want remote-only, uncomment DBMX3.LIB**** Only the indexed libraries are useful on RTE-A.** The intermediate files are purged automatically. ****** . Index the local-only library . **RU,MERGE,/IMAGE2/DBMS1.CMD,/IMAGE2/DBMS1.LIBRU,LINDX,/IMAGE2/DBMS1.LIB,/LIBRARIES/DBMX1.LIB,+NL  PU,/IMAGE2/DBMS1.LIB **** . Index the local-and-remote library . ** RU,MERGE,/IMAGE2/DBMS2.CMD,/IMAGE2/DBMS2.LIB RU,LINDX,/IMAGE2/DBMS2.LIB,/LIBRARIES/DBMX2.LIB,+NL  PU,/IMAGE2/DBMS2.LIB **** . Index the remote-only library .** RU,MERGE,/IMAGE2/DBMS3.CMD,/IMAGE2/DBMS3.LIB RU,LINDX,/IMAGE2/DBMS3.LIB,/LIBRARIES/DBMX3.LIB,+NL  PU,/IMAGE2/DBMS3.LIB ******** If you have VC+ on your A-series, you may want to use the** IMAGE CDS libraries for your application programs. IMAGE** utilities are still in old code, and must use DBMX1.LIB**** . Index the local-only CDS library . **RU,MERGE,/IMAGE2/CDS_DBMS1.CMD,/IMAGE2/CDS_DBMS1.LIBRU,LINDX,/IMAGE2/CDS_DBMS1.LIB,/LIBRARIES/CDS_DBMX1.LIB,+NL  PU,/IMAGE2/CDS_DBMS1.LIB **** . Index the local-and-remote CDS library . ** RU,MERGE,/IMAGE2/CDS_DBMS2.CMD,/IMAGE2/CDS_DBMS2.LIB RU,LINDX,/IMAGE2/CDS_DBMS2.LIB,/LIBRARIES/CDS_DBMX2.LIB,+NL  PU,/IMAGE2/CDS_DBMS2.LIB **** . Index the remote-only CDS library .** RU,MERGE,/IMAGE2/CDS_DBMS3.CMD,/IMAGE2/CDS_DBMS3.LIB RU,LINDX,/IMAGE2/CDS_DBMS3.LIB,/LIBRARIES/CDS_DBMX3.LIB,+NL  PU,/IMAGE2/CDS_DBMS3.LIB **** ** Prepare LINK for linking QUERY: 40 pages of EMA are needed. **RP LINK **SZ LINK 40******** BEGIN LOADING IMAGE PROGRAMS ** ** . LINKING DBARC . RU,LINK,/IMAGE2/DBARC.LOD ** ** . LINKING DBMON . RU,LINK,/IMAGE2/SAMAI.REL,/IMAGE2/DBMON.LOD,+SU ** ** . LINKING DBRBR . RU,LINK,/IMAGE2/DBRBR.LOD,+SU ** ** . LINKING DBRFR . RU,LINK,/IMAGE2/DBRFR.LOD,+SU ** ** . LINKING DBSPL . RU,LINK,/IMAGE2/DBSPL.LOD,+SU ** ** . LINKING DBUTL . RU,LINK,/IMAGE2/DBUTL.LOD,+SU ** ** . LINKING DBCLN . **** Comment out one of the following lines for linking DBCLN:**** Link DBCLN with remote cleanup ability.**RU,LINK,/IMAGE2/RDBCLN.LOD,+LC,+SU**** Link DBCLN with local-only cleanup ability.RU,LINK,/IMAGE2/DBCLN.LOD,/IMAGE2/NO_DS.REL,+SU ** ** . LINKING QUERY . RU,LINK,/IMAGE2/QUERY.LOD ** ** . LINKING DBDS . RU,LINK,/IMAGE2/DBDS.LOD ** ** . LINKING DBBLD . RU,LINK,/IMAGE2/DBBLD.LOD ** ** . LINKING DBSTR . RU,LINK,/IMAGE2/DBSTR.LOD ** ** . LINKING DBRST . RU,LINK,/IMAGE2/DBRST.LOD ** ** . LINKING DBULD . RU,LINK,/IMAGE2/DBULD.LOD ** ** . LINKING DBLOD . RU,LINK,/IMAGE2/DBLOD.LOD ** ** . LINKING DBSPA . RU,LINK,/IMAGE2/DBSPA.LOD **** If you have DS in your system and want to be able to access ** databases on THIS computer from a remote node, then uncomment ** the lines to link RDBAM and RDBAP. **!** NOTE: In your Boot-up welcome file, be sure to RP RDBAM before!** scheduling DINIT (since DINIT will schedule RDBAM). "** DO NOT RP RDBAP!!! RDBAM needs to be able to clone RDBAP."**#** RDBAP needs to be on an old FMGR LU. LU 16 is the default, #** and you must edit the link command line to place it  ** elsewhere. ** ** . Link RDBAM . **RU,LINK,/IMAGE2/RDBAMA.LOD,+SU** ** . Link RDBAP . **RU,LINK,/IMAGE2/RDBAPA.LOD,RDBAP::16****** The root file format has changed beginning at Rev.2540 !** A utility named DBUPGRADE was written to provide a quick means !!** of upgrading a root file from the old format (to prevent having!** to use DBULD and DBLOD). **** To run the upgrade utility, use the run string:**** RU DBUPGRADE database levelword **** database is the root file namr.** levelword is the highest level defined, if any.**** The upgrade is typically done in under 30 seconds. ** ** . Linking DBUPGRADE . RU,LINK,/IMAGE2/DBUPGRADE.LOD ****** ALL DONE! **DBARC.LOD::IMAGE2:4:3:34 644 0 0 1400 5300466414 32445 DBARC.LOD::IMAGE2_6000:4:3:34 $ "DBARC LOD +m +m +m YFST ((* DBARC.LOD 92081-17004 REV.5000 <870113.1335>* !* (C) Copyright 1983 Hewlett-Packard company. All rights reserved. !* No part of this program may be photocopied, reproduced, or!* translated to another program language without the prior written!* consent of Hewlett-Packard Company. * * * Link command file to build DBARC.* !* If you would like to use a language other than English, replace!* the line 'LI,%AR000' with the appropriate language module. * IF,A,PC,31,0 LL,/IMAGE2/DBARC.MAP EB** LI,/LIBRARIES/DBMX1.LIB LI,/IMAGE2/%AR000 LI,PASCAL.LIB ** RE,/IMAGE2/DBARC.REL ** EN DBARC.RUN::PROGRAMS DBBLD.LOD::IMAGE2:4:3:34 644 0 0 1400 5300466416 32362 DBBLD.LOD::IMAGE2_6000:4:3:34 $ "DBBLD LOD +m +m+m"FST * DBBLD.LOD 92081-17005 REV.5000 <870113.1339>* !* (C) Copyright 1983 Hewlett-Packard company. All rights reserved. !* No part of this program may be photocopied, reproduced, or!* translated to another program language without the prior written!* consent of Hewlett-Packard Company. * * * Link command file to build DBBLD.* IF,A,PC,31,0 LL,/IMAGE2/DBBLD.MAP EBSZ,32 ** LI,/IMAGE2/DBBLD.LIB LI,/LIBRARIES/DBMX1.LIB LI,/IMAGE2/%BL000 LI,PASCAL.LIB ** RE,/IMAGE2/DBBLD.REL ** EN DBBLD.RUN::PROGRAMS DBDS.LOD::IMAGE2:4:2:27 644 0 0 1000 5300466417 32460 DBDS.LOD::IMAGE2_6000:4:2:27 $ DBDS LOD +m+m+mFST * DBDS.LOD 92081-17006 REV.5000 <870113.1343> * * Link command file for the B.85 PCO version of DBDS. * IF,A,PC,31,0 LL,/IMAGE2/DBDS.MAP EBEM,30 ** LI,/IMAGE2/DBDS.LIB LI,/IMAGE2/%DB000  LI,/LIBRARIES/DBMX1.LIB LI,/LIBRARIES/SHSLB.LIB LI,/LIBRARIES/PASCAL.LIB * RE,/IMAGE2/DBDS.REL EN DBDS.RUN::PROGRAMS DBLOD.LOD::IMAGE2:4:3:36 644 0 0 1400 5300466420 32547 DBLOD.LOD::IMAGE2_6000:4:3:36 $ $DBLOD LOD +m+m+mVFST * DBLOD.LOD 92081-17007 REV.5000 <870113.1336> * !* (C) Copyright 1983 Hewlett-Packard company. All rights reserved. !* No part of this program may be photocopied, reproduced, or!* translated to another program language without the prior written!* consent of Hewlett-Packard Company. * * The English language messages are in %LO000. #* For some other language, replace %LO000 with the proper relocatable. #* * Link command file to build DBLOD.* IF,A,PC,31,0 LL,/IMAGE2/DBLOD.MAP EBSZ,32 **LI,/IMAGE2/%LO000  LI,/LIBRARIES/DBMX1.LIB LI,PASCAL.LIB ** RE,/IMAGE2/DBLOD.REL ** EN DBLOD.RUN::PROGRAMS DBMON.LOD::IMAGE2:4:6:34 644 0 0 3000 5300466421 33125 DBMON.LOD::IMAGE2_6000:4:6:34 $ "DBMON LOD +m+m+m)FST ** DBMON.LOD 92081-17008 REV.5000 <870113.1339>***************************************************************** **(C) Copyright 1983, Hewlett-Packard Company. * **All rights reserved. * **No part of this program may be photocopied, reproduced, or * **translated to another program language without the written * **consent of Hewlett-Packard Company. * *************************************************************** **** This command file is set to load DBMON for best performance** with a working set size (WS) of 111 pages and a virtual** memory size (VS) of 171 pages. This allows all of DBMON's ** segments to remain in memory simultaneously. The bare ** minimum WS is 75 pages with a VS of 135 pages. You can ** get intermediate performance with the following formula: ** Given a WS between 75 and 111 inclusive, the VS size is** VS=WS+60.**!** If you get a '** DBMON FATAL ERROR ** 396' this means there was !** not enough room to create the virtual memory file. You need "** more room on the top SYSTEM cartridge, or the cartridge specified"** by the $SCRN entry point.**IF,A,PC,31,0 LL,/IMAGE2/DBMON.MAP EBPSVMWS,111VS,171** LI,/IMAGE2/DBMON.LIB LI,/IMAGE2/DBEMA.LIB LI,/LIBRARIES/DBMX1.LIB LI,/LIBRARIES/SHSLB.LIB LI,PASCAL.LIB ** RE,/IMAGE2/DBMON.REL ** EN DBMON.RUN::PROGRAMS DBRBR.LOD::IMAGE2:4:3:37 644 0 0 1400 5300466423 32717 DBRBR.LOD::IMAGE2_6000:4:3:37 $ %DBRBR LOD +m+m+mvFST * DBRBR.LOD 92081-17009 REV.5000 <870113.1342>* !* (C) Copyright 1983 Hewlett-Packard company. All rights reserved. !* No part of this program may be photocopied, reproduced, or!* translated to another program language without the prior written!* consent of Hewlett-Packard Company. * * * Link command file to build DBRBR.* $* For native languages other than English, replace the lines 'LI,%RB000' $* and 'LI,%EM000' with the appropriate native language module. * IF,A,PC,31,0 LL,/IMAGE2/DBRBR.MAP EBEM,50 LI,/IMAGE2/%RB000  LI,/IMAGE2/DBEMA.LIB LI,/IMAGE2/%EM000  LI,/LIBRARIES/DBMX1.LIB LI,PASCAL.LIB ** RE,/IMAGE2/DBRBR.REL ** EN DBRBR.RUN::PROGRAMS DBRFR.LOD::IMAGE2:4:3:34 644 0 0 1400 5300466424 32752 DBRFR.LOD::IMAGE2_6000:4:3:34 $ "DBRFR LOD +m+m+mFST * DBRFR.LOD 92081-17010 REV.5000 <870113.1344>* !* (C) Copyright 1983 Hewlett-Packard company. All rights reserved. !* No part of this program may be photocopied, reproduced, or!* translated to another program language without the prior written!* consent of Hewlett-Packard Company. * * Link command file to build DBRFR.* "* For a native language other than English, replace the 'LI,%RF000'"* and 'LI,%EM000' lines with the appropriate language modules. * IF,A,PC,31,0 LL,/IMAGE2/DBRFR.MAP EBEM,50 ** LI,/IMAGE2/DBRFR.LIB LI,/IMAGE2/%RF000  LI,/IMAGE2/DBEMA.LIB LI,/IMAGE2/%EM000  LI,/LIBRARIES/DBMX1.LIB LI,PASCAL.LIB ** RE,/IMAGE2/DBRFR.REL ** EN DBRFR.RUN::PROGRAMS ((DBRST.LOD::IMAGE2:4:3:34 644 0 0 1400 5300466425 32654 DBRST.LOD::IMAGE2_6000:4:3:34 $ "DBRST LOD +m+m+m FST * DBRST.LOD 92081-17011 REV.5000 <870113.1337>* !* (C) Copyright 1983 Hewlett-Packard company. All rights reserved. !* No part of this program may be photocopied, reproduced, or!* translated to another program language without the prior written!* consent of Hewlett-Packard Company. * * * Link command file to build DBRST.* IF,A,PC,31,0 LL,/IMAGE2/DBRST.MAP EBSZ,32 ** LI,/LIBRARIES/DBMX1.LIB LI,PASCAL.LIB ** RE,/IMAGE2/DBRST.REL ** EN DBRST.RUN::PROGRAMS DBSPA.LOD::IMAGE2:4:3:35 644 0 0 1400 5300466427 32361 DBSPA.LOD::IMAGE2_6000:4:3:35 $ #DBSPA LOD +m+m+mvFST * DBSPA.LOD 92081-17012 REV.5000 <870113.1340>* !* (C) Copyright 1983 Hewlett-Packard company. All rights reserved. !* No part of this program may be photocopied, reproduced, or!* translated to another program language without the prior written!* consent of Hewlett-Packard Company. * * Link command file to build DBSPA.* "* This command file defaults to loading DBSPA with English messages. " * If you wish to have output in another native language, replace * %SA000 with the appropriate relocatable. * IF,A,PC,31,0 LL,/IMAGE2/DBSPA.MAP EBSZ,32 ** LI,/LIBRARIES/DBMX1.LIB LI,%SA000::IMAGE2 LI,PASCAL.LIB ** RE,/IMAGE2/DBSPA.REL ** EN DBSPA.RUN::PROGRAMS DBSPL.LOD::IMAGE2:4:3:34 644 0 0 1400 5300466430 32247 DBSPL.LOD::IMAGE2_6000:4:3:34 $ "DBSPL LOD +m+m+m FST * DBSPL.LOD 92081-17013 REV.5000 <870113.1342>* !* (C) Copyright 1982 Hewlett-Packard company. All rights reserved. !* No part of this program may be photocopied, reproduced, or!* translated to another program language without the prior written!* consent of Hewlett-Packard Company. * * * Link command file to build DBSPL.* IF,A,PC,31,0 LL,/IMAGE2/DBSPL.MAP EBSZ,26 ** LI,/LIBRARIES/DBMX1.LIB LI,PASCAL.LIB ** RE,/IMAGE2/DBSPL.REL ** EN DBSPL.RUN::PROGRAMS DBSTR.LOD::IMAGE2:4:3:34 644 0 0 1400 5300466431 32034 DBSTR.LOD::IMAGE2_6000:4:3:34 $ "DBSTR LOD +m+m+mOFST * DBSTR.LOD 92081-17014 REV.5000 <870113.1344>* !* (C) Copyright 1983 Hewlett-Packard company. All rights reserved. !* No part of this program may be photocopied, reproduced, or!* translated to another program language without the prior written!* consent of Hewlett-Packard Company. * * %ST000 is the English messages module. * It may be replaced with a native language module if desired. * * Link command file to build DBSTR.* IF,A,PC,31,0 LL,/IMAGE2/DBSTR.MAP EBSZ,32 **LI,/IMAGE2/%ST000  LI,/LIBRARIES/DBMX1.LIB LI,PASCAL.LIB ** RE,/IMAGE2/DBSTR.REL ** EN DBSTR.RUN::PROGRAMS DBULD.LOD::IMAGE2:4:3:34 644 0 0 1400 5300466432 31647 DBULD.LOD::IMAGE2_6000:4:3:34 $  "DBULD LOD +m+m+m FST * DBULD.LOD 92081-17015 REV.5000 <870113.1337>* !* (C) Copyright 1983 Hewlett-Packard company. All rights reserved. !* No part of this program may be photocopied, reproduced, or!* translated to another program language without the prior written!* consent of Hewlett-Packard Company. * * * Link command file to build DBULD.* IF,A,PC,31,0 LL,/IMAGE2/DBULD.MAP EBSZ,32 ** LI,/LIBRARIES/DBMX1.LIB LI,PASCAL.LIB ** RE,/IMAGE2/DBULD.REL ** EN DBULD.RUN::PROGRAMS DBUTL.LOD::IMAGE2:4:2:24 644 0 0 1000 5300466434 32172 DBUTL.LOD::IMAGE2_6000:4:2:24 $ DBUTL LOD +m+m+mFST * DBUTL.LOD 92081-17016 REV.5000 <870113.1343>* * Link command file to build DBUTL.* * %UT000 is the English messages for DBUTL.* IF,A,PC,31,0 LL,/IMAGE2/DBUTL.MAP EB** LI,/IMAGE2/DBUTL.LIB LI,/IMAGE2/%UT000  LI,/LIBRARIES/DBMX1.LIB LI,PASCAL.LIB ** RE,/IMAGE2/DBUTL.REL ** EN DBUTL.RUN::PROGRAMS DBCLN.LOD::IMAGE2:4:3:34 644 0 0 1400 5300466435 31636 DBCLN.LOD::IMAGE2_6000:4:3:34 $ "DBCLN LOD +m+m+mFST * DBCLN.LOD 92081-17017 REV.5000 <870113.1342>* !* (C) Copyright 1983 Hewlett-Packard company. All rights reserved. !* No part of this program may be photocopied, reproduced, or!* translated to another program language without the prior written!* consent of Hewlett-Packard Company. * * * Link command file to build DBCLN.IF,A,PC,31,0* LL,/IMAGE2/DBCLN.MAP LI,/LIBRARIES/DBMX1.LIB LI,PASCAL.LIB ** RE,/IMAGE2/DBCLN.REL ** EN DBCLN.RUN::PROGRAMS ((QUERY.LOD::IMAGE2:4:3:34 644 0 0 1400 5300466436 32260 QUERY.LOD::IMAGE2_6000:4:3:34 $ "QUERY LOD +m+m+mcFST * QUERY.LOD 92081-17018 REV.5000 <870113.1345>* !* (C) Copyright 1983 Hewlett-Packard company. All rights reserved. !* No part of this program may be photocopied, reproduced, or!* translated to another program language without the prior written!* consent of Hewlett-Packard Company. * * * Link command file to build QUERY.* !* To have QUERY messages in a native language other than English,!* substitute the appropriate module in place of %QY000.* IF,A,PC,31,0 LL,/IMAGE2/QUERY.MAP EBSZ,32  LI,/IMAGE2/QUERY.LIB LI,/IMAGE2/%QY000  LI,/LIBRARIES/DBMX1.LIB LI,PASCAL.LIB ** RE,/IMAGE2/QUERY.REL ** EN QUERY.RUN::PROGRAMS DBMS1.CMD::IMAGE2:4:1:34 644 0 0 400 5300466440 31705 DBMS1.CMD::IMAGE2_6000:4:1:34 $ "DBMS1 CMD +m +m +m xFST , DBMS1.CMD 92081-17021 REV.2540 <860121.0531>, , MERGE command file to create DBMS1.LIB", %LB000 contains English messages for the IMAGE/1000-II utilities. ", /IMAGE2/DBMS.REL /IMAGE2/LOCAL.REL /IMAGE2/%LB000DBMS2.CMD::IMAGE2:4:1:24 644 0 0 400 5300466442 31647 DBMS2.CMD::IMAGE2_6000:4:1:24 $  DBMS2 CMD +m"+m"+m"T"FST , DBMS2.CMD 92081-17022 REV.2540 <850422.1026>, , MERGE command file to create DBMS2.LIB, /IMAGE2/DBMS.REL/IMAGE2/RDBA.REL/IMAGE2/DSDB.LIBDBMS3.CMD::IMAGE2:4:1:24 644 0 0 400 5300466444 31672 DBMS3.CMD::IMAGE2_6000:4:1:24 $ $DBMS3 CMD +m#+m$+m$U&FST , DBMS3.CMD 92081-17023 REV.2540 <850422.1027>, , MERGE command file to create DBMS3.LIB, /IMAGE2/RDBA.REL/IMAGE2/REMOT.REL /IMAGE2/DSDB.LIB>QY000::IMAGE2:1:77:128 644 0 0 46400 5300466445 32262 >QY000::IMAGE2_6000:1:77:128 $M (M>QY000 +m%+m%+m%M&M*FST MESSAGE MODULE OF QSHLP <870415.1315> Gencat Mon, Dec 5, 1988, 9:41 AM ?K?S?[?bC3FTFZCF_FgFFFGG&J=JBKN : QSHELP - 92081-17024 REV.5000 <870415.1315>   QUERY language commands 8 CREATE Schedules the editor to create a file 0 DATA-BASE Names the data base to be used2 SELECT-FILE Names the select file to be used* DESTROY Purges a procedure file , DISPLAY Displays a procedure file : EXECUTE Schedule a program to be run from QUERY " EXIT Terminate QUERY 0 FIND Select records from data base 0 FINDA FIND and append to select-file2 FORM Display data base sets and items( HELP Invoke HELP processor * LIST Change list file/device $ REPORT Generate a REPORT $ TRANSBEGIN Transaction BEGIN " TRANSEND Transaction END " TRANSMEMO Transaction MEMO" TRANSUNDO Transaction UNDO( UPDATE Alter data base items , XEQ Change input to batch file 6 For more information enter the following c ommand,   HELP HELP;   FUNCTION - 4 The HELP command provides FUNCTION, SYNTAX, AND$ OPERAND information on commands 4 SYNTAX - ( HELP [ command [ type ] ] ;   4 Defaults: ALL if  FUNCTION, SYNTAX or OPERANDS " are not specified.4 Note: HELP with no operands produces a list of 6 available commands with a short description of each displayed.    Syntax interpretation: 2  1. User-supplied values are in lower case. 6 2. Capitalized words are to be entered as shown6 3. Commas and quotes are to be entered as shown8 4. Brackets ( [,] ) describe optional parameters 6 5. Keywords are separated by one or more blanks   OPERANDS -  command name 4 - Name of the command to be explained type > - One or more of the following words may be used: FU [NCTION] - Function is to be di splayed 8 SY [NTAX] - Syntax is to be displayed < OP [ERANDS] - Operand description displayed < AL [L] - FUNCTION, SYNTAX, and OPERAND < descriptions are to be displayed  < Note: The type of help, the command name, and the 6 HELP command itself must be separated , from each other with blanks    Function: 6 The EXECUTE command allows the user to execute a 8 program from QUERY. This could be used to schedule " the editor or CI, for example   Syntax: , EXECUTE [ = program [,string] ];   Operands: 4 program is the name of the program to be 6  scheduled. Parameters can be passed to the program via string.   Function: 0 The CREATE command schedules the editor to 0 allow the user to create a QUERY procedure.   Syntax: $ CREATE NA ME = filename; $ (the editor is scheduled)  : Note: The procedure must be valid QUERY commands, , up to 72 characters per line.  h Operands: ( filename is an FMP file descriptor       Function: 8 The LIST command allows the list file/device to be  changed.   Syntax: LIST [ = filename ];  P Operands: . filename is a valid FMP file descriptor, " either of a device LU number  or a disc file.   6 If no filename is given, the list is defaulted to: LU 6, if in batch mode, else the scheduling terminal.  p  Function: 6 The DATA-BASE command defines the data base and 8  opens it according to the security level specified.  Syntax: ( DATA-BASE = root-filename ;  2 The user is then prompted for the following:  LEVEL? level-word ;  MODE? open-mode ; 6 T((he level word must be entered. It is not echoed, if input is from an interactive device.  4 The user must also enter the open access mode.  8 Operands:  root-filename 6 - File descriptor of the data base root 2 file. FMGR files must include the0 security code in the descriptor. level-word> - Up to 6 characters specifying the read/write : access the user has. The level words are 6 defined when the data base is created.< The level words represent access levels from: 1 to 15. An illegal level word gives an " access level of 0. open-mode : - An integer from the table below. This defines2 the type of access the user has to the data base:, 1 indicates shared read/write0 3 indicates exclusive read/write 8 5 indicates shared read o nly with writers8 8 indicates shared read only, no writers  X  Function: : The SELECT-FILE command specifies a work file for the FIND command.  Syntax: & SELECT-FILE [= filename] ;    Operand:  filename 4 - An FMP file descriptor. If the file< does not exist, it is created. If the file : exists, it must be type 1, and at least 6 : blocks in size. It is opened extendible.  6 - If the filename is omitted, QUERY will& create a scratch file. @  Function: 0 The DESTROY command purges a specified file   Syntax: & DESTROY NAME = filename ;    Operands:  filename 2 - A file descriptor of a disc file.   0 Caution: Do not DESTROY your select file.   #(  Function: . The DISPLAY command will display a file.   # Syntax: $ DISPLAY NAME = filename ; # Operands:  filename 6 - An FMP file descriptor of a disc file.. The file must be a text file.  '  Function: 6 The EXIT command causes immed iate termination of 4 QUERY. All files and the database are closed. 4 Other commands to EXIT are EX, END, EN, and E.  't Syntax:  EXIT ;  ' Operands: None  *  Function: 6 The FORM command will display a list of data set 8 and data item names along with the item length and access level of each item.  +\ Syntax:  FORM ;  + Operands: none  .  Function: 4 The REPOR T command will generate a report using. the data records found by a FIND command. /D Syntax: $ REPORT NAME = filename ;  or 6 R[EPORT] ALL [,char1[,N]] ; N=line spacing 2 ! 1 thru 5  or  REPORT [,char2] ;  report commands  END;  / Operands:  report commands: : - One or more of the following report commands, : " (100 maximum), each terminated by a semicolon:  1. Detail  2. Edit  3. Group 4. Header  5. Sort  6. Total & - Hlevel, value, column [,control] # - level 2 - Integer value between 1 and 5.  - value . - a quoted string ("string")  or - PAGENO  or - DATE or EDA$TE or - TIME or ETIME - column< - ending column number for the print value & between 1 and 132.  - control - SPACE Anumber % - SPACE Bnumber  - S[level],item ;  - level 8 - integer between 1 and 5. The major sort : field is the highest level sort statement. : When no level is indicated, the sort order 6 & is in the order of the sort statements,$ from minor to major.  - item8 - A data item name in the current data set  0 - D[level],item,column [,control] [,edit] ;  - level : ' - integer between 1 and 5. Each like number < Detail statement is printed on the same line. - item6 - name of a data item in current data set - column8 - ending column number for the pr(int value * ranging between 1 and 132.  - control  - SPACE Anumber - SPACE Bnumber - SKIP Anumber  - SKIP Bnumber  - edit* - En indicating an edi)t mask. - EZ to suppress leading zeroes  . - Glevel,item,column [,control] [,edit] ;  - level 8 - integer between 1 and 5, corresponding to$ a defined sort level. - item4 * - name of data item in current data set - column6 - ending column for print value, ranging  from 1 to 132.  - control  - SPACE Anumber - SPACE Bnumber - SKI+P Anumber  - SKIP Bnumber  - edit* - En indicating an edit mask. - EZ to suppress leading zeroes  8 - Tlevel,item,column [,control] [,edit] [,operand] ; - level < - int,eger between 1 and 5. Each like numbered < Total statement is printed on the same line. : The level must correspond to a Sort level.  - item4 - name of data item in current data set - co-lumn, - ending column for print value* ranging between 1 and 132.  - control  - SPACE Anumber - SPACE Bnumber - SKIP Anumber  - SKIP Bnumber  - ed.it* - En indicating an edit mask. - EZ to suppress leading zeroes  - operand 2 - ADD display item values' sum 6 - AVERAGE display item values' average : - COUNT d/isplay occurrences of data item  4 - TF,item,column [,control] [,edit] [,operand] ;6 - F indicates to do a Final or grand total  - item4 - name of data item in current data set - column8 0 - ending column number for the print value * ranging between 1 and 132.  - control  - SPACE Anumber - SPACE Bnumber - SKIP Anumber  - SKIP Bnumber  - edit* 1 - En indicating an edit mask. - EZ to suppress leading zeroes  - operand 6 - ADD display the item values' sum : - AVERAGE display the item values' average : - COUNT 2 display occurrences of data item   - Elevel,mask ;  - level & - integer between 1 and 9 - mask6 - a quoted string consisting of 9's, X's,2 $'s, Z's, CR's or other characters. 3 filename:> - An FMP file descriptor containing report commands ( char1 - Any ascii character will* list the report procedure. Default: No list4 ALL - Lists all found records without any 4 formatting4 char2 - Any ascii character - will list all * found records without any , formatting or data item name 2  Function: 6 TRANSBEGIN locks the data base or data sets, 5then6 begins a transaction if IMAGE logging is enabled. 3, Syntax: & TRANSBEGIN [set-list] [text] ;  3 Operands -  set-list 6 - Data set names separated by commas. The : data sets are locke6d for the duration of the  transaction. text * - "string" (quotes required). 2 The text will be associated with the 0 transaction in the transaction log.8 The string is reported by7 DBRBR and DBRFR.   6  Function: 6 TRANSEND unlocks the database, then if logging is, enabled, the transaction is committed.   7 Syntax:  TRANSEND [text] ; 7x Operands: text * 8 - "string" (quotes required). 2 The text will be associated with the 0 transaction in the transaction log.< The string can be reported by DBRBR and DBRFR.   :  Function: 2 TRANSUNDO wil9l undo the current transaction, 0 removing all changes to the database since  the last TRANSBEGIN. : Syntax:  TRANSUNDO [text] ;  ;` Operands: text * - "string" (quotes required). 4 : The text is associated with the undone 0 transaction in the transaction log.6 The text is reported by DBRBR and DBRFR.   >  Function: 0 The FIND command will retrieve data records0 from the data b;ase as specified in the FIND statement > Syntax: $ F[IND] expression [END];  or$ F[IND] NAME = filename ;  ?H Operands:  expression : - simple expression: [set.]item re< lop value-phrase: Simple expressions can be joined by connectors: 2 simple expression [connector expression] filename : - An FMP file descriptor containing a FIND command item  - A data item name ((= set4 - A data set name. If the item name is used4 in more than one data set, the set must be2 specified. All other items in the FIND , must belong to the same data set.   relop6 - Relation>al operators - IS,IE,ISNOT,INE,ILT,  INLT,IGT,INGT  value-phrase $ -["]value["] [,"value2"...] 8 If item type X, then wildcard finds may be done . using the wildcard characters @ and -  connector ? - AND or OR  Bh  Function: 4 TRANSMEMO associates a comment with the current transaction.  B Syntax:  TRANSMEMO [text] ;  C0 Operands: text * - "string" (quotes required)@. 8 The text is associated with the transaction: in the transaction log. The text is reported by DBRFR.  FP  Function: 0 The UPDATE command allows the user to alter6 data base items by Adeleting, replacing, or adding entries to the data base. : The UPDATE ADD command prompts the user for the value4 of each item in the data set. The value may be< defaulted by entering a semicolon only. Path and sort iteBms may not be defaulted. : The UPDATE REPLACE command must be used after a FIND : command, because it replaces the item values in each : record found with the new value. The REPLACE command4 prompts the user for the name of the Citem to be. replaced and the new value for the item.  8 The UPDATE DELETE command must be used after a FIND8 command, because it deletes from the data base all < entries placed in the select-file by the FIND command.    D F Syntax: " U[PDATE] A[DD], set ;  or U[PDATE] D[ELETE] ; or U[PDATE] R[EPLACE]; or& U[PDATE] NAME = filename ;  @ The UPDEATE ADD command prompts the user for the item value < by printing the item name followed by a question mark. < The user must enter a value for each path and sort item: but may default others by entering a semicolon only.  8 The UFPDATE REPLACE command prompts the user for the: name of the item to update by printing "ITEM?". The $ user must enter the following:  " item-name = "value" ; < The UPDATE REPLACE command is terminated by entering a 6G semicolon only in response to the "ITEM?" prompt. G Operands:  filename 4 - A file containing an UPDATE command. set-name & - A valid data set name  item-name& - A valid data iHtem name value: - The item value must be enclosed in quotes.8 Array items may be entered by separating6 each value by commas, terminated by a $ semicolon. Example: < I "value1" [,"value2" [, ... [,valuex]]] ; J8  Function: : The XEQ command executes a sequence of QUERY commands> from a batch file. Command parameters which QUERY would 6 normally prompt for must be within the batch fiJle6 immediately following the command. The following: example shows how to open a database /inventory/root < using the level code word "L10" and an open mode of 1. : The batch file will also define a select file called  /scraK tch/select.tmp $ DATA-BASE=/inventory/root; L10; 1;* SELECT-FILE=/scratch/select.tmp; J Syntax:  XEQ = filename ;  K Operands:  filename ( - An FMP fL ile descriptor.  N  Function: 2 The FINDA command will retrieve data records 4 from the data base similar to the FIND command 0 and append them to the current select-file  N Syntax: & F[INDA] expressioMn [END];  or FA expression [END];  retrieve data records 4 from the data base similar to the FIND command 0 and append them to the current select-file  N Syntax: & F[INDA] expressioDBUTL.HLP::IMAGE2:4:335:39 644 0 0 247400 5300466447 33633 DBUTL.HLP::IMAGE2_6000:4:335:39 $O xO'DBUTL HLP +m&+m'+m'O\KzFST DBUTL help file 92081-17025 REV.5000 <870219.1016>  $DBUTL is an IMAGE utility program provided to support the administration$#of the IMAGE database management subsystem. The functions provided by##DBUTL can be used to backup and restore databases, control transaction##logging and database access, recover databases after both soft crashes#and hard crashes.  For information about a particular command, type "HE,command",where "command" is one of DBUTL's commands.  $For information about a particular error message, type "HE,errornumber",$where "errornumber" is an Image error number.  For a summary of the commands, type "HE,COMMANDS". For a summary of the error messages, type "HE,ERRORS".""DBUTL HELP FILE  (***************************************************************) (* (C) Copyright 1983, Hewlett-Packard Company. *) (* All rights reserved. *) (* No part of this program may be photocopied, reproduced, or *) (* translated to another program language without the written *) (* consent of Hewlett-Packard Company. *) (***************************************************************) (* *) (* SOURCE: 92081-17025 *) (* *) (* Date last modified: <870219.1016> (* *) (***************************************************************)  ""COMMANDSCOMMANDS DBUTL command summary   / Display command stack ?? Display error message AC *Display/change database or system access mode AR *Archive roll forward log file BK Put backup timestamp information into root file BL *Display/change before-image log file definition CL Display/recover IMAGE subsystem resources EX Exit DBUTLHE Get help about commands and error messagesLD Load database from data fileLG *Display/change database or system logging state LL Display/change DBUTL list fileLO Display/change DBUTL log file MW *Enter/change DBUTL maintenance word NS *Define a new roll forward log set RB *Perform roll back (soft crash) recovery RF *Perform roll forward (hard crash) recoveryRL *Display/change roll forward log file definition RS Restore database from backup mediaSD *Shut down IMAGE subsytemSH Show IMAGE subsystem status information SL *Display/change spare roll forward log file definition ST Store database onto backup mediaSU *Start up IMAGE subsystemTL *Display/change transaction log file definitionTR Transfer DBUTL control to a command fileUL Unload database to data fileWL *Display/change warning log file definition '* Indicates that the command is available only to the Database Administrator, ' and requires knowledge of the maintenance word For information about a particular command, type "HE,command",where "command" is one of DBUTL's commands. ""ERRORSERRORSDBUTL error message summary  IMAGE 201: Illegal database name given. IMAGE 202: Database security code was incorrect.IMAGE 203: Input device/file was empty. IMAGE 204: Not enough data given for a record.IMAGE 205: $SET or $END line was not found. IMAGE 206: Integer field was not valid. IMAGE 207: Real number field was not valid. IMAGE 208: Utility error. Database may be bad. IMAGE 209: Unexpected input EOF.IMAGE 210: Specified device was illegal.IMAGE 211: Level word was not the highest.IMAGE 212: Backup stroage input was bad.IMAGE 213: Wrong database security code.IMAGE 214: Database subchannels changed.IMAGE 215: Backup storage file not found. IMAGE 216: Disc file size and backup size differ. IMAGE 217: There is no data to unload.IMAGE 218: Mode or column parameter is illegal. IMAGE 219: No room for root file on the disc. IMAGE 220: DBBLD encountered an I/O error.IMAGE 221: DBRBR encountered an internal error. IMAGE 222: DBRFR encountered an internal error. IMAGE 223: DBRFR encountered a scratch file creation error.  IMAGE 224: DBRFR encountered an error while opening a log volume. #IMAGE 225: DBRFR encountered an error while accessing its scratch file. #&IMAGE 226: DBRST(92081/92069) given the wrong (92069/92081) DBSTR save file.&'IMAGE 227: Data sets NOT empty. DBLOD(92081) requires them to exist & be empty'IMAGE 228: Tape verify option error in DBSTR run string.IMAGE 299: I/O error; tape LU may not have been legal IMAGE 230: Tape is write protected. IMAGE 231: Tape is off-line.IMAGE 232: Device lock error. IMAGE 233: Device unlock error. IMAGE 235: Not enough room in file for database.IMAGE 236: Not enough room on tape for database.IMAGE 241: Prompt device must be interactive.  IMAGE 242: Wrong vol((ume. IMAGE 243: Specified root does not match storage. IMAGE 244: DBRST must put root on same directory. IMAGE 245: DBRFR cannot be cloned. You must RP it.IMAGE 247: Program was broken with BR command.IMAGE 248: Illegal abort option in run string.IMAGE 249: Illegal statistics option in run string. IMAGE 250: DBUTL has no such command. IMAGE 251: IMAGE maintenance password is needed.IMAGE 252: YES or NO answer is required.IMAGE 253: LU number was illegal. IMAGE 254: Optional parameter was illegal.IMAGE 255: Not enough parameters given. IMAGE 256: Too many parameters given. IMAGE 257: A parameter was too long.IMAGE 258: Recovery must be performed first.IMAGE 259: Parameter was not a database root file name. IMAGE 260: File size specified was below minimum. IMAGE 261: Parameter was not of proper type.IMAGE 262: No file/device to transfer back to.IMAGE 263: Transfer files cannot be nested. IMAGE 264: Wrong maintenance password was given.IMAGE 265: New maintenance password unconfirmed.IMAGE 266: DBUTL help file could not be found.IMAGE 267: No help information is available.IMAGE 268: Command not useable when IMAGE is active.IMAGE 269: Unknown IMAGE errorIMAGE 270: Unknown FMP errorIMAGE 271: Parameter must be a disc file. IMAGE 272: Device parameter must be a magtape.IMAGE 273: Logging option was invalid.IMAGE 274: File size was invalid. IMAGE 275: Roll forward log history table full. IMAGE 276: DBCON resource unlock error. IMAGE 277: Unexpected DBUTL internal error. IMAGE 278: Error in creating DBCON file.IMAGE 279: Cannot lock DBCON resource number. IMAGE 280: Spare is same device as RF log.IMAGE 281: Program could not be scheduled.IMAGE 282: Before-image file not defined. IMAGE 283: Transaction log file is not defined. IMAGE 284: Roll forward log file is not defined.IMAGE 285: Program DBMON was not schedulable. IMAGE 286: Program DBSPL was not schedulable. IMAGE 287: Program DBCLN was not schedulable. IMAGE 288: Specified volume could not be found. IMAGE 289: DBUTL program must not be cloned.IMAGE 290: Cannot execute while IMAGE is active.IMAGE 291: Cannot execute while IMAGE shutdown. IMAGE 292: File name 'DBCON' must be created. IMAGE 293: Missing parameter must be supplied.IMAGE 294: Scratch file error.IMAGE 295: New log set is required. IMAGE 296: Old log set name cannot be specified.IMAGE 297: Error in trying to rename spare rfl. IMAGE 298: DBCLN communication error. IMAGE 299: Illegal command after crash occurs.IMAGE 300: Can't archive the current rfl file.IMAGE 301: Illegal type for list or log file. IMAGE 330: Bad RFL volume or not a RFL volume.IMAGE 331: Spare RFL is not defined.IMAGE 333: End of roll forward log tape encountered.IMAGE 334: Roll forward log device is not ready.IMAGE 335: Parity error on roll forward log.IMAGE 336: Error when accessing the roll forward log. IMAGE 337: Spare was defined, but now cannot be found.!IMAGE 339: DBSPL encountered an internal error and is terminating.!#IMAGE 340: Wrong record length on RFL read (DBRFR or DBARK). Bad tape. #$IMAGE 341: The wrong RFL volume was mounted. Label information is wrong. $"IMAGE 342: Error encountered when accessing the transaction log file. "IMAGE 344: DBSPL encountered an error when accessing DBCON. IMAGE 350: Tape did not verify during archive or store. "IMAGE 351: The database must be disabled before using the BK command. "IMAGE 352: Log set must be defined before using RL command. IMAGE 360: IMAGE is automatically cleaning up unused resources. IMAGE 361: DBSPL is switching to the spare. IMAGE 362: The transaction log file is full.IMAGE 367: The transaction log file is at least 90% full. IMAGE 368: Transaction log numbers used up. Need a new set.IMAGE 369: DBSPL is terminating.IMAGE 370: The roll forward log volume is full.  IMAGE 390: Pascal runtime program error (DBMON internal error). IMAGE 391: Pascal runtime EMA error (DBMON internal error). IMAGE 392: Pascal runtime I/O error (DBMON internal error). IMAGE 393: Pascal runtime FMP error (DBMON internal error).  IMAGE 394: Pascal runtime segment error (DBMON internal error). "IMAGE 395: Pascal runtime I/O warning error (DBMON internal error). "IMAGE 396: Pascal SAMURAI segment load error (DBMON).  $For information about a particular error message, type "HE,errornumber",$where "errornumber" in one of DBUTL's error numbers.""/ /  Display command stack  Format: /   Example: DBUTL? /   ---Commands--- AC,*,RW  SH  #The / command is used to display DBUTL's command stack. This command #"stack works like the command stack in EDIT/1000 (see your EDIT/1000 ""reference manual). After the command stack appears move your curser"!to the line you wish to reexecute and hit the return or enter key.!A maximum of 10 commands are saved. ""???? Display error message   Format: ??,errornumber  $Where: errornumber is the number of the error message to be displayed$$ If omitted, the last issued error number is used. $  Examples: DBUTL? ??  IMAGE 000: No error  DBUTL? ??,288  IMAGE 288: Specified volume could not be found.  Description: "The ?? command is used to display DBUTL error messages. The command""takes an optional parameter which specifies the number of a specific" message to be displayed. If no parameter is supplied, the last issued error message will be displayed. ""ACAC*Display/change database or system access  Format: AC,database,accessmode %Where: database is the root file name for the database whose access %% is to change, or * to change IMAGE subsystem access.% " accessmode is the desired access mode. RO means to allow"$ only read-only access, RW means to allow read and $" write access, DI means to disallow all access."" If omitted, no change is made, and the current" access mode of the database is displayed.  Example: DBUTL? AC,DBUSA:1,RO  DATABASE ACCESS MODE=READ-ONLY  Description: !The AC command is used to define the accessibility of a database or !$the IMAGE subsystem. It is available only to the database administrator. $""ARAR*Archive roll forward log file Format: AR,logfile,backupmedia,verifyoption  #Where: logfile is the physical name (i.e. +RLxxx) of the roll#! forward log file to be archived. The file! must not be currently in use.  % backupmedia is the backup device LU number (must be a magtape). %  verifyoption is V to verify Example: DBUTL? AR,/IMAGE2/+RL001,8,V  ARCHIVING /IMAGE2/+RL001 TO 8 VERIFYING  VERIFY COMPLETE ARCHIVE COMPLETED Description: "The AR command is used to make a mag tape copy of an old roll forward " log file residing on disc. It is available only to the database "administrator. This provides the capability to consolidate the roll"forward log on magnetic tape, and to reuse disc space.""BKBK*Put backup timestamp information into root file  Format: BK,database-name  where: database-name is the database root file descriptor to be backed up  Example: DBUTL? bk,dbusa:1:20  DATABASE TIME STAMPED  YOU MUST NOW BACKUP YOUR DATABASE  Description: "The BK command is necessary when using NON-IMAGE backup utilities AND "!when roll forward logging is being used. This command must be used !"prior to doing the actual backup. Database access will be disabled,"$and IMAGE need not be active. The BK command sets the required flags in$ the database, so that the restoration of the backup will have the the necessary information to allow roll forward recovery.  The BK command is not necessary when using IMAGE backup utilities (ST or UL commands). ""BLBL*Display/change before-image log file definition Format: BL,dirpath,size  "Where: dirpath is the directory path for the new log file. (Defaults "% to /IMAGE2). If PURGE is entered, the current before-image%% file is purged and the before-image file is left undefined. %# IF omitted, no change is made, and the current log file # definition is displayed.  size is the size in blocks of the new log file. (minimum = 700; default = 2000)  Example: DBUTL? BL,,5000 BEFORE IMAGE FILE=+BLF::IMAGE2:1:5000:128 Description:  The BL command is used to define the IMAGE before image log file. It is available only to the database administrator. ""CLCLDisplay/recover IMAGE subsystem resources  Format: CL Examples:   DBUTL? CL  # CLNUP? PROGRAM DBASES? LOCKS? TRANS? MASTER NODE ## ------ ------- ------- ------ ------ ------ ------## YES RDB02 YES NO YES DBT76 000023# NO TST01 YES YES YES# ------ ------- ------- ------ ------ ------ ------#Description:  The CL command displays a table indicating the resources held by IMAGE user programs. Resources which are held by programs which !have aborted, are cleaned up (indicated under the 'CLNUP' column).!"Their transactions are undone,(( locks released and databases closed. """EXEXExit DBUTL Format: EX Example: DBUTL? EX  DBUTL finished Description: The EX command is used to terminate execution of DBUTL. ""HEHEGet help about commands and error messages  Format: HE,keyword  $Where: keyword is the specific item for which information is desired,$$ and indicates the command name, error number, or other$$ keyword found in the help file. If omitted, a menu of$ the available keywords is displayed. Examples:  DBUTL? HE,101  ILLEGAL DATA ITEM REFERENCE. " An invalid data item name or number was given." Description: 'The HE command is used to get information about commands and errors of DBUTL. '&For errors, HE gives the full error message, and a short description of the &#possible problem. For commands, HE gives the format of the command and #descriptions of the required and optional parameters. ""LDLDLoad database from data file Format: LD,datafile,database,level !Where: datafile is a file descriptor of the DBULD storage file.! " database is the database root file descriptor to be loaded" level is the highest level word associated with the  specified database.  Example: DBUTL? LD,/BACKUPS/UNLOAD.DAT,DBASE:SC:100,WRITE  SCHEDULING DBLOD DATABASE LOAD COMPLETED. Description: &The LD command is used to load a database with information from a data file.&%The data file must contain encoded information (created by the UL command), %and is used to create the specified database. ""LGLG*Display/change database or system logging mode  Format: LG,database,loggingstate Where: "database is the database root file descriptor whose logging mode "" is to change, or * to change the IMAGE subsystem mode." $loggingstate is IN for intrinsic-level logging, RB for rollback logging, $% RF for roll-forward logging (spooled), or RFN for nonspooled%# roll-forward logging. If ommitted, no change is made and # the current logging state is displayed.  Example: DBUTL? LG,*,RF SYSTEM LOGGING STATE=ROLL FORWARD  Description: "The LG command is used to define the logging state for a database or"$the IMAGE subsystem. It is available only to the database administrator. $$The logging state for a database is either intrinsic logging only (IN) or $#transaction logging. Transaction logging is obtained if RB, RF or RFN#$is entered and the logging state of the database will be whatever system$logging state is enabled at the time the database is opened. !NOTE REGARDING ROLL-FORWARD LOGGING AND DATA INTEGRITY!"When the roll-forward log is spooled (RF), it is possible in the case ""of both disc crash AND power failure to lose the last few log records " which were buffered in memory. The consequence is that committed transactions (for which DBEND returned successful), executed just #prior to a disc crash/power failure combination, might not be recovered #by the roll-forward recovery process. "Therefore, the RFN logging state was added to disable spooling to the " roll-forward log, which means that the transaction is immediately posted to the log. If the log is a magnetic tape, there may be !SEVERE performance penalties to pay for having 100% data recovery.!Transaction throughput would be at the speed of the magtape.""LLLLDisplay/change DBUTL list file  Format: LL,listfile  "Where: listfile is a file descriptor to which DBUTL list output "! is to be written. (If omitted, current list! file is displayed).  Examples:  DBUTL? LL,6  DBUTL LIST FILE= 6  Description: !The list file is used for messages which might want to be saved by!the user or which are typically very lengthy. For example, the "resource list produced by the CL command is printed to the list file. """LOLODisplay/change DBUTL log file   Format: LO,logfile  #Where: logfile is a file descriptor to which DBUTL log information # is to be written. (If omitted, current log is  displayed).  Examples:  DBUTL? LO,/MYDIR/DBUTLLOG  DBUTL LOG FILE= DBUTLLOG::MYDIR  Description: "The DBUTL log file is where most DBUTL response messages are printed. "!Typically these messages are not the type which should be saved so!the log file is defaulted to the user's terminal. If a file is  specified which does not exist it is created. If it does exist, the end of file is reset to the beginning of the file.""MWMW*Enter/change DBUTL maintenance word  Format: MW,option  #Where: option is CH if you want to change the maintenance word. # Example: DBUTL? MW,CH ! MAINTENANCE WORD?{current} ( words are not echoed )! NEW MAINTENANCE WORD?{new} ENTER AGAIN TO CONFIRM?{new} Description:  The MW command is required for all critical commands. Before a "critical command can be executed the MW command must be executed and""the correct maintenance word entered. An all blank maintenance word"!is equivalent to no security (critical commands can be executed). !"This is the default situation the first time DBUTL is run. It is up"to the database administrator to set system security. If the #maintenance word is all blanks, any input (including carriage return) #will be accepted in response to the MAINTENANCE WORD? prompt. ""NSNS*Define/display a new roll forward log set  Format: NS,setname  Where: setname is the logical name for the new set. Description: $The NS command is used to change/define the roll forward log set. This $&command should be used whenever the logging mode is changed to rollforward, &"unless no modifications were done to any databases while rollforward "#logging was not enabled. All databases should be backed up with DBSTR #$after issuing the NS command since roll forward recovery is not allowed $$across log sets. NS without a set name will display the log volumes in $the current set.""RBRB*Perform roll back (soft crash) recovery  Format: RB,statistics,halt  #Where: statistics is an optional parameter for specifying detailed## or summary statistics for the roll-back recovery## process. 'SU' specifies summary stats, 'DE' for# detailed statistics. Default is 'SU'.  ! halt is either 'AB', 'CO' or can be omitted. 'AB'!" (the default) informs the recovery program to "# abort recovery if an error is encountered. 'CO'#! causes DBRBR to ignore most errors, and will!" allow IMAGE to be started up even if an error "! occurs during recovery. Use 'CO' only when !! normal recovery has failed and the databases! MUST be usable (even if logically bad).  Example: DBUTL? RB,SU  BEGINNING ROLL-BACK RECOVERY!  ROLL-FORWARD LOG RECOVERED!  ROLL-BACK RECOVERY COMPLETE!   {... a list of transactions being undone ...} {... a list of 'last known actions' ...}  DBRBR DONE! DBUTL? Description: The 'CO' option to ignore recovery errors is DANGEROUS to use! DBRBR normally quits upon encountering an error and will expect that some corrective action will be taken. If the 'CO' optionis given, however, nearly all errors (except fatal ones) are ignored, which can leave databases logically and even physically corrupt, but will recover as much data as possible and allow IMAGE to start up.  ""RFRF*Perform roll forward (hard crash) recovery  Format: RF,statistics,halt,filename,historyfile  Where: $statistics is SU (summary statistics) or DE (detailed statistics). If$ omitted, no statistics will be given.  %halt is either AB, CO or not specified. AB (the default) informs%! the recovery program to abort recovery if an error is ! encountered. See manual for details on CO.   filename is a file descriptor of a file containing names of " databases to be recovered. If the descriptor refers to "$ an interactive device, prompts for the names will be given. $ #historyfile is a file descriptor of a file containing a roll-forward## log set name (first line) and a list of roll-forward log#! volume file descriptors and number of subvolumes (one !$ line for the file descriptor, the next line for the number$# of subvolumes, usually 0). If this parameter is omitted, #! the current roll-forward log set in the DBCON file is !# used. Prompts are issued if historyfile is interactive.# Description:%The RF command is used to recover one or more databases after a hard crash%%which databases have been corrupted. A backup copy of each database to be%recovered, must be restored prior to using the RF command.""RLRL*Display/change roll forward log file definition Format: RL,logicalname,media,dirpath/LU,filesize #where: logicalname is the user supp((lied name associated with the roll#" forward log file. This name is used to identify"% tapes and should go on the tape label. The default is%% VOLUMExxx where xxx is the roll forward volume number.%  media is DISC or TAPE (D or T can be used).  $ dirpath/LU if media is DISC then this parameter is the directory $# path where the physical log file is to be located.## If media is TAPE this parameter is the mag tape LU. # $ filesize is only used when media is DISC and is the file size$! (in blocks) of the log file. Minimum is 1000;! default is 10000.  Example: DBUTL? RL,,D,20,1000  ROLL FORWARD LOG SET NAME=SET1 ROLL FORWARD LOG FILE=+RL001::20 ROLL FORWARD LOG LOGICAL NAME=VOLUME001  SPARE ROLL FORWARD LOG FILE=NOT DEFINED  SPARE ROLL FORWARD LOGICAL NAME=NOT DEFINED  Description:#The RL command is used to define the logical volume name, directory and #!file size (or magtape lu) of the roll forward log file. It must be !used before rollforward logging can be enabled. ""RSRSRestore database from backup media Format: RS,backupmedia,database,level,option  Where: backupmedia is the file descriptor of the DBSTR backup.  % database is the database root file descriptor to be restored.%  level is the highest level word of the database.  # option is AB (abort) or CO (continue) upon encountering# duplicate file names.  Example: DBUTL? RS,8,QA:100:100,WRITE,CO  SCHEDULING DBRST Description: #The RS command restores a database from a previously saved version of #it saved with the ST command. ""SDSD *Shut down IMAGE subsytem  Format: SD Example:  DBUTL? SD   NO DATABASES WERE OPEN.  DISABLING SYSTEM ACCESS! SHUTDOWN COMPLETE! Description:  The shutdown command first causes cleanup to be performed, then disables system access to prevent further database opens, and if no databases are open after the cleanup, IMAGE will shut down.If any database is open, shutdown will have to be re-initiatedafter the database is closed. ""SHSHShow IMAGE subsystem status information  Format: SH  Example: DBUTL? SH   IMAGE IS NOT ACTIVE  SYSTEM ACCESS MODE=READ WRITE  SYSTEM LOGGING STATE=INTRINSIC ONLY  WARNING LOG FILE= 1  BEFORE IMAGE FILE=+BIF::20:1:2000  TRANSACTION LOG FILE=+TLF::50:1:1000 ROLL FORWARD LOG FILE=+RL001::50 SPARE ROLL FORWARD LOG FILE= 8 Description: !The SH command gives information about IMAGE subsystem logging and!"access. The information is written to the DBUTL list file. The SH "#command is a quick way to find out information with one command which #!would normally only be displayed by executing individual commands.!""SLSL*Display/change spare roll forward log file definition Format: SL,logicalname,media,dirpath/LU,filesize #where: logicalname is the user supplied name associated with the roll#" forward log file. This name is used to identify"% tapes and should go on the tape label. The default is%# VOLUMExxx where xxx is one greater than the current # roll forward volume number.   media is DISC or TAPE (D or T can be used).  $ dirpath/LU if media is DISC then this parameter is the directory $# path where the physical log file is to be located.## If media is TAPE this parameter is the mag tape LU. # $ filesize is only used when media is DISC and is the file size$ (in blocks) of the log file. Example: DBUTL? SL,,TAPE,8  SPARE ROLL FORWARD LOG FILE= 8 SPARE ROLL FORWARD LOG LOGICAL NAME=VOLUME003  Description: !Sets a spare roll forward log file so that roll forward logging can !continue when the roll forward log file runs out of room. ""STSTStore database onto backup media Format: ST,backupmedia,database,level,option,verify   Where: backupmedia is the file descriptor of the backup file.  (LU number of a tape device is ok, too). % database is the database root file descriptor to be restored.% level is the highest level word of the database.  $ option is AB to abort if the end of the storage device is$# reached during backup; CO to continue under this# condition. If omitted, DBSTR asks the user  interactively for the abort word.  # verify is VE for verify; NV for no verify. If omitted,#% DBSTR asks the user interactively for verify option.% Example: DBUTL? ST,/BACKUPS/STORE,QA:100:100,WRITE,AB SCHEDULING DBSTR Description: "The ST command schedules the DBSTR utility and saves a complete copy"of the specified database including structural information. If "backupmedia is a file, DBSTR purges it if it exists and creates a new " one with the size needed to hold the whole database, if possible. #If the EOF of the storage is reached, DBSTR asks the user for the next#"storage file to be used. After storing the data, DBSTR truncates the " file to a size just large enough to hold the data it has stored. !NOTE: a file created by DBSTR cannot be moved via FMGR ST command. !""SUSU *Start up IMAGE subsystem  Format: SU Examples:  DBUTL? SU  IMAGE STARTED. Description: "The SU command starts up the IMAGE subsystem by scheduling the IMAGE""programs DBMON and DBCLN. If rollforward logging is enabled DBSPL is "$also scheduled. DBCLN, DBMON and DBSPL must all exist on /PROGRAMS.DIR.$""TLTL*Display/change transaction log file definition   Format: TL,dirpath,size  "Where: dirpath is the directory path where the transaction log file"$ will be placed. If PURGE is entered for this parameter, $% the current transaction log file is purged. If defaulted,% the directory /IMAGE2 is chosen.  size is the transaction log file size in blocks.  Minimum is 1000; default is 5000. " If both dirpath and size are omitted, the current transaction " log file is displayed. Example: DBUTL? TL,,2000 TRANSACTION LOG FILE=+TLF::IMAGE2:1:2000  Description:  The TL command is used to define the IMAGE transaction log file. It is available only to the database administrator. ""TRTRTransfer DBUTL control to a command file  Format: TR,commandfile   Where: commandfile is a file descriptor of a file containing  DBUTL commands, one command per line.  Examples:  DBUTL? TR,/BACKUPS/DBUTL_BACKUP.CMD  Description: The TR command allows batch input of DBUTL commands from a file "previously created by the user. TR without a command file parameter""can be used from within the command file to transfer back out of the" command file. TR outside of a command file will return an error. $TR with a command file parameter done inside of a secondary command file$will return an error (transfer files cannot be nested). ""ULULUnload database to data file Format: UL,datafile,database,level,option  "Where: datafile is a file descriptor where the database data" will be stored, such as a magtape LU.  # database is the database root file descriptor to unload. # ! level is the highest level word of the database.! # option is AB to abort at end of backupmedia, and CO to # continue at end of backupmedia.  Example: DBUTL? UL,/BACKUPS/UNLOAD,STORE:500:XX,MODIFY,AB  SCHEDULING DBULD  DATABASE UNLOAD COMPLETED.  Description: "The UL command schedules DBULD to unload the data in a database to a"%specified file (or tape). No media information is saved from the database%and the LD command must be used to restore the database.""WLWL *Display/change warning log file definition  Format: WL,logfile  #Where: logfile is a file descriptor where warning information from# IMAGE subsystem programs will be placed.  Example: DBUTL? WL,/IMAGE2/warnings  WARNING LOG FILE=WARNINGS::IMAGE2:3:20  Description: %The IMAGE subsystem programs (DBMON, DBCLN, and DBSPL) use the warning log%$for recording important events related to log files, or internal errors.$&The default is the system console (system LU 1), but a file can be specified. &""-1-1 REMOTE ERROR. ! If a -1 is returned in the first word of ISTAT, then the! second word will be one of the following:  -159 = unsupported intrinsic -158 = out of class numbers  -144 = RDBAP copy gone -156 = busy system""12 12  EOF OR BOF ON SERIAL READ.  Occurs on forward or backward serial reads after the last record has been read.""1  1  DISC ((ERROR.  The disc driver returned an error.""0  0 NO ERROR. The operation completed successfully. ""100 100  ILLEGAL DATA SET REFERENCE. An invalid data set name or number was given. ""101 101  ILLEGAL DATA ITEM REFERENCE.  An invalid data item name or number was given.""102  ITEM IS NOT A KEY ITEM.  For DBFND, the item given was not a key item. ""103  DATABASE NOT OPEN TO USER OR ILLEGAL IBASE PARAMETER.  The database is either not open, or the parameter is illegal. For segmented programs, DBBUF must reside ! in the main portion of the program and not the segments.!""104  OPEN MODE NOT SUFFICIENT FOR ACCESS. The database was not opened with write access or the database was not enabled with write access (see the AC command in DBUTL). No modifications to the database are allowed. ""105  DETAIL DATA SET IS FULL. No free record exists in the detail data set. ""106  MASTER DATA SET IS FULL. No free record exists in a master data set. ""107  MASTER RECORD DOES NOT EXIST FOR KEY.  No manual master record existed for a given key value. ""108  ATTEMPT TO MODIFY AN AUTOMATIC MASTER RECORD.  Automatic master records cannot be modified by anyone  but IMAGE internals. They can be read, however.""109  A CRASH HAS NOT OCCURRED.  Roll-back recovery cannot be executed unless IMAGE has # crashed, such as power failure or the DBMON program aborting.#""110  MANUAL MASTER RECORD ALREADY EXISTS FOR KEY VALUE. Each record in a master data set must have a unique  key value. An attempt was made to add a record whose  key was already in the set. ""111  PATH IS NOT INITIALIZED. DBFND must be called to set up chain pointers before a  chained read can be performed.""112  KEY, SORT, AND NONWRITEABLE ITEMS CANNOT BE ALTERED.# A DBUPD request cannot modify key items (chain restructuring## would be forced), sort items (sort chain restructuring would#$ be forced), or nonwriteable items (item can be read and passed$ to DBUPD but must not be modified). ""113  MANUAL MASTER RECORD STILL HAS LINKS TO CHAINS.  Manual master records may only be deleted when no  detail records are linked to the master record. ""114  RECORD IS EMPTY. Either a directed read to an empty record occurred, or ! another user deleted the record before you could read it. !""115  INVALID MODE NUMBER.  An illegal mode number was given. ""116  FILE SPECIFIED BY IBASE PARAMETER WAS NOT A ROOT FILE. A file matching the ibase parameter existed, but it " was not a database root file. (NOTE: You may be accessing"# a root file created by an earlier revision of DBDS or DBSTR.# Please refer to DBUPGRADE in the configuration guide). ""117  SECURITY CODE DOES NOT MATCH DATABASE SECURITY CODE.  A file matching the ibase parameter was found, but the security codes did not match. ""118  DATA SET CANNOT BE ACCESSED. The level of access for the database (at DBOPN time)" is not high enough to allow even read access to this set. """ 119  ROOT FILE DOES NOT EXIST.  The file specified by ibase could not be found. "" 120  NOT A DETAIL DATA SET.  For DBFND, the set reference must be a detail set."" 121  NO MASTER LINKS TO THIS DATA SET. ! No chains exist to the specified detail set. (DBFND and ! chained reads cannot be performed on such a set). "" 122  CHAINED READ CANNOT BE PERFORMED. $ A detail set with no paths has no chains to do chained reads. $"" 123  DATA SET IS NOT A MASTER. " Hashed (Keyed) reads can only be performed on master sets.""" 124  ILLEGAL DBINF MODE.  Self explanatory. "" 125  ILLEGAL SET OR ITEM REFERENCE IN DBINF REQUEST.  The set or item reference given in the DBINF call  was illegal; (does not exist, out of bounds, etc)."" 126  HARD CRASH HAS OCCURRED. ! The database monitor program has had a fatal disc error ! and no more database modifications will be allowed. "" 127  CLASS NUMBER ERROR.  Not enough class numbers available on system or IMAGE  subsystem is corrupt. "" 128  NOT ENOUGH SPACE IN PROGRAM PARTITION FOR RUN TABLE. Solution is to increase the background size of the program by using the SZ command. For PASCAL programs  using HEAP1, the IMAGE compiler option must reserve  more space for IMAGE. ""129  ROOT FILE IS OPENED EXCLUSIVELY TO ANOTHER USER.! No access will be allowed until the root file is closed.!""130  DATABASE REQUIRES BACKUP.  The database must be backed up before modifications ! are allowed. A new log set may have been defined; this ! requires all databases on the system to be backup up. " Modifications are also not allowed if roll forward logging" has been ENABLED FOLLOWING a period of time in which! database modifications have been made. A backup (DBSTR)! must be taken in order to clear the rootfile flags which prevent further database modifications. ""131  COORDINATION TABLE IS FULL.  Either the user's local co-ordinating table is full ! (dbbuf has entries for a maximum of 20 databases) OR the! number of concurrent DBOPNs has reached 100 on the$ system. The latter is probably due to aborted programs whose $! IMAGE resources have not been cleaned up. Use the DBUTL! cleanup command. ""132  NO CLASS NUMBER OR RESOURCE NUMBER AVAILABLE. ! A class number or resource number could not be acquired.! More class numbers will have to be allocated at  system generation time, or some application may be gobbling up these system resources. ""133  CLASS READ ERROR. $ An attempt to read a class message failed. This is generally $! caused when the message buffer size is too large to fit ! in available memory. Although this error signifies an ! IMAGE bug, it can usually be circumvented by increasing ! the size of the application program.""134  IMAGE NOT ACTIVE # DBMON cannot execute the request because IMAGE is shut down # or inactive (system access disabled). ""135  DATABASE IS LOCKED AND UNLOCK ATTEMPT HAS FAILED.  Bad news. Best likely solution is to abort the program ! and use the DBUTL cleanup command to clear out the lock.!""136  REQUESTED LOCKS CONFLICT WITH ANOTHER USER'S LOCKS.  (RETURN FROM LOCK WITHOUT WAIT REQUEST). This condition should only be temporary. If a lock  conflict continues for any long period of time it is likely that a program either aborted or ended without  releasing its locks. The Recovery program can be used  to clean up locks.""137  RESOURCE NUMBER PROBLEM. Possible reasons are a temporary shortage of resource  numbers, not enough resource numbers generated in, or  an IMAGE internal error (bug).""138  UNRECOGNIZED MESSAGE FROM CLASS READ.  An unrecognized message was sent to an IMAGE program.  Most likely due to an application being loaded with a % different revision of IMAGE software than DBMON or other utility. %""139  IMAGE HAS NOT BEEN INITIALIZED.  Use the DBUTL startup command to bootstrap IMAGE.""140  DBCOP COULD NOT BE SCHEDULED.  DBCOP could not be scheduled. Make sure it is  RPed. ""141  INVALID PROGRAM REQUEST. An IMAGE program received a command from a program  other than those allowed.""142  TRANSACTION LOG FILE IS FULL. ! IMAGE has already started a system cleanup. If repeating!! of the request fails, the culprit will be a program with !" a LONG transaction which has consumed file space. Options "" are to terminate the offending program or disable logging. """143  IMAGE NOT STARTED.  Use the DBUTL 'SU' command to begin IMAGE processing.""144  BEFORE-IMAGE FILE IS CORRUPT. # The before-image file contains snapshots of database records #" prior to being modified. The snapshots have been destroyed"! and recovery cannot be executed. All open databases are !! potentially corrupt. Use the DBUTL command RF to perform! hard-crash recovery for the open databases.""145  LOGICALLY INCORRECT DATABASE. ! An error occurred during undoing or redoing log records.!" Several possible reasons exist: Trying to re-add a record"# and finding the entry already occupied, trying to re-delete# or reupdate a record which looks different than it did ! before, etc. The problem may have been caused by turning !! roll-forward logging off for an interval and(( then trying! to do hard crash recovery.""146  SOFT CRASH. " The system has crashed or an IMAGE subsystem program (DBMON, "" DBCLN, or DBSPL) has aborted abnormally. Perform roll-back" recovery using the DBUTL command 'RB'. This will bring all databases back to logical and physical consistency. ""147  INTERNAL COMMUNICATIONS FAILURE. IMAGE programs communicate through class I/O and somehow  a class I/O message could not be sent. ""148  RECEIVED MESSAGE WAS CORRUPT. ! A class I/O message was received and found to be garbage.!""149  DBMON INTERNAL ERROR. " DBMON has had an error occur which should not have occurred. "! Perform roll-back recovery to restore logical and physical ! integrity to all active databases, since this is for all  intents and purposes a Soft Crash. ""150  DATABASES ARE OPEN - IMAGE CANNOT SHUT DOWN.# IMAGE can only shut down when there is no database activity. # All databases which are open must first be closed. Use $ the CL command to determine which programs have open databases.$""151  LOGGING IS NOT ENABLED. $ DBBEG, DBMEM, DBEND and DBUND calls required logging to be on.$$ The DBUND call requires log records to undo your transaction. $ When logging is turned off, no log records are made.""152  DATABASE OPEN IN AN INCOMPATIBLE MODE. Compatible mode matrix: 'X' for yes, '-' for no. # 1 3 5 8 For example, a database open to one user in#$ +---------+ mode 8 can be opened by you in modes 5 or 8. $! 1 | X - X - | A database opened exclusively cannot be! 3 | - - - - | opened by anyone else in any mode.  5 | X - X X | 8 | - - X X | +---------+  ""153  NO ACCESS TO DATABASE AT THIS LEVEL. No part of the database was even read accessible with  the level word which was given. Probably the level  word given was not defined in the database schema.""154  DATABASE CHAIN POINTERS CORRUPT. Hard crash recovery must be invoked since the database  structure is corrupt and possibly the data as well. # Use the DBUTL command 'RF' to execute roll-forward recovery.#""155  BEGINNING OR END OF CHAIN FOUND. The beginning or end of chain has been encountered.  ""156  DETAIL SET HAS NO ENTRIES FOR SPECIFIED CHAIN. The DBFND for the particular key value has a defined! master record but no chain exists for that value in this! data set. ""157  NO CURRENT RECORD FOR DATA SET. " A record must be read before it can be updated or deleted."""158 RTE-A REMOTE PROGRAMS MUST BE NON-SESSION PROGRAMS.  A user program doing remote database access must be a # non-session program in RTE-A. This restriction is made because # Image uses DEXEC calls to check the status of the master program and DEXEC only recognizes system programs.""159  USER ATTEMPTED TO UPDATE, PUT OR DELETE A RECORD WHICH HE HAD NOT LOCKED. (DBOPN-MODE 1 ONLY). A program must lock any records which it intends to  modify, add or delete.""160  IMAGE DATA STRUCTURES ARE CORRUPT. IMAGE internal tables have been trashed. Possibilities  are DBBUF not relocated with the main or the program  overwriting IMAGE code space.""161  CORRUPT DATA IN DATABASE RECORD. This error only occurs when checksum option is on. The ! chain information is physically correct, but the checksum! indicates that the data in the record is incorrect. Hard crash recovery is necessary to restore logical consistency. (DBUTL command 'RF').""162  MISSING PARAMETER.  All necessary parameters were not specified. ""163  SUBROUTINE CALL NOT ALLOWED. The 92069 IMAGE product returns this error for calls  such as DBBEG, DBEND, etc. which are not a feature of that product. ""164  TRANSACTION ALREADY IN PROGRESS. A program called DBBEG when a transaction was already $ open. A single program may have only one active transaction. $""165  NO TRANSACTION IN PROGRESS.  A program called DBEND when no transaction exists.""166  INVALID ilen LENGTH IN DBBEG, DBEND, DBMEM, or DBUND call. ! Valid ilen lengths are 0 (no message) to +256 for words ! or -512 to -1 for the number of bytes.""168  TRANSACTION TABLE FULL. # More than 100 transactions are active on the system (or node)#! simultaneously. There may be aborted programs which IMAGE !! believes are active which have open transactions. Use the !! DBUTL command 'CL' to clean up aborted program resources.!""169  IMAGE PROGRAM SCHEDULED IMPROPERLY.  An IMAGE program (DBMON, DBSPL or DBCLN) should not be  run by a user; only DBUTL should schedule those programs. ""170  DBSPL COMMUNICATION ERROR. DBMON could not communicate with DBSPL. DBSPL may have " had a fatal error and terminated. Check the IMAGE warning log. """171  TRANSACTION LOG OPEN ERROR! Error was encountered when trying to open the transaction! log file. Has the +TLF file been purged, or is it on an  unmounted disc volume? ""172  DATABASE ACCESS IS DISABLED  Database access has been disabled. All programs that! have opened the database prior to the disable, are allowed !! to continue until it is closed. No new opens are allowed. !""173  DBCLS OR DBUNL CANNOT BE CALLED WITHIN TRANSACTION.  Recovery is made simpler by disallowing these calls to  be made between a DBBEG and DBEND. ""175  TRANSACTION NUMBERS ARE USED UP. Shut down IMAGE and back up all databases. Then  define a new log set. Use the DBUTL commands: 'SD' for  shutdown, 'ST' for DBSTR functions, and 'NS' for defining a new log set. ""176  A LOGGED TRANSACTION CANNOT SPAN SYSTEMS.  The program attempted to modify two databases residing on different systems, and logging was  enabled for both databases. Solutions are to disable logging or place both databases on the same system.""177  INVALID NUMBER OF LOCK DESCRIPTORS. ! The first word of the lock descriptor array was negative.!""178  INVALID DESCRIPTOR LENGTH. The length of a descriptor was either negative, zero or less than required for the lock. See the DBLCK call in the IMAGE reference manual for details. ""179  THE LOGICAL END OF TRANSACTION LOG FILE WAS ENCOUNTERED. The logical end of transaction log file has been reached while trying to read from it (internal error). ""180  ERROR IN SENDING/RECEIVING MESSAGE FROM DBMON. An error occurred in communicating with DBMON. It may  have aborted. Run DBUTL for a status check.""181  ERROR ENCOUNTERED WHEN OPENING THE ROLL FORWARD LOG. An error was encountered when trying to open the  roll forward log file. Has the file been purged? Is it on an unmounted disc volume? ""182  EMA MAPPING ERROR. " DBMON, DBRFR or DBRBR failed in its attempt to map in some"! portion of its EMA. This is a soft crash, so use the 'RB' !$ commad in DBUTL to restore databases to good condition. Perhaps$ you have discovered a BUG! However, try assigning DBMON # to a different size EMA partition and see if the bug reoccurs. ## It may have been flaky memory if the bug disappears. There is ## also the possibility that your database root file is corrupt,# causing DBMON, DBRFR or DBRBR to pass wrong data to its " mapping routines. If this error occurs only when accessing"$ a particular database, then your database root file is probably$ corrupt. ""183  RESOURCE CLEANUP ERROR. " DBMON was unable to complete cleanup of IMAGE resources due"$ to some non-recoverable error (most likely file-system related). $" Therefore, some transactions may still be open, locks still"# allocated and databases open. The condition may be temporary, # in which case the cleanup may succeed if tried again.""184 ! IBASE PARAMETER IN DBUND OR DBEND DOES NOT MATCH WITH DBBEG.! The same ibase parameter used in the DBBEG call must  be used in a DBUND or DBEND call.""185  ATTEMPT TO MODIFY A READ-ONLY DATABASE.  The database was created or assigned with read-only! access. DBDEL, DBPUT and DBUPD calls cannot be performed! on a database with read-only access. ""186  RELATED MANUAL MASTER ENTRIES NOT LOCKED. " To delete a detail record, all related master records must" also be locked (to guarantee the recoverability of any ! arbitrary transaction). IMAGE/1000 automatically locks ! master datasets related to a detail which is locked.""188  FILE IS NOT A DATASET. One of the dataset files is not a type 2 file. ""189  CORRUPT TRANSACTION LOG FILE.  (( IMAGE is still active at this point, and all databases " are physically intact, but probably not logically correct." Shut IMAGE down (DBUTL command 'SD') and perform hard  crash recovery (DBUTL command 'RF').""190  DBCON OPEN ERROR ! An error occurred when attempting to open the DBCON file.! The DBCON file must reside the /IMAGE2 directory.""191  DBCON READ ERROR ! An error occurred when attempting to read the DBCON file.! Is the disc powered up? Could also be a hard crash. ""192  DBCON WRITE ERROR An error occurred when attempting to write to the DBCON  file. Is the disc up? Could be a hard crash.""193  ERROR IN SPOOL INITIALIZATION  DBSPL encountered an error during its initialization " phase which includes opening the transaction log and roll- "! forward log file. Do these files exist? Restart IMAGE. !""195  WARNING LOG FILE ACCESS ERROR  An error occurred while trying to open, read from, or write to the warning log file. The file may be full. Redefine a warning log.""196  ROLL-FORWARD LOG IS INCONSISTENT WITH DATABASE. $ A database cannot be modified that has had roll-forward logging$" turned off, changes made to it, then logging turned back on. "" This is to prevent unlogged 'gaps' in the roll-forward log." You must back up the database using either the 'ST'$ commands in DBUTL, OR you can turn logging off for the database. $""199  TAPE PARITY ERROR  A tape parity error was encountered when accessing  the roll forward log.""201  ILLEGAL DATABASE NAME # The database root file descriptor contains illegal characters, # has illegal syntax, or was omitted.""202  INCORRECT DATABASE SECURITY CODE! The wrong security code was given in the ibase parameter.!""203  INPUT DEVICE/FILE WAS EMPTY. The input file or device had no data in it.""204  NOT ENOUGH DATA GIVEN FOR A RECORD. " A record read from the input file or device was not of the " proper length. ""205  $SET OR $END LINE WAS NOT FOUND. This error occurs in DBBLD because $SET or $END was missing in the input file. ""206  INTEGER FIELD WAS NOT VALID.# Either the field contained illegal characters, or the field #$ is not properly defined. (Default characters per line is 72).$""207  REAL NUMBER FIELD WAS NOT VALID." Either the field contained illegal charactes or the field "# is not where you expected. (DBBLD defaults to 72 characters# per line). ""208  UTILITY ERROR! DATABASE MAY BE BAD.# Internal IMAGE backup/restore program error. Retry a backup#! operation, or pray for a miracle if the restore failed. !""209  UNEXPECTED INPUT EOF. ! The tape/file containing database input ended before it ! should have. Did someone write an EOF on your tape?""210  SPECIFIED DEVICE WAS ILLEGAL. # The LU given did not meet requirements for being an input or#" output device. (Can't read from a printer, for example). " Remember, too, that negative LU's are not allowed.""211  LEVEL WORD WAS NOT THE HIGHEST. # The level word passed to DBBLD, DBLOD, DBULD, DBRST, or DBSTR# was not the highest as defined in the database schema. ""212  BACKUP STORAGE INPUT WAS BAD. ! Tape/file is corrupt (Parity error, trashed sector, etc.), ! or is not the correct format.""213  WRONG DATABASE SECURITY CODE.  An incorrect security code for the root file was given. ""214  DATABASE SUBCHANNELS CHANGED. # Rootfile and related datasets must be on the same subchannel. # (DBSTR and DBRST produce this error). ""215  BACKUP STORAGE FILE NOT FOUND. Does that file/tape exist?""216  DISC FILE SIZE AND BACKUP SIZE DIFFER.$ The database rootfile or dataset size differs from the size on$ the backup media. ""217  THERE IS NO DATA TO UNLOAD.  The database is empty.""218  NODE OR COLUMN PARAMETER ILLEGAL. ""219  NO ROOM FOR ROOT FILE ON THE DISC.# The disc volume does not have enough space for the root file. #""220  DBBLD ENCOUNTERED AN I/O ERROR.  List file may be full, device may be off-line, etc. ""221  DBRBR ENCOUNTERED AN INTERNAL ERROR.# DBRBR discovered some corruption of its internal structures.#""222  DBRFR ENCOUNTERED AN INTERNAL ERROR. Internal tables may be corrupt. Retry. ""223  DBRFR ENCOUNTERED AN ERROR WHILE CREATING A SCRATCH FILE.  The /SCRATCH/ directory does not have enough space for  DBRFR's transaction ID scratch file. Either make room on  the disc containing /SCRATCH.DIR or move /SCRATCH.DIR to a volume with more free space.""224  DBRFR ENCOUNTERED AN ERROR WHILE OPENING A LOG VOLUME. The roll forward log volume DBRFR is trying to open  could not be opened. Has the log file been purged?  Is the log file on an unmounted disc volume? If the log is on a tape, the wrong lu may have been given, the lu may  have been locked, or otherwise inaccessible to DBRFR. ""225 ! DBRFR ENCOUNTERED AN ERROR WHILE ACCESSING ITS SCRATCH FILE.! DBRFR could not read from or write to the scratch file which it had created. ""226  DBRST WAS GIVEN A WRONG VERSION DBSTR STORAGE FILE. ! Either 92081 DBRST was given a storage file/tape created! by 92069 DBSTR or a 92069 DBRST was given a storage  file/tape created by 92081 DBSTR. ""227  DBLOD ENCOUNTERED DATA SETS WHICH WERE NOT EMPTY.  92081 DBLOD requires that data sets exist and that they  be empty. Before using DBLOD, create the data sets  using DBDS. ""228  ILLEGAL VERIFY OPTION IN DBSTR RUN STRING. The verify option parameter in the dbstr run string is $ illegal. Use VE for tape verify or no parameter for no verify. $! Verify is performed only for mapnetic tape storage files. !" 229 I/O ERROR ON STORAGE. Usually due to an unexpected abort on an EXEC call to a  non-disc device. The tape LU may not have been legal. ""230  TAPE IS NOT WRITE ENABLED. Magtape needs a write ring or CTD tape write-protect  lock must be disabled.  ""231  TAPE IS OFFLINE. ! Magtapes must be mounted and on-line, or CTD tape must be! mounted and not busy.""232  DEVICE LOCK ERROR. " An attempt to lock a device failed. Some other program may"" have the device locked or there may be no resource numbers."""233  DEVICE UNLOCK ERROR. An attempt to unlock a device failed. The device may be offline. ""235  NOT ENOUGH ROOM IN FILE FOR DATABASE.  The backup file isn't big enough to hold the database. ""236  NOT ENOUGH ROOM ON TAPE FOR DATABASE. # The database is too big to fit on one tape. To use multiple#! tapes, use the 'CO' option to continue to the next tape.!""241  PROMPT DEVICE MUST BE INTERACTIVE.# 'Interactive' means something like a terminal. The default # prompt device is the terminal you are at. ""242  WRONG VOLUME. % The wrong roll-forward log volume was given. Verify the correct% tape/file is specified. ""243  SPECIFIED ROOT FILE DOES NOT MATCH STORAGE.  The root file specified in DBLOD or DBRST does  not match the root file on the backup. ""244  DBRST MUST PUT ROOT ON SAME DIRECTORY.$ The rootfile must go on the same directory from which it came.$""245  DBRFR CANNOT BE CLONED. ! Only one DBRFR can execute at one time; to enforce this,!! DBRFR checks that its name is 'DBRFR'. On RTE-6, cloning !# can be inhibited by appending ':IH' to the program file name. #""247  PROGRAM WAS BROKEN WITH BR COMMAND. ! 'BR' is a system breakmode command, not a DBUTL command.!""248  ILLEGAL ABORT OPTION IN RUN STRING.  DBSTR was scheduled with an abort option other than AB  or CO. (Only capital AB and capital CO are accepted; DBUTL will upshift for you, however.)""249 ILLEGAL STATISTICS OPTION IN RUN STRING.! The IMAGE recovery commands allow an optional statistics ! parameter which is 'DE' for detailed stats, or 'SU' for  summary stats. The default is summary.""250  DBUTL HAS NO SUCH COMMAND.# DBUTL did not recognize the response to the 'DBUTL?' prompt. # Type HE,COMMANDS to get a list of legal commands.""251  IMAGE MAINTENANCE PASSWORD IS NEEDED. " DBUTL requires that a password be given to execute certain" privileged commands. Use the 'MW' command to give the  password, then try the command again. ""252  YES OR NO ANSWER IS REQUIRED.  No default is allowed to this question. ""253  LU NUMBER WAS ILLEGAL.""254  OPTIONAL PARAMETER WAS ILLEGAL. ! ((Ask for HElp on the command for a list of valid options.!""255  NOT ENOUGH PARAMETERS GIVEN.$ Ask for HElp on the command to determine necessary parameters. $""256  TOO MANY PARAMETERS GIVEN.# Ask for HElp on the command for correct number of parameters.#""257  A PARAMETER WAS TOO LONG.  one parameter exceeded 64 characters. ""258  RECOVERY MUST BE PERFORMED FIRST.  Hard or soft crash recovery needs to be performed first  since databases may be corrupt. ""259  PARAMETER WAS NOT A DATABASE FILE DESCRIPTOR.  The root file descriptor was illegal. ""260  FILE SIZE SPECIFIED WAS BELOW MINIMUM.! Minimum sizes are: 700 blocks for the before-image file, !! 1000 blocks for the transaction log file and 1000 blocks! for a roll-forward log file volume. ""261  PARAMETER WAS NOT OF PROPER TYPE. ! An expected integer parameter was not an integer, or an ! expected ascii parameter was not ascii. ""262  NO FILE/DEVICE TO TRANSFER BACK TO.  The TR command cannot be used outside of a command file ! without supplying the name of a command file to transfer ! to. Inside of a command file the TR command without  a parameter causes transfer back to the main level.""263  TRANSFER FILES CANNOT BE NESTED. You have already transfered to a transfer file which  has not completed execution. If you want to get out  of the transfer file, type TR without specifying a  file name. ""264  WRONG MAINTENANCE PASSWORD WAS GIVEN.  You have either forgotten your password or you are  not supposed to have access to critical commands.""265  NEW MAINTENANCE PASSWORD UNCONFIRMED.  You typed one of your passwords incorrectly. ""266  DBUTL HELP FILE COULD NOT BE FOUND.  Make sure that the file DBUTL.HLP::SYSTEM exists.""267  NO HELP INFORMATION IS AVAILABLE.  The error or command you typed in to the HE command was not found in the DBUTL help file. Make sure  that you typed in a valid error or command. If you are sure of this, report this to your local SE.""268  COMMAND NOT USEABLE WHEN IMAGE IS ACTIVE.  Refer to your manual for the set of commands which are  allowed when IMAGE is active.""269  UNKNOWN IMAGE ERROR.  This may be a bug. Report to local SE.""270  UNKNOWN FMP ERROR. ! Only common FMP errors are trapped. Some really obscure! error has occurred. Is your disc feeling well? ""271  PARAMETER MUST BE A DISC FILE. Type 0 and device files are not random-access.""272  DEVICE PARAMETER MUST BE A MAGTAPE.  Logging devices must be tapes.""273  LOGGING OPTION WAS INVALID.  Ask for HElp on the command for allowable options.""274  FILE SIZE WAS INVALID. Specified size was not positive.""275  ROLL FORWARD LOG HISTORY TABLE FULL.$ It's time to create a new log set and backup all databases on $$ the system: You just filled up 999 roll-forward log volumes. $""276  DBCON RESOURCE UNLOCK ERROR.$ A special resource number for coordinating writes to the DBCON$% file cannot be unlocked. Exit DBUTL and try the command again. %% If the condition persists, shut IMAGE down, forcibly if needed. %""277  UNEXPECTED DBUTL INTERNAL ERROR.# DBUTL generally quits if this occurs. Retry the operation. #""278  ERROR IN CREATING DBCON FILE.  You will not be able to start up IMAGE unless the DBCON file can be created. There is probably an FMP  problem somewhere (not enough space, duplicate file name, etc.). ""279  CANNOT LOCK DBCON RESOURCE NUMBER.$ There is a special resource number for coordinating writes to $" the DBCON file. This resource number cannot be locked for"% some reason. Retry the command, and if the condition persists, % shut down IMAGE, forcibly if necessary. ""280  SPARE IS SAME DEVICE AS RF LOG.  You tried to define the same magtape LU for the spare log as you used to define the roll forward log. If IMAGE had to switch to the spare when end of tape is  reached it wouldn't be able to.""281  PROGRAM COULD NOT BE SCHEDULED.  DBUTL tried to schedule a program but could not find it. IMAGE utilities in particular must reside on ::PROGRAMS. ""282  BEFORE-IMAGE FILE IS NOT DEFINED.  You cannot start up IMAGE unless this file is defined with the BL command. ""283  TRANSACTION LOG FILE IS NOT DEFINED. Roll-back logging requires a transaction log file which  can be defined using the 'TL' command of DBUTL. ""284  ROLL FORWARD LOG FILE IS NOT DEFINED.  Roll-forward logging requires a roll-forward log volume which may be a disc file or tape LU. The DBUTL command  'RL' will allow you to define a roll-forward log. ""285  PROGRAM DBMON WAS NOT SCHEDULABLE. /PROGRAMS/DBMON.RUN does not exist, or is active.""286  PROGRAM DBSPL WAS NOT SCHEDULABLE. /PROGRAMS/DBSPL.RUN does not exist, or is active.""287  PROGRAM DBCLN WAS NOT SCHEDULABLE. /PROGRAMS/DBCLN.RUN does not exist, or is active.""288  SPECIFIED VOLUME COULD NOT BE FOUND. The file specified as a log volume cannot be found. ""289  DBUTL PROGRAM MUST NOT BE CLONED. # Certain DBUTL commands can only be executed from a non-cloned ## version of DBUTL. On RTE-6, this means that DBUTL's name must be #! DBUTL (not DBU77, for example). On RTE-A, in addition to the !" RTE-6 restriction, the session id must be zero (DBUTL must be a " system program, or RP'ed from a superuser account). These " restrictions are made so that conflicting or duplicate messages " are not sent to the monitor program (DBMON).""290 CANNOT EXECUTE WHILE IMAGE IS ACTIVE.  This command is not allowed when IMAGE is active. The  SD command must be executed before the command returning  this error can be executed.""291  CANNOT EXECUTE WHILE IMAGE SHUTDOWN. This command is not allowed when IMAGE is shutdown. The SU command must be executed before the command returning  this error can be executed.""293  MISSING PARAMETER MUST BE SUPPLIED.  You tried to default a required parameter in a  DBUTL command. ""294  SCRATCH FILE ERROR. When a disc file is specified as DBUTL's list file and  a command is entered in DBUTL to schedule an image  utility which also has a list file, DBUTL creates a scratch file which it passes to the utility. Then when  the utility finishes the scratch file is merged with  the DBUTL list file and purged. If an FMP error occurs  during the creation or access of this scratch file, DBUTL returns an IMAGE 294 to the user. 10 different file names are tried (UT5240..UT5249) before quitting with the 294 error during create.""295  NEW LOG SET IS REQUIRED.  DBSPL encountered a write error (eg. parity error) when writing to the roll forward log; this invalidates  the current roll forward log set. A new log set must be defined (DBUTL NS command) and database backups  performed before roll forward logging is allowed.""296  OLD LOG SET NAME CANNOT BE SPECIFIED." When using the NS command you specified a set name equal to"" the previous set name. The new set name must be different."" This is to help the user keep log volumes organized and to " provide IMAGE a way to warn the user when a new set has " been specified and a backup has not been done. The old set"! name will be in the database root files until the ST or BK !# commands are used. These commands store the new set name in #! the root file. The set name will be set to blanks in the! root file after DBDS is run. ""297  ERROR WHILE TRYING TO RENAME SPARE RFL." When a spare roll forward log exists and a new roll forward"" log file is defined using the RL command in DBUTL, the spare "$ must be renamed to represent a new volume number. For example,$! if the roll forward log is +RL001 and the spare is +RL002, !! when the roll forward log becomes +RL002 the spare must be !" renamed to +RL003. If an error occurs during this renaming" process, error 297 is returned to the user.""298  DBCLN COMMUNICATION ERROR This error is issued when IMAGE cleanup operations  could not communication with DBCLN. The program DBCLN  may have aborted. Soft-crash recovery may be necessary. ""299  ILLEGAL COMMAND AFTER CRASH OCCURS.! Some DBUTL commands are illegal after a crash of the IMAGE !" subsystem occurs (see manual for a list of commands). This" feature is there to protect the user from corrupting his " databases. Either RB or RF must be entered before any other "#(( command can be entered. Note: even if no modifications were## done before the crash occured, RB will work - it just doesn't# recover anything. ""300  CAN'T ARCHIVE THE CURRENT RFL FILE.# The current roll forward log file cannot be archived. This is#" so DBUTL won't update the DBCON file's history table for the"! current log file to a magtape lu. If this were to happen,!# DBRFR would not be able to recover any future intrinsics which# were logged to the disc file. ""301  ILLEGAL TYPE FOR LIST OR LOG FILE.! All list and log files on disc must be either type 3 or 4. !""330  ROLL FORWARD LOG VOLUME LABEL IS INCORRECT  The first block of the roll forward log volume is not! a label as it should be. If the volume is a tape, check !" that the correct tape is mounted. Note: if the volume has"" not yet been used by DBSPL, then there will not be a label."""331  SPARE ROLL-FORWARD LOG HAS NOT BEEN DEFINED.$ This error is issued by DBSPL when it has filled up the current$# roll-forward file/tape and there is not a spare to switch to.#""333  ENCOUNTERED END OF TAPE ! Possible, the current roll forward log volume is full and!% there is no spare roll forward log defined. Use DBUTL to define % a spare or disable roll forward logging. Note that if  it is disabled, a backup and new log set definition may be necessary before it is reenabled. ""334  TAPE DRIVE IS NOT READY.! Make sure the tape is powered on, on-line, tape mounted, !" write-enable ring in if needed, etc. Roll forward logging " (DBSPL) could be waiting on the tape drive; make it  ready or disable roll forward logging. ""335  TAPE PARITY ERROR. $ This error effectively ends your log set. Define a new log set$$ and back up your databases as soon as possible. If this error $$ occurs during hard crash recovery, all information on following$ volumes are useless. ""336  CANNOT READ/WRITE TO ROLL-FORWARD LOG.# Make sure the tape/disc drive is up and ready for use, UP the## EQT/LU if required. If the rfl is a device, make sure a tape#% is mounted. If the problem persists, shut IMAGE down and restart.%""337  SPARE ROLL-FORWARD LOG FILE CANNOT BE FOUND.! IMAGE had created a spare sometime in the past, but can't!# find it now. You can create a new one with the 'SL' command # in DBUTL. ""339  DBSPL INTERNAL ERROR. ! DBSPL has encountered an unexpected internal error and is!" terminating. This constitutes a soft crash. Perform soft "# crash recovery using the DBUTL command 'RB'. Re-start IMAGE # and hope the problem disappears. ""340  A BUFFER READ FROM THE TAPE WAS NOT OF THE PROPER LENGTH. # The tape is likely corrupt. If you want hard crash recovery # to proceed anyway, use the override option 'CO' in the  DBUTL command 'RF'.""341  WRONG ROLL-FORWARD LOG VOLUME MOUNTED." The label in the roll-forward log volume did not match the " expected label. You may have mounted the wrong tape or  specified the wrong file.""342  I/O ERROR ON TRANSACTION LOG FILE." A disc error occurred when read/writinng to the transaction" log file (defined with the DBUTL command 'TL') used for roll-back recovery. See if your disc is feeling well. If the condition persists, shut IMAGE down and define a  new transaction log, OR turn logging off.""344  DBSPL CANNOT READ/WRITE TO THE DBCON FILE.# See if the disc is feeling well. If the condition persists, # shut IMAGE down OR turn off logging. ""346  CORRUPT ROLL FORWARD LOG FILE.# IMAGE cannot recover the logical integrity of your database ## due to a corruption of the roll forward log. To recover as #" much data as possible, use the override option of the 'RF'"# command in DBUTL to ignore logical errors. The database may#$ need some tweaking to discover and correct any logical errors.$""350  TAPE DID NOT VERIFY DURING ARCHIVE OR STORE.! DBARC or DBSTR detected a mismatch between data saved to!! tape and data stored on disc during the verify. Restart! the operation. ""351  DATABASE MUST BE DISABLED. The database must be disabled before the DBUTL BK  command can be used. After using the BK command, be sure to do the database backup before enabling access. ""352 ROLL FORWARD LOG SET MUST BE DEFINED.  The roll forward log set name must be defined before creating roll forward log volumes with the RL command. ""360  IMAGE IS AUTOMATICALLY CLEANING UP UNUSED RESOURCES.! There are times when IMAGE tables become full, and it is !" usually the fault of aborted programs which look like they " still have databases open, locks granted, and active  transactions. IMAGE will periodically clean up after# such aborted programs, or you can use the DBUTL command 'CL' # to do cleanup at any time. ""361  DBSPL IS SWITCHING TO THE SPARE ROLL-FORWARD LOG VOLUME.! When DBSPL fills the current roll-forward volume, it will!" attempt to switch logging to the spare, if one was defined."" (DBUTL command 'SL'). This 'error' causes a message to be " output to the warning log to let people know that a new  spare can be defined.""362  TRANSACTION LOG FILE IS FULL. # The transaction log file is not large enough to hold all log ## records for all currently active transactions. Use the 'CL' #" command in DBUTL to cleanup aborted programs' transactions."" If the condition persists, you have the following options: "" (1) Turn logging off, or (2) start aborting programs until "" activity resumes. You can define a larger transaction log " file using the 'TL' command of DBUTL.""367  TRANSACTION LOG FILE IS 90% FULL. # This warniing causes a message to be put in the warning log. #""368  TRANSACTION NUMBERS HAVE BEEN USED UP.# IMAGE uses a double integer number to represent a transaction#" identifier. This allows for over two billion transactions "! in a single log set. At ten transactions per second, it !! would require over 7 years to use up these numbers. You !# need to define a new log set and back up all databases. NOW! #""369  DBSPL IS TERMINATING. # This is a warning from DBSPL that it has encountered a fatal #" error or has been told to abort. DBMON is the recipient of" this warning and twiddles indicators appropriately.""370  ROLL-FORWARD LOG VOLUME IS FULL." This warning causes a message to be put in the warning log."""390  PASCAL PROGRAM ERROR WITHIN DBMON. DBMON internal error. If this occurs again, contact an  HP representative. This error should not occur.""391  PASCAL FATAL ERROR WITHIN DBMON. DBMON internal error. If this occurs again, contact an  HP representative. This error should not occur ""392  PASCAL I/O ERROR WITHIN DBMON. DBMON internal error. If this occurs again, contact an  HP representative. This error should not occur. ""393  PASCAL FMP ERROR WITHIN DBMON. DBMON internal error. If this occurs again, contact an  HP representative. This error should not occur. ""394  PASCAL SEGMENT LOAD ERROR WITHIN DBMON.  DBMON internal error. If this occurs again, contact an  HP representative. This error should not occur.""395  PASCAL I/O WARNING ERROR WITHIN DBMON. DBMON internal error. If this occurs again, contact an  HP representative. This error should not occur. ""396  SAMURAI SEGMENT LOAD ERROR WITHIN DBMON. DBMON internal error. If this occurs again, contact an  HP representative. This error should not occur. DB6S1.CMD::IMAGE2:4:2:30 644 0 0 1000 5300466451 32535 DB6S1.CMD::IMAGE2_6000:4:2:30 $ DB6S1 CMD +m(+m)+m) FST , DB6S1.CMD 92081-17027 REV.2540 <851105.1111>, , (C) Copyright 1983, Hewlett-Packard Company. , All rights reserved. , No part of this program may be photocopied, reproduced, or, translated to another program language without the written, consent of Hewlett-Packard Company. , , MERGE command file to create DBMS1.LIB, /IMAGE2/DBMS.REL/IMAGE2/LOCAL.REL /IMAGE2/%LB000((DB6S2.CMD::IMAGE2:4:2:30 644 0 0 1000 5300466453 32574 DB6S2.CMD::IMAGE2_6000:4:2:30 $ DB6S2 CMD +m*+m++m+FST , DB6S2.CMD 92081-17028 REV.2540 <850422.1027>, , (C) Copyright 1983, Hewlett-Packard Company. , All rights reserved. , No part of this program may be photocopied, reproduced, or, translated to another program language without the written, consent of Hewlett-Packard Company. , , MERGE command file to create DBMS2.LIB, /IMAGE2/DBMS.REL/IMAGE2/RDBA.REL/IMAGE2/USNUM.REL /IMAGE2/DSDB.LIBDB6S3.CMD::IMAGE2:4:2:30 644 0 0 1000 5300466455 32620 DB6S3.CMD::IMAGE2_6000:4:2:30 $ DB6S3 CMD +m,+m-+m-FST , DB6S3.CMD 92081-17029 REV.2540 <850422.1027>, , (C) Copyright 1983, Hewlett-Packard Company. , All rights reserved. , No part of this program may be photocopied, reproduced, or, translated to another program language without the written, consent of Hewlett-Packard Company. , , MERGE command file to create DBMS3.LIB, /IMAGE2/RDBA.REL/IMAGE2/REMOT.REL /IMAGE2/USNUM.REL /IMAGE2/DSDB.LIBRDBAMA.LOD::IMAGE2:4:2:24 644 0 0 1000 5300466456 33123 RDBAMA.LOD::IMAGE2_6000:4:2:24 $ RDBAMA LOD +m.+m.+m.FST ** RDBAMA.LOD 92081-17174 REV.5010 <881027.0854>**** Link command file to load RDBAM on RTE-A.**IF,A,PC,31,0 LL,/IMAGE2/RDBAM.MAP LC LI,/IMAGE2/DSDB.LIB LI,DBMX1.LIB** uncomment next line if using NS**LI,$BIGNS LI,$BIGDS ** RE,/IMAGE2/RDBAM.REL EN,/PROGRAMS/RDBAM.RUN C>FMPERX92077-1X464 REV.2440 830206 /SRC_92077/R5010/&LINKM 7DS"WDIR>TMPNAME NLS (CHBUF  zFMPERXCDS_DBMS1.CMD::IMAGE2:4:1:26 644 0 0 400 5300466460 33570 CDS_DBMS1.CMD::IMAGE2_6000:4:1:26 !$ CDS_DBMS1 CMD +m/+m0+m0SFST , CDS_DBMS1.CMD 92081-17175 REV.2440 <840920.0920>, , MERGE command file to create CDS_DBMS1.LIB, /IMAGE2/CDS_DBMS.REL /IMAGE2/CDS_LOCAL.REL CDS_DBMS2.CMD::IMAGE2:4:1:26 644 0 0 400 5300466462 33625 CDS_DBMS2.CMD::IMAGE2_6000:4:1:26 !$ CDS_DBMS2 CMD +m1+m2+m2\FST , CDS_DBMS2.CMD 92081-17176 REV.2440 <840920.0920>, , MERGE command file to create CDS_DBMS2.LIB, /IMAGE2/CDS_DBMS.REL /IMAGE2/CDS_RDBA.REL /IMAGE2/DSDB.LIBCDS_DBMS3.CMD::IMAGE2:4:1:26 644 0 0 400 5300466463 33646 CDS_DBMS3.CMD::IMAGE2_6000:4:1:26 !$ CDS_DBMS3 CMD +m3+m3+m3]FST , CDS_DBMS3.CMD 92081-17177 REV.2440 <840920.0921>, , MERGE command file to create CDS_DBMS3.LIB, /IMAGE2/CDS_RDBA.REL /IMAGE2/CDS_REMOT.REL /IMAGE2/DSDB.LIBRDBCLN.LOD::IMAGE2:4:3:34 644 0 0 1400 5300466465 33064 RDBCLN.LOD::IMAGE2_6000:4:3:34 $ "RDBCLN LOD +m4+m5+m5 FST * RDBCLN.LOD 92081-17178 REV.5000 <870421.0200> * * Link command file to build the Remote-capability DBCLN."* Needed for RTE-6 because SS cannot be supplied in the run string."* DBCLN needs SSGA on RTE-6 to make DEXEC calls. * RTE-A is using this LOD file also, the SS will be ignored. * IF,A,PC,31,0 LL,/IMAGE2/DBCLN.MAP SS* LI,/LIBRARIES/DBMX1.LIB LI,PASCAL.LIB  LI,/IMAGE2/DSDB.LIB LI,/LIBRARIES/$BIGDS.LIB ** RE,/IMAGE2/DBCLN.REL ** EN DBCLN.RUN::PROGRAMS RDBAM6.LOD::IMAGE2:4:1:24 644 0 0 400 5300466466 33072 RDBAM6.LOD::IMAGE2_6000:4:1:24 $ RDBAM6 LOD +m5+m6+m6} FST ** RDBAM6.LOD 92081-17179 REV.5000 <870212.1320>**** Link command file to load RDBAM on RTE-6.** LL,/IMAGE2/RDBAM.MAP SS LI,/IMAGE2/DSDB.LIB LI,/LIBRARIES/DBMX1.LIB ** RE,/IMAGE2/RDBAM.REL EN,/PROGRAMS/RDBAM.RUN RDBAP6.LOD::IMAGE2:4:2:25 644 0 0 1000 5300466470 33160 RDBAP6.LOD::IMAGE2_6000:4:2:25 $ RDBAP6 LOD +m7+m8+m8FST ** RDBAP6.LOD 92081-17180 REV.2540 <850422.1110> **** link comand file to load RDBAP on RTE-6. ** LL,/IMAGE2/RDBAP.MAP SSEBSZ,24 ** LI,/LIBRARIES/DBMX1.LIB LI,/IMAGE2/DSDB.LIB LI,PASCAL.LIB ** RE,/IMAGE2/RDBAP.REL ENRDBAPA.LOD::IMAGE2:4:2:25 644 0 0 1000 5300466472 33315 RDBAPA.LOD::IMAGE2_6000:4:2:25 $ RDBAPA LOD +m9+m:+m:FST ((** RDBAPA.LOD 92081-17181 REV.5010 <880829.1723> **** link comand file to load RDBAP.**IF,A,PC,31,0 LL,/IMAGE2/RDBAP.MAP LCEBSZ,24 ** LI,/LIBRARIES/DBMX1.LIB LI,/IMAGE2/DSDB.LIB LI,PASCAL.LIB ** uncomment next line if using NS/1000 **LI,$BIGNS LI,$BIGDS ** RE,/IMAGE2/RDBAP.REL EN <( <`A@p ÁPЈA((͡ <( `AAA@p PΈA((ޡDBUPGRADE.LOD::IMAGE2:4:2:26 644 0 0 1000 5300466473 34073 DBUPGRADE.LOD::IMAGE2_6000:4:2:26 !$ DBUPGRADE LOD +m:+m;+m; FST ** DBUPGRADE.LOD 92081-17182 REV.5000 <870113.1340>**** Link command file to load DBUPGRADE. IF,A,PC,31,0 LL,/IMAGE2/DBUPGRADE.MAP EB LI,/LIBRARIES/DBMX1.LIB LI,PASCAL.LIB ** RE,/IMAGE2/DBUPGRADE.REL EN DBUPGRADE.RUN::PROGRAMS CREATE_ZOO.CMD::IMAGE2:4:3:31 644 0 0 1400 5300466475 34424 CREATE_ZOO.CMD::IMAGE2_6000:4:3:31 "$ CREATE_ZOO CMD +m<+m=+m=@FST ** CREATE_ZOO.CMD 92081-17183 REV.2540SET LOG = ON**** This command file creates the empty ZOO database, and loads** it with some initial data. **** Create the empty ZOO databaseIF RU,DBDS,/IMAGE2/ZOORT,1,PURGETHEN ECHO `ZOO database has been initialized.`ELSE ECHO `ZOO database could not be created!!! Error=`$return1 RETURN FI**** Load the ZOO database with some dataIF RU,DBBLD,/IMAGE2/ZOOBLD,1,ADD,80 THEN ECHO `ZOO database has been loaded.` ELSE ECHO `Could not load ZOO database!! Error = `$RETURN1 FI**RETURNINIT_IMAGE.UTL::IMAGE2:4:11:36 644 0 0 5400 5300466477 34373 INIT_IMAGE.UTL::IMAGE2_6000:4:11:36 #$  $INIT_IMAGE UTL +m>+m?+m? iRFST ** INITIALIZE_IMAGE.UTL 92081-17184 REV.2540 <860108.1800> **!** This example DBUTL command file will define all of the various !!** IMAGE log files, enable roll-forward logging, and start IMAGE. !****** First make certain IMAGE is shut down (or not initialized).SD****** The before-image file (+BIF) is always needed. ** It will be placed on /IMAGE2/ and will be 1000 blocks. BL,,1000****** For roll-back logging we need a transaction log (+TLF).** It will be placed on /IMAGE2/ and will be 2000 blocks. TL,,2000****!** The NS, RL and SL commands are only necessary for roll-forward !** logging. ** ** For roll-forward logging we need to define a 'log set' name. !** The log set name must be different from the last set name used.!**NS,TOM'S-LOGSET ****** Now we can define a roll-forward log. It is most ** convenient to use a disc file (though not always practical if ** disc space is scarce and tapes are plentiful). $** The first volume will be placed on /IMAGE2/ and will be 10000 blocks.$#** Note: it is recommended that the log files and the data base files #** reside on different discs.  ** The 'logical name' is useful for identifying a volume during ** recovery. The physical file names is +RL001.**!** NOTE: If a file called +RL001 already exists, this command will!#** fail with an FMP -2 error. Purge existing +RL--- files beforehand.# RL,HIRATA1,D,,10000 ****!** Next we need a spare roll-forward log. When the volume HIRATA1! ** becomes full, IMAGE will automatically switch logging to the !** spare. The spare is named /IMAGE2/+RL002 and is 10000 blocks. !** It's logical name is HIRATA2.**** Note: This command will fail if +RL002 already exists.** Old roll-forward logs must be purged beforehand.  SL,HIRATA2,D,,10000 ****"** Enable the appropriate logging; for this example, roll-forward. "LG,*,RF ****!** Now it is necessary to make a backup of any databases for which!!** roll-forward logging has been enabled. (Roll-forward recovery !** can only be performed for the most current log set). **"** For convenience, we will use the ST command to do a DBSTR backup."** The storage file is /IMAGE2/ZOO_BACKUP.ST,/IMAGE2/ZOO_BACKUP,ZOO::IMAGE2,KAREN,AB****** Let's have IMAGE warning/error messages logged to a file to** avoid cluttering the system console. ** NOTE: The file must not already exist.  WL,IMAGE_WARNLOG::IMAGE2 ****** We are ready to start the IMAGE subsystem. SU****** Enable applications to access DBMON. AC,*,RW ****** Done!EXBACKUP_ZOO.UTL::IMAGE2:4:2:33 644 0 0 1000 5300466500 34021 BACKUP_ZOO.UTL::IMAGE2_6000:4:2:33 "$ !BACKUP_ZOO UTL +m@+m@+m@ FST ** BACKUP_ZOO.UTL 92081-17185 REV.2540 <851118.1340> **** This DBUTL command file will perform a backup of the ZOO  ** database. This example is applicable for any form of logging. ** DBSTR will be used to perform the backup, via the ST command. ** Backup storage is /IMAGE2/ZOO_BACKUP **ST,/IMAGE2/ZOO_BACKUP,/IMAGE2/ZOO,KAREN,AB**** Done!EXNEW_LOGSET.CMD::IMAGE2:4:4:34 644 0 0 2000 5300466503 33746 NEW_LOGSET.CMD::IMAGE2_6000:4:4:34 "$ "NEW_LOGSET CMD +mB+mC+mCFST ** NEW_LOGSET.CMD 92081-17186 REV.2540 <851118.1141>SET LOG = ON**** This CI command file will prepare for defining a new ** roll-forward log set by making sure IMAGE is shut down,** then purging any existing roll-forward log files.** (For the super-cautious, it is OK to copy the roll-forward ** log files somewhere, just so long as they do not remain on ** the /IMAGE2/ directory since we will be creating some new** ones there). ** ** Shut IMAGE down. RU,DBUTL,/IMAGE2/SHUTDOWN.UTL ****!** Purge existing roll-forward log files; assumed all on /IMAGE2/. ! PU,/IMAGE2/+RL@,OK ****** Now define a new roll-forward log set. ** NOTE: Ignore any DBUTL warning about missing a log volume. RU,DBUTL,/IMAGE2/NEW_LOGSET.UTL ****** Done!RETURNNEW_LOGSET.UTL::IMAGE2:4:6:38 644 0 0 3000 5300466504 34225 NEW_LOGSET.UTL::IMAGE2_6000:4:6:38 "$ &NEW_LOGSET UTL +mD+mD+mD,FST ** NEW_LOGSET.UTL 92081-17187 REV.2540 <851118.1141> ** ** This DBUTL command file will start a new roll-forward log set. ** It is assumed that all former roll-forward log files have been ** purged (if they existed at all). If DBUTL complains that it "** cannot find one of the roll-forward logs, the warning message can"** be ignored.**** A new log set is typically necessary when there is no longer !** enough disc space and/or magtapes for roll-forward log volumes.!**(("** I personally would want to start a new log set if the current one"!** had more than 10 volumes in it, since the recovery time would be !** extensive if a hard crash did occur. ****** First make sure IMAGE is shut down.SD****%** Give the roll-forward log set a name (must be different from last name). %**NS,MIKES-SET-9/85 **** Define the first roll-forward log volume.#** Logical name MIKESVOL1, file name +RL001::IMAGE2, size 10000 blocks. # RL,MIKESVOL1,D,,10000 ****** Define the spare roll-forward log. $** Logical name MIKES_SPARE, file name +RL002::IMAGE2, size 10000 blocks. $ SL,MIKES_SPARE,D,,1000 **** Databases which are being logged must now be backed up. TR,/IMAGE2/BACKUP_ZOO.UTL ****** Let's bring IMAGE back up. SUAC,*,RW ****** Done!EX 850517STARTUP.UTL::IMAGE2:4:1:29 644 0 0 400 5300466506 33173 STARTUP.UTL::IMAGE2_6000:4:1:29 $  STARTUP UTL +mE+mF+mFl $FST ** STARTUP.UTL 92081-17188 REV.2540 <851118.1135> **** This DBUTL command file will start the IMAGE subsystem.SU**** Enable applications to access DBMON. AC,*,RW **** Done!EXSHUTDOWN.UTL::IMAGE2:4:1:26 644 0 0 400 5300466510 33304 SHUTDOWN.UTL::IMAGE2_6000:4:1:26  $ $SHUTDOWN UTL +mG+mH+mH=(FST ** SHUTDOWN.UTL 92081-17189 REV.2540 <851118.1144>**** This DBUTL command file shuts IMAGE down.SDEXAC_ZOO.UTL::IMAGE2:4:9:39 644 0 0 4400 5300466512 33014 AC_ZOO.UTL::IMAGE2_6000:4:9:39 $ ( 'AC_ZOO UTL +mI+mJ+mJ 0,FST ** AC_ZOO.UTL 92081-17190 REV.2540 <851118.1336> SET LOG = ON**$** This DBUTL command file enables read/write access to the ZOO database. $**** There has often been confusion about what these commands do: ** AC,*,RW  ** AC,ZOO::IMAGE2,RW ** ** The asterisk (*) does NOT mean 'all databases'. The asterisk !** tells the IMAGE subsystem what access to allow to databases as a !!** default - read & write in the above case - but you can override!** the default for a specific database. ** ** When the database is actually opened, DBMON will take the most '** restrictive of the system (default) accessibility and the specific database'#** accessibility; therefore, if the database is Read/Write accessible#%** but system access is DIsabled, the database is also disabled for access. %**"** Another example: System access is Read/Write, but database access "&** is Read-Only; anyone opening the database will be given Read-Only access. &****%** Therefore, giving the command 'AC,*,RW' does NOT change every database's %** accessibility to read/write. Take the following scenario. **** BK,ZOO::IMAGE2 <-- This DIsables the DATABASE's access. %** AC,*,RW <-- This sets SYSTEM (default) access to Read/Write%**** 54 dollar question: What is the accessibility of ZOO? **#** Answer: ZOO still has disabled access. Other (accessible) databases #** on the system can be opened, however.****** Now consider the following sequence of commands: **** AC,ZOO::IMAGE2,RW <-- ZOO is Read/Write accessible. ** AC,*,RO <-- System access is read only. **%** Question: Can ZOO be modified? (i.e., will DBDEL, DBPUT, DBUPD work?)%#** Answer : No. The system (default) access is the most restrictive. # ** If we now say 'AC,*,RW', the ZOO database can be modified. **"** Ok, now that the tutorial is finished, let's enable access to the"** ZOO database. (System access will not be changed). AC,ZOO::IMAGE2,RW EXBK_ZOO.UTL::IMAGE2:4:2:33 644 0 0 1000 5300466514 33153 BK_ZOO.UTL::IMAGE2_6000:4:2:33 $ 4!BK_ZOO UTL +mK+mL+mL8FST ** BK_ZOO.UTL 92081-17191 REV.2540 <851118.1342>**** This DBUTL command file will execute the BK command for!** the ZOO database. NOTE: This will disable the database access.! ** (Look in AC_ZOO.UTL for a discussion on what the difference is ** between SYSTEM and DATABASE accessibility).BK,/IMAGE2/ZOOEXBACKUP_TF.CMD::IMAGE2:4:5:36 644 0 0 2400 5300466516 33430 BACKUP_TF.CMD::IMAGE2_6000:4:5:36 !$ 8$BACKUP_TF CMD +mM+mN+mN-<FST ** BACKUP_TF.CMD 92081-17192 REV.2540 <851118.1337> **** This CI command file will perform a backup of the ZOO** database using the TF utility. (The same procedure can"** be used for any non-IMAGE backup utility, such as ASAVE or PSAVE). "**$** For roll-forward recovery, IMAGE requires some time-stamp information$"** in the root file about when the last backup was done. DBSTR sets""** that information in the root file automatically, but to use other"** utilities the DBUTL command BK must be executed prior to the ** actual backup of the database. **!** Note: The BK command disables access to the database, equivalent !** to the command 'AC,ZOO::IMAGE2,DI'.**** Set the timestamp info in the ZOO root file.  RU,DBUTL,/IMAGE2/BK_ZOO.UTL **** For convenience, set the working directory to /IMAGE2WD /IMAGE2**** Backup the database root file and all data sets, too.RU,TF,CO,{ZOO,AMAST,NMAST,TMAST,ANIMLD},8,VBY **** Now, re-enable access to the ZOO database.  RU,DBUTL,/IMAGE2/AC_ZOO.UTL **** Done!RETURNRECOVER_RB.CMD::IMAGE2:4:3:32 644 0 0 1400 5300466517 34004 RECOVER_RB.CMD::IMAGE2_6000:4:3:32 "$ @ RECOVER_RB CMD +mO+mO+mOrDFST ** RECOVER_RB.CMD 92081-17193 REV.5000 <870318.1648>**** This CI command file is typical of what can be placed in the ** WELCOME file for execution when the system is booted.**IF DBUTL /IMAGE2/STARTUP.UTLTHEN ECHO `IMAGE/1000 has been started; no recovery necessary.` ELSE IF IS,$return1,EQ,299  THEN  ECHO `Soft crash recovery being done...` IF DBUTL /IMAGE2/RECOVER_RB.UTL  THEN ECHO `Soft crash recovery successful - star((ting IMAGE.`  RU,DBUTL,/IMAGE2/STARTUP.UTL  ELSE ECHO `Soft crash recovery failed - IMAGE not started.`  FI ELSE  ECHO `Unexpected startup error `$return1 FI FIRECOVER_RB.UTL::IMAGE2:4:2:34 644 0 0 1000 5300466521 34311 RECOVER_RB.UTL::IMAGE2_6000:4:2:34 "$ D"RECOVER_RB UTL +mQ+mQ+mQ JFST ** RECOVER_RB.UTL 92081-17194 REV.2540 <851118.1143>**!** This DBUTL command file executes rollback (soft crash) recovery. !!** Even if transaction logging is disabled, soft crash recovery is!!** still necessary to apply before-images in the +BIF file onto the !** database to guarantee physical database integrity. ** ** Execute rollback recovery; details of log records are printed. **RB,DE EXRECOVER_RF.CMD::IMAGE2:4:3:33 644 0 0 1400 5300466523 34052 RECOVER_RF.CMD::IMAGE2_6000:4:3:33 "$ H!RECOVER_RF CMD +mS+mS+mSoNFST ** RECOVER_RF.CMD 92081-17195 REV.2540 <851118.1143>**** This CI command file prepares for roll-forward recovery. **** Assumes that all roll-forward log volumes are accessible,** either on disc or tapes. NOTE: Log volumes copied to tape !** with some utility other than DBARC need to be restored to disc.!**** Restore the last backup copy of the ZOO database.RU,DBRST,1,1,/IMAGE2/ZOO_BACKUP,/IMAGE2/ZOO,KAREN,CO**** Execute roll-forward recovery. IF RU,DBUTL,/IMAGE2/RECOVER_RF.UTLTHEN ECHO `Hard crash recovery successful; starting IMAGE.`  RU,DBUTL,/IMAGE2/STARTUP.UTL ELSE ECHO `Hard crash recovery failed! Error=`$return1 FI****RETURNRECOVER_RF.UTL::IMAGE2:4:14:36 644 0 0 7000 5300466525 34646 RECOVER_RF.UTL::IMAGE2_6000:4:14:36 #$ L$RECOVER_RF UTL +mT+mU+mULTFST ** RECOVER_RF.UTL 92081-17196 REV.2540 <860109.0911>**** This DBUTL command file will perform roll-forward recovery ** after a hard crash has occurred. ** ** What is a hard crash? ** Any corruption of a database file or IMAGE log file.**** Typical hard crashes occur due to disc head crashes,** purged files, and unmounted disc volumes. **!** Less obvious 'corruptions' are attempting to use a log file !!** created by an old revision of IMAGE for recovery using a new! ** revision (usually just installed). IMAGE data structures ** are liable to change from one revision to the next. **** When should a hard crash recovery be performed?$** After an attempted soft crash has failed for some 'fatal' reason. $#** Fatal errors include the above disc problems, and more commonly ##** the error 145, which stands for 'logically incorrect database'. #** ** A 'logical incorrectness' means that the database does not ** contain the same data as the log file indicates it should. ** For example, a DBPUT log record may say that certain data #** was placed in record 10 of a data set, but if rollback recovery # ** finds that record 10 already has data in it, then there is ** a logical inconsistency.**** There are two primary reasons for error 145; either the #** database is physically corrupt (or possibly the disc is getting #** read errors), or the log file is corrupt. ****"** When it has been decided that roll-forward recovery is necessary "#** (implying that roll-forward logging was enabled), all roll-forward##** log volumes must be available. If log volumes on disc were copied ##** to some secondary storage via some utility other than DBARC, those #** files will have to be copied back to the disc. **!** If the log volumes are on tapes, it is a VERY good idea to make!#** a backup of the database RIGHT NOW rather than trust that the tapes##** are still good. (There has been several times when a parity error #"** has kept roll-forward recovery from succeeding, and much data has" ** been lost). Note, however, that the backup of the database ** made at this point, may be corrupt. If roll-forward recovery "** fails, the only resort left is to unload and reload the database."**** Finally, if you absolutely have to get IMAGE started and it"** won't because a crash condition exists, use the command 'RB,,CO' "** which will clear the crash flag in the +DBCON file, even if** the recovery attempt is not successful.**"** Another prerequisite for roll-forward recovery is to restore the "!** last good backup of the database, and it must be a backup made !** since the current log set was begun. **** Now we perform the roll-forward recovery.** (Assumes the file +DBCON has survived the crash) **RF**** What if the +DBCON file has also been lost? ** Then you need to know the order of the log volumes, and also ** the log set name which was assigned to those volumes. The ** DBUTL command would be as follows: **** 'RF,,,,1' <-- the list of volumes entered from LU 1. ****!** Roll-forward recovery defaults to recovering all databases for !** which log records exist. If only a subset of the databases** were lost, issue the DBUTL command:**** 'RF,,,1' <-- the list of databases entered from LU 1.**EXOHNO_GOTTA_GO.UTL::IMAGE2:4:4:32 644 0 0 2000 5300466527 35413 OHNO_GOTTA_GO.UTL::IMAGE2_6000:4:4:32 %$ \ OHNO_GOTTA_GO UTL +mW+mW+mWdFST ** OHNO_GOTTA_GO.UTL 92081-17197 REV.2540 <851118.1142> **** This DBUTL command file executes rollback recovery with** the 'continue despite errors' option. Regardless of success ** or any number of failures, DBRBR will clear a crash flag in** the +DBCON file, which will allow IMAGE to be started. **** NOTE: This could leave databases in a physically corrupt ** state, or data may be lost!**** The only time this feature should be used is if all forms of ** recovery possible have been tried and failed. If so, the** only recourse is to unload and reload the database through  ** the DBULD and DBLOD utilities. Since these utilities require ** IMAGE to be started, the crash flag must be cleared. **** Execute rollback recovery with details of which log records ** were successful and which were not; also clear the crash flag ** even if errors occur. **RB,DE,COEX&ADD::IMAGE2:4:16:35 644 0 0 10000 5300466531 32023 &ADD::IMAGE2_6000:4:16:35 $ `#&ADD +mX+mY+mYjFST FTN7X,L  PROGRAM ADD(4,90),92081-18831 REV.2540 <850906.1449>C NAME: &ADD C SOURCE: 92081-18831  C This program adds a new animal to the zoo. To do thisC it needs to have input values for all key items: Animal,C Trainer, and Name. Other values will be left blank.C If the trainer is already in the data base, $100.00 willC be added to that trainer's salary. (The two trainersC initially in the circus are Whip M. Good and Bertha.  C If you specify another trainer, (s)he will be added to the C Tmast data set as a new trainer. C #C DECLARE DATA ARRAYS TO BE USED FOR DBOPN, DBGET, AND DBFND CALLS#C   INTEGER IBASE(7),ILEVL(3),ID(3),IDT(3),ISTAT(10),IBUF(85)  INTEGER LIST,LLIST(10),TLIST(4),ITEM(3),IARG(3)  INTEGER ANAME(10),IQUAL(7),TRAINR(5),T2LIST(4),NAME(10)  INTEGER ANIMAL(10) INTEGER*4 TBUF   EQUIVALENCE (ANIMAL(1),IBUF(1))  (( EQUIVALENCE (TRAINR(1),IBUF(11)) EQUIVALENCE (NAME(1),IBUF(16)) DATA IBASE/' ZOO::IMAGE2;' /  DATA ILEVL/'KAREN '/   DATA ID/'ANIMLD'/ DATA IDT/'TMAST '/ DATA LIST/'@ '/  DATA TLIST/'SALARY; '/ DATA ITEM/'NAME '/  DATA LLIST/'ANIMAL,TRAINR,NAME; '/ DATA T2LIST/'TRAINR; '/ C C C OPEN THE DATABASE C  CALL DBOPN(IBASE,ILEVL,1,ISTAT)  IF (ISTAT .NE. 0) THEN WRITE(1,*) 'ERROR ON DBPON'  GOTO 999 ENDIF C prompt the user for information on the new animal  *<< *<<  WRITE(1,*)'What kind of new animal?' READ (1,'(10A2)') (ANIMAL(I),I=1,10)  WRITE(1,*)'Who is the trainer?'  READ(1,'(5A2)') (TRAINR(I),I=1,5)   WRITE(1,*)'Name of new animal?'  READ(1,'(10A2)') (NAME(I),I=1,10)  C C LOCK THE DATABASE BEFORE DOING RETIEVAL OF RECORDSC C  CALL DBLCK (IBASE, IDUMMY, 1, ISTAT) IF (ISTAT.NE.0) THEN  WRITE (1,*) 'ERROR ON DBLCK'  GOTO 999  ENDIF   C BEGIN TRANSACTION C  CALL DBBEG(IBASE,ITEXT,1,ISTAT,0)  IF (ISTAT.NE.0) THEN  WRITE(1,*) 'ERROR ON DBBEG'  GOTO 999 ENDIF C C See if trainer is in data baseC TRAINR is equivalenced to IBUF(11), the trainer's nameC   CALL DBGET(IBASE,IDT,7,ISTAT,TLIST,TBUF,TRAINR)  IF (ISTAT(1).EQ.0) THEN  TBUF=TBUF+100  CALL DBUPD(IBASE,IDT,1,ISTAT,TLIST,TBUF) IF (ISTAT(1).NE.0) THEN  WRITE(1,*) 'ERROR IN DBUPD'  GOTO 999 ENDIF  ENDIF  IF (ISTAT(1).EQ.107) THEN  C C (add new trainer to data base)  CALL DBPUT(IBASE,IDT,1,ISTAT,T2LIST,TRAINR)  IF (ISTAT(1).NE.0) THEN  WRITE(1,*)'ERROR IN TMAST DBPUT' GOTO 999 ENDIF  ELSE IF (ISTAT(1).NE.0) THEN  WRITE (1, 50) ISTAT(1)50 FORMAT('DBGET ERROR',I3) GOTO 999 ENDIF  ENDIF C *<<  C add new animal C  WRITE(1,*) 'Adding new animal to data base!'  CALL DBPUT(IBASE,ID,1,ISTAT,LLIST,IBUF)  IF (ISTAT.NE.0) THEN  WRITE(1,*) 'ERROR IN ANIMLD DBPUT' GOTO 999 ENDIF  CALL DBEND(IBASE,ITEXT,1,ISTAT,0)  IF (ISTAT(1).NE.0) GOTO 999   WRITE(1,*) 'Transaction successfully completed!'C  CALL DBUNL (IBASE, IDUMMY, 1, ISTAT) IF (ISTAT(1).NE.0) WRITE (1,*) 'ERROR ON DBUNL'   CALL DBCLS(IBASE,ID,1,ISTAT) 999 IF (ISTAT(1).NE.0) WRITE(1,'(I3)')ISTAT  C C Don't forget to unlock the data base!C  CALL DBUNL (IBASE, IDUMMY, 1, ISTAT)  CALL DBCLS(IBASE,ID,1,ISTAT)  END &SLOB::IMAGE2:4:15:35 644 0 0 7400 5300466533 32175 &SLOB::IMAGE2_6000:4:15:35 $ p#&SLOB +mZ+m[+m[]~|FST FTN7X,L  PROGRAM SLOB(4,90),92081-18832 REV.2540 C NAME: SLOB  C SOURCE: 92081-18832 C This program adds a new animal to the zoo. To do thisC it needs to have input values for all key items: Animal,C Trainer, and Name. Other values will be left blank.C If the trainer is already in the data base, $100.00 willC be added to that trainer's salary. (The two trainersC initially in the circus are Whip M. Good and Bertha. C If you specify another trainer, (s)he will be added to the C Tmast data set as a new trainer.  IMPLICIT NONE  C #C DECLARE DATA ARRAYS TO BE USED FOR DBOPN, DBGET, AND DBFND CALLS#C   INTEGER IBASE(7),ILEVL(3),ID(3),IDT(3),ISTAT(10),IBUF(85)  INTEGER LIST,LLIST(10),TLIST(4),ITEM(3),IARG(3)  INTEGER ANAME(10),IQUAL(7),T2LIST(4) INTEGER ANIMAL(10),NAME(10)  INTEGER TRAINR(5),ITEXT  INTEGER*4 TBUF  INTEGER ELEPHANT(10),BIGJOHN(5),ELSIE(10)   EQUIVALENCE (ANIMAL,IBUF(1)) EQUIVALENCE (TRAINR,IBUF(11))  EQUIVALENCE (NAME,IBUF(16))  DATA IBASE/' ZOO::IMAGE2;'/ DATA ILEVL/'KAREN '/ DATA ID/'ANIMLD'/ DATA IDT/'TMAST '/ DATA LIST/'@ '/  DATA TLIST/'SALARY; '/ DATA ITEM/'NAME '/  DATA LLIST/'ANIMAL,TRAINR,NAME; '/ DATA IQUAL/'ANIMLD,TMAST; '/ DATA T2LIST/'TRAINR; '/  DATA ELEPHANT /'ELEPHANT '/ DATA BIGJOHN /'BIG JOHN '/ DATA ELSIE /'ELSIE '/ C C C OPEN THE DATABASE C  CALL DBOPN(IBASE,ILEVL,1,ISTAT)  IF (ISTAT .NE. 0) THEN WRITE(1,*) 'ERROR ON DBPON'  GOTO 999 ENDIF C prompt the user for information on the new animal   CALL SMOVE (ELEPHANT,1,20,ANIMAL,1)  CALL SMOVE (BIGJOHN,1,10,TRAINR,1) CALL SMOVE (ELSIE,1,20,NAME,1) C C LOCK THE DATABASE BEFORE DOING RETIEVAL OF RECORDSC  CALL DBLCK(IBASE,IQUAL,7,ISTAT)  IF (ISTAT.EQ.136) THEN WRITE(1,*) 'ERROR IN LOCKING'  GOTO 999 ENDIF C  C BEGIN TRANSACTION C  CALL DBBEG(IBASE,ITEXT,1,ISTAT,0)  IF (ISTAT.NE.0) THEN  WRITE(1,*) 'ERROR ON DBBEG'  GOTO 999 ENDIF C C See if trainer is in data baseC TRAINR is equivalenced to IBUF(11), the trainer's nameC   CALL DBGET(IBASE,IDT,7,ISTAT,TLIST,TBUF,TRAINR)  IF (ISTAT(1).EQ.0) THEN  TBUF=TBUF+100  CALL DBUPD(IBASE,IDT,1,ISTAT,TLIST,TBUF) IF (ISTAT(1).NE.0) THEN  WRITE(1,*) 'ERROR IN DBUPD'  GOTO 999 ENDIF  ENDIF  IF (ISTAT(1).EQ.107) THEN  C C (add new trainer to data base)  CALL DBPUT(IBASE,IDT,1,ISTAT,T2LIST,TRAINR)  IF (ISTAT(1).NE.0) THEN  WRITE(1,*)'ERROR IN TMAST DBPUT' GOTO 999 ENDIF  ELSE IF (ISTAT(1).NE.0) THEN  WRITE (1, 50) ISTAT(1)50 FORMAT('DBGET ERROR',I3) GOTO 999 ENDIF  ENDIF C  C add new animal C  WRITE(1,*) 'Adding new animal to data base!'  CALL DBPUT(IBASE,ID,1,ISTAT,LLIST,IBUF)  IF (ISTAT.NE.0) THEN  WRITE(1,*) 'ERROR IN ANIMLD DBPUT' GOTO 999 ENDIF  IF (ISTAT(1).NE.0) GOTO 999   WRITE(1,*) 'TRANSACTION SUCCESSFULLY COMPLETED!'C  C ERROR PROCESSING C 999 IF (ISTAT(1).NE.0) WRITE(1,'(I3)')ISTAT    END &CCRSH::IMAGE2:4:10:36 644 0 0 5000 5300466535 32513 &CCRSH::IMAGE2_6000:4:10:36 $  $&CCRSH +m\+m]+m] TڎFST FTN7X,L   PROGRAM CRASH(4,90),92081-18833 REV.2540 <850906.1631>C NAME:CRASH C SOURCE: 92081-18833   IMPLICIT NONE  C #C DECLARE DATA ARRAYS TO BE USED FOR DBOPN, DBGET, AND DBFND CALLS#C  INTEGER IBASE(7),ILEVL(3),ID(3),ISTAT(10)  INTEGER LIST,IBUF(27),RSTAT(10),ITEM(3),TEXT(128)  INTEGER nuke(6), dummy, len C C DEFINE CONSTANTS FOR IBASE, ILEVL, ITEM, AND LIST C C DATA ILEVL/'DBA '/ DATA ID/'PRTS '/  DATA IBASE/' INVDB:29:SP '/ DATA LIST/'@ '/ # DATA IBUF/2H ,2H20,2H32,2H32,2HK-,2HME,2HMO,2HRY,2H ,2H ,2H , ## +2H ,2H ,2H ,2H 9,2H12,2HFA,2HCT,2HOR,2HY ,2H ,2H ,2H ,2H , # +2H ,2H ,600/  DATA TEXT/'This transaction belongs to (YOUR NAME)'/ DATA LEN/39/  DATA nuke /'OF,DBMON,ID '/C C OPEN THE DATABASE C  CALL DBOPN(IBASE,ILEVL,1,ISTAT)  IF (ISTAT(1).NE.0) GOTO 900 C C LOCK THE DATABASE BEFORE ADDING NEW DATA ENTRYC  CALL DBLCK(IBASE,ID,1,ISTAT) IF (ISTAT(1).NE.0) GOTO 985 C C START A TRANSACTION C  CALL DBBEG(IBASE,TEXT,1,ISTAT,LEN) IF (ISTAT(1).NE.0) GOTO 985 C C CALL DBPUT TO ADD THE DATA ENTRY TO THE DATA SETC  CALL DBPUT(IBASE,ID,1,RSTAT,LIST,IBUF) IF (ISTAT(1).NE.0) GOTO 985 C C WRITE OUT BUFFER OF INFORMATION THAT WAS ADDED TO DATA SET C WRITE(1,50)IBUF #50 FORMAT("THE RECORD ADDED IS",/,3A2,2X,10A2,2X,3A2,2X,10A2,2X,I6)#C C WHEN THE PROGRAM PAUSES, THE USER SHOULD "OFF" DBMONC THIS REQUIRES A HIGH CAPABILITY C WRITE (1,52) 52 FORMAT ('Tactical nuclear strike on DBMON commencing...')  CALL MESSS (nuke) Write (1,54) 54 FORMAT ('Nuking complete! Run DBUTL to recover.') GOTO 10000C C ERROR PROCESSING C 900 WRITE(1,910)ISTAT 910 FORMAT("DBOPN ((ERROR ",I5)  GOTO 1000  985 WRITE(1,986)ISTAT(1) 986 FORMAT("DBLCK ERROR ",I5)  GOTO 1000 C 1000 CALL DBUNL (IBASE,dummy,1,istat) IF (istat(1).ne.0) WRITE (1,1010) istat(1)1010 FORMAT ('DBUNL error ',I6) CALL DBCLS (IBASE,dummy,1,istat) IF (istat(1).ne.0) WRITE (1,1020) istat(1)1020 FORMAT ('DBCLS error ',I6)C C Exit. C 10000 CONTINUE END &TRADE::IMAGE2:4:12:35 644 0 0 6000 5300466537 32455 &TRADE::IMAGE2_6000:4:12:35 $  #&TRADE +m^+m_+m_ oښFST FTN7X,L  PROGRAM TRADE(4,90),92081-18834 REV.2540C NAME:TRADE C SOURCE:92081-18834  C This is a program to note a trade of animals with another C zoo. It deletes the animal owned by our zoo and adds C the animal received in trade.   IMPLICIT NONE  C #C DECLARE DATA ARRAYS TO BE USED FOR DBOPN, DBGET, AND DBFND CALLS#C  INTEGER IBASE(7),ILEVL(3),ID(3),ISTAT(10),IBUF(85) INTEGER LIST(3),LLIST(10),SBUF(3),ITEM(3),IARG(3),IDT(3) INTEGER ANAME(10),I  DATA IBASE/' ZOO::IMAGE2;'/ DATA ILEVL/'KAREN '/ DATA ID/'ANIMLD'/ DATA IDT/'TMAST '/ DATA LIST/'NAME; '/ DATA ITEM/'NAME '/  DATA LLIST/'ANIMAL,TRAINR,NAME; '/C C C OPEN THE DATABASE C  CALL DBOPN(IBASE,ILEVL,1,ISTAT)  IF (ISTAT .NE. 0) GOTO 999 C C prompt the user for the name of the animal to be traded C  " WRITE(1,'("What is the name of the animal you have traded?")')" READ(1,'(10A2)')(ANAME(I),I=1,10)  C prompt the user for information on the new animal   WRITE(1,*)'What kind of new animal?' READ (1,'(10A2)') (IBUF(I),I=1,10)  WRITE(1,*)'WHO IS THE TRAINER?'  READ(1,'(5A2)') (IBUF(I),I=11,15)   WRITE(1,*)'Name of new animal?'  READ(1,'(10A2)') (IBUF(I),I=16,25) C C LOCK THE DATABASE BEFORE DOING RETIEVAL OF RECORDSC  CALL DBLCK(IBASE,ID,2,ISTAT) IF (ISTAT.EQ.136) GOTO 999 C C CALL DBFND TO POSITION POINTER AT BEGINNING OF CHAINC   CALL DBFND(IBASE,ID,1,ISTAT,ITEM,ANAME)  IF (ISTAT.NE.0) GOTO 999  C !C CALL DBGET TO DO A CHAINED READ ON THE DETAIL DATA SET USING!C THE MODE FOR FORWARD CHAINED READC CHECK FOR STATUS TO INDICATE END OF CHAIN   CALL DBGET(IBASE,ID,5,ISTAT,LIST,SBUF,IARG)  IF ((ISTAT.NE.0).AND.(ISTAT.NE.155)) GOTO 999    C C WRITE OUT NAME OF ANIMAL BEING TRADED C   WRITE(1,100)SBUF  100 FORMAT("GOOD BYE, ",10A2)  C  C DELETE ENTRY C  CALL DBDEL(IBASE,ID,1,ISTAT) IF (ISTAT.NE.0) GOTO 999 C  C add new animal C  WRITE(1,*) 'Adding new animal to data base!'  CALL DBPUT(IBASE,ID,1,ISTAT,LLIST,IBUF)  IF (ISTAT.NE.0) GOTO 999    CALL DBCLS(IBASE,ID,1,ISTAT) C C ERROR PROCESSING C 999 IF (ISTAT.NE.0) WRITE(1,'(I3)')ISTAT C C CLOSE AND UNLOCK THE DATABASE C  CALL DBCLS(IBASE,ID,1,ISTAT)  END   &LOGGR::IMAGE2:4:18:35 644 0 0 11000 5300466541 33025 &LOGGR::IMAGE2_6000:4:18:35 $ #&LOGGR +m`+ma+maڨFST FTN7X,L  PROGRAM LOGGR(4,90),92081-18835 REV.2540 <850906.1632>C NAME: LOGGR  C SOURCE:92081-18835   C This is a program performs 3 transactions on the data base C 1. 10 DBPUTs: Places 10 identical animals in the data base C 2. 10 DBUPDs: Gives each of the above animals a unique age C 3. 1 DBDEL and 1 DBPUT: deletes one animal and adds another IMPLICIT NONE  C #C DECLARE DATA ARRAYS TO BE USED FOR DBOPN, DBGET, AND DBFND CALLS#C  INTEGER IBASE(7),ILEVL(3),ID(3),ISTAT(10),IBUF(85) INTEGER LIST,LLIST(10),SBUF(3),ITEM(3),IARG(10)  INTEGER BITEM(3),I  INTEGER ANIMAL(10), NAME(10) INTEGER TRAINR(5) INTEGER CTEXT(256)  INTEGER MONKEY(10),BIGJOHN(5),NONAME(10) INTEGER GORILLA(10),LEFTIST(10)   EQUIVALENCE(ANIMAL,IBUF(1))  EQUIVALENCE(TRAINR,IBUF(11)) EQUIVALENCE(NAME,IBUF(16))  DATA IBASE/' ZOO::IMAGE2;'/ DATA ILEVL/'KAREN '/ DATA ID/'ANIMLD'/ DATA ITEM/'NAME '/ DATA BITEM/'BDAY '/  DATA IARG/'NO NAME YET '/  DATA LLIST/'ANIMAL,TRAINR,NAME; '/ DATA LIST/'@ '/  DATA MONKEY /'MONKEY '/ DATA BIGJOHN/'BIG JOHN '/ DATA NONAME /'NO NAME YET '/ DATA GORILLA/'GORILLA '/ DATA LEFTIST/'LEFTIST '/  C C C OPEN THE DATABASE C  CALL DBOPN(IBASE,ILEVL,1,ISTAT)  IF (ISTAT .NE. 0) GOTO 999 WRITE(1,*) 'DATA BASE OPEN'  C C LOCK THE DETAIL DATA SET BEFORE BEGINNING TRANSACTIONSC  CALL DBLCK(IBASE,ID,4,ISTAT) IF (ISTAT.NE.0) GOTO 999 WRITE(1,*) 'LOCK WENT OK'   CALL SMOVE (MONKEY,1,20,ANIMAL,1)  CALL SMOVE (BIGJOHN,1,10,TRAINR,1) CALL SMOVE (NONAME,1,20,NAME)  C C BEGIN TRANSACTION C CTEXT(1) = 2H10 CTEXT(2) = 2H P CTEXT(3) = 2HUT CTEXT(4) = 2HS  CALL DBBEG(IBASE,CTEXT,1,ISTAT,4)  IF (ISTAT.NE.0) GOTO 999  DO I=1,10  CALL DBPUT(IBASE,ID,1,ISTAT,LLIST,IBUF)  IF (ISTAT.NE.0) THEN  WRITE(1,*)'ERROR IN DBPUT' GOTO 999 END IF WRITE(1,10) I 10 FORMAT('DBPUT ',I2,' WENT OK') END DO   CALL DBEND(IBASE,CTEXT,1,ISTAT,7)  IF (ISTAT(1).NE.0) GOTO 999  WRITE(1,*) 'TRANSACTION #1 SUCCESSFULLY COMPLETED!'   CTEXT(1) = 2H10 CTEXT(2) = 2H U CTEXT(3) = 2HPD CTEXT(4) = 2HAT CTEXT(5) = 2HES   CALL DBBEG(IBASE,CTEXT,1,ISTAT,5)  C C MAKE EACH ANIMAL "I" YEARS OLDC   CALL DBFND(IBASE,ID,1,ISTAT,ITEM,IARG) IF (ISTAT(1).NE.0) GOTO 999  WRITE(1,*) 'DBFND WENT OK'   DO I=1,10  CALL DBGET(IBASE,ID,5,ISTAT,LIST,IBUF,IARG)  IF (ISTAT(1).NE.0) GOTO 999  WRITE(1,*) 'DBGET WENT OK' CALL DBUPD(IBASE,ID,1, ISTAT,BITEM,I)  IF (ISTAT(1).NE.0) GOTO 999  WRITE(1,20) I 20 FORMAT('DBUPD ',I2,' WENT OK') END DO CALL DBEND(IBASE,CTEXT,1,ISTAT,8)   WRITE(1,*)'TRANSACTION #2 SUCCESSFULLY COMPLETED'  CTEXT(1) = 2HMI CTEXT(1) = 2HXE CTEXT(1) = 2HD CTEXT(1) = 2HTR CTEXT(1) = 2HAN CTEXT(1) = 2HSA CTEXT(1) = 2HCT CTEXT(1) = 2HIO CTEXT(1) = 2HNS   CALL DBBEG(IBASE,CTEXT,1,ISTAT,17) CALL DBGET(IBASE,ID,1,ISTAT,LIST,IBUF,IARG)  IF (ISTAT(1).NE.0) GOTO 999  WRITE(1,*) 'DBGET WENT OK' CALL DBDEL(IBASE,ID,1,ISTAT) IF (ISTAT(1).NE.0) GOTO 999   WRITE(1,*) 'DBDEL WENT OK'  CALL SMOVE (GORILLA,1,20,ANIMAL,1) CALL SMOVE (BIGJOHN,1,10,TRAINR,1) CALL SMOVE (LEFTIST,1,20,NAME,1)  CALL DBPUT(IBASE,ID,1,ISTAT,LLIST,IBUF)  WRITE(1,*) 'DBPUT WENT OK' IF (ISTAT(1).NE.0) GOTO 999  CALL DBEND(IBASE,CTEXT,1,ISTAT,17) C C ERROR PROCESSING C  999 IF (ISTAT.NE.0) WRITE(1,'(I3)')ISTAT C C CLOSE AND UNLOCK THE DATABASE C  CALL DBUNL(IBASE,ID,1,ISTAT) CALL DBCLS(IBASE,ID,1,ISTAT)  END &CRASH::IMAGE2:4:19:35 644 0 0 11400 5300466543 32701 &CRASH::IMAGE2_6000:4:19:35 $ #&CRASH +mb+mc+mc `ڼFST FTN77,L  PROGRAM CRASH(4,90),92081-18836 REV.2540 <851022.1612>C NAME: CRASH  C SOURCE: 92081-18836 C This is a program performs 3 transactions on the data base C 1. 10 DBPUTs: Places 10 identical animals in the data base C 2. 10 DBUPDs: Gives each of the above animals a unique age C 3. 1 DBDEL and 1 DBPUT: deletes one animal and adds another C DBMON will be OF'ed to simulate a system crash. "C Afterwards, execute DBUTL and issue the ((RB command to recover."  IMPLICIT NONE  C #C DECLARE DATA ARRAYS TO BE USED FOR DBOPN, DBGET, AND DBFND CALLS#C  INTEGER IBASE(7),ILEVL(3),ID(3),ISTAT(10),IBUF(85) INTEGER LIST,LLIST(10),SBUF(3),ITEM(3),IARG(10)  INTEGER BITEM(3),I  INTEGER ANIMAL(10), NAME(10) INTEGER TRAINR(5) INTEGER CTEXT(256)  INTEGER MONKEY(10),BIGJOHN(5),NONAME(10) INTEGER GORILLA(10),LEFTIST(10)  INTEGER*2 OFDBMON(7)  EQUIVALENCE(ANIMAL,IBUF(1))  EQUIVALENCE(TRAINR,IBUF(11)) EQUIVALENCE(NAME,IBUF(16))  DATA IBASE/' ZOO::IMAGE2;'/ DATA ILEVL/'KAREN '/ DATA ID/'ANIMLD'/ DATA ITEM/'NAME '/ DATA BITEM/'BDAY '/  DATA IARG/'NO NAME YET '/  DATA LLIST/'ANIMAL,TRAINR,NAME; '/ DATA LIST/'@ '/  DATA MONKEY /'MONKEY '/ DATA BIGJOHN/'BIG JOHN '/ DATA NONAME /'NO NAME YET '/ DATA GORILLA/'GORILLA '/ DATA LEFTIST/'LEFTIST '/ DATA OFDBMON/'OF,DBMON,ID '/ C C C OPEN THE DATABASE C  CALL DBOPN(IBASE,ILEVL,1,ISTAT)  IF (ISTAT .NE. 0) GOTO 999 WRITE(1,*) 'DATA BASE OPEN'  C C LOCK THE DETAIL DATA SET BEFORE BEGINNING TRANSACTIONSC  CALL DBLCK(IBASE,ID,4,ISTAT) IF (ISTAT.NE.0) GOTO 999 WRITE(1,*) 'LOCK WENT OK'   CALL SMOVE (MONKEY,1,20,ANIMAL,1)  CALL SMOVE (BIGJOHN,1,10,TRAINR,1) CALL SMOVE (NONAME,1,20,NAME,1)  C C BEGIN TRANSACTION C CTEXT(1) = 2H5 CTEXT(2) = 2HPU CTEXT(3) = 2HTS   CALL DBBEG(IBASE,CTEXT,1,ISTAT,3)  IF (ISTAT.NE.0) GOTO 999  DO I=1,5 CALL DBPUT(IBASE,ID,1,ISTAT,LLIST,IBUF)  IF (ISTAT.NE.0) THEN  WRITE(1,*)'ERROR IN DBPUT' GOTO 999 END IF WRITE(1,10) I 10 FORMAT('DBPUT ',I2,' WENT OK') END DO   CALL DBEND(IBASE,CTEXT,1,ISTAT,7)  IF (ISTAT(1).NE.0) GOTO 999  WRITE(1,*) 'TRANSACTION #1 SUCCESSFULLY COMPLETED!'   CTEXT(1) = 2H5 CTEXT(2) = 2HUP CTEXT(3) = 2HDA CTEXT(4) = 2HTE CTEXT(5) = 2HS  CALL DBBEG(IBASE,CTEXT,1,ISTAT,5)  C C MAKE EACH ANIMAL "I" YEARS OLDC   CALL DBFND(IBASE,ID,1,ISTAT,ITEM,IARG) IF (ISTAT(1).NE.0) GOTO 999  WRITE(1,*) 'DBFND WENT OK'   DO I=1,5 CALL DBGET(IBASE,ID,5,ISTAT,LIST,IBUF,IARG)  IF (ISTAT(1).NE.0) GOTO 999  WRITE(1,*) 'DBGET WENT OK' CALL DBUPD(IBASE,ID,1, ISTAT,BITEM,I)  IF (ISTAT(1).NE.0) GOTO 999  WRITE(1,20) I 20 FORMAT('DBUPD ',I2,' WENT OK') END DO CALL DBEND(IBASE,CTEXT,1,ISTAT,8)   WRITE(1,*)'TRANSACTION #2 SUCCESSFULLY COMPLETED'  CTEXT(1) = 2HMI CTEXT(1) = 2HXE CTEXT(1) = 2HD CTEXT(1) = 2HTR CTEXT(1) = 2HAN CTEXT(1) = 2HSA CTEXT(1) = 2HCT CTEXT(1) = 2HIO CTEXT(1) = 2HNS   CALL DBBEG(IBASE,CTEXT,1,ISTAT,17) CALL DBGET(IBASE,ID,1,ISTAT,LIST,IBUF,IARG)  IF (ISTAT(1).NE.0) GOTO 999  WRITE(1,*) 'DBGET WENT OK' CALL DBDEL(IBASE,ID,1,ISTAT) IF (ISTAT(1).NE.0) GOTO 999 C C call DBCTL to force a checkpointC  CALL DBCTL(IBASE,ID,1,ISTAT) IF (ISTAT(1).NE.0) GOTO 999  WRITE(1,*) 'TURNED POSTING OFF'  CALL DBCTL(IBASE,ID,2,ISTAT) IF (ISTAT(1).NE.0) GOTO 999  WRITE(1,*) 'TURNED POSTING BACK ON!' C Abort DBMON to simulate a soft crash.  CALL MESSS (OFDBMON)  WRITE (1,*) 'DBMON Aborted. Do rollback recovery' GOTO 1000  C C ERROR PROCESSING C  999 IF (ISTAT.NE.0) WRITE(1,'(I3)')ISTAT C C CLOSE AND UNLOCK THE DATABASE C  CALL DBUNL(IBASE,ID,1,ISTAT) CALL DBCLS(IBASE,ID,1,ISTAT)1000 CONTINUE END CMDZOO::IMAGE2:4:1:21 644 0 0 400 5300466545 32451 CMDZOO::IMAGE2_6000:4:1:21 $ CMDZOO +md+me+meCFST ;CMDZOO 92081-18837 REV.2540 <850906.1441>;QUERY COMMAND FILE to open database ZOO.  DATA-BASE=/IMAGE2/ZOO; KAREN;1;ZOOBLD::IMAGE2:4:2:30 644 0 0 1000 5300466546 32712 ZOOBLD::IMAGE2_6000:4:2:30 $ ZOOBLD +mf+mf+mf FST /IMAGE2/ZOO,KAREN; (DBBLD INPUT FILE 92081-18838 REV.2540) $SET:TMAST BIG JOHN 10 35000 TINY TINA 2 15000 CHOO CHOO 9 29000 $SET:ANIMLD ELEPHANT BIG JOHN ELLIE 1979 LION TINY TINA EYES 1982 SEAL BIG JOHN APPROVAL 1974 $ENDZOORT::IMAGE2:4:9:36 644 0 0 4400 5300466550 32706 ZOORT::IMAGE2_6000:4:9:36 $  $ZOORT +mh+mh+mh l4FST << ZOORT 92081-18839 REV.2540 <850906.1636>  SCHEMA FILE FOR ZOO DATA BASE >>   $CONTROL:TABLE,ERRORS=10;  BEGIN DATA BASE: /IMAGE2/ZOO;  !LEVELS: 1 VISIT; <> !! 10 TRAIN; <> !! 15 KAREN; <> ! !ITEMS: ANIMAL, X20(1,15); <> !! NAME, X20(1,10); <> !! ORIGIN, X20(1,15); <> !! WEIGHT, R4(1,10); <> !! LENGTH, R4(1,10); <> !! BDAY, I1(1,10); <> !! BRKFST, I1(1,10); <> !! LUNCH, I1(1,10); <> !! DINNER, I1(1,10); <> !$ TRAINR, X10(10,15); <>$" YEARS, I1(10,15); <>"! SALARY, I2(15,15); <> !  SETS:! NAME: AMAST::IMAGE2,A; <> ! ENTRY:ANIMAL(1); CAPACITY: 93;  ! NAME: NMAST::IMAGE2,A; <>! ENTRY:NAME(1); CAPACITY:93;  ! NAME: TMAST::IMAGE2,M; <> !! ENTRY:TRAINR(1), <> !! YEARS, <> ! SALARY; CAPACITY:93;  ! NAME: ANIMLD::IMAGE2,D; <> !! ENTRY:ANIMAL(AMAST), <> !! TRAINR(TMAST), <> ! NAME(NMAST), BDAY, ORIGIN, WEIGHT, LENGTH, BRKFST, LUNCH, DINNER; CAPACITY: 93; END.A92081::IMAGE2:4:37:39 644 0 0 22400 5300466552 32653 A92081::IMAGE2_6000:4:37:39 $% %'A92081 +mi+u+mj%N~FST (( *A92081 92081-18999 REV.6000 <921016.1046> % ************************************************************************ %% * * %% * IMAGE-II SOFTWARE NUMBERING FILE A92081 * %% * * %% * PRODUCT: 92081A REV. 6000 * %% * * %% ************************************************************************ %   Directory: /image2/   FILENAME PART NUMBER REV. TYPE DESCRIPTION ' --------------------- ----------- ---- ---- --------------------------------'  %AR000 92081-16067 2540 5 DBARC NLS CATALOG %BL000 92081-16068 2540 5 DBBLD NLS CATALOG  %DB000 92081-16069 2540 5 DBDS NLS CATALOG" %EM000 92081-16070 2540 5 DBEMA.LIB NLS CATALOG "! %LB000 92081-16071 2540 5 DBMS.REL NLS CATALOG! %LO000 92081-16072 2540 5 DBLOD NLS CATALOG %QY000 92081-16073 5010 5 QUERY NLS CATALOG %RB000 92081-16074 2540 5 DBRBR NLS CATALOG %RF000 92081-16075 5000 5 DBRFR NLS CATALOG %SA000 92081-16076 5000 5 DBSPA NLS CATALOG %ST000 92081-16077 2540 5 DBSTR NLS CATALOG %UT000 92081-16078 5000 5 DBUTL NLS CATALOG ! &ADD 92081-18831 2540 4 IMAGE-I UPGRADE HELP!! &CCRSH 92081-18833 2540 4 IMAGE-I UPGRADE HELP!! &CRASH 92081-18836 2540 4 IMAGE-I UPGRADE HELP!! &LOGGR 92081-18835 2540 4 IMAGE-I UPGRADE HELP!! &SLOB 92081-18832 2540 4 IMAGE-I UPGRADE HELP!! &TRADE 92081-18834 2540 4 IMAGE-I UPGRADE HELP! >QY000 92081-17024 5010 1 QUERY'S HELP FILE ' A92081 92081-18999 6000 4 IMAGE-II SOFTWARE NUMBERING FILE'' AC_ZOO.UTL 92081-17190 2540 4 MAKE ZOO READ/WRITE ACCESSIBLE. ' BACKUP_TF.CMD 92081-17192 2540 4 BACKUP USING TF.! BACKUP_ZOO.UTL 92081-17185 2540 4 BACKUP USING DBSTR. !' BK_ZOO.UTL 92081-17191 2540 4 SET TIMESTAMP IN ZOO ROOT FILE. '# CDS_DBMS.REL 92081-12023 5010 5 CDS LOCAL ACCESS LIBRARY## CDS_DBMS1.CMD 92081-17175 2440 4 MERGE LOCAL-ONLY LIBRARY#& CDS_DBMS2.CMD 92081-17176 2440 4 MERGE LOCAL-AND-REMOTE LIBRARY&$ CDS_DBMS3.CMD 92081-17177 2440 4 MERGE REMOTE-ONLY LIBRARY $" CDS_LOCAL.REL 92081-12024 2440 5 CDS LOCAL-ONLY LIBRARY"$ CDS_RDBA.REL 92081-12025 5010 5 CDS REMOTE ACCESS LIBRARY $# CDS_REMOT.REL 92081-12026 5010 5 CDS REMOTE-ONLY LIBRARY #! CMDZOO 92081-18837 2540 4 IMAGE-I UPGRADE HELP!$ CREATE_ZOO.CMD 92081-17183 2540 4 CI CMD FILE TO CREATE ZOO $& DB6S1.CMD 92081-17027 2540 4 RTE-6 DBMS1 MERGE COMMAND FILE&& DB6S2.CMD 92081-17028 2540 4 RTE-6 DBMS2 MERGE COMMAND FILE&& DB6S3.CMD 92081-17029 2540 4 RTE-6 DBMS3 MERGE COMMAND FILE&$ DBARC.LOD 92081-17004 5000 4 DBARC'S LINK COMMAND FILE $' DBARC.REL 92081-16630 5000 5 DBARC ROLLFORWARD LOG ARCHIVE PR' DBBLD.LIB 92081-12007 5000 5 DBBLD LIBRARY $ DBBLD.LOD 92081-17005 5000 4 DBBLD'S LINK COMMAND FILE $% DBBLD.REL 92081-16013 5000 5 DBBLD DATABASE BUILD PROGRAM%' DBCLN.LOD 92081-17017 5000 4 DEMON'S LINK COMMAND FILE '' DBCLN.REL 92081-16830 5000 5 DEMON DEMON CLEAN UP PROGRAM '' DBDS.LIB 92081-12008 5000 5 DBDS LIBRARY '' DBDS.LOD 92081-17006 5000 4 DBDS'S LINK COMMAND FILE '' DBDS.REL 92081-16014 5000 5 DBDS DATABASE SCHEMA PROCESSOR ' DBEMA.LIB 92081-12010 5010 5 IMAGE EMA LIBRARY. ' DBLOD.LOD 92081-17007 5000 4 DBLOD'S LINK COMMAND FILE '' DBLOD.REL 92081-16670 5000 5 DBLOD DATABASE LOAD PROGRAM '' DBMON.LIB 92081-12009 5000 5 DBMON LIBRARY '' DBMON.LOD 92081-17008 5000 4 DBMON'S LINK COMMAND FILE '$ DBMON.REL 92081-16015 5010 5 DBMON DB MONITOR PROGRAM. $& DBMS.REL 92081-12001 5010 5 IMAGE LOCAL SUBROUTINE LIBRARY&' DBMS1.CMD 92081-17021 2540 4 RTE-A DBMS1 MERGE COMMAND FILE '' DBMS2.CMD 92081-17022 2540 4 RTE-A DBMS2 MERGE COMMAND FILE '' DBMS3.CMD 92081-17023 2540 4 RTE-A DBMS3 MERGE COMMAND FILE '' DBRBR.LOD 92081-17009 5000 4 DBRBR'S LINK COMMAND FILE '' DBRBR.REL 92081-16016 5000 5 DBRBR ROLLBACK RECOVERY PROGRAM '' DBRFR.LIB 92081-16560 5000 5 BRFR LIBRARY '' DBRFR.LOD 92081-17010 5000 4 DBRFR'S LINK COMMAND FILE '' DBRFR.REL 92081-16017 5000 5 DBRFR ROLLFORWARD RECOVERY PROGR'' DBRST.LOD 92081-17011 5000 4 DBRST'S LINK COMMAND FILE '' DBRST.REL 92081-16760 5000 5 DBRST PHYSICAL RESTORE PROGRAM '' DBSPA.LOD 92081-17012 5000 4 DBSPA'S LINK COMMAND FILE '' DBSPA.REL 92081-16770 5000 5 DBSPA DATABASE SPACE UTILITY '' DBSPL.LOD 92081-17013 5000 4 DBSPL'S LINK COMMAND FILE '' DBSPL.REL 92081-16775 5000 5 DBSPL ROLLFORWARD LOG SPOOLER '' DBSTR.LOD 92081-17014 5000 4 DBSTR'S LINK COMMAND FILE '' DBSTR.REL 92081-16765 5000 5 DBSTR PHYSICAL STORE PROGRAM '' DBULD.LOD 92081-17015 5000 4 DBULD'S LINK COMMAND FILE '' DBULD.REL 92081-16780 5000 5 DBULD DATABASE UNLOAD PROGRAM '' DBUPGRADE.LOD 92081-17182 5000 4 LINK COMMAND FILE FOR DBUPGRADE '' DBUPGRADE.REL 92081-16060 2540 5 RELOCATABLE FOR DBUPGRADE '' DBUTL.HLP 92081-17025 5000 4 DBUTL'S HELP FILE '' DBUTL.LIB 92081-12011 5000 5 DBUTL LIBRARY '' DBUTL.LOD 92081-17016 5000 4 DBUTL'S LINK COMMAND FILE '' DBUTL.REL 92081-16018 5010 5 DBUTL DATABASE UTILITY INTERFACE'' DSDB.LIB 92081-12006 2540 5 IMAGE DS/1000 LIBRARY '' IMAGE6.CMD 92081-17001 5010 4 IMAGE-II FMGR LOADING FILE(RTE6)'' IMAGEA.CMD 92081-17002 5010 4 IMAGE-II FMGR LOADING FILE(RTEA)'' INIT_IMAGE.UTL 92081-17184 2540 4 INITIALIZING IMAGE. '' LOCAL.REL 92081-12002 2440 5 LOCAL ONLY LIBRARY '' NEW_LOGSET.CMD 92081-17186 2540 4 CI CMD FILE FOR NEW LOG SET. '' NEW_LOGSET.UTL 92081-17187 2540 4 DBUTL CMD FILE FOR NEW LOG SET. '' NO_DS.REL 92081-12005 2440 5 IMAGE DS/1000 STUB LIBRARY '' OHNO_GOTTA_GO.UTL 92081-17197 2540 4 RB RECOVERY THAT FAILS. ' QUERY.LIB 92081-12012 5010 5 QUERY LIBRARY ' QUERY.LOD 92081-17018 5000 4 QUERY'S LINK COMMAND FILE '' QUERY.REL 92081-16019 5010 5 QUERY DATABASE INTERACTIVE REPOR'' RDBA.REL 92081-12003 5010 5 IMAGE REMOTE SUBROUTINE LIBRARY '' RDBAM.REL 92081-16880 5000 5 RDBAM REMOTE DATABASE PROGRAM. '' RDBAM6.LOD 92081-17179 5000 4 LINK COMMAND FOR RDBAM ON RTE-6 '' RDBAMA.LOD 92081-17174 5010 4 LINK COMMAND FOR RDBAM ON RTE-A '' RDBAP.REL 92081-16020 2540 5 RDBAP REMOTE DATABASE PROGRAM. '' RDBAP6.LOD 92081-17180 2540 4 LINK COMMAND FOR RDBAP ON RTE-6 '' RDBAPA.LOD 92081-17181 5010 4 LINK COMMAND FOR RDBAP ON RTE-A '' RDBCLN.LOD 92081-17178 5000 4 LINK CMD FOR RTE-6 DEMON '' RDTB.REL 92081-16410 2440 5 MAGE DS/1000 REMOTE PROG TABLE. '' RECOVER_RB.CMD 92081-17193 5000 4 CI CMD FILE TO RECOVER. '' RECOVER_RB.UTL 92081-17194 2540 4 ROLL-BACK RECOVERY. '' RECOVER_RF.CMD 92081-17195 2540 4 CI CMD FILE FOR HARD CRASH. '' RECOVER_RF.UTL 92081-17196 2540 4 RECOVERY WITH ROLL-FORWARD '$ REMOT.REL 92081-12004 5010 5 IMAGE REMOTE ONLY LIBRARY $ SAM6I.REL 92081-16022 2440 5 SAMURAI FOR RTE-6 SAMAI.REL 92081-16021 2440 5 SAMURAI FOR RTE-A ! SHORT_DBOPN.REL 92081-16281 2540 5 MP STUB FOR A-SERIES! SHUTDOWN.UTL 92081-17189 2540 4 SHUT IMAGE DOWN. STARTUP.UTL 92081-17188 2540 4 START IMAGE.' USNUM.REL 92081-16577 2440 5 GETS SESSION ID (DUMMY FOR RTE-6'! ZOOBLD 92081-18838 2540 4 IMAGE-I UPGRADE HELP!! ZOORT 92081-18839 2540 4 IMAGE-I UPGRADE HELP!MMAND FILE&& DB6S2.CMD 92081-17028 2540 4 RTE-6 DBMS2 MERGE COMMAND FILE&& DB6HPHPHP::PASCAL:4:44:37 644 0 0 26400 5300503611 32056 HPHPHP::PASCAL:4:44:37 $, L,%_HPHPHP ++$u+X-FST ((* "* MATERIAL LIST: 92833-13512 REV: 6000 MT1600-PASCAL_1000 5104"* * (SAME AS MATERIAL LIST: 92833-13320 REV: 6000 ) * (SAME AS MATERIAL LIST: 92833-13601 REV: 6000 ) * * Directory: /PASCAL/ * Directory: /PASCAL/CMP/* Directory: /PASCAL/CMP/CDS/* Directory: /PASCAL/CMP/STD/* Directory: /PASCAL/ETC/ALTER/* Directory: /PASCAL/INSTALL/* Directory: /PASCAL/LIB/CDS/* Directory: /PASCAL/LIB/STD/* 92833-16061 5000 01 01 5 /PASCAL/CMP/ALB.REL:::5:28 92833-16062 5000 01 01 5 /PASCAL/CMP/STD/CAT.REL:::5:492833-16063 5000 01 01 5 /PASCAL/CMP/CDSOF.REL:::5:192833-16064 5000 01 01 5 /PASCAL/CMP/CDSON.REL:::5:192833-16065 5000 01 01 5 /PASCAL/CMP/STD/DBG.REL:::5:21 92833-16066 5010 01 01 5 /PASCAL/CMP/STD/DCL.REL:::5:13792833-16067 5000 01 01 5 /PASCAL/CMP/DCT.REL:::5:192833-16069 5000 01 01 5 /PASCAL/CMP/STD/FDUBL.REL:::5:192833-16071 5000 01 01 5 /PASCAL/CMP/STD/ERW.REL:::5:32 92833-16072 5000 01 01 5 /PASCAL/CMP/STD/EV1.REL:::5:86 92833-16073 5000 01 01 5 /PASCAL/CMP/STD/EV2.REL:::5:82 92833-16074 5000 01 01 5 /PASCAL/CMP/STD/EV3.REL:::5:56 92833-16075 5000 01 01 5 /PASCAL/CMP/STD/EV4.REL:::5:31 92833-16076 5000 01 01 5 /PASCAL/CMP/STD/EV5.REL:::5:35 92833-16077 5000 01 01 5 /PASCAL/CMP/STD/EXP.REL:::5:13992833-16078 5000 01 01 5 /PASCAL/CMP/STD/FLD.REL:::5:34 92833-16079 5000 01 01 5 /PASCAL/CMP/STD/INT.REL:::5:88 92833-16080 5000 01 01 5 /PASCAL/CMP/STD/MAN.REL:::5:592833-16081 5010 01 01 5 /PASCAL/CMP/STD/MEX.REL:::5:54 92833-16082 5000 01 01 5 /PASCAL/CMP/STD/MIM.REL:::5:53 92833-16085 5000 01 01 5 /PASCAL/CMP/STD/OPT.REL:::5:58 92833-16086 5000 01 01 5 /PASCAL/CMP/STD/PRG.REL:::5:14192833-16087 5000 01 01 5 /PASCAL/CMP/STD/SCN.REL:::5:61 92833-16088 5000 01 01 5 /PASCAL/CMP/STD/SG00P.REL:::5:38 92833-16089 5000 01 01 5 /PASCAL/CMP/STD/SG01P.REL:::5:16 92833-16092 5000 01 01 5 /PASCAL/CMP/STD/STF.REL:::5:36 92833-16093 5000 01 01 5 /PASCAL/CMP/STD/STM.REL:::5:56 92833-16094 5000 01 01 5 /PASCAL/CMP/STD/STP.REL:::5:72 92833-16095 5010 01 01 5 /PASCAL/CMP/STD/TLM.REL:::5:11092833-16097 5000 01 01 5 /PASCAL/CMP/STD/UNT.REL:::5:15292833-16098 5000 01 01 5 /PASCAL/CMP/STD/UTL.REL:::5:81 92833-16099 5000 01 01 5 /PASCAL/CMP/STD/XFM.REL:::5:172 92833-16103 5000 01 01 5 /PASCAL/CMP/STD/PASCAL.REL:::5:140 "92833-16104 6000 01 01 5 /PASCAL/LIB/CDS/PASCAL_CDS.LIB:::5:621 "#92833-16107 6000 01 01 5 /PASCAL/LIB/STD/PASCAL_FMGR.LIB:::5:583# 92833-16113 6000 01 01 5 /PASCAL/LIB/STD/PASCAL.LIB:::5:586 "92833-16116 5000 01 01 5 /PASCAL/LIB/CDS/PASCAL_CTRA.REL:::5:5"!92833-16117 5000 01 01 5 /PASCAL/LIB/STD/PASCAL_LH2.REL:::5:2 !!92833-16125 5000 01 01 5 /PASCAL/LIB/STD/PASCAL_ERR.REL:::5:9 !92833-16131 5000 01 01 5 /PASCAL/CMP/STD/FORCE.REL:::5:27 92833-16132 5000 01 01 5 /PASCAL/CMP/STD/GO.REL:::5:2 92833-16133 5000 01 01 5 /PASCAL/CMP/STD/MEU.REL:::5:11 92833-16134 5010 01 01 5 /PASCAL/CMP/STD/MSC.LIB:::5:64192833-16135 5000 01 01 5 /PASCAL/CMP/STD/NOTEL.REL:::5:192833-16136 5000 01 01 5 /PASCAL/CMP/STD/NUM.REL:::5:492833-16137 5000 01 01 5 /PASCAL/CMP/STD/FCB.REL:::5:392833-16138 5000 01 01 5 /PASCAL/CMP/STD/PASS.LIB:::5:4792833-16139 5000 01 01 5 /PASCAL/CMP/STD/PCIOR.REL:::5:16 92833-16140 5000 01 01 5 /PASCAL/CMP/STD/PCIOF.REL:::5:792833-16141 5000 01 01 5 /PASCAL/CMP/STD/PICK.LIB:::5:131 92833-16142 5000 01 01 5 /PASCAL/CMP/STD/SAM6.REL:::5:1492833-16143 5000 01 01 5 /PASCAL/CMP/STD/SAMA.REL:::5:1492833-16144 5000 01 01 5 /PASCAL/CMP/STD/SEGTB.REL:::5:392833-16145 5000 01 01 5 /PASCAL/CMP/STD/SG02P.REL:::5:392833-16146 5000 01 01 5 /PASCAL/CMP/STD/SG03P.REL:::5:292833-16147 5000 01 01 5 /PASCAL/CMP/STD/SG04P.REL:::5:292833-16148 5000 01 01 5 /PASCAL/CMP/STD/SG05P.REL:::5:292833-16149 5000 01 01 5 /PASCAL/CMP/STD/SG06P.REL:::5:392833-16150 5000 01 01 5 /PASCAL/CMP/STD/SG07P.REL:::5:392833-16151 5000 01 01 5 /PASCAL/CMP/STD/SG08P.REL:::5:292833-16152 5000 01 01 5 /PASCAL/CMP/STD/SG09P.REL:::5:292833-16153 5000 01 01 5 /PASCAL/CMP/STD/SG10P.REL:::5:292833-16154 5000 01 01 5 /PASCAL/CMP/STD/SG11P.REL:::5:292833-16155 5000 01 01 5 /PASCAL/CMP/STD/SG12P.REL:::5:292833-16156 5000 01 01 5 /PASCAL/CMP/STD/SG13P.REL:::5:292833-16157 5000 01 01 5 /PASCAL/CMP/STD/SG14P.REL:::5:292833-16158 5000 01 01 5 /PASCAL/CMP/STD/SG15P.REL:::5:292833-16159 5000 01 01 5 /PASCAL/CMP/STD/SG16P.REL:::5:492833-16160 5000 01 01 5 /PASCAL/CMP/STD/SG17P.REL:::5:292833-16161 5000 01 01 5 /PASCAL/CMP/STD/SG18P.REL:::5:392833-16163 5000 01 01 5 /PASCAL/CMP/STD/SSC.REL:::5:26 92833-16164 5000 01 01 5 /PASCAL/CMP/STD/TRACE.REL:::5:11 92833-16165 5000 01 01 5 /PASCAL/CMP/STD/TRACE1.REL:::5:2 "92833-16167 5000 01 01 5 /PASCAL/LIB/CDS/PASCAL_CERR.REL:::5:11 "!92833-16168 5000 01 01 5 /PASCAL/LIB/STD/PASCAL_TRA.REL:::5:6 !"92833-16169 5000 01 01 5 /PASCAL/LIB/STD/PASCAL_TRB.REL:::5:21""92833-16170 5000 01 01 5 /PASCAL/LIB/STD/PASCAL_TRC.REL:::5:21"92833-16171 5000 01 01 5 /PASCAL/CMP/CDS/CAT.REL:::5:492833-16172 5000 01 01 5 /PASCAL/CMP/CDS/DBG.REL:::5:26 92833-16173 5010 01 01 5 /PASCAL/CMP/CDS/DCL.REL:::5:17892833-16174 5010 01 01 5 /PASCAL/CMP/CDS/DLB.REL:::5:11692833-16175 5000 01 01 5 /PASCAL/CMP/CDS/ELB.REL:::5:12192833-16176 5000 01 01 5 /PASCAL/CMP/CDS/ERW.REL:::5:41 92833-16177 5000 01 01 5 /PASCAL/CMP/CDS/EV1.REL:::5:12992833-16178 5000 01 01 5 /PASCAL/CMP/CDS/EV2.REL:::5:11692833-16179 5000 01 01 5 /PASCAL/CMP/CDS/EV3.REL:::5:81 92833-16180 5000 01 01 5 /PASCAL/CMP/CDS/EV4.REL:::5:39 92833-16181 5000 01 01 5 /PASCAL/CMP/CDS/EV5.REL:::5:47 92833-16182 5000 01 01 5 /PASCAL/CMP/CDS/EXP.REL:::5:15392833-16183 5000 01 01 5 /PASCAL/CMP/CDS/FLD.REL:::5:45 92833-16184 5000 01 01 5 /PASCAL/CMP/CDS/INT.REL:::5:10592833-16185 5000 01 01 5 /PASCAL/CMP/CDS/MAN.REL:::5:492833-16186 5010 01 01 5 /PASCAL/CMP/CDS/MEX.REL:::5:66 92833-16187 5000 01 01 5 /PASCAL/CMP/CDS/MIM.REL:::5:65 92833-16188 5000 01 01 5 /PASCAL/CMP/CDS/MNU.REL:::5:78 92833-16189 5000 01 01 5 /PASCAL/CMP/CDS/NFS.REL:::5:27 92833-16190 5000 01 01 5 /PASCAL/CMP/CDS/OPT.REL:::5:71  92833-16191 5000 01 01 5 /PASCAL/CMP/CDS/PASCAL.REL:::5:168 92833-16192 5000 01 01 5 /PASCAL/CMP/CDS/PRG.REL:::5:15892833-16193 5000 01 01 5 /PASCAL/CMP/CDS/SCN.REL:::5:71 92833-16194 5000 01 01 5 /PASCAL/CMP/CDS/SG00P.REL:::5:42 92833-16195 5000 01 01 5 /PASCAL/CMP/CDS/SG01P.REL:::5:18 92833-16196 5000 01 01 5 /PASCAL/CMP/CDS/SLB.REL:::5:10392833-16197 5000 01 01 5 /PASCAL/CMP/CDS/SSL.REL:::5:16392833-16198 5000 01 01 5 /PASCAL/CMP/CDS/STF.REL:::5:45 92833-16199 5000 01 01 5 /PASCAL/CMP/CDS/STM.REL:::5:64 92833-16200 5000 01 01 5 /PASCAL/CMP/CDS/STP.REL:::5:10392833-16201 5010 01 01 5 /PASCAL/CMP/CDS/TLM.REL:::5:13492833-16202 5000 01 01 5 /PASCAL/CMP/CDS/ULB.REL:::5:28692833-16203 5000 01 01 5 /PASCAL/CMP/CDS/UNT.REL:::5:19892833-16204 5000 01 01 5 /PASCAL/CMP/CDS/UTL.REL:::5:91 92833-16205 5000 01 01 5 /PASCAL/CMP/CDS/XFM.REL:::5:23792833-16208 5000 01 01 5 /PASCAL/CMP/CDS/SAMER.REL:::5:3 92833-16209 5000 01 01 5 /PASCAL/ETC/ALTER/ALTER.REL:::5:94 %92833-16210 5000 01 01 5 /PASCAL/LIB/STD/PASCAL_FMGR_ALT.LIB:::5:468%92833-16219 5010 01 01 5 /PASCAL/CMP/CDS/DATE.REL:::5:3 92833-16220 5000 01 01 5 /PASCAL/LIB/STD/SHSLB.LIB:::5:18 !92833-16221 5000 01 01 5 /PASCAL/LIB/STD/SHSLB_ALT.LIB:::5:14 !#92833-16222 5000 01 01 5 /PASCAL/LIB/STD/PASCAL_ERR_ALT.REL:::5:9 #92833-16223 5000 01 01 5 /PASCAL/CMP/STD/ETC.LIB:::5:28292833-16224 5000 01 01 5 /PASCAL/CMP/STD/SG19P.REL:::5:392833-16225 5000 01 01 5 /PASCAL/CMP/STD/SUM.REL:::5:40 92833-16226 5000 01 01 5 /PASCAL/CMP/CDS/SUM.REL:::5:45 92833-16227 5000 01 01 5 /PASCAL/CMP/STD/DCV.REL:::5:692833-16229 5010 01 01 5 /PASCAL/CMP/STD/DATE.REL:::5:3 92833-17021 5000 01 01 4 /PASCAL/CMP/PASCAL.ERR:::4:35!92833-17032 5000 01 01 3 /PASCAL/CMP/STD/PASCOMP_A.LOD:::3:15 !!92833-17033 5000 01 01 3 /PASCAL/CMP/STD/PASCOMP_6.LOD:::3:15 !!92833-17045 5000 01 01 3 /PASCAL/CMP/CDS/PASCOMP_C.LOD:::3:6! 92833-17046 5000 01 01 4 /PASCAL/CMP/STD/PASCAL_A.LOD:::4:1 92833-17047 5000 01 01 4 /PASCAL/CMP/STD/PASCAL_6.LOD:::4:1 92833-17048 5000 01 01 4 /PASCAL/CMP/CDS/PASCAL_C.LOD:::4:1 92833-17049 5000 01 01 4 /PASCAL/ETC/ALTER/ALTER.DAT:::4:54 92833-17050 5000 01 01 4 /PASCAL/ETC/ALTER/ALTER.LOD:::4:1 92833-17062 5000 01 01 4 /PASCAL/INSTALL/SAMPLE.PAS:::4:3 92833-17071 5000 01 01 4 /PASCAL/INSTALL/INSTALL:::4:9 92833-17072 5000 01 01 3 /PASCAL/INSTALL/INSTALL_LIBS:::3:2 92833-17073 5000 01 01 4 /PASCAL/INSTALL/CONFIG_CMP:::4:4  92833-17074 5000 01 01 4 /PASCAL/INSTALL/INSTALL_CMP:::4:2 92833-17075 5000 01 01 4 /PASCAL/INSTALL/TEST_STD:::4:3 92833-17076 5000 01 01 4 /PASCAL/INSTALL/TEST_CDS:::4:3 92833-17077 5000 01 01 4 /PASCAL/INSTALL/INSTALL_C:::4:392833-17078 5000 01 01 4 /PASCAL/INSTALL/INSTALL_A:::4:392833-17079 5000 01 01 4 /PASCAL/INSTALL/INSTALL_6:::4:4!92833-17083 5000 01 01 4 /PASCAL/INSTALL/INSTALL_ALTER:::4:2!92833-17085 5000 01 01 3 /PASCAL/CONFIG_GUIDE.((DOC:::3:563 "92833-17086 5000 01 01 4 /PASCAL/INSTALL/INSTALL_STD_LIBS:::4:3 ""92833-17087 5000 01 01 4 /PASCAL/INSTALL/INSTALL_CDS_LIBS:::4:2 ""92833-17088 5000 01 01 4 /PASCAL/INSTALL/INSTALL_FMGR_LIB:::4:3 ""92833-17089 5000 01 01 4 /PASCAL/INSTALL/INSTALL_ALT_LIBS:::4:2 ""92833-17090 5000 01 01 4 /PASCAL/INSTALL/INSTALL_ERR_FILE:::4:2 " 92833-17091 5000 01 01 4 /PASCAL/INSTALL/RESTORE_LIBS:::4:2 "92833-17092 5000 01 01 4 /PASCAL/INSTALL/RESTORE_STD_CMP:::4:2""92833-17093 5000 01 01 4 /PASCAL/INSTALL/RESTORE_CDS_CMP:::4:2"!92833-17094 5000 01 01 4 /PASCAL/INSTALL/RESTORE_ALTER:::4:2!!92833-17095 5000 01 01 4 /PASCAL/INSTALL/SIZE_UP_LINK_C:::4:2 !!92833-17096 5000 01 01 4 /PASCAL/INSTALL/SIZE_UP_LINK_A:::4:2 !!92833-17097 5000 01 01 4 /PASCAL/INSTALL/SIZE_UP_LINK_6:::4:3 !92833-17098 5000 01 01 4 /PASCAL/INSTALL/LINKSZ.LOD:::4:1  92833-17100 5000 01 01 3 /PASCAL/ETC/ALTER/ALTER.DOC:::3:61 92833-17998 6000 01 01 4 /PASCAL/A92833:::4:54* * END MATERIAL LIST * 92833-16192 5000 01 01 5 /PASCAL/CMP/CDS/PRG.REL:::5:15892833-16193 5000 01 01 5 /PASCAL/CMP/CDS/SCN.REL:::5:71 92833-16194 5000 01 01 5 CONFIG_GUIDE.DOC::PASCAL:3:563:41 644 0 0 431400 5300501766 36117 CONFIG_GUIDE.DOC::PASCAL:3:563:41 !!$3 >X3)CONFIG_GUIDE DOC +++3 ,>FST  */PASCAL/CONFIG_GUIDE.DOC 92833-17085 REV.5000 <870504.1845>   1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && Page 1 &   Pascal/1000 CONFIGURATION GUIDE  % WARNING: This document has not yet been updated for revision 5.0; this% is the revision 2440 version of this document.  & This manual describes the configuration and installation of Pascal/1000.&  Pascal/1000 consists of the directory structure:   /Pascal   | |" +---------------+----------+---------+--------------------+ "" | | | | "" | | | | " # Install Cmp Lib Etc# " | | | "" | | | " +----+----+ +----+----+ # | | | | Alter #  Cds Std Cds Std    In a nutshell, Pascal installation requires 2 basic steps: % 1. Restore the files from the distribution media (tape or floppies)%$ into a file system on hard disc, and move into the installation $ directory. For example:  CI> tf co 8  CI> wd /Pascal/Install   2. Invoke one of the installation command files:   (default installations:) CI> Install_C (for RTE A with CDS support) CI> Install_A (for RTE A without CDS support)  CI> Install_6 (for RTE 6)   (other configurations:) " CI> Install [C|A|6] [Cds|Std] [# WS-pages] [Cdson|Cdsof] "   If you are not familiar with the system requirements, tuning 1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && Page 2 & " guidelines, and installation procedures for the Pascal compiler,"" you should read the rest of this manual before installing Pascal. "1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && Contents Page 3 &   CONTENTS   $ QUICK REFERENCE .............................................. 1$  $ OVERVIEW...................................................... 4$$ Suggested Reading Sequence ................................ 5$    $ 1. INTRODUCTION .............................................. 6$$ 1A. Components of Pascal ............................... 6$$ 1B. Installed Files .................................... 7$  $ 2. CONFIGURATIONS ............................................ 8$$ 2A. Compiler ........................................... 8$$ 2B. Libraries .......................................... 9$  $ 3. SYSTEM REQUIREMENTS ....................................... 11$$ 3A. Requirements for the Cds Pascal Compiler ........... 12$$ 3A1. Hardware Requirements .......................... 12$$ 3A2. Software Requirements .......................... 13$$ 3A3. Memory Requirements ............................ 14$$ 3A4. Disc Requirements .............................. 15$ $ 3B. Requirements for the Std Pascal Compiler ........... 18$$ 3B1. Hardware Requirements .......................... 18$$ 3B2. Software Requirements .......................... 19$$ 3B3. Memory Requirements ............................ 20$$ 3B4. Disc Requirements .............................. 21$ $ 3C. Requirements for the Generated Code ................ 24$$ 3D. Requirements for Installing Pascal ................. 25$  $ 4. CHOOSING A CONFIGURATION .................................. 28$$ 4A. Cds vs. Std Compiler ............................... 29$$ 4B. Cds vs. Std Code Generation ........................ 31$$ 4C. Working Set Size ................................... 33$1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && Contents Page 4 &   $ 5. INSTALLATION PROCEDURE .................................... 34$ $ STEP 1. Restoring Files to Disc ........................ 35$ $ 1a. Preparing for the /Pascal Directory ............. 35$$ 1b. Restoring Files From Tape ....................... 35$$ 1c. Restoring Files From Floppies ................... 36$$ 1d. Restoring Files To Limited Disc From Tape ....... 37$$ 1e. Restoring Files To Limited Disc From Floppies ... 38$ $ STEP 2. Installing the Software ........................ 39$ $ Installation Notes ..................................... 41$  $ APPENDIX A. LISTINGS OF INSTALLATION FILES ................... 43$$ Install_C ................................................. 44$$ Install_A ................................................. 44$$ Install_6 ................................................. 44$$ Install ................................................ 45$$ Install_Libs ........................................ 46$$ Install_Cds_Libs ................................. 47$$ Install_Std_Libs ................................. 48$$ Install_FMGR_Libs ................................ 49$$ Install_Alt_Libs ................................. 50$$ Install_Err_File ................................. 51$$ Config_Cmp .......................................... 52$$ Size_Up_Link_C ................................... 53$$ Size_Up_Link_A ................................... 53$$ Size_Up_Link_6 ................................... 53$$ LinkSz.Lod .................................... 53$$ Install_Cmp ......................................... 54$$ Test_Std ............................................ 55$$ Test_Cds ............................................ 56$$ Sample.Pas ................................................ 57$$ Install_Alter ............................................. 58$ $ Restore_Libs .............................................. 59$$ Restore_Std_Cmp ........................................... 60$$ Restore_Cds_Cmp ........................................... 61$$ Restore_Alter ............................................. 62$ $ APPENDIX B. BENCHMARKING INFORMATION ......................... 63$ $ APPENDIX C. COMPILER ERRORS .................................. 65$ $ APPENDIX D. GLOSSARY ......................................... 67$ $ APPENDIX E. MEMORY REQUIREMENT GRAPHS ........................ 76$ $ APPENDIX F. COMPILE SPEED GRAPHS ............................. 79$1 & Pascal/1000 C((onfiguration Guide Rev.5000 Mon May 4, 1987 6:44 pm && Overview Page 5 &  OVERVIEW OF THE Pascal/1000 CONFIGURATION GUIDE   Section 1. INTRODUCTION! describes the software components and manuals of ! Pascal/1000.   Section 2. CONFIGURATIONS$ defines the various options you have in configuring a$ Pascal compiler on an HP 1000.   Section 3. SYSTEM REQUIREMENTS # defines the hardware and software resources required #% to install Pascal, and to compile, link, and run Pascal% programs on various HP 1000 systems.   Section 4. CHOOSING A CONFIGURATION% provides some guidelines and recommendations for setting % up a Pascal program development system.  Section 5. INSTALLATION PROCEDURE# describes how to read the Pascal software onto your## disc, and then how to link the programs and copy the #$ libraries into the appropriate places in your system.$  Appendix A. LISTINGS OF INSTALLATION COMMAND FILES% shows all of the command files used in the installation% process.   Appendix B. BENCHMARKING INFORMATION# provides some guidelines to follow when benchmarking # and tuning Pascal programs.  Appendix C. COMPILER ERRORS # describes the errors that may occur when running the # compiler (aside from syntax errors).   Appendix D. GLOSSARY defines some terminology used in this manual.   Appendix E. MEMORY REQUIREMENT GRAPHS # contains some graphs showing memory requirements for ## running the various Pascal compiler configurations.#  Appendix F. COMPILE SPEED GRAPHS! contains some graphs showing compile speeds for!" different compiler configurations on various CPUs. "1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && Suggested Reading Sequence Page 6 &     SUGGESTED READING SEQUENCE:  # If you are already familiar with the configuration of the Pascal ## compiler, and its installation, you can probably find everything # you need on Page 1, the Quick Reference section.  $ If you are not familiar with the configuration or installation of$ Pascal, the following reading sequence is recommended:   1. Introduction (Sec. 1)  2. Glossary (Appx D.)   3. Configurations (Sec. 2)  4. System Requirements (Sec. 3)   5. Choosing a Configuration (Sec. 4 and Appx E and F)   6. Listings of Installation Files (Appx. A)   7. Installation Procedure (Sec. 5)  8. Other Appendices   1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && 1. Introduction: Pascal Components Page 7 &   1. INTRODUCTION  ! Pascal/1000 is the implementation of HP Pascal for the HP 1000!" computer systems family. HP Pascal, an extension of ANSI Pascal, " is implemented on most HP computer systems.     1A. PASCAL COMPONENTS  ! Pascal/1000, or HP 92833A, is a product consisting of software! (command, data, relocatable, and library files), and a set of  manuals.  The software is supplied on one of the following media:   7908/11/12/14 Cartridge Tape 8" Flexible Discs  1600 BPI Magnetic Tape 5.25" Minifloppy Discs 800 BPI Magnetic Tape 3.5" Microfloppy Discs  To get a list of all Pascal files and manuals, refer to the " Pascal/1000 Software Numbering Catalog (HP Part No. 92833-90006). "" This information is also supplied with the software in the file:"  /Pascal/A92833   # To learn about configuring your Pascal compiler, and how to install #$ it, read further in this manual, the Pascal/1000 Configuration Guide$" (HP Part No. 92833-17085). This manual is supplied in the file:"  /Pascal/Config_Guide.Doc   " To learn the Pascal language, a tutorial book with some HP Pascal " examples is available:  % Programming in Pascal with Hewlett-Packard, HP Part No. 97082-90002. %% (many other tutorial books are also available for teaching Pascal).%  " To learn about the features and use of HP Pascal and Pascal/1000, " you may consult:   Pascal/1000 Reference Manual, HP Part No. 92833-90005.    To learn how to run the ALTER program, print the file:  /Pascal/Etc/Alter/Alter.Doc1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && 1. Introduction: Installed Files Page 8 &   1B. INSTALLED FILES  " Once Pascal is installed, the files listed below will reside on your "$ system for Pascal program development. The installation transfer files$& install the compiler and libraries in the proper places on the file system.&% If you want to put them on FMGR cartridges instead, the naming conventions % below should be used.   File Name  (FS) (FMGR) Description  Compiler programs   /PROGRAMS/PASCAL.RUN PASCL Pascal monitor  /PROGRAMS/PASCOMP.RUN PCL Pascal compiler  Std FS Libraries   /LIBRARIES/PASCAL.LIB $PLIBN Pascal FS Library /LIBRARIES/PASCAL_ERR.REL %PRERS Short Error Library /LIBRARIES/PASCAL_TRA.REL %TRCAS Trace Library A /LIBRARIES/PASCAL_TRB.REL %TRCBS Trace Library B /LIBRARIES/PASCAL_TRC.REL %TRCCS Trace Library C /LIBRARIES/PASCAL_LH2.REL %PLDH2 LOADR/MLLDR dummies /LIBRARIES/SHSLB.LIB $SHSLB Short Heap/Stack Lib   CDS FS Libraries   /LIBRARIES/PASCAL_CDS.LIB $PLIBC Library (New files) /LIBRARIES/PASCAL_CERR.REL %PRERC Short Error Library /LIBRARIES/PASCAL_CTRA.REL %TRCAC Trace Library A  Std FMGR Libraries   /PASCAL/PASCAL_FMGR.LIB $PLIB Pascal FMGR Library  Altered Std FMGR Libraries  # /LIBRARIES/PASCAL_FMGR_ALT.LIB =PLIB Altered Pascal FMGR Library## /LIBRARIES/PASCAL_ERR_ALT.REL =PRERS Altered Short Error Library## /LIBRARIES/SHSLB_ALT.LIB =SHSLB ALtered Short Heap/Stack Lib #  Other programs  & /PROGRAMS/ALTER.RUN ALTER Convert relocatable to IVB format. &  Other Files  /SYSTEM/PASCAL.ERR "PERRS Syntax Error List# /SYSTEM/ALTER.DAT Name file for program ALTER# 1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && 2A. Configurations: Compilers Page 9 &   2. CONFIGURATIONS  " This section defines the various options you have in configuring" a Pascal compiler on an HP 1000 system. There are several  choices for both compilers and libraries.   2A. COMPILERS   The compiler consists of two programs: o Monitor program: PASCAL.RUN  o Compiler: PASCOMP.RUN  $ There are 3 primary configurations of the 2 programs of the compiler: $  o Cds/RTE-A Compiler: " PASCAL and PASCOMP are shared CDS programs on RTE-AVC+."   o Std/RTE-A Compiler:  PASCAL and PASCOMP are Std programs on RTE-A.   o Std/RTE-6 Compiler:  PASCAL and PASCOMP are Std programs on RTE-6.   In addition, each of these compilers can be configured:   o to generate either CDS or Std code by default, " Unless overridden, all code generated by the compiler will"" either be Cds or Std code, according to the setting of this " option.  " This default can be overridden by the $CDS ON$ or $CDS OFF$ " compiler option, on a per-source-file basis. " o to use more or less memory to improve compiler performance"# or improve system memory utilization. This is determined by# o which compiler (Cds or Std) is chosen.# o the Working Set of the compiler. This parameter is set #% at installation time, and can be changed later, if need be, % by using the re-link feature of Link.  o the number of compilations executing at one time.   o to use more or less disc space for scratch files.  This is determined by: o which compiler (Cds or Std) is chosen, o the WS and VS of the compiler. o the number of compilations executing at one time. 1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && 2B. Configurations: Libraries Page 10 &    2B. LIBRARIES   There are 4 primary runtime libraries. One (and only one) of # these should be searched when linking a particular Pascal program.#" It is recommended that you(( generate into your system the one that " you will use the most often.  $ o Cds/FS Library: Pascal_Cds.Lib {aka $PLIBC} $  This library is used with programs that: o have been compiled with $CDS ON$ o need to access File System and/or FMGR files.    $ o Std/FS Library: Pascal.Lib {aka $PLIBN} $  This library is used with programs that: o have been compiled with $CDS OFF$  o need to access File System and/or FMGR files.    $ o Std/FMGR Library: Pascal_FMGR.Lib {aka $PLIB}$  This library is used with programs that: o have been compiled with $CDS OFF$  o need to access only FMGR files # It provides no capability beyond Pascal.Lib, but will result#$ in a smaller loaded program. It is provided for those programs $" which do not need access to the new file system, and would"! be too large if loaded with the new file system software. !  $ o Std/FMGR/Altered Library: Pascal_FMGR_ALT.Lib {aka =PLIB}$  This library is used with programs that: o have been compiled with $CDS OFF$  o need to access only FMGR files o have been Altered (run through ALTER)  % It is provided for those who want to develop IVB or IVE programs% on an RTE-A or RTE-6 system.1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && 2B. Configurations: Libraries Page 11 &    There are some other relocatables on the tape that can be $ relocated with a program in addition to searching a primary library.$ % "Cds" versions of these relocatables should be used with CDS programs.% "Std" versions should be used with non-CDS programs.$ "Alt" versions should be used with ALTERed relocatables (relocatables $# that have been run throught the program ALTER, for loading onto an# RTE-IVB or IVE system).  # Some of the following are no longer necessary (*'d files), but are#" provided for compatibility with relocatables created by previous" versions of the compiler.   o Short-error handler  o Cds version: Pascal_Cerr.Rel (aka %PRERC) o Std version: Pascal_Err.Rel (aka %PRERS) o Altered: Pascal_Err_Alt.Rel (aka =PRERS)   o Tracers o Cds version: Pascal_Ctra.Rel (aka %TRCAC) o Std versions:  o Trace A Pascal_Tra.Rel (aka %TRCAS) o Trace B Pascal_Trb.Rel (aka %TRCBS) o Trace C Pascal_Trc.Rel (aka %TRCCS)   o Short Heap-Stack Lib  * o Std version: Shslb.Lib (aka $SHSLB) * o Altered: Shslb_Alt.Lib (aka =SHSLB) 1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && 3. System Requirements for the Pascal Compilers Page 12 &   3. SYSTEM REQUIREMENTS  $ This section defines the hardware and software resources required to$$ install, and use the configurations of Pascal described in Section 2. $ $ Based on these requirements, Section 4. provides some guidelines and$$ recommendations for configuring a Pascal program development system.$  # You should be familiar with all of the terms defined in Appendix D# (the Glossary) before reading this section.   This section is organized as follows:    3A. Requirements for the Cds Compiler 3A1. Hardware 3A2. Software 3A3. Memory 3A4. Disc   3B. Requirements for the Std Compiler 3B1. Hardware 3B2. Software 3B3. Memory 3B4. Disc   3C. Requirements for Pascal Generated Code   3D. Requirements for Installing the Pascal Software1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && 3A. System Requirements for the Cds Compiler Page 13 &    3A. REQUIREMENTS FOR THE CDS COMPILER    3A1. HARDWARE REQUIREMENTS FOR THE CDS COMPILER   The CDS compiler will run on any of the following:  o A900 o A700 o A600+    The CDS compiler will not run on any of the following CPU's:   o A600 o F-Series o E-Series o M-Series  o XL o L  $ The system must have 1MB of memory, and more is desirable for better$# performance, especially if more than one compilation is to execute# at one time (see 3A3. Memory Requirements).   VMA, FFP, and Floating point, and Double Integer firmware are " should be utilized, if available on your system, to increase the" performance of the compiler and generated code.  # A hard disc with at least 15MB is required for a reasonable program # development environment (see 3A4. Disc Requirements).  # The following peripherals are recommended for a program development # system:  o Printer  o Mag Tape Drive and/or Cartridge Tape Drive o CRT Terminal(s) 1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && 3A. System Requirements for the Cds Compiler Page 14 &    3A2. SOFTWARE REQUIREMENTS FOR THE CDS COMPILER  # The following are required to install and/or run the CDS Compiler:#  o RTE-A/VC+ (Rev. 2440 or later) o MACRO (Rev. 2440 or later) o $BIGLB.LIB (Rev. 2440 or later) o $CDS.LIB (Rev. 2440 or later) o LINK (Rev. 2440 or later) o DEBUG/1000 (Rev. 2440 or later)% o TF (Rev. 2440 or later) if your Pascal was supplied% on mag tape or cartridge tape.% o OLDRE (Rev. 2226 or later) if you intend to run ALTER.% (ALTER schedules OLDRE)   You must also have all of the following: ! o a FMGR cartridge defined as the System Scratch Cartridge! for Pascal's VM scratch file.   o shared-program capability generated into your system.  (Pascal.Run and Pascomp.Run are shared programs.) 1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && 3A. System Requirements for the Cds Compiler Page 15 &    3A3. MEMORY REQUIREMENTS FOR THE CDS COMPILER   The memory required to run N copies of the Cds compiler is:   PASCAL.RUN  (if shared) " o 1 unswappable shared code partition of 30 pages, plus " o N swappable data partitions of 19 pages each  (if unshared) # o N swappable unshared code partitions of 30 pages, plus# o N swappable data partitions of 19 pages each   PASCOMP.RUN ! o 1 unswappable shared code partition of 301 pages, plus ! o N swappable data partitions of (WS + 31) pages each.   " The table below shows, for up to 6 simultaneous compilations, the "# memory required to run compilers whose working sets are between 40## and 100 pages. (Requirements are shown only for PASCOMP.RUN, since ## PASCAL.RUN can be configured unshared and can be swapped out during # the compilation).   CDS COMPILER MEMORY REQUIREMENTS (KB)   MEM = (301 + N*(WS+31)) * 2KB   100 | 864 1126 1388 1650 1912 2174 90 | 844 1086 1328 1570 1812 2054 80 | 824 1046 1268 1490 1712 1934$ WS 70 | 804 1006 1208 1410 1612 1814 <--- default WS = 70 $ 60 | 784 966 1148 1330 1512 1694 50 | 764 926 1088 1250 1412 1574 40 | 744 886 1028 1170 1312 1454 |___________________________________.  1 2 3 4 5 6   N Compilations1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && 3A. System Requirements for the Cds Compiler Page 16 &    3A4. DISC REQUIREMENTS FOR THE CDS COMPILER   " The disc space required for a particular compilation consists of: "  o DURING THE PASCOMP PHASE:  o VM Scratch File space  This file is always allocated on the System Scratch  Cartridge (which is required to run Pascal).   o Macro Source File space " This file is allocated in the same directory (cartridge) " as the Relocatable File.   o Swap File space $ The Cds compiler's code, like that of other shared programs, $$ is locked into memory while running, and cannot be swapped.$ The data partition, however, is swappable.    o DURING THE MACRO PHASE:  o Macro Scratch File space" This file is allocated in the same directory (cartridge) " as the Source File. (see also, Macro/1000 Reference Manual)  o Relocatable File space! The directory (ca((rtridge) containing this file can be!# specified in the compiler's runstring. If not specified,#$ it defaults to the same directory as the Pascal Source File. $   o DURING THE LINK PHASE:   o Link Scratch File space # This file is normally allocated in the working directory.#  o Executable program space% This file is the runnable program. The directory (cartridge)%% for this file can be specified Link's runstring, and defaults% to the working directory.1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && 3A. System Requirements for the Cds Compiler Page 17 &   The amount of space allocated for the VM Scratch File is:   max (0, (IDS-WS)) pages   VM Scratch File space is required only when IDS > WS. # For the Cds Compiler, only the pages from the virtual area that do## not fit in the Working Set reside on disk (This is not true for the # Std Compiler).  % For example, if WS = 50, and 3 compilations are running, each of which%$ generates a 70-page IDS, then there must be available, on the system$ scratch cartridge:   3*(70-50) = 60 pages = 240 blocks = 5 tracks on a 7914  " The table below shows, for up to 6 simultaneous compilations, the "# VM Scratch File Space required to run compilers whose working sets# are between 40 and 100 pages, assuming a 70-page IDS.    CDS COMPILER DISC REQUIREMENTS  DISC = max (0, (IDS-WS)) pages  ( / 6 = tracks on 7914)  (IDS = 70)  | 100 | 0 0 0 0 0 0 90 | 0 0 0 0 0 0 WS 80 | 0 0 0 0 0 0' 70 | 0 0 0 0 0 0 <--- Default WS = 70 pages ' 60 | 10 20 30 40 50 60 50 | 20 40 60 80 100 120 40 | 30 60 90 120 150 180 |___________________________________.  1 2 3 4 5 6   N Compilations1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && 3A. System Requirements for the Cds Compiler Page 18 &  # The amount of space used for the Macro Source File, Scratch Files,#! Relocatable and Executable File is dependent upon the size of,! and constructs used within, the Pascal Source File. ! Here are a few examples. The first line of each example is for !" Std code generation. The second line is for Cds code generation. "" (These figures are the same regardless of whether the Std or Cds" compiler is used.) All sizes are shown in blocks.     Pascal Macro Macro# Source Source Scratch Reloc Executable# File File File File File  $ ._________________________________________________________.$$ | |$$ PASCAL.PAS S 191 562 1250 92 185 |$$ 1679 lines C 191 607 1250 112 265 |$$ | |$$ | |$$ | |$$ ALTER.PAS S 150 529 1250 96 201 |$$ 1441 lines C 150 574 1250 144 281 |$$ | |$$ ._________________________________________________________.$    $ The amount of space used if the data partition is swapped depends on$ the size of the Working Set:  SWAP_SPACE = WS+31 pages * 8 blocks/page  1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && 3B. System Requirements for the Std Compiler Page 19 &  3B. REQUIREMENTS FOR THE STD COMPILER    3B1. HARDWARE REQUIREMENTS FOR THE STD COMPILER   The Std compiler will run on any of the following:  o A900 o A700 o A600+  o A600 o F-Series o E-Series    The Std compiler will not run on any of the following CPU's:   o M-Series  o XL o L   The system must have 1 MB of memory, but more is recommended # for better performance, especially if more than one compilation is# to execute at the same time (see 3A3. Memory Requirements).   VMA, FFP, and Floating point, and Double Integer firmware are " should be utilized, if available on your system, to increase the" performance of the compiler and generated code.  # A hard disc with at least 15MB is required for a reasonable program # development environment (see 3A4. Disc Requirements).  " The following peripherals are recommended for program development " system:  o Printer  o Mag Tape Drive and/or Cartridge Tape Drive o CRT Terminal(s) 1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && 3B. System Requirements for the Std Compiler Page 20 &    3B2. SOFTWARE REQUIREMENTS FOR THE STD COMPILER  # The following are required to install and/or run the Std Compiler:#  o One of the following:  o RTE-6 (Rev. 2440 or later)  o RTE-A (Rev. 2440 or later)   o MACRO (Rev. 2440 or later) o $BIGLB.LIB (Rev. 2440 or later)# o $CDS.LIB (Rev. 2440 or later, for CDS programs)# o LINK (Rev. 2440 or later) o DEBUG/1000 (Rev. 2440 or later)# o TF (Rev. 2440 or later) if your Pascal was ## supplied on mag tape or cartridge tape. #$ o OLDRE (Rev. 2226 or later) if you intend to run $ ALTER. ALTER schedules OLDRE.   You must also have all of the following: ! o a FMGR cartridge defined as the System Scratch Cartridge! for Pascal's VM scratch file.   o shared-program capability generated into your system,  if you wish to run shared Cds Pascal programs.1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && 3B. System Requirements for the Std Compiler Page 21 &    3B3. MEMORY REQUIREMENTS FOR THE STD COMPILER     The memory required to run N copies of the Std compiler is:   PASCAL.RUN  o N swappable program partitions of 24 pages.  PASCOMP.RUN  o N unswappable EMA partitions of WS pages.      The table below shows, for up to 6 simultaneous compiles, the ! memory required to run compilers whose Working Sets are between !" 150 and 450 pages. (Requirements are shown for PASCOMP.RUN only, " since PASCAL.RUN is swappable during the compilation).    STD COMPILER MEMORY REQUIREMENTS (KB)   MEM = N * WS * 2KB   |  450 | 900 1800 2700 3600 4500 5400  WS: 425 | 850 1700 2550 3400 4250 5100  400 | 800 1600 2400 3200 4000 4800  375 | 750 1500 2250 3000 3750 4500  350 | 700 1400 2100 2800 3500 4200  325 | 650 1300 1950 2600 3250 3900  300 | 600 1200 1800 2400 3000 3600  275 | 550 1100 1650 2200 2750 3300  250 | 500 1000 1500 2000 2500 3000  225 | 450 900 1350 1800 2250 2700 # * 200 | 400 800 1200 1600 2000 2400 <--- Default WS # 175 | 350 700 1050 1400 1750 2100  150 | 300 600 900 1200 1500 1800  |___________________________________.   1 2 3 4 5 6  N Compilations  & (see Section 4C for guidelines on setting the WS (Working Set) of the& compiler.1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && 3B. System Requirements for the Std Compiler Page 22 &    3B4. DISC REQUIREMENTS FOR THE STD COMPILER  " The disc space required for a particular compilation consists of: "   o DURING THE PASCOMP PHASE:  o VM Scratch File space  This file is always allocated on the System Scratch  Cartridge (which is required to run Pascal).   o Macro Source File space " This file is allocated in the same directory (cartridge) " as the Relocatable File.   o Swap File space " The Std compiler is not swappable, and requires no space " in the Swap File.   o DURING THE MACRO PHASE:  o Macro Scratch File space" This file is allocated in the same directory (cartridge) " as th((e Relocatable File.  (see also, Macro/1000 Reference Manual)  o Relocatable File space! The directory (cartridge) containing this file can be!# specified in the compiler's runstring. If not specified,#$ it defaults to the same directory as the Pascal Source File. $   o DURING THE LINK PHASE:   o Link Scratch File space # This file is normally allocated in the working directory.#  o Executable program space% This file is the runnable program. The directory (cartridge)%% for this file can be specified Link's runstring, and defaults% to the working directory.1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && 3B. System Requirements for the Std Compiler Page 23 &  The amount of space allocated for the VM Scratch File is:   min (1, max (0, 360+IDS-WS)) * VS pages  VM Scratch File space is required only when WS < IDS+360. ! For the Std compiler, the VM Scratch File space contains the !" entire virtual data area, in one contiguous area on the System " Scratch Cartridge.  % For example, if VS = 600, WS = 400, and 3 compilations are running,%# each of which needs a 70-page IDS, then there must be available, # on the system scratch cartridge:  ! 3*600 = 1800 pages = 14400 blocks = 300 tracks on a 7914! " The table below shows, for up to 6 simultaneous compilations, the "# VM Scratch File Space required to run compilers whose Working Sets## are 250, 350, and 450 pages, Virtual Sizes are between 500 and 800# pages. A 70-page IDS is assumed for all compilations shown.   STD COMPILER DISC REQUIREMENTS   DISC = min (1, max (0, 360+IDS-WS)) * VS pages$ ( / 6 = tracks on 7914)$ (IDS = 70) | (WS = 450) | VS: | 800 | 0 0 0 0 0 0 700 | 0 0 0 0 0 0 600 | 0 0 0 0 0 0 500 | 0 0 0 0 0 0 | (WS = 350) | VS: | 800 | 800 1600 2400 3200 4000 4800 700 | 700 1400 2100 2800 3500 4200# 600 | 600 1200 1800 2400 3000 3600 <--- Default VS# 500 | 500 1000 1500 2000 2500 3000 | (WS = 250) | VS: | 800 | 800 1600 2400 3200 4000 4800 700 | 700 1400 2100 2800 3500 4200# 600 | 600 1200 1800 2400 3000 3600 <--- Default VS# 500 | 500 1000 1500 2000 2500 3000 |___________________________________.  1 2 3 4 5 6   N Compilations1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && 3B. System Requirements for the Std Compiler Page 24 &  # The amount of space used for the Macro Source File, Scratch Files,#! Relocatable, and Executable Files is the same as that used for! the Cds compiler. See 3A4 for details. 1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && 3C. System Requirements for the Generated Code Page 25 &   3C. REQUIREMENTS FOR THE GENERATED CODE " The following are all of the different kinds of program development"" supported by Pascal/1000. Other configurations may be possible, but "% are not supported. (Refer to the Glossary for unfamiliar abbreviations).%& Below each program type are the special instructions for creating a program& of that type. & The CPU and Op System are those of the target system, not necessarily those&$ of the development system. For example, Cds programs may be compiled on $ an RTE-6 system and Linked on an RTE-AVC+ system.  & PROGRAM TYPE (CPU/ Op System/ Instruction set/ File System/ Reloc Format)&& ___________________________________________________________________________&   Cds,FS,Normal (A900|A700|A600+/ RTE-AVC+/ Cds/ FS|FMGR/ Normal)   o Compile with $CDS ON$ o Link with Pascal_Cds.Lib " o Link with system library $CDS.Lib (recommended, not required)"   Std,FS,Normal! (A900|A700|A600+|A600|F|E/ RTE-AVC+|A|6/ Std/ FS|FMGR/ Normal)!  o Compile with $CDS OFF$  o Link with Pascal.Lib  o Use Link with RTE-A; Use Link or MLLDR with RTE-6   Std,FMGR,Normal# (A900|A700|A600+|A600F|E|XL/ RTE-AVC+|A|6|XL/ Std/ FS|FMGR/ Normal) #  o Compile with $CDS OFF$  o Link with Pascal_FMGR.Lib   Std,FMGR,Altered  (E|F|L/ RTE-IVB|IVE|L/ Std/ FMGR/ Altered)  o Compile with $CDS OFF$  o ALTER the relocatable o Load altered relocatable with Pascal_FMGR_ALT.Lib o If an EMA program, load altered relocatable with " the system library $VMCLB in addition to Pascal_FMGR_ALT.Lib." o Programs using modules cannot be Altered." o ALTER schedules the program OLDRE, which must be available on"% your system. ALTER can process File System files, but OLDRE cannot. % Therefore you should always run ALTER on FMGR files ONLY. 1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && 3D. System Requirements for Installing Pascal Page 26 &   3D. REQUIREMENTS FOR INSTALLING PASCAL   Hardware ! Depending on the type of compiler you are going to install,!# you must have the hardware specified in either 3A1 or 3B1, plus#! a peripheral device compatible with the medium on which you!# ordered Pascal. (e.g. if you ordered a 1600 bpi mag tape, you# must have a 1600 bpi mag tape drive).   Software  You must have the software specified in either 3A2 or 3B2.    Memory $ For installing Pascal, the only unique memory requirement is that$" Link must be "sized-up" to 100 pages in order to Link Pascal."# There are other memory requirements for actually running Pascal, # discussed in Section 3.   Disc % Shown below are the disc space requirements for Pascal installation. % $ The full Pascal installation directory is quite large, due to the$" fact that it contains both Cds and Std relocatables. The full "# directory need not be restored, if disc space is a problem (see# Section 5. Installation for details). # Linking Pascal also requires a large amount of disc space in the #" working directory from which Pascal is installed, as shown in" the table below.  $ Note that not only a few libraries are actually needed for normal$$ program development. In fact, most of the time you will probably$! need only one library (either Pascal_Cds.Lib or Pascal.Lib). !  Disc space needed is either:  o (T)=Temporary: needed for installation only.% o (P)=Permanent: needed as long as Pascal development is to be done % on the system.  o (O)=Optional: not needed by all Pascal programmers. " o (x, a lower case letter)=Only one of the files marked x is"! required; e.g. only one Pa required, etc.!1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && 3D. System Requirements for Installing Pascal Page 27 &   DIRECTORY SIZES  (sizes are rounded up slightly) # (7914) (7914)## Blocks Tracks#  # T /Pascal/ 16000 335# # T Install/ 75 2# # T Cmp/ 10000 225#$ T Std/ 4500 100 $$ T Cds/ 5000 105 $ # T Lib 5000 105#$ T Std/ 3500 75 $$ T Cds/ 1500 35 $ # T Etc/ 300 7#$ T Alter/ 250 6 $1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && 3D. System Requirements for Installing Pascal Page 28 & $ FILE SIZES (rounded up slightly) (7914) (7914) $$ Blocks Tracks $ o Compiler o Cds Compiler # Pa o /PROGRAMS/PASCAL.RUN 325 7 ## Pb o /PROGRAMS/PASCOMP.RUN 2600 66 #  o Std Compiler # Pa o /PROGRAMS/PASCAL.RUN 210 5 ## Pb o /PROGRAMS/PASCOMP.RUN 3100 66 #  o Libraries o Cds Libraries # Pc o /LIBRARIES/Pascal_Cds.Lib 650 14 ## O o /LIBRARIES/Pascal_Cerr.Rel 15 1 ## O o /LIBRARIES/Pascal_CTra.Rel 5 1 ## O o /LIBRARI((ES/$PLIBC 650 14 #  o Std Libraries # Pc o /LIBRARIES/Pascal.Lib 600 13 ## O o /LIBRARIES/Pascal_FMGR.Lib 600 13 ## O o /LIBRARIES/Pascal_FMGR_ALT.Lib 450 10 ## O o /LIBRARIES/Pascal_Err.Rel 10 1 ## O o /LIBRARIES/Pascal_Tra.Rel 10 1 ## O o /LIBRARIES/Pascal_Trb.Rel 25 1 ## O o /LIBRARIES/Pascal_Trc.Rel 25 1 ## O o /LIBRARIES/Pascal_LH2.Rel 2 1 ## O o /LIBRARIES/Shslb.Lib 20 1 ## O o /LIBRARIES/Shslb_Alt.Lib 15 1 ## O o /LIBRARIES/$PLIBN 600 13 ## O o /LIBRARIES/$PLIB 600 13 ## O o /LIBRARIES/=PLIB 450 10 ## O o /LIBRARIES/$SHSLB 20 1 ## O o /LIBRARIES/=SHSLB 15 1 ## O o /LIBRARIES/%PRERS 10 1 ## O o /LIBRARIES/=PRERS 10 1 #  o Alter # O o /PROGRAMS/ALTER.RUN 250 6 ## O o /SYSTEM/ALTER.DAT 60 2 # $ o Temporary files created during the installation process (in the $ current working directory)# Td o LINK's scratch file for Cds PASCOMP: 6200 130 ## Td o LINK's scratch file for Std PASCOMP: 10000 210 ## OTe o pascomp.map for Cds PASCOMP: 400 9 ## OTe o pascomp.map for Std PASCOMP: 800 17 ## T o pascomp.lod 30 1 ## T o pascal.lod 1 1 ## T o sampleS.rel 25 1 ## T o sampleS.run 100 2 ## OT o sampleC.rel 25 1 ## OT o sampleC.run 130 3 #1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && 4A. Choosing a Compiler Type Page 29 &  4. CHOOSING A CONFIGURATION  $ Before installing Pascal, there a few choices you need to make about$ its configuration, namely:  A. whether to install a Cds or a Std Compiler,   B. whether to default code generation from the compiler to  the Cds or the Std instruction set,   C. the setting for the Working Set size of the compiler. 1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && 4A. Choosing a Compiler Type Page 30 &   4A. COMPILER TYPE: CDS VS. STD $ If your CPU does not support the Cds instruction set (E or F-Series), $ you will be installing the Std version of the compiler.  It is the only compiler that will run on the system. " If your CPU does support the Cds instruction set (A900, A700, or" A600+), you have a choice. The Cds compiler is recommended,  as it requires less memory and disc for most environments. Below is a brief comparison of the two:   o Feature Set # There is no difference in the feature sets supported by the two# compilers. However, note the following:   o Compilable Programs $ Due to two different limitations in the compilers, there are some$# programs that one compiler will handle, that the other one will## not, and vice versa. This is discussed below in Compiler Stack# Limitations.   o Speed# The two compilers, when fully memory-resident, are approximately #" the same speed, although the Std compiler is, for some source" files, 5-10% faster.   o Memory " Compare Figures E-1 and E-2 in Appendix E. For more than one"! user, the amount of memory required for faster compilations! is substantially less for the Cds compiler.  o Disc " In general, the disc space required for the Cds compiler's VM"$ scratch file is roughly 5% of that required for the Std compiler.$" This space can be quite large for the Std compiler, especially " as the number of users increases.  o Compiler Thruput, Number of Users $ Given infinite memory, the thruput (lpm * users) is approximately$ the same for the two compilers.  Given a fixed amount of memory, however, the Cds compiler  will have a higher thruput. ! Relating the memory requirements in Appendix E with physical !! memory available on a given system, note that, for example,! a system with 2MB of memory will support either:   o 4-5 large Cds compilers, or o 2-3 large Std compilers1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && 4A. Choosing a Compiler Type Page 31 &   o Installation ! The linking process for the Cds compiler is much faster and! requires less scratch file space than the Std compiler.  o Compiler Stack Limitations  Both compilers have limits on the nesting or complexity of certain constructs. The limits are different for the two ! compilers; in fact there are programs that each can compile!! that the other cannot. These limits are rarely encountered, !" and are usually very easy to work around. You are more likely "! to run into the limits on the Cds compiler than you are the! Std compiler.  # The Cds compiler's stack is limited by the hardware. Excessive#" recursion in the compiler can cause a stack overflow. This is "! usually due to deeply-nested routines and statements, and/or !" long, complicated expressions. Reducing the nesting levels of "# the routines and/or statements, or breaking the expression into#! several smaller ones will usually fix the problem. If this!# happens too often on your programs, you may want to install the# Std version of the compiler.  " The Std compiler uses a virtual stack and is much less likely"! to run into a stack overflow. If it does, merely increasing !! the VS of the compiler will solve the problem. However, the !" compiler does have a segment stack which can overflow when the "# dynamic segment call chain gets too large. Again, this is rare, # but the workarounds are similar to those for Cds compiler.  # For both compilers, if one of the limits is reached, you should: # o Compile the program again, getting a listing on your terminal. ! o When the compiler stops, look at the routine that last ! appeared on the screen.# o If there is are long, complex expressions in the routine,# try breaking them up into smaller ones." o If that does not work, reducing the nesting level of the " routine should fix the problem." o Or, you may try using the other version of the compiler" to see if it will handle your program.  % Note: The Cds compiler is loaded as a shared program, with all segments %# memory-resident. It is possible to link the compiler specifying a## number of memory-resident segments, with the rest residing on disc. ## This in general is not recommended, because the compiler cannot be## shared unless all segments are memory-resident. Thus, the unshared #$ compiler, for multiple copies, can be slower, and take up more memory $% than the shared compiler. The unshared configuration may be desirable%" in a single-user environment where the amount of available memory "# is a constraint, but usually the Std compiler is a better choice in # this situation. 1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && 4B. Choosing a Code Generation Default Page 32 &   4B. CODE GENERATION DEFAULT: CDS VS. STD  # If your machine supports the Cds instruction set, you can tell the#% compiler to generate either Cds or Std instructions for your programs.%" Below are some guidelines that may help you decide which is best" for a particular program.   Segmentation: % It is much easier to develop a large program using Cds instructions%" because code segmentation is done automatically by the linker. " Std programs must be hand-segmented using overlays. % Linking segmented Cds programs is also faster than linking segmented % Std programs.  # Execution speed of segmented programs may be faster or slower in #$ Cds mode, depending on the locality of called routines, the number $ of memory- vs. disc-resident segments, etc.   Code size:$ Code size is generally larger with the Cds instruction set, but it $ does not matter as much with automatic segmentation.    Recursion:# In the Std instruction set, recursion is handled with a software #$ procedure stack. Cds instructions use a hardware procedure stack, $ making recursion much faster.   Data-access " (( Access of most data items is roughly the same speed in either"% Cds or Std mode. One exception is the access to non-local variables %" in Pascal. In Std mode, the addresses of non-locals are known "% at compile time. In Cds mode these addresses must be calculated at%& run time. Thus, Cds programs with little or no recursion, but lots of &! non-local accesses, may run slower than their Std versions.!& Access to globals, module data, locals, EMA variables, bit fields, and & bytes is about the same for both Cds and Std modes.1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && 4B. Choosing a Code Generation Default Page 33 &   Stack size" The Cds stack resides in the Data Segment, which is limited to "% 31 pages of memory. Along with the stack, the Data Segment contains %" global data, module global data, and any non-Cds code that has "% been loaded with the program (and the Pascal heap, in Heap 1 mode).% # The Std stack (in Heap 1 mode) resides in the free space between # the last word of the program, and the end of the partition $ (limited to 32 pages). Along with the stack, the free space also$ holds the Pascal heap.  $ The Std stack (in Heap 2 mode) resides in EMA/VMA, along with the$ Pascal heap.  $ Thus, Cds instructions provide faster, but limited, recursion, and $& Std instructions, in Heap 2, provide slower, but unlimited recursion.&   Portability % Std programs will potentially run on M, E, F, and A-Series machines. % Cds programs will run only on A-Series, Cds machines. 1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && 4C. Choosing a Compiler Working Set Size Page 34 &    4C. COMPILER WORKING SET SIZE    As shown by the illustrations in Appendices E and F, and Sections 3A and 3B, the setting of the compiler's Working Set affects 3 major things:   o Compiler performance A larger WS usually means faster compilations.   o Memory used  The larger the WS, the more system memory used.  o Disc space used for the VM Scratch File  A larger WS usually means less disc space is needed.   " Below are some guidelines in determining the WS for the compiler" on your system.   Cds Compiler:  Minimum: 15  Reasonable Minimum: 40  Default: 70  Reasonable Maximum: 100 " Maximum: VS for the compiler (default VS is 300)"  Std Compiler Minimum: 50  Reasonable Minimum: 150  Default: 200  Reasonable Maximum: 450 " Maximum: VS for the compiler (default VS is 600)"   Any setting below the Reasonable Minimum will result in  extremely slow compilations, except for small programs.   Any setting above the Reasonable Maximum will waste memory,  except for programs requiring an extraordinarily large IDS.  " If your system is to be used for heavy Pascal program development " of large programs, more memory, and larger Working Sets are  recommended. " If your system is to be used for occasional development of small" programs, and memory is limited, a smaller Working Set should  be used. # If disc space for the VM Scratch File is limited, a larger Working# Set should be used. 1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && 5. Installation Procedure Page 35 &  5. INSTALLATION PROCEDURE   ! This section describes how to install the various components of ! Pascal/1000 onto your system for general use.   The following pages describe these steps in detail:  Step 1. Restore the files to disc. ! Step 2. Install the programs and libraries into the system.! " Installation is done using a set of CI command files for copying, " linking, etc.    The graph below shows which command files invoke others.   Install_C Install_A Install_6  \ | / ------------\ | /--------------  \|/  Install |  |  /|\! ------------/ | \-----------------------------!! / | | \ !! | | | | ! $ Install_Libs Config_Cmp Install_Cmp Test_Std$$ | | Test_Cds$ Install_Cds_Libs Size_Up_Link_C  Install_Std_Libs Size_Up_Link_A  Install_FMGR_Libs Size_Up_Link_6  Install_Alt_Libs  Install_Err_File  $ All Installation command files are in the directory /Pascal/Install.$  Listings of the command files can be found in Appendix A.  # There are some other command files that are not part of the normal#& installation, but are used for partial restore and/or install operations. &  These are: Restore_Std_Cmp Install_Alter Restore_Cds_Cmp Restore_Libs  Restore_Alter1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && 5. Installation Procedure: Restoring Files To Disc Page 36 &   STEP 1. RESTORE THE FILES TO DISC  ' To create the Pascal directory structure (shown on page 1) on your system:'    a. PREPARE FOR A /Pascal DIRECTORY: " o If you already have a /Pascal.dir on your system, rename "' it to something else for the duration of the installation process. ' % o Make sure you have enough disc space available to read in the%$ Pascal directory (see 3D. System Requirements for Installing $$ Pascal). You may want to create an empty /Pascal directory$ on an LU that you know has enough space.  $ o If you do not have enough space, one alternative is to do a$# partial restore (see Step 1d, RESTORING FILES TO LIMITED# DISC SPACE).       b. RESTORING FILES FROM TAPE: # If you are installing from a magnetic tape medium, (800 bpi,## 1600 bpi, or 7912 cartridge tape), this structure is already#" on the tape, in TF format. Then just read in the tape with " the command:   tf co   This will create (or reuse) the /Pascal directory, and  all of its subdirectories.1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && 5. Installation Procedure: Restoring Files to Disc (Floppies) Page 37 &    c. RESTORING FILES FROM FLOPPIES:  If you are installing from a set of floppies (8"),# mini-floppies (5.25"), or micro-floppies (3.5"), each floppy# has its own fragment of the Pascal directory structure.   Each floppy is labelled:  92833-134nn   and contains the file: /F/Restore_Floppy  and the directory: /F/Pascal/...   $ You will need to copy each floppy onto your hard disc, creating $! the original Pascal directory structure. This is done by ! doing the following for each floppy:  o {Insert the floppy} o {Mount the floppy} CI> mc  o {Copy the files} CI> tr /F/Restore_Floppy o {Dismount the floppy} CI> dc  o {Remove the floppy}1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && 5. Installation Procedure: Restoring into Limited Disc Space Page 38 &   d. RESTORING FILES INTO LIMITED DISC SPACE FROM TAPE   If you do not have enough free space on your disc to" restore all of the /Pascal directory, you can restore only"$ those files that are needed for your installation, as follows,$ (assuming your tape lu is 8):    o Restore the Installation Directory and its files.  CI> tf co 8{/Pascal/Install/} ,,dk  CI> wd /Pascal/Install    o Restore the Cds (or Std) compiler parts.  " CI> ci Restore_Cds_Cmp 8 -OR- ci Restore_Std_Cmp 8 "   o Restore the Libraries  CI> ci Restore_Libs 8   o If ALTER is to be run on your system,  CI> ci Restore_Alter 8 1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && 5. Installation Procedure: Restoring into Limited Disc Space Page 39 &   e. RESTORING FILES INTO LIMITED DISC SPACE FROM FLOPPIES  To restore just the files needed for your configuration,  copy the floppies containing the following files:((  1. Installation files  2. Either Cds or Std libraries 3. Either Cds or Std compiler files  4. Error file   If needed, you can also restore:   5. Other libraries 6. Alter files   ! Mount each floppy, as specified below, and copy its contents !" into /Pascal using the same procedure described in "Restoring" Files from Floppies", above.    Files: Floppies:  Installation 1  Cds libraries 2  Std libraries 3  Other libraries 4,5  Cds compiler 6,7,8,9,10,11,12   Std compiler 6,13,14,15,16,17,18,19   Error file 6  Alter 5 1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && 5. Installation Procedure: Installing into the System Page 40 &    STEP 2. INSTALL THE PROGRAMS AND LIBRARIES INTO THE SYSTEM  Study the previous sections of this manual to determine$ o system requirements for compiler installation and execution$ ! o Make sure you have enough memory and disc space to! install Pascal (see Section 3D). ! o Make sure you have enough memory and disc space to!% execute Pascal once it is installed (see Section 3A or 3B). % ' o which compiler configuration you want to install (see Section 4).'  $ Take a look at the installation file Install, and the appropriate$# appropriate Default Installation File (Install_C, Install_A, or## Install_6) so that you are familiar with what they are going to# accomplish.    o Install_C (invokes Install C Cds 70 CdsOf)  o Install_A (invokes Install A Std 200 CdsOf) o Install_6 (invokes Install 6 Std 200 CdsOf) # The default installation files invoke Install with some default#$ settings. To install something other than a default configuration $ just invoke Install with new options. % WARNING: The installation will OVERWRITE PREVIOUS VERSIONS of the %' compiler, libraries, error file in /Programs, /Libraries and /System. '" If you want the old versions saved, you should rename them, " or copy them to some other directory. 1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && 5. Installation Procedure: Installing into the System Page 41 &  % Scan the Installation Notes (next page), looking for things that may % apply to your system. $ If you are going to use Install_C, make sure your system is set up $ for shared CDS programs.   The installation is normally, but need not be, done with " /Pascal/Install as the Working Directory. As described in the "! System Requirements section, linking the PASCOMP.RUN program !# requires a large amount of disc space in the Working Directory,# so you want to install from a directory with lots of room.  ' .____________________________________________________________________________. '' | | '' | From any Working Directory, invoke ONE of the following: | '' | | '' | CI> /Pascal/Install/Install_C {Default Cds Compiler on RTE-AVC+} | '' | CI> /Pascal/Install/Install_A {Default Std Compiler on RTE-A} | '' | CI> /Pascal/Install/Install_6 {Default Std Compiler on RTE-6} | '' | | '' | CI> /Pascal/Install/Install [C|A|6] [Cds|Std] [# WS-pages] [CdsOn|CdsOf] | '' | | '' .____________________________________________________________________________. ' # When the installation is complete, Pascal will be ready for use# by anyone on the system.  1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && 5. Installation Procedure: Installation Notes Page 42 & INSTALLATION NOTES:  " o When linking the Cds compiler, LINK will emit "Record ignored" "! warnings. These warnings are expected, and can be ignored.! ! o The last thing done by the installation above is to execute! 'Test_Std', a command file which does a simple compile,# link and run test, using the Standard instruction set. If your#$ machine has the CDS instruction set, you should, in addition, run$" the same test using CDS instructions by entering the command:"  CI> Test_Cds   o The installation is broken up into several command files # so that parts of the installation may be more easily repeated or #$ modified, if necessary. For example, a new compiler configuration $$ can be installed at a later time, by-passing Library installation, $ etc, by invoking the two command files: $ CI> Config_Cmp [C|A|6] [Cds|Std] [# WS-pages] [CdsOn|CdsOf] $ CI> Install_Cmp  & Note, however, that if all you want to do is to change the WS setting, & it is much easier to do the following:   CI> link link: lk Pascomp  link: ws  link: en   o For your convenience in linking Pascal programs, it is # recommended that you generate one the libraries into the system#! for automatic searching. If you are running RTE-A/VC+, you!$ should generate both the CDS and non-CDS versions of the library,$# in the sections of the generator command file that allow CDS and # non-CDS libraries.   OS: GENERATE IN THESE LIBRARIES:  $ RTE-A/VC+ Pascal_Cds.Lib (in the Cds Library section)$& Pascal.Lib (in the non-Cds Library section)&  RTE-A Pascal.Lib  RTE-6 Pascal.Lib1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && 5. Installation Procedure: Installation Notes Page 43 &  " o To save disc space, you may want to delete any libraries from"& /Libraries that will not be used. (See INSTALLED FILES in Section 1).&" For example, Cds libraries may be purged if you do not plan to " load any Cds programs.   # o Install ALTER if you need to cross-develop programs for RTE-IVB# or RTE-IVE. This is done by entering the command:   CI> Install_Alter    The operation of Alter is described in the document  /Pascal/Etc/Alter/Alter.Doc   ! o The file Install_Cmp may be edited to set link options, e.g. !  o +cr: o +sn:  " o The installation relies on the fact that several programs are"! executable. If you have recently booted up a new system, it ! is worth checking to see that these programs can be run. # Many times with a new system, the first attempt to run a program ## will result in an 'RPL checksum error' message, and the program#" will not run until the second invocation. Pascal will not be"! installed correctly if this situation exists on your system. !" As a quick check, try executing the following programs before" installation:   o CI  o TF  o EDIT  o LINK  o MACRO  # o Once the installation is complete, the /Pascal directory can be# purged to free up disc space.1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && Appendix A: Listings of Installation Command Files Page 44 &      APPENDIX A: LISTINGS OF INSTALLATION COMMAND FILES.   # Listings of the command files can be found on the following pages:#  Page: Command File: Description: " 44 Install_C {Install default RTE-AVC+ compiler, libs} "! 44 Install_A {Install default RTE-A compiler, libs}!! 44 Install_6 {Install default RTE-6 compiler, libs}!  45 Install {Install non-default compiler, libs}  " 46 Install_Libs {Install Pascal Libraries in /Libraries}"  47 Install_Cds_Libs {Install Cds Libraries} 48 Install_Std_Libs {Install Std Libraries} 49 Install_FMGR_Libs {Install FMGR Libraries}  50 Install_Alt_Libs {Install Alt Libraries}! 51 Install_Err_File {Install Syntax Error Message File}! ! 52 Config_Cmp {Configure Compiler link command files} !# 53 Size_Up_Link_C {Make Link big enough for Cds compiler}#' 53 Size_Up_Link_A {Make Link big enough for Std compiler on RTE-A} '' 53 Size_Up_Link_6 {Make Link big enough for Std compiler on RTE-6} '! 53 LinkSz.Lod {Command file for sizing up Link} !  54 Install_Cmp {Link Compiler into /Programs} " 55 Test_Std {Test Compiler, Libs using Std inst. set} "" 56 ((Test_Cds {Test Compiler, Libs using Cds inst. set} " 57 Sample.Pas {Listing of test program}   58 Install_Alter {Install Alter program, data file}  59 Restore_Libs {Restore Libraries from tape}  60 Restore_Std_Cmp {Restore Std Compiler from tape} 61 Restore_Cds_Cmp {Restore Cds Compiler from tape} 62 Restore_Alter {Restore Alter from tape} 1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && INSTALL_C, INSTALL_A, INSTALL_6: Default Installation Files Page 45 & & ._________________________________________________________________________.&& |INSTALL_C: Default installation for RTE-A on CDS machines. |&& |_________________________________________________________________________|&! * /PASCAL/INSTALL/INSTALL_C 92833-17077 REV.5000 <870504.1845>! * % * This command file installs a compiler with the following attributes: %" * o Runs on RTE A, on an A900, A700, or A600+ (CDS machines) " * o Shareable Cds Compiler  * o Working Set of 70 pages * o Std code generation ($CDS OFF$ by default)  *  * # * You may, instead, invoke Install directly if you want to change#% * any of the option settings (see Install for parameter descriptions). % *  /Pascal/Install/Install C Cds 70 CdsOf * & ._________________________________________________________________________.&& |INSTALL_A: Default installation for RTE-A on non-CDS machines. |&& |_________________________________________________________________________|&! * /PASCAL/INSTALL/INSTALL_A 92833-17078 REV.5000 <870504.1845>! * % * This command file installs a compiler with the following attributes: %" * o Runs on RTE A, on any A-Series (A900, A700, A600+, A600) " * o Non-shareable Std Compiler  * o Working Set of 200 pages  * o Std code generation ($CDS OFF$ by default)  *  * # * You may, instead, invoke Install directly if you want to change#% * any of the option settings (see Install for parameter descriptions). % *  /Pascal/Install/Install A Std 200 CdsOf  * & ._________________________________________________________________________.&& |INSTALL_6: Default installation for RTE-6 |&& |_________________________________________________________________________|&! * /PASCAL/INSTALL/INSTALL_6 92833-17079 REV.5000 <870504.1845>! * % * This command file installs a compiler with the following attributes: % * o Runs on RTE 6  * o Non-shareable Std Compiler  * o Working Set of 200 pages  * o Std code generation ($CDS OFF$ by default)  *  * # * You may, instead, invoke Install directly if you want to change#% * any of the option settings (see Install for parameter descriptions). % * $ * WARNING: This installation creates a larger version of Link which $$ * is capable of loading Pascal. If another copy of Link is RP'ed at $$ * the time Pascal is loaded, the RP'ed Link will be used instead of$% * the new large Link. Please do a "OF,LINK,ID" before executing this%1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && INSTALL_C, INSTALL_A, INSTALL_6: Default Installation Files Page 46 & * command file.  *  /Pascal/Install/Install 6 Std 200 CdsOf  * 1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && INSTALL: Install-Everything File Page 46 &  * /PASCAL/INSTALL/INSTALL 92833-17071 REV.5000 <870504.1845>  *& * You may install Pascal by invoking one of the default installation files&& * (Install_C, Install_A, or Install_6), or you may invoke Install directly& * to specify other options.  *$ * Please double-check your options before starting up the command file. $$ * All options MUST be specified for the installation to work properly.$ *# * (For further information and guidelines regarding these options, # * see also: Pascal/1000 Configuration Guide, 92833-90003) * *CI> Install [C|A|6] [Cds|Std] [WS pages] [CdsOn|CdsOf] * | | | | * | | | | * | | |% * | | | 4. Code Generation Default:%% * | | | CdsOn = generate Cds code %% * | | | CdsOf = generate Std code % * | |  * | | 3. Compiler's Working Set: ! * | | Cds compiler: WS in {30..100} !" * | | Std compiler: WS in {150..400}" * | |  * * 1. and 2. % * C Cds = Shareable compiler running on RTE-A (CDS machine)%$ * A Std = Nonshareable compiler running on RTE-A (non-CDS) $ * 6 Std = Nonshareable compiler running on RTE-6  * * Example: /Pascal/Install/Install C Cds 70 CdsOn  * *" * 1. Install Pascal libraries into /Libraries. " /Pascal/Install/Install_Libs  *$ * 2. Configure Pascal compiler link command files. $ /Pascal/Install/Config_Cmp $1 $2 $3 $4  *! * 3. Install Pascal compiler into /Programs. ! /Pascal/Install/Install_Cmp *% * 4. Compile, link, and run a sample Pascal program. % /Pascal/Install/Test_Std  *# * 5. Test a sample CDS program, if we're on VC+# IF is $opsy = -61; THEN  /Pascal/Install/Test_Cds FI  1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && INSTALL_LIBS: Install All Pascal Libraries and Error File Page 47 &   ! * /PASCAL/INSTALL/INSTALL_LIBS 92833-17072 REV.5000 <870504.1845>! * * This command file copies:  * o Pascal libraries to: /Libraries * o Pascal syntax error file to: /System  * * (This file is normally invoked by /Pascal/Install/Install) * /Pascal/Install/Install_Cds_Libs  /Pascal/Install/Install_Std_Libs  /Pascal/Install/Install_FMGR_Libs /Pascal/Install/Install_Alt_Libs  /Pascal/Install/Install_Err_File  * * 1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && INSTALL_CDS_LIBS: Install Cds Libraries Page 48 &  # * /PASCAL/INSTALL/INSTALL_CDS_LIBS 92833-17087 REV.5000 <870504.1845># * * This command file copies:  * o Cds instruction set Pascal libraries to /Libraries *! * (This file is normally invoked by /Pascal/Install/Install_Libs) ! * co /pascal/lib/cds/pascal_cds.lib /libraries/ d co /pascal/lib/cds/pascal_cerr.rel /libraries/ d co /pascal/lib/cds/pascal_ctra.rel /libraries/ d * *  1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && INSTALL_STD_LIBS: Install Std Libraries Page 49 &   # * /PASCAL/INSTALL/INSTALL_STD_LIBS 92833-17086 REV.5000 <870504.1845># * * This command file copies:  * o Std instruction set Pascal libraries to /Libraries *! * (This file is normally invoked by /Pascal/Install/Install_Libs) ! * co /pascal/lib/std/pascal.lib /libraries/ d co /pascal/lib/std/pascal_err.rel /libraries/ d co /pascal/lib/std/pascal_tra.rel /libraries/ d co /pascal/lib/std/pascal_trb.rel /libraries/ d co /pascal/lib/std/pascal_trc.rel /libraries/ d co /pascal/lib/std/pascal_lh2.rel /libraries/ d * *  1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && INSTALL_FMGR_LIBS: Install FMGR Libraries Page 50 &   # * /PASCAL/INSTALL/INSTALL_FMGR_LIBS 92833-17088 REV.5000 <870504.1845> # * * This command file installs the old Pascal libraries. * o FMGR-access-only Pascal library (Std instruction set) # * o Short heap/stack library (for use with relocatables generated # * by pre-2401 compilers) *! * (This file is normally invoked by /Pascal/Install/Install_Libs) ! * co /pascal/lib/std/pascal_fmgr.lib /libraries/ d co /pascal/lib/std/shslb.lib /libraries/ d * *  1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && INSTALL_ALT_LIBS: Install Altered Libraries Page 51 &   # * /PASCAL/INSTALL/INSTALL_ALT_LIBS 92833-17089 REV.5000 <870504.1845># * * This command file copies:  * o Altered Pascal libraries to /Libraries *! * (This file is normally invoked by /Pascal/Install/Install_Libs) ! * co /pascal/lib/std/pascal_fmgr_alt.lib /libraries/ d co /pascal/lib/std/shslb_alt.lib /libraries/ d co /pascal/lib/std/pascal_err_alt.rel /libraries/ d * * 1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && INSTALL_ERR_FILE: Install Syntax Error File Page 52 &   # * /PASCAL/INSTALL/INSTALL_ERR_FILE 92833-17090 REV.5000 <870504.1845># * * This command file copies:  * o Pascal syntax error file to: /System  *! * (This file is normally invoked by /Pascal/Install/Install_Libs) ! * co /pascal/cmp/pascal.err /system/ d * * 1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4,(( 1987 6:44 pm && CONFIG_CMP: Configure Compiler (Modify Link Command Files) Page 53 &    * /PASCAL/INSTALL/CONFIG_CMP 92833-17073 REV.5000 <870504.1845>  *! * This command file configures a Pascal compiler by modifying the ! * Link command file. It is invoked with the command:  * * Config_Cmp [C|A|6] [Cds|Std] [WS pages] [CdsOn|CdsOf]  * * (this file is normally invoked by /Pascal/Install/Install, ! * which also shows the descriptions for the parameters above) ! * *! * 1. Make PASCOMP.LOD to load PASCOMP! * co /pascal/cmp/$2/pascomp_$1.lod PASCOMP.LOD d ! edit PASCOMP.LOD b/ws/|rWS $3|b/^re,@cdsof/|g/cdsof/$4/|1,30ln|er! * * * 2. Make PASCAL.LOD to load PASCAL  * co /pascal/cmp/$2/pascal_$1.lod PASCAL.LOD d  *# * 3. Make LINK big enough to load PASCOMP# * /pascal/install/size_up_link_$1 * * 1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && SIZE-UP-LINK COMMAND FILES Page 54 &   " * /PASCAL/INSTALL/SIZE_UP_LINK_C 92833-17095 REV.5000 <870504.1845>" *# * This command file is used to create a version of Link on RTE-A that #% * has enough data space to Link the Pascal compiler program Pascomp.Run.% * * rp link sz link 100 *   " * /PASCAL/INSTALL/SIZE_UP_LINK_A 92833-17096 REV.5000 <870504.1845>" *# * This command file is used to create a version of Link on RTE-A that #% * has enough data space to Link the Pascal compiler program Pascomp.Run.% * * rp link sz link 100 *   " * /PASCAL/INSTALL/SIZE_UP_LINK_6 92833-17097 REV.5000 <870504.1845>" *# * This command file is used to create a version of Link on RTE-6 that #% * has enough data space to Link the Pascal compiler program Pascomp.Run.% * *" * 1. Make a local copy of link" Co /programs/link.run biglink.run! * 2. Size it up to 100 pages! Link /pascal/install/linksz.lod$ * 3. Rename it so that Install_Cmp$# * will use the large version.# Rn biglink.run link.run  *   * /PASCAL/INSTALL/LINKSZ.LOD 92833-17098 REV.5000 <870504.1845>  * lk biglink  em 100  en  * 1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && INSTALL_CMP: Link Compiler Programs Page 55 &    * /PASCAL/INSTALL_CMP 92833-17074 REV.5000 <870504.1845>  *% * This command file links /Programs/Pascomp.Run and /Programs/Pascal.Run% * (this file is normally invoked by /Pascal/Install) *! * 1. Link PASCOMP ! link /programs/pascomp.run pascomp.lod ! * 2. Link PASCAL! link /programs/pascal.run pascal.lod * * * 1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && TEST_STD: Compile, Link, and Run a Test Program (Std inst. set) Page 56 &    * /PASCAL/INSTALL/TEST_STD 92833-17075 REV.5000 <870504.1845> * * This command file compiles, links, and runs a sample * Standard (non-CDS) Pascal program. * * (This file is normally invoked by /Pascal/Install/Install) * *! * 1. Compile sample.pas into sampleS.rel! * pascal /pascal/install/sample 1 sampleS.rel ,, cds=OFF  * *& * 2. Link sampleS.rel, pascal.lib into sampleS.run& * link sampleS.run sampleS.rel +sz:32 pascal.lib  * * * 3. Run sampleS.run sampleS * 1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && TEST_CDS: Compile, Link, and Run a Test Program (Cds inst. set) Page 57 &    * /PASCAL/INSTALL/TEST_CDS 92833-17076 REV.5000 <870504.1845> *% * This command file compiles, links, and runs a sample CDS Pascal program % * (This file is normally invoked by /Pascal/Install/Install) * * * 1. Compile sample.pas into sampleC.rel * pascal /pascal/install/sample 1 sampleC.rel ,,CDS=ON  * * * 2. Link sampleC.rel, pascal_CDS.lib into samC.run  * link sampleC.run sampleC.rel +sz:32 pascal_CDS.lib  * * * 3. Run sampleC.run * sampleC * 1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && SAMPLE.PAS: Sample Pascal Program Page 58 &    1& Pascal/1000 Fri May 4, 1984 10:34 am && Ver. 2/2401 SAMPLE Page 1& ' 1 0 : { /PASCAL/INSTALL/SAMPLE.PAS 92833-17062 REV.2401 <870504.1845>} ' 2 0 : $DEBUG$  3 0 : PROGRAM sample (output);  4 0 : 5 0 : CONST  6 0 : number_of_disks = 4; 7 0 : 8 0 : 9 1 : PROCEDURE move (n : INTEGER; s, d, i : CHAR);  10 1 1 BEGIN  11 1 2 IF (n > 0) THEN BEGIN  12 1 2 move (n-1, s, i, d); ( 13 1 2 writeln (output, ' Move disk', n:3, ' from ', s, ' to ', d); ( 14 1 2 move (n-1, i, d, s);  15 1 2 END; 16 1 1 END;  17 0 : 18 0 1 BEGIN ! 19 0 1 writeln (output, ' Tower of Hanoi solution for',! 20 0 1 number_of_disks:3, ' disks:');  21 0 1 writeln (output);  22 0 1 23 0 1 move (number_of_disks, 'A','C','B'); 24 0 1 END.      0 Errors detected. 0 Warnings issued. 24 Source lines read. 496 Words of program generated.  1 1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && INSTALL_ALTER: Install Alter Program and Data File Page 59 &  ! * /PASCAL/INSTALL/INSTALL_ALTER 92833-17083 REV.5000 <870504.1845> ! * * This command file installs the program ALTER into /Programs,  * and the data file ALTER.DAT in /System.  * Link /Pascal/Etc/Alter/Alter.Lod /Programs/Alter.Run * Co /Pascal/Etc/Alter/Alter.Dat /System/Alter.Dat d * 1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && RESTORE_LIBS: Restore Libraries from Tape Page 60 &   ! * /PASCAL/INSTALL/RESTORE_LIBS 92833-17091 REV.5000 <870504.1845>! *! * This command file restores, from TF tape, all Pascal libraries. ! * (1 parameter: ) * * e.g CI> ci Restore_Libs 8 * * tf co $1{/pascal/lib/} ,,dk * * 1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && RESTORE_CDS_CMP: Restore Libraries from Tape Page 61 &   " * /PASCAL/INSTALL/RESTORE_CDS_CMP 92833-17093 REV.5000 <870504.1845> " *! * This command file restores, from TF tape, the relocatables and! * link command files necessary to load the Cds instruction set  * version of the Pascal compiler.  * (1 parameter: ) * * e.g. CI> ci Restore_Cds_Cmp 8 * * * tf co $1{/pascal/cmp/@.@.n, /pascal/cmp/cds/} ,,dk  * * 1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && RESTORE_STD_CMP: Restore Libraries from Tape Page 62 &   " * /PASCAL/INSTALL/RESTORE_STD_CMP 92833-17092 REV.5000 <870504.1845> " *! * This command file restores, from TF tape, the relocatables and! * link command files necessary to load the Std instruction set  * version of the Pascal compiler.  * (1 parameter: ) * * e.g. CI> ci Restore_Std_Cmp 8 * * * tf co $1{/pascal/cmp/@.@.n, /pascal/cmp/std/} ,,dk  * * 1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && RESTORE_ALTER: Restore Libraries from Tape Page 63 &   ! * /PASCAL/INSTALL/RESTORE_ALTER 92833-17094 REV.5000 <870504.1845> ! *# * This command file restores, from TF tape, the software necessary to # * link and run the ALTER program.  * (1 parameter: ) * * e.g. CI> ci Restore_Alter 8 * * tf co $1{/pascal/etc/alter/} ,,dk * * 1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && Appendix B: BenchMarking Information Page 64 &    APPENDIX B. BENCHMARKING INFORMATION    Listed below are a few things to take into consideration when  benchmarking Pascal programs.    o Range checking # Programs generally execute faster when RANGE is turned off than# when it is turned on (default is on).   o Partial evaluation # Programs generally execute faster when PARTIAL_EVAL is turned on # (default is on).    o Recursion" Std (non-Cds) programs generally execute faster when RECURSIVE "$ is turned off (default is on). The speed of a Cds program is not$ affected by the setting of the recursive option.  # Recursion is faster in Cds programs than it is in Std programs,#$ since it is handled with hardware and firmware instead of s((oftware $ routines.   o Traceback$ Cds programs generally execute faster when TRACEBACK is turned off $' (Default is on). Std programs are not affected by the traceback option. '   o Cds vs. Std % Usually it is not easy to predict whether the Cds or Std version of%$ a program will execute faster. In general, however, Cds programs$& with some or all of the following attributes will execute faster than& Std programs:   o Heavy use of recursion  o Large number of segment loads during execution. o Low frequency of access to non-local variables.   o Heap Managers % Programs that utilize the Pascal heap generally execute faster when% HEAP_DISPOSE is off (default is on). 1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && Appendix B: BenchMarking Information Page 65 &    o Integer Sizes & Programs that utilize short (16-bit) integers where possible generally & execute faster than those that use long (32-bit) integers.    o Real Number Sizes $ Programs that use REAL numbers generally execute faster than those $ using LONGREAL numbers.   o Real Number Output ' Programs that output REAL (and LONGREAL) numbers to textfiles generally'# execute faster when FAST_REAL_OUT is turned on (default is off). #1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && Appendix C: Compiler Errors Page 66 &    APPENDIX C. COMPILER ERRORS % The following fatal errors can occur when running the Pascal compiler:%   o Insufficient workspace  " This message is issued when the compiler has no memory left in "% its workspace. Since the compiler uses virtual memory, this should%" only happen when the compiler's virtual space is too small to"" compile the particular program. Increasing the VS setting for " Pascomp.Run will usually solve the problem.   o Segment stack overflow  # This message indicates that the Std compiler's internal segment#" manager overflowed its internal stack. This usually indicates "$ that the expression being compiled at the time is too complicated. $% The problem can be remedied by breaking the expression into simpler%$ ones. Compile the program with the listing sent to a terminal or$# printer to determine the general area of the program that should # be changed.    o Stack overflow  # This message indicates that the Cds compiler's stack overflowed. ## This is usually caused by deeply-nested routines, statements, or #$ data declarations, or long, complicated expressions. The problem$ is remedied by reducing nesting levels and/or breaking up ! expressions into simpler ones. Compile the program with the !" listing sent to a terminal or printer to determine the general " area of the program that should be changed.   o VM83  # This error is usually caused by the working set of the compiler# being too small. For correct settings of the working set,  consult Section 4C. Compiler Working Set Size. 1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && Appendix C: Compiler Errors Page 67 &    o VM33  # This error occurs when the amount of space on the system scratch ## cartridge is not large enough to hold Pascal's VM backing store. #! (See Section 3A4. Disc Requirements for the Cds Compiler, or ! See Section 3B4. Disc Requirements for the Std Compiler)   The problem can be remedied by one of the following:  # 1. Use a larger cartridge for your system scratch cartridge,# or make more space available on the current one.  # 2. If you are using the Std compiler, try decreasing the VS.# # 3. If you are using the Std compiler on RTE-A/VC+, installing #" the Cds compiler will help, since the Cds compiler uses" much less space from the system scratch cartridge.    o VM40   This error occurs when the system scratch cartridge is not  available.    o VM02  # This error occurs if the name of the compiler's VM scratch file## matches the name of an existing VM scratch file. It is usually## caused by the system failing to purge a file which is no longer# in use.1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && Appendix D: Glossary Page 68 &   APPENDIX D: GLOSSARY   % Some terms and abbreviations are defined here which are used throughout %$ this manual. Rather than appearing in alphabetical order, the terms$ appear in logically-related groups. These groups are:    CPUs and Operating Systems    Instruction Sets    File Systems    Relocatable Formats    Resource Requirements   Disc Files Used During a Compilation and Link  1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && Appendix D: Glossary Page 69 &  CPUS AND OPERATING SYSTEMS:  # The HP 1000 family consists of several CPU's that support different #" sets of features. There are also several operating systems that" are supported on the various CPU's.  $ In this manual, for convenience, the term "RTE-AVC+" is used to mean$! "RTE-A running on any CDS machine (i.e. A900, A700, or A600+)"!   | Operating Instr. File Reloc CPU | System Set System: Format  |_______|____________________________________________________| | | |  |  A900 | RTE-AVC+ Cds/Std FS/FMGR Long  A700 | RTE-AVC+ Cds/Std FS/FMGR Long  A600+ | RTE-AVC+ Cds/Std FS/FMGR Long  A600 | RTE-A Std FS/FMGR Long  |  F | RTE-6 Std FS/FMGR Long  F | RTE-IVB,IVE Std FMGR Short |  E | RTE-6 Std FS/FMGR Long  E | RTE-IVB,IVE Std FMGR Short |  XL | RTE-XL Std FMGR Long  L | RTE-L Std FMGR Short M | RTE-IVB,IVE Std FMGR Short |   INSTRUCTION SETS:   The HP 1000 family has 2 instruction sets, which are referred to in this manual as:  $ "Cds": the instruction set available only on A900, A700, and A600+ $ CPU's. (Not available on A600, M, E, F, XL, L) # The instructions provide for shared, reentrant programs,#$ a procedure stack, and automatic segmentation of programs,$ with virtual code.  "Std": the standard instruction set available on all # M, E, F, L, XL, A600 CPU's, as well as the Cds machines,# A900, A700, and A600+.1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && Appendix D: Glossary Page 70 &   FILE SYSTEMS:   The HP 1000 family has 2 file systems, referred to in this manual as: ! "FS": (File System) A hierarchical file system supporting !! nested directories of files. File names may be up!" 16 characters in length, with a 4-character (or less) " extension. (e.g. A_LONG_FILE_NAME.TXT)# The File System also supports files on FMGR cartridges. # # "FMGR": (File Manager) A non-hierarchical, disc-cartridge-based #% file system. File names may only be 6 characters or less.% % All Pascal files are supplied in FS format, but may be moved, using the %! names shown below, to FMGR cartridges. In addition, all Pascal !$ programs and libraries support FS files, except for those containing$ the letters "_FMGR" in their names (e.g. PASCAL_FMGR.LIB).$ That is, programs loaded with PASCAL.LIB may access FS or FMGR files. $" Programs loaded with PASCAL_FMGR.LIB may access only FMGR files."     RELOCATABLE FORMATS:   The HP 1000 family has 2 relocatable formats, referred to  in this manual as:  $ "Normal": Relocatables supporting long ( <= 16-character) names, $ and some new relocatable records.% (generated by compilers on all RTE-A and RTE-6 systems). % $ "Altered": Relocatables supporting short ( <= 5-character) names, $ and no new relocatable records.# (generated by running the program ALTER on a Normal# relocatable). ! All relocatables and libraries supplied with Pascal are Normal, ! except for those containing the letters "_ALT" in their names # (e.g. PASCAL_FMGR_ALT.LIB). Altered(( relocatables support only FMGR #" files. Relocatables of source files containing Modules cannot be " Altered.1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && Appendix D: Glossary Page 71 & RESOURCE REQUIREMENTS  # Below are some terms used in determining the resources required to#$ run Pascal. Following the definitions of the terms are the equations $% used in determining their actual values for the Std and Cds compilers.%  PROGRAM_SPACE % the amount of memory required to run one copy of the compiler. %  PROGRAM_PARTITION $ the partition size required to run one copy of the compiler. $  CODE_SPACE' the amount of memory required to hold all of the compiler's code.'  CODE_WORKING_SET ! the portion of the CODE_SPACE that resides in memory.!  CODE_BACKING_STORE the portion of the CODE_SPACE that resides on disc.   CODE_PARTITION & the size of the partition allocated to hold the compiler's code. &  DATA_SPACE' the amount of memory required to hold all of the compiler's data.'  DATA_WORKING_SET ! the portion of the DATA_SPACE that resides in memory.!  DATA_BACKING_STORE the portion of the DATA_SPACE that resides on disc.   DATA_SEGMENT" (Cds only) the size of the compiler's Cds data segment."  DATA_PARTITION & the size of the partition allocated to hold the compiler's data. &   MEMORY_SPACE the amount of memory required for one compilation.   DISC_SPACE! the amount of disc space required for one compilation. !  TOTAL_MEMORY" the amount of memory required for (USERS) compilations."  TOTAL_DISC$ the amount of disc space required for (USERS) compilations.$ 1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && Appendix D: Glossary Page 72 &  page,  block, track: Memory:  1KW (1024 words)/page  2KB (2048 bytes)/page   Disc: 128 words/block  2 logical sectors/block  48 blocks/track on a 7908/11/12/14 disc  64 blocks/track on a 7920/25 disc  31 blocks/track on a 9133 disc  Memory Paged-out to Disc: 8 blocks/page on disc     WS the Working Set size of the compiler.  This parameter, measured in pages, is established # when the compiler is linked during the installation process.#" The setting of this parameter affects the compilation speed " and the amount of system memory used by the compiler. " For the Cds compiler, it also determines how much swap file "% space is needed in case the compiler's data partition is swapped. %  VS the Virtual Size of the compiler. " This parameter, measured in pages, is established when the" compiler is linked during the installation process. # The setting of this parameter affects the size and complexity #$ of the programs that can be compiled by the compiler. It also$$ affects the amount of disc space needed for the VM Scratch File $ of the Std Compiler.1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && Appendix D: Glossary Page 73 &    IDS # the size of the compiler's Intermediate Data Structure, which #! contains the symbol table and parse tree for the compiled !# program. This size is determined by the size and complexity## of the program being compiled. To determine the IDS size for ## a particular program, compile it with the $STATS$ option. At #" the end of the listing is a summary of the number of pages"% requested, allocated, and used for the compilation. The summary% looks like this:   rrr Pages of Workspace Requested.  aaa Pages of Workspace Allocated.  uuu Pages of Workspace Used.  uuu is the size of the IDS created by the compiler.  # The requested and allocated workspace figures are determined# differently for the Std and Cds compilers   Std compiler:   Requested: $WORK (default is 50 pages)  Allocated: max ($WORK, (WS - CODE_SIZE))  Used: IDS actually generated  Cds compiler:   Requested: WS Allocated: WS Used: IDS actually generated   $WORK  (Std only) the portion of the WS allocated for the IDS ! data (instead of code). Default is 50 pages, but can be! changed using the $WORK $ compiler option.    USERS  the number of simultaneous compilations.   1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && Appendix D: Glossary Page 74 &    Std Compiler:    CODE_SPACE = 360  WS = 150..500, default = 200  VS = 500..900, default = 600  DATA_WORKING_SET = $WORK CODE_WORKING_SET = WS - DATA_WORKING_SET  CODE_BACKING_STORE = CODE_SPACE - CODE_WORKING_SET = 0 if (CODE_SPACE + IDS) < WS   DATA_BACKING_STORE = VS - CODE_BACKING_STORE = 0 if (CODE_SPACE + IDS) < WS  " DATA_SPACE = DATA_WORKING_SET + DATA_BACKING_STORE"  PROGRAM_SPACE = CODE_SPACE + DATA_SPACE PROGRAM_PARTITION = (RTE-A) PROGRAM_SPACE% = (RTE-6) smallest EMA partition on the system % that will hold PROGRAM_SPACE  $ MEMORY_SPACE = WS = CODE_WORKING_SET + DATA_WORKING_SET$& DISC_SPACE = VS = CODE_BACKING_STORE + DATA_BACKING_STORE& = 0 if (CODE_SPACE + IDS) < WS   TOTAL_MEMORY = MEMORY_SPACE * USERS = WS * USERS TOTAL_DISC = DISC_SPACE * USERS = VS * USERS 1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && Appendix D: Glossary Page 75 &    Cds Compiler:   CODE_SPACE = 360  WS = 40..120, default = 70  VS = 40..500, default = 300   DATA_SEGMENT = 31   CODE_WORKING_SET = CODE_SPACE  CODE_BACKING_STORE = 0 DATA_WORKING_SET = DATA_SEGMENT + WS DATA_BACKING_STORE = IDS - WS (0..(VS-WS))  = 0 if IDS < WS " DATA_SPACE = DATA_WORKING_SET + DATA_BACKING_STORE" PROGRAM_SPACE = CODE_SPACE + DATA_SPACE  CODE_PARTITION = CODE_WORKING_SET = CODE_SPACE " DATA_PARTITION = DATA_WORKING_SET = DATA_SEGMENT + WS" ! MEMORY_SPACE = CODE_WORKING_SET + DATA_WORKING_SET! DISC_SPACE = DATA_BACKING_STORE = (IDS - WS)  % TOTAL_MEMORY = CODE_WORKING_SET + USERS * DATA_WORKING_SET% TOTAL_DISC = DISC_SPACE * USERS     % Note: All sizes are in pages. To convert to bytes, blocks, or tracks:%  bytes = pages * (2 KB/page)  blocks = pages * 8 blocks/page ! tracks = pages / 6 (for a 7908/11/12/14 disc) ( 6=48/8) !! / 11 (for a 7920/25 disc) (11=64/8) ! 1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && Appendix D: Glossary Page 76 &   DISC FILES USED DURING A COMPILATION AND LINK  "Pascal Source File": ! This file contains the Pascal source code to be compiled by! the compiler.    "Pascal Listing File": " This file contains a printable compiled listing file from the"% compilation of the Pascal Source file. It contains such information %! as line numbers and syntax errors. The programmer specifies ! at compile time where the file is to be created.    "VM Scratch File": This file is created on the system scratch cartridge, and  is purged at the end of the compilation.    "MACRO Source File": ! This file is created by Pascal, passed on as input to MACRO, ! and then purged after MACRO has created a relocatable file  from it. The file is created:  o (if wd <> 0): in the directory wd. # o (if wd = 0): on the same cartridge as the Pascal source.#   "MACRO Scratch File": ! This file is created by Macro, and purged at the end of the! compilation.    "Relocatable File": This file is created by Macro from the Macro Source File. After the compilation, the file may be given to Link to be # (( used as part of an executable program. The programmer specifies # at compile time where the file is to be created.    "Link Scratch File": This file is created by Link during the link process, and is purged afterward.    "Executable File"  This file contains the program created by Linking several relocatable files and libraries together. The  programmer specifies at link time where the file is to  be created. 1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && Appendix E: Memory Requirement Graphs Page 77 &   APPENDIX E. MEMORY REQUIREMENT GRAPHS    The following figures show the memory requirements of the Std ! and Cds compilers for different working set sizes and number of ! users.   Figure E-1. Memory Requirements (A900, Cds: Users x WS x KB) Figure E-2. Memory Requirements (A900, Std: Users x WS x KB) ! Figure E-3. In-Memory Compilations (A900, Cds: WS x KB x Users) !! Figure E-4. In-Memory Compilations (A900, Std: WS x KB x Users) ! 1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && Appendix E: Memory Requirement Graphs Page 78 &  ! Figure E-1. Memory Requirements (A900, Cds: Users x WS x KB) !   | 2500 |% KB | 6 n = number of Users% 2000 | 5 | 4 1500 | 6 3 | 45 2 1000 | 23 1 | 1  500 | | |______________________________________.   20 40 60 80 100 120  WS (pages)   ! Figure E-2. Memory Requirements (A900, Std: Users x WS x KB) !   5500 | 6 |% 5000 | n = number of Users% | 4500 | 5 | 4000 | KB | 6 4 3500 | | 3000 | 5 | 3 2500 | 6 4 | 2000 | 5 3 2 | 4  1500 | | 3 2 1000 | 2 1 | 1 500 | | 1  |______________________________________.   200 250 300 350 400 450  WS (pages)1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && Appendix E: Memory Requirement Graphs Page 79 &  # Figure E-3. In-Memory Compilations (A900, Cds: WS x KB x Users)#   " w = WS (pages) " | 6 | 40 80 120 | 5 | 50 100 Users | 4 | 80 | 3 | 100 | 2 | 60  | 1 | 100 & |_____________________________________________________________.& % 500 1000 1500 2000 2500 3000 3500 4000 4500 5000%  KB    # Figure E-4. In-Memory Compilations (A900, Std: WS x KB x Users)#  " w = WS (pages) "   |% 6 | 225 275 300 350 400% |" 5 | 225 275 325 375 425" Users | 4 | 225 275 350 400 450 | 3 | 225 300 400 450 | 2 | 225 350 450 | 1 | 225 450 & |_____________________________________________________________.& % 500 1000 1500 2000 2500 3000 3500 4000 4500 5000%  KB1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && Appendix F: Compile Speed Graphs Page 80 &    APPENDIX F. COMPILE SPEED GRAPHS    # This appendix contains some graphs showing compile-time performance # for various configurations of the compiler. These graphs are ! intended to show the effects the following variables on compile ! speed:    Variable: Description: Values: % CPU CPU type {A900, A700, A600+, E, F}% Type Compiler program type {Cds, Std} & Function Compile process {Full compile, Syntax check} & Users # simultaneous compiles {1,2,3}" Programs Pascal source files {Alter.Pas, Xfm.Pas} " lpm compiled lines per minute {0..4000} thru-put lpm * Users {0..4000}   % Figure F-1. Compile Speeds (Cds, 1 User, Alter Program: CPU x WS x lpm) %$ Figure F-2. Compile Speeds (Cds, 1 User, Xfm Program: CPU x WS x lpm) $ # Figure F-3. Compile Speeds (Cds, A900, 1 User: Program x WS x lpm)## Figure F-4. Compile Speeds (Cds, A600, 1 User: Program x WS x lpm)#  Figure F-5. Compile Speeds (Cds: CPU x Users x WS x thru-put) # Figure F-6. Compile Speeds (Cds, A900, 1 User: Function x WS x lpm) #   % Figure F-7. Compile Speeds (Std, 1 User, Alter Program: CPU x WS x lpm) %$ Figure F-8. Compile Speeds (Std, 1 User, Xfm Program: CPU x WS x lpm) $ # Figure F-9. Compile Speeds (Std, A900, 1 User: Program x WS x lpm)## Figure F-10.Compile Speeds (Std, A600, 1 User: Program x WS x lpm)#  Figure F-11.Compile Speeds (Std: CPU x Users x WS x thru-put) # Figure F-12.Compile Speeds (Std, A900, 1 User: Function x WS x lpm) # $ Figure F-13.Compile Speeds (A900, 1 User, Xfm: Type x Memory x lpm)$$ Figure F-14.Compile Speeds (A900, 2 Users, Xfm: Type x Memory x lpm)$$ Figure F-15.Compile Speeds (A900, 3 Users, Xfm: Type x Memory x lpm)$1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && Appendix F: Compile Speed Graphs Page 81 &  % Figure F-1. Compile Speeds (Cds, 1 User, Alter Program: CPU x WS x lpm) %  | 1400 | | 1200 | | 9 9 9 CPUs:  1000 | 9 9 = A900 # | 7 = A700 & A600# 800 | 9  lpm |! 600 | 7 7 7 7 Program:!& | 7 Alter.Pas (800 lines)& 400 | | 200 | | |_____________________________________.  20 40 60 80 100 120   WS (pages)    $ Figure F-2. Compile Speeds (Cds, 1 User, Xfm Program: CPU x WS x lpm) $  | 1400 | 9 9  | 9  1200 | | CPUs:  1000 | 9 = A900 # | 7 = A700 & A600# 800 | 9  lpm |! 600 | 7 7 7 Program:!% | Xfm.Pas (5700 lines) % 400 | 9 7  | 200 | 7 | 97  |_____________________________________.  20 40 60 80 100 120   WS (pages)   1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && Appendix F: Compile Speed Graphs Page 82 &  # Figure F-3. Compile Speeds (Cds, A900, 1 User: Program x WS x lpm)#   | 1400 | X X  | X  1200 | | A A A A A  1000 | | A  lpm 800 | X  | Programs: & 600 | A = Alter.Pas (800 lines) && | X = Xfm.Pas (5700 lines)& 400 | X  | 200 | | X  |_____________________________________.  20 40 60 80 100 120   WS (pages)     # Figure F-4. Compile Speeds (Cds, A600, 1 User: Progr((am x WS x lpm)#   | 1400 | | 1200 | | 1000 | | lpm 800 | | Programs: & 600 | A A AX AX AX A = Alter.Pas (800 lines) && | A X = Xfm.Pas (5700 lines)& 400 | X  | 200 | X | X  |_____________________________________.  20 40 60 80 100 120   WS (pages)1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && Appendix F: Compile Speed Graphs Page 83 &   Figure F-5. Compile Speeds (Cds: CPU x Users x WS x thru-put)   | 1400 | | 93 93 93  1200 | 92 92 92  | 91 91 91 CPU's % 1000 | 93 9n = A900, n users%# | 92 7n = A700 & A600 # thru- 800 | 91  put | 73 73 73 Program: ' 600 | 72,3 71,2 71,2 71,2 Alter.Pas (800 lines) ' | 71  400 | | 200 | | |_____________________________________.  20 40 60 80 100 120   WS (pages)   ! Figure F-6. Compile Speeds (A900, 1 User: Function x WS x lpm)!   | 4000 | | 3500 | | AS AS AS AS AS  3000 | XS XS XS  | AS ! 2500 | Function!# lpm | F= Full Compile## 2000 | S= Syntax Check# | 1500 | XS XF XF  | XF Program ' 1000 | AF AF AF AF AF A= Alter.Pas (800 lines) '' | AF XF X= Xfm.Pas (5700 lines)' 500 | XSXF | XSXF  |_____________________________________.  20 40 60 80 100 120   WS (pages)1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && Appendix F: Compile Speed Graphs Page 84 &  % Figure F-7. Compile Speeds (Std, 1 User, Alter Program: CPU x WS x lpm) %   | 1400 | | 1200 | | CPUs:  1000 | 9 9 9 9 = A900 # | 9 7 = A700 & A600#! 800 | F = F Series ! lpm |! 600 | 9 7 7 Program:!& | 9 7 7F F F Alter.Pas (800 lines)& 400 | 7 | 7F  200 | | |_____________________________________.  200 250 300 350 400 450   WS (pages)    $ Figure F-8. Compile Speeds (Std, 1 User, Xfm Program: CPU x WS x lpm) $   | 9 9  1400 | | 1200 | 9  | CPUs:  1000 | 9 = A900 # | 7 = A700 & A600#! 800 | F = F Series ! lpm | 9 ! 600 | 9 7 7 7 Program:!& | 9 F F F Alter.Pas (800 lines)& 400 | 7F 7F  | 7F  200 | | |_____________________________________.  200 250 300 350 400 450   WS (pages)1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && Appendix F: Compile Speed Graphs Page 85 &   # Figure F-9. Compile Speeds (Std, A900, 1 User: Program x WS x lpm)#   | X X  1400 | | 1200 | X  | 1000 | A A  | A  800 | A  lpm | X Programs: & 600 | X A A = Alter.Pas (800 lines) && | A X X = Xfm.Pas (5700 lines)& 400 | | 200 | | |_____________________________________.  200 250 300 350 400 450   WS (pages)   # Figure F-10.Compile Speeds (Std, A600, 1 User: Program x WS x lpm)#   | 1400 | | 1200 | | 1000 | | 800 | lpm | Programs: & 600 | X AX AX A = Alter.Pas (800 lines) && | A A X = Xfm.Pas (5700 lines)& 400 | X A X  | A X  200 | | |_____________________________________.  200 250 300 350 400 450   WS (pages)  1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && Appendix F: Compile Speed Graphs Page 86 &   Figure F-11.Compile Speeds (Std: CPU x Users x WS x thru-put)    |! 1400 | Users (n) !! | n in {1,2,3} ! 1200 | 9293 9293  | 9293 CPU's  1000 | 91 91 91 9n = A900 # | 9293 7n = A700 & A600 #" thru- 800 | 91 Fn = F Series" put | 600 | 72 7172 7172  | 919293 71 71F1F2 F1F2 Program & 400 | 72F2 71 Alter.Pas (800 lines)& | 71F1  200 | | |_____________________________________.  200 250 300 350 400 450   WS (pages)    # Figure F-12.Compile Speeds (Std, A900, 1 User: Function x WS x lpm) #   | 4000 | | 3500 | XS XS  | XS AS  3000 | AS AS AS  | AS ! 2500 | XS Function!# lpm | F= Full Compile## 2000 | S= Syntax Check# | 1500 | XF XF  | XF AF Program ' 1000 | AF A= Alter.Pas (800 lines) '' | AF AFXF X= Xfm.Pas (5700 lines)' 500 | AFXF XF  | |_____________________________________.  200 250 300 350 400 450   WS (pages)1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && Appendix F: Compile Speed Graphs Page 87 &  # Figure F-13.Compile Speeds (A900, 1 User, Xfm: Type x Memory x lpm) #   | S S S  1400 | C | C  1200 | S | 1000 | | lpm 800 | C | S 600 | S | S  400 | C | 200 | | |____________________________________________.   KB --> 400 500 600 700 800 900 1000  Std WS --> 200 250 300 350 400 450 500  Cds WS --> - - - - - 60 110  Memory (K Bytes)1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && Appendix F: Compile Speed Graphs (( Page 88 &  $ Figure F-14.Compile Speeds (A900, 2 Users, Xfm: Type x Memory x lpm)$  # Compiler Type ## S = Std Compiler ## C = Cds Compiler #   | 1400 | |% 1200 | C C C S S S% | S 1000 | C  | S lpm 800 | | 600 | | S  400 | | 200 | |& |_____________________________________________________________.& % KB --> 900 1000 1100 1200 1300 1400 1500 1600 1700 1800% % Std WS --> 250 300 350 400 450%  Cds WS --> 40 60 90 110   Memory (K Bytes)1 & Pascal/1000 Configuration Guide Rev.5000 Mon May 4, 1987 6:44 pm && Appendix F: Compile Speed Graphs Page 89 &  $ Figure F-15.Compile Speeds (A900, 3 Users, Xfm: Type x Memory x lpm)$  # Compiler Type ## S = Std Compiler ## C = Cds Compiler #   | 1400 | | C C% 1200 | C S S% | 1000 | | S lpm 800 | | 600 | | S  400 | | 200 | |& |_____________________________________________________________.& % KB --> 1000 1200 1400 1600 1800 2000 2200 2400 2600 2800%  Std WS --> 200 300 400  Cds WS --> 50 80 110   Memory (K Bytes)1 & && & C $C***********************************************************************$C  INTEGER IDC $C***********************************************************************$$INCLUDE /GRAPHICS/DG/Q0CTL.FTNI$A92833::PASCAL:4:54:39 644 0 0 33000 5300502014 32374 A92833::PASCAL:4:54:39 $6 A6'A92833 + +s+ 6tFST  *A92833 92833-17998 REV.6000 <921015.1542> $ ************************************************************************ $$ * * $$ * Pascal/1000 Software Numbering File * $$ * * $$ * Product: 92833A REV. 6000 * $$ * * $$ ************************************************************************ $   Directory: /PASCAL/   FILENAME PART NUMBER REV. TYPE DESCRIPTION ' --------------------- ----------- ---- ---- --------------------------------'  A92833 92833-17998 6000 4 SNC File$ CONFIG_GUIDE.DOC 92833-17085 5000 3 Config Guide (print format) $   Directory: /PASCAL/CMP/  FILENAME PART NUMBER REV. TYPE DESCRIPTION ' --------------------- ----------- ---- ---- --------------------------------'  ALB.REL 92833-16061 5000 5 Real arithmetic ! CDSOF.REL 92833-16063 5000 5 CDS OFF default RPL ! CDSON.REL 92833-16064 5000 5 CDS ON default RPL % DCT.REL 92833-16067 5000 5 Default code type determiner %$ PASCAL.ERR 92833-17021 5000 4 Syntax error message file $  Directory: /PASCAL/CMP/CDS/  FILENAME PART NUMBER REV. TYPE DESCRIPTION ' --------------------- ----------- ---- ---- --------------------------------'  CAT.REL 92833-16171 5000 5 Error catcher " DATE.REL 92833-16219 5010 5 Compiler revision date " DBG.REL 92833-16172 5000 5 Debug info emitter DCL.REL 92833-16173 5010 5 Declaration parser $ DLB.REL 92833-16174 5010 5 Debug symbol info emitter $ ELB.REL 92833-16175 5000 5 Code emitters " ERW.REL 92833-16176 5000 5 Read/write evaluators " EV1.REL 92833-16177 5000 5 Evaluators #1  EV2.REL 92833-16178 5000 5 Evaluators #2  EV3.REL 92833-16179 5000 5 Evaluators #3  EV4.REL 92833-16180 5000 5 Evaluators #4  EV5.REL 92833-16181 5000 5 Evaluators #5  EXP.REL 92833-16182 5000 5 Expression parser FLD.REL 92833-16183 5000 5 Expression folder # INT.REL 92833-16184 5000 5 Compiler initialization #" MAN.REL 92833-16185 5000 5 Compiler main program " MEX.REL 92833-16186 5010 5 Module exporter  MIM.REL 92833-16187 5000 5 Module importer " MNU.REL 92833-16188 5000 5 Main utility routines "% NFS.REL 92833-16189 5000 5 New file sys access routines %$ OPT.REL 92833-16190 5000 5 Compiler option processor $ PASCAL.REL 92833-16191 5000 5 Monitor program $ PASCAL_C.LOD 92833-17048 5000 4 Load Cds Pascal for RTE-A $$ PASCOMP_C.LOD 92833-17045 5000 3 Load Cds Pascomp for RTE-A $# PRG.REL 92833-16192 5000 5 Prolog/Epilog generator # SAMER.REL 92833-16208 5000 5 Samurai stub  SCN.REL 92833-16193 5000 5 Source scanner " SG00P.REL 92833-16194 5000 5 Global initialization "$ SG01P.REL 92833-16195 5000 5 Open files process options $# SLB.REL 92833-16196 5000 5 String utility routines #" SSL.REL 92833-16197 5000 5 Symbol table utilities "# STF.REL 92833-16198 5000 5 Standard function parser # STM.REL 92833-16199 5000 5 Statement parser $ STP.REL 92833-16200 5000 5 Standard procedure parser $ SUM.REL 92833-16226 5000 5 Compile summary # TLM.REL 92833-16201 5010 5 Temp and literal manager # ULB.REL 92833-16202 5000 5 Utility library ! UNT.REL 92833-16203 5000 5 Program unit parser !# UTL.REL 92833-16204 5000 5 Compiler debug routines # XFM.REL 92833-16205 5000 5 Tree transformers  Directory: /PASCAL/CMP/STD/  FILENAME PART NUMBER REV. TYPE DESCRIPTION ' --------------------- ----------- ---- ---- --------------------------------'  CAT.REL 92833-16062 5000 5 Error catcher " DATE.REL 92833-16229 5010 5 Compiler revision date " DBG.REL 92833-16065 5000 5 Debug info emitter DCL.REL 92833-16066 5010 5 Declaration parser  DCV.REL 92833-16227 5000 5 Dummy converter " ERW.REL 92833-16071 5000 5 Read/write evaluators " ETC.LIB 92833-16223 5000 5 Utility library  EV1.REL 92833-16072 5000 5 Evaluators #1  EV2.REL 92833-16073 5000 5 Evaluators #2  EV3.REL 92833-16074 5000 5 Evaluators #3  EV4.REL 92833-16075 5000 5 Evaluators #4  EV5.REL 92833-16076 5000 5 Evaluators #5  EXP.REL 92833-16077 5000 5 Expression parser ! FCB.REL 92833-16137 5000 5 Code buffer flusher !& FDUBL.REL 92833-16069 5000 5 Force double-integer into main & FLD.REL 92833-16078 5000 5 Expression folder # FORCE.REL 92833-16131 5000 5 Force routines into main # GO.REL 92833-16132 5000 5 Compiler start-up # INT.REL 92833-16079 5000 5 Compiler initialization #" MAN.REL 92833-16080 5000 5 Compiler main program " MEU.REL 92833-16133 5000 5 Utility routines  MEX.REL 92833-16081 5010 5 Module exporter  MIM.REL 92833-16082 5000 5 Module importer " MSC.LIB 92833-16134 5010 5 Misc utility routines "! NOTEL.REL 92833-16135 5000 5 Segmenter trace off ! NUM.REL 92833-16136 5000 5 Real arithmetic $ OPT.REL 92833-16085 5000 5 Compiler option processor $ PASCAL.REL 92833-16103 5000 5 Monitor program $ PASCAL_6.((LOD 92833-17047 5000 4 Load Std Pascal for RTE-6 $$ PASCAL_A.LOD 92833-17046 5000 4 Load Std Pascal for RTE-A $$ PASCOMP_6.LOD 92833-17033 5000 3 Load Std Pascomp for RTE-6 $$ PASCOMP_A.LOD 92833-17032 5000 3 Load Std Pascomp for RTE-A $# PASS.LIB 92833-16138 5000 5 Secondary thunk routines #" PCIOF.REL 92833-16140 5000 5 Stub I/O Lib routines "" PCIOR.REL 92833-16139 5000 5 Real I/O Lib routines "" PICK.LIB 92833-16141 5000 5 Primary thunk routines "# PRG.REL 92833-16086 5000 5 Prolog/Epilog generator ## SAM6.REL 92833-16142 5000 5 RTE-6 Samurai Segmenter ## SAMA.REL 92833-16143 5000 5 RTE-A Samurai Segmenter # SCN.REL 92833-16087 5000 5 Source scanner " SEGTB.REL 92833-16144 5000 5 Samurai segment table "" SG00P.REL 92833-16088 5000 5 Global initialization "$ SG01P.REL 92833-16089 5000 5 Open files process options $ SG02P.REL 92833-16145 5000 5 Samurai segment #2 SG03P.REL 92833-16146 5000 5 Samurai segment #3 SG04P.REL 92833-16147 5000 5 Samurai segment #4 SG05P.REL 92833-16148 5000 5 Samurai segment #5 SG06P.REL 92833-16149 5000 5 Samurai segment #6 SG07P.REL 92833-16150 5000 5 Samurai segment #7 SG08P.REL 92833-16151 5000 5 Samurai segment #8 SG09P.REL 92833-16152 5000 5 Samurai segment #9 ! SG10P.REL 92833-16153 5000 5 Samurai segment #10 !! SG11P.REL 92833-16154 5000 5 Samurai segment #11 !! SG12P.REL 92833-16155 5000 5 Samurai segment #12 !! SG13P.REL 92833-16156 5000 5 Samurai segment #13 !! SG14P.REL 92833-16157 5000 5 Samurai segment #14 !! SG15P.REL 92833-16158 5000 5 Samurai segment #15 !! SG16P.REL 92833-16159 5000 5 Samurai segment #16 !! SG17P.REL 92833-16160 5000 5 Samurai segment #17 !! SG18P.REL 92833-16161 5000 5 Samurai segment #18 !! SG19P.REL 92833-16224 5000 5 Samurai segment #19 ! SSC.REL 92833-16163 5000 5 Scan utilities # STF.REL 92833-16092 5000 5 Standard function parser # STM.REL 92833-16093 5000 5 Statement parser $ STP.REL 92833-16094 5000 5 Standard procedure parser $ SUM.REL 92833-16225 5000 5 Compile summary # TLM.REL 92833-16095 5010 5 Temp and literal manager #$ TRACE.REL 92833-16164 5000 5 Samurai traceback routine $" TRACE1.REL 92833-16165 5000 5 Samurai trace starter "! UNT.REL 92833-16097 5000 5 Program unit parser !# UTL.REL 92833-16098 5000 5 Compiler debug routines # XFM.REL 92833-16099 5000 5 Tree transformers  Directory: /PASCAL/ETC/ALTER/  FILENAME PART NUMBER REV. TYPE DESCRIPTION ' --------------------- ----------- ---- ---- --------------------------------'  ALTER.DAT 92833-17049 5000 4 Alter data file % ALTER.DOC 92833-17100 5000 3 Alter documentation (print) %# ALTER.LOD 92833-17050 5000 4 Alter link command file #% ALTER.REL 92833-16209 5000 5 Alter (relocatables) program %  Directory: /PASCAL/INSTALL/  FILENAME PART NUMBER REV. TYPE DESCRIPTION ' --------------------- ----------- ---- ---- --------------------------------' $ CONFIG_CMP 92833-17073 5000 4 Configure Pascal compiler $$ INSTALL 92833-17071 5000 4 Parameterized Installation $# INSTALL_6 92833-17079 5000 4 Install Std system RTE-6 ## INSTALL_A 92833-17078 5000 4 Install Std system RTE-A #" INSTALL_ALTER 92833-17083 5000 4 Install Alter program "! INSTALL_ALT_LIBS 92833-17089 5000 4 Install Altered libs !# INSTALL_C 92833-17077 5000 4 Install Cds system RTE-A #$ INSTALL_CDS_LIBS 92833-17087 5000 4 Install Cds inst set libs $# INSTALL_CMP 92833-17074 5000 4 Install Pascal compiler #$ INSTALL_ERR_FILE 92833-17090 5000 4 Install syntax error file $# INSTALL_FMGR_LIB 92833-17088 5000 4 Install FMGR access libs ## INSTALL_LIBS 92833-17072 5000 3 Install Pascal Libraries #$ INSTALL_STD_LIBS 92833-17086 5000 4 Install Std inst set libs $! LINKSZ.LOD 92833-17098 5000 4 Link sizer for RTE-6 !! RESTORE_ALTER 92833-17094 5000 4 Restore Alter files !$ RESTORE_CDS_CMP 92833-17093 5000 4 Restore Cds Compiler files $ RESTORE_LIBS 92833-17091 5000 4 Restore Libraries $ RESTORE_STD_CMP 92833-17092 5000 4 Restore Std Compiler files $" SAMPLE.PAS 92833-17062 5000 4 Sample Pascal program "" SIZE_UP_LINK_6 92833-17097 5000 4 Size up link for RTE-6 "" SIZE_UP_LINK_A 92833-17096 5000 4 Size up link for RTE-A "$ SIZE_UP_LINK_C 92833-17095 5000 4 Size up link for RTE-A/VC+ $# TEST_CDS 92833-17076 5000 4 Test Cds code generation ## TEST_STD 92833-17075 5000 4 Test Std code generation #   Directory: /PASCAL/LIB/CDS/  FILENAME PART NUMBER REV. TYPE DESCRIPTION ' --------------------- ----------- ---- ---- --------------------------------'  PASCAL_CDS.LIB 92833-16104 6000 5 Pascal Cds Library PASCAL_CERR.REL 92833-16167 5000 5 Short error printer  PASCAL_CTRA.REL 92833-16116 5000 5 Cds Tracer   Directory: /PASCAL/LIB/STD/  FILENAME PART NUMBER REV. TYPE DESCRIPTION ' --------------------- ----------- ---- ---- --------------------------------'  PASCAL.LIB 92833-16113 6000 5 Non_CDS Pascal Lib PASCAL_ERR.REL 92833-16125 5000 5 Short error printer $ PASCAL_ERR_ALT.REL 92833-16222 5000 5 Altered Short error printer $" PASCAL_FMGR.LIB 92833-16107 6000 5 Pascal Std FMGR Library "$ PASCAL_FMGR_ALT.LIB 92833-16210 5000 5 Pascal Std FMGR Altered Lib $ PASCAL_LH2.REL 92833-16117 5000 5 Large Heap 2 Stub  PASCAL_TRA.REL 92833-16168 5000 5 Std Tracer (ver A) PASCAL_TRB.REL 92833-16169 5000 5 Std Tracer (ver B) PASCAL_TRC.REL 92833-16170 5000 5 Std Tracer (ver C) ! SHSLB.LIB 92833-16220 5000 5 Short Heap/Stack Lib!% SHSLB_ALT.LIB 92833-16221 5000 5 Altered Short Heap/Stack Lib%EL 92833-16144 5000 5 Samurai segment table "" SG00P.REL 92833-16088 5000 5 Global initialization "$/PASCAL/CMP/ALB.REL:::5:28:128 644 0 0 16000 5300501412 33606 /PASCAL/CMP/ALB.REL:::5:28:128 $ xALB REL + + +  6ݬFST 22XV;ALB 92833-16061 REV.5000 841008 /P1K/CMP/ALB.MAC2@33XNV;CFLDR 92833-16061 REV.5000 841008 /P1K/CMP/ALB.MAC3icJFOLD1 )FOLD2 0.DLD.DST.ENTR .MVW2@  m"@@[FA%`$p"h&`h'`h(p?%HA`(m)B()H`#p"hH`hIp?(]h`ImJIJP(a(V`kub>>pppp`jp(Xpll`?P(z]`?({hl`Ampxp>hA`@h`>P(٨ PP~~d@@`xhP xhHxHD``!(((hHh(x` p@ 8(h~4RCCxHX(x 8 8` hHh@xD8D8ADAhHhӨ(#p&p' 8'8&(`'#>>BpepfP (J`eP(C@gpe f(-`f@epe(^AHH (iPi(U`e@pe(J1(^p(^8e(UH`eeaBBH (xH` @hHd h d Ad (hj A(`C(`(`@(@hxh >>((@h(@!(H(   D(`p `hj(hxވHa(( (hިJAA,#`phhh`h`j8(`hA`@ph`P(A??`(=`J`hDhD`IP(2`BpC`hQhD`j h8C(*`P(h(h`h`@ph(((`P[=hxxh KDE bbJJ--` phh@pppp p!Jpw@xh``jhwXp ڈpH H h(]bWx@@~HH `xH Hx0hH H X((h `@`(`"`"p` FF @ @((hh h 000hHظX`"F## 5!   @H (#@"A33XZoV;CNVRT 92833-16061 REV.5000 841008 /P1K/CMP/ALB.MAC3 Ϡ[CNVRT !!'.DIV.DLD.DST.MPY.MVWCONST NEXTC !~~DD  0+-.LEle((p=h(*hp=x>`=@P(4p=`h>(+@|(;@{>px(rh X(m`~ICC@h @xp8(f`zhy h 8  @!(aH(]`pph`x ?Hx(C`@8?`P?@{(R2Pd} N azJJh(85 @@ @@p`6p   pQQ@((((AAA`(x(`pppp??`0pph`ph`xp`h pU` h  @HU  xUP(@(`h  (( x@ppUpXHxh !BB(*xV(%`U@6 WW VHXVhVX xWHxV(pU@pXHx`pVpW@ pY(J8VHXPHXSpZ8WWAU50ZV8Y(A0W;;`p `ppppppppppp p p `爈p (s8 @ (P(P(P(P(P(P(P((@8 (8 (8 8 h  H Z>>Hhx (s8 ?(s`@p` P(r(` P(`p (sP(P(@pP (@P (r(8 8 (rP (r(h DhH $DEE(((؈((((p[`h(?`0``@Q(D`0AB(DQ(P B(D@(x(>>(`P(?h(!? Hx `0(h 8H H(B`h(P6 ֈ 0 ( A`䀈pppp!(  (`P(T@@S(B`Pn(X(B`P (e`(B`(B`Pm(i(BPl(i(Bp(LV@@@m?33XNV; CONVR 92833-16061 REV.5000 841008 /P1K/CMP/ALB.MAC3lCONST zGET_CONSTANT-NEXTC -- 6f .CFER .DLD.ENTR .ITBL .LBPR .LBT.LPXR .MVWCNVRT -TT(D))`^@`(( p)p*(&v6@`HHp,p+`+@(`+@(p*(!p*`+p)``Ap`)-TTTg.//(p`p]`_(;Ax`(?xAgAxxkA kgA`h`a(ZAx`p]`]zvT''{Avwp^yp_`p](/lab'@z<33X]0 V;!TWOTO 92833-16061 REV.5000 841008 /P1K/CMP/ALB.MAC3 QTWOTO .ENTR I 0 p @ %)33XWV;!DOVER 92833-16061 REV.5000 841008 /P1K/CMP/ALB.MAC3 ;DOVER .DLD.DSB.ENTR 6 AAA@f&/PASCAL/CMP/CDSOF.REL:::5:1:57 644 0 0 400 5300501415 33370 /PASCAL/CMP/CDSOF.REL:::5:1:57 $ 9CDSOF REL + + + LFST 99X V;+PAS.CDS_DEF_OFF 92833-16063 REV.5000 841008 /P1K/CMP/CDSOF.MAC9 Z$CDS @(/PASCAL/CMP/CDSON.REL:::5:1:56 644 0 0 400 5300501417 33433 /PASCAL/CMP/CDSON.REL:::5:1:56 $ 8CDSON REL +++KFST 88XV;/PAS.CDS_DEF_ON92833-16064 REV.5000 841008 /P1K/CMP/CDSON.MAC8 Z$CDS @|/PASCAL/CMP/DCT.REL:::5:1:56 644 0 0 400 5300501424 32741 /PASCAL/CMP/DCT.REL:::5:1:56 $ D8DCT REL +++mFST 88XȎV;9PAS.DEFCODETYPE 92833-16067 REV.5000 841008 /P1K/CMP/DCT.MAC8sPAS.DEFCODETYPE 0эZ$CDS  O`@3/PASCAL/CMP/PASCAL.ERR:::4:35:37 644 0 0 21400 5300501725 35551 /PASCAL/CMP/PASCAL.ERR:::4:35:37 $# =#%PASCAL ERR +++#3FST * PASCAL.ERR 92833-17021 REV.5000 <870424.0849>   Pascal/1000 Syntax Errors  1: Error in simple type 2: Identifier expected 3: 'PROGRAM' expected 4: ')' expected 5: ':' expected 6: Illegal symbol  7: Error in parameter list  8: 'OF' expected 9: '(' expected 10: Error in type 11: '[' expected 12: ']' expected 13: 'END' expected 14: ';' expected 15: Integer expected 16: '=' expected 17: 'BEGIN' expected  18: Error in declaration part  19: Error in field list 20: ',' expected 21: '.' expected  23: String literal expected  24: '..' expected  25: Illegal character in this context  26: ',' or ';' expected 27: 'EXPORT' expected  28: 'IMPLEMENT' expected 29: 'IMPORT' may not appear here 30: 'MODULE' expected $ 46: Expression must not contain a component of a structured constant$ 47: Expression must have integer value 48: Expression must be non-negative  49: Expression must be a constant  50: Error in constant 51: ':=' expected 52: 'THEN' expected 53: 'UNTIL' expected 54: 'DO' expected  55: 'TO' or 'DOWNTO' expected  60: Error in expression  61: Modules may not be in a subprogram or segment  62: Module has internal error  64: Modules must be declared at outermost level  65: Modules must have non-empty export section 66: Modules may not declare labels 69: Module not found  70: External routine must be declared at outermost level 71: Aliased routine must be declared at outermost level  72: Recursive routine may not be direct  73: Errorexit/noabort may not be used here 74: Library routines must be visible 75: Forward/exported routine may not be external 77: Search file open error 78: Search file read error 79: Se((arch file record length error  80: Negative field width not allowed 81: Type too big  82: Expression must be in the range 1 .. 32767 83: Type not imported  84: Pointer size conflict $ 85: Actual routine may not have BASIC/FIXED_STRING parameters/result$ 96: Overflow of two word integer 97: Illegal character for given base 98: No value to convert   100: Duplicate or invalid external name 101: Identifier redeclared  102: Low bound exceeds high bound 103: Identifier is not of appropriate class 104: Identifier not declared  105: Sign not allowed  106: Identifier redefined after use in this scope 107: Incompatible subrange types  108: File not allowed here  109: Tag type must not be real  110: Tag type must be scalar or subrange  111: Incompatible with tagfield type  112: Index type must not be real  113: Index type must be scalar or subrange  114: Base type must not be real or longreal 115: Base type must be scalar or subrange 116: Error in type of standard procedure parameter  117: Unsatisfied forward reference  118: Undeclared forward/exported procedure or function  119: Forward/exported; repeated parameter list mismatch 120: Function may not return this type  121: File or type containing file value parameter not allowed  122: Forward/exported; repeated result type mismatch  123: Missing result type in function declaration  124: Decimal position for real only 125: Error in type of standard function parameter 126: Number of parameters does not agree with declaration 127: Missing parameter to standard routine " 128: Result type of parameter function conflicts with declaration" 129: Type conflict of operands  130: Expression is not of set type  131: Only tests of equality are allowed 132: Strict inclusion not allowed 133: File comparison not allowed  134: Illegal type of operand(s) 135: Type of operand must be Boolean  136: Set element type must be scalar or subrange  137: Set element types not compatible 138: Subscript may not be used here 139: Index type is not compatible with declaration  140: Type of variable is not record 141: Type of variable must be file or pointer 142: Illegal parameter substitution 143: Illegal type of loop control variable  144: Illegal type of expression 145: Type conflict  146: Assignment of files not allowed  147: Label type incompatible with selecting expression  148: Subrange bounds must be scalar 149: Not assignment compatible   150: Assignment to standard function is not allowed 151: Assignment to formal function is not allowed 152: No such field in this record 153: Type error in read  154: Actual parameter must be a variable ! 155: Loop control variable must be simple/local/non-EMA variable ! 156: Multidefined case label  157: Loop control variable may not be assigned to 158: Missing corresponding variant declaration  159: Real or string tagfields not allowed 160: Previous declaration was not forward 161: Again forward declared 162: Type error in write  163: Missing variant in declaration! 164: Substitution of standard procedure or function not allowed! 165: Multidefined label  166: Multideclared label  167: Undeclared label 168: Undefined label 169: Error in base set  170: Program parameters must be files# 171: Actual parameter cannot be component of packed type or string #$ 172: Substitution of routine with non-standard attributes not allowed$ 173: Too many enumerated values 174: File cannot be text file 175: Default "input" file is not accessible here  176: Default "output" file is not accessible here 177: Only variables may be assigned to  178: Duplicate tag  179: Function identifier not assignable here  180: Type of expression must be Boolean 181: No function result defined in the body of the function 182: Noabort procedure may not be invoked here  183: Tag field cannot be passed by VAR  184: Division by zero or MOD by non-positive value  185: Undeclared external file 186: File must be a text file 187: Option conflict  188: Option cannot be specified here  189: Heap option must be set to use this routine  190: Recursive option must be set to do recursion 191: Option cannot be respecified 193: Include/import level too deep  194: Include file cannot be read  195: Option has invalid parameter 196: 'ON' or 'OFF' expected 197: Only options may appear in option file" 198: Heap variable may not be passed by reference in this context"  200: Numeric constant too long  205: Real constant exceeds range  206: Missing fractional part of real  207: Missing scale factor of real or longreal 209: Overflow or underflow  210: Integer constant exceeds range 215: String constant too long 216: String constant exceeds source line  218: Non printing character invalid in string 219: Invalid non printing character 220: Character constant exceeds range 225: Label exceeds range  230: Structured type identifier expected  231: Too few constants 232: Too many constants  233: Field(s) not specified 234: Field respecified  235: Tag not set or set to another variant  236: Set type id expected 237: Constant of wrong type 240: Anonymous STRING parameter must be VAR  250: Too many nested scopes of identifiers  251: Too many nested blocks of code 252: Location counter overflow  253: Unexpected end of source file  254: Source line too long 255: Too many errors on this source line  256: Source appears after the end of the program unit 257: Too much local variable space ! 260: Compiler label overflow: break into separate compilations !% 262: Small temps exhausted: use more SMALL_TEMPS or simplify expression%  302: Index expression out of bounds 303: Value to be assigned is out of bounds  304: Element expression out of range  305: Actual parameter out of bounds 306: String length out of bounds  307: Expression out of bounds 308: Case label out of bounds  398: Implementation restriction ! 400 or greater: Compiler error, contact your HP representative.!B37 OCT 37B20 OCT 20B21 OCT 21B22 OCT 22B23 OCT 23B24 OCT 24B25 OCT 25B2 OCT 2 B.3 OCT 177775/PASCAL/CMP/CDS/CAT.REL:::5:4:128 644 0 0 2000 5300501607 34511 /PASCAL/CMP/CDS/CAT.REL:::5:4:128 !!$ ,CAT REL +++ FST ;;XMV+)PSCAT 92833-16171,REV.5000,870622 870622.1341 /P1K/CMP/CAT.PAS;@.M??XXV+*PAS.ERRORCATCHER92833-16171,REV.5000,870622 870622.1341/P1K/CMP/CAT.PAS?9CPAS.ERRORCATCHERQQ Z .EXIT0.LDX .MW20 .SDSP ERRPASSER MAP_REGULAR_SEGS PAS.1 PAS.2 PAS.CDS PAS.SEGMENTLOAD PAS.SETEXITPARMSPAS.STOPQ?7`P(`P(( ` ! ( p !(B`P((`P ((` ~( p ~(B` w (9p w @P `A@ (1`p ` p0 t?p **B@@ #  `h ppp p (* <U USG00P @_L~ /PASCAL/CMP/CDS/DBG.REL:::5:26:127 644 0 0 15000 5300501611 34464 /PASCAL/CMP/CDS/DBG.REL:::5:26:127 ""$ , DBG REL +++ LFST ;;XPV93PSDBG 92833-16172,REV.5000,870621 870622.0056 /P1K/CMP/DBG.PAS;@1P??XVV95DB_STATEMENT_LIS92833-16172,REV.5000,870621 870622.0056/P1K/CMP/DBG.PAS?vDB_STATEMENT_LISxxG.DCO.DDE.DIN.DLD.DSB.DST.EXIT0.LBPR .LBT.LDX.LPXR .MPY.MW20 .SBT.SDSP BOL EMITCHAR EMNUM EMSTR EOI FLUSH_CODE_BUFFE PAS.1 PAS.2 PAS.BITMASK1x%%PAS.BLANKFILL PAS.BOUNDINTEGERPAS.CDS PAS.SINGLEMOD %-- 8`@ `@h`@ `@ -b@@())( `@ p  (/ p )/@@(UU151#`@ (;(`@ (Cp (Ep  7  `@ p  ((  p Uf93 `@@p p ` @p` A@(`@h HH@p  ` @P ((` (`0`@hHH@@`[[+!@hHH@@`@hHH@p  p (`0` p (p``[ @@!`h (5 3P t LOADREC 0,0,161200B,0,ɋ75` (` @ P(鈨(` @h H ` @ ` @@A@( ` @ h H  (` p ` @  ` @h ppl--HH@hH ` @h H H@p ` @ p`A@(9 0 (D` @ @p H0 H p}}OD00  h 6 ` @ h H ` M(a` @h HHH@h(k` @h HHH@ ` @h HHH@h},,tH ` @h HH` @ ,U@@p (@@J=@` @ ((` @p `@ x ` x @'` ($$l `@ (`@@p $zY ` `p (S:4`(` ˈ`(Y` @h H H@@6 h Hp ` @ @H6 ` H` @ (&` @h HH@p ` @ ''JpA@p O0 O 'L55` @h HH@p H0 H ` @  (Y` @h HH@p ` @ pA@ p G0 G ` @h HH009H@p 0 ` @h H ` @ 0Y@@p (55a@`@Hx `@p h   ((s(`(5Hwz `Z ` p (g:@@(a))`@ @  @`@@A  (p )| ` `p (ttS<4@` @@((h H @h H ` (` ˈ` (_` @ @``  ( P((?` @(t~~H8` ( ` (`  ( ` @  x` Z(_` @(` (>` ` (+`  (>~LLP+*&` @ @ @@x` Z(_` (V` @  x` ZL11lU(_` @p` ` @p` @ h1PSj@@ p (ppSzFD@ @(( @@P>((@@@@(@@@x`k ,H@(p,,dE@  (͈(`   (,F @@ (z < k '',` ` `'@@(%%), \ ~   %@7==X7 V99SYMREC_TYPES92833-16172,REV.5000,870621 870622.0056/P1K/CMP/DBG.PAS=pSYMREC_TYPES''#.EXIT0.SDSP EMIT_SYMBOLS_FORPAS.1 PAS.2 PAS.CDS '   5@@(  @Ƭl==X6 V9:SYMREC_COUNT92833-16172,REV.5000,870621 870622.0056/P1K/CMP/DBG.PAS=eSYMREC_COUNT''#.EXIT0.SDSP EMIT_SYMBOLS_FORPAS.1 PAS.2 PAS.CDS '   5@@(  @ĘX>>XQ V9:SYMREC_TREE 92833-16172,REV.5000,870621 870622.0056 /P1K/CMP/DBG.PAS>2SYMREC_TREE ''#.EXIT0.SDSP EMIT_SYMBOLS_FORPAS.1 PAS.2 PAS.CDS '   5@@(  @U>>X] V9;SYMREC_ROUT 92833-16172,REV.5000,870621 870622.0056 /P1K/CMP/DBG.PAS>@SYMREC_ROUT ''#.EXIT0.SDSP EMIT_SYMBOLS_FORPAS.1 PAS.2 PAS.CDS '   5@@(  @p0/PASCAL/CMP/CDS/DCL.REL:::5:178:128 644 0 0 131000 5300501612 35651 /PASCAL/CMP/CDS/DCL.REL:::5:178:128 ##$ ,<DCL REL +++X?FST ;;Xyē'PSDCL 92833-16173,REV.5010,881021 881021.1636 /P1K/CMP/DCL.PAS;@Zy==XHē'&:DECLARATIONS92833-16173,REV.5010,881021 881021.1636/P1K/CMP/DCL.PAS=-DECLARATIONS{{U-.DAD..DCO/.DDE0.DDI1.DIN.DIV.DLD2.DMP3.DNG4.DSB.DST5.EXIT06.LBP7.LBPR .LDX8.LPX9.LPXR :.MB00 .MPY;.MW00 <.MW20 =.SDSP )CHCKB 'CHCKI &CHCKS *CHECK (CHKBS {{{P%COMPTYPES $CST_EXPR_FEATURE"ENLAB #ENTERID !ERROR EXPORT_CHECKFEATURE_LEVEL GETBOUNDS INSYMBOLINT_CONST INT_TYPEMAKE_SETMAKE_STRING MAKE_TEXT NEWLABELNUM_ELEMENTSORDER PAC {|| SPARSE_EXPR,PAS.1 +PAS.2 >PAS.BITMASK1PAS.CDS ?PAS.DOUBLEMOD @PAS.INLINEERROR APAS.MARK2SPAS.MAX BPAS.NEW2S CPAS.RELEASE2S DPAS.SETCLEAREPAS.SETDIFFER FPAS.SETINIT GPAS.SETUNIONHPAS.SINGLEMOD |}}޺IPAS.WRITECHAR JPAS.WRITEDOUBLE KPAS.WRITEENUM LPAS.WRITEINTEGERMPAS.WRITESTRING PREP_VARIABLE REAL_TYPE REVERSE_ID_LIST SEARCHID SET_IDENT_DEFAUL SET_TYPE_INFO SKIP SRCHS STRID TRANSFORM_TREE} UmWRITELINE Jp`@ p@'*`(`)p'!`!!<EEV`@p`,2P `@(`@(`,2P p p +E@@5&=(gg :B0Pp ` (O@p@@((.((+(*(,p (O@p@Pp ` (Og##7>@P@P.(M(Lp ` p#""bLQ`5=@@@@`p("b@<`@p   `@@``@@``@@``@ @``@"p ` `,2P+((`@@ p  ,( `@p  p  ,(=fD<`@p  `@@p @ `@@p  -`@ @@` `@@`@`@ @@` `@ @`@`@"p ` c @@5=(b88H@` @ ((& ` @@`@ .0` @@A8 8ͷHF@` @A81` @x(G` @ @@` 35@` @A8 ` @p` @8A1`#H;` @7@x@@96x @@98x ׎`@@  Ed@@5= (qr `@@6 (KKQ}$$`@6`@x  (`@@A86`@x  `@hHp @@ K@@5=(r^^sa;9`@    .:`@@D6 7 x@ @9 6x@ @9 8x((@ @9 9 1x ^&@@5=(~~]#HD`@@6@@9;`@@``@ @` 9=@A83P((/@9=`@@``@@ ``~99^/0@@D6 0p `@"@`,2x ,HH@>(+9MIC``@`@@D6` (`@p0(`@ (`@p`@@A88@ @  @(9@=@`55@p`Sp?(9=@A83P((5H>`@p`@.(((Ҋ`@p`@p@.(p@.%((`@p`e%`@@@-@@. ((88d( ` (`,2P pA( 1@.((pB8B<`,2P (( (*`,2P pA(>` @(`@. (5(5(_`@p@ `@p,`@ `@h @@ 4D1`e%44ՁZ`(m@@. (epC`,2P pp(4w@@5=(}MM@ (( @@ @@ ((@9D /(@@ @9F(@ @((@@  @@9D@9Fx@ @`@ (`@22p(`@@@@9D@09@Fx@2;`@p I0 @@5=(}~~kLL@ @((R@` @p9=@@` @p9@;@` @@@.((!(! (Q@` @@@ (-(=@9H (=@9=('@ ~BEA @(C(Q9H.(M(Q(Q=MMC@ (`` @p@ ` @p `,d(,`IIJ@ p,`J!K,`)!!J@` @ p,`J!K,`,**V44J` @ p,`J!Kp*!! ` ` @p` !""@@51=`h@L<@@@(" 8P K>>> New level, Fixed , Tag , Variant 5QQ@p7 x  ((J7.(#( ((7.( @((7 x96@@@9F(I@ @()(C7@@@@7@.(8(C(C [8M M<@7x  p(""l=J`5=@ @@@`p("m[C=`@@6@`@ @@``@p`@@``L(`,d(,`NNJp(0`@ (@`@ ((`,d@0 (,`!AAJLHp`@ p ` (@ @(( @`@6@@ `@@`@@9H`@@`3`L3p ` @( 9H9;44@@``@h@H p@(9@=@ 488p ( O(0`,d(%,`+JpP`@p@ 80 @@55=`hQ<([ :P; ((;>>> Field Active>>> Field Not Active>>> Field Error (&UDD@`@ (`@@D6 (h(~`@@D6 `@86x@@ (`@86x@ `@ hHp`@@H6`E@@x@(dd66@`@A@86@ `@@A86x `@86`@@x@`@@A86@ (`@ h@Hp@d@@5=(UggA;@ @`@@@ ((?@@@9R@AhH#K; .((79T@hH#;@@@ .(((7g55E" @9H9@;@` (>@9=(5 )? @@5=`hHAH#;(nnNuK99`@hH@pD6`@h@Hp@`@@ (i(`@@@@9F 9D/(9DnwwA EA@9Fx@ @`@ pV(`@@@`@p7.((pV(`@@p96`@p@@ (aw@@5=(KJJj.,`@p    `@@D69=@@@9R`J}}cHD@ (  @(  ( `( -` @"@`,2x ,H@>( ( @`,2p7( ``@@6A@8;@`@ @@`}<<] E% pW( ]`1`,2PppK<8! jC= `@@`@`@ @@` `@@`@`@ @@` `@"p`  ( ( `eX`93@@`@p`TT_ 1+Sp?( 93@A83P( ( @93`@@``@@ `Tv B8`@p`@.( ( ( `@p`@p""@.( p@.( ( ( `@p` @`,2P ( ( ( '`,2P ,,) pA( ``,2P pp(, 7@@5#=( = @98.%( y( yі FWS@@7 ( U7@x@( y7 91@hH#;@@98-@/@ @( ~( y91@hHAK#;9@8@D-/.( ( x @@@96 ( ~~ PP@96x@@( x.( ( ( @98x@@4D1 ( x@@.( ( ( 96x ( @7x( @96x@@( t.( ( ( @91@~,,c AhH#D;91A`@#D;98x4@1,~~w LL( t.( ( 0.( #( #( $( /98x41@( t.( 7@( 7( T91@hHAD#;91`@AD#;98x41@( t91@hH#;@91`~))̬ a@#;@98 98x  ( x)U y @@5&=( = DB`@@6A8;( `@p@ `@pZ( `@@6A@8=@`@ @@` `@@`@p `,2P p ` SS '%( `@ @@` `@@`@!`@ @@`# `@ @`@%`@"p`!#%Se GA@`@ ( ( \`@p `@ `@ ` ( J`@81@AhH'#K;'*`@p@4*D1,`@8@8x,@AAj 5!`@@@.`@p` z.p ( `@@` 0 03]A VHD@`@@@9 `@@p9A1`#D;98x 96x 7x@ `,2P( ( p ( `@`@p` z`<<Z "@@D69=@@`@p`Sp?( <~~t C;@9=83@P( 9;( `@p`@.( ( ( `@p`@p@.( p^` ( `,2P ( ( ( `,2~II &$P pA` @"@`,2x ,H@>p ( `@@D6 ( sI )LJ `@@`@ 3_`@@@A@1-@@7x 96x 98x 9 @7@9X`@@H6`@x@@`,2P v upp( }@@52=( \ `@@`@ 3`KK  ,*@`@@@ 9((  7 x @@9 6x @@9 8`@ @p `K @@5=( bb8 31`@@6AA-=8Xx p ` `@p `@p @`@"@`,2x ,HH@>(mbC B<p  @``@p0(@`@J.,(((`@ pa(^`@.,(*(1(1@`@@(I`@p`@;;6#88     (O(^`@p`e%;aYL>`h  -x `,2P (i(l( 倈` (` A@ pB( a`e%X`@98xh p  `,2P pp (  @@5=( 00L` @ p` @ 0,z@7x' '7x' @'0iR@@7@9X  `,2( p,}p,@'/b`J``7`9`K`!`2` @ @@`('(p,}p, ( (9c'00 ( (4`,2P ((4,e(7@x'(@'0e,II@@7A8;@7 x'' (H@@7 (H(Ҋ` @ (o` @ `,Jނ@-,A83` @ p' '`,Jނ@-,A83x' ' (u(<<WDu"93@@(@7x'('` @(p'p"''1` @1h H"K;<~~>D6`,2P p'p'>@@7A83P(P(P(P ((Ɉ` x(ш`  8(ш`  ~(ш` (ѱg"(7x'J@,'h` ~SS,&@"K; ` @ p` @ 0,z, p''h(9,"p''i(SHHJ9,jP((Y9@,.A8c'P((YJ9,.8H /(YJ9,.8l(7@x'(@J'9,8(7x'@@('J9,8@6JJO'!@@(7 x'(J'(9,jP!(g@,,J9,jP!p''i(JMMyv&&J9,8(7@x'(@J'9,.@h H*AD#;7` @*#;` @ p` @ 0,zM/ @@56= ` h H"AHK;( -,; [[e7+ p,v`,2p `@ p!@-'n`p!-' 2` 7 2`,2(ip `@ @@`" "oqJ[=^G9 `@@`@",@,"91`@#;`,2P((`,3P p @-'r`)p,O -'2 N2(p `@@`@"`@@PP?&-%`$`@@`&`@@`-`@ p @2's`)p 2'7`"$&-7PSNL@@@93x @@ @9tx @@ @9Fx @  @9c09Hx  p! O0!O @9H /(@79@lx @@ 9v`,966_Dx p! A0!A @9x@9z68OM(9lA`@#D;93@@"0"(A@l-A@8XA8|` (`,ނ@JA-,83x   9H/(`,Jނ@-,A@88@@"9@Fx "@((YD  `,Jނ@-,A88x    0(||/hL<`,2P p p +`@ p @-'~`p -'2`@2@`,2x  ,H H@>p!`@ p@-'~`p-' 7`!! 7(p,v|wk @@5<=`hK<( EfPv( vv6??{'%@ @((@@9 ` x A݀h @@- @9jx N?o@@5=  p ({[[4.@7x,79Xh` @ K;p, ` @ @`@J , ph(0[BH@J9,"pi(09,jP!(@,,9,jP!pi(0J9,87@x@J9,.@h HAD#;7` @##!.#;`,(>` @ @ `0#6'> @@5= `h HAHK;( 0,; J@7(P(s88P#!@@7A.(Xp  (s71@@ 7x   78Zs@@5=(JSGyJHp p @(@D3(` p p (p  .((` @(` p ` @(@  6@(` @(A.6((@@.(( %@ p !! ` (` P((`p ` p ! ` 5=@@`!p (yWW64@7x 7 ((9 @@@7x9jx@7`` (` tWW @@5=  p ( @7(:9X @ ^. @7@9Xx @@  :@@5=( p@N< `@@`@"`@ @@`$`@p&@*'``)p&*'/` ?"@$/ (r(~0(~(J,@`,2Pp&pJJh^*"&w`@ @@`" `@@`@$`@p&@*'`)p&*'/` ?"$/JH>@ ((0((J@,@J.,@((J.,(((,`@@`"` ;"`@@`"` ;@"(@>>q"@"@."(*(*`@@`@#;`@@`@#;>/"JF`@@`@#;`@ " "`@@D6 ""J`@@6@@ 9 @=x&@@&9 ;`@@#;9 `@#;`@::7l@6@ `@ @@`" `@ @`@$ "$` p :ccV<2`  p ( .%((` @ (` p `@@D6 p p&`  %&Pp&&c@@54=(@\\1-`,p `,Aނ@-,8 (@,̨p,(`@  `@@D6` X\}} 6LH`@@6@`@@D69=@9F9R@9`,9x  p p `,2p7(`@@}44,J ` DJ` A @p(l4iFD` p ` @,(r(t`,p ` @ @` ,,` @ p@91`AH#;`@@D693x9Fx9H9r1T@lA@l-A8X` 0@@`@p@'`(`/p'!`@! @`,2x ,H@>p`@p@'`(`] /p'&`!&JB`,2P (("`,2p7`,2(;`@@6@@9@tx@@9R` `@@D6h  ` p` %[ ` p,`,2P pp9g@@5+=(>m @77xJ@,)yS?`,2P pp>` @@`` @@` @$'`>`)p$')` ?)p(@@A.X@((A.(&&p(@@7x&g+ `,2P p(? @@5.= `h HAHK;(msdF>@77 x@ `,2 ,H@>pp,O' #`J #`,2 ,HH@>(Spp,`,2P(0(`,2(p,}p,@/? `J` @@` =O=7 p,}p,@(( (^` h(h 6` 6: `,pp,`,2P (`,2P (s(`p,`,2P(|(~p(p p,2h 6A` 6H:`p,PP."`(` h(p`p,(4`,2(2@/``J`K` @@ `P(PJ@9c '(/@7 x9@3J.,((@(@7x(@937@x@@7@J.,(( ( 7` 7 x @<< (+78. ,p7xL0L@@7J.,('(+(+<[[P'3+7(1p(4p`(<` ` @@`,2x ,HH@>p`!(Z@7x,[AZ @@5(= `h HAHK;(l,P,,UU;f+) ` @@`@` @ @@`@` @A.%(((` @-` @.((Uqq B: @ (` @p` @@@4D1  `@.(‹(`@p @(`@hHp@  @@ @q @@5@=(f225@7`,2P p'p'> @ 2VH@@7@(` (X@@7@((97#9#=x''9#.x'` @ p*'O*O'@@7@@3'`(`>`p3'8` @@&&[,Q`#` @@`(` [8#(&0cMC ` @@`@#` @ @@`(` #(`  93H`((,(J,@@7@A8;x''78R;;x''` @p`,2P ` @(` @(;NF`,2P p'p'(`,2P+p'p'k ` @@`@#` *p# 793P@((9;#` #9@=@(//#%7 ,p'9%.x** L0'L*9%=@@/0JH@@7@@#9%@=x'#@@'9%@6x'@' @@7@@# ` @@`@(` @ @@`+@9%. / p'` #(+'.%((` @@`#` 00Mz@ @`(` t@#(9%;#` #0WI` ( #.#(( @(@  (`  h .((  h   #  #x (h    ##x ` P(( p `,d(#UUd7+,`-KKJ,`,`0KKJ,` p`  7@x'@@'@@ (U$$;D1@@5== ` h !<`h HK;($ O= PB- jB wsa bsa <HPL@7 R7 @77@@@9=xJ@,@9F, (w(9,x@@7A8;`(78;`,ׄ778A ; ` }eMA`,2p7(<p,p,}@/`` @ @ ` p,} @p, ((@9 3.,(㈴((78=x@@(9==ۅ! ` @ @`@ H  ` @ @ `,,=CCb'%` @ p91`@#;7@@@93x@@@9FxJ@,@J ,CI< @@5= `h HAHK;(HG HF<`,2P+ppk` @@`` @@`` *p@7,(y,` @@`` @ @`` JXP@A.(p R`,~ P(@,~ @-7-`  7 !@@7@@9@6x@@9@=x@@9""M ;`,~9F`@70"K @@5#= `h HAHK;(HGE@ @((9 ( (9` @@6A@8D1` @@D68@x@` @ @@` ` @@`@` @ p`@@.))oF%(J(J(X@7 H`p`A@(_)NXP<`t  `,d(,`!>>J,`,`,J,`,`'kkJ@7x,`,`,J7 x,`p9D''/93x79Hx'mFF@9x@@@9Dx` @ p NN9D.(9x xK0K7 x9xx F0F7x@@4@.(pDD+'(97-7x@@`((9@@7A.('p(9DvV0 @7 Hx7 `""P9@@5+= ` h@4<@@@(" R= PL! L >>> Object , Field [VU?`@p@"'```)p"''`@'@`,2x ,HH@>p`@p@"'```)p"' ,`L,  `,2S(`,2P ((!V`,2( jNF@ `,2p7( `@ @@` z#` @ @` ,,` @ p@91`AD#;93x 9FxTT 6$ 0`,2P ( `,2Pp`@p@"'`(`N`)`p"''`!'Tx 7D@` @p`,2P ` @( G` @(`@@`  ( k`@6x( s@9Fx@@@@`,2Pbb^ {9-ppK`@p@"'``)p"'' `@@`@`@ @@` `@@`@` *p'b @>`@ 6,( ` @,( hH @pH6xL0L@ @( ( 9@tx@` @ @@` ` @@`@`:- P>9@F@( `,2P (!(!U`@p@"'```)p"''`@'@`,2x ,HH@>p`@p@"'``!D `)p "',`L,//(e!U(`@@D6 hH p6`/|!k@@51=(V{{A!qL>@/``@ @@`9@3@` @ @@` ` @@`@` :93H`p(!(!{FFV!((J@,@ @(!(!9@3x@` @@A8=x` @8Rx@@F#! @@5=(!q\\{!5/ `@@`@ `@p` X`@p2`@9=x 9;x \"$D<@9RxJ@,`@6`@x `,2(#h6`6:`,p `,2P+("O("_h6`6:` p,Έ`!%(#`@ @ ` ??a"h"z@ # @` @ @@`,,` @ p91`#;?n"EC@9D@9J3x,@@9Hx @@9x @@9Dx` @ pNN9D.("9x9x?0 `@??"!6@ ("`@@H6x@@ `,2PppK`,2("?n"S7`! (#7`@p@'``kp'(#;7`@p@'``kp' `@p` @p` @&&ut#Cp`  `,2P+ppk&#V@@5#=(!V,,((#\B@@ *@` @@` @@@` @p` @p@`@A@8R@9`@ @@`; `@@`@=9;=`,2 ,H@>(&܊` @p?kk%#A3?` @h &p `@ @`@`@,@`B`@pD@E'`(`N`k`pDE'J` ?@BJkPP#UI@,@`@A@8R@EPE ($.(#($.($pEE `@"@`@E Ev` "X"k"/9/=xE E9/;xE&P$4@@E9/R`@,A#;@@-/1$DK;@71xEE N0 NE`,2P($Q($`@ @@`1 `@,@`@E`@pJ@O'`(`N`kpJO'T` ?1ET,@`@@@822$R 1P1 @($@.($($@@.($p112x$LH@9/R@AhHE#K;E.($p11@($9/T`@,#;($9/R@hHE#;@9/T`@E#;@9/R`@,#;($9/TA`@,#D;9/R@hHE++5$#;E@@9/T@hHEAK#;E* +B%UO@ @(%(%X @@393R@hHEAK#;E/./(%4(%I93T@hHE#;E@@/@./(%Hp//93=@@ (%* @(%b"@*(%j9(=x/"/((3%j@@"(@@"&p ` @p`,2P (~~%|F8` @(%` @(#`,2Pp/p/K`,2Pp/p//`@p/@E'`/`)p/E'J`@@`/`@$@`1`~DD[%!@@`3`@ @`E`'3J/13E` @, p//D %??`@ 6,(%` @,(%hH @p/H6x11L0/L1`@@6 (&`@@H@6x/@/` @@@.(&,(&,` TT(&"&&@` @p(&B` @@@.(&5(&B(&B` @h@(&>(&B` @p@& (&H(&TD&HMG` @p/` @p1` &/1@@&5@95; 95;x/$/95Hx//-5777x//O0 @O/ @&(&B`,2P p//9(&`bbh&>0@p/@E'`)p/E'J`@J @`,2x/ ,H/@>p1`@p3@E'`)p3E'O`1!ObCC&`,2P (&(&۸(&(#` @@p/@/` @h`@@A8;x/*/C1&@@5Y=(#\ O,P mm&:2@7 7x@ ` !l`,2P!(' ('+` #W` @ @@` ` @@`@`t` &('27x @m^p'2 @@5"= `h HAHK;(&~~'>IE`,p`, p,`,@p// ('`,p,̠A`,@-,7x0@ 0@9 x1@ 1 @,Jނ@-,A@8j@@29@jx42@@49~99o'""@`9x5 @@596x6 @@698x7 @@793x8 @89@K'[K@9tx9@ 9@9Rx:@ :` @p ` @  c7 K@@7@@9x @@;'`)P;' @@;'`p@;'<<H(E` @@`` @@`;` @ @`@` '3E;@<C(!MKA@-@@7 xO0 O7` @p` @p` 79=x `,ނ@J@8,@@9@;x@@9@Rx@`11x(np,`,2P'pp)`,d((@@7@A!@@-!-1II[(,",`#>@>J9!x,`,`)kkJ@7-/p,`J!pI$$UJ(@@5J= `h4<`h HK;('>$ [P(# #( >>> Fields Rfixed }}<(H<`,2P+ppk` @@`` @ @`` [@93H`p() (),.,()()()}<<[)J,@()$,` @@`` @@ `<QQ)642@@4D1 ()L@@.A()L()H@7@x@@7@A86x 7Qb)j @@5&= `h HAHK;((QQ )v.*@7p 7Jx,@@7 x  `,2 ,HH@> pp,T'%`4%Q)D<`,2 ,H@>(*o`,2P()()`,2 ,HH@>p  4`,2 ,H@>()ڈ` [ (*>`,2P()()爰` =(*>`,2NN)%! ,HH@>(*:`,2P(*P()P(* P(*(*` 2(*$` (*$N[J* IA` ((*$` )k (*$h <7.,(*9(*,78.xO0 O(*>7.,(*Y(*F7 ,p78.xL227*V0L` @@`,2x ,HH@>p`!2d1*o @@5*= `h HAHK;()v,U,n,P*{L>`,2p`@ p@'ʱ`p '` 7`,2(+`@ @@` H˰`@ @` ,,`@ p@91`A#MM*.$D;93x  `,2P(*(*`,3P p@'`)p,T'N(*MZ*QC`@ p@'ͱ`)p'`@ @``@ @``@ @``*p@93x@@ @9tx@@ 0@@ @@7,,+F (+Q@7x `,2P p+(+,jjp+]C3`@ p@'α`p'` @@`,2x ,H@>p`@ p@'`p'$`!$(*j+@@5)=(*{BB+""@`@ (+(+@`@@@ 9 3`@ x @@ @9 t`@@ x @ B==+`@p `@ p   `@p  `@@p 9 F (+='+@@5=(+ p , ssg+C;@ `,2p7(,Z`@ @@` oϰ7`@ @` ,,`@ p@91`AD#;93x,s,/M?@9Fx@@@9H@?9Dx`,;(,G`,PpK0K@0@`@ p@'`(`Np '!p !,m'`@VVh,|7) @`,2x ,H@>p`@ p@!'`(`N`)p!'&p&,m' !`!!V~~T,F8`@p`,2P `@(,`@(+`@@` `,2Pp@'ѱ`)p,T '!K!(,`@ ~ZZd,4*p@'`)p'!p!,m'`@ @``@ @``@ @``*pZn--P<`+`,2P p+(-`@ p@'`p'!`@!@`,2x ,HH@>p`@ p@'ӱ`p '&`$$-} !&`,2(+`,2 ,H@>(+$+-@@5+=(+ v,n }- `,(-7-@@5=(-W-@0`@ @`AJK;`,2P(-(-`,Ѩ pU``,2P(-ˆ(-`-`l`,2P(-(-`-`+`,2P(-ވ(-`-//YP-`-p,`@@`,2x ,HH@>(-/- @@5 =`hK<(-\``Bi'6 /0   30>((21 (z__&5H[Qfk,?Z~R%+.pqql!JVd|nm 'o 0 < t 'sr X [ d i x ,;.FALS uE TRUE  .".6  @#g/PASCAL/CMP/CDS/DLB.REL:::5:116:128 644 0 0 72000 5300501614 35753 /PASCAL/CMP/CDS/DLB.REL:::5:116:128 ##$t ,tDLB REL +++t9FST ;;Xqē PSDLB 92833-16174,REV.5010,881021 881021.1629 /P1K/CMP/DLB.PAS;@Rq::X)u ē BOL 92833-16174,REV.5010,881021 881021.1629 /P1K/CMP/DLB.PAS: pBOL )).EXIT0.SDSP BOILABELEMITCHARPAS.1 PAS.2 PAS.CDS )g0  :@@(  @B0>>XA0ē DBEMITCHECK 92833-16174,REV.5010,881021 881021.1629 /P1K/CMP/DLB.PAS>)DBEMITCHECK 00 |.EXIT0 .SDSP BOL EMITCHAREOI ERROR PAS.1 PAS.2 PAS.CDS 0FF( ` ((` hHP@A@((` A@P($P @ ((0F(@@ p ( \ @jx8<<Xjē DBEMITCHAR92833-16174,REV.5010,881021 881021.1629/P1K/CMP/DLB.PAS<: DBEMITCHAR++{.EXIT0.SDSP DBEMITCHECK EMITCHARPAS.1 PAS.2 PAS.CDS + 0 @@p (  @ax==X fē DBEMITNUM 92833-16174,REV.5010,881021 881021.1629 /P1K/CMP/DLB.PAS=P DBEMITNUM **.EXIT0.SDSP DBEMITCHECK EMNUM PAS.1 PAS.2 PAS.CDS * 0 @@p (  @~==X7ē DBEMITNUMCOM92833-16174,REV.5010,881021 881021.1629/P1K/CMP/DLB.PAS=T DBEMITNUMCOM11A.EXIT0.SDSP DBEMITCHARDBEMITCHECK EMNUM PAS.1 PAS.2 PAS.CDS 1S4 0@  @@p ( , @ )>>XHē DBEMITLABEL 92833-16174,REV.5010,881021 881021.1629 /P1K/CMP/DLB.PAS> DBEMITLABEL **.EXIT0.SDSP DBEMITCHECK EMLAB PAS.1 PAS.2 PAS.CDS * 0 @@p (  @n.??XJē DBEMITSYMBOLICLA92833-16174,REV.5010,881021 881021.1629/P1K/CMP/DLB.PAS?: DBEMITSYMBOLICLA22 <.DLD.DST.EXIT0 .SDSP DBEMITCHECK EMSYL PAS.1 PAS.2 PAS.CDS 2O @P  J& @@  p  (  @Ķ>>X ~ē SYMB_INFO_WORD92833-16174,REV.5010,881021 881021.1629/P1K/CMP/DLB.PAS>IuSYMB_INFO_WORD // j.DLD.DST.EXIT0.LPXR .SDSP ERROR PAS.1 PAS.2 PAS.CDS /~~=;@@ ` p p 'P(P(P((($` 0 p ($p ($p @` (B-p` N0@Np  .p` L~dd=,,0Lp (H` ?p ` 0p ` p ` ?p ` p ` (q@ @@  (a(q` ?p` 0p dwi @  ([` p Ys `  @@ ( "@m@@X ē DEBUG_CALL_MECH 92833-16174,REV.5010,881021 881021.1629 /P1K/CMP/DLB.PAS@LDEBUG_CALL_MECH m LL -m.DLD.DST.EXIT0.LPXR .SDSP PAS.1 PAS.2 PAS.BITMASK1PAS.CDS PAS.INLINEERROR PAS.SETCLEAR PAS.SETINIT L~~\F@@p  ((@ (`( .(   `@@x ' ,H@ (J`P(DP(D(Gp ~RRF(I`p (`P(PP@(P(q  .P(_P(bP(eP(h(k`p (pp (pRffe,(p (p p (phI@(  .P(P(P(P((`p (`p (`p (`p (hPfk ` @@ `p (T  ;@0dO$??Xߕ6ē CREATE_INFO_FIEL92833-16174,REV.5010,881021 881021.1629/P1K/CMP/DLB.PAS?G+CREATE_INFO_FIEL>> m.DLD.DST .EXIT0 .SDSP EMITCHAREMLAB EMNUM PAS.1 PAS.2 PAS.CDS SYMB_INFO_WORD>@@*p ` P((` p p (P p @ p P p @#* @@   p (<-*,>@;??X?fē oEMIT_SYMBOLS_FOR92833-16174,REV.5010,881021 881021.1629/P1K/CMP/DLB.PAS?| EMIT_SYMBOLS_FORMyyI.CACQ .CFER !.DAD".DCO.DIV.DLD.DST#.EXIT0$.LBP%.LBPR &.LBT.LDX'.LPX(.LPXR .MPY).MW00 *.MW20 +.SBT,.SDSP BOL DBEMITCHARDBEMITCHECK DBEMITLABEL DBEMITNUM y{{ DBEMITNUMCOM DBEMITSYMBOLICLADEBUG_CALL_MECH EMITEMNEW EMPRL EOI ERROR EXIDFLUSH_CODE_BUFFEFULL_SIZE GETBOUNDS NUMDIGITS PAS.1 PAS.2 -PAS.BITEXTRACT2 .PAS.BITMASK1PAS.CDS {33"/PAS.INLINEERROR 0PAS.NEW2S PUTLABELSTRING_LITERAL_LSYMB_INFO_WORDTEXTFILE3Z @@    ? @@#, (` @@    ?" @@#, (Ў,99@( P(3(@ "(:(=(=`p (?`p (~@J "(G(J(J@p (~ J"(Q(T(T`p (~@J "([(^(^`@p (~ J"(e(h(h@@e`p (~ "(o(r(r`p (~ "(y(|(|`p (~` p @lP~ ` #,@@ `@p (,~~895@@@(P(P(P(P( P(;P(5P(8P ( (e`p (g(@ @`P(ĨP(P(쨨P(P((~--|`p `@ @@` `@ @`@@-+77@A "((( "(((p (`p (`p (`p (`p (` p (g@(P(P((`p ( `p ( ` p (g`p (g(nnٱ31 '(`p (4(@ @`P(,P(/(2`p (4`p (4`p (g`p (g`#p (g`@pnLL+B%#`@ @( (P(F`@p@@`@p`ip (g` p Lmg ` #,@@`@p (qq;Lt33`@p `@P(}(h 6 +(`@ Ach 6 +`@P(P(P(N(i`@~hHh D6+  qRB@@(  'P((( /(`@P(((@ J"(((( @@@PHh 6&h !xh 6H+(n`@P(P ``NR$$(P(DP( P(P(P(P(!P(&P(+P(0P(5P(:P#(?(Ih 6`+(Mh H6+(M`Պ ;;h 6`+ (Mh 6`H+(Mh 6`+(Mh H6`+(Mh 6`+ (Mh 6`H+(Mh 6`+(Mh H6`+(Mh 6`+ (Mh 6`H+(Mh 6`+(Mh @6`+ppH31(Mh 6H+(n`@P!(T(Yh 6`+(h`@P"(_(dh H6`+(hh 6+(nhLHh 6&ph 6 &@@hHpC{ @@#, (tMMZ&$`@(`pp `@@6@ HH&p8 8(`@  (@@ M ԇ@@#@,`h*@@ ((( 5P y:SY: 2EA@`@@@( /@(0( !((`@ h2(!h ``@p@@`@p (/@(!LL,(h ``@p@@@(!(#x`@pLn/DB((%P(7(A@%!A@''H$P(D(%!''`@ @``@ @``@ @``@ @ `` (u`@ ??As!h2h @ `@`@p`@p (? `@( @@#,(95)p `1p ` @P(P(P(n(@@@( 'P(ʨP(P(8P(@P(@(h`(m(#+(`5p `99?9& @'@ ((!@@*((@@`  9KE(7`M(@(`(@`2p ( !h @`@@(!(x(m`(? (m@(+ !h@ `**M(!@@@(-x*~~ gD8(mh(`M(s`4p `@'` @P ((` @ @A'/x((-x(`( ( h`(` ~88H(`pp `@@6@ HH&p8 8(  18""h@@#!,`h@0*@p(" 7P ܊:LSH:4+ SS*"`@ `@h2`耈pp `@@6H@ H&p8 8(` (S;@@#$,`h@3*@ ( 7P T LOADREC 0,0,161201B,0,1,E"75`@p `@ (.`@P p O0O ? `@p  `@(M   (x  p p LBBY0L ( 4p`A@(m 0 (x@( 4 x H0H BJ0x @@#, ("G<:`@p 0 hH`@$@ H6`#+`@p `@p @(p ` p ` AdAd@ p `@p ` @ hH$6p@ HH+` JJ dp @ p 8 (`@p ` @ hH$6 +`@$@6`@@H` +J9 @@# ,`h*( 8P   0123456789 FF@p  @@( '@P( ( 'P( (V(/P((V@(6 .(V@(+ ($(Vp (@+@@(8  (Oxp <<o9@ p: hH$6p@ H`H+8 8(8@(8`@<wV ` #,@@ `p (ttc75p ` (s`@$@6` @H` +` @ (`@$@6@ HH&hH 6H+`@$@ 6` @H&hH K6 + ` @p (st@@#,p (cMM&"1`@ @@@(%P(P(訨P(P((t(@J"(((;(M3UG@("(҈(("((%!''x(yA@%!A@''@` (y<%!'' ` (yA@%!A@''H$P(('_(!P(D(oA=%@A!''@A''x (kk3F0    (s%!'''' `P(WP(\(e (j (j h (s>(yhky@@#,(@@` @P(` @P ((` ( ` X (@~~E;A@A!A'?h H(A@hH<) ` @$@`@p` | `  ` @h H ` (`  (` (᱀C(~DD]# 1` @p` @P(` @p` ` y D++ۧ` @p` @P((`z+ @@#, p (##" ` @h ` @ p`  #ă0 @@#,p p (" s:  B   D  M@@#,(:))2S@@  @( A@AhHD<` u` {` `@ @  (`(@@@(?`@`@@"p%@@`2(@T@(Z` //;(`@h `@"hHp`2/\B @@#,( ~i`@hVV|.*`@ @`@"A@'V@ `@ p(p `p  `@ ( Q @ p 8 (V@@#,(MM6.(@ @(( @@ ( '`` @h ` W ( T@@`M]w @@#, (~~f=5`@ `@ @`@"@ `@ (*`(1` 1( Ox ` `@P(!P(\P(fP(\P(\~ppM3-P(pP(P(P(˨P(P(cP#((.`@"p ` (.`@"p ` , (.(@ @` hH p~~~B8@( 'Ox `  `@"p ` `@ (`@h`@"p @(    `2(.`@"p ` `@ (~RRF1' `2(.( V@A!%A''x ` p  `ӄ(.( @@`ihHRtIA`@y@`@x  ,H H@.($( @@` hH (@ A'Ox ` (+`@p @ (  M/p  X! ''99<x  @( 8x  `@ (b`@"p (@ @ 9yZSA `2(.( X@@`#@( 8x  Z! ''x  @  ( `(.`@"p  ("(@( `@@"ihH`@y@`@x ,H @.(`@ (@J@@( ` h@H (  'Ox ` (`@p  ( M/p @ ( X` `@ ( `@"p ( 00|d@@  `2(. ! ''x  (. 01@@#,(r7?=@( A@AhH`@h`@ (`@"p@( ` (V`  `@y@`@x ,H@.(F1@@ @(`@eeO)'P(9P(P(P(P(P("P(bP(bP(P(P(P (pP#((F(@@ ` (FeݎJB@( ` , (F@(  ` h@H ( 'Ox` (@@ ` `@ (a`@h`@@"p( ;;i^"(F@( ` (F@( `i hH;B<`@ (`@y@`@x ,H@.hH `@ (`@p((@@ ` hH (Ox` KK.(@( `# (#.@p( &@p(\@@ `# K~_JD@(# .p(+p`@ (`@@"p(@(F( ` (-`@@"p((Ox` (F33l: !''x(F `@" (Q(V`23d&V @@#, (7ړ`@@@ @(f( @@  @@( /@((! (((@!J"(((('P(P(P(P(P(P(P(P((<< ((@A'((@A' P@((("(((<RKA`W (`W@ ((4(Ո(`@h `W `@h (h(O@@ @ (j ('@@`@(Tj @`g  @@#, (`[P`@ `@ AA%"`@ J (/(2p (5`@p ` 1  AG@@#,(mmуMA=@ @(S( @@  @@( (d((@@` (`@ `@p (@@`ihHmKG`@ (`@y@`@x ,H@.(`@"p(@@`2(@O@@  (W (@'@`@(T`  h @@#, (M&&F `@h`@h `@ &n `  [@@#,(d>8`P( P(1P(7P(>(p `P(0`e@J@' ((0A`e@'q`q(`H(` . (`@22BAp `Je@!@ o@(P(l(@^ (Y(l2BYHB ` ppJ(^q`Wqp` p`e@J@'@q`@q(oX  ((( Tx`(`@% @@ (`,,@(`p` . (h `,] @@#,`ahb`*p(ttd WW  , *!-$%&" Q Eyt E^^hEE@'^ Kc  @7HV((/PASCAL/CMP/CDS/ELB.REL:::5:121:128 644 0 0 74400 5300501615 35335 /PASCAL/CMP/CDS/ELB.REL:::5:121:128 ##$y -dyELB REL +++y<&HFST ;;X#V/PSELB 92833-16175,REV.5000,870621 870622.0106 /P1K/CMP/ELB.PAS;@#==XMV0BLISTCODE 92833-16175,REV.5000,870621 870622.0106 /P1K/CMP/ELB.PAS=VBLISTCODE ..\.EXIT0.SDSP PAS.1 PAS.2 PAS.CDS PAS.WRITECHAR WRITE_OCTAL .88s`Q(p``M(`rP(( ( 8J@@(   @u::XmV0BOI 92833-16175,REV.5000,870621 870622.0106 /P1K/CMP/ELB.PAS: mBOI ,,.EXIT0.SDSP BLISTCODE EMLBF PAS.1 PAS.2 PAS.CDS SP,--Q p`K( `(@p(0-J@@(@=;;X=#V1BOILABEL92833-16175,REV.5000,870621 870622.0106/P1K/CMP/ELB.PAS; BOILABEL 99 .EXIT0 .SDSP BLISTCODE BOI EMOPC EMPRL EOI PAS.1 PAS.2 PAS.CDS SP933C; p `  Q( p@`P` K(03X@@  (  @E>>XV1BREAK_CHECK 92833-16175,REV.5000,870621 870622.0106 /P1K/CMP/ELB.PAS>(BREAK_CHECK 00 F.DCO.DLD.DSB.EXIT0 .SDSP BREAK_OUT PAS.1 PAS.2 PAS.CDS 0!!yn `M(((0!E@@ ( 'd @k==XfV2BREAK_OUT 92833-16175,REV.5000,870621 870622.0106 /P1K/CMP/ELB.PAS=XBREAK_OUT **I.DLD.DST.EXIT0.SDSP EMNEW PAS.1 PAS.2 PAS.CDS *)) `ppJ@J p`p)F@@(  @#<<X{ V3BUMP_COUNT92833-16175,REV.5000,870621 870622.0106/P1K/CMP/ELB.PAS<oBUMP_COUNT%%S.DAD.DST.EXIT0.SDSP PAS.1 PAS.2 PAS.CDS %99ח`M(`rP((h  (h  JJ9@@p (@ !+>>X G V3 CALLRUNTIME 92833-16175,REV.5000,870621 870622.0106 /P1K/CMP/ELB.PAS>/CALLRUNTIME bUUP.DAD.DST.EXIT0.LPXR .MPY.SDSP EMIT EMITCHAREMNEW EMNUM EMPRL EMRUN EOI ERROR PAS.1 PAS.2 PAS.CDS U%?7`  @J@ 3 ` M(, *p ` P(P(P(!P(&('(+(+(+@(C  -P(9P(9P(>(?(C(COOH?)P ` M(` P(~` P(~  p p ` P(hP(m(rOPPYh5#(v (v( -(@ @  (p ` @Pځ@@p (1 ,02@!@s99XV4 EMIT92833-16175,REV.5000,870621 870622.0106/P1K/CMP/ELB.PAS9 q)EMIT 00 .EXIT0 .SDSP BOI BUMP_COUNTEMOPC PAS.1 PAS.2 PAS.CDS SP0$$= `Q(0P @`@ p  $@@ p ( ] @L" <<X_D7V5 EMITASC 92833-16175,REV.5000,870621 870622.0106 /P1K/CMP/ELB.PAS< 0EMITASC  QQ.DIV .EXIT0.SDSP BOI BUMP_COUNT EMITCHAR EMNUM EMOPC EMSTR EOI PAS.1 PAS.2 PAS.CDS PAS.SINGLEMOD SPQEE/` Q(/ p ` A@ p @P p `0 E/@@ p ( ,  @j ;;X&V5 EMBSS 92833-16175,REV.5000,870621 870622.0106 /P1K/CMP/ELB.PAS; IEMBSS  &&.EXIT0.SDSP BOI EMBSO PAS.1 PAS.2 PAS.CDS &  0 @@p (@&;;X"V6 EMBSO 92833-16175,REV.5000,870621 870622.0106 /P1K/CMP/ELB.PAS; IEMBSO  11 '.EXIT0 .SDSP BUMP_COUNTEMNUM EMOPC PAS.1 PAS.2 PAS.CDS SP1l `Q(@0P  @@ p (  @fZ;;X%V6 EMCSE 92833-16175,REV.5000,870621 870622.0106 /P1K/CMP/ELB.PAS; H EMCSE 88 P .EXIT0 .SDSP CALLRUNTIME EMDLT EMSKE EMSKL EOI PAS.1 PAS.2 PAS.CDS 8--@@0P`0 -X@@  (} r@`];;X>'V7 EMITCHAR92833-16175,REV.5000,870621 870622.0106/P1K/CMP/ELB.PAS; EMITCHAR !!I.EXIT0.SBT.SDSP PAS.1 PAS.2 PAS.CDS !$$/ `Q( ` ph6 @H` @$ @@p (  @I! ;;X( V7 EMCLT 92833-16175,REV.5000,870621 870622.0106 /P1K/CMP/ELB.PAS; BEMCLT  ""@\.EXIT0.SDSP EMDLT PAS.1 PAS.2 PAS.CDS "   @@p (@yX;;X(V8EMCSS 92833-16175,REV.5000,870621 870622.0106 /P1K/CMP/ELB.PAS; IEMCSS ' XX3 .DAD.DST .EXIT0 .LBT .SBT.SDSP EMDEC EMITEMITASC EMPRL EOI PAS.1 PAS.2 PAS.BOUNDINTEGERPAS.CDS PAS.SINGLEMOD X֒G=p p ` (pP@` A@ (p p ` A@ (j` (jh6@ HK  (R (RP&(RP'(RP/(RP:(RP<(RJJLGP=(RP>(RP[(RP\(RP](R(Up (i` p h6H@ H h6p@ @H` J fFD` p (` ( P(v(h6@ H @` P (h6` @HH h  ` @p (@ p h6@ H h@ h6@ ::@@H @@@ ` p ` ((0  `` @ @p :@ (` (Ћ(0 ` @ p (ڽ@@ p (  7@;;XV9EMDEC 92833-16175,REV.5000,870621 870622.0106 /P1K/CMP/ELB.PAS; ; EMDEC  **UH.EXIT0.SDSP BOI EMDEO EOI PAS.1 PAS.2 PAS.CDS *l  @ 0 @@p (@Ҟ;;X)V:EMDLT 92833-16175,REV.5000,870621 870622.0106 /P1K/CMP/ELB.PAS; BEMDLT  ((V.EXIT0.SDSP EMITCHAREMNUM PAS.1 PAS.2 PAS.CDS (>i `Q(00  @@p ( D=D @>X3V EMITINTEGER 92833-16175,REV.5000,870621 870622.0106 /P1K/CMP/ELB.PAS>%*EMITINTEGER 77 O.DLD.DST.EXIT0.LBT .SBT .SDSP PAS.1 PAS.2 PAS.CDS PAS.DOUBLE2ASCII7VVD6)'`Q()@ p `p ` (('` p `@ @6@ HHh6p@ H`@ @ p ( ` pV?) @@  (   @ê<<XhV EMITJSB 92833-16175,REV.5000,870621 870622.0106 /P1K/CMP/ELB.PAS< EMITJSB ` LLF.DLD.DST .EXIT0.LPXR .SDSP EMIT EMITCHAREMNEW EMNUM EMOPR EMPRL EOI PAS.1 PAS.2 PAS.CDS L?JD` M(( @`P"(($ p p p @p (R.p 'Pp  .p ` (P33:J ,(Qp ` M( p `  (j3XXB{e:$ (n ` 0 ({(@(` (`  (@`pP @(@X @@ p(( ",201@~P;;X 2V EMLAB 92833-16175,REV.5000,870621 870622.0106 /P1K/CMP/ELB.PAS; 7+EMLAB  ((V.EXIT0.SDSP EMITCHAREMNUM PAS.1 PAS.2 PAS.CDS (BB@t*` p ` (000`M("` ("00(*0  B*@@p (iPasQ.@/t;;X$V EMLBF 92833-16175,REV.5000,870621 870622.0106 /P1K/CMP/ELB.PAS; 8 EMLBF  %%.EXIT0.SDSP EMSYL PAS.1 PAS.2 PAS.CDS SP%Z 0  @@p (  @r.;;X-V EMLBO 92833-16175,REV.5000,870621 870622.0106 /P1K/CMP/ELB.PAS; 9EMLBO  88 y.DLD.DST .EXIT0 .SDSP EMITCHAREMITINTEGER EMLAB PAS.1 PAS.2 PAS.CDS 8 @P  ( `@  @@  p  ( + @w7;;X2V EMLLT 92833-16175,REV.5000,870621 870622.0106 /P1K/CMP/ELB.PAS; BEMLLT  ((I.EXIT0.SDSP EMITCHAREMLAB PAS.1 PAS.2 PAS.CDS (>i `Q(00  @@p ( L=L @!T@>>X6+V EMITLINENUMBER92833-16175,REV.5000,870621 870622.0106/P1K/CMP/ELB.PAS>EMITLINENUMBER>> ?.EXIT0.LDX .MW20 .SDSP BOILABELEMNUM EOI PAS.1 PAS.2 PAS.BLANKFILL PAS.CDS >&&O 0`pP@&y @@ `h (7mP P[\ * --------------- Line #@^;;X#T V !EMLTD 92833-16175,REV.5000,870621 870622.0106 /P1K/CMP/ELB.PAS; KEMLTD [ TT .DCO.DLD.DST .EXIT0.LPXR .SDSP CHECK EMITEMNUM EOI ERROR FULL_SIZE PAS.1 PAS.2 PAS.BITMASK1PAS.CDS TiSC@  ,H H@(Ip  (($($@`xP@(H  ` xP@` xP( P(P(@ (( SP(W(r@p `(VVzFh<,@xP(@(p `P@`P( V@ @@  (   @tc;;X3,V !EMMBT 92833-16175,REV.5000,870621 870622.0106 /P1K/CMP/ELB.PAS; 8#EMMBT  ?? 5.DLD.DST .EXIT0 .SDSP CALLRUNTIME EMDEF EMITEMOPR EOI PAS.1 PAS.2 PAS.CDS ?22f"` M( ` P@("@ p P2?}" @@   ( d ,-& @Zy;;X6,V !EMMVW 92833-16175,REV.5000,870621 870622.0106 /P1K/CMP/ELB.PAS; L#EMMVW  ?? 5.DLD.DST .EXIT0 .SDSP CALLRUNTIME EMDEF EMITEMOPR EOI PAS.1 PAS.2 PAS.CDS ?22f"` M( ` P@("@ p P2?}" @@   ( h /.& @a;;X-(V "EMNAM 92833-16175,REV.5000,870621 870622.0106 /P1K/CMP/ELB.PAS; 7!EMNAM  %%C.EXIT0.LBT.SBT.SDSP PAS.1 PAS.2 PAS.CDS %JJm `Q( ` (p p h6@ HHh6p `@ @H` 8 8 ( `@ pJ @@p (@ ;;X8wV )EMNEW 92833-16175,REV.5000,870621 870622.0106 /P1K/CMP/ELB.PAS; ͇EMNEW  CC 46 .EXIT0 .LBT.LDX.MPY .MW20 .SDSP BOI BUMP_COUNTEMITCHAREOI PAS.1 PAS.2 PAS.CDS Cw>8` (P`  hHHH  ((x p ` @ hHH6@ H p p 8 8 (`  hHHH(5`` Q(D`  hHH$>Hx @ "D@@  p (GGL`  p `@p ` @ @ 0 M(~` P(b` P(b(s` P rp G00\g` p r` (r`E(up ` (~`E 0l~ @@ f `h p (L PQ Qmm?QQALLOC EMA, BREAK CDS ON DDEF LABEL PCAL MSEG RELOC CODE RELOC DATA m@)H{;;X-V )EMNUM 92833-16175,REV.5000,870621 870622.0106 /P1K/CMP/ELB.PAS; K EMNUM  )).DST.EXIT0.SDSP EMITINTEGER PAS.1 PAS.2 PAS.CDS )D h  @ 0  @@p (@ٹ;;X$EV -EMOPC 92833-16175,REV.5000,870621 870622.0106 /P1K/CMP/ELB.PAS; F>EMOPC  .. WL.EXIT0.LBT.LDX.MB00 .SBT .SDSP PAS.1 PAS.2 PAS.CDS .::`Q(=` @6hH 6`@ H@6h6p `@H` `@ @6 h6p `@@HH` ` @ @6HHh6p `@@H` :`@p=@@ p (? @Nmy;;X4WV 6EMOPR 92833-16175,REV.5000,870621 870622.0106 /P1K/CMP/ELB.PAS; FEMOPR z ff.DAD.DLD.DST.EXIT0.LDX.LPX.LPXR .MW20 .SDSP CHCKB EMDLT EMIND EMPFN EMREG EMSYL ERROR PAS.1 PAS.2 PAS.BITMASK1PAS.CDS fGC@ P((@ @@  P(@ P((P@ P(\P!(+P"(8P;(R( x  (@   x @ XX G5/@@` ( x p (`@@x  @A ' ,H @p(X֑|  (n@@`h@@ (j   Z @Dci;;X-V 6EMOPL 92833-16175,REV.5000,870621 870622.0106 /P1K/CMP/ELB.PAS; GEMOPL  33 e.EXIT0 .SDSP BOI BUMP_COUNTEMITCHAREMOPC PAS.1 PAS.2 PAS.CDS 3  ` ( 0 (P@  @@ p p ( , @;;X1OV ;EMPFN 9283((3-16175,REV.5000,870621 870622.0106 /P1K/CMP/ELB.PAS; <EMPFN | OOd.DLD.DST .EXIT0 .LBP.LDX .LPX.LPXR .MB00 .SDSP EMIND EMLAB EMLBO EMNAM PAS.1 PAS.2 PAS.CDS ONH@   'P((+@  @6Ah6D @A x p ( .P(4(O` x  !h  P 77y$N( ,(^ P(^(y@  @6Ah6@7))_^k@  x p (@ x  )? @@  (""  " "@-;;X.#V ;EMPRL 92833-16175,REV.5000,870621 870622.0106 /P1K/CMP/ELB.PAS; HEMPRL  ((V.EXIT0.SDSP EMITCHAREMNUM PAS.1 PAS.2 PAS.CDS (00`Q(0` ( (0  (` (  0@@p ( *+ @أ;;X+ V >EMREG 92833-16175,REV.5000,870621 870622.0106 /P1K/CMP/ELB.PAS; ;EMREG  !!I.EXIT0.SBT.SDSP PAS.1 PAS.2 PAS.CDS !AA `Q(h 6`@H`@ H h6`@@H`.J`@pA@@p (5@S:;;X3 AV BEMRUN 92833-16175,REV.5000,870621 870622.0106 /P1K/CMP/ELB.PAS; K:EMRUN  >> .DAD.DST.EXIT0 .LPXR .MPY .SDSP EMITCHARPAS.1 PAS.2 PAS.BITEXTRACT2 PAS.CDS >jjE!95`  @J@3 p p ` (3`A@ (3@ p p ` P p ` (/@ ` p (   0j9@@ p (  @R;;X*V BEMSKE 92833-16175,REV.5000,870621 870622.0106 /P1K/CMP/ELB.PAS; BEMSKE  00 .EXIT0 .SDSP BOI BUMP_COUNTEMSKO PAS.1 PAS.2 PAS.CDS SP0 `Q(0 P @  @@ p p (  @s;;X5 ZV GEMSKO 92833-16175,REV.5000,870621 870622.0106 /P1K/CMP/ELB.PAS; BQEMSKO  .. WL.EXIT0.LBT.LDX.MB00 .SBT .SDSP PAS.1 PAS.2 PAS.CDS .'99`@ p ` @6hH6AH`@@6p ` P ((` p h 6`@HH` `@@6 Hp ` P (.(0` p h6`@@H` `??59 @@6HHp ` P (C(E` p h6`@@H` `@p?@P @@ p p ( 5@~>;;X1#V GEMSKL 92833-16175,REV.5000,870621 870622.0106 /P1K/CMP/ELB.PAS; CEMSKL  33 u.EXIT0 .SDSP BOI BUMP_COUNTEMITCHAREMSKO PAS.1 PAS.2 PAS.CDS 3((m`Q(` (0 (P@ ( @@  p p p ( , @* ;;X7(V HEMSTR 92833-16175,REV.5000,870621 870622.0106 /P1K/CMP/ELB.PAS; J!EMSTR  %%C.EXIT0.LBT.SBT.SDSP PAS.1 PAS.2 PAS.CDS %JJm `Q( ` (p p h6@ HHh6p `@ @H` 8 8 ( `@ pJ @@p (7@~>;;X2?V HEMSYL 92833-16175,REV.5000,870621 870622.0106 /P1K/CMP/ELB.PAS; Q0EMSYL  44 .DLD.DST .EXIT0 .SDSP EMLAB EMLBO EMSYP PAS.1 PAS.2 PAS.CDS 4RR[/)@ ((` (` p ` p P (p ` p ` (/ (%(+@ (/` RJU/@@   p (@i.);;X6V OEMSYP 92833-16175,REV.5000,870621 870622.0106 /P1K/CMP/ELB.PAS; PEMSYP n UU1 .DAD.DLD.DST .EXIT0 .LBT.LDX.LPX.LPXR .MW00 .SDSP EMITCHAREXENT EXIDNUMDIGITS PAS.1 PAS.2 PAS.CDS UGC`p ` ( p (`p`@p @@ '@P() 'P()(?@ (2(?@ p (l'P(H??`RG%!(U@@p (lA@ Ap @hH p ?KKl%#` @ p`A@({` @p ` (pp h 6@ HH pP8 8(K @@ p(   @::XDV PEOI 92833-16175,REV.5000,870621 870622.0106 /P1K/CMP/ELB.PAS: p?EOI ``q .DAD.DST .EXIT0 .LBPR .LDX .LPXR .MB00 .MPY.SDSP FLUSH_CODE_BUFFEPAS.1 PAS.2 PAS.CDS PAS.WRITECHAR PAS.WRITESTRING WRITELINE `yy:>6`Q(>`((>`/@(P ((`/p/ A@/@ 0  ` 6`6 `K(<``` py|>@@ (pP )@ \88XWV QSP92833-16175,REV.5000,870621 870622.0106/P1K/CMP/ELB.PAS8 5 SP !!I.EXIT0.SBT.SDSP PAS.1 PAS.2 PAS.CDS !{ `ph6@H` : @@(  @e %>>X.8V SEXPORT_CHAR 92833-16175,REV.5000,870621 870622.0106 /P1K/CMP/ELB.PAS>+1EXPORT_CHAR 00 p.EXIT0 .SDSP BOI EMITCHAREMNUM EOI PAS.1 PAS.2 PAS.CDS 0``0&`p`(` p(0`@ pP`A@()P0 p@` p`0@@ p ( K,\ @ ??XV TEND_EXPORT_RECOR92833-16175,REV.5000,870621 870622.0106/P1K/CMP/ELB.PAS?HEND_EXPORT_RECOR))Ҿ.EXIT0.SDSP EOI EXPORT_CHAR PAS.1 PAS.2 PAS.CDS )++Fx`((`( p p0+F@@(  @=e\%??XFV ZBEGIN_EXPORT_REC92833-16175,REV.5000,870621 870622.0106/P1K/CMP/ELB.PAS?G /BEGIN_EXPORT_RECGG g.EXIT0 .LBT.LDX .MB00 .MW20 .SBT .SDSP BOI EMITCHAREND_EXPORT_RECORPAS.1 PAS.2 PAS.CDS G^^l.(0@`@ @6`@ 6 `@ @6H`0@  `pp `@ @6@ H pP8 8(`p^k. @@+ `h p ( P ; to; LOADREC 0,0,16130_B,0 @==X5V \EXPORT_ID 92833-16175,REV.5000,870621 870622.0106 /P1K/CMP/ELB.PAS=m,EXPORT_ID KK'R .DAD.DLD.DST .EXIT0 .LBT.LDX .LPX .LPXR .MW00 .SDSP EXIDEXPORT_CHAR PAS.1 PAS.2 PAS.CDS KLL+'@ @AhH K` A@ A (+pp h6@ HH pP8 8(L?+ @@  (p@Q>>X0V ]EXPORT_ROOM 92833-16175,REV.5000,870621 870622.0106 /P1K/CMP/ELB.PAS>IEXPORT_ROOM ''%.EXIT0.SDSP BEGIN_EXPORT_RECPAS.1 PAS.2 PAS.CDS '9 `@ A@(   @@p p (@<[>>XLq2V ^EXPORT_INTEGER92833-16175,REV.5000,870621 870622.0106/P1K/CMP/ELB.PAS>%EXPORT_INTEGERCC .DLD.DST .EXIT0 .LBT .SDSP EXPORT_CHAR EXPORT_ROOM PAS.1 PAS.2 PAS.CDS PAS.DOUBLE2ASCIICBB0$`p ` (@ ` (($` @@6H@ H pP@ p (BlB$@@   p p (  @??X V `EMIT_MODULE_RECO92833-16175,REV.5000,870621 870622.0106/P1K/CMP/ELB.PAS?PzEMIT_MODULE_RECOmm .DAD.DLD.DST .EXIT0.LBT.LPXR .SDSP BEGIN_EXPORT_RECEND_EXPORT_RECOR EXENT EXPORT_CHAR EXPORT((_ID EXPORT_INTEGER PAS.1 PAS.2 PAS.BITEXTRACT2 PAS.CDS mGTB` P @  (,pp h 6@ Hp8 8(`pp A@ @@ pp8 8(4 55JT" @@ @  .h@ @ 5 vp }y @@ p  (  & @Ӻz442 34277 026313 JMP COM01 NO NEW DATA " 06443 34300 006002 SZB DATA, BUT WAS THERE A CR ? " 06444 34301 026320 JMP CERR NO/PASCAL/CMP/CDS/ERW.REL:::5:41:128 644 0 0 24400 5300501617 35165 /PASCAL/CMP/CDS/ERW.REL:::5:41:128 ""$) -)ERW REL +++) HFST ;;XP$VPSERW 92833-16176,REV.5000,870621 870621.2320 /P1K/CMP/ERW.PAS;@1dP$==X*V EVAL_READ 92833-16176,REV.5000,870621 870621.2320 /P1K/CMP/ERW.PAS=QEVAL_READ }}3,.DCO-.DIN.DLD.DST..EXIT0/.LBPR .LDX0.LPX1.LPXR 2.MW00 3.SDSP )APPEND_STRING (CALLRUNTIME 'CHECKABLE_SCALAR&CHECKBOUNDS %CONVERT_SUBRANGE$COPY_TREE #DO_ASSIGN !EMDEF EMDI1 "EMIT}vgEMLAB ENUM_TYPE EOI ERROR EVADEVAD2IND2 EVADDRESSES EVAD_APPROPRIATEEVAD_STRING_PARMFULL_SIZE INITIALIZE_STRININTEGER_TREE_VALINT_CONST INT_TYPEIS_CHAR IS_STRING LOAD NUM_ELEMENTSTT KTNWTPN PAC +PAS.1 *PAS.2 PAS.CDS PROTECT_TEMP RELEASE_NODE REMAPPERSETUPOPERANDS STRING_INDEX_CHETEXTFILEUNPROTECT_TEMPTRH20@.,,@@&1&/& *p `p ` (C@&/&x4 4`@"@ `5@@&5/&x4*41.@A0P(N(q `@$@`R @5@" 5*$ $pfUE@ */*@@*(` (@@*@@/@@(/(@@*@+`@@` 5 5(p& 0&"p+?"`+?p @* (%%H (`@$@ `5@@"51*%@J@p   `p 1*P(1*P(*( ` (&( p@` ( `@ @ `5@5(p*` ()` 0 ($++a@@1  5P5p(-` (4$+qZ4N:` 0 (߰0(eA`, (G(V(Vp ` (Q(U(d`p ` (`(d((x` (s(w(` (` (--6]((ް(p ` ((-~~eTK9(,+(((` (((,+(((ŀ` ((((p ` (((ޱ(` ((~11  $` (  + ` (` (1;T@ +` 0 (v(-@5 5@1 /h@ 5 5(v(v`@@` 5P5  !1"x4 4 1$ ..CX@5 5@1&0@AhH7(K2@7-@5 5.vWA`(` @(1  5P*5*( 0*`+U(`(p( `$ @@/*@*(1@.A0P (("O ) "(逋` (0())|KP(` (P"")B @@.>32(<<i**   <@Jh<<X 6V #EVAL_WRITE92833-16176,REV.5000,870621 870621.2320/P1K/CMP/ERW.PAS<rEVAL_WRITE}}M..DAD/.DCO.DLD.DST0.EXIT01.LBP2.LBPR .LDX3.LPX4.LPXR 5.MW00 6.SDSP +CALLRUNTIME *COMPTYPES )CONVERT_SUBRANGE(COPY_TREE 'DO_ASSIGN %EMDEF $EMDI1 &EMIT#EMLAB "ENUM_TYPE !EOI }/ ERROR EVADEVAD2 EVAD2IND2 EVAD3ADDRESSESEVADDRESSES EVAD_APPROPRIATEEVAD_STRING_PARMEVALFULL_SIZE INLINER INTEGER_TREE_VALINT_CONST INT_TYPEIS_CHAR IS_STRING NUM_ELEMENTSNWTPN }}m-PAC -PAS.1 ,PAS.2 7PAS.BITMASK18PAS.BOUNDINTEGERPAS.CDS 9PAS.INLINEERROR :PAS.SETCLEAR;PAS.SETINIT PROTECT_TEMP REAL_TYPE RELEASE_NODE REMAPPER SETUPOPERANDS SPLIT_STRING_OR_STRING_INDEX_CHE}PjTEXTFILEUNPROTECT_TEMPddF0(`@ (`@p  (`@p  `@&p `@(p `@p  `@ (0`@p  d0@@06(226`@p P  `@ (M`@ p P @ -2M@@06(644 AS`1`@p @ (`@p p /(m(|(|4lmH4`@ (w({(`@ (((`@p   (`@ ((`N`@(p P `@&p P  V `@(p  `@&p  @@06(Sg` @`@$A3p ~~!G=@`@&D1 4 .( `@ (`@(@A3 .(`@&3  .(    ( `1@`@@/~<<g-((>(>`@ (1` (, (0 (=` (9(=<~9L4(\`@ (P` (K(O(\` (X(\`N`@(p P  `@&p P P `@(p  `@&p   @@06(--.`@p`@(3`@p@ -LB@ (`@`@(p`@(3`@@x@`1` @ `@@A3/h  `@ `@ ((11"h`N`@(pP P `@&pP 1--P   `@(p`@&p-A"@@06((F@@`@(@  @ `@(p  @`@(p  `@(p `@ @`@ `@&3P!([(`@&3 @(`@&wn 3@AhHK5P(~~}A5`@(p `@ @``@&@ `p `@(p  (`@ (`@p  (`@(p  `1`@(p  `~GGJ%@ (DZ( `N`@(p P  `@&p P `@ (G>>l#@ -`@ p P    `@(p  `@&p  >@@06(( EA`@p `@(3 `@@ `  `@3!x `@&3P!(5(o`@&3 @ (o`@&3@AhH @5QP (oWJ:` p `@&.3x `@&@A.A3` `1`@ (~#($`N` "`@@A3%x 0  `@(p P :: $@`@A@3)A3'@hH 5@P  @ h @  @ :,,`@&p P  `@(p  `@&p  ,u@@06( STH, *@(&&@@42 $p `p 2x. @.`@ @@`//2@x.$@ .p-?`-?p 4(@A3'P(((4(WR4XD `@@`@/ /$+P @P $2$@@$(` (@@$@@2@@"2"@@$@-`@@` /0/( pD[ @$ ((R$ *(&|O; `@@`@//4$@A3@@p ` 0 ((`( (`( -(ވ`( (ꈰ`++f((`#(` (`(+Y=,(C` (((`@ @` /(/(` (*(-(. .P P (` (C@ -P @$2$@@$(, *QQ[HX3)@(&4(3'/p.!(812*0(`@8@`.x1 ,H1H@7(QyyvO7@4(3'P (P(P((3(4( 5(hP (̀` (p"P"` (PyI @@0I6,(KK2 66ed  K@ 104600 JLB PUTCH OUTPUT CHAR  06628 34613 124616 JMP RMLCHR,I RETURN  1 ( PAGE# 176 Macro/1000 Rev. 2440 850107 9:20 AM FRI., 17 OCT., 1986 ( VIRTUAL CONTROL PANEL PAGE 4 </PASCAL/CMP/CDS/EV1.REL:::5:129:128 644 0 0 100400 5300501621 35615 /PASCAL/CMP/CDS/EV1.REL:::5:129:128 ##$ . EV1 REL +++@ FST ;;X4;V9PSEV1 92833-16177,REV.5000,870621 870621.2325 /P1K/CMP/EV1.PAS;@{4;;;XE'bV;EVAL1 92833-16177,REV.5000,870621 870621.2325 /P1K/CMP/EV1.PAS; EVAL1 .I.DADJ.DCOK.DDIL.DIN.DLDM.DMPN.DSB.DSTO.EXIT0P.LBPQ.LBPR .LDXR.LPXS.LPXR .MPYT.MW00 U.MW20 V.SDSP ADD EADOPT FADVAL DAOC CAPPEND_STRING A_REG_OPS BCALLRUNTIME ACHECK zz@CVTNODE CVTREGNODE=EMDEF <EMDI1 >EMDLT ;EMIND ?EMIT:EMMBT 9EMMVW 8EMNUM 7EMOPR 6EMREG 5EMRUN 4EMSKE 3EMSKL 2EOI EVAD+EVAD2IND2 EVAD3ADDRESSES EVADDRESSES 0EVAD_STRING_EXPRzo1EVAL_STRING_ELEMEVAL_SWITCH FREEREG /FULL_SIZE &GETBOUNDS GETFREEREG.INITIALIZE_STRIN*INLINER )INT_CONST -IS_SIGNED ,IS_STRING LADDR LOADLOADADLOADBYTEAD%LOW_ORDER 'NEWBYTECOPY (NEWCOPY xo"NEWNODE #NEW_INLINE_LIT_N NUM_ELEMENTS!NWTPN HPAS.1 GPAS.2 WPAS.BITMASK1PAS.CDS XPAS.DOUBLEMOD YPAS.INLINEERROR $PAS.MIN ZPAS.NEW2S [PAS.SETUNIONPOWEROF2PROTECT_TEMPQ_RELATIVE_FIXUPRELEASEREGCC ķRELEASE_NODEREMAPPERREPLACENODE SAVEREG SETUPOPERANDS STORE SWAPOPERANDSTWOTO UNPROTECT_TEMPC@:@ ((V`@ p`@p`@p`@pppp HXHR`@@`@ x ,H@W(i`@ppPPr5@'`@pp ` (i`@p` o`@p` o`@p` oP}}۔gB<p`(VSP(s(`@ ,H@W(PhH `@ p(S@@` o(V`@ ,HH@W(`}VV*&@p` o(V`@Rx `@Rx `(@ ((`@p` oV>6`@p` o(V` (@ ((`@p` o`@p` o(V` @()` @()`@p` o`@@ARP;RR)#((`@@ARx`@p` o(V` @ (D`@p` o` (CR<<}:`@p` o(V`@p` o`@p` o<AUV @@O"V( H_HY++*~``@p`@p ` (n` @p ` p+##p`O)V`hAHUpp (`# 4_P C??PPˠ.,` p` p` p` p` @@@@@ph  @P22@@O#@V ppp p p p (2<< @` @DP  (H@ ` @p` @p <GGA?)   ` @p ` @p ` @p ` @p  G @@OVp (ddOa*2,@`@A@RJJH(7(B(B`@p ` (`@p `W `@p `o @`@ARx dII8\% `@ @`@`@p  `@p   `@p   `@p 0  I}@@OV(*pp?+>8 @S (`Pp@(<S .pS.p `P(P((7(<SH`((pvT>` o`(` o@ S((` o  p`@ @@`   ` !0 ` @"@xS@AR"$$W ,H@W(6` 0  $~- 0   (<hp< @@O%Vp(,,CH@`@'A@RDPP@DPR$Pp ,~` ` OV`p (Hddi11@`@'ARP(s(`@#p `@'R@PDP `@RP!((`@#RP!((d[[1/@`@#AAIR&x `@@AIAR&H x `@IR&` `@'p `@'@AR@@  [@@OV(iaa11`@'p`@+R`@%h@H'pDP`@h@H%pDP`@h@HpDPa}B@@`@@A @AI R&`@@S $`@S (`@`@ `@@AR@@ @S "H`(= hH`@'R__ǓD., .hH`@%R   J*(\([hH`@(m`@(m @HhH_rB<@`@'ARP(|(`b(`@'p`+,``@'RP((`@#p@`@'A@RDPP@@`@'p`CC&"@'R  ( .H `@@#p @`@#@ARCA>:@`@#AAIR&`@(`@ (`@h`@P((+`@(+`@'R   J/(((+`@'p--4(*`@'R   J1(*hH -/@@OV(j586@`@%ARP!(?(|`@(|`@RP!(N(|`@#RP!(X(|`@P(^(g`@'p  (|`@P(}`++Im@(|`@p`A@p + ` OV`p (5~~1OA` @"@x@SR" ,HH@W(S@@@ @A J&(((`  3`@@p  (@A J*(((`4~%% 4 5`@ @p %  Kj @@OV((QC((` @"@x@SR" ,HH@W(^S@@@ @A J&( (F(FS(+` (4`@ # 6` @@ p  (^ e{H AJ*(M(^(^ 7Q `@@p  LJ^ @@OV(L*hJFp `@%@AR@hH4T@ `@( `@   `@IR& I(`@ @`@%@AIAR&?  @ LH`@@ `@@  8@ @`@AAIR& @@I@`@#AAIR& @@@@I@`@'ARP"((`@'99@AR*p  ((` (Jp @`@AAIR&`9AAJ\&$$` (@`@'R(I`@'R@(x@`@%@AIAR&A"J ` OV`p (hrrVrS;7@`@AAIR&x `@'@AR ,H@W(v`@'p ` o `@(`@'@ARx H `@'p  rG5` `@hHH H`@( 3`@ p    +`@p `r p   `@p 0 (`@'@ARx 22qJ@H `@'p  `` (  6  2>>`@hHH 9`@ p   `@p 0  >7@@OV(S yHk ܌;9@`@)ARP!hH`@IR&`@H`@`@p`r p ` @p `@)R .(b`@)pg\S` owYB<`@)p` o`@'RJxH@`@ @@`:<`@(`@(`@'@AR ,H@W(`@'p NN($@`@'@P@hHAD;TQ`@;T`@'p`@ppp` @p NK=@`@)AAIR&@@@p ` P ( +  ` ( =  ( n`@'p`@'P@hH;T@Q`@AH;T`@( `99dq !@)p  +  `@)p`@'p9 /M5`@( B 5`@p   +   =`@)pp  `@( n 7`@p  Q@hHAH;T`@'P` ? | @;T`@'p   @@O-V( nH_ ^ @@  JH@SP!( ( S@hH4T@ ` @( `@IR&I `@IR&x@@( `@IR& I x@`@DD  AAIR&``@ (  hH ( i` @( `@ hDa ?=( `@ `@ ( `@ p`@p( i`@@ARP;( $( G@S ,HH@W( G`@R`@ `@ TTA =,$ @@`( ]`@ p`@ @@``@p`@p`@ p0TS i @@OV(  oH_ k sIG .H@`@p`@ `@( @S xJ@H@S I R&x@ ( S A@AI R&`@  `@p ++ɵ @`@%p` j`@p` j+> C5`@#p` j`@ ( `@( `@p( `4@ #  `@p( b`@( 3`@ h`@p4DD*5 $`@ @` `@p  > `@p0( b`@ DKKf% 7+`@p`@ @@` `@p ` @ #  `@p0K b@@OV( sll hF0@ `( uP ?( yP @ @ A `   ` @'pp  ` @P@hH;T` @'@HP`@;Tl˶ @@O,Vpp( h C9@` @'ARP"( ( ` @'@AR*( ` @'p  ( ` @'p  ( ` @'p ` @'p0@  ( ` @'p  ` @'@"" R*` @'Rx J@H " @@OV( ''f @` @A@RAR"PhH ' "@6`4`@P( ,( X@`@)AR.( G`@)p ` o `@)p  `@)RP!( W`@)p  ( X`@'p  ( k`KK b%@%R .( lp ` ( `@%p ` o `@%p ` o ` Kq ` cq @@OV( h N:`  6 ) @  @ p `@ @`@`@'p`@'p0 `@@` :B`@'P@hH ;T@Q++7 A`@ ;HT`@P( P( >P( ( +}}: P8@@ ( ` + ` ( `@RC`( 0@ E `@( !@  ( 00 # 0 F `@p0@ ( `}55 ?@)RP!( H( g`@)IR& `P( W( _5~~ݮ WY5` = ( f` +( ޱ@  @ H@`@)p @ G @ A p  @ )  +`@'pp ~**p4  Q@AhH ;HT`@'P`@ A@;T*KK 6 H  = p    @ I`@' pp  @@ ( hKz @@O2V( UU&*$`@'p  (`@%R .(p ` (+`@%p ` o `@%p ` o U__S+.$`@(8`@'p  (?`@'p  `@P(Y`@%p  `@#p  `@p  _,Y@@OV(mm\_5-`@p `@p `@p `@Pp`@p`@p`   `@'p  `@%p  m k `@#p   `@p  @@OV(_6E3`(`L(`Z(`@ (` (`Z`@%p  `@#p  `@p  `@(H@`**@@p @ (H`@@p @ *:H4@H`@p   `4`@( J(  K``@p  `@p  `@'p   `@%p   `@p   `BBI @(u`@'p  =`@'@ARx   `@'R0@BeiD:`@'p `@pP (`@'p `@p `@'R*`@p `@p `@%p  .H  @`@%A@I @Q ` @S &x  @ .@@OV(&&J `(`L(`&qq9=-(`@ (` (`Z`4`@(ﱋ L( M``@p `@p 0  `@p `_ q @@OV(DD"`@)p ` `(0`L(0` (`@ (;D5B6` (`@(q`@)R(( ,HH@W(b`@)p ` o `@)p ` o `@)p  `@'p  (`@)p IIw& `@'p  `@%p  `@#p  `@p   `4`@(I''  N( O``@)p  '@@OV( pH_ ddK7%` 0`P(P(ѨP((` (` (` (h % `P ( ' dl@@O7V +p)(33<@`@A@R@AJ&((AJ*(U(AJ(((3G3`@p`W`@p  P`@pp  `@p `@p `@p0@ (`@p`W`@p99a`@p`o`@RJH({(( Q9``4&( R`@p `@p `@p `@p04(`@p`S(h`@@OV(MM-#@`@A@R@  AJ&((AJ*((ψ(4`@p  `@ p  `4 TMG1`@p   `@p   H`@p 0 (9`@p  `@p  `4 U`@p  `@p   H`@p h- 0 4(9h9@@OV(33H?@`@A@R@AJ&(Z(QAJ*(0(UAJ(~(Y(3?Z<6p `@p`W`@RP!(o(`@p`@p`@ p`@p`@p`@p`@RP!(ZZ7+(`@IR&xp ` (`@p ` @ #  `@R (Z`O5@ V @      `@p `@p `@p0@ p ` (/`@p`@ppW`@p `88@p `@p0@ (`@p`W89F6`@p`@p`o@`@A@RJJH(V([([ 3(_ X`@p `@p `@p `@p04(`!! @p`Y( h;!@@OV(? N @`@A@RJJH((( YE9`@hHp P@@ @`@ ((@`@@ (H `@p  (`@p  (`@p  `@ p   ==s! Z `@p   `@p  (p`@p `W =~~{J>`@p `o `@Rx `@R J&(/(*J*(D(.([P p 0 ) 0 F  (``@RJH(Q(V(V~88Q [(Z  \(`ht`@p   `@p 0  8p@@OV(v ` o` o!@@OV(v)<6`@pp`@@AR.p `@pp `@@AR.p `@(`@p` o(D`@(`@p` # o(D` (`((r=5`@p`@p`(D` (` (`@p`@p`(D` (`@p` o`@p`@p`(Dbb/+@`@ARx`@RH`(7`@p`@p`(D`@p`@p`bccD0(`@ P(LP(V(_`@p` o(d`@p4(dh`@@ARx`@pct@@OV([[z1)@`@@@ S P((S @@ `@ P((`@p   `@ p   [BB2_"(`p` p`@p   `@p  `@@@J ((  B@@OV(zO44` p ` p `@p`@p  `@p 4@@OV(1 p<<+! ] @ SS@@@ S   <$&@@OV(*JB@`@ARP(4(?`@@AR@@ (E`@ `@R   `@ (~`@ (~S @@@` t      `     @@OV(*qqk6B6` p `@p `@p` `@p  `@"@x `@RR" ,HH @W(0  0   >q@@@OV(    @SR$ee53@JJH@((JJH(( (Q`Q(` @ @@` ` @@`@`@QxNLQ`en @@O!V (WW)+'`@p `@p@`@A@R@`@p`@@``@ @`` W NTI?`@p`@ @``@ @`` `@R x`@@AR@@x@hH `@   aa72--`@@p@`P ((` P (5`@ P((`@R .(`@@AR.(a>G7`@p` o`@p` o`@p`@p(`@p`@p ^`@p h   h  22= `@p h    h    2 0>8 H(w`@RP(?(``@ p`A@(Z`@p`@p` (_`(w`@ p`A@(r`&n u(w`uw@@OV()AAi}& @`@A@R@  x `@R   x@ hH AVVˉ0*`@ @    `@p @@  @`@A@RAR/(`(`V @@OV(}??} ` @p`@R$ ` (` @p` @p0? D@@OVp ( @`@A@R@z GC@`@A@R@`@@ARPG((1@S$J,('p`(@`@ARC(A`@ (JJH(H(M(M(w`@@@R66R S$@@@S$J(n(nJH(n(s(s@@6ggr91(w`@p `@ @`@ @`@p`  HD`@p` `@p g@@OV(SS,*@`@AR ,H @Wp`@@AR ,H @Wp`@pp SH@`@pp  @ @`@@AR@@x ` ((` 0 ( `A@ p_@`@ARP((8`@p`o77fB%`@R ,H H@Wp(D`7 YC@8(@(P`Ԅ(S"P(W(g@`@ARP+(a(g`x(`@@ARP(q(w`(((@`@ARP((`@DD}%@AR@@AJ*(((`@p`@p` (`D?/P@(`A@ (`u(`@R x`@@AR@@x@p h   @`   `@pV  `@p @@O"V( v H_ 33 @`@A@R@  AJ&($(AJ*(%(AJ((#(3~~!$A;(`@RJH(`(1`@RP!(;(``@IR&J&(J(`(``@p`o`@p 4 `(`@p`~FFe%W`@p`@p`o`@@AR@JJH((( WF``4&( G`@p `@p `@p `@p04(`@p`a(h d`@@OV( [[,*`@p `@R `@p  hH `@h@Hp @ `@ hHp @P@ [~~D==`@ hH p  `@  ((K`@ RP( (`@ p `@ @AR@@ (`@ RP"(#(4`@ R*(4`~@@Cc-@ p  @ (K`@ RP"(K`@ p `@ R (4@K@@OV(|Q@ (W(SSъW0*`(epSxH(o`p@SxJ@H@S*`!  S@@O V  p(Q `@p ` o @@OV(55+`@p `@ p `p `@ p` 5''rc`@p ` o `@ p `  'E@@OV(   HD@`@ A@RDPP@@ `@p`+,`@RP((2S P!(`@R@PDP `p`  `@;@ARP($(2uu|$<4`@p`@R(`@p`@ p`p`@ p``@p` o`@ p` ` u `@@OV(HHf%`LSP(P"(t(@S*(`(`(`aH?Q(`@@OV(f@< @@ @@ S ((S@@@ ` P()P(/P(8P(@P( P!( P"( P#(FP$(LP%(RP;(PA(^PBFFb!(XPL(d(j@S*P(P(稈P((( @A J&(((SxFN:(4(  ( h #(n J&(((Pp@(( AJ*(#((((4(n`(n`,(n`=(n`(n//F`:(n`(n`q(n`(n/ 7^ `(n`(n n@@O#V`h@ U@( QsP}" } C} ~`oH@@OV(~jjTOON 6(  !#*")2LM3,1KJIHGF7Z0$;u <j@~> LSA 11 07083 35672 042141 asc 8,Data OK? (Y/N) LSA 11 07084 35702 000000 oct 0 LSA 1) 07085* /PASCAL/CMP/CDS/EV2.REL:::5:116:128 644 0 0 72000 5300501622 35770 /PASCAL/CMP/CDS/EV2.REL:::5:116:128 ##$t .tEV2 REL +++t9tFST ;;X=(V!)PSEV2 92833-16178,REV.5000,870621 870621.2331 /P1K/CMP/EV2.PAS;@h=(>>XOHV!*TOUCH_FILES 92833-16178,REV.5000,870621 870621.2331 /P1K/CMP/EV2.PAS>TOUCH_FILES zzf.DAD.DCO.DDE.DDI.DIN.DIS.DLD.DNG.DSBR .DST .EXIT0!.LPX".LPXR #.SDSP ADOPT CALLRUNTIME CHECK COPY_TREE EMDEF EMDI1 EMITEMSYL EOI EVAD FULL_SIZE zFF GETBOUNDS NEWNODE OFFSET_TREE PAS.1 PAS.2 PAS.CDS RELEASE_NODEREMAPPERSTRING_LITERAL_LTEXTFILEF+P<@@@"P(P(:P((w` @p##@ ` (/A('p#0# ` @(I@   (@(k"))OPD " K @),6jPH(" @@$@$A@D"@  @` @A!(` @!  @   @   ` @p#` @p&` @ %% $ #& $ ` @  @$ $%WVJ   p (w"@@$ `@@`@'`@ @@`)$')@"  $$'@A'D((9((9D$'"@ @+##,&` x+@(6$(#__09><(w" @@@ @(G(v@@!"!! ,@(n"!$"!@@@'` x$'"@!@(A(w_Yw@@ -#(55 ` @@`@ "P((@"P((5SOI@"  @("   P@" @(@`("@@ ` @@`@` @ @@`! ` @@`@#` @ @,, `%P!#%" p ` x,##1@@ '#  p(#,, S  n,@<<XV!,WALK_FILES92833-16178,REV.5000,870621 870621.2331/P1K/CMP/EV2.PAS<sWALK_FILESSOO .DCO.DLD.DST .EXIT0 .LPX .LPXR .SDSP COPY_TREE NEWNODE PAS.1 PAS.2 PAS.CDS TOUCH_FILES VAR_TO_ADDR OPN`@J s@@ ((@@@  (( @A x ` @ ( @A@ A ,( @A@ A P(@ (] ::P$$@A@ J (](( @A @@@ x@@:SSt82@  x`@ @` p@P     @ @  ( S @@ p p (3 @E;;XFcV!3\EVAL2 92833-16178,REV.5000,870621 870621.2331 /P1K/CMP/EV2.PAS; EVAL2 zzZ@.CFER A.DADB.DCO.DLDC.DMPD.DSB.DSTE.EXIT0F.LBPG.LBPR .LDXH.LPXI.LPXR .MPYJ.MW00 K.MW20 L.SDSP =ADD ;ADJUST_ONE_WORD_<ADVAL :A_REG_OPS 9CALLRUNTIME 7CHCKB 8CHECK z}}Y6CVTREGNODE4EMDEC 2EMDEF 1EMDI1 3EMDLT 5EMIT/EMOPL 0EMOPR .EMPRL -EMSKE ,EMSKL +EOI *ERROR )EVAD(EVADDRESSES 'EVAD_STRING_EXPR&EVAL_SWITCH %FREEREG $FULL_SIZE #GETBOUNDS "GETFREEREG}!INLINER INT_CONST IS_CHAR IS_STRING JUMPJUMP_PLUS LADDR LOADLOADADLOADBYTEADNEWBYTECOPY NEWCOPY NEWLABELNEW_TEMP_SETNUM_ELEMENTSNWTPN OPP_RELATIONALPAC PAC_LITERAL ?PAS.1 yy\>PAS.2 MPAS.BITMASK1NPAS.BOUNDINTEGERPAS.CDS OPAS.INLINEERROR PPAS.NEW2S QPAS.((SETCLEARRPAS.SETINIT SPAS.SETUNIONPUTLABEL REAL_TYPE RELEASEREG RELEASE_NODE REMAPPER REPLACENODE SAVEREG yMSETUPOPERANDS UNPROTECT_TEMP@:@ ((V`@ p`@p`@p`@ppppp 0?X?R`@@`@ x ,H@M(i`@ppPP]@'`@pp ` (i`@p` `@p` €`@p` €P}}+gB<p`(VIP(s(`@ ,H@M( hH `@ p(I@@` (V`@ ,HH@M(`}VVJ*&@p` €(V`@Hx `@Hx `(@ ((`@p` €V0>6`@p` €(V` (@ ((`@p` €`@p` €(V` @()` @()`@p` €`@@AHP;RR#)#((`@@AHx`@p` €(V` @ (D`@p` €` (CR<<v:`@p` €(V`@p` €`@p` €<AAV @@E"L(?_?Y``@p`@ p$$xg`E)L`hAHKp `p(`$ 4UPw ww  " `(`(`P?( @@ELpp($$$` (  ( $ݭ@@ELp (WW02&`@Fx` `  `@@HFx` `W   @@ELp (ZZ5'`@Fx` `  `@@HFx` ` Zރ.@@ELp (HH96""`(`@@HF(J`@FP?p`@@HFpHRXG;`@p ` (_(` p`(`@@HFx``(  `@F`(`@@HFx`  `@@@FF@@ELp(6;; p `P(P(P(P( P(P(P(P((;||wV: p ( ( p (    `P((  P   !( ( h` (  |3 @@ELp(Ƽ( @G(5Pp G` 5@Gx  "=@@EL((dC;5`@(J`@pp"(`pp`@bp`p` @p`@@@P(tP({P(P(P((` >())k~(!(#((h88(X)!!@@E@L `h$Kpp(C! 6P $44$$4 = `@`  @@ELp (&&<9 p`@@@`&*@@ELp (gg1)p`@ @@`` `P,(P-(P.(P/(P0(P1((%` (*` / (*h"g* @@ELpp(4=1@I%P(OP(VP(vP(P (P (P (P (P (oP(hP((` (ֱP '0  ` (` (` II mq+/(` !(` (ֈ` !)` (` !` IsswE3(` !` /(` !!` (` !#` (@Ix` +(hX`@I%`s @@ELp(4PP@p I%P( P(P(P(%P (,P (3P (:P (AP (P(P(H(VP K7`!([`!([([!([`!(([`!)([`!!([`!#([`!([`!*([@Ix`p 11VU([hu` (k`@@@`>1J=o @@EL(Cy:2@p I%P(P(P(P(P (P (P (ƨP (P (P(P(Ԉ(`!(`!(!((`!)(`;;Z!!((`!#(爱`!!(`!*(`!(;FFF'@Ix`p ( h` (`@`> FKT @@EL(yGA@`@AHP;((I`@@AH+(I - ) `@ @x`@H% ,HH@M(I`@H ,HH@Mp L ` EL`p ( f?_ :UE9`?Y(p `@p `@ @`@`@` `N(` (`@p  `@H%P((P '0  `::@p `@p. `@p ` @`@AH%`:~~A9(`@p ` ` ( `@p `@`@@@` `@p `@p (Y`@@AH((`~qq8;5@p `@`@@@` `@p ` `@p `@@@`@` qgg<25+`@p ` `@p `@p. `@p ` `@H%``@p  `@p  gzg@@EL(U]]+ m/)`?Y(p `@p `@`@ @`` `N(π` (`@p  ]E7@`@AH%P((P '0  `@p `@p! `@p ` @`@AH%`(`@p `p ` ( `@DDX"p `@@@`@` `@p `@p D~~s!@<(q`@H((1`@p `@`@@@` `@p ` `@p `@@@`@`~HH“C& `@p ` `@p `@p! `@p ` H00i@`@AH%``@p  `@p  0@@EL(mGG,!`@ `@ @I%``@ @``@ @`` GQ  @@EL(hhW&&@`@AHx`P( P(( P,(P-( 7P0( 7P1(P2( P3( rP4( P5( P6( P7( P8( P9( ( h+)C7@`@A@H/JB?(( ,( ,`@H((`@p``@p``@p P '`@p  `P,( ( OOvp $`@ h( "`@ h`@p`( Y`@p` W`@pOO ==3 1`@p  `P,( P( U`@ h ( Y`@ h`@@AH%`@ `@p`@p( `@p`@((ssc z=5@`@``@p`@p`@p( `@p`@@@`@`sf =5`@p`@p`@H%x`ip`@@AH%``@p( ي`@p`P4( P5( P6( P7( P8( || 1-P9( ( `@ h( `@ h( `@ h ( `@ h ( `@ h ( `@ h ( h]`@p`@p|~~ %@:`@p`@H%`@ ( ي@`@AH( A( d`@p`@@@`@``@p``~AA| e&@p P 2   p`@ @@``@pA I3`P0( ( P 3 ( P 4   `@p`@p@`@AH%` `@p`@p( `( `h( r  hK @@EL(%%c  `@p@B5( 눈( ( ` %~~ >6( I`@p` W`@p` €`@p( `@@JB?( ( ( `@p#( ``@@JB?( '( `( ``@H~MMc .**P!( 1( M`@AGI@5AH5x@@ I5` `@HJ/x?@M X71`@p`@@AHP4( pP5( P8( zP9( u( `@ h( `@ h( `@ h ( `@ h ( 7`@p]]I 6,@`@AH%`@ ( ;; ' 8 9 :`@@x@`@AH ,H@M( !]/ A5`@p#`@@AHP4( P5( P8( P9( (      `@@AHP4( ( `@ h( `@ h SSl & ( `@ h ( `@ h ( h`@@AH%`@ ( ;`@pS<< ,`@p  `@H%``@p`@p< I@@E L(  OH>`@pp`@pp `0 ( m`@p@B<( mp>`@@AH/@@( p@`@A@H/@@JB?( ( ( `f @H/B?( (  FD@`@A@H/@`@p`@@ `p`@@p@`@@AH/@@@JB?( ( ( `@H/B?( ( `@H;;8 /`@p `@@`@p@`@p; 80?`@p  `@p   ?`@@AHP,( 1P-( @P.( :P/( 7P0( =P1( 4( C`p ( H`p ( H` p ( H` p ( H` p [[ ?0(( H` p ( H h`@p``@@AH%` `@p``@p`@J?D[ oH8(`@p( `p`p`@p`@p`@p@@`@@p@`?M( P @`@p  A( SSl -%( ` p` p`@p`@p`@p  @`@pSqq A-`?M( P @`@p  B( *`?M(`@p  P C `@H%``@p`@pq:%@@EL( O`pRR:+**@`@AHP!p`(:(`@H/HDB?(U(NB?(U(^(^RUFB@ A@F(p`@@``@@` 0`@H/`@@``@@ `!0!B((B(((`?U MM(&(p`((`@H ,HH @Mp`(Պ `@@`@HJMJ@@`@@F@hH'ADIJG`@'IJ`@@AH/@@A@B5(( ( p `@p# #K`?M(p ( @ Dx#@ #(3`p `11E @p## #L`?M(p (3@ @ @ 1 B*SA@@D x#@ #`?M(RM   D @   `(lG@AhH'IHJ`@F`@'AKIJ (s`@ p## O 11!3} `@@@`>`@p#` €#1QQF.&#P !  `@#@x$`@@AH% ,H$@M(`@@AH%`Q@@E9L(+ k ?_ }FD`@p `@H/ `@H ,H H@M(`@p @`@A@H/@ `@@AHQP((@`@DFH/  @ B45((hH~~C=@`@AHQ ,H @M(-`@(Z`@(T`@p `@@F@   `@p @`@DF  ` J(`~QQt[+'@HQP(d(`@p @`@DF 0 `@p `@F@@ 0 Q**}`@p `@F@AH/@@ `&*"@@EL(* ?Y?V:I=p@I%P(P((I%`` ` @pG(Gx(`?Y(IP((ⱋP(P#I%` b MM?` ` ("T ! S0?d"(` @(@@xI ,HH@M((` (IP@(/(@I/HQP,,8(:(@` @(I/ @B5(P(V(V,uu*PG9(o` @IP;(c(oI+(o`  U   !` @@xI% ,H@M(@I%`ub8 @@E.L (CChp p @`@AH%P((`@p`@ @``C66T(`@p `@ @`@`@ @@``6=@@EL( q ? Z>8@`@AHP"((`@@AH+(`@p `@p  @`@AH+`@p `€ (1`@p `W `@p `**b€ `@p `@Hx `  *1`@p  8@@EL(qq1>?/@`@AHP"(H(XP#V`@p   (m`@p `W `@p #  C`@p  `@p ` qu}@@EL(>==@`@AHP!((`@p  (@`@AH((=rA=P#`@p # p `@@AHP"((p (`@HP(Ĉ(`@HHP+(`@@AH@AHP"((`ff60@p `@@AH@@  p ` (P#`@p # @`@AHP"( (-`@@AHP"((-f~~2G3P#`@p    `@p   (N`@HP"(7(CW`@p   (NW`@p   `@p  `@p  `~]@p ` e@@EL()) k`@p(|`@p(}p(( )P~J@`@p `@p @`@ hHp@F@` (B5(((@`@  (`@H@hHAK#J 0 X ::@`@ p(P#`p`@ p`@p:RG7`@pZ`@p`@ p (`@ @ (#`@p@@`@ p`@ p`@pp `??+,$@ pp ` 0 (H`@H/ @B<(Hp>?~~@aPL:` (w`@H@hHAK#J 0 X @`@p`@p`@ p`@ pP# 5`@p  ~22t `@ p   `@p`@ p2@@EL(k d ~~(!E?@`@A@H/@`@@AH/@@(䈸`(@JB?(((`@p (JB?(((`p (A@B+(((p (p @@B~<<$) ?( ((`p ((B?(((`p ((@B+(#(&(&<c#73p ((p ` P(2P(P(/P((` P(.DAD?.DCO@.DDEA.DINB.DIS.DLDC.DNGD.DSBE.DSBR .DSTF.EXIT0G.LBPH.LBPR .LDXI.LPXJ.LPXR K.MW00 L.SDSP ;ADD :ADJUST_ONE_WORD_9BREAK_CHECK 8CALLRUNTIME 7CHECK 6CHECKBOUNDS |||3G5CVTREGNODE4DOVER 3ELEMENTS1EMCSE 0EMDEC .EMDEF -EMDI1 ,EMDI2 /EMDLT +EMIND 2EMIT*EMLAB )EMNEW 'EMOPL (EMOPR &EMPRL %EMREG $EMSKE #EMSKL "EOI !EVAD EVADDRESSES EVAL_SWITCH |yy qFREEREG FULL_SIZE GETBOUNDS GETFREEREGINLINER JUMPJUMP_PLUS LOADLOADADLOW_ORDER NEWLABELNEWNODE NEW_TEMP_SETNWTPN =PAS.1 <PAS.2 PAS.CDS MPAS.INLINEERROR NPAS.NEW2S y`` PROTECT_TEMPPUTLABEL RELEASEREGRELEASE_NODE REMAPPER REPLACENODE SAVE_GLOBAL_OPTI SETUPOPERANDS STORE UNPROTECT_TEMPUPDATE_GLOBAL_OPWALK_FILES` `=p p p= @@FL(MG@`@A@I@0@ @@ A@>AI`@x >I`@@x@`@ P(H(m `=M(Rp (lA@> DAIx î_ A@ > DAIx lVH( `=M(wp (> Ix > AAIxA  @A> Ix A@ > DAI x `=MA(@A> I@@   i > I  @ @@FL(ؚL4@hH `p  p    `@ p  @hH `@@ ((4`@ P(()@ `@C x  --((4`@p `@ P(:(=p -ũI@@$dKC`@p`@> I`@`@@AED(@?(((D@    `@I x  @B (B(`@pCCB`@hHpG@@`@p`@?( ((`@ pC@@FL(HD`@p `@>I `@p `@@A> A@I@ `@@@@`@AEA(I@?((J(@@@@ `@ P(V(o@  ++DR^  `@@AIx  (  +ddw5/@`@AIx  @B (B(P`@p  `@hHp @DG `@p `@@@? (((d@@FL(QQo2.@`@@@!H!@@@@H@@JIx @p`@I ##?(((QJPJp `@p%p%(`p `@p%p%`@p%@%J! ( (>I# >ID#?(<(&(A@I@A# @>++q4A@I@D#(wA@>A@I@A @A>I@@+|P[M`      @J x% % @H@@( >I>IH ((>I@@?((( >I' @@@@H@pT@(D?(̈́(D?(͈((`(`(    @J ((`` H(`W  `  @@F-L(CC£ & @`@@ `@@@ @J x (;(F` ` C&F@@FL(  AL UO@@FL(L((22vU@` @%@? (^(^(g` @#p@@ ?(fpp 2Hn @@FL (Uux `@?hHp  AA`@=p `@?I `@;h@H=p DG `@9h@H;p DG `@7h@H9p DG `@5p @`@;A@I@ `@3h\\1/@H5p DG `@=G@hHA!K`@'p `@=I `@'p @  `@)p  \EA `@/@`@"$`@1 @@`"%`@p `@7I `@;I&PFhH`@@@ @J `@@)x @@ J (XX'8((`@=x  `@(W`@-hH5p  `@+h@H3p @ (i`@-hH3p @@ XI`::`@+hH5p  `@5I&P!hH`@-@AI&P!hH `@+I&P!hH `@'p `@%@` `bb:L/-@#@`  `@h@H%p @ `@hH#p  `@!hH%p @@ `@hH#p  b><`@'p  `@`@P((`@ (`@!p `@-@A>AI@  `@ (`@p @`@+AA>I @ (.`OOB8''@ (`@!p `@->I `@ (.`@p `@+>I O~~}.;7`@ (<`@!p `o `@ (J`@p `o `@p  `@hH!p @@ `@hHp  `@({`~gg:i..@hH!p @@ `@hHp  (`@hHp  `@hH!p @@ `@ (`@ (g8@@`@p `@!D@ @ `@p   `@(Ȋ@`@(`@@A?*(p @`@AI&` (`@?(؈(`@?(kkȂ1/p `@I&` `@P(舨(`@p @`@@AD ?(hH(`@p `@p@ hHkDD@`@-AI&P(()`@=@AI@@ @`@-A@I@? ()((hH `@+I&P(7(N`@=I `@+I? (NOOmL-)(MhH `@@AI@@  `@I(y@`@A@I(@  Oy@@FL(xLB@@`@(`@@AIx  ( `@-G@hH!K@`@1HG`@!K`@+@@G@AhH!HK`@/G`@AH!K`@ (]] .(`@ (@ ,`@p   `@ (`@ (`@ (`@-@AI-((]G>6`@-p `  `@-p `  `@-@AI`@`@-p  `@1p `@p P  `@+I-(((-`@ (.iin-6.p `@+p `  `@+p `  @`@+AIx P hH` (n`@'p   `@@/p @ iIcH4`@p `@/p   `@(z  / `@p @  `@@`@`@1p  `@(  0 `@p 0 1 ::}  p  `@Ix  `@p `@)p  :C7`@p  `@(`@1p p (`@/p p  `=U( `@( `@=I ``@=p  `@AhH= p G` !Kf @@F(L(..M @`@-@G@hHAH!K`@1GA`@!@K.}K 1@<@`@+@G@hHAH!K`@/GA`@!HK`@ ( ]`@ ( ]`@p`@!p@( p`@@( p@`@AIx( `cce5 q3+@ ( `@ (   2`@p   ( T`@ ( `@ ( `@-I-( ( c`$ C7`@-pp`@-p`@1pP`@1p`@+I-( ͈( `@ ( p `@+pp` ( `@'p@ GG  '`@/p@@`@/p`@(   / 3`@1p G M7`@(   0   @`@AIx`@@p`@Ix`@( T  !@`@55} [I   `@( {`@1pp5hhV z9/( `@/p p`=U( `@( `@=I `  !`@=p  `@AhH=p@HG`A@!Kh @@F+L( OO' &`@( `=U( Ɗ`@ (   4`@ @p   `@ @( ߱O]R L2  4`@ @p   ( p`=U(   4`@ @p   `@ p  `@( +@ ,`@ @p   @ 5 ( C00 +@  @ `@ @p   `=U( U0MMc F* `@ @I  ` `@ @p  `=U( p  4`@ @ p   M p@@FL( wwx v:.`@( `p `p ( `p ` p `=U( `@ ( !`@ @p `@ p  2`@ @p w{{@ H2  `@@ @A@I@`  !`@ @p  (  `@ @p `@ @( 챱!`@ @p {. @@FL( v00 @`@@G@hH ADKJ@@`@0~~nK ><@J`@%@``@#@ ``@P( 6( G`@%?6( ?( G( G`@#@A?( _( G`@P( M( ^@`@%A?8( V( ^~KK U(( ^`@#?:( _( ^p `@P( g( m` q( r`    K Ӳ } p`( p U @@F L( vv#1 P4`zJ@=@SSA?( ( ( ` ( ` @HxUU531/`9` ` v @@F]L( ~~% PHp @`@@@J&P!( @@ @@H@( `@I     H   ( -( jJ&P( M` p ( H~? < `` L\D( cJ@@@J@G@H( ' `=M(  <   =( = = h @   @@ @  @( ( J&P( `=M( ~~o WC= @H@@(   ( (J&P( (`=M( >( 뱰> @ J  J@DG  `=M(  ~r  =H( `@p "@@FL( (JH@`@A@I@`@ PC(8(}@`@A@I@`@@AI@ (N(}`@@AI@@@`@ p`@G@AI@@..Dr@`@AIx`@p0h @.LH@@`@ A?(a(a@ pp?`@((I?((`@p`@p`@@AI@@?((`@p`@pJJ>`@p`@p`@ P (P(PC(PH((`p (J}}">0`p (`p (`p (hD`@ P ( P( PH( ( @( `@p `@p  `@ P (8}WWi/+%P(EP(8PC(FPH(8([ `@p(`(``@I@x@`@pPW0wZ;5(`hd(`@I@ .(@`@AI@.(`@ P (P(PC(PH((`@p``@p`^^0((`@p``@p`( hx`@I?((`@p`@p^~~@4@`@A@I@?((ъ`@p`@p`@ P (P(>PC(ePH(舨(`@p`@pp  B`@ p  ~@@ %`@pP(`@p`@p p@     @]*I7`@p  `@pP(`@p`@pp   `@p  `@pP(`@Ix@@`@p33s`@pp  `@ p  @ 3PP@* `@p  `@pP`@IC` (`@p`@pP@@F#L((3 @`@AIEx  N@@FL(,* @`@AIEx  u@@FL(t ` p=`   \ @@FL p (OK@`@@@ J J@x J@A@=ʄ(J@ xP`=M(J@pA@(0G@= @@ @JEh= .. Ph= @@J@ @C>@@>@J x@@.EEql1@Jx@  p .(H    p ` ( E`@@FL(UUL2*@p `@@@@`@@`@@DG ` ``  p U::4$` (@ p   ` (` `  :a@@FL(DD($@`@@ `@@@ @J Jx@ (!('` D'@@FL(d- J@= `@ @`@GG;(@p  `@p``@  J=` `@p` GPc@@FL(-NN{i/@p @p  `@p` `@p``   N@@FL(i r>`=p @@i% p=`@@@ ` @@H @@  (` ` ( @"@@FL(@< @@ @@ J ((J@@@ ` P(oP(iP (P (P(uP({P(KP(P(P(P (P!(KP"22x> (KP:(P;(P=(P@(PC(PH(PK((2}}H<@J(P(&P('P(?(E(J@A ?(.(9(9Jxp(>p(J`(J h(@A ?(R(\(\pp(h ?((c(h(h}77{cp(`(`P(` (`(7\\z4"`(`((`G(`d(`(`(`#(`(\fp @@F"L(X`=<@@FL(cc8wII  PO,+  / .0 "gc@;Z/PASCAL/CMP/CDS/EV4.REL:::5:39:128 644 0 0 23400 5300501625 34526 /PASCAL/CMP/CDS/EV4.REL:::5:39:128 ""$' /X'EV4 REL +++'>F>FST ;;XAV*PSEV4 92833-16180,REV.5000,870621 870621.2340 /P1K/CMP/EV4.PAS;@"VA;;X;U V*'EVAL4 92833-16180,REV.5000,870621 870621.2340 /P1K/CMP/EV4.PAS; ^ EVAL4 {{ >.DAD?.DCO@.DDE.DLDA.DMPB.DNG.DSTC.EXIT0D.LBPE.LBPR .LDXF.LPXG.LPXR H.MW00 I.SDSP ;CALLRUNTIME 9CHCKB :CHECK 8CLEANUP_PARMS 7COPY_TREE 6DO_ASSIGN 4EMDEF 3EMDI1 5EMIT{{{U2EMITJSB 1EMLAB 0EMOPL /EMPRL .EMSKL -EOI ,ERROR +EVAD*EVAD2IND2 )EVAD3ADDRESSES(EVAD5ADDRESSES'EVADDRESSES &EVAD_APPROPRIATE%EVAD_STRING_PARM$EVAL_READ #EVAL_SWITCH "EVAL_WRITE!FREEREG {wwy+ FULL_SIZE GETFREEREGINITIALIZE_STRININLINER INTEGER_TREE_VALINT_CONST IS_CHAR LOADLOADADNEWLABELNEW_INLINE_LIT_NNUM_ELEMENTSOFFSET_TREE PAC =PAS.1 <PAS.2 JPAS.BITMASK1w}}KPAS.BOUNDINTEGERPAS.CDS LPAS.INLINEERROR MPAS.SETCLEARNPAS.SETINIT PREPARE_CALLPREPARE_PARMS PUTLABELQ_RELATIVE_FIXUPRELEASE_NODE SETUPOPERANDS SPLIT_STRING_OR_ STRING_INDEX_CHE STRING_LENGTH_CH}++A* STRING_OR_PAC_NOTEXTFILETOUCH_FILES UNPROTECT_TEMPWALK_FILES+JJ@`@A@FAFx @`@@@GG@AF,p @G pA@p` (Y` P (=` P(=(YE@DA@F @//ڨJ``@ @@`p`(a(e/N#eF6` P (oP (IP (*P((hp `(`=@(| ((`=@(((m` ( `p `@@`@p`(ޱ,,}       P ,W^8  P    (   P   pp `(`=@((()`=@(%()) (mp `(<`=@(72R:(;(H`=@(D(H(mp `([`=@(V(Z (g`=@(c!(g "(mhp@ ` @(E@@p @ ''/ 0 =` (` P ((p'$$$ `@p`@p$n@@C$I(~~J>`@p`@FF#p!(%&$`@@`x ,HH@J(`@FFP(P(~2yP(( 3J<'((()(h`@p@ (`@@DD`@FFP(/((I`@ @``@ @` 66F(Q   `@p *`@p@ 6zzeR4@ (k(~@ @ ` (0 +@  (-`@ p@ @  `@p`@p`@pz2@@C+I( @`@A@F@  p ND@`@DDE (p `@@``@@` (G@hH!H!x  @+(*(( `@@`..@`@ @@`@(5@+.5I;`@p$ $(J`@FFP(^P(sP(P(((n` (i.(m/(r0((` (~1(11q~2(3(4((` (5(61P@(7( h`@p$@ $(h   0 ` (@ @G8P"((G:P(p@@G:@ (0 +` h ##L@0 @ ((@ @ ( #UU.9#0 +0 +```@p$$`@p$$`@p$$U:@@C'I(EEY@&P`@ (M(g`@p  <`@p @ `@p  Esf (k=`@p  gr@@CI(@~~wxD@p `@@ p>(@`@A@F@@  p>@(G  ?/(p @G P(P(P(P(P(P(~ A!(@@ 6P ==h ((((戈((((((((((((戈(((((((( =-rE5`@p@(`@p (`s(`(`(`;(`{(B` (G C.p `@p`@ @;; #" ``@p    @`@@@ (E(P;EO=@@ E@@(?`@p` ( GE-(nGE)(`=M(y@GE )(P   `p=P  = @G**/E-(G`=M( =p=*@@CI(x~~^F:p `@@DD`@FFP(ϨP(P(pP(P((\`@p  P H`@p @ @ `(a`~??:#@@` !!( `@p  ( `@F ?EI=@("@J ?=("(!p `@p @`  J?=(A(1`@p G@ D B! !` (U`@p @ +=@!`!(o`@p  ..h `I`@ p @ @ @(aE@@@@E@.@|UI@@E@@GG@@ (@G@AhH#K H#  J!@!`@p `@@` ! !@(p  L(@ `!!k @@` !!(!uUC@A?+@((@D>@ !! `@@`@!!(@A?+((@@>D @!!P `@p  M`@p @  M7 @ @ 0(K(V }K\>@P!0 !(Z0  +@ @ 0 (sP  !0 !(w0 +`(aE`@@` !!(`@F--bN(Š@`@A@F@!P!@@>!!-;S=`@p P@ P@ @ @ `(aE`@@ `!!( `@p  ( `@@`!"";2!(8p  Q(8" )P6`@p >@@! !`@p  p R`@p @ @ @ (ahy` (h0 =`@p  `@p   Ty z@@C*I( @@ @ D>@G ((G@@@ ` P(P!(P"(P*( P;(( @G:P(P(P(((@A ?S(((Gx(ձBBm7&( (h@(  A?S(((p( ?:(((BX ( `( 0Qr @@C!I( ` = @@CI( ppTTT  }~3+XYVWz{xyfSBA@hi"_02p@! psenm def mes99 LSA 11 07670 37701 035534 pspg def mesb /PASCAL/CMP/CDS/EV5.REL:::5:47:128 644 0 0 27400 5300501627 34675 /PASCAL/CMP/CDS/EV5.REL:::5:47:128 ""$/ //EV5 REL +++/YhFST ;;XGV.PSEV5 92833-16181,REV.5000,870621 870621.2344 /P1K/CMP/EV5.PAS;@(NG;;XC:EV. 3EVAL5 92833-16181,REV.5000,870621 870621.2344 /P1K/CMP/EV5.PAS;  EVAL5 ||6@.DADA.DCOB.DDE.DLD.DSTC.EXIT0D.LBPE.LBPR .LDXF.LPXG.LPXR H.MW00 I.SDSP =ADOPT <CALLRUNTIME :CHCKB ;CHECK 9CHECKBOUNDS 8CLEANUP_PARMS 7COPY_TREE 6CVTREGNODE4EMDEC 2EMDEF |zz1EMDI1 3EMDLT 5EMIT0EMITJSB /EMLAB .EMMVW -EMOPL ,EMPRL +EMREG *EMSKE )EMSKL (EOI 'ERROR &EVAD%EVAD2IND2 $EVADDRESSES #EVAD_STRING_PARM"EVAL_SWITCH FNCRG !FREEREG FULL_SIZE zGETFREEREGINBRO INLINER INTEGER_TREE_VALIS_STRING JUMPLOADLOADADLOW_ORDER NEWLABELNEWNODE NWTPN OFFSET_TREE ?PAS.1 >PAS.2 JPAS.BITMASK1KPAS.BOUNDINTEGERPAS.CDS LPAS.INLINEERROR pp PREPARE_CALLPREPARE_PARMS PUTLABEL RELEASEREGRELEASE_NODE REPLACENODE SETUPOPERANDS SPLIT_STRING_OR_ STRING_INDEX_CHESTRING_LENGTH_CHSWAPREGSTRANSFORM_TREEUNPROTECT_TEMPp}}/B<p `@@AF@AFx ` P(P(((>@`@A@F@""AA(/(&AA (f(*AA((.("`@p$` $`@p$` $`}55IB#@Fx$`$p        5eH8('`@p$` $`@p$`  $`p `@p$ $   `@FA?((((('p @0?@E@h;;w#HH`@p$p$p @" "`@p$$; pX<@EA`@DHGx$? $@E`@AKH     P p      `@p$$(' h)(CB ( p `@p$$P PP 6+0  (C h1`@p$$`@p$$` (X` P(X(a`@p$`$ P/a@@C,I(BBJPg#`@p ` p `@p p  `@p  `@p `  B@@CI(g `@p `  VH8@`@A@FAFP (P ((( (hS`@p   `@@AFP((    `@p  (`@))p ` `@p  `@p  )=@@CI(00`@p`@@``@ @ ` 0~~I;@G A?(2(@ ? @  @ ` @ `@FFP (SP (XP (]P (SP!(XP"(](b(g(g~44](gh     ?`@((p`4))b| `@p`@p)L@@CI(`/G9`@p `  `@p   `@p ` `@F `@p `@p  `@@AFx   `@p  `@p  3@@CI({{.F@p `@@ p(@`@A@F@@ p@(G /@(GP(JP(nP(J!!(I@@{ 4P/ DDN/(P(P(V(V(V(t(t(h(\(\(\(b(b(b(b(b(b(t(z(z(z(z(\(V(V(V(D7JI5`b(`(`(`d(`(`(`(`(` (p"p ` (G#.p 55Pp ` ( `@F 0 `5dKG@@@G# .P(@G% ,(@`@A@F@@(G)F '.@(G)F '-(`@ @@`p(@@==`@p`@@p@`@p`@ @ `=FP<`@p  @`@@@ (9(D@  E@@(3`@p` (G%-(`?M(sP +  Pp?P ))gk + ? ,`?M(?p?)~~LF@`@A@F@` (`@p`@F@x@(`@pp ` G-@AF- ,H@J@(G-`~55@F@x@`@p``@F@x@5 `@p@@C#I( ? H8`@p `  `@FFP(P(P(P(#((/(-0(-1(-2(-h2`@p   `@FF22m=P(B(L`@p ` (U`@p ` 2 [U `@p  `@p   c@@CI(hKiLH@`@A@F@  @ `@@AF@JA?(((`@FFF3  `@FF3`  A(((`@p (`@p11gx@`@A@F@  `@p`@p1@@CI(i~~66@`@A@FAFx @`@A@FJA?((1(1` P(P(P( P( P(P((`爨p (`p (`p (`?p (p (~$$9 `p (hr`@p$#80 `@p`(~` P(?P(BP(EP(HP(KP(N(Q`4p (V` p (V`p (V`p (V`)p (V`5 p (Vh0?OO6e[- `@p`   `@p  `@p ` P(`?M(P +OSSb31  Pp?P + ? ,`?M(?p?`@p`@pSP@@CI(\\A#5)@`@A@F@ `@ p `  A?(((ో5(6`@p   `@p ` \ ]6 `@p  `@p  x@@CI(UP>@`@A@F@  AA(#(AA (f(AA(("(`@p   P 7  `@p  `@p ` `@@AF@@  UXAA(](b(bb]K7 (ep(`@p  `@FA?({((8(9@ `@p  `@p ` (؊`@p 0 ?  `33@p ` :`@p    `@p   366&`@p    `@p  (h`@p  6@@CI(<L<p  @ `@@AF@AFP(P(5P(f(`?U(`@p0  ;   (4`@p0@   <?@ 1 G2M;p (`?U(O`@ pP>`@p  (ep `@p ?@(`@@DD 0@  `@p0@ &&f   ?     P  &II)(p"` ( ?`@p`P  `@p`@pId@@CI(pp=/@`@A@FAFP(P(P( P( [( ޺P?D`@p0 @@  ?D  ( P?D`@p0 pz T:A  ?D  ( `@D@@ `@@`@ ( 4pBP?D`@p0 @` C  ?D     55. Z( `@@D@@ E @@ `@@`@ ( 58w wN>`@p(  `@@`  ( `@p@AA<( ( `@p@@B P?D`@p0  @ D$$9"    ?D        $443 ( p" ?P `@p`@p4 @@CI(Gp B> @@ @@ G ( ( &G@@@ ` P( P( P( P( hP!( hP"( hP+( P;( 8( @G P( CP( DP( \ m B( b ~~u CN<( g A( K( V( V@Gx( [( gp ( gh(  A( o( y( yp@(  AA ( ( ( ( `( `~""ބ  ( `( `؋(  "T @@C"I( 5 ` ? @@CI( [[6PCC 0 +[\3GEj""_ tb|s v$#;2[@f. . . . 7702: 7112* 7122*  .COMND . . . . . . 3578: 2715* 2805* 3299* 3472*  .CPUPR . . . . . . 3779: 3759 % .CRLF . . . . . . 7007: 6403 6462 6478 6549 6572 6583 6611 /PASCAL/CMP/CDS/EXP.REL:::5:153:128 644 0 0 114400 5300501631 36062 /PASCAL/CMP/CDS/EXP.REL:::5:153:128 ##$ /EXP REL +++LtFST ;;XjXV30PSEXP 92833-16182,REV.5000,870621 870621.2349 /P1K/CMP/EXP.PAS;@KjX;;XqV31LITERALS92833-16182,REV.5000,870621 870621.2349/P1K/CMP/EXP.PAS; !lLITERALS OOu.DLD.DST .EXIT0.LDX .LPXR .MW00 .SDSP INSYMBOLMAKE_PACNEWNODE PAS.1 PAS.2 PAS.CDS PAS.INLINEERROR O88` 2P( P(P(:P0(%(P` 4( J( @(U` 4P((  ($J@ (U   5 P(4(7 p 4(9VV80*p 4(U` PJ(>(C @(Oh    `  (UhHP   `@  J V hp k@@  ( ! 4@s 3??XV((aV32STRING_LITERAL_S92833-16182,REV.5000,870621 870621.2349/P1K/CMP/EXP.PAS?XSTRING_LITERAL_S AA ]Q.DAD.DLD.DST .EXIT0 .LBP .LPXR .SDSP IS_STRING NUM_ELEMENTSPAS.1 PAS.2 PAS.CDS A{{(_UM@  @ @( (U  P(U   PG("(0@  @ (U@ @(U  @@@X@  X {U @@  @  ( @Ji??X>V32STRING_ASSIGNABL92833-16182,REV.5000,870621 870621.2349/P1K/CMP/EXP.PAS?-STRING_ASSIGNABL PP W .DCO.DLD.DST .EXIT0 .LPXR .SDSP IS_STRING NUM_ELEMENTS PAS.1 PAS.2 PAS.CDS STRING_ELEMENTSTRING_LITERAL_SPGGb3+#p((P ((` () ()( ()@ ` ()p G&&:+`   @ @@@ p `p (&  @2m==XhyV33 NOTE_CALL 92833-16182,REV.5000,870621 870621.2349 /P1K/CMP/EXP.PAS=qjNOTE_CALL CC .DCO.DLD.DST.EXIT0.LDX .LPX .LPXR .MW20 .SDSP PAS.1 PAS.2 PAS.BITMASK1PAS.CDS C`GG@ @((i @ `@@@x  ' ,HH@ (i /P@(&(i  .@(K pA@(K  A @@(K CCG"" x@  .(i@ P(Z(i 9(i(` @A CCi@@ ` h@  @ ( x}x >x @+Jy>>XK; V35"ACTPARMLIST 92833-16182,REV.5000,870621 870621.2349 /P1K/CMP/EXP.PAS>(ACTPARMLIST zz8f.DCO.DLD.DST.EXIT0.LBP.LDX.LPX.LPXR .MW00 .MW20 !.SDSP ADOPT ASSCO CHCKB CHCKI CHECK CHKBS CORC1 EQUIV_TYPES EXPRESSIONHEAP_2_ROUTINE INSYMBOL IN_EMAzttr. IS_STD_FILE_IN_H IS_STRING NEWNODE NOTE_CALL PAS.1 PAS.2 "PAS.BITMASK1PAS.CDS #PAS.SETCLEAR$PAS.SETDIFFER %PAS.SETINIT &PAS.SETUNIONSEARCHIDSTRING_ASSIGNABLUNQUAL_TO_RECORDt~~KC@  'p'Pp` @p0 P `  ! !(Lp  `@@x' ,H@"@( /~dd_K51Pp@p ` (@ .(@ .(y@ -(y@ ) (zpPd7NL@ ,p (p (p 'P@(( @@((pP` (L@@@   ((; (˄(;FD'P@((% @@( .p@  .P((` (@  .p. (@  -p##-  (pP#>>/$($(,` M@  @@ ( @(D pP>""L@@&!`h@ @@@ (" 4=P_ d_ %_ --``@p  (q`@(r(qp -yt ` !`p (`UU}66@ p ` (@@@! ((#@@@!%((p ` p U""b` !@@@@`p (}" 0@`@  p@( iKA@`@ A@@`@ @A@@@`@ A .(+`(`@ p`(p@'(*`@ ppPVV_3,&("(*(*`@ (`(@`@ A'P(7(}(D`v(EpPVKA=@`@ A(PpP*`@ @A+P(iP<(PD((@`@ A@#A'P(y(@`@ A@#A/ pPJJ3*&-(`@ @A#@@ @ +PJ((p  @ A#/ pP.J}}WLD@`@ A@#D`  pP/(@`@ A@#A@A#/(`@ #  (pP.(`}tt<8@ pp `@@x`@   . ,HH@"(<`@  .P(+(;`@#  (=p t~~>:8` (F`@  (Gp `@ (P`  (QhH ` 0ApP0`@ +P(g(|`@ P(u(|`@ p~MMx-'(`@ # p@(`@ p@`@ A@#@`MM) @@!`h ( 6P  v0 UU5+`2p@(`@ @@`@ @J1J#x@@ P U$$ @@!`h `hH 2($ 6P   NNHJp @`@"@@x+ ,HH@"(@#@(   0( 3P,@( -`@-AhH2D (=(\@# (F(\PPF2*`@'@x@# ' ,HH@"p0( 5P `( - 4-(PxVD@#  @ @((  'P((0( 7P6P `( --(`  p@  p@(`##w1 @@ `2P (#(( @ pP`2P p0 ($$ @@2!`9h:8 `hH2($JJ-556 " ~ g !J9@N@ @qې??X$ nV39$BUFFER_SELECT 92833-16182,REV.5000,870621 870621.2349 /P1K/CMP/EXP.PAS?cBUFFER_SELECT QQc .DCO.DLD.DST .EXIT0.LDX .LPX.MW00 .SDSP ADOPT INSYMBOLIS_STD_FILE_IN_HNEWNODE PAS.1 PAS.2 PAS.CDS QssCA@`@ A@ @ ` @`@ A@ A@ A@ @ `@ @A x   `@   (8(C(C`@ @A x   sC@@ (--)IP @     `Dp-b @@ `hH AH(I @x>>XGV3:(DEREFERENCE 92833-16182,REV.5000,870621 870621.2349 /P1K/CMP/EXP.PAS>uDEREFERENCE gg.DCO.DLD.DST.EXIT0.LDX.LPX.LPXR .MW00 .SDSP ADOPT CHCKB CHECK DEREFERENCEABLE FULL_SIZE INSYMBOLNEWNODE PAS.1 PAS.2 PAS.CDS g aRJ@`@ A@@@    Pp  @(l p   (l p    @A @@@`@ Ax   ` ؠ@--yR(d`@  p (dp  -l@@(--rP @     `m`-u @@`hH AH(rvn  3S Q @/==XV3;-SELECTION 92833-16182,REV.5000,870621 870621.2349 /P1K/CMP/EXP.PAS=\SELECTION Vdd.DLD.DST.EXIT0.LDX.LPX.LPXR .MW00 .SDSP ADOPT CHCKB CHECK CHKBS INSYMBOLNEWNODE PAS.1 PAS.2 PAS.CDS PAS.SETUNIONSRCHS d"L@p @ p(J Pp( (5` s p` 2p0 @ ( 77((>L!@A @@ `@ @`@P p (7YY&m<2@  `   x  @x  `       pY+ @@#`hHAH( .6  <@==X+pV46SUBSCRIPTION92833-16182,REV.5000,870621 870621.2349/P1K/CMP/EXP.PAS=seSUBSCRIPTIONť.DAD.DCO.DLD.DST.EXIT0.LDX.LPX.LPXR .MW00 .MW20 .SDSP ADOPT CHCKB CHCKI CHECK COMPTYPES CORC1 EXPRESSIONINSYMBOLNEWNODE PAS.1 PAS.2 PAS.BITMASK1PAS.CDS PAS.SETCLEARPAS.SETINIT PAS.SETUNIONJD@`@ @@    P( P p  (@ P!()(;     p   (I`s p  `77J@@x `@  ,HH @p7AQhPH@ P(o(@ @`@ @A@@p  (`@ p @   p @  `@ x @@ @`@ MM)%A@J((Ɉ(`@ `(`@ @A@@p  (M33ٔ`@ p  p  `@ @Ax  3} @@`h ( 3P    fT@J@ `#p#J @(,(W x@@P@ J@   ` `2P (NiZ `2P pd @@(`hHAH (((;  .q 6 D(@c;;XN V4>MODIFIER92833-16182,REV.5000,870621 870621.2349/P1K/CMP/EXP.PAS; MODIFIERz {{.DLD .EXIT0.LDX .LPX.LPXR .MW00 .SDSP ACTPARMLIST BUFFER_SELECT CHCKS DEREFERENCE PAS.1 PAS.2 PAS.BITMASK1PAS.CDS PAS.INLINEERROR PAS.SETCLEARPAS.SETINIT PAS.SETUNION{!DSELECTION SUBSCRIPTIONJ:` 2 ,H @(` 2P(DP (.P()P((ZJ  P(($p ((` (_P (_0@P  @(_0]]fJ:,@P   (_h  P @`@@` 2x ,HH@pP  @ ] N(  @@ "`hH AH ( 6   A@;;;X@V4>VARIABLE92833-16182,REV.5000,870621 870621.2349/P1K/CMP/EXP.PAS; 5VARIABLE 66 .DLD.DST.EXIT0 .LPXR .SDSP INSYMBOLNEWNODE PAS.1 PAS.2 PAS.CDS 6YY640@  @ x  x A@ (.` A @(.` p` (4PY-4 @@  p (  @}=??XV4ESYMBOLIC_CONSTAN92833-16182,REV.5000,870621 870621.2349/P1K/CMP/EXP.PAS?^SYMBOLIC_CONSTAN iiң .CFER .DAD .DCO.DLD.DST .EXIT0.LBP.LBPR .LDX.LPX.LPXR .MW00 .SDSP FEATURE_LEVEL INSYMBOLNEWNODE PAS.1 PAS.2 PAS.CDS PAS.NEW2S iMI@ /(@J Ĉ(((p@@P@@ @hHAD `@AD  P(?(@ HP(I(i @//³M  x A@ (h` A@ (h/fJH` p (@ HP(s(`@ @ `@ `@ A x @ @ x     x@@ (!@((x 88 A@ (` A@ (` p @@P@ 87 @ x@@@J  `@Q @@ ($$!  i$@==XAV4EUNQUAL_FIELD92833-16182,REV.5000,870621 870621.2349/P1K/CMP/EXP.PAS=JUNQUAL_FIELDqLLy .DAD.DLD.DST .EXIT0 .LBPR .LPX.LPXR .MPY.SDSP ADOPT INSYMBOLNEWNODE PAS.1 PAS.2 PAS.CDS LYSA` @  @@P@@  @x@@ (.  (@ x@ P P      %%Y (d @x @(}@  (m(u%33,jm!@  (d@ x@@  p p@ J `3@ @@ !( <J  @ @@XV4IPARSE_PROC_CALL 92833-16182,REV.5000,870621 870621.2349 /P1K/CMP/EXP.PAS@VPARSE_PROC_CALL u|| .DCO.DLD.DST.EXIT0.LPXR .SDSP ADOPT CHECK INSYMBOLMODIFIERNEWNODE NOTE_CALL PAS.1 PAS.2 PAS.CDS PAS.INLINEERROR PAS.SETCLEARPAS.SETINIT PAS.SETUNIONSTANDARD_PROC |~~(&C;J  /P( P((`(` M( JJ  9(( (  ((!p  P  @@ p @@  J x  @@ ~HHC,$@ @ p @   ` 2P(o@   p  H,,Ĕo 0 @ ; @ (h ,@@ (" *~6 @!??X̞V4NFUNCTION_REFEREN92833-16182,REV.5000,870621 870621.2349/P1K/CMP/EXP.PAS?IFUNCTION_REFERENgg .DCO.DLD.DST.EXIT0.LDX.LPXR .MW00 .SDSP ADOPT CHECK INSYMBOLNEWNODE NOTE_CALL PAS.1 PAS.2 PAS.CDS PAS.INLINEERROR STANDARD_FUNC g'H@@ /P( P((z hA`@K`(` M@(*J 9(#(*(* ((+pP@@p@ @ x//\AH@@@ p   @J  /--b|g` 2P(y@  p(hC - @@`hHAH( " ~ ;@KjH@@X V4QFUNCTION_RESULT 92833-16182,REV.5000,870621 870621.2349 /P1K/CMP/EXP.PAS@hFUNCTION_RESULT oPP .DAD .DCO.DLD.DST .EXIT0.LPX.LPXR .MPY.SDSP CHCKB CHECK INSYMBOLNEWNODE PAS.1 PAS.2 PAS.CDS P~~,OI@  P  /Ppp(>@  .p  @@@ x@@p ` p @ (p` (p` @@ ~//O @ ([(l@  (i(l(l/MMi'#p (o@ p (B@ (u(|` @ (|` p p (@ @0 J `M? @@  (\  "  @T==X PV4XASSIGNABLEID92833-16182,REV.5000,870621 870621.2349/P1K/CMP/EXP.PAS=AEASSIGNABLEID``Sh.DLD.DST .EXIT0.LDX .LPXR .MW00 .SDSP CHECK FUNCTION_RESULT MODIFIER PAS.1 PAS.2 PAS.CDS PAS.INLINEERROR UNQUAL_FIELDVARIABLE`yyJD6J@  @  'P(P($P()(. / pp (3` (3P (3h  PpyD @@ `hH AH (O @ܙ<<X V4 aIDENTIFIER92833-16182,REV.5000,870621 870621.2349/P1K/CMP/EXP.PAS<QIDENTIFIERfUc.DCO.DLD.DST.EXIT0.LDX.LPX.LPXR .MW00 .MW20 .SDSP CHCKI ERROR FEATURE_LEVEL FUNCTION_REFEREN INSYMBOL MODIFIERPAS.1 PAS.((2 PAS.CDS PAS.INLINEERROR SEARCHID SETDENO pVSYMBOLIC_CONSTANUNQUAL_FIELDVARIABLE:JB `@@`@ (((J@@p  '@(cPp ` (:@@ ` (P`2P p>>J! (c`2P (T(Y(]p '(>TT.k."@ 'P(zP(P(P((p( (`(P(hT$$@@!` h `hH ($@   <P  p @Q??XQ eV4 cNOT_OPERATION 92833-16182,REV.5000,870621 870621.2349 /P1K/CMP/EXP.PAS?ZNOT_OPERATION ffK.DCO.DLD.DST.EXIT0.LDX.LPX.LPXR .MW00 .SDSP ADOPT CHCKB CHECK INSYMBOLMAKE_CONST_NODE NEWNODE PAS.1 PAS.2 PAS.CDS PRIMARY f\\C60`@ p  p pJ   p  (6 @A@J (/(.p  \6@@(11o/<` @ P  @J  `71Y @@`hH AH (<  '@B?`<<X% V4 mSETDENO 92833-16182,REV.5000,870621 870621.2349 /P1K/CMP/EXP.PAS< SETDENO = }}..DAD.DCO.DIN.DLD.DSB.DST.EXIT0.LBP.LDX.LPX.LPXR .MW00 .MW20 .SDSP ADOPT CHCKB CHCKI CHECK COMPTYPES GETBOUNDS INSYMBOLINTRVAL_EXPR INT_CONST INT_TYPE}FF C}MAKE_SETNEWNODE PAS.1 PAS.2 PAS.BITMASK1PAS.CDS PAS.SETCLEAR!PAS.SETINIT "PAS.SETUNIONREAL_TYPE FBB<'#@ P!((' @hH@ @ ( @A (pB?' @@ (jjmZ1C;p `@ ` @@ @ ([(@ #`@@`%`@@ `'#%'j~~ tWG@@D@ @#p#(A@`2P ((@ (p@(. .3@3~$$@@@P(܀($BRL@#@D %#%(p @ ((`@-@@x) ,HH)@(P  (p**() @( (n##.(Ap(n#JhAQI `@@`@#`@ @@`%#%@@D(_p))!p(P({(@#`(#@D#BB'`(#(`( @@##(` (p))(BddT:4 `2P p ` (` (`2P p)) (J@@x)@@)A@A `@Jd))-@@8`#h$@ @`hH"(1)66 %% =!  6 U -6   @F8d99XmV4nOPOK92833-16182,REV.5000,870621 870621.2349/P1K/CMP/EXP.PAS9 #OPOK  22 2.DLD.DST.EXIT0 .SDSP INT_TYPEPAS.1 PAS.2 PAS.CDS REAL_TYPE 2' P ( @ ( p k3 `  @@ `p (@r<<X V4xPRIMARY 92833-16182,REV.5000,870621 870621.2349 /P1K/CMP/EXP.PAS< PRIMARY k ||.DLD.DST.EXIT0.LDX.LPXR .MW00 .SDSP CHCKI ERROR EXPRESSIONIDENTIFIER INSYMBOLLITERALSMODIFIER NEWNODE NOT_OPERATION PAS.1 PAS.2 PAS.CDS PAS.SETCLEARPAS.SETINIT |lPAS.SETUNION SETDENO SKIPC3`(%p`p `2P p(`2P(;P(7P(7P(7P(IP(NP (@P0(7(q(` (22-C# (P (`p  2SSf."`2P p( x `2P((  p S @@"`hH AH ( 6  <@AJ` 99X WV4TERM92833-16182,REV.5000,870621 870621.2349/P1K/CMP/EXP.PAS9 TERM n.DCO.DLD.DST.EXIT0.LDX.LPX.LPXR .MW00 .MW20 .SDSP ADOPT CHCKB CHECK COERCECORC1 CVTNODE EXPCO INSYMBOL INT_TYPE MAKE_CONST_NODE NEWMULOPNODEOPOKPAS.1 PAS.2 @@>PAS.BITMASK1PAS.CDS PAS.INLINEERROR PAS.SETCLEARPAS.SETINIT PAS.SETUNIONPRIMARY REAL_TYPE @fFD@`@ A@@ `@ @A@@ `@p `@ ((@`@ Ap `@@@x   ,HH @(Q`@@x88c"F"  ,H@p(g p(g8+ghHF`@ p`@ p`@ P((`@  `@x @@ (`@ `@@x @ XXR+'`@ P(P(P(LP(P((b`@@A@@P(@ Pp  X~~rL@@ P((`@p   (g`@@A@@p  (g`@ Pp  `@ `(K`@ p ~//' p  `@ p  p  /KKv@'#@`@Ax  (g@J (S(Y(Y (Z(Yp  (g h8Kg @@`h ( 4LPr wr xr@ sX@   $p $`2P((`3p   3@ @@@x@    $p$    @ J`h( @@)`hHAH(s_ 6AP@s3??X2V4SIMPLEEXPRESSION92833-16182,REV.5000,870621 870621.2349/P1K/CMP/EXP.PAS?NSIMPLEEXPRESSION-t.DAD.DCO.DLD.DST.EXIT0.LDX.LPX.LPXR .MW00 .MW20 .SDSP ADOPT CHCKB CHECK COERCECORC1 CVTNODE EXPCO INSYMBOL IS_STRING MAKE_CONST_NODE MAKE_STRING NEWADDOPNODE\\ &} NEWNODE NUM_ELEMENTSOPOKPAS.1 PAS.2 PAS.BITMASK1PAS.CDS !PAS.INLINEERROR "PAS.SETCLEAR#PAS.SETINIT $PAS.SETUNIONSTRING_ELEMENTTERM\ J  ` p @ q@@(~~B>@`@A@@ `@@A@@ `@p`@(?@`@Ap`@ P(M(^`@pp(^`@p~``aY51p(_p ` (`@@x@  ,HH@ (`@@x  ,H@ p0 (` U=` ( (p0 (` ( (`@p@ @p@  (`@p @@p@ ..(`@p`@p `@@A@@ .}}6eFD@`@A@@@  P( ( @@@`@Ax(d` (Y (-(& (-(9(9@`@Ax(X@ }>>/?%!@ @@`@@Ax(d`@@Ax >}}d<8`@ P(nP(nP((` (`@ `( Pp@@  P((`@ P(P((`@p}OO+# (`@p(( (h( (@(( J((p@ (OiC h @@`h( 4P  @ rH:p p `2P(( `@#@`3x ,H@ (`(p `3Pp ` (  $0@ $)P)` (`(_ $77$%0@$ )P)`J  7&IQ?Jp  P @  J`2P(c(`3p J@@3P@@@@x@ $0@$)P&&p) P@J`(_&$$@@.`h`hH($$$~i H 6%#$  @L<<XvV4EXPRESSION92833-16182,REV.5000,870621 870621.2349/P1K/CMP/EXP.PAS<aEXPRESSION.DLD.DST.EXIT0.LDX.LPX.LPXR .MW00 .MW20 .SDSP ADOPT CHCKB CHECK COERCECOMPTYPES CVTNODE ERROR EXPCO INSYMBOL IS_STRING MAKE_CONST_NODE NEWRELOPNODE PAC PAS.1 ZZ cPAS.2 PAS.BITMASK1PAS.CDS PAS.INLINEERROR PAS.SETCLEAR!PAS.SETINIT "PAS.SETUNIONREAL_TYPE SIMPLEEXPRESSIONSTRING_ELEMENTSWAPOPERANDSZNEA@`@ A@@@x `@   x `@ @A(6`@ (6 (7p `@p `@ P(FNNeE*$(`@@` x ,HH@(Z  ([p0(` Pp0 (NoL>@ @(   (p@(j` Pp0(j`@ pp(`@ pp( (p0(j`@ p`667@ p `@xJ@@`@ A@@6;9@`@ A@@@ P(P(P(P( P(@P (S(f(j`@@`@ x ,H@p@(j`@ P(5P (\\+F-#P ($P (5P (4P (4(:`@p(?`@p`@p`(?(?(? hx\CC?+(j(K (Lp@(j(^ (_p@(jCj @@`h( 4RPu {u Hu }}WwO;J   $P $`2P((`3p   3x P P P @J`k} @@)`hHAH(w##,  C6#@==X;<MV4INTRVAL_EXPR92833-16182,REV.5000,870621 870621.2349/P1K/CMP/EXP.PAS=vBINTRVAL_EXPRcc܊.DLD.DST .EXIT0.LDX .LPXR .MW00 .SDSP ADOPT EXPRESSIONINSYMBOLNEWNODE PAS.1 PAS.2 PAS.CDS PAS.SETCLEARPAS.SETINIT PAS.SETUNIONcddA/  !p !` 2P((A  `p J@  @  P     dA @@ &`hH AH (6@Dc;;Xj V4RPLCE 92833-16182,REV.5000,870621 870621.2349 /P1K/CMP/EXP.PAS; ƎRPLCE  {{R.DCO.DLD.DST.EXIT0.LDX.LPX.LPXR .MW00 .SDSP ADOPT ASSCO ASSIGNABLEID CHCKB CHECK CHKBS COPY_TREE CORC1 EXPRESSIONINSYMBOLNEWNODE PAS.1 PAS.2 PAS.CDS {%%RPAS.SETCLEARPAS.SETINIT PAS.SETUNIONSTRING_ASSIGNABL%~~wJ@@`@A@@ `@ @A@@  (%`@ p ` (&p  (K`@ p  p @  J(C(K(K`@ `~ RJ K@@( gQ ! !&P& yyCfN>J@`2Pp (@@p@    ( `@ @`@    `Ly @@+`hHAH (Q  6 3@7V~<<X V4PARSE_EXPR92833-16182,REV.5000,870621 870621.2349/P1K/CMP/EXP.PAS<`'PARSE_EXPR$$9.EXIT0.SDSP EXPRESSIONPAS.1 PAS.2 PAS.CDS $q_ pz ;7@@(@>>XS V4PARSE_RANGE 92833-16182,REV.5000,870621 870621.2349 /P1K/CMP/EXP.PAS>&PARSE_RANGE %%8.EXIT0.SDSP INTRVAL_EXPRPAS.1 PAS.2 PAS.CDS %% ;5@@(@Ig>>XP V4PARSE_IDENT 92833-16182,REV.5000,870621 870621.2349 /P1K/CMP/EXP.PAS>0PARSE_IDENT $$.EXIT0.SDSP IDENTIFIERPAS.1 PAS.2 PAS.CDS $q_ pz ;7@@(@Ƿ@@Xy V4PARSE_ASSIGN_ID 92833-16182,REV.5000,870621 870621.2349 /P1K/CMP/EXP.PAS@IPARSE_ASSIGN_ID %%[.EXIT0.SDSP ASSIGNABLEIDPAS.1 PAS.2 PAS.CDS %q_ pz ;7@@(@&}E=??X V4PARSE_REPLACE 92833-16182,REV.5000,870621 870621.2349 /P1K/CMP/EXP.PAS?sPARSE_REPLACE ""FV.EXIT0.SDSP PAS.1 PAS.2 PAS.CDS RPLCE "  pz ;8@@(@O|n< 194250-18813 FOEMS.FTNI 5000 194250-18834 FBEMA.FTN 5000 1******************************************************/PASCAL/CMP/CDS/FLD.REL:::5:45:128 644 0 0 26400 5300501632 34671 /PASCAL/CMP/CDS/FLD.REL:::5:45:128 ""$- 0L-FLD REL +++-wN6FST ;;X)V -PSFLD 92833-16183,REV.5000,870621 870622.0111 /P1K/CMP/FLD.PAS;@ )99X5<V /$FOLD92833-16183,REV.5000,870621 870622.0111/P1K/CMP/FLD.PAS9  3FOLD ~~).BLE.CFER .DAD.DCO.DDI.DLD.DMP.DNG.DSB.DST .EXIT0!.FAD".FDV#.FLTD $.FMP%.FSB&.LBP'.LBPR .LDX(.LPX).LPXR *.MW00 +.NGL,.SDSP -.TFTD ADOPT CHCKB CHECK ~}}O.CVTNODE DISOWN FOLD1 FOLD2 INTEGER_TREE_VALINT_CONST IS_STRING NEW_INLINE_LIT_N NUM_ELEMENTS OPP_RELATIONALPAS.1 PAS.2 .PAS.BITMASK1PAS.CDS /PAS.DOUBLEMOD 0PAS.INLINEERROR 1PAS.NEW2S }@@U2PAS.SETCLEAR3PAS.SETINIT 4PAS.SINGLEMOD Q_RELATIVE_FIXUPREPLACENODE SETUPOPERANDS SINGLE_INTEGER@%qB>@`@  ((`@ p `@ @`  (`@@A(x `@p `@ pp `@ ((P(9(N (@(?p IIϽB)'0 D @ (k @h@  @`@A( x  `@(` ISSk.,P (@`@A(@`@AA( ` (`@(`@( x @@  S@@ ,(ff=93@`@  (()`@ p `@ @`  ()`@p `@ pp D   D  ((fHD@  @ (  P ( `@(J x @ `@@A(`@@AA( ` ()`@( x J@ @`@A(@`@ AA( x   ((>)@@ ,())7/@ (D` @pp` @ p @)LL8 C("(k (K(T(T` @pp(k([(k(k` @p` @pLk@@ , (/VV/}.*`@ (`@ (@AhHK*`@ (`@ @A(@hH*@ V@86`@ (`@p`@ P(ȨP(vP#(ѨP$(@P%(PB((2`@ (@@ @ (`@ (@ (`@p`@ cc3/pp(`@ @( (`@p`@ pp(7`@ @( @@  (?`@ @(* (*cXy@8`@p`@p`@ p(?`@ (? (?`@p`@ pp(7`@  (N   (u`@ (b`@ pQQoV%!`@ p`l(u`@ (u`@ p`@ p`l (7`@ (Q{JB@ p (@ @ (  (Њ`@ ( (`@p`@ pp  (Њ`@ ( p0`@ p== `@ p`l (7`@ ( (p (=G? @ (  (`@ ( (p0@A  ( ((`@p`@ pp@  (7`@ (1`@p`@pp??,!@D (7hb`@(P!(A({`@ P (c?MMM..@) xJ@@)( ` @({)J x@@)(@ x @Mt{@@ ,(}Y);9`@ ("`@p`@ pp`@ @AA@( @ `@ P%(`@ (  `@ P(P(P$(ʨP%(PB(À(.\SM@@ ! @( % @( @@$ ( %p @( @@" ((`p@@ `p`p ( (@ (##p h`@( x@@#GG!%#(F`@ P(((F`@ (F@`@ AA( @@ @A %p0GOF@@ &,(vvEL;9`@ (`@p!`@ p"p!"`p`p`@ @AA@( A( x!!`@ P%(`p`@ ( (@ x!!vwFC;`@ P(P(P$(PB((p (p (`p (`p ( h@ (`p! !(`@@AA@( A( x!ZZT00@!(ފ@`@AA( @A( x!!(*`@ (*`@ P((*@`@ AA( @A( x! !ZWW0,` (` (` (`p! !(*`@p!`@ p"p!"@`@AA( @A( x!!W*@@ +,(L\\F05/@`@ A@( @@ `@ @A( @@@ `@ (f (f`@p`@ pp\??e(`@ @(| (|`@p`@ pp(`@ (?+@@ ,(0~~uA?@`@A@( @  p `@ (P!(` (`@ (PGp @`@  ((ʊ@`@ A(P!(` (ʊ@`@ A(~TPGp ~~9D@`  (ڀ` (`@  p ` 0 (@`@A@( @@  J(((`G( (((`+(@) # ,HH@.~!!& (`|(` (`! @@ ,( ] 99%@`@A(P!(/(B`@p `@p   p 9 A@:(`@(P"(L(`@(  `@(%P(bP(~(`@p  (}`@p `@p    p (`@p wwE;`@p p (hH`@@A(%`@@A( x   ( )*0'0(`@@x `@( ,HH @.(w$$K`@p `@( p $y@@ ,(%B@@`@A(P((`@p `@(  p (@`@(P"((@`@(%(@`@@A( @@ @`@A(P!!7y ("(@`@p `@pp !''T-@`@A(%@`@A( x   '@@@ ,(yy/F>:@`@A((`@  (W(`@ ((+ /(@`@ A@(A(P(xP(~P(x(`(`*(y>@@ ,(Flz@`@A(x [$$h+6`@U6`p h,6`@W6 p h-6`@Y6h.6`@[6J]o6BBh/6`@]6`p h06`@_6 p h16`@a6h26`@c6h36`@e6h46`@g6h56`@i6h66`@k6PPFx**h76`@m6h86`@o6h96`@q6h:6`@s6h;6`@u6Pqq66h<6`@w6h=6`@y6h>6`@{6h?6`@}6`Ap 5`Bp 6`Ep 7`p p ` @ p   8 8 (q @@`@hA( ] %%  8  ˪    Ӫ    ۪    㪪    몪                  DD .          ! # % ' ) + -P / 1D3``ABS AD AND ASC ASL ASR LF RS BSS CC CL CLO CM CP DEC DEF DIV DLD DST EL EMA END ENT EQU ER EXT IN IOR ISZ JMP JSB LD LDX LOD LSL LSR MPY NAM NOP R L R R RRL RRR RSS SEZ SL SOC SOS XC SS ST SWP SZ XOR %MTHBߺp u   x% % @ Dp uJ@  @ x A@ @  Fp u $$x  @H$!bRHp u x  @Jp uJ@ @x @  @`Lp u x  ((7 @@`(>SK@x @  @Np ~J@ @@ @p @  @x    x ` Pp { ((¤p@@Ax @@ 0(TL@x J@  Rp  x  @x @  Tp u x  @x  ))@  Vp uJ@ @x A@ )TP@@x  @ Xp } !!x   !@!Jx  @@ ! !Ax @@ ! !Ax   AE @ Z p } # KK\V//@#x @  @##䄤x   #A@A #@# #K/@@&(MBBB            BTT43+ `@@`@ u `}a`@@` ``@p@`A@TԥQG@xJ@ @x@@J x `@@ ` @u@`}e `@@`@``@p`@''~x ݄x x@@'<#QE`@ @@` u `}g`@@ ```@@pA`Dx ݄x x@@''Lt`@@ ` @u@'S@QE`}k`@ @@```@p`@Jx @@@x@J x `@@`  u@@`33}m`@@ ```@@pA`@3QG@xJ@ @x@@J x `@@ ` @u@`}q `@@`@``@p`@'' -Gx ݄x x@@'C[QE`@ @@` u `}s{`@@ ``{`@@pA`Dx ݄x x@@''O`@@ `@}@'QOE`}v`@ @@```@p`@Jx @@ @ `@@` }@((# `}y`@@ ``(~~WZ(NH`@p`@Jx @@@x@@ @  x`@@`  }@@~66Rv`}{{`@ @@``{`@p`6PF@xJ@ @ @ Ax@@J Ċ `@@`@!} `}~{`@@` `{`//@%@@pA`Dx  /~~щOI@ xA@"`@ @@`$p { x@@0Jx @@``~@@J( @@` %~@@`}`@ @@``@,rHB`@p`@@x @@ ?@&x`p A0A( u`@ @ `*p@ { @99` @xA@@0x 9LD@``@@ `+@~@`}{ `@@`@`{`@p`@x@@ @ @?&x`66d& pA0A( w`ကpp 6~~'?@:` ((p`@p`@@$(O( `@@`@,. @` p`@p`@p`}@` p`@p`@~QQ)' @$p`@@ ```@@pA`Dx  QB:@` 8 8(?`pp ` p`@p`@@,((`@ @@`,/ `@ p`@p`@p`SSk)'}@` p`@p`@@ ,p`@@` ``@p@`A@S ` p}!(@@@\ I<\P <<(A(S(A(e(A(\(A(A(e(e(A(A(A(J(J(A(J(A(A(S(S(S(S(S(S(J(n(n(n(n(A(J(J(J(wx (@xJ@ (x FFKRZ%%@(Jx @(x (@xJ@ (x F&&@ @` 8 8(& @@`]h^`_h`AH0( fW]PPa 77&&INTEGER REALLONGREALCHARBOOLEAN TEXTSTRINGFALSE TRUEMININTMAXINTINPUT OUTPUT7E``GET 0PUT 0RESET PREWRITE pREAD @WRITE PPACK @UNPACK `NEW 0RELEASE pREADLN `WRITELN pMARK @DISPOSE pHALT @PAGE @OPEN @CLOSE PAPPEND `SE'``EK @PROMPT `OVERPRINTREADDIR pWRITEDIR STRAPPENDSTRREAD pSTRWRITE SETSTRLENSTRMOVE pSTRINSERTSTRDELETEABS 0SQR 0TRUNC PODD 0ORD 0CHR 0PRED @SUCC`` @EOF 0EOLN @BINARY `OCTAL PHEX 0STRLEN `STRMAX `ROUND PLINEPOS pPOSITIONMAXPOS `SIN 0COS 0ARCTAN `EXP 0LN SQRT @STRPOS `STRLTR66%%IMSTRRTRIMSTRRPT `STR 0LASTPOS pBINARY1 pOCTAL1 `HEX1 @6s NBa 1 u  `}~`@@ `e`}e`@@p A`D x  c 2 uJ@  J @AhHD//fZ `@AD x   e3 }/^tKGJ@  J @AhHD A`@D x      A@ Ag4 ~  @hH@88*A`@Dx    ?i(5 8oJFJ@ J @AhHDA`@Dx    x   ,x   66k8: J@ J 99'@hHAD`@ADx    09DGG@x p A0 A x   ;x   =??@Ax @  @p 0C@C@C@CDD!CCCC0m8EDGGE   @hH@`@@x J@  @ @0 x  p A0 A x   ;x   >>=?@?Ax   p 0CC>oD@@C@C@C@C0@C@C0oFH {  @hH@`@BBfV'%@x J@  @6x @  @AILx `}K} Bϩ} @@g`qhr}( ..a        P. n ##sNP p /`}K} Q p #n@@( mrs 0 BOC` ````` p  p ` AT@    x  @@  x  @@  x  @@  x  @@  x    XXf91@  x    x    ݀x    x   ```~RX,@@(du`` $061 & #"$%!,234-5./789N '()*+:<=>@ABCDFGHIKLMJ; ?@``#)02456j ( 08@HP` i v %0;FQ\kwE 00Ե5%#0"G'^& kP 0 -T @Dcl7660: 7699  MES102 . . . . . . 7664: 7668  MES11 . . . . . . 2662: 2634 7001  MES12 . . . . . . 3650: 2643  MES/PASCAL/CMP/CDS/MAN.REL:::5:4:102 644 0 0 2000 5300501636 35041 /PASCAL/CMP/CDS/MAN.REL:::5:4:102 !!$ 0fMAN REL +++ FST @@XVVPAS.GLOBALINFO92833-16185,REV.5000,870622 870622.1402/P1K/CMP/CDS/MAN.PAS@@~V>>X ILV&PASCOMP 92833-16185,REV.5000,870622 870622.1402 /P1K/CMP/CDS/MAN.PAS>!!+PAS.1 PAS.2 APAS.STOPPASCOMP !ff .SDSP EXECINITIALIZE_GLOBAPAS.CDS PAS.INITFILE PAS.INITIALIZE PAS.INITMEMINFO2 PAS.RETURNPARMS PAS.TOPOFSTACK2 PAS.TRACECLOSEREAD_OPTIONSSTART VMAST fUU@,  p P@0U@(BE..-7[b jZPascal: IFILE RESULTS_FILEOUTPUTPRR .@/PASCAL/CMP/CDS/MEX.REL:::5:66:128 644 0 0 41000 5300501637 36041 /PASCAL/CMP/CDS/MEX.REL:::5:66:128 ""$B 0BMEX REL +++B FST ;;X~ē2PSMEX 92833-16186,REV.5010,881021 881021.1619 /P1K/CMP/MEX.PAS;@`-~;;Xmē6'EXPORTER92833-16186,REV.5010,881021 881021.1619/P1K/CMP/MEX.PAS; &EXPORTER {{h.BLE.CFER .DAD!.DCO".DDE.DLD.DST#.EXIT0$.LBPR %.LBT.LDX&.LPX'.LPXR (.MW00 ).MW20 *.SBT+.SDSP BEGIN_EXPORT_RECCHCKB CONVERT_SUBRANGEDISPLAY_ID_AND_FDISPLAY_MODULE_I{}}-DISPLAY_STRUCTUREMIT_MODULE_RECOEND_EXPORT_RECOREXPORT_CHAR EXPORT_ID EXPORT_INTEGEREXPORT_ROOM FLUSH_CODE_BUFFEINT_CONST IS_CHAR IS_STRING PAC PAS.1 PAS.2 ,PAS.BITEXTRACT2 PAS.CDS }IIq-PAS.INLINEERROR PAS.REAL2ASCII.PAS.WRITESTRING REVERSE_EXPORT_LREVERSE_ID_LIST STRING_VALUETEXTFILEWRITELINE IooK@@J'  p  ((6` @(6'  ((.'@ A@&A&,(.@p (5' J ( 'x N0 N o@@@#+( tF0  J@@#+(F P0  T@@#+(P&& Z` p `@p ` @ @p  &VVj)'` p `@p`@ @(p p ` p `@p`@(( @6@ HH%p 0 8 8 (|Vm @@#.+`h)p (Z 3yP ``ALIAS ARRAY BASIC_STRING BOOLEAN BUFFERS CASE CHAR CONST DIRECT .. EMA_VAR END ``Error! ERROREXIT FILE FIXED_STRING FUNCTION HEAPPARMS IMPLEMENT INTEGER LINESIZE LONGREAL NIL NOABORT uu`XXOF  OFF PACKED PROCEDURE REAL RECORD SET STRING TEXT TYPE VAR uKK@p  (( @' 'P(Ʉ( '/( '@@ @ @(( ' ( @' P(( '@ "@@  ((@@ !@((' $| @ ( p o4 ` #+@@`p ( 1& A0 Q#@@#+p (44+ @ p  '(KA@ A&(p    4D K @@#+ (+vv U3-` P(cP(cP(cP(P(P((` (k` @ P (` P(zP(sP((` (` *(` +(vEE" h(`  (` ,((` #` P(` @ h E/ @@#+p p (URRk$ ` P'((Ȋ`@ (0 `@ hH  `@ (0  `@ hH  Rߣ@@#+p (%%Yl`pp p p`(pp %~~F<h6@ H%p`(` (0 -` p p`8 8(`(p` (0 -` p `(+` ((0 -` p ` (3 8 8(~46@@#+p( 7 66[#>.p` @@6J%P (Rp(T`p`@p6NW@<` @@6@H%P0(b(f@p(W` @@6J@H%P.(q(t`p`@ @pee`hAH( (xep` @@6@HH%pf0 fGGXw!8(8e(`@hAH( (xep` @@6@H%pf0 f8(8e(G))@@#o+ `h HAH/(pp p(>)QQں1-@'" (ׄ(2 &0@P ('$@( ((` L(` #Q @@#+p (FF*) `@ @`@ ( (1 `@ @`@p ` 7 F;0B<(`P(;P(kP(P((' (P' P(H(P` @(j' P(W(^` 3(jh@ &(' P(r(yBB};r'` 3(&(`45($P((B33S@'0x@`678(` #( hn3 Ш@@#+ `hHAH(( m 7 ssQ:4@' P(P((d!(((݈` 9( !(((눱` :( !(((` ;( !(((s~~nNB` ( ` @#(iJ!(((` A(c"@@ `@$<'"  (9(S`L '@ $@@  (L(R`~--JN$(3`$="  (i h-Ii @@#+(&&Bs`g(`>>&P`L &)@@# +`h@)@ (s 8uP \  Export simple type&&@ ((` 7 &'@ $@ (&J @@#+ (yyLD@ @((U@@ @@' ?.(` @$'A@hHAH(` @'C@AhHK('A@hH(@!( ( yzzp K=` @'C@AhHH(` @'  (-(5'?.(` $E` $<`  % F` $=` $H(zU@@#+(GTc @ (i(p`  o(w`  %Fw@@#+ (c~~PL`g(`77&` (( $ (('@" ($@('" ((!(ǀ(p @ @(('I(~ {( ~~zA; Kp (` (@'!(('Pp ` (` ( $'/( ` L'P("P()P(^P(rP(~RR)%P(P(P(0P(P (( ` j( $@' 'M@hH(` R@SE` @' 'O@hH(` ( $` @$Q'(` ( $` R` @S' '(@@`x77Y"( $` &` $T'M@@@'A`x7~~NTD` $U` S@' '@(@`x( $` V@' !F((` $T' @@&` $U( $` W'I~##! /(' @@`#?TD@'A`  %F` !( $` ' @ @(?(R' ` L` $E'A@@`  %F` $X` S'Mo@@@'A`V-TD( $'?/('@@`@'M`  %F( $`(` (;` K` @/'M   `(` ))U` @'$   )XX 6*` K` (` ( ` %` S'@ @@'(`x( $h}X""J $@@#'+`h@)@@@(" <P 7 , 7 Export structure  @DB@`@@@ ' Y'[  ( nxp @ p]  h 6p@ H`H*8 8( X@'[x `@ h @H '  ^.( `@ hH >>: H' ^-( `@ hH @H '  ^)( >&K G7`@ hH H`@ p` K`  `7 @' ^ .( ш` U` \' ^-( ` U` @4'--,  ^)( ` U` 6` K- @@#+( @  7 ##4 @`@ A@&@  hH #6 77`@ ( "`@ &` .( #hH`@ ( 4` @ p`@ ( 5hH`@ ( G`@ @A&`-( HhH~~  J88`@ ( Y` @ p`@ ( ZhH@( b( m@`@ A&.PhH @( v( @`@ A&.( ` ~$$X @p`@ ( hH $~~7 11`@ `@ ( `@( `@ ( @ hH `@ ( `@ hH H` @hH `@( `@ ~~~ //@ hHhH `@( Ҋ`@ hH H` @ hH`@( `@ hH H `@( `@ hH ~) H` @ hH((~  `@ p  ` #+`p ( & >4`@ @p  ` K`@ ( :` 7`@ ( +` a`@( 5`@( :` U`@( y`@( y55ҝ D`@( a` )` a` U` B5}} `B4( x` B` a` U` )( `@( ` B`@( ` a( `@( ` )`@( ` }H a` K+ @@#+( 00= @`@@@' b.p`( ` 0~~` H@@'2 ( ҈( $`$<`@ p@'2`@  ( ( `( ` ( ` `@ p`@ &$ p`7`~CCw "@ p`@ @A&$@@( `$=''P( -( L`$EC(( 3@'d&'@d@` %(~ L@@#+(  RJH@'P( Y( _'M( e` p'P( P( rP @( ( ' '(@@( ' @@@'(Jp( @J$@@`v WQ@'(( @ @ ` $T@ @( ( @@$@ @( ( $@@` L` $E@@$A@&@@$@A&"@@@'f!0( L( L&&p `( 3'@h H (`  & TL` @'@Ah HD('f@@A@ A&0@  HA"x#@A &0`#( L'@f@&` $X` @S'h( b@'`  ) Z @( 'f!F( ( jjq kA;@'@Ah H H(` @ 'f!0( ( `@( '` @@('( ( ( ` $'@(@( ` $Uj @@#&+ ( RJJ'k ,*@@  @'  /P( 먄P( ('@ @@' "' 2@@` J55 o (' @@@' 2@AhHH(`(h5[` @@#+ ( IC@ ((-`g('`>>&` @p @` (''P@(>(L'I(L@' .(b@' 'p'IpӶ[`~~.bC;@' 'P(k('.('`+p` @ @(' `+((4` K` ` @ (` ~]]+%a` K'`+h H `@L' 'P(P(ШP(P( P("P("((]QA` (p (`$j` (-`$j'@@` %(-`$E@'` %(-`$E'@@` %**H#!(-` M(-h` (6`$H*""}6@@#$+` h @)@p (" B/ PG YG Export identifier ,PNB`g([p'@@@  (h({@@$ @P&' (@@ (b`AP)'@?@ p `p p p @p ##n1@((@@$@@`7&#**@'((`>@ P/* @@#,+`khl7)(P `` &$, !"'' EL():; ^[] "= Il @7/PASCAL/CMP/CDS/MIM.REL:::5:65:128 644 0 0 40400 5300501641 35066 /PASCAL/CMP/CDS/MIM.REL:::5:65:128 ""$A 10AMIM REL +++A fFST ;;X3V/PSMIM 92833-16187,REV.5000,870621 870621.2358 /P1K/CMP/MIM.PAS;@3??Xg(V/ INTERNAL_IMPORTE92833-16187,REV.5000,870621 870621.2358/P1K/CMP/MIM.PAS?eINTERNAL_IMPORTE.DAD.DCO.DLD.DST.EXIT0.LBP.LBPR .LDX.LPX.LPXR .MW00 .MW20 .SDSP DISPLAY_ID_AND_F DISPLAY_MODULE_IENLAB ENTERID HAS_FILE_POINTER PAS.1 PAS.2 PAS.CDS PAS.WRITESTRING STRING_LITERAL_LUPDATE_FILE_LISTCA@ ((`@ ('P(P({(@ /(5@ x`@p (z PA(<(z @A@\\C0.PA(I(z @A@@ `@@`@`@ @@` `@ @`@`@ @@` ` \ctsLF @( ,@( p(@hH"P"@@`@ @@` `@ @`@`@ @@``@ .. @@`%`%  +(.^^6,`@p (x`@p ((0 ` g( ` ^@@'`h@@( 4P MoIi [w!LH@J ((('p ` (9@ /(@@0  (L(` ` @@ (F` g(` (o `!!//9,m (w `!!  `#"" @# /,,YB@ @(( @@`@  (,@@/`h@@(! 4P ;AExplicitImplicit internal (re)import of 88~j` g( `%%  ` m( ` 8 @@`&h'(449$$ &P4a9 Internal importer @??XzV41EXTERNAL_IMPORTE92833-16187,REV.5000,870621 870621.2358/P1K/CMP/MIM.PAS?kg EXTERNAL_IMPORTE}}g!.DAD".DCO#.DDE.DIV.DLD$.DMP%.DSB.DST&.EXIT0'.LBP(.LBPR ).LBT.LDX*.LPX+.LPXR ,.MB00 -.MW00 ..MW20 /.SBT0.SDSP CHCKB CLEAN_PATHCLOSE_IMPORT_FILENDOFLINE ENTERID }}}GERROR FILE_SEARCHINGFILE_TO_FILE_NAMIMPORT_CHECKINTERNAL_IMPORTE OPEN_IMPORT_FILEOUTID PAS.1 PAS.2 1PAS.BITDEPOSIT2 2PAS.BITEXTRACT2 3PAS.BLANKFILL PAS.CDS 4PAS.COMPAREBYTESPAS.DCBADDRESS2 }||ɶ5PAS.INLINEERROR PAS.MIN 6PAS.NEW2S 7PAS.SINGLEMOD 8PAS.WRITECHAR 9PAS.WRITEINTEGER:PAS.WRITESTRING POP_SDPOSITION_IMPORT_PUSH_SD READ_IMPORT_FILEREVERSE_EXPORT_LSET_IDENT_DEFAUL SET_TYPE_INFO | SHOULD_WARN SRCHS STRID WRITELINE ]p ` * 8+@@&0(|I5`@p `@ p   hH p `@ (W, `--+`  `..+`@ p  ` + `/+p (_@@W`@ P(](_p `@ (o`@ (o`@ P(o(@ 0o` &#0`hAJ0.`p ( 3TP} }} 78: Search file (FMP error ;77@(``@p `  -P((`  &P ((` ?P(P(P(P(P@((((((@(`((bbx,,`(( `(@(``@ ((@ hH ` g(` m((JP(  (((bѠ@4`@ (np p p ,1P((\` P((P(P(P($P(+P(2(9 `2+(? `3+(? `4+(? `HH/&5+(? `6+(? `7+` P(I `8+(\J  (O(V `9+H]]U5)(\ `:+` @@6@ HH)p `+8 8 @((( `;;+` (x ] ` &0`hAJ+.`p ( 4sP 'D- }}>x99p `@p ` @@ 6` @H)P (` p ` @@6H@ H)h6p @ HH` /( ` A@ (Ѐ h6@ Ί@H` /@ p (` p }@@&0( i bb31` @ A@ p9(r`0p   (` (h H @A@(;` @(;` @(;b4> DB@(H` @@@H6H)p ` @(:` @(:h  @@ @@ <!A@%> @( x(`@((h H @A@(P@(` @ @@O#!(n(p` A@p9(n@(Hx(` @r @@&@0p ('|B@` @p` Ψ@@p(`@@6@H)P (@(A @@(( x(``@@6H@H)p@(Hx@<<`p(44 @( `A@((݈p`p@p@<<A4=98(8(ͨ`pp`@@6`@@HH)p@p@ <<88(`@ @p` @@`` ux( ``@p` @@**q`` uA"B(%($p( `*+@@&0 p(|3 `DF@@(@GDUM@@(@` @ @@` ` @ p+I`AH-<@@!`KM@+< A=N@@!`PR@+N+Sx +U@+ NK@@(@@+@Wx@ WDBA@Y!@`@ @@` `@ @`@`@ @@`!` ,!+[6`@6AD.,+]` @+_x` (`P(`Pp N""S0Np ( p "a@@&#0p(3  `+@ a@ E;;Jp   (!(` (+ c'P(4+@ eJ (`@@``@ @``@@`!`@ @`#`@ @`%`mmT=7,!#%+@ NA*YP J(h(+ N'@6hH6g@ ({((+ [@6hH6.@ (((+ ]P (mttS;1`P(( `'hh+ ` i +`P(`PJ((+ _xN0 Np (  (̈`tu% @@&20`hL.p(w P ' Inconsistent module: 44v` @@@6`@ H@H)p `@ hH  4.` &0(<<t`@  y@h HHHx `@ hH H<.` &0(QQ<*$`p `p`(Ipp`A@(F`hH6p@H`/QFB:88(0`(T`p(Z`pPgp` @ pPgp`(m(|`@@6J@H)P (x(|@p(ip`A@(`AUUX,,@(h 6@H)p`@@6@HH)P((`p(~`A@(ǀ`A@(UE=`@@6@H)ph 6@H)@p(`@p`(`p`p h@ h  @ h H ` g m( `%ggEE/$+ `+ `j+ ` +(`@ hH H`@ E A`p o" `&-0` h AHZ.(   +% +Found module at ~~R\3C7` g m(` `kk+` @@p `+ `&dd+` @@@p `+p ` @@pp h   lh ~99jvH ` (|(` @ (` q(p `p9~D<`((`!p ` ((p `p(p (x` (䀈` (h #@ lh H ` @ (` q(p `pp ` ..((`((`!p @p(` p. ;`&00` h AJh.`p(3 9 P ""AIndex starts in block , Lindx was version "NN ` @ -P((` @&P(&` @-P(&(*` @  N*@@&0( XX[0("h H   8<` @ P(D(Kp `@  (Xp ` @ (Xph H XX ` &0`p (0n  8aA=p `@ @@`` (` `@ P (|(p ` ΆA@ (h6H@ H)ph6@ H)P((` p (~` ΆA@ p (p ( ` &0`p (aA  jjA/+`Z(%`q(%`@ P((܊`@ -P(͈(`@&P$((`@?p jC7` (`(`@ J  (`@ ((`@ (`q(`(`<` (`+(  (%p"hH X%@@&0(==+` p `  p  `  0 p  h6`6*,J` 8p . J /=A@@&0(+>  T|GIE@(x`A@(e@p @<](P Y (( YExternally imported module incorrectly terminated: (00d s` P( yP( ( ` ( ` O( x0 @@&0( sjjF*OO@N )DISXE?->< 0 ' &)  &/KMLj =y @ /PASCAL/CMP/CDS/MNU.REL:::5:78:128 644 0 0 47000 5300501642 36021 /PASCAL/CMP/CDS/MNU.REL:::5:78:128 ""$N 1tNMNU REL +++N&`FST ;;XSVPSMNU 92833-16188,REV.5000,870621 870622.0120 /P1K/CMP/MNU.PAS;@4S==Xe)VNUMDIGITS 92833-16188,REV.5000,870621 870622.0120 /P1K/CMP/MNU.PAS= NUMDIGITS b.EXIT0.SDSP PAS.1 PAS.2 PAS.CDS NN` @(p (` @(`p (` @(`p (` @(`p (`p NE ` p p (@t4<<XV NEWPAGE 92833-16188,REV.5000,870621 870622.0120 /P1K/CMP/MNU.PAS< NEWPAGE o \\ -r.EXIT0.LDX.MW20 .SDSP NUMDIGITS PAS.1 PAS.2 PAS.CDS PAS.TOPOFPAGE PAS.WRITECHAR PAS.WRITEINTEGER PAS.WRITELINE PAS.WRITESTRING \_zI5 `A@(`p`f(`````````==I!`````=II/j&``0p````p puI }@@ ` h ` h AH ( A  PPl Pascal/1000 Ver. 2/5000  9Page @Wv}==XbV WRITELINE 92833-16188,REV.5000,870621 870622.0120 /P1K/CMP/MNU.PAS=VWRITELINE ,,~.EXIT0.SDSP NEWPAGE PAS.1 PAS.2 PAS.CDS PAS.WRITELINE ,((O?p``p`A@( (C@@(@L>>X>WV SHOULD_WARN 92833-16188,REV.5000,870621 870622.0120 /P1K/CMP/MNU.PAS>5DSHOULD_WARN [[1` .DIN.DLD.DST .EXIT0.LDX .MW20 .SDSP ENDOFLINE NEWPAGE PAS.1 PAS.2 PAS.CDS PAS.WRITEDOUBLE PAS.WRITESTRING SOURCE_LINE [;@4` r [(p(B ) (` +` b(6`  - p `  N0 Np  ` u(%Pp ` - `` -J )  ) ^y@` bp bB`  `hAJ `p( DP)P *** Warning: @:Y;;XL%]VERROR 92833-16188,REV.5000,870621 870622.0120 /P1K/CMP/MNU.PAS; J7ERROR  P .DIN.DLD.DST .EXIT0 .LBPR .LDX .MW00 .MW20 .SDSP NEWPAGE PAS.1 PAS.2 PAS.CDS PAS.SETCLEARPAS.SETINIT PAS.SETUNIONPAS.WRITECHAR PAS.WRITEDOUBLE PAS.WRITEINTEGERPAS.WRITELINE aPAS.WRITESTRING SOURCE_LINE WRITELINE ~~?C=` r [((6` t(J  ((p (@ |p ` A(Jp  耈x @ p 0   0N`J@Np  `  J # (a~RRuC$` u(I`` c0 8(T p Qp P` p ` tJ(\ J %(apJ %` e(PRwOgI7p `` H(x0 `0 ` P ` JP #D  #p z` t(` H(0 ` 0 ` p ` ` H(0 `44< p `P ` p ` @ ` 4hC3P` m(ԋ(p n% P n p n+ @ n ` n  '(6` @(!` 0p J` p  x 0 PPM!&$  0N`@Np J `  (0`  p `  @p G0 G `  @h Pm:6 @@ l`hp (!!O ^  C!((SC ERROR **** Error in line **** Error in line (@֣;;X4VCHECK 92833-16188,REV.5000,870621 870622.0120 /P1K/CMP/MNU.PAS; 5CHECK  ""Ld.EXIT0.SDSP ERROR PAS.1 PAS.2 PAS.CDS "` (   @@p p (@ ;;X)VCHCKB 92833-16188,REV.5000,870621 870622.0120 /P1K/CMP/MNU.PAS; = CHCKB  ""Ld.EXIT0.SDSP ERROR PAS.1 PAS.2 PAS.CDS "/ ` (  ` p !! ` p p `p (!@X==X"VFULL_SIZE 92833-16188,REV.5000,870621 870622.0120 /P1K/CMP/MNU.PAS=FULL_SIZE .. 0.DAD.DLD.DST.EXIT0.LPXR .SDSP PAS.1 PAS.2 PAS.CDS .%%9@ h   @@ @ % @@ @  (  @==XVINT_CONST 92833-16188,REV.5000,870621 870622.0120 /P1K/CMP/MNU.PAS=INT_CONST .. %.DLD.DST.EXIT0.LDX.MW00 .SDSP PAS.1 PAS.2 PAS.CDS .4 ` ( h  @ ( @ @@ @ `AhH H(  @ڎN==XVGETBOUNDS 92833-16188,REV.5000,870621 870622.0120 /P1K/CMP/MNU.PAS=nGETBOUNDS PUUoZ.DAD .DCO.DLD.DST .EXIT0 .LBPR .LDX .LPX .LPXR .MW00 .SDSP INT_CONST PAS.1 PAS.2 PAS.CDS PAS.INLINEERROR UTIE@  @  @ @((@@ P(.DLD.DST.EXIT0.LPXR .SDSP CONVERT_SUBRANGEPAS.1 PAS.2 PAS.CDS 400. `@ @`@ @ @ @( Pp 0k= `  @@ `p (  @m̌;;X?&V%TEXTFILE92833-16188,REV.5000,870621 870622.0120/P1K/CMP/MNU.PAS; ATEXTFILE  .. ;.DCO.DLD.DST.EXIT0.LPXR .SDSP PAS.1 PAS.2 PAS.CDS .33L@ @(( P( ( @J((p 3k> `  @@ `p (  @;;XFV 'ORDER 92833-16188,REV.5000,870621 870622.0120 /P1K/CMP/MNU.PAS; @ORDER  00 P.DCO.DLD.DST.EXIT0 .SDSP FULL_SIZE PAS.1 PAS.2 PAS.CDS 0$$ݴ @J (( ( `p (@ x $k8 `  @@ `p (@6??X۹+V 'CNVT_SUB_OR_NUM_92833-16188,REV.5000,870621 870622.0120/P1K/CMP/MNU.PAS?~'&CNVT_SUB_OR_NUM_88 .DCO.DLD.DST.EXIT0 .LBPR .SDSP CONVERT_SUBRANGEPAS.1 PAS.2 PAS.CDS 8FF %#@@ @J( (( Jx @ (% ((%(%@ x  F_%@@ (@>==X%V!+IS_SIGNED 92833-16188,REV.5000,870621 870622.0120 /P1K/CMP/MNU.PAS=IS_SIGNED ,,.DLD.DST.EXIT0.SDSP GETBOUNDS PAS.1 PAS.2 PAS.CDS ,00S `@ @`@`@ @@`@@ p 0kD ` @@`p (@8\W>>XJ3V!,EQUIV_TYPES 92833-16188,REV.5000,870621 870622.0120 /P1K/CMP/MNU.PAS>D$EQUIV_TYPES // .DCO.DLD.DST.EXIT0 .SDSP PAS.1 PAS.2 PAS.CDS TEXTFILE/;;3"@p  (("@ @((" @ ( (@ (@ (!p ;""_"`  @@@ @ `p ("@p==X1V"1COMPTYPES 92833-16188,REV.5000,870621 870622.0120 /P1K/CMP/MNU.PAS=COMPTYPES _ GG ( .DCO.DLD.DST .EXIT0 .LPXR .SDSP CNVT_SUB_OR_NUM_EQUIV_TYPES IS_STRING PAS.1 PAS.2 PAS.CDS GtJ@@p  ((@ ((`@ @@`P`@ @@`P@ (5`(4` (6p ` (@ P(A(m  P@(H(m ;;J"  @@@(j (j(c  (j(ip ;ZZrl31( P(t(@ P({( @@@  @( (@ (p ` p Z""`1`   @@@@ `p (" @M;;XF">V#:ASSCO 92833-16188,REV.5000,870621 870622.0120 /P1K/CMP/MNU.PAS; _/ASSCO  YY .DCO.DLD .DSB.DST.EXIT0.LPXR .SDSP COMPTYPES EQUIV_TYPES GETBOUNDS INT_TYPE PAC PAS.1 PAS.2 PAS.CDS REAL_TYPE Y&&C@p  ((@ H`p &kI ` @@ `p (ҸJ@@p  ('(+@ (-(+P(G,(D, (Ep (+`(_p(Vp (^`(^p (+`(v`i(vloJ>@p (+P(}(@P((@p (+((@p ` ((@@`@ @@` `@@`@77G@`@@``@ @ `7VxLJ@@  @@@@  (p ( (((p (+P@((+P((+@@@ P(!@xP(( H$ ((('p (+` p ""`-` "@@@@`p (" @;;Xlg8V%>NEWLABEL92833-16188,REV.5000,870621 870622.0120/P1K/CMP/MNU.PAS; .1NEWLABEL //.DIV.EXIT0.SDSP ERROR PAS.1 PAS.2 PAS.CDS PAS.SINGLEMOD /xx!/+`@BpC(-`@Bp`@(-`BpC`B ApB`Bp`('0` p(-`P(+(-` p`px/ ``'p( #\  @ ??X mV%ESET_TYPE_INFO 92833-16188,REV.5000,870621 870622.0120 /P1K/CMP/MNU.PAS?+bSET_TYPE_INFO 33 a.DAD.DLD.DST.EXIT0.LBPR .LPXR .SDSP PAS.1 PAS.2 PAS.CDS 3}}2<<@@  @ ` `9(*`P((*`T(* (*` P (*  0  ``@p(5 @  ``}FF<%%p x@ @ x@ A@ @@@FVa @@  p ( @d$??X#V'MSET_IDENT_DEFAUL92833-16188,REV.5000,870621 870622.0120/P1K/CMP/MNU.PAS?LSET_IDENT_DEFAULDD (e.DAD.DLD.DST.EXIT0.LBPR .LPXR .SDSP PAS.1 PAS.2 PAS.BITINDEX2 PAS.BITMASK0PAS.CDS DXV@@  @ @ x@ @ x@ @ x@ @ x@ @ x@ @ x@ @  A@@ @`p@33X@`x ,HH@ @`x ,H@ 3~~q@@@`@x ,H@   xG0 G` P(P(„( @` x @@ @ @ @ ~GG8''@ @ x@ ( x  x  G @ x@ @ !x@ (  @@  p (33(## &3@Zy==Xp nV(UEXPORT_CHECK92833-16188,REV.5000,870621 870622.0120/P1K/CMP/MNU.PAS=ZeEXPORT_CHECK66 {.DLD.DST.EXIT0.LBPR .LPXR .SDSP PAS.1 PAS.2 PAS.CDS PAS.NEW2S 6$DB`P((d`P( P( P( (d@@  `P([`@ @`  x@@ Jxx  @@i8D 0@ xA@ pO0O x(d@?d @@  ( @O>>XIhV(VCOMPILER_LEVEL92833-16188,REV.5000,870621 870622.0120/P1K/CMP/MNU.PAS>  COMPILER_LEVEL b.EXIT0.SDSP PAS.1 PAS.2 PAS.CDS ` @p @ ` p `p (@9??Xr yV)YFEATURE_LEVEL 92833-16188,REV.5000,870621 870622.0120 /P1K/CMP/MNU.PAS?MFEATURE_LEVEL HH T.EXIT0.LDX .MW20 .SDSP COMPILER_LEVELPAS.1 PAS.2 ((PAS.CDS PAS.WRITESTRING SHOULD_WARN WRITELINE H~~_OI9`[(L0 (L@(L`` P(P('P(0(9`(A`#(A`)(A`,`0~ ^IP kL @@4 `h p (   Y//%Y This feature is ANSI standard HP standard HP1000Unknown Pascal /@e%??X%V*ZCST_EXPR_FEATURE92833-16188,REV.5000,870621 870622.0120/P1K/CMP/MNU.PAS?[ CST_EXPR_FEATURE?? .DLD.DST.EXIT0.LPX .LPXR .SDSP FEATURE_LEVEL PAS.1 PAS.2 PAS.BITMASK1PAS.CDS ?22,@  ,HH@ ( @AP!(@2?p @@  (9 Y@b灧??XAV*[FLUSH_CODE_BUFFE92833-16188,REV.5000,870621 870622.0120/P1K/CMP/MNU.PAS?H<FLUSH_CODE_BUFFEFF 7.DAD.DST.EXIT0.LBPR .LPXR .MPY .SDSP PAS.1 PAS.2 PAS.CDS PAS.WRITELINE PAS.WRITESTRING Fqq;3`/((p pA@@0  x  x R  R88 (`/@(9RR(9p/qs;@@ ( P ) @_;;XJ$V+[START 92833-16188,REV.5000,870621 870622.0120 /P1K/CMP/MNU.PAS; N START 44~.EXIT0.SDSP COMPILE_PROGRAM INITIALIZEPAS.1 PAS.2 PAS.CDS SUMMARY 4 0@ > @@(@B/PASCAL/CMP/CDS/NFS.REL:::5:27:128 644 0 0 15400 5300501644 35240 /PASCAL/CMP/CDS/NFS.REL:::5:27:128 ""$ 1NFS REL +++ XNFST ;;XNV#PSNFS 92833-16189,REV.5000,870621 870622.0124 /P1K/CMP/NFS.PAS;@/N??Xz+V#OPEN_IMPORT_FILE92833-16189,REV.5000,870621 870622.0124/P1K/CMP/NFS.PAS?zOPEN_IMPORT_FILE :: V.DST.EXIT0 .LBPR .LDX .MW20 .SDSP FMPOPEN PAS.1 PAS.2 PAS.CDS STRDSC:33^P8@ P@ J x@ `p 3c `  `hAH () )ROSX @s3??XZ"V$READ_IMPORT_FILE92833-16189,REV.5000,870621 870622.0124/P1K/CMP/NFS.PAS?xREAD_IMPORT_FILE ,,.DIV.EXIT0.LBPR .SDSP FMPREAD PAS.1 PAS.2 PAS.CDS ,66Jx 0 p ` (`  (` ` p 6$` (   @vQ??Xx%V%POSITION_IMPORT_92833-16189,REV.5000,870621 870622.0124/P1K/CMP/NFS.PAS?POSITION_IMPORT_ ;; /.DAD.DLD.DMP.DST .EXIT0 .LBPR .SDSP FMPSETPOSITIONPAS.1 PAS.2 PAS.CDS ;'' J x   @ ` p ' _`   @@@@ ( F @|??XgV%CLOSE_IMPORT_FIL92833-16189,REV.5000,870621 870622.0124/P1K/CMP/NFS.PAS?o  CLOSE_IMPORT_FIL (([.EXIT0.LBPR .SDSP FMPCLOSEPAS.1 PAS.2 PAS.CDS ( Jx  `p $ ` (@i<<X8V& CLEAN_PATH92833-16189,REV.5000,870621 870622.0124/P1K/CMP/NFS.PAS<^CLEAN_PATH0kk .DST .EXIT0 .LBPR .LDX .MW00 .SDSP FMPBUILDPATHFMPHIERARCHNAME FMPPARSEPATH PAS.1 PAS.2 PAS.BITEXTRACT2 PAS.BLANKFILL PAS.CDS PAS.INLINEERROR STRDSCkTXFp@!pc@pC@p@p@p#@` ! `P(GP(HP(HP(e(~(#cZX `P(\(d(4eSEC#(hppp@p  xp !P ! `P((@!@ `@@ @(( //HxP ((  Hx@ `/ G( $$=@@   `h HAH p p($ 5@  @??XcV' FILE_TO_FILE_NAM92833-16189,REV.5000,870621 870622.0124/P1K/CMP/NFS.PAS?VFILE_TO_FILE_NAM11r.EXIT0.LBPR .SDSP CLEAN_PATHPAS.1 PAS.2 PAS.CDS PAS.FILENAMR1ٹ @x 0 j@@5 ( @ @C@@X V( OPEN_ERROR_FILE 92833-16189,REV.5000,870621 870622.0124 /P1K/CMP/NFS.PAS@eOPEN_ERROR_FILE EE `[.EXIT0.LBPR .LDX.MW20 .SDSP PAS.1 PAS.2 PAS.CDS PAS.RESET_FILE PAS.WRITESTRING WRITELINE E~~YJ: @p!x `@"p   0`! (ap!@x `@+p    3`!(a0```"0`~..hJ``+0`!p .((_Pc` 6 `hAH`h `p ((<  PvP0**vCan't find error list file: PASCAL.ERR::SYSTEM"PERRS::0 *SHAREDSHARED@S>>X]V)FILE_SEARCHING92833-16189,REV.5000,870621 870622.0124/P1K/CMP/NFS.PAS>"FILE_SEARCHING {{.DST .EXIT0 .LBPR .LBT.LDX.MW20 .SBT.SDSP CLEAN_PATHCURSTR_TO_PATHFMPWORKINGDIR PAS.1 PAS.2 PAS.BLANKFILL PAS.CDS PAS.INLINEERROR PAS.WRITECHAR PAS.WRITESTRING STRDSC{ UmWRITELINE 0::` 8@ p`@A@(p (Kp `@  ` 8A@@(C`@ p` A@(C` 8p 8h6`@ H@H h 6p @ 8H` )) :H`@ hH  (@  8)w"K `  `p ( 7   811Tp p @ P(fP(P( P(-P(B(N1~~LfC? `@@`@0`@ @@`202(`@@`0`@ @` 2@ 02` A(`@@6 P/(` A @(`@@@6 ~NNC$"P#((`@@6 J @(Ҋ`@@6  @(`@@ J6H P/((p NiG;@ `(@  8`Mp  `(@ `(S` Pp ` ( p 8`@Mp  `(S` (: CC! ` p 8("?  ` p 8`Mp @ `(SE  CLR5@8`p 8`@Mp  `(S(Ip p (Sh ` (V` 8 h@AH(` (mx4p h6@ H` 8 (k84(b` i(@ `G'' {u @ `  80 ` p'$$`  I`hAHp `p (T$!!@ " P 8 :!/INCLUDES//LIBRARIES/ /0/ FS "@Ml/PASCAL/CMP/CDS/OPT.REL:::5:71:128 644 0 0 43400 5300501645 35643 /PASCAL/CMP/CDS/OPT.REL:::5:71:128 ""$G 1GOPT REL +++G#:sFST ((;;XUV(PSOPT 92833-16190,REV.5000,870621 870622.0127 /P1K/CMP/OPT.PAS;@6U@@X?V(COMPRESS_CURSTR 92833-16190,REV.5000,870621 870622.0127 /P1K/CMP/OPT.PAS@r:COMPRESS_CURSTR %%C.EXIT0.LBT.SBT.SDSP PAS.1 PAS.2 PAS.CDS %uu99p p`A@ ($h6@ Hp ` P ( `ph6@H` ` p (`p`A @(9`ph6@H` (&um9@@( 7 @^}<<X kV) DO_INCLUDE92833-16190,REV.5000,870621 870622.0127/P1K/CMP/OPT.PAS<edDO_INCLUDEii.DST.EXIT0.SDSP ENDOFLINE ERROR FEATURE_LEVEL FILE_SEARCHINGFILE_TO_FILE_NAMINIT_SOURCE NEXTCHOPEN_SOURCE PAS.1 PAS.2 PAS.CDS POP_SDPUSH_SD ikB4`(` p ` O0 Op 0#p!p `!(7 `@ @`@  (7p!P(!`!(Bpp!`p(cLLB!@#` /(U` p `p(``} @|([(^p(` p`LFc@@p ( €#8@??X V* DO_SEARCH_STRING92833-16190,REV.5000,870621 870622.0127/P1K/CMP/OPT.PAS?ZDO_SEARCH_STRINGVVB .DAD.DLD.DST .EXIT0 .LBPR .LBT.LDX .LPXR .MB00 .SDSP CHCKB COMPRESS_CURSTR PAS.1 PAS.2 PAS.CDS PAS.NEW2S V77" @@ @@    x   `@@ p  @@ 7e"@@ (zzAU(G? @p`( ` (P`(C( (O`# (xh 6 P+(U(x  (x @ (p  `#zWW o88(w @@ (U   6A` 6D @`   ((  @  (Wڬ@@ p ((tR NKL7@1??X V+ DO_INTERNAL_OPTI92833-16190,REV.5000,870621 870622.0127/P1K/CMP/OPT.PAS?XDO_INTERNAL_OPTIw!!B.EXIT0.LBT.SDSP PAS.1 PAS.2 PAS.CDS !22` (rp `(ip p h6J@ HP+(>XF [V/KCOM_OPTIONS 92833-16190,REV.5000,870621 870622.0127 /P1K/CMP/OPT.PAS>g COM_OPTIONS _.DCO.DLD.DMP.DNG.DST.EXIT0.LBT.LDX.LPXR .MB00 .MPY!.MW00 ".MW20 #.SBT$.SDSP CHCKB CHCKI CHECK COMPRESS_CURSTR DO_INCLUDEDO_INTERNAL_OPTIDO_SEARCH_STRINGENDOFLINE }}vERROR FEATURE_LEVEL INSYMBOLINT_CONST NEWPAGE NEXTCHPAS.1 PAS.2 %PAS.BLANKFILL &PAS.BOUNDINTEGERPAS.CDS 'PAS.COMPAREBYTES(PAS.INLINEERROR PAS.UPSHIFTALPHA)PAS.WRITECHAR *PAS.WRITESTRING } SAVE_GLOBAL_OPTI SHOULD_WARN WRITELINE ~~>2` (S` @ ( 0 (S(S``2P($P(-P(-P(A(J`(P` @(8``~11.M>(P`7(P`` p 1))U` &$`hAH"p p `p () 3CPg gOption argument is invalid: ߧu99`@ `@ `@p p `@(`pp h6H@ HhH 6p@ H`#8 8(`@@(` (̊`@ZDD$p`@p`@@6`@ 6p ((Ā(p (ˊ`@hH (D:?1` ((`]``2P((`3P ((p `@ `@ `@ `2P( (%`3WW &"P((`@`3P(%`2P(`2Ppp `2(\h6POhHW4!177`@([`P(:(Mh6 JPF(A(Mh6HPF(H(M`@ ([`P(Q(Wh6 PNhH(`2P(`(z`@ ^^ Rh/+4 @`@p(`2P(~(`@A@`!J!`p `A@ (h6@ @H` #^~~m22` p ((`2P(`@ ` ("`A@Zp`@p`@@hH `A@Zp`@p`@@P(P(P(~nn93-P( (`@ p`W"p ("`@ (`2Pp`W#p ("`2(`@p`W$p ( nmm3-`@ p`W"p ("`@ (`2Pp`Wp ("h` (-`[(,`@P2p m((do/` i$`hAH%"`h&"`p (u(47B]NB Option not recognized: N@N`` ALIAS ANSI ASMB AUTOOPEN AUTOPAGE BASIC_STRING BUFFERS CDS CODE CODE_CONSTAN``TSCODE_INFO CODE_OFFSETS Continue DEBUG DIRECT EMA EMA_VAR ERROREXIT FAST_REAL_OUT FIXED_STRING HEAP_D``ISPOSE HEAP_VAR HEAP HEAPPARMS IDSIZE IMAGE INCLUDE INCLUDE_DEPTH INTERNAL_DEBUGKEEPASMB LINE_INFO #n``LINESIZE LINES LIST LIST_CODE MIX NOABORT PAGE PARTIAL_EVAL PASCAL PRIVATE_TYPES RANGE s`` RECURSIVE RESULTS RUN_STRING SEARCH SEGMENT SEGMENTED SINGLE_ARITH SKIP_TEXT SMALL_TEMPS STANDARD_LEVELSTATS j.`` SUBPROGRAM SUBTITLE TABLES TITLE TRACE TRACE_BACK WARN WIDTH WORK   N `@`'!(٨@@ 6f P aC55(((+(Y(^(c(y(((((߈(((((l(q(x(}((((((G((ʈ( (($(V()((((((((((( ( Z( ( ( ߈( ( ( ( #( RR$ ( ( ( ( ( 3( c( r( w( ( `(hH`0 p ` )(`@(hHR*86`@(`@  (p0`p p h 6@ Hp  h 6p @ H` H#8 8 ((p0( 芊`@ p1`1((p(*`p( `q[[,-) p ` ((X`@ (P`p p h 6@ Hh 6p @ H` #8 8 (>(XP*v#( [AkY97`@ p2( `@ p3( `@ (k`> (lp ` +(x`@ p4( `@ (`@p  @ `@@A,((`@@@aai.(.(p `W "(`@p~( `q p ` ((`@ pM`M(`P(((a60`00p( `@ PpQ( 芊`@ p5( `@ Jp((6( `@ Jp7( `@ Pp8( `q p ` ((`uu3-@ Pp9( `(p:( `q p ` (hH`x p ` )(`@(hH`@(k`@ (AuP*)<8`p p h 6H@ Hh 6p @ HH` #8 8 (0`@ (a`(a`P(M(ih 6JP0(S(ih 6 P,(Z(ih J6HP0(a(iP^^e)%*12 px( `@ p;( `(p<( `@ p=( `@ (`4 (p ` +(^95`@ p>( `? p ` )hH`q p ` ((`@(hH`@(`@ (`@p   p?`@ff?1/A,((A3((A5((Ӏ(pB( p(`p ((7x 5 9`(`W,"p?f75`?(`@p؊( `q p ` ((`@ p@( `@ pC( `@ pA( 芀`@ (&`@p A@; @`@A3(.(6`mm /73@;(5p `W "(F`@p( `@ (g`@(Z`@=(Yp `W "hHm=f:6(r`@ `@p @ `q p ` ((`@(hH`@(`@p( `@ (` p ` ((`]]/)@"p ` ?(hH `@ (`@A@p ` "hH ( 芀`@ (]=9`@p @ `@(`@B(p `W "hH`q p ` ((`@(hH`@( `@p]]u )%( `@ p ` ( `q p ` (pF`F(#pL( 芊`@ pH( `@ (5`@p D ]5@>@`@AF(=(E@`@A=(Dp `W "(U`@p( `@ (b`@p H `@3(j(r`@J(qp `gg u)'W "(`@p( 芊`@ JpI`I(` . (` -(` 0@p ( `@ JpKg}}q<4( `@ pL( `(pO( `I(@( `@ pY( `2P ((pSh6` 6AH ( pS(  p ` (hH}ooGZ.*`T p ` )(芈`@(hH`@(pT`p( `@ pU( `@ pV( ` (hHoG <8`mp ` )( `@( hH`@( Y`@ ( W `@A@p `W "hH`@( V`pm`p zzP D<:p h 6H@ Hh6p @ HH` #8 8 ( E( Ypm( `@ ( f`A@p L@ `@@( t@`@A=( sp `W "hHzw <4`q p ` (( `@( hH`@( `@p( `@ p p ( `q p ` (( `( Ѡ`M( p( UU0p -!`00( ʪ `pp !( `P( ( 0)( 0+( `q p ` (( U :8`@ pX( `@ pZ( `@ p[( `@ ( `@p N `@( `@P( p `W "( "`@p( XXѰ #+'`@ ( Z`A @( O`p p h 6@ Hp  hH6p @ H` #8 8 ( 7X N<8( Y`@@6`@-6AH8 ( d`@@6`@068 `@6hH36A8p ( r ( w( wp1`p( `@6hH668p ( ( ( p1`p( ``w /)`@6hAH968p ( ( ( p1p( `@6hH<68p ( ( ( p1p( `W,"( `f ?5( `q p ` (p\( `q p ` (( `( pp !( `P( ( 0)( 0+( `p p `@ ( h 6@ Hhhhݺ //6p @ HH` #( h6@ HH` #8 8 ( ( `@ p]( `p p `@ ( (h 6H@ Hh6p @ @H` #h ~ '=;( /h6@ H` #8 8 ( ( 芀`@ ( ?`@p @  @`@( M`@@A.( Lp `W "( b`@p`p^( `qww' d:6 p ` (( q`@ p`( 芊`@ pb( `@ ( `@p L `@R( ( `@;( p `W "( w3 <8`@ p`@}( ( `p}`( `}@| ( ( p( `@ ( `@p T ` (( `@@ p `W "$$ ( `@@xE( 0V$  @@?$`hW"`hAHX"( ++W 7nvM P P *+## SEGMENT is treated as SUBPROGRAM with CDS ON#""g +32,1 ERROR!HP HP1000HP iso ANSI " 'G7 6p p `2pp6`2( ` 0 ( `1( R` ` ( X`r( ^p ( ` ( o`2P ( f`2P ppY## n ( `2P ( t`2P pPY#QQ> |)`2( 06`2( `r( ( `r p ( ?` (  ( `r( ( prQC @@"$( 'ZZ7BB-?i @>R,  d8}PZ %Z @ډI}M(---&-2k}`PPsmQP DE_R㴑SI}TUUVe`s eWm}^/"<M~HJ/PASCAL/CMP/CDS/PASCAL.REL:::5:168:128 644 0 0 124000 5300501647 36533 /PASCAL/CMP/CDS/PASCAL.REL:::5:168:128 &&$ 2(PASCAL REL +++S{FST @@XW .PAS.GLOBALINFO92833-16191,REV.5000,870623 870623.2308/P1K/CMP/PASCAL.PAS @@==X0(/W /IS_EMPTY92833-16191,REV.5000,870623 870623.2308/P1K/CMP/PASCAL.PAS = L$IS_EMPTY  77 .DLD.DST.EXIT0.LBPR .SDSP PAS.1 PAS.2 PAS.3 PAS.CDS PAS.STRRTRIM7;;" SIS_EMPTY#`@#@` h`   p ;!!+." ` `H `p (!  @??Xɘ#W 0HANDLE_EMPTY92833-16191,REV.5000,870623 870623.2308/P1K/CMP/PASCAL.PAS ?MHANDLE_EMPTY00.DST.EXIT0.SDSP PAS.1 PAS.2 PAS.3 PAS.CDS PAS.STRAPPENDPAC0,,PSHANDLE_EMPTY(h`@  ,$ @#`@H(    @JXiAAXSb\W 0 SAFEAPPENDSTRING92833-16191,REV.5000,870623 870623.2308/P1K/CMP/PASCAL.PAS AoOSAFEAPPENDSTRING :: .DLD.DST.EXIT0.SDSP PAS.1 PAS.2 PAS.3 PAS.CDS PAS.STR PAS.STRAPPENDSTR:PJFSSAFEAPPENDSTRINGp`@p h @p ` A@ p` A@ (((-` p h`(` @(@`h `  EJ %%M ``H p `p( %  @[z@@XAW 1 SAFEAPPENDCHAR92833-16191,REV.5000,870623 870623.2308/P1K/CMP/PASCAL.PAS @4SAFEAPPENDCHAR << /.DST.EXIT0.SBT.SDSP PAS.1 PAS.2 PAS.3 PAS.CDS PAS.SETSTRLEN PAS.STRRANGER <UU2.SSAFEAPPENDCHARp `A@ (0h `  h `  ` @p (2p U%%;2 ` '`Hp `p ( %   @*>>Xm .W 2SPLIT_FILE92833-16191,REV.5000,870623 870623.2308/P1K/CMP/PASCAL.PAS >i%SPLIT_FILEVV E.DLD.DST .EXIT0 .SDSP FMPPARSEPATHHANDLE_EMPTYPAS.1 PAS.2 PAS.3 PAS.CDS PAS.FIXEDSTRING PAS.STRAPPENDSTR PAS.STRRTRIMVw75SSPLIT_FILE`p ` @n p ` h@@ ` @'p ` h@`@ ` h@`@ ` @" p ` h` ` @Lp ` h@`@ ` L7@6@np h `@   ` @'p@h`h `` @"ph` ` @&p` @Ip ` @Jp!` @Kp"` @Lp#%%Ow@h#`$ $&P  !"&%LDA@( `@(@`@ ` @' @@`  ` @'p  h `  (`@(@` h `   h `  DDO$ (`@(@` ` @"@`  ` @"p A@ @h `  DHH'#A@( `@(@`@ ` @L @@`  ` @Lp  h `  H\$ @ K`@H (} @+,-. @1uP5>>X^W 3'MERGE_FILE92833-16191,REV.5000,870623 870623.2308/P1K/CMP/PASCAL.PAS >Z MERGE_FILEMVV -.DLD.DST .EXIT0 .SDSP FMPBUILDPATHHANDLE_EMPTYPAS.1 PAS.2 PAS.3 PAS.CDS PAS.FIXEDSTRING PAS.STRAPPENDSTR PAS.STRRTRIMV>6SMERGE_FILE`p ` @' p ` h@@ ` h@@ ` @"p ` h@ ` @L p ` h@@ ` @np ` h@`@ ` @n>@6p h `  ` @'ph `h `@` @"p@h` ` @&p` @Ip ` @Jp!` @Kp"` @Lp#h###~ `$$&P  !"&#HHl'#A@( `@(@`@ ` @n @@`  ` @np  h `  H @ K`@H (X@J@?>>Xa@W 4-CLEAN_PATH92833-16191,REV.5000,870623 870623.2308/P1K/CMP/PASCAL.PAS >^ 3CLEAN_PATH44 .EXIT0.MPY .SDSP MERGE_FILEPAS.1 PAS.2 PAS.3 PAS.CDS SPLIT_FILE4cc/2.SCLEAN_PATH` @ p @ `@ @p ` (` @& ` @I ` @J ` @K `@ @p 0 c""2@&`@H p p (" ?v @A??X+W 41DISPLAY_FILE92833-16191,REV.5000,870623 870623.2308/P1K/CMP/PASCAL.PAS ?\ DISPLAY_FILE99 .DST.EXIT0.MPY .SDSP CLEAN_PATHPAS.1 PAS.2 PAS.3 PAS.CDS PAS.WRITESTR988 SDISPLAY_FILE @ ` @@np h `@  8  @$`@H p (  Hfv @==XW 5=ERROR 92833-16191,REV.5000,870623 870623.2308 /P1K/CMP/PASCAL.PAS = Q[ERROR  oo.EXIT0.LDX.MPY .MW20 .SDSP DISPLAY_FILEPAS.1 PAS.2 PAS.3 PAS.BITMASK1 PAS.BOUNDINTEGERPAS.CDS PAS.INLINEERROR PAS.WRITECHAR PAS.WRITELINE PAS.WRITESTRING ooo:6SERROR `p` ,HH@ (`((` ,H@ (Z` @@(Z` !(G@o 1P: ^^L:2*(H(Q(Z(c(l(u(~(((((((%(.(º7(B(^9lO=S([ (b (i (ºp  ( ( ((º  --! (h` ,HH@ (/-D8` P(P(P(P(P(P( (((((((MM( h @ `@ @@ (V` P(5P(>(G(LM33F>(Lh p3**Z@`@H `h p p (*++5 !   vPm%+|m``Invalid default onDuplicate name forInvalid extension for Can't fixup debug information for Invalid name forOpen error on Purge error onRead error on Too many run string options for Run stringff5LL overflow toInvalid security code for Invalid type forWrite error onsourcelisting relocatable optionassemblyrun string options file: compilassembl er. f@!S@@@XW 7FSCHEDULE_ERROR92833-16191,REV.5000,870623 870623.2308/P1K/CMP/PASCAL.PAS @SCHEDULE_ERRORnzz1.DLD.DST .EXIT0.LDX.MPY .MW00 .MW20 .SDSP FMPERROR PAS.1 PAS.2 PAS.3 PAS.CDS PAS.FIXEDSTRING PAS.STRAPPENDSTRPAS.STRRTRIMPAS.WRITECHAR PAS.WRITEINTEGERPAS.WRITELINE z-PAS.WRITESTRPAS.WRITESTRING LE;SSCHEDULE_ERRORP ` @@nph`@@ P )@` @@p  P 2`@p $`@@p #`BBE(  @@p `A@:`@: @@`AJ #BVV޸m."@  # @` @@P((P 3    0 V11@ ]`@H `h  p `hH   ( 1##.@)]  #)#ך scheduling error ( [Exit status @sBBXdFW 7JSCHEDULE_FAILED 92833-16191,REV.5000,870623 870623.2308 /P1K/CMP/PASCAL.PAS B?5SCHEDULE_FAILED 44 .EXIT0.LDX.MW00 .SDSP PAS.1 PAS.2 PAS.3 PAS.CDS SCHEDULE_ERROR4bb8 4,SSCHEDULE_FAI LED `/P((0 (4` ("`P(("0 (4`/P(&(+0 `P(/(40 b))&b4@*`@H p `AhH H( )  @VTu??X7EW 8[MAKE_SCRATCH92833-16191,REV.5000,870623 870623.2308/P1K/CMP/PASCAL.PAS ?].MAKE_SCRATCHyy.DLD.DST.EXIT0.LBT.LDX.MPY.MW20 .SBT.SDSP FMPCLOSE FMPOPEN FMPUNIQUENAME MERGE_FILE PAS.1 PAS.2 PAS.3 PAS.CDS PAS.FIXEDSTRING PAS.STRAPPENDPACPAS.STRAPPENDSTRyyPAS.STRRANGER SPLIT_FILE @>SMAKE_SCRATCH @` @p ` p`@np` h@@` @pp` t(Z` @h`A@'p@A@`@ @@`` @ @`UU@0*@P`@"ph` P(p` @ `@'ph` @&UpD<`@Jh `@Ih`h@`@` t(+`@+@ `@(@h`0h `0A(@+`@+ @@`MMu/%@  h` 0@h` 0h6H hp `` `@MA((D:`h@`` @p``@p`@nph `0A@`@ @@`@*  h` 0  `@P'(x  **y-@N`@H`hp p ( *&&@P  vP  @&&,@/0/ PAS CW@+1AAXMW :`COMPILER_OPTIONS92833-16191,REV.5000,870623 870623.2308/P1K/CMP/PASCAL.PAS AICOMPILER_OPTIONSYyyNT .EXIT0.LDX .MW20 .SDSP ERROR MAKE_SCRATCH PAS.1 PAS.2 PAS.3 PAS.CDS PAS.CLOSEFILE PAS.INITFILEPAS.REWRITE_FILEPAS.SPARAMETERS PAS.STRRANGER PAS.VALIDSTRING PAS.WRITELINE y*-PAS.WRITESTRSAFEAPPENDCHARSAFEAPPENDSTRING}>8SCOMPILER_OPTIONSpp p `p 1p 0`@  p `p Fp Ep ` ($(Z` 0(=P$(<`(:`p 1P 0(;p(J`oo b>40(H`p 1P 0(Ip`(X`p 1`p F` 0 E(Yp` p ` (c`(`(o` 0p`A@po]]r9+`(` 0(y(0` p ` (   @  0 0  (@ ];;}# @ `@H `h  `hAK    ( ;00h$,()jZ E   P 0P0 8OPTS vNOCCTL @`v6??X W ;vINIT_FILE 92833-16191,REV.5000,870623 870623.2308 /P1K/CMP/PASCAL.PAS ?bINIT_FILE -mmm.DLD.DST .EXIT0.LDX.MPY.MW00 .SDSP COMPILER_OPTIONSMERGE_FILE PAS.1 PAS.2 PAS.3 PAS.CDS PAS.INLINEERROR PAS.SPARAMETERS PAS.STRAPPENDPACSPLIT_FILEmqgA?SINIT_FILE ` @ p ` p ` P(SP((n` 5(!` 6(!h ` (Rh ` ` @I ` @J ` @KA @ h `@  HH0A$ ` @"p` h` @ p (` @nph `  He<8` @ ` @h  (` @npA@@h`  ` @ ` @ ` @ @` @ p` @ ` @ ` @ kk)+)` P(P(P(P(P(P((` P((` u@(` @ p ` @  p ` @n p ` h@ p "k ) ((` u(`(hw  @ $`@Hp (g@ @-FN0 T v  @9X>>Xd$_W PARSE_FILE92833-16191,REV.5000,870623 870623.2308/P1K/CMP/PASCAL.PAS >]1PARSE_FILEyy' .DLD.DST.EXIT0.LDX.MPY.MW00 .MW20 .SDSP DECIMALTOINTERROR FMPCLOSE FMPOPEN MERGE_FILEPAS.1 PAS.2 PAS.3 PAS.CDS PAS.FIXEDSTRING PAS.SETSTRLEN PAS.STRAPPENDPACyKKWPAS.STRAPPENDSTRPAS.STRRANGER PAS.WRITEENUM PAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRPAS.WRITESTRING SPLIT_FILEK%G;SPARSE_FILE`@p`p`(,`@nph ``@p`@np@h` 0 hVVG&$H` (U`@ `@ (`@ P(](ih`@pP-hHV7mA;`@'pp ` (v@(`@p` A @(`@' @@`pP#((`@'@` p@( `@'@`@p@QQ%#(`@' @@`pP/hH`@(`@h(`@@`A@QjJBA@؊ `@؂@`@`@6 @@`` A@ `@@`@`A @6`@6 @@`P  pX`@@` p P/p ;;'p p ` A@ (>`@@` p P/(7(:` p ;e:H>` p ( `@p` @p`@@ `@1`@1@` Pp `@}@`@0`@@ `Ph`__ 9+@0  `( `@}@`@} _.95` (`@h (`@(`A@ (؀` (`@ `(`@(슨`@h (`t(`@h`jj<.(0`@p`@p`@pj&&0@`@H`hp(&66D_$$@   vPAFALSE TRUE 6--'AUser: DIR DSRODirectory: , Open: Parse: lu , dash , ftype -@k+==X{W FIX_FILE92833-16191,REV.5000,870623 870623.2308/P1K/CMP/PASCAL.PAS = FIX_FILE eeI.DLD.DST .EXIT0 .LBT.MPY.SBT.SDSP ERROR IS_EMPTYMERGE_FILE PAS.1 PAS.2 PAS.3 PAS.CDS PAS.STRAPPENDSTRPAS.STRRANGER SAFEAPPENDSTRINGelSFIX_FILEbbҲ.,SLEGAL_DEFAULT ` @p ` p` 0 0 ((` P((` !P($()` @Pp ` (3P ` p b%%W5 `  '`Hp `p (% C v PPD!!SFIX_ NAME`@ @p ` p` P(\P(\P(\P(e(s` !P(`(b` (cp (uPeA=` !P(i(o` (p`  (qp (up ` (`@@`` @@` `@"pA@@h`` @(UUn&$` @h !` @P(` (Ϡ` (` h@h6H H hp`@ `Uww973` p (` h@p ` h@`@p @ pp (P  ` @P((p`A@ (`h@`wB @ '`D@Hp (K v  MMm#` @p ` p ` @(`7 (` ` @&(2` @&h M!!2E=` @'p ` h@ (` $`@$@`  ` @'pA@ @h` ` @Lp ` h@ ( $`@$@`SS(w)%` @Lp h `` @J ` @K ` @(` @I(S~~86` P((` @Ih(` @Ih` @P((` (` (` @"p ` h (A@ `@@`@`  @@`@~990 ` @"ph ``@ @p ` 9 @ G`@Hp (&&w* @JNd v   &@>`] ??Xq/W LOOK_FILE 92833-16191,REV.5000,870623 870623.2308 /P1K/CMP/PASCAL.PAS ?nuLOOK_FILE .DLD.DST.EXIT0.LBT.LDX.MPY.MW00 .MW20 .SBT.SDSP CLEAN_PATHERROR FMPCLOSEFMPFILENAME FMPINFO FMPOPEN IS_EMPTYMERGE_FILEPAS.1 PAS.2 PAS.3 PAS.BITMASK1PAS.CDS gg PAS.FIXEDSTRING PAS.STRAPPENDPACPAS.STRAPPENDSTRPAS.STRCOMPAREPAS.STRRANGER PAS.STRRTRIM PAS.WRITELINE !PAS.WRITESTR"PAS.WRITESTRING SAFEAPPENDSTRING SPLIT_FILEgūSLOOK_FILE }}-:8SCHECK_FILE`@ .@p ` p ` @(` @P($(r`@ (.` @(r` @" p ` h (r` @"@` `}EE^B$ @ @@`  (r`@ (i ` @"@`@ ((  (iE f>: pu(q`@ p `  (`@ (x(`@ @(p p ` @@(` @@`@ h `@  (ݤ` @@"@MM($` ` @"@`   (`@ @@' @@` ` @'@`@  (MX>82`@ P((`u(`@ p` 8 8 (` @P((` @"p ` h (`@ p` ` @P(( `@ p cc/+` (;`@ ,H@(;` @($`@ p ` (;`@ (;` @(;` @(;c}}320`@ p ` `@ P(A(R` @(P` @Pr(O` @Pps`@ P(X(k` @I(j` @IP(j`@ p }CCe` (` @I(` @IP(` @IP(`@ p ` C @$`@H(4 v3  S GET_ACTUAL_FILE_INFO~~C;`@px`@pw`@ p`@w@` A@ `@@`@`@w @@`A@w `@w@`@`@ (~GG% `(  `@w@` w`@ (GCC `@ .@p`p`@(h`@ (`R(`@IhRC!!b@`@H`h(! 1v, ,FMP: /D:` @$p-`-p.`(S F `.@np/h/ `00/`.@p/`.@np2@h2`0035`@5@` 99I<<5s @h:`; ;=/3= `.@( ` (<~~H;5` (`-@ (`-@h` p (` (`-@P((`.@" p/`/h/(p ` (`.@"p/A@/h/~XX_," `00%v` (/`p ` (t` p!` p`p pX~~m>6`(B`t(`p! `@pp(p!`@pph'6p-( `-D?`@?@ `00K (0 `@p`@pw~ggm8<4v (A`! (\A@L `@L@`@00A*"J(0"`p`A(rHh'6p-( # P-pg&&t@o`@H`,h-p (/&AAɐ&&~  @ &) /5v vPFA0Path: ROXSLU . @z:??XAW PREP_PROGRAM92833-16191,REV.5000,870623 870623.2308/P1K/CMP/PASCAL.PAS ?vPREP_PROGRAM)nnW.DLD.DST.EXIT0.LDX.MPY.MW20 .SDSP ERROR IS_EMPTYMERGE_FILE PAS.1 PAS.2 PAS.3 PAS.CDS PAS.STRAPPENDPACPAS.STRAPPENDSTR SAFEAPPENDSTRINGSPLIT_FILEnD@SPREP_PROGRAM @` @ p`@n p`h@`@ `@ @ p` @(l` A@ p@+`@+ @@``  @ @@` EEGD'#A@@h` `@'p`A@"p@h`@'EkHB@(` A@ p@+`@+ @@``  @ @@`  A@@h`  `@'ph `) `@"p` (EEM` u(`@p  @(` @ p`h@`@p Ȱ  (E= ` `@ @ pp**@6`@H`hp p ( *$$jR@T\]  W P'$ Run /0/ @NBBXW RUN_THE_PROGRAM 92833-16191,REV.5000,870623 870623.2308 /P1K/CMP/PASCAL.PAS B[RUN_THE_PROGRAM htt*.DST .EXIT0.LDX.MPY .MW20 .SDSP FMPRUNPROGRAM PAS.1 PAS.2 PAS.3 PAS.CDS PAS.FIXEDSTRING PAS.WRITECHAR PAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRPAS.WRITESTRING t~~D:SRUN_THE_PROG RAM `( 0`(`p (`  0(H` @ ph `,~AAg{D"`p`p ` @@ `Pp `(AnnUf<02` @ @@`5 ` ((`@` @ @h n**@ 7`@H  ` h  p p ( *4} )  0,ޖ scheduled. Ran: (@aAAXU2(W PUT_RUNSTRING_CH92833-16191,REV.5000,870623 870623.2308/P1K/CMP/PASCAL.PAS AP>PUT_RUNSTRING_CH00!.EXIT0.SDSP ERROR PAS.1 PAS.2 PAS.3 PAS.CDS SAFEAPPENDCHAR0..ȭS PUT_RUNSTRING_CHAR`p100 (  .""@&`@Hp p ( "  @: XAAXb92W PUT_RUNSTRING_PA92833-16191,REV.5000,870623 870623.2308/P1K/CMP/PASCAL.PAS A]7'PUT_RUNSTRING_PA:: \.EXIT0 .SDSP ERROR PAS.1 PAS.2 PAS.3 PAS.CDS SAFEAPPENDCHARSAFEAPPENDSTRING:EẺ& S PUT_RUNSTRING_PATH`p100(`p1@0(&   pE & @%`@H p (  , @d $AAXbb >W PUT_RUNSTRING_PR92833-16191,REV.5000,870623 870623.2308/P1K/CMP/PASCAL.PAS A]J+PUT_RUNSTRING_PRKK t.DLD.DST .EXIT0.LDX.MPY .MW20 .SDSP PAS.1 PAS.2 PAS.3 PAS.CDS PAS.STRAPPENDPACPUT_RUNSTRING_PAKIIҍ*&S PUT_RUNSTRING_PROGRA M p AJ 0%@` @@np ` h@` I**%*@ '`@H `h  p p (*J    0P=% 4X=RU @6UtAAXXaFW PUT_RUNSTRING_FI92833-16191,REV.5000,870623 870623.2308/P1K/CMP/PASCAL.PAS AS?9PUT_RUNSTRING_FI>>  .EXIT0.MPY .SDSP ERROR PAS.1 PAS.2 PAS.3 PAS.CDS SAFEAPPENDCHARSAFEAPPENDSTRING>hh80S PUT_RUNSTRING_FILE`p1@0(3`@ @p ` p `p1` @np` h@P0(20 (80 h""8@ &`@H p p ( " , v@;@@Xa=W REMOVE_FILE 92833-16191,REV.5000,870623 870623.2308 /P1K/CMP/PASCAL.PAS @ 2REMOVE_FILE ?? .DST .EXIT0.MPY .SDSP ERROR FMPPURGEPAS.1 PAS.2 PAS.3 PAS.CDS PAS.FIXEDSTRING ?\\]1+SREMOVE_FILE @` @p ` p ` @(1` @np @h ` Pp ` (1` P(1@ \ 1 @ %`@H p (  G v @h>>X)WW COMPILE 92833-16191,REV.5000,870623 870623.2308 /P1K/CMP/PASCAL.PAS > "COMPILE wwK.DCO.DLD.EXIT0.LDX.MPY.MW20 .SDSP DISPLAY_FILEEXECIS_EMPTYPAS.1 PAS.2 PAS.3 PAS.CDS PAS.WRITECHAR PAS.WRITEDOUBLE PAS.WRITELINE PAS.WRITESTRING PREP_PROGRAMwFF.dPUT_RUNSTRING_FIPUT_RUNSTRING_PAPUT_RUNSTRING_PRREMOVE_FILE RUN_THE_PROGRAM SCHEDULE_ERROR SCHEDULE_FAILED FZhSCOMPILE lH<SSUMMARIZE `@ p ` @p  "` @@A(9(3p` @ @A (h(h% ` @ p 11! O (` @ (h(bp1h ,  !((!x@2`@H`h (! 3lP"  error and warning in file TO;SRUN_COMPILERp ` p   p `@p(`@p걫`````  ` @@ihH `@ (~~;86`@ p  `@ p``s( `( `* ( hH(,`(`@ @@Pp ` (,` @@~BB={%P(, `@ 0 (5` (`@ (B`(B BB @%`@H(   L`up ` (X`0pll9T.&`0@p(`C` (f`y`(mP ` (`p`p`p`pP` p l!!- ` 8`H`p (L!s @<==X#W /ASSEMBLE92833-16191,REV.5000,870623 870623.2308/P1K/CMP/PASCAL.PAS = ASSEMBLE yy.DIV.DLD.DST.EXIT0.LBT.LDX.MPY.MW20 .SBT .SDSP DISPLAY_FILEERROR FMPCLOSEFMPOPEN FMPPOSITION FMPREAD FMPSETPOSITIONFMPWRITEPAS.1 PAS.2 PAS.3 PAS.CDS y~~ sv!PAS.FIXEDSTRING "PAS.SETSTRLEN PAS.SPARAMETERS #PAS.STRAPPENDPAC$PAS.STRRANGER %PAS.WRITELINE &PAS.WRITESTRING PREP_PROGRAM PUT_RUNSTRING_CHPUT_RUNSTRING_FI PUT_RUNSTRING_PA PUT_RUNSTRING_PRREMOVE_FILE ~  RUN_THE_PROGRAM SCHEDULE_ERRORSCHEDULE_FAILED i|SASSEMBLE]]/)S ASSEMBLER_OPTIONS `@ p ` pF Ep ` (0`pF  `pF E` p ` (]6 @%`@H ( r# E ==i@&SRUN_ASSEMBLER p ` p     `u(g =ffB8(q   `u(~`7`@ p  `@ @@hH`@(`@ p`@ (`(`RR9$" @@Pp ` (`@ @@P(`@ p   `@0 (` (LR''e`@(`(܊`@ p  ' @%`@@H (J   S FIXUP_RELOCATABLE DD##SPEEK_CHAR `  "@hHH@p ` (h 6p (h 6 p D%%+ ` '`H p `p (%**53$SPOKE_CHAR `  "@h HH@p*"",9` (Bh6` (Gh6 ` """G@(`$@H p p (,"zzU;5SPOKE_RECORD `@p `@p `@p @ `@(`@p `@p `@p 0 hH`@(zu @$`U@H (^f$SCHECKSUM||00`@ hHHhH `@p ` @ @(p `p `@H @@ p 8 8 (`@@h `@ hH H |@ @&`@H (bb700SFIXUP_NAM `@@@H6 p`@@@6@@p `@H @(`@H @p ` p b >8` P((p ` A@ ((` @ p` P.((` p (` @p` A@(Y` @ p`PM(@(Y` @ @p`WWI,$ PA(M(Y` @ @p`PC(_(` @ p`H` @ @p`HWuD<` @ @p`H(p ` A@ (` @ p` P:(` @ p@ p`H` p ((@ p `pp ` @ EEn$p@ p`H8 8(`@  `@  ``E @(`@H ( n  C88SFIXUP_ALLOC p `@?p `p ` ((L` (L`@H @ +P( (+`@h HH@(`@h HH@(+ff^,,p `@H @hH (K@ p ` (2(K` @h H@@6 Hp `@h H@H@6h HHH x f K( XL @'`@H (@@ VSFIXUP_SYMT`@@p `@ p D D `҈`@[u @$`V@H (^vv&1/SFIXUP_END `@@p `@@hH @hH hHH`@@h @hHHhHH`v @%`@H (#M?`((aA@`@ @@`0 h` ` `((ap pP(\`(\p`( ahPp` "p ;3`( ([P($(%([`-P(+([`&p ` P(3(9`([` P(=(C`([` P (G(M`M([`P⁈(Q([`$$R P(V([`v( $!! a@`@H `h(!wb Pp pRWOU erB4p `` (`.(p ` ,(`b(` p`0@ p`.(`u(` `(  P ' !!@8`@H ` h!(r!''L y,0 PASMW('HAssembly source kept in file  " @>>Xk>W 8INITIALIZE92833-16191,REV.5000,870623 870623.2308/P1K/CMP/PASCAL.PAS >eINITIALIZE4yy.DLD.DST.EXIT0.LDX.MW00 .MW20 .SDSP ERROR FMPWORKINGDIR IS_EMPTY LOGLU PAS.1 PAS.2 PAS.3 PAS.CDS PAS.FIXEDSTRING PAS.REWRITE_FILE PAS.SPARAMETERS PAS.STRAPPENDSTRyPAS.STRRANGER SAFEAPPENDSTRINGSPLIT_FILE!O@6SINITIALIZE p`@p屠((*`v` PD('` Pd p`@p p`@p pp @ p `@ p pXX @-%A@(`P-(X`P+(X(` p `P-(d(`@p꺠 pX mB8`@p`@p庠p(~PA(@%`@% @@` P AJDZP (4pr ph`A@ pupJp`@p$`@>>k$p#0   pt`(@ "(@>!!r@H`@H`h (!44".3 @>1v # P"4 ʈNOCCTL @, J<<XeW ;PASCAL92833-16191,REV.5000,870623 870623.2308/P1K/CMP/PASCAL.PAS <''(PAS.1 PAS.2 PAS.3 TPAS.STOPPASCAL'xxl .SDSP ASSEMBLECOMPILE EXECFIX_FILEINITIALIZEINIT_FILE LOOK_FILE PARSE_FILEPAS.CDS PAS.CLOSEFILE PAS.INITFILEPAS.INITIALIZEPAS.INITMEMINFO1PAS.RETURNPARMS PAS.SETEXITPARMSx PAS.TRACECLOSE ~~O;SPASC AL`h x@  `pp""p"`"P"8"8('`(J@(J`/(J0`(O`p~ O sS (Uk^>>,,OPascal: TERM&'%*^*PASLSTRELCOPMACCOPPcl>   (( ~Macro  Pascomp     Macro  } 8@N }q/PASCAL/CMP/CDS/PRG.REL:::5:158:128 644 0 0 117000 5300501651 36700 /PASCAL/CMP/CDS/PRG.REL:::5:158:128 ##$ 2PRG REL +++NFST ;;X4V4PSPRG 92833-16192,REV.5000,870621 870622.0004 /P1K/CMP/PRG.PAS;@4??Xd0V4EMIT_TRACE_BEGIN92833-16192,REV.5000,870621 870622.0004/P1K/CMP/PRG.PAS?S+EMIT_TRACE_BEGINMMc .DAD.DLD.DST .EXIT0.LPX.SDSP CALLRUNTIME EMDI1 EMITEMLAB EOI PAS.1 PAS.2 PAS.CDS PAS.MIN MEEA*` M(*  p@h   p   `  P El*@@ (2@z>>X]0V5EMIT_TRACE_END92833-16192,REV.5000,870621 870622.0004/P1K/CMP/PRG.PAS>+EMIT_TRACE_ENDMMc .DAD.DLD.DST .EXIT0.LPX.SDSP CALLRUNTIME EMDI1 EMITEMLAB EOI PAS.1 PAS.2 PAS.CDS PAS.MIN MEEA*` M(*  p@h   p   `  P El*@@ (2@&@@XV6 EMIT_TRACE_NAME 92833-16192,REV.5000,870621 870622.0004 /P1K/CMP/PRG.PAS@KEMIT_TRACE_NAME wjj? .DAD.DIV.DLD.DST.EXIT0.LDX.LPX.LPXR .MB00 .MW00 .SBT.SDSP EMCSS EMDEC EMNEW EXID PAS.1 PAS.2 PAS.CDS PAS.SINGLEMOD PUTLABELj~~F@` M( (  J@  @ @AhH Kp h 6`6AD p` M(;`2A@(;`2p`(I`ph 6@~MM F%#@H` @  Ah 6 p`@@H`@ pP h 6p`@@@H`M55:k`  ` M( ` p `@p 5@@( yNS  7   @5::XV7DO_NAM92833-16192,REV.5000,870621 870622.0004/P1K/CMP/PRG.PAS: tDO_NAM {{M.DAD.DLD.DST.EXIT0.LBT.LDX.MB00 .SDSP EMITEMITCHAR EMNAM EMNEW EMNUM EMPRL EMSTR EOI PAS.1 PAS.2 PAS.CDS PAS.INLINEERROR PAS.MIN PUTLABELSYMREC_COUNT{dD6`p h6@ HP ( (@ p (   `S(h6JP,p ` (D `P(0P(:P(5(? (D (D (DhpIIpD#!`S(xp ` (\` p ` P([h6@ HP ([(L(` h6A`6@I}}$gJ4`@ p` @:ppp  `pp h6@ HHp 8 8( `(`pr (`pr `` ` ` }''ί` ` ```  'GG-! !!  `9(PG @@pp(,,c%,  X#(p @7G,@?^??XVV8DUP_EXT_LABEL 92833-16192,REV.5000,870621 870622.0004 /P1K/CMP/PRG.PAS? DUP_EXT_LABEL ^ ll%.DIV.DLD.DST .EXIT0.LDX .LPXR .MW20 .SBT.SDSP IN_EXT_LIST NUMDIGITS PAS.1 PAS.2 PAS.BITEXTRACT2 PAS.BLANKFILL PAS.CDS PAS.MIN PAS.SINGLEMOD l]KC@ @((U  `@@p xpp ` (Gpp @ phH6p@ H`8 8(0`@@6??=K` @H`.` @p (_%`p p`p ` (g(?ff%g95` @ p ` (v`(vp`(`@@6@ H` @0` p   p` A p (c pf))ʻ` '` h AD  p`p()  % Pas.   @ >>XbBFV9 EMIT_ALLOC_EMA92833-16192,REV.5000,870621 870622.0004/P1K/CMP/PRG.PAS>=EMIT_ALLOC_EMAMM* .DCO.DLD.DST .EXIT0.LPXR .SDSP BOILABELEMITINTEGER EMNEW EMSYL EOI PAS.1 PAS.2 PAS.CDS SPMaa׻<0@ @((  'P((@ @ (    ("("(%` ;(< ` @ p   P a?< @@  (@줬>>XR V:#DUMP_REGISTERS92833-16192,REV.5000,870621 870622.0004/P1K/CMP/PRG.PAS>dDUMP_REGISTERSGG .EXIT0.LDX .MB00 .MW20 .SDSP BOILABELEMNAM EMNUM EMOPC EOI PAS.1 PAS.2 PAS.CDS SPG"\6 h6`A@6K p 0 P 0 ` @ h6`@6AK p 0 P 0 ` @ ` M(c h6`@"6 p 0 P 0 \` @ c @@ *`h (J  n%%punA. B. Q. %@̡??XjV;#DUMP_LEVEL_ONE_E92833-16192,REV.5000,870621 870622.0004/P1K/CMP/PRG.PAS?j[DUMP_LEVEL_ONE_E[[m .DLD.DST .EXIT0 .LBPR .LDX .LPXR .MB00 .MW20 .SDSP EMITEMITCDSLABELEMNAM EOI PAS.1 PAS.2 PAS.BLANKFILL PAS.CDS [t2UE ` M( p ( ` P J@ @ @($(Z@@  (R@ (R @ @6Ah 6D x ` P  @  ~U@@(Z @@ `h (   P eePas.NonCDS@m??X V;&DUMP_VISIBLE_LAB92833-16192,REV.5000,870621 870622.0004/P1K/CMP/PRG.PAS?RDUMP_VISIBLE_LABscc .DAD.DCO.DLD.DST.EXIT0.LBPR .LPX.LPXR .MPY.SDSP CHECK DUP_EXT_LABEL EMITEMIT_ALLOC_EMAEMSYL EOI PAS.1 PAS.2 PAS.CDS cKIA`  @   (( @@@ x`@((7` p p (I@J (E(@`p p (I` p p 00 KP(P(f` Pp@@P0AAe'!(` P(l` (  @@@x @ p @@ ( Av@@p (|    @*I{>>XR#?V'DUMP_LABEL_ONE92833-16192,REV.5000,870621 870622.0004/P1K/CMP/PRG.PAS>8DUMP_LABEL_ONESS'x .DCO.DLD.EXIT0.SDSP DUP_EXT_LABEL EMBSS EMITEMNEW EMSYL EOI PAS.1 PAS.2 PAS.CDS PUTLABELSYMREC_TREE S``7%JA  (-(-0 (- p ` ` P((- P ` ` 9(7` P(4(7@`7@@p (@??X wV+DUMP_STANDARD_FI92833-16192,REV.5000,870621 870622.0004/P1K/CMP/PRG.PAS?BpDUMP_STANDARD_FIWW.DLD.DST.EXIT0.LPXR .SDSP DUP_EXT_LABEL EMBSS EMIT EMNEW EMSYL EOI FULL_SIZE PAS.1 PAS.2 PAS.CDS PUTLABELWJ@`p p ` @ @@ @  ,(` P((f@ P((f (( x@(f@  x p ` P(E(f ++~AJ xP@ @` x p +f @ 8 8 (So@@p (   u@ic>>X+-V+DUMP_SAVE_AREA92833-16192,REV.5000,870621 870622.0004/P1K/CMP/PRG.PAS>DUMP_SAVE_AREA,,.EXIT0.SDSP EMBSS EOI PAS.1 PAS.2 PAS.CDS PUTLABEL,&&! `(`M( @ 0 p&H@@( ' @!N??XJV0DUMP_LIBRARY_ROU92833-16192,REV.5000,870621 870622.0004/P1K/CMP/PRG.PAS?pEDUMP_LIBRARY_ROUUU .DAD.DLD.DST .EXIT0.LBPR .LDX.LPXR .MPY.MW00 .SDSP EMITEMRUN EOI IN_EXT_LIST PAS.1 PAS.2 PAS.CDS UttMD<`p p` @J@ 3 @  )(A@ @hH`@@  (*(0@ (;  p  88 (tD@@ (  @;;Xk V4DUMP_EMA92833-16192,REV.5000,870621 870622.0004/P1K/CMP/PRG.PAS; DUMP_EMAo OOXp .DCO.DIV .EXIT0 .LBT.SDSP CURRENT_EMA_SPACEMITEMITCHAREMIT_ALLOC_EMAEMNEW EOI PAS.1 PAS.2 PAS.CDS O~~]D<0 ` xA( ( p ` (@ (` (p `A@ (0h6@ H P,(0` p (` (np ` @ A@0p ` ~::*D$` ` ` ` @ (kp p h6H@ H p` :JJh( 8 8 (]@ P ` hAH(| (x p h6@ H p` 8 (8 (~@ Jr@@ p (C!, EM   @ފJ;;Xl)V4DUMP_END92833-16192,REV.5000,870621 870622.0004/P1K/CMP/PRG.PAS; !DUMP_END 33 s.EXIT0.LDX .MB00 .SDSP EMITEMNAM EOI PAS.1 PAS.2 PAS.CDS 3$$tP ` (h6`6 @ 0 $@@ p (B@=??X V9EMIT_MODULE_ENTR92833-16192,REV.5000,870621 870622.0004/P1K/CMP/PRG.PAS?T EMIT_MODULE_ENTRpgg.DLD.DST.EXIT0.SDSP BOILABEL CALLRUNTIME EMIND EMIT EMITCHAR EMNEW EMNUM EMOPC EMSYL EOI PAS.1 PAS.2 PAS.CDS PAS.INLINEERROR SPgNjL4p ` P( P(P("P(4(A (F `  P (F`M(,p (3  (F`M(< (@ (Fh 0` (O` ..KL ` P(S(j@ `M(ep @  (i.CCane*p (` P(n(`M(      ` (P Cl@@ p p (&,03@v4??X VATOUCH_MODULE_FIL92833-16192,REV.5000,870621 870622.0004/P1K/CMP/PRG.PAS?[TOUCH_MODULE_FILOO #r.DLD.DST .EXIT0 .LPX .LPXR .SDSP CALLRUNTIME EMIT_MODULE_ENTRENLAB PAS.1 PAS.2 PAS.CDS PAS.INLINEERROR OJD@ @(( @@  ` @@`@@ @  'P(1(y .(y`@ pP `@ (g`P55iJ(NP(S(X` (]` (]hW`@ p@ 555f(p`@ p@ @   @@ @ ($5? @@   (<<`M(`P(`(`X(Jp   ` <@@  p (""&w "@y` >>XVHEND_GLOBALS 92833-16192,REV.5000,870621 870622.0004 /P1K/CMP/PRG.PAS>~END_GLOBALS yy.DLD.DST.EXIT0.LDX.LPXR .MB00 .MW20 .SDSP BOILABELBUMP_COUNTCALLRUNTIME DO_NAMDUMP_ENDDUMP_LIBRARY_ROUDUMP_VISIBLE_LABEMIT_MODULE_RECO EMIT_TRACE_BEGIN EMIT_TRACE_ENDyZZ #) EMIT_TRACE_NAME EMNAM EMOPC EOI FLUSH_LITSPAS.1 PAS.2 PAS.BLANKFILL PAS.CDS PAS.INLINEERROR SP SYMREC_TYPESTOUCH_MODULE_FILZffB<@ @((B @@  `C @@`C@@ @ 'P(1(60 @  ($f?B @@ (;;L`P(VP({P(P(( `9(i;fZ6 @@`C`(`(` h6`6      `Q(P P `^(@`^(po `(( h @@`h(L&& m& &tHPas.GlobalInfo@U??XdV HSETUP_TRACE_BACK92833-16192,REV.5000,870621 870622.0004/P1K/CMP/PRG.PAS?;]SETUP_TRACE_BACK== = .EXIT0 .SDSP EMIND EMLBO EMLLT EMREG EMSKE EOI PAS.1 PAS.2 PAS.CDS SP=ww[n\2@ p  0 ` (@ ` 0 (2@ 0 @ ` 0 @   P 0 ` (\@ 0 @ ` 0 w5\@@  p (A 1@[Dz<<X)V LINIT_MACRO92833-16192,REV.5000,870621 870622.0004/P1K/CMP/PRG.PAS<h INIT_MACROpXX .EXIT0 .LBT.LDX .MW20 .SDSP BOILABELEMITCHAREMITCOMPILERVERSEOI FILE_TO_FILE_NAMFLUSH_CODE_BUFFE PAS.1 PAS.2 PAS.CDS X~~P%M5 `p p`@@6@HH p p 88 (`p ph 6@HH p ` P ()p 88 (p p P p p p p ` ~""M p p P @  p "GGPe*p p p ` 8(p ph6@H p p 88 (yP 0 p pG @@ `h ())@,\+DC=SF  v #  8 ) !MACRO, @5>>X2V NPROG_PROLOG 92833-16192,REV.5000,870621 870622.0004 /P1K/CMP/PRG.PAS>2PROG_PROLOG ++Z.EXIT0.LDX.MB00 .SDSP DO_NAMPAS.1 PAS.2 PAS.CDS +770``P(`((h6`6`Pp07L@@( @==X#mV VPROG_BODY 92833-16192,REV.5000,870621 870622.0004 /P1K/CMP/PRG.PAS=hPROG_BODY ~~Ԏ.DIV.DLD.DST.EXIT0.LDX .LPX!.MB00 ".SDSP BOILABELBUMP_COUNTCALLRUNTIME DO_NAMEMBSS EMDEC EMDI1 EMITEMITCDSLABEL EMIT_TRACE_BEGIN EMIT_TRACE_NAME EMLAB EMLBO EMNAM ~UU EMNEW EMOPC EOI NEWLABELPAS.1 PAS.2 PAS.CDS #PAS.INLINEERROR PUTLABELSETUP_TRACE_BACK SPTOUCH_MODULE_FIL WALK_FILESU[R6h 6`!6AK!`M(`^0`(p ` "p         `Q(M `M(i``R (W``  p fI7   @  `h@  P `M X( p `E(`2(`p p ` @@A P((` P(11_P((( ((((1O=(h0 ` @@A x ` @  !h @ 0 (P P P P P 8 8 (`B0W0M(&@;;(("(&`(Q`بP(3P(8P(=P(=(B;RRM34$(G(G(Gh0h @ P `^(g((h   P p_Rg@@"(88""&3oqpk lmu8 " @8MW >>XJ1V ^PROG_INTERFACE92833-16192,REV.5000,870621 870622.0004/P1K/CMP/PRG.PAS>QPROG_INTERFACE}}ͤ.EXIT0.LDX.MB00 .MW20 .SDSP DUMP_EMADUMP_ENDDUMP_LABEL_ONE DUMP_LEVEL_ONE_EDUMP_LIBRARY_ROU DUMP_REGISTERSDUMP_SAVE_AREADUMP_STANDARD_FI DUMP_VISIBLE_LABEMIT EMIT_TRACE_NAME EMNAM }..QEMNEW EOI IN_EXT_LIST PAS.1 PAS.2 PAS.CDS PAS.INLINEERROR .}}6bJ8`^0_( `M( `M(  h6`6    (? h6`@6  `(C(q`P(G(Ph6`}33.JA@6H(Xh6`@$6   `M(q355/f!   `M(h6`@,6   5 ر@@4`h `hAH ( CPPWPas.Stop %%TPas.TopOfStack1 Pas.TopOfStack2 Pas.Initialize %tth H,`(`P(ȨP(P(ވ(`p@(  p ( h`P`Pp0t@@(G @6>>X1VdPROG_EPILOG 92833-16192,REV.5000,870621 870622.0004 /P1K/CMP/PRG.PAS>!PROG_EPILOG k.DLD.DST.EXIT0.LDX.LPXR .MB00 .MW20 .SDSP ADOPT BOILABELBUMP_COUNTCALLRUNTIME DB_STATEMENT_LISEMDEO EMDI1 EMIT_TRACE_END EMNAM EMOPC EOI JUMP_PLUS NEWNODE PAS.1 ,,PAS.2 PAS.CDS PAS.INLINEERROR SPTOUCH_MODULE_FILWALK_FILES,yTI3`P( P(P(P((`M(0 h6`@6  `M(+ (6 `Q(6   `^(?`P`2(Kp55k3I`9Q( J @  @ 5HHGh,"J   x    ((((hZH_ @@`h())&>? )_Pas.Stop @J??X bVhNUM_VAR_PARMS 92833-16192,REV.5000,870621 870622.0004 /P1K/CMP/PRG.PAS?<WNUM_VAR_PARMS ?? G.DLD.DST.EXIT0.LDX.LPX .LPXR .MW20 .SDSP PAS.1 PAS.2 PAS.BITMASK1PAS.CDS ?`EEJ@ @p  'P(((`@@x @ A. ,H@ ((p@   (5(S`@@x . ,H@ ""AE(K`@p  (/`p "ceU `  ` h AH  ( afa B'a` @o>>Xdp/VjFIND_NUM_PARMS92833-16192,REV.5000,870621 870622.0004/P1K/CMP/PRG.PAS>9*FIND_NUM_PARMS **/.DLD.DST.EXIT0.LPXR .SDSP PAS.1 PAS.2 PAS.CDS *HHH((J@ @  'P@p   ((&`@p  (`p H$(` (@"G??X zVjGET_PARAMETERS_D92833-16192,REV.5000,870621 870622.0004/P1K/CMP/PRG.PAS?ssGET_PARAMETERS_DRR3.DDE.DST.EXIT0.SDSP EMIND EMIT EMLAB EMLBO EMREG EMSKE EMSKL EOI JUMP_PLUS PAS.1 PAS.2 PAS.CDS R~~v\:` (  @ ` (rp p `  @ `  p @ P P P P @ 0 ` h  @ ~a\    @  8h  @ 8 8 (Ur@@p ( ' -1@ ;;X0VpINFCR 92833-16192,REV.5000,870621 870622.0004 /P1K/CMP/PRG.PAS; 9INFCR D ddP .DCO.DDE.DIN.DLD.DST.EXIT0.LPXR .SDSP EMIT EMLBO EMSKE EOI FNCRG GETBOUNDS LOAD_INTEGER PAS.1 PAS.2 PAS.BITMASK1PAS.CDS dFB` p @ @ ` P(((  ,H@(@ P(%(. (@ `@@`@`@ @@`P @p@ :: F ` (q  (U(O @ (c (a([@ (cp`(p:GfRH @  (  (}(w @ ( ((@ (p`( @   `(J   x!h    p  @@(  1   @_??X QVsLOAD_FUNC_RESULT92833-16192,REV.5000,870621 870622.0004/P1K/CMP/PRG.PAS?ZFLOAD_FUNC_RESULTRR#.DLD.DST .EXIT0.LDX .LPXR .MW20 .SDSP EMITEMLBO EMSKE EOI FNCRG PAS.1 PAS.2 PAS.BITMASK1PAS.CDS RwwE;P p`(p (`P(( `@@`x ,H @J(E   x   !h    ` wE @@ ` h  ( PPUP rP @:YR??X7VuRELOAD_FUNC_RESU92833-16192,REV.5000,870621 870622.0004/P1K/CMP/PRG.PAS?_,RELOAD_FUNC_RESUEE  .EXIT0.LDX .MW20 .SDSP EMITEMLAB EMSKE EOI FNCRG PAS.1 PAS.2 PAS.BITMASK1PAS.CDS EOO+!0 p`(P (`P((p `@@`x ,H @ (+` @ O+ @@  `h (Q'6;6 q6 @w??X7VwSAVE_FUNC_RESULT92833-16192,REV.5000,870621 870622.0004/P1K/CMP/PRG.PAS?u,SAVE_FUNC_RESULTEE  .EXIT0.LDX .MW20 .SDSP EMITEMLAB EMSKE EOI FNCRG PAS.1 PAS.2 PAS.BITMASK1PAS.CDS EOO+!0 p`(P (`P((p `@@`x ,H @ (+` @ O+ @@  `h (d1'6;6 q6 @(;;Xd.VyGET_NAME92833-16192,REV.5000,870621 870622.0004/P1K/CMP/PRG.PAS; 9'GET_NAME 77 .DLD.DST.EXIT0.LBP.LDX .LPXR .MB00 .SDSP PAS.1 PAS.2 PAS.CDS 7GG%%Jp@@  P( (% /P@((% @6h6A@ pGv% ` `p(H @-3K>>X3$VyPROC_PROLOG 92833-16192,REV.5000,870621 870622.0004 /P1K/CMP/PRG.PAS>.PROC_PROLOG ?? .EXIT0 .SDSP DO_NAMEMIT_TRACE_NAME EMNEW GET_NAMEPAS.1 PAS.2 PAS.CDS SYMREC_ROUT ?66n ( 0`9(` P`M(`^0`(@6X@@  (  @i==XVyPROC_BODY 92833-16192,REV.5000,870621 870622.0004 /P1K/CMP/PRG.PAS= PROC_BODY ((x.EXIT0.SDSP EMNEW PAS.1 PAS.2 PAS.CDS PUTLABEL(0 ;@@(  @/>>X9MVPROC_EPILOG 92833-16192,REV.5000,870621 870622.0004 /P1K/CMP/PRG.PAS>̙PROC_EPILOG ||@.DADA.DCO.DIV.DLD.DSTB.EXIT0C.LBT.LDXD.LPXE.LPXR .MPYF.MW20 G.SDSP =BOILABEL<BREAK_CHECK ;CALLRUNTIME :CHECKBOUNDS 9CREATE_INFO_FIEL6EMBSO 7EMBSS 4EMDEC 2EMDEO 1EMDI1 |(J3EMDLT 0EMIND 8EMIT5EMITCHAREMIT_TRACE_BEGINEMIT_TRACE_ENDEMIT_TRACE_NAME /EMLAB .EMLBO -EMMVW ,EMNAM +EMNEW )EMNUM *EMOPR (EMPRL 'EMREG &EMSKE %EOI FIND_NUM_PARMS#FNCRG $FULL_SIZE GET_NAME GET_PARAMETERS_D"INDIRECT_THROUGH INFCR !INLINER ((IS_STRING JUMPLOADLOADAD LOAD_FUNC_RESULTNEWNODE NEW_INLINE_LIT_NNUM_ELEMENTSNUM_VAR_PARMS ?PAS.1 >PAS.2 HPAS.BITMASK1PAS.CDS NN PAS.MIN PUTLABELREAL_TYPE RELEASEREG RELOAD_FUNC_RESUSAVE_FUNC_RESULTSETUP_TRACE_BACKSPSTACK_TOO_FAR WALK_FILESN[VN` ((?@@@@EE`@E x@ @E x@ @Ex@  ?@@@@EE@E!!ɧV xh p E x !aa gI1@Ex@ @( (@  h   @ P ``a @@BG pp p (33K @?p @ ((}A` L@@? E @AD @@3IG@E ((y@E  ((3 E'P((+`@@@xE . ,HH@H(+ ExE !h XX!2.@  @P E @ (E 'P(<(y`@@xE@"AD. ,H@H(yXCC_S*$@ E"Dx@E"D  !h@   P @ p (CT} @@BG`hF( 4bP  CN` rR,`?M(`@((? ?  ?P $ ?P ?  ?P   ?P `~?@ p P !! p P @?((p P !)@@BG(C3h?` J@@? ?p(W % P  `@ hh6`@ @HCP (#(+`@ hH H(`@ p & p  117 ?P   &P `?M(R  (V` 1##?V (g`?M(c  (gp P #j@@BG( ? [[p73?@@ E `?` @D !h @@E @ x@@E ` (   [@@B@Gp  (p` ( EES%`@  (p (` @   ` @  @   ? P E@@BGp (oo97@`@A@D'@ @ @`@p`@A)(A(A`?M( @?((`@(p `@A(((` (/o!L>+ `@`@AA,(8(>(>` .(B ``?U@({E ' ,HH@H({p ({E 'P@(e(kE /P({@ 77CcmJA?({(q@J A?({(w @`@AA,(((` 17~~Q9( 2`  P (A` (+ (` .``?M(` .h?@   ?P ` `@D !p~''0 P (` .`  'uu6N<P `@D' (#3`@D'    ?(A4?@A  @A@ D,`@ @  uA@@BG( ? `G `@ @   ? OT@@BG(G$$e9Z`@ @J@@?  ? $yk@@BG(ZKKmq-'?@@ E `?E `@ x @@? E    K@@BG(q88u`?M(E@'@@AA)(( @?((` (ꀀ`(8MML-5(6 ` UP  ` lP ` @ h H  (`((Mv$@@BG pp (qql95`?M(`p (p J@?@Ep p E?'P((70?P(#(7E?"@@`@p`q}}5D>@p  (=(t@E 'P(F(iE.(T`B(iE.Pp`@p`@E` p (70?}/y@@BG(<<Q`?M("E?9/("`?L@JA@?D'@@ @ ((<RN@@ @E7xE9@xE;H @Kp`@E= (A`?L@@?D? p  (܄( E'@@@@h ..` @ @x E@@ (`?JL@@?A@D?@ ..." @@ @EA@xE !p` .W"@@BG(&&My( `?M(0!(> C  ?P &>@@BG((66D`?M(L`@(_0?`?^(W`?6T_@@BG(De  D`?M(m(?__!q6$p ?P @?(}(hH `@ ((`@ p p P ?p ?P  E_@@BG(eHH1_)`?M(`?`(F`?@?p @  h?@   ? P (&H~~WP2`@(@?((G(H  ?P   ?JP (&E? .( (&((&  ?P ~&@@BG(**؞,`?M(0(v`@(v? 0?*UU%>8 @?(I(NI(RJ  ?P   ?P `?^(n`?USv@@BG(,OO-|+JE? (p`````k`'`?^( `#O88W~ `z?`w`?^(`?M(8@@BG(|``2GG"  0"-  1!3^]a`` 'K @A`L>>XI~&VPROC_INTERFACE92833-16192,REV.5000,870621 870622.0004/P1K/CMP/PRG.PAS>!PROC_INTERFACEll .EXIT0.SDSP DUMP_EMADUMP_ENDDUMP_LABEL_ONE DUMP_LEVEL_ONE_EDUMP_LIBRARY_ROU DUMP_REGISTERSDUMP_SAVE_AREADUMP_STANDARD_FIDUMP_VISIBLE_LAB PAS.1 PAS.2 PAS.CDS l++Q p`0P@ +a @@ (  @|j??XqVMODULE_PROLOG 92833-16192,REV.5000,870621 870622.0004 /P1K/CMP/PRG.PAS?MODULE_PROLOG BB z.DLD.EXIT0 .LBP.LDX .LPXR .MB00 .SDSP DO_NAMEMIT_MODULE_RECOPAS.1 PAS.2 PAS.CDS B((J  @6Ah6K @P(Q@@ (@b>>X4VMODULE_BODY 92833-16192,REV.5000,870621 870622.0004 /P1K/CMP/PRG.PAS>EMODULE_BODY Q".DAD.DLD.DST.EXIT0.LBP.LDX.LPX.LPXR .MB00 .SBT .SDSP BOILABELDUMP_EMADUMP_END DUMP_LABEL_ONEDUMP_LIBRARY_ROU DUMP_STANDARD_FI DUMP_VISIBLE_LABEMITEMIT_MODULE_ENTREMNAM GG EMNEW EMOPC EMPRL EOI FLUSH_LITSPAS.1 PAS.2 !PAS.BITEXTRACT2 PAS.CDS PAS.MIN SP WALK_FILESG..U#P @  ` @       .!#@@ p (qqd+A=J@ A@ Ap  p ` (op p  (@@@@p     h6p @H` @qFlR@88 (F`$ @ @@6h6@  x `$  .(0 PPPPA ((pI `f@@ (+%% & %@@??Xo]V MODULE_EPILOG 92833-16192,REV.5000,870621 870622.0004 /P1K/CMP/PRG.PAS?rMODULE_EPILOG b.EXIT0.SDSP PAS.1 PAS.2 PAS.CDS /@@(@=\/PASCAL/CMP/CDS/SCN.REL:::5:71:128 644 0 0 43400 5300501652 35212 /PASCAL/CMP/CDS/SCN.REL:::5:71:128 ""$G 3pGSCN REL +++G#bFST ;;X6V 6PSSCN 92833-16193,REV.5000,870621 870622.0010 /P1K/CMP/SCN.PAS;@6<<Xx{ bV 7PUTLINE 92833-16193,REV.5000,870621 870622.0010 /P1K/CMP/SCN.PAS< VPUTLINE ``N.DST.EXIT0.LDX .MW20 .SDSP PAS.1 PAS.2 PAS.CDS PAS.WRITECHAR PAS.WRITEDOUBLE PAS.WRITEINTEGERPAS.WRITESTRING SOURCE_LINE WRITELINE `A5` p ` 0 p P ``H(@`((' @h@ `(-``/(1(8`/(@``}))A(D(R``1}@)U @@ `h (  ` =g` : @[zp==XV 8ENDOFLINE 92833-16193,REV.5000,870621 870622.0010 /P1K/CMP/SCN.PAS=@tENDOFLINE ||v .DCO.DLD.DST .EXIT0.LDX.MW20 .SDSP ERROR NUMDIGITS PAS.1 PAS.2 PAS.CDS PAS.WRITECHAR PAS.WRITEDOUBLE PAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRING PUTLINE SOURCE_LINE | UlWRITELINE 3A7` m((`  ( p`  .(P (  (#(#  ` ('(s`  -(/P`(~` (6(K@ n@JJA' n  .0 n(x@ n  .0 n p n nJ~~"hE3` }(l(x@ n 1 }0 n n ` H( (p  ` ' ` @p `@ `$(@ `' `~EE #` Q p(@ R*  0 Rpp ` (Rpp ` @pE~~A7p `'p ` P(( ` `(` ( n ("@ h @p ` (( ` `( ` (  n ` @ p ~PPR'! ` `( ` (  n ` p p   ` `(K` (4(E` P(8(?Pkkj-8;) n (E n   n  ` @ p 8 8(ɺ`` H(a ` '``(l0 n0 n p p 'k*s @@ ?`h (y@ ),^& ~771~&&>>>>>> Importing from **** **** >>**** PASCAL SYNTAX ERRORS IN THIS LINE 7@#t;;XS3V 9 READLINE92833-16193,REV.5000,870621 870622.0010/P1K/CMP/SCN.PAS; READLINE t .DIN.DLD.DST .EXIT0.LBT.LDX.MW20 .SBT.SDSP CHCKB PAS.1 PAS.2 PAS.BITMASK1PAS.CDS PAS.ENDOFFILE PAS.READBUFFERPAS.WRITECHAR PAS.WRITEDOUBLE PAS.WRITEINTEGERPAS.WRITELINE ""|PAS.WRITESTRING PUTLINE SOURCE_LINE WRITELINE "~~B6p pJD    / J / # 1` ~ p   ( p ~` @(&((` p` i(P@ `` ` `&~KKjmB&" ` 1@ ```(T(l`@@xh 6p @H@ ,H @(lKhA;@p(P`(p(p `@ (`@@xh 6p @ H ,HH @(` p (r` (` I(p }P` Q p L(@ R@pKK' P R @ R`((`@(( R 1 ( R 1Kccj,&p R` (0 #(` (0 #(p ph 6`  (`  N0 INp  `  p  ` p |`p }c +@@ (` h `hAH ( &["* F 1 & c ] " #t$@@Rq;;XgV ;NEXTLINE92833-16193,REV.5000,870621 870622.0010/P1K/CMP/SCN.PAS; % NEXTLINE yy{.DLD.DST.EXIT0.LBT.LDX.MW00 .MW20 .SBT.SDSP CHECK CLEAN_PATHENDOFLINE EXTERNAL_IMPORTEIFBRK PAS.1 PAS.2 PAS.CDS PAS.CLOSEFILE PAS.DOUBLE2ASCIIPAS.ENDOFFILE y116 PAS.ERRORCATCHERPAS.STOP POP_SDREADLINE SOURCE_LINE SUMMARY XREIO 1DDI_`@ A @d(`@ hH  `@1@6`@ @H` D@@p (\\]$)'` @ ` @ p` A@(M`@ @6` @ @Hp` ` @ h H  ((\ M@@`hH AHp ($ $$([  hH `@ (j($>>wj`@ @6`@ @Hp``@ hH H(d>@\ @@ ([~~S?9` p`@p` p pp `Nm`Nr `@@`@c`@ @@`e.ce` (pgp `@@6@ Hph`~ h ~~K78 8g(```((`Nw(`N| c`c`N`#`N`N` pg~.. 1g($($ 1 (-(-  1 (6(6.L6 `@1@6JP p  ?` `hAJ`p ( 4}PMm 33M## Pascal: Source: Importing Line: , Errors: (CR to continue) _ 3@pB0P(v(`A(`(( p(`#(Pp(ܠ`"((# #` /(` p `pZZt*" (`}@|(( p(p(`y(Ϡ` (`p(p|p} `p pyZ@@(pe , #@s6::XCV !NEXTCH92833-16193,REV.5000,870621 870622.0010/P1K/CMP/SCN.PAS: i>NEXTCH 11.EXIT0.LBT.SDSP NEXTLINEPAS.1 PAS.2 PAS.CDS PAS.INLINEERROR 1~~V<1/`P(( `P(P(P(P(0(8(=`r(`$p(` p`p(=h6@|HJp`| p|`}@|(-(/p(=~##1 @|p|`$p p(=h#o=@@( 1 @ݤ;;Xff>V _INSYMBOL92833-16193,REV.5000,870621 870622.0010/P1K/CMP/SCN.PAS; #HINSYMBOL }}.CFER .DCO.DLD.DST.EXIT0.LBPR .LBT.LDX.LPXR .MPY.MW20 .SBT.SDSP CHCKB CHECK COM_OPTIONS ENDOFLINE ERROR FEATURE_LEVEL GET_CONSTANT INT_CONST NEXTCHPAS.1 }oo ЀPAS.2 PAS.BITEXTRACT2 PAS.BITMASK1PAS.BOUNDINTEGERPAS.CDS PAS.COMPAREBYTES PAS.INLINEERROR !PAS.NEW2S "PAS.SETCLEAR#PAS.SETINIT $PAS.SINGLEMOD PRINT_TOKEN STRING_INSERT o*;9pp `@j()`p`@1@`x ,HH@("h6@H`@H()h6@H`K``P_(0(5`r(5p `@ @`x ssjm;44,H@(`@(I(Th6 @H` @@pΈ(C`pp `@(`pph6H@HhH((6p@H`soD<88(`@p  p `@p @p ` @ (` @(` p`@` @p A ` p `p (7,,QL`p`A@(^h6@H` ,ޢ^@@p (L  qqlf8.`(`P0(m(q`(i` C(` _p ` C(`(`P0((` p (` ((` _qggL6,@ p (` _(` _`(` ((`A@(h6@HHp` C(Ԉ` _gR @@pp(f  YY/&" pp p p ``P.(('``P.(`P)((p p@|p|`.pY}}L8('`_`C(`(%`_p ` ( 00000`@0@`x ,HH@(`}>>yPPL(V`Pl(V(Z`_``P-(j`P+(j(s>jH8`_``C(`(`_p `A@(`p`@ @`x ,HH@p GGG"  `@@`@` 0 pp `P(P(٨P(P(( !G3B: p4`p5 p2(  !p4@J5 p2(  "`p4@J5`p2(  "`@ @@`#% @p@`@'x ` p45`p2( ) @@A`h*(tF P+@++EE< `A@(O`ph 6@H` ([`@ p  +`@ E[@@p (<  7 c20 p pp `P'(m(pp (y`P#(t(w`p (y`p ` P(J` P(P(P(P((Dp `(I`P'((`p (`P##_ ((,`p (`\#K?/`(I``P#((`p (`P'((p `\(`p (Ip ``P((-,`p (4`C( `!JJd)`2Pp.( 4(4A/(p1( `\5J @6(4`@@`x ,HH@p-(1@23p` \`` P(C`P'(;(>p (C`P#(C`p (I h(y`VVL*$ (Uh 6` K`r0[(~`P(](dp4h 6p5(~`@ @@`46 V11+v p`p4@J 5`p2`p3` (1 @@*` h*(c  77xG71`@ `@ hr`78 (9: (; (P (P#(P$(P'(P((`P)(ѨP*(P+(ѨP,(P-(ѨP.(P/(ѠP:vvv1)(P;(P<(2P=(P>(NP@(jP[(P](P^(P{(+P}((r`*(`!(`(`p3``P=( (v}}E( 4(`p2`(`p2(`p3``P.((%`p2`(1`P)()(/` p2`(1`p2(`p2``P=(;(A` p3`(M}tt`A1'`P>(E(K` p3`(M`p3(`p2``P=(W(]` p3`(_` p3(``P*(g(``@ (`y(t}}Zr40`@ (`y(`P*(`P}((`@ p`@`@ (`(r`@ (`y(``P}((`@ p`}i4.@(`@ p`P)(j`y p  <`(Ъ`p3`P.((` p2`(`p2(`p3`P)(P*(P+(66EIP,( P-(P/(P;(P=(P[(P]( P^((6))`p2`p3(`p2`p3(`p2 p3(`p2p3(`p2` p3(` p2(` p2(` p2(` p2(` p2(`|8.p2(`5p2`(`5p2`r pr`r(*㈨(`@ (]`y(]``P*(:(T``P)(A(K`@ p`@(S`L@ p`P}kkPYS1%(\`@ p`P}(+`y p  <`(`p2`p3`(`p3`5p2`y([=`k@@(ss).(`(`p2`p3` p`(`p`p(`y(`(`P((`r(``P (`P ((`(sjjhB*&`` (` (`[ 0y(`((`P((`2p`3p(`2p`3p` p`i(j@@(BB6// 0.EeLl2 azAZ9B@I`@GB EhHK`@H `ME@< `D̴p} <<`_V4Z`L(`EPK(`F(۶(<(;`ME@p} 6…(;`ME@p} <;;``Â(;`M/PASCAL/CMP/CDS/SG00P.REL:::5:42:128 644 0 0 25000 5300501654 35662 /PASCAL/CMP/CDS/SG00P.REL:::5:42:128 $$$* 3*SG00P REL +++*jFST <<XV:SG00P 92833-16194,REV.5000,870622 870622.1354 /P1K/CMP/SG00P.PAS<@c@@Xu5V:INITIALIZE_CODEG92833-16194,REV.5000,870622 870622.1354/P1K/CMP/SG00P.PAS@X0INITIALIZE_CODEG)) .DST.EXIT0.SDSP PAS.1 PAS.2 PAS.CDS RESET_LABELS)``E/-J J !J J  p J p ptp((J J @ p{p= p>p?0 `b/@@(@@@X7V:INITIALIZE_ERROR92833-16194,REV.5000,870622 870622.1354/P1K/CMP/SG00P.PAS@e2INITIALIZE_ERROR55 .DST.EXIT0.LBPR .SDSP PAS.1 PAS.2 PAS.CDS PAS.NEW2S PAS.SETCLEAR5[[001-Jxpp  # % ' ) + -pz[c1@@(nt@z:@@Xt$V:INITIALIZE_MODUL92833-16194,REV.5000,870622 870622.1354/P1K/CMP/SG00P.PAS@hINITIALIZE_MODUL!!:.DST.EXIT0.SDSP PAS.1 PAS.2 PAS.CDS !AA]J J J J J  pp pp pAO@@(@'F@@X N V: INITIALIZE_OPTIO92833-16194,REV.5000,870622 870622.1354/P1K/CMP/SG00P.PAS@]INITIALIZE_OPTIO:AA &.DST.EXIT0.LDX.MW20 .SBT .SDSP PAS.1 PAS.2 PAS.BLANKFILL PAS.CDS PAS.DEFCODETYPE A~~75 p0p1 vp2 p3p4 p~`p pp5 p6p7 p8p9 pcpd pepf pgph pipj pkpl~nnZ7/-pmp:px p;p<pp=p>p?p@pApBpC`pp` ppEpFn}}f20 pH`p`8p`p pIpK pL@ pM pQpS pTpU pVpW `2pEpm`Pp J pX ppY pZp[}qq -- `pp\ p]p^ p_p` pb`p ph6@H` H h6@H`  88 (p`p`p`ppq+ @@ `h ( RP s+32,1 @H@@X1V:INITIALIZE_SCANN92833-16194,REV.5000,870622 870622.1354/P1K/CMP/SG00P.PAS@U,INITIALIZE_SCANN!!:.DST.EXIT0.SDSP PAS.1 PAS.2 PAS.CDS !wwz++ pyp~ prp `Pp`p p`p ` pp" p/p p. J /p| p}` p ` p ` p w\+@@(@Fe@@X:V:INITIALIZE_STATE92833-16194,REV.5000,870622 870622.1354/P1K/CMP/SG00P.PAS@l5INITIALIZE_STATE!!:.DST.EXIT0.SDSP PAS.1 PAS.2 PAS.CDS !}}500 pppq pspv pp p J p p J p p p p ` p ` p ` p ` p ` }0p ` p e4@@(@"@@X SV: INITIALIZE_SYMBO92833-16194,REV.5000,870622 870622.1354/P1K/CMP/SG00P.PAS@_NINITIALIZE_SYMBO.. hD.DST.EXIT0.LDX.MB00 .SBT .SDSP PAS.1 PAS.2 PAS.CDS .~~@@`p ph6@HH` 88 (h6A`6Hh6`6`jp ph6@HH` h6@H` 88 (    s ~$$Y@  p}ppp$M@@ (k n7@(2FAAX#_V: "SPECIAL_OPTIONS 92833-16194,REV.5000,870622 870622.1354 /P1K/CMP/SG00P.PASAVZSPECIAL_OPTIONS ** .EXIT0.LBT.SDSP PAS.1 PAS.2 PAS.CDS PAS.PARAMETERS*~~475 pp p8`8((Yh6P+(h6JP-((Y`ph6P-(# (N`8@(Mp `p h6J@ HP+(>P-(APC(D~SSl7" PD(GPc(DPd(G(Jp(Jp(J`pM(J`p9(J8 8 (+(N@p  p8( SY@@( @ @t4AAX ZV: %GET_SOURCE_NAME 92833-16194,REV.5000,870622 870622.1354 /P1K/CMP/SG00P.PASAOUGET_SOURCE_NAME MM .EXIT0.LBT.LDX .SBT .SDSP CLEAN_PATHPAS.1 PAS.2 PAS.BLANKFILL PAS.CDS PAS.COMPAREBYTESSCHEDULING_TERMIM>$G=`8((`@@6`6A (('('0p  (T@8`p p`8A@(Jh6H@Hh 6p @H""GG `  (Qh 6@H`  88 (3"T@@3 (@] 0@  8@غ@@X)V: %INITIALIZE_GLOBA92833-16194,REV.5000,870622 870622.1354/P1K/CMP/SG00P.PAS@R$INITIALIZE_GLOBA.EXIT0.SDSP GET_SOURCE_NAME INITIALIZE_CODEG INITIALIZE_ERRORINITIALIZE_MODULINITIALIZE_OPTIOINITIALIZE_SCANNINITIALIZE_STATEINITIALIZE_SYMBOPAS.1 PAS.2 PAS.CDS PAS.TIMESTAMP PAS.TIMESTRING UFSPECIAL_OPTIONS 22# p`P@0 G2h#@@(@>>X0"V: =ERRPASSER 92833-16194,REV.5000,870622 870622.1354 /P1K/CMP/SG00P.PAS>bERRPASSER wzz.DAD.DCO.DLD.DST.EXIT0.LBT.LDX.MB00 .MW20 .SDSP EXECPAS.1 PAS.2 PAS.BLANKFILL PAS.CDS PAS.CLOSEFILE PAS.ERRORPRINTERPAS.INITFILE PAS.PARAMETERSPAS.REWRITE_FILEz==PAS.SETEXITPARMS PAS.STOP PAS.TIMESTRINGPAS.WRITELINE PAS.WRITESTRING POP_SDSAMURAI_ERROR =~~ A3p`pRp#`"((#`"( `m(!(s`@P(m n `@P(8(An  (I~KKSA, n'  n1 n .n2 n  nKpmB>pn`@]pp  !# h ## % ' ) + -`@P(`p (pp]%%#((`p (J`$p A((ª`p (`p `&p `(p ` p ` p ` p ` p pII6!` K0M Kp `@P p` J0Jp ` p I @@3`h( 3P COperator breakAbnormal termination, , ~~^62`@ @6PI("PO(2PP(VPR(z(`@p ` `@ h.(`@p `@p  hH `@ (U`@p ~==I` `@ h(`@p `@p  hH =uu#e51`@ (y`@p ` `@ h(`@p `M `@ h(`@ 6hH6AH`@ hHuF @@"`h( 4}P _TLISTING ASSEMBLER/RELOCATABLE JJm."`@]p     `@]p    JF @@2`h( 4P ..}!Insufficient workspace. Increase virtual size (VS) of PASCOMP..j B6]`('`P(('` ` (`P(1`P(1`P(1(D`  ` (`P(H(Y ` @]@`@ NP ddS;+` (`P(](w] ]]` (`P({(` ( ` dDD'#p]@@ `h ` h!AHppp p] ( D**@&17PP* TERM Operator break. @7TPINF,30 * AREA...DSINF,30 * FOR...OPFLD,30 * THESE...  ORDR((/PASCAL/CMP/CDS/SG01P.REL:::5:18:128 644 0 0 11000 5300501656 35567 /PASCAL/CMP/CDS/SG01P.REL:::5:18:128 $$$ 3SG01P REL +++/FST <<XRV'SG01P 92833-16195,REV.5000,870621 870622.0013 /P1K/CMP/SG01P.PAS<@3R@@XV'GET_FILE_PARAMET92833-16195,REV.5000,870621 870622.0013/P1K/CMP/SG01P.PAS@8 GET_FILE_PARAMET&&u.EXIT0.SDSP PAS.1 PAS.2 PAS.CDS PAS.PARAMETERS& ` @p   p8 @@p ( @ @3Ry??XyV(OPEN_THE_FILES92833-16195,REV.5000,870621 870622.0013/P1K/CMP/SG01P.PAS? 8OPEN_THE_FILESww .EXIT0 .LBT.LDX.MB00 .MW20 .SDSP EXECGET_FILE_PARAMET INIT_SOURCE NEWPAGE OPEN_SOURCE PAS.1 PAS.2 PAS.BLANKFILL PAS.CDS PAS.COMPAREBYTESPAS.ERRORCATCHERPAS.PROMPTw**BPAS.REWRITE_FILEPAS.WRITELINE PAS.WRITESTRING SCHEDULING_TERMI*qJ<p Pp`@6hAH 6K0A@ 8($` 8P((#h6 P0 p  `  (\p R`@R@6`6 (Z(D33eJr`@r@6`6A (Z(Yp @ p 03~~hH>` (` 8(o(h6 P0( p J@ ` R`@R@6`6 ((r`@r@6A`6 (( p (p I~BB< "p J`@ p@ `p ` (溺P `` `P `BHI5` `1P `P `` ` Jp u` u(` (`@ p@ R` R ` RG 0 R0 ` 8((*h677J P0(*p P@ R O(7p Qp P@ R7F7 @@ `h(!!pl@1 ,+ 07  B!LLB77This version of the compiler is out of date.It should be replaced with a newer version. Enter options: NOCCTLL@![@??X|] V)DO_OPTION_FILE92833-16195,REV.5000,870621 870622.0013/P1K/CMP/SG01P.PAS?DO_OPTION_FILE77 .EXIT0 .SDSP CHECK CLOSE_SOURCEENDOFLINE INSYMBOLPAS.1 PAS.2 PAS.CDS 7883  p py`p Py0py`pp @8Q@@ (  @ AAX/V* PROCESS_OPTIONS 92833-16195,REV.5000,870621 870622.0013 /P1K/CMP/SG01P.PASA`*PROCESS_OPTIONS DD |.EXIT0 .LBT .SDSP DO_OPTION_FILEGET_FILE_PARAMETINIT_SOURCE OPEN_SOURCE PAS.1 PAS.2 PAS.CDS DLL)` ( 0A @8(`8P((h6J P0p ` ()P@ La)@@ (   @Zx>>X9^ rV* READ_OPTIONS92833-16195,REV.5000,870621 870622.0013/P1K/CMP/SG01P.PAS>Y_READ_OPTIONSyy; .EXIT0.LDX .MW20 .SDSP GET_FILE_PARAMET INIT_SOURCE OPEN_SOURCE OPEN_THE_FILES PAS.1 PAS.2 PAS.APPEND_FILE PAS.BLANKFILL PAS.CDS PAS.WRITELINE PAS.WRITESTRING PROCESS_OPTIONS ySAVE_GLOBAL_OPTISCHEDULING_TERMIPM5@0pP` 8(`p `p 8` m(&([ n   n   n  n  .  n!!x<M   n  n!^ @@ ` h  (a @   Mii SHAREDCompiling , @ES DISC #2  50,EQT,8 * 7900 SERIES DISC (FIRST OF SET OF TWO) 51,EQT,8 * 7900 NECCESARY SECOND IO SLOT 52,EQT,3 * 79XX MAC SERIES DISC #1 53,EQT,4/PASCAL/CMP/CDS/SLB.REL:::5:103:128 644 0 0 63400 5300501657 35742 /PASCAL/CMP/CDS/SLB.REL:::5:103:128 ##$g 3gSLB REL +++g35FST ;;X>V PSSLB 92833-16196,REV.5000,870621 870622.0017 /P1K/CMP/SLB.PAS;@>==XV DEFLBL_ENTRY92833-16196,REV.5000,870621 870622.0017/P1K/CMP/SLB.PAS=[yDEFLBL_ENTRY ?? .DAD .DCO.DLD.DST .EXIT0 .LPX .LPXR .MPY .SDSP CHECK PAS.1 PAS.2 PAS.CDS ?HLL@ @ @( (v@@ P"((v`J@A@ @@  (((vA`@ x P(:(v @@    (K(d==L&$  (d(Q  @@  @  (E@@  (k(jpP= Ur@@  v@@ @  (   @H==XVEVAD2IND2 92833-16196,REV.5000,870621 870622.0017 /P1K/CMP/SLB.PAS=EVAD2IND2 cggC.DLD.DST.EXIT0.LPX.LPXR .SDSP ADOPT COPY_TREE CVTNODE LOADADNEW_INLINE_LIT_N PAS.1 PAS.2 PAS.CDS Q_RELATIVE_FIXUPREPLACENODE SAVEREG gLF@  `( P@((P"(@P"(%(]p (@(@p@P@(\P(G(M66lL(\P(T(Z@(\p (_p ` (k 6WWfg5-@@ P( `@ @`@  @ @x @ x W@  @@(  @;;X:V EVAD2 92833-16196,REV.5000,870621 870622.0017 /P1K/CMP/SLB.PAS; C1EVAD2  99 &.DLD.DST.EXIT0 .LPXR .SDSP EVAD2IND2 PAS.1 PAS.2 PAS.CDS REPLACENODE 9LLY0,@   @  @@ P   (# `((  `@ x@@ L?0 @@  ( @ŚZ??X+V EVAD_APPROPRIATE92833-16196,REV.5000,870621 870622.0017/P1K/CMP/SLB.PAS?XEVAD_APPROPRIATE66 S.DLD.DST .EXIT0 .SDSP EVADEVAD2IND2 PAS.1 PAS.2 PAS.CDS REMAPPER6 P ( @ (` ?f @@   (@$?B>>X+LVOFFSET_TREE 92833-16196,REV.5000,870621 870622.0017 /P1K/CMP/SLB.PAS>4*OFFSET_TREE ||Ru.DAD.DLD.DST.EXIT0.LBP.LDX.LPX.LPXR .MW20 .SDSP ADOPT COPY_TREE ERROR EVAD_APPROPRIATE INDIRECT_THROUGH NEWNODE NEW_CST_NODEPAS.1 PAS.2 PAS.CDS PAS.WRITEDOUBLE |$$gnPAS.WRITESTRING PRINT_TREESTACK_TOO_FAR WRITELINE $NB`l(`!``@P((G@DP!(-(G@DP(;(G@@P(KP` @ @@@tN! `@ @x@@ (d(@ P(oP(P"((@oXP@ @@A@A@@@A@Ax( @   @    (@ P(P(ۄ( @@@@ @xu @@ (ڰp (tt'R< (@ xJ@@      @   ((  `l(' t//'@@)@ `h@@@@@@@ (/##JO  PD!#DOffset_tree for @g==X(([VRELEASE_NODE92833-16196,REV.5000,870621 870622.0017/P1K/CMP/SLB.PAS=\RRELEASE_NODEFF  .DCO.DLD.DST .EXIT0 .LPXR .SDSP NODE_TEMP_INDEX PAS.1 PAS.2 PAS.CDS RELEASEREGSHOW_TEMP FvGC@ @((Q P;( (%  @@@ (($($  x P (Q  P@(,(3  ` `=(;(Q`= @p ,(QuG   `k(Q@=?Q @@   ( 8@DcC<<X VIS_CHAR 92833-16196,REV.5000,870621 870622.0017 /P1K/CMP/SLB.PAS< EIS_CHAR  33  .DCO.DLD.DST.EXIT0 .SDSP CONVERT_SUBRANGEPAS.1 PAS.2 PAS.CDS 3)) `@ @`@ @ @J ((p )k9 `  @@ `p (@gP::Xݛ7VAOC 92833-16196,REV.5000,870621 870622.0017 /P1K/CMP/SLB.PAS: ,AOC  44 .DCO.DLD.DST.EXIT0 .LPXR .SDSP INT_TYPEPAS.1 PAS.2 PAS.CDS 4HH0*(@@  @ @( (' P((' @@@('@ ((('p HkQ* `  @@ `p ( @R::XBV!PAC 92833-16196,REV.5000,870621 870622.0017 /P1K/CMP/SLB.PAS: 7PAC  99 .DCO.DLD.DST .EXIT0 .LPXR .SDSP AOC GETBOUNDS PAS.1 PAS.2 PAS.CDS 9aa51@(3@  /(3@ `@ @``@ @ `P (/(-`Pp (5p akf5 `   @@`p ( @Qo==XxV#IS_STRING 92833-16196,REV.5000,870621 870622.0017 /P1K/CMP/SLB.PAS= IS_STRING **/.DLD.DST.EXIT0.LPXR .SDSP PAS.1 PAS.2 PAS.CDS *%@ P p k+ ` @@ `p (  @`b">>X+4V%PAC_LITERAL 92833-16196,REV.5000,870621 870622.0017 /P1K/CMP/SLB.PAS>)PAC_LITERAL 44 .DLD.DST.EXIT0 .LPXR .SDSP IS_CHAR PAC PAS.1 PAS.2 PAS.CDS 4??w'#@@  @ P!( ($ @ @@@(%  P(&p ?kN' `  @@ `p (  @>>Xs !V&STRING_ELEMENT92833-16196,REV.5000,870621 870622.0017/P1K/CMP/SLB.PAS>=STRING_ELEMENT 99 .DLD.DST.EXIT0 .LPXR .SDSP IS_STRING PAC_LITERAL PAS.1 PAS.2 PAS.CDS 9""Ջ@   P (@ (p "k; `  @@ `p (  @Ec??X=V(STRING_OR_PAC_NO92833-16196,REV.5000,870621 870622.0017/P1K/CMP/SLB.PAS?2STRING_OR_PAC_NO ;; .DLD.DST .EXIT0 .LPXR .SDSP IS_CHAR IS_STRING PAC PAS.1 PAS.2 PAS.CDS ;KK$0*@   P (. @ @ @ @(. P!(!(- @@ ` (/p KkY0 `   @@ `p (  @3RW==X&JV,NUM_ELEMENTS92833-16196,REV.5000,870621 870622.0017/P1K/CMP/SLB.PAS=zANUM_ELEMENTS 99 .DIN.DLD.DSB.DST .EXIT0 .LPXR .SDSP GETBOUNDS PAS.1 PAS.2 PAS.CDS 9iiaW><@ @@ @ P((0 @@`@ @@` `@ @`@@@ @D @(> P (7(> @@i> @@ @  ( @*I??X(V-VERIFY_STRING_VA92833-16196,REV.5000,870621 870622.0017/P1K/CMP/SLB.PAS?lVERIFY_STRING_VA66 .DLD.DST.EXIT0 .LPXR .SDSP CHECK IS_STRING PAS.1 PAS.2 PAS.CDS 611q@@  @   @ (  PpP1?t @@  (At@6uU5??X_V/VERIFY_STRING_EX92833-16196,REV.5000,870621 870622.0017/P1K/CMP/SLB.PAS?[VVERIFY_STRING_EXKK 9.DLD.DST .EXIT0 .LPXR .SDSP CHECK CORC1 IS_STRING MAKE_STRING NUM_ELEMENTS PAS.1 PAS.2 PAS.CDS K{{aUG@@  @   P (/ @ @ @ @ ` @ p  p @@ P (U@ @P(N P(N@ p{?U @@   (At@ik+??XƠYV/STRING_INDEX_CHE92833-16196,REV.5000,870621 870622.0017/P1K/CMP/SLB.PAS?pLSTRING_INDEX_CHEDD ( .DCO.DLD.DST .EXIT0 .LPXR .SDSP CHCKB CHECK NUM_ELEMENTSPAC PAS.1 PAS.2 PAS.CDS DqqfKA@    ( p`(KP (0@@ @@  ('pp(K@J  @(C(6 @@ @x@ (CppqK@@   (. @T??XWV/STRING_LENGTH_CH92833-16196,REV.5000,870621 870622.0017/P1K/CMP/SLB.PAS?NJSTRING_LENGTH_CHDD ( .DCO.DLD.DST .EXIT0 .LPXR .SDSP CHCKB CHECK NUM_ELEMENTSPAC PAS.1 PAS.2 PAS.CDS DmmQ/I?@   p`(IP (.@ @@ @ (%pp@(I J (A(4@@ @ x@@ (AppmI@@   (2 @8??X*V2IS_STRING_EXPRES92833-16196,REV.5000,870621 870622.0017/P1K/CMP/SLB.PAS?k0IS_STRING_EXPRES 11 .DLD.DST.EXIT0.LPXR .SDSP IS_STRING PAS.1 PAS.2 PAS.CDS 188e@ x  @@ @ (` (` P(` PGp 8kF `  @@ `p (  @??XkV2INITIALIZE_STRIN92833-16196,REV.5000,870621 870622.0017/P1K/CMP/SLB.PAS?a^INITIALIZE_STRINII M .DCO.DLD .DNG.DST .EXIT0 .LPXR .SDSP DO_ASSIGN NEW_CST_NODEOFFSET_TREE PAS.1 PAS.2 PAS.CDS IZH@    ("("P @@@`(U@ (<P@@@`(U@D   P@@@` x AZ  ]@@   (@{[??X}V6APPEND_STRING 92833-16196,REV.5000,870621 870622.0017 /P1K/CMP/SLB.PAS?zAPPEND_STRING <zz.DCO.DLD.DMP.DST.EXIT0.LDX.LPX.LPXR .MW00 .SDSP CALLRUNTIME CHCKB EMDEF EMDI1 EVADEVAD2IND2 EVAL INLINER INT_CONST NUM_ELEMENTSPAS.1 PAS.2 PAS.CDS zVRELEASE_NODE REPLACENODE SETUPOPERANDS RF@ p(ð @ ` (+  (` P(/(@@A/(@@( @(OJ(O((p**L!R` PG(W(@@@@*{{@jY;@J(q((@hH P @  (@P     (p     `{u@@!( @ ??XV8EVAD_STRING_EXPR92833-16196,REV.5000,870621 870622.0017/P1K/CMP/SLB.PAS?c(EVAD_STRING_EXPR5 ~~.DAD.DCO.DLD.DST.EXIT0.LBPR .LPX.LPXR .SDSP APPEND_STRING COPY_TREE EVAD2IND2 EVAD_APPROPRIATE EVALINITIALIZE_STRINIS_STRING_EXPRES MAKE_STRING NUM_ELEMENTS NWTPN PAS.1 ~x#PAS.2 PAS.CDS PRINT_TREE <LD@ xDp>(((@(%p(%(%x`Pp`(A@ /p `p`055L(`(]` (((] (D`jk(o5~~2gNBDA@ A xh @`h@ @PD @D`jk(DJ@D( Dx~%%,fp>`((p>%**@@'@ p p (* ]   D @ͅE??X-V:EVAD_STRING_PARM92833-16196,REV.5000,870621 870622.0017/P1K/CMP/SLB.PAS?p EVAD_STRING_PARM 44 D.DLD.DST.EXIT0.LPXR .SDSP EVAD_STRING_EXPRPAS.1 PAS.2 PAS.CDS 400;@ `@ @` @   D0!!@@@  p  (!  @>>XuB?V;STRING_ADDRESS92833-16196,REV.5000,870621 870622.0017/P1K/CMP/SLB.PAS>?2STRING_ADDRESS WW.DLD.DST .EXIT0 .LPXR .SDSP EVADEVAD_APPROPRIATEEVAD_STRING_PARMIS_STRING PAS.1 PAS.2 PAS.CDS REMAPPERREPLACENODE WFF3/#@  P(' p @@ p ` (& (+`   Fú/@@  @   (  @詨@@Xs+V =VALIDATE_STRING 92833-16196,REV.5000,870621 870622.0017 /P1K/CMP/SLB.PAS@a"VALIDATE_STRING NN .DLD.DST .EXIT0 .SDSP CALLRUNTIME COPY_TREE EMDEF EMDI1 EVAD2IND2 PAS.1 PAS.2 PAS.CDS STRING_ADDRESSN55!@@  `@ @`@ P  p ` 5?! @@   (  @hO??XMV =EVAL_STRING_ELEM92833-16196,REV.5000,870621 870622.0017/P1K/CMP/SLB.PAS?8BEVAL_STRING_ELEMllT.DLD.DST.EXIT0.SDSP CALLRUNTIME CVTREGNODE EMDEF EMDI1 EVADEVAD_STRING_PARMFREEREG PAS.1 PAS.2 PAS.CDS RELEASE_NODESETUPOPERANDS UNPROTECT_TEMPlXXA)p @       ` (1(7` PXQA @@p (  @2Q??XL V!=SPLIT_STRING_OR_92833-16196,REV.5000,870621 870622.0017/P1K/CMP/SLB.PAS?|SPLIT_STRING_OR_X{{D.DAD.DCO.DLD.DST.EXIT0.LBPR .LPX.LPXR .SDSP COPY_TREE IS_CHAR IS_STRING IS_STRING_EXPRES MAKE_PAC NEW_CST_NODENUM_ELEMENTS OFFSET_TREE PAC PAS.1 PAS.2 PAS.CDS {>STRING_ADDRESSVALIDATE_STRING \H@  p  (L` ( `( @@P  Jx@@@@x( (w@P@x**A\(dp x@@*HH5v1+( (  @@@x @@ xH @@ p (j  @zW>>Xr82V">HEAP_2_ROUTINE92833-16196,REV.5000,870621 870622.0017/P1K/CMP/SLB.PAS><'HEAP_2_ROUTINE **/.DLD.DST.EXIT0.LPXR .SDSP PAS.1 PAS.2 PAS.CDS *@@;%%@   ( @(#@ @((" pA@p @kL% ` @@ `p (  @1??Xq8V$YPREPARE_PARMS 92833-16196,REV.5000,870621 870622.0017 /P1K/CMP/SLB.PAS?PREPARE_PARMS /||vp(.DAD).DCO*.DDE+.DIN.DLD,.DMP-.DNG.DST..EXIT0/.LBPR 0.LPX1.LPXR 2.SDSP %CALLRUNTIME $CHECK #COPY_TREE "ELEMENTS EMDEF EMDI1 !EMITCDSLABELEMSKE ENTER_DEFLBLEOI EVAD|}}@ EVAD2IND2 EVAD_STRING_EXPREVAD_STRING_PARMEVALFNCRG FREEREG FULL_SIZE GETFREEREGHEAP_2_ROUTINEINDIRECT_THROUGHINITIALIZE_STRINIS_STRING LOADNEWCOPY NEWLNODENEWNODE NEW_TEMP_SET}ZZ ")NWTPN OFFSET'PAS.1 &PAS.2 3PAS.BITMASK1PAS.CDS 4PAS.INLINEERROR 5PAS.SETCLEAR6PAS.SETINIT RELEASE_NODE REMAPPER REPLACENODE STORE Zxx@:`@ (9`@!0 .(9`@#p `@#p `@!@A0@@ `@ @`@`  @    'D`@#p  x@@@.2(``:F0.`'M(`@0 .P(U(`@0x `@0 !p    `@@p  @ `ۏvD: ` A@'(`@p ` @'pP `@p  `@#p `@p (' `@p @@   '@ `@p   `GGI\(&@0  ((`@(  `@(`@p   GLB( `@(  `@(`@#00x   `@@A0x ' `p `@p @  `@p   `55.@#00x A@ (`p ` P(I(U5tDIN@    (r`@#@A0@A0`'@'̈@p  @'  @ `@0+@ `@@A0x   `@p   `@77)/0@* @`@A0x   `@0Jx '@ 7D `@#p `@p @@.2(FE@@<`@ (`@#p `@#p `@!0 `@ (`@ (p `@@`@`  @   `@'D(>@`@#))}A@0@  A)(((7`@#p  )GG"@`@#A0P;(&(/`@#@A0(6`@#p  (>`@#p 0 G>@@.2(~~D=;@`@#A0`@ `@p `@#0 `@p  hH `@ (@`@!A0.(`@!0 -(h~ cH  ><@`@!A0.((`@(`@ (`@ (p'>`@!0 .(`@#p `@0  p (`@#p VVV/+@`@A@0 @  p p'>(`@#@A0@J)'((`@!@A0@J)'(((V5B< p'>`@#p `@0 @- p p'>`@%0  @ (S`@!0 .P(9P()P(1P(1(M`@#p  (R`ddl25)@#p  (R`@#p  (G`?`A(Rhx@(q`@!0 .(l`@#p  (ldgO;`?`A`@@A0P({(P'(`!`"``#`$`%`&`@@`@ x ,HH @3(`@!077lt@  @  `@p   `@#0`@x @@ 7#B4`@p   hH#x p   A@ (`@#p `@p  (`@#p   p `@p   P ((`@#p  p `@p JJL($ P (`@!0    `@p @@  `@p `@@` 0 Jg>M9`@p   P)`@#p  `@#p   h     `@#p  h@   `@p  `@p   h @  `GGF#@p  h @   '`@ (>`@ (>`@ (>G{E;`@#p P@  `@#p   `@!0 .('@ `@p   `@p  P*(' `@p @@  `@p JJ# ( P+`@#p   `@p  `@#p  `@#p ((`@p  JDD$r#@`@%A@0@ @ (>`@!@A0.P(7(>`@#p  D>@@.2(DyyDFD@/@1%)'(R(Qp@@/%@@#1%919.P(p19,,(q@p 19 .'P({(1@%@;p;Ppy~~ NF`(1@90@!(1@92@@!# ((@! @((1# P=4```@=@x>1!.' ,H>@3(ֈ`(ۈ`~55T2 ?/@ x=/@`=/#@@#`(1@%A@02@!5//%hp(1@!5@!(# ( @! p=@=7/KG @@.C2%(DMM(88 "  = CH,1NDc"~M@Lbk"ATE FORMT **#* EXIT CLB,RSS SET FOR PROPER MESSAGE* * ABNORMAL TERMINATION EXIT* $XOU/PASCAL/CMP/CDS/SSL.REL:::5:163:128 644 0 0 121400 5300501661 36253 /PASCAL/CMP/CDS/SSL.REL:::5:163:128 ##$ 4`SSL REL +++QXVFST ;;XgV(PSSSL 92833-16197,REV.5000,870621 870622.0137 /P1K/CMP/SSL.PAS;@Hg;;X_aV(OUTID 92833-16197,REV.5000,870621 870622.0137 /P1K/CMP/SSL.PAS; HTOUTID  OO$<.DAD.DLD.DST .EXIT0 .LBT.LDX .MW00 .SDSP PAS.1 PAS.2 PAS.BITEXTRACT2 PAS.CDS PAS.MIN PAS.WRITECHAR OGA` ( `@@6 H p (`@@6 H pP p ` (ApAp @@ `@@6H @ @@pp`8 8( ` A@ <G (S` @ p` S@@  `hH AH p (  @???XV(DISPLAY_ID_AND_F92833-16197,REV.5000,870621 870622.0137/P1K/CMP/SSL.PAS?uDISPLAY_ID_AND_Fe[[z.DLD.DST .EXIT0.LDX .LPX .LPXR .MW00 .MW20 .SDSP OUTID PAS.1 PAS.2 PAS.CDS PAS.WRITECHAR PAS.WRITESTRING WRITELINE [K&LB@ @((  .(`(`  /(*`(0``@  (?(W @A @hH   **+0LP `   @hH   P *SS;e5+@  (n(` @ A @hH   P `(``S@@ `h@ @ ( e i/ ]P   [ Program@ߛ@@XT5V(REVERSE_ID_LIST 92833-16197,REV.5000,870621 870622.0137 /P1K/CMP/SSL.PAS@h0REVERSE_ID_LIST // e.DLD.DST.EXIT0.LBPR .LPXR .SDSP PAS.1 PAS.2 PAS.CDS /GGb//@  @@@@  (((@   x     ( @x Gl/@@ (  @&??Xށ;V(REVERSE_EXPORT_L92833-16197,REV.5000,870621 870622.0137/P1K/CMP/SSL.PAS?j2REVERSE_EXPORT_L**/.DLD.DST.EXIT0.LPXR .SDSP PAS.1 PAS.2 PAS.CDS *JJ^11@  @  (() @@ @ x@@ @@  @@  ( x J?1 @@(  @==X."V( IMPORT_CHECK92833-16197,REV.5000,870621 870622.0137/P1K/CMP/SSL.PAS=QIMPORT_CHECK ^^ .DCO.DLD.DST .EXIT0 .LBPR .LDX .LPXR .MW00 .MW20 .SDSP OUTID PAS.1 PAS.2 PAS.CDS PAS.NEW2S PAS.WRITESTRING WRITELINE ^3RL@ @(( J(@ @@  ((0@@ @ (0($@@ @ (`g(` @h H P`!$$R (^`$  `& $׿fOI@ (t`/ (@ @Ah HK P` ( p ( (@@ (((p (` @ @@` @@@ x 00&x @@ ((@ x@@( ((0;;\ @ x@@(`g(`5p `g(`;..I`  9 `hADp `p (. ,(( Ic has NOT been imported by the program (added)(@ݏO@@X'7V( DEREFERENCEABLE 92833-16197,REV.5000,870621 870622.0137 /P1K/CMP/SSL.PAS@L,DEREFERENCEABLE 77 .DCO.DLD.DST.EXIT0.LBPR .LPX .LPXR .SDSP PAS.1 PAS.2 PAS.CDS 7LLP**@ @((' P( (' ((  (('  ((('p LkQ* `  @@ `p ( @u֔99XTV( EXID92833-16197,REV.5000,870621 870622.0137/P1K/CMP/SSL.PAS9 q%IEXID JJ .DAD.DLD.DST.EXIT0 .LBT.LDX .MW00 .SDSP PAS.1 PAS.2 PAS.BITDEPOSIT2 PAS.BITEXTRACT2 PAS.CDS J~~^HBp `@ @6  @ (4A@ @`@ H@6 @ @@pp@ p` p (` @j(H@ p` p (4~H @@ `hH AH (  @p;;Xb V( STRID 92833-16197,REV.5000,870621 870622.0137 /P1K/CMP/SSL.PAS; HSTRID % ]]Op.DAD.DLD.DST .EXIT0 .LBP .LBPR .LBT.LDX .LPX.LPXR .MPY.MW00 .SDSP PAS.1 PAS.2 PAS.BITDEPOSIT2 PAS.CDS PAS.NEW2S ]PSQA` @\\@ (1 \b b@\H xd @@d\ @\@@H `p`ȆA@(~   (y` ++ S@ @` b b\@@b@ xdbd+/lJJ@\xd@@ d@  @(8@@^@@` `xdd^ xd`xee H0dHe`xdd0 d` (pdp ` @@6@ HH peAAޡ$"A@^@@\^H Hx` \`e8 8d(^H xd^`dA @@ f `h HAH p (  gzK   @<<XV( CMP_LIT2ID92833-16197,REV.5000,870621 870622.0137/P1K/CMP/SSL.PAS<CMP_LIT2ID~ FF m.DAD.DLD.DST .EXIT0 .LBT.LDX .MW00 .SDSP PAS.1 PAS.2 PAS.BITEXTRACT2 PAS.CDS PAS.MIN F JDp p ` @@6  pPp ` (M` A@ A(M@@` @@6H @ @@pH xpP(F(J` p (LOO-J,(p (` A(w@@` @@6H @ @@pH xp@pO)yv (` @@@6  @p""Z`  p`h H ("  @>[;;XyV( SEARCHID92833-16197,REV.5000,870621 870622.0137/P1K/CMP/SSL.PAS; SEARCHID ee[ .DCO.DLD.DST .EXIT0.LBPR .LDX.LPX.LPXR .MPY.MW00 .SDSP CHECK CMP_LIT2IDIMPORT_CHECK PAS.1 PAS.2 PAS.BITMASK1PAS.CDS UND_IDeB@p ` p @ p ˠA` @ ` @( ((@@AhHK` p ` ((( ` P(7(U` P(;(U@J ``MB20@(R(D p (Sp (]/ p `@ @x' ,H@(r` (sp `tDB` (` } p@` (@ (/(` @(( @( (` (P ((`  (` `  }EE,!(` -( (` /( (` ,( EAA (` .J( @(` +(J@ ( x@@A@@ p ( ~g  @7}V===XV(!CMP_ID2ID 92833-16197,REV.5000,870621 870622.0137 /P1K/CMP/SSL.PAS=UCMP_ID2ID X FF m.DAD.DLD.DST .EXIT0 .LBT.LDX .MW00 .SDSP PAS.1 PAS.2 PAS.BITEXTRACT2 PAS.CDS PAS.MIN FSHD`@@6  p`@@6 H pPp`@H@6 p `@@6H@ p @@@p p ` (h`A@ (h` @ @@p99R!Hp` @ @@pP(a(e` p (g9wweA=p (,` A(@@` @ @@pp` @ @@p@p(`@@@6  p`@@H6  @pw))` $ `hH `hH ()  @<<XV(,ENTERID 92833-16197,REV.5000,870621 870622.0137 /P1K/CMP/SSL.PAS< }ENTERID  qqu .DAD.DCO.DLD.DST.EXIT0.LBP.LBPR .LDX.LPX.LPXR .MB00 .MPY.MW00 .MW20 .SDSP CHECK CMP_ID2ID DUP_IDEXID PAS.1 PAS.2 PAS.CDS SEARCHIDqB>`@ @6A`6J` p `@ @hHWAKW`@ @A A p p p }`@ @ `Zp aZp  @p } (@(Z`@ IIʋB(&@@ @(S(H  A@ Єp\\ `@ @A ` h6`@ 6I >j` p @l @@b`h(a wa|w =w WWa8x<<@@A@@@   x@@ @@@@  @x @@@@ x@@ W~@@(x>> **@@A@@@   x@@ @@@@  @x @>!!@@@ @x @!@@(]MM@@ (1p `@ x x x `@ x@@(Yp @hHAH`@ @hH@wI`p toQIC@@@` ([( @@ `[@(P(sP(P((@P(}( @@ ``(p (@??((Y` A(@@ `[@(P(P(P((?gIE@ (`p (@( ``((Y`@  /(@@@@  ((@  /(`;;X!@  ((` P( @  ( @@ ( ;ccq["77@`@ @ (+(*p ` @(L  (9(L@ @ `@ @@ (I(Hp (-` (Y `@ xczFY ` `p (33#~bJ  (l`mA` @  `[ p 3DL| @@ (bj  @;;Xb7 cV(.SRCHS 92833-16197,REV.5000,870621 870622.0137 /P1K/CMP/SSL.PAS; DZSRCHS  ?? ?.DLD.DST.EXIT0 .LBPR .LDX .LPXR .MW00 .SDSP CMP_LIT2IDPAS.1 PAS.2 PAS.CDS ?|OM@ x  ( (Y @hH P p ` @(E @@   /@(4 @ (? x    ( (X` (I(Q @ @(O @ (X   (?Y @@  ( @¹<<XcV(0CMPLITS 92833-16197,REV.5000,870621 870622.0137 /P1K/CMP/SSL.PAS< 2NCMPLITS  00 :.EXIT0.LBT.LDX.MW00 .SDSP PAS.1 PAS.2 PAS.CDS PAS.MIN 0 B@0p pp ` (0` A@(0` @@6H@Hp` @]@6@HP()(-`p(/p ( ` (H` @@6@H@p` @]@6*B H@H@p(L`@p22L` `h H]p`h H p(2 K @Wv;;XW 1V(0EXENT 92833-16197,REV.5000,870621 870622.0137 /P1K/CMP/SSL.PAS; O(EXENT  88 h.DLD.DST.EXIT0.LPXR .SBT .SDSP PAS.1 PAS.2 PAS.BITEXTRACT2 PAS.CDS 8FF<&$@   (!x p @ p h6p@ H`8 8 (  x F& `  @@ ( @ ??XV(0CURRENT_EMA_SPAC92833-16197,REV.5000,870621 870622.0137/P1K/CMP/SSL.PAS?M CURRENT_EMA_SPAC **/.DLD.DST.EXIT0.LPXR .SDSP PAS.1 PAS.2 PAS.CDS *''ĖJ J((J(@'[@@@(  @r2??X V(2PREP_VARIABLE 92833-16197,REV.5000,870621 870622.0137 /P1K/CMP/SSL.PAS?~PREP_VARIABLE AA .DAD .DCO.DLD.DST .EXIT0 .LPX .LPXR .MPY .SDSP FULL_SIZE PAS.1 PAS.2 PAS.CDS A:OK@P`P( (J@ @  @JȀ(J   `J @A@ @@  (.(J@  P (J@(>(J @@  @ (( (^++wOA` @ @x@(f  x+,,Wf@@@ @ @x @@ `,}@@   (      @<[G>>Xlf"V(<VAR_TO_ADDR 92833-16197,REV.5000,870621 870622.0137 /P1K/CMP/SSL.PAS> zVAR_TO_ADDR {{.DLD.DST.EXIT0.LBPR .LDX.LPXR .MW00 .MW20 .SDSP ADOPT CVTNODE INDIRECT_THROUGHNEWNODE NEW_CST_NODE NEW_INLINE_LIT_NPAS.1 PAS.2 PAS.CDS PAS.INLINEERROR PAS.NEW2S {$$gjPAS.WRITESTRING PRINT_TREESTACK_TOO_FAR WRITELINE $WO`l(`Pp@  @@@ x +((E@ x@ (T @@@ x@@@ !.W @`@ ]e]M(p@  (@x @@ (x@@@  @x @  @@ ( @ @x `5MK@  !h@ @ x@@@  .(@@( +(! `(! A @ʄ(`@(! BBw!Hx .P(0P(1P(1P(l(m(r@(6(kBoo6C9 `@ @`@p@@hH!@ A`@!D x @x@  (r(rh``l(ypoy@@3` h!@@(22Y""  "  P2[gVar_to_addr @ *m??X iV(=UNQUAL_TO_RECORD92833-16197,REV.5000,870621 870622.((0137/P1K/CMP/SSL.PAS?\UNQUAL_TO_RECORD ?? .DAD.DCO.DLD.DST .EXIT0 .LBPR .LPX .LPXR .MPY .SDSP PAS.1 PAS.2 PAS.CDS ?nNN@ @((U PJ( (U  `p  (PA` @ (L @A@ @@  @@ @ @(>(L @(L(D@  (8@ ӉN @p ( @(Y Y@@ @  (   @Mk::XMdwV(FIN_EMA92833-16197,REV.5000,870621 870622.0137/P1K/CMP/SSL.PAS: ]lIN_EMA  88 ,.DLD.DST.EXIT0.LPX .LPXR .SDSP PAS.1 PAS.2 PAS.CDS UNQUAL_TO_RECORD8ۑA?@ P (DP(P<(7PD(7PJ(\(h @ @@   'P((3  .P(((, @(4@  +(5p (j @ @ l>>A&" p (j @ A@ A pA@p (j@  l p > &g(jp kj `  @@ `p (3  @"A;;XLV(HENLAB 92833-16197,REV.5000,870621 870622.0137 /P1K/CMP/SSL.PAS; ;ENLAB s BB i.DAD.DCO.DLD.DST .EXIT0 .LBPR .LPXR .MPY .SDSP PAS.1 PAS.2 PAS.CDS PAS.NEW2S B*/KKA`@ @@@p  ((G` (G P@(&(= P(-(=  (=@ (>(=p @@ @(` (` 66tK@@`    @` ` ` 699%i##@ x@@@  @x@@  ` x9""T@@   ppp  ("_l  @Dwc7==X+ V(JRESET_LABELS92833-16197,REV.5000,870621 870622.0137/P1K/CMP/SSL.PAS=MRESET_LABELSb.EXIT0.SDSP PAS.1 PAS.2 PAS.CDS `dpB`pC p5@@(@t<??X{V(LALLOCATE_STRING_92833-16197,REV.5000,870621 870622.0137/P1K/CMP/SSL.PAS?LvALLOCATE_STRING_?? .DAD.DIV.DLD.DST .EXIT0 .LPX .LPXR .MPY .SDSP ENLAB PAS.1 PAS.2 PAS.CDS ?~~FDJ9 J(( 9 /(`p(p`@JA  @@ @ @(&(g @@  (_@ @(C x ` (_`(G~99יF (_ (_  `@ H @@p @@ 9''f( `(k(uh `p`p'u@@  ("   @.??X `V(LSTRING_LITERAL_L92833-16197,REV.5000,870621 870622.0137/P1K/CMP/SSL.PAS?eWSTRING_LITERAL_L// e.DLD.DST.EXIT0.LBPR .LPXR .SDSP PAS.1 PAS.2 PAS.CDS /OO@@ @@((-x @xHx@ `(M@@@xx@`@x `QaO x `?V @@   ( @-??X"pV(QSTRING_INSERT 92833-16197,REV.5000,870621 870622.0137 /P1K/CMP/SSL.PAS?iSTRING_INSERT ee .DAD.DIV.DLD.DST .EXIT0 .LBPR .LPXR .MPY .SDSP NEWLABELPAS.1 PAS.2 PAS.BITDEPOSIT2 PAS.BITEXTRACT2 PAS.CDS PAS.NEW2S PAS.SINGLEMOD eNN 5,,@@  @ x@ @  @ `ʨP((*  x  `p{N?, @@   (]]R673A`!@   @ (z     @ @`P@(^(d `(m@`p `]?mSK@  ` - @ @@  H `p`A@( ((@  (A@ @@   `p  `` - (@ ( @ (@@ @ +NJ@ `@ x@@ @   @ p@ ` @ ` ` (pp @ pp H x8 8( 88E H x @` x(V@ H `(V8GG>*(@ @ x ` x@  x `Gۅh@@   p (6//L  ' /   @b"<<X8V(RGET_STRING92833-16197,REV.5000,870621 870622.0137/P1K/CMP/SSL.PAS<r+GET_STRING99 .DLD.DST.EXIT0.SDSP PAS.1 PAS.2 PAS.BITDEPOSIT2 PAS.BITEXTRACT2 PAS.CDS 9LL~*&` p `(*pp ` @ @pp@ p8 8(LlG*@@ p p(  @(G>>XH5 @V(SFREE_STRING 92833-16197,REV.5000,870621 870622.0137 /P1K/CMP/SSL.PAS>67FREE_STRING **/.DLD.DST.EXIT0.LPXR .SDSP PAS.1 PAS.2 PAS.CDS *__66@@  @ @(6  p   p H @Hx  P (0(6@@ _?6 @@ ( @6WU==XABLV(VSTRING_VALUE92833-16197,REV.5000,870621 870622.0137/P1K/CMP/SSL.PAS=Z?STRING_VALUEGG z.DLD.DST .EXIT0 .LBPR .LDX .LPXR .MW00 .SDSP FREE_STRING GET_STRINGPAS.1 PAS.2 PAS.CDS Gkklr>:` P((1@@@  x@ x`@ x `` (0P(> xH0@H k >@@   `h H AH p ( @ī??X(sV(aUPDATE_FILE_LIST92833-16197,REV.5000,870621 870622.0137/P1K/CMP/SSL.PAS?}`UPDATE_FILE_LIST hhy .DCO.DLD.DST .EXIT0 .LBPR .LBT.LDX.LPX.LPXR .MW00 .SBT.SDSP CHECK CMP_ID2ID EXID PAS.1 PAS.2 PAS.CDS PAS.NEW2S STRING_INSERT hvJFp ` PJ((\  (\ s ((\` (\@ @hH`(T(T (3(D@APp@88%zJx@p ([(` (Y` P(c(  8gRLJ   (@ @(y( (((@  (@(n@ p(`@ @` @p`@@6 **(pp h6H@ Hh6p!@ @H`!*NJ8 8(`@@6 HpP `@ @@`@@xJ@ s@J s@@@ `@ADx x @55kJ  ($(Y` P(Y`@@ `@5HH(g3**@ @hH#@ `@#AD@  @@@x@J @ x@@@H((ٱ]@@ /@`AhH@ ((55/#      7 75@3Q>>X@z FV( aDUP_EXT_ENT 92833-16197,REV.5000,870621 870622.0137 /P1K/CMP/SSL.PAS>f#DUP_EXT_ENT NNG.DLD.DST .EXIT0 .LBPR .LDX .LPXR .MW20 .SDSP ERROR PAS.1 PAS.2 PAS.CDS PAS.WRITESTRING WRITELINE N99:"` ("``  x @ x` P9""`"@@ * `h p @@ (" d&3fy3100: Invalid/Duplicate External Name: @Ca>>((Xvk eV(!dIN_EXT_LIST 92833-16197,REV.5000,870621 870622.0137 /P1K/CMP/SSL.PAS>4RIN_EXT_LIST NN.DLD.DST.EXIT0 .LBPR .LDX .LPX .LPXR .MW00 .SDSP DUP_EXT_ENT PAS.1 PAS.2 PAS.CDS PAS.COMPAREBYTESNIEJp @` () (() @6h AH6 ((!(!p (( @@(` (K` (D (D @A 'P (EpPWI@@,,MO@@$@ `Ah H H p p  (,   @)+G>>X PV("gINSERT_EXT_ENT92833-16197,REV.5000,870621 870622.0137/P1K/CMP/SSL.PAS>VAINSERT_EXT_ENT DD /.DLD.DST.EXIT0 .LBPR .LDX .LPX .LPXR .MW00 .SDSP IN_EXT_LIST PAS.1 PAS.2 PAS.CDS Dgg ><@ @hH @   'PpP@  @ @($() @(>  x  ` @J @@ g!!>@@#@  p  (!  @ E(;;X V("iMAKE_PAC92833-16197,REV.5000,870621 870622.0137/P1K/CMP/SSL.PAS; ;MAKE_PACm  SS .DAD.DDI.DLD .DMP.DST .EXIT0 .LPX .LPXR .SDSP PAS.1 PAS.2 PAS.CDS PAS.DOUBLEMOD PAS.NEW2S SET_TYPE_INFO SWI `@ @`@@    x   x   @  0@  xJ@A@@@  @@ s,W@@@ x @FF[e++@   x A@A @  `   F@@  @    (''  '@v;;XV(#kMAKE_SET92833-16197,REV.5000,870621 870622.0137/P1K/CMP/SSL.PAS; ?MAKE_SET  TT_.DCO .DDI .DIN.DLD.DST .EXIT0 .LPXR .SDSP CHECK PAS.1 PAS.2 PAS.CDS PAS.DOUBLEMOD PAS.NEW2S SET_TYPE_INFO TgUK@A(pP    ($@($(1A(+(E(E (E(E@ @A @(E(ED   `@ @`   @ !!U   x ` !&&g@ x@@@  @ @&!!|I}@@ @  (!%%V:D %@⠢>>XUU MV($nMAKE_STRING 92833-16197,REV.5000,870621 870622.0137 /P1K/CMP/SSL.PAS>%@MAKE_STRING BB .DAD.DDI.DLD.DST .EXIT0 .LPXR .SDSP PAS.1 PAS.2 PAS.CDS PAS.NEW2S SET_TYPE_INFO B^^9M=7 `@ @`@@   x   x   @ @p  `  ^=@@  @    (U W @==X hV(%sMAKE_TEXT 92833-16197,REV.5000,870621 870622.0137 /P1K/CMP/SSL.PAS=MAKE_TEXT r OOR.DAD.DIV.DLD .DSB.DST .EXIT0 .LPXR .SDSP PAS.1 PAS.2 PAS.CDS PAS.NEW2S PAS.SINGLEMOD SET_TYPE_INFO O3NJ `@@`@P  x @ J x@@  `~  ``~P(Q@~ @@@  xSSN31 `P(h@ ` Ah@ @   xSk @ @0@   @@  @   (##,j x@ #  @}??X`V(&yHAS_FILE_POINTER92833-16197,REV.5000,870621 870622.0137/P1K/CMP/SSL.PAS?rHAS_FILE_POINTERr .. L.DLD.DST.EXIT0.LPX.LPXR .SDSP PAS.1 PAS.2 PAS.CDS .zJH@@ @ .(p (0@P(XP( P(-(@ p (@@ p @ (<(W` (W @@22!Jp @@ (6(@ .(gp 2EEN6f&$(@A,(@@(p (p @` p Ek `  @@ `p ( @>>XyFV(&yFIND_SYMB_FILE92833-16197,REV.5000,870621 870622.0137/P1K/CMP/SSL.PAS>$9FIND_SYMB_FILE 33 t.DCO.DLD.DST.EXIT0 .LPXR .SDSP CHECK PAS.1 PAS.2 PAS.CDS 3XX64Jp s@ ` (& ((& @ @ ((p ` @(% @ ( p@@@ X6@@@   (g@OnI??XFV('DISPLAY_MODULE_I92833-16197,REV.5000,870621 870622.0137/P1K/CMP/SSL.PAS?^$=DISPLAY_MODULE_I\\.DLD.DST .EXIT0 .LBPR .LDX .LPXR .MW20 .SDSP DISPLAY_ID_AND_FPAS.1 PAS.2 PAS.CDS PAS.WRITECHAR PAS.WRITESTRING WRITELINE \[[ 97@ ( @ ( @@ @   (!(9  `: @@ ([?9 @@   (PP*C%#@ @(I(Q  -(`pp ` P(Y(a`@ (a`m(`` @(P}}whH@` P(q (q(`@ p`` P(~(@   ` @ ( ((@ @0   `  }77X `#  P(@ ( J(@( @@7~~vYA;`@ hH H (݄(  ` @(`@ p`P (`  @@(`@ hH H8 8(U~/@@ ( `h@ @(C 4P  ) ExportImport list for  M+ `: p ` ` A< @@   (+N   @%??XӾ V()DISPLAY_STRUCTUR92833-16197,REV.5000,870621 870622.0137/P1K/CMP/SSL.PAS?^DISPLAY_STRUCTURrDD :.DLD.DST.EXIT0.LDX .LPXR .MW20 .SDSP PAS.1 PAS.2 PAS.CDS PAS.WRITESTRING WRITELINE DW#>6@ @(( P(P((P(pP(1P(:P(CP(LP(^P(gP (U(y`(`(`(`FF>)!(`"(`&(`)(`-(F??g&`0(`4(`8(`<P?z@@? `h @ @ (; *P<<Y**ScalarSubrangePower ArraysRecords Files Strings TagfldVariant Pointer Unknown <@O?m>>XGV()CURSTR_TO_PATH92833-16197,REV.5000,870621 870622.0137/P1K/CMP/SSL.PAS>?@CURSTR_TO_PATH 99 .EXIT0.LBPR .LBT.SDSP PAS.1 PAS.2 PAS.BITDEPOSIT2 PAS.BLANKFILL PAS.CDS 9qqT>:`p `@A@ (`@p p (x  p ` (:p p h6@ Hp@ p8 @8 ($` qw> ` `p (J @ 7@鞩>>XSNV(*OPEN_SOURCE 92833-16197,REV.5000,870621 870622.0137 /P1K/CMP/SSL.PAS>4 OPEN_SOURCE //.EXIT0.LDX.MW20 .SDSP PAS.1 PAS.2 PAS.CDS PAS.RESET_FILE/ #^ @@`h(T@ SHARED @Qpp==XY V(+CLOSE_SOURCE92833-16197,REV.5000,870621 870622.0137/P1K/CMP/SSL.PAS=oCLOSE_SOURCE&&lg.EXIT0.SDSP ((PAS.1 PAS.2 PAS.CDS PAS.CLOSEFILE &_`#5@@(  @<>>XQ\V(+INIT_SOURCE 92833-16197,REV.5000,870621 870622.0137 /P1K/CMP/SSL.PAS>8INIT_SOURCE ((_.DST.EXIT0.SDSP CLEAN_PATHPAS.1 PAS.2 PAS.CDS (BBd08 p| p} J/` p ` p ` p BL@@(.@a!>>XRAV(,SOURCE_LINE 92833-16197,REV.5000,870621 870622.0137 /P1K/CMP/SSL.PAS>+SOURCE_LINE %%^.DLD.DST.EXIT0.SDSP PAS.1 PAS.2 PAS.CDS %!! `(( J@( /!U @@@(@ ??XxV(,INCLUDE_STACK 92833-16197,REV.5000,870621 870622.0137 /P1K/CMP/SSL.PAS?qINCLUDE_STACK :: -.DLD.DST.EXIT0.LBPR .LPX .LPXR .SDSP PAS.1 PAS.2 PAS.CDS PAS.NEW2S :RP@x ` ( (p ` (Wpp `@ @`  @(, @@@@@ x@@@@ (B(M@@Ax @x ##zR@8 8( x#Ge @@AxLp@@ p (|_[]@<<X1V(-PUSH_SD 92833-16197,REV.5000,870621 870622.0137 /P1K/CMP/SSL.PAS< ),PUSH_SD  JJR.DDE.DLD.DST .EXIT0 .LBPR .LDX .LPX .LPXR .MW00 .SDSP PAS.1 PAS.2 PAS.CDS PAS.DCBADDRESS2 JVV+)J `" Jp" ` `@ @`@ P `pp h  @ 8 8(Vm+@@ ( ][#@v땫::XK|V(.POP_SD92833-16197,REV.5000,870621 870622.0137/P1K/CMP/SSL.PAS: {POP_SD 88 .DLD.DST.EXIT0.LBPR .LDX .LPXR .MW00 .SDSP PAS.1 PAS.2 PAS.CDS 8((6J@hAD  @J @"p"(K@@ ( z[[ @Gf/PASCAL/CMP/CDS/STF.REL:::5:45:128 644 0 0 26400 5300501662 35245 /PASCAL/CMP/CDS/STF.REL:::5:45:128 ""$- 5-STF REL +++->\FST ;;XQVPSSTF 92833-16198,REV.5000,870621 870622.0021 /P1K/CMP/STF.PAS;@2Q>>X1?V$CALLSTDFUNC 92833-16198,REV.5000,870621 870622.0021 /P1K/CMP/STF.PAS> CALLSTDFUNC || (.DCO.DLD).DMP*.DSB.DST+.EXIT0.LDX,.LPX-.LPXR ..MW00 /.MW20 0.SDSP %ADOPT #CHCKB "CHCKI $CHECK CVTNODE DOUBLE_INTEGERERROR FEATURE_LEVEL FULL_SIZE GETBOUNDS INSERT|zzu\INSYMBOLINTEGER_CONSTANTINTEGER_TREE_VALINT_PARAMETER INT_TYPEIS_STD_FILE_IN_HIS_STRING MAKE_CONST_NODE NEWNODE NEW_CST_NODENUM_ELEMENTSPAC PAC_LITERAL PARSE_EXPR'PAS.1 &PAS.2 z1PAS.BITMASK12PAS.BOUNDINTEGERPAS.CDS !PAS.CONVERT 3PAS.INLINEERROR 4PAS.SETCLEAR5PAS.SETINIT 6PAS.SETINTERINIT7PAS.SETUNION REAL_TYPE REPLACENODE STRING_OR_PAC_NOSTRING_VALUETEXTFILEVERIFY_STRING_EX jVERIFY_STRING_VA 9`'zp `'z0 p'z@@+0(JD@`@A@, @ @  `@p   `@,      `@@p  @ `@@A, `@x  `@p `@pP BKX  @ `@p   \\g31@`@A, ` x @ `@, ,  `@,x @@  `@p `@pP \@@+0p ( ^'u QQ,&@`@ A@,@@  @ p ( (`@ Pp@`@ P((Qff;1J@'  J'`@ @A,p '  @@ -  `@x@@P' `@ pP'f4 @@+0(KK<4,$@`@ A@,@  p @ 'J'`@ @A,p  ' KW;`@ p P' C@@+0(ddpI;/@`@ A@,@  p @ 'J' @' @- `@@x @ P' `@ p P' dR@@+0(I88;J` @`@A,x ' `@,Jx '@ 8A9`'2P((`@p `@%p p `@h.` `@ p J@' @`@ A@,A, Pp 0 (`@ P (RR\-'( `@ ,  p p 0 ( `@ ,Jx '@ `@p `@ p  R66`'2P p   `@p @ `@'p'E6?-@@+0( %'; [[ m34*@`@ A@,@ p p @ 'J'`@ @A,p  ' `@ p P' [g@@+0(3aa$m=3@`@ @ @ P P`@ @@x- ,  ,HH@1(-@ @ (p@aIA@- ('(@((- P!(@- `- @@A((((' (J@'  J@'- p  ' `@ p P ' @@+0(m..B `@ pp0(`@,!x .~~FEA ` A@ (!`"A@ p ` (+`@ ,P!(5(`@ , 0(`@ , @hHAH.`@ @`~LLW$ ` P (lP ({P (P (lP!({P"((h   '7 p (L{PFh  @'7 p (h   '7# p (h>0` p0 (  (ۀ` ( ($(΄( (&(p0(@( A*''@ ( ()(p@(` J''vvޮC5('' '- `@x P'`@ pP'` ('  P'@J'($`'v$@@+0( m# '7 33ɭ*` @`@ A@,A, Pp 0 (3PFE;`@ P(L(n`@ @A,@@ p p 0 (m`@p `@ p   (`@ @A,@@ p p 0 +(`@p `@ p //@@ `@p @ p'E@`@J'/P@@+0(*EEi&"@`@ A@,A, H`(`@ ,  (p@ErE?`@ p`@ @` P(`@ @A,@@ `@ @`@`@ @@``@ P@(( @( ((p@(( ( PP2*((p@(@`@ A@,@ J'@`@ A@,@x@PXFG;`@ pP'P'`@ P(Y(^',`@ @A,p 'J@'@`@ A@,@J'P'-@@,p '`@ ,((('(((@`@ A,P!(@Z@`@ A,`@@+0(UN>@`@ A@,@pp 0 p@`@ P((` (`@ @``@ @`     (      ('(J@'=H>(%('((!(!J@'(%' '`@ ,p '  - `@x P'`@ pP'77j\`@ P(u` (u'@`@ p'7u@@+ 0(dd{60'@ `@ p     ' `@@ p  @ `@ @A, `@x  `@ p `@ p P d@@+0({OOc)#`@ P(P( P(W(`@ p  (`@ ,  ` OK=(`@ , ( `'s( `@ @A,@@@@` (``@ p `  `@ p P (`@ p P  `@ KKy++%A@,J('(4(B(B``@ p P (V`@ ,,- ` KVF4(``@ p `  `@ p P `'2P p   /`@p `@%pp `@h.` ` 'P '(hc0`@J '@@+0( ('; <<[`@ p` `@ P((' (Š@`@ A@,@ <~~vC9 @ @ @- `@@x@P`@ pP`@ P(`@ P((h`'2P p /`@ P((`~NN&"@p`@%pp`@h.(+`@p`@*pp`@h.Nxx+A1` P'`@ P(>(h`'2P p /`@p`@%pp`@h.` P''xl@@+$0( )'; LL߼r.&@-!x `   0!(@/23``1`@/@` x ,H@1p L7R@@  ` ( `'2Pp  `   0!(@/27P4P5P6`@/@` x ,HH@1(p*@`@@h<.(p%@55x`@@h<.` ' `  1!( .@@5 :P N <4( /( e( 5( /( ;( A( G( G( M( M( S( S( S( k( k( Y( _( _( _( e( e( e( e( e( e( k( q( q( q( q( _( S( S( S( w` ( {`D( {`( {`h( {`KK/ H)( {`.( {`%( {`( {`( {`v( {`( {Kqq( qG5`m( {8` ( `'2P p `   0!( @/2;`9`:`46`@/@` x ,HH@1( q))  @@+E0`=h>@ /@`hH.(r)OOH88  }G6t 3B " P'; %O  6@6H@ ??X V$STANDARD_FUNC 92833-16198,REV.5000,870621 870622.0021 /P1K/CMP/STF.PAS?gSTANDARD_FUNC %%";.EXIT0.SDSP CALLSTDFUNC PAS.1 PAS.2 PAS.CDS % ;6@@(@z: JMP RDWRN THESE OFFSET VALUES*  LDA OFSET WAS THIS THE LAST TRY? CPA N60B JMP RDWR/PASCAL/CMP/CDS/STM.REL:::5:64:128 644 0 0 40000 5300501664 35327 /PASCAL/CMP/CDS/STM.REL:::5:64:128 ""$@ 54@STM REL +++@,FST ;;X]V PSSTM 92833-16199,REV.5000,870621 870622.0025 /P1K/CMP/STM.PAS;@>];;Xh V GEN_CODE92833-16199,REV.5000,870621 870622.0025/P1K/CMP/STM.PAS; GEN_CODE &&^.EXIT0.SDSP GENERATE_CODE PAS.1 PAS.2 PAS.CDS &`Q( 7@@(@zh(==Xߊ KVCONDITION 92833-16199,REV.5000,870621 870622.0025 /P1K/CMP/STM.PAS=T@CONDITION VV| .DCO.DLD.DST .EXIT0.LDX .LPXR .MW00 .SDSP ADOPT CHCKB NEWNODE PARSE_EXPR PAS.1 PAS.2 PAS.BITMASK1PAS.CDS VrrR?7h `@ P @ J ((pp(?J  ,H H@(:`   @  JJ  `r? @@ `hH AH() 3 ; e@ew7@@Xs7VSTATEMENT_NODES 92833-16199,REV.5000,870621 870622.0025 /P1K/CMP/STM.PAS@[,STATEMENT_NODES 00 }.DLD.DST.EXIT0 .SDSP ADOPT NEWNODE PAS.1 PAS.2 PAS.CDS 0::)@@ @@P ` (%@@P   :)@@ @ p   (l>?&@4==XktV2STATEMENT 92833-16199,REV.5000,870621 870622.0025 /P1K/CMP/STM.PAS=a  rSTATEMENT g'.DAD(.DCO.DLD.DST).EXIT0*.LBPR .LDX+.LPX,.LPXR .MPY-.MW00 ..MW20 /.SDSP $ADOPT "CHCKB !CHCKI CHCKS #CHECK CHKBS COMPTYPES CONDITION CST_EXPR_FEATUREEQUIV_TYPES ERROR xxFEATURE_LEVEL GETBOUNDS INBRO INFTS INSYMBOLNEWLABELNEWNODE ORDER PARSE_ASSIGN_ID PARSE_EXPRPARSE_IDENT PARSE_PROC_CALL PARSE_REPLACE &PAS.1 %PAS.2 0PAS.BITMASK1PAS.CDS xff 1PAS.INLINEERROR 2PAS.NEW2S 3PAS.SETCLEAR4PAS.SETINIT 5PAS.SETUNION REAL_TYPE REPLACENODE SEARCHID STANDARD_PROC STATEMENT_LISTSTATEMENT_NODES TRANSFORM_TREEfsGE`&p ` As@'&+(` ((@ p (` As@'&+  p  (+(S` @(S @@ ,  P&5(9(Lp ,  p0@,33G (R*  (%0 ``&2Pp3%%e@JJ&&@@,@x @%y@@)/(VL *x J@& @*x   ,x   *+ p   (Q*+P!(@@*@@@*@@@*A+P!p   & (Q TR@@*A@+@@*x  *+@Ah H D-*` @ -@*(*, @@,@x @ ` @@A+@@@@*@p ??zT-$ 0 ` @@p ,( (>(J` @@p ,( (Ip 0 ?XQ@@)/ (NWMK@`@(A@+ (n`@(p`@*p@(`@*'+ `@*'!+  `@(+ (( '+"".x(((*("jvNH@ @(( @A!@A'+x((( (ӄ( '+x@@((p #( (`@(p`@*pp(`@*p d @@)/(W,, @@,`@p6P6C$X`@Xh-,F$KE & `&zp ,@ (=,x6&6,@J(&(G(l(l`@S@x6,(( ,H6@0(l`&Z(l@% & @@  @@,22Ko@@7@,,x6@@76@,(&(@((, `2~~qOC06&'@@`@6@x9@,+( ,H9H@0(,@@77 (p:0:@,@,7`@@`;`@@`X~44P7;X`&2P+p6`@p9P9H$ X6X(4L@`@) (@,(@*@&@,&`@?@`&2x6 ,H6H@0(S `@p6P6H$X`@XhAH-`@ @`7`@@`;`88B@1@`X`R 7;X`&z0 p `&2P(V(`8¤]I?`@p6P6M$X`@Xh-`@ @@`7 `@@`@;`@. @@`X`R7;Xp606+2(/(p606,(`@.::}" @`@1 -@@*@@*4@,4`@1 -@,4!`@. -:1O?@,4-,4/x66`@@*`&z0 p `&2P p ` (`` (%`&2Pp66`@p60X$2@1P6X$ ] r]@&((@$@3@"@,"@$"@$&(~~&0QE@&$ (?(S,/@@@,/x6@@$6@@(9`&2P p ` (n``&2P p6 64(n`(^` (@& $@3"~&& @$"@,$`&2P)((`&bb\7)`@p665@$&(`J&@6@4 @&4@ $&` 0&zp&z,&`&2P'p667b  @@)b/`h8.(  ;&;> ((6@6P6@6@N (&&Gt`@p  5`&2P'p  7&v@@)/(~~ RD@p, (!p(0-&9@@`@-@x.,( ,H.@0(0/&9@@`@/@@x0,( ,HH0@0~ +S\( yy_I?p0p 0p ` P (` P(r(w&({J@&@, x-@%-*@hHAK:-@*A`@:D-*x-@ -@y""j`)7/@@@@`p( "!! `&z(`@ (hH !Ax`@ 0&zp&z@@)/(JZFp  @ @ @ @  @ @@`@p0"$>@;@<@=P"$'`@'h-0?@J&@@,>) Pp @(j~~4PJ@,+A +(V@,+C .(V@,+EP&p0@,@@@ , A0@, (z@,xJ@&0&G@~KKl-'@`@@@x,+( ,HH@0(,@@ (p0HK~V:`@`&2Pp`@p0"$J@;@<@=P"$ 'I'(a``@p0"$K@;@<@=P"$'`@'hMM4,- &,@@@, @(4,`(5p0LM~~;N<`0"$M@;@<` @"@`&2x ,H@0p`@p0'$M@=P'$,N,(`&2P-(P.((@O@~&&(@.( h@`&VD`@p0"$P@=P"$'`@'h- & ,@@@,  (@,` (p0L`@00@ (p `&2P,p`@p$(a0zUA`@:'  (Q,@@@Pp*`Pp@,`,``@p r` @&@& :c (g(m@, Am@@)1/( &;&xsGE`&2Pp .( p `&p ` As@'&+(@ p (` As@'&+   ((` (@@ @, P&5((@p (*@=={% (@ p ` (` (0 `@D&@ =::0b!@@ @,x@@ @& , RA @&@( , Rx&: @@)/(snn K3@T@ `@p 0$W@U@VP $p@ &`&2P/p  X`@p 0$Y@VP $  rn88- Q@ &`&2P(( Z( i``@p  r @ &@J &8 m@@)/( YY s4&@Z@ `@p  [@ &`&2P*p   \( ``@ p p @ @ & J&Y @@)/( s11 @]@ `@p 0$^@=P $p1;;zU @ &`&2P,p  $`@p  r @ & &;% @@)/( }}7 SA@ p p @ @ `&2p`@p0#$_@"@=P#$ ((( `@p0#$`@"@=P#$(`A@(h@-}gS ESE&,@@ @, x , (Pp a( `&@p b(  @c  @d  @@,P"( ..rg ( , ( p ( `p @, ` `&p&. OK` p `&s@J@'&@, e*@x@@, x @@,@gx@@,`  ( (  @( @( @p `&2P ( ( `p //m ( `&2( p i` ( `&2P,p$/66  `@p r ( ( $@ &` @@&p&J&6 ,@@)-/(  )&; ttE  2G9`&2P( 6( I`z@j @ &( M   &0$$k@P$$)`@)@`&2x ,HH@0p tI; y>6`&2Pp ` ( @`0$$l@P&h$$)` @)@`&2x ,H@0( I`&2P( P( P ( P!( P"( )P#( P$( 2P%RR (&( ;P&( ( D `@@`@# ( ( &hpA`@D-,m'P( ( R M/@,C /P( ꨋP( ( ( ( h?( ( I``( I`` ( I`` n( I``΋( I`` ( I`,,6 ,` ( I``n( I`` -( I,QQ[ D-% hO& ( V@oJ@& ( \( e@ & &` ( q@&&Q$$  q@@)./`qhr.`hH-( 2$~`` 14 6G  @kf)2' -.,37F/(c4i:*5KLM `g  (/ P&&; #  *H < Ms @42>>X`NV7STATEMENT_LIST92833-16199,REV.5000,870621 870622.0025/P1K/CMP/STM.PAS>STATEMENT_LIST}}6 .DLD.DST.EXIT0.LBP.LDX.LPX.LPXR .MW00 .SDSP ADOPT CHCKS CHECK INSYMBOLNEWNODE PAS.1 PAS.2 PAS.BITMASK1PAS.CDS PAS.SETCLEARPAS.SETINIT PAS.SETUNIONSTATEMENT } :eSTATEMENT_NODES *S;p@ P`` p #P # P``(( `@@` 2x ,HH@p` 2P (N(Q` 2P //VBSJ(U(k  @A P&(c(k` 2P (g(k/TgZ<(cP`` `` p h#` @#@` 2x ,H@pP``` p h ( (P`99` `p h#`@#@` 2x ,HH@(9 @`      @@-`hHAHp ( @6 y| x@ k99X(V9BODY92833-16199,REV.5000,870621 870622.0025/P1K/CMP/STM.PAS9 i/#BODY NN l< .EXIT0.LDX .MW00 .SDSP ALLOCATE_STRING_CHCKI GEN_CODE PAS.1 PAS.2 PAS.CDS STATEMENT_LISTUPDATE_GLOBAL_OPN<<߃"`@@`AK P` 2P'p ` pp t0@ <c"@@  (L ' ;@ٯo DLD CYL# PRINT...  DST BDCYL "BAD SPARE" JSB RPORT  CCA  STA $RET JMP ENDBR * * MODE=3: * ILS03 LDA PHASE WHICH PHASE ARE WE IN?? # CPA /PASCAL/CMP/CDS/STP.REL:::5:103:128 644 0 0 63400 5300501666 35770 /PASCAL/CMP/CDS/STP.REL:::5:103:128 ##$g 5tgSTP REL +++g3=nFST ;;X]V PSSTP 92833-16200,REV.5000,870621 870622.0029 /P1K/CMP/STP.PAS;@>]>>X?gV 4CALLSTDPROC 92833-16200,REV.5000,870621 870622.0029 /P1K/CMP/STP.PAS>kCALLSTDPROC z||..DAD/.DCO0.DDE1.DIN.DLD2.DMP.DST3.EXIT04.LBP.LDX5.LPX6.LPXR 7.MW00 8.MW20 9.SDSP +ADOPT *AOC (CHCKB 'CHCKI &CHCKS )CHECK %CHKBS #COMPTYPES "CONVERT_SUBRANGE$CORC1 |||a!DEREFERENCEABLE ENUM_TYPE ERROR FEATURE_LEVEL FIND_SYMB_FILEFULL_SIZE GETBOUNDS INSERTINSYMBOLINT_CONST INT_PARAMETER INT_TYPEIN_EMAIS_CHAR IS_STD_FILE_IN_HIS_STRING NEWLABEL|}}}NEWNODE NUM_ELEMENTSPAC PARSE_EXPR-PAS.1 ,PAS.2 :PAS.BITMASK1;PAS.BOUNDDOUBLE <PAS.BOUNDINTEGERPAS.CDS =PAS.INLINEERROR >PAS.SETUNION REAL_TYPE REPLACENODE STRING_LITERAL_L STRING_OR_PAC_NO}&&ATEXTFILETRANSFORM_TREEVERIFY_STRING_EXVERIFY_STRING_VA&[`-zp `-z0 p-z@@39(,, (*@6    /("p,?* @@39 (``A460@ `@p     `@@ p  @ `@ @A5`@x  `@p `@ p `{{ jFB@ `@p   `@5` x @@@ @`@A@5A@5 @ `@@A5x   `@p `@p `@  {@@39p (4 d-u 00:u@6 "P((6@ A5$/ p  &0A= @@39 (s&JF `@@`@ @6'x ` A(p ` A@(`-ʠ@(`p h  1  )J@.-@6+  /()( (!()6 -!!&$@@ ( /(W(/6@+@ !55h6!@6+x@@@6+5-x@@ @p6+5/`5AW @@39(~~a?7`@p `@ 5 `@ p `+ @`@A5 P((`@ p  1(`@p `@ p  `@p  hH ~~~y84`@ P((`@ p  2(`@p - `@ P ((`@ p  3(`@p J@- (`@ (W`@ ~``1)P((`@ (`@p 0 -p  1`@p  A/4((6-@ `@p   ` B<`@p `@ p   `@ h@Hp @ (K`@p `@@A5@A57@@/ (2(;(;`@ 59Pp  1`@ p `р nn?K:0`@p `@ p   (`@ @A59Pp  ;(`@p  (`@p   (`@p  (p n~~HD8` (`@p P (`@@A5 p  1(` (`@p  (`@p `X `@ p `р `@p `~H2@ p  @@39(a::p6-9(6-"P!(p-6-"P!((:((zJ6-@AhH :K7` p<(r@@39(+7 IE@`@ A@5@=@`@p >-`@p@@@`@A5@`@AA.5?` @ (` @55 UP(Y(YH@`@ p` @557 @pA@`@ A@5@`@@A5x`@p`@ p(V`@p (`@UU˰/'p(p ` (`@p(Њ`@pP(`@5 pA(U~~ @8` (`@/-(((`@ @A59``@p(`@p`X`@p`@ p`@ 5/-(~ZZ-)(V(V`@@x`@ @A5" ,H@:(V`-Z(V6- `@p`@ p Z=C=@`@A5x-`@@ p @`@p-`@p`@p`@p(>-`@@p@`@@A5HH2" `@.5?`'`@p`@p`-=(`@54(H~~95@`@A54` @p`@p`@/-(((`@ h (=`@/-(((ъ`@ h(=`@pP(߀`~ccu/'@ h (=`@p@(`@ (=`@p(`@p`@ (=`@p (c" >8`@ (=`@p(. `@@`@ @`@A5B`@ (=` @ (=`@p`@ `@.5?`@ VVH*"`-2P(M(` @ (` @p` @-pE`@hD7`  `VarC3`@p -`-2P(~(` @p` @-pE`@hD7`  ``@ppF(`@p- @@3#9`hG8(  -; N @8`@p `@ 5 `@ p `+ @`@A5 P((O`@ p  ;(N`@p `@ p  `@p  hH `mm+73@ P( (`@ p  2(`J@p -@ `@  K0H@ !(N`@@x @ @,HH @:(Nm==5`@ p  3(N`@p - (`@ (`@ P(Z(`@ (`@p 0 -p  ;(`@p `@ p  GG)z%`@p  /4((`@p 6-@ `@ p   (`G @@39`h:8( 9P   "G=@ `@p((     `@@ p  @ `@ @A5`@x  `@p `@ p  `-2Pp p `@p `FF!@(p   E`A@hDH7` `@ P(P((` -(FuC3P -(h`@ p  -`-2P p p =`@p `@(p   E`A@hDH7` p`@p  -`-2P ccX8.p p =`@p `@(p   E`A@hDH7` J6-  P (6-9Pp  ;cQ;3`-`@p  -`-2P p p =`@  `@  `@  `@  `-2P (+`@ (+`@p `@-p  ]](2,E`@hD7` `J@ p -@ `@ @ p `@p `@(p EP ;(]by80`@ (*`@ P( P((`ш(`(h,`-2P ((#(*`-2P (*`@ (`-2P p `@p `@(**\25p E` G`-2P p p *M@@39( 0-; ==fS`@ P(gP(nP (gP (nP(nP(nP(gP(n(u=g?3`(z` (zhN`-2P(( j`@ `@ `@ `-2P ( H`@ ( H`@p `@-p  E`YY /)A@hDH7` `@ p - `@  p `@p `@(p   EP ;(Y6.`@ ( `@ P(P(P (P (P(P(P(P((`ш(`(hj`-2P ( ( ( `-2P ( `ee< /-@ `@ ( ?`@ P( `@ P( ( :`@  ( &( 3`@ 55 Pp  Je4 :=5`@ ( C`@ `@ (`-2P p `@p `@(p  E` G`-2P p p `@p 0 `@ P( P[[ w(&( P( P( P( P( ( `@@D4 p  J( `@ P( `@ P( ( [-- D @`@D44@ p  J( ( p-E- @@39(S 1-; BB `@ P( `@ P( ( `N( ` `@@J-B< @@3%9( PPR1 '!`@ P( P( ( `( `( ``@@A5x - P5T @6`-2P( ( `@ P( ( *`@p `@(p   E`A@hDH7( =`@p `@#p  E`@hAHD7`J -@ ``@ F6.@6 5 Pp  ;( a`@p  `@ P( g( `@5   p  2`u |M?`-2P p p =`@p `@#p   E`A@hDH7` J@- @6   P p  ;`@p  6@ @  A/4( 551 ( `@p 6-@  `-2P p p 500m ( `@ Pp  `@-p-E0t @@39(  2-; p GC`@p`@5K`@ 6-@hH:7`@ `@@ ( (( `@ ( `@ 6 B@hH:7`@@ @/( H++9: G( }6 M@hH:7`@@ @/( ^( ^( }+~~6 ^DB`@p`@@ p@`@p6 K@@`@ ( `@p@6 7( `@ ( `@ p@`@A@5KA@5OA@5O@~9 @@39( 99J J6-"P!p  Q( `@ p  R( 9S H>@`@A5 Pp  S( `@p  ( `@/-( ( p  T( `@5B `@p 0 p  U( ` w  P @@39( 44  -BV     `@p"@@ "4i 9H<@ `@ p" "`@ 5`@@x"@"`@p"`@ p# "#`-2Pp"`@p#`@#p$#$E)P")(A`EEɝ #@p"`@(p#"#E)`@)h D7` -`@p""Eo OE@69P( ( 6@A5 Pp"";( @6   p""W6@A5KP-p""X`@ K 0@H !(A`@'@..  x" @,H"@:(A>-@@6. PLA@.A5?x" "`-ؠ@( (6x"-"6`@p"@"66 P( >( @67 ( G( 67@@ @  @676++ \ P@( b( i6B6,( +~~ qSM@@@6" ,H H@:( 6@@( u6"Pp""Y@( 6  Z-6@9@A @@.)A@7.@.`@ @~44N `0`@ @` 2 ).026+xh p" @"4+# F<@6/x"@@"`@p""`-2P ( (`@p"`@(p#"#E)`@)h D7` 6@-@` ( `-@A(6@A.5?@@&%!@`  A/[(-p""A](A@A.5?x"  "`-2P p"p"@K@`@J-Q @@349` h :8(  P-;-_\&c\ \ _DD@p 6 5 P(l(/-u(s(v(vp (/-w(}((`p (p -s ` @( ((@6 ^/(((p @6 @(6  7x (6 `@@ (6X ` 39@@(_..J]`@p `@(p  E`@h D7.A9` `J@ p -@ `@ @A5@A5 Pp  ;(/`@p `@ p  `@ p `+ `@ P( (/@`@ @5iiv=7  p  2(/`@ @A5x - `@  0H !(}`@5@x @ @,HH @:(}iOD:`-2P (S(`@ K 0@H!(w`@2@x @,H @:(w`-2P (~(:(`@p `@(p   E`@h CCrj'AHD7` -p  ;`+-J6-   /((CRA5`@p  - `-2P ((`@p `@#p   E`A@h DH7` `@ p - `@ p  p  ;`+-`II9'%@ (G>@- `@p   `@5`@.5?Ig"FB@`@A5"P(,(G`@@A5@@ ` p `@.5?` `@  (g>@- `@ p   `@ .5?`[[Mh/'@p `@p  `@p `@ p   `@ P((`@ 5   p  3[+@>4`@ P(( `-2P ((`@p `@#p  E`@h D7` `J@ p -@ `((@ p  p  ;`@ p `OOul,(+ `@ @ (>- `@@ p  @ `@ @A5`@ @A.A5?OXXy-%`@p `@ p  `-2P p `@p `@#p E ` ; `-2P p p X.@@39( 7 -; yy4GA`@ K 0@H !(T`@;@x  @,H @:p  J`@  0H !(`@5@@x  @,H H@:(y{F@>-@`@p  `@5`@.5?`@p `@p  @`@A5"P((`@@A5@@ ` PP+)p `@.5?` `@  0H !(`@8@@x  @,H H@:(PSS,(>-@`@ p  `@ 5`@ .5?`@p `@ p  S@@39(4jj-5/@ @  `@ P(4P(;P(;P(4P(;(B`(S`(S`@`@A5x-jEES!`-2P(Z(``/(e``@p0`@-p-EE-t@@39(۳z@:` @p ` @(p   E`A@hDH7`  `@ p - ` @p `@ p  @`@ A59P((`@ @A5@A5 P{p  ;HHoK%#@`@ A@5A5/ p  ;` (`@ p `@ 5 H@@39p (z 8-; xxmB:` `J@ p -@ `@p `@ p  `@ 5 P((I`@ 5K `@ 5 0 p  b(Ix,,1`@ p `@ 5K @ p  b,I@@39(~~CDOF>@  @ `@p   `@@ p @`@ @A5`@x`@p`@ p`-2Pp`@p`~ .a @#p EP( ~~F4`@ P((``-2P pp=`J`-2P pp=`(``-2P pp=``-2~::P pp=`J`-2P pp`@@J-: @@39(O M=   6 `@x    `-2P(6(`@p `@#p E`@hD7`  J -6-..]Pp  ;(J6- /4((x.44 x6-@ -`-2P p p@  J-4A@@39( 9-; pp=rD6 6`@x `-2Ppp`@p`@(pE`@hAHD7` p*oL< p-`-2P pp=`@p`@(pE`A@hDH7` -pJ;6- (W6-@A5K@@;;R&*  `@ @`@`@ @@`@A /?(C(Bp;;~~SJH8@A /[(Op -`-2P pp=`@p`@(pE`@hAHD7` p -`-2P pp=`@~MMU)!p`@(pE`@hAHD7` -J(6-9Pp;M>NDJ6- (6@-A@5K@`@ @@` `@ @`@@ A/?((p@; A/[(p -`-2P 33 pp=`@p`@#pE`A@hD@7322^%"` p-`-2P pp-2z=@@3"9( :-; pp>CD6   6 `@x  `-2Ppp`@p`@(pE`@hAHD7` p@4`@ P(P(P(P((P -(` -(h-  `-2P pp=`@p`@(pE`A@hDVVU)H7` `@ P(P(P(P((뺋` -(P -- (p( hV~~;?3 -`@ P(`@ P((*`-2P pp=`@p`@#pE`@hAHD7` p -`-2P p~/ p -8@@39(C ;-; ##>@6x ` c!(m@@# I"PN OOM(N (n(n(((t(t(z(z(((t(t((((((((n(t(t(t(t((t(t(((((Of2nL8` (` (` (`(`R(`u(`>(`9(dh K 0@H!(`@?@@x@,H H@:()))P@@3A9`ehf@I8@`hHD7(>)pp8TT*   G tP!6| 1oST"QP#p--6@6H6H000J-@n??X  V 4STANDARD_PROC 92833-16200,REV.5000,870621 870622.0029 /P1K/CMP/STP.PAS?rSTANDARD_PROC %%F.EXIT0.SDSP CALLSTDPROC PAS.1 PAS.2 PAS.CDS % ;6@@(@܀PCYL - PHYSICAL CYLINDER TO REPORT* RPHD - PHYSICAL HEAD TO REPORT* * USED# - I.E. THE NUMBER OF SPARES I/PASCAL/CMP/CDS/TLM.REL:::5:134:128 644 0 0 103000 5300501667 36461 /PASCAL/CMP/CDS/TLM.REL:::5:134:128 ##$ 5TLM REL +++B!FST ;;XēPSTLM 92833-16201,REV.5010,881021 881021.1623 /P1K/CMP/TLM.PAS;@e<<XēNEWTEMP 92833-16201,REV.5010,881021 881021.1623 /P1K/CMP/TLM.PAS< NEWTEMP  zz .DAD.DCO.DLD.DST.EXIT0.LBPR .LDX.LPXR .MW20 .SDSP CHCKB CHECK ERROR FULL_SIZE PAS.1 PAS.2 PAS.CDS PAS.WRITECHAR PAS.WRITEDOUBLE PAS.WRITESTRING SHOW_TEMP z UkWRITELINE x88`@ ` (`@(hH `@ `@ `@ `@(`@ A @(`@ hH  `@ qq:X822 @p /(e` @!(f`@p ` @ !h@  ([(e(e .p`@  (ghHqj;;`@(`@ (` @!(h   `@    `@p h  @@  (((`@ (`@ `@ hDD Z(` @!(`@h`@(`@hH (D@@(   889`@(( `@ `@(5`@ A@(58>p99`@ hH  `@ @p /(`@p ` @!h  (hH`@()`@ () .($`NN!!@p ` @!h   ($hH`@(4`@hH (NC5@@(   -; @ p(~~ZIHB@` @@pJ x  ((` `(` 6`(` (h @ h  @@ h  @@ (((p(~JJF#!h  @A (((`p( p` p (`p`(` @pJ99@`@ x!(`((` @p`p`pA0A`@p A0A N0 N`P((`@mm-- pA0 A(`@p A0 A`((` @p0` >(0(` k(m~~eJ>`(9` k(9` ` P `@ ` P`P(= (n` ` h  (Pph @  x h  ~PPd)' (m(mh   (`P@(r(` ` h A@ @@(pP55_h  @ x h   ((h   `p =5@@. `h@@(;""'!] P "75>>> Unable to use temp list [ @zə==XB.FēNEW_CST_NODE92833-16201,REV.5010,881021 881021.1623/P1K/CMP/TLM.PAS=w7NEW_CST_NODE 99 .DAD.DLD.DST.EXIT0 .LBPR .LPXR .SDSP NEWNODE PAS.1 PAS.2 PAS.CDS 9XX42@@A @@ ` P((@ @ `@(0 Jx@@ @ @x @@ @X!!4@@@  p  (!! @ʋ??Xݗ+ēINTEGER_CONSTANT92833-16201,REV.5010,881021 881021.1623/P1K/CMP/TLM.PAS?mINTEGER_CONSTANT 11 d.DCO.DLD.DST.EXIT0 .SDSP NEW_CST_NODEPAS.1 PAS.2 PAS.CDS 1--/@A @((  A((@  (@  -Ù@@ @    (@B;;X ēNWTPN 92833-16201,REV.5010,881021 881021.1623 /P1K/CMP/TLM.PAS; PNWTPN q  PP/.DLD.DST .EXIT0 .LPXR .SDSP ADOPT FULL_SIZE NEWLNODENEWNODE NEWTEMP NEW_CST_NODE PAS.1 PAS.2 PAS.CDS P;VP@ `@ @`@`@ @@`P@ ` M(\` (\` @(#(\` p `   h  @@ ))P   (`@ @ ` )==i##@ xh p ` @( J x @(  x  =;@@ !@ (+ " @$@@X!ēNODE_TEMP_INDEX 92833-16201,REV.5010,881021 881021.1623 /P1K/CMP/TLM.PAS@ONODE_TEMP_INDEX zz .DAD .DCO.DLD.DST .EXIT0 .LBPR .LDX .LPX.LPXR .MW20 .SDSP DEFLBL_ENTRYPAS.1 PAS.2 PAS.CDS PAS.WRITECHAR PAS.WRITEDOUBLE PAS.WRITEINTEGERPAS.WRITESTRING WRITELINE z_3MK @p= ((@p @@P"((N`  (!(?  (,@ P(,(? @A  x  @A  @@(K@x p ::ZcM (`M(@P(X(@ A ( @A @@:!mIG@@ @@P"(z(P!((@(h@ @ (((p A@  A @ p ` (`km(@`  @@j$0` `  ` Pp p ` ( ` A@(@__IX--` p ` @p/(``P ((` @!h @ ((p (π` (` p=_ @@ +`h@@(!!V + !P >>> Looking for temp @@Ҹx>>Xhē UNPROTECT_TEMP92833-16201,REV.5010,881021 881021.1623/P1K/CMP/TLM.PAS>[UNPROTECT_TEMPPP u.DLD.DST .EXIT0 .LBPR .LPXR .SDSP NODE_TEMP_INDEX PAS.1 PAS.2 PAS.BITMASK1PAS.CDS RELEASE_NODESHOW_TEMP PbA;@ ((Z@ `=((-`= @p ,P(#,P( (&` (&`k(-P=` (4@`   ,HH@ (N&&A@  [    [ &loZ@@    p p ( _@\)z==XMXhē%PROTECT_TEMP92833-16201,REV.5010,881021 881021.1623/P1K/CMP/TLM.PAS=j]PROTECT_TEMPHH .DLD.DST.EXIT0 .LBPR .LPXR .SDSP NODE_TEMP_INDEX PAS.1 PAS.2 PAS.BITMASK1PAS.CDS SHOW_TEMP H@<8@ ((\@ `=((8`= @p ,(# ,P( (1` (1p?` (- 0 (1 0 `k(8P=@ 22<  ,HH@ (Q @@]    ] 2S\ @@  p ( _@0Ob??X 4ē'NEW_LITERAL_POOL92833-16201,REV.5010,881021 881021.1623/P1K/CMP/TLM.PAS?f/NEW_LITERAL_POOL<< .DLD.DST.EXIT0.LBPR .LPXR .SDSP NEWLABELPAS.1 PAS.2 PAS.CDS PAS.NEW2S <QQ.* `@@`@  @@ @p@ `  @` Jx@@@J@Qg.@@ ( ^@Ih??XL+ē.ENTER_LITERAL 92833-16201,REV.5010,881021 881021.1623 /P1K/CMP/TLM.PAS? qENTER_LITERAL __1D .CFER .DAD .DDE.DLD.DST .EXIT0.LBPR .LDX.LPX.LPXR .MW00 .SDSP ERROR FULL_SIZE NEW_LITERAL_POOL PAS.1 PAS.2 PAS.CDS _EA`x`P( P(P((`@p(!@(!x% %(!p @p (-(`(@@@`Hx p ` @ (`(LL`.E''p` pp`A@(v`(v` @p%`%@p&h  @A'@@ '&(oL$lGGp(u`p`p(K`(@ @p%@ %p(` p (=`@(('`( @ ((`@(@@!!H`A @XJJH,*(@p(!(`J(P @@@@@##H @x%@%Jll <<`( p%ph @@# @D   @A@@ #` @p&`&@8@8%(#Hx%#`%x%@`%l @@ ) ` h HAH( g@ )k==X+ē0ENTER_DEFLBL92833-16201,REV.5010,881021 881021.1623/P1K/CMP/TLM.PAS=aENTER_DEFLBLLLQ.DAD .DCO.DLD.DST .EXIT0 .LBPR .LPX .LPXR .MPY.SDSP NEWLABELPAS.1 PAS.2 PAS.CDS PAS.NEW2S LܑNNA`@  p  ((m`(m@@@  (.(Q(Q @A P(8(Q@ A@ @ (E(Q(Q P(K(Q **NPp`(l@  * eQO@  (`(` @@`   ` x!!  ` (( x!@@!@ `  x! ! ((  x!((es@@!(Pp!`@JA `!(BB4$$A`@ @x!@!`A@ x! `! x!@@!B''x@@ ' p  p  p('n c  @M ??X(ē7NEW_INLINE_LIT_N92833-16201,REV.5010,881021 881021.1623/P1K/CMP/TLM.PAS?NEW_INLINE_LIT_N qqd .DAD .DCO.DLD.DST.EXIT0.LDX.LPX.LPXR .MW00 .MW20 .SDSP ENTER_DEFLBLENTER_LITERAL FULL_SIZE NEWNODE PAS.1 PAS.2 PAS.BITMASK1PAS.CDS REAL_TYPE q@EC@x@@@@ P"("(` P(&(-J@  p (7` P(1(7  `p P(>(Ap (M llE>DEBUG> >>U ##@A @(&(7 A(-(-(7` (Cx   >?C @@  ( %%8M `d(\0`@`  %@-` @@  (M00ej`@ `@p @  `@ `@ 0J~@@ (j H<`d(` `` @ @```%@ J((ވ(`P((@(@x@ `pp `@p`@ 88ph@ ` a8 8((h @` a8WWY2(A ((`ph @` a @` @ @` @` `d(`W))P@@) `h`hH@@ () 4P1  1 Emitting word(s)''l: `@ (I`@p ` 'I@@ (:O?;`@ @@hHhH`@p `@p `@(    `@ `@p `@p ` ` s @h `@hH `@ N@@ (OyyD75`@ hHhH`@p `@p `@p `@( x   `@hHhH`@ y@@ (@@GX!@`@( ((1@`@(A @hH  `@ @`@ p  @hh1/`@ ((*`@ @( (`@p@`@(AA @@`@ `@ `(1`@(p hr1@@ ( m 7 ooݴ75/`@h`@&p   `@p  @ `@ `@hH`d(|```""`@p P` ol@:````##`@*@A$x ` P(#P(P(P ((Y`@ `@&p `@*& `@$p @`@&A@(@ YY-%@`@&A*`@`d(```@$p @` 0`,`@p P` Y\>:``@&(刊((`@h`2(^`@ `@(@ ((`@"hH(p @@ `@&p `@"$  `d("XX&-)``$##`(^`@h`@&p `@*& `@*-(L`@p   X5&DA9`@p / (a`@&p `@@` `@@ ` `@hH `d(``'`@p @` ``+`gg8*4.@p @` `@$p   `@ `@*p A ((`@ `@p `@ @ `a g~~DD:@`@(A @hH`@`@(  `D `@hH`d(`(^`d(``-`@*@A&x @~SS\((#!` 0`1`@h`J@&p @ `@$p   `@h`@hSkk+ >4@`@(A@2@ `a `@*@A&@@ `a `@(p `@(4  `d(S``2(^hk^ @@1 `h6(7 7GPi **iPrevious bits Setup Array of RecordSet of .. String [*uuR]A?@`@(A((`@( (`@&p  4(((Ɗ@`@(A @`@(AA  @ `@(@A Ax   u@@ (j`d(}=9```77`@P(P($P(P(P(=( `@(p `@(@A4@@ @`@( ((`@"hH(p @@ `OOQn (&@&p `@"@A$@@ `d(#``77(`@(p `@(4  `d(<O½4D>``(`@(p `@(@A4@@ @`@( (R(z@`@(A @hH  `@`@( `D`@hHLL;x'!`d(``''`@( ((`@p P` (``%77L[77(`@ (`@(@A Axh6p `@ @H `@ hH  `@ hH @hH (`@ @((`]]f2.@( `@@x @ `@p   `@(p @`@(A@4@ `2`d(``(..]M\ (h,`d(` @@/ ` h 8( F7 ))Next Field Component Element is Empty PAC or String )3:@8`d(J````@P(XP(2P(2P(2P((A`@"@@@9 .(`d(``;x@`''zRz0`,=&pP`'EA``@ ;@@((`J`@&p@$`@@$p?=+hH(F`@hH@p ` @^^D7)Lp   ABp `d( ``$`@pP```(P` 0`,P` ^ B6``@((*` hH@A@(*`@ `J(`@hHH (F`d(@``*CC`(Fh}``UU`IL&&@$(T(X(X`@hH`@(n`@$@ (n`@hHULr88`@({`@(|hH`@(`@$@ (`@hHH@A@p `@ `@(Ҋ`@Paag0,(`@&$P((`@&p`@ @@` `@ @`@@hH` (`Ja\F4`d(u```4`@$p@`0`,`@pP```8%%`@pP`0`,`@pP`::+ ``=55`@(8``>##(@``A:``@5+`@(M``E''`@(Z``K''`@(g``Q%%` (r``V%%``u @@[ ` h D(: ;i P WW(@@Examine Field at Element at Array, PAC or StringObject , Entered , SignedUnsigned, Fits in 1 , Fits in 2 , Packable, Can packWKK("`d(```''``@( (ۈ( `@ p @`@(A@2@ KОG;`d( ``@ p @` ``%%`@`@ AE( ( `v`@((( 6`@&p `@(  ` hkk /3-HH`@( b`@( L`@( F`( K`ڈ( b`@( @AhH H`@&p ` ko b<:`@ hH p @ `@P( r( @`@ AE( ( `@hH ( `@@  @`@(A@ `D `@hH-- ( `(`@P( ( `J-K @@ ` h'( < P  Ϝ Dump Packed Instances}}@O F8`d( ```..``J@`@( ( ( n`@ p `@(2  `d( ``@ p @` ``%%}**l ``@ E( h( h`@((( =*~~Z !@8`@&p `@(  ` hHH`@( X``@( @AhH H`@&p `  `J`@ hH ~ a p @ ( `( 4 n @@  `hG(  =_P y ? y Dump unpacked Instances~~1 ?5` @ h H  `d( <` `` ``6""*H/( ``=*$P( P( P( P( P( P( ~;;L P( P( P( P ( ( '``A##( 9``D( 9;n O=``H( 9``L77( 9``O77( 9``R##( 9``U( 9``W##( 9``Z( 9``_( 9``c7711n .*$x,P`,`p ` @ ( L`1 HF:` @ `_* ( W( _*H/( f`P( f`P( f( l` ( q` o`d@( * ( z( ` ``f*(x,@SS"= 0$`,0`,**x,P`,``j%%P`0`,` @p,P`,SuC JF``P( ֨P( P( ( *(@@$@**@x( *($**x( *$$( ( p( @**x`( (  $(  @$ph<< @ -@@$-x`P( ( '`( ( &` @ `J@p<~~W] %<4( ( B`( +( B` @  `J@p, , `@@p`( F( g`@p, ,AJh H( g` @  ` @hH` @P( b~NN a+( g`J`d( ` ``o##P`0`,` @p,P`,N--< `` `` @ h H H`p-$$ `r `hADK*(( $ ?P 6 RR <<Dump Constant Packed ScalarSubrangePointer Power Array RecordFileStringTag field Variant Form Object , Entered Fixed R;;3 !@ p p p ` p ` ( h `a; @@$ ( OO+L99   / ]\@ w<O L @==X[Rē$nSTRUCT_FLUSH92833-16201,REV.5010,881021 881021.1623/P1K/CMP/TLM.PAS=kSTRUCT_FLUSH xx'.DAD.DLD.DST.EXIT0.LDX.LPX.LPXR .MPY.MW20 .SDSP BOILABELBREAK_OUT EMITCHAR EMITINTEGER EMIT_STRUCTURED_ EMLAB EMNEW EMSTR EOI FULL_SIZE PAS.1 PAS.2 xMPAS.BLANKFILL PAS.CDS PUTLABEL\NL`( @(  ( (`J@A@@ @@  ($(Y@@  @  (1(Q !@(:(Q (B @@   **IN  @ @ (`@JA((@@ *%fZD@ (   7  @ x   ( @ @((  x@p ((@@ @ ((@@ @ ` [ @ (@ (߰ @@%`h (  , LOADREC 0,0,161400B,0,4,0,   @k7+<<X ē%sENUM_FLUSH92833-16201,REV.5010,881021 881021.1623/P1K/CMP/TLM.PAS<|5ENUM_FLUSHOff .DAD.DLD.DST.EXIT0.LBT.LDX.LPX.LPXR .MPY.MW00 .SBT.SDSP EMITASC EMNEW EXID PAS.1 PAS.2 PAS.CDS PUTLABELREVERSE_ID_LIST fUU%#`@A @2(`@p  `@ `@hH h6`@@@H` U %@@p (  7 __W-=7A` @ @@@ (F(J  (P(xp@px   `_BsjLF@  (w( @hH    p p ` A@ (h6@ Hp`&` p (` A@ (`&44 ` p ( @@ (q`(Nj(   `4M@(JZ@@(-""$    "  @ `/PASCAL/CMP/CDS/ULB.REL:::5:286:128 644 0 0 217000 5300501671 35422 /PASCAL/CMP/CDS/ULB.REL:::5:286:128 ##$ 6lULB REL +++`FST ;;XaV4-PSULB 92833-16202,REV.5000,870621 870622.0149 /P1K/CMP/ULB.PAS;@Ba>>XO?V4.WRITE_OCTAL 92833-16202,REV.5000,870621 870622.0149 /P1K/CMP/ULB.PAS>58WRITE_OCTAL 88 .DST.EXIT0.LBT.SDSP PAS.1 PAS.2 PAS.CDS PAS.DOUBLE2ASCII PAS.WRITECHAR 8ff71h  @0 p ` @( pp `8 8(` ($(7`@ @6@ Hp`@ p ( f7@@p ( 0 @;;X^ V4.EXPCO 92833-16202,REV.5000,870621 870622.0149 /P1K/CMP/ULB.PAS; EEXPCO  **B.DLD.DST.EXIT0.SDSP ASSCO PAS.1 PAS.2 PAS.CDS *y2 @ ( @ (p ""_` @@@ @ `p ("@Bae;;X}l QV4/ELEMENTS92833-16202,REV.5000,870621 870622.0149/P1K/CMP/ULB.PAS; &HELEMENTS  EE .DAD.DCO .DIN.DLD .DSB.DST .EXIT0 .LPX .LPXR .SDSP GETBOUNDS PAS.1 PAS.2 PAS.CDS E~~FD@ P=(( @AA x (F @A@ @@J(+($@J(+(.(.`p (F`@ @@` `@ @`@@@ @H  x ~;F `  @@(  @GCf::X4<V40 OFFSET92833-16202,REV.5000,870621 870622.0149/P1K/CMP/ULB.PAS: v3OFFSET  99 =.DCO.DLD.DST.EXIT0 .LPX .LPXR .SDSP GETBOUNDS PAS.1 PAS.2 PAS.CDS 9\\N1/@p   (((((p (1`@ @``@ @` @` p \ 1 `  @@(   @<<<X V40 START_STMT92833-16202,REV.5000,870621 870622.0149/P1K/CMP/ULB.PAS<l8START_STMT%%^.DLD.DST.EXIT0.SDSP PAS.1 PAS.2 PAS.CDS %?Q @@ (@(99XV41 JUMP92833-16202,REV.5000,870621 870622.0149/P1K/CMP/ULB.PAS9 z- JUMP **Sv.EXIT0.SDSP EMITEMLAB EOI PAS.1 PAS.2 PAS.CDS *Pr @ 0  @@p (  @c==X{V41 JUMP_PLUS 92833-16202,REV.5000,870621 870622.0149 /P1K/CMP/ULB.PAS=x JUMP_PLUS **a.EXIT0.SDSP EMITEMPRL EOI PAS.1 PAS.2 PAS.CDS *Pr @ 0  @@p (  @d$;;X. V42 PUTLABEL92833-16202,REV.5000,870621 870622.0149/P1K/CMP/ULB.PAS; PUTLABEL 22 { .EXIT0 .SDSP BOI EMOPC EMPRL EOI PAS.1 PAS.2 PAS.CDS SP2++`(` P @  0 p` p+@@  p (  @Z??X5[V43 SETUPOPERANDS 92833-16202,REV.5000,870621 870622.0149 /P1K/CMP/ULB.PAS?dRSETUPOPERANDS 77 .DLD.DST.EXIT0.LBPR .LPXR .SDSP PAS.1 PAS.2 PAS.BITMASK1PAS.CDS 7}}[GQQ@  ,HH@ (     (Q ,H@ @(6   @ (Q     (K(Q  }?Q @@   ( _Y@i)<<XV43NEWNODE 92833-16202,REV.5000,870621 870622.0149 /P1K/CMP/ULB.PAS< <NEWNODE 1  LLF?.DLD.DST.EXIT0 .LBPR .LDX .LPXR .MW00 .MW20 .SDSP PAS.1 PAS.2 PAS.CDS PAS.NEW2S SOURCE_LINE LA? ` @ @`@@ A` @D  @`  `   x` P(7P (P(P(SP!(JP"(bP;(\P?(( x  EEA&&   ( A` @/H@ (  x @(  `( EgRP@ x@@ x@ @ x@ ( A` @/D  A` @/D  (  x (@@ @  `@P@ x@@@  x$$B@@ `" ( $..+@@2@ `h p p @@@ (.%%$ P %   @`~;;X_7rV44ADOPT 92833-16202,REV.5000,870621 870622.0149 /P1K/CMP/ULB.PAS; >eADOPT  @@ c.DCO.DLD.DST.EXIT0 .LBPR .LPXR .SDSP CHCKB PAS.1 PAS.2 PAS.BITMASK1PAS.CDS @OTR@  ,HH@ p@(d@  ('@ x@@(W @@ @@ @@  (:(P@@  (A(E(E      @ (4 xĸT (](d x@ d@@ ( k@4<<X(V45CVTNODE 92833-16202,REV.5000,870621 870622.0149 /P1K/CMP/ULB.PAS< CVTNODE  **/.DLD.DST.EXIT0.LPXR .SDSP PAS.1 PAS.2 PAS.CDS * @ `  @@ p (  @HWg::XHgV46DISOWN92833-16202,REV.5000,870621 870622.0149/P1K/CMP/ULB.PAS: pDISOWN DD d.DCO.DLD.DST.EXIT0 .LBP .LBPR .LPXR .SDSP CHCKB PAS.1 PAS.2 PAS.BITMASK1PAS.CDS D4US@  ,HH@ p@(@ ( @(3(3  @@@ x@@(r @@ @@ @@  @(W(F@ @(L(W @@  @@U@ (@ p@(r,,e@@ @@ x (x( x @,@@ (  k@2>>X7=V47REPLACENODE 92833-16202,REV.5000,870621 870622.01((49 /P1K/CMP/ULB.PAS>0REPLACENODE 88 .DLD.DST.EXIT0.LBPR .LDX .LPXR .MW00 .SDSP PAS.1 PAS.2 PAS.CDS 8QQ//@@@@  @hH@ A`@D x@@ @ P;(#(/  @pQ/@@,  (( 8@]|==XV47SWAPOPERANDS92833-16202,REV.5000,870621 870622.0149/P1K/CMP/ULB.PAS=vSWAPOPERANDS44 Q.DLD.DST.EXIT0 .LPXR .SDSP ADOPT DISOWNPAS.1 PAS.2 PAS.CDS 4y @   @ P ?k @@  (  @q::XHqV48INSERT92833-16202,REV.5000,870621 870622.0149/P1K/CMP/ULB.PAS: rINSERT{ 88 ,.DCO.DLD.DST.EXIT0 .LBPR .LPXR .SDSP CHCKB PAS.1 PAS.2 PAS.CDS 8VV@ ( @(/(/ @x@@ @x@@ @@@ x x @( @@@  @@ @@ @(S(B (H(S@@  @@ @ (<  TVp@( x@@ -- h@ x@@@@ @@ x x@ -6@@  ( _  @O;;XT"V49INBRO 92833-16202,REV.5000,870621 870622.0149 /P1K/CMP/ULB.PAS; JINBRO  **!.DLD.DST.EXIT0.LBPR .SDSP PAS.1 PAS.2 PAS.CDS *""K@@ @@ x x@@ "@@  (@汦;;X\$V49INFTS 92833-16202,REV.5000,870621 870622.0149 /P1K/CMP/ULB.PAS; LINFTS  // e.DLD.DST.EXIT0.LBPR .LPXR .SDSP PAS.1 PAS.2 PAS.CDS /%%c@ x @ x @%@@  (  @l@@XKV4:MAKE_CONST_NODE 92833-16202,REV.5000,870621 870622.0149 /P1K/CMP/ULB.PAS@p MAKE_CONST_NODE **/.DLD.DST.EXIT0.LPXR .SDSP PAS.1 PAS.2 PAS.CDS *` (  @@ p (  @ ??Xd :V4:STACK_TOO_FAR 92833-16202,REV.5000,870621 870622.0149 /P1K/CMP/ULB.PAS?/STACK_TOO_FAR 99 O.DAD.DCO.DLD.DST .EXIT0 .LPXR .SDSP FULL_SIZE PAS.1 PAS.2 PAS.CDS 9JJo-+@ P"((*  (* (* @ @ @ @@    (*p JkV- `   @@ `p (   @`;~;;Xe ?V4;NEWLNODE92833-16202,REV.5000,870621 870622.0149/P1K/CMP/ULB.PAS; :0NEWLNODE  00 i.DLD.DST.EXIT0.LPXR .SDSP NEWNODE PAS.1 PAS.2 PAS.CDS 0IIi-+@@@@@` ` @xh p x I%%l-@@@ p p p  (% " @??X fV5INDIRECT_THROUGH92833-16202,REV.5000,870621 870622.0149/P1K/CMP/ULB.PAS?D[INDIRECT_THROUGHII .DLD.DST .EXIT0 .LPXR .SDSP ADOPT CVTNODE NEWLNODENEWNODE NEW_CST_NODE PAS.1 PAS.2 PAS.CDS IXFp @ ` @ p@ `@   @`  P(2(C@@  p @ `  P@  x  ` :X ^Z @@  p (  @bs??Xa6V5Q_RELATIVE_FIXUP92833-16202,REV.5000,870621 870622.0149/P1K/CMP/ULB.PAS?+Q_RELATIVE_FIXUP 44 !.DLD.DST.EXIT0.LPXR .SDSP INDIRECT_THROUGHPAS.1 PAS.2 PAS.CDS 4JJ)'p `M() ( ()   P"@(() ()@ ()@ p JkN) `  @@ `p ( @l,==XaV5 COPY_TREE 92833-16202,REV.5000,870621 870622.0149 /P1K/CMP/ULB.PAS=lXCOPY_TREE OO].DAD.DLD.DST.EXIT0 .LBP .LBPR .LDX .LPXR .MW00 .SDSP PAS.1 PAS.2 PAS.BITMASK1PAS.CDS PAS.NEW2S OVP@ (  x @  (W @AhHD   `@AD    ,H@(F@    X@  @@ @@ @X  *V ?W @@(  (  _@On??XY<V5"SAVE_GLOBAL_OPTI92833-16202,REV.5000,870621 870622.0149/P1K/CMP/ULB.PAS?i7SAVE_GLOBAL_OPTI""%_.EXIT0.LBPR .SDSP PAS.1 PAS.2 PAS.CDS "uu66@x I0I x N0K@N  x M0LM x O0QO @x L0UL x K0YK uh6@@(@`8~??XF V5$UPDATE_GLOBAL_OP92833-16202,REV.5000,870621 870622.0149/P1K/CMP/ULB.PAS?YUPDATE_GLOBAL_OPb.EXIT0.SDSP PAS.1 PAS.2 PAS.CDS CC^` )p` .pK` -pL` /pQ` ,pU` +pYC@@p (@S??XV5$BREAKOUT_INFO 92833-16202,REV.5000,870621 870622.0149 /P1K/CMP/ULB.PAS?rBREAKOUT_INFO 44 .DLD.DST.EXIT0.LPXR .SDSP PAS.1 PAS.2 PAS.CDS UPDATE_GLOBAL_OP4K3@ x @ @ J?d @@  (  @==X- V5*SHOW_TEMP 92833-16202,REV.5000,870621 870622.0149 /P1K/CMP/ULB.PAS=ySHOW_TEMP YTT d.EXIT0.LDX.MW20 .SDSP PAS.1 PAS.2 PAS.CDS PAS.INLINEERROR PAS.WRITECHAR PAS.WRITEINTEGER PAS.WRITESTRING WRITELINE TH:` @ p `` `` x ` `` @!p ` `` @!p ??2H$` ` /(d`(l`?kkl:. .(y`  ,P(P(P((`$(`*(`/ (h0klE @@3` h p (5 + P..>>> Temp # @ [] BusyFree Direct Unprotected Zappable Locked .@ܮ==X|1V5/ZAP_TEMPS 92833-16202,REV.5000,870621 870622.0149 /P1K/CMP/ULB.PAS=,ZAP_TEMPS $$.EXIT0.SDSP PAS.1 PAS.2 PAS.CDS SHOW_TEMP $aaس+)`p p` @p /(( , ( ,P((!   `k(( 88 (a]+@@(  @_K~ 99XFV5`EVAL92833-16202,REV.5000,870621 870622.0149/P1K/CMP/ULB.PAS9 iEVAL .DCO.DLD.DST.EXIT0.LBP.LBPR .LPX.LPXR .SDSP BREAKOUT_INFO BREAK_CHECK EMITLINENUMBERERROR EVAL1 EVAL2 EVAL3 EVAL4 EVAL5 FULL_SIZE GETFREEREGLOADLOADADPAS.1 @@xPAS.2 PAS.BOUNDINTEGERPAS.CDS PAS.INLINEERROR PUTLABELRELEASE_NODESETUPOPERANDS ZAP_TEMPS @~~4rHD@`@    P  x` @p (0(j@ P&(7(B`@@ (B(j`Q(L`L0K~;;?H(L`p Jp@@ J@J@` (j; 6f j@@(.pD> @@ @@  ((@@ @ `   (UP(MP(mP(UP(MP(MP(]P(]P (]P (]P (]P(MP,,P(]P(mP(mP(]P(]P(]P(((/P(]P(UP(UP(UP(]P(]P(]P (]P!(/P"(/P#(MP$(MP%(MP&({P((U\\KP*(eP+(mP:(]P;(P=(]P>(uP@(]PA(MPB(MPC(]PF(]PG(UPH(]PK(]PL(M(|\}}H<@ P( P( P(#()(.@A (((xp("p(.`(. h(@A (6(@(@pp(L  (G(L(L}33Gp(@J@(J(@J388d (((`k((08A @@!(p& ,9@Yx>>XTV5`EVAL_SWITCH 92833-16202,REV.5000,870621 870622.0149 /P1K/CMP/ULB.PAS>-EVAL_SWITCH ))y.DLD.DST.EXIT0.SDSP EVALPAS.1 PAS.2 PAS.CDS ) @ ?W @@ (@$<<X_V5dMINREGCOST92833-16202,REV.5000,870621 870622.0149/P1K/CMP/ULB.PAS<zIMINREGCOST LLb~.DLD.DST .EXIT0.LDX .LPXR .MW20 .SDSP AOC FULL_SIZE PAS.1 PAS.2 PAS.BITMASK1PAS.CDS PAS.MIN LGA@p  ((C@   (( p xPp `@@x@  ,HH@(3`p   PG(:(B` (B`p (Ep ` p %%uG`   `hAD   `dp (%PYcYVYN@@@@_;;XL5>V5hFNCRG 92833-16202,REV.5000,870621 870622.0149 /P1K/CMP/ULB.PAS; I3FNCRG  55 !.DCO.DLD.DST.EXIT0 .LPXR .SDSP FULL_SIZE PAS.1 PAS.2 PAS.CDS 5[[q1/@`p   'P( (1 @@@  ((1@@  @A (%((((@p (1 A(/(1(1`p [kd1 `  @@`p ( @62==X&V5 nOTHER_REG 92833-16202,REV.5000,870621 870622.0149 /P1K/CMP/ULB.PAS=OTHER_REG ''Ӵ.EXIT0.SDSP PAS.1 PAS.2 PAS.CDS PAS.INLINEERROR 'EEe` P( P( P(P((p (p (`p (` p (hX`EX ` p `p (@+TJ<<XV5 nFREEREG 92833-16202,REV.5000,870621 870622.0149 /P1K/CMP/ULB.PAS< FREEREG Q [[9V .DCO.DLD.DST.EXIT0.LPX.SDSP EMREG EMSKE EOI INUSE OTHER_REG PAS.1 PAS.2 PAS.BITMASK1PAS.CDS SAVEREG SWAPREGS[ӋH<p (@ p `  ,HH@(x > ((' 8 :("('('`(w @ (-(< 8 :(4(<(<P`(w` @@ (s 66-{H   ` @h @x @ ` @p @  6mmrshF6` @@A` (w` (` @@ ((` (@ p ` @@ (p(`p(`(` mڐ@@p ({1  8 @-P==X#V5 tLOW_ORDER 92833-16202,REV.5000,870621 870622.0149 /P1K/CMP/ULB.PAS=LOW_ORDER ''Ӵ.EXIT0.SDSP PAS.1 PAS.2 PAS.CDS PAS.INLINEERROR '<<X;` P(P(P( P( (p (p (` p (h`<U ` p `p (@;::XV5 wADD 92833-16202,REV.5000,870621 870622.0149 /P1K/CMP/ULB.PAS: gADD  {{}.DAD.DCO.DLD.DST.EXIT0.LBPR .LPX.LPXR .SDSP CALLRUNTIME EMITEMOPR EMSKE EOI ERROR EVAD FULL_SIZE LOW_ORDER PAS.1 PAS.2 PAS.BITMASK1PAS.CDS REAL_TYPE {MIE@p  P!((@  ,HH@( ((Wx ` (7p (V` P(;(Vx@p@`@00Ixp  ` Ap (@A@@@ (i0fJ@p ((p(w(w p ((~(( p ` ( (( (((@x@p`P;@((x@..@p`xp   ` (P.33V8 @J ((((  ` (3@h @@(""   "@5Tb==X@V5 {A_REG_OPS 92833-16202,REV.5000,870621 870622.0149 /P1K/CMP/ULB.PAS=`1tA_REG_OPS FFa .DCO.DLD.DST .EXIT0.SDSP EMITEMOPR EOI FREEREG LOAD PAS.1 PAS.2 PAS.CDS SWAPREGSFVV+!`@p ` `@ P$((@`@ J :((@`@ p  `@ p  p Vn+@@ (``Hb151@@@@ J@ 8 (@(A(A(nJ@ 8 (H(Q(Q (nJ@ : (X(\(\P(n : (c(n(nP`f @@@@ ` ,Js@@  p (1  @A;;X jV5 REMAPPER92833-16202,REV.5000,870621 870622.0149/P1K/CMP/ULB.PAS; 7MREMAPPER  ;; .DLD.DST.EXIT0.LDX.LPXR .MW20 .SDSP PAS.1 PAS.2 PAS.BITMASK1PAS.CDS ;FD@p  ((I@ x `@@` x ,HH@ (G`@$@x  ,H@ (G`@@` x ,H@ @(F  M(HFp ` p %%uK` % `hAD   `p (%d  ]n] "+] NN@,@ƆF==X7V5EXTENDREG 92833-16202,REV.5000,870621 870622.0149 /P1K/CMP/ULB.PAS=c.EXTENDREG 55 .EXIT0.LBPR .SDSP EMSKE EOI PAS.1 PAS.2 PAS.CDS PAS.INLINEERROR 5NN- 0 0  0  ` P(P@(#((`(- `(- hSN- @@ p p (  0 @` <<X!V5GETFREEREG92833-16202,REV.5000,870621 870622.0149/P1K/CMP/ULB.PAS<zGETFREEREG ((kl.EXIT0.SDSP FREEREG INUSE PAS.1 PAS.2 PAS.CDS (++^0( p(0(p( p+v ``p(  @Rq[;;X_XAV5INUSE 92833-16202,REV.5000,870621 870622.0149 /P1K/CMP/ULB.PAS; J8INUSE  00',.DLD.EXIT0.SDSP OTHER_REG PAS.1 PAS.2 PAS.BITMASK1PAS.CDS 0]]64` @@ p ` @ (6` ,H@J(68 (3: (30 @ p ]r6 ` p `p (8@e==X54BV5MARKREGINUSE92833-16202,REV.5000,870621 870622.0149/P1K/CMP/ULB.PAS=A7MARKREGINUSE== y.DLD.DST.EXIT0.SDSP PAS.1 PAS.2 PAS.BITMASK1PAS.CDS PAS.SETCLEAR PAS.SETINIT =^^i60` @p     `@ @` x ,HH@(. 8 :(6J >J @^'6 @@p  (8@LkY<<X2V5CVTREGNODE92833-16202,REV.5000,870621 870622.0149/P1K/CMP/ULB.PAS<R%CVTREGNODE99 t.DLD.DST.EXIT0 .LPXR .SDSP MARKREGINUSEPAS.1 PAS.2 PAS.CDS RELEASEREG9AAy$ @ P;((  x@P `;  ` @ ` @ Al6$@@   p p ( @s??X3V5DOUB_REG_INVALID92833-16202,REV.5000,870621 870622.0149/P1K/CMP/ULB.PAS?X,DOUB_REG((_INVALID@@ 6.DLD.DST.EXIT0 .LPXR .SDSP CVTREGNODEOTHER_REG PAS.1 PAS.2 PAS.BITMASK1PAS.CDS @HHZ+'P p ` @  ((+  ,H@ @(+ x @ H+@@ p ( 8@;;X_V5ADVAL 92833-16202,REV.5000,870621 870622.0149 /P1K/CMP/ULB.PAS; 1ADVAL t 44 .DLD.DST.EXIT0 .LPXR .SDSP EVALPAS.1 PAS.2 PAS.CDS REMAPPER4dL<@p .p@p .pp `()PPp (k`(=`Pp (k` (LPPp (k11OL`(WPp (k x H`(k1AA[e&Pp `` @( (~(P`AJ@@!  p (  @1P==X V5LOAD_INTEGER92833-16202,REV.5000,870621 870622.0149/P1K/CMP/ULB.PAS=VLOAD_INTEGERTSSqk .DCO.DLD.DST.EXIT0.SDSP EMDLT EMITEMOPR EMSKE EMSKL EOI INLINER PAS.1 PAS.2 PAS.BITMASK1PAS.CDS S~~9V@` ,H@@(L (`  @ (K@A  ((/(/P  P  @ (K  (6(?(? `  @ (K`   @ (@ (b` ~""V @ ` @@ ( A (i(("XXiB(` @ P P @ (@ (((` @ ` @ (   p @ X @@p  (   @Q99XV5LOAD92833-16202,REV.5000,870621 870622.0149/P1K/CMP/ULB.PAS9 qLOAD .DAD.DCO.DLD.DST.EXIT0.LPX.LPXR .SDSP CALLRUNTIME CVTREGNODEDOUB_REG_INVALIDEMITEMOPR EMREG EMSKE EMSKL EOI EVALEXTENDREG FREEREG FULL_SIZE INUSE LOW_ORDER QQ NEW_INLINE_LIT_N OTHER_REG PAS.1 PAS.2 PAS.BITMASK1PAS.CDS !PAS.SETCLEAR"PAS.SETINIT RELEASEREGREPLACENODE SWAPREGSQff>,` ,H@ ('  `@p 0 @ `@p P  (>@ `@p 0 `@p P f>>@@p ( ` IIxF)'p `@@A@A ,H@ (T`@@A@@ A`  (o((I~~o@6@`@AA  `@ `@ (`@p   p (`@ P((`@p   `@p    p (`@ ~OO+#P((`@p   p `@p @ (T`@@A@@ A` ((T(TOeQ?`@p `@   `@ (    p (T`@ ( (&(&       p (T`@@@!!1+ (/(B(B   !XXM!?-%p (T`@p `@p P @   ` (``@p `? `@p `@p P  Xl@@(F ` iir=;@ `x` ,H@ (` ,H@ (@A((` ,H@ (@A (((iNB@x@@`@`P;@((&(&@P(( P((pP   (((@ P( ( ::!@ x`?(`?($ xp:~~G9`?`;p`P;@(*((@ x`P(˰   ` P(J(N(` P(R(` @@ (\(`( ~66e   ` @h@x @` @ `6R>` @p (p ` ,HH@ ( `@ @ `` (pp  pP @ P(((ְ$$c^ `P!((`m(戰`?$ @@#p(r00  &8k0@::X,V5LOADAD92833-16202,REV.5000,870621 870622.0149/P1K/CMP/ULB.PAS: [LOADAD1 ~~{.DLD.DST.EXIT0.LPX.LPXR .SDSP ADD CALLRUNTIME CVTREGNODEEMDLT EMSKE EOI ERROR EVALFREEREG LOADNEW_INLINE_LIT_NPAS.1 PAS.2 PAS.BITMASK1PAS.CDS Q_RELATIVE_FIXUP~55j RELEASEREG RELEASE_NODEREMAPPERREPLACENODE SAVEREG SETUPOPERANDS SWAPREGS5@<`@ hp `@@AP((&@`@A@A ,H@p `@p P p ` (e`@p  `@p @`@EEP@%!A@@   `@x J@ `@ @`@ `@p ` (EeD<` (`@p  `@p  `@Jx @ `@ @@` `@p ` (`@p  `@ ,HH@HH5#!(`@ @` `@p `  (`@@Ax  `@HRR\( `@p  `@ @@` `@p ` `@p  `@p  `@hRS@@( 9_ dd91( @ ,HH@(CP(?` ,HH@(?` P()(/(8` P(3(8de3P@`@ (C@P!(J(W@@@(mP;(^(m(mx(xP"((C@77JP(P(P(P((?` ,HH@(`p 7TH(p @@  @ (C` ,H@(p (`p @@@Jx@@@ @x@@"" (C@@@Jx@"ѴUK@@x@@@ (C@@@xJ@@@x@@@ (CP P;@(J((@\\]S00P(x ` ,H@(o` ,H@(` ,H@(` ,H@(\gg/E/(` ,H@(` @ `((` (p   0  @ 0 g @@#p(%%1M &_%@ྠ<<X V5LOADBYTEAD92833-16202,REV.5000,870621 870622.0149/P1K/CMP/ULB.PAS<HLOADBYTEAD0yy|.DLD.DST.EXIT0.LPXR .SDSP ADD ADVAL CVTREGNODEEMSKL EOI EVAL_STRING_ELEMIS_STRING LOAD LOADADPAS.1 PAS.2 PAS.CDS PAS.INLINEERROR Q_RELATIVE_FIXUP RELEASE_NODEyK4 SETUPOPERANDS SWAPREGS   `@ p    b@@({JD( ` P(P"(.P;@(t(P(7P(7(iPp @@@Jx@@@ @x@` Db(h`hI9(s `(@P(P(P(P(P(( `@( P (((h`(@@(@66` P( (` pP `@ @@`p6''B( `` '$ @@"p (((  @dg'<<X)V5SAVEREG 92833-16202,REV.5000,870621 870622.0149 /P1K/CMP/ULB.PAS< %u"SAVEREG  zzf.DCO.DLD.DST.EXIT0.LPXR .SDSP ADOPT CHCKB CVTNODE CVTREGNODEEMIT EMOPR EMSKE EOI FULL_SIZE LOW_ORDER NWTPN PAS.1 PAS.2 PAS.BITMASK1PAS.CDS PAS.SETCLEARz $PAS.SETINIT RELEASEREGREPLACENODE SWAPREGS S]RD` @@@@ p(@x `@@x ,H@J(?@ (j  `@@x--JR ,H@(cJ@ (j @@ -~~$?jOC@  A  (y((`  ,HH@ (p P@ p x@ `  ,HH@( ,H@( @ (-~00@p xM0M@P((`0{{*RD   P((x   @ @(  x@x ` p {!@@p (-- $ ' 18-@~s;;XcV5STORE 92833-16202,REV.5000,870621 870622.0149 /P1K/CMP/ULB.PAS; PvSTORE  {{b{.DCO.DLD.DST.EXIT0.LPXR .SDSP EMIT EMOPR EMSKE EOI EXTENDREG FULL_SIZE LOW_ORDER OTHER_REG PAS.1 PAS.2 PAS.BITMASK1PAS.CDS PAS.INLINEERROR RELEASEREGSWAPREGS{~~@B:` ,H@p @  ((p ` P( (J@ J((5>@J@J@>JJ@> ($()J >`@ (/(4 @`(W8:8~44N@:8 (G(L 8J: J(R(W :4W@@ ( 2 @["y<<X$/V5RELEASEREG92833-16202,REV.5000,870621 870622.0149/P1K/CMP/ULB.PAS<M(RELEASEREG00.<.DST.EXIT0.SDSP OTHER_REG PAS.1 PAS.2 PAS.BITMASK1PAS.CDS 0FFP'%` @p   ` ,HH@(' 8 :0 @p   F'@@p (8@Xrw299XV5EVAD92833-16202,REV.5000,870621 870622.0149/P1K/CMP/ULB.PAS9 jVEVADx yyZO.DAD.DIN.DLD.DST.EXIT0.LBPR .LDX.LPX.LPXR .MW00 .SDSP DEFLBL_ENTRYEVAL NEW_INLINE_LIT_N PAS.1 PAS.2 PAS.CDS RELEASE_NODEREPLACENODE SAVEREG SETUPOPERANDS yT[?;@`@AP"( ('`@@A('`@p `@p  @`@A(h`@p ` `@@AP;(8(I@`@ARR.?)#P(B(I`@p ` `@p `@p   `@`@x P Rh@@(n=;p `@ P(v(+@`@AP"((+`@@A-(+`@p @  @ @(( ( P((`@p `@p CCUN'% @ @`@@Ax    x `@ ` C= GE@  A@ @`@@Ax   (`@@A(`@p (+`@p `@p  `@`@##>@D`@x @@ p #x|+ ` `p (n+4@ (:(:H<@   ` P!(M(Z@))(` P"(^(_(` P;(c(mx+P+(` P(q(w`i(` P+({(@77V0!AhHK `p `@@x+ +7))(`-(`@@x+ @+)B @@3(4   @޴<<X? V5NEWCOPY 92833-16202,REV.5000,870621 870622.0149 /P1K/CMP/ULB.PAS< 0NEWCOPY z {{f.DCO.DLD.DST.EXIT0.LPXR .SDSP CALLRUNTIME CHCKB COPY_TREE EMDEF EMMVW EVADEVALFULL_SIZE INLINER LOADAD NWTPN PAS.1 PAS.2 PAS.CDS RELEASE_NODE REPLACENODE {=RB@     (((PP(P($()P( (.p( @`@ @@`  (R(c(c!!R @  (|`!))6h ` @  pp )@ @@(h @>>Xh {V5 NEWBYTECOPY 92833-16202,REV.5000,870621 870622.0149 /P1K/CMP/ULB.PAS>rNEWBYTECOPY ttj.DCO.DLD.DST.EXIT0.LPXR .SDSP CHCKB COPY_TREE EMMBT EVAL FULL_SIZE INLINER LOADBYTEAD NUM_ELEMENTS NWTPN PAS.1 PAS.2 PAS.CDS RELEASE_NODEREPLACENODE tD-VB@     (((PP(qP($()P(q (.p(q @`@ @@` p@@ aV  @ `h ` ?q @@(h @[;;X\V5!LDADS 92833-16202,REV.5000,870621 870622.0149 /P1K/CMP/ULB.PAS; 6rLDADS  22 5.DLD.DST.EXIT0.LPXR .SDSP PAS.1 PAS.2 PAS.BITMASK1PAS.CDS 2i|KA`(`!`!`!(qxH`(: ,H@ (V`!`!44 HK`!(q`!`!4h `!''wbq@@ p p  p('8_@Us;;X^eV5!LADDR 92833-16202,REV.5000,870621 870622.0149 /P1K/CMP/ULB.PAS; 1XLADDR  55 E.DLD.DST.EXIT0 .LPXR .SDSP LDADS PAS.1 PAS.2 PAS.CDS REMAPPER5MAPp .p Pp .p ` ((`((@(W` (8`(8@(W`(N`@%M (W@W@@   (  @G ;;XUCV5"EVADS 92833-16202,REV.5000,870621 870622.0149 /P1K/CMP/ULB.PAS; E4EVADS  66 |.DLD.DST.EXIT0.LPXR .SDSP EVADPAS.1 PAS.2 PAS.BITMASK1PAS.CDS 6SSy,3)` ( @ @ (3@@x H`@(' ,HH@ (+@ @@ SJN3@@   p (9_@݊>>X2wV5#EVADDRESSES 92833-16202,REV.5000,870621 870622.0149 /P1K/CMP/ULB.PAS>1jEVADDRESSES ?? K.DLD.DST .EXIT0 .LPXR .SDSP EVADEVADS NEWCOPY PAS.1 PAS.2 PAS.CDS REMAPPER?~~7L@@ @((T ( (T`p  .p `p  ((.p ` (1` (1@(S` (>` (>@(S`  (MP@~-->IL(S@@(i (Z(_p(i (e(i- ep i@@  (  @Y>>XCFV5#EVAD3ADDRESSES92833-16202,REV.5000,870621 870622.0149/P1K/CMP/ULB.PAS>˙5EVAD3ADDRESSESBB ..DLD.DST .EXIT0 .SDSP EVADEVADDRESSES EVADS NEWCOPY PAS.1 PAS.2 PAS.CDS REMAPPERBNNIb4"pp pp pp ` (+` (P` ( P@ (4`N4@@   (  @>>XDWV5$EVAD4ADDRESSES92833-16202,REV.5000,870621 870622.0149/P1K/CMP/ULB.PAS>̚BEVAD4ADDRESSES>> Q.DLD.DST .EXIT0 .SDSP EVADEVAD3ADDRESSESNEWCOPY PAS.1 PAS.2 PAS.CDS REMAPPER>``A+`p`p`p `p ` (7`(P`(%P` (,P@p (Ap@`$$h&A@@ "   ($@R>>XFiV5%EVAD5ADDRESSES92833-16202,REV.5000,870621 870622.0149/P1K/CMP/ULB.PAS>͛PEVAD5ADDRESSES>> R.DLD.DST .EXIT0 .SDSP EVADEVAD4ADDRESSESNEWCOPY PAS.1 PAS.2 PAS.CDS REMAPPER>tt&O5`p`p`p`p`p ` (D`(#P`(*P`(1P`(8P@ p(Op@t)) pO@@ &    ()@JKi @@XX 7V5'COERCE_SOME_WAY 92833-16202,REV.5000,870621 870622.0149 /P1K/CMP/ULB.PAS@vCOERCE_SOME_WAY {{W.DCO.DLD.DST.EXIT0.LBP.LBPR .LDX.LPX.LPXR .MW00 .SDSP ADOPT CHCKB COMPTYPES CONVERT_SUBRANGEEQUIV_TYPES FEATURE_LEVEL INT_TYPE IS_CHAR IS_STRING MAKE_STRING {KK 5NEWNODE NUM_ELEMENTSORDER PAC PAC_LITERAL PAS.1 PAS.2 PAS.CDS PAS.INLINEERROR REAL_TYPE REPLACENODE KQSG@@(5(5` (d(d((d@@@@(d(5(d@@(H(d@(R@(c(c##S(c(d(ep #&&ڜf` @ @@@p `p (&//@y`@p  hH`@p  hH /f@@(y>>  `@p   `@@p  @ `@p   `@p @@  >@@(++UC@@@  @( @A@@  (+WO@@A@@  @  @@ x  @ ( @A@J(( (  @x  @@ @A@x @@ p @ ` @p   ++,@@@Ah H#D ` @p P +DDC$"` @#h Hp ` @` @Hx  @@ @@ ` @p ` Dg@@(&& m@ @(   (&Bo @@ (m55 p ` @p@@` @p@@`p p 5ND> ` @@`@0 ` @@`@0` @p` h(p ` @p@@@@@` @@` @@@` @h Hp` tt*<6@@p@(` @p` hp ` @p` @p (ӊ@` @A x@` @A P(` ( pP (tŵ(95@` @A P(6P(RP ((` ` @h H (Q` @h H @(Op (Qp (` (` ` @p` @WWa,&@(o(f(op ` (` @p` @({({(` @p(p ` (WЧ=;@` @A P (p (` P(P(P(((` @(@@@` @@(h a` P(`@@``@@`H @` h""d,`  @@@@`p ("$p p ` @p@@D<` @p` @@` 0` @@` 0` @p` @p (p (` hp ` (;` @ x` @PP 6"  P(;(` @ P(IP(P ((` ` @h H (V(Yp PXA7(` @h H @(hp p (` @p(z` @p(` @p(` @p(p ` p (` (ƈ` YY+'` @p` @((` @p(p p ` (` @p` @@@(((YhhF3/p (p ` @ P p (` @p` @p@p ` (`@ @@` `@@`@` hh""f` @@@@`p ("((`(` !p(` p(00˂`?@ @@!@@@@ @ p`p(0 G @\{::X&V5)COERCE92833-16202,REV.5000,870621 870622.0149/P1K/CMP/ULB.PAS: p COERCE //#.DLD.DST.EXIT0.SDSP COERCE_SOME_WAY PAS.1 PAS.2 PAS.CDS /> @ (  @@  (  @>\;;XBV5*CORC1 92833-16202,REV.5000,870621 870622.0149 /P1K/CMP/ULB.PAS; < CORC1  //#.DLD.DST.EXIT0.SDSP COERCE_SOME_WAY PAS.1 PAS.2 PAS.CDS / @  p ""_ ` @@@ @ `p ("  @J/ ??X<V5+INT_PARAMETER 92833-16202,REV.5000,870621 870622.0149 /P1K/CMP/ULB.PAS?e7INT_PARAMETER DD $ .DCO.DLD.DST .EXIT0 .LPXR .SDSP ADOPT CHCKB INT_TYPENEWNODE PAS.1 PAS.2 PAS.CDS DYYV,6.J@  @   ` pp(6 @ J (6( @ xP @ @ J Yv6@@  (tG@7V??X̅VV5+INTEGER_TREE_VAL92833-16202,REV.5000,870621 870622.0149/P1K/CMP/ULB.PAS?sKINTEGER_TREE_VAL LLy.DLD.DST .EXIT0 .LBPR .LDX .LPXR .MW00 .SDSP ENUM_TYPE INT_CONST INT_TYPE PAS.1 PAS.2 PAS.CDS LssFIC@p   P ( @@ p (I@ PG(#(* @ @@  P!(1(Ip   @hH @` @ x sk{I `  @@ `p ( @4S{==X&:V5,NEWADDOPNODE92833-16202,REV.5000,870621 870622.0149/P1K/CMP/ULB.PAS=:/NEWADDOPNODE 55 .DLD.DST.EXIT0.SDSP NEWNODE PAS.1 PAS.2 PAS.CDS PAS.INLINEERROR 5NNq,$` P(P(P((#@@ ((@ ((@@ ((h @@  N,@@ @p   (3B(@8==X7PV5-NEWMULOPNODE92833-16202,REV.5000,870621 870622.0149/P1K/CMP/ULB.PAS=NENEWMULOPNODE 55 .DLD.DST.EXIT0.SDSP NEWNODE PAS.1 PAS.2 PAS.CDS PAS.INLINEERROR 5ww0B6` P( P(P(0P(P('(9@@ (>@ (>@@ (>@ (>@@ (>@h ' @ wB@@ @p   ($#@` ==X'TV5.((NEWRELOPNODE92833-16202,REV.5000,870621 870622.0149/P1K/CMP/ULB.PAS=SINEWRELOPNODE :: .DLD.DST.EXIT0.LPXR .SDSP NEWNODE PAS.1 PAS.2 PAS.CDS PAS.INLINEERROR :}}.:8@@ ` P(P (%P (1P (+P (P (P(7(=(B `1(B `0(B `/(B `.(B `-(B }F: `(B@h > @ F@@ @ p   ( , @8sW3>>X~^^V5.OPP_RELATIONAL92833-16202,REV.5000,870621 870622.0149/P1K/CMP/ULB.PAS>%UOPP_RELATIONAL 11,.EXIT0.SDSP PAS.1 PAS.2 PAS.BOUNDINTEGERPAS.CDS PAS.INLINEERROR 1&&5 ` P(BP((E`!(@@& 1P ~~00(('(-(*($(!(K(H(0(9(?(<(6(3(N`1p (S`,p (S`-p (S`0p (S`.p (S`/p (S`9p (S`4p (S`5p (S`8p (S`6p (S~66Z(?`7p (S`(p (S`p (S`2p (S`3p (Sh Zp6S ` p `Np ( ),9 @.??XV5/CHECKABLE_SCALAR92833-16202,REV.5000,870621 870622.0149/P1K/CMP/ULB.PAS?3zCHECKABLE_SCALAR << .DCO.DLD.DST .EXIT0 .LPXR .SDSP FULL_SIZE GETBOUNDS PAS.1 PAS.2 PAS.CDS <~~bw?=@p  P( P(P(n(x P(((p (x @@ `@@`@`@ @@`@ `@@`@`@ @~@@?& `@ (O@(e(e@ (V(e(eP  P(h(e(h@**}ep (mz p (x P(u(wp (x*kx `   @@`p ( @7>>XA8 V50"CHECKBOUNDS 92833-16202,REV.5000,870621 870622.0149 /P1K/CMP/ULB.PAS>CHECKBOUNDS vbb[.DCO.DLD.DST.EXIT0.LPXR .SDSP CALLRUNTIME CHECKABLE_SCALAREMDEC EMDI1 EMDI2 ERROR FULL_SIZE GETBOUNDS PAS.1 PAS.2 PAS.CDS bHD:@x  ( ( p ` P(P(P(h(@(g`@@``@ @`  (6(O(O`p ` p P ` M??-D#(J` (Np (g P P  ` M(c` (gp ???g"(P(o(t(x ` M(` (p ( ?? @@(M  QR@vf??XOV51"ADJUST_ONE_WORD_92833-16202,REV.5000,870621 870622.0149/P1K/CMP/ULB.PAS?bBADJUST_ONE_WORD_[[Dr.DLD.DST.EXIT0.SDSP CVTREGNODE EMIT EMNUM EMSKE EOI ERROR FREEREG LOAD OFFSETPAS.1 PAS.2 PAS.CDS PAS.SINGLEMOD []]WA) p  @ p ` (A` P p ` ($(=  p p @ (A]A@@  ( # @Q==XGoV52#NEW_TEMP_SET92833-16202,REV.5000,870621 870622.0149/P1K/CMP/ULB.PAS=mNEW_TEMP_SET{tty.DLD.DST.EXIT0.LBPR .LDX.LPXR .MW00 .SDSP CALLRUNTIME ELEMENTS EMDEF EMDI1 EVADNEWNODE NWTPN OFFSETPAS.1 PAS.2 PAS.CDS RELEASE_NODEREPLACENODE tUA@ p p p p ` P (("` P (P@@@@hH"@A`@"K P h  ,U  h @   ,,hWgh  @ h  @ `p,A@@4("@ڋK==XV52#EMITCDSLABEL92833-16202,REV.5000,870621 870622.0149/P1K/CMP/ULB.PAS=J EMITCDSLABEL44 sv.EXIT0.LDX.MW20 .SDSP EMNAM PAS.1 PAS.2 PAS.BLANKFILL PAS.CDS 4J 0 c @@`h(7 P >Pas.CDS @Cb`??X5V53,CLEANUP_PARMS 92833-16202,REV.5000,870621 870622.0149 /P1K/CMP/ULB.PAS?CLEANUP_PARMS c|| *.DLD.DST .EXIT0.LBPR .LPX.LPXR .SDSP CALLRUNTIME EMDEF EVAD2IND2 FNCRG IS_STRING PAS.1 PAS.2 PAS.BITMASK1PAS.CDS PAS.SETCLEARPAS.SETINIT RELEASE_NODE UNPROTECT_TEMP|E@@ (X?;@`@ A@@  hH `@ `@ (A@`@ A.(5`@p  (A`@  .hH `@ ==}E(b`@ (b`@ (b`@p @ `@p p =b@@ (]hPL@@@@ ,p @  'P((@@PPp ` ( @@ (@@ @ @(( ((033@@`@@x@  ' ,HH@(3OO1+`(ވ`c` (`@@@` (@A@@ p (@ @ (O@ @@ (h##@ C "j#@JKi ==XV541PREPARE_CALL92833-16202,REV.5000,870621 870622.0149/P1K/CMP/ULB.PAS=lPREPARE_CALL ~~u.DLD.DST.EXIT0.LPXR .SDSP ADOPT COPY_TREE EMITCDSLABELEMSKE EOI EVADEVALFREEREG GETFREEREG INDIRECT_THROUGH LOAD NEWLNODENEWNODE NEW_CST_NODEPAS.1 PAS.2 PAS.CDS ~STORE LB@@@  x `M( /P((@  .P(,A@ (ܱ @p ` P(<(H  @@ ( ==uL  .(d`@h @p@ (ӱ@ =}}/9lP@@  !p  A@( `@@`@ ` @p ` @ʋpp   @}$$     $ְ P ` ĩ@@#@ ( @w+==X }V551DO_ASSIGN 92833-16202,REV.5000,870621 870622.0149 /P1K/CMP/ULB.PAS=ppDO_ASSIGN KK( .DCO.DLD.DST .EXIT0 .LBPR .LPXR .SDSP ADOPT EVALNEWNODE PAS.1 PAS.2 PAS.CDS TRANSFORM_TREEK#]O` z(o     @@`@@  @@ (C(.@  ` P(G P Pp  @] @J @ x mh@ x o@@ (G@k99XV563SKIP92833-16202,REV.5000,870621 870622.0149/P1K/CMP/ULB.PAS9 #SKIP 44 .EXIT0.LDX.MW00 .SDSP INSYMBOLPAS.1 PAS.2 PAS.BITMASK1PAS.CDS 4((b `@ @`2x ,H@ (0((S @@`hH AH(  @6T;;XUV574CHCKS 92833-16202,REV.5000,870621 870622.0149 /P1K/CMP/ULB.PAS; > CHCKS  // b.EXIT0.LDX.MW00 .SDSP ERROR PAS.1 PAS.2 PAS.CDS SKIP/ ` ( @ 0 $$<  @@  p p `h H AH($  @(Gh;;X] V576CHKBS 92833-16202,REV.5000,870621 870622.0149 /P1K/CMP/ULB.PAS; 5CHKBS  // b.EXIT0.LDX.MW00 .SDSP ERROR PAS.1 PAS.2 PAS.CDS SKIP/X ` ( @  0` p ,,N `  p p `h H`p (,  @%((C;;XKV586CHCKI 92833-16202,REV.5000,870621 870622.0149 /P1K/CMP/ULB.PAS; = CHCKI  ((.EXIT0.SDSP ERROR INSYMBOLPAS.1 PAS.2 PAS.CDS ( ` ( ( 0  @@p p (@;;XY V587CINSK 92833-16202,REV.5000,870621 870622.0149 /P1K/CMP/ULB.PAS; GCINSK  55 J.EXIT0.LDX .MW00 .SDSP ERROR INSYMBOLPAS.1 PAS.2 PAS.CDS SKIP5h ` (@ (P 0 $$<@@  p p `h H AH ($  @z3:??X+ V59<IS_STD_FILE_IN_H92833-16202,REV.5000,870621 870622.0149/P1K/CMP/ULB.PAS?uIS_STD_FILE_IN_Ht77 .DCO.DLD.DST.EXIT0 .LPX .LPXR .SDSP CHECK PAS.1 PAS.2 PAS.CDS 7HH@@  @ P( ( @u@@  ( (/(/p `P@(&(. Jxu@(W @w@@  (D(S(Sp `P>>AH @(J(R Jxw@(Wp p ` 0 ( @ @@ 0>DDVh#`P( (@ A(` p@ ` p@ D? @@  (v  @ c+#??XJV5:ASCHEDULING_TERMI92833-16202,REV.5000,870621 870622.0149/P1K/CMP/ULB.PAS?n?SCHEDULING_TERMI @@ .DLD.DST.EXIT0 .LBT.LDX .MB00 .MW20 .SBT .SDSP LOGLU PAS.1 PAS.2 PAS.CDS @ww0+=;@P @@  `(`@ @6`A@6H (1`@ J@6 P0( (1`@ @6  hH 6 `@ @6 H `  ` p `@ @6`@ 6A@ wc6= `  `hAH ( wPI /I1 @;;XSV5;YPOWEROF292833-16202,REV.5000,870621 870622.0149/P1K/CMP/ULB.PAS; BLPOWEROF2  b.EXIT0.SDSP PAS.1 PAS.2 PAS.CDS ~~--` P(P(!P($P('P (*P@(-P(0P(3P(6P(9P(>XbV5;ZSINGLE_INTEGER92833-16202,REV.5000,870621 870622.0149/P1K/CMP/ULB.PAS>(SINGLE_INTEGER ))j.DCO.DLD.DST.EXIT0.SDSP PAS.1 PAS.2 PAS.CDS )S.@A @((  A( p k2 ` @@ `p (  @>>Xz)V6[DOUBLE_INTEGER92833-16202,REV.5000,870621 870622.0149/P1K/CMP/ULB.PAS> DOUBLE_INTEGER ))j.DCO.DLD.DST.EXIT0.SDSP PAS.1 PAS.2 PAS.CDS )S.@A @((  A( p k2 ` @@ `p (  @O (common.iprog_label^.iprog < 0) THEN offline := true ELSE offline := false;   current_tape_number := 1; {Tape number.} current_disc_lu := destination_disc_lu; /PASCAL/CMP/CDS/UNT.REL:::5:198:128 644 0 0 143000 5300501673 36761 /PASCAL/CMP/CDS/UNT.REL:::5:198:128 ##$ 7UNT REL +++bFST ;;XoV-&PSUNT 92833-16203,REV.5000,870621 870622.0042 /P1K/CMP/UNT.PAS;@Po;;XV-1\BLOCK 92833-16203,REV.5000,870621 870622.0042 /P1K/CMP/UNT.PAS; -BLOCK  ||jP.DADQ.DCOR.DIN.DIV.DLDS.DSB.DSTT.EXIT0U.LBPV.LBPR W.LBT.LDXX.LPXY.LPXR Z.MB00 .MPY[.MW00 \.MW20 ].SBT^.SDSP MALLOCATE_STRING_LBODYJCHCKB ICHCKI HCHCKS KCHECK |~~FGCHKBS FCMP_ID2ID ECURRENT_EMA_SPACDDECLARATIONSCDISPLAY_MODULE_IBDUP_EXT_ENT @ENDOFLINE AEND_GLOBALS >ENLAB ?ENTERID =ENUM_FLUSH<ERROR ;EXID9EXPORTER:EXPORT_CHECK8EXTERNAL_IMPORTE7FEATURE_LEVEL ~6FLUSH_LITS4FNCRG 5FULL_SIZE 3HAS_FILE_POINTER2IMPORT_CHECK1INCLUDE_STACK 0INIT_MACRO/INSERT_EXT_ENT.INSYMBOL-INTERNAL_IMPORTE,IS_STRING +MAKE_TEXT (MODULE_BODY 'MODULE_EPILOG )MODULE_PROLOG &NEWLABEL{{<$NEWNODE #NEWPAGE %NEW_LITERAL_POOL"OUTID OPAS.1 NPAS.2 _PAS.BITDEPOSIT2 `PAS.BITEXTRACT2 aPAS.BITMASK1PAS.CDS bPAS.COMPAREBYTEScPAS.INLINEERROR dPAS.MARK2S*PAS.MIN ePAS.NEW2S fPAS.RELEASE2S {~~gPAS.SETDIFFER hPAS.SETUNIONiPAS.SINGLEMOD jPAS.WRITECHAR kPAS.WRITEDOUBLE lPAS.WRITEINTEGERmPAS.WRITELINE nPAS.WRITESTRING !PREP_VARIABLE PRINT_TABLESPROC_BODY PROC_EPILOG PROC_INTERFACEPROC_PROLOG ~~~>_PROG_BODY PROG_EPILOG PROG_INTERFACEPROG_PROLOG RESET_LABELSREVERSE_EXPORT_LREVERSE_ID_LIST SEARCHIDSET_IDENT_DEFAULSET_TYPE_INFO SHOULD_WARN SKIPSOURCE_LINE SRCHS STRID STRING_FLUSH~** STRUCT_FLUSH SYMREC_TREE TEXTFILEUPDATE_FILE_LISTWRITELINE *b88p `OP( `OP( (F`O(#pp h6H@ HWhH 6p@ H`]8 8(`OΨP('(.` @ @6H` ]` p`@p`@@K<8 6`@ 6Ac (D(Cp $$VF` T#^`hAHc\p `p ($ OV bV4rVFORWARD EXTERNAL}^C?`OpO`Oʠ@p  d(q`OpO`O@p  e(`OpO`O@J@PO `@(`@"Xf V@ x  @ (==,''@V x   Y hx   Y jx   Y lx   Y nx   =iiP7??@Y px @  @OJ@POA@Xr@@ Y @rx  @@ Y tY vx   Y xx   `ǪP(( O Oi?@@T^(^DD4 @@@Yz 'P((RY|0Yfx` pA0AD->>@Y~xA0@AY`O`OM@(QY ~!@@pY~xA0A(~Yx` pA0@AYxA0A`OM,,k(~Y!@pY xA0A,MT~@@T^ p  ( @`@"@ 4IC`@"p @ P(Y@ AX?Y @@ @Y l`@^@`  @(Y X?0Y @@ `@^@ p `++ Y @hH[@Y X`@[+`@@T^({{C? `@ @`@P  i  Y lx Y ?Y |0Y fx`@^@ p A0AY ~  {B> @@ T@^  (9J `OQ(T`yT@@T^(JZ@`@"@ gg0s`=;@Y  p  (Y@ @U6`6AJZ`p A@ (h6J@ HWP ((@ @p (Y Xr` g@@T^(Z On AA] `O0 p  `O: p  `O< p  `OO p  A?@@T^( pO0pO: pO<pOOs@@T^(@8`Op `Op ` `@P(戨(`@*p `@@`@` (`@/p `@@`@` ` AYx003 Yx `OJ@XO@@@Yfx@@03` pO` pOF7 @@T^('aAF>p `O2p`@p pi(B`@P(`(`@ @` P  i@@ @Y|xN0O4@N((Y|xM0O>..̸M(`@ @` P`@p  .JUC?@@ `@ hH  Yt`@ ` @& @@`OO` @&pY`@[Ylx @@Y`@x@@` @( [[o*(`@P((Yx`@pNN(;Y0YxpA0A[{{" D@@Yx@ @Yx@ @Yfx@ @Y?0@Y`O@Y`8 `@p  `O2P (F(J(Lp ` (C{O @@T"^`h\(A 79PZ cZbZ6o_HF@`@@  @@  (o(@@  @@ @Yl`@@x@@Yv`@x@@@Yz 'P((`@p(@Y|@Y|22d@Y@ (i ((@Y `@@x@2@@T^(_}} J@4C` @C @`O2x ,H @ap!` @p""HH 4M!MVx  @ `O2P((`O2 ,HH@ap ` }..@p!! CC>H H@ @ .K/:8p `O2 ,H@a(p`p`O2P(C(T`O@(K`OC0(Np(P`p(q` @@`O2x ,H @a(qp`O2P(i(l\\i2*`p(n`p @` PO `P(`O2Pp  `O2p  i(\F@` @p ` @@` #@ #@Yl ((`(@Y , (p  YlP((@JQO(((@(QO(FF'!((`p  ` `P@(( ((@Y ((FOKA@YXlx @@ @@` @p  CC*H` @H @`O2x ,H @ap!` @p""*C!C`O2P (N(` @ee@S>2p  CCOEH` @H@`O2x ,H @ap!` @p""CCOE MM9C!Ce]J<(`O2P p ` @p!!CC OEHH9C C(1`O2P p  k(` @p  C` @C@`O2x ,HH @a00~p!` @p"" H!oHVx @@ 0 P ((l@@TR^ `h}\`h H[p(( OF* +''6D6D66@6@'"'BB@` @"@@Y`(?@V(P+(?(@`p Yr` JHx YO|Xrx `A@ (\`p ` @ p`A@(k` WWBi.*@p @ h H xAH(w (x`p@pffp` @h @@pffWSKE@p8(z` (ppYO|@@@pffp@pff88(` @pf@fYr` @ Yr `A11@((p`p@pff8(8(1@@T^p('qqf99@` @"AX(@p  ((;@@ @Yz 'P((3Y.P(((3` 0OM(3Y0Y@@ ( qP?; @@T^ (KK3E#!@  `@^@ `@"Xz 'P(Z(m`@"p@P(d(m  K~~h::`@^@ `@"X  (}(`@^@ hH^H @ Y  (w`OM(`@^@hH^H HhO@ `@^~\\11@ P`@^p@@@`@"A@X@@  (( @Y z 'P(˄(Y .(\ff:4@Y l`@^@`  (`@^@ p`  ( `@^@ p`  @ R @Y  (f2 @@T^(EWW '%`@^@h@H"p@`@"@AX`@^@` `@"Xz 'P( :( ?W7I :IG``A@^h g@[  `@@DU p  ( [( ` ( `@"pV Q( j( ( p @ ( Y h@@`@Ux--yh ( Y h@@@Y hx@@(   Y h@@ -  ( U  @@T^(   O ~~U LF@ @( (  ( ( @Y@AhHD[Y @hH[`p@( Y  z'pYz'Pp( @Yz '~33. P( ( NY.( Y .p3^ XN( Y .p@Y lYl@@Q@( F( ,Yl ( EY l@@( Gp@( YY @@`  YCC d(&z'P( l( @Y XlY@A@Xl@Q( ( pC22  @YY@ @ (  ( @ p2 z @@T^ (  D:`@P( ( `@ @@``f( `@ @``"f`J@pO@`O2P( ( U`O2p 'pi'  ( T @b A; @OpO`@p`@ @@` @`O pO`@p`@Xl`@QO( )( (p`@XlH`( <( @piIIy @'p p `@p( Q`O4p `O>p ( n`@p 'p'( nI gC?`@p `@( @`@ ( {( `@p`@"X@lx@Q( ( p( `@X , p`@"BBI %%@Yl`@@x@@Yv`@x@@@YYl`@xBN B:@Y|xN0 @NY|xM0 M``O2P p`@( =`` `@P( ( @`@"A@X@RRl +%`<@`@  ( ( <`@ p`<`@"X`@ p` R? [/+`@"p  O `O2p  i`O@J@XO@ `@" @@` 0 `@" ((VX~~88`@@x @`@"AXz' ,H @a(N`@"@AXz'P(P((*`@p`@P(/`@p`@P~^^i(.* (/hN0`@(I`@"@AX+(I`@"X .hH`@p  ^{V>.`@^p `OM(e` @  ` @  (`h H `h H `h H`h H`h H`h H`h H`h HYY,'!`h H` @ `@(`hH^H`@p ` `O@(`O9(Y)))`OpO`@"@JO9`@^h g[) @@T^`h\(  O   %%: `@ hO`@ hO`%@@T^(F`@ pOʊ`@ pO@@T^(887 @i@@ Y `@"x @@ A`O@POX@px  @ 8@@T^(JJk%%J O@`@" (+(p  @ `@"@@@Y ,(A`OPp Joo*D@>@Y (M(TY@@ @ (Z(    Q (h@(m(m JO(Y  (`@P(`@"X@x @o@@T^(ee4,`@ p  `OP(`O2P p  `@)@`O2x ,HH @ap `@)p  o eH@`` `@$@`@``@(`@"@AX0`@ @` PjV `@@"x @ `@U@@@Y hx @@ AA;" `@Ux   `@"X ((-`JO (((-A( JYO`@ 1@@T^(17C=@`@"@@ Y Pp  `OP(d@Y  +(c`OP(Y(d@Y z .(d`OPp  @Y J0O (pi((z@Y  ((`OP((Y @@ (K?@Y xx Y @@  Y `O2P p  `@) @`O2x ,H @ap`@)po ```@$@` S1 ` ``@ @@T^(7Y p h6`@/6Z}}9D8`O2Pp77 (*pOϺ`O2p88i(5`p9p h6@ HHWh6p:@ H`:H]8 89(`@p;` ;``}__$;4,@+@`O2x< ,H`@)p??%@p>i@(_oJD pO}pO `@@`@@@@ ((Y@l ((@YlXlP((Y@l@@P@@ `O~P(@O~ @@@P  `OP(44*Oih  @`O h E SPEP@ 4ԍPL@YlXnx@@@ @ `@@`@@P@ iY@hH@@[Y`@@@[Yl@YlxG@GY.p@@YxHHN0@//oC(@NHYfx@@YfxI`@pJI A0JAI/=LH@Y~ !p@Y~xKK A0@AKQOu(Y@(^(^JOu(bOwY@hH@[@Y@AXl@@@Y`O~Y>>k@`OYl( `@&@`@OO`@&p@>~~{LD@@@YlYpɀ` p Y@Y` `@! @`O2x ,H@ap`@)p%@{@`O2P ~55(U`O2P pkpOpO}`O2P p5CC  # pO`O0(h6`6Z`pO0`Ĉ`(/`C /@@TL^`hc\`hAH\( OOOn?/GT[?MAIN [G&G 6H6L6@1WD@@ p `@@6`6AJZ`O΄p O (n(5YO@hH\[\POXhpO pO}`@p_`@ @ ``@ _`pO}@  ;;u""@ @((Y lQO((Y@ l@J`YOlX@x_`@_;oH@JYOlXhx_@@ _(`OP(JO J((YOlXO (`OP(Y@OlAX(` (O`fpp 66O`yccYO@hH\[ \JfpYOO6>>1"!!@ @(((4Y @x_@@_ @(hh6`@6AHZ` pOO>HC @@T}^`h\(WOONf$$#N117: Unsatisfied forward reference(s):117: $eDB`@^@ p `@^ P@ `OA@POXh` p p `OA@POXhx@ @`@" ((@`@"AXx (`֟ p  ((QO@Y| ,(@ (Yl@@@P@YfY|0Y|+(Yfx  P (i` (h  PPQ((00̀p `@^@h`@^@hh  @@P0&bFD@Yfx` p A0AY~ xA0AP` (i` (SQ(C@(C(IAQ(Hp p (i@AQЈ(Z(Z(`Q(_;;O_#p p @YlX ,(@Yl 0(;O?=@Y@AhHK[@@@(` (`@^@h`@^@hh  @@P`@^p` (`@^@h`@^@h(^^l''`@^@h`@^@h`@^@h`@^@hJO J((YO@x @( O^8@@T#^(eGEA`O@POP jPp p p `O@JAPOXj@@ @`@" (((@`@"AX/((`@^p @ @(.( @` (GDD5`OP(9(C`p  O(G@`p Y|x`  pA0ADXTMI@YfxA0 @AYl Ph  Px ` (v(@Y~xA0 @AYl Ph  Px @Y ((` ((`00^@^h p@ `@^@h `@^@h 0@@T^(..`@h[`@^hg[@((`@^@`g[.d@@T^(O;OX>4 pOp ` (@`O2P(P(ꨨP(P(ꨨP1(P2((`Ј(?`*%(?O (`OPppi`% pO(?`22eP@@`O2x ,HH@ap772/@8 `@@`O2x ,H@ap (`D`OP(b```@^hAKg[`@^@`AJg[`OʨP(f(`OJ(Os@ p BBo( @ @(u(Y l(` (O`"pp O`3ccB((s@V @hH[ fp@Y  (o(,,$@@T<^`h \`!h"AH\`AhHH[(, O"""185: Undeclared external file(s): 185: "|6`ssy$HHJp Os@@  (('@@ @YXA@Oʄ(` @( Y@Os(YY x(p @@  @Y  (s'@@T^(LL^- `p p ` @#p    ` p p A0A L++M` @@` @@8 8 (1+d\@@T^(- #O ||;bPDA`O@POXn p  (w(  Y hx(` (O`pp O`#ccY xO`@pV @@ | (q D @@T'^`$h%\(b L$P k168: Undefined Label(s):168: LL[f%`@^@hOʈ`]h&`@ [`@^h'g[`@^@`'g[`LD @@T^`hH AH[(&O;OQQ$$$`@^p `@.p `@"@ ( (`@"@AXx (`p ` @ Q (7(#(7Q×#EEh  @@ @@S` @p(B` @h Hp ` @ (h`Oh@ ` @@ @` @@@SS@` @peeƼh66` @h @` @ @@P` @ p` @h ` @ P` @@ p@exxDB` (`O Ap h  ` @ P` @ p@@`OM(h  ` @S` @p@@P` @@p@xZ@@T^p (<<2`@.p O ` @p  @ ` @p   ` @p @  <::` @p   ` @p  @ ` @ p   ` @ p @  :"@@T^(44w(`@p `@@.@J@POS @ `@.@@p  @ 4@>@@T^((dd,D//`@.p `OM(_`@p ` @POS  ` @@p  @ (s`@p ` @@JPO@@S  ` @p   ds@@T^(D5yLD` @ `@@ pVx Vx@ AQ((` @Vx(` @@@@Vx` @@@v @Vxkk""@@T^`(h)@\@ p (y" N(P |# Word of ..E`@ (p(`@@@@ V x  .@@T^(ii.G9@@` ` @V@@@VxyVxww@@VAQ(<(3@VxVx` iJXL@YjY@h@@P `OM(fY@n@@P  `  fVx` Yh@@` Vx"` Yj@@ y` Vx% WK` Y@l@@YrPYvxP  `OM(@YnP @ (Yn` @Vx,mm` `  fVx((#2 1` @Yr` (?#VF@Vx4mm` @Y` @Vx9` `OM(Y@n@` Vx@mm` Y@l@ {gy` VxE ooK=` Y@v@` VxN` (@YvY@l@@P` VxWww` o @@T]^ `*h+\p ( P*P \\DD Source lineCode. Body. Prolog/Epilog.Constants.Data. Variables.EMA Variables.Constants.Small Temporaries.Large Temporaries.Temporaries.\QQ2'&&` (` @.p ` @@(:` @p ` @(G` @p@ @` @(TQ4MA?` @p ` @(a` @p@ @` @(n` @p ` @ ({` @ p @` @ @(` @ p `OI(pBB%ppO`yO` ` @.@`@` ,` @.pB~~&A88@`@JJPO{O{@`@JJPO}O}@`@JJPOO@`@JJPOO@`@JJPOO@`@ JJPOO@`@ JJPOO~VVI0$` ('OOy`OI(pppO`yO`qq` ,.`Om(('`O ('V On` 0f.!!3'@@T&^`2h3y\p p ('!, O`Oy POn66Statistics: Total Statistics: XXSE.$`@p O `J@p O@ ``4p `U `5p `U `6p `U `tXƒs@@T^(E4NNb`y#`@^p   `@ `@P( ( "pOq`7p`U`O@((NKG `@ @`@`O@p  JYOY@ AXx  Y@ @JYOX@x @J YO@x  @@ Y Jx O@ ``O2P1>>J_((`Op  `pO( `@^@ `hH^H>~~| E7`0``@^h8g[`9p`U`@^A@`8gH[( ^``抈`@)p ` 4 `@$@` @JO@ @( F( MV~00Ԯ GO@H`( PP`O@JAPOXrx   0ǵ ^@@T^(y7O! d@`@"@ d jMC@Y  .( `OM( Y ( O`O`"{{@p( Y  (@( Y @Y   ( (  AA @Yz 'P( ( Y|.( Y|- ( pA~~Z MK@Y ( @Y z 'P( (!.Y @ @( (!.Y X z'P( (!.Y@ A@Xl@@(!.Y X |.@(!'Y X|-~AAE!$! (!(p@Y  -(!>@Y  ) (!?pAN!E @Y @Y !Q @@T,^`:h;\( d To:P!\ ##_ !\DIRECT ignored on actual routine with CDS ON#!rF<`HJ(!O (!(!`(!@`@"@ `Hf(!`OPp ` (!`2(!@Y `\(! Uo=P"\ 44-"\$$118: Undeclared forward/exported procedure(s) or function(s): 118: 4_"<6JO ("O ("`O9("`OT("`OpO`?p `U ("`OP("("`t`@^h@g[`Ap `U `@p O `Bp `"U " `?`f("@@T^("9?O"?7`@)p (`(`@P("("`"`@ @`O2x ,H@a(#+ pOpO0 pO:pO<`@hO2`@^hCg[33#`@p`@@``@)p (-(3~~f#*E;("p #((-` @-@`O2x ,H@ap`@)p ((JO (#`(#j`O2P4(#j`@p`OP(#r`~II#o*""Rp #(Oh (--(`@(@`O2x ,HH@a(#`Oy("I$$M#@@T2^`DhEy\`hH [("$ CO# #%#666`AA#''@V@hHg[@V`@ADg[ V x  @@ Y rx  @@ Y vAϐ#@@T/^(#hk#11`@ p `O4 ` hO~` @hOYO@h H[` @hO;` @hO>` @p O ` @hO؈` @hOC` @ hOπ.$` @!hO` @"hOBQQ $` @#p O ` @%hOC` @^h H&g[` @@hO` @AhO` @BhOQ$=@@T^(#%$C66 pO4pO~ `pOpOs pO;pO>J OJYOxOpOC`pO O` @^p@ ` @^@p@ ` @^@ `pO`pOY&&M$yOxOAJPO@@ Y hx @&&&Bl$@Y jx@ @Y lx@ p `p &$@@T^($C~~$77`@ p pO4` pO~` @pOYO@@ ` @pYO`J[YO@x @` @pO;` @pO>` @@JO` @~77$pO` @pOC` @ pO` @!pO` @"pOB7OO$@` @#JO` @%pOC` @&Ah H^gH[` @@pO` @ApO` @BpOOѕ% @@T^($xxC%D.JOJJOO (%#(%Y`$>`pO`$`@ pM`@pNMNW`# W`O(%*`O`%x%W`pOҐ%Y@@T\^(%%_I;`pO`O2pi(%YO@@0FO (%`%Z(%JJOOO (%(%YOz'Pp(% BB%#OOp(%`@ @`O2x ,H@apgBZZt%0(`O2P p ` (%ָ` (%dJ OJJOO`O2P p`@p  p(%Z$$R#%@@T$^`HhI\`hH [(%_$oF PO&  &  & 6 ش&;5`OP(&`OPp  `O̠@(&&O p  pipOpO`@p`OP`@(&`@hO`@p Osgg&L,,@ `@p O YO@hH[`@p O@ `@ hO`@ hOB`@p J@O `@ hOCgEE.&x`@ hO`@ hOJ O pOpOJ Os`pO`pOp E&@@T^(&p&E9`@.pOpOs`O2p`@)p`@Uppi('jPJ OoO `@&@` OO`@&p@Y& `[d&TL@Y 6A`L6wDZY lP  PY l@@m|P  PpY |@@ `pp hM6@ HWp@ p ff8 8('",,`u'8@Y x@ @Y vOpY r`,R'PF@@Y Y xO OJYO`O׈J('nOJO`O2P p pOϠ`O0('OQO('DŽ('OY|@@@V6`N6ZBB"+'#!@Yr`YrpA@@('YrHxffP ('('Bd,'D<@Yr@HxYr`(' pO0``JJOQOJ('('YO|   f ('` JO@`@^ @@` `@1@`@ `CC@l'! # `hH^H`@pO`A@^hOgH[`Pp `U Cl( `?OO֣('@@T^(&3`J OOGOOnOQ(-OM@ @((3((@@V@@@Yz 'P((F((Y/((YY@@`@(Y  ((n(( VY؀x;,(| @ @Yx@ ((W(@Yx@ @Yh ((h@Yh((-(( @@T^((-e(B8`@p O `Qp `U `?`Os(( @O/pO/`O2P'p  `@^p `@.p OS@ R ` @p   P@ ` @(p    l(>8`O6((`(f`O]OI()JOYO `( `@()P`@pO`@p YO` [@`@JO`@@JOshhw)/))`@ pO`@ pOB@`@JO`@ pOC`@@JO@`@ pO`@ pO()] Os Oh~~;)X:4``@1hH^ g[pOsJ OJ O pO`O2P ()t()`OP(){()`O2P1p  ()`OP()()`O2Pp `@)~)p  ) @@T^`RhS\(( ?Qp)  )O)6@1)E5`&`((`O2P2()()`@)pK`@pLKLd`% d`O2P3pKK()`pOpOs`@)pKKZd`#d@Y>>)!@O pKK`O2P4pKK(*`pO pOs>((G@*`@)pKK_d`#d`)(*$ @@Ti^`ThUy\() ]TP*/U  B*/$*/666xR*>D<J O9`O(*`@p  @ `@^hVg[`Wp`U`@^A@`VgH[`?`@@p @ `O2Pp  q`@p Odd·*0,  `O9(*`OpO`@)p `@p ``@O`J@p O@@S `@.@p @@ db*@8`@.p O `J@p O@ `@^hVg[`Xp`U`@^A@`VgH[`?`O(*`t`(`@p J@O `@^hV``*0,g[`Yp`U`@^@`VAHg[` ?pOt`OM(+"`@.p ` @p ` @S ` @p @@ `+"G7`Op ` `O2Pp   pO pOy((Oy`Og(+M0`O6(+\`Op `( `OIO](+dJfOJ@PO+iOO!POO!ݐ+p@@T^(*>VO22+v@`@"JO9`@^hZg[ `@@p @2a+<6`O2Ppq@`@"AXz'P(+(+`@"p@ P(+pO`@^hZAHg[`[p `U `@pJ@O`@)p`@pWWl'+.(``@O`@"X z'P(+(+`@"X *pW+@:`@.p `J@pO@@S ` @p OS R@ `@p O `@^hZAHg[`\p `U `?`t`O9(,<`]p `OOL3,8)!U `OM(,T`@.p ` @p ` @S  ` @@p  @ `(`O~~M,a?; `@$@`@ ` `@(,`@"@AXP(,{(,@`@"A@XJJOYO(,`O (,(,`@DhZAHg[`@@p ~JJ̭,'O `^p `U `?JYOpOt`f`O6(,`(fJ||Ha,C7`OIO](,Ҡ`Op  `O3OI(,0`O2P p  `@)p  ` @@`O2x ,H @ap `@)p o|,- @@T^`_h`\(+vZO--X-6A[[Y--#`@P(-$``@)p  `# pOs`@P(-<(-B`+q(-G`- [-G @@T"^`ahbm\(- `aP-R `-R -R 6@6`llJ-\9/` @D@`A@g[ "pOs ` #`  _p`P(-P(-P(-(-(-`  !(-h 0`(-` -Hl((.-@@T^ `h\p`h H)[(-\(Rc``  G6  y."wx{zI!# FK!MMs66d@neu&sD][= HUv$.g' &  A  OP-M-_-6@66  @'@@XRV._COMPILE_PROGRAM 92833-16203,REV.5000,870621 870622.0042 /P1K/CMP/UNT.PAS@@>COMPILE_PROGRAM __ǜ.DLD.DST .EXIT0.LDX .MW00 .MW20 .SDSP BLOCK CHECK ENDOFLINE FLUSH_CODE_BUFFE PAS.1 PAS.2 PAS.CDS PAS.SETDIFFER PAS.SETUNION_``A=/ Y h ##`A@h@  `@@ ` P ;p` p  `= @@ (`h (6v P ;HVH +H 66@@-. %#; FORMERLY STRIP FLAG. REV. 2633 AUG. 13,1986# MUXBIT DEFL MUXBIT+1 OVFLOW EQU MUXBIT SET IF OVERFLOW ON R/PASCAL/CMP/CDS/UTL.REL:::5:91:128 644 0 0 55400 5300501675 35637 /PASCAL/CMP/CDS/UTL.REL:::5:91:128 ""$[ 8T[UTL REL +++[-XHFST ;;X|V:PSUTL 92833-16204,REV.5000,870621 870622.0156 /P1K/CMP/UTL.PAS;@]|==XJnV: DISPLAY_VALU92833-16204,REV.5000,870621 870622.0156/P1K/CMP/UTL.PAS=\DISPLAY_VALUUzz.BLE.CFER .DCO.DLD.DST .EXIT0 .LBPR .LDX .LPXR .MW00 .MW20 .SDSP PAS.1 PAS.2 PAS.CDS PAS.INLINEERROR PAS.WRITECHAR PAS.WRITEDOUBLE PAS.WRITEINTEGERPAS.WRITELONG z OFPAS.WRITESTRING _?7` P( P(\P(cP@(s( J ((&(&` (P`(%P`@([ J (-(U(U` @(H` @(H``II?,  `(T`0` ([0` ( ` (p Ippk?3@`@( @@ P(P(P((@ x@` (P`" (P`& ( h( hp))@@ *` h @@ `hH   ()g='#' P" TrueFalse String Pointer @PoN;;Xx |V: DO_LABEL92833-16204,REV.5000,870621 870622.0156/P1K/CMP/UTL.PAS; fDO_LABEL oo\S.DLD.DST .EXIT0 .LBP.LDX .LPX .LPXR .MW20 .SDSP NUMDIGITS PAS.1 PAS.2 PAS.CDS PAS.MIN PAS.WRITECHAR PAS.WRITEDOUBLE PAS.WRITEINTEGERPAS.WRITESTRING oL@` (< ( (4` pP@@p @A x`p @  x ` (< ``M(I` (I`(Y// L`` p`` ` /''Te@@  ` h @  @p @@ ('I Q.+z zPas @*I}??X V:STANDARD_TYPE 92833-16204,REV.5000,870621 870622.0156 /P1K/CMP/UTL.PAS?+ySTANDARD_TYPE e QQK .DCO.DLD.DST .EXIT0.LDX .MW20 .SDSP AOC IS_STRING PAC PAS.1 PAS.2 PAS.CDS PAS.WRITESTRING TEXTFILEQwF>@p  J ( (( `(@J  (("(" `@( J ()(2(2 `(@J  (9(B(B `"@( J ??UF$(I(R(R `&(P (a `((` (s` (s?PPj/% `*(` ( ( `,(` (p ( `.(p P))ʝ`  1`hAD  p `p () ''~Integer RealLongrealBoolean CharTextPAC AOC String'@c::XE V:TNAMES92833-16204,REV.5000,870621 870622.0156/P1K/CMP/UTL.PAS: xTNAMESY  YY%.DLD.DST.EXIT0.LDX .LPXR .MW20 .SDSP PAS.1 PAS.2 PAS.CDS PAS.INLINEERROR PAS.WRITECHAR PAS.WRITESTRING STANDARD_TYPE Yo<6@ (p `(P p ` @( P(5P(>P(GP(PP(YP(bP(kP(}P(P (tP ((`PP)LV:8PRINT_TABLES92833-16204,REV.5000,870621 870622.0156/P1K/CMP/UTL.PAS=R vPRINT_TABLESqzz h.DAD.DCO.DIN.DLD.DMP.DST.EXIT0.LBP.LBPR .LDX.LPX.LPXR .MPY.MW00 .MW20 .SDSP DISPLAY_VALUDO_LABELINT_CONST NUMDIGITS OUTID PAS.1 PAS.2 PAS.CDS zSS PAS.INLINEERROR PAS.WRITECHAR PAS.WRITEDOUBLE PAS.WRITEINTEGER!PAS.WRITESTRING STANDARD_TYPE STRING_LITERAL_LTNAMES WRITELINE S``+A;@ @((A @@  `B @@`B@@ @  ` @ @@  ($`?A @@ (llK00@ @(Q(  @A @@ @0@ P({P(|P(P(P(P(P(P(((P(P (P ((lF{TH(  @@`@( (  `@(  ` @@`@( (  `B @@`//(  @@`(  @@`/99"(  @@`@ `( ( hJ9@ @@ (KTT+'`@ hH x AH(% (Bx ` p h  @ J@@ `B @ p 8 ((TB@@(**H@ @(N([J([(T@ P ([(f*[I;`0 (e` (`0 (qp@(xp `  (` @p` `x```(` @p`o,@@ pp (H `m(2`@ gRH`@ @ @(( @A@hH   `  !@ @(( !@hH AK @   P( (,`  **T(@ @((, @hH AK  *c!, `#{5 @@`h( 5P@ a@ [ |AG?@ @(G(J((M@@A@@@.(`m(`@p@@`$`@p` `#` LLh."` `@%x` `@ 'x``LJB<`m( ,(`@ P(()(@p /(``p  P(P(&P(P(PUU6($(P(FP(fP(P(P (*P ((` ( (`"((( `&((U VH`6(@@hH  `*@@@+@AhH K`+@` `@6DDGKv'%`@()(@@ ((@@A@+J(((DUE`- @ ` `6(`/ @@` `6@@`(@@` ((G`1@@` (" SA`6@@`@`(`@$x``#`6(`6@@`  @&&.]@`(` (`3 &qTF@` `6` (@@`(@@` `6@@`(@hH 9@@-@hHAK  nnϼE5`@@ ((`5` `6@@`@`(` 6(h3n@@6`h@/@(A 8 P* ''*f Packed StandardDeclared.. of to of of of ..'}}CD<@@  @ 0 / 0m( "`m(p`@p@@ `$`@p` `#`  !@(( @h}##H A@ A!p#O?``m(`2( @hH (`& @@` ``m( 0/(` MM4''J (`P(@ +(( +@ @(( + 0'P((Mm@8`(( 0.((`! 0'P(?P(HP( P(P(P(P(P((ٺ`&(`(WWO3/ 3/( @@`h@H  5!(p( 5!h  7WPL( +@@@ 9@x  ;!h @( @ @@ =@hHAK @ =P(( = PA(( =@A HH$"@@ `@@`@`@ @@` `@ @`@`@ @@`H~~I?`@p`@ p`@  @( 3.(`-($`1@ ?(3`5(K`: ?x~@@P2?("``@ 9 +(p@ +@ ;@A@}}tgPD`>&&(@ +@@ ;x@ 5 !h@ (`A&& 3x``  x` 9.}LL/)!(`  ;&p``@   ;+p`L^I=(`D&&(@ 3 /(`G(`L 0'P( (`Q(`V(( 3/P(&(CC)#!` B.( D,(U`Z(( D-(TCLL@`^  (`c D+(m`g D(( D+(``k D.(`pDD (`t&&(`P(P(P(P(ʋ(`w(D~~feO?`{  (`(`(h(h`m( @ F (( `@ F@hHAK ~22r `#@ 0 'P( "@ `2  "@@`h@H@ (C <P 1 [ 1``Invisible Imported Exported TypeConstant Actual Formal Variable Parm # (EMA)Field ModuleStandard Declared Procedure FunctionExternal ErrorExitActual Forward Recursive Direct Formal Program SubprogramSegment Modules [WW֔ :4@ @( ( @@` ` # @@@ ( @@` WS @@!( UU=x *&`I( u`@ ( ( ` p ( `p `C` p@ ( up`p ` K@J@@ U~~̐ J<` @ ( $` ` P( *P( 3( K`( SJ ( 9( B`&&( J`!&&( S`$  `'22~..' [@ ( g( p` @ p 8( . u @@-`IhJ4p ( ^^4QEE   <>/][ " r ^"" No Program ModuleGlobalLocal Identifiers" $K @??Xt LV::XLATE_LITNODE 92833-16204,REV.5000,870621 870622.0156 /P1K/CMP/UTL.PAS?=XLATE_LITNODE bb.DLD.DST.EXIT0.LDX .LPXR .MW00 .MW20 .SDSP DISPLAY_VALUPAS.1 PAS.2 PAS.BITMASK1PAS.CDS PAS.SETCLEARPAS.SETINIT PAS.WRITESTRING b^^gI<2@    `@ @x   ,H@ (<`@ @hHAK  P ^<@@ ` h @ @ (  G  K NK = @Ig<<X6V:KPR((INT_TREE92833-16204,REV.5000,870621 870622.0156/P1K/CMP/UTL.PAS<mPRINT_TREE|| .DAD.DLD.DST.EXIT0.LBPR .LDX.LPX.LPXR .MW00 .MW20 .SDSP DO_LABEL FULL_SIZE OUTID PAS.1 PAS.2 PAS.BITMASK1PAS.CDS PAS.WRITECHAR PAS.WRITEDOUBLE PAS.WRITEINTEGER|""PAS.WRITESTRING TNAMESWRITELINE XLATE_LITNODE "IC@ x ` p`@Dp`@p `` ,HH@(`` P!(%(*P (E` P"@(.(L @@  @x  pPPSI*((E` P(P(@ A@hH` M m(@ A'P(s(PcsPB `@  x `` `(E` P ((  `  xp ` `A @A xp ``;;E @@ p  ``@ pp `` `;S~K= `@x `(E` P((  ` x `(E` P@((E @` `@  xp `` `@! XX.2(x `` `! x `` `" # p`@p`@p `Xj`RD@ % (i(` `' %@@`p @ %  p `` `' ( p`@$p`@p ` `,,v/@ *x ` `` P?((d,ND` `'@@ A@  @@/( ` .( `@-( ` ,( `@99E+(# ` )P(/P(8P(A(J9#/P@ `(R `(R `(R ` `,xp `  ` `' /(}` `@.00Rt.(` `/ -(` `00  %%@@`h1`hAD2 (% _$$ [ low: hi: [ . ., regs ObLcMxRgShAnHp1k?? #$80``dir i1 i2 bi1 bi2 ii2 cnstvar exprcondbrsl=tru=flseq0 ne0 <0 >=0 <=0 >0 skpfskpt3way+ @ and := binfbinxbynxcsercasecaslcsltcpar^ set-/ dntofbuffcalforlfor fspcgotoid if ilabindx%``ind ind2in set*.. labllabslit lab mod * neg noopnot or packpcalrnge= >= > <= < ~= =fls=tru=0 >=0 >0 <=0 <0 ~=0 reptreg selnset stmtsinfslststor- st<=subssyntto cnvtset+unpkunquwhilwithwtre;L<@ @(( @@  P>((` `'` `'  `  `p ` ` `'` @  ,H3H@44ɒ( PJ(@ @ ` p  (( 4ϸ @@ @ (@ p @@`4h5@@ (GG11 ]:/,  RTW k G  : @!??X9V:"QPRINT_OFFSETS 92833-16204,REV.5000,870621 870622.0156 /P1K/CMP/UTL.PAS?kPRINT_OFFSETS xx} .DAD .DCO.DLD.DST .EXIT0 .LBPR .LDX .LPX.LPXR .MW20 .SDSP PAS.1 PAS.2 PAS.BITMASK1PAS.CDS PAS.WRITECHAR PAS.WRITEDOUBLE PAS.WRITESTRING WRITELINE WRITE_OCTAL xgCA@@  @ P>( (` @@ p @x@ ((&(&` @ p@ x@@ @((&  ` @h H ` @p`A@(G`EEC)#` @ @x0`@` @ (m  xPE66Al(u@` ` @@ p` @ p@6\@@ `h@@ ( 3rP  ????? KKF-)` @  ,HH@( @@ @ ((`@  @@ (K@ @@  ( 7k KK,`s(` `@`  ```pp @` 8 8(`K((^`p@ @ ```( /@@ ,`h`hAH( ##JJ  P%P- #% STMT OFFSET D~- C O D E O F F S E T S @M:k>>Xh V:#UPRINT_TOKEN 92833-16204,REV.5000,870621 870622.0156 /P1K/CMP/UTL.PAS>>PRINT_TOKEN RR Ӥ.EXIT0.LDX.MW20 .SDSP DISPLAY_VALUPAS.1 PAS.2 PAS.CDS PAS.WRITECHAR PAS.WRITEINTEGER PAS.WRITESTRING WRITELINE R=D4`p`@( `@( ( ` p``"````2``3==5D#`````=ϱgJ6``` `@(`(`#`(``+`;;M`-`4`0 4@`@((;,,E` `` @,t @@/ ` h ( ) "**1in im sy op ch ( kk id " see below " el lg va *@ /PASCAL/CMP/CDS/XFM.REL:::5:237:128 644 0 0 166400 5300501676 37154 /PASCAL/CMP/CDS/XFM.REL:::5:237:128 ##$ 8XFM REL +++vOFST ;;XoV6PSXFM 92833-16205,REV.5000,870621 870622.0050 /P1K/CMP/XFM.PAS;@Po99XCV6MAX292833-16205,REV.5000,870621 870622.0050/P1K/CMP/XFM.PAS9 MAX2  ))j.DCO.DLD.DST.EXIT0.SDSP PAS.1 PAS.2 PAS.CDS )X@@  @((  @( I@@@  (@š99X_+V6 REL092833-16205,REV.5000,870621 870622.0050/P1K/CMP/XFM.PAS9 "REL0  b.EXIT0.SDSP PAS.1 PAS.2 PAS.CDS [[d ` P,(P-(P.(P/(P0(P1(( `4p ( `5p ( `8p ( `9p ( `7p ( `6p ( [ ` p `Np (@j>::X3c V6REDUCE92833-16205,REV.5000,870621 870622.0050/P1K/CMP/XFM.PAS: hREDUCEh VVD.DLD.DST .EXIT0 .LBPR .LDX .LPXR .MW00 .MW20 .SDSP COMMUTE FOLD PAS.1 PAS.2 PAS.BITMASK1PAS.CDS TRANSFORM V}}&FD@ @(( @hH  `/(` ,HH@(C  ('(C  /(3 `PM(7(< @ (B @@ (!`P"(}??F" P `@*@@x  ,HH@(h   ,H@(l?VVºh/+@`   ,HH@(` Y(`@0@@x  ,HH@(p  0V@@ 5` h @@ (  k e G) K N@0!N @^==((X5{V6VTRANSFORM 92833-16205,REV.5000,870621 870622.0050 /P1K/CMP/XFM.PAS==5aTRANSFORM }}:.CFER ;.DAD<.DCO=.DDE>.DDI?.DIN.DLD@.DMPA.DNGB.DSB.DSTC.EXIT0D.LBPE.LBPR .LDXF.LPXG.LPXR H.MW00 I.MW20 J.SDSP 7ADOPT 6AOC 5BREAKOUT_INFO 3CHCKB 4CHECK 2COPY_TREE }||1CVTNODE 0DISOWN.DOUBLE_INTEGER/DOVER -ERROR ,FULL_SIZE +GETBOUNDS (INBRO *INDIRECT_THROUGH'INFTS )INSERT$INTEGER_TREE_VAL&INT_CONST %INT_TYPE#IS_STRING "MAKE_CONST_NODE !MAKE_STRING MAX2|~~NEWLABELNEWNODE NEWPAGE NEW_CST_NODENUM_ELEMENTSNWTPN OPP_RELATIONALORDER PAC 9PAS.1 8PAS.2 KPAS.BITMASK1LPAS.BOUNDINTEGERPAS.CDS MPAS.DOUBLEMOD NPAS.INLINEERROR PAS.MAX OPAS.NEW2S ~yyPPAS.SETCLEARQPAS.SETINIT RPAS.WRITECHAR SPAS.WRITEDOUBLE TPAS.WRITEINTEGERUPAS.WRITESTRING PRINT_TREEPROTECT_TEMPREAL_TYPE REDUCEREL0REMAPPERREPLACENODE SETUPOPERANDS SET_TYPE_INFO yFFkSINGLE_INTEGERSTACK_TOO_FAR STRING_INDEX_CHE STRING_LITERAL_L SWAPOPERANDS TEXTFILE VAR_TO_ADDR WRITELINE F55:@G P!((G @hH H@` (p 5k ` CJ@@ `p (&w*ME@`@A@F@`@@AF@@p p `@@AF@@Pp ` @ (@`@AFPG(f(`@@AF@AF@@w<(}((h }GC`@p`@F  ` (`@FJx9@(`@p`(܊@`@AFx9`@;E ;cc40AFx@G`` (ۊ@`@AFx9(`@p`@Fx9`@pc55f` (`@FJx9@`@@AF@@P5@@CJ(*'F<@`@A@F@ P (`@@AF@@ P (`` (l`@p  `@p `@ p`@p`@p`@p LL7`#``@p  `@p `@ p`@p`@p`@p L@@CJp (PP0/-@G G( <9(( <9(@((Ex ExA@!( PC$ @@CJ ( `@ @`@#%JNH G@&@@G @&x@@GxG `@G /pG x O0OG@AF(P(( `@ @`@#* 77E""G@AF&@@@G &x@@@GFxG `7g@SS@GF /pG x O0OG@AF@@@G x@@@G G +@GF(@G;F ; F@x,,iJ(@G;F; Fx@@,~~0,XX@GF+@(G;+F +; Fx@@(G@A;+A@F@A+@A; FxG x @(GG xG~%%@xG `G-x@G -`% X@@@  @@C@J (~~=,JB `@@`@@/1E@hH@0HEA`@0DHG@@A<(W((` @ <2((` @ <4(h(h(69@p` ~Gv@ A@ pgWA(6 969 p p ` @ A@ 6p(69 p@` @ D A@6 p69  p P   G @@C1J(,RXF<= 789:;`@@xG  ,H@K@(OG @x@@G ` @G D@@` (vO@G P=(V(zVIG ` @ @`@` @ @@`` ` @ p` @ B?@` @ pG @AF@G ;F` @ @G x@@@G 99"!@DD  ((G P((@G `922@G @D@`(` E  (2@@C!J (\\>.<> 789:;`@@xG ,H@K@(G` K\*KE@G@D@` KG@AF(P(F(` @ @@` ` @ @`@` ` @ p` @ B@? @A <4(kp@? 99%u"@ +  +@@@  A<((( <(((@A <A((9LRP@A <A@(( D?   @ ? @G&x@@ @G`@(JGF(P(Ą(JG@AF@@P(@G@P=(GF-((JG11@@ ` @ @`@` @ @@`` 14^II@GG(P((J` @ p;Fx@@<(-( (-;F` @ x@@` @ p+;F@x@<(J(JA@+;AF` @ xJJ@@C%J(**X@`@DD`@FFC *poLF@ @(u(o ({(o@@E@@GP!((%G (@@ E6`9p`@@@xG ( ,HH@K(@ ( <9((GG&" <9((`@ @``@ @`  G@hHH`@ GM?@`@ @< ((ꈨ(`@ p@@ <(p@FP ($` ($ P(($@ `@p P@(cGF(P//J.@(0(cGP=(7(FG (@@`(c/@@&F)#@G (` `K ` G@ -@@ @(o@o@@CJ(Xaabu60 <IGH`@@x@`@AF ,H@K( `@@x@`@AF ,H@K( a`HB@`@A@F@ `@@AF@@ @G  ,HH@K( G  ,H@K( `@p`@ pp`@p `@22)pp `@p`@p`@pH2@ @@CJ(u [9_ ~~MIC@`@A@F@ P ()`(`@F 0 (`@F<9(F((`@@AF@J<9((R`@@AF@@<~SSn[209((^`@FF `@FF;     `@Fx @@  SU@@CJ(FBp `@@AF@@`( @`@AFPG(( `@@AF@@A<(( ( `@FP(̈( `@p@`@A@F@55 `@FJx9@`@@AFx95Z@<@`@AFx9p ( `@p`@p `@p`@pp( B`@F<9( &( Q( Q`@@x`@@AF ,YYL 4+'H@K( Q`@p`@p `@p`@pp( B`@FF(P( _( @Y _B>@`@AFP=( i( `@@AFP( `@FP( @`@A@F@`@p``@pJ@`@A@F@GGBH '#@`@H@Dx((@( ?`@F``@p`KG0Y D<`@p``@pK`@p`@p`@ p`@p`@p`@p@G`@FF<BBv $"( ?( `@Fx`@F L`@@p@B~~8H 0FB`@p`@p`@p( Bp ` ( `@FP( O( `@FF ( `@FFF`~MM v++@F<( ( `@@x`@FFFF( ,HH@K( ME E9`@p`@FD@@ `@pK`@p`@p`@ p`@p`@p`@p` LDM6`@@x@`@A@FAF( ,H@K( @`@A@F@@( `@@AF@AF(P( *( 7@`@A@F>>? 2AFP( `@F<9( ( C`@F<9( ( O> OB@@`@A@F@`@ @@` `@ @`@!!`@ @A<2( t( |( |`@ <4( ( |`@FP!( ( `@F@AhH#CC $ KH`# `@ < ( ( ( `@ p <( p@N( `9U( C~~- A?@`@AFPG( ( `@@AF@AFP+( ( Έ( `@Fx`@F L`@p@@`@p`@p`~q @p @@C&J`hOI( >P   e @N }}fH ><@`@AFP!hH `@FP!hH `@ ( H`@F@hH AKH`  `@@p @`@ ( f`}..] N@F@hH AKH`  `@@p @.- f@@CJ(   l @`@DDF uL@@@E@` g`@FP( ( `@p!A "p!"@A@Gx!@ !@G`GP``@p!p!`@p!22& !R`@@AFP( ( @`@A@FDD2 QK@GP!( ( HG@hH$H`$ ( HEFP!( ( HEF@hH$AKH`$;; ( (EGx!!( 1@E44 +G@`@`@p!`@F  !4 GNN( ` ( @ ( ` ( @ ( E@D@@@@GG@@<( v( ( Gx!@GP!( ( `@F GP@x!GP//N x!p!GP`!`@p!`@p !/h LH`@p!`@F!`@h@Hp!DD!`@@D@@E@@` g`@F@x! @!` (F<+( (F  +++.   +S`@F T6+NRF`@p!`@p! p!  !pP@G;F`` (7` ( (@`@A@F@p@(g ::e@(g(mG(@`@A@F@ `@p!`@p !:oHH@`@AFx! !(7` ( (7@G (7@GP((7 ((<((7(7`@'@x!@`@A@FAF( ,H!@K(FFu$"`@ p (@`@A@F@`@ @@` `@ @`@""F~~BD<@`@ (7`@p!0!(7`@p!!'`@p!!`@p!! ((0`@;F x!@`@AA;F`!`@~q2p!P!7 @@C(J`hI( l B/PB' GB B CQO@`@A@F@0`@ @@`2 `@ @`@4024`@@@*@@E*@@(E(@@@G*"" (~(",G,+@@&@G&$G$..Nx ` (@p0G,U`0G,Ux0@G$`0. TP(G,U@` E"@@"(xp,G@AF`,@ @G*"" (ք(Z;"F<(p,0,W(O@ @((:@<((:(:GU44@x,G"UP,((:G"P@hH6@HGP`@6H4_ZX*"G@"+ ('(6@G"+,G+x0,0"P;"F<X(O(J@?@@"@@E"@"(G@*@@"" (g(@@E"@@G*<))s"((v;"F,P;"FB, )YYS@A <Z(( @@G*;F,P;FB,, <,(ň@((@@E@@(<"((@*" (p*"(@"@"(a% @G("" ((BB]-)@@".@G"@D@@  (( @P E"@@"(G@DD ,P,B=@@C9J(CllӚ%51@`@A@FAFP(5P(8(;`p (@` p (@hD`9U(r@`@AFx L 9@ `@p   lZ@<`@p `@p`@p `@p  (Ċ@`@AFP"(|(`@@AF\(`@FFP((`@FPP**& `@p `@p  @`@AF\@`@AFx   (Ċ`@p  P@@CJ(%EA`@p`@ @`  @G  (` p (`p @`@A@F@@G @x@`@@AFP"((/@`@AF\(/44Jh  @@G P;G Px`@pp 4__ .>2(l`@F T ^9 G A@; AF`  p p P`@pp_l@@CJ(==ur$ @`@ p0_(5`@@AF@ p0_(5=GE@`@A@FAF`/P((`p(5@  @`@A@FAFCP(P((@`@DD `@FF<A((BB$`(" `@ @`@@ (    (`@@DD@D@ BSS?0, `@@`@@ ( (@ ((5`@@AFx `@Fx@@ Sd5@@CJ(rbb;20@`@A@F@@ p0_@(G b'P(>P(ΨP(eP(dP(d((@Gd .( bmQG`@pR`@@AFx `@F f G @G`G Px`@pp `@pA p`..@@pG g&h @ p.}NHA@@ GiG xGg+p@G `G P`@pp (=`@pf`@FG@`@`@@AFP)) &xG+@@@`@AFx)=MK(G`/(`@pf`@G\@G+GxGk!@(q(GGk!h GPxCCV#@G#A@9ʄ(`@p(((`@pG#H9xCOO)-)(GdxG`@Gg !h@ @GPx@@(`@p(mO@@CJ(;ggm84@`@AFP((+R@69 @`@@D@hHAD0HE `@@0HE x   G ``@p  ng''@`@AFx   `@p p '+@@C(J(1GA@`@A@FAF-x p p ` (Gp (`@@AF@@`@`@p`K`@p``@@AF@@`** x@ @``@ @`!`!*~~`NB@`@A@F@T@6`@p`@p##`@p`@p##`@F <(h @ p~ZZ6.@PG@x@`@@AF@@A<(( ( `@ p( `@ @DA (p ZEA@`@AFP!((,`@@AF@hH&H`&@(H`@F`@@``@@` !!` (`@ pB::T#(69@@69`@ppp:wO?@`@ D A@p(ױ69@`@@AF@@A<(((69 p`@pp(`@pp`@ __ 80@DA 6@p`@FP!((`@F@hH)AKH`)`@ p(p _~~M=P`@pR`@pp`@pA@p AGx G@GP``@pp`@pP`~JJHMK @p`@ p#`@p$`@p%`@p#$%@`@AFP!(k(JkEA@`@AF@hH,H@`,p ` (p (@(`@ p`@ B<(p ` p ` 0 (`@p^@`@@F((_`@;F` (`,(@@C/J(1N p `@@AFP!((9EA@`@AF@hHH` (`@FP(`@@AF@@ `@p`@p   `@Fx@@ p (9`@F?? P"((@`@AF\(`@F !!<(:((?:HF@`@AA;F @!`@@AFP@@;!@ `@@AF(a (`@pf`@Fx`@F``@FPx@ EE!$$@`@@AF@@!@`@AFx!p (9`@@AFP((9EF:@`@A@F@@E@@`@p`@p  `@p`@p  `@p`@p`@p,`@ppHHyF&$`@pT`@@AF@@!@`@AFx!`@FoHIB6`@p`@p p `@pp`@p`@p p `@pPp ` (h`@p0(h`@FP(h69GG T)#@`@p`@p  Pp ` (`@F !6!G2z}G9@`@A@F@!@6!`@p`@p  `@p`@p  `@ppp`@pp`@pp`@ ph`@pPb@@C&J(::ԓ"@`@A@F@p(v`@@AF@@A<A(v(v:[D@@`@AA;F@@ `@ @`@`@ @@` `@ @`@`@ @@``@pf@`@AF\@`@AF` TT[=-+@`@AFPxh p @`@@AFx ` (v ` A@9(j`@p(vTJjj `@p` @9pv@@CJ(j|FD@`@AFx @`@AFx ` :q ("P(P'(;P(((N`@FEG ,H@K@(G ,HH@K!! (`@p p!=I;`@pG`@@AF@DD `@p  G6 9 p `@pp @`@AFo`@pPP (!`@;;YpH(V`@p`@p `@p p;EEew:$ (V`@p@`@A@F@ (V`@pH@`@AF` E^@@CJ(| _9_ {{ d<<`@ (`@h @Hp @ `@hHp @D@ `@hHp @D@ (`@h Hp @@ `@hHp D@@ {~~F@`@hHp D@@ @`@A@F@  @ `@p   `@p P `@ p `@@AF@AF@@ `@ p  `@ ~//`@ p ` @ @` ` @ @ ` /@@CJ(d_ r6A@ `@p XRH@`@A@FA@F@ @6  `@p 06A `@p@@ @`@A@;  (s@`@A@F@ p@E `@pG ++b`G t6A@ `@p +yA5`@p` @ p`@ p@ p `@p` @ p`@ p  p `@p`@pp`@p`@pp`00el@p`@pp`@p`@pp0@@CJ(a| ` @p`@p}HA;` @p`@p` @p`@p`@ pf6`@@p@`@@@D@AhH0HH`@D`@AH0H`@p`LL!,"@ @`  `@ pu6 p ` @ p`@ p pLMP@@@ `@ p6 p `@pp@@ `@ pv6`@pp p @@ `@ pv6`@pp`00$@pp `@ (`@pp 022 0`@pp (`@pp `@pp 2t@@C-J(\\.4,@`@A@FAFCPp ```ϰ@PE@hH*0H`@@HD`@*0H\û@@C<J(**Û@`@ ((m@`@A@F ("(m*g"K?@`@A@FAF`/P(2(8`p(m@`@A@FAFC"p !(mwxO`@@` x ,H @K(m` Am@@C$J(//(s`P(w(` @p(` @p/D @@CJ ppp(sE?@`@AFP!p`@FP!p `(`@;Fx ` (`@@A;AFx <y:;`@@`@ 00:x ,H@K(0`0 (0`@ P,((0`E9`(` nH(` nH(`(` ((Hn(` Hn`(%`@p`@p(0`@p`@p`@^^ 2+)p`@ p`@p`@p`@p`@ P2(M(z`@F ,HH@K(z^88]`@pn`@p`@Fxp8z@@CJ( f9e sswfE;@`@A@F@@p z6`@@x`@FF( ,HH@K("`@ ,HH@K("sDF>@`@A@F@P(``@@AF@@A<((` (!`@F<9(( ( `{`@p`@ p`@pnnr <4`@p`@p`@ ,H@K(!` ( |#<}{|`@#@`@ x ,H@K( |n  G>6`@p`@ P.( T( ]`@p~( e`@p`@p`@ p`@p`@p`@pp `@FIIJY )% @(!`@FP!( ( `@F@AhH KH` Io HD( `@F`@@`#`@@ ` # `@FP!( Ո( `@F@AhH KH`    (!`@@AF@@DD!` %# `@ @`@#`@ @@` # @@ BA<4(!(!(!B <4(!p D~~/!J@` (!=#<:;`@#@`@ x ,H@K(!M@`@A@F@@(!`@@AF@@u6@`@p`@p~66~!e`@p`@p`@p pP6ru!B<`@ p`hH `@p`@ p`@F<9(!(!(!`@@AF``@@AF``@@AF@@@("QQo^!)'`@ ,H@K("@`@AFP!(!(";`@@AF@hH H` (";Q=!<2`@p`@ P-("P.(" P/("P0("("$`@p("$`@p~("$`@p{("$`@p|("$`@p`@ ]])")/+p`@p`@p`@p@`@AFP!("E("`@@AF@hH H` ("]"XG;@`@A@F@A<\("k("("#<{|`@#@`@ x ,H@K("`@p`@ p`p`@p`@DD!""p("`@F <("("("`@ P.("P/("("D"E;`@p`@p("ኋ`@p`@p~("@`@A@FAF(P("(#z`@@AF@@`@`@p`;; #!K`@p``@p` 6;JB#'F@`@pp`@@AFP(#9(#z869@`@@@D@AhH)0DHE`@)0H@Ex G``@pn`@@AF #m x `@pp#z@@C;J( [9Y JJ#%#@`@AFP(#`@FP"(#(#`@F\p0(%cJ5#A?@`@A@FAF/($\`@FP($\@`@AFP"(#($`@@AF\($`@pf`@Fx`@F``#88``@@AFP@@@`@A@FP@@;@`@AFPx`@F`@Fx@@`a$K?($T`@pT`@p`@p@`@A@FP@@  A<4($Ap `@p  p`@pP(%c@`@A@F@UU- $i,*T6`@FP($x(%c`@FP($(%`@p@`@A@F@U$KA@`@A@FA@FP@`@@AF@AFP@A<4($p@p P`@p`@p`@p`@p`@p`BB7&$"@p `@F`@p `@FoB~~X_%I?(%\`@p`@p`@pp@`@A@FA@FP@@  A<4(%)p @ p`@p`@p @`@AFo~..v%K`@@AF@@ `@pP.П%c@@CJ(#BB%i'#@G P!(%p(%G @hHH@` @ (%@A <!(%p@B% @@CJ (%iii%@<@`@A@FAF(%`@@D@@  (%(%@G P(%(%G@ @ `@% G D@@ `% i% (%`% E  (%9%@@CJ(%,%`@p P Ә%@@CJ(%{{"%H@@`@A@F@  A<(&(&O(&O`@F  6  `@FP!p  `@p`@p `@p@@ {6&C `@pP &O@@CJ(%LL &U*"`&P`@F P (&``@FPB(&z(&`&PLԉ&@@CJ(&UBBf&$ @`@@@ G P!(&(&`@p @G @AhH KH`   B0~&`@p  '&@@CJ(&&F<`@"p 6  `@p @@  `@p `@pp `@p @`@DA `@"px @ p  `@  (&(' `@,,2&FPG('('`@FFP+(' ,!'F<`@p `@ p`@p `@p `@pp `@p A@ p  A `@@ p  @ `@ @@ @G `@@*x LLO'W&$@@ G `@(`@*@ ('`@(p `@p`@B? A<+('('LMM'}("`@(p + x @G P` @('G P`@p `@ pp `@p  RM'@@CJ(&iiJ':0`@pT`@ p6`@@p@`@p`@*p`@ px p`@@@i'KE`@*p` @  GP"@('((>G\((>@`@&J<9((((>((> ((>GP@@B @@((>GPB GPx`@??:{(0 hHp`@ ((`@"p6`@@p@?;(PC9`@p`@pp`@p@`@DA`@"px@p`@h@Hp@`@@@ `@pp `@ pJJ(%!@`@&@<((((`@&p6`@ p@@`@p`@ ppJ~~(;9((`@ h@Hp@`@ p`@pp`@  ((((`@FPG((߈((`@FFP+((`@p`@ p`~j(@pa(@@CJ('??0) `9l()`@p0`0`@FF(P ()()"`&?8)!OK(+`@FF $$`@F 11`@FF1`@F@x01@0`@((@AF``@@AF@@776)p ,G,&@@*@G, (`@FF /()7B)NJ@A*<\()()()*<A()Ɉ()`@6@x0`@FF( ,H0H@K()`@F ,,* (()ފ@`@A@F@,,@* @(//) `@@`@,`@ @@`1$,1@@B@/~~)F@@A<\@(*()D A,,(* 9"(*J@9"@J"<9(*(**J(*!9@ (*%9 `@p000(*8`@@AFP(*8(*Z@J"<9~<<,*<"(*?(*E(*E(*Z <9(*L@(*_(*_@ *,,(*_J@9&<*^LD(*c9&  `@.G.P!@(*t(*G.@hH3AKH`3<(*@(*(*@<(*p0@0(*`9U(*L6 $ `9d(* 9`YY57*8( P9`709`*P9`9RR09`( 9`09`P9`<6609`Ytt%*@.`@p0`@p,@0,(A<A(*(*`'(+`(`9l(+`@p0`0`@p0P 0`9l(+"`@p0`0t -^+"@@C=J`h 'I` h AHI() PP+27+86 Х+2wse bse ..=+8 (+8 OO+9%# `@@`@`@ @@` `@hHp`@@hH pOq+^ @@CJ (+9Y+h@A@@@Ap I+{@@ C@J`AhHHH(+hz+55@ @ !@ @(+(,Gx ` P(,P(+ҨP(+P(+P(+P(+ҨP(+P(+ҨP(+P!(+P"(+P#(,P$(,P%(+P+(+PG(+(,F+VL@G@AhH#KH`#@!(,G&`+_@&(,G&` ,@(&:((, @A!@!(,G@@&` ,(&`+~(!!A##,@(,G@@` ,(:(#p,(PD@@E@&` ,(&:(` P(,@P#(,rP$(,X(,|`@+~&`+~@@;&!@D!A(,`@+~&`+~@ &!@D!A(, @@J,x D=!(, h (,@:, @@C-J(+::,!@p  (,(,`, :@A<4(,(,(,<2(,p :, ` CJ@@ `p (,ggAz,86`@p`,(-X`@Fx `@F  (,(,E  `@#@` x ,H@K(-Xg,D:` P$(,(- `, (- `, (- (-X`@p`@p `@@AFx9`@p69@@  (-7(-H`@;;-9p6 9 `@Fo`@pP;-X@@CJ(,**w-^@G ( ,H H@K (-q@ (-rp *}-s ` CJ@@ `p (-^  9 }}Ts-HB@`@A@F@`@@AF@@p(-Ұp(-Ұ (-`@FP!(-(-9`@FJx9@`@@AF}/-E9@`@AA;F` `@@AFP(0E`-u(0E@ (. P(-(. `9Z(. 69 `@p`@p   P (0E`KKR. '-u(0EpP(. (.t`@FP+(.s`@p`@p   K.4KC@`@AFx<9(.F(.s(.s`@@AFP!(.P(.s@`@AF@hH/H@`/ @ (.l@A <!(.kp@(0Ep@DD.%!(.(/`@FP!(.(.`@;F   p0(.D\l.JD`@p`@p   `@FxJ@9@`@A@;@E@G`(/`9U(/oL6A `@@` Ex@ 33IJ.@G\x@ @GGZ@GA&x\@@G3/ JH@GxG@`G(Gx9`@ @``@ @ `!!GA@;AF`@ xG+A+@A;F`@ xTT+c/W+)G x`@p`@p   (/`@@AFP"(/y(/Ɗ@`@AF\(/T^/GE`@pf`@@AFx`@@AF``@@AFP@D?`@FPx@@@`@A@F@`@@AFx(/`@@@@Lf/$ FP(/(/^9GA@A;F`@pT@/GA`@pp`@pP(0E@`@AFP!(0(0=`@p`@p   `@Gx9;F  GA@;##Op04Fx@@ (0E`9Z(0E`-Y#Z0E @@C2J` hQI(- cC P0P# `0P 0P N N 0\F>`@p @A p A `@p @@  @`@AFx   `@F``@FP``@p `@p p `@0p  R0@@CJ(0\330`@p   `@ p  @ `@$hHp  3}30LJ@`@$AFP(0(1!`@$@AF@DDFP!(0(1!`@$FD@AF@hH H` (1!`@$FD@DD@DA@FA<A<<1(1!(1!`@$p `@$F (0Ŋ`@p `@$< (1Z(1,<I\1,?=`@ p `@F `@p `@$p  `@@AF`@ x  `@$hHp @@ `@hH$p  `@FPSS1k&&(1v`@FP(1v(1`@hHp @@ `@p `@F (1c`@  SAM1:8@`@$AFP"(1(1`@$@AF\(1`@ (1Ԋ`@$p `@< (1(1`@FP(1ʨP(1(1`0`@ h(1`I1 @ h(1 h 91@@CJ(0==|1p `@ P(1(2 @`@A@FDD G P!(1p =''|1(2 G @hH H` (2 (2 p '32 ` CJ`p (182C9@`@AFP"(2(2=`@@AF\(2=`2 (2=`@p `@@`   (2`@p 0 (2T@9 `@ p   (2a2W 9 `@@ p  @ U2a><@`@A@F@ `@ @AFx   `@h@H p @ `@ p P @`@AFP(2P(2P(2P(2P(2P"(2(2ڊ@`@ WWPv2/- (2(2@`@ AF\`@hH p  (2`@ @AF@@ l @ `@p   W''2 `@p `@ p p  (2h '2@@CJ(2,2LF`2`@p`@ @@` G@ @`@p `@p `@FD@@@@@G`!GA@A;Fb31@@E@ iiT37=7`@"pE `@"F (3t@`@"AF(3t9   P `@"F`@"FPi3t@@CJ(2NNi23z&$`@hH$p D@@ @`@$HDx  @ `@ (3`@p `@p p Nqq384@`@ (3(3((`@p `@F `@p `@ @`@    `@p `@ p   `@hHp  (3q 3@@CJ(3zTTR23* `1` P(3P(3P(3(4`@@` & $&(4`2(4`3u(4h sT&g4`34 @@C0J(3WW|\43'@`@@ P9`09` P9``@@AFx @9` `@p ` W4F @@CJ`hI(4 g8P4Q l4Q Node = , Type = r4Z<4 `9h9m(4sP9`$`4GG:n (5P(4P(4P(4P(4ŨP(4P (4ѨP(4P(4ݨP(4P(4騨P(4P(4aal4#!P!(4P#(5P$(5P'(5P((5 P*(5P<(5P=(5%P?(5+PB(51PC(57PD(5=PG(5CPM(5I(5O`(5Oa(4H0` (5O` (5O`8(5O` (5O`(5O`(5O`m(5O`6(5O`(5O`(5O`(5O`w(5O99>5`(5O`_(5O` (5O`n(5O`#{(5O9uu5A-`%d(5O`%(5O`%(5O`&(5O`#{(5O`+#(5O`0F(5O`4(5O`9h9m(5`P9`*`4Gu5`@@C0J`h@QI@(4Z7`` G " )_CH,1N|1'2"=A+/ X!"3--q9FBDBz./0- &%$. 3 !P5o$-Pp5o Original Transformed @<<X V68ZCOMMUTE 92833-16205,REV.5000,870621 870622.0050 /P1K/CMP/XFM.PAS< COMMUTE m ccx .DCO.DLD.DST .EXIT0 .LBP.LBPR .LDX.LPXR .MW00 .SDSP INT_CONST INT_TYPE PAS.1 PAS.2 PAS.BITMASK1PAS.CDS POWEROF2SWAPOPERANDScLJ@ x  @@ @AhHD@AhH H`& ,HH @(R` ,H H@(R ,H @(RP @  @hH@??[L @hH ` P$(V(q`&P!(Z(qp"(q'x0`0(l(q?DDkl&P (`& ,H H@(`P!((p( (((P D@ @@ : (  _ @ >>X iV69]LOOK_FOR_REMAP92833-16205,REV.5000,870621 870622.0050/P1K/CMP/XFM.PAS>`LOOK_FOR_REMAPCC 7.DLD.DST.EXIT0 .LBPR .LPXR .SDSP PAS.1 PAS.2 PAS.BITMASK1PAS.CDS PAS.MAX REMAPPERCIG@p  x @ (` Pp ` (B`  ,H H@ (B @@ @ (,(B` (B` (9@  .(:p   (&` (U  ,,DIxPp @` xN0 N,?_ @@  (R   _@5TM==X0 V6:dLABELNODE 92833-16205,REV.5000,870621 870622.0050 /P1K/CMP/XFM.PAS=QwLABELNODE mm .DCO.DLD.DST .EXIT0 .LBPR .LDX.LPXR .MW20 .SDSP LOOK_FOR_REMAPMINREGCOST PAS.1 PAS.2 PAS.BITMASK1PAS.CDS PAS.INLINEERROR PAS.MAX SETUPOPERANDS mǍCA@ ((v`  ` PG(3@J (()()`@@` x ,HH@(3`  ,HH@(6`p (R` ,H@(Cp (RVVC''` ,H@(Pp (R`p ` P(\P(]P(P(@(q(v ,HH@(yV@jSApp`P(}wxppp`P(v ,H@(pp`P(w  ,''yHH@( P (w '$ND@ xP((@@ x`(@x x@p`xppp`P(vp@p 44A3 @@ (((g@ ,HH@(Q (<(G(G4\\<:.pp`(LP(Uwx p @@ @("` P(vh \_v@@ $` h @@(T  S Y _N @)-??XV6;fGENERATE_CODE 92833-16205,REV.5000,870621 870622.0050 /P1K/CMP/XFM.PAS?C|GENERATE_CODE uu.DLD.DST.EXIT0.LDX.MW20 .SDSP DB_STATEMENT_LIS ERROR EVAL1 LABELNODE NEWPAGE PAS.1 PAS.2 PAS.CDS PAS.WRITESTRING PRINT_OFFSETS PRINT_TREEREDUCEWRITELINE uN0`z Q(y  `h($p0`pp`P`h(Gp0`pp`p p++N` @@ (X(e` @p   +11Je88 (N `7I(s`9(y pz1{ @@!`h( P 8& TREE = REDUCED TREE = @ث>>XyMV7fTRANSFORM_TREE92833-16205,REV.5000,870621 870622.0050/P1K/CMP/XFM.PAS> TRANSFORM_TREE**8.DLD.DST.EXIT0.SDSP PAS.1 PAS.2 PAS.CDS REDUCE*L `z(@ pz?\ @@ (@lg/PASCAL/CMP/CDS/SAMER.REL:::5:3:66 644 0 0 1400 5300501700 35215 /PASCAL/CMP/CDS/SAMER.REL:::5:3:66 ""$ 9BSAMER REL +++e FST >>X\VSAMER 92833-16208,REV.5000,870621 870622.0200 /P1K/CMP/CDS/SAMER.PAS>@ʜ\BBXFVMAP_REGULAR_SEGS92833-16208,REV.5000,870621 870622.0200/P1K/CMP/CDS/SAMER.PASBRMAP_REGULAR_SEGSb.EXIT0.SDSP PAS.1 PAS.2 PAS.CDS /@@(@dBBXVSAMURAI_ERROR 92833-16208,REV.5000,870621 870622.0200 /P1K/CMP/CDS/SAMER.PASBSAMURAI_ERROR b.EXIT0.SDSP PAS.1 PAS.2 PAS.CDS @@p (@Ba/PASCAL/CMP/CDS/DATE.REL:::5:3:64 644 0 0 1400 5300501705 34761 /PASCAL/CMP/CDS/DATE.REL:::5:3:64 !!$ ;@DATE REL +++- FST ::Xulē0DATE92833-16219,REV.5010,881021 881021.1616/P1K/CMP/DATE.PAS :@Vul@@X3&ē0EMITCOMPILERVERS92833-16219,REV.5010,881021 881021.1616/P1K/CMP/DATE.PAS @9EMITCOMPILERVERS&&d.EXIT0.LBT.LDX.MW20 .SDSP EMITCHARPAS.CDS &--b`p p`@@6@Hp 0 88 (-b @@`h(((  ^<<881021.1315> @jjOO 18 Rqst Param3 / Ext Status 19 Rqst Param4 / Ext Status 20 I!Dvr Comm!Dev Priority 21 #Dvr Params! #/PASCAL/CMP/CDS/SUM.REL:::5:45:128 644 0 0 26400 5300501720 35504 /PASCAL/CMP/CDS/SUM.REL:::5:45:128 ""$- =T-SUM REL +++-yPFST ;;XwV27PSSUM 92833-16226,REV.5000,870622 870622.1347 /P1K/CMP/SUM.PAS;@Y!w<<X/CV29SUMMARY 92833-16226,REV.5000,870622 870622.1347 /P1K/CMP/SUM.PAS< ' SUMMARY Jx.DAD.DCO.DDE.DDI.DLD.DSB.DST.EXIT0.LBPR .LBT.LDX.LPXR .MB00 .MPY.MW20 .SDSP EXEC NEWPAGE OPEN_ERROR_FILE PAS.1 PAS.2 PAS.BITMASK1 PAS.BOUNDDOUBLE PAS.CDS zz $!PAS.CLOSEFILE "PAS.ENDOFFILE PAS.GETMEMINFO2 PAS.MIN PAS.READBUFFER#PAS.REWRITE_FILE PAS.SETEXITPARMSPAS.TIMESTRING$PAS.TOPOFPAGE %PAS.WRITECHAR &PAS.WRITEDOUBLE 'PAS.WRITEINTEGER(PAS.WRITELINE z##$3)PAS.WRITESTRING POP_SDSCHEDULING_TERMIWRITELINE #~~H8```#`#((P``#(k(k`%'(:(I(I```%~77xH(e`!``%`$``'7eJ8P`P````)`')((P``+)(܋(`/+-(((`GGO]'0``+(`3``+`6``-GGM9P`P`````9((P``?`JJ!@ `` `BJA(*]](#6(($P``E `M(Y`P```Q``!`T]bY P``Pb @@W`h!( 4EPm ZZ4mBB Error detected (line first /last Warning issued (line first /last Source line read. Word of program generated ( code/ data)ZIIm/% `@ @`@@@@@@@A"` $@ `P`&`%''I~~S3``p`D`2((`p`E`9))``` `H**``m(````U``~001` `[````a0MU7````f``` `l````r```w++`''``++`O @ p`''` @@`h,( 5P% `` Dynamic Memory Allocation Pages of VMA. Pages of workspace requested. Pages of workspace used. Initial TOS Current TOS High TOS Initial TOH Current TOH High TOH Compilation started: CompZ ilation completed: ** $` (0`(8`--`*r?; @@`h-p ($ 6%PH HOnOff WKQ5``..```//`<1`&//`v``0//`<3`://`<4))`D//p`~``N//)K5`<M`X//`<Q`b//`<5`l//`<6`v//`<7`//`<229`//```//2>K5`<;`//`<=`//`<>`//p```//`<@`//`33ld<C`//p```(~ p3~~u~L4`//p```//p```//`<F`//`<H`//p`~00u`` //p```//0L6`<I`!//`<K`+//`<L`5//`<Y`?//`10``I//`22r2<T`S//`<U`]//2}}tMJ8`<V`g//`M2m``q//p```{/J/ ((J@ @ 3x  5p  x }88A!` 1 ``//`<X`//83I7`<[`//`P(P(P((`66(` (`(```//`<22 \`//`**``//2~~N`G3`<]`//`**``//p```//`<``//`P(gP(pP(y~88qQdP((`(`77(`(8yyL4`(```` //`<b`//p```//p`E`y))F@@(`h8`h AH9` h :(K)PP P3``Compiler Options: ANSI Asmb AutoPage BASIC_String Buffers CDS Code Code_Constants Code_Info C`` Code_Offsets Debug EMA EMA_Var Fast_Real_Out Fixed_String Heap Heap_Dispose HeapParms IdSizePP :: Image Include_Depth KeepAsmb Line_Info Lines HPP!``LineSize List List_Code Mix Partial_Eval Pascal Private_Types Range Recursive Results =`` Run_String Search Segmented Skip_Text Standard_Level ANSIHP1000Unknown Stats Subtitle Tables Title OOz99 Trace Trace_Back Unit Program SubprogramSegment ModuleUnknown O22"" LibraryWarn Width Work 2IVA=( D #( D #p A@ ( h6@ HJP ( ( ` p ( h6@ H@( Ch6J@ H@( Ch6@ H@ 9ApB@ ? ` p ( (pG I ` `p(KB RN8 ( ```a))````m( s( np))nn` K ( p ` P( ( `A@ ( ` ( h 33( K ((@;WJ!( @xYW@,HYH@p 3 M?` p ( ( h  ;W!( xYW@,HY@p ` ( P`&-` 1 ``m( ( Pn&-n 1  n( #  @@`h)( Rz  P# a--x  Errors in this compilation: Errors in this compilation:-5G ;I1#`"( E( I#`" ( ; `J( a````cJA#( l( l` `\I( }``Ϡ`( pp `@6hAH6@ F6@```\( `@p0`p``m( ( %n`n#n JA#( ( Pn@@ "JA)( ( n#`n)n$J)A( ( @= H6Pnn(n2.n)n ''nn`RJ#A=( :( :`p ( <`$p RR5 ==( E( E`p ( G`p ` ( M`&p ( XJA=( V( V`p ( X` p ` ( ^R) [..`(p ( i!=( g( g`p ( iJ`"p # ( ` p ` O 0QOp ` N0F Np `  p ` K0MKp ` p ׉ (? & @@*`@hA7( ;FF22s ). B j(@K2 "P F error, warning, ,  B @/PASCAL/CMP/CDS/PASCOMP_C.LOD:::3:6:34 644 0 0 3000 5300501733 37053 /PASCAL/CMP/CDS/PASCOMP_C.LOD:::3:6:34 &&$ ="PASCOMP_C LOD +++9FST * /PASCAL/CMP/CDS/PASCOMP_C.LOD 92833-17045 REV.5000 870624.1626 * <870624.1626> pr,90 vmspst,13000* ws,100vs,350* "* Use either CDSON.REL or CDSOF.REL below to default code generation"* to $CDS ON$ or $CDS OFF$, respectively.* * LI,PASCAL_CDS.LIB  RE,/PASCAL/CMP/CDSOF.REL RE,/PASCAL/CMP/CDS/MAN.REL RE,/PASCAL/CMP/CDS/SAMER.REL RE,/PASCAL/CMP/CDS/CAT.REL RE,/PASCAL/CMP/CDS/SCN.REL RE,/PASCAL/CMP/CDS/SG00P.RELRE,/PASCAL/CMP/CDS/SG01P.REL RE,/PASCAL/CMP/CDS/OPT.REL RE,/PASCAL/CMP/CDS/INT.REL RE,/PASCAL/CMP/CDS/SUM.REL RE,/PASCAL/CMP/CDS/MNU.REL RE,/PASCAL/CMP/CDS/NFS.REL RE,/PASCAL/CMP/CDS/DCL.REL RE,/PASCAL/CMP/CDS/UNT.REL RE,/PASCAL/CMP/CDS/PRG.REL RE,/PASCAL/CMP/CDS/DATE.REL RE,/PASCAL/CMP/CDS/STM.REL RE,/PASCAL/CMP/CDS/EXP.REL RE,/PASCAL/CMP/CDS/STP.REL RE,/PASCAL/CMP/CDS/STF.REL RE,/PASCAL/CMP/CDS/SSL.REL RE,/PASCAL/CMP/CDS/XFM.REL RE,/PASCAL/CMP/CDS/FLD.REL RE,/PASCAL/CMP/CDS/UTL.REL RE,/PASCAL/CMP/CDS/ERW.REL RE,/PASCAL/CMP/CDS/EV1.REL RE,/PASCAL/CMP/CDS/EV2.REL RE,/PASCAL/CMP/CDS/EV3.REL RE,/PASCAL/CMP/CDS/EV4.REL RE,/PASCAL/CMP/CDS/EV5.REL RE,/PASCAL/CMP/CDS/MEX.REL RE,/PASCAL/CMP/CDS/TLM.REL RE,/PASCAL/CMP/CDS/MIM.REL RE,/PASCAL/CMP/CDS/DBG.REL RE,/PASCAL/CMP/CDS/DLB.REL RE,/PASCAL/CMP/CDS/ELB.REL RE,/PASCAL/CMP/CDS/SLB.REL RE,/PASCAL/CMP/CDS/ULB.REL RE,/PASCAL/CMP/DCT.REL RE,/PASCAL/CMP/ALB.REL * END /PASCAL/CMP/CDS/PASCAL_C.LOD:::4:1:21 644 0 0 400 5300501740 36154 /PASCAL/CMP/CDS/PASCAL_C.LOD:::4:1:21 %%$ =PASCAL_C LOD +++DFST * PASCAL_C.LOD 92833-17048 REV.5000 841008PR,89 SPST,10000LI,PASCAL_CDS.LIB RE,/PASCAL/CMP/CDS/PASCAL.REL EN/PASCAL/CMP/STD/CAT.REL:::5:4:122 644 0 0 2000 5300501414 34017 /PASCAL/CMP/STD/CAT.REL:::5:4:122 !!$ zCAT REL + + +  FST ;;XʸV)+PSCAT 92833-16062,REV.5000,870622 870622.1339 /P1K/CMP/CAT.PAS;@ʸ??X_V)+PAS.ERRORCATCHER92833-16062,REV.5000,870622 870622.1339/P1K/CMP/CAT.PAS?9LPAS.ERRORCATCHERDD  .ENTR ERRPASSER MAP_REGULAR_SEGSPAS.1 PAS.2 PAS.NONCDSPAS.SEGMENTLOAD PAS.SETEXITPARMSPAS.STOPDzz!==`AP\(`AP[(( `! ( p!(=`AP[((`@P^((`~( p~(=`w (6pwAA"%X`]A@>(/`]p>6A@?J>pBA;B=z L=L ""MA GGpAHp@Ip?Kp>(SG00P " 4[ @(4Z`(`(`< `B;@G ..`ZP( +"څp`@G 4Z`(hB .<<`aT(Sp^$/PASCAL/CMP/STD/DBG.REL:::5:21:128 644 0 0 12400 5300501420 34063 /PASCAL/CMP/STD/DBG.REL:::5:21:128 ""$ DBG REL +++ MFST ;;XxV8PSDBG 92833-16065,REV.5000,870621 870622.0055 /P1K/CMP/DBG.PAS;@x??XhV8DB_STATEMENT_LIS92833-16065,REV.5000,870621 870622.0055/P1K/CMP/DBG.PAS?ueDB_STATEMENT_LISp}} .DCO.DDE.DIN.DLD.DSB.DST.ENTR .LBPR .LBT.LPXR .MPY.SBT BOL EMITCHAREMNUM EMSTR EOI FLUSH_CODE_BUFFE PAS.1 PAS.2 PAS.BITMASK1PAS.BLANKFILL PAS.BOUNDINTEGER}**PAS.ENTRY2PAS.EXIT2 PAS.NONCDSPAS.RECVALPARMPAS.SINGLEMOD *7vp`ppp   (  AA huij( k@   ( CC`((s`(%pt('ptA.l|m 7n AAmAA h kD @怈pvpu`u@p`vA@(p`u@A@{pww`u@Pv(T(k`t(i`{@@00Wb^`{@@`{@pww(l`uApu(>r 0 sx cy8x(LOADREC 0,0,161200B,0,@@`(`刈P((`pp倀`@A@(`p(xpp`@h>`@p`A@(0ꀈ(@p뀈H0HKKk!!h6 `p` M(و`@@h(`@@ `戈@@h<`@ppK  @}Ap(++UA (A(x=x + u `  hnA( # `(`@p! v'`!" k##`p!(~~&DD"(/x+.l(|`@@@6 hH6 H`(]`@p~A@p~O0O~`@p~~H0}H~p(|`@p~A@p~,,0'j~G0G~`@戈p~~0}~`pp, | ClAp}(&//9]AHxh A =((("(o`p(/  ϐ((8( h AA;AA p(p w` A`p(WHHAA =((Apဈ`:(xl(2S@  (P((`(l((p(h ?;?xAA(2`(l(UU .11( p(h ?;?xAA(2`9(/h ?;?xA.A(22=`<pU @8E FAABBAA=CA;Dp:(9pUQQA A([(AArP(f(t@AAvA(xz@AA|xEAr ,HH@(@tAA ((u A@A(([AA(UŨ k    x e ''f8e(, \~  '>@ *==XV8SYMREC_TYPES92833-16065,REV.5000,870621 870622.0055/P1K/CMP/DBG.PAS=mSYMREC_TYPESEMIT_SYMBOLS_FORPAS.1 PAS.2 PAS.NONCDS ;A  8( @$q==XV8SYMREC_COUNT92833-16065,REV.5000,870621 870622.0055/P1K/CMP/DBG.PAS=bSYMREC_COUNTEMIT_SYMBOLS_FORPAS.1 PAS.2 PAS.NONCDS ;A  8( @"]>>XyV8SYMREC_TREE 92833-16065,REV.5000,870621 870622.0055 /P1K/CMP/DBG.PAS>/SYMREC_TREE EMIT_SYMBOLS_FORPAS.1 PAS.2 PAS.NONCDS ;A  8( @Z7>>XވV8SYMREC_ROUT 92833-16065,REV.5000,870621 870622.0055 /P1K/CMP/DBG.PAS>=SYMREC_ROUT EMIT_SYMBOLS_FORPAS.1 PAS.2 PAS.NONCDS ;A  8( @0uO5TLOGLUNAMR OPENF<SP.214 P.019 P.033 P.030 !gP.044 P.192P.357 P.039P.040P.232 P.125POST RWNDF;;`dGZpp`P@Bpp  0(((  ;::`^e$/PASCAL/CMP/STD/DCL.REL:::5:137:128 644 0 0 104400 5300501422 35503 /PASCAL/CMP/STD/DCL.REL:::5:137:128 ##$ DCL REL +++DGFST ;;Xē#0PSDCL 92833-16066,REV.5010,881021 881021.1632 /P1K/CMP/DCL.PAS;@==X*ē#9DECLARATIONS92833-16066,REV.5010,881021 881021.1632/P1K/CMP/DCL.PAS=R)1DECLARATIONS||>,.DAD-.DCO..DDE/.DDI0.DIN.DIV.DLD1.DMP2.DNG3.DSB.DST4.ENTR 5.LBP6.LBPR 7.LPX8.LPXR 9.MBT.MPY:.MVW(CHCKB &CHCKI %CHCKS )CHECK 'CHKBS $COMPTYPES #CST_EXPR_FEATURE|{{w!ENLAB "ENTERID ERROR EXPORT_CHECKFEATURE_LEVEL GETBOUNDS INSYMBOLINT_CONST INT_TYPEMAKE_SETMAKE_STRING MAKE_TEXT NEWLABELNUM_ELEMENTSORDER PAC PARSE_EXPR+PAS.1 *PAS.2 {{{h#;PAS.BITMASK1<PAS.DOUBLEMOD =PAS.ENTRY2>PAS.EXIT2 ?PAS.INLINEERROR @PAS.MARK2SPAS.MAX APAS.NEW2S PAS.NONCDSBPAS.RECVALPARMCPAS.RECVARPARMDPAS.RELEASE2S EPAS.SETDIFFER FPAS.SETINIT GPAS.SETUNION{}}vHPAS.SINGLEMOD IPAS.WRITECHAR JPAS.WRITEDOUBLE KPAS.WRITEENUM LPAS.WRITEINTEGERMPAS.WRITESTRING PREP_VARIABLE REAL_TYPE REVERSE_ID_LIST SEARCHID SET_IDENT_DEFAUL SET_TYPE_INFO SKIP SRCHS STRID }tTRANSFORM_TREEWRITELINE HHJ+  (( @+pA()4p`+2P)(( )5A`+2P)p(#)6((+4A(1-+4-)7(0p(7)9(`+J)@,+A@7):ApHJJA (N(d`(d8)<P+5(^6(cpA c)>(H` )(`+P)(m(xop!w+5)7)?(Azp!+5)7)?F)D)AA)B)CG)+)AӀ`^^}#66 @`+2x ,H@;@pF)D)A)B)CG)+)A%);٨`+2P)p)'`)'(A`)'(`+2P)Ap&)E^ i f8( {{eJJA$20p.`.(*A0p42@4(( A2(0A( 2( 0( p.(*0p42P4p.`.(*0AA5#2-5((('p.`.p/{ vY,`/9 F: AA477AA28A0`)p/(aa+G>>A BR%`+2P)(V( Ap(a)F(Af pA(k)FA(|p"p)|)G~B%a- (=>?@A=(GA> "hhWEEA A((A)H)J8):A8)KxAA(AA)M)O8):8)K`:A)=AA6x8)Px 8)Rxh   AA4AAA("--,A@6? (6A?xA(8)Px-  !8 ( GG#//AA(?)H)T6?S6SxU AAU8S)PxU AAU8S)RxU AAU8S):8S)KxU UG kRV ѕW8V(# cYTTA@6=AA8)UkA8)W7)MP)(v(8)W@AA6=p{`+2 ,HH@;(66=`{(A ( EQQA(8#)R 1A(8)W9A p()Y(A8)W7)MP)((A"AA-(((A"-(pA))ZAA-)?(()? @2HH~,~~-|( ( (`{(`+2P)pA))[(%|0A-~((p)%)\`+2P)()(,+(5`+2P)p)5)[(`{(Z~-|(@(@(Y AJ+GG<F))A p"A`)p#|AD3~0W)? Y(fAA~-|(_pA)f)]`+2P)p&o)BGo (w=>?@)A=p(YA>p~|&TTA (( AAAA ((A8)^/)(AAA8)`(A A((AAAA8)^)A8)`x A  Ag (Ag(iAA8l)^0)A8)`x AA AAi  n AA4  A( %TTA A((gAA8)We8)U@AcAA-e(3(8(8 (fAAcA A(B(R8)b A(R8)WA(< (X(fA8)b-(b(f(f A(obhQQ e c`+dA(My+`)c)c)d pAK+`))d);)eAM+`););)de ApK+`))dA);)eM+`)N)N)dc pAK+`))d);)eA   e G ..AA4AAA(>>> New level, Fixed , Tag , Variant .WRRApK6ZxP PL ((I6X-L(#(N ((6N-L( A((6ZxPNP8N)P@ANA8L)`L(HAN A()(B6N@AQA@6XA-Q(8(B(B w>9A;)f6XxP P LpK( I`K[ "\ AA4WWAANYAL`)pK(iPPA@6?A[u g (`+d(M+` )g)g)dA(e (Ac ((`+d(M+`)[)[)dAAcAp`( ((6?8@)bhhCCA[  p`(A8)b8@)UAAaA(8@)WA())h(`+d(M+`)6A)6)dA )i kh  11 8(ik>>> Field Active>>> Field Not Active>>> Field Error 1zz'SSA (W6? (4(C6?{8)Px}{}(OA8)Px}A }AAaA6?x}}(zA8)P{8(()Px}{}8)Px}}8@)P (zaz z~ 8~(' 3|XXAc ((8)j@hA:)=AAA-A((8)l@h:A)=-(A((8)b8)U@AA ݄(8)W@A &(   A4`hA:)=(WTTTA@6?AAgAAkk ((VAAkYA8Y)`W8Y)^/)((8Y)^)8Y)`x] ] p]A(3])nA(QAA[6[@A-k(B(Ap](H])n(Q8K @[)PAAWAk( wV^ y_8^( $aTTA A aA gA@6=AAm8m)Wo8m)j@AqoqAg (e A(c (V(J`+2 ,H}@;(HA k`+2ps(s)D(6=7RR)Um m~k psA(s)o(A`+2P)ps&s)eBA%k ((7k)pA~8k)Mm9mA ps(s)Y(-A8k)M7)MP)(LLL(-8k)M@AmAm"AAmA-m( ( ('#"A-(&Aps)-As)ZkA-e(4(7(77"`+2P)(;(>A=(G`+2P)psA)Gs)[(^J`+2P)psA&Ss)BS (yt[=>?@&&uA=Tt(aA>Ttt&k "_&YYA8 )R-)?( ( 6 (A6x  ( A@6A  AA 8 )K@h :A)=  8@ )RAD, .  (( 8 )K@h A:)=A  A8 )R, .AA  @-IRR ( (   8@ )PAA  ( 8 )Px  ( AA - ( ( ( 8 )Rx  3 0A A (  - ( =A( ( =8 A)Px  AA ( 46Ax  A( <8 )P 7PPx  A(  A- ( D( _( _8 )KA@h :)=8 )K` :)=A8 )Rx AA 3 D0( AA - A( e( y A- ( l( lA( m( x8 A)Rx  AD3 0A(  A- ( ( ( 8 )KA@h :)=SS  778 )K` :)=A8 )Rx AA 3 D0( A8 )K@h :)=A8 )K` A:)=8@ )RAA 8 A)Rx  A A (S X  l AA4 A ( d RRA@6=A7)U(  )rA( 6=@A7)W@A GA  G V Xp ;`+2P)p <` <( B  Z \ ^A `% ( ( #A )t p"p#` ;A( J8)K@h b:A)= 1 I 2SS G 6"AD3 G0 G8)Rx L GL G?p ;( AA O c)M)u ?8 ?):A8 ?A)K` e:)=8 ?)Rx L L8 ?)Px L L6 ?x LA L`+2P)( z( Ap ; ~(  ?6=Y= MM@A AA8 A)W ?9 ? p LA( L)YA( 8 A)W7)MP)( A8 A)UA(  " ?- ?( A( (  "-( p L) L)v` ;( `+2P)A( (  ͊( `+2P)]H TTp L) L)[`+2 ,HH f@;Ap <( 6?@ ( &A cA)M)wAA C)KAA, C EA6 Cx L L8 C)Px L L8 C)Rx L L8 C):A6 EA8 E)p6?x LAALy & `+2P)p L& / L)B  / ( R M 7=>?@)) NA= 0 M( A> 0 M M " = I"&)CCA g**AA l )M)x 8 ):A6 x  8 )Px  8 )Rxh \p A  C ] (  =>?@M A= ( gA>   LLA@6=AA,)W7)px ]p \A A `p [A `+2 ,H l@;( p [A  ^A   (  -+( A( (  p b( b)y(  -+( A( (  LLA ^( 8#)RA 1AA ^ ^ ( (  )? h \A , ^x \`+2P)( (  ( À` \( 1` ]A@ \p b) 0 bA)\( ;) 5 [)y 9)?)p ;A8 `)Rxh \p b $l C b`+2P)p bA& O b)B d O ( h c W=>?@u d A= P c( A> P c c&I, mLL`0+zp6?x* AA*6=x* *6>8>)p A`+2( p+}p+F*)L)I)d)7)D)S)e);)L *]p+}p+ ( ( 8)z')(  (  LL`+2P)( ( A +)|AA+6=x*+*6=7)U6@x*AA*A ( 6= ( ( S`( p`+A)@,+7)M`+)@JA,+7)Mx* U KK* ( (  8)M@A+A6=x*+*G "%)A-`_h`:)e`+2P)p*& 0*)X6=7)MP)( FP)( @P)( CP)( I( L B( Rt E( R M H( R c K( R @ O)~ y< PEE R%(6J=x*+A*ha``A:)e a`0+zpJ+ p*( o*)(8+)<p*( }*)(8+)P)J( ( 8+)H7)z')舄P)( ( 8+6 LL)H7)b/)J( 8+)H7)+6?x*AA+*J8+)R+6A=x*+AJ*8+)R5@A+A6@x*+*(J8+)AP)( # ڤ+ +J8+)II} ))P)p*A( *)J(8+)R+6=x*AA+*J8+)H@hb:)=A6>`b:)=`0+zpIƺ (Y4=44C A= BCA=5C>7C?9AC@;BAAh`:)eA( m> BB-%+;24+-cLL p+v`+2pF)d)A)7Gv)+)A%{)D蠀`+2(pAA)) A)d++8)K`:A)=`+2P)((`+3P)pF)d)A)CG+O)A'SS)g(Ap@F)dA)A)CG)+)AB8)Mx8)x8)`x 8)z*A0)8A)bx pO*0O8)bMM/)(0A )D8)x8)`+A8)^x)pA)0A8))8))ۈA(O8A)`:)=8)M@AAA(O),7)p7)OMM`(``+)@JA,+7)Mx8)b/)(`+J)@,+A@7)RAA8A)`xA`+A)@,+7)RxAAA"`+2P)p&)EF&LL,..)d)A)7AG)+)A` @`+2x ,H@;@pF&)d)A)7AG)+A)A%);({ p+vL ) %%G8(cڀҀ݀Ԁ6%>>c &&A6 A((26AA888):`3x: A)h AA,4:A88)x:AH13)g):> *32> ? AA4;;AA6 )?$((.Ap)) / J8(  W.OO`+pm`+A)@,+7) (@@+̨Ap+(0AEl))6ly>PyA)p)76l@AyA Zy)7A@6lAAs8s)W8s)`A8s)j8s)A`+8s)x{ A{}LL opnpl`+2p{A({)DA(A)^) q)d`nA@)p{({)(`npn`l@+((A`+plqAAu++8u)K`:A)=6l@As8MTTA8u)Mx{AAs{A8u)`x{AAo{A8u)bA)8u)),u7)p`nAq"qqoFZ|)D)AA)B)IGW|)A `@`+2x{ ,H{@;p@FZ|)D)A)B)IGLL"W|)A%');`+2P)A(+(6-`+2p{)6{)D`+2(A@6lAAw8wA)x{oAA{8w)j`l6lshn u{up{>`s)?{`mp+`+2P)Ap{&k Ei{)S 2k f8(.q)()(`RRA6*6xJA+A`+2P)p&)XF~)D)AA)X)CG)A  " p()6(AAA-)pA((A-)(Ap()(A6AAxA`+2P)p))B 3 s! A4`h$A:)e(}6%FFA6m*6nx\A \`+2 ,Hx@;p\AGCW+OA)A]%H\)d]`+2 ,HxH@;(IpRp+`+2P)(Z(\`+2 (p+} @p+F\)d)I)dA m']k== \yp+} Ap+U (yx(h{6A`|69) `+pQp+`+2P)(`+2P)㈊((`)p+A`+2P)((pR(pRp+2h|6`{69)`Qp+`R(POO(pR`Rp+(2`+2(0F\)=)I)7)d)e \y8U)z')(-6Anx\UAA\8U)M-+(((AAbA6lx\b\(A8U)Mb6Alx\bAA\6l@@-1NGG+(( ( A)DlWmA6nx\ \(*A@6lA7)H,A)p\6mxddL*0\Ld6l-+('(*(*A*)D,(/pR(2pR`R(77`+2 ,H}@;$$e4>p\%H\);W(P6Jlx\+A\$ 6Po ##8JpA4k`kh~A:)e(%+PU++XW#gg,{EEA&/-)?(((AA&/,)AA&-A-((A ) (AA&-3&/D0)/-(( ) A(1g ( &F&G&H''QUA=BA(AA)>)٨&/&-'OUUA6*`+2P)pA&)XA AA ))6>)p)7A@6AA !A)S6@AA8)WxAAA8)Hx怈O*0&*AO6@A@F.)=)A)B)X)@GHPPM)AoSY)7>^A8)MH*`A(si(r Jn)+A(z Jv)+AA6@A7)Ux67)jxAA`+2P)p)'`)'(NPPA`)'(`+2P)Ap&)B`+2P)p&)&Iݘ 68)MP)ވA((8)UAA8)WA(AA6,)pA8)Hx}SSL*0AL8)W68)Wx8)Px 68)H/) )ۈp#-)?(-(--8)U@A7`v;RR(W)/-(P(P K)A τ(V1(`) AhA AA-׈A(~(iAA/πh AA<z)1x(h 1x`P)(( AWW44p`+d(M+`)e)e)dAJ+`)7M+`)e)e)dAL+`)7>A6x (Wx( 3&F&G&H66##A=BAh:)eCAC(A>ـπ wsa bsa 6?OOA6*A)A)j)6@AA 3)DA@6AA8J)Wx+AA8)`+ (L(Z8+)Ax6@A7)U`(b67)U`+667)U3nNN A>y)7{`+2Ap()D( p+p+}@F)dA)I)7   p+} Ap+ ((A8)M-+(A((AA6@A7)WxA(A )bPPt11) )7+A+8A)K`:)=68)Mx8)`x++P = ԘA4`hA:)e()()(~~nPPA`+2P)p&)&I#К6,)(1A -)+7)d-)(<p)C)AH)j)`+~P)ۀ(V@+~ @AA,A@6AA)AA,~SS6b44>g6 q);68)Px8)Wx8)UA`+~8)``)60)S(&F&G&H//*A=BAh:)eCAC(A>/ҼLLA A(( ((A@6{A@7)D06{7A)xA`&* )ۈp*,-)?( A( (6H`p`)A@( `+d(TM'+`.)XG%PPA)X)dJ,+`)7I1+`)F)dAL6+`)7M=+`4)))dA6 xJE+`)7AIJ+`)F)d6xALR+`)7T8)^)8)Mx6 8)bx8GuLL)x8)^xN*0&*N8)^.)(8)xK*0K6x8)xF*0F)6 xAA3A-(Ap()(A@6 EE_ ((AA,A6 x`((6 -)(p()(6HxA6`Ev(& """"${$|&F&G&H;;K&((A=B B CA CA (>>>> Object , Field ;.F8NN@FJ)=)A)7))CAGF")A` @`+2x ,H@;@pFJ)=)A)7A))CGd")AA%i) `+2(t`+2P)(t(`+2(O `+2pA()D(RRAA)) )=+A+8A)K`:)=8)Mx 8)`x"A`+2P)技(`+2P)@pFd)S)A)B)g)C)G")A%);`+2P)PPp)'`)'(A`)'({A (6xAA(8)`x`+2P)Ap& @)eF|)D)A))CG")A&I6,)((`"̂,)()4(MMAp6xL*0L (9(O8)xG8@)`A(3`+2P)(S(UF)=)A)7))CGc")A`@`+2x ,HH@;pF22u)=)A)7A))CG")AA%)A(m6@ p6`22(#""""${$|&F&G&H''%;A=(8A>Ĩ)()("̀&1&+'{{QQ@FE)dA)I)7 AEV8A)M??CXZ8?)MH*`pE(E)(.?(A  )+?C ((8C)MxE?E8")WxECE8")jxE?E{Z.(R F;""""${$|&F&G&H"">qHA=/GBFAC(>/GGA&1&+"\MMAAa))>f"A)p)7 jA")L"AAo8o)Wxs AAs8o)Uxs AAs8oJ)jxs+AAs6߄xs"s`+2(:h6A`69) `+pl`+2P)((h6`69)`lNMMp+G)?(9AA)) Am)=mAAq++8q)K`:A)=8q)^)A8q)MxsJA+sA8q)bxsA sA8q)xsA sA8q)^xssN*0&*ANs8q)^.)8QQ(8q))8q)*"mA@6 (6AxsmAs`+2P)ps&s)e`+2(&G#m%(9A ))DFt)D)AA))G6"t)AyA 9y(MA =)DFt)D)AA))GJ"%%rGt)Ay My>R"&1&+`+2P)psA&[s)%'[(~h""""${$|&F&G&H##{CA=\~(\A>\~~"++m)()(#aUUA "YAA&1"KAA&1"I`&+p">`&+p"=A8")j"h"h""`+2 ,H"@;A(""KA&1`">p&+A "U@p";F '"j)S)A)B)g))G""j)A"o"A""o"["C8@")jAA"h$"h?QQ"O("C-"G(("C-"E(p(("t)"t)A"))> "Q)p)7  "Q)"Q"^8"^)Wx"t t8"^)Ux"t"Ut8"^)j`":A)=)AA,"^"`A6"`x"t"tN*0";N"t`+2P)( 6( q 6WWA@ 8F <"j)=)A)BA)g)G F""j)A"o K"""o N"[AA"C8")j"`$ ["`"O( i"C-"G( c( i"C-"E( hp"t) o"t)8"^)jA@h":)= z"uA-"C( }Ap"t( "t)( A8"^)l`"A:)= XX( 8"^)jA@h":)=8"^)l`":)=A8"^)j`"A:)=( A8"^)l`"A:)=8"^)j@h"A:)=A "u"AA8"^)l@h":)=A "u"?"Y"O"O ( (!"O"b8"b)j@h"A:)=A "u"^AA"?-"^= PPA( ( 8"b)l@h":A)= "u"^"A-"^( p"t)!"t)8@"b)WA"O( "Y (!AA"Q"Y(!8"W)Wx"t"Qt"Q"W"Q"Up";`+2P)p)'`)'(!.!.`)'(¨`+2P)-a!5MMp"t&!:"t)e`+2P)Ap"t&!C@"t)IF t"j)D)A)I)CG!P""j)A"o"!W"o""""`"̂,) )p"t)!`"t)6,)(!k`"̂,)(!lp"tA6x"x"xL*0"tL"x6 (!A6x"t"M !OOAAt&1A-"I(!(!AA&1"I`&+p"=(!&1-"I(!(!(!`"=@&+(!(!A`&+p"="U (!(!ځ>!"U&1&+"U"d8"d)U@A"OA8"d)Ux"tAA"StA8"d)bx"tAA"MtAA),"dAA"f6"fx"t"tOT!MM*0""+"~"~"G"E+P"O"["Q"["u"M"S"̀"<"o1AA"""A6*6x"A ԁ"`+2P)("("~"""""~"("6x" AA1" ("""${$|&F&G&H11"A=""BA"h#:)eC""AC""CA""C"A"(">"""&1&+"1#IIA#`+p$N`+p+`+̀@*p$d(#$d)(#{`+ p+`+A)@,+$X6$Xx$d AAd8$X):x$d A d@+)@JA,+7)@A$eA8$X)x$dAA$edA8$X)`)݀ť#KZZA8$X)x$dA dA8$X)Px$dA dA8$X)Rx$dA dA8$X)Mx$dA dA8$X)x$dA dA8$X)jx$dA dA &1Ap&+A#{)z)6{$X #$X)e6{$Z8$Z)x$d dF $g)d)A)CE`#VV#$S$g)A$lF $g)d)A)G#$l$g)A$q"#$q$$|$AA),$ZAA$\6$\x$d$dO*0$LO$d6{$X>#$XA&1&+6{@A$^A8$^)Wx$dAA$QdA`+)@7+$X8$^)Ux$d$Xd8$^)jvv#FFx$d$Od`$Np+`+2P)p$dA&$ $d)C`+d($A6{$`),$`$bM$!+`$)XA)X)d8$`A)x$dJ$*+`d)7M$1+`$)A))d6$b/)p$dAK$?+`)$d)d));A$Av$A($5$z$H&F&G&H99)$~%%A=$B$}BA$zh$:)eC${$vAC$|$x(#A>$B$}$}$Q$O$L$S>>> Fields Rfixed 9e$NNA$`+2P)p%+&$%+)o$%&%>4%@8%$)MH*`p%+($%+)($$%$A($ $)+%$%$-+($($($A $)+%$($JA+%$A$%$%B%D%3A% 0%"A%"DD$** ($% -%($($)%"%%$%"%,6A3x%+%,AA+63@A7)Px%+%+64*D T%%5 Ca%6A4%2`%2h%FA:)e($%$%% %%& #%GGGA6G*p&*6JFx&8+AA86Hx&8 8`+2 ,HH&a@;p&8G%n&3+T)A&9%%s&8)N&9`+2 ,H&a@;(&"`+2P)A(%(%%`+2 ,H&b@;,%BBp&*)%&*)N`+2 ,HH&c@;(%o%&3FGH(%`+2P)舁(%(%%&3FG(%`+2 ,H&b@;(%`+2P)(%P)(%P)(%P)(%(%ځ%&3FG(%%&3FG(%݁$}%g+%HH&3FG(%݁%5%&3FG(%h)D?6F-+(%(%6F7)Hx&8&8O*0&*O&8(% A%&36F@J-+A(&(%6G,)p&8A@6FA7)Hx&>&>L*0&8L&>`+2 ,HH&d@;#& p&8%&"&8);&3&&"(&]#&E&&33 &JA=&#&IBA&Eh&e:)eC&F&?AC&G&AC&H&C(%G>&#&I&I+U+n+P&4&33WP&fNN`+2p'AF X'B)d)A)7G&w)+'B)A'G%&|'A)D'G`+2('5A&'UA)b) &A';)7';AA'=&++'W8'=)K`'Y:A)=8'=)Mx'A AAA&`+2P)(&(&`+3P)p'AF d'B)d)A)CG&+T\&XX'B)A'G'&'A)g'GA(&&@F i'B)dA)A)CG&)+'B)A'G&I&'G'ZA'\'^8';A)Mx'A'9AAA8';A)x'A'7AAA&';"&';AA'9'?A@6'? (&6A'?x'A';AA`+2P)p'A(''A)E('4'F x'B)d)ADDo' )))7G')+'B)A'G`'`@`+2x'A ,H'AH@;p'LF x'B)d)A)7G'/)+'B)A'M%'4'L);'M(&|D XJ'5'R u'S8'R(&f';)()('9'6'7'GAAr'a**A( A('g('(AA'8'A)Mx'(AA8'A)x'(AA'(('A'(8')`(('aA X'' p' 8'('a+['LLA (`+2p(('()D('A'())A '()DAA((A'++(8()K`(:)=A8()Mx(JA+A8()`x(AA(A8()bA)8()^x(`+;('`+P)p((ĂKE'PP*0(ŀK(A"'((('F ()D)A)B)gAG')+(A)A(G((+m)A(ƀ `(@`+2x( ,H(@;p(@F ()=)A)B)g)CAG()+(A)A(G($(+m)A(A%()();(`+2P)p)'`)'(0QQ((3(3`)'A('(AA((=(`+2P)@p(F ()d)A)CAG(N+T(A)A('(S()e(((W(WF ()d)A)CG(c)+()A(G(i(+m)A(&I(o(((('(q`+2P)Ap(((z()E((A@(~F (]]g(77)d)A)7G()+()A(`(@`+2x( ,HH(@;p(F ()d)A)7G()+()A(%(();(`+2('`+2 ,HH(@;('] [P((  (8(('()()((((((+n&(`+((A()D( [(( ۙ((( ss~(55Ah)`):)e `+2P)((()`+ )p)0A)))0)mA))`+2P)() () () `+2P)()()('R)`+2P)()()(()p+`+2 ,H)H@;()s \)&)1 )2__8)1((Bi'6 /0   30>21 ccS)HH5H[Qfk,?R%+pqql!Vnmo 0 'sr [ )++;)FALSE TRUE 6c>>|),,  !'+ <??>@ڠ`/PASCAL/CMP/STD/FDUBL.REL:::5:1:59 644 0 0 400 5300501425 33741 /PASCAL/CMP/STD/FDUBL.REL:::5:1:59 ""$ H;FDUBL REL +++bFST ;;X\,VPAS.DOUBLEFORCE 92833-16069 REV.5000 841008 /P1K/CMP/STD/FDUBL.MAC;D.DAD.DDI.DDIR .DMOD .DMP.DSB@$/PASCAL/CMP/STD/ERW.REL:::5:32:128 644 0 0 20000 5300501427 34404 /PASCAL/CMP/STD/ERW.REL:::5:32:128 ""$ L ERW REL +++ ;FST ;;X4VPSERW 92833-16071,REV.5000,870621 870621.2318 /P1K/CMP/ERW.PAS;@t4==XLVEVAL_READ 92833-16071,REV.5000,870621 870621.2318 /P1K/CMP/ERW.PAS=QEVAL_READ Z~~n+.DCO,.DIN.DLD.DST-.LBPR ..LPX/.LPXR 0.MVW(APPEND_STRING 'CALLRUNTIME &CHECKABLE_SCALAR%CHECKBOUNDS $CONVERT_SUBRANGE#COPY_TREE "DO_ASSIGN EMDEF EMDI1 !EM((ITEMLAB ENUM_TYPE EOI ~~~yERROR EVADEVAD2IND2 EVADDRESSES EVAD_APPROPRIATEEVAD_STRING_PARMFULL_SIZE INITIALIZE_STRININTEGER_TREE_VALINT_CONST INT_TYPEIS_CHAR IS_STRING LOAD NUM_ELEMENTS NWTPN PAC *PAS.1 ~^^ T)PAS.2 1PAS.ENTRY22PAS.EXIT2 PAS.NONCDS3PAS.RECVALPARM PROTECT_TEMP RELEASE_NODEREMAPPERSETUPOPERANDS STRING_INDEX_CHETEXTFILEUNPROTECT_TEMP^XXAz/@AA}-@AA}pxA}pw`x(8A&-x #1-xAAA/.P(C(Y#GK'AN AA -@AXTT(`x(AAA@-AA-@AA o* uy({"p*? `*?pu ((;#/@AApv A`pt=qMMA/AP(/P(A(`x(A(py A`v(#(ApyA`v(`w0x(/@AAA(A`xA(PII`w0x(A($A+( ((pt`wA('A('(#`pt`w( '(#'#( '(4`w(0'/(3'3(`v(B`w(>'=Ʉ(A'Aʀ(|BHHAE(Tpt`wA(P'OA(S'SA(J+*([(f(f`w(bA'a(eA'e(AJ+*(m(x(x`wA(t'sA(w'wA({(pt`w(A'(A'(E5NNA(`v('('A `x( * `v(`x(*`w0x( A( //h (A($A!9TTA/xA/ /@A.@hA0D,`y(`v(/@AAA(("`*U(+`y(+&"(+A(tA%+ aaR,@@A. 1 4A@-A(/@A.PA(F(OI'LA (a`xA(a"VA[ A^ a`u(iAi la@l(6p]]&CCA1m3A(2m   {] @<<XJVEVAL_WRITE92833-16071,REV.5000,870621 870621.2318/P1K/CMP/ERW.PAS<qEVAL_WRITE;w-.DAD..DCO.DLD.DST/.LBPR 0.LPX1.LPXR 2.MVW*CALLRUNTIME )COMPTYPES (CONVERT_SUBRANGE'COPY_TREE &DO_ASSIGN $EMDEF #EMDI1 %EMIT"EMLAB !ENUM_TYPE EOI ERROR EVADEVAD2 EVAD2IND2 _EVAD3ADDRESSESEVADDRESSES EVAD_APPROPRIATEEVAD_STRING_PARMEVALFULL_SIZE INLINER INTEGER_TREE_VALINT_CONST INT_TYPEIS_CHAR IS_STRING NUM_ELEMENTSNWTPN PAC ,PAS.1 +PAS.2 3PAS.BITMASK1}}1`4PAS.BOUNDINTEGER5PAS.ENTRY26PAS.EXIT2 7PAS.INLINEERROR PAS.NONCDS8PAS.RECVALPARM9PAS.SETINIT PROTECT_TEMP REAL_TYPE RELEASE_NODE REMAPPERSETUPOPERANDS SPLIT_STRING_OR_STRING_INDEX_CHETEXTFILE} 7UNPROTECT_TEMP ((3`W(  `( A `rt``W(`(M(#l A5(A63' A$``W(0$d#,0(=84l9A518('A6188ii A@@ACF^(fAK^.(P([([`VA(W*VA(Z*Z(e`V(b*a(e*e(ui^(u`V(r*q(u*uA8w$tAA$r ~t ri(nA5(AA6LLA1ppA@/rAA1.(`W(1t.(1r.(A(AJ^.,(((`V(`(*(*YY55(`(A*(A*(`V(`A(*A(*(`(*(*A8$tAA$r$A  t Ar YJ(#rA5(A6''XXA1t^A1^A (F<t1tx^HL1^/h ^`V(gA*f(jA*j8l$t$$r$ wA z A}t  r ( uA5('A6TTAAtA AtAAt'At'1rP((1r@AA(1rA@h)2A(t*,A t(`W(A `(tAt`V(A*(33A*8$t$r`V(JA#,l A   tA  r3D (# A5(A6lr`.PPA1t^(A81^x1rP߈A(D(q1rNA(q1r@h2A[(q`ApAA-r0x-r0`s`V(zA*y(}A*}8GGlM~00%1^xAD" $t1^@A0A@h2AA#h AA#AA$r t rG(   A5(.A6^lVVAxYvtrrb1@bAA\/b@ApA\pWA\pVAb/bxz AAz'Ab/bxzpzp,? j`,?pU1t@A0ĈP(('A'jAp`A*$`$7MWWp/pp(Q`W(Qph/hn/npA=,dA CdAGhA(MMAjZ&QAhdp (W(A^pYvtr'bj1@pA@0AA^p^pX`V0W@( vLLx^(}|(!^(()^,((A^((A ^((`X(A((`X(tt'tt``XA(t*NTT(*AA$`$t`X(#,lA ` pA@/pAp(QxYvAtr1t0@4pz!(0@9{ŀ`@`zx ,H@3A(0j1t@A0]]77P(P܈("P(&(*A*!(-A*%(-A*)(-Dh7$j(B`W(B&7dn<dA ?h Bn`U(JJjA Mj]M(=QggKKA5N8Ax(6Ned  j`Zl{g !@Lk/PASCAL/CMP/STD/EV1.REL:::5:86:128 644 0 0 53000 5300501430 35066 /PASCAL/CMP/STD/EV1.REL:::5:86:128 ""$V lVEV1 REL +++V*FST ;;X+V2PSEV1 92833-16072,REV.5000,870621 870621.2322 /P1K/CMP/EV1.PAS;@k+;;XHV8EVAL1 92833-16072,REV.5000,870621 870621.2322 /P1K/CMP/EV1.PAS; EVAL1 ~~H.DADI.DCOJ.DDIK.DIN.DLDL.DMPM.DSB.DSTN.ENTR O.LBPP.LBPR Q.LPXR.LPXR .MPYS.MVWADD DADOPT EADVAL CAOC BAPPEND_STRING A_REG_OPS ACALLRUNTIME @CHECK ?CVTNODE CVTREGNODE~K3<EMDEF ;EMDI1 =EMDLT :EMIND >EMIT9EMMBT 8EMMVW 7EMNUM 6EMOPR 5EMREG 4EMRUN 3EMSKE 2EMSKL 1EOI EVAD*EVAD2IND2 EVAD3ADDRESSES EVADDRESSES /EVAD_STRING_EXPR0EVAL_STRING_ELEMEVAL_SWITCH }} FREEREG .FULL_SIZE %GETBOUNDS GETFREEREG-INITIALIZE_STRIN)INLINER (INT_CONST ,IS_SIGNED +IS_STRING LADDR LOADLOADADLOADBYTEAD$LOW_ORDER &NEWBYTECOPY 'NEWCOPY !NEWNODE "NEW_INLINE_LIT_N})NUM_ELEMENTS NWTPN GPAS.1 FPAS.2 TPAS.BITMASK1UPAS.DOUBLEMOD VPAS.ENTRY2WPAS.EXIT2 XPAS.INLINEERROR #PAS.MIN YPAS.NEW2S PAS.NONCDSZPAS.RECVALPARM[PAS.RECVARPARM\PAS.SETUNIONPOWEROF2PROTECT_TEMPTT Q_RELATIVE_FIXUPRELEASEREGRELEASE_NODEREMAPPERREPLACENODE SAVEREG SETUPOPERANDS STORE SWAPOPERANDSTWOTO UNPROTECT_TEMPTX.HHA A(( q{ywppp\GXGR`@`qx ,HH@T(>*yp.wp`ـ(>6w9w<yp`(RP(H(eWIHHH`q ,H@TA(ZTprYrA(dRd(`q ,HH@T(sr{(RyxARwx`(@((wy(΀`(tt^n>>@((y((w(`׀@(`ր@(AwRwP ((RwAx y(`@(y`(ǁw(΁wyte(##pAVZA(WG_GY### `@ p` (`@p`p # u`  ))yAN  p  p (??)PP.&--`X p_`Y p``Z pa`[ pb`\ @b@a@`@_@WpVhV c)Qc]P aSA]k ,,p#lANeep\fp[gpZhpYipXjpW A](&,<<((A@PwAA ( AGA ywAAA<<yAA<wywA<( ""ԉAVZpZA(W"FF))AR}IG(ӈ((}(}yRyAxAwwyA}F(H AV(AWJKKAR@AA+(%`PpA0$(R.pAR.p`P(:P(9A((RH`(C(FF`(LLAPARggSCC(W(^Z^pdgAjAAmrAuRQ ,HH@T(A2A2H1(@hXg(&&AVZZAp(W&%%AR @ODOO@AQPp% {a`ߨ AN`p߀(rr FFAR P((,R@ DOO@A AR P((,R PA((,AAH QAx-AAH QH-x-H Q`-R@ AA., .r ,0 180(  3TTAR  P  P  P   HQx RAx Rx p R}@AARH`(wA,vp AR .p R@ AA.йMMI((p ʈ` 0 ( @GAp R P(((  0AR P((R@ DOO@A AR  (A!G R ii>>H Q` (p ƈ(`p ` ĈP((` A(R .AI((( A(R . AI(p iI(#zAV(3AW``'11AR P(.(U` A(UR P(8(UR P(?(U` P(C(HAF (U` P(V` (U`A@ ĄpZ` X`Z[ \AN[`pZ('xx#aLLARQ ,HH@T(R@AA.|I(((A>` @p71(I(((A>` @p71x( AVZA(aW~~iNNAR%Q ,H:H@T(R%@A'A.'##I(( ( AR%A(A(3A>` A@p)7)HA1(#AI(((>` @p)7)1~~(6 *,AV+Z*A%(W++W(;XXApR @hSA(H` (h Ah A LAAAAH Q AAH(h  H Q Jh  h  UALAA8RRAAH Q AAHAAH AQA AAHAAR P((R p ((`(pAAH AQ``(R@ AAHAR xA AAAAH Q(  S AV `p(;`pAW `  }}ƩLLAAH AQxAR  ,HH@T(00 ܀` (_R xG? B`@ @p ` A(O>AD7 1>U Ap=D1^}(R x}66v d Gk n`(v>71` A@p >AD7 1}6 (? AV(AWGkݚIIAR Pp AAH AQH Hx  px`x@pyAR .( A R Jx~GAA~Y` (` (R  ,H@TLQQ( P ܂@hSAP|`SAA  p{`x{@pyAAH AQ@A{pz`xA{Pz(AA>=yH1`z(AA>=zHA1(\" P ܂@hSAP|`S` (;[[52>>A6 AA>=xD1> AB ܀` (J>7 1AA>=yD1>6 1` (\>7A 1P|A@hSP `AS m p|[p(t9 AVq(AWq|G_VSSAA<>AR>P((R>@hVAS(A@:` (H QH:CH QAxECAE(H Q H:xEAAH AQ`E` (: p (2mmgAA` (`p (p A ( <<A (2R P ((%R< ,HW@TA(%R x $X<(-A) 1A (p A A A3D1 T(7H AV(ZAW ;;%%A3` %A( 4Ԅ( 41A3:AD51> &6 1AP ˂@h LASPA ` LS; ( H 9 !##u <AV  ;Z 9p &Z :p %(AW  ; ; '#TT M33AR P( T( oR ( n ] A( d c ( n" h   n A ( s sA R R x GT (  $ AV ( MAW  yy<" FFARyQPp A ` ͈P( ( R .( A   R P(  (  ( AR .( p ` ( ց   ؁ y` (   AV ( AW  g PPA >AD713D1 p A A  Y AP A@h SP ` AS` ͈P( &P( QP( ( A " %(  ; *` ( 3R}؈`( H3H1` A( ?3i 6 1AP ˂@h ASPA ` S>1AD>:6A 1  3AD6 1A  ( h@XIL ( !  AV ( AW   ɀ  OO --A ( R .( p (` ((   ځ ` A( * A (   ` P( A  A    Ox ( . ) $ *AV ! )( AW ! ) )++ 2` Pp Lk ?  L   M< M< < < < + ] K O  P8 O( 2 J RLL[ T( ] X( ] ) \( ` ( c b(  ) eA h  k  n Ԁ` ( w A tG ҄( | zGAA  G  ` ( A ߄( A A O < AA<    A ` ffJ CCA( ? A R x  AAR 0AD ҄(   R A A ! G   H  P R x  f ( w AV ( RAW  LL **[ (  (  ( ` (  (  )  ` ( A ( A A O  } + !}Ly !( . ) % *AV " )( AW " ) );  2MM 5 [ 7( @  ;( @ ?( ` ( F E( ` ( cR  ,H @T( \ Y A \  _ * b ܄( i f A i A l  o  r A u` A( |A {A( A  p A O <  (  i AV ( 2AW  G_II. %% ` P( P( P( (  (  ) (  ( AhX   Έ` P( A  (( IS ( ' )) AV Z  Z p Z  ( AW  )z? SSAR} l.A  lIA( ( IA( 0( I( X( ( ]A } Ay>AD6w1A $y 'w ,}A /( ` 3} 6w 9yR@}JIG( C( G( GA F( JA JAA<w Oy R Qw W}( ` \}( `@hXÇ `( s n d! oAV a n( AW a n nkk wFFAR} .A IA( ( I( ( ( A y w AA <y<w;G }( A w y AA <y<w;G }( hXk (  ˸ AV ( wAW Ǩ l OOAR}.A IA( ( IA(^( I(( (p }ARyP( ( A } }q{ywRwP((GAAHwAQxAp`(GyA3@1R VV@yAA,((23D13D1>71A:yA=wB}Ep`(]OywARyAUwZ}](Aa}dwgyAR}IG(qA(u(uAt(x++IuAAx<w}yAw}Ɉ(}(h@X+B(  AV( AW.SSAR}IG(A((P{@AwAw A((wA7( AG7A{(wA('{{A7AA<7AA<{}7(.}{R{Ax6R}9.YY559I((I(A((#$A6p62A62H61(&AR}IG(A((AA("A"(&hDX){A.}6Yʼ.(@ ;2ՙ<AV/;(AW/;;$fDGTJR9J(i VN""(YAVKXZVTZWR(DAWKXX"mEEApypARy.p{wpRw.p`(y(`(w(ʀ`(`(Xyw(`(`(Xwy(`(yXyw]]Z33(RyxRwH`(Xwy(ʁXyw`P(P((Ay(y(AhXRyx w]͘( ڪAV(mAWVV733AAy6AR6P(( R@6A6`PA(( A6wA<w<A6(% #'6wAA86AIy(.(+A.6Vγ.(=829AV/8(AW/885AA G&Ayw9I(VQMRAVJQ(AAWJQQ33Z""AA]<<R@AAR;RA A;3 |(""JAV}ZZ(ZAW}"kk2HHARyP((R@yA(yR@wAA`(R@AA AAkѹ( AV(AW??(B(BB}(iE(i K}@@R;I (iP}(i nS(i V(iY(i;\(i_(ib(ie(ii}@i(m,AVjZA}(WjtGU(uuVVAV(AWN 6(  !#*")2LM3,1KJIHGF7Z0$;u <u66H%%!"#$%+;ABGL;t d #@6@a!/PASCAL/CMP/STD/EV2.REL:::5:82:128 644 0 0 51000 5300501432 34624 /PASCAL/CMP/STD/EV2.REL:::5:82:128 ""$R REV2 REL +++R(FST ((;;X0V0PSEV2 92833-16073,REV.5000,870621 870621.2328 /P1K/CMP/EV2.PAS;@p0>>X(V0TOUCH_FILES 92833-16073,REV.5000,870621 870621.2328 /P1K/CMP/EV2.PAS>TOUCH_FILES ||$.DAD.DCO.DDE.DDI.DIN.DIS.DLD.DNG.DSBR .DST .ENTR !.LPX".LPXR ADOPT CALLRUNTIME CHECK COPY_TREE EMDEF EMDI1 EMITEMSYL EOI EVAD FULL_SIZE GETBOUNDS |WW  NEWNODE OFFSET_TREE PAS.1 PAS.2 #PAS.ENTRY2$PAS.EXIT2 PAS.NONCDS%PAS.RECVALPARMRELEASE_NODEREMAPPERSTRING_LITERAL_LTEXTFILEWSSAAFHA"HP(P(P((,DFAA44(( AF(!pLA(LA +4`A(814(A;F(W"H D8"HD SZZD>(jA"HM AaM8AA8D>"HA 6A"A(" @66A4AhA MAMH h MM86>4(,"H4XX@AMA Mjl"H@AMA M8<O@AAO(D(D((MO>"H@AQUQDAAD8AAD>(M(ڄ(,"H@ABAB A((+BAAJ"J>>i''!,A(#"JM"J@ADAOU#AMO"JB((,>,(f%S0''H+VA#-U%SF%TD(A$-UU<@'nUUArA"P(y("PA(("   AЄ(" @AA  "@A(`A(" A"QpU k PPM88AA AAAAAp̀(n S  n΀ˀP@_~<<X\V2WALK_FILES92833-16073,REV.5000,870621 870621.2328/P1K/CMP/EV2.PAS<sWALK_FILESKKK *g .DCO.DLD.DST .ENTR .LPX .LPXR COPY_TREE NEWNODE PAS.1 PAS.2 PAS.NONCDSTOUCH_FILES VAR_TO_ADDR KQQA s (( @ A((  x`@(A   ,(A   P(@A(\ uuHQQQ@A @J (\(( @A@ AA AxAA  ńxA   @A( u  ..+#A pp( .  @{M ;;XV8EVAL2 92833-16073,REV.5000,870621 870621.2328 /P1K/CMP/EV2.PAS; @EVAL2 }}?.CFER @.DADA.DCO.DLDB.DMPC.DSB.DSTD.LBPR E.LPXF.LPXR .MPYG.MVW<ADD :ADJUST_ONE_WORD_;ADVAL 9A_REG_OPS 8CALLRUNTIME 6CHCKB 7CHECK 5CVTREGNODE3EMDEC 1EMDEF 0EMDI1 2EMDLT }4EMIT.EMOPL /EMOPR -EMPRL ,EMSKE +EMSKL *EOI )ERROR (EVAD'EVADDRESSES &EVAD_STRING_EXPR%EVAL_SWITCH $FREEREG #FULL_SIZE "GETBOUNDS !GETFREEREG INLINER INT_CONST IS_CHAR IS_STRING JUMP 9JUMP_PLUS LADDR LOADLOADADLOADBYTEADNEWBYTECOPY NEWCOPY NEWLABELNEW_TEMP_SETNUM_ELEMENTSNWTPN OPP_RELATIONALPAC PAC_LITERAL >PAS.1 =PAS.2 HPAS.BITMASK1IPAS.BOUNDINTEGERJPAS.ENTRY2}}9KPAS.EXIT2 LPAS.INLINEERROR MPAS.NEW2S PAS.NONCDSNPAS.RECVALPARMOPAS.RECVARPARMPPAS.SETINIT QPAS.SETUNION PUTLABEL REAL_TYPE RELEASEREG RELEASE_NODE REMAPPERREPLACENODE SAVEREG SETUPOPERANDS } 8UNPROTECT_TEMP HHA A(( pppQ>X>R `@`x ,HH@H(> *p .p`ـ(>69<p`(FP[(H(eqHHH` ,H@HA(Z!TpYA(dFd(` ,HH@H(sr(FxAFx`(@((܁(΀`(ttݤ>>@(((`׀@(`ր@(AFP((FAxވ(`@(`(ǁ(΁te(##:AJNA(K>_>Y#at`@p(  [ \;;S ""AJ N p`jp(`pXAK `X   ;- `C(9`D(9`DP>(9 9D9(TE? [ \!!HAJ:GNEpDNFpC(-AK:GG!yOX`r(d++(hA+]h(}sn [ \Gu AJitNspr(XAKitt11AD[xGt.D*D\xGt@*10( [ \ AJNp(AK11,AD\x܁Gہt.D*D[xGt@*1( [ \ AJNp(AKިhHH`E(8D[(AD[P>pDD\pC`D@CpB`B((8`BpFAF`DA(&D[AxF Ft`C(!.D*D[`CA(8D\AxF 0Ft3^3D*D\ĩ8(Q G> [ \qI AJ9HNGpE(AK9HHKUGGp`PZ(iP[(pP\(tP](P^(pP_(iP`({Pa({(A+p(,(+Ap(+A+A+A+`PaD((*4-(A,(@hLa`(.@*L( [ \" AJNp(UAK&&AD(pAD`ADxA&( [ \Z AJO(Kި;AA`7@(`7@Ap969(,`p9p6A`7@]Ap:`k8@T@:@6PZ(P[(P\(P](!P^(%(&?()() ()$()()HhL8689 +( Ȋ,(P=2 [ \SSA88AJ-@N=p8N>p7O?;(K-@@US<y@~[ɵ~( [ \ AJNp(yAK Ap@\@( [ \K AJNp(AKDDN p@`戈Pu(Pv(ψPw(Px(ӈPy(Pz(ӈ((倄(hLD1(  [ \$$&AJNpNp(AK$EAAAFxP_(P`(Pa(,Pb(3Pc(HPd(OPe(:Pf(APg((Ph($Pi(V(`Hw(c4!2*H#w(c'w(c+w(c/"2w(c6#9w(c=UUU=00@w(cDGw(cKNw(cRUw(cFxxz_zw(cAhL5hxFx`_U͂m( {s [ \""^.~AJn}N{xN|Apw(Kn}}"0y??ApFP_(P`(Pa(Pb(Pc(ˆPd(Pe(ʈPf(Pg(Ph(Pi(҈((A((("(#((((22$(Fxp(hHL`([ 2l(  [ \i@AJNA(K@??ApjFkP_($P`((Pa(1Pb(5Pc(9Pd(=Pe(APf(EPg(0Ph(,Pi(I(T'(W+(W/(W(W4#(W8"(W<(W@(WD$(W22FH(WFkxmQmpj(WhHL`j(]]\ `k2H`(z nf [ \mopAJaoNnAk(KaooXXˮ~22AF @P((F @%(P'#AhxF @ ,HH@H(F > ,H@HpX( [ \##qAJ`\p(~`pXAK`X>_#gLL`>Y(pI ] @S\(`I( @F @P`((AA4!2D*9(A @ >5 DF D`_(o @`I( I ]  >[\ D >(9AF >((! ]<<c&& >[\}! >(( ]& @[\}* @9/(A @ >54 DF D`_A < @ ? ><Գ?(OJE [ \ QK AJ@J(AK@JJI+ULL`>Y(p ]_ @[a(`(j @F @P`(q(vAA4!2D*9{A @ >5 DF D`_( @`(  ] >[\ D >(AF >(( ]<<h`&& >[\} > ] @[\} @9A @ >5 DF D`_A  @  ><( [ \$ AJ(UAKҨDp/p.AF`^ ] n( [ \ AJNA(K/. 4 ??AF Dx0`0P\(Ps(Pu(.Pv(Py(ۈPz(.P{(P|(P}(P~(P(P(P(P((!F@ @)JA>(8(](]F >(?(BB >AE @I@ @4JLL!/ >*`0Pu(R(U``p (W`_p 5\ D(sA` DdA @,+/ >*`0Pu(n(q`gp (s`hp F DA`  { @ ~ >($ ] BA[\A D B  B($ ] B\[ D BF @@ Dx2 2p2AF D`2  B($ B`0P}(P~(P(ˆP(P(ňP((`ap (`bp (`ep (Έ`fp (`cp (`dp (hLA D BA  BF%NN D` ($F >(( ] >[\} > @4,*A,*Ap1<< >`0PyA((4-HA*(4.D*,D* D @F DA`c  @  >($($J ($hLS$(8 3* [ \.4 AJ%3( AK%331>KKA#A A/(F(I(I3H( L DO @ R A( JA>([(`(`_A B( JA>(g((F BPp(n(AA@ BAA -D -AF -/EA/x /? )/F -/@` )F(FF B)x />/ BF DP}(P~(P(P((`ap (`bp (`cp (`dp (A)1 A BF D` ( @P 0" !234` ?@x /F D ,H /@HQqFF( A @AF DP}(P~( P(P(( +.D*,D*F DP}((`hp (`gp ( `cp ( `dp ( DhLF D` ( (  >A8 1 >F6   D`iA  @   >W ( ; 6 % [ \ 7 AJ 6(>AK 6 6 0B @SSA C @p `A G >p _` `0 _( RA# O A5( Rp g7 Y g7F @)@A hA c h( F @)@A eAJ eA>( s( ( F@ >)JA>( ( |AF >) e& @ eA s @AF >) e DDAJ eA>( ( ( F@ @)JA>( ( AF @) e& > eA u >A8 81 @1 >0>F DPu( Pv( Pw( Px( Py( Pz( ( `ap ^( `bp ^( ∈`ep ^( `f~~ LLp ^( `cp ^( `dp ^( DhL5 DAF D` ^ @A  > c>D( NA ( !  @ >#A  hA  hA `>M( 49/A *8 A:( 8 A( A '~RRخ #11 @ >A *  h 0 h `>MA( >49AD/ *8 =;( A8 A$`>M( I1 4A<*F D`i A Q @ T >R( T( o j Z [ \ k AJ U j( @AK U j j c a wMMAF >Ppp ` ( ( mAF @)E=  A>( (  A>( ( ( A  AA? ( " A F >) " A  AA ( ( AA A ( ( ( `>U [ NN( p ` ( ( mF > ,H @Hp ` ( M AACD >A@h GBD ` AGBF@ >)AA #  A/( ( ( p A  >A8 D`>M( p ( 3 C RRA x 3 ( 3`]p   >8 E`>M( &p ( 3AA33AA3 AC x 3 `>M( LA :F AA 1 AA C AA  HA  A1 ` ( `D @h GBAD >` GAB _A ( c( c >.DDG d((AH.* m[ p D@P 'Ah x F D ,HH @H( F D`_DY ( +  [ \&&R\ AJ ( wAK    >_  &ڿ PPAF @) F D ,H o@H( AF >) F IP]A( ( D >@AE)@A dA#  dA/( ( Ap <F I ,HH p@H( ` <( 3` <( 0D > d:SSo& #77 & @ dD > d: 0 > d 6 2( ZAF IP]( :( XD > d D @ dD > d N > dD >E)  j ZS" Z( k f ` [ \y  g AJ [ f( AK [ f f>Y> qJJA x D = B @ >F DP]( P^( ( AF D`\ ] D[\  DD\A( D\Ax F  F( 4`>Y( F DP[( ( A$ ( A$ F D`\ ] D[\} D( 4kg LL@P G KQ >d G  M` r@x FF D ,H F@H(  f ۄ( 4F DP_( ( AF @)EIP]( (  A ( 4F D) S# SAA/( ( (   D(  PP# -- DF DP( ( AF D%(   DP F'h sx UF D ,H U@H( 4AF D`_P1 4( n% Z 8%% ^AJ 5 ]N Z DO [ VAO \ X( qAK 5 ] ] M F%,,d tp p AFP]( (  ]  (  ]  ,; (  { AJ ( tAK  >  MM --AFPq( ( F%(  F% (   AFx 5 A  MX (  r AJ ( AK  882 ""AFPq( ( $A 8 L1( 8A< 5 8% (AJ ( AK `qLLAFPp($((('(6FA(/(6$26pFPq(?(Bp(kFPo(I(kAFEAPt(kFEPq(^(kF@AAikkiBBp`(u$qAuAFPq(|(FPqA(($8AA11܄(FPq((A8M1A(8M1 A 5kȪ(AJ(AKoVVA+((pA+A)D'`A(AA/(((' A(F@hGABN '(A$;' 8PA'A WW (' A('")'(A'' *Ap .'p`0A(@F)#=AA5(@Ap7G7`(_FA@hGUAABNA ]AA'cA'(f$iA8l xUlAA0/1AA01'AA0zA' }  (6 AJ(AK}} DDAF)+F@)AA))(A(+JA>(((`]p&(AJ+A>(((`\Ap&(#+A%(ш((p&(p&)A>(݈((`]p%()A}eAA>(((ꈄ`\p%(#A)A%(((p%(p%`&PZ(P[(^P\(P]((`%PZ( P[(P\(&P](D(Z(]AFAPr(A!A%t$PPA(]FPr(7A0A$386Q(>;8A>R5C(]AG>'M$PA8SS1'Y'(]hHAL(b`%PZ(lP[(uP\(}P]((A o5ttPP(xA|(8RA5A(>'8A31'A'(hL(`%PZ(P[(P]((8TA5A(A895((A$>SSAA'8#1'1'(hHAL((`%PZ(ለP[(P\(( $A8U15($A8215($A8V15 (hL()AWF@)x-R)- ҄(3 .!$/AJ.(AK..|7HHA> F@) (O([AF)#AY؄`I,9 (P\(ňPl(Pm(ˆPn(Po(Pp(Pq(Ps(P(vP((F%PZ(P[(P\~~lHH(((A/(A((Fx(A((hHAL(AA/(((!pA(A%(((A( (΁(( ~#(.(A%n(YAJNA(7K>( qqO!SSAJ(AKN((  +30 4 /.985 UT& |PO, ('*2!"%:1qUUOZ>> !"$(+,-./0123456789;G"Xu]0KfU@+J*$ @@Ti^`ThUy\() ]TP*/U  B*/$*/666xR/PASCAL/CMP/STD/EV3.REL:::5:56:128 644 0 0 34000 5300501433 34211 /PASCAL/CMP/STD/EV3.REL:::5:56:128 ""$8 8EV3 REL +++8zZFST ;;XV$ PSEV3 92833-16074,REV.5000,870621 870621.2334 /P1K/CMP/EV3.PAS;@G;;XV$EVAL3 92833-16074,REV.5000,870621 870621.2334 /P1K/CMP/EV3.PAS; w;EVAL3 =.DAD>.DCO?.DDE@.DINA.DIS.DLDB.DNGC.DSBD.DSBR .DSTE.LBPF.LBPR G.LPXH.LPXR I.MVW:ADD 9ADJUST_ONE_WORD_8BREAK_CHECK 7CALLRUNTIME 6CHECK 5CHECKBOUNDS 4CVTREGNODE3DOVER 2ELEMENTS~~&0EMCSE /EMDEC -EMDEF ,EMDI1 +EMDI2 .EMDLT *EMIND 1EMIT)EMLAB (EMNEW &EMOPL 'EMOPR %EMPRL $EMREG #EMSKE "EMSKL !EOI EVADEVADDRESSES EVAL_SWITCH FREEREG FULL_SIZE GETBOUNDS ~}}<(GETFREEREGINLINER JUMPJUMP_PLUS LOADLOADADLOW_ORDER NEWLABELNEWNODE NEW_TEMP_SETNWTPN <PAS.1 ;PAS.2 JPAS.ENTRY2KPAS.EXIT2 LPAS.INLINEERROR MPAS.NEW2S PAS.NONCDSNPAS.RECVALPARM}`` PROTECT_TEMPPUTLABEL RELEASEREG RELEASE_NODE REMAPPER REPLACENODE SAVE_GLOBAL_OPTISETUPOPERANDS STORE UNPROTECT_TEMPUPDATE_GLOBAL_OPWALK_FILES` `<p 6 Dp<   ( QQAHGEFAAAAKAA=GIx)M=GIxAA+` P(;([A7>O`<M(Dp(ZK=A@GIAx/AAM=D@GIx/(A7^P`<M `UU(dp(AAK=AGIxAA/KAD=@GIx/M=GIx/M=@AGIxA/`<M(K=GI-M=GI- 6 Q8( OOAp"&QJA&RG!AA1S)"D!p!A) ((` PA((#JG)Bxx.x!(7TA+)` P((pu(pu#AJu)!D!1S*AD$u!8`<M(A pt(U(YY!1V)At!(WAt($A!1V%J!AAK=1A@GIAA'MAA=1GI@A%AA'{A%AD{(I?A>X(`(JA(`?yAA{vAA1SH1Zxx)Ax!Av(]Ay(PA c1F11i AA1>/(p($($s" s} ΁~8}( ~~TTAAK=1A@GIAA'MAA=1GI@A%AA'A%ADꄁ(?A>X((A(?AA戈` P((A#\G.A!H1Zx(7AN+AH1ZxAJAA(A~!!( 1A@F1AA11A>/(((!  8( $WWAA7A@F7AA5F5@A3AH3KGKx# p$AHG9A9>I(("("p !G((`p A(]A +H@7KAA11 (8(AAK=1A@GIAA9MA@=1GXGZZIC9>^(gA(Q(gKAA=1GI@A9AAM=1A@GIAC9(AAK=1A@GIAA)MAA=1GI@A+A}1QD!1SH1Zx;AD);! A1F1@A1(M=1GI+K= }TT1GI)F1// ((K=/GI?A>+((ӄ(M=/GI+F/A/(+AAC)>`A((+AAC)>b(((}((21S)A#!8AH5K:: ##11 ((!1 $AA8F1@A1(!3  3A$:(A <=AJ<(AK<<..!EAAiAAgAHiKxkUkAg ([(_!^g ._(q lcFmAJ`l(EAK`ll =gu@0 v(~zAJw~(uAKw~~$$AA 1>(((> /(p6d$n(]AJNA(K#]]AA KAH KK IF I GF G EF E CH GK@A AA@F AAA ?F IA@hxIeH IG@A 3A 3 5MyAfhM{fiH@ CKAA !H GjPAp  !AAlHlGSSxn 5nHllxn In` (+AA A 9AA ? 7(3 ? 9 A 7H AjPp H 9jPp H 7jPp P 3A} 1AA % /AA # 1AA - /AA +c 3x ` =ePPP(h(` A(wKAA= 9GI A -` (K= 7GI  +(` (K= 9GI -` A(KAA= 7GI@A +` ( -` ( +A AA - )NNAA + '` ( - % + #(AA + %AA - #`  (AA -C +D? ` A( %A( #A>n(ApnH !j`n(AA %>XA(( #A>I(ApnH !j`n` P(QQ( 'C )>b( p (A3 ' )p H 9jP((,AH IKlH@ 9KA>l(,(+p H 7jPA(5(FH IKlH 7K@A>l(F(Ep H !G@AlASlJ@HOKT !K(dH !l@AlAdlJd(tohpAJeo(AKeoo M ; = 1 /NNA (AH !IxZZ(QF 9@hxIeAF =`xIAeF 7A@hxIeF ;`xAIe`  (#ApG. @!p (!` 0 (AH 9q((! 9! 9H 9KAx   94bPP =G AH 7q((`  (pY! 7!A 7H 7KxZZp `YA( 3 ;  ;` A(1sD!#N D!:y =` (AD1t!A]"uA J&RAG!H !IxZOOA22A!Z%A  5 ( ` (0A/G =(7 3GA7G ;`<U(G` A(GH IGm5GmAKG IAF I`{IeO{Q(toUDLp AJRo(AKRoo[  Mk|OOAF 9@hAIeFA =`IeF 7@hIeAF ;`Ie`  A(3 + -(A (AH !Ix(a`  (1v J'!(+` 0 (H 9q((A]RR 9  9A4 =G]  =AH 7q((`  (piA] 7`i(A 3 ;A] ;` (1As!7w- =` A(1tD!WA7 \7A N+XAH !Ix`@ piiDDAH !Ix%` (+7A+\1eAH !G'A! :]` (BAA] =(FF] ;`<U(V` (VH@ IGAA5V1e'A I!F I`Ieia(e• AJb(|AKbm M~~PP` (`<U 0(AA1x'H!`(AJ1x'!(`<U(AA1x'D!FA` A(#pG'!A#yG!(#EGD!#JGAJ'!`<UA(HG5AG~k`<U(1x'!(AJ(AKqqEE` (`pE`pF(`pE`pF`<U(-`A(-7 e-AF1v'A!7FHG@AGA5'G1e'!(=70EA-`(88JA7;e-q=(NIA)JAJ>I(AK>IIRJJAF !@hAIaH@GAAcAx HGp` PA(t( 1A>z({(( />b((` P(( 1>|(A(( /A>~((p` P(((++CAI8AJJ`A(JJ +( AJ(RAK˨ 1 /VV(55AoH IG _ _A>I(((o(AF !Ax a a  AA  ? A =  ; GA J! E  V ( gP b  cAJ  b(AK  b bv kTTAp p p] uH ujP(  u sF uA u( HG { {AA s  sF u q q y y ( ( H yjP( ` pAp p  y( ! y!  y y( H yKA RR@A {AH yK@EAA } A { }F y@A y(  uA s`<MA( 7 - s- u,<( A7 /<- sh p  {, {- u q y y ((( ( H yjP( `<M( A7  SS- y A  yF y@A y(  q y y ( (( aH yjP( /( Z`<M( 67 5( =7 9AA- s- uAH yK {- {H yK@DE {- {`<M( WJA/< Z yF y y( "A d u l8 dA h s  h(   l AJ i ( kAK i   XXAHG "` P( ( H@GAA $HG ( ( H@GAA &  &FGG "HGx ( "(2 h AA A>I( [( [A ]  Ap (6 A (  DDA G AHG> "( (  HG@A> "A( (  A ` P( P( P( P( ( `p ( `p ( `p ( `p ( HhL` P( #P( #P( #( ,8 $JJA & " A + ( ,A7 / --- ` P( AP( HP( AP( IP( A( W-   G ( Z( ZHGx ( $(4 VGG( ZhL( H.( H.( ` P( | nJJP( uP( |P( u( ! x! {( ! ! ( hLAHG> "( ( 9 HG@A> "A( ( 9 ` P( P( P( P( ( A  G1'!A4 {{eg WWGG( A  G#DNG!1F'!A4 GAG(   G1F'A!4 GG( AHGx (AA $(A  G1F'!A#\G'A!4 GGH`(  A {g ( . )  *AJ  )( AK  ) )\ 2 AHx D : DA8 < <( J E @Q FAJ = E( 2AK = E EH NAHx ^ V ^P V( d _ Z  `AJ W _( NAK W _ _ h` xp<! m y p y p( { t"" ~AJ q }N { yN |Ap x( hK q } }" OOAA AH K "H "Gx AH "A@<ʄ( H " x & &J`<M( AH "pA@(  AG< AA  $AH $h<  'h< [[ ==AA )H " AB= )AA= ' 'AH $Mx &AA '&AH $Kx &A &A G A7 r  G( 7A 1VA@) !p ` ( A  8 [ $   +  ,8 +( YYF .88A 0p p u sF q } C u p! F s  q p n` n( YA Sp o W o8 Y \ p` n( f! b q  f oYè f( | w ji xAJ g w( .AK g w w44 AA AA AH K H Gx A  ( ( ! 4Ċ (  AJ ( AK  22ڿ JA< A A p   !   < ܁ }  2Q (  ]Q AJ ( AK   ,,{ A p A p    }  !    AA8 ,(AJ( AK66$ `<p>p<AA?!$?F??? (! `>A(66>66(FA:BAJ7A(AK7AA~~JDDAQ  H@G (b(nAHGAl` P(P(P(P(P(P(P(P(P(P(P(P(P(P(P(P~mTEE(P(P(P(PA((HlP(P(P(A((A>I(((HKAx(](AJ(hL(>I(((Ap(@bbL22>l(وA((](<(~( b( +( w( (l( (A(( ( )(bJ(,  $"AJ!N A(JK!!;0!3<3(@;7<<__AJ4;(0AK4;;  PO,+  / .0 "g ##" !":;=@CFHKDdx#@&Em@^@hh  @@P0&bFD@Yfx` p A0AY~ xA0AP` (i` (SQ(C@(C(IAQ(Hp/PASCAL/CMP/STD/EV4.REL:::5:31:128 644 0 0 17400 5300501435 34042 /PASCAL/CMP/STD/EV4.REL:::5:31:128 ""$ PEV4 REL +++F5FST ;;X!V(PSEV4 92833-16075,REV.5000,870621 870621.2338 /P1K/CMP/EV4.PAS;@a!;;X1V("EVAL4 92833-16075,REV.5000,870621 870621.2338 /P1K/CMP/EV4.PAS; EVAL4 ||=.DAD>.DCO?.DDE.DLD@.DMPA.DNG.DSTB.LBPC.LBPR D.LPXE.LPXR F.MVW:CALLRUNTIME 8CHCKB 9CHECK 7CLEANUP_PARMS 6COPY_TREE 5DO_ASSIGN 3EMDEF 2EMDI1 4EMIT1EMITJSB 0EMLAB /EMOPL |yyDG.EMPRL -EMSKL ,EOI +ERROR *EVAD)EVAD2IND2 (EVAD3ADDRESSES'EVAD5ADDRESSES&EVADDRESSES %EVAD_APPROPRIATE$EVAD_STRING_PARM#EVAL_READ "EVAL_SWITCH !EVAL_WRITE FREEREG FULL_SIZE GETFREEREGyzzoINITIALIZE_STRININLINER INTEGER_TREE_VALINT_CONST IS_CHAR LOADLOADADNEWLABELNEW_INLINE_LIT_NNUM_ELEMENTSOFFSET_TREE PAC <PAS.1 ;PAS.2 GPAS.BITMASK1HPAS.BOUNDINTEGERIPAS.ENTRY2z||O]JPAS.EXIT2 KPAS.INLINEERROR PAS.NONCDSLPAS.RECVALPARMMPAS.SETINIT PREPARE_CALLPREPARE_PARMS PUTLABELQ_RELATIVE_FIXUP RELEASE_NODE SETUPOPERANDS SPLIT_STRING_OR_ STRING_INDEX_CHE STRING_LENGTH_CH|++A% STRING_OR_PAC_NOTEXTFILETOUCH_FILES UNPROTECT_TEMPWALK_FILES+PPAEuDxPsZEZ@ATAETD,pQETpA@pR`Q(L`PP(8`PP(8(LA@CZDBD\%HZA6LZi`R(S)UPIIRZ(V*VZ`PP(`P(P(P({(pN`R(p`<@(lA:k(oA:o(z`<@(w:v(z:z(`QA(pS A6Vk`R(X AX-A/~~NPPD,-A,4AD.,40S,(X XA-A/,AA40SD,VT\SpN`R(`<@A(:A(:(`<@(:(:(pN`R(`<@~JJ(:(:(`<@(A:(A:(pN`R( `<@( A:( A: (`<@(:(:(AhK3Z`N(.CZ^*^^3^2<`Q(=##3`PP(7(=A=VTA\ @Z CuA Fy#CF(e`J{Pa AIG`(AJG``VXIfmNNA*psE@uADHp#!(M$`?@`#x5 ,HH5@G(E@uADP(P(PA((:A(:A(:(hDK3s( A@CsA!=#XXAEuDP(( !(A!@B(! (sA:3s ((33!A (AA23(*!A:3s3! A   ! uA s  dy (;6u7 AI6(mAJ66$DZZAEsfNfpcCsjCjp ^j(iApdhj(EjA@hFtvxdjn}l p(Ap(ptr'rltnsAJJn(*AnEuDP(P(P(وP(((`c(:τ(:Є(:р((Հ`c(:(:(:(:((`c(:ք(:PP(:(AhK3s(hc y2y`dA(3lAEnP ( (EnP(nnEnA3n(-2`dh y2yr (3(83r3t(<338##AA22AAjFpA In LlA Ot ARr Uu XsA [y3[({_|AI\{(DAJ\{{nlvtr--:\AAs A((*s:AA3s As(: u-(4AI(AJIIApu p8(E@uAA p8(E/(2pEP(&P(&P()P()P(P(H !(@@(#(#(((ABB((#(#( (&()(&()(&(((((,(((,(,(,(,(/#y(2!y(2"(2`%(26((2{+(2.(2A+2`A(E.pACuAFvEOOu1Ls (V(_3CA(P7bu`(AAAE-(yAE)(`<M(E)(4.,Ap<40<,AE%%-(:砄`<M( <p<%(# AI(AJfPPApCs@AAEuDP(P(P(IP(P (a()As$AA:3s3(( s(AAEs(><( WW(pA%s><(,( E@DA,s`(;A4s̤<5:(HA*>)AAs:D3s3A(C@AA@CAAC@AAEE@A@$jXXl(AE@hFAy@s(p9( AA(A AA>̈A((AD=? ( >([[(=A?A A$AA)(sA:3s33(A(AA2ք(233( A2( AA2 A  Ƅ(CVh\\@AA%A(C +AEs(CAEsA;=AA CA$GAsA)L*AO:R333]A `(A@CAAk(rA qsԀ(v z__Wy??(p8(=?AA As)s&:AA3s3AA3 (hHK`(JA2< u sA _)(  AI(AJܨ؀JJA ynwusy{ oE@{ ((AE{}A }o`nP(EP (EP (EP (`P ((cAEyP(%P(&P(<(A(DAAo>(-(7(7EyxA6VVy422y(;;y(DA@y(DhK(fo>(L(T(TANpSy(_AAo>ۈ([(_(__y(fb(f"fyVf(jAIgLAy(Jg[<A(0__AI(AJ  }~3+XYVWz{xyfSBA@hi"_02'' !"*;py'@b"/PASCAL/CMP/STD/EV5.REL:::5:35:128 644 0 0 21400 5300501437 34257 /PASCAL/CMP/STD/EV5.REL:::5:35:128 ""$# p#EV5 REL +++#eFFST ;;X V, PSEV5 92833-16076,REV.5000,870621 870621.2342 /P1K/CMP/EV5.PAS;@J ;;X V,EVAL5 92833-16076,REV.5000,870621 870621.2342 /P1K/CMP/EV5.PAS; EVAL5 }}C?.DAD@.DCOA.DDE.DLD.DSTB.LBPR C.LPXD.LPXR E.MVW<ADOPT ;CALLRUNTIME 9CHCKB :CHECK 8CHECKBOUNDS 7CLEANUP_PARMS 6COPY_TREE 5CVTREGNODE3EMDEC 1EMDEF 0EMDI1 2EMDLT 4EMIT/EMITJSB }xx:i.EMLAB -EMMVW ,EMOPL +EMPRL *EMREG )EMSKE (EMSKL 'EOI &ERROR %EVAD$EVAD2IND2 #EVADDRESSES "EVAD_STRING_PARM!EVAL_SWITCH FNCRG FREEREG FULL_SIZE GETFREEREGINBRO INLINER x||AINTEGER_TREE_VALIS_STRING JUMPLOADLOADADLOW_ORDER NEWLABELNEWNODE NWTPN OFFSET_TREE >PAS.1 =PAS.2 FPAS.BITMASK1GPAS.BOUNDINTEGERHPAS.ENTRY2IPAS.EXIT2 JPAS.INLINEERROR PAS.NONCDS|yyKPAS.RECVALPARMPREPARE_CALLPREPARE_PARMS PUTLABEL RELEASEREG RELEASE_NODE REPLACENODE SETUPOPERANDS SPLIT_STRING_OR_STRING_INDEX_CHESTRING_LENGTH_CHSWAPREGSTRANSFORM_TREEUNPROTECT_TEMPy(LLApDqCx`P(P(Ȅ(Do@A A @(((@(E(#@(g('(ā}+o}A.oDox 6 p)D'(('(}Ho}Ko`,LTTpQo)D'Do@J@>(_(c(c;b(f;f(pl>AABA@hEyo} -  oA BA`EDx >  qqIIA BA`E(,D'pA;A1A u(Hh J(ApAo4AH2'(Dh J Aq o`(䈈`P((A5uq(  AH (AI  A%sAp0 A0s #s5(u0((61,s2AH)1(AI)11cc :>>A%=o A@DqCP(MP(Q(U;P(X;T(XAh J1oADuP(a(m(,D' lu(r5ruA uq xocx(|uAHy(:AIy =MMA oAD@>((>AA<AAA# ADqCP(P(ʈP(P(ƈP (P (΄(;(;(;(h J@1%%10>5uA  A q o%(  AH(AI99''A% q A;1q%AoDu7 !uoDux979 ,qA /o9/(?:3z;AH0:(AI0::~~hCHHApq p9P(D@qAA p9d(D/(DP㈈(P(P(G "!(@ @((((((((((~@@((((((((((((((((( (((E(^((/(((A&p`(AD.ApRRPp`(+ADqAA%D.P(D,(D@qAA(D@AC.(D@AC-(6~~RRA(#AA'AqAAo/Aq2q A7/;AoAA (E(NAA1B@Aބ(?7Qq`(wD-(w`>MA(l4AD+'Afp>4JD.>';o~|oRR`>M(w u>p>ADu`A( AuDuAxA(p5uAAADC ,HH@F(D@AADuxAAA%uDuܘx q[(8x AH(CAI܀Ԡ>uuHHA%o ADqCP( P(P(P((;(;(;(;(Ah J1oADqCP(,(251u(757uA :q =ou=(JEAFAH>E(AI>EEuuWNNNADuAXADu@>(dA(~(~DuCC D@uAC`AA@(((s(AsADu8A usuq(AH(NAI/AAADqCx[Du@J@>(((`[P(P(ՈP(P(ۈP(P(ለ(` pZ(爈`pZ(`䈈pZ(` pZ(pZ(爀` pZ(Ah JAo;Z5u1@@(-`[P(P(P(P( P(P((` pZ(`鈈pZ(`pZ(`pZ(` pZ(` pZ(h DJ>AA\%o "A;%Z1\1o -u\`[P(K`>M::82(@4+A':p>4.A>';C`>M(KAI>p> NqA Qo:HQ(c ^UZ_AHR^(AIR^^??g((ADo%Aqo t@>({((A;~(A;1o5uA q o?7(xAH(gAIRRADo((-A-@A((@A((@(((o A4AD*' Ao5uD@uAA--@(܈A(( A(("oDu@J@>(((;KK11(;AA3 o5u("A>-A  u-A%o A;1u1o1o o("Ah J %qK%(4/)70AH&/(AI&//)8OOp AADqCP(MP(vP((`>U(_A"ToAA Y;\A1(u"co hAm٤>sp(`>U($|oA ;A1o(pnn/LLA o>AA(Bo""o A;11A (A&`J(0>A5uA q on\( AH(8AI^%MMADqCP(P(P( P(O($>DA"oAA; 1>D1A($>D"o;J1>DA1(Bo*(6p:6$9>D@"-:XX=o%BA;E1>D11 N(BoB_(feo(jA AnA(tAoA@((AA?DAo$A>D"AoA#77>""A;1>D111 A A(&0>A q o7( AH(AIɨ€NHHA uisqouw kD@w ((ADwyAyk`iP(RP(UP(XP(7P (7P (7P ([P A( (^DuP(P(P(.A(3(6kA@(()ttgCC()DuAx{({u(--u(6A2u(6h J(ak@(>(F(FA@p{E{u(QAAk@(M(Q(QQu(a1T(a:W(aZ(a](aA!auta(|e~AHb}K|Au(Ib}}Q}>1(__AH(AI 0 +[\3GEj"_ tb|s v$#;2 ,,& !")+45;?)1S2r,@f&/PASCAL/CMP/STD/EXP.REL:::5:139:128 644 0 0 105400 5300501440 35341 /PASCAL/CMP/STD/EXP.REL:::5:139:128 ##$ EXP REL + + + E9YFST ;;XKV0-PSEXP 92833-16077,REV.5000,870621 870621.2346 /P1K/CMP/EXP.PAS;@̋K;;X#|V0-LITERALS92833-16077,REV.5000,870621 870621.2346/P1K/CMP/EXP.PAS; !mLITERALS AA ~.DLD.DST .LPXR .MVWINSYMBOLMAKE_PACNEWNODE PAS.1 PAS.2 PAS.INLINEERROR PAS.NONCDSA7::`2Pw( Px(Py(:Pz(%(O`4(Jg(Ag(R`4Px(( g($JAg(Rg 5 pPw(4(7 p4(9p4(RMMƵ:,,`Pw(>(CJAg(Nh kALkg(Rh{ AWrpgi it`v AsiJAfM fm sn 8m( ! 4w0H@ (q??Xg]V0.STRING_LITERAL_S92833-16077,REV.5000,870621 870621.2346/P1K/CMP/EXP.PAS?dSTRING_LITERAL_S OO !.DAD.DLD.DST .LBP .LPXR IS_STRING NUM_ELEMENTSPAS.1 PAS.2 PAS.ENTRY2 PAS.EXIT2 PAS.NONCDS PAS.RECVALPARMOyyNAQQA [AY A( (Q Yy__A(QYAA] ]{P(!(. ]y@A_A+_A[(Q ]{(QA ]}@ A_dA__ @]}AadMa_[y_Q(ocU**eA Rd cAY([AA Rdd * G @i??XdIV0/STRING_ASSIGNABL92833-16077,REV.5000,870621 870621.2346/P1K/CMP/EXP.PAS?4STRING_ASSIGNABL LL ' .DCO.DLD.DST .ENTR .LPXR IS_STRING NUM_ELEMENTS PAS.1 PAS.2 PAS.NONCDSSTRING_ELEMENTSTRING_LITERAL_SLDD''A-($+($`)(%- (%( +D(%+AA/!- /(%p*D sJ'`*4 ""d5AA 11AA-2A+3p)`Hp*(" H @I==XMV0/NOTE_CALL 92833-16077,REV.5000,870621 870621.2346 /P1K/CMP/EXP.PAS=qmNOTE_CALL 66 b/.DCO.DLD.DST.ENTR .LPX .LPXR PAS.1 PAS.2 PAS.BITMASK1PAS.NONCDS6[JJAh A((ehAAj ju' ,HH@ (e jw/PA("(e jy.A(G j{pA@(G j{A @A(G j{x jy55J.(e j{P(V(eAJh9A(e(\ j}5 em ##wbnAAllAh(  # Z @&E{>>X V01ACTPARMLIST 92833-16077,REV.5000,870621 870621.2346 /P1K/CMP/EXP.PAS>ACTPARMLIST ||0.DCO.DLD.DST.ENTR .LBP.LPX.LPXR .MVWADOPT ASSCO CHCKB CHCKI CHECK CHKBS CORC1 EQUIV_TYPES EXPRESSION HEAP_2_ROUTINE INSYMBOL IN_EMA IS_STD_FILE_IN_H IS_STRING |ssNEWNODE NOTE_CALL PAS.1 PAS.2 PAS.BITMASK1 PAS.ENTRY2!PAS.EXIT2 PAS.NONCDS"PAS.RECVALPARM#PAS.SETDIFFER $PAS.SETINIT %PAS.SETUNIONSEARCHIDSTRING_ASSIGNABLUNQUAL_TO_RECORDsŽNNA@'pFB'PFpF$G%xGL"FL(6Ap>@AADD' ,HjH@(|D/PpFGFp?`?({DQSNJJ.(yD.(kD-(kD) Ӏ(lpFqFD,p>({p>(~p?AB'P((@@ADABD((1PPApFF`?(6B@ABA@@B ((&@ ((&B'P((ABD@@AAQDQ( A@.pFB.PF(( 0NN`>( @.ApFB.Ӏ F( @-ApFB-ӈ F ( ApFF(UB@@BAAB@A@(B (/@ ApF6F6(fS:%%`VA 7U"SB"T@(A!7UUk %lA oD(wF(x(wp| w8z`|} "~A}`p|(lUU1[66A p`(@AA ((@AA((p`pU x`  AAAAA`p(nQQAp pHH(>r@ADApFp.("FD(Fr(pH H(!rFpHAHAJD((!(!r`(>pb&II'P(+(#/FD(4}3(5pHA:HArPpHAFHArP(QP(oP((@rA'P(^(nAr/ pHAnH(eoTTArBBP߈A(}(BB@BA/ pHH@rDIBI pHH(Ar/(ArI .EEI (ApHH( rp@p. ,HN@A(p.ՈP((@tAAI I (p?`@o?pA`o(`@?(po`A Ӡ0AXX!66pH HrP(("ArP((" "r(>@r pH1H(>@rAIU>pIX L>K L8K(O0EE2P**`2pY(z_@{AAkx{x{A(( zE z 9 A`hA(P{} ~~PPJpoAAvv ,HH@(@At( t p$}#x}`DŽhAt A((t ((@tA' ,~TTH@p@$}A%x}A(O@tA@AAp  Ap A((p'ۈP((+$}A%'x}A*(..xr6vrQQe=700p ApA(LAKEpp`2P( AJvAp p^`2PpAgQg(kcc=GGA h"AhA(!h6 " ~ g xN@ c  <DJ@Xw??XiV04BUFFER_SELECT 92833-16077,REV.5000,870621 870621.2346 /P1K/CMP/EXP.PAS?VBUFFER_SELECT MM .DCO.DLD.DST .ENTR .LPX .LPXR .MVWADOPT INSYMBOLIS_STD_FILE_IN_HNEWNODE PAS.1 PAS.2 PAS.NONCDSMPP:33A N_4A 4 N_ c a4 Ncx646 Nc@J (+(3(3 Ncx6 6P -37 4887( &&ɝ:A?ef NEN N 7KM& fMV !!WA U`UhhAg(: P!@[>>XȥV05DEREFERENCE 92833-16077,REV.5000,870621 870621.2346 /P1K/CMP/EXP.PAS>hDEREFERENCE ^^} .DCO.DLD.DST.ENTR .LPX.LPXR .MVW ADOPT CHCKB CHECK DEREFERENCEABLE FULL_SIZE INSYMBOLNEWNODE PAS.1 PAS.2 PAS.NONCDS^):UUA|`@`AA^^PApbb(]A`pbA(bA(]-A^pb 2Ab`c|xbcb` @(V|@AcASc fZU(VpbA ]b ]e ːf8e( &&˶hAm | s| | ey{& { --%A`hA(h  3S Q ~- d @t)==XV06SELECTION 92833-16077,REV.5000,870621 870621.2346 /P1K/CMP/EXP.PAS=\SELECTION U[[Wy.DLD.DST .ENTR .LPX.LPXR .MVW ADOPT CHCKB CHECK CHKBS INSYMBOLNEWNODE PAS.1 PAS.2 PAS.NONCDSPAS.SETUNIONSRCHS [[LLAJ  pAJ( PAp"(J (1` s ʄp 1` 2Ap< @AA(@ A@ooDLJJAARA p](@AAkÄx AxAA A AJ Ao  009[A `hA( .6  <0  @9:==XzV07SUBSCRIPTION92833-16077,REV.5000,870621 870621.2346/P1K/CMP/EXP.PAS=FJSUBSCRIPTIONzz.DAD.DCO.DLD.DST.LPX.LPXR .MVW ADOPT CHCKB CHCKI CHECK COMPTYPES CORC1 EXPRESSIONINSYMBOLNEWNODE PAS.1 PAS.2 PAS.BITMASK1PAS.ENTRY2PAS.EXIT2 PAS.NONCDSzHPAS.RECVALPARMPAS.SETINIT PAS.SETUNIONZ2OOAA5AY[Pu([Pvp ](^PyA(&(7dAAb@A` tp 7]f(D`s tpA DhA1Y[ ,OTTH@pA [iA[Pu(b(@jAA1YtAp yl(Aj1pA lAm3Yx@1YJ((JJU**(1f`u(@1YAAp l(1Ap Al3JYxAJ g a8(MMJA5A@<qopn7<oAJA ((A5fxFY@AGA rFG31 35 313`2Px(ܨ`2PwpF )Fp)(UI->><K))A*JAIhsaA(*JJ  .q 6 D7>t !@q:;;XKV08MODIFIER92833-16077,REV.5000,870621 870621.2346/P1K/CMP/EXP.PAS; MODIFIERv ||.DLD .LPX .LPXR .MVWACTPARMLIST BUFFER_SELECT CHCKS DEREFERENCE PAS.1 PAS.2 PAS.BITMASK1PAS.ENTRY2PAS.EXIT2 PAS.INLINEERROR PAS.NONCDSPAS.RECVALPARMPAS.SETINIT PAS.SETUNION|!BSELECTION SUBSCRIPTIONBJJJ` 2 ,H@(p` 2P(;P(+P('P((KJ  P((#"x(&&x(N*x(N}7x}:(N}Gx}JFFMJ&&(NhATx @}` @` 2x ,H@Apjx @Ao(Fp(t..BAqAh A(q 6   A}x. @Fe;;XNV09VARIABLE92833-16077,REV.5000,870621 870621.2346/P1K/CMP/EXP.PAS; <VARIABLE 22 .DLD.DST.ENTR .LPXR INSYMBOLNEWNODE PAS.1 PAS.2 PAS.NONCDS2XX22A 5H7 FG7JJ AJx95AA9 5Lx3A@3(-`3A@(-`3p`4(2A2X 12< 6>=AA::A5;p4(  @(Gh??Xa V0:SYMBOLIC_CONSTAN92833-16077,REV.5000,870621 870621.2346/P1K/CMP/EXP.PAS?^SYMBOLIC_CONSTAN`` .CFER .DAD .DCO.DLD.DST .ENTR .LBP.LBPR .LPX.LPXR .MVWFEATURE_LEVEL INSYMBOLNEWNODE PAS.1 PAS.2 PAS.NEW2S PAS.NONCDS`*#QQA/ (AJ Ĉ(((AAA@hA`A P (;(@H P (E(e@A@A^uQMMxA@ӄ(d`ӆA@(d`p(A P A(o(t` @Ax AAx  xAA(! (WW44(xA@ӄ(`ӆA @(`pAAAAxAAJAW | 22!!AA A(!  iހ2 e  @Roq/==XV0;UNQUAL_FIELD92833-16077,REV.5000,870621 870621.2346/P1K/CMP/EXP.PAS=GUNQUAL_FIELDeHH3 .DAD.DLD.DST .ENTR .LBPR .LPX.LPXR .MPYADOPT INSYMBOLNEWNODE PAS.1 PAS.2 PAS.NONCDSH=XXXA` @  @AAx (-AJ (@AAx@AAELAA @AA LLpX00(a xAA(z@ A(j(rA(aAxAA~AAJA L  $$lAA A( <J$  @ϼ@@X{@V1PARSE_PROC_CALL 92833-16077,REV.5000,870621 870621.2346 /P1K/CMP/EXP.PAS@VPARSE_PROC_CALL myy .DCO.DLD.DST.LPXR ADOPT CHECK INSYMBOLMODIFIERNEWNODE NOTE_CALL PAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.INLINEERROR PAS.NONCDSPAS.SETINIT PAS.SETUNIONSTANDARD_PROC y$DDJ /P( P((w (z` M(  9(((J (( p %( J 4AAJx AJ XXbD66JAA PAJ AV` 2P(g @ p g s ;v(zhXz(~))A{(A{" *~6)  @qX??XMWV1FUNCTION_REFEREN92833-16077,REV.5000,870621 870621.2346/P1K/CMP/EXP.PAS?IFUNCTION_REFERENtpp9 .DCO.DLD((.DST .LPXR .MVW ADOPT CHECK INSYMBOLNEWNODE NOTE_CALL PAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.INLINEERROR PAS.NONCDSPAS.RECVALPARMSTANDARD_FUNC p2KKA /P( P((q h`A(t` MA((J 9(!(((( (()Ap.A1 @AA=~ ~x @DD`K))SAA| YA|~|JA _` 2P(p @ pp(th@Dt(x<<%&&AuhA(Au" ~ ;< C @V@@XQV1FUNCTION_RESULT 92833-16077,REV.5000,870621 870621.2346 /P1K/CMP/EXP.PAS@hFUNCTION_RESULT hLL .DAD .DCO.DLD.DST .ENTR .LPX.LPXR .MPYCHCKB CHECK INSYMBOLNEWNODE PAS.1 PAS.2 PAS.NONCDSLPPA AA/PpAA(;.pA,Axp` p@(m`(m`A@  kk[P;;@ (X(iA (f(i(ip(l@p(?@(r(y` @(y`p }(0 k  ))rAA A(  ")  @==X[mV1ASSIGNABLEID92833-16077,REV.5000,870621 870621.2346/P1K/CMP/EXP.PAS=>MASSIGNABLEIDiit1.DLD.DST .LPXR .MVWCHECK FUNCTION_RESULT MODIFIER PAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.INLINEERROR PAS.NONCDSPAS.RECVALPARMUNQUAL_FIELDVARIABLEijj33<AUA ES AJS 2K*>K(f ZO** N\AL[AZhtsA(5L[[ 'U*@<<XD:V1SETDENO 92833-16077,REV.5000,870621 870621.2346 /P1K/CMP/EXP.PAS< SETDENO N Y4.DAD.DCO.DIN.DLD.DSB.DST.LBP.LPX.LPXR .MVWADOPT CHCKB CHCKI CHECK COMPTYPES GETBOUNDS INSYMBOLINTRVAL_EXPR INT_CONST INT_TYPEMAKE_SETNEWNODE PAS.1 PAS.2 @@PAS.BITMASK1PAS.ENTRY2PAS.EXIT2 PAS.NONCDSPAS.RECVALPARMPAS.SETINIT PAS.SETUNIONREAL_TYPE @<<$$A. P9(($.@hDA A0,A,(AA,(p3A$3<$(@ 4(?F6A%54A.(%5502EUUApLSA Af (l(@AA x.0AA(AAը`2P6((A/WWA (A! (@U#$ #JAA% P8A((%@D% PP(pA A((' ,HH2@(   5(Ap)(A ф( A(N"(0((N 5.0AAD*(A~~"AQQpH,L(v P8A([(s5eA@A5r(v5v@AA (` 5(p(~[[33`2P7p`(A `(`2P6Ap A$ (%x`[(.WW9==Ah3A-(EA =!  6  4WR5 !@Fe99XV1OPOK92833-16077,REV.5000,870621 870621.2346/P1K/CMP/EXP.PAS9 OPOK  ..2.DLD.DST.ENTR INT_TYPEPAS.1 PAS.2 PAS.NONCDSREAL_TYPE .* A( ( p  r `    AAA`p (  @$<<X;&V1PRIMARY 92833-16077,REV.5000,870621 870621.2346 /P1K/CMP/EXP.PAS< PRIMARY l }}$.DLD.DST.LPXR .MVWCHCKI ERROR EXPRESSIONIDENTIFIER INSYMBOLLITERALSMODIFIER NEWNODE NOT_OPERATION PAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDSPAS.RECVALPARMPAS.SETINIT }iPAS.SETUNION SETDENO SKIPRFF`(p `2Pp({`2P(3P(0P(0P(0P(>P(BP(7P(0(]A2(x6(x 9 =A(xAA(x D@]]uF55APA S`2PAp\(x bJJJxA`2PA(p(r rA uAx{]{(++ A|AhA(|6  <+  0@||99X~V1 TERM92833-16077,REV.5000,870621 870621.2346/P1K/CMP/EXP.PAS9 1TERM {{ԧ.DCO.DLD.DST.LPX.LPXR .MVWADOPT CHCKB CHECK COERCE CORC1 CVTNODE EXPCO INSYMBOL INT_TYPEMAKE_CONST_NODE NEWMULOPNODEOPOKPAS.1 PAS.2 PAS.BITMASK1PAS.ENTRY2{AAPAS.EXIT2 PAS.INLINEERROR PAS.NONCDSPAS.RECVALPARMPAS.SETINIT PAS.SETUNIONPRIMARY REAL_TYPE A֖SSAv@tAAv(AtpA xA ,HH@(9 ,H@pA@A(  FpK( Qvtv2 SNNP(\(pv@A@AAxxAA(v@AAxxAA`sP(P(P(P(P(( Ax(APpA@RRAP(( xA( x pA( xpx@AA( vApA tpxx55NgA( J(((((Ap ( h5   [8(@vQQ@AA&zA)`2P(-(k`3psv63AAxvxxKxv MPYzJ\AAtdAxtxJj()k(o-- UAlAhA(l 6z-8@^Z}??XR'rV1 SIMPLEEXPRESSION92833-16077,REV.5000,870621 870621.2346/P1K/CMP/EXP.PAS?((NsGSIMPLEEXPRESSION/~~.DAD.DCO.DLD.DST.LPXR .MVWADOPT CHCKB CHECK COERCECORC1 CVTNODE EXPCO INSYMBOL IS_STRING MAKE_CONST_NODE MAKE_STRING NEWADDOPNODENEWNODE NUM_ELEMENTSOPOKPAS.1 ~UU BPAS.2 PAS.BITMASK1PAS.ENTRY2PAS.EXIT2 PAS.INLINEERROR PAS.NONCDSPAS.RECVALPARM PAS.SETINIT !PAS.SETUNIONSTRING_ELEMENTTERMUJV pX  8( "NNA0Vl@.VAAj0Y(/A.YpnA 62n`)Pm(:(CA=0(CB.(Dpi`iA(bl[ ,HHt@(aj[ ,Ht@pn{dVVAhn](h`i(rqlj(spnAxn](h`i( lA(lo AooA0opnn] jA(jo AooA.opnnA](A0.0Vl OO@.VAAjl[Pk(DŽ(l^@AoA2VxnAAon(`i( AJlA((jJ(((2VxnAn( joAloAAo oo2Vxnon  HH(2Vxnln`)Pm(Pn(Po(P(e`i(.A2Vo'o(.Al[PlpnA5n]Al[Pl(<(O`)Pm(BPn(G(LF2A`(OK2a(Ohp(h00cMQl(WA(](]jJ(^(]pndn](h@hq0 hq ߅r8q(u@}}vHHp+p*`2Pn(~(`3 ,Hh@(`(p+`3Pmp*A `*( 9dbc!49b>>`+(@( 9dbcA!49Ab>>}LL@VAACefC,YpE ,E,,`2Pn(㊄(!`3p)0 A32A20JVC2VxECE  9dbc!**eN 49b>>JA.A2.AJ2q (*!(R"F%66ICH##A"GAFhigA(v"GGi H 6%j46k@V t<<XdV1 EXPRESSION92833-16077,REV.5000,870621 870621.2346/P1K/CMP/EXP.PAS<aBEXPRESSION{{.DLD.DST.LPXR .MVWADOPT CHCKB CHECK COERCECOMPTYPES CVTNODE ERROR EXPCO INSYMBOL IS_STRING MAKE_CONST_NODE NEWRELOPNODEPAC PAS.1 PAS.2 PAS.BITMASK1PAS.ENTRY2{VV 0PAS.EXIT2 PAS.INLINEERROR PAS.NONCDSPAS.RECVALPARMPAS.SETINIT PAS.SETUNIONREAL_TYPE SIMPLEEXPRESSIONSTRING_ELEMENTSWAPOPERANDSV LLArxApxArA()p()A' (*p /t`oP(3(n` ,H"H@(B@ (CpAH(m`PbLQQpS(m(g@AAf(hpm(`Ppw(|rA(p( (Ap(ArpAtxJA@rDD@rAApP(P(P(P(P(P(((`o ,H#H@p(`oP(P(P(P(P(PA((t(TTx{33tt((A(Hh(A((p(A (   ( p(AT  n 8($% oo!&AAJ @{A6v{A9`2P(=(g`3por F3AAttJxAATAtr VAYvpatptgog(k77+$$AhAhA(&h  C6v7X x@==XmV1INTRVAL_EXPR92833-16077,REV.5000,870621 870621.2346/P1K/CMP/EXP.PAS=sTINTRVAL_EXPRdd$.DLD.DST .LPXR .MVWADOPT EXPRESSIONINSYMBOLNEWNODE PAS.1 PAS.2 PAS.ENTRY2 PAS.EXIT2 PAS.NONCDSPAS.RECVALPARMPAS.SETINIT PAS.SETUNIONdZZM66@GeAcd BGcLAL` 2Pl((6 @BJA >A @hQ,fgQJA 2A @6 >Z6(_S:'' MUA 7TAShk jA( 7TT6B' ?l @FeM;;XV1RPLCE 92833-16077,REV.5000,870621 870621.2346 /P1K/CMP/EXP.PAS; zRPLCE  &].DCO.DLD.DST.LPXR .MVWADOPT ASSCO ASSIGNABLEID CHCKB CHECK CHKBS COPY_TREE CORC1 EXPRESSIONINSYMBOLNEWNODE PAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDSPAS.RECVALPARM7PAS.SETINIT PAS.SETUNIONSTRING_ASSIGNABLXX77A:@AA8:8(A:(p8=( uu@MM@ ALAO`2PpA ](@AAkoJrAA ( =u( 55""AhA(@A635  @z<<XbV1PARSE_EXPR92833-16077,REV.5000,870621 870621.2346/P1K/CMP/EXP.PAS<`$ PARSE_EXPR))EXPRESSIONPAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDS)& Apz; ( kGA (A  @L.j>>XV1PARSE_RANGE 92833-16077,REV.5000,870621 870621.2346 /P1K/CMP/EXP.PAS># PARSE_RANGE **INTRVAL_EXPRPAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDS* AA; ( k; A (A  @k+>>X"V1PARSE_IDENT 92833-16077,REV.5000,870621 870621.2346 /P1K/CMP/EXP.PAS>- PARSE_IDENT ))xIDENTIFIERPAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDS)& Apz; ( kGA (A  @C@@XmV1PARSE_ASSIGN_ID 92833-16077,REV.5000,870621 870621.2346 /P1K/CMP/EXP.PAS@I PARSE_ASSIGN_ID **ASSIGNABLEIDPAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDS*& Apz; ( kGA (A  @uʔ??XgV1PARSE_REPLACE 92833-16077,REV.5000,870621 870621.2346 /P1K/CMP/EXP.PAS?pPARSE_REPLACE ''PAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDSRPLCE '4 Apz; ( kMA(A@& @@ ( ==uL  .(d`@h @p@ (ӱ/PASCAL/CMP/STD/FLD.REL:::5:34:128 644 0 0 21000 5300501442 34242 /PASCAL/CMP/STD/FLD.REL:::5:34:128 ""$"  "FLD REL +!+"+""DjFST ;;XV ;PSFLD 92833-16078,REV.5000,870621 870622.0109 /P1K/CMP/FLD.PAS;@99XKO (V FOLD92833-16078,REV.5000,870621 870622.0109/P1K/CMP/FLD.PAS9 }FOLD "a.BLE.CFER .DAD.DCO.DDI.DLD.DMP.DNG.DSB.DST.FAD .FDV!.FLTD ".FMP#.FSB$.LBP%.LBPR &.LPX'.LPXR (.MVW).NGL*.TFTD ADOPT CHCKB CHECK CVTNODE DISOWN FOLD1 ||FOLD2 INTEGER_TREE_VALINT_CONST IS_STRING NEW_INLINE_LIT_N NUM_ELEMENTSOPP_RELATIONALPAS.1 PAS.2 +PAS.BITMASK1,PAS.DOUBLEMOD -PAS.ENTRY2.PAS.EXIT2 /PAS.INLINEERROR 0PAS.NEW2S PAS.NONCDS|AAƥ1PAS.RECVALPARM2PAS.SETINIT 3PAS.SINGLEMOD Q_RELATIVE_FIXUPREPLACENODE SETUPOPERANDS SINGLE_INTEGERAPPA A((n (nA'xv'@A&݈((P ( (4AAw('(&py-ywDw(KAw@ h AAw'JxyAAy'`vNw(^33PA'&`xA(n'&AxywAy3n(zr{ A-oz(A.ozzw8'SSA A(( (AAAAAAAA((AAA((A'xJAA'&`A('JxA@',AAA&x( u A-(A.DD))A6 ( 4 A(*6A(((2(*A6("(*(*&4*D*(R 8.**<A-+;1861941:A2(.+;;*VJJ`P(f'߂@hA(Adˀ`O(v'߂@hA(Atɀ`N(}}`ˆP (P (P (4P (׈P (qP ((~`N(AAA(`PA( (~~8LL(`O( A((`NA(AALj(`P(A ((`O( A((`NA(AALj(`P(;(`O~IPP(;(`NA( p( ( A(3`PA(  (  (3`O(3 Ap.;3(`N(R(<]2t``Pas.Dispose1 Pas.Dispose1S Pas.Dispose2 Pas.Dispose2S Pas.DoubleMod Pas.EndOfFile (Pas.EndOfLine (Pas.Entry1 8Pas.Entry2 8Pas.ErrorExiڔY``t (Pas.Exit1 8Pas.Exit2 8Pas.FilePosition(Pas.FixedString Pas.FRiteLong Pas.FRiteReal Pas.Get (Pas.GotoMain Pas.Halt Pas.M``HaltOnly Pas.Hex Pas.Image0 Pas.Image1 Pas.Image2 Pas.InitFile Pas.Initialize Pas.InitMemInfo1Pas.InitMemInfo2Pas.InLineError I``(Pas.LastPosition(Pas.LinePosition(Pas.LongNegate (Pas.LongRound Pas.MainModInit Pas.Mark1 Pas.Mark1S Pas.Mark2 Pas.Mark2S Pas.MaxPny``osition (Pas.New1 Pas.New1S Pas.New2 Pas.New2S Pas.Octal Pas.Open_File Pas.Overprint (Pas.Prompt (Pas.Put (-``Pas.RangeDouble (Pas.RangeInteger(Pas.RangeSet Pas.ReadChar (Pas.ReadDouble (Pas.ReadEnum Pas.ReadInteger (Pas.ReadLine (Pas.ReadLong Pas.ReadNonT9``ext (Pas.ReadReal Pas.ReadStr Pas.ReadStrFile Pas.ReadString Pas.RealRound Pas.RecValParm 8Pas.RecVarHPO 8Pas.RecVarParm 8Pas.Reference (Pas.f``Release1 Pas.Release1S Pas.Release2 Pas.Release2S Pas.Reset_File Pas.Reset_NonT Pas.Reset_Text Pas.ReturnParms Pas.Rewrite_FilePas.Rewrite_NonT"``Pas.Rewrite_TextPas.SeekFile Pas.SegmentedMod8Pas.SegmentRtn Pas.SegModInit Pas.SetClear Pas.SetDiffer Pas.SetInit (Pas.SetInterInitPas.SetIvY``ntersectPas.SetStrLen Pas.SetTemporaryPas.SetUnion Pas.SFRiteLong Pas.SFRiteReal Pas.SingleMod Pas.SReadAOC Pas.SReadChar Pas.SReadDouble ``Pas.SReadEnum Pas.SReadInt Pas.SReadLong Pas.SReadReal Pas.SReadString Pas.Str Pas.StrAppendPACPas.StrAppendStrPas.StrCompare Pas.StrDelet ``e Pas.StrEndOff (Pas.StrEndOn (Pas.StrInsert Pas.StrLen Pas.StrLTrim Pas.StrMax Pas.StrMove Pas.StrPos Pas.StrRanger Pas.f y``StrRpt Pas.StrRTrim Pas.StrValParm (Pas.Subset Pas.SWriteAOC Pas.SWriteChar Pas.SWriteDoublePas.SWriteEnum Pas.SWriteInt Pas.SWriteLong  ``Pas.SWriteReal Pas.SWriteStringPas.TopOfPage (Pas.TraceBegin  Pas.TraceClose Pas.TraceEnd  Pas.TraceInit Pas.ValidString Pas.WordBitMove Pas.Write 9``eChar Pas.WriteDouble Pas.WriteEnum Pas.WriteIntegerPas.WriteLine (Pas.WriteLong Pas.WriteNonText(Pas.WriteReal Pas.WriteStr Pas.WriteStrFile99( ((Pas.WriteString SIN ,SQRT ,*last***routine*9 JJ`wp pp o` u@ o 8 o8 p( h w6` x6h y6A` z6h {6` |6h }6` ~6Ah 6` 6h 6A` 6h 6` 6h 6` 6Ah 6` 6 KKh 6` 6Ah 6` 6h 6A` 6h 6` 6h 6` 6Ah 6` 6h 6A` 6h 6` 6`\p h 6A` 6`\p h 6` 6`\9 VHHp h 6` 6h 6` 6A`\p h 6` 6 p h 6A` 6p h 6` 6 p h 6` 6Ah 6` 6 p h 6` 6Ah 6` 6  JJh 6A` 6h 6` 6h 6` 6Ah 6` 6h 6A` 6`\p h 6` 6 p h 6` 6Ah 6` 6h 6A` 6`\p h 6` `\ NN6 p h 6A` 6h 6` 6h 6` 6Ah 6` 6h 6A` 6h 6` 6h 6` 6Ah 6` 6h 6A` 6h 6` 6h 6ggQm 677A` 6h 6` 6h 6` 6Ah 6` 6h 6A` 6`ep 5`fp 6`gp 7`zp pp n` n @ vp qA q8 n8 p( ag " m r ~~k s448 r(  8   㡡   硡   롡                        ~8 55                  !  #  %  '  )  +  -  /  1  3  5  7 ! 9 # ; % = ' ? ) A + C -~ ]] E / G 1 IABS AD AND ASC ASL ASR LF RS BSS CC CL CLO CM CP DEC DEF DIV DLD DST EL EMA END ENT EQU ER EXT IN IOR ISZ JMP JSB LD LDX LOD LSL LSR MPY NAM NOP R L R R RRL RRR RSS  9SEZ SL SOC SOS SS ST SWP SZ XOR  KQQA P T  llx ((lAl oA s JA nAnxAAAnnA   ppx~~ QQAAppA   rrxrAr A JA tAtxA At``tA  ~~~  PPJ  AAvvx AAvvAvvA`_vx AAv!A% JA xAx@ @pA Ax~mf=NNxx  xxxA`X\  zzxzAz A0lzJx AA   ||]#SSx|A|x AA   ~~x~A~~x A ͡J  AAAxAA3TTAx AJ  AAx AAx AA AxAA Ax2YY277A6 JA AxA A설x AAA A Y (i FF 8( K            FwYYAWWY{A{Y`AYxJA AYxAAWJ xW AWWW[A{{[`EITT[x [xW xAAWA WA!WAAW]A,{1{A]`A]x ]xW A xWAA RpQYYWWA[AWWAA_f{k{A_A`_x _xW xAAWA WAWAAWaA{{Aa`@TTAaJx AAaAxWAJ xW WA WWc{A{c`AcxJA AcxAAWJ xW YYAW! WWeA{{e`AeJx AAeAxWAJ xW :WA?"$CWWgN{AS{g`7WUUAgx gng%A%AA gA xW}A"'AUUAAi{{AiA`ix ixWiLTTAni%% i JU AxUAA"(WWkA{{k`AkJx AAknAk%% kxXXAAA WW ")AWAAWmA{${Am`Amx mnm%A%AA mx* LWAQ,USSXTTooxoAo 0lAoxJA AooA`h"-WWqA{{q`AqAxSAAqm<MMAq.xƈ`|npAo0ǀAq0[ AWWJA u2QQssxsAs A0lsJx AAss`h@NN"3AWAAWuA {{Au`AuxQumu.x`{npǀƂAo0AAu0[A <WW w`yppP`^AP~~GLL@@]$b(O(AT46XWWAw`^PA@ph{A`^P@@]$Abpv{w`AwJx AAwnAw%`P W~FJJ8P8(D`xppP`^AP@@],bA((L47WWy`^AP@pA{`^AP@@],bpA{y``P"!(@}@܁1<<(((($((((($($(((( ( (( ((((((((( (-(-(-(-(( ( ( (6yx (>AyxJA DŽ(>yx ccP66A(>yJx A(>yx (>AyxJA DŽ(>yx yny%`PA LW8P8(c 2O ___8(WUSQINTEGER REALLONGREALCHARBOOLEAN TEXTSTRINGFALSE TRUEMININTMAXINTINPUT OUTPUTGET 0PUT 0RESET PREWRITE pREAD @WRITE PPACK @UNPACK `NEW V(`` 0RELEASE pREADLN `WRITELN pMARK @DISPOSE pHALT @PAGE @OPEN @CLOSE PAPPEND `SEEK @PROMPT `OVERPRINTREADDIR pWRITEDIR STRAPPENDSTRREAD pSTRWRITE SETSTRz``LENSTRMOVE pSTRINSERTSTRDELETEABS 0SQR 0TRUNC PODD 0ORD 0CHR 0PRED @SUCC @EOF 0EOLN @BINARY `OCTAL PHEX 0STRLEN `STRMAX `ROUND yy1[[PLINEPOS pPOSITIONMAXPOS `SIN 0COS 0ARCTAN `EXP 0LN SQRT @STRPOS `STRLTRIMSTRRTRIMSTRRPT `STR 0LASTPOS pBINARY1 pOCTAL1 `HEX1 @y1CQQAH8L  WA\`AxJA Ap9t   A@h`AxJA A":MMA JA J @hA`Ax n%A%AA A";   @hA`MMx m0@ABCDFGHIKLMJ; ? ( 0]"``8@HP` i v %0;FQ\kw %#0"G'O ^&  kP 33[##  ABE?3@&~16202,REV.5000,870621 870622.0149 /P1K/CMP/ULB.PAS=LOW_ORDER ''Ӵ.EXIT0.SDSP PAS.1 PAS.2 PAS.CDS PAS.INLINEERROR '<<X;` P((/PASCAL/CMP/STD/MAN.REL:::5:5:126 644 0 0 2400 5300501445 33775 /PASCAL/CMP/STD/MAN.REL:::5:5:126 !!$ ~MAN REL +$+%+% FST @@X)AVPAS.GLOBALINFO92833-16080,REV.5000,870622 870622.1358/P1K/CMP/STD/MAN.PAS@@ )A>>X@ VPASCOMP 92833-16080,REV.5000,870622 870622.1358 /P1K/CMP/STD/MAN.PAS>!!PAS.1 PAS.2 PAS.STOPPASCOMP !~~5EXECINITIALIZE_GLOBAPAS.ERRORCATCHER PAS.INITFILE PAS.INITIALIZE PAS.INITMEMINFO2PAS.NONCDSPAS.RETURNPARMS PAS.SEGMENTLOAD PAS.TOPOFSTACK2 PAS.TRACECLOSEREAD_OPTIONS SAM.INITIALIZESAM.SEGMENTER ~ jCSAM.START ggUII  K Y g  App AA=>?`(A(g x DD--AA7[b jZPascal: IFILE RESULTS_FILEOUTPUTPRR SG00P SG01P D@Ө(h6@ Hp`&` p (` A@ (`&44 ` p ( @@ (q`(Nj(   `4M@/PASCAL/CMP/STD/MEX.REL:::5:54:128 644 0 0 33000 5300501446 35134 /PASCAL/CMP/STD/MEX.REL:::5:54:128 ""$6 6MEX REL +&+&+&6vFST ;;Xē,PSMEX 92833-16081,REV.5010,881021 881021.1616 /P1K/CMP/MEX.PAS;@;;Xē0EXPORTER92833-16081,REV.5010,881021 881021.1616/P1K/CMP/MEX.PAS; 2EXPORTER (.BLE.CFER .DAD .DCO!.DDE.DLD.DST".ENTR #.LBPR $.LBT%.LPX&.LPXR '.MVW(.SBTBEGIN_EXPORT_RECCHCKB CONVERT_SUBRANGEDISPLAY_ID_AND_FDISPLAY_MODULE_IDISPLAY_STRUCTUREMIT_MODULE_RECO{{vEND_EXPORT_RECOREXPORT_CHAR EXPORT_ID EXPORT_INTEGEREXPORT_ROOM FLUSH_CODE_BUFFE INT_CONST IS_CHAR IS_STRING PAC PAS.1 PAS.2 )PAS.BITEXTRACT2 *PAS.ENTRY2+PAS.EXIT2 ,PAS.INLINEERROR {OO PAS.NONCDS PAS.REAL2ASCII-PAS.RECVALPARM.PAS.WRITESTRING REVERSE_EXPORT_LREVERSE_ID_LIST STRING_VALUETEXTFILEWRITELINE Omm@@J&5BpAB ((6`AA(6&B7 ((.&@B7A@%;A%9,(.ApA(5&B=JB( &?xDDN0ANDm H@E PF8E( J^HAA XJK WL(H JdMAB bOP aQ(M KK AR''`{ @A@p|\C|`{ @@(yp|pz`{ @@6@zHHA$p}}8z8|(iK y %ZZ`(p~8~p{(RALIAS ARRAY BASIC_STRING BOOLEAN BUFFERS CASE CHAR CONST DIRECT .. ``EMA_VAR END Error! ERROREXIT FILE FIXED_STRING FUNCTION HEAPPARMS IMPLEMENT INTEGER LINESIZE LONGREAL +:``NIL NOABORT OF  OFF PACKED PROCEDURE REAL RECORD SET STRING TEXT TYPE 3HVAR aMMAp ((A&D'P((&F/(&;@AA A((&;(A&HP((&@JAA ((AA A((&L>( p x`  AA"A`p( ACNA  AA"p( //A7 p9%9O(6=7%PAp94AC97/ 46; e<AA"::A7(zzDC77`|P(QP(QP(QP(rP(lP(o(s`{(W`(P|(k`|P(bP(_P(e(h>(kR(kS(kh,(u6(uT(u(uK`|P(z`|p(z z ,,#`(p}8`(p~8}p|~p{(C,,,N`P((`(`p`(`p,  F `(p8p(&BB`pppp`(pph6@H$p`(`(U`pp88(`(p`(U`p`(`(AU`p` A(C88(  (R `( p8p(7@BBA Vph6$P(#p~(%`p~`@p}h6@}H$P(1(5@}p}((h6@}HH$P(>(A`}p}`~@}@pKC`~h}AH(T (cSSŮT((xph6@H$p8(a8(V`@hAH(m (|xph6@HHA$pԈ8(z8(oS | $$9A"`hA'Wֈpp؈p($GGX**A&J ((Z%XAP(&LA( ((;(KG  I> AA"Ap(o&HHA) ,(3A 1(<95(`P(FP(nP(~P((A&;A(X&HP(S(XWA(m&;P(_(b[(mh AAmCN(bbFn99A&;P(u(xA[(}}CN(A\>](#P((&Xx^_`(K(h@,b # $$GAA"A`hA'C(& 7$>>A&LHP(P((EL (((a(L (爁((b(L (((c(L (((G(K(HAJL (( ( C(D__O ==AAJLAANNdA&LJJJ ($(8;'JA&JLJJ (4(77B(;eAAJLAANDN(Hh@,_ \HQ RZR `Q(SApP8QPAL( o(]`g(i.g`xfAfNi;lm lp vqAA"ooAm(]Export simple type""A (( AN&L("O(o A*-A(+TTA. A((".AA*.AA0&0g.(B&0iA@hN'C,2&0kA@hN'C 2AA5&0i@hN'AC 2 5((:&0k@hNA'C,2&@0H<<z&!!AA.. ( (A&.g.(md*ne!p(<"(J7&$$:A*#9-7.-8,(A+#992$OAe (U(YpXe(]]gn](| ia""z?lA*^k-ig-je(OA+^kk"PP`g(.`_A_N (( ((&J@ (#(A&J (( ((Ap ((A&q((AAsp(`(A&; ((&;Pp`(p(A&9/(At&;P(P(P(?P(MP(dP(P(,P(P(PrSS((~Q(&H@AA&u@h'C)A:&H&wA@h'C>(By&P@ApL(z{A&H&@PAkc(XdTTNi|&u@AA&ik{~}{A&H&@PAk(((~&H@A n((|&H@AACN}(&q/BTT(&@HA&i@AnI(8&H@ A((&H;m&@iAn{&@uAA&i9  SSA(&g/A( &F A&u+n(A/(4`(`A8CcKW&uA AIC5L(_PE&L AA_C5<<_""K`(gpf(}M{A&H&@PAk}(h,<<(//jA*--(A+Export structure /bHHAA  CA& C E& E  (x Gp B@ Bp H) E H55h R6p H@ BH` H(8 B8 G(& Ex B`@ Bp & C.(` A@p & C-( ` @ff3$ 77p & C)( ` @p A C K5 B& C.( #PA& C-( .P\& C)( 9P^Kf :( N I >L J A* ; I(A+ ; I I7S SDDA& ;   ] p ` A( h& .( ip ` ( p` )( qp ` A( |& -( }p ` ( ` &( p @( ( A& F.P p @ <<( ( & F.( ` ˆ %( p p ` ( ` 0 @p ` ( ` @p ` ˆp%` ( Lj` @@ p ` ( ` @p ` p)` ( ` @p ` ( ` @p XI ` p&` p h (  4 A* `p ( S` pA+ ` + @@` @p ? C ?K` ( _` ( ` 0 ( P` ǀ ( !` ( QPj( jPQ( 6` ( ,j` ( +( 6` ( 6Q`  3( 6K 7( E @ ; AA* 8 @( A+ 8 @ @6x IPPAA  A& .p ` ( \ I \&@ Z ( e(  hd&@ ZAA  ( u( ` ( ~  z( ~ @ ~& L@ p   &@ LA ( oA e& 66 D'P( ( A m& %; & @A ρ 6  (  R A* ( IA+ Ѩ N# NNA& ;P( ( & u( p Ap & ;P( P( P( ( )& H@A A& P ( 1A& H &@ PA p ( 1 # &@ PA & (UU( 1     4|A  A( :(  AA # @ A( F( f# @A !; O !A Rm# @A%;@A A@# A@%JAA &  X( ( ` A( & =@h E'C ~  }UU #:& =@h FA'C&@ AA !=AA %X AH !!x &AA= A%X` &( & @A !A C !N A{& ( A& = ! *   !( & @A n( YY 77( & =A@h E'C  #& @A X( ( ` ( & =` F'CA& P ( (  BA& P ( 4 }Ys ( A ' ,, +A* *- ' - ( - )A ( +  * * # ,ff"q GAAAA  A& F/P( qP( V( &@ ;AA & J & Z@A  * p A ( & ; & ZA@h 'C  ( h@,fD (  Y A* - A ( G+    JJA ( ( `g( . ` ffNA  p   ` A( 3& D'P( ( & q( & F.( & D'p A& qp  & D֖ FF'PA( ( 0& F.A( 0& + '( 0& +(  C:( A C\K<`'( (K& +p'; 3 & D'P( SP( FP >JJ( bP( qP( P( ( ` ( Lp ( R O R (  VA& ;  a (  em&@ ;A  p ( A tm& ;    (  ( h,`  (  pW (  --+I A* -  - Ap ( +   Export identifier -! LLA `gA(  Ǥ&F@A*A* A( ( #*@A0A N0A&*P*( ΁AE  JQ&g,Cp)`p(p'p&p%, ((,.#--vS .0 0N&.P@A,( fA"WA$- &$2 3__82(  &$, !"'' EL():; ^[] "=)) *  '.0n})@2F/PASCAL/CMP/STD/MIM.REL:::5:53:128 644 0 0 32400 5300501450 34447 /PASCAL/CMP/STD/MIM.REL:::5:53:128 ""$5 5MIM REL +'+(+(5=u(FST ;;X<V:'PSMIM 92833-16082,REV.5000,870621 870621.2356 /P1K/CMP/MIM.PAS;@|<??X^V:(INTERNAL_IMPORTE92833-16082,REV.5000,870621 870621.2356/P1K/CMP/MIM.PAS?eINTERNAL_IMPORTE]g .DAD.DCO.DLD.DST.ENTR .LBP.LBPR .LPX.LPXR .MVW DISPLAY_ID_AND_F DISPLAY_MODULE_IENLAB ENTERID HAS_FILE_POINTER PAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDSPAS.RECVALPARM!!M6PAS.WRITESTRING STRING_LITERAL_LUPDATE_FILE_LIST!MJJA ((`m('P(PA([(/A(/xA.r(ZPA(6(ZAA @HP(C(Z IJYYTAZ̄(@A€,(s@AAq(A@h@AA+(rCCB%%(̀xr((0Р` g( `A C d AAA(̀ˀɀIi LLAJr ((pmrt`m(At/(eAtA0tpp (((pvy vApp(` g(G`mA(65 `A(==HH78-- `D `A Gr@tAAnn (T(eA@nAv]vn@An(NHe(xi44z""AfyxAr(fyyExplicitImplicit internal (re)import of 422nM` g( `A  ` m(A  y 2 ( IIw338( &Internal importer I@2??Xc V:,EXTERNAL_IMPORTE92833-16082,REV.5000,870621 870621.2356/P1K/CMP/MIM.PAS?j  EXTERNAL_IMPORTEj .CBT!.DAD".DCO#.DDE.DIV.DLD$.DMP%.DSB.DST&.ENTR '.LBP(.LBPR ).LBT*.LPX+.LPXR ,.MBT-.MVW..SBTCHCKB CLEAN_PATHCLOSE_IMPORT_FILENDOFLINE ENTERID ERROR FILE_SEARCHING}}zFILE_TO_FILE_NAMIMPORT_CHECKINTERNAL_IMPORTEOPEN_IMPORT_FILEOUTID PAS.1 PAS.2 /PAS.BITDEPOSIT2 0PAS.BITEXTRACT2 1PAS.BLANKFILL PAS.DCBADDRESS2 2PAS.INLINEERROR PAS.MIN 3PAS.NEW2S PAS.NONCDS}~~4PAS.SINGLEMOD 5PAS.WRITECHAR 6PAS.WRITEINTEGER7PAS.WRITESTRING POP_SDPOSITION_IMPORT_PUSH_SD READ_IMPORT_FILEREVERSE_EXPORT_L SET_IDENT_DEFAUL SET_TYPE_INFO SHOULD_WARN SRCHS STRID WRITELINE ~0A7` 8    8( qqd @@A - (p )pM` )A(; 7!`R  #A7*`[ 6/` ) A54`   6 8pM(AP ((?(ApM` ((K` )(KP ((K( q sK`MN !!+*O` pM( 78: Search file (FMP error !((a??A(D` ` .- P (k(8` .& P (q(8` . P (~P (P (P (P (((DA((D((D` (A(D` ((D` A((D` ` (@  -@@p '`g(8`m(A(DP (8 A((D(8` '(&p@p>4> P ((`>AP ( A(DP (P (P (P (P A((5ߡ` (DDA5` A (5` (A5` A (5` (A5`  `>P (A5` J ( ( (A5` A (5` hK6@>HHA)pA5#`A 8>..#$A8@( (A(D(874`L A6 8A(Dx?. v<`?E FA&D` p?(a 0D-iiDM22ph6`@ HH)P (j`ph6@H)h6p@H`.(O`A@΄(}h6@H` . @p(j`pi  8(M 0=GG` 'A@Ap (` p AA("A`("p` 'A@(`@ (`@ A(("H xh)H6H)p`@ (`@ (h A@vvEE$ !% ("A x("`(("p` 'A@(("` '(A("p`A@Ap (A("H x("`v A# M$A&!!p( 0{*FF`@ p(h6@HH)P (d(A@ (`(A x(Έ`h6@H)p(AH x/` Ƃ  `Ap(1(΀ ` A@(p( pCCp`pA@p/~ Ƃ  8(8(s` pph6`@@ HH)p@p/  88(`@ @ p#لx(``@ p#A" (B@(pA(` P ջA&p(* 0OZZA3  (  ( A+A `-  !3 A+    !3A + + ـx + A+ 5MM(+ x !R+ 6`6,A + `+ x`(m`P (l`P pN 0N Ap(@AAp  w5A&p(ۀ * *tHHJ+ OOYp= ((2`=(2J+ ' P (J+ (1@[]_acJ+ * P?((+@ @'@6he6 @@(((+ @6Ahf6 (((J+ P<(`@P (  (7`g A7`   `@P (%`@P (%(/J+ xQQN 0>NQp=9D1 ( (;;@Y Q;S 22TA&RRp@(G?A<>GAInconsistent module: 2rr h6@H)p~`p >|`~ ~A&(r 0  `  @p`@ p }` ~IA&( / NCCpppr`r(ppt` A@t(h6p@tH`.8t8(`r (pt(Aptr pr ps`r((h6@rH)P 0DD((@rpr(pt`rA@t(`sA@t(h6@tH)ph6@tHH)P((`tpt(`rA@t()`sA@t()h6@tH)p6 EEh6@tH)@pt(-`r@spt`t(d2pu5pqhuA hq AAFp )`gm(c7R` A 6W`u 5\` A6a`q  c(l` tme @p @p`tpv .n`v   A&(wFound module at EE`gm(A7`( 6` 1 A7`3 6` 2 A p` 1pph AA  p )`((` )(N(pp`((׀p{{M%@@`((p`p(p(`(`(h #AA  p )` )(N(ppp`((`( (p@p(`p{ `" ++4=#A&"` p(Index starts in block , Lindx was version +..=` .- P (C(H` .& P (N` .- P (N(Pp (. dPQ ݥR8Q(= 99TAVp )^8xz ` )P (b(gpqp(opq` )(oAnp )9 o`qr Ts A&r` pq(T8nn*|88pE(`P((p`A@(h6@HH)ph6@H)P((`p(`A@p(pn ` ,` p(|^??r( N( ` (P ((` .- P (ӈ(` .& P ((` . p ` ("(Jp ( (` (((` )(N((S ` (QL J( (  p )   ( ;;R`p`  p ` 0 p h*6`+6, J`8p.J/; '( )(~~I,HHA(x`A@(I@p0B Ƈ P (E(I`p(0(`A@(`A@(@pA0g Ƈ P ((A x(`@~LLo/t++p0|  „p(AH x/ Ƈ  `Ap(U(`((`A(pL ` JA&p` p(,X2EEJADJ (7D ((7DF+F x@`@((2A(F( P ((∀` pB(pB (*FN@PR(*ppAhT6`U6, `p8@kk>> (`( V (( ()`()A A7#`X % ' A)(+F D(6 AD( pCk >`CH ..oIA&H` pC(B7ӀA 77: Search file .aDD`@"pl (`(uJJ/Az}#J J (h6`6, `pHJ( ((A((# JJ))AA7`  7`  AA  (7` A 7ʪ`    J  55(a#Ӏπ 69: Module 193: Module 5AA?  p|` 'p}`}( /p 1p 0h 56@ 0H)h 66p 2@ 0H` 2.8 08 1( A % / 3 + 4(  01WWZ 7&&A 9p )A@p @#`( I @|p|Ap( ] L1 S  ` 1 p|` p} Jp/JW ~ ] ^  _( 7{}  aAAp p N( E k P ( P ( zP ( P ( xP ( P ( (  3(  S A  ( +@  ( J (  A(  AJ ( 2E CCAJ ( p p ( p ( S ` p( ( Hh 2( ` p p p ` P ( ` P ( ɀ` ( e` A(   7 ` A7 `  + ς@h A- . A A ` (  ^   ..` ( a Externally imported module incorrectly terminated: .##E  `P ( P ( ( "( %A ( % % #  % kkL NN8 ( @N )DISXE?->< 0 ' &)  &/KMLk,,   $+,0? ,@$CW))P@@) `h`hH@@ () 4P1  1 ((/PASCAL/CMP/STD/OPT.REL:::5:58:128 644 0 0 35000 5300501452 34441 /PASCAL/CMP/STD/OPT.REL:::5:58:128 ""$: :OPT REL +)+*+*:_`FST ;;X׭V!PSOPT 92833-16085,REV.5000,870621 870622.0125 /P1K/CMP/OPT.PAS;@׭@@XtrCV!COMPRESS_CURSTR 92833-16085,REV.5000,870621 870622.0125 /P1K/CMP/OPT.PAS@r=COMPRESS_CURSTR .LBT.SBTPAS.1 PAS.2 PAS.NONCDSrr99p;p:`A@;($h@6@;Hp<`8=(7 A @ ?<<XEnV"DO_INCLUDE92833-16085,REV.5000,870621 870622.0125/P1K/CMP/OPT.PAS<dXDO_INCLUDEaa.ENTR ENDOFLINE ERROR FEATURE_LEVEL FILE_SEARCHINGFILE_TO_FILE_NAMINIT_SOURCE NEXTCHOPEN_SOURCE PAS.1 PAS.2 PAS.NONCDSPOP_SDPUSH_SD a~~n@@` ( ^`U ipV`  Om0VOp   aAce #p !pT` !(+A$g_ (+p !A*(` !A(50 p !`jp (S8 #A ;``  /i(F~33@`  lp  `kp (Q` }@ |(L(O p (Qp S3 nSX $$bYAWWpU( #   8T$f2i@2??X:V#DO_SEARCH_STRING92833-16085,REV.5000,870621 870622.0125/P1K/CMP/OPT.PAS?ZDO_SEARCH_STRING}MM2.DAD.DLD.DST .ENTR .LBPR .LBT .LPXR .MBTCHCKB COMPRESS_CURSTR PAS.1 PAS.2 PAS.NEW2S PAS.NONCDSM//A$ $ A x!A !A@ $A/ % e&A $( &)KK @Ap3(JA`(>`(B( (K%J(qh6H P(Q(qA A(q  A(iAA%h(pA (QA@FFdHt,, 6A`6  A`  (( A (F  $$mA p()NKL 7$ + @ ??X8V$DO_INTERNAL_OPTI92833-16085,REV.5000,870621 870622.0125/P1K/CMP/OPT.PAS?XDO_INTERNAL_OPTIrN.ENTR .LBTPAS.1 PAS.2 PAS.NONCDS99`(rp`(ipph6H@HP(>Xl V(COM_OPTIONS 92833-16085,REV.5000,870621 870622.0125 /P1K/CMP/OPT.PAS>" cCOM_OPTIONS yya.CBT.DCO.DLD.DMP.DNG.DST.ENTR .LBT.LPXR .MBT.MPY!.MVW".SBTCHCKB CHCKI CHECK COMPRESS_CURSTR DO_INCLUDEDO_INTERNAL_OPTIDO_SEARCH_STRINGENDOFLINE ERROR yyy\FEATURE_LEVEL INSYMBOLINT_CONST NEWPAGE NEXTCHPAS.1 PAS.2 #PAS.BLANKFILL $PAS.BOUNDINTEGER%PAS.INLINEERROR PAS.NONCDS PAS.UPSHIFTALPHA&PAS.WRITECHAR 'PAS.WRITESTRING SAVE_GLOBAL_OPTIy3* SHOULD_WARN WRITELINE l>>`K(F` UA(  AJ(F A(F'`Y f f g`2P (P ('P ('P (7(?'&` h g(D` RA(/&/` i g'6` h g(D'>`7 h gND> (D&D`A j g F`KpL sH`LO ++PAMMpKNpJ` pL(Option argument is invalid: +tgAAp Yp SA  Zp`@ (` pph6@Hh6p@H`"88(y` Y@ (`(`  Y@Ȃ@6A`6 k(((p(` Yp Y(`(==( ('` l l gA'` h g `2P ((`3P (( mp Tp Xp R`2P ((`3P ((p R`3P (A`2P (>>`2P p n`2(Hh6P p X` X(`P ((h6 P ((h6H HP ( (p S(`ΈP ((hH6 P p X(T`2P (!(/h R~~`#@@A A*4 Z(T`2P (3(OAh`! o `p` A@(Nh6@HH` "`p(;(T`2P (Tp T`(`  Y@Ȉ@ p U` A Y@@ ~<c==P (mP (P (vP ((` T  pOt pp(` T({`2P pO qp(`2(O X rp(` T  pO pp(` T(`2P pO))@& lp(Hh %`(`[(` YP p) w` YYA` p(g \47Option not recognized: ALIAS ANSI ASMB AUTOOPEN AUTOPAGE BASIC_STRING BUFFER~``S CDS CODE CODE_CONSTANTSCODE_INFO CODE_OFFSETS Continue DEBUG DIRECT EMA EMA_VAR  |``ERROREXIT FAST_REAL_OUT FIXED_STRING HEAP_DISPOSE HEAP_VAR HEAP HEAPPARMS IDSIZE IMAGE INCLUDE INCLUDE_DEPT6``H INTERNAL_DEBUGKEEPASMB LINE_INFO LINESIZE LINES LIST LIST_CODE MIX NOABORT PAGE PARTIA<``L_EVAL PASCAL PRIVATE_TYPES RANGE RECURSIVE RESULTS RUN_STRING SEARCH SEGMENT SEGMENTED SINGLE_ARITH ``SKIP_TEXT SMALL_TEMPS STANDARD_LEVELSTATS SUBPROGRAM SUBTITLE TABLES TITLE TRACE TRACE_BACK WARN --Z WIDTH WORK  ->88` Y$>!(b@ @#$(c(((((ψ(((( (#('(+(/(<(B((((((((((4(^(((((((((( (&(.(1(B(_(b(e((~~R<<((((((4(((((( ( <( H( K( |( g sp X`0  p o  t Xp X` X T(p0` p p h 6H@ Hp A  h 6p @ HH` "8 ~7<<8 ({(p0( ` Sp1`1(p(` p( `q  p A s(` T(` p p h 6H@ Hh 6p @ HH` "8 8 ((# g u gv q( ` S??p2( ` Sp3( ` S>  p   v(` Sp4( ` T(  Z Z w(( Z y(p O p(` [p~( `q  p  s(` SpM`M(`~~ 77P ( ( ('` {A { g  p( ` SPpQ( ` Sp5( ` SJp6( ` SJp7( ` SPp8( `q  p 6  s(;` SPp9( @ s~!@==p:( `q  p I  sp X`x  p Q  t Xp X` X(` T(p[` p p h 6@ HHh 6p @ H` H"8 8 (_` T(`(`P (z(h 6@}<( `?  p  tp X"@@`q  p  s Xp X` X(` T(  Zp? Z w(((( ~(( ((( pB(p(` pJ J((A x  AJ ` (@@O w pp?`?(` [p( `qA  p   s(` Sp@( ` SpC( ` SpA( ` T(AA  ZAA Z ~A(#() ZA ((p O/ p(3` [p( ` TA(I Z"9DDA(A ZA (@p OG pp X(Op XA Z`q  p V  s Xp X` X(]` [p( ` T(v`  p h s (v`@"p Au (wp V` VA(}}EE ` A@Ap  pp V( ` T(  Z Z( Z (p O pp X`q  p  s Xp X` X(` [p(  T( `qA  p  spF`F}}DD(pL( ` SpH( ` TA( AA Z ZA ((AA Z (p O p(` [p( ` T(AA  ZAA Z ~A(( ZA (p O p(` [p( ` S}766JpI`I(` . (` - (` 0 p ( ` SJpK( ` SApL( $ spO( `I(-+-( ` SpY( `2P (5(?pSh 6` 6 <>> h(AJpS(  p M  sp X`T  p U  t Xp X` X (^pT`p( ` SpU( ` SpV( i  sp X`mp s t Xp X` X(` T5zCC(` A@p O pp X` X(`pm` p p h 6H@ Hh 6p @ HH` "8 8 ((pm( ` T(  Z Z( Z (p OBq@@ pp X`qA  p  s Xp X` X(` [Ap(  T( `q  p   s(`(`M(p ('` {A { g (` pp o(`P (CC( t( v( `q  p A s(` SpX( ` SpZ( ` Sp[( ` TA( AA Z ZA() ZA ((p O/ p(3` [p( ` TA(c9 ` A@ @BB([` p p h 6H@ Hp A O h 6p @ HH` "8 8 (E(bh 6` 6  (jh 6` 6  h 6A` 6 (t(y(y p1` p(h 6` 6 ((~~==(p1` p(h 6A` 6 ((( p1p(h 6` 6 (((p1p(O w p(( `qA  p  sp\( `q  p  s(~>>`(pp o(`P (( t( v( ` p p ` T(h 6@ Hh 6p @ H` "(h 6@ H` "8 8 (( ` Sp]( ` p ڃAAp ` T( h 6@ Hh 6p @ H` "( h 6@ H` "8 8 (( ` T( "  Z Z( , Z y( +p O 2  p( ;` [p` p^( `q  m] >>>p  C  s( G` Sp`( ` Spb( ` T( RAA  ZAA Z A( X( ^ ZA ( ]p O d p( {` [p`@}( n( p`p}` ( {`}@|( y( {p( BB |&&` T(   Z  s(  Z p O pA(  ZxE( A   B    ii&P >>8 (7nvM _  SEGMENT is treated as SUBPROGRAM with CDS ON+32,1 ERROR!HP HP1000HP iso ANSI i AAA p Wp V   `2p bA b `2( @` W0 V( @ (   ` T( A `r( p W( ?` V( !`2P ( `2P p b b ( ?`2P ( &`2P VV3 &++p b - b `2A( ? 3 `2( <`r( < ;( 3`r  p W( ` V( G F W( O`r( MA L( G  OprV w Q c XX d??8 c( -?iR,  d8}PX--M  ,02@FNO@-@4MS `@p`X`@p`@ p`@ 5/-(~ZZ-)(V(V`@@x`@ @A5" ,H@:(V`-Z(V/PASCAL/CMP/STD/PRG.REL:::5:141:128 644 0 0 106400 5300501453 35304 /PASCAL/CMP/STD/PRG.REL:::5:141:128 ##$ PPRG REL ++++++FPFST ;;XV$PSPRG 92833-16086,REV.5000,870621 870622.0001 /P1K/CMP/PRG.PAS;@ഠ??XB/V%EMIT_TRACE_BEGIN92833-16086,REV.5000,870621 870622.0001/P1K/CMP/PRG.PAS?S$EMIT_TRACE_BEGINDD < .DAD.DLD.DST .LPX CALLRUNTIME EMDI1 EMITEMLAB EOI PAS.1 PAS.2 PAS.MIN PAS.NONCDSD::^ A '` MA( *JA  (.p!!,h ""-  :  $ 5% 8$(2@4>>X/V%EMIT_TRACE_END92833-16086,REV.5000,870621 870622.0001/P1K/CMP/PRG.PAS>$EMIT_TRACE_ENDDD < .DAD.DLD.DST .LPX CALLRUNTIME EMDI1 EMITEMLAB EOI PAS.1 PAS.2 PAS.MIN PAS.NONCDSD::^ A '` MA( *JA  (.p!!,h ""-  :  $ 7% 8$(2@3X@@X6V&EMIT_TRACE_NAME 92833-16086,REV.5000,870621 870622.0001 /P1K/CMP/PRG.PAS@KEMIT_TRACE_NAME }[[ .DAD.DIV.DLD.DST .LPX.LPXR .MBT.MVW.SBT EMCSS EMDEC EMNEW EXID PAS.1 PAS.2 PAS.NONCDSPAS.SINGLEMOD PUTLABEL[HH` M(A(JA |A|@hA~h6`6A | p{` M(5`A@{(5`p{`{(C`{p{h6@{@H`@  ``*H22Ah6p`{@@H`A@ p[h6p`{@@H`Ag  ` MA(u`{ Ap`{@pA ` z &&f?8( S~  7 & 2@І::XV'DO_NAM92833-16086,REV.5000,870621 870622.0001/P1K/CMP/PRG.PAS: qDO_NAM4 rr/.DAD.DLD.DST.ENTR .LBT.MBTEMIT EMITCHAR EMNAM EMNEW EMNUM EMPRL EMSTR EOI PAS.1 PAS.2 PAS.INLINEERROR PAS.MIN PAS.NONCDSPUTLABELSYMREC_COUNTr$[AA`ph6@HP( (@p( `S(h6HPp`(6A `P눈(*P(0PA(-(3 ք(6 (6A (6h`S(ep`(N`pABB`P(Mh6@HHP(M(>(P h6`6`@Èp`@pbApA `pph6@Hp 8ňH8(k`(`prA (`pr ll>>AAAAAA D!!  `9(Al P ::ApLjp(%,  X#(p@7G:&  ,:@u??XV(DUP_EXT_LABEL 92833-16086,REV.5000,870621 870622.0001 /P1K/CMP/PRG.PAS? DUP_EXT_LABEL S __[.DIV.DLD.DST .ENTR .LPXR .SBTIN_EXT_LIST NUMDIGITS PAS.1 PAS.2 PAS.BITEXTRACT2 PAS.BLANKFILL PAS.MIN PAS.NONCDSPAS.SINGLEMOD _CJJA A((N @@pA xAp%`(Bpp@pA 7h6p@HH` 88(-h6`@H` JGG`@p(WAU`ɀpp`Έp`(_(` p`(n`(np`(h6@HH`@ `App` Ap([A  _wp t` **AA Ap`p( Pas.* .0@U>>XHV)EMIT_ALLOC_EMA92833-16086,REV.5000,870((621 870622.0001/P1K/CMP/PRG.PAS>7EMIT_ALLOC_EMAII< .DCO.DLD.DST .ENTR .LPXR BOILABELEMITINTEGER EMNEW EMSYL EOI PAS.1 PAS.2 PAS.NONCDSSPIUU%11A4 A((4?'GPF((@4AA2( 22 C("("(%` ;A(1 4DEC?02@U +17 b8AA 66A4( F @]{>>XH[V)DUMP_REGISTERS92833-16086,REV.5000,870621 870622.0001/P1K/CMP/PRG.PAS>7DUMP_REGISTERS44 .MBTBOILABELEMNAM EMNUM EMOPC EOI PAS.1 PAS.2 PAS.NONCDSSP4TT{66Hh?6`@6 :AD;A<=Dh?6A`A6 :;AD<>` M(6h?6A`B6 :;AD<=T 067 77y8##87(  CKSA. B. Q. 7@ȫk??X4fV*DUMP_LEVEL_ONE_E92833-16086,REV.5000,870621 870622.0001/P1K/CMP/PRG.PAS?jQDUMP_LEVEL_ONE_EHH ~.DLD.DST .LBPR .LPXR .MBTEMITEMITCDSLABELEMNAM EOI PAS.1 PAS.2 PAS.BLANKFILL PAS.NONCDSHxx/KKAT` M(( UaVA WVD LL ((KLN NX(C NZ(CT N@6h`6 AW N\xPAP NX @N^AL(x _KQ $$!R8Q(   Pas.NonCDS$@#SB??XV+DUMP_VISIBLE_LAB92833-16086,REV.5000,870621 870622.0001/P1K/CMP/PRG.PAS?RDUMP_VISIBLE_LABq__a .DAD.DCO.DLD.DST.ENTR .LBPR .LPX.LPXR .MPY CHECK DUP_EXT_LABEL EMITEMIT_ALLOC_EMAEMSYL EOI PAS.1 PAS.2 PAS.NONCDS_#KKA` @  ((@AA x)(|(6`pAp(H (D(?`pp(H`ppA]]kqK88P(O(c`Pp X@AAb(|`P(i`A(| AxAD( ]  FMAp(  @Fd>>X7V,DUMP_LABEL_ONE92833-16086,REV.5000,870621 870622.0001/P1K/CMP/PRG.PAS>+DUMP_LABEL_ONEOO .DCO.DLD.ENTR DUP_EXT_LABEL EMBSS EMITEMNEW EMSYL EOI PAS.1 PAS.2 PAS.NONCDSPUTLABELSYMREC_TREE OOOm ((JA  1A((  3(AJ ) H41`)P6((54JJ ` 9((`)P6A(&(((O (+ =, A**p)( 6 @M ??X V,DUMP_STANDARD_FI92833-16086,REV.5000,870621 870622.0001/P1K/CMP/PRG.PAS?BjDUMP_STANDARD_FISS'.DLD.DST.ENTR .LPXR DUP_EXT_LABEL EMBSS EMIT EMNEW EMSYL EOI FULL_SIZE PAS.1 PAS.2 PAS.NONCDSPUTLABELSKK`pepa`a @{@AcAcp,|(`bP}((WAcrP|((Wcv xf+tf(W bcvxftft`bP}A(>(W xAcvAxfIfc))KygSgxf fAcp~8a8e() `j ""kAiipb( u" U| @j>>XV-DUMP_SAVE_AREA92833-16086,REV.5000,870621 870622.0001/P1K/CMP/PRG.PAS>DUMP_SAVE_AREA##EMBSS EOI PAS.1 PAS.2 PAS.NONCDSPUTLABEL#!!i`(`MA(  p!  8('@d$??X9ZV.DUMP_LIBRARY_ROU92833-16086,REV.5000,870621 870622.0001/P1K/CMP/PRG.PAS?oKDUMP_LIBRARY_ROUGG .DAD.DLD.DST .LBPR .LPXR .MPY.MVWEMITEMRUN EOI IN_EXT_LIST PAS.1 PAS.2 PAS.NONCDSGff<<`YpBp=`W=@JA 3@A @N)V(9A @@hUAP CNQAA>> (((.A >RA(3TAD= @NX8=8B(f J<K L 8K(  C =V  @%;;XV/DUMP_EMA92833-16086,REV.5000,870621 870622.0001/P1K/CMP/PRG.PAS; DUMP_EMA KK  .DCO.DIV .ENTR .LBTCURRENT_EMA_SPACEMITEMITCHAREMIT_ALLOC_EMAEMNEW EOI PAS.1 PAS.2 PAS.NONCDSK>GGA ` xA( A ( py`|(x@ (`y(xpz`A@z(.h6@zH P(.`zpz(`y(\`z@ A@p}AA}AAA__TG11@z([p}p{h6@{H p~~8{8}(OD`zhAH(h (wx}p{h6@{HHA p~~8{(u8}(j@_ x  A p|(!,EM ,0@ݺ;;XV/DUMP_END92833-16086,REV.5000,870621 870622.0001/P1K/CMP/PRG.PAS; !DUMP_END **L.ENTR .MBTEMITEMNAM EOI PAS.1 PAS.2 PAS.NONCDS*A`(h6`6A@  | Ap (@??XV0EMIT_MODULE_ENTR92833-16086,REV.5000,870621 870622.0001/P1K/CMP/PRG.PAS?T iEMIT_MODULE_ENTRcci.DLD.DST.ENTR BOILABEL CALLRUNTIME EMIND EMIT EMITCHAR EMNEW EMNUM EMOPC EMSYL EOI PAS.1 PAS.2 PAS.INLINEERROR PAS.NONCDSSPcEEpa`cP( P(P(P(%(.A u(1 vdbHw(1`M(! ypa($ z (1`M(+A {(- |(1hH`a(8Adbw`cP(<(IJ`M(FAD}~44 UE(H(\`cP(M(\`M(\      `a@(`4 `i ,,jAffpcAAgdhpb(&,03, @a??X%V1TOUCH_MODULE_FIL92833-16086,REV.5000,870621 870622.0001/P1K/CMP/PRG.PAS?[TOUCH_MODULE_FILbb.DLD.DST .ENTR .LPX .LPXR CALLRUNTIME EMIT_MODULE_ENTRENLAB PAS.1 PAS.2 PAS.ENTRY2 PAS.EXIT2 PAS.INLINEERROR PAS.NONCDSPAS.RECVALPARMbMMAu A((muAAw w{~{A w{~A{uAAy y'ʈP(+(a y.(a9u`(S`P(BPȈA(F(JEA(MI(Mh@22I4M ARuA(XXu @yA A yuu (2m( }q@A n~}Au( n~~660`M(`P(`(`X(Jp ~6  ++QlA p(&w +W@>>XtV2END_GLOBALS 92833-16086,REV.5000,870621 870622.0001 /P1K/CMP/PRG.PAS>END_GLOBALS }}^.DLD.DST.LPXR .MBTBOILABELBUMP_COUNTCALLRUNTIME DO_NAMDUMP_ENDDUMP_LIBRARY_ROUDUMP_VISIBLE_LABEMIT_MODULE_RECO EMIT_TRACE_BEGIN EMIT_TRACE_END EMIT_TRACE_NAME EMNAM EMOPC EOI }ZZ FLUSH_LITSPAS.1 PAS.2 PAS.BLANKFILL PAS.ENTRY2PAS.EXIT2 PAS.INLINEERROR PAS.NONCDSPAS.RECVALPARM SP SYMREC_TYPESTOUCH_MODULE_FILZ[[>;;AC A((;CAAEEILIAEILAICAAGG'߈P(+(//C@GAACC ([;(W K?>MA<LKAC(<LL[II`P(ePۈ(P(P݈A((lp`9(uAJ uLA(A(Hh6`6AD `Q(`^(  **KA`^A( AA((@h* < 88""8([&Pas.GlobalInfo8@d??XCV3SETUP_TRACE_BACK92833-16086,REV.5000,870621 870622.0001/P1K/CMP/PRG.PAS?;5SETUP_TRACE_BACK99  .ENTR EMIND EMLBO EMLLT EMREG EMSKE EOI PAS.1 PAS.2 PAS.NONCDSSP9MME[22A;<  `3(;=A<>(@=D==A<>AA<D=`3(2DB=AA=<((>M *25 @6 A 44p3( 1@<<X1~V4INIT_MACRO92833-16086,REV.5000,870621 870622.0001/P1K/CMP/PRG.PAS<hdINIT_MACROFF e .LBTBOILABELEMITCHAREMITCOMPILERVERSEOI FILE_TO_FILE_NAMFLUSH_CODE_BUFFE PAS.1 PAS.2 PAS.NONCDSF7KKH`}pbp`ho6H@`H pcAc8`8b(`|pbp`hp6H@`H pa`aP{(!a8`8b(AAghDAiAAjkADlghA=qsAuiAAmnAl` 8(Z++RKpbp`hw6@`HHA pcc8`8b(NA ]p p+ _d //ge8d(,\+DC=SFx v #  8 MACRO,/ J{ @E>>X!V4PROG_PROLOG 92833-16086,REV.5000,870621 870622.0001 /P1K/CMP/PRG.PAS>/PROG_PROLOG e!.MBTDO_NAMPAS.1 PAS.2 PAS.NONCDS44`P (`((h6`6`Pp4  w 8(@==XuwJV5PROG_BODY 92833-16086,REV.5000,870621 870622.0001 /P1K/CMP/PRG.PAS=PROG_BODY }}.DIV.DLD.DST.LPX.MBTBOILABELBUMP_COUNTCALLRUNTIME DO_NAMEMBSS EMDEC EMDI1 EMITEMITCDSLABEL EMIT_TRACE_BEGINEMIT_TRACE_NAME EMLAB EMLBO EMNAM EMNEW EMOPC EOI }HH C NEWLABELPAS.1 PAS.2 PAS.INLINEERROR PAS.NONCDS PUTLABELSETUP_TRACE_BACK SPTOUCH_MODULE_FIL WALK_FILESHLLh@6`A6A  !`M(`^0`A(A p" ` DpADA# D $`Q(5!`M(G``(>A>!A%&D'AJ('SLDDAJ`h  ]&`M CXA(ee)h*`E(`2(`Ipp` @@?A+PC(~(`PB(PC(((-(.(}JJA(A/(0(hFD '` @?1x` @@?A3!Hh @A(5AA75AA7788(r`B0W0M( @(ل(nnr<<9(:`(`PB(툈PC(PD(PE((;(<(=(hG hA A`^( >h AAA  p_n  << $$8(&3oqpklm u<u:B@[>>XȳV7PROG_INTERFACE92833-16086,REV.5000,870621 870622.0001/P1K/CMP/PRG.PAS>#PROG_INTERFACE#".MBTDUMP_EMADUMP_ENDDUMP_LABEL_ONE DUMP_LEVEL_ONE_EDUMP_LIBRARY_ROU DUMP_REGISTERSDUMP_SAVE_AREADUMP_STANDARD_FIDUMP_VISIBLE_LABEMIT EMIT_TRACE_NAME EMNAM EMNEW EOI IN_EXT_LIST PAS.1 (PAS.2 PAS.INLINEERROR PAS.NONCDSp7HH`^0_( `M(   `M(AAɀhf6`g6AA  l A(.ɀhf6`h6A `(2(R`PЈ(6(>hf6A`i6(Ehf6A`j6//jH `M(R `M(ahf6`k6AA@ / ac ??d((8c(lt|Pas.Stop Pas.TopOfStack1 Pas.TopOfStack2 Pas.Initialize ?``f77`(  `P(P(P((cAAA(A(Dh`PpA` K F 8(@跨>>X,V8PROG_EPILOG 92833-16086,REV.5000,870621 870622.0001 /P1K/CMP/PRG.PAS>}PROG_EPILOG zz5.DLD.DST.LPXR .MBTADOPT BOILABELBUMP_COUNTCALLRUNTIME DB_STATEMENT_LISEMDEO EMDI1 EMIT_TRACE_END EMNAM EMOPC EOI JUMP_PLUS NEWNODE PAS.1 PAS.2 PAS.INLINEERROR z¬PAS.NONCDSSPTOUCH_MODULE_FILWALK_FILESEE`P( P(pP(qP(r(s`M( Hh6`6AJ `MA(!(( `QA((J `^(.AA.1`2(8A8A;`9Q(gD@TT{PE11KAzAQzJxxx||xAAgjmA (v(v(v(vh@T v} 55~!!8}(&>?  Pas.Stop 5Z@g??X`jV9NUM_VAR_PARMS 92833-16086,REV.5000,870621 870622.0001 /P1K/CMP/PRG.PAS?<UNUM_VAR_PARMS 22 .DLD.DST.ENTR .LPX.LPXR PAS.1 PAS.2 PAS.BITMASK1PAS.NONCDS2KKJASApOSY'iPh(($@S]A[.g ,Hc@ ($pOAS_QQ (1(KQ[.g ,Hc@ (C`OpO@QaAQ(+ ;K`OpP sM`PU VAU(d` Bg @5T>>X/>V9FIND_NUM_PARMS92833-16086,REV.5000,870621 870622.0001/P1K/CMP/PRG.PAS>90FIND_NUM_PARMS &&G.DLD.DST.ENTR .LPXR PAS.1 PAS.2 PAS.NONCDS&FFjL((JA.A.4'=P<Ap*.6,, ((&`*Ap*,8,(`*p+F sH(`+0 k1 A0( < @??X=|_V:GET_PARAMETERS_D92833-16086,REV.5000,870621 870622.0001/P1K/CMP/PRG.PAS?sNGET_PARAMETERS_DNN.DDE.DST.ENTR EMIND EMIT EMLAB EMLBO EMREG EMSKE EMSKL EOI JUMP_PLUS PAS.1 PAS.2 PAS.NONCDSNssRGG`I( T ` (GpJpHAUV A UAV VDWVXYZV[VV\VAV1]^VhH DKD K T 8H8J(s XGN DOAMMpI(' -1@l,;;XrV;INFCR 92833-16086,REV.5000,870621 870622.0001 /P1K/CMP/PRG.PAS; 6INFCR M [[ .DCO.DDE.DIN.DLD.DST.LPXR EMIT EMLBO EMSKE EOI FNCRG GETBOUNDS LOAD_INTEGER PAS.1 PAS.2 PAS.BITMASK1PAS.NONCDS[KKA pJ `P(((A ,HH@(P($(-A A(22pAA`(` (G(AA(U dKMMA(S(MD(Up`(_\( (l(fA(z (x(rA(zp`A(A `(@ AAxA!d h  @  ))j8( 1  ) d @-??X$_OVLOAD_FUNC_RESULT92833-16086,REV.5000,870621 870622.0001/P1K/CMP/PRG.PAS?Y?LOAD_FUNC_RESULT@@ O.DLD.DST .LPXR EMITEMLBO EMSKE EOI FNCRG PAS.1 PAS.2 PAS.BITMASK1PAS.NONCDS@cc>88A p9`9( BC(`9PM((D`9 ,HHK@ (8 @ EAA: :Gx>X~VPROC_PROLOG 92833-16086,REV.5000,870621 870622.0001 /P1K/CMP/PRG.PAS>+PROC_PROLOG 66hrDO_NAMEMIT_TRACE_NAME EMNEW GET_NAMEPAS.1 PAS.2 PAS.NONCDSSYMREC_ROUT 611A(A`9(`M(`^0`A(1  8(@a'==Xu VPROC_BODY 92833-16086,REV.5000,870621 870622.0001 /P1K/CMP/PRG.PAS=PROC_BODY %yEMNEW PAS.1 PAS.2 PAS.NONCDSPUTLABEL"AA   8( @F>>XVPROC_EPILOG 92833-16086,REV.5000,870621 870622.0001 /P1K/CMP/PRG.PAS>3CPROC_EPILOG ||9?.DAD@.DCO.DIV.DLD.DSTA.ENTR B.LBTC.LPXD.LPXR .MPY<BOILABEL;BREAK_CHECK :CALLRUNTIME 9CHECKBOUNDS 8CREATE_INFO_FIEL5EMBSO 6EMBSS 3EMDEC 1EMDEO 0EMDI1 2EMDLT /EMIND 7EMIT|ww4EMITCHAREMIT_TRACE_BEGINEMIT_TRACE_ENDEMIT_TRACE_NAME .EMLAB -EMLBO ,EMMVW +EMNAM *EMNEW (EMNUM )EMOPR 'EMPRL &EMREG %EMSKE $EOI FIND_NUM_PARMS"FNCRG #FULL_SIZE GET_NAMEw GET_PARAMETERS_D!INDIRECT_THROUGH INFCR INLINER IS_STRING JUMPLOADLOADAD LOAD_FUNC_RESULTNEWNODE NEW_INLINE_LIT_NNUM_ELEMENTS NUM_VAR_PARMS >PAS.1 =PAS.2 EPAS.BITMASK1PAS.MIN PAS.NONCDSHH rPUTLABELREAL_TYPE RELEASEREGRELOAD_FUNC_RESUSAVE_FUNC_RESULTSETUP_TRACE_BACKSPSTACK_TOO_FAR WALK_FILESHYTT`((A FG>DHADJ`DLx DNx DPx 5R;H@FG>AAAADHDJADLxjjSTIIhp DNx DPx n(yA!tHAxR(}RR7Sh  H)$A:TAHRj  iX AAppp(~~?LL @>pe@e((dA`e@?>hDhU@ACN@AjADjW((`ADjYff (($flDl['PA((Dl]. ,HtH@E~4PP(7_Dl`xnDlb!h o-noD$DfP@Af(Dj['PA(-(`DjdC]. ,HtH@E(`7_D@jdAC`xnDjd@ACb##p4S!h l-nl@$@epe(# dq 1r8q(u`hhv88`>M(|`A(}(A> >7H.>4f.A>$>7_.A>$7_JH.>$q>AA3H6RD$6R$ @>((6R$h  (v ;HHh>` JA?>A>(7g'H$A7Z`pBh6@BHBP(Ҁ(@BpB(hABp+A8>ZDA$<+hJ`>M(A1(5R(`>M(7Q(A(6R ;@$  (> RRr22AFG>7D7J`>ADb!hA ;AD7Lx=AA;=AD7H`6(/A-7RAA77A9R 3A9? s@ AA>>p6A 9(66gI`g(M/`hg(TA&H(eh} hh~ ?hh->h@$6 fk ClAAjjpg(I0qJJADii#A{iAA@k(g(g`>M(@>((`A(AphA@H(((`h(A:m7_kHAA@n(((%pH(7VkR`>U(Dii ,UIIHs@EA(i(DiiPA((DiqP(AJi@>A((iJ@>((A9i@n(A((%sAH(7t?Hm)m$(g`h(A:m7A_(%pHMQQkH`>MA(%%pRh> m-D>m$%ARRDb!po2o$(0%pR?+Rm)m$ADim:m(PA:?uD@iAAmImm0m0>(gAUvH> wUAAkNAA?kCnA`cAkHkA,k gp zq8p(q>~t h~ AJ~->~ } :8(t  `| J@?>AJ->  o8( BBI''AFG>DJ`>ADL`|x J@?>AADHR)B A 8( ``55`>M(D@iAA#@k((@>((`(`(A:w(A:x7_$A7_H$`|p|(`((`   AAAApp(EE`>M(`p}(p}JA>ADYp~p|D>['P(/(CA"2>PJ(5(CD>dAHAp~A A(I(wD['P(R(lDGGMT''].(]p\(lD].PplAADP`~p~(C{>HG { 8( ~~KK`>M('D>9W/('`>@JA?>Ci@A)A) A(()AA-D-yx3D-{x4AD-}H @p5345D-@A)(`>@@?~KQQ>C+p(+ ((+/D@/iAA-#--h( ?A-x(D/P+(`>A@?>C++1D1x3D1b!p4'34(  '6 ٽ786( J9 `>M(@:?c(F7J/.>@$ PFG DH(9 ))I`>M(O`AA([S>R`>^(XX ZG) z[\ i](I QQ^))A*`>MA(d(g>6>$ @>(o( qpB`B(v(`B Ap6D$>JD6>$*Q  (^ ~EE`>M(`>`A(H:`>@>pAA37_h> AJ->$(`A (@>((:(:A7_JD.>$7_.>$(D>W.( H(A (A R(A:a7_.>$  3( ZZ$00`>M((`A(A> A>R A @>((:(:A7_JD.>$7_.>$`>^(GZ  ( PP_''JD>W(pA\䠄`>^(**6,. 0A3>;5;8`>^(@`>M(@@P F@C ee/DII8C("  0"-  1!3^]a`eq  @>>XV PROC_INTERFACE92833-16086,REV.5000,870621 870622.0001/P1K/CMP/PRG.PAS>PROC_INTERFACEcc DUMP_EMADUMP_ENDDUMP_LABEL_ONE DUMP_LEVEL_ONE_EDUMP_LIBRARY_ROU DUMP_REGISTERSDUMP_SAVE_AREADUMP_STANDARD_FIDUMP_VISIBLE_LAB PAS.1 PAS.2 PAS.NONCDSc$$AA  AA  AAA$  8(@7EV??XV MODULE_PROLOG 92833-16086,REV.5000,870621 870622.0001 /P1K/CMP/PRG.PAS?MODULE_PROLOG 44 .DLD.LBP.LPXR .MBTDO_NAMEMIT_MODULE_RECOPAS.1 PAS.2 PAS.NONCDS4''#J@6Ah6 '  8(@,>>X(V MODULE_BODY 92833-16086,REV.5000,870621 870622.0001 /P1K/CMP/PRG.PAS>/MODULE_BODY `s.DAD.DLD.DST.ENTR .LBP.LPX.LPXR .MBT.SBTBOILABELDUMP_EMADUMP_END DUMP_LABEL_ONEDUMP_LIBRARY_ROUDUMP_STANDARD_FI DUMP_VISIBLE_LABEMITEMIT_MODULE_ENTREMNAM EMNEW EMOPC >> EMPRL EOI FLUSH_LITSPAS.1 PAS.2 PAS.BITEXTRACT2 PAS.MIN PAS.NONCDS SP WALK_FILES>AADAD  A@  7Ap(vLLJAAAA҄p )p`(ZpApAA(@@@p@AAAOh6p@HH`88(2]((@@@ttϙdKK6h6AxAv.A(A ΡA AAA  AAt * ))@8(& )  @ ??XV MODULE_EPILOG 92833-16086,REV.5000,870621 870622.0001 /P1K/CMP/PRG.PAS?oMODULE_EPILOG PAS.1 PAS.2 PAS.NONCDS  8( @r2/PASCAL/CMP/STD/SCN.REL:::5:61:128 644 0 0 36400 5300501455 34646 /PASCAL/CMP/STD/SCN.REL:::5:61:128 ""$= =SCN REL +,+-+-=yy,FST ;;XV 1PSSCN 92833-16087,REV.5000,870621 870622.0008 /P1K/CMP/SCN.PAS;@ﶯ<<Xe\V 1PUTLINE 92833-16087,REV.5000,870621 870622.0008 /P1K/CMP/SCN.PAS< OPUTLINE NN 3.DSTPAS.1 PAS.2 PAS.NONCDSPAS.WRITECHAR PAS.WRITEDOUBLE PAS.WRITEINTEGER PAS.WRITESTRING SOURCE_LINE WRITELINE N!??` [p ` A0Zp AAM`MR`H(:` (($@̀h AAM#`MS()A )`TS`/(-(3 2`/S(: :`XSSU`}@(>(J ? C`VUA J`1W}UL ^LO mP 8O( : @7==X$V 2ENDOFLINE 92833-16087,REV.5000,870621 870622.0008 /P1K/CMP/SCN.PAS=@RENDOFLINE qqD .DCO.DLD.DSTERROR NUMDIGITS PAS.1 PAS.2 PAS.NONCDS PAS.WRITECHAR PAS.WRITEDOUBLE PAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRING PUTLINE SOURCE_LINE WRITELINE qn8??` m((`  (pG`  .A(J (JA  UA(!(!W  ` (%(F`  -A(,,`G(m` (3(D: ncXAXYA n ZN?==J .Y n(hK n Z .YJA nOAAO V nO[ [ n\Y` }(_(hAf n 1] }Y n m n\^` H(s (pH y ` 'H`H@|CCpQ `A\Q `n[[AY( `q[[Y `\Y` Q pA( Rt__Y RpMpL` (-pQpH`H @bpNNpK`N'pJ`K܍@@PM((  ``Y`G(` A( ҡ n`Y(@KhL@pI`IA((  `\I`G(` ( n\I`L@IpL `aY`G(` (A  na~~@@Y`KpMJpI `JI`G(&` ((!`HP((  naY(! ! nA`Y& nJI`L@IpL8HA8Q(/` H(9 7 ` 'UA9`G(@ n~Q? np D ' [FR OOmS668R(@  ),^ >>>>>> Importing from **** **** >>**** PASCAL SYNTAX ERRORS IN THIS LINE O S @K% ;;X V 3READLINE92833-16087,REV.5000,870621 870622.0008/P1K/CMP/SCN.PAS; READLINE }} .DIN.DLD.DST .LBT .SBTCHCKB PAS.1 PAS.2 PAS.BITMASK1PAS.ENDOFFILE PAS.NONCDSPAS.READBUFFERPAS.WRITECHAR PAS.WRITEDOUBLE PAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRING PUTLINE }/SOURCE_LINE WRITELINE a??ppJD    / JJ / # 1` ~ p(p ~` @(#(%` p` i(GA- `2 `A9 `@ ` 1 ?CCE `AG`(K(^h6@݄H ,HH@(^@p(G`(b(|p`@(|h6@H  ,HH@(|`pވ(d`(` I(@@ Ap }` Q p L( RAAA R R耈`((`@(( R 1( R 1J R`( #(`(BB}J #(pp݀h6` (`  N 0 INp  `  p  `p |`p }B  55 !!8(["* F 1] " @5ƣ @#;;XV 5NEXTLINE92833-16087,REV.5000,870621 870622.0008/P1K/CMP/SCN.PAS; %+NEXTLINE 8.DLD.DST.ENTR .LBT.MVW.SBT CHECK CLEAN_PATHENDOFLINE EXTERNAL_IMPORTEIFBRK PAS.1 PAS.2 PAS.CLOSEFILE PAS.DOUBLE2ASCIIPAS.ENDOFFILE PAS.ERRORCATCHERPAS.NONCDSPAS.STOP POP_SDREADLINESOURCE_LINE SUMMARY XREIO ''\`A@(`ph6@H`'  :Ap(11p`5A@(4hI6@Hp;0;`p(1 54> j;? A<`[>A` .UW`(pKphY6H@HpLL88K(㠈`((>e(>j]]h66AMmM>om#>t߁>y䀄`pKK((((((hZ6Pp] u`O DDGP..AO`p(v Pascal: Source: Importing Line: , Errors: (CR to continue) _ D~~Z~<O]::XFV 6NEXTCH92833-16087,REV.5000,870621 870622.0008/P1K/CMP/SCN.PAS: f;NEXTCH ((2y.LBTNEXTLINEPAS.1 PAS.2 PAS.INLINEERROR PAS.NONCDS(~~T33`PA((A`P?(P@(PA(PB(/(7(:`r(`Dp(`Cp`Ap(: h>6@|Hp`| p|`}@|(,(. p(:@|p|`D~%3pp(:@hE 8:; < 8;(1 $@";;XV 9INSYMBOL92833-16087,REV.5000,870621 870622.0008/P1K/CMP/SCN.PAS; "&INSYMBOL xx.CBT.CFER .DCO.DLD.DST.ENTR .LBPR .LBT.LPXR .MPY.SBTCHCKB CHECK COM_OPTIONS ENDOFLINE ERROR FEATURE_LEVEL GET_CONSTANT INT_CONST NEXTCHPAS.1 PAS.2 xgg PAS.BITEXTRACT2 PAS.BITMASK1PAS.BOUNDINTEGERPAS.ENTRY2PAS.EXIT2 PAS.INLINEERROR PAS.NEW2S PAS.NONCDS!PAS.SETINIT "PAS.SINGLEMOD PRINT_TOKEN STRING_INSERT g}>>pp`@(%`p` ,H#H@(h$6@H`@H(%h$6@H`D'`P(+(0`r(0p` ,H%@(`@>??(@(Kh$6 @H`l@@pΈ(:`pp`@(`pph$6H@Hh&6p@HH`8 8(W@΄pr0//p`@p~0/@}<</@p`@(Ā`(`]A@"6Ah&61(((p@p0//p2`P](P^(Pb(Pc(Pe((`fp3(`_p3(`[p3(`\p3wm66(`Zp3(`gp3(`p(`(`[(`2Pk(؈Pm(Pn(؈Pq(Pt(숊P{((`/ p/(`s(`/p/(`((s(@/p/(RR(""@/p/((`r(` @((h$6@H`l @p( p2`gp3`( 2R  O ]]8(D9(IF DO OF TO IN OR END FOR VAR DIV MOD c}`` SET AND NOT NIL THEN ELSE WITH GOTO CASE TYPE FILE BEGIN UNTIL WHILE ARRAY CONST LABEL REPEAT RECORDhhMM DOWNTO PACKED MODULE IMPORT EXPORT PROGRAM FUNCTION PROCEDUREOTHERWISEIMPLEMENT]ВP`@XP@PU~Q0 ̀]@h * `6@(1`6@p7 yi4`79 &:A88p6`Zp7(*++\A`p`A@(Sh\6@H`T+ lSV NWAUUpT(A.]<<`(o`Pz(d(gf(`9j(oVo3p9t(`(`Pz(}(`p(`((V3@p(V(VA(q`(22vD(`A@(h6H@Hp9(V32 , vApp(]q?? pppp4/`Px((A`Px(`Ps(ڀ(pp@|p|`xp(V59ꠈ(/4(V3 6p`(@!<@@;789:`@`x ,HH@(@`P(`PA(( 2V A"`Pw()`Pu()(.V,A.91(874/(>A ;=V>3p~~@AA `A@(MA K>`p` ,HH@p]?`0pA fp`PX(qPY(|PZ(P[((u@p4`p5p2(A@~jj77p45p2(AAA`Zp4J5`Zp2(A  BDpA`[AExA`[p45`Zp2(A Gj Q --8( Ѐ-66g`A@(`ph6@H` (  Hp6   VA  p (788 ppp `Pq(("p (+`Po(&()`[p (+`\p ` P\(` PX(8PY(=PZ(TP[(j(p <(ը`Pq(A(D`Zp (S`PZ(H(N KI`\p M==(SQAS(V`Po(Z(]`[p (i`Pq(a(gp f(i`\p (p n`PZ(r({ uJA xI`\p (9~(`2PYApCCK( 4(A 4L(pN(5(` ,HH@pJ("OPpAˆ` P\(`Pq((p (`<@L[]^_l{}jR@Q/PASCAL/CMP/STD/SG00P.REL:::5:38:128 644 0 0 23000 5300501456 34662 /PASCAL/CMP/STD/SG00P.REL:::5:38:128 $$$&  &SG00P REL +.+.+.&llFST <<XV6SG00P 92833-16088,REV.5000,870622 870622.1351 /P1K/CMP/SG00P.PAS<PAS.2 PAS.SEGMENTRTN  @g%@@X|1V6INITIALIZE_CODEG92833-16088,REV.5000,870622 870622.1351/P1K/CMP/SG00P.PAS@X.INITIALIZE_CODEG e.DSTPAS.1 PAS.2 PAS.NONCDSRESET_LABELS ^^--J J !J J  p J p ptpJ J @ p{p= p>p?@^ -. "/8.( @I @@X:V6INITIALIZE_ERROR92833-16088,REV.5000,870622 870622.1351/P1K/CMP/SG00P.PAS@e1INITIALIZE_ERROR,,p.DST.LBPR PAS.1 PAS.2 PAS.NEW2S PAS.NONCDSPAS.SETINIT ,YY//A846x0@047pp  # % ' ) + -pzY #/1 V281( ̀@U@@X}"V6INITIALIZE_MODUL92833-16088,REV.5000,870622 870622.1351/P1K/CMP/SG00P.PAS@hINITIALIZE_MODUL%.DSTPAS.1 PAS.2 PAS.NONCDSAA]J J J J J  pp pp pA   8( @^@@XMV6INITIALIZE_OPTIO92833-16088,REV.5000,870622 870622.1351/P1K/CMP/SG00P.PAS@]INITIALIZE_OPTIO<//j.DST.SBTPAS.1 PAS.2 PAS.BLANKFILL PAS.DEFCODETYPE PAS.NONCDS/-88 p0p1A vp2p3p4p~`Ѡppp5p6p7p8p9pcpdpepfpgphpipjpkplpm~~855p:pxBʡ J p; p<p p=p> p?p@ pApB pC`p p`p pEpF pH`p`p`p~}}Vm44pIpKpLpMpQpSpTpUpVpW`ՠpEpm`נ((p pXppYpZp[`Ӡpp\p]p^p_p`}LLA pb`pph6@H`h6@ˆHH`8ˆ 8(pҊ`p`p `ppL H ] 8(R +32,1    28P@2ZQ@@X6V6INITIALIZE_SCANN92833-16088,REV.5000,870622 870622.1351/P1K/CMP/SG00P.PAS@U,INITIALIZE_SCANN%.DSTPAS.1 PAS.2 PAS.NONCDSpp@++ pyp~ prp `1p`2p p`/p `0pp" p/p p. J /p| p}` 3p ` 4p ` 5p p +, *- 8,( P@#@@X>V6INITIALIZE_STATE92833-16088,REV.5000,870622 870622.1351/P1K/CMP/SG00P.PAS@l5INITIALIZE_STATE%.DSTPAS.1 PAS.2 PAS.NONCDSC022 pppq pspv pp p J p p J p p p p ` :p ` 8p ` 9p ` ;p ` <p `  2=p ,45 0685(@1@@X\V6INITIALIZE_SYMBO92833-16088,REV.5000,870622 870622.1351/P1K/CMP/SG00P.PAS@_PINITIALIZE_SYMBO r~.DST.MBT.SBTPAS.1 PAS.2 PAS.NONCDS DD`[pOpNhT6@NHH`Y8N8O(hU6A`T6ShV6`T6S`ZpOpNhW6@NHH`YhX6@NH`Y8N8O(    s  D p}ppp `MP Q 8P(n7 Y j @,JAAXhV6SPECIAL_OPTIONS 92833-16088,REV.5000,870622 870622.1351 /P1K/CMP/SG00P.PASAV[SPECIAL_OPTIONS !!.LBTPAS.1 PAS.2 PAS.NONCDSPAS.PARAMETERS!;; ppXA ^_p8`8((Wh`6HPb(h`6Pc( (W`pHh`6Pc("(M`8@a(LpZ`apYh`6@YHPb(=Pc(@Pd(CPe(FPf(CPgDD;(F(IpX(IpX(I`XpM(I`Xp9(I8Y8Z (*(M@pZUZ_p8( D uW[ r\8[(@a+-CDcd@sŒAAXV6 GET_SOURCE_NAME 92833-16088,REV.5000,870622 870622.1351 /P1K/CMP/SG00P.PASAOpGET_SOURCE_NAME :: Q7.CBT.LBT.SBTCLEAN_PATHPAS.1 PAS.2 PAS.BLANKFILL PAS.NONCDSSCHEDULING_TERMI:sEE`8((A tstNuhx6`y6u(( ( pnA tnvw(LA'8z|v`pnpM`8A@M(Bhy6@MHHh~6po@MH`oH(Ih~6E@MH`8M8n(+ Lp ##bq8p(0@N8# P @uH@@X}vV6 INITIALIZE_GLOBA92833-16088,REV.5000,870622 870622.1351/P1K/CMP/SG00P.PAS@RINITIALIZE_GLOBAʯGET_SOURCE_NAME INITIALIZE_CODEG INITIALIZE_ERRORINITIALIZE_MODULINITIALIZE_OPTIOINITIALIZE_SCANNINITIALIZE_STATEINITIALIZE_SYMBOPAS.1 PAS.2 PAS.NONCDS PAS.TIMESTAMP PAS.TIMESTRINGSPECIAL_OPTIONS ))ZAA  AAAA  AAAA  G)  8( @F}e=>>XzV6"ERRPASSER 92833-16088,REV.5000,870622 870622.1351 /P1K/CMP/SG00P.PAS>bERRPASSER ||Z.DAD.DCO.DLD.DST.ENTR .LBT.MBTEXEC PAS.1 PAS.2 PAS.BLANKFILL PAS.CLOSEFILE PAS.ERRORPRINTERPAS.INITFILEPAS.NONCDS PAS.PARAMETERSPAS.REWRITE_FILEPAS.SETEXITPARMS PAS.STOP|--(PAS.TIMESTRINGPAS.WRITELINE PAS.WRITESTRING POP_SDSAMURAI_ERROR -.CCA ` RA #` "(( #` "( ` m((``P([A#* n `PA(.(65 nA(== nD nCGGK n  .AR nY nJ nA` ne[ J  JJ ! # h JJ # #J  %J  'J  )@ #00 +  -`P(`p ( #((`p (J` $p  A((`p (` p ` &p ` (p ` p ` p ` p ` BB<p ` K0 MKp `Pp堈` J0 AJp  A  B  $${8(Operator breakAbnormal termination, , $DDHh6P刈(P(P爈((P(>(HA ` .p (Q`@ pR Rp ` A('%W`p (Q`@ pR 0Rƈp ` (=A;[`Ap (QE&&?~@ M`p (QhV6`6A` p & gQS NsT8S(LISTING ASSEMBLER/RELOCATABLE 33f Am[ t[A[A}[ [A[3  33i!!8(fInsufficient workspace. Increase virtual size (VS) of PASCOMP.3pIEEA[`(`P(((`P(`P(`P߈((SA   (`PA((݈(`P(([ A[--A[(`P((A(   -tA [SS355Appp Ap [(@&17ˀ[TERMOperator break. S1IOPR@H}g=/PASCAL/CMP/STD/SG01P.REL:::5:16:128 644 0 0 10000 5300501460 34546 /PASCAL/CMP/STD/SG01P.REL:::5:16:128 $$$ HSG01P REL +/+0+0-FST <<XԠV SG01P 92833-16089,REV.5000,870621 870622.0012 /P1K/CMP/SG01P.PAS<PAS.2 PAS.SEGMENTRTN  @H@@X5vV GET_FILE_PARAMET92833-16089,REV.5000,870621 870622.0012/P1K/CMP/SG01P.PAS@8 GET_FILE_PARAMET""".ENTR PAS.1 PAS.2 PAS.NONCDSPAS.PARAMETERS" ` @p  p8   8A  p (@@sR??X V OPEN_THE_FILES92833-16089,REV.5000,870621 870622.0012/P1K/CMP/SG01P.PAS? JOPEN_THE_FILES{{V .CBT .LBT .MBTEXECGET_FILE_PARAMETINIT_SOURCE NEWPAGE OPEN_SOURCE PAS.1 PAS.2 PAS.BLANKFILL PAS.ERRORCATCHERPAS.NONCDSPAS.PROMPTPAS.REWRITE_FILEPAS.WRITELINE PAS.WRITESTRING { MiSCHEDULING_TERMI HKKApp `[6h\6 MANA@ 8( ` 8P((h]6 P p  `  (L')0OM Ph^6`]6A P(J(9@OQO*Ph_6`]6A P(J(I}}KHHpQRpAVM`(` 8(](h]6H P(p Jl `OP]SSsOM Ph^6`]6A P((|OQO*Ph_6`]6A P( (p (p I}CCp J `OM\SSp `J( `A `aTTO ` `wUUOJJ ` `AV` Jp u` u(A`( ROM\SS R VVOA ROO ))WWOJA RX` 8((h]6 P(p PA ROP]Y(p Qp P ROO`SSO J lln(KMM8J(@1 ,+0   *ZThis version of the compiler is out of date.It should be replaced with a newer version. Enter options: NOCCTLl 0 @͢??X8V DO_OPTION_FILE92833-16089,REV.5000,870621 870622.0012/P1K/CMP/SG01P.PAS?DO_OPTION_FILE..>CHECK CLOSE_SOURCEENDOFLINE INSYMBOLPAS.1 PAS.2 PAS.NONCDS.33‰ p pyA`pA(( yA py `pp A3  ͽ8(@2AAX,V PROCESS_OPTIONS 92833-16089,REV.5000,870621 870622.0012 /P1K/CMP/SG01P.PASA`%PROCESS_OPTIONS ;;_.LBTDO_OPTION_FILEGET_FILE_PARAMETINIT_SOURCE OPEN_SOURCE PAS.1 PAS.2 PAS.NONCDS;FFy$$` (( A@8(`8P*((Hh)6P+p ` A($ AA"$F $% s& 8%(0@ >>X#gV READ_OPTIONS92833-16089,REV.5000,870621 870622.0012/P1K/CMP/SG01P.PAS>VPREAD_OPTIONS{{GET_FILE_PARAMETINIT_SOURCE OPEN_SOURCE OPEN_THE_FILES PAS.1 PAS.2 PAS.APPEND_FILE PAS.BLANKFILL PAS.NONCDS PAS.WRITELINE PAS.WRITESTRING PROCESS_OPTIONS SAVE_GLOBAL_OPTISCHEDULING_TERMI{~~gRFFAAAZ S` 8(pOA SOT U`fp 8` m((L ' nSU\V]. n WAWS5 n`XXS< n U .SAC neTTSJ n~5F YYSJA nN aNP ))[dQ8P(@   MSHAREDCompiling , )@/PASCAL/CMP/STD/STF.REL:::5:36:128 644 0 0 22000 5300501462 34612 /PASCAL/CMP/STD/STF.REL:::5:36:128 ""$$ X$STF REL +1+2+2$OFST ;;XǙVPSSTF 92833-16092,REV.5000,870621 870622.0019 /P1K/CMP/STF.PAS;@Ǚ>>Xo VCALLSTDFUNC 92833-16092,REV.5000,870621 870622.0019 /P1K/CMP/STF.PAS>{CALLSTDFUNC }}'`'.DCO.DLD(.DMP).DSB.DST*.ENTR +.LPX,.LPXR -.MVW$ADOPT "CHCKB !CHCKI #CHECK CVTNODE DOUBLE_INTEGERERROR FEATURE_LEVEL FULL_SIZE GETBOUNDS INSERTINSYMBOLINTEGER_CONSTANT}||INTEGER_TREE_VALINT_PARAMETER INT_TYPEIS_STD_FILE_IN_HIS_STRING MAKE_CONST_NODE NEWNODE NEW_CST_NODENUM_ELEMENTS PAC PAC_LITERAL PARSE_EXPR&PAS.1 %PAS.2 .PAS.BITMASK1/PAS.BOUNDINTEGER|~~} PAS.CONVERT 0PAS.ENTRY21PAS.EXIT2 2PAS.INLINEERROR PAS.NONCDS3PAS.RECVALPARM4PAS.SETINIT 5PAS.SETINTERINIT6PAS.SETUNION REAL_TYPE REPLACENODE STRING_OR_PAC_NOSTRING_VALUETEXTFILEVERIFY_STRING_EX~ jVERIFY_STRING_VA 1A`&zp `&z0p&z( kA0(A1ss_,RRA,xm%mAAv,xm3AmtA,txoAAxoA$AvtAFr,r`lxo @wo,@rA@+AAm,rAxomAAo$kvrs kq HrA*pppl(&u(-xOOA,p(A (`oPAp#`oPJ((&AA&,pp&AA,xAAxA$&A$& p *( pA0(xA1רBB&&A,p p#&JA&,pApA&$&pB( rA0(A1LLh--A,pQ $QpS#)S.&JA&5&O,OxSxS$C&O$G&pL G(Y TKtWUA0HT(A1HTT#]LLq`,vx&,tx&`&2P(t(v6|z`h-J&AAp,p+PAp"(`oP((A,pp"?? ##(,px& rp`&2PAp!Arv&p&E?=(  A0(]A1ܨ&;BB&&A,pp#&JA&,pAp A&$ &pB2 (yA0(A1ӛ!PPAAp@4hx,@A+ ,H@.A(K, I (LpA#QA,'&([A(f(f,P(fA,`,@AAp'DD q$$(u(z(zJA&(~&J&A,pA&A$&pDd(  A0(!A1œMMAppA"A(,xx`A@(`A@p`(A,pPA((s,pA(s,p@h-A`P(P(HHP("P(P(P("(0h  &7p(3h   &7p(3h  .&7p(3h2`p"<(C (m`eGEMM(m'(a(a'(Qp"X(`)(mAA'΀(gpA#mApA&(x&&A&A,xAAxA$&A$&p`..ԩA(& $&A&(&.( A0(A1è&7QQq,@pA+Pp*"*(`oP((,p@A+A+p*A"*A( rp(,@pAA+ + p*"*( rprAp&Ev&"(2-&(.A0#-(A1#--E6QQA,p+H `(NA,p  L (OAp #TA Xp(A,p f `oP(j(xAA'(q(pp #w A(A'((~p # ,p+=NN J &A,p  x  $&p$&`oP((&,pp & &,p@A A &$&@@CB"",p & ,p@J'&(((,pP(,p`@( $ A0 (6A1  LLA,p%p )0pA#/`oP(3([`([;AA(AAD(Q(OJ(V&A(Z&(kAJ'&(b(g(g&(kmmPg@@JA&Ap&,pp~&AA,AxxAA$A&$&p`oP(`(A&&pm(+ A0(A1--A&&AA,AxxAA$-(A0(A1~~~+QQ`oP(P(AP(e(A p(,p@AAA(@,@pAA !(8`&sA(8,p0AA5(@A:pA$@p(p,@p@'~yynIHH&(M(T(TAO$Sp(d,@pA@+AAb(AgpA$mp`&2Pp!v6|z`h-J&A$&(h 2AJ&y]( A0(A1&;#LLAp`oPJ((&A?(,@pAA??IA?EA,ExKAAxKA$IEA$Ip`oP(`oP((3`&2PpKA!KԈ`oP((A6zL`Zh[ff6;;A-( A6zL`Zh[A- $I&`oP((3`&2PpKA! KA6&zL`Zh[A--/$3I&I&f7(VQ;pR A08Q(A18QQL&; }\PPA,x@xo`o/!(4A5s5z`@`ox ,H@.pn AAp`n(`&2PpA!`o/@!(4`2DD@`ox ,H@.(A6z`hA-(A6z`hA-&@p`o/"!(@ @ި(((((( (((((((( ( ((~~c<<((((((((( (#(#(#(#(((((&()() () () ()()()T()-()()"()QA%())`n(5~]]((,::`&2Pp!5@`o/!(f4A5G5NA5U`@`ox ,HH@.(ff]f(.jssRRA0g3x3hA-(\A1g  }G6t 3B "&;z6@6Hs$$  !">c$@\??XVSTANDARD_FUNC 92833-16092,REV.5000,870621 870622.0019 /P1K/CMP/STF.PAS?d STANDARD_FUNC **ɹCALLSTDFUNC PAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDS*EtA;( kA A (A  @/PASCAL/CMP/STD/STM.REL:::5:56:128 644 0 0 34000 5300501463 35204 /PASCAL/CMP/STD/STM.REL:::5:56:128 ""$8 |8STM REL +3+3+38uFST ;;XԐVPSSTM 92833-16093,REV.5000,870621 870622.0023 /P1K/CMP/STM.PAS;@Ԑ;;XVGEN_CODE92833-16093,REV.5000,870621 870622.0023/P1K/CMP/STM.PAS;  GEN_CODE ++9GENERATE_CODE PAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDS+=`Q( ( kGA (A  @1P==XVhVCONDITION 92833-16093,REV.5000,870621 870622.0023 /P1K/CMP/STM.PAS=TKCONDITION __E .DCO.DLD.DST .LPXR .MVWADOPT CHCKB NEWNODE PARSE_EXPR PAS.1 PAS.2 PAS.BITMASK1PAS.ENTRY2PAS.EXIT2 PAS.NONCDSPAS.RECVALPARM_kk;::Ahd`e Z @ [J ((pII](: ^ ,Hf@ A(5+`a B1B B  b`gk:(V J>00LA;KAJhe ZA(;KK3 ;D e0 ,g @y?@@X=xSVSTATEMENT_NODES 92833-16093,REV.5000,870621 870622.0023 /P1K/CMP/STM.PAS@[4STATEMENT_NODES >> B.DLD.DSTADOPT NEWNODE PAS.1 PAS.2 PAS.ENTRY2 PAS.EXIT2 PAS.NONCDS PAS.RECVALPARM>66V$$AKLM- OLMAA1-1`,( PALM1A -1AA-/6$(A 3(..!5A%4 3p, /(AA/QA %4Q4>?&.@t ==Xc bV STATEMENT 92833-16093,REV.5000,870621 870622.0023 /P1K/CMP/STM.PAS=` STATEMENT zz&.DAD'.DCO.DLD.DST(.ENTR ).LBPR *.LPX+.LPXR .MPY,.MVW#ADOPT !CHCKB CHCKI CHCKS "CHECK CHKBS COMPTYPES CONDITION CST_EXPR_FEATUREEQUIV_TYPES ERROR FEATURE_LEVEL zwwQGETBOUNDS INBRO INFTS INSYMBOLNEWLABELNEWNODE ORDER PARSE_ASSIGN_ID PARSE_EXPRPARSE_IDENT PARSE_PROC_CALL PARSE_REPLACE %PAS.1 $PAS.2 -PAS.BITMASK1.PAS.ENTRY2/PAS.EXIT2 www0PAS.INLINEERROR 1PAS.NEW2S PAS.NONCDS2PAS.RECVALPARM3PAS.RECVARPARM4PAS.SETINIT 5PAS.SETUNION REAL_TYPE REPLACENODE SEARCHID STANDARD_PROC STATEMENT_LISTSTATEMENT_NODES TRANSFORM_TREEw>dHH`%pu`uA J@&%* (`u((@upu(`uA J@&%* wpvw (+(R`vA(RwAAy+y P%5(9(Kpv+y   >p}"E} +y JJ[H,,(Q)wAw(%"VAv X`%2P Fp} a} f J %JA%{A+{ x}AAw}J t~ 8~( ~~`TTAA)VxH%H)WxHA HA+X xHA HA@)VA* pH!H (@)V* AP M()V@AIAI)VIIA@)VA* P MpH!H ~?XX(@)V* I)AWxHIAAH)V@A* A@hk, )X`kA, )X(A)XA+X  I+X xHIH+R @AIA@)WAAN#INpH"(H +@X ##!+-A'F(1(:A+X 'D(9pH"@H #.@(gVD ZA.AY3AVP3WR3XT(/AYYK :lXXA+^  (yA#x^`( &`*  &`*  +^ @AA A((AA AA&* x ' (()A( ((AA[[::AA &A* x ' (( ((  &*A x  A' (Ap ! (A (^A`(`[  J 8 (l LLA  b5  l`h,A #JA%RA`%zpA+R  A(9+RJ xq%AAq+R '%(C(b(bA+R  ,HH@-(b`%Z(bAX %B#[RR^BRBR+@R AAr+bA xqrAAq+R '%({((A+R ` A4q Ahxt+R *  ,HHt@-(+@R AAr r  >(pu"u #+UUbR+@R AArr`%2P WpqA5 A lq l( AA^#Ab^ \#b\`%2 ,HH@-( P5  l`h, YQQ`%z0ApA`%2P G( (6 AA5  lA`h, Y A$JHpq")q h'e(.pq"5q (?AAJHAh`, D A `AA`jA+j `A, +jSPPA `, +j A+jA xqPAq gAA`P`%z0ApA`%2P Cp?`?(xx`?(`%2P Fpq q 4l 5 l v vA  Z  AAX+X~0PP #ZX#Z%#\ZPNN ((+N @ALA+N xqAAZqAALN(`%2P Dp@`@(`%2P DpqA!q A((`@(A  Zuu<DD  AAX#AZX#bZ`%2P UA((   #Z%('A % A jA##%jA#'Z%`A0%zp%zb%`%2P SpqA 7q u7(@{;SS||99A.8{(A/8{{l%;qFDVJgTHddg6@6P6@6@N S ` A `%2P Sp  (A.(A/˨ NNAp\+g ceaca(@p\(X4{  hx|+c  ,H|@-(X@4}  hx~+a  ,H~@-(Xp\Acp[AapZ`[PZZZC"66(X`ZP >('(,%J](0%AA]+g x{: {]AA_)gA@h,  Gg_)_`A, )_x{ AA{#Xg_Z X`\ AA(AAgAe` ?p\({}if`%z0p`0%zp%z  ۊ8( GXXp A A A A AA 4   5  `h, @4 A  AJA%A+ P IpA! A(+ * + >XQQA( + * . @A( + * P%Ap"A + + 0 `+@  (/+ x%4  hxA+ *  ,H@@-ETT(UA+  S  >(VAp"[ ]A#a`%2P Hp4   5t  y A(}@4    A5  `hA, %+ oRR@AA+ (+ @AЁЀ(p" 4   `@`%2x ,H@-p@4 A 5  A (O`%2P Y(IUUP Z((  A(  A(Ah \0#A@4 A 5  ɈA`h, %+@ AA+ 0(>+@ A=(?p@RRA"D AF#JA#N(Qp`%2P XAp[ (_d AA AA&A1q  + @AAzp)`Ap+ `+   00Q#%((#% ((+  _0(+oaA.(A/ڨ %;%3HH`%2P >p{!{ (ppr`%pq`q J@JA&%* ހ(@qpq(`q J@JA&%* @AuAu ((3`r(3uw+w ⊈P%5()(,pr(2)wii1??u(@qpq`r(<`q("@r BG J %AN  ssy+y x{u{#`%s+u A @%A(p+u x%i p| }8|( tt~HHA  4c A ! "5  A#%`%2P [pA  #@4i A "5  ց #%`%2P T((  A#%AJ%t8(A.(A/ܨCC''A $    %# %`%2P Vp A!  &A(  A  #  % %C. (    A. (A/  LL ..A % '   V4 X  5 3  X ]A 6 ]# : V%`%2P Xp b  C b  A F # JA V% VJ%LT N( h c R dA. O c( A/ O c c~~a) lTTA  p p A  A  `%2p 4  A5 A   ( 64  A5  ` h A,  % + @A A+ x + P B~ KKp !  (( 6`%̀@ ap !  )( 6   * AA   +  #  #  + P N( ( A+ ( p ( ` ?p + ` `%p%` p `%U` NN J@JA&% A+ , )A x  AA+  x  AA+ A .x  AA+  `  ( <( J A( F A ( J# J p `%2P C( P( U Rp ( ]`%2( ]II Y%%p  ] 0` ( |`%2P Xp A i  l  ( r( v# v %` @%̤p% %IJ ~( # W A.  ( lA/    %; LL`%2P >( ( A~   1  # %(  A  J@%4( A5  ` 5 @`%2x ,H @-Ap   `%2P Kp ` ( A  @4/  BBA 5 %h ǀ ` 5@`%2x ,H @-( `%2P =( &P K( ZP L( dP M( iP N( sP O( nP P( xP Q( }P RA( _(  *A : 6 ( 0( YAJ %Ah 8` 9, + 2'ַ >FF EP A( B( WA+ / >P =( MP >( P( S A O( V R( Vh ]0( Y Y( A \ ^(  a|A c(  f h(  k{ m( A p c r(  u A w(  z |(   ( h ^HHS &&D0% A(   4 % ( ( # % %` A( # A % J%H ( !  ^^A. 2A h 9, A( /  Ϩ  14 6G @kf)2' -.,37F/(4:*5KLM ߼ .  &  %; <66  =%%  !"#$%&'()*+,-./?O6@v >>XVSTATEMENT_LIST92833-16093,REV.5000,870621 870622.0023/P1K/CMP/STM.PAS>STATEMENT_LIST+~~~(.DLD.DST .LBP.LPX.LPXR .MVW ADOPT CHCKS CHECK INSYMBOLNEWNODE PAS.1 PAS.2 PAS.BITMASK1PAS.ENTRY2PAS.EXIT2 PAS.NONCDSPAS.RECVALPARMPAS.SETINIT PAS.SETUNIONSTATEMENT ~ :dSTATEMENT_NODES ~~LLAyAA  |` @` 2x ,H@Ap 6` 2PA(:(<<` 2P(@(UJ @ AP~}}'&LLL(N(U` 2PA(R(UT(NAd hǀ `@` 2x ,H@p@A hAx h`@}..` 2x ,HH@(AA AJ .(!;; %%AAhAp(ը@6  ;  & @~>99XI+VBODY92833-16093,REV.5000,870621 870622.0023/P1K/CMP/STM.PAS9 i,"BODY @@ up .MVWALLOCATE_STRING_CHCKI GEN_CODEPAS.1 PAS.2 PAS.NONCDSSTATEMENT_LISTUPDATE_GLOBAL_OP@33 7Ah(`) % &`2P*Ap!A!' AptA3 " G#8"(' ; *' @/PASCAL/CMP/STD/STP.REL:::5:72:128 644 0 0 44000 5300501465 35103 /PASCAL/CMP/STD/STP.REL:::5:72:128 ""$H HSTP REL +4+5+5H#FST ;;XܴV#PSSTP 92833-16094,REV.5000,870621 870622.0027 /P1K/CMP/STP.PAS;@ܴ>>X!V(CALLSTDPROC 92833-16094,REV.5000,870621 870622.0027 /P1K/CMP/STP.PAS>CALLSTDPROC ||q\-.DAD..DCO/.DDE0.DIN.DLD1.DMP.DST2.ENTR 3.LBP4.LBPR 5.LPX6.LPXR 7.MVW*ADOPT )AOC 'CHCKB &CHCKI %CHCKS (CHECK $CHKBS "COMPTYPES !CONVERT_SUBRANGE#CORC1 DEREFERENCEABLE |F1ENUM_TYPE ERROR FEATURE_LEVEL FIND_SYMB_FILEFULL_SIZE GETBOUNDS INSERTINSYMBOLINT_CONST INT_PARAMETER INT_TYPEIN_EMAIS_CHAR IS_STD_FILE_IN_HIS_STRING NEWLABELNEWNODE NUM_ELEMENTS}}x PAC PARSE_EXPR,PAS.1 +PAS.2 8PAS.BITMASK19PAS.BOUNDDOUBLE :PAS.BOUNDINTEGER;PAS.ENTRY2<PAS.EXIT2 =PAS.INLINEERROR PAS.NONCDS>PAS.RECVALPARM?PAS.SETUNION REAL_TYPE REPLACENODE STRING_LITERAL_L}00'STRING_OR_PAC_NOTEXTFILETRANSFORM_TREEVERIFY_STRING_EXVERIFY_STRING_VA01A`,zp `,z0p,z( kA;(A<**BA3(263@A5A(5.(+p7(27* .29 [:AA288A3(ee+AFFAFMAA6AxAA*[A`6`x @6@A5@AA6xAAA*pe  IA2p(A,u,,{A6Py((6@A5/g gp( ,(CA;>A(<MMA!Y6D xA`AA(pA`AA@h(`,@(`hpAhA D01 -,F6@FAABBA.D( (AB A(( 6BAB(BA.D(9(@6<<s&&@FAAB6FAxHDAAH6F5AxHBAAH/pH6F@A5`H<9(U I=KA;:J>IAD(<:JJDp[GGA63=9Ae36=Pl(l('p2( v3y=p`ψPz(~(`ΈA gp8'8(JA,=`Pp((A'J(,A=(/`(`Pz((`1PPA("=,p8(8A=.A((,9*939A3(65.=(((A63Pgp8A(83*3(/A63Pgp8A'8dd==A(/ =(=(A=(p7`7( =A(6=Ap8'8(+`7( A #=((J(=+3*/3d/(>93z:A;09([A<099RRyB++AJD6,(mJ6,AP(SS,6,P(Z(mJ6,@h7Aeupx(mxRm(~yqz A;ny(BA<nyyu"*WWA63& &AA7!,565AAA-55"`(6@A5Pl((A65&#3&p(A(($A63&67x(&(*73~~?LL(U=A(=(p#`#( =(A=(6=p('($(`#A(=.,(((A63`j=(J=*7363@J.,~&MM()(U(U63 ,H7@8(U`,Z(U>,AA$E7$367x(,($3((,=*Y75 \=(Ac!,;6;AA-;A5"`@*rsGGv7;`,=A(67(A67*7=.,(((`rp/(=.,(((`zp/(=(`qp/(=(p/( =A(=x/(=CHH(p/(A=(!8A6=%x/(`A(A=x/AA-55"`/`,2Ps((`(?Q()`:h;7'Ay 5,`,2PsA((A?Q//()`:h;A7' y  =p('()( ;,/(3.##\/A;.(A<..==),;N # jBNNA63=9AL36=Pl(S('W2( ]3`=p`ψP{(e(r`ΈA gp'l(rJA,=h D/9AA!(@,HH@8('``Z55(,=(`(`P{((`1(A"=,p'(*3A=.A((,3(.`( A;(BA<Ш aKKAAA6AxAA*A`,2Pnp&?L(`h7'`P}(P~((J,(,(hD=*"Ԫ,`,2Pq@p&~~(KK+ ?1L(`h7'8AA:*>,`,2Pqp&G ?ML(`h7'TJ6,^(fJ6,PgpA(lo,*s,~csHH`,2Pqp&| p2p1p0p`,2Po(΀`0(?Q(`h7'JA,3A3 p?L($(p0(`ψP}(P~((9(UU!,,(h=`,2PqA((NJ(`,2Po(p0(`,2PopA?LA(%*`,2PopA&U( U A;(A<,;~~3??`Pk(Pl(Pp(Pq(Px(Py(Pz(P{((((hD=!`,2Pn(%('p2p1p0`,2Po(`0(?9Q(`h7'@@~~~ 2A@@,33 Ap ?QL(A$V ([p0(`Pk(mPl(pPp(mPq(pPx(pPy(pPz(mP{(p(s9o(vr(vhJ=`,2Pq(z(}|(`,2Po(~&HHp0`2(`Pz(`ψP{((3 ((63@A5Plp ( +p1(p1p2(-`,2PoAp ?L(A% *`,2PoAp &A `Pk(ccz55Pl(Px(Py(Pz(ԈP{((4 p A' +(`Pz(`P{((4@3 p ( +((p,Ec(   A; (A<  ,;''^E`P}(`ψP~((! (# #AJ,''(FA+BA;(A(A<(AAѱJHH`Pg(PPh(T(XS(cW(c[6x , e`,2Pn(i(k`Pw(o({?uL(!`1h27'(?G(!`1h27'J,AA65PPPlAp ' (A `Pw((A6&& gp A( `,2Pqp &  ?G(!`1h27'J,AA6&&p ( *XX3446@A&A&.((,AA&&`,2Pop A& (`PwAp (A J ,p,EXk(-() A;((JA<((!,;V3TTA6 , p 6,A@h7GAA (O(` ( 6%@hA7AaAA.A(i(6.@h7At.(}A(}(  6@,33A p (6@A (I` (A6 ,5050 3(  A;(3A<OOJ6,Pp A' 2A(  p ' 3( 6 Pmp ' 4( ) A( J.,((p ' 5( 6 %@A A"  p '  6(     F ( "   A;  (A<   p &VVA( *,B7A  A  A  A ; BAA6Ax AA* PA R`,2Pnp ? ]G( $ b  A(  fA? lL( ` %h &A7' s, * { 6U |QQ PgA( ( 6 5PhAp '  ( A6    p ( 86@ A5,P,p ( 9h /@9 !(  @,H '@8( @l RR !,AA 6 - 5"x  A`,@A( 6 Jx ,AA6 *  6@ AA 6 Ph( ( 6 @ A( ( 6    AA 6 p< QQ 6 PkA( )( 06 % 6 ,g(   6  ,H (@8A( Q6 A ( <6 PyAp ' ] :( A6  A i  A p;,m pQQAA 6  -  -      ) +A6 xh p  6 x  *  `,2Pq( (  ? L( ` %h &7'J 6,   ( `,QQ  00@( - 5"`  .<( p ( >( AA- A5"x  `,2Pop A& AJ,Q" ( !'  %% A; ( &A<   ,; .,_ % 0EEAp 6 5Pl( =(  .,u( D( G( Gp (  .,w( N( Q( Q`hp ( p ,s ` A(  ( `( A6 ?. ( j( y( yp A6 A( x6  u x ( A6 A ( W ( "", A; >  ( 0` peA< `e "( PPAA ? L( AA` Th U7' ,N6@NA5Plp F' F(  N9 N`Pt( ( A6N G G gp FA' FA( 6NJx F,AFhD /9 LLA G!( A G@,HH V@8( `,2Pq( ( {h /@9 I!( % I@,H W@8( %A % '`,2Pq( +( / .( Y? 5L( A` Th U7'A < ? >IIA,p F( D F9 G,6,@A GA Q G.( Y( Y,R`,2Pq( ]( { _? eG( A` Th U7'J l,AAP sAPp F( x F9 {,R A(  !,R/ QQA6R-R5"6Py( ( A6 G  Gp F-R5"` FP ( A !,P-P5"* R* P`ψPs( ( 6@NAA G  GH LLp F( F`Pu( ኈ( `,2Pq( (  ? G( A` Th U7' JA,PA Pp FA( F9 PP ( A !,P6PAA-PA5"A* P`,2Po''* $p F? +G( A% 0 F A`,2Pop F& 9 F' 9( P K =# L A; : K( A< : K K A,;ZW2 XSSh D/9A A!( q @,HH@8p ( w +h /@9 !(  @,H@8( A !,R6RAA-RA5"A* RA6ss|_ HHPy( ( A6   p -R5"` h /@9 !(  @,H @8( A !,P6PAA-PA5"A* Ps (  A; ( XA<  `Z]qq{C ;;A RA P`Pi(Pj("Ps("Pt(Pv("(&!(1%(1)6xT,T3`,2Pn(7(: K9(p(^A<,;ZZ::J,AA*A6Pj(Մ(6,@AA6"p A' CA(6,#Ap ( CZ(  a A; (A<  PPA A$AA6AxAA*2A((4`,2Pnp??G($DA(H`Pm(L(gO`,2PqpA&X  Z`,2Pqp&c NN!vd**f(j`,2Pqp&s v`,2Pqp&  `,2PoAp&AJ,NK(%A;(A<=QQAAAA6x AA A*`,2Pn((AA?G(!A`1h27'*,6@,AA&A&p ' (J6,&A&.(33Ӌ(A,&A&,`,2PoAp &A J,3i(-( p) A;((A<((!,;`V3QQAA5:wAAuA6uxyAAyA*Owu`,2Pnpy&Xy?^L(z`h7'AegA*kw,`,2Pqpy&ty ?zL(z`h7'A,]8QQpy(y6,@AA (6,@A5,@AAq."((Apy(AyoA.<(Apy(Ay*w,`,2Pqpy&y ?L(z`h7'& NN*w,`,2PqApy&Ay ?L(zA`h7',(J6,PgpyA(yJ6, (:J6,5,!Aqrr4#DDA."((('py(.yo.<(3py(:y*>w,`,2PqpyA&Gy A?MG(z`hA7'TV*Zw,`,2PopyA&cyAJw,rg(k>BA;h(3A<hz,;qoKKAAMAKA6KxOAAOA*MK`,2PnpO&O?L(P`^h_7'`P|(P(P(P((J,(,(hD=,I*?yAAMI`,2PqpO&O ?L(P`^h_7'`P|(P(P(PJ(( ,( ,,I( A ( Ah=*M,`P(`P((4`,2PqBBü%%pO&!O ?'G(P`^h_7'A.0A*4M,`,2PopO&=OM,BA(ZUEV A;BU(A<BUUP,;>`;;A6@x`:!(@@no((((((((((((((((((((((((((((((((((A((((KK h++ (U((U(ADh /@9!(݂@,HE@8(AKP(j^^A;>>hFA7'(`A<*   G tP!6| 1oST"Q66@%%c6@6H6H000J666]g%% !,Nj'6@ +??XV4STANDARD_PROC 92833-16094,REV.5000,870621 870622.0027 /P1K/CMP/STP.PAS?o STANDARD_PROC **CALLSTDPROC PAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDS*EtA;( kA A (A  @*/PASCAL/CMP/STD/TLM.REL:::5:110:128 644 0 0 67000 5300501467 35752 /PASCAL/CMP/STD/TLM.REL:::5:110:128 ##$n nTLM REL +6+7+7n6PFST ;;XēPSTLM 92833-16095,REV.5010,881021 881021.1621 /P1K/CMP/TLM.PAS;@ <<XOēNEWTEMP 92833-16095,REV.5010,881021 881021.1621 /P1K/CMP/TLM.PAS< qRNEWTEMP  ttTJ .DAD .DCO.DLD.DST.ENTR .LBPR .LPXR CHCKB CHECK ERROR FULL_SIZE PAS.1 PAS.2 PAS.NONCDSPAS.WRITECHAR PAS.WRITEDOUBLE PAS.WRITESTRING SHOW_TEMP WRITELINE t֠DDp@` ( A Z( p<p?p=p>`>(`=A@}(`=p=`= @p/z(H`@|!(I`@|!h  A(B(H(H.DBBz < z(Jp>`>(`<(y`@|!(xh; Ah A  Ah A  AA (q(q(tp@(xp>`}p=(`@|!(`{p@`>(`= p?(  1(  UEEp=p>`>(`=A@}(`=p=`= @p݂/z(`@|!h  A(p>`><(݂.z(`@{!h  A \(~p>`>(`=p?( } Ԓ8( EJJAC pHH^(:P` QCAJA _x;A a(:(:`?(G `?(G`<(Eh; Ih   IIh   A I(,(,(/~~-,@@p@(Dh   A \(:(:(=`{p@(D@cp@` p (G`{p@`@([`? @jpEQ`E@{xH!H(`?(_(`? A@jpFP`FpE~l;;`pHEA0HAE`F@|pEEA0BAEFN0(G0~G(GG` k(A?(Ѡ` k( `kdAdeʡ `AZ `feA`@PzA((Q` ` h AA gIAAA I(,EEpE Eih   Ax h  J ((h  J (8`@P{( (8Q` ` h  gIA I(pE #Eih   Ax h  @ 8/ (8(8h   `?p = O:R ;;WS''AAOOAC(!]  >>> Unable to use temp list [ ;_z @m==X5[ēNEW_CST_NODE92833-16095,REV.5010,881021 881021.1621/P1K/CMP/TLM.PAS=tBNEW_CST_NODE 55 .DAD.DLD.DST.ENTR .LBPR .LPXR NEWNODE PAS.1 PAS.2 PAS.NONCDS5VVC33APQ7R7=`6PZ(( = =T`:(/ 7Vx?? = =Tx?9?7;V 3A;B %%dCAA@@A9Ap6A ;(! % Z @Mlu??X\5ēINTEGER_CONSTANT92833-16095,REV.5010,881021 881021.1621/P1K/CMP/TLM.PAS?m!INTEGER_CONSTANT --.DCO.DLD.DST.ENTR NEW_CST_NODEPAS.1 PAS.2 PAS.NONCDS-,,2AA-A(( A/((A1A(2, A! >"AA  A A(@J ;;X~ēNWTPN 92833-16095,REV.5010,881021 881021.1621 /P1K/CMP/TLM.PAS; MNWTPN u  LL .DLD.DST .ENTR .LPXR ADOPT FULL_SIZE NEWLNODENEWNODE NEWTEMP NEW_CST_NODE PAS.1 PAS.2 PAS.NONCDSLSSAA{` M(G`z(G`y@((GAA! ( AA} .}hyA A8AA >A} BA}A}(rLAA} }`z==eS##A }xhyp `zA(j }Jx A(r }x }= vA ))ݨAA A A("  zy) k @n@@X@ēNODE_TEMP_INDEX 92833-16095,REV.5010,881021 881021.1621 /P1K/CMP/TLM.PAS@ONODE_TEMP_INDEX mmc.DAD .DCO.DLD.DST .ENTR .LBPR .LPX .LPXR DEFLBL_ENTRYPAS.1 PAS.2 PAS.NONCDSPAS.WRITECHAR PAS.WRITEDOUBLE PAS.WRITEINTEGERPAS.WRITESTRING WRITELINE m3MM Ap= ((Ap AA P>((M AA ( (>A (+ P9(+(>  x  !A(J #x @%Ap(MLL`M( ((P(y(A  P=((  #(h  @ %A (((pqEHH'  ) p`(`km(A`.++*`*A`,*`A*pp`(`A@;(`p` @-p/9DDc (``P((`@:!?h  ((p(`(`p=D  66d##AA A ( +>>> Looking for temp @6iy9!"@@_`>>X!ēUNPROTECT_TEMP92833-16095,REV.5010,881021 881021.1621/P1K/CMP/TLM.PAS>gUNPROTECT_TEMP^^:(.DLD.DST .LBPR .LPXR NODE_TEMP_INDEX PAS.1 PAS.2 PAS.BITMASK1 PAS.ENTRY2 PAS.EXIT2 PAS.NONCDSPAS.RECVALPARMRELEASE_NODESHOW_TEMP ^rDDA_ A((U _`=( (+`= @paa,P("a,P((%`^(%aa`k(+A+=`]A(11_ _~ ,H@ A(J _DbgJbA^] _@AbgUb^]rU(zdY443AhA Vgd_ep^fAp]( Vgg _4 N @#B==XWēPROTECT_TEMP92833-16095,REV.5010,881021 881021.1621/P1K/CMP/TLM.PAS=ghPROTECT_TEMPVV C.DLD.DST.LBPR .LPXR NODE_TEMP_INDEX PAS.1 PAS.2 PAS.BITMASK1 PAS.ENTRY2 PAS.EXIT2 PAS.NONCDS PAS.RECVALPARMSHOW_TEMP V͜@@Aa A((X a`=( (6`= @pcc,("c,P((0`` (0p?``(,c0c(0c0c`k(6A6= a{ ,HH@ )) c@(N @a}AdhNAd`a@AdhXd`)uX(w f\--B_iA Yh fa gAp`( Yhh _-J @^??Xu:ēNEW_LITERAL_POOL92833-16095,REV.5010,881021 881021.1621/P1K/CMP/TLM.PAS?f,NEW_LITERAL_POOL33 g.DLD.DST.LBPR .LPXR NEWLABELPAS.1 PAS.2 PAS.NEW2S PAS.NONCDS3CC4&&A 8/1') p+A)2`+))4A`)J6x+@AA+'J@C &, ka- 8,(^'@Ϧf??X>IRē ENTER_LITERAL 92833-16095,REV.5010,881021 881021.1621 /P1K/CMP/TLM.PAS? n6ENTER_LITERAL VV 3 .CFER .DAD .DDE.DLD.DST .ENTR .LBPR .LPX.LPXR .MVWERROR FULL_SIZE NEW_LITERAL_POOLPAS.1 PAS.2 PAS.NONCDSVEEAx`PM( PN(PO((`p!(!(ADx+A !+(AF@p (+(`A(AA% %`Hxp`@(`(pEGG`pp`A@(p`(ph  AA,GAA %,`K@(ip(o`p`p(I`A( 3@@p+ +p(`p(;`(@%I~~KLL(%`(@ ((`(AA'A 'H`A@P(p(@'IA(`A(JA@AA)A )HQ % 3x+AA%+~eeZ99`(p+ph AA% ) AD %  AA%GAA )%`K@88+( )Hx+A )`+ADx+ 2`+e 6 &&(7AA 24A`5hLAJ( &qMX@==X+ē!ENTER_DEFLBL92833-16095,REV.5010,881021 881021.1621/P1K/CMP/TLM.PAS=^ENTER_DEFLBLHH.DAD .DCO.DLD.DST .ENTR .LBPR .LPX .LPXR .MPYNEWLABELPAS.1 PAS.2 PAS.NEW2S PAS.NONCDSH5NNA`*@  p  ((m`(mAAA  (.(Q(Q AA P(8(QA A@ A (E(Q(Q P(K(Q NRRPp`(lA   @!A(`A(u(#% ` x  `  AxAA ` !yycFFx  (( !x(Ap`*@JA &``A*@ xAAA`*@ &x ` AxAy  ;;$$A pAAApAp( c; * @:Y??XVē"NEW_INLINE_LIT_N92833-16095,REV.5010,881021 881021.1621/P1K/CMP/TLM.PAS?&NEW_INLINE_LIT_N ccM .DAD .DCO.DLD.DST .ENTR .LPX.LPXR .MVWENTER_DEFLBLENTER_LITERAL FULL_SIZE NEWNODE PAS.1 PAS.2 PAS.BITMASK1PAS.NONCDSREAL_TYPE c`GGA5x7@AA4@7AA9PS(!(`PP(%(, p (6`PQ(0(6JA A`Qp ;PP(=(@p(LA=PU(G(JMGQQ`Qp(Lp` PQ(P(Y`PQ(YA?A0T=AA AAA AAC =AxA" A" A7xAAEExwPP(9PR((A7C@hKA6@7AG ,HL@(A7(A7A I((( (JA AA= 44""AAAAA AAEx AACx AAA4  A& ==m'''AA $$A%pA ("    =WP!" @Y<<XHhVē#INLINER 92833-16095,REV.5010,881021 881021.1621 /P1K/CMP/TLM.PAS< 8=INLINER  >> e.DAD.DLD.DST .ENTR .LPX .LPXR NEWNODE NEW_INLINE_LIT_NPAS.1 PAS.2 PAS.NONCDS>RR 00AKL4`3A(OAA4 M`7(*`3PU((* 4Qx::O4 AMx:6AA:.A4L8R 0A8= %%d>AA ;;A6DEBUG> >>##AA7 A((*7A ( ( (*== `8(6== x979> 76> [?AA<p \ A h A p Y` p X`dA( %ҡ`   $`A X ل %`"   A l x ` P <(NP =(P >(,P B((p \ l @A hA h  f hhHH x [`dA( %`%  #`A f "`  $` [ AA  hJ('(+(+` ;p \+( p \A j A(4(A j@A dA d  h`dA(M%K`*  JNN M( A` =p \ l  h l (f  `  ^(kAk h` ap W`dA(%w`-   #|`A ` %`1   #` ^  A fp [A  l ((p YaKK ^ `A Y  j A@h x V  j >  ` Vp U`d(A( `dA(%ɡ`3   l x#`A "ס` ! `  W` Vp U`dA(%`p    j (($` V (%`v & & (G` M( JJAA  jA xhd6pY@ OHY` Op O` N@ Op M(9@ N(!(0  jA xY AY AA  j $ j9`dA(C%C`y   (Gh GJ`d(LAL7L(_ ZP::ZH[%%AMZ(nAMZZT7Next Field Component Element is Empty PAC or String :~~֡DD`d( A%`% ` \P 9(P :(>P ;(>P <(>P =((K d '. :(`dA(%`)   )x#`A "`   +&A Dp$~MM` h Y @ )A((؄ @A hA - f ++ Dp [(N` W@ Up` A Cp! / 0p`d('% `. A $` U %lEE`2   $`A " `  $%` A'` Y(+(:`p` YA@(:p (+` X@p (N`d(JA%H`4 1 1 J(Nh HHkP f (W(YVGG(Y` [p S` S(g f (g` [p T` T0 Sp R` R(} f (}` @ CA@ [pp Q` R(` \AP =( h P :(( hA!#p Q`(gHH`d( %`>   A#` f "`A  $` [ %`B A  $ġ` Y "`  A$`  %`G % % ` Q(%`H   (%`K NNkH,, ` T(%`O   ` S(%`U   ` R(%`[   `(%`` A  N  aa+}FF8(Examine Field at Element at Array, PAC or StringObject , Entered , SignedUnsigned, Fits in 1 , Fits in 2 , Packable, Can packaLOeKK`d(r A%p`    r j (x(@ j "A b`dA( #` b %` A  AA b 2((A j A( j  s h@ Yp Y(ŀ` R(xxWxCC` S(J(k( j A@h   h bA b` \P =A(( bA 2((؀` Up U(h V AA AA j>` Vp U(Z(r` P C((x( ""A(eADump Packed Instances"WLL`d($ A%"`   A$ j (+(vA j " b`d(D #;` b A%B`   D b 2(s(s j (^ j @A~ s[ h~@ Yp Y(lk` j %%$cA@h lA h bD b(DZu(%%v( z$$ zAw(AwDump unpacked Instances$AA` p `d(4 A %`    l 4/ :(%`   A l P 9(P :(ڈP ;(P <(ꈈP =(P >(P ?(P @(P A(P B( ("%`   (2JJA%`  (2A%`    (2A%`  & & (2A%`  & & (2A%`    (2A% `    (2A%`    (2A%`  (2A%!`    (2A%)k$EE` & &  l x n$2`An 4p M` (=l;p ? l (E(M l 4/ :(T` \P =(T` \P <(T(WV(YY`d(A l (b( %j`  iKK  l x n#s`An "x`   l x n$`n A%`    $` Y A"`  $`A ` \P 9(P <(P =((A l  f l x [( l @@+GG f l x [( A l fAA f ((p [( l x [` [(( A f(  fp [h Y  o f ox Z` \P =((` Z((p @ Zp Z(( ` Z(BB( p @ Zp n  n ` Y@ Z@ Jp Y` [( ( !` X@ [p n!  n / 6P ( !p ` X@ [p ` P C( ( !`dA( @ % ,`   $ 1`A Y " 6`  $ ;` A =q =  @@ p ` Yp ] E( * q Ittu tSSA F s  q l r j(A` ]p 7 F s` 7 sDump Constant Packed ScalarSubrangePointer Power Array RecordFileStringTag field Variant Form Object , Entered Fixed t22_ A  p p p  s  p ` ( h A  Y 2   WW ??AA AA A (    / ]\ wW$ 9 @,}@==Xē-STRUCT_FLUSH92833-16095,REV.5010,881021 881021.1621/P1K/CMP/TLM.PAS=hSTRUCT_FLUSH){{@.DAD.DLD.DST.LPX.LPXR .MPYBOILABELBREAK_OUT EMITCHAR EMITINTEGER EMIT_STRUCTURED_ EMLAB EMNEW EMSTR EOI FULL_SIZE PAS.1 PAS.2 PAS.BLANKFILL ((PAS.NONCDSPUTLABEL{NN`( @(  ( (`J@A@AAA ($(XAAA (1(Pހ!A(:(P(B AALANSSAA(`A@( mAu7 瀄x   H(AA  ((AAx ((??))A ((@AA@A((? d 33!!8( , LOADREC 0,0,161400B,0,4,0, 3 c @a<<Xkē.ENUM_FLUSH92833-16095,REV.5010,881021 881021.1621/P1K/CMP/TLM.PAS<|%ENUM_FLUSHN]] .DAD.DLD.DST .ENTR .LBT.LPX.LPXR .MPY.MVW.SBT EMITASC EMNEW EXID PAS.1 PAS.2 PAS.NONCDSPUTLABELREVERSE_ID_LIST ]--}`†A@( A p€`ph6@H`-  CA p( 7% TTA` @ @AA (9(; (A(؈AxIpxAA AAY@AA A(f(܂@hArA>%tLLAA ߈pp`ĆA@ń(h6H@Hṕ`p(}`A@ń(`Ap((``A(( AA AA@A (; V (( L8(   π  ( 2 @YxF/PASCAL/CMP/STD/UNT.REL:::5:152:128 644 0 0 114000 5300501470 35560 /PASCAL/CMP/STD/UNT.REL:::5:152:128 ##$ lUNT REL +7+8+8K,FST ;;XV)PSUNT 92833-16097,REV.5000,870621 870622.0038 /P1K/CMP/UNT.PAS;@;;X)VV)(BLOCK 92833-16097,REV.5000,870621 870622.0038 /P1K/CMP/UNT.PAS; (_BLOCK ] ||kO.CBTP.DADQ.DCOR.DIN.DIV.DLDS.DSB.DSTT.ENTR U.LBPV.LBPR W.LBTX.LPXY.LPXR Z.MBT.MPY[.MVW\.SBTLALLOCATE_STRING_KBODYICHCKB HCHCKI GCHCKS JCHECK FCHKBS ECMP_ID2ID |~~ iDCURRENT_EMA_SPACCDECLARATIONSBDISPLAY_MODULE_IADUP_EXT_ENT ?ENDOFLINE @END_GLOBALS =ENLAB >ENTERID <ENUM_FLUSH;ERROR :EXID8EXPORTER9EXPORT_CHECK7EXTERNAL_IMPORTE6FEATURE_LEVEL 5FLUSH_LITS3FNCRG ~!4FULL_SIZE 2HAS_FILE_POINTER1IMPORT_CHECK0INCLUDE_STACK /INIT_MACRO.INSERT_EXT_ENT-INSYMBOL,INTERNAL_IMPORTE+IS_STRING *MAKE_TEXT 'MODULE_BODY &MODULE_EPILOG (MODULE_PROLOG %NEWLABEL#NEWNODE "NEWPAGE }}$NEW_LITERAL_POOL!OUTID NPAS.1 MPAS.2 ]PAS.BITDEPOSIT2 ^PAS.BITEXTRACT2 _PAS.BITMASK1`PAS.ENTRY2aPAS.EXIT2 bPAS.INLINEERROR cPAS.MARK2S)PAS.MIN dPAS.NEW2S PAS.NONCDSePAS.RECVALPARMfPAS.RECVARPARM}gPAS.RELEASE2S hPAS.SETDIFFER iPAS.SETUNIONjPAS.SINGLEMOD kPAS.WRITECHAR lPAS.WRITEDOUBLE mPAS.WRITEINTEGERnPAS.WRITELINE oPAS.WRITESTRING PREP_VARIABLE PRINT_TABLESPROC_BODY PROC_EPILOG PROC_INTERFACE~~0:PROC_PROLOG PROG_BODY PROG_EPILOG PROG_INTERFACEPROG_PROLOG RESET_LABELSREVERSE_EXPORT_LREVERSE_ID_LIST SEARCHIDSET_IDENT_DEFAULSET_TYPE_INFO SHOULD_WARN SKIP SOURCE_LINE SRCHS STRID ~22Ǖ STRING_FLUSH STRUCT_FLUSH SYMREC_TREE TEXTFILEUPDATE_FILE_LISTWRITELINE 2yyk;;p?`NP)!( `NP)"( (;`N("pDp=hP6H@=HWhQ6pE@=HH`E\8=8D(`NP)!(&(+hQ6HH)!`)1\`> @O@6`Q6O(u(9(8p?y s;`?G %%5THATFFp>`)p?(RN@FORWARD EXTERNAL%4ZGG`NpN`Nʀ@)QpIg(v(l`N pN`N@)OpAIv(w(`NpN`NJ)-@PNA`'(Y((x@AAVx(AVx Y(zxSSA AY(|xA AY(~xA AY(xA AY(xA  @NJ)-@PNA@X(AAYA(xAAY(Y(x Y(x `N̈P)((E>J NJ N  $8(Z 4BDDAAz|AY|(')'P)((JY|(0)?Y|(xx~`w)Bp~A)C0A~AY|(x~~A)C0yAA~Y|(`N`NMA(IY|(!)BA@) p~Y|(xA)C0~AZZlI--(vY|(x~`w)Bp~A)C0AA~Y|(x~~A)C0yA~`NM(vY|(!)B@) p~Y|(xA)C0~AZ v /. AATAzpwAAx(zzQQAA(A3(P)(Y(@AX()@Y@(AAY(~ (Y@(AX()@A0)CY(A(M(Y(@h[A(Y(XA(`[(z  \8((@__r88Ad=((-({-1Y1(~x3 3Y1()@Y1(0)?Y1(xx3`(M)Bp43A)C04AA3Y1()AA-/_ *A/5 qZ6 AT5 A/(-?`NQ(DGD ODH lhIATG(? iiL@@AA(AY( ApI^((AY(U6`6Z(`)(pA@(h6@HWP)1((@p(nY@(AX(`i  ^(LNn ::`N0 )pJ(`N:A )pJ(`N< )pJ(`NO )pAJ(: % Ҿ8(  pN0pN: pN<pNO > 8( ss5@@`Np `Np `xP)(($(($(5Y(xY(x `NJ)-@XN@AAY(xxAA` pN` pNs( (]ݢA`eA(a c&MMp`N2p i3 ( F8 ({ (숈`xP)(>(`AdC((G({Y(x  N)T0N4N Y(x  M)T0N>MA (ide((ix`wApwY((2sHHA`w zNNY(`[A(Y(~x  AA YA(x A `'(>A-`xP)A((Y(x  N)R0yN (Y(0)CY(x )Bp A)C0A kk==AY(x A  AY(x A  AY(xx A  AY()@0)AY(`NAY()`N2P)$((-(p`((k((] qA`(&Aa((6 #QQAAA A A(1(kAAAAYA(~x{AAYA(x}AAY(')'P)(R(c+U{(cAY(A)DY()GAY((+A A(q(yY(txy( (]A`z(#Aaz"qPPAi(` @`N2x ,H@_Api (AiA(G(Vx A`N2P)"A((n-Ǡ`N2 ,H@_pAi A(i(AG(01??  pw`N2 ,HH@_(6py`)px`N2P),((`N@)T(`NC0z( py( A`)py-('`N2 ,HH@_('py`N2P)/( (#`)pxEY"LL(%`)px-' -N{ }`xP)(`N2P)(pHA(`N2pAIJ({A(PA)Y}(~{{ (](`yA(hY{(,) )(ipAJn(VnKKAY{(~P) (u({QN(|A((*~A{({QN(((`ypJ(-`xP)(( ((Y(@ A((Y(XA(~x{AAA@i:NN (i(`@`N2x ,HH@_pi (G(`N2P)%A((-Ai A(iNE( `@`N2x ,H@_pAi (~OOAi NEA(i(AG((5`N2P)#pi$ (i*NE(i0(G5((`N2P)#pAI?(}A(d-CAi((I (` @`N2x ,H@_''kVpi_ (GdA(Vxn'n(-s(]QQ55A`oeAh[(fAepz(aoNF) }6D6D66@6@Q?(EEAA(AY(`A(V():P)3((`pAY(`HxJYN(X(x`)!A@( `)!p`@p`)'A@(`@)'p@hkHHHxAH($ (Gx`p@p^1((x(xp`@h@@)Up]B((x(x@p8('`(oppJYN(A@p^`((x(xp@mm݈c>>p]l((x(x88(O`@)UpA]{((x(x(AY(`@Y( `)(A@((p`pA@p]((x(x(8(8(m  ]6ATp(cc66AY((()p (ń(Y(')'P)A((Y(.)P)((` )0NM(AY(A0)EY((c  iAATA(3'MMA Ap(JY((')'P)( (3(P)(( p(JY@((AA (%(0`(Jp(JY@(A(`NM(D`) @(Jp(BhN h(B P(@Y@((@ccJ== (Q(Y(')'P)(Z(uAY(.)(oAY(~ n(tt(M(zz(MADRY(@A(Kc  "8((@ OOAA((HAY((x(NAY((')'P)((h ` [(yA  A@V]A p A  ((` (V Q((͈((p A  (Y (z@A AV]x   00 9(Y (z@A AY (zx AA  (  Y (z@A (0   8 (N(@| OOA  A( (   ( ( AY (@h 5[(AY (@h 6[(AE /  p AI 7 (A( Y (')'p Y (')'P p I N (( Y (')'P)A( Y( Y (.  ^TT)( pY (.)p J o A(( ~Y (.)p AJ ~ (AY (~ Y@ (~AQ ( ( AY (~  ( AY (~  ( Ap J  (( Y@ (|| TTAA Y (   Y (')'P)A( ( Y (X(~ Y (@AX(~@AQ ( ( p J (Y (@A AY ( ( A  (   p AJ  (| ( 1  (]%% !A`  e  e  ( Aa     %J 7HH`'P)/( ;( A @ 1 ,(x(  F 6 ,(xN'`N2P)(( N( - P`N2Ap i [  1( AF ` ({ ( A@NpN i) .`NpNY((~@A'AJ'QN( z( yp J Jy LL(Y'(~H)T`A( ( 6 ({p p + '( `N4p A`N>p - ( i  1( F '( (  A'`'( ' ( ( Y@((~AQ'( ( p J (( AY'( MM,) )p AJ (AA( AY (~x AA'AY (x AA(AY ( Y (~x 'Y (x  N)T0 N Y (x  M)T0 M  `N2P)%Ap H  (`'( ?~ NN  `'P)-( ( *AY(( A * ( ( 0( > 3(Y@((A  > (( Y((x (`N)-@J@XNAA Y(A(xx  A pNAA( `NV( kY (~~#< f@@0);pNW`'P)-( o( `NO )p AJ v ( ApNOY (  G (p AY (x `N5NMp ! O)T0 !O Y (x  N)T0N:N Y (x  M)T0N M(` _P)-( Q( ]5 S `Y((x d `dj $ ] j   k AT i ip _( ;(((N vGGJAN(`N2pJ ({`NJ)-@XN@AA #A( A( ( Y((')' ,H%H@_( Y((')'P)( P)( ( `'P)/p'( `'P)-p'~~ HH( h)<b`'( Y((+)( Y((.)p'J '(`NM( p(Lp(M( % p(LA% p(M%A p(T% p(S% p(PA% p(O%A p(X% p(Y% p(Vp(J`'(%p(N~44U j'`Nʀ@)T(`N9(`NpNAJ(N9Ah&`'[(y-4 % A!8 ( v((N(@ ;)`Np'`Np'/ &"/0 O180() s3`'pN`'pN &278 i988(3 22ų;A#@(({(YYY(x[([`N)-@JAPNX(x[Y[2 &wX\ ]8\(; U_MMJ NA( (i(pA AA(AY(,)(}`NP)pY(@ A((Y( ((.Q(((AJN(Y(ʀ(`'AP).(Y(A(xA '@ 8(_ ~~LL`' )p9J9(`NAP)(-Ҩ`N2P)%p9H9(`N2 ,HH?@_p9G9A(( 5A8g@(`'(Y((0)=dB(|(AV7x9(9V]:Y7(z~AAy$$x9:9V]x9AA79AY(( ('(4)N (/(4YN(p'A (56< lr=8<(( (7~~FDGGAA(AY(P)pAJT(Ҩ`NP)(nY(+)(m`NP)(c(nY(.)(n`NP)pAJt(AY(J0)?N (6A({Y( ((~vvHH`NP)((AY(Y(xAY(AY(A-`N2P)%pH(`N2 ,HH@_pG(( A58Ag(ԁp'v )q 8(D( ( EEph6A`6Z( `N2P).ApI(( ApN-`N2pI({(`)Ppph6@HHWh6p@H`H\88( j'- `N2 ,H@@_Q&LLApJ0(`N2P)" (4(pNEA-8`N2piC( (FH({( pN}pNAR A A(X(VY(~ (a(VY@(~AX(~P) A(l(VY(~rSS4vA`N~P)(@N~ @AAPԨ`NP)8(jN({(Հh A`N A)h AAAAS(PAAPAY(~X(xAAAd((({YxLL(@h[A(YA(`[(Y(~@AAY(~xAAAY(.)pY(xN)R0NY(xxY(xx`戀)BpA)C0AAY(!)BpY(xLLA)C0A>AJQNu( (%(%Nu()AJNwAY(@h[(A5AAAAY(X(~Y(ȨA`N~Y(`NY(~(v [NAN_Q]OOA((AAAY(~Y(ʀpJv(`pAAAY(Y(ʈA`-`N2 ,H@_pAi( A(G(`N2P)$(6`N2P)#pH(}IIV## pNpN}`N2P)%pH(pN`N0(h6A`6Z( pN0̈(I -(( @@mR''8(NN(NnMAIN 6H6L6@IIA phP6A`Q6Z( `NpN (2(YN(A@hR[(:>GS(PNX(z ):pNpN}AM)U pN} AA (Y(AY(~QN((bY(~@4fHHJY@N(~AX(xLJLY@N(~AX(zxLL(̨`NP)(N ((YN(~@AX(JNA(`NJP)(YN(~X((A;(`A(ouu?UEEN`W(((poN`j(u(u(JYN(@hR[(A!G(xAJYN(N ((Y(xLL(,hQ6`P6AZ(`pNNu 0M 553)N 8M(NGN117: Unsatisfied forward reference(s):117: 5nLLA`(Lp(@AADvA`NA)-@PNX(z`pp`NA)-@PNX(zxA A( A((Y((x(A`)/p ((AAAY(,)(PPA ̄(Y(~@AA4Y(x@AAY(A0)?Y(+)A(YA(xxAAAAPĈ(^`(h AAAAPPAQ(((p`p(C`p(Dh  JJA PAAY(xx`)Bp҂A)C0ՀAY(xA)C0ǀAP`(^`(IQ((:(:(@AAQ((?pAIF(㈄ )p(^Q((PA(P(VAQ(;!TNN(UpAI\(A )pY(~X(,)A(vY(~2tA(Y(@h[A(AAAȈ(`(`p(C`p(Dh AAPAA(@`(`Ljp(E`@@;p(F(`p(C`p(D`p(EJ`p(FN ((JYN(xAA҄(N@ 3[ 8(n IIA`N)-@PNP(|pppA`N)-@PNX(|( ((Y((/)(`(Ap ((~`(+`NP)(((`)SpA='((&JJAN(+%*pY(x`)BpA)C0AAY(xxA)C0AAY(~4ALh APx`(Y(vY(xA)C0AY(~@AA4mh44}Yp PAxY((`((hA (@`p(E`p(F4 4 8( ##Ah`[(h`[A(yCAh`[(y#((] A`(AaN;N(@2@@ pNp}`}(`N2P))(P)*(׈P)+(P),(׈P)4(P)5(݈((%(N (`NP)pJ(6({!pN(`N2 ,H@_Api*FF(AG (`N2 ,HH@_p}(M`NP)(-!h`[(yAL(h`A [(y`NʈP)(1(s`NJ(sNsA~p|A~ A(@(sY~(~(kA;IFFTH++(`|(WAoSN`(((Up|o^N`(uA(u(V~A@h[(!i(xkY@~(A~(:F!`s(x(]FFI..A`teAh[(A(atN(@185: Undeclared external file(s): 185: 6`Fss2oHHJpNsAA ((AA AY (X(A@Nʄ(`A(Y (ANs(Y (Y (x(pAA AY((s 7 8( ffu//`)NpFpD`D @LpEE)BEE)DEE)FE`EpG)BpHGA)C0HAG`E@)@)`E@)@)8D8F(f 8OCI 0J8I(Nzz)MKKA`N)-@PNX(p (b(Y(zAxIo((`(o{N`(A((}ApoN`(u(u(Y(xmN`A(A@VA(\z 8 098(M168: Undefined Label(s):168: //M`Np(GIAh`[(h`[A(yKˆAh`[(y/ 9\ 1 AT`hA[((N;N(@NNA( A((Y((xg(눀`)/pgh(CA Q(@(((hg i(@Si((h(C A(`(L( `Nh ih(B k(SkSi(h(D i`(Ch ^^D3+;;Pi(h(F i`(Eh Pi(`h(f`N )pghg AAP((`NM(bhg i(Si(Dd(^ :fn 3oATmmph(11t JAN(A (A (A (A (A (A (A (1 : d8(t _AJ(PNAAS'( ; ( ((`NM((PNS'((AJ(PNAAS'(( ;2 ( VV66`)'@pVAxlVAxo(((Q(((VAxk(((AVxk((AVxo(}(}(V ; ZAATAp( Word of H `( A (Vxn ; 8( VVAAA@VAAVxl-A(Vxo7(((A@VAQ((G(?AVxkG((AVxkO((AQY(|Y(z@APA`NM(mY(@APAmmXXq(xAVxo{(((}AY(z(VAxo(((Y@(|AA(Vxo(((AY(~Y(@APAAYA(xAAPhUU`NM(Y@(AAP(Y(@A(AVxo皘((((xAVxo(((AY((VAxo(((Y@(AAUU(VxAo%((('`NM(pAY(5(VAxo?(((AY@(~ALA(VxoV(((AXY(c(VxAom(((o55o!!(Y(@AAY(~P(VxAo(((5 > ffnIIATp( Source lineCode. Body. Prolog/Epilog.Constants.Data. Variables.EMA Variables.Constants.Small Temporaries.Large Temporaries.Temporaries.fPSS`(i(( ((( ((( (((  ((( ((( (((% (`NIA(?*AA,.Ak3N`((o:N`(((?:=AAJ(N{AJP(N{JAN}P(JJN}NAJP(NJANP(JJNNAJP(NJANP(JJNNAJP(N`(NNy`NIA(uAAwyAk~N`((55]~AoN`((((`Nm((`N (nNn(x5 @ 88{\ATpp(N`(NyNnStatistics: Total Statistics: 8..HJAN'JAN'A5Hɨ<H H . Ad $8( JJA (@p'`'P).A((P- pNqH媀/`N@)Q(('`N@)Qp0YN(@AAY(X(xAAAY(Y@N(AX(xYN(xDDY(xN)`N2P)4(-(9`NpAJ6(`)pN(Bp(L%=p(V@BAh`[(yHJAh`[(y(x R0T #W( c[(N@ (a(hV..bN@H)L`A(j$jA`N)-@PNX(x A.9Kx( }(]UA`y(AayN(@(kNNAA(|AY|(.)(Ҡ`NM(Y|()D(oN`(((AoN`(((A(Y|(()A(Y|()DA;(Y@|(AAzz (( AAz~AY~|LL(')'P)((Y~(.)(Y~(-) )(pJ(Y~(@Az(Y|(')'P)A((WY|( ((WY@|(AX(')'P)()(WAY|(X(~xxz'1HH~+7~(WAY|(X(.)(QAY|(X(-) )(RApJWA(Y|(-)A(gY|()) )(hpAJm(AY|(A)GY|()Kx Dy ''I8(DIRECT ignored on actual routine with CDS ON'9DDG((N ((A((A((G(x(`NP)p`(<A(Y()IHY@( ((Ѩ`NP)(Y(@ ((`NP)BBD''A((Y( Y ((Y ((Ap Y( A  Y (` )B E $|8( ffBBA' A(('oN`](((o%N`n(((AA'' (-(SA;0(o7N`}(uA(u(V'@ATAYT(@h\[(A!IV(xAAKY'(z'('f FoSY ::oZ''8Y(V118: Undeclared forward/exported procedure(s) or function(s): 118: :hhR//JN (N (`N9(`NT(`NpNH@(`NP)((Ah`[(yH8JAN'H'n(xh G$ (N(@HHAi( N(SS`'P).(ˆ(`N2 ,Ho@_( pNpN0 pN:pN<`N2p'hp`qA[(y-i( N(S(_'rS(hN(SiSw(X`t@`N2x] ,CEHHHH]@_p^i ( N(SG^(SJN ((`N2P)7()`NP)("Y"h(N(Si.NhS(Xi4X|(S`u@`N2x] ,H]H@_(E`Ny(DE(k_J(];;Va%%A`F`eA_hv[(A(aF``) N(@'XSN666`;;;#%%AV͂@hA[(yVA`[(yVxA AY(xA AY(; I= lAT( xx11`N4p `N~p ިJ`Np YN(@h [(`N;p J`N>p NA `Np `NCp `Np `Np `NBp JAN!`NCp!h ` A [(y`Np!`Np!`N׀p!x I    8 ( !(@y ?? pN4pN~ `)pNpNs pN;pN>J NJYN(xNpNC`)9pN N (@ (Hp(L`)8pN`)9pNYN(xNAJ(PNAA `Y `(zx b A@bY""` K `(|x b bY `(~x b bA% ]p _" J ^ c + d8 c(  f::` pN4` pN~J` pNYN( YN(` [(JYN(x AA ` pN;` pN>AJ N` pN` pNC` pN` pNA` pNB!JN`!pNCAh ` [(y`! pN`!pN`!pN K   8 ( f (@!WW --AA? 7 JJNNJN ( (   A`)pN7 ÁA c - Ai !)(! ` ! 7 `NA(  بN `)pNW K !% -!&8!%( !(EEA`)pN-!,`N2p!I!5!({(!tY@N(AA!!BJ!!N (!J!%J!I(!NNJAN-!PJN J(!V(!tYN(')'P) p!AI!d!(A(!t1!kNN(p!@Iqq3:!m@@!p!((!t,!t`N2 ,H!H@_p!J!!(y`N2P)$p!`!(!-!`!(!,J NJJNN`N2P)%p!i!!)(!F!!(!A(!-!qN<!(!!!(]));!A`!!eA!h![(A(!(a! !Ũ!ŀN!!6 )QI!AA`NP)(!`NP)p"=AJ!"=(`N@)T(!JN p"=J!"=(6 !({pN pN`NP)p%Z`%Z(";`Np%YJANs%cJAN%aJYN(@h"A[(JAN@%_`NJJ"p%X`NBp%WN%[`NCp%V`Np%U`Np%T NpNpN Ns`);pN`);pNJ N="<"> W"?8">(!%e "BPPJAN( ApNs-"J`N2p#i"U( %(#F"Z#({#A("d"a#(("eN(N# "nNN#AY#(`#A[(Y#(6`#6Z(AY#(A)D(~AAP##Ad"#()Y#(~י"PP@A#A"#(AA(P#AA#d"#()Y@#(A#`)Pp#p#h#6@#HWp#@#p#A]"(##(x(x#8#8#("Y#(x# Y#(A)"N(p#Y#(A`#Y#(Y8"DD#(x#N>A"N-"JYN(`N׈J("NJN`N2P)%p#H##(pN`N0(#OJJNQNJ(#O(# NAA#Y#(#V#6A`#6Z(Y#(A`)(Y#X#&GG(pA@(#MY#(H)Ux#^#>(##(x(xP)1(#A(#MY#(H)Ux#Y#(`#(#$pN0#Q#SNQN(#g(#YY@N(AA#.#d#(x (#g0#i N@33#m#q##A%#sp(YN'h#`#[(yH#(JJNN3 P## ''g# 8#("BN((NGNNn(@%|N(@'H#SSA$% A(#($$%AA$'V$'@A$)AY$)(')'P) (#Ä($Y$)(/)($Y$)()BY@$)(A$/$3#$/Y$)(@A$#A$# A(#($$#AA$+V$+@A$-AY$-(x$1A 1AY$-(00#x$1 1Y$-(ـx$1 1Y$+(z@A$#(#Y$'(z@A$%(#0W$($>$2$(]Y$4A`$$3e$2A$%(#a$$3$3V}$BDDJAN'H$I&A?$L`Ns($R@N/pN/`N2P)2p$H$[$(NSA(R(AA(@(AAD$h(`N6($q$q((x`N]NI($xJ$xNYN($$3$$逈`%Z($`%Y~~/7$==pNYN(`$[(AJ%aNAJ%cNs`%XpN`%WpNBAJ%[NȊA`%VpNC%_JN@`%UpN`%TpN($ Ns N8$h$`$[ (ypNsJ NJ N~NN$$$pN`N2P)%($Ȅ($-$`NP)($($`N2P)4p$AG$$($($`NP)($($`N2P)&p$G$$(( N S$$ P$ 8$($B%e(@%|6@~~$GG">$#$`N2P)5($(%Ai%( )(%!%%`N2P)6Ap%I%%((%/ `)pNpNsAA-%i%( %(%`%!%Y@N( p%J%/%)`N2P)7Ap%I%8%((%I`)pN~ӌ%=pNs-%@i%F( %(%`%I%$%K]Z%K(%L%%P(]&&p%A`%L%($Aa%L%%666&T%FFJ N9`N(% 'h&}`&~[(yH%h&~`&}[(y %'`N2P)0Ap&tH%J&t(NA'`N9(%`NpNi%( '(&u%&uAJ'NJANS'AJ(NA( %BBJAN'Ah&}`&~[(yH&Ah&~`&}[(y`N(&&&N'h&}`&~[(yH&h&~`&}[(ypNt`NM(&0AA(S(A(`Np&tn&8&t`N2P)&mm&<66p&tJ&A&t(?&CpN pNy-&IJ&MNy)`Ng(&SAB&S(`N6(&_`Np&t&_&t(`NIN](&fJ&f(xNJJPNNJJN!PNJN!m V&r&z l&{8&z(%N(@b&GGAJ(N9Ah'`'[(y &'`N2P)0Ap'{H&A'{(Y((')'P)(&(&3&(P)(& pNh'`'A[(yHJ&NAA'i&( '('|&'|'NY((')'P)(&k&HH(&Y((*)p'{AJ&'{)JANS'AJ(NADS(R(N'h'`'[(yH&먁&`N9(&H& `NM(&(S((&?'8'g'')`'('AY(($'@@P)('('Y@((JJNYN((' J' N ('&('8Ah'`'[(yN'H'2YN( pNtn'=(x`N6('D'D((x`NIN]('N`Np'{'N'{OOf'N,,`N3NI('VAA?'T"'V`N2P)%p'{H'_'{(i'e( '('|`'@`N2x'{ ,H'{H@_p'G'z'(( O X'z' r' 8'(&N(@((&'|6A557'`'P).('\'i'( '('` ''pNs`'P).('('&z'('''5 Y'' *' 8'('6@6`QQb'))Ah)`)[(y (pNs '''p'`'P)-('ڈP).('P)/('ڈ('(''܀('h)>b`'('''Q.'((qv(\'4(`\\A`'(_e(\p'fA(](Ze(^h)[(('a'(_(_  G6  y."wx~~qz(]]{zI!# FK!d@neu&s][= HUv.g' &  A (&N( 6@66~QQA);;  '+1234N ?@Q@9XX@@XRsRV*COMPILE_PROGRAM 92833-16097,REV.5000,870621 870622.0038 /P1K/CMP/UNT.PAS@@=COMPILE_PROGRAM LL .DLD.DST .MVWBLOCK CHECK ENDOFLINE FLUSH_CODE_B((UFFE PAS.1 PAS.2 PAS.NONCDS PAS.SETDIFFER PAS.SETUNIONLKKs//A  Y hAA2 2HA7A 7MA2`DhEA @ 0 BF ;AA"$A0 p</<CK //= $$I>8=(6v2 ;066@$@Ut@(P((d!(((݈` 9( !(((눱` :( !(((` ;/PASCAL/CMP/STD/UTL.REL:::5:81:128 644 0 0 50400 5300501472 34661 /PASCAL/CMP/STD/UTL.REL:::5:81:128 ""$Q QUTL REL +9+:+:Q(pZFST ;;XV7:PSUTL 92833-16098,REV.5000,870621 870622.0154 /P1K/CMP/UTL.PAS;@==XɐV7;DISPLAY_VALU92833-16098,REV.5000,870621 870622.0154/P1K/CMP/UTL.PAS=YDISPLAY_VALUUvv^.BLE.CFER .DCO.DLD.DST .ENTR .LBPR .LPXR .MVWPAS.1 PAS.2 PAS.INLINEERROR PAS.NONCDSPAS.WRITECHAR PAS.WRITEDOUBLE PAS.WRITEINTEGERPAS.WRITELONG PAS.WRITESTRING vS@@`P( Pӈ(TP(ZPՈA(h(J(($($`(A`(#A#`(SAJ(+(N(N`@(C`@(C8`A=`B`~~@HH(MH`AM`A(SS`(AY`A(^Ag`(AAA PՈ(vP(P׈A(( Ax`(`~""06(`(h (h "  ::Y&&AA A`hA ('#' TrueFalse String Pointer : @ ;;XUV8DO_LABEL92833-16098,REV.5000,870621 870622.0154/P1K/CMP/UTL.PAS; hDO_LABEL bb.DLD.DST.ENTR .LBP .LPX .LPXR NUMDIGITS PAS.1 PAS.2 PAS.MIN PAS.NONCDS PAS.WRITECHAR PAS.WRITEDOUBLE PAS.WRITEINTEGERPAS.WRITESTRING b)II`^(8a ( (1`^pcc@@pcA ax vxd!cAdp] ax xc0`cz]{(88`||{`M(D`^A(D C`}{(RA I`~{''I`^pcAR`c{ W`A{ \`_{' \h **siAAeeAafp^AAg_(Q.+Pas * T @.bM"??X4yV8STANDARD_TYPE 92833-16098,REV.5000,870621 870622.0154 /P1K/CMP/UTL.PAS?+vSTANDARD_TYPE l DD .DCO.DLD.DST .ENTR AOC IS_STRING PAC PAS.1 PAS.2 PAS.NONCDS PAS.WRITESTRING TEXTFILEDCCApJ ( ((  `( (( ( A  `(AJ ('(/(/ . `( (6A(>(> = `A(J (EiCIIA(M(M L `A(P(Z Y `(`A(j`(j i `(`A(zp(z y `(`A((  `(p tt` AAH**AA Ap`p(Integer RealLongrealBoolean CharTextPAC AOC StringA  @:YO::X}V8TNAMES92833-16098,REV.5000,870621 870622.0154/P1K/CMP/UTL.PAS: uTNAMESb  LL g.DLD.DST.ENTR .LPXR PAS.1 PAS.2 PAS.INLINEERROR PAS.NONCDS PAS.WRITECHAR PAS.WRITESTRING STANDARD_TYPE LBBA (p `( ۈp`(AP(3P(;P(CP(KP(SP([P(cP(sP({P(kP(( :`( B`BJJ( J`( R`( Z`( b`( j`( r`( z`( `( `(1 Ah  ``p t` TT99AAAp`p(  *Nil* ScalarSubrangePointer Set Array RecordFileStringTag Variant ModuleT  @f&==X V8PRINT_TABLES92833-16098,REV.5000,870621 870622.0154/P1K/CMP/UTL.PAS= PRINT_TABLESz}}.DAD.DCO.DIN.DLD.DMP.DST.ENTR .LBP.LBPR .LPX.LPXR .MPY.MVWDISPLAY_VALUDO_LABEL INT_CONST NUMDIGITS OUTID PAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.INLINEERROR }YY .PAS.NONCDSPAS.RECVALPARMPAS.WRITECHAR PAS.WRITEDOUBLE PAS.WRITEINTEGER!PAS.WRITESTRING STANDARD_TYPE STRING_LITERAL_LTNAMES WRITELINE YSS&88A@ A((8@AABB FIFAB FIAF@AADD B ,BAD @@ (S8(T H<>JA9IHA@(9II8XEEA A(^(AA AAA0  P (P (P (P (P (P (P (P (P (P (P ((( @A (( @A ^UU(@ A  @A (( @AI@ A A(  ( @A (A  A  ((h (  E A  A(X  AA*2!!` p>A@ (#(;p=`>p<h< D ?I6?@<;>(C@6 AA<6 @hPA A<86 P ((C 6 P A('(C AA6 @A< >!`  (@6 AA<6 x;A6 ! hA >A<;A>(!ǡ`  6 ݄x;`A; ա` 6 x;~~~YHH`; 6 . (` A6 & p; `; A`  6 倈+ p;A `;A (!` A (6 / A(!! ` A ((!(~#II`  6 ڀ' P A(1(9!8` A (@!@`  6 ݀/ P A(I(N` 6 . (6 , (u!e` A 6 - lKK(t!t` (!|` A6 + (A!` 6 ( (6 + (` A!` 6 . (!`  (EEA!` (`P (P (P (P A((!С` A (!ء` A (!` A (!`  (h H(h J`m(A6  ((MMJ00A!` @6 A ɂ@hPA  8 ` AA 6 ' AP (,6 <,<M,(L@0vB__A-A@A4(-AA8   Invisible Imported Exported TypeConstant Actual Formal Variable Parm # (EMA)Field ModuleStandard Declared Procedure FunctionExternal E<<M**rrorExitActual Forward Recursive Direct FormalProgram SubprogramSegment Modules [<KK11A  A(( AA      AA  A @ AA  (@  A   K ( !   A  A (   %BB`I(   *`@ ( 0( 3` p ( 5`p A 7` p @ ( p ` p `  @J@AA  P`  ( \A! \`  ` P ( bP ( j( ! i` ggB: g;; (  ( p( x! w` ( ! ` ( ! ` A! `      ( (   A @ p 8 ( @g   ||Y[ [[A  p ( %   <>/][ " No Program ModuleGlobalLocal Identifiers|$$  J3@$@Fd??X PV8 XLATE_LITNODE 92833-16098,REV.5000,870621 870622.0154 /P1K/CMP/UTL.PAS?;XLATE_LITNODE LL 2$.DLD.DST.ENTR .LPXR .MVWDISPLAY_VALUPAS.1 PAS.2 PAS.BITMASK1PAS.NONCDS PAS.SETINIT PAS.WRITESTRING LMMV#00A3C1 G5GFCEhMx6A1H ,H6H@ (0 $`OGGEA3J@hN LA017M .0; !!e<AA::A3(  57 =!@2~<<Xuo$V8 PRINT_TREE92833-16098,REV.5000,870621 870622.0154/P1K/CMP/UTL.PAS<mPRINT_TREEi .DAD.DLD.DST .LBPR .LPX.LPXR .MVWDO_LABEL FULL_SIZE OUTID PAS.1 PAS.2 PAS.BITMASK1PAS.ENTRY2PAS.EXIT2 PAS.NONCDSPAS.RECVALPARMPAS.WRITECHAR PAS.WRITEDOUBLE PAS.WRITEINTEGER""PAS.WRITESTRING TNAMESWRITELINE XLATE_LITNODE "JJAZxY`Y A@ph `h`Y ,HH@(5`YP((#"Z(!`YP ('(DZ\@\AAi\xh@\AAkCihk(!`YP(H(AZ:JLL@hAXm` M mA(Z'P(i(p `AZAxh} `h `눈(!`YP((Z^ `AA ^LLAxh `hA ` ^Axh `h@^AA ` `Aɡ ` `A^Axh١ `h(!`YP((A ` KKZxh `h눈(!`YP((!Z` `A`Axh `h `A`xhA `h `A`Axh! `h& `AZ @--QQph5 `hAZ (>(`C `A Z\N\ApXZ\ Y\AA\` `\e ` AZ  @phAt `h{ `AZ tw~LLxh `Ah ``YP"(( `A ZAAbAA bdA d/( `A d.( `A d-( `A d~~GG,( `A d+( `A d)P(P(PA(( `A( `A( `A( `~llr?? `bxh `AhAA ZfA* `  f/(6A6 ` f.(BAB ` f-(NAN `PlP(|pTSr]]AQqpAZ(Qqq _m [ low: hi: [ . ., regs ObLcMxRgShAnHp1k?? #dir i1 i2 bi1 bi2 ii2 cnstvar exprcondbrsl=tru=flseq0 ne0 <0 >=0 <=0 >0 skpfskpt3way+ @ and :=~`` binfbinxbynxcsercasecaslcsltcpar^ set-/ dntofbuffcalforlfor fspcgotoid if ilabindxind ind2in set*.. labllabslit lab mod * neg noopnot or packpcalrnge= >= > <= < ~= =fls=tJJ/55ru=0 >=0 >0 <=0 <0 ~=0 reptreg selnset stmtsinfslststor- st<=subssyntto cnvtset+unpkunquwhilwithwtreJWndHHA A(j(AAP!(u(|z `A |A `   `A  ` `A ` qA ,HH@(P#::oI(@AԠ` p  ((A@ A(@ p :7( VVύ<?J@S??X("<V8PRINT_OFFSETS 92833-16098,REV.5000,870621 870622.0154 /P1K/CMP/UTL.PAS?hPRINT_OFFSETS }}.DAD .DCO.DLD.DST .LBPR .LPX .LPXR PAS.1 PAS.2 PAS.BITMASK1PAS.ENTRY2PAS.EXIT2 PAS.NONCDSPAS.RECVALPARMPAS.WRITECHAR PAS.WRITEDOUBLE PAS.WRITESTRING WRITELINE WRITE_OCTAL }PPAAtvA vP:( (l @vA ((( v@A  A(l( tx` p `9A@ (4A2p A xxzA=`zD`A x(Wx //PxzVz(^^` A  x x@A /l( {p !}Am|{At(m|| ????? BB''|  ,H@ (A  ((A@ A(B( IAA(èk__ e66`s( `A!"`-##`;pp `%$$8 8(`9p  AA _   ::8''8(   STMT OFFSET C O D E O F F S E T S : ;9> @P<((>>XV8PRINT_TOKEN 92833-16098,REV.5000,870621 870622.0154 /P1K/CMP/UTL.PAS>;PRINT_TOKEN 7@@X&DISPLAY_VALUPAS.1 PAS.2 PAS.NONCDSPAS.WRITECHAR PAS.WRITEINTEGERPAS.WRITESTRING WRITELINE @BB`p`@( `@( ( `p`A`" `A%`,`A1`28`A=`3D`BGGAI`P`AU`Z`Aa`f`Am``΀@(yx`(`A`xxJ0>>``A``A`4`A4A`@((`A``Ax S >>**8() "in im sy op ch ( kk id " see below " el lg va > 2 @'Fq/PASCAL/CMP/STD/XFM.REL:::5:172:128 644 0 0 126000 5300501474 35776 /PASCAL/CMP/STD/XFM.REL:::5:172:128 ##$ XXFM REL +;+<+<UUFST ;;XV11PSXFM 92833-16099,REV.5000,870621 870622.0046 /P1K/CMP/XFM.PAS;@99Xz<V11MAX292833-16099,REV.5000,870621 870622.0046/P1K/CMP/XFM.PAS9 MAX2  77 .DCO.DLD.DSTPAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDS PAS.RECVALPARM7AAA(( A(S(0 **8 A  (AA:A:*@999Xs<V12REL092833-16099,REV.5000,870621 870622.0046/P1K/CMP/XFM.PAS9 %REL0  G.ENTR PAS.1 PAS.2 PAS.NONCDSOOr  `"P/(P0(P1(P2(P3(P4(( `5p#( `6p#( `9p#( `:p#( `8p#( `7p#( O s- `#% &A$$p"`;p#(/ ,-./01456789N@w::XV13REDUCE92833-16099,REV.5000,870621 870622.0046/P1K/CMP/XFM.PAS: eREDUCEW ZZEZ.DLD.DST .LBPR .LPXR .MVWCOMMUTE FOLDPAS.1 PAS.2 PAS.BITMASK1 PAS.ENTRY2PAS.EXIT2 PAS.NONCDSPAS.RECVALPARMTRANSFORM ZKKA A(( A@h `/(` ,H@ (AAAA A(&(A /(11`P(5(: A(@ @A( `P(AG ooPK?? ,HH@ (a  ,H@ A(dd  ,H@ (`Y(  ,H@ A( 0og(>>z%%A A(keGN@0!N > f"M @e==X ,V2TRANSFORM 92833-16099,REV.5000,870621 870622.0046 /P1K/CMP/XFM.PAS=O,6TRANSFORM 9yy9.CFER :.DAD;.DCO<.DDE=.DDI>.DIN.DLD?.DMP@.DNGA.DSB.DSTB.ENTR C.LBPD.LBPR E.LPXF.LPXR G.MVW6ADOPT 5AOC 4BREAKOUT_INFO 2CHCKB 3CHECK 1COPY_TREE 0CVTNODE /DISOWNy}}--DOUBLE_INTEGER.DOVER ,ERROR +FULL_SIZE *GETBOUNDS 'INBRO )INDIRECT_THROUGH&INFTS (INSERT#INTEGER_TREE_VAL%INT_CONST $INT_TYPE"IS_STRING !MAKE_CONST_NODE MAKE_STRING MAX2NEWLABELNEWNODE }zzaxNEWPAGE NEW_CST_NODENUM_ELEMENTSNWTPN OPP_RELATIONALORDER PAC 8PAS.1 7PAS.2 HPAS.BITMASK1IPAS.BOUNDINTEGERJPAS.DOUBLEMOD KPAS.ENTRY2LPAS.EXIT2 MPAS.INLINEERROR PAS.MAX NPAS.NEW2S zxx7PAS.NONCDSOPAS.RECVALPARMPPAS.RECVARHPO QPAS.SETINIT RPAS.WRITECHAR SPAS.WRITEDOUBLE TPAS.WRITEINTEGERUPAS.WRITESTRING PRINT_TREEPROTECT_TEMPREAL_TYPE REDUCEREL0REMAPPERREPLACENODE xXX VSETUPOPERANDS SET_TYPE_INFO SINGLE_INTEGER STACK_TOO_FAR STRING_INDEX_CHE STRING_LITERAL_L SWAPOPERANDS TEXTFILEVAR_TO_ADDR WRITELINE X//#AF,EP,((F,G@h/AG,I%A"A"(p/ s `% f& AAB$$A`,p(e!0SSAF,/,JF@,-,JAAAApEApF,3,J$Pp`@A(F,-,EP,(](F,-,G@AE,J@AA+k;,L(p((AF,-,G{,-`A(F,3@,JxMLL8(݁%,-(F,-,Jx8,G:,-D :E,LxF,L``(F,3,Jx8(AF,/,Ox,NA8A(,3,/`(AF,3,Jx4JA8AF,3,G  8(0 MM33AF,/,J$$$("AF,-,J$$$(" `#( ,3A,3,$,1,/,- ,3A",3,$,1,/,-M "' =(AB&&p#(OO-..AF^,Q\F^,S(G\;8(G(@\;8(GA(V(VDfx` `Dgx`AA,U`([*[\fgO [h aiAABeeA^(-pSSANu,W,Yy,IF,Z@AAF,ZxAAAF,ExF,EA`F,G/,ÄpF,GxȂO,0ǀOF@,QAE,\P,ÈA((N,W,^,MF@,QA@E,ZSSF,ZxF@,QAE,ExAF,E`DŽF,Q@AE,G/,pAF,GxȀȂO,0AOF,QE,QF,QxF,SAF,_F@,QAE,SɦYYA(3F,Q:,SE,L ,S:E,LxAADŽ(KF,Q@A:,SA@E,LAA,SAA:E,LxF,Q@AE,_(pF@,QAA:,_E,L AA,_AA:E,LxppoII(F,Q@A:,_A@E,LAA,_AA:E,LxF,QxA(F,QF,QxF,SAxF,S`F,axAF,a`DŽp A AABA A(pTTAN,c,eD@hG,dAD`GA,dF,J+A;,L((I(I,';,f(#(#,';,h(A((# ,E,j86,'@AAA,MA6"(H(,EA,j8A/,N,jgger.GG8}65}69}A,'@AB,jAA6H(cN,E,j8AA6TA,'D@],j6ch,NA,j8A6nAqug+u(#yxAKvOA(LvivTT@Q|b,[,p,T,k,l,m,n,o`@xhF^,E ,Hh@H(AF^,JxiAA`iAF^,Gjn`jF@^,GDCjn`Aj(TF^,EP,((Th`A,%ADA,'>,%F^,G}}RR@AE,GAF^,G:,GE,L`,&F^,Jxh`hF^,G@DC\\ (+(TF\,EP,(2(JAF\,GjA<jF\,GC@AjIj(MM\D\\(%}T(lX))oAKUnOl`Om^(ALUnnb,',%)0TT@Q,[,p,T,k,l,m,n,o`@xF,E ,H@H(#AF,GF@,GDCF,Q@AE,\P,(("h,%AA,'>AA;,h(pVRRA3,qAA=,_AAJ,_,r;,L(((AA;,L(((;,s((;,s((A>A AD>F,ZxF,E`(F@,JAE,\P,ň(.(N.SSAF,JE,Q$<(DAF,EAP,(NF,JE,a(O(F,J@Ah[F,Q@AAF,\P,(i(,',S:EA,LxA;(({(,S:E,L66j!!x,',%,_:E,LxAA;A((,_AA:E,Lx,%6())+AKOO(AL,',%)KPPA@D,/AAF,/,GE,u (( ((DF,EP,ۈA((yF,\Q,M,R,j` 8ph܄xF((,\ ,H@HA(Y&(Y)PP;8(Y(.;8(Y(4*9AF,G@hG,IA%D,';(M(M(SAA;,%(RpA3Y,wA$\(x%aA(xfP,(i(xAn,N,E(u,3Ax(ccy>>AF,JE,\P,((F,EP,A((F,\nA(F,\AnAF,a(c ('$AK(ALӨ̀,',%PP@Q"O,j,p,x,yF,/,E ,H_@H(CAF,-,E ,H_H@H(CF,/,G@AMAF,-,GKFM,E ,H`@H(CAFK,E ,H`H@H(C.,$pU03,/S2U/7,-K6;,/K/?,3,-0C,3,y"C([VG>W AKDV(ALDVVP8_aSSAF,3,J$k(q'p,M(AF,3,J"{(AF,3,J;8(A((F,/,J;8((F@,-,JJ;8((AF,-,JE,QF@,/,JA@E,QAA:A \ AAF,3A,JxA(AK(aALɨ,OOAp F,3,J 5 A(,F,-,EP,((,F,3,J@A A ;,L((#(#AF,/,EP,((#F@,-,GAA A,- F,3J,Jx 8AAF,/J,Jx 8AAF,-J,Jx 8Ap!JJAp (+'A,3,-6+,3,/(F@,3,JJ;8(6(L(LF,-,E ,H @HA(LGA,3,-6K,3,/(F@,3,JAE,\P,ňA(W(F,-,EP,(^(F,/,EP,(F,/,EP,Ȅ(FkXX@,3,JA nuA ,-0yA,3,zF,-,G D,/x AA (F,3,J@A   ,- n ,-0,3,{ ,3A,3,$,1,/,-F@ ,QAA F,-,JE,Q; ((F,/,Ox "WWAF,-,J ,|  AA,)(,3,),/(p ` ( F,/,EP,(( 2AF,/,GE,J   ( $AF,/,GE,JE,Q F@,/,JA; ( $( AF,/,GE,JE,QE,\ UU ,H @HA( 2F,/,GC@A A 2,/ A0 6,3,{A 9,3 @,3,$,1,/,-' C,EQ ,I,R,E,M,jh !x F@,3,JAE,\ ,H @H( AF,3,J  h ( AF,3,JE oLLAE,\P,ĈA( u( F,3,JE,SP,( AF,3,J;8( ( F,3,J@J;8A( ( F,3,J * A " $,'A;,f( ( ( ,%;,h( ( F,/,EP,ۈA( ( F,/,G@h &GA,I% rrl EE  ,'; ( ňA( (  A;,%( Ap 3  ,}( `8UA( F,/,EP,( ܄( F,/,G@AE,EP,( ( ( F,/,OAx F,-,J  ,|A  ,)A( ,3,),/r (   &&)? AK  (AL    ) ' ,',% @N &OO  .00AF,-,EP,p AF ,EP,p ` ( NF,-,G@h rAG,I%A L f ` ( ^F ,G@h rAG,I%A \ f Ov ^( n i bϊ j AK _ i( .AL _ i i f~~> sTTA@D,-AA D @A A i F,/,EP,( (  ,s,M 6 ,/  ,K,E,sAA F ,Gx  AAF ,Q`,F ,~`,A6 ,/ A0 ,/,AF,/,EP,( ( F@,/,GDC F ,E~2 RRP,( ( &AF ,G@h G,IA% A( &D @AE,EP,( ( &A@D AE,G@h AG,I%A : AA ,GAA:  A- ( D F ,Lx  A( D AF ,L`  6 RR F,/,G@A A %,/ ( ` ( A ( ` ( A ( D @CAA  AA F ,G F ,G@A; ( T( ( F ,Qx AF ,QP ( `( F@,3,JAA F ,~j< kWWx F ,~Ax  u p F ,~` A ,3,/AF,3,G,/D,/,-D,- D   i F,3,Jx  ` A(  AA  A;,_( ( AA =,_AA J  ,_, F,3,J@@1 UU  ,A,j  A( ,3 ,/- Ap  A  A6 A F ,GAA,G: AE,L` AA  ` ( ` A( ) ( )F@,3,JAA   (  ( ( F ,Q( )F,3Y8 PP,J  ,3,/F,3,Jx  ( ` ( 1 A( F ,G A( F ,QP,( @(  ( F( M ;,E( MA( ( F,3,JE,\ ,HH @H( c ,'( oAF,3,JTTb g77 * o A,'( A v,3( 0 |,3,[/ ,3 / ,3  ( ( ,G:,-E,L x AA,G:,-AE,L` A ,3T ( # iA AK ( sAL Ũ  Ԁ,',% UUAF,1,J* AA,-A@DAAD@AAF,G ( ( 7F,_@AAF,GF,Gx`( +A pF,`F,xAF,G`ŀt *RR( 0F,A`D@A(  9pAF,GE,G`ŀ F,G@AA A( T( ,GAA:E,L@AAA;( dpA2 j,A(  ( r( AA;( y( ( F,q |VVAxF,P( ( F,~A@hG,IF,~`G,IA/ AF,_ ( ( F,_@AAF,_xAAAAAA,~:A@E,LAAA;,( ( AD>D [[A( NF,G ( (\DF,G@A;A(W( ,GAA:E,L@AAA,~:A@E,LAAAAA;,(W(W AAF,G,G:E,L,~:E,LAU-VVAA;(?(4(?DA(A;(W(EA/IA (S&RA(W'WAA( F@,GAA (i(AAAF,G@CAA (}(ADo(cAF,G@CAA(1 AK( ALɨjHHAF,1,JE,SP,(P,(爈(`,pC(툀`,pC(h,M`8U(F,1,OAxF,|F8,)(,3A,),10,3C(;F,1,EP,܈A( (7F,1,(7AF,1,JE,SP,((7F--E@,3,JAAD)A,3,1F,3,F,3,JxFDF(;A0;,3C-;(LG?HAK<G(AL<GG:oPTTA1T,/AF,J ^(c`,p(e`,τpF,3,J@AAF,JxAAAF,/,EP,({(F,/,(h F@,~AA:AF,~xAAA6,3ل(F,3,J@AAA,c**A,,M,,E8AAF,G,G:E,L`66A6,3AK(l AK(PALMSSA,/ p2,(}F,/,G@ p2,(}F,/,G@AE,/,P,È(((} F,/,G@AE,uP,()P,؈A(R(gD,-@AAF,-,JE,Q;,s``>??A(Q(Q#D(QAA?AA O(gA@D,-DC#_(f Ad(g (m(}F,3,JxF,/,Jx` }( AK~(AL~PPAF,3,G  Ap 2 ,(AF ,',P,(qP,(P,(ÈP,(P,(ˆA((F ,.,A(I0A,3,F,3,Gx  AA F,3,J,A,MAF,QF ,XX@AAF,~x AA A6,3A,s,MAA6A,3F ,&,ـh AAA,MA6,3A",K,E,sF@ ,AAFA,Gx AA F ,+,لp F,QA` F,~6EWWH,3(pA0M,3,AF,3,QF ,@AAF,3,~x AA AF ,_F,3,Gx  (AF ,/,(A0},3,AA,3 AF ,F ,_@AAF ,Gx AA AF ,!,];MMA((F ,QF ,!,h F ,~x  F ,WA @8ʄA( ,3(F ,WAH8x ),3 (F ,x F ,QA` F ,!,h @ SF ,~x A (A,3(,, (fAK(ALXX77AF,3,OP,( (P%,,j8AAXD,3A@hvG,dDX`vAG,dDXxl AAlFX,O`,0D,3,F,3,Gxl l6P,3XXtP(rmT]n AKQm(ALQmmZwVVAF,-,JE,axDpCpB`D(pB( F@,-,JASSQ,-QnQ,-F@,-,JAShSbdF@,3,JAAS,,jSO/,3,/(,3AO,-F,-,JS+SA;,L,tTT(h SS,MS6OSAOFOA,JxUQAAUF,/,JS+SA;,L(((,%A(,'D@SS( p@F,/,EP,((AF,/,G@hfG,IA%VAK(+F,/T!VV,J((S*+Sgi`@(_KA,'S7S(_A>,E,j8ME,N,j8AAG6KAM,/6OAMG,'D@SXS,MS6^GAS(d,E,j8MF,/,J@ASA+pS;,L(u((Az wXX,N,j8G6MG6GA,/(6AM,/,'D@SS,jS6MSF,/,EP,((AF,/,G@hfG,IA%VS.S,'(pAAM0,3,6,3M,s,MS6,3S,KA,E,sM~~pPPAFM,GxUA UAFM,QFM,~A`,6A,3M,3,3,$,1,/,-AF,-,EP,(( F,-,G@hfAG,I%AVKpB`A( pB(AK(AA,%A,'AASKA;S(pB`B ,~00$pC`D0C(60(,3,F,3,GA,GAA:,3E,L`B(8m80 8(^Y<,ZAK9Y(wAL9YY,',%VKEkOOApF,-,EP,(t(WF,-,GA@hG,I% (F,/,EP,Є(F,3,J@AA,3,/AF,3,JxAAp(WF,/,EP,܈A((F,/,(AF,-,J+A;,L(((o=TTAA,G:,-AE,LA AF,/,~:F,/,Q((0,3,F,/,QxAF,3,Q`҄F,3,~xF,/,G@AAF,3,GxAAp(WF,/,EP,ЈA((WF,/,GO/XXD/,3,-/,3,//!,//%,/0),3,`6-,301,/,F@,3,JAAF,/A,JxAAF,/,,A6J,3,/A6N,/A6R,/,-AU,/p`(vA],/(vF,/,EP,(vnn%fNNj,N,j8AA(q,3,-tp`(F@,-,JAA,E,jF,-,J@AA,M,j/,3,-/,3,/6,366,-6,/0,3,,3n() AK(kALըɆTTAF,3,JPP(CAF,3,JPAP;,sA(C(C,GAA:,3E,L@APA  P\^`b0,3,F,3,AF,3,Q`MF,3,~xhKpRA RAF,3,GxRAANR`M(C`LA@8ʄ!!u3(; 9,3(C`L@8pRA)C,3R!C(X SGjTAKDS(ALDSSNMKLQdMMAF,3,OxF,1,Ex`I,9 (݈P,({P,(ꈄP,({(F@,1,GAAD@A AF,E ,HH@H(F ,E ,H@HA(Ap0A,30A,1,xF,1,GuuZkNN@DC /,1 ,x,j8AA 6A  6A,3 F,1,,A,1 (0,3,y(A,3,1ApA0,3(F,1,G@AA,3(0,3,yF,3,O`u( AK(dAL8_ee;HH`(2,-DD(BAA,-A@DAAD@AAF,JnALnAR,MAF,JE,S+`x*fy{ef(upjlq AKgp(ALgpp,',%B}[[A,,j,sF@,JA@E,QAA,I,j,dA,j,sAA,G:AAN,\,F@,GAApD`pAF,L`F,GA,,j,s,'6,%##AA6A6A6A6A6#( AK(}AL~D__A/,3A/ ,3A/,3A,,jD@hGA,dD`G,dA1(A-,,j637,'6=F,EA,jA6LA6PAAAY,,j6_6c@@c++AAAl,,j6r6v`A(6A6(66@{(ۼ AK(AL::5""AF,/,GE,uP,p恁ṕAD@hG,dAD,3`G,d:(,DB AK(ALrr DDA,/ A((\F,/,G ('(\F@,/,GAE,/,P,(4(76(\F@,/,GAE,uIpd!(\QBe,j,,,F`@`dxv ,Hv@H(\\r\(|w`Gx AK]w(AL]wwe `P,((A0,3(0,3H( ((FAKOpOpOp(AL(HHAF,/,EP,pRAF,-,EP,pQ`R(,G:,/E,LxO`QA(,GAA:,-E,L@xNQzS,j,p,n,o`c@`,$xY ,HHY@H(`R0Q(`,$P,((`R(kMMO,,y(N,,y(`R(  O,y,(N,y,`R(/,3,/(A/,3,-A$,3,$,1,/,-`,$P,(((FF,1,E ,Hd@H(FA09,3,AF,1,ExYAYpY0F,1Y1F(_ZJ_,[ AKGZ(ALGZZS8ee[eQQAF,/,JopQ,I,R,E,M,jh-xF,/,J@AE,\ ,H@H(`,$ ,H.@H(AF,/,J$(',MF@,/,JAA+;,L((`(@F7LL@,/,JJ;8((Ȉ(Z,3,$,1,/,-`,$ ,H.@H(ʀ`(Q ,j,p,,`/@`,$x ,H@H(A ,3`,$P,((0,3,(A0,3,A,3,$,1,/,-UUpF,/,J@AA (lF,/,EP,(((AF,/,G@h0G,IA%!A(4F,/,J*4A13F,-,EP,(;(MF,-,GA@h0G,I%FAAA(YF@,-,JAA*YԢWTTA57AAA;,h(b(b(jA;,h(ip`(@Q ,j,p,n,o`/@`,$x ,HH@H(F,/,J@AA(F,/,J@AA,,j(,3,/A/,3,-A6,-NNA,$p,$0,3,$F@,/,JJ;8((ʄ(F,/,OA`,F,-,O`,F@,/,JAA(`,$ ,H.H@H(F,/,EP,((AF,/,G@h0G,IA% A( ,3`,$uOOP,(P,(P,(P,( (0,3A,(0 ,3,(0,3,(A0,3,(,3,$,1,/,-AF,-,EP,($(cF,-,G@h0AG,I%/ (cF,/,J@AA+<;,(A(V(V@Q  ,j,p,,.HMM`/@`,$x ,H@HA(bYA,$p0^A,3/b,3,-(F@,/,JAA+m;,L(r((`,$P,戈(P,(x(A {,30,3,(A ,30,3,(AF,/,JE,\P,((F,/TT,JA,3n,/nA,-,,j6,3F,3,OP,((A,l,j8D,3@h9GA,dD`9G,dADx F,O`,A0,3,AF,3,GxA  A6,3 6()3$&&[.%AK$(eAL$$8Y &„:LLAF,-,EAP,(MF,-,EP,(G(LF,-,p2S,(|F@,/,JAE,G/,(F,-,EP,DŽ(F,/,EP,(n(AF,/,A(0xA,3,F,/,QxF,3,Q`AF,-,~Zs[[F@,/,~AA:AF,3,~xAAAF,/,GF,3,Gx(A0,3,A/,3,-AF,-,~;,h(pAAA6A,3A,3(|F,3,J,A,jAF,-,EDXXP,((|AF,/,EP,((>F@,/,GAA(,/F@,-,GA@E,~AAF,-,GE,~;,h(ApAA6A /$,3,-/(,3,/,,3,-F@,-,GAA7A,/F,3dd9CC,,(y/B,3,/6F,/F,-,G@AE,~@AAA;,h(Vp^6dh,3,-F,3,,F,3,G@AAyA|,3d|(?AK}(:AL}<<}n$$AF,EP,((F,G@hAG,I%AA(AA;,U(pA3,< ( qAKOA(L̨cc%G??AF,3,JE,SA(D,/@A#A# A((F#,EP,((F#,G@A%%F@#,GDC%%(#A@D#A#(c m(,'EC(AK'(AL'' 0A43,3  3(@;7F<AK4;(0AL4;;UUD99AF,3,J+AN;,L(S(}(}F@,-,JAA_,,jF,-,EP,p!m(r,3A,-AA,-0zA,3,E}U }( GAK~(DAL~00=AF,3,J$(',MF,3,EP,((0 (I^AK(AL445 AA,-AF,EP,((F,G@hAG,I%AA ,/A0,3,[4 ( { AK(ALXXA,E,j#@#06 #0,-A#6@ A+ #@x A  AA 6 A#0 #( ( ( 3AF,-,EP,( $( .F@,-,GAE,EP,( 3( 3#0A#(,-6 7A,3#0 ;A,s,M A6 A,3 A F,K,E,s#*((#* F ,Gx KKp Q//#HF ,Q`#GA#H ( s#4AA#6>?#FA;,_( s( sAF ,~x AA,_=#FA ( xF ,~6 |,3#*0 ,3,K ( N AK (AL   UUA0 ,3,A ,,j#>#.+ #>x!h #H!h!i6 #.!i,/!f#6?#H!bF!f,EP,܈A( ( F!f,( AJ#D;8( ( (  !b( AF!f,~A!b!i !iA( F!f,~A!b!iF!f ZZA,~x!h!iAAh#.AA#,,-A!d(!  ,E,j#@AA#06!A#0,-#6D@!i+! #@x!h!!i!h!i6!#0!i#0#,#0!d6!$#.!d#D;#>(!6(!*!/,N,j#DAA#*6!5,3#*(!:,3#*6!>#*#.#( (!D(!ZF))!E,-,EP,A(!K(!UF,-,GE,EP,(!ZA(!Z#,#(,-)x!Z(!p !k!^T!lAK![!k( AL![!k!k!tWW`8l(!|!y!|,3AF,/,JE,\P,(!(!A!(# F,/,JE,S#B+!#BAA#:F,-,J#N+!#NAA#<F,/,JE,Q#NF,3,Jx#P#NPF,3,OA`,F,3,J#JF#J,Z@@!TT#HF#J,E AA#FF,/,JE,G/,A("#HA;,(!(!(!#H;,s("("F@,3,JAE,\ ,H#]@H("AF,3,J#J+A" #J#HA #F(" F,3,J@A#JA+"#J#H J"KK#F*"%#BA#^#`#4AAA#6#2AA#<;,A(";("1#6D@#J-"9#J("@JA8#@("D8#@#@;8("O("J-"M#H("TJA8#>("X8#>"[,/A("dF,/,EP,("d("#@;8("k("pp"jNN("p-"n#2A("#>J;8("w("("#2?#H#J-"#J("JA8#D("8#D #(,-#LF#L,EP,("("AF#L,G@h#bG,IA%"#Q#8#6;#8("("("AA#8;#4("p#PA3""LL#P,("`8UA("",|,j#B#(`8d("AR"8`,,TU"8`#c,K,K,MAS"8`#H,EU"8`#e,,,MAS"8`#F,ER"8`A,,MS"8`#6,EU"8`#h,jA,j,MS"8`#4,E"/#,3,-#F;44f]#,s(# (#  # (# !k# `8l(###,3A#,3`8lA(##A#,34#(#Y1#T##$$#UAK# #T(!tAL# #T#T#i#6#4#Qwse bse ..$##j A*#o###$$$$Q#w(###|$ #AK#x#O#A#(#jL#x##$$ L#A#@AA##A@#A###A#R#(###$%%#AK##OA#h#G,KA(##AA,L##,##%E-#AAA $A $A$ A(#($F$,Ex$`$P,($RP,($P,($3P,($(F,3,~x((F,1,G@A(AF,3,Gx(AA(('F,1,OP,('('A',,E8(F(,GAA,G:(AE,LA0',3,A6',3(A',3((AF,1,EP,('SS*'33('',3,1,3(F(,Jx(8,G:(E,L ( F(,GA,GAA:(E,Lx(( ((`8Z((%(S.C((('("(++FT(#AK(("(%AL(("("((,',%N N +BBf(>++A(B,s,MAA(q6(HA+ (q(M,K,E,s+F+,Gx(s sF+,QA`,F+,~`,6(e+ +0(i+ ,B/(i((y(t(mu(uAK(j(t((>AL(j(t(tCv(}VVA + A +AA,/+ AF+ ,EP,((((F@+ ,GDCE,EP,((((F+ ,G@DCE,G@h)LG,IA%()? A((F+ ,GC@DC@CA@E,GA;,s((((AF+ ,G+ ((A+ |(OOA;,/((((AF,/,J+(,/+ F,/,Jx)B+B,/+ + +F+,EP,DŽ((F+,EP,((() AA++ AF+,G+((Ap+F+ ,EP,()()F+ ,()Ap+()7+A;+ ()711p)"()#F+ ,EP,()1P,Ȉ(),()4(t).`,p+()7`,Ĉp+()7h,@M12)7()H)C);)D AK)8)C((}AL)8)C)C)?JJM)M**p)`+P,ĈA()S()wF+ ,GC@A)AF),EP,()fp)()wF),GA@h)G,I%)q) ()u()wp)J3)w() )){ ;)AK)x)`,Ĉp)()M`)p,AL)x)`,)) )KKAF+,EP,()()F+,()))()1)+A*())+()A)8+())8AA+F+,J*F+,Jx**++)+,MF+,EP,()P,ш()P,()P,Ԉ()P,()DD)))P,()(*+ ()()F+,A+A+(*F@+,JAA*),,M*+6*++(*h,@MD6*(*** ?* AK* *()AL* **+@*XXA** 1*$A+ *F*,G**/*+*+F+,G@DC***F*,E`,AF*,G,G:*E,LD**D*+F+,G@ (*F+,Q(*A*p8*A*v**{*vA*z*,MAF+,QF+,~8#*(***B* AK**(*AL****GGjN*..A@D+ AA+D+ x* `+(*A6*,3+A+ A(*(*F+,G+1*+**++++(*G94*(***ER* AK**(*AL**ب*+88)*)C*`+P,ˆ(*P,(*P,ĈA(*(*1*+ ++(***(***(*h,M**8:@*(+'!+"+G+# AK*+"(*AL*+"+"+??+-%%AA,3+ZAU+88`+f,F,F,MS+=8`+Z,MAU+D8`+j,H,H,MF,3,Ex+\T+M8`\,MAA+O+R,3?;F+R(+b+]+V0+^AK+S+](+-AL+S+]+] Node = , Type = Z)+o>>A+v,3,$,1,/,-`8h8m(+U+8`,,R,R,M+]+AF,3,E@I,3 (+P,(+P,Ĉ(+P,(+P,Lj(+P,(+P,̈(+P,(+P,Ј(+P,(+P,҈(+P,(+P,ֈ(+P,(+P,݈(+P,(+P,(+P,P+;;(+P,(+P,ꈈ(+P,(+P,숈(+P,(,P,(,P,(,P,(, P,(, (,+(,V+(, +Ɉ(, +(,+(,G+(,+Ո(,+(,+(,+(,Y+(,+(,S+(,jjWK+44+(,+(,V+(,w+(,$+(,+(,'+(,;+(,,(,$,(,#T,(,(", (,+",(,`8h8m(,U,8`,,R,R,M+],j>,(,A,5, >,7__AK,,6O,5A,3(+oL,,6,6 G " )_CH,1N1'2=A+/ X!"<<,**3FBD./0-&%$. 3 !Original Transformed <LL,77((  !"#$%'(*+,-./02<=?BCDGMD  sL@~><<X"V2COMMUTE 92833-16099,REV.5000,870621 870622.0046 /P1K/CMP/XFM.PAS< COMMUTE I ll .DCO.DLD.DST .LBP .LBPR .LPXR .MVWINT_CONST INT_TYPE PAS.1 PAS.2 PAS.BITMASK1PAS.ENTRY2PAS.EXIT2 PAS.NONCDSPAS.RECVALPARMPOWEROF2SWAPOPERANDSlNNA x @@ @hA @hA` ,HH@(M` ,HH@(M  ,H@(MA; @@ @hA A@h`ffJGN88P(Q(h`P(U(hX(hA]xAaA(d(hg(` ,H@(`P(v(Ay(~A (((f(-//uAA(   _ / !$ @d>>Xh{V2LOOK_FOR_REMAP92833-16099,REV.5000,870621 870622.0046/P1K/CMP/XFM.PAS>fLOOK_FOR_REMAP?? .DLD.DST.ENTR .LBPR .LPXR PAS.1 PAS.2 PAS.BITMASK1PAS.MAX PAS.NONCDSREMAPPER?pIIAp^ bnx_ b(`_Pyp^`^(A`_ ,Hw@ A(A bp`` (+(A`^(A`^(8 `r.x(9Ap^ `@A`(%`^(SA btxd(({cIAMdvpd btA`d brxddNz0^Nd( ]f gAAeeAb( _ Lx @o/==XgV2LABELNODE 92833-16099,REV.5000,870621 870622.0046 /P1K/CMP/XFM.PAS=QpLABELNODE rr .DCO.DLD.DST .LBPR .LPXR LOOK_FOR_REMAPMINREGCOST PAS.1 PAS.2 PAS.BITMASK1PAS.ENTRY2PAS.EXIT2 PAS.INLINEERROR PAS.MAX PAS.NONCDSPAS.RECVALPARMSETUPOPERANDS rEEAk A((Z kcige`cP(.A k (($($`c ,H@ (.`c ,H@ (1`pb(M`c ,HH@ (>pb(M`c ,H@ jEFF(Kpb(M`pb`bP(WP(XP(P((W(Z i ,H@ (rAhipmA i`mqi(upuiA ixm}kpnmAnpm k`mkIKK(Z g ,H@ A(Agpm g`mg(pAg e ,HH@ ( eAe(pe exmA gPm(( g xm kÏLL`m(A gxm eAxnmnpm k`mA kxmkpnmAnpm k`mk(Zkpdgii ((N i ,H@ A(:i__;"88A g('(1(1*ipm i`m(6 iA9i(=p=i ixmAFdmpd ii( A k`dVk(Zh_Z({o^550xqA[poAk([pp S Y _N 50G@ ??X'8V2 GENERATE_CODE 92833-16099,REV.5000,870621 870622.0046 /P1K/CMP/XFM.PAS?@vGENERATE_CODE qq4.DLD.DST DB_STATEMENT_LIS ERROR EVAL1 LABELNODE NEWPAGE PAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDSPAS.WRITESTRING PRINT_OFFSETS PRINT_TREEREDUCEWRITELINE qwGG`z Q(gr`h(AA A`AA!$`h(9 )+2`A4A79 ;`ptpq`q @ FFHG""A(I(U L`q @pu Au8q8t(?r`7I(bb`9A(g g pzFi({ vm++wAjv(Ajvv8 TREE = REDUCED TREE = + O @ٵu>>X"V2 TRANSFORM_TREE92833-16099,REV.5000,870621 870622.0046/P1K/CMP/XFM.PAS>TRANSFORM_TREE88 *.DLD.DSTPAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDS PAS.RECVALPARMREDUCE8z`z( pz#( <A  A( @^}d/PASCAL/CMP/STD/PASCAL.REL:::5:140:128 644 0 0 106000 5300501475 36052 /PASCAL/CMP/STD/PASCAL.REL:::5:140:128 &&$  PASCAL REL +<+=+=EZ\FST @@XpvWPAS.GLOBALINFO92833-16103,REV.5000,870623 870623.2305/P1K/CMP/PASCAL.PAS @@Qpv==XzWIS_EMPTY92833-16103,REV.5000,870623 870623.2305/P1K/CMP/PASCAL.PAS = LIS_EMPTYd  33 Z.DLD.DST.ENTR .LBPR PAS.1 PAS.2 PAS.3 PAS.NONCDS PAS.STRRTRIM3$$AAAh`A p$ s` BA A`p( cn @ D(??XIdWHANDLE_EMPTY92833-16103,REV.5000,870623 870623.2305/P1K/CMP/PASCAL.PAS ?AHANDLE_EMPTY,,.DST.ENTR PAS.1 PAS.2 PAS.3 PAS.NONCDSPAS.STRAPPENDPAC,(h`  UA(  a @ZAAXӱWSAFEAPPENDSTRING92833-16103,REV.5000,870623 870623.2305/P1K/CMP/PASCAL.PAS AoSAFEAPPENDSTRING6 66 q[.DLD.DST.ENTR PAS.1 PAS.2 PAS.3 PAS.NONCDSPAS.STR PAS.STRAPPENDSTR6ff}::p@`@@p<h>@p=`< :Af t:`?  Ap>`p?(C c @@@Xc=W SAFEAPPENDCHAR92833-16103,REV.5000,870623 870623.2305/P1K/CMP/PASCAL.PAS @/SAFEAPPENDCHAR 88 .DST.ENTR .SBTPAS.1 PAS.2 PAS.3 PAS.NONCDSPAS.SETSTRLEN PAS.STRRANGER 8EEV&&-p(`-A@(($h-`<++(7h-`>XpXW!SPLIT_FILE92833-16103,REV.5000,870623 870623.2305/P1K/CMP/PASCAL.PAS >i;SPLIT_FILERR -.DLD.DST .ENTR FMPPARSEPATHHANDLE_EMPTYPAS.1 PAS.2 PAS.3 PAS.FIXEDSTRING PAS.NONCDS PAS.STRAPPENDSTR PAS.STRRTRIMR=<<`:p`@Vp`hQ `@Pp`hQ`Q`hQ`Q`@Np`hM`M`@Up`hQ`Q`@VpAh`WA 8`@Ppho>XW"MERGE_FILE92833-16103,REV.5000,870623 870623.2305/P1K/CMP/PASCAL.PAS >ZMERGE_FILERR :.DLD.DST .ENTR FMPBUILDPATHHANDLE_EMPTYPAS.1 PAS.2 PAS.3 PAS.FIXEDSTRING PAS.NONCDS PAS.STRAPPENDSTR PAS.STRRTRIMR"@@`p`@p`h `hA`@p`Ah`@p`hA'`@p`h``@ph` ;`@ph` @KKAA Fh`AA N`@ph` Y ]`@p`@p`@p`@p`@pAh`A tAAA`@@`A@ %%V舄`@ph` % D rt A ( @Jo "&'@IJKLn@ -*>>XE=((W"CLEAN_PATH92833-16103,REV.5000,870623 870623.2305/P1K/CMP/PASCAL.PAS >]/CLEAN_PATH001.ENTR .MPYMERGE_FILEPAS.1 PAS.2 PAS.3 PAS.NONCDSSPLIT_FILE0PPJ((`<*@7p,,`<*@7p+`)(`+@8 `+@9 `+@: `+@; `<*@7p+(+P (/ p0A--p*.p)(v8&IJK@ W??X5&W#DISPLAY_FILE92833-16103,REV.5000,870623 870623.2305/P1K/CMP/PASCAL.PAS ?PDISPLAY_FILE55 }.DST.ENTR .MPYCLEAN_PATHPAS.1 PAS.2 PAS.3 PAS.NONCDS PAS.WRITESTR5(( A `$@"@#ph`%AA !(  >Ap (fv d#n @ ==Xr|W$ERROR 92833-16103,REV.5000,870623 870623.2305 /P1K/CMP/PASCAL.PAS = H6ERROR  bb =[.ENTR .MPYDISPLAY_FILEPAS.1 PAS.2 PAS.3 PAS.BITMASK1 PAS.BOUNDINTEGER PAS.INLINEERROR PAS.NONCDS PAS.WRITECHAR PAS.WRITELINE PAS.WRITESTRING b>>`p`3 ,HOH@(`("`3 ,HP@(1`2@N@A(1 )>>@?`3 !(?@12(@(H(P(X(`(h(p(x((((s>IIA(( GQ@@A?( OZ@@A?( WcAAA?( _nBBA?( gCCA?( oDDA?( wEEA?( DDA?( FF?~~CC( GG?( HH?( CC?( EE?(h A I?`3 ,HHP@( `2P(P(ЈP(P(P(P(( ~zHHJJA?( סKKA?( ߡLLA?( JJA?( >>A?( @@?(hD  KK?A2`A2@N@ (/`2P(P(<<(# JJ?(& "KK?(&h A -MM?p < *16 7XXA44p35p2(!    vInvalid default onDuplicate name forInvalid extension for Can't fixup debug information for Invalid name forOpen error on Put``rge error onRead error on Too many run string options for Run string overflow toInvalid security code for Invalid type forWrite error onsourcelisting relocatable optionassemblyrun string options file: compilassembl er.  @/"@@XW%SCHEDULE_ERROR92833-16103,REV.5000,870623 870623.2305/P1K/CMP/PASCAL.PAS @SCHEDULE_ERRORW~~..DLD.DST .ENTR .MPY .MVWFMPERRORPAS.1 PAS.2 PAS.3 PAS.FIXEDSTRING PAS.NONCDS PAS.STRAPPENDSTR PAS.STRRTRIMPAS.WRITECHAR PAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRPAS.WRITESTRING ~bGGA`A|@@وph``|@@pA)0`p$`p#`|@A@p >ABAA@ __m\G44KAJ#A TZ#_`|@@P(h(yoAt}yJ_ { JJi..A p|A`h (@) ] #} scheduling error ( [Exit status Jh@n@BBX?W&SCHEDULE_FAILED 92833-16103,REV.5000,870623 870623.2305 /P1K/CMP/PASCAL.PAS B?.SCHEDULE_FAILED ++f.ENTR .MVWPAS.1 PAS.2 PAS.3 PAS.NONCDSSCHEDULE_ERROR+NNz!%%`/P=(( A9'(%`&(`P=((A:'(%`/P>((9'`P>(!(%%:'N %. 3(/A,,p&A`-h<;(' = @#??X&SW'MAKE_SCRATCH92833-16103,REV.5000,870623 870623.2305/P1K/CMP/PASCAL.PAS ?Q#MAKE_SCRATCH||^.DLD.DST .ENTR .LBT.MPY.SBTFMPCLOSEFMPOPEN FMPUNIQUENAME MERGE_FILE PAS.1 PAS.2 PAS.3 PAS.FIXEDSTRING PAS.NONCDSPAS.STRAPPENDPACPAS.STRAPPENDSTRPAS.STRRANGER SPLIT_FILE|FF`P@9p`p`@Mp`hJ`P@9p` t(H`@OhE`A@Ip+AA-A` @:@`QAA7;/`A@Hp-Ah`QAAG;\FJJ/(]`@O `@Ip+h`Q]@01`@Lh`@KhF`hJ`J` t(AA+Ax=BA02|=h`QAAA (+=:MM345=h`Q h?H6HhAp`QA4H6``hJ`GA`PA@9p`@Np`@Mp h `Q-;D78;$$A 4`@NPR(eA $ # <<ww$!!A !!p"p(@P  v  /0/ PAS CW<sbE"'@IJn@^|AAXW(COMPILER_OPTIONS92833-16103,REV.5000,870623 870623.2305/P1K/CMP/PASCAL.PAS AI COMPILER_OPTIONSzxxERROR MAKE_SCRATCH PAS.1 PAS.2 PAS.3 PAS.CLOSEFILE PAS.INITFILEPAS.NONCDS PAS.REWRITE_FILEPAS.SPARAMETERS PAS.STRRANGER PAS.VALIDSTRING PAS.WRITELINE PAS.WRITESTRSAFEAPPENDCHARx NQSAFEAPPENDSTRING ;; pp  p `p 1 p 0`@  p`p F Ep`((J` 0(/  P(.`(,`p 1+ 0(-p(;`(9`p 1A8 0(:pa;@@`(H`p 1`p FG 0 E(Ip`p`(S`( `(_` 0p`A@p`(` 0A(i(m` p ` A(yA **j>{ A 0AA (A*bA == O##8 ($,()jZ E   0OPTSNOCCTL= .$ @Rdq$??XW)INIT_FILE 92833-16103,REV.5000,870623 870623.2305 /P1K/CMP/PASCAL.PAS ?bINIT_FILE .ddE.DLD.DST .ENTR .MPY .MVWCOMPILER_OPTIONSMERGE_FILE PAS.1 PAS.2 PAS.3 PAS.INLINEERROR PAS.NONCDSPAS.SPARAMETERS PAS.STRAPPENDPACSPLIT_FILEd~~B"@@`@ለp`p`ʈP(IP( (c` 5(` 6(h` (Hh` `@ `@ `@A Ah`AA8݈`@p`h~ d@DD`@ Hˈ(`@pAAЈAh`AZ`@ `@h  (`̈A@pAh`AAt`@ `@ `@ `@ ;;pЈ`@ `@ `@ `P(P刈(P(P爈(P(P鈈((`P爠((` uA(`ʈ@p`@  p`@p`hp "( (` u(A(h ^ &&WA pʀ(@-FN0T v Π &"""@IJKnw"@q1>>XW*PARSE_FILE92833-16103,REV.5000,870623 870623.2305/P1K/CMP/PASCAL.PAS >] PARSE_FILE~~.DLD.DST.ENTR .MPY.MVW DECIMALTOINTERROR FMPCLOSE FMPOPEN MERGE_FILE PAS.1 PAS.2 PAS.3 PAS.FIXEDSTRING PAS.NONCDSPAS.SETSTRLEN PAS.STRAPPENDPACPAS.STRAPPENDSTRPAS.STRRANGER ~88RPAS.WRITEENUM PAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRPAS.WRITESTRING SPLIT_FILE8CC`@pQ`QpR` A(  `R@pTAhT`UA UJT `@pT(T`R@pThT`U3UW 7WhQH`(F`Q@ `Q@)CBB (`Q@ RP(N(YhR`UWUPhQH`R@ֈpTTp`(f(r`A@pS`A@(`R@ւ@`AAU~UPՈ((`R@@`UvLLAAUU@(`R@A@`UAU@(`R@ւ@`AAUUPhRHۈ`R@(`S@݈h(qh`SAAYAA((PPAAApPppp`A@(P((`p`p(`p`@pT TAAAAU{$!GG(W / UW` (M9 A? A-F K J `(Y`S@hX (q`S@(q`ӆA@(i`lhAA(q`S@ q(`Q@܀(|`Q@h  (` t(`Q@h` A( `Q@pSA S `Q@pS S## `Q@pSA S #  rrzQQAp(@    vY-{FALSE TRUE User: DIR DSRODirectory: , Open: Parse: lu , dash , ftype ryt#'-/@n@0O==X%W,FIX_FILE92833-16103,REV.5000,870623 870623.2305/P1K/CMP/PASCAL.PAS = FIX_FILE aaj.DLD.DST .ENTR .LBT.MPY.SBTERROR IS_EMPTYMERGE_FILE PAS.1 PAS.2 PAS.3 PAS.NONCDSPAS.STRAPPENDSTRPAS.STRRANGER SAFEAPPENDSTRINGaPP##`#&@3p(`(p)` 0 0 (`&P(` !P((`(@"Pp%`%(!!&`%p'P s:#`'+ N,A **p&`p'( v2B4<<`#@p`p`䈈P(EP(EP(EP(N(\` !P(I(K` (Lp(^` !P(R(X` (Y`  (Zp(^p`(` @@`$rVp@@`@ph`$`@"(`劈@"h !`刈@"P(` (` (`h怄h6H hp`$`` p(`dd11hp`h`p @pAŀ (`刈@"P(ш(p`A@(`h`d  k A p䊠(4 v  DD`#@p`p`ƈ@!(c+ (cň`@(`@h `@pȀ`hA#(>.  `@ph`$> `@ @BBp`hHA(cAAS  `LjA@ pAh`$AAc `ǀ@ `ǀ@ `ƈ@"(`@(`P(y(~`@h(`@hvvNAA`@"P((`(` (`@p`h(AA` @A@`$A`@pAAAh`$AA`#ňA@pv { 44/A pŀ(* @JN d v ɀ  €4x"&'@IJKL@,KP??XW.LOOK_FILE 92833-16103,REV.5000,870623 870623.2305 /P1K/CMP/PASCAL.PAS ?n2LOOK_FILE {{:.DLD.DST.ENTR .LBT.MPY.MVW.SBTCLEAN_PATHERROR FMPCLOSE FMPFILENAME FMPINFO FMPOPEN IS_EMPTYMERGE_FILEPAS.1 PAS.2 PAS.3 PAS.BITMASK1PAS.FIXEDSTRING PAS.NONCDS{]] ZPAS.STRAPPENDPACPAS.STRAPPENDSTRPAS.STRCOMPAREPAS.STRRANGER PAS.STRRTRIMPAS.WRITELINE PAS.WRITESTRPAS.WRITESTRING SAFEAPPENDSTRINGSPLIT_FILE]2AA` t@Ap7`7p8`7@ (ʈ`7@ P((S`t(`8@ (S`8@p9`9h $9(S`8@A@` :`t @BA@`  _?8>(v nFHH`p `pANV.A Sr.0\XAVAAeVX`rA(kk`(}Au[{V`r(` t@Up,`,p-`-@(h,`Z A(`(`-@h R jS 8R(Fv0FMP: 7^GG` t@ꈊp`p`A(~o`@pAh` A|J`@ p`@ph` AAAAAAA `@ ??(ruq`r(`q(`@ (`@ hRA rps(`t(`@ P((؈`@p`h ׃(ps`s(`@p::Ah` Av`s(^>t`t(p` p!` p`p  p`(G`t(`p!`p p((p!`pph0^LL6p&A`AA2A7`p`pw @v(FAFt(YPAJAY`p`A(nh6pljP p p UU44Apt(^~  @ &) /5v  vPath: ROXSLUUy"'@In@h??X6W0PREP_PROGRAM92833-16103,REV.5000,870623 870623.2305/P1K/CMP/PASCAL.PAS ?jPREP_PROGRAM'aa.DLD.DST .ENTR .MPYERROR IS_EMPTYMERGE_FILE PAS.1 PAS.2 PAS.3 PAS.NONCDSPAS.STRAPPENDPACPAS.STRAPPENDSTRSAFEAPPENDSTRINGSPLIT_FILEaSHH`@p`@pȀ`h`@ `@p`A(Y`ˆA@pA`@@`AA3hń`@㈄`@p`HNNA@pAh`AAXA(`ˆA@pA`@@`AAohƄ`|ꈄ`@phĄ``@pAAĀ`TT))(` u(A`p  (`A@pǀ`hA`p  (A`ˆA@pT [ 77#A pÈp(R@T\]  W Run /0/ 7k "'@n@ЋBBXW1RUN_THE_PROGRAM 92833-16103,REV.5000,870623 870623.2305 /P1K/CMP/PASCAL.PAS B[RUN_THE_PROGRAM vgg5c.DST.ENTR .MPYFMPRUNPROGRAM PAS.1 PAS.2 PAS.3 PAS.FIXEDSTRING PAS.NONCDS PAS.WRITECHAR PAS.WRITEINTEGER PAS.WRITELINE PAS.WRITESTRPAS.WRITESTRING gUAA`(   0 `(`pz(r`|{0A(5A`{@ph`AA ,A3 `p~`p} = Ahh~A88AFpz`(jQA WA}^ cAz h `z(r(r`A`{@@hzh y 77oiAp|p{(} ) 0} scheduled. Ran: (7f@(*FAAXdW2PUT_RUNSTRING_CH92833-16103,REV.5000,870623 870623.2305/P1K/CMP/PASCAL.PAS AP/PUT_RUNSTRING_CH,,.ENTR ERROR PAS.1 PAS.2 PAS.3 PAS.NONCDSSAFEAPPENDCHAR,  A`p10 ( A    AApp (   @KAAXh%W3PUT_RUNSTRING_PA92833-16103,REV.5000,870623 870623.2305/P1K/CMP/PASCAL.PAS A](PUT_RUNSTRING_PA66 .ENTR ERROR PAS.1 PAS.2 PAS.3 PAS.NONCDSSAFEAPPENDCHARSAFEAPPENDSTRING622>A`$p10!(A`(($p10"(#p2  :Ap(,  $ @kAAX3W3PUT_RUNSTRING_PR92833-16103,REV.5000,870623 870623.2305/P1K/CMP/PASCAL.PAS A]9 PUT_RUNSTRING_PR>> .DLD.DST .ENTR .MPYPAS.1 PAS.2 PAS.3 PAS.NONCDS PAS.STRAPPENDPACPUT_RUNSTRING_PA>33 Ap(JA0 -/*+`2@,@1p`Ah03  ##!A pp(  0RU# 40@n @@_VAAX֌@W4PUT_RUNSTRING_FI92833-16103,REV.5000,870623 870623.2305/P1K/CMP/PASCAL.PAS AS00PUT_RUNSTRING_FI:: .ENTR .MPYERROR PAS.1 PAS.2 PAS.3 PAS.NONCDSSAFEAPPENDCHARSAFEAPPENDSTRING:QQ((A`?p108($`>)@;p+`+p,`?p1`,@=p-`-h<A0-9(##:*((A(:*Q (0 E1 A ..p*/p)(, v E<@n @w97@@Xj=W5REMOVE_FILE 92833-16103,REV.5000,870623 870623.2305 /P1K/CMP/PASCAL.PAS @0REMOVE_FILE ;; =b.DST .ENTR .MPYERROR FMPPURGEPAS.1 PAS.2 PAS.3 PAS.FIXEDSTRING PAS.NONCDS;JJ~%%`:'@7p(`(p)`(@9(%`)@8p*h*`;+ +--p&`&(%`&P<(%%6'J %0 <61A //p'(vg8n@7`>>X%UW5COMPILE 92833-16103,REV.5000,870623 870623.2305 /P1K/CMP/PASCAL.PAS > "}2COMPILE ~~^.DCO.DLD.ENTR .MPY DISPLAY_FILEEXEC IS_EMPTYPAS.1 PAS.2 PAS.3 PAS.NONCDSPAS.WRITECHAR PAS.WRITEDOUBLE PAS.WRITELINE PAS.WRITESTRING PREP_PROGRAMPUT_RUNSTRING_FIPUT_RUNSTRING_PA~22BPUT_RUNSTRING_PRREMOVE_FILE RUN_THE_PROGRAM SCHEDULE_ERROR SCHEDULE_FAILED 2QLLA889 &9AR::9&;((A=9,A>(B(BA+U@@90,9A7X889,;(B(=BA=9I\AA9 L; ELJ `NO kP8O( error and warning in file aKKp` Hp j;n;`Jp s({A`Jp{A;A;;A;9A;BA;CA;@;`LA@@Kp`(AD9 E`pzz99`s(`(`*H H(p(`A(`L爈@@KPSp`(`L@@KAPT( `0(`(c`0( z  Ե8(a qq}..`up`(`0Op`0Mp(`(O`(@`(`Np`Qp`Pp`RpB`pq v0`2 ""3A2`Ip(s "H @@@x8==X W8ASSEMBLE92833-16103,REV.5000,870623 870623.2305/P1K/CMP/PASCAL.PAS = /ASSEMBLE .DIV.DLD.DST.ENTR .LBT.MPY.SBTDISPLAY_FILEERROR FMPCLOSEFMPOPEN FMPPOSITION FMPREAD FMPSETPOSITIONFMPWRITEPAS.1 PAS.2 PAS.3 PAS.FIXEDSTRING PAS.NONCDSPAS.SETSTRLEN ~~ tPAS.SPARAMETERS PAS.STRAPPENDPAC!PAS.STRRANGER "PAS.WRITELINE #PAS.WRITESTRING PREP_PROGRAM PUT_RUNSTRING_CHPUT_RUNSTRING_FI PUT_RUNSTRING_PAPUT_RUNSTRING_PRREMOVE_FILE RUN_THE_PROGRAM SCHEDULE_ERROR~ >, SCHEDULE_FAILED GG `@ p"`pF "Ep!`!(`pF&!̊A`pF E`"p"`!(G  # Rw$ 8#(EMf(JJp` p 159`u(AA@΄(I E IM`u(RA#R W`A@@p`(j`p(`A(t`@@GGr##P p`(`@@P (AĈ`0(`(*` 0( G  8(( //5` @p`(h6p(h6 p/ t`  Ap`p(//A` @爀p`(h6`H(h6@ `/ { Apۈp(--jTA`(p`(-  ͮ8( @@`@p`p`@(p `p`$@@p88 (`p`@p@ ! "8!( ~~_%@@h6 ph6@@pꈀ`@(`@p` p騈` P(E(p`A@섁([`@pU툀P([`p(G`@p`A@~e@@(`@pm툈P(p(`鈈@@pwP(z(`@@pAP((`逈@p`鈈@@p`鈈@@p(p`A}}DCC@섁(`@p툈P(`@p!p`p((@ p` pp`A@p!p88(pp!}  e8(% VA<<p=`p?`p>`?((<`=(<`D@>+P( (!`>@@D(`>@@D(!p=`D@>p(;@?p?`?(((;`>@D@6 p@`>@D3 H@6h>HHH@x>( @<A HB8A( MUE `D 0Dp!MO bOP ѫQ8P(E $$?S`pb`@@p`b@@pa$ ac d8c(S afLL`(nm(AryAA{A |AAy`(Aр(ppP(逄`(`(Ap` Ap`~~;;A((P(((耈`-P((`&p`P((Έ(`P(ӈ(c(興`P((݁A(`P((`P((聄P(~ 1  8(f{RWOUqq77p`(`.(A`,((`Īp`0p`.(`u(A##A"q M ::m''8(y,0 PASMWAssembly source kept in file :'' .:?ACM@'@D>>XW;INITIALIZE92833-16103,REV.5000,870623 870623.2305/P1K/CMP/PASCAL.PAS >dINITIALIZE&Y.DLD.DST.MVWERROR FMPWORKINGDIR IS_EMPTY LOGLU PAS.1 PAS.2 PAS.3 PAS.FIXEDSTRING PAS.NONCDSPAS.REWRITE_FILE PAS.SPARAMETERS PAS.STRAPPENDSTRPAS.STRRANGER SAFEAPPENDSTRINGSPLIT_FILEU@@ p `p A  ( (A vP(P p `p  p `p  p p  @  p`p  1 pA@A(?P!@CC(IFP(I (`  p  AQP(T(lA`p Y  p`p `p Ae  (kk(~AAAu ~((  p r[[500 p h`Ap up Hp `p $`p # p t` ( (A [ P ;;8(".3 @> 1 v      #NOCCTL;+-@Dd@ <<XTj ,WPASCAL92833-16103,REV.5000,870623 870623.2305/P1K/CMP/PASCAL.PAS <''nnPAS.1 PAS.2 PAS.3 PAS.STOPPASCAL'ssASSEMBLECOMPILE EXECFIX_FILEINITIALIZEINIT_FILE LOOK_FILE PARSE_FILE PAS.CLOSEFILE PAS.INITFILE PAS.INITIALIZEPAS.NONCDSPAS.RETURNPARMS PAS.SETEXITPARMSPAS.TRACECLOSEs]]p88  ` +p )phAhhhAh8h8 )(` "((` '/ *A(` #(` "p # #]4 AEE11AA ((OPascal: TERM&'%*^*PASLSTRELCOPMACCOPPclE     Macro  8)Pascomp 3 = G QMacro /[ 4e 8   * @uC/PASCAL/CMP/STD/FORCE.REL:::5:27:128 644 0 0 15400 5300501510 35253 /PASCAL/CMP/STD/FORCE.REL:::5:27:128 $$$ 'FORCE REL +H+H+H K[FST >>Xl{V8FORCE 92833-16131,REV.5000,870621 870622.0205 /P1K/CMP/STD/FORCE.PAS>@Ml{99XO"B!PAS.BITMASK 92833-16119 REV.5000 870512 /P1K/LIB/STD/ETC_B.MAC9qPAS.BITMASK0PAS.BITMASK122""@ @ 2@['yBBXQB+PAS.NEW2S 92833-16111,REV.5000,870512 870512.2125 /P1K/LIB/HEAP_STACK_2.PAS B~DPAS.NEW2S FF jr.DCO.DIN.DLD .DSB.DST .ENTR .LBPR PAS.GETMEMINFO2 PAS.NONCDSPAS.RUNTIMEERRORPAS.SETMEMINFO2 FEE++AO0 ,008(((AA08AA0.A(&(& Ax>0AA>%A.(**N+DE9E AA ABA,Cp+(.@;;X B! PAS.INLINEERROR 92833-16119 REV.5000 870512 /P1K/LIB/STD/ETC_B.MAC;cPAS.INLINEERROR  UXPAS.RUNTIMEERROR px  @B==XfB0PAS.MIN 92833-16118,REV.5000,870512 870512.2115 /P1K/LIB/ETC_A.PAS= A`PAS.MIN  4.ENTR PAS.NONCDS$$4`A@( `p( `p`$BApp(@*99XVB 7PAS.SETINIT 92833-16119 REV.5000 870512 /P1K/LIB/STD/ETC_B.MAC9APAS.SETINIT ?PAS.BITMASK1PAS.RUNTIMEERRORz  D pxp<<p8(p8p8p8`P(/`8` 8(1`(L8(MhH (M ,@H8(888(M5PATU(L@N:;;X(B -PAS.BOUNDINTEGER92833-16119 REV.5000 870512 /P1K/LIB/STD/ETC_B.MAC;JPAS.BOUNDINTEGER ).DLD.DST ,,A8(A@AA8,@ec#::XOB 0PAS.SINGLEMOD 92833-16119 REV.5000 870512 /P1K/LIB/STD/ETC_B.MAC:%BPAS.SINGLEMOD .DIV.ENTR PAS.RUNTIMEERROR00W~( ( `A0@ITh==XeVGETBOUNDS 92833-16083,REV.5000,870621 870622.0118 /P1K/CMP/MNU.PAS=nGETBOUNDS CLLGM.DAD.DCO.DLD.DST .ENTR .LBPR .LPX .LPXR .MVWINT_CONST PAS.1 PAS.2 PAS.INLINEERROR PAS.NONCDSLnMMA A A A((AA P(8P(P(( A@h (AA ʂ@h A5(A P(AP(q((H(Q(QA @MPP(pAJ(X(a(a(pAJ(h(p(p(A  (z(  @AA A (h( A(  x xAA ) //AA A(   / ] @?==XX.VFULL_SIZE 92833-16083,REV.5000,870621 870622.0118 /P1K/CMP/MNU.PAS= FULL_SIZE **.DAD.DLD.DST.ENTR .LPXR PAS.1 PAS.2 PAS.NONCDS*%%LZA(h *@AA% A _! AAA(@h_==X[w$VINT_CONST 92833-16083,REV.5000,870621 870622.0118 /P1K/CMP/MNU.PAS=INT_CONST %%_&.DLD.DST.ENTR .MVWPAS.1 PAS.2 PAS.NONCDS%E+`( h A(A }A  A`h!A (@ۂB;;X7'VINT_TYPE92833-16083,REV.5000,870621 870622.0118/P1K/CMP/MNU.PAS; DINT_TYPE  //.DCO.DLD.DST.ENTR CONVERT_SUBRANGEPAS.1 PAS.2 PAS.NONCDS/''A"(( ((p' s` /^ AAA`&p( & @N\m99XZ_V$9EXID92833-16091,REV.5000,870621 870622.0134/P1K/CMP/SSL.PAS9 q"NEXID AA .DAD.DLD.DST.ENTR .LBT .MVWPAS.1 PAS.2 PAS.BITDEPOSIT2 PAS.BITEXTRACT2 PAS.NONCDSAppAApBh[6 @BA(.WAACFHh[6@B@^@^pH YFHWWpHA@BpI *YMIWWH`BpB(`B@](A@BpH =YMHWWZ`BpB(.p RAN OAL`Lh\A X( EC ]j @b"<<X2V/2NEWNODE 92833-16096,REV.5000,870621 870622.0144 /P1K/CMP/ULB.PAS< <NEWNODE -  >> h.DLD.DST.ENTR .LBPR .LPXR .MVWPAS.1 PAS.2 PAS.NEW2S PAS.NONCDSSOURCE_LINE >IIA `A  `A `Ä x`P(/P(wP(P(JP(BP(YP(SP(( x  A A( A` 9IRR( x A( `(A  x x  x A( A`  ` A A( x A( @@A%%A`AA AxAA xAA `" (@ Aɨ MM44ApĈApA A($  M    !";?@ r/PASCAL/CMP/STD/GO.REL:::5:2:59 644 0 0 1000 5300501512 33721 /PASCAL/CMP/STD/GO.REL:::5:2:59 $ ';GO REL +J+J+J FST ::X%VGO92833-16132,REV.5000,870621 870622.0204/P1K/CMP/STD/GO.PAS :@e%;;X V&START 92833-16083,REV.5000,870621 870622.0118 /P1K/CMP/MNU.PAS; KSTART +++rCOMPILE_PROGRAM INITIALIZEPAS.1 PAS.2 PAS.NONCDSSUMMARY +AAA  8( @=?/PASCAL/CMP/STD/MEU.REL:::5:11:127 644 0 0 5400 5300501514 34300 /PASCAL/CMP/STD/MEU.REL:::5:11:127 ""$ ' MEU REL +K+L+L  FST <<XV!MEU 92833-16133,REV.5000,870621 870622.0204 /P1K/CMP/STD/MEU.PAS<@;;X+VERROR 92833-16083,REV.5000,870621 870622.0118 /P1K/CMP/MNU.PAS; GVERROR  || .DIN.DLD.DST .ENTR .LBPR .MVWNEWPAGE PAS.1 PAS.2 PAS.NONCDS PAS.SETINIT PAS.SETUNIONPAS.WRITECHAR PAS.WRITEDOUBLE PAS.WRITEINTEGERPAS.WRITELINE PAS.WRIT((ESTRING SOURCE_LINE | UjWRITELINE BB`r[((`t(J ((p(@|p`A(Jp 耈x@p6@ ^A]60]7J`jp ` \J# (Y`u(BAB~~sB==`c08(M pQpP`p`tJ(UJ%(YW%`eA(y^Ae`k__^`HA(mm``ar`bAw`cyJ# #~2DDpz`t(ܠ`H(``dA``e`odd^`H(``eA`q__^`cA`uff^`cA`mA((ġnzgg~~v>>^nAcСnff^nJcnJJ'(`@(`0p`p @x ^]hA]7`jpJ ` \( ` p~++` @ipG0G` @ih+ ,V FFP W..A UUp( ^ 7 ERROR **** Error in line **** Error in line FK @J2 <<XoVNEWPAGE 92833-16083,REV.5000,870621 870622.0118 /P1K/CMP/MNU.PAS< zNEWPAGE JJ NUMDIGITS PAS.1 PAS.2 PAS.NONCDSPAS.TOPOFPAGE PAS.WRITECHAR PAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRING JoWDD `A@(x`p`fJ(t`A`}~ `A!`} (`A-`} 4`JA`;`}~ B`AGhhD44`} N`AS`} Z`A_`} f`Aipyp`yJJ`` `ppuh xz )){8z(  Pascal/1000 Ver. 2/5000 Page) Y @ʎN/PASCAL/CMP/STD/MSC.LIB:::5:641:128 644 0 0 500400 5300501516 35104 /PASCAL/CMP/STD/MSC.LIB:::5:641:128 ##$ 'MSC LIB +L+N+N@(FST m<<Xē 4MSC 92833-16134,REV.5010,881021 881021.1709 /P1K/CMP/STD/MSC.PAS<@^>>X1P.SAMER 92833-16207,REV.5000,880608 880608.1945 /P1K/CMP/STD/SAMER.PAS>@q1BBXP.MAP_REGULAR_SEGS92833-16207,REV.5000,880608 880608.1945/P1K/CMP/STD/SAMER.PASBRMAP_REGULAR_SEGSPAS.1 PAS.2 PAS.NONCDSSAM.REGSEG ;A  8( @]BBXfP.SAMURAI_ERROR 92833-16207,REV.5000,880608 880608.1945 /P1K/CMP/STD/SAMER.PASBwSAMURAI_ERROR HH 2.ENTR .LBPR .MPYPAS.1 PAS.2 PAS.NONCDSPAS.WRITEINTEGER PAS.WRITELINE PAS.WRITESTRING SAM.DUMPSTACKFHPP`pA(/`݆A@p(/Avxq q}}~`p@pqAvxr )rq~vxqA q(PAvxq 9q}}~vxqA Cq~AvxqKqpAvxq q66P`pP(lAvxq ]q}}~vxqA gq~Avxq qAov6 ow 2x^^Auupp(SAMURAI strikes with a Contact your HP representative. Segment not found. Segment stack overflow. Off-path VAR parameter. Parameter save are!a overflow.  @-SL;;XuP6PSELB 92833-16070,REV.5000,880608 880608.1919 /P1K/CMP/ELB.PAS;@u==XRP7BLISTCODE 92833-16070,REV.5000,880608 880608.1919 /P1K/CMP/ELB.PAS=VBLISTCODE %% PAS.1 PAS.2 PAS.NONCDSPAS.WRITECHAR WRITE_OCTAL %55`Q(``M(`rP(((5  &8( @9::Xi8P7BOI 92833-16070,REV.5000,880608 880608.1919 /P1K/CMP/ELB.PAS: }BOI  ##BLISTCODE EMLBF PAS.1 PAS.2 PAS.NONCDSSP#(( p`K(`J( p((  ( @ ?;;XP7BOILABEL92833-16070,REV.5000,880608 880608.1919/P1K/CMP/ELB.PAS; BOILABEL 00 BLISTCODE BOI EMOPC EMPRL EOI PAS.1 PAS.2 PAS.NONCDSSP0(( p `  QD( AJ` K(A(  ( @0>>XkP8BREAK_CHECK 92833-16070,REV.5000,880608 880608.1919 /P1K/CMP/ELB.PAS>%BREAK_CHECK ''.DCO.DLD.DSBBREAK_OUT PAS.1 PAS.2 PAS.NONCDS'!!J `M( ( (  !   H8(d@Yx==XTB!P8BREAK_OUT 92833-16070,REV.5000,880608 880608.1919 /P1K/CMP/ELB.PAS=XBREAK_OUT //.DLD.DSTEMNEW PAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDS/'' `ppAJ J p`p'0(l A(A@',<<XIQ&P8BUMP_COUNT92833-16070,REV.5000,880608 880608.1919/P1K/CMP/ELB.PAS<BUMP_COUNT.DAD.DSTPAS.1 PAS.2 PAS.NONCDS88`M(`rP%((h (h JJ8   `(p8p( % @Sr>>XP9CALLRUNTIME 92833-16070,REV.5000,880608 880608.1919 /P1K/CMP/ELB.PAS>,CALLRUNTIME }QQ|.DAD.DST.ENTR .LPXR .MPY EMIT EMITCHAREMNEW EMNUM EMPRL EMRUN EOI ERROR PAS.1 PAS.2 PAS.NONCDSQAA`~@JA 3` M('*p}`}P(P(P(P("(#A(& (&(& &(;-P(4P(4P(7(8A (;(;A ;~` M(f`}hh A;;P(e`}P(e p `}P(XP([(^ A(a (a aAA  ({-A({ A(pA@h | FAp~( ,02}  @ڿ99XKTP9EMIT92833-16070,REV.5000,880608 880608.1919/P1K/CMP/ELB.PAS9 &EMIT ''RBOI BUMP_COUNTEMOPC PAS.1 PAS.2 PAS.NONCDSSP'֣ `Q( AH `A@ p   ( `(p8p (@<<X2P:EMITASC 92833-16070,REV.5000,880608 880608.1919 /P1K/CMP/ELB.PAS< #EMITASC  HH Z.DIVBOI BUMP_COUNT EMITCHAR EMNUM EMOPC EMSTR EOI PAS.1 PAS.2 PAS.NONCDS PAS.SINGLEMOD SPH44{` Q(  -.p!` 1@!Ap/D  0 A4 # $ `#(%p"8#"p (, 1 @;;XP;EMBSS 92833-16070,REV.5000,880608 880608.1919 /P1K/CMP/ELB.PAS; FEMBSS  qBOI EMBSO PAS.1 PAS.2 PAS.NONCDS WD  G `(p8p(@?^;;XP;EMBSO 92833-16070,REV.5000,880608 880608.1919 /P1K/CMP/ELB.PAS; F EMBSO  (( BUMP_COUNTEMNUM EMOPC PAS.1 PAS.2 PAS.NONCDSSP(1 `Q( A A     ` (p 8  p (@q;;XP;EMCSE 92833-16070,REV.5000,880608 880608.1919 /P1K/CMP/ELB.PAS; EEMCSE  //CALLRUNTIME EMDLT EMSKE EMSKL EOI PAS.1 PAS.2 PAS.NONCDS/ AADJD  ((( r@[;;XзPEMITCHAR92833-16070,REV.5000,880608 880608.1919/P1K/CMP/ELB.PAS; EMITCHAR 4.SBTPAS.1 PAS.2 PAS.NONCDS$$H `Q( ` ph6 @H`@$    `(p8p(@/m;;XHPEMCLT 92833-16070,REV.5000,880608 880608.1919 /P1K/CMP/ELB.PAS; ?EMCLT  GEMDLT PAS.1 PAS.2 PAS.NONCDS ;A  @ `(p8p(@ ;;X0PEMCSS 92833-16070,REV.5000,880608 880608.1919 /P1K/CMP/ELB.PAS; FEMCSS - OO< .DAD.DST .LBT .SBTEMDEC EMITEMITASC EMPRL EOI PAS.1 PAS.2 PAS.BOUNDINTEGERPAS.NONCDSPAS.SINGLEMOD O|DDppɀ`( `ɆA@(ppʀ`̆A@(``(`h6@HD  @ (H  (HP䈈(HP(HP戈(HP(HP興(HP(HPꈈ(HP(HP^DDD(HP(H(Kp(_`ph6@H h6p@H` `p(`(hP(k(h6@H@ A@͈`P(h6`@H hA  uuIk??A`@p(@Ȉph6H@H h h6@@H @ `pˀ`((AAΈ`@@pɈ(`((`Ɉ@p( u ] ##M`(Ոp8p̀(  7#3 &'/:<=>[\]@^-;;XDPEMDEC 92833-16070,REV.5000,880608 880608.1919 /P1K/CMP/ELB.PAS; 8EMDEC  !!/BOI EMDEO EOI PAS.1 PAS.2 PAS.NONCDS! pD  N `( p8p(@;;XSPEMDLT 92833-16070,REV.5000,880608 880608.1919 /P1K/CMP/ELB.PAS; ? EMDLT  EMITCHAREMNUM PAS.1 PAS.2 PAS.NONCDS `Q(      ` (p 8  p (=D@ 7';;XMPEMDEO 92833-16070,REV.5000,880608 880608.1919 /P1K/CMP/ELB.PAS; 8 EMDEO  (( BUMP_COUNTEMNUM EMOPC PAS.1 PAS.2 PAS.NONCDSSP(v AD `Q( A    ` (p 8  p (@;;XJPEMDEF 92833-16070,REV.5000,880608 880608.1919 /P1K/CMP/ELB.PAS; 8 EMDEF  )).DLD.DSTEMITEMOPR EOI PAS.1 PAS.2 PAS.NONCDS)1AA@  ) ` ( Ap8 A(@D b;;XTPEMDI1 92833-16070,REV.5000,880608 880608.1919 /P1K/CMP/ELB.PAS; <EMDI1  ''y.DLD.DSTEMDEF INLINER PAS.1 PAS.2 PAS.NONCDS'bA AA    ) `(Ap 8 A (@ =>;;XUPEMDI2 92833-16070,REV.5000,880608 880608.1919 /P1K/CMP/ELB.PAS; <EMDI2  ''y.DLD.DSTEMDEF INLINER PAS.1 PAS.2 PAS.NONCDS'bA AA    ) `(Ap 8 A (@"?@;;XEPEMIND 92833-16070,REV.5000,880608 880608.1919 /P1K/CMP/ELB.PAS; @EMIND  "EMITCHARPAS.1 PAS.2 PAS.NONCDS ;A  (@ @K)i>>X^>PEMITINTEGER 92833-16070,REV.5000,880608 880608.1919 /P1K/CMP/ELB.PAS>"3EMITINTEGER 33 .DLD.DST.ENTR .LBT .SBTPAS.1 PAS.2 PAS.DOUBLE2ASCIIPAS.NONCDS3QQ&&`Q(&+);p'`p(`'(($`(p(h<6@'Hh=6p1@(H`1 @'p'( `(pQ &3 x4 AA22A)( +@ <<XDPEMITJSB 92833-16070,REV.5000,880608 880608.1919 /P1K/CMP/ELB.PAS< EMITJSB v HHo.DLD.DST .ENTR .LPXR EMIT EMITCHAREMNEW EMNUM EMOPR EMPRL EOI PAS.1 PAS.2 PAS.NONCDSHe#JJ` M(A( AAP(( pp~pAp(L.p'Pp~.p`~(J,(K\\8J33p` M(k  `(\ A(^ A `0~A(g (i (}`~(|`(|D `ApH@(}\ } ++B8AA Ap( ",201+"@ ;;Xc/PEMLAB 92833-16070,REV.5000,880608 880608.1919 /P1K/CMP/ELB.PAS; 4 EMLAB  EMITCHAREMNUM PAS.1 PAS.2 PAS.NONCDS44T`p`( *+,`M(`(-.(AA.4  !! !` ("p8 p(PasQ.!@;;XIPEMLBF 92833-16070,REV.5000,880608 880608.1919 /P1K/CMP/ELB.PAS; 5EMLBF  GEMSYL PAS.1 PAS.2 PAS.NONCDSSPJ@  W `( p8p(@^$|;;X[&PEMLBO 92833-16070,REV.5000,880608 880608.1919 /P1K/CMP/ELB.PAS; 6EMLBO  //\.DLD.DSTEMITCHAREMITINTEGER EMLAB PAS.1 PAS.2 PAS.NONCDS/ AA  A(%A    --&:`(p8`(p8Ap A (+-@_#};;XXPEMLLT 92833-16070,REV.5000,880608 880608.1919 /P1K/CMP/ELB.PAS; ? EMLLT  EMITCHAREMLAB PAS.1 PAS.2 PAS.NONCDS `Q(      ` (p 8  p (=L@ 0*>>XǤ!PEMITLINENUMBER92833-16070,REV.5000,880608 880608.1919/P1K/CMP/ELB.PAS>EMITLINENUMBER,,BOILABELEMNUM EOI PAS.1 PAS.2 PAS.BLANKFILL PAS.NONCDS,@ DJ` p@   I8(P* --------------- Line # @;;XPEMLTD 92833-16070,REV.5000,880608 880608.1919 /P1K/CMP/ELB.PAS; HEMLTD p KKP .DCO.DLD.DST .LPXR CHECK EMITEMNUM EOI ERROR FULL_SIZE PAS.1 PAS.2 PAS.BITMASK1PAS.NONCDSK~#LLA  ,HH@(:A ((( xA(9 @AAA xAA xA( P(A( P(H(^A VVL88pA TAA xA(  (p p wAA(V  77W`(p8`(p8AA(   7 s @7V;;X`(P EMMBT 92833-16070,REV.5000,880608 880608.1919 /P1K/CMP/ELB.PAS; 5EMMBT  66 .DLD.DSTCALLRUNTIME EMDEF EMITEMOPR EOI PAS.1 PAS.2 PAS.NONCDS6$$2` M( $A %(A&'$  -`(Ap8A( ,-& @ ,m;;Xt(P EMMVW 92833-16070,REV.5000,880608 880608.1919 /P1K/CMP/ELB.PAS; IEMMVW  66 .DLD.DSTCALLRUNTIME EMDEF EMITEMOPR EOI PAS.1 PAS.2 PAS.NONCDS6$$2` M( $A %(A&'$  -`(Ap8A( /.& @2;;Xk3P EMNAM 92833-16070,REV.5000,880608 880608.1919 /P1K/CMP/ELB.PAS; 4&EMNAM  .LBT.SBTPAS.1 PAS.2 PAS.NONCDSIInd `Q( `"(p#p!h06@!HHh16p$`@!@2H`$8!8#( `@"pI  & !!' `&((p%8&%p"(! 2 @;;X P EMNEW 92833-16070,REV.5000,880608 880608.1919 ((/P1K/CMP/ELB.PAS; zmEMNEW  66 { .ENTR .LBT.MPYBOI BUMP_COUNTEMITCHAREOI PAS.1 PAS.2 PAS.NONCDS6gg55`7(`7@A@(!p8Ap6`7@A@6H@6H p9A98688A(`7@A@(*`QA(5`7@A@p88g 35; :<A ::p7(yVVB''`k@x@ 0M(i`kP͈(S`kP(S(a`kPrpj`kpr`j(`;`w(cpj`j(i;ikV im nZZ`m(opl8mlpk(ByALLOC EMA, BREAK CDS ON DDEF LABEL PCAL MSEG RELOC CODE RELOC DATA   @c;;XeP EMNUM 92833-16070,REV.5000,880608 880608.1919 /P1K/CMP/ELB.PAS; HEMNUM  V.DSTEMITINTEGER PAS.1 PAS.2 PAS.NONCDS kI h  AA      } `(p 8 p (@EWd;;XMP EMOPC 92833-16070,REV.5000,880608 880608.1919 /P1K/CMP/ELB.PAS; C<EMOPC  a.LBT.MBT.SBTPAS.1 PAS.2 PAS.NONCDS qq466`Q(6`7 @G6AhH6FhH6hI6p:`@LH`:HhH6 HhI6p:`@J@LH`:hH6HJhI6p:`@K@LJH`:`@Kpq 56< $$t= `<(>p;8<;p7(8$ J @;;XP EMOPR 92833-16070,REV.5000,880608 880608.1919 /P1K/CMP/ELB.PAS; C~EMOPR  TT .DAD.DLD.DST.LPX.LPXR CHCKB EMDLT EMIND EMPFN EMREG EMSYL ERROR PAS.1 PAS.2 PAS.BITMASK1PAS.NONCDSTKKAvP((@vAAvvP(AvP((AvP(TP()P(4P(L(r vxxx(uAvyvxxAv{yx{HH:K**(uvAxxx(uv@A' ,H@Apx mx(qAv(u uH u~ 00Mj`~(Ap}8~}Av(  0(!";@Yx;;Xn$P EMOPL 92833-16070,REV.5000,880608 880608.1919 /P1K/CMP/ELB.PAS; DEMOPL  **BOI BUMP_COUNTEMITCHAREMOPC PAS.1 PAS.2 PAS.NONCDS*f ` (A"( #    ..`(p8`(p8p p (,.@j҉;;XPEMPFN 92833-16070,REV.5000,880608 880608.1919 /P1K/CMP/ELB.PAS; 9EMPFN ~ AA .DLD.DST .LBP .LPX .LPXR .MBTEMIND EMLAB EMLBO EMNAM PAS.1 PAS.2 PAS.NONCDSA#OOA z| |'P(()A | @6Ah6  |@A Ax~~(y |.PD(2(I |x~ |!h ~(y |,GGO**A(X |P(X(q |@@ @6h6 A | x~A~(y |x~A~G y 66E`(Ap8Az( " 6f@]|;;Xo"PEMPRL 92833-16070,REV.5000,880608 880608.1919 /P1K/CMP/ELB.PAS; EEMPRL  EMITCHAREMNUM PAS.1 PAS.2 PAS.NONCDS(('v`Q( `( (!(`((   `(p8p(*+@ѹ;;Xk*PEMREG 92833-16070,REV.5000,880608 880608.1919 /P1K/CMP/ELB.PAS; 8EMREG  4.SBTPAS.1 PAS.2 PAS.NONCDS<<t`Q(h& 6`@)H`%@H h&6`@'@)H`(J`@'p<  !! `(p8p(5! '. @Y;;XĢQPEMRUN 92833-16070,REV.5000,880608 880608.1919 /P1K/CMP/ELB.PAS; H?EMRUN  55 .DAD.DST.LPXR .MPYEMITCHARPAS.1 PAS.2 PAS.BITEXTRACT2 PAS.NONCDS5cc#66`M:@JA3;p7p8`7(0`NA@8(0A@8p= !J;=IIp9`9POp7`7A(,9`8p8( A;K0Pc 86? @ `?(Ap>8?>p:( LM   @`;;Xi"PEMSKE 92833-16070,REV.5000,880608 880608.1919 /P1K/CMP/ELB.PAS; ?EMSKE  ''bBOI BUMP_COUNTEMSKO PAS.1 PAS.2 PAS.NONCDSSP' `Q( A A!   --`(p 8`(p8 p p (-@B;;XƵmPEMSKO 92833-16070,REV.5000,880608 880608.1919 /P1K/CMP/ELB.PAS; ?REMSKO  a.LBT.MBT.SBTPAS.1 PAS.2 PAS.NONCDS !==`e@LpJ`M @f6hg6dhg6HpK`KPk((`JpKhh6`@lH`Khg6 pK`KPk()(+`JpKhh 6`@i@lHH`KhgH6HipK`KPk(<(>`J##= pKhh6`@j@lH`KJ`@jp# ^IR 88/+S`R(TpP8R`R(ZpQ8RPpMQpL(5N8 Ri @h(;;Xz2PEMSKL 92833-16070,REV.5000,880608 880608.1919 /P1K/CMP/ELB.PAS; @EMSKL  **"BOI BUMP_COUNTEMITCHAREMSKO PAS.1 PAS.2 PAS.NONCDS* `Q(`D( A0( 1A  ??#`(p8`(p8`($p8ppp(,?@|;;XɅ3PEMSTR 92833-16070,REV.5000,880608 880608.1919 /P1K/CMP/ELB.PAS; G&EMSTR  .LBT.SBTPAS.1 PAS.2 PAS.NONCDSIInd `Q( `"(p#p!h06@!HHh16p$`@!@2H`$8!8#( `@"pI  & !! ' `&((p%8&%p"(7! 2 @S;;XéRPEMSYL 92833-16070,REV.5000,880608 880608.1919 /P1K/CMP/ELB.PAS; N4EMSYL  ++.DLD.DSTEMLAB EMLBO EMSYP PAS.1 PAS.2 PAS.NONCDS+LL]))A/ ((`,(`,p+`,Ap*/*(p+`,p*`+()- (#('*-()*L )4 >>>)5`4(6p184`4(@L ;;XPEMSYP 92833-16070,REV.5000,880608 880608.1919 /P1K/CMP/ELB.PAS; MEMSYP c GGV .DAD.DLD.DST .LBT .LPX .LPXR .MVWEMITCHAREXENT EXIDNUMDIGITS PAS.1 PAS.2 PAS.NONCDSG;[KK`p`( p(`App 'P(( 'P(((=A  (1(= @AA;p(g 'PˆA(F(R ppK??AAPp(g  pA @hAg`@p`A@(v`@p`(pph6@HHA p88(~p  CCm""`(p8`(p8AAp(  C@(::XmGFPEOI 92833-16070,REV.5000,880608 880608.1919 /P1K/CMP/ELB.PAS: =EOI  RR .DAD.DST .LBPR .LPXR .MBT.MPYFLUSH_CODE_BUFFEPAS.1 PAS.2 PAS.NONCDS PAS.WRITECHAR PAS.WRITESTRING WRITELINE RuuP::`Q(:`((:`/@E( ('`/p/@/JD@0AA; ;A` ;@6`C6A  ?`KA(8 /`BA 6`?AA8 pu ::= ~>(P )@v88XPSP92833-16070,REV.5000,880608 880608.1919/P1K/CMP/ELB.PAS8 E SP 4.SBTPAS.1 PAS.2 PAS.NONCDS[ `ph 6@H`    ( @|<>>Xm7PEXPORT_CHAR 92833-16070,REV.50((00,880608 880608.1919 /P1K/CMP/ELB.PAS>()EXPORT_CHAR ''BOI EMITCHAREMNUM EOI PAS.1 PAS.2 PAS.NONCDS'TT&&`p`5(`' p(&`@'p3`A@6(!@4p` pT &) * `)(+p(8)(p'(,\ 5 @ ??X#PEND_EXPORT_RECOR92833-16070,REV.5000,880608 880608.1919/P1K/CMP/ELB.PAS?XEND_EXPORT_RECOR EOI EXPORT_CHAR PAS.1 PAS.2 PAS.NONCDS &&`((`( A p @p&  (  @pu??X"ENPBEGIN_EXPORT_REC92833-16070,REV.5000,880608 880608.1919/P1K/CMP/ELB.PAS?W2BEGIN_EXPORT_REC44 e.LBT.MBT .SBTBOI EMITCHAREND_EXPORT_RECORPAS.1 PAS.2 PAS.NONCDS4DD%@!!Dh=6A`>6<h=6HKH`L@# `Mp/p"h=6@"HHAp008"8/(`JpD !2 ,,i3`2(4p1821p#($?LOADREC 0,0,16130_B,0 , CJ0 @rw7==XjBGPEXPORT_ID 92833-16070,REV.5000,880608 880608.1919 /P1K/CMP/ELB.PAS=}1EXPORT_ID == 0}.DAD.DLD.DST .LBT .LPX .LPXR .MVWEXIDEXPORT_CHAR PAS.1 PAS.2 PAS.NONCDS=EE''A )=@hB ?A +CAA=)A @F('p.p(hE6@(HHA p//8(8.(E '1 **2`1(3Ap0810A)(+* F @UtY>>XnPEXPORT_ROOM 92833-16070,REV.5000,880608 880608.1919 /P1K/CMP/ELB.PAS>FEXPORT_ROOM ##B.ENTR BEGIN_EXPORT_RECPAS.1 PAS.2 PAS.NONCDS#֛ `@ A@(     /Ap p ( p @ >>X<PEXPORT_INTEGER92833-16070,REV.5000,880608 880608.1919/P1K/CMP/ELB.PAS>.EXPORT_INTEGER?? h.DLD.DST .ENTR .LBTEXPORT_CHAR EXPORT_ROOM PAS.1 PAS.2 PAS.DOUBLE2ASCIIPAS.NONCDS?::0A$":p` (  !`((h;6H@H p*A*@p( : . / A ++p!AA,"-p ( $@??X+rPEMIT_MODULE_RECO92833-16070,REV.5000,880608 880608.1919/P1K/CMP/ELB.PAS?OnEMIT_MODULE_RECOii! .DAD.DLD.DST .ENTR .LBT.LPXR BEGIN_EXPORT_RECEND_EXPORT_RECOR EXENT EXPORT_CHAR EXPORT_ID EXPORT_INTEGER PAS.1 PAS.2 PAS.BITEXTRACT2 PAS.NONCDSiPPAAefAAxfyi i(#phpdh6@dHHApkk8d8h(x`phpd{ fiA@dpk9}ikyAypkk8d8h()xf~ AAiOeiy""aPxf.h ibe@iy" cn %%CoA llpeAAmf(   & % ; @F^e;;XyP 5PSSLB 92833-16090,REV.5000,880608 880608.1830 /P1K/CMP/SLB.PAS;@y==X#P 5DEFLBL_ENTRY92833-16090,REV.5000,880608 880608.1830/P1K/CMP/SLB.PAS=XDEFLBL_ENTRYu MMk.DAD .DCO.DLD.DST .LPX .LPXR .MPYCHECK PAS.1 PAS.2 PAS.ENTRY2 PAS.EXIT2 PAS.NONCDSPAS.RECVALPARMMMMA A A( (uAA P((u`J@A@ AA (((uA`@ x P(:(u AA } (K(d@@M((A }(d(QA   @A(E }(k(jpAqAA@u(y::K''A v A(AA v : " @@_==X$P 6EVAD2IND2 92833-16090,REV.5000,880608 880608.1830 /P1K/CMP/SLB.PAS=EVAD2IND2 _uu.DLD.DST.LPX.LPXR ADOPT COPY_TREE CVTNODE LOADADNEW_INLINE_LIT_N PAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDSPAS.RECVALPARMQ_RELATIVE_FIXUPREPLACENODE SAVEREG uMMA ( AP((@APÄ(P($(ZAp(=AA(=6AA<(YP(D(JAA(Ylld>MAAP(Q(WA(Yp(\p`A(fcAfP( p tĄx  xlS(//,AA(  /"@ˬ;;XUP 7EVAD2 92833-16090,REV.5000,880608 880608.1830 /P1K/CMP/SLB.PAS; @>EVAD2  GG .DLD.DST.LPXR EVAD2IND2 PAS.1 PAS.2 PAS.ENTRY2 PAS.EXIT2 PAS.NONCDS PAS.RECVALPARMREPLACENODE GIIl..A8M6A 88O:8:8Q(!8Q`S(&8QA`T8AMx<6A<I.(I =2""D,?A /> =A8( />> " S @|ț??X@ P 7EVAD_APPROPRIATE92833-16090,REV.5000,880608 880608.1830/P1K/CMP/SLB.PAS?XEVAD_APPROPRIATE22 ϧ.DLD.DST .ENTR EVADEVAD2IND2 PAS.1 PAS.2 PAS.NONCDSREMAPPER2f A (  (     ZAA A (@柦>>X[P 8OFFSET_TREE 92833-16090,REV.5000,880608 880608.1830 /P1K/CMP/SLB.PAS>1!OFFSET_TREE .DAD.DLD.DST.ENTR .LBP.LPX.LPXR ADOPT COPY_TREE ERROR EVAD_APPROPRIATE INDIRECT_THROUGHNEWNODE NEW_CST_NODEPAS.1 PAS.2 PAS.NONCDSPAS.WRITEDOUBLE PAS.WRITESTRING PRINT_TREEq~STACK_TOO_FAR WRITELINE PP`l( `K5A56`6A7PW((B@9D7PY()(B9@D9PV(7(B@9AAAA(EE II;xPTT (W(7PW(bPX(PZA((9@AAA9A@=AAAA9A=x(A?@    @   A(APU(TTPV((@CAAACxAAAEA(( 7(A;xJAAA7A@ A  A 6AA A G@ A ( ""AH( H`l( A "  A! FF5"11AAAAAA A A(  Offset_tree for FU!"@MlY==XfP 9RELEASE_NODE92833-16090,REV.5000,880608 880608.1830/P1K/CMP/SLB.PAS=YTRELEASE_NODEBB 5 .DCO.DLD.DST .ENTR .LPXR NODE_TEMP_INDEX PAS.1 PAS.2 PAS.NONCDSRELEASEREGSHOW_TEMP B,GGAO A((N O\Pd( ($ O^ @`@A O((#(# O^xRA#R(NA O\Pc(+(2 @O^AAO5O`=(9(N`= @apQQ,b(NQeReGQ`k(NAN= eNT  U AA SSAO(  8 eb; @x<<X-!P 9IS_CHAR 92833-16090,REV.5000,880608 880608.1830 /P1K/CMP/SLB.PAS< E~IS_CHAR  //.DCO.DLD.DST.ENTR CONVERT_SUBRANGEPAS.1 PAS.2 PAS.NONCDS/׌ A( ( p r ` /4 AAA` p(   @Ed::XotGP :AOC 92833-16090,REV.5000,880608 880608.1830 /P1K/CMP/SLB.PAS: 3AOC  00 _>.DCO.DLD.DST.ENTR .LPXR INT_TYPEPAS.1 PAS.2 PAS.NONCDS0GG#))AA,.A, A( (& .=PF((& .?@A0A0(& .A@J('(&p+G sL)`+3 4AA22A,`Ep+(  E @$`C ::X~kLP :PAC 92833-16090,REV.5000,880608 880608.1830 /P1K/CMP/SLB.PAS: 3PAC  55 -.DCO.DLD.DST .ENTR .LPXR AOC GETBOUNDS PAS.((1 PAS.2 PAS.NONCDS5DD''A.(% .=/I(% .?@A0A0CE,A(!(`PKp)('p)D sH'`)3 ""b4AA 22A.`Jp)( ,*" I @ ==XxFP ;IS_STRING 92833-16090,REV.5000,880608 880608.1830 /P1K/CMP/SLB.PAS=IS_STRING &&G.DLD.DST.ENTR .LPXR PAS.1 PAS.2 PAS.NONCDS&lBA Pp  r`   AA  A `p (   @$>>XAP ;PAC_LITERAL 92833-16090,REV.5000,880608 880608.1830 /P1K/CMP/SLB.PAS>/PAC_LITERAL 00 .DLD.DST.ENTR .LPXR IS_CHAR PAC PAS.1 PAS.2 PAS.NONCDS0==%%AA(*A *9P@( (" @*;AA,,(# @*;AA,!,($p'= s@%`'/ 0 AA..A(`?p'( %?! @Y>>X)P!STRING_ELEMENT92833-16090,REV.5000,880608 880608.1830/P1K/CMP/SLB.PAS>=STRING_ELEMENT 55 Z.DLD.DST.ENTR .LPXR IS_STRING PAC_LITERAL PAS.1 PAS.2 PAS.NONCDS5!!TA $ (A(p! s` E AAA`(p( ( @??XR2GP!STRING_OR_PAC_NO92833-16090,REV.5000,880608 880608.1830/P1K/CMP/SLB.PAS? 5STRING_OR_PAC_NO 77 ..DLD.DST .ENTR .LPXR IS_CHAR IS_STRING PAC PAS.1 PAS.2 PAS.NONCDS7HH2--A 0?2 2(+A 0?22(+A 0APF((* @0?AA2)2(,p/H sV-`/5 6 AA 44A0`Ep/( +E! @zS==XWP!NUM_ELEMENTS92833-16090,REV.5000,880608 880608.1830/P1K/CMP/SLB.PAS=wANUM_ELEMENTS 55 0.DIN.DLD.DSB.DST .ENTR .LPXR GETBOUNDS PAS.1 PAS.2 PAS.NONCDS5NNT11A :AA8>OQ46A:(1 <IPVA(*(1 <M:N 1A:A v6BAA @@A8(  64 %U @ ??XT7P!VERIFY_STRING_VA92833-16090,REV.5000,880608 880608.1830/P1K/CMP/SLB.PAS?|%VERIFY_STRING_VA--=.DLD.DST.LPXR CHECK IS_STRING PAS.1 PAS.2 PAS.NONCDS-..AAA1!!(A3P6p#A#5. % !!.&`%('Ap$8%$A(t! 6 @]??XCgjP!VERIFY_STRING_EX92833-16090,REV.5000,880608 880608.1830/P1K/CMP/SLB.PAS?kWVERIFY_STRING_EXBB .DLD.DST .LPXR CHECK CORC1 IS_STRING MAKE_STRING NUM_ELEMENTS PAS.1 PAS.2 PAS.NONCDSBttkNNAAOQA QcSS(*A QcSASSASS%OASpU*AUe QcS4SA(N QfPh(HA QfAPi(H QfApUNUet hNW !!04X`W(YApV8WVAO(t! .h @??XY"eP!STRING_INDEX_CHE92833-16090,REV.5000,880608 880608.1830/P1K/CMP/SLB.PAS?pRSTRING_INDEX_CHE@@ .DCO.DLD.DST .ENTR .LPXR CHCKB CHECK NUM_ELEMENTSPAC PAS.1 PAS.2 PAS.NONCDS@mmFFA K^GI `( pMMb(FGA(,GNI N($pM+Mb(FAJG A(?(2IAAN GAcxMNA M(?ApMFMbm [FR YSAA PPAAKQAI(. @,??X6GaP!STRING_LENGTH_CH92833-16090,REV.5000,880608 880608.1830/P1K/CMP/SLB.PAS?NPSTRING_LENGTH_CH@@ .DCO.DLD.DST .ENTR .LPXR CHCKB CHECK NUM_ELEMENTSPAC PAS.1 PAS.2 PAS.NONCDS@ii׻DDA I\EGpKK^(DE(*AELG L("pK)KA^(DEJ (=(0AAGLA E_xKAAL K(=pKADK^i WDP WQAA NNAAIOAG(2 @^??X3XHP!IS_STRING_EXPRES92833-16090,REV.5000,880608 880608.1830/P1K/CMP/SLB.PAS?k-+IS_STRING_EXPRES ?? .DLD.DST.LPXR IS_STRING PAS.1 PAS.2 PAS.ENTRY2 PAS.EXIT2 PAS.NONCDS PAS.RECVALPARM?55A&?x$&A@A(A((`$(`$PF(`$PGp%5(8 * ++ж,A+ *&`Ep%(A`%pC +`C++ cEG @-Lx??XJXP!INITIALIZE_STRIN92833-16090,REV.5000,880608 880608.1830/P1K/CMP/SLB.PAS?aiINITIALIZE_STRINWW] .DCO.DLD .DNG.DST .LPXR DO_ASSIGN NEW_CST_NODEOFFSET_TREE PAS.1 PAS.2 PAS.ENTRY2 PAS.EXIT2 PAS.NONCDSPAS.RECVALPARMW||TTA `~\^ ((^b`AAdbd(L^ (6A(AAb/`d5bAd(L^D b?bbF`AdALbdA `~xfAA\f|vT(zgX,,?ZjA Uig`h^(A Uii,@!O??XcP!APPEND_STRING 92833-16090,REV.5000,880608 880608.1830 /P1K/CMP/SLB.PAS?wAPPEND_STRING >zzm.DCO.DLD.DMP.DST.LPX.LPXR .MVWCALLRUNTIME CHCKB EMDEF EMDI1 EVADEVAD2IND2 EVAL INLINER INT_CONST NUM_ELEMENTSPAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDSz%%YPAS.RECVALPARMRELEASE_NODEREPLACENODE SETUPOPERANDS %3NNA p (A`('"&(`P(+(;@A/(; :(@ (J(JA((M`vNVVP(Q(@AA\A(j((A܂@hA u } A( A (AAAJ A  (55N##A(A¨ 5 G @??X,!P!EVAD_STRING_EXPR92833-16090,REV.5000,880608 880608.1830/P1K/CMP/SLB.PAS?c%EVAD_STRING_EXPR% k.DAD.DCO.DLD.DST.LBPR .LPX.LPXR APPEND_STRING COPY_TREE EVAD2IND2 EVAD_APPROPRIATE EVALINITIALIZE_STRINIS_STRING_EXPRES MAKE_STRING NUM_ELEMENTS NWTPN PAS.1 PAS.2 PAS.ENTRY2**jPAS.EXIT2 PAS.NONCDSPAS.RECVALPARMPAS.RECVARPARM PRINT_TREE*JJAxDp>(((A A("("(" AA x`ĀPpƀ`(>@ A@ A /pD͈p`0(`5JII(W`(W RAV( ZJD`jkA(f cD fAAAx€h A`hA AAADD`jkA( D @DD&&D(J DAAAxAA p>`( Ʉ( Ap>AD=(YY;;App A(A  DY  @w7??X85JP!EVAD_STRING_PARM92833-16090,REV.5000,880608 880608.1830/P1K/CMP/SLB.PAS?p'EVAD_STRING_PARM BB T.DLD.DST.LPXR EVAD_STRING_EXPRPAS.1 PAS.2 PAS.ENTRY2 PAS.EXIT2 PAS.NONCDS PAS.RECVALPARMB""̱AD##DAF!AJD"r(:%33|!( A' % &p A!(!AAH 'H'3@w7>>XWP!STRING_ADDRESS92833-16090,REV.5000,880608 880608.1830/P1K/CMP/SLB.PAS>?9STRING_ADDRESS ee.DLD.DST .LPXR EVADEVAD_APPROPRIATEEVAD_STRING_PARMIS_STRING PAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDSPAS.RECVALPARMREMAPPERREPLACENODE eAA ))A 2R6 6("A2 Vp12R626`1A(! !A2(%%224A)(H 8-** }:A *982 A4(((4AAT*9T9* V @&E@@Xj4P!VALIDATE_STRING 92833-16090,REV.5000,880608 880608.1830 /P1K/CMP/SLB.PAS@a"VALIDATE_STRING \\mZ.DLD.DST CALLRUNTIME COPY_TREE EMDEF EMDI1 EVAD2IND2 PAS.1 PAS.2 PAS.ENTRY2 PAS.EXIT2 PAS.NONCDSPAS.RECVALPARMSTRING_ADDRESS\!!^A 2 A 1 ![(- !;#A "!A( ""ڀ@S??X [[P! EVAL_STRING_ELEM92833-16090,REV.5000,880608 880608.1830/P1K/CMP/SLB.PAS?8DEVAL_STRING_ELEMzzn.DLD.DST CALLRUNTIME CVTREGNODE EMDEF EMDI1 EVADEVAD_STRING_PARMFREEREG PAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDSPAS.RECVALPARMRELEASE_NODESETUPOPERANDS UNPROTECT_TEMPzKK[-22A@:<<> A >A<W `;(% $@XW(* *@AZZ/<ZW2>K2(SB6''3EA3DB@CAp;(3DD'@q??XdP! SPLIT_STRING_OR_92833-16090,REV.5000,880608 880608.1830/P1K/CMP/SLB.PAS?|SPLIT_STRING_OR_K.DAD.DCO.DLD.DST.LBPR .LPX.LPXR COPY_TREE IS_CHAR IS_STRING IS_STRING_EXPRES MAKE_PAC NEW_CST_NODENUM_ELEMENTS OFFSET_TREE PAC PAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDS((MPAS.RECVALPARMPAS.RECVARPARMSTRING_ADDRESSVALIDATE_STRING (V!XXAA A(D`(A(A%xJAA 3 :AAx(A G(lLAAxaa_XAA(ZAp bAAx(A o( @ xAAA AAxa(66\p""ApA(A 6@(G_>>XNP! HEAP_2_ROUTINE92833-16090,REV.5000,880608 880608.1830/P1K/CMP/SLB.PAS><3HEAP_2_ROUTINE 88 .DLD.DST.LPXR PAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDS PAS.RECVALPARM8@@%%A0G.. ( @(#A. A((".IpA@p-@%(@ 2)++B4A&3 20`Mp-(A`-pK&3`K3+ M @o)??XkP! PREPARE_PARMS 92833-16090,REV.5000,880608 880608.1830 /P1K/CMP/SLB.PAS?PREPARE_PARMS yy(.DAD).DCO*.DDE+.DIN.DLD,.DMP-.DNG.DST..LBPR /.LPX0.LPXR %CALLRUNTIME $CHECK #COPY_TREE "ELEMENTS EMDEF EMDI1 !EMITCDSLABELEMSKE ENTER_DEFLBLEOI EVAD EVAD2IND2 yFEVAD_STRING_EXPREVAD_STRING_PARMEVALFNCRG FREEREG FULL_SIZE GETFREEREGHEAP_2_ROUTINEINDIRECT_THROUGHINITIALIZE_STRINIS_STRING LOADNEWCOPY NEWLNODENEWNODE NEW_TEMP_SETNWTPN OFFSETii<'PAS.1 &PAS.2 1PAS.BITMASK12PAS.ENTRY23PAS.EXIT2 4PAS.INLINEERROR PAS.NONCDS5PAS.RECVALPARM6PAS.RECVARPARM7PAS.SETINIT RELEASE_NODE REMAPPER REPLACENODE STORE i>>)&&`I(#0`.(#0@`AA1b1<1 b1/'D&b>&(83+4 A2'3(A3'33/޵>KK`'M(>0^.P(J(uA0^xH0^!pIA[IR`HA@'ʄ(m`H @'pImRIApR tbR(>Ax'PA'T0@^ (XX((TJ(TLJL^((TJ(TL0@bA/xIJLIA0PJxI'AAIɄpGGT GPGA0b/xHAeQQ@H(2pG`HP((AG!HA( 0b/ `'@'@pI'IAAJ AGJ0P+AAJ0PAxIJAAI AGP"G0P@D*J0PxIJI*2 A0PxIJA'IA >bP>(S NCsUOA2?N(>A3?NNpp *WEE`I(v0@`A`KJpkbAA qAb\J'D(0@bAA)(A((b0bP((A0bA(Ab(bp( A2(WA3\ pKKA0bxL0b@AVAVpI`I(00`.(0`-(pJA0`.((0`M( `KJ( Ap'>0`.A(0Vmb@m( 0.KK@VAA,mA bm p'>(00@bJ)'(0(A0`)'( (0(0p'>A0VA-mA.bm Ap'>0dm:mA(a0`.ψP(SP(KP(OPއIKKA(O(] NAb(`RAb(` Vb(ZZ3\(`Hh4(rA0`.(pA lb(pp3r0VP(y(@7o`@`Lxu ,Hu@1@(0VV@`AAmm\0bxuVu"\pu"bA@u(b\(A"bpuA"\PuA((Abpu\Pu(0@`AAmmZ#ZA\% b"bRRh AAmmAbh mm \"\h AAmmA \h mm'`IKJA(d AbbA0`.(6A-'\2\A%5(AA9'\??h<((A>\%A b \ HbA Lb\A0dmVm(dA0`.P(a(d db?%d({ viw A2ev(A3evvo\zNNA.A0d)'((pNA@.dAAb0dx0x.P̈́(0x,(ApK0x'шP((0@dAAzzPpM`M(A0x|OOA`(0x`b ((1` ((10b@A^@7|h˄x}0`€' ,H}@1(N( v .A x|.A`|.b@Ab`M()0@d77""/`ApM(00`A`(b (:` Ap|$A|7A(=Eee3IIA2B5d6~(3B "  = CH,1NDc"~|etb ;x@e;;XgP4PSSSL 92833-16091,REV.5000,880608 880608.1949 /P1K/CMP/SSL.PAS;@اg;;XiP4OUTID 92833-16091,REV.5000,880608 880608.1949 /P1K/CMP/SSL.PAS; EVOUTID  FF 3.DAD.DLD.DST.ENTR .LBT .MVWPAS.1 PAS.2 PAS.BITEXTRACT2 PAS.MIN PAS.NONCDS PAS.WRITECHAR F~HH`L( hfH6  pJ(hf6 HA pPPLpJ`J(8pPpKaMQhf6 @K@h@hpSA /cQSaapSA 5`Sd8K8P(`JA@L(I`J@LpPA I`e ZHP bIV ""WAT`ThgA bUpL( OM" )h @ϏO??XzP4DISPLAY_ID_AND_F92833-16091,REV.5000,880608 880608.1949/P1K/CMP/SSL.PAS?uDISPLAY_ID_AND_FoMM .DLD.DST.ENTR .LPX .LPXR .MVWOUTID PAS.1 PAS.2 PAS.NONCDS PAS.WRITECHAR PAS.WRITESTRING WRITELINE M}}hLLA A(( .A( `(A ` /(' &`(, ,`A 1` @ A(:(O  @h AJA O}bb7L>>` @hA [ @ (d(A k` @A @hA { `( `Ab  //#QAAA(e i/ ]  [ Program/ t @ *@@X'@P4 REVERSE_ID_LIST 92833-16091,REV.5000,880608 880608.1949 /P1K/CMP/SSL.PAS@h:REVERSE_ID_LIST ++n.DLD.DST.ENTR .LBPR .LPXR PAS.1 PAS.2 PAS.NONCDS+GG]//A 4A@9AA22 (((A2>02>x6462402( A9x646G ,/: g;A9(@rX??XnSHP4 REVERSE_EXPORT_L92833-16091,REV.5000,880608 880608.1949/P1K/CMP/SSL.PAS?j<REVERSE_EXPORT_L&&G.DLD.DST.ENTR .LPXR PAS.1 ((PAS.2 PAS.NONCDS&JJ11A 6A8D44 (()4F@A2A4Fx:AA6:AA46AA24( 8Dx:6:J 01< _= AA;;A8(@Vu==X}3P4 IMPORT_CHECK92833-16091,REV.5000,880608 880608.1949/P1K/CMP/SSL.PAS=NIMPORT_CHECK PP.DCO.DLD.DST .ENTR .LBPR .LPXR .MVWOUTID PAS.1 PAS.2 PAS.NEW2S PAS.NONCDSPAS.WRITESTRING WRITELINE P#nQQA A(( J(A AA ((0A@ A(0($AAA (`g(y:`A  @h AFAM`   EQPP(YY`  A``   (mAl`&(yA  @h Ay`( p( (AA舀(((Ap(  AxhhZ==AA x AA ((A xAA( (( x(AJ`g(`,p᠄`g(h uw` WWh<((('p,K sK*`,0 1AA//A-`Bp,(  B @Zy99Xu_P4 EXID92833-16091,REV.5000,880608 880608.1949/P1K/CMP/SSL.PAS9 q"NEXID AA .DAD.DLD.DST.ENTR .LBT .MVWPAS.1 PAS.2 PAS.BITDEPOSIT2 PAS.BITEXTRACT2 PAS.NONCDSAppAApBh[6 @BA(.WAACFHh[6@B@^@^pH YFHWWpHA@BpI *YMIWWH`BpB(`B@](A@BpH =YMHWWZ`BpB(.p RAN OAL`Lh\A X( EC ]j @ ;;XOP4 STRID 92833-16091,REV.5000,880608 880608.1949 /P1K/CMP/SSL.PAS; E1STRID  TT'_.DAD.DLD.DST.ENTR .LBP .LBPR .LBT .LPX .LPXR .MPY.MVWPAS.1 PAS.2 PAS.BITDEPOSIT2 PAS.NEW2S PAS.NONCDSTTTA`K@! !<@ (0<!''>@A !< x) ) @!<A AA !< AHш`p`LA@A(v @AA (qVH0PTPPA>C !<' x)AA')A !{ @!<<X8P4CMPLITS 92833-16091,REV.5000,880608 880608.1949 /P1K/CMP/SSL.PAS< 2CMPLITS   ''.ENTR .LBT.MVWPAS.1 PAS.2 PAS.MIN PAS.NONCDS'BBAIHpFpGpE`E(+`FA@G(+h6@GHph6@GHHP($((`GpG(*pE( `E(?h6@GHph6@GH@pJ(C`H@I OBpJ t8C`J ));A`hA㈄pI`hpH(KK)@;;X<P4EXENT 92833-16091,REV.5000,880608 880608.1949 /P1K/CMP/SSL.PAS; L.EXENT  44 v.DLD.DST.ENTR .LPXR .SBTPAS.1 PAS.2 PAS.BITEXTRACT2 PAS.NONCDS4FFS%%A)6  ( x+p'A@'p, 8),66h96p,@'H`,H8'8+( A)6x(F s@%`(. h/ AA--A)(@G??X1EP4CURRENT_EMA_SPAC92833-16091,REV.5000,880608 880608.1949/P1K/CMP/SSL.PAS?MCURRENT_EMA_SPAC &&G.DLD.DST.ENTR .LPXR PAS.1 PAS.2 PAS.NONCDS&''տJ J((J(A' A gA(@-L??XSP4PREP_VARIABLE 92833-16091,REV.5000,880608 880608.1949 /P1K/CMP/SSL.PAS?PREP_VARIABLE p== ^.DAD .DCO.DLD.DST .ENTR .LPX .LPXR .MPYFULL_SIZE PAS.1 PAS.2 PAS.NONCDS=G;NNA`P( (| ~(H A|`A@ ~~ (-(H ~@AA7 (H(<(HAA~|A ~~('A| (\`LL0N--@JA xA(d |AxAAAA A xAA~A `ʀL { ##]}AA AAA( # ԁ @ >>XP4VAR_TO_ADDR 92833-16091,REV.5000,880608 880608.1949 /P1K/CMP/SSL.PAS>}VAR_TO_ADDR ~~.DLD.DST.ENTR .LBPR .LPXR .MVW ADOPT CVTNODE INDIRECT_THROUGHNEWNODE NEW_CST_NODENEW_INLINE_LIT_NPAS.1 PAS.2 PAS.INLINEERROR PAS.NEW2S PAS.NONCDSPAS.WRITESTRING PRINT_TREE~q|STACK_TOO_FAR WRITELINE ~~jTT`l( `A Ac@cAA_ AccAAe_gexigi_+((AAexiA i(P_@AgAexiAAgiAe`~TYYeA^Aca(k@_ (| ocexi i {ca(Acxic@AgAig] ]a cexi i c]@_AAg gOOg cg(A_Axie`i_!h gexigi_.(e(eA_+A(_`A(_A XII @ʄA(c(_AHxi Aci_.P(!P("P("P(R (S(V@('(Q,Ac@hAA]`]xii Ec++oEAcxiA iA Qc](V(VhJ`l(\A\c+ \} CC{~//AA||Ac(  "  ]jVar_to_addr Cmw@e%??XeP4UNQUAL_TO_RECORD92833-16091,REV.5000,880608 880608.1949/P1K/CMP/SSL.PAS?hUNQUAL_TO_RECORD ;; L.DAD.DCO.DLD.DST .ENTR .LBPR .LPX .LPXR .MPYPAS.1 PAS.2 PAS.NONCDS;OOAa A((U atP( (U _`p\_ (PA`\~@e ev(L @ezA@ xAA] ]@A_A_ A(>(L_Aa(L(DA _x_(8@\p\sO (]c(Y Ac jYAch iAA ggAa Ac(  ~J @::XP4IN_EMA92833-16091,REV.5000,880608 880608.1949/P1K/CMP/SSL.PAS: ZuIN_EMA  FF N.DLD.DST.LPX.LPXR PAS.1 PAS.2 PAS.ENTRY2 PAS.EXIT2 PAS.NONCDS PAS.RECVALPARMUNQUAL_TO_RECORDFn[FFApP(CP(P(7P(7P([(e@pAArr'P((3r.P(((, @(4Ar+(5po(g@pAruArpo(gp::}F!!@A@ApA@po(g^pArucrpo(gpo:g( tk88v!!A hu tp`po(A`op hu`u  8d  <DJ@$ ;;XP4ENLAB 92833-16091,REV.5000,880608 880608.1949 /P1K/CMP/SSL.PAS; 8ENLAB g >> j.DAD.DCO.DLD.DST .ENTR .LBPR .LPXR .MPYPAS.1 PAS.2 PAS.NEW2S PAS.NONCDS>#LLA`@ @AAp ((G`(G PA(&(= P(-(=  (=A (>(=pA@ A(`A( O[[)wL99 `A ` A` AxAA  xAAA `ʄ x[  44 A pppAA(l4  @g-'==Xc P4RESET_LABELS92833-16091,REV.5000,880608 880608.1949/P1K/CMP/SSL.PAS=JRESET_LABELSPAS.1 PAS.2 PAS.NONCDS` pB` pC p  (d @͢??XPP4ALLOCATE_STRING_92833-16091,REV.5000,880608 880608.1949/P1K/CMP/SSL.PAS?K{ALLOCATE_STRING_66 .DAD.DIV.DLD.DST .LPX .LPXR .MPYENLAB PAS.1 PAS.2 PAS.NONCDS6.GGJ9 J(( 9~/(`pu(pu`@JA  @AvAv A(&(fvAAx x(^A xA(B xxzAz(^`u@(F(^ UUG--x(^ xA`u xH @@upu @xAv( `u(j(thu `up`upU t{ |8{("  l @??XiP4STRING_LITERAL_L92833-16091,REV.5000,880608 880608.1949/P1K/CMP/SSL.PAS?dmSTRING_LITERAL_L++n.DLD.DST.ENTR .LBPR .LPXR PAS.1 PAS.2 PAS.NONCDS+EOOAAWYAYu[[wA((-ix] ]j[wAx]YyH]x]Ak`](M[{@A^Aix]^][}x]Aj`]AYyx]k`][bOx]l`] Vm l7nAAhhAW( @=6[??XDQP4STRING_INSERT 92833-16091,REV.5000,880608 880608.1949 /P1K/CMP/SSL.PAS?zSTRING_INSERT aacZ .DAD.DIV.DLD.DST .ENTR .LBPR .LPXR .MPYNEWLABELPAS.1 PAS.2 PAS.BITDEPOSIT2 PAS.BITEXTRACT2 PAS.NEW2S PAS.NONCDSPAS.SINGLEMOD aMM,,AA-/A /x1A 1A / /A /`ʈP((* /x1 / `1p{M ",3 [\4AA 22A-(OL;OOA`@ f f@ (z fnWnA fh`ʈP(b(h h`(pjppA h`p f@Ah3zh @fAAb bHa`p`Ad3TT@A( b(( b@ ( bhhA bbApp b`p3b( @bAb(wjbl j` jxpbp l ġLL @App j`pA j j`a`a(ppp`@`pqxqpq lH`xr lrq8`A8p( lHaxpA l`p lxp,p[[*55(MA lH`(MA lA xq l`q lxp Mlp lA lxpJApA l`ʀ[ (( _z 99y{%%A wypa(; ' 9 @<<XvgGP4GET_STRING92833-16091,REV.5000,880608 880608.1949/P1K/CMP/SSL.PAS<r8GET_STRING55~.DLD.DST.ENTR PAS.1 PAS.2 PAS.BITDEPOSIT2 PAS.BITEXTRACT2 PAS.NONCDS5II\((`, p)`+((p/p*`)@*A@Fp0E-0DDp0@*p1%E41DD08*8/(I #(8 9 AA45A-6p,7p+( F @mr>>X׸TP4FREE_STRING 92833-16091,REV.5000,880608 880608.1949 /P1K/CMP/SSL.PAS>3AFREE_STRING &&G.DLD.DST.ENTR .LPXR PAS.1 PAS.2 PAS.NONCDS&]]P66AA9;A;IA(6;K p8;MS Sp?;MH8AH?x7;O==QP7(0(6A=Q@8] :6A fBAA@@A9( S @r==XcP4STRING_VALUE92833-16091,REV.5000,880608 880608.1949/P1K/CMP/SSL.PAS=WOSTRING_VALUE>> R.DLD.DST.ENTR .LBPR .LPXR .MVWFREE_STRING GET_STRINGPAS.1 PAS.2 PAS.NONCDS>gg@<<`>Pa((/AA?AA AZC A\xEA A^xFLCEF A^xEA M`E`=(..?(< LxEEHb0?HEA Mg N<O ""~PAK`Kh`A ]Np=(>" 'a @{??XcP4UPDATE_FILE_LIST92833-16091,REV.5000,880608 880608.1949/P1K/CMP/SSL.PAS?}bUPDATE_FILE_LIST __Qz .DCO.DLD.DST .ENTR .LBPR .LBT.LPX.LPXR .MVW.SBTCHECK CMP_ID2ID EXID PAS.1 PAS.2 PAS.NEW2S PAS.NONCDSSTRING_INSERT _ LLp>` PJ((Y  (Y sDD ((Y`>(YA D@hAs#OJ(QDt(QF (1(AFv@AvPpRARxDvADAyxRF LOOARp>(XD{@AD(`>(7` P(`(A @J }B@ (AB A(v(By F(((AB@(AB{B(kA@ pRRqbMM(AJh6  (pRp?h6H@?H h6pS@?HH`S8?8R(h6  pR@RAD{xR sRD sDM M`AsMPPAyxRFAARMAxR@AARMvMtAM  ( (7` AP(7 D@hA B`J }MB{xRMR }xRBR 8DH +;AHb XXVzc88AA ``AF`ahAs H(   O@ L  7  7DJBTX j @Zy>>XIP4DUP_EXT_ENT 92833-16091,REV.5000,880608 880608.1949 /P1K/CMP/SSL.PAS>c&DUP_EXT_ENT AA :.DLD.DST.ENTR .LBPR .LPXR ERROR PAS.1 PAS.2 PAS.NONCDS PAS.WRITESTRING WRITELINE A66*"`(A0 `6112 3Ax" x# `#5"2A6 & 55'""A$$pAA% (d&100: Invalid/Duplicate External Name: 5@Ѣ>>XP4 IN_EXT_LIST 92833-16091,REV.5000,880608 880608.1949 /P1K/CMP/SSL.PAS>1aIN_EXT_LIST ?? .CBT.DLD.DST.ENTR .LBPR .LPX .LPXR .MVWDUP_EXT_ENT PAS.1 PAS.2 PAS.NONCDS?.yKKJpNAQ`N(&Q ((& Q@6h|6r(((ApN(% QsQ(`N(G`O(AA QuA(A Qy w'P P(Bp]G]QQS EKASa 00bA^`^h|A {_pP`pO S(  U0 W @>>X;$mP4 INSERT_EXT_ENT92833-16091,REV.5000,880608 880608.1949/P1K/CMP/SSL.PAS>VQINSERT_EXT_ENT ;; o(.DLD.DST.ENTR .LBPR .LPX .LPXR .MVWIN_EXT_LIST PAS.1 PAS.2 PAS.NONCDS;aa<>X]P4#MAKE_STRING 92833-16091,REV.5000,880608 880608.1949 /P1K/CMP/SSL.PAS>"@MAKE_STRING >> r.DAD.DDI.DLD.DST .ENTR .LPXR PAS.1 PAS.2 PAS.NEW2S PAS.NONCDSSET_TYPE_INFO >MMR33A XLN 6O6< <Px>8> <Rx>8TT>8@\ Ap> <V`>6:M 3A:@ ((oAAA ??A8 A:( W 6( \ @Cbb==XP4#MAKE_TEXT 92833-16091,REV.5000,880608 880608.1949 /P1K/CMP/SSL.PAS=MAKE_TEXT p KK .DAD.DIV.DLD .DSB.DST .ENTR .LPXR PAS.1 PAS.2 PAS.NEW2S PAS.NONCDS PAS.SINGLEMOD SET_TYPE_INFO KNNA   x A JxAA `~ ``~P(I@~ A@A  x`P(xA QRR҇N44h ` h  @A AAAA AxAA 0AAR A //|A  A(j x@ /  @L ??XWP4$HAS_FILE_POINTER92833-16091,REV.5000,880608 880608.1949/P1K/CMP/SSL.PAS?rHAS_FILE_POINTERb << r.DLD.DST.LPX.LPXR PAS.1 PAS.2 PAS.ENTRY2 PAS.EXIT2 PAS.NONCDS PAS.RECVALPARM< LLAAA.(p(0P(VP( P(,(A*p(Ap (;(U`A(UAALiioL==p@AA(5(.(ep(~@A,(|@A{(}p(p`piG(00ڢA `p(A`p ` 0@@ W?>>X TP4%FIND_SYMB_FILE92833-16091,REV.5000,880608 880608.1949/P1K/CMP/SSL.PAS>$AFIND_SYMB_FILE // .DCO.DLD.DST.ENTR .LPXR CHECK PAS.1 PAS.2 PAS.NONCDS/XXQ55Jp8sA9`8(&9 ((& @9MA;((p8`8A(% 9OA9(9 p?1?Q9=X 5A=A {BAA@@A; A=(@~W??XbpaP4%DISP((LAY_MODULE_I92833-16091,REV.5000,880608 880608.1949/P1K/CMP/SSL.PAS?^.GDISPLAY_MODULE_Iff.DLD.DST.ENTR .LBPR .LPXR DISPLAY_ID_AND_FPAS.1 PAS.2 PAS.ENTRY2 PAS.EXIT2 PAS.NONCDS PAS.RECVALPARMPAS.WRITECHAR PAS.WRITESTRING WRITELINE fVV}66A@ ( A>(@AAB BO_A BQ>> (!(6>D DBGA.B DS>(V6(R F:>bHA 7G FA@( 7GGZVEEA A(\(d O-[( ``pp`P\(l(r`C(r`m(At`@`(`P[( ((`UC`P\((A V`-XXY(OO ((A OA0^ Q`0XXYA`3ZZY( (A (A( Q`C@]pCA A((AA @@<<!9`@`(`AUC( S@A(`C@`pC88(h<E () )){A   A(V  ExportImport list for )8 G;DpC@DAB LBG mdHAAFFAD(8  $[ @ )??XbP4'DISPLAY_STRUCTUR92833-16091,REV.5000,880608 880608.1949/P1K/CMP/SSL.PAS?^DISPLAY_STRUCTUR|77 .DLD.DST.ENTR .LPXR PAS.1 PAS.2 PAS.NONCDS PAS.WRITESTRING WRITELINE 7BBA A((wP(P('P(gP(/P(7P(?P(GP(WP(_P(O(o &`(v .`(v 6`(v >`(v F`jjB>>(v N`(v V`(v ^`(v f`(v n`(v v`(~ ~`Aj  NN88AAA( ScalarSubrangePower ArraysRecords Files Strings TagfldVariant Pointer Unknown N  @ÇG>>X$5ZP4'CURSTR_TO_PATH92833-16091,REV.5000,880608 880608.1949/P1K/CMP/SSL.PAS>?JCURSTR_TO_PATH 55c.ENTR .LBPR .LBTPAS.1 PAS.2 PAS.BITDEPOSIT2 PAS.BLANKFILL PAS.NONCDS5mm<<`p?`YA@?(`Yp?p@(AHxAQPQARp@`?(8pAp>hU6@>HHpB@>pC5THCSSB8>8A(#AI`?m s<`@J K AH`Xp@( @7 ]X@ @>>XP4(OPEN_SOURCE 92833-16091,REV.5000,880608 880608.1949 /P1K/CMP/SSL.PAS>1 OPEN_SOURCE ?xPAS.1 PAS.2 PAS.NONCDSPAS.RESET_FILETA#     8 (@ SHARED@P==X P4(CLOSE_SOURCE92833-16091,REV.5000,880608 880608.1949/P1K/CMP/SSL.PAS=lCLOSE_SOURCERPAS.1 PAS.2 PAS.CLOSEFILE PAS.NONCDSPA#    8( @qڐ>>X$P4(INIT_SOURCE 92833-16091,REV.5000,880608 880608.1949 /P1K/CMP/SSL.PAS>5INIT_SOURCE  .DSTCLEAN_PATHPAS.1 PAS.2 PAS.NONCDS>>A8p|p} /` !p ` "p ` #p >   8(.@:_Y>>X~P4)SOURCE_LINE 92833-16091,REV.5000,880608 880608.1949 /P1K/CMP/SSL.PAS>(SOURCE_LINE !!x.DLD.DST.ENTR PAS.1 PAS.2 PAS.NONCDS!!! `(( JA( /! u A epA( @x:??XBP4)INCLUDE_STACK 92833-16091,REV.5000,880608 880608.1949 /P1K/CMP/SSL.PAS?xINCLUDE_STACK 66 .DLD.DST.ENTR .LBPR .LPX .LPXR PAS.1 PAS.2 PAS.NEW2S PAS.NONCDS6&SSAvxp p`k( (i n`k(Ppppj ~An (%lnvq lxsqsv (;(FvAxslAAsvxsls8j8p(A@v%%8Sq nxpqpvAxpnAp% ix QyAvwpk(_[]l@)<<XO 6P4*PUSH_SD 92833-16091,REV.5000,880608 880608.1949 /P1K/CMP/SSL.PAS< )*PUSH_SD  AA * .DDE.DLD.DST.ENTR .LBPR .LPX .LPXR .MVWPAS.1 PAS.2 PAS.DCBADDRESS2 PAS.NONCDSAGG›$$J .`" Jp" `) 0A13`5p(p%h% D &8%8((G $* z+ A)(][& # 5 @0::XڰP4*POP_SD92833-16091,REV.5000,880608 880608.1949/P1K/CMP/SSL.PAS: xPOP_SD // .DLD.DST.ENTR .LBPR .LPXR .MVWPAS.1 PAS.2 PAS.NONCDS/((#J@hA @J @"p"(  k*A([[@[;;XmP'PSNFS 92833-16084,REV.5000,880608 880608.1938 /P1K/CMP/NFS.PAS;@­m??XFJ;P'OPEN_IMPORT_FILE92833-16084,REV.5000,880608 880608.1938/P1K/CMP/NFS.PAS?z)OPEN_IMPORT_FILE 66 |u.DST.LBPR FMPOPEN PAS.1 PAS.2 PAS.ENTRY2 PAS.EXIT2 PAS.NONCDSSTRDSC611A58& 756AJ$x(("&$5`"p#1r(. )*A)(A`#p9 )`9)ROSX@ *??XEFKP'READ_IMPORT_FILE92833-16084,REV.5000,880608 880608.1938/P1K/CMP/NFS.PAS?x5READ_IMPORT_FILE :: vk.DIV.LBPR FMPREAD PAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDS PAS.RECVARHPO :AA""Jx-A3x. -+.Gp*`*(A4`*x- AJ-( A4`*`+p,A"(@3&##6A#5 A3/ 41(`,pHA#5`H5# J @ *??XfWDP'POSITION_IMPORT_92833-16084,REV.5000,880608 880608.1938/P1K/CMP/NFS.PAS?&POSITION_IMPORT_ II u.DAD.DLD.DMP.DST .LBPR FMPSETPOSITIONPAS.1 PAS.2 PAS.ENTRY2 PAS.EXIT2 PAS.NONCDS PAS.RECVALPARMI$$J x!@"!>"`p$l(7$..̀'A & $ %(A`pB &`B&.@}==??X;="P'CLOSE_IMPORT_FIL92833-16084,REV.5000,880608 880608.1938/P1K/CMP/NFS.PAS?o CLOSE_IMPORT_FIL -- .LBPR FMPCLOSEPAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDS-y Jx`p" ( n A (A`p  ` @ܝ]<<XKP'CLEAN_PATH92833-16084,REV.5000,880608 880608.1938/P1K/CMP/NFS.PAS<^dCLEAN_PATH}}.DST .LBPR .MVWFMPBUILDPATHFMPHIERARCHNAME FMPPARSEPATHPAS.1 PAS.2 PAS.BITEXTRACT2 PAS.BLANKFILL PAS.ENTRY2PAS.EXIT2 PAS.INLINEERROR PAS.NONCDSPAS.RECVALPARMPAS.RECVARPARMSTRDSC}TTA: AAAA!(AA6`P(@P(AP(AP([(q(t HA O`ȈP(S(Z TRRZ(t bA i p(thppppA axZZAA`PA(( b` b(( b..TAHxZ aZP((A bHxZ b`Z(.(}_;;Ue$$A dA_h `pa[Ab]cp(Add@  :; @@??XCZTP'FILE_TO_FILE_NAM92833-16084,REV.5000,880608 880608.1938/P1K/CMP/NFS.PAS?V@FILE_TO_FILE_NAM?? 6.LBPR CLEAN_PATHPAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.FILENAMRPAS.NONCDS PAS.RECVARPARM?%A=x66R>?S(N.=!!;AA@ A=7 >9 ?;(@@@!@.@@XsP'OPEN_ERROR_FILE 92833-16084,REV.5000,880((608 880608.1938 /P1K/CMP/NFS.PAS@_OPEN_ERROR_FILE JJ v.LBPR PAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDSPAS.RECVARPARM PAS.RESET_FILE PAS.WRITESTRING WRITELINE JwJJ Ap!^x[ [rpvq`!(P Ap!^x[ [rswq`!(PAA" )`ttr 0`xuurA 7`ppr9 @`ttrA G`xuur N`'JssrAP`!pZPR(i ^VWW`::AS_^\`pZ(`ZpS_`_ Can't find error list file: PASCAL.ERR::SYSTEM"PERRS::0 SHAREDSHAREDW ` @z>>X_P'FILE_SEARCHING92833-16084,REV.5000,880608 880608.1938/P1K/CMP/NFS.PAS>"FILE_SEARCHING zzՊ.DST .LBPR .LBT .SBTCLEAN_PATHCURSTR_TO_PATHFMPWORKINGDIR PAS.1 PAS.2 PAS.BLANKFILL PAS.ENTRY2PAS.EXIT2 PAS.INLINEERROR PAS.NONCDSPAS.RECVALPARMPAS.RECVARPARMPAS.WRITECHAR zPAS.WRITESTRING STRDSCWRITELINE }}>>` 8@ p`A@(pG(>pGp\` 8A@Ʉ(7` A@\(7` 8p 8hW6H@\H hX 6pH@ 8HH`H `\p\(>  8Y[}~>(PIC..>JA?I`pG(`GpA?I`I 7   8.$]GGp_p]A P(oP(P(P(PÈA((s(A|b\`\A(h6 P(`\A@(Hh6 PLj((h6  @(h6 H @EE(h6HH P((Ap] `ÈA(  8Ip]A `( `ÈA("b``p]`](p 8Ip]A `("`^(@ CC `p 8(  `p 8Ip] `ˆA("   `p 8IAp] `("(p]p_("hH`](_` 8hɆAHRRk,(((/ (>X1ēDBEMITCHECK 92833-16068,REV.5010,881021 881021.1626 /P1K/CMP/DLB.PAS>$DBEMITCHECK '')BOL EMITCHAREOI ERROR PAS.1 PAS.2 PAS.NONCDS'>>1!!`"((`"hH0@A@(!`"A@0(.HA(!!/> !$  % `$(&p#8$#p"(\ B0P @n<<XQZēDBEMITCHAR92833-16068,REV.5010,881021 881021.1626/P1K/CMP/DLB.PAS<JDBEMITCHAR""dDBEMITCHECK EMITCHARPAS.1 PAS.2 PAS.NONCDS" V!AA  P `( p8p(@B==XVēDBEMITNUM 92833-16068,REV.5010,881021 881021.1626 /P1K/CMP/DLB.PAS=`DBEMITNUM !!DBEMITCHECK EMNUM PAS.1 PAS.2 PAS.NONCDS! V!AA  U `( p8p(@Ȥd==XēDBEMITNUMCOM92833-16068,REV.5010,881021 881021.1626/P1K/CMP/DLB.PAS=Q DBEMITNUMCOM((sDBEMITCHARDBEMITCHECK EMNUM PAS.1 PAS.2 PAS.NONCDS(?AAA   ` ( p8 p(,@O>>XȈēDBEMITLABEL 92833-16068,REV.5010,881021 881021.1626 /P1K/CMP/DLB.PAS>DBEMITLABEL !!DBEMITCHECK EMLAB PAS.1 PAS.2 PAS.NONCDS! V!AA  X `( p8p( @9X??XR<ēDBEMITSYMBOLICLA92833-16068,REV.5010,881021 881021.1626/P1K/CMP/DLB.PAS?:DBEMITSYMBOLICLA..e.DLD.DST.ENTR DBEMITCHECK EMSYL PAS.1 PAS.2 PAS.NONCDS.iGAA   #aAA  A  pAA(@j}>>XAēSYMB_INFO_WORD92833-16068,REV.5010,881021 881021.1626/P1K/CMP/DLB.PAS>I}SYMB_INFO_WORD ++.DLD.DST.ENTR .LPXR ERROR PAS.1 PAS.2 PAS.NONCDS+AAAAwy`tptpuy'P(P(P(((#`t0pt(#pu(#puA#`uA(Ay-p{`tN0{Npty.p{`tL0{Lpt(GbbZA11`tpt`t0pt`tpt`tpt`tpt`uA(pwww (`(p`tp{`t0{pt@wAw(Z`tpvb t*r`v} g~AA||Aw("0? ??@d@@XeēDEBUG_CALL_MECH 92833-16068,REV.5010,881021 881021.1626 /P1K/CMP/DLB.PAS@\DEBUG_CALL_MECH r0;; .DLD.DST.LPXR PAS.1 PAS.2 PAS.BITMASK1PAS.INLINEERROR PAS.NONCDS PAS.SETINIT ;DDAp ((A(`(.( ;Ahx' ,HH@(A`P(;P(;(>p(@`p(`P(GcD;;P(G(f.P(VP(YP(\P(_(b`p(ep(ep(ep(ehHA(.P(uP(xP({P(~(`p(`p(`p(`p(h@ t]` --^`(Ap8A`p( -3 IP@dს??X_^1ēCREATE_INFO_FIEL92833-16068,REV.5010,881021 881021.1626/P1K/CMP/DLB.PAS?G CREATE_INFO_FIEL:: v.DLD.DST .ENTR EMITCHAREMLAB EMNUM PAS.1 PAS.2 PAS.NONCDSSYMB_INFO_WORD://OA*`P0J((  AA+,(-.p//  4W!AA Ap(<-*,> 0 @9Xe??XēEMIT_SYMBOLS_FOR92833-16068,REV.5010,881021 881021.1626/P1K/CMP/DLB.PAS?EMIT_SYMBOLS_FORww..CFER .DAD .DCO.DIV.DLD.DST!.ENTR ".LBP#.LBPR $.LBT%.LPX&.LPXR .MPY'.MVW(.SBTBOL DBEMITCHAR DBEMITCHECK DBEMITLABEL DBEMITNUM DBEMITNUMCOMDBEMITSYMBOLICLAw{{DEBUG_CALL_MECH EMITEMNEW EMPRL EOI ERROR EXIDFLUSH_CODE_BUFFEFULL_SIZE GETBOUNDS NUMDIGITS PAS.1 PAS.2 )PAS.BITEXTRACT2 *PAS.BITMASK1+PAS.ENTRY2,PAS.EXIT2 -PAS.INLINEERROR {99R.PAS.NEW2S PAS.NONCDS/PAS.RECVALPARMPUTLABELSTRING_LITERAL_LSYMB_INFO_WORDTEXTFILE9ˊAA  AA    ZAA!  A (AA!AA   $ [P%AA!##A!(Ub,<()P?(#P@(&PC((ETpO(G&V@AXXP;(ÈP<(PI(ވPJ(PU(䈄(`NpOToqAAP (((R >>(((pO(`OpO(`PpO(`QpO(鈈`RpO(`FApO(G&VP;(P<((`SpO(`TpO(`FpO(G`KpO(G&@VA%( `VpO("A&Vhh7d55XXPI(PJ(( `LpO("`MpO("`VpO(G`WpO(G`\pO(GT?p-&T@ATA&TAP>(/TA=[C=pO(G`FpOh<G(hZK++,'((\A+H[/ZT`apO(A`Op8,H[`8[PR+)sDD`4P;(w(}hw6 H((`0 ((;hw6`@H((;hw6`>((;hwH6`>((;hw6`?((;hw6`=H((;hw6`=((;hwH6`=((;hw6`@((;hw6`@H((;hw6`@((;hwH6`<((;hw6QQ]9((((V`3PZ(@(EhwH6`>((R`3P[(I(Nhw6`<((Rhw6H((VhfH-hw6$phhw6 H$@=@hp5Q aj sk `j(lApi8jiAb(s2;;x`K(`pph6@HHA$p 88(pJ A(A; A  AA!A(x:SY:`PPAANDA&D/;(A&D!q((`^pH&D!qh FAFLAAL(&D!qh AFFL&@DAAF&DxHAFHllxBBAL(>&DP=((9D%"P>A((9AAD%@AFA#FLNPR`A((`^pHh@ AF1FL8BAL(>`K(>A l J>I J 8I(BA@?tTFFA pJ`]pH`4P:(bP;($P(݈P?((IAy(&P+;(``pHLL A(&PRRL*MM(&P@ARR(֠`M(&P`(`^pH&P!qh RRAAL&PR&PxTRTL(`K(A (&P!qh `3IIARRL&@PAAR&PxTARTL(hgH-(-`M( `_pHA L`3PE((A&AxT T(#A&NAxT T(-`K()A (-hh-`K(G00v0`J(C`pTpIhb6@IHHA$pU U8I8T(7 H 0 bGX GSYAA!VVANWpK(Tc:LSH:4+ 77fgp6`>p7D `pph6@HHA$p 88(rX7  ++`(Ap8A(gLOADREC 0,0,161201B,0,1,+~~w@@`-(`3PYp`1O0Op1`1zp1`1}03p1`4(ˆ`1sp1`1up1(p`1L0Lp1A&p`HA@(`10op1(&~x`1H0Hp1  O `(Ap8A(CCA/p0hK6`\H(`/pD`0pF@=(2pE`FpC`D AADD@DpBhK6@CH`J@B(`D ADpD@CpC8E(hK6 `JH@D(hK6`0@@H`Y( KAG  H8G(LE0123456789^VKKApAA&'HAP>(m&'HP?(m(&/;P;(v(A&.=(A& ((p&@AA&  (xp@pA)**-h6p@H`(88(&x0* ` H AA!A`((@(C#P-;(A&N(pKA#PtA(C&N(5A&NA@(?&NA @A(?&N 7 `` ppK(Chk-  C(` RG&&biTA+DS/RL` A+/p(A, A < :W( A+/A(,;9 s A   $;9(    P A+ / A (,  ;9 C LLAA  A& A( ;# @ A( .( {# @A%@J ( ;( {( {&@ AA  A [ I p3`-( W`3 ,HH @*( xS Z p,& x  c `,A( w& **S h( sA& P;( s( w C( zA 3( } *  }(  " A+ ~ / A ( , ~  .. ` @ A@b( ` @ p ( ` @ @0c( x. (  e9 A+ / p ( A,   QQ ''p ` @B( p `Bp ` @;9@@H,44G BA ` @A( Yp c`Ap b` n@ bp d d` bAP ( V È8 b8 c( L4f Z( j e ^؛ f A+ [ e( BA, [ e e 1 o??` @ p  ؈0  `3 ,H H@*( ` @ @0r` p S =( `3p p &=x ؁ h ∈H `4P;( ( ` p ` @ @0aS ?CC ""( &?ሁx   h H ` @ @6 ` @ (h 6 $h HHxh 6(C8 (  L A+ ( oA, ٨    OO`Ap p A  p  X h W6(h W6 H(`4( AAA   > W` p ` V@ p ? ?q ? ?s0p ? ?v0l ? ?0e ? ?{ ? ?| ? ?``' q77 ? ? ? % x  z e |p- ( (   @& @x3A@# @ACP A& @ ( ~` ( ` p3=CP `_ ( R F !!2 HA+ G/ FA ( ,  G G  CE!BBZ [$$`Xp3p4A&C `Jp ( p ` p  s A&  @ p 8 ( nB (  A+ ( [A,  ::@  ##A A( (  AA &   Ĉ`Yp3  & @A ā : ( ] A+ / A ( ,  Ǩ e @@p4p,AACK`-(  G (A  &KሁxM M`3PK(5PN( PO(PP( PQ( PR(PS(?PT(?PU(IPV(\PW(P\((@C(@ C(@&)MM@KANSANp,&K%xM,M/C`,(>A`Up3&KCP>(@ BC`,(HPH(@&@KAA%xJ`JpM M A[(@&KNXcNN[fNp3`3 ,HY@*A(&KNS{Np,&K@A%ሁxMAM( 3A&K/;pM MK%xM M&KxMA M`,(&K@ACHP~~PPA(@&KN$NA&KxM MK%xM AM&KN N(@CA( (&K@AN[Np3`3 ,HY@*(`-(&K@AN~hhN@@SNp,A&K%xMM( 3&K/A;pM MA&KN'N`,(4&K@ACHP4(@AAKA%xMA M(@hA(U PEQ A+BP( A,BPP8}ZMMA&ӂ@h'Afp4p,A CA ?p-`3PY(`3PD(AAA&[p3&'HP;((A&/;(A&P=((%~~DD@H"P>(`Gp3`-(&@AC G(`3 ,H@*(AA AA&`3PK(ՈPN(PO(PP(PQ(PR( PS(8PT(8PU(~MMPV(PW(PY(CP\((&@A(A&  (&@ASAp,&%xA!&+`,(7`Up3&@AC((8NNA& B(&@A[Mp3`-([`3 ,HH@*p,`,(cA 3(v&@ASmAp,&xAv&$A&.;m!PPp&&XAp A&$A&.;p&+XAp `,(&@AC(&@AS(&@AAC&x(%%%x D(C ((P%(  A+/A(Z,E e#GGA A((AAAA&/;A(& (2(<&@J (<((&'HP:(SP;(TP<(wP=(SP>({P?({P@(SPB(S((&@@%ZKK(sA&%P;(i(s&@J (s(v(vv(z(&ŀ((`Dp3`Fp3(Dhm-&@AA (&@A A&( ۯA+/A(,¨77p4p3Jp- ((p(`@ypA A@ 7 - s8( HSSAi A((_iAAggAAk&k ((;&@kAoSo(;p- ?&k@Ao[$op3`-(2`3 ,HH@*(;&k@ACAP;&kgg,,D (im&@mAkrUk&m@Akr_k,ח_(}qc sA+`r/qAi(,`rr `(($p.`Pe(`P@J@% ((A`P@%r('(' ('`@p.`JP@AUHH@((J& (݈(`Fp3p&@Ap`Fp3`P@J@%A&@AAAA A( (&Ax/`/(A@#A))LAA(`̀@(#`=p8('Dhn-)) 0) ZZ`(p8p8(  ,*!-$%&"  Q aaHH@'ajj:OO  !"#1245@~L  ??j@?;;XEPINSYMBOL92833-16087,REV.5000,880608 880608.1824/P1K/CMP/SCN.PAS; "&INSYMBOL xx.CBT.CFER .DCO.DLD.DST.ENTR .LBPR .LBT.LPXR .MPY.SBTCHCKB CHECK COM_OPTIONS ENDOFLINE ERROR FEATURE_LEVEL GET_CONSTANT INT_CONST NEXTCHPAS.1 PAS.2 xgg PAS.BITEXTRACT2 PAS.BITMASK1PAS.BOUNDINTEGERPAS.ENTRY2PAS.EXIT2 PAS.INLINEERROR PAS.NEW2S PAS.NONCDS!PAS.SETINIT "PAS.SINGLEMOD PRINT_TOKEN STRING_INSERT g}>>pp`@(%`p` ,H#H@(h$6@H`@H(%h$6@H`D'`P(+(0`r(0p` ,H%@(`@>??(@(Kh$6 @H`l@@pΈ(:`pp`@(`pph$6H@Hh&6p@HH`8 8(W@΄pr0//p`@p~0/@}<</@p`@(Ā`(`]A@"6Ah&61(((p@p0//p2`P](P^(Pb(Pc(Pe((`fp3(`_p3(`[p3(`\p3wm66(`Zp3(`gp3(`p(`(`[(`2Pk(؈Pm(Pn(؈Pq(Pt(숊P{((`/ p/(`s(`/p/(`s(@/p/(RR(""@/p/((`r(` @((h$6@H`l @p( p2`gp3`( 2R  O ]]8(D9(IF DO OF TO IN OR END FOR VAR DIV MOD c}`` SET AND NOT NIL THEN ELSE WITH GOTO CASE TYPE FILE BEGIN UNTIL WHILE ARRAY CONST LABEL REPEAT RECORDhhMM DOWNTO PACKED MODULE IMPORT EXPORT PROGRAM FUNCTION PROCEDUREOTHERWISEIMPLEMENT]ВP`@XP@PU~Q0 ̀]@h * `6@(1`6@p7 yi4`79 &:A88p6`Zp7(*++\A`p`A@(Sh\6@H`T+ lSV NWAUUpT(A.]<<`(o`Pz(d(gf(`9j(oVo3p9t(`(`Pz(}(`p(`((V3@p(V(VA(q`(22vD(`A@(h6H@Hp9(V32 , vApp(]q?? pppp4/`Px((A`Px(`Ps(ڀ(pp@|p|`xp(V59ꠈ(/4(V3 6p`(@!<@@;789:`@`x ,HH@(@`P(`PA(( 2V A"`Pw()`P((u()(.V,A.91(874/(>A ;=V>3p~~@AA `A@(MA K>`p` ,HH@p]?`0pA fp`PX(qPY(|PZ(P[((u@p4`p5p2(A@~jj77p45p2(AAA`Zp4J5`Zp2(A  BDpA`[AExA`[p45`Zp2(A Gj Q --8( Ѐ-66g`A@(`ph6@H` (  Hp6   VA  p (788 ppp `Pq(("p (+`Po(&()`[p (+`\p ` P\(` PX(8PY(=PZ(TP[(j(p <(ը`Pq(A(D`Zp (S`PZ(H(N KI`\p M==(SQAS(V`Po(Z(]`[p (i`Pq(a(gp f(i`\p (p n`PZ(r({ uJA xI`\p (9~(`2PYApCCK( 4(A 4L(pN(5(` ,HH@pJ("OPpAˆ` P\(`Pq((p (`<@L[]^_l{}jR@ ::XFPNEXTCH92833-16087,REV.5000,880608 880608.1824/P1K/CMP/SCN.PAS: f;NEXTCH ((2y.LBTNEXTLINEPAS.1 PAS.2 PAS.INLINEERROR PAS.NONCDS(~~T33`PA((A`P?(P@(PA(PB(/(7(:`r(`Dp(`Cp`Ap(: h>6@|Hp`| p|`}@|(,(. p(:@|p|`D~%3pp(:@hE 8:; < 8;(1 $@|;;X @ē)0ASSCO 92833-16083,REV.5000,881021 881021.1640 /P1K/CMP/MNU.PAS; _ASSCO   UU8 .DCO.DLD .DSB.DST.ENTR .LPXR COMPTYPES EQUIV_TYPES GETBOUNDS INT_TYPE PAC PAS.1 PAS.2 PAS.NONCDSREAL_TYPE U%%Ap ((A*H?`p% s` T AAA`=p(i"KKAp (*(A A(0(4(IA,,<(FA,,< <(Gp(L(^AQ(Vp(]AY(]p(a(nfA(nlpsmRR(*P>(u(A*P>(|(p( A( (p`( (A.24A.68AA   AA AA  (~~͵FFp( (Ɉ((p(*P=((A*P=((@0AA0(.xA.AP(J ((p(`p~ u` //qAAAAA`=p("     / < @/0M;;Xē))CHCKB 92833-16083,REV.5000,881021 881021.1640 /P1K/CMP/MNU.PAS; :CHCKB  .ENTR ERROR PAS.1 PAS.2 PAS.NONCDS` ( ` p  r`  Z A  p p `p (  @j;;Xē))CHECK 92833-16083,REV.5000,881021 881021.1640 /P1K/CMP/MNU.PAS; 2 CHECK  .ENTR ERROR PAS.1 PAS.2 PAS.NONCDSl`(   A  p p(@/l??X-ē).CNVT_SUB_OR_NUM_92833-16083,REV.5000,881021 881021.1640/P1K/CMP/MNU.PAS?~$)CNVT_SUB_OR_NUM_44 X.DCO.DLD.DST.ENTR .LBPR CONVERT_SUBRANGEPAS.1 PAS.2 PAS.NONCDS4EE$$A( (( ((A (x%%($A@ (J(($($ (x%JA%E $) e*A(( @{;>>X Kē)4COMPILER_LEVEL92833-16083,REV.5000,881021 881021.1640/P1K/CMP/MNU.PAS>  COMPILER_LEVEL G.ENTR PAS.1 PAS.2 PAS.NONCDS` @p  r`  % A  p `p (  @==XGē)/COMPTYPES 92833-16083,REV.5000,881021 881021.1640 /P1K/CMP/MNU.PAS=COMPTYPES ` UU w .DCO.DLD.DST .LPXR CNVT_SUB_OR_NUM_EQUIV_TYPES IS_STRING PAS.1 PAS.2 PAS.ENTRY2 PAS.EXIT2 PAS.NONCDS PAS.RECVALPARMUOOAp ((A A((AA($(#"(%p`( P(0([A P(7([ @AA I(X mmO==A(X(QJ (X(Wp(A P(b( PLjA(i(  @A{A( (A (p`pmU(::e##A   `ƈp(`pA `Ā :  @ҕU??XM+ē)+CONVERT_SUBRANGE92833-16083,REV.5000,881021 881021.1640/P1K/CMP/MNU.PAS?,"CONVERT_SUBRANGE**.DLD.DST.ENTR .LBPR .LPXPAS.1 PAS.2 PAS.NONCDS*..^A@!A&P*A( (!@A(@AA!x. " i#A!(  * @+>I??X|-ē)5CST_EXPR_FEATURE92833-16083,REV.5000,881021 881021.1640/P1K/CMP/MNU.PAS?[CST_EXPR_FEATURE;; .DLD.DST.ENTR .LPX .LPXR FEATURE_LEVEL PAS.1 PAS.2 PAS.BITMASK1PAS.NONCDS;00A & ,H+H@ ( (@A&P,(*0 ((  AAA( Y ,! @v==X+ē),ENUM_TYPE 92833-16083,REV.5000,881021 881021.1640 /P1K/CMP/MNU.PAS=ENUM_TYPE 00.DLD.DST.ENTR .LPXR CONVERT_SUBRANGEPAS.1 PAS.2 PAS.NONCDS0""vA%!(#P)p" s` 3tAAA`*p(   ) @Q>>X:ē).EQUIV_TYPES 92833-16083,REV.5000,881021 881021.1640 /P1K/CMP/MNU.PAS>A)EQUIV_TYPES ++I.DCO.DLD.DST.ENTR PAS.1 PAS.2 PAS.NONCDSTEXTFILE+99> Ap"% (( A# A(( %A#((A%(#(p"9 s0 `") ,* AA''AA%(A#`9p"( 9 @==X[ē)3EXPORT_CHECK92833-16083,REV.5000,881021 881021.1640/P1K/CMP/MNU.PAS=WkEXPORT_CHECK22 $.DLD.DST.ENTR .LBPR .LPXR PAS.1 PAS.2 PAS.NEW2S PAS.NONCDS2HH`P((]`P( P( P( (]AA`b`P(T ~suAA^dAdxf`f@vAAgdAxxfgAJfAvxf^AAfbz0Abzxf A@++THpifO0iOfAb|xfJAf(]+ ]k !!lAAjjA`(^!'R@@s??X6uē)4FEATURE_LEVEL 92833-16083,REV.5000,881021 881021.1640 /P1K/CMP/MNU.PAS?~FFEATURE_LEVEL ;;.ENTR COMPILER_LEVELPAS.1 PAS.2 PAS.NONCDSPAS.WRITESTRING SHOULD_WARN WRITELINE ;ww>CC`[(CD(CA (CA`RLLM`DPr(Ps(#Pt(+(3"`ZNNM(:*`aOOM(:2`gPPM(::`jQAQMA`nQQMCw LCF @@$G++AEEpD( This feature is ANSI standard HP standard HP1000Unknown Pascal @ ;r @(#==X.ē))FULL_SIZE 92833-16083,REV.5000,881021 881021.1640 /P1K/CMP/MNU.PAS= FULL_SIZE **.DAD.DLD.DST.ENTR .LPXR PAS.1 PAS.2 PAS.NONCDS*%%LZA(h *@AA% A _! AAA(@Ԙ==X>ē)*GETBOUNDS 92833-16083,REV.5000,881021 881021.1640 /P1K/CMP/MNU.PAS=nGETBOUNDS CLLGM.DAD.DCO.DLD.DST .ENTR .LBPR .LPX .LPXR .MVWINT_CONST PAS.1 PAS.2 PAS.INLINEERROR PAS.NONCDSLnMMA A A A((AA P(8P(P(( A@h (AA ʂ@h A5(A P(AP(q((H(Q(QA @MPP(pAJ(X(a(a(pAJ(h(p(p(A  (z(  @AA A (h( A(  x xAA ) //AA A(   / ] @x==X$ē)*INT_CONST 92833-16083,REV.5000,881021 881021.1640 /P1K/CMP/MNU.PAS=INT_CONST %%_&.DLD.DST.ENTR .MVWPAS.1 PAS.2 PAS.NONCDS%E+`( h A(A }A  A`h!A (@(G{;;XFo'ē)+INT_TYPE92833-16083,REV.5000,881021 881021.1640/P1K/CMP/MNU.PAS; DINT_TYPE  //.DCO.DLD.DST.ENTR CONVERT_SUBRANGEPAS.1 PAS.2 PAS.NONCDS/''A"(( ((p' s` /^ AAA`&p( & @T==X&ē).IS_SIGNED 92833-16083,REV.5000,881021 881021.1640 /P1K/CMP/MNU.PAS=IS_SIGNED ((f.DLD.DST.ENTR GETBOUNDS PAS.1 PAS.2 PAS.NONCDS( A!p  r `  T AAA`%p ( % @~d;;X0a?ē)1NEWLABEL92833-16083,REV.5000,881021 881021.1640/P1K/CMP/MNU.PAS; .0NEWLABEL ++bv.DIV.ENTR ERROR PAS.1 PAS.2 PAS.NONCDSPAS.SINGLEMOD +ssh--`@BpC6(+`@Bp`@>(+`BpC`B ;pB`Bp`(%"7`>XTē)'SHOULD_WARN 92833-16083,REV.5000,881021 881021.1640 /P1K/CMP/MNU.PAS>2@SHOULD_WARN NN .DIN.DLD.DST .ENTR ENDOFLINE NEWPAGE PAS.1 PAS.2 PAS.NONCDS PAS.WRITEDOUBLE PAS.WRITESTRING SOURCE_LINE N~~3\<<`r[(p>(<) (AJ+`b(1` -Q Qp?` NS0? Np `u(##% *`A-F 1`HGGF3-) J)`bp>~ s<`>@ AA @`Rp>( *** Warning:  Q @xl;;XCW1ē)-TEXTFILE92833-16083,REV.5000,881021 881021.1640/P1K/CMP/MNU.PAS; ATEXTFILE  **.DCO.DLD.DST.ENTR .LPXR PAS.1 PAS.2 PAS.NONCDS*22N.A A(()P0( (+@J((((p2 s` { AAA`/p(  / @==Xē)'WRITELINE 92833-16083,REV.5000,881021 881021.1640 /P1K/CMP/MNU.PAS=VWRITELINE ##SgNEWPAGE PAS.1 PAS.2 PAS.NONCDSPAS.WRITELINE #%%J``p`A@(%  8( @p33XtĎ )/CFLDR 92833-16061 REV.5000 841008 /P1K/CMP/ALB.MAC3icJFOLD1 )FOLD2 0.DLD.DST.ENTR .MVW2@  m"@@[FA%`$p"h&`h'`h(p?%HA`(m)B()H`#p"hH`hIp?(]h`ImJIJP(a(V`kub>>pppp`jp(Xpll`?P(z]`?({hl`Ampxp>hA`@h`>P(٨ PP~~d@@`xhP xhHxHD``!(((hHh(x` p@ 8(h~4RCCxHX(x 8 8` hHh@xD8D8ADAhHhӨ(#p&p' 8'8&(`'#>>BpepfP (J`eP(C@gpe f(-`f@epe(^AHH (iPi(U`e@pe(J1(^p(^8e(UH`eeaBBH (xH` @hHd h d Ad (hj A(`C(`(`@(@hxh >>((@h(@!(H(   D(`p `hj(hxވHa(( (hިJAA,#`phhh`h`j8(`hA`@ph`P(A??`(=`J`hDhD`IP(2`BpC`hQhD`j h8C(*`P(h(h`h`@ph(`P[=hxxh KDE bbJJ--` phh@pppp p!Jpw@xh``jhwXp ڈpH H h(]bWx@@~HH `xH Hx0hH H X((h `@`(`"`"p` FF @ @((hh h 000hHظX`"F## 5!   @H (#@Hgj33XNoĎ )1CNVRT 92833-16061 REV.5000 841008 /P1K/CMP/ALB.MAC3 Ϡ[CNVRT !!'.DIV.DLD.DST.MPY.MVWCONST NEXTC !~~DD  0+-.LEle((p=h(*hp=x>`=@P(4p=`h>(+@|(;@{>px(rh X(m`~ICC@h @xp8(f`zhy h 8  @!(aH(]`pph`x ?Hx(C`@8?`P?@{(R2Pd} N azJJh(85 @@ @@p`6p   pQQ@((((AAA`(x(`pppp??`0pph`ph`xp`h pU` h  @HU  xUP(@(`h  (( x@ppUpXHxh !BB(*xV(%`U@6 WW VHXVhVX xWHxV(pU@pXHx`pVpW@ pY(J8VHXPHXSpZ8WWAU50ZV8Y(A0W;;`p `ppppppppppp p p `爈p (s8 @ (P(P(P(P(P(P(P((@8 (8 (8 8 h  H Z>>Hhx (s8 ?(s`@p` P(r(` P(`p (sP(P(@pP (@P (r(8 8 (rP (r(h DhH $DEE(((؈((((p[`h(?`0``@Q(D`0AB(DQ(P B(D@(x(>>(`P(?h(!? Hx `0(h 8H H(B`h(P6 ֈ 0 ( A`䀈pppp!(  (`P(T@@S(B`Pn(X(B`P (e`(B`(B`Pm(i(BPl(i(Bp(LV@@@33X Ď )4TWOTO 92833-16061 REV.5000 841008 /P1K/CMP/ALB.MAC3 QTWOTO .ENTR I 0 p @0O33X|Ď )4DOVER 92833-16061 REV.5000 841008 /P1K/CMP/ALB.MAC3 ;DOVER .DLD.DSB.ENTR 6 AAA@/,@@X@ēNODE_TEMP_INDEX 92833-16095,REV.5010,881021 881021.1621 /P1K/CMP/TLM.PAS@ONODE_TEMP_INDEX mmc.DAD .DCO.DLD.DST .ENTR .LBPR .LPX .LPXR DEFLBL_ENTRYPAS.1 PAS.2 PAS.NONCDSPAS.WRITECHAR PAS.WRITEDOUBLE PAS.WRITEINTEGERPAS.WRITESTRING WRITELINE m3MM Ap= ((Ap AA P>((M AA ( (>A (+ P9(+(>  x  !A(J #x @%Ap(MLL`M( P(y(A  P=((  #(h  @ %A (((pqEHH'  ) p`(`km(A`.++*`*A`,*`A*pp`(`A@;(`p` @-p/9DDc (``P((`@:!?h  ((p(`(`p=D  66d##AA A ( +>>> Looking for temp @6iy9!"@@_` ~~$i ALLOCATE_STRING_(AAOC  APPEND_STRING 'pfASSCO es]BEGIN_EXPORT_RECo"Q3 BLISTCODE BOI QH?BOILABEL HQ^BOL ZZ BREAK_CHECK  O~~~  BREAK_OUT   BUMP_COUNTe CALLRUNTIME E^CHCKB TCHECK  CLEAN_PATH}CLOSE_IMPORT_FIL{0 CLOSE_SOURCEiYCMPLITS  [ CMP_ID2ID u CMP_LIT2IDCNVRT ZS O ~~~f CNVT_SUB_OR_NUM_8)COMPILER_LEVEL) COMPTYPES be4CONVERT_SUBRANGE XCREATE_INFO_FIEL,6CST_EXPR_FEATURE"8CURRENT_EMA_SPACCURSTR_TO_PATHeu DBEMITCHARgZS O ~~~.  DBEMITCHECK qh^ DBEMITLABEL 6 DBEMITNUM  DBEMITNUMCOMGiDBEMITSYMBOLICLA5DEBUG_CALL_MECH , DEFLBL_ENTRY{DEREFERENCEABLE  DISPLAY_ID_AND_FN ZS O ~~~y DISPLAY_MODULE_I[d DISPLAY_STRUCTURb DOVER ey DUP_EXT_ENT A| EMBSO EMBSS hQ2EMCLT MEMCSE L^EMCSS nf^EMDEC #UQ^EMDEF 't^ ~~~ EMDEO &5EMDI1 )*pEMDI2 *apEMDLT %EMIND ,EMITQEMITASC \Q^EMITCHAR EMITINTEGER -*EMITJSB /.^EMITLINENUMBER9Z^ ~~~#HEMIT_MODULE_RECOw$93EMIT_SYMBOLS_FOR)hi^js[EMLAB 2tEMLBF 4KEMLBO 5w6EMLLT 7L6EMLTD :V^jEMMBT >p^ER9J\ ~((~~> EMMVW ?{p^EMNAM AXEMNEW CLQ^EMNUM GaEMOPC IEMOPL N{QEMOPR K8EMPFN PN6HEMPRL TEMREG UHEMRUN W-EMSKE YVQJ\ ~~~A EMSKL ^QEMSKO [$EMSTR _~EMSYL ar6H(EMSYP d END_EXPORT_RECORmd^ENLAB #)ENTERID X ENUM_TYPE $5)EOI gz  EQUIV_TYPES &EVAD2 `J\ ~~~ٜ EVAD2IND2 ~REVAD_APPROPRIATEEVAD_STRING_EXPR=]EVAD_STRING_PARMPEVAL_STRING_ELEM0pfEXENT EXID EXPORT_CHAR kWQ^ EXPORT_CHECK( EXPORT_ID q@~~~hQ EXPORT_INTEGERu$ EXPORT_ROOM s^9FEATURE_LEVEL + FILE_SEARCHING^ FILE_TO_FILE_NAMgFIND_SYMB_FILEYUFOLD1 NFOLD2 N FREE_STRING 6h FULL_SIZE -q GETBOUNDS /?~~~b GET_STRING4\HAS_FILE_POINTERU}HEAP_2_ROUTINEA IMPORT_CHECK INCLUDE_STACK nINITIALIZE_STRIN7 INIT_SOURCE j{INSERT_EXT_ENTFvINSYMBOL=? INT_CONST 3JNDS /?}~~~ INT_TYPE5 )IN_EMAs IN_EXT_LIST D'IS_CHAR 7) IS_SIGNED 6ks IS_STRING IS_STRING_EXPRES4MAKE_PACI1MAKE_SETLn MAKE_STRING P MAKE_TEXT R9MAP_REGULAR_SEGS~~~b NEWLABEL88NEXTCHVNODE_TEMP_INDEX fk  NUMDIGITS :_ NUM_ELEMENTSXs OFFSET_TREE M OPEN_ERROR_FILE R OPEN_IMPORT_FILEu OPEN_SOURCE h)ORDER <NjOUTID mPAC s~~~  PAC_LITERAL `!POP_SDsPOSITION_IMPORT_y$PREPARE_PARMS ^p^j4fPREP_VARIABLE ^jPUSH_SD pxREAD_IMPORT_FILEw REAL_TYPE ># RELEASE_NODEK RESET_LABELS&fs~~~Z REVERSE_EXPORT_LREVERSE_ID_LIST "SAMURAI_ERROR 2SEARCHID2SET_IDENT_DEFAUL?uSET_TYPE_INFO Dw SHOULD_WARN H SOURCE_LINE l[SPj6 SPLIT_STRING_OR_ !4=J&fs~~~ SRCHS  STRID WSTRING_ADDRESSX4STRING_ELEMENT_4STRING_INDEX_CHE1STRING_INSERT -xSTRING_LENGTH_CHiSTRING_LITERAL_L++STRING_OR_PAC_NOD!4&fs~~~V  STRING_VALUE8}`SYMB_INFO_WORDzTEXTFILEJcTWOTO e UNQUAL_TO_RECORDUPDATE_FILE_LIST;8?VALIDATE_STRING "p VAR_TO_ADDR  VERIFY_STRING_EXb4]&fs~~~-iVERIFY_STRING_VAo4 WRITELINE LLTEXTFILEJcTWOTO e UNQUAL_TO_RECORDUPDATE_FILE_LIST;8eVALIDATE_STRING " 35_ VAR_TO_ADDR VERIFY_STRING_EXb&fs~h6`6A(ƈ((pӀ(p(HhN`ӀuBBA`EpӁ(_(`Lp)0i`PC( PD( PI( ((`@ !("@(#(#(&/PASCAL/CMP/STD/NOTEL.REL:::5:1:58 644 0 0 400 5300501520 34423 /PASCAL/CMP/STD/NOTEL.REL:::5:1:58 ""$ *d:NOTEL REL +O+P+P^FST ::XB>1SAM.NOTELLUSER92833-16135 REV.5000 841008 /P1K/CMP/STD/NOTEL.MAC: -SAM.TELLUSER  @s/PASCAL/CMP/STD/NUM.REL:::5:4:84 644 0 0 2000 5300501521 34243 /PASCAL/CMP/STD/NUM.REL:::5:4:84 $ *hTNUM REL +Q+Q+Q FST <<XV%NUM 92833-16136,REV.5000,870621 870622.0206 /P1K/CMP/STD/NUM.PAS<@+33XNV; CONVR 92833-16061 REV.5000 841008 /P1K/CMP/ALB.MAC3lCONST zGET_CONSTANT-NEXTC -- 6f .CFER .DLD.ENTR .ITBL .LBPR .LBT.LPXR .MVWCNVRT -TT(D))`^@`(( p)p*(&v6@`HHp,p+`+@(`+@(p*(!p*`+p)``Ap`)-TTTg.//(p`p]`_(;Ax`(?xAgAxxkA kgA`h`a(ZAx`p]`]zvT''{Avwp^yp_`p](/lab'@z<  BEGIN {setup}  type_form := none_form;  elt_type := nil;  string_info := nil;  words_entered := 0;  /PASCAL/CMP/STD/FCB.REL:::5:3:107 644 0 0 1400 5300501523 34111 /PASCAL/CMP/STD/FCB.REL:::5:3:107 !!$ *lkFCB REL +R+S+St FST <<XV6FCB 92833-16137,REV.5000,870621 870622.0206 /P1K/CMP/STD/FCB.PAS<@??XyDV&FLUSH_CODE_BUFFE92833-16083,REV.5000,870621 870622.0118/P1K/CMP/MNU.PAS?H<FLUSH_CODE_BUFFE== .DAD.DST.LBPR .LPXR .MPYPAS.1 PAS.2 PAS.NONCDS PAS.WRITELINE PAS.WRITESTRING =kk55`/(%p9p6A@6B@077x:7?x; R;A:@J R8689(`/@C(3 0RA@J R(3p/k 45< Β=8<(P B) @8/PASCAL/CMP/STD/PASS.LIB:::5:47:127 644 0 0 27400 5300501524 35126 /PASCAL/CMP/STD/PASS.LIB:::5:47:127 ##$/ *p/PASS LIB +T+T+T/FST +>>XV PASSR 92833-16138,REV.5000,870621 870621.2259 /P1K/CMP/STD/PASS.PAS >@??X V .DUP_ID 92833-16138,REV.5000,870621 870621.2259 /P1K/CMP/STD/PASS.PAS ? .DUP_ID DUP_IDPAS.1 PAS.2 PAS.NONCDS4E` @ p  % 8( @w7==X{ V .ERROR92833-16138,REV.5000,870621 870621.2259/P1K/CMP/STD/PASS.PAS = n.ERROR OERROR PAS.1 PAS.2 PAS.NONCDS4E` @ p  % 8( @;CCX+8 V .TRANSFORM_TREE 92833-16138,REV.5000,870621 870621.2259 /P1K/CMP/STD/PASS.PAS C@.TRANSFORM_TREE .PAS.1 PAS.2 PAS.NONCDSTRANSFORM_TREE4E` @ p  % 8( @:>>X V .FOLD 92833-16138,REV.5000,870621 870621.2259 /P1K/CMP/STD/PASS.PAS > 7.FOLD  FOLDPAS.1 PAS.2 PAS.NONCDS4E` @ p  % 8( @z:??XG V.EVAL_READ92833-16138,REV.5000,870621 870621.2259/P1K/CMP/STD/PASS.PAS ?F.EVAL_READ~EVAL_READ PAS.1 PAS.2 PAS.NONCDS4E` @ p  % 8( @˜\AAX V.EVAL_WRITE 92833-16138,REV.5000,870621 870621.2259 /P1K/CMP/STD/PASS.PAS A3.EVAL_WRITE EVAL_WRITEPAS.1 PAS.2 PAS.NONCDS4E((` @ p  % 8( @j*AAXmV.WALK_FILES 92833-16138,REV.5000,870621 870621.2259 /P1K/CMP/STD/PASS.PAS A8.WALK_FILES PAS.1 PAS.2 PAS.NONCDSWALK_FILES `@ p ` @p     18( @38Q@@XZ!V.TOUCH_FILES92833-16138,REV.5000,870621 870621.2259/P1K/CMP/STD/PASS.PAS @^.TOUCH_FILES0PAS.1 PAS.2 PAS.NONCDSTOUCH_FILES 55|`@ p` ӈ@@p` ӈ@@p` ӈ@ @p5  X8( @2>>X=5V.NEWTEMP92833-16138,REV.5000,870621 870621.2259/P1K/CMP/STD/PASS.PAS > +.NEWTEMP ((2n.DSTNEWTEMP PAS.1 PAS.2 PAS.NONCDSSAM.SAVEAREAOVFL(WW>%%` p ` @1p ` @3A( (  `.@ p&` Ԉ@/@.@`2A'` @0@.@`2)"&')` @4p W %+ \P, 8+( @qBBX:V.NEW_CST_NODE 92833-16138,REV.5000,870621 870621.2259 /P1K/CMP/STD/PASS.PAS Bw1.NEW_CST_NODE ..A.DLD.DSTNEW_CST_NODEPAS.1 PAS.2 PAS.NONCDSSAM.SAVEAREAOVFL.cc*X**` p ` @7p ` @8A( (  ` @5@4p-` @6@4p.A-.AA//A+` @9p `4@ h+` @4h,c *1 z281( 5@?BBXo3V.INTEGER_CONSTAN92833-16138,REV.5000,870621 870621.2259/P1K/CMP/STD/PASS.PAS B,+.INTEGER_CONSTAN00l.DLD.DSTINTEGER_CONSTANTPAS.1 PAS.2 PAS.NONCDSSAM.SAVEAREAOVFL0XX=%%` p ` @0p ` @1A( (  ` @/@.p(A())&` @2p ӊ`.@ h&` @.h'X %+ n,8+(  / @E==X3V.NWTPN92833-16138,REV.5000,870621 870621.2259/P1K/CMP/STD/PASS.PAS = u+.NWTPN ++b.DLD.DSTNWTPN PAS.1 PAS.2 PAS.NONCDSSAM.SAVEAREAOVFL+XX=%%` p ` @0p ` @1A( (  ` @/@.p(A())&` @2p ӊ`.@ h&` @.h'X %+ n,8+(  / @^BBXK V.NODE_TEMP_INDEX92833-16138,REV.5000,870621 870621.2259/P1K/CMP/STD/PASS.PAS B9.NODE_TEMP_INDEX|NODE_TEMP_INDEX PAS.1 PAS.2 PAS.NONCDS4E` @ p  % 8( @UAAX8;V.ENTER_LITERAL92833-16138,REV.5000,870621 870621.2259/P1K/CMP/STD/PASS.PAS AӲ1.ENTER_LITERAL++"L.DSTENTER_LITERAL PAS.1 PAS.2 PAS.NONCDSSAM.SAVEAREAOVFL+aaW**` p ` @7p ` @9A( (  `4@ Ԃ@`8A+` @4@`8-` @5@4p/` @6@4p0'+-/0` ӊ@:p a *1 \_2 81( @2QBBXPV.ENTER_DEFLBL 92833-16138,REV.5000,870621 870621.2259 /P1K/CMP/STD/PASS.PAS B`C.ENTER_DEFLBL **9.DSTENTER_DEFLBLPAS.1 PAS.2 PAS.NONCDSSAM.SAVEAREAOVFL*f88` p ` @Lp ` @NA( (  `F@ Ԃ@`MA:` @F@`M<` @G@Fp>` @H@Fp?` @I@Fp@` @J@FpA` @K@FpB6:<>?@AB` @O 8p ?9C _D 8C(  @JhBBX:V.NEW_INLINE_LIT_92833-16138,REV.5000,870621 870621.2259/P1K/CMP/STD/PASS.PAS B31.NEW_INLINE_LIT_00l.DLD.DSTNEW_INLINE_LIT_NPAS.1 PAS.2 PAS.NONCDSSAM.SAVEAREAOVFL0cc*X**` p ` @7p ` @8A( (  ` @5@4p-` @6@4p.A-.AA//A+` @9p `4@ h+` @4h,c *1 z281( 5@-#>>XB:V.INLINER92833-16138,REV.5000,870621 870621.2259/P1K/CMP/STD/PASS.PAS > 1.INLINER ,,.DLD.DSTINLINER PAS.1 PAS.2 PAS.NONCDSSAM.SAVEAREAOVFL,cc*X**` p ` @7p ` @8A( (  ` @5@4p-` @6@4p.A-.AA//A+` @9p `4@ h+` @4h,c *1 z281( 5@=BBXV.PROTECT_TEMP 92833-16138,REV.5000,870621 870621.2259 /P1K/CMP/STD/PASS.PAS B.PROTECT_TEMP nPAS.1 PAS.2 PAS.NONCDSPROTECT_TEMP `@ p ` ӈ@@p     48( @R1CCX(`V.UNPROTECT_TEMP 92833-16138,REV.5000,870621 870621.2259 /P1K/CMP/STD/PASS.PAS C=.UNPROTECT_TEMP ?PAS.1 PAS.2 PAS.NONCDSUNPROTECT_TEMP))`@ p` ӈ@@p` ӈ@@p)  D8( @m[BBX V.PRINT_TABLES 92833-16138,REV.5000,870621 870621.2259 /P1K/CMP/STD/PASS.PAS Bq.PRINT_TABLES pPAS.1 PAS.2 PAS.NONCDSPRINT_TABLES4E` @ p  % 8( @GAAX V.PRINT_TREE 92833-16138,REV.5000,870621 870621.2259 /P1K/CMP/STD/PASS.PAS A..PRINT_TREE &PAS.1 PAS.2 PAS.NONCDSPRINT_TREE4E` @ p  % 8( @x8BBX'AV.GET_CONSTANT 92833-16138,REV.5000,870621 870621.2259 /P1K/CMP/STD/PASS.PAS Bw6.GET_CONSTANT **E.DSTGET_CONSTANTPAS.1 PAS.2 PAS.NONCDSSAM.SAVEAREAOVFL*ppFW//` p ` @=p ` @?A( (  ` @9p1` @:@9p2` @;@9@`>3` Ԉ@<@9p5%1235p1`1p0` @@p `9@ h0p (/6 փ786( g: @BBX]V.PAS.READSEQUENT92833-16138,REV.5000,870621 870621.2259/P1K/CMP/STD/PASS.PAS B .PAS.READSEQUENT**.LBPPAS.1 PAS.2 PAS.NONCDSPAS.READSEQUENT SAM.LONGADDR* `@ p H x A    . 8 ( @>AAXV.PAS.WRITELINE92833-16138,REV.5000,870621 870621.2259/P1K/CMP/STD/PASS.PAS A .PAS.WRITELINE))X.LBPPAS.1 PAS.2 PAS.NONCDSPAS.WRITELINE SAM.LONGADDR) `@ p H x A    . 8 ( @P'>>X.V.PAS.PUT92833-16138,REV.5000,870621 870621.2259/P1K/CMP/STD/PASS.PAS >  .PAS.PUT &&.LBPPAS.1 PAS.2 PAS.NONCDSPAS.PUT SAM.LONGADDR& `@ p H x A    . 8 ( @`,,,~~@Z .DUP_ID N.ENTER_DEFLBL $.ENTER_LITERAL.ERRORq .EVAL_READ` .EVAL_WRITE .FOLD @.GET_CONSTANT #m.INLINER.INTEGER_CONSTANL.NEWTEMP 1.NEW_CST_NODE  .~~~< .NEW_INLINE_LIT_b.NODE_TEMP_INDEXe.NWTPN`.PAS.PUT).PAS.READSEQUENT&.PAS.WRITELINE'W.PRINT_TABLES ! .PRINT_TREE "D.PROTECT_TEMP  .TOUCH_FILES b.TRANSFORM_TREE ~~~.UNPROTECT_TEMP P .WALK_FILES /e.NWTPN`.PAS.PUT).PAS.READSEQUENT&.PAS.WRITELINE'W.PRINT_TABLES ! .PRINT_TREE "D.PROTECT_TEMP  .TOUCH_FILES b.TRANSFORM_TREE ~NT;   BEGIN {dump_first_word}  flags := 64 { 2-word result }  + 32 * ord (signed) { signed or unsigned qty }  + el_bits; { move 16 bits + extras. }   deposit2 (f((/PASCAL/CMP/STD/PCIOR.REL:::5:16:128 644 0 0 10000 5300501526 35317 /PASCAL/CMP/STD/PCIOR.REL:::5:16:128 $$$ *PCIOR REL +V+V+VFST >>XnVPCIOR 92833-16139,REV.5000,870621 870622.0205 /P1K/CMP/STD/PCIOR.PAS>@cn??X \I:$PAS.WRITELINE 92833-16114,REV.5000,870526 870526.1957 /P1K/LIB/NFS.PAS? YLPAS.WRITELINE //N.SBTFMPWRITEPAS.DCBADDRESS1 PAS.FILEERROR PAS.IOERROR PAS.NONCDS/2-@@`KpG`G@VpHH*U(@H[H`G@XU(`G@Y@6`G@X`ZA FK`G@YpI`GA@XpJ,FEIJ`E(33EK`G@Y@6`ZH`G@XhKHW(DI@ADTKL >XmPV PCIOF 92833-16140,REV.5000,870621 870622.0205 /P1K/CMP/STD/PCIOF.PAS>@NmPBBX!V;*PAS.WRITELINE 92833-16141,REV.5000,870621 870621.2257 /P1K/CMP/STD/PICK.PAS B YPAS.WRITELINE 00RPAS.1 PAS.2 PAS.NONCDSSAM.OFFPATHERRORSAM.SEGMENTER SAM.SHORTADDR 0''WAhH A@ A('  ߃ `(p8(O   $ @}=CCXu!V;*PAS.READSEQUENT 92833-16141,REV.5000,870621 870621.2257 /P1K/CMP/STD/PICK.PAS CgPAS.READSEQUENT 00RPAS.1 PAS.2 PAS.NONCDSSAM.OFFPATHERRORSAM.SEGMENTER SAM.SHORTADDR 0''WAhH A@ A('  ߂ `(p8(N   $ @Ji??XG!V;+PAS.PUT 92833-16141,REV.5000,870621 870621.2257 /P1K/CMP/STD/PICK.PAS ? :kPAS.PUT  00RPAS.1 PAS.2 PAS.NONCDSSAM.OFFPATHERRORSAM.SEGMENTER SAM.SHORTADDR 0''WAhH A@ A('  ߄ `(p8(P   $ @c WHILE (pool_inx <= llimit) AND NOT lfound DO BEGIN  i := 1; j := pool_inx; lsame := true;  WHILE (i <= lsize) AND lsame DO BEGIN  IF vals [i] <> len1 [j] T/PASCAL/CMP/STD/PICK.LIB:::5:131:128 644 0 0 101400 5300501531 35644 /PASCAL/CMP/STD/PICK.LIB:::5:131:128 $$$ *PICK LIB +Y+Y+YAOFST {>>XV;PICKR 92833-16141,REV.5000,870621 870621.2257 /P1K/CMP/STD/PICK.PAS >@>>XV;START 92833-16141,REV.5000,870621 870621.2257 /P1K/CMP/STD/PICK.PAS > KSTART 6FPAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER  <A  8( @??Xa'V;INITIALIZE92833-16141,REV.5000,870621 870621.2257/P1K/CMP/STD/PICK.PAS ?dINITIALIZE6FPAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER  <A  8( @ ==XV;DUP_ID92833-16141,REV.5000,870621 870621.2257/P1K/CMP/STD/PICK.PAS = ~DUP_ID **;.DLD.DST.ENTR PAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER *  `@ h ` @h     AAA ( @<9Z==XV;UND_ID92833-16141,REV.5000,870621 870621.2257/P1K/CMP/STD/PICK.PAS = vUND_ID 6FPAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER  <A  8( @>>XV;ERROR 92833-16141,REV.5000,870621 870621.2257 /P1K/CMP/STD/PICK.PAS > G ERROR  "".ENTR PAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER "k`@ hA  C A  p( @???X+V;NEWPAGE 92833-16141,REV.5000,870621 870621.2257 /P1K/CMP/STD/PICK.PAS ? NEWPAGE 6FPAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER  <A  8( @dZ??X:V;SUMMARY 92833-16141,REV.5000,870621 870621.2257 /P1K/CMP/STD/PICK.PAS ? SUMMARY 6FPAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER  <A  8( @L@@XV;DECLARATIONS92833-16141,REV.5000,870621 (( 870621.2257/P1K/CMP/STD/PICK.PAS @aDECLARATIONS6FPAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER  <A  8( @.MCCX^!V;COMPILE_PROGRAM 92833-16141,REV.5000,870621 870621.2257 /P1K/CMP/STD/PICK.PAS C@COMPILE_PROGRAM 6FPAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER  <A  8( @??Xd;V;INIT_MACRO92833-16141,REV.5000,870621 870621.2257/P1K/CMP/STD/PICK.PAS ?hINIT_MACRO6FPAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER  <A  8( @L AAXV;PROG_PROLOG 92833-16141,REV.5000,870621 870621.2257 /P1K/CMP/STD/PICK.PAS A/PROG_PROLOG 6FPAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER  <A  8( @ռ|@@XV;PROG_BODY 92833-16141,REV.5000,870621 870621.2257 /P1K/CMP/STD/PICK.PAS @PROG_BODY 6FPAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER  <A  8( @ZyAAXrV;PROG_EPILOG 92833-16141,REV.5000,870621 870621.2257 /P1K/CMP/STD/PICK.PAS APROG_EPILOG 6FPAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER  <A  8( @ќ\AAXV;PROG_INTERFACE92833-16141,REV.5000,870621 870621.2257/P1K/CMP/STD/PICK.PAS APROG_INTERFACE6FPAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER  <A  8( @#pB0AAXV;PROC_PROLOG 92833-16141,REV.5000,870621 870621.2257 /P1K/CMP/STD/PICK.PAS A+PROC_PROLOG 6FPAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER  <A  8( @չy@@XV;PROC_BODY 92833-16141,REV.5000,870621 870621.2257 /P1K/CMP/STD/PICK.PAS @PROC_BODY 6FPAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER  <A  8( @ZyAAXpV;PROC_EPILOG 92833-16141,REV.5000,870621 870621.2257 /P1K/CMP/STD/PICK.PAS APROC_EPILOG 6FPAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER  <A  8( @њZAAXV; PROC_INTERFACE92833-16141,REV.5000,870621 870621.2257/P1K/CMP/STD/PICK.PAS APROC_INTERFACE6FPAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER  <A  8( @#nB.BBX"V; MODULE_PROLOG 92833-16141,REV.5000,870621 870621.2257 /P1K/CMP/STD/PICK.PAS BMODULE_PROLOG 6FPAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER  <A  8( @Riq)AAXoV; MODULE_BODY 92833-16141,REV.5000,870621 870621.2257 /P1K/CMP/STD/PICK.PAS AMODULE_BODY 6FPAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER  <A  8( @יYBBX V; MODULE_EPILOG 92833-16141,REV.5000,870621 870621.2257 /P1K/CMP/STD/PICK.PAS BoMODULE_EPILOG 6FPAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER  <A  8( @NJm AAXV; END_GLOBALS 92833-16141,REV.5000,870621 870621.2257 /P1K/CMP/STD/PICK.PAS A/END_GLOBALS 6FPAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER  <A  8( @u̔<<XeeV; BODY92833-16141,REV.5000,870621 870621.2257/P1K/CMP/STD/PICK.PAS < i,BODY 6FPAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER  <A  8( @g??X\kV; PARSE_EXPR92833-16141,REV.5000,870621 870621.2257/P1K/CMP/STD/PICK.PAS ?`$ PARSE_EXPR++0PAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDSSAM.SEGMENTER + <A ( lT A (A  @$AAX͊V; PARSE_RANGE 92833-16141,REV.5000,870621 870621.2257 /P1K/CMP/STD/PICK.PAS A# PARSE_RANGE ++0PAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDSSAM.SEGMENTER + <A ( lU A (A  @ CCXt)V; PARSE_PROC_CALL 92833-16141,REV.5000,870621 870621.2257 /P1K/CMP/STD/PICK.PAS CV PARSE_PROC_CALL ++0PAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDSSAM.SEGMENTER + <A ( lV A (A  @G3CCXg+V; PARSE_ASSIGN_ID 92833-16141,REV.5000,870621 870621.2257 /P1K/CMP/STD/PICK.PAS CIPARSE_ASSIGN_ID 6FPAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER  <A  8( @AAXʉV;PARSE_IDENT 92833-16141,REV.5000,870621 870621.2257 /P1K/CMP/STD/PICK.PAS A-PARSE_IDENT 6FPAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER  <A  8( @BBXV;PARSE_REPLACE 92833-16141,REV.5000,870621 870621.2257 /P1K/CMP/STD/PICK.PAS BpPARSE_REPLACE 6FPAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER  <A  8( @.XMBBXV;STANDARD_PROC 92833-16141,REV.5000,870621 870621.2257 /P1K/CMP/STD/PICK.PAS Bo STANDARD_PROC ++0PAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDSSAM.SEGMENTER + <A ( lZ A (A  @khBBX"V;STANDARD_FUNC 92833-16141,REV.5000,870621 870621.2257 /P1K/CMP/STD/PICK.PAS Bd STANDARD_FUNC ++0PAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDSSAM.SEGMENTER + <A ( l[ A (A  @qTAAXV;TRANSFORM_TREE92833-16141,REV.5000,870621 870621.2257/P1K/CMP/STD/PICK.PAS ATRANSFORM_TREE**;.DLD.DST.ENTR PAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER *  `@ h ` @h     AAA (  @ݘBBX/V;GENERATE_CODE 92833-16141,REV.5000,870621 870621.2257 /P1K/CMP/STD/PICK.PAS B@GENERATE_CODE 6FPAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER  <A  8(! @k<<Xqv(V;FOLD92833-16141,REV.5000,870621 870621.2257/P1K/CMP/STD/PICK.PAS < uFOLD << J.DLD.DSTPAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDS PAS.RECVALPARMSAM.SEGMENTER < U `'@ h` @'h & 3 ("HA  A(  " @@@Xo[(V;EVAL_READ 92833-16141,REV.5000,870621 870621.2257 /P1K/CMP/STD/PICK.PAS @QEVAL_READ << J.DLD.DSTPAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDS PAS.RECVALPARMSAM.SEGMENTER < U `'@ h` @'h & 3 ("HA  A(  # @Ȯ??Xkn(V;EVAL_WRITE92833-16141,REV.5000,870621 870621.2257/P1K/CMP/STD/PICK.PAS ?oEVAL_WRITE<< J.DLD.DSTPAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDS PAS.RECVALPARMSAM.SEGMENTER < U `'@ h` @'h & 3 ("HA  A(  $ @>>XV;EVAL1 92833-16141,REV.5000,870621 870621.2257 /P1K/CMP/STD/PICK.PAS > G EVAL1 ++0PAS.1 PAS.2 PAS.ENTRY2((PAS.EXIT2 PAS.NONCDSSAM.SEGMENTER + <A ( la A (A  %@c#>>XV;EVAL2 92833-16141,REV.5000,870621 870621.2257 /P1K/CMP/STD/PICK.PAS > G EVAL2 ++0PAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDSSAM.SEGMENTER + <A ( lb A (A  &@e%??XpMV;WALK_FILES92833-16141,REV.5000,870621 870621.2257/P1K/CMP/STD/PICK.PAS ?sWALK_FILES"".ENTR PAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER "  `@ h` @h     >  App (' @ޕUAAXJV;TOUCH_FILES 92833-16141,REV.5000,870621 870621.2257 /P1K/CMP/STD/PICK.PAS A+1TOUCH_FILES **;.DLD.DST.ENTR PAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER *^^Y%%`D@ h+` @Dh,` @E@Dh)` @F@Dh*` ӈ@G@Dh'` @H@Dh(` @I@DAh&%C^ %1 $$%d2AA--AA+.AA)/A'0p&(( $E@Pfo&>>XV;EVAL3 92833-16141,REV.5000,870621 870621.2257 /P1K/CMP/STD/PICK.PAS > G EVAL3 ++0PAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDSSAM.SEGMENTER + <A ( le A (A  )@j*>>XV;EVAL4 92833-16141,REV.5000,870621 870621.2257 /P1K/CMP/STD/PICK.PAS > G EVAL4 ++0PAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDSSAM.SEGMENTER + <A ( lf A (A  *@k+>>XV;EVAL5 92833-16141,REV.5000,870621 870621.2257 /P1K/CMP/STD/PICK.PAS > G EVAL5 ++0PAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDSSAM.SEGMENTER + <A ( lg A (A  +@m->>X V;EXPORTER92833-16141,REV.5000,870621 870621.2257/P1K/CMP/STD/PICK.PAS > EXPORTER 6FPAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER  <A  8(, @Fd??X;'>V;NEWTEMP 92833-16141,REV.5000,870621 870621.2257 /P1K/CMP/STD/PICK.PAS ? 2NEWTEMP  //.DLD.DST.ENTR .LBPR PAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER /[[l=((`;@ h)` @;h*0` ӈ@<@;A1` @=@;A:0` @<@;1` ӈ@=@;[ (2 -3 AA//A)(-  < @^}D@@X6V;NEW_CST_NODE92833-16141,REV.5000,870621 870621.2257/P1K/CMP/STD/PICK.PAS @t%NEW_CST_NODE **;.DLD.DST.ENTR PAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER *EER` @3@0h` @4@0h ` @5@0h/`0@ ӈp!` @0p"E A!% 9& AA##A$p(.  3 @تBBXJb,V;INTEGER_CONSTANT92833-16141,REV.5000,870621 870621.2257/P1K/CMP/STD/PICK.PAS BmINTEGER_CONSTANT **;.DLD.DST.ENTR PAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER *99` @*@'h` @+@'Ah &`'@ p` @'p9 A  AAA(/  * @ >>X,V;NWTPN 92833-16141,REV.5000,870621 870621.2257 /P1K/CMP/STD/PICK.PAS > MNWTPN  **;.DLD.DST.ENTR PAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER *99` @*@'h` @+@'Ah &`'@ p` @'p9 A  AAA(0  * @6CCXmKV;NODE_TEMP_INDEX 92833-16141,REV.5000,870621 870621.2257 /P1K/CMP/STD/PICK.PAS CONODE_TEMP_INDEX **;.DLD.DST.ENTR PAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER *  `@ h ` @h     AAA (1 @|GBBXc?V;NEW_LITERAL_POOL92833-16141,REV.5000,870621 870621.2257/P1K/CMP/STD/PICK.PAS BfNEW_LITERAL_POOL6FPAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER  <A  8(2 @g'BBX+8mV;ENTER_LITERAL 92833-16141,REV.5000,870621 870621.2257 /P1K/CMP/STD/PICK.PAS B nTENTER_LITERAL 88 .DLD.DST.ENTR .LBPR .LPXR .MVWPAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER 888AP`e@ ӈAQ` @e Qa` @g@e` @h@ehG` @i@ehH` ӈ@j@ehI` @k@ehJ` @l@eAhK1cP`e@ $$8Q` @eA Qa` @g@e$ ]FT ##4FUAAPRAG`ShfA d(3 I#Ig@ϰ@@XV;ENTER_DEFLBL92833-16141,REV.5000,870621 870621.2257/P1K/CMP/STD/PICK.PAS @^cENTER_DEFLBL44 .DLD.DST.ENTR .LBPR .LPXR PAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER 4~~744A\`x@ ӈA]` @x ]u` @y@x` @z@xhS` @{@xhV` ӈ@|@xhW` @}@xhR` @~@xhT` @@xhU` ~>>4@@xhQA;w\`x@ ]` @xA ]u` ӈ@y@x> vPc ++dA\^pSAA_VA`pRaATbpQ(4 +ny @8WBBXpq6V;NEW_INLINE_LIT_N92833-16141,REV.5000,870621 870621.2257/P1K/CMP/STD/PICK.PAS B%NEW_INLINE_LIT_N **;.DLD.DST.ENTR PAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER *EER` @3@0h` @4@0h ` @5@0h/`0@ ӈp!` @0p"E A!% 9& AA##A$p(5  3 @=[??X66V;INLINER 92833-16141,REV.5000,870621 870621.2257 /P1K/CMP/STD/PICK.PAS ? 8%INLINER  **;.DLD.DST.ENTR PAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER *EER` @3@0h` @4@0h ` @5@0h/`0@ ӈp!` @0p"E A!% 9& AA##A$p(6  3 @7@@X4V;PROTECT_TEMP92833-16141,REV.5000,870621 870621.2257/P1K/CMP/STD/PICK.PAS @gPROTECT_TEMP<< J.DLD.DSTPAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDS PAS.RECVALPARMSAM.SEGMENTER <--`2@ h` @2h` @3@2Ah1-P(- &&9gA  Ap( 7 & 3 @%AAX9@V;UNPROTECT_TEMP92833-16141,REV.5000,870621 870621.2257/P1K/CMP/STD/PICK.PAS A%UNPROTECT_TEMP<< J.DLD.DSTPAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDS PAS.RECVALPARMSAM.SEGMENTER <99R`=@ h ` @=h!` @>@=h` @?@=h<9m(8 "--*&A% "  #p $Ap( %%8 - > @}@@XќV;STRING_FLUSH92833-16141,REV.5000,870621 870621.2257/P1K/CMP/STD/PICK.PAS @OSTRING_FLUSH6FPAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER  <A  8(9 @#@@XƶV; STRUCT_FLUSH92833-16141,REV.5000,870621 870621.2257/P1K/CMP/STD/PICK.PAS @hSTRUCT_FLUSH6FPAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER  <A  8(: @W??XxSV; ENUM_FLUSH92833-16141,REV.5000,870621 870621.2257/P1K/CMP/STD/PICK.PAS ?|ENUM_FLUSH((6FPAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER  <A  8(; @=R??XcpV;!FLUSH_LITS92833-16141,REV.5000,870621 870621.2257/P1K/CMP/STD/PICK.PAS ?g!FLUSH_LITS6FPAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER  <A  8(< @BBX`6V;!INTERNAL_IMPORTE92833-16141,REV.5000,870621 870621.2257/P1K/CMP/STD/PICK.PAS BcINTERNAL_IMPORTE6FPAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER  <A  8(= @Y BBX\AV;"EXTERNAL_IMPORTE92833-16141,REV.5000,870621 870621.2257/P1K/CMP/STD/PICK.PAS B_EXTERNAL_IMPORTE6FPAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER  <A  8(> @o/BBXo-V;"DB_STATEMENT_LIS92833-16141,REV.5000,870621 870621.2257/P1K/CMP/STD/PICK.PAS BrDB_STATEMENT_LIS6FPAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER  <A  8(? @ H+AAXV;"SYMREC_ROUT 92833-16141,REV.5000,870621 870621.2257 /P1K/CMP/STD/PICK.PAS A=SYMREC_ROUT 6FPAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER  <A  8(@ @)AAXܠV;#SYMREC_TREE 92833-16141,REV.5000,870621 870621.2257 /P1K/CMP/STD/PICK.PAS A/SYMREC_TREE 6FPAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER  <A  8(A @@@X¾V;#SYMREC_TYPES92833-16141,REV.5000,870621 870621.2257/P1K/CMP/STD/PICK.PAS @mSYMREC_TYPES6FPAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER  <A  8(B @l,@@XV;$SYMREC_COUNT92833-16141,REV.5000,870621 870621.2257/P1K/CMP/STD/PICK.PAS @bSYMREC_COUNT6FPAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER  <A  8(C @X@@XV;$PRINT_TABLES92833-16141,REV.5000,870621 870621.2257/P1K/CMP/STD/PICK.PAS @h PRINT_TABLES"".ENTR PAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER "k`@ hA  D A  p(D @^}BBXV;%PRINT_OFFSETS 92833-16141,REV.5000,870621 870621.2257 /P1K/CMP/STD/PICK.PAS BPRINT_OFFSETS 6FPAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER  <A  8(E @DcAAXۮV;%PRINT_TOKEN 92833-16141,REV.5000,870621 870621.2257 /P1K/CMP/STD/PICK.PAS A;PRINT_TOKEN 6FPAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER  <A  8(F @.??Xf(V;&PRINT_TREE92833-16141,REV.5000,870621 870621.2257/P1K/CMP/STD/PICK.PAS ?jPRINT_TREE<< J.DLD.DSTPAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDS PAS.RECVALPARMSAM.SEGMENTER < U `'@ h` @'h & 3 ("HA  A(  G @c#AAXֱV;&COM_OPTIONS 92833-16141,REV.5000,870621 870621.2257 /P1K/CMP/STD/PICK.PAS A=COM_OPTIONS 6FPAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER  <A  8(H @5>>X V;'READLINE92833-16141,REV.5000,870621 870621.2257/P1K/CMP/STD/PICK.PAS > READLINE 6FPAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER  <A  8(I @Gf@@X^SV;'ENDOFLINE 92833-16141,REV.5000,870621 870621.2257 /P1K/CMP/STD/PICK.PAS @@ENDOFLINE 6FPAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER  <A  8(J @z:>>X V;(NEXTLINE92833-16141,REV.5000,870621 870621.2257/P1K/CMP/STD/PICK.PAS > #NEXTLINE 6FPAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER  <A  8(K @m@@XXV;(GET_CONSTANT92833-16141,REV.5000,870621 870621.2257/P1K/CMP/STD/PICK.PAS @gGET_CONSTANT{ >> ).DLD.DST.ENTR .LBPR .LPXR PAS.1 PAS.2 PAS.NONCDSSAM.OFFPATHERRORSAM.SEGMENTER >;;` @h}` @@h~`}P((`~A@A(` @@Ah{ ` @@ ` @@ ` @@ ` @@=;;;A ` @@` @@hzM`@ ӈAp| ` @@ ` @@ ` @@ ` @@ ` @@ ;:v t>x`| ))?6AAA}p{pz(L )  $@VBBXE@V;)FLUSH_CODE_BUFFE92833-16141,REV.5000,870621 870621.2257/P1K/CMP/STD/PICK.PAS BHFLUSH_CODE_BUFFE6FPAS.1 PAS.2 PAS.NONCDSSAM.SEGMENTER  <A  8(M @u5CCXu!V;*PAS.READSEQUENT 92833-16141,REV.5000,870621 870621.2257 /P1K/CMP/STD/PICK.PAS CgPAS.READSEQUENT 00RPAS.1 PAS.2 PAS.NONCDSSAM.OFFPATHERRORSAM.SEGMENTER SAM.SHORTADDR 0''WAhH A@ A('  ߂ `(p8(N   $ @JiBBX!V;*PAS.WRITELINE 92833-16141,REV.5000,870621 870621.2257 /P1K/CMP/STD/PICK.PAS B YPAS.WRITELINE 00RPAS.1 PAS.2 PAS.NONCDSSAM.OFFPATHERRORSAM.SEGMENTER SAM.SHORTADDR 0''WAhH A@ A('  ߃ `(p8(O   $ @}=??XG!V;+PAS.PUT 92833-16141,REV.5000,870621 870621.2257 /P1K/CMP/STD/PICK.PAS ? :kPAS.PUT  00RPAS.1 PAS.2 PAS.NONCDSSAM.OFFPATHERRORSAM.SEGMENTER SAM.SHORTADDR 0''WAhH A@ A('  ߄ `(p8(P   $ @cjjj~~ BODYCCOMPILE_PROGRAM  r COM_OPTIONS j:DB_STATEMENT_LIS^0 DECLARATIONS RDUP_ID ENDOFLINE lw END_GLOBALS " ENTER_DEFLBLK ENTER_LITERAL H ENUM_FLUSHY,ERROR fEVAL1 1~~~ EVAL2 2QEVAL3 7tEVAL4 9*EVAL5 :` EVAL_READ -H EVAL_WRITE/2EXPORTER<EXTERNAL_IMPORTE] FLUSH_CODE_BUFFEs+ FLUSH_LITSZJFOLD+eGENERATE_CODE *B GET_CONSTANTo2EVAL1 1~~~ INITIALIZEi INIT_MACRO INLINER PBINTEGER_CONSTANTAIINTERNAL_IMPORTE[h MODULE_BODY ^MODULE_EPILOG MODULE_PROLOG ;NEWPAGE NEWTEMP =2 NEW_CST_NODE?FNEW_INLINE_LIT_NN;~~~H NEW_LITERAL_POOLF|NEXTLINEnNODE_TEMP_INDEX E,NWTPN C?PARSE_ASSIGN_ID " PARSE_EXPR[ PARSE_IDENT #5PARSE_PROC_CALL  P PARSE_RANGE PARSE_REPLACE $VPAS.PUT x'INLINE_LIT_NN;~~~' PAS.READSEQUENT tOPAS.WRITELINE v<PRINT_OFFSETS f PRINT_TABLESdV PRINT_TOKEN g0 PRINT_TREEhQ PROC_BODY Y PROC_EPILOG xPROC_INTERFACE PROC_PROLOG 8 PROG_BODY VLINE_LIT_NN;~~~_` PROG_EPILOG uPROG_INTERFACE PROG_PROLOG  5 PROTECT_TEMPRBREADLINEk[STANDARD_FUNC '7STANDARD_PROC %ySTART N STRING_FLUSHVl STRUCT_FLUSHX SUMMARY 5 SYMREC_COUNTc6_NN;~~~ SYMREC_ROUT _T SYMREC_TREE `u SYMREC_TYPESb TOUCH_FILES 5LTRANSFORM_TREE(uUND_IDLUNPROTECT_TEMPTL WALK_FILES4 STRING_FLUSHVl STRUCT_FLUSHX SUMMARY 5 SYMREC_COUNTc6_NN;~((al2: INTEGER); 4: (val4: LONGREAL);  END;  VAR  lfound: BOOLEAN;   lsize: 1..4; llit: CONVERTER;  i,  j: INT;  lsame: BOOLEAN;  llimit: -4..words_in_lite/PASCAL/CMP/STD/SAM6.REL:::5:14:128 644 0 0 7000 5300501533 34515 /PASCAL/CMP/STD/SAM6.REL:::5:14:128 ##$ +<SAM6 REL +[+[+[FST 66XV:6SAM.6 92833-16142 REV.5000 870609 /P1K/CMP/STD/SAM6.MAC 6uuϟBNGDB PAS.SEGMENTLOAD PAS.SEGMENTRTN<SAM.ALLOC 2SAM.DUMPSTACK SAM.DUMPSTACKFSAM.INITIALIZESAM.LONGADDRCSAM.OFFPATHERRORSAM.RAISEEXCEPSAM.REGSEGuFFɝHSAM.SAVEAREAOVFLSAM.SEGMENTER  SAM.SETEXCEPSAM.SHORTADDR dSAM.START SGIN2 UMAIN F{{$LIBR $LIBX .CYB.DIV.DLD.DST .ENTR .MPY.MVW.PMAP .XLA EXEC IDGET L$PTE LIMEM PAS.LOWATERMARK2PAS.SEGMENTERRORPAS.TOPOFSTACK2 PNAME SAM.FIRSTSAMSEG SAM.NUMSEGS {;;8SAM.PTNTABLEPTR SAM.SEGNAMEPTRSAM.SEGTABLEPTR SAM.TELLUSERSAM.TRACEBACK1SEGLD VMAST ;wwA::`pp툀`QDp *p`RDp p`̀PJ(HMpHO`H[HP0] )S`@ *h@pp`TD\@@Zpبw;;d<$$ :`؈:`;<@@D QRS|; dFF `a@( (p@x`pa@(Ȉab``` *@`Uhh^@``@\pD P(hԄ`LL##@(( `@p`pP_ 88(H`cd(ˆ`V`W`XL;;8p߈8@NpM_(```߈M```߈`M`@Nh XHx7<<p(((`pp爈p`P(B(7`p(T@(@`pp興8(-`ڈ *pPFF` ̀׈``(Hh``L@pkpl(tIΈ`@\ *hH *pAY(Hh *p`̀hƟ==`A(ppNpp뀈8爈`P((ph`8ۈ(8hX(hHZX(x`K(pL@ppp `@ڈp p@pp`A@p c  ==f8`(m ` `p`L@pgk=((* 0`Q@ Lp/S1(K2 2`Q@ LpAS2@&C  B`LA( H`M( gNS ##A2QRRRhHZ@@!8#"" p`pA҂N"P `ـ R `ߨ@kÊess IO call} BEGIN {no_io_proc_parms}  {Open, close, and append must have parameters.} check (NOT (lkey IN open_close_append), 127);/PASCAL/CMP/STD/SAMA.REL:::5:14:128 644 0 0 7000 5300501535 34710 /PASCAL/CMP/STD/SAMA.REL:::5:14:128 ##$ +LSAMA REL +\+]+]FST 66X5V:,SAM.A 92833-16143 REV.5000 870609 /P1K/CMP/STD/SAMA.MAC 6zzkPAS.SEGMENTLOAD PAS.SEGMENTRTNCSAM.ALLOC OSAM.DUMPSTACK 6SAM.DUMPSTACKFSAM.INITIALIZESAM.LONGADDR`SAM.OFFPATHERRORSAM.RAISEEXCEPSAM.REGSEGeSAM.SAVEAREAOVFLz::a SAM.SEGMENTER SAM.SETEXCEPSAM.SHORTADDR cSAM.START SGIN2 UMAIN :}} $CON$EMAS $HIBP $HIGH $LIBR $LIBX .DIV!.DLD.DST .ENTR .LPMR .MPY.MVW.PMAP .SPMR .SWMP .XLA EXEC IDGET LIMEM PAS.LOWATERMARK2PAS.SEGMENTERRORPAS.TOPOFSTACK2 }RR PNAME SAM.FIRSTSAMSEG SAM.NUMSEGS SAM.PTNTABLEPTR SAM.SEGNAMEPTRSAM.SEGTABLEPTR SAM.TELLUSERSAM.TRACEBACK1SEGLD VMAST RNAA`ppJ@p *pJ@[p p`PL(HOpHQ`HZHR0\ /S`@ *h@pp[@Yp//}wC A`A`BC QRS|/}}cAA _`@( (p@x`p`@(`a`_` *@`Thh]H`#bc(`U׈`V`W}1;;8p8@p^(```````#`@߈#hӀXӨ舀Hx5{<<#pֈ(H(`ꀈppp눈`P(ۀ(`舀p(-@(`興pp8興(` *p`3*EE `ֈ`(h@x @TЀHp`HYH`@ 8(GMN`N@pWpX(`K`@[ *hHx`ph`T@ to@@x`h]AXph8(m`THh]AX(hH *p`h`A(pppp쀈8興`P(([[S++ph`8(8ӈhX(hHYX(xӈ`M(pN@ppAp`@p[ p@pp`A@p c  HH%%8`(Y h@x @TЀHp`HYH`@ 8(H++b5`(#`#p4`N@p3gk+((+6 5!5M`l@ NpLnԂN6(LO O`l@ Np^nԨOU`  _`NA( e`O(n##Almmmh׈HY@@!8܀#"" p`pAP" `  `@x/PASCAL/CMP/STD/SEGTB.REL:::5:3:127 644 0 0 1400 5300501536 34636 /PASCAL/CMP/STD/SEGTB.REL:::5:3:127 ##$ +\SEGTB REL +^+^+^bFST ;;XwV8SAM.TABLES92833-16144 REV.5000 870621.2255 /P1K/CMP/STD/SEGTB.MAC;<<=>SAM.FIRSTSAMSEG SAM.NUMSEGS |SAM.PTNTABLEPTR SAM.SEGNAMEPTR?SAM.SEGTABLEPTR <Ԁ``SG00P SG01P SG02P SG03P SG04P SG05P SG06P SG07P SG08P SG09P SG10P SG11P SG12P SG13P SG14P SG15P SG16P SG17P SG18P SG19P @^^6`EE}^@ (((/PASCAL/CMP/STD/SG02P.REL:::5:3:128 644 0 0 1400 5300501540 34317 /PASCAL/CMP/STD/SG02P.REL:::5:3:128 ##$ +`SG02P REL +_+`+`FST 88X&VVSG02P 92833-16145 REV.5000 870621.2255/P1K/CMP/STD/SG02P.MAC8 dNQSG02 //.DUP_ID .ERRORINITIALIZENEWPAGE SGIN2 START UMAIN UND_ID/YVV AU(R@ʾ+Q END; IF checkb (lfile^.nodetype = idnode, 405)  THEN BEGIN lsymb := lfile^.symptr; lname := find_symb_file (ls/PASCAL/CMP/STD/SG03P.REL:::5:2:118 644 0 0 1000 5300501541 34645 /PASCAL/CMP/STD/SG03P.REL:::5:2:118 ##$ +dvSG03P REL +a+a+aFST 88X(VVSG03P 92833-16146 REV.5000 870621.2255/P1K/CMP/STD/SG03P.MAC8 dOQSG03 ϒSGIN2 SUMMARY UMAIN vvVV  AU(Rv@FQ/PASCAL/CMP/STD/SG04P.REL:::5:2:118 644 0 0 1000 5300501543 34672 /PASCAL/CMP/STD/SG04P.REL:::5:2:118 ##$ +hvSG04P REL +c+c+cFST 88X*VV SG04P 92833-16147 REV.5000 870621.2255/P1K/CMP/STD/SG04P.MAC8 dPQSG04 6YDECLARATIONSSGIN2 UMAIN vvCVV AU(Rv@ vQ/PASCAL/CMP/STD/SG05P.REL:::5:2:118 644 0 0 1000 5300501545 34716 /PASCAL/CMP/STD/SG05P.REL:::5:2:118 ##$ +lvSG05P REL +d+e+eFST 88X,%VVSG05P 92833-16148 REV.5000 870621.2255/P1K/CMP/STD/SG05P.MAC8 dQQSG05 COMPILE_PROGRAM SGIN2 UMAIN vvVV  AU(Rv@}0Q/PASCAL/CMP/STD/SG06P.REL:::5:3:128 644 0 0 1400 5300501546 34565 /PASCAL/CMP/STD/SG06P.REL:::5:3:128 ##$ +pSG06P REL +f+f+f_FST 88X.,VVSG06P 92833-16149 REV.5000 870621.2255/P1K/CMP/STD/SG06P.MAC8 dRQSG06 vv END_GLOBALS INIT_MACRO MODULE_BODY MODULE_EPILOG MODULE_PROLOG PROC_BODY PROC_EPILOG PROC_INTERFACEPROC_PROLOG PROG_BODY PROG_EPILOG PROG_INTERFACEPROG_PROLOG SGIN2 UMAIN vA!LL  DaL AU(R@r%Q/PASCAL/CMP/STD/SG07P.REL:::5:3:128 644 0 0 1400 5300501550 34506 /PASCAL/CMP/STD/SG07P.REL:::5:3:128 ##$ +tSG07P REL +g+h+h#FST 88X&3VVSG07P 92833-16150 REV.5000 870621.2255/P1K/CMP/STD/SG07P.MAC8 dSQSG07 EE BODYPARSE_ASSIGN_ID PARSE_EXPRPARSE_IDENT PARSE_PROC_CALL PARSE_RANGE PARSE_REPLACE SGIN2 UMAIN E UU   AU jU(R @FQ. Run sampleS.run sampleS * %GROUP::32000:5:493578-18010 2520 01 01 3 &SETUP::32000:3:693578-18011 2520 01 01 3 &CNTLR::32000:3:10 93578-18012 252/PASCAL/CMP/STD/SG08P.REL:::5:2:120 644 0 0 1000 5300501552 34776 /PASCAL/CMP/STD/SG08P.REL:::5:2:120 ##$ +xxSG08P REL +i+j+jFST 88X(:VV#SG08P 92833-16151 REV.5000 870621.2255/P1K/CMP/STD/SG08P.MAC8 dTQSG08 NSGIN2 STANDARD_FUNC STANDARD_PROC UMAIN xxQVV AU(Rx@-Q/PASCAL/CMP/STD/SG09P.REL:::5:2:122 644 0 0 1000 5300501553 35034 /PASCAL/CMP/STD/SG09P.REL:::5:2:122 ##$ +|zSG09P REL +k+k+kFST 88X*AVV)SG09P 92833-16152 REV.5000 870621.2255/P1K/CMP/STD/SG09P.MAC8 dUQSG09 %%=.FOLD .TRANSFORM_TREE GENERATE_CODE SGIN2 UMAIN %zzNAVV AU(Rz@Q/PASCAL/CMP/STD/SG10P.REL:::5:2:120 644 0 0 1000 5300501555 35002 /PASCAL/CMP/STD/SG10P.REL:::5:2:120 ##$ +xSG10P REL +l+m+mFST ((88X#>VV.SG10P 92833-16153 REV.5000 870621.2255/P1K/CMP/STD/SG10P.MAC8 eLQSG10 .EVAL_READ.EVAL_WRITE SGIN2 UMAIN xxCVV  AU(Rx@]m{Q/PASCAL/CMP/STD/SG11P.REL:::5:2:118 644 0 0 1000 5300501556 35022 /PASCAL/CMP/STD/SG11P.REL:::5:2:118 ##$ +vSG11P REL +n+n+nFST 88X%EVV4SG11P 92833-16154 REV.5000 870621.2255/P1K/CMP/STD/SG11P.MAC8 eMQSG11 L?EVAL1 SGIN2 UMAIN vvVV  AU(Rv@f yQ/PASCAL/CMP/STD/SG12P.REL:::5:2:122 644 0 0 1000 5300501560 35054 /PASCAL/CMP/STD/SG12P.REL:::5:2:122 ##$ +zSG12P REL +p+p+pFST 88X'KVV9SG12P 92833-16155 REV.5000 870621.2255/P1K/CMP/STD/SG12P.MAC8 eNQSG12 "".TOUCH_FILES.WALK_FILES EVAL2 SGIN2 UMAIN "zzDBVV  AU(Rz@OJmQ/PASCAL/CMP/STD/SG13P.REL:::5:2:118 644 0 0 1000 5300501562 35060 /PASCAL/CMP/STD/SG13P.REL:::5:2:118 ##$ +vSG13P REL +q+r+rFST 88X*VVSG13P 92833-16156 REV.5000 870621.2255/P1K/CMP/STD/SG13P.MAC8 eOQSG13 N?EVAL3 SGIN2 UMAIN vvVV AU(Rv@l݋JQ/PASCAL/CMP/STD/SG14P.REL:::5:2:118 644 0 0 1000 5300501563 35100 /PASCAL/CMP/STD/SG14P.REL:::5:2:118 ##$ +vSG14P REL +s+s+sFST 88X,VV SG14P 92833-16157 REV.5000 870621.2255/P1K/CMP/STD/SG14P.MAC8 ePQSG14 O?EVAL4 SGIN2 UMAIN vvEVV AU(Rv@fQ/PASCAL/CMP/STD/SG15P.REL:::5:2:118 644 0 0 1000 5300501565 35123 /PASCAL/CMP/STD/SG15P.REL:::5:2:118 ##$ +vSG15P REL +u+u+uFST 88X.#VVSG15P 92833-16158 REV.5000 870621.2255/P1K/CMP/STD/SG15P.MAC8 eQQSG15 P?EVAL5 SGIN2 UMAIN vvVV AU(Rv@haQ/PASCAL/CMP/STD/SG16P.REL:::5:4:128 644 0 0 2000 5300501567 35064 /PASCAL/CMP/STD/SG16P.REL:::5:4:128 ##$ +SG16P REL +v+w+wFST 88X0*VVSG16P 92833-16159 REV.5000 870621.2255/P1K/CMP/STD/SG16P.MAC8 eRQSG16 ~~ .ENTER_DEFLBL .ENTER_LITERAL .INLINER.INTEGER_CONSTAN.NEWTEMP.NEW_CST_NODE .NEW_INLINE_LIT_.NODE_TEMP_INDEX.NWTPN.PROTECT_TEMP .UNPROTECT_TEMP ENUM_FLUSHEXPORTERFLUSH_LITS NEW_LITERAL_POOL~oLSGIN2 STRING_FLUSHSTRUCT_FLUSHUMAIN &EE  EU(R@.LpQ18001 ,,, 92861-18151 ,,, 92861-18152 ,,, 92861-18153 ,,, 92861-18154 ,,, 92861-18227 ,,, 92861-18699 ,,, /PASCAL/CMP/STD/SG17P.REL:::5:2:120 644 0 0 1000 5300501570 35165 /PASCAL/CMP/STD/SG17P.REL:::5:2:120 ##$ +xSG17P REL +x+x+xFST 88X(1VVSG17P 92833-16160 REV.5000 870621.2255/P1K/CMP/STD/SG17P.MAC8 eSQSG17 !!SEXTERNAL_IMPORTEINTERNAL_IMPORTESGIN2 UMAIN !xx5VV  AU(Rx@ Q/PASCAL/CMP/STD/SG18P.REL:::5:3:128 644 0 0 1400 5300501572 34771 /PASCAL/CMP/STD/SG18P.REL:::5:3:128 ##$ +SG18P REL +y+z+z:FST 88X*8VVSG18P 92833-16161 REV.5000 870621.2255/P1K/CMP/STD/SG18P.MAC8 eTQSG18 YY }.PRINT_TABLES .PRINT_TREE DB_STATEMENT_LIS PRINT_OFFSETS PRINT_TOKEN SGIN2 SYMREC_COUNTSYMREC_ROUT SYMREC_TREE SYMREC_TYPESUMAIN YRR    fRAU(R @gQ0-13402 2341N C0122 DS/1000 FLEXIBLE DISC #2 01((91750-13403 2341U C0122 DS/1000 MINI F/PASCAL/CMP/STD/SSC.REL:::5:26:128 644 0 0 15000 5300501574 35301 /PASCAL/CMP/STD/SSC.REL:::5:26:128 ""$ +SSC REL +{+|+| :FST ((<<XV3SSC 92833-16163,REV.5000,870621 870622.0204 /P1K/CMP/STD/SSC.PAS<@3;;X V 3READLINE92833-16087,REV.5000,870621 870622.0008/P1K/CMP/SCN.PAS; READLINE }} .DIN.DLD.DST .LBT .SBTCHCKB PAS.1 PAS.2 PAS.BITMASK1PAS.ENDOFFILE PAS.NONCDSPAS.READBUFFERPAS.WRITECHAR PAS.WRITEDOUBLE PAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRING PUTLINE }/SOURCE_LINE WRITELINE a??ppJD    / JJ / # 1` ~ p(p ~` @(#(%` p` i(GA- `2 `A9 `@ ` 1 ?CCE `AG`(K(^h6@݄H ,HH@(^@p(G`(b(|p`@(|h6@H  ,HH@(|`pވ(d`(` I(@@ Ap }` Q p L( RAAA R R耈`((`@(( R 1( R 1J R`( #(`(BB}J #(pp݀h6` (`  N 0 INp  `  p  `p |`p }B  55 !!8(["* F 1] " @5ƣ @#==X$V 2ENDOFLINE 92833-16087,REV.5000,870621 870622.0008 /P1K/CMP/SCN.PAS=@RENDOFLINE qqD .DCO.DLD.DSTERROR NUMDIGITS PAS.1 PAS.2 PAS.NONCDS PAS.WRITECHAR PAS.WRITEDOUBLE PAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRING PUTLINE SOURCE_LINE WRITELINE qn8??` m((`  (pG`  .A(J (JA  UA(!(!W  ` (%(F`  -A(,,`G(m` (3(D: ncXAXYA n ZN?==J .Y n(hK n Z .YJA nOAAO V nO[ [ n\Y` }(_(hAf n 1] }Y n m n\^` H(s (pH y ` 'H`H@|CCpQ `A\Q `n[[AY( `q[[Y `\Y` Q pA( Rt__Y RpMpL` (-pQpH`H @bpNNpK`N'pJ`K܍@@PM((  ``Y`G(` A( ҡ n`Y(@KhL@pI`IA((  `\I`G(` ( n\I`L@IpL `aY`G(` (A  na~~@@Y`KpMJpI `JI`G(&` ((!`HP((  naY(! ! nA`Y& nJI`L@IpL8HA8Q(/` H(9 7 ` 'UA9`G(@ n~Q? np D ' [FR OOmS668R(@  ),^ >>>>>> Importing from **** **** >>**** PASCAL SYNTAX ERRORS IN THIS LINE O S @K% <<Xe\V 1PUTLINE 92833-16087,REV.5000,870621 870622.0008 /P1K/CMP/SCN.PAS< OPUTLINE NN 3.DSTPAS.1 PAS.2 PAS.NONCDSPAS.WRITECHAR PAS.WRITEDOUBLE PAS.WRITEINTEGER PAS.WRITESTRING SOURCE_LINE WRITELINE N!??` [p ` A0Zp AAM`MR`H(:` (($@̀h AAM#`MS()A )`TS`/(-(3 2`/S(: :`XSSU`}@(>(J ? C`VUA J`1W}UL ^LO mP 8O( : @7;;XV 5NEXTLINE92833-16087,REV.5000,870621 870622.0008/P1K/CMP/SCN.PAS; %+NEXTLINE 8.DLD.DST.ENTR .LBT.MVW.SBT CHECK CLEAN_PATHENDOFLINE EXTERNAL_IMPORTEIFBRK PAS.1 PAS.2 PAS.CLOSEFILE PAS.DOUBLE2ASCIIPAS.ENDOFFILE PAS.ERRORCATCHERPAS.NONCDSPAS.STOP POP_SDREADLINESOURCE_LINE SUMMARY XREIO ''\`A@(`ph6@H`'  :Ap(11p`5A@(4hI6@Hp;0;`p(1 54> j;? A<`[>A` .UW`(pKphY6H@HpLL88K(㠈`((>e(>j]]h66AMmM>om#>t߁>y䀄`pKK((((((hZ6Pp] u`O DDGP..AO`p(v Pascal: Source: Importing Line: , Errors: (CR to continue) _ D~~Z~<O] &,92077-16393 rev.2326 <840112.1537>   implicit integer (a-z) logical inter_active,message_log,exit_message  logical ascii_yes,ascii_no,c/PASCAL/CMP/STD/TRACE.REL:::5:11:128 644 0 0 5400 5300501575 35033 /PASCAL/CMP/STD/TRACE.REL:::5:11:128 $$$ + TRACE REL +}+}+} eFST ??XV0SAM_TRACER92833-16164,REV.5000,870621 870621.2301/P1K/CMP/STD/TRACE.PAS?@AAX{/<V1SAM.TRACEBACK292833-16164,REV.5000,870621 870621.2301/P1K/CMP/STD/TRACE.PASAjSAM.TRACEBACK2DDb.ENTR .MPYPAS.BITEXTRACT1 PAS.NONCDSPAS.REWRITE_FILEPAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRING D..`p`;pAp Ap88(.SSAp(+6AA`~({pp|A@|:A@pO`@9 @pA]d`plAsq v8|8(B^^Ap~(#1  Segment entry traceback: Procedure called from segment , address start initialize dup_id und_id error newpag*o``e summary declarations compile_program init_macro prog_prolog prog_body prog_epilog prog_interface proc_prolog proc_body proc_epilog proc_i pD``nterface module_prolog module_body module_epilog end_globals body parse_expr parse_range parse_proc_call parse_assign_id parse_ident parse_replace standa``rd_proc standard_func transform_tree generate_code fold eval_read eval_write eval1 eval2 walk_files touch_files eval3 eval4 G`` eval5 exporter newtemp new_cst_node integer_constantnewtempnode node_temp_index new_literal_poolenter_literal enter_deflbl new_inline_lit_ninline d``r protect_temp unprotect_temp string_flush struct_flush enum_flush flush_lits internal_importeexternal_importedb_statement_lissymrec_rout symrec_tree symrec``_types symrec_count print_tables print_offsets print_token print_tree com_options readline endofline nextline get_constant flush_code_buffepas_re%%}^$adsequent pas_writeline pas_put %@3x((/PASCAL/CMP/STD/TRACE1.REL:::5:2:66 644 0 0 1000 5300501577 35101 /PASCAL/CMP/STD/TRACE1.REL:::5:2:66 ##$ +BTRACE1 REL +++ FST BBXGVSAM_TRACEBACK192833-16165 REV.5000 841008 870622.0200/P1K/CMP/STD/TRACE1.PAS B@GBBX&VSAM.TRACEBACK192833-16165 REV.5000 841008 870622.0200/P1K/CMP/STD/TRACE1.PAS BF SAM.TRACEBACK1;.ENTR PAS.NONCDSSAM.TRACEBACK2A  7t Ap(@ +/PASCAL/CMP/STD/ETC.LIB:::5:282:128 644 0 0 215000 5300501714 35230 /PASCAL/CMP/STD/ETC.LIB:::5:282:128 ##$ < ETC LIB +++7$FST <<XV ETC 92833-16223,REV.5000,870621 870622.0201 /P1K/CMP/STD/ETC.PAS<@ ;;XިV/,PSULB 92833-16096,REV.5000,870621 870622.0144 /P1K/CMP/ULB.PAS;@ި>>XKV/-WRITE_OCTAL 92833-16096,REV.5000,870621 870622.0144 /P1K/CMP/ULB.PAS>2@WRITE_OCTAL 44L{.DST.ENTR .LBTPAS.1 PAS.2 PAS.DOUBLE2ASCIIPAS.NONCDSPAS.WRITECHAR 4^^ 22h5 AA< 6<Fp4`4@J(p>Ap3`GH838>(`4("(2hI6@4Hp>.`>H@4p4(^ 52@ LA A??p5(06 J @ +y;;X'V/-EXPCO 92833-16096,REV.5000,870621 870622.0144 /P1K/CMP/ULB.PAS; BEXPCO  &&9.DLD.DST.ENTR ASSCO PAS.1 PAS.2 PAS.NONCDS&) AA(  ( p r `  AAAAA`&p( & @$:;;Xe_V/.ELEMENTS92833-16096,REV.5000,870621 870622.0144/P1K/CMP/ULB.PAS; &EELEMENTS  AA .DAD.DCO .DIN.DLD .DSB.DST .ENTR .LPX .LPXR GETBOUNDS PAS.1 PAS.2 PAS.NONCDSAcc99A BMP](( @BQAAQ Ox;(9 @BUA@ SAA@@J(+($AJ@(+(.(.`^Ap;(93@WY< > x;c s~9`;E ##zaFAA DDAB( ><# ]]= @w::XBV/.OFFSET92833-16096,REV.5000,870621 870622.0144/P1K/CMP/ULB.PAS: s0OFFSET  55 '.DCO.DLD.DST.ENTR .LPX .LPXR GETBOUNDS PAS.1 PAS.2 PAS.NONCDS5BBƤ$$Ap& -: 8++((+(((p&($"+<>`*p&B s?$`&0 s1AA//A-( )'@E=c<<X_ V//START_STMT92833-16096,REV.5000,870621 870622.0144/P1K/CMP/ULB.PAS<l5START_STMT!!x.DLD.DST.ENTR PAS.1 PAS.2 PAS.NONCDS!  ZAAA(@ 99XmV/0JUMP92833-16096,REV.5000,870621 870622.0144/P1K/CMP/ULB.PAS9 z*JUMP &&!.ENTR EMITEMLAB EOI PAS.1 PAS.2 PAS.NONCDS&$AA@  8 Ap(@R==XhV/0JUMP_PLUS 92833-16096,REV.5000,870621 870622.0144 /P1K/CMP/ULB.PAS=xJUMP_PLUS &&2.ENTR EMITEMPRL EOI PAS.1 PAS.2 PAS.NONCDS&$AA@  8 Ap(@S;;XV/1PUTLABEL92833-16096,REV.5000,870621 870622.0144/P1K/CMP/ULB.PAS; PUTLABEL .. $ .ENTR BOI EMOPC EMPRL EOI PAS.1 PAS.2 PAS.NONCDSSP.!!`( AD p`p!  9A p(@S??X3,gV/1SETUPOPERANDS 92833-16096,REV.5000,870621 870622.0144 /P1K/CMP/ULB.PAS?aYSETUPOPERANDS 33 4.DLD.DST.ENTR .LBPR .LPXR PAS.1 PAS.2 PAS.BITMASK1PAS.NONCDS3}}wQQARaUU ,HHe@ ( V W X(QU ,Hf@ A(6RcVVW AX(QRcVVW XW (K(QWX} mQY  Z AATTAR(  _Y@c#<<X2V/2NEWNODE 92833-16096,REV.5000,870621 870622.0144 /P1K/CMP/ULB.PAS< <NEWNODE -  >> h.DLD.DST.ENTR .LBPR .LPXR .MVWPAS.1 PAS.2 PAS.NEW2S PAS.NONCDSSOURCE_LINE >IIA `A  `A `Ä x`P(/P(wP(P(JP(BP(YP(SP(( x  A A( A` 9IRR( x A( `(A  x x  x A( A`  ` A A( x A( @@A%%A`AA AxAA xAA `" (@ Aɨ MM44ApĈApA A($  M    !";?@ r;;X%V/3ADOPT 92833-16096,REV.5000,870621 870622.0144 /P1K/CMP/ULB.PAS; ;oADOPT  << o .DCO.DLD.DST.ENTR .LBPR .LPXR CHCKB PAS.1 PAS.2 PAS.BITMASK1PAS.NONCDS<TTA j{ ,HH@ pll}(c j~@ (& j~xlhAl(V j~f fdd (9(Ofd(@(D(DAAdfAAdfA@ dAd(3 AfxlhfTAAlh (\(cA hxl l co pAAmmAAjnAh( k @֚<<X#V/4CVTNODE 92833-16096,REV.5000,870621 870622.0144 /P1K/CMP/ULB.PAS<  CVTNODE  &&G.DLD.DST.ENTR .LPXR PAS.1 PAS.2 PAS.NONCDS& A`  . AA  A p(@$::XUV/4DISOWN92833-16096,REV.5000,870621 870622.0144/P1K/CMP/ULB.PAS: mDISOWNu @@ ߵ.DCO.DLD.DST.ENTR .LBP .LBPR .LPXR CHCKB PAS.1 PAS.2 PAS.BITMASK1PAS.NONCDS@ TTA  ,HH@ p(} @A((2(2 @D  xA(p  ~~(V(E~ (K(V~ ~BBKT))A~(?~ pa(p ~ xAAA A(v(} x B } !!lAAAAA( k!@'F>>X]V/5REPLACENODE 92833-16096,REV.5000,870621 870622.0144 /P1K/CMP/ULB.PAS>IREPLACENODE // .DLD.DST.ENTR .LBPR .LPXR .MVWPAS.1 PAS.2 PAS.NONCDS/JJ--A@2AA.0A@h[ U2`[A UA2xF.AAF2VP\(!(-2X @ZpF2FJ 9-I !!JAAGGAA2HA0( 84! Y\; @1P==XV/6SWAPOPERANDS92833-16096,REV.5000,870621 870622.0144/P1K/CMP/ULB.PAS=sSWAPOPERANDS00 ~.DLD.DST.ENTR .LPXR ADOPT DISOWNPAS.1 PAS.2 PAS.NONCDS0OA    \ AAA( @-2K::XaV/6INSERT92833-16096,REV.5000,870621 870622.0144/P1K/CMP/ULB.PAS: oINSERTl 44 o.DCO.DLD.DST.ENTR .LBPR .LPXR CHCKB PAS.1 PAS.2 PAS.NONCDS4VVA ( A(/(/ AxAA AxAA @A((A x x A( @AA @AAAA(S(B (H(SAAA@ A(< FFeV--pA^A( x x  AxAA x F  N=AAAAAAA( @cႡ;;X*V/7INBRO 92833-16096,REV.5000,870621 870622.0144 /P1K/CMP/ULB.PAS; GINBRO  &&?.DLD.DST.ENTR .LBPR PAS.1 PAS.2 PAS.NONCDS&""A@AAxxAA"  P{ AAAAA(@ ;;X.V/8INFTS 92833-16096,REV.5000,870621 870622.0144 /P1K/CMP/ULB.PAS; I INFTS  ++n.DLD.DST.ENTR .LBPR .LPXR PAS.1 PAS.2 PAS.NONCDS+%%]A,,xAxA%  R! AAAAA( @Oin)@@X1V/8MAKE_CONST_NODE 92833-16096,REV.5000,870621 870622.0144 /P1K/CMP/ULB.PAS@pMAKE_CONST_NODE &&G.DLD.DST.ENTR .LPXR PAS.1 PAS.2 PAS.NONCDS&` (   . AA  A  p (@κz??XMNV/9STACK_TOO_FAR 92833-16096,REV.5000,870621 870622.0144 /P1K/CMP/ULB.PAS?4STACK_TOO_FAR 55 .DAD.DCO.DLD.DST .ENTR .LPXR FULL_SIZE PAS.1 PAS.2 PAS.NONCDS5HH,,A />PM(() /@() /B() @/DAA111 @/FAA1H()p.H sS,`.4 %%5AA 33A/`Lp.(  % 3L" @O;;XRVV/9NEWLNODE92833-16096,REV.5000,870621 870622.0144/P1K/CMP/ULB.PAS; :<NEWLNODE  ,,K.DLD.DST.ENTR .LPXR NEWNODE PAS.1 PAS.2 PAS.NONCDS,HH0,,AJK2266L`1A6N`06Pxh/p8A 8A6Rx8A 8AA24H ,A4< ++d=A99p1:p0;p/A 4(" +@6T??X7rV/:INDIRECT_THROUGH92833-16096,REV.5000,870621 870622.0144/P1K/CMP/ULB.PAS?C^INDIRECT_THROUGHEE U.DLD.DST .ENTR .LPXR ADOPT CVTNODE NEWLNODENEWNODE NEW_CST_NODE PAS.1 PAS.2 PAS.NONCDSE{{QQAhh U` A@RpYhhYZUZ Wi@AZA ZkAAZ&AUZ WlPq(-(<US6nAh UA<USA@WnA Wl WoxY YQWU{ rQ^ !!7_AA \\AW]pR(  ! 4q @:`??XnDV/;Q_RELATIVE_FIXUP92833-16096,REV.5000,870621 870622.0144/P1K/CMP/ULB.PAS?0Q_RELATIVE_FIXUP 00 .DLD.DST.ENTR .LPXR INDIRECT_THROUGHPAS.1 PAS.2 PAS.NONCDS0HHۼ((p*`M((+ ( ((+--:PCA(((-<((A->A((&+:p*H sG(`*0 1AA//A+`Bp*(  )B" @݆F==XV0COPY_TREE 92833-16096,REV.5000,870621 870622.0144 /P1K/CMP/ULB.PAS=lwCOPY_TREE aa.DAD.DLD.DST.LBP.LBPR .LPXR .MVWPAS.1 PAS.2 PAS.BITMASK1 PAS.ENTRY2 PAS.EXIT2 PAS.NEW2S PAS.NONCDSPAS.RECVALPARMPAS.RECVARPARMazzRRAZ ( vx\A \(RvAZA@h v` A Z ,HH@ (B @ZAAov@AAqwBAoqZ@AoA@vAqwRoqzR(!uV,,pxA SwuZvs( Sww ]_,@>]??X^GPV0SAVE_GLOBAL_OPTI92833-16096,REV.5000,870621 870622.0144/P1K/CMP/ULB.PAS?iBSAVE_GLOBAL_OPTI00.LBPR PAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDSPAS.RECVARPARM0oo{66AAx>>IN0I>Ax>>NO0KAN>Ax>>MO0LM>Ax>>OO0QO>AAx>>LO0UL>Ax>>KO0YK>o6(JA:iC A7BA?(7BB N @ X??XN01V0UPDATE_GLOBAL_OP92833-16096,REV.5000,870621 870622.0144/P1K/CMP/ULB.PAS?Y"UPDATE_GLOBAL_OP++' PAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDSPAS.RECVALPARM+==_-` )0p` ./pK` -/pL` //pQ` ,/pU` +/pY=^(+!# A"!p (A"" / @qp0??X.V0BREAKOUT_INFO 92833-16096,REV.5000,870621 870622.0144 /P1K/CMP/ULB.PAS?oBREAKOUT_INFO BB k~.DLD.DST.LPXR PAS.1 PAS.2 PAS.ENTRY2 PAS.EXIT2 PAS.NONCDS PAS.RECVALPARMUPDATE_GLOBAL_OPBV A*xA,B(& AA A(  @j*==XV0SHOW_TEMP 92833-16096,REV.5000,870621 870622.0144 /P1K/CMP/ULB.PAS=ySHOW_TEMP `YY PAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.INLINEERROR PAS.NONCDSPAS.RECVALPARM PAS.WRITECHAR PAS.WRITEINTEGER PAS.WRITESTRING WRITELINE YW GG` @p `A ` ``x $`A )``@!p 4`A ;``@!ڄp F`@ }GGGM`/(Z Y`(a a`.(m m`,P(wPֈ(P((A ~`(A `(A `o(hAT(NNA44Ap(A + >>> Temp # @ [] BusyFree Direct Unprotected Zappable Locked Nk@&==X[DV0ZAP_TEMPS 92833-16096,REV.5000,870621 870622.0144 /P1K/CMP/ULB.PAS=5ZAP_TEMPS ))PAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDSSHOW_TEMP )YY**`Cp4p2`2 @>p33/?('3,@(3,@P?((!3A33B3`k('A'28284(Y*(:5. 6 A+5(A+555?@Lkp99X_%V0EVAL92833-16096,REV.5000,870621 870622.0144/P1K/CMP/ULB.PAS9 iEVAL ||.DCO.DLD.DST.LBPR .LPXR BREAKOUT_INFO BREAK_CHECK EMITLINENUMBERERROR EVAL1 EVAL2 EVAL3 EVAL4 EVAL5 FULL_SIZE GETFREEREGLOADLOADADPAS.1 PAS.2 PAS.BOUNDINTEGER|II PAS.ENTRY2PAS.EXIT2 PAS.INLINEERROR PAS.NONCDSPAS.RECVALPARMPUTLABELRELEASE_NODESETUPOPERANDS ZAP_TEMPS I~~HHAAiigAiiAAmmJxoAAom`pg (+(^gPшA(2(:@ (:(^`Q(C`L0K(CC`pfp~..HkgARkJAX`f(^^f.^(upbmqA_p(A_pp8 yFFA @ ((AA`,9 (QP(JP(fP(QP(JP(JP(XP(XP(XP(XP(XP(JP(XP(fP(fX55P(XP(XP(XP(/P(XP(QP(QP(QP(XP(XP(XP(XP(/P(/P(JP(JP(JP(pP(QP(_P(fP(XP(P(XP(mP(XPMBB(JP(JP܈(XP(XPވ(QP(XP(XP(J(qAP(P(P(&(+(.AA((!(!xA (%%A(.*(.h(w(6(>(>qq%6AAA8p=(IAA(E(I(II(wAJA P(w AW(wJA ^(w e(wAJA l(wpo(w(wAtwqw({//[SAxA(yx /EE11  !"#$%&(*+:;=>@ABCFGHKLE@ d>>Xф((V0EVAL_SWITCH 92833-16096,REV.5000,870621 870622.0144 /P1K/CMP/ULB.PAS>*EVAL_SWITCH 77 .DLD.DSTEVALPAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDS PAS.RECVALPARM7 <A ( <A  A (@ m?-<<XNeV0MINREGCOST92833-16096,REV.5000,870621 870622.0144/P1K/CMP/ULB.PAS<z JMINREGCOST ?? .DLD.DST .ENTR .LPXR AOC FULL_SIZE PAS.1 PAS.2 PAS.BITMASK1PAS.MIN PAS.NONCDS?pp@@ApBF ((pB`BpCp s@`CJ %%*cKAA IIAF`dpC([N@@% bGd @;;XRV0FNCRG 92833-16096,REV.5000,870621 870622.0144 /P1K/CMP/ULB.PAS; F:FNCRG  11 b.DCO.DLD.DST.ENTR .LPXR FULL_SIZE PAS.1 PAS.2 PAS.NONCDS1VVj00A`Op2 7D'QPO( (0 @7FAA33 ((0A355H($('('p2(05J(.(0(0`Np2V sa0`2: 0;AA99A7`Pp2(  0N @==X{Q.V0OTHER_REG 92833-16096,REV.5000,870621 870622.0144 /P1K/CMP/ULB.PAS=OTHER_REG ##Oa.ENTR PAS.1 PAS.2 PAS.INLINEERROR PAS.NONCDS#<<}`P(( P)( P*(P+((p(p(`+p(`*p(h-@< s` Ap`,p(U(X@!l@,<<XoV0FREEREG 92833-16096,REV.5000,870621 870622.0144 /P1K/CMP/ULB.PAS< FREEREG ` WW .DCO.DLD.DST.ENTR .LPX EMREG EMSKE EOI INUSE OTHER_REG PAS.1 PAS.2 PAS.BITMASK1PAS.NONCDSSAVEREG SWAPREGSW EEA(p` ,HH@(l > (($ 8 :( ($($A#(kJ @ J(*(7 8J :(1(7(736(k` @ (hA  qEMMH` @h@x @` @pA ` @@A`(kk(` @ (v(zy(}p` @ A((A A(A(  L Ap(1  8 @x` ==XX+V0 LOW_ORDER 92833-16096,REV.5000,870621 870622.0144 /P1K/CMP/ULB.PAS=LOW_ORDER ##Oa.ENTR PAS.1 PAS.2 PAS.INLINEERROR PAS.NONCDS#55=`P%(P&(P'( P(( (p(p(`p(h*5 s` Ap`)p(%@ ::X~(V0 ADD 92833-16096,REV.5000,870621 870622.0144 /P1K/CMP/ULB.PAS: gADD ! wwA.DAD.DCO.DLD.DST.ENTR .LBPR .LPX.LPXR CALLRUNTIME EMITEMOPR EMSKE EOI ERROR EVAD FULL_SIZE LOW_ORDER PAS.1 PAS.2 PAS.BITMASK1PAS.NONCDS REAL_TYPE wYIIAp鈈P((|A ,HH@(| A(|(QAAAxӀ`(6p(P`PA(:(P݈AxAAp݈A`݀ILLx@p(|AAA@AA (cAp(|A(j(p(p mp(|(wA(|(| zp`A( (((A((݈AxApgg<>ApFI ((([ MBBB,O))A?N MI`zpH(A`Hpx ?N`xN lwrNN@,B >z @Vu==XyH7V0 EXTENDREG 92833-16096,REV.5000,870621 870622.0144 /P1K/CMP/ULB.PAS=c'EXTENDREG 11~d.ENTR .LBPR EMSKE EOI PAS.1 PAS.2 PAS.INLINEERROR PAS.NONCDS1;;-KA/ A0!A1 ` P2(P3A((&`4(&`5(@h6; ' ( A$$p!%p ( 0 S2S@Z<<XOF1V0 GETFREEREG92833-16096,REV.5000,870621 870622.0144/P1K/CMP/ULB.PAS<zGETFREEREG --FREEREG INUSE PAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDS-))lA,(p(A -(p(A,p)N(%!!|A`0p(`p.A`.! 0 @5S;;XGV0INUSE 92833-16096,REV.5000,870621 870622.0144 /P1K/CMP/ULB.PAS; G:INUSE  ,,.DLD.ENTR OTHER_REG PAS.1 PAS.2 PAS.BITMASK1PAS.NONCDS,]]c55`8 @B@ p7`8 @B (5`8 ,HC@J(58 (2: (2A+8 @@B p7] sk5`7: ; A99p8`Fp7(8 F @e==XEV0MARKREGINUSE92833-16096,REV.5000,870621 870622.0144/P1K/CMP/ULB.PAS=>5MARKREGINUSE11.DLD.DST.ENTR PAS.1 PAS.2 PAS.BITMASK1PAS.NONCDSPAS.SETINIT 1SS7--`. @Cp1/11BA?@hD`.x2 ,H2@(%AJ/8AJ/:(- > @S %-5 C_6A33p.AA4/( 81@ d+$<<XFo>V0CVTREGNODE92833-16096,REV.5000,870621 870622.0144/P1K/CMP/ULB.PAS<R +CVTREGNODE55 .DLD.DST.ENTR .LPXR MARKREGINUSEPAS.1 PAS.2 PAS.NONCDSRELEASEREG5>> ""A %7P=(( %9x'A' %7`=A %;`$ %9A`#"#%> "+ ""y,AA((A%)p$*p#( " :=; @??XMF<V0DOUB_REG_INVALID92833-16096,REV.5000,870621 870622.0144/P1K/CMP/ULB.PAS?X0DOUB_REG_INVALID<< d.DLD.DST.ENTR .LPXR CVTREGNODEOTHER_REG PAS.1 PAS.2 PAS.BITMASK1PAS.NONCDS<GG~))A+p*`* @:@A,A, A(() ,6 ,HH;@ () ,8x.A),.*G )0 S1 A//p+( 8@?r^2;;XV0ADVAL 92833-16096,REV.5000,870621 870622.0144 /P1K/CMP/ULB.PAS; .ADVAL t BB .DLD.DST.LPXR EVALPAS.1 PAS.2 PAS.ENTRY2 PAS.EXIT2 PAS.NONCDS PAS.RECVALPARMREMAPPERB'IIApA.p~p}.p|pz`}(%A"pz(]`|(3-0pz(]`~}(@A:=pz(]`~|(JAGpzJJI))(]xH`(][pza`z(nA(k(nnrJr(v..@A s p  (A s. (( l @#==XV0LOAD_INTEGER92833-16096,REV.5000,870621 870622.0144/P1K/CMP/ULB.PAS=SLOAD_INTEGER{aa5 .DCO.DLD.DSTEMDLT EMITEMOPR EMSKE EMSKL EOI INLINER PAS.1 PAS.2 PAS.BITMASK1PAS.ENTRY2PAS.EXIT2 PAS.NONCDSPAS.RECVALPARMaPP`~ ,H@A(8 (H~(7AA ((%(%~~(7 (,(1(1A~(7~AH(vA (FDHA(vA (M([([<<FP&&D(v (bA(k(kA(v  q<v( z..Awp~A(w    .@Jxi899XfV0LOAD92833-16096,REV.5000,870621 870622.0144/P1K/CMP/ULB.PAS9 q"bLOAD .DAD.DCO.DLD.DST.LPX.LPXR CALLRUNTIME CVTREGNODEDOUB_REG_INVALIDEMITEMOPR EMREG EMSKE EMSKL EOI EVALEXTENDREG FREEREG FULL_SIZE INUSE LOW_ORDER NEW_INLINE_LIT_NWW OTHER_REG PAS.1 PAS.2 PAS.BITMASK1PAS.ENTRY2 PAS.EXIT2 PAS.NONCDS!PAS.RECVALPARM"PAS.SETINIT RELEASEREGREPLACENODE SWAPREGSW99M##`+ ,H:@A(u+[A+[v+(#wA[#[vx9#(6,'. A$-!,p+(A $--H;MMAp[{y ,HH@(@[{AAX}(]A((AA[}xP`P(ozT@p(`PP(s(AzT~ATv@p(PP((AT?TTpT([{@AA(((AA[A@}AAWW (Dzv@z~Ap(WA}((̈́(zvDz~~~vp(W(((AvA~** p([v[`(-T[vT*( A(;A ۪ MMA[{]A]UA[xS`S ,HH@(E`T ,HH@(4U(E(4`T ,HH@(YU}(E(Y(YA H[[xSA[{]WVII]U`SP(]([([P(j({A[P(q(s svA{[~~U}(((A[APT( T([x_-_(-T(A[x_5FFA _p_A_-x`pS`SP((4A[A(4[xR`R@PT(3"ORT`OP(Ȅ( (3`OP((`T @@ A(( ۄ(uTAHR`T UoMM@hR@x_ @_`T @`T`R @p_ A_(3 RpQ`T ,HH@(QARQA(&ARpN "ANp_ &_+[AvN[PT(3@ ))A2A3(F 7T(<<T`SP(@(CB(F-FT)QF(q`JII6c++AGb!`pT!aA[(  Gbb  & 8kNI!;@EQd::X"V0LOADAD92833-16096,REV.5000,870621 870622.0144/P1K/CMP/ULB.PAS: hLOADAD= yyρ.DLD.DST.LPX.LPXR ADD CALLRUNTIME CVTREGNODEEMDLT EMSKE EOI ERROR EVALFREEREG LOADNEW_INLINE_LIT_NPAS.1 PAS.2 PAS.BITMASK1PAS.ENTRY2PAS.EXIT2 PAS.NONCDSyHH XPAS.RECVALPARMQ_RELATIVE_FIXUP RELEASEREG RELEASE_NODEREMAPPERREPLACENODE SAVEREG SETUPOPERANDS SWAPREGSH!OO`pVpA]{P( (@]}A{ ,H@Ap![p`(A )[]}@AA4]A]xJAA@](`(YA H[hL]A[eeSO==xX[(h]A][{ ,HH@(on[(A]xJAA] [] ]A [`pXe4(  A(A_VKKAa(aW_][Aa{ ,HH@(a(`X ,H@(∈`WP((A X_(`WP(ڈ(aX( aAa{P((a{E~FFAAcac( a{PA(( a( Aa}xe  eAa(hXaa{P((AaP()P(QP(P((`X ,HH@(6`pT(8&6RRApT<AaTcABacAa KXaPaTX(`X ,HH@(^pU(`A`XpUaYaxeeaA xAUaaAxeYAAeaU(AaYTTYaxeeaA AaaAxeYAAea(AaYaxeeaA aAaxeAAYeAaA(a{P((LFFAaA(La}PX(LAa}xV`X ,HH@(`V ,HH@(`X ,HH@(`V ,HH@((L`X ,H@(3DD@"**A% A(-a`XA(22(L`V(8AA8;{{ADFaAa0DiL(wfP@@ &i%%AMhfpXgAa(Mhh &_@ !"; @H<<X=4 V0LOADBYTEAD92833-16096,REV.5000,870621 870622.0144/P1K/CMP/ULB.PAS<HLOADBYTEAD;.DLD.DST.LPXR ADD ADVAL CVTREGNODEEMSKL EOI EVAL_STRING_ELEMIS_STRING LOAD LOADADPAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.INLINEERROR PAS.NONCDSPAS.RECVALPARM Q_RELATIVE_FIXUP RELEASE_NODE SETUPOPERANDS SWAPREGS AA@ ( k}A (A KKA ( &҈`P(P(.P(l(AP(7P(7(ePp@AAxJAA Wx`(dd(kseIIA i؁k(P(P({P({P(PA({( (P(((h(@AA(`ψP((%%uAA  ( %F(33X ApA(ߨ  3. ";@"<<X;.V0SAVEREG 92833-16096,REV.5000,870621 870622.0144 /P1K/CMP/ULB.PAS< %r SAVEREG  }}a.DCO.DLD.DST.ENTR .LPXR ADOPT CHCKB CVTNODE CVTREGNODEEMIT EMOPR EMSKE EOI FULL_SIZE LOW_ORDER NWTPN PAS.1 PAS.2 PAS.BITMASK1PAS.NONCDSPAS.SETINIT RELEASEREG}REPLACENODE SWAPREGS}}ELL` @%@AA p(@x $h&x ,H@(5JA(W 'Ah&x ,HH@(P}LMM(WAAZA_(d((` ,H'@A(qtpAx` ,H(H@( ,H(@A(  ,MM(!-)pA!xM-0AMP+((#  AP*(( $!,x  (@AA((BxAx`(  66 A  p( 186)@/GN;;XV0STORE 92833-16096,REV.5000,870621 870622.0144 /P1K/CMP/ULB.PAS; MfSTORE  ww.DCO.DLD.DST.ENTR .LPXR EMIT EMOPR EMSKE EOI EXTENDREG FULL_SIZE LOW_ORDER OTHER_REG PAS.1 PAS.2 PAS.BITMASK1PAS.INLINEERROR PAS.NONCDSRELEASEREGSWAPREGSw FF`^ ,Hv@p]A_pa Aar((p\`\Py(6Pz(#(R`]Py(*Pz()A(/(2-^p^(2Ah| t^(U`]Py(FPz(<(GA?^pcAE^cw(J))F(Jh}`^P{(OO u(UDh~ A_ [^) [f ##HgAddp^AAe_( 1^#y m(( z @/N;;XU^V0SWAPREGS92833-16096,REV.5000,870621 870622.0144/P1K/CMP/ULB.PAS; VSWAPREGS )).DLD.DST.LPXR EMITEOI PAS.1 PAS.2 PAS.NONCDS)pT??ADY> (J@ J((1>AJT@JA>TJJ@> ( (%J>Z`\@ (+(0@Z`](S8T:8T:8,,q? (C(HJ8Z: (N(S:Z, lSV ΰW8V(2  &\ @6<<XAb2V0RELEASEREG92833-16096,REV.5000,870621 870622.0144/P1K/CMP/ULB.PAS<L*RELEASEREG,,.DST.ENTR OTHER_REG PAS.1 PAS.2 PAS.BITMASK1PAS.NONCDS,EEF&&`' @0p( (`' ,HH1@(& 8 :' @0p( A(E &* Oe+A))p'(8@L99X_V0EVAD92833-16096,REV.5000,870621 870622.0144/P1K/CMP/ULB.PAS9 jEVAD^ ~~ .DAD.DIN.DLD.DST.ENTR .LBPR .LPX.LPXR .MVW DEFLBL_ENTRYEVAL NEW_INLINE_LIT_N PAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDSPAS.RECVALPARMRELEASE_NODEREPLACENODE SAVEREG ~ SETUPOPERANDS ee;<>XV0NEWBYTECOPY 92833-16096,REV.5000,870621 870622.0144 /P1K/CMP/ULB.PAS>qNEWBYTECOPY zzT.DCO.DLD.DST.LPXR CHCKB COPY_TREE EMMBT EVAL FULL_SIZE INLINER LOADBYTEAD NUM_ELEMENTS NWTPN PAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDSPAS.RECVALPARMRELEASE_NODEz REPLACENODE FWWAke A ecAAc(((AkAk([kP(!(%$k([c(*pm1m([ A6eiA<iA@kADiA Gen Mnn nTkAWi ?bWA[kg [(|p_**rA\qpAk(\qqg* _ @_~a;;XV0LDADS 92833-16096,REV.5000,870621 870622.0144 /P1K/CMP/ULB.PAS; 3\LDADS  @@ .DLD.DST.LPXR PAS.1 PAS.2 PAS.BITMASK1PAS.ENTRY2 PAS.EXIT2 PAS.NONCDS PAS.RECVALPARM@ttaDD`L(VNQV MOVNQ(DAQ}AxSO}HS`A(+Q ,HH@(8V/MOV3NQV7MO(DV<NQV@MOVDNQtGD(yVH@@a]%%AE\ WpN XQ YpM ZO [pL(A E\\_@@+;;X}V0 LADDR 92833-16096,REV.5000,870621 870622.0144 /P1K/CMP/ULB.PAS; .dLADDR  CC .DLD.DST.LPXR LDADS PAS.1 PAS.2 PAS.ENTRY2 PAS.EXIT2 PAS.NONCDS PAS.RECVALPARMREMAPPERC}}:LLAZpWAZy.|pUXpVXy.|pT`U(%`W(%A$`yZ{X{(L`T(4`V(43`{XyZ{(L`WV(Da;ZC`yZ{Xy(LAL`yZ{Xy}]L(u`P&&:eA Md bZ cX(A Mdd& ?| @qx;;X]V0 EVADS 92833-16096,REV.5000,870621 870622.0144 /P1K/CMP/ULB.PAS; B?EVADS  DD AQ.DLD.DST.LPXR EVADPAS.1 PAS.2 PAS.BITMASK1 PAS.ENTRY2 PAS.EXIT2 PAS.NONCDS PAS.RECVALPARMDOO4..`6( A9 A7(.9Xx;A7XH;`(%A9Z ,H\H@(((7A+9.7O.(T <222e&@A /? <9 =7 >p6(A /??_2@>>XV0!EVADDRESSES 92833-16096,REV.5000,870621 870622.0144 /P1K/CMP/ULB.PAS>.rEVADDRESSES MM .DLD.DST .LPXR EVADEVADS NEWCOPY PAS.1 PAS.2 PAS.ENTRY2 PAS.EXIT2 PAS.NONCDS PAS.RECVALPARMREMAPPERMLLAn A((Ml ( (MAnpkA n.pilpj l.ph`i(.`k(.A-nl(L`h(:`j(:A9ln(L`kjA(GAnFln(LLnl&&L(`n (S(WVn(`l (](``l&`(pd&&:sA ar pn ql(A arr& M @<[k>>X([V0"EVAD3ADDRESSES92833-16096,REV.5000,870621 870622.0144/P1K/CMP/ULB.PAS>˖?EVAD3ADDRESSESPP .DLD.DSTEVADEVADDRESSES EVADS NEWCOPY PAS.1 PAS.2 PAS.ENTRY2 PAS.EXIT2 PAS.NONCDS PAS.RECVALPARMREMAPPERPGGO++A:p5A8p4A 6p3`3($`5A(:`4(A8 :8ZA#6(+A'6+:8G+(V</++^@A ,? <: =8 >A6( ,??+@/>>X=oV0#EVAD4ADDRESSES92833-16096,REV.5000,870621 870622.0144/P1K/CMP/ULB.PAS>̗NEVAD4ADDRESSESLL A.DLD.DSTEVADEVAD3ADDRESSESNEWCOPY PAS.1 PAS.2 PAS.ENTRY2 PAS.EXIT2 PAS.NONCDS PAS.RECVALPARMREMAPPERLXX66AHpAAFp@A Dp?ABp>`>(.`AA(H`@(AF`?A(%%D*HAFD-AB(61B6HFDX6(kJ:11O A 7N JH KF LD MB(A 7NN1@P>>XSV0#EVAD5ADDRESSES92833-16096,REV.5000,870621 870622.0144/P1K/CMP/ULB.PAS>͘^EVAD5ADDRESSESLL A.DLD.DSTEVADEVAD4ADDRESSESNEWCOPY PAS.1 PAS.2 PAS.ENTRY2 PAS.EXIT2 PAS.NONCDS PAS.RECVALPARMREMAPPERLjj^BBAWpNAUpMA SpLAQpKAOpJ`J(9`NA(W`M(#A#U`LA())S`K(/A/Q5WUSQ8O(B<OABWUSQjRB(YF99__&&A C^ YW ZU [S \Q ]AO( C^^9@{;@@XkpV0%COERCE_SOME_WAY 92833-16096,REV.5000,870621 870622.0144 /P1K/CMP/ULB.PAS@uDCOERCE_SOME_WAY .DCO.DLD.DST.ENTR .LBP.LBPR .LPX.LPXR .MVWADOPT CHCKB COMPTYPES CONVERT_SUBRANGEEQUIV_TYPES FEATURE_LEVEL INT_TYPE IS_CHAR IS_STRING MAKE_STRING NEWNODE NUM_ELEMENTS>>  ORDER PAC PAC_LITERAL PAS.1 PAS.2 PAS.INLINEERROR PAS.NONCDS REAL_TYPE REPLACENODE >DPPAAdfAd(1 b(1``(\b(\(f\(((\f^@AhA'hh,bAh(\(1(\f^@AhA ;h(B @bA(\f^(L([([Af\NlPA([ Ub(\ Zb(]pa s^`am nAAjjAAdkAblp``lpa( }A #pA !p  (} % A#!A  ( `WWA@-AA% %(,^% %A(,@A^@A%A%%%AA%-x'%A'(,@A^@J(((A`%A-x'%',\x'PP88A@-AA%b'%,@h2Ac,% %`2Acx' AA',@A%A$%P $. l|/A,(- %%w3AI\A(HI^K CKA(HHd% YHN a OAAMMAI(3.PVSSAp")^#'^@A!`lp!p Am<p>mu)!\(p )')'##!##!(m'#A\p #!(A!ex+#eP+(pCC` (p+A+gA(#ePj(Pm(Pn((`P(`@(p!(p!(` (AA(((p!N)((((A !(p!]]22N'(A!ePn(p!(`!Pj(Pk( Pl(A(()AA%!A#('%##(Hho`!Pl(.@B] y3`". %%/AA,,AA)-A'`lp"(V#!%#%3|DHHppA^#!AVY]#!(bp(mgap瀄`(w!exA#eP(w(!ePj(Pm(Pn((`P((p(`:~HH@(pp(A#(!A( #( !(p`p(`(̈́(( #(ppN(AA(((p(pA#e$$Pnp(#!p`(.$ {` %%jAAAAA`lp(D#!% `(.+)p('%p |8`D 88$E##AA??AA+@AA)AAA'BA%Cp`lp(G 8j a@0'N::XV0'COERCE92833-16096,REV.5000,870621 870622.0144/P1K/CMP/ULB.PAS: mCOERCE ++J.DLD.DST.ENTR COERCE_SOME_WAY PAS.1 PAS.2 PAS.NONCDS+o A (    S2AAAA A (@;;X$V0(CORC1 92833-16096,REV.5000,870621 870622.0144 /P1K/CMP/ULB.PAS; 9CORC1  ++J.DLD.DST.ENTR COERCE_SOME_WAY PAS.1 PAS.2 PAS.NONCDS+}A p  r`  oAAAA A `#p ( # @p}??X,CV0(INT_PARAMETER 92833-16096,REV.5000,870621 870622.0144 /P1K/CMP/ULB.PAS?b:INT_PARAMETER ;; x .DCO.DLD.DST .LPXR ADOPT CHCKB INT_TYPENEWNODE PAS.1 PAS.2 PAS.NONCDS;VVÑ22JA 5A 5=77p99?(2 5=@J A(2( 5Ax9(@9 AA3.A3 3J V /2: ;8:(tG@;jZ*??XHkV0)INTEGER_TREE_VAL92833-16096,REV.5000,870621 870622.0144/P1K/CMP/ULB.PAS?sTINTEGER_TREE_VAL CC Q .DLD.DST .ENTR .LBPR .LPXR .MVWENUM_TYPE INT_CONST INT_TYPEPAS.1 PAS.2 PAS.NONCDSCllEEApG H^J JA( H^JJA(E H`Pj(!(( Hb@AHA H`Pi(/(EpG HbA@he d<LAAJ SxOJOl sE`GT UAA RRAH`hpG( L h!G @ר==XFV0*NEWADDOPNODE92833-16096,REV.5000,870621 870622.0144/P1K/CMP/ULB.PAS=70NEWADDOPNODE 11.DLD.DST.ENTR NEWNODE PAS.1 PAS.2 PAS.INLINEERROR PAS.NONCDS1FFyp''`*PB(PC(PD(( A :;<+(#A>;<+(#A?;+(#DhE+-F 'A-0 l1A//p*A -(B( ,B  @*==X\V0*NEWMULOPNODE92833-16096,REV.5000,870621 870622.0144/P1K/CMP/ULB.PAS=KDNEWMULOPNODE 11.DLD.DST.ENTR NEWNODE PAS.1 PAS.2 PAS.INLINEERROR PAS.NONCDS1kkT;;`>PV( PW(PX(,PY(PZ($(4ANOP?(7ARO?(7A!RO?(7A)SO?(7A1OO?(7Dh[?Ak ;AAD mEEACCp>A A($#NV '@^}==XjV0+NEWRELOPNODE92833-16096,REV.5000,870621 870622.0144/P1K/CMP/ULB.PAS=PLNEWRELOPNODE 66 Vi.DLD.DST.ENTR .LPXR NEWNODE PAS.1 PAS.2 PAS.INLINEERROR PAS.NONCDS69BBAVWG`FP\(P]($P^(0P_(*P`(Pa(Pb(6(<(?AGX`hA(?GX`g(?AGX`fA(?GX`e(?AGX`dA(?GX`c(?Dhi G MBI CAIL kJM AKKpFA I(,\ -./01 >@&3D>>XWrV0,OPP_RELATIONAL92833-16096,REV.5000,870621 870622.0144/P1K/CMP/ULB.PAS>%UOPP_RELATIONAL --.ENTR PAS.1 PAS.2 PAS.BOUNDINTEGERPAS.INLINEERROR PAS.NONCDS--88`RP_(AP`(D,9!(@q@ ((&(,()(#( (J(G(/(8(>(;(5(2(M`fpS(P`apS(P`bpS(P`epS(P`cpS(P`dpS(P`npS(P`ipS(P`jpS(P;;y8`mpS(P`kpS(P`lpS(P``pS(P`_pS(P`gpS(P`hpS(Php; sP`SU VATTpR`opS(_(,-./0123456789N Z@p0??XV0-CHECKABLE_SCALAR92833-16096,REV.5000,870621 870622.0144/P1K/CMP/ULB.PAS?3sCHECKABLE_SCALAR JJ r.DCO.DLD.DST .LPXR FULL_SIZE GETBOUNDS PAS.1 PAS.2 PAS.ENTRY2 PAS.EXIT2 PAS.NONCDS PAS.RECVALPARMJ^IJJApc nP( P(P(Q([ nP(n((pc([ n@AdA)n.dAlAh(5(I(Ijf(<(I(IA?dpDnAp(L(I(L((/aJpc(PsOdpc([ nP(X(Zpc([([(r_88Bt!!A \s rn`pc(A`cp \s`s  ljhf8 ^ @F>>XV0.CHECKBOUNDS 92833-16096,REV.5000,870621 870622.0144 /P1K/CMP/ULB.PAS>nCHECKBOUNDS ^^F.DCO.DLD.DST.ENTR .LPXR CALLRUNTIME CHECKABLE_SCALAREMDEC EMDI1 EMDI2 ERROR FULL_SIZE GETBOUNDS PAS.1 PAS.2 PAS.NONCDS^iDDAkvxdk ( ( pd`dP(P(P(I(`kA(Hk A"kx('(9(9`jpe`hpf A.ze` M(6J (8 (H <{AAig` M(FBBDJ (H (ck|P(P(TA S~(WA W` MJ(] (_ (cA cB cn $$poAAmmAk(  QRig$ L @5 ??XVLV0.ADJUST_ONE_WORD_92833-16096,REV.5000,870621 870622.0144/P1K/CMP/ULB.PAS?b9ADJUST_ONE_WORD_WW.DLD.DST.ENTR CVTREGNODE EMIT EMNUM EMSKE EOI ERROR FREEREG LOAD OFFSETPAS.1 PAS.2 PAS.NONCDSPAS.SINGLEMOD WMM&00A 4p1A 2@1p1`1(0E4FAGF`1((-AA H#1IJp6AD 6,4EE(0 0KM ,09 g:AA77AA48A2( # @Y==XRV0/NEW_TEMP_SET92833-16096,REV.5000,870621 870622.0144/P1K/CMP/ULB.PAS=jNEW_TEMP_SETpkkbb.DLD.DST.ENTR .LBPR .LPXR .MVW CALLRUNTIME ELEMENTS EMDEF EMDI1 EVADNEWNODE NWTPN OFFSETPAS.1 PAS.2 PAS.NONCDSRELEASE_NODEREPLACENODE k((TTAvp  xpo xpm vpn vpl`oPn((`mAPl(k!x $pAAt+prt@hAr`A=t @A xhoA AhmA AA t&&bQThn AAhl AAAgxkxr& k \xAAAAxAv("z@Po==XV00EMITCDSLABEL92833-16096,REV.5000,870621 870622.0144/P1K/CMP/ULB.PAS=G EMITCDSLABEL""EMNAM PAS.1 PAS.2 PAS.BLANKFILL PAS.NONCDS"R A       (Pas.CDS @x5??XV01CLEANUP_PARMS 92833-16096,REV.5000,870621 870622.0144 /P1K/CMP/ULB.PAS?CLEANUP_PARMS cpp!.DLD.DST .ENTR .LBPR .LPX.LPXR CALLRUNTIME EMDEF EVAD2IND2 FNCRG IS_STRING PAS.1 PAS.2 PAS.BITMASK1PAS.NONCDSPAS.SETINIT RELEASE_NODE UNPROTECT_TEMPp  8( UU22A77pp`()A.("A !A().p`A(61 4AU 269 <:89( z=;;X7V06CINSK 92833-16096,REV.5000,870621 870622.0144 /P1K/CMP/ULB.PAS; DCINSK  >> ko.MVWERROR INSYMBOLPAS.1 PAS.2 PAS.ENTRY2 PAS.EXIT2 PAS.NONCDS PAS.RECVALPARMSKIP> `(A(   N (1,, IA  p p Ah65A( ,@1M??XkV07IS_STD_FILE_IN_H92833-16096,REV.5000,870621 870622.0144/P1K/CMP/ULB.PAS?uIS_STD_FILE_IN_HcEE .DCO.DLD.DST.LPX .LPXR CHECK PAS.1 PAS.2 PAS.ENTRY2 PAS.EXIT2 PAS.NONCDS PAS.RECVALPARMExmIIAAA P( ( @uAA ( (/(/p`PA(&(. JxuA(W @wAA (D(S(Sp`P(Jss1I@@(R xw(Wpp`0A(  0`JP( ( A(` p` pAsB(**NA  A(  *@L ??XCRV07SCHEDULING_TERMI92833-16096,REV.5000,870621 870622.0144/P1K/CMP/ULB.PAS?n=SCHEDULING_TERMI ;; A .DLD.DST.LBT.MBT .SBTLOGLU PAS.1 PAS.2 PAS.ENTRY2 PAS.EXIT2 PAS.NONCDS;TT//A7;;9`7(hJ6`K6AI(&HhJ6PQ((&hJ6 hJ6H hJ6 `P `9p hL6`J6AIT/(B =3 G>A 0=(A`8pN 0=`N=:M81 cP 0 @eل;;XjV08POWEROF292833-16096,REV.5000,870621 870622.0144/P1K/CMP/ULB.PAS; BUPOWEROF2  ++' PAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDSPAS.RECVALPARM+%66`RPg(Pi(!Pm($Pt('Pu(*Pv(-Pw(0Px(3Py(6Pz(9P{(>X5V09SINGLE_INTEGER92833-16096,REV.5000,870621 870622.0144/P1K/CMP/ULB.PAS>(SINGLE_INTEGER 77 .DCO.DLD.DSTPAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDS PAS.RECVALPARM7TAA.A(( A0( p@('++A `4p(A`p2`2+ 4 @0O?>>X5V09DOUBLE_INTEGER92833-16096,REV.5000,870621 870622.0144/P1K/CMP/ULB.PAS> DOUBLE_INTEGER 77 .DCO.DLD.DSTPAS.1 PAS.2 PAS.ENTRY2PAS.EXIT2 PAS.NONCDS PAS.RECVALPARM7TAA.A(( A0( p@('++A `4p(A`p2`2+ 4 @ ?Arrr~~o ADD WdoADJUST_ONE_WORD_0ADOPT dADVAL nael A_REG_OPS \_0BREAKOUT_INFO 8D CHCKI 0CHCKS CHECKABLE_SCALAR, CHECKBOUNDS UTCHKBS ]CINSK ~~~o CLEANUP_PARMS  COERCE!COERCE_SOME_WAY 5t COPY_TREE 1CORC1 \CVTNODE B CVTREGNODEjPbDISOWNuDOUBLE_INTEGER DOUB_REG_INVALIDlV& DO_ASSIGN teS~((~~X ELEMENTSw EMITCDSLABELXEVADOetEVAD3ADDRESSESbO]lEVAD4ADDRESSES!lEVAD5ADDRESSESW1l EVADDRESSES N]lEVADS !EVALA90AM# EVAL_SWITCH Ioe~~~k EXPCO + EXTENDREG bGFNCRG NFREEREG R & GETFREEREGdCINBRO #LINDIRECT_THROUGH,8INFTS % INSERT OINTEGER_TREE_VAL5INT_PARAMETER &INUSE f0&Io ~~~ IS_STD_FILE_IN_HpJUMP < JUMP_PLUS  bLADDR H)lLDADS l LOADuJeo&bt LOADADVe0Ublt LOADBYTEAD:$0AU LOAD_INTEGERr LOW_ORDER U}EIo ~~~[< MAKE_CONST_NODE &Y MARKREGINUSEhE MINREGCOSTK: NEWADDOPNODE NEWBYTECOPY 4eTtNEWCOPY ceAtNEWLNODE*3 NEWMULOPNODE NEWNODE   NEWRELOPNODE?W_ORDER U}EIo ~~~`  NEW_TEMP_SET?tOFFSET0OPP_RELATIONAL OTHER_REG PPOWEROF2 PREPARE_CALL  e0PUTLABEL Q_RELATIVE_FIXUP/ RELEASEREGa&REMAPPER_c REPLACENODE {~~~& SAVEREG lobtSAVE_GLOBAL_OPTI4SCHEDULING_TERMIUSETUPOPERANDS U SHOW_TEMP :4SINGLE_INTEGER SKIP]STACK_TOO_FAR ( START_STMT &STORE Qo&b SWAPOPERANDS {~~~~SWAPREGS UPDATE_GLOBAL_OP6E WRITE_OCTAL  ZAP_TEMPS >mSETUPOPERANDS U SHOW_TEMP :4SINGLE_INTEGER SKIP]STACK_TOO_FAR ( START_STMT &STORE Q#7EJX SWAPOPERANDS {~ $ALIAS 'EMBSS'$  $DIRECT$  (fwords: INT); EXTERNAL; PROCEDURE emitcaseerror; $ALIAS 'EMCSE'$  $DIRECT$  EXTERNAL; PROCEDURE emitdec  $ALIAS 'EMDEC'$  $DIRECT$  (fnum: INT); EXTERNAL; /PASCAL/CMP/STD/SG19P.REL:::5:3:128 644 0 0 1400 5300501715 34734 /PASCAL/CMP/STD/SG19P.REL:::5:3:128 ##$ =(SG19P REL +++5@FST 88X/;VV%SG19P 92833-16224 REV.5000 870621.2255/P1K/CMP/STD/SG19P.MAC8 eUQSG19 TT Z.GET_CONSTANT .PAS.PUT .PAS.READSEQUENT .PAS.WRITELINECOM_OPTIONS ENDOFLINE FLUSH_CODE_BUFFENEXTLINEREADLINESGIN2 UMAIN T;RR  fRAU(R @lQtdefn $ALIAS 'EMLTD'$  $DIRECT$  (VAR flit: VALU;  ftype: STP); EXTERNAL; PROCEDURE emitnew  $ALIAS 'EMN/PASCAL/CMP/STD/SUM.REL:::5:40:128 644 0 0 24000 5300501717 35406 /PASCAL/CMP/STD/SUM.REL:::5:40:128 ""$( =,(SUM REL +++(;FFST ;;XV/ PSSUM 92833-16225,REV.5000,870622 870622.1343 /P1K/CMP/SUM.PAS;@<<XH V/SUMMARY 92833-16225,REV.5000,870622 870622.1343 /P1K/CMP/SUM.PAS< & SUMMARY ||.DAD.DCO.DDE.DDI.DLD.DSB.DST.ENTR .LBPR .LBT.LPXR .MBT.MPYEXEC NEWPAGE OPEN_ERROR_FILE PAS.1 PAS.2 PAS.BITMASK1PAS.BOUNDDOUBLE PAS.CLOSEFILE PAS.ENDOFFILE |~~PAS.GETMEMINFO2 PAS.MIN PAS.NONCDSPAS.READBUFFER PAS.REWRITE_FILE PAS.SETEXITPARMSPAS.TIMESTRING!PAS.TOPOFPAGE "PAS.WRITECHAR #PAS.WRITEDOUBLE $PAS.WRITEINTEGER%PAS.WRITELINE &PAS.WRITESTRING POP_SD~SCHEDULING_TERMIWRITELINE -DDAA#`# &`; J #A ((A"`  & `> JA# A(^(^&-`C  %'(4(A(AA&;`D #@`% (Y&H`DGGG A#M`% &T`J A#Y`' "^`A "c` e#j`A) &q`M  ) (|(w"|` A&`Q ) ((&mDD`U  +-(((A&`V #`+ (&`Y A#`+ &`\ A#`- "`A "ơ` #`A &ȔHH`_   (("` A&`e !6#`6 A&`h  (("`A & `k  `M(.A&`v #;;M` A&"`w #'`! A&.`z "3` A5; 058 ^^89DD88( Error detected (line first /last Warning issued (line first /last Source line read. Word of program generated ( code/ data)^&N}PPAaRV\TP\  J"` A&`c $`D A&`p $`AE &`w  #`J A&` NN`m('AA#ء`P &` A A#`L &` AA#`T &` A A#`R & ` AA #`N &` A A#OO..`V &%` A 'AA)&0`  &7` AA9&@`  &G` r AIO jI^ f___8^(}L Dynamic Memory Allocation Pages of VMA. Pages of workspace requested. Pages of workspace used. Initial TOS Current TOS High TOS Initial TOH Current TOH High TOH Compilation starte Yd: Compilation completed: ''0`(&`  (&` A '  MAp(OnOff IIAA&`  &` 1& ` A &`v  &`  3&%` (4&/` A $4`~ 6~~6EEA&=` A@M&G`  JQA&Q`  AT5&[`  ^6A&e` Ah7&o`(  r9A&y`2 &~ֽ{FF`  &`<  ;&`F =&`P  >&`Z A$` &`d  @&`n DDC&`x A$` ` (pA&` $` AA&`  $`A A&` AF&`  HbFFA& ` $` AA&`  $`A !A&(` A+I&2`  5KA&<` A?L&F`  IYA&PdKFF`  &W` AAY&``  cTA&j` AmU&t`  wVA&~` &`M Am A&` $`HHA A&`#  (( Ax  pAx&`  &`-  ƤX&`7 [&`A  `P THH(P (P A((&`K A (&` A (&`M A (&`P  &`T   \&`^ A&` &!`h !DD$]&+`r A &2`  4&;`| A $@` B&I` L`&S`  `P (]P (eP (mP (u(}A&d` (xeJJA&l` (A&t` (A&|` (A&` &` A A&` Ab&`  $`A A&` $`IAE  . r__8(Compiler Options: ANSI Asmb AutoPage (( BASIC_String Buffers CDS Code Code_Constants Code_Inf``o Code_Offsets Debug EMA EMA_Var Fast_Real_Out Fixed_String Heap Heap_Dispose HeapParms  x``IdSize Image Include_Depth KeepAsmb Line_Info Lines HPLineSize List List_Code Mix G`` Partial_Eval Pascal Private_Types Range Recursive Results Run_String Search Segmented Sk8``ip_Text Standard_Level ANSIHP1000Unknown Stats Subtitle Tables Title Trace Trace_Back Unit MMK88 Program SubprogramSegment ModuleUnknown LibraryWarn Width Work MBB%%(#(##$p$A@(h#6@HHP ((`p(߀h#6@H@ (h#6H@H@ (h#6@H@ p"% @"{ %`p((%p! )`!& _'A#` p!(H,KKA / *(35&<` , AA>@AB`mA(F(Q&Mn ;  %n%n&V(p`P (^(` A@؄(`(h @ $!(GwIIJ x &A $@,HH &@p`p؈(^(hD A $!(J x &A $@,HH &@p`(A"`  &`  A`m(,,*("nA &͡n  %n(QA#  ,  ' 66c ("" 8 '(,# Errors in this compilation: Errors in this compilation:6>J JCCA O#  `"( S( V V#`"( J \ r`J( g a c e8 g# ( o( o ' o`\I( y u^ w y`A(  ~p ` 6h 6 JA!` ` b BB`\(   `  p^ `m( ( & n A # n# & n J #A ( ( A" n  ) ( ( & n A # Ъn)M FF & n JA) A( ( " n & n A & n . & n A& n r %n nA  `  R JA# ( (  11` p ( `$p  ( #( #` ¨p ( %`p ` ( +`&Jp ( 6A ( 4( 4` p ( 6` p ` ( <`(p ( G! ( E( E` p ( G`"ii#O F**p # ( ^`  êp ` O Ƞ0QOp ` N 0FNp `  p ` K 0M Kp `  Ťp  m     p i  p NN 778 ( Js ).  (@K2   q error, warning, , NI  @l` /PASCAL/CMP/STD/DCV.REL:::5:6:128 644 0 0 3000 5300501722 35061 /PASCAL/CMP/STD/DCV.REL:::5:6:128 !!$ =DCV REL +++pFST <<XrV)DCV 92833-16227,REV.5000,870621 870621.2317 /P1K/CMP/STD/DCV.PAS<@вr??XnV)GET_CONSTANT92833-16227,REV.5000,870621 870621.2317/P1K/CMP/STD/DCV.PAS?gGET_CONSTANTt OO.DAD.DCO.DLD .DNG.DST .ENTR .LBPR .LPX .LPXR PAS.1 PAS.2 PAS.ASCII2DOUBLEPAS.BITEXTRACT2 PAS.NONCDSO MMpz`|( ` x A(v A x A`}(Bpp{`z(= x@{pA7pA(>pz8{A8(&  AA JJ M++x @AA([(v (e(e(vA A A xA ``zp~J tGx`~ ""8A p}p|`p~(" c @b"AAX V*STRING_INSERT 92833-16227,REV.5000,870621 870621.2317 /P1K/CMP/STD/DCV.PASA-{STRING_INSERT PAS.1 PAS.2 PAS.NONCDS  ( @A`??X/FOEMA_DIR/ 94250-16823 REV.5000 <870221.1059>/F1000_5000/DEBUG/FEMA3.FTN ? AVeFOEMA_DIR @H/PASCAL/CMP/STD/DATE.REL:::5:3:64 644 0 0 1400 5300501724 34672 /PASCAL/CMP/STD/DATE.REL:::5:3:64 !!$ =@DATE REL +++ xFST ::X[ē$DATE92833-16229,REV.5010,881021 881021.1616/P1K/CMP/DATE.PAS :@֛[@@Xpē$EMITCOMPILERVERS92833-16229,REV.5010,881021 881021.1616/P1K/CMP/DATE.PAS @IEMITCOMPILERVERSC.LBTEMITCHARPAS.NONCDS%%`pph6@Hp88(%   H (<881021.1315>   @~||x 0~QwwxA 7~}}x~=,Q D~wwx@ EEEK~QwAwx R~~~xW~Az[A-Q b~||x i/PASCAL/CMP/STD/PASCOMP_A.LOD:::3:15:34 644 0 0 7400 5300501727 36663 /PASCAL/CMP/STD/PASCOMP_A.LOD:::3:15:34 ''$ ="PASCOMP_A LOD +++~FST * /PASCAL/CMP/STD/PASCOMP_A.LOD 92833-17032 REV.5000 870624.1626 * <870624.1626> pr,90 psebvm* ws,250vs,650* "* Use either CDSON.REL or CDSOF.REL below to default code generation"* to $CDS ON$ or $CDS OFF$, respectively.* * LI,/PASCAL/CMP/STD/ETC.LIB LI,/PASCAL/CMP/STD/MSC.LIB LI,/PASCAL/CMP/STD/ETC.LIB LI,PASCAL.LIB  LI,/PASCAL/CMP/STD/PICK.LIB LI,/PASCAL/CMP/STD/PASS.LIB RE,/PASCAL/CMP/STD/MAN.REL RE,/PASCAL/CMP/STD/SAMA.REL RE,/PASCAL/CMP/STD/TRACE1.REL RE,/PASCAL/CMP/STD/NOTEL.REL RE,/PASCAL/CMP/CDSOF.REL RE,/PASCAL/CMP/STD/CAT.REL RE,/PASCAL/CMP/STD/FORCE.RELRE,/PASCAL/CMP/STD/FDUBL.RELRE,/PASCAL/CMP/STD/SEGTB.REL* * Segment 0 * RE,/PASCAL/CMP/STD/SG00P.REL RE,/PASCAL/CMP/DCT.REL RE,/PASCAL/CMP/STD/TRACE.RELRE,/PASCAL/CMP/STD/PCIOR.REL* * Segment 1 * RE,/PASCAL/CMP/STD/SG01P.REL RE,/PASCAL/CMP/STD/OPT.REL RE,/PASCAL/CMP/STD/SCN.REL RE,/PASCAL/CMP/STD/DCV.REL RE,/PASCAL/CMP/STD/MEU.REL RE,/PASCAL/CMP/STD/PCIOR.REL* * Segment 2 * RE,/PASCAL/CMP/STD/SG02P.REL RE,/PASCAL/CMP/STD/GO.REL RE,/PASCAL/CMP/STD/INT.REL RE,/PASCAL/CMP/STD/MEU.REL RE,/PASCAL/CMP/STD/PCIOF.REL* * Segment 3 * RE,/PASCAL/CMP/STD/SG03P.REL RE,/PASCAL/CMP/STD/SUM.REL RE,/PASCAL/CMP/STD/PCIOF.REL* * Segment 4 * RE,/PASCAL/CMP/STD/SG04P.REL RE,/PASCAL/CMP/STD/DCL.REL RE,/PASCAL/CMP/STD/PCIOF.REL* * Segment 5 * RE,/PASCAL/CMP/STD/SG05P.REL RE,/PASCAL/CMP/STD/UNT.REL RE,/PASCAL/CMP/STD/PCIOF.REL* * Segment 6 * RE,/PASCAL/CMP/STD/SG06P.REL RE,/PASCAL/CMP/STD/PRG.REL RE,/PASCAL/CMP/STD/DATE.REL RE,/PASCAL/CMP/STD/PCIOF.REL* * Segment 7 * RE,/PASCAL/CMP/STD/SG07P.REL RE,/PASCAL/CMP/STD/STM.REL RE,/PASCAL/CMP/STD/EXP.REL RE,/PASCAL/CMP/STD/PCIOF.REL* * Segment 8 * RE,/PASCAL/CMP/STD/SG08P.REL RE,/PASCAL/CMP/STD/STP.REL ((RE,/PASCAL/CMP/STD/STF.REL RE,/PASCAL/CMP/STD/PCIOF.REL* * Segment 9 * RE,/PASCAL/CMP/STD/SG09P.REL RE,/PASCAL/CMP/STD/XFM.REL RE,/PASCAL/CMP/STD/FLD.REL RE,/PASCAL/CMP/STD/PCIOF.REL* * Segment 10* RE,/PASCAL/CMP/STD/SG10P.REL RE,/PASCAL/CMP/STD/ERW.REL RE,/PASCAL/CMP/STD/PCIOF.REL* * Segment 11* RE,/PASCAL/CMP/STD/SG11P.REL RE,/PASCAL/CMP/STD/EV1.REL RE,/PASCAL/CMP/STD/PCIOF.REL* * Segment 12* RE,/PASCAL/CMP/STD/SG12P.REL RE,/PASCAL/CMP/STD/EV2.REL RE,/PASCAL/CMP/STD/PCIOF.REL* * Segment 13* RE,/PASCAL/CMP/STD/SG13P.REL RE,/PASCAL/CMP/STD/EV3.REL RE,/PASCAL/CMP/STD/PCIOF.REL* * Segment 14* RE,/PASCAL/CMP/STD/SG14P.REL RE,/PASCAL/CMP/STD/EV4.REL RE,/PASCAL/CMP/STD/PCIOF.REL* * Segment 15* RE,/PASCAL/CMP/STD/SG15P.REL RE,/PASCAL/CMP/STD/EV5.REL RE,/PASCAL/CMP/STD/PCIOF.REL* * Segment 16* RE,/PASCAL/CMP/STD/SG16P.REL RE,/PASCAL/CMP/STD/MEX.REL RE,/PASCAL/CMP/STD/TLM.REL RE,/PASCAL/CMP/STD/PCIOF.REL* * Segment 17* RE,/PASCAL/CMP/STD/SG17P.REL RE,/PASCAL/CMP/STD/MIM.REL RE,/PASCAL/CMP/STD/PCIOF.REL* * Segment 18* RE,/PASCAL/CMP/STD/SG18P.REL RE,/PASCAL/CMP/STD/DBG.REL RE,/PASCAL/CMP/STD/UTL.REL RE,/PASCAL/CMP/STD/PCIOF.REL* * Segment 19* RE,/PASCAL/CMP/STD/SG19P.REL RE,/PASCAL/CMP/STD/OPT.REL RE,/PASCAL/CMP/STD/SSC.REL RE,/PASCAL/CMP/STD/NUM.REL RE,/PASCAL/CMP/STD/FCB.REL RE,/PASCAL/CMP/STD/PCIOR.REL* END A RLEN GET LENGTH  SZA,RSS IGNORE ZERO LENGTH RECORDS.  JMP RBOPN  ISZ \RBIN GET NORMAL RETURN. CPA M1 EOF?  RSS  JMP /PASCAL/CMP/STD/PASCOMP_6.LOD:::3:15:34 644 0 0 7400 5300501731 36672 /PASCAL/CMP/STD/PASCOMP_6.LOD:::3:15:34 ''$ ="PASCOMP_6 LOD +++#FST * /PASCAL/CMP/STD/PASCOMP_6.LOD 92833-17033 REV.5000 870624.1626 * <870624.1626> op,ro pr,90 psebvm* ws,250vs,650* "* Use either CDSON.REL or CDSOF.REL below to default code generation"* to $CDS ON$ or $CDS OFF$, respectively.* * LI,/PASCAL/CMP/STD/ETC.LIB LI,/PASCAL/CMP/STD/MSC.LIB LI,/PASCAL/CMP/STD/ETC.LIB LI,PASCAL.LIB  LI,/PASCAL/CMP/STD/PICK.LIB LI,/PASCAL/CMP/STD/PASS.LIB RE,/PASCAL/CMP/STD/MAN.REL RE,/PASCAL/CMP/STD/SAM6.REL RE,/PASCAL/CMP/STD/TRACE1.REL RE,/PASCAL/CMP/STD/NOTEL.REL RE,/PASCAL/CMP/CDSOF.REL RE,/PASCAL/CMP/STD/CAT.REL RE,/PASCAL/CMP/STD/FORCE.RELRE,/PASCAL/CMP/STD/FDUBL.RELRE,/PASCAL/CMP/STD/SEGTB.REL* * Segment 0 * RE,/PASCAL/CMP/STD/SG00P.REL RE,/PASCAL/CMP/DCT.REL RE,/PASCAL/CMP/STD/TRACE.RELRE,/PASCAL/CMP/STD/PCIOR.REL* * Segment 1 * RE,/PASCAL/CMP/STD/SG01P.REL RE,/PASCAL/CMP/STD/OPT.REL RE,/PASCAL/CMP/STD/SCN.REL RE,/PASCAL/CMP/STD/DCV.REL RE,/PASCAL/CMP/STD/MEU.REL RE,/PASCAL/CMP/STD/PCIOR.REL* * Segment 2 * RE,/PASCAL/CMP/STD/SG02P.REL RE,/PASCAL/CMP/STD/GO.REL RE,/PASCAL/CMP/STD/INT.REL RE,/PASCAL/CMP/STD/MEU.REL RE,/PASCAL/CMP/STD/PCIOF.REL* * Segment 3 * RE,/PASCAL/CMP/STD/SG03P.REL RE,/PASCAL/CMP/STD/SUM.REL RE,/PASCAL/CMP/STD/PCIOF.REL* * Segment 4 * RE,/PASCAL/CMP/STD/SG04P.REL RE,/PASCAL/CMP/STD/DCL.REL RE,/PASCAL/CMP/STD/PCIOF.REL* * Segment 5 * RE,/PASCAL/CMP/STD/SG05P.REL RE,/PASCAL/CMP/STD/UNT.REL RE,/PASCAL/CMP/STD/PCIOF.REL* * Segment 6 * RE,/PASCAL/CMP/STD/SG06P.REL RE,/PASCAL/CMP/STD/PRG.REL RE,/PASCAL/CMP/STD/DATE.REL RE,/PASCAL/CMP/STD/PCIOF.REL* * Segment 7 * RE,/PASCAL/CMP/STD/SG07P.REL RE,/PASCAL/CMP/STD/STM.REL RE,/PASCAL/CMP/STD/EXP.REL RE,/PASCAL/CMP/STD/PCIOF.REL* * Segment 8 * RE,/PASCAL/CMP/STD/SG08P.REL RE,/PASCAL/CMP/STD/STP.REL RE,/PASCAL/CMP/STD/STF.REL RE,/PASCAL/CMP/STD/PCIOF.REL* * Segment 9 * RE,/PASCAL/CMP/STD/SG09P.REL RE,/PASCAL/CMP/STD/XFM.REL RE,/PASCAL/CMP/STD/FLD.REL RE,/PASCAL/CMP/STD/PCIOF.REL* * Segment 10* RE,/PASCAL/CMP/STD/SG10P.REL RE,/PASCAL/CMP/STD/ERW.REL RE,/PASCAL/CMP/STD/PCIOF.REL* * Segment 11* RE,/PASCAL/CMP/STD/SG11P.REL RE,/PASCAL/CMP/STD/EV1.REL RE,/PASCAL/CMP/STD/PCIOF.REL* * Segment 12* RE,/PASCAL/CMP/STD/SG12P.REL RE,/PASCAL/CMP/STD/EV2.REL RE,/PASCAL/CMP/STD/PCIOF.REL* * Segment 13* RE,/PASCAL/CMP/STD/SG13P.REL RE,/PASCAL/CMP/STD/EV3.REL RE,/PASCAL/CMP/STD/PCIOF.REL* * Segment 14* RE,/PASCAL/CMP/STD/SG14P.REL RE,/PASCAL/CMP/STD/EV4.REL RE,/PASCAL/CMP/STD/PCIOF.REL* * Segment 15* RE,/PASCAL/CMP/STD/SG15P.REL RE,/PASCAL/CMP/STD/EV5.REL RE,/PASCAL/CMP/STD/PCIOF.REL* * Segment 16* RE,/PASCAL/CMP/STD/SG16P.REL RE,/PASCAL/CMP/STD/MEX.REL RE,/PASCAL/CMP/STD/TLM.REL RE,/PASCAL/CMP/STD/PCIOF.REL* * Segment 17* RE,/PASCAL/CMP/STD/SG17P.REL RE,/PASCAL/CMP/STD/MIM.REL RE,/PASCAL/CMP/STD/PCIOF.REL* * Segment 18* RE,/PASCAL/CMP/STD/SG18P.REL RE,/PASCAL/CMP/STD/DBG.REL RE,/PASCAL/CMP/STD/UTL.REL RE,/PASCAL/CMP/STD/PCIOF.REL* * Segment 19* RE,/PASCAL/CMP/STD/SG19P.REL RE,/PASCAL/CMP/STD/OPT.REL RE,/PASCAL/CMP/STD/SSC.REL RE,/PASCAL/CMP/STD/NUM.REL RE,/PASCAL/CMP/STD/FCB.REL RE,/PASCAL/CMP/STD/PCIOR.REL* END B1001 SET READ&WRITE LEGAL  JSB SETIT AND SECURITY CODES AGREE LDA B1030 OCTAL 100030 JSB SETIT AND UPDATE MODEES AGREE LDA 1717/PASCAL/CMP/STD/PASCAL_A.LOD:::4:1:29 644 0 0 400 5300501734 36145 /PASCAL/CMP/STD/PASCAL_A.LOD:::4:1:29 %%$ =PASCAL_A LOD +++DFST * /PASCAL/CMP/STD/PASCAL_A.LOD 92833-17046 REV.5000 841008* PR,89 LI,PASCAL.LIB RE,/PASCAL/CMP/STD/PASCAL.REL EN/PASCAL/CMP/STD/PASCAL_6.LOD:::4:1:29 644 0 0 400 5300501736 36123 /PASCAL/CMP/STD/PASCAL_6.LOD:::4:1:29 %%$ =PASCAL_6 LOD +++DFST * /PASCAL/CMP/STD/PASCAL_6.LOD 92833-17047 REV.5000 841008* PR,89 LI,PASCAL.LIB RE,/PASCAL/CMP/STD/PASCAL.REL EN/PASCAL/ETC/ALTER/ALTER.REL:::5:94:128 644 0 0 57000 5300501702 37172 /PASCAL/ETC/ALTER/ALTER.REL:::5:94:128 &&$^ 9^ALTER REL +++^.FST CCXYZV80PAS.GLOBALINFO92833-16209 REV.5000 841008 870622.1455 /P1K/ETC/ALTER/ALTER.PASC@Y>>X"ZV80OOPS92833-16209 REV.5000 841008 870622.1455 /P1K/ETC/ALTER/ALTER.PAS> &OOPS PAS.1 PAS.2 PAS.NONCDS$$`A@( `pp$ K8( @/CCX:ZV80FMP_ERROR_CHECK 92833-16209 REV.5000 841008 870622.1455/P1K/ETC/ALTER/ALTER.PASC6FMP_ERROR_CHECK Fuut.DLD.DST.ENTR FMPERROROOPSPAS.1 PAS.2 PAS.FIXEDSTRING PAS.INLINEERROR PAS.NONCDS PAS.STRAPPENDSTR PAS.STRRTRIM PAS.WRITECHAR PAS.WRITELINE PAS.WRITESTRPAS.WRITESTRING uȞGG`q(o`刄ps`pr  q AArA !(A/((`pP(9P(@P(GP(O(V?(YAFա(YOOG))AN(YAUס3(YAh `fr kJAoOII2,,Apqpp(@4 89;=)r ̀ 3FMP error on (@<I@9&WAAXM;ZV81PRINT_ENTRY 92833-16209 REV.5000 841008 870622.1455/P1K/ETC/ALTER/ALTER.PASAH.PRINT_ENTRY ;; g.DAD.DLD.DST.ENTR .LBPR PAS.1 PAS.2 PAS.NONCDS PAS.WRITECHAR PAS.WRITESTR;AA&&AA&(AA6(AA**Ax, *,8AA6(AA**@:p,A %9,.Aa/ AA--A&(J @K??X/ZV82ASSERT92833-16209 REV.5000 841008 870622.1455 /P1K/ETC/ALTER/ALTER.PAS? sASSERT  rr4.DLD.DST.ENTR .LPXR OOPSPAS.1 PAS.2 PAS.BITMASK1 PAS.BOUNDINTEGERPAS.NONCDS PAS.WRITECHAR PAS.WRITEINTEGERPAS.WRITELINE PAS.WRITESTRPAS.WRITESTRING PRINT_ENTRY rAA`(`@ !(@ ((5(?(I(S(](g(q((((ƈ(((4(V($ A+2$J(<4J(FcAFF;(APEA(ZW(AdiA(n{(Ax~A :>>A(J6(  JA6(A6J~~6EE(A  J  JAJ(A    @AA ~[ BBA(A#:*A1A(;BAI NLCCA  SA(]dJAmtAzJA A k>DDAJA AJ(A ¡` ,HH@ (44WAܡ(JA44XXApp( #"y  )  ̀: .Usage: [relocatable] Checksum errorSymbol length error Invalid symbol s0M``tart in XNAM record Invalid symbol count in XENT record Invalid symbol count in XEXT record Invalid symbol count in RPL recordRelocatable file is not type Name too long:Name too short: Name}y`` missing: Duplicate long name:Duplicate short name: The symbol is not in returned failure (Exit status SEVERE ERROR! Successfully purged original But could not rename to be new Altere22? ""d file is in Relocatable Unexpected internal error: is corrupt ~2@x 8AAXZV84AVL_INSERT92833-16209 REV.5000 841008 870622.1455 /P1K/ETC/ALTER/ALTER.PASAAVL_INSERT$ aa.DAD.DLD.DST.ENTR .LBP .LBPR .LPX .LPXR PAS.1 PAS.2 PAS.ENTRY2 PAS.EXIT2 PAS.INLINEERROR PAS.NONCDSPAS.RECVARPARMPAS.STRCOMPAREa>>_((A@ AA( (A (x* AA* (x* AA* @A(A x*(*+>^^d,??A8+( r@A @AkA km r AxomAAo r@AmA kxoAAmoA@ r@ k ArxokAos^^^ t@@Ar(.   @AA@ A x  x A A x^P1OOA(w  (p+(p  ((' (& P(P(P((# @HP( (  MMAAs(& Ap(& (&h( :(xAAAF(wA P(RP(WPA(^(t (w RRY11`p(w @HA(pAAsps(wh(  xAA(R00TA A`p(A`p `#0 3@ +dAAXfsZV85FIND_SYMBOL 92833-16209 REV.5000 841008 870622.1455/P1K/ETC/ALTER/ALTER.PASA%NFIND_SYMBOL EE .DAD.DLD.DST.LPXR PAS.1 PAS.2 PAS.ENTRY2 PAS.EXIT2 PAS.NONCDS PAS.RECVALPARM PAS.STRCOMPAREEffgDDAG A((gAAGKA Koi(GI(?AAgGAAK #KojA(&(3GkKN0KAI(?@GmAKN=KI(] MCf66SO""A@N MG AI(IAAq @NqNDG :6@AAXZV86SPLIT_PATH92833-16209 REV.5000 841008 870622.1455 /P1K/ETC/ALTER/ALTER.PASA{ SPLIT_PATHNN .DLD.DST.ENTR FMPPARSEPATHPAS.1 PAS.2 PAS.FIXEDSTRING PAS.NONCDS PAS.STRAPPENDSTR PAS.STRRTRIM PAS.STRVALPARMN>BB`p`p`p:`p9`p\`p[`p~`p}`p`pAAA A$A(A,A8AAA Axx\BQQ JAAA S9 \AAA e[ nAAA w} AAA  x<<R A`hA (@fghijT  9[ }@<@ѶvAAXZV87MERGE_PATH92833-16209 REV.5000 841008 870622.1455 /P1K/ETC/ALTER/ALTER.PASAkMERGE_PATHEOO .DLD.DST.ENTR FMPBUILDPATHPAS.1 PAS.2 PAS.FIXEDSTRING PAS.NONCDS PAS.STRAPPENDPAC PAS.STRAPPENDSTR PAS.STRRTRIMO9`HH`h``( `9A( JA9 Ġ`[(-[ -`}(:AJ}A :`(G Ghhh]HBB`OSW[_coh` |AAAh`A Ȩh44A(@ wxyz{9[}@4@h(@@Xh-ZV88OPEN_FILE 92833-16209 REV.5000 841008 870622.1455/P1K/ETC/ALTER/ALTER.PAS@fOPEN_FILE <<.ENTR FMPOPEN FMP_ERROR_CHECK PAS.1 PAS.2 PAS.FIXEDSTRING PAS.NONCDSPAS.STRVALPARM<00]A{^A}`Ab^`xpA`p`f011EEgAb`chAyz`dhyzep`p(@<<1 G @ @@X/%ZV88CHECKSUM92833-16209 REV.5000 841008 870622.1455 /P1K/ETC/ALTER/ALTER.PAS@ +CHECKSUM N.ENTR .LBTPAS.1 PAS.2 PAS.NONCDS::`ph!6@@$(p`$p` @@p88( `p`: A( $ @*yI9AAX2GZV89READ_RECORD 92833-16209 REV.5000 841008 870622.1455/P1K/ETC/ALTER/ALTER.PASA9READ_RECORD 44b.ENTR ASSERTCHECKSUMFMPREAD FMP_ERROR_CHECK PAS.1 PAS.2 PAS.NONCDS4ss44`(* 7AAp64`4(*`(*`-FPFppG`I@GpI`GPAp6*6B`(/`6p5`59s7: A78p4`Ep5( E @M BBXlZV89WRITE_RECORD92833-16209 REV.5000 841008 870622.1455 /P1K/ETC/ALTER/ALTER.PASBeWRITE_RECORD$$&FMPWRITEFMP_ERROR_CHECK PAS.1 PAS.2 PAS.NONCDS$))`( A6p)(( 8( @1AAXZV8:INITIALIZE92833-16209 REV.5000 841008 870622.1455 /P1K/ETC/ALTER/ALTER.PASAINITIALIZEV {{#).DLD.DST.ENTR ASSERT FMPCLOSE FMPINFO FMPUNIQUENAME FMP_ERROR_CHECK MERGE_PATHOPEN_FILE PAS.1 PAS.2 PAS.FIXEDSTRING PAS.NONCDSPAS.REWRITE_FILE PAS.SPARAMETERS PAS.STRAPPENDPAC{00PAS.STRRANGER PAS.VALIDSTRING PAS.WRITELINE PAS.WRITESTRING SPLIT_PATH0``*<22AASA y{AJS(1`Ppuu !J32%`2 p`(1 1Jv`CwLL8v(Sro͊`p:`p9`( `p:`٨Ap9(AAAAA A`p#6 (ΨRAA8(| 9ALT wcpppppppp p   `ۤp 'p`p1`(A{7==@(CAP p` ֪p`(NvN`(TT`( p`pA _(vppkP(pP(p(sp(s8ff֣t228(f`pA | p`(`A( J`p`fEE**A`p(@A 1)7@̀NOCCTLVersion <870622.1336> E0@Qq@fG@@XEQZV8;PRT_TREE92833-16209 REV.5000 841008 870622.1455 /P1K/ETC/ALTER/ALTER.PAS@ <PRT_TREE II .DLD.DST.LPXR PAS.1 PAS.2 PAS.ENTRY2 PAS.EXIT2 PAS.NONCDS PAS.RECVALPARM PAS.WRITELINE PRINT_ENTRY IMMa22A5 A((-5AA77K9<9A5@7MAA9!9 @7OA9<-9(G ;1M""D=A.< ;A5( .<<"@c#CCX;IZV9INSERT_ENTRIES92833-16209 REV.5000 841008 870622.1455 /P1K/ETC/ALTER/ALTER.PASC:INSERT_ENTRIES11 .DCO.DLD.DST .LPXR ASSERTAVL_INSERTPAS.1 PAS.2 PAS.NONCDS1kk788AACp8( ( Ap9A9=EGp8((p9A$9>`(7 ?x99 ?x99:k##,;8:(  ŀ #@ Q)AAXXZV9MAKE_ENTRY92833-16209 REV.5000 841008 870622.1455 /P1K/ETC/ALTER/ALTER.PASABMAKE_ENTRY @@ .DAD.DLD.DST.ENTR .LBPR .LPXR PAS.1 PAS.2 PAS.NEW2S PAS.NONCDS PAS.STRAPPENDSTR@EE00A AJLM2 RATOA@AAAM>AAP  0 1k(T2HH81(Sorted by long name:Sorted by short name: p ` 6A@z(`h6H@zHP䈀(\(``zpz(K` 6A@zp A n ɠ` (`(w`p(y`p`IzBBp ;p :p` 6A@z(`A@(h6H@zHP(h6H@zHp`@(`@(`@@pA`p ;˄``zpz`EEp(` 6A@z(h6@zHHPp   ` (ꀈ`(`A@p   (`(` 6A@z(h6H@zHP(`zpz(i` p `  [ BBA  p`p (I  A :AA|! AAA+A1 j|A(v7 j(l` 6(=(J h6@ 6HP(F(J@ 6p 6(9` 6(N(khUULO++6P(kpz X(kJ] ǁ b(kgJA k(3 p j  t 1v` p{`{U66A`p{(  @|  ŀ ros 6q *A@ {DDXj\ZV9ALTER_RELOCATABL92833-16209 REV.5000 841008 870622.1455 /P1K/ETC/ALTER/ALTER.PASDeALTER_RELOCATABL ||bW.DAD.DIV.DLD.DST.ENTR .LBT.LPXR .SBT ASSERT CHECKSUM FIND_SYMBOL FMPCLOSE FMP_ERROR_CHECK INSERT_ENTRIESMAKE_ENTRYPAS.1 PAS.2 PAS.INLINEERROR PAS.NONCDSPAS.SETSTRLEN |ZZ bPPAS.STRAPPENDSTRPAS.STRMOVE PAS.STRRANGER PAS.STRRTRIMPAS.WRITECHAR PAS.WRITELINE PAS.WRITESTRPAS.WRITESTRING READ_RECORD WRITE_RECORDZ~~M66 p7p9`&Yp5`(m `MA@6(mpq`5PI("PJ(1PK(@PL(^PM (O(_p7`Qp9`UPPprA 0r(a`Up7`Np9~||6;;`7pr ?r(a`Up7`Lp9`7prA Nr (a`Up7`Lp9`7pr ]r!(a(apq`9(e(l`9 @[p9(opq`qs|·t>>As`Jpq(`( h6@9H  pDh6`9@[H pE`E((`OA@Ep "`5PM((h6@9@[H p8( p8hh88`9@8@Ep`6A@p "`Op;p:`9@8@JpE$#%&'A)'JA:)h(FF8(y:j#*PW(( j"*PV((j*PX((j*PTApf $f+`(e`(>A1,,#8p-A-#>jVVL<**A:.Al`Op;`Lp:JJnˠ`(cVzA#\j:/Aa0#egVEhLL 8g(: ŀWARNING truncating to p`(`:p`LA@Ԅ( AA A(('AA135AJ':A5(gOOn `:pF`FI(`FpF`Op;F6AFJ7`R`p(`EpF`p`֨O<A BAG pAL##c J`(R` ApX#//y8(IM,RY 3 9RU, @/@L ??X5ZV9FINISH92833-16209 REV.5000 841008 870622.1455 /P1K/ETC/ALTER/ALTER.PAS? _FINISH4 [[ ASSERTFMPCLOSEFMPPURGEFMPRENAME FMP_ERROR_CHECK PAS.1 PAS.2 PAS.FIXEDSTRING PAS.NONCDS PAS.WRITELINE PAS.WRITESTR PAS.WRITESTRING [==` (  J ڪ`pp`(`(.A  &A ,JA  2A5Ap:`({Ђ=GG`(c GA N T [A aJA  gA kAqAuAyӨA`p  ~~AA (`(`(`( A   A   `(A Ap~ii\II8(p x ) Purging Renaming to Relocatable altered Relocatable contains no alterable records Relocatable not altered i@)>>XjZV9ALTER 92833-16209 REV.5000 841008 870622.1455/P1K/ETC/ALTER/ALTER.PAS> (ALTER zPAS.1 aPAS.2 MPAS.STOP "ALTER_RELOCATABLBUILD_TREES EXECFINISHINITIALIZEOLDRECORD_IT PAS.CLOSEFILE PAS.INITFILE PAS.INITIALIZE PAS.INITMEMINFO2PAS.NONCDSPAS.RETURNPARMS PAS.SETEXITPARMSPAS.TOPOFSTACK2 PAS.TRACECLOSEww[(RR -Z 5tt[\]^ 79(H=(H`A(HDA(HHAAJMA St__UW Z`Alter Alter: /SYSTEM/ALTER.DAT OLDRE REPORTF  w@k(/PASCAL/ETC/ALTER/ALTER.DAT:::4:54:32 644 0 0 33000 5300501741 36405 /PASCAL/ETC/ALTER/ALTER.DAT:::4:54:32 %%$6 =6 ALTER DAT +++6q FST * /PASCAL/ETC/ALTER/ALTER.DAT 92833-17049 REV.5000 <870720.1930> * * Alter entry point conversion table. * Pas.Library P.001 $PLIB Pas..Dmod P.002 .DMOD Pas.AppendFile P.003 @APND Pas.BitMask P.004 Pas.BitMask0 P.005 Pas.BitMask1 P.006 Pas.BitIndex1 P.007 @BNX1 Pas.BitIndex2 P.008 @BNX2 Pas.BoundInteger P.009 @CKBPas.BoundDouble P.010 @CKBD Pas.RangeInteger P.011 @CKIPas.RangeDouble P.012 @CKID Pas.CheckPtr1 P.013 @CKP1 Pas.CheckPtr2 P.014 @CKP2 Pas.CheckStaksz1 P.015 @CKS1 Pas.CheckStaksz2 P.016 @CKS2 Pas.RangeSet P.017 @CKST Pas.CloseFile P.018 @CLOS Pas.DcbAddress1 P.019 @DCB1 Pas.DcbAddress2 P.020 @DCB2 Pas.BitDeposit1 P.021 @DEP1 Pas.BitDeposit2 P.022 @DEP2 Pas.Dispose1 P.023 @DSP1 Pas.Dispose2 P.024 @DSP2 Pas.EndOfLine P.025 @ELNPas.Entry1 P.026 @ENT1 Pas.Entry2 P.027 @ENT2 Pas.EndOfFile P.028 @EOFPas.RunTimeError P.029 @ERRPas.InLineError P.030 @ERXPas.Exit1 P.031 @EXT1 Pas.Exit2 P.032 @EXT2 Pas.FileError P.033 @FERR Pas.BlankFill P.034 @FILL Pas.Initialize P.035 @FINT Pas.Get P.036 @GETPas.GetMemInfo1 P.037 @GHS1 Pas.GetMemInfo2 P.038 @GHS2 Pas.RunStringLen P.039 @GRNL Pas.RunStringPtr P.040 @GRNS Pas.Halt P.041 @HALT Pas.HiWaterMark1 P.042 @HTS1 Pas.HiWaterMark2 P.043 @HTS2 Pas.IoError P.044 @IERR Pas.TopOfPage P.045 @PAGPas.LinePosition P.046 @LPOS Pas.Image0 P.047 @IMM0 Pas.Image1 P.048 @IMM1 Pas.Image2 P.049 @IMM2 Pas.InitialHeap1 P.050 @INH1 Pas.InitialHeap2 P.051 @INH2 Pas.SegmentError P.052 @LERR Pas.LongRound P.053 @LRND Pas.LineSize P.054 @LSIZ Pas.MaxPosition P.055 @MAX Pas.MoveBytes P.056 @MB Pas.Mark1 P.057 @MRK1 Pas.Mark2 P.058 @MRK2 Pas.New1 P.059 @NEW1 Pas.New2 P.060 @NEW2 Pas.SetTemporary P.061 @NSET Pas.SetInit P.062 @NSIN Pas.Real5Ops P.063 @OP5Pas.OpenFile P.064 @OPEN Pas.Overprint P.065 @OPRT Pas.PackString P.066 @PAKPas.Real5Pack P.067 @PAK5 Pas.EmaError P.068 @PERR Pas.FilePosition P.069 @POSPas.ErrorCatcher P.070 @PREP Pas.ErrorPrinter P.071 @PRER Pas.Prompt P.072 @PRMT Pas.Put P.073 @PUTPas.ReadChar P.074 @RDCPas.ReadDouble P.075 @RDDPas.ReadInteger P.076 @RDIPas.ReadLong P.077 @RDLPas.ReadReal P.078 @RDRPas.ReadString P.079 @RDSPas.ReadNonText P.080 @READ Pas.ReadSequent P.081 @REDPas.Reference P.082 @REFPas.Release1 P.083 @REL1 Pas.Release2 P.084 @REL2 Pas.ResetFile P.085 @RESPas.RewriteFile P.086 @REWPas.ReadLine P.087 @RLNPas.FileNamr P.088 @RNAM Pas.RealRound P.089 @RNDPas.StringAddrs P.090 @S2PPas.SetDiffer P.091 @SDFPas.SeekFile P.092 @SEEK Pas.SetupFile P.093 @SETF Pas.SegmentLoad P.094 @SGLD Pas.SegmentRtn P.095 @SGRT Pas.InitMemInfo1 P.096 @SHN1 Pas.InitMemInfo2 P.097 @SHN2 Pas.SetMemInfo1 P.098 @SHS1 Pas.SetMemInfo2 P.099 @SHS2 Pas.SetInterInit P.100 @SINV Pas.TimeStamp P.101 @STMP Pas.Stop P.102 @STPPas.Subset P.103 @SUBPas.SetUnion P.104 @SUNPas.SetIntersect P.105 @SXNPas.TraceBegin.E P.106 @TBGPas.TraceClose.E P.107 @TCLPas.LongNegate P.108 @TCMPas.TimeString P.109 @TIME Pas.TraceInit.E P.110 @TINPas.TraceEnd.E P.111 @TNDPas.TopOfHeap1 P.112 @TOH1 Pas.TopOfHeap2 P.113 @TOH2 Pas.TopOfStack1 P.114 @TOS1 Pas.TopOfStack2 P.115 @TOS2 Pas.Real5Trunc P.116 @TRC5 Pas.UnpackString P.117 @UPKPas.Real5Unpack P.118 @UPK5 Pas.RecValParm P.119 @VALPas.RecVarParm P.120 @VARPas.RecVarHPO P.121 @VARM Pas.NoRecVarParm P.122 @VARN Pas.IoWarning P.123 @WARN Pas.WordBitMove P.124 @WB1Pas.WriteLine P.125 @WLNPas.WriteBoolean P.126 @WRBPas.WriteChar P.127 @WRCPas.WriteDouble P.128 @WRDPas.WriteInteger P.129 @WRIPas.WriteNonText P.130 @WRIT Pas.WriteLong P.131 @WRLPas.WriteReal P.132 @WRRPas.WriteString P.133 @WRSPas.WriteAnyReal P.134 @WRTT Pas.BitExtract1 P.135 @XTR1 Pas.BitExtract2 P.136 @XTR2 Pas.ClearFile P.137 @ZTFPas.TraceBegin P.138 ^TBGPas.TraceClose P.139 ^TCLPas.TraceInit P.140 ^TINPas.TraceEnd P.141 ^TNDPas.BackGrndCom1 P.142 BGCO1 Pas.BackGrndCom2 P.143 BGCO2 Pas.BackGrndSize P.144 BGSIZ Pas.BitOperator1 P.145 BTOP1 Pas.BitOperator2 P.146 BTOP2 Pas.StopDummy P.147 GEN_D Pas.HeapStack1 P.148 HSL1Pas.HeapStack2 P.149 HSL2Pas.Mapr P.150 MAPRPas.PlibA P.151 PLIBA Pas.PlibP P.152 PLIBP Pas.Errors P.153 PSERR Pas.RealInput P.154 READR Pas.EntryExit1 P.155 RECR1 Pas.EntryExit2 P.156 RECR2 Pas.Parameters P.157 RSPAR Pas.RealTimeCom1 P.158 RTCO1 Pas.RealTimeCom2 P.159 RTCO2 Pas.RealTimeSize P.160 RTSIZ Pas.SetPackage1 P.161 SETP1 Pas.Segment P.162 SEGER Pas.DynamicMem1 P.163 STAK1 Pas.DynamicMem2 P.164 STAK2 Pas.Time P.165 TIMEPas.Trace.A P.166 TRACA Pas.Trace.B P.167 TRACB Pas.Trace.C P.168 TRACC Pas.TraceDummy P.169 TRACE Pas.RealOperator P.170 WRTL2 Pas.BlankSize (( P.171 Pas.BlankPtr1 P.172 Pas.BlankPtr2 P.173 Pas.LabelSize P.174 Pas.LabelPtr1 P.175 Pas.LabelPtr2 P.176 Pas.ShortLib P.177 Pas.ShortLib1 P.178 Pas.ShortLib2 P.179 Pas...Segmenter P.180 Pas.TraceLU P.181 Pas.GlobalInfo P.182 Pas.SetShared P.183 Pas.SharedSize P.184 Pas.NumericParms P.185 Pas.SplitMove P.186 Pas.ReadBuffer P.187 Pas.BasicStrings P.188 Pas.BasicStringI P.189 Pas.BasicStringO P.190 Pas.NonCDSLib P.191 Pas.NonCDS P.192 Pas.LongErrors P.193 Pas.ShortErrors P.194 Pas.BlankCom1 P.195 Pas.BlankCom2 P.196 Pas.CDSConflict P.197 Pas.LabelCom1 P.198 Pas.LabelCom2 P.199 Pas.Coalesce1 P.200 Pas.Coalesce2 P.201 Pas.DynamicDump1 P.202 Pas.DynamicDump2 P.203 Pas.Garbage1 P.204 Pas.Garbage2 P.205 Pas.LoWaterMark2 P.206 Pas.FileOpenable P.207 Pas.A1SharedSize P.208 Pas.A1SetShared P.209 Pas.NewFileLib P.210 Pas.OldFileLib P.211 Pas.FileIO P.212 Pas.FileName P.213 Pas.ClosePurge P.214 Pas.Double2Ascii P.215 Pas.Ascii2Double P.216 Pas.Real2Ascii P.217 Pas.Append_File P.218 Pas.Reset_File P.219 Pas.Rewrite_File P.220 Pas.Open_File P.221 Pas.WriteEnum P.222 Pas.PrepNonText P.223 Pas.ReadEnum P.224 Pas.Binary P.225 Pas.Octal P.226 Pas.Hex P.227 Pas.HaltOnly P.228 Pas.Convert P.229 Pas.ShiftnPut P.230 Pas.DoubleMod P.231 Pas.SingleMod P.232 Pas.StrIOError P.233 Pas.StrGet P.234 Pas.FileInit P.235 Pas.Fmp P.236 Pas.SReadLong P.237 Pas.SReadReal P.238 Pas.ErrorExit P.239 Pas.GotErrorExit P.240 Pas.Scratch6 P.241 Pas.CurrMarc1 P.242 Pas.CurrMarc2 P.243 Pas.Dispose1S P.244 Pas.Dispose2S P.245 Pas.FixedString P.246 Pas.FReal2ASCII P.247 Pas.FRiteAnyReal P.248 Pas.FRiteLong P.249 Pas.FRiteReal P.250 Pas.HaltProgram P.251 Pas.HiWaterHeap1 P.252 Pas.HiWaterHeap2 P.253 Pas.Etc_A P.254 Pas.InitFile P.255 Pas.LastPosition P.256 Pas.LoWaterHeap1 P.257 Pas.LoWaterHeap2 P.258 Pas.LoWaterMark1 P.259 Pas.Mark1S P.260 Pas.Mark2S P.261 Pas.Max P.262 Pas.MemData1 P.263 Pas.MemData2 P.264 Pas.Min P.265 Pas.MovePACDown P.266 Pas.MovePACUp P.267 Pas.Strings P.268 Pas.New1S P.269 Pas.New2S P.270 Pas.PrevFree1 P.271 Pas.PrevFree2 P.272 Pas.ReadStr P.273 Pas.ReadStrFile P.274 Pas.Release1S P.275 Pas.Release2S P.276 Pas.MainModInit P.277 Pas.SegmentedMod P.278 Pas.SegModInit P.279 Pas.ValidString P.280 Pas.SetStrLen P.281 Pas.SFRiteAReal P.282 Pas.SFRiteLong P.283 Pas.SFRiteReal P.284 Pas.SParameters P.285 Pas.SReadAOC P.286 Pas.SReadChar P.287 Pas.SReadDouble P.288 Pas.SReadEnum P.289 Pas.SReadInt P.290 Pas.SReadString P.291 Pas.Str P.292 Pas.StrAppendPAC P.293 Pas.StrAppendStr P.294 Pas.StrBumpUp P.295 Pas.StrCompare P.296 Pas.StrDelete P.297 Pas.StrEndCheck P.298 Pas.StrEndError P.299 Pas.StrEnders P.300 Pas.StrEnds P.301 Pas.StringData P.302 Pas.StringData1 P.303 Pas.StringData2 P.304 Pas.StringIndex P.305 Pas.StrInsert P.306 Pas.StrLen P.307 Pas.StrLTrim P.308 Pas.StrMax P.309 Pas.StrMove P.310 Pas.StrPos P.311 Pas.StrPut P.312 Pas.StrRanger P.313 Pas.StrRpt P.314 Pas.StrRTrim P.315 Pas.StrValParm P.316 Pas.SWriteAOC P.317 Pas.SWriteAReal P.318 Pas.SWriteChar P.319 Pas.SWriteCheck P.320 Pas.SWriteDouble P.321 Pas.SWriteEnum P.322 Pas.SWriteInt P.323 Pas.SWriteLong P.324 Pas.SWriteReal P.325 Pas.SWriteString P.326 Pas.TraceBack P.327 Pas.TraceB.N2A P.328 Pas.TraceB.Put P.329 Pas.TraceC.N2A P.330 Pas.TraceC.Put P.331 Pas.TraceDataA P.332 Pas.TraceDataB P.333 Pas.TraceDataC P.334 Pas.UpshiftAlpha P.335 Pas.WriteStr P.336 Pas.WriteStrFile P.337 Pas.XLBT P.338 Pas.XSBT P.339 Pas.LoadrHeap2 P.340 Pas.Append_Text P.341 Pas.Append_NonT P.342 Pas.Reset_Text P.343 Pas.Reset_NonT P.344 Pas.Rewrite_Text P.345 Pas.Rewrite_NonT P.346 Pas.Setup_Text P.347 Pas.Setup_NonT P.348 Pas.Setup_Name P.349 Pas.ExtNameLen P.350 $$$LARGEMA1$$$ P.351 $$$LARGEMA2$$$ P.352 PASCAL_FMGR P.353 PASCAL_FMGR_ALT P.354 Pas.SkipBlanks P.355 Pas.GetNewParms P.356 Pas.OptDecode P.357 Pas.IEndOfLine P.358 Pas.PostFile P.359 Pas.SetExitParms P.360 Pas.ExitData P.361 Pas.ExitDataPtr P.362 Pas.ReturnParms P.363 PAS_FMGR_TMP P.364 Pas.ExitDataSet P.365 /PASCAL/ETC/ALTER/ALTER.LOD:::4:1:29 644 0 0 400 5300501743 35201 /PASCAL/ETC/ALTER/ALTER.LOD:::4:1:29 $$$ > ALTER LOD +++IBFST * /PASCAL/ETC/ALTER.LOD 92833-17050 REV.5000 <870504.1338>* op vm ws 50 li pascal.lib re /pascal/etc/alter/alter.relen/PASCAL/ETC/ALTER/ALTER.DOC:::3:61:40 644 0 0 36400 5300502013 34772 /PASCAL/ETC/ALTER/ALTER.DOC:::3:61:40 %%$= @=(ALTER DOC + + + =FFST ! { /PASCAL/ETC/ALTER/ALTER.DOC 92833-17100 REV.5000 <870622.1457> } ! 1 & How To Use ALTER Mon Jun 22, 1987 2:57 pm && Contents Page 1 &  HOW TO USE ALTER    CONTENTS   1. Introduction .................................. 2   2. Installing ALTER .............................. 3   3. Running ALTER ................................. 4   4. Loading ALTERed Relocatables .................. 5   5. ALTER.DAT Format ...............................6   6. ALTER Error Messages .......................... 7 1 & How To Use ALTER Mon Jun 22, 1987 2:57 pm && Introduction Page 2 &    1. INTRODUCTION  " ALTER is a program which translates "new" relocatable files into" the "old" format supported on RTE-IVB, RTE-IVE, and RTE-L.$ Though not all programs can be translated, ALTER allows many programs $ to be developed on RTE-6 or RTE-A, and then be loaded and run ! on an old system. It also allows one relocatable (the ALTERed!$ relocatable) to be loaded and run on any of RTE-6, A, IVB, IVE, L, or $ XL). $ ALTER's main function is to translate the "long" (up to 16-character) $$ entry and external names in a relocatable to "short" (5-characters or $# less) names. The other new features are translated by the program# OLDRE, which ALTER schedules.   Programs which can be ALTERed are those that:  " o do not have any EMA_VAR's (the normal EMA heap may be used, " but EMA_VAR's generate ALLOC records which cannot be translated)  % o do not access the new File System (i.e. access only FMGR files).%1 &(( How To Use ALTER Mon Jun 22, 1987 2:57 pm && Installing Alter Page 3 &    2. INSTALLING ALTER     ALTER is installed using the following steps:    a. RESTORE FILES  % If the /Pascal directory is already on your system, skip this step.%# If the /Pascal directory is not on your system, the files needed #! to install ALTER can be restored onto your disc as follows:!  o From Tape (Magnetic tape or Cartridge tape):  CI> tf co {/Pascal/Install/},,dk  CI> tr /Pascal/Install/Restore_Alter   o From Floppy   o Copy the contents of the Install and Alter floppies  onto your disc. These are:  o 8" Floppies #1 and #5  o 5.25" Minifloppies #1 and #5 o 3.5" Microfloppies #1 and #5   o The files are copied with the sequence:  CI> mc  CI> tr /F/Restore_Floppy  CI> dc    b. INSTALL FILES   From any working directory, enter the command  CI> tr /Pascal/Install/Install_Alter  ! This will load ALTER and install ALTER's translation table,! ALTER.DAT in the /System directory.1 & How To Use ALTER Mon Jun 22, 1987 2:57 pm && Running Alter Page 4 &    3. RUNNING ALTER    ALTER is executed by issuing the command:   CI> alter   # The relocatable file given to ALTER will be REPLACED by the ALTERed #$ relocatable. If you want to keep the original file with long names,$ a copy must be made before running ALTER.  $ If you have revision 5.0 or later of OLDRE, the relocatable file can$" be either on a file system volume or on a FMGR cartridge. If you "# have a revision of OLDRE that is prior to 5.0, the relocatable file #% must be on a FMGR cartridge only (pre 5.0 ALTER understood file system% files but pre 5.0 OLDRE did not).   ALTER operation proceeds as follows:  a. The data file /SYSTEM/ALTER.DAT is read in.  # b. A scratch file is created in which to ALTER the relocatable.# # c. The scratch file is built from the original file, translating #" all long names to short ones using the following algorithm: " # c.1. If the name appears in the file /System/Alter.Dat along #$ with a 5-character (or less) substitute on the same line, $! then the long name is replaced with the short one.! # c.2. If the name does not appear in /System/Alter.Dat, then# the long name is truncated to 5 characters, and a  warning message is printed to the screen.  " c.3. If more than one long name is translated or truncated " to the same short name, a fatal error message is  generated, and ALTER is aborted. " c.4. If a name beginning with the characters 'Pas.' is not "" found in the table, an error message is printed, and"# ALTER is aborted. This can be corrected by adding the## offending symbol to ALTER.DAT with a unique 5-character # name, and rerunning ALTER. ! d. If there are no errors detected in translating the file,!! then OLDRE is scheduled to translate the rest of the file ! to old format. If OLDRE succeeds, the original file is purged, and the scratch file is renamed to the name of  the original file. 1 & How To Use ALTER Mon Jun 22, 1987 2:57 pm && Running Alter Page 5 & " e. If ALTER detects an error, the scratch file is purged, and"! a message is displayed telling you that the original file ! remains unmodified. 1 & How To Use ALTER Mon Jun 22, 1987 2:57 pm && Loading Altered Relocatables Page 6 &    4. LOADING ALTERED RELOCATABLES   % Once a program has been altered, it can be loaded on RTE-IVB, RTE-IVE,% or RTE-L (as well as RTE-6/VM and RTE-A and RTE-A/VC+).  & To load an altered Pascal program, you must use altered Pascal libraries. & ! The following command sequence might be used to compile, alter, ! load and run a program on RTE-A:  CI> wd /examples CI> pascal test   CI> co test.rel %test::0  CI> alter %test::0  CI> co %test::0 test_alt.rel   CI> link test test_alt.rel pascal_fmgr_alt.lib  CI> test  % If you have revision 5.0 or later of OLDRE, you can eliminate the copy%$ to and from the FMGR cartridge and just alter test_alt.rel directly.$ $ For systems like RTE-IVB, the relocatable %test::0 would be moved to$ the IVB system, and then loaded with the command:    :RU,LOADR,#TEST   where #TEST is the file containing the commands:  LI,=PLIB  RE,%TEST  EN    Special considerations:   o Altered programs can access FMGR files only. o Programs using $EMA_VAR$ or Modules cannot be altered. $ o Programs using $HEAP 2$ (EMA) can be altered and run on IVB and $" IVE if the VMA compatibility library ($VMCLB) is searched." This library is supplied with the system.  o Programs using $HEAP 2$ will not run on RTE-L.% o Altered programs can use the short heap manager by searching the% library =SHSLB (aka /LIBRARIES/SHSLB_ALT.LIB).% o Altered programs can use the short error processor by relocating%" the relocatable =PRERS (aka /LIBRARIES/PASCAL_ERR_ALT.REL). " 1 & How To Use ALTER Mon Jun 22, 1987 2:57 pm && ALTER.DAT Format Page 7 &    5. ALTER.DAT FORMAT  # ALTER uses the data file /SYSTEM/ALTER.DAT to translate long names## into short ones. The data file is simply a text file, each line of #$ which contains a long name, followed by its corresponding short name. $$ Any text following the short name is ignored. (This area is normally $% used for comments; for example, the corresponding names of the routines % in the RTE-IVB Pascal library are shown where appropriate.)  % Comment lines can be included by placing a '*' in column 1 of the line. % The first few lines of ALTER.DAT are shown below:    " * /PASCAL/ETC/ALTER/ALTER.DAT 92833-17049 REV.2401 <870622.1457>" *  * Alter entry point conversion table.  *  Pas.Library P.001 $PLIB  Pas..Dmod P.002 .DMOD  Pas.AppendFile P.003 @APND  Pas.BitMask P.004  Pas.BitMask0 P.005  Pas.BitMask1 P.006  Pas.BitIndex1 P.007 @BNX1  Pas.BitIndex2 P.008 @BNX2  Pas.BoundInteger P.009 @CKB Pas.BoundDouble P.010 @CKBD  Pas.RangeInteger P.011 @CKI Pas.RangeDouble P.012 @CKID  Pas.CheckPtr1 P.013 @CKP1  Pas.CheckPtr2 P.014 @CKP2  Pas.CheckStaksz1 P.015 @CKS1  Pas.CheckStaksz2 P.016 @CKS2 1 & How To Use ALTER Mon Jun 22, 1987 2:57 pm && Alter Error Messages Page 8 &    6. ALTER ERROR MESSAGES  # The following messages are written to the terminal by ALTER when an # error is detected.     'FMP error on /SYSTEM/ALTER.DAT ( )'  An FMP error was detected in trying to read the data file.  The file must be in /SYSTEM.    'FMP error on ( )' 'FMP error on ( )' ! An FMP error was detected on one of the files manipulated by ! ALTER. Note which file, and the error message, and take  corrective action.    'FMP error on RU,OLDRE, ( )'  # ALTER could not schedule the program OLDRE. Make sure OLDRE.RUN ## exists either in the current working directory or in /Programs.#   'WARNING: truncating to '  % ALTER truncated a long symbol name that did not appear in ALTER.DAT. %$ ALTER will check the current relocatable for conflicts (other long $% names truncated to the same short name). You should make sure that%# no conflicts will occur when Altering other relocatables for the # same program.    'Relocatable file is not type 5'   The file given to ALTER is not a valid relocatable file.    'Checksum error' 'Symbol length error'  'Invalid symbol start in XNAM record'  'Invalid symbol count in XENT record'  'Invalid symbol count in XEXT record'  'Invalid symbol count in RPL record' 'Relocatable is corrupt'   The relocatable file given to ALTER is corrupt.1 & How To Use ALTE((R Mon Jun 22, 1987 2:57 pm && Alter Error Messages Page 9 &    'Name too long'  $ One of the names in ALTER.DAT is too long. Either a long name has $% more than 16 characters, or a short name has more than 5 characters. % The offending line is printed following this error.   'Name too short'  ! One of the long names in ALTER.DAT has 5 or less characters. ! The offending line is printed following this error.   'Name missing'  " A long name appears on a line in ALTER.DAT, but no short name"# follows it. The offending line is printed following this error. #   'Duplicate long name '  Two identical long names were found in ALTER.DAT.   'Duplicate short name '   Two identical short names were found in ALTER.DAT.    'The symbol is not in ALTER.DAT'  " A symbol that begins with the characters 'PAS.' must appear in "$ ALTER.DAT. All of the Pascal library routine names are already in $" the file, but some programs can generate others which aren't."$ To correct the problem add to ALTER.DAT, and give it$$ a unique 5-character name. For example, when a program has global $$ labels (PROGRAM test; LABEL 900; ...), the compiler will generate$# a symbol such as 'PAS.400', which is not in ALTER.DAT. To alter # this program the following line is added to ALTER.DAT:   Pas.400 P400    'SEVERE ERROR!'  Successfully purged original, But could not rename to be new  Altered file is in ' " The rename of the scratch file to the relocatable file failed. "# The rename can be done manually once the problem has been fixed. #1 & How To Use ALTER Mon Jun 22, 1987 2:57 pm && Alter Error Messages Page 10 &   'Unexpected internal error'  ' ALTER discovered an internal problem. This should be reported as a bug. '   'Relocatable contains no alterable records'  # The file given to ALTER is already in old format. Make sure you ## specified the file you intended to alter. This message will be# printed, for example, if the same file is altered twice.    'OLDRE returned failure (Exit status )'  # The OLDRE program was scheduled, but failed. Look for a message # on the screen generated by OLDRE.   'Relocatable not altered'  $ This message follows other error messages. It is to let you know$# that your original relocatable has been left intact in the "new" # format.E PGONSET CAN'T BE DISPLAYED WITH FILLING. DISPLAY PJ1282''C THE PGONSET'S FILL BOUNDARY AS MOVES AND DRAWS. PJ1282''C OPTIMIZE MOVES AND DRAWS SO MOVES DON'T CO/PASCAL/INSTALL/SAMPLE.PAS:::4:3:33 644 0 0 1400 5300501744 35420 /PASCAL/INSTALL/SAMPLE.PAS:::4:3:33 ##$ >$!SAMPLE PAS +++1FST { /PASCAL/INSTALL/SAMPLE.PAS 92833-17062 REV.5000 <870504.1338>} $DEBUG$  PROGRAM sample (output);  CONST  number_of_disks = 4;   PROCEDURE move (n : INTEGER; s, d, i : CHAR);BEGIN  IF (n > 0) THEN BEGIN move (n-1, s, i, d); ! writeln (output, ' Move disk', n:3, ' from ', s, ' to ', d);! move (n-1, i, d, s);  END; END; BEGIN  writeln (output, ' Tower of Hanoi solution for',  number_of_disks:3, ' disks:'); writeln (output);   move (number_of_disks, 'A','C','B'); END.N THE DISPLAY BS9011''C WHEN IT SHOULD NOT HAVE. (THE LINE SHOULD NOT BE BS9011''C DISPLAYED UNTIL A NFA). /PASCAL/INSTALL/INSTALL:::4:9:38 644 0 0 4400 5300501746 35170 /PASCAL/INSTALL/INSTALL:::4:9:38 $ >( &INSTALL +++ K1FST * /PASCAL/INSTALL/INSTALL 92833-17071 REV.5000 <870624.1630>* %* You may install Pascal by invoking one of the default installation files %%* (Install_C, Install_A, or Install_6), or you may invoke Install directly %* to specify other options.* $* Please double-check your options before starting up the command file.$#* All options MUST be specified for the installation to work properly. #* #* (For further information and guidelines regarding these options,#* see also: Pascal/1000 Configuration Guide, 92833-90003) * *CI> Install [C|A|6] [Cds|Std] [WS pages] [CdsOn|CdsOf] * | | | | * | | | | * | | | $* | | | 4. Code Generation Default: $%* | | | CdsOn = generate Cds code%%* | | | CdsOf = generate Std code% * | | * | | 3. Compiler's Working Set:!* | | Cds compiler: WS in {30..150}!!* | | Std compiler: WS in {150..400} ! * | | * * 1. and 2. $* C Cds = Shareable compiler running on RTE-A (CDS machine) $$* A Std = Nonshareable compiler running on RTE-A (non-CDS)$* 6 Std = Nonshareable compiler running on RTE-6* * Example: /Pascal/Install/Install C Cds 100 CdsOn * * "* 1. Install Pascal libraries into /Libraries."/Pascal/Install/Install_Libs* $* 2. Configure Pascal compiler link command files.$/Pascal/Install/Config_Cmp $1 $2 $3 $4* !* 3. Install Pascal compiler into /Programs.! /Pascal/Install/Install_Cmp * %* 4. Compile, link, and run a sample Pascal program.% /Pascal/Install/Test_Std * "* 5. Test a sample CDS program, if we're on VC+ " IF is $opsy = -61; THEN /Pascal/Install/Test_Cds FI/PASCAL/INSTALL/INSTALL_LIBS:::3:2:33 644 0 0 1000 5300501750 36634 /PASCAL/INSTALL/INSTALL_LIBS:::3:2:33 %%$ >4!INSTALL_LIBS +++FST * /PASCAL/INSTALL/INSTALL_LIBS 92833-17072 REV.5000 <870514.2317> * * This command file copies:* o Pascal libraries to: /Libraries * o Pascal syntax error file to: /System* * (This file is normally invoked by /Pascal/Install/Install) * /Pascal/Install/Install_Cds_Libs/Pascal/Install/Install_Std_Libs/Pascal/Install/Install_FMGR_Lib/Pascal/Install/Install_Alt_Libs/Pascal/Install/Install_Err_File* * /PASCAL/INSTALL/CONFIG_CMP:::4:4:35 644 0 0 2000 5300501751 36116 /PASCAL/INSTALL/CONFIG_CMP:::4:4:35 ##$ >8#CONFIG_CMP +++FST * /PASCAL/INSTALL/CONFIG_CMP 92833-17073 REV.5000 <870504.1340> * !* This command file configures a Pascal compiler by modifying the!* Link command file. It is invoked with the command:* * Config_Cmp [C|A|6] [Cds|Std] [WS pages] [CdsOn|CdsOf]* * (this file is normally invoked by /Pascal/Install/Install, !* which also shows the descriptions for the parameters above)!* * * 1. Make PASCOMP.LOD to load PASCOMP * co /pa((scal/cmp/$2/pascomp_$1.lod PASCOMP.LOD d edit PASCOMP.LOD b/ws/|rWS $3|b/^re,@cdsof/|g/cdsof/$4/|1,30ln|er * * * 2. Make PASCAL.LOD to load PASCAL * co /pascal/cmp/$2/pascal_$1.lod PASCAL.LOD d* "* 3. Make LINK big enough to load PASCOMP "* /pascal/install/size_up_link_$1 * * ******************************************************************$ IMPLICIT NONE $C***********************************/PASCAL/INSTALL/INSTALL_CMP:::4:2:37 644 0 0 1000 5300501752 36461 /PASCAL/INSTALL/INSTALL_CMP:::4:2:37 $$$ ><%INSTALL_CMP +++ FST * /PASCAL/INSTALL_CMP 92833-17074 REV.5000 <870504.1340>* $* This command file links /Programs/Pascomp.Run and /Programs/Pascal.Run $* (this file is normally invoked by /Pascal/Install) * !* 1. Link PASCOMP!link /programs/pascomp.run pascomp.lod * 2. Link PASCAL link /programs/pascal.run pascal.lod * * * /PASCAL/INSTALL/TEST_STD:::4:3:38 644 0 0 1400 5300501754 35542 /PASCAL/INSTALL/TEST_STD:::4:3:38 !!$ >@&TEST_STD +++7FST * /PASCAL/INSTALL/TEST_STD 92833-17075 REV.5000 <870504.1340> * * This command file compiles, links, and runs a sample * Standard (non-CDS) Pascal program. * * (This file is normally invoked by /Pascal/Install/Install) * * * 1. Compile sample.pas into sampleS.rel * pascal /pascal/install/sample 1 sampleS.rel ,, cds=OFF* * %* 2. Link sampleS.rel, pascal.lib into sampleS.run %* link sampleS.run sampleS.rel +sz:32 pascal.lib* * * 3. Run sampleS.run sampleS * IED, RE- * ##C * PRODUCED, OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH- * ##C * OUT THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKA/PASCAL/INSTALL/TEST_CDS:::4:3:37 644 0 0 1400 5300501755 35434 /PASCAL/INSTALL/TEST_CDS:::4:3:37 !!$ >D%TEST_CDS +++FST * /PASCAL/INSTALL/TEST_CDS 92833-17076 REV.5000 <870504.1340> * %* This command file compiles, links, and runs a sample CDS Pascal program%* (This file is normally invoked by /Pascal/Install/Install) * * * 1. Compile sample.pas into sampleC.rel * pascal /pascal/install/sample 1 sampleC.rel ,,CDS=ON* * * 2. Link sampleC.rel, pascal_CDS.lib into samC.run * link sampleC.run sampleC.rel +sz:32 pascal_CDS.lib* * * 3. Run sampleC.run * sampleC * S INFORMATION WHICH IS PROPRIETARY TO THE * ##C * REGENTS OF THE UNIVERSITY OF COLORADO, A BODY CORPORATE, AND * ##C * IS NOT TO BE DISCLOSED TO ANYONE WHO IS NOT UNDER THE OBLIGATION* ##C * /PASCAL/INSTALL/INSTALL_C:::4:3:36 644 0 0 1400 5300501757 35606 /PASCAL/INSTALL/INSTALL_C:::4:3:36 ""$ >H$INSTALL_C +++FST * /PASCAL/INSTALL/INSTALL_C 92833-17077 REV.5000 <870624.1621>* #* This command file installs a compiler with the following attributes: # * o Runs on RTE A, on an A900, A700, or A600+ (CDS machines) * o Shareable Cds Compiler * o Working Set of 100 pages * o Std code generation ($CDS OFF$ by default) * * !* You may, instead, invoke Install directly if you want to change!#* any of the option settings (see Install for parameter descriptions). #* /Pascal/Install/Install C Cds 100 CdsOf * MT6  CPA LCOMM  RSS  JMP PRMT4 PRMT6 LDA PRADD GET BUFFER ADDRESS LDB PRMTB GET LENGTHPRMT3 JSB \TRCH GO DO TR THING  CLA RESET IF/PASCAL/INSTALL/INSTALL_A:::4:3:36 644 0 0 1400 5300501760 35612 /PASCAL/INSTALL/INSTALL_A:::4:3:36 ""$ >L$INSTALL_A +++FST * /PASCAL/INSTALL/INSTALL_A 92833-17078 REV.5000 <870624.1620>* #* This command file installs a compiler with the following attributes: # * o Runs on RTE A, on any A-Series (A900, A700, A600+, A600) * o Non-shareable Std Compiler * o Working Set of 250 pages * o Std code generation ($CDS OFF$ by default) * * !* You may, instead, invoke Install directly if you want to change!#* any of the option settings (see Install for parameter descriptions). #* /Pascal/Install/Install A Std 250 CdsOf * -RETURN-* * THE PRAM BUFFER IS 25 WORDS LONG AND CONTAINS UP TO 6 * PRAMETER DESCRIPTERS FOLLOWED BY THE PRAMETER COUNT.* * EACH PARAMETER DESCRIPTER CONSISTS OF FOUR/PASCAL/INSTALL/INSTALL_6:::4:4:36 644 0 0 2000 5300501762 36014 /PASCAL/INSTALL/INSTALL_6:::4:4:36 ""$ >P$INSTALL_6 +++FST * /PASCAL/INSTALL/INSTALL_6 92833-17079 REV.5000 <870624.1620>* #* This command file installs a compiler with the following attributes: # * o Runs on RTE 6 * o Non-shareable Std Compiler * o Working Set of 250 pages * o Std code generation ($CDS OFF$ by default) * * !* You may, instead, invoke Install directly if you want to change!#* any of the option settings (see Install for parameter descriptions). #* "* WARNING: This installation creates a larger version of Link which ""* is capable of loading Pascal. If another copy of Link is RP'ed at ""* the time Pascal is loaded, the RP'ed Link will be used instead of"#* the new large Link. Please do a "OF,LINK,ID" before executing this#* command file.* /Pascal/Install/Install 6 Std 250 CdsOf * PEMP4 = PARAMETER VALUE ADDRESS. * PBUF = DEF PEMP5 (7 LOCATIONS) * PBUFS = DEF PEMP5+7* \PARS NO/PASCAL/INSTALL/INSTALL_ALTER:::4:2:33 644 0 0 1000 5300501763 37106 /PASCAL/INSTALL/INSTALL_ALTER:::4:2:33 &&$ >T!INSTALL_ALTER +++ FST !* /PASCAL/INSTALL/INSTALL_ALTER 92833-17083 REV.5000 <870504.1342>!* * This command file installs the program ALTER into /Programs, * and the data file ALTER.DAT in /System.* Link /Pascal/Etc/Alter/Alter.Lod /Programs/Alter.Run * Co /Pascal/Etc/Alter/Alter.Dat /System/Alter.Dat d * evel attribute routines as part of ACB181''C Y-level enhancements. ACB181''C ((/PASCAL/INSTALL/INSTALL_STD_LIBS:::4:3:35 644 0 0 1400 5300501767 40026 /PASCAL/INSTALL/INSTALL_STD_LIBS:::4:3:35 ))$ @#INSTALL_STD_LIBS +++5FST "* /PASCAL/INSTALL/INSTALL_STD_LIBS 92833-17086 REV.5000 <870504.1342> "* * This command file copies:* o Std instruction set Pascal libraries to /Libraries * !* (This file is normally invoked by /Pascal/Install/Install_Libs)!* co /pascal/lib/std/pascal.lib /libraries/ d co /pascal/lib/std/pascal_err.rel /libraries/ d co /pascal/lib/std/pascal_tra.rel /libraries/ d co /pascal/lib/std/pascal_trb.rel /libraries/ d co /pascal/lib/std/pascal_trc.rel /libraries/ d co /pascal/lib/std/pascal_lh2.rel /libraries/ d * * 000000oEZ Y N C RBEX LIB 1 22A 8402081600 92857-12008 232692857-12008 232601A22611i$RLIB1 /PASCAL/INSTALL/INSTALL_CDS_LIBS:::4:2:35 644 0 0 1000 5300501771 40212 /PASCAL/INSTALL/INSTALL_CDS_LIBS:::4:2:35 ))$ @#INSTALL_CDS_LIBS +++ FST "* /PASCAL/INSTALL/INSTALL_CDS_LIBS 92833-17087 REV.5000 <870504.1342> "* * This command file copies:* o Cds instruction set Pascal libraries to /Libraries * !* (This file is normally invoked by /Pascal/Install/Install_Libs)!* co /pascal/lib/cds/pascal_cds.lib /libraries/ d co /pascal/lib/cds/pascal_cerr.rel /libraries/ d co /pascal/lib/cds/pascal_ctra.rel /libraries/ d * * /PASCAL/INSTALL/INSTALL_FMGR_LIB:::4:3:35 644 0 0 1400 5300501772 37710 /PASCAL/INSTALL/INSTALL_FMGR_LIB:::4:3:35 ))$ @#INSTALL_FMGR_LIB +++ FST "* /PASCAL/INSTALL/INSTALL_FMGR_LIB 92833-17088 REV.5000 <870514.2316> "* * This command file installs the old Pascal libraries. * o FMGR-access-only Pascal library (Std instruction set)#* o Short heap/stack library (for use with relocatables generated#* by pre-2401 compilers) * !* (This file is normally invoked by /Pascal/Install/Install_Libs)!* co /pascal/lib/std/pascal_fmgr.lib /libraries/ d co /pascal/lib/std/shslb.lib /libraries/ d * * ADDITION TMB191''C OF POLYGON ATTRIBUTES. IT WENT FROM A VALUE OF 5 TO TMB191''C A VALUE OF 7. CLASS 4, INQUIRY, DID NOT HAVE ITS TMB191''C VALUE CHANGED TO 6 AS IT SHOULD BE /PASCAL/INSTALL/INSTALL_ALT_LIBS:::4:2:35 644 0 0 1000 5300501774 40267 /PASCAL/INSTALL/INSTALL_ALT_LIBS:::4:2:35 ))$ @#INSTALL_ALT_LIBS +++ FST "* /PASCAL/INSTALL/INSTALL_ALT_LIBS 92833-17089 REV.5000 <870504.1343> "* * This command file copies:* o Altered Pascal libraries to /Libraries * !* (This file is normally invoked by /Pascal/Install/Install_Libs)!* co /pascal/lib/std/pascal_fmgr_alt.lib /libraries/ d co /pascal/lib/std/shslb_alt.lib /libraries/ d co /pascal/lib/std/pascal_err_alt.rel /libraries/ d * * /PASCAL/INSTALL/INSTALL_ERR_FILE:::4:2:35 644 0 0 1000 5300501775 40202 /PASCAL/INSTALL/INSTALL_ERR_FILE:::4:2:35 ))$ @#INSTALL_ERR_FILE +++ FST "* /PASCAL/INSTALL/INSTALL_ERR_FILE 92833-17090 REV.5000 <870504.1343> "* * This command file copies:* o Pascal syntax error file to: /System* !* (This file is normally invoked by /Pascal/Install/Install_Libs)!* co /pascal/cmp/pascal.err /system/ d * * S OF THE * ##C * UNIVERSITY OF COLORADO OR HEWLETT-PACKARD COMPANY. * ##C * * ##C ****************************/PASCAL/INSTALL/RESTORE_LIBS:::4:2:33 644 0 0 1000 5300501777 37135 /PASCAL/INSTALL/RESTORE_LIBS:::4:2:33 %%$ @!RESTORE_LIBS +++ FST * /PASCAL/INSTALL/RESTORE_LIBS 92833-17091 REV.5000 <870504.1343> * !* This command file restores, from TF tape, all Pascal libraries.! * (1 parameter: ) * * e.g CI> ci Restore_Libs 8 * * tf co $1{/pascal/lib/} ,,dk * * GB6171''C GB6171''C GB 6/17/81 CALL TO IRMNY HAD WRONG NUMBER OF PARAMETERS. GB6171''C /PASCAL/INSTALL/RESTORE_STD_CMP:::4:2:34 644 0 0 1000 5300502001 36616 /PASCAL/INSTALL/RESTORE_STD_CMP:::4:2:34 (($ @"RESTORE_STD_CMP +++FST "* /PASCAL/INSTALL/RESTORE_STD_CMP 92833-17092 REV.5000 <870504.1345>"* * This command file restores, from TF tape, the relocatables and * link command files necessary to load the Std instruction set * version of the Pascal compiler. * (1 parameter: ) * * e.g. CI> ci Restore_Std_Cmp 8 * * * tf co $1{/pascal/cmp/@.@.n, /pascal/cmp/std/} ,,dk* * /PASCAL/INSTALL/RESTORE_CDS_CMP:::4:2:34 644 0 0 1000 5300502002 36550 /PASCAL/INSTALL/RESTORE_CDS_CMP:::4:2:34 (($ @"RESTORE_CDS_CMP +++FST "* /PASCAL/INSTALL/RESTORE_CDS_CMP 92833-17093 REV.5000 <870504.1348>"* * This command file restores, from TF tape, the relocatables and * link command files necessary to load the Cds instruction set * version of the Pascal compiler. * (1 parameter: ) * * e.g. CI> ci Restore_Cds_Cmp 8 * * * tf co $1{/pascal/cmp/@.@.n, /pascal/cmp/cds/} ,,dk* * /PASCAL/INSTALL/RESTORE_ALTER:::4:2:35 644 0 0 1000 5300502004 36044 /PASCAL/INSTALL/RESTORE_ALTER:::4:2:35 &&$ @#RESTORE_ALTER +++ FST !* /PASCAL/INSTALL/RESTORE_ALTER 92833-17094 REV.5000 <870504.1348>!* #* This command file restores, from TF tape, the software necessary to#* link and run the ALTER program. * (1 parameter: ) * * e.g. CI> ci Restore_Alter 8 * * tf co $1{/pascal/etc/alter/} ,,dk * * C PURPOSE: TO PROCESS A MARKER COMMAND. C C PARMS: MARKER - INPUT - THE MARKER VALUEC "C THIS ROUTINE WILL SEND A MARKER TO THE DI/DD IF IT IS ENABLED,((/PASCAL/INSTALL/SIZE_UP_LINK_C:::4:2:37 644 0 0 1000 5300502005 36451 /PASCAL/INSTALL/SIZE_UP_LINK_C:::4:2:37 ''$ @%SIZE_UP_LINK_C +++FST !* /PASCAL/INSTALL/SIZE_UP_LINK_C 92833-17095 REV.5000 <870512.1154> !* #* This command file is used to create a version of Link on RTE-A that#$* has enough data space to Link the Pascal compiler program Pascomp.Run. $* $* At revision 5.0 LINK must always be large enough so this does nothing. $* 4000 CONTINUE $$C $$ IF (TEST.NE.2) GO TO 5000 /PASCAL/INSTALL/SIZE_UP_LINK_A:::4:2:37 644 0 0 1000 5300502006 36457 /PASCAL/INSTALL/SIZE_UP_LINK_A:::4:2:37 ''$ @%SIZE_UP_LINK_A +++FST !* /PASCAL/INSTALL/SIZE_UP_LINK_A 92833-17096 REV.5000 <870512.1154> !* #* This command file is used to create a version of Link on RTE-A that#$* has enough data space to Link the Pascal compiler program Pascomp.Run. $* $* At revision 5.0 LINK must always be large enough so this does nothing. $* $$ GOTO 99999 $$C $$C*****************/PASCAL/INSTALL/SIZE_UP_LINK_6:::4:3:37 644 0 0 1400 5300502010 36310 /PASCAL/INSTALL/SIZE_UP_LINK_6:::4:3:37 ''$ @%SIZE_UP_LINK_6 +++AFST !* /PASCAL/INSTALL/SIZE_UP_LINK_6 92833-17097 REV.5000 <870504.1349> !* #* This command file is used to create a version of Link on RTE-6 that#$* has enough data space to Link the Pascal compiler program Pascomp.Run. $* * !* 1. Make a local copy of link !Co /programs/link.run biglink.run  * 2. Size it up to 100 pages Link /pascal/install/linksz.lod #* 3. Rename it so that Install_Cmp #"* will use the large version. " Rn biglink.run link.run * /PASCAL/INSTALL/LINKSZ.LOD:::4:1:32 644 0 0 400 5300502012 34634 /PASCAL/INSTALL/LINKSZ.LOD:::4:1:32 ##$ @ LINKSZ LOD + + + 7FST * /PASCAL/INSTALL/LINKSZ.LOD 92833-17098 REV.5000 <870504.1349> * lk biglinkem 100en* BROUGHT UP COMMENTS TO CODING STANDARDS. RL9303''C RL93/PASCAL/LIB/CDS/PASCAL_CDS.LIB:::5:621:128 644 0 0 466400 5300501477 36364 /PASCAL/LIB/CDS/PASCAL_CDS.LIB:::5:621:128 **$m  mPASCAL_CDS LIB +>+?+?m6NFST MBBX%ȉ 8PASCAL_CDS92833-16104 REV.6000 <920930.2 920930.2002/P1K/LIB/CDS/PASCAL_CDS.PAS B@%DDXud%:PAS_CDS_TMP 870720 870720.1937 /P1K/LIB/CDS/PAS_CDS_TMP.PASD@VOu<<XVPAS.NFS 92833-16214,REV.5000,870622 870622.0821 /P1K/LIB/NFS.PAS<@x@@Xw}VPAS.READSEQUENT 92833-16214,REV.5000,870622 870622.0821 /P1K/LIB/NFS.PAS@WxPAS.READSEQUENT __{ .DCO .DDE .DIN.DLD .DMP.DST .EXIT0.SDSP FMPREAD FMPSETPOSITIONPAS.CDS PAS.DCBADDRESS1 PAS.FILEERROR PAS.INLINEERROR PAS.IOERROR _0}64`@ P( `@ P( (`@P(` (`@ `@  p (`p`@p``@p `@P(;]]%62,P(P((r`@  `@  @`@p`(`P`@ p ]p4hB<`@pp p ` P p `@hHp@ `@ p`@ ( pL0L`(P(` (@(w`@ RR'% p ` p` P(`@ A@(`@p`@ppp ` P p R@:`(` (` (` Pp``(P(P ((0`@ @(pp`@@ 88((` (@(wII & `@p`@ ppp `(*``(3P(q` (7(ZI797`@ A@ (J@`@ p `@ `@ H `@ hH(q`@ `@ `@ p` P (n(q0 ep (wh (#  @>??XkNVPAS.WRITELINE 92833-16214,REV.5000,870622 870622.0821 /P1K/LIB/NFS.PAS?\IPAS.WRITELINE 88.EXIT0.SBT.SDSP FMPWRITEPAS.CDS PAS.DCBADDRESS1 PAS.FILEERROR PAS.IOERROR 8=7`p ` @ p *(C  ` @ (` @@6` @ ` @ ` @p ` @ pP ` (60 ` @@6` ` %%=@ hH(H (%  @i<<XV*PAS.PUT 92833-16214,REV.5000,870622 870622.0821 /P1K/LIB/NFS.PAS< *nPAS.PUT % bb .DCO .DDE .DIN.DLD .DMP.DST.EXIT0.SBT.SDSP FMPSETPOSITIONFMPWRITEPAS.CDS PAS.DCBADDRESS1 PAS.FILEERROR PAS.IOERROR PAS.WRITELINE bB84`p ` @ p*(P(` @P((:` @ h H @($@` @@6` @ ` H@ ` @ h H  0ddz98-+(p ` @(` @ p` @@@ (WpL0L,(kd~~eH>P(` @ @ @` @K   ` @p  ` (` ` @p` @ p  ` @h Hp@D ` ~LL-%#@ p` @@@ (pL0L(` @p` @ p L ` (`@ @(  @;<<X~)V/PAS.PROMPT92833-16214,REV.5000,870622 870622.0821/P1K/LIB/NFS.PAS<u$PAS.PROMPT((.EXIT0.SBT.SDSP PAS.CDS PAS.IOERROR PAS.WRITELINE (VV)%`@*(`p ` @@6` @ `_` @ h H   (#0(V  @ú==XV/PAS.FILENAME92833-16214,REV.5000,870622 870622.0821/P1K/LIB/NFS.PAS=PAS.FILENAME ..#.DST.EXIT0.SDSP FMPFILENAME PAS.CDS PAS.DCBA((DDRESS1 STRDSC.--r@@ 0 P  ` p ` @@(- @ @2>X;1?V0PAS.EXTNAMELEN92833-16214,REV.5000,870622 870622.0821/P1K/LIB/NFS.PAS> 6PAS.EXTNAMELEN ).EXIT0.LBT.SDSP PAS.CDS yy5??` ((%p ` A@ (h 6@ HP ((` p (` A@ (%p ` (2@h6(2h6p ` p` p p (y@B >>XiV3PAS.SETUP_NAME92833-16214,REV.5000,870622 870622.0821/P1K/LIB/NFS.PAS>~PAS.SETUP_NAMEd77 ).DST.EXIT0.LBT.SBT .SDSP LOGLU PAS.CDS PAS.DOUBLE2ASCIIPAS.PARAMETERS7F@`(B`p 0  (A`(AP h  !@!p ` (*(A` @@6H@ Hh 6p @H` @ p (&(`(F(QQ!NF&&`(L(Yh6HP (U(Y(Hp A@ (ph6J@ HP (l(pQrrl99` p ([` `@A(`@(p p h6@ HHh 6p#@ H`#H` p 8 8 (* pp(r @ @]??X}:?V`PAS.SETUPFILE 92833-16214,REV.5000,870622 870622.0821 /P1K/LIB/NFS.PAS?2PAS.SETUPFILE zz.DCO.DDI.DIN.DIV.DLD.DMP.DST .EXIT0!.LBT.MPY".SBT#.SDSP DCBOPEN DECIMALTOINTFMPAPPEND FMPBUILDNAMEFMPINFO FMPOPEN FMPPARSENAMEFMPPOST FMPREWIND FMPSETEOF z~~dFMPUNIQUENAME FMPWORKINGDIR PAS.CDS PAS.CLOSEPURGE PAS.DCBADDRESS1 PAS.EXTNAMELEN PAS.FILEERROR PAS.FILENAME$PAS.INLINEERROR PAS.IOERROR PAS.OPTDECODE PAS.SETUP_NAME%PAS.SINGLEMOD PAS.WRITELINE ~STRDSC<<`@hH `@)@6`@@H@` " @#p (`@ `@ `@@p`@   `@ @ @@ ZZ'<**((?(`@ @ @@ (O(O(l`@ @6@H!P (f`@ @6J@H!P,(f(lZIbfAA@D  (?p `pp `@   (((`@ @6@HJ!P,(`@ @6@H!hH6p@ H`H"` p @  (VV$"`@@6@ H` H"8 8(r ` P(P(P(P(P(P((`@ Vg:8`@h (`@ (`@ (`@h (F0 F( E0 E(` P((`@H@6!p`(/ #(`iiw/-@'p `@p  h @ `@@p `@p I0 I `@ `@@)(i475`@9p `@@(L` @p`@@ P@`@@P(`@@ A 7@  ` @(u@A  (q||?k20(q` @h (u` @h`@(` @(` @hHH (`@p  `@ ` @hHH |?J>@@ #(6@  @@ `@9pV`@'pW`@%pX`V@pY`V@pZ`V@p[@ W XYZ[``@CpWW LL $"@\`@'pW\W`@'pW`@%pX`V@pY`V@pZ`V@p[0 W XYZ[L~~ <8`@)pW`@pXW@ X\`@#pW\W`@pW`@pX`@'pY`@#pZ`@@H6 !p[WXYZ[`@(l`@pW`~[[UG+'@CpXWX(k`@'pW`@%pX`V@pY`V@pZ`V@p[@ W XYZ[(`@ ([pr97`@pW`@pXWX`@ `@@p `  `@#p `p (`@@)(`@@ (`@@ p.bb:6/+@.(t`@p.`@p/./ `@(ۊ`@(`@p.`@p/./`@   bQI(K` (h @@  @( @  @  @@  A((A@ `@@% (   (@@  (Kh   (+    55 +@A A(5(5@ `@@%(G    5zFGC(K   (U(U `@@   0   00`@@@ p.0@.`@@@ A(((`@A@ p.!@@. 8@#dd%%(`@(`@@P((`@@hH`@@*(`@P((d73`@@ hH(`@p  `@ `@@)(`@(`@p `@p  `@(`@J62(`@p `@p   `@ `@9p `@@P(6``@(6`@@(6`@@)!!1  (6` @hHH (6!~~)62`@p  `@ `@(`@P(KP(LP(hP(~P(~P(~((` @(g`@@p P #(g`~T_93@p $ (` @(t` @@(t(}`@p % (`@P(`@@)(`@p `@p p "62`@(`@p `@p  `@ `@P(ϊ`@(` @P(` @P((ϊ`@p & `@ ii>F/)`@P((`@p `@p   `@(`@(`@p `@p   (h @iL:6@@ #(`@h@`@p `@p  (,`@ `@p `@Cp  (+`@ (D`@(D`@ `@ii72.@*(7`@@@0`@%p P hH`@p ` ({ '`@@!p @ iriF:`@Cp  `@'p @@ `@ `(`)`*p ` p ` (`@!p `@'p `  (`@Cp  +PP&&`@'p @@ `p p h6@ H!hHC6p @ HH` "8 8 (` A @d(P;E=` A9@0hHC6H"` A8p P ,-@0 hHC6HH"` 6p P ,.@0hHC6H"P ,/@0hHC6H"`UU&"(` P'((`@(6`@(6`@p 0 `@ (D`@p 1 U@ `@ @@ #("PASCxx::0 PAS  JG;p1  %%pp`@/p`(s`(sp(`@pcc* (c'( `@h `(` ,,~E`@ pccO0Ocp` ,SID8` 2`pd`d@ pee+(`P((` )e*(` *e %(Ո` 3`(` 4`C`(1`AAO!((,C '`@pff* pc` c( ` (+Aii 5-f*(+f0f` (`  (+`P($(&`p` (15 m# p p p p(((JiFF22@CRW WYZ OXS 2dF@6??X^ VmPAS.CLOSEFILE 92833-16214,REV.5000,870622 870622.0821 /P1K/LIB/NFS.PAS?kPAS.CLOSEFILE ddT?.DST .EXIT0 .LBT.SBT.SDSP FMPCLOSE FMPPURGE FMPSETEOF PAS.CDS PAS.DCBADDRESS1 PAS.FILEERROR PAS.FILENAMEPAS.OPTDECODE PAS.WRITELINE STRDSCdu<:`@ (`@ P(`@ p `@p P @@ (`@/p p`A@(9h6@H P (5(9`p($p`VVK<++A@(k`A@(^h6@HH h H6p:@H`:`p(g` @@6@@H` Vkg?9`p(;p `P(wP(z(}p (}p (}`p8`8@ p99+(9*(9 *(9' (@`9)(9*EEA( (9 &( ` ` (0p ` p Ejj6,` (p 99999990999 ` ` (p ` @@ B p(j @ @==X VmPAS.POSTFILE92833-16214,REV.5000,870622 870622.0821/P1K/LIB/NFS.PAS=,PAS.POSTFILE ##7.EXIT0.SDSP FMPPOST PAS.CDS PAS.DCBADDRESS1 #""  0 ` p ` ("@?==X%V pPAS.FILENAMR92833-16214,REV.5000,870622 870622.0821/P1K/LIB/NFS.PAS= PAS.FILENAMR (( .EXIT0.LDX.MB00 .SBT.SDSP PAS.CDS PAS.FILENAME(II1_%#0 (`p+p `@ @6@ H` 8 8+( h6`A@ 6D5(I @ @ڭm>>X2\V$PAS.ETC_A 92833-16215,REV.5000,870622 870622.0824 /P1K/LIB/ETC_A.PAS>@2\@@X":V$PAS.UPSHIFTALPHA92833-16215,REV.5000,870622 870622.0824/P1K/LIB/ETC_A.PAS@PAS.UPSHIFTALPHA j.EXIT0.SDSP PAS.CDS @@` @( ` @( ` @@Ap (` p ` @@p `p (@@ i==X V$PAS.MIN 92833-16215,REV.5000,870622 870622.0824 /P1K/LIB/ETC_A.PAS= AcPAS.MIN  j.EXIT0.SDSP PAS.CDS 33V` A@ ( ` p ( ` @p ` @p p (3@5)S==XV%PAS.MAX 92833-16215,REV.5000,870622 870622.0824 /P1K/LIB/ETC_A.PAS= K[PAS.MAX  j.EXIT0.SDSP PAS.CDS 33V` A@ ( ` p ( ` @p ` @p p (3@Ig@@XrV%PAS.DOUBLE2ASCII92833-16215,REV.5000,870622 870622.0824/P1K/LIB/ETC_A.PAS@ZgPAS.DOUBLE2ASCII // .DDI.DLD.DMP.DNG.DSB.DST.EXIT0 .SBT .SDSP PAS.CDS /uGUO@( @@(@p ` p h  h   @ P xh6p@ H` h @ @@ @@ ((c))U` P (Y(c` p h6@ H`- ` p )ye `  @ @p ( 0 @Kjz@@XtTV& PAS.ASCII2DOUBLE92833-16215,REV.5000,870622 870622.0824/P1K/LIB/ETC_A.PAS@YIPAS.ASCII2DOUBLE ''#d.DCO.DLD.DMP.DSB.DST.EXIT0.SDSP PAS.CDS '~~-FD` @p p ( ( (/@A((-(-`(`A@ ()`(*`A@ (*(,p (/p ` (Eph  @@@P @(G~##`F@p`@ pp `p(# 6334 @g??X\T&V'PAS.REAL2ASCII92833-16215,REV.5000,870622 870622.0824/P1K/LIB/ETC_A.PAS?zPAS.REAL2ASCII {{g ..TCM .CFER .DIV .EXIT0.LDX.MPY .MW00 .SBT.SDSP .TADD .TDIV .TFTD .TMPY .TSUB PAS.CDS PAS.MAX PAS.MIN PAS.REAL5OPSPAS.REAL5TRUNCPAS.REAL5UNPACK PAS.SINGLEMOD {,G?`@hH `@@6`@@DH`  p (`Ah H>H `>((@ > + >p+9@ >+`>p`(F@ >`>EEĹG#!p`(T@ >+`>pp`pB`p`@p` @@pC #CE~~OjL@`(0 '+#`@@pC9C 4@ >' `>(@ +'` @9@` @4A@  @p(@ >+#`>( ++#`@pC9C4` @9@` ~@@˜ @4  `p@p8B(]`P'p`(ր`A@p@jYG;`(`@@@@pBPBpB@pC`BCp`p(Pp`@pB`Bp`@p`(`Ah H>H `>(@ > + >p+>>^["9 'p'4p`p`(.(V`(K` @pB ''B>?PB`@pB4B4`p` Rp(* ++ '499@ >+ `>( ++ 949`p`0(`p(cp`(` 337(`(` `pC(pB`Cp`P((3~~GMN<` 9p`@0pC` Ch   >@  >p/ 9/9949@p8B(`(` `(` `p(` ~;;PG!` S@0pB` BP@0pB` B;))`p` H p p p p()ppTT@PP- .+ 1/PdN _^6G ߂lN[PdN _^G ߂6N[k p@GfPAAX/3V)PAS.FREAL2ASCII 92833-16215,REV.5000,870622 870622.0824 /P1K/LIB/ETC_A.PASAKPAS.FREAL2ASCII ] aa..TCM .CFER .DIV.EXIT0.LDX .MW00 .SBT .SDSP .TADD .TDIV .TFTD .TFXD .TMPY .TSUB PAS.CDS PAS.MAX PAS.MIN PAS.SINGLEMOD aZE?`@hH `@@6`@@DH`   p (`Ah H+H `+((@p +' + +'`+p`(A +`+p`??%:E (O +'`+pp`p/`p`@p` @p00?~~eIA`(~ #' +# `+@(}'#@p( +'`+( ''`p@p8/(X`P'p`(`A@p`(`@~::@@@p/@/ p/@p0P/0p`p(@p:mGA`@p/P/p`@p`(`h H+ `+(p +'+@#p`p`((`(` @p/ ##/`p` 1p(66r ''# +' `+(3 '' `p`0(2`p62K;(p`(?` (H`(H` `p0(p/`0p`P(U([`  'x`@0p0` 0h   1 +'1 '+ 550}@p8/(Q`(` `(` `p5``4,(` ` 2@0p/`  / @0p/` /`@p`5@ p p p p(`GGM33@PP- .+ PdN _^6G ߂lN[ G@W#u??XV*'PAS.PARAMETERS92833-16215,REV.5000,870622 870622.0824/P1K/LIB/ETC_A.PAS?<PAS.PARAMETERS{ //.EXIT0.LBT.SBT.SDSP PAS.CDS PAS.RUNSTRINGLENPAS.RUNSTRINGPTR/2;9p `@hH `@hH@A@('`@@6`@@HhH p ` @@ `p (` (4(E`)(((EWW=7;+'`@ P,(A(D@ p (0` p ` @@p `p (0 p0 ppp p `(W~~E0fB<` A@(` )(` p h6@ HH` (f` p (`p` L(` )(` P,(` A@(` P (` (` ~OO%%p ` ((` p h6@ HH` ((p ` p` ((` hAH( (xp O22ah6@ HH` 8 (8(`@@ pp(U2@qꐪ@@X0%V+'PAS.REALROUND 92833-16215,REV.5000,870622 870622.0824 /P1K/LIB/ETC_A.PAS@%JPAS.REALROUND ((a.DLD.DST.EXIT0.FAD.FIXD .FSB.SDSP PAS.CDS (88.%!@A @( A` @ ( A`   @@ (8 $@ @M5k@@XG 0V,(PAS.LONGROUND 92833-16215,REV.5000,870622 870622.0824 /P1K/LIB/ETC_A.PAS@,O%PAS.LONGROUND 33 b.DLD.DST.EXIT0.LDX.MW00 .SDSP .TADD .TFXD .TSUB PAS.CDS 3IIF0&  `(    ("  @  @@ @`AhH H(I) @@L ??X=3V,*PAS.SHAREDSIZE92833-16215,REV.5000,870622 870622.0824/P1K/LIB/ETC_A.PAS?-g.PAS.SHAREDSIZE %%+.DLD.DST.EXIT0.SDSP IXGET PAS.CDS VMAST %XX3-@  @ Pp`p ` (+` (+` @pPp`/(+` @  (X g @@@XXYV-+PAS.SETSHARED 92833-16215,REV.5000,870622 870622.0824 /P1K/LIB/ETC_A.PAS@,;JPAS.SETSHARED BB ~.DAD.DCO.DDE .DIN.DLD .DSB.DST .EXIT0 .SDSP PAS.CDS PAS.SETMEMINFO2 PAS.SHAREDSIZEBVRp @@@  A(H(H@(H@(H@@ (((H   @@#@#(+(+(H@ @@@@ @@@@ Pp `  - @@@@V`p (  @\AAX0YV-,PAS.A1SETSHARED 92833-16215,REV.5000,870622 870622.0824 /P1K/LIB/ETC_A.PASAmmJPAS.A1SETSHARED CC .DAD.DCO.DDE .DIN.DLD .DSB.DST .EXIT0 .SDSP PAS.A1SHAREDSIZEPAS.CDS PAS.SETMEMINFO2 CVRp P@@  A(H(H@(H@(H@@ (((H   @@#@#(+(+(H@ @@@@ @@@@ @p `  - @@@@V`p (  @\3z@@XV.-PAS.CLEARFILE 92833-16215,REV.5000,870622 870622.0824 /P1K/LIB/ETC_A.PAS@; PAS.CLEARFILE f.EXIT0.SDSP PAS.CDS PAS.DCBADDRESS1 C   ` @ (@AAX>V./PAS.MAXPOSITION 92833-16215,REV.5000,870622 870622.0824 /P1K/LIB/ETC_A.PASA{PAS.MAXPOSITION ##%.DLD.DST.EXIT0.SDSP PAS.CDS PAS.IOERROR #55 `@( `@  (@  @ (5  @%2@@X.xV//PAS.LASTPOSITION92833-16215,REV.5000,870622 870622.0824/P1K/LIB/ETC_A.PAS@ PAS.LASTPOSITION %%-.DLD.DST.EXIT0.SDSP PAS.CDS PAS.MAXPOSITION %( @@ @@ @(@AAX6=V/8PAS.APPEND_FILE 92833-16215,REV.5000,870622 870622.0824 /P1K/LIB/ETC_A.PASAS8PAS.APPEND_FILE  R.EXIT0.SBT.SDSP PAS.CDS PAS.SETUPFILE N:8`p(`@h`@ `@ `@ h (`@    (7`@ hH`@ ` @@6` D : ( '` @/@@XH$V0;PAS.OPEN_FILE 92833-16215,REV.5000,870622 870622.0824 /P1K/LIB/ETC_A.PAS@QPAS.OPEN_FILE  c.DST.EXIT0.SDSP PAS.CDS PAS.SETUPFILE CC$"`p`@ `@p `@ p@ 0 @@ (C % ` @`' ??Xj7V0CPAS.RESET_FILE92833-16215,REV.5000,870622 870622.0824/P1K/LIB/ETC_A.PAS?x2PAS.RESET_FILE1.EXIT0.SDSP PAS.CDS PAS.SETUPFILE xxq75`p(`@h`@ `@ `@ h (`@    (1`@ hH`@  (x $(` @&EG@@X=V1LPAS.REWRITE_FILE92833-16215,REV.5000,870622 870622.0824/P1K/LIB/ETC_A.PAS@P8PAS.REWRITE_FILE R.EXIT0.SBT.SDSP PAS.CDS PAS.SETUPFILE N:8`p(`@h`@ `@ `@ h (`@    (7`@ hH`@ ` @@6` D : ( &` @ ???XV2YPAS.APPENDFILE92833-16215,REV.5000,870622 870622.0824/P1K/LIB/ETC_A.PAS?kPAS.APPENDFILE $$É.EXIT0.LBT.SBT.SDSP PAS.CDS PAS.SETUPFILE $~~l77`p`p ( h6 (h6Hh6 `@ `@ (=`@h`@ `@ `@  `@ h `~[[¼7/- @@6` H(E`@ `@  P(I(N @6p`(\ @6  6K  [EERf`(n @6`@P(t(~`@ hH`@ @@(E '` @1>>XoicV2`PAS.OPENFILE92833-16215,REV.5000,870622 870622.0824/P1K/LIB/ETC_A.PAS>/^PAS.OPENFILE ((E+.DST.EXIT0.LBT.SBT.SDSP PAS.CDS PAS.SETUPFILE (L<<`p`p ( h6 (h6Hh6 `@ `@ `@ `@p `@ p@ `@  P(8(= @6AA+<'%p`(K @6 K 60  `(] @D6(A % ` @B@@X~V3lPAS.RESETFILE 92833-16215,REV.5000,870622 870622.0824 /P1K/LIB/ETC_A.PAS@@yPAS.RESETFILE $$É.EXIT0.LBT.SBT.SDSP PAS.CDS PAS.SETUPFILE $88`p`p ( h6 (h6Hh6 `@ `@ (7`@h`@ `@ `@  `@ h (?`YY80.@ `@  P(C(H @@6p`(V @H6  6  `(h @6Y88 h`@P(n(x`@ hH`@ @@(8 $(` @cAAX08V4yPAS.REWRITEFILE 92833-16215,REV.5000,870622 870622.0824 /P1K/LIB/ETC_A.PASALPAS.REWRITEFILE $$É.EXIT0.LBT.SBT.SDSP PAS.CDS PAS.SETUPFILE $88`p`p ( h6 (h6Hh6 `@ `@ (7`@h`@ `@ `@  `@ h (?`YY80.@ `@  P(C(H @@6p`(V @H6  6  `(h @6YDDh`@P(n(~`@ hH`@ `@@6@` @(D &` @l,??X V4yPAS.CLOSEPURGE92833-16215,REV.5000,870622 870622.0824/P1K/LIB/ETC_A.PAS?PAS.CLOSEPURGE6.EXIT0.SDSP PAS.CDS PAS.CLOSEFILE k  @@( ̆PURGE @s3@@X)V5{PAS.WRITENONTEXT92833-16215,REV.5000,870622 870622.0824/P1K/LIB/ETC_A.PAS@gPAS.WRITENONTEXT""1%.EXIT0.SDSP PAS.CDS PAS.MOVEBYTES PAS.PUT "55@2`@p `@ p(( 0   (5  @#@@XzV6PAS.SPLITMOVE 92833-16215,REV.5000,870622 870622.0824 /P1K/LIB/ETC_A.PAS@.ZqPAS.SPLITMOVE //.EXIT0.SBT.SDSP PAS.CDS PAS.IOWARNING PAS.PUT PAS.WRITELINE /ҶD<p `@ hH@A(@p (1`@ hH @A@(1@   ` (G`@ h ` (>(F0 QQY1D##(8(m` (M(m`@ p `@@6H ` ` p ` (Q`@ h Q//Xg`@@0` p` p `p(/  @EAAX4mV6PAS.WRITESTRING 92833-16215,REV.5000,870622 870622.0824 /P1K/LIB/ETC_A.PASAPPAS.WRITESTRING ;; .EXIT0.LBT.SBT .SDSP PAS.CDS PAS.IOERROR PAS.MOVEBYTES PAS.PUT PAS.SPLITMOVE ;~~ZD<`(P (C`(,`(+pph6@HHhH 0 88((B`(Bpp`@ HH0 88(4(`~QQUD'%@ p `(Y`@p@ ` @p (q`(qpp`@@6H @@@QJJk ` p 88(a`(u(`@ h `@@0@@  p p p(J  @Lj@@X6V7PAS.WRITEENUM 92833-16215,REV.5000,870622 870622.0824 /P1K/LIB/ETC_A.PAS@aPAS.WRITEENUM gCC #.DAD.DST .EXIT0 .LBT.MPY .SDSP PAS.CDS PAS.IOERROR PAS.MOVEBYTES PAS.PUT PAS.SPLITMOVE C EA`(p`(`p`p`(`A@( p`p`@@p`p`A@(Ch@ @h6J P (C`p(*`RRfE*((J`@p@(x`@@p`hAH(_ (wxph@ @h6H hH Rtto73P 8(u8(a(`@ p`@p``@p`((`@ h`@@0  p p p p(t  @_=}@@X-V8PAS.WRITECHAR 92833-16215,REV.5000,870622 870622.0824 /P1K/LIB/ETC_A.PAS@H&PAS.WRITECHAR ,,V.EXIT0.SDSP PAS.CDS PAS.IOWARNING PAS.PUT PAS.WRITESTRING ,WW8-'` P(p p   (%`@ hH ((@`@ 0  p (W  @ (D@@X +BV8PAS.WRITEBOOLEAN92833-16215,REV.5000,870622 870622.0824/P1K/LIB/ETC_A.PAS@H9PAS.WRITEBOOLEAN**.EXIT0.LBT.MPY.SDSP PAS.CDS PAS.PUT PAS.SPLITMOVE *}},B>0(`( p`(`@p ` h HAH(! (8x@p `@@6H@ HhH @ 8 (68(#@@ pp(}y FALSE TRUE@AAX&H]V9PAS.WRITEDOUBLE 92833-16215,REV.5000,870622 870622.0824 /P1K/LIB/ETC_A.PASABVPAS.WRITEDOUBLE << <;.EXIT0.LBT.SBT .SDSP PAS.CDS PAS.DOUBLE2ASCIIPAS.IOERROR PAS.PUT PAS.SPLITMOVE <D<` (P0p  (/` ((.` @@6@ HHhH @ @ p ((U`@ p ` (7(K` @@6H@ HhH6H ;;ϦD` p @ p (3`@ h `@@0* p (;  @m-@@XV:PAS.WRITEINTEGER92833-16215,REV.5000,870622 870622.0824/P1K/LIB/ETC_A.PAS@D PAS.WRITEINTEGER!!1.DST.EXIT0.SDSP PAS.CDS PAS.WRITEDOUBLE !$$ @ 0@ @ p ($@ۧ@@XcjV:PAS.WRITEANYREAL92833-16215,REV.5000,870622 870622.0824/P1K/LIB/ETC_A.PAS@M]PAS.WRITEANYREAL@@ .EXIT0.LBT .SDSP PAS.CDS PAS.IOERROR PAS.MOVEBYTES PAS.PUT PAS.REAL2ASCIIPAS.SPLITMOVE @۹E=`(`(``(p`(`'p0p (B`(Ap p` @@6@HHhH @ 88 (/(\`@ PPE%#p`@p P `@ hH`@@0* p p p p(P  @ο@@XV;PAS.WRITELONG 92833-16215,REV.5000,870622 870622.0824 /P1K/LIB/ETC_A.PAS@_ PAS.WRITELONG #.EXIT0.SDSP PAS.CDS PAS.WRITEANYREAL$$    p p ($ L @@@@XV;PAS.WRITEREAL 92833-16215,REV.5000,870622 870622.0824 /P1K/LIB/ETC_A.PAS@XPAS.WRITEREAL &&d.BLE.CFER .EXIT0.SDSP PAS.CDS PAS.WRITEANYREAL&--b0   p p (- E @k@@X0jVPAS.FRITEANYREAL92833-16215,REV.5000,870622 870622.0824/P1K/LIB/ETC_A.PAS@<]PAS.FRITEANYREALAA 8.EXIT0.LBT .SDSP PAS.CDS PAS.FREAL2ASCII PAS.IOERROR PAS.MOVEBYTES PAS.PUT PAS.SPLITMOVE A۹E=`(`(``(p`(`'p0p (B`(Ap p` @@6@HHhH @ 88 (/(\`@ PPE%#p`@p P `@ hH`@@0* p p p p(P  @@@XՇVPAS.FRITELONG 92833-16215,REV.5000,870622 870622.0824 /P1K/LIB/ETC_A.PAS@_ PAS.FRITELONG .EXIT0.SDSP PAS.CDS PAS.FRITEANYREAL$$    p p ($ L @N l@@XЊVPAS.FRITEREAL 92833-16215,REV.5000,870622 870622.0824 /P1K/LIB/ETC_A.PAS@XPAS.FRITEREAL &&S.BLE.CFER .EXIT0.SDSP PAS.CDS PAS.FRITEANYREAL&--b0   p p (- E @8W@@X(VPAS.OVERPRINT 92833-16215,REV.5000,870622 870622.0824 /P1K/LIB/ETC_A.PAS@d#PAS.OVERPRINT ((.EXIT0.SBT.SDSP PAS.CDS PAS.IOERROR PAS.WRITELINE (LL$("`@*(`@(`@@6`*  (0("0@@(L   @Z@@X۝(VPAS.TOPOFPAGE 92833-16215,REV.5000,870622 870622.0824 /P1K/LIB/ETC_A.PAS@Q#PAS.TOPOFPAGE ((.EXIT0.SBT.SDSP PAS.CDS PAS.IOERROR PAS.WRITELINE (LL$("`@*(`@(`@@6`1  (0("0@@(L   @A@@X*2VPAS.LINEPOSITION92833-16215,REV.5000,870622 870622.0824/P1K/LIB/ETC_A.PAS@-PAS.LINEPOSITION j.EXIT0.SDSP PAS.CDS pp22`p ` @ p +( ,(` @ ( .(p (+ .p ` @ h H@@ p ` @@(p@>>X1VPAS.LINESIZE92833-16215,REV.5000,870622 870622.0824/P1K/LIB/ETC_A.PAS> PAS.LINESIZE j.EXIT0.SDSP PAS.CDS ''R`@ hH@@p ` @('@k\@@X"VPAS.FILEPOSITION92833-16215,REV.5000,870622 870622.0824/P1K/LIB/ETC_A.PAS@PAS.FILEPOSITION ##%.DLD.DST.EXIT0.SDSP PAS.CDS PAS.IOERROR #00x`@( `@ (@ (0  @<>>Xtd6VPAS.SEEKFILE92833-16215,REV.5000,870622 870622.0824/P1K/LIB/ETC_A.PAS>1PAS.SEEKFILE''.DCO.DLD.DST.EXIT0.SDSP PAS.CDS PAS.IOERROR 'qq!64`p ` @p ` @(+` @p  ` @ p @` @@(( (p L0 L   (0@@@(q  @ff&AAX4AVPAS.READNONTEXT 92833-16215,REV.5000,870622 870622.0824 /P1K/LIB/ETC_A.PASAO<PAS.READNONTEXT ..4.EXIT0.SDSP PAS.CDS PAS.IOERROR PAS.MOVEBYTES PAS.READSEQUENT .{{OtA9`@p ,(@(" +(@ (" .("    0 `@p `@ p 0  ({  @@@XaVPAS.REFERENCE 92833-16215,REV.5000,870622 870622.0824 /P1K/LIB/ETC_A.PAS@.\PAS.REFERENCE ))t.EXIT0.LBT.SDSP PAS.CDS PAS.IOERROR PAS.READSEQUENT )e2:4`p ` @ p -([ ,(0([` @P(P(P($(U  (U` @ (-  ` @ p ` @ @ (B` @^^" :''@6H h H (M` @ h , h H ` p ` @ h (U 0@  (^  @ʳ==X0VPAS.GET 92833-16215,REV.5000,870622 870622.0824 /P1K/LIB/ETC_A.PAS= !^+PAS.GET  $$.EXIT0.SDSP PAS.CDS PAS.IOERROR PAS.REFERENCE $aa9<0*`@+( 0(*` @,(0(* `@@0 `@@@@(a  @"??X=VPAS.IENDOFLINE92833-16215,REV.5000,870622 870622.0824/P1K/LIB/ETC_A.PAS?'Z4PAS.IENDOFLINE $$.EXIT0.SDSP PAS.CDS PAS.IOERROR PAS.REFERENCE $zz=7p `@+(` (0(2 `@ (!` @,("p ` @,(2` (20` p `p (z  @@@XȶVPAS.ENDOFLINE 92833-16215,REV.5000,870622 870622.0824 /P1K/LIB/ETC_A.PAS@SPAS.ENDOFLINE B.EXIT0.SDSP PAS.CDS PAS.IENDOFLINE   p ` `p (  @\@@X1VPAS.ENDOFFILE 92833-16215,REV.5000,870622 870622.0824 /P1K/LIB/ETC_A.PAS@K*PAS.ENDOFFILE $$.EXIT0.SDSP PAS.CDS PAS.IOERROR PAS.REFERENCE $ggH1-`p ` @ p +( *(0` @(" ,(" `@,p ` `p (g  @SqAAX4 VPAS.READINTEGER 92833-16215,REV.5000,870622 870622.0824 /P1K/LIB/ETC_A.PASAPPAS.READINTEGER ,,.DCO.DLD.EXIT0.SDSP PAS.CDS PAS.IOERROR PAS.READDOUBLE,77' 0  ( ( (((` (@@@(7 @ W+??X9V PAS.SKIPBLANKS92833-16215,REV.5000,870622 870622.0824/P1K/LIB/ETC_A.PAS?2PAS.SKIPBLANKS ++.EXIT0.SDSP PAS.CDS PAS.ENDOFFILE PAS.GET PAS.REFERENCE +uu91  p ` ('`@ P ((!`@ ,(!`@@0 @ (  p ` (.0` p ` `p (u@V??X gV PAS.READDOUBLE92833-16215,REV.5000,870622 870622.0824/P1K/LIB/ETC_A.PAS?\bPAS.READDOUBLEII }.DLD .DNG.DST .EXIT0 .SDSP PAS.ASCII2DOUBLEPAS.CDS PAS.GET PAS.IOERROR PAS.REFERENCE PAS.SKIPBLANKSI=7@ @(ap p `@,(a`@ P-p ` (%`@ P+(%()P ``@ @(P`@ @(Pp `@ FF=*"p p 0 p P`(-` (X@D ` 0 (a@@  (F  @ljI??X5V PAS.READSTRING92833-16215,REV.5000,870622 870622.0824/P1K/LIB/ETC_A.PAS? l}PAS.READSTRING//.EXIT0.SBT.SDSP PAS.CDS PAS.ENDOFFILE PAS.GET PAS.IENDOFLINE/K?p ( @ (T (6A@ (50(5h6@ H`@ K@` p ((TA@ (T0(T@ @hH 77N-K@` p (6 (kA@ (jh6@ H` @7::;|f` p (W(|A@ (|@ @h ` @p (k@ (:  @H>>Xx%V PAS.READENUM92833-16215,REV.5000,870622 870622.0824/P1K/LIB/ETC_A.PAS>#PAS.READENUMdd .DAD .DCO .DDI .DIN.DLD .DNG.DSB.DST.EXIT0.LBT.MPY.SDSP PAS.BITMASK1PAS.CDS PAS.GET PAS.IOERROR PAS.SKIPBLANKSPAS.UPSHIFTALPHAd;A=P(`@ p`@ @p` ,HH@(!(`p` ,HH@(B`@ A@(B`p`@@6HpCCiA%#(#`@p`A@(T(`@p`@@hD  p CfJF` (`ph   (}p ` ((`A@(`@@6Hppph6@H P@((D `p(`P(33 W(h  ((h6 P p ` (3FFq'#h @@ `(瀋pp`88((f% p p(F66`%%6@J >>Xa4V PAS.READCHAR92833-16215,REV.5000,870622 870622.0824/P1K/LIB/ETC_A.PAS>/PAS.READCHAR$$.EXIT0.SDSP PAS.CDS PAS.IOERROR PAS.REFERENCE $kkA4. `@ `@+(0(.`@ ,("0(.`@@0 `@@@@(k  @v6>>XwV PAS.READLINE92833-16215,REV.5000,870622 870622.0824/P1K/LIB/ETC_A.PAS>PAS.READLINE"" .EXIT0.SDSP PAS.CDS PAS.GET PAS.IENDOFLINE"$$S ( 0(@0@($  @]|v??X 9V PAS.READBUFFER92833-16215,REV.5000,870622 870622.0824/P1K/LIB/ETC_A.PAS?t4PAS.READBUFFER&&^E.EXIT0.SDSP PAS.CDS PAS.MOVEBYTES PAS.READSEQUENT &zza95`p ` @ p -(  ` @ ` @ ()` @ `@p 0  0  ` @  (z  @4_??X?VPAS.CONVERT 92833-16215,REV.5000,870622 870622.0824 /P1K/LIB/ETC_A.PAS?kPAS.CONVERT QQ .DCO.DLD.DST.EXIT0.LBT.LDX .MW00 .SDSP PAS.BITMASK1 PAS.BOUNDINTEGERPAS.CDS PAS.INLINEERROR PAS.SHIFTNPUT QVV77` @ ` @p ` @   ((((` @@6` @ @HJP ( ((` @ h H  (` @p ` @   (6(6(` }766@p ` @  @ (D(D(Z` @@6` @ @HP0(R(Z` @ h H  (6` @ h H ` @p ` @ @  (n(n;;m(` @@` @@6p ` @ @H ,H H@ (;t66` @ h H  (`` @p ` @   (((` @@6` @ @HJP (` @ha(؊` @ h H @p `A@ oo11(` P((` @@6` @ @Hh @((؊` @h`(` @hb*  `h H pp (oS*?9`@ hH @A@(P`@@6`@ @HHp `@@6`@ @HK (( (, (1(6` @p (;^^,*&` @@ p (;` ((@@ p (;h k`@ p `@p P `@ hH  (@@ (^VE;p @ `P(dP(oP(z(`  p(`   `p(` . `p(h `(` Q`p` @ p(VVV??09AFaf 1 3~~V@J$ ==X,y"VPAS.BINARY92833-16215,REV.5000,870622 870622.0824/P1K/LIB/ETC_A.PAS=PAS.BINARY --.DLD.DST.EXIT0.SDSP PAS.CDS PAS.CONVERT PAS.RUNTIMEERROR-77|"@ p ` (P @@ @@@ p (7  @&bE">>XZ["VPAS.OCTAL 92833-16215,REV.5000,870622 870622.0824 /P1K/LIB/ETC_A.PAS>PAS.OCTAL --.DLD.DST.EXIT0.SDSP PAS.CDS PAS.CONVERT PAS.RUNTIMEERROR-77|"@ p ` (P @@ @@@ p (7  @a ==X "VPAS.HEX 92833-16215,REV.5000,870622 870622.0824 /P1K/LIB/ETC_A.PAS= F`PAS.HEX  --.DLD.DST.EXIT0.SDSP PAS.CDS PAS.CONVERT PAS.RUNTIMEERROR-77|"@ p ` (P @@ @@@ p (7  @“SAAX>aV"PAS.HALTPROGRAM 92833-16215,REV.5000,870622 870622.0824 /P1K/LIB/ETC_A.PASAYXPAS.HALTPROGRAM MMS .DDI.DLD.DST .EXIT0 .LBT.LDX .MB00 .SBT.SDSP LOGLU PAS.CDS PAS.DOUBLE2ASCIIPAS.STOPPRTNREIOM~~6^E?@ (A`@@6A`6J ` p P p ` ((2` p `@@6H@ H hH6p.@ H`.@ p ( p.` p/p./` p  ~..E xpp p `@@ 8 (. Pascal Halt: @Lk<<XV"PAS.HALT92833-16215,REV.5000,870622 870622.0824/P1K/LIB/ETC_A.PAS< PAS.HALT %%+.DLD.DST.EXIT0.SDSP PAS.CDS PAS.HALTPROGRAM % @@ @ (@0>>Xy V"PAS.HALTONLY92833-16215,REV.5000,870622 870622.0824/P1K/LIB/ETC_A.PAS>6PAS.HALTONLY/u.EXIT0.SDSP PAS.CDS PAS.HALTPROGRAM 5W @ @(  @Xw<<X!lȉ) 8PAS.CDSLIB92833-16115 REV.6000 <920930.1908> /P1K/LIB/CDS/ETC_B.MAC<VPAS.CDS PAS.CDSCONFLICT @;;X3ȉ) 8PAS.BOUNDINTEGER92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC;8PAS.BOUNDINTEGER.DLD.DST.EXIT0''O A(A@A'@ʵ;;X1o ȉ) 8PAS.BOUNDDOUBLE 92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC;6PAS.BOUNDDOUBLE  -[.DCO.EXIT0 S (( ( ( (  @@;;X=%ȉ* 8PAS.RANGEINTEGER92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC;BPAS.RANGEINTEGER,I.DLD.DST.EXIT0PAS.RUNTIMEERROR??%#  ph` A (A@ (`A@K 0(?  @_;;X;jȉ* 8PAS.RANGEDOUBLE 92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC;@PAS.RANGEDOUBLE .DCO.DLD.DST.EXIT0PAS.RUNTIMEERROR117U  `@@ ( ( (`@@ @(( K0(1  @22::X ȉ* 8PAS.CHECKPTR1 92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC:HPAS.CHECKPTR1 0.EXIT0PAS.RUNTIMEERROR ( x0h  @vH::X ȉ+ 8PAS.CHECKPTR2 92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC:HPAS.CHECKPTR2 0.EXIT0PAS.RUNTIMEERROR ( ( 0@   @0OW::X#ȉ+ 8PAS.DOUBLEMOD 92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC:@PAS.DOUBLEMOD ##K.DAD.DCO.DLD.DMOD .EXIT0PAS.RUNTIMEERROR#++  ((   ((0 +  @.a::Xȉ+ 8PAS.SINGLEMOD 92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC:?PAS.SINGLEMOD .DIV.EXIT0PAS.RUNTIMEERROR,,gk (( `((0@,  @ӊJ88XN;ȉ, 8PAS.IMAGE092833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC8 SPAS.IMAGE0 11 .CAZ.CCQB .EXIT0AVLMENDMLIMEM PAS.RUNTIMEERRORUNM2UNMEM 1eeo;7 `(:( @Dppp(:` @@ pH H (%@p @(*P0` @@ppHp@p@D`@@ e (c @&::X56ȉ, 8PAS.IMAGE1OR2 92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC:PAS.IMAGE1PAS.IMAGE2II # .CAZ .CCQB .EXIT0AVLMENDMPAS.HIWATERHEAP1PAS.LOWATERHEAP1PAS.RUNTIMEERRORPAS.TOPOFHEAP1UNM2UNMEM I[[64(`(5@(pDpp(5 H H (@p@("0D`@pp@Dpppp@DpHD`@  [ (c @<[;;XFTȉ, 8PAS.SEGMENTLOAD 92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC;KPAS.SEGMENTLOAD .EXIT0  @-Ln;;X`Gȉ- 8PAS.SETTEMPORARY92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC;ePAS.SETTEMPORARY""H.EXIT0PAS.BITMASK1PAS.RUNTIMEERRORPAS.SETCLEAR"GC  0  D P(8  D P(8@p p h DH(*p!8(' (= @ H (A H,@H 8 K8 (0@ 2 @uy99Xȉ- 8PAS.RANGESET92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC9 )PAS.RANGESET ,,B.CACQ .CCQA .EXIT0PAS.BITMASK1PAS.RUNTIMEERRORPAS.SETCLEAR,vDB  0  D P(8  D P(8 h (@pp   (@H DH(5p!8(2 (@` ,@H 8 8(#vvDD< @(Rpp 0i p (bpK0i0@ H@h DH(zp!8(w (8 8(m(0D `v  @zi);;XL.ȉ. 8PAS.SETINTERINIT92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC;QPAS.SETINTERINIT77".EXIT0PAS.BITMASK1PAS.RUNTIMEERRORPAS.SETADDRESSPAS.SETELEMENTS PAS.SETLINENUMB 7XX ., p((pA@((`@(-`p8`P(-hH (( ,@H8(@0X  @ W+::X ȉ. 8PAS.SETDIFFER 92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC: /PAS.SETDIFFER .EXIT0**_  D p 888  @8 ( *@^99Xȉ. 8PAS.SETUNION92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC9 +PAS.SETUNION .EXIT0))  D p 888  8 ( )@@T_88XYȉ/ 8PAS.SUBSET92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC8 ^PAS.SUBSET .EXIT0..(  D p p 88 8 ( X .@;;XPȉ/ 8PAS.SETINTERSECT92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC;UPAS.SETINTERSECT.EXIT0))  D p 888  8 ( )@9XQ99Xȉ0 8PAS.SETCLEAR92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC900 PAS.SETADDRESSPAS.SETCLEARPAS.SETELEMENTS PAS.SETLINENUMB 0((.EXIT0  ??, `ppp D p x p ` P(`8` 8 (@?@ 99Xȉ0 8PAS.SETINIT 92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC9 PAS.SETINIT 77".EXIT0PAS.BITMASK1PAS.RUNTIMEERRORPAS.SETADDRESSPAS.SETELEMENTS PAS.SETLINENUMB 7..9(@hH ( ,HH@HP0.  @xp::X5 ȉ0 8PAS.LONGNEGATE92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC:\PAS.LONGNEGATE..TCM .EXIT0.LDX.MW00 U `h @  @\{U77X!3Fȉ1 8PAS.TIME92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC7CAPAS.TIMESTAMP  PAS.TIMESTRING!!.DIV.DLD.DST.EXIT0.LDX.MW00 EXEC! @' , 19  9H: 0`hAD 0`hAD   `0h00pH` h@(,h` x` 0p` 0h00Hp  `H` @0p pHD@h H`  H HnH`A@ Ep` B0p 00ph H)`@@ 000p@ Q@ @ C HA D @ 0@ 0 0 GG33ampm : . Fri Sat Sun Mon Tue Wed Thu (Mar Apr May Jun Jul Aug Sep Oct Nov Dec Jan Feb  G@&=D::X[ȉ1 8PAS.TRACEDUMMY92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC:..PAS.TRACEBEGINPAS.TRACECLOSEPAS.TRACEENDPAS.TRACEINIT ..EXIT0P@::X 6ȉ1 8PAS.MOVEBYTES 92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC:MPAS.MOVEBYTES .EXIT0.LDX.MB00 """ ((`6h6 @D "@c#;;XSȉ2 8PAS.WORDBITMOVE 92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC;XPAS.WORDBITMOVE .EXIT0.LDX.MW00 <<w `hpx (p !8 (x x  p 0<@n::X5ȉ2 8PAS.SHIFTNPUT 92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC:LPAS.SHIFTNPUT .DLD.DST.EXIT0/ p @@!8 (@@@@7::XW5ȉ2 8PAS.BLANKFILL 92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC:GPAS.BLANKFILL d.EXIT0.LDX.MB00 .MW00 .SBTgg55 p p (`h ` (4` @ (4p @`  H(4`6@h 6H` (4@x ` @ (4p `  @g@X*v;;XIȉ3 8PAS.INITMEMINFO192833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC;NPAS.INITMEMINFO1[[ .CAZ .CCQA .EXIT0LIMEM PAS.HIWATERHEAP1PAS.HIWATERMARK1PAS.LOWATERHEAP1PAS.LOWATERMARK1PAS.RUNTIMEERRORPAS.TOPOFHEAP1PAS.TOPOFSTACK1 [00{D  ppKp@@DHppp@D `@(0 0  @ޞ;;X<ȉ3 8PAS.INITIALHEAP192833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC;APAS.INITIALHEAP1??|.CAZ.CZA.EXIT0PAS.CURRMARC1 PAS.HIWATERHEAP1PAS.LOWATERHEAP1PAS.PREVFREE1 PAS.TOPOFHEAP1?//m`@p@@pp@p h @@/@Q99X ȉ3 8PAS.MEMDATA192833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC9xx PAS.CURRMARC1 PAS.GETMEMINFO1 PAS.HIWATERHEAP1PAS.HIWATERMARK1PAS.LOWATERHEAP1PAS.LOWATERMARK1PAS.PREVFREE1 PAS.SETMEMINFO1 PAS.TOPOFHEAP1PAS.TOPOFSTACK1 xq.CAZ.CCQA .EXIT0.LDX.MW00     //xphH pA` h D`h  D`@/@V;;XI(ȉ4 8PAS.INITMEMINFO292833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC;NPAS.INITMEMINFO2~~! $$$LARGEMA1$$$ $$$LARGEMA2$$$.DCO .DDE.DLD .DST.EXIT0PAS.HIWATERHEAP2PAS.HIWATERMARK2PAS.INITMEMINFO1PAS.LOWATERHEAP2PAS.LOWATERMARK2PAS.RUNTIMEERRORPAS.TOPOFHEAP2PAS.TOPOFSTACK2 VMAST ~LLl(" 0hX("` F JJ  JA JJ  JJ (" 0L  D  @I;;X<,ȉ4 8PAS.INITIALHEAP292833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC;APAS.INITIALHEAP2GG ѹ.DLD.DSB.DST .EXIT0 .LBPPAS.CURRMARC2 PAS.HIWATERHEAP2PAS.LOWATERHEAP2PAS.PREVFREE2 PAS.TOPOFHEAP2GQQ;,,  x 88 8888 Q@Q99X ȉ5 8PAS.MEMDATA292833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC9xxPAS.CURRMARC2 PAS.GETMEMINFO2  PAS.HIWATERHEAP2PAS.HIWATERMARK2PAS.LOWATERHEAP2PAS.LOWATERMARK2 PAS.PREVFREE2 PAS.SETMEMINFO2 PAS.TOPOFHEAP2PAS.TOPOFSTACK2 x.EXIT0.LBPR .LDX.MW00   T`AD`h@@ ::X /ȉ5 8PAS.INITIALIZE92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC:HHPAS.GETNEWPARMS PAS.INITIALIZE(PAS.NUMERICPARMS"PAS.RUNSTRINGLEN%PAS.RUNSTRINGPTRPAS.STRENDS Hci.EXIT0.LDX.MW00 EXECRMPAR   QQW/)  p`ppp@x`p0`p@` ``h@Q@<0Z;;Xa ȉ5 8PAS.SETEXITPARMS92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC;fPAS.SETEXITPARMS--.EXIT0.LDX.MW00 PAS.EXITDATAPAS.EXITDATAPTR PAS.EXITDATASET -6 D`hp@  @Y;;Xmȉ6 8PAS.RETURNPARMS 92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC;11iPAS.EXITDATAPAS.EXITDATAPTR PAS.EXITDATASET PAS.RETURNPARMS 1 `h.EXIT0PRTN ~8(@2Q::X 4ȉ6 8PAS.STRENDERS 92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC:̢PAS.STRENDCHECK PAS.STRENDERROR 8.EXIT0PAS.STRENDS hDp@`@3Rv;;XL ȉ6 8PAS.INLINEERROR 92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC;QPAS.INLINEERROR 0.EXIT0PAS.RUNTIMEERROR px0@@t4::XHȉ7 8PAS.ERROREXIT 92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC:JPAS.ERROREXIT .CCQA .EXIT0PAS.ERRORCATCHER**u p`HJxp @@p0*  - @Poe;;X yȉ7 8PAS.DCBADDRESS1 92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC;%|PAS.DCBADDRESS1 .EXIT0,, `@@X(@@@X@( ,  @Ts;;X!{ȉ7 8PAS.DCBADDRESS2 92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC;&|PAS.DCBADDRESS2 ##/@.DAD.DLD.DST.EXIT0.LBPR PAS.DCBADDRESS1 #**@ x 0 h H @x @@*@8Ww99X5!ȉ8 8PAS.INITFILE92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC9 *PAS.INITFILE .EXIT0.LDX.MW00 FF[O!! ` @h   (@` h @F  @On::X[%ȉ8 8PAS.OPTDECODE 92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC:6PAS.OPTDECODE .DCO.DLD.EXIT0:sharexclsavepurgcctlrewieof exte  QQ%% h0 Pno( `p ( ``p  0 p@@0 p A($8 8 (@Q@/N??X vȉ8 8PAS.A1SHAREDSIZE92833-16115 REV.6000 <920930.1908> /P1K/LIB/CDS/ETC_B.MAC?LPAS.A1SHAREDSIZE:$IDNBR.EXIT0.XLA1 VMAST (((( (`(hJ@ (@5;;X_!ȉ9 8PAS.BITOPERATOR192833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC;&&~WPAS.BITDEPOSIT1 +PAS.BITEXTRACT1 PAS.BITINDEX1 &)) .DAD.DDI.DIV.DLD.DMOD .DMP.DST.ENTR .MPY)  @p$(%   $@@`+(3$`h h x`(<(K`0 pG`@ 0pH!!`$`@ 0pT@!@$`W`(_(u"h pjdAA`@@0 pr0 poA0A$`@ 0 p}"A`ph 0$``#`(`"$AAA"$"EpAp ApApApEp w VGG`hhxh (x`(p(̄p@ !p$@p`p p!p`( A(AAAAAA Ax@A$@A`HHK##p`@p`(`0 p!pp`0 p!xx H@3Q;;X_)ȉ: 8PAS.BITOPERATOR292833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC;&&~WPAS.BITDEPOSIT2 +PAS.BITEXTRACT2 PAS.BITINDEX2 &.. .DAD.DDI.DIV.DLD.DMOD .DMP.DST.ENTR .LPXR .MPY.  @p$(%   $@@`+(3$`h h x`(<(K`0 pG`@ 0pH!!`$`@ 0pT@!@$`W`(_(u"h pjdAA`@@0 pr0(poA0A$`@ 0 p}"A`ph 0$``#`(`"$AAA"$"EpAp ApApApEp w fGG`hh'xh (x`(p(̄p@ !p$@p`&p p!p`( A(AAAAAA Ax@A$@A`VV++&p`( `@p x`(`0 p!pp`0 p!!xx V@a99X"ȉ: 8PAS.BITMASK 92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC9mPAS.BITMASK0PAS.BITMASK122""@ @ 2@#;;X) ȉ; 8PAS.COMPAREWORDS92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC;.PAS.COMPAREWORDSo.CMW.EXIT0.EXIT1.EXIT2.STXC  D @@_~;;X4 ȉ; 8PAS.COMPAREBYTES92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC;9PAS.COMPAREBYTESd.CBT.EXIT0.EXIT1.EXIT2.STXC  D @@j~;;XKȉ; 8PAS.STRINGADDRS 92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC;PPAS.STRINGADDRS .EXIT0 d@` @5::X ȉ 8PAS.BLANKSIZE 92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC:_PAS.BLANKSIZE .w$BCOM $FWSY .ENTR .XLA.XLBM> J@@=m\-::Xȉ 8PAS.BLANKCOM1 92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC:BPAS.BLANKCOM1 $BCOM .ENTR .XLAj@p0::Xȉ 8PAS.BLANKCOM2 92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC:BPAS.BLANKCOM2 $BCOM .ENTR .XLBMl`@::X ȉ 8PAS.LABELSIZE 92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC:KPAS.LABELSIZE y$BCOM $LCOM .ENTR .XLA.XLBM> J@@5GT::Xȉ 8PAS.LABELCOM1 92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC:.PAS.LABELCOM1 $LCOM .ENTR .XLAj@S&::Xȉ 8PAS.LABELCOM2 92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC:.PAS.LABELCOM2 $LCOM .ENTR .XLBMl`@ ::Xȉ 8PAS.REALINPUT 92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC:-- PAS.READLONGPAS.READREALIPAS.SREADLONG :PAS.SREADREAL -UUM.DIV .DLD.DST .EXIT0 .LDX .MPY .MW00 .NGLPAS.ENDOFFILE PAS.GET PAS.IOERROR PAS.REFERENCE PAS.STRGETPAS.STRIOERRORUR> 0 @p@ `p0( 0@0`@(P($(/0(/ 0(p0oA` h D   0I @p  @ `p`pp`piRE;`0(^`P(Rp0o` h   `(n@ ` p`pp plpppp p pppppp`p0 p((`(P0'KK1,$(00'@ `(`l(`0(p(`l( 0@0`@(p xl K   KKA +-09` .LEle.(9pNh(;hpNxO`N@!P(EpN`hO(<@@(L@ O.p(hV@@X(~`@h @p8(w`hh8 @!(rH(n`"pph` PH#x(T`@ 8P`P"P@(c2Pd} ~~LLN azh(8 A 5 @AA A@ @@ p ` 6p A  AA A  pQQ@Ш(爄((( `( x (`p ~??ppp`0pph` p h`xp`h pf`h  @Hf xfP ( @#(`h (( x@ p pfpi3d!BBH x h!(;xg@ (6`f 6 hh  gHighgX xhH#xg(-pf@piH x ` pgph@pj([8gHiPHiSpk8hhf50kgc 8j(RA5m==8p`hH (|pH (P(P(P)(P+(P*(P-(P,((@8(8(88h H Hhx(n8P(n@I99((((㈈(((p(mhX$((p(n(((߈(m(((㈈88(m((m(߈((((hDΈhH $((㈈((((߀(ppgg33Ph%H x`0(h8HH(`.h (6 0( A` pppp !((g@o;;X; ȉ 8PAS.REALOPERATOR92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC;//&PAS.REAL5OPSPAS.REAL5PACK ]PAS.REAL5TRUNC7PAS.REAL5UNPACK /0.DLD.DST.ENTR .MVW2@  "GG"`#hA`$h"H@`h%&A(^u%&xHD``!(e(e(ehHhG4AiCCx` p@ 8(mhixHXu(xx @8 8` AhHxD8AD8DhHi(>>(pp 88(`BppP (`P(@p (`i@p(AHH P(`@pSBB(1(p(u8(H`H xH` @hHd h d Ad ($h A(!`C(S 8,>>`(U`@(;@hxh(J(@@h(J@]!(UH(U   D(U`p `h((c(hG(^xtiHa(oZZlj))(o (rhtc`phhh`h`8({`h`@ph`PGuZ??`(``hhG`P(Ȉ`p`hQh` uhu8(`P(hu(hu`h`@ph`PGZhxxh w bbڼ--` phGhG@pppp p!p @h``ch Xp ڈpH H hbzCCAA`hs`s`HH ``hA5A`5h`hxH Hx0[hH H ]]^Q22X(U(PAh6`7\`\hA`mh(`]n@ `@s`(`(E`(E]@::X;+ȉ 8PAS.STRRANGER 92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC:TPAS.STRRANGER ##C.DAD.EXIT0.LBP.LBPR .LBTPAS.RUNTIMEERROR#GG-+) A(A(0p OA@@6` H x h @G  @;Y;;XGe ȉ 8PAS.FIXEDSTRING 92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC;KPAS.FIXEDSTRING OP.EXIT0.LBPR .LPXR  @86  @Y;;X=!ȉ 8PAS.BASICSTRINGS92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC;PAS.BASICSTRINGIPAS.BASICSTRINGO!!w.DAD.DLD.DSB.DST.EXIT0.LBP.LBPR !AA!!08 8pH`@A  @v/::X , ȉ 8PAS.STRINGDATA92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC:PAS.STRINGDATA1 PAS.STRINGDATA2 .DAD.DLD.EXIT0 `@  @@::X Pȉ 8PAS.STRVALPARM92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC: PAS.STRVALPARM.DST.EXIT0PAS.STRAPPENDSTR px0 a a @$::Xȉ# 8PAS.MOVEPACUP 92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC: EPAS.MOVEPACUP ''W.CCQB .DAD.DLD.DST.EXIT0.LBPR .LDX.MB00 '$DBU ((p pTx5M`p x 5O` p `MO(.`N6@hP@6H  D`M0O(@`pS0hMO S(4`pS`}}DNJH K` pK Q0hMQT S@`p K@Q0hQTO S(G h  @ p 6x6 `@H 8 h 5@h 5@ }@ol;;XT~,ȉ# 8PAS.MOVEPACDOWN 92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC;XPAS.MOVEPACDOWN 4&.DLD.DST.EXIT0PAS.XLBTPAS.XSBTOO@,( (+(+p p  @ p @ p @p@ p 0 p 0  8 (O@p77Xmȉ# 8PAS.XLBT92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC7 PAS.XLBT  .DAD.EXIT0.LBP.LBTVx@5@6@H@}]77Xuȉ# 8PAS.XSBT92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC7 PAS.XSBT  .DAD.EXIT0.LBP.SBT ; x@5@6DH @bA99X#ȉ ) 8PAS.GOTOMAIN92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC98'PAS.GOTOMAINj.CACQ .CCQB .EXIT0PAS.CDS XX ## HphHxH(HX(( hH`( hHH`0@`X@VMu 99Xȉ ) 8PAS.CODEWORD92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC9 PAS.CODEWORD \}.ENTR .XLA2 dg@@3&99Xȉ ) 8PAS.DATAWORD92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC9 PAS.DATAWORD .EXIT0Z@M 77XFȉ * 8PAS.MYQ 92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC7 "qPAS.MYQ n}.CCQA .EXIT0 2@b"77X"tȉ * 8PAS.STOP92833-16115 REV.5000 870720 /P1K/LIB/CDS/ETC_B.MAC7 &PAS.STOP EXECPAS.RETURNPARMS  0   @fCCXٸVPAS.HEAPSTACK192833-16211,REV.5000,870622 870622.0831/P1K/LIB/HEAP_STACK_1.PAS C@ٸBBXiVPAS.DISPOSE192833-16211,REV.5000,870622 870622.0831/P1K/LIB/HEAP_STACK_1.PAS B`PAS.DISPOSE1''q.EXIT0.SDSP PAS.CDS PAS.GETMEMINFO1 PAS.RUNTIMEERROR'mJB ( 0(_A@(`A(#0(_p @ p `A(2p P(;0(_p `p ` A(N` p ` BBJp (?` (S p` h `h " pp(B [^\ @tBBXbzQVPAS.MARK1 92833-16211,REV.5000,870622 870622.0831 /P1K/LIB/HEAP_STACK_1.PAS BVJPAS.MARK1 ;;$.EXIT0.SDSP PAS.CDS PAS.GETMEMINFO1 PAS.INITIALHEAP1PAS.RUNTIMEERRORPAS.SETMEMINFO1 ;}C;@ ` P(( @ ` @p` A@( P (I@ p ` ` h` ` p` @p  ` h ` p@ p ` A@(E:.C ` p0 @@p (  @ DDX]VPAS.COALESCE1 92833-16211,REV.5000,870622 870622.0831 /P1K/LIB/HEAP_STACK_1.PAS DNPAS.COALESCE1 {''N.EXIT0.SDSP PAS.CDS PAS.GETMEMINFO1 PAS.SETMEMINFO1 '!=;0 `P(`p ( (` p ( ` p` p p` p ` p ` p ` @ p ` (*(E @ @A@(E` P(E` ` ^^P=++h ` p p` p ` P (K(`(` p ` P(V(`p `p `@ p`A@(v^GGh" `  @p` h  `p (|` p ` p ` P((\@  @(G@لD@@XV PAS.NEW192833-16211,REV.5000,870622 870622.0831/P1K/LIB/HEAP_STACK_1.PAS @ ,GPAS.NEW1 DD.EXIT0.SDSP PAS.CDS PAS.COALESCE1 PAS.GETMEMINFO1 PAS.INITIALHEAP1PAS.RUNTIMEERRORPAS.SETMEMINFO1 DN/44`@p ` @p `@ h H `@hH @A@(%`@  p (A`@ P (;` @hH `@ hH jj411 p (A`@ p ` (`@ (_` hH@@p A@(_`@ h(jje44`@p `@ P(n(`@ p `@ @ hH@p `@ @ A@(`@ hHH H(` @hoo22H  (` hH@@h  ` @h @A@(` @h ` p `@ ` p oP<`@h (eP`P(ދ(0P`A(p` `` ( P` `` (` Ѱ@(`@ !@ Whpp (  @BBXPV PAS.RELEASE192833-16211,REV.5000,870622 870622.0831/P1K/LIB/HEAP_STACK_1.PAS B IPAS.RELEASE111.EXIT0.SDSP PAS.CDS PAS.GETMEMINFO1 PAS.RUNTIMEERRORPAS.SETMEMINFO1 1+I?0 ( @ (HA@ (((`A(#@ (H`p ` (0` (0` p (%` (C` p p` p  (H@@ Ip ( ]_ @DDX;HdV! PAS.DYNAMICDUMP192833-16211,REV.5000,870622 870622.0831/P1K/LIB/HEAP_STACK_1.PAS DNPAS.DYNAMICDUMP13PP .DAD.DDE.DST.EXIT0.SDSP PAS.CDS PAS.GETMEMINFO1 PAS.WRITEDOUBLE PAS.WRITEINTEGER PAS.WRITELINE PAS.WRITESTRING PHgE0   ɒg G|fF'/7ZB?`P((!G(`p `p ` p ` (Ȱ!!W<T !PR]Kp ` (` P p W Z ]h D  a  h    ` p 33(T p ` (` p ` p ()(3``> Top of stack: Top of heap: High stack: High heap: Initial stack: Initial heap: Previous free: Current mark: Heap/stack not initializedMark Point Size Start +` Next @ıqDDX&V" PAS.DISPOSE1S 92833-16211,REV.5000,870622 870622.0831 /P1K/LIB/HEAP_STACK_1.PAS D;PAS.DISPOSE1S ''q.EXIT0.SDSP PAS.CDS PAS.GETMEMINFO1 PAS.RUNTIMEERROR'AA0&  ( 0 (A@(0 @@ p p (A |[^ @}\AAXAYV# PAS.MARK1S92833-16211,REV.5000,870622 870622.0831/P1K/LIB/HEAP_STACK_1.PAS AVPAS.MARK1S.EXIT0.SDSP PAS.CDS PAS.GETMEMINFO1   ` @@p (@XwSBBXU1V$ PAS.NEW1S 92833-16211,REV.5000,870622 870622.0831 /P1K/LIB/HEAP_STACK_1.PAS B~(PAS.NEW1S 11.EXIT0.SDSP PAS.CDS PAS.GETMEMINFO1 PAS.RUNTIMEERRORPAS.SETMEMINFO1 1VV 1+0 ` @p`A@(`p` A@("`  ('@  p p (V  @ŰDDX +V$ PAS.RELEASE1S 92833-16211,REV.5000,870622 870622.0831 /P1K/LIB/HEAP_STACK_1.PAS D+$PAS.RELEASE1S 11.EXIT0.SDSP PAS.CDS PAS.GETMEMINFO1 PAS.RUNTIMEERRORPAS.SETMEMINFO1 1HH+#0 ( @ (#A@ (@ (#p  p (H ]_ @3RCCXV 2PAS.HEAPSTACK292833-16212,REV.5000,870622 870622.0832/P1K/LIB/HEAP_STACK_2.PAS C@BBX@V 3PAS.DISPOSE292833-16212,REV.5000,870622 870622.0832/P1K/LIB/HEAP_STACK_2.PAS BPAS.DISPOSE2aAA .DCO.DLD.DSB.DST.EXIT0 .LBPR .LPXR .SDSP PAS.CDS PAS.GETMEMINFO2 PAS.RUNTIMEERRORATL ` @@`@$@$@@  (P ( ((' (-(-P (    (DA(@(D@@ @@(R(LP ( $$T@@"@@@@$ x&$&(t(h(t$cchBB@@@ (Z@ @(z( @@ @ $  x&$&  x& & x& @@&.@ p (c[^\@BBXf V 4PAS.MARK2 92833-16212,REV.5000,870622 870622.0832 /P1K/LIB/HEAP_STACK_2.PAS BW{PAS.MARK2 YY.DCO .DDE.DLD .DSB.DST .EXIT0 .LBPR .LPXR .SDSP PAS.CDS PAS.GETMEMINFO2 PAS.INITIALHEAP2PAS.RUNTIMEERRORPAS.SETMEMINFO2 YDRJ `@ @`@`@@(((@ `@ @`@`@A @ ('('(-p (z   @ x@@ @x@@ x    ""dR  x@ @ x@@ @@ "00@f@D  (v(r(v@@@P  '@p (0 @;DDXV 4PAS.COALESCE2 92833-16212,REV.5000,870622 870622.0832 /P1K/LIB/HEAP_STACK_2.PAS DNPAS.COALESCE2 II .DAD.DCO.DDE.DLD .DSB.DST .EXIT0 .LBPR .LPXR .SDSP PAS.CDS PAS.GETMEMINFO2 PAS.SETMEMINFO2 IVT `@@`@!P!@@@((@@ @A@($($ @(@@ p   @ @@  @@  @A @(( @@! x#! 22V# ((^(@@ @((d @@ @@$ x#$#2:sUU@ !  x#!#  p   ((9(9`(/ @@@@((/(/  @@ @@  A((( ! @ x#!@D# {/@ !  x#!# 00(   @@ @@ (((@ + (0@k@@XwzV 6PAS.NEW292833-16212,REV.5000,870622 870622.0832/P1K/LIB/HEAP_STACK_2.PAS @ ,oPAS.NEW2 ii .DAD .DCO .DIN.DLD .DSB.DST .EXIT0.LBP.LBPR .LPX.SDSP PAS.CDS PAS.COALESCE2 PAS.GETMEMINFO2 PAS.INITIALHEAP2PAS.RUNTIMEERRORPAS.SETMEMINFO2 i~~==`@p ` @  `@ p @` @ A@@ `@hH p @@ ($(+`@ p (R`@   (L(3` @ hH p @@ `~[[=,,@ p `@ @A@@ p (R`@ p ` (`@ (m`@p @` @@A  @ (m(m[i@@`@ h@@ (`@p `@ P(|(`@ @@ `@p`@     `@p@@  A ((`@p   `__ų44@ x(`@ @A@@@` @ Ax(`@p` @  ` @p@@_EC` @ p` @ (((` @ h Hp` @@  @ `@x   `@@H@x @@ @(s ` @@`@!p99mw" ! (*(7(7P` @@ `!p! (B(>(BA@9]]B8*` n` (\@` @@` !p!` n` (i` `(n@  +@ p (]  @*oI/BBXyV 7PAS.RELEASE292833-16212,REV.5000,870622 870622.0832/P1K/LIB/HEAP_STACK_2.PAS B rPAS.RELEASE2KK 6.DAD.DCO.DLD.DST .EXIT0 .LBPR .LPXR .SDSP PAS.CDS PAS.GETMEMINFO2 PAS.RUNTIMEERRORPAS.SETMEMINFO2 KRL `@ @`@P@@  (` (q ((' (-(-` (q   (G(9 (?(G @@ (1 (M(l ''ԹR  @ @@ @ x 'Mk (q` @@ ' p (]_@ȨDDX?HgV 8PAS.DYNAMICDUMP292833-16212,REV.5000,870622 870622.0832/P1K/LIB/HEAP_STACK_2.PAS DNPAS.DYNAMICDUMP2VXXd.DAD.DCO.DLD.DSB.DST.EXIT0 .LBPR .LPXR .SDSP PAS.CDS PAS.GETMEMINFO2 PAS.WRITEDOUBLE PAS.WRITELINE PAS.WRITESTRING XO,YG@ x  `@@ `!@! x  @ x   x  @ x   x   @ x   x  @ x ##zY@  x ((  x  #}}BoZH@ x   x  @ x   x @  x   x  "@ x   x  @ x   x }==* @  x   x  *@ x   x  =}}IAZH@ x   x  2@ x   x @  x   x  @ x   x  :@ x   x }==M* @  x   x  B@ x   x  =wYM@@(~(( x   @ x   x  @ x  J x  (  @@ @ @(( x   @@E+!x   x   @ x  W x  @ x  @[YMp ` (  ((@p  x   x  Z@ x   x  ]@@ @@! x  ! x  `@ A@!@ ??jT+#x  @! x  d   ! x  @! x  ?IIy0.@  (@@ @@  ((@   @@( x  @@* (I`` > Top of stack: Top of heap: High stack: High heap: Initial stack: Initial heap: Previous free: Current mark: Heap/stack not initializedMark Point Size  V` Start Next @/5DDX'8V :PAS.DISPOSE2S 92833-16212,REV.5000,870622 870622.0832 /P1K/LIB/HEAP_STACK_2.PAS D<-PAS.DISPOSE2S 88 x.DCO.DLD.DST.EXIT0.LBPR .SDSP PAS.CDS PAS.GETMEMINFO2 PAS.RUNTIMEERROR8ZZ:82 ` @@`@@@@ (P (%(%( (%P x  @@ (@  p (Z |[^ @ +AAXEV :PAS.MARK2S92833-16212,REV.5000,870622 870622.0832/P1K/LIB/HEAP_STACK_2.PAS AWPAS.MARK2S**z.DLD.DST.EXIT0.LBPR .SDSP PAS.CDS PAS.GETMEMINFO2 *//+ `@ @`@@@x %p (/@VFuBBX?V ;PAS.NEW2S 92833-16212,REV.5000,870622 870622.0832 /P1K/LIB/HEAP_STACK_2.PAS B~4PAS.NEW2S JJ .DCO.DIN.DLD .DSB.DST .EXIT0 .LBPR .SDSP PAS.CDS PAS.GETMEMINFO2 PAS.RUNTIMEERRORPAS.SETMEMINFO2 Jddp_?9 ` @@`@P@@ @@@((((.(. @x D  @(3`  ( @ @ p (d  @.JM DDX &?V ;PAS.RELEASE2S 92833-16212,REV.5000,870622 870622.0832 /P1K/LIB/HEAP_STACK_2.PAS D,8PAS.RELEASE2S BB .DCO.DLD.DST.EXIT0 .LBPR .SDSP PAS.CDS PAS.GETMEMINFO2 PAS.RUNTIMEERRORPAS.SETMEMINFO2 Bcc?7 `@ @`@P@@  (` (7  (&( (&` (7@@ @ @ @ x % p (c ]_ @WQv@@X V7PAS.STRINGS 92833-16216,REV.5000,870622 870622.0828 /P1K/LIB/STRINGS.PAS@@` BBXi0V7PAS.VALIDSTRING 92833-16216,REV.5000,870622 870622.0828 /P1K/LIB/STRINGS.PASBq)PAS.VALIDSTRING ''X.EXIT0.LBPR .LPXR .SDSP PAS.CDS PAS.RUNTIMEERROR'UU0.@( ( ( @p @A@ ( x ('p @ ` @p (U  @0QBBXw%V8PAS.STRINGINDEX 92833-16216,REV.5000,870622 870622.0828 /P1K/LIB/STRINGS.PASBPAS.STRINGINDEX "".EXIT0.LBPR .SDSP PAS.CDS PAS.RUNTIMEERROR"GG0%#` ((@A@ (p (p  `  p p `p (G  @57S@@XqV8PAS.STRCOMPARE92833-16216,REV.5000,870622 870622.0828/P1K/LIB/STRINGS.PAS@=hjPAS.STRCOMPARE //b.DAD.DLD.DST.EXIT0.SDSP PAS.CDS PAS.VALIDSTRING PAS.XLBT/~~-LD@p@p ` A@(` p (`p p ` A@ (A P p P P(=(A` p (` A@ (N` @~..RLAp(h@@P p P @p. h ` p(  @:>>XgV9PAS.STRLEN92833-16216,REV.5000,870622 870622.0828/P1K/LIB/STRINGS.PAS>PAS.STRLEN '.EXIT0.SDSP PAS.CDS PAS.VALIDSTRING    p ` p (@L>>XdV9PAS.STRMAX92833-16216,REV.5000,870622 870622.0828/P1K/LIB/STRINGS.PAS>PAS.STRMAX ""P.EXIT0.LPXR .SDSP PAS.CDS PAS.VALIDSTRING "..Sn  ( x (@p ` @p (.  @AAX4/V:PAS.SETSTRLEN 92833-16216,REV.5000,870622 870622.0828 /P1K/LIB/STRINGS.PASA/+@p A@ (  ("` (  ("@` p `  p p `p (U  @ZAAX9EV:PAS.STRBUMPUP 92833-16216,REV.5000,870622 870622.0828 /P1K/LIB/STRINGS.PASAAV<PAS.STRBUMPUP ;;.EXIT0.LBPR .LPXR .SDSP PAS.CDS PAS.RUNTIMEERRORPAS.STRENDERROR PAS.VALIDSTRING ;zz`E?  p ` (:` @@ pA@(30 (!@ x@`@` Hx(:` @ ` p` p p (z  @AAXQ=V;PAS.STRAPPENDSTR92833-16216,REV.5000,870622 870622.0828/P1K/LIB/STRINGS.PASAY6PAS.STRAPPENDSTR;; .DAD.DLD.DST.EXIT0 .SDSP PAS.CDS PAS.MOVEPACUP PAS.STRBUMPUP PAS.VALIDSTRING ;bb3V=5P p P p ` (5` ((5@ p ` ((5A@@A@@` p`  p (b  @7AAX>7VPAS.STRAPPENDPAC92833-16216,REV.5000,870622 870622.0828/P1K/LIB/STRINGS.PASAF.PAS.STRAPPENDPAC;; .DAD.DLD.DST.EXIT0 .SDSP PAS.CDS PAS.MOVEPACUP PAS.STRBUMPUP PAS.VALIDSTRING ;__N71P p ` (-`( (-@ p`((-@h`A@@` p` p p (_  @AAX,VPAS.STRINSERT 92833-16216,REV.5000,870622 870622.0828 /P1K/LIB/STRINGS.PASAa{PAS.STRINSERT OO [ .DAD.DLD.DST .EXIT0 .SDSP PAS.CDS PAS.MOVEPACDOWN PAS.MOVEPACUP PAS.RUNTIMEERRORPAS.STRBUMPUP PAS.VALIDSTRING OqNFPpPp`((z`(z`A($`A@(*`(z`@p @p ` @ p`A@(_  `33/(N@p` @ h@p(b` @ p`(f(z311_fA@ @A@@ p@ @ p p(1  @WAAXVPAS.STRDELETE 92833-16216,REV.5000,870622 870622.0828 /P1K/LIB/STRINGS.PASAW}PAS.STRDELETE OO ` .DAD.DLD.DST .EXIT0 .SDSP PAS.CDS PAS.MOVEPACUP PAS.RUNTIMEERRORPAS.SETSTRLEN PAS.STRENDERROR PAS.VALIDSTRING O~~L@P p ` (|`A(p (|`( p (|`($(|` A@(2p (|`@@p` A@(M` (Hp `@ ~RR?L0,p`(Q(|`@ p@ (| `@pA@ @`@ h@pR| @@   pp p (  @X??Xk((^VPAS.STRLTRIM92833-16216,REV.5000,870622 870622.0828/P1K/LIB/STRINGS.PAS?<WPAS.STRLTRIMAA ;.DAD.DLD.DST .EXIT0 .SDSP PAS.CDS PAS.MOVEPACUP PAS.STRBUMPUP PAS.VALIDSTRING PAS.XLBTA MEPp Pp ` ((V` (Vp ` A@ (/ p P (+(/` p (` @ p @ p ` (?(V`  'Mp`    p(  @l,??XjUVPAS.STRRTRIM92833-16216,REV.5000,870622 870622.0828/P1K/LIB/STRINGS.PAS?BNPAS.STRRTRIMAA ;.DAD.DLD.DST .EXIT0 .SDSP PAS.CDS PAS.MOVEPACUP PAS.STRBUMPUP PAS.VALIDSTRING PAS.XLBTA6NDPp Pp ` ((M` (M` p ` ((+ p P ('(+@ p (@ p ` A(6(M@@A@@` p`  N p(  @>]>>Xt_ VPAS.STRRPT92833-16216,REV.5000,870622 870622.0828/P1K/LIB/STRINGS.PAS>{PAS.STRRPTzQQ ".DAD .DCO.DLD .DMP .DSB.DST .EXIT0 .SDSP PAS.CDS PAS.MOVEPACUP PAS.RUNTIMEERRORPAS.STRBUMPUP PAS.VALIDSTRING Q7RFPp Pp ` (` (`(`(h  h    (7(7`(@h  ((` p@A ((99RmR#!h  @@@ (a(_(a`p  p 922nu`@ ph   (L@@   p p(2i @41>>XDcVPAS.STR 92833-16216,REV.5000,870622 870622.0828 /P1K/LIB/STRINGS.PAS> +qXPAS.STR  EE qH.DAD.DLD.DST .EXIT0 .SDSP PAS.CDS PAS.MOVEPACUP PAS.RUNTIMEERRORPAS.STRBUMPUP PAS.VALIDSTRING E}NDPpPp `(W` (W`(`(W`A(/`@@p`A@(5`(W@p`A(@(W@@A@@` ))TNpp  p p p()  @y阩>>Xs9oVPAS.STRPOS92833-16216,REV.5000,870622 870622.0828/P1K/LIB/STRINGS.PAS>hPAS.STRPOS //b.DAD.DLD.DST.EXIT0.SDSP PAS.CDS PAS.VALIDSTRING PAS.XLBT/yKEp@p @p ` ((f` ((f` @ p p p` A@(`` (`p p` A@(\` (\ Pp::'K`@@pPPp `p(.`p(` (f@p:!f ` p(  @pt@@X\JV PAS.STRMOVE 92833-16216,REV.5000,870622 870622.0828 /P1K/LIB/STRINGS.PAS@9PAS.STRMOVE ^^ 6I .DAD.DLD.DST .EXIT0 .LPXR .SDSP PAS.CDS PAS.MOVEPACDOWN PAS.MOVEPACUP PAS.RUNTIMEERRORPAS.SETSTRLEN PAS.STRENDERROR PAS.VALIDSTRING ^yC=`((`p( Pp`((`p(P p`(8`(8`()p(8`(-(8`(1(<`@@p`A@p`(`EEC##(F(N`A@p`(`@@p`(\(g`A@pE=fLD(t A@p`(`(` (p`( @x `H x`p(p(p`(8`A@(`EE\+'(@ p`(`(`A@(   EJSK(   (8`( `((    (8`( (`(  (8`A@(0 (8440 @ $@ pp p p p p(4@ BBXRV PAS.SPARAMETERS 92833-16216,REV.5000,870622 870622.0828 /P1K/LIB/STRINGS.PASBYPAS.SPARAMETERS D.EXIT0.SDSP PAS.CDS PAS.PARAMETERS>>`@p `p  p ` ((` ` p ` @@p (>@"A@@XEMV PAS.READSTR 92833-16216,REV.5000,870622 870622.0828 /P1K/LIB/STRINGS.PAS@FPAS.READSTR KK  .DAD.DLD.DST .EXIT0 .LPXR .SDSP PAS.CDS PAS.ENDOFFILE PAS.GET PAS.IENDOFLINEPAS.SETSTRLEN PAS.XSBTKxxMM?@p  x ` (@ ` (=` A@ (=P(=` p  `@ p @ (p (E  p (x  @|??Xg@V PAS.WRITESTR92833-16216,REV.5000,870622 870622.0828/P1K/LIB/STRINGS.PAS?I7PAS.WRITESTRFF  .DAD.DLD.DST .EXIT0 .SDSP PAS.CDS PAS.IOERROR PAS.PUT PAS.SPLITMOVE PAS.VALIDSTRING PAS.XLBTFkk=@6`(p` p ` (6@  (`(6pp    hH P 8 8(!@@   p p (k  @BBXfV PAS.READSTRFILE 92833-16216,REV.5000,870622 870622.0828 /P1K/LIB/STRINGS.PASBMPAS.READSTRFILE ,,Wj.EXIT0.LBPR .SDSP PAS.CDS PAS.READNONTEXT PAS.VALIDSTRING ,((/%@x   0 ( p ((@:AAXJV PAS.WRITESTRFILE92833-16216,REV.5000,870622 870622.0828/P1K/LIB/STRINGS.PASARPAS.WRITESTRFILE,,o.EXIT0.LBPR .SDSP PAS.CDS PAS.VALIDSTRING PAS.WRITENONTEXT,((r0 (x     p ((@޷>>Xh1V PAS.STRGET92833-16216,REV.5000,870622 870622.0828/P1K/LIB/STRINGS.PAS>(PAS.STRGET 44 m.DAD.DLD.DST.EXIT0.LBPR .SDSP PAS.CDS PAS.RUNTIMEERRORPAS.XLBT4VVMC1-p ( @ (&A(&p  P`  p `p (V  @g>>Xy;V PAS.STRPUT92833-16216,REV.5000,870622 870622.0828/P1K/LIB/STRINGS.PAS>4PAS.STRPUT// .DAD.DLD.DST.EXIT0.LBPR .LPXR .SDSP PAS.CDS PAS.XSBT/cc;9@x ` A(3A(3A@@ @  ` A@(0 p (c  @¢??X6$V PAS.SREADINT92833-16216,REV.5000,870622 870622.0828/P1K/LIB/STRINGS.PAS?.PAS.SREADINT..5.DCO.DLD.EXIT0.SDSP PAS.CDS PAS.SREADDOUBLE PAS.STRIOERROR.>>$ 0   ( ( (((` (@ @@ p (> @BBXS&V PAS.SREADDOUBLE 92833-16216,REV.5000,870622 870622.0828 /P1K/LIB/STRINGS.PASB9PAS.SREADDOUBLE MM <.DLD .DNG.DST .EXIT0 .SDSP PAS.ASCII2DOUBLEPAS.CDS PAS.STRGETPAS.STRINGINDEX PAS.STRIOERRORPAS.VALIDSTRING MF>@  p ` (p(` pP(%`P ($(%(pp `P p`(q`P-p`(=`P+(=(EPp`??ޠF@(f`@(fp`   0 p Pp`(e` p?CCje#!(E`(n@D   `0p`(w`0 (@  p(C  @F??XHLV PAS.SREADAOC92833-16216,REV.5000,870622 870622.0828/P1K/LIB/STRINGS.PAS?APAS.SREADAOC22.EXIT0.SBT.SDSP PAS.CDS PAS.STRGETPAS.STRINGINDEX PAS.VALIDSTRING 2WJD@(@0(@p`A@(- (-h 6@HH``p(`A@(@h 6@H` `@p(-@ p p $J((p( @AAX' V PAS.SREADENUM 92833-16216,REV.5000,870622 870622.0828 /P1K/LIB/STRINGS.PASAOPAS.SREADENUM wwV .DAD .DCO .DDI.DIN.DLD.DNG.DSB.DST.EXIT0.LBT.MPY.SDSP PAS.BITMASK1PAS.CDS PAS.STRGETPAS.STRINGINDEX PAS.STRIOERROR PAS.UPSHIFTALPHAPAS.VALIDSTRING PAS.XLBTwH@p`(p(` p `(#`P ("(#(`A(.` ,H@(>P(p` ,H@77H(b`A@(b`p  p(@@p7fOK`A@(tP(@p`@@h @p`(ph   (p`(P(`A@A(@@ ,,  p  p @h 6 HP ((@D,ss?=`p(`P((h @@@@ ((h 6@J P p`(h@ @  @(( p p p(s88Y''8@jAAX` VPAS.SREADCHAR 92833-16216,REV.5000,870622 870622.0828 /P1K/LIB/STRINGS.PASA6PAS.SREADCHAR ..3.EXIT0.SDSP PAS.CDS PAS.STRGETPAS.STRINGINDEX PAS.VALIDSTRING .44C< @ (0 (  @(@ p (4@kBBX`GVPAS.SREADSTRING 92833-16216,REV.5000,870622 870622.0828 /P1K/LIB/STRINGS.PASBG@PAS.SREADSTRING NN .DAD.DLD.DST .EXIT0 .LPXR .SDSP PAS.CDS PAS.SETSTRLEN PAS.STRGETPAS.STRINGINDEX PAS.VALIDSTRING PAS.XSBTNnnG=p(?`(?p  x ` A@ (7@(7` p A@ @ (P (?  p(n  @e넫BBXmaVPAS.SWRITECHECK 92833-16216,REV.5000,870622 870622.0828 /P1K/LIB/STRINGS.PASBsVPAS.SWRITECHECK FF E.EXIT0.LPXR .SDSP PAS.CDS PAS.RUNTIMEERRORPAS.STRENDERROR PAS.STRIOERRORPAS.STRPUTPAS.VALIDSTRING FL@p@p ` (T (` (T((#` A()`(T @pA@(BP (B`` (H(R0// |L  (Bp` p p`p(/ @Y*wAAX0VPAS.SWRITEAOC 92833-16216,REV.5000,870622 870622.0828 /P1K/LIB/STRINGS.PASAV#PAS.SWRITEAOC ((8.EXIT0.LBT.SDSP PAS.CDS PAS.STRPUTPAS.SWRITECHECK (WW0, ("`("pph 6@Hp08@8(@ p p p p(W@KEj@@XVPAS.SWRITEENUM92833-16216,REV.5000,870622 870622.0828/P1K/LIB/STRINGS.PAS@zPAS.SWRITEENUM== .DAD.DST.EXIT0 .LBT.MPY .SDSP PAS.CDS PAS.STRIOERRORPAS.STRPUTPAS.SWRITECHECK =#EA`(P`(`p`p`(`A@( P`p`@@p`p`A@(Ch@ @h 6J P (C`p(*`VVE0,(J`@p@(y`@@p`hAH(a (yxph @h 6@H p`V//u8(w8(c@@# p p p p p(/  @x@@XVPAS.SWRITECHAR92833-16216,REV.5000,870622 870622.0828/P1K/LIB/STRINGS.PAS@PAS.SWRITECHAR$$.EXIT0.SDSP PAS.CDS PAS.STRPUTPAS.SWRITECHECK $11d (0@@ p p p(1  @8ZWAAX]6VPAS.SWRITEDOUBLE92833-16216,REV.5000,870622 870622.0828/P1K/LIB/STRINGS.PASAe)PAS.SWRITEDOUBLE:: .DLD.DST.EXIT0.LBT .SDSP PAS.CDS PAS.DOUBLE2ASCIIPAS.STRPUTPAS.SWRITECHECK :\\)60`p @ ((` (((` @@6@ HHp%P%@ @p (/@ p  p(\  @=[AAX6VPAS.SWRITEINT 92833-16216,REV.5000,870622 870622.0828 /P1K/LIB/STRINGS.PASASPAS.SWRITEINT !!A.DST.EXIT0.SDSP PAS.CDS PAS.SWRITEDOUBLE!//rh @0 @@ p p p (/@e@BBXlSVPAS.SWRITEAREAL 92833-16216,REV.5000,870622 870622.0828 /P1K/LIB/STRINGS.PASBRDPAS.SWRITEAREAL ::xr.EXIT0.LBT.SDSP PAS.CDS PAS.REAL2ASCIIPAS.STRIOERRORPAS.STRPUTPAS.SWRITECHECK :_JB`(`(0`(p`(`'pP p (C`(Cp#p`@@6H@Hp$@$88#(1-pJ p p p p(  @=J\ @@XVPAS.SWRITELONG92833-16216,REV.5000,870622 870622.0828/P1K/LIB/STRINGS.PAS@| PAS.SWRITELONG(~.EXIT0.SDSP PAS.CDS PAS.SWRITEAREAL ++   p p p(+ L @q@@X VPAS.SWRITEREAL92833-16216,REV.5000,870622 870622.0828/P1K/LIB/STRINGS.PAS@wPAS.SWRITEREAL&&i.BLE.CFER .EXIT0.SDSP PAS.CDS PAS.SWRITEAREAL &440   p p p(4 E @0AAXk<VPAS.SWRITESTRING92833-16216,REV.5000,870622 870622.0828/P1K/LIB/STRINGS.PASAs3PAS.SWRITESTRINGEE .DAD.DLD.DST .EXIT0 .LBPR .SDSP PAS.CDS PAS.STRPUTPAS.SWRITECHECK PAS.VALIDSTRING PAS.XLBTEaah<4` (2 x@(2`(2pp  p pP8 @8( @ p p(a  @s3BBXkSVPAS.SFRITEAREAL 92833-16216,REV.5000,870622 870622.0828 /P1K/LIB/STRINGS.PASBRDPAS.SFRITEAREAL ;;.EXIT0.LBT.SDSP PAS.CDS PAS.FREAL2ASCII PAS.STRIOERRORPAS.STRPUTPAS.SWRITECHECK ;_JB`(`(@`(p`(`'p  p0(C`(Cp#p`@@6H@Hp$P$88#(1-pJ p p p p(  @P@@X|VPAS.SFRITELONG92833-16216,REV.5000,870622 870622.0828/P1K/LIB/STRINGS.PAS@k PAS.SFRITELONG(m.EXIT0.SDSP PAS.CDS PAS.SFRITEAREAL ++   p p p(+ L @B@@X VPAS.SFRITEREAL92833-16216,REV.5000,870622 870622.0828/P1K/LIB/STRINGS.PAS@fPAS.SFRITEREAL&&i.BLE.CFER .EXIT0.SDSP PAS.CDS PAS.SFRITEAREAL &440   p p p(4 E @BBXV"PAS.LONGERRORS92833-16213,REV.5000,870622 870622.0833/P1K/LIB/LONG_ERRORS.PASB@GCCXlV"PAS.RUNTIMEERROR92833-16213,REV.5000,870622 870622.0833/P1K/LIB/LONG_ERRORS.PASCV PAS.RUNTIMEERROR.EXIT0.SDSP PAS.CDS PAS.ERRORCATCHER>y @ @(  @T|s<CCXV"PAS.FILEERROR 92833-16213,REV.5000,870622 870622.0833 /P1K/LIB/LONG_ERRORS.PASCLPAS.FILEERROR .EXIT0.SDSP PAS.CDS PAS.ERRORCATCHER++-`@p `@p   (+  @<BBXoV"PAS.IOERROR 92833-16213,REV.5000,870622 870622.0833 /P1K/LIB/LONG_ERRORS.PASB PAS.IOERROR .EXIT0.SDSP PAS.CDS PAS.ERRORCATCHER++-`@p `@p ((   (+  @~BBXV"PAS.STRIOERROR92833-16213,REV.5000,870622 870622.0833/P1K/LIB/LONG_ERRORS.PASB PAS.STRIOERROR.EXIT0.SDSP PAS.CDS PAS.ERRORCATCHER>z @ @(  @AAXCV"PAS.EMAERROR92833-16213,REV.5000,870622 870622.0833/P1K/LIB/LONG_ERRORS.PASA1 PAS.EMAERROR.EXIT0.SDSP PAS.CDS PAS.ERRORCATCHER  @ @(  @6CCX_V"PAS.SEGMENTERROR92833-16213,REV.5000,870622 870622.0833/P1K/LIB/LONG_ERRORS.PASC[ PAS.SEGMENTERROR.EXIT0.SDSP PAS.CDS PAS.ERRORCATCHER-p  @@(  @CCXV"PAS.IOWARNING 92833-16213,REV.5000,870622 870622.0833 /P1K/LIB/LONG_ERRORS.PASC IPAS.IOWARNING .EXIT0.SDSP PAS.CDS PAS.ERRORCATCHER++-`@p `@p   (+  @>CCXψ)V"PAS.ERRORCATCHER92833-16213,REV.5000,870622 870622.0833/P1K/LIB/LONG_ERRORS.PASC9PAS.ERRORCATCHER;;.EXIT0.SDSP LOGLU PAS.CDS PAS.ERRORPRINTERPAS.SETEXITPARMSPAS.STOPPAS.TRACEBACK ;FF&N)  `P(@ pP`0 ppp p(Fe@bWCCXfV"!PAS.ERRORPRINTER92833-16213,REV.5000,870622 870622.0833/P1K/LIB/LONG_ERRORS.PASCZPAS.ERRORPRINTERgFF \.DST.EXIT0.LBT .SBT .SDSP LOGLU PAS.BOUNDINTEGERPAS.CDS PAS.DOUBLE2ASCIIPAS.STRINGADDRS REIOF*;7`@((@ p `@p `@p 0% `@@ @ (`@hH `@@6`@@H`  `@PP(<ZZ#;0*(A`@@ p ($` (S` B&(k` (kpp h 6@ Hp` B8 8([Z>XkH@@@ p p (Ih @ P p ` ((`@@6@ HHp ` B @ @p ((@ p p (u`p `l '`@wwaG))(`@P(P(騨P(P(P(P(P(*P(7P (DP[(QP\(^P](kP^(xP_(P`(Pa(Pb(Pc((wR8`p `l '(`p `l ((`p `l )(`$p `l *(ܱ`-p `l ((`7p `l +(`?))).p `l ,(`Gp `l +()bDR8`Op `l '(`Vp `l -(`ep `l .(`sp `l -(ܱ`p `l -(`p `l -(`))*gp `l /(`p `l 0()49K7`p `l 1(`p `l )(`ψp `l 2`@p ` 3`@(`p `l 4`@p ` 3>> #(-`p `l )`@p ` 5`p `l 6>330`@ p ` p `@p `l  (3p``Pascal Error: Undefined CaseHeap/Stack CollisionNil Pointer DereferencedValue Out Of RangeMOD By Invalid ValueString UnderflowString Overflow String Bad IndexInvalid StringDispose Called With  ```A Nil Ptr Disposed An Invalid Variant Release Called With A Nil Ptr Dispose Called With A Bad Ptr Release Called With A Bad Ptr Overflow Of Two Word IntegerIllegal Char For Base No Value To Co88''nvert Insufficient Image SpaceNumber In Line Pas.ErrorExit Called At With 83G5`@(O`p `l 7`@p ` 3(n`p `l 8`@ p ` p `@p `l  ``p ` zl 9 a `@:0!(@@ 55P ~~ND6((((Ɉ((((( (($(1(>(K(X(e(r(((((`p `l '(`p `l ;(ɱ`p `l 1(`!p `~662 l ;(ɱ`*p `l <(`6p `l 8(6@R8`Cp `l )(`Op `l /(`]p `l ((`gp `l =(ɱ`rp `l )(`~p `l +(`))0Bp `l 8(`p `l -()XR8`p `l >(`p `l )(`p `l ?(`p `l ;(ɱ`p `l +(`p `l @(`''p `l /(`p `l 6'""`@p ` 3@@ (3"x``Pascal String I/O Error In Line Pascal I/O Error On File Unexpected EOFFile Must Be Text File Must Be Direct Bad Record Length Must Reset Or Open File Must Rewrite Or Open File Direct AccYH``ess Read ErrorSequential Access Read ErrorInvalid Integer ReadLine Read Was Too LongInvalid Real Number ReadFile Is Not CCTLNo Scratch File Available Neg FLD/DEC Width Not Allowed File Cannot rrlUUBe Type 1 Or 2File Must Be Type 1 Or 2Cannot Open LU 0 For Read OnlyMissing File Name File Is Not OpenError Identifier Not In Enumerated Type Value Not In Enumerated Typer(H4`p `l .`@ p ` p `@p `l `` p `l 9`@P(P((!` p `l ?(!` Tp `l ;(!@@ ( 995[((Pascal I/O Warning On File Output Line Moved To Next LineOutput Line Split 9~~'C3p`Ap;` l;9`P(CP(IP(]P(cP(P((` .(`Cp;` l;)` 5(` (`Op;` ~99#j$l;3` 3`Tp;` l;4` p;` l;9kk,?/(`Yp;` l;,` p;` l; `ap;` l;3(` "(` E ppp p('kYY~%AA?  !*** Pascal Pointer Error At FMP Error On File Pascal Segment Not FoundY@+KJ BBXV(TRACE_BACK92833-16128,REV.5000,870622 870622.0839/P1K/LIB/CDS/TRACE_BACK.PAS B@kĊEEXYY?,V(PAS.TRACEBACK 92833-16128,REV.5000,870622 870622.0839 /P1K/LIB/CDS/TRACE_BACK.PAS E%PAS.TRACEBACK ~ddΛ.DIV.DST .EXIT0 .LBT .SBT.SDSP DISCSIZE EXECPAS.BLANKFILL PAS.CDS PAS.CODEWORDPAS.DATAWORDPAS.DOUBLE2ASCIIPAS.MYQ PAS.SINGLEMOD XREIO d~~jB@h @!p! p ` (()` @@6H@ H h H6p#@H`# `p@ p ( `@p` +@ ppp (` A@ (C` p ~[[B''(E` p ` @@ p p (8`@ hH H `@ hH x @ hH H`@ [p\i:6`@ p `@ p   hH `@p `@pp `@ p`@ p  ((`@ `@ p ` @@ p `p (PNNF.$`ppPp`@H@6 p`p`p ` p@p`pNiPA=p ` @A@p`( `A@( ` p`p ` p@p`p` @A@( ` @p@p`Pp`( `@HHbY$p@p`p `@p@p`@@H6  p@p@p`((ppH)6B:p`A @(` A@(`@p@p`/(c`@p@p`@@6 p`P(g(Pp`PS(p(`pPp]]ax.(`p`@pPp`p`G p`(pp`@pPp`@p`hH@h]E=88((` p` (`pPp`@@6 p `@p`@pPp`p `pPp`@@6  p P p`MM ($(p p`@ A> p`(q`@pp`@PS((qM1T<8`p` @@p`G (PAS.BLANKFILL \1 ,(~~~ˮ PAS.BLANKSIZE ;7PAS.BOUNDDOUBLE (PAS.BOUNDINTEGERPAS.CDS <PAS.CDSCONFLICT <PAS.CHECKPTR1  PAS.CHECKPTR2 # PAS.CLEARFILE q(PAS.CLOSEFILE <R(3@\1 ,(~~~C PAS.CLOSEPURGEK(aPAS.COALESCE1 q(PAS.COALESCE2 G( PAS.CODEWORDgXPAS.COMPAREBYTES9FPAS.COMPAREWORDS8A PAS.CONVERT ( PAS.CURRMARC1 jPAS.CURRMARC2 ; PAS.DATAWORDhK~~~PAS.DCBADDRESS1 %7PAS.DCBADDRESS2 &Q PAS.DISPOSE1kk( PAS.DISPOSE1S [(  PAS.DISPOSE2j( PAS.DISPOSE2S z( PAS.DOUBLE2ASCIIIT(PAS.DOUBLEMOD / MARC2 ; PAS.DATAWORDhK~~~PAS.DYNAMICDUMP1}(1PAS.DYNAMICDUMP29(1 PAS.EMAERRORG(PAS.ENDOFFILE c(kPAS.ENDOFLINE >(ePAS.ERRORCATCHER!E( YPAS.ERROREXIT $PAS.ERRORPRINTER#8(T K~~~W1 PAS.EXITDATA ePAS.EXITDATAPTR  ePAS.EXITDATASET  ePAS.EXTNAMELENK(PAS.FILEERROR =( PAS.FILENAME ( PAS.FILENAMRCJ(@PAS.FILEPOSITION (PAS.FIXEDSTRING Z8RINTER#8-K~~~.y PAS.FREAL2ASCII Y"( PAS.FRITEANYREALs( PAS.FRITELONG p(PAS.FRITEREAL (PAS.GET N(kPAS.GETMEMINFO1 jPAS.GETMEMINFO2 ;PAS.GETNEWPARMS 9 PAS.GOTOMAINf(K~~~ PAS.HALT( PAS.HALTONLY$(PAS.HALTPROGRAM (T YPAS.HEX M( PAS.HIWATERHEAP1jPAS.HIWATERHEAP2;PAS.HIWATERMARK1jPAS.HIWATERMARK2;PAS.IENDOFLINE7(k PAS.IMAGE0 ~~~  PAS.IMAGE1y5  PAS.IMAGE2y5  PAS.INITFILE'vPAS.INITIALHEAP1$PAS.INITIALHEAP2:PAS.INITIALIZE9PAS.INITMEMINFO135 PAS.INITMEMINFO2 A PAS.INLINEERROR # PAS.IMAGE0~~~h?  PAS.IOERROR r(PAS.IOWARNING  (PAS.LABELCOM1 ?HPAS.LABELCOM2 @CPAS.LABELSIZE ><PAS.LASTPOSITIONs_(PAS.LINEPOSITION( PAS.LINESIZEw(PAS.LONGNEGATEPAS.LONGROUND h3(~~~ PAS.LOWATERHEAP1jPAS.LOWATERHEAP2;PAS.LOWATERMARK1jPAS.LOWATERMARK2; PAS.MARK1 nB(  PAS.MARK1S1( PAS.MARK2 %(  PAS.MARK2Sz(PAS.MAX H6(PAS.MAXPOSITION r(~~~ PAS.MIN G(PAS.MOVEBYTES  )PAS.MOVEPACDOWN bIBJPAS.MOVEPACUP _MPAS.MYQ i5PAS.NEW1t6(  PAS.NEW1S H( PAS.NEW2 (  PAS.NEW2S 0( PAS.NUMERICPARMS9r\~~~  PAS.OCTAL (  PAS.OPENFILE&( PAS.OPEN_FILE w( PAS.OPTDECODE ),PAS.OVERPRINT Y(PAS.PARAMETERSa~(  PAS.POSTFILEB+(PAS.PREVFREE1 jPAS.PREVFREE2 ; PAS.PROMPT)(~~~$PAS.PUT  (3PAS.RANGEDOUBLE e PAS.RANGEINTEGER)  PAS.RANGESETz  \PAS.READBUFFER( PAS.READCHARf(kPAS.READDOUBLE';(k  PAS.READENUM+( BPROMPT)\~~~YPAS.READINTEGER W(T PAS.READLINE\(e PAS.READLONGAAk  TPAS.READNONTEXT G( PAS.READREALAAk  TPAS.READSEQUENT b(3 PAS.READSTR =(e J\PROMPT)\~~~C PAS.READSTRFILE (OPAS.READSTRING(ePAS.REAL2ASCIINn(3 PAS.REAL5OPSMnPAS.REAL5PACK MnPAS.REAL5TRUNCMnPAS.REAL5UNPACK MnPAS.REALROUND fg(PAS.REFERENCE ]()\~~~X  PAS.RELEASE1zQ( PAS.RELEASE1S 8(  PAS.RELEASE28( PAS.RELEASE2S G( PAS.RESETFILE w( PAS.RESET_FILExb( PAS.RETURNPARMS  ePAS.REWRITEFILE ( PAS.REWRITE_FILEz_( ~~~߃ PAS.RUNSTRINGLEN9PAS.RUNSTRINGPTR9PAS.RUNTIMEERROR( PAS.SEEKFILEI(PAS.SEGMENTERRORg(PAS.SEGMENTLOAD PAS.SETADDRESS PAS.SETCLEARPAS.SETDIFFER rPAS.SETELEMENTS ~~~p PAS.SETEXITPARMSA PAS.SETINIT Z  QPAS.SETINTERINIT  QPAS.SETINTERSECTPAS.SETLINENUMB PAS.SETMEMINFO1 jPAS.SETMEMINFO2 ;PAS.SETSHARED l( nPAS.SETSTRLEN  ( S ~~~!PAS.SETTEMPORARYr  \ PAS.SETUNIONz PAS.SETUPFILE ('3@ 5 PAS.SETUP_NAME7(TPAS.SFRITEAREAL ( T 2PAS.SFRITELONGY( CPAS.SFRITEREAL ( CPAS.SHAREDSIZEj"(~~~PAS.SHIFTNPUT WPAS.SINGLEMOD ` PAS.SKIPBLANKS*(kPAS.SPARAMETERS (PAS.SPLITMOVE *( PAS.SREADAOCp(  5OPAS.SREADCHAR y(  5OPAS.SREADDOUBLE 1;(  5 TOj"~~~`PAS.SREADENUM  (  5 TBOB PAS.SREADINTY( TPAS.SREADLONG AAk  TPAS.SREADREAL AAk  TPAS.SREADSTRING :(  5OJPAS.STOPj$PAS.STR 0('  O1j"~~~'PAS.STRAPPENDPAC!(' OPAS.STRAPPENDSTR(' OPAS.STRBUMPUP v(  OPAS.STRCOMPAREa(OBPAS.STRDELETE K('  OPAS.STRENDCHECK " PAS.STRENDERROR " PAS.STRENDS 9j"~~~  PAS.STRGETn( BPAS.STRINGADDRS :KPAS.STRINGDATA1 ]PAS.STRINGDATA2 ]PAS.STRINGINDEX  ( PAS.STRINSERT (('  OPAS.STRIOERROR%( PAS.STRLENA(O PAS.STRLTRIMx(' OB~~~  PAS.STRMAXW(O PAS.STRMOVE o('  O PAS.STRPOS(OB PAS.STRPUT_(JPAS.STRRANGER Xk  PAS.STRRPT('  O PAS.STRRTRIMC(' OBPAS.STRVALPARM^0 PAS.SUBSETs~~~pUPAS.SWRITEAOC N( 2PAS.SWRITEAREAL  I(# T 2PAS.SWRITECHAR[( 2PAS.SWRITECHECK e(  T OPAS.SWRITEDOUBLE(T 2PAS.SWRITEENUM,( T 2PAS.SWRITEINT  ( DPAS.SWRITELONG ( ~~~ PAS.SWRITEREAL>( PAS.SWRITESTRING( 2OBPAS.TIMESTAMP ,PAS.TIMESTRING,PAS.TOPOFHEAP1jPAS.TOPOFHEAP2;PAS.TOPOFPAGE 7(PAS.TOPOFSTACK1 jPAS.TOPOFSTACK2 ;TELONG ~~~D PAS.TRACEBACK =P(T2 PAS.TRACEBEGIN PAS.TRACECLOSE  PAS.TRACEEND PAS.TRACEINIT  PAS.UPSHIFTALPHAEf(PAS.VALIDSTRING "( PAS.WORDBITMOVE  2PAS.WRITEANYREAL(# ~~~PAS.WRITEBOOLEANm( PAS.WRITECHAR (1PAS.WRITEDOUBLE (T PAS.WRITEENUM  ( PAS.WRITEINTEGERj(PAS.WRITELINE  M(3PAS.WRITELONG  (iPAS.WRITENONTEXTi(~~~PAS.WRITEREAL 5(i PAS.WRITESTRk( OBPAS.WRITESTRFILE:(OPAS.WRITESTRING G( PAS.XLBTd PAS.XSBTePAS.WRITELINE  M';\PAS.WRITELONG  PAS.WRITENONTEXTiq~(( JSB .LBP Map in the Pascal header  LDA UBH Get the current length back STA @B Put it into the Pascal header* JMP @Pas.BasicStringI  END  NAM Pas.StringData,7 92833-16119 REV/PASCAL/LIB/CDS/PASCAL_CTRA.REL:::5:5:128 644 0 0 2400 5300501504 36030 /PASCAL/LIB/CDS/PASCAL_CTRA.REL:::5:5:128 ))$ 'PASCAL_CTRA REL +C+D+D rFST <<XV)/PASCAL_CTRA 92833-16116 REV.5000 870331 /P1K/LIB/CDS/PASCAL_CTRA.MAC<@ <<X'z V)0PAS.TRACE.A 92833-16116 REV.5000 870331 /P1K/LIB/CDS/PASCAL_CTRA.MAC<88PAS.TRACEBEGINPAS.TRACECLOSEPAS.TRACEENDPAS.TRACEINIT PAS.TRACELU 8:: wZ.CCQA .DIV.DLD.DST.EXIT0 .LDX.MW00 .MW20 .SBT.XLA2 .XLB2 XREIO : WpW GS??W``(0W`p `a(0HP((T xYpZhH `p[`YhHZ  xZh^AH [Ah_ \H`tpvpwpx`b6pc`Z 11?A pZ`H@hc HΈxc`Z(>`\@[p]Tu]W1 &\  o^}udlxK d > Enter: > Exit: W  0S@e䄤(5)= IHD*256 ! TARGER HEAD NUMBER C CALL ZCTRL (LU,IBUF)  CALL XDSJ (LU,IDVID,IER)C  RETURNC  END    /PASCAL/LIB/CDS/PASCAL_CERR.REL:::5:11:128 644 0 0 5400 5300501601 36537 /PASCAL/LIB/CDS/PASCAL_CERR.REL:::5:11:128 **$ + PASCAL_CERR REL +++ "zFST DDXGV# PAS.SHORTERRORS 92833-16167,REV.5000,870622 870622.0835 /P1K/LIB/PASCAL_ERR.PAS D@)$GCCX {nV# PAS.ERRORPRINTER92833-16167,REV.5000,870622 870622.0835/P1K/LIB/PASCAL_ERR.PAS CVPAS.ERRORPRINTER<< h.DST.EXIT0.LBT .SBT .SDSP LOGLU PAS.CDS PAS.DOUBLE2ASCIIPAS.STRINGADDRS REIO<(;7`@((P p `@p `@p @ `@@ @ (`@hH `@@6`@@H`  `@PP(<ZZ!;0*(A`@@ p ($` (S` B(k` (kpp h 6@ Hp` B8 8([Z)*kH@@@ p p (Ih @ 0 p ` ((`@@6@ HHp ` B @ @p ((@ p p (up`p7` l7PCC(P(P('P(zP(P((`p7` l7` C~~!N8((퀋(`p7` l7` (` B` B` ` B` p7` l7 (`p7` l7 ` ~++`? ((7`(p7` l7 (C+w_7Q9`4p7` l7 ` (a`=p7` l7` (y`Bp7` l7` p7` l7 (`Gp7` l7` //>XLV$PAS.FMP 92833-16108,REV.5000,870622 870622.0835 /P1K/LIB/STD/FMP.PAS>@LBBXeV$ PAS.READSEQUENT 92833-16108,REV.5000,870622 870622.0835 /P1K/LIB/STD/FMP.PASBgHPAS.READSEQUENT >> z .DCO .DIN.DIV.DLD.DSTEREAD PAS.DCBADDRESS1 PAS.FILEERROR PAS.IOERROR PAS.NONCDS>--o`>PU(`>PV((`?Pb( `(p<p?-'==`(p8p(`GpB`BA@WpC'AG`A@Vp>`B@XPT(5PU(uPV((:`B@_pD`B@]pE`B@YpFFA?DE<F`B@YhB@HYpDD D`B@[RCCpD`B@Y D(ZpDCLc0DLC`?(kAj?G(t`B@]AP<(ttPG(:`B@]p=`>PU(`B@]A@a(`=p=`BA@_pDA?D=<`B@]P@@p`SRVW`R(E%%QBERX`T@g@6`hH`T@fhXHeY%!!=Z`Y([pX8Y(  !@>>X4V$!PAS.PUT 92833-16108,REV.5000,870622 870622.0835 /P1K/LIB/STD/FMP.PAS> :kPAS.PUT < GG v .DCO .DIN.DLD.DST .SBTEWRIT PAS.DCBADDRESS1 PAS.FILEERROR PAS.IOERROR PAS.NONCDSPAS.WRITELINE G(<<`p`@Јp*A(̀(`@P((7`@hH@(!`@ׂ@6`@`@ `@hHԀ 0(>XGV$"PAS.PROMPT92833-16108,REV.5000,870622 870622.0835/P1K/LIB/STD/FMP.PAS>9PAS.PROMPTk.SBTPAS.IOERROR PAS.NONCDSPAS.WRITELINE qqz77`8@C*B(2`8p7`7@DB(`7@E@6`7@D`7@Dh7HD `7@E@6`7@D`F`7@Dh7HD A8(66A89q:: `9(;p889( _@AAXYV$$PAS.SETUPFILE 92833-16108,REV.5000,870622 870622.0835 /P1K/LIB/STD/FMP.PASAPAS.SETUPFILE ||.DCO.DDI.DIN.DIV.DLD.DMP.DST.ENTR .LBT.MBT.MPY.SBTECREA ELOCF EREAD EWRIT LOGLU NAMROPENF PAS.CLOSEPURGE PAS.DCBADDRESS1 PAS.FILEERROR PAS.INLINEERROR |JJ PAS.IOERROR PAS.NONCDS PAS.OPTDECODE PAS.RUNSTRINGLENPAS.RUNSTRINGPTR PAS.SINGLEMOD PAS.WRITELINE POSTRWNDF J-zHHpp爀`@Bpp  (((A AA('('(>h6@HHPI(8h6@HHPJ(8(>AD(`WppA 1HAAAA(O(O(kh6@HHPJ(kh6@HHh6p@H`DA(rh6@H`I88(B z`P<(P=(P@(PA(PB(PC((GGSp`p(p(p(`p(FX0F(EX0E(( `pG00 rA(`(`( pp0LL(h/6`46!`A@T(!`A@M(` AR@Kh/H6H>` AMp. ."#@Kh/6H?` AEp. ."$@Kh/6H@D "%@Kh/%%bH6HA(*`(* (&p`p0%EE1 A/(5PASCAL`@C(@`@>p`@B%=(J`@Ip`@B@UQERAA(8`@B@0S'`@C(l`@GPN@>p(q`(q`?p`@CP>(`@GAL@)AAA'((AA`(`(`@G22RAP( +p`@GA `(h 2HDD(Sp^^@p쀄`( +,p]`]P?(Ɉ(Q`@BpdPpedHX0eHdA`(p(`PW((`@B*=(`P@FF((`( `(   p`(((`A( p(0`](0`_(0hqD6*]hq6 p]`]P=(4(P`@B@0P@@ǁ:##AC'''`(O`(O Mp(\`(\`]P?(\A Z-pg@h==`g(ipf8gfp_(`(`@CP>({(`@Dh`@B*=(`P@((`@Fh( .p`@B)=(`(`GGA( pA`(`(  p`@CP>(4`@B)=(`@G(ሄ`@Ep/($P(`@B%=('HHp(`Op`@GA Àh AAAA1AA)A`@Ep`($`@C($`@GAP($ "+p@`@EA/(-(4(4`@EpAA354BB`(`P<(CP=(DP>(VP?(aP@(u((`(U`A@?p O56(U U7(`P=(``P>(`A `8(`(t`@Hpm0`(tA t(`{{GvDDP=(|`P>A(|( 9p`@B)=('`(`(A ppP((`@Hp0`(`( (HhQ{;EE8(rp`((p`A@넁(h6@HPI((`p(`A@(p`(@h6(h6Ap A`@B/=p AA`(;`(`(p (6`@Bp  *=(. '=(.AA. )=A(66`(;p`@Bh`@Bp  OX0O `(O`(OjN@@(]`@Bp `p  OX0 O ppp(g(hh6  p`(`(`@B*=(pppppQ`@B@V+qHH0 `:6h;6A!''`PX(`( AA p( !p`((Ј(`(Ҁ`@>pHHpp`p g (p`p$$;g'`@6`;6A!`($dd)CCApppp( Y[\ G   ,02dt'd@j*AAXzEV$'PAS.CLOSEFILE 92833-16108,REV.5000,870622 870622.0835 /P1K/LIB/STD/FMP.PASAY)PAS.CLOSEFILE pp .DAD .DDE.DDI.DIN.DLD.DMP.DSB.DST.ENTR .LBT.SBT ECLOS ELOCF EWRIT PAS.DCBADDRESS1 PAS.FILEERROR PAS.NONCDSPAS.OPTDECODE PAS.WRITELINE RWNDF p `( `APD(  & v BB(`&@8/5p p`A@(*h(6H@HP=(&(*`p(p`8A@(Y`A@(Nh(6@Hh46p#@H`#`p(UNBBh46@HH`=`p(,^`P6(dP7(g(jp (jp (j`&p!`!@8p""+5(y"*5( "*5("'5(&&")5("*LL5("&5(`&@""?" (( A    )],, *A&'p(   ,@7??X(V$(PAS.POSTFILE92833-16108,REV.5000,870622 870622.0835/P1K/LIB/STD/FMP.PAS?)PAS.POSTFILE .ENTR PAS.DCBADDRESS1 PAS.NONCDSPOST A A ` p` eiA( @g[??X V$)PAS.FILENAMR92833-16108,REV.5000,870622 870622.0835/P1K/LIB/STD/FMP.PAS?PAS.FILENAMR << Ǟ.DST.ENTR .LBT.MBT.SBTPAS.DCBADDRESS1 PAS.DOUBLE2ASCIIPAS.NONCDS PAS.SINGLEMOD <%HHh6`6A`@6(<p̀`@6 hA A!p`(&(;h6@Hh6p@H``p@p("(Ȉ`pp̀`@6@H~~_/HDDh6p@H`88(@h6H`h6H`Hh6HA`f̀pɈ`p`p rhA A}p`((h6@Hh6p~wwx.==@H``p@p(~h6@H``p`@ p`((h6@HHh6p@H`H`p@p(w**7A( @  -:*@w>>X<V PAS.ETC_A 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS>@|<@@X"V PAS.UPSHIFTALPHA92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS@PAS.UPSHIFTALPHA 4.ENTR PAS.NONCDS,,~^`@!( `@ ( `@!@p(`p`,TAp`p( IA @==XV PAS.MIN 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS= A`PAS.MIN  4.ENTR PAS.NONCDS$$4`A@( `p( `p`$BApp(((@N==XV PAS.MAX 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS= KXPAS.MAX  4.ENTR PAS.NONCDS$$4`A@( `p( `p`$BApp(@~>@@X|pV PAS.DOUBLE2ASCII92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS@ZpPAS.DOUBLE2ASCII ++ R.DDI.DLD.DMP.DNG.DSB.DST.ENTR .SBTPAS.NONCDS+^QQAf( AAfd(fAdpa`apahb hhb jdjhhdhhzhxhm6pl@aH`l hbA hAAdhAAdd (f(]`bP~''RQ(S(]`apahm6@aH` `apc`cp'1Vq AAmnAfopb(0 x~ - @CbX@@X{guVPAS.ASCII2DOUBLE92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS@iQPAS.ASCII2DOUBLE0K.DCO.DLD.DMP.DSB.DSTPAS.NONCDSGG`I@tpHpGNk( ( (/AANk((-(-`J(`rA@H()`J(*`sA@H(*(,pG(/pG`G(CpKhH AALNAAmLAN(EpK`KQBB,R`Q(SpN8Q`Q(YpO8Q`Q(_pP8QOpJPpI`qpK(334 B q @SrB??X,eVPAS.REAL2ASCII92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS?sPAS.REAL2ASCII rr? ..TCM .CFER .DIV .ENTR .MPY .MVW .SBT.TADD .TDIV .TFTD .TMPY .TSUB PAS.MAX PAS.MIN PAS.NONCDSPAS.REAL5OPSPAS.REAL5TRUNCPAS.REAL5UNPACK PAS.SINGLEMOD r `ph6@H`   GHH` (p 8  p (`h  `(!  A(A`p`A(:`p`A(F `pp`bp`^p`@pƀ` VLL@p с`(A`]ňA@pn A `( h!`"A @p(`A(`]@ph!`" `p@p~~HDD8(O`Pap`(`A@p`(`@c@d@d@dpp@ppʀ`p(Ap`A@pp`ʈ@p`~`LL(`h  `(  AA p`Ljp`((,`[(!` @pAՁ`]@p!`p` A\Ap(A6J2EEA `(R G;`pƈ`0(Q`p(6p`(Z (_`(_ `p(p`p`Pʈ(l(n AqpĈ`@`p xx~wEEh AA  ;@pň8(h`( `( `p( ` A_@`p A@`p `p`̀xYYA pˈppɈp(@PP- .+ 16PdN _^6G lN[PdN _^G )R6N[kr[  0'@)HAAXVPAS.FREAL2ASCII 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PASAKPAS.FREAL2ASCII } XXh..TCM .CFER .DIV.ENTR .MVW .SBT .TADD .TDIV .TFTD .TFXD .TMPY .TSUB PAS.MAX PAS.MIN PAS.NONCDSPAS.SINGLEMOD X `mpmh6@mH`   FF` (p 8  p (`h`(!A`po`oA(6`pq`oA(B`prpw`p`܈pv`w@wpw`v @THHp~`r(m~`A(l@wpw({~`({A ~`wpw@vpv8(K`{Ppp`p(`wA@zpp`p(`|@@@@:IGGpp@zpp{`{Apx(wpt`t@zpA{p{`{@tpx`r(`h`(Apv`xpt`t((`t(`v ?<EE@p `vpv`t AۈApt( A`( `wpw`p0r(`xpx(pm`q( (`p( `xp(Fp`pv`vP{()U(EE(+  xu`u@ވp hu  @vpv8(%`p(i y`w(T `wpw(V `w A݈@p Aew@p `mp}`}]]==Ap|p{pzpy(@PP- .+ PdN _^6G ߂lN[]  0'@V??X^VPAS.PARAMETERS92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS?<PAS.PARAMETERS~ ++5.ENTR .LBT.SBTPAS.NONCDSPAS.RUNSTRINGLENPAS.RUNSTRINGPTR+22Wp`p`A@(h6H@Hpp`2::`p(`3(!(,(,`PЈ(((+@3p3(`3p4`46:D7??`6(8p5865p3`p4(ppppp`(h`A@(e(e`ph6@H`H(O`p(`p6((`P(`/v??A@(`P(`(`p`((`ph6@H`(o(p`p`((`hAH( (xph6@HH`8(8( t` App(B  , @9F@@Xg+VPAS.REALROUND 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS@%GPAS.REALROUND $$3.DLD.DST.ENTR .FAD.FIXD .FSBPAS.NONCDS$((AA%A(AD'A(AD'( AAA(@@g'@@Xo?VPAS.LONGROUND 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS@,L*PAS.LONGROUND **a.DLD.DST.ENTR .MVW.TADD .TFXD .TSUB PAS.NONCDS*--A!3`!(%7%(A!7AA!A*-!!ׄ+A)`)h> A.DAD.DCO.DDE .DIN.DLD .DSB.DST .ENTR PAS.NONCDSPAS.SETMEMINFO2 PAS.SHAREDSIZE>oo3HHApHDKKs(F(FO(FM(FOK(((FAAK OD aMa(*A(*(FOADMIOQISOUIWDQpH`HeofAA ccAAOdAM`wpH( ;w @3RAAX\xVPAS.A1SETSHARED 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PASAmjePAS.A1SETSHARED ?? ;s.DAD.DCO.DDE .DIN.DLD .DSB.DST .ENTR PAS.A1SHAREDSIZEPAS.NONCDSPAS.SETMEMINFO2 ?oo3HHApHDKKs(F(FO(FM(FOK(((FAAK OD aMa(*A(*(FOADMIOQISOUIWDQpH`HeofAA ccAAOdAM`wpH( ;w @C@@XQVPAS.CLEARFILE 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS@8 PAS.CLEARFILE UPAS.DCBADDRESS1 PAS.NONCDS& A ` @  4U ` ( p 8 ( @)GAAXD'VPAS.MAXPOSITION 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PASAPAS.MAXPOSITION 08.DLD.DSTPAS.IOERROR PAS.NONCDS,,7$`@%( `@&(A(( A"A,4`(p8( % @Ь@@X/VPAS.LASTPOSITION92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS@ PAS.LASTPOSITION0ک.DLD.DSTPAS.MAXPOSITION PAS.NONCDSڲAA A 3F ` ( p 8 (@3AAXOMVPAS.APPEND_FILE 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PASAS>PAS.APPEND_FILE Ύ.ENTR .SBTPAS.NONCDSPAS.SETUPFILE qqZ[77`8p79(`7@EhD`7@F `7@G `7@JhL(`7@EA #8C:;<=B9(6`7@Ih7HF`7@H `7@K@6`L>q?A8(`  @Z@@Xj/VPAS.OPEN_FILE 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS@N&PAS.OPEN_FILE .DST.ENTR PAS.NONCDSPAS.SETUPFILE 99` p`@, `@-p `@.pA A +"#$%*&9w'A ( ` @i鈩??XTFVPAS.RESET_FILE92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS?u8PAS.RESET_FILE].ENTR PAS.NONCDSPAS.SETUPFILE gg#11`2p13(`1@?h>`1@@ `1@A `1@DhE(`1@?A #2=4567<3(0`1@Ch1H@`1@B 8gz9 A2((` @a@@X~MVPAS.REWRITE_FILE92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS@P>PAS.REWRITE_FILEΎ.ENTR .SBTPAS.NONCDSPAS.SETUPFILE qqZ[77`8p79(`7@EhD`7@F `7@G `7@JhL(`7@EA #8C:;<=B9(6`7@Ih7HF`7@H `7@K@6`L>q?A8(`  @s??X:]VPAS.APPENDFILE92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS?hPAS.APPENDFILEv  ?6.ENTR .LBT.SBTPAS.NONCDSPAS.SETUPFILE L==`p`p( h6(h6Hh6 `@`@(=`@h`@ `@`@ `@h`@@6`(E}}=AA`@ `@P(I(N@6p~`~(\@6 D6e`~(m@6`@P(s(}`@hH`@ }GA(`  @>>XvVPAS.OPENFILE92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS>,iPAS.OPENFILE $$.DST.ENTR .LBT.SBTPAS.NONCDSPAS.SETUPFILE $~~5 @@``p^`^p_e( h_6e(h_6Hh_6 b`^@pc`^@qd`^@r `^@sp_ _`^@up_A _`^@taePo(8(=f@6p]~44 @`](Kf@6 Df6T`nefghm`](\f@6i4{j A`( ` @@@XqLVPAS.RESETFILE 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS@=PAS.RESETFILE |  ?6.ENTR .LBT.SBTPAS.NONCDSPAS.SETUPFILE <<`{py`ypz( hz6(hz6Hhz6 }`y@~`y@|(7`y@h`y@ `y@|`y@ `y@h(?`y@ `yrr<<<@|P(C(H@@6px`x(V@H6 A6_{`x(g@H6`y@P(m(w`y@hyH`y@ r)A{((` @UAAXVPAS.REWRITEFILE 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PASALPAS.REWRITEFILE v  ?6.ENTR .LBT.SBTPAS.NONCDSPAS.SETUPFILE [<<`p`p( h6(h6Hh6 `@`@(7`@h`@ `@`@ `@h(?`@ `}}WrPAS.SPLITMOVE 0&&\.SBTPAS.IOWARNING PAS.NONCDSPAS.PUT PAS.WRITELINE &CCpl`o@hoH@Ap(opl(-`o@phoH@A@(-+oo`l(A`o@h`mpA(:(@opp(4(g`mXXC((p(G(g`o@pk`o@@6HHk``kpkpp`mp(K`o@hk`o@@0`lpn`nrX;;4s`r(tpo8r`r(zpp8r`r(pq8rqpm`pn(;:   @AAXVPAS.WRITESTRING 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PASAPPAS.WRITESTRING }77.ENTR .LBT.SBTPAS.IOERROR PAS.MOVEBYTES PAS.NONCDSPAS.PUT PAS.SPLITMOVE 7%BB`{(~~{|(<`z('`{(&p}pyh6@yHh~H~8y8}((;`{(;p}py`~@HyHA~8y8}(/(w`~@px`zooB66(Q`~@p}AM}x{`x@{px(i`{(ip}py`~@@6Hx@y@H`xpx8y8}(Y`{(m(w`~@hx`~@@0o""oA~p|p{pz( "@@@XjVPAS.WRITEENUM 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS@^PAS.WRITEENUM ]?? .DAD.DST .ENTR .LBT.MPYPAS.IOERROR PAS.MOVEBYTES PAS.NONCDSPAS.PUT PAS.SPLITMOVE ?EE`(`(`p`p`(`A@A(`p`@@p`p`A@(Ah Ah6AH P(A`p((`(H`mEBB@p(r`@@p`hAH([ (qxph Ah6AH hAH8(o8(](`@p`@pA`@p`((T6 `@h`@@0))ΆA pppp(  )@f&@@Xh3V PAS.WRITECHAR 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS@E(PAS.WRITECHAR ((.ENTR PAS.IOWARNING PAS.NONCDSPAS.PUT PAS.WRITESTRING (EE""`$P/(p#p"%&#$"(!`%@0h%H1((.%`%@2&%(E=) A%'p$( @=\C@@X{QV PAS.WRITEBOOLEAN92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS@H>PAS.WRITEBOOLEAN&&4.ENTR .LBT.MPYPAS.NONCDSPAS.PUT PAS.SPLITMOVE &ggÌ55A;8F(`9( p9`9(`8@Pp6`6h6H8AH( (4x:Ap5`N9@G@6H@5Hh;AHO;85(28:(!>g##=?A;@@0p-`-2b43`2(4p182(%< @{Y>>XV'PAS.LINESIZE92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS> PAS.LINESIZE 4.ENTR PAS.NONCDS[ ` @h H@p `   eaA (  @@@XG#V'PAS.FILEPOSITION92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS@PAS.FILEPOSITION08.DLD.DSTPAS.IOERROR PAS.NONCDS''`@!( `@"(AA'4`(p8( ! @ja!>>XAV(PAS.SEEKFILE92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS>5PAS.SEEKFILE##xn.DCO.DLD.DST.ENTR PAS.IOERROR PAS.NONCDS#bbӑ00`3p0`0@:p1`0@;(+`0@<p242`0@=p2@`0@<A2(p21L@02L11?11>1(//935b 6 A3( @AAX~RV(PAS.READNONTEXT 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PASA_;PAS.READNONTEXT %%PAS.IOERROR PAS.MOVEBYTES PAS.NONCDSPAS.READSEQUENT %hh77`9@Mp77,L( A I9(7+LA(J9(7.L(A97Q770P7`9@Op7`9@N p867K:K8;h..<`;(=p98;`;(Cp:8;(  .@qP@@Xg+qV)PAS.REFERENCE 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS@+[PAS.REFERENCE  !.LBTPAS.IOERROR PAS.NONCDSPAS.READSEQUENT ==`ZpX`X@gpYY-e(VY,e(cZ(V`X@hPd(Pe(PfA(!(PZ(P`X@iA((Z`X@kpW`X@j@W(=`X@m@6HWHhXHl(H@@Z=`X@lhnY,e ehXHi`WpW`X@khW(PY0oYYpY[@((cR\`[(]pZ8[(  @(@==X!6V*PAS.GET 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS= 1[(PAS.GET  ]PAS.IOERROR PAS.NONCDSPAS.REFERENCE OOv''`'@3+2(  0'(&`'@3,2(1'(&A'`'@3@04`'@3@5(O) `((*p'8(( @ (o??XI DV*PAS.IENDOFLINE92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS?'W4PAS.IENDOFLINE  ,P.ENTR PAS.IOERROR PAS.NONCDSPAS.REFERENCE __000p1`2@B+@(`0(A<2(.2`2@C(`2@B,@(p1`2@B,@(.`0A(..=2`14_5 A23p0`Ap1( @ @}U@@XFV*PAS.ENDOFLINE 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS@P PAS.ENDOFLINE 01PAS.IENDOFLINEPAS.NONCDSAp` l ` ( p8 `p(  @R@@XG<V+PAS.ENDOFFILE 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS@H+PAS.ENDOFFILE 0]PAS.IOERROR PAS.NONCDSPAS.REFERENCE QQu''`*p(`(@:p))+8()*8(5*`(@;(),8(*`*@:,8p'`'+Qk, `+(-p*8+`9p'( 8 @{jAAX</V,PAS.READINTEGER 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PASA`|PAS.READINTEGER ##D.DCO.DLDPAS.IOERROR PAS.NONCDSPAS.READDOUBLE#..&A*( (,(((`(..))y`(p8`($p8( )@}1=??X3.;V,PAS.SKIPBLANKS92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS?-PAS.SKIPBLANKS ''n.ENTR PAS.ENDOFFILE PAS.GET PAS.NONCDSPAS.REFERENCE 'YYs**A, 5p*`*(!`,@8P9( (`,@7,5(`,@7@A0:,(, 5p*`*(&A,`*p+`+-Y.A,`6p+(25 @e??XA=rV-PAS.READ((DOUBLE92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS?Y\PAS.READDOUBLE@@ {^.DLD .DNG.DSTPAS.ASCII2DOUBLEPAS.GET PAS.IOERROR PAS.NONCDSPAS.REFERENCE PAS.SKIPBLANKS@j BBA [AZ(UpWpV`Z@l,k(U`Z@mPopX`X($`Z@mPn($(&AAZZ`Z@m@q(E`Z@m@p(EpW`Z@mpY[XY k0VpVAZ''BAZ((`XA(M[D [`W0V(UUjZ\'--]`\(^pZ8\`\(dp[8\(  +--@??XOW}V.PAS.READSTRING92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS? ivPAS.READSTRING++ I.ENTR .SBTPAS.ENDOFFILE PAS.GET PAS.IENDOFLINEPAS.NONCDS+"GGApqrA(rAr(Hu(-tA@q(,rz(,hs6@qH`r@{Ar`qpq((HtA@q(H9rz(H@q@shrH{Ar`qpqUUsG**(-u(_tA@q(^hs6@qHH`|`qpq(K(ptA@q(p@q@sh|`qpq(_vUicwAr( @ٜ>>X)V.PAS.READENUM92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS> PAS.READENUM ``R .DAD .DCO .DDI .DIN.DLD .DNG.DSB.DST.ENTR .LBT.MPYPAS.BITMASK1PAS.GET PAS.IOERROR PAS.NONCDSPAS.SKIPBLANKSPAS.UPSHIFTALPHA`BBA(`@%p`@$@(p` ,H@A((`p` ,HH@(@`@#A@㄁(@`p`@&@6Hp(!`BKK@p`A@A(QP(`䈄@p`A@h D p`(߈`phA  AAAAA (zp`((`A@(`JJ@&@6HHApph6AH PA((D `p(`㈈P((h  ((h6 P'p`(h  `(pvS Ap88((cKKb22Ap爀p(  K@=>>XBV/PAS.READCHAR92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS>-PAS.READCHAR]PAS.IOERROR PAS.NONCDSPAS.REFERENCE XXF++A+`+@?,`+@>+=(;+(*`+@>,=(<+(*`+@>@0@`+@>@A-X++&.`-(/p+8-`-(5p,8-( +@)>>XV0PAS.READLINE92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS> PAS.READLINE PAS.GET PAS.IENDOFLINEPAS.NONCDS~ A A(  (  4V` (p 8 (@5??X)9TV0PAS.READBUFFER92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS?q7PAS.READBUFFER 2PAS.MOVEBYTES PAS.NONCDSPAS.READSEQUENT hh11`4p1`1@Mp22-LA( 4`1@O6`1@N(&66`1@P6`4@Qp3&3K5K620R22S2`1@N 7h::i8`7(9p487`7(?p587`7(Ep687(  :@bف??X/V1PAS.CONVERT 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS?3PAS.CONVERT HH `.DCO.DLD.DST.ENTR .LBT.MVW PAS.BITMASK1 PAS.BOUNDINTEGER PAS.INLINEERROR PAS.NONCDSPAS.SHIFTNPUT H BBp(h(A -( ( (h/6@(HHP((`(p((h( A-(!(!(h( -(*(*(7h/6@(HP(3(7`(p((!`(p'h' -(B(B(UBBBh/6@'H ,HH@ (U`'p'(9h' -(^(^(ih/6@'HP(i`p*(`(@'p`A@(`P(y(h/6@(HHh@(f(`p*(`p*[DDA`hA=pp(`(A@'(h/6@(Hph/6D@(H 09 (@ AF ( af ((`@p(`@@}p(爈`@@}p(h  A2)`(p((ffh448(p*A 2`+Py(P|( P~((D>?p)(U@A`zp)(fBC`{p)(Hh `*(##`*p,`,3f^^-4CCAA/0A-1p+( 1 3f~~^y  0`ab k @b"==X-V2PAS.BINARY92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS= PAS.BINARY ))s6.DLD.DST.ENTR PAS.CONVERT PAS.NONCDSPAS.RUNTIMEERROR)&&A*p`A(AAA &.L! AAAp(@v~>>Xa-V3PAS.OCTAL 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS> PAS.OCTAL ))s6.DLD.DST.ENTR PAS.CONVERT PAS.NONCDSPAS.RUNTIMEERROR)&&A*p`A(AAA &.R! AAAp(@g'==X!-V3PAS.HEX 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS= F] PAS.HEX  ))s6.DLD.DST.ENTR PAS.CONVERT PAS.NONCDSPAS.RUNTIMEERROR)&&A*p`A(AAA &.Z! AAAp(@1AAXV4PAS.HALTPROGRAM 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PASAYtPAS.HALTPROGRAM DD E .DDI.DLD.DST .ENTR .LBT .MBT .SBTLOGLU PAS.DOUBLE2ASCIIPAS.NONCDSPAS.STOPPRTNREIOD\HHAN(9h6`6A |`pMaN}pL`L((,`MpMh6@LH h6pq@MH`q @LpL(A/Lpq`Mpr9~qUr`OpPN xQpRpSApTI :HPKt ++_uAA ssAN( UaPascal Halt: +@*LI <<X\V4PAS.HALT92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS< PAS.HALT !!S.DLD.DST.ENTR PAS.HALTPROGRAM PAS.NONCDS! A ZAAA(@?^>>X V4PAS.HALTONLY92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS>3PAS.HALTONLYdPAS.HALTPROGRAM PAS.NONCDS A 8(@L= ==X5ȉ' 8PAS.NONCDSLIB 92833-16119 REV.6000 <920930.1937>/P1K/LIB/STD/ETC_B.MAC=PAS.CDSCONFLICT PAS.NONCDS@;;Xڑȉ' 8PAS.BOUNDINTEGER92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;JPAS.BOUNDINTEGER ).DLD.DST ,,A8(A@AA8,@ٌ;;Xaȉ' 8PAS.BOUNDDOUBLE 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;HPAS.BOUNDDOUBLE N.DCO.DLD.DST000`p@p( (88((( 0  @3Q;;X+ȉ' 8PAS.RANGEINTEGER92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;TPAS.RANGEINTEGERQ.DLD.DSTPAS.RUNTIMEERRORFF!''(p'`(A (!A@((!`'AA88(A8&*(F * @og;;XW%ȉ' 8PAS.RANGEDOUBLE 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;RPAS.RANGEDOUBLE .DCO.DLD.DSTPAS.RUNTIMEERROR>>b  `p#@$p#8# (((# (( 8#"#(> " $ @[::Xȉ' 8PAS.CHECKPTR1 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:FPAS.CHECKPTR1  UXPAS.RUNTIMEERROR Ǭ x ( A h 8   @N\m::Xȉ' 8PAS.CHECKPTR2 92833-16119 REV.((5000 870720 /P1K/LIB/STD/ETC_B.MAC:FPAS.CHECKPTR2  UXPAS.RUNTIMEERROR ( (   8@~>::X ȉ' 8PAS.DOUBLEMOD 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:CPAS.DOUBLEMOD ##?.DAD.DCO.DLD.DMOD .ENTR PAS.RUNTIMEERROR#//٦((A /@~::Xȉ' 8PAS.SINGLEMOD 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:%BPAS.SINGLEMOD .DIV.ENTR PAS.RUNTIMEERROR00W~( ( `A0@|88X1ȉ' 8PAS.IMAGE092833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC8UPAS.IMAGE0((`.ENTR AVLMENDMLIMEM PAS.RUNTIMEERRORUNM2UNMEM (NN..A@`(+(pHpp(+A,.//@0@.(!!-@,`pHp@p@HcN 0 @ye88X3ȉ' 8PAS.IMAGE192833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC8UPAS.IMAGE122 }.ENTR AVLMENDMLIMEM PAS.RUNTIMEERRORPAS.TOPOFSTACK1 UNM2UNMEM 2PP800A@`(-(pHpp(-A.011@2@0(!!/@.`pHp@p@pHcP 2 @Rq88X3ȉ' 8PAS.IMAGE292833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC8UPAS.IMAGE222 }.ENTR AVLMENDMLIMEM PAS.RUNTIMEERRORPAS.TOPOFSTACK1 UNM2UNMEM 2PP800A@`(-(pHpp(-A.011@2@0(!!/@.`pHp@p@pHcP 2 @Rq::X6ȉ' 8PAS.PACKSTRING92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC: rPAS.PACKSTRING  j.ENTR .SBT  55>pph68H8(8`(5@r2;;X ȉ' 8PAS.UNPACKSTRING92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;bPAS.UNPACKSTRING  c.ENTR .LBT  88[ ppHh688(8`8(8@™99XYȉ' 8PAS.SEGMENT 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC9PAS.SEGMENTLOAD PAS.SEGMENTRTN.ENTR PAS.SEGMENTERRORSEGLD `p A @q ;;Xȉ' 8PAS.SETPACKAGE1 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;8hPAS.RANGESET PAS.SETTEMPORARY"".ENTR PAS.BITMASK1PAS.RUNTIMEERRORPAS.SETINIT " c  d FF  D P(8 D P(#8@pphDH0p2 (F @ H (J H,@H88() NO (I2%%zQhDHa0pZ (88(QP% hDDadee D P(x8db D P(8aehb (b@ppcf (HDHa0p (` ,@Hd88(cf88ֿ@(ppPcfepb(pPhg(8@Vu;;X8ȉ' 8PAS.SETINTERINIT92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;SPAS.SETINTERINIT.ENTR PAS.BITMASK1PAS.RUNTIMEERRORhh88Ap(1pA(1`@@788`PH (1 H,@H8(56h@U::Xȉ' 8PAS.SETDIFFER 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:4PAS.SETDIFFER .ENTR // 0 D p8888(/@oY99Xjȉ' 8PAS.SETUNION92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC90PAS.SETUNION.ENTR ..5 D p8888(.@U88Xȉ' 8PAS.SUBSET92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC8`PAS.SUBSET.ENTR 11>s D pp 88 8(X1@1*O;;Xȉ' 8PAS.SETINTERSECT92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;WPAS.SETINTERSECT.ENTR ,,4 D p8888(,@xQ99XoVȉ' 8PAS.SETINIT 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC9APAS.SETINIT ?PAS.BITMASK1PAS.RUNTIMEERRORz  D pxp<<p8(p8p8p8`P(/`8` 8(1`(L8(MhH (M ,@H8(888(M5PATU(L@pt::X&ȉ' 8PAS.LONGNEGATE92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:*^PAS.LONGNEGATE  5?..TCM .MVW 55;.(p8( p8`hA5@&1D77Xȉ' 8PAS.TIME92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC7G=PAS.TIMESTAMP VPAS.TIMESTRING2.DIV.DLD.DST.ENTR .MVWEXECBB//ampm : . Fri Sat Sun Mon Tue Wed Thu Mar Apr May Jun Jul Aug Sep Oct Nov Dec Jan Feb B -56 := <`A`5h<=H @iM, 19 2P VAAU`A`GhUVf/4`1h0րAp1HR`2h@(uh`2xT`pQ`2h0Hp9 A`1H:`4@pOp6h3H`4 H HH`vvEEA@ ӈp/` pL0p8h/ HJ`/@@0րp7@4Q@4@3  HH`A @@0ը n 00v@9XS::X.ȉ' 8PAS.TRACEDUMMY92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:66PAS.TRACEBEGINPAS.TRACECLOSEPAS.TRACEENDPAS.TRACEINIT 6 tE @T::Xȉ' 8PAS.MOVEBYTES 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:TPAS.MOVEBYTES   d.ENTR .MBT ..Ap`6h6A.@k䊤;;Xo#ȉ' 8PAS.WORDBITMOVE 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;ZPAS.WORDBITMOVE  4g.ENTR .MVW >>a`hpx(0 p!x!x""p!0 >@Qo::Xȉ' 8PAS.SHIFTNPUT 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:OPAS.SHIFTNPUT .DLD.DST.ENTR ((Ap@!8( @(@{!;::Xȉ' 8PAS.REALINPUT 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:55PAS.READLONGPAS.READREALSPAS.SREADLONG <PAS.SREADREAL 5PP .DIV .DLD .DST.ENTR .MPY.MVW .NGLPAS.ENDOFFILE PAS.GET PAS.IOERROR PAS.REFERENCE PAS.STRGETPAS.STRIOERRORP   A  BB##p( `@P(((/(/( pu`|hBe<8SE89:K HKA ;<AAS!!Op`pt`OPtQ(e`tP(Zpu`|hR`tSPPSA 7u {KKv{ +-09` .LEle(ph(hpx`@P(p` h (@@(@  p(h@@X(`F@FhI @pF8G(`hh8 @F!(H(ވ`pGpFhI` HxI(Ĉ`F@}8I`GP@(2Pd} ~~ڍLLN azhv #( 8}A v5 @AA v xA@ @ x@}p}`z6pzA x AA x vA (( v# p9QQ@@A(W(E(K(O w x`v(T vxy(R`vpy~dR??pxpwpv`97:08p`pdhx`ypyhw`xxwpx:`h pֈ`h  @H xP|(}@(o`vh (h( xv@}p}hppDqBBH}x}h!(x@ (` 6   HوhX|xHx(p@pH}x}`|pp@p(8HPHSp8؄ 50OO**8(¨`u(`(AOPtQ(pt(`t(`(AA`@ xO$99`|p`pGp}pvpwpxpypzpFpHpIppp~`p(8܀hH ( pH (/P(JP(JP(iP(]P(]P(]P(](z@r8(D8(C8ك7<<8h H Hhx(8~(@r(W((((U((pH(hX([(p(r((f(((((88(r(((((((~~6ss@@hDrhrH $r(((((((`u(Q(AhH|x`v0w( h8HH~HI(`hh}(6 ֈ0~$$ ( A`pvpwpxpy!(($@֊;;X ȉ' 8PAS.REALOPERATOR92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;77&PAS.REAL5OPSPAS.REAL5PACK ]PAS.REAL5TRUNC7PAS.REAL5UNPACK 70.DLD.DST.ENTR .MVW2@  "GG"`#hA`$h"H@`h%&A(^u%&xHD``!(e(e(ehHhG4AiCCx` p@ 8(mhixHXu(xx @8 8` AhHxD8AD8DhHi(>>(pp 88(`BppP (`P(@p (`i@p(AHH P(`@pSBB(1(p(u8(H`H xH` @hHd h d Ad ($h A(!`C(S 8,>>`(U`@(;@hxh(J(@@h(J@]!(UH(U   D(U`p `hc(hG(^xtiHa(oZZlj))(o (rhtc`phhh`h`8({`h`@ph`PGuZ??`(``hhG`P(Ȉ`p`hQh` uhu8(`P(hu(hu`h`@ph`PGZhxxh w bbڼ--` phGhG@pppp p!p @h``ch Xp ڈpH H hbzCCAA`hs`s`HH ``hA5A`5h`hxH Hx0[hH H ]]^Q22X(U(PAh6`7\`\hA`mh(`]n@ `@s`(`(E`(E]@::X;?ȉ' 8PAS.BLANKFILL 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:QPAS.BLANKFILL .ENTR .MBT.MVW.SBT  hhm77pp((`h`(>`@(>p` A(>`6h6A`(>x`@@(>p`h@::Xůȉ' 8PAS.ENTRYEXIT192833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:VPAS.ENTRY1GPAS.EXIT1 %%.MVWPAS.CHECKSTAKSZ1PAS.HIWATERMARK1PAS.TOPOFSTACK1 %u>>p8p8f(H`hxAx@``H@xpp(#(2`p@p`p`h(BX(B(8 8{3@==8(2vGp8GGp8Gf@GphH`p@p`pvG`pppppppf`p`Pv--}8(yhH hH @- _ @ȧ::Xmȉ'! 8PAS.ENTRYEXIT292833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:@@PAS.ENTRY2xPAS.EXIT2 PAS.RECVALPARM<PAS.RECVARHPO !PAS.RECVARPARM@== t.DAD.DCO .DLD.DSB .DST.LBP.MVWPAS.CHECKSTAKSZ2PAS.HIWATERMARK2PAS.TOPOFSTACK2 =}AAp8p8f(MbpWV  R ZxY`fpXbp]`]p\@k(&p]`jp\A`XhY\h\X](8pXhjZ ZxY(bJJ AA R g@ ~~eC88(MJ(M(I J p^cp_(Sh`^h_(eX(e(^_8^8_(Xf(v`ep```Pf(v`pa a8`(jfxp~_{>>8xxp8xhf@lfxAJ g AH ZxX`fpYbp]`]p\@k(p]`jp\`XhY\`\P](xYhjAAZ ZHxX(`ep```Pfx`pa ,,&&a8`(`pbpcpdpedpfpgph,jj66( Tp`@(䀀`fH A(RA 8Ψ TJp`T(((bT(((AJ TAHf`i ͈8j88*`(p8@(`f(hg`877!`!(#p8!`!()p @8! A (7΁ ` !733P<`<(>p:8<`<(Dp;8<`i: ;΁;`;:<3 V f,i @:Y;;Xjȉ'" 8PAS.CHECKSTAKSZ192833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;cPAS.CHECKSTAKSZ1%%.ENTR PAS.RUNTIMEERRORPAS.TOPOFHEAP1PAS.TOPOFSTACK1 %""np8`@@"  @M;;X~#ȉ'" 8PAS.INITMEMINFO192833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;PPAS.INITMEMINFO1RR x.ENTR LIMEM PAS.HIWATERHEAP1PAS.HIWATERMARK1PAS.LOWATERHEAP1PAS.LOWATERMARK1PAS.RUNTIMEERRORPAS.TOPOFHEAP1PAS.TOPOFSTACK1 R11< ! hxDxx@D@ppp @A"!1 ! @ة;;Xiȉ'" 8PAS.INITIALHEAP192833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;CPAS.INITIALHEAP177A.ENTR PAS.CURRMARC1 PAS.HIWATERHEAP1PAS.LOWATERHEAP1PAS.PREVFREE1 PAS.TOPOFHEAP17--`@p@p@@pp h -@ 99XBȉ'# 8PAS.MEMDATA192833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC9~~PAS.CURRMARC1  PAS.GETMEMINFO1 PAS.HIWATERHEAP1PAS.HIWATERMARK1PAS.LOWATERHEAP1PAS.LOWATERMARK1PAS.PREVFREE1 PAS.SETMEMINFO1 PAS.TOPOFHEAP1~PAS.TOPOFSTACK1  4g.ENTR .MVW S `h  `h@XwB;;Xqȉ'# 8PAS.CHECKSTAKSZ292833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;cPAS.CHECKSTAKSZ200.DAD.DCO.DLD.DSTPAS.RUNTIMEERRORPAS.TOPOFHEAP2PAS.TOPOFSTACK2 0))<@A8()  @%p;;X.ȉ'# 8PAS.INITMEMINFO292833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;PPAS.INITMEMINFO2}}8$$$LARGEMA1$$$$$$LARGEMA2$$$.DAD.DCO.DDE.DLD.DST.ENTR PAS.HIWATERHEAP2 PAS.HIWATERMARK2PAS.INITMEMINFO1 PAS.LOWATERHEAP2 PAS.LOWATERMARK2PAS.RUNTIMEERRORPAS.TOPOFHEAP2PAS.TOPOFSTACK2 } VMAS((T VV`..  hX-($` JFJJ  AJ)JJ  J($A(,+@V@8;;X7ȉ'$ 8PAS.INITIALHEAP292833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;CPAS.INITIALHEAP2GG Ŵ .DLD.DSB .DST.ENTR .LBPPAS.CURRMARC2 PAS.HIWATERHEAP2PAS.LOWATERHEAP2PAS.PREVFREE2 PAS.TOPOFHEAP2G\\:44 . 0  4x6  68686 4 6 8686 68686 6 2  \@P99XB'ȉ'$ 8PAS.MEMDATA292833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC9~~"PAS.CURRMARC2 PAS.GETMEMINFO2  PAS.HIWATERHEAP2PAS.HIWATERMARK2PAS.LOWATERHEAP2PAS.LOWATERMARK2 PAS.PREVFREE2 PAS.SETMEMINFO2 PAS.TOPOFHEAP2~PAS.TOPOFSTACK2 *.ENTR .LBPR .MVWߵ A`%& `h%&@n"::XiBȉ'% 8PAS.INITIALIZE92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:TT PAS.GETNEWPARMS  PAS.INITIALIZE2PAS.NUMERICPARMS+PAS.RUNSTRINGLEN0.PAS.RUNSTRINGPTR0PAS.STRENDS T.ENTR .MVWEXECRMPAR   MM ((<p`ppp x 8 `p (`p `+`.MB2 1`Ah1;2 ?A< @!;;X ȉ'% 8PAS.SETEXITPARMS92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;hPAS.SETEXITPARMS((<.ENTR .MVWPAS.EXITDATAPAS.EXITDATAPTR PAS.EXITDATASET (P `Dh p@c#;;X\ȉ'% 8PAS.RETURNPARMS 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;99~PAS.EXITDATA PAS.EXITDATAPTR PAS.EXITDATASET PAS.RETURNPARMS 9 .ENTR .MVWPRTN88A@¤::X ȉ'& 8PAS.STRENDERS 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:PAS.STRENDCHECK PAS.STRENDERROR 03.ENTR PAS.STRENDS  Hp`@;;X_ ȉ'& 8PAS.INLINEERROR 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;cPAS.INLINEERROR  UXPAS.RUNTIMEERROR px  @8V::Xȉ'& 8PAS.ERROREXIT 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:,GPAS.ERROREXIT  8KPAS.ERRORCATCHER ..qp`Hxp@p -.@sђ;;XTȉ'' 8PAS.DCBADDRESS1 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;'PAS.DCBADDRESS1 .ENTR   00`@@X(@@@X@(0@&WE;;XY ȉ'' 8PAS.DCBADDRESS2 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;(}PAS.DCBADDRESS2 ###;.DAD.DLD.DST.ENTR .LBPR PAS.DCBADDRESS1 #//xA hHAAAx/@99XK,ȉ'' 8PAS.INITFILE92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC9/PAS.INITFILE 4g.ENTR .MVW KK&&`@)h   (@*` h +K@+JI::X5Aȉ'( 8PAS.OPTDECODE 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:LPAS.OPTDECODE .DCO.DLD.ENTR :sharexclsavepurgcctlrewieof exte  PP+((h0?P@('`p(- ``p0?p@0?pAA88(5 noP@#s;;Xmȉ'( 8PAS.REALTIMESIZE92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;PAS.REALTIMESIZE  *\.ENTR .XLA @ku5;;X_ȉ'( 8PAS.REALTIMECOM192833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;kPAS.REALTIMECOM1  *\.ENTR .XLA @1XP;;Xcȉ') 8PAS.REALTIMECOM292833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;kPAS.REALTIMECOM2  *].ENTR .XLB O`@2;;Xqȉ') 8PAS.BACKGRNDSIZE92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;nPAS.BACKGRNDSIZE  *\.ENTR .XLA @7V@;;Xcȉ') 8PAS.BACKGRNDCOM192833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;QPAS.BACKGRNDCOM1  *\.ENTR .XLA @c#;;Xgȉ'* 8PAS.BACKGRNDCOM292833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;QPAS.BACKGRNDCOM2  *].ENTR .XLB S`@::X, ȉ'* 8PAS.BLANKSIZE 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:_PAS.BLANKSIZE .w$BCOM $FWSY .ENTR .XLA.XLBM> J@@@::Xu ȉ'* 8PAS.BLANKCOM1 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:BPAS.BLANKCOM1 $BCOM .ENTR .XLAj@C::Xv ȉ'* 8PAS.BLANKCOM2 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:BPAS.BLANKCOM2 $BCOM .ENTR .XLBMl`@z::X ȉ'+ 8PAS.LABELSIZE 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:KPAS.LABELSIZE y$BCOM $LCOM .ENTR .XLA.XLBM> J@@[::Xȉ'+ 8PAS.LABELCOM1 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:.PAS.LABELCOM1 $LCOM .ENTR .XLAj@f&::Xȉ'+ 8PAS.LABELCOM2 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:.PAS.LABELCOM2 $LCOM .ENTR .XLBMl`@;;Xtȉ', 8PAS.A1SHAREDSIZE92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;nPAS.A1SHAREDSIZE 5$IDNBR.ENTR .XLA1 VMAST ,,) A (`(hJ ,@YxH;;X~!ȉ'- 8PAS.BITOPERATOR192833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;,,WPAS.BITDEPOSIT1 +PAS.BITEXTRACT1 PAS.BITINDEX1 ,)) .DAD.DDI.DIV.DLD.DMOD .DMP.DST.ENTR .MPY)  @p$(%   $@@`+(3$`h h x`(<(K`0 pG`@ 0pH!!`$`@ 0pT@!@$`W`(_(u"h pjdAA`@@0 pr0 poA0A$`@ 0 p}"A`ph 0$``#`(`"$AAA"$"EpAp ApApApEp w VGG`hhxh (x`(p(̄p@ !p$@p`p p!p`( A(AAAAAA Ax@A$@A`HHK##p`@p`(`0 p!pp`0 p!xx H@;;X)ȉ'. 8PAS.BITOPERATOR292833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;,,WPAS.BITDEPOSIT2 +PAS.BITEXTRACT2 PAS.BITINDEX2 ,.. .DAD.DDI.DIV.DLD.DMOD .DMP.DST.ENTR .LPXR .MPY.  @p$(%   $@@`+(3$`h h x`(<(K`0 pG`@ 0pH!!`$`@ 0pT@!@$`W`(_(u"h pjdAA`@@0 pr0(poA((0A$`@ 0 p}"A`ph 0$``#`(`"$AAA"$"EpAp ApApApEp w fGG`hh'xh (x`(p(̄p@ !p$@p`&p p!p`( A(AAAAAA Ax@A$@A`VV++&p`( `@p x`(`0 p!pp`0 p!!xx V@S99XH"ȉ'. 8PAS.BITMASK 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC9qPAS.BITMASK0PAS.BITMASK122""@ @ 2@΁;;Xaȉ'/ 8PAS.STRINGADDRS 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;rPAS.STRINGADDRS .ENTR `@מ99Xgȉ'/ 8PAS.SCRATCH692833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC9PAS.SCRATCH6  h$SCRN .XLA bs8@Ð::XL3ȉ'/ 8PAS.STRRANGER 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:XPAS.STRRANGER ##7.DAD.ENTR .LBP.LBPR .LBTPAS.RUNTIMEERROR#  HH!++AAA(A( A p AOA@6` xHhH@8;;Xuȉ'0 8PAS.FIXEDSTRING 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;KPAS.FIXEDSTRING .DAD.ENTR .LBPR .LPXR ##8A6#@;;X-ȉ'0 8PAS.BASICSTRINGS92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;!PAS.BASICSTRINGIPAS.BASICSTRINGO!!r.DAD.DLD.DSB.DST.ENTR .LBP.LBPR !OO--0,8 8AA+@pH*AH`O@s33::X:ȉ'0 8PAS.STRINGDATA92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:PAS.STRINGDATA1 PAS.STRINGDATA2 .DAD.DLD.ENTR ##e A`@#@5T::Xe ȉ'0 8PAS.STRVALPARM92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:~PAS.STRVALPARM.DSTPAS.STRAPPENDSTR88px(8(8p8 a @::Xȉ'1 8PAS.MOVEPACUP 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC: LPAS.MOVEPACUP N.DAD.DLD.DST.ENTR .LBPR .MBTcEEpAx5A`ހpAx5A`ވp`(4`6@h6H`0(C`pd@(:`pA`p@))`JdQ`pd](E)MMd--``hH ` xpA`6axb6Ac`A85``5AAbb`dM Z f @;;X7ȉ'1 8PAS.MOVEPACDOWN 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;ZPAS.MOVEPACDOWN (!.DLD.DST.ENTR PAS.XLBTPAS.XSBTQQ ,,pp513@p@p@p@p(1p6A.3685(Q@k77Xsȉ'2 8PAS.XLBT92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC7 @PAS.XLBT  .DAD.ENTR .LBP.LBT""*x5A@6H"@t 77X|ȉ'2 8PAS.XSBT92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC7 PAS.XSBT .DAD.ENTR .LBP.SBT$$:4x5A@6HH$@-::Xȉ'2 8PAS.TRACEBACK 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:4PAS.TRACEBACK .ENTR   @;;X ȉ'3 8PAS.SEGMENTEDMOD92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;,, PAS.MAINMODINIT PAS.SEGMENTEDMODPAS.SEGMODINIT, r.ENTR LIMEM ? xQ  ` @  y `@@x877Xlȉ'3 8PAS.STOP92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC7 8PAS.STOP EXECPAS.RETURNPARMS ,@ +CCXVV3PAS.HEAPSTACK192833-16110,REV.5000,870622 870622.0830/P1K/LIB/HEAP_STACK_1.PAS C@8VBBXwV4PAS.DISPOSE192833-16110,REV.5000,870622 870622.0830/P1K/LIB/HEAP_STACK_1.PAS BlPAS.DISPOSE1##.ENTR PAS.GETMEMINFO1 PAS.NONCDSPAS.RUNTIMEERROR#HHAaiA(  t_([iA@b(`dAi( u_([ip\@\p\``A(/p`\AP`(76v_([p^`hp]`]Ai(J`]p^`]//>Hp](;`^(O^pg`\hg `gh\il/[m Aijp`kp_([^\@4BBXߏZV4PAS.MARK1 92833-16110,REV.5000,870622 870622.0830 /P1K/LIB/HEAP_STACK_1.PAS BVQPAS.MARK1 77.ENTR PAS.GETMEMINFO1 PAS.INITIALHEAP1PAS.NONCDSPAS.RUNTIMEERRORPAS.SETMEMINFO1 7 BBAG`HPJ((   G`H@Xp`GA@(WF(D@HpE`ME`EhN`EO`EpN`E@YpEE`EhE`EpM@EpH`HA@L(A`HpL cBDGQ ;RAOPpF(@x0DDXMtV5PAS.COALESCE1 92833-16110,REV.5000,870622 870622.0830 /P1K/LIB/HEAP_STACK_1.PAS DKPAS.COALESCE1 pPAS.GETMEMINFO1 PAS.NONCDSPAS.SETMEMINFO1 Ϡ==A`P(`p( (`p(`p`pp`p`p`p`@p`()(D@@A@(D`P(D``hl=<< `pp`p`P(J(`(`p`P(U(`p`p`@p`A@(u`@p`h `p({`p`(#y p`PA(([8(@Gf_@@XV6PAS.NEW192833-16110,REV.5000,870622 870622.0830/P1K/LIB/HEAP_STACK_1.PAS @ +PAS.NEW1 @@.ENTR PAS.COALESCE1 PAS.GETMEMINFO1 PAS.INITIALHEAP1PAS.NONCDSPAS.RUNTIMEERRORPAS.SETMEMINFO1 @tt4M99`p:`pA@(pp9(#`P:(`p`pp9(#pp9`9(`(8`@@p`A@(8`p;t<==8;(`PȈ(B(ap{`@{h@p|`@{A@(Z`@{@ʈ(``h (s`@@p`A@(p`p`p|`|`|p|`| wy} XX~22A8}(>`P((`A(p;`(;`(}(X App(@DBBXXV7PAS.RELEASE192833-16110,REV.5000,870622 870622.0830/P1K/LIB/HEAP_STACK_1.PAS BPPAS.RELEASE1-->.ENTR PAS.GETMEMINFO1 PAS.NONCDSPAS.RUNTIMEERRORPAS.SETMEMINFO1 -}}DDAFNA(  VE(CNA@G(`IAN( WE(C`MpD`DN(-`D(-`DpD("`D(?`DpGDpL`DpM<FN(CCWEP};GQANOpE(]_@ɡaDDXV7PAS.DYNAMICDUMP192833-16110,REV.5000,870622 870622.0830/P1K/LIB/HEAP_STACK_1.PAS DNPAS.DYNAMICDUMP1tLL %.DAD.DDE.DST.ENTR PAS.GETMEMINFO1 PAS.NONCDSPAS.WRITEDOUBLE PAS.WRITEINTEGER PAS.WRITELINE PAS.WRITESTRING L5]``AA  A AA  ! (A-  6((A A ? FAK  TA [`````AA  i  rA y~A A  A  AA   A  A SSƁA `P((A Ӂ  ܁A か (z`p`p`p~`(z AA   A  p}`}XX(l`~PAp}   'A,~ 3A8~ ?h~ DKA R~ h~ eA `~p~++ok(p`(u`p~`p( +6``A(> Top of stack: Top of heap: High stack: High heap: Initial stack: Initial heap: Previous free: Current mark: Heap/stack not initializedMark Point Size   Start Next @DDX1V9PAS.DISPOSE1S 92833-16110,REV.5000,870622 870622.0830 /P1K/LIB/HEAP_STACK_1.PAS D8'PAS.DISPOSE1S ##.ENTR PAS.GETMEMINFO1 PAS.NONCDSPAS.RUNTIMEERROR#00mA$A(  /($A@(0$'0`( A$%p&p([^@eAAXdV9PAS.MARK1S92833-16110,REV.5000,870622 870622.0830/P1K/LIB/HEAP_STACK_1.PAS AVPAS.MARK1Sy1.ENTR PAS.GETMEMINFO1 PAS.NONCDSA`7Ap(@gM BBX_;V9PAS.NEW1S 92833-16110,REV.5000,870622 870622.0830 /P1K/LIB/HEAP_STACK_1.PAS B~2PAS.NEW1S -->.ENTR PAS.GETMEMINFO1 PAS.NONCDSPAS.RUNTIMEERRORPAS.SETMEMINFO1 -EEC%%A'`&@(p(`(A@,(`(p,`'A@(( `(/A'($A$:%2E3A/0p&1p%(@8VDDX3V:PAS.RELEASE1S 92833-16110,REV.5000,870622 870622.0830 /P1K/LIB/HEAP_STACK_1.PAS D(+PAS.RELEASE1S -->.ENTR PAS.GETMEMINFO1 PAS.NONCDSPAS.RUNTIMEERRORPAS.SETMEMINFO1 -::n A!)A(  1 ()A@"(2 (A)p"!)+::,A)*p (]_@ CCXZV PAS.HEAPSTACK292833-16111,REV.5000,870622 870622.0831/P1K/LIB/HEAP_STACK_2.PAS C@;ZBBX%V PAS.DISPOSE292833-16111,REV.5000,870622 870622.0831/P1K/LIB/HEAP_STACK_2.PAS BPAS.DISPOSE2J== q.DCO.DLD.DSB.DST.ENTR .LBPR .LPXR PAS.GETMEMINFO2 PAS.NONCDSPAS.RUNTIMEERROR=VVA  A(( (( ($($#(A@ AAAAAAˆ(;(7(; (H(CG(A AAAAA aaEV??x(j(^(jAAA (PA A(p(v @AA  x x x AabAAAp([^\@s3BBXV PAS.MARK2 92833-16111,REV.5000,870622 870622.0831 /P1K/LIB/HEAP_STACK_2.PAS BWPAS.MARK2 ~UU `.DCO .DDE.DLD .DSB.DST .ENTR .LBPR .LPXR PAS.GETMEMINFO2 PAS.INITIALHEAP2PAS.NONCDSPAS.RUNTIMEERRORPAS.SETMEMINFO2 UkWWAos( A(( Ao m(((Aj(io k Akx}yAA} kAx}{AA} x}k}k{k k kx} AA} kAx}kAA}kA@y##WAk oAAow(f(b(fowim#A pj(m@5DDXRV PAS.COALESCE2 92833-16111,REV.5000,870622 870622.0831 /P1K/LIB/HEAP_STACK_2.PAS DK PAS.COALESCE2 @@ b.DAD.DCO.DDE.DLD .DSB.DST .LBPR .LPXR PAS.GETMEMINFO2 PAS.NONCDSPAS.SETMEMINFO2 @WWA((   (( @A(  @AApAAAA   (( xAA AA ((W(WVVAAA((] @AAA x @AA xAAAAApAAA((2(2`((A (A((((AA  __>>(((AAAA xAA  x(AAA (A(( _V 8 (@r@@XV PAS.NEW292833-16111,REV.5000,870622 870622.0831/P1K/LIB/HEAP_STACK_2.PAS @ ,%PAS.NEW2 bb .DAD .DCO .DIN.DLD .DSB.DST .ENTR .LBPR .LPXR PAS.COALESCE2 PAS.GETMEMINFO2 PAS.INITIALHEAP2PAS.NONCDSPAS.RUNTIMEERRORPAS.SETMEMINFO2 boo CCAADA ((ppC(0AA DA(,(AApC(0ppC`C( `A(BAA  A (B(B`pFoKGTT8F(`PA(M(@AAA AA AA A (c(oAx  (~Ax(AA AA AA (((A Ax? xAA\\66A8(I (((AA (((AAF`(F܀`((\ UAA Ap( @3dBBXV PAS.RELEASE292833-16111,REV.5000,870622 870622.0831/P1K/LIB/HEAP_STACK_2.PAS BPAS.RELEASE2GG .DAD.DCO.DLD.DST .ENTR .LBPR .LPXR PAS.GETMEMINFO2 PAS.NONCDSPAS.RUNTIMEERRORPAS.SETMEMINFO2 GtUUA } A(g(f }l(( }p($($#g(fAAxhA@ }Ah(>(0Ah A(6(> hAh((h (D(bAAhAAl h@AvA h!!UAAxZj }xzA z(ffg!o A }~pg(]_j@WvDDXV PAS.DYNAMICDUMP292833-16111,REV.5000,870622 870622.0831/P1K/LIB/HEAP_STACK_2.PAS DNqPAS.DYNAMICDUMP2TT S .DAD.DCO.DLD.DSB.DST.ENTR .LBPR .LPXR PAS.GETMEMINFO2 PAS.NONCDS PAS.WRITEDOUBLE PAS.WRITELINE PAS.WRITESTRING TXXA pxk k~A pxk kuAuv pxk kwwvA pxk $k[xA pxk k pxkA 3kuuv Apxk =kwwv pxkA Ek]x pxkAA k pxk TkuuvA pxk ӏXXXk pxkA ckuuv Apxk mkwwv pxkA ukcx pxkAA k pxk kuuvA pxk kwAwv pxk kAex pxk k Apxk kuuv pxkAA k pxk kkXXuuvA pxk kwAwv pxk ƂkA_x pxk k Apxk kuuv pxkA ߂kwwv Apxk kax Apxk kA pxk kuAuv pxk k Apxk kuuv pxkWWA kwwv Apxk kgx Apxk kA pxk &kuAuv pxk 0kwwvA pxk 8kixA pxk k]a(D(m(mA pxk NkuAuv pxk k Apxk ]kuuv pä_VVxk gkyyvA pxk Ak(NiAAYgAAW WzUY ((N Apxk kuuv pxkAA k pxk kuuvA pxk k|A|v pxk kAYx pxk kpT`TXXA(3UAW((pT Apxk kuuv pxkA Ԃk||v Apxk kUx Apxk k||v Ul Apxk klx Apxk k}}vUzl Apxk  klx iiУ GGApxk k||v UUl pxkA &klx pxkAA k UzAU( Y@AWAW A(?(F WzU Yz@AY(| pxkA kqiRr``Ap( [> Top of stack: Top of heap: High stack: High heap: Initial stack: Initial heap: Previous free: Current mark: Heap/stack not initializedMark PoH int Size Start Next @bDDXKV PAS.DISPOSE2S 92833-16111,REV.5000,870622 870622.0831 /P1K/LIB/HEAP_STACK_2.PAS D9=PAS.DI((SPOSE2S 44".DCO.DLD.DST.ENTR .LBPR PAS.GETMEMINFO2 PAS.NONCDSPAS.RUNTIMEERROR4;;${$$AI: A(G$(:)(((AH$A:x7 7=;¼> AA:;A%0AA>%A.(**N+DE9E AA ABA,Cp+(.@?DDXNV PAS.RELEASE2S 92833-16111,REV.5000,870622 870622.0831 /P1K/LIB/HEAP_STACK_2.PAS D)DPAS.RELEASE2S >> q?.DCO.DLD.DST.ENTR .LBPR PAS.GETMEMINFO2 PAS.NONCDSPAS.RUNTIMEERRORPAS.SETMEMINFO2 >II..AL B A(J.(- B1(((AK.(- B1A&/ Bx? ?DI@E ABCp.(]_/@Lk]@@XcVPAS.STRINGS 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PAS@@E:cBBX;VPAS.VALIDSTRING 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASBq0PAS.VALIDSTRING ##<.ENTR .LBPR .LPXR PAS.NONCDSPAS.RUNTIMEERROR#II((A.( .6( ( A.p+A.6A@+( .x*(&Ap*&8)`*0I;1A./p)( @M BBX/VPAS.STRINGINDEX 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASB!PAS.STRINGINDEX k8.ENTR .LBPR PAS.NONCDSPAS.RUNTIMEERROR22`((AA@(p(p+`!2" Ap p`.p( . @LkD@@X~VPAS.STRCOMPARE92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS@=etPAS.STRCOMPARE ++M .DAD.DLD.DST.ENTR PAS.NONCDSPAS.VALIDSTRING PAS.XLBT+]JJAqhpg rhpf`fA@g(`fpe(`gpepd`eA@d(=zrj+jdplAAzqAAj6jdPl(9(=`dpd(`eA@d(J`f@gpi(b--JAAzrAAjTjdplAAzqAAj`jd@lpi`it-;uAqsph(@q䐤>>XVPAS.STRLEN92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS> PAS.STRLEN 2.ENTR PAS.NONCDSPAS.VALIDSTRING A p` 7A  p(@C>>X VPAS.STRMAX92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS>PAS.STRMAX s.ENTR .LPXR PAS.NONCDSPAS.VALIDSTRING "" AA( x(p`"9Ap(@ܑAAX;VPAS.SETSTRLEN 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASA4p3 ?4p2`3(1`2((1>24p2`2((1G?5G>7`3Ap915I792AT;SBA>@p4(@~ƝAAXEVPAS.STRAPPENDPAC92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PASAF9PAS.STRAPPENDPAC77x.DAD.DLD.DST.ENTR PAS.MOVEPACUP PAS.NONCDSPAS.STRBUMPUP PAS.VALIDSTRING 7LL4++A5,p+`+(*`-( (*A5-,p-`-((*h6`DAA.BAA50`+p2*.A02-9L: A57p-8p,(@:AAXVPAS.STRINSERT 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASA^PAS.STRINSERT wKK e .DAD.DLD.DST .ENTR PAS.MOVEPACDOWN PAS.MOVEPACUP PAS.NONCDSPAS.RUNTIMEERRORPAS.STRBUMPUP PAS.VALIDSTRING K!LLAypx ypw`x((t`w(t`zA("`wA@zA('&y(t`z@wpvA1xypu`v@up`xA@(Z { }`z@xpHHHL))`v@uhxA@pY{z}(]`u@vpx`x(a(t { }t{}zxH A pzpy(@TAAXVPAS.STRDELETE 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASATPAS.STRDELETE |KK i .DAD.DLD.DST .ENTR PAS.MOVEPACUP PAS.NONCDSPAS.RUNTIMEERRORPAS.SETSTRLEN PAS.STRENDERROR PAS.VALIDSTRING K^IIAupt`t(s`wA(Au(s`v(Au(s`v(!(s`tA@w(.-u(s`w@v@p`tA@@(F(AAu`w@tpv`v(JKK/I++(s`v@tpxSxu(sAA Ay`w@vpx {`v@thw@p}syx{w}K lA pwpvpu( @Dci??X?kVPAS.STRLTRIM92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS?9bPAS.STRLTRIM== .DAD.DLD.DST .ENTR PAS.MOVEPACUP PAS.NONCDSPAS.STRBUMPUP PAS.VALIDSTRING PAS.XLBT='LLA`UpS _UpR`S((Q`R(QpT`SA@T(,h`V%VTPj(((,`TpT(`T@SpS6_SUpS`S(;(Qh`Vh_X`RApZQ6LVTXZSb;cA _apU( @Yw??X?cVPAS.STRRTRIM92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS??YPAS.STRRTRIM== .DAD.DLD.DST .ENTR PAS.MOVEPACUP PAS.NONCDSPAS.STRBUMPUP PAS.VALIDSTRING PAS.XLBT=||M[IIAWLpJ VLpI`J((H`I(H`JpK`K(((_WM!MKPb($((@KpK(A-VKLpK`KA(2(H_AAWMAA_VAO`IpQHMaOQKY|<Z A VXpL( @*I>>XzVPAS.STRRPT92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS>{PAS.STRRPTnMM [.DAD .DCO.DLD .DMP .DSB.DST .ENTR PAS.MOVEPACUP PAS.NONCDSPAS.RUNTIMEERRORPAS.STRBUMPUP PAS.VALIDSTRING M??OOAp p~`(}`~(}`((}h AhA  AAA (1(1A0(}6hA AA (}(}`~p (}(}h MM:oO//AAA (Z(X(Z`pm`@ph  (EM @A pp( @Cdb$>>XtV PAS.STR 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PAS> +nePAS.STR  AA .DAD.DLD.DST .ENTR PAS.MOVEPACUP PAS.NONCDSPAS.RUNTIMEERRORPAS.STRBUMPUP PAS.VALIDSTRING A'LLAaTpS `TpR`S(Q`R(Q`U(oT(Q`VA(,`V@U@sp`SA@(((1A0pT(Q6`UTpU`U(;(QqaWq`Y`RAp[Q@LWVY[Ue kfA `bpVcpUdpT( @ ?(>>XWV!PAS.STRPOS92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS>vPAS.STRPOS ++M .DAD.DLD.DST.ENTR PAS.NONCDSPAS.VALIDSTRING PAS.XLBT+6GIIApjtipe sipd`e((b`d((b`e@dpdpfph`dA@h(\`f(\pfpg`eA@g(X`f(X|tkAkAgpm|AAsk`h::TI@g@pnPknPmpf`gpg(,`hph(`f(b@hpj`jv:;$wAsupi( A @b@@XXs\V!PAS.STRMOVE 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PAS@DPAS.STRMOVE ZZ .DAD.DLD.DST .ENTR .LPXR PAS.MOVEPACDOWN PAS.MOVEPACUP PAS.NONCDSPAS.RUNTIMEERRORPAS.SETSTRLEN PAS.STRENDERROR PAS.VALIDSTRING Z(BB`1((`1p,(  =.p,`/((`/p+(@.p+`,()`+()`3(&%T.()`3(*()`2(.(9`2@3@[p`,A@p-`-(`0(CABHH(K`+A@0p-`-(`0@3@[p*`/(Y(d`/A@*Ap-(q @UA@*p-`-(`/(z(~A~W.`/( @Ux*A @U`0FNNH x3`3p-(X.(AX.`-()`+A@*(`/A(@*.p-`1(`/(`0A@2A(YAA =4AAY @AA64260A3(YA =ŋRRAA4YAA @6A 42603()`1(`/((Y =442@03()`1((`/(AAY @AA4=2403()`0A@2A("!=2@0A3() )=2@03D11BEA <p2?p1Ap0Bp/Cp.(1@&tE4BBX&V#PAS.SPARAMETERS 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASBYPAS.SPARAMETERS m.ENTR PAS.NONCDSPAS.PARAMETERS22u`@%p`Ap p`((``p`27Ap( % @ %'@@XVPQV#PAS.READSTR 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PAS@FPAS.READSTR GG N& .DAD.DLD.DST .ENTR .LPXR PAS.ENDOFFILE PAS.GET PAS.IENDOFLINEPAS.NONCDSPAS.SETSTRLEN PAS.XSBTGbb;;Ap; DLx<C( CC(3`;A@<(3CL(3`;Ap;NAA D>`C@Pp@0>;@AC(8D;=(:Fb=|G A CEp=( @k??X6vHV$PAS.WRITESTR92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS?F<PAS.WRITESTRBB j .DAD.DLD.DST .ENTR PAS.IOERROR PAS.NONCDSPAS.PUT PAS.SPLITMOVE PAS.VALIDSTRING PAS.XLBTBTT00`2(D8 91p0`0(/820(`2(/p3p0E 94'40h8AHG88083(<TM= A 8:p2;p1( @ BBXV$PAS.READSTRFILE 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASBMPAS.READSTRFILE ((.ENTR .LBPR PAS.NONCDSPAS.READNONTEXT PAS.VALIDSTRING (f@ AxA  ( 7Ap (@k+AAXV%PAS.WRITESTRFILE92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PASARPAS.WRITESTRFILE((N.ENTR .LBPR PAS.NONCDSPAS.VALIDSTRING PAS.WRITENONTEXT( A A( x7Ap (@g>>X>V%PAS.STRGET92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS>0PAS.STRGET 00.DAD.DLD.DST.ENTR .LBPR PAS.NONCDSPAS.RUNTIMEERRORPAS.XLBT0DD&&p'-(  8A&($,A-($Ap'9AA,(A (-.--`'0D1 A,/p&`=p'( = @:->>X"FV&PAS.STRPUT92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS><PAS.STRPUT++q.DAD.DLD.DST.ENTR .LBPR .LPXR PAS.NONCDSPAS.XSBT+WW_33A9x3`3A:(29BA:(2AAD9AA5#5:4`3A:(/9:::<W>AEBA(= EFB(=p>`AA@>(*EF?B(*hH6@>H`?`>p>(`AA@>(=hH6@>H`UH`>p>(*Kng5L AEGpBIpAJp@( @rhAAXDV(PAS.SREADENUM 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASALPAS.SREADENUM ss .DAD .DCO .DDI.DIN.DLD.DNG.DSB.DST.ENTR .LBT.MPYPAS.BITMASK1PAS.NONCDSPAS.STRGETPAS.STRINGINDEX PAS.STRIOERROR PAS.UPSHIFTALPHAPAS.VALIDSTRING PAS.XLBTsIGGA p`(A (`Cp ( `PC(( (`A (+  ` ,HH@(:9( p` ,H @(]`~sGMMA@(]`ApAA A [p(< @p`A@A(nm( @p`A@h Dp`( phA  AAAA@ LL(p`(A(`A@(   pA pAh6 HP((AD`p(`P(͈(h  ((h6 //~PCp`(h   @ (/LL(11A  ppp("3 L@AAXc#V)PAS.SREADCHAR 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASA3PAS.SREADCHAR **.ENTR PAS.NONCDSPAS.STRGETPAS.STRINGINDEX PAS.VALIDSTRING *''AA( (('7Ap(@=[BBXSV*PAS.SREADSTRING 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASBGIPAS.SREADSTRING JJ c; .DAD.DLD.DST .ENTR .LPXR PAS.NONCDSPAS.SETSTRLEN PAS.STRGETPAS.STRINGINDEX PAS.VALIDSTRING PAS.XSBTJ__m;;AE>A(: EF>(:p; HOx<`;A@<(3A"EF=>(3`;p;Q H?2?;=(8H;>(:I_(@CaBBX oV*PAS.SWRITECHECK 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASBs[PAS.SWRITECHECK BBA.ENTR .LPXR PAS.NONCDSPAS.RUNTIMEERRORPAS.STRENDERROR PAS.STRIOERRORPAS.STRPUTPAS.VALIDSTRING BoIIApRVQpO`O(M((Y(`PYeQ(MW((!`OAW(&%fQ(MWYA@npSVgA@S(<(.ENTR .LBTPAS.NONCDSPAS.STRPUTPAS.SWRITECHECK $>>o!!A*+%#$( `#( p&p!h-6H@!Hp'A*+'8!8&(1> 2 A*,p%.p$/p#0p"(@eN@@X V,PAS.SWRITEENUM92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS@PAS.SWRITEENUMs99 ^(.DAD.DST.ENTR .LBT.MPYPAS.NONCDSPAS.STRIOERRORPAS.STRPUTPAS.SWRITECHECK 9fEE`z(~`{(`{pz`{p{`}(`|A@}A(~`{}pw`w@{@pv`wpy`vA@y(Ahy Ah6AH P(A`ypy((`z(H`w[[E11@ypzO~z{(u`w@z@pv`whvAH(^ (uxpyhy h6 pq8y(s8(`[((Ap~p}p|p{pz( (@"A@@Xz&V,PAS.SWRITECHAR92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS@|PAS.SWRITECHAR C.ENTR PAS.NONCDSPAS.STRPUTPAS.SWRITECHECK A%(e Appp(@AAXRV-PAS.SWRITEDOUBLE92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PASAeDPAS.SWRITEDOUBLE66.DLD.DST.ENTR .LBTPAS.DOUBLE2ASCIIPAS.NONCDSPAS.STRPUTPAS.SWRITECHECK 6AA$$A,*APp$ ?@'&$(#`$((#hQ6@$HHAp<?@<@$p$(DAE A?Ap'AAB*Cp&( ,@?AAX$V-PAS.SWRITEINT 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASAPPAS.SWRITEINT 8.DST.ENTR PAS.NONCDSPAS.SWRITEDOUBLE1h AA d Appp(@e%BBXnV.PAS.SWRITEAREAL 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASBR]PAS.SWRITEAREAL 66.ENTR .LBTPAS.NONCDSPAS.REAL2ASCIIPAS.STRIOERRORPAS.STRPUTPAS.SWRITECHECK 6nn!>>`C(`BA( kD`C(pC`B(`mpBAEXCBA@p?$UVDC?(=`?(=pQp>hl6@>HpR:UVR8>8Q(.]n&&^AUWpDYpCZpB[pA\p@(E'&@p֏@@X"V.PAS.SWRITELONG92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS@yPAS.SWRITELONG-.ENTR PAS.NONCDSPAS.SWRITEAREAL * A    !f Ap p p (L@'dF$@@X2V/PAS.SWRITEREAL92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS@t%PAS.SWRITEREAL""l.BLE.CFER .ENTR PAS.NONCDSPAS.SWRITEAREAL " A"A 01%h& A!p#p$p(E@ KAAXIV/PAS.SWRITESTRING92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PASAs?PAS.SWRITESTRINGAA ].DAD.DLD.DST .ENTR .LBPR PAS.NONCDSPAS.STRPUTPAS.SWRITECHECK PAS.VALIDSTRING PAS.XLBTAOO"//A=1A(. =Ax2:;102(.`0(.p2p/G=3%3A/p5+:;58/82(?O7@ A :p0(@zBBXnV0PAS.SFRITEAREAL 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASBR]PAS.SFRITEAREAL 777A.ENTR .LBTPAS.FREAL2ASCII PAS.NONCDSPAS.STRIOERRORPAS.STRPUTPAS.SWRITECHECK 7nn!>>`C(`BA( kD`C(pC`B(`mpBAEXCBA@p?$UVDC?(=`?(=pQp>hl6@>HpR:UVR8>8Q(.]n&&^AUWpDYpCZpB[pA\p@(E'&@Қ@@X}"V1PAS.SFRITELONG92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS@hPAS.SFRITELONG.ENTR PAS.NONCDSPAS.SFRITEAREAL * A    !f Ap p p (L@'4E@@X2V1PAS.SFRITEREAL92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS@c%PAS.SFRITEREAL""[.BLE.CFER .ENTR PAS.NONCDSPAS.SFRITEAREAL " A"A 01%h& A!p#p$p(E@Z BBXV!&PAS.LONGERRORS92833-16112,REV.5000,870622 870622.0833/P1K/LIB/LONG_ERRORS.PASB@NCCXivV!&PAS.RUNTIMEERROR92833-16112,REV.5000,870622 870622.0833/P1K/LIB/LONG_ERRORS.PASCV PAS.RUNTIMEERRORg.ENTR PAS.ERRORCATCHERPAS.NONCDSJA    fbA ( @cCCX6V!'PAS.FILEERROR 92833-16112,REV.5000,870622 870622.0833 /P1K/LIB/LONG_ERRORS.PASCIPAS.FILEERROR g.ENTR PAS.ERRORCATCHERPAS.NONCDS""dl`@p`@p"i}A(@r葨BBXV!'PAS.IOERROR 92833-16112,REV.5000,870622 870622.0833 /P1K/LIB/LONG_ERRORS.PASB PAS.IOERROR g.ENTR PAS.ERRORCATCHERPAS.NONCDS""dl`@p`@p"i|A(@g'BBX/V!'PAS.STRIOERROR92833-16112,REV.5000,870622 870622.0833/P1K/LIB/LONG_ERRORS.PASB PAS.STRIOERRORg.ENTR PAS.ERRORCATCHERPAS.NONCDSKA   geA (@9AAXV!(PAS.EMAERROR92833-16112,REV.5000,870622 870622.0833/P1K/LIB/LONG_ERRORS.PASA. PAS.EMAERRORg.ENTR PAS.ERRORCATCHERPAS.NONCDS{MA  gc A (@RCCXncV!(PAS.SEGMENTERROR92833-16112,REV.5000,870622 870622.0833/P1K/LIB/LONG_ERRORS.PASC[ PAS.SEGMENTERRORg.ENTR PAS.ERRORCATCHERPAS.NONCDS A p     ggA (@JiCCX=V!)PAS.IOWARNING 92833-16112,REV.5000,870622 870622.0833 /P1K/LIB/LONG_ERRORS.PASC FPAS.IOWARNING g.ENTR PAS.ERRORCATCHERPAS.NONCDS""dl`@p`@p"iA(@柦CCXL4V!)PAS.ERRORCATCHER92833-16112,REV.5000,870622 870622.0833/P1K/LIB/LONG_ERRORS.PASC9"PAS.ERRORCATCHER77gS.ENTR LOGLU PAS.ERRORPRINTERPAS.NONCDSPAS.SETEXITPARMSPAS.STOPPAS.TRACEBACK 7))*A `AP3( Ap.A")&&E#Appp!p(&@>]NCCXnV!*PAS.ERRORPRINTER92833-16112,REV.5000,870622 870622.0833/P1K/LIB/LONG_ERRORS.PASCZPAS.ERRORPRINTERhBB <.DST.ENTR .LBT .SBTLOGLU PAS.BOUNDINTEGERPAS.DOUBLE2ASCIIPAS.NONCDSPAS.STRINGADDRS REIOB((F`((Ap`pp(--8(`ph36@H`+ `P(((**--GG}.##A,,p+(`R(;-:ň(P`R(PpTpQhS6H@QHpU-MU8Q8T(CXGJJQY&&AVVpSWpR(4h kp`(p(~h6@HHp-z@p(lJ6;;App(`ApXƀ`(`P(P(ڈP(P(숈P (P (P (P (P (P("P(+P(4P(=P(FP(OP(XP(aP(j(sGLLpX(pX(ApXȄ(ӈpXA(pX(pX(A pX˄(pXA(((pX!dLL(%pX*(A.pX3̈́(7"pX<A(@1pXE(I@pXN(AROpXW΄([]pX`A(dhpXi(mm 6kAAmrpXr(Av~pX{сҀ`(pX(ApXȁApXApXmF``(Pascal Error: Undefined CaseHeap/Stack CollisionNil Pointer DereferencedValue Out Of RangeMOD By Invalid ValueString UnderflowString Overflow String Bad IndexInvalid StringDispose Called Witk``h A Nil Ptr Disposed An Invalid Variant Release Called With A Nil Ptr Dispose Called With A Bad Ptr Release Called With A Bad Ptr Overflow Of Two Word IntegerIllegal Char For Base No Value To nUUConvert Insufficient Image SpaceNumber In Line Pas.ErrorExit Called At With `(pX(ApXApXApX` 6BB!(@@ɨ(((((( (((((1(:(C(L(U(^(g(p(y((((̈pXA(pX(pX(ApXل(XcLLpX (ApXׄ(pXA("pX'(+"pX0(A4,pX9ۄ(=7pXBA(FCpXK(OKpXQLLT(AXXpX]̄(agpXfA(jtpXo(spXx(A|pXل(pXA(pX(pX(AZ ApXՁҀp``(Pascal String I/O Error In Line Pascal I/O Error On File Unexpected EOFFile Must Be Text File Must Be Direct Bad Record Length Must Reset Or Open File Must Rewrite Or Open File Direct AK ``ccess Read ErrorSequential Access Read ErrorInvalid Integer ReadLine Read Was Too LongInvalid Real Number ReadFile Is Not CCTLNo Scratch File Available Neg FLD/DEC Width Not Allowed File CannoBl__t Be Type 1 Or 2File Must Be Type 1 Or 2Cannot Open LU 0 For Read OnlyMissing File Name File Is Not OpenError Identifier Not In Enumerated Type Value Not In Enumerated ATypepX@NN**ͅpXpX`P(∄P((pX(ApXو(NNN(Pascal I/O Warning On File Output Line Moved To Next LineOutput Line Split p%pX*`P(8P(:P(GP(IP(fP (((=pXBFllVE??((ALpXQҁUAXpX]A`pXe(ipXnqpXvypX~((lYYApppp( ?  !*** Pascal Pointer Error At FMP Error On File Pascal Segment Not Found P[\]^_`abc@Vtttt~~U PAS.A1SETSHARED Y fPAS.A1SHAREDSIZED6PAS.APPENDFILEg, PAS.APPEND_FILE _] PAS.ASCII2DOUBLE:PAS.BACKGRNDCOM1<=PAS.BACKGRNDCOM2=3PAS.BACKGRNDSIZE;GPAS.BASICSTRINGIVA~~~n PAS.BASICSTRINGOVA PAS.BINARYj PAS.BITDEPOSIT1 ESPAS.BITDEPOSIT2 KPAS.BITEXTRACT1 ESPAS.BITEXTRACT2 KPAS.BITINDEX1 ESPAS.BITINDEX2 K PAS.BITMASK0Pj PAS.BITMASK1PjA~~~ PAS.BLANKCOM1 ?8PAS.BLANKCOM2 @3PAS.BLANKFILL >PAS.BLANKSIZE >,PAS.BOUNDDOUBLE !PAS.BOUNDINTEGERPAS.CDSCONFLICT 1PAS.CHECKPTR1 L PAS.CHECKPTR2 W PAS.CHECKSTAKSZ1 F~~~ PAS.CHECKSTAKSZ2"j QPAS.CLEARFILE [LPAS.CLOSEFILE 'YdPAS.CLOSEPURGEsEPAS.COALESCE1 j3PAS.COALESCE2  PAS.CONVERT += PAS.CURRMARC1  VPAS.CURRMARC2 (]~~~%PAS.DCBADDRESS1 3 PAS.DCBADDRESS2 4) PAS.DISPOSE1e, PAS.DISPOSE1S {  PAS.DISPOSE2 PAS.DISPOSE2S / PAS.DOUBLE2ASCII7(PAS.DOUBLEMOD Y 1  VPAS.CURRMARC2 (]~~~PAS.DYNAMICDUMP1t5VdPAS.DYNAMICDUMP2i5d PAS.EMAERROR 'PAS.ENDOFFILE ! PAS.ENDOFLINE b PAS.ENTRY1mY PAS.ENTRY2_ePAS.ERRORCATCHER ' MARC2 (]~~~/ PAS.ERROREXIT 1vPAS.ERRORPRINTER}=T  PAS.EXIT1 mY PAS.EXIT2 _e PAS.EXITDATA.>PAS.EXITDATAPTR .>PAS.EXITDATASET .>PAS.FILEERROR / PAS.FILENAMR."T MARC2 (]~~~ PAS.FILEPOSITION9!PAS.FIXEDSTRING U0PAS.FREAL2ASCII Ed4 PAS.FRITEANYREAL#!=@ EPAS.FRITELONG PAS.FRITEREAL 6PAS.GET |! PAS.GETMEMINFO1  VPAS.GETMEMINFO2 (]~~~- PAS.GETNEWPARMS *vPAS.HALT ' PAS.HALTONLY%'PAS.HALTPROGRAM -T PAS.HEX m PAS.HIWATERHEAP1 VPAS.HIWATERHEAP2(]PAS.HIWATERMARK1 VPAS.HIWATERMARK2(]VPAS.GETMEMINFO2 (]~~~G PAS.IENDOFLINE^!  PAS.IMAGE0!  PAS.IMAGE1v j PAS.IMAGE2W j PAS.INITFILE5UPAS.INITIALHEAP1PAS.INITIALHEAP2&`PAS.INITIALIZE*vPAS.INITMEMINFO1/A ]VPAS.GETMEMINFO2 (]~~~ PAS.INITMEMINFO2$)M PAS.INLINEERROR 0{  PAS.IOERROR ^PAS.IOWARNING  dPAS.LABELCOM1 B=PAS.LABELCOM2 C8PAS.LABELSIZE A1PAS.LASTPOSITION^9&PAS.LINEPOSITION#TMEMINFO2 (]~~~  PAS.LINESIZEPAS.LONGNEGATEBPAS.LONGROUND S!PAS.LOWATERHEAP1 VPAS.LOWATERHEAP2(]PAS.LOWATERMARK1 VPAS.LOWATERMARK2(]PAS.MAINMODINIT b% PAS.MARK1 gz  PAS.MARK1S|T(]~~~;  PAS.MARK2   PAS.MARK2SPAS.MAX 6PAS.MAXPOSITION \n!PAS.MIN 4dPAS.MOVEBYTES ZPAS.MOVEPACDOWN ]_PAS.MOVEPACUP ZWPAS.NEW1ma  PAS.NEW1S }o z(]~~~Ig PAS.NEW24  PAS.NEW2S L PAS.NONCDS1PAS.NUMERICPARMS*v PAS.OCTAL +  PAS.OPENFILEjI PAS.OPEN_FILE af PAS.OPTDECODE 7PAS.OVERPRINT m!dPAS.PACKSTRING8(]~~~tc PAS.PARAMETERSM4  PAS.POSTFILE-PAS.PREVFREE1  VPAS.PREVFREE2 (] PAS.PROMPTZ!dPAS.PUT  Y!dPAS.RANGEDOUBLE  PAS.RANGEINTEGERE  PAS.RANGESET 4PACKSTRING8(]~~~#PAS.READBUFFER = PAS.READCHARl! PAS.READDOUBLEb;!  ( PAS.READENUMG! (PAS.READINTEGER ! PAS.READLINEg PAS.READLONG !  PAS.READNONTEXT v!=]~~~?y PAS.READREAL !  PAS.READSEQUENT fY! PAS.READSTR  PAS.READSTRFILE 0PAS.READSTRINGWPAS.REAL2ASCII<O4c  PAS.REAL5OPS9PAS.REAL5PACK 9v]sz]~~~ PAS.REAL5TRUNC9PAS.REAL5UNPACK 9PAS.REALROUND Q_PAS.REALTIMECOM19XPAS.REALTIMECOM2:NPAS.REALTIMESIZE8bPAS.RECVALPARM_ePAS.RECVARHPO _ePAS.RECVARPARM_eACK 9v]sz]~~~ PAS.REFERENCE ! PAS.RELEASE1qu PAS.RELEASE1S W  PAS.RELEASE2 PAS.RELEASE2S P PAS.RESETFILE m PAS.RESET_FILEc- PAS.RETURNPARMS .>PAS.REWRITEFILE p& ]~~~4 PAS.REWRITE_FILEe$ PAS.RUNSTRINGLEN*vPAS.RUNSTRINGPTR*vPAS.RUNTIMEERROR PAS.SCRATCH6Rn PAS.SEEKFILE~!PAS.SEGMENTEDMODb%PAS.SEGMENTERROR APAS.SEGMENTLOAD  ILE p&z]~~~$ PAS.SEGMENTRTN PAS.SEGMODINITb%PAS.SETDIFFER sPAS.SETEXITPARMS-$7 PAS.SETINIT ) PAS.SETINTERINIT PAS.SETINTERSECTPAS.SETMEMINFO1  VPAS.SETMEMINFO2 (]ILE p&z]~~~PAS.SETSHARED V_ f PAS.SETSTRLEN j PAS.SETTEMPORARY 4 PAS.SETUNION PAS.SETUPFILE dY! dPAS.SFRITEAREAL 2 < PAS.SFRITELONG` PAS.SFRITEREAL  p&z]~~~ePAS.SHAREDSIZETyPAS.SHIFTNPUT PAS.SINGLEMOD  PAS.SKIPBLANKSa PAS.SPARAMETERS :PAS.SPLITMOVE v'-@d PAS.SREADAOC} PAS.SREADCHAR f TEREAL zp&z]~~~PAS.SREADDOUBLE V; PAS.SREADENUM   PAS.SREADINT PAS.SREADLONG  !  PAS.SREADREAL  !  PAS.SREADSTRING ) PAS.STOPcn c zp&z]~((~~PAS.STR V 2PAS.STRAPPENDPACpV 2PAS.STRAPPENDSTRoV 2PAS.STRBUMPUP W mPAS.STRCOMPAREUPAS.STRDELETE V mPAS.STRENDCHECK /n PAS.STRENDERROR /n &z]~~~~ PAS.STRENDS *v PAS.STRGET PAS.STRINGADDRS Q|PAS.STRINGDATA1 XPAS.STRINGDATA2 XPAS.STRINGINDEX | PAS.STRINSERT oHV 2PAS.STRIOERROR  PAS.STRLEN"/n&z]~~~H  PAS.STRLTRIMV 2 PAS.STRMAX; PAS.STRMOVE KHV m PAS.STRPOSk PAS.STRPUTPAS.STRRANGER Sb  PAS.STRRPTV 2 PAS.STRRTRIMYV 2PAS.STRVALPARMY+ "]~~~ם PAS.SUBSETPAS.SWRITEAOC 3 < PAS.SWRITEAREAL S < PAS.SWRITECHAR2 < PAS.SWRITECHECK K m <PAS.SWRITEDOUBLEiT < PAS.SWRITEENUM < PAS.SWRITEINT _ Y+]~~~u PAS.SWRITELONG? PAS.SWRITEREALj PAS.SWRITESTRING( < PAS.TIMESTAMP [PAS.TIMESTRING[PAS.TOPOFHEAP1 VPAS.TOPOFHEAP2(]PAS.TOPOFPAGE H!dPAS.TOPOFSTACK1  V_zY+]~~~r PAS.TOPOFSTACK2 (]PAS.TRACEBACK a8PAS.TRACEBEGINQPAS.TRACECLOSEQ PAS.TRACEENDQPAS.TRACEINIT QPAS.UNPACKSTRING\PAS.UPSHIFTALPHA3%PAS.VALIDSTRING  PAS.WORDBITMOVE l+]~~~PAS.WRITEANYREALZ!=@S EPAS.WRITEBOOLEANP@ EPAS.WRITECHAR l-@PAS.WRITEDOUBLE aT!@ EPAS.WRITEENUM }!=@ EPAS.WRITEINTEGER35PAS.WRITELINE 7Y!BITMOVE l+]~~~OPAS.WRITELONG GPAS.WRITENONTEXTt]=@PAS.WRITEREAL l PAS.WRITESTR"!@ EPAS.WRITESTRFILEgPAS.WRITESTRING yV!=@ EPAS.XLBT_&PAS.XSBT`.7'>]zBITMOVE l+]~ CPA PROC,I End of actuals?  JMP DONE Done if yes CPB PROC Else end of formals? JMP DONE Done if yes*  LDA A,I Else remove indirects ...  RAL,CLE,SLA,ERA  JM/PASCAL/LIB/STD/PASCAL.LIB:::5:586:128 644 0 0 445000 5300501502 35602 /PASCAL/LIB/STD/PASCAL.LIB:::5:586:128 &&$J %HJPASCAL LIB +A+B+BJ$LFST )>>X7ȉ; 8PASCAL92833-16113 REV.6000 <920930.1 920930.1959/P1K/LIB/STD/PASCAL.PAS >@7@@XId$PAS_TMP 870720 870720.1935 /P1K/LIB/STD/PAS_TMP.PAS@@*I<<XVPAS.NFS 92833-16114,REV.5000,870622 870622.0820 /P1K/LIB/NFS.PAS<@@@XGXVPAS.READSEQUENT 92833-16114,REV.5000,870622 870622.0820 /P1K/LIB/NFS.PAS@gmPAS.READSEQUENT VV ( .DCO .DDE .DIN.DLD .DMP.DSTFMPREAD FMPSETPOSITIONPAS.DCBADDRESS1 PAS.FILEERROR PAS.INLINEERROR PAS.IOERROR PAS.NONCDSV--p`^Pz(`^P{((`aP( `(p_pa-fBB`(p8p(`lpf`fA@|pg'cl`c@{p^`f@}Py(5Pz(P{((W`f@A h@`f@~D  hd`f@~pjAOcajd`a(VVal`fHWEE@ p\`fA@pjgcaj\p_`_P\p]`f@~hfH~pjA j`f@pj`f@~ j(pjgL0jLg`aA(al(`]A(ul(Z`f@2BB p\`\p``^Pz(`f@A@(``@{p``f@pjcaj`p_`_P\p]`a(`](`](Έ`_P`pjj`aA(al(P_(@@(g0g`f@@(pjpb`f@@b 8b8j((`]A(vl(Z`f@pj`f@pk cajkp_`a(w`aA(al(V`_((?`f~~==@A@_(/+xl`f@p_`f@ `f@H_`f@hfH~(V`f@ `f@ `f@p`_P_(S(Vg0g(Zh m~22nn`m(opl8m(  2@d$??X\VPAS.WRITELINE 92833-16114,REV.5000,870622 870622.0820 /P1K/LIB/NFS.PAS? YLPAS.WRITELINE //N.SBTFMPWRITEPAS.DCBADDRESS1 PAS.FILEERROR PAS.IOERROR PAS.NONCDS/2-@@`KpG`G@VpHH*U(@H[H`G@XU(`G@Y@6`G@X`ZA FK`G@YpI`GA@XpJ,FEIJ`E(33EK`G@Y@6`ZH`G@XhKHW(DI@ADTKL >XHVPAS.EXTNAMELEN92833-16114,REV.5000,870622 870622.0820/P1K/LIB/NFS.PAS> =PAS.EXTNAMELEN .ENTR .LBTPAS.NONCDSii.66`8((%p6`8A@6(h76@6HPG((`6p6(`8A@6(%p8`8(2@h:6(2h:6p8`8p9`9=i5>A:;p8>X^VPAS.SETUP_NAME92833-16114,REV.5000,870622 870622.0820/P1K/LIB/NFS.PAS>{PAS.SETUP_NAMEM33.DST.ENTR .LBT.SBTLOGLU PAS.DOUBLE2ASCIIPAS.NONCDSPAS.PARAMETERS3(DD`(=`Ap (<`(`@( `@P@p`@P(>`@@AA?`()GGE!!AA?('('`@p()`p`Z(:`(:`@AP(: 8…pZ`@pCGD[[(JAAQXAAekiACkkxkiA}mYghH6 !pA`]kg`]A((Aki''w(`Z( ]pZ`]p`' JJA p`p(E`@)(`@(`A@pA(!`]`](2`Z(- +]pZ (`(hh (EnJPP(U(U`@%A(cAADŽ(g(hA A(xAAAAA((AAɈ`@%(A(AAA((MM-,,AALj`@A AAAA숄`@p`@(((ň`@pME??8(`V(`@P((`@hU`@*( `aP( ( `@hU( ʅpZ`@)T(, `]`Z(,`](, *]pZ`@ț.==P(M3`Z(M`@(M`@)(M`@P(M KpZ`Z(`aP(^P(_P(qP(~P(~P(~((`(p``@p$jVkCC(p p(`(y`@A(y(} }ۅ(`aP(`@)(`]`](A ]pZ`aP(`Z(`P(`P(( ܅pZ`aP(($$`]`Z(`](A ](h#$HH8(`p^AɅ`](pcAх(p^(`c(pW`@*(`@@0ip]`]p`(AAekpY   l IIp`p`(eAk(rk`pph6H@H!h6p@HH`"88("`A@(W` A@h6HH"` pA$Rmm'R==@h6HH"` pA$c@h6AH"$m@h6H"u({`P({( `Z(`]( 慫ApZ( 煫pZmzII8(PASCxx::0 PAS  `pZuAiAcbpc`@/pW`c(`WA( pW(؈`@p*(؀'( ؅`]`@hd`cV @@(`@pO0WOpY `p`@p+(`aP(( *( %(  `S( Acb^`Z(R`^(hh55(N$A^k`@p* p1(65(M*(M0 C(M`aP(I(K`paM(RA R녫hXX99A pdpcpbpa(@CRW WYZ OXSX))B  ,02@d ')@ ??XۮV PAS.CLOSEFILE 92833-16114,REV.5000,870622 870622.0820 /P1K/LIB/NFS.PAS?YPAS.CLOSEFILE ``.DST .ENTR .LBT.SBT FMPCLOSE FMPPURGE FMPSETEOF PAS.DCBADDRESS1 PAS.FILEERROR PAS.FILENAMEPAS.NONCDSPAS.OPTDECODE PAS.WRITELINE STRDSC` `( `ӈAP(  Ӂ q BB(`@/pp`نA@ׄ(*h6H@H P(&(*`p(pր`A@(Y`نA@(Nh6@ׄH h 6p@H``p(U)NBBh 6@ֈHH``p(,^Ԉ`P(dP(g(jpҀ(jp(j`p`@p+(y*(*('(؁)(*}}QBB(&(A ӈ `(A߄pA  ڀ`p (p0A Ȁӈ `(A pӈ }""A pـ( @ "@a݀==XkVPAS.POSTFILE92833-16114,REV.5000,870622 870622.0820/P1K/LIB/NFS.PAS=)PAS.POSTFILE ..ENTR FMPPOST PAS.DCBADDRESS1 PAS.NONCDS A A ` p` eiA( @_d~$==XHVPAS.FILENAMR92833-16114,REV.5000,870622 870622.0820/P1K/LIB/NFS.PAS=@PAS.FILENAMR .ENTR .MBT.SBTPAS.FILENAMEPAS.NONCDS88 A?(`Gp=phE6@H`FH88=( h>6`E6AD@8zAA>(@ @o/>>X<V PAS.ETC_A 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS>@|<@@X"V PAS.UPSHIFTALPHA92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS@PAS.UPSHIFTALPHA 4.ENTR PAS.NONCDS,,~^`@!( `@ ( `@!@p(`p`,TAp`p( IA @==XV PAS.MIN 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS= A`PAS.MIN  4.ENTR PAS.NONCDS$$4`A@( `p( `p`$BApp(@N==XV PAS.MAX 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS= KXPAS.MAX  4.ENTR PAS.NONCDS$$4`A@( `p( `p`$BApp(@~>@@X|pV PAS.DOUBLE2ASCII92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS@ZpPAS.DOUBLE2ASCII ++ R.DDI.DLD.DMP.DNG.DSB.DST.ENTR .SBTPAS.NONCDS+^QQAf( AAfd(fAdpa`apahb hhb jdjhhdhhzhxhm6pl@aH`l hbA hAAdhAAdd (f(]`bP~''RQ(S(]`apahm6@aH` `apc`cp'1Vq AAmnAfopb(0 x~ - @CbX@@X{guVPAS.ASCII2DOUBLE92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS@iQPAS.ASCII2DOUBLE0K.DCO.DLD.DMP.DSB.DSTPAS.NONCDSGG`I@tpHpGNk( ( (/AANk((-(-`J(`rA@H()`J(*`sA@H(*(,pG(/pG`G(CpKhH AALNAAmLAN(EpK`KQBB,R`Q(SpN8Q`Q(YpO8Q`Q(_pP8QOpJPpI`qpK(334 B q @SrB??X,eVPAS.REAL2ASCII92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS?sPAS.REAL2ASCII rr? ..TCM .CFER .DIV .ENTR .MPY .MVW .SBT.TADD .TDIV .TFTD .TMPY .TSUB PAS.MAX PAS.MIN PAS.NONCDSPAS.REAL5OPSPAS.REAL5TRUNCPAS.REAL5UNPACK PAS.SINGLEMOD r `ph6@H`   GHH` (p 8  p (`h  `(!  A(A`p`A(:`p`A(F `pp`bp`^p`@pƀ` VLL@p с`(A`]ňA@pn A `( h!`"A @p(`A(`]@ph!`"(( `p@p~~HDD8(O`Pap`(`A@p`(`@c@d@d@dpp@ppʀ`p(Ap`A@pp`ʈ@p`~`LL(`h  `(  AA p`Ljp`((,`[(!` @pAՁ`]@p!`p` A\Ap(A6J2EEA `(R G;`pƈ`0(Q`p(6p`(Z (_`(_ `p(p`p`Pʈ(l(n AqpĈ`@`p xx~wEEh AA  ;@pň8(h`( `( `p( ` A_@`p A@`p `p`̀xYYA pˈppɈp(@PP- .+ 16PdN _^6G lN[PdN _^G )R6N[kr[  0'@)HAAXVPAS.FREAL2ASCII 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PASAKPAS.FREAL2ASCII } XXh..TCM .CFER .DIV.ENTR .MVW .SBT .TADD .TDIV .TFTD .TFXD .TMPY .TSUB PAS.MAX PAS.MIN PAS.NONCDSPAS.SINGLEMOD X `mpmh6@mH`   FF` (p 8  p (`h`(!A`po`oA(6`pq`oA(B`prpw`p`܈pv`w@wpw`v @THHp~`r(m~`A(l@wpw({~`({A ~`wpw@vpv8(K`{Ppp`p(`wA@zpp`p(`|@@@@:IGGpp@zpp{`{Apx(wpt`t@zpA{p{`{@tpx`r(`h`(Apv`xpt`t((`t(`v ?<EE@p `vpv`t AۈApt( A`( `wpw`p0r(`xpx(pm`q( (`p( `xp(Fp`pv`vP{()U(EE(+  xu`u@ވp hu  @vpv8(%`p(i y`w(T `wpw(V `w A݈@p Aew@p `mp}`}]]==Ap|p{pzpy(@PP- .+ PdN _^6G ߂lN[]  0'@V??X^VPAS.PARAMETERS92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS?<PAS.PARAMETERS~ ++5.ENTR .LBT.SBTPAS.NONCDSPAS.RUNSTRINGLENPAS.RUNSTRINGPTR+22Wp`p`A@(h6H@Hpp`2::`p(`3(!(,(,`PЈ(((+@3p3(`3p4`46:D7??`6(8p5865p3`p4(ppppp`(h`A@(e(e`ph6@H`H(O`p(`p6((`P(`/v??A@(`P(`(`p`((`ph6@H`(o(p`p`((`hAH( (xph6@HH`8(8( t` App(B  , @9F@@Xg+VPAS.REALROUND 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS@%GPAS.REALROUND $$3.DLD.DST.ENTR .FAD.FIXD .FSBPAS.NONCDS$((AA%A(AD'A(AD'( AAA(@@g'@@Xo?VPAS.LONGROUND 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS@,L*PAS.LONGROUND **a.DLD.DST.ENTR .MVW.TADD .TFXD .TSUB PAS.NONCDS*--A!3`!(%7%(A!7AA!A*-!!ׄ+A)`)h> A.DAD.DCO.DDE .DIN.DLD .DSB.DST .ENTR PAS.NONCDSPAS.SETMEMINFO2 PAS.SHAREDSIZE>oo3HHApHDKKs(F(FO(FM(FOK(((FAAK OD aMa(*A(*(FOADMIOQISOUIWDQpH`HeofAA ccAAOdAM`wpH( ;w @3RAAX\xVPAS.A1SETSHARED 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PASAmjePAS.A1SETSHARED ?? ;s.DAD.DCO.DDE .DIN.DLD .DSB.DST .ENTR PAS.A1SHAREDSIZEPAS.NONCDSPAS.SETMEMINFO2 ?oo3HHApHDKKs(F(FO(FM(FOK(((FAAK OD aMa(*A(*(FOADMIOQISOUIWDQpH`HeofAA ccAAOdAM`wpH( ;w @C@@XQVPAS.CLEARFILE 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS@8 PAS.CLEARFILE UPAS.DCBADDRESS1 PAS.NONCDS& A ` @  4U ` ( p 8 ( @)GAAXD'VPAS.MAXPOSITION 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PASAPAS.MAXPOSITION 08.DLD.DSTPAS.IOERROR PAS.NONCDS,,7$`@%( `@&(A A"A,4`(p8( % @Ь@@X/VPAS.LASTPOSITION92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS@ PAS.LASTPOSITION0ک.DLD.DSTPAS.MAXPOSITION PAS.NONCDSڲAA A 3F ` ( p 8 (@3AAXOMVPAS.APPEND_FILE 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PASAS>PAS.APPEND_FILE Ύ.ENTR .SBTPAS.NONCDSPAS.SETUPFILE qqZ[77`8p79(`7@EhD`7@F `7@G `7@JhL(`7@EA #8C:;<=B9(6`7@Ih7HF`7@H `7@K@6`L>q?A8(`  @Z@@Xj/VPAS.OPEN_FILE 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS@N&PAS.OPEN_FILE .DST.ENTR PAS.NONCDSPAS.SETUPFILE 99` p`@, `@-p `@.pA A +"#$%*&9w'A ( ` @i鈩??XTFVPAS.RESET_FILE92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS?u8PAS.RESET_FILE].ENTR PAS.NONCDSPAS.SETUPFILE gg#11`2p13(`1@?h>`1@@ `1@A `1@DhE(`1@?A #2=4567<3(0`1@Ch1H@`1@B 8gz9 A2((` @a@@X~MVPAS.REWRITE_FILE92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS@P>PAS.REWRITE_FILEΎ.ENTR .SBTPAS.NONCDSPAS.SETUPFILE qqZ[77`8p79(`7@EhD`7@F `7@G `7@JhL(`7@EA #8C:;<=B9(6`7@Ih7HF`7@H `7@K@6`L>q?A8(`  @s??X:]VPAS.APPENDFILE92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS?hPAS.APPENDFILEv  ?6.ENTR .LBT.SBTPAS.NONCDSPAS.SETUPFILE L((==`p`p( h6(h6Hh6 `@`@(=`@h`@ `@`@ `@h`@@6`(E}}=AA`@ `@P(I(N@6p~`~(\@6 D6e`~(m@6`@P(s(}`@hH`@ }GA(`  @>>XvVPAS.OPENFILE92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS>,iPAS.OPENFILE $$.DST.ENTR .LBT.SBTPAS.NONCDSPAS.SETUPFILE $~~5 @@``p^`^p_e( h_6e(h_6Hh_6 b`^@pc`^@qd`^@r `^@sp_ _`^@up_A _`^@taePo(8(=f@6p]~44 @`](Kf@6 Df6T`nefghm`](\f@6i4{j A`( ` @@@XqLVPAS.RESETFILE 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS@=PAS.RESETFILE |  ?6.ENTR .LBT.SBTPAS.NONCDSPAS.SETUPFILE <<`{py`ypz( hz6(hz6Hhz6 }`y@~`y@|(7`y@h`y@ `y@|`y@ `y@h(?`y@ `yrr<<<@|P(C(H@@6px`x(V@H6 A6_{`x(g@H6`y@P(m(w`y@hyH`y@ r)A{((` @UAAXVPAS.REWRITEFILE 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PASALPAS.REWRITEFILE v  ?6.ENTR .LBT.SBTPAS.NONCDSPAS.SETUPFILE [<<`p`p( h6(h6Hh6 `@`@(7`@h`@ `@`@ `@h(?`@ `}}WrPAS.SPLITMOVE 0&&\.SBTPAS.IOWARNING PAS.NONCDSPAS.PUT PAS.WRITELINE &CCpl`o@hoH@Ap(opl(-`o@phoH@A@(-+oo`l(A`o@h`mpA(:(@opp(4(g`mXXC((p(G(g`o@pk`o@@6HHk``kpkpp`mp(K`o@hk`o@@0`lpn`nrX;;4s`r(tpo8r`r(zpp8r`r(pq8rqpm`pn(;:   @AAXVPAS.WRITESTRING 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PASAPPAS.WRITESTRING }77.ENTR .LBT.SBTPAS.IOERROR PAS.MOVEBYTES PAS.NONCDSPAS.PUT PAS.SPLITMOVE 7%BB`{(~~{|(<`z('`{(&p}pyh6@yHh~H~8y8}((;`{(;p}py`~@HyHA~8y8}(/(w`~@px`zooB66(Q`~@p}AM}x{`x@{px(i`{(ip}py`~@@6Hx@y@H`xpx8y8}(Y`{(m(w`~@hx`~@@0o""oA~p|p{pz( "@@@XjVPAS.WRITEENUM 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS@^PAS.WRITEENUM ]?? .DAD.DST .ENTR .LBT.MPYPAS.IOERROR PAS.MOVEBYTES PAS.NONCDSPAS.PUT PAS.SPLITMOVE ?EE`(`(`p`p`(`A@A(`p`@@p`p`A@(Ah Ah6AH P(A`p((`(H`mEBB@p(r`@@p`hAH([ (qxph Ah6AH hAH8(o8(](`@p`@pA`@p`((T6 `@h`@@0))ΆA pppp(  )@f&@@Xh3V PAS.WRITECHAR 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS@E(PAS.WRITECHAR ((.ENTR PAS.IOWARNING PAS.NONCDSPAS.PUT PAS.WRITESTRING (EE""`$P/(p#p"%&#$"(!`%@0h%H1((.%`%@2&%(E=) A%'p$( @=\C@@X{QV PAS.WRITEBOOLEAN92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS@H>PAS.WRITEBOOLEAN&&4.ENTR .LBT.MPYPAS.NONCDSPAS.PUT PAS.SPLITMOVE &ggÌ55A;8F(`9( p9`9(`8@Pp6`6h6H8AH( (4x:Ap5`N9@G@6H@5Hh;AHO;85(28:(!>g##=?A;@@0p-`-2b43`2(4p182(%< @{Y>>XV'PAS.LINESIZE92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS> PAS.LINESIZE 4.ENTR PAS.NONCDS[ ` @h H@p `   eaA (  @@@XG#V'PAS.FILEPOSITION92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS@PAS.FILEPOSITION08.DLD.DSTPAS.IOERROR PAS.NONCDS''`@!( `@"(AA'4`(p8( ! @ja!>>XAV(PAS.SEEKFILE92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS>5PAS.SEEKFILE##xn.DCO.DLD.DST.ENTR PAS.IOERROR PAS.NONCDS#bbӑ00`3p0`0@:p1`0@;(+`0@<p242`0@=p2@`0@<A2(p21L@02L11?11>1(//935b 6 A3( @AAX~RV(PAS.READNONTEXT 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PASA_;PAS.READNONTEXT %%PAS.IOERROR PAS.MOVEBYTES PAS.NONCDSPAS.READSEQUENT %hh77`9@Mp77,L( A I9(7+LA(J9(7.L(A97Q770P7`9@Op7`9@N p867K:K8;h..<`;(=p98;`;(Cp:8;(  .@qP@@Xg+qV)PAS.REFERENCE 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS@+[PAS.REFERENCE  !.LBTPAS.IOERROR PAS.NONCDSPAS.READSEQUENT ==`ZpX`X@gpYY-e(VY,e(cZ(V`X@hPd(Pe(PfA(!(PZ(P`X@iA((Z`X@kpW`X@j@W(=`X@m@6HWHhXHl(H@@Z=`X@lhnY,e ehXHi`WpW`X@khW(PY0oYYpY[@((cR\`[(]pZ8[(  @(@==X!6V*PAS.GET 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS= 1[(PAS.GET  ]PAS.IOERROR PAS.NONCDSPAS.REFERENCE OOv''`'@3+2(  0'(&`'@3,2(1'(&A'`'@3@04`'@3@5(O) `((*p'8(( @ (o??XI DV*PAS.IENDOFLINE92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS?'W4PAS.IENDOFLINE  ,P.ENTR PAS.IOERROR PAS.NONCDSPAS.REFERENCE __000p1`2@B+@(`0(A<2(.2`2@C(`2@B,@(p1`2@B,@(.`0A(..=2`14_5 A23p0`Ap1( @ @}U@@XFV*PAS.ENDOFLINE 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS@P PAS.ENDOFLINE 01PAS.IENDOFLINEPAS.NONCDSAp` l ` ( p8 `p(  @R@@XG<V+PAS.ENDOFFILE 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS@H+PAS.ENDOFFILE 0]PAS.IOERROR PAS.NONCDSPAS.REFERENCE QQu''`*p(`(@:p))+8()*8(5*`(@;(),8(*`*@:,8p'`'+Qk, `+(-p*8+`9p'( 8 @{jAAX</V,PAS.READINTEGER 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PASA`|PAS.READINTEGER ##D.DCO.DLDPAS.IOERROR PAS.NONCDSPAS.READDOUBLE#..&A*( (,(((`(..))y`(p8`($p8( )@}1=??X3.;V,PAS.SKIPBLANKS92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS?-PAS.SKIPBLANKS ''n.ENTR PAS.ENDOFFILE PAS.GET PAS.NONCDSPAS.REFERENCE 'YYs**A, 5p*`*(!`,@8P9( (`,@7,5(`,@7@A0:,(, 5p*`*(&A,`*p+`+-Y.A,`6p+(25 @e??XA=rV-PAS.READDOUBLE92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS?Y\PAS.READDOUBLE@@ {^.DLD .DNG.DSTPAS.ASCII2DOUBLEPAS.GET PAS.IOERROR PAS.NONCDSPAS.REFERENCE PAS.SKIPBLANKS@j BBA [AZ(UpWpV`Z@l,k(U`Z@mPopX`X($`Z@mPn($(&AAZZ`Z@m@q(E`Z@m@p(EpW`Z@mpY[XY k0VpVAZ''BAZ((`XA(M[D [`W0V(UUjZ\'--]`\(^pZ8\`\(dp[8\(  +--@??XOW}V.PAS.READSTRING92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS? ivPAS.READSTRING++ I.ENTR .SBTPAS.ENDOFFILE PAS.GET PAS.IENDOFLINEPAS.NONCDS+"GGApqrA(rAr(Hu(-tA@q(,rz(,hs6@qH`r@{Ar`qpq((HtA@q(H9rz(H@q@shrH{Ar`qpqUUsG**(-u(_tA@q(^hs6@qHH`|`qpq(K(ptA@q(p@q@sh|`qpq(_vUicwAr( @ٜ>>X)V.PAS.READENUM92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS> PAS.READENUM ``R .DAD .DCO .DDI .DIN.DLD .DNG.DSB.DST.ENTR .LBT.MPYPAS.BITMASK1PAS.GET PAS.IOERROR PAS.NONCDSPAS.SKIPBLANKSPAS.UPSHIFTALPHA`BBA(`@%p`@$@(p` ,H@A((`p` ,HH@(@`@#A@㄁(@`p`@&@6Hp(!`BKK@p`A@A(QP(`䈄@p`A@h D p`(߈`phA  AAAAA (zp`((`A@(`JJ@&@6HHApph6AH PA((D `p(`㈈P((h  ((h6 P'p`(h  `(pvS Ap88((cKKb22Ap((爀p(  K@=>>XBV/PAS.READCHAR92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS>-PAS.READCHAR]PAS.IOERROR PAS.NONCDSPAS.REFERENCE XXF++A+`+@?,`+@>+=(;+(*`+@>,=(<+(*`+@>@0@`+@>@A-X++&.`-(/p+8-`-(5p,8-( +@)>>XV0PAS.READLINE92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS> PAS.READLINE PAS.GET PAS.IENDOFLINEPAS.NONCDS~ A A(  (  4V` (p 8 (@5??X)9TV0PAS.READBUFFER92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS?q7PAS.READBUFFER 2PAS.MOVEBYTES PAS.NONCDSPAS.READSEQUENT hh11`4p1`1@Mp22-LA( 4`1@O6`1@N(&66`1@P6`4@Qp3&3K5K620R22S2`1@N 7h::i8`7(9p487`7(?p587`7(Ep687(  :@bف??X/V1PAS.CONVERT 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS?3PAS.CONVERT HH `.DCO.DLD.DST.ENTR .LBT.MVW PAS.BITMASK1 PAS.BOUNDINTEGER PAS.INLINEERROR PAS.NONCDSPAS.SHIFTNPUT H BBp(h(A -( ( (h/6@(HHP((`(p((h( A-(!(!(h( -(*(*(7h/6@(HP(3(7`(p((!`(p'h' -(B(B(UBBBh/6@'H ,HH@ (U`'p'(9h' -(^(^(ih/6@'HP(i`p*(`(@'p`A@(`P(y(h/6@(HHh@(f(`p*(`p*[DDA`hA=pp(`(A@'(h/6@(Hph/6D@(H 09 (@ AF ( af ((`@p(`@@}p(爈`@@}p(h  A2)`(p((ffh448(p*A 2`+Py(P|( P~((D>?p)(U@A`zp)(fBC`{p)(Hh `*(##`*p,`,3f^^-4CCAA/0A-1p+( 1 3f~~^y  0`ab k @b"==X-V2PAS.BINARY92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS= PAS.BINARY ))s6.DLD.DST.ENTR PAS.CONVERT PAS.NONCDSPAS.RUNTIMEERROR)&&A*p`A(AAA &.L! AAAp(@v~>>Xa-V3PAS.OCTAL 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS> PAS.OCTAL ))s6.DLD.DST.ENTR PAS.CONVERT PAS.NONCDSPAS.RUNTIMEERROR)&&A*p`A(AAA &.R! AAAp(@g'==X!-V3PAS.HEX 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PAS= F] PAS.HEX  ))s6.DLD.DST.ENTR PAS.CONVERT PAS.NONCDSPAS.RUNTIMEERROR)&&A*p`A(AAA &.Z! AAAp(@1AAXV4PAS.HALTPROGRAM 92833-16118,REV.5000,870622 870622.0822 /P1K/LIB/ETC_A.PASAYtPAS.HALTPROGRAM DD E .DDI.DLD.DST .ENTR .LBT .MBT .SBTLOGLU PAS.DOUBLE2ASCIIPAS.NONCDSPAS.STOPPRTNREIOD\HHAN(9h6`6A |`pMaN}pL`L((,`MpMh6@LH h6pq@MH`q @LpL(A/Lpq`Mpr9~qUr`OpPN xQpRpSApTI :HPKt ++_uAA ssAN( UaPascal Halt: +@*LI <<X\V4PAS.HALT92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS< PAS.HALT !!S.DLD.DST.ENTR PAS.HALTPROGRAM PAS.NONCDS! A ZAAA(@?^>>X V4PAS.HALTONLY92833-16118,REV.5000,870622 870622.0822/P1K/LIB/ETC_A.PAS>3PAS.HALTONLYdPAS.HALTPROGRAM PAS.NONCDS A 8(@L= ==X5ȉ' 8PAS.NONCDSLIB 92833-16119 REV.6000 <920930.1937>/P1K/LIB/STD/ETC_B.MAC=PAS.CDSCONFLICT PAS.NONCDS@;;Xڑȉ' 8PAS.BOUNDINTEGER92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;JPAS.BOUNDINTEGER ).DLD.DST ,,A8(A@AA8,@ٌ;;Xaȉ' 8PAS.BOUNDDOUBLE 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;HPAS.BOUNDDOUBLE N.DCO.DLD.DST000`p@p( (88((( 0  @3Q;;X+ȉ' 8PAS.RANGEINTEGER92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;TPAS.RANGEINTEGERQ.DLD.DSTPAS.RUNTIMEERRORFF!''(p'`(A (!A@((!`'AA88(A8&*(F * @og;;XW%ȉ' 8PAS.RANGEDOUBLE 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;RPAS.RANGEDOUBLE .DCO.DLD.DSTPAS.RUNTIMEERROR>>b  `p#@$p#8# (((# (( 8#"#(> " $ @[::Xȉ' 8PAS.CHECKPTR1 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:FPAS.CHECKPTR1  UXPAS.RUNTIMEERROR Ǭ x ( A h 8   @N\m::Xȉ' 8PAS.CHECKPTR2 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:FPAS.CHECKPTR2  UXPAS.RUNTIMEERROR ( (   8@~>::X ȉ' 8PAS.DOUBLEMOD 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:CPAS.DOUBLEMOD ##?.DAD.DCO.DLD.DMOD .ENTR PAS.RUNTIMEERROR#//٦((A /@~::Xȉ' 8PAS.SINGLEMOD 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:%BPAS.SINGLEMOD .DIV.ENTR PAS.RUNTIMEERROR00W~( ( `A0@|88X1ȉ' 8PAS.IMAGE092833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC8UPAS.IMAGE0((`.ENTR AVLMENDMLIMEM PAS.RUNTIMEERRORUNM2UNMEM (NN..A@`(+(pHpp(+A,.//@0@.(!!-@,`pHp@p@HcN 0 @ye88X3ȉ' 8PAS.IMAGE192833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC8UPAS.IMAGE122 }.ENTR AVLMENDMLIMEM PAS.RUNTIMEERRORPAS.TOPOFSTACK1 UNM2UNMEM 2PP800A@`(-(pHpp(-A.011@2@0(!!/@.`pHp@p@pHcP 2 @Rq88X3ȉ' 8PAS.IMAGE292833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC8UPAS.IMAGE222 }.ENTR AVLMENDMLIMEM PAS.RUNTIMEERRORPAS.TOPOFSTACK1 UNM2UNMEM 2PP800A@`(-(pHpp(-A.011@2@0(!!/@.`pHp@p@pHcP 2 @Rq::X6ȉ' 8PAS.PACKSTRING92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC: rPAS.PACKSTRING  j.ENTR .SBT  55>pph68H8(8`(5@r2;;X ȉ' 8PAS.UNPACKSTRING92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;bPAS.UNPACKST((RING  c.ENTR .LBT  88[ ppHh688(8`8(8@™99XYȉ' 8PAS.SEGMENT 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC9PAS.SEGMENTLOAD PAS.SEGMENTRTN.ENTR PAS.SEGMENTERRORSEGLD `p A @q ;;Xȉ' 8PAS.SETPACKAGE1 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;8hPAS.RANGESET PAS.SETTEMPORARY"".ENTR PAS.BITMASK1PAS.RUNTIMEERRORPAS.SETINIT " c  d FF  D P(8 D P(#8@pphDH0p2 (F @ H (J H,@H88() NO (I2%%zQhDHa0pZ (88(QP% hDDadee D P(x8db D P(8aehb (b@ppcf (HDHa0p (` ,@Hd88(cf88ֿ@(ppPcfepb(pPhg(8@Vu;;X8ȉ' 8PAS.SETINTERINIT92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;SPAS.SETINTERINIT.ENTR PAS.BITMASK1PAS.RUNTIMEERRORhh88Ap(1pA(1`@@788`PH (1 H,@H8(56h@U::Xȉ' 8PAS.SETDIFFER 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:4PAS.SETDIFFER .ENTR // 0 D p8888(/@oY99Xjȉ' 8PAS.SETUNION92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC90PAS.SETUNION.ENTR ..5 D p8888(.@U88Xȉ' 8PAS.SUBSET92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC8`PAS.SUBSET.ENTR 11>s D pp 88 8(X1@1*O;;Xȉ' 8PAS.SETINTERSECT92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;WPAS.SETINTERSECT.ENTR ,,4 D p8888(,@xQ99XoVȉ' 8PAS.SETINIT 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC9APAS.SETINIT ?PAS.BITMASK1PAS.RUNTIMEERRORz  D pxp<<p8(p8p8p8`P(/`8` 8(1`(L8(MhH (M ,@H8(888(M5PATU(L@pt::X&ȉ' 8PAS.LONGNEGATE92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:*^PAS.LONGNEGATE  5?..TCM .MVW 55;.(p8( p8`hA5@&1D77Xȉ' 8PAS.TIME92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC7G=PAS.TIMESTAMP VPAS.TIMESTRING2.DIV.DLD.DST.ENTR .MVWEXECBB//ampm : . Fri Sat Sun Mon Tue Wed Thu Mar Apr May Jun Jul Aug Sep Oct Nov Dec Jan Feb B -56 := <`A`5h<=H @iM, 19 2P VAAU`A`GhUVf/4`1h0րAp1HR`2h@(uh`2xT`pQ`2h0Hp9 A`1H:`4@pOp6h3H`4 H HH`vvEEA@ ӈp/` pL0p8h/ HJ`/@@0րp7@4Q@4@3  HH`A @@0ը n 00v@9XS::X.ȉ' 8PAS.TRACEDUMMY92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:66PAS.TRACEBEGINPAS.TRACECLOSEPAS.TRACEENDPAS.TRACEINIT 6 tE @T::Xȉ' 8PAS.MOVEBYTES 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:TPAS.MOVEBYTES   d.ENTR .MBT ..Ap`6h6A.@k䊤;;Xo#ȉ' 8PAS.WORDBITMOVE 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;ZPAS.WORDBITMOVE  4g.ENTR .MVW >>a`hpx(0 p!x!x""p!0 >@Qo::Xȉ' 8PAS.SHIFTNPUT 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:OPAS.SHIFTNPUT .DLD.DST.ENTR ((Ap@!8( @(@{!;::Xȉ' 8PAS.REALINPUT 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:55PAS.READLONGPAS.READREALSPAS.SREADLONG <PAS.SREADREAL 5PP .DIV .DLD .DST.ENTR .MPY.MVW .NGLPAS.ENDOFFILE PAS.GET PAS.IOERROR PAS.REFERENCE PAS.STRGETPAS.STRIOERRORP   A  BB##p( `@P(((/(/( pu`|hBe<8SE89:K HKA ;<AAS!!Op`pt`OPtQ(e`tP(Zpu`|hR`tSPPSA 7u {KKv{ +-09` .LEle(ph(hpx`@P(p` h (@@(@  p(h@@X(`F@FhI @pF8G(`hh8 @F!(H(ވ`pGpFhI` HxI(Ĉ`F@}8I`GP@(2Pd} ~~ڍLLN azhv #( 8}A v5 @AA v xA@ @ x@}p}`z6pzA x AA x vA  v# p9QQ@@A(W(E(K(O w x`v(T vxy(R`vpy~dR??pxpwpv`97:08p`pdhx`ypyhw`xxwpx:`h pֈ`h  @H xP|(}@(o`vh (h( xv@}p}hppDqBBH}x}h!(x@ (` 6   HوhX|xHx(p@pH}x}`|pp@p(8HPHSp8؄ 50OO**8(¨`u(`(AOPtQ(pt(`t(`(AA`@ xO$99`|p`pGp}pvpwpxpypzpFpHpIppp~`p(8܀hH ( pH (/P(JP(JP(iP(]P(]P(]P(](z@r8(D8(C8ك7<<8h H Hhx(8~(@r(W((((U((pH(hX([(p(r((f(((((88(r(((((((~~6ss@@hDrhrH $r(((((((`u(Q(AhH|x`v0w( h8HH~HI(`hh}(6 ֈ0~$$ ( A`pvpwpxpy!(($@֊;;X ȉ' 8PAS.REALOPERATOR92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;77&PAS.REAL5OPSPAS.REAL5PACK ]PAS.REAL5TRUNC7PAS.REAL5UNPACK 70.DLD.DST.ENTR .MVW2@  "GG"`#hA`$h"H@`h%&A(^u%&xHD``!(e(e(ehHhG4AiCCx` p@ 8(mhixHXu(xx @8 8` AhHxD8AD8DhHi(>>(pp 88(`BppP(( (`P(@p (`i@p(AHH P(`@pSBB(1(p(u8(H`H xH` @hHd h d Ad ($h A(!`C(S 8,>>`(U`@(;@hxh(J(@@h(J@]!(UH(U   D(U`p `hc(hG(^xtiHa(oZZlj))(o (rhtc`phhh`h`8({`h`@ph`PGuZ??`(``hhG`P(Ȉ`p`hQh` uhu8(`P(hu(hu`h`@ph`PGZhxxh w bbڼ--` phGhG@pppp p!p @h``ch Xp ڈpH H hbzCCAA`hs`s`HH ``hA5A`5h`hxH Hx0[hH H ]]^Q22X(U(PAh6`7\`\hA`mh(`]n@ `@s`(`(E`(E]@::X;?ȉ' 8PAS.BLANKFILL 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:QPAS.BLANKFILL .ENTR .MBT.MVW.SBT  hhm77pp((`h`(>`@(>p` A(>`6h6A`(>x`@@(>p`h@::Xůȉ' 8PAS.ENTRYEXIT192833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:VPAS.ENTRY1GPAS.EXIT1 %%.MVWPAS.CHECKSTAKSZ1PAS.HIWATERMARK1PAS.TOPOFSTACK1 %u>>p8p8f(H`hxAx@``H@xpp(#(2`p@p`p`h(BX(B(8 8{3@==8(2vGp8GGp8Gf@GphH`p@p`pvG`pppppppf`p`Pv--}8(yhH hH @- _ @ȧ::Xmȉ'! 8PAS.ENTRYEXIT292833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:@@PAS.ENTRY2xPAS.EXIT2 PAS.RECVALPARM<PAS.RECVARHPO !PAS.RECVARPARM@== t.DAD.DCO .DLD.DSB .DST.LBP.MVWPAS.CHECKSTAKSZ2PAS.HIWATERMARK2PAS.TOPOFSTACK2 =}AAp8p8f(MbpWV  R ZxY`fpXbp]`]p\@k(&p]`jp\A`XhY\h\X](8pXhjZ ZxY(bJJ AA R g@ ~~eC88(MJ(M(I J p^cp_(Sh`^h_(eX(e(^_8^8_(Xf(v`ep```Pf(v`pa a8`(jfxp~_{>>8xxp8xhf@lfxAJ g AH ZxX`fpYbp]`]p\@k(p]`jp\`XhY\`\P](xYhjAAZ ZHxX(`ep```Pfx`pa ,,&&a8`(`pbpcpdpedpfpgph,jj66( Tp`@(䀀`fH A(RA 8Ψ TJp`T(((bT(((AJ TAHf`i ͈8j88*`(p8@(`f(hg`877!`!(#p8!`!()p @8! A (7΁ ` !733P<`<(>p:8<`<(Dp;8<`i: ;΁;`;:<3 V f,i @:Y;;Xjȉ'" 8PAS.CHECKSTAKSZ192833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;cPAS.CHECKSTAKSZ1%%.ENTR PAS.RUNTIMEERRORPAS.TOPOFHEAP1PAS.TOPOFSTACK1 %""np8`@@"  @M;;X~#ȉ'" 8PAS.INITMEMINFO192833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;PPAS.INITMEMINFO1RR x.ENTR LIMEM PAS.HIWATERHEAP1PAS.HIWATERMARK1PAS.LOWATERHEAP1PAS.LOWATERMARK1PAS.RUNTIMEERRORPAS.TOPOFHEAP1PAS.TOPOFSTACK1 R11< ! hxDxx@D@ppp @A"!1 ! @ة;;Xiȉ'" 8PAS.INITIALHEAP192833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;CPAS.INITIALHEAP177A.ENTR PAS.CURRMARC1 PAS.HIWATERHEAP1PAS.LOWATERHEAP1PAS.PREVFREE1 PAS.TOPOFHEAP17--`@p@p@@pp h -@ 99XBȉ'# 8PAS.MEMDATA192833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC9~~PAS.CURRMARC1  PAS.GETMEMINFO1 PAS.HIWATERHEAP1PAS.HIWATERMARK1PAS.LOWATERHEAP1PAS.LOWATERMARK1PAS.PREVFREE1 PAS.SETMEMINFO1 PAS.TOPOFHEAP1~PAS.TOPOFSTACK1  4g.ENTR .MVW S `h  `h@XwB;;Xqȉ'# 8PAS.CHECKSTAKSZ292833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;cPAS.CHECKSTAKSZ200.DAD.DCO.DLD.DSTPAS.RUNTIMEERRORPAS.TOPOFHEAP2PAS.TOPOFSTACK2 0))<@A8()  @%p;;X.ȉ'# 8PAS.INITMEMINFO292833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;PPAS.INITMEMINFO2}}8$$$LARGEMA1$$$$$$LARGEMA2$$$.DAD.DCO.DDE.DLD.DST.ENTR PAS.HIWATERHEAP2 PAS.HIWATERMARK2PAS.INITMEMINFO1 PAS.LOWATERHEAP2 PAS.LOWATERMARK2PAS.RUNTIMEERRORPAS.TOPOFHEAP2PAS.TOPOFSTACK2 } VMAST VV`..  hX-($` JFJJ  AJ)JJ  J($A(,+@V@8;;X7ȉ'$ 8PAS.INITIALHEAP292833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;CPAS.INITIALHEAP2GG Ŵ .DLD.DSB .DST.ENTR .LBPPAS.CURRMARC2 PAS.HIWATERHEAP2PAS.LOWATERHEAP2PAS.PREVFREE2 PAS.TOPOFHEAP2G\\:44 . 0  4x6  68686 4 6 8686 68686 6 2  \@P99XB'ȉ'$ 8PAS.MEMDATA292833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC9~~"PAS.CURRMARC2 PAS.GETMEMINFO2  PAS.HIWATERHEAP2PAS.HIWATERMARK2PAS.LOWATERHEAP2PAS.LOWATERMARK2 PAS.PREVFREE2 PAS.SETMEMINFO2 PAS.TOPOFHEAP2~PAS.TOPOFSTACK2 *.ENTR .LBPR .MVWߵ A`%& `h%&@n"::XiBȉ'% 8PAS.INITIALIZE92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:TT PAS.GETNEWPARMS  PAS.INITIALIZE2PAS.NUMERICPARMS+PAS.RUNSTRINGLEN0.PAS.RUNSTRINGPTR0PAS.STRENDS T.ENTR .MVWEXECRMPAR   MM ((<p`ppp x 8 `p (`p `+`.MB2 1`Ah1;2 ?A< @!;;X ȉ'% 8PAS.SETEXITPARMS92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;hPAS.SETEXITPARMS((<.ENTR .MVWPAS.EXITDATAPAS.EXITDATAPTR PAS.EXITDATASET (P `Dh p@c#;;X\ȉ'% 8PAS.RETURNPARMS 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;99~PAS.EXITDATA PAS.EXITDATAPTR PAS.EXITDATASET PAS.RETURNPARMS 9 .ENTR .MVWPRTN88A@¤::X ȉ'& 8PAS.STRENDERS 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B((.MAC:PAS.STRENDCHECK PAS.STRENDERROR 03.ENTR PAS.STRENDS  Hp`@;;X_ ȉ'& 8PAS.INLINEERROR 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;cPAS.INLINEERROR  UXPAS.RUNTIMEERROR px  @8V::Xȉ'& 8PAS.ERROREXIT 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:,GPAS.ERROREXIT  8KPAS.ERRORCATCHER ..qp`Hxp@p -.@sђ;;XTȉ'' 8PAS.DCBADDRESS1 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;'PAS.DCBADDRESS1 .ENTR   00`@@X(@@@X@(0@&WE;;XY ȉ'' 8PAS.DCBADDRESS2 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;(}PAS.DCBADDRESS2 ###;.DAD.DLD.DST.ENTR .LBPR PAS.DCBADDRESS1 #//xA hHAAAx/@99XK,ȉ'' 8PAS.INITFILE92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC9/PAS.INITFILE 4g.ENTR .MVW KK&&`@)h   (@*` h +K@+JI::X5Aȉ'( 8PAS.OPTDECODE 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:LPAS.OPTDECODE .DCO.DLD.ENTR :sharexclsavepurgcctlrewieof exte  PP+((h0?P@('`p(- ``p0?p@0?pAA88(5 noP@#s;;Xmȉ'( 8PAS.REALTIMESIZE92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;PAS.REALTIMESIZE  *\.ENTR .XLA @ku5;;X_ȉ'( 8PAS.REALTIMECOM192833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;kPAS.REALTIMECOM1  *\.ENTR .XLA @1XP;;Xcȉ') 8PAS.REALTIMECOM292833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;kPAS.REALTIMECOM2  *].ENTR .XLB O`@2;;Xqȉ') 8PAS.BACKGRNDSIZE92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;nPAS.BACKGRNDSIZE  *\.ENTR .XLA @7V@;;Xcȉ') 8PAS.BACKGRNDCOM192833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;QPAS.BACKGRNDCOM1  *\.ENTR .XLA @c#;;Xgȉ'* 8PAS.BACKGRNDCOM292833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;QPAS.BACKGRNDCOM2  *].ENTR .XLB S`@::X, ȉ'* 8PAS.BLANKSIZE 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:_PAS.BLANKSIZE .w$BCOM $FWSY .ENTR .XLA.XLBM> J@@@::Xu ȉ'* 8PAS.BLANKCOM1 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:BPAS.BLANKCOM1 $BCOM .ENTR .XLAj@C::Xv ȉ'* 8PAS.BLANKCOM2 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:BPAS.BLANKCOM2 $BCOM .ENTR .XLBMl`@z::X ȉ'+ 8PAS.LABELSIZE 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:KPAS.LABELSIZE y$BCOM $LCOM .ENTR .XLA.XLBM> J@@[::Xȉ'+ 8PAS.LABELCOM1 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:.PAS.LABELCOM1 $LCOM .ENTR .XLAj@f&::Xȉ'+ 8PAS.LABELCOM2 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:.PAS.LABELCOM2 $LCOM .ENTR .XLBMl`@;;Xtȉ', 8PAS.A1SHAREDSIZE92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;nPAS.A1SHAREDSIZE 5$IDNBR.ENTR .XLA1 VMAST ,,) A (`(hJ ,@YxH;;X~!ȉ'- 8PAS.BITOPERATOR192833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;,,WPAS.BITDEPOSIT1 +PAS.BITEXTRACT1 PAS.BITINDEX1 ,)) .DAD.DDI.DIV.DLD.DMOD .DMP.DST.ENTR .MPY)  @p$(%   $@@`+(3$`h h x`(<(K`0 pG`@ 0pH!!`$`@ 0pT@!@$`W`(_(u"h pjdAA`@@0 pr0 poA0A$`@ 0 p}"A`ph 0$``#`(`"$AAA"$"EpAp ApApApEp w VGG`hhxh (x`(p(̄p@ !p$@p`p p!p`( A(AAAAAA Ax@A$@A`HHK##p`@p`(`0 p!pp`0 p!xx H@;;X)ȉ'. 8PAS.BITOPERATOR292833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;,,WPAS.BITDEPOSIT2 +PAS.BITEXTRACT2 PAS.BITINDEX2 ,.. .DAD.DDI.DIV.DLD.DMOD .DMP.DST.ENTR .LPXR .MPY.  @p$(%   $@@`+(3$`h h x`(<(K`0 pG`@ 0pH!!`$`@ 0pT@!@$`W`(_(u"h pjdAA`@@0 pr0(poA0A$`@ 0 p}"A`ph 0$``#`(`"$AAA"$"EpAp ApApApEp w fGG`hh'xh (x`(p(̄p@ !p$@p`&p p!p`( A(AAAAAA Ax@A$@A`VV++&p`( `@p x`(`0 p!pp`0 p!!xx V@S99XH"ȉ'. 8PAS.BITMASK 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC9qPAS.BITMASK0PAS.BITMASK122""@ @ 2@΁;;Xaȉ'/ 8PAS.STRINGADDRS 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;rPAS.STRINGADDRS .ENTR `@מ99Xgȉ'/ 8PAS.SCRATCH692833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC9PAS.SCRATCH6  h$SCRN .XLA bs8@Ð::XL3ȉ'/ 8PAS.STRRANGER 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:XPAS.STRRANGER ##7.DAD.ENTR .LBP.LBPR .LBTPAS.RUNTIMEERROR#  HH!++AAA(A( A p AOA@6` xHhH@8;;Xuȉ'0 8PAS.FIXEDSTRING 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;KPAS.FIXEDSTRING .DAD.ENTR .LBPR .LPXR ##8A6#@;;X-ȉ'0 8PAS.BASICSTRINGS92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;!PAS.BASICSTRINGIPAS.BASICSTRINGO!!r.DAD.DLD.DSB.DST.ENTR .LBP.LBPR !OO--0,8 8AA+@pH*AH`O@s33::X:((ȉ'0 8PAS.STRINGDATA92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:PAS.STRINGDATA1 PAS.STRINGDATA2 .DAD.DLD.ENTR ##e A`@#@5T::Xe ȉ'0 8PAS.STRVALPARM92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:~PAS.STRVALPARM.DSTPAS.STRAPPENDSTR88px(8(8p8 a @::Xȉ'1 8PAS.MOVEPACUP 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC: LPAS.MOVEPACUP N.DAD.DLD.DST.ENTR .LBPR .MBTcEEpAx5A`ހpAx5A`ވp`(4`6@h6H`0(C`pd@(:`pA`p@))`JdQ`pd](E)MMd--``hH ` xpA`6axb6Ac`A85``5AAbb`dM Z f @;;X7ȉ'1 8PAS.MOVEPACDOWN 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;ZPAS.MOVEPACDOWN (!.DLD.DST.ENTR PAS.XLBTPAS.XSBTQQ ,,pp513@p@p@p@p(1p6A.3685(Q@k77Xsȉ'2 8PAS.XLBT92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC7 @PAS.XLBT  .DAD.ENTR .LBP.LBT""*x5A@6H"@t 77X|ȉ'2 8PAS.XSBT92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC7 PAS.XSBT .DAD.ENTR .LBP.SBT$$:4x5A@6HH$@-::Xȉ'2 8PAS.TRACEBACK 92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC:4PAS.TRACEBACK .ENTR   @;;X ȉ'3 8PAS.SEGMENTEDMOD92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC;,, PAS.MAINMODINIT PAS.SEGMENTEDMODPAS.SEGMODINIT, r.ENTR LIMEM ? xQ  ` @  y `@@x877Xlȉ'3 8PAS.STOP92833-16119 REV.5000 870720 /P1K/LIB/STD/ETC_B.MAC7 8PAS.STOP EXECPAS.RETURNPARMS ,@ +CCXVV3PAS.HEAPSTACK192833-16110,REV.5000,870622 870622.0830/P1K/LIB/HEAP_STACK_1.PAS C@8VBBXwV4PAS.DISPOSE192833-16110,REV.5000,870622 870622.0830/P1K/LIB/HEAP_STACK_1.PAS BlPAS.DISPOSE1##.ENTR PAS.GETMEMINFO1 PAS.NONCDSPAS.RUNTIMEERROR#HHAaiA(  t_([iA@b(`dAi( u_([ip\@\p\``A(/p`\AP`(76v_([p^`hp]`]Ai(J`]p^`]//>Hp](;`^(O^pg`\hg `gh\il/[m Aijp`kp_([^\@4BBXߏZV4PAS.MARK1 92833-16110,REV.5000,870622 870622.0830 /P1K/LIB/HEAP_STACK_1.PAS BVQPAS.MARK1 77.ENTR PAS.GETMEMINFO1 PAS.INITIALHEAP1PAS.NONCDSPAS.RUNTIMEERRORPAS.SETMEMINFO1 7 BBAG`HPJ((   G`H@Xp`GA@(WF(D@HpE`ME`EhN`EO`EpN`E@YpEE`EhE`EpM@EpH`HA@L(A`HpL cBDGQ ;RAOPpF(@x0DDXMtV5PAS.COALESCE1 92833-16110,REV.5000,870622 870622.0830 /P1K/LIB/HEAP_STACK_1.PAS DKPAS.COALESCE1 pPAS.GETMEMINFO1 PAS.NONCDSPAS.SETMEMINFO1 Ϡ==A`P(`p( (`p(`p`pp`p`p`p`@p`()(D@@A@(D`P(D``hl=<< `pp`p`P(J(`(`p`P(U(`p`p`@p`A@(u`@p`h `p({`p`(#y p`PA(([8(@Gf_@@XV6PAS.NEW192833-16110,REV.5000,870622 870622.0830/P1K/LIB/HEAP_STACK_1.PAS @ +PAS.NEW1 @@.ENTR PAS.COALESCE1 PAS.GETMEMINFO1 PAS.INITIALHEAP1PAS.NONCDSPAS.RUNTIMEERRORPAS.SETMEMINFO1 @tt4M99`p:`pA@(pp9(#`P:(`p`pp9(#pp9`9(`(8`@@p`A@(8`p;t<==8;(`PȈ(B(ap{`@{h@p|`@{A@(Z`@{@ʈ(``h (s`@@p`A@(p`p`p|`|`|p|`| wy} XX~22A8}(>`P((`A(p;`(;`(}(X App(@DBBXXV7PAS.RELEASE192833-16110,REV.5000,870622 870622.0830/P1K/LIB/HEAP_STACK_1.PAS BPPAS.RELEASE1-->.ENTR PAS.GETMEMINFO1 PAS.NONCDSPAS.RUNTIMEERRORPAS.SETMEMINFO1 -}}DDAFNA(  VE(CNA@G(`IAN( WE(C`MpD`DN(-`D(-`DpD("`D(?`DpGDpL`DpM<FN(CCWEP};GQANOpE(]_@ɡaDDXV7PAS.DYNAMICDUMP192833-16110,REV.5000,870622 870622.0830/P1K/LIB/HEAP_STACK_1.PAS DNPAS.DYNAMICDUMP1tLL %.DAD.DDE.DST.ENTR PAS.GETMEMINFO1 PAS.NONCDSPAS.WRITEDOUBLE PAS.WRITEINTEGER PAS.WRITELINE PAS.WRITESTRING L5]``AA  A AA  ! (A-  6A A ? FAK  TA [`````AA  i  rA y~A A  A  AA   A  A SSƁA `P((A Ӂ  ܁A か (z`p`p`p~`(z AA   A  p}`}XX(l`~PAp}   'A,~ 3A8~ ?h~ DKA R~ h~ eA `~p~++ok(p`(u`p~`p( +6``A(> Top of stack: Top of heap: High stack: High heap: Initial stack: Initial heap: Previous free: Current mark: Heap/stack not initializedMark Point Size   Start Next @DDX1V9PAS.DISPOSE1S 92833-16110,REV.5000,870622 870622.0830 /P1K/LIB/HEAP_STACK_1.PAS D8'PAS.DISPOSE1S ##.ENTR PAS.GETMEMINFO1 PAS.NONCDSPAS.RUNTIMEERROR#00mA$A(  /($A@(0$'0`( A$%p&p([^@eAAXdV9PAS.MARK1S92833-16110,REV.5000,870622 870622.0830/P1K/LIB/HEAP_STACK_1.PAS AVPAS.MARK1Sy1.ENTR PAS.GETMEMINFO1 PAS.NONCDSA`7Ap(@gM BBX_;V9PAS.NEW1S 92833-16110,REV.5000,870622 870622.0830 /P1K/LIB/HEAP_STACK_1.PAS B~2PAS.NEW1S -->.ENTR PAS.GETMEMINFO1 PAS.NONCDSPAS.RUNTIMEERRORPAS.SETMEMINFO1 -EEC%%A'`&@(p(`(A@,(`(p,`'A@(( `(/A'($A$:%2E3A/0p&1p%(@8VDDX3V:PAS.RELEASE1S 92833-16110,REV.5000,870622 870622.0830 /P1K/LIB/HEAP_STACK_1.PAS D(+PAS.((RELEASE1S -->.ENTR PAS.GETMEMINFO1 PAS.NONCDSPAS.RUNTIMEERRORPAS.SETMEMINFO1 -::n A!)A(  1 ()A@"(2 (A)p"!)+::,A)*p (]_@ CCXZV PAS.HEAPSTACK292833-16111,REV.5000,870622 870622.0831/P1K/LIB/HEAP_STACK_2.PAS C@;ZBBX%V PAS.DISPOSE292833-16111,REV.5000,870622 870622.0831/P1K/LIB/HEAP_STACK_2.PAS BPAS.DISPOSE2J== q.DCO.DLD.DSB.DST.ENTR .LBPR .LPXR PAS.GETMEMINFO2 PAS.NONCDSPAS.RUNTIMEERROR=VVA  A(( (( ($($#(A@ AAAAAAˆ(;(7(; (H(CG(A AAAAA aaEV??x(j(^(jAAA (PA A(p(v @AA  x x x AabAAAp([^\@s3BBXV PAS.MARK2 92833-16111,REV.5000,870622 870622.0831 /P1K/LIB/HEAP_STACK_2.PAS BWPAS.MARK2 ~UU `.DCO .DDE.DLD .DSB.DST .ENTR .LBPR .LPXR PAS.GETMEMINFO2 PAS.INITIALHEAP2PAS.NONCDSPAS.RUNTIMEERRORPAS.SETMEMINFO2 UkWWAos( A(( Ao m(((Aj(io k Akx}yAA} kAx}{AA} x}k}k{k k kx} AA} kAx}kAA}kA@y##WAk oAAow(f(b(fowim#A pj(m@5DDXRV PAS.COALESCE2 92833-16111,REV.5000,870622 870622.0831 /P1K/LIB/HEAP_STACK_2.PAS DK PAS.COALESCE2 @@ b.DAD.DCO.DDE.DLD .DSB.DST .LBPR .LPXR PAS.GETMEMINFO2 PAS.NONCDSPAS.SETMEMINFO2 @WWA((   (( @A(  @AApAAAA   (( xAA AA ((W(WVVAAA((] @AAA x @AA xAAAAApAAA((2(2`((A (A((((AA  __>>(((AAAA xAA  x(AAA (A(( _V 8 (@r@@XV PAS.NEW292833-16111,REV.5000,870622 870622.0831/P1K/LIB/HEAP_STACK_2.PAS @ ,%PAS.NEW2 bb .DAD .DCO .DIN.DLD .DSB.DST .ENTR .LBPR .LPXR PAS.COALESCE2 PAS.GETMEMINFO2 PAS.INITIALHEAP2PAS.NONCDSPAS.RUNTIMEERRORPAS.SETMEMINFO2 boo CCAADA ((ppC(0AA DA(,(AApC(0ppC`C( `A(BAA  A (B(B`pFoKGTT8F(`PA(M(@AAA AA AA A (c(oAx  (~Ax(AA AA AA (((A Ax? xAA\\66A8(I (((AA (((AAF`(F܀`((\ UAA Ap( @3dBBXV PAS.RELEASE292833-16111,REV.5000,870622 870622.0831/P1K/LIB/HEAP_STACK_2.PAS BPAS.RELEASE2GG .DAD.DCO.DLD.DST .ENTR .LBPR .LPXR PAS.GETMEMINFO2 PAS.NONCDSPAS.RUNTIMEERRORPAS.SETMEMINFO2 GtUUA } A(g(f }l(( }p($($#g(fAAxhA@ }Ah(>(0Ah A(6(> hAh((h (D(bAAhAAl h@AvA h!!UAAxZj }xzA z(ffg!o A }~pg(]_j@WvDDXV PAS.DYNAMICDUMP292833-16111,REV.5000,870622 870622.0831/P1K/LIB/HEAP_STACK_2.PAS DNqPAS.DYNAMICDUMP2TT S .DAD.DCO.DLD.DSB.DST.ENTR .LBPR .LPXR PAS.GETMEMINFO2 PAS.NONCDS PAS.WRITEDOUBLE PAS.WRITELINE PAS.WRITESTRING TXXA pxk k~A pxk kuAuv pxk kwwvA pxk $k[xA pxk k pxkA 3kuuv Apxk =kwwv pxkA Ek]x pxkAA k pxk TkuuvA pxk ӏXXXk pxkA ckuuv Apxk mkwwv pxkA ukcx pxkAA k pxk kuuvA pxk kwAwv pxk kAex pxk k Apxk kuuv pxkAA k pxk kkXXuuvA pxk kwAwv pxk ƂkA_x pxk k Apxk kuuv pxkA ߂kwwv Apxk kax Apxk kA pxk kuAuv pxk k Apxk kuuv pxkWWA kwwv Apxk kgx Apxk kA pxk &kuAuv pxk 0kwwvA pxk 8kixA pxk k]a(D(m(mA pxk NkuAuv pxk k Apxk ]kuuv pä_VVxk gkyyvA pxk Ak(NiAAYgAAW WzUY ((N Apxk kuuv pxkAA k pxk kuuvA pxk k|A|v pxk kAYx pxk kpT`TXXA(3UAW((pT Apxk kuuv pxkA Ԃk||v Apxk kUx Apxk k||v Ul Apxk klx Apxk k}}vUzl Apxk  klx iiУ GGApxk k||v UUl pxkA &klx pxkAA k UzAU( Y@AWAW A(?(F WzU Yz@AY(| pxkA kqiRr``Ap( [> Top of stack: Top of heap: High stack: High heap: Initial stack: Initial heap: Previous free: Current mark: Heap/stack not initializedMark PoH int Size Start Next @bDDXKV PAS.DISPOSE2S 92833-16111,REV.5000,870622 870622.0831 /P1K/LIB/HEAP_STACK_2.PAS D9=PAS.DISPOSE2S 44".DCO.DLD.DST.ENTR .LBPR PAS.GETMEMINFO2 PAS.NONCDSPAS.RUNTIMEERROR4;;${$$AI: A(G$(:)(((AH$A:x7 7=;¼> AA:;A%0AA>%A.(**N+DE9E AA ABA,Cp+(.@?DDXNV PAS.RELEASE2S 92833-16111,REV.5000,870622 870622.0831 /P1K/LIB/HEAP_STACK_2.PAS D)DPAS.RELEASE2S >> q?.DCO.DLD.DST.ENTR .LBPR PAS.GETMEMINFO2 PAS.NONCDSPAS.RUNTIMEERRORPAS.SETMEMINFO2 >II..AL B A(J.(- B1(((AK.(- B1A&/ Bx? ?DI@E ABCp.(]_/@Lk]@@XcVPAS.STRINGS 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PAS@@E:cBBX;VPAS.VALIDSTRING 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASBq0PAS.VALIDSTRING ##<.ENTR .LBPR .LPXR PAS.NONCDSPAS.RUNTIMEERROR#II((A.( .6( ( A.p+A.6A@+( .x*(&Ap*&8)`*0I;1A./p)( @M BBX/VPAS.STRINGINDEX 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASB!PAS.STRINGINDEX k8.ENTR .LBPR PAS.NONCDSPAS.RUNTIMEERROR22`((AA@(p(p+`!2((" Ap p`.p( . @LkD@@X~VPAS.STRCOMPARE92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS@=etPAS.STRCOMPARE ++M .DAD.DLD.DST.ENTR PAS.NONCDSPAS.VALIDSTRING PAS.XLBT+]JJAqhpg rhpf`fA@g(`fpe(`gpepd`eA@d(=zrj+jdplAAzqAAj6jdPl(9(=`dpd(`eA@d(J`f@gpi(b--JAAzrAAjTjdplAAzqAAj`jd@lpi`it-;uAqsph(@q䐤>>XVPAS.STRLEN92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS> PAS.STRLEN 2.ENTR PAS.NONCDSPAS.VALIDSTRING A p` 7A  p(@C>>X VPAS.STRMAX92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS>PAS.STRMAX s.ENTR .LPXR PAS.NONCDSPAS.VALIDSTRING "" AA( x(p`"9Ap(@ܑAAX;VPAS.SETSTRLEN 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASA4p3 ?4p2`3(1`2((1>24p2`2((1G?5G>7`3Ap915I792AT;SBA>@p4(@~ƝAAXEVPAS.STRAPPENDPAC92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PASAF9PAS.STRAPPENDPAC77x.DAD.DLD.DST.ENTR PAS.MOVEPACUP PAS.NONCDSPAS.STRBUMPUP PAS.VALIDSTRING 7LL4++A5,p+`+(*`-( (*A5-,p-`-((*h6`DAA.BAA50`+p2*.A02-9L: A57p-8p,(@:AAXVPAS.STRINSERT 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASA^PAS.STRINSERT wKK e .DAD.DLD.DST .ENTR PAS.MOVEPACDOWN PAS.MOVEPACUP PAS.NONCDSPAS.RUNTIMEERRORPAS.STRBUMPUP PAS.VALIDSTRING K!LLAypx ypw`x((t`w(t`zA("`wA@zA('&y(t`z@wpvA1xypu`v@up`xA@(Z { }`z@xpHHHL))`v@uhxA@pY{z}(]`u@vpx`x(a(t { }t{}zxH A pzpy(@TAAXVPAS.STRDELETE 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASATPAS.STRDELETE |KK i .DAD.DLD.DST .ENTR PAS.MOVEPACUP PAS.NONCDSPAS.RUNTIMEERRORPAS.SETSTRLEN PAS.STRENDERROR PAS.VALIDSTRING K^IIAupt`t(s`wA(Au(s`v(Au(s`v(!(s`tA@w(.-u(s`w@v@p`tA@@(F(AAu`w@tpv`v(JKK/I++(s`v@tpxSxu(sAA Ay`w@vpx {`v@thw@p}syx{w}K lA pwpvpu( @Dci??X?kVPAS.STRLTRIM92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS?9bPAS.STRLTRIM== .DAD.DLD.DST .ENTR PAS.MOVEPACUP PAS.NONCDSPAS.STRBUMPUP PAS.VALIDSTRING PAS.XLBT='LLA`UpS _UpR`S((Q`R(QpT`SA@T(,h`V%VTPj(((,`TpT(`T@SpS6_SUpS`S(;(Qh`Vh_X`RApZQ6LVTXZSb;cA _apU( @Yw??X?cVPAS.STRRTRIM92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS??YPAS.STRRTRIM== .DAD.DLD.DST .ENTR PAS.MOVEPACUP PAS.NONCDSPAS.STRBUMPUP PAS.VALIDSTRING PAS.XLBT=||M[IIAWLpJ VLpI`J((H`I(H`JpK`K(((_WM!MKPb($((@KpK(A-VKLpK`KA(2(H_AAWMAA_VAO`IpQHMaOQKY|<Z A VXpL( @*I>>XzVPAS.STRRPT92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS>{PAS.STRRPTnMM [.DAD .DCO.DLD .DMP .DSB.DST .ENTR PAS.MOVEPACUP PAS.NONCDSPAS.RUNTIMEERRORPAS.STRBUMPUP PAS.VALIDSTRING M??OOAp p~`(}`~(}`((}h AhA  AAA (1(1A0(}6hA AA (}(}`~p (}(}h MM:oO//AAA (Z(X(Z`pm`@ph  (EM @A pp( @Cdb$>>XtV PAS.STR 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PAS> +nePAS.STR  AA .DAD.DLD.DST .ENTR PAS.MOVEPACUP PAS.NONCDSPAS.RUNTIMEERRORPAS.STRBUMPUP PAS.VALIDSTRING A'LLAaTpS `TpR`S(Q`R(Q`U(oT(Q`VA(,`V@U@sp`SA@(1A0pT(Q6`UTpU`U(;(QqaWq`Y`RAp[Q@LWVY[Ue kfA `bpVcpUdpT( @ ?(>>XWV!PAS.STRPOS92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS>vPAS.STRPOS ++M .DAD.DLD.DST.ENTR PAS.NONCDSPAS.VALIDSTRING PAS.XLBT+6GIIApjtipe sipd`e((b`d((b`e@dpdpfph`dA@h(\`f(\pfpg`eA@g(X`f(X|tkAkAgpm|AAsk`h::TI@g@pnPknPmpf`gpg(,`hph(`f(b@hpj`jv:;$wAsupi( A @b@@XXs\V!PAS.STRMOVE 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PAS@DPAS.STRMOVE ZZ .DAD.DLD.DST .ENTR .LPXR PAS.MOVEPACDOWN PAS.MOVEPACUP PAS.NONCDSPAS.RUNTIMEERRORPAS.SETSTRLEN PAS.STRENDERROR PAS.VALIDSTRING Z(BB`1((`1p,(  =.p,`/((`/p+(@.p+`,()`+()`3(&%T.()`3(*()`2(.(9`2@3@[p`,A@p-`-(`0(CABHH(K`+A@0p-`-(`0@3@[p*`/(Y(d`/A@*Ap-(q @UA@*p-`-(`/(z(~A~W.`/( @Ux*A @U`0FNNH x3`3p-(X.(AX.`-()`+A@*(`/A(@*.p-`1(`/(`0A@2A(YAA =4AAY @AA64260A3(YA =ŋRRAA4YAA @6A 42603()`1(`/((Y =442@03()`1((`/(AAY @AA4=2403()`0A@2A("!=2@0A3() )=2@03D11BEA <p2?p1Ap0Bp/Cp.(1@&tE4BBX&V#PAS.SPARAMETERS 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASBYPAS.SPARAMETERS m.ENTR PAS.NONCDSPAS.PARA((METERS22u`@%p`Ap p`((``p`27Ap( % @ %'@@XVPQV#PAS.READSTR 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PAS@FPAS.READSTR GG N& .DAD.DLD.DST .ENTR .LPXR PAS.ENDOFFILE PAS.GET PAS.IENDOFLINEPAS.NONCDSPAS.SETSTRLEN PAS.XSBTGbb;;Ap; DLx<C( CC(3`;A@<(3CL(3`;Ap;NAA D>`C@Pp@0>;@AC(8D;=(:Fb=|G A CEp=( @k??X6vHV$PAS.WRITESTR92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS?F<PAS.WRITESTRBB j .DAD.DLD.DST .ENTR PAS.IOERROR PAS.NONCDSPAS.PUT PAS.SPLITMOVE PAS.VALIDSTRING PAS.XLBTBTT00`2(D8 91p0`0(/820(`2(/p3p0E 94'40h8AHG88083(<TM= A 8:p2;p1( @ BBXV$PAS.READSTRFILE 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASBMPAS.READSTRFILE ((.ENTR .LBPR PAS.NONCDSPAS.READNONTEXT PAS.VALIDSTRING (f@ AxA  ( 7Ap (@k+AAXV%PAS.WRITESTRFILE92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PASARPAS.WRITESTRFILE((N.ENTR .LBPR PAS.NONCDSPAS.VALIDSTRING PAS.WRITENONTEXT( A A( x7Ap (@g>>X>V%PAS.STRGET92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS>0PAS.STRGET 00.DAD.DLD.DST.ENTR .LBPR PAS.NONCDSPAS.RUNTIMEERRORPAS.XLBT0DD&&p'-(  8A&($,A-($Ap'9AA,(A (-.--`'0D1 A,/p&`=p'( = @:->>X"FV&PAS.STRPUT92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS><PAS.STRPUT++q.DAD.DLD.DST.ENTR .LBPR .LPXR PAS.NONCDSPAS.XSBT+WW_33A9x3`3A:(29BA:(2AAD9AA5#5:4`3A:(/9:::<W>AEBA(= EFB(=p>`AA@>(*EF?B(*hH6@>H`?`>p>(`AA@>(=hH6@>H`UH`>p>(*Kng5L AEGpBIpAJp@( @rhAAXDV(PAS.SREADENUM 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASALPAS.SREADENUM ss .DAD .DCO .DDI.DIN.DLD.DNG.DSB.DST.ENTR .LBT.MPYPAS.BITMASK1PAS.NONCDSPAS.STRGETPAS.STRINGINDEX PAS.STRIOERROR PAS.UPSHIFTALPHAPAS.VALIDSTRING PAS.XLBTsIGGA p`(A (`Cp ( `PC(( (`A (+  ` ,HH@(:9( p` ,H @(]`~sGMMA@(]`ApAA A [p(< @p`A@A(nm( @p`A@h Dp`( phA  AAAA@ LL(p`(A(`A@(   pA pAh6 HP((AD`p(`P(͈(h  ((h6 //~PCp`(h   @ (/LL(11A  ppp("3 L@AAXc#V)PAS.SREADCHAR 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASA3PAS.SREADCHAR **.ENTR PAS.NONCDSPAS.STRGETPAS.STRINGINDEX PAS.VALIDSTRING *''AA( (('7Ap(@=[BBXSV*PAS.SREADSTRING 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASBGIPAS.SREADSTRING JJ c; .DAD.DLD.DST .ENTR .LPXR PAS.NONCDSPAS.SETSTRLEN PAS.STRGETPAS.STRINGINDEX PAS.VALIDSTRING PAS.XSBTJ__m;;AE>A(: EF>(:p; HOx<`;A@<(3A"EF=>(3`;p;Q H?2?;=(8H;>(:I_(@CaBBX oV*PAS.SWRITECHECK 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASBs[PAS.SWRITECHECK BBA.ENTR .LPXR PAS.NONCDSPAS.RUNTIMEERRORPAS.STRENDERROR PAS.STRIOERRORPAS.STRPUTPAS.VALIDSTRING BoIIApRVQpO`O(MY(`PYeQ(MW((!`OAW(&%fQ(MWYA@npSVgA@S(<(.ENTR .LBTPAS.NONCDSPAS.STRPUTPAS.SWRITECHECK $>>o!!A*+%#$( `#( p&p!h-6H@!Hp'A*+'8!8&(1> 2 A*,p%.p$/p#0p"(@eN@@X V,PAS.SWRITEENUM92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS@PAS.SWRITEENUMs99 ^(.DAD.DST.ENTR .LBT.MPYPAS.NONCDSPAS.STRIOERRORPAS.STRPUTPAS.SWRITECHECK 9fEE`z(~`{(`{pz`{p{`}(`|A@}A(~`{}pw`w@{@pv`wpy`vA@y(Ahy Ah6AH P(A`ypy((`z(H`w[[E11@ypzO~z{(u`w@z@pv`whvAH(^ (uxpyhy h6 pq8y(s8(`[((Ap~p}p|p{pz( (@"A@@Xz&V,PAS.SWRITECHAR92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS@|PAS.SWRITECHAR C.ENTR PAS.NONCDSPAS.STRPUTPAS.SWRITECHECK A%(e Appp(@AAXRV-PAS.SWRITEDOUBLE92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PASAeDPAS.SWRITEDOUBLE66.DLD.DST.ENTR .LBTPAS.DOUBLE2ASCIIPAS.NONCDSPAS.STRPUTPAS.SWRITECHECK 6AA$$A,*APp$ ?@'&$(#`$((#hQ6@$HHAp<?@<@$p$(DAE A?Ap'AAB*Cp&( ,@?AAX$V-PAS.SWRITEINT 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASAP((PAS.SWRITEINT 8.DST.ENTR PAS.NONCDSPAS.SWRITEDOUBLE1h AA d Appp(@e%BBXnV.PAS.SWRITEAREAL 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASBR]PAS.SWRITEAREAL 66.ENTR .LBTPAS.NONCDSPAS.REAL2ASCIIPAS.STRIOERRORPAS.STRPUTPAS.SWRITECHECK 6nn!>>`C(`BA( kD`C(pC`B(`mpBAEXCBA@p?$UVDC?(=`?(=pQp>hl6@>HpR:UVR8>8Q(.]n&&^AUWpDYpCZpB[pA\p@(E'&@p֏@@X"V.PAS.SWRITELONG92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS@yPAS.SWRITELONG-.ENTR PAS.NONCDSPAS.SWRITEAREAL * A    !f Ap p p (L@'dF$@@X2V/PAS.SWRITEREAL92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS@t%PAS.SWRITEREAL""l.BLE.CFER .ENTR PAS.NONCDSPAS.SWRITEAREAL " A"A 01%h& A!p#p$p(E@ KAAXIV/PAS.SWRITESTRING92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PASAs?PAS.SWRITESTRINGAA ].DAD.DLD.DST .ENTR .LBPR PAS.NONCDSPAS.STRPUTPAS.SWRITECHECK PAS.VALIDSTRING PAS.XLBTAOO"//A=1A(. =Ax2:;102(.`0(.p2p/G=3%3A/p5+:;58/82(?O7@ A :p0(@zBBXnV0PAS.SFRITEAREAL 92833-16127,REV.5000,870622 870622.0827 /P1K/LIB/STRINGS.PASBR]PAS.SFRITEAREAL 777A.ENTR .LBTPAS.FREAL2ASCII PAS.NONCDSPAS.STRIOERRORPAS.STRPUTPAS.SWRITECHECK 7nn!>>`C(`BA( kD`C(pC`B(`mpBAEXCBA@p?$UVDC?(=`?(=pQp>hl6@>HpR:UVR8>8Q(.]n&&^AUWpDYpCZpB[pA\p@(E'&@Қ@@X}"V1PAS.SFRITELONG92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS@hPAS.SFRITELONG.ENTR PAS.NONCDSPAS.SFRITEAREAL * A    !f Ap p p (L@'4E@@X2V1PAS.SFRITEREAL92833-16127,REV.5000,870622 870622.0827/P1K/LIB/STRINGS.PAS@c%PAS.SFRITEREAL""[.BLE.CFER .ENTR PAS.NONCDSPAS.SFRITEAREAL " A"A 01%h& A!p#p$p(E@Z BBXV!&PAS.LONGERRORS92833-16112,REV.5000,870622 870622.0833/P1K/LIB/LONG_ERRORS.PASB@NCCXivV!&PAS.RUNTIMEERROR92833-16112,REV.5000,870622 870622.0833/P1K/LIB/LONG_ERRORS.PASCV PAS.RUNTIMEERRORg.ENTR PAS.ERRORCATCHERPAS.NONCDSJA    fbA ( @cCCX6V!'PAS.FILEERROR 92833-16112,REV.5000,870622 870622.0833 /P1K/LIB/LONG_ERRORS.PASCIPAS.FILEERROR g.ENTR PAS.ERRORCATCHERPAS.NONCDS""dl`@p`@p"i}A(@r葨BBXV!'PAS.IOERROR 92833-16112,REV.5000,870622 870622.0833 /P1K/LIB/LONG_ERRORS.PASB PAS.IOERROR g.ENTR PAS.ERRORCATCHERPAS.NONCDS""dl`@p`@p"i|A(@g'BBX/V!'PAS.STRIOERROR92833-16112,REV.5000,870622 870622.0833/P1K/LIB/LONG_ERRORS.PASB PAS.STRIOERRORg.ENTR PAS.ERRORCATCHERPAS.NONCDSKA   geA (@9AAXV!(PAS.EMAERROR92833-16112,REV.5000,870622 870622.0833/P1K/LIB/LONG_ERRORS.PASA. PAS.EMAERRORg.ENTR PAS.ERRORCATCHERPAS.NONCDS{MA  gc A (@RCCXncV!(PAS.SEGMENTERROR92833-16112,REV.5000,870622 870622.0833/P1K/LIB/LONG_ERRORS.PASC[ PAS.SEGMENTERRORg.ENTR PAS.ERRORCATCHERPAS.NONCDS A p     ggA (@JiCCX=V!)PAS.IOWARNING 92833-16112,REV.5000,870622 870622.0833 /P1K/LIB/LONG_ERRORS.PASC FPAS.IOWARNING g.ENTR PAS.ERRORCATCHERPAS.NONCDS""dl`@p`@p"iA(@柦CCXL4V!)PAS.ERRORCATCHER92833-16112,REV.5000,870622 870622.0833/P1K/LIB/LONG_ERRORS.PASC9"PAS.ERRORCATCHER77gS.ENTR LOGLU PAS.ERRORPRINTERPAS.NONCDSPAS.SETEXITPARMSPAS.STOPPAS.TRACEBACK 7))*A `AP3( Ap.A")&&E#Appp!p(&@>]NCCXnV!*PAS.ERRORPRINTER92833-16112,REV.5000,870622 870622.0833/P1K/LIB/LONG_ERRORS.PASCZPAS.ERRORPRINTERhBB <.DST.ENTR .LBT .SBTLOGLU PAS.BOUNDINTEGERPAS.DOUBLE2ASCIIPAS.NONCDSPAS.STRINGADDRS REIOB((F`((Ap`pp(--8(`ph36@H`+ `P(((**--GG}.##A,,p+(`R(;-:ň(P`R(PpTpQhS6H@QHpU-MU8Q8T(CXGJJQY&&AVVpSWpR(4h kp`(p(~h6@HHp-z@p(lJ6;;App(`ApXƀ`(`P(P(ڈP(P(숈P (P (P (P (P (P("P(+P(4P(=P(FP(OP(XP(aP(j(sGLLpX(pX(ApXȄ(ӈpXA(pX(pX(A pX˄(pXA(pX!dLL(%pX*(A.pX3̈́(7"pX<A(@1pXE(I@pXN(AROpXW΄([]pX`A(dhpXi(mm 6kAAmrpXr(Av~pX{сҀ`(pX(ApXȁApXApXmF``(Pascal Error: Undefined CaseHeap/Stack CollisionNil Pointer DereferencedValue Out Of RangeMOD By Invalid ValueString UnderflowString Overflow String Bad IndexInvalid StringDispose Called Witk``h A Nil Ptr Disposed An Invalid Variant Release Called With A Nil Ptr Dispose Called With A Bad Ptr Release Called With A Bad Ptr Overflow Of Two Word IntegerIllegal Char For Base No Value To nUUConvert Insufficient Image SpaceNumber In Line Pas.ErrorExit Called At With `(pX(ApXApXApX` 6BB!(@@ɨ(((((( (((((1(:(C(L(U(^(g(p(y((((̈pXA(pX(pX(ApXل(XcLLpX (ApXׄ(pXA("pX'(+"pX0(A4,pX9ۄ(=7pXBA(FCpXK(OKpXQLLT(AXXpX]̄(agpXfA(jtpXo(spXx(A|pXل(pXA(pX(pX(AZ ApXՁҀp``(Pascal String I/O Error In Line Pascal I/O Error On File Unexpected EOFFile Must Be Text File Must Be Direct Bad Record Length Must Reset Or Open File Must Rewrite Or Open File Direct AK ``ccess Read ErrorSequential Access Read ErrorInvalid Integer ReadLine Read Was Too LongInvalid Real Number ReadFile Is Not CCTLNo Scratch File Available Neg FLD/DEC Width Not Allowed File Canno((Bl__t Be Type 1 Or 2File Must Be Type 1 Or 2Cannot Open LU 0 For Read OnlyMissing File Name File Is Not OpenError Identifier Not In Enumerated Type Value Not In Enumerated ATypepX@NN**ͅpXpX`P(∄P((pX(ApXو(NNN(Pascal I/O Warning On File Output Line Moved To Next LineOutput Line Split p%pX*`P(8P(:P(GP(IP(fP (((=pXBFllVE??((ALpXQҁUAXpX]A`pXe(ipXnqpXvypX~((lYYApppp( ?  !*** Pascal Pointer Error At FMP Error On File Pascal Segment Not Found P[\]^_`abc@Vt~~U} PAS.A1SETSHARED \m fPAS.A1SHAREDSIZEHPAS.APPENDFILEk PAS.APPEND_FILE c6 PAS.ASCII2DOUBLE=YPAS.BACKGRNDCOM1@PAS.BACKGRNDCOM2A PAS.BACKGRNDSIZE? PAS.BASICSTRINGIZ~~~g PAS.BASICSTRINGOZ PAS.BINARYC PAS.BITDEPOSIT1 I,PAS.BITDEPOSIT2 NnPAS.BITEXTRACT1 I,PAS.BITEXTRACT2 NnPAS.BITINDEX1 I,PAS.BITINDEX2 Nn PAS.BITMASK0TC PAS.BITMASK1TC~~~ PAS.BLANKCOM1 CPAS.BLANKCOM2 D PAS.BLANKFILL PAS.BLANKSIZE BPAS.BOUNDDOUBLE zPAS.BOUNDINTEGERiPAS.CDSCONFLICT  PAS.CHECKPTR1 % PAS.CHECKPTR2 0 PAS.CHECKSTAKSZ1[ F~~~9 PAS.CHECKSTAKSZ2&C QPAS.CLEARFILE _%PAS.CLOSEFILE .UerdPAS.CLOSEPURGEwPAS.COALESCE1 n PAS.COALESCE2 p PAS.CONVERT = PAS.CURRMARC1 $/PAS.CURRMARC2 ,6~~~PAS.DCBADDRESS1 6bPAS.DCBADDRESS2 8 PAS.DISPOSE1i PAS.DISPOSE1S ~^  PAS.DISPOSE2Y PAS.DISPOSE2S  PAS.DOUBLE2ASCII;PAS.DOUBLEMOD 2 RC1 $/PAS.CURRMARC2 ,6~~~FPAS.DYNAMICDUMP1wl5VdPAS.DYNAMICDUMP2B5d PAS.EMAERRORPAS.ENDOFFILE h! PAS.ENDOFLINE ; PAS.ENTRY1vme PAS.ENTRY28qPAS.ERRORCATCHERl ' RRMARC2 ,6~~~[g PAS.ERROREXIT 5OPAS.ERRORPRINTERV=T  PAS.EXIT1 vme PAS.EXIT2 8q PAS.EXITDATA2PAS.EXITDATAPTR 2PAS.EXITDATASET 2PAS.EXTNAMELEN@PAS.FILEERROR   PAS.FILENAME~~~  PAS.FILENAMR4trPAS.FILEPOSITION!PAS.FIXEDSTRING Y PAS.FREAL2ASCII I=4 )PAS.FRITEANYREAL|!=@ RPAS.FRITELONG jPAS.FRITEREAL PAS.GET U! PAS.GETMEMINFO1 $/~~~ PAS.GETMEMINFO2 ,6PAS.GETNEWPARMS .OPAS.HALTf3 PAS.HALTONLY~3PAS.HALTPROGRAM T PAS.HEX F PAS.HIWATERHEAP1$/PAS.HIWATERHEAP2,6PAS.HIWATERMARK1$/PAS.HIWATERMARK2,6/~~~v] PAS.IENDOFLINE7!  PAS.IMAGE0z  PAS.IMAGE1O j PAS.IMAGE20 j PAS.INITFILE9.PAS.INITIALHEAP1"qPAS.INITIALHEAP2*9PAS.INITIALIZE.OPAS.INITMEMINFO1!M /PAS.HIWATERMARK2,6/~~~o PAS.INITMEMINFO2(Y PAS.INLINEERROR 4T  PAS.IOERROR  7PAS.IOWARNING =PAS.LABELCOM1 FPAS.LABELCOM2 GPAS.LABELSIZE E PAS.LASTPOSITIONb&PAS.LINEPOSITION|TERMARK2,6/~~~@  PAS.LINESIZEoPAS.LONGNEGATEPAS.LONGROUND VzPAS.LOWATERHEAP1$/PAS.LOWATERHEAP2,6PAS.LOWATERMARK1$/PAS.LOWATERMARK2,6PAS.MAINMODINIT e~ PAS.MARK1 kS  PAS.MARK1S-,6/~~~<  PAS.MARK2 x  PAS.MARK2SvPAS.MAX 9_PAS.MAXPOSITION `G!PAS.MIN 8=PAS.MOVEBYTES 3PAS.MOVEPACDOWN a8PAS.MOVEPACUP ^0PAS.NEW1q:  PAS.NEW1S H |,6/~~~G PAS.NEW2   PAS.NEW2S % PAS.NONCDS PAS.NUMERICPARMS.O PAS.OCTAL   PAS.OPENFILEn" PAS.OPEN_FILE e? PAS.OPTDECODE :[PAS.OVERPRINT F!dPAS.PACKSTRING6/~~~s PAS.PARAMETERSQ   PAS.POSTFILE3SPAS.PREVFREE1 $/PAS.PREVFREE2 ,6 PAS.PROMPT*!dPAS.PUT  4e!dPAS.RANGEDOUBLE ^ PAS.RANGEINTEGER  PAS.RANGESETy 4PACKSTRING6/~~~$PAS.READBUFFERf= PAS.READCHARE! PAS.READDOUBLE;;!  5 PAS.READENUM ! 5PAS.READINTEGER ^! PAS.READLINE@ PAS.READLONGy!  PAS.READNONTEXT O!=/~~~E, PAS.READREALy!  PAS.READSEQUENT Ze! PAS.READSTR \ PAS.READSTRFILE  PAS.READSTRING0PAS.REAL2ASCII@(4d ) PAS.REAL5OPSPAS.REAL5PACK _u|/~~~z PAS.REAL5TRUNCPAS.REAL5UNPACK PAS.REALROUND U8PAS.REALTIMECOM1=1PAS.REALTIMECOM2>'PAS.REALTIMESIZE<;PAS.RECVALPARM8qPAS.RECVARHPO 8qPAS.RECVARPARM8q5PACK _u|/~~~ PAS.REFERENCE l! PAS.RELEASE1uN PAS.RELEASE1S 0  PAS.RELEASE2\ PAS.RELEASE2S ) PAS.RESETFILE pn PAS.RESET_FILEg PAS.RETURNPARMS 2PAS.REWRITEFILE s /~~~' PAS.REWRITE_FILEh} PAS.RUNSTRINGLEN.OPAS.RUNSTRINGPTR.OPAS.RUNTIMEERROR l PAS.SCRATCH6VG PAS.SEEKFILEW!PAS.SEGMENTEDMODe~PAS.SEGMENTERRORPAS.SEGMENTLOAD ^ ILE s|/~~~& PAS.SEGMENTRTN^ PAS.SEGMODINITe~PAS.SETDIFFER LPAS.SETEXITPARMS0}7 PAS.SETINIT  PAS.SETINTERINITp PAS.SETINTERSECTtPAS.SETMEMINFO1 $/PAS.SETMEMINFO2 ,6^ILE s|/~~~PAS.SETSHARED Z8 f PAS.SETSTRLEN C PAS.SETTEMPORARYy 4 PAS.SETUNION[ PAS.SETUPFILE Yer! )dPAS.SETUP_NAME:TPAS.SFRITEAREAL   < PAS.SFRITELONG9 /~~~ PAS.SFRITEREALd PAS.SHAREDSIZEXRPAS.SHIFTNPUT iPAS.SINGLEMOD \ PAS.SKIPBLANKS: PAS.SPARAMETERS PAS.SPLITMOVE z-@d PAS.SREADAOCV PAS.SREADCHAR ? ~~~xPAS.SREADDOUBLE /; PAS.SREADENUM k  PAS.SREADINT^ PAS.SREADLONG y!  PAS.SREADREAL y!  PAS.SREADSTRING  PAS.STOPgG cDCHAR ?| ~~~PAS.STR wV 2PAS.STRAPPENDPACIV 2PAS.STRAPPENDSTRHV 2PAS.STRBUMPUP 0 mPAS.STRCOMPARE.PAS.STRDELETE XV mPAS.STRENDCHECK 3G PAS.STRENDERROR 3G | ~~~. PAS.STRENDS .O PAS.STRGETv PAS.STRINGADDRS UUPAS.STRINGDATA1 [nPAS.STRINGDATA2 [nPAS.STRINGINDEX U PAS.STRINSERT HHV 2PAS.STRIOERROR d PAS.STRLEN{3G| ~~~\  PAS.STRLTRIMqV 2 PAS.STRMAX PAS.STRMOVE $HV m PAS.STRPOSD PAS.STRPUTjPAS.STRRANGER W;  PAS.STRRPT_V 2 PAS.STRRTRIM2V 2PAS.STRVALPARM] " ~~~ص PAS.SUBSETgPAS.SWRITEAOC   < PAS.SWRITEAREAL kT < PAS.SWRITECHAR  < PAS.SWRITECHECK $ m <PAS.SWRITEDOUBLEBT < PAS.SWRITEENUMm < PAS.SWRITEINT 8 ] ~~~ PAS.SWRITELONG PAS.SWRITEREALC PAS.SWRITESTRING < PAS.TIMESTAMP 4PAS.TIMESTRING4PAS.TOPOFHEAP1$/PAS.TOPOFHEAP2,6PAS.TOPOFPAGE !!dPAS.TOPOFSTACK1 $/8|] ~~~r PAS.TOPOFSTACK2 ,6PAS.TRACEBACK ePAS.TRACEBEGIN*PAS.TRACECLOSE* PAS.TRACEEND*PAS.TRACEINIT *PAS.UNPACKSTRING5PAS.UPSHIFTALPHA6~PAS.VALIDSTRING r PAS.WORDBITMOVE E ~~~PAS.WRITEANYREAL3!=@T RPAS.WRITEBOOLEAN)@ RPAS.WRITECHAR E-@PAS.WRITEDOUBLE :T!@ RPAS.WRITEENUM [!=@ RPAS.WRITEINTEGER 5PAS.WRITELINE ve!BITMOVE E ~~~PAS.WRITELONG  PAS.WRITENONTEXTx6=@PAS.WRITEREAL E PAS.WRITESTR{!@ RPAS.WRITESTRFILE@PAS.WRITESTRING }/!=@ RPAS.XLBTbPAS.XSBTdv'?_|BITMOVE E ~DEC 1  .14 DEC 14 * SAVE BSS 1 BUFADR BSS 1 BUFLEN BSS 1 BUFMAX BSS 1 * PARMS EQU * BUFR BSS 1 LEN BSS 1 * PAS.INITIALIZE NOP  JSB .ENTR  DE/PASCAL/LIB/STD/PASCAL_LH2.REL:::5:2:61 644 0 0 1000 5300501505 35042 /PASCAL/LIB/STD/PASCAL_LH2.REL:::5:2:61 ''$ '=PASCAL_LH2 REL +E+E+EFST ((;;XSV&;PASCAL_LH292833-16117 REV.5000 841008 /P1K/LIB/STD/PASCAL_LH2.MAC ;@mS==XV&;PAS.LOADRHEAP292833-16117 REV.2440 841008 /P1K/LIB/STD/PASCAL_LH2.MAC =ɲ$$$LARGEMA1$$$$$$LARGEMA2$$$@ĺzINP # DIGITS THIS GROUP - 4. CCA  STA EXP  CLA  STA F.IDI  STA F.IDI+1 STA F.IDI+2 STA F.IDI+3 STA F.IDI+4 /PASCAL/LIB/STD/PASCAL_ERR.REL:::5:9:128 644 0 0 4400 5300501507 35307 /PASCAL/LIB/STD/PASCAL_ERR.REL:::5:9:128 (($ ' PASCAL_ERR REL +G+G+G '"FST DDXźV#PAS.SHORTERRORS 92833-16125,REV.5000,870622 870622.0834 /P1K/LIB/PASCAL_ERR.PAS D@źCCX 3V#PAS.ERRORPRINTER92833-16125,REV.5000,870622 870622.0834/P1K/LIB/PASCAL_ERR.PAS CV~PAS.ERRORPRINTER88 .DST.ENTR .LBT .SBTLOGLU PAS.DOUBLE2ASCIIPAS.NONCDSPAS.STRINGADDRS REIO8((V`((Ap`pp(-- 8(`ph36@H`+ `P2(((**--GGy.##A,,p+(`R(;-:(P`R(PpTpQhS6H@QHpU-MU8Q8T(CXGJJOY&&AVVpSWpR(4h kp`(p(~h6@HHp-z@p(lJDDApp(`AppXP,(P-(P.(P/(4P0(QP1(j(ApXā€((؀(pXׁ(--E]LL-聸pXA(pX(A(pX( pXA(#pX"(3&pX(PP+.pX3(A7pX<@AC pXHAKpXP(TpXY\pXadpXiA(mpXrvAy%%dx'pX~ApX(%``A(? @ *** Pascal Error In Line Pascal Pointer Error At Pascal String I/O Error Pascal I/O Error On Line On File FMP Error On File Pascal Segment Not Fou%%޵nd Pascal I/O Warning On File P%@аp`T blv/PASCAL/LIB/STD/PASCAL_TRA.REL:::5:6:128 644 0 0 3000 5300501602 36200 /PASCAL/LIB/STD/PASCAL_TRA.REL:::5:6:128 (($ +PASCAL_TRA REL +++.FST BBXDV5PASCAL_TRA92833-16168,REV.5000,870622 870622.0853/P1K/LIB/STD/PASCAL_TRA.PAS B@%D==XSV'PASCAL_TRA_M92833-16120 REV.5000 841008 /P1K/LIB/STD/PASCAL_TRA_M.MAC =@5*S==XV'PAS.TRACE.A 92833-16120 REV.5000 841008 /P1K/LIB/STD/PASCAL_TRA_M.MAC =66cPAS.TRACEBEGINiPAS.TRACECLOSEEPAS.TRACEENDPAS.TRACEINIT 633 $d.DIV.DLD.DST.ENTR .MVW .SBTPAS.CALLCHAINLENPAS.TRACELU XREIO 3 ,8`(D8p ^^o008`(p8`(p8hH `@pA`h`hH8m`@p@^3EFFCChH `@p`DhA`h`mD@p`@phEii`ppp`6p`p Ap`H@h Hx`(xm @ }0 W  K; > Enter: > Exit: @ >>XeV'PAS.TRACEDATAAPASC2-PLIBS REV.2304 820201 /P1K/LIB/STD/PASCAL_TRA_M.MAC >+PAS.CALLCHAINLENPAS.TRACELU   @U/PASCAL/LIB/STD/PASCAL_TRB.REL:::5:21:128 644 0 0 12400 5300501604 36122 /PASCAL/LIB/STD/PASCAL_TRB.REL:::5:21:128 ))$ +PASCAL_TRB REL +++ %96FST BBXFV5 PASCAL_TRB92833-16169,REV.5000,870622 870622.0853/P1K/LIB/STD/PASCAL_TRB.PAS B@'F==XUV' PASCAL_TRB_M92833-16121 REV.5000 841008 /P1K/LIB/STD/PASCAL_TRB_M.MAC =@72U==X &V' PAS.TRACE.B 92833-16121 REV.5000 841008 /P1K/LIB/STD/PASCAL_TRB_M.MAC =66 PAS.TRACEBEGINPAS.TRACECLOSEPAS.TRACEENDPAS.TRACEINIT 688.ENTR PAS.TRACEBEGIN.EPAS.TRACECLOSE.EPAS.TRACEDATABPAS.TRACEEND.EPAS.TRACEINIT.E 8VWK    !!xAA%!@‚B>>XaV' PAS.TRACEDATAB93833-16121 REV.5000 841008 /P1K/LIB/STD/PASCAL_TRB_M.MAC >gPAS.TRACEDATAB@$vC6DDX/V%PASCAL_TRB_P92833-16122,REV.5000,870622 870622.0836/P1K/LIB/STD/PASCAL_TRB_P.PAS D@o/EEXƎ>V%PAS.TRACEB.N2A92833-16122,REV.5000,870622 870622.0836/P1K/LIB/STD/PASCAL_TRB_P.PAS E_1PAS.TRACEB.N2A  ?(.DIV.ENTR .SBTPAS.NONCDSPAS.SINGLEMOD VV[++`=p-`9p+`,((A ,78@PAS.TRACEB.PUT%%.ENTR .MBT.MVWPAS.NONCDSPAS.TRACEB.N2AXREIO %??$$`=p6`\p,hM6`N6AIhO6`;6AI7%`P6AhQ6I#J6,K>?22Ε?A:`:hNAL<p%(-)073 2@8VGGXn"V%PAS.TRACEINIT.E 92833-16122,REV.5000,870622 870622.0836 /P1K/LIB/STD/PASCAL_TRB_P.PAS GHpPAS.TRACEINIT.E 4.ENTR PAS.NONCDS227`p`` `@ `@ `@! 2;fAp(@?^KFFX#EV%PAS.TRACEBEGIN.E92833-16122,REV.5000,870622 870622.0836/P1K/LIB/STD/PASCAL_TRB_P.PAS FPAS.TRACEBEGIN.El$$.ENTR .MBT.MPY.SBTPAS.NONCDSPAS.SINGLEMOD $Ak==`p`@hH `@@(9`@@hHH6`6`hH (9xp`@@hHH6@H`88('`@=@@pChH`@AhHH@p`@6`6`hH (pxp`@6@H`88(d`@hH`@hH(~###}(`@AphH#""JSAp( @"@ EEXwV%PAS.TRACEEND.E92833-16122,REV.5000,870622 870622.0836/P1K/LIB/STD/PASCAL_TRB_P.PAS E^dPAS.TRACEEND.E$$.ENTR .MBT.MPY.SBTPAS.NONCDSPAS.SINGLEMOD $~~;@@`cp^`^@np` `jkh^Hn`^A@nqh^HtH@p__`_@6`b6l`]hrH (9x`p\`_@6@\H`s8\8`(-`_@ph^Ho`^~@@@@nh^Hu(G(T`^@up_AQ_jmh^Hu`^@oh^HoHvd@!!He((Aaap]( @!@nFFX4{V%PAS.TRACECLOSE.E92833-16122,REV.5000,870622 870622.0836/P1K/LIB/STD/PASCAL_TRB_P.PAS F.PAS.TRACECLOSE.Eg**A.ENTR .MPYPAS.NONCDSPAS.SINGLEMOD PAS.TRACEB.PUTXREIO *DD`p`@ՈhH `@p`@(( `p`(9ppA@ՈhHHxA6ˀ88((`@@(@(FAF*DFFALAR`@ڀp\hH`@hH(`@ڄhHH@p`@p`p`@p`@AphH(_[[wBBA((. ** TRACE tree ** trace overflow... ** TRACE calls ** --->>><<<---@[@nNKCOPY , TYPE+80 = SCHEDULE AT BOOT UP * # D.RTR,2,1 * D.RTR DISC RESIDENT WITH HIGH PRIORITY # -  WHZAT,1,2 * MEMORY RESI/PASCAL/LIB/STD/PASCAL_TRC.REL:::5:21:128 644 0 0 12400 5300501605 35613 /PASCAL/LIB/STD/PASCAL_TRC.REL:::5:21:128 ))$ ,PASCAL_TRC REL +++ %9NFST BBX>V51PASCAL_TRC92833-16170,REV.5000,870622 870622.0853/P1K/LIB/STD/PASCAL_TRC.PAS B@>==XXV'PASCAL_TRC_M92833-16123 REV.5000 841008 /P1K/LIB/STD/PASCAL_TRC_M.MAC =@::X==X$&V'PAS.TRACE.C 92833-16123 REV.5000 841008 /P1K/LIB/STD/PASCAL_TRC_M.MAC =66 PAS.TRACEBEGINPAS.TRACECLOSEPAS.TRACEENDPAS.TRACEINIT 688.ENTR PAS.TRACEBEGIN.EPAS.TRACECLOSE.EPAS.TRACEDATACPAS.TRACEEND.EPAS.TRACEINIT.E 8VWK    !!xAA%!@ƇG>>XgP*V'PAS.TRACEDATAC92833-16123 REV.5000 841008 /P1K/LIB/STD/PASCAL_TRC_M.MAC >hPAS.TRACEDATAC@)HDDXJV%PASCAL_TRC_P92833-16124,REV.5000,870622 870622.0837/P1K/LIB/STD/PASCAL_TRC_P.PAS D@JEEXɨ>V%PAS.TRACEC.N2A92833-16124,REV.5000,870622 870622.0837/P1K/LIB/STD/PASCAL_TRC_P.PAS E`1PAS.TRACEC.N2A  ?(.DIV.ENTR .SBTPAS.NONCDSPAS.SINGLEMOD VV[++`=p-`9p+`,((A ,78@PAS.TRACEC.PUT%%.ENTR .MBT.MVWPAS.NONCDSPAS.TRACEC.N2AXREIO %??$$`=p6`\p,hM6`N6AIhO6`;6AI7%`P6AhQ6I#J6,K>?22Ε?A:`:hNAL<p%(-)073 2@;+YGGXq"V%PAS.TRACEINIT.E 92833-16124,REV.5000,870622 870622.0837 /P1K/LIB/STD/PASCAL_TRC_P.PAS GHpPAS.TRACEINIT.E 4.ENTR PAS.NONCDS227`p`` `@ `@ `@! 2=Ap(.@E$cFFX&_V%PAS.TRACEBEGIN.E92833-16124,REV.5000,870622 870622.0837/P1K/LIB/STD/PASCAL_TRC_P.PAS FPAS.TRACEBEGIN.El$$.ENTR .MBT.MPY.SBTPAS.NONCDSPAS.SINGLEMOD $Ak==`p`@hH `@@(9`@@hHH6`6`hH (9xp`@@hHH6@H`88('`@=@@pChH`@AhHH@p`@6`6`hH (pxp`@6@H`88(d`@hH`@hH(~###}(`@AphH#""MAp(e 0."@SEEXwV%PAS.TRACEEND.E92833-16124,REV.5000,870622 870622.0837/P1K/LIB/STD/PASCAL_TRC_P.PAS E^dPAS.TRACEEND.E$$.ENTR .MBT.MPY.SBTPAS.NONCDSPAS.SINGLEMOD $~~;@@`cp^`^@np` `jkh^Hn`^A@nqh^HtH@p__`_@6`b6l`]hrH (9x`p\`_@6@\H`s8\8`(-`_@ph^Ho`^~@@@@nh^Hu(G(T`^@up_AQ_jmh^Hu`^@oh^HoHvd@!!LeAaap](e 0.!@GFFX7V%PAS.TRACECLOSE.E92833-16124,REV.5000,870622 870622.0837/P1K/LIB/STD/PASCAL_TRC_P.PAS F.PAS.TRACECLOSE.Eg**B.ENTR .MPYPAS.NONCDSPAS.SINGLEMOD PAS.TRACEC.PUTXREIO *DD`p`@ՈhH `@p`@(( `p`(9ppA@ՈhHHxA6ˀ88((`@@(@(FAF*DFFALAR`@ڀp\hH`@hH(`@ڄhHH@p`@p`p`@p`@AphH(_[[zBBA(e(. ** TRACE tree ** trace overflow... ** TRACE calls ** --->>><<<---d0.[@u( * EXTENDED REAL TO INTEGER FIX (NOTE .DINT FOR FTN % * * INTERFACE, SAME ENTRY POINT AS .XFXS *.XFXD,RP,105105 * EXTENDED REAL TO DOUBLE INTEGER F/PASCAL/LIB/STD/PASCAL_FMGR_ALT.LIB:::5:468:126 644 0 0 352000 5300501704 41525 /PASCAL/LIB/STD/PASCAL_FMGR_ALT.LIB:::5:468:126 //$ :~PASCAL_FMGR_ALT LIB +++fFST F'' KP.354 92833-16210,REV.5000,870720 870720.1933 '.P.&& P.364 870720 870720.1931&.P.'' TP.236 92833-16108,REV.5000,870622 870622.0835 '.P.&& .P.072 G92833-16108,REV.5000,870622 870622.0835&@P.0729..SBT P.044P.192P.125;;`\`8@C*B(2`8p7`7@DB( `7@E@6`7J@D`7@Dh7HD;55`[  `7@Eڂ@6`7@D`F`7@Dh7XHD 68(66A4895`M :Z`9(;p889( _::&& 8P.359 92833-16108,REV.5000,870622 870622.0835&@tP.359.ENTRP.019P.192POST `L< $ ` p` `C&( && 5P.088 92833-16108,REV.5000,870622 870622.0835&@MP.088 z.DST .ENTR.LBT .MBT .SBT P.019P.215P.192P.232 ;;`eoh6`6"`@P6(<p`@6 h !$p`(&;;;`^% (;h6@βHh6p@H``p@ζp("(`pp`@; `EkC6@H <<`_` Hh6p@̶ZH`88Z(@h6H`Zh6H`Zh6H`f̀<<<`bgp`p`p r4h }&p`((h6P@Hh< `C6p <<``O@H``Zp@pδ (~h6@̶PH``p`@ $<99`]q&p`((h6P@Hh6p@H`P`p@p(9&&`[Ѯ熀( @  -:&'' QP.254 92833-16118,REV.5000,870622 (( 870622.0822 '.P.'' TP.089 +92833-16118,REV.5000,870622 870622.0822 '@P.089*.DLD .DST .ENTR.FAD .FIXD.FSB P.192$$`X%('(0'0$`KJ4(@'' NP.053 ?92833-16118,REV.5000,870622 870622.0822 '@P.053*.DLD .DST .ENTR.MVW .TADD.TFXD.TSUBP.192))`[!3`!(%07%(!7!4*)`RkH+)`)h<";(@++'' P)P.183 x92833-16118,REV.5000,870622 870622.0822 '@P.183e$$ .DAD .DCO .DDE .DIN .DLD .DSB .DST .ENTR P.192P.099P.184$;;`gkpHKK6s(F(FO(FM(FOK(((FKB O aMa;22`a='(*(*(FOBMIOQ0ISOUI0WDQpH`He2`O@f cc0OdM`wpH(`A`www&& 0P.184 ;92833-16118,REV.5000,870622 870622.0822&@P.1842x.DLD .DST .ENTRIXGETP.192VMAST<<`b /$,+ 66p1`1p.`,((`.((`.@:p161p1`1/9((`+ <`I@"@0//2 `D*32( `B`~999'' W!P.209 x92833-16118,REV.5000,870622 870622.0822 '@P.209e$$ .DAD .DCO .DDE .DIN .DLD .DSB .DST .ENTR P.208P.192P.099$;;`glpHKK6s(F(FO(FM(FOK(((FKB O aMa;22`a<'(*(*(FOBMIOQ0ISOUI0WDQpH`He2`O@f cc0OdM`wpH(`A`www EP.208 92833-16119 REV.5000 870720 @_P.208r$MSEG.ENTR.XLA1VMAST((`Wb (`(hJ (`A`i'' SP.137 92833-16118,REV.5000,870622 870622.0822 '@mP.137  P.019P.192 `Il ` @  `H Z` ( p 8 (  && 3P.256 92833-16118,REV.5000,870622 870622.0822&@nP.256 $.DLD .DST P.055P.192`G 4 `G Z` ( p 8 ( '' PP.055 '92833-16118,REV.5000,870622 870622.0822 '@~P.055#.DLD .DST P.044P.192((`W_]`@%( `@&4( 0"(`HZ`(p8(`B`x% %%'' UP.218 M92833-16118,REV.5000,870622 870622.0822 '@P.218>F.ENTR.SBT P.192P.093<<`\`8p79(`7@EhD`7@F `7@G `7@JhL(`7@E #<44`[*$8C:;<&=B9(6`7@Ih7HF`7@H  `7@K@6`L>4`N<?8(`  ??'' NP.221 /92833-16118,REV.5000,870622 870622.0822 '@P.221&W .DST .ENTRP.192P.09344`^T3` p`@, `@-p `@.Bp  +"$#$%*&4`H3' ( ` ''&& 6P.219 F92833-16118,REV.5000,870622 870622.0822&@P.2198 p.ENTRP.192P.093 <<`\`2p13(`1@?h>`1@@ `1@A `1@DhE(`1@? #<**`Ur$2=456&7<3(0`1@Ch1H@`1@B 8*`MO92((` 99&& -P.220 M92833-16118,REV.5000,870622 870622.0822&@P.220>F.ENTR.SBT P.192P.093<<`\`8p79(`7@EhD`7@F `7@G `7@JhL(`7@E #<44`[*$8C:;<&=B9(6`7@Ih7HF`7@H  `7@K@6`L>4`N<?8(`  ??&& /&P.003 92833-16118,REV.5000,870622 870622.0822&@P.003.ENTR.LBT .SBT P.192P.093<<`^`p`p( h6(h6h6 `@`@<<<`\(=`@h`@ `@`@ `@h`@@6< `C:`(E <<`` =Z`@ `@P(I(N@6 p~`~(\@P6 6<;;`_]$e$Ѐ`~(m@6`@P(s(}`@hH`@ ; `BK| `R<(`  && 0P.064 v92833-16118,REV.5000,870622 870622.0822&@P.064ixa.DST .ENTR.LBT .SBT P.192P.093<<`^``p^`^p_e( h_6e(h_6h_6 b`^@pc`^@qd<<<`_!Z`^@r `^@sp_ 6Ѐ_`^@up_ _`^@taePo(8(=f@6< `Cb=p] //`]f@`](Kf@P6 f6T`n$efghm`](\f@P6i/`L4.j`( ` jj'' QGP.085 92833-16118,REV.5000,870622 870622.0822 '@P.085.ENTR.LBT .SBT P.192P.093<<`^`{py`ypz( hz6(hz6hz6 }`y@~`y@<<<`[GE|(7`y@h`y@ `y@|`y@ `y@h(?`y@< `C|9 `y ;;`c <@|P(C(H@6 px`x(V@P6 6_{$;55`Y_`x(g@Z6`y@P(m(w`y@hyHZ`y@ 5`QP{((` '' RNP.086 92833-16118,REV.5000,870622 870622.0822 '@P.086.ENTR.LBT .SBT P.192P.093<<`^`p`p( h6(h6h6 `@`@<<<`[G(7`@h`@ `@`@ `@h(?`@< `C܂9 ` ;;`c G<@P(C(H@6 p~`~(V@P6 6_$;<<`]d6_`~(g@Z6`@P(m(}`@hHZ`@ `P@@6`<`BM|`R<(`  '' U P.093 Y92833-16108,REV.5000,870622 870622.0835 '@}P.093<<.DCO .DDI .DIN .DIV .DLD .DMP .DST .ENTR.LBT .MBT .MPY .SBT ECREAELOCFEREADEWRITLOGLUNAMR OPENF<SP.214 P.019 P.033 P.030 !gP.044 P.192P.357 P.039P.040P.232 P.125POST RWNDF;;`dGZpp`P@Bpp  0(((  ;::`^e$('('(>h6@HPI (8h6@HPJ(8(>B(`Wpp: `F>dB  <<`aQH(O(O(kh6Z@HPJ(kZh6@HPh6p@H`2<;;`]i6(rh6@H`I88(B z&`P<(P=(P@(PA(PB(PC; `Ck(( <<`\!p`p(Zp(p(`p(FZX0F(EX0E(( < `C`p ,,`Z($4Z`(`( "pp,;;`cʅѴP(h/6`46P!`A@T (!`A@MZ(`B RX@Kh/6H>;<<`f` 6Mp. .&"#@Kh/6H?` Ep. $."$@Kh/6H@ $"< `CK|6%@Kh/ !!`Q1Z6HA(*`(* (&"Ѕp`p0!<<`^n1/(5PASCAL`@C(@`@>p`@B%=(J`@IpZ`@B@U< `BOQ <<`^R(8`@B@0S'6`@C(l`@GPNZ@>pZ(q`(q`?<<<`aMLpp`@CP>(`@G"L@)0'((4Z`(`(`< `B;@G ..`ZP( +"څp`@G 4Z`(hB .<<`aT(Sp^$^@p`( +,p]`]P?((Q`@BpdP<<<``LrѴZpedHX0eHd$4P`(p(`PW((`@B*=< `C(`P@ <<`bf(($$`X( `(  $ p`((дP(`(<;;`a+ p(0`](0`_(0hq6*]@hq6 p]`]P=(4(P`@B@; `CR70P ;;`c:C$'''`(O`(O Mp(\`(\`]P?(\ Z$Z-pg;<<`[(hZ`g(ipf8gfp_(`(`@CP>({(`@Dh`@B*<::`^|=(`P@((`@Fh( ."څp`@B)=(: `DF`(` <<`fO( "…p$$`(`(  $pﶀ`@C((<;;`]˶P>(4`@BZ)=(`Z@G(`@Ep/4Z($P(부`@B%; `DN袀=( <<`ep(`Op`@G h 10)ö`@EpÄ<;;`^`($`@C($`@GP($ "$Z+p`B@E/(-(4(4`@E; `E@/p3 <<`]`4`(`P<(CP=(DP>(VP?(aP@(u(Z(`(U`@?p O$P56(U<<<`b~Q U7(`P=(``P>(` `8Z(`(t`@Hpm$0`(t t< `Cs6(` <<`a] vP=(|`P>(|( 9p`@BX)=($'4Z`(`( <;;`bv$pZpP((`@Hp$0`(`( (hQ;`A::`^Y&ȴZ8(rp`((pP`A@넁(h6@HPI((`p:;;`c$ (`A@P(Zp`(hZ6(hX6p $$ڄ`@B; `Dz /=p <<``%- `(;`P(`(p (6`@Bp  *=(. '=(..<;;`^-4P )=(66`Z(;p`@Bh`@BZp  OX0O `(O; `CjK`(O <<`_zN(]`@Bp `Zp  OX0 O PppZp(g(hh6  <;;`^) mp`(`(`@B*=(PpppppQ`@B@; `C:WV <<`fV0 `:6h;6!$''`PX(`B(  p( <;;`_$!p`((дZ(`(`@>ppp`p g (; `CjiӶp`p `Qa֦g'`@B6`;6!Z`(4 <<`gpppp( Y[\ G <&&`\=  ,02dt'&==&& 1P.214 92833-16118,REV.5000,870622 870622.0822&@gP.214 h.ENTRP.018P.192 `F  `G(PURGE '' UP.018 E92833-16108,REV.5000,870622 870622.0835 '@P.018)<<q.DAD .DDE .DDI .DIN .DLD .DMP .DSB .DST .ENTR.LBT .SBT ECLOS ELOCF EWRITP.019P.033P.192P.357P.125<fRWNDF `K`( `PD(  & ;;`^ (`&@8/Z5p p`A@(*h(6Z@HP=(&Z(*`p(;<<`a?!*p`8A @(YP`A@(Nh(6@Hh4Z6p#@H`#`< `CzKp(U ;;`^NZh46@H`=`p(,^6`P6(dP7Z(g(jp (jp (j`&p!;<<``{l`!@8p""+5(y"*5( "*5("'5(&&")5< `DA("* <<`d5("&5(`&@""?:!!`S" (( 6   & )!((`[*&'p(    (** qP.357 A92833-16119 REV.5000 870720 @}P.357 z.DCO .DLD .ENTR `P1sharexclsavepurgcctlrewieof exte`Cb$<<`_h0?P@('P`p(- ``pZ0?p‚@0?p<`I84Z88(5 no88'' PcP.222 92833-16118,REV.5000,870622 870622.0822 '@P.222!! 87.DAD .DST .ENTR .LBT .MPY P.044P.056P.192P.073P.186!<<`bG`(&`(`p`p`(`A@(`p<<<``"`@@p` p`A@Z(AhB h6 P(A`p((`< `CB(H` <<`ap;E@p$Z(r`@@p`hAH([ (qxphB h6<;;`^Tf2 hH8(o8(](`@p`@p$6`@p`; `Cu(( `K)[`@h`@@0%%`T  pppp(  %'' SP.127 392833-16118,REV.5000,870622 870622.0822 '@P.127(:.ENTRP.123P.192P.073P.133<<`_q`$P/(p#p"%$&#$"(!`%@0h%H1((&.%`%@2&< `C'2%( `Jw)%'p$( ))&& 2P.126 Q92833-16118,REV.5000,870622 870622.0822&@P.126>,.ENTR.LBT .MPY P.192P.073P.186;;``9;8FP(`9( Zp9`9(`8 @Pp6`6h6H8APH( (4x:;++`U p5`N9@GZ@6@5Hh;HO6ڀ;85(28:(!>+`R :?;@@0p-`-2%`G]3Z`2(4p182( `E`< <<&& /P.054 92833-16118,REV.5000,870622 870622.0822&@qP.054  .ENTRP.192 `Kp` @h H@p `  `C& ( `B`i && 4P.069 #92833-16118,REV.5000,870622 870622.0822&@{P.069#.DLD .DST P.044P.192##`S`@!( `@"6(0Ѐ#`HZ`(p8(`B`r!!!&& -P.092 A92833-16118,REV.5000,870622 870622.0822&@P.09250.DCO .DLD .DST .ENTRP.044P.192;;`^G`3p0`0@:p1`0@;(+`0@1(//&935&`KX63( 66'' PP.025 92833-16118,REV.5000,870622 870622.0822 '@jP.025  P.358P.192 `Gp` `Jց Z` ( p8 `p(`A`Y'' QP.076 /((92833-16118,REV.5000,870622 870622.0822 '@P.076].DCO .DLD P.044P.192P.075**`XT*( (0,(((`($.*%%`RAZ`(p8`($p8( %&& 1P.075 r92833-16118,REV.5000,870622 870622.0822&@P.075\ 3.DLD .DNG .DST P.216P.036P.044P.192P.082P.355<<``_ [$PZ(UpWpV`Z@l,k(U`Z@mPopX`X($`Z@m<;;`^ Pn($(&0ڀZZ`Z@mZ@q(E`Z@m@p(EpW`Z@mpY[XY k; `DO>0VpVZ ##`TBZ((`X(M[ 6[`W0V(UUjZ\#))`U҉]Z`\(^pZ8\`\(dp[8\(  +-)]]&& 5 P.079 }92833-16118,REV.5000,870622 870622.0822&@P.079v.ENTR.SBT P.028P.036P.358P.192;;`c5}pqr(rr(Hu(-PtA@q(,$Zrz(,hs6@qH`r;<<`aS#B@{r`qpq((HPtA@q(H9$Prz(H@q@shrH{r< `CD`qpq <<``GZ(-u(_tA@q(^hs6@qH`|`qpq(K(ptA@q(p<`Jg@q@sh|`qpq(_v `F'wr( ww&& 2P.224 )92833-16118,REV.5000,870622 870622.0822&@WP.22466@.DAD .DCO .DDI .DIN .DLD .DNG .DSB .DST .ENTR.LBT .MPY P.006P.036P.044P.192P.355P.3356;;`_u(`@%p`@$@(p` ,H@((;;;`_`p` ,ZH@(@`@#A@㄁(@`p `@&@6H; `D>p(!` ;;`cF:B@p`A @(QP(߶`@p`"@hH  "p`;<<`ee(`ph  0 (zp`( (`A@< `C(` <<`a, X@&@6Hpph6 P(( `p(`P((h<<<`fK 0 ﶈ((h6 2P'Zp`(hB  `< `Ct(p `Ip88((c<<`jipp(<`Ha!  !!&& 3P.355 ;92833-16118,REV.5000,870622 870622.0822&@P.355-#;.ENTRP.028P.036P.192P.082<<`]F, 5p*`*(!`,@8P9( (`,@7,5(Z`,@7@0:,(<`Mٙ, 5p*`*(&,`*p+`+- `E.,`6p+( `F5 55&& /P.074 B92833-16118,REV.5000,870622 870622.0822&@P.074- 8P.044P.192P.082 ;;`_+`+@?,`+@>+=(&;+(*`+@>,=(<+(*`+;`Lل@>@0@Z`+@>@A-''`T.Z`-(/p+8-`-(5p,8-( '..&& 2P.087 92833-16118,REV.5000,870622 870622.0822&@tP.087  4P.036P.358P.192 `L (  (4 `HZ` (p 8 (&& 3P.187 T92833-16118,REV.5000,870622 870622.0822&@P.1877 9P.056P.192P.081 <<`\`4p1`1@Mp22-L( 4`1@O6`1@NZ(&66`1@P6<++`U"h`4@Qp3&$3K5K620R22S2`1@N 7+66`\|08Z`7(9p487`7(?p587`7(Ep687(  688&& 2P.225 -92833-16118,REV.5000,870622 870622.0822&@P.225 .DLD .DST .ENTRP.229P.192P.029""`U6*6p`(0 "`J]!6p(!!'' SP.226 -92833-16118,REV.5000,870622 870622.0822 '@P.226 .DLD .DST .ENTRP.229P.192P.029""`U6*6p`(0 "`J]!6p(!!'' TP.227 -92833-16118,REV.5000,870622 870622.0822 '@P.227 .DLD .DST .ENTRP.229P.192P.029""`U6*6p`(0 "`J]!6p(!!'' X4P.229 92833-16118,REV.5000,870622 870622.0822 '@P.2293$$ .DCO .DLD .DST .ENTR.LBT .MVW P.006 P.009 P.030 P.192P.230$<<``rp(h( -( ( (h/6@(HP((`(p((h(B -(!(!<;;`_ (h( -(*(*(7Zh/6@(HP(3(7`(p((!`(p'h'  -; `C?(B(B(U ;;`` BZh/6@'H  ,H@ (U`'p'(9h'B -(^(^(ih/6@';<<`^bHP(i`p*(`(@' p`A@Z(`P(y(h/6@(Hh< `DP@( `Gj(`p*(`p*<<`aA`h"=pp(`(A@'(h/6Z@(Hph/6@(<<<`_fIJH 09 ( AF ( af ((`@p(`@@}p(`@@}p< `Da(h `J焒2)`(p((;;`_P8(p* 2`+Py(P|( P~((D>"?p)($U@A`zp);++`U_(fB6C`{p)(h `*(##`*p,`,3+<<`l'|4/06-1p+( 1 3f< `W^w`~~ `Pwy  0`ab k yy 8P.030 92833-16119 REV.5000 870720 @bP.0309bP.029`HEpx &  CP.230 92833-16119 REV.5000 870720 @eP.230 .DLD .DST .ENTR $$`U.4Xp Z@!8( @$&& ,P.041 92833-16118,REV.5000,870622 870622.0822&@jP.041.DLD .DST .ENTRP.251P.192 `D& `G 4(&& 5P.228 92833-16118,REV.5000,870622 870622.0822&@eP.228 P.251P.192 `D$ `DtM8( '' O?P.251 92833-16118,REV.5000,870622 870622.0822 '@P.251t** V.DDI .DLD .DST .ENTR .LBT .MBT .SBT LOGLUP.215P.192P.102PRTN REIO *<<`bNZN(9hB6`6 |`pM$aN}pL`L((,`M pMh6@LH h6<<<`bj"pq@MH`q @LpL(/Lpq`Mpr9~$qUr`OpPN xQPpRpS< `D<DpTI `DRpH0PKt ''`\u ss4N( UaPascal Halt: 'uu GP.010 92833-16119 REV.5000 870720 @`P.010 M.DCO .DLD .DST  ,,`W`p@p6ڀ( (88((( ,`A`_ WP.011 +92833-16119 REV.5000 870720 @`P.011 u.DLD .DST P.029 ;;`c(p'`(A (!A @((!Z`'A88(8; `D-#$&*( `A`o*** QP.012 %92833-16119 REV.5000 870720 @`P.012!.DCO .DLD .DST P.029::`` `p#@$p#8#ڀ (((#6 (( 8#"4#(:`A`g"`A`h$$$ :P.013 92833-16119 REV.5000 870720 @`P.0139bP.029`LgXx ( $ h 8`A`Q   :P.014 92833-16119 REV.5000 870720 @`P.0149bP.029`N( (   8 MP.231 92833-16119 REV.5000 870720 @eP.231J.DAD .DCO .DLD .DMOD.ENTRP.029++`\Z ((0$  + `P.047 192833-16119 REV.5000 870720 @dP.047.ENTRAVLM ENDM LIMEMP.029UNM2 UNMEM<<`f`(+(Hppp(+,$.//@0X@.(!$!-,`pp<`H&@pc`A`s000 bP.048 392833-16119 REV.5000 870720 @dP.048c.ENTRAVLM ENDM LIMEMP.029P.114UNM2 UNMEM<<`f`(-(Hppp(-.$011@2X@0(!$!/.`pp<`Jܴ&H@ppc`A`u222 bP.049 392833-16119 REV.5000 870720 @dP.049c.ENTRAVLM ENDM LIMEMP.029P.114UNM2 UNMEM<<`f`(-(Hppp(-.$011@2X@0(!$!/.`p((p<`Jܵ&H@ppc`A`u222 PP.066 92833-16119 REV.5000 870720 @kP.066 E.ENTR.SBT  `A`a 00`YSZpph688(8`(0 LP.117 92833-16119 REV.5000 870720 @fP.117 >.ENTR.LBT  `A`a 44`ZjZpph688(8`8(4 BP.162 92833-16119 REV.5000 870720  @P.094P.095 ߖ.ENTRP.052SEGLD `P2`pB  &&& (P.052 92833-16112,REV.5000,870622 870622.0833&@qP.052  n.ENTRP.070P.192 `JKn p  $  `E& (  P.161 92833-16119 REV.5000 870720  @8P.017hP.061 p.ENTRP.006P.029P.062`Ce <<`cx $Ѐ ZD P(8 D P(#8@pp hDH<<<`_z.0p2 (F P@ H (J ,@H88() N O< `DM4 (I2 ""`PQ hDHa0pZ (88(QP"<<`b4ha$Ѐdee ZD P(x8db D P(8aehb (Pb@p<<<`_ppcf (HDZHa0pZ (`J ,@Hd88(< `C9cf 44`[VZ@(ppPcfepb(pPhƀg(4 ߇P.062 V92833-16119 REV.5000 870720 @yP.062 P.006P.029 `L5 D  pxp<<`[p8Z(p8p8p8`P(/`8<<<`^GU/` 8Z(1`(LZ8(MhPH (M Z,@Hڰ8(8< `CM88(M `F&<PTU(L PP cP.100 892833-16119 REV.5000 870720 @dP.100 `.ENTRP.006P.029 <<`a=)p(1pAP(1`@@788`P<++`W !PH (1 ,@H8(56+!! NP.091 92833-16119 REV.5000 870720 @lP.091N.ENTR++`V D p8888(+ DP.104 92833-16119 REV.5000 870720 @cP.104N.ENTR**`U  D p888ڰ8(* HP.103 92833-16119 REV.5000 870720 @bP.103N.ENTR--`X PD pp 88Z 8(PX- DP.105 92833-16119 REV.5000 870720 @cP.105N.ENTR((`T D p888ڐ8(( EP.108 92833-16119 REV.5000 870720 @bP.108 ..TCM.MVW  11`ZQ Z(pP8( p8`hB1 P.165 92833-16119 REV.5000 870720  @QP.101=P.109V q.DIV .DLD .DST .ENTR.MVW EXEC <<`nampm : . Fri Sat Sun Mon Tue Wed Thu Mar Apr May Jun Jul Aug Sep Oct Nov Dec Jan Fe<`A.b `A5 6`K=<``5h<= H`BM, 19`AP <<`a2VU``GhUVf/64`1h0֢p1HR`2Zh@(uh`2xT<;;`]w`pQ`2ôPh0ւHp9 B `1H:`4@pOp6h3H`4P H H; `C?H` ;;``A=@ p/` pL0p8h/ H6J`/@@0p7@4Q;99`eYB@4@3  H4H` "@@0ը n 009 4P.169 92833-16119 REV.5000 870720 @P.138P.139P.141P.140 `C  PP.124 #92833-16119 REV.5000 870720 @eP.124 B.ENTR.MVW  99`]>`hZpx(0 p!x!x""p!0 9 P.154 92833-16119 REV.5000 870720 @$6P.077P.078P.237SP.238<** <.DIV .DLD .DST .ENTR.MPY .MVW .NGL P.028P.036P.044P.082P.234P.233*`M& &  ;;`bNpX( 0ڀ`@P(((/"€(/( pu`|h;`A7`O<8SE$89:K &HK ;<<<`aaSOp`pt`O$PtQ(e`tP(Zpu`|hRP`tSPPS<`A`u<<`k {v { +-09` .LEle(p<<<`]h(hpx`@P(p` h (@(@ Ѐ p< `C}ô(h ;;`\ƶX(`F@FZhI @pF8G(`hĶh8 Z@F!(H(;;;`^Z`pGpFhIZ` HxI(`F@}8I`GP@(2; `F[Pd} <<`f N azhv #( 8} v5 @ v x@ @ x@}p}`z6pz x<::`c?,  x Bv  v# Zp9QQ@@6A(W(E(K(O w x`v(T vxy(R: `CO`vpy <<`]"RpxpwpvZ`97:08p`pdhx`ypyhw`xxwZpx:`h p`<;;`^Moh  @ H xֶP|(}@(o`vPh (Ph( xv@}p}h; `D\PPpp <<`_g-H}x}h!@(x (` 6  Z H׶hX|xHx<<<`_(p@pH}x}`|p״Pp@p(8HPHSp8؀ < `D"50 <<`c(Ӷ8(¨`u(`(OP$PtQ(pt(`t(`(<`G~6Ѐ`@ x<<`[4`|p`pGZp}pvpwpxpypzpFpHpIppp~`p(8hH<<<`[+ ( pH (/P(JP(JP(iP(]P(]P(]P(](z@r8(D< `C:48(C8 ;;`^c7P8h H PHhx(8~( @Zr(W((((U((;<<`ZpUpH(hX([(p(r((f(((((88(r((((< `Do((( <<`_shDrhrH $r((((((X(`u($Q($<::`^hH|x`v0w( h8HPH~HIZ(`hh} (6 : `CJ0 `O\\Z( A`pvpwpxpy!Z((  mP.034 ?92833-16119 REV.5000 870720 @jP.034.ENTR.MBT .MVW .SBT `A`b <<``$pp((`hZ`(>`@(>Bp` (><++`W}(`6h6"`(> x`@(>p`"+(( P.155 92833-16119 REV.5000 870720  @ P.026P.031G A.MVW P.015P.042P.114;;`_p8p8f(`hxx ``@xp;<<`[z!p(#(2Z`p@p`p`h(BX(B(8< `D< 8 <<`]@8(2vZGp8GGp8Gf@Gph@`<;;`]p]p@p`pvGP`pppppZppf`p`; `CzPv ))`S+}8(yhH hH @)`A` ?P.015 92833-16119 REV.5000 870720 @`P.015p.ENTRP.029P.112P.114`P~p8P`@@`B`U P.156 m92833-16119 REV.5000 870720 @P.027P.032xP.119P.121p:8<`<(Dp;8<`i: ;΁;`;:</`BaV `Di ii DP.016 92833-16119 REV.5000 870720 @`P.016|.DAD .DCO .DLD .DST P.029P.113P.115##`T6X82(#`B`Z bP.097 .92833-16119 REV.5000 870720 @jP.09733^P.351P.352.DAD .DCO .DDE .DLD .DST .ENTRP.253 P.043 P.096P.258 P.206 P.029P.113P.1153kVMAST ::`cB 6hX-($`J F#X3+2)/Z'#($:`K[#(,+## WP.096 #92833-16119 REV.5000 870720 @hP.096 3.ENTRLIMEMP.252 P.042P.257P.259P.029P.112P.114,,`] $! @hxxxH@@ppp X@$"!,`B`e!!! GP.239 92833-16119 REV.5000 870720 @bP.2390gP.070))`YDp`Hxp@p$4 -) MP.020 92833-16119 REV.5000 870720 @cP.020W.DAD .DLD .DST .ENTR.LBPRP.019++`\"Bx &hHx+ \P.255 ,92833-16119 REV.5000 870720 @jP.255 B.ENTR.MVW  ;;`^`@)h    (@*Z` h;`H=E$ +$$ 7P.160 92833-16119 REV.5000 870720 @eP.160 7.ENTR.XLA  `F  6P.158 92833-16119 REV.5000 870720 @dP.158 7.ENTR.XLA  `F  8P.159 92833-16119 REV.5000 870720 @dP.159 8.ENTR.XLB  `H` 5P.144 92833-16119 REV.5000 870720 @cP.144 7.ENTR.XLA  `F  5P.142 92833-16119 REV.5000 870720 @cP.142 7.ENTR.XLA  `F  7P.143 92833-16119 REV.5000 870720 @cP.143 8.ENTR.XLB  `H` k.DAD .DDI .DIV .DLD .DMOD.DMP .DST .ENTR.MPY `J  @p$(%`A`Z`A`\<<`^=$Z`+(3$Z`h h x`(<(K`0 pG`<::`^B@ 0pHڀ!!`$`Z@ 0pT@!@ڨ$`W`(_(u": `D`h p <<`^pd`@@Z0 pr0 poA0A$`@ 0 p}"ڀA`p<<<`_'ph 0Z$``#`(`"$"$"Ep< `D]Ap `Lx ApApApEp`A`<<`^r`hhZxh (x`(p(pڂ@ !p$@p`<<<`eնp p!p`( (0 x@$@< `D x0` ;;`^p`@p`(`0 Pp!pp`0 Pp!x; `E8x   XP.146 )92833-16119 REV.5000 870720 @c-P.022WP.136+P.008!! .DAD .DDI .DIV .DLD .DMOD.DMP .DST .ENTR.LPXR .MPY !`J  @p$(%`A`Z`A`\<<`^=$Z`+(3$Z`h h x`(<(K`0 pG`<::`^B@ 0pHڀ!!`$`Z@ 0pT@!@ڨ$`W`(_(u": `D`h p <<`^pd`@@Z0 pr0(poA0A$`@ 0 p}"ڀA`p<<<`_'ph 0Z$``#`(`"$"$"Ep< `D]Ap `Lx ApApApEp`A`<<`^z`hh'Zxh (x`(p(pڂ@ !p$@p`<<<`eն&p p!p`( (0 x@$@< `D x0` ;;`^ &p`( `@p x`(`0 pZ!pp;`MXC`0 p!Z!xx  4P.241 92833-16119 REV.5000 870720 @cP.241 C$SCRN.XLA  `Ek(8  _P.313 392833-16119 REV.5000 870720 @gP.313{t.DAD .ENTR.LBP .LBPR.LBT P.029`C`M;;`g8A (A (  p O6` ; `DU/xh // AP.246 92833-16119 REV.5000 870720 @gP.246qo.DAD .ENTR.LBPR.LPXR`RU86 `P.188 -92833-16119 REV.5000 870720  @P.189P.190 ".DAD .DLD .DSB .DST .ENTR.LBP .LBPR<<`d(0,8 80+pH*<`I$Z`$$ >P.302 92833-16119 REV.5000 870720  @P.303P.304 x.DAD .DLD .ENTR `S{`@0 LP.316 92833-16119 REV.5000 870720 @`P.316 .DST P.294 44`\px(8(8p44`A^&& 0P.294 J92833-16127,REV.5000,870622 870622.0827&@P.294A.DAD .DLD .DST .ENTRP.267P.192P.295P.280<<`eZ>4p3 ?4p2`3(1`2((1>&24p2`2((1G0€?5G><`M@O%7`3p915I7&92A`Hx!B>@p4(BB RP.278 92833-16119 REV.5000 870720 @oPP.277 P.278P.279 5,.ENTRLIMEM `IVM$`IL  ` @ `J~`@&& -P.148 92833-16110,REV.5000,870622 870622.0830&.P.&& (P.023 w92833-16110,REV.5000,870622 870622.0830&@P.023lr.ENTRP.037P.192P.029::`c`ai(  t_ ([iA@bZ(`dAi( u6_([ip\:<<`aU#@\p\``A (/p`\P`(76v_([p^`hp]`]Ai(J`]< `DɚDPp^`] ++`T*XHp](;`^(O^pg`\hg `gZh\il+`J~mijp`kp_([^\mm'' LP.057 Z92833-16110,REV.5000,870622 870622.0830 '@P.057Qۦ.ENTRP.037P.050P.192P.029P.098;;`aȜG`HPJ((  & G`H@XpP`GA@(&WF(D@HpE`ME;;;`]^!`EhN`EO`EpN`E@YpEE`EhE`EpM@EpH`HA@L; `D(>(A`HpL `C/B&DGQ `Hx[ROPpF(RR&& .WP.059 92833-16110,REV.5000,870622 870622.0830&@#P.059 .ENTRP.200P.037P.050P.192P.029P.098<<`^V`p:` pA@P(pp9(#`P:(`p`((pp9<66`[(#pp9`9(`Z(8`@@ʴ p`A@Z(8`ɴp;6<<`]<8;(`P(B(ap{`@{h@p|` @{A@Z(Z`@{@<<<`^YP(``h (s`@@p`A@(p`p`p|`|`|< `Bwp|`| `By} ;;`c4j~8}(>`P((0`AZ(p;4X`(0;;`O4Z`(}0(`K pp('' G4h~ K$ R$~ 4h~ $e 4`~< `Bg,ip~ ''`Rak(p`Z(u`p~`p( ';;`m(> Top of stack: Top of heap: High stack: High heap: Initia;<<`n7l stack: Initial heap: Previous free: Current mark: Heap/stack not initializedMark Po< `E.int Size `Gb Start Next && 5P.129 92833-16118,REV.5000,870622 870622.0822&@sP.129].DST .ENTRP.192P.128`L\ 0   4  `Ewbp ( '' JP.244 192833-16110,REV.5000,870622 870622.0830 '@P.244'r.ENTRP.037P.192P.029,,`Z$(  / ($A@X($0$',`I|($%p&p([^((&& &P.260 92833-16110,REV.5000,870622 870622.0830&@vP.260 j.ENTRP.037P.192 `FT` `EwYp( '' OP.269 ;92833-16110,REV.5000,870622 870622.0830 '@P.2692+<.ENTRP.037P.192P.029P.098<<`c9'`&@(p(`(A @,(`(p,`'A @(( `(/6'($$:<`B<#4%2`H|73/0p&1p%(33'' KP.275 392833-16110,REV.5000,870622 870622.0830 '@P.275++<.ENTRP.037P.192P.029P.09866``J!)(  1 ()A@"X($2 ()p"!)+6`Gx,)*p (]_,, OP.263 92833-16119 REV.5000 870720 ''@ P.242P.037 P.252P.042P.257P.259P.271P.098P.112'@`P.114 B.ENTR.MVW  `I `hP `K`hR&& /P.149 92833-16111,REV.5000,870622 870622.0831&.P.&& *QP.024 92833-16111,REV.5000,870622 870622.0831&@P.024!! v{.DCO .DLD .DSB .DST .ENTR.LBPR .LPXR P.038P.192P.029!;;`h  (( 6(( ($($#( ;<<`ii(0(;(7(; 0B(H(CG4( 0< `EC\Q0 ;;`h7Vx(j(^(j ‚(P  (p(v  ‚ ;$$`W~&x °x x $`P6p([^\ '' N@P.058 92833-16111,REV.5000,870622 870622.0831 '@P.058** s.DCO .DDE .DLD .DSB .DST .ENTR .LBPR .LPXR P.038P.051P.192P.029P.099*<<`hsos( (( o 6m((($j(i0o k kx}y<<<`k#(} kx}{} x}k}k0{k k kx} } &kx}k}< `D>S0ky `SvW2k o0ow(f(b(fowim`P pj( m&& &P.060 92833-16111,REV.5000,870622 870622.0831&@jP.06000.DAD .DCO .DIN .DLD .DSB .DST .ENTR .LBPR.LPXRP.201P.038P.051P.192P.029P.0990;;`h9D&0 ((ppC(00 D(,(&;22`[("pC(0ppC`CX( `(B0   (B(B`pF2<<`gG8F(`P(M( 0   6(c(ox  <<<`i7an(~€6x6( 0  (((0  < `Dx `Q0 6x4<<`e8(I (((& 6(((0FҢ`(ׄ<`Q}4F`(6(4`Q 6p('' IP.201 92833-16111,REV.5000,870622 870622.0831 '@hP.201 $$ .DAD .DCO .DDE .DLD .DSB .DST .LBPR .LPXR P.038P.192P.099$;;`i(( 0  (( ؀( 0 0B;<<`k)p &0 6 (( x  0< `CpT((W( <<`jqW((]  6x0 € 6x0p<<<`h֠0((2X(2`(( &0((((( < `Dã0  <<`iU6(((0 xB  x(<""`UR0 0B((( "`JY 8 (   gP.051 792833-16119 REV.5000 870720 @dP.051!! K.DLD .DSB .DST .ENTR.LBP P.243P.253P.258P.272P.113!<<`f X. 20  4x6  6€68686 4  6 8686 68686 6 <`N<&2  &&&& *P.084 92833-16111,REV.5000,870622 870622.0831&@P.084$$ .DAD .DCO .DLD .DST .ENTR .LBPR .LPXR P.038P.192P.029P.099$;;`hw }  (g(f }6l(( }p($($#g(fxh;;;`hؤ( }6h(>(0h (6(> &h6h((h (D(bhl 0Bhv; `EQP h `RxUxZj }xz z(ff&g`M }~pg(]_j&& -fP.203 92833-16111,REV.5000,870622 870622.0831&@P.203q** p.DAD .DCO .DLD .DSB .DST .ENTR.LBPR .LPXR P.038P.192P.128 P.125 P.133 *<<`jE pxk k~ pxk k$uuv pxk k$wwv pxk $k[0x pxk 0k <<<`j *6pxk 3k$uuv 6pxk =k$wwv 6pxk Ek&]x pxk k pxk Tku$uv< `DHT pxk <<`jX0؂k pxk $ckuu0v pxk $mkww0v pxk $ukcx 6pxk k 6pxk k$u<<<((`j&uv pxk kw&wv pxk kex pxk k pxk $kuuv pxk k p< `D'xk k <<`j$uuv 6pxk k$wwv 6pxk Ƃk&_x pxk k pxk Ղku&uv pxk <<<`jO $kwwv pxk $‚kax pxk k pxk k$uuv pxk k pxk k$uu< `Dr0v pxk ;;`j  kw&wv pxk kgx pxk k pxk &$kuuv pxk 0$kwwv p;<<`h2xk 8ki0x pxk 0‚k]a(D(m(m pxk Nk$uuv pxk k pxk ]k< `E(:Z$uuv p <<`iI_xk gk$yyv pxk k(N0iYgW WzU ZY ((N pxk  k<<<`j$uuv 6pxk k 6pxk k$uuv 6pxk k$||v 6pxk k&Yx pxk k< `CR!pT`T ;;`h7(3U6W((pT pxk $ʂkuu0v pxk $Ԃk||0v pxk $܂kUx ;<<`kt6pxk k$||v 0BUl pxk $‚klx pxk k$}}vUzl 6pxk < `E(I$ klx <<`k9 6pxk k$||v 0BUUl pxk &klx pxk k UzU( Y<++`\P80WW (?(F WzU &Yz6Y(| pxk kq+;;`mŹrp( [> Top of stack: Top of heap: High stack: High heap: ;<<`n Initial stack: Initial heap: Previous free: Current mark: Heap/stack not initializ< `EedMark Po `LPint Size Start Next '' UP.128 r92833-16118,REV.5000,870622 870622.0822 '@P.128d.ENTR.LBT .SBT P.215P.044P.192P.073P.186;;`cZ`N(&ja Q&€bkpLa$ZNL('`L((&hl6@LHhaHoa;<<`]Z#@LpL((K`a@npM`L(/(Ahl6Z@LHhaHpP6HM`MpM@LpL< `C@(+`a@n `IgChM`a@m@0qd`Mz9eacpN( Q ee'' P@P.133 92833-16118,REV.5000,870622 870622.0822 '@P.133.ENTR.LBT .SBT P.044P.056P.192P.073P.186<<`b3`{(&~~{"|(<`z('`{Z(&p}pyh6@yHh~H<<<`]"6ڀ~8y8}((; `{(;p}py`~@HyH~8y8}(/(w`~@< `Cw?px`z ;;`__B(Q`~@p}$M}x6{`x@{px(i `{(ip}py`~@@6Hx@y@;33`W٭a`xpx8y8}(Y`{(m(w`~@hx`~@@03`PҰ~p|p{pz( '' LP.245 K92833-16111,REV.5000,870622 870622.0831 '@P.245=<.DCO .DLD .DST .ENTR.LBPRP.038P.192P.02977`d /I:  (G$(:6)((($H$:Bx7 7=7`M>:;6%>&& (P.261 )92833-16111,REV.5000,870622 870622.0831&@P.261!8.DLD .DST .ENTR.LBPRP.038P.192`K'x!`G" p ( ""'' HP.270 Q92833-16111,REV.5000,870622 870622.0831 '@P.270D$$ .DCO .DIN .DLD .DSB .DST .ENTR .LBPR P.038P.192P.029P.099$;;`hO0 ,0008(((080.(&(& Ax>20>&%.(**; `C/(&N+D `LE AB6,Cp+(.EE'' MP.276 N92833-16111,REV.5000,870622 870622.0831 '@P.276D .DCO .DLD .DST .ENTR.LBPR P.038P.192P.029P.099::`h<L B  (J.(- B61((($K.(- 0BB1&/ B:`Fkt(Bx? ?D`IEBCp.(]_/EE XP.264 '92833-16119 REV.5000 870720 ''@ P.243P.038P.253 P.043P.258P.206P.272 P.099P.113'@`P.115 .ENTR.LBPR.MVW  `J)`%&`KC`h%R&'' TP.268 92833-16127,REV.5000,870622 870622.0827 '.P.&& 3P.296 ~92833-16127,REV.5000,870622 870622.0827&@P.296t;.DAD .DLD .DST .ENTRP.192P.280P.338<<`cQqhpg rhpfP`fA@g(`fpe(`gpepdP`eA@d(=z<;;`d0#rj$+jdpl0zqj6jdPl(9(=`dpd (`eA@dZ(J`f; `C<G@gpi(b ))`Z;Jzr0jTjdplz0€qj`&jd@lpi`it)`Gxuqsph(uu&& 4P.307 92833-16127,REV.5000,870622 870622.0827&@lP.307  o.ENTRP.192P.280 `G p`  `EwN p( && 6P.309 92833-16127,REV.5000,870622 870622.0827&@uP.309.ENTR.LPXRP.192P.280`PM( Zx(p``Gwup(&& /P.293 E92833-16127,REV.5000,870622 870622.0827&@P.2939.DAD .DLD .DST .ENTRP.267P.192P.295P.280<<`c[T5,p+`+(*`-( (*5&-,p-`-((*h6`D0.B50`+p2<`H#*.A0&2-9`Kg:57p-8p,(::'' TDP.306 92833-16127,REV.5000,870622 870622.0827 '@P.306!! b.DAD .DLD .DST .ENTR P.266P.267P.192P.029P.295P.280!<<`dyypx ypw`x((t`w(t`zA (" `wA@zX(' &<<<`e$&y(t`z@wpv1$ڀxypu`v@up`xA @(Z 0{ }< `C(}I`z@xp <<`dL`v@uhx@pY{z$}(]`u@vpx`x(a(t { 0€}t {< `E/p$}zx `K~K pzpy('' TKP.297 92833-16127,REV.5000,870622 870622.0827 '@P.297!! a.DAD .DLD .DST .ENTR P.267P.192P.029P.281P.299P.280!;;`cupt`t(s`wA(uX(s`v($u(s`v(!(s`tA;<<`c#@w(.-u(s`w@v@pP`tA@(F(AAu`w@tpv< `CF`v(J ;;`c6IZ(s`v@tpxSxu(s 0ڀy`w@vpx {`v@thw@p};`H%lsyx{&w}`N pwpvpu(&& 5P.308 k92833-16127,REV.5000,870622 870622.0827&@P.308b p.DAD .DLD .DST .ENTR P.267P.192P.295P.280P.338<<`e`UpS _UpR`S((Q`RZ(QpT`SA@T(,h0€`V%$VT<<<`ce%Pj(((,`TpT(`T@SpS6_&SUpS`S(;(Qh0€`Vh_X`R< `DQHpZQ `F5L$VTXZSb `Hxc _apU( cc&& 2P.315 c92833-16127,REV.5000,870622 870622.0827&@P.315Y p.DAD .DLD .DST .ENTR P.267P.192P.295P.280P.338<<`cWLpJ VLpI`J((H`I(H`JpK`K(((_WM$!MKPb($<;;`ej#((@KpK(-VKLZpK`K(2(H_W0M_VO`IpQHMaO$QK;`AHY`IxZ VXpL( ZZ&& 23P.314 92833-16127,REV.5000,870622 870622.0827&@P.314'' y@.DAD .DCO .DLD .DMP .DSB .DST .ENTR P.267P.192P.029P.295P.280'<<`ep p~`(}`~X(}`($(}hB h  0<<<`fW%0 (1(106(}6&h  (}(}`~p 6(}(}< `DKh  <<`gOO 6(Z(X(Z`p0€m$`@ph <`H7v 6(E`P pp('' O,P.292 t92833-16127,REV.5000,870622 870622.0827 '@P.292e o.DAD .DLD .DST .ENTR P.267P.192P.029P.295P.280<<`c~daTpS `TpR`S(Q`RX(Q`U($oT(Q`VA(,`V@U@s<<<`f8G# p`SA@X(1$0pT(Q$6`UTpU`U(;(Q0qaWq`4Y`R< `CIp[Q `F?L$WVY[Ue `Nf `bpVcpUdpT(ff'' RP.295 O92833-16127,REV.5000,870622 870622.0827 '@P.295B.ENTR.LBPR.LPXRP.192P.029P.299P.280<<`d>?9p8`8(6`8@:p<?JA@< (/(L9&؀?Jx< ?<**`TBI$`<?J`8Hx;(6?`8@:`:p;`;B*`J|C?@p:Ap9(CC&& /P.311 92833-16127,REV.5000,870622 870622.0827&@P.311v;.DAD .DLD .DST .ENTRP.192P.280P.338((<<`aypjt6ipe s6ipd`e(Z(b`d((b`e@dpdZpfph`dA@h<<<`eN!Z(\`fP(\pf pg`eA@gZ(X`f(X|0€tkA&kgpm|s< `C_Fk`h 66`[z;I@g@pnP&knPmZpf`gpg(,`hph(`fZ(b@hpj`jv6`Gxwsupi(`A`'' O P.310 \92833-16127,REV.5000,870622 870622.0827 '@P.310D'' .DAD .DLD .DST .ENTR .LPXR P.266 P.267P.192P.029P.281P.299P.280'::`^y`1((`1p,(  =6.p,`/((`/p+($@.p+`,()`+():<<`` `3(&%&T.()`3(*()`2(.(9`2@3@[pP`,A@ p-`-< `D>P(`0(C <<`aB(K`+A@0p-`-(`0@3@[p*`/(Y(d`/A@*p-<;;`cc(q @UA@*Zp-`-(`/(z(~~&W.`/( @Ux*; `Dk @U`0 <<`c#lH x3 `3p-(X.(X.`-()`+A@*X(`/(<<<`g$@*.p-`1(`/ (`0A@2X(0Y =4Y @0642$603(< `DԆY = ;;`gX؆4Y 0@6 $42603Z()`1(`/((Y =4$42@063()`1;<<`gD((`/(Y @04=2$403()`0A@2("!=$2@03() )=2< `D!&$Ё@03D --`W*E <p2?p1Ap0Bp/Cp.(-EE hP.266 792833-16119 REV.5000 870720 @jP.266.DLD .DST .ENTRP.338P.339<<`b!Шpp513@p@p@p@p(1<`JN'6p6.3&685('' P.267 92833-16119 REV.5000 870720 @jP.267m.DAD .DLD .DST .ENTR.LBPR.MBT <<`b{Шpx50ڀ`ޠZpx5`p`<<<`_e'(4`6X@h6H"`0(C`pd$@(:`p`< `D1Fp %%`VJ4dQ&`p0d]$(E%<<`ed``hPH ` xp`6axb6c`850€``5<`Hײ0Ѐbb`d`A` `D '' QP.285 &92833-16127,REV.5000,870622 870622.0827 '@P.285 l.ENTRP.192P.157 ..`V`@%p`p 6p`((``p`. `Ewp( `A`h%%%&& 4_P.157 92833-16118,REV.5000,870622 870622.0822&@(P.157%.ENTR.LBT .SBT P.192P.039P.040..`X}Dp`pP`A@(h6@Hpp`.55`YB`p(`3(!(,(,`P(((+@3p3(`3p4`465;;`^_07Z`6(8p5865p3`p4(ppPppZp`(h`A@;<<`^UWU(e(e`ph6@H`(O`p(`p6Z((`< `CSsP(` ::`^RvA@(`P(`(`Zp`((`ph6@H`:<<`^Z(o(p`Zp`((`hAH( (xph6@H`8< `C(8( `Bz` `Gņpôp(B`Ca_ ,'' PP.273 Q92833-16127,REV.5000,870622 870622.0827 '@P.273F$$ 8.DAD .DLD .DST .ENTR .LPXR P.028P.036P.358P.192P.281P.339$<<`e9dp; DLx<C( CC(3`;A @<(3CLX(3`;p;0N <%%`Vm%0ڀD>`C@Pp@0>;0؀@C($8D;=(:F%`JxJG CEp=( GG'' SP.028 <92833-16118,REV.5000,870622 870622.0822 '@P.028+ 8P.044P.192P.082 <<`_c`*p(`(@:p))+8()*8(5*`(Z@;()X,8( *<`HX`*@:,8p'`'+`J׀,Z`+(-p*8+`9p'( `D`8 88'' QP.036 692833-16118,REV.5000,870622 870622.0822 '@P.036( 8P.044P.192P.082 <<``AP`'@3+2(  06ڀ'(&`'@3X,2($1'(&6'`'@3@04<`Gs Z`'@3@5(`M=)Z`((*p'8(( ))&& 6P.358 D92833-16118,REV.5000,870622 870622.0822&@P.3584h.ENTRP.044P.192P.082<<`_ap1`2@BZ+@(`0(<62(.2`2Z@C(`2Z@B,@(<##`QMp1`2@B,@(.`0(..=2`14#`Ii523p0`Ap1( `D`@ @@'' N"P.082 q92833-16118,REV.5000,870622 870622.0822 '@P.082[).LBT P.044P.192P.081<<`]`ZpX`X@gpYY-e(VY,e(cZ(V`X@hPd(Pe(Pf(!<<<`^1l(PZ(P`XX@i((6ڀZ`X@kpW`X@j@W(=`X@m@Z6HWhXHl< `B,;(H <<`Z_=`X@lhnYڂ,e ehXHiZ`WpW`X@khW(PY0oYYpY[<$$`U%\Z`[(]pZ8[(  @$\\&& 3P.336 H92833-16127,REV.5000,870622 870622.0827&@P.336<!! Z.DAD .DLD .DST .ENTR P.044P.192P.073P.186P.280P.338!<<`fݐ`2(&D8 961p0`0(/820(`2X(/p3p00E 94'4<`JG&60h8HG6ڀ88083(<`K|= 8:p2;p1( =='' SHP.186 92833-16118,REV.5000,870622 870622.0822 '@P.186rG.SBT P.123P.192P.073P.125::`^(pl`o@hoZH@Ap("ڀopl(-`o@phoH:;;`a'x @A@X(-$+oo`l(A`o@h`mp(:(@opp; `D?(4(g`m <<`]]Cp(G(g`o@pk`o@؂@6Hk``kpkpPp`mp(K`o@hk<`Kc``o@@0`lpn`nr66`YwasZ`r(tpo8r`r(zpp8r`r(pq8rqpm`pn(6`Ia  '' JP.123 92833-16112,REV.5000,870622 870622.0833 '@tP.123 n.ENTRP.070P.192 `O2`@p`@p$`G&('' PP.274 92833-16127,REV.5000,870622 870622.0827 '@zP.274'|.ENTR.LBPRP.192P.080P.280`Mx0  (  `Ewip ( '' LP.080 R92833-16118,REV.5000,870622 870622.0822 '@P.080;OP.044P.056P.192P.081;;``X`9@Mp77,L(  &I9(7+L(&J9(7.L(97Q;,,`W͑ 770P7`9@Op7`9@N p867K:&K8;,**`V|PU(`>PV((`?Pb( `(p<p?);;`[Z`(p8p(`GpB`B@WpC$'AG`A@Vp>`B@XPT(5;;;`^u0PU(uPV((:`B@_pD`B@]pE`B@YpF$FA?DE&PU(`B@]A @a(`=p=`B@_pDA? D< `D,&=<`B@] ;;``p`SR$VW< `D>`R(E ""`PvB$ERX`T@gʂ@6`h`T@fhXHeY"`PZZ`Y([pX8Y(  ZZ GP.019 92833-16119 REV.5000 870720 @fP.019N.ENTR `D`_ ,,`U`@@X(@@@X@(,'' IP.033 92833-16112,REV.5000,870622 870622.0833 '@uP.033 n.ENTRP.070P.192 `O2`@p`@p$`G&('' JP.044 92833-16112,REV.5000,870622 870622.0833 '@vP.044 n.ENTRP.070P.192 `O2`@p`@p$`G&(&& ,P.290 /92833-16127,REV.5000,870622 870622.0827&@P.290$.DCO .DLD .ENTRP.192P.288P.233..`[g !0*( (6,(((`#(.4$.`Jw% "p( %%'' UJP.288 92833-16127,REV.5000,870622 870622.0827 '@P.288!! i.DLD .DNG .DST .ENTR P.216P.192P.234P.305P.233P.280!::`cZ $py`y(x$Z(x`p|$Z|("`|P(!("(:<<`_/#p{pz`|Pp~`~(j`|PZp}`}(:`|P(:(A@$|p~`|< `DB@(_`| <<`b4(F@(_p{}| 0zpzX$ڀ|p~`~(^`p|(A`}(g `~<##`Qݜh0{p~`~(p`{0z(xx4#`LyU p(  +-&& 3P.216 u92833-16118,REV.5000,870622 870622.0822&@P.216Q>O.DCO .DLD .DMP .DSB .DST P.192;;``h`I@tpHpGNk( ( (/N6k((-(-`J(`rA @H()`J;;;`c (*`sA@HZ(*(,pG(/pG`G(CpKhH 0LNmLN(E; `D>CpK`KQ <<`\RZ`Q(SpN8Q`Q(YpO8Q`Q(_pP8QOpJPpI`qpK(334<`A`n  `D`q qq&& 2P.286 V92833-16127,REV.5000,870622 870622.0827&@P.286K.ENTR.SBT P.192P.234P.305P.280<<`eEB(= EF"B(=p>P`AA@>(*$EF?B (*hH6@>H`?<00`Yf%Z`>p>(P`AA@>(=hH6@>H`U`>p>(*K0`JGLEGpBIpAJp@( LL'' VP.289 D92833-16127,REV.5000,870622 870622.0827 '@yP.289<<(.DAD .DCO .DDI .DIN .DLD .DNG .DSB .DST .ENTR.LBT .MPY P.006P.192P.234P.305P.233P.335 P.280P.338 <<<`c^' p`( $ (X`Cp$ ( `PC(( (`A<<<`a#  (+  ` ʀ,H@(:9&( p ` ,H @< `C_D(]` <<`d+8GA@(]`p 0 [p(< @ p`A@X(n m<<<`d;k&( @p`@h Zp`( ph   < `E1 <<`e:4 (p`(&(`A@(  6p ph<<<`cP6 P((`p(`P((h 0 ((h< `D76  ++`Wj8ZPCp`(h   @ (+;;`hڡ  ppp("3;`Ia; ;; MP.004 "92833-16119 REV.5000 870720  @P.005P.006 --`b @ @ -&& 3P.335 "92833-16118,REV.5000,870622 870622.0822&@vP.335 .ENTRP.192 ((`Q Z`@!( `@ ( `@!@p(`p`(`Gp`p( `D`A '' SP.287 #92833-16127,REV.5000,870622 870622.0827 '@P.287#9.ENTRP.192P.234P.305P.280##`VD( "($(# `Ewp( '' N P.291 S92833-16127,REV.5000,870622 870622.0827 '@P.291I$$ /.DAD .DLD .DST .ENTR .LPXR P.192P.281P.234P.305P.280P.339$<<`fE>(: EF">(:p; HOx(3`;<""`UjC&p;Q H?2?&;=(8$H;>(:I"`IxDJ EGp>(JJ'' MP.281 ;92833-16127,REV.5000,870622 870622.0827 '@P.281*N.ENTR.LBPR.LPXRP.192P.029::`bp$'4PA@#(&6"( `#(7"( '`#p$`$*:`MON+'(p#)p"`:p$(`A`}:::&& 0P.234 >92833-16127,REV.5000,870622 870622.0827&@P.23401.DAD .DLD .DST .ENTR.LBPRP.192P.029P.338;;`d p'-(  8&($,A -($p'90€,( &(-.--; `B$`'0 `JK1,/p&`=p'(`A`==='' RP.305 /92833-16127,REV.5000,870622 870622.0827 '@P.305!~ .ENTR.LBPRP.192P.029--`Y`((4 A@P(Xp(p$+`!-`JN"p p`.p(`A`q...'' TP.317 =92833-16127,REV.5000,870622 870622.0827 '@P.3171s.ENTR.LBT P.192P.312P.32099`aS*+%$Z#$( `#Z( p&p!h-6X@!Hp'$*+'8!8&(19`K2*,p%.p$/p#0p"(22&& 00P.322 92833-16127,REV.5000,870622 870622.0827&@P.322 .DAD .DST .ENTR.LBT .MPY P.192P.233P.312P.320<<`bF)`z(&~`{(`{pz`{p{`}(`|A@}(~`{}pw<<<``j"`w@{@pv`w py`vA@yZ(AhyB h6 P(A`ypy((`z< `CB(H`w ;;`a+E@ypzO$~z{(u`w@z@pv`whvAH(^ (uxpyhy ;`P gfh6 pq68y(s8(`$$`Q*p~p}p|p{pz( $&& 6P.319 &92833-16127,REV.5000,870622 870622.0827&@{P.319j.ENTRP.192P.312P.320`O2$X%($`Jάppp('' PP.323 $92833-16127,REV.5000,870622 870622.0827 '@{P.323X.DST .ENTRP.192P.321`Nmh 0 $`IΜppp(&& .P.321 R92833-16127,REV.5000,870622 870622.0827&@P.321D .DLD .DST .ENTR.LBT P.215P.192P.312P.320::`c7,*Pp$ ?@$'&$(#`$((#hQ6@$Hp<?@"<@$p$(:`A#D`MJE?Ap'0ڀB*Cp&( ,EE&& 1P.324 "92833-16127,REV.5000,870622 870622.0827&@w((P.324 h.ENTRP.192P.318 `K*  $ !`Kp p p (L&& 2P.325 292833-16127,REV.5000,870622 870622.0827&@P.325%.BLE .CFER.ENTRP.192P.318`RǨ"&$ &01%`L1&!p#p$p(E&&'' VP.318 n92833-16127,REV.5000,870622 870622.0827 '@P.318]jB.ENTR.LBT P.192P.217P.233P.312P.320<<`d`C(`B( kD`C(pC`B(`mpBEXC$BA@p?$$UVDC ?<11`Z$(=`?(=pQp>Zhl6@>HpR:U&ڀVR8>8Q(.]1##`PO^UWpDYpCZpB[pA\p@(E'#^^&& 6P.217 e92833-16118,REV.5000,870622 870622.0822&@XP.217<<..TCM .CFER .DIV .ENTR .MPY .MVW .SBT .TADD.TDIV.TFTD.TMPY.TSUBP.262P.265P.192P.063P.116P.118P.232<`K{`ph6@H`  <<`cفZ` (p 8 p (`h  `(!  &(0 `p<<<`a1`(:&`p`(F `Ppp`bp`^pŶ`@p< `DkR`  <<`eV€@p 4X`($`]6@pn$ $ `( h!`" <<<`d8*{ Z@pư(Ѣ`(&`]Ŷ@p$h!`"P `p< `C1@p <<`_~8(O`Pap`(`A@Ʉp`(Ҷ`@c@d@d@dp<;;`bup@p&p`p("p`@p6p`@; `Cp` ;;`c(`h  X`( 0 $ 0p`p`((,`[;<<`d (!` @p$Ձ`]6@p!$`p` \p(< `E-$6 <<`do2$$ `(R G;4Z`p`0(Q`Zp(6p`<<<`^V(Z (_`(_ `Ǡ p(p`p`Pʶ(l(n &qp`@`< `C&tp  <<`fkwh 0 $$$ ;@p8(h`( Ȣ`(<::`_OK `pƴ( ` _@`p $@`p `p`̠:<<`g ppppȠ(@PP- .+ 16<<<`n $PdN _^6G ߂lN[PdN _^< `DNG ߂ `GR6N[k `J[ 0'[[ P.170 92833-16119 REV.5000 870720 @"[P.063&P.067P.116]P.1187/k.DLD .DST .ENTR.MVW `O$@`Az <<`dő""`#h"`$h""H@˜`h%&$A(^u%<<<``sbFڨ&xH D`Z`P!(e(e(ehH< `C@>fhG <<`^ix` pZ@ 8(mZhixHXu(xx 8 <<<`b]e8` hHx€D8€D8DhH< `CYi ::`^(GZ(pp 88(`BppP (`P:<<`]mʶ(@p (`i@p(ڄAHH P(< `C)綀`@p ::`^ (1(p(u8(ZH`H ZxHZ` @:;;`_UhHd h d PAdZ ($h A; `E'(!`C(S ;;`]M+,`(U`@(;@hZxh(J(@@h(J@]!(UH;;;`]6I(U Z  D(UZ`p `hc(hG(Ш^xti; `DkfPHa(o <<`\WjZ(o (rhtc`phhh`h`8({`<`Mh`@ph`PGu<<`^pF`(Ӣ``hhڶG`P(ȶ`p`hQh` u<;;`^hu8(`P(hu(hu`h"`@ph`; `C>PG `FӶhxxh`A <<`](` phGhZG@pppp p!p @h``<%%`P[!Zch Xp pH H h%<<`a6 `h"s`Zs`HH `<::`^t/`h65`5h`hxH Hx0[hH: `DdMP H <<`c[QX(U(Ph6`7B\`\h`mh(`]n@<`OL t `@s`(`(E`(Ett&& 3P.326 I92833-16127,REV.5000,870622 870622.0827&@P.326?!! g .DAD .DLD .DST .ENTR .LBPR P.192P.312P.320P.280P.338!<<`g=1(. =x2:;1$Z02(.`0Z(.p2p/G0€=3%&3/p5<`H}'$+:;58/82(?`I|@ :p0(@@ AP.338 92833-16119 REV.5000 870720 @dP.338k.DAD .ENTR.LBP .LBT `QnBx5Z6H&& /P.283 "92833-16127,REV.5000,870622 870622.0827&@}P.283 o.ENTRP.192P.282 `K*  $ !`Kp p p (L&& 0P.284 292833-16127,REV.5000,870622 870622.0827&@P.284%.BLE .CFER.ENTRP.192P.282`RǨ"&$ &01%`L1&!p#p$p(E&&'' O%P.282 n92833-16127,REV.5000,870622 870622.0827 '@P.282]jE.ENTR.LBT P.247P.192P.233P.312P.320<<`d`C(`B( kD`C(pC`B(`mpBEXC$BA@p?$$UVDC ?<11`Z$(=`?(=pQp>Zhl6@>HpR:U&ڀVR8>8Q(.]1##`PO^UWpDYpCZpB[pA\p@(E'#^^'' VP.247 92833-16118,REV.5000,870622 870622.0822 '@P.24733 u..TCM.CFER.DIV .ENTR.MVW .SBT .TADD .TDIV .TFTD .TFXD .TMPY.TSUBP.262P.265P.192P.2323`K,`mpmh6@mH`  ;;`a5Z` (p 8 p (`h`(!&4`po`o;<<`a_/(6 `pq`o(B&`Zprpw`p`pv`w@wpw`v < `D5PP@ <<`et[Tp~`r(m0~`(l"@wpw({~`({ 4~`w<<<``yZpw@vpv8(K`{Ppp`p(`wA@zpp`p(`|@< `C@@@ ;;`b2pp@zp$p{`{px($Zwpt`t@zp&{p{`{;;;``|@tpx`r(ж`h`("pv`xpt`t((`t; `E޴(`v  ;;`d,€@p &`vpv`t 6pt( &4X`( $`wpw;<<`^Z`p0r(`xpx(pm`q( Z(`p( 6`xp(Fp`pv< `C%`vP{() <<`b((+  xu`u@p 4hu  0@vpv8(%`p(i <<<`arJ4Zy`w(T 4Z`wpw(V `w @p ew&@p 6`mp}< `B k`} <<`g(p|p{pzpy(@PP- .+ $P<`VɚdN _^6G ߂lN[`Ij 0''' OP.262 92833-16118,REV.5000,870622 870622.0822 '@yP.262 .ENTRP.192 `OnP`A@( `p( `p` `G{pp('' RP.265 92833-16118,REV.5000,870622 870622.0822 '@yP.265 .ENTRP.192 `OnP`A@( `p( `p` `G{pp( JP.232 92833-16119 REV.5000 870720 @eP.232 .DIV .ENTRP.029 ++`Y5( ( `¨$P+'' N P.320 o92833-16127,REV.5000,870622 870622.0827 '@P.320[d.ENTR.LPXRP.192P.029P.299P.233P.312P.280<<`b(pRV6QpO`O(MY(`PYeQ(MW((!`OPAW(&<;;`c[,"$((%fQ(MWY@npSV4 gA@SX(<(<<i4PQ`PY(B(KGV; `DE$PWjY `FKIZY(<pR`R[`OQ\VXpQZpP`mpR( `B`mmm 5P.300 92833-16119 REV.5000 870720  @P.298P.299 .ENTRP.301 `I+~pP` pP.035 B92833-16119 REV.5000 870720 @P.356 P.035 P.1852P.039+P.040.P.301t.ENTR.MVW EXEC RMPAR`B`R;;`a "<p`ppp 6x 8 `p (6`p;`Go*Ш `+`.`J21`Ah1P;2`AA <AA&& +P.233 92833-16112,REV.5000,870622 870622.0833&@oP.233  n.ENTRP.070P.192 `H˲ &  `E& ( && /P.312 F92833-16127,REV.5000,870622 870622.0827&@P.312<u.DAD .DLD .DST .ENTR.LBPR.LPXRP.192P.339;;`f9x3`3PA:(294 BA:X(20D95#5:4`3A;`MD& :(/9:::<`Ix=9;p4(== CP.339 92833-16119 REV.5000 870720 @eP.339r.DAD .ENTR.LBP .SBT  `RmBx5Z6H '' LP.280 ;92833-16127,REV.5000,870622 870622.0827 '@P.2800N.ENTR.LBPR.LPXRP.192P.029<<`c.( .6( ( .p+.6A@+( .Xx*(&p*< `E##$&8)`*0 `Hw1./p)( 11&& /P.029 92833-16112,REV.5000,870622 870622.0833&@nP.029  n.ENTRP.070P.192 `H˱ &  `D& ( && *P.193 92833-16112,REV.5000,870622 870622.0833&.P.&& .P.068 92833-16112,REV.5000,870622 870622.0833&@qP.068  n.ENTRP.070P.192 `HK &  `E&  (  && &P.070 492833-16112,REV.5000,870622 870622.0833&@P.070"E.ENTRLOGLUP.071P.192P.360P.102P.327%%`W'&ڀ `P3( p&."%""`Q?2#ppp!p("##&& -P.071 92833-16112,REV.5000,870622 870622.0833&@P.071!! s.DST .ENTR.LBT .SBT LOGLUP.009 P.215P.192P.090REIO !$$`Td`((&p`p$Zp$))`S8(`pZh36@H`+ `P(((**-)<<``1.,,p+(4Z`R(;-&:(P`R(PpT pQhS6@QHpU-M4U8Q< `C N8T(CX <<`b YVVpSWpR(4h k$p`(p(~h6@Hp-z< `D{@p(l <<`^xpp(`6pX4Z`(`P(P(P(P(P (<;;`Y@dP (P (P (P (P("P(+P(4P(=P(FP(OP(XP(aP; `D϶(j(s <<`d6pX6(pXǰ(pX(pX$( <<<`d{6pX6(洒pXʰ( pX(pX$( < `D%6pX! <<`d&(%6pX*6(.pX3Ͱ(7"pX<(@1pX E<<<`dC&(I6@pXN6(ROpXWΰ([]pX`(dhpX i< `Dlg&( <<`dvk&mrpXr&(v6~pX{4Ң`(6pX4Ҡ(<//`]pX$&pXՄpX$/;;`m@(Pascal Error: Undefined CaseHeap/Stack CollisionNil Pointer DereferencedValue Out Of Ran;<<`ngeMOD By Invalid ValueString UnderflowString Overflow String Bad IndexInvalid StringDispose < `EJ Called Wit <<`nh A Nil Ptr Disposed An Invalid Variant Release Called With A Nil Ptr Dispose Called With A <<<`n%<Bad Ptr Release Called With A Bad Ptr Overflow Of Two Word IntegerIllegal Char For Base No V< `Djalue To <<`mnConvert Insufficient Image SpaceNumber In Line Pas.ErrorExit Called At With `(<<<`ei=6pX4Ұ(pX&pX&&pX$< `C`  ;;`Zh!(@@ɦڨ(((((( (((((1(:(C(L(U(^(g(p(y(;<<`cݶ(((6pX6(ӴpXٰ(pX(pX< `ER$( <<`d4&pX &(6pX6(pXȰ("pX'(<<<`d6)&+"pX0&(46,pX96(=7pXBȰ(FCpXK(< `DM&OKpX <<`dsQ$T(&XXpX]&(a6gpXf6(jtpXoȰ(spX<<<`dۙu$x(&|pX&(6pX6(pXް(pX< `Dj$( `MpX$&Ҩ;;`m/(Pascal String I/O Error In Line Pascal I/O Error On File Unexpected EOFFile Must Be;<<`nF Text File Must Be Direct Bad Record Length Must Reset Or Open File Must Rewrite Or Open Fil< `Ee Direct A <<`n] ccess Read ErrorSequential Access Read ErrorInvalid Integer ReadLine Read Was Too LongInvali<<<`n_:d Real Number ReadFile Is Not CCTLNo Scratch File Available Neg FLD/DEC Width Not Allowed Fi< `D1hle Canno <<`nlt Be Type 1 Or 2File Must Be Type 1 Or 2Cannot Open LU 0 For Read OnlyMissing File Name File<<<`m Is Not OpenError Identifier Not In Enumerated Type Value Not In Enumerated TypepX< `D]$ <<`c&ͅpX&&pX&`P(P((6pX6(<`GDpXٴ(<<`m (Pascal I/O Warning On File Output Line Moved To Next LineOutput Line Split p%<<<`^$6pX*6`P(8P(:P(GP(IP(fP (((=ᴒpXB< `C-iBF ;;`dvE6((&LpXQ&U0XpX]&`pXe&(i ;00`[L ipXn˄qpX$vy6pX~6((40<<`g'pppp( ?  !**<<<`n* Pascal Pointer Error At FMP Error On File Pascal Segment Not Found < `DgP[\] `Gh^_`abc  EP.009 92833-16119 REV.5000 870720 @_P.009 %.DLD .DST  ((`XA8 (A@A8(&& 3 P.215 92833-16118,REV.5000,870622 870622.0822&@P.215p ;/.DDI .DLD .DMP .DNG .DSB .DST .ENTR.SBT P.192;;`h.Xf( 0fd(2fdZpa`apahbB hhb 0jdjhh;<<`g(0dhhzhxhm6pl@aPH`l hb h0dhd d (Pf(]< `BqO`bP~ $$`PQ(S(]`apaZhm6@aH` `apc`cp$`K_qmn6fopb(0`B`~ -~~ :P.090 92833-16119 REV.5000 870720 @iP.090N.ENTR `E"`  >P.360 92833-16119 REV.5000 870720 @fP.360}.ENTR.MVW P.361P.362P.365`LM`h p 2P.102 92833-16119 REV.5000 870720 @_P.102 EXEC P.363 `G!   @P.363 92833-16119 REV.5000 870720 @P.361P.362 P.365P.363 .ENTR.MVW PRTN  `Ou88& 2P.327 92833-16119 REV.5000 870720 @bP.327N.ENTR `D1  4P.191 92833-16119 REV.5000 870720  @P.197P.192 .P. PPASCA 92833-16117 REV.5000 841008 APA 2P.340 92833-16117 REV.2440 841008  @P.351P.352 .P.```~~@P.0030P.005_aP.006_aP.0073P.0084P.009jP.010wP.011wzP.012y P.013zP.014zpP.015@P.016aP.017\P.0189qq ZP.019P P.020q~((~~IP.0213P.0224P.023vP.024+P.025W `P.0267M.P.027+U4P.0281O:P.029V!P.030qtP.0317M.P.032+U4P.033P~!P.034P.035WP.020~~~QP.0363:P.037nP.038 P.039WP.040WP.041s#P.042nP.043 P.044Qt!P.045PS:P.046QtP.047|7P.048}YP.049P.050G3P.0519P.020~~~OP.052u!P.053 P.054S9P.055:P.056HwP.057 iP.058 pP.059iP.0605pP.061\P.062P.063| P.064&P.065O2:~~~ P.066'P.067| P.068f!P.069T-:P.070I,]  qP.071e%[P.072:P.073I^q:P.074d1:P.075Y:b JP.076Wx:SP.077):065O2)u~~~ P.078):P.079[F `P.080>p:P.081@Pq:P.0826:P.0839P.084@P.085BP.086!&P.087e{ `P.088Xq[P.089P.090r~~~dP.091*P.092U9: P.093$q:S ZP.094P.095P.096P.097Y1 >P.098nP.099 P.100P.101*P.102 P.103sP.104P.105ZP.108<~~~ P.109*P.112nP.113 P.114nP.115 P.116| P.117P.118| P.119+U4P.120+U4P.121+U4P.123=!P.1243P.125Moq:P.126E7?P.127D ?1108<~~~*P.128s:?[P.129OP.130Ge?P.131G<P.132G~<P.133:?P.134H|:?iP.1353P.1364P.137DqP.138kP.139kP.140kP.141kP.142*<~~~P.143tP.144`P.157, P.158IP.159P.160P.171AP.174:P.183 :IP.184 ,P.185WP.186:?P.187fnP.189P.190P.192P.195P.196i~~~N5P.197P.198P.199bP.200KP.2011P.2021P.203[1P.206 P.208QP.209 _IDP.2149 fP.215OP.216V[P.217s5P.2181i~~~P.219P.220\P.221P.222@^:?P.224^:  JP.225hVP.226i]P.227jeP.228t P.229km%P.230r?P.231{CP.232P.233#!~~~ZP.234eP 2P.237):P.238):P.239!P.241FP.242nP.243 P.244=P.245rP.246,P.247qP.248M :?WP.249K!aP.250La~~~zP.251te][P.252nP.253 P.255vP.2562P.257nP.258 P.259nP.260JP.261P.262P.265 P.266' 2 8P.267($P.269/P.270P.271n~~~YP.272 P.273/wL 8 `P.274=|DP.275XP.276MP.277HP.278HP.279HP.280+P.281d#P.282 WvP.283TP.284TP.285*}P.271n~~~T P.286YD1P.287aOD1P.288S}bD1P.289ZYD1  2P.290RjP.291bODL1 8P.292VDP.293=DP.294 DP.295bDP.296 FD 2271n~~~,P.297ADLP.298P.299P.301WP.303.P.304.P.305g P.306yDP.307 \DP.308D 2P.309 BDP.310!_DLP.3115D 2P.312 8~~~> P.313P.314DP.315D 2P.316P.317h$vP.318qMivP.319l+vP.320mDvP.321n [vP.322iHvP.323m&P.324oTP.325pI~~~#P.326mDv 2P.327CP.335`DP.3368D:?D 2P.337FrDP.338/P.339HP.351bP.352bP.355bmP.356WP.357?(P.3584D:P.359lqP.3608 xP.361]~~~_P.362]P.363]P.365]P.335`DP.3368D)FP.337FrzP.338/P.339HP.351bP.352bP.355bm!OP.356WP.357?(P.3584D)OP.359lP.3608P.361]~ emit (iDEC); emitnum (wd2);  END;  END; END  ELSE IF ftype^.form = pointer THEN BEGIN  IF ftype^.ptrsize = 1 THEN BEGIN check (flit.ival = 0, 430); emit (iDEC); emitnu/PASCAL/LIB/STD/SHSLB.LIB:::5:18:126 644 0 0 11000 5300501707 35260 /PASCAL/LIB/STD/SHSLB.LIB:::5:18:126 $$$ ;~SHSLB LIB +++<<FST >>XSV4SHSLB 92833-16220,REV.5000,870622 870622.0851 /P1K/LIB/STD/SHSLB.PAS>@S@@XVV3,SHS_TMP 870622 870622.0851 /P1K/LIB/STD/SHS_TMP.PAS@@7VCCX3V'!PAS.SHORTLIB1 92833-16217,REV.5000,870622 870622.0839 /P1K/LIB/STD/SHORT_1.PASC@3AAXͤ1V'"PAS.DISPOSE192833-16217,REV.5000,870622 870622.0839/P1K/LIB/STD/SHORT_1.PASA'PAS.DISPOSE1##.ENTR PAS.GETMEMINFO1 PAS.NONCDSPAS.RUNTIMEERROR#00mA$A(  /($A@(0$'0`( A$%p&p([^@QpWAAX8V'"PAS.MARK1 92833-16217,REV.5000,870622 870622.0839 /P1K/LIB/STD/SHORT_1.PASAVPAS.MARK1 y1.ENTR PAS.GETMEMINFO1 PAS.NONCDSA`7Ap(@;Z??XG;V'#PAS.NEW192833-16217,REV.5000,870622 870622.0839/P1K/LIB/STD/SHORT_1.PAS? +n2PAS.NEW1 -->.ENTR PAS.GETMEMINFO1 PAS.NONCDSPAS.RUNTIMEERRORPAS.SETMEMINFO1 -EEC%%A'`&@(p(`(A@,(`(p,`'A@(( `(/A'($A$:%2E3A/0p&1p%(@$CGAAXƘ3V'#PAS.RELEASE192833-16217,REV.5000,870622 870622.0839/P1K/LIB/STD/SHORT_1.PASA+PAS.RELEASE1-->.ENTR PAS.GETMEMINFO1 PAS.NONCDSPAS.RUNTIMEERRORPAS.SETMEMINFO1 -::l A!)A(  1 ()A@"(2 (A)p"!)+::,A)*p (]_@cCCX5V'2PAS.SHORTLIB2 92833-16218,REV.5000,870622 870622.0839 /P1K/LIB/STD/SHORT_2.PASC@5AAXKV'2PAS.DISPOSE292833-16218,REV.5000,870622 870622.0839/P1K/LIB/STD/SHORT_2.PASA=PAS.DISPOSE244".DCO.DLD.DST.ENTR .LBPR PAS.GETMEMINFO2 PAS.NONCDSPAS.RUNTIMEERROR4;;$z$$AI: A(G$(:)(((AH$A:x7 7=;¼> AA:;A%0AA>%A.(**N+DE9E AA ABA,Cp+(.@>AAXNV'3PAS.RELEASE292833-16218,REV.5000,870622 870622.0839/P1K/LIB/STD/SHORT_2.PASADPAS.RELEASE2>> q?.DCO.DLD.DST.ENTR .LBPR PAS.GETMEMINFO2 PAS.NONCDSPAS.RUNTIMEERRORPAS.SETMEMINFO2 >II..AL B A(J.(- B1(((AK.(- B1A&/ Bx? ?DI@E ABCp.(]_/@6YU~~  PAS.DISPOSE1a PAS.DISPOSE2P PAS.MARK1 , PAS.MARK2  :PAS.NEW1GPAS.NEW2 i PAS.RELEASE1+ PAS.RELEASE2 i~HEN BEGIN  load_store; (* A simple load and store operation *)  END   ELSE BEGIN lelts := min (full_size (lopnd1^.datatype), full_size (lopnd2^.datatype));  llength := ((/PASCAL/LIB/STD/SHSLB_ALT.LIB:::5:14:126 644 0 0 7000 5300501710 36400 /PASCAL/LIB/STD/SHSLB_ALT.LIB:::5:14:126 (($ ;~SHSLB_ALT LIB +++?PFST  '' SHSLB 92833-16221,REV.5000,870622 870622.0852 'HSH'' |>SHS_T 870622 870622.0851 'HSH'' UP.178 92833-16217,REV.5000,870622 870622.0839 '.P.&& /P.023 192833-16217,REV.5000,870622 870622.0839&@P.023'r.ENTRP.037P.192P.029,,`Z$(  / ($A@X($0$',`I|($%p&p([^(('' SP.057 92833-16217,REV.5000,870622 870622.0839 '@uP.057 j.ENTRP.037P.192 `FT` `EwYp( && 5P.059 ;92833-16217,REV.5000,870622 870622.0839&@P.0592+<.ENTRP.037P.192P.029P.098<<`c9'`&@(p(`(A @,(`(p,`'A @(( `(/6'($$:<`B<#4%2`H|73/0p&1p%(33&& /P.083 392833-16217,REV.5000,870622 870622.0839&@P.083++<.ENTRP.037P.192P.029P.09866``H!)(  1 ()A@"X($2 ()p"!)+6`Gx,)*p (]_,,'' WP.179 92833-16218,REV.5000,870622 870622.0839 '.P.&& 1P.024 K92833-16218,REV.5000,870622 870622.0839&@P.024=<.DCO .DLD .DST .ENTR.LBPRP.038P.192P.02977`d .I:  (G$(:6)((($H$:Bx7 7=7`M>:;6%>'' UP.058 )92833-16218,REV.5000,870622 870622.0839 '@P.058!8.DLD .DST .ENTR.LBPRP.038P.192`K'x!`G" p ( ""&& -P.060 Q92833-16218,REV.5000,870622 870622.0839&@P.060D$$ .DCO .DIN .DLD .DSB .DST .ENTR .LBPR P.038P.192P.029P.099$;;`hO0 ,0008(((080.(&(& Ax>20>&%.(**; `C/(&N+D `LE AB6,Cp+(.EE&& 1P.084 N92833-16218,REV.5000,870622 870622.0839&@P.084D .DCO .DLD .DST .ENTR.LBPR P.038P.192P.029P.099::`h<L B  (J.(- B61((($K.(- 0BB1&/ B:`Fkt(Bx? ?D`IEBCp.(]_/EErrr~~P.023P.024sP.057!P.058P.059P.060P.083/P.084 M~  one_word_temp: BOOLEAN); VAR  lreg: REGS;  lprot: INT; BEGIN  IF ftemp <> nil THEN BEGIN  IF one_word_temp THEN BEGIN  lreg := A;  ftemp^.datatype := intptr;  END /PASCAL/LIB/STD/PASCAL_ERR_ALT.REL:::5:9:60 644 0 0 4400 5300501712 36701 /PASCAL/LIB/STD/PASCAL_ERR_ALT.REL:::5:9:60 ++$ <